From 46858ec0a2ea35970a6d22e6a18a41a31108e11c Mon Sep 17 00:00:00 2001
From: github-actions <41898282+github-actions[bot]@users.noreply.github.com>
Date: Tue, 6 Jan 2026 22:21:25 +0000
Subject: [PATCH] Built site for AMR@3.0.1.9008: 9d1b456

---
 404.html                                 |   2 +-
 LICENSE-text.html                        |   2 +-
 articles/AMR.html                        |  16 ++++----
 articles/AMR.md                          |  16 ++++----
 articles/AMR_for_Python.html             |   2 +-
 articles/AMR_with_tidymodels.html        |   2 +-
 articles/EUCAST.html                     |   2 +-
 articles/PCA.html                        |   2 +-
 articles/WHONET.html                     |   4 +-
 articles/WHONET.md                       |   2 +-
 articles/WISCA.html                      |  12 +++---
 articles/WISCA.md                        |   8 ++--
 articles/datasets.html                   |  32 +++++++--------
 articles/datasets.md                     |  22 +++++-----
 articles/index.html                      |   2 +-
 authors.html                             |   2 +-
 index.html                               |  14 +++----
 index.md                                 |   8 ++--
 llms.txt                                 |  10 +++--
 news/index.html                          |  28 ++++++++++---
 news/index.md                            |  28 +++++++++----
 pkgdown.yml                              |   2 +-
 reference/AMR-deprecated.html            |   2 +-
 reference/AMR-options.html               |   2 +-
 reference/AMR.html                       |   2 +-
 reference/WHOCC.html                     |   2 +-
 reference/WHONET.html                    |   2 +-
 reference/ab_from_text.html              |   4 +-
 reference/ab_from_text.md                |   2 +-
 reference/ab_property.html               |  10 ++---
 reference/ab_property.md                 |   8 ++--
 reference/add_custom_antimicrobials.html |   2 +-
 reference/add_custom_microorganisms.html |   4 +-
 reference/add_custom_microorganisms.md   |   2 +-
 reference/age.html                       |  22 +++++-----
 reference/age.md                         |  20 ++++-----
 reference/age_groups.html                |   2 +-
 reference/amr-tidymodels.html            |   2 +-
 reference/antibiogram.html               |   2 +-
 reference/antimicrobial_selectors.html   |  16 +++++---
 reference/antimicrobial_selectors.md     |  37 +++++++++++------
 reference/antimicrobials.html            |  26 ++++++------
 reference/antimicrobials.md              |  25 ++++++------
 reference/as.ab.html                     |   2 +-
 reference/as.av.html                     |   2 +-
 reference/as.disk.html                   |   2 +-
 reference/as.mic-4.png                   | Bin 51370 -> 52246 bytes
 reference/as.mic.html                    |   8 ++--
 reference/as.mic.md                      |  22 ++++++----
 reference/as.mo.html                     |   2 +-
 reference/as.sir.html                    |  14 +++----
 reference/as.sir.md                      |  16 ++++----
 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     |  14 +++----
 reference/bug_drug_combinations.md       |  12 +++---
 reference/clinical_breakpoints.html      |   2 +-
 reference/count.html                     |   2 +-
 reference/custom_eucast_rules.html       |  23 ++++++-----
 reference/custom_eucast_rules.md         |  50 ++++++++++++++++-------
 reference/custom_mdro_guideline.html     |  16 ++++----
 reference/custom_mdro_guideline.md       |  42 +++++++++++--------
 reference/dosage.html                    |   2 +-
 reference/esbl_isolates.html             |   4 +-
 reference/esbl_isolates.md               |   2 +-
 reference/eucast_rules.html              |   2 +-
 reference/example_isolates.html          |   2 +-
 reference/example_isolates_unclean.html  |   2 +-
 reference/export_ncbi_biosample.html     |   2 +-
 reference/first_isolate.html             |   2 +-
 reference/g.test.html                    |   2 +-
 reference/get_episode.html               |   2 +-
 reference/ggplot_pca.html                |   2 +-
 reference/ggplot_sir.html                |   2 +-
 reference/guess_ab_col.html              |   2 +-
 reference/index.html                     |   4 +-
 reference/index.md                       |   2 +
 reference/intrinsic_resistant.html       |   2 +-
 reference/italicise_taxonomy.html        |   2 +-
 reference/join.html                      |   2 +-
 reference/key_antimicrobials.html        |   2 +-
 reference/kurtosis.html                  |   2 +-
 reference/like.html                      |   2 +-
 reference/mdro.html                      |  10 ++---
 reference/mdro.md                        |  27 +++++++-----
 reference/mean_amr_distance.html         |   2 +-
 reference/microorganisms.codes.html      |   2 +-
 reference/microorganisms.groups.html     |   2 +-
 reference/microorganisms.html            |   2 +-
 reference/mo_matching_score.html         |   2 +-
 reference/mo_property.html               |  18 ++++----
 reference/mo_property.md                 |  24 ++++++-----
 reference/mo_source.html                 |   2 +-
 reference/pca.html                       |   2 +-
 reference/phosphonics.html               |   8 ++++
 reference/plot-13.png                    | Bin 81952 -> 82267 bytes
 reference/plot-18.png                    | Bin 49038 -> 49802 bytes
 reference/plot-4.png                     | Bin 56174 -> 55080 bytes
 reference/plot.html                      |   2 +-
 reference/proportion.html                |   2 +-
 reference/random.html                    |   2 +-
 reference/resistance_predict-1.png       | Bin 62996 -> 63475 bytes
 reference/resistance_predict-2.png       | Bin 72861 -> 69307 bytes
 reference/resistance_predict-3.png       | Bin 65531 -> 66468 bytes
 reference/resistance_predict-4.png       | Bin 72201 -> 73317 bytes
 reference/resistance_predict.html        |   2 +-
 reference/skewness.html                  |   2 +-
 reference/spiropyrimidinetriones.html    |   8 ++++
 reference/top_n_microorganisms.html      |   2 +-
 reference/translate.html                 |  10 ++---
 reference/translate.md                   |   8 ++--
 search.json                              |   2 +-
 114 files changed, 478 insertions(+), 358 deletions(-)
 create mode 100644 reference/phosphonics.html
 create mode 100644 reference/spiropyrimidinetriones.html

diff --git a/404.html b/404.html
index dd34a2abe..4c9acb87d 100644
--- a/404.html
+++ b/404.html
@@ -31,7 +31,7 @@
 
     <a class="navbar-brand me-2" href="https://amr-for-r.org/index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</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 b9448968d..d65ffcd31 100644
--- a/LICENSE-text.html
+++ b/LICENSE-text.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</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 5eb9b786c..23aab645c 100644
--- a/articles/AMR.html
+++ b/articles/AMR.html
@@ -30,7 +30,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="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</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">
@@ -91,7 +91,7 @@
 website update since they are based on randomly created values and the
 page was written in <a href="https://rmarkdown.rstudio.com/" class="external-link">R
 Markdown</a>. However, the methodology remains unchanged. This page was
-generated on 23 December 2025.</p>
+generated on 06 January 2026.</p>
 <div class="section level2">
 <h2 id="introduction">Introduction<a class="anchor" aria-label="anchor" href="#introduction"></a>
 </h2>
@@ -125,7 +125,7 @@ including the requirements mentioned above.</p>
 <p>The <code>AMR</code> package enables standardised and reproducible
 AMR data analysis, with the application of evidence-based rules,
 determination of first isolates, translation of various codes for
-microorganisms and antimicrobial agents, determination of (multi-drug)
+microorganisms and antimicrobial drugs, determination of (multi-drug)
 resistant microorganisms, and calculation of antimicrobial resistance,
 prevalence and future trends.</p>
 </div>
@@ -147,21 +147,21 @@ make the structure of your data generally look like this:</p>
 </tr></thead>
 <tbody>
 <tr class="odd">
-<td align="center">2025-12-23</td>
+<td align="center">2026-01-06</td>
 <td align="center">abcd</td>
 <td align="center">Escherichia coli</td>
 <td align="center">S</td>
 <td align="center">S</td>
 </tr>
 <tr class="even">
-<td align="center">2025-12-23</td>
+<td align="center">2026-01-06</td>
 <td align="center">abcd</td>
 <td align="center">Escherichia coli</td>
 <td align="center">S</td>
 <td align="center">R</td>
 </tr>
 <tr class="odd">
-<td align="center">2025-12-23</td>
+<td align="center">2026-01-06</td>
 <td align="center">efgh</td>
 <td align="center">Escherichia coli</td>
 <td align="center">R</td>
@@ -847,14 +847,14 @@ language to be Spanish using the <code>language</code> argument:</p>
 </tr></thead>
 <tbody>
 <tr class="odd">
-<td align="left">Gram negativo</td>
+<td align="left">Gram-negative</td>
 <td align="left">98% (96-99%,N=256)</td>
 <td align="left">96% (95-98%,N=684)</td>
 <td align="left">0% (0-10%,N=35)</td>
 <td align="left">96% (94-97%,N=686)</td>
 </tr>
 <tr class="even">
-<td align="left">Gram positivo</td>
+<td align="left">Gram-positive</td>
 <td align="left">0% (0-1%,N=436)</td>
 <td align="left">63% (60-66%,N=1170)</td>
 <td align="left">0% (0-1%,N=436)</td>
diff --git a/articles/AMR.md b/articles/AMR.md
index a7edb0b59..2d92d6753 100644
--- a/articles/AMR.md
+++ b/articles/AMR.md
@@ -3,8 +3,8 @@
 **Note:** values on this page will change with every website update
 since they are based on randomly created values and the page was written
 in [R Markdown](https://rmarkdown.rstudio.com/). However, the
-methodology remains unchanged. This page was generated on 23 December
-2025.
+methodology remains unchanged. This page was generated on 06 January
+2026.
 
 ## Introduction
 
@@ -38,7 +38,7 @@ mentioned above.
 The `AMR` package enables standardised and reproducible AMR data
 analysis, with the application of evidence-based rules, determination of
 first isolates, translation of various codes for microorganisms and
-antimicrobial agents, determination of (multi-drug) resistant
+antimicrobial drugs, determination of (multi-drug) resistant
 microorganisms, and calculation of antimicrobial resistance, prevalence
 and future trends.
 
@@ -52,9 +52,9 @@ structure of your data generally look like this:
 
 |    date    | patient_id |        mo        | AMX | CIP |
 |:----------:|:----------:|:----------------:|:---:|:---:|
-| 2025-12-23 |    abcd    | Escherichia coli |  S  |  S  |
-| 2025-12-23 |    abcd    | Escherichia coli |  S  |  R  |
-| 2025-12-23 |    efgh    | Escherichia coli |  R  |  S  |
+| 2026-01-06 |    abcd    | Escherichia coli |  S  |  S  |
+| 2026-01-06 |    abcd    | Escherichia coli |  S  |  R  |
+| 2026-01-06 |    efgh    | Escherichia coli |  R  |  S  |
 
 ### Needed R packages
 
@@ -672,8 +672,8 @@ antibiogram(example_isolates,
 
 | Patógeno      | Amikacina          | Gentamicina         | Kanamicina      | Tobramicina        |
 |:--------------|:-------------------|:--------------------|:----------------|:-------------------|
-| Gram negativo | 98% (96-99%,N=256) | 96% (95-98%,N=684)  | 0% (0-10%,N=35) | 96% (94-97%,N=686) |
-| Gram positivo | 0% (0-1%,N=436)    | 63% (60-66%,N=1170) | 0% (0-1%,N=436) | 34% (31-38%,N=665) |
+| Gram-negative | 98% (96-99%,N=256) | 96% (95-98%,N=684)  | 0% (0-10%,N=35) | 96% (94-97%,N=686) |
+| Gram-positive | 0% (0-1%,N=436)    | 63% (60-66%,N=1170) | 0% (0-1%,N=436) | 34% (31-38%,N=665) |
 
 #### Combined Antibiogram
 
diff --git a/articles/AMR_for_Python.html b/articles/AMR_for_Python.html
index 3f4603ec6..9eb506e94 100644
--- a/articles/AMR_for_Python.html
+++ b/articles/AMR_for_Python.html
@@ -30,7 +30,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="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/articles/AMR_with_tidymodels.html b/articles/AMR_with_tidymodels.html
index 49f666139..ab326e3f4 100644
--- a/articles/AMR_with_tidymodels.html
+++ b/articles/AMR_with_tidymodels.html
@@ -30,7 +30,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="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</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/EUCAST.html b/articles/EUCAST.html
index 63eebca50..8ca446e7a 100644
--- a/articles/EUCAST.html
+++ b/articles/EUCAST.html
@@ -30,7 +30,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="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/articles/PCA.html b/articles/PCA.html
index 9e6b37592..8deb97a3b 100644
--- a/articles/PCA.html
+++ b/articles/PCA.html
@@ -30,7 +30,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="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</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 be3d76e9f..107815e95 100644
--- a/articles/WHONET.html
+++ b/articles/WHONET.html
@@ -30,7 +30,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="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</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">
@@ -262,7 +262,7 @@ Levels: 5: S &lt; SDD &lt; I &lt; R &lt; NI<br>
 Available: 481 (96.2%, NA: 19 = 3.8%)<br>
 Unique: 3</p>
 <p>Drug: Amoxicillin/clavulanic acid (AMC, J01CR02/QJ01CR02)<br>
-Drug group: Beta-lactams/penicillins<br>
+Drug group: Aminopenicillins<br>
 %SI: 78.59%</p>
 <table class="table">
 <thead><tr class="header">
diff --git a/articles/WHONET.md b/articles/WHONET.md
index 3b4e98ed2..cd6201c57 100644
--- a/articles/WHONET.md
+++ b/articles/WHONET.md
@@ -112,7 +112,7 @@ Available: 481 (96.2%, NA: 19 = 3.8%)
 Unique: 3
 
 Drug: Amoxicillin/clavulanic acid (AMC, J01CR02/QJ01CR02)  
-Drug group: Beta-lactams/penicillins  
+Drug group: Aminopenicillins  
 %SI: 78.59%
 
 |     | Item | Count | Percent | Cum. Count | Cum. Percent |
diff --git a/articles/WISCA.html b/articles/WISCA.html
index 0f4e31e84..45af45bec 100644
--- a/articles/WISCA.html
+++ b/articles/WISCA.html
@@ -30,7 +30,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="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</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">
@@ -363,14 +363,14 @@ all be used for the <code><a href="../reference/antibiogram.html">wisca()</a></c
 <colgroup>
 <col width="12%">
 <col width="21%">
-<col width="34%">
-<col width="31%">
+<col width="33%">
+<col width="32%">
 </colgroup>
 <thead><tr class="header">
 <th align="left">Grupo sindrómico</th>
-<th align="left">Amoxicilina/ácido clavulánico</th>
-<th align="left">Amoxicilina/ácido clavulánico + Ciprofloxacina</th>
-<th align="left">Amoxicilina/ácido clavulánico + Gentamicina</th>
+<th align="left">Amoxicillin ácido clavulánico</th>
+<th align="left">Amoxicillin ácido clavulánico + Ciprofloxacin</th>
+<th align="left">Amoxicillin ácido clavulánico + Gentamicina</th>
 </tr></thead>
 <tbody>
 <tr class="odd">
diff --git a/articles/WISCA.md b/articles/WISCA.md
index 66a5526de..c74757d49 100644
--- a/articles/WISCA.md
+++ b/articles/WISCA.md
@@ -207,10 +207,10 @@ wisca(data,
       language = "Spanish")
 ```
 
-| Grupo sindrómico | Amoxicilina/ácido clavulánico | Amoxicilina/ácido clavulánico + Ciprofloxacina | Amoxicilina/ácido clavulánico + Gentamicina |
-|:-----------------|:------------------------------|:-----------------------------------------------|:--------------------------------------------|
-| No UCI           | 70% (67.8-72.4%)              | 85.3% (83.3-87.2%)                             | 87% (85.3-88.8%)                            |
-| UCI              | 80.9% (77.7-83.9%)            | 88.2% (85.5-90.6%)                             | 90.9% (88.7-93%)                            |
+| Grupo sindrómico | Amoxicillin ácido clavulánico | Amoxicillin ácido clavulánico + Ciprofloxacin | Amoxicillin ácido clavulánico + Gentamicina |
+|:-----------------|:------------------------------|:----------------------------------------------|:--------------------------------------------|
+| No UCI           | 70% (67.8-72.4%)              | 85.3% (83.3-87.2%)                            | 87% (85.3-88.8%)                            |
+| UCI              | 80.9% (77.7-83.9%)            | 88.2% (85.5-90.6%)                            | 90.9% (88.7-93%)                            |
 
 ## Sensible defaults, which can be customised
 
diff --git a/articles/datasets.html b/articles/datasets.html
index 2cb4a3487..0c09f7d3c 100644
--- a/articles/datasets.html
+++ b/articles/datasets.html
@@ -30,7 +30,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="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</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">
@@ -80,7 +80,7 @@
   <main id="main" class="col-md-9"><div class="page-header">
       <img src="../logo.svg" class="logo" alt=""><h1>Download data sets for download / own use</h1>
             
-            <h4 data-toc-skip class="date">23 December 2025</h4>
+            <h4 data-toc-skip class="date">06 January 2026</h4>
       
       <small class="dont-index">Source: <a href="https://github.com/msberends/AMR/blob/main/vignettes/datasets.Rmd" class="external-link"><code>vignettes/datasets.Rmd</code></a></small>
       <div class="d-none name"><code>datasets.Rmd</code></div>
@@ -424,13 +424,13 @@ column names:<br><em>ab</em>, <em>cid</em>, <em>name</em>, <em>group</em>, <em>a
 <em>iv_ddd</em>, <em>iv_units</em>, and <em>loinc</em>.</p>
 <p>This data set is in R available as <code>antimicrobials</code>, after
 you load the <code>AMR</code> package.</p>
-<p>It was last updated on 24 November 2025 10:24:02 UTC. Find more info
+<p>It was last updated on 6 January 2026 22:08:50 UTC. Find more info
 about the contents, (scientific) source, and structure of this <a href="https://amr-for-r.org/reference/antimicrobials.html">data set
 here</a>.</p>
 <p><strong>Direct download links:</strong></p>
 <ul>
 <li>Download as <a href="https://github.com/msberends/AMR/raw/main/data-raw/datasets/antimicrobials.rds" class="external-link">original
-R Data Structure (RDS) file</a> (45 kB)<br>
+R Data Structure (RDS) file</a> (46 kB)<br>
 </li>
 <li>Download as <a href="https://github.com/msberends/AMR/raw/main/data-raw/datasets/antimicrobials.txt" class="external-link">tab-separated
 text file</a> (0.1 MB)<br>
@@ -454,22 +454,22 @@ DTA file</a> (10 kB)</li>
 contain the ATC codes, common abbreviations, trade names and LOINC codes
 as comma separated values.</p>
 <p><strong>Example content</strong></p>
-<table style="width:100%;" class="table">
+<table class="table">
 <colgroup>
 <col width="1%">
 <col width="2%">
 <col width="7%">
-<col width="7%">
-<col width="9%">
 <col width="12%">
-<col width="16%">
-<col width="6%">
-<col width="16%">
+<col width="8%">
+<col width="11%">
+<col width="15%">
+<col width="5%">
+<col width="15%">
 <col width="2%">
 <col width="3%">
 <col width="2%">
 <col width="2%">
-<col width="9%">
+<col width="8%">
 </colgroup>
 <thead><tr class="header">
 <th align="center">ab</th>
@@ -508,7 +508,7 @@ as comma separated values.</p>
 <td align="center">AMX</td>
 <td align="center">33613</td>
 <td align="center">Amoxicillin</td>
-<td align="center">Beta-lactams/penicillins</td>
+<td align="center">Aminopenicillins, Penicillins, Beta-lactams</td>
 <td align="center">J01CA04, QG51AA03, QJ01CA04</td>
 <td align="center">Beta-lactam antibacterials, penicillins</td>
 <td align="center">Penicillins with extended spectrum</td>
@@ -524,7 +524,7 @@ as comma separated values.</p>
 <td align="center">AMC</td>
 <td align="center">23665637</td>
 <td align="center">Amoxicillin/clavulanic acid</td>
-<td align="center">Beta-lactams/penicillins</td>
+<td align="center">Aminopenicillins, Penicillins, Beta-lactams, …</td>
 <td align="center">J01CR02, QJ01CR02</td>
 <td align="center">Beta-lactam antibacterials, penicillins</td>
 <td align="center">Combinations of penicillins, incl. beta-lactamase
@@ -541,7 +541,7 @@ inhibitors</td>
 <td align="center">AMP</td>
 <td align="center">6249</td>
 <td align="center">Ampicillin</td>
-<td align="center">Beta-lactams/penicillins</td>
+<td align="center">Aminopenicillins, Penicillins, Beta-lactams</td>
 <td align="center">J01CA01, QJ01CA01, QJ51CA01, …</td>
 <td align="center">Beta-lactam antibacterials, penicillins</td>
 <td align="center">Penicillins with extended spectrum</td>
@@ -557,7 +557,7 @@ inhibitors</td>
 <td align="center">AZM</td>
 <td align="center">447043</td>
 <td align="center">Azithromycin</td>
-<td align="center">Macrolides/lincosamides</td>
+<td align="center">Macrolides</td>
 <td align="center">J01FA10, QJ01FA10, QS01AA26, …</td>
 <td align="center">Macrolides, lincosamides and streptogramins</td>
 <td align="center">Macrolides</td>
@@ -573,7 +573,7 @@ inhibitors</td>
 <td align="center">PEN</td>
 <td align="center">5904</td>
 <td align="center">Benzylpenicillin</td>
-<td align="center">Beta-lactams/penicillins</td>
+<td align="center">Penicillins, Beta-lactams</td>
 <td align="center">J01CE01, QJ01CE01, QJ51CE01, …</td>
 <td align="center">Combinations of antibacterials</td>
 <td align="center">Combinations of antibacterials</td>
diff --git a/articles/datasets.md b/articles/datasets.md
index 59788e343..e882d19cb 100644
--- a/articles/datasets.md
+++ b/articles/datasets.md
@@ -100,15 +100,15 @@ names:
 This data set is in R available as `antimicrobials`, after you load the
 `AMR` package.
 
-It was last updated on 24 November 2025 10:24:02 UTC. Find more info
-about the contents, (scientific) source, and structure of this [data set
+It was last updated on 6 January 2026 22:08:50 UTC. Find more info about
+the contents, (scientific) source, and structure of this [data set
 here](https://amr-for-r.org/reference/antimicrobials.html).
 
 **Direct download links:**
 
 - Download as [original R Data Structure (RDS)
   file](https://github.com/msberends/AMR/raw/main/data-raw/datasets/antimicrobials.rds)
-  (45 kB)  
+  (46 kB)  
 - Download as [tab-separated text
   file](https://github.com/msberends/AMR/raw/main/data-raw/datasets/antimicrobials.txt)
   (0.1 MB)  
@@ -134,14 +134,14 @@ as comma separated values.
 
 **Example content**
 
-| ab  |   cid    |            name             |          group           |              atc               |                 atc_group1                  |                          atc_group2                          |    abbreviations    |                        synonyms                         | oral_ddd | oral_units | iv_ddd | iv_units |             loinc              |
-|:---:|:--------:|:---------------------------:|:------------------------:|:------------------------------:|:-------------------------------------------:|:------------------------------------------------------------:|:-------------------:|:-------------------------------------------------------:|:--------:|:----------:|:------:|:--------:|:------------------------------:|
-| AMK |  37768   |          Amikacin           |     Aminoglycosides      | D06AX12, J01GB06, QD06AX12, …  |        Aminoglycoside antibacterials        |                    Other aminoglycosides                     |  ak, ami, amik, …   |          amikacillin, amikacina, amikacine, …           |          |            |  1.0   |    g     |    101493-5, 11-7, 12-5, …     |
-| AMX |  33613   |         Amoxicillin         | Beta-lactams/penicillins |  J01CA04, QG51AA03, QJ01CA04   |   Beta-lactam antibacterials, penicillins   |              Penicillins with extended spectrum              | ac, amox, amoxic, … |             acuotricina, alfamox, alfida, …             |   1.5    |     g      |  3.0   |    g     |    101498-4, 15-8, 16-6, …     |
-| AMC | 23665637 | Amoxicillin/clavulanic acid | Beta-lactams/penicillins |       J01CR02, QJ01CR02        |   Beta-lactam antibacterials, penicillins   | Combinations of penicillins, incl. beta-lactamase inhibitors |  a/c, amcl, aml, …  |               amocla, amoclan, amoclav, …               |   1.5    |     g      |  3.0   |    g     |                                |
-| AMP |   6249   |         Ampicillin          | Beta-lactams/penicillins | J01CA01, QJ01CA01, QJ51CA01, … |   Beta-lactam antibacterials, penicillins   |              Penicillins with extended spectrum              | am, amp, amp100, …  |             adobacillin, alpen, amblosin, …             |   2.0    |     g      |  6.0   |    g     | 101477-8, 101478-6, 18864-9, … |
-| AZM |  447043  |        Azithromycin         | Macrolides/lincosamides  | J01FA10, QJ01FA10, QS01AA26, … | Macrolides, lincosamides and streptogramins |                          Macrolides                          |  az, azi, azit, …   |           aritromicina, aruzilina, azasite, …           |   0.3    |     g      |  0.5   |    g     | 100043-9, 16420-2, 16421-0, …  |
-| PEN |   5904   |      Benzylpenicillin       | Beta-lactams/penicillins | J01CE01, QJ01CE01, QJ51CE01, … |       Combinations of antibacterials        |                Combinations of antibacterials                | bepe, pen, peni, …  | bencilpenicilina, benzopenicillin, benzylpenicilline, … |          |            |  3.6   |    g     |                                |
+| ab  |   cid    |            name             |                     group                      |              atc               |                 atc_group1                  |                          atc_group2                          |    abbreviations    |                        synonyms                         | oral_ddd | oral_units | iv_ddd | iv_units |             loinc              |
+|:---:|:--------:|:---------------------------:|:----------------------------------------------:|:------------------------------:|:-------------------------------------------:|:------------------------------------------------------------:|:-------------------:|:-------------------------------------------------------:|:--------:|:----------:|:------:|:--------:|:------------------------------:|
+| AMK |  37768   |          Amikacin           |                Aminoglycosides                 | D06AX12, J01GB06, QD06AX12, …  |        Aminoglycoside antibacterials        |                    Other aminoglycosides                     |  ak, ami, amik, …   |          amikacillin, amikacina, amikacine, …           |          |            |  1.0   |    g     |    101493-5, 11-7, 12-5, …     |
+| AMX |  33613   |         Amoxicillin         |  Aminopenicillins, Penicillins, Beta-lactams   |  J01CA04, QG51AA03, QJ01CA04   |   Beta-lactam antibacterials, penicillins   |              Penicillins with extended spectrum              | ac, amox, amoxic, … |             acuotricina, alfamox, alfida, …             |   1.5    |     g      |  3.0   |    g     |    101498-4, 15-8, 16-6, …     |
+| AMC | 23665637 | Amoxicillin/clavulanic acid | Aminopenicillins, Penicillins, Beta-lactams, … |       J01CR02, QJ01CR02        |   Beta-lactam antibacterials, penicillins   | Combinations of penicillins, incl. beta-lactamase inhibitors |  a/c, amcl, aml, …  |               amocla, amoclan, amoclav, …               |   1.5    |     g      |  3.0   |    g     |                                |
+| AMP |   6249   |         Ampicillin          |  Aminopenicillins, Penicillins, Beta-lactams   | J01CA01, QJ01CA01, QJ51CA01, … |   Beta-lactam antibacterials, penicillins   |              Penicillins with extended spectrum              | am, amp, amp100, …  |             adobacillin, alpen, amblosin, …             |   2.0    |     g      |  6.0   |    g     | 101477-8, 101478-6, 18864-9, … |
+| AZM |  447043  |        Azithromycin         |                   Macrolides                   | J01FA10, QJ01FA10, QS01AA26, … | Macrolides, lincosamides and streptogramins |                          Macrolides                          |  az, azi, azit, …   |           aritromicina, aruzilina, azasite, …           |   0.3    |     g      |  0.5   |    g     | 100043-9, 16420-2, 16421-0, …  |
+| PEN |   5904   |      Benzylpenicillin       |           Penicillins, Beta-lactams            | J01CE01, QJ01CE01, QJ51CE01, … |       Combinations of antibacterials        |                Combinations of antibacterials                | bepe, pen, peni, …  | bencilpenicilina, benzopenicillin, benzylpenicilline, … |          |            |  3.6   |    g     |                                |
 
 ------------------------------------------------------------------------
 
diff --git a/articles/index.html b/articles/index.html
index 387b00308..5d1cc3ee4 100644
--- a/articles/index.html
+++ b/articles/index.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</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 d2448c6a2..211299372 100644
--- a/authors.html
+++ b/authors.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</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 2e3e673e9..76e513d13 100644
--- a/index.html
+++ b/index.html
@@ -33,7 +33,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="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</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">
@@ -332,28 +332,28 @@
 <table class="table">
 <colgroup>
 <col width="19%">
-<col width="27%">
 <col width="26%">
+<col width="27%">
 <col width="26%">
 </colgroup>
 <thead><tr class="header">
 <th align="left">Збудник</th>
+<th align="left">Ciprofloxacin</th>
 <th align="left">Гентаміцин</th>
 <th align="left">Тобраміцин</th>
-<th align="left">Ципрофлоксацин</th>
 </tr></thead>
 <tbody>
 <tr class="odd">
-<td align="left">Грамнегативні</td>
+<td align="left">Gram-negative</td>
+<td align="left">91% (88-93%,N=684)</td>
 <td align="left">96% (95-98%,N=684)</td>
 <td align="left">96% (94-97%,N=686)</td>
-<td align="left">91% (88-93%,N=684)</td>
 </tr>
 <tr class="even">
-<td align="left">Грампозитивні</td>
+<td align="left">Gram-positive</td>
+<td align="left">77% (74-80%,N=724)</td>
 <td align="left">63% (60-66%,N=1170)</td>
 <td align="left">34% (31-38%,N=665)</td>
-<td align="left">77% (74-80%,N=724)</td>
 </tr>
 </tbody>
 </table>
diff --git a/index.md b/index.md
index 7d7d9f406..ca5b4678c 100644
--- a/index.md
+++ b/index.md
@@ -208,10 +208,10 @@ antibiogram(example_isolates,
             language = "uk") # Ukrainian
 ```
 
-| Збудник       | Гентаміцин          | Тобраміцин         | Ципрофлоксацин     |
-|:--------------|:--------------------|:-------------------|:-------------------|
-| Грамнегативні | 96% (95-98%,N=684)  | 96% (94-97%,N=686) | 91% (88-93%,N=684) |
-| Грампозитивні | 63% (60-66%,N=1170) | 34% (31-38%,N=665) | 77% (74-80%,N=724) |
+| Збудник       | Ciprofloxacin      | Гентаміцин          | Тобраміцин         |
+|:--------------|:-------------------|:--------------------|:-------------------|
+| Gram-negative | 91% (88-93%,N=684) | 96% (95-98%,N=684)  | 96% (94-97%,N=686) |
+| Gram-positive | 77% (74-80%,N=724) | 63% (60-66%,N=1170) | 34% (31-38%,N=665) |
 
 ### Interpreting and plotting MIC and SIR values
 
diff --git a/llms.txt b/llms.txt
index 2f258a948..034b8983d 100644
--- a/llms.txt
+++ b/llms.txt
@@ -208,10 +208,10 @@ antibiogram(example_isolates,
             language = "uk") # Ukrainian
 ```
 
-| Збудник       | Гентаміцин          | Тобраміцин         | Ципрофлоксацин     |
-|:--------------|:--------------------|:-------------------|:-------------------|
-| Грамнегативні | 96% (95-98%,N=684)  | 96% (94-97%,N=686) | 91% (88-93%,N=684) |
-| Грампозитивні | 63% (60-66%,N=1170) | 34% (31-38%,N=665) | 77% (74-80%,N=724) |
+| Збудник       | Ciprofloxacin      | Гентаміцин          | Тобраміцин         |
+|:--------------|:-------------------|:--------------------|:-------------------|
+| Gram-negative | 91% (88-93%,N=684) | 96% (95-98%,N=684)  | 96% (94-97%,N=686) |
+| Gram-positive | 77% (74-80%,N=724) | 63% (60-66%,N=1170) | 34% (31-38%,N=665) |
 
 ### Interpreting and plotting MIC and SIR values
 
@@ -725,9 +725,11 @@ or determine multi-drug resistant microorganisms (MDRO,
   [`oxazolidinones()`](https://amr-for-r.org/reference/antimicrobial_selectors.md)
   [`penicillins()`](https://amr-for-r.org/reference/antimicrobial_selectors.md)
   [`phenicols()`](https://amr-for-r.org/reference/antimicrobial_selectors.md)
+  [`phosphonics()`](https://amr-for-r.org/reference/antimicrobial_selectors.md)
   [`polymyxins()`](https://amr-for-r.org/reference/antimicrobial_selectors.md)
   [`quinolones()`](https://amr-for-r.org/reference/antimicrobial_selectors.md)
   [`rifamycins()`](https://amr-for-r.org/reference/antimicrobial_selectors.md)
+  [`spiropyrimidinetriones()`](https://amr-for-r.org/reference/antimicrobial_selectors.md)
   [`streptogramins()`](https://amr-for-r.org/reference/antimicrobial_selectors.md)
   [`sulfonamides()`](https://amr-for-r.org/reference/antimicrobial_selectors.md)
   [`tetracyclines()`](https://amr-for-r.org/reference/antimicrobial_selectors.md)
diff --git a/news/index.html b/news/index.html
index acddc357e..66cbe36a9 100644
--- a/news/index.html
+++ b/news/index.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</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">
@@ -49,19 +49,32 @@
     </div>
 
     <div class="section level2">
-<h2 class="pkg-version" data-toc-text="3.0.1.9009" id="amr-3019009">AMR 3.0.1.9009<a class="anchor" aria-label="anchor" href="#amr-3019009"></a></h2>
+<h2 class="pkg-version" data-toc-text="3.0.1.9008" id="amr-3019008">AMR 3.0.1.9008<a class="anchor" aria-label="anchor" href="#amr-3019008"></a></h2>
 <div class="section level4">
-<h4 id="new-3-0-1-9009">New<a class="anchor" aria-label="anchor" href="#new-3-0-1-9009"></a></h4>
+<h4 id="new-3-0-1-9008">New<a class="anchor" aria-label="anchor" href="#new-3-0-1-9008"></a></h4>
 <ul><li>Integration with the <strong>tidymodels</strong> framework to allow seamless use of SIR, MIC and disk data in modelling pipelines via <code>recipes</code>
 <ul><li>
 <code><a href="../reference/amr-tidymodels.html">step_mic_log2()</a></code> to transform <code>&lt;mic&gt;</code> columns with log2, and <code><a href="../reference/amr-tidymodels.html">step_sir_numeric()</a></code> to convert <code>&lt;sir&gt;</code> columns to numeric</li>
-<li>New <code>tidyselect</code> helpers: <code><a href="../reference/amr-tidymodels.html">all_sir()</a></code>, <code><a href="../reference/amr-tidymodels.html">all_sir_predictors()</a></code>, <code><a href="../reference/amr-tidymodels.html">all_mic()</a></code>, <code><a href="../reference/amr-tidymodels.html">all_mic_predictors()</a></code>, <code><a href="../reference/amr-tidymodels.html">all_disk()</a></code>, <code><a href="../reference/amr-tidymodels.html">all_disk_predictors()</a></code>
+<li>New <code>tidyselect</code> helpers:
+<ul><li>
+<code><a href="../reference/amr-tidymodels.html">all_sir()</a></code>, <code><a href="../reference/amr-tidymodels.html">all_sir_predictors()</a></code>
+</li>
+<li>
+<code><a href="../reference/amr-tidymodels.html">all_mic()</a></code>, <code><a href="../reference/amr-tidymodels.html">all_mic_predictors()</a></code>
+</li>
+<li>
+<code><a href="../reference/amr-tidymodels.html">all_disk()</a></code>, <code><a href="../reference/amr-tidymodels.html">all_disk_predictors()</a></code>
 </li>
 </ul></li>
+</ul></li>
 <li>Data set <code>esbl_isolates</code> to practise with AMR modelling</li>
+<li>AMR selectors <code><a href="../reference/antimicrobial_selectors.html">phosphonics()</a></code> and <code><a href="../reference/antimicrobial_selectors.html">spiropyrimidinetriones()</a></code>
+</li>
+<li>
+<code><a href="../reference/ab_property.html">ab_group()</a></code> gained an argument <code>all_groups</code> to return all groups the antimicrobial drug is in (<a href="https://github.com/msberends/AMR/issues/246" class="external-link">#246</a>)</li>
 </ul></div>
 <div class="section level4">
-<h4 id="changed-3-0-1-9009">Changed<a class="anchor" aria-label="anchor" href="#changed-3-0-1-9009"></a></h4>
+<h4 id="changed-3-0-1-9008">Changed<a class="anchor" aria-label="anchor" href="#changed-3-0-1-9008"></a></h4>
 <ul><li>Fixed a bug in <code><a href="../reference/antibiogram.html">antibiogram()</a></code> for when no antimicrobials are set</li>
 <li>Added taniborbactam (<code>TAN</code>) and cefepime/taniborbactam (<code>FTA</code>) to the <code>antimicrobials</code> data set</li>
 <li>Fixed a bug in <code><a href="../reference/as.sir.html">as.sir()</a></code> where for numeric input the arguments <code>S</code>, <code>i</code>, and <code>R</code> would not be considered (<a href="https://github.com/msberends/AMR/issues/244" class="external-link">#244</a>)</li>
@@ -73,6 +86,11 @@
 <li>This results in more reliable behaviour compared to previous versions for capped MIC values</li>
 <li>Removed the <code>"inverse"</code> option, which has now become redundant</li>
 </ul></li>
+<li>Fixed some foreign translations of antimicrobial drugs</li>
+<li>
+<code>antimicrobials$group</code> is now a <code>list</code> instead of a <code>character</code>, to contain any group the drug is in (<a href="https://github.com/msberends/AMR/issues/246" class="external-link">#246</a>)</li>
+<li>
+<code><a href="../reference/ab_property.html">ab_group()</a></code> now returns values consist with the AMR selectors (<a href="https://github.com/msberends/AMR/issues/246" class="external-link">#246</a>)</li>
 </ul></div>
 </div>
     <div class="section level2">
diff --git a/news/index.md b/news/index.md
index 6dc3829d4..bfd1ba62c 100644
--- a/news/index.md
+++ b/news/index.md
@@ -1,6 +1,6 @@
 # Changelog
 
-## AMR 3.0.1.9009
+## AMR 3.0.1.9008
 
 #### New
 
@@ -11,13 +11,20 @@
     [`step_sir_numeric()`](https://amr-for-r.org/reference/amr-tidymodels.md)
     to convert `<sir>` columns to numeric
   - New `tidyselect` helpers:
-    [`all_sir()`](https://amr-for-r.org/reference/amr-tidymodels.md),
-    [`all_sir_predictors()`](https://amr-for-r.org/reference/amr-tidymodels.md),
-    [`all_mic()`](https://amr-for-r.org/reference/amr-tidymodels.md),
-    [`all_mic_predictors()`](https://amr-for-r.org/reference/amr-tidymodels.md),
-    [`all_disk()`](https://amr-for-r.org/reference/amr-tidymodels.md),
-    [`all_disk_predictors()`](https://amr-for-r.org/reference/amr-tidymodels.md)
+    - [`all_sir()`](https://amr-for-r.org/reference/amr-tidymodels.md),
+      [`all_sir_predictors()`](https://amr-for-r.org/reference/amr-tidymodels.md)
+    - [`all_mic()`](https://amr-for-r.org/reference/amr-tidymodels.md),
+      [`all_mic_predictors()`](https://amr-for-r.org/reference/amr-tidymodels.md)
+    - [`all_disk()`](https://amr-for-r.org/reference/amr-tidymodels.md),
+      [`all_disk_predictors()`](https://amr-for-r.org/reference/amr-tidymodels.md)
 - Data set `esbl_isolates` to practise with AMR modelling
+- AMR selectors
+  [`phosphonics()`](https://amr-for-r.org/reference/antimicrobial_selectors.md)
+  and
+  [`spiropyrimidinetriones()`](https://amr-for-r.org/reference/antimicrobial_selectors.md)
+- [`ab_group()`](https://amr-for-r.org/reference/ab_property.md) gained
+  an argument `all_groups` to return all groups the antimicrobial drug
+  is in ([\#246](https://github.com/msberends/AMR/issues/246))
 
 #### Changed
 
@@ -45,6 +52,13 @@
   - This results in more reliable behaviour compared to previous
     versions for capped MIC values
   - Removed the `"inverse"` option, which has now become redundant
+- Fixed some foreign translations of antimicrobial drugs
+- `antimicrobials$group` is now a `list` instead of a `character`, to
+  contain any group the drug is in
+  ([\#246](https://github.com/msberends/AMR/issues/246))
+- [`ab_group()`](https://amr-for-r.org/reference/ab_property.md) now
+  returns values consist with the AMR selectors
+  ([\#246](https://github.com/msberends/AMR/issues/246))
 
 ## AMR 3.0.1
 
diff --git a/pkgdown.yml b/pkgdown.yml
index 1bd3ba3ff..4a43f2d67 100644
--- a/pkgdown.yml
+++ b/pkgdown.yml
@@ -10,7 +10,7 @@ articles:
   PCA: PCA.html
   WHONET: WHONET.html
   WISCA: WISCA.html
-last_built: 2025-12-23T10:08Z
+last_built: 2026-01-06T22:17Z
 urls:
   reference: https://amr-for-r.org/reference
   article: https://amr-for-r.org/articles
diff --git a/reference/AMR-deprecated.html b/reference/AMR-deprecated.html
index 953d6af65..33b033ede 100644
--- a/reference/AMR-deprecated.html
+++ b/reference/AMR-deprecated.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</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 9a08f41fa..e9a67e638 100644
--- a/reference/AMR-options.html
+++ b/reference/AMR-options.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</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 92974ba6a..9b713f0eb 100644
--- a/reference/AMR.html
+++ b/reference/AMR.html
@@ -21,7 +21,7 @@ The AMR package is available in English, Arabic, Bengali, Chinese, Czech, Danish
 
     <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="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/WHOCC.html b/reference/WHOCC.html
index f09965ad3..d9aafcc25 100644
--- a/reference/WHOCC.html
+++ b/reference/WHOCC.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</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 1676f0300..743dd33a2 100644
--- a/reference/WHONET.html
+++ b/reference/WHONET.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</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 ee36314e5..baa9604ac 100644
--- a/reference/ab_from_text.html
+++ b/reference/ab_from_text.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</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">
@@ -148,7 +148,7 @@
 <span class="r-in"><span><span class="co"># if you want to know which antibiotic groups were administered, do e.g.:</span></span></span>
 <span class="r-in"><span><span class="va">abx</span> <span class="op">&lt;-</span> <span class="fu">ab_from_text</span><span class="op">(</span><span class="st">"500 mg amoxi po and 400mg cipro iv"</span><span class="op">)</span></span></span>
 <span class="r-in"><span><span class="fu"><a href="ab_property.html">ab_group</a></span><span class="op">(</span><span class="va">abx</span><span class="op">[[</span><span class="fl">1</span><span class="op">]</span><span class="op">]</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Beta-lactams/penicillins" "Fluoroquinolones"        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Aminopenicillins" "Fluoroquinolones"</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>clinical_text <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></span>
diff --git a/reference/ab_from_text.md b/reference/ab_from_text.md
index 29842e8e8..7f58dc810 100644
--- a/reference/ab_from_text.md
+++ b/reference/ab_from_text.md
@@ -147,7 +147,7 @@ ab_from_text("500 mg amoxi po and 400mg cipro iv", collapse = ", ")
 # 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" "Fluoroquinolones"        
+#> [1] "Aminopenicillins" "Fluoroquinolones"
 
 if (require("dplyr")) {
   tibble(clinical_text = c(
diff --git a/reference/ab_property.html b/reference/ab_property.html
index fa9f2a211..136fe70e0 100644
--- a/reference/ab_property.html
+++ b/reference/ab_property.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</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">
@@ -63,7 +63,7 @@
 <span></span>
 <span><span class="fu">ab_tradenames</span><span class="op">(</span><span class="va">x</span>, <span class="va">...</span><span class="op">)</span></span>
 <span></span>
-<span><span class="fu">ab_group</span><span class="op">(</span><span class="va">x</span>, language <span class="op">=</span> <span class="fu"><a href="translate.html">get_AMR_locale</a></span><span class="op">(</span><span class="op">)</span>, <span class="va">...</span><span class="op">)</span></span>
+<span><span class="fu">ab_group</span><span class="op">(</span><span class="va">x</span>, language <span class="op">=</span> <span class="fu"><a href="translate.html">get_AMR_locale</a></span><span class="op">(</span><span class="op">)</span>, all_groups <span class="op">=</span> <span class="cn">FALSE</span>, <span class="va">...</span><span class="op">)</span></span>
 <span></span>
 <span><span class="fu">ab_atc</span><span class="op">(</span><span class="va">x</span>, only_first <span class="op">=</span> <span class="cn">FALSE</span>, <span class="va">...</span><span class="op">)</span></span>
 <span></span>
@@ -226,7 +226,7 @@
 <span class="r-out co"><span class="r-pr">#&gt;</span> [89] "vetramox"        "wymox"           "zamocillin"      "zamocilline"    </span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> [93] "zimox"          </span>
 <span class="r-in"><span><span class="fu">ab_group</span><span class="op">(</span><span class="st">"AMX"</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Beta-lactams/penicillins"</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Aminopenicillins"</span>
 <span class="r-in"><span><span class="fu">ab_atc_group1</span><span class="op">(</span><span class="st">"AMX"</span><span class="op">)</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Beta-lactam antibacterials, penicillins"</span>
 <span class="r-in"><span><span class="fu">ab_atc_group2</span><span class="op">(</span><span class="st">"AMX"</span><span class="op">)</span></span></span>
@@ -262,7 +262,7 @@
 <span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Amoxicillin"</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> $group</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Beta-lactams/penicillins"</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Aminopenicillins"</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> $atc</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> [1] "J01CA04"  "QG51AA03" "QJ01CA04"</span>
@@ -328,7 +328,7 @@
 <span class="r-in"><span><span class="fu">ab_atc</span><span class="op">(</span><span class="st">"AMP"</span><span class="op">)</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> [1] "J01CA01"  "QJ01CA01" "QJ51CA01" "QS01AA19" "S01AA19" </span>
 <span class="r-in"><span><span class="fu">ab_group</span><span class="op">(</span><span class="st">"J01CA01"</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Beta-lactams/penicillins"</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Aminopenicillins"</span>
 <span class="r-in"><span><span class="fu">ab_loinc</span><span class="op">(</span><span class="st">"ampicillin"</span><span class="op">)</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>  [1] "101477-8" "101478-6" "18864-9"  "18865-6"  "20374-5"  "21066-6" </span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>  [7] "23618-2"  "27-3"     "28-1"     "29-9"     "30-7"     "31-5"    </span>
diff --git a/reference/ab_property.md b/reference/ab_property.md
index cbf966121..fe35c6e72 100644
--- a/reference/ab_property.md
+++ b/reference/ab_property.md
@@ -16,7 +16,7 @@ ab_synonyms(x, ...)
 
 ab_tradenames(x, ...)
 
-ab_group(x, language = get_AMR_locale(), ...)
+ab_group(x, language = get_AMR_locale(), all_groups = FALSE, ...)
 
 ab_atc(x, only_first = FALSE, ...)
 
@@ -228,7 +228,7 @@ ab_tradenames("AMX")
 #> [89] "vetramox"        "wymox"           "zamocillin"      "zamocilline"    
 #> [93] "zimox"          
 ab_group("AMX")
-#> [1] "Beta-lactams/penicillins"
+#> [1] "Aminopenicillins"
 ab_atc_group1("AMX")
 #> [1] "Beta-lactam antibacterials, penicillins"
 ab_atc_group2("AMX")
@@ -264,7 +264,7 @@ ab_info("AMX") # all properties as a list
 #> [1] "Amoxicillin"
 #> 
 #> $group
-#> [1] "Beta-lactams/penicillins"
+#> [1] "Aminopenicillins"
 #> 
 #> $atc
 #> [1] "J01CA04"  "QG51AA03" "QJ01CA04"
@@ -330,7 +330,7 @@ ab_info("AMX") # all properties as a list
 ab_atc("AMP")
 #> [1] "J01CA01"  "QJ01CA01" "QJ51CA01" "QS01AA19" "S01AA19" 
 ab_group("J01CA01")
-#> [1] "Beta-lactams/penicillins"
+#> [1] "Aminopenicillins"
 ab_loinc("ampicillin")
 #>  [1] "101477-8" "101478-6" "18864-9"  "18865-6"  "20374-5"  "21066-6" 
 #>  [7] "23618-2"  "27-3"     "28-1"     "29-9"     "30-7"     "31-5"    
diff --git a/reference/add_custom_antimicrobials.html b/reference/add_custom_antimicrobials.html
index e5d964baa..16d64c76c 100644
--- a/reference/add_custom_antimicrobials.html
+++ b/reference/add_custom_antimicrobials.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</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 fcd8b4ca3..cc4609a1f 100644
--- a/reference/add_custom_microorganisms.html
+++ b/reference/add_custom_microorganisms.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</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">
@@ -178,7 +178,7 @@
 <span class="r-out co"><span class="r-pr">#&gt;</span> [1] ""</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> $ref</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Self-added, 2025"</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Self-added, 2026"</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> $snomed</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> [1] NA</span>
diff --git a/reference/add_custom_microorganisms.md b/reference/add_custom_microorganisms.md
index 18c4e4e90..b0c4c7e8e 100644
--- a/reference/add_custom_microorganisms.md
+++ b/reference/add_custom_microorganisms.md
@@ -167,7 +167,7 @@ mo_info("Enterobacter asburiae/cloacae")
 #> [1] ""
 #> 
 #> $ref
-#> [1] "Self-added, 2025"
+#> [1] "Self-added, 2026"
 #> 
 #> $snomed
 #> [1] NA
diff --git a/reference/age.html b/reference/age.html
index 77b7e3f5e..8977aff5c 100644
--- a/reference/age.html
+++ b/reference/age.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</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">
@@ -112,16 +112,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  1980-02-27  45  45.81918         19</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 2  1953-07-26  72  72.41096         46</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 3  1949-09-02  76  76.30685         50</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 4  1986-08-03  39  39.38904         13</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 5  1932-11-19  93  93.09315         67</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 6  1949-03-30  76  76.73425         50</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 7  1996-06-23  29  29.50137          3</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 8  1963-09-16  62  62.26849         36</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 9  1952-05-16  73  73.60548         47</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 10 1952-11-14  73  73.10685         47</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 1  1980-02-27  45  45.85753         19</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 2  1953-07-26  72  72.44932         46</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 3  1949-09-02  76  76.34521         50</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 4  1986-08-03  39  39.42740         13</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 5  1932-11-19  93  93.13151         67</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 6  1949-03-30  76  76.77260         50</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 7  1996-06-23  29  29.53973          3</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 8  1963-09-16  62  62.30685         36</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 9  1952-05-16  73  73.64384         47</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 10 1952-11-14  73  73.14521         47</span>
 </code></pre></div>
     </div>
   </main><aside class="col-md-3"><nav id="toc" aria-label="Table of contents"><h2>On this page</h2>
diff --git a/reference/age.md b/reference/age.md
index 30a852a28..91fdbd8b0 100644
--- a/reference/age.md
+++ b/reference/age.md
@@ -81,14 +81,14 @@ df$age_at_y2k <- age(df$birth_date, "2000-01-01")
 
 df
 #>    birth_date age age_exact age_at_y2k
-#> 1  1980-02-27  45  45.81918         19
-#> 2  1953-07-26  72  72.41096         46
-#> 3  1949-09-02  76  76.30685         50
-#> 4  1986-08-03  39  39.38904         13
-#> 5  1932-11-19  93  93.09315         67
-#> 6  1949-03-30  76  76.73425         50
-#> 7  1996-06-23  29  29.50137          3
-#> 8  1963-09-16  62  62.26849         36
-#> 9  1952-05-16  73  73.60548         47
-#> 10 1952-11-14  73  73.10685         47
+#> 1  1980-02-27  45  45.85753         19
+#> 2  1953-07-26  72  72.44932         46
+#> 3  1949-09-02  76  76.34521         50
+#> 4  1986-08-03  39  39.42740         13
+#> 5  1932-11-19  93  93.13151         67
+#> 6  1949-03-30  76  76.77260         50
+#> 7  1996-06-23  29  29.53973          3
+#> 8  1963-09-16  62  62.30685         36
+#> 9  1952-05-16  73  73.64384         47
+#> 10 1952-11-14  73  73.14521         47
 ```
diff --git a/reference/age_groups.html b/reference/age_groups.html
index 6e83b3b9d..6f1179487 100644
--- a/reference/age_groups.html
+++ b/reference/age_groups.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</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-tidymodels.html b/reference/amr-tidymodels.html
index f6404b39b..b6a34d227 100644
--- a/reference/amr-tidymodels.html
+++ b/reference/amr-tidymodels.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</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 fdc0d3a4f..745f8f781 100644
--- a/reference/antibiogram.html
+++ b/reference/antibiogram.html
@@ -9,7 +9,7 @@ Adhering to previously described approaches (see Source) and especially the Baye
 
     <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="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</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/antimicrobial_selectors.html b/reference/antimicrobial_selectors.html
index 330cc222f..421818ea3 100644
--- a/reference/antimicrobial_selectors.html
+++ b/reference/antimicrobial_selectors.html
@@ -17,7 +17,7 @@ my_data_with_all_these_columns %&amp;gt;%
 
     <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="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</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">
@@ -126,6 +126,8 @@ my_data_with_all_these_columns %&amp;gt;%
 <span></span>
 <span><span class="fu">phenicols</span><span class="op">(</span>only_sir_columns <span class="op">=</span> <span class="cn">FALSE</span>, return_all <span class="op">=</span> <span class="cn">TRUE</span>, <span class="va">...</span><span class="op">)</span></span>
 <span></span>
+<span><span class="fu">phosphonics</span><span class="op">(</span>only_sir_columns <span class="op">=</span> <span class="cn">FALSE</span>, return_all <span class="op">=</span> <span class="cn">TRUE</span>, <span class="va">...</span><span class="op">)</span></span>
+<span></span>
 <span><span class="fu">polymyxins</span><span class="op">(</span>only_sir_columns <span class="op">=</span> <span class="cn">FALSE</span>, only_treatable <span class="op">=</span> <span class="cn">TRUE</span>,</span>
 <span>  return_all <span class="op">=</span> <span class="cn">TRUE</span>, <span class="va">...</span><span class="op">)</span></span>
 <span></span>
@@ -134,6 +136,8 @@ my_data_with_all_these_columns %&amp;gt;%
 <span></span>
 <span><span class="fu">rifamycins</span><span class="op">(</span>only_sir_columns <span class="op">=</span> <span class="cn">FALSE</span>, return_all <span class="op">=</span> <span class="cn">TRUE</span>, <span class="va">...</span><span class="op">)</span></span>
 <span></span>
+<span><span class="fu">spiropyrimidinetriones</span><span class="op">(</span>only_sir_columns <span class="op">=</span> <span class="cn">FALSE</span>, return_all <span class="op">=</span> <span class="cn">TRUE</span>, <span class="va">...</span><span class="op">)</span></span>
+<span></span>
 <span><span class="fu">streptogramins</span><span class="op">(</span>only_sir_columns <span class="op">=</span> <span class="cn">FALSE</span>, return_all <span class="op">=</span> <span class="cn">TRUE</span>, <span class="va">...</span><span class="op">)</span></span>
 <span></span>
 <span><span class="fu">sulfonamides</span><span class="op">(</span>only_sir_columns <span class="op">=</span> <span class="cn">FALSE</span>, return_all <span class="op">=</span> <span class="cn">TRUE</span>, <span class="va">...</span><span class="op">)</span></span>
@@ -214,7 +218,7 @@ my_data_with_all_these_columns %&amp;gt;%
 
 
 <ul><li><p><code>aminoglycosides()</code> can select: <br> amikacin (AMK), amikacin/fosfomycin (AKF), apramycin (APR), arbekacin (ARB), astromicin (AST), bekanamycin (BEK), dibekacin (DKB), framycetin (FRM), gentamicin (GEN), gentamicin-high (GEH), habekacin (HAB), hygromycin (HYG), isepamicin (ISE), kanamycin (KAN), kanamycin-high (KAH), kanamycin/cephalexin (KAC), micronomicin (MCR), neomycin (NEO), netilmicin (NET), pentisomicin (PIM), plazomicin (PLZ), propikacin (PKA), ribostamycin (RST), sisomicin (SIS), streptoduocin (STR), streptomycin (STR1), streptomycin-high (STH), tobramycin (TOB), and tobramycin-high (TOH)</p></li>
-<li><p><code>aminopenicillins()</code> can select: <br> amoxicillin (AMX) and ampicillin (AMP)</p></li>
+<li><p><code>aminopenicillins()</code> can select: <br> amoxicillin (AMX), amoxicillin/clavulanic acid (AMC), and ampicillin (AMP)</p></li>
 <li><p><code>antifungals()</code> can select: <br> amorolfine (AMO), amphotericin B (AMB), amphotericin B-high (AMH), anidulafungin (ANI), butoconazole (BUT), 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), and voriconazole (VOR)</p></li>
 <li><p><code>antimycobacterials()</code> can select: <br> 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), sodium aminosalicylate (SDA), streptomycin/isoniazid (STI), terizidone (TRZ), thioacetazone (TAT), thioacetazone/isoniazid (THI1), tiocarlide (TCR), and viomycin (VIO)</p></li>
 <li><p><code>betalactams()</code> can select: <br> amoxicillin (AMX), amoxicillin/clavulanic acid (AMC), amoxicillin/sulbactam (AXS), ampicillin (AMP), ampicillin/sulbactam (SAM), apalcillin (APL), aspoxicillin (APX), azidocillin (AZD), azlocillin (AZL), aztreonam (ATM), aztreonam/avibactam (AZA), aztreonam/nacubactam (ANC), bacampicillin (BAM), benzathine benzylpenicillin (BNB), benzathine phenoxymethylpenicillin (BNP), benzylpenicillin (PEN), benzylpenicillin screening test (PEN-S), biapenem (BIA), carbenicillin (CRB), carindacillin (CRN), carumonam (CAR), 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/amikacin (CFA), cefepime/clavulanic acid (CPC), cefepime/enmetazobactam (FPE), cefepime/nacubactam (FNC), cefepime/taniborbactam (FTA), cefepime/tazobactam (FPT), cefepime/zidebactam (FPZ), cefetamet (CAT), cefetamet pivoxil (CPI), cefetecol (CCL), cefetrizole (CZL), cefiderocol (FDC), cefixime (CFM), cefmenoxime (CMX), cefmetazole (CMZ), cefodizime (DIZ), cefonicid (CID), cefoperazone (CFP), cefoperazone/sulbactam (CSL), ceforanide (CND), cefoselis (CSE), cefotaxime (CTX), cefotaxime screening test (CTX-S), cefotaxime/clavulanic acid (CTC), cefotaxime/sulbactam (CTS), cefotetan (CTT), cefotiam (CTF), cefotiam hexetil (CHE), cefovecin (FOV), cefoxitin (FOX), cefoxitin screening test (FOX-S), 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), nafcillin (NAF), oxacillin (OXA), oxacillin screening test (OXA-S), 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), sulbenicillin (SBC), sultamicillin (SLT6), talampicillin (TAL), taniborbactam (TAN), tebipenem (TBP), temocillin (TEM), ticarcillin (TIC), ticarcillin/clavulanic acid (TCC), and tigemonam (TMN)</p></li>
@@ -229,17 +233,19 @@ my_data_with_all_these_columns %&amp;gt;%
 <li><p><code>fluoroquinolones()</code> can select: <br> besifloxacin (BES), ciprofloxacin (CIP), ciprofloxacin/metronidazole (CIM), ciprofloxacin/ornidazole (CIO), ciprofloxacin/tinidazole (CIT), clinafloxacin (CLX), danofloxacin (DAN), delafloxacin (DFX), difloxacin (DIF), enoxacin (ENX), enrofloxacin (ENR), finafloxacin (FIN), fleroxacin (FLE), garenoxacin (GRN), gatifloxacin (GAT), gemifloxacin (GEM), grepafloxacin (GRX), lascufloxacin (LSC), levofloxacin (LVX), levofloxacin/ornidazole (LEO), levonadifloxacin (LND), lomefloxacin (LOM), marbofloxacin (MAR), metioxate (MXT), miloxacin (MIL), moxifloxacin (MFX), nadifloxacin (NAD), nemonoxacin (NEM), nifuroquine (NIF), nitroxoline (NTR), norfloxacin (NOR), norfloxacin screening test (NOR-S), norfloxacin/metronidazole (NME), norfloxacin/tinidazole (NTI), ofloxacin (OFX), ofloxacin/ornidazole (OOR), orbifloxacin (ORB), pazufloxacin (PAZ), pefloxacin (PEF), pefloxacin screening test (PEF-S), pradofloxacin (PRA), premafloxacin (PRX), prulifloxacin (PRU), rufloxacin (RFL), sarafloxacin (SAR), sitafloxacin (SIT), sparfloxacin (SPX), temafloxacin (TMX), tilbroquinol (TBQ), tioxacin (TXC), tosufloxacin (TFX), and trovafloxacin (TVA)</p></li>
 <li><p><code>glycopeptides()</code> can select: <br> avoparcin (AVO), bleomycin (BLM), dalbavancin (DAL), norvancomycin (NVA), oritavancin (ORI), ramoplanin (RAM), teicoplanin (TEC), teicoplanin-macromethod (TCM), telavancin (TLV), vancomycin (VAN), and vancomycin-macromethod (VAM)</p></li>
 <li><p><code>isoxazolylpenicillins()</code> can select: <br> cloxacillin (CLO), dicloxacillin (DIC), flucloxacillin (FLC), meticillin (MET), oxacillin (OXA), and oxacillin screening test (OXA-S)</p></li>
-<li><p><code>lincosamides()</code> can select: <br> clindamycin (CLI), lincomycin (LIN), and pirlimycin (PRL)</p></li>
+<li><p><code>lincosamides()</code> can select: <br> clindamycin (CLI), clindamycin inducible screening test (CLI-S), lincomycin (LIN), and pirlimycin (PRL)</p></li>
 <li><p><code>lipoglycopeptides()</code> can select: <br> dalbavancin (DAL), oritavancin (ORI), and telavancin (TLV)</p></li>
-<li><p><code>macrolides()</code> can select: <br> 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), rokitamycin (ROK), roxithromycin (RXT), solithromycin (SOL), spiramycin (SPI), telithromycin (TLT), tildipirosin (TIP), tilmicosin (TIL), troleandomycin (TRL), tulathromycin (TUL), tylosin (TYL), and tylvalosin (TYL1)</p></li>
+<li><p><code>macrolides()</code> can select: <br> acetylmidecamycin (ACM), acetylspiramycin (ASP), azithromycin (AZM), clarithromycin (CLR), clindamycin inducible screening test (CLI-S), 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), and tylvalosin (TYL1)</p></li>
 <li><p><code>monobactams()</code> can select: <br> aztreonam (ATM), aztreonam/avibactam (AZA), aztreonam/nacubactam (ANC), carumonam (CAR), and tigemonam (TMN)</p></li>
 <li><p><code>nitrofurans()</code> can select: <br> furazidin (FUR), furazolidone (FRZ), nifurtoinol (NFR), nitrofurantoin (NIT), and nitrofurazone (NIZ)</p></li>
 <li><p><code>oxazolidinones()</code> can select: <br> cadazolid (CDZ), cycloserine (CYC), linezolid (LNZ), tedizolid (TZD), and thiacetazone (THA)</p></li>
 <li><p><code>penicillins()</code> can select: <br> amoxicillin (AMX), amoxicillin/clavulanic acid (AMC), amoxicillin/sulbactam (AXS), ampicillin (AMP), ampicillin/sulbactam (SAM), apalcillin (APL), aspoxicillin (APX), azidocillin (AZD), azlocillin (AZL), bacampicillin (BAM), benzathine benzylpenicillin (BNB), benzathine phenoxymethylpenicillin (BNP), benzylpenicillin (PEN), benzylpenicillin screening test (PEN-S), carbenicillin (CRB), carindacillin (CRN), 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), nafcillin (NAF), oxacillin (OXA), oxacillin screening test (OXA-S), 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), sulbenicillin (SBC), sultamicillin (SLT6), talampicillin (TAL), temocillin (TEM), ticarcillin (TIC), and ticarcillin/clavulanic acid (TCC)</p></li>
 <li><p><code>phenicols()</code> can select: <br> chloramphenicol (CHL), florfenicol (FLR), and thiamphenicol (THI)</p></li>
+<li><p><code>phosphonics()</code> can select: <br> amikacin/fosfomycin (AKF) and fosfomycin (FOS)</p></li>
 <li><p><code>polymyxins()</code> can select: <br> colistin (COL), polymyxin B (PLB), and polymyxin B/polysorbate 80 (POP)</p></li>
-<li><p><code>quinolones()</code> can select: <br> besifloxacin (BES), cinoxacin (CIN), ciprofloxacin (CIP), ciprofloxacin/metronidazole (CIM), ciprofloxacin/ornidazole (CIO), ciprofloxacin/tinidazole (CIT), clinafloxacin (CLX), danofloxacin (DAN), delafloxacin (DFX), difloxacin (DIF), enoxacin (ENX), enrofloxacin (ENR), finafloxacin (FIN), fleroxacin (FLE), flumequine (FLM), garenoxacin (GRN), gatifloxacin (GAT), gemifloxacin (GEM), grepafloxacin (GRX), lascufloxacin (LSC), levofloxacin (LVX), levofloxacin/ornidazole (LEO), levonadifloxacin (LND), lomefloxacin (LOM), marbofloxacin (MAR), metioxate (MXT), miloxacin (MIL), moxifloxacin (MFX), nadifloxacin (NAD), nalidixic acid (NAL), nalidixic acid screening test (NAL-S), nemonoxacin (NEM), nifuroquine (NIF), nitroxoline (NTR), norfloxacin (NOR), norfloxacin screening test (NOR-S), norfloxacin/metronidazole (NME), norfloxacin/tinidazole (NTI), ofloxacin (OFX), ofloxacin/ornidazole (OOR), orbifloxacin (ORB), oxolinic acid (OXO), pazufloxacin (PAZ), pefloxacin (PEF), pefloxacin screening test (PEF-S), 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), and trovafloxacin (TVA)</p></li>
+<li><p><code>quinolones()</code> can select: <br> besifloxacin (BES), cinoxacin (CIN), ciprofloxacin (CIP), ciprofloxacin/metronidazole (CIM), ciprofloxacin/ornidazole (CIO), ciprofloxacin/tinidazole (CIT), clinafloxacin (CLX), danofloxacin (DAN), delafloxacin (DFX), difloxacin (DIF), enoxacin (ENX), enrofloxacin (ENR), finafloxacin (FIN), fleroxacin (FLE), flumequine (FLM), garenoxacin (GRN), gatifloxacin (GAT), gemifloxacin (GEM), grepafloxacin (GRX), lascufloxacin (LSC), levofloxacin (LVX), levofloxacin/ornidazole (LEO), levonadifloxacin (LND), lomefloxacin (LOM), marbofloxacin (MAR), metioxate (MXT), miloxacin (MIL), moxifloxacin (MFX), nadifloxacin (NAD), nalidixic acid (NAL), nalidixic acid screening test (NAL-S), nemonoxacin (NEM), nifuroquine (NIF), nitroxoline (NTR), norfloxacin (NOR), norfloxacin screening test (NOR-S), norfloxacin/metronidazole (NME), norfloxacin/tinidazole (NTI), ofloxacin (OFX), ofloxacin/ornidazole (OOR), orbifloxacin (ORB), oxolinic acid (OXO), ozenoxacin (OZN), pazufloxacin (PAZ), pefloxacin (PEF), pefloxacin screening test (PEF-S), 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), and trovafloxacin (TVA)</p></li>
 <li><p><code>rifamycins()</code> can select: <br> rifabutin (RIB), rifampicin (RIF), rifampicin/ethambutol/isoniazid (REI), rifampicin/isoniazid (RFI), rifampicin/pyrazinamide/ethambutol/isoniazid (RPEI), rifampicin/pyrazinamide/isoniazid (RPI), rifamycin (RFM), and rifapentine (RFP)</p></li>
+<li><p><code>spiropyrimidinetriones()</code> can select: <br> zoliflodacin (ZFD)</p></li>
 <li><p><code>streptogramins()</code> can select: <br> pristinamycin (PRI) and quinupristin/dalfopristin (QDA)</p></li>
 <li><p><code>sulfonamides()</code> can select: <br> brodimoprim (BDP), sulfadiazine (SDI), sulfadiazine/tetroxoprim (SLT), sulfadimethoxine (SUD), sulfadimidine (SDM), sulfafurazole (SLF), sulfaisodimidine (SLF1), sulfalene (SLF2), sulfamazone (SZO), sulfamerazine (SLF3), sulfamethizole (SLF4), sulfamethoxazole (SMX), sulfamethoxypyridazine (SLF5), sulfametomidine (SLF6), sulfametoxydiazine (SLF7), sulfamoxole (SLF8), sulfanilamide (SLF9), sulfaperin (SLF10), sulfaphenazole (SLF11), sulfapyridine (SLF12), sulfathiazole (SUT), and sulfathiourea (SLF13)</p></li>
 <li><p><code>tetracyclines()</code> can select: <br> 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), tetracycline screening test (TCY-S), and tigecycline (TGC)</p></li>
diff --git a/reference/antimicrobial_selectors.md b/reference/antimicrobial_selectors.md
index 9efe9397b..b95862277 100644
--- a/reference/antimicrobial_selectors.md
+++ b/reference/antimicrobial_selectors.md
@@ -75,6 +75,8 @@ penicillins(only_sir_columns = FALSE, return_all = TRUE, ...)
 
 phenicols(only_sir_columns = FALSE, return_all = TRUE, ...)
 
+phosphonics(only_sir_columns = FALSE, return_all = TRUE, ...)
+
 polymyxins(only_sir_columns = FALSE, only_treatable = TRUE,
   return_all = TRUE, ...)
 
@@ -83,6 +85,8 @@ quinolones(only_sir_columns = FALSE, only_treatable = TRUE,
 
 rifamycins(only_sir_columns = FALSE, return_all = TRUE, ...)
 
+spiropyrimidinetriones(only_sir_columns = FALSE, return_all = TRUE, ...)
+
 streptogramins(only_sir_columns = FALSE, return_all = TRUE, ...)
 
 sulfonamides(only_sir_columns = FALSE, return_all = TRUE, ...)
@@ -247,7 +251,8 @@ quite slow in terms of performance.
   tobramycin (TOB), and tobramycin-high (TOH)
 
 - `aminopenicillins()` can select:  
-  amoxicillin (AMX) and ampicillin (AMP)
+  amoxicillin (AMX), amoxicillin/clavulanic acid (AMC), and ampicillin
+  (AMP)
 
 - `antifungals()` can select:  
   amorolfine (AMO), amphotericin B (AMB), amphotericin B-high (AMH),
@@ -455,18 +460,20 @@ quite slow in terms of performance.
   (OXA-S)
 
 - `lincosamides()` can select:  
-  clindamycin (CLI), lincomycin (LIN), and pirlimycin (PRL)
+  clindamycin (CLI), clindamycin inducible screening test (CLI-S),
+  lincomycin (LIN), and pirlimycin (PRL)
 
 - `lipoglycopeptides()` can select:  
   dalbavancin (DAL), oritavancin (ORI), and 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), rokitamycin (ROK),
-  roxithromycin (RXT), solithromycin (SOL), spiramycin (SPI),
+  clarithromycin (CLR), clindamycin inducible screening test (CLI-S),
+  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), and
   tylvalosin (TYL1)
@@ -508,6 +515,9 @@ quite slow in terms of performance.
 - `phenicols()` can select:  
   chloramphenicol (CHL), florfenicol (FLR), and thiamphenicol (THI)
 
+- `phosphonics()` can select:  
+  amikacin/fosfomycin (AKF) and fosfomycin (FOS)
+
 - `polymyxins()` can select:  
   colistin (COL), polymyxin B (PLB), and polymyxin B/polysorbate 80
   (POP)
@@ -527,11 +537,11 @@ quite slow in terms of performance.
   (NIF), nitroxoline (NTR), norfloxacin (NOR), norfloxacin screening
   test (NOR-S), norfloxacin/metronidazole (NME), norfloxacin/tinidazole
   (NTI), ofloxacin (OFX), ofloxacin/ornidazole (OOR), orbifloxacin
-  (ORB), oxolinic acid (OXO), pazufloxacin (PAZ), pefloxacin (PEF),
-  pefloxacin screening test (PEF-S), pipemidic acid (PPA), piromidic
-  acid (PIR), pradofloxacin (PRA), premafloxacin (PRX), prulifloxacin
-  (PRU), rosoxacin (ROS), rufloxacin (RFL), sarafloxacin (SAR),
-  sitafloxacin (SIT), sparfloxacin (SPX), temafloxacin (TMX),
+  (ORB), oxolinic acid (OXO), ozenoxacin (OZN), pazufloxacin (PAZ),
+  pefloxacin (PEF), pefloxacin screening test (PEF-S), 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), and
   trovafloxacin (TVA)
 
@@ -542,6 +552,9 @@ quite slow in terms of performance.
   rifampicin/pyrazinamide/isoniazid (RPI), rifamycin (RFM), and
   rifapentine (RFP)
 
+- `spiropyrimidinetriones()` can select:  
+  zoliflodacin (ZFD)
+
 - `streptogramins()` can select:  
   pristinamycin (PRI) and quinupristin/dalfopristin (QDA)
 
diff --git a/reference/antimicrobials.html b/reference/antimicrobials.html
index e366cc536..e75f1596f 100644
--- a/reference/antimicrobials.html
+++ b/reference/antimicrobials.html
@@ -9,7 +9,7 @@ The antibiotics data set has been renamed to antimicrobials. The old name will 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="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</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">
@@ -74,7 +74,7 @@ The antibiotics data set has been renamed to antimicrobials. The old name will b
 <ul><li><p><code>ab</code><br> antimicrobial ID as used in this package (such as <code>AMC</code>), using the official EARS-Net (European Antimicrobial Resistance Surveillance Network) codes where available. <em><strong>This is a unique identifier.</strong></em></p></li>
 <li><p><code>cid</code><br> Compound ID as found in PubChem. <em><strong>This is a unique identifier.</strong></em></p></li>
 <li><p><code>name</code><br> Official name as used by WHONET/EARS-Net or the WHO. <em><strong>This is a unique identifier.</strong></em></p></li>
-<li><p><code>group</code><br> A short and concise group name, based on WHONET and WHOCC definitions</p></li>
+<li><p><code>group</code><br> One or more short and concise group names, based on WHONET and WHOCC definitions</p></li>
 <li><p><code>atc</code><br> ATC codes (Anatomical Therapeutic Chemical) as defined by the WHOCC, like <code>J01CR02</code> (last updated May 4th, 2025):</p></li>
 <li><p><code>atc_group1</code><br> Official pharmacological subgroup (3rd level ATC code) as defined by the WHOCC, like <code>"Macrolides, lincosamides and streptogramins"</code></p></li>
 <li><p><code>atc_group2</code><br> Official chemical subgroup (4th level ATC code) as defined by the WHOCC, like <code>"Macrolides"</code></p></li>
@@ -147,17 +147,17 @@ The antibiotics data set has been renamed to antimicrobials. The old name will b
     <div class="sourceCode"><pre class="sourceCode r"><code><span class="r-in"><span><span class="va">antimicrobials</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># A tibble: 498 × 14</span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>    ab        cid name   group atc   atc_group1 atc_group2 abbreviations synonyms</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>    <span style="color: #949494; font-style: italic;">&lt;ab&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;lis&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;list&gt;</span>        <span style="color: #949494; font-style: italic;">&lt;named &gt;</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 1</span> AMA      <span style="text-decoration: underline;">4</span>649 4-ami… Anti… <span style="color: #949494;">&lt;chr&gt;</span> Drugs for… Aminosali… <span style="color: #949494;">&lt;chr [1]&gt;</span>     <span style="color: #949494;">&lt;chr&gt;</span>   </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> ACM   6<span style="text-decoration: underline;">450</span>012 Acety… Macr… <span style="color: #949494;">&lt;chr&gt;</span> <span style="color: #BB0000;">NA</span>         <span style="color: #BB0000;">NA</span>         <span style="color: #949494;">&lt;chr [1]&gt;</span>     <span style="color: #949494;">&lt;chr&gt;</span>   </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> ASP  49<span style="text-decoration: underline;">787</span>020 Acety… Macr… <span style="color: #949494;">&lt;chr&gt;</span> <span style="color: #BB0000;">NA</span>         <span style="color: #BB0000;">NA</span>         <span style="color: #949494;">&lt;chr [1]&gt;</span>     <span style="color: #949494;">&lt;chr&gt;</span>   </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> ALS      <span style="text-decoration: underline;">8</span>954 Aldes… Othe… <span style="color: #949494;">&lt;chr&gt;</span> Drugs for… Drugs for… <span style="color: #949494;">&lt;chr [1]&gt;</span>     <span style="color: #949494;">&lt;chr&gt;</span>   </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> AMK     <span style="text-decoration: underline;">37</span>768 Amika… Amin… <span style="color: #949494;">&lt;chr&gt;</span> Aminoglyc… Other ami… <span style="color: #949494;">&lt;chr [6]&gt;</span>     <span style="color: #949494;">&lt;chr&gt;</span>   </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> AKF        <span style="color: #BB0000;">NA</span> Amika… Amin… <span style="color: #949494;">&lt;chr&gt;</span> <span style="color: #BB0000;">NA</span>         <span style="color: #BB0000;">NA</span>         <span style="color: #949494;">&lt;chr [1]&gt;</span>     <span style="color: #949494;">&lt;chr&gt;</span>   </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> AMO     <span style="text-decoration: underline;">54</span>260 Amoro… Anti… <span style="color: #949494;">&lt;chr&gt;</span> Antifunga… Other ant… <span style="color: #949494;">&lt;chr [1]&gt;</span>     <span style="color: #949494;">&lt;chr&gt;</span>   </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> AMX     <span style="text-decoration: underline;">33</span>613 Amoxi… Beta… <span style="color: #949494;">&lt;chr&gt;</span> Beta-lact… Penicilli… <span style="color: #949494;">&lt;chr [4]&gt;</span>     <span style="color: #949494;">&lt;chr&gt;</span>   </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> AMC  23<span style="text-decoration: underline;">665</span>637 Amoxi… Beta… <span style="color: #949494;">&lt;chr&gt;</span> Beta-lact… Combinati… <span style="color: #949494;">&lt;chr [6]&gt;</span>     <span style="color: #949494;">&lt;chr&gt;</span>   </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> AXS    <span style="text-decoration: underline;">465</span>441 Amoxi… Beta… <span style="color: #949494;">&lt;chr&gt;</span> <span style="color: #BB0000;">NA</span>         <span style="color: #BB0000;">NA</span>         <span style="color: #949494;">&lt;chr [1]&gt;</span>     <span style="color: #949494;">&lt;chr&gt;</span>   </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>    <span style="color: #949494; font-style: italic;">&lt;ab&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;lis&gt;</span> <span style="color: #949494; font-style: italic;">&lt;lis&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;list&gt;</span>        <span style="color: #949494; font-style: italic;">&lt;named &gt;</span></span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 1</span> AMA      <span style="text-decoration: underline;">4</span>649 4-ami… <span style="color: #949494;">&lt;chr&gt;</span> <span style="color: #949494;">&lt;chr&gt;</span> Drugs for… Aminosali… <span style="color: #949494;">&lt;chr [1]&gt;</span>     <span style="color: #949494;">&lt;chr&gt;</span>   </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> ACM   6<span style="text-decoration: underline;">450</span>012 Acety… <span style="color: #949494;">&lt;chr&gt;</span> <span style="color: #949494;">&lt;chr&gt;</span> <span style="color: #BB0000;">NA</span>         <span style="color: #BB0000;">NA</span>         <span style="color: #949494;">&lt;chr [1]&gt;</span>     <span style="color: #949494;">&lt;chr&gt;</span>   </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> ASP  49<span style="text-decoration: underline;">787</span>020 Acety… <span style="color: #949494;">&lt;chr&gt;</span> <span style="color: #949494;">&lt;chr&gt;</span> <span style="color: #BB0000;">NA</span>         <span style="color: #BB0000;">NA</span>         <span style="color: #949494;">&lt;chr [1]&gt;</span>     <span style="color: #949494;">&lt;chr&gt;</span>   </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> ALS      <span style="text-decoration: underline;">8</span>954 Aldes… <span style="color: #949494;">&lt;chr&gt;</span> <span style="color: #949494;">&lt;chr&gt;</span> Drugs for… Drugs for… <span style="color: #949494;">&lt;chr [1]&gt;</span>     <span style="color: #949494;">&lt;chr&gt;</span>   </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> AMK     <span style="text-decoration: underline;">37</span>768 Amika… <span style="color: #949494;">&lt;chr&gt;</span> <span style="color: #949494;">&lt;chr&gt;</span> Aminoglyc… Other ami… <span style="color: #949494;">&lt;chr [6]&gt;</span>     <span style="color: #949494;">&lt;chr&gt;</span>   </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> AKF        <span style="color: #BB0000;">NA</span> Amika… <span style="color: #949494;">&lt;chr&gt;</span> <span style="color: #949494;">&lt;chr&gt;</span> <span style="color: #BB0000;">NA</span>         <span style="color: #BB0000;">NA</span>         <span style="color: #949494;">&lt;chr [1]&gt;</span>     <span style="color: #949494;">&lt;chr&gt;</span>   </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> AMO     <span style="text-decoration: underline;">54</span>260 Amoro… <span style="color: #949494;">&lt;chr&gt;</span> <span style="color: #949494;">&lt;chr&gt;</span> Antifunga… Other ant… <span style="color: #949494;">&lt;chr [1]&gt;</span>     <span style="color: #949494;">&lt;chr&gt;</span>   </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> AMX     <span style="text-decoration: underline;">33</span>613 Amoxi… <span style="color: #949494;">&lt;chr&gt;</span> <span style="color: #949494;">&lt;chr&gt;</span> Beta-lact… Penicilli… <span style="color: #949494;">&lt;chr [4]&gt;</span>     <span style="color: #949494;">&lt;chr&gt;</span>   </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> AMC  23<span style="text-decoration: underline;">665</span>637 Amoxi… <span style="color: #949494;">&lt;chr&gt;</span> <span style="color: #949494;">&lt;chr&gt;</span> Beta-lact… Combinati… <span style="color: #949494;">&lt;chr [6]&gt;</span>     <span style="color: #949494;">&lt;chr&gt;</span>   </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> AXS    <span style="text-decoration: underline;">465</span>441 Amoxi… <span style="color: #949494;">&lt;chr&gt;</span> <span style="color: #949494;">&lt;chr&gt;</span> <span style="color: #BB0000;">NA</span>         <span style="color: #BB0000;">NA</span>         <span style="color: #949494;">&lt;chr [1]&gt;</span>     <span style="color: #949494;">&lt;chr&gt;</span>   </span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># ℹ 488 more rows</span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># ℹ 5 more variables: oral_ddd &lt;dbl&gt;, oral_units &lt;chr&gt;, iv_ddd &lt;dbl&gt;,</span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;">#   iv_units &lt;chr&gt;, loinc &lt;list&gt;</span></span>
diff --git a/reference/antimicrobials.md b/reference/antimicrobials.md
index fc3661501..9b73ce3c0 100644
--- a/reference/antimicrobials.md
+++ b/reference/antimicrobials.md
@@ -40,7 +40,8 @@ antivirals
   unique identifier.***
 
 - `group`  
-  A short and concise group name, based on WHONET and WHOCC definitions
+  One or more short and concise group names, based on WHONET and WHOCC
+  definitions
 
 - `atc`  
   ATC codes (Anatomical Therapeutic Chemical) as defined by the WHOCC,
@@ -220,17 +221,17 @@ unlike any other info from this package.** See
 antimicrobials
 #> # A tibble: 498 × 14
 #>    ab        cid name   group atc   atc_group1 atc_group2 abbreviations synonyms
-#>    <ab>    <dbl> <chr>  <chr> <lis> <chr>      <chr>      <list>        <named >
-#>  1 AMA      4649 4-ami… Anti… <chr> Drugs for… Aminosali… <chr [1]>     <chr>   
-#>  2 ACM   6450012 Acety… Macr… <chr> NA         NA         <chr [1]>     <chr>   
-#>  3 ASP  49787020 Acety… Macr… <chr> NA         NA         <chr [1]>     <chr>   
-#>  4 ALS      8954 Aldes… Othe… <chr> Drugs for… Drugs for… <chr [1]>     <chr>   
-#>  5 AMK     37768 Amika… Amin… <chr> Aminoglyc… Other ami… <chr [6]>     <chr>   
-#>  6 AKF        NA Amika… Amin… <chr> NA         NA         <chr [1]>     <chr>   
-#>  7 AMO     54260 Amoro… Anti… <chr> Antifunga… Other ant… <chr [1]>     <chr>   
-#>  8 AMX     33613 Amoxi… Beta… <chr> Beta-lact… Penicilli… <chr [4]>     <chr>   
-#>  9 AMC  23665637 Amoxi… Beta… <chr> Beta-lact… Combinati… <chr [6]>     <chr>   
-#> 10 AXS    465441 Amoxi… Beta… <chr> NA         NA         <chr [1]>     <chr>   
+#>    <ab>    <dbl> <chr>  <lis> <lis> <chr>      <chr>      <list>        <named >
+#>  1 AMA      4649 4-ami… <chr> <chr> Drugs for… Aminosali… <chr [1]>     <chr>   
+#>  2 ACM   6450012 Acety… <chr> <chr> NA         NA         <chr [1]>     <chr>   
+#>  3 ASP  49787020 Acety… <chr> <chr> NA         NA         <chr [1]>     <chr>   
+#>  4 ALS      8954 Aldes… <chr> <chr> Drugs for… Drugs for… <chr [1]>     <chr>   
+#>  5 AMK     37768 Amika… <chr> <chr> Aminoglyc… Other ami… <chr [6]>     <chr>   
+#>  6 AKF        NA Amika… <chr> <chr> NA         NA         <chr [1]>     <chr>   
+#>  7 AMO     54260 Amoro… <chr> <chr> Antifunga… Other ant… <chr [1]>     <chr>   
+#>  8 AMX     33613 Amoxi… <chr> <chr> Beta-lact… Penicilli… <chr [4]>     <chr>   
+#>  9 AMC  23665637 Amoxi… <chr> <chr> Beta-lact… Combinati… <chr [6]>     <chr>   
+#> 10 AXS    465441 Amoxi… <chr> <chr> NA         NA         <chr [1]>     <chr>   
 #> # ℹ 488 more rows
 #> # ℹ 5 more variables: oral_ddd <dbl>, oral_units <chr>, iv_ddd <dbl>,
 #> #   iv_units <chr>, loinc <list>
diff --git a/reference/as.ab.html b/reference/as.ab.html
index 1cdf2a40d..5cb0cf218 100644
--- a/reference/as.ab.html
+++ b/reference/as.ab.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</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 92689b968..30206801c 100644
--- a/reference/as.av.html
+++ b/reference/as.av.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</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 5a1b6b549..d650656f4 100644
--- a/reference/as.disk.html
+++ b/reference/as.disk.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</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-4.png b/reference/as.mic-4.png
index 697386b3d8f55f42bdd0906f8092569517ee5e9e..56872b29d49f57909ea300d666530c44118f128a 100644
GIT binary patch
literal 52246
zcmeFZcTiMo_a)rsYXWmZ;VNJN0Rce-0VB|W3X-#eAVH$!XbwbaK?DROO3pcoNLG|A
z5?V#F(BvFu9reC5Q}z2}rs|#fs^)vGd$mRAKIc5ov-jF-t-YVfToT{7ZqGUriL{X{
zasCR4w91x5TA}^dYJ8>jdFU|ySgkE3ejb0~*UY&*7yPl-OhV-riL~z#@&7Wft`S`l
z>2DJG{26)Mmp|L>EVn7lE{$BSi%45`cjZdm>*i<9tn|6ivhCWtJDXSUonOwj{J`=s
zaWftDhr3I6`z_n9uDtSs%wEg$J7kxwTDJ2k$Kkx2smxLmx9?l#(rEOTnv<T52Uyk}
zu`R0UyTulxmKB`a*l0D^r>0<Dwu|}Kb&*K72j7(o{&`J0UHkOwsy}}TJW#y;&rALb
zcX$4IdDC?z*PoZ4x2@Iu^D_C!mi#|2ugbC5F8lrZO_ap&^4~9SU-bUpdgG2;?~<>T
z{IC@4vJ{+{Xx1the7WUT_xs&OLP3{ayK|?|t^NJJkNquD=t#BStn<1oa#;FaUbeT-
z+WPyS1gPBq(^YS}v$!y)mi0)v(9tfw<o6}MvGZI>JE{Hia|%yc#jbF=eS+@<U*1yG
z)C^YV^i$_-KIy`~;rF}wIQ=i&mfD7WLe}Yw*%{6Y_T(G1T0w`&o9#AKr&xu!=ags9
ztXg#a`ij>uHI#WUEHtHA4JZoF{Y*3bk{(m#$CZ?xete;e%cVBoZtTa1?ORvf&&k&m
zk7~IrSSeTkY|D{bn)&F`kYS{x;W$z%DJ?Cpsv4l0t{=LF$x$Zl#>b`<o$|Lv?uP};
zzTOUYS+wIbYLbqLiIJ3&l50-X;B%h04H7U9tC+Aq#h9R)A^A~cF8)iVaol>&?9=$R
z-0lFQh9Vc24}m8xpFDYTnV(HwyJG95K>iQ2OCL^9Z!S=$8lz>yx48Y;9K+jh*j|zM
zZnvoBP|deZVL2i!tg%zmHq<14L~O7<@5EOgW-<3qMT-+$rKP2nT^0sk-`ugM6-+IE
zZdx1mU<Ze4#AsLb8jr4TkC>XW%{y7h>vwW)n0=MuG&dQel%%Pec~j++U;);k%9nko
zVoTVuvfk32S`BiSg|{b5J38j;eF%tDGc8c4tgLKW5@z)J{{8zrXQy=@->q(G;l=6B
zFIlEqpLSi5lbgUN#7g;bIuAU#J~z;ul(dn7-$&x;pH0anHY`^8_Q86EB+Y_Xl^SIG
zk<y)fcB9vG+D#VlwCMucd?U8AD@NbysgZTNRY_ruRY}wPT-jcC?CP7__<_Eg2eOQs
z6Ya-7oG3}0s=q9%K<g+tcTk?SuOUXR|4T+(htpJh@_^TQ71uuxu7_?*zU=5{9k0Ie
zzIwyPSYO3N^_cqCm#aHR4j(!sUhT)F^dW#RA@$tD4YhCXtjM@pygV{0%CNs7M$qEN
z<2I8l{5SctCEQ^sr<|?GvhPZQa!S}|?jh`t!7mxrQ$>e@ZO;atFjcg+&OF8Fh3~!;
zd@9DcHPc{ryw8wY=#<jT@IGE8?YM5$wgDRUq0!7}m*Sl6jT=U#uG<Ye@^d262KUCy
zP7D~~2fkz&`B_+4U_1Kw`MuUD_w0*HD!kHJ=8=%PV)cekwc+Ap95ge5>+as%V%X+c
z6HBFTJJpt^oVM>RVECZ?`ze#OSZu@fdq0I@Rs93_jG})0xQ<<MgqvFyJFyO5iMQbN
zlah;)mi5@fmww|T<3wM*xI(PFEEf8EXQx7%-o=YSf_&79_R436cCz#9xaZo?Ocpe9
zEOd>jg&JH1<COl!xYrR8EX3Q2h-eZUdVaLps#(Lvpf>CRtF^;wzv{?2S`l?N56h*R
zVd#thbu+ZCT%iP<Fim7~p5Cuz!M7KmSxaG+8n5Om>P^fWx`NB|dGR7TJ6qu7UOI(D
zb(O3R`#8lUP2<MF5!>-5HPcn`^;6cH=pHdgrTn>9+-ijVM8Ew+qtc2F`b?~Fe`}U$
z;gZv6<)K*hoK)(lxw-isK0}|0sn;RSs`1lx_4OGh?Sca|)4~}stAQpC#h}uRn=L#>
z_YHA%BJ;x~x5@R>)3ya;HA1n<DcYYWs5o@FeNlnShqh94sm^o812l?6?DNP!kK1hM
z?_vg4FX2h$3h%_iETL%m7z&PM*{iOk?C<N0W_xSHtE#KnEgWe@OND&x2pf)B%OCrC
ziOg06IM0ui`%)-d(jB$6!xl%pTyRvns{OLIbgZFgZ1Cs3A$eWc`kxq}t5&J*;KDfC
z!OZ^x_o-5E{3U(u$pBu&4=R<@FRmg>N*S?%Z{f`f`fV|u`eRO?S_iYJj7>ZUlJ2&`
zH)>w~dfJUjS_X}=3SUxn-FSF-uDe$%)pS{?)R%kilf!;Epy?N+{X1CSUhw|vK`}Gg
zw~1+KX^r&j$VlJo0yDdGM%#l!H4E$`Glx#QbAQRVOPk1|o$I}uGyUC-S+)G#ldTiO
zCG_kkPMipvKEPr6`d`oK>yC}GTMUnzm{;!<FRl&U&L)32!)ncyV^Md*eOHjBr8hY2
zBf{kBjeFz|Zi&!6vg7v}zZ8-f4qmhF;Ip*URPAk*OG?M0e*XNK{Cxe1Gr7jC`~|~r
z*Edmd;u_~?#wJ=#i~4?4KC{ScAGJNjQ>L8sa3jORqGg*8Oa0j~U)$bt?5SCSU18Xk
zonjUEFhMOV)_Gx;+bah5L_8E00|b?8?KdV753V(eTJ_5tVgGjoh&b6-$kxwI(dgrb
zBz*t1{3h2{((J-C@~oT2eU8X!@2XsCj#XecnswtU{L9Gy!TOyK6-@f-BAdpki<4PT
z*EYJlZ`dbne>^_7U|omaf#?5R*8KUqQ>SWQUuH70M{xO)ZLYH+{AApXkHJmjQd|WQ
zFJHcV)uqAdC+4|#w_^LDOD~h7f-c>t7)6ZO7}wFzAWwvkdTx(DVeju^hhY7NXz#>=
zN!0<`<Y222LJ_yS1hJ3hQ?xITZ#;`!n49t|?;KHU+7(XZv~n*d`ZyD+u~Scw&E4l3
z*=E;1Kj}n3QmZ#=ihpA8CxnyMc8r}@SAV%URkWny!gR`3#!u5ehDd-2hf<t=)d4m@
z4TBv8Y9WrJPjW5$!t(R;w>+urvow5re{B<$SMR+{^>dC4!$!7&Yla9zeSLkoGu?rF
z26Yk11BEzr34KbMb{9$>(KiPRJH)R{t?sJp{t#$Ib(-o!1lX9@fn20gPXwW+B(0F7
zK}p^}`{Xv(;m2q-SF@j%v%vxpF>s9<R{ag$^?mZVWaKO#AD;-^Qk=LKV}Ov2$&<2i
zm!&C}8I#6j?b3Bb27mJ8iL0C2GyDJ%bmu;M?%`vLw->VNkH9`sbt#(dkINmelj<@P
zh__EFoHZP9es^yTz2d#q8_zbirs_(uva*sXJiNR}-pnV1E+LE&zXx67Gi->K|8uNJ
z*v>Zut$#-2SVohd9ZaFSP}kyJ%H%kFC)lpr|Ecbc_b)=lnVgQt+wY@$RJbtN>iDGb
zw5IcnZUG*Yq=dv@D*Q)|knw!Up-T>@7<1G)bJP>hG6zes{dp3v)Z<s2?u(Oq?TO%-
za50eIp!>bQYOZCBVuEU<-0Mp*+NG|!KU1q4BFI}85Oo>=IpQt4BqxoxFfk?dgt%zZ
zpBlb>Q2NCyyRmMAl7|~5B_*$5)f!WD#M_Z!V^uR^YhIq*YF*&VuGExkHIS}fd!S%$
zD38cEbbAF}0Y$_q#3>RB+n9FaGVwIRY=vxw;_<KmzYJ#Q$39MseH0x)aO8gSPpZxm
z&~blawdqe}zg=POMqqp5*Z&gSz3`d;=I2-0+1c7fs#zxc1}^?V#WidHYb05^TSq$n
z-tP|}k<NQ={`Vs4e*;v{+AxCv{u`77;?62RlG6sr(EAviz^Rej8|KEDn%P1%0$53*
zYu-`gH|43(Zr2lJAsE#EDfC?Yxg!*zq3m;)Udsgu*>I*<osaX7WL6X!&7>J;wRhV%
zo3|RzPmkcc?T3rkxNSX1dg<4cs9`kGiFmPdz-&|KtsJI8#~BOkUz}ITvKPvaR*?R>
zyV7(UpzT?JsAlYi*FY$$003-Sh4}&e#<6P{ZBK_dP5NI765MWPr{n$$*DD<n)5vw_
z#)Upx9Q7;GM}!k}oKDX8u&8O0CDgRP^=-~{$4Tp-%AbC?ylO^@)ZS;mf2`-D9}fS<
z6K$IYWDe-Lr+hE!dafpUQ@B<?yw0`JGk>ry)428Qm}{%a?%lih2wFztvw{KC&W<5d
zxLO`%!k1(;fYmd*m!><tu9ez+f4A1i|60kz2L;mRH9dFKZQ89AkFHol=Wc69#<qM$
z#IX$HRz(6@qkd2b7uyK1ph_<~pS(CnT{4^+YH!+Up4F-mG08RE-%;T3E+x0!#JDB(
z0!~#U@<n61fm~!{<dKsnRS?A@hjMxtKlt+=3cH0!TZ{bEm}g_EVOe`Y^5Vrt+}JCZ
zr8(*~r$uq0C`7df?GJ&LHaZBobyj#YHwk*}J*mA=gmbja<&;;q`5q3n%$q4qX}Z<V
zx2RoK`P%9wq(ss08CYbmb{%c`lxt;#C?i32St>xhR0{aEoOD2*vuWAO^;n8X+%zIA
z*|`VETQyE8sR?NsQEWV`XyKyETr1UwLb+1qUDolv)D2Kdt5k5q=Qm9WYHkg(iRw8P
zYtPGB;u$L*h&HH?;`Tgf@ra&D@zNzvmKa<NYpSPyhOEImL-E4F*02k1XUE)HO}GlD
z!vKb7r)WuR3bE51TNAhnI=E^(`poS7)=q?9BL{!98EW(ADn0@DU$8hkAbIH$oe@K7
zYN{pjPd^ah(c`qQ#rFhlhhG)W4GDQLoVY|8CyEP{E0nPMMLRpY&0M@@Ur%53=P9M-
z6NtMt(-=uQ7oQh#@>X{=;@+77A?NvQM1utUeD~av>vr~ZM0(+g2D#bZaIas{KXQkh
zrl#iSLA8J<LN45PIvXwb`egi&m-Vvo+4!?4HRf>0Mk3ju!bvK=w<ZpyiL2KQ_gy5P
z3oN#71_MnAhE4JQ2>B&!G}J?e4Tlkr3jl>?x&g8VUeZVlG?%5cC_gT(M63(@{{8#4
z{M*{pSq~n3Zmpkb%~@#UJlpsBv7Z6p2vU^f-vME`kw88ttV8)RN>~ogx#WDo_5^-5
z59Ptb@^d?0x8vg`s@RhxD8Y`Sm0_!t#m<j84t)gfVI||V=j7x7{QQcs%|(lRKT`1p
zqSD|u?bxe$)B2gWcPI{yVONzeap_c^mX;Pn)V>wf%?^`4kG!srF=@~BwUs8BiDV;y
z`#ygjg)*@ZOCtaJQjqq(Eu=T}&d%%)&po1xLHe30+(5^`FO3Hwr>7T%@Pz+T)6z1G
znmIqbJSlgg!&YYlvu6QTgDmK9L?%u#VI8Xt>qy)&7P8dyqbX6?<p*@6E0hd07WX_s
z4py#rnJ!_{-bHS?z~Fn7I+*}iCO^P<!sI31n5Z7ulk$14&+I?<@V?bi1|1xxofr6;
zu1d~22BT(D(sELu9Jlx((QZGGK#9OX-XGruXk*H1vvtds@h?V61}M)J!#)pMv$L~H
z6)n!ji7brEP0*-XWHOn;@~C8UdJv$nQNoR}?hnhViPQUYZ~|q0J@}F1E{l!?&cSn_
zv<^Nm@03+kd@iyyKjuiQ#6zp>9GOlq`cdJnXptr6v1fL&)zk`T$nF&5Ahk#f6<l%^
zYDwO&9LK|UKTFD^6$<@un9UtXTp!o2oe<CXnxxH)YARgJgTf*_{^{KO3p$eSHfCEl
zFeO5?e7V<`L!Pr}ST!nuhVbUh`9V3W`;0=7k5lBpPLmS0AOFNvG#}O&r{rf{p?lWE
zB#~w00ck&ndbSKjKJ@H^+kQ^1#aUEmc5>{M$SONKwdZD^#8|6a3lUe``|0&@qMC$l
zm|W&ZlAoIk?3Gn>N%tw6aRhc%TyUBlm&NlS%46W=OL;alK#7dIoT7T~cNwAnY9uyL
z;S5kUkp~ENrJ6JEXjpArA?=C&(wo^jDXvv7l|Tdmj*$cTjenJT{{Au8Sj2k7s%4oJ
zrsDpZ00>xv+SdRT5+H-G2#+z~xB&%#;`K;pIf@D;6px`pMN5lY++tp(T2Dxr`;>NW
zJAJd=ynNrD<N8mne|`?dF6x~fNb<6hAl+WRi%sRc==|`#=bRdBeK(gA+upfo!|bgO
ze9gTb4m6JOC7H`tC#LSVgNrem9{v`qk(W8~${R`Oq2sh$QLgn+TMSV;ZrpQR#=;_%
zDrJYj6>}rRNs&V}UB=KbmQ5)!-gBQ&e?nGA-IJ|{<`a#89h-8As70<LezNz>z6*A*
zRAs-nr06`_vUMvcwtF3~FH=NjdzslqXk8hrh<u84*F5~Kq%l>u+L7KUhgLY3e!Y_N
z*txH!rlzT!$t51=AjW#|3#h0Da5M3u3w@XEJ3UU!YX+<OOw|-R&5e)OUmieMkjG`B
z<Rv!$8AR=C<*HXu==u2ivXXNLGh1CXs0d_yCT#-k)~&|52vxo)y4^T)C9t*Yfy$D`
z$H!kWr@M0#g?q5`tii98sBU%#{7xevqwvVPt*R&@-gFgARo`q*3{q$YyF?)LBODwT
ziQH*F-n)5H&TnjVbeyO*K}O{QIs3kR84va$R;$SQT6<F%YFJ>8rix<T8#TQPQ&c4!
zI|XbJz>Njq!v|Gsq+ES``PXfa;}#RL{`m>#CC-6Xpwz7CkU%_h6g@=3BeGXI%Ai*R
zhh4v?dst2uCZovsBs|p?juK26j1@t)jlbvpcz+_@%5*N%l-fa?H=8m)L!`=yaE(WF
z`wpmP9zF78%<fD_CXtH>2Bh7x{$kT#tzcPB^rqryd?|3qib$J^=6unXktgZPW`JYf
zMC~x1$gmyJ9@u5~?ZM7bRvV`R@F32wr4Afisn{k`9(wK(&|BlHGb;vMuzwCWm^vcX
zuP8H{9XD_S=*sQ%6p{zXU_EqbAT}<s?&<z>XM@?L(!BOc%g#+-xj7eA+U^orKnrVE
z4Bd8PE*}7gVB(0KfN(?XgjGA$Umd&{ppQpPR5ad<EB8o)sI*%27ckeBA6QK~|KyDK
z_)vSR1P|r?p%BL{zJfM`UvwM&gM&5o7eV7B%oHt52I9NJCTxn8z)5{T5ZPj;v1%Yd
z(8@4W5SUHJ7wlyBNI4UIwg~y){{6*{pe-IWO&}wz)To&QyTMzwtJ5MUe(7THsTR}u
z(kJD+bPiq)zUk|*v@o?|$P07|bEV}_TZ`?f;Iq0!<<OLwp<ny<rGWW?uZzP0!VZ}T
zzH3#e;G5Q$?iq4G*(<Eqk#Dzb;1Ze4&2YkG!)_z8YK}$Z_Kzs=HGbFwTI}Y(sjNJw
zKk~iQdEj%dRUGoCc|}(bppSmb`}fjDiwGqb!OHak3cnHT{ush!>40KNO|HOx;+6S0
zjY`dKHz}&Vas9e-7apo^=FJxESoxSM(Vm^<UOU;AK!UGvk2{(!E0A*O#j*YIQ*S?~
z=-eB6B(d$au{(En(b7VaxnR&4KcZe<o=DAdTFB7Ip8Fhf=HBYv<S2y4Gu1O?!=KL4
zUr6`7OMF1%1UC7j40js;teOk?<wvJ|CoSHYE?gFwiSWLTqm?igB5IP=s#*xdC+kJ?
zIMI>ZPX(%L7@#i)bWGTVVopPU5w|lIRC2ekEhkNZpPfDKo%ZM`BXz3n)@AQzU3YGr
z1irOv*AmMFE{nc2c3_I?lBJD>pe8JxFzslQSe#R=J$1>gwMW2q_^NV9BXI%LiH|`-
zC$4MtBW0aH9H!gtLZ0$ok&q_fG_O2$(JgIB(t&y*F5&D%NqB}+*{(E~rNyUC#ix7R
z!W{XhXHjSyv+RCdzdJc;E$Q*TE%_I|&grs?h;;n;@#B1ChXlnE^z>hL+Lt9Hj)6d#
z%HyQw2HW=^DXN}xHlTs9Q{MMCSr0|(Oq0TvwH@Ez>9}(<dX-xaG<{%8!yP$}-MV$_
zLzkbH35!4A-O72&E|YQ@3J~oRDoctV&F`m~P_3qSz75jF_S8j0mfe2U+mAI-_`$=o
zKM!%9jj5Qh-751f-+68@>ufcba`N9lyId9~n$K1zsb$p!EI}nu-q(9NY29|VmD1zW
zndInZ?4O0EZ*wBHK=ION&)%he+(?^i$eKr_oo`Z6{BroE@}mvAw^+v`pN*=Cv$(eM
ze>^oN{khr&^t7|iurakg&t_);)1|ysS3sRIS8iZDC7_>^`tmDB%ves6d1sl*!0<v{
zAvmmoB|xFIs*h-1D;Fnq%zYlLq@{fnF)B5~={q~dz<*PpWjBxsPt4amVf^iI%8UH`
zxhTAYUd7Y>-AJx{I6qMc3sI)j!fu?)4Fis|z&aP^JLn>gvf8@U^&Gx*_tVsxd6^^z
z)BIZ6T+H#gip3_CHWBCexu^^6E-9aFY7OJew&d4-7V#?A>2FSAQrySt{T1wkX+l?)
zDU~t(DCyO>_g9YP)Mq-!#p};gBA(Sa*ZQBbORcP^IEK}FdGc0SylO_(>;aZa%b%ZX
zX}Rl~KyGSBT@2LoWD?bk9vdy87yZF51dM!ZdiWaT1CQ!19;ALguxA<FP@10k`}f%t
z0FNA}NN1U}FV8#|z0x%O`$?;QpNaLhL4sEA!HLG(p<+vau9atP{6_iX%ab}LMGMxv
zMomXi=`lVF3Ni*x9I-uhke$6cUODA$x<P$etWojZRn7y*zv6|){Y?ph<ja?{`l}JR
zzy$G89mhQSTGDQ$Y{{={sbyLMU{9Fx#H9h#@+zsDKTzmKk-ILtoizc0NpbHtcg~R;
z;L~OV$Fv+r9-KraTUlM5mN|p;-Hn`c3>V4+%sum*ntbhCA^!l5s!EFXgUa{skK;KZ
z>;Qsad(NSzhdg-=Sb2TvG2JR3M{a?=bVyyhZVi7ugNJhwsu-^G1RzsN6>7{#8DYp3
zS>0L|m8^PT`#=K-H)USe(+hwI5Qtp8yYFULmDZ_e2QOA-T^t!1>BfP{{JvJPgF2tu
zAQr04SM~xVf<F*>NyO{dfgmE|7A$bCYJ!A5;L;NW8C~Yhi>&U)WgB+}Zj;7YC4$M^
z<RCBdU)i8_AlMsK=F_Z%s4%<my|1-!ks|#qJy5ieTrU&;v)bZrRzyvYCT_7ITDC-j
zXJK}N{df^}rI?_QHv0?IWIr54PtE*zrU$@yW~<jXSF5{IC|VBk@ij{DfDn(S@^r}l
zoET`PR|%ofv)@U4|5!{~^PBspB-wDW3MTe&|F0ab6v^QouRng9JGtjlsxz2c#TjH{
z{}{Q~0U$IP{Hk@a{FOB|{3vqy0cg^yoW^U#_jhu6h*%t-o7Rmq-BY>fR$Az$r}m)#
zk+{*^B#mnN!Sr)-s0z?dWmQ$GHUJlYp7kJ4ebmMEGo41V(<V2PH}{clfBw5zZ6!3V
ztV<?f1k4)xJ&u#Jpga~${OAV6NGfPz>oL8qU7Wkl^Xf!bYs(AX8=h1iJdO>!j=f=<
z>JBuW<si6W<U(49@YmV1thV91y=cAPp_4M`NEb@2#da#aZT_$t&l<;+yVsfuI;Tmn
z+<o`f5y1m?G=ZQ?#O5fP*ehsR!FJ+$#nZ=~k9W{2PSgDM(sbjBHCH`T3UOJ?Q7Hdb
z@`zd01?kV%$NM^Viblj>Z*x+Jg19f6!g9~2^NVw|1Pg4Zk0-crPUPd2Yb8blA5U5V
zN4#2lmr%O`v`{lV4d=@5GKHFPcC6|O!vj~oEgHF&+!Se4sBY@w=B;H@>(#*x%{xDI
zfQVGiHbAQb#Ns!odq*3+V4Q_(X;C$eRuh^&=*jZH>J)K1&I7L2zc&iVj*R{(8~-IJ
zMW!D_3Hm3O(e8)0<6y57D8mvE+U3%L{2bq9KbO7ZFCMVY`v8n>7?CEbIm2)!$j@&l
zPiU7BYM(P(S!y3wDhaIBqzwQmZ&1Fhf=x0d;Gr0zgGFqbH%p8i_KZk?9%L1_-^Fpt
zyujZ6rXl}7UVw?aWm>9EKlCR@N@Vvq)k{oj9i7z3erpgXvoNf0976MDO4)VB0hrBb
zfr#)iNlc_od)IaxnC^QW6923fWKFoDDGOQ9h563%(q7u4d!f}vCXrKDg;6J_R%IB}
zAM6#p9DK^4J#7*}c|t8Jdu@k)xz78RxemL5`5w_F1C7iMl;qLvTKx!-$3X|LT-EjC
zhw^|aK+PwquH{dD6l{%sHZ=GSD23;{Kv?KkzxQUEpxzBa?H#$8-Nt#^dx9NmR3{6j
zI@m`urw`6JFV6Jb?xJH7x#`O;P*v^l1Psu|lHB*r-^_NAiSY5D8#sd_{`|S((M7=#
z-58IvrF+)W{DuQf3v(*0wq+SRZe12y_+|mjnWBoz)Zlm~ZR_Pz-)v^WGFzLqT=q@w
zoC@1pf2U@1?WN)84Kr<VfCOR`vXs==T+2`^KR^_{3Y7quTuXN}Aysi>&#V_JQ)ab=
zer&}M1o<%SR?nrPE`*?j>AM;Won3+HA^gUwPu~3?-s@M01L1b?(4q1@Ew(=@Hje><
z1|s&Tj>yN#SJHep=$<+5Rj)sB@&I{LcXzj{Q{mMq)~V3~o~W-C^~&Sk;VtF#O5~}F
zCBM>}_qry<vX!();<x4?vBo=hxbNn5Ej&~Dwf#9!i60zTLt43m>-<q}?%Dv(DmnA;
z(90nrXL_{25jKtEQ|~@609s#O(^}+G#3!u(>D8-=h^Qz6F!`}0XcdX{%6)T-W%<4v
zq@zi}gd({P+X5a5pMZc^<Q9OT{Bu75#hRx_Ive3CXiQL3LTxe=yv=c{-9}1q?uR-}
zu4loRpc%I9+_|$!(5)&j;m&b`y7LrEoXRa8%unG>;QOvii1ocLgp{kGq`}(vvp$fP
zM-y=Z=$Hk_yVv9k8U*o@Oo7tz8U@pd@3s+Xb6;8?0**BEHLGt;{)zf8p$}`LRu2Ux
zDSy<Jg<$z}zusN%^YZ1*0@SD|3H1v;qU=7D)yhGB&_Tmiu0v2^C4);=blbskw~VH?
zSjJ%b{zTHz4B2Sq^<@RuE4K(we%3K;&&{Z-t6L}BI2UBo;mx99Ub_9lm#FWV7r_{A
zF9Cj4KyH846(=8~eR1b}{;08*OSwe$VE0E<_z8W0jE|plNJ)-51_uQt9FdEXpoqEe
z`ZkqTaQ4BvTnI$0WH2P_W+EmB67w!;IZgP2G(@SqrC_v*y}vHfjeycTP%G-UE2)Q~
znBj3%+p59nB~B>lc=*21fIv>gqLg;7p3Q9StABm2X%N**-~Iddp;R>^BN0k=A7GUN
zWLa=>Kg<N=BPF*lOeDE9CKWBlg2$7hprk$yzARZsaHo%ANGHhOCOgyNuf?EtH`*88
zY|Tu_`033ozPyRSO~fL7cG|ixuuPk}UH)Yz+lN6Zlx_efEMycTSJL!8jDxNq3;}}n
z<ND{#w=3W!YZuLL8L4VD0j2}hm9tDVq_wl5J>9GE^73j%YUd<>DRgr9l<KE$L4IRb
zSeb0Lg|Wjk*K)GjINkUBDR42fU+>Y6E)Y;sE>hC>t!v**Plyu2^>F}y5L@C<WaP0X
zs46E$2P@{BXM7?+>Z#Os+`mp9wSK>xEGbE0VVB*Nh=tiH`Fy7E?ZxRiXBB@wqv!8i
z*f-uS)O-IzHk$EKN$B{v<;8&GWN=T-5J4MoT?j50!NW8FIrX0iO#{e{8(Z{pnP(2;
zA11g#BYQyCGu4S2c})S63yv+IJSUt1+XS6v(~0w`1pbPM3{(CzkvM>xLMwQ3>I0mA
zrj(z>)+<DrHPh`I$xpdk-apZDBP0eWzz|%7m=|LLxRXl&b{}kB&N2pqc=Wg~ceK<v
z5Ep4=j}_WqJ$F#m2<oV5Fmlz+&&i)szoo0CZ`{qp60b80N<M_z<@9U=K+m;=`l;;0
zFCq?Cj?J{?+)C)n8_H$BnuAbErc4gC$HClkU%>{B4y*c$C;C##8S8(xr1|>#MuH^k
zcKA3CPfN|z;$imD(b0x*ae7eI7mge`B6;~Tz5NioQsT>(mtIGt8E>ls*%aT0s>N4A
z+FJr!128wCsOP=^R$qImE9PEuTC9ydhbvB;`Du}JHkiw4j-_~ubxJR@c(|A8>q3L0
zlR-(}GZhR>wLtEtn|F#$47Mskw5?_KIu*uXl6}U&z<?ky*K_4RHC<Xps$l|i{l?~9
z1E{70i>xR1yq#ecZqsVrM<;Gxl5$_@dq(<w2BOdoqS4HXZo><rK<E_Ap4EP|#|ae1
z0yWBjSzh}Citgf;8=*%vavK8Z_^OU?19QA=#p+(11cJ3EOh<QCtmy}dzemI|n_%T(
z=IK%^JK^0sr+f5DVPzPqwN)H>;7=e&yMmV+QxlI^=Xq)@q1tBr^52DB>z&DLQpVfZ
z6v=yd_1vK|M!kRkK3Rv|@NQPN@fesYwR(W#wJM8X*;1pppolq+IktAuyG)-8)jgM?
zb`0`lW)$-bcT#pwASf!e`eHGYnbCIIPIa?0g?6lVB2%6}o<|_Kubv-?gBe6Ihj5%o
z3_t_^6+Q5`YSpCH!5Tm1qwBFNiH+?91}9b~^ez(Y4Gp_4-~E0-n!zjvphx$MpEPaH
zZ4BVFl|IiKCD9P8P%U{qQL{iW*2?d`{^WY8a4qKTqG$F>9G$Hw9qepPFx^w_w9_MV
zT_j5;tv@cQiJ-Wk4Gh9vM8G&k``-P40loe=f@J}j`Eaw*NlLRzJq>q7GgpwblWyvE
z-aLRZJ2#?k(0TwzjcsBVQQ^KCLyiTYI7r^lHL~#_2giqi4%9vsqlIhlQL=Alv3#E)
zpi52ARP`e4V32RaURgm(CRk@mjpu1QSjW<FNOg5}D+jINl~N8@2Tfjodt%yoSvz#@
z3S+i7M#tgeSIkat7qmMI;<F(s%MPB>1RW38QvsnJqrMo}l0DR($Bqon*5lyz7qvQ=
zIRk<s`3eN(LKccBp4l@Nf`yz}q<NHnGpiW1e#946HOD6KU9Tlomr}!cE>ui@<~iW`
zwb1*9Du&@QDMR4jiCQ5dt$gbK+O3G92aU!PY3BVG4@g}ox^T|CRgaMA(rJS$=DEvy
z!9V(1PFip3koDB;m@MdzjhokuWsGk>JF;)LN<h}F7?rdrzQI6g`ZAjk+pP~YS*=8<
z1r9ca*PW7?-Z&P`Uk3L>?U9uoA8c(7m@HgVbr<9kpYa!YnA{W)Rnrj+lIIR}uw-MK
z*z{$K7S4U5(lgY$#zaegpH!$=@*jtWD`r`Ew7<uRJmKwDU!J8yJ-%b^lB=d#sm0u0
zx<?3G3DD>a;EJqz|32Mhuo3mPqf-C*bHMKtyLZ%Z+$51A-By}z-ndV&A)s)o!vQ-X
z=8A?(vD&(A>8L=Aas`-wI*MD_(bn&lKt#7P&4FLxd4)b;CTePfcBVvBezUlcc-e4B
z01lt#RKPx+S5Z-+L?8hUfCyIrqL2suT3TM-!!VL;(N&e4*#{Dg{-j`^dbh*nPtcOX
z--&tnaA|2S0kkF*IdSQZ?K9q6v%t7w<Y266-eBgdR&RWo$N8H;-Gz3A;cMMmcXULE
z13MgGTPhb_O!<`ms}h}XRutSzN0`Y_$~OSUL?SlHAOfT{4Zybn$O%BC8;^wl3pjX~
z9^h}N_>9_LwNlC@t9>}r^p(Ta)kaw|j$0EVXG(l%k=3xXtz}o49Ll4q)-ReU$ZqKw
zlj(VV`V`~k6k5=L!+`7ey&<)hy`T2;>3=#64n+nmDZfeEE}ohG>ZwOTAi-F!<~%!e
zSykz4LxS3gUUT)f7Y9<nD6pFoJdt08V2xF%rxo=hi%XU<+gjE}an4IjMe&mt?+q3y
z{}ei6Z@gX7z(flcx`*^kCJPHlNf$DlO_?;-IdyIS&76cmP*tN(I0;D-V)NF?t}t*P
zjgOd|mE$KaBYVO|I4Q)%#dVobiWcc6Zo6H*a^*_Aw<q9M9ei@jpA)XO1aApEw4<Yf
zQtXU6?nBv~bh_8CS9~+m|MvEQB$-?b`$i(LHR47zMCoNhk%dq8(jxs9k(tE9#l7eR
zL}3JkSoD+y3og0!p!8qLlj=P}%MZ4lzkUYAemxG=-Hwp@UEyG3)m*e}zddM5pDMJb
zpp0hPe&iw8dgbtgXIVcwKGRvn#M8acxYs&w0uGY<>V(mVAUSu=x?mIX@r<M7rBm@T
zwR54T{tDzxFn3A_I=Fnf>(}D|)2Hz8n-zq}5Rpb7${q`Z2+AO#51y&jN2l;Uaj;!c
zYMeK738c1UIjLnBD(KJ14DOJ`v5TMcnLEfJsS2sX>JkV<t-{XFAz%*FdRlSwMN@k`
zCudIKQR<Yrds|xH*AfV)T@Dh|Wp&iV{UkT-drTYE-S3~RQ%*++YG3kfk|3yUF@^^F
zX(8-f4vYrzeXoP<*{Dv|PQr+MP3bm2oXMrz;BX@7cNLeVzRNCb-V-m~h$S+hzN3hO
zf@{*B2UJp1I_wic>1W>g+Dq&CY}B`*e{GQCS*CECs-|8if4ZMXqj#uv-V{Jn5Q8}F
zY1mG>efZenR48H~QVm#klMf=WpBj75s|Pu$8?~@v4pIY%S7%<EA@zD>BIZhhOnK1X
z3fHKDlD)ls=nPU(X15g2rPuY2)88I-1Im`cuQxjS9tP8kIFt!IgRNOp40)y+fUawE
zg9rv7s{`d+`(9D!wp}{z<(=FR_xKAOrZT$^v9P?@dg#)00^#Kmqx8Y=@MZ$)c3dKM
zhM)2&K;c}4Zn$tioG``aYsv@Qo%I+4cu^!++82>heyVfrog*)p#XVoxbl8<gL`3{>
zYtAcjTmamisUl>Fn{C;(U{6#hAc4I-s#VwqV!lXbAE?~3gEZ6|3}k}d+^Cw!A`MIG
zPk|LGusC{OhrwI#;H8)P0AWVBJ$LRhlnpNc@al1PjfBDbRA<dYlp7s%BVtuIFbN1O
z2Avwl8*o-0CuqCA#yGzWFGmn-rK-*ZA=SAL8ngFx1mq05B-BbhbB?=t^`r|2&7ppP
z4Az4Z8U<J>Mj?{t-Lg*F!shsS(0J=Ua1kh_3B+)>8!s<!{jOV+F9dPQ{UL1RKoGhJ
zIG<pF)3~uk><%hxROK&eyo<o)yaYq=yuHvV&#pK0(P)AWuKdCGVPijtk!ylzN$qdV
z!Q3;DqmUoYRO{;LsSeoV8(q^mwE*xcvlif6=En9vfqjWj%?73a%5E^Dnec2Y3?bgr
zDc?B$v8UrB==Jw6xUZS|WeG1hE%HGJ$Va(E+>+kX;=(~8p;p^dj9?_DEFj{mKxu)#
zaH}x01q5crMBzvogW?P@?ZbVh0x-}fSSP?>Pxy7b2kd`%i^mJ#Vho(8zpXI}VG?ot
zya7m>YDaa5_q#5QwLcC5>0wK@c{stYdENrOjN0iv-v45Iu2n)d4$%DMGIwr0<Uc~T
zV8ON{MBWPS?Fzr^dswOs8gI24XZa(5txl-U;$o>hHCn-}2mC<L18mRy{BD3^Hi5a@
zK+|#L!dS@C{A=YA@wm%-5=5L;`UAyMm$Xx8VJ(WGv)^jJh|p%bumexP%fSaFInRo7
zc+y-gUH@7_&pmpPzrL*YCXDF`Qz=<o>qv)TKiyG}bSiCVXju5nS|I8BLEA?g8FpB}
zomVoC`ro<JGh)SccW%^j>l|96E{8BC2kXO_y!qot(WRRoXyDzbR;QrGDEcG*O>^*q
zJa{@_BN#L@sq~7=h6u_Ifi;aQX}6cH7%gxq(6YW)kZU~{kVHp)=M=33TXG8mT&O^P
zWt~hC!M(P7dWkN6W_#xAyWKJ{&$3UO#UGs%(?QfEt)j;wYS>=t(Vj%M94n}Nd({yl
z%gnF>1Pl3iEw~6Pb`gR?hh5LU0UG|!dYxgFTwCUm7jHIB5}pxg9<7D2glx`I6DXYN
zW{9IRJzK&=edisK>^X4%{z_icj{MtJ_`Ks`onf#8De@e9svq<b>7U=I1A^yUlaEB9
zl>-W*D{!ZQG({R4tVGq6e9#s`-rkWy7l6z8CacjOWI~Ed&U7ks-yOL{4s7=Ngw`qX
z2X~VYSOl-CClyQvC=7uc^okD+|2v@E;P~8L6kJCeJUgsJ;ox~tRRkoodEX&;MY$B`
z%g(>{+WP^k-50oLYs)W+SMd+U>*#WN!vrw<S!Jg}30qOo6;3wGN$+-K=^u_lTpU1!
z(hoPAa#v?(=fu0MmkGRmq{$v@90jeJ<Lf*`A$>#$*}RZ8z|HtIn^%5^bqbOZ;aYdC
z5|m;K#?QwgbW>_XBAsEXbM|8rwokXpv4o~QCj6w`2#3#^*4Imr52!P`^74;AMRYU5
ztvfS4v@9Ghn7W?)Xv<9DI?V%3=nEkv_WjLPGhKd!nSjvf*MES_6d-8XyD6297U{pr
z&h(iKlw)5mEs?LIWxF_(lTX*ROuZ0ALQm!#Tu%fHqEjSRF=5ZKU@6WV7AotrJGRx$
zF>;5#-Ycw<1erSlKW(Gd(rokXiL9F~SJ)NfD{RO*=1i&bZJE1q`OsA+UsWrjkcS;(
znW^q~V?QM8nS$}-FP-*ELL5n0lQ$#siqpr;(+G0g_?8CLv8q{T{)&XcuL>wxv8M7u
zr=#=F&)fsI;-T@(FeYx51ksc*r&)-wSZY5y`*<_+ar5u*4sdB*dD}v}lPSc<r%*IM
zDpm1_u3%|#t{>D{%)1|6MXiG98PNdd-WbOvqj<hkz~dpjN2}aFP@QwI3!o++K*K=J
z`OeYpgCZ8@Ao^qe2cmzA$DmPtlt-Bt6H_XeQi3X9f<_*HyogpdQiPuHVY5%K&dA2?
zByGBo@_{Qv&682sFiP5A8ziX?#3G|DTei5@_Z`RHI}Uup3jnmiw(=GC1%?MX)`P0N
zAXDV95}jrO?*W%XXgohoA6R(MY6QMh@7?3gQMk^sZ)Puie74mmY6y)X@I12e*GU%}
z-oXcL;2CXn9yxhUf(x_^eBZ9VpS@>jx-x}C)&@l>4JATaQqmP#a}-Q&L=<n*wMFFG
zcvA8$JCcnw{BM?hb)^xJk<bXQfq9dLqv1Ug79s4c=eWh`{#Dp%*77_vLw*twH%y&i
z3ekfbI|}kn6fiasbdT$QdINp(^HG)5h)<D=i-dAU{JkMbiwarlSwMgx+%;EM)9uyY
zaa4Je*$*9fp50k^iN2hPIZe-^n=PrYbWhy;e3j63>tTb0HAx$})Bwr~!HLcwP~J1S
zj0fn!atk@_QJWrh6hL-^3V)OFwoCDN6z>E0stL6YDu)~d(|QEGG#HKsUeHZhukb!>
z*lNq6lKO7Ezp+|ANwXbSg^aq7c>D-Sr;4%)hP#ZZrw6xGiqLg4Elof2z7C(%=49z&
z?>pZLyK90NEEWj04~XVC_97p+suK{&qOL?r68^Ss90Wf?AoR|Ri|!daL3ONmb%AQQ
zIcW-MbaKvF)NV9l1`PBE6wK0CtBcUtq=7_<R12bv2mX#@h-bf4Bf)?#A$5C;8EV)Y
z>_oY^J~~de+#sL>@nOH7HUyG+B&l(SRp-cMKF^-%5N@Hdwp$;GK(1U)w4xB=_HG!O
zRMPcjD{4E-d<r(_m!7;7-rn;WZ~^Xz7cp8zg=7hd<o-z;zL(92_wQj7xELbh^qx@4
zCpJSG(G|2Ax=C2a(_rr|3W+30qcks5>6YF=`wO|hME&rDx4VlOJO;<AAbT-6jeGY&
zAB}-j^2E#Q1Y#8*upmFARk{}O!>-uND&>X(PWq(NeQvx__g(D88_?ZUW`DH`Zv9bV
z-|eK^b=I)i4qPMlfA!SUlO)nr7qG9e>U=`P<3op@RbL%z)Ba_oc{GHONUtO~v%fAM
zczzgEt%Z9yOxv}Y=(E}<;;4)zQtGJ*(%DBx`kO>FJie*`6}%sOBd((lc8nCdHE?d%
zB8ae%O$#QT@1+wb-eKigq7iYM3JS`EHOse8Eepes{zM;Qj$*uWDD>!lE|(c8q9<`>
zv9PW2eTRR#CWlM^`tP=Fv46gL`{MuH*!agX{(rI^^S@ukzq!xzUvC_PKF&8L$P%mw
z-2=xCbejpl1AKsNk)vK!S^32L{3PY+(^sga$aUCRK7oM@osWOAqI878l;Q(s9(^6V
z#IJLK&$JNO3p2o>%T>F!;(H<;XGV!03U0AOmxJA{1Twem-1!>hn-qm;jtddlM|=-F
z#W4InXX)zh?nk}A?OCA-E)=>0D;e!fnLk}hfeI-IyewqG_1HS-X@1^YN<spDJHz-A
zEWqJ0iD5C&MXmfNyDo0(>gsB-X3!?yR&j2(j(*W!u-B>%_Keu#C7RS!27A!3I%2E6
z*Si35178{GV807nl4ra2u(2pPUF$wROJHipx#C-o_O*VTn#MLfeYGv@PYVI*|56w3
zzgFkp-QN3OzHyiKzSHS&BS4%ZgN<$g7Ro?*3DWeEpN6$R(XJY3k_$&MZ_~9uZN;Y>
zUh=L5l~`^F-_?V~kl^4%g8B!qO%#Ku%68oA{c}A2o~`j;X$o}~gv;NAQ4d9=0&Fzc
z1q5{t7s5G${vZGVEZ|s@QbF}UKYBRxRySil(cmbE&KrQ2^VoERw-l5)L6#B5Mucvn
zL-SXwg3O;~`kRgT$YW^YLEmT;3(*wH?fFj+NmysT#Bi=Ur_qlgrp4h$yTn)g`LtT|
znznn*Ogioey%8{QR)I?O6dIBNM;Tx8Pdjz=V_x(>tl4}K>9`IO9a=EUJH1&N<5lD!
z>J{w)vTa(?6m0u_tx?Ne7-Az)Fo^MW*KNY)2WTc!;1!0=+?_eq58KX{-DYxX6O^^A
zR^m7i%;z^V2?|pFaz?FTF684`Q2pwH<sz9<FYEi#qhNp1+4W?>Z0Im!&A!r-oN!yh
z5j#DdwsW9mqV1ZythToHpL0=DxjBDT(P<)n5`C#i)1ywc^sth$E-N|@Uk-P?U{xxv
zq1E)<(HZA&=YQl^(rxoN(eg0tTUt`DfXz1g9?$RJ+GI~z3)>8bZ^1dRt;y-IKw-*v
zqh>Gp#?}HjxS9#38r88rw2wVP)<?CHN%y-x2PNq2JL_-#?R{4Y-LECNJ=Ss3#%;BW
zJGVV7gBe5vHhlL)6WZP9)SO#4-q@jYBy;a7G#Q*!h?Y51*COQunr8d&P*a=hatjP7
zcz5F5f;>?6Qw~05cZJiBy=?P?@>6CG@#hZLe?R!%!|JbVF=)GlRCnE7R!mGRz9hvL
zx2R!Oyb5%7M0Hh_>z{!3D-huw5y6Nj&x%H>%1Rj?Bgucf0F{&ozzTCW-@niYtQtOq
zdfwR1Z4*`JFKm}PLARJ~7oI>JK!JI~V>hoDVQ2UMnt&g9W9RShpE-Z`n*;5djys3Y
zOv(?3YC5m-b8{Ce5(jrO4Unn?@_veQiOe17nPWIMxbq~H{h@wQ#Z0ge@jGLYwcyn3
z_olu0m~SUdM|Ylj@n?g+$?3+<-J=sfH>wHO^8dJ_UrG!!iaM(ktvE#bZ5Js<>o@$=
zvuIXHM0?p`+#W!q$F+z*dwr8|&pVF<96`OBmobRztB(TN#iC)Z#a<by^w+P??I*pz
zUW8r*v2>!-OSB*AN*$o2FM>W!c)u%qBH`k<EZKNs_|-qBtH<Zo!A?6=&2bJ>Lqumx
z{JB4e^7a+;OKtc58D~%<{$Dp^{qIdH_%FlRf8O}d0{(j@Lj30$|2Yo-C#G&JGC52!
z?o<d`GM^XTK==3AgHZ=eOrjF5c2M#aHKno=@~<nUamcwu8ssSIsTQeM&+m>)OpGhK
zc`Gd>$|SH%)kx9sAe%(M0ZNv-u~I(!i`#GB&o2&hZ>`wC!@K6;y`-Mb;!g9Iw+ee4
zyW8GOIrcaZ_wr)fvVTU2{J-~7UO##LF$TBN196Ree)2dfrs|~?KDxSY?b;)J9~Q?v
zRHj0BKd+L%rFYVkvu(~%Y4nTk(v0WA&RvsQSC8&+bNC`%<RHa1!-&W9HK?@Dl5%Yt
zt)$AKp+COAY5e;BUe>C-`-TY}t{00rmyu-djo6$(Vk{lr`OJ$`Gd~(w_^RJG-nhot
ziV6wx6<JyD(Xp|6>fSk!fTcEX-b{(Odw2Qv9XnR%9JsZXp5E_+-ZK_p))-7WsMuco
z7rdgyoS|pK!osenD5GJ(YH@z%s-F%Udc|VV#2X=X#%;ID(keN9{b;}+4l>)(qw;6Y
zoO#O5<CmO#?7@QvWC}h{L0*2_57+ms2M(Nt$AiLx7Vb0FdBPRjXKD;Hwh+aPJjsQ7
zrotpEkf)7(raYzO+p#W(zoIBwTloe~Zjw%1x+>{+_CVTC(bY$|LR37%-9UP1d?;2N
z?I>SdzoAIT@kWMf`!cS%k2Z-;hcsr*sP0UO&mHOU$c8=V{{SVDwCnAEV*P(!5~q&z
zpGWfhG5qH_{6Fv<*p7c*wW|x-&6k{8uZeaVSVa0DE&m#5gk}}OdW6!fm~-==o86$m
zyu1U#B{3yPSCb&opn|^!uM`9JF#v5x@rp*9*jE1e?#{-?x0|(7qEQ)w`h87|HzJIZ
z2!uq;v$xNsP$)iVNJZPR0sLddod3j{4YJH-Up-u1>!4nPh88b<_pZV)qe?sF@X@2v
zkeTX#HOGSDe%fwAZ;|om<F2~z**vUCMoq^;G|u*X457E+``5q49r$V`uy?30IXU@n
z#ed>kS<GggVa-YueOzQiP;>_l97xP|yml?L*^chfxgBn$$zNity7&S|gynbcaC@-O
z!(3AoP<gZ5+o;(_J@3wuoFaiG$MTsQduv273oPKncT2&bV$LugWCugA#h73f4~{n!
zvZ7|nMW_c-6SEwBL~9|ulm?dmq}Whi`i>nxx5Q@Hv-7XYTS+>-QBhqz{?n(pFi{Lg
zJAK-4TuT~P0<pIq<hd2Z7RAGD7_rb@_K3GDukI1=&!W+hZ^WdC*uXsu!-7GVFtow|
z!ava$0q=t5w@frP4u83Kf`{h{s&X-36<uV=c*VE~skt(ftTjXqTf0_Pq9SsC93-&j
zu@%9-Z7$Y%8hrC^E0i{-wXK($T;!4Z(D=k?X(TVa`>Wtz?kbZZjfPhA)mNLS1@i^C
z8X0arp08GdK>;UkMe!Sdi69y%(bYI^(3Zj~_1redFEEg3wcahO=eus>Mg^=OtHz$p
z?;tqOBvz=uEh$j|_e;Lw>|FRK)1DU-%PlV|H2Zcor&C?&kW#7K;T2b(J6w~NcE{Bd
zM6_Wd=h?GoK^+T|{mv#}pvvD$^4#iqcqUeF7TH5ohL~k#WrrTE4-s|gI9_Z?zIN?e
zYRk=HPLyG<zQmckl;pi_2g{)fdV$!tc|Cvs*(nVyd~7pEcMqYnP!puE1-;ate<1N)
z^w=F%+-KPjOWHlSO`_q+>d$D_WF{7b_$3qG_?R)DwWJ+~VgTyFp@01YP6A^-F@lUR
z^pWdeqv8Y8om5=|-)7NtDOYUl@!xMjiaySF;44REpJkOvmY)#QpRXF;#ny%q|2#~_
zzwY7J*JI^9cKxdsOB7rAuaOs5{(tf^w3zePgD|{{k{!pV2m*)bXI30V(x-nt7-?6=
zUk~Q$(>v7owbpC5XO2!f6TpwO>-O(|!Fyc&|N4>LzK!uRaBC42H)9Vh<3`}Si56&(
zQSpx-|3#S82ySWzr+PFbQa^)Ew4y@(%fL3p2(4GM^DQE$pyCDI<PU^+K4j$&14ETw
z+7Th4y!ZK_Pg-vB!$mZmKRDX7o}?7_>FV!bd#ni2w-35(GdxLE?=c+5hnQvq=diE+
z0!;4&Ehn-#twX+o=6IOZ`+`kVlwp;=X*KwT7$CRj*wx!w88dlKwnX3p=(X@W!p1h5
zD}CY1T$&~+TebH0LTuWU*Pe(Tx0nlVJK!mFim^k8hQd+@k+}h>CNd(T7qjHRKC`j0
z)xnZ7LG&8KDY$O!kvXjfFcxu;3GC6mH{V~%&^x(|6g|}Yd&J^j73klNf)b>UCeu{q
zqmkW^;4VWJ!+|G8KpkLaZXY{)?wmrAvlE10DSYZ^wuxIQp?CK|18RmBwE?r5LJZei
z&JBOW-|lKGC#myI+k!76kv2WW2a_p75OsLQ&|kzw&P5-c)PuOfUTRShi^1rRN|CIM
z*XIzX`2#QV2YwjfS-<1x(+_&}=+M2Q7u;?_G*mZYXF>tF?CtGs2=P+WzK<2j)=uLF
z92#Yw`{Ixy*nst6D5{6pM|i4}jIC)M2@u|4YSeRm{P+_w*9Q*zUQq0eeq1N%hKR;*
z?RS5n`CGZRwzeNvgNURU^#Q+MPisMDJxB(3e~ZQx_#x`D=t4um%?ssK3B8%@Rm}?|
z65q1l1>_r3_yejcDrCGEh2@D(sj-2E7-llQGCX(20B=l;OGIZp*#1Ge*3(%ok=$B?
z)_Jb3t|)G*^T7_;2*VCRxDBi(f2yDoI>O9+&a`MD6D)kyeNQ|WfP+Tj>T_=O7(#4g
zJA4>@1CPehE29EJi(~96FWkoPS`n_@08y7hg1beH1&2&O!l=^CoAL0eR5uLnSu+Jo
zhYXA&6R-xd2??no$t%G%Mr>Kp`ET@$Q{`Q>_6a!)Ci&~}>RMSEj4o3vNDV9h#KR(3
z!el9y$fEWysgQ5UM2r9U&$N%4DdMkBK)>{10exQi+FHz*szlg|pj-GrI1zT3j80CL
z!JVvHwdzaS4KHZVT6zL*1ZRrrH`r%{Iu9a}=q*rIj)nr+M|k>qFAW1+5n~luSy=SZ
z#ZdL}qhHB48Tjc4#|BVBERH)Y$RVeiPNG+kn0AS#foLQ+u*c)LM@b4SZmTev$7V<u
znwTQm=^=(lQlM(Hy{_+D%t51&;}`M5n{$%O+v!PH_5Qh2@STzr2>e~<&Pca>Fqx6-
zh><lIMTY5I=V9b&sEd@c!ia=*#sq+)M8FX=D<2};I^}Eh;?An|I}T%d1yOpIYRf7s
zzrZL#!tOxy#T7W>`r+3)OeTEjSjp}C_Hp1i;nRrIjZqz0mhD!}Ij!>;VSw=U5_Gl?
zv;~}D_EV?Sceq`^rrN`;eIISyN%{GwIN&+g2_jlxK!a~*U|`34A>t8pT~w2=-eDnn
z!F9i6pY1-)B-!&ZQ<z&@lyuvF^KU_KKGSYYk9-9Hsep3~E6IkT1<*L3vn*hD)gq$s
zU9Z@*fH6gwtdWq8g|W!G1+G(KRQM~O;as7shlg*3MfnE~Vj_wU%R={wB3VeC><xO*
zwh@d1j$OM8P<V=yP`RZj7$YQH<ANJJwL0VSsge7?I&HA1NixEPJcg}eKi80srOCK3
z3<2)G-*rxGcrxY}N%Ly91qhqv$iahAZCyk|krT`yRUbYm;Pm6PM!C#)GR<PzSq3bs
zR=uCjAdnLl8sSWMfC^b=#xtClvuJVXk}yCsrakm$V*0{nW--DPiX%R@%P@Djp3)|j
z&54?Cp}eNfow4z|<sp=hxAPj)IH#=63E+&aU5gG4LN%~?W5N=iY5dNaMB*J2`fA*q
z*uH&@^pv>n{W2ot-L8_Ak@=epepvCrb1zR%ML$lBhDfQM9{Yq8q2M*0qZf|Az%)r>
zu-K)S0^hhvRtZbkUCSCVp3Vv04&i-*mJ*1_4VXpu3c*a00+2U>2w{Y^H2n1Hj>8Nj
zMoG#ZwEcfG-YaA+T^Bh#DoOt|t#y!5%gfbu^b64tjh-i^NDnomhD?vo#OB^mOI#gk
zSk2Zpn`Neb+2Ml+#fV93EW|ueO{TlusxEe+S9MLOfuqYyK*w-s<}1(4%zVM54s`jv
zMvOIt4TKmK2z%S3D^?PsYYMi1+f!l#OJ5|Tb$4HRt8z)#s_4Y8$9Z^C-}248jW%XT
zVIqN#8!CpAQq#Vbs2tuXBqD4PQ=j0rmJ%kt-^tpFuxF><4ULMD?~)+8sUs6<vaKG7
zd)-EkIjvrIcX#$gQS5#wFLDU7$I&*8ksmH~FSvEa(RkI1RzH~MF`SYT0r&FxqJ=?I
zc6l3kKUm1Hfi|t6KP3~&??;$JF+t@@_r%+`XQ#||VZ`I8QM*EhG4tdK(hGkod_C?(
zzm$e!ShC#1@ZS)_oe+5zR8f8iwbds+dZsZ%xFcB5WP8ckxFlpy?dT4ib4dsuL}-JV
zSuR$Ch)^y|P9a%6dwOh;u7{e3^2aWbi4#h6#7s|5vnTezFGXP?o-twWBC5L(Bcg*G
z%A=B=vMai3WhjLEx)GbMAs=Z~GPhwxv)_JJ_s^M!ejOFwhx)%3bUFbUf|5UV9o-0S
z&Qp0*qJd2i)g|_J`xr({ghR%RCH%t?#Bf9S<wvp^n`fOi+OB9{gnq|D23~1|VU<N=
z&wv#qlYTU5H-{eSa2&e`m&y4h3^;6WwG`M(pcxEZJkr-Aqm;WXU=d&Uv+TQLMs&oq
z7d$~)gWWD3Pv-fax1kuyK}?{EkP?njidU93bpKA|Bwbx%80;4e$}AVO!FU>sF3N6J
zL(nJg_jgQaidR9rvX_M$ac-G#V0nnKgZ8hZ#{BhHr7%4RMe>(pyQ*{EZ6_B7H>nT>
zGT`1T1kp<ElnRu(*xQi%>So4z8bi;mK^0dqVEqe;)e!^V<ecu9ED^0FNRDWJi-ZpX
z^)agCSZqyKclQP~)X>cHkX{;fyo95)=D+V8GFDAcByc35BoaCF?RqXBLtcYA7WB8O
z@8nef1n=DT-Mfz<{(kx-Lj=tR#Cyf={o2ILEabc-3>t=EmGO$DW%}I0h4beR@85q0
z$9!CH`~nnyoUbU%`y?(N;f84IU@@rjIg$%&T6Mbl#{Jxwz6lum;Ne36(>_>@3r3f%
zHEZoynM)k8zkUzCc6M`flf#C^uz@gqoR2@zz=5gAN&r=GcHKj#og6VC30Mn-t38ru
z#<h~w7}I9AAn1%XGav=xd4-hEY_yyMTZ>U&A)0nw+cjYPPgPAI`dJpI%S8?G5yTj+
z@<C!urD}nF2BvS3+s#Tg;+rtRC=rVsj#hk_veMqKc!ydu9o1;$>(>L7heG607+%j%
zwL&WaF=PnZx|;v~&8SR4Xr!A`MTm)EMB^mNY#?G{3hvsi2M-gO3D8ryXZTx5hQpKz
zp`N-vdE)&+Pp-&$foOdxKu0lSD=f46Se{%ozFETki$X9iI=Z5#XM8%%*z|Xn-*IER
z@R5Y*=;#KeYxz$eKaRd@I8PMWZ{NNJb)AOQn-U=J<kCDkVYOXd1<`UYP8AC*<LvBA
z@XX+~r!tJAj1FIKxP8@6CgJ4b&m6x?R$I4jWd`RCM-E(ZEA#fs5zGKCnMGq(IQZGK
ztv_7Z9vWpiD&<<YxODMW7jUt$NusW%M4+};=%o$!AH=ew>@MakIYe}rzA<fDndiPv
z&CWrTd<FS*g(e#2<Bns@8;4e*I=#sB)i(oqZN$uAVx%+S@<r&lF+H0khTZ-N?Pi!V
zb5a8;X))&-(x%&z1H}WDg2cREVc3OTJw2b}$swL5P5+5_#5^H%4KzoPpE(Yd+OeX-
zAlhLeB)8GmBXEnZPjL4Q7Io1i24JbGs_MoQ3IR#RLpebaz*~w4A_$U})f`#7GKVlx
zoam|{CK7Gi^7imO5=p&gnCgi)1&XkGln3SjsLwn`>m7Xe&6pH%IIfY6Y>!Uu4A`^K
zo?h2$@hiG1eDxM*lto|YaX`G1rasJM$NVDV=-_<w+$<oG8dx5#$%mh|0VjxsOb}dP
z5cn*6Wo%xslkuEh5hN1kHLxLp;26ljq_%p))%Q>>NTg%T5Gsg&V`VK(wo*O1gJ{G-
zEFbS!MS8Qo#N`|$jnBeCK0fknp9|E1lL+B|`?hV-u+0I1@Z}O3HHl>AkAVx-egBQU
z_l$}%>$XNqebsIgYOAP?(Ar=iDiS0cTI~XroRfhhQF0Ept*9tyAz&aFKr$sc2Sq_Z
za*`|pA{mK75$@cjzV8X+ocrBx+%fJwV|=tfTB-0n``LSix#pV7Zp=%V618Lvi&H+>
z!qavLnk4y^ZK~$+G-PS3R;?o9pwG&FRD-vdje1R^N#9N$RMcWA3*z&*mbKr%zjb;7
zkNOs#+qWN6-oj<=*mi#O;-aFgNN7png;zQdb8gpN_x&|>8dwET<sIeqbDXNB+Mb{O
zb$SA2?bcfOa2eLZ$1~qwsBrGu9te9m*rTW0y;-UasnzrZ+8%~N+d-yt&4M#I5yadR
z^8*S{;r})x0B;r!>|A1n1f;DN9N6JL<WJcshtFPwVv`v*0Lf(;lL)J}{+nxha)SN>
z0OoKXLfdF`veUw0;z%P}J)AwdvwJ<-A`mALBLDZ>jd@qv!q9czi7#BXt^EqxqqC6l
zC>%L*IS}1ertRpdg)Mm{$Z{Uk?fam3!j#<pw=3m3DyxK$ySR~Wiw`io1T>}fLE({r
zrtpio{G>=jenu0NmbUYdLy8{izY;Hg`&UZT0X#l*m)kcDIZ$hGl|1oa=AmFDdUsC|
zDqpLztIn#uAh6bo{gNL-Ktx6^$EhkAHyO!%9e$xRw8r!8cJe0tJT_JF@oKDhO(!x)
z2|vKycfWsLG6GDptrmy%r}F?^m_KLvm)w5o`k`QnSV)BuJ(C?dD14CWpVxcWG<9D3
z4B+<RfeY6dsigPz&bRY{B3;Zzg@Q+S?tEa^d+CoeFq@JGb@Y`=KX!(W>R-}-T(R5t
zQ#)imp&H0OsPz5o3WS#Szhoe93fT7a37UhM>@_sCmzt)!n42YPAfdGYdb}5)!X3fy
z@A(k3X>|SCpk%H1VXt(&=khl*fZr<kdM(wHCo&5Y+~2o2g?%ggXi-to_FRxkm_J@C
z>p$)^`~DY7$M-yBDJXZFptlQXFX#c7v-{!b5PF2y4ZvVPLPiOgY+I$x&nnP?A-qL|
z4N>3ndIflJY^m`4xgG(K^$r+F7@=iQAMb~*JVS^s_`0~b%qV%r{!~mYBkI)U!DkOY
zksAiU09+x~{L#YjV!y*Whk*uw52vAyNN*V6EoqU?(MoXF--dPb0RjO6Q;N%^DX|U6
z_Mz0KZk~?KT*}Ry1ff7BuA4}jpSsRNMbL`n;{N3$j7fQ@lr~P9Dst=<YqqXeSPRm2
zy}!J4G(3$Godbb8;hG^T6n6W1i7>|y4X7ZMTiP7DZS&^M(Zq2%2fVb``}#~g*ROQb
zTj`jK$Zm@ne;STCE~=;7z7VW<Rw^x;J5(6k(>$#j@sAuVlro@*gwoec%akAjFdDRZ
zW%SLFj@__kX!vQOKfT(vQYsQM#qv9MF1T0QfdWl-7AF(Y8S$8w0E_%6{6FrM!0<#f
z5Bclj!pNc;%qP3khb8%G%PEKL&pQ=7^7ntHZJBu-9`aIt1A+&Vg2Az!uwrh&^#)7{
z+~7k`AfSxk>}y@a`9u@M$xIp)+z}B==^cW)NA-?j4<vT|=r?*`@%r`aD6oY4tDkuj
z)j^PMXLCXx!Wh`2Jp8IOw*J(}GB4|dPi7sX2b`dE*1OK}5%m2B2hB;8;Rz{gSn6P&
z1?EnBX9&GlS~!SWE%Yg(_037t*?QBkxd>FpIgdzI;Fn<+i0Eohey%PYn8P)oD_(K<
zfE%>&jmV?Hr|nB^ML!<Ep-nq>#DDyFo<6`p)@hjBG=b?5&T*cA$FhJZ5Llh~U8wKV
zp=<bTmHX!0r>SaxICrUUL1hC0IT3?Ks2KhF^&iA@BGeEvFt39fB4rPfU_E{ItRAfo
z2u924TJAf%Yp-|ho$=t6^&N46S`;B$;eGzt!$jlLXa;RFrsx<V(>wsz5t-?Dkp5by
zx4fO{v1&P75%BcsF1QAH<gnK1^IaT^QHYxZwPStmHWv1{Nu4a~8p)eXZTt7g7e3y0
zk!bV{8zQoY@g;q;L>M0Nu?iY6puZrn4}v*#`z)1D*856YQuW8Q#(TwM1{q-+){MN=
z9$QP~hM@L+xB3zDF{u3V@31n9{Duu!NGt;2mVV@*2<M_NwE#%^4Cs^=4r=9Wsyi#d
zEkbfcP{ljxf{Y)6uL#410D0~O1(&u7>j=@HfoFcwOmXz$9ga>qBPhdx0}zg+CeS4p
z;1hz5dYod}+&r`?pyNRe@y9IM52S|G_08gcvg%S_0Ng@U1cAu4(cRHFP9#ewgYxH&
z<GpK5%<B+I97YS}zDd$(2`GaAIzZjjGa7ix$2qIIK93|`x_vGS>KnJ&rLyWIv)lCg
zA*;yf5Vq-lt3*fN_7QljDnzQJ%R_K-g^kBdi^v^YF0^J6ArWx(9;6{=S3$yvfIs@y
zz!Of-3Pr2Aw)BNG9%sJyLsLq<cLp>yaiXz3)xpV(P6JL0sIdwH1@WZq22W?RUZh!;
zpkG-}jxHm?tUPQWDrv;?#DScZBY?D9(G!?1;xb7dhnJ}V3<E8k$f7)+T*G!qfkvX}
zux4WBXau-3OUT^)cstq!Vi8AxfpG+)%Zey7!2|)Vo2ZZ&A-Eo{r4jgOw<Q6PWV0qL
z)Z`&nF$q`>W>6Ng0cO$8*q{wqew?V^E!whFj~_qI&ClNeye^VxG9a9A!A@BlTdxlf
zU5h6G<xe@_msy20w2FYd7kA33EB3&JqR)VlYvJ4=*G#5@-~-fY6G+59<7lt`Dy2jH
zt@uFIg#%CyAzedY@dp-m-l^@Y({*f9HGP04R#^hw;i-`i2n(a5CZJE7fKKRVAdT#e
z189b0o)<(hdjZ4Z%rwF!sREk^VgO|uJsE)cnHD?@m;GaGla3v;wZmu}3aIU~TS=@H
z`JY8}E=bYBA^Loj=v(~xXBFs(fHn6bF+c`9gw|u|0XeedD_7ggs=9{7{N$PNtTb<N
z+nZ7L9AcOeD{@lRV(UNGuhfMv*tA`1U*+>y6)p~yv#DD13kLJ1s$=(C%tgYAH)l5o
zxQSaM*twYS<gc@=3gr)mq|Ya6oKm-a5s=e(_3yv$8!cK71&+uT-<?;NPS#n;<=J@6
z+k0iM`VE<{u4R&thvA~)J64%UC9FG&IL)4=Nnr!RU)rWiEH4n-QHkq7*$`>r<_#M<
zLs@ZNu{Pk%3?O^11_s)edng-X6r-b;Fb(D?u;EZxAh~!)*g{%3jA26EVi~EZth-K-
zI>>Wo^b!eGJaPhLNzZiuvg6RD!&qpR3^h+SDHj!zF%TVJ?2}ZL>+J-?3J;G$nZ<*y
zpJg{3hs+??6QCloxgZT`VC$t|mP{m4mz62EdA>{^+HTED(oeKP(OVhqMEFAn#lvAw
zZ*T7bQm`Oh;poRj$bUS4rrfG^e3@AOoW-wiGihLT;una1xFN&Vrd$U+08e!mt=o0*
z41N}|A6@qMljpv|MlvGo;7%)+M7y=ZiD=A0?I~NIW%X)hct@nMr74*;;<01Ws)~7f
zCsnN%58mwDR|b4Q7|lmi0!je%wV2rb7q^g5olxgJ(I-!y2n)K=xrIB~qD;9K6%w1w
zkHoze{hO_aXJ&PlxNV3hs_8<)>L;-;gcyD#jTHAq@%llJ_}-c9#yA#nek-<9DgwYJ
z0y&9wd_38TWSqvoJSXpv=Ryu==CYmglJjeu(ZfnqtcE=SjiT~(3@vh_F7Yr^^Ddtr
z7(?-BaNX}H_JE_lmnc>f<rFlZ>&KMC!thaNhparc`|TUI#uCxD=odw#{~Mg=IHJT#
z=9Scq{<6@}&!TQ3j3ekL74A71s~?S^hZK@JTAT><d+iSb^AIUr3s^+tCIK!iQ_P2^
z2aJKoBZ{bbJGtc|z9M59vY&;>{ni_lZ?Q~FUB@EK`O`MPMjLn^0t<j{@5elgKb{HC
zE)fwm8d2+LgY<`V>g03o5#`N21NJJLr)8dP4OIf-SGr>qawWYkA1<%F)&7S<Pj7E5
zh-2>!zw!zRsQ}6k;M7I_G=FkE_ip5i0L$*$UDSCzH#hg2x&c4xPs6{?;`yDnUAs;C
z+Ud2n*lEB3b{;rz0JSs3&(~N!>eu4r-P>*qt&cr#H><8`w46z>8%kO%H4b#uS5dhq
z@xB~^s-edAEnC$3wGT(-A;8&3mA?IGfQmGqtE89SmA!CgdZJ#7)#`#^V0Zt^DTEo>
z9NQhm)UCdvnsU!&J~}eA29>NyBDu9{1p>bQh1rQ7seXW2T+~^JGYzE<OS{jS02?EI
z45n2*;fn%5Sd=#5#+PrpgjK5O8bF*z3TgxcL*ADu^N%Rr1-6sF`yyTAOVH59@t4Z;
z0E_~=zF0?F`u(7MY&L?tPEJ}b4!Gos993(nt@ggN*;dQMLN^~kivyOKIpqspl9br6
zh*Y#J=(&E@qpG$?a+fv^L~#$pDa~1ZCD0mBy8uoiB1}Nbf5r;Smj}%*tla)KyP46v
zjSJp~R=QSL)|aJkdrhYe;8=gVeU~mtMfHwxG+uG$_oR@(^!$Yj0U&WBjLy(^l=|BZ
zVXa|W?`*-_&E~EjXCF@@ox4`w&(pZFJAv}rA9=$+Qf@~@?WK?FTt20GtGch!TIi#O
zO1HLed*0Q7_+G1j?Yy#q8=ff3IJ@O?C#-x{q3Ahn@mq27E(nK3B80q1MoeWp#FN07
zKxG6%M9wLv%d%NDU^@Ed*ra&OO-7g^Qp@DzWHLL1%r8MhT5v-Cf(wDNNr4z;sThp&
zu_4p?KvLPj&dy(AE1;>L(Hz7Y?gVr@{m-nr+L&FPFVfph5*7>Sn7^g++h8Ao#3GuJ
zZxG~+77pm}&zcB@rpeTWvixCzdA6c^)8!O(dUu&Cvcg!pP762P+wSp>?9$amIy<X-
zE__s5;pzKqL-A9=A~u%pxv_MM-+FJx!c!UNrcG|qQF}9awoa^nByVlElNy;GvqeBJ
zZf?$P=zZcbAZ-M0BzBDyQi-^@{6K6eL&Y%q`~Bjq#=t&jXX~?W+GK*3O}In_d<aTg
zI>XFdyg(9Y)+)Q7eo=So8j7uIZ-v}6>6)_ZTXJLp(>tz&hjBdbi6!D7G@%PcYna7!
zNQK%XNOK*u?{$f41#7?0J_L0ie@>M2+pDzPJ7W$4(isp$9rF0$mP_vQb2cD{4)2tJ
z8u+Fv5$wS(jez1;te1oJ7t+>t>sY4}A%@(vc?2<%d3u|R3!-d=s@w-Ezf7nC0VMiy
zzzHs5-$7eCVbCGF-KlGBSc9@IeXYLAoB7JUYm%A#|50s}4mkIHVAnu1aXu#%$?I5j
z$eZ)kAPERiUHT$|=Ga$%`6u=d1%`=CcjU0>W_}E2f*BgbX9x5b0fj+DTav#6Lo%kP
z;6U|^JWy4DdL<t<BDCM~kN7+ky1hC3AS3pySnn2Dcyy>g@=7~^4x(v|U@mvmXlUU`
zn21pN5{qX~-K2a~oq63h{KyFqmdMgbVW+jVRgjDcfjnP-qJ=8kvLD-9nZ|f<YGIB2
zM{yCPmE#vf>L;5=kE^yW-Xduq5N3dU`QJBdHTE=BM&?$Le!^7ViX0TAE+E>Yg`;|b
z3_!88w6q3za9f#9j*}v!c4osCXE^)@KyFK5T<%1kQ;&HRvTJ7)6cirE#qpwZQy0E$
zDq~$^BLm&DLg;Fx653avb<_Lz8bn%;#y?bu+`0t)LKvt7Sc+6F0L9cH`zM0s*BZ4H
z5l$&$K~+&-Ak$ySBB8Yo;VbA#2`!e{e2*vPYJgb^p~^X}9<qA%>Pd{%=)bWi^bRKy
zES?V*Utb0N`+Y(hUf{?{azSnlpFW&MX1;;ckee2N^TIz*imZ(1!H@8r(}#j9pd%R#
zD%a<Z#f5anl6&yGCw<wfk>qd%<gQ3aspxmH`1+Js#Gi#-t`ga;>R2XFq@wKDYVFNQ
zMwIEfimAN@R>({BSoEHe_nh@7Q#gRXA?2!UMD;M2zXdf$$I5p!!j1?*ZxERs0TC+}
zXN!>`p3H<$+mW1cUru7Gz=s&k3PmnUt{;^+dlq{|C4iN!7hZ1HjTMmo`e7N$j%SF{
zJfycZOxx)mlRRtLB{cw5Pm1S#3E<@7>buISR|VCy(sz#p4P^s**W|Gm$4G9;`{}y@
zDaH7c6o^_Pj1T;I9~31BXk&upmwh09@WR>d?*;{f!1C+S+bx9Z22od2i&X`~k?5Oy
zj6doy!E=3xqFCcY>;}D03my^nvh~y0goYi9w_dIP2Ds$|av{T4h~f|KX-@0pzX}-$
z{OvvB3xPPG(m;?5AQ%hsr1A<}d(*~^Pd|S)LB@X!_1GAKGawLk9qchm)F5yN62CqW
z@l;?}3{$lL$V4DlJ$-*a5s`!84=Uac>8WP~2VETMR~<YJJAt_(acC^pz}E&L5Z=tr
zp1>~UVuFq{LK4NxyC&yXD8&k(utBB`f^OKSo<AFaQU{sLLMS!JWRzhKI2SpFg@6i?
z@nNJE1Qq~*2g1-IEs7`^Y86Z}{-Y5?>CKmDF@iGT*aEz<4^OWO!~yId9{NaXlHcXK
zy;1oLkvm-vklx{52S`2z5*`oeMZgHakDvxgzti~d>p91|6H?AZ&+7e}7ll+`k+*{8
z%C3&C*ne9;`MMXNMqE{`;g@8j2Gh64z$HMXpT*|*r;XdT^)0+^In}7}HfjmL94*^9
zXVn*SQFnlQYw~UZkt;;ZcK7?9`*0N388>o~ECSg3+2;7>!c^@%9^Gta+}qBI$AQ3&
z8WcJ=IGYvm;P0zfL7n18AlD5qe^c@R|9eA~_g7a0<tYvJy;RI2K?Yj(qcBr&0CE)*
zne+dlbi#^Y0+p=E8q)iTYPH`>XI1EUwV)OFDPp5&;K-<?aH*u*F8@izUM#Zj2Y(91
z=UBYQ3>ec`Dhnp8)nP2lQxwprk2#-ZCmn+LEl{FTH+L}&pch;vW>zQuanfE=-RrPQ
zq-|E|(sryp0#W@hOu+vvKMny39yQ1WG0kCJSo8CUh(1`0hf=N%RmJ=NHbyrwsVzQ-
zG|bES+g?a3f%g>6E9Ag-$f?B&-#07;(Go?KDsYCNpsN0frzgtINKD=9reK+v?!{w5
z&=nx*EZ~MZVnaH2E{S1W-(WQB;!Isry?*O8lb_Zc6RJC9H1kmKn9x_ho!d=!<KJ#+
z4!h&mZ0h6d*U}8qTZq(SG~6OiUbMom0BS%z`i!wjfFyqV5dR!*D*?KO&LN&);P9ZC
zIciBU#00uLK7?_CwxZ%EIre8&f2P)hPMsxg=K^iBlssHXfr+3YIQV1~<*PqPC=}I+
z1F{bGr}L6})&wOK3^i01{V%0&H-n@CIk&(Dq7bv9$3+q8DtXQj+$2IJM_5F|<v7kj
zMNSV5{Tn(h@7(XvS;Ae)+iMq9%>%+QLFrIM;G_Z(BB>1NTg4uv)&L$30PhCS2Wp4|
zL@pFsdbjz%u~oM|2K4>#pz)a(Wur{pTTrPTwkb@?s8jSGbOwve{aynlD^ez9`d~5}
z2~)XDAT^J@R|k7%2kq*s-rhuv{U$U_y_UFf{h0Q~T{`OJh@Rr%KJ<CoWbYG2(HZlH
z6;T2qVF(E1|Dl8g_hK!dZdza3CCJ4QE`kanPQ~H${|B|EPfpwi$U@^sWhLrJ$a6p>
zxqaJSzPG0*Gg59vKEQz=#V$OLL<F+1$ity|PG6q7W??Oc`vA~oM2?S-d-CsoJ^G_I
z@wjLeTpGc^!GU8EO-N+NiDX@V5p`rvDk?3h*VgUeCIYV6*%pYez87<1-d$ahOsIsE
zjMA;`hH2n04EG`9o1TFCZA1BcJ_YGTs!{p&wU88_C+aExp<ssCCo__jPpdoB5>SJl
z`=ly0sOZBGh<+aP1NxxpDbvD<kwi&e@OvHa`>o+=#o|z*&PSShBR&!Q7e|G6{I@h%
z0W#Tz;4}ZaM?tqWdel{`SC4<qLZpXiTo@&c5Dc<G$cbq{Pa1njJ*42&(GzPk#*Wti
z-BlUOytDm>f!M2q=*N`*yim)004Stf*owkKK8aH-+t9)F{htej{$d}6H&Fr7r;c5Y
ziIN)!e_RB9DfmYrLabB(oXp{f(B3`qeNr{$tc&UvLT@Mh3p7*_mf)a+YxE2fHCQeG
zn3!*6Ow>bjWm%kT0q&7uXhf@u2q+mXkeUVHSi+7#nj7%10^invjib#&4rJ^bG~Z^s
z{pEA`9T(=DL9UGy{AbN)du5e(9KjthM<s^L;UwvK#H%*APH54b24`Tn@h8XcHKPL0
zCDR}HKyn0XBTw#xB(QSjW}q8jkV+hkBDc7>77fl@$!JdZ``UPoEM4UUtR^1RJM@od
z=qERs6QNYlRie?jzwg7+9~G(4<(o$Nbuy}U3}gP3GNF69ObtfEJ8V<>u?Phc$BI6r
zHklLCU<vsD)sJt9+O=eP4n{KE;{^Gz9~?!nc7u_{#SzjG$c@)Fk<MsJ)B+wID1Y^!
z(g}_O_uT!cT&;f(%KM~BMJRP-pczUldW}Q><RRzPt-qZ2Q_8iNntztBR^}vN50`-L
zf%fASDn`NmTC9}&s)v`1AoPR~_7W0{bar;q!ZH5`r{FM-?RGJna2P~QJ`XChO@q4<
zG1>&;P(V4FhMzXGvVsl~RVR-w4MNrd+!cd5FlJnYHLkP)mx+|DI^3s2aJJ@S1gf^j
z+>90ZJ)_;$URifwDJ6N8)AehR<5whG5K$IpB*v0FB5R^=2p%3>B?*!S!dg|6@lOjW
zo5^}8NTHSrb9e@|P6cEVx%|@@#-@tu3;rM&M$g}Dnf}5qDoLRszbQqxAOkW17Jddp
zbM@!NfXj7g=dd?;yETV7<BLpoM7$IN_S_R>sf5}`3x|*H!^@QcA<MaMmwk`YHInFQ
zh)<I8FXk~m1jVGW=jc(71%W8gGJ(Y4(L5&=6lPjUw?M%dM4;z@h)qyu@@U-t=UUZs
z_&+=;Fdf&L?x0Y{_w#<>>%*L~T2ep5SCZ-D2>3FJdk|0xfhZaR(vx5*`EH8J<saN<
z%lzhPj8$W*m)l4z%?x~mpjN--z*8bbP6|zA`W!$_J1Cc%f%GG8`{`D3&wp2TiG4TL
zbNi)swLOj`sazr?rSZ>qWOu(WBqLs2n-EgCqX&JKzBnsD@*zMHDullP%LGl`+5wO2
zetu}aR7O@wa0ha_5q^?afjSAZ`cTlqEqXOY!5Sw#OM~|m_2!8mT!1a4!bj?znAW$4
zIC2!xhi72AYoSBK<cSZph(4A-$2@YX0w5ZrOhGDn=-AYaZUOg14PxQ|pJQ{L5p*8A
zyB;L=@-P{FQ1+DI=g3e$q~kn*^MDjbG-E`a{YbkmP{$V-F=rbh<*Eir>K~O4h?NVz
ze35>@$z4~y#GceiF0cf-ovFa*GS$nGH&&xWM8x39v&C3$Tu2DS>4vR6Gm5I`i9)~t
zJzo#m4WYr2$^rzgK4Xujwu6r=IK+)}_xK~X@CUwqXaqvoavc|F4-Za8Tn(>GhF=jU
zWlPlnCU4@a=hU!dUPV>~>(^dRi-#h7oA$mn-N3CK{nMsZYMLhkFDJg;<)rw>$`dM=
zo~;Y)`S{_tze+{SZCsbHSaI(0x};5ab~Kgd>8WkFb2^IG;$rO`A+c!|J+U+)qV!Xu
z+&<FCBVZCb#F(o{4jwNVnG2P^grXNG73U?TZXg4)zBEpW!54+Qj_tKGK&Bu|YsE6i
z<>p32cY-?e4%p$t(;`irn6L5{iDPX;Lm&>3F_M#umX;MTwqb}G)dDjiO<{w;&Dj66
zNQtt%Q~>4*q@<=sL`UzFmzq@Zn0UrvFBbmhl}l1Wd|ESikBu1W8uGLp3=Ipg_AcwO
z$s4^Ypwhs&A@8;e8Y-FqOm3&7q^L~w0pLA#?AS41@%|`D3~LH$u*dwb-aE(El^~LN
zkd~JAE=)!SHNSJTZcL`EfT$Ap_*6JQCClo;@|@M$U~=1hys_sK;_kB3qHUb-5t8kV
zLM>Z>Du|JH>;f(C-`_{@dkE>W8?8I)nXlGIK_Hn>-9fEOs=d9YVL#^9v4O>^X&9h7
z24#4oM;2*RcXxN$2qiU*b64GvdcLE3&JPHQh<u{S@kjGcV~{u}wE~mW%rOCEo21hv
zy!6_dZ8T(9htR2Dqo#E+!m>V7Xuy;uCVN#mcIxOL)P-l>7fT1iJgH9g`RLD`2iiBw
zS%SzzLe~S7=t{BPVE=kGZN3PleUp=uVvv9x51_koQOUXsq@8l?U;3C4<08C6$V9=R
z`C??N+j#j*OUFXs;#a@LC?n`eQ6|WAH-AoO)J<&cB^t6kUGWVK4bPuE*{RQHZd6iN
z55loFBoE-Dxb&AB@|>EpUXB+{GmzQT;K`#U!T^ZCjs!=P>8Ugwc&31kRGGa)sFdi(
zXt6c~4fH3V=T4j|&L*GU2Ho4X&JkAj+O1v-!e<wBL;&u%p~gvf*hVhqFyl&w8Wz>E
zyhFOZ{}qd%1g<C<D6xat4DtjnDmzNT>}pvP!YR|CgonoJy!ZVpnV}_v*kG!fmZ%?9
zAiNuI8}SeY$Hk1WS$hK1_4>wkT88wM*}K0d8_{#V(X$+nED$1E>Qm9URq7Zvwq4fX
zL$idY&XE?^UqnSjrn00dSt4hb>fyp}Mq<}e1)WAea8)n>J%t5)QDf!RxPwxVG_*8z
z3D(dpr$4Kd&Yo1C7lP7}Rdm1Z!|i0xa#FRmTXwN5*Zvxrnkr1?UOY|16^Wt1cRp__
zmEJ=JKOl{M1SGC2AkhLmfu^A>hK=rO24LNXu&bZ$DW55Uct|J+5cZk!9BTNy&XH`1
zwEdLaJ%rPGHab;CGCLx|@Wwd5<R?=L3yTJX#c0R?i^weQZfrspH^di*Ha1r0g`oPz
ztC}mPe9YCV4y1dxyWW4<PmH5XZFtwPQOhh|2dd)_WIR2{@R(rtsir2AXSZ!?sCx`C
z<MADorK^UTac$HwR4IEhx_srZ={@lLj4^O5AhaBZxV*evN{fS1zw_IbS)?@?QE5ac
zJ30_UgiZK!Cu%rLMDxDf=GA!dxNN2a29mQR5)&9Bn%isYUO+8)Hx;HeudXGEPOl`t
zU<11gS98(^6{hD{LK#L=WlUNEDoRpR8|-SsN~!6082P8=T%|?J8LyC#N?7Y<C|>{v
zUZB(hMRb3I#L!r&M2MsJ)P^nCwIg_xt!jRNkuP|r=U)9C(XJ<NX5u;8e4JJH9-_ud
z_oUn%j;#kuR_2;8%yeP%Pto3mNTe6`G<$Y5jc$(&wvnZq4ZNk{co{QWK6q1^TYL<P
zm%NkWINB9BnVcn<<u=dn?P}6-Mt^0FZvB1~@`LSas8s3CiEd!32nepYq^zurT2>$V
zXVOi=oiEe*_b+2OqatJ`dW8BVZEbCc&h@a_yxmEq!4qX_Px6&#HM@!tHR&B`7a3-b
zuQ#0R#=(l0d@%%ly$bLhAL!5btGC6(M+T~}Qlyx~=d;luE;~?Zz!s9!2b!=f$yjS6
zM0GQ8@$@sj*&lE6&^W{92aR1*b3+?OLGw5yGh6K^2$52^nKJ!~RXlNbl%nt9588)}
zh*eiSxg!AVtWrVL?#$O6`rs9pTp|A5xS5)n9mGs7Qq3mPzYCN4i>cbFxb(b*N%|hD
zFDl`6_4S4z6-UR$#@;$82~vYOuFx5#D;ZIHWLlaC%o@0Lr2-ybe8^tRy;yOEFPfj?
za^l;w)i#SyO{zZeYY$p=Dsr61T~ZUK*i%R+l7w49W3ZSl(=?;(L3T%Tti@!?HC#M$
z5i#r-9p6JAuiyGrls`2!b=!gSe}G^e24mKZX-<_gbA>W0fe$dW5jzostb08x_Q3Yl
zH8dEZ%G7i*GQ<X>a(lo<CVnWrA44K7l1g@y2bfgM?rIPbpeAc(W(JZg5m;gnN^3Xj
z0u=~v@Vxy~8?<;jz7~m&A*1Ql?wD1xdX#)jE@rh?=)M5mBd!JjIj_3WK7($}-Ni<v
zJAK?ju5-oWI3P9j=S0n<41PCOM=?=INQhWp>P`D~^=w(jsd8JZnk)Kr1wstrnAE7z
zDze(zk5*otP&j@1v>JHWoE(ygZpd3y6QW#$vvsv=GGphn)b5#eAo~@>2rSMLILpAV
zRWX-M&=O9TCAIAHU4kep^eQmENWxm{(aBuYcd#b`WG*dgDEjoq#s?h$V#PjqEwceD
zyO(3}3kSnOf}+6bLi&WNc*q>JD8*+s?+z4CXbZfv$qWYFMjVe%t>=j`#f!*Xc<IH&
z$CqPi1Bp>3&`!R27kL=4Qo%^qrG$m0OP3y&a6Ars>|#N@A52Hki2I1Ed)_cUam1}x
zqRGJjbP}xZ^vvv%$8T4tX5+P#n{;d?&xP?YhG83a6kO}2{J38!H_xyT(@ydFiz(<q
zp=`SMO>X1y<L_-;%elUF4D8+etyk~xk)OY@<X4$0q>}VNLoX%7)-Y9$LXkc{@#D2p
z<TbMexZN0_52G8xS2CNB{`F>AvU`!$C@@{i|JL{afASGgN9y?>)9;n_KwOl^bG9~Y
z3_(pdro>Y(T(}^D$$xX*dt{;=oXO2m+$}SIc0za1OEwHa_L<L%kB?tf&-~3qe$Va?
z_-i?`s)Mk;Bp@OqUr9`+md#6E<K>au`i~rK^Tgw6@6Y>`=6Ar2a;q_8<ElkT114<$
zucwsSx~94+2(Umiu5Dc;If<GOq7Sk@o~sV)IkWii;X}x1hu^H<REaaSWyW);@!)C>
zPw?f=M61M{7jA1*8d|y{<7vps2&L#t!s;!rdQI;R@2F@?;On!m^U&ofbyiRwpY~w0
zx3~9c_3?RnU3eKq<%(DOGBP+A@oz(C3g&qo06n2yFd@ncm5xLB@C1i#SCOpWdF7Vz
z>vdpMT0<MNhC)nP_ZQsWdf;g@*TkRED%?8d%cyYJ=b9@sTT;1leVgfK$HiE-kWo6O
zK`&Gw5UVh>kwRH@q@blzdYa)AtNY5!p;vFE3gimBq{k~f!r~o%Ue;V1)S*gV7bvl`
zeI0R_A?vC~zxa7d!dPe*ZRX3rSrfRLrL3y8H8^mK{@I}$Sy@@K^e@k!KTk<ZQ_I{n
zdsMNa1K3oA3U`DKe`I1}Vsp<XS**^)oSB8iX;`fQo~HtvdRlixrRa}LgwI1fa?7^e
zt0`W-&c$_?t=zhP4LS1&cqY0E^9OHgR&0*o8yFbiSz;w8CwH!&eJ@_my~GOIdk+Eh
z>nKh;tuk!9X~Ukf@*W0z?H6X*BrGf(Fa@K@bBZD6n4K2hsK~HC&6qqRpYZ#&*Gnm%
z*+-5r^TAdB<=(He8NZW?I~vSiTnO+?PfbO*h!}kk^@)HE%#0HYW3=`LI=eG>p}Ph4
zr+;{As{M_8fuORoZwQu`M=CZRLg`G*SdP_YR%8nVFRc0BHWdHm#s06`n*Z|=|MN}f
ze{vxIQywZ@sMphII$a)dPHLHkWn4;)Y(4)IZG^ZzivU|5&d$zqt0_wg3wthV*C0Gm
z<`0V1I6YmS;IL$wPIW~GZ11Z&$@Nflj@m!e+d9-t(>poTC_L0CA(iP1+cR~6i$W=5
zSz^V4I4lBgq1ljE6oFHW?$LC_TWUv3k<XJ<p>*?R!hlmoK*Ont#$;O)F~xi1>Cd0<
zhEM-)LtwsbhE4N(yc-i8VWv#bshqdx!_X5T4?-AspM9&R2t3VL^3jcr#u#5lrGddI
zg9<p^=J=bMs;WDPY<E*}&8uwJZ7X~ZQ|yVk#I)`!UP*iZX`?JG`2Mqv!tjVM@%t!V
zmZR*Oh=KW+d-^Yfi2o^j;Quxn`ad`Fe=HP%(3tTd;k{tc^YLN8YdHYbNb=_Zy#@39
z`Kf4}?;r7@QRXTq&@msdA+^6~W)?d)jCAT9lCuYB>+VG&{qD}rV=)>#$zeL&p=o)|
z#0lt*O`YONSP4G;*_t35q|m*{>`H-$B@br}d_s-265yoPkRUTsn0;sS%P7ir^%pHH
z%6p}!GufOzTqd?GTBQ^d;zIq;i0^~Zd2ryu2}rnV4k>+m*K3;%qk&~TI+#aCrIDH4
ziG3&ulv!pE1#)HrT?o2pL9U51Z<zU$lX3aO0AfO@NoXE*JX8tEEE*>=*bc#1W|03_
zhL3g02%w4(&TYb`DoBbYf{kwrH~dM<8GW_7ERLz5<Fz0Z)x3P-DyBMf&bVH0x%<ru
zJ$h8z+}wO|eK03@KhrR*62VhoW=e(4)<wD~@~zfBcXcz<OxDfKTkS;9LNf2ovHL==
zR;H6sE-x?dX1!fUD~UKa_ssDH$Wo;b`S~b~AFgh9C|TKSt@v+(&Stu!i_MO{!TCcJ
zijNlm()Pf>K+Y080`U;zPA~G{%Dj+RjhseA?OhB0lpnHpKEnt%jSVeHFwtdQ-U(~B
zr|9T7{CS|VV^@QuLS0>*Nq*1Y-%K$gMuf6eegPB;uS}p%c!bn`Qx5O+-|@Kti~1R&
zMxNQW^ksofX<m7$V?B<l+5b4Z?~tSGNyelvdh5?>YU7G9gY*D(3~-s9IL1Ma`@5}Q
zArL)H;Jv246qEvcvFy4xxns?MDUj5a#&RwCK4?DyJluic4jDks1`7}f>mGyDdCjjP
zaW#b=5D*E_o3^V&0?h6CmM|nDJN7@mKrkO<&zU*|Jw`+R6Woo;a3b12-;zGpo|`uf
z;XbxWyE)OqLEjqF`+FEWi@qii<A8FAugQFR{vtFcCjvuI*WMMf<L3EJ+n*?26=XYb
z$Hvh(2@c!P_ce?32hj|2(WU)ywn4|X{7fXqiALVx*uRDSWTFl~>)2@zVLrAfY}AYS
z>@^;_$)j8U#;PrCkLYf0v|Y{N+Dz}=;vw^N-o>)hEM#gR^J-<s({|Uj1OK2@NtIc~
z{pBG9*h!Y<Dq1vi3!R4%9CMb4w3sKq>t`1DKFgOKFVN-=5X6uK&JuKRY<VQ@xiF{W
zI+RMKReDS%m!)91Gjg(pB%OccP?LahJXhiF!MUi62-4HqcA^tmPw9bTHh+{(4KS}o
z6DKZKXCHab;SLSU6=_-+T05Q`HqTqkW_ya@e>$Ks`kdmBa<TJ(@`ie}IP>%K(h+)7
z1ua`Mbf7hz2{cL&?J@+<W15gA!yq^0@FSz0X5{6R<Ec8!aXF>jvE7e4=8W>d#8=B^
zx?U2*-}*+b8CCq=^#7kz`2U|dtt&CQhpXdWyjoSye=a%)y-^RqilZ5TfGqa;@fEUR
zTcJaf`T402jgv8$EboBz;8s`RCBQr+O&T~$SUg6rm?QTEwxe-ItmhsnjZkU&3u8f=
zFl7WSI)xmFfJX?^Y)kh=s$>TrC1~4typ=l-HL3I3uSQT)B5wzW<wmf5gC+n+hvt1S
z;#TAg5nyd*e#A43a|YDZ&`P&Y2g!@k#*@>E1^_DUg0I+aObaQF)q!H+{P6<DhH6w&
zyxCp$QpXbg+~Z1-fTQ}NdNCixUA4@IADv;rd4@zWKaE>mS(1Q=Bw^#k;A^=6*s+rw
z?x3Q*D*<&WR#&!@6n`q(9&Xp4?Tdz~RB5(?luVqB@SAbi1eNBI)%stLlDDDq^Q6Y(
z_U+rM2`jK|yK9-PwEqh(y6&+lYe7;XhI#e!=+9vFpWPOT!RIHVil^Fa)pc7mf&2}y
z>2n}T)TE;AW-7P~f(LT<4nc}1R_F8=w>~+2S>((80|Vru*X$5au^G}f4zZ8HFXIx6
zwg*hLocG})e<M#TV2aeE$lp!{A36{lmn2JLX<xaN@?wrV05z~wALeF%-1}X8<-Y-q
z2--DU1aoEcX0v)XOm#V^fR8|IGUyF)WR~UNO(L|6zuB}gAnW_UV>}E^uTYe!j8HkQ
zl=m3(=V};-aqj`Cr4*=J2wJ2>c@i?tgMu9dGNdqy_g^-q&lBY5`6J6xpu0gROBkls
zL*_)=@&Qb+lo{@FV|qu>Q1zpE;xKLdqaz(M7l^w>x7InoftYIxhZ+LYMf&60gIy;U
zW(z;IV{fwoEZP@TMr`WBK>k8(GuK*^++1(I%Gv%|5o`k;a3Y=2bs>oVkIU+hd2q=3
zJP9n~(wa@@Ggg)b0f&*qc)?5nrsD)zg?JUgdy-I4GzJl`j8rB8d%Ov>4Ovdvsv(P{
zL1$>!=Mdvi=iMjSoei)&TONs^**_TDf19AepMH%Da-aAt{lRI1MnO0v<4h2NISAOz
z-$<->FY1H+``4RayjX(P@-e9FIA+a({W3I&qRx&p0|Qf^hZb6`i+6}&z+kq{0x7kK
zG@CrLY*gW!w~ynKx2R(coN9eG-OJ;{6I3RKhR<=(V0Kf{drpQ;g_o+X)gkLJ;^OL#
z7tE0I6RFaKRM_G{8&v(~zBQ{WrS?o2@co9qiEG!c%@upj74LeIIlxOPDClaldWlfX
zRjfbi87bHaxcA95K_863y*a?yXP}E1N+4Hsx0#ZXDmy(JyBjSK?-0x+VO(7=n7VJl
zY0h}vgR~FQQ};=61O;youwx#;ox<Psf|m9U0bDR>>N1P-9g88L{Koq5d4jOcjLV=C
zV}l+&V;rIiuf)?IesBTsfCN$UIu#}@MNAp9LYnwy3vnWhTq&1q87PE=j2NIWFfiq?
z^5KGHL-Xd`+q0!Lp{^5cGo>Ab%HfPro}@_l3BYumgV-`XtKoAT%X4${z$@cp)pxT-
zqsBclsG`X<HeN|zKMbC#o9qtsj4~2udnyq`KD0vPSd)2jc@pa1M)2(<Xv7rYhp1@q
zFv|s)k{680i~A5p=@>7etk`v7bW1Cg2tu&$+=gw#$}X>DzmIhIo@_*1-fX{EU%0;#
zl2te_0~E)k^rp9Ho8KknQturOZ;Pd;m=TC}8L+@z7`R%3KEM!FHBBx!dVB@heq^N=
z=kpgGY2E1GkvB6NIA5lZLqMfLps!asY*u9j3wtms8YD0x1)qbcUUPCxEY;dFRNXRv
zQC(Siur^-CFV*3=)w8^$lwNjs$Gox2D9(REuWIEPiJ^O>o&=!p=(h#S%p)5*6HOrg
zoV~%eXVO4%hy4;lf(<yc0u2MU@6UPn<)X!w?b2Zf(0t-h%0T%>4iPmuX(R~$`<F9+
zqS`=+4>^d50}Ppq#ePv%#>CwG9d^#$j=4{w^I0J{eSN1>J3JVCBJK#y0^09jb&c~I
zYJLe@n27XuQ&>c#mHsvb&^~HRoF(9MbaalP;q1?`Bcr38hOyP`x<i#?Pos*ryS+cz
z={6(>CaMcrl4I+{!fRapDkeX%7tzQbppu#Z>+|Vxn5PgDOgjUrjnS3$BXi0@gms`9
zK)kR`ufl!{<!sY0qf>Vg{YrxSE{2(~WBCh>i=||5V=E=<r;C9Jl>-|?RdQaoaBhf$
za|CwQBR*o!7WVwf!miXn*@#;lGSXCWi+rZ*O9Bsqe~e+8dQzQ{oU^w-aRtYe;vs!T
zX(5XY^SGR3v;KqWEzazm_{4sqv9!m=5>rz-_o-Nok%#ryYW}xJR_?fWj73Ta^jF(+
zM=No8vXyP{(2*@=nH5VZysmkL4Xc48JHwnaOE55Y@{I9*66l?JD6|j!1WoU<HsI(p
zNFmy~hTQv=!%EQxPz!V&^-#_d)GNf@uODalXOY4pyA?g33{0g;|FjA)PuBYhNdFyT
zk(yAzwn<@g9ZZ}7*#7_~lTaM+Xeyy|6bNUdlJ}`OL2D>6eEy;%+;cbi6*)%W#gL(t
z#8;99S@$*6x-7=Rr}f09V~&-Lep$e6(aDwn7QK>sKlAp5M&x=|r-D`znVBg@O#&L*
z3qM6hnvKCbMWEkttUWe4w6;D84#pUbRpo0%TkpV?3L6JopP(6#ufi22!N5&_X4&gL
z$)3c6;xq}iG0yKHjx6eN(o)-H3x7Ov1^7i$YJwC2SEH_@Zckwm)WJx&YlNUy&g~Z+
z{-7Y!Q%SHLykjHZQneQicc(-fQ1OPbh@Y*!_2|(fTiBvK)V#&{5oCj?rw1&~RW80m
zW*SB!BcD@dCMIu1(KbrFgU{_ot=m(dD;83;zuxFap70JWd1N-HA#~bi(mfgJ$gw74
z0vA%^n$zA|ye??;AD?_SjFKt=<UwZC8B$thd~xKQodwFcROzqBy7<ytX|Pzag7F|M
zpl)YIV#7h$|Cu7uJjDoZRu~0;EY*JEiPvF9In!g}+!Dq}FDYo!NF0J4?J9y|8dtjn
zqhG4q8$r9A7-S}qgz`vTB4mQOiAb6FHJMdA5|SyT*gy0fMCVU%kZ+NXY5ttufY%J-
zkv-Ud?x>oM^&3mN8CJC%jZ4h~4}tH|?B*xaugdHNBS=;FgN2z{StUwz1Tc62g*D<J
z&-B6vs7nm~ERK{)a&d0_0Z4u4E%M@8o@Fx*qCVmVaz{BhS_hHe!03{V2owBP(>Nqx
zPpH!_Ql%&UEFvKyf6}pqp9Krp;6G4#vh84{q(9jzFvJ>u!xnRGHLZo8wHW)4puy!#
zh4?@mx$q`LJ_p^tj*_E3gIf4~>=y|FY>*>mj$SF%1Se}q2$f=n9Z6b<6HF{-FN069
zC2NVA^cfsT5~mL$iP1z?pTyiJS^Zq^!MEO5y2xsw1-b+!;q1wkYK@u{ul^0A4uufv
z)R~cOBgImXnv6fbzCmyU)d5paSv!Vzs4wrFQSQUstFRGg(ELm$p^`Xgp+|oqqSo0e
zqw^Xmlxtd~){lV^DM*|&aegqMtvKZ~GK;;71{jn{O51SWnwplHX(#2UBA?MkMNvv7
zo(Y@Y25LG+c$G7p^@_n`7iP09g1kk}f9NlnnN@78siFOH=Fm>G<X7-#4=N4Wthz|H
zVEnw_HQX<G-s{9aKQ2vyD;xyT@c}aM2q*~|hib+vWk)0=@M~M7sv>5KB@c{*nV4A~
zfD4sIg6dA{eQao2DvJvR=S&pjN_!g1a4)o?T`=12FOoTC4kTpT6m2uMoAK6WF5B3A
zfu+XRa~syKU5m8;wU?90AFd-|7>f0*)*0ofFrc>yTDgvhrq4jtl5p9Y;GAs1ny?cO
zHN{D)kY)^WmJpVKc}n$(@BD@B+qaL&FHXqM^rHSRBrM#6$WGs&$*`VXsws?16X`Ke
zrxD}6{W3*iztpEG8<r{ShtfHg2kF>Q(PbBc`nHw?-_>^PtY#1=6lNCDboQ*!*#V&-
zX9>y5N=4;wo&{6^m_WmTBgkm$wLB6pz^Ly5hrnFq{n;yIt}wY>@sJLfsmHSuABL{M
zWs8B4d=Yq58sGw9F@(JSoWEM6D1yIt59dGWBum)m*p&ux$c?EqB4rrj>r8skcT*8#
z<ifHGq~!N4k}VA(17`S|<k(BDh?C>ix%YXV98*n|9wMwdmyW>u`4XC20LzB5r&2Ci
zGHr<nrkSxGlD^v5$%#l)4zuGXzpn^gIHVusNUHX<ZnTW)nrksQBrtFA5vsC0-&i^@
z(z-^IYwdC~VcD;Gr)VH6l?aX`rhE}5lq`FGV`_?)w)Qw$^LrrkeGICH6`Wu(loCQl
zH(?bdzg+RFT}Eq?(_5`<L_Pv;ovX#5R60&Lc!Y{z&Q7+(WmHSoB5HvEg;CyYJ^d3&
z=g743Rye>+gtX(a`t#gWZh5PPx=88N*O5D?>z4_VXcqYaImje9gdIqJF9>kYlV$+-
z+4p72#jI0w9uz}oU$Ia3xuyoqN33h>SGG@GTs<9kW;S0c(8x2Z3k_eVXiMf*+rF<%
z;DWfm40oWNUyRYntIKhs)BCeT5PFlyiA<LkL^MJE->1Cx{ril!bIS<8hWJOOhoo1;
z8i=hRhhh-6Wt*sF>&9b!3odW9)P)^YeVFn6Z>VozC2++u9Wxb<pb2?*0|bqcTswoe
z$kEKPPnwV#5NhMPjwo`YB#OsgK_0Ql1bkeZXMm^K;%au!JT9(EQsECG_&_(Y=7c5}
zhQfZEOKpdA9$?eFhY(J(-}<=?DI1jrEe(OOomnz17cNd4QwiNocE9)?juT4d7vlHA
z;8yGR4xBu~5LFS!R;G8qC|oCpN)iEq3^i1(5$+VxhTxsV5NaHRF5E3>btLu;Nu4Xc
zwM}`OL|!xOoSxg4H?3%1&ICYFgZg#%mF++_DiLGlo$OdTQ0X1#u92yeaH}kv1X?2H
z#G!u}-4UY~1&#qR&W5G;P9X>cnqUX5XA+PjbeSm;bUsuB^1=fw9-)$f4R*2TN+C{2
z0KqW`(g)un;kLgX_|`+RjTfh^78@dk`R1N`!atMHFl+v~C&<?U^sn*{1i1*sghxsh
z36Tx@ntHHz<!FS%>BHB-L2_Y?Fn6esS)3#2j*sNyICyA6p(VHtqV{%89OmrQ3e!IN
z1q)}>-(%>ay*#>REWcl+g$xWy-Ab?kfKHNQB89DkH3>-U(ALtjLAcPfxX`iqh|@>X
zE4~>*pha_|-ZJlm8+H5x)U@^yVva3gE8$R;gZ0(;>{2>C7k-w+`QvyfD#LvxD~D#F
z#?ymkp^{@ls$<wTv8NnKrtI`RQw|gb0IvtXmL~}WN(>C)S$9{6G5kS}!@5YQ)`;ih
zu!*yYe1x^B*k&Aj7b>znNC-5{U0`OXAQMrV-_qP%<B`ETcftc;(@blxwEE06c9qt)
z{6rOQd$BDocwgfC#(9FQ6LJq(wa7AZ^H4Xn@jh})KmDZDlraJxLU)x2k(qg{-Vd^=
z%y0Q;X3x!A$MISH$fz4R#2eew&=p<D6{G`4wIZ&)y)e)biD53x7(Q-nSK$HPL9b=&
zwkmYakklj}+_WY*N{P8;Cc-2cl3P>wD;xoQsm)!p2<Cx1xIZsHEtmkzgi<?5GH(M{
z(1XjCv+CRdRI-aaRG3G90=*!oErAsBjNW9-XY=6ntDYV89X|yMsp*_7^JNngMBeQ|
zj9e=oj5AavU<2+GJ}*9QV65|Z>LR@Jv@tkm#9;%OxJ%M&!W_jWBSEn-Hd;B3>3#6A
z!}oKHF`iij0axM4m73Pb8eo}Fvl=0paAsb7=BJ05AO2cxgG2raOw$V>g9VUcZWB({
z_!|Ka>w>E{R!_U_FhRpz08kxKWK33&Be<M{Z9)j4YP$CIZe#vo??Bs0E*ELB6KlQ7
zT#v^;_)XisY0dw?T=_ICZ~;oF3?4FUvm_>;l$EDN`2w#AAKRXf1XC_Ilxqi%duqtA
z`Rc9rrMY_vp!Eo^Wpj9cuAV>Q4uabR!ZbuE1$e0*Qh#1ce;G|u0Ya8r>fJaMMi`%M
zS`M8oc|$UY04vUq19=13h$+w!^fG#X+Sh_t#Z_qRZXapU{wh3NzOwJfHx8gXBtE4R
zp<zp`1s|O_enK3FOztHS7(+tOL*MW=84tI-$#|<CLYxCnF-G^(Ni9X+uF$#}#f(V8
zrs|j<cC1BU<q6#}x`UW%bqnLYF?g=#V9(-qTm@kpJ)+iAy!=)z5s-_YFEnFRT7h(I
z$>;cTIV*1(FURR2x+mB(sdD?m^VawWi4vT5r#Bl7dDka1eTEh>JS3sJh$I}BFa{@W
z2*!RBvfm^??VpfUod%67wQS)}?ow-=d*VR>1h7M;f#A;sW(Qmx(>LTk$eRE4IIUZv
zW9AI9zu6>=&X7Jzu*aKp5UI)6l7kPrvh<Y|_8uCkX=#MNtZ9&0aSOd?58SWo1-3kW
z&la?-gJ6e*`42p=uVD_~G=sPUnQb5;!_MpM;8<S9$dmv$G}o`5FH6I4?g${rE$bu(
z?|=*516ofR0d+_wRnPx3o@&jNAU%ohJI6>NpG3R}ICLxUl&975YE0fqKc<szuqJTe
zS$}pU1bazfZHU9keGp^}vMjwQX_TTbD-;eh?dIlVUxHDgM0K)^pfhVl-aiIdq6KsV
zWsxv0YTk722w$V;R#f{Je{$+eMIb8-VeK=tV3+=Ad^5Dq_E2HnISfFa9-MCW^793l
zfs!I!u<q4~UoGw-ycH&}8%Zf{0S7|Jf<L5^huX*#zzV{ibp|hvz;No$EN4Gxzc_ou
z@Lk*QzK5Qc*7G7#GY;b{0WJFu)GabfL9kQ!W2xTkYXTQ=;>eqk@M2vrxk*BW=c1BC
z!SKewV1@Eq4isKXB}peZt(&YRDdFH2e}fzelN^sA|4D6DR&u;=+Bjn0-jg!3iX?zs
z!yzq6IPVLL{6*Kq0~2J^*PfB!BVj#)W+oxG0}$Xi4w!xBB2!DdMW^Py2Oz~$y1KeO
z_E8Q)?h$moj*5xm#G1PVe#NR);FvxFcnJtjM6B!9!N9MV=oM*`@FdTXGoVu{e$EnE
zy^mDR==}@6eRgfc4EiFdK6QWpPK5rN7b60a5G#KQwyh|Ed|P&0?6bxmL}TEbviXBX
zZv>)j69N?Euq28M$EU)_X*)jTCgFB}f4|`OY_Co0c^f)xZJ13l7?RC2x`eBm9!MIY
z#sQ$@mO0O6mAkm|R-)4cT~TEqs)mt-1vHQnG!Z-i*PIWSznY;$2sv>CTqJ;l=7rnB
zf_9&)NS+}Ed}$o`@&sdncgVW6t;^~hR0=EbDM19^I~X=|ir8YpwZ5`e<ShW!V8ki8
zwW0oU%Es~uzbqTd(4x5xXYN7p%q-MI7f<r}Fyw(_fCV0kvD{@ObtK6*2_7>ClghZK
zYYB!A8siM)rE`SJt0Ku)z)N#c0gGt$n4*jyF33wN(f9oE9|>uKkT^MG<$E}LfVI#I
z4f#>JwxNw7hf?RqFHt4PP4XoS|HK)6<Y%Q5SkJgZduiNXfHUzkW5|hl78gb<0Roqj
z-XHG)&6+gn9AYaoYKKUc*aKJv>`faIv+^`HHaZ^aK$TR<18iami!LAjtSCV%#;kZU
zTyl{Ay?pddti9fxeWCNhXV(sfp7;1f{Xh#kO-d5S0F?$o{<yi%fpp@GEiyb8>9r3f
zS{hKfsO}SIT|i;2^!$K1SUeoouQ%xOi=wMz48T%WeIU9yZF*YuzV`kS_VtfU9leP|
zp<=d1kpsNAO>l@x4@@I#$|!S|7(<s$L{dC4+fsUY2i@C@a;3l-u$cjp%*_Isz8l2_
zU>Zs2EMPNeejEe;nVYnfv@jpFe-|BK5)sX^v@k}6uLn5SG&Q6x({t_Xt{90tq-?lJ
zbff0Jc8;}Pya?*#Vy(=)a%2lJUS*&w35*~!!vi6}ess%IiRr{)aR}CxQA_b`dw_1~
z#e<p&StqBygCy>ybt4M<e948e)mC?sd+;_a#(w>;uUN%H+7WT=aCpBH@$Tn(2ZD_)
zTX*PjZJ%iCrDLScxfg9rW@*^YNP+DSbr2>4+Q<M(g>u^rxzEh<$6n|mCl0=*rf&lK
z#()%(^dVlOXA!w)9i%`?3-5{(--dia6h{SRZUXYJbInVeE^5K-7$xQLm+_w<!Z&E6
zOW@6(`;1}7{Os2jo=&bLo2Ic8r405@4n^l#CbzSD;vEio7}}(E?dj)e$gIm?ZM8m*
zHR{-&mWCr2Xh<F_46L82yUVr1Q_30`wIP9dj4nK0m(mrJ4a6b|BBg}|fp6v`b@+Rk
zO;rf)&!msP{oT(1&CDSQ`C8KB4=OpSV5*KIDppO0fxj8q{PV##b&4$QSaJGTHo1zs
zGmFU6RG)+K605^M?atEPeTDrlsbV-II_&`|!Ul!R8FXgwc_MI%dq+lJOgL$Cv{wM$
zDMbscKqb0LTETLIYJrC{G);RD*U8G0VJz4H@+jhtk?`FHjy)5>$Q&;5p3K4*KlO%5
zAoz|MR`b<Y95w6PcSsGrY<bj}F3?zCdm#c}?1s9SYT7ugQV`)_k0A}((w8~4*pfYc
z|9OS<x(^*`3bIG|@9xan_ek{K>ALdI3co4;Y;^GGyI@7@#}Bk$J8v^O_R%ir^Ye_p
zO}%{Y7@MB?oH5=izG(;liQR>rDs|DnMDDu2%kuiYsT|Msq3LgGrVh)sOwW64q$yY0
zR?LLd>T5FwY(tCL%%Iah9IW99EpfRZZ5k()XmnA{iGC>5HeQdr_SJChgE&{5dThPY
z>C?CCZK0Z1gHhxW5WbLGai#Od6r?O@ls_+DzP!ct`Pv=gDocMme)6QYRM01G9-iZp
z;O6+}y34WImuo%pRHy3+H&p^ti@@p9Mf=HJgZ*2>uU%Ua9TOu<X1fT1aK6W7bO8;`
z=UcqIC`4GH2AY<fA!qiqvq1jmkC79U8nj2VIY`quW&C<Rb)YLT0-^k$Xgu}@&bKom
z;N{sn?9y&~A<ZO<UeqlN3Fxdm>PnevwolDTQnj~FeNV<1#idz|RE7a2yEz#e8oGNV
z7k<44Cp`k(oCmMFxuu+L+ZHL&Ezq{RYnQFYhX}O;>K_8I?J)G@ACk_llL*r|DN0Z!
z`zq?n>Qrx<3iV>kv^J<){E>|$_N{c_7wZ(Qc)RIg-Q;2<<+n>%i@{sDZ=tTG#odfT
zaFO}1CpS5@@Hl9{<r_`wnMv)<>)zrdCoB7oJu)v(4=O(EhajwEz%hW{>n%Pz%D1r&
ztz$cMHtja<5S`3MU&Jgue6gmfPOS(Zl~bgwKmOe$QgpQ#ccp~~01468Q*c^=<N;Wh
zH`6?^SgZq>*RYe}_Waa?T}y7inZk2Se}9JFC<h6*jg)=7yzkES{!Sem*RWh@I*NZr
z)A^Rw9yTApuU|cuDBj~l$|ikRw*?_7@4$tQ$BhFK5O)dU8HHuL>COi>=xGL7wWo_R
zY)>x_5=mT&*SmM8tba8*c5E3m8J1J-LuISbH`lID$*#YyWH9T)hqD-Kx0HgH)_&^3
z6qf42EDV!Rl!VSZLa$fm+3mTmg;1EGTmmIX<jwEi*~OOh-t=4>5+<Mj82m|6N-7ca
z<GvuEFSHO36h@)$ZDr+3${#0BraSp0AAM2)A?7zPR>Ate$iPJQ-j9gflixpw9p8HB
z(r+j%B^esE2<iG16dZ;+u|{i{SkW&@=-Dl8Z)ZEHo7}+MYKa(4Kq>HAvTPLLQ<I0F
zNlu$*OPU463*pYvB}<m@rKxfUd_`L;g#v|~ltVkuy5@$yOXONKf1<*Dz^s9na@f++
z^3k;Mjo6+5HfRo=&xC$rQkwllZzZTdK8UoIQczjEju}763<d6hx22`D&91JaQ&U?i
zg}qIFBkP)}@qsIQyQI_prAwD8sH^WWN*36=_pq++4mUTq^_w^Mytq*O=8dLKhss&g
z0VmQEZEhX%B}iTFpe@g)RfO0^IhDU(;-N&bWhGfbOolJ{IE(6;BJU#VQe^QU%f7J;
z7BKyNLviuRO(EDxyuQY>s1~)@%|VD|2?ZO`3)<xm;!rVJf3*V&3IE^@D1Gj}9qRQP
z%UIYY@8sr+`DPi#m&<fHp%?s#!d~9t$jp{>E1wJuj{4Bmwam)O>I?KomJ0|7MAe((
zkN;6dTejnnhxF80vxOyx4Gp;(==y%x26iLuJKEdZKkDF=ZRLOg-GamF;Fro=M0DP>
zmf^R|MfCe(?+y>gS5y<LE?|<X<zo^2B-%+=Pj9&UPps+nw{0&9<Q&jO@dW`J`Y{Cb
z*HOMACRrl1g;Ps8BT==M^;w{a(024Y(XDE&A=_5<G3$A|C}sVoO$OF7r<X@JoLW(*
zHO!VR71l9T8UO(YO&z)lcQr(rDFqnB(rm|T2E+Hp1`3KWG2APb6p+(sJ`In6wS#Ps
zqCyi!?v!NVEc&oN{j~dC(s3vuX{4#kD}LK%upqB(Al@HWR2yu4PCl~s32qpH!$*2v
z9y@Nls?QF8cGIoomRC->NIke<wm?+oU%q_#CzbjV0veZwnuU>4->|jt$P*8#7)}(i
zPR%hD@LiZYu&`klG)X^7-&+0V5Aw6Pn(QUBeldT4|0~cG=<e>OnB?fT-R+(-vYoJQ
zR@Uswqfk~`QvW!j!oyxLbu^Zz$dbpks9P2cu*U8C`7$)l5BQ0|g8nHlzmmd>aSEKs
zj0X==3ZQ1+IWi(}u;xUO6lL|QRcy`6lDX3Kk{hIZX`HDSIefVX#SVH~l;p#{-|XDo
zdiUA5?7FT_dEU*B%B?4Q{k{wo-YvEcfB0}a<++Ro#L72pX!>ipUQ#y9|4oqZ5)&z2
z5TC-{XnSxjb4QmzSi`CeQLA=4yF+!WpoFre@z*sgbn@J`QP>t{_YZG|X02-M&~4Y3
zrMa84xj?ZH@hZ}eg*wLC$6wUCpMUuiQIJ-yRfN(F`1fTdyaw#zc2T#hvx<Zd8cF8$
zLwm*0ii3@fH_(qmW?i)PQ`JWc=6x6YZ?0K!WvjOOv+A=@1Nw?W35wsxK2N%AU9-a4
z7bnCb=)Mjgy?cMf&Xa30tG5(2);GHfQ04%M`K~#c2J3U9au(rAL*~o%xWl_G=Pn1a
zorj1E3Qql|{>26oU7<?l#k|65s;WIU`YF+h<4=Bi$g^+XhO(mcbLrPoIhNeAGF(I+
z#+w!&8(Rn=ge4T{j3#HUd?E~~wXM)Y^jchp*+FGnD2FvPG<<%kX)*=l;k=lbSkuSX
zXVWfSHEU3kgghLr?ZOw-fi{#u#@oTCEObz6ungz%3+{(fK!DQjZiBzCU3=Bo$SNCA
z)9sxCnR|yDwe@3oY;30GertRUB>P&RN5+?yiy<G6IyeT)olbS)iX;wfBzDW@B=0Eg
z7@-~P_PcHTc6ZCx$~F0z2$O8VNfq2@de^L^wDjo3i_uN?NEq)!(Zk8y;xA6yTYG*^
z66p+4i{0#Rgh^7Jh#&aULPV`XGeQ<oZn?W7hzsgH|DYhNTnQnlA_#v`<{USsrCq;y
z^A%`cON7p>AcDNsHv2C?z0u|A-fr&3xEn!1tiXWQQVKw5PQ;WP%@#AE?bT(@SiHS^
z_r7qw6~A+jUymTWT>8Z|TDBy#D7tNRBln|SY7Xu9-+rUO+EY$>KDJp7BJWlqll7Fd
z2tf`(jkn2R#g&)+-3}F(=4b5_CC?U6_MA9M4%_hc<$5+h#jBawxPpvIPd;WN0STEc
zU2=d(vfrngu_DW*2yI!3u=ER{{PU30s9574he?Vu(8D}#bs$&I5AJ-Ipx{QRrct&V
z15Dg^N35u;!pOitW3X>6CCqanQv<=zAqZF;7jUK06x7tNLDkN{$Y`kvo2cl%eN+dX
zKzQ1lEjfUb6qS{iVY~(gR*8&gKT$XfX%L0jdJ4qz&ciMLj8%ON#l2HSYwG*#GTa#=
z(CE4jeMV@pJ>b*Gd?kFaL1q0)FKBpk?%w?oLCVuR`=}eyN;Zm0{RiOkE>D9#V&lEG
zIdy6ce1P?rkH;lF<}~KA_2?(<?S+v(svF?S`P|Y1S|tO!P#4))hOwDg{`JnkQ8&iK
z#Jqq@M|xV^|Jrow7TIdP&pEb1e>{Y(#Qzq3py2YdM2HZ6*}i}4nhfYAL8RplrjEp|
z*R~t$rc!QKrhZ|`Axr;9+S$uNZ;v}WIekDvyu9k`8#@4w@T%92KJki-+%r2h<O5{o
z94ZI!5|?aJ49*~}1MTAgCP00iojv+Qp`fsE8BXZ=HCh3(S0S#KZn`KfEqz|&3KY8#
zuxwa$b*X9UcKm^C+Y>4SVdOb{#m6sbbY8!8>rYpYE`e#m@F9P_IB08K3k%baJ#ThH
zDVoSWuAw~jZUcDC0$&ILJcI;$`T4K;`LTEvHC8}z4O+45;?-7PJ-RbN5nFgaX63L!
z3Fyr{^C3Jt$>RUl01h5`S*jM_`LXHglPW5kFl~6^^%N?2=QY+)G%{_tpk}=6_KDvU
zZhL#LT)J%80gTxVkBscXJe_qC9EUyF%buvk9=9rwiQz^BbX^kR$4{$Py+ZO`RaNB$
zinW8!w?~jc*UjF2vnBz0%v*rpucV+N@jKM|bEacdxUoArK?%Kn<Hk$y(<$$zZ-fYA
zO52vqvqP1^&pFJXZf8E;9l(4lr{R5U&OzMfqne&Ad3Yfq7GD}J*o1=44Jq)XH<Or^
zcUVzzLl#s{`!5(68cKb!5)WAit*h2%3v(Q}^EJ``S8HeglVlXdam<&7I8rm$$iTpI
znyJ5-1{#%Qq()_?R;!FCoJ%cw(Q2#ItfW%R*_(tft<>R5Ry18JHAUUrFe5a~GStvk
z7?t_*i}ZbP^%r!1eRjDI_nvd^x#yneb8c3~`XT^g3&LAXUKf#lRUE27wTrz|3_3mU
z=TAxT*-+o2NW_Z|0LON??>Pi_HBdexvA9*MeX{dCK+ddyfNqgIO<Y*qA*oKNe>F6%
zp<Q=CaI*!O=lwx~_^y?EpmVv*Lt4AsT1bPZw|B>oEV!F%357VS7xzy3$%8*<shW%+
z%6qTS9#<P!R)^zveRI^vD|n{`B_;V#cc#BT6>{@BS;gn`n*r@NBN&SUfUWuiF%&mP
zdzj{I=pWc{r2y7!tBTD)j-DAo&mq8EQxwr+eEHoV`RoXN!g8mo#wuc}WOwf5qRtX4
zENm&tD_o3xkQJv?!w;@c*7?T9#R+k4PLX!GashDlSmU~G*z~2nP@unBR~G;RnH0-?
zr2i=yfUmKSFF1HpNI?%sl+pLti-44lfTn^vx!WVMeNpYM<H+!G9(89h@=HrSG4Xcx
z_RAmz7`+2bQQlUg5%;vYm~?m&o<2Tg@T}cN-Dor^t|AY@#YXY7HgM&ao?9#Vl|Y3H
z2!0`p!&w3`x*Vs>*<BL>TY(xdnaCz7O&fe^qF1am7OlctsoSc+84~0fH)CbMl$u5f
zg1}SX5~gQn)?@d@Mc=z;DNAsGAVmC<=nDv*g)E23@edTz7)t*x-gKK-4?Z==E1i~#
z!^!GOr7{~+FmWafg|&Ym_#eXYV%{*|Qw8B;75>nDakoN{$5*_06SMs-H^b~1kxw^0
zO>lCs#hLk<RO<L`uxZeLxL_fyLXU+p`Dr<`{1kFx_OGw&3s>rxY<9oi;9L+rJ3Gsd
zin2{)A1mP`B_%Z@54CL=NMrr!7Sc3Qk5CjWQzmn+aKDRUWmh_1Kwx-0Q+ZjL4Yuf^
z$?=Ja6M_}Ik%xEpH36;Lkp5lqq}2r_P#>Wdg`9hyj+2hei+sb&0PEj^Na|~>ot%Br
zktCDJE&zYa4*H0nAT@(7ICG9q=v__wG8#rILu~lEP8rYr@m;6WnWv`Gu}z5<08SDF
zKvWLwdiCDty?O(Q^wKhW7MH)h$sE|euYGkKk<-yVAmGhIu~K610~`+yzTBOHsc>lw
z)@U$@3BK`3zj4>bM#Q&;5Ni!J{29)9Bcr1nRRe{Dzn#dX5Preq`P80u=&+$GRtV_^
z*_aUs;<Wg3IM0#|&>BjtUP1Jqg?$g3E@73(<QBwC%m~4kRaZNKk*1**S+y-Sghv?Z
zxmHjtT(FNAV6FwL=LP(I<br3Jw}>v**15$x=~kP>!&Jj8{q4n+?C>+Y{_EH1<DNk*
p(_9;Hqs(nD)}E<S`~NYV#pYO8rPef{<`c=~n>Px0wHp$%{s8i;Gok<h

literal 51370
zcmeFZXH->bv@M9aFcxM&K#2+pB?<@%h$481A~~xB6(oox$wo5hAqf(coDs=c1px^n
zIfIDgBw2FLt=8?=WAu;rdi1^Bqx&+f65*V)_x{3KbIm!|=Xym(e8*OrtrQd#J4lyB
zuToHKvZkQeaO1Dd_({9}>mT@Q^9@OHQT&asg^PKP_>0o?vg$nw3OZ-vzjfYylX?^s
zhbc&+A_~^Qqn-E7_bM)~P0H3q?jgTAyiSB#RpZLv52!>$t~{pNB6iT+lw#i|s!ah*
z*<O`rBF^-3zk0aM{ncM?kG#s`*Kb|Vd0735WvedLa~9^u$3w=KmL6$0XPq75>3l8!
z!y%-8K;deZv7kjl!ctRxRy^6`q}Z<;!~fbzGUoq&?=*Gf{kA{<;Jx(lz@KmLxNYS6
z^KHvsO07TNzB#r#|IfGA<e9D4{r>)4^yMGxe}C&F{ru~uKd*Sn_`mkSY_6{_I#&#t
z<Ik`=SK(#zGy9@rW6RrQV(O3SNQGbgbBW#265$)p+hune=V)+}1crP<yT&&DzNCzW
z$N%B#qSxO!t!o-P;?JoWG-&$!HKuM%?`_Ekc?^6#PI8yV-W&Mrx^o~>@#<B^fJ&Bt
zN{hPgts8#7(vRVP;<-y-Nd|B>ZOCd$*5nxaDX4a{>c#7`<JlKyN1Bxz;}tE&a|VV(
zZO3aDXGb<PrQM&_7o2U7H)xFa<34rD&(AMPcx|C3NYFO(9KEb)>UKJT2Dd&uyUVS>
zvG%MH{L<TIX7F{|X93B$xVVanimNYqjm&EV=WmsIPz#t3UeWcW+ETPU<sNE3r>be$
zs#j57enm;ipLo+rozlVb=S+Rc&ApSiKDzC*8IFr-cztn8h{NI#UiRhV0qw+f8#dpX
z8*ODjetdgwe*0Kvo8{E^Pfcqng^LCwYlSKO)i0G*j{hDFrxfO5pYV#YAj9O^4^OtS
zkXl<?1$sSBnSb1;d~1HZQzYR2XlmI^isOnTi9|BX(V#hf>si<Rfsj{y?di88Hf`H~
z^wg<Sy2t0c9gD=g=}(Y?gdH8qw<L|Vrit4x&eW1wBrh}#^_k@;L`nF$RQNle6sr+l
z%cpl-o_wW8_VMAdUo_XW9m|MU%ZQ(K^e&5tjEr=u#43<}$t%4}c=-*UV-NRJ50C8y
zYpYAcT?Mx9Y{FYtS*3$+b>>>^+x=&ae|4wIzsv2oYR6;TaYolnnH=i4dSCj*KO)9i
z>W+)`VHa4fSZ=qz)f;X~Qt$Ytk$&s>aAU%OyJqvE2hW&ZEB~Hse(rgDg!rz4)x{C2
z=B3Fph6I!D!s~nD$-ZG>DfEIigJW6UUfHX+6rxrBEV!w|?`hd~3C=w8qB|RHIo5W2
zVX9BSa`eSHdhe~<wq=+PU2RNIu3<l`TmJVBn$wr3`>W-}#Gc~DBR6c>Sw3c2Ic90t
zoUEBU+oYZ}<$i#x>8)Pn4X?XPb7R9TsS(|4^!LA08FggKZQ8VH%KDsHUZ;S~Ol;<z
z*6?HU(XsL|GAC2`e23~|48N7QHg%s+OaD?AC7CqGarEdHd{9HKg(0b|onK8l=ya{`
zG5K_zvYq?(@2}{cjE#&Gb>2x=HxTBSy#Iunir$u;hhiUX*|m6L!t{);$Mch7SsiBX
zvujVb9Z*}FxA&tjpso4y$Q0Vl*1dyWwiAt*Rr6N8fH<sp2?>d-1_tqM8HO>62}-Jc
z8k_;FGQqLA79$3Dy5Z)OFoUMVxbNR}S=iVTv<hs3PTwYXmv>U`VJ+GF@}wAFhv}nP
zD^D7pbc+$Cf*&8Y8FXZ)*45Sd`uaxVO?tYzgZa~+>#O;?6S3A5TE?hxf${ulnUM+1
z3b6rjnUF?@+qZ8UbmnFhuFR<yeK%kxu6fCQ|4<o&V*~MC>{AXN9z|japE(pS7x6T?
zU`{PbBd0FDy?1iZldtP9wU~*q!-sZ?U(opz{x1J0C4~rB%uH2sZ7E>5lcbhmzBHD#
zv@#LlEp!z(yxw0{LZa?RPjOO_@aoUr7vCyBe{KrmF-$DN&XwdbXgC@zpp&8dX}95H
z12wgvF2}W%SEPD8QvqgNU@X0!F?o&Hb&ATG`^>|BHm&r(G*NR@7QLFm{qc89bn@9k
z*>&dr;A`g(Ugom}og%ZtjTYFKkB>X9E)1yGZ`nn!fG5i7wVm&@N*dzS%>CK9^{|}K
z&#xN{7kiu;lx%El%BK)v7R!WJ<&LE4>g%gfPS`Ka#l^<PUTD(E`ZKRraulmF=3@>|
z2;R6Dr<s?@(^+W0^d^EoK`Ci?KC7~ieSU2Beol>B(%lx#ntkz1U3LsJmMgQ(;^|TW
zoSNZUvT}0Iv6LdQu{Ai962C-Czx4I-Vbbx?<`1aUlV%Vwzictm<Y}X6>Gmgy%!xnb
zlVQxUIBzz!w&TU;ii-Gh)8&IY%f>ZdvhVip$sE7tak4G@Zp3WX#Kpl2{3D5J;c8|0
zjrrQjd_s2infRaKCro1gV<&#yzvJ$1<I~28eL8YB=C?8o8f98?A04BUAF8c*9~m7j
zmhTl4Y9nFQZEqEI`I*xHxP@)E9u1NDTv;i3g?TN;Tnd|w>coND56vt6PuL*HCl;MG
zAAFT_Z(tbvrKvVTyw5VPZ_--VBUP(9h{xS-L->`z8^0IKyH8KlPY16jlgSO?m$r@Y
z?s&;(qU6IWy_;UXx70J^c0DVpZoD&(DYs^nt7v(*+zNj8HX7SK0UP=;9Z!MPM3>93
zmy+JUgT!_~>_;dgLdq>^+2AuLA3R?ULzq#m4|7<&Em~O>CM+CohPaU#y*8Is^h7$g
z|NHmBukRmGHI6AR^6qi<_%qfqth@7LTpU&wRqNCAtLv~6_8hFfTVOk%8Le&Ivk6h*
z>G27(oSB(=S#gE==S<>>w`1z5GnZrKA{gWOn3#%#ge*r@{)cT5${56Fk}S!YQ?i(c
zIMkMQQ+7QQIXQQjJ;bu@Hrb0!a?AFEhrP@8yh%JMHs5j2dnbd?A-T@N_QfW3lPAZ|
zI<79e>?uP`d=sslq~`bK-{?ZzW@IGu%7o)u+G<ypN!VxpfkT2zqiJoaI?mYjJSnlU
zm(N;_H;6OXM`9!skSZ?RFcS!&Icu3XJKqo|-<WBno}`lc!RAF!W#3gx%gkhCJWmE;
zp>Me+xkIdmi%|hub#Ja0ryDkNay%F{%Spf6E7p0pj4pSs&5$X1{%s{^+OI)L(#&g0
z8I#fdlO!o9yX4D}^I~d*mZ}zsh=F^|qv5@CG^Rcdx6H!Aa_qzjX*|-E6s>~OhE0iE
zJ%^Ao6S|XV{7<MyS90b_VH+Y;lIw>Q-1nbITx!9foC~+fvmA@puMSdmM9ioZ7zn=i
z-SkYN4Oi|U<A_5EqOwwbv~+P(JDw{lDvCrlyLYcK|NcGx5E=eMJBj~?$ncnSEk7>#
z1EQXN75r#ERCft)kjDz%L+2LR%jDi|J0U2z@ZINnrA&x`;x3_|*F<Lp4(+s`ZB%w}
zZM>#sH+hN3dlDoPr8+O3gTa1AE^y8E96gX&jz%&!Qz!@f{@+>e6+qfM*XB3ZFCute
zrRBZzCH;1Ny7lA@4Eu$Jg#{w6nPcC?>s9(M7Bj5AN=PYGQ;b&_ZD;1^SH<upj^~bW
zdeWU$O1oLpge2kX?;o9M)E*DGmD}g9u8^Q~V&A@fmo!X>l%QWtb3*0Kd6S}*O#kDm
z;o1%hmk?L4V9?BQ?+Ms2@#<N|3X_&2P14v%_1{1F@Z9`-Xyr%oE&=Nw*Dn0KGviKt
zI;gXo?hl-#IBe4q{wK&&{7(U5s#L_UWBBTC_EXjh9F+d^ZketB=U|zI8o>6^?-8S*
z5cQ_|&qLRLF7m$$+p~5rEDVJ8nG4`g2BM0nv;1`c7k$87?5vThQ#I+C{9g>~B1x`0
zoA=B3&3}#?kA7)PEZ>38A$#Z~ayqPgJ+b!)K=mYvNz2Hb@kR!d$&!{;r^UK~vNmI#
zQjh2LLk)uS9eX5SP?$=n71(4nGIStVgcpnW%Ji=;1Fzufjmes4sWCY_DS~~Ga%&NQ
zPU}_d{k1Cx!`*$KKYv|SC54bKflm$)TKK-FZ(v}HX4gTc-@tx-gixx-$>Fw)gw^E%
zVQf9swj#%(jOqtk##v`;kF<Y?`_XkQ<)ZV>C(BevT1LLSzUaEMzylGzqR(syxn0)$
zsNAVil}YV;)jaz$L#@+mUELbJ^2h2>wQx`0Fv<!JKGbPDQ2^*`(;s-VqN=8{lA}3w
zc_gLCKh6+%y=i%(aEUYgr`I9=8z)Yg4}Nh8aE;Rby9yz~mcw7<(dJ79`OHQwZ$yaI
z4{-nL)aNr70hJViUoHCll!sTBCYl}BmbAw@a_T2UJH{*n3>kbKI!%jr$bB5P%p)=f
zP#o#e<{ej&k$q8J#49EYKitOoB`K>bKJe5{v01voN$b;A;~KML?aDVp??-cUbDJ;p
z1&nmBty+nOtxb9jA+)(?uPCKx(M?*GetY*|LzBR+Luan76lvyJia0*@9=J=xg(Bo_
zQ`+tN=&kCqdSBZa&Z&}b#SE_|R8>s3n&M95?@#wH0;Qa`og3Xl%}Ei=9nUP_<RjwX
zQ22BwUHoKk*_PlUvpxwTG$7^q6!(1TUY+Ax88dN|x3O8I^g2BW7!eDYaIW_H*S&A?
zab_02h7GZD>uP<qWn{ek{sN#>d>G-{wYsvTsG@R|WPnKaB=O(n)jel~co?{ln%O>G
zBg~c6o`gy#7V&dkWywfnv+eG&5HDY=KvQ8MCEcQHhzJgpg#em^jmp}J_+X~Cr}_Ek
zI?d~)7e~`-DyrI%W9G)%V^WG%)gr{b{h5E281*sUimdcYuMpScr!eSsC9Zomd~ScM
z=l(DFwwWCc;=dQ&mSw{5wy@ZF*GL6NN(1uh%4*S_R_+t(nNr@utJwq$TbWI96uf@Y
z&(~M9Ba@B$?t!DMCW-I89#!}UvrkNVRXkWx=Jy*&>v?iO>q?AF$Y}&EL>lQ&pFDUr
zI9W5kr;Vt7$v1+zlQ%Xt7VYaa&U(6wfis{o3TULuL~CVnR(8>=a&2{9*wALEE{Z_F
zSFc`OuGo9v0O0PdsI$Id%m>?;{6f@Du>rSh!=C`2upbVZA|8jwzV^}qmVd}o{L@vZ
zIF<!zQg{WZQrqOR=RBi2k!fb@B)Ldrdi$B$sZA=Rk~HnV%O6wjVJ6AM$bbC!5j9EB
zsheJ_QvpSfH8ZobRg%=Rno2!sncS+4&CJY*lJtajp+<nFrRqCwz$zee)t1U;+xhVm
zNSdL7wo2Ag6sGLii^B;-!7OMyH<(r<B#)Y558ZBxV1=Kp$2S+PE+(jD-Wjsm&4;2m
zNi|I@CnpCN#vgXnIVikN8?~L*y!&w<rN@~`-a9Rahkml08*9tp@aga?Ny%|ZKn<W;
zj|%76N!HO3QO#8vPohYvFIwuH*nN=HcZpW<c=ucqP>jY1%87J@K(#F6q-~tphwm&L
zx%gDn{5Y+SIktT%Ptz6lT<t4YuZ9O`JE)Qgv^3IYnBvEb0C$h-gs^_qL5`f4WOBH&
z*8NLoEl1z%{)p1^{{8!lLos19s3#4<Sx87qrukc)Idr7m28&*))svQQ^9jCt{Z%em
zs^qtC-=4-(R)?Hb#`~{eQ*{_;;fAKBrcNWN70v6`gbD(Cu5X&f#nnF{e2feuy<P?S
z#>?i$I};vk*rKL~5vH5jPc!N9srf`!$L=}7m8I@Ap>Rvd^a`8c^_M+Rf$U%q(jc36
z+s{wx2vC$zGg()DIvDZNIG0rBMd!n;Y2EWg?aj3ZpM{o2x%KMn>J*9`>>E?GwF_)!
z>#(w8{Wz3E2cK~~`S$GwDV)iBkN)cN0yz>}cT>S=`_96}VGhz&pkvuj?RlaPdE-^O
z=8Uk7H5^?yjvY%K&sjox7Ekvm?r~{f?Cles*|wic>rP{Linefuai<#U<a$(5>GuX?
za82RwQ%vGs>Cwu`8gba?3)QH(uIlSYgJvN(7%@Sc#(8_Hn)&i=T={>SYvDJ!KvX+u
zd1C>1E2^s-vCxRx7qFo`Wi(Z%?DUP2zer{CA^?ZDVZG`U^{nJlZ-x|h#rRuQFHW*^
zayBhZ6s4S<$WQxlgFWf3rr>V(3Tup8BCScj94d$`pp|GWq9N=KY4ghzrghh1b@}a4
z8mi@6r$+X=M)Xw%Y&qw;?fW-(t|p_bPNn{}p3q>L!B5$=e8vqxpAD}>HjJ!05+UZf
zb?J-$c?+ZNLQUColaGUVjp7m6H|KA(Lg@O%>qJY_q5_T;^Q0NBi*oO>?%hGhZ^ryJ
zw<$&2Bx!_5LCp5clVy7JZ{$L^#QU*@VxW(q&XtKd^?hZQdFatDp*P>Awf3vG5or|(
z0wW`Z*UZ|MSI}8?yvFvpG`r10MC5_c@{fzNL-pbWhDAC5SzzS&%A~hrgJDX+{vU7a
zrt+;o#6+-#T3<MzVfr9mDJdQ-(n!ugsJx7fOi3#JSxc#jg85M6{7JFKBz0vBP$Pm`
zEcTG^NYh`F{yshth`ppbRFDVmp#&YPAFPeA=(K1aN=*Aq5D1^oO-osfw#X4#@@-n$
zMXxX1rN8*CZ?0_r1HW|zuy(eb$@><_9Fc(eF0M44GA|`fz{f`7ff5sshukft2DzhL
zBCE-H>{u<qb07&1g}ZZJMGjC*(Gr}U=oSvQR|eDsem4Am4I8M-eqPf8z&S855TJ%A
zo-2HJ`R$E6ZnT$ENymej^Q>+M^{h_Imz+7@cQ?k$U8JU_Ht5RFSw-=68_WAhvmAYD
zx~KVa;TwdLMj|y6{2nn71SQ87X2%^KlVsbTh2O3l5YP3NTtX^MWLOih8b8$d){k^)
zW}C!x<`_zpcqEvi_=M!QVlCh^+K&XBz;k>KIm<#<ByKVEJ-HJPp(!i8l0KVdrEY&h
zBm0Yh7|2NeqVLHm2ej=@el@>T^7!kGvApHQkrX_RL0fv<Y!Rw*{~<@A$&x)HIxbOR
z_ZXMjUi;2#h)CRF;A>j33ZK`^Z)e|~I#;a884xWSmMmnyh!RjtLRz{JAuJhnjKP;z
zBG{TrIrJN8BtS>buADON$j)xsK@oHAk=amtR?2f-=0I<u#iN`S<1MMh@u$w7&8u2Q
zxKNu0V{sF&J~J{=mr^ftwtD$zueV6EVs0|Yht)4G;(GB@rTba!M)VFpdtQzB=pu_%
zIWst@=xc&o(JAlCPa%_c>v)_*?py3e7Fu7*AbGCz;Hm2$HYRlBO%&3aJ2JDe(UPK3
z50v&!g7H#N*jt+k>{NOPJ7#e8N6<-~rzBa~UFzMa;wwvNhHP&l*XUzai;T#~%JPjg
zr|hB~NmNbyP-+8i<0Y2Wlca?3<JyHCZhfGTj#~*DXSIXMJsoaeVA}J+$>L5|erx)z
zTE@{S)H0lDcZ`jbc^pezsG?uJdS^b~!GDVmEcA{XL2dh4zc|c#`I*hz4_@mqwtClh
z&&({*tUgAT50HzS$FS+Rd|6MibEWSZV#dQ#Me4SrWEI3>+FIM|NEAorFP^?}n^wnT
z0hrP-SmtKAUboFi(yNhqqwe!Y2Zn@pejm@9;3Z1|4_x%0_UtKK8h1CKi;@l#>Wm+G
zX;SEVi@Murd-|%|;DMh4reDv$TO>+6rcb)Mx+>if55Tq>E}#hbC@7@kaepkMIgxm_
zoC{4<6&*SEl4esha^6-g0|Pft<o)Ao+?lJYH$64Qew>wSV$yyjDa+qh6H@`g%ZE(9
zLChSs3az|m(aPM*eM>0b^jC_2YQ(m7h`R%38g}b-7ur+VD+w<SMyzXQFccmToy&NX
zbjttU6Vds*I<1auHr*c+l0M81^yYXXo9$>nuzk*6F0^K|Hjqw{Cv&g4z@s^ybriKs
z@6~q}vXMT0`V{@<%|D#8Vm^_!V5>hk9EpjHd;yAMvqpf4CQ_F5yFPo_Ox((xivTCN
z3N`C;lOh#mm&&)3r3bysbZq8EZ~L`o8olgZMpC;6ew&&UjeH{_JI*-vg+ySw?Jt<;
zrUXxVrB9FStG2!Q^GDD1kra?+cXKpEbY`WWIotliAtU*o)Tc__dXYr9tOUC@Dln&n
zIj-hZO(CzjTQ7jSiL07Im6F<DG~Z>bv_+sLK`p~TWRGB>(e81c8znAI7C#HaLhtue
zV=%AkxBB|-9a$MycR=o6H<E~OL`uB)bi3=BCPea$iA*%9nbkhBLe!H}D30~s9kgq=
zLVc#!FJ5Q-9xJE#GB-$sovO*)Y}Op{+FuQ425XxH>||TA?zG-majXr$bY$em%Jait
z96S`m_vFh8&iZDoE-x>0Pru|b)Muu4E~c8Z{bZ$%B2W4H$@}-`r9oa)Jv(x-ihm$j
z2Q;k|aDFwYabsYGv}fIwS}FNc5)Bh$*VyGBW}UMSP}%)>a&REHywLKMMX62lvq2%_
z`}5k2bDH^W>~$MW65CO@NP!4rR4ZiMoloqPjAdNxqW>leQLl|A{68JyKHl3absB=u
zPs$2xd?}O(lh)@51t}3skHCZHy1C{<yG=EtMkKI{eb{7qodJ>Shknkro2*oTW$760
zF6zb-?={P*Le7%*rWZ_HfcW&izkjoa2_m;Ab3HcjtFga1-_xd8PfbrJX(xl(xaH>N
zmUtfpz*~PHAB!(4?rv^Xv(4Hj2#&_sEqYtGZuKbZJxT9f_Pwt!5QIk{iV1ZKAa<^6
zg81C&_GqAwpwZDg35AGW_kMg8neGeF4uXbJ=KIyp%e(C-v7Za9z-_6f>3j08El($L
zW3}9Wrvhrj$S+Q-AU6<nd260k3YHn-+KYz|*QcSvs!!DsPw3dfVE1?W4vwo6T?I)8
z8L2gQm*aZN0@K7IYef+Z!XmZJcx`p1zg||D2ZbIFaJxe#AkXKNu{?_reZ+Kq0DVt9
z1!CLx@84grNcz73Ngw#|;Y03|Qo(0xxi&i&Ul;Q_bQ{lh6Mz(-c@h#)G!d|Kpwaln
z-9+Khv<&RtE)~fAakMR?vdzDvLnF<!=Yl+dBNLsh!X~$y%ReU_+I@qA?+|PgN9dKl
z4b>@9zmw}wcTo`$b)<mFu$5EWQnIsK?sOM+Zl~p~itj}(-l-xUdBcddJMx-@gc~(9
zzSgvx-o%~Yu1DLmYG~H6e`-ij=KAUyW3seag8NdP@q?eN(#4){Q>rMt+=dTW-#<q$
zpJlAc^l4_IyQpdzbqej!&s#}X^gjm=%{y4n)QVSE_;FlhrH^=CzHtH>LK<4lb6tA7
zAMc&?@*`Sap1!?1Q>dFk>7iyImG_H$M(WqvS;n1jgq2E9y;rB-=l9h!YU0}xKMm=v
zkk(4D=uAfM{p2gEi`liKMWUm5)|raTlwH<$dNKD&_koR1fhYe5)qzqKN+W%QdVMH#
z*B$Ln?CKud&cjGY@i*P>{JuAqV`?LkLm&ve)eCA_hoDB%z6m8F)F+kzmA>_!M~`bN
z4^br++MWID)XmS^Rfr`*6ajr&jw`cHeGp}CG6&KcXCE0{{J>(}OYJ=|_zflVK^>27
z7AMr<c3;jgfzhtsr>sF`miLPz4FTTvu%WBXw+fbtY0WaxerMybGOL`>fnC4ef70up
zIH)HUln#e6_8JiG#K^ZhvhOyu@7>k){6Uw`p$WZ&*IH3N%BX5mhg*sq9Ti5njvjqO
z<|bEpP@k&Epj%m*&l--!g8xEA?zWruR5Zo{azH|vs=6H$qR+fZN_1%v`{V-aU&aNq
zN`?;Lem-~={_rpQ=EhM`l|ZbTrd#F{U7eS?=>*J=TG6FudQMPkpzPb=aKIW0Z4Eo^
zV4a1@66$sCuTy<SSqu(8->aEqtDpVJ>cxD?{9HFEfOR8oRu8kn7dL4oD5qo&?=lZu
z1CB7P7Df$Lo=b22bzPC=Od;qkLsa%RS!F{H%^tmzBFbWIUt~g5Movtzk`fXhSkvu5
zeKP8<KT3ac!HxO-NWc#Zqkp{s_Vy5FL`LGIkZHW@t!Fh+qF$@^{vPjUJ$r9=ZL`-v
z&IM)}Q3k%Cl>is}196wz*vT7B&SlolS9pthyb^?(n6V1vIQ2M%fkH-!*}Ad^c_pjR
zHxy!Tb|bAcne)qEq1R4s&P@q7(JX$tW1E^R>PE$60PG{p_h$y>MnW?JG|WivxKmlJ
zd+EGSmQ5%RBu$5{Eyq~o+=mSK&C>7zq}%SxW#SaRN-8S1l8R6h9O1gVjWuXqCi`<n
z)-=*$JNLAkyL%Gv4vQigu5PM`C~;kd^g6b{=lP)MgSlsaYKiS1)61<nH|>!ziqc7b
z+-OpIilAXdD#s9g*_Ca41Lk)ZBcon24@@cU`G;Huh=$2TP!e^0TGzM1;v0uN?Gtw%
znl7IoC~9*%EK1sV3tgQ|*-TNVhA8rWu|HcdwglwAQKK+_Yz~-O)b5*BsE$C3m301|
z{C$mFKWP5B=JZ?_b@X}%@t>L1FHY)wXv#vg94QfQNx+ckqjr${80fMwrK~sAIKs!@
zUq92NoBoZ)-Mgv#)MFD|^6h-)kU^54y|CMH@Sk_T;u%P}z5Dm8G0_rq8Brz4qk`ZF
zMTM~?pZuEJ1&Ai4Q1Ue82kW_ir!<m1*PC`|RkEbeT`4w`o7K)yNUL21gF8DNEfb=)
zy2I^()mh`5KL5vwm{u`N>-((wwRanKl_YiDBAfSc9+)X$xb~`cd!dCrps2{m<jRxz
zg88m(c{>UNyf;aBl?HwFv^rOMNSKPlKK$kL=TuY5lXY_w-6maj)6(??wpR5Z=<#^{
zd;%ZaU7vrq;`mEvnM)Hv>}tu#4B!h}!v-FYg`y?*MWJ&a41pMw1QAYI1qC}JqoP!~
zV(M=LWxgBhLYm3ROv+bEQrkC6(np@DY>>Zt^#*7Dj|&M^PU|*Qq1>RdJe^Y6_m*=D
zAiqvdR`GlZSHoQ$kF}dV6Gy8Mt45sNky+j>RksfXR0uu(fx53LA0YCHXLr_eF#o;f
ze#L0stp^N;vJXIGM8p-T2PG^It%{qeE`PQIx=UYMv`RYxtKE8_KJQTPnoqMp{pT=k
z*FF#Qb1dyn<k<dl$U=K3Z;I;4{7_OTdUtT`xeQDgjt~8(y~x`vUwWP=B24%t_bN%Q
z0^MAz3FA(gck{C-ZNv_ZxXS#<?KI|C2=Vvd&%Mywp5>yuF=b+2|1^_zgzGVyCr_R@
z%<q?NNb>#=7rW8qxP8E_-T9NF1I*zmbT#)jr2w`vbvnAXSVeuTQ!0HtQB!u0w&0UK
ziQozPp%|PbmM}kncS$>~J5~<r6qE*Ry7nNzF7FRlijko+v_V#&bnOYg_nDGk7+T3d
zh*c=_?UAOWBb9K0w2BO%5;SR=0c+2|OB7>j^~fC8E5#ESzmcFr1Dy}d7s(1Oh@$lM
zJ{o;9%w8$Ou(=6>AkV#iDS~6bQ-H*7s_dOq=|hdzJw?!KJoX?T#nL~k1Vg(!G7v+k
zOej$T?-TYDo-wl=^U;=*&<NF1FqQib9N5w^{_Wd0mv6ME^gXafz66+ryiQchs0a!b
zvd^uWWJteINUZT_dgtQTKt2%Pv@C`jYQdp4#>umR>{o|~U0=ynl!!dzt7?ob*~Gin
z%dqBhwEw*2Xv=l!UDVvnx~+H$_4>jvdG*XYsa;m|-fW`|)1C831ykx}fFeml&h$1%
z?<^Pgp@JIbOX1FVzE?mgg?N6HQwm6^z|wyay9YwhtM18hTaPS*M)n}-RD>1am!=sE
zOtHVP-Oo2Xng9kx_Y23`QT%aNiq#oU^6Hj9bMYElgA}<g0F2YyXoPx3I0WwY<mD@*
zt~^BcQmyCfw!8Pm49bEZ^H^7bI;P4!b{txTrbVNo4Mh9XI;GqD`uc7I`8!Mm3a<>w
zI!t(1gu{P95NQ|@ztGU+(b3Uo-LIjLK`ik#&-eVmZ$9{pz-nV#vG5=of)xsyov#W!
z)qB<ClH2T=*?p4TEHwKXYe=HnXXyvFS`PQJ-soO%%Se)$;hh76gF?0$h&-9#s2*&g
z|AJJS3|d4_Pj3ix&2+mXg;Rw$pmjr{YJHH_TU}C#Yl1bqy_sqkcirShrF>>K<>V}d
z$jSVL{+AAp;x^w-->zd`!BBV$aB7zxG!&?_-|w!{L^a|nA31U~<oGt<Guv)Xe*4&D
zj;Xle_G!r6;On~wL<Ubc=@ugNJAy=qqu}(NmVXH50(I}adMV%YL0j(qC%SdzFg_Rk
zHM31$NA{9Ff`>y{qXru4FPa*_<E1y1Oa5H;WQD-CqZ*0i(`Mf<&yKdrg9oN6Q|dwm
zVKiO5OIW2I<<NF@0Hva=Xrv)2Vm_zxx>u5`-uASe@TK7~P^qt7K6-FuUI`o_k3H_t
z#ecGMA|}isw>#f$^uTr$3PH)rDOz6`ijq;oBy<pbU$O<H-J#{_nr8g#dQ$V4<r2$&
zjz=FpT)?6xF*q)#g0PDQybu8^CeqSJ!)JV)L>L#ktxOI>|Idt;WY{z5af}A2Bx`pd
zhjOxqVduUhp(~YpYK6({$zeV&g_en!#F1WBv+j=(NsLqzM){DvX0X{|bWnjr(To^L
zaJ6x7-dw@@jvQ`?ivVfz(IP~vYoeh}ICBF<MT(hT?;S=&4ZcoupU7VAbW{-wl-@lc
zzjpF>!zhMrMverH=w~aas;b&FgPi`se_pUQ1;uAhvn^xq0>&;$CUBnF9wj2!Uy<@$
zL3(e{3PPkZaW7bK&Jrp-Lg@Ej28hJkV|e<zUu^7T5Ahkb?X`Tl`;*n)dSz|<eYNF>
zCOF7)$H;`C?QtSo-JX}=^rY%0<%B0k&!Msn#1r_GdeJ37S+f}YB0@GV-oY39=FJ!O
zdDJPY^&r;zw7Q`VvXF*`h8#$d=k;qsPmpq<951g<cz*0Lg?maoqg%o|TlKB3Yh-WP
zjch7KL;_G#tgqF6Efg^5UqF5y9r`&?g0z%zy?C?XO!CC!xHO~WbI;PP%uSiCIrn0C
zLV|*5-omB;N5)&`IB-5qN5#3IVuAvP9DXd#F4l5e+5D-GR=QU&0Vjs?jJ=fF_0cNK
zde0LrK#mrChW1;bhF#YR*;euH*`;&r-t8tuok4SjTi73=3?hU}m^73S^}ufDx-9W`
zF=w}rHK7o==s(-({J^2bMOmtE-%#Umm(Q+)1HMXf_G2oa_l>rcNtYD*d}~&6?GQsO
z-MoV)7IrZ#WZ!?K8G%*JueMP#=l1U1s}goSYRhg4ieDR>P%E2ez&uBzlHZfNT9>u=
zs1eX{llgI`UORCe!hdw6a{vDQ22d}_USWgECAYe)%Y0tGOaR-fL~e*A?ODN^Z@N_j
zhFJ?PqwQ*Is49E|0@z4F+<I=td1JhU9ssgbLPlneHtvnx!jwzq5M;I;XXB4PxAS3q
zV0`n6>i2;GLsXySNNk?e4`QD19}N@G6Rw`9JB1OR-mn3TTUhUDY}T~WEFUYcuFeo+
z1S0D)37xq0L8bk}%b7uxFbaKZKb(bq1C@WxY*&p2h67>~!A9o7FlJFoeKS_VkG;tT
z3l{w0byAsZ3AUwDvXNVck=>ru9<frHm%P;yTAOpno@Ut>g!x51F~~Bt6PB0xzDuJp
zfRk|7gzL6q-i)NT<SJeQ6Z^rwW>fE^b>fPWR$*4MOW#kA7;VQDMHIY^glPeS6?U|<
zbm8LE%Jl&l!nUf76S&6j9Bd0)?;k3okv~mP1T5oR1v7P9Rm(nccBF>7ILKU@&Cuaj
zj!m@hxU$40XWw9*p~x)Lz{|?UX4vxPdQ&&BK1pL_ey%p^hqBf>3P$mVS;0g&$}nnI
zs++VufYA~9R(X!kq$?4yT{wEy8wnP=!uB&M$SW`wrmya_yh`snGh=S}_}jxx+dxo;
zztSV<KEsW*uS6bI6nx&Z&l|qGF6#)$bg-M8hHEk^CdTk{FhBGu`RmtTLqefRKQ;8y
zX;O=ux;$Ak52A_7t7&<8d1PfSQk~mAj?+lhuk`kuIB}wyCW;s0m*ICUz239yS?fe~
zZ$log#iqO16;^*R0{W|pV;DI3ru6wjOY+S7EeyUKPs76*4I4zWzXzI_je_%>dpSU7
zG-#POi>&cfa{>&|EGSps1xMTs5BCgYuAS=MCJP+N+2K{o6%ArNH#9Tv1V;AG$DFXg
zUl@S>q-oU|wU0yTG8xmezemY;pJ6-lR!LAO?5JPNh&pp|ZVXmlSL>nY)yVaDD(*^W
z!z|Ny<rL%2i4MNjE45HH4D9*FThq!W&g|4BcFeq`nwr`>+Z|<jzob8iC=vofAGpZ1
z^YFSTeHcJOb-&g5{wJq4HQ5!EPd%Y|bmm!&KwoY`-B{VdB@k?woKqU)0GVcGJZ)se
zl`Zs5bOF;m2Yd8o_-mlKlr1iKJ1*-yNgUAi4GlGxUSjoMPZAZ5314hW4dzgY7BY_f
zkG1kG!xJ8WI>6WqtR41_EyxerIZb;!CKSbB0d+C#gwuj!rGZD(7=&Sy{O8%VFqyUQ
zKC(ert^}p6+J{1}8o{R;U`Gm)vj_9^V1&1S99M^rynWap`=>J@GSkQfFCmE2=y(t$
z3&IW$+>dW7%!eC}T^lX5@N*#B-G<^at3H8J%>W$R9gmX)^$>E_DhP>wQLu3q7Ugxn
z9H8ZFthBvrkt0|K3M%JdL5^4K@AVd*d&!4&XV`^^PxsGfEQbUs0O0CxAKjBy#wV?-
z5O1o~O$zkt>g!j&&5m<v3$M)hXb0lce?1DoXhI<n<clcDfFLj$zHv-My}BX@jKTB?
zAew*Oz*4g0+M4SmcE@QzU!_2TgZug8dYavW*)+nNv)z>Kr58j=)J|Ik>$4}be4eEd
zp;4sS&KnbDjtBqh>1lvi(1Wsuf^=ssXHa>3swG!Bu1+&d1H-Dw=0jpS2{r2!!MVYW
z>z$EeZ`79lNzI|J!tY2g9W>?Vx^R^S#uzLKS@84ow|X4nuQRa)lg1BVstU<)s4*en
zxh|p5KbzcW6ZV9?2o4PH>0jmWEMUOA`zb!Y=7aZ^Th0Nk213T*pU9skxRU+Tdx||>
z3ye_tP0VXfeqsxIvAk?&*oxp7v^1VqV?u|N#kt4XB=1f~_Q~(d=g0QDqB^g?%uS#r
zRZe`YS~DmL<z$Nm-~hkwIbiRSJDs_W*&3WWRg=9pK-3fU%cSk@1;_~0>7T9Vw&jP3
zkgG7gOkJENwwo814PiRCKNJ;Eg}EbEmNe8vFtnvFdMEk_9uUJ_pQO%Ll&K1wEjr>r
z=nHzhCS8Z_R`uxKys18>2A1&N;Fs5C&9kV1RZcd+Hf;wzwMnQOBqlYtu8a2Cd)q{1
zT`5BIBACJ|Y%OUmtx$_#nACiHd~`r8=pi-gegveZf5Ua%<0RBoZla`RVfjdWR-ac~
z{<r(Vr3n*eU_}x_N0ReCA3A6KkFMtA@UJp1<=&HuhB8n6HI^IQAJcw`4;h|a69Fg|
z8>)hMDwm1s%j!XvcRMs$Lpo@kTIIYhO|YSu6nGcd%Tb&kg?owcq_e^@IpNMrR!*es
zf`{m-rZe~s;kD&^@3JF?vJdJ=g$da+c4fl!xiN{29;{%=F9bWiG(W*$N=NwU74=cv
zuB+_8)Ld_#Fc(;vQ-0&~mWoMCG+)|P>IaQZ6=rcy<B~m6#*t=f6NLSlvpe(I@?L8R
z+RXe&D4yTqWSWwmej2oPDED1!pQs)!;E!$DbU>=F6<N8sxW4m(VFrPQ9lP^Pk>lE`
z+*lfjxqvvGw)ERgb|!EC+1ou;$VOktE(um<7VPdeS{;<+zxL$H3O4Xlqlhavj9%7J
zc3er}zt_Jpu{g_q+t#h&##xu`U_DZz>v}A9xX_h}L`Bz(iTEwF<wNs`5a7gO(_`82
z$W^)MYwk#LTK@`kN~)}z;D0kZV5nZ{zeMZ9eCpaeCzobTIm#}0i$x12x<LduSzt#s
z!0E{rZWJb9F-++ihv(318e59EFw{(t5vP-3!1%~MkMtqh{N?W7HNB@p?E|nr{BDa+
z<N~u!a`*Mt{wkhA2e$e}c^gWZFL6;VacUXuBR%A!Zy#LRa3fn8u#Ite`cm=I0`=&j
z?G#spI>L{L5ng%(poSFfB9{s_Hnx%H;`FtI`ciKLDlHxtW*J<DtKc^F{@uJ?9k3%N
zZTV|suj!c?&=y0Gd%Y?JIM_oGhY3B9>?N$}0MEg?0EUw{9$N(7gPD3c^wl_z+4pj%
z`5QCH#)K1MnRD9?eav)_fQ7+3=Yxv8gb2O=xXLRmcxC}#C%Xwj>fzU-g(-CbE?}+B
zd!L)S++q=8)pZ{ms{lfNBKI`t%R~ss&Pm0#xAkv#wKF$B&;fiC3E(Te)s=sr>{X<^
zff_bi3svo-2o4R1hd@wCuO@@RJvanNZSFnM4eP?IU5oLAB;G^-MaP9o?T1a>@TNi@
ztC}E}sxZ9WYuN5_@Z^PNZAbfZJtU4K)VHs)xF<6up-pbkvZ47Tv~vJ<sdW0${w1ee
zQ%3$|O-|)<$t&WXG<uzzj|9W`We7g_Is@|oZ-@8TKZ!M|@cAqXs;~uP7FFj9>?S`R
z(6Jd_)bSRKzS~>sXS?9G`;)`2%udt|i!j<03n>hBT6HUet&+Vg^<ZPJpaN|C@Th)s
zS={S)>6}-+^+90=yDu&4#{xuW?tSZQ_L|jr%{_ZJqLrX<ChsI%F3I&opH4GDAkOun
zzaR;?N4#Oc9X<r-#4Vd(7U;a2aDd|Q$%lMiJL%8eLc_x?gru892!j6UQ9pE=;P|nj
z_~2LDW)l~7vXAyjj?JvWDLA|cAp&cn3QGU5)q?3iwX57?8G4obr(1Nq1HtUjKyg9Z
zlLm=Vjr>Ye+vhq-^IpBn8ZMu1y;&&SJ5<-;()2`JK~?40RT*FhhuI6PsUQqh5U?K<
zQfVwnB1|V$4q)8&S(-mmhCm&7=5F{<S3%yViVE(X&c(WVdVyFMFA-Z_;E4lN`$fIK
z&a$(!bAzAa!IYgMXsC=`XyY&eu+k^Q8wB(zr+_A9Uo7KGJn`?B7QypwXbM0WMp0)7
zHSPw`w?4)}3J+fmo~0Uar9xwvp&X4VRrt3w1V7k+{=tMrBiHEz$m?SfiiivG8nrcC
z=0-f*u39wF_fyjUIHjs3VroC;l@Az%8wFu$kLe3MQ6Qm5+rb8WBr68xuoyW9HEOYO
zn#ls(9#2lZ9OQLlR)VxksC97anLy1Tl#3kDXw~`mrxR<QUN+(T+jA<@vl+KX1Z62K
z6XLe8{!c?S<wf+|X?w?}olhlCG|l_s0-7kUGY8@pH=dBU(Y+R#0v70r=Gyy5TdL8T
zAO&5K_yj34v$uqBH-sX0p}A;P52dzJ@))~G(N~CvS>M9=OtczC?5C^wHWYT_Jq8f#
z&z`cGxm6D+SN~Q|QXXQX4}>y8UBv)G#J8_PB)RAny|Z7`^Q-6geaUO^q1_;?u=T*>
zzg`dF9Y(p^s~|i#=RbVSsDs|G)2LW7P;TFp0>PW4!vn0Iey6pLNGtm9A8xuX?oBJd
zAoiowEVwjp;w{>5U|zjakK&Jz@f+y|;{{Sw7WrKV4a=rA-oL1*Et_?-TnibrKj59|
zX8ud2IH&^+v<fohH9|l)Xo$UzjxK4WUMT>FYREn8k!wN@%hn?*o{_tDP`GH2Pwrdx
z;s2%&BTmyJ8B|Dp^UR7A6r;mfs7=L95Ny89KjWvMxaLUjEe_8>Bf<d>Xf%t7F2UL(
z>)w&jVnIRS^jKhJ2ACo||K~S%N-s2Omb3$WWH_!lfMgWMdXY3g17p^&4#?f(sb%zp
z74_$2FW83HqR!|8{5DAZkhx&8lotI!#7D>o5mxT=AK>gMwmEzyaTg=nC;ZC5LS#Ti
zBC2?RzOX&NY|7bNQanv}{o6cQc<_Jkhy3{0zdwC*Ozi)T=E?ty_U`|rc27l?+I20`
zP?$70mBWi&f{J^t*x2MUf9f*>IrYzbs#egXZdkX>q)V4B!Ad7%Dmq6F3Svj6Ckckl
zD`-}F$n-V<0SfI4q&mo~dLAU=HGzRd8wItFImjnbXB`f_u%fEUmpP}?7_j>|@yUMd
ziV7J9ilnO$YoN^UKJ>f*rAkzEv;-OLc1Eph5|KbWQIV0C$q0h1S?wWTUBUxk$n@~=
z5Os!O|H{zwubyOdLmHV?ygbYfZG4QE8N7jF;@qjyFAj1rI%Txg^iC4rg7R&vL5p7R
zB=Z?Y+q-8D;V0h;ly^d&K9qOzhmkNTUE3EC?&r9t$k4>jvzcKNlUP<xU$Za$=`yAG
zuWGOTFI^#o-`o0bUT52z>yP}ow3DGQ7$DEaUyXA6EI6-0uzAXw7Jd*0!i)cOTR3I&
z-`<^%m{12yQMoL9_N+Si_aNjUE&EwT!u`Ll_D?&-`Q?z)lwAOaL*N~iKnnwcoWP8N
z?lVLystu5TI?-x7*P;{j&-I6}GViA2{PX-JqmemVCSZ6CM`b^Z^4lM+3Rka^;}zn<
z!JQ2fPDMoKorli6g4LK=K;h5(T-<$F-_uIKfCycNjZ{%nBWsEf^Xuzxh8WR@&3$I7
zOjeHbdEG2$X#RbZw@*KP{)2-$Ga$&&uy_~UnYoB1s6Ijm-~4&eVNUdBv(}1~)MGso
z&R%Mr?~~TdBtriHI*TJv?Tk}~IQ{(+waj$FZHIhv*K<MiGAypxN6epoHES{xiywC$
zufV@*>(V~v-#$ict8b=fz}+yDz)y>Kb8YlT$hNlxpAe$U(7x~UkhxktydIPuB@REw
zU3PTSrS{}8@j_*gGn<-ppB-K7yzU`qU|<kljGK*}k*T1{kCJ_bIx+>8<ap#{2e!rc
z$JNr04w6KHN*UuLxFuy|GFNz+$rF@p;RDi^uk7+a@%ruxv+paj62J53BB>)*TZGv$
zo1*=ZBPaN7eK`+Tg0K0x+B~ZXtpa3TVAyzcZKDBG?C!%&hZ&uXbGd7eC>Y$7QV$yZ
z``5so=?gK>y7gDd!3e_t2M)anJZ@}4axS~>0wBtkkbvjUuUE?bO*{<3GBaI~D8I0<
zFfmG)M2oe4SY)7Av0~rC?w7@xdJb)~h*uAp+&pqd7Db(}#IbmW_znKecom5j!w2hg
zaBwgYb+EgM#KJ<yKnlRuSC>)zny`eDBf<FZ+q;(t1|)D~NM9@@FhCtQSR?>qnqrqw
z=&E-ymdqbSBi4CSw$8u0&SQCY^<}93>jjvJ5ndsIv1kB$_JP$J2BU-KT0mqcWd8wz
zzvGdr$0q#T&ZM<x()w1>(bkL=@*cYLEH?vI20z}^p0RV>5WNyUVEgg!u>*qL6Fb|u
zYzoU#LJDo|?;7qz;3*I0Uf4!o^=Bh})x9UdZ0&in$^Jf9;m>ay#s3XTlXtH&Tkm2J
zN<{T}3-(8cELqbW4T9NUg|p5O3>HBF0y*wJc<j$IE~z2i)!{&^1y;pv6o(>}a19PZ
zeov=w`g1u7ODlYA8vN@Z0)Z~97C|6o*e_XP$YP-#3&7Y!Y;;YBg}!sKf8O+t)ED{5
zI@F>`HMi#}Eg=Cg3+(-K%`-=2+-(0%pYP&a{>#rS_;Vlst6f$9Non{0(c>HbdnkU5
zz<=ry8UNK|{BBKW;&Vhq{KT4f5$hgS$|F>i>yM->Y<zN9-8J#jhw%4FPT!Osv$u=<
z9cv+SDXGD2ul%bkZrZhKsaIYpJPVI<ak}jE_|4;kjBizbD1Y#xlq8e%`{%_!dr$^G
zuBwt|<vYhP@IAP)V<~4|&`Q#}`litDo$)U6um3n)<o^}lUU;PG)T(lPziLv`wSb<q
zI-Zxaf*a*8U%ni8doIkRDtAreJ?AU`Q<Znkd%Fhm>Y6#1YOF?!-o05{ual~Bu3mq!
zQ(bLn9@FRKrmDetfcoh!(ChnXBsh0!Z2K%YlXflON&=5sDo+aw1;y|`tK%qDVrf=y
zOvypl;M6WWG|FwKpP{yoni}|+o&BnVgTpfp?f}^Tk1;Y{AS+zCayYM({<~Wh%eiwJ
zyf3B6<_lALgb5>u@!%1#cr7dnBn1WE<NMuVA?4J_{(IC+iiMe36zcgih27~dCg-*P
zdGhpWJbGcs%z2&3aCIJ5*5$l@{W>7C4>KAm6JleJmhTIc6cv5^3;&>cCxfnj#xWJr
zXuv|8x)Qq{_xl`Wv0k?FqPGsLK^60VOGOp28Z_NI{Gwy+y|2Ut#<Wr4&Bs!LRlOo!
zR`zjgR=-zT>?&K`w!P@A-OUU&!F601w{d$mKf7#`(p}1uMO!dr3LeXUx|S)V+?@Um
zo&Wvq?_luX<M7|(@c)&4!G5}B)4@J?bChAK2I&(8O)W&&Q46wv2+<IY(jSE+XA8@p
zc;NJUSoGb?fPfh2t^T$vGeh-+rH0qIBNh&dAwW;xMuQy}p8Q@Q6xZ?vsD7v&-#<Iv
zsSd`nUYf5n^63s*cEmx;JWUXW@F*zZ02VN-(P*;SlBe<KjsJ*-9DKyb&MpBiUJ+*Q
zy?gdBB{Z_Te+&niL44XTQ^;)`F$0cBB>B$?2oxT2Z0oxchB|W62;yT1Rjo)eaaI`d
z<#AVfV?KHdPSL?$Q6lmChZOJ5Slrm&m9PMngM|c{_KK)ziDE!j``EtE_XI-TsvLjX
zs3f19*y=IyI`fUn@lj!hyQ_`T`e(f~@(O#~c1R7ad|Vhf`&qcxbQR#a!DxR#W#3jy
zs>V;oS%#x6sRE9x`5;82Ks0J)NaH~&W)@G3K>%q$N8EMuKnjD`_jauuZ((UL@Kn09
z!;+H1Ngxs4qSvpRMI8aTotzqmie7*pCA$Bo2Wm#ZNG4p(#>q-mp1W?cTV?FJ+2ZKe
zTYLhK)4*%N`_&>x17q3*3c4}R$^`u`(G^BG3`+j`uCDU(%g9f(iu#_ZD#zcdC6OiO
zKvVx^cBy~&?%m<fo{^6vgvi`{GO#6|qhRgOPUqpD2eu?r>*pNsA79b)4>H^{zuIdh
z-ud3*?}NxG35~<l{_hiuY!_^CH?Itab>EGc<)Hoij!|bW(LY~*uSRg7K3fMwah$0Z
z6hX+SwoDa?a<5;%HfVYCI+A>ygUE}2QYeuZiLA$gf|1C2y1J1!mq(yvD++wJFfx-q
z_k^1Q_flF?Qhp<~e8@Z~y1$JP>j<U}vchhIK6H%agva-^C3Q3=Z<y2Wt1@G7b#t3K
zr|}c3Aeu5-avRcWwf;6sY7A9|R>%@<7u~o6^a_c~m%rfrufZYyzy7QV3sQ)Lkfd{-
zX0CZH+L6u`!@cwC>%6A?&8N3emHj$C1Ih|<){_l*Zc3{^l~coQi|{QbL#A1<9ul0$
zU;puo`}oBK(G70Y`t}le27a8|5RUe7o;B$@w=yU$93NNr=PIw-8eE;SPU8p#=VG}b
zyFWjT-G+_Vj?-(<YR%fB_vfeQJ>&Q2{6{sG;qw2xTusC;Vl2*Un)X)(UJLjdfc}v!
zc_6s{rm*>UV4O&`kA8ue?c6h!7VkM<S18R=?;XXoI;|W04~Cfa(z}08<@<l;+rM6b
z7lXUB0cu0aw7a`II286yoJ~davNAF<Hb8+8{PAvs8jeWwq8C(4_QXj#Am19JBoCll
z_Tq59-NIX?M3vVFr3v8Y++19)+_{rDUbN-_hq^6Vu6cCN>O+oVepww2gI`$xI*NyE
ze+H1E$^^>xBH|#<#Uh(c!*UcsgmgHsPE0SNJDV^Y<GcZJawJj&JWoxhx^JZ38t=#f
zI1Ru70uksZ-l)(ER(`f*k8HVdR>1ug7-<Rf0(gcfoQ-#Dac0N{I}S$E0;kNIVgwP*
z&OUXYp5n0epK18Z1!@3%CrOZUVzK%4`UxM-M7MUg!%`BFkI-|6ZAqMSfOiYnFQyAY
zy+;g?IC7+K&AkoB#AV#7y&xYgMHzcw0%A0e-A~ijF-y-w{8!PgINQ);dd9rJiW)u;
z5^?;I!}QDUTVVYhOtw)t1&RI^4$hw!TA7iDUL>(?|M6!ZZyY-{0f&Vg%&B*HU&7^;
zj7VCO|K-aS9B8KkAyFAdx`O0(j0Q}5H2h|fL^^~?W>KRXi48{%9VgWx>z#&ZZr1MN
z>MD2RM)>YMd;D;G3PSo)en_q{TJ_#@uA}(6N$__OwhmfW5HrEGa`H_;mLo@kg!HAf
zvOfutl2iwO%ji9IoHYS)@G{w9slD5On^gfJYvFS_g4c-X^5HRM=t(;hwCO;m(uB;!
zk=6l6j&54(UOKuY7{#|XXTf^edWYAOUa-w@1&VMZmPrDfs6$ZxVX`4BC2Ocg(N`-b
zWw5i;K59lvgA_;{iifHw?(yS|)q$tPVc)R<t)!RMnhrNfSQaHkw!oi_w@h@F!*tEU
z%1V?uef<RMNcIg3JQh<wWO49mf~%L8(uE5Tugc3?%#EskEGbdQ8H0>VtTa*`bT#`f
z%iEj*l0@4%Y^Iw1v%kI4w=v9cfXd;m%*VL7uR;)PLWdaEByXp~(wJ5=4x-Y)Nkv5S
zlb#lGITV6Av=>(97douiBxx6EQBqPa!rGQUZl!IQ<mOiTwZM8Z99hu(>$`O|hS-92
zV5$jY0NfFTUh-7%=q`#Y`~OUi193tJ^AJ+;v_KKWSaKxNz))OF=v3QM8as|#VJEfa
zS|rGhSx$7FAh~&aH>0zDpgFU%za}gN?QtAJ=sC$UQHEH9%uZNFKcAhzh9QnM%*Bnw
zRLjc>vXF>#9-1xs`}&69V~|5F32$d6`~o<^4}FXYV5A9h5PFM(hDIV9YKKc{O%$N{
zI83^0A5=;x!bC<vu8qZ+0>m+vzqJ`(s4jchWPG;;uA?Yr{C#xi&l5P7fZR}MZ<{g=
z?lX2_dO(s)oCbq2BTngnb2^w{hG9EXx_uUXUC)@u&_W)wh;|<4PcfnKT^jk;a)bfs
z#*G`W$tB~sj-#lG_q$)Jt*s?a03$xEGJuP44}@CcR+X%+vxz{39qy+-0Us#~30wA9
zecl3QomfsRB+Q`#V%t6%8uo<7cpQ#(Oi)l$DM67icJHJU(7l|rdd6Wndld&E#G)&b
z7>aMby?UtFX=vi{gJa-_U(IfyNcQ@j6TfC*97tp+v8p}XL^Cb4uyeiLtMIYcLu5XU
zII;4bO;`?wF+o8i4zpfQK8Y#8uV^QK$P95>Y#*miT5HA1GEy~rS``}hzncs2SPUy%
z5*4-9tl6;Z++mU$8bt>(5EqEUEy?MKo@Pc}HX|oUbzJacaHkL_1Ck>lDu@DT9&Jv>
zr-mM3BVx@(gV{2CB(opd1ez```l}nu!6Ue#Z8OCyGY9YYc~DOg2bm0?D@?`|66wyV
zjg5)vA~{)rbDS^}Ll!^E#U%^-cpF^Lt2o)_HagCT!<L96HwfK8yU0PSoe%MfoDRM}
zZ1|q{y5*JmZslx`th;(Cc1PQYGYm*v`9B^Gyf#xd^FE1du5zb91XqLBj>F*!`Y4s6
z$XzMpJ^OJCi)M5++&0W4ocpBw!~*SCSI|>fi%qjVp^-4JkR$PHrR*xWTGP?p<pd*q
z?2GPoCI~|XtGl-=SUfKM^%%o);895Md20Fjdm|d)sT<+wlMX$n3V&21+6NNR3aNo}
z(OzK*^v#Og8K2Fw{jQ{FXP3|Hw@pNnV`c3NLa^<awfVOaN)pTa!AAQ1{ibIsmh;f4
z;pXY72;~89jlwxim&wq@I7x(AC&wZfr`*)-dY{QRuJ!5W=irlxO4=}7$&k&_mx57Q
zT3JsKzvbd@xoLSnJw4|qTdtOPMDJQ?A4lVu8xjYP;AX@xU0O(A4O^XwAxqc<DX|=y
z+s`Q}yzvEkNS{^q#m@{>+<kIlzdLaR1gQ=|ipB47#dr_3#Qd<uJ?E_PSIx9mDc?D4
zWw%^SNa<*gPjp5_74v7}x8&n=oG(b`JJx=|%NOD>g)%GBi)vNx;OqDrScr7rtk+SX
zfW0zWpKDUMpbue*MDB7}G7{$S#niJ8IXj0h48sfcoEfecNwRN9ND?wX;cPYJ(wx88
zhpxvfJpx!5M@hsnCa*IVKWN_6+a-^d@tXL8ofO&r3v@qlxQQpcQ+_?d#H3M7n+l)j
zcozB!UgAlqveHr;&Hkdbl@#VUWLTjj<iSD6LeH25AuTv~Z?c6=MS_fTWJZ+-B3oKi
zEXLXt#l7hp;mw$Z2SbrOgG<?HcCDPx{pfyR1OcG0f1tnL0LX$IX*-@%_C?M9`HL4v
zNsH)2iiKa_|E1&iaw>Zm*&5Y0P-u)C{C!~DS5#NIq{W`=>dI|}_IVB~Bie@0DS;8p
z1DykixrJ$J>Tw`(EbPGRTgqlB-OWzQ?39vhQZEjZ2oS?6_2Lz<4HPOH|6|9GE5P&S
zu(s4~t0|7nM09GASPJ}=6IJB&%blTQ>D|0(2+Y}rqY0WVvYl^VM%@KhH#SAbUFT*!
z9UYxnxQ0mVt!0QQK4>AT?5hJRXaGh*aw0Mdx|Gs-GL#h2xKA7}1)M_UF9EafF5nE2
z8jwGd!d6Cau1jK|Ftu<H*4^=I(*TlblGEW>N-2;-RYM%BhfEw(H*1ceodDW<GL7>a
zm`GD+|5>gNTaCowqqorGt%f!p1Y(t*w@_JUX5O3_L&I7#mfNhe@UjTb^EG`k#z8}V
z*I7RY4fHv)C(L40R8;$tZ{jQhqE!odTJYj^-zFrAniqv)&BN|^(-n+t6MEaxw#(-i
zXjOS4>lR^%gSGofFYN}3^~Ih0h@1YJg`+_Ur#zk;MCR3;1%!o03<uFoGXhOY8Er5C
zhJwH&AIr)NaldW(_tOxhi4%@e+RG~|aZXt-*0h>_zLqw4Vbr!_12tjI#4%=qKfgW#
zy9;*MB|IX+@5PH);;1Lcf0!Kg9Ie!G3!FegoVHPmqBI8Squc<HhFt<UfRH_Ll?HS}
zr|_HxK*3y3FSmClWHa{k^bnIPgt6>|!O_jbLjidU2#Yv57H9t`wDj_0aZ>Hu7ljbS
zffgU)c-};%1Olj1pVGet`91VHU$Wi7Llo~063jrn>kdr4-vYbLCHAG6x4d{NpHAal
zmefMqcI;5Zm0A4k9%}i;lzrQRi-!saW9lN&DMB#A&!0aJHEfq^zEb}92uc{Gd#m>?
z-bluhU%WV|dVD|dKPG~+rSApmS(gFIE}#|w{vBqQ6pJ&|bI{B?T2v9(*L46l3krqA
zBAb~~(cP0Ft)lWGJUslN=2KY$@xRtiMun`H8DDdlG_~l&rJbZzpoUtuajLI!_RGax
zoAL`ePN=>W^%k6av5LMkL-@m<rZ6-nAX`9y^nr%|mFLVBijC22Ha~JTIEh1&ap+7e
zW(5clQ@N6`N-PJ8sy@Ic;_y`-oDxRe>0A!F2By2K8XCa^J=g#72BtHB!|HA8oxZ0g
z6ch&|)Yf-xJHQ!>$U(Fc16PZg$PphDTZ{q6HjKbs-bVU(ntT?=WWt|UkMmKei!=O*
zB7v|o;B=;vY0n4PxbR?qp1zWg-6yY<!1F?H{rM2RpC;mf(_p)Po#hEANSG42i(CTW
zq!<Xb{e17<T4Rbs6soG*P?*I6eyO&x>xgGVg%bsr8+E1(J^>x!S0^VYb72|Zq0Z%j
zLlkFGQjOqzMo8MTx~VFAsi<D(jps@dOBYtiB*JT)Cq)sPwtbg1PW}l0-`IN(pena5
zYjm5B5m8Zsf+C=Tph%DmDvGG6sO01U0m+hcI6*}vD2ND15D>|T<ZJ>&1O$XFNsyeA
z<oL!yz2Wb!e*M2!uj+qQZQZ`@MPTo}zP09>bBr;^1do2!$6<0X0pgnLaIDdlh;bwh
zi>M-YNjNEETR1>7O(@%q3~wG|X`skDg}eyP8j4UR{N9(Ue6T*xF$1|-cb?ikEbkSZ
z1LEwA=M!=N{$`}v*P*q-B_0gVg0n*!l;~4WPbJ+zn_x%}x`EG_wF24r3>_Xn^!C<+
zjVk*tgj}(*O08sHx`o^fKcn@SIB5WdcqLFW>@7u1l`E_e<??tgJA9f)3V()^A+!tm
z#nJ4Y<Q?MA(g!Snp02_QJ%?h|+wT?fX^6CV-nlb!4)tJtx5ba|qlA?o5o_`E@EDtM
zK=G<SgPj-BQ}ucXN(~PlLQarBy$9c}_=;8($0!6q@oJ*~KNl)$Th1388oGFbcS9h}
zkME->=-GwWLy1>0hQwRE8ZSM1&J{IiNDo>;9HWTShLv!;iWTiIEx^y8yQt5=JiG~w
z=6t~+A%g+Tg2s>a9Y_#Gj)&KMj$+qNlLe`5WyjB-kP4<V99xGga3H`1R>%URP`d;*
z<rpNj-H;bj;XNjvl#^!GtVz7nfBc-3r%H|fr<xr=R}bI+CQhUW(L^M%ZQFHNmg{zs
z(hau*=j85mWQ)YeRxz&TUzaL(O%fYQFni}Fl%EhRL+1Jr=?*&>B_x!JnPNZRU6^*w
zmSIgf#0JQgw|mI_R2@hK|8Dnc7G`-R-)@}tA<h(rMoa&cCf6SG{4b5;ej0{H_7RGV
zvVxv@xco8i2?Q3OSmxT9>R-TWqV=txHxs_=BA?;OSABzdYIvr*m41;(owQ?alXKJG
zLwblrGx-;ucG%yos6`x2wa|bBP#bB^`V#;3{cP_XZ}nS=SkH_ZAZaQ6UXSaD;WVU&
zOMh<2t=-?^>FqtaA*n?Ust9M*X5s>Q;MdkjJaCL9{21rjKamf_;!&;1`6XRA?CIt(
z3}iH;aq~v(n1{HM*$~EY7dV(0B`cGQ28UxmE{6L@e!f^s;I`q-8<l{ThPY)wRQpFf
z^Ur^|c*kwIrWs%u!!e?&S^A@iB`PW^V$A!6F1zhWYu#h?^Is{=v_Al;<()sQRpAJl
z(U^<pTB4U?P~yX`t7)614jcU(T#&8ykIsgHhKxt!)O8pdk@O1?&^9KfIDqw9#Lo?d
z<HkBK6(W<-OF6J_U-5JMnx{y55i?zO`PPp~#9rP#8=YwXkLrAsu_3Bpwje$DFO*=9
z%JiyBeD@iRi=2(S&Z5ah%}?6E68^gE+l}kUnpAUa5=i!eToEqAap|Ji&DMTPvax6m
z+|<=jk!$e0^NS>%=eW_<n<L5XEDw%D<wYJE<B@Bpr34OYWM3ifdHpty0aSGIJ^dLz
z8PT9lY|PLUAWxbft~=^oxpE~EokpQu3Tr0qzj^=T-J6R9YYy$LDQTY9YAAo*E94zJ
z+Zg}z{l>Dl5M%a-k00B~adeVZzL5YupaX0jYtRV-&$z<p>FBz+Nb)QA*3QF(R_V06
zs}?`79b)awE=$lFk}1Zadk}CLQuZoTzkbj>!isUe^JsxQz<{xqzi4LC0I?fxMbv?u
zXdZ$gfNuU`NhF!YlEV-6ab?ib!C6^{zU5c|0tV3Wf<KT*OH)2b49;NG6N5^OG+;}Z
zxnd1NZrI|+$89E+W%3UDj+a;d&Ye4CP6Xb9^Vjnl8IaI}rPlSUF^rmA_DYC4nr1dd
zp9@fG`0pGjt}nrF31akd*TqR!*nWRiAk$AMl+Gi#Qe~@fxeO@HBFjGOqY3}1&<0$`
zB&G8iYiM3bSI_K|Lp6c5Q~oxG&aX3DInE7xd~<|lm?2;~7~iP}bRhd6P+@oXbr1(i
znfWL)-(#yn2&&nqg&i`8P8+y4o+e}wBvq*v9UnNI>GERJ6i@25Db)|y;Fh?M@zo)Y
zb?;uk`}f1pi$Z#d?<dO>of9xc;#zyx%ZoT6q`_3Oz;N7p=lQ)}5$&_d`^EG7AVL*D
zgF8|9f?+4_OIaOgs!YVbjf1BXNyv~<kV5-Rv)b-1{{oX0!b$){Qm?*V4!^?6>IpRO
zMSxG|N~kG&-}miIen^Dhh;8#sy(tP&oD(RjeA!Sl;Q-mY5YcwU%T2dW0I8s&aD_+L
z-jk<J#p2jIpmO&M4j!P2G{t_;e5hENrZuDby-Or^a5j{7!_aHBnT^C)moyeQY$eaY
zO_g=uJ{i)4d+yv7FkkbkGPpsJRy+(0j734s$-x0)hGv&YB!0WB4|+iQsS{1e`pHz0
zvJml{k9{cS0oznTsZB5&pl!03z=^D;VUCAsAMxJJhG;J@(H3<QB32b-?jLgD`vZ74
z63gyy?~IovT_$+ZG4OJBO-cE+s&sUoTJ|HYC!s{>hS6{cl~8`zz&$|zfcRaK(ush}
z-)*D|mjb8+)P-Ziek8V}Z{N=-uU^b-xwzK?^ZH5pDDXPOI->NWrO-~@h4~8C1(MEj
zeV+kplm;m%JYG&f;ijGCutK<C&V=cGmIV|N<K2}fuq++*JgTXuAtmmp&r~QLzZfXl
zb^YXAQ^rC%movA}POl?f_h(g9@GMXzC;+|-NXHLBcKjJY#51fPQ7I~DK6lI(@h<h_
z%${hX21-)pt(zA;wC!lVq7p9RYl6#dgwj$T5PcHrbynGIm_aXBt$@umyDU02#$%dr
z8L-QebPfIM%VU3sS85;z!vIGj3OSHbr9D=hM~^C@r_Zb3CI?-rai~8X>cucn#^+3a
zSubgHBijadVo!R5DHop^CVr5*1($3Tt{BX6IF0R950fzBzKK@ez8wWqH-Ar?A<oLM
z`*TBq5eHQBf-=s}4`9yBiR^h2tEg~oMgnP#Wy?d)pid+*4ncykaY|fWZg(;7Cmmk%
zR%vkzxcE>~LOd!Ey>L~k=mp^57y<kgu^){@84268akTd0es}0$cSdfaN$ne&?l5bR
zD)+-7<mBVKjFh+*1_93y&QXODbR4b*8qZAPW*rWX?i|OFsUE}!^eyceT^U{M&4OBH
zbgmI?9zK!8KmbJ@fjQ9;pqtTvx2$mSVi-!Iz5xA@kqrfxYpl-*IEKcqb4`rs&0l0F
z9A?f10*2>sn@yJFGc{{8kQ{GgROPOSic@^Xa^-58>iojBc~ym(#|_4Up~ZALwSF!l
z=7_QeiBJE$y5nMLz<`8yvhq14%NKt6)SG|*{aA0&d_Zx~u=oLNn^V-+JaeVqx_x_1
zp3)u3DaTSVl&<WuxNd2#iw|x(4hMqa4RsgkaKwDJ-Jp4ahuRCX8O3wwJP=RmXlcI%
z>;OiNwfXSvMmKslKZDf}&lAGhCkzkYAb$F!!D<@=gNj}raC1L4xqu_jJ}#D?4-xBG
z>uxjHNEF0&oy3R&B)4Hz<Q)lEWdb=pjfLKnspz^>(nWo7s#x+0Dqdiz5$D{$B1uL4
zLC{*4BrQ&1TaYFlb&@E+8PTYU;#L678sd<^B8|T+)sV^P>K#E_tWE4ZO0^a)^*9ez
z%COX+g<rp-;O*PDXjD5r-zB+NiFfXYtwn$oKFRyvOPkaGc!E+@ST)-!29*=3>BUbb
zD8`|zB^}=6=F)7aeK&sfvvBWF{>FB@Gm_Vi(}};U694=Tz(WE8hP@`u`t@kY9e`(?
zdSY2kt%~ntOzh~mNbH^2Q27lPR6uq_!TbD-5BS|M+#V4}X|I6wjavJha|<J*>b|#=
zftPla{}HG-Lqiu-1~T61#C!Rys)8^hzR78QJl4yWCfCwb<x&<iZMbaH+TJh3JyA*g
ztE#}UY$mMjL(yyLftLXLWiR0tU7=cm5itPdTE+`87l*B6>u>gL17>8<NiR&pzRx+L
zjD*oDLH%x0X8_cOks1v)k0XE6;!P2?I>?0tbhHplmi^V8u!r?wn}>Jy!SC6Q9yP#g
zBhM+f)#5fFuq44bal@<XO|5k`8ow=?O62lX<|<P9qthk^n`}1E6SZZv(djW5ss2JT
za0uhZnfr&#`CFB9G15Y5{$d{r-qD#Ea`^!fxgaB&Ayt0JwPCeIVrB!Pimzr;2Z|of
zJ$sH}6KOUmPX6<uD4s-Z#Abk2o?bLIUohdi^zV-#23S_hTDwKqiFM=X^E+%k<`)`z
z2#Phx+O`8B$0J&5&JcH9`PA^u+qX4g$5zO)w=E|I{#mS+cTj&dembO{c{R}J{V=a_
z?_&hr)j5B2B13slsEuI5@3eU_n}>}p@}rO%9AAzlMjI|YEF*t%02^lkDu}&?GkW5I
zw^c7*yg1Ul{P+MEuRXF7o<V(bxGC66x{}&*7SB&k)Tn0MExLBFtm&@-^ym+Z@eiIE
z{5p)D+e6=H;M^bpO#$)6(EamuTd}uezJ#-`cQ)<?Ssz60#C3hlLN~$)0Dx<ZK@liw
z+f$ejWxUZvYr(dQuPU=F^^=lr-@Hj2M9^#&dj5&fx9QDc*;AG~J%zR-)MXi(;KH1o
znL&|uD5iZe=GiI>m+1z<`<8`yWe90XUnal=jWZ7a>#0yIM0J})4D7-CR3Y5MbwL@e
zP#Wgu=5!OE@&W^MFDUpWQRU?taVJeR4@=HedK1h}mfX}<C~YE+E|m?@?CaK@nORuF
z_&%p$ww{3<+>j6FMu9WlG(F5!-_Gni{{(VDp-h&~mL1-+uf>!kD8!iUpTKs9ebfBr
zQS=u+Y6zKKvDfy+famOAwb1s10!nIRxu3IQvl*`QEuRGOL^z*xZMtTt?Q!1K3&A6t
zv)LlPTP>4rd~Rd=+-Qc$?ykEzCc5GyW|`ksCnZt;B?u^<M3=}Itcwf*Nsz39c!A9$
zfGHv;LFZxN5$Xwrns(>dSf@NM!`21;ZOD{~hYTF^&2mR>5$y;0_F5q2`v9Ewq2mje
zR?OH^)pnH`u!c|Wq|f-x9B18QcaIW7CU(EE)YvmZ>hfm%lddfUcIDVSF=2`1^N7iR
zK-81QwWh6Idu|_&dTF*g(~(`PPE_Q+s&mIzMP2d86$4)sR1SA;x|6tbYlg^==U&6x
zY4<B*Y&59|mDKvZ;qITMftk!6A~N$$8Gr1oh(*w?M(-L9P7)B)>&WMkb|t`;G6pG5
zAKKz15|TKEF4sKc7<4_wE7k&K$1~*NgFP-9xc>kN9l*oHegJ)M|Lh;o`PBYTd(Jg}
zlRK$(Gx0r?K#=<g$+FY@HmU^CKl}XfVQww)(f50OB0=!U`oM164=gI!U%LV8E|=&=
z99&NIE{Gi1WkH1VrYdS>_MMZJjkytki}+xeNoIkI3#$J?hL;ie1<On#Vx7dj1ndtw
z(Z2t2<<r?VAT0}jlTK_As8pj?dU|WG)!AnA!Xf$VXlRs>84JL=nGA^oJM9lXe#m7~
zG_>}zTGB?X&+q0d_HRg8D*cDm0JpIpXkk_+W?byD08}Ppf(x}P(R8?5mZZ${%<D%$
zZ9Zh<*34A~KsAx&jIc#0DNu>Mh<h`AT8o^r4ik0yc|4L=Ur{P1aD%Ftx*%+znB<bx
z4e2$NPRKuf?%YE*VtGDRe{TfqK7-jHE9#2~3(jyaB^BhukWVD+4dTEu|0kc=4_}t`
zA#K^Yxw#hKQ?R6gfxT%aaywT<l*_wLn(QvV?9&x+ZefFUtArr&Be~EQpFq8J=+{Pu
z=m4<b^!!qRci8(U&%nQ6kufRI;&<kaH{!r)A4r3r;V=8qMFm7AL>F}jYKDYnh<-Gw
zm2my5Sn*cWx;GLP{X>S)r(t1Iq}d9?Dj*K)wB9wCG>N`-BkVGtNQ^Ul+xId#IoSc0
z$!vc8ZxQZb-bKcuAZzcfj3Bfx8N&uhyKY!DE|##gVs<Z(q?#7Y+W_j625%0L1e$wl
zD_ka0+-eWW66+Uq@QZ6%r#B4DVDLa9Ca|gdV1U6Bw~TM=wY+rXnAdBq{2BY$(ISZQ
z^fC<C$p-@->rfvR6%~6SRDv!&;f~I~<OfcCtss1cMV^$yOz0_WYP%Qb3l_WVDbFxu
z21yjb5oJ4){)kIRN!Mh`k0x2daZk-}U@rB3f+uO85nFg<F^I<cX5P-YR@nCVuoW!6
zog<w&*yojq7in;<g`xV3H@f&FJv{*`^>BDdf@4`9jqB83#GQOygVLCvx@|=k8ti3!
z$T$J8vsW@husS{1ZRjE#-(W4TN+@2P*Nhr*hlpn+K{(0MK%00)?<?t2gMY38N&z}A
zq~hp1BHI&<rY|kN1GCU<6aFiyIGMxy=Aq?3%bHQJ7hGUtkxh0S{{VoC;5CQ?AykLB
zS$cYVubCXP6~Z9}a~+3JO&uiToQR7#p{k*~10>P|cCeCAA=uVR%9b#zD{X2{N<SYn
zK~@VTru;uBu74v@e6;%hNsGk7O7?Y<_5TJj5=7NB1x1ffNCwA@HCk5007D1Vg}rqN
z+6s6D#-eQ#>YHYxjgaSkg2{l`qRk{{;%U$z*tAhVzfWVSpQF5|V`ff#_fDE{1Av=}
z|I^K(qlm!&B{_my%&&d%Z7}p45d?!Mm?}I(l%BvG&?rs}7KylSMPjp3K67!P*!KM2
zeqK{&fa5|(5(7-vu^x&XO)@luj3dI$uQa9kugi|=j*vJm=n(D$5|4Ox5nCFScBBst
z9{}(;GB<%ZE+HAl)G(skF$5Hj(wlQ~b5>l!<=8w#g4kJHY4_sBLW&h&8whddnw$-x
zkncMb$$%-0ud3D^`3sdnh36>pZ8R#<5LG1uL(lZP|1M*5C-483v2n3+ZK^u==FOXJ
zfZUMBSwP5iGQ>gTi|&=WXB_NW2PP(3_W!Sp&2*y+phXf##vpZ2!@{l0Wd0nFyv7KL
zF)2Z*ExA!386_`+K0tEx6q)ntoShFZHI&oszL?hWBx=ne0%`2t4InWTT99~jo0U){
zNQ8ldmJgIfVl*9p*u%2rB3uT2%JjG<$2+dV#lR<Wog*KskYQWa@|EF&!PNrWhqr_H
zl$2bI{c#&wCaWfpK{X)cB5}h`eI^smeo{AoN!;3#EBbHTjoW|1-H?z72b5}fv%s1<
z(?aWj%s5|Z*77TUD&;+fOyRFPEbw;ah-8kW)SNVHFE+?{9ImF8p4D-`_3E(niL3PC
zPfd@MQXevezjobFdGRPOzV^{#2>;xY`RMlb`)u$uL!4Csx`QP;<5v#{9)kNJ$ODmJ
zYe{&9ON&fEQ4m^$V2jL|{FCtpF<J>(vmjeV1aYu&TAdJL<i}7>_iBfp@bkEij4l)_
zgbF6MASh$@o+IF@n@G7~S}%gM!Y12iK5K^i;a!Qa@^?;}GCl+mj3KLt0am$g?OJ(M
zt7NnjQY-`bVI8A6iXHtt$EqhB_|TTY)pu0N>B3?^TAaVln0Nf&xh;PC(Q5=YKw0Dy
z30i^+(i-IVk8sx~xr}oGm!@`KBF`N9NX$5l21>Uo$73CtL9*%g-Y>dRX^ZO1oOEwl
z)(?B1{!dA(s(yHYo`xw+732#fHe_Hz2i|4%{XI_XKblD?l-Li$ZnpoRopKJ~H(dhu
zd>JN1z#ro=lO&?_C$#P+QabE5i3@-1Tn0?&`i?wfi4;WNE_lo^M<5!W|IQ2n=qcxG
zLP=ARTBtp8&VQ4gj<&WK92tVzV%{x%FfbKNK<iJPI_2OjE+|;b=M0pk!m6jm7W?lf
zy@zkKe)Mgb8RC$5HM!DzP>wl7RRoK61(a7*EIxg_`Rza7AlK(^x{2NzGBwyIl0ba8
zKz%?c?*_cQ=)>j=(uomXGHeD=HHD-@AkFuK8;j=k5B#_m%5O>wqmG?_9UQalqN=N_
z#j6PueU6yOp;)bi#Rose)mHSOj1l;ER_!00lXx|;!Qo2EWsSME;VYouzQmltDpcZZ
z1pA;uO=E2Ji$+-@xQO}#R<&ec6KJ;5k3les1#)p^@R%|3{Yy~hBP#w2!=(%O*$0-(
zo#WP!;uA?Hfw8Q6A0qL98LH~HQL?yKIreP5rSAMx_04ow4Usic=)*wY#(`~@$Cmgr
z+2H3Rh~^`dgBJ1>ATqx#DYKV;p79us9l?3=&H<F3LTK1v^Xq+IWjw|Z{uF+j#7mXr
z8=pUazWVUzFQh~%=`4feF_|w(G-o(tKyV%gG{>v(;nXBVefUMyRL4!Y9R;*UK$tO@
zk)8*!%zbnb4sf5KKp}p(DhD6+{&QD(7_PP3wdpode}WkxgMH|DY`?u(C2;*yn8-iq
z9+8Sqx8q5dExF*W@qckhmvrAWk&FVnh|oy?l!U)>T{hXmjipEaYDVlXpo3EiuqRL)
zHhMhJF-{Q?RiABJwp=ou)A;!b-G-L0vqMoBO%4>g8NLUC$BC5nB{^1;)AzDvJASFy
zhk3%>Y@yr;xsd_!mjkSXVU8pTx15Umt-qFwj_=wAP29HNy_+z#<nNrH|8VgHUIh>{
zm+Z@i0rI05TJ{{OzHXRHDdKqUS+&IM8A@VY7yzLd2p2m#i3(RRDB<G;z;rI7zM&)y
znt_=c2269RV^r-=sj~l(6Dwy}KQS7ffx;AmS~wjp*HnU30s;Z6(RSGtoP6g^64p~b
za^n31;DDIoK1oGzy~>hdM7K6DghPM}D&;&fjkH#OHu9#!W)5Pu8*x<u6mZ!TWfyUx
z_%Qcnzy`KdS0FU3LFP=J);gB=CdtZV;L<=-juOFv;_{`8q7Mw#d$hPzq{;nw?Up@^
zrrA9lWlw}JV-x_Xcwr*6FQ&b^0m)<xM4v>HjWX~#@UrQ71Fog_V1s6qe_@}Vz3Et(
zp%&nZLNf}|cTPz32yw?|0BC**wfnsRiyDpJ2<y%>Qj19&B2ifx?mbb|;undmyT?m(
z@DoZs;D`sv>@l3~2W-JY=0x8tj|-vHiSf*rCCz&0B=Adkw_YYp)4}a$Z<gNtdu~|k
zB2Fo~2+5Pd@Q=G}27vVG(ti?C2xd`O#TgBw-2$Kg#^3Np4+shhMq5Lk@%DvVMk-Ru
zV|b~`J6rb=StnY495i?k)=(Exk$S~NY#<+7YUATyV&#drdF0vbvglHeP2GFnF$)9P
z>XHWN<=+x;8O2dF(p~UuOVbgdJnDl+L(?Bq*HrVJvVhkR8(gC31$6$IB=>NrvM5y&
zTy3U6CHxSyK}4RxIbC4elYCne_qkiMKj}|84|)h7ln4Z&#7+z95KjCSta3HN=7)nr
z7c?ktadD5_sAby8#Hw`$jGh%}5N;5ZNDxD&aiW&aeWrPws5zRDc2i`fk6qCLx4LTV
zz|y4Iu+EP5cFa@13<Qj*Dbq~3a5@pvP*o(1cpWD?Wq9lp=?|h#FQ8Hd92BT9#=x#)
zSrvid>DCMF+(hO;!UxP93F%@tIPq+#_%JdJ0GAo?f_!y1)k^x@{KU91jDeL2NWOhm
za$j-iWJf3S*-2v1>N3~HVub1h_wr-H4+FYdit;2w8Jt&m#zT>+Q80R?rV3yN^8w|F
zw=@z8a)`xf^nA}0i4ew7&hJMp`wC0NCQA~#=DsPQmF%+kc)GVP4(mZ8;uDEjG?ORp
zYWP^vHJ^Z_Q&V=ttsM3WNF5+As)5<vUPuif_Ur{x5+WGtJP`mIX&Vbm67c_0(+n^u
zv8Z$b=27`7#4h*T-~Md+WnzPAjvN*YtLFoYU~k8wUGT@qMvuY@2Q4LncVp8(hueSe
zVv22-xnj-u;;Uv`!PTp`ttu1PATR&UPx=J!dUo!OlLu3(dgC5*kMT+82Rw@kP&1tt
z@aMPvpnjuyhxBXqF(Xs=&Nn;O>VCQP`>m|5$u-_t8xPMm28ilANw9d^@3*X&cKX_7
zIV9ZmmFhGojO_)1C^K=qm6m>jA#d_3Ds`RNl<Rps>+P6OU*8~(YsqMju!ACJB?*=X
z#!)t%lzxZOs6N+JK|!Grqd{S)s*g4@L}gWVGK`3pb_5c~^sIu3+83ArJXKfWvVFzs
z4eoG&maqZO0_m>zIgYKEq<wy_WsRh}Bt*^f3JP>EjJ|A|hfDC3^gA*I1gmC(nY^bs
zeD8o}F9aXM1Z|~eJQ&u5*c5S-nl&|YH#-NK5(Rcyf0j2#0$O~F$&^0e9LI;!(zeGs
zUU$sU??6k-3(!-rW|dUKwz2D~mo9C=IM_Q7wF(hIS24@N@a^M|usfuf#4&pk-;J2L
z-Cw-(v5o~*jhlzZ3vqP{gVlCnXYuNOc=!dQn^cY4EJJ72rBfwaOfGDMI7}IB29Jfz
zwa37)RoXyu`N`cq6Z_PnAg(~Z9@krAqAJq|eYNrW91SB8&}mHb&Tsn|SA4S1E(<MP
zy=f;sS%mc(2!|At!wAyu?)2EUagUM;z8bz|3fN`&k(U<(&J+_QZ?wE}cgHQhP+4@Q
zLF>ePf8FKt!n$cee+taS&|D>B20Cj++wY$UM=k3z7Qs>o``b1QfHum7Myu@WyMzPN
z#&Ho1X;E^5b&-|L)QbIyv9X4>o|M%1hLyQ^{m2W}*4EO}So!qKejLHB#&Jc=JY+zQ
z=LMpzm<)-(y~{>9&h({1bA=E4*?I*tN5jYP5|ft3GSrx^s~vuxn8?G*I@#>*4v<+A
zGpvG_mXOSQ-U;Ah1Y1H7EUq?&`to81w<0yTB3&d~!w5;F>DXjKUjAXquDwL9AJ)`s
z7NVi1*3kNLV^Wr?y82Ev(=6RaGzldmgD56S8T7SWxM%WtvKn59HZ=_)jJ^8dUu_yp
z;+nR_Cx^NcwL?NqPgGD5-U<u2Zf}20hXXu0{V(Z7tgaJ#*5ne7pm%UKSJiNoXz1;>
zS@y|!$s6E$2AURmSy{nlwb>*z16#_35B*-&R^(5n@fbu_*RkWE@@86E(Sg*<IWtBV
zHbUrTBrOf=wX`N@SX39E7aiD!^Zw%%v)X;4<KpfiETmjD>Cnlc>=#=`D$RlPVrEBa
zX{+nEx`6)cJP)?Hi!otBJ5mKZplR@QcgH=Ho>P!sd(pKm4JJPl&^r(0j%5J<#Hk~Q
zn1KlyBgo2%riJ=$hu~z5gvv`AlvGdB3E+m6$Y^3^ZH0HLfh`jb2M^?H*g=378~Zz$
zduK~*Up1(2MELT?TI^$0EK|-ONN-TgS$zZhfKWH)n5^;+Z`*fvUPV8c4&Z?fW)ZE)
zQhALC0;(Wy>KlzKJuNLbTeG-cqYG-|DNmBH6sL+)^BQX8xyjM{xuDoTGScs`td&n~
zV4dXs1)U-hFJB%Zqg(m28Uczi)6#;w)4x4qWVDgsBds9y?2+pn^b#9=udE+z&FWhs
zjfepFvlt(32NY*_V`F0*MF6{>+KGm(WIQ7o0|SF=M*{Za^a5BZ#CzXLCY3EtE-q-r
z8R8u_PnX+bO+5I@-En2@KXBj<{$EWZUt`EXZ*=YFRZ@LxNn_IW44`EEs5%*uecXct
z!#X-)h9Q-}^$}4~dI`ll4r%Trvy1w{%p|{F&14mwlwNzk<XS6S>hFOR<2#QkoL<7o
z4hf|Uv>Pz5rUi-p4t9>GoO;e`eMqpxFykU5GHs5{vzktWmZA3mFm%Ih7D5P)M2y9-
z10)myE<?dO?Rf$o3=grb7wQiCOB*E7z3lAl=!67MHd&EWja@Z?BzT`|{jHt@6tC%+
z=P6qyB%L|sl`#5IoUPx;&4tj5%L@S({)gI-+^tI7uYrRY4(n3d2Z_$n*XJ^i`+rK%
zJv8*?U~u9Qv~az@cH}{sUK^QhVkI1N39}5b2VJD&vvsD?N3u>`zVC}|5Vb1bXfDwI
zkq$D2`Eay1(9)92q*X31I|8x$B)+;%<5bW=<rljZW-re7*@MU3W!i^)&mB;z5QZz&
z3bnfL6=~GG4B<eL5XSMfK`?tS$*F@YxR!<zd53|7Cad?LEa{<{^MEAAw*KHpHrdwC
zmoIpdr(|n+m?A|w8l~1iy;BTkjh;j-9QK&YGi1Gq;j1~u44;&L;Qf+vu|fqJNViR*
zz0ncc!!57Pt7P|e<PG2#{=N0QJ6Y#V!tM8SGiWFVikG@c`hU6rPsR>nRMBSxxW0(i
z<9X^vih=&>CA>)L%+i*jP%fSM(N}r@(()w-KDUQke(2yLAO2{~+5K!O&f+#z`0<+^
z?)G=sZp&UtX}Mgq;pfjBAsw8%X>c_tcW<G%UD(6-qf_pG<F_w)X5f7vSPC<g|0i$o
z|BGMYw=LVvN!EvrlZ&ej-1A*r_(kM|BAZBtZ)P#vq!qiD3Tw(}V)4pca=xA*$1s|g
z0C^s^WPIjUPSsid70-iS!0-xetdFEO*)%-n(?3r#mYY0FH9}bR*kd<a41K<%VN=IG
zIRsRP?#0ia?&2`Q6U7tw^#Nm;E$`fN%7*lrRo3Se3sR2(?Y}k(cDLRYNdyQzxd^nf
z5*F6W6@4X;CCAMdj2H#oN-BVq9tUJqeAKw%dJU<g{^|3(eM=$}JC7S>CPno${@!e&
zdA1^A#7I+h;;-=V#gA?KxwzB@)SqlOh-aXLZC;t{Ifd?}U3JFkmBnO~7d^7B9ZC<i
zkoU{O@4frTCA_F+%=8WFF4zF%d}2?n-*=NIEC^_T*3+}sea~_DW(Vf@VkJI%ggR%~
zbBlWyCD|L)(J+E2zku)X2RgPLTg&ar=3$$cc?&Klo}TTl4H22@KJHJU+&>z+Gg+T}
zrM6(8hkWHz+i!MEye@N79EU20$u*6PxwepQT-|`7^p?MFbWF^hdR48fCif698{<cM
zdwX%IaosrCenNGk8MGaV&1|ya2+5y1BF}L6mXyuK;nu_VEmxA3h}3N!Nc7MuPSu@5
zTBVqC4o(K1-@RgJo972@gPe?kjwQp>HIXao_SsV9NB;g@%fHsw*MI)pqyZ4PWBJ#>
zz(Bl(12;}4wDCMFJ6q~<k>w(XEQ}p<?jc4tPNAs&*M%rb(y6!DX)b$^;#NDtyd;eM
z=jr?P?Ei5-#vcd8D<~-y%ggNYo3#}T!re<|*lxo3^u{5y&1}YuIVFGU5{G-=Oq`>|
z(;Xk)Xk=2>$4cP`U=tjR9Sg|Z99cD8_ENp*#?!_~g4e(7wtu|h|9;5$4{!Q^e#QT3
z0q%dE$UmP53HGT6kagg=ANQ}+A;sHGo~H^&0?rLC0?6Hkv$86l!};#rh3^@piSm>W
z8;Pdd>9XBSc}!-_<mF)wIp_r<;u4?BL{n$lm>6S0CqsdkL8*CUVq)S}u4R;N;gz{2
z56kpGq;1dkV2(&nPe-6U11SPe<VU@fWaxC4D?Q{PF%<;_EiGmrrP7RVHmGyO995D}
z`mn{sWaS``XE{@+#&?Dkd-1yL(wU=BMlZZ-I3*w;Adi6~-A5ceAcEeW{kJ0dK#2VA
z?#jv9Coz^e_Z8i<v$!Ep{)w`(#>T~6PNB)VCHKAR<su+*E>^`=4-N1FklKIn)Y8z<
zFf6LbZ^(TVBGX0{Yoqd-2z!n7)|6&MQ7Edf9WRnl@n0kj{}TcJixB=lXYZe9@BeRW
zab}%{RK9|uVi73=QQaCJRL?vN_<IW}Ec>C@#_3i6l^I6KtjbL)Sa5h^@!<gK6Uzce
z)JbhHg7Abktf)>ubQdJHoL6s>!$g^`*5Rpq0U(RaSOG>M)c@jbEAXUy!1MSp)9Aw&
z?R(tXn7?lRdex3?+2_d5xaIcnE*ruuA3Bu5$y80pLf+z?TM@1vlw8w}@D#jDs%1!~
zbkIIPFpT5=>&TDY-yzQ0BIm<4nAzs#?oNuDT8CV)BFR8sQ2N5@pypZH5-Vf%h?#a+
z5g!-D87r%HN|~UMRRC&z6ldt#r0QD#_^v2?mkan8AX9*TP|})O1wa8R#L5cfzxp5F
z<#T+;eHv7KUha#3XL^!uFKKB|Mbd~izQ=Azze8t0+i9Q3%HsU*!9(vhiS~c`!_eS*
zuyySLtF;N2u8f5i+yr7l3g=~UvZ1$T)!_9W4*if@P3qUG<2yc;J=0w*yLN;&*--NQ
z*|MgS^IuNJ*LznV`42HUX0nY!iBFVSnVXiDMoUYQW)6P?`oqY~^j3U@q+1Y;2oc`9
ztUeu+S5&MmKcjM)vG^sp>^dq<8P|ax+S|KWgJ;bcjRtveXLxAQe6#PTCqa^-0I95v
zHhQzfWxP+T_O6JS=^GY|0@5_OxKUrnCjI#)iR{vu<)cRP4Iw;MYo$cL*oqcSS$n_^
zJ1lP8-3`tARHSsM0|YPxy`yxmwgP=)ReveeM-e5(=#9|%_U7h5^vf5xY{F5<(kAyF
zp#xWq?6#*0AEO%?wRF4#H&VnMnc-Hz^Dmg*ng`!)nKEb)4AE7`!hN{0gmV=9F4Z=J
z5h?&%eAw<lT5;UpmlM}RmSsO$;&q@;AZ0gRFakspDrF6gV8=tp`>_69Jjq0Q^CQLW
zxdi1#5O)qbGix|RBTv3{{*B@mMLx(Yw`BlXp>N13>FaZWNewoK-EhnHhK6gta)C=}
zbj+Mv<*>+IS)a&JIhQ>G8$Q3RiytxCi-p{nbWB-EX<v)UzT*6Jqp5m67Zd96y!(hz
z&aGmRHmc3W$>!7$M~&LGlrZb;LDf~k(P(zfVps<f$iylDeZD}Q!25sw$JWCJ)jJX(
z1gD<8tlA$Q9xxI|r~YUrsij!8F?g@Ps-Bz-ipW{--|Y6X0_)y^m0`yG6N0B%`pYY0
z#^1RRF=6<xFzh|$;qEC|AN|U2iE?X~@y>ct19XK+Kg3>-e3NPZbSL>aB}XTyZs7ef
z7cNz^bX3~4yw~FQ-=bk*#&I=i1Wd;3JTo?hnN!;D@9#;5r%s_iWJ#yY@(IpLxvwbB
zi4>jytxGsG3;z2i4?su2j+e(D8~v!-o$7xYh5nyjd0&xzy8d*Kb*;*CBtNClf-}MR
z#A69QEW(HZwU)b8x)9TwgQi6wdU~6g5m<)SA6#er(PSb3?xYf^V95oSEdUHP$d|!L
zNqz;#iZBL@RR=$J2q)pl?{EHAhO5ZfK*P~;$wkCHUrux?do0c*ErRMYNw4F882ch#
z4ak<}9cX6wSy`cY+6u_sj{I8m^GOnmXS@kp1f!`pJMx#l8<W+%e(WwV(rqcB^TvO0
zEvJN~{AMS~j&iaUh>p9vdxcXc->O6oXUH4xGZmmMhAuO3%pNqOMOy~W-f|^h34#QY
zaSS+FYHDgNhE-iGi&HWOHFJe<D7CsTU3#9LE|@X2oo>47f*PcnLPuR1j8o+PK-@!Y
z=qMU8(wbEz{|o(F?L|p=?N>D@j02otzkomgjSH6ZfYmZ9PXc}CPnVe?priL=y}I1Y
z24*qxV&FB%ugBdYfC~hN2Iea~Hw1e4;Ck2S(g2{Dd<=rIUr|z$0U!JHtZXm<&n_=#
zz`ge5XUPq4)CC~+S@ORKTy@k1n#HBxg5eirPa{;Z{6>+g@B`LzfHeH#PipYl9~K|~
z5sUhjR>t5ak#f26UthzGiGsdMk<AVbblSLxMn3XYNCUy?2k>cLZ}2=#xdKz&mYx~T
zA~(bd^q@mbG1^oNlUbO^65MmHcp}WljPbN~m_VWfH?Cy3Zx=zr!MJAU4Jl*bfZP+I
z6(im6CrASlxtjSK7BJ*{D|uQ$eVl)n+a-*r^7cl1^*dV4O}(uruTs3rR-H|D3k0N|
zM1gpdCq}KWTR47SDRsmIG@?0nN)aa5>frALuzeRTAE6CS$`cMFFScfc>Bj)9AnzED
zf)=KW79WE}kK#VihS7ruVLyO(6DG(gp-X5z<x}1@A2!)_8Y_2wht{t6!1E_t>Wpm?
zib>Lfo6ZJVeO%c9j0X71h1xvQTnb8ga^8Wt{@U(9u4<@0v+L4rao$K?67k1X6BCnj
z7yt?Cv8jCqYE`G5H(o9Clz22W(%n5F2L9I^REj{(0wxGBLAz*TEqAj@B`Gb0|J3xS
zug>0HLrL-6vOYpst))!J-5mv05fOT}#AYXXg}imh_F`_vl~gc4U`FD=(X5Xo*J5Yy
zJe*oY5K}^B`Fbl|x$=(iVl~Gti&ZFYgT*<`57jW8_go<V0bJfYZNB_&{*G2g8a>ZM
zxq26t6dAnGlxDX4xt>ruCZ;*S%)o8a!DQY8^n)OF$X2o-_xf~?1Q5&)1ffK7$0M~<
z@DhsvWsd;>t+40t1^{@7EIryw&N}s}HLDuUW6KL;MRp;S-$D8$K%hQ?*uy=gm;mP>
zl07kvk=3S7*Z<4)2u~4bF_CQX@$*98{{8}<NUh1twmKjw&B1^r!pUGLUuI!KX`u~W
z40plN3y{kQ{v|R`OM50nEH=&ZcXyAN;0`l~3A{A=_2$s}>WN;z@A8_O%w%S6mSq=#
z>qV1iLi7O;x<er%Vbf?{{N?Ij8wuqGpo^%3-AUXd!BeQ?;pJ8m+5j2TdZkb(O%IHQ
zqZ<GFd8J@R9@#Z$J#52Wr;YFzdIvaLs$m{7jzWA{2Sd2-K}98vdKaWeHzY3}i~^hs
zvjvMNMu~|QKq@t(c@Q;6Sy>UAH;eYaIPsHM1^;q1e>}mg5R5KspmGA=FD-y}&B3rl
zdT%e&3whz;Rzs%2)2ea)6TBb%Ck7qc&0KZ;Pzo2F+@Z0Ju&Iy$WdQCwE>r${=;~d<
z`Ixl4+cfjrEs&sdqoq3NVIX4{P+tSnWP~L1?$!%pmHkbEOE|yVicRhWz(<}$YH=*O
zadP2y^I8@ClPLZPWdPao+eVS4#q;KWw)KjFLLnJ-hVdQ>&nJA@WK9KYXk~UL*S2Ac
zl$70a>Wz6WlJ+S53y@@1ZH0MsZmJ9<FM*PrtgPvc7Nw`CEW#Goq~q5y*Q#f1ZmVpZ
z7~5vxobWnOV&kllgoah+N%BS|=f2Tcrc7Q}#m7oD#-^a9HGjY7cBJ0Kci3dMBK>m2
zy9@jDEL8<3fh6$v+}%MEr8$U`W0SbArOX%LCFb|;XdSD*;BDsA#zYQqAsKua<NS}*
z-@@z_^~&P0QJm_&&#Lv|-^SIbxtc}*Qpub>X?|fB_*5O2mNqV!hu|dt;{Wn~^T}NY
zZJLJ=0z?E-_McCJ|B$SYUHbzWR@O@bK~AtDGlxMZ$pn}PB}oWyfv5V2IHsM0&_jRi
z9p9<HjFKHP^uk&S&?h0Ukmcpuq4bDYaIr>`th3Xu<&WexFHynluh`=Bs3=$(8k<o|
zY%YKYm*paOQg7U5;CAG`z6)PC--PBd154N74%~#^?h40#hw6#yFo(+M-VRN>Jv_O?
zZ>Bm9xiYAkq$v=BjOYn$o1J;Vf77F(e$Xg!e4PL@x5<UPHOzLq$-9B?4NW-GQC{OO
zFX;L7&XFZ)a?w*)@-zu7cDK4durOnwq@l5k=%ckE7ARl!DD}K!#qa!PP=*1-*-A^x
zWRfaR=7|$7|1riiqZ7aVtD}H`W%k7h@U5g0Yz52YF2mx?&x45-VB!Uhm3N|CA?!p(
z56%8*2b#JkAc{!ngZS_WIr8v|F{ysW|6>W=GCUDvK{p*@wr_usiN9E~2$DMiZD9BC
zOjD;ggk*heG<=OQoiA?Q5vVuqNa)oB-f^>dBTPa8tkq)6mk6kxghN(VqJcS@{Sl@r
zjAZgtTcA<m9j&?69dY7{^76EjQ?F@Safp=r91?EQd)FFY$h&2GB@~WCA44T2nH~F+
z2?06Rt5k3onEj@js(@@m<7%-}R<0&>T9N~anXPxD6BE6lR@#>R@Uy{?utz6~@Kf(%
zCHW=Lm}3r~noj08d<R((k|qj4U9iM~{}HRMh9hc>ou6DL*zgWb3vFps&3h!$KvlgR
z8h1l!X%dV!3AMO=K`2rcv+e8?Zx1A6>y~sOvOev4EvD&pdLvMcirALitiADM6=na1
zWoBGuc=sVrqb1lbq87hX^@2>cll4P|T!ea{p*Ni*5>ST@+>j%cX5}2UnbGAU8unLh
zv`eWoo`Yt?6Vjw2LK%|F(xQ&os#OMrp`^P9ITsnIMP>Y+$n0HfiUQraRYr0~9uosu
zf0k~@`$%R(K7SD&^A^ZgTyO)%G^JUkmoqnn96n`bW+J@cR8Kk_Mj&}Ef|~M6lqJ(*
zWr!txSzN)nPw2ed0s_*&gXt*GCds+sZrC8kD<`vt*tOot?0;F>3Nt8gA~LW+SXi!<
zn~tt%@~}vngd0&C@-<$F;h;BDJr^X%P0$8x_<LBqqf23|Aj>Cd^1i1EpAeZXoQwBC
z4u<0VA2sINDPcEO=AwP~ElpScrK5ljgaAosL%&L3gg<K)T>ZOeXv94Yru6der`*JT
zC3}suwvp@E2|i$E7Ioy<5v9ZzsC?R>{P9G)$PrQ<$HsD!`fVz7aXR#|gtLRXeTQEq
zW_LC^Xb3Z#)P)q~e^tlUB%4$Rr5E9o$hUnAI-1n*l|L$_IDMZ7ZIhDP1oc7=LZlG1
zK-#G0NQp+5{p5-v*@QKVm4}1MiqQYm2BkomxFT*~JZ?`!*bco5S{5bjH#yT3aBH+e
zS?1(~gW-)wwiIpAgyjLy=nx4RUv&L7NcbIk>5z`YO;kCo+BMTo@DW%Fh-gXM2`@)0
zb$s-)g>SWF<z6^RzMy0LdJvQnD|C=lZc|2i$yt5$waM|2nS<`ibf4%9Cro|VNLKoe
z3=YOMtM&xDRZjClT6VSwSv8bXO+zj_u=hNF(1bWEv|97MN=sZnQu|^7s(MO&wuS&%
zvPZ@^1z9&z76PrC<o9S988Gb4e(p4w6uO$|qR0TG^Wx)I+CFdEC49Rw7iHeQ$;CCh
ztS&~Bl3WUK05m>alV!gABsT(bQj?x6?*IFHe^7&8kcYIP^3^4Mr6XwHDaJc)Y9A#x
z>P`LCW?cPPr)1bG6zh14Z$|{SRmT+wOu?%A6DjL;KxUa#m+c$1{>y_T8q)7b3mQj~
z{S11rp$3BnvY}B+;&VZdYwMkTOBx4*sz^P3+XWozyY33q!|~1e0t2|;mR6kH-IB9)
z6&5V4+1g_D+2RQ#6D&fx$wFq1->&aDche=|+3z0RE+RUv13hTte}*V5=`yG4U9*^M
zNv<;JPf$OSlvT|*`J{ghwaL1D=c(_EnpN7!Yt5_zumX*XQ~+Q=w4PIIGy&p`AdlmN
zJMe-X5(Jpb_?Eo$&mVg>^+73r3rb+?h(7B=x!PW2s8jXS{Ovo`ZyXbYr(ZJScT$>1
z+d+!d<n9)en@Hq>j9<!<?DQ@XnDL^a%nt9T4UNYhr2CDQHY?}o(2KX5xW8@`);jv0
zs5vmE{iK|n9H}Nq$6Z=2h9~20?}y02WH2d$F~5h*l+_t+FX1llj}JAkZd~(qrkJrj
z-m80V<a)(KY7v>UOIw*x5UbWrRb?!4AAFXA({t}px%|y18ef8!K0Y+GbU~)s22Sv_
zfc}C3fA3K(MZT1f?qmx$@Fl(-oeKMzA;M}jx=P6Lzcz{N2W0Y9dw-M4Q5B;^SP_~d
z1a~tNP6bdWDSWn`7uw@8^_Hbb68f^nru+Js;t8Ejf3i$JmXpMsQ_ay`eXALO>ueGm
zel-QlmF-Z{s`Qz55ycf0Jw#YU-+M;Z=N-~~mJ1To*ZL9ImrBK6IruOsNaAjfj*mCy
z|Aej@RcYxBjQrQrXext+nFpFe9wBlZ+Tmf-74%@+XxgJkyy3Im@$=)=VGB&0p7v;n
zXoCl{2c9`WhH_rSj&;8m_IR|*;{6`;5_bQ0NZ57Y(q|;DDY?}K@hHovc!#PF8)?>j
zx7S;23ys*Y6ah=$#WEJ7AOHr15ty$;zH=BEo$+C_)%c1k$t9t9>2{}Se%k9sln02@
zq*#kO7qI1dh=bt<Cc%Sfm}7>1OVz(|rw;rmfE2f4TBtXvU?yMxj#fur`_XpgEDK#+
zGvSp?m&KuTAzQf^Z76ZMwV#LO7NK2jL$op*4_ZKLR%d>zB;-Owbz;e<0Ai^PxXoQm
zVijR!^#Zt@Ry*WD3S<%<60<r3?I3Mc$~mTj-HtJ$;zX8?4^<~hHf&t|!H4Az3FDEx
z;lm;?3#xKw4qw_|mx{9R`d3obl9Cy{Lxre>@8?W7A~O_&L~8^ci3eD<)0ke+)sv);
zXrI~;SG^$MJ>(_1FqMg0r|r-6JnpEDGY&MCWso};zhg6TW*mINoNOqD`npMIAhlW>
zl`yHJ&<$HIK1k~4`5*PO^o10nG9Aq7Y6Y<2j_M$}de#y6kv0y5r-UFRnNtvJHh1gp
zB|A4039k->rldwl7`MZR-3b9`maBeBU9@W!ztdhxU{qf)7uaHP0STi8)$HT7BW0TR
z2H=6L+1Iz==jTV{K84UP1*)3?5g^GAKO=v;qnOA`aq_Ppd5ih8oZiK%#OOaUKb0{j
z(i14smR4I`w4bFuXQ*<djYckxrQug~-EEPb@T<B;A1@QUg_H*@Hf-F5WT}Z$%yqP6
zU)$os(4sb8%5;n->?RC*{@ng{82gnVYf7SuBIU~|R+3F^vqs|Qh)fL5X1pkad3wyq
z$0T_>snY>Cd*kG=EpZ~i?wnxCG59I|ZdBs;+TqEvdC#zCMuh_Drl_fxazt!PPLlsU
z7I(BEMH5lSzP(LjHqp74HdvI|q$vb#am7IC7|3r1_V$hhnVOoK<jPY_g~&}<V2gUe
z81-e$^!;WAod$e<Es^Y@%KSDOt1B`UKZ-q*mn9raZ&7@*5l?PJng~skVFX-Apd78m
z8ETHk<1aTljcoalc_7>5Y6U&xNn}6d<w$(kDEMV}dc9%X5;B00Sf)AnhTOxBhky9k
z?|!EK>o32gQ@`M<|5s9qXKHqMB;hcmA!!8cKn8i8t<wfmO*B+WQNTa!>q8Gw|3x+K
zn&683>pAG{J%#qPok;3|6R!&w-POfpSxBcOjW0eyN_Ufo-7mytrUx3Idq5^n`mo(Z
zM~&OV&BImUXcKOiI9I!vi)%JPHRIcw%9&6S1rs`udLadZim%LedeuN&ob_`PuFsbB
zl{D{uzU)l07DC3;vwKz%W7@{7E@A*;B`jxnHn^!rs2~dOeX7#iWgD{Kk)Y<es81bM
z*(YekNkQF;ew2#&#BYvK#8=hC6vWb`2T3@Ii14w9wV_1mDoWUzt;1EE<18F~u8G;b
zv5E<{*l>wyJQS;&sdL9TxUJLMA(OoWsi6=8f)2=sn>^1i!xe@V&DRq|ewgGuV1#01
zQN6aNCM|A&h<Q*ezgfFaS}<tfMgoO0=EQ!J$IU7xI+_&7h45$ENe<S-hy3$f5Y<Y{
z3}dvC4geYGeMyt1QAd5QqFOARV7(%AQ`0zo8VC?_{8?yefoLDRArNc^JQ>sy1ixPl
z;}S;eC*U$vNH28bD!KT~aUB#dTeI^%bpp}=`;RTp<jCDc?DxqbAgNFPOF}OW#@$UU
zTtgA3viqw8w-Y2v*)M1dTCZ{bc@8oX2t-M#8Xi8EAI!tac^4uzK33NAB0Z6&4BaaL
z{{3cW;7hhH!Bl8zNxqO$s=1UojrfMnu?f~)^F5!mk<#q|;OL`<<s^s*0JOn}kkt}h
z^$&Vb<e4{lSW9%?4^iP5hW}RVX?a%Wh4G?*P>{(&Bm1&a7pB5HiJln}WVExp+%rk<
zOl(0<>Lt?vSS%ifQW-$WV=;RRlIIb`<%@aouD1A;a>JL2wPQ8Pl0*<mUYU?Zq!#gD
z78fzi>Uflv=t;oy%;7id+ek8vnwUV=ZAS~H<qoR6j4b3;PQ5Nq{Ev7MSqWmlnTRln
z1{dhtE`qs=q4>8CF1$>1{16E51guLG+A=8lb<kU}Q~?NE>fLS_`p}iiJ7Dr$+%_85
zK2-<4{eXMar15x2He`;z!K02UKDR_>)cFOyU`2JFus*PX*bWyzF9Iee&D#`N`m@O{
z0ivJfWeQg_8E+=&GAYu{0Z6A$t3C>zpV6!a$)`iWJn~K3)r@ID3Eze6oo%Aobun|S
z>a3;C=Z9$M-sgfqN(v3=Y*~r-H@&Ehu{tJ1CSy_br~@8d;Smj&yQ#IPfVYu003<w(
zLwHN+wQ`bh3vDzmNT~A`vFJCw5NslR%DTp7n84x4_fY*}Buz=jI%^kCWosvUfGKV7
z_j-HaY8P~HV!+EFF)V~%b)B(VQr?6rHYfqTNP3_!pFvu<$UTR%guBq@3=0m@?zO2`
zffvY1v(Y{vB`&CDS-g`+($W?nz>j8^1JU!BmOg?f%!cAR{2tGTv=JmBNojLP@`D_m
zP*ZxQPrq4zsQnR1oP0r-cP`|0k_y;|pbMVq)t9u4CM*Gf^4C?MdB7L6D<pPoXk|Qu
z#tJ44Q$&CgbTS3)Y=f+rzfR_DD2j3pxDFb=46gOi@nI_gkP=Lsz3cKxIv9z%tVB??
z%CEv8zurKuY2&N|!mbaB>X#+?xWj|niKSoAuIEl-JB(_t6f6qNO*eK)_)}fJ3wO%C
zG-MG%ZWv^&13>3IqJ=Lsp8M{&1BKYs^O@I#koYNu3#_av@R3x-pza!W)ZG>-eSVJ~
zaUcmbc)92#xnoyd2wM+xQUVyBG-X$5HbfHR)aKejnO)*G8PCfHt)3*=;_2+8eSpL>
zx~^lLxeJyyCNc4R{!C4hpreyYzLR~N7cez8!bEPNE%|nvCBIf@V>4f{Rh4WR4W{ft
zzsbhxgQH4>NheH}Q9h-twKI^{SvG`-{aAW#-z$x3MKu#Y{Ebp>`$}!`TWnS+Ql-N&
z2?-{aS{rAlfriy-OZux@$R2^w-FC^-Lx4Kuyv&VG{5eAtPE?{cs(fAmuC3!{>rt%L
z&p&<16<Y0-RvnnlG-3VW!1L5EN~m~zzn#brxpzw-7+pP{iOq-YN@NPAcYeo?K)N4Y
zD2Thg;2OaG)2xA;u4ea+YYbJLJ!E3->bWYM1aGyx1st^6>l>$?cz~rhb)?l)x@8E=
z%KKQ&eQ8ozW~MZ>2Iou@tFU(8lTZB?H-!rHQtGZ@0u=Xz01}t&-iO8oLDOJ4u<INX
zibolSB}U$D%}OWD3!BnbA;NLAJUi*RDi`Q%$^0M|NZDi>;xMjBWt=b{wrLu>y^3XC
zxkxj8ago87kpuTz32Bp2&)i8{0%NOBo%yx>`al~?kl*_PkLExSCy(g}puI?t3U`zR
z{xXK*9*2d1H={soMZxc!H8e8vB~2jHZ~+K1>H}nDWYvKA3=asvSwc#<cDNl~Kyy?G
z#3JOS@g`;AT9I`Phx9|*cO;d9_2<tvOrYdzXC6X*X8~;iI~Z~~{BFyJ339yjcuz`O
zpnBr3S2~+LDqN-{nh@hymJblemn861Ds&${q$i32m4s;kl8eNe^Ae%=1dNDu7Yz|}
z>?)ZzzN!9kDSxJ{>oIBn%hE;4=tIa3B}YV;QHVPB*5OGh_9Z1#qPVo0u{(jesw6}a
zReb=^P18jU<PM_<0Q=xxaedU&%t<Ff3VuvIaS5)S0s0*1ZLHWONtlXu6zdLyBiO#z
z5MY8Q)UB)>v)hdNps6Y2{tgO5aMmeZS2ET=Nyk>LxBq<cG`15Sjk+iSf`c^DH+NA9
zM3`~Tz@W#lxDQg@cI1|_;DKsdN1i2*m>4VCNUZpJtHRncWeRuPtF!kQ*V_TV&mZwL
zBjK!dM*%hgx-U6sACOp{)!ZT4!p+5X7LBLWZVMK)_nBtFBrqc@=@uEqwoe7Zfrxo^
zFh6n5yPbe_GinS1Yp&q71Q#Tbea`4J@)4n&Xc+s2a%UnXWd~DjoSuXn?9d(eYe6RI
z21<Dv(@#3%f@?qL=}C>ik>qIoc`WVAx0^)UAK}8ARCE*zttbo>AeQqb6Qea|62-Z{
zQv`vxpYm71+76C4f0p><mo$Xc*y|<4s#LLRhx(_^ai-PAWLiW-DYj5Mxvo=+?>mX_
z*wqv=I8{$(WvOnUF!g0Tn~&yJwd^-t%H=}YWJh72oNC7$ujKyS=xy7n%U$8fyRLyj
zNmysM2r`PDHjXE!^0CwET%hGy>4fFU`DduPyv%IAKV@`uw2`V~gq=t&aYRtFEbSC+
zF*)EAy(l$#^N`ciGG~GQF4RJ%FTHQ2*fI7!*F--liNks)+-tMZDrLdq!BpLtUi0~L
zyWU9+>ly{_iE$LAUG;{&szGHvAG-Lp22!I2Z#g>;IW`-mCn1;bd}JcjIqky3Sj&$T
zfuo^BzhIj2JHhJeg`u_zG<p8*V6ni8$B8b^N=iyywap-B0-t=Vdw8oM4}7aYPCpUS
zG^AtQ<HzkJLhgZivUM_Hmz`blwR0k3;(E`Q;3T(<xXHh;&cvfmL#L6hi;7d<Suczp
zj=+Qg#E|O>h^i)kMhzajU*UFC)~E5iJ=8I_nJ}|;NDOzgsmEa<{DHj2{9;4S;$zM@
z$xSUow`B$|xV+yzDs!CSVD8ORs-5AY^0&CphAZynjqW(IaAPoC;b6vsfv%AGnX*cL
z{&T~JZpZPa?>}eAeV5IIl{O$<`q*!kf9Kv9n)J?b%%804Sa2A09?Y9@F){9%nG@=|
zQ7-<m!ZO5?<Hp>SIYmlFW(@}i$5npD2ce-X>ABFL<}z25mad>|*sx*$2YomM^D&>5
zlcO^*6E!{S^Ec8z8p>fIp>BbKr%(4_M?cNXq{lw~TQkYFLDm_r36!0p5u&ySC#kPq
zxqb1=efe_BsR&w!Jk7c5X{z|o1OGbX?NrTtC*iQ%KWSqH72?b&Qug*))HdKAZl@RV
zWLbBWr`sVM=!tDlbn=@khZElJD&lrRodvY;n@DhZ8*kcdhEW#xb_{%2H#37PsHQIq
zFGK24N(&Sl;UOU_8@8Y6+v@3jcCA_S-V1MpZPu`EX`4f?#a-o)_jRc6^VDo_eUg^l
zw^d0UCFSL}USAz{C`WejsjhA<MHx=xRLc|W2M(;Iz?}W0!suRLbm3q4xvEx$eL+jl
zZFn&6f{!V1w2d%}yosi1%8ix3T~pbl_O*O*_~Sc<l?XYP9$wJaZuKZ`ZCzM&V&mp6
z>vK+3<)+we{0L=&C;?LDd4g&TZ=Q-6nRTL4-0{~M!|~br8>`u#9IuHo9N$QJ|Ni~3
zgBTCbCX{tksJlNkHy>IMe_}#Zehl6>xwO~|zT-(e$j2|t`zqtZ25E`%N@ew!rh-Fo
z5UzsT<T9-x)gjE*2<__X==g@VK8oAOh&jFIDetaT|FTFCJ#WOZNcF|`N``aJ)*Dsz
z_4FL_y!n*-4V=s^BtDkEfB##wH);!7+M7)J!#=F#47}Xj+}*vs$IqT!Pif{GdAQEX
zMkVvRylMz}5Mh*KhmY@~tWCR^7NhF?wmDZUcx!q3@WfSi^=Z!O;D&*T`|Zzc7HzmQ
z7@f-nS~}!j=*p{xUhh{sGd1gW$un7W^8@-W_~J@CI5{;gJuk-CkwW6ZMR9|l#45E&
zH&0K`WfagN5vn25__NKCzJ>iH#5lV(A8;Q$xRUbt90!qY`V`(hAQ-eU=&0H1mdBnp
zm@|bq#F7a~CQP-irqo@vjraG2I$&k+1&p~kO)7!bkcGJ^zPH1QRtt0XNyR3DOfxex
zlve|yv@z-KMG`kqo!uD&{hk|Ql+j=givaK9&xs9qK0H-<d3jiI5v~!~;!N7R*xF{C
zUNg#=Tkx=UA0x){#0Zd`IM5QPAMO9);)ij^PNUq_Zd!1OF4Dm$n9T!IXd*js=m|?v
zadF|tYg%SPWXUTNJeO%+>PL&xa*BtSSGF_9qI$j)1KM#`QJmnp4YOM*Jv|Qi4R7AD
zqf0R2eM4MCK9m5vSerh7-sbd&tPq?WsBNeZwi$H&wRyLN39YB|Rd5KbO`krsj5p@z
zOQ;vPG~r<Nb<Q|Upu1;9$boK$d7w(UA)>szdmib(FDn~&6f}F$u{KJg@=He4_jKv=
zhu;X;a2?QRtA8y}ag}+~-@biQRbRezk2fwXxS-mX<YQjMN-q<teYZ)E!S`xrB3CZP
zcPNaqEuE%!ltTw5K-1<p!`Q&<qO7)WALAW9lijN*nAWrpoYSA>GS92OWpy$5v|CUp
zzbz-e03j<VB<w^)?Co}Z@D^2{Ih>fhi#hh~OEzyiHBx7t5`8-DB>%*+h)Q=<1Qg09
z76}j7SJ$=K3kH=9ObQ3rTUQ&V*}+(Bnb2}ca*s<<nKrCWeyyOU#spsm!L}@T7)RNS
zFCbx9oA^p%f5HX+32usMklu8C`;m)JcjlZ>C_kP0w!ba~LK9=kAWd5MvE#>=qd93c
zMaXV=_xVtXff2EwvQEpCw}7}-+&FlQ&g=HUkj(s=8>n*PeD;w;RLHT~PL}tt*DVu)
z`p1tSkG!|-vbvUh5+0<C%x&f3Po^0<c6RhEu5-M^rKA3Eu`hgN?xofl-zwBTW@dJ1
zVSZ9;WC*<g^t*NyqU3h#?KM1ktV8WJx}ZOO{>-N5g4E#~vQhK}tirub5wf`#n*aJj
zWIZe6>?>r#Tvgy8cQZ0F-WaGCkbe{s!W^%jRi*#p%s@7baOEPoxVRvSy@jujh^I9S
z&@(Z;1@e3kwi45lDJz;Chr}Q7?B6eCVv=CD^^Ivp8~hXiHk~jr;il}CkYI*7`I!IF
z#_>Bv`LO)stOArr&%m&@F7Je}&Fz;@9$a73_4be2TE&x-Yu8YRQ~<>?GBKTOPOCGX
zLfV9xYk#A4f???Ql)8&rS~QgX+}s<@{?Kp&s7%?}JWs}Wq&eMz2yg$y;a6w3{m$rl
z>f=sEX69R1px0O3*ks-B-8%u{1m*#{mz2oDo9(2%uAbgqIc>^Sm_5EPDf#34bKKwe
z+18?%JbvcPI;g+)pyq|{cKzMa+yD%A0c^ek&22I;WSg2NK8m^JT%|`QhME^cjrP`T
zul%wGD$zUWnBL%~qj>G)$yG4&J*fgtMnpv9s$dZ59*d4?AZGB}>5Yty|1P=qCvK_c
zX1Lh2cXi!sxgUq*VI_JBbEk53OSeZxM!FmE@$ofjav_VC1poRck69+U#7eL8vmQOV
z!)@=><G{dmvOZyz*YTehu%8MW+Vvq>^kIjGw5ZVR2$<x;6L+u6D=WLhuZ!YkZB_c=
z!#g|f(j$PgnTaiyX<O+SLpEX*>;C>HwEf=L0#d0@lUOc1Nx5~@_)E)Vkt+$MRz})x
z{`=SUH)dU)>-xGi`26j`LDP8Ev@_<K@ISjw>Wb+ne`47C3pjc(c<<xj2#<?fPu%hC
z#4ef8nm9}Ou<;)~ssr08z7U-w0iWvYdnY(^_8C%<Y-*l>_yI=We`PO#t<#Q340!+2
z1I*-8V4u-q%b%u7RMuutiZ5|it0X8YCnzS5oqTb8Y10^HoWS6|-!7$RWW@PAFJP0!
z)pM`mh;Vfivg7L}CUiy@F1X%rRbP=48M#t5K`?AC*rdBpKl{N0+T^V8q>jDVFJSLl
z*zYcP$YX}_h!oz*x^?TW9;U~7l1B!o6ZLGXwZIS7sklIAT?A!UWmVOmqoWqrbajtC
z(xu<9`kJ1eHa^&wd}mP+QBlHS-agnIgudr5FLl?$#qEy|AI^YW+wt<C4(LIk7HdFD
z913M>laA#MPoO~-<b>!mg(_wk>CRpx86v@(069e`CCS*@9vySY)0(`LV~Q3bdS>QR
z&d%bPq;VT^F02y%8x~OEQBkWgqU~no^|^|)mj}^fwB6a+IXX7>I6Tq!8y!2g4D%yA
zkru>b-lDm1O*GABXJ;dHSa%N%-7eJrqvYB;5xW7|{l$Y9{V$i<xO;o=V2W2%QsT;1
z66&@RNli~jLY^-rD|?4t3lPm;w{ESrvb8<&y!wv7-*E73N=%B2Tha2{leiAxR1`N4
z4-YrJja!$lDcP56vK0hLe0y*YNTYjMEiTUcetvY{wyeTU&Bsc=2+r-^(RHg=uRe_N
zyOdYm|JPn<Oqx9TaGcoevu(f{HL0LL0C*nMQQ+Y*hvq>FO0#nhRDl(Sk}FUha2PM2
zq2T@tT`?a&zem8aTao$lbw3g(mgUK82Oi`c+O(Si)Uf5@;{#3b#7$qP2+~;uOwFK}
z7g@b(Rg=!?8@tQ(fv1lt#mX#PyOtMt*3x0%@KE93U!}kki-0I*cNs76Br@l`JU!6a
zxeN}4g@(Yhx{q!J9$v}JkOMrRee0*N&`?GO;3kd3XRm?`KA|78s1d|)dITJ$KLYF{
z0;fDXfrn?g?6P2Jc=jv}cwp!c8~<skbF9nxfZg2ig(355fh$cbfIWhZIX8_;%F3K3
zE$Nur3Nj;!op}#96JGwLeqi>zd41o$l>wVFQ@vb4q9Rs2AA~?*?Rz?H^Fm;*JA3wQ
zMt;7#zdt|l{*wtn<$wOv09VujXTRq)gstu^2?Ujr9ZiQA^g+=A27x_~)PRRWz<^;F
zV;m@$z+jQYQ52QXpaYrFq2XqDz#FE^MPxBBC&9ESbp=A)1+n3%23rN#Ua-C-5r~f<
eTFJKVAN$|Q|D3&SyZJ!thdo{WT-G@yGywq5K1&h+

diff --git a/reference/as.mic.html b/reference/as.mic.html
index cad445346..5cd951d90 100644
--- a/reference/as.mic.html
+++ b/reference/as.mic.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</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">
@@ -101,12 +101,12 @@
 </dl></div>
     <div class="section level2">
     <h2 id="value">Value<a class="anchor" aria-label="anchor" href="#value"></a></h2>
-    <p>Ordered <a href="https://rdrr.io/r/base/factor.html" class="external-link">factor</a> with additional class <code>mic</code>, that in mathematical operations acts as a <a href="https://rdrr.io/r/base/numeric.html" class="external-link">numeric</a> vector. Bear in mind that the outcome of any mathematical operation on MICs will return a <a href="https://rdrr.io/r/base/numeric.html" class="external-link">numeric</a> value.</p>
+    <p>Ordered <a href="https://rdatatable.gitlab.io/data.table/reference/fctr.html" class="external-link">factor</a> with additional class <code>mic</code>, that in mathematical operations acts as a <a href="https://rdrr.io/r/base/numeric.html" class="external-link">numeric</a> vector. Bear in mind that the outcome of any mathematical operation on MICs will return a <a href="https://rdrr.io/r/base/numeric.html" class="external-link">numeric</a> value.</p>
     </div>
     <div class="section level2">
     <h2 id="details">Details<a class="anchor" aria-label="anchor" href="#details"></a></h2>
     <p>To interpret MIC values as SIR values, use <code><a href="as.sir.html">as.sir()</a></code> on MIC values. It supports guidelines from EUCAST (2011-2025) and CLSI (2011-2025).</p>
-<p>This class for MIC values is a quite a special data type: formally it is an ordered <a href="https://rdrr.io/r/base/factor.html" class="external-link">factor</a> with valid MIC values as <a href="https://rdrr.io/r/base/factor.html" class="external-link">factor</a> levels (to make sure only valid MIC values are retained), but for any mathematical operation it acts as decimal numbers:</p>
+<p>This class for MIC values is a quite a special data type: formally it is an ordered <a href="https://rdatatable.gitlab.io/data.table/reference/fctr.html" class="external-link">factor</a> with valid MIC values as <a href="https://rdatatable.gitlab.io/data.table/reference/fctr.html" class="external-link">factor</a> levels (to make sure only valid MIC values are retained), but for any mathematical operation it acts as decimal numbers:</p>
 <p></p><div class="sourceCode"><pre><code><span id="cb1-1"><a href="#cb1-1" tabindex="-1"></a>x <span class="ot">&lt;-</span> <span class="fu">random_mic</span>(<span class="dv">10</span>)</span>
 <span id="cb1-2"><a href="#cb1-2" tabindex="-1"></a>x</span>
 <span id="cb1-3"><a href="#cb1-3" tabindex="-1"></a><span class="co">#&gt; Class 'mic'</span></span>
@@ -135,7 +135,7 @@
 <span id="cb1-12"><a href="#cb1-12" tabindex="-1"></a><span class="co">#&gt; 9     32        A</span></span>
 <span id="cb1-13"><a href="#cb1-13" tabindex="-1"></a><span class="co">#&gt; 10    16        A</span></span></code></pre><p></p></div>
 <p>All so-called <a href="https://rdrr.io/r/base/groupGeneric.html" class="external-link">group generic functions</a> are implemented for the MIC class (such as <code>!</code>, <code>!=</code>, <code>&lt;</code>, <code>&gt;=</code>, <code><a href="https://rdrr.io/r/base/Log.html" class="external-link">exp()</a></code>, <code><a href="https://rdrr.io/r/base/Log.html" class="external-link">log2()</a></code>). Some mathematical functions are also implemented (such as <code><a href="https://rdrr.io/r/stats/quantile.html" class="external-link">quantile()</a></code>, <code><a href="https://rdrr.io/r/stats/median.html" class="external-link">median()</a></code>, <code><a href="https://rdrr.io/r/stats/fivenum.html" class="external-link">fivenum()</a></code>). Since <code><a href="https://rdrr.io/r/stats/sd.html" class="external-link">sd()</a></code> and <code><a href="https://rdrr.io/r/stats/cor.html" class="external-link">var()</a></code> are non-generic functions, these could not be extended. Use <code><a href="https://rdrr.io/r/stats/mad.html" class="external-link">mad()</a></code> as an alternative, or use e.g. <code>sd(as.numeric(x))</code> where <code>x</code> is your vector of MIC values.</p>
-<p>Using <code><a href="https://rdrr.io/r/base/double.html" class="external-link">as.double()</a></code> or <code><a href="https://rdrr.io/r/base/numeric.html" class="external-link">as.numeric()</a></code> on MIC values will remove the operators and return a numeric vector. Do <strong>not</strong> use <code><a href="https://rdrr.io/r/base/integer.html" class="external-link">as.integer()</a></code> on MIC values as by the <span style="R">R</span> convention on <a href="https://rdrr.io/r/base/factor.html" class="external-link">factor</a>s, it will return the index of the factor levels (which is often useless for regular users).</p>
+<p>Using <code><a href="https://rdrr.io/r/base/double.html" class="external-link">as.double()</a></code> or <code><a href="https://rdrr.io/r/base/numeric.html" class="external-link">as.numeric()</a></code> on MIC values will remove the operators and return a numeric vector. Do <strong>not</strong> use <code><a href="https://rdrr.io/r/base/integer.html" class="external-link">as.integer()</a></code> on MIC values as by the <span style="R">R</span> convention on <a href="https://rdatatable.gitlab.io/data.table/reference/fctr.html" class="external-link">factor</a>s, it will return the index of the factor levels (which is often useless for regular users).</p>
 <p>The function <code>is.mic()</code> detects if the input contains class <code>mic</code>. If the input is a <a href="https://rdrr.io/r/base/data.frame.html" class="external-link">data.frame</a> or <a href="https://rdrr.io/r/base/list.html" class="external-link">list</a>, it iterates over all columns/items and returns a <a href="https://rdrr.io/r/base/logical.html" class="external-link">logical</a> vector.</p>
 <p>Use <code><a href="https://rdatatable.gitlab.io/data.table/reference/fdroplevels.html" class="external-link">droplevels()</a></code> to drop unused levels. At default, it will return a plain factor. Use <code>droplevels(..., as.mic = TRUE)</code> to maintain the <code>mic</code> class.</p>
 <p>With <code>rescale_mic()</code>, existing MIC ranges can be limited to a defined range of MIC values. This can be useful to better compare MIC distributions.</p>
diff --git a/reference/as.mic.md b/reference/as.mic.md
index 3920e0d6a..b764af7dc 100644
--- a/reference/as.mic.md
+++ b/reference/as.mic.md
@@ -64,8 +64,9 @@ droplevels(x, as.mic = FALSE, ...)
 
 ## Value
 
-Ordered [factor](https://rdrr.io/r/base/factor.html) with additional
-class `mic`, that in mathematical operations acts as a
+Ordered
+[factor](https://rdatatable.gitlab.io/data.table/reference/fctr.html)
+with additional class `mic`, that in mathematical operations acts as a
 [numeric](https://rdrr.io/r/base/numeric.html) vector. Bear in mind that
 the outcome of any mathematical operation on MICs will return a
 [numeric](https://rdrr.io/r/base/numeric.html) value.
@@ -77,10 +78,12 @@ To interpret MIC values as SIR values, use
 It supports guidelines from EUCAST (2011-2025) and CLSI (2011-2025).
 
 This class for MIC values is a quite a special data type: formally it is
-an ordered [factor](https://rdrr.io/r/base/factor.html) with valid MIC
-values as [factor](https://rdrr.io/r/base/factor.html) levels (to make
-sure only valid MIC values are retained), but for any mathematical
-operation it acts as decimal numbers:
+an ordered
+[factor](https://rdatatable.gitlab.io/data.table/reference/fctr.html)
+with valid MIC values as
+[factor](https://rdatatable.gitlab.io/data.table/reference/fctr.html)
+levels (to make sure only valid MIC values are retained), but for any
+mathematical operation it acts as decimal numbers:
 
     x <- random_mic(10)
     x
@@ -134,9 +137,10 @@ Using [`as.double()`](https://rdrr.io/r/base/double.html) or
 [`as.numeric()`](https://rdrr.io/r/base/numeric.html) on MIC values will
 remove the operators and return a numeric vector. Do **not** use
 [`as.integer()`](https://rdrr.io/r/base/integer.html) on MIC values as
-by the R convention on [factor](https://rdrr.io/r/base/factor.html)s, it
-will return the index of the factor levels (which is often useless for
-regular users).
+by the R convention on
+[factor](https://rdatatable.gitlab.io/data.table/reference/fctr.html)s,
+it will return the index of the factor levels (which is often useless
+for regular users).
 
 The function `is.mic()` detects if the input contains class `mic`. If
 the input is a [data.frame](https://rdrr.io/r/base/data.frame.html) or
diff --git a/reference/as.mo.html b/reference/as.mo.html
index d9314c518..c09784e56 100644
--- a/reference/as.mo.html
+++ b/reference/as.mo.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</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 8b629e5a5..f0927bd4b 100644
--- a/reference/as.sir.html
+++ b/reference/as.sir.html
@@ -9,7 +9,7 @@ Breakpoints are currently implemented from EUCAST 2011-2025 and CLSI 2011-2025,
 
     <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="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -52,7 +52,7 @@ Breakpoints are currently implemented from EUCAST 2011-2025 and CLSI 2011-2025,
     </div>
 
     <div class="ref-description section level2">
-    <p>Clean up existing SIR values, or interpret minimum inhibitory concentration (MIC) values and disk diffusion diameters according to EUCAST or CLSI. <code>as.sir()</code> transforms the input to a new class <code>sir</code>, which is an ordered <a href="https://rdrr.io/r/base/factor.html" class="external-link">factor</a> containing the levels <code>S</code>, <code>SDD</code>, <code>I</code>, <code>R</code>, <code>NI</code>.</p>
+    <p>Clean up existing SIR values, or interpret minimum inhibitory concentration (MIC) values and disk diffusion diameters according to EUCAST or CLSI. <code>as.sir()</code> transforms the input to a new class <code>sir</code>, which is an ordered <a href="https://rdatatable.gitlab.io/data.table/reference/fctr.html" class="external-link">factor</a> containing the levels <code>S</code>, <code>SDD</code>, <code>I</code>, <code>R</code>, <code>NI</code>.</p>
 <p>Breakpoints are currently implemented from EUCAST 2011-2025 and CLSI 2011-2025, see <em>Details</em>. All breakpoints used for interpretation are available in our <a href="clinical_breakpoints.html">clinical_breakpoints</a> data set.</p>
     </div>
 
@@ -232,7 +232,7 @@ Breakpoints are currently implemented from EUCAST 2011-2025 and CLSI 2011-2025,
 </dl></div>
     <div class="section level2">
     <h2 id="value">Value<a class="anchor" aria-label="anchor" href="#value"></a></h2>
-    <p>Ordered <a href="https://rdrr.io/r/base/factor.html" class="external-link">factor</a> with new class <code>sir</code></p>
+    <p>Ordered <a href="https://rdatatable.gitlab.io/data.table/reference/fctr.html" class="external-link">factor</a> with new class <code>sir</code></p>
     </div>
     <div class="section level2">
     <h2 id="details">Details<a class="anchor" aria-label="anchor" href="#details"></a></h2>
@@ -416,10 +416,10 @@ Breakpoints are currently implemented from EUCAST 2011-2025 and CLSI 2011-2025,
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># A tibble: 4 × 18</span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   datetime            index method ab_given    mo_given   host_given input_given</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;chr&gt;</span>       <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>      <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>      <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>      </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">1</span> 2025-12-23 <span style="color: #949494;">10:09:01</span>     1 MIC    amoxicillin Escherich… human      8          </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">2</span> 2025-12-23 <span style="color: #949494;">10:09:02</span>     1 MIC    cipro       Escherich… human      0.256      </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">3</span> 2025-12-23 <span style="color: #949494;">10:09:02</span>     1 DISK   tobra       Escherich… human      16         </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">4</span> 2025-12-23 <span style="color: #949494;">10:09:02</span>     1 DISK   genta       Escherich… human      18         </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">1</span> 2026-01-06 <span style="color: #949494;">22:18:05</span>     1 MIC    amoxicillin Escherich… human      8          </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">2</span> 2026-01-06 <span style="color: #949494;">22:18:05</span>     1 MIC    cipro       Escherich… human      0.256      </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">3</span> 2026-01-06 <span style="color: #949494;">22:18:05</span>     1 DISK   tobra       Escherich… human      16         </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">4</span> 2026-01-06 <span style="color: #949494;">22:18:06</span>     1 DISK   genta       Escherich… human      18         </span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># ℹ 11 more variables: ab &lt;ab&gt;, mo &lt;mo&gt;, host &lt;chr&gt;, input &lt;chr&gt;,</span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;">#   outcome &lt;sir&gt;, notes &lt;chr&gt;, guideline &lt;chr&gt;, ref_table &lt;chr&gt;, uti &lt;lgl&gt;,</span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;">#   breakpoint_S_R &lt;chr&gt;, site &lt;chr&gt;</span></span>
diff --git a/reference/as.sir.md b/reference/as.sir.md
index 3b02338dc..3fa12203a 100644
--- a/reference/as.sir.md
+++ b/reference/as.sir.md
@@ -3,7 +3,8 @@
 Clean up existing SIR values, or interpret minimum inhibitory
 concentration (MIC) values and disk diffusion diameters according to
 EUCAST or CLSI. `as.sir()` transforms the input to a new class `sir`,
-which is an ordered [factor](https://rdrr.io/r/base/factor.html)
+which is an ordered
+[factor](https://rdatatable.gitlab.io/data.table/reference/fctr.html)
 containing the levels `S`, `SDD`, `I`, `R`, `NI`.
 
 Breakpoints are currently implemented from EUCAST 2011-2025 and CLSI
@@ -349,8 +350,9 @@ disk diffusion diameters:
 
 ## Value
 
-Ordered [factor](https://rdrr.io/r/base/factor.html) with new class
-`sir`
+Ordered
+[factor](https://rdatatable.gitlab.io/data.table/reference/fctr.html)
+with new class `sir`
 
 ## Details
 
@@ -648,10 +650,10 @@ sir_interpretation_history()
 #> # A tibble: 4 × 18
 #>   datetime            index method ab_given    mo_given   host_given input_given
 #>   <dttm>              <int> <chr>  <chr>       <chr>      <chr>      <chr>      
-#> 1 2025-12-23 10:09:01     1 MIC    amoxicillin Escherich… human      8          
-#> 2 2025-12-23 10:09:02     1 MIC    cipro       Escherich… human      0.256      
-#> 3 2025-12-23 10:09:02     1 DISK   tobra       Escherich… human      16         
-#> 4 2025-12-23 10:09:02     1 DISK   genta       Escherich… human      18         
+#> 1 2026-01-06 22:18:05     1 MIC    amoxicillin Escherich… human      8          
+#> 2 2026-01-06 22:18:05     1 MIC    cipro       Escherich… human      0.256      
+#> 3 2026-01-06 22:18:05     1 DISK   tobra       Escherich… human      16         
+#> 4 2026-01-06 22:18:06     1 DISK   genta       Escherich… human      18         
 #> # ℹ 11 more variables: ab <ab>, mo <mo>, host <chr>, input <chr>,
 #> #   outcome <sir>, notes <chr>, guideline <chr>, ref_table <chr>, uti <lgl>,
 #> #   breakpoint_S_R <chr>, site <chr>
diff --git a/reference/atc_online.html b/reference/atc_online.html
index 24c57e82b..c36a5ac37 100644
--- a/reference/atc_online.html
+++ b/reference/atc_online.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</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 3dcd10250..73c5695f7 100644
--- a/reference/av_from_text.html
+++ b/reference/av_from_text.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</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 ac4738f71..d5c3838ce 100644
--- a/reference/av_property.html
+++ b/reference/av_property.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</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 e6afb9970..1be4d10d8 100644
--- a/reference/availability.html
+++ b/reference/availability.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</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 ef7e3642b..e1e488591 100644
--- a/reference/bug_drug_combinations.html
+++ b/reference/bug_drug_combinations.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</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,12 +181,12 @@
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> <span style="color: #949494;">""</span>        Gent… <span style="color: #949494;">"</span> 13… <span style="color: #949494;">"</span>  2.0% … <span style="color: #949494;">"</span>100.0% (39/… <span style="color: #949494;">"</span> 10.3% (6/58)<span style="color: #949494;">"</span> <span style="color: #949494;">"</span>  0.0% (0/30)<span style="color: #949494;">"</span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> <span style="color: #949494;">""</span>        Kana… <span style="color: #949494;">"</span>100… <span style="color: #949494;">""</span>        <span style="color: #949494;">"</span>100.0% (39/… <span style="color: #949494;">""</span>              <span style="color: #949494;">"</span>100.0% (30/30…</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> <span style="color: #949494;">""</span>        Tobr… <span style="color: #949494;">"</span> 78… <span style="color: #949494;">"</span>  2.6% … <span style="color: #949494;">"</span>100.0% (39/… <span style="color: #949494;">"</span> 10.3% (6/58)<span style="color: #949494;">"</span> <span style="color: #949494;">"</span>  0.0% (0/30)<span style="color: #949494;">"</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> <span style="color: #949494;">"</span>Antimyc… Rifa… <span style="color: #949494;">""</span>    <span style="color: #949494;">"</span>100.0% … <span style="color: #949494;">""</span>            <span style="color: #949494;">"</span>100.0% (58/58… <span style="color: #949494;">"</span>100.0% (30/30…</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> <span style="color: #949494;">"</span>Beta-la… Amox… <span style="color: #949494;">"</span> 93… <span style="color: #949494;">"</span> 50.0% … <span style="color: #949494;">""</span>            <span style="color: #949494;">"</span>100.0% (58/58… <span style="color: #949494;">"</span>100.0% (30/30…</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> <span style="color: #949494;">""</span>        Amox… <span style="color: #949494;">"</span> 42… <span style="color: #949494;">"</span> 13.1% … <span style="color: #949494;">""</span>            <span style="color: #949494;">"</span> 10.3% (6/58)<span style="color: #949494;">"</span> <span style="color: #949494;">"</span>100.0% (30/30…</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> <span style="color: #949494;">""</span>        Ampi… <span style="color: #949494;">"</span> 93… <span style="color: #949494;">"</span> 50.0% … <span style="color: #949494;">""</span>            <span style="color: #949494;">"</span>100.0% (58/58… <span style="color: #949494;">"</span>100.0% (30/30…</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> <span style="color: #949494;">""</span>        Benz… <span style="color: #949494;">"</span> 77… <span style="color: #949494;">"</span>100.0% … <span style="color: #949494;">""</span>            <span style="color: #949494;">"</span>100.0% (58/58… <span style="color: #949494;">"</span>100.0% (30/30…</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> <span style="color: #949494;">""</span>        Fluc… <span style="color: #949494;">"</span> 42… <span style="color: #949494;">""</span>        <span style="color: #949494;">""</span>            <span style="color: #949494;">""</span>              <span style="color: #949494;">""</span>             </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> <span style="color: #949494;">"</span>Aminope… Amox… <span style="color: #949494;">"</span> 93… <span style="color: #949494;">"</span> 50.0% … <span style="color: #949494;">""</span>            <span style="color: #949494;">"</span>100.0% (58/58… <span style="color: #949494;">"</span>100.0% (30/30…</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> <span style="color: #949494;">""</span>        Amox… <span style="color: #949494;">"</span> 42… <span style="color: #949494;">"</span> 13.1% … <span style="color: #949494;">""</span>            <span style="color: #949494;">"</span> 10.3% (6/58)<span style="color: #949494;">"</span> <span style="color: #949494;">"</span>100.0% (30/30…</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> <span style="color: #949494;">""</span>        Ampi… <span style="color: #949494;">"</span> 93… <span style="color: #949494;">"</span> 50.0% … <span style="color: #949494;">""</span>            <span style="color: #949494;">"</span>100.0% (58/58… <span style="color: #949494;">"</span>100.0% (30/30…</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> <span style="color: #949494;">"</span>Carbape… Imip… <span style="color: #949494;">"</span> 47… <span style="color: #949494;">"</span>  0.0% … <span style="color: #949494;">"</span>  0.0% (0/3… <span style="color: #949494;">"</span>  0.0% (0/51)<span style="color: #949494;">"</span> <span style="color: #949494;">""</span>             </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> <span style="color: #949494;">""</span>        Mero… <span style="color: #949494;">"</span> 47… <span style="color: #949494;">"</span>  0.0% … <span style="color: #949494;">""</span>            <span style="color: #949494;">"</span>  0.0% (0/53)<span style="color: #949494;">"</span> <span style="color: #949494;">""</span>             </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> <span style="color: #949494;">"</span>Cephalo… Cefa… <span style="color: #949494;">"</span> 47… <span style="color: #949494;">"</span>  2.4% … <span style="color: #949494;">"</span>100.0% (39/… <span style="color: #949494;">""</span>              <span style="color: #949494;">"</span>100.0% (30/30…</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># ℹ 29 more rows</span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># ℹ 5 more variables: `P. mirabilis` &lt;chr&gt;, `S. aureus` &lt;chr&gt;,</span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;">#   `S. epidermidis` &lt;chr&gt;, `S. hominis` &lt;chr&gt;, `S. pneumoniae` &lt;chr&gt;</span></span>
diff --git a/reference/bug_drug_combinations.md b/reference/bug_drug_combinations.md
index b15d31ab4..ca0efa857 100644
--- a/reference/bug_drug_combinations.md
+++ b/reference/bug_drug_combinations.md
@@ -161,12 +161,12 @@ format(x, translate_ab = "name (atc)")
 #>  2 ""        Gent… " 13… "  2.0% … "100.0% (39/… " 10.3% (6/58)" "  0.0% (0/30)"
 #>  3 ""        Kana… "100… ""        "100.0% (39/… ""              "100.0% (30/30…
 #>  4 ""        Tobr… " 78… "  2.6% … "100.0% (39/… " 10.3% (6/58)" "  0.0% (0/30)"
-#>  5 "Antimyc… Rifa… ""    "100.0% … ""            "100.0% (58/58… "100.0% (30/30…
-#>  6 "Beta-la… Amox… " 93… " 50.0% … ""            "100.0% (58/58… "100.0% (30/30…
-#>  7 ""        Amox… " 42… " 13.1% … ""            " 10.3% (6/58)" "100.0% (30/30…
-#>  8 ""        Ampi… " 93… " 50.0% … ""            "100.0% (58/58… "100.0% (30/30…
-#>  9 ""        Benz… " 77… "100.0% … ""            "100.0% (58/58… "100.0% (30/30…
-#> 10 ""        Fluc… " 42… ""        ""            ""              ""             
+#>  5 "Aminope… Amox… " 93… " 50.0% … ""            "100.0% (58/58… "100.0% (30/30…
+#>  6 ""        Amox… " 42… " 13.1% … ""            " 10.3% (6/58)" "100.0% (30/30…
+#>  7 ""        Ampi… " 93… " 50.0% … ""            "100.0% (58/58… "100.0% (30/30…
+#>  8 "Carbape… Imip… " 47… "  0.0% … "  0.0% (0/3… "  0.0% (0/51)" ""             
+#>  9 ""        Mero… " 47… "  0.0% … ""            "  0.0% (0/53)" ""             
+#> 10 "Cephalo… Cefa… " 47… "  2.4% … "100.0% (39/… ""              "100.0% (30/30…
 #> # ℹ 29 more rows
 #> # ℹ 5 more variables: `P. mirabilis` <chr>, `S. aureus` <chr>,
 #> #   `S. epidermidis` <chr>, `S. hominis` <chr>, `S. pneumoniae` <chr>
diff --git a/reference/clinical_breakpoints.html b/reference/clinical_breakpoints.html
index 5f2152cdf..0101f8bce 100644
--- a/reference/clinical_breakpoints.html
+++ b/reference/clinical_breakpoints.html
@@ -21,7 +21,7 @@ Use as.sir() to transform MICs or disks measurements to SIR values."><meta prope
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</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 f4bcab1bb..2968c3d54 100644
--- a/reference/count.html
+++ b/reference/count.html
@@ -9,7 +9,7 @@ count_resistant() should be used to count resistant isolates, count_susceptible(
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</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 18b1adadd..f9faede4b 100644
--- a/reference/custom_eucast_rules.html
+++ b/reference/custom_eucast_rules.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</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">
@@ -147,10 +147,11 @@
 <span><span class="co">#&gt;</span></span>
 <span><span class="co">#&gt;   1. If TZP is "R" then set to "R":</span></span>
 <span><span class="co">#&gt;      amoxicillin (AMX), ampicillin (AMP), azlocillin (AZL), mezlocillin (MEZ), piperacillin (PIP), piperacillin/tazobactam (TZP)</span></span></code></pre><p></p></div>
-<p>These 35 antimicrobial groups are allowed in the rules (case-insensitive) and can be used in any combination:</p><ul><li><p>aminoglycosides<br>(amikacin, amikacin/fosfomycin, apramycin, arbekacin, astromicin, bekanamycin, dibekacin, framycetin, gentamicin, gentamicin-high, habekacin, hygromycin, isepamicin, kanamycin, kanamycin-high, kanamycin/cephalexin, micronomicin, neomycin, netilmicin, pentisomicin, plazomicin, propikacin, ribostamycin, sisomicin, streptoduocin, streptomycin, streptomycin-high, tobramycin, and tobramycin-high)</p></li>
-<li><p>aminopenicillins<br>(amoxicillin and ampicillin)</p></li>
+<p>These 38 antimicrobial groups are allowed in the rules (case-insensitive) and can be used in any combination:</p><ul><li><p>aminoglycosides<br>(amikacin, amikacin/fosfomycin, apramycin, arbekacin, astromicin, bekanamycin, dibekacin, framycetin, gentamicin, gentamicin-high, habekacin, hygromycin, isepamicin, kanamycin, kanamycin-high, kanamycin/cephalexin, micronomicin, neomycin, netilmicin, pentisomicin, plazomicin, propikacin, ribostamycin, sisomicin, streptoduocin, streptomycin, streptomycin-high, tobramycin, and tobramycin-high)</p></li>
+<li><p>aminopenicillins<br>(amoxicillin, amoxicillin/clavulanic acid, and ampicillin)</p></li>
 <li><p>antifungals<br>(amorolfine, amphotericin B, amphotericin B-high, anidulafungin, butoconazole, caspofungin, ciclopirox, clotrimazole, econazole, fluconazole, flucytosine, fosfluconazole, griseofulvin, hachimycin, ibrexafungerp, isavuconazole, isoconazole, itraconazole, ketoconazole, manogepix, micafungin, miconazole, nystatin, oteseconazole, pimaricin, posaconazole, rezafungin, ribociclib, sulconazole, terbinafine, terconazole, and voriconazole)</p></li>
 <li><p>antimycobacterials<br>(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, sodium aminosalicylate, streptomycin/isoniazid, terizidone, thioacetazone, thioacetazone/isoniazid, tiocarlide, and viomycin)</p></li>
+<li><p>betalactamase_inhibitors<br>(amoxicillin/clavulanic acid, amoxicillin/sulbactam, ampicillin/sulbactam, avibactam, aztreonam/avibactam, aztreonam/nacubactam, cefepime/enmetazobactam, cefepime/nacubactam, cefepime/taniborbactam, cefepime/tazobactam, cefepime/zidebactam, cefoperazone/sulbactam, cefotaxime/sulbactam, ceftaroline/avibactam, ceftazidime/avibactam, ceftolozane/tazobactam, imipenem/relebactam, meropenem/nacubactam, meropenem/vaborbactam, mezlocillin/sulbactam, nacubactam, penicillin/sulbactam, piperacillin/sulbactam, piperacillin/tazobactam, sulbactam, sultamicillin, taniborbactam, tazobactam, ticarcillin/clavulanic acid, and zidebactam)</p></li>
 <li><p>betalactams<br>(amoxicillin, amoxicillin/clavulanic acid, amoxicillin/sulbactam, ampicillin, ampicillin/sulbactam, apalcillin, aspoxicillin, azidocillin, azlocillin, aztreonam, aztreonam/avibactam, aztreonam/nacubactam, bacampicillin, benzathine benzylpenicillin, benzathine phenoxymethylpenicillin, benzylpenicillin, benzylpenicillin screening test, biapenem, carbenicillin, carindacillin, carumonam, cefacetrile, cefaclor, cefadroxil, cefalexin, cefaloridine, cefalotin, cefamandole, cefapirin, cefatrizine, cefazedone, cefazolin, cefcapene, cefcapene pivoxil, cefdinir, cefditoren, cefditoren pivoxil, cefepime, cefepime/amikacin, cefepime/clavulanic acid, cefepime/enmetazobactam, cefepime/nacubactam, cefepime/taniborbactam, cefepime/tazobactam, cefepime/zidebactam, cefetamet, cefetamet pivoxil, cefetecol, cefetrizole, cefiderocol, cefixime, cefmenoxime, cefmetazole, cefodizime, cefonicid, cefoperazone, cefoperazone/sulbactam, ceforanide, cefoselis, cefotaxime, cefotaxime screening test, cefotaxime/clavulanic acid, cefotaxime/sulbactam, cefotetan, cefotiam, cefotiam hexetil, cefovecin, cefoxitin, cefoxitin screening test, 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, nafcillin, oxacillin, oxacillin screening test, panipenem, penamecillin, penicillin/novobiocin, penicillin/sulbactam, pheneticillin, phenoxymethylpenicillin, piperacillin, piperacillin/sulbactam, piperacillin/tazobactam, piridicillin, pivampicillin, pivmecillinam, procaine benzylpenicillin, propicillin, razupenem, ritipenem, ritipenem acoxil, sarmoxicillin, sulbenicillin, sultamicillin, talampicillin, taniborbactam, tebipenem, temocillin, ticarcillin, ticarcillin/clavulanic acid, and tigemonam)</p></li>
 <li><p>betalactams_with_inhibitor<br>(amoxicillin/clavulanic acid, amoxicillin/sulbactam, ampicillin/sulbactam, aztreonam/avibactam, aztreonam/nacubactam, cefepime/amikacin, cefepime/clavulanic acid, cefepime/enmetazobactam, cefepime/nacubactam, cefepime/taniborbactam, cefepime/tazobactam, cefepime/zidebactam, cefoperazone/sulbactam, cefotaxime/clavulanic acid, cefotaxime/sulbactam, cefpodoxime/clavulanic acid, ceftaroline/avibactam, ceftazidime/avibactam, ceftazidime/clavulanic acid, ceftolozane/tazobactam, ceftriaxone/beta-lactamase inhibitor, imipenem/relebactam, meropenem/nacubactam, meropenem/vaborbactam, mezlocillin/sulbactam, penicillin/novobiocin, penicillin/sulbactam, piperacillin/sulbactam, piperacillin/tazobactam, and ticarcillin/clavulanic acid)</p></li>
 <li><p>carbapenems<br>(biapenem, doripenem, ertapenem, imipenem, imipenem/EDTA, imipenem/relebactam, meropenem, meropenem/nacubactam, meropenem/vaborbactam, panipenem, razupenem, ritipenem, ritipenem acoxil, taniborbactam, and tebipenem)</p></li>
@@ -165,17 +166,19 @@
 <li><p>glycopeptides<br>(avoparcin, bleomycin, dalbavancin, norvancomycin, oritavancin, ramoplanin, teicoplanin, teicoplanin-macromethod, telavancin, vancomycin, and vancomycin-macromethod)</p></li>
 <li><p>glycopeptides_except_lipo<br>(avoparcin, bleomycin, norvancomycin, ramoplanin, teicoplanin, teicoplanin-macromethod, vancomycin, and vancomycin-macromethod)</p></li>
 <li><p>isoxazolylpenicillins<br>(cloxacillin, dicloxacillin, flucloxacillin, meticillin, oxacillin, and oxacillin screening test)</p></li>
-<li><p>lincosamides<br>(clindamycin, lincomycin, and pirlimycin)</p></li>
+<li><p>lincosamides<br>(clindamycin, clindamycin inducible screening test, lincomycin, and pirlimycin)</p></li>
 <li><p>lipoglycopeptides<br>(dalbavancin, oritavancin, and telavancin)</p></li>
-<li><p>macrolides<br>(acetylmidecamycin, acetylspiramycin, azithromycin, clarithromycin, dirithromycin, erythromycin, flurithromycin, gamithromycin, josamycin, kitasamycin, meleumycin, midecamycin, miocamycin, nafithromycin, oleandomycin, rokitamycin, roxithromycin, solithromycin, spiramycin, telithromycin, tildipirosin, tilmicosin, troleandomycin, tulathromycin, tylosin, and tylvalosin)</p></li>
+<li><p>macrolides<br>(acetylmidecamycin, acetylspiramycin, azithromycin, clarithromycin, clindamycin inducible screening test, dirithromycin, erythromycin, flurithromycin, gamithromycin, josamycin, kitasamycin, meleumycin, midecamycin, miocamycin, nafithromycin, oleandomycin, pirlimycin, primycin, rokitamycin, roxithromycin, solithromycin, spiramycin, telithromycin, tildipirosin, tilmicosin, troleandomycin, tulathromycin, tylosin, and tylvalosin)</p></li>
 <li><p>monobactams<br>(aztreonam, aztreonam/avibactam, aztreonam/nacubactam, carumonam, and tigemonam)</p></li>
 <li><p>nitrofurans<br>(furazidin, furazolidone, nifurtoinol, nitrofurantoin, and nitrofurazone)</p></li>
 <li><p>oxazolidinones<br>(cadazolid, cycloserine, linezolid, tedizolid, and thiacetazone)</p></li>
 <li><p>penicillins<br>(amoxicillin, amoxicillin/clavulanic acid, amoxicillin/sulbactam, ampicillin, ampicillin/sulbactam, apalcillin, aspoxicillin, azidocillin, azlocillin, bacampicillin, benzathine benzylpenicillin, benzathine phenoxymethylpenicillin, benzylpenicillin, benzylpenicillin screening test, carbenicillin, carindacillin, ciclacillin, clometocillin, cloxacillin, dicloxacillin, epicillin, flucloxacillin, hetacillin, lenampicillin, mecillinam, metampicillin, meticillin, mezlocillin, mezlocillin/sulbactam, nafcillin, oxacillin, oxacillin screening test, penamecillin, penicillin/novobiocin, penicillin/sulbactam, pheneticillin, phenoxymethylpenicillin, piperacillin, piperacillin/sulbactam, piperacillin/tazobactam, piridicillin, pivampicillin, pivmecillinam, procaine benzylpenicillin, propicillin, sarmoxicillin, sulbenicillin, sultamicillin, talampicillin, temocillin, ticarcillin, and ticarcillin/clavulanic acid)</p></li>
 <li><p>phenicols<br>(chloramphenicol, florfenicol, and thiamphenicol)</p></li>
+<li><p>phosphonics<br>(amikacin/fosfomycin and fosfomycin)</p></li>
 <li><p>polymyxins<br>(colistin, polymyxin B, and polymyxin B/polysorbate 80)</p></li>
-<li><p>quinolones<br>(besifloxacin, cinoxacin, ciprofloxacin, ciprofloxacin/metronidazole, ciprofloxacin/ornidazole, ciprofloxacin/tinidazole, clinafloxacin, danofloxacin, delafloxacin, difloxacin, enoxacin, enrofloxacin, finafloxacin, fleroxacin, flumequine, garenoxacin, gatifloxacin, gemifloxacin, grepafloxacin, lascufloxacin, levofloxacin, levofloxacin/ornidazole, levonadifloxacin, lomefloxacin, marbofloxacin, metioxate, miloxacin, moxifloxacin, nadifloxacin, nalidixic acid, nalidixic acid screening test, nemonoxacin, nifuroquine, nitroxoline, norfloxacin, norfloxacin screening test, norfloxacin/metronidazole, norfloxacin/tinidazole, ofloxacin, ofloxacin/ornidazole, orbifloxacin, oxolinic acid, pazufloxacin, pefloxacin, pefloxacin screening test, pipemidic acid, piromidic acid, pradofloxacin, premafloxacin, prulifloxacin, rosoxacin, rufloxacin, sarafloxacin, sitafloxacin, sparfloxacin, temafloxacin, tilbroquinol, tioxacin, tosufloxacin, and trovafloxacin)</p></li>
+<li><p>quinolones<br>(besifloxacin, cinoxacin, ciprofloxacin, ciprofloxacin/metronidazole, ciprofloxacin/ornidazole, ciprofloxacin/tinidazole, clinafloxacin, danofloxacin, delafloxacin, difloxacin, enoxacin, enrofloxacin, finafloxacin, fleroxacin, flumequine, garenoxacin, gatifloxacin, gemifloxacin, grepafloxacin, lascufloxacin, levofloxacin, levofloxacin/ornidazole, levonadifloxacin, lomefloxacin, marbofloxacin, metioxate, miloxacin, moxifloxacin, nadifloxacin, nalidixic acid, nalidixic acid screening test, nemonoxacin, nifuroquine, nitroxoline, norfloxacin, norfloxacin screening test, norfloxacin/metronidazole, norfloxacin/tinidazole, ofloxacin, ofloxacin/ornidazole, orbifloxacin, oxolinic acid, ozenoxacin, pazufloxacin, pefloxacin, pefloxacin screening test, pipemidic acid, piromidic acid, pradofloxacin, premafloxacin, prulifloxacin, rosoxacin, rufloxacin, sarafloxacin, sitafloxacin, sparfloxacin, temafloxacin, tilbroquinol, tioxacin, tosufloxacin, and trovafloxacin)</p></li>
 <li><p>rifamycins<br>(rifabutin, rifampicin, rifampicin/ethambutol/isoniazid, rifampicin/isoniazid, rifampicin/pyrazinamide/ethambutol/isoniazid, rifampicin/pyrazinamide/isoniazid, rifamycin, and rifapentine)</p></li>
+<li><p>spiropyrimidinetriones<br>(zoliflodacin)</p></li>
 <li><p>streptogramins<br>(pristinamycin and quinupristin/dalfopristin)</p></li>
 <li><p>sulfonamides<br>(brodimoprim, sulfadiazine, sulfadiazine/tetroxoprim, sulfadimethoxine, sulfadimidine, sulfafurazole, sulfaisodimidine, sulfalene, sulfamazone, sulfamerazine, sulfamethizole, sulfamethoxazole, sulfamethoxypyridazine, sulfametomidine, sulfametoxydiazine, sulfamoxole, sulfanilamide, sulfaperin, sulfaphenazole, sulfapyridine, sulfathiazole, and sulfathiourea)</p></li>
 <li><p>tetracyclines<br>(cetocycline, chlortetracycline, clomocycline, demeclocycline, doxycycline, eravacycline, lymecycline, metacycline, minocycline, omadacycline, oxytetracycline, penimepicycline, rolitetracycline, sarecycline, tetracycline, tetracycline screening test, and tigecycline)</p></li>
@@ -196,10 +199,10 @@
 <span class="r-out co"><span class="r-pr">#&gt;</span> A set of custom EUCAST rules:</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   1. <span style="font-weight: bold;">If </span><span style="color: #0000BB;">AMC</span><span style="color: #BBBBBB;"> is </span><span style="color: #080808; background-color: #FF5F5F;"> R </span><span style="color: #BBBBBB; font-weight: bold;"> and </span><span style="color: #0000BB;">genus</span><span style="color: #BBBBBB;"> is </span><span style="color: #0000BB;">"Klebsiella"</span><span style="font-weight: bold;"> then </span>set to <span style="color: #080808; background-color: #FF5F5F;"> R </span>:</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>      <span style="color: #0000BB;">amoxicillin</span> (AMX), <span style="color: #0000BB;">ampicillin</span> (AMP)</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>      <span style="color: #0000BB;">amoxicillin</span> (AMX), <span style="color: #0000BB;">amoxicillin/clavulanic acid</span> (AMC), <span style="color: #0000BB;">ampicillin</span> (AMP)</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   2. <span style="font-weight: bold;">If </span><span style="color: #0000BB;">AMC</span><span style="color: #BBBBBB;"> is </span><span style="color: #080808; background-color: #FFD787;"> I </span><span style="color: #BBBBBB; font-weight: bold;"> and </span><span style="color: #0000BB;">genus</span><span style="color: #BBBBBB;"> is </span><span style="color: #0000BB;">"Klebsiella"</span><span style="font-weight: bold;"> then </span>set to <span style="color: #080808; background-color: #FFD787;"> I </span>:</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>      <span style="color: #0000BB;">amoxicillin</span> (AMX), <span style="color: #0000BB;">ampicillin</span> (AMP)</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>      <span style="color: #0000BB;">amoxicillin</span> (AMX), <span style="color: #0000BB;">amoxicillin/clavulanic acid</span> (AMC), <span style="color: #0000BB;">ampicillin</span> (AMP)</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="co"># run the custom rule set (verbose = TRUE will return a logbook instead of the data set):</span></span></span>
 <span class="r-in"><span><span class="fu"><a href="eucast_rules.html">eucast_rules</a></span><span class="op">(</span><span class="va">example_isolates</span>,</span></span>
@@ -230,10 +233,10 @@
 <span class="r-out co"><span class="r-pr">#&gt;</span> A set of custom EUCAST rules:</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   1. <span style="font-weight: bold;">If </span><span style="color: #0000BB;">AMC</span><span style="color: #BBBBBB;"> is </span><span style="color: #080808; background-color: #FF5F5F;"> R </span><span style="color: #BBBBBB; font-weight: bold;"> and </span><span style="color: #0000BB;">genus</span><span style="color: #BBBBBB;"> is </span><span style="color: #0000BB;">"Klebsiella"</span><span style="font-weight: bold;"> then </span>set to <span style="color: #080808; background-color: #FF5F5F;"> R </span>:</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>      <span style="color: #0000BB;">amoxicillin</span> (AMX), <span style="color: #0000BB;">ampicillin</span> (AMP)</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>      <span style="color: #0000BB;">amoxicillin</span> (AMX), <span style="color: #0000BB;">amoxicillin/clavulanic acid</span> (AMC), <span style="color: #0000BB;">ampicillin</span> (AMP)</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   2. <span style="font-weight: bold;">If </span><span style="color: #0000BB;">AMC</span><span style="color: #BBBBBB;"> is </span><span style="color: #080808; background-color: #FFD787;"> I </span><span style="color: #BBBBBB; font-weight: bold;"> and </span><span style="color: #0000BB;">genus</span><span style="color: #BBBBBB;"> is </span><span style="color: #0000BB;">"Klebsiella"</span><span style="font-weight: bold;"> then </span>set to <span style="color: #080808; background-color: #FFD787;"> I </span>:</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>      <span style="color: #0000BB;">amoxicillin</span> (AMX), <span style="color: #0000BB;">ampicillin</span> (AMP)</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>      <span style="color: #0000BB;">amoxicillin</span> (AMX), <span style="color: #0000BB;">amoxicillin/clavulanic acid</span> (AMC), <span style="color: #0000BB;">ampicillin</span> (AMP)</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> </span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   3. <span style="font-weight: bold;">If </span><span style="color: #0000BB;">TZP</span><span style="color: #BBBBBB;"> is </span><span style="color: #080808; background-color: #FF5F5F;"> R </span><span style="font-weight: bold;"> then </span>set to <span style="color: #080808; background-color: #FF5F5F;"> R </span>:</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>      <span style="color: #0000BB;">biapenem</span> (BIA), <span style="color: #0000BB;">doripenem</span> (DOR), <span style="color: #0000BB;">ertapenem</span> (ETP), <span style="color: #0000BB;">imipenem</span> (IPM),</span>
diff --git a/reference/custom_eucast_rules.md b/reference/custom_eucast_rules.md
index 0c82dac57..0ca75dddc 100644
--- a/reference/custom_eucast_rules.md
+++ b/reference/custom_eucast_rules.md
@@ -135,7 +135,7 @@ TZP (piperacillin/tazobactam) is "R":
     #>   1. If TZP is "R" then set to "R":
     #>      amoxicillin (AMX), ampicillin (AMP), azlocillin (AZL), mezlocillin (MEZ), piperacillin (PIP), piperacillin/tazobactam (TZP)
 
-These 35 antimicrobial groups are allowed in the rules
+These 38 antimicrobial groups are allowed in the rules
 (case-insensitive) and can be used in any combination:
 
 - aminoglycosides  
@@ -148,7 +148,7 @@ These 35 antimicrobial groups are allowed in the rules
   tobramycin-high)
 
 - aminopenicillins  
-  (amoxicillin and ampicillin)
+  (amoxicillin, amoxicillin/clavulanic acid, and ampicillin)
 
 - antifungals  
   (amorolfine, amphotericin B, amphotericin B-high, anidulafungin,
@@ -171,6 +171,18 @@ These 35 antimicrobial groups are allowed in the rules
   aminosalicylate, streptomycin/isoniazid, terizidone, thioacetazone,
   thioacetazone/isoniazid, tiocarlide, and viomycin)
 
+- betalactamase_inhibitors  
+  (amoxicillin/clavulanic acid, amoxicillin/sulbactam,
+  ampicillin/sulbactam, avibactam, aztreonam/avibactam,
+  aztreonam/nacubactam, cefepime/enmetazobactam, cefepime/nacubactam,
+  cefepime/taniborbactam, cefepime/tazobactam, cefepime/zidebactam,
+  cefoperazone/sulbactam, cefotaxime/sulbactam, ceftaroline/avibactam,
+  ceftazidime/avibactam, ceftolozane/tazobactam, imipenem/relebactam,
+  meropenem/nacubactam, meropenem/vaborbactam, mezlocillin/sulbactam,
+  nacubactam, penicillin/sulbactam, piperacillin/sulbactam,
+  piperacillin/tazobactam, sulbactam, sultamicillin, taniborbactam,
+  tazobactam, ticarcillin/clavulanic acid, and zidebactam)
+
 - betalactams  
   (amoxicillin, amoxicillin/clavulanic acid, amoxicillin/sulbactam,
   ampicillin, ampicillin/sulbactam, apalcillin, aspoxicillin,
@@ -338,16 +350,18 @@ These 35 antimicrobial groups are allowed in the rules
   and oxacillin screening test)
 
 - lincosamides  
-  (clindamycin, lincomycin, and pirlimycin)
+  (clindamycin, clindamycin inducible screening test, lincomycin, and
+  pirlimycin)
 
 - lipoglycopeptides  
   (dalbavancin, oritavancin, and telavancin)
 
 - macrolides  
   (acetylmidecamycin, acetylspiramycin, azithromycin, clarithromycin,
-  dirithromycin, erythromycin, flurithromycin, gamithromycin, josamycin,
-  kitasamycin, meleumycin, midecamycin, miocamycin, nafithromycin,
-  oleandomycin, rokitamycin, roxithromycin, solithromycin, spiramycin,
+  clindamycin inducible screening test, dirithromycin, erythromycin,
+  flurithromycin, gamithromycin, josamycin, kitasamycin, meleumycin,
+  midecamycin, miocamycin, nafithromycin, oleandomycin, pirlimycin,
+  primycin, rokitamycin, roxithromycin, solithromycin, spiramycin,
   telithromycin, tildipirosin, tilmicosin, troleandomycin,
   tulathromycin, tylosin, and tylvalosin)
 
@@ -382,6 +396,9 @@ These 35 antimicrobial groups are allowed in the rules
 - phenicols  
   (chloramphenicol, florfenicol, and thiamphenicol)
 
+- phosphonics  
+  (amikacin/fosfomycin and fosfomycin)
+
 - polymyxins  
   (colistin, polymyxin B, and polymyxin B/polysorbate 80)
 
@@ -396,17 +413,20 @@ These 35 antimicrobial groups are allowed in the rules
   nalidixic acid, nalidixic acid screening test, nemonoxacin,
   nifuroquine, nitroxoline, norfloxacin, norfloxacin screening test,
   norfloxacin/metronidazole, norfloxacin/tinidazole, ofloxacin,
-  ofloxacin/ornidazole, orbifloxacin, oxolinic acid, pazufloxacin,
-  pefloxacin, pefloxacin screening test, pipemidic acid, piromidic acid,
-  pradofloxacin, premafloxacin, prulifloxacin, rosoxacin, rufloxacin,
-  sarafloxacin, sitafloxacin, sparfloxacin, temafloxacin, tilbroquinol,
-  tioxacin, tosufloxacin, and trovafloxacin)
+  ofloxacin/ornidazole, orbifloxacin, oxolinic acid, ozenoxacin,
+  pazufloxacin, pefloxacin, pefloxacin screening test, pipemidic acid,
+  piromidic acid, pradofloxacin, premafloxacin, prulifloxacin,
+  rosoxacin, rufloxacin, sarafloxacin, sitafloxacin, sparfloxacin,
+  temafloxacin, tilbroquinol, tioxacin, tosufloxacin, and trovafloxacin)
 
 - rifamycins  
   (rifabutin, rifampicin, rifampicin/ethambutol/isoniazid,
   rifampicin/isoniazid, rifampicin/pyrazinamide/ethambutol/isoniazid,
   rifampicin/pyrazinamide/isoniazid, rifamycin, and rifapentine)
 
+- spiropyrimidinetriones  
+  (zoliflodacin)
+
 - streptogramins  
   (pristinamycin and quinupristin/dalfopristin)
 
@@ -456,10 +476,10 @@ x
 #> A set of custom EUCAST rules:
 #> 
 #>   1. If AMC is  R  and genus is "Klebsiella" then set to  R :
-#>      amoxicillin (AMX), ampicillin (AMP)
+#>      amoxicillin (AMX), amoxicillin/clavulanic acid (AMC), ampicillin (AMP)
 #> 
 #>   2. If AMC is  I  and genus is "Klebsiella" then set to  I :
-#>      amoxicillin (AMX), ampicillin (AMP)
+#>      amoxicillin (AMX), amoxicillin/clavulanic acid (AMC), ampicillin (AMP)
 
 # run the custom rule set (verbose = TRUE will return a logbook instead of the data set):
 eucast_rules(example_isolates,
@@ -490,10 +510,10 @@ x2
 #> A set of custom EUCAST rules:
 #> 
 #>   1. If AMC is  R  and genus is "Klebsiella" then set to  R :
-#>      amoxicillin (AMX), ampicillin (AMP)
+#>      amoxicillin (AMX), amoxicillin/clavulanic acid (AMC), ampicillin (AMP)
 #> 
 #>   2. If AMC is  I  and genus is "Klebsiella" then set to  I :
-#>      amoxicillin (AMX), ampicillin (AMP)
+#>      amoxicillin (AMX), amoxicillin/clavulanic acid (AMC), ampicillin (AMP)
 #> 
 #>   3. If TZP is  R  then set to  R :
 #>      biapenem (BIA), doripenem (DOR), ertapenem (ETP), imipenem (IPM),
diff --git a/reference/custom_mdro_guideline.html b/reference/custom_mdro_guideline.html
index 9f9e9179b..dba9b2dcb 100644
--- a/reference/custom_mdro_guideline.html
+++ b/reference/custom_mdro_guideline.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</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">
@@ -70,7 +70,7 @@
 
 
 <dt id="arg-as-factor">as_factor<a class="anchor" aria-label="anchor" href="#arg-as-factor"></a></dt>
-<dd><p>A <a href="https://rdrr.io/r/base/logical.html" class="external-link">logical</a> to indicate whether the returned value should be an ordered <a href="https://rdrr.io/r/base/factor.html" class="external-link">factor</a> (<code>TRUE</code>, default), or otherwise a <a href="https://rdrr.io/r/base/character.html" class="external-link">character</a> vector. For combining rules sets (using <code><a href="https://rdrr.io/r/base/c.html" class="external-link">c()</a></code>) this value will be inherited from the first set at default.</p></dd>
+<dd><p>A <a href="https://rdrr.io/r/base/logical.html" class="external-link">logical</a> to indicate whether the returned value should be an ordered <a href="https://rdatatable.gitlab.io/data.table/reference/fctr.html" class="external-link">factor</a> (<code>TRUE</code>, default), or otherwise a <a href="https://rdrr.io/r/base/character.html" class="external-link">character</a> vector. For combining rules sets (using <code><a href="https://rdrr.io/r/base/c.html" class="external-link">c()</a></code>) this value will be inherited from the first set at default.</p></dd>
 
 
 <dt id="arg-x">x<a class="anchor" aria-label="anchor" href="#arg-x"></a></dt>
@@ -144,8 +144,8 @@
 <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"><a href="../reference/antimicrobial_selectors.html">cephalosporins_2nd</a></span><span class="op">(</span><span class="op">)</span> <span class="op">==</span> <span class="st">"R"</span><span class="op">)</span> <span class="op">~</span> <span class="st">"My MDRO #2"</span>,</span>
 <span>  <span class="fu"><a href="https://rdrr.io/r/base/all.html" class="external-link">all</a></span><span class="op">(</span><span class="fu"><a href="../reference/antimicrobial_selectors.html">glycopeptides</a></span><span class="op">(</span><span class="op">)</span> <span class="op">==</span> <span class="st">"R"</span><span class="op">)</span>      <span class="op">~</span> <span class="st">"My MDRO #3"</span></span>
 <span><span class="op">)</span></span></code></pre><p></p></div>
-<p>All 35 antimicrobial selectors are supported for use in the rules:</p><ul><li><p><code><a href="antimicrobial_selectors.html">aminoglycosides()</a></code> can select: <br> amikacin, amikacin/fosfomycin, apramycin, arbekacin, astromicin, bekanamycin, dibekacin, framycetin, gentamicin, gentamicin-high, habekacin, hygromycin, isepamicin, kanamycin, kanamycin-high, kanamycin/cephalexin, micronomicin, neomycin, netilmicin, pentisomicin, plazomicin, propikacin, ribostamycin, sisomicin, streptoduocin, streptomycin, streptomycin-high, tobramycin, and tobramycin-high</p></li>
-<li><p><code><a href="antimicrobial_selectors.html">aminopenicillins()</a></code> can select: <br> amoxicillin and ampicillin</p></li>
+<p>All 38 antimicrobial selectors are supported for use in the rules:</p><ul><li><p><code><a href="antimicrobial_selectors.html">aminoglycosides()</a></code> can select: <br> amikacin, amikacin/fosfomycin, apramycin, arbekacin, astromicin, bekanamycin, dibekacin, framycetin, gentamicin, gentamicin-high, habekacin, hygromycin, isepamicin, kanamycin, kanamycin-high, kanamycin/cephalexin, micronomicin, neomycin, netilmicin, pentisomicin, plazomicin, propikacin, ribostamycin, sisomicin, streptoduocin, streptomycin, streptomycin-high, tobramycin, and tobramycin-high</p></li>
+<li><p><code><a href="antimicrobial_selectors.html">aminopenicillins()</a></code> can select: <br> amoxicillin, amoxicillin/clavulanic acid, and ampicillin</p></li>
 <li><p><code><a href="antimicrobial_selectors.html">antifungals()</a></code> can select: <br> amorolfine, amphotericin B, amphotericin B-high, anidulafungin, butoconazole, caspofungin, ciclopirox, clotrimazole, econazole, fluconazole, flucytosine, fosfluconazole, griseofulvin, hachimycin, ibrexafungerp, isavuconazole, isoconazole, itraconazole, ketoconazole, manogepix, micafungin, miconazole, nystatin, oteseconazole, pimaricin, posaconazole, rezafungin, ribociclib, sulconazole, terbinafine, terconazole, and voriconazole</p></li>
 <li><p><code><a href="antimicrobial_selectors.html">antimycobacterials()</a></code> can select: <br> 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, sodium aminosalicylate, streptomycin/isoniazid, terizidone, thioacetazone, thioacetazone/isoniazid, tiocarlide, and viomycin</p></li>
 <li><p><code><a href="antimicrobial_selectors.html">betalactams()</a></code> can select: <br> amoxicillin, amoxicillin/clavulanic acid, amoxicillin/sulbactam, ampicillin, ampicillin/sulbactam, apalcillin, aspoxicillin, azidocillin, azlocillin, aztreonam, aztreonam/avibactam, aztreonam/nacubactam, bacampicillin, benzathine benzylpenicillin, benzathine phenoxymethylpenicillin, benzylpenicillin, benzylpenicillin screening test, biapenem, carbenicillin, carindacillin, carumonam, cefacetrile, cefaclor, cefadroxil, cefalexin, cefaloridine, cefalotin, cefamandole, cefapirin, cefatrizine, cefazedone, cefazolin, cefcapene, cefcapene pivoxil, cefdinir, cefditoren, cefditoren pivoxil, cefepime, cefepime/amikacin, cefepime/clavulanic acid, cefepime/enmetazobactam, cefepime/nacubactam, cefepime/taniborbactam, cefepime/tazobactam, cefepime/zidebactam, cefetamet, cefetamet pivoxil, cefetecol, cefetrizole, cefiderocol, cefixime, cefmenoxime, cefmetazole, cefodizime, cefonicid, cefoperazone, cefoperazone/sulbactam, ceforanide, cefoselis, cefotaxime, cefotaxime screening test, cefotaxime/clavulanic acid, cefotaxime/sulbactam, cefotetan, cefotiam, cefotiam hexetil, cefovecin, cefoxitin, cefoxitin screening test, 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, nafcillin, oxacillin, oxacillin screening test, panipenem, penamecillin, penicillin/novobiocin, penicillin/sulbactam, pheneticillin, phenoxymethylpenicillin, piperacillin, piperacillin/sulbactam, piperacillin/tazobactam, piridicillin, pivampicillin, pivmecillinam, procaine benzylpenicillin, propicillin, razupenem, ritipenem, ritipenem acoxil, sarmoxicillin, sulbenicillin, sultamicillin, talampicillin, taniborbactam, tebipenem, temocillin, ticarcillin, ticarcillin/clavulanic acid, and tigemonam</p></li>
@@ -160,17 +160,19 @@
 <li><p><code><a href="antimicrobial_selectors.html">fluoroquinolones()</a></code> can select: <br> besifloxacin, ciprofloxacin, ciprofloxacin/metronidazole, ciprofloxacin/ornidazole, ciprofloxacin/tinidazole, clinafloxacin, danofloxacin, delafloxacin, difloxacin, enoxacin, enrofloxacin, finafloxacin, fleroxacin, garenoxacin, gatifloxacin, gemifloxacin, grepafloxacin, lascufloxacin, levofloxacin, levofloxacin/ornidazole, levonadifloxacin, lomefloxacin, marbofloxacin, metioxate, miloxacin, moxifloxacin, nadifloxacin, nemonoxacin, nifuroquine, nitroxoline, norfloxacin, norfloxacin screening test, norfloxacin/metronidazole, norfloxacin/tinidazole, ofloxacin, ofloxacin/ornidazole, orbifloxacin, pazufloxacin, pefloxacin, pefloxacin screening test, pradofloxacin, premafloxacin, prulifloxacin, rufloxacin, sarafloxacin, sitafloxacin, sparfloxacin, temafloxacin, tilbroquinol, tioxacin, tosufloxacin, and trovafloxacin</p></li>
 <li><p><code><a href="antimicrobial_selectors.html">glycopeptides()</a></code> can select: <br> avoparcin, bleomycin, dalbavancin, norvancomycin, oritavancin, ramoplanin, teicoplanin, teicoplanin-macromethod, telavancin, vancomycin, and vancomycin-macromethod</p></li>
 <li><p><code><a href="antimicrobial_selectors.html">isoxazolylpenicillins()</a></code> can select: <br> cloxacillin, dicloxacillin, flucloxacillin, meticillin, oxacillin, and oxacillin screening test</p></li>
-<li><p><code><a href="antimicrobial_selectors.html">lincosamides()</a></code> can select: <br> clindamycin, lincomycin, and pirlimycin</p></li>
+<li><p><code><a href="antimicrobial_selectors.html">lincosamides()</a></code> can select: <br> clindamycin, clindamycin inducible screening test, lincomycin, and pirlimycin</p></li>
 <li><p><code><a href="antimicrobial_selectors.html">lipoglycopeptides()</a></code> can select: <br> dalbavancin, oritavancin, and telavancin</p></li>
-<li><p><code><a href="antimicrobial_selectors.html">macrolides()</a></code> can select: <br> acetylmidecamycin, acetylspiramycin, azithromycin, clarithromycin, dirithromycin, erythromycin, flurithromycin, gamithromycin, josamycin, kitasamycin, meleumycin, midecamycin, miocamycin, nafithromycin, oleandomycin, rokitamycin, roxithromycin, solithromycin, spiramycin, telithromycin, tildipirosin, tilmicosin, troleandomycin, tulathromycin, tylosin, and tylvalosin</p></li>
+<li><p><code><a href="antimicrobial_selectors.html">macrolides()</a></code> can select: <br> acetylmidecamycin, acetylspiramycin, azithromycin, clarithromycin, clindamycin inducible screening test, dirithromycin, erythromycin, flurithromycin, gamithromycin, josamycin, kitasamycin, meleumycin, midecamycin, miocamycin, nafithromycin, oleandomycin, pirlimycin, primycin, rokitamycin, roxithromycin, solithromycin, spiramycin, telithromycin, tildipirosin, tilmicosin, troleandomycin, tulathromycin, tylosin, and tylvalosin</p></li>
 <li><p><code><a href="antimicrobial_selectors.html">monobactams()</a></code> can select: <br> aztreonam, aztreonam/avibactam, aztreonam/nacubactam, carumonam, and tigemonam</p></li>
 <li><p><code><a href="antimicrobial_selectors.html">nitrofurans()</a></code> can select: <br> furazidin, furazolidone, nifurtoinol, nitrofurantoin, and nitrofurazone</p></li>
 <li><p><code><a href="antimicrobial_selectors.html">oxazolidinones()</a></code> can select: <br> cadazolid, cycloserine, linezolid, tedizolid, and thiacetazone</p></li>
 <li><p><code><a href="antimicrobial_selectors.html">penicillins()</a></code> can select: <br> amoxicillin, amoxicillin/clavulanic acid, amoxicillin/sulbactam, ampicillin, ampicillin/sulbactam, apalcillin, aspoxicillin, azidocillin, azlocillin, bacampicillin, benzathine benzylpenicillin, benzathine phenoxymethylpenicillin, benzylpenicillin, benzylpenicillin screening test, carbenicillin, carindacillin, ciclacillin, clometocillin, cloxacillin, dicloxacillin, epicillin, flucloxacillin, hetacillin, lenampicillin, mecillinam, metampicillin, meticillin, mezlocillin, mezlocillin/sulbactam, nafcillin, oxacillin, oxacillin screening test, penamecillin, penicillin/novobiocin, penicillin/sulbactam, pheneticillin, phenoxymethylpenicillin, piperacillin, piperacillin/sulbactam, piperacillin/tazobactam, piridicillin, pivampicillin, pivmecillinam, procaine benzylpenicillin, propicillin, sarmoxicillin, sulbenicillin, sultamicillin, talampicillin, temocillin, ticarcillin, and ticarcillin/clavulanic acid</p></li>
 <li><p><code><a href="antimicrobial_selectors.html">phenicols()</a></code> can select: <br> chloramphenicol, florfenicol, and thiamphenicol</p></li>
+<li><p><code><a href="antimicrobial_selectors.html">phosphonics()</a></code> can select: <br> amikacin/fosfomycin and fosfomycin</p></li>
 <li><p><code><a href="antimicrobial_selectors.html">polymyxins()</a></code> can select: <br> colistin, polymyxin B, and polymyxin B/polysorbate 80</p></li>
-<li><p><code><a href="antimicrobial_selectors.html">quinolones()</a></code> can select: <br> besifloxacin, cinoxacin, ciprofloxacin, ciprofloxacin/metronidazole, ciprofloxacin/ornidazole, ciprofloxacin/tinidazole, clinafloxacin, danofloxacin, delafloxacin, difloxacin, enoxacin, enrofloxacin, finafloxacin, fleroxacin, flumequine, garenoxacin, gatifloxacin, gemifloxacin, grepafloxacin, lascufloxacin, levofloxacin, levofloxacin/ornidazole, levonadifloxacin, lomefloxacin, marbofloxacin, metioxate, miloxacin, moxifloxacin, nadifloxacin, nalidixic acid, nalidixic acid screening test, nemonoxacin, nifuroquine, nitroxoline, norfloxacin, norfloxacin screening test, norfloxacin/metronidazole, norfloxacin/tinidazole, ofloxacin, ofloxacin/ornidazole, orbifloxacin, oxolinic acid, pazufloxacin, pefloxacin, pefloxacin screening test, pipemidic acid, piromidic acid, pradofloxacin, premafloxacin, prulifloxacin, rosoxacin, rufloxacin, sarafloxacin, sitafloxacin, sparfloxacin, temafloxacin, tilbroquinol, tioxacin, tosufloxacin, and trovafloxacin</p></li>
+<li><p><code><a href="antimicrobial_selectors.html">quinolones()</a></code> can select: <br> besifloxacin, cinoxacin, ciprofloxacin, ciprofloxacin/metronidazole, ciprofloxacin/ornidazole, ciprofloxacin/tinidazole, clinafloxacin, danofloxacin, delafloxacin, difloxacin, enoxacin, enrofloxacin, finafloxacin, fleroxacin, flumequine, garenoxacin, gatifloxacin, gemifloxacin, grepafloxacin, lascufloxacin, levofloxacin, levofloxacin/ornidazole, levonadifloxacin, lomefloxacin, marbofloxacin, metioxate, miloxacin, moxifloxacin, nadifloxacin, nalidixic acid, nalidixic acid screening test, nemonoxacin, nifuroquine, nitroxoline, norfloxacin, norfloxacin screening test, norfloxacin/metronidazole, norfloxacin/tinidazole, ofloxacin, ofloxacin/ornidazole, orbifloxacin, oxolinic acid, ozenoxacin, pazufloxacin, pefloxacin, pefloxacin screening test, pipemidic acid, piromidic acid, pradofloxacin, premafloxacin, prulifloxacin, rosoxacin, rufloxacin, sarafloxacin, sitafloxacin, sparfloxacin, temafloxacin, tilbroquinol, tioxacin, tosufloxacin, and trovafloxacin</p></li>
 <li><p><code><a href="antimicrobial_selectors.html">rifamycins()</a></code> can select: <br> rifabutin, rifampicin, rifampicin/ethambutol/isoniazid, rifampicin/isoniazid, rifampicin/pyrazinamide/ethambutol/isoniazid, rifampicin/pyrazinamide/isoniazid, rifamycin, and rifapentine</p></li>
+<li><p><code><a href="antimicrobial_selectors.html">spiropyrimidinetriones()</a></code> can select: <br> zoliflodacin</p></li>
 <li><p><code><a href="antimicrobial_selectors.html">streptogramins()</a></code> can select: <br> pristinamycin and quinupristin/dalfopristin</p></li>
 <li><p><code><a href="antimicrobial_selectors.html">sulfonamides()</a></code> can select: <br> brodimoprim, sulfadiazine, sulfadiazine/tetroxoprim, sulfadimethoxine, sulfadimidine, sulfafurazole, sulfaisodimidine, sulfalene, sulfamazone, sulfamerazine, sulfamethizole, sulfamethoxazole, sulfamethoxypyridazine, sulfametomidine, sulfametoxydiazine, sulfamoxole, sulfanilamide, sulfaperin, sulfaphenazole, sulfapyridine, sulfathiazole, and sulfathiourea</p></li>
 <li><p><code><a href="antimicrobial_selectors.html">tetracyclines()</a></code> can select: <br> cetocycline, chlortetracycline, clomocycline, demeclocycline, doxycycline, eravacycline, lymecycline, metacycline, minocycline, omadacycline, oxytetracycline, penimepicycline, rolitetracycline, sarecycline, tetracycline, tetracycline screening test, and tigecycline</p></li>
diff --git a/reference/custom_mdro_guideline.md b/reference/custom_mdro_guideline.md
index 49ce34d1f..cd143a14b 100644
--- a/reference/custom_mdro_guideline.md
+++ b/reference/custom_mdro_guideline.md
@@ -24,11 +24,11 @@ c(x, ..., as_factor = NULL)
 
   A [logical](https://rdrr.io/r/base/logical.html) to indicate whether
   the returned value should be an ordered
-  [factor](https://rdrr.io/r/base/factor.html) (`TRUE`, default), or
-  otherwise a [character](https://rdrr.io/r/base/character.html) vector.
-  For combining rules sets (using
-  [`c()`](https://rdrr.io/r/base/c.html)) this value will be inherited
-  from the first set at default.
+  [factor](https://rdatatable.gitlab.io/data.table/reference/fctr.html)
+  (`TRUE`, default), or otherwise a
+  [character](https://rdrr.io/r/base/character.html) vector. For
+  combining rules sets (using [`c()`](https://rdrr.io/r/base/c.html))
+  this value will be inherited from the first set at default.
 
 - x:
 
@@ -126,7 +126,7 @@ antimicrobial group:
       all(glycopeptides() == "R")      ~ "My MDRO #3"
     )
 
-All 35 antimicrobial selectors are supported for use in the rules:
+All 38 antimicrobial selectors are supported for use in the rules:
 
 - [`aminoglycosides()`](https://amr-for-r.org/reference/antimicrobial_selectors.md)
   can select:  
@@ -140,7 +140,7 @@ All 35 antimicrobial selectors are supported for use in the rules:
 
 - [`aminopenicillins()`](https://amr-for-r.org/reference/antimicrobial_selectors.md)
   can select:  
-  amoxicillin and ampicillin
+  amoxicillin, amoxicillin/clavulanic acid, and ampicillin
 
 - [`antifungals()`](https://amr-for-r.org/reference/antimicrobial_selectors.md)
   can select:  
@@ -318,7 +318,8 @@ All 35 antimicrobial selectors are supported for use in the rules:
 
 - [`lincosamides()`](https://amr-for-r.org/reference/antimicrobial_selectors.md)
   can select:  
-  clindamycin, lincomycin, and pirlimycin
+  clindamycin, clindamycin inducible screening test, lincomycin, and
+  pirlimycin
 
 - [`lipoglycopeptides()`](https://amr-for-r.org/reference/antimicrobial_selectors.md)
   can select:  
@@ -327,9 +328,10 @@ All 35 antimicrobial selectors are supported for use in the rules:
 - [`macrolides()`](https://amr-for-r.org/reference/antimicrobial_selectors.md)
   can select:  
   acetylmidecamycin, acetylspiramycin, azithromycin, clarithromycin,
-  dirithromycin, erythromycin, flurithromycin, gamithromycin, josamycin,
-  kitasamycin, meleumycin, midecamycin, miocamycin, nafithromycin,
-  oleandomycin, rokitamycin, roxithromycin, solithromycin, spiramycin,
+  clindamycin inducible screening test, dirithromycin, erythromycin,
+  flurithromycin, gamithromycin, josamycin, kitasamycin, meleumycin,
+  midecamycin, miocamycin, nafithromycin, oleandomycin, pirlimycin,
+  primycin, rokitamycin, roxithromycin, solithromycin, spiramycin,
   telithromycin, tildipirosin, tilmicosin, troleandomycin,
   tulathromycin, tylosin, and tylvalosin
 
@@ -369,6 +371,10 @@ All 35 antimicrobial selectors are supported for use in the rules:
   can select:  
   chloramphenicol, florfenicol, and thiamphenicol
 
+- [`phosphonics()`](https://amr-for-r.org/reference/antimicrobial_selectors.md)
+  can select:  
+  amikacin/fosfomycin and fosfomycin
+
 - [`polymyxins()`](https://amr-for-r.org/reference/antimicrobial_selectors.md)
   can select:  
   colistin, polymyxin B, and polymyxin B/polysorbate 80
@@ -385,11 +391,11 @@ All 35 antimicrobial selectors are supported for use in the rules:
   nalidixic acid, nalidixic acid screening test, nemonoxacin,
   nifuroquine, nitroxoline, norfloxacin, norfloxacin screening test,
   norfloxacin/metronidazole, norfloxacin/tinidazole, ofloxacin,
-  ofloxacin/ornidazole, orbifloxacin, oxolinic acid, pazufloxacin,
-  pefloxacin, pefloxacin screening test, pipemidic acid, piromidic acid,
-  pradofloxacin, premafloxacin, prulifloxacin, rosoxacin, rufloxacin,
-  sarafloxacin, sitafloxacin, sparfloxacin, temafloxacin, tilbroquinol,
-  tioxacin, tosufloxacin, and trovafloxacin
+  ofloxacin/ornidazole, orbifloxacin, oxolinic acid, ozenoxacin,
+  pazufloxacin, pefloxacin, pefloxacin screening test, pipemidic acid,
+  piromidic acid, pradofloxacin, premafloxacin, prulifloxacin,
+  rosoxacin, rufloxacin, sarafloxacin, sitafloxacin, sparfloxacin,
+  temafloxacin, tilbroquinol, tioxacin, tosufloxacin, and trovafloxacin
 
 - [`rifamycins()`](https://amr-for-r.org/reference/antimicrobial_selectors.md)
   can select:  
@@ -397,6 +403,10 @@ All 35 antimicrobial selectors are supported for use in the rules:
   rifampicin/isoniazid, rifampicin/pyrazinamide/ethambutol/isoniazid,
   rifampicin/pyrazinamide/isoniazid, rifamycin, and rifapentine
 
+- [`spiropyrimidinetriones()`](https://amr-for-r.org/reference/antimicrobial_selectors.md)
+  can select:  
+  zoliflodacin
+
 - [`streptogramins()`](https://amr-for-r.org/reference/antimicrobial_selectors.md)
   can select:  
   pristinamycin and quinupristin/dalfopristin
diff --git a/reference/dosage.html b/reference/dosage.html
index 356329200..c8e97684a 100644
--- a/reference/dosage.html
+++ b/reference/dosage.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</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/esbl_isolates.html b/reference/esbl_isolates.html
index c51109284..d451ef678 100644
--- a/reference/esbl_isolates.html
+++ b/reference/esbl_isolates.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</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">
@@ -62,7 +62,7 @@
     <h2 id="format">Format<a class="anchor" aria-label="anchor" href="#format"></a></h2>
     <p>A <a href="https://tibble.tidyverse.org/reference/tibble.html" class="external-link">tibble</a> with 500 observations and 19 variables:</p><ul><li><p><code>esbl</code><br> Logical indicator if the isolate is ESBL-producing</p></li>
 <li><p><code>genus</code><br> Genus of the microorganism</p></li>
-<li><p><code>AMC:COL</code><br> MIC values for 17 antimicrobial agents, transformed to class <code><a href="as.mic.html">mic</a></code> (see <code><a href="as.mic.html">as.mic()</a></code>)</p></li>
+<li><p><code>AMC:COL</code><br> MIC values for 17 antimicrobial drugs, transformed to class <code><a href="as.mic.html">mic</a></code> (see <code><a href="as.mic.html">as.mic()</a></code>)</p></li>
 </ul></div>
     <div class="section level2">
     <h2 id="details">Details<a class="anchor" aria-label="anchor" href="#details"></a></h2>
diff --git a/reference/esbl_isolates.md b/reference/esbl_isolates.md
index 107f2b7da..029a2a12f 100644
--- a/reference/esbl_isolates.md
+++ b/reference/esbl_isolates.md
@@ -25,7 +25,7 @@ observations and 19 variables:
   Genus of the microorganism
 
 - `AMC:COL`  
-  MIC values for 17 antimicrobial agents, transformed to class
+  MIC values for 17 antimicrobial drugs, transformed to class
   [`mic`](https://amr-for-r.org/reference/as.mic.md) (see
   [`as.mic()`](https://amr-for-r.org/reference/as.mic.md))
 
diff --git a/reference/eucast_rules.html b/reference/eucast_rules.html
index d6876fd90..29f7291b7 100644
--- a/reference/eucast_rules.html
+++ b/reference/eucast_rules.html
@@ -9,7 +9,7 @@ To improve the interpretation of the antibiogram before EUCAST rules are applied
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</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 f8b1a0cfd..d3f4d9e0f 100644
--- a/reference/example_isolates.html
+++ b/reference/example_isolates.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</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 a0cd84c4d..659bd4db3 100644
--- a/reference/example_isolates_unclean.html
+++ b/reference/example_isolates_unclean.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/export_ncbi_biosample.html b/reference/export_ncbi_biosample.html
index cf4792e0c..884301c30 100644
--- a/reference/export_ncbi_biosample.html
+++ b/reference/export_ncbi_biosample.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</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 31b14addf..9a2d94917 100644
--- a/reference/first_isolate.html
+++ b/reference/first_isolate.html
@@ -9,7 +9,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</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 9742342e9..b1f83b319 100644
--- a/reference/g.test.html
+++ b/reference/g.test.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</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 cffdccab2..52d26d1ed 100644
--- a/reference/get_episode.html
+++ b/reference/get_episode.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/ggplot_pca.html b/reference/ggplot_pca.html
index 400d61504..17ce27389 100644
--- a/reference/ggplot_pca.html
+++ b/reference/ggplot_pca.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</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 4e58c92c1..82642ec71 100644
--- a/reference/ggplot_sir.html
+++ b/reference/ggplot_sir.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</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 c362bfb7c..02e849c7c 100644
--- a/reference/guess_ab_col.html
+++ b/reference/guess_ab_col.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</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 b36d6c8bb..b909d096a 100644
--- a/reference/index.html
+++ b/reference/index.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</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">
@@ -263,7 +263,7 @@
 
         <dt>
 
-          <code><a href="antimicrobial_selectors.html">aminoglycosides()</a></code> <code><a href="antimicrobial_selectors.html">aminopenicillins()</a></code> <code><a href="antimicrobial_selectors.html">antifungals()</a></code> <code><a href="antimicrobial_selectors.html">antimycobacterials()</a></code> <code><a href="antimicrobial_selectors.html">betalactams()</a></code> <code><a href="antimicrobial_selectors.html">betalactams_with_inhibitor()</a></code> <code><a href="antimicrobial_selectors.html">carbapenems()</a></code> <code><a href="antimicrobial_selectors.html">cephalosporins()</a></code> <code><a href="antimicrobial_selectors.html">cephalosporins_1st()</a></code> <code><a href="antimicrobial_selectors.html">cephalosporins_2nd()</a></code> <code><a href="antimicrobial_selectors.html">cephalosporins_3rd()</a></code> <code><a href="antimicrobial_selectors.html">cephalosporins_4th()</a></code> <code><a href="antimicrobial_selectors.html">cephalosporins_5th()</a></code> <code><a href="antimicrobial_selectors.html">fluoroquinolones()</a></code> <code><a href="antimicrobial_selectors.html">glycopeptides()</a></code> <code><a href="antimicrobial_selectors.html">isoxazolylpenicillins()</a></code> <code><a href="antimicrobial_selectors.html">lincosamides()</a></code> <code><a href="antimicrobial_selectors.html">lipoglycopeptides()</a></code> <code><a href="antimicrobial_selectors.html">macrolides()</a></code> <code><a href="antimicrobial_selectors.html">monobactams()</a></code> <code><a href="antimicrobial_selectors.html">nitrofurans()</a></code> <code><a href="antimicrobial_selectors.html">oxazolidinones()</a></code> <code><a href="antimicrobial_selectors.html">penicillins()</a></code> <code><a href="antimicrobial_selectors.html">phenicols()</a></code> <code><a href="antimicrobial_selectors.html">polymyxins()</a></code> <code><a href="antimicrobial_selectors.html">quinolones()</a></code> <code><a href="antimicrobial_selectors.html">rifamycins()</a></code> <code><a href="antimicrobial_selectors.html">streptogramins()</a></code> <code><a href="antimicrobial_selectors.html">sulfonamides()</a></code> <code><a href="antimicrobial_selectors.html">tetracyclines()</a></code> <code><a href="antimicrobial_selectors.html">trimethoprims()</a></code> <code><a href="antimicrobial_selectors.html">ureidopenicillins()</a></code> <code><a href="antimicrobial_selectors.html">amr_class()</a></code> <code><a href="antimicrobial_selectors.html">amr_selector()</a></code> <code><a href="antimicrobial_selectors.html">administrable_per_os()</a></code> <code><a href="antimicrobial_selectors.html">administrable_iv()</a></code> <code><a href="antimicrobial_selectors.html">not_intrinsic_resistant()</a></code>
+          <code><a href="antimicrobial_selectors.html">aminoglycosides()</a></code> <code><a href="antimicrobial_selectors.html">aminopenicillins()</a></code> <code><a href="antimicrobial_selectors.html">antifungals()</a></code> <code><a href="antimicrobial_selectors.html">antimycobacterials()</a></code> <code><a href="antimicrobial_selectors.html">betalactams()</a></code> <code><a href="antimicrobial_selectors.html">betalactams_with_inhibitor()</a></code> <code><a href="antimicrobial_selectors.html">carbapenems()</a></code> <code><a href="antimicrobial_selectors.html">cephalosporins()</a></code> <code><a href="antimicrobial_selectors.html">cephalosporins_1st()</a></code> <code><a href="antimicrobial_selectors.html">cephalosporins_2nd()</a></code> <code><a href="antimicrobial_selectors.html">cephalosporins_3rd()</a></code> <code><a href="antimicrobial_selectors.html">cephalosporins_4th()</a></code> <code><a href="antimicrobial_selectors.html">cephalosporins_5th()</a></code> <code><a href="antimicrobial_selectors.html">fluoroquinolones()</a></code> <code><a href="antimicrobial_selectors.html">glycopeptides()</a></code> <code><a href="antimicrobial_selectors.html">isoxazolylpenicillins()</a></code> <code><a href="antimicrobial_selectors.html">lincosamides()</a></code> <code><a href="antimicrobial_selectors.html">lipoglycopeptides()</a></code> <code><a href="antimicrobial_selectors.html">macrolides()</a></code> <code><a href="antimicrobial_selectors.html">monobactams()</a></code> <code><a href="antimicrobial_selectors.html">nitrofurans()</a></code> <code><a href="antimicrobial_selectors.html">oxazolidinones()</a></code> <code><a href="antimicrobial_selectors.html">penicillins()</a></code> <code><a href="antimicrobial_selectors.html">phenicols()</a></code> <code><a href="antimicrobial_selectors.html">phosphonics()</a></code> <code><a href="antimicrobial_selectors.html">polymyxins()</a></code> <code><a href="antimicrobial_selectors.html">quinolones()</a></code> <code><a href="antimicrobial_selectors.html">rifamycins()</a></code> <code><a href="antimicrobial_selectors.html">spiropyrimidinetriones()</a></code> <code><a href="antimicrobial_selectors.html">streptogramins()</a></code> <code><a href="antimicrobial_selectors.html">sulfonamides()</a></code> <code><a href="antimicrobial_selectors.html">tetracyclines()</a></code> <code><a href="antimicrobial_selectors.html">trimethoprims()</a></code> <code><a href="antimicrobial_selectors.html">ureidopenicillins()</a></code> <code><a href="antimicrobial_selectors.html">amr_class()</a></code> <code><a href="antimicrobial_selectors.html">amr_selector()</a></code> <code><a href="antimicrobial_selectors.html">administrable_per_os()</a></code> <code><a href="antimicrobial_selectors.html">administrable_iv()</a></code> <code><a href="antimicrobial_selectors.html">not_intrinsic_resistant()</a></code>
 
         </dt>
         <dd>Antimicrobial Selectors</dd>
diff --git a/reference/index.md b/reference/index.md
index fc63ea0ee..6322eaa89 100644
--- a/reference/index.md
+++ b/reference/index.md
@@ -257,9 +257,11 @@ or determine multi-drug resistant microorganisms (MDRO,
   [`oxazolidinones()`](https://amr-for-r.org/reference/antimicrobial_selectors.md)
   [`penicillins()`](https://amr-for-r.org/reference/antimicrobial_selectors.md)
   [`phenicols()`](https://amr-for-r.org/reference/antimicrobial_selectors.md)
+  [`phosphonics()`](https://amr-for-r.org/reference/antimicrobial_selectors.md)
   [`polymyxins()`](https://amr-for-r.org/reference/antimicrobial_selectors.md)
   [`quinolones()`](https://amr-for-r.org/reference/antimicrobial_selectors.md)
   [`rifamycins()`](https://amr-for-r.org/reference/antimicrobial_selectors.md)
+  [`spiropyrimidinetriones()`](https://amr-for-r.org/reference/antimicrobial_selectors.md)
   [`streptogramins()`](https://amr-for-r.org/reference/antimicrobial_selectors.md)
   [`sulfonamides()`](https://amr-for-r.org/reference/antimicrobial_selectors.md)
   [`tetracyclines()`](https://amr-for-r.org/reference/antimicrobial_selectors.md)
diff --git a/reference/intrinsic_resistant.html b/reference/intrinsic_resistant.html
index 68da3b2c3..7f2a0c6d2 100644
--- a/reference/intrinsic_resistant.html
+++ b/reference/intrinsic_resistant.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</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 e2bc0c6d2..6c97ef13b 100644
--- a/reference/italicise_taxonomy.html
+++ b/reference/italicise_taxonomy.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</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 7ee0c4f4f..70f45e3d2 100644
--- a/reference/join.html
+++ b/reference/join.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/key_antimicrobials.html b/reference/key_antimicrobials.html
index 01836f84f..64aadcd48 100644
--- a/reference/key_antimicrobials.html
+++ b/reference/key_antimicrobials.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</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 0901915d2..f885d171b 100644
--- a/reference/kurtosis.html
+++ b/reference/kurtosis.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/like.html b/reference/like.html
index 235da4236..060de2bf8 100644
--- a/reference/like.html
+++ b/reference/like.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/mdro.html b/reference/mdro.html
index 08de4f2b0..4c7d53956 100644
--- a/reference/mdro.html
+++ b/reference/mdro.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</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,13 +143,13 @@
 <ul><li><p>If <code>verbose</code> is set to <code>TRUE</code>:<br>
 A <a href="https://rdrr.io/r/base/data.frame.html" class="external-link">data.frame</a> containing columns <code>row_number</code>, <code>microorganism</code>, <code>MDRO</code>, <code>reason</code>, <code>all_nonsusceptible_columns</code>, <code>guideline</code></p></li>
 <li><p>CMI 2012 paper - function <code>mdr_cmi2012()</code> or <code>mdro()</code>:<br>
-Ordered <a href="https://rdrr.io/r/base/factor.html" class="external-link">factor</a> with levels <code>Negative</code> &lt; <code>Multi-drug-resistant (MDR)</code> &lt; <code>Extensively drug-resistant (XDR)</code> &lt; <code>Pandrug-resistant (PDR)</code></p></li>
+Ordered <a href="https://rdatatable.gitlab.io/data.table/reference/fctr.html" class="external-link">factor</a> with levels <code>Negative</code> &lt; <code>Multi-drug-resistant (MDR)</code> &lt; <code>Extensively drug-resistant (XDR)</code> &lt; <code>Pandrug-resistant (PDR)</code></p></li>
 <li><p>TB guideline - function <code>mdr_tb()</code> or <code>mdro(..., guideline = "TB")</code>:<br>
-Ordered <a href="https://rdrr.io/r/base/factor.html" class="external-link">factor</a> with levels <code>Negative</code> &lt; <code>Mono-resistant</code> &lt; <code>Poly-resistant</code> &lt; <code>Multi-drug-resistant</code> &lt; <code>Extensively drug-resistant</code></p></li>
+Ordered <a href="https://rdatatable.gitlab.io/data.table/reference/fctr.html" class="external-link">factor</a> with levels <code>Negative</code> &lt; <code>Mono-resistant</code> &lt; <code>Poly-resistant</code> &lt; <code>Multi-drug-resistant</code> &lt; <code>Extensively drug-resistant</code></p></li>
 <li><p>German guideline - function <code>mrgn()</code> or <code>mdro(..., guideline = "MRGN")</code>:<br>
-Ordered <a href="https://rdrr.io/r/base/factor.html" class="external-link">factor</a> with levels <code>Negative</code> &lt; <code>3MRGN</code> &lt; <code>4MRGN</code></p></li>
+Ordered <a href="https://rdatatable.gitlab.io/data.table/reference/fctr.html" class="external-link">factor</a> with levels <code>Negative</code> &lt; <code>3MRGN</code> &lt; <code>4MRGN</code></p></li>
 <li><p>Everything else, except for custom guidelines:<br>
-Ordered <a href="https://rdrr.io/r/base/factor.html" class="external-link">factor</a> with levels <code>Negative</code> &lt; <code>Positive, unconfirmed</code> &lt; <code>Positive</code>. The value <code>"Positive, unconfirmed"</code> means that, according to the guideline, it is not entirely sure if the isolate is multi-drug resistant and this should be confirmed with additional (e.g. genotypic) tests</p></li>
+Ordered <a href="https://rdatatable.gitlab.io/data.table/reference/fctr.html" class="external-link">factor</a> with levels <code>Negative</code> &lt; <code>Positive, unconfirmed</code> &lt; <code>Positive</code>. The value <code>"Positive, unconfirmed"</code> means that, according to the guideline, it is not entirely sure if the isolate is multi-drug resistant and this should be confirmed with additional (e.g. genotypic) tests</p></li>
 </ul></div>
     <div class="section level2">
     <h2 id="details">Details<a class="anchor" aria-label="anchor" href="#details"></a></h2>
diff --git a/reference/mdro.md b/reference/mdro.md
index e36bf4457..516004595 100644
--- a/reference/mdro.md
+++ b/reference/mdro.md
@@ -145,26 +145,31 @@ eucast_exceptional_phenotypes(x = NULL, only_sir_columns = any(is.sir(x)),
   `all_nonsusceptible_columns`, `guideline`
 
 - CMI 2012 paper - function `mdr_cmi2012()` or `mdro()`:  
-  Ordered [factor](https://rdrr.io/r/base/factor.html) with levels
-  `Negative` \< `Multi-drug-resistant (MDR)` \<
+  Ordered
+  [factor](https://rdatatable.gitlab.io/data.table/reference/fctr.html)
+  with levels `Negative` \< `Multi-drug-resistant (MDR)` \<
   `Extensively drug-resistant (XDR)` \< `Pandrug-resistant (PDR)`
 
 - TB guideline - function `mdr_tb()` or `mdro(..., guideline = "TB")`:  
-  Ordered [factor](https://rdrr.io/r/base/factor.html) with levels
-  `Negative` \< `Mono-resistant` \< `Poly-resistant` \<
+  Ordered
+  [factor](https://rdatatable.gitlab.io/data.table/reference/fctr.html)
+  with levels `Negative` \< `Mono-resistant` \< `Poly-resistant` \<
   `Multi-drug-resistant` \< `Extensively drug-resistant`
 
 - German guideline - function `mrgn()` or
   `mdro(..., guideline = "MRGN")`:  
-  Ordered [factor](https://rdrr.io/r/base/factor.html) with levels
-  `Negative` \< `3MRGN` \< `4MRGN`
+  Ordered
+  [factor](https://rdatatable.gitlab.io/data.table/reference/fctr.html)
+  with levels `Negative` \< `3MRGN` \< `4MRGN`
 
 - Everything else, except for custom guidelines:  
-  Ordered [factor](https://rdrr.io/r/base/factor.html) with levels
-  `Negative` \< `Positive, unconfirmed` \< `Positive`. The value
-  `"Positive, unconfirmed"` means that, according to the guideline, it
-  is not entirely sure if the isolate is multi-drug resistant and this
-  should be confirmed with additional (e.g. genotypic) tests
+  Ordered
+  [factor](https://rdatatable.gitlab.io/data.table/reference/fctr.html)
+  with levels `Negative` \< `Positive, unconfirmed` \< `Positive`. The
+  value `"Positive, unconfirmed"` means that, according to the
+  guideline, it is not entirely sure if the isolate is multi-drug
+  resistant and this should be confirmed with additional (e.g.
+  genotypic) tests
 
 ## Details
 
diff --git a/reference/mean_amr_distance.html b/reference/mean_amr_distance.html
index 0829691c9..4c2faeeaa 100644
--- a/reference/mean_amr_distance.html
+++ b/reference/mean_amr_distance.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/microorganisms.codes.html b/reference/microorganisms.codes.html
index 40f783080..d7eb0f7e9 100644
--- a/reference/microorganisms.codes.html
+++ b/reference/microorganisms.codes.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/microorganisms.groups.html b/reference/microorganisms.groups.html
index 5d3328a12..d7417b30f 100644
--- a/reference/microorganisms.groups.html
+++ b/reference/microorganisms.groups.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</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 4100a7c39..968abbf36 100644
--- a/reference/microorganisms.html
+++ b/reference/microorganisms.html
@@ -9,7 +9,7 @@ This data set is carefully crafted, yet made 100% reproducible from public and a
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</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 e35659fcc..fd9f20d43 100644
--- a/reference/mo_matching_score.html
+++ b/reference/mo_matching_score.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</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 554a93a53..9dd17a8ba 100644
--- a/reference/mo_property.html
+++ b/reference/mo_property.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</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">
@@ -202,7 +202,7 @@
     <h2 id="value">Value<a class="anchor" aria-label="anchor" href="#value"></a></h2>
 
 <ul><li><p>An <a href="https://rdrr.io/r/base/integer.html" class="external-link">integer</a> in case of <code>mo_year()</code></p></li>
-<li><p>An <a href="https://rdrr.io/r/base/factor.html" class="external-link">ordered factor</a> in case of <code>mo_pathogenicity()</code></p></li>
+<li><p>An <a href="https://rdatatable.gitlab.io/data.table/reference/fctr.html" class="external-link">ordered factor</a> in case of <code>mo_pathogenicity()</code></p></li>
 <li><p>A <a href="https://rdrr.io/r/base/list.html" class="external-link">list</a> in case of <code>mo_taxonomy()</code>, <code>mo_synonyms()</code>, <code>mo_snomed()</code>, and <code>mo_info()</code></p></li>
 <li><p>A <a href="https://rdrr.io/r/base/logical.html" class="external-link">logical</a> in case of <code>mo_is_anaerobic()</code>, <code>mo_is_gram_negative()</code>, <code>mo_is_gram_positive()</code>, <code>mo_is_intrinsic_resistant()</code>, and <code>mo_is_yeast()</code></p></li>
 <li><p>A named <a href="https://rdrr.io/r/base/character.html" class="external-link">character</a> in case of <code>mo_synonyms()</code> and <code>mo_url()</code></p></li>
@@ -217,7 +217,7 @@
 </ul><p>The short name (<code>mo_shortname()</code>) returns the first character of the genus and the full species, such as <code>"E. coli"</code>, for species and subspecies. Exceptions are abbreviations of staphylococci (such as <em>"CoNS"</em>, Coagulase-Negative Staphylococci) and beta-haemolytic streptococci (such as <em>"GBS"</em>, Group B Streptococci). Please bear in mind that e.g. <em>E. coli</em> could mean <em>Escherichia coli</em> (kingdom of Bacteria) as well as <em>Entamoeba coli</em> (kingdom of Protozoa). Returning to the full name will be done using <code><a href="as.mo.html">as.mo()</a></code> internally, giving priority to bacteria and human pathogens, i.e. <code>"E. coli"</code> will be considered <em>Escherichia coli</em>. As a result, <code>mo_fullname(mo_shortname("Entamoeba coli"))</code> returns <code>"Escherichia coli"</code>.</p>
 <p>Since the top-level of the taxonomy is sometimes referred to as 'kingdom' and sometimes as 'domain', the functions <code>mo_kingdom()</code> and <code>mo_domain()</code> return the exact same results.</p>
 <p>Determination of human pathogenicity (<code>mo_pathogenicity()</code>) is strongly based on Bartlett <em>et al.</em> (2022, <a href="https://doi.org/10.1099/mic.0.001269" class="external-link">doi:10.1099/mic.0.001269</a>
-). This function returns a <a href="https://rdrr.io/r/base/factor.html" class="external-link">factor</a> with the levels <em>Pathogenic</em>, <em>Potentially pathogenic</em>, <em>Non-pathogenic</em>, and <em>Unknown</em>.</p>
+). This function returns a <a href="https://rdatatable.gitlab.io/data.table/reference/fctr.html" class="external-link">factor</a> with the levels <em>Pathogenic</em>, <em>Potentially pathogenic</em>, <em>Non-pathogenic</em>, and <em>Unknown</em>.</p>
 <p>Determination of the Gram stain (<code>mo_gramstain()</code>) will be based on the taxonomic kingdom and phylum. Originally, Cavalier-Smith defined the so-called subkingdoms Negibacteria and Posibacteria (2002, <a href="https://pubmed.ncbi.nlm.nih.gov/11837318/" class="external-link">PMID 11837318</a>), and only considered these phyla as Posibacteria: Actinobacteria, Chloroflexi, Firmicutes, and Tenericutes. These phyla were later renamed to Actinomycetota, Chloroflexota, Bacillota, and Mycoplasmatota (2021, <a href="https://pubmed.ncbi.nlm.nih.gov/34694987/" class="external-link">PMID 34694987</a>). Bacteria in these phyla are considered Gram-positive in this <code>AMR</code> package, except for members of the class Negativicutes (within phylum Bacillota) which are Gram-negative. All other bacteria are considered Gram-negative. Species outside the kingdom of Bacteria will return a value <code>NA</code>. Functions <code>mo_is_gram_negative()</code> and <code>mo_is_gram_positive()</code> always return <code>TRUE</code> or <code>FALSE</code> (or <code>NA</code> when the input is <code>NA</code> or the MO code is <code>UNKNOWN</code>), thus always return <code>FALSE</code> for species outside the taxonomic kingdom of Bacteria.</p>
 <p>Determination of yeasts (<code>mo_is_yeast()</code>) will be based on the taxonomic kingdom and class. <em>Budding yeasts</em> are yeasts that reproduce asexually through a process called budding, where a new cell develops from a small protrusion on the parent cell. Taxonomically, these are members of the phylum Ascomycota, class Saccharomycetes (also called Hemiascomycetes) or Pichiomycetes. <em>True yeasts</em> quite specifically refers to yeasts in the underlying order Saccharomycetales (such as <em>Saccharomyces cerevisiae</em>). Thus, for all microorganisms that are member of the taxonomic class Saccharomycetes or Pichiomycetes, the function will return <code>TRUE</code>. It returns <code>FALSE</code> otherwise (or <code>NA</code> when the input is <code>NA</code> or the MO code is <code>UNKNOWN</code>).</p>
 <p>Determination of intrinsic resistance (<code>mo_is_intrinsic_resistant()</code>) will be based on the <a href="intrinsic_resistant.html">intrinsic_resistant</a> data set, which is based on <a href="https://www.eucast.org/expert_rules_and_expected_phenotypes" class="external-link">'EUCAST Expected Resistant Phenotypes' v1.2</a> (2023). The <code>mo_is_intrinsic_resistant()</code> function can be vectorised over both argument <code>x</code> (input for microorganisms) and <code>ab</code> (input for antimicrobials).</p>
@@ -428,15 +428,15 @@
 <span class="r-in"><span><span class="co"># language support  --------------------------------------------------------</span></span></span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="fu">mo_gramstain</span><span class="op">(</span><span class="st">"Klebsiella pneumoniae"</span>, language <span class="op">=</span> <span class="st">"de"</span><span class="op">)</span> <span class="co"># German</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Gramnegativ"</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Gram-negative"</span>
 <span class="r-in"><span><span class="fu">mo_gramstain</span><span class="op">(</span><span class="st">"Klebsiella pneumoniae"</span>, language <span class="op">=</span> <span class="st">"nl"</span><span class="op">)</span> <span class="co"># Dutch</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Gram-negatief"</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Gram-negative"</span>
 <span class="r-in"><span><span class="fu">mo_gramstain</span><span class="op">(</span><span class="st">"Klebsiella pneumoniae"</span>, language <span class="op">=</span> <span class="st">"es"</span><span class="op">)</span> <span class="co"># Spanish</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Gram negativo"</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Gram-negative"</span>
 <span class="r-in"><span><span class="fu">mo_gramstain</span><span class="op">(</span><span class="st">"Klebsiella pneumoniae"</span>, language <span class="op">=</span> <span class="st">"el"</span><span class="op">)</span> <span class="co"># Greek</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Αρνητικό κατά Gram"</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Gram-negative"</span>
 <span class="r-in"><span><span class="fu">mo_gramstain</span><span class="op">(</span><span class="st">"Klebsiella pneumoniae"</span>, language <span class="op">=</span> <span class="st">"uk"</span><span class="op">)</span> <span class="co"># Ukrainian</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Грамнегативні"</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Gram-negative"</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="co"># mo_type is equal to mo_kingdom, but mo_kingdom will remain untranslated</span></span></span>
 <span class="r-in"><span><span class="fu">mo_kingdom</span><span class="op">(</span><span class="st">"Klebsiella pneumoniae"</span><span class="op">)</span></span></span>
@@ -446,7 +446,7 @@
 <span class="r-in"><span><span class="fu">mo_kingdom</span><span class="op">(</span><span class="st">"Klebsiella pneumoniae"</span>, language <span class="op">=</span> <span class="st">"zh"</span><span class="op">)</span> <span class="co"># Chinese, no effect</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Bacteria"</span>
 <span class="r-in"><span><span class="fu">mo_type</span><span class="op">(</span><span class="st">"Klebsiella pneumoniae"</span>, language <span class="op">=</span> <span class="st">"zh"</span><span class="op">)</span> <span class="co"># Chinese, translated</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "细菌"</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Bacteria"</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="fu">mo_fullname</span><span class="op">(</span><span class="st">"S. pyogenes"</span>, Lancefield <span class="op">=</span> <span class="cn">TRUE</span>, language <span class="op">=</span> <span class="st">"de"</span><span class="op">)</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Streptococcus Gruppe A"</span>
diff --git a/reference/mo_property.md b/reference/mo_property.md
index 9e01d71c5..08390371e 100644
--- a/reference/mo_property.md
+++ b/reference/mo_property.md
@@ -180,8 +180,9 @@ mo_property(x, property = "fullname", language = get_AMR_locale(),
 - An [integer](https://rdrr.io/r/base/integer.html) in case of
   `mo_year()`
 
-- An [ordered factor](https://rdrr.io/r/base/factor.html) in case of
-  `mo_pathogenicity()`
+- An [ordered
+  factor](https://rdatatable.gitlab.io/data.table/reference/fctr.html)
+  in case of `mo_pathogenicity()`
 
 - A [list](https://rdrr.io/r/base/list.html) in case of `mo_taxonomy()`,
   `mo_synonyms()`, `mo_snomed()`, and `mo_info()`
@@ -238,9 +239,10 @@ Since the top-level of the taxonomy is sometimes referred to as
 Determination of human pathogenicity (`mo_pathogenicity()`) is strongly
 based on Bartlett *et al.* (2022,
 [doi:10.1099/mic.0.001269](https://doi.org/10.1099/mic.0.001269) ). This
-function returns a [factor](https://rdrr.io/r/base/factor.html) with the
-levels *Pathogenic*, *Potentially pathogenic*, *Non-pathogenic*, and
-*Unknown*.
+function returns a
+[factor](https://rdatatable.gitlab.io/data.table/reference/fctr.html)
+with the levels *Pathogenic*, *Potentially pathogenic*,
+*Non-pathogenic*, and *Unknown*.
 
 Determination of the Gram stain (`mo_gramstain()`) will be based on the
 taxonomic kingdom and phylum. Originally, Cavalier-Smith defined the
@@ -540,15 +542,15 @@ mo_shortname("Strep agalactiae", Lancefield = TRUE)
 # language support  --------------------------------------------------------
 
 mo_gramstain("Klebsiella pneumoniae", language = "de") # German
-#> [1] "Gramnegativ"
+#> [1] "Gram-negative"
 mo_gramstain("Klebsiella pneumoniae", language = "nl") # Dutch
-#> [1] "Gram-negatief"
+#> [1] "Gram-negative"
 mo_gramstain("Klebsiella pneumoniae", language = "es") # Spanish
-#> [1] "Gram negativo"
+#> [1] "Gram-negative"
 mo_gramstain("Klebsiella pneumoniae", language = "el") # Greek
-#> [1] "Αρνητικό κατά Gram"
+#> [1] "Gram-negative"
 mo_gramstain("Klebsiella pneumoniae", language = "uk") # Ukrainian
-#> [1] "Грамнегативні"
+#> [1] "Gram-negative"
 
 # mo_type is equal to mo_kingdom, but mo_kingdom will remain untranslated
 mo_kingdom("Klebsiella pneumoniae")
@@ -558,7 +560,7 @@ mo_type("Klebsiella pneumoniae")
 mo_kingdom("Klebsiella pneumoniae", language = "zh") # Chinese, no effect
 #> [1] "Bacteria"
 mo_type("Klebsiella pneumoniae", language = "zh") # Chinese, translated
-#> [1] "细菌"
+#> [1] "Bacteria"
 
 mo_fullname("S. pyogenes", Lancefield = TRUE, language = "de")
 #> [1] "Streptococcus Gruppe A"
diff --git a/reference/mo_source.html b/reference/mo_source.html
index 5477933e9..95fa4a4a0 100644
--- a/reference/mo_source.html
+++ b/reference/mo_source.html
@@ -9,7 +9,7 @@ This is the fastest way to have your organisation (or analysis) specific codes p
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</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 e59edadbe..7e68a4989 100644
--- a/reference/pca.html
+++ b/reference/pca.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</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/phosphonics.html b/reference/phosphonics.html
new file mode 100644
index 000000000..168688bb7
--- /dev/null
+++ b/reference/phosphonics.html
@@ -0,0 +1,8 @@
+<html>
+  <head>
+    <meta http-equiv="refresh" content="0;URL=https://amr-for-r.org/reference/antimicrobial_selectors.html" />
+    <meta name="robots" content="noindex">
+    <link rel="canonical" href="https://amr-for-r.org/reference/antimicrobial_selectors.html">
+  </head>
+</html>
+
diff --git a/reference/plot-13.png b/reference/plot-13.png
index 75ebebfa6f5f88c93c3bfc2a26c096fb68d15392..429359f3a63b619b58f2023f5690d3a3006c92ab 100644
GIT binary patch
delta 67003
zcmZU*2RzmN`#*kcQuaz#W@M*A_6$X2Mu<WpdyltBHj$B%nXF`mWUs7{%HF%|y~qE0
z-=FpUKYr(NKkmC*$2srwdcR)R^<39U^}`$X$1B7ZM|^^=>y#mw)8zLmzhn)s;e8JE
z!^7pK3T3(bA`~y0qefUkR+db*3F|;yznGfZmr6E%!YovnM_X2jyHU67PIkD~y+5~p
zg**8ozmu;ss=S>Ou^n2S|5_z6BjJ&Jm=w<Gmh2?0FthS{f`gTnHJw6;X)NmFBPW)`
zaK-C|uU{hD$fl`8VN2;Va!o1A?&RhcW+a^d{?}Bc2>P{+4LMU&7ABu9&8nTDCwn`?
zb`IMMIyYmq$I^7q&v&OJPzJ-l_1<f!#Fz>v!ar1hyA5c<@Zg6nZ>~NObY0Sa{^CWt
zZvH*=rG9<5E#$ptZ!=yqI_X|uQX8ouwa<=>Z;FYE(h1b;vHBiw>jkI(abBWcHliRG
z3+12>ZuPLBY>H)<$@I@vVwB0}UkwfpzWG3_jLG0KE!D3}yNE#^jr^}NHe9>$V$$&7
zhv(0qrxSii=(;?lV`XAy#!5j+xeg!5^zYA1jGtZ2K7Qkib51U=b+nAJh3qPY>2J6q
zyl{0oGc{qf0#j4XVfwYclGxbTg+7O_&MPB>Pmvh*$?Dy)#*YRiXO?duClXyL(os5j
zx@jt}IQN#z$I0kgDP$G2U4-h@6f!MTs$MLu*7*M&z`7}hkMWyWCbrFLnYj7~FFUuN
zXPz)5_$K!^a{`t}@8h!bW8<)<qc6E5JMOvR8La6NN*UzK!{sd%PV?<Is2rnHQ(4My
z(PVx2kgk@%9~>E}ROz~GQ+7D>N+a~v3XSvnl;UUGVVVT~`~C?D2{CCD<Q3=Qtyt2v
zgx*Q`Z(UbzaJLs=H;?qLeBZ6mHD-I$%ZciHLRY-`a|MO>>>cBl4Ayq8g_7iAmdO6b
ztfQk|MvrM*496G8*)!ovYzmsso6TgEl<-eZ4()8ls?KL9N4-$bx;&qqBb=j?N5iR+
z9G-%loY(tgB&(}S!%IV~ps4^)cU>6?@!Vc$TP8S5XIfGv2R|C~m}lG{pZ*rn7<X9@
zHV8{7>(8G*3tbj<_xAU(Fi*#jsu1{__+=~#avjs8dbLbe6$-7pcOBpZGTd-I8$`nB
zZ(N{!^CsaKa(cW$64m~CRtZ~}_I6P0rkz=Na3YSDCy(%a4PGtYlhloZl__+QAIDs*
zyfsW2?L@<OkKK-0+LwXPu<U!e2^sF*!9hcRKP{=m8V3I?-NXV}4ibZ|sm;pf_IC3t
z4XKb4%Wl?7mk9s<{rkoDSp1Vwg+CkwYHQ?Z&%wj%cedu<Mu))W^6uuQ{OQRtIU{4l
z#DpoP?qGXS$YDw$F!DukYqdSTK%DBWTW6Ib8A1}TSeoswjJCG6zC_+-whMUOZ90vq
zbPay&W;*b743C@~A=fmx+xtn+o9(hS!7!!f-^5M}qiRoT3>iKBy-O8~!RIbqYYls5
zz)MqUd&6Y`H(xibCqtRG;&i6%m7__2fe8U7>4qE0-4D0weRf9)n3<WK|NOv8@!2_F
zTwH7unV~I>*WA)F4SQH#U!Ts~+xt$nr_0vgUj!z;`y4-iE+Gl;xp_Y9?YZAdkz(Y#
z_t`HYffkPL3&ZlKvU$DfieWSxK8ByIE{<Pct^NBeD?xNcf{2J{<JjEXT#agad$C{0
z=fD|C4wbR7vHRX+kkFGp-uE9qh)eiB#>K^*s69O{I9jcmx0Ur+$FAF3pSIoEod_VE
z8uMDk^Ai@(h(Y4xU!Z#lK7edXB;zI@%kET|04onq?m*0WRcX!`_KQ3`XXJxO6!Y(u
zPOPp*`5qrk4%^knnbi6mY(3M>YyOcYAGRdl)?Y<2f3wZJ<U{{r(St_(vkanS&z?Qo
zF!PyiiE1e_ZwalgZF|@d&u1uTGax8p{hKg3IeBe&7eV*dw@Ah?#v87pTPO1GMY<+3
zwKVg3|NPFOY-nis@zLOlQH}R`r@8OktA#vNLdzuKwafnd4JI#(OHy+UXy3e4PPH9x
z&ZoWj%JHn=HwIn@uj#a#?oqEXgmUMV6crR6-Tw7~t+-aeb3KW5xO`drMGsl@)wl&@
z(^W!J@*T3EMy2Q>R5<mz)8h3l&exrDth<H+yquv>tXZLe4tU!}GD(KQ37kUfP?~(u
z28UeSO3MM=xbLCu_Y`UA@nz3yCa;~P`eaG3wS&ci>9=+@^{KJ}s?Ih~`ad<dMzd{}
zwrStLUxmT2U{n-jwfEiR6zVs*L(S4cgqjhKzR<9=FUK+L59Yhxxi91#mG;2BCBJYX
zY_P<Vjgu3<^UYN!Q4(c?sL9n;lZS7`T^3r0<%GuBHg?9{#(la7ECYJ16l7#%q7OG{
zUK*BKQ^TqiT6Qy4I4j7iN^y#biP4GLvp{V~T-||1Hif%PNJLZ*p9Jc`5>lfc=h=DL
zB{Ei`OhWp2i}D2t<C$vXl+~T8<^#A}FV@!Vy$_em75f}&JT^IpK0gj<YHE^e@m~1N
zoh0sZhMb%ny;CGiy!&pCSUDWfv-kFz?OLCqT^j7+Y{PQ?s_N>F8}H9>%=a(fd@G21
zux-*ncYNcPLrXN}_7y~!wl?VV;|$XZ-^?m`-m5}?@lE*$2{0J4)ekc5a{`G9+NB}o
zPwNWJ*^1-475hRx1eXrTr$%EpNIEVuk>W!4F%KECW_n5*^?@|bK|vu_Ia4dmWw8(A
zCw;Pq17~HHLGu9|wnu62KbCH7IX{2?d}6Ni?W3{oFo7EVOGt&`OW2na^#SY0yW_*Q
z1T%fo{I5sw?xcNsYE)uzJ53?|YPE6H)6uWgZ!g_#m~0H1U9Q?VgI8)dZafwl99%fq
zKiiQoYfzV=6rsf_!^I%!Nj3V_<#G?NjwKVNO3aU1<W!F6&J!+;WCeG3(X;sSZT@c2
zQ(e(NTgt3^d7dLdLA0tXG@s2|NF;U!%ma<fW7yLG2L#4cDo~%JtWr4BF<63UaC)6I
zrs$9KwRmJI`sBntSY=1LO4lg!bx6lxrGmCj;_V*=Csa8FlElYf1zwh{a?L0_4f5?Z
zd#_ISe5vyZCTEHr6FPmvSN!)m|C3|Ap4H_A&vTPk9=upY{8?Esb;`^>>~`0mj?mfF
z9$!;W64kWPYSfwQdPiJ(FQTC4;7m?V4w)i3Y^C6kkZ3hkI4D(X4aARzx}({Y*S7mj
zI!=?toH%1*VoZzlVOQBtHsEcoj+=~~9&L8Bv9UEiy#;msMS1!4zI?-=O1D)xD#e>I
z&oAqJN=0C0U$PTrX{5vtr%3tG$FR>H+O3RKxVG5$g`dANF+U#!*Q6_D$N7pVOZ}bP
zE6&>(jEaiNK)Ibs;<xCyIF9}>-|2|!HtJLxySoVmWcQ2A@WwnB`9`Wd?y8?z*!G0Z
z$jZxm7DGly7wj<oE$;Es<mBW)@gw4s{dwkxh^1x6m7*)c!uDH#Gy!s)mwCD&BrIG!
zaFXP4D?L5E&};W8rXq~zUM&-J=BcTvA31lq;3enOvJ<XybVbLsxE>$4RP9ZLVH`UG
z0H)x>GQOl;?C9$Hwm#j`Q|;x3sgRbUI@0745+b+kn&D>{E`Fp2XNZN3O<t-DSz59&
zs&K?x?8}$W)6G{!HiDCya0R0Mn`R7K4-T$iuubQc4Y}DE4aj#a&uMGtia+yHx;rIN
zkgH@%DBiWkna*>QD!Ss2B%SYmO>6U|2f`P<?&5CcNxS&iWU^~-2919|4VX8d^vkVd
z#+JqFeyY)6w{s@@=t-=GpMs9QJK`>Cj2ydQDu}uO4&vGlmjy;ekuLNXM8T~!J3iR{
z;xMgL(d@o4qY};}Nq=&3LWYZVFP{dU*bJX<wyAYxv~s;$`ZU%+dbQ^8Q&lxUH?)_P
zKIwm<n&}@DMDRxBu|EKSiOd9J?3Z3dJ6~NELnX^<PY#IT*ANMSd!fACruUT^J%@EZ
z-{a#q`r>y{{zdD2XJaD{sq~S3jaqxT?Xa$eP;h#%WwHmpfq{Y5k5nv+&Nq+Bj}7gr
z1K|M5=j)n}Re5Ba)JkddP~*z_!G{1S6gV^U(0O%?5w;f!ph^Zx@9~w{jYnps_|ijT
zf3BW|1h5cpOa%h;Q`Xj|V)B?F$5fPjRr_iAn3;0%O{b8M(7rJ#eFQ$K<QAFl>9L#h
z-=B)lG6c?NqPPB<xzY-0S8tx4vbVQ{QaIhSx;hzmcXt^w+&|9ZpCA9ikB*N1Gg^5a
zGm}Stj>Y8uXue^2I;`B<_I6y<?W|uHFI_?iVG+F3nlT|pAw<Tkc(V#mPs_b!*Ar%5
zpM<}dRcfyE{v_(3MKZK=U(GQXgIUg~77a)U&V8R`;-=rrTYmiE@xV6QEv~39oR{zj
zrE1nZ_W87<2C&9+N+z$&-QKGaBJO1?YqUJ7B=ffI|IL<OT<X4V#vtu$q^><v;jxKu
z_I<h^24yWnHUR(6&rD(zb0&P-X&@FDFgoJ1i#LY0wiBx&4NdNFca;Exo)I`eiaTtC
z*zvputXyWNtEVU377`f2N9|N2fD&DYW6J?Xr^CrsT*<qe6`AA=$VodfTtJ1w*k@a3
zX|RMq{2d7aDHCs*G4h#(knV;n?=`!zv&_sXtiuwAOC<wPKy&p9jA<U+P{`DJFx3=-
z@w;E?N<CcjIZ8!WH(tWYWuWlEHOq)xZJx?mzIJ&B6nb1qyrp01%7-yMIoiLrh%>*v
zdvdsn)0*G$<lXP;`DCxu6Ss5k{`|43G^dE;;xAUBj=vPzihTdhyDG?Fw!ipXe))<z
zQ($}l4l}(nU4)W{VGR5GtgOpF?V^+E@fl8W1RoCDa_;r}RVddMM+9yZeLCN~X?)c{
z;Ac!+oDP4<^O4bo-n_8;lGXY#&nIb5WqQ<Fs9atD+SpVJ{H_o>jf;(Cw>t%Zu+LA-
zf4363Tcu`VVuE<kyt`~5aP3uG+^p+rR-enc+nle4n@L$rI@`j-&+d1)7;HidJ}l)x
zTkmM48{3sDlr2%rD5SEVsKYvf7j*nNRrd_X>gRhR-~CxyiIcr){*Wh4!Q`&H<&S?U
zjY&C7J@+;!jXBouHujy3(_7k^o}LbX7quBKJBJh%6_F|S%#HtkhC?v4oX2|U^_IXT
zc6Qt#QfB@#e8<Od=!DF_nfB)D{P^oE>ap=Kght_TJ_Y$v>1GGWx69(~?YGw^D_3h8
z;ZTL@nfR0r;0-3Z9PZd2?M+AR%_f+T(b5LJy>2&mxD;2O-@o`kgg&j;+IB~0sHN$^
z1CanqTInP5_$Thz*cd-w@6>lOt&M@FV^!S9b^7a18H~M_OTEYAHp(_nEbg_uPD<iE
z&7S!CHw0SzWW{`PW8s6wLi<TM31~Hcex%{RuY?1Bra`oVjr@p=a|_v3+7muI6UbS7
zm8Z7mJO5blvU50|o)q6Nr+E`fx<iCS`}8_NYn#&3>KE80zmD?cy|*RxKa1COGPSff
zj2cV7m(b&l)jHq&?c3DO^04~0raal?s=<c9-Dinz_QIU_kp*c_$D!ESFArS}^m2Iz
zdmy31D{-4v=2hEF-)fe}RpQax_3Wj2k!kG2Y!$?C&z+Zts9`%d|IWF45mBK)PaLmt
z6<tR>9}Y%h`}f^1K8Iy$7Se#xt6g{Vw0T6JF~hmK4zhqY=dpfm`FyWvDHl7tLXCvf
zjT^&ryg%{J(NhiUd2DW$ATEl=9yp8a2^8Ngt^k$`?R<N^ad`Lwia$UA2&*<xRXyV$
z5Rlft2zOz9ADK^KlaMgt&w?K~%zZy!wf^mbsQm<nQ$2|=qbHdA?uSeCwWU$gC;G{=
z1{9pH+MfEC!y$BZEUsdtqQdpUm93K}m7FO~%<4*J<A~}M7kVn3c*e)1ENfys=|STQ
z6pFpRZpVaHnb)uBJWK%23c)U_+WM(>&GI27Qh}YdO~!qb(7tdk)nwm9Rol8gpQUS$
z>L*(imhtJ^zpVQQvI{3vO>PM?*7`*PI&7>wmwo-sRamcL><Cun6=n!!$$q?7q4eIL
zO?V9;#BZdj2XL|8f)w$mYbGOm)H%0RVz+qc^g0FIlnlCU_(JPV>&&AhU%<j-+$%+_
zgTuluYdX?mfZ+OgSXekai+l?|9{|lmHea{ns{3&1lc4PEOU?_wiDXvNZJYUm_3l0C
z`{;1V!GI#u=N7~9Mb);Jv9Tw{Ax`gSinx!>6-z8S3q7~3p@cNGw3q{`e=X|3dKMqY
z;`{4o@UjnJ1wtcLW(a}koKZvab@hVpsYbREdEmad!ll-yf2Y2{$1<Br{995|(y0p{
z;U_V--aMRwYSLiVrr%UDnJ?O<F=TtgnjR`@YOkc-D~1<?V&Ue^?gm)*=GHd`APbCf
zyNdV8aJ>&6|D}<+oB07#!X;);Ky4v#LKTC}arG7_WpRm<+8^jql_f|JPj1fLtOhF)
zxlFA%bmNL`Zf-hN?%oY+W=(kX!@BgEC8O@czSaBC`uV-iwzCoGG65y$5Rh_Sn~<$K
z+UVGjT6AIwO&^_^1v;uGVIe2yKPq0DehJlcFn;jdI2Gwq>)x1h0h5|=kcI{$2EXp)
zfNU~a7HfiddWws?E(QO}(qLm@!9X?o0;O8j`xIUa2eVRp>ML=y)_83=N1LbWaHaCk
zaJc|x0$OHMMwHZo(HdTG`lbGe-oMWJHQr(XEMCCbZx|jnG`1nel-UgW171+-Stl;`
zWrFjP>ajWJI(!Ov)phss`Ww9k25t|;#%1AmbUAXke7%__>26-{7eF!g<378SZCoi$
zF&t`zRz0j$`*UyUu3A%lb^fb0`NZ+=Y?Gajc3MSa!DL^R=eB&;&bgPup#`IV2A7Gf
ztb4i3?yFEs=<!RsSzrBKx>)g4qPXn<=S^j`@6Gdl-B@v|&GXMFab+)QM%1yYAhI{}
z4VkC%WAb$i9{179x>C?b3euf*Jm&>cLisIK{q8rHqvi`MYa>5e$`JWaxUS;_o+ejJ
z3u!;><M2MySMXW=!+3>L%N$1wH#av)?~~EO2RL6{m#v);8=H?+j1&}FP%;v<^eY@W
zpd472FbCALBv@Jv7H6hkU1m%~_Lm}|Q3w9`amT3A^&H$MIU5^ZY#bcM1-4aX9%W0L
zgyyqj0HZ3#;f@UFS1g5U5yGDm%4_%ME>yaF7P$X4)~>!V{nEb|)CO=>Y&n47Y<>T7
zmN?ZwC?OM_*T-=&Ho&1?acS_sDhghj6uH5QM>JNmhP>OtN-bL-ZmUg^{JksUznk4}
zL_<qXUh$emX7_gqhc!X!L)(yGDq+wyJSqV@?e7?LOP~-sdN+Zch?4V`z18>NV8XXy
zj}klQyoq^+487YEeSve%vTHni$PN(RCUO(lXj_7N6yuFPi^`Z{<Em~?q3`W;8?zmR
z2noqIsNO$PWpR?koW4!Y@MApY<^WMH^V9HzvH}OXd|LU1zBBW|{mQEa{7*Ge*1&7@
z<<9y#@y7PHqLtN3!$$z`ji5Az+Hi%M6@?LDw^z-@i7Trzy;aX@e0fnGgXu^RXo3E^
zR8~IQ6havs8d_{9)o>70+|-0LX+_A-@N&9`P<?pZOXADS8~9b0Tyc^^W;loINa}#X
zKjH8`zlwqaN7mxDh{(mLqr(DL3l<`57L~Q7LDDzZqNv6+6lVMi3k7-g3o!&F40TZ0
z9thISJb%uv0=icn0EM;RcQr1uvdYzr|I(0tSCI1I_S^O=A4~v?*&suoiSPrkWS(Mg
zk5o9hPla$5KK{iSWbO@GQV~FZkG^-HMH(3~pwJj#BLik_z&wh&@=MH><L}9mhGQ#Z
z)i<OLm#%>5gxxBs0fc+68#xK+mO4C(N$s%`G;1OZiYiTobJ;$e;=Mrx+-}-Ah59z^
zGF0b6e*f0S#lySE&rbrkfnUc&plZ#(YP813>!V366Kv@XCvh$=0_0?$E7^UD=m;Pk
z#<AcY_u~i?WqsyGP*)rP1yxYRu&dluQK<*~5eSN45Y2|;i|tKOz%k?An-NEzz+P$j
zjbv8Gs>#ovH?T2Lg*zkxcW4-?^4OeNhR$lbG1DfBoOsu4yZ{9q2(PH?5}nlk%quyf
zKOh^REMj@6v{6I)`1#DtjCXhAz<~bN(%{{vb_MSVH4Pkd735X;+d#Misog&-i%UX6
z;>`Uat-`3EM_-k-d)y@kC{Bp`8l2~-zSExg$G*eU=@kF*c?H3^m^Mz`U}0t5&C;rO
zTj2dudvaDRdf3mOQu;U3+QKQb`#C1Q?imhNo_xTrK?0=AlAg|K^a)H%OnYmMq=3!N
z0z`vOOYJcZ5Pq^Dka%B}b>Is0SQJ!rOYSChUb8Nx&(ka5|K$tn(Q|n215ku9exRX0
zKz_0hU;PDG`<%42bfr+-b0ALl%4|Zud=Xt5Dpgb8vlgMp)PbaxXlGG+gI>&$9cVCS
z0#MF1f$ee{a`I=u6KTHsjC^r;EsaQl1d!Ul2sXnS#de&VRNQ;O810t}OhM&_+f(F`
zQ>&X7my+@*A0&=Huyb~h)p1h58K+0{(u!q^z&{)v9Z@R&_K{Mod*@{jRF?uR-urmF
zAFaR`R3_Iiei+hOgk{<u%dI%(3(D~GprGMuJE&b}j;)ktc+@*5&Yd|U2jq46M6dkm
zeUQ5AfBmAgF8%sLjv4QeW!F@YPSCUtvtL`)iwJ8ZiAJyP{4~bb<j(H>@!5vB;2GQG
z@sazVWV)sqesWD}HmlET=dVzogk7(DGNAA7`WFXf(OylsxZY(%#_}fER38^_Drjq=
z+KKK*ea)Gg$G<)d=IadtLbe(C(zB8|fOk7tV(_V1=DkvDQQsr?B4P*bo^EJYGk8dv
z4eS|UGXb45T95U+le*0RadKuH$>LPTiUtq6`y3AU_9mcg0KiuX`F8KCb53W|dkWCj
zpMyR(G*a;EuRVxyTYq{ozMB<t5@P$F>|0jO-n#eM>KUNSwvyY+$9K}2o*3siz27Q|
zU=X7KR+?%2vBYV<OTPy3_NWoQtOyW*L_Jx;z~)AJ@zjPL)u*oypS349n?;|Nd{Q=F
zbOq-sSM~m>vHLkXtQ4Zvdf<~kB)56BOG8rz72vZcCMJqH&Jf1)-w%cMO>*(#MM6SC
zKj8oBS@K~te5mI8(XgDvZFQ^}%B&5)aaNC2A#&<#gMhtJ?X~*?wjI>$o>~O487#)D
zJ=!3akYK2!(<Z~c^+tpU&}$P25g_3Zf+AIBJ8V|(j|T>UX9&NoZaOpk46Qe`0>(`s
zO-H<ZNtWGf?e683;kCQ6xAjZI0oX`o$#XR}(1F0RX#nlM2hP24qU}8-QN-#81~tr9
zYfmFXD7jdnW&k_oi8}+043+Fa2Y&hH&4T@HD`gK4k4gC5fiDhhU)@$o?Ck8UO7DRp
zfCnG30k}Pg)g{6aX)N#5gJ9(!K(&E=hB-PqO8xcsN0tWj$NQBuAY#Fyys{h_Qi}%=
zg6M4k3bB!S+7{o`q;Ld!8J&<BF0dHh+PMIK{~sW8eSdqMw5O+M-&!1}VwF~)_DEPu
zOAD>iXXyknAU*`CX3By3xHjU{{b0Dv_KWK>J(K&yGYUp#O#?D^E@68Bq&zzbN*Wp(
zzdssKVqsxr8&`|NRsHyM{|55bXQmUEgS7>Un(5j^J;srib`P$iLyVP&6mD1C_}wSK
z{knSYc(i{19=rHq|L}0L!<;*u@diyuNXVTWZ6NDUJc6bL1M2<0f4_yPxRP2`Rn;!W
z+H&r^FfO!~tI)Z39G8m)p}6kzyysAhPu0v&;*Y97Z&70K3E^G<G6%>t&PgHit(1>A
zNNgAk0Br8<@0WQ@xYUzg(mJ4gb0go{gz1<}=PCf|SFdtWsrq1N*|3Y8J4=}Pg63mU
zodCCkt-tC7sS3;r|9-@F*j(!<wZuvV|6-Olyn$!4h&+xatOi8ue;yUltw`(5?}=9k
zEW47P85abxtAG{>dl@>k9MCZbC`1?;Fq&oqk4I!5NnL}(@%yYXY7L+d$9(v}C@OW|
z9d%nS1MmnkpnwroobW$yMBVj|<%>Qu_u<0toB-$;u-Q_p<TZ`Z*ZMgDFNL6g4Ug+T
z3rwUHl;N!P<qy;%(p|}tVbFGfA`(PN9b8KG*)c$=;o8;~@9G^!-NdMf?2m$Adj9hW
zee&zWId+v?L0BJ7*tyWC<iW25BePj&&YX?s@@&jRwdXbu*cs1YmwmPwq=4cWkdUC~
zfjpP{&uS^mlu>D{fntij5ymfw$&(O#EQ6Zk#r}epwaLcK(K%3K?`Ek_LKD^#XZY8J
z!@tv2)z%gJfE@=NAMTpNas__)#l^uvt-69O^DlT$STgw0S@geeq!1TBMKlIxMC&ke
z|EqIbx!r7g9L7(~X|B%Z8XF(qxwN!2j30U)!0l5FlK<~7YCq;qo`{Hyj4y{}dTTch
z3}X_s45+t2)*8FJHPjEV>wx`b{XcI82&`imET;`u;J-1iUaf<`C6jqDjuetg?WI=v
z{P}S)vk@@TzaP1uVJYa(zF@Vhb^c3%nE)5N+pQALZFzxFMf(5q>cGEShe4Oz*nw_{
z!2km5?l+EM_ZWst`fCrS`M)1Le9e?q4<0<&*a;-2omqwogJ3W#AY*thuZ~o(*|~vn
z{{MeIY32<E5i7E5wnMlW_w{DlBCu{@o3M$C)3Ygs`vobVT->zS!L9=rE{-H<<TZdb
zYinzdpvh~uIA2xqftjnN)h<NOBhaU(xF#m^`0-;h+_b7j`x`W2ies+3{fH(w$XlL1
z@Ee6yyTY1O9kW8MZEexzzkdE4Iq-P->J?5#kN(&L(eDRNoghD53{6-2)@vnFmHQGt
z(?}%TM^KW`Z3?2isLKM?O697Q$2iEcI@!kr%-$H5a+*~?ESy;M;-DXtm%E`C_pvto
zjDMYzo+9#h+fz)aVP2;9p$PqKQ?Pngz`cC_`QVYLZL`9aJ#pc;og3rex)Mhy-R&Y5
z<6jL5**NgBki00H^{ZlZQ-(_Mp`|5Gt0c{0VAN>fwinRKgbpU0#eQix;n9_MB<k~e
ztsSPCh)@6r4FdP&q3qwqf?9rUWEVuUU?e023j=swaNPfif<H@LM@Js4&IP>Mmun+B
zxA6mHlYLszi!0Kf!7a$j$};5KZGXG{(bCPE@%&kQvHH9otC0=5jo5xmti_phc*5{I
z`I13iF85yRQjqaxPK`2t{e@?s8^B0$9arFG<&UBL&3OlK4gPF<jvyfND014lh%@f2
zj1pr26L}f@pChULI8Mc%w)LGuPvHakO535*CwjV#l>aVY<m5V@yux5{{`)cWAt|{&
z58#(&7XwD-UvZB$ig7pilc>*uh~Eg_fVYp&yK_PR-i^V*+3kqEc>N8#F^TU<Vw9LQ
zsI%hE<6zR510sP|5YVbd^}l!1Tu<WZ0eCk%^Ax;nz%sKxjspS$W}AD#Pz!=uXxZ?8
zPLNiT>Y9?0QiE9$2J_)oqE@cdKSqP!rO<)WCka<3$^Q8i2>NdwZgmcKx0MlYyP&|p
zxZEfpqaKF|CcX}w|EI|CH0R*1qL#xl0H^reC|HY*VbJHhp8ucvkSQ8BA?db~RJHu~
zuR*Sq2>tEo<NvM}d9)9_4~L2tPo(hQsDCX20{_VtcH*h`0;JqJ47ERVf$heP%GQ(r
zE>du-R2D@QRIAu>5Kh&4TcGF8E~~#27o#Nk?`vzuO=<g=gX6ie0~ZEQ0*)2B6qU_G
zzCCaHwc?D}Ix{QRi4R?YKmf-yE+(GupOq?BM5q)+p7fmsxWMOFJ81I_Al=&cE8VGJ
zv!j`vJ9o(NNf^*e@urO20M86~9ypk=?X#vXckXF_hRcAQz!coFYr|-)0IZqoc4NGs
z3k*suK)kuBrsm{s<8=(_4qT?LkqVPq-;Euh2%z%Wu?PwlHX*wjK%1Zi&LYrKf5Bp2
z114v-IoFBeIUsjo-y$w#06+LMRC@WhwM)){1gL`mJ|C8M0%2T-FhP9oDUba3XY1co
z^?ydq)Joo9ivKKs$AdtA*d7~~^mHTSpQX;m9{&88vg_TAAgFp&LkUSq;m|Q?k*`A{
z7cXJ~Z5*ibxPqAgbAXV9Bz~9J-w#C!<}Hx}zy)(^v*KO7dEN}#yl8t^JpApU@Sx4z
zn8Sn*Came9bvfs&0Mxio2GY(TyTDAEO5L|TB>@cJgf(Mh+<~zJ;5cX5kj9EeH2^9#
zz;Z>uejS{Y#DFA$>8KXZTMrZ`1Qa)|?aL|@yfk5>r(dj$9oXp#`1q1WN?8}W>)p30
zWkkLR@}nIhH<TSCq;h?I)`V+K^SdnX!4>-G{!c9P<Eu8*5zS`xD8K|w67JN@FqaC2
z=hmNR5b;3!E^@R^0Lc)@;eZVHbi4+MFhP!~(SVPt&fXIT$lLsYlMa|SN4v!R9b-yx
za4R|R89cvCwS=i4W?vZy_2^yK8~#t2Ks`k&!fU010AA&4viF9HmB<^p<=dQ;P))+f
z*_2o~IPfqN%gYe}8-EVo$@T+Jp=z`12Jqnk{BsR2FCy}&m=62)!Oqg)-r;I(5vq5=
zGcuXXfzzRa09E+cg~Int&p9@`&4xq7PU~WiC`DZGD_D5`wG^K$A5Aox6FBTVRjnB=
zH>&X)G9Gik@g8TWKi@>Xhk6-`ijtNVMa|w6F`@rUyK!iJU<nXFlBO|;6lrW}Q68J0
zoO}lLBuzPr322ORv=7{Vh(DNvi2+70v**sz-#a#4ks6sLcH=c0B+r7gjYN;{rU7Y4
z&&Wvo^%pY}kK=yuH*0csHjqiub0XsUSRERq16q>~dv|SpU3R?2XLjb3Qbs*==sWrM
zu3E~cVS^Qjkc2h+!>&Z%3JeY~H@6ph8)0Xs>E=1?tvz7p;E3})dopC?IagU5|0RER
zMGDi^d-@Md;89JNA}%;8tGwfQy?fb4a!jI%If$~LQdIcxgGLGo#(krWi+H)xeVrAP
z3S?_PCNJ{Oc&#+X6a;3H@&3ehMa}1kZeE~nUg@9(Fl0Ed17)^`X+9u8K)QsF2|03r
z$P<o~l$2F(E;Uq?7ht0gEp5U<cV8~;Cu3kZD<B|%hH1d0=P@%kw;h`=s6A<boKH`-
zCYw9Zm9!wH2G};iH{4dJ2FJdVtiV1JwD?Z<yTF9m*Vp$C0v8m?ctiJ(6y!nzbn_HJ
z|HeRi1%G3|2QH_=DQl$ceW|0GxT}hoCsS~6?1!7K{16yS5HL{!Dl;<->9d{H@hAu?
zO+tX81!@Z@EQtkAZ$pdV2f-H#8V@<XK{PuNY%)B|+4I8hfA|7(@|ar&Ma&4Hzkv0U
zm#jqK#t#Xcn4TRoY>tJ-SZtv~iuXwuOp9NmrEkOAaf49HX(<7hl7pxul37j{FGt>U
zbMAIib2Az;S=-s+|2z)4G7Ri1y@kM^z-=JDg@$(8DPvXJ2iL>$_O1U(CY*_DF45;j
zYZ;2Dm&U4*3qW!LA>sxS*Iai>6m&9LRq@dD;C^GTbExTyQrgY=?nYBV7AYwvG_}R#
zyEiFE{8lCA`Sme(9B{UqiXU~5F*B0_0|FU)I)GG424b6LW@cxa-{}#!K^(+t<cpB*
zC!-Ls!C2YYaE8n6ln-~7iy$X~uy!lgn|B{}A27te*Zq`XK74m*Q%2#vNb?61e0+S=
z*xQ434ZC&ep4VKWCCZr@q`c{%hHCTR7RS7K!_(hi>Jr)5(15|f>2WbIidCaH*P8D*
zSLee!n0cNEYO$b^=Y<zx1#Da=ICT8gc#VM}f}>++gTHBQsVE={IuQ@s{5ZC+zkce2
z^DE!ZR6WA~p}N3oVen0?gr6&{oNXsIEfSBvF)XQG+Gh_e-hvu|gK21N3>z5-=7*7i
zqs@8i^_`_~bwkMXVKAcZYpL?PcdfmZmq#mU(R%mhx?SWI%dR@`7^oEK&f<dtfNxi|
zu9W6Tvx&@gHvY_1123w`b@|@=%uHE$N`#Wp7kezwQ(V(7UkAb-3cD)}#CuWiJ;CCV
zl8gTeF`6}>foFo5);mWpNy(+IQ0seaKmF}oa5^C*b|BS=jrpMdE))n$n=QCF1S&DG
zDb8R(N5E%Si8=LJ$jM?5N0cMO?=x6-<B&&dQB~I%li{KUH+uTOKSPCal<$Db2+k)v
zq*)(ad%HdzC7lktF7TxArQ?S0gHMpigvJ<c3!*s|CP5(KM1Ba(M1V1C4zjZQ-^_$U
zu-sv<Iy@^iBeb@Y$#hzhqF1K97;9R!j!=j9C&;$9A!6?yst4`w(99U^)5QcbUxUI=
zLo_#&V)|uIJp8(DL(&HEckbFc=jqFI{OT{nJZ>-?*T?W&Z*wLv+ZnGiYmG>{>AJ*I
zMA;Vdh$_T<gEQx|RZn{BF*HW~ug=^U)4}3LXgY%anoTe$!c%BS4RDMaBBDOl`$0K!
zz?iOrx5Z7{IPn>X-x(-+uo8i42$adH@8fwIUVT64tR2fh3udkwK-EQ~#2~E6lHpp3
z(4+P(B=lr~c+MU^w6HJ(F*VzugcHsH5EFt5hSZc4X4F=D)DbUR(2qvsxP`j_MVKN$
zvkA|hea=D%aHjzxS;6r3I2eey8vT*-P_eM=z>T+9O26cQ)}E;?)+c2k?Vxl6Y#Z*p
zi>;AcTO$TnJyb^0q1s_#K%9i;-KkJ035IET)w|f(=kMRMFOAnSqvsSkJv6Cw$p~c&
zWrZHB>VqgVA~#&WXO<)$mi<as@i|Orm{n2le{g*C$aPr%qwaNeb@gv!%wtU%oy&+R
z?KwUBlR9l1F>e9C(Cq*<Ai53!8e`q)p0*rN)P;wKJBB}R4;!?JF9-PXBs0Mub!|?W
zKv|jbQWsVA*)=3gtfj8LE8GyfB^iG3woscHAK^HSoH@S3tD;pQf!{aJd--z5axwv)
zfFA$h9!K_8%f<Jn*!2&us%g#=_mp2@ua$a<+ag7IPde(#l`E5znieL88=xO58n2in
zQtQ1*vp-A{4s8+w7=eueS$)vv%7X^n=YfHf@7%`fp*4g8muF*T#RlAp@q=1tj-b`)
z*N2EsDb#DjL~^;u(T{6-jGsa`>46l7*|4&b5;g{;mM~}|Ulh#IwFGZ3zkDpF_AZTx
z{e(>Th3h0x(OL$I%!!v%u2`x^r)Yxf7pQ0Kfv2gd+1k}rHduQlmfkP~Eo@Z%-dd~)
z9eFoq{{DSj5`nnL=}{>LQB;BZ|61??ww$~?IT;y7mJE1?!_t6|H=s9gXd9ug%$fwK
z$;Yr)e1Co!P3S^E!FA9*gvk1P;sh}v1SyRxk4Yj=X6u&D2wg~vQ0tS*R;MYBF(>mX
z+9L8RMsr&yGBfOYHNM$qJfH9xsXN8R=2nmbwvs`k1>6Ghc>(u_Coe{7waP62o=GHl
zpnLV1Vt=l)?9k*wH@3&eS7Ds5avCH_e}8ayf5`0LPDLs!BBMo6_t6%=#Etf5?h!F<
zSi1hVb+xtcdsw+k@_}w4iFYzju{BS*9CM?B*kirZxEGo4g)3zMJ&jPBj&b0LSxAmV
z?(5819Tsl@NW#Wg_kDa^4pd;7?ELu<P=8Qt3T?R&8Z`P7sG+IgfT4&8<VWL~V^HSs
zFeLZO3TE~qJ)t`Yg0_6?wICLHH(m>wlhM$;K$8K9za<=|aQ#LU9;(cCQusoeb2f10
zOuN^)6fq~{L+h~z2k)7Utt|z}pOHcC6m%D{`cLec-*l%W$jG?^e|hrcR2h)$NS!rA
zJRF=~=vi4^^4wjCpucJ@lc@y-U~g|P6$&EA@<f;k5Q=Wz`bd{xucNTu&!=B4SvfGX
zB7o32Yzef)h~zVG`E@-D5oWxnTP<)!LE#~iqI9}gYuKD%`orS%p3Ma<zlYB(=c0a$
z9-n1;L6^<TP4=EQ`+I*{uX4lXN7sHU^>dPo9E?vy`w;H<e$q{}tGi-*PQNR|%=&I+
zvi!2Vbw6LmO$KwpnJx+b$690E-K0?x8-$P{xw-_+sI9HdeW|Dgg9#uYEvq2AXMEa)
zbUhbX-iyrD%)p<To<@rr8c%}1{|0eiV(?&5EPPW{wY~oY=nBT~tBcynmpPvnN=2b@
zGt0iyS)cyTCtZ&r9Br*QMuGunl)z6o&oJ-zfNBx}D{H1bz8%Nx>MAM5mGa}@U`3d#
zhr4@hu0#MIsxHGqB2XgjS4PBs=gkiUeUkw34k~tNvkt?%6{Ljx#kmVFK<)neaOB}%
zhTO2qwD=7HUA6||#|uy0v!599{<(Mbs33;DjagyADiZtBzRiqs<D1mSE#xH4_h}$f
z#cT3(esOW}XG?AIO%08NT9&mVo!gM)QZiq`4y~!F;jctKRtOiJ^!#EpQHBW!_$!&G
zVw_%jn*;3hrm8$1J~!jIu}*yN5%N6Zx9v8}s_#v~+t5#VoeNVNfgViyPwk#(mskII
z#d1DX%@9xL_;IV?tTA3juXV?#89ysOZjasC)54T0oeKgD8k?lrQXFsp+8&S1&d<*m
zx1{oXBL9iB3SgEOaaq6O66fzfkzC)ajxZwAS$7s^gs5yzfo=|T5i~Rk34b==GQe#W
zfVi9~?N}T))+*#}DQ`AzC<M5QCcnUZc?LLp5?T(R#ySA;LZCULPy+U9%rxdC;SXO(
z6@3l3`;7RcOh!|O1|5+9`n><O>yTt|`tF9o>8wy0#r!jv6H)hBgc$Risagd-FnfDW
za(Nb|f0r#Rj(v^uB0|QP-8dxI>Tn<qTmSBco9bu~3nBmQTlz>E>DjYr&gQ;|<6W5r
zVoij^tV`ODUG4|I-10AMsoWTi#yEBrV<QdAFSw$GUn&xia?&^W6$|dRB`2wwx_ODO
zdGHnmK1d)sueQC;n<!^auN1H?#+>De%hhgSNi2TgXkV5|utg?u#K4p{;M*}NROm~h
z9orvm_2ta3QOV}(vAi#1`ms*#VhA4{c(lj(l8`ZGkH2wYU^?N*yLxZUMW380pxx%)
zO@i=aTiO-6V#KyglL&i^co~;DD%4@NzmZfr9B?x$2M5PEwrONxjma3PIUWZW7fzv%
zLG2Zr2)pB>>u)<1rB0`(rb3rZvVNfnAFI)?SHDFuM?o-y0gzY|=m|xTZpOS^Jbelw
zGdAT&Ud<5?$_Ku{(X_a(LBJjKtVX%=3lWG?1%uLKt}_+ZHXL0j2unJ6|M_7XMf2jJ
zP<>vwpC1M+7JzxcMKfBPa{+i@VHm}o?|2^pp%x?I!IC`}r$L<U9cqj>pqZ}hBPz^g
zIO|csI!!^Y$&tq2{E@q~V8h|%_m~5(kYQD^{#0QOncoA(-l{|~MSJH{x{%LY{W*)v
z0kiiHCo;^DiGmw}mX3Yv8{cl&GRayo4ik%34zWc^_`{k^0RRGRf?tOj?5NmsTRwH4
z*>-A-jK02p&bLdQd;Tn`fKySWtt&|^KsSG*+gn3Ttr1*q1}1@mu2od>9fkl99tKSx
zqXIufSP|-B4e*JuFzBoRK<g+1Cil8YeKacs1h(o<PF=)>>)5ULqcSFX2|UL6pzSmA
zaHlm5C~E$zI$w3a%q>es#>7N|*#ljkc)1&r$3SSYFyI?xr<-$ea<;ck|MVSToxk~&
z;G+9p!k6lyTJ!Ttpqi~H-9bF$GcWH)A^w&)gtyk>xqHY~?|8-SrvQowo%o|iG^^?#
zy@6frv;L@GN`I(=HrZ|nJ8FEGFo22hoAUAvbMt}|YMu&W3<PKiOuaZ4AxSC(IZy>f
z#Yw1_`=6eEahfNABo1qT9V1MJdHaO<lET^T!7V76j)Fijf)Rw8%g)Y@Y0clJhwekd
zC_a#6g_=e-1BF=qpYFeEp;9CVeF#m7`kivPJR5oc7xL=3EN-%2n2{sR<l8ny`t~pv
z=Y6!^vac!%V=tx<GQc=mY9Zju>|0Y^0LmfhMFXWFuA_k38KTVKHlIcxUZsy1K)}lb
zu!4utuX1-tJDllEH!iV=xJ%iodc{>UR+LmhLDj(;zktofvvoV!_uw%)js>6wAZrs)
zGoUTeAY_45(Fn$ch{)&G4h_@?0g{~#Q);L|zqzain*aiI!5~b4<aX!NvZWxMJzRuG
zbm=u)WT;hfp{<nNDmCYj0jL1=urA{dY94`Ey)2j)+?~_RAPv9HsyY(i{@ThpyMl$=
zEAD=@xjRjb+;^t9uA-e8Pi()w(uH)F{LrG8ZzRD@!TKj?1GI(jvos_pV6cw=nn6G4
z3LlNDhvrVeo4~R6)(VH^2i!)C(D2GY6vN-&|IFw-B%=~)-3-t<JJ^5^oT@<kqZKy+
zQmZT{hm8_gsI=4`wN*3r$>6!5cUb?6{Y5la<WvPNE{(^bKOV6lgney>KIi<Xf%G;R
zP=d?OhrpnOKxIa6(H_J?L0n1G$|-!*L4#~95BFP~RSmZdEBRO9<#6Am*+>s<8y{x|
zz|#a;2bx3Kk9j2_D=Yi@n(e*lU1~*gnlO%Wfld#06;#VZO_8_e1Ox=r0COEyFs<Cy
zr;$Hi-+l14l&FkGO7k#K?t*^tJwtG+OS5sr<=;6l#D`Pv4DXk{K$N#X@rULvP>7Ub
z$+ywgy!w5$L-37}b;=x>M6SH>IG=&nsrn-ZavhFy^dd6$_JWYEC4Knl5%oQ)JUFtD
z7?D8b56DPQfa-#BOI%qQNLTb^s?nlR=0B*Eq_({YNn&)E2jH8_moC`*UZBkYrhScE
zu_Wm$Fo^<Oo&h@s%{aiK2T@<vr4m~SrM@ia{O1lDq(vP`xCgm9c`ra652q8t22ZoI
z{3ZKK!vaYF^aU`Kf+}nPbM%b2@<G&ahd?B8oC0t-VjAAM4uRTmh)F@FgBbNXVHAVO
zdreki2N^Jj@u1Ysz&sPrzZ__G__d_hHP_X#2v7<kQ-E{D;=4?ix?-)Kh}{?i@QMcb
zKxpJ<q}q!XbgGyc{m#9g|Gj%g`Kd8a28%g#3ydRRr%eMIL<<0#$^~a*x~PTevg3N`
z6naLRL#ct!BZ5%U$^RvuKy5_zDmfU~L+yE<iZc$1)0&$q*;N4#)CaND=1flcpQrn`
zR|-j3Z}|@ioUL%W3XT2@MXIeR`G+PK!ST_kbYI>r!aw-8CkP7{^ak(hJ;6~^y46Nc
zeDC$u+wIp_Fk}*`IlB_!{qZ!z+RLYxv=QTv8Y=B?;4Xl8;Rn6kto7x^{T(8IKaktf
zVUwfFsMdQ55FCSn{ph?`qZ+=txEKZu`9a@DgTS5YgM~cz?Or|N(NEy=gI^zH@p<m?
za9MuU-aVD8K#W04Z-kG-z*GS30Zn?y?|RHcD;L@hUweCq>@E*mI*m7n(azc;2om(I
ztY2Va#Dj%Z3!Ab^M+QyHf?5ZYFdv$B{|=ULffV}K2>~+~4X{7}KqiDN=WI?Dz3i|(
z1%@c*^*Py0oZ4VYa?KDzrXRR97?%j+!uO2N9#)authnmd>-(T;W-RdcNtDdZeIl){
z2s30j*IEKAyUK`+I(6p>>Fw(I2dX1}N7C4Y8@0W?Lo$Y^cnMANI%*Jv0FyotMi9**
zB@n7E2!b9u?;#Nu2L=kOxqm`-I~hxMsL8o__<xo-OZn^ts{0AiMha_wmW?W{72+3S
z#5ygmxRjD*TR+EneE!<-rOpf`W+c0c`MH<}0dHc_sj(2d%<L#GQ?HlY@;FwNS#Z1m
zz5H+B@uILiNy3A|cIdO_$5n_yLBE)QW?62~@C@E9-JYlZZM?-{<D<t#p9D}#M)QHc
zrH}jADfzAPYjrWcXZx;L;FVsNuzt~)(f3O5tztsUho7Sawv8bbh)@W=%q)?ykisW4
zq;dp!wHdND=+yG1pIPiGbPz#D^(!<;8Z8wP9NZprmuL(up2mk-u7SqN#P9#{$8@Ou
zKj42p$0aA6CI7t!H+Yat<Z9}M^;tp>=H>e-6Q!X)9?f11_8T#%0y#_TvxY30{nYbg
zJkAjCpLi%>au^kq9k2KYG5_wBYrk=pl{H9Tz*$K_p<R=`ei1BgluUy%eK-BaKhpER
z^k*zZiYjoO^~-F|qZ9|tR73ECAodU3ga161?5$@5K)^Hy`2}=vNIA5?3GVsgV2(>b
zV7`nDmA1Cpk1kaI$3#>BK@dJ6tS&QjS0R`dCZnbf1Um|=_4ZLDq=!H?rju|NBw>;u
z3~NrmS@*wRjP1z5wPS)X&Zqm8W{^a=dHZ%V8pwnGiiH8ulmM01Ky+$B1!>5m@d&ZQ
z{O!LVnsHe-{rlh4)=DcyF-5@8_2kk1raMe_r9zL5j(!F<JqFr2GZ3vnm^iq2`Lf#I
zNw^>Xe&n77XT9&uHQP`;Vj32hk${Oz+3sXXER2JL1Kl+nI&eNa9NquBc<HM7w<xPT
zL=gIOP<8^Ld9gxy2JZEV?thDyt>vWR-w&M~MqnY@pbUHsW~1*5@&4zc$u%=|KM;+<
z)jj~b3C3BKp>`F)1Qh1wlQjzqi}=~K|1D44o1mYJAF{I0hzD9^VU%5995Dtj;?_HH
zYQV?}ckaCW*+}u<7uOLBWq0SJAqGhF914UvNM-vw=a?kuU<ghQN^vS=>F6SJ;WkYD
zbY$|ZHXiHx{#`*;HMHZKE?8x*9ed~S1FGI7C$Ge}+!+JSv)tq45~M5qS^m+i%!*ov
zSCA9&c6jXWcHW<<P6$cY=Z}(ASC6cE7au>@*Bt;38C}G;4U)zOoUc^IYP@#&6*QgO
zzQ8~fYy<xDVX*qZl{nnN7)1d;nm9yb5X*44Sil4MXV41bLr&s1bKk&V79@j=t|cpF
zM3<M|%U5gB^=C&^Kp(<?>9yi4eqT&^MwB$_w3@@i)AQ@7`5khw_B%qzlWTL^tV9}Y
zuHm%$Fs`@gwB%@?=9$h$qRI^~*A{rZHMMpttgAspvSjVELiW40%ITNdrQhU22F%kl
z9&$w`zKjdb;t7)YeLxE!TTBdoE?i;i(c)JGIw9&yqZ52qzq6xR>ot2JLkC&3``3)?
zaSJZD=*q!=Dw|2EPUMy&VI3i$I5QZ8GPFyfj{bTOLwMv^P-W2V>DtmCU2po5vT9{7
zAoHpoLepw~+z5dNr^@+fAPQ1eL1gnOt@O)NA&@#9JIv8D?}$(<s)~SsVtTZ<j>fWp
zv@dC!0D9A5W&b~$RU;bL4uTrsP!uTW-CFzK9*H9hyY=4<Lteq1WwAC^<71d3`k#XV
zI<hR>pyT7?xX^(A{g9!F;vBj)k$>&ar=c)>_TR_#X54?u=szzU{npGs;orY#WDT=b
zU{mSC5W7c^+|x^9V&_4xQUs8PQf-)_*5{=G!Un?C*Q!P~M={7X|MRP@d?D$<KzGsr
zGX?HM0PqK+`ocAvR>ZB6U4@XCSRTf}VQX1?mkfrZ!-9#H$+D19LJd8Lf1=ama4}yz
zw{!0vSHAt9>FqkqDB(^9gu4-P6hXAc?)8d2)O`@OgNuL((2^0eY@S%De)PbgClkh^
zZ@s;Cj@f$+3)G$m!ij509S-RwVf+eRm2qh}2XU9tsTlZTiTIAau8m8pn16q8RdX~%
z;kIIw#?Jrpt@qW$TY)iO{8`X6>YsrkwtvqQe$_VT;^NBiIot`3it2Xr0>DN=K~d<j
zX@RK&jzG@9V3aE~a(hgyoQs>A2%31q9<n~Y4ud`wmx|L9Z+$SE=6H0;=Mw_864k39
zMmbPoNowpdOYIHWpS{0XDUc+jx)5ZP#lFh?NQJ7I_0-}E@qZSX5W_<MN$z`iz{48i
zY@gJfr)T2auE^X;aI*@8+j1*e;{5G5BC<Dc2Fvd*qoYz_1*jmeIMW~$a3_bM@{3Lk
zJBs+$*Vkb@fFoYOBoeT7V@C(^zXH+05fRNGNHMHb3d5)!n%)H$s0iYZ8<6eMM~lX2
zo}Pda<Wm_kF7hD%+NC<=G%9jsgSgBQG;$CLP@oQds2=cF370n!nX4Q<D}$_kB(*&*
zy5phqu_GB$-j-mvPJ#{K$0EA(2@aw~cX9;y*rs6L{uwOElHaYhpTvfYAan)Po`sXs
zdI(YLJ9)Z%=(S6FZrNv#x2tFL6iQiB!;m)W7H4ZsYlNWtJnr=+m4QtSiEqbc7bMGk
z0=Rq+5R&S0yN0cd+Q}t!raUT`2h*1HB59BG42Rq7vDo#OPLDVhjy-6VEyjU~U}0cL
z_F>M-IOJ3@b%4qkYF42#V`1LiIF<I=WgK@dJtaMgdw*MbNb8bm2M-I2ysJSvwqCqm
zo}Ztn41cJvqU=Lj?X`BikGy!liS_WP5b~GYU&t<%-1)G?Ezg&k>6LjtW%Dqj*87%K
zjK$T*Guz%02P`vAQu9^PY>UTYDNanqH&?{vV%Wh3fq&jUk~-eH3x5D!TJc>NlGMPQ
zQ{iK0>*mvo(4RxQCB(cZq2*s&lyI6mi<&TiY|)e}D3DE0kYehJ(*J}B3aVegfX0x~
zJbYA?iJ&_K!nEj6CmL~tY3oOtD*);5<n=<D8w>OM(|yA+C206SYuX;=M>OBl*C&Mk
z1)>2q-`jOGz6Z}mb8Dla{f0>)mheR|@B_G$T+hiK#amifAnB@cJcMV?G(h^FHy$qj
zEM(OyDk{*gLP5X413myGWw2q{*-4nCY_2F>#4UR|8Vc}?0s4x39FGnftVO?}z|~I2
zZAZfS;aOwlZcQ)%L6Mk_(=(QZvk!9!sIU$DXrkXFzc$Ll?Cr7x2dCRO@pmNZ5Z-wW
zGU};NRp7MO!B+wB?HEF_9fL1;5G#Z6S5`5xijif<ovV+S?pj;(pi2l*PO!bu9S7es
zV4mob<Z)`hJFvLz$!k!I3u3UpQU*FSA$7DSAI3D<*XNLRyMTO#7R<|L%M>3@_+;FW
z>$&vd7Lv#csmzOK@dFH9I5{{%z~u}{F!oeIGni(ONkD_nQy@vZ_K%iWM*Zn8NExjK
zG*`*+R=|6+^E#`Plrc=1g+USC7iY*)iD4HO7KZWk7tmFATtxX{enDf#+#d38CPC8)
zV0z7L`mLz%@9%GjK_&5Kj6_Tz)BhgI6)i0B`vQ3f6$giPlN5seeKS?Z7<c=|1l?1n
zp|wnXpPm!T8iBL)A~(_Z1DWUW{V_NN`<s8DXiA0DGXnmQBG}m2fEQH*-<5|s;NwSL
zlc3FVJxB9rm&7-{E0AVdCE^FX>n>m92rmMV!o&1bBVKNAAAx|tg9!%5c8HgfmX-?>
z3<k!H-V=b4xEM|N5(XF<eRr?lO5_ZtVXS){4jeJY3^+DTHz+$j5Q+2fd4fQ4>(S5!
zNzc!tE`V8i`=Z%Zz?kZ?@PLtT*g3ojkaH?BJcV#5SHf~nMi7Ptu7Ga{VF31vVFAKx
z>r{(=0|T}nYG50#$J2&Y8igpwu&=kWMG<1mdeRkXI>5a_0X8nC2vX|8%U7*`-!$&l
zeGAGGUx~4bN(dCi%1#$3PYMw7Ox!jSBVAs8V%goZ(GGIo@LZ9D%iE4=)mtl7w1n&Z
z4yUWgDRMbhHM7^16s{0HE~f~6MDOf4a$4Q%df(@EqS?VxN%wQr%;K*r5H08JbC^4B
zd}nT=uYU<<G#<NDgM->Sd<e3Q;m3LPw_`KwOjWS?&@V~&0RUe^&!=A;1d11=%#kQ$
z2IvQ}t|(Li8h)c-$hr?z|3pmHjE$L4p8<B>Md(W9Pe;+v{=dIYsO=S(`P}zJLHY>Y
zep)$j@Q02mbw7y%{)pc7cHR-)89f@Eb4<g;CrO1eB1W6WcNDa92uE+zZAOXf_PsnO
zzjAUWvQ-GcI2H!>O{I<oxTaVb2tPPkS3{^3gIszixC9@deE4$DE3}OQ&dxxsey<%~
zFag+A{NXERpmz$voQH6u4m&3&dMBWUpaX4=PEHq9DBx-Q##QL3YV3I~clcX$5C!FI
zFttWSOAD6a%-ozAR36Cp{OQZTaOTVz45}gfkzqSHAPyKm7(pVuI8%%2ts}NxFlmB?
zfkar*R|x?DQlK&Nz<tG?|4issQFq3<Q=P#>^%@AhqTh!AiPG2v5IRU<@Ja^0zrtq6
z7~c;POw%D;$udwY*j3~-HOWtaRbpWvCE*9+xPB}G*`1f*OaqZ+Kmfjg>jF7>h`P&w
zwP8QgN{$LgkA@s(B|f(dI(<gnjS`D<u&ZZOir^y`LG&Mr4{%`pC20*CCy$Ykw)?35
zgT4WzFd-#aRV5KlfAtIo9sEjz-T9~s{WcjK464+X_7_(c<j|UUlcS>q==X2nsl?nd
zG71OH36h$Sm;lgU@$t$k^UBgZgr%myZ3kpb4oS0f0ri-F%{EN#jw3BV(DFaccbG3y
zX;_9s5VWHjTQ;(zqk|HF8zrC!Gmv=FzkJcZ8N-gwa|5sA1Ju=FbZq~546@$ApkRd{
zaMX!mB#~W(;$FV)(r~%P)6Kksn&Ph~kfBiY_O9y8lROEQboYspbRTVDs%m1YS~;xT
znixGD=6EaVwtD2XacHL)a={JHgWhZHYmlUS+xdg<DU1u%PYy2cAG4VR@jfS;g84%#
zOcRK(RwdzVlJ4c8M`O?pBg%+0zN_W{P|AmvWH7Zj;1pUoNxFG1A0LjN(qNjP{xgIM
zad9a>?dVzUhsr6Jqa6wZ!J69I4@<vurFgUMGKlm;q(ZowZ}njwSC(->!X^<O9^Ruq
z_%fb23=8^YBvH+V<Z%5V%7hnTLJEpnfwAQO$JcwnW7+oq<CoG_DYJo;5Hd>H5mHpB
zM3E6G5kj_{Dy2zCNOpEc1KCLuvP#I#sF1y7{NG3Sb3fnj|Mz>neqQ%e_j7l3jq^Ir
z<M@2u>w`kGxYVEGTS7x+%Z=|fx$Z*mo^MeHRwc=mL5q2U?$m@62n7GC2V_I|B#j-;
zcI_whnx}>ACS;l4P2@XtZ%&7iN^X${yS%$wu<5`hy94jL5;$|~@<n>CNN4F-18sl}
z(6sFRhYu@h9WXqyR^`~O2{9&Y@$;0)->;~ul{8~Cq^6IhM&{4@<e6A!_bI^%+@mk-
z$%u@OBsZaf--UhVA+0~Kxu9ft#I<Uo{Yn#LT}I*?hpUy=o&}@@TI7~uqyn^K*en*q
z^od&!h^Nd+Yuq~|t_<)QGNo36-duTe5pY~6u##lgd~HmpEG#EFmb~3?7JY(1f?SXH
zByV{wYp0ot?h-H*0Rf_2(x>;u%_<s@umc*P>gRgn#IZxW4EJ$d{Z-tpzJ7k!4{|!w
z|CKKrL+9cIMZIQ$`&B4l7J)vu6U>(>e*d24(PCp)F^7_b=261w$^gHPgIOqrlXJfx
z4=IjOZEKhR^**RksV-^?3LedU)s2#&q+6i1-()k0XC7|su#$yhqKK$PH%V9-;j{k@
z_%Omgf#M;p2`b80$@3~)``jdHTd<uL7Z=k!pdF^sZZT}Q4*T7s({ZS2*ms|2@c6u9
zbp<8m%GuaiCS|UHcS?6k-mCfBkGpqEnc%-a^&<;;B3JtARx9*4b=SFQg;W-`QJJ|-
z<xHswP&VpbZ55xGhFm6D*wHI*E*JJm+FRT^cZr+kbZg>C!K`I3;u^>H`ds)4`jk(;
zvb=os%D5v7H~n8b0Z^RF!BjWA7EWU|2kB@qOO2Z~#p-!`GJdS8nlx)c#jG`)!XiC6
zJ*Q{TeW;Pq*Kvo|Sr*;=s36{qJ9qEeCWV0#TdWYQSI_YkG9OazeXOV`hOTeuyBAj!
zmL|;uip3~2M7G9-Oax)YC(50l=^J^bS+FplQ*noiJhI~aiCrJo#jePLO59ki#&<e=
zN1@}y@6!^QAN?*)(Vf^;&$DOG$^4u7Q1J%v8d%7#(=ayPN_+;yPX$K<7QZae>_Xe7
zy>s3LC!m?e6<$I+bXYJi!a}X`iS5d|pvvy(gFC%!Y$mX$2G}w4w>ZK&tk73SC9h*;
z<sH=f^2`e+Fp*c@GEHZWi8){Iamzjd)|fVH&)ugUJE@VZZ84n7SNR>!eEMoWt}x9b
zDr&21$hkn7l6kI$DX$8b{?*$%lT7*;eE6IyN^XdS_jo@I^!MN9lWNi5yPie@1ZbCG
zGx5o=od2+ynYpVb8*845@7QqDPW~lNtMh>?I>*fi>{8s!zO20aUMkj8*~lnDZ#<~Z
zG4lkBKJ;*(Unfx<I6O&0MDr_0$jgMc=RZ$Ct)F6$cNdXf9ng_{fP7OE8;tYjk1~V5
zKYjd2qrn;`w<hzf8cofQKF`2<yy{9|Twacxe$Df9r*|WZs2!9!Ytzf~74UjOyDWGz
zx6Wy67|7RqJY5#4c|SCp5c#q<FnGOHtk?-qkaV;5zC{~PXp~_04s>n}9<AoosU)!r
zY>2RX3$UB;Tg<Gi(yy&su%7*s?{A_|QPWQK=UEu5-F8hpYMu0udn54;(_$90x4p3`
z`f{{+&!;xGOL>w<bdEx!B7y6aJ);??&Jm(NLf4LPk#`Uni9v5fV9rx%Ms%pxi@!_Z
zu5)|taQj2T$oRYdwh1U2HOks&G;i&-NxQsU%XjU`OA2dNu358`qQP#F*(;W8Eh6@V
zY~Um?f~H2*OUbMV$va1+YcFiO)le{Wg2*9S76K;Xn2Nxuz*?~SsNC2QRq=yCE)B{0
zId#TS+bk%g|2dlHltpXucQsWM%uVRgVjKgWxQyxcb@!AzB@Zjh!oLiHEOK^%TZy_Q
zdByi_E01mLv(SW+$Q?DNWiqEso-8ld)o{L0spR@p?w|;&m<_wnZ-KlPdy6taFxlY%
z#zoShl|Qlvtgy9faT@Zh5p1$3dmlP?sWBGOQ6Z+!w~q^sG`Q$`#0lcM^Ae#J_6B26
z6Qo~%rt1IK{LRZt0o<GjdHpqg*6Q5Gj(4s5#I_s4b%Kf(YPsF0p<s1iMH`vgoe|^{
z;ujVMVciwN77^VX+CeaO`rbw2InkLx1)>1&>d&7VXC8f)&7<nhCT}#oB=60e29eCd
z`cDN@HVZAG18y9_1N7V_(|`Itjw!VlZWN;$Z2C03>Q<aw5)sTB_4!h2&+enkzxxNF
z^O=1UA0PkuH`~GB@S>$R3I{uu2~pLotgP8Bhrb*X2q?4qd8>eLNo~4;V(Hf&#t+6h
z+rOq8JQr6Ie{I#W5jd#g`SY<A20GrNa}k;L7CADXI(IGTo3!4jFcLjA_W((C3ATM}
zVf0slqN6(Y=q6GcffoG$skxZlk0V54M)N>01sx6O+nMvfb@duEt=G~>3K8T}UDeWI
z;^#gx5}6wukEAaqE(S<>J3v;wY#jYuKipc{;)Jr2us^hzBDPOKVvF@ME)^0!-_w&m
zr!P#_nflz@QXn0w&UuSRT6!a`8VLrp7?XBjyS3(5q0XkKAyBmLe2Di`uL((4Z}ft6
zG^j3(#FXRjB*ew;32QvBQQVa<xkw}FQtA#Sjm>}H#?sSgOWQZ_QpVCHq=YFK;TfhW
zQM|moTgAj`BFDdtj*7(2nOWbaAN5QD&}zj8@5?*%5f4K{A3!}JZfQQp`W$Q`*^r^J
zQ$kz<s@uDF?_LJ7LZDm-yx(C_mCey!9$bFxyim~HbMq$Zsr9bumKy#%r6QdY3u19!
zdS-1m2`~-FCmzvxG<Rp(aUJE(k)EQ<VVS61a_3T0CcA*9wEhtFut7z$cXf5|>b>PN
z*E0)N1<i);^SQ5L67$Bg`t%RgUO&I}sT?=nzI~e`TDXe8R!p;=T9z%(y8qF$$NDLs
zw}_sn*ILJMl`+&F95+cXybK3bNWtmNHVEFKQLC^1R7EUOAXkWE<1v0_XkV8Q6$Vb9
zGLz^hXaFcujjCtXM;}~Ei;=55@{bS$>_7Q3flLPI`CL4niXOCsNF^cu>buMU-hrm(
z|ERLr)>;_s01$-|)b=(#pSKGc=5MBnLR;xmqPMOYb=@^YmTi%d*+f*Zs09cZUYn$|
z7C>&X{KB+G4wI;F-guoJ@=L6P^+t%_o<>yYkUP>Ta4MdI|MAd~BSLn$r~|tV-uuW+
z1o;p8vTl#c`1UnOpf~TWe!k1mfXVsql`kYh1BqV+iA#Ft-@QX|f7)NbkDEeT0b)Py
z0y`)@{|)Z_v4NINKuB&JPw-TX^Z*<I{Igr)Jqokwy^KJ5M}(Jn*c{c1K6}b@c0pzZ
z?W#%d_u<CzJoXLiPO6keNH4dNT-7Tby^ir4M`Bu?=1FJTH8GJb@int*0nJP1pJX++
zv|7fFhaMf`<>P}>gtCE14vDk34qWg>-w)sWF?C+TRh&KhST6kFeRet;yY!WK+2@fw
zszggI?TBLa*B#>fKZVRn!m4K-RrMqKZIUTNn^y~>i&^0h#cmr-jn7lBz&)=yq`^$Q
z1C@-^VBVyVm5<N;`|lwor#+f@WROESBp0(615}1RxCsB1l#BPKj>tvoJU{ilZfHa7
z*^SuX?!i;^=$o+Jz<Y}-6i(fD9zD&{{Gl#O@;RWhs|IQB%thp~IBphcK5-Hh&S?2E
zkMn?(lwF+(UwTNg4+Gb}%?cMql>HHCL~^HSYK9sV(F9q`0G+(<#yJ5a*3l=Y)^v9K
zc0ScQZ~J5Op1cY4cem00ePpA@0Sb-Gqg_m6!FCsbMDg+Jw5<|2ejqQl>_qDyFPT4C
z*o?r+Zy9rugOi&Mkm?G><!I~BFo7U{zE-{q%|5Bek;pcACBQLR;3S2Dq=hG;r$TPa
zmbb~RIf~1XP0EE*K?!vw$;J&_R*(XdKd=eXVLp|o4Dy$}KdlyXymeWtQR@k5aq-$D
zOV{g+ikx+%{-0jov-XqM7)0Rijtl}fW@p`|mAw884rrY@BQ)6z18Db}2g;_whN9zO
zJ>ZL_3b<;QuPW*AayeTOu&TkWf4%J$N?+WH(O^lHgw?fy^j_Vg^D}-uGPe~Yhf2jn
z2V+oo{c!wwt;X#2FB{|D<Zg{mZ8-px^BfqO`$fM`G7H3SmDbKam$C;c5>c8F@b|s0
z4${U*kfwRSSX!MhuBN7zW>mQ7o@el$e)N$g=xLArm<Hp>g1Z8}6(3Sm_0ET)H`Bde
zXl{#8%3R!ndz&m^stKMGvuqTHs%$Y<*n%j^iln|^KU-eH6af1mhDNM`#`CVYVKb)|
zR*B>iKXUG5t1DT35yulEv;>GQCC)|pNg3ipC}xF=BjpBzE;^m*2bX`hwFOjwR`M3{
zVBtK6<S?}O&oLZUBpLNAx+L~}Zf|6JnnTH|M2t;4k;K3H-Qw7G01pxh!||~JPfNb?
z)BPKo(G@xiowG|Jhl8CrmIn*DDrh!L?AdQ(Q8!Sbk1D@fW|V{mow+I!Z^knGL_otC
zEj;HRM0+nnBPWRM@C5HQlv*aTlg)NhzoLDF!W=V?rmokzXliPD2L}RV7$P{1zwW|X
zW+weRI4R-GZK{4jGL9((A|!-=MaI+NuR4b0@h=d-kl8o#7{T5uRBIb_%Om!Z>i#^c
z=gytG4f%*~XlQ@m<uh<Wg?}s|2^RTlN<{Elr9bIfLPthNyX_R>z5uo?5V!3*L|&X2
z*bKco{5m>}r#JHp2>69dsQJC|4Hv9D-@>|~_<)1?P#(|_^4dfa5dJzmD2Sip)X%al
zruf9(D5chy|5PwA2um%pDFtfLZSoMQdVQDU{mdapqHVzm{aly}yAW*)v`iQ6ovo}=
zXj^dB4_;~V<GHhnP53tAU9^a*0{!w`v?{224nV$9yfD|ca0f;L0Fjn;zTx2_1mHyP
z!>1(>U<Rqj)DTs)_NICq6Uqu;22k+qtlJ?h%nDUB%fd{30nw}i#v{oaq$@JUb|3ZZ
z+57XZ2fa71`}=@UX?yYjQ2b0Hd1HQ1#-vr)1J>e4BS^r$9eAbXYuB=Y%_imw=rfCZ
zCpaW8E65JNXNofaN+m9ek+^po-;laNE6zAN1=u(nn~IIw-(DM;f$-U(JbPnm-YJNc
zL}<5hK6o`c@NtH!^FhVUL%Yr8K2>P054-bg^RH?&MgSt|r_Sq20QLZtr%UiCwC`%*
z8ER1Cys&QD7b3RtfeHzFu0hI4WQ`f6eED)3fj_aE2UIkB2>y)RR?<>qr<GbyHr?Am
zDwoF`-(e1<1#qM=vPO1bskyZ}*#Z$&Kav7O^sIAp@`hdKZqv5lNWNe{jY{Qrn4O~J
z!V>|JSe(58eNokF2L|F89C%T0o^A{>vLpY`0Fyv~8ii(G5hmsn%q%Q-767;{@|c1H
zXJ?&F=27co%M15g3kq`6qnx7$fJL08z`ab%+$O$VAih)JpXW!_beu_`GZ*q{Rd9q4
zSIP`Jor}squoJHK5;#$d<>!ajX7-KV0!={z5osRClZ`~%oWJ@brK-5xd2cmZCg<6W
z)Cicmvc(|<*e)DO0=M=7_wUyG`248ieu@G#G;%87WTMt^<9lU_kAQH1_Q-YuTn{L{
z_~;!)C=(66`J|nOjKE_;OL@9~TDxZ7RQqDW3erg4q4=eS>OQeIu%&%`<*{tZ5{g?^
zwz*`Tlr>@^N0LVcwVyw{P{6wj0g${%;^ji1Mj?oePy-6@n>b>JA@u#|ue&bz(~~``
z2!9HBR_MU@eoM$rKj3Ke_4n^|bPR16`F0_k8y|mRZjidlvC`M@P5I#d#Aeiqfb!^Q
zK#l}o<-U2tPT`6zZlB$GK;fd|WhAjS<he@dW?J>X=(5t)-G~qZ+S}w6YyV+WFWvF+
zIf#``cHlU^K2}8|l<4vLIT^B%jJ{dGm?Cgp2||>rlqEPf8ouxz4l!Z|G4xXGVhd_d
z?m`i;?55&1+>sD9>T>D~Pf-0$&<1Wq%pOj-=iYWXc0bk02Zwf1<khD~&0tUd<{F{D
zl6=}+0h9urvNzWG=_9nbe^i{r%||1dD7A?v%L6KSxw68-@1+M;ovlfTo|<h|efF%)
z(>HXM5ZdwUk0)r69+Ws75pXV(PFW#W!m9brHK=@Tf13(KKYK<GKVC7UF26>a#k+E`
zr|~nd#6MDjmtkGxI(VRqOLA0gyH1Q63o+l5?*Kc>3)C0)x>3moiC^^lYQJ6eIu6L7
zny+0X^A1=fjfO1S44K>_NMO&2$$By_LR0h7wTUvv6Zk%SXyn)wKl1TQkLcuk?%y+`
zF2SbuMO#H<^e?==o7i*X<KHjf5^)lWA~zlgcH{RI1veRqehrd4J8XRs*SGOd%z!7Z
zq+Yf)R8XLCy8agX-SA>DG#@y7l>l<Paj^Ot4mn+)M7ZbU66y+}w5T72X7ijRIf|S&
zVD=SkZFhlhs)i4hl%lX<+-@ooSkC>M^OcNz16+_`j*s*3@ex%&%3+vbiS?A2kO->=
zNd0Gky1Z{{{n^^E@XK=Y^}Qo)t44-C<QqP0h*>6Gdw<yW%3tY129g00piC7f*ke&z
z|KUyagb|M@LJht4cLmCZwd?1*NsYPWmG|u~w9rS$FQFBIYfI;<13ImFbwMMk9P94}
z8r?UWHSiv0CI@}y=l<lJS$1*_SE#J<?ko%AhdjBiPF!_k1It$PUHV5SktmMyxvP)y
z_Qw*u2xZxlo&J@Z?g$Wn;QnxS@072{6~&gR;iahD{gGezorZ+_jYSI15?i`^)zZdi
zOl4c*gC!JU$NJ}InUidxD>^T)vY5EI&h&bNqRck;dq5w)L%gZ1K=Y#K9f^(JaIu@$
zp@Kubp!B~Qjbqz8UQs=YxX15+%OnTP)Q=GBAy9v|jCNZ^fT!x1Isf}AiKq4*9$FN0
zqX{AdFPaBZk2pzjB2vVi-KQLX<Ec<pq}D&TDF9ifa9$_62oT64o!Arp2s1|IXePx!
zQ4g@@u-8~};J?u^DMMSFuh+XZw_udOH!oktmaE1^+p1rjzprHaRe+_VPa?71zdDSa
zT45<8C9YM}pv|GVji+|ie}yZ)(QaYwd$=4YuPx(*=UUk@E~r}6?Q`<ljVj8z`kWgX
zZ+klEH@N;QLy2F%lE2`#9gnJQ{1FF-z3AHSLmzj*y>(V>owG(>+H$vHpOUo6AA^!X
zkMCZwTqjO<?M;EM{TP+fMDyKWn7_vN-%t1)%UA;SnM+=4&p7Fy=oT+^LbQ$T!{d<(
znY!cE$=Y(*b^fk2{IX_bnsGIbY3wQ`sO}=PW@P^-p<-*nca-E1X(5pRwVn!M=m8TF
z&n3yZLouP@wSE7;PozAS`E!_l5M^b1kH9|?8S<7suJpd6;NP0Hf#T$fDtyYg=;qCv
zNP{F<S}M`k6eHt5^7dH2Hxu6~AyIG9&%(x5?z3v;N>b&dXUJ8UiO-nMg5ewKM7dtj
zywnh-SgyjeKmXGE?w{ry9oH*<^cfu)nab*0L{S{U;foI(IKUciJ^$|YYCoRoE_S4X
zPTN>fRw;&I%Xk4jiFDTYjgNGK6S_B=y>-dbrCV{(2wIY_&iO7t2TbZ9gK1vCjf?F2
zTH|+nVvgTIFVz9S{4J13Mh=eto*zBd$_ZK+?D5f}ANT9D4UkQprU`m(dIWyc6e2aJ
z^k)@%#3Y7GOf)y($eX4PicYq*sHWEAfTPiB&C`qf?mqqLle!I55nl-+!x<ShBkM;6
zJ$v4HrtYiyWGG>t-Z)sfSk<rVUM#*K{68FqRXQbaXa8)$TlFm%YLIY8<NyS$+klRo
z-+*2d=}siBAIiu=xaCA$CoW-Hj*9@p%%)=$KQme%1B<HJ5)G*G$a@{7Pd%P6mNRwj
z^RpCH6g!4iH&Q{eOuyTRcbX6pp`bprblEb!+?0=EKkjU&+&C_#>mnaUJ89ke^&OqJ
z&;0BkT*UiBbr^z*0-3caexA1PX*uxI`V&(!Ab9tzzjCbB4qy5~)H>8UgeF519(cMA
zr9UbFZb%x@+P-?zKaAwlcZfhCZy(UD(^lqxZ|$v7Ik%c7Eg^M#ZQa(oHR}&{fesv<
z$h5+t@d1RI&CJ+EC^N8ME<vN?SB`_43BaenE9d_x%6v_l)rTl`*a#8gNuy~c>#`s^
z@h!+cWC}#@V#>i8hU$Y6JI6jUp9QOX5e*d#NfmHZ`kw%p?4&mV?G>e^g&1PewZH|Q
z6Y3)yvli4^9e|rh76LI{0(7P0{|b%y`*-HBoT%;+5d3zMSr*4Z<Uq4^bbbLZ)V$(<
zvTJ^&bZB39#5Eb|#BQFgRdRdXwyqL1A+~(~xhJ#lp=TzdGnC<`j~_rYk7dyzg7Gr2
z>6HKy_X07au>9;RD{gucjEGgMdxUj>!O>)hdc5!Ij6$+@CmKPk`mfL!U?XqNwl81o
z>#T12;NI<zOwDRTxS~4l&4>;S?2XsUOqq3pN@?KVI2uP^GVq8b%fS;-CbXNKp}KFJ
zl|r^0aO0ACL+SyJ^C(Dl2)W*;&Cd*^m>aVfu91U?Vh+y{bGo-<uZF0lo#~0wod9g;
zGuP*4TDLvsLZVS%FB~Y3xGtPK_lD^|Av9V0%Z?l@O|j%RC|K0URbS-Pzg}~NOOUP!
zXgVx}DAZJ>RjIHA*x|*v=r5oEo|u%tG!HTY2LH>dum==*U)rAPB^er*v)EE|#Gt$j
zC`qQbK6NT+w!ujBjh5H6*EuJrH!}Z;@bSg?A-a`;pOh=(<20vAFEOW{z7<u)w#D&t
z!NbW)e)fgjAAOAF#GK>{SQ)zc{gIjtLUCI2<F9lgHMbz=4@p*U5!|<$1`O<VR*GWe
zTMETL!Gi8_uMF*0XJ}1BIk%jfk%_7E3zUr?_gHOr%DK|BRbKt*QTv27qr=wt{<_rv
zlQ7oBbL^ByZl>XZ(gChyVTm)6H**t2ik!xy0=K=Y5<fdh0J*?A3VkW@>l<b?$<%8N
zz|d@)z@hQ}GH#Lk8>u~i<NqK^BoztCc>7pZ_ENXiOxzffe4uzDaAGWdpaPqh?pfqA
z5@}%Y$i#<s``0N*HNiLnQrFNla~v%1z3{^L0^Y!{ed7)JS7nHpkJ#l=PNB*pVSi-q
zR?Z)M;Pa3*fImBc`hogCMMh@MoH9&o*vD)I3oZ6NoWlliCeZ{1nReel1w_<covCRz
zcB(*khHF!i*zJz3T~*Yocpj4=a+3qeB?8EG7-|%0iNvTa$XopfIX{0h!=8_up1AkG
z>2_cS6Uhajz)q7maDrqbV+mP6w~M7=5GC9v5^aZ&Bg+l66K4m>{34wR>>;^Fj2r6M
zb1Umi4ZLs!vb#38?aD%8Q#9NtB!qzA86eFF=wj$Lyo3bWgI{TA=8JuC1^0vxAlb8!
zZx9m=1r(Y{Bv9ot1H%=5b=CX*0p+e#+;kA0pK_nY9?_KRVs_ZdN*MgI&;kY9#(!@;
z^@mn5ikXuayviSMo{G7?%@#?usGI?52-m+LYD@)Oi=DSL(_*QGd77-en3J=ZknZc{
z5LO*TyAMkjbszOQc8})fGeY{=%(!Xs$(8o+zm{7G)6)xT!JXJ)P-&s*zrmvlNh}ep
z;38T(9$IBrSxe|ptXIU`M2ra=etA=*xSV)vZ1dnEdW((h;p4|k^9)3+QM89Zo%ZnI
zLyvoG{gdnzq;kWcQK?QyFR^cfK0bwkCN$C^A(qWX8u3F^xAt|Ybh3YaiCarkz>p}s
z4OT9p33R@Z8sYo+g@oueXRg&@Tl(+T%J)knR#IpFeIy|kz19SLz-3+)SHDw0;2ja@
zqfK2)!+X#ikjCaiPuna@IaT*eoOuu#5kbQ)#)}kXf*KP2eqmvuCO<Q3mACM84FlSV
zh>u^6^r7_JR*1srXyNWNJN{Gf;Gm#ivLq4<8vv3pEW^E;Pg815)wG%pKS6qQ2(b|W
zSLK8o=ws6u%GC~ZOEelTcr9ghsY-T~VIRbGB(oBt0lY4e@srpV+FO+8q2Abp4YTGd
zGte=?%CMN`%_Z-R+ky-&;oq_2g|0!|m$RtG;&oEPW+OLa`U{HV>`i215q_lhmzBj=
zkFa#Z#YgjKXlSr4U$bfN5l-uqu(U_lP(~OgKvYJVRvhrU>sxWeRvt>>b<)3c7M4VO
zG0;h>KuP=6CETTV2kk9xovxopm|{X@oj=E%s&IZOe9-=P!#Y~o{TSD{f4F+LGbT8o
z4|wFTkRuh-FO+cuBIN*`_6;!Rkd<_RG$(WB;Pt2OVC6lPv{9UYxC<0mLyn_}d2Rf6
zD}Hxwc>2&@y)C@44EWjucq<~&J`r6L5TY;RE4UHacZ1j`pwlEl{<x8<Vg4gF_U;cO
zNWSX;?S<`XGcbu`=sig&6()J@M@Z<U6hI#afI!-;s5uZBWTM&6vAut<m#-tgV$oBf
z)P#sbPfecO78DRDiyW!@5Xgb=1l{=0>KW`Bn1v>3^R94ti%(&#s{`VBM?7sEcg<z&
zbDelT+l&-IQS(}U!Zr~DENR0);YI??RG%~$Kd0{~jaz8n!mJ%86jB@*Zg)*R?o~r9
zZptS80_?Ne;S%Hg!U6)eg8Oh2bU0jRqXA)ffUK6)@awCf-}Lw_(G5%h65?-XQb|$*
zvd}TgX7G-vKpwHc;2p897=Vkb9R_7W?-6w|<mGX_ve@9<^n9dTcc(1^g2+jsO40r?
z4G{Bpa~2cML}kF}q`lrVEad5d&8=zavLrrIcqKM3deS_2Zu&6`^Bp@>vmT#w_LskM
zo3<qrl0aQFpsUzOX2TE!h2(Jq94zPXud7vech5gOoV{KN_=v~nHiz!H{M`$d_?&x?
zZb7lY@j8W#V0g4D#zY9#MicblPEdRjJ)~F1#5w&Rtyd@Yu|F4mw|x0Qd)bbIC2YJ~
zXJm#O+IJ%xr4YA>FE&uXrQdcoL9R^18IlMh)Aw(#sH!4<PIxD=_(|*zF|}gJ9KfAp
zL*@~>zNd7fk0(^4>>;ctZX!FgS^kJIrBnbWPJPLlL&a={Mkvq-c7~103s^fy1A-Hg
zxa}4fGUf#e$>Lr^Y;d8ioPR6SkuVS5oe}2M&t|W$RES)os5wb#yJ@ZwUCm^ctn)kc
zlj{?Vb7_W-e`>gd;#$YVbOR`W32>$Ey0hlU({7Hz?N?aKWRHrK)&KhGKRNDm*~Qto
zt3N=3dJGCSATcIT<eN3V-T{RD2DBRA(L&ovI%w1_p+Tzm9*S**X59zIwN*||Kg{gt
za_&h)Yi})azH-F|fD(4qvv_t<c8cMReIF~S#;~+HKmd&}1e3cCR&ZM#{nN;wUxla{
zPM2TY3}n~XEDuf>cg!_J@nRi*{_-U>kpy`J$vW>sREIZ7XhV^|CYg<s(;F8n8fYRM
zo!8Z3{FaqVY<Iu*S%hgK<*BWQ%ik*{A4_R&{k;$i{JCkzVg*`cQJcrhL=&a0TCZ`n
z7t?m_-mR}I4+%F+R7+`ujsk6NH4Um_F%73`=W*AR_tl8aqrJt$^{uv{!G(3M5as*j
z*(n=x(%~q_Z7_CPKQ_mW4cR{McST|=8Bw;Nk#6z|bxB#-F=u6YCAu}T0YfZB;=Txb
z?tJT0&V#?O(;^xJr|g?gBcPCFXMRP~)Jigv8IBm9@njTkyY)|}8xWqjpUJaej{DKc
zBt89<<(f*nZ5Lg4+4sHs<0X>zO?%Xn)q5Y?K6!)t!Q($QOYerej-q*BZ^&v6dnFdc
zYoG_MCt8gT-w7;Wx`@|omIuDFY}l}Z#?Q~6mL1mPtXE`#l;o=ZhUYs($O-vjAkcv9
zgW!~DF-oUTnao5H=}l^}sn0aKMy2<vBY)rC{Py<z$MGXI64m#g((Jvw7%yAzrq39-
z{jiV{i7JcQv%I&v;oP~_&o4|4(%xbhKa-*qso9SFr=>Kkqz?m^*Ty=?hPJ1(5$c>M
z-y&X@jNskxlx{;4OTq@pE{e^)>*oSsOoAE1$}8VxP>8Xn*awKWl#T`;h%Ns<o!(vc
zthz6ZZ+^XMF6}^(6a^@ByV}Aa`wQA-x{}mbUdDFX&Nl1TP4DJ)%6ogINfRKd<r;b}
zCZ@$Sbss~mV@GyBu0u8wlx%y;k>;pDJo6+!60GnF;sVBJkSuJ}=P^tznrRa@`tbc~
z&}AdOR(S`;ocY`}+p6fu@+*j1zLHYWOm$x#BDrbZt3YnIMmJA}S++-C&8MVa??U|9
zS=z(FM^{clTu4?K;*HvYP`y5F^<Qo-dE)5<QWg_s*2-0@hVfQN>JW}`{DXIA)|x8?
zXN;zn7Eh`jcsatNqJt6!au=z|4|a_rdi}-A){v-Z!~$JcdXaTJ@Zzp4QmMco0G}QX
z=Ml*w++)QgvI0^V$S1Tpg~8AEIxWmizCebAqeI-$?qZaURRj6M>)p0M&imF-^^C<4
zRjp9<WzjWeyVw0*jnWQm;Sx<3mTzGsB-rQ6moL6yRG2rOIudbJLCB=8o%k>!fN*G5
zLoI<P(?;{U$#sKPEn*sphyA(&rX1tut{wR4eju`NWaU&{U*ItvChvq~=?M2zo<-xq
zhN>dM!V@{bHG(Gdf6nK~v`kCyYT2*oJvv$MJKZo1yr#QS(O^UHzAv7P`=pls=rm$w
zVWFm5oQ>SqK;K?)k1I{qXVt1zmaS#|7yqhZmL|%AM|ptK(HLrK)O(&P(KcBrkhijf
zMj|q)VI+75POtV44D^DpFar8J-229UEg8nB-AFM;x)33~3<kItwvi+X+``R}Z#lu2
zO!PvfROk4jw}1}FH)n!l0p$KW?3##~@CJ8;J&yrQ+3TW$FJ}^xh*}$k2HA0mjS_8v
zO7t;zYaM=Oypv@lKaadKH0nwi%8IY&CSgtRmq>)6?CT30J}BhE#R~hD#Bw!F+>#d6
z_@(AYb-kib<xvg7Bq!7<;0As0X?1t9A=M9^GY42O5R4EuC_r5eb^m>M0y@F?kx4^X
zS7*ErET>D>?i-n@+y#Y7eP3Q<2D}kk--icP3+^mob5GBjoqXqZUp|+O>vhk4U2gBI
z-}n9_Wtm~uTG~v#r%uP~o6IX!wHY2<dLy#=&JBUx))brQw9Hk`4G&Zbj*NuxB^*{$
z%XMJDk_~Pj--aed1z*Msn7WhfLZ6?>T94_5LYZL@zBV2mK_TTxYybTIT-e=6e0sFG
z%E<l6vR{J80(jz!Onl^iT*iJeFm_5`;bLl61r;LEbcU0W(F5!MEa+<Oz@{cP+;1<N
z8~|EdrWhKWQC6P6t0eAp?V_=iYhL`P0w=+Md?_LD{-H8#C{~nErw)HUEb>ig6QCrp
zI~aCkt|<_J1ps6VOq~o&0Ly8I)YVmVb)RIu;}a?S(l^x8y}SFd;I3cPi>{7~Lr)}0
z?dPnE>2?^$<_$Oe$x|Xnxao;V9NS#Ee;EGw<X-55mw?Zrqve!VqHUtZlo}b1wX!IZ
zL2M+fip=-HUZxnS`9@0zD->-JS(fd9lrUM@A%PRb;Gm4P=-^q7jT?KvX2|VdPI0eY
z7Ii!U30B%?E$1$GZ@&A$dwjV}NZ^B}ht=_FUv0~uw6(_6n9UC0`+_LjHkEInAm@aQ
z&5LF`3{(EdwxQJK2b=EPu>G?yJzaw==pNjqPAC3Xe!#V6i;&PK0EXBF#13CIGmH1x
zW*au`ssmi3-uqe-)kc*{z_3bk?})4t6@XcNN@z(F88U(!A<e2qI^6y}&@O?s)VTA0
z&<ZpRbS(NYm5tVH5slDuNiXQA?T+YuAK;dOTK~;lcQ>ql#Xzgb8Eeb2^5#2>&SbjB
zMd#wR1X45lSNzCh6>w<_EvvjjCC>IV3yCKgylS@n@lzjK<Tj2QWp8J_b^vTFowZt*
z?|r6oFm>B#&h^>h(N9l_o@(mPPv2>&=UM`D!tN2j`>MGzujO{aM_CB@o|wy+8Is%D
zqU~345A`OcM&bU$YyyvieY`-HcyOF-*|iI(=|*gan0*pY0Wu5T1^FV)17xi0p1q@8
z2=cKcjGfQemV9K%dwjNxySshGwN+B5-#iI?aQ(Vs?W)yE{vXX*8qeqZce?!Oku3dd
zjdu=Hi+KlKmB2GAR9Gl{P97r4;;{Ghsch&F$&4&)Fr?AKiFn}!ArqT2C`*h&n`*yd
zaPRQ)Yk03`vFb_45SeG~!{bO&2tCu2RU1F<h682sJq?cH@SD@DRrM>s8eQu1{<U5|
zN3k)Pb@Okn>3Ab`?SJumt#y*O9|n%~)vv`dguL=oc`oU)`#ONPk`D%86d{cP8&Vy9
zR#KrPsTB_9ff}bz{y9VhN!)(w13!NJ=oqb%FG1BQWVNIY3CoBG++>|gN5lHy0N~$U
z^QK3{LL~g)yTWI?O7&@nb_%?I)}`Mt)O2&@#T=yy_PDYVsncNu?I%B*i#T%)j{jdA
zAoX7o@ObbzOfWTOo`ptN6$OD{BZ=Tclq`)*=Z04%Fq{hs1*8z2ULZqqAPHGaBN;?E
z_RV%rAOq;5@u?Mm72lrl0DU_Xhr9UDp+jj|Pn+$e1<9qOW2Rj?!v35#^u2VOnRdGL
zlamidD6>CT`}Vva8I60Guv0km5~vW(gG>W86aR7*@ytxQ2DK0|5@RaqvyiC|e<1Pt
zN0RUn93*ErISbu(vFKHWXuJi)<XIv8Jb4ph>=2FvN8JW2F8Fx`&@v$b#0Ez;B9=Hw
zVQ_&vMS(JWDs%ctefrf?+?p=GABW4|namj*GW%1QNc;3_Xv>HGwiS8j{xm1VtSIu_
z%OThJPm_w>Xzu0;1Ce`o@4h36Gmw>dl}-Ns#)Np5*IBYCgCVQ2k@f~y_~vz(>OWkc
zb<N?RTqO(fb~BYHMcr%T+B^+*ZKX7O=BLVjG-?$ryT>(f^YlS~8#(#RPb14rdX0`Z
zRo-T>waPX4TdU(2+s&BM>;A*RM(n<W%egjH5!H{i=Ib~Thn<8flC(?84sw>fxG(;+
ztW4pWfmd%~<gY6lJH_wc9&>X2mkv5dW`D{vt#6+#uM4o>9HT|?GwSTV#gstyU-C2U
z@wuLk(bq0<iC2Wmq4=V1i;M3VBiAIp{bv>7*N-|u?b}CoucT?zTK~R0JvH;7uxH@k
zKb;RFf2gFiQKBgCWa4AJ6q|E<7_u`H*#7+pTelh-T@U=Yc1hAA(ZOp}1a%<2cW?RY
z`-#`G*3K^8FA%`C?Y}&wbq9}yvb%tQBt4gW^D>$FH{Ni56{XLfIi#|!*Zf_zT=p7H
zi)IG3CCe`SjkUmQ%*Y@h<fG3HmX%|PdR%$EbpW7I*U~(om*92$cTEi}+8l*E5Ax$*
zmvurGdY#-lVyl~dgG~X$R}3tgm^>LrOrmRkISw!Ofb5KmjfG{pd+*c}9@P;OoB;kc
zW{<eoSXmYQO|!Y!-@Q`=)$*x;3DR%WQ8bV)vy$@iT>ek9c_@LMAgbV0O-*NGX6BJ!
zvtq@tc~jUHPlfa6c|AV2^3Ai#(*XKU+u(2@T#qTj2;?NQ76#Obf<uaUO4-?eb>5!!
zaZbJP58X4pCaAsL2&vywl3Rc7U|u<GXt;UtX#E3~=;55vw@45McB9affpJBDBw4op
zTtYuPzI!_w+d*$Se8;{LFP8bc=iKpc%GyCC&<vL;z@A@oc)k0~oW$?LbBhxWELna$
z;j-bmJ+iD#%PSI9rln>7^Zg~B3u+&K3673rW)Wx!tSE#%o(6d?g#5simVHSQa&jCn
z63LNriA)wjurx~C1E~gingmiXhGX;tjMvM#=`lc@8UnYUohzs87~MCW736YR!iu@;
zv@EqxhAAY~K(S!y(IJ&2NqT<g(ItP^Cny5r>-F~#Y2gD~l>(T=tp6KkNv#v~d<(FM
z=<M(PT!7>gp!ZTDO##}%$Y`{nwN7yhrX<4*N73Le3T<5zm2+CfX5EM1E#A-9Cs*tW
zNip!;?<bn2e?deA;V6H90ybbL@(T|qN^2mt=(dcJP(v)mXj(;)BSyx@6J!^233dAP
zan9t=^a=uVGy<YRMuuV<Cg!DK#?M{+1!?9I)JirKuy1lsKwM#KzUlVzQ?@hlEtn0*
zPrH=oz5xsPV9v%GP76KSRNj`g6l>Qug@pIGv!Zl0(@J{(;zAgUa<_;+HIR%mLbpw#
zr12?v<+(UG9su=j$IuU@f1m;m&h>>YE+B&bj@qUTA$w*UB|Vesd5ok;o0tqYTBHVS
z0{BcvY@38M0^kRCz0?jJo$LBktH+|4Qf<8><$Lw>x?a!^UVAM++!Nf1LwTEg9Id)1
zOxG#T)b;%>o#8_=|G8vZVv-M|+2DD6_7kF@a-p@WR~Lg-Tp972?|Eh~xkR}BZ$0Q(
zOZ6`x{*dw7wQHnRMQe5@#p{=qy|4_EAESeR&X3A-rcTdVL`1?qbam<D(GlXlZbRAv
z25K{OCDv^thmg4S_eV<%>+?F+=c7lDXf$BiCh122C(vksKu6T_6qgf$39TCO0bWhH
zUm)0|9>UZ`rZGtdWnN**iuxGg81;J5fd%Thg(FYg+?|*U>J2-i_ppnOw-4BQdH=i5
zw0&n>ZSXKScm<7QX#f!Yx(n<D%>x)=h2S{OZpFASbo?BZ-#c_{7YqH%ix=M`)d!(r
zV5=mag5hCm_zhZ3%ZyZ{L4df52ABwiyq%=g!4=$Hs!h3tZpM<)HOuo_gP(;AuHY8p
z{G&HZ6XIQoA_7cqN<3@4L)2@92knd@e?H90re!Y7yZ(5il+5zWero33#oW)&)0xEl
zM9>Ou{V6pgo%noq4n-V@Z2bOlcJo6XsuV7Wvivo9>8n@XjA|~uN%lyAP42G4*TLD*
zsO@^m00`-5VCxZ%7_vf7<7<fj375kTKm>64)<C^~%HUwqS7WqY2yy2l)+@mCddYvl
z+(2tn43een!B-YP9&QPVOvT=e54D>%60A5Eof0}6s^EUxl^Qx4n)f-|O=s3cFIP~G
z*y!w{KYf$#^}YMHW^D}u{szbI3pz5C8&!qLTN@opo>>zZR~DU?R$b3MwSBZJte{{m
zC~&j%`TA9DkD8ejr@GjK_?Vzqn4OUY73#jBV0uX+lnVR-ty#mOqN0o^6EDvaoyv&F
z5o*ZgTF*g@zj#=&>&FUxRlm(@L)j-%cLWEc#z3<djm!#m%*DZ0rFs1Lbyy(?@JH$p
z0tpi$x7Kxj)|r5}sd*C{3+S1$RAV%aH1k}CzXjNJKVE%oNjuc;mck3r!Cvmu?s=0%
zM1#rsfz3j;!aa^u(ld5HMoruMmjCRqQEFbOD@0p<n6@g7ssG6QEY+w~80vCVl}pu+
zBnu;uP0@fA&?0E#h_p0DA}A*UGbDbMmLm;%9`MhWy?a^FAUp7DqcvWc>fLAIE@J>8
zMB9TMLY@z+mc$%ik=_{GG%vVp^c?j}HyNNoyEonHC+)}gb51nRd^x`%;P@R+Z4O2b
z&a<yRp=h;%j*J$QYHG2fHEp5oRogLvnDqcxj9lvFao|no876DHCf7H$-I?}`oS)iv
zZl9168VSQTs{tZKn4d>_o}Zh}ePEV&7ys#haK+L8Y@<Sj$T2LiX<_ce;K3tuXHaop
zdJIYHQq38qPc<Ts2WmI18`io03qI$xY%3%=rUCLkQ{YZw0OoCm;OO2aA;AW}46FQg
zxuej22njuZ*IVH4tSBxi*#M>ayU-N|)IBbb;<eR85z)NVF}FTOMq6L{hKR^h6>6Bn
zByMlYahA@eD~k8bzjCCApkM3#qk3=49<7y2?w{}6)M#fIV7|Pd-20}yAU{81ckt2O
zgBynTjK24i&nHXoUXGjM)7<zI8-nr;amB-N7C&>sY2FsP3`$qXHR$P~JMl1$IvHIv
z)xDP_%s8*YVS>ObY6%TkeVSB$O3&k7?AtCe2BT+L!1<m}cYmO=O}?(@ime|K|2~%n
zqvAbzp5x1#n<xwZ8Sj9|2FQN$m70{VNSqL0W^e3rXSmeBTw)c+ot{S9FTnCdMI{my
zn9q2`>Q!3NddV&g(?9LK%H&xsTwfmeyWlVuY-DF^X3r8RhHVF{;ZRR9B_c`$jW|xI
z<-tJ<z2shx0^Tz@CypKSJuoe^;lYPp)Q{bqAz|CL{`91$kFdDHff8>=SbQ7%QQ4s8
zJ<j9v8Ot4w*nJ)!+cU(EiuIqL09JhB2u*%6z<`E*P(QdEq$7nv6q{)6h0D0cbn_N3
zWuTEz$*<;f5W6m+Vc^8a4((zn9gRT^XfI$4{Gy20lc_yY6Rq15-J+C=P(vPMWO4hM
z+(gCr=^gm`{&!_dWJj0z|9(v}@C@Gy$eOd*v_{^TLEG@*^~En3&dA6{v3bEAe{bAj
zp!p7%3=^blaVE3TK=0kc1RRn<j_IWVvIeP$GlLLoXrTcGR(zT3LT7j|Cd7z%?!2^r
zJ^iBt%uDXwUa1>+T*AC5DRU<0aa+Ho^&gA8<h!*Q6B+Tzje3@@O)e}=Gk=bKSJM+Q
zOJezUZrT1jm(EfeiW8ofUR6!ctz+Wl;oe=^bwu5%VE##$>`&+X3&Fd0w~api>5SHA
zdqNBSrIr<3yVoi#?A;-AFtyS!Vj17j6Yl3T{5G#pvy--;et6d9_g#&in^F=2yI+_L
zUZs(rYD#ozsw#l|@o28OLooEzz?_}#Ha+4{4t3TTh2&7jQzFbOcd#=ET(0yyoR_R)
z9<22n?R<^WTDfQN>YKsO#8F02yC<^Fw$DOVyfyy(^p1;B2eX{0jase}-QU-dQ@CEQ
zd?NNp4Q5n8+bv-E?d5?zd-e$M^H(30XnBU#+Fn{!*RWm&b6U~m9ziu$gAz@T#OtHt
z?Yk?OQjIvI6!@Mduh{+boU}2q^|`#|rKMnz?~ySBx67)+<qc6|`8el&M<bXHfimg_
z(O&y1L}c*iVcJk$%Cf)j2h_WN^@mXEy$mfv@YdP*tgLUZC*1ZKHd&<BC&k9{erfbx
zQY6}F;HAi2UM!;OUQp1VUefuZYwsA}(W6IgB{vVRS<JhNevxIW9H&N(#ip&`h8qp^
zhNYR^*G#$PJ2aW>xpnq^H@oMcQf8B7*65bmpk<5b$Ws*>rS;p}*}cLPhocv%`tO%P
z5|=*8z`HWONiQ;!tjW)lT5qB2`dyx9*1aIXvgFBG_Q&_-XO|^>_1RCgkGrT28F;+2
zo|tmm_w7=Kq>9N^?c6mt!xvvuh-mp4a`Ls6QtrO0ck(`N`@*+Z-OxTyh2ITu;#eH_
z1p~Zjv{P$V7>wzy@lt{lU{`V;1<*XB9^U2H431T}4B6Sb$IJ7}%gXNBDc9I#ov};>
z487BlVI~9wo^N{|ZO`7lWu3!^{1ETbbw#>!v+sCA|Am8TFFWi%b`HnCcyY|{k)Pk^
zfzb*9UF#za{S$9C-xz9*LXY)WX6>SD9=*N2Jn5GXySTVK-FDYtDxFaf`FY>IeY3g0
zltzo7Oc?z4mk3h6?Mwdol4$qTZae<{SL5i?!TPYWU7;z-$F!pkpYUQh;gWk}5sju0
zzO`@_9&+l8e_N^{n|s7pzPrrJZ#K?{8#(@}y!WAxGIR;{+w3-u@16bj)MN7XpE?y<
zA5FDPd8>;*^*v{iDa5|=Vz=+&#uFz~*nTuWqqO37@7s^(j;In{DuTxwot1A*pZ4!c
z;n~ptctiN?)u|)N?jwcT{@WJQXdW954dJmg*7Vfa<9g+Xw+ZBAba{H$)u+$(uULBJ
zdA@o{Z(rAnr85G`c+{BKEi?Q^6EgqO(-B`*KxLo0<KSg5>*TXHO!%=p^CKRqerk=r
zjPav<w^GxM0cEc*;nCWP<h!G##lQUVA--%dIi-4VZNEQXb$&^TJacVMG2iQ~=URs^
z7$j{_vNPGhi-*oIDv9Ga8f&+$a=oF6j_GNyE-OjLx2f=#Rrl~SA$%Tgi}ktq&Evq)
zPi1!!-L^3IX55!)uYXC+agB@f;7@|?)BpYW$0Y8Tolv{JdxYhZFH57Q%klk1zb>A_
z14P%E3_W?ClA?~t{?Fj}PU`6;UBAAl1$l{2;MLi@#w%eQM_hkffgwo2dhl!UpFbbp
z&cnkmFK>v+Hpy@uB|$tW+|-ogm<k3y22fHGm64&174u}5>D_&EJsK7uaO7H9@p8(%
zyK7=nk7k{bpEC;4eVN(9W4f*E+eY)1QzyHv>e3$7wk}(N&$I6U_8J7CRHK(j)NF{h
zfqGRyNT?RF_Hn2?%DQcXwFd#7rJ}S>En0vECkgdXFFMUSjEuHhO>s!SZW)=Gak<)a
z*swRvz|=IRE=4~HP+M<eQp)F!;(M+Eua{O&s_(6{xLT?jYW_U1=zRT~PeS_gyEJb2
z`*m_`q-{|Q=a4ZNP*5mn%+!n2SpVjGLMwfa{#x}Xv2D!mj3@IP^psn!Vjp9?z~glE
zb9HqDs!2iSl^2o5OJ!qrZI^A9mVrSEK&r&}_(NoTGOLKeCEYxwTMRWi`6Da<(T?KZ
zeZTZ*iLz?}aCRTQXNWdZ$ps+_;{e=CStpjXoqu%^NL)6g4w!bF3Pa?#eurtdef`Z@
zC!lM&kD!|rm`QxHaV1>y29Yu%!d_cN$u}n~NV&gJx{$KaJb8^XNb<m>zS|D@ft}A1
z5>&zU)<KPU(!fAC?n?q>Reiu6!OgyE)Gwi9kPR0JdUm=<rFT4f+3TdJBlZS9FPZe8
z>@~YRfA%wTckHvC1r7nN8*OaIt_I%`?!NqLEsgee{h^^JUC{Yyin7<jGf6d$yL0Sw
zdlLppOAC1T#+Rn|1Ox=6$AbEkTn1q{T{Dg)WQJaCX4r>%j_+(VF){Ht02<UlU$uEb
zsYB*}$je?|I1tK;WJodO;7%f>X8zDkk?MPFzb;(A6<MrTf6=wLN8QVKY}0;_{hVK&
zT4sLK3Ld3=*4D^eZubCXl$f2J?XZBs_Hn2H5|UD~)!ODKG6NnxVvbu*7sM?hr?mEH
zjvBV!ewTLJtVdx_gjJu&yF8!2GN!3)U%|EKafln%Eo&i<1+OTB65eR|c2&6EG`zY2
zJ7#x3*5gry#s0o)-tlsuYjw}8PMkQQ)khgPd^5Ei-XkuqoGzSQ*EQK^b~W^F$i|>C
z`n;FDzxG?EO72X!7s>wM@j+KZd0S1HeLKA7lb$_OmY*tIE6w9rWZ9OlPrhD;6ppt`
z`me1x@u<6ZUZrY_j$gjG&D|C2u<W+5{wlP%o}Df2oM)hFUeC0*8B&yVNSM%JQb%!^
zJD%wa;3;TJ1$C|Z8B(2X1{%k6UU<0fiWP1A6Q6y2A)QK{&<YS7Q?=#YCU#81r?h^K
zDV9I_-kl+jN_Ia3!A7oQQmQj1HSYRS;+YyIii0FC!Q9GfAfp-5wR9LG^skP8<yBt7
zu(<%5lz_*NSqDX<jM;CwQTdM}*?&9aJXOEY^zx!`T*i;{<$b?$!@UIAKi6*C?lRqJ
z7_{C(2gE!}{RBSCb5Huz6^Thn+f^Zw7_fbFy}9`@eHlqV(oH?fE+8UOZ%zHtTXJK6
z3-~WJEE7rIgzjT!6Sns}ecC+wqKTnMa|`3I;hCD1OK<cW{F$TXgX*|;F@%~u*9piu
z-GgO%;au58`Gp}CO4{L60e^E#WT0tYRUFHKKk1QO&)i+c?KcMd)umhrJIgNS)5h>!
zVi}IQ?U|AC!++-bClYu9#3d4QrA7><xwIaa_l*t*S;>=~5;e5SnR!$-b-?szM5C^8
z&$^fw_i0jwR9Ns1gYXOA>nqVwhP1jH9#*$iJ;7TR7|ypXE9PKo-nX4UYy8#be|b!}
z<l1<r$rZF&H#!?-Hf=CKiA>ITrrP@Y!_py_`j1#_t^GNQ@=ax|c$fA#r@Z@_wwb!j
zbL=WjYoCDC>p|yaw#kb7_`YxrvSxUCHc@R;Dq4ME*o}IyDDo1wZA{LK+@6q?C3W7?
zi$TdcY+u63IPb(d$BYL&UP|GW9LZHaJ2YQLck0<_SOysIHz!Yw8fEJIu=?DQ+&A{B
z{DNSiLk6F^D7(0QTd|sj^|l04Ge$uxCCV0D?V7>qj+w^z-XX8+0;$Qz)cAh#Qyl=I
zt{w{z5fJFO%5rU}E9~oJU`eNMN#`9$_G1=DUv9d!F3`lN`<WBZCC=324!=*9RjxIa
z)JqxMODXim6}=G`7yoD_ap9a4HYg~&Pc-6uzRmKXeb4?rAJ5U%I*ehSQkf;88*nxi
zI+R00b_MRlc=vWsMed#Y*;-V3db)0!(KT2e*@v?ipWMRy`OBZlUoqSMG;Md>UdqJK
zBT`&4{;}0k+OG0`-K}SVJ{$~xk}QfVj=KC2_YvE=>-3$P)ggXHuLKi9!hYNiH}lv0
zE`b5gx41*9L_(_Cto?JaDg5Hpe|hBL!|InIMXtBQ1ZQo^4!QEbPi%c*LY4GlGc*%4
z)YVM{^M4UiD5z=tNi3z6EAysXkt75f61h5L{ET;tP*PErl3XDb=X>uDCjU8M-jlcP
zUPd5?aP36zi16c#*@x0!Ya<pU$9x|fi0LJ-EeyY8UY!v8kuSdKxPGLJNcNllGigoz
zYOmWHa=-sPZEPGxC6rKGU~29iYOOe|_W9wnb0=Mz*L}4)UC9_TW*pBlmJI4p<)k}c
zjyxB`fUJ;l`8aQLYs-M%s|Kbye&Rb_(^&6w#&N4I{we$7=4w@Atm&yV1^`9<``Vs=
z_&vBN*-5#8vdKCV8@g;W1hGa3>gGOJb0_;a2LuGzpQb+aTd8J%sZ^dVeksyxFS&Um
z^7P0Q!mB@J+G@aqqCMlS2$jh!w`VA-hJZc}r(q8{n;r8<LmlM3UCXR8L!=W_ofO4)
z>`17$tap-|`BJ*=WhrlTh`}3Ia{>E^tVqjUNo6xn;u{4VBzElFnXG@k-kj;(A#;fp
z)Dc_Tm*n<UJ$$%t?CL`CJ&~`YTwzpmUEQ_)1EHe9oz*`2E<G_DVG<P(6x=32!L~Lz
z<&+}rqAB9``tY^1I5`11D-P)sNd-@(6Ri#Rp2)nvp*}kMPsq@wC~esV(lW%kx$Ne2
z&wcIgllJYBjnq<Y^}B18L3uuQ6Tt)~TF_1FR9-RwndhXowu96fD`)4!B2_k>TNiAa
zb;i|p%E#{;4X*kH^!5vg(VQbg8N80rE~mm*Xg1tY9Q(kxuFZ0Xps)P9?|XSJD)l5}
z&|AO85m>VBLC%Mx)fpqlEd@pTqm;{!-l^)=sJ$Pl?=$>h>eaVP*@OAipRrfrbI+Sz
zq6ou%u-~WAdG!6dxl4m<?Cmd(EW4qbZSm^(`t{<D?}Iqg>Be-31VcFcSCo_2x&VbO
z)q5RYly|>8XFG<SMHBghxkXs*Y4m8-pj|(X^@Ywv?eO6}&`_;0MFoN*bB~2~bD!nc
zmQ!!Pm$vj!U*ar)qRG~=#y%4p;b!GYki2y0*1cUXqjV)2N8Y4KUD~@dR7!_jYD&r>
zUTI-O*-L-zk*86Agu^xmPBDh|rR1o?(R^`}dE9QCv$`+OsrvZIj_(T(Tey7TaO!|C
zr;6F!<SW+<iyvw0)QpesW7u+j&00o5oa2_Za)Q(ckpuhAZ6NpP)P<EH6?JtM=5R`L
zJkDvcN<RHc#qUbRp8EHB1_|4po1O>-$!3}Om54IP!JMp%cnAnYVh67dy7D+yeZQhS
zIbnNi?%{@jCn>7mq}HXnelfEc7gC(vF1>jsvpnVVLf-JJnV*N_`s#AscCzb5SgYq9
zPo-L}c+C%Yl=jXk2#VgQIR6Ec9OE$t{SZv}{b_EH<h#Hu;VL`a?Yf<>mU+l=clD8b
zx~T_4)Y&HEIq<e=3RTs`A9x&_ZM>l4jKN@>9TE~cIMg%Ibe=qUG6q$p0ON8qJk!Q~
zZcaJlq`XCF@qWaFd}Y$0WY@iNv9Pd6M-CJ2G9AdNEH+VfgOjAjAg*w4PPs%BRr;>|
z>HT$<M+dAL()N?yey#h^V!xbF_VD1Aq>;8DX{Cki@0K_3kNULB0Fnsj+|p_A&Mo@O
zt}AWDfgfZT#{BTv?CbU8FyAdPElm>=BwOjwC$f~YZJcVGncEpXmXp(S=_jAan_o)B
z+;RLUd(;0v(2D;JRxmDq|GL#kH2yybh5m=9Po5-(&vx-~@Ls^0r~#P9ql#RLFPMIj
z^SpEVXZYZiU$<8k1}Gh*`1y96{>nM&T>h=r?`hV>D}Q+UyY?%MP2K-CGn`Vf(_}iM
z(uL)`+xd*Jr}m+n_lDe02@73%xezz<Mj3}oO-J+UN+n&3z7+q|(0LLqgbEici397O
zbTm+C$6~<7MIcs*2?@s_<+sZ2;f2C9wIt8T_4pu&5Nf>7a6uP**;lA`uE1}c)nc`J
z!!BjWO6#%Z!}a~#>VofH2Bkuyq1<v2EnzPua<SXm@{jG+(=pM>IC6gc=5^Jw!&Sf1
zuC&I#5cs(HSsTZ!=3uz+F}ny;?XjAR$R=!XYmu{xIx`lwwA$-d%rorgPLI0(0xMLW
z()IdtQc_a7ug!d6m}fpVJw5u<0xBA@R2@HPh$C|bvJX49*z3ISJM<Zfu1cBUwUyat
z&xKVU8SRzd*UYV?qQ}?#D%586RfpeBSGzy==-2rMhD8omyiwsU(#)$84BWQAw1uaY
zZj1K$pWdHGintCMxKG9JBPalkMqL(usjR@2W7k}qeQ8K@r+ltqlc3tkP8-3B;P{I-
zym|+0n8Z!Ytdz$aEccpbJ(pOumu3<2WVe<M!-f?70MnMoc@FQ*Sd^vaCCSr8IHE!4
zeZ#-)u#dh?`m<MZPBjbgDD)sb;(;T3-tm+64vNpY=7+pqetYhkfp3D+fLs!#2Agci
zvyuy+>gxCACi}(S5-!(&<QsD^*3i<xh&(S%mB)$h%V~+0y+dE?>n+em4zJmE9{R`|
zPF~f55axS3E}v3XKmO9)uBBq8`(Vy^=81zWD>rF1pMBM{+ho<4h`)%A`Sso2#|V7z
z_U0YZZ2!_eA4UCrqxsU#+54WS)NTmZ`6e6~yP7lh$_3-xA|MVlk5#NI3~0aJua;<z
z5JBIE*EPp9732;1@t9uFvlgnwr@;6VQ-D-IeY@2@r*Bg!kwImMm*K<3P~b!6>>hBm
z*s;?QCxX&g^)nV;=jNkhfCAY%F}0EWJT~_E2Ytc6dxUZObCsz73z&WEcL=EqYa6t7
z?H`@4ZEn7#+w{T+HD#YB|GBKG?K>Ekzs{R*$&0nVQQv3Dc8_K9EI+fkt7Y-jRf4gh
zTrIV{ojEj#n(m^brP8@~sd3t}%ZjS#!mH}7T%Ugsy$|5XNVH+1v2*y;fb8-Gp|swg
zr>Dd&Q#mcRs2g5eWHzA-JEx|HxAp?)$Q+DocP*~hf66ea_<fa4@F%ZRMe8j)rd;i2
zukUv@3x1%iuGimfst$L`GXQMn<aJi+d#PAb_zfU?E$LqcbW=^wxBa$c8LWyvg*Jcy
zZdZQ|I~{3S`u_*cC@&@47_sSrK)EKQckZmH%`hnxWjLv$bJ!1xzefQ9EI)5YvCZEQ
zfC_8O<e{%`jWBCc=wd%DJ-w#7zS6tHaWOIJdFluO?%Mla&%`8JmeYr4$L`%H)Z=zn
zt~>2h^xX`X$*%feG!45JFgnSD%z1U2m>hD1<%CPN<Yt;dqTF41Lt#q<S~%66O$bWk
zB(Lk<UshSE?cm_B8S}|#zuNpCHeaR`a~IPtyK@&+<G2{F_dlq0C02W0^AI*-9O3LO
zVph3+n{ywCi0?1bOs?M+*OGEyIq=f(n&o5((B7{O=8oX982U3dm9e_<<mtMBg$w2a
z1nWxWl8cW^%~$W-^|FJR`_q+|FAP#QPif*5D(65-&@JA$UpUpSo~35Ds~x@kK}zxO
z^BL_005+2larW1X<UScRs{wl?di6r)Q`8(^-SOq-tP2dQUC_-@8GI@&>?m42v9Qwd
zm4VcdZ~km+h=8T}eG|{WPqT&dSK+F$6O^2@mTO{J&Q6`q@n6M0lV-!+Iw6cK9p8=g
zAA~i$P@UI|@20p^N_G`LSnc9e?&{(&6W1jwAxl$`zZ{>UVjV6W8$E8n()0SpA4fjN
zEnWMCrAXzy3_;EawyYqZKI3%kz3GC1o8tdR*IP$Lxki1%n5cw-grrC)AfQsxD$?Bz
zBGM&D4#F*>prU|uNOw!akcyJhB@7`YFhk4G@$EU!_pC40dRd<3AI{M`uDPzgf3+vS
zpe&eV{5|&u>y53#Yv!F(r#>DTpdMAu1>a@nBzl1SAvudLtrIQVd)%^0hKT!U=q55|
z-n8u0M$mkB$$`TpY9s}yM@LsTi?IJgVnuF2fi_|PhY`etW0qXDdw(3CZqjr|3qAwx
zJv)$3j>7POxcGPhNJ)U2Vlt>|`NM|`bzoW=EjAAXP=t^O*O@482%!;akg7X6<A4sm
zX1iE^jRU!r4Yx)M8a~5QDqx%(j~w5gbu6z>jX2Hw`~)8><&ch@tbTFa$rEIXio;nl
z!DjheCpe$c>`irTm)CEmv&M^f|1g);u0C2m^uPxR3vm=vPYS?o^Z-69&<py8P2em!
zuMSZZ!PyNEn*pfU2+29sMm(*`cOYr>I+6V2hg$szb{z1NBZ#i4YdV&?ym>Xk;K~n}
z0gLv9$fL@A1h6Z@)R?-hQ9F=^MqasczcZEc9_g;sx9p+yv;JWTKH@#}MMXim2k)Cv
z*RJIF{yFJdR<EMy;jr@De@%#3VqmaI7W;XzG$K5LK5L<edV))MUEW0(>w1u=x>Qtv
z3~i)_xE;UY_<Ndgyl8$VyC*Lt<qvRLzS^yHV2`kg-YcIw<}|##stJ$}SOdiYqcN!U
zEVjXm(32A$FNjD6Aj8lVyw2i~Wq!G`4zweLiAxG{ay>!~yUNC1bCJ+8X<WagW@D2B
zW2YDfEB@RL?94O+4GpK0;|I@#%Q-n=7)+o#Gb8$_nlXNZ=xl(Lo50>^bLHIm(;~+8
z8TpToYmbWdI>+MWH^{Fa`^-N1VWG<)o{rRdmMjT6o`6l6lz+>U_<0Ip9?ezKvjSFK
z^aP9&7`ZTe!FUL?Da=YlDFC_;`Z9HC>9;m`6W?8A4h1SW*KxOD8|c^w_(#=vZZ0R`
z>ci4a53#yvc=C~7zTA%QWQT?sczvH`JJYmnM_!|FQO@a--PjS@#IT{j-s>jKnO0CI
zxY~-;dH9ihl)T!vUE#EJuNsqETP?4;Jn>XRYoWk4#LzpBs|+>>WnUz4?qL(s(^9T|
zd02PGIj=0|ZWJ@zMsm{iZ+0h}?rg&RJN+<MKsR0W62rn$4IQhc!^%LJTs2Jh9<-VY
zVJm1H4;hn$Sf*Rr&$=02ZI{=j@fzGYwbIc_xcyg`AXQtFpUq0{$J{(=+j5gN(WWd;
zK_xdmhdH$buy}3P%!&|%<&o18K;{kk$MGwkIJZMwKqa0RcbthC%J1>0bg=gL5`W6~
z?Z<^gjP=_7QwAPbBzq^&x^c+>Y@0ZBr2R{iahu?Rnjn_2#DUb$1PoHN5bq9Ee;rtI
z!_q-`d6(TSHI2EA12x@lw>iE{H%sC!z*v-m#PK8ArGX(~m*+yn^jdUpnidv0c-CN;
zHdr+K-7u}ie@~w=B6^e(O6cxA1A7Y?{53KLT3gnRM{*<Mdj2dny+d_R%7+Y+d@~JZ
z7<%Dd=}|R7OeTd>RJE0zvpJl_;sm&@vNb5axCqm4oRPYBgFe~nPSXpx2U0oMZq$s8
z5pH=}G0(5`#=lIy#AEt!D}d%X7gdTv#qha%xbM`nowX^*6%U0hsvN+<IU(d0+*1AE
z7LQ0un#^+tc<gJ(56h*usyx)BXDJu{s_XI@346x)3VYWRz@CeFTo~>SW%)r#RkYFz
z*^fHcFIh+b5g<)7{lQe=$>fi${o}rR0Uz&k|1OJRh>4)4<VcON9}oLO`nWHt8M?+?
zx~<ljkVCd3>&;>FCv5ZeA@(0Dua&Ri7AHXqabM<2Y;$~Jqy`HT_xFi>v5LcFf8gbx
zI%0*VrsiMiC&@AmX<@7DFx}ow6(g&|=7vLykvJ#q3NCrRfLZKe$@Dt}%M_oOV{ese
zQJ6Qi&wS}z3{_>PC2qr802(C(xPsGoJU*<8-B2|A%UEC9_y0x9N{X<{D#peM=}|v6
z;DzUz9!yg^bii@_zhppR%}U>?i()-9?jR{QG_+jv?Ao#fgj2A5`QNqM@rhNl7qmUc
zMUWxAqGYpMLLAcO{r8@Qi+lnL{#N`>S}$tmK^TmhRGtjT%q$Hb^{SijEx%Z#)X}HP
zQ)AE(!Zfsk<~$=QKb>*&zT5cM%LeyFOt1MRfA4QN<T#QO0KH6|d(C*%Sin(w@#l3x
z?;8U@KSdn1{|#Cx_KqJG30aIkG)~sunMc%Nx8t~bFfUtkgVrTwVzqx&Vj_*0CocO;
zlg#2_$<vW%xC-jk1eRt4Y#eQ3PeD<U(6VJD5DS);t}~NRaQ>hJK(S21a>2#zaOaul
zw7}I1(h=_fjIZezx&2sK`O|;gL$K&d&%DI8a7IQ(8xC&^V(L8rr*gCrIPCzxij(j`
z6=B}+4@Bmt6qbhQ1d#eCdQry&Y4qcNXGC|<UC3?6si%$?e)+*_`IwmJ`T05R4P$=x
z>5Z-rtvCO^7RJ6bVaN^<+eKHG7+o~tSEsmF;yU>|2#;NtN}w*2zn8w-BxBR1)@)56
z`m%vhxXzqnAymmOgNRZb>6MH#j*NNuXghfrg#SoUlOt^Cl8610<=kMO=*yBkv;j7H
z5$1ICf`up_df^n=<=^%d|JaMnxy5#uT}6}~L^T3&xH9bQ<>j0lLRD^aUPYOKU(e%X
z*Kmfu|0s$cxE0}qapj(&;~)D#{PG1h_40O~kVjnP+vQXiU1PiF?Y#5L8=4V`sg~=^
z%-_N=mz)UH!RV^1h`IZ6L#W>JU;XLN6fUYsx0@n=JLt<QC(vhcDZS$q{B^|B)4tT5
z#_8c&x6D=NIFg_uyzG7`^^KKGQMn%hu<x4b{^}cf_rR5Fn#tbH%3sGi8`tb~0d28C
z=1(;7!G6GX0}%hAmRcAuguXrFUc*+-%75eV>4+}g{U!@b+A`isa(_gn!w5OVqvj%Y
zU13<q?%@$58{M*d4LAwC>8;AXBlkfk5j*PcK`M{juTtgp9rOM5BlDGMJeP{yi=Q?=
zW(TZ3j=yO}90dEfjq~3m!F(YOB-2R>7s?I{hdkFx)9C1E#cU$wjH-fyt@pA^_3di1
z^&#**yOXD<r|WH4s@Cdrb2$FnjodgQ7Z|^@e=v9QVTR)v4_C&ny`Z5{;i&?lUN#N^
zf%0ziR?^2p_5tITnmRHvhJ9PXn~JV4j((1+I~&M$4RBl{<!o8$*<AXDw96}(&X)5Z
zc-tAo2~-javD>gSf-jFnJ~uyq$%TGwW5Y$h52R?*CQcsTTiEFMt<|zDphv=(?7x(_
zLRz=kT-=0OpAlzh{!PN<uo@D$-7$61c52}_gB?*-D7^Q>sf)-v51PvuEtA~&?NxR2
z#!0i0p7dwjiKq;Oee9(!{f(drfN_31+8_Aw0Bv;M-8-7XCXq{$B~L13j8*pa-`U`y
zFJn<{x&{0bgcArA2&4uCS4BXyU{ZG$(55i03M~~2dMm{+2os^)M%B!?R1+c#p%Kc4
zqYA7nOKR*dQ&|~{R}#)Ps2=NA8HRO<`XL{b`|NI#<IpKA{9??V=?g?po|I}7eKYL4
zxe!+yRQ9)(dAU%mAoIZkDGdz)E{}-6pW4IwyVB+lwH01#4*v}v8V#ek9NFMSDnt-o
zJdY|*d{}lXzB3ah+{uN(sWD<!jaeQ75RX-U*yx4w81B;#V~_GpA~-GGvO0ti$FW=T
zAoQ@_j$uiyT-@Xk*cIJs7Kvu&ctSI(<%M4Le-y&MduU*a(&)H|<PV214%ElBzq3>#
zekGS7O5xV>`=q#-4LUK#C4(^*mEp+97d%^d=B34kYlcV-ldP~LpP`45Yw>@yRwE~Y
zN`###6rd$g>6C$z1*vHJ3j82pn)8{HCpu&9N<nSyR7n_~=r*6=frZ>nUnSgf0iaNv
z+}z5LCsPl;;lT=smGo@@ql|bR%w!82a6Bov`D+S2n%&N1m%ExK*Q5Ecsi$LKa)809
zu5i^6lWe+-DFFSC)N#p?6Z&|35JWu*=R*L_@L>^RQ|^9=MOjpbp>J!3#ug-*_|#pA
zJxA!s%@z!7!hobWT#%LQ3u9A+D|X>Ft*;&5fI>|CV6BN^h~(`fXh|=eK6$r5Hw@07
z`kkM=6?TeYFf67(bhWm0`508ap-`UmJB~v)FaGZrA8H{buneM*3iOIo5vfD4eI-FW
z#h4A|-51I4>pLg|MjtLH^(VH-fX>hDfBz|1=u7YM$WHK)&)@R6aEx;dB_I;!8_CRj
zO|{(%A;5GM&ZaBG(>|*liAahqh;RAWzii$TJ_bUK2gLAg;)h|&1l<ln2mlb5mZoMJ
zK?va5uN;R6IhkaIr{mq~3it|=R*z+<LqbD9rw9mGKP;LuNbdwQmIA0i(9<7aM(=W^
zhY0(fR3T1o^g5F)JKvEbQj)sxN-!cZES*PIjhr^Xw`#_RyJ69tOhrME_dd~shH$_*
zba@gAi;P5!A2x+5WACKU!n3^uXknWR;^G40pc{|~e=BtZ#6iR0_cAvrf{l!A5qOq&
zRWGgnAFa?=U3{|L@N95j(bjUXXZ}#Eu+;wj8;?0JU058H+JB}w+%~S0_~ZfChb>%Q
zIIj>3Khdi*_vMzLroDdhBXp!Mpsd4>6wk15dgK3?amsZs%^>eC<(zUG6q)(w9zW(#
zUS3<K3W<e;pHmmln>3!RmzcZINfXB<pAbC5DIZ?)VzY=^^)Bx%*SzoJ^xC`aw>k)z
z4-rx5pEI|w_fGYw7S)>^-}6ERj+FN&{EyHI>HMVNd<Uz5ghl=NnEO)UWXpe`BhlkP
z`;$+Q%jex|j?4}+_8xs>6VWlvqAijI?)_6oD+pG3n(hqHtX}W!`myw_1Y>_WBuUJx
zCsZQ%f0}<%et@`wiZS->-M@5vYfn9_ymy5{z)34{LfEY~K8(Bn>$vdBQ;Jl$efT+b
z9yBKpnD$0zx%lsMRL5%sI5t?<@*s3#zanD(`$S{oLlCm;sR1Zv67wRQr@a+h^6UG-
z`@NyEJf)8?4hMcnuafo>5&76_8K9%apT{5hVq-uWqhs?T&B#5F{n^Dn2lEX92|Kk~
zss9jRA}VS4E0z9y9obyGJ45(yn&E%`BAN#@sf6bo&boFp{IHn>xiZZ_)I-^HXBKcB
zyYAKP%DS!Hmo7EqndJoSQ&}DP+ecABreP=j9uQPuc6)*ZAy=`UGZV}dsTkG)NQh?V
z&{q)zR%iUbRScUHRgUjp_<X)0(O{jPRPygsl7kM=sz$-zs#jU^5{Rdg&U|~)<Fc-}
zT={KgJ*EO7bFTqKLdX9{>y`fZuVw$JsL(e%OH8rlR(((;U{;n+QafaCAHY~YADYCN
zlBWlNW))PC9li$=w9_)kgC>e1QLkiAc;Vmf?bum|x~OXeLiEy+7u?xxAI8%s{oK#n
z<(&(GgNX}5#v<GyUlmlYK(q<7diFXA)05B5&c+OxK*Nf`m6h>pVhCb4En{PDdFW@=
zbaZqG>MZCgF*rz`=nr`)BO_Czm+ww4r{Un>fC+iZ)tnR+HMAuH>92$$=F_K74nkaj
z9M1iZB<wzYFg!0YVsXY0sBhWif!0z`Q4tOXO_^QYU9(Eej0@>^ikJUKRT!73sNw%#
z6c&DNO$y#36~YFRJ)(sWf)Ab0rW3GFpsoYV<id=2bibs%H-W*QwNn2rrACeaz|Idr
zLE10`ZS~Ic6TfvebB-lk9(d<+YOVg`xXA%s!e1=Ondn=*;w%$WCoWtI5KQ11%IyCs
zGCr0)`{uNAD{Z=A^Q_%tTZ8|>UJ)Ko_)ZYL^A9y!7=FuSy*m}cCNC%-kY4hay+Fbw
zT}YL_S18LQN3_M5e)zt#8JC^o05q9B-_UU&B+<}Gm82ibB4$?^Jfz5KrOMhNTxjSY
z0b^)12wV+VKXO6-1R7p6s1*eu&PkX)xM~2???%?t19ZS90&%benUAflZ6EyR_LEX~
z0iv9>9UUD*Dv62Cq9>WghNH$J4Z>=sNUxzBSKTdG(fsh0t^Rf*%vQ|N$E^vI>nh}d
z7JDYgyFAHddMo?br_F+0mLQBvri4PDkmd`1y=-V|FvlRg*Vfa^hENq8Wb7>U#vrkE
zIh9$sy+dE|jaC>)%W1oPJk&CJyb;~7z-7Ao!4cx+v;Vu0lD{&CD}Q7Oq^p!|<<FZ^
z9JqO=m7b-s&k8PUpUGYvx=gO{gx6?vD4&bB-)s8jgZBMF^QoKm*;7}-Loryl>t!V)
zBO~B2&>w^6Bpc!@WD%Zd#ksjT0~qfJHi1o;C}Kn4I|niGZjhl>2;faddinyGnfn2+
zi3kl%1|3%cgtLPDKF;?LXNrUTkzvTB@vfaDdU72#Kj3`kyJLQWYQb<?fkg(|aW>{(
z)W6-AD5wlJ!Euq7pRWY!aau{=S^`g_9E;pzqcWR0>C!wuI2jaDNyg9@IYf6gFPO29
zCA#|_n;_xRmjNJa156+V_$Tn#EGU}pX<&{6|8IDPpgOCtA4vruj|`?RM4-G&R|u)w
z@`OX19|W%z$1so(3zf%Uz0bZDJbj3Vvj#EuWv7chrpTB}2RHioXn%%5W&q@r00Xhf
z10?Mn%#MO&ke(u6d>-Hk^IZ(xWuk#t+phRO;=Tt}z6Uc*c`){N{8&*@u^f(EV<_|Y
zMu+P&L4L>hGl-<SK28Csx(s*B{#SJBMFM<G^jrc?_9rv}N05%M7zPnZiR2xKriO-V
z2Y014h^0rXoYPk7_g5r}Dl2h<LX~1Av49xZ*h6!rWoDKF-+h)*s^kWF*i&Guscm`}
z2V{Wan!(*861EeIBxlTZ>Qhr6O&+dzXq%c&TExPWQT_Hr?Rd-Sm_7c};@6%!nIzun
z5<z*gqt*`dKO1NKb2pHxIhXtVw>V<kw&4nu2n+@F|LT|sT$BhmAI#E_?*o`dDW_5h
zH)=0PDEY#GM=Mqt9xu0xX0?If>TyS6A|q>=%uHErU-)iEcK}c}_mABpBMP?#)Ziv4
z&L0o*@E8fpw_T1FU?o$jm>^^O(KUreXt^iQDndoR%1Ow6H+rUE*lpOb2-hGnk(c>O
z61EUH!8|uXYU1Wr&T0b=FwhDoM74ExMzS(ME+xEey8rlG@VqTT!xc-AHGE={Gy%{K
z(tuGAYEuT`N0e8uE`Wyblc%>x|0qQ-=@doh+egfVeHvj|Qa5P2bDO$hz?W{?ne=<N
zpWoMu1vCwVlYyVnmOFBX+n-O3N0sKV35(jvIcDuogNBEopo8wI#vCaevT&-yM*&Ga
zG*iX<7&dA1b&0qL0Xg~L(_a35|AN0^u<guE`}U?kXJ~%x|I4oYbs*-An^hMt^{9Cr
z&|8SKI0BdqbfTPHPzWwd*R*JgBS(GEdu2XWzopT#w9PT=BGk2CsetdaUe+IsyR!^(
z3Psgx(8K_tW6>v|gWnR&1O*B9f4gmvg;tHD;E*8jjfDNf#OERTS$}}XmqC=Z;VI@&
z6dxC-<RCiqYr+F5?i<ZBvW-36v*d7&N#h6bLoQ4KrB4q)mhDh9?pVoI$$Z6pNyRuy
zT+iD!ugkD2)KzhXh7IMDi+6u{+82~X^U6z!IH0>uxhFMic;0Bk?sqJ^!>?`Y@iQzN
zWg7#Z9XqO*$UEuyZ)fi3;z3>g2m~7SUzs_vI2^+5!$_zLFcgaWT>}eQOv~1EMb)Kw
zy*Zg@#Y^VI4>wEl<~~k)n*j>u?E^*mL;x)eCn4yN`bVLVdw0fBHNJ7x$&0^p&c#ii
zUCfL2!*fgg!~k7T3>;LV%j1}Vfppl$nkUb^;`z<$^WwYKCzVCi!WsFvxX3hOgeR_N
zZexv3^Ygie_a|NFUqCe^{G!LJ1Gvz`r1P2rw~BGA6f{*)4C0r1pS`>pN4x3h^*_y#
zQ4B%z_vTI1_{(~xp{csJH<t0E@q`5lqDG-Z*ue+jM8StA9Xy68141PLGIdb(W=$Ua
z6(TGl-+jy^0*V)|)Mer5PD?(w?-^@v+`-Q{$L@WPG>zNYsdVH&Rk-@*_inzdew)3!
z);^|k-1Gi}T_<wp{wmvb3vo3w`I6@ENPKJ#g;vF55HyFaC+f6ajOxGA*#M+6o}imt
z(>%*HC6;s^`m~VTPDmKLxZp#}HAT^@?~EXCp%|M8ArE9p&3Y{oers_u%d{Xm<Ym6V
z&lXYE4VQ3DeEEA#0iT}GiGVS-(gu>U58LzVPH&N$AaYtREGX9K8_Q1nG|zM_I<`MJ
zw`Xti@W))!WS}LZfBkP=*iw8xIo)Bm_W1=ne}2ckf)G`9f)Gh6UkJZtX&lmmq?sOV
zM2DrrR0adsb{#qZCUC<zRJP6kvjN5x1^z@lOrw)76Q3`^EVs9|F7%?sFHgk7XGi|y
z3O`m9M>3EH&P_*;-h>iMLuoP~BBC_>G#fj+feX{n&``zrm*S@f1yW6N+^g~+ljFa~
z>f_y<wTWNkb4xBn49FykT*5T?CHVGh-;e8nWJ4SHz8^5?8Kkp~tNnWCR9E0Rd5I-f
zWLd+MztOrP)b!M~QhWn6NDgxuoOX_3T;EdO>kG$8c<Mc#w^1!)-zGpS!4G$o`@rGT
zkwEPC;DMW)TbMxwo47doJp)T|B?sD!LPbD8rW|2vq9}l{-6&B4nPU0$-C2q<_6M*g
zYQ9`gg|X^k{ElPyHL=T`Xc#mSI&hEN$<sw>OkmiEMSk?FnUvOy)XB!Tt#i+<4Z75f
z!$l3C-?^a@2bHSN6p87(Y<n0R?+7!jCf>aFZ4WJLs4ysE63!;nOdg7=xm`>c<gRWY
zYt{mRKc7>~T!di_`CNg2xAa}8ho0c-32lqgql+dK&nzrB?%q|0$`Ig4kdL_r-U9`C
zG%KWLb`VZn$DKPw#x}-Oi=N*X#HIRHMmZ1b^7W)YS<RBXjfjuS9BGoZF*`b)AzXm>
z<apIO219NM82N+`vOUhz0pmZhpJf@%rjt)B5SYfJCwb(<gJt^-<Cgv0)#jU#idlIc
zhaP@ia~ZN8;?=j(tfbuGU`Y0Mt-Ip~$OK^Ptnv`dvh;Oq+1(DVDXeSj<uZ<NUAUMK
z@I5(%94Fuow<n`nq1H(dy8Q9?+F5_p(-!taWWPRPR6{#cA;i#%fQS|hDeiA$nI^oX
zn6!19MU{wrU=v=Xo7@Qi<;K9G`EQsn*8^tD0!SQgVHVlU7>}IW!v-|C$*m}8wB9Mp
z+<e10UaelwlQ?h!W$tPaz|$pi%=&T)Kp-6ODMUm(_D}@4v@m$If|z_9jkp=qzpQ>)
zA0>M;@Ba;|q&2+}hE%pem|B#x3gdF_7Qo>P8JSfMzXM<@;^Y7HSbw1rT7XaVD)QE`
z$`fSnD0IgqW~shD<M{H5*~ih{ibE*zy~<8Iw^ZhhHZ>wWS)6i>E@WyGCJ_-LP`MF<
zGC9fP-EIu~_aBXYppD)aMXOFw4e8*19(pT%xIi6Oq+0!G>zw24yp<)c;ugCeY`PCz
zX;QzjLcg)s8{(S|V;8JJQwjIsRWk>6eiS5-i{?{bcnh@@#<D3`yROc7n^<zkul@*M
zgoD%)(96~j+Qb4tBr}MxToW&?tKGDB*%oVJs5#{;emq4kF6y0VQ+(o1bpPT2%&pT_
z>j{%<`}J#<<HHH;r<p+QdHiFoEj&x0E3lBHgZ?o!_G@><QM<Rr>%8;eP+iphT)Rms
zE`SpezE%plv*d2*2znzpG$9o69t_e|AkcXLvqKPpE7GqlWCKyEP*!9PLt9W<QnCpp
ztsSJ`p<p76mX;QwrG&y#i=fDYfus3grmvF4_%Gy3s1I!1cwN0zq5DPWZH>NExaOYV
zEillG8kk&h)(5^AmIm7Wam)Ia-vru1ss6$};>Ec`CR;<VoP(4olR4npTn%AfPyPL)
zD;cc!XXx1gN^O++KWc@9sBkc7Z2Wl>8G0&!F4d8u_(gJsNbUwPE?0i-<g1_B=yCNZ
zr<F80BAfrTR06t3YHHeymC)yxgooA83KRPHyE3n-zgAh_>|Q?|V^2(!kMML}GY)AT
z08~VLs!TK@J`7~zgk^f4G~kTh*xD^bZZ0!(OC9_xrAmzatmqBl-bg}k^MrwbWz<;y
z$bQ#BuAnfKzVyw9h73sgN>hH5t#dbfYHY0wWim3iogc%eiKfAf^~BlZQ+)D6`L=mL
zs!n=7@6!^#fhfTqvsYBRsdQNMUXyLHcIHba`+a;tN8!Djw+R2EGe8_)s|HSIMRk4g
zp177vCQopJkTeIcmV6YV(Q3W3cl{C31Jf#G`YJbiwuHxfgIraix0G+b&zs=!q4^W@
zjEshe2bcw36OYow@p9=JyS!0ux`>E;F!T)~uZw3yH#Z3FsqRH8a1m+duA=~z<7c)D
zmEfy*P&r50gP~r?Ahe@g!a3$-Zudx~ycT2QL|sVF3;lSb+!xKRG(?uRQTEsKvqT}~
zxfjqY{|{4Npz-2*^0)W$=-V$s|B`oVThh)GP_#Qe;KzDu?d0}$f?J{x61l9NmC93R
zSlJvc6sxNS^izP4WOHZsTJ9Fgb!<HS4QsTEW<UR3uB`qEV>$)Z#X!-?XdxPF#e)D+
zseQY=a@f<IlEgAIN((h*o<2=#3HD2wnD6%+<rFw`KpXcZ_x*@4^^)>y=&uPy^|42l
z+P4>|=HsmyakTf?Y2>hDwqvgB-*qySla?*|Xt!_C0r3`N1Y=tB-5Yujd+ulrjb%T$
zm2Sq71AS&G+(2XQ4m<IW2bzsVH$5DB_xi$@j~Z%9j0pM_ue6QL*3G=gFFo5%)%3by
z0U4PbTwHk__n3xt7WYL30r!))z4m>|2q^8%oh`Dx5oF2hvg)k=(YGZ(!CW!NL)%H7
zI>VQ#<9C?!3t10meukIdLB5}HBfl1wI9ey|lpr>`xDje*4fe9!=R&wZ-Ol&B_3Nik
zjhYyzXaZ_isHEY$b-j}&j4Qh7a=$x~o+dP+y5uj@D^(dZ(<X1qD}2QWyjVErvm0i^
z+4?K^1wzojyaWALa`Zt;DC5XR;+BrKt4Sj}T*V_dlcK}~ab6yA+B`AGf?K0S%amDQ
zjfxVzWUaW8*uBzzuYgNDhfd~i>?Jl-69wr4o`o1+Ng?Z+oAWR%BKmX2Zdx-zUAMRN
z_j^t=%ExC$G<T~?^mg7q)aG|tQM|hHTO_gS-q!nHN48RnZP2|>4IvsU6}1O3Wp;7~
zKDBZU6P1SeBvuCl3wHG8U|Te9h^G9^i!b*1!?|h1<(0XQ;Lw_5Wy7^ISEIR**JnNW
zs@cz0z`L#sqaZZn3<X8u%r^F@fWMz;^XOzv2j)<+INWB>{%VC$X%kPIAEG9=8ck_u
zD4i2!w9Ww*n~H7%r9)IK^%_>aB!l>Xn~Sb3PNh1pM5%jaBr`Cp`-6PVf2za0^fzz*
zN$6AqlI>e-S1R`HLCEMXt}Tt#)BG1TsV)BfjRIcrjIhkJK&^f1rcXEgw;}N2_d9ZP
zHjjBN^E$?fjl>Uh2;J!6acisrgRo}aU`x>E=HM_FU`OtBDN%14%?*b=;>O4-;a@lk
ztybMujk(glwVx-+IKd=65@H_p$EWyt$kB6a)2xoJom!O3HWjF!7L(YOKgoM9hz1yR
zeF6t#PoeJ1j2eAn+r09P))V3`ySKxhQ)dHc8{&jXzKG;uknLLlDh+LD)cI~E`+EMg
zPY}i1!s=eN_gY;Ns0nWoKbaCrxI<`f?KIp~Chg(*5Iqe(&D%o~kPeTC#(DQx*d(1G
z1D)PcM2-FJ-4i)nX_Or`(&>vTs{^HEQd`IHmyciE%~314xBIs}?CqnkzZ?3@S1yj2
zP%|(%-B0^zIFwVB<8!Z~s`%k5e1E=-^`c%jFTL{~6WsAZEgY6}+O42!JK<^ic>k+G
zE$(5Siezqx{%mopol@F9<Is03u9f|Emm)ImxnsN86A=1v=I4B@I#>_j%f+K2mKCtt
zHJA>?8l{zrlD13>Q2AJZ@^gb3Y4RSNsD2cX!a$i-UQnwQnP{28#%in3b;(%B<)g;g
zox7_f2ng{BzB}XbW%#P?O$95101b<sV(BC!cb)^CRss|l*@c-M_uwJp6TqZ0Fc7P7
zfi7;YS{$R@J2v1z=cgujT<uhunDoM2=_ypY4<^mssgtQ~#gP^A_vn>_`TFruYUz`=
z#^P@VFC+~W_5w$?@uq95RU80zYKhT|RiCo7<=!RGxy4?rz;jmHg<oCxxo2H8Ix{3B
zba+@h|Esw_D^;Pr0rhpQ7DxpPaF3M7pMFv%m>@x^|4_<>_~fXzIu$IRG*prh_HHPy
zHqoSVe;@H5XEK}#Z}p{qIAR^aFR+j_e5^e=QLDohLf?Z93pemdl~Y}rNbPPoq;?Q7
zrtjZ6i>3`RJg#0nHDWKa`f4;FJ!xfx-Sm#Nj`afZ(f)!TpdN<cbsA3k&`nPHZ{9p`
zb1TREa^=5=+SRsbFA*r8hz^NizoDi*b(B4f+`X!Q@2`<4mkKUt-0-Ts@`2k%)A0kJ
zf<)o3vdm3A6S*7N;oS*8MMSvkblv{s6BhLH^Rr=PAa8<ovQ%NzdS??vh&O2azGX&D
z38KQ+Bz0{xx8Kh_&tj2#Y-lW#%7tYXEJ2NUR|@|b4jiPsoJ0%~zqwE98ej9P<q=c;
zV<9MeS6sco#M@F)*pEKfWmV>xwNoYb?bQvhJRNj=d0lE5u!;>&<o1%xr7uS#S^0W!
zX`ci5_C_Wc)GIx5i#;Zp;l7?Qf*29S+!C4ZD5CFXYxUDcV5g2#L^DgINEWtp<@PQc
zI>qfYtU`epV8(gv+N;}$O(>Uqr{9Ce%P+Nb(+adLay7TZv!$o^E`MyGBk4TR0EZ;w
z`tC;adQ+Sb_F%t$2&b<6rcUycYP+uY7;V^>E4?D)&Tqx{Fw}De&<8E_J(Rk!l7Xnp
z=oAH7Wp7on)StZ;2AZ3K;esg+n}jHv3p@C~?^y`6Hq=IaNW%NLC_XKcW-8bF9=?0u
zh8(@G)BShW^n)kbGL`GQ9Ip`^v#FfN&JN{;Z4BeGy~&a`oBOF~XG7e-T)-_iW{ADr
zU#xzQp{9UG@ZkElAm5HVq+Vimh^w%M@A1e)6|_x`9^2yF%VF#ma|<)*F7G0@5uID<
zqLW4lo6~|luSj%L%9*qlj^xmzmj`k+8<Z=5v$3Y$Xg%tdCoU0}b8O-y?Vml~zd?1<
zue3=8G`Ibu4s-u@M}J=F*dnpZo4qKV=sIbtIq0xYrk+S0HqbMcUq*9i+pXH6Wu`pa
zmR&nL;8@A=AK%j7?Wb2IT9k}A?PQmFyn@som^h`e&>VKs%ibBVsqxO`+MKDwxHZo^
zY#)zDTA=XHQ|d*W;~eRHKBq^?Hdg9>3C^wqi2|~FygcsZsf8auJ|2$c-j{i#_voDB
zcd9GTK1;jn51yQ^*ILy%wB<IA@Le^?m?+;iE+0I)YU5OH+rVR#>SlV0EA_h8<!4Bq
zy?UsRY1o5`Hv9Q)*(XZZJCyFVJqw$kL01(@{rxpx%lG15c<tX86G;hY&}gfqWIHnA
zQUjWyzWFCG;IK(lTXWhqQP&(l+=pFt_}t3h`L&kZGq2O-V#~g|!w0(FdnscxLud+F
z|N126oKkVl{K?9qQSZ#ssDHK9dbg<%Y3X&dt55>mK3!{F4py4>c3KlsR;}FQ%SQV8
z*Vc-QS{E+6Hgd^FT6QX?bNQIm6<f*n%nVqX>c0=j$`rEsNUq+CuAF>QouE>#C8j1G
z@mwT<d+#7g{I9-arD%GKB;~ALq(qTIM?3b@)3lco!ndiaed=FXJ|E?#`Wdi>%-b5-
z-mLS;lzuGLvdS2pOq!SW&0JT9q!Q?tprlhNcWz0@hl^M&gr^Z(w61N}7j#ANa~6cl
zuw@ABdY36;=^64^x*AU&I~F_N<22^Xa~<44eOtUSevBU#*>|j|GZ8O#^RIQR+z1m{
zD0Vtx&`O{SX6nsY{9Jrp5C0?w$>{#3<^BAd260}2%qKR+N);^;O1ttLbFDJCfKL}y
zZu}ex9slpCY9W%~owlYdl6Fs0-Qp|SCF6T`mo@O`4c$vjJc(`(72@)FD%*{w_FpBV
zT1~*uTvKO3WnYF_J`J|`>(iIkQU^;63c#vlS3L8x*%w)Ke)Q-O(%6z16_wc?q+-3B
zQumEvZH$!dja_VP0KafeQQ~N|cH;HpuR#@~`~sy}j&ygj+oFSsxkUE%XMk=lU--u>
z4{XBGa!gE2C}V?anbd_;yh~QheK*oSJLc$T*nWS%1n;yOSIzlgWs;*j!0P)cvsADJ
z#*+hd8wO-j+oT9X#^yjUS#WIVnosvU1kzDS5<i-2(71W4^p9QL!Lm-Zj{wuPAhU(I
zC1138<CBrwDK>8rHx=a2;@{q@tvXJtMz4^(Zhrh`=HLnL+?~n<%(HU6S<(_>ueUZb
zzy8@245_4N*d@*`7qFeEOVT<VP+l3AwON0^cK|q@-d98)lZTg5aer(hvu%R*YP^n+
zBtMA_(_tLVy12d47p(c#W&b6XDk*v0xW-PW`-@Bn=2BDko@d9?;x}`(IgD#;H*Z$P
zz3_OJMOtvd+D}pQRJcaDL~9gN*t1H5&5my@5m6CWUivX>iT5n`r1)!Sd^ZFx`+=QI
zBgvb_pRxMLH{#mPTP*A<45_JZ7De@YEnUkeCX4LsznH}EOWhSTp?$>7C!sz*P2qaI
zQQA(%W09)Iw{o+4xFMK6G%r!QlvG|YNV{^g<D&JiCkJ9q*+vpYRI52YQ%TnG$_;da
z2D{2%)ERAV2c#J8U+nwHC~V;TJjp%!s$%AVI5UXO5Okg*!=V$Mojd&7OFh0mJ{x*<
z`(!G(bbWD`uKm4c3fc0?S*-^xF8j4E`>##Y3o<0{e9)qH$L9K-z&i^Hz`8*Hyoqh&
zrrT@}c9>sQU&<Z$o`Av6y-!0er3U$%^c4MC9zuM|73@NM8$#n#a(yS_RT+orCVkQ*
zgXxi?2{ZDOm~bY1NB_Jmd259J_M?{p&tf!Ct{)TkdDbRRbnPXPw5)#tPX2LBj}pVl
z(dx2=nCH=IO}|yNqaRLw_V(LjC!Pq}R`ZG-Vz`)}#s1n{4qb43{n*_n)j@DPl<#`7
zbLo{Z*W;evl3_lI0o&q*$|fF-?jN&6d1POZ&ZoWN{<7HjcQyI%vM4f`Kc%#)%(Hr0
zQrLYhSvTvK?J&uMjFul*!t%3PlN;xImJWY%Y2&$Wu5H75Yxa9u&2HjTGiXcflsbiN
zf&l$O>T~70{B<u%nbNrLupavE=(z=d`ghzQ=o2Pty>g}rf0W2j9#Av5e2ZsbwcY@s
z9C&*}qJN-PAZhTNM@AeUJ|rUAc4a<k!INdrFU@(6)uX3~hsNYsTQbvCx?94)efB}m
zjOj>?Y9rGfg7g^wB#!aY$@7AN_5qiB<~lpM**FczgS6Rrq9r808tyBeijVXdLYvF-
zR|G#O?86NbdwXDmScu)yYqjnQ*6bl{S+<rT_H(Qr=cIQXM$;X|%L*3Wm|*nP<|W*N
zq%RuXmw{)38=E(xxCcvR%vHSF!e5YHQe&oqnL%{1Ym6C7{aSh(%a?9`lWg&Kj(&*W
z-p`R`l=bXspJJy<3E?W;{SHNoO6|AH;e6iK&ke@ARrUFJe?-o{>&qDT7D8}$N5eK_
z^u+n5t{l4kL;2Jq9-lBvR6&;br8H3&UYLs0Z9jgsCkA%SL26lYYuEY4?=>OYt3!J)
zOjK<(^%e&vD;)Zq0!^;=R9T~A#a#x31x-lmO*|%k?K?W3j|&&lVj6JPmi9rhv*UtK
zNIlYKhf2xd(h1(4$CFgl2$uTTV2Ja(aSpa`M7E-EIH}ShwCJ(`rOr^j0>1L++qlZV
zd<+~#)jdiNd*$m&_YIB1$4y_HCI9@>+S=C^qqE{{*V!vI>W0?)8>_e>>(-_AdYoB)
zPk-VLUO}n16eGAeE6kO;ttvk_?jMkcuzder-^Q@{Bc^TCXY<`w6p|RlI%n~Wvplks
zNA}-6Rx)glx{rAt>e@}1`cQU9-HY#REmc#GQ{X2ZBNFb=0iE>6(zqkDG<<1o%IM3D
zDwP_}L1qyde~tdbkU1>8*LLlZM!CuT&BlpWrzU=SH;`CMO7&$CZ&|M-lTg~t2s?5#
z_19QW&0ZVTH_9GoL$aR5WtLnCyJ}Zzrz>APL{G9}`(-KpsyM3mXPGrDuy<+)RKx?*
zAolBlnKpxed`+5qvh*3W%}NEUoD}Vps<`C6E2tNGyN3pL3}TxyyU`hK<~gFZJ`VHl
z1%?eKr$UH@%&WkLOLAMy`je9U>gq^JR;9hx`<lNW@Vz=nyziK#>hSz*d#J0vj+650
zgrXry2=0mg`z5M8moSlR??+Glm+5H3mfmSR(ipV2{XX7o2o!pS)5UrZ3%ft-o(Fl|
zm}Pf;TD{ig=SF2iZZ?U&@pm1I&N6Wg<wlzf<z8R)27l`<fI;-JA6PlmdufNuxAHi*
z5_a$0RP#etoN}>EH4nDk_FwL;Xccdq)RViMVlLM%zmoiAmVDH}^HIq0K9_^tk5t<*
zSKXtx1%=~Kt`MD+Z6q0(2A;cDX!2$MAK%EsQtjRv2MEuqU$-k5EiY;wR>%s@6B;Xc
zYOAY}uaa-TjazSg?KhMUL0j3cR_iDN%XWTD86c+&vWC;LD(nY_PVKvy&)+_laF-YF
zvX73Y*YYD5EU=b`gLY&0Wmx)5OMF9-Z8n40@6DF$R|Or%XnF$0K6g>i^(^M`lH>~6
zC4an-m1=65zieWfwj$|!u=AC;Hq)j8n|!Qib{K?B=+IZc+_OEyr(FHoNY1Hc#khpQ
z&IqZ}vm>i-P7vxOOyJ4QCw-aes)$k3NVmGU994N<_X;JWSoU(kQe6%3M^g|jNp$`F
zD{AX29+tz;qc3ShmAD9R`7(Wt4HMIkb+I~q<*Dw^s7N1gj*7^`&%bF1v(I4k%)eJ#
zcvpGdw$1ZlSkrAwi}mvb$iBGnmX_fT()?82!ad4pM0`$JIVxZ0T9(4>Zx1zf!}`w|
zecIcvtOX$(jm+ab_xHi9=wD9^ZpKKoowN5DT43-_mkFo|a|Q88fQPMRrVYXNa^B;b
zn~R5hbXV=x>FKq<1?c%4>XVq=+>Z1&Rj*o(_78486E~(^JNo<#^aoQsDJm1l56?&=
z3FXZ4b=@oaUm{UUN0S1(7p}m4zPSin#OaBuM(Xbu-Y|1uCoyyM1Cr@8XMgZhR=Rw0
z{oCiLipp(o4vFBESd(01YwIueqW)+5iF0G`Ol=WgLxbcWfwVL&5u1-<ivmo1e8TEo
zvyZj6mJ4<)@}7xO?fMCS?=CYy=2ixcR|*$5q-8ra7Q=+tII{1iUZ@Yxb8?C$EAzR-
z`Q^iC-<tL%Yg$Y%#l3c}XU%8bZR&ii{xBKc-(re*@gV8dRykEtRQa2csHs1{RwvV+
z>xQLPtX?Nb8Q(oWUE6pKQkn<eoTmW&<cC+Q=IfqU+k@nmy)U*FZ$AhkMrvie-cIWl
zeqNRvWILqvchMI1eDzD_c8uj{{8q^oI=Z|d9<&^Th^uwq{ZF64y$54fh~1cy(kuB+
z77fP7r50;uwVEk(h_bg*Xm8J0$OzBY&OTL^Kq;&zHg=V@w=2Y2@$`QR4koWE9Lk0$
zYBN!Hu=fNrkgRNM5B&;95;IHAv&`8|2Wr5DJk>2!->tgr7EnuNl`$QCs3=3hYojVB
zXWe%g{}hJuaKd~w%(}mG@>t&B39*84&M{hnJEpWWzpE&9f{qsXPFZ)ekZsdo1#L8*
zoFe9skf_&hc94V7<uGaMyUWsp*szIiYlGvZ0fi8D*Co!5Stv}T!<wefc|gz-Q334<
z-sjCAriqM?r_*Y*6F0e~YOwHH4s+BL)<RLTe$vddRsm)H{v#isN5ZN7R$<o4-WmP&
z_INE&e}5pD2Ka40HiI7h!rt$<U0`dQihnq6wWTbnML0T&*E`N`yBU&3UhEw9VQD_Y
z?+yur2;x^zR#ujb{l1NMT}%aK%$u5zp=<6+1-8sj$@0q|`Q)oa)7NZw7`!x~l-ii>
zTDp<2d%g9!_w4U-)!z7ub`6u>S#!4~n))*}j`h2LzcOIv@VP&hHBy_HYuLWV#uhD)
z6*f4Um|6wJm@OJ_{(0y8q5Mp5uvFhpS|GnurxoJjg<EOy)=ct4`)r+g_=)a3q_Y<S
zxfWRS5f$k@hMGA<`1g)xYTSqGq+~gGTK^Hmkp&@Uamsq1Pgt8P^+#Zq$vuw~vVz=N
zax<8PE6iw6-Wy6kM;Xvh7ezVor%hxvU4vA6f@XL>vo3Q8XJB-E(lcv0$3}Tog*F|L
zQPNqtxE#$zyzPc}(P_6Nq0G*q)!{?McvZpLb8#uTFU;31bh*Awtj#=Xq@!gF$<pTD
zxcU+F<HxVnoX?*}zrbgW>Y~u{=ClFN;`$URc(rAgw)r>{OhSTnB04PfA{Z&SyiXO-
zy*4Wyd3JuvvmlmZvDANmGb901UcOd^D9KYbsrlNX3H4r(h!y|+=B?Cl)M7lhf%j6V
zWa#p>=;RLXt={}4-x9&UA4ugx91QY2JP<=W&o2w_`jU9jdWV{$rgn)#jWhpjrfY&;
zqeD`1=iRijNDmiN-<Mg!)3RoX`9`8;P9vi>HT|m0)i}D}v}nb8j}w<^(~ek`bFy<P
zNG`-Ogxx*m{LtX$@%BM;VuJDokMOiqH*I%B_~f}8m=Cw|v=22jwAHTaC5@>RJ7a0+
zvKW3!pIC;|YwWjMuAYBiU%VOz++_JtWlJ4fR{7D68Kt&JBwXVen}mpjh#P@TQx~&@
zk~r;Ms<^b@)<AofYvt03a8c2_+`7wNR@aK5E3(0c(COfk_T2|}&^B?SuG86q3HNhH
z>h=~24@fL>Zl*6Mh2;jy21j@EyVcH?)pjXBI}QA<0Owd_IyH$PE@6DKeXZrSK!UqA
zHu~5g)9R*@uFj+9hhKVK1%sqV<T*yYIKOUF<Y4vrNp0}G{wTy_yAoY%^~5I%Q12de
z`BB3YKb;jQD>q`bqgw?d@xScLj~C*zAjB;Blm(kIV<|JC*e;dY*P3=;ghG~9TqR;K
z^Z1&C&ieALF>zcwh~59}@t&L*4xQZ^^l5wHVDxY$qym>-`Y6QFD6QLW*NfrHki6t-
zbkWr`Y#(yeDSh*i%dfH+y+iElDduY=0^+4^{a#arT6`)#-oup&LBWHaK6H-Bc6UkH
zgj2P!wxinDy%kk(yRVD72Q;>CB9x4kjN@f8$TiW(kz}(q|9tz-<GsA(l^0w7WAh|}
zc9tPuP?Gmy9Xxnu%`_}=va|Im&7RkUTIaR<kL8j1Uq@t{s_ar4f!Wq<qPbMA?<++&
zcVgPwRdT)8BTjJGxbQpAEfqSi@8PLC@E8Fud={B0HX?65=*A&xP0l!UC`TUuI5#I&
zTp&}?(tm$0D-)MHarjKG{T+$pi5$oEDZ}R%3R>1bxQy3NHyJb;%a3|aXRjFiizU~I
zkPkx?j0)MA_#_34RYT%4p|fHSc^gL_8HpWCzznR_yiK8Q7|9Rs%G?$tADFHaoh4Zd
z3r3ReXTlPTtG+Q{Y1vIrCTC+Ln)t}-Z9NAMsk1cP=s98>7|GTiR0R>;fUjE{HxB>u
zo2B+p=_O@<(#1M)QCOXq^|`6$+~tt|kBlQ&T58_P?wd(AoFkVr9@-?hdas-z6z)FZ
zn&sFvUoY$erS09@Ze6t>Dn_-m7VTfw%`bco%}!wu4YaS7gN&_aw>GVm{v0RO!K0Rq
zox*YaBug{rsDazm4|%vO39sA9>!slun@tjA-DBabAYUpi7&JGpcCF_|?y?=aFDoot
z|8ZGTNYcfqP}<neD=io0_hb@v^U2fp6^F~XwyRk_dM)GL-gDem_n>l<X@JM-Z{?fq
zt)(8_7INaUqGA3)0UqXL-%7?1*+Ral`lhMSamIri2Hj4R`R0^<ym2EptNr&_108$S
zPdD4r&|)&;D<~6tdij`^kkjU#C|$f<dL03kPfwGUBH`lU0R?Pb25-ZG222742mBCl
z=ls40p8D~3=t?<e0&+7!P&E$Xx_io+Fn!aY>bY53Ly}yHXSYfn+T5Fg;le51srBsd
zGrheV_k5gZlLK6r(vKM>RH7~MLmB#Yc6HsYD#qo{`$+4M%}&b#v9d|YQ<Z=@@ZdhD
zb(ElN+9r(mrduB}6x`DMIGB0F&{wuQ>&$S$c|WjeE`ynYx9@(w4xtsc+{UJbTwEF|
z>?gDl=$ovz8ZsB>GTifvkIRJ*@hgc8A`FfBi=r;XLb@aGuAh;<S<cgV=eer>`ypzE
z;kSzkc;tJf;Yo>R%DO$<m%}TcxGz71R;o&W+v!8eb?Uv_7oYlRywP#dDx><CkZM7^
zwV+DZu*q9O{VwL*f)F{xI0UR48j}!WSDk$S#nW<?I*p^X2~i`EYKVvY6bQr0m2M%^
zR)+cz6fTg@@R`*s{$9Ai>#AClLkFA;BCky1VOKh}qdvYrcY&LRPr3r76ShiEmt}g9
zG3VI(+qq>?)MMy`or7-y)T0>Yh!s^6(#BzS+WhMFvZH)MlqoHy<{n>oNo5$uqHr;U
zzUcViX?44}V@`0$Io~i*Jr+?nGM|)p_w9liFW4R{OWzd8u?i-<5VDpK!72pNd8F~6
zK<1JN9$!KB^GNwKBSqf$!_)1Hcbz-+$Y`J5B~|WR%IPLw?r)dcKZOoq&fzUBguQa~
zG-|B^;@qzgA_bvAKtq`0CPdmVj(bcF@^y=)F^Z$CA*LL)RNP|VI;J-CUra4LooG{E
zubxRMR*dVkwVDrNXYR0-OqDVMy(HD@__dz;fOOAzWA&&#D`O!G=JLHw<*AS#PYAop
zDh2Og3{PyymlsbrRTO$z(%7-h64g^2<ON;lt^P!JDE74}WRc2mlU2**kZpE<Dj&g5
zHnp_3KUL(;^?vz0x|z5J(fo*wxZL9#Ksv%rMP`%5jY16Kp=W26_dB>1f*Un%Q}69G
zx(r*0!O0U&BwnBZnZ=_7+?VvmL9z59I5^6T20K<=dbHCb*=}2I3!+^S_uFeG@0A&Z
zv;-h?&lXZ$Ah)+9Qz`a}*5PMI)5XQ)tyNm;q7X|XLpS+nuY}vD#r@9I`iW>Tz6_}k
z_<@Wr#l?K4+;GPDJFcHcdCq#)c`Rxh+;RVK)WC+~A|R*#+5UrghVnG67T*T(_Gfqb
zow;qz^m^H!&f{+%4o+i~`*$|<ojS#WeKI-uem;uKJl&@*;dYOovs=1Gr!-EG=Le*$
z8yh+X;4Q>a#ARO-IW%=Qv3ZY)ec}*9|EUDDt%Bu6fiejbSV58<bffpA;RPp;lw)31
zf&>kORRa(THoVjVU-#A8f5EJaadw5mt6RT+>lwSWv4!PYey{jZm6C4*HxD8`^x+o9
zqO5epREMRCi5Z|%HT@h;vBX#2B1`wRS)E>S#S-5Ti8$Qq5*zm*N9gleW!ILa*Xmeh
zBhF^I^{uHGM_!J;wBpip0bV+BIdYtS_1L`y5E?;L*byWh*>p9gpe3wct+X=aXEm$#
z_fuqYarsF{eP`xkmM=wZ<!mqiS*pPbj2sSfRLqTDe{ATmmvnjNszt$}c+-8&k>ml_
zafv^#sq#qhe5{9v<=QRf?j`+s3FD_Tcz{K)W3T6d$03T-t-0U{`qv>y0V8Jgd@yY6
zkw6e`6M|_veaB!R79@!oH&24Yz+n5@-KTF@Z9sU&ea|u57KC~J1XJ_zLHDtitLuKv
zuOeNI=X?{Wo9ubtap$oT5>T{KqZ6A?ozz48>d;)M?Z}MaKNB~kJjm(u^~Lw!r1BHt
zX%Z*c{;WxUvm9P1`^OvGEw9k)276k+pA?)U)wI7;%+(ysFQFP*nG9C#eKh-iUeh<z
zw|9OL7>u&~?n<`QvtEnIr;-|ewmoc~cC)Sbjr7yYDDph*ZKFGnkXEL`_X+nRD3g$E
zINE8WCZs*c&}t+%yVX{0nTX)+U*9O-)&2~8Nd4iKp${m!2yvgk`1qKK$!OCFsc1dP
z56dT<7W*<#*qp4_5+*SAln_8MyfX?N8k;<1AeRiS%c@25Xh(Ogj8g7Q>ndLpx+)-?
zpaL1R2q7MakeKrd!I8_@ndTQD8pLkzKlM)$VHlMbholzO$xJs4jA1>xUn7&CvMkrH
z&$Jn;J|6hUXt2{swfid|8rSwwb)fq!=}`X42<pYQ(CG8&><^p?3hs|_uc62t%qv2%
zv$hSlCuMD=?|Jo%BEFZt<i>ijxNcJ?wQD+<{Tkic*H1$HJ`|76{@cBO(LgvTotT$C
z4=}5KNq5SHCpPboD;Uqqqj_qQGA*{kUP_$VQ_?ZLU!F7nK*#9y(LKu&_avU7sP7b<
z+f|W_6j@LX>=upvp||sa$L10)a!V-3A0m6Fr)|52=7jU&&1gynN~^dD==%WsDU*Kw
za;HfN#0Tb;L!#PyBc5nh4lwG#_E-&y`AqQeo^7%I#oNHxy<5r$JrTAaC3vSmSxHHI
zVcw-0wj~^?v6O)0EnC#yViq`sz}zx+*3N+x0=J>tw7e!7;kY=WdePC?G%|M}JSJEH
zm!GH;s5Paf@+izb;>!i=12YbrhlnIOUflg|SYc=TP^!2nmZ9k>4LVI%GJ%svCpDc3
zG=D9zBLW^9J2$3<ZHqh|M-v?bl(*-}2hGnM4{=oDYBA>af`?)^Rhu+L<#P>`C_bCn
zYveYQGZx&?%}@|?WE)*lkf2DW5}LBA26F->C8cs9@0`*ntKIf?Z7r%X<U4ZiVsyvc
zu`vx<Da0l!q&koh*f<ByKjQ97F@z8Wj|s09rYG*WA!Wj|fxN8C1H5*GNCk*3e54VL
zS&m|rmL42WD?@o=|LvZ<;2D3<QPYlaCWELr7Yrk1`=+l0-4?Qwp3P%pS1a0XYL>Ir
z`D^xV{*yR`93D4FaLFFmSs449W4Nh|N9sJ@aYYrjFL8%-XAN)r=-RO}n3pdW*6+3}
zV_`_qDeJg{SuJs&DNk-ml$vRhNX}E;j4R9JbL?(CKQ>9(elJh)TviU9ey4Fkyc51i
zM5j|aPuCL6nFN)pb~!^8e#j8Q`m8}n`?mTX(&lcdo>waFWT)v<@jN;Dt$@W?=GgGE
zI}R)pS~@yWFqDs0t>BXxO~BISD_RH1-n?W>p_#*5D?Mn67OfS0YiLAxOuiymRHwVf
zZ8wV<5+|gE@Yt-kH5ah-{ZQ#QoC?VHz7)iiK(<2Gv?kf&RxRxPs@ZKNlZ|-W)(%;h
zk3@|r1byfY9SBC>P76f-(%k46dGSEw$HBpMPq5hWL3mwe*D+Bm4!_6STWL^WWIIN#
z?bOjI+#?a2x!92V>uK?6erF<W+Py<SF_Hyr`5L}ytqM_7Q)j`<B$QQFMS3ZpQ3$=T
z#=L|TZ&KNa{fXl%6A{kwE|bzh2-PACcqAmMJR2z9(Yd8}JL+8=gV-$&dH;L&EEG6B
zYA78_+YGvAUhF5EVKH}&RUJo?r7SW89C6SJn$BL#b2E!a$7C+97TA{?oI)*i4SlRg
z%g%0PT6)~qeeqFNS(%nfmS)&hCMMOMNpjeJBBONbiXO|#?i=!?9IhdrVgTwyY2p3U
z9zA+O!Vl=e^?T*9uRLI=H0}N8$x&c}+MYxRDfrQ>c-*impXIL}koD6o)fgJzqSjYb
zF2L&lU%j1oR8-fu$45;NpCaa$gr)&hP}B$}f>EM?Ejk*S6e$7{6$YeA9~dqwVnHB|
z1;hd<9RUe#lrkCwRHV1aPy{12fJzYtn0enbnzejuy}aLAFYA}P_yZT?oqO-OXP>?I
z+57YLnVxu~IW+)}$C%v!pmR_}qv-aaD7c3m$ghvN=@XN^)gL4q@RQflnbU8|8zGAp
z#Le7I+3!9#f1QDBM{Yrx_mhTjqn#}_ObgQzgUm-?c<Jvxd;~mCa;PWcEdo&<HNm8l
z&8tM>J1Emxk-jYg+1aJQGG?nYY7|Lx4!RBCs$}>S8mRtq1t6N!B}*eK5<oj#wSHt;
z_99MkSt)GErf**y(l|o38Z<Q2ye#>z%HvrwA^a6S1|5g_P&y=s;>Hk%=-l+I20K(7
z0A#F7^b8<>G9=`qGsyFaa-<5V89P;NSWrwD>%Qjd_-pVyfXZFMcxYtv1XKrX`(9`p
z7{U*<Jlxuy>;Nsz==JvDU0q$HPuFCAGR>l5`%?26K>eYkaiPaf@zecl<t(;K9?L1j
zFDSQX)Yjl-tA)1YuFw$gWM*hca<YnrI<79q-8ryPBCRnMjooeVPna`f&0Za>cZAJI
zpxV?-Gu3x|t~}#{rYd*(m~2QK*oD1lk^!5Dt#kt->?7Tk7pd}>wRdexs^;(0o*6YF
zY$EPd+we9`7o%az$m}hC*RsC@MvfdotDOVIT&>V~l>?9?3!2@y6TQ$S9ym=jda~2=
zj~qGDSG!ALOQzQ&BFk{_;cQf!_hB9{c+QFAxH>OfvN1MBFq(8OBBB`*3$u$AqQfcK
z!k>|yv3q?&w(uaK<Lmg>+c95@ty#KsE0}jpD1Wy6BZ^d23nqJDIb0p!bArBZ?CqTg
z(~wHPxT5iXjk!kz?*M^Gk%JL9=q;vJ)3olS^uN~oK3rgpU!J`{I+o$u5+G^){zEiI
znmGC{Y3O3bKyUj@#N5ZPI>F1xN68T+zViW*0wBj{=YmKzEjgBbG3&z<q3uwa{pab<
z7?53l(Xl8_bY}AVzdtec@tH5JMb_Bs8(kxCYdck!{}h#Ieu&rS8ImOzymxFQ$Rn2Z
zmRTflj;t_wDP$<Ly5v*5mv3HM)GP#pU6|KA@M?+piPE1gkbEk^jc)zsS-%6V<{aK$
ztUIR)2p=HlbC@(}M0Tp85KB?z6RMEWxN*xI`{+cpW}@@-T9~$8OA5R@;rYsjhK6<f
zPr702W~91l?~gxTYIBkF*vW8!J;6}3<Kh37K6(^<Z&{9dMEPxWj?mdyd0}Z3y3Z{;
zZ7b8MN*pOh4nrrcOznAC`JuU0vt&XZ`r(bHsy5ASN%DyCpsMhhpuDi1P2_pu`1g<O
z<0tmF$AbDtM)~7Q{-1+P{Uf9N*Mm&`y-^PRbCgxykMeK-`zZhQAX9&1#=$z<A;q;w
z&L!WHeOM+0T}M%ATQ~Y{mcPL=&*u%=W{7n{-~@$YN_eq#Lu^H_YE1RY%;q(8l;Zqi
zHnExF7Gb_2Z^S;FWp+5%qC^z^Mt}a%98VPW598JRPuK>L{rSr?Kb0DqO$#mqmE*Rw
zO@JX=oe~6K>Yc)r3kEKQw4L;@5TvCc<pT6BhwL2y@3_wR^p$Q;O~T(#w<;jr->X-x
zGK3zo7=jl_ETmCF!M6*Rw;ov*OgZ{XVD;%oZ43a)ap(|s1l8>+noaJxzU)WdbibZn
zxV+!*7o?I&Gt}Bs*nFJxV|@eKk(ZLkNL=@!!jY<V`%hiLv!1D*x@YsJz5!Iii1ml=
zgtg4-9ed5u=yTJzYu;o)v7C)Ix}O$)r5R62YEK)m_@lK&@7mLd!7({&kT$6CU|_5t
z8$p@@6L$f>OD8a4(r(k38JJ*Q#5|R<Pd)#ByJVHu&{0BdSf+rjLa{$ua`z_b$C$=w
zv2vgl$AWOh{lPrm;e1|+m7K+6E1$Lm^sf9Sq|iDF9s1r<X`6;r$|P;Hpkqc4)i<e2
z7VeTs+u`BYc}jW|D-E4Z*vnVf+owWF{g>xXNb+d<y^SX_i$%~L;8)lPZXq&OEc|r&
z@2Om|sKiw`aeb2hQ8>FycmxRD13}5NBHh(qIA_Q`3-u(A4wN6!YQ}3%;yD63K+U1o
z5$-DFB_H>U5JZ_zRNA(^n(yk4hL+xfpd~>$8X6j+ZM7xaUf=iJ_Ux8C=WE)nGbIXw
zSUC48V12@*huA)L%v}wsibyN(tJcguW#ZsG`||cCV@hJ<RAEwlJQ28Hc3-tuhbAz+
zj;Jlcy>O#0pOw;CLo#{er-P)=xS<_BCgAN^6pUimP8cx(S@JE<F2`xywMg%Oo}HwW
zg3RZ$M#Toa0#Nr}LI0oyVlynjMG_|0-b*2-kABMP1y{frT8N0##>RQBrwh<PL!&L-
z@nHTA4&2BJbzR+Pb-H%}Wd$<BxwB_$A>u%&3PW!f*=fa8YkPdReEIUiQpMj192)A%
zbhcg9b=hvmnrQQ{r3eRx9bXzMU7=pNZa;Yg6ph7wkBj?wCk{O~_Y1KlC~9^*xR|HX
zRf8iPqT!C!*$Daj;r_nr?*8Sj>0<JR(D&uLP;FnpQO9{(@P|F@>v~B~D=JD3AO@oa
z8Q5OXP&{#Cv)?{Qm?M#q1I_jso0yI6w?u$RxS{-ql7Twf#ojL<ZrM!Y8y5EgTM3II
zVJI{niL@&7s}TcYNuPb`;>FLq_bi$RV)hIVbjtvhnjcIk?PRL5^_~Y3Y`;m}A@i#;
zOtw(x6HDY8l={%HeYy1QOoRvgT%^`W&RMF-aaW;rCVsSAFQ@W{pb=(@liA)`Q2ENq
z<`u$?b^A~3KA6oC-Ydqo;2~v(i+zWr<J2yHGQxSMaq?g!v0RHM6O|mGgQMX>tzWPm
zBJWMv)mmw!k*(_brcRa5*7gz@9VW;hLasx!!0jEmKcbgK+Ek%4vGCAk@!Y5=8Tvlt
zIil8VReJ5aS>RmICSSIv=6V%N8+W3^D_>x(xQ$4|AkqUS(hv&bRRt{UBD3QG42Nt^
zuBRV^vhB&UftE>DR#x;n+Y>{am&BQw0qJd?krzW1dKHnQEH&#`EzIn3SD)URrROil
zZmJDO3s&rmt(e-PI705A@55eh2B+)Xh>N!WyhLoBLEr%V%Jy4habq&z>MJ?GONH|U
zt8bej9#;oRPI?^_*i0yh;vm(qZhvr-6O_Q&@z7_h`V!Y4D?!eF9PP<teMvEVp^ark
zQ9sM91FTH9OJ_~b6kl_$cpk`Og9F8em(=tO4Z9HAVL$4+M(%!b3GRM2l4E-8OBXK0
zt&9oyrAoV@qN2hJCLtv@RtGx^cqk6klW%MHIJM-^*}uDO1V;MHZpTG?LTr173Wl2s
z{YGGC)QCe59ivPS3Q-IN=EP`^lRf4i5h?(r>+w%n42be{s*){q9r15YN}tgoI8>!R
zWTVr4q)eTh?)(rTzn0GbBfHunenXBt{5Mh<ax;+cK&R@!t**RNv_VBpO+V6_nWEH(
zI*vDU{j8C*GvVw<|6hc*z)TyRjycC(J$1VhD%CYI=?NJ%7Fv_<k5ql1>-**>dL1#}
zqSue~#wlJ}FyeGukM>#TqqCpCm!%=R3<zQmv~h9oTr@&nj*3bKES37#>)dbf4IBiT
zs&ozJz)gvFRdVW#pXGgD%;FE{8DirAx=VFN`dbqC?M?n;{Ru#1>Z4<Lt=U)6M$VbD
zv|^Bxg-HE&SZNbIJ-yK8Ggl0or?xt`2aM>NfBkF(7sOb@s73iA0-)V&n1=d;sG4F;
zjl<wj*Y#qwut<8RK;FCZz|vn|wHoBZm3>-S*@)N!l?Zz|9U%ywuqA)AmE+Fu3RNTV
z57ERyWl;ZbS-0PgjA*!b?T}cq@#m3PiSMW64(3{1Mx_SAVdy0W%589p0(i}Lh<D+G
z@z28;;iAZ~jQXP4?nB)2pKvckU-EyQ_`Uz}{|IVob|*SGLaR?idxdoZz`yePCL<ws
z24M4*=}1srEa|MtZML=?kbx-CC2Y#!-{`(qrW3Idyxf<rT}z{2MaG6ZgoRUs?M0Tz
zG;j$Jp2OJ)><R<3n2Gct7$zyq0RS~3XUaEQ+FOyg`E*Gf=&s5y_z+%I2i9h+w|2X`
zySv<`WARd7o5kXRGb2QCocK)=RM8fl#Z2}Bhp-=&bjfeVNKS*G*(fnd`8#UG6WicJ
z;s^B&P41$aiYrR6L!xy)LO2mI67F@Sx~CqST#L8xdv9xuuYwFvUBcd6&%S+RjVGvy
z3~T{eMD&eJPM15KDStUHRbU^(GR^M@^bcb--7&un(0(rvFwOAf;#yl<gTl!oL(v#A
z>k){GvmK&AFKhDabn(K|YJh|f&<Atm-@*83slnKvsLv)Wi;-X3JizZKT1O<{pQGii
zvKa*7o>K*lH?&w5U>h_MLEO8m$;dN!BoY;`JNM-pI785Mg$j}Yda!96jv0C~u-0D#
zO|1z4*Id#W3~k{T?h4G_rKM$Mj<97|HQCiY7hz4a?IV=>K(cI@uU7b?Lnuj2oCG{*
z1suS9Ub-uH#x&cm@@<CzE(uXxSUP!g&YN;=fuU(yZrMvibMq7;83FsU&twAJ7$K+B
zktA4x^1_3pDO!*s=<?OvB9}JJHn3=rUtl9s%o`-xCzAdIzW38D<AA`8lG8tV@&ssz
zGG~IIqo!bW>hU5qWF6WCx8S+c27st~i2{;ye%lH<$nIoob~(4A>^aB%P*{0MryB$H
zYD888lUA9oz#644j1PBo-0~uGP{)!4{5p$JK{TCx3^tTWG5l2FhG85xBxfOslLndU
zCZ;7JI}>vSd4@Z7&!P+m0^xFy%^$PW_AcRgKKE0T?MBm>3FFlbTbiF=t+Iy>P)@>A
z(Oqu{Ln<LiafznqV=k+n(*3Tnz!g3=6tU;XPa!F^pqHaP`9#0}tCgy%RSGn4b(%Gp
z6C09H>v*r7cY1+rS4TU@2Og26lZrMtn?x#GH@bHPQ{SV;vYiF6(}Ux4=E#2!2xk>9
zTtR!Nqw2{M2e&(zdQ<t>ke!_ox9UEiFvEjVp*tzKU+nnd;;9VfJ?}3sLUegiiLwoX
zp7GlBh(<?=yz81boNH^0AEH*`cYlfQH{_dX>gPqDj890I%zrn?Ykna>U-`UAcb~zQ
z#uoxejK6g)fApw<lg@nHVi4pHc8$(nr`K;@PX-X!xKaw_zGp>Hq6|y&V$ognw&bQ!
z{*d1s8=As4Y6=AAl*-fFi#ve|O7pQn-2g;K_M@{j(x=_29ja+UZwSKNczGQz8gNJp
zIb|e6-p=C+_(z4_V^XAykQP+792p%&actBRQ>;W*X}HkPj7A_LMoDj<{{vRYvarP~
z=@xlTS55Dj8TJ%|1Qr1=OQ{dOtM>3XhMkXzJT+)hzE0N&T+`|ksc)X!$AGuKH9g;N
zvwWL3&siYUzoDs-oFy{nxuP%KO-PCqxpiV7sKgA|5S%A1#VE-UbdO5!Rtjq1jwpr{
zC1JmOJOp2nu-9S36zOCy5oq@6#qfQ!1c6*2qifSLi&rPruS!{cW-Su@%8>_dp(<FT
zSB`8;0c=nz^d-5<_CoX9KZMmm@l+WJGF?Zv<C^4A=p1}+53sP26^qWUctzELS(rRA
z;VT=m6uCsifBhHrwQ2z`RflvcJ<fd8X%xs2DE`d|g@nJ0r;d+eQlK7H&UraF(|$mW
z-25&a914IM{OKmgM<J7(3A>KZ6|`l*%NignxXFI2gz4$&pn(D`;IEF|^F#`FLV=P5
z`4ei{#8cYWxb0ZAwlLt3f++v`V3X)-VGR&u(u<tMj(K>DL7mSi(P7WN^sPq^eSLsq
zK-difZRL)+BE3c2i&>8raW7`pDmbq9>NhTW`*aPG!3#NgU@luCi=8<#9vu8hx((MF
z0VUo);x*Bd5kS&tVT-={DxHYx@h4tJX!wsi;l@^LYFd!J77!-lp$fH1Q?rG8*9>mP
z?(n0z7P-iA4*r(4ojY0Ss_y&xpn19}v7KFy&N92suJoLqa3{EevG7CrJc!^PgZ;LQ
z*7Qn6`u7V|cA96~^-;uHfmj3ps+6%a9KT5JbOMTtlM(Y9S>5-%(CFAmC_02}K37t{
zA$IG@=(mHSsb6IqWuGK9ix%`V_IeDESyrZpN~<*?>X7O_x6KtYJ93(y$x0;W+z;$d
z)Ed$J9zP|EM5X#1Wb70G38e%=>`Z(cP)Z&Ht>tTy(3G<!<QeRF<~s8>T#k%Huy!>u
z1tovLe{Mr6)*{<3OvwRD+8$k92@lc#49ZjCbTjdWv5lcJMm#haXq%!bJdl}Tp}=*%
ziD)rqxFXj}(^*f~*KbB-nSTB}b>1yfG}?^YqCYKv1}B1mKS<8wRYl}cXzFOP_&Fd3
zYuG)LK@jgng09%)<Yc!<0(77;N*2_sSGq}m@S<qq@@olZfE*v?64jpglZSSaNC<rF
k4^jU_lK12EUxQHcUB1|guA&SJa*5*foq9VmwjDh2-w;LZ7ytkO

delta 66717
zcmZs@cOaJS8$W!R5!ox*BQv8^LiWhWii~Ux*(2F5D@3xBC?VN|glv)(QQ130*|O(*
zT+jFS9l!T|{o#4ycHj4PUgvonpLN_LK?JV@2;SjJpfAIe^gp1;@vGB!8R&34bRy4R
z{2``8^W8)wsp83((Nc4v`$jMB8r$C4>QA|~d?%|o;n%a_pN>^A#xF>IQq8=|n2C5@
z&@9q<rCuidFIf{QsoQhQ$^9xJVRE-uUfq7(i`!n^hZM2d)<H?(@TK<2(?+<I{%gqX
z^K@ekR`Tc;dat<>O|rw|%)sqVy%HQPbHwmc!d<@Hwr_HJI(Tx@Lh5K|+H*SU@;m=S
zZ<8ulf;g@!$scOdqg8IMxNGn|VuMeWO5-fG#@Tp|!z-OuC6n+&!xAe3<)=)KS67{X
z<mli@OH12~R*DjmvphL>>w`GcO1a&@YCBIF4eBW!78+{xDV%a=Hp!eVBIA2WQiZju
z;tcOI8#a!)<m(hS;&BpB=Gm4b<-=o?l$5beZ<wx@*1x!=ky&$GnshGUt-B9V-O(LZ
z2FmvH7cPieG$4zEC7C@RQ!YFG{MD7RbGSWGV$;ikG*nFZN6G~gR!MwO<C6(|UT;Df
z#dHOw>U?%iz;)~q3BB`F6G4GlEu);A++gV)5{ZY4HWf0eaU$-2^fc0>YkNMr&2>*<
zm-fN_G~-3v5Oeg9wy{x=Qc*FHp1MX+&-Pi0LG0hL0TJdga=rlsq3}ISUs}cY-K)jd
z?_+d)8WSF#U?ugDRrjv<<6*U-WD%C}6Dw$uR+5XJV!~G&u?&Zi58^&s1=R}d^u)x(
zYi+k(jExy3-2a3O4jR6{|NZmbYAxyAH*GV^wL&J90sV!yrhm3XuCA@=oY&*vh;F1h
zrKrdMmO3m})P?uSiH8d3e|1!-?+MN<k3ZRX+-y<j`8kS`iZV7%5PkVDr*^1uOK~QZ
z8&!YS)@~Z591IKabA7f`gfWUjiIOgoAUQdCXQ8<Mon<p2DXTP-#LMn3of}HJnaZc0
zu*$H=9Bxnxnb$p8T(mb7qzlgo|MEq{exi=q{m+lsk?r5#Tkm>3f*;lFFITTmWGY8B
z&2}bPo=;|r;Q03ad&&LpXYujz5yWw{5)CY_+sm`}hzZYOnkF*ir&W!MdG;)ngkETJ
zzBg0cbCqqw`)X5D(`w@h)=Eh!e(Pros%<Z12y~Za9*=P-lU+M~zwO1v(>QJhvb2VM
zE!YKq<5JK}{=maA_a#ln+)Vo6BEyTzPG%OhY(%Tu+hO(fGA!Qn>>KbN``C2}&~4a-
zgC=t;E794nyieZiPL;cMjp+RO^Uh1d7ftGXPoH8G<Na|oSYo}t4r{Rro0QIwm4YH*
zyw->F(j~g|^mHVkFW<l#Hr>gkQ<Smyrr;_PD=WoGnI&kxzrEhv{ZcYEIhil*Wmbgn
zJ=2Zjxax=DzdbAl-wzYOc1CrKZuAx0@Z}V+JuyP9^E<igE_TKc3KkYK-l~Q0i+25O
z@qtEybkz=$59X1=n~_t^Vf0l;pB_`YnhzA2;vuP5edwsqYBb=HOCd5cGVkpM$kP0_
zPM4OIIXJ51`Y$Iwe;%HDBb$SR1J~c*KgYP7-+OEEv2gtX)$iY1>gYEb+8b6@9B(y}
zgYI^{Xl!jgas7o@W8tle*L}9V1x6Qk>$+ZCj9*DPcIrsr<9;e>uB#j8d%Ux=L)GF5
zOQex}o*?SX<<RJ8au&Z09XKe=_wU~)bE+2$3JO|XL62`8NgjLo6d!ovSZvJqUfTEB
znF@0`KHSEWO-|xb)k3vewPX%Mh^f!M_S@egI2&_D)CzxVX~e+3oivM;S~c#S(}XlB
zlQ_ji+aIzP7HqG)ew{8buQ&5Q+*%x>HZG*YJ3%H`O3rQmSB;62d%Np}S#j%&i*`K~
zPUiS0PISg^MzLIFREcIew{>(jp7_jV$4{^2f_q-e;d%P_aEgdfpq7@F3|CyaJ~)p3
z>Decb{U#oiq^4AOGgBdq49cZ!{MqZyzrS&RNxkxY%ra5HYLA%#9mDy%E5kl}TS33}
zl9*+*+{lM`6)pL*vy2u`B(;BTeGV2~Wj;?x5pw=XM0j||i?{kdGrr~<Ggp*8IE|%~
zX0mhG@%J5nUV?WZ*@q_aMy%hqXc0~65=qt&N$FB5s(59nL8GLoqGCPM7E3V9bj1~4
z<tbC+kK7wBtCNkmkF~S*OU7G0#=TCs{rbY^Tn$%TWLo{sZa}DJ_gBi!)`(MYv3Wh!
z(nv?5farty9$W|4W47S8f(XKfs4B|oou+VES))-Z>1lZWlM1zKY0)0_hIRJae<*eM
zpmBJ9ZEY<)I=c1A=?fI}^kHYOzYu2%%Pgp%WMDA7onl;W+ukWJTF<#YAhX(l*L~t%
zaIcM`wzhWc!a7gPEhvq!(XjVY_25%&g0F_Fn_Dm33#bjX4NJEw99y7lQPR<c2A?2r
zx_y4g4}HnM`NH5217DTX?gxjF&_KKs^2G!6l~>Wyx|T?KPJaHA3j@W%rBDCDF6+tD
z7Z|PaD(jI>lk%eC(R!u$;DMOLgZTiw6KY4dlCP;UHL7QQg9mB6k~(er@qygZaQW22
z!oqS)N8+gY2R6Si$h-kcY`y3t!p)?xT$dJ8j#}`4<2e;PJAB6@%+S_q-Mzu2R2Wuj
z{Q9GW<_pP+dR31rikjcKpDRuJBER)*NMvz`^5>YIN7yVyahQDi{joYlhl|l49vMul
zbcl0sbY$!1_LSaHM;cb@kDtDI!*y9jZ!pQ+--wsb?i?p49_+SCmucnX?F-QI<lD!5
z&}5CX8!Hp66X<d6*h5*f!)c%RYNVsDFG}EM0dK;!_iqOldb8A%tf=p(i9eW+sYx|A
zn=*q=k(iX3ndz|Q4x7`9W)(_P0&x#9>=U^pAyYLmwZ7z5#W=2w<*{mQ+#kb_sd*@9
zX$gWGwM!>W-&9(^*{FjyOsb=!gFcF@-X8wwF7V3p=VSTeTdHwAaQ5ZfO*7U*iOo13
z%`OjzFCKS?-WJ?z{=DwNabB9?l<3e=(!hE?4X4W$@1$^kfimK~*))!&sJV3WO#;_#
zdj-cYbn{8)WQU*ow++3+jp@+BeJy^JnJsH7Jd;)*;qPQHkV{@Kx>7B~%Yot|2XivV
zu}Nnx*@t6$x;2_r_)_i^f7#uxAmhT%1LkPd`}bndVMa$yKDD&8b8`dKF!TPMb$)4X
zb*g#iSBle2efIT~(3zRr(2AaGoK2NMS!#W@pAFRS{ETe-^5y-R@35CA7ZxJ*^KVYU
zia>*l<C=nImt$IuUgA=1g7P@Cm96<Qh)b2=2+CdO@}<<xqx}_5HZ}xyUs7~R`|YOo
zc%I%I9Zp2n)%85oo*QpnZr{7txtTHHy>KoC?-4E@-mHKkEPez$aQbu98CPBH;sMUH
zX9=OoBLRS;o-kg_)3A<?h-iY}u5C}CoIE@#D9huQ$;pp7Ri3`KZheZZ$3=^ZineUc
zeX%Zu!nZhDMJ+r2CZfOiL}qVzNC-Y0XB>C{0o9*7*B@KInW;0aet3#g`3VwZz;e4K
zg0|BC@S~KGxuz!BQ)bD~wzg}C7Z2<5)m*o~zpkfBzr5^X|MyoHB^+yL&R!F)uCA!_
z?)seq<MNZ|jNkJfHgdXB0hBpOb;FT;KjkYz6!0?sgYI3z(#)l3M&4q*@*te3x1YSs
z^vhpRJYbr-u9z6Z%VBq<$KZcd*VfK!d7k~Asn|xRjJuzG7MC8eV#E96rv1mfvhH6`
z1ilXPNXn)VvF6hY>>H(K)8VG0rG0c6o$#fWH4FM1uO%(F&|f$;Hy8HNeZgwJC*82t
z`(lxK{qhF}tyJ+q=z3VW4q}td@5^vs=of#u_&k+isLGA!2yWE*g}K`8@%W?)`=KDd
z8*g7jC)3W=TU}q52kh|<4qVN_dMC0j)M!?2t6#FeHJ66|Y@s)Yx`k@TauXDE+87E~
zN8HSB+5J0*A;{fIFE6jDUKQ4J&Z@frB0B{Mb!gT`-M+F*N}k#L)7K2}Vd(=Dq4UoK
zjd072qlU`vWjc<1gcqg2$ALCGKVB=TtE)?K`t;))*_v|M-xG}%p;<wFY%KdK9l5u;
zppgAtjso8cU2lT2XEjmh=ebzYip)g)5mHUd^3y1=yVTm!LhE_eMvPHvy^V8csbZoh
z_XZEaR^9Cc31zkAk^Pmqm(E4d&Z(%WMQ^uJK)Y-1>?DB|%Kn}XJ3ajIW4UOStH^8F
zC>w;}&mYI(_r!3tL+k77Yn&urlCiV1d#<&h^d#2_ug$1wtWxpuUcTEYGfNUt&(*r2
zA}Bb}IWg<jLRsV9^I^#(&J-W9VO{B_1fa_|dsNz&ceiTk^7ZDYtd<fkgBRuaWLN)&
zP2|VxT=W(=n0SR#Z*aEhxbSxlV=aMy=0xzMQ}tUG%EUqf61qviQmz>s6Hw3Jxz3_$
zq%2Ylu%rrb{#N0%SBZT{GV^Z#HRH6Kxv>rfJYQq4cVTm|+Cvz@j!1Y!1b->39K}25
zDfugu`xD1U19znm5z8igsh!E-ha;6E1x97s)eo0A2Kw^!)ipo9l=3Ro_#muGWriNQ
zFAkTJz_p(sW8(c__MVN10fpXw$$k)!Q$5Fs)bYXJ!T0y6^KKRz(^*O?X6af2tV05r
zB_Gm^)V+^ZefaQ$l&d?yhf69^d3yZSv*$+Bp_<OrK@~4BsiHze?sYSzYzF?_-=7R7
zM`rqF%QgRudrbIgA72R5w6`x9bD*lC<}u22Ri{z9edkV<BuW})cqFx~z5j(;<@I{S
zq1-f4W-qU>dR)kpC!|Vy=e~Up4zRAr3uUVA3Tdzv@$h?VZ=H@?V5huRX`tC3{~l^k
z^__&6>|1rdUL|GO^y+aUJ54LR-hZAqbql@-yiOh>S<!`Z@$htZ)*q~^2X+Q^{^&NR
zUHLXKVa}p7r-t^&cfoV`jPB>Un<~V&&$z7N@oKvPle%%_V%lF*QzPZ?_!!p1a<2Pj
zTSrGziFK><#=OqrL_I4!VPxw2!Fp5%qeE%v(dpy8fqE0Fff#m$#UiJ^yu=#cgB_RM
zQd{o*5|-M7VY}j?rPi-s$)WEI)_7g`IX%seMr3q-{ZZ$)KfIJLReAY0TKw*v2$RHv
zoI%F6EcOTvGp|`%L1<NQ(|9yfd3!@_(Bs3)-W&6QW%s@g+m|_xN%(G$dF*U_*IL_K
zD5jTWPbqVpsEcAn4=81h4=zwqQ8`03#+|5LPuldp`b3%Yy>Vezo!b6$Lz(Ck<SeLt
zMYM7hW8=WUKvtG<>J{u{!OonSP{vrx8K)YZ$qL;g*Q0xH-JkIB@vW;8I5|0C^-{QI
z6_@Z7V~E$^UsG5qfgRWL&Qd|I*sOLZSbhdqV^z0`TU9skO%@MD>3OC+ZM$}jFr#$8
z8joM!&tH8Q*cTYPBELC-Cd)dKt^c_=dO_mcJN{1t*-aUJI4oP@H)&pN?Xk~RS!E<d
z@JdUwR5(pM%!{@S3YT4pJAQt$`(rS*i;J@_nfrc`S#3nVK{5Ym{(@eiao@R>JN+`q
z^|SFR^=ZEb1UJOC&*qwzlXE9CwBOj--_HaRJ3m@=VcdV;;aXfsJ$kf9LP96l08A1G
z0VFO4i?<Zl8x8HLer%IJ@#Lv9mp%d0eH2MA{7hA*e`RU+qUI7Y2}!(g^w;+Gk}DDK
z&1$_{wq_l1aJGtz+Jv1fUe4$S4cUKg2*fJ^^0>3N_Y=qpuz#15ZT0Kdm27NyfzrJ<
zJ|}&A;HHQwDYegv!4EXkq@yavy-D`BS6ZP$Sc)-<!kJc@uGm^@W$nzAQpe!p_0?xv
zqN=K@u}KQ@@)pr-M4mITDkhiKe+*%V(1_>r^|Lq9Cpx!A_meN!^sv3RAEJV7@)>|I
z^gN#8e6w1K&(W;W0LX@Zh1+u&Ouj=|I0%U4$oiQ`osY8=v*?C#f9|KrdoL0<%%Pm7
zT*t_@SS<x#C-ygcv-`RiIWkJA*u<Z4>Ef-ruSzQ_K80!@#dxs^p78Pg?{9J1)S3KX
zH)bvW9UuA?IpXhSdxMI*_T*=M&Mz-@`Z;e!T8S{Mexla0XbwG<qnmY-iVCGtOBf{x
zAeY{eWl27L=1io4nHK@D=s@GbXLhR}?tdrT-&z7L!i>yZAHF#n;+a)$)p9b7Dv4WX
zxb;&nwT_zf)|T17$j|lP@w6Cu17ris7Yn>^X`})prXmcao<O;DvNf3t3`^vD9jLAZ
zaeC&C>gM;Mvl-9gI9;1rf~Phf$6ch;BeEHx<bSj!dinA;YDyAh_tdm6ui*?Ul0hVT
zj#fK2{Uj+a{wqn>q>YUSyOBxRwf@&md)J!z%V3vNQ?sM9l5@cNCx~tGyO#Q8oEQA(
zXrGIA2TJCMST|<J(D3Gh2oMt=Zy>Ld{e6h}s-78Id$=_Mq62hJM=#+r>AN^MI4s-#
zwk3u$rKHA%{l9XW*T3x53W$jG+=&j9jI&r4u^$xiT2BYwH`!-ko;YB{il;-fbXK_7
zwEE^xhqK(=Lxnd4A~--IK@b}#)yW$-K(z4M{g$O}^Zjkq*z-cWw7s33K?ik$JGXD6
z80{2y|3d?Gm4cNu8U%~tPuu2zJ&;L|96n`6OWT&cRLg4eS*Z<!osNTm8b*#uV%-EN
zxem?j#}X(_>dyo*+^t>f?GF3BBi;e00mFCz82COO`WVSX$H&F>yuW{=dI>s=R`o)n
zXP1EclZ4R<V-(|4^+$X8R@B|OeYR4-sXQkGPptm9p=CMM^ys+^Dt%TnHQcf}G#!A%
zY~9(*`Wgp)Dzh(mQcqR<`hIwN#?c6muWV;HYTWcy$Xn$?tC7SXwXGdlt(t|QAMY{`
zI7Hi*9tHinU(Bi-y6GmHrMu=ei7!W?rpNj2nl8~d)OO&JXa4Q7KD!t16~kYKgmRJ+
z2AedGfBpKEGoGqH^VjGa)7Hj7>?RSf9EFsS|LfJcWS(UOue+vAbK`r7{p}l)9?OF@
zGvXI7_N99l+VvO6L8EXeijIy>N@{Lu>UhJtpnKBXZ<CggjLD{qHMo&2>7LDaO;yIl
zCFaw+i|Av3O^-k&G^zEb#W=pNuT)TQF!LYIW3I$Z&JUed_)cnS5u+=A`tq0hO&%)o
zg#bS6=$!E1FC3E?rWZC76tOhaN%;4I0<!Atv>PbW7i{zqPE>mY!h!|VA0*&<$|cK#
zowYlq=Qw=CzdXGr7gQ{B(CUX0<v65D?#@+*?bQ*kGH-=;{saO`PmMqS%D+x=2}vk8
zM;R;sRx3?NxB}j3gTzAYJx~z@*N@`3EWbP#C3CnSAu;^xw$a_Ps)mq=t+Q#aZ&}UF
z&9AgmQ&R`S-WnS1o@tMtRj&bVcE8M2)ktgn-qq80mE3^1g@lHpKjFf142oHx{w+DX
z(g#Sn{)L_TkcWg;i4r(a+_6xRvfF*b0mrW5$Xf~Z$46%X!Qb%R-(KI|R`K*4|5T8F
zv#{y+_v}b}o(QXwcw*d+nqP?+LQK)jZVte~LlD@VjYo(3OCKs`ch;r{E1c5C)+zgW
zIvmGqjL^I#iYt*A)4Ol{Ualc5@^z7cqK+qV&%^o9fMZ|c#@4?=Nn9Kmao^ohx)<+S
zk9PCJDX#?~*Qjc$ui{<LZ#`Me!{I8csEGfo`(@<e{x(K^px(I3%g1ruzI*p4sCb@x
zzq2Wsna@qE4BbmR*P{gwnWg+*Tz@3dUx?m15!{Hd2?v5GWhAvb6K`1I__A44dT&0{
zu=-)4)Sqsv5;k^roan1t3_xiJ5um9&5id>Jll||0dCo4ZqOANA5VZm*r2#e52?+@y
z$NTli&G*v$2$3EeF^2QE!<+ZLi(!#FJJWpEiI+#KrXQruUWaY=LhOFfd-T0nNJt3w
z3ZS$J>YEGKZp77$esH*jDZ#n9x$ABcmoL+!2Wux@`L3%TfVhIJ7a8;2k1|&=Txsq}
zS13V`{i|r=xKyuQzutne)t(;hu(Ru~p__lj1qDg5eR|*xjC1a58pu#rDX6J$*qf`t
zEt0~Z#v(dYHan~NQUcqX;vUN;f$O0lzJi1%?!Cb)4eKFKJP$}vQCT?ycJSZ_hciGc
zPD+taPfzz2-nv{>TN}rrc&9y=>J)bsmrCKyW)Sek$H#&C@IScUS?ibZYmr6AYkJe!
z4Zquz`1|j8k+frKUCm2+eRgu+OPPP5jhm4x0pa0NX=((=71;{MUH96ehDb*xR~42B
z(#DTZq#ZTS#?~k*X3?HGv#>e~Jd9jeZ~7ZB4OYJm%5n7A54btV>a<=H{)c;02fKd>
z)Hnt&_#b!*8oomSB?Wa|vMp!qOcECU?vH6T@K{TL^+<rr^k>UaRD9&(_atHSrvU*-
zwP<2US{f^;wNHWSLf=x*+_4p7L>d4;kUS~aQiMMEsMiJ`0fn^XSJqK~MrI}^aLHFh
zGhRFiVwfCIbAS@yGMHr4tw(3a0m?A*S-L1_REiJx@{;i8fNlBu-?9QAkf&l}V}Vql
z!T<@6R*sK~+a6-Jhohs=Q>H6cWnaRnioLj_W8?PesHlRR>UIgCW#b`&CY2PRO~0>l
zK%R?O%Ewl)N<PG7l!q&~veXjgdAh<)T5>6CfLrC<swf&m!RAnwl|^c5YtwJ$lU(0$
zablf0O-hKjxAB|vxHIkCUldLxfur!!9SYhY<5SoF_OJeyq^T2r8oJ!>udz%;see95
znWWxeTzN9+;_7KJs_~cJP1T(@Fo97ntuXj&LlO?bf&>+1;t$D{nqUx$=&BsQy-|I*
zpuaWWiwA|U+=p+g7C?{F<r3X2HCiUghXsR=D--7L0Xtd`(MCVy^w|Pq`h3?lSFAuq
zbM6ADkjWaZSHdH>(22#vvhoR_v*P{-;(+n>G8{lAXuE5rOZ<24s|pk%hoXVs55&FJ
zxjsHzGQKNnNR5vJ)<FE2>sgRdn&H6C^uFEF)Z<<IN8_t?f;*_Bp`nq>vjDf36UZ~F
z`}&KTj%{DwBWfN^nvthD1(gT%kMf0#UYFhj41o4;+Sre2Dk|z3<t~hqr%5YJUcSqJ
zpj>}q?E6;*{mh-%>xzopiHV7iU|(AIW+-`1J))-oeev~cwj4eF`3DkWcKxKmgr}PF
z^z)s!mrXGt_t%U&V-%s!_Hs+;DfCQFrV9Da?k+F@dQgo%V}1MYR~ewvC6RIjat$EY
zIsg1b4C2kn#>PhN{63qpj~B682Wy)+|LrdKo=$$>&SKeD%s#65+bu~%LK19T7+PE`
z%)!aI_B%W6C&<|kRfv<6p-2ju)r7B2w`KxZymNl|Jx4AIr5_xEFsKu!fZZw?8ZtbP
zVAkWO{WDM;os+{0GBD@4b6ry}dY-PYtu=y>_YPJX%0UynUr-ca&o;rCb6My=CwBka
z8x8BqBq;l^@b7%K9YLiy0eGtC_k;PNGM<}7CXeHJwB)nDw{to!ad%=M#0v!!a+$68
zc4t@0<+blxGL~&I>^6h%(hpvc6BEk;nGx~Xvj6n?GhNPa(wSQGn!P{ySfPU++>@=v
z3WS3e;|Ppm4J5)f0q`8tP-#8q)5Fx>ql$OrVp7{0u7h_rcp(akQVzgxfLYq0!GQhq
z8tU1leYB00SWWS1dsmmz@zEj9%ypsF-MO^tD;%z2)gCJyE4hFPoZZA`$c&7PT*uxw
zG{_!#3O<VERKdJG0F6M`<Exupo;O;^-n>Z{P(!H=R-@z7HWxfX(g64&C<~FbCe?yp
zk}s&#oxBf_3NT?{r?qqFko_~e2yfKKCsQqvANz|NZ#CrP<#7=U(9yD3yp)#RfxLQA
zRY1?JZYbDVo)60@y#oGRs@@osVeid9v%kU<Zp3a!<%p%`HA>#;pvlJ5&L9W)@XuF=
z^`(^A;WDJB$W(HhAoE>Bjgw+lONNu;|M_C!0&VaDdawHvH1G6*1$I>`E>(HB2-q%R
zaB<UZv788IGj&q$dj(;CeFrNo|NiqCV^|T-mD=sqai5hThwPjAYd}LQdHL_?&G>Qh
z3xE{<e;%sW_#;oB1XO*18Lz4pbWD`SFK2w4Br?O^CW?I{U;lF9D;v03DVH3Y;1ykd
zeK~#m_U+d|`#lfVTGtN#ew~Jm99mIPQLW%^i2Z$O6TUDAoAAX~1Y%PRSMKPBf?h0~
zIdCco9fse#c<@H#x9uzI-5iaZtaY6|2@XpHc(NHlm_2_b-ve`b`l)s}ikZ^?d`Ug~
zNo-bY7M-2u&xowHaYj!<Ul(}i4|kA3%F{V;1Q!?Ad3{C|lX=v_6#l&qih7oO((S{q
zuKK+5STS21tFGvA-kX`30SOyvYipAQ`eb=2C6O%b->(y%)1)iaSna-W)2r%6HmXU`
z@3+}!fCMC8xYuNViSz1J=BcSEBmlFIK_<K@!Gx{QKVKOq)z|QyK*gys0k)63KqqL3
zIc^#+#E7B8!9jEVMvv6(FH2@Mv;X^VIP%`nXsw!ke4uK!wYBvu>Bfy4v2k%hAaN0c
z2?YCpwVAxL6NCu8|Mv?OH(KznZvpMbMUFO$QQAsVIJnS8&Huk|sn&aQW)`eiuU$~Y
zk$|_?Q|N4jRpV-yC@5Y(5dY6gDbm6ckB5g7dF?{USYHR93_%g#tLA}Q9?PS#NdV;w
z{_n>pePiBQ7$65_77uyCAc_kcMBd(B(8}5xlN>$0Xh&}!wV5Fd;?A$XO~srjGZeh0
zuI}c+z|wsCe0ygc7dy~`sNR@rLvz~3IV3APTY&=KBW%h=kS?-j@pp0NBD!clzv&G>
zdUvpWUWaCEonhwJua3^&zkjnFO0{)$LBD_C!9Z4aWab9dJ3M1PZV4cPnf^7nDi#&E
z9eR2+SoZ++KNUP7a;epT8prjS_D91g7>&rf?b_Dw?<&8Y+k$iT_<@^!lq8L|JhTRx
zmZe%vt#|<Kd`u~Qf}aOOHy&lEygzKqQ#jY9`r{kDe=fAyU+PRFhAPV#^|_1kiqP?=
zkZS3#1t++muSEN>0PsmoWkS66t*)+>WWV!YfeP(1WNmS{#{;*2ohE|Ev)uUHQ&yR$
zAjF$gI^)QW(`Nycc&mLl21uDxNQewUMV!WKaH)$ZiGvVUR#sRD(d9$ACToK$02916
z*wgS5<6Ep^scWEqvLuhXU0%@n`f5kwJRs~KgUnvf8R;3f0S}yonG86bt;`B#LxMb>
zeYWMTE#x!@W|`lAOS!UQJKscU4PQ9sa_?}J+Z<+X!=jIZlBR^7b#j+rez-Dz3JHJm
zL@-kOKgT4Tzu>&;Dy|o&5VRtv3aHi&9kze}XEU)xYW!0G{`uy`o2|0?XVV+{D>c$n
z>0%ACZsn(K(+WpsK(_>JPPms)6rv{ob1=kGHCMaQS69z~OOA&?ona*#tGLtoj6uwX
zBA}+7ZJoO1zpthzm8~WQZ~98r8A{4Px^u?j4~_w8d%2c_^v)?D(3$M~KkuA2o2mwE
zl6QuJNB}UvguLj>;4>f)KX|w}IHmDFM*>ZZxIsJ)I!R|ITu0U)PAMr9vm<ChFNy!B
zV(7Z?H~K6Nih5N&TpG^$lL`L9x~qvv>V+wa|15z%zb3cm*H>2sgnfK`lJdx-lyBTd
z|9b(q({2!(sm3KlWNPej{<k`yZK-Ojm_oendh_PZ+`YE;cD_=X|NNe#^lL7@6V$NT
z*-xK7>2A8rcF=lN0gCDl`F91RZAiW124;PU@2;yyn7pFi@|DENrEgi0H8rlY9lDz(
zKwCNXIrB6W4~?EX3Mx4MRB5|@fPA)#v}~6mLj&%p|FdxRluDE!9%1Y~(!}XfN(s0o
zQrn|$fMbPxeSIka1%pb<AtCXxAt2KiPB!ETz|Evk>doCzD?5xRfH&1+TVCnD@NDcM
z=<5w{RO7MeOwGnOb)kr&cTk|^^ZR}RymE{T4A0@JNv-;O;j0wNDf~6%GPzUjCLPdz
zb>HJ3KlC(GE?qy`2d?OTmZ_Be+&PdS?Hho2xIhIEvmc}wtM*WVw+V<^y>AYPttfir
zTkQb%<WU%_f2H1`0i%`BlY#mm?rG=75jQGJRT-j0C*Jp)t+J~pA87ghb5CXm0m3+M
zEuuyMe&6<dOh}-453XuY-&>Fuuc@gug`PTtAXps4#wMr6i~=7+{;*A2pPjp<b|_i?
zex$hV%iRl*c^bRa-rkP+J<8E6QQ#zg<Sore)_7|*&CS72p32yGhK5FO(%yJ`c}(3T
z(x7-C^WN82|7=Wpb6?6nG*92{EE9hd>|#+6w(P;Ax$HEq2s8wa%_9iqSb=&0b?}^i
zeH>S#RmtFCtLonf&PGpnovE23S{;<`vp^b>(fG&(+lV@MxNySN>jH(3rJf#tVs1E)
zv7&U_JnwqE+jVms+)*sL1A3*rp`l@*dmLA~-2hs2O+!Nwko?;IN<AmITN%6{v`zsA
z!SYxlzB|r2dXG@L3P_b~E)28+8dke#eakiV-(iA?fuSXXn-Hx4ItA8DQ-)IHC^H#l
zY^$>^zAz$a{GLeWU=<JS1eZTQ_(ox$V}>oJZpmf#(%3qkN0Tw2N_zS{M$ixhloQ|G
z*`)4J`E77+KUJ^Pk?7DsoI!?^K?H#k2-}Mecz+-$W+XsCTHyh={y1RZ9E(N;=@_s)
zdyn_-_Mwiwr0BNObKMVeH}ca+GO+WM(J^oQ@T|0iH*#<JEnTJGbk^UT-_vNMN7Hb+
z!_r5`h$0&-)f5*Wj{zxJiV)m|?lhTbV4^nV#^6X00S{W25Ed53@@!zcDna@ta`6@g
zKBz!=3ZbNpu*1PSzZ_=e_HaKjQ8}{_Hp3`0A*_YVo?bc-Tj-kU-+v=BiFlq{L-(d2
zT~}m^R{t!l7;kE2MV~-E?F?+~FnA<@OKu*Ii;SnpSf!uv>*tA|IXPwxK{ePn^T3-z
zNl)Xx)I1?ap$&@emlqdF0Dgc(EDwHeZbf5RSJu6{ef7s9#>>k%lO~74|6F~>=#P8T
z<>nrAYRkW>UuL#`Qt)w^|8)_iSGhZpz;^>dw61RIrMuG$nIOmmAZN0!eU!k52$7oO
zqkXc8f#jvg45GrDB!xHa%DUpX)v<~LP)>e9kdCCk*gP6NTrkhMS;%;BaL|*XM1p}L
zI6WmpbFd1lpU*h4iHXr*DZrlBIG7RlskL>a=4%>?9zE{ORLKNU0D^3doY7K2(b9WF
zfJXRwmO(m#iV_|bMS%RsH_#dfc_R|5)DDq(J}EC>o`QdZYVf@4Zps=IM=*x57@=m1
zy5h`zn)dETp`kxPNdqT2*f*ucsu6H4Rw#TSN%s7*6N{CV)yW^lj{$!+0Bi24@p9vC
zViN#S54sTovKb+b@yf!2Ky=MmJzB4B&56VjSaoxscyUku{BT<M>p^LaTnaZK`Hot$
zvyqRXg7QxA@Q`ty8}L^Z(TNi|9F)7A6z~1!vg4>MaEgx)e&d>(PslGE9v<Q#5bn!*
z#d{9I1yfV#l(_3mxRh+}o76FXmvZxSbR-(!VU&7;3iMLa<1<jvX!!3>h%NLiY+k!|
z4XgGbC4ZN1*8ocz7IrdLg{2XWo%8bO6$Vm5U==?*h3hfl+So={Of_z`|CUoa+$qBv
zPf@UnEkzid;VAk7IwB$?Q$|fpOw#>6UOqZN`}cKz)a~!?rhBZ6V~4LX_=E#X5|kh)
z2$m2<(rks5Ri!!Of0~Ku38wVHh7~xUZnIQ1_o^9V4f8$hKZ?!Gb1B-?jE!HIm=E-e
zJ`E2?5J)h6y5pk5qAJE#+>wm8T{4q!SN+`^){v>6lBkG@Cw0|h)+T3{^Q3dFO%HtV
z*cjD&c_=CMFU4_FKYMR(`Em1{Mn&DDD-Nt&ZlTr992^8D8ugKtGiO>Z<HtCDX?gl4
zj$D^lz5a0P48q3GpVzht*%thm%a#MrMXgUhA#_(vllDUp=t<7={%Q^rIzTKxWAPlo
z$v;ux$p6Yb5(eXBYo&d@<y5PmliIR4REDKS;pk(&F2GTc@RTz#6|WV9mK*aOT}qL3
zmPZG>HpB1v$e1NU00{yf1Xo1R^dk*C5^mbFxq0CEr-0RYdWs{HAWg?`sUB^ERY_m%
zWc~RG4&u9pw$LjTeQj%NfQqXF`V5xy%=LU6E)|tAFhCL%08HNMaBmZWVOZ(Yd?oc5
zgpO$t#45f1o`nYFf3T+V;P<zzo)aW|JjbMNP~BhO%#XCEW?~{mDj(!-n16e?Jo*@e
zKkziourr>32M>B@Aawz)g7!X&%m31PyH{L-I30g_v)Hoc1B0$(W9M%!H^MI!mpQiA
zTVn(dr~qqxxF(WqA3W8RB4T!Y^4E_vOU=X6Zx_s)oh_xl@ZFl6CsxlJ<oeDWeg$2N
zU?+E#YAMP8^fY@^F!LHyyv(&Mqq4h7MdT+>#_{|%hK=~AzYq&SSkItsu~=daa7`kW
z1JAMT_vSDMttTeWMm&B%UBH=1bhi2ShFFa86uw+QMa5-Ivjqg30g&Hy9~Rq7^BII=
zu?PXsFEHak*TMWaVEZ~{cdzeC14m|%@t4XoD1Hi&OvpxR3Y}np^d{!A0ksM>LyKEs
z8{cB9J5Y4FuXgAT`5N$ZCj7RUAwWq|H~~x_u>kLqV9(<$5N55Z4K6!OGQ%h}M5Oui
zug5T-KJArhyB=Su1RNU&VTe+OPMh-B!slpjLD=icl`E$KAYl0gOxQ$^_a`1MDATIY
zv~b8&c6Oj}m8KFestnGYW9%zO`Aq5(NSSYbHL|aWYO#F?f;P?KktGL<lkG7{wN2#{
zxBZFFpB1+8c+GiCytkL5z^?i_X6ebappIO)aAAyrxGK`!RHD}GtMTuw$=}7C3txjF
zH&tDJGBUHSnnk|9SgAPSi3m4Jo_RzlsDDDP9sL@6K-~h7?pe`y(szf3hFG?xDz|m#
zN~6t#)KF6S&tEAtZf4TxA5k1i%AcGkR&`#KOb2OOK!C)|?9NtM7E*3(Ix~AjYvhu3
z`een|bJ+bxll`w<3-7uFdt44guW`R^Q^?;4S3X=~1j!bxfKv!|Y(QRkgu=I>#c8nG
z@FzWk404ww`H#2FL7j*AwW0m~^XCkRET~Yc^O@1lY|emY_lP&*IV3s`Qr6ADU1`bD
z$$ST#L4KA>trIlqOqJ-*z-=L<K(+y`qG9if+b;wOC1W-g`pM1V%01wFgCnW4*l1>H
z$)PODUETntQ3|7~sjI7FxNw)Wskxbwh6dcR*8>YK5OVMZB7l|L8n3@IWsO<vs&OWF
zn`nzns)7LQR@wVpj{oue%4b%Jh-1|n*G^`p-S2_Dv{qzIXPy=KT`RP|o&AaZNd7l9
zawi=gFC{m_Wl-mz<6CM_9c^Ex`P6F<2qt<dNun{o`;gkqsGeixM#mPfDf<HQB~SU?
zym5liHA$00Q?@jB*WTOb6RYO}hZBg3Q-igWso28_ul-?rUVhzTYYAUf-}$GN4o#=H
zKk<07jBMf!#p@cPBzaHL*#8{MI`;L(gv4oy-SNw4u@U>YC<?BK(2%B=Zr?~reg_lk
zV15&GG!aZGTl!!J^$I#;Ol)i**o{-rfdMBAz)zg_HtxT79Aos^T9gB6D0aJ8CzBAF
z1ZyiR;``8&<R7dFz{5rFeqpd5DkUhcSw9K5LmTcLht?j8j6V}{l3RVLot68bTXLn1
zdTdPK_@eLL26|t`qp^sRQ`rJ)>GKQsGy|VQc=ajhls{olD1zwTc^x#bq9)6$w0cLp
zCw$C93(*>Ji6#LlDW<F58?tZ+U+d<w5#eIMBTJng!|8}Kw4%`(BWa;2{%ERVqj$dQ
znkDUHY3SvjZD~)r?;A@m61>F2yEA;T81<F88y?;!9d(q1K8p};eBHI1HF)U_(vG`Q
zz?xpYf4YX$McYW1{o0Ura<N=~bfDHB(wwNG>zXzj^-ThEY>O|8ZYCEuOZpKQc4zw9
z>X$uLSZcQI7lLD8Eiw}&C3Ig`8X7%jUyXZCpIRKRJp(Zk%)~+v=%E$p6-s0O<L;*+
z!b@As`h~_9p?_OJ%y+Qdj(%@@B^ppUD*#VVP-$XQQ%znU!mh?a%I%U4T)K{<!0`)w
z{H@@4_PGE3QCDsVgmu}(#TmeA<a;L!$;A^0Bw?#eFi6DD)ObsdfRGS3U<}_*Q*-={
zshOEs7C-vcLLC|dB?}8yAh9gD`ycVGEYUQzEO~A17%LZAmF)cqn-BnK>EN0O4LL?U
zpwn-8sjW`HlTSGn{J@=F>RZ*tUk`<jN)1%wW>j%(?>|L&cWq``IT_Pk_Swl=Oz9wC
z#b)jZ8T*xQt@Rn8%Eh2;t2_Fd-nA^Kvh_HA#L>}_P<25SM~U?B-;awqGkb|@&B)n`
znc{2nz3iz@iEt;?NWbYw2x&mh;U}I?`Y`wP`{bV$+}#3o4gFl*tWha)!HNO-A0w~k
zRbxndvV?>4mbq@fST73dwJpD6;3_NDkWl(JO=gkDsqZrhQP07tMDuoK?_2dA1Smd!
z<)UcL6SojCA|m+_<HqoFjf!@G#!d$dM}$J*d7jV>2!qpq8015;hZ(F^`LU1gu`gak
zfC>B>@&J#9XSdBU>t`WV=iAbVl`y4IvDsA&GpHvCwE(Mw%(fhs<?b&qg6&O)Q3{9+
zwYeb2>Ko4#{n1ksD|P#1uoZ;Y4ijJ-V{Si47L!0_8{j-)HRn}&PHfxqlcexA{nWj_
z%lE%=wS093tzE14h+klV-1gR{yVF=lb%@Myv#Bci)eVZDKYuy{LDt=7Ckj%hrtX)S
z4-O9Q1yP3Hp-Pl(Gbl%f1lW-*6}wF^n!aU6D5KvVHl-HFrB#%D!33Y_`RHit0C|*x
zNqPMTqhrq-`F$E1i9ws>H(2UB+V^Uo6lZ>0gGhk8Dq*6Uex6^9#ubq(;=|uayot<k
z$ei*A{l``r3}sGqbS_*IGYR~?T=esd8r?O%{D1~xB;@>|^qqEbl5nygPF>Q3#b`rZ
zA7kydyCDlpaD=_Cq2!YT_Y=zuuJ#{vh;iSBdIY2y>{hNXKoqkDME{r<FN`g4MN|wY
zgpWTB)`As^AOQ9R`!1=K`7O-V57`T?@217XXxksdeS_a90%;QU-mt+cIfLXwL4bUr
z&@ONSOpZN(^ggmh2ZrNhDDIAYaBx(84vD0{VC&)D{rV~j`tmfu2q3(K(297Ie!Tm&
z47kjsG1o~A96-IAI#%kM4x*DMgKp-7Ncjoaab#)%KZxl6DE=)KY0sbYw#sp{<)p9M
z5hj}VmLZaA8+jxupKs^atQg#`22V>aM;$d2*hIJ245Z28jK28`xZL8~=GS}670x&k
zuf->Ko=)cH_vEb^iE_WgcW>OZ4(8@pcK&Kk#io|~`mQ<Vw^EpOZsB(qZ4FvSPk~=h
z2|ByHf`WQqD;PyHcW%YsFozKq1Vk#GJcoq4`$2540f=F77c6c?ckbj<)K^POt2KgF
zfN9*!|K$X5>dp%Hm2qYSOU(k+AOuZ_??W2PRc{2r3?v9DA+W`?A6vH_`#n!goYgiW
zvIAobbHxCw{xi6f;#7x&)IhE$0%Ht(hQSp<RQNdHk|F^ByX$)P04rm|LdfdQG#V}N
zaS62cj`rzq{zDvd*FJ`^dlEdWtd)4@cUl>6=PPCHUHL45-FBJAY8L#no}CFc*B<25
zb{u$|R<crZ-pCGd<!-#@)mV45Q|hKA_-Bw=_>yBNIyQkEvYc!|haY|#Uasxbccn*$
zKRA#yY+dVzUToPELJT<wR>ujn&UErmC<xyckV<epH44P9VWNJ1``y72^YvAU>O;_-
z@DOZn4Z{40*TvhI@eYno3SJ?ELY_isU=kd!^-D@Rin_W~F!4q_iK?2i2~X{%9Uq*K
z9S?DqIoipTdNBxNaS%h>*_n<eNpOa3(*(K`#C_2>N6XbKCx7r>VjvZF`$Y;W7I%_)
zXOaw+H`q{`r|43|T{sX6h%G>vUHIfu(#3lKWY%dkqbA+oXp&crV{u{-$Sfd1jPW`6
zPkNs%W-*+;aJK>c3@NFaHpVJw+Zad0n7QvpuL?mwNb%DkIw+!`Vo)+M2@Y&sfH&as
zGeoN07^<8$gk4G}bodp62ww~fH+VX@lsNRsy-Z*C>LJj9Av~V7yngD>3%%Tq>UT86
zBz~C0B-C~kwK;gw*U5ijN$f7!n(@XBcy`e?^G?*dXzYut;8Wrvpl;>1#imqMRT;js
zzybTjq5@5Wfe`E6_1Q}UPJ{1o0;YqlQpb(})rmkD0z?8%F0MB{e&fD>ukU&!m17fl
zFwa*}RSWVQorD=?*}<~c?fnthfOglmKg$#L7j`T$#3eriY7=pulua2KsrB&)tOtQ4
z0_ySfbhON8xN_2R<5Q3iLLuy#VNh&#X}`+Ae*}~O+&1-)eTawIn-60&>=CHL2ajuV
zd{2^+egbkP0ybZPX*C_Vzvtdbb8+FrfDr$B9jInjB{bsSQ?=r_FbxmH^3tj$5U8;U
zxb7w7iW2i63!@vOMn!*P|0kY50nRqT>No8o!T;i?ch^?Qxe(nL=QZjtdHifOZ+J*a
zN8c>y?O6-n-A^8IAH7d2$Ez$2&;%LiU;9<fZO1y8{)985;|;VQqEn|@Fe(e?&(1Eb
z;JNQrZue3pJ;*R~8-{|ML9;fg_h*K44+*mQAGy@8&?B#Z<efuryVIvnhog~^3gGTA
z7yVsW-177Fbv`=q!ZdtHlzxWr0=8jD&s-vfFl-!k%C_;x2Yis@3dhp5SS}IPK2I+<
z2;y6qf`^S_iNtcn7!+TXkYFsX-D0fU`AGth=hmx@LI}Tjg3m^hcmrq}+{c#u;<||W
zdDI59COjbCm|@Q1zhf!2_KA9aq{1ovaXu_!1k4FpLF>dq#>?ZiB#|w+s;&jg)iA{e
z^bvaG4h|v$^}TvY{fsbWZ1$u*0j&uXc1#Snhy4UMy$P5&mdu6eGdwM+HO1KYVp<+v
zULveNrz@ag6cD=n^hpt<6PU0%5iPY&1ipPQ+-kKeBraal`iFcuz6zF_V<*-7(~dPl
zGJ-lP*lY6K!z9>ny{s>S^0Uk>dkYoRxNOkq>meK=VKh(sgW$y^yG37dX?D@Klh3|X
zLay??h#h01gDk@4DR*N|iJ@4C|3j|Cs!I;)Yq%YkaMA6T24>d7b+>}{bg}?)6tFRs
zp(d^U$uEAEcMQpWTm-t;uT{Uq!8*8ntond)OmDmmvFGW{0dwI8)tcD~fVY_#Po)$C
zR$HI3<L-lrl`mkiKnhl9&5y-rQPh6CX6V=6RiCYdoU{xzN|dg(*HfL5gfg~TwDA@(
z268ay4zcS*s)=kE*qZMzOzGN$M5-L9D46HZE&t~HoAvvM!=Vepb<K(lKauQ!9TFPc
z9G-I22UI`$J~qesGsLYivd#95>Yq?tjq{<`Jt0lV?tbRY=t9c}eSIG)?V&n7Bh^0v
zA9~OqUX*WB?6g<80@#iVVY!As3RiKl<e6k-WN1Tf6PqstaAfcx;4zmfW_Qo%6o7y~
zdm6@65<?NW*@a~`!0&juH46&*`STy2%y0zJ*DORUEGM3h`SSZxN^X9Loc_6!*S@|V
zQoe82=Pf_GF9L#vWqZW&Tm(A~%0HnDC+^grhKG~13VL)uY%fAx3IOd36IpB^!*1o*
z`uQ^lA0II`qSZx3hP^sg6*eA>m<y>#y8B`3U-(JtnuVtQ#^Z(ucBceSt5{yOx~aY2
zl<!SbV=F~aX7s?zo_`Flr=K;2KHdh=8;94LIf=zm(E8&;rzgykbXdxO!%r<PL?=@@
z9b_ZV<*GTF-|^w$IfCHl6dIMC)i`_S-n{$!N{N3d{p>b*a<K0}sQHu{8SorW?#3zp
zw9tT<<G%4tVzYcA)0-?oL~UnUeAa#{DecqX<FrPPq*=tl6G~Y=Cd4#h4suRUlt9*$
z`^%Um=40txd3`Nt0P^|R(f#uyH&fB$zy6gTZUmQSSy@?$=bBXw=#HKs)35a?kn{DP
z!`{!ozJ{iLd^rKgvl(a$IauRh*kSTC^e07#ePj6Hi^f3L_`j100D;gU@x)0#&}7%Z
z|HI68C@an23*oT|uff2pHWm~?kB`KiClT<BIdG`|{Zf=VEMW5O!u^u)SbhR%7-BM~
zAgF$kQOpKGK;2~RDX~_;0xDQe4LEzor?dauDeP{A^Iuh>s_BQBEmRaN4wD*BO6*;O
z_D2AsGR#I{@+g+W#p++dtqL*_M%0{M{qv{Tx14X<QjK<nkYIZ*=^<2FT8d3PK7dde
z5)%`HCEOY(Ch7$*YyD^W^wJaW2VG86&XfZms017j7-eJU<!z%yQ@H=R71+1D9+SAq
ziz!_gGQq?hD64O>vZ}1g{_`}7w8qJ2J%u4e1XE6IFb{==*kD#2X}joIR$AKO`oI3{
z3o!5R-o9-Cf;I@Dgpe}gnJ@#15kqDS5)XLg<>eE`QNjN%XjUfNe!wY{jlo!dzT`M+
zXkiMe98t$nOgba8EjNDLrNeDmVrXLAtx!DB*$MI*q=DRrJ|y0~lyddFKcstw@7=x)
zu5@Jzm+JcYXx9H9%YShZH_ho4$8jx8xmKW3ga8NDUA?_Os>qPTv?wIk$CyK#!C0&D
z{U664_Ce+CTi8OVfft(s*>-^OmW@FKZQb3^oG`Cn6gsoi{$d#f(IdXg>CV2<&BZb%
zrAzn47`=@0`#wGxQH$Xs20ad0fBI50+s#e!>ECs9Z{k)QW}ROpoR!nme45HIwU(a>
znLyB118N2+wTdJ(v-Zph1hjmaVK)0pdUmhPN#8oJhy!ZsAhya`(bbKwoDc(#e+wQA
z7*tr0sJ~d@rRH2|YlAm{d_b^Gx%ey1<T8S3rrVpFEr5<6gWmBPc1Z-j3YwS#bLpF#
z?n7J4*H=Hfj;K{$Zd|y(hW7~7_W3DYdCSqUNNO*pwb+$PNk?<_4+IZ1ma9@WbMC<#
zf{4JC#)Zc`f`wIk)w0qH)SNJ;KmF>&-7+K1Rc{z!GdYlLY;9--7_}V;+qO-ghOc)L
zM(i-l1tiqLca~`I4L>Y`uNH#6)qj2IP4UG|c6E1u2K=8e9|7Uue}83AS;g}G`yWt0
zW`7WkL(dYRJ@KDiM0uqR9BT`U*SaqM^~Pg^4KuJe@UO2n1=0V6lfWULNq;{1-$Ssj
z4WnrPdbU{guH*|RAbtU<7Y`5KnLyxsJpgci6c|xM+B0y-KD5Ou5T^G2G1^#SJOA^v
zEUGk05QoEu)-Uwlac6Z3d?Z5<gab#oRpmjEgbx&ekD9nKaybR<8mx5TeC4xz<wxNy
zdN8PnAod0z8brz{0fQp(zWVInJ?VH5Bn2D&PQ@6^CyM|9*LW#Gi$#SaGXx62&&7;y
zm+8<Es~o`u>3-<i3b$`_K~&(8YW&$Lxb=!KVGm=g*ar_NeUK~C|F#`nx(?F|a`|W<
zCht2A)s@wZG9&-GZk_vB$$_Umm+*;TJ+Am{e6BW?!T)7JuR`GPne7NjNj4)N&Vj8%
zGWrU#&%jYI)Pp!ffD6Lq&uq`UI(z(lBtA9u2^dJ$0D+!MxaUQ32)t;&&40;EH}o6Y
zx`!zZ@LOyu8*I&~@&U7Eu%-jS4Trf!z7Nc<FXL*^1a2Lg$b&DdH2=9fh%Au%=ZQ$W
zFTM7@+|mdG|HRpV*AG2x9{pcN^K*r5hk+tyEY1k!aw_@Wt3b8c!Ir{*+~=Ze=)c_O
zlH2W6*t8DZ0Pr{=L!<x_FyOvv=Ly>6_S^EXoB#;kfg|G)robY2`Lcl-z(GlfQ_g?3
z2_KFAXOCv6HF2o6iKa|u_sTnah$!k6UHkRmd67zU+@?z4NEd>?^0B9%nK)5v_v7L&
z#LU1iJ&$4#l_<!1#Wsk|;`5W!5Ev(d>E2+t+gBbO10CjsXgF*^0FpszX=ydxATmQF
zQ5I-ZZ@Ha8*k0j0m=g<`H+6wxxp)vM(lTmsWBXU%B7@6vVB#^u=7Q#fv4eB3Mz@%~
z?Ty0tRQy|#t8<shqQg6I+EdY|qo2r0xIJb!s|I3yyciV^ul!$*Z0_<zwTBb3gKjNL
zO6Bn%v+nrZjZ;m=$CcBt!6CgS`lCk?|Jff~8VU-Mwv66l-kfkfT2mv7GBJW5kMtur
zaH%3J=;cp^@Ykw+r=a>aa=YVdz07*b0%>xxMyH1IcriNH-Yfz!59tbxeHd41gcdlv
z@$nxQ7<NlDN7Vw6Y8*I95Vml5261#P_<zjzJ=qC0vL769I1m}I(?L~+>6%j@K!#kn
z*F9M97r->;ycoZ?35<!M5OWx&fsdRx4`C=rx0j&qS^@0GJOC6oU;p6WVFKt#&S1Sv
z!7Q%=)MBM7K>zZEH?hu+XxIDud7bIAy$Iv7XOqe=(b>7Uh(h<b{gHzc+-Py(6*hke
zHTdh*?bKUq-jNs9Fe46r04~8Jij1apph#HZfKPV;l_a926oMS^+_yMoWLRNzM;=Zn
z5cx1jIZu|fvNU7n=V#uK24JUakVSkAmzV<>jF6Ne00tL^mka-NzY2T$q;X;XO5VT%
zmYn@(3J|DAdan(H{DVcUKgU}JQlp6i2CKl_Goai9t0fF2XLT&W2CrAa_3A9yTpFQ=
z;6tKgQdu$I-{<h*D58*@$K349-q+y6?!a)fK*98v{jlm*v*H2k_Bd{AnPJPp@Z=gO
z<c1qW6(62TI(SF1)yJfy2uL4p+<?h1Ua&m);WIrrQ2*UodhmQl^Dc06D}4dc5F2v+
z31EvJ+!;z3{i6W#^`Uwh*dq4P7>h?Quln@Q4*E_3KcfPtnuDEP4(?U+z?As)IIh^l
zL~ejPkWVQpZgy!09xcck47uf938wml_;}8=6A$k33koKD#eojE;C!HqT3Ka)g+c)W
z`14`~7uEasf2XCLc=X6h%{Ic5ZPzUyy&5M&Z`VC?{AK$QaMZ_;x4;CuwD)NV30x=(
ze2POmk7y-^Hs)mI<N~o*1#UKD4O3*(3(iOD9YyCTxU*m7ZWM2finBktQ%7b%#I6W%
z0%3y`#T~Tl3+Q45NC|j#DR*Ge2oNkQojp8JVjYICfe$J0L^<=u0%Mdij_lz6l{$d8
zII{MmmAyZ`0L^^#SP?3AS`wC&td{qIx?WbTsjM8@A`!>+7)07Z!D8q>uvKQ)VPfOq
z!ZG$?1f`IgphK{Cpp>EzhLX`Dp8$F}EGI#oHAE<2zR^Qqyu->RNnq_-92YhSfP{mW
zY$SMrG3qDWZhGWX>77pg_w;AZ2o&GT?*hB?reSeGfyTz4zRq6~;4x-YR#rB77o~=6
zZIzeJ+1$AUt-|5&VCBcIL>KO}9^)h-JAW&Wx9g8-)w0lUw$+d>r7<Wnp@bCUpLM7D
z!+zW9qPn*lqJA)!BcG*fWa<HxmTp1(@6l9uiLj6mor{ah%>lcykL5MB=Ki}`E#AxT
ze_v-=X&iZb{fwB?I1^<1|32vRC;(Pz1yuqYnTAiy(Y|>z6ig#*Y|Zm;*X1R%`|q+|
zqpuNckQTI<7|^6Z=!5t<JD7(U(*^TL6o@Yvruhpb>=t5-OGm^42F!rc+kB*@{Ahd}
zO)9EPcmue3$fuJgiamvSIr46XEE7I?6vixI*Y=1Vb)r?7c@9kr2Z1@?(Y$+LoFD<f
zZN<yYAfbySXfdE$9RkIJONsNUSh#0vc`OnP$0^|25Q+yh2$dZ({joV;%gP97pIBlE
ziUub1`}<3CsRlus9{W&$I~@rpr}2g1x7g$Z{2HX_h;QF?VTShLz!xhuAUMM-E9&S_
zBClZ?DCF5-Y!^XeUcDk?4>{O|BBJ-v0pr$)1)SoWN%S-{79cwlk&~;y==*3yMP3zE
zw0wF4C|mI1KTok{iKTQ)q1ajiAYl-(2<RH`L_`3LOTl#1H7%_$E>&JWzQ*IDZ5afc
zk#PaFCvqJtvjCLf^FAH{aYo_fG+T&ZL-&}GjwKb~bB^-lC9&-z?(_5#pd`?;lwem&
z@!f<=zT_~B4<82wkji*bM$6vq&gkQIQ{lQD4$PQ<8VVO26oiX0R!qK)&V)av?T!Rt
z4G#hJ^M3h2X?1b#+$$e4Y(Uy^9IYW%jng(Zj(|G&kAM*h6XjI}7gku87w15BNfmd&
zEh#C%Mo3^R1_HPc&<q4A&l>E&n*)DmOWY%}FMI}pIngYTt(BIB2Aeg)ibRR)teTFo
zF+Z0o6@+Xk;A~PuwW2NZ7dKu3-1-Un(kBp2(2zz8ia0Lf!kYrn);TM7A=_nWiUQk%
z!q)h!j|Kh2Qd8H;QnPGLZe~SpwtcAYy}Eq36x8*qy5jii*3v-6m#FF>si>=-W6dlz
zGo*f7(PW$B7Y`Fnk9!8#N!UX?4>t!0kTsAcM+B#@k&lDxK!jMqhb3vYI{P@G?VwX(
z`cjGarY)A<Oj)S<ZnpyBa5lmQO=VX53E*_sTTlJ#g#-m@)UtG8wj&}gjw=6-^wExW
z)!geUs2&FM4qlSCu3p*nu1(eAg^bI)acEZXs*vsR5**K)Z(Punk|zS$mjelhadzx-
zq16f@;V3k;aM+>wo5|kSA%Z__8@&!uIYs2z)$t4G&(F9`!~3J{ZwD6TV_{b5+-Q|t
zHkVHEVY^&lF6Sy7A}Zw5Kc^#Ea>RsI)GO~qaruh6#7oWPz7Yt!v8(DnIuA)(+<;2Y
zwTza(%c;$8pJS79`Tq}RZvu_w`nHWfG*40qy9_BqrKE|>LWxXeOeiU1DD!+vNgBwM
zN{BL#m3fw=l0+eMGKI{^kl{P7_TInu{oen#zHhC+wf3;~*7H2~b6@v$o#!!~0}>OT
z)#*Jc@W&S37yJsSFGj;(!iHwx+1Th3x{B)+j?tZ*x0+o?@|t3^oeP#(qfhOw@RB&x
znsuR)8JhxjmPOb*WG-D2WLmid<sS)GfWhEtZ0y$k`#&YPl$Dk3bsjr!H`MYM`e3}U
z+IA)&>oRDuyD!J%<TiQ1LhYe_SPr~FLwWF>U4ihatSly<7yA+gH*HN!y~fr4cFZ}1
zWy}jT0v!!3cS~X%Dt4MD9vrd4A^x-iFJ#XUV2(C|qwZ|u^9#hwNSHLjg@b0j%wN=e
zL|%T8XX|C#syX;1Xr9>SSy4ONn}#DcLYfNXCSgP{glSb0*D&oJmFA)-E$!Jd@UiJo
z_`-BGMWa<q{=S%bqk-A6vkyKUB9DW?U=6u;;)$VQmym_3<wq9wmy1coHGopr(2gl6
z95yrCLHi2tIo%&^K3q8Q=_;_+krIN|y<yWs+h5{TMn#D2=LoE!Md=<4xi6|THwN*M
zoT!Zvt5&a;gI<{~*k9W!MLx4nyuhP%%xaHnK`d}a;|b?aUwUD$&B$wE|MhDe+zyR~
zj%U3&DqllqK(k#OuOiGpHH$}tZ$4mpcQ)to<C0Hx?I*4=lH-7O7ERa2dp_5x>))b$
zIOu6Wft#OLhFOWMmwB9?{_%-DfSeO``6qw0^iEnYsoQ2IE7umI=B;Tqop|oy7v6pQ
zYExVQK`o+fw9<FfAlV>L!jW2y;6uwe-8>;irl%1W3!m(r?-Er~xC74_#diNDNJhWd
zqqXOiTI^!##g4x^mw&pZ2dd!N{qJvPtAoFaxzA*Toj(8ez^vzv2Nr=55d!TpoSQeF
zw)~d)dc!C;4^IayHN@gXWDvq_PK)3wkdCno^QdSS0B{U*3mxtJ`QS4j5Av8Oi!8BF
z>K*GSyH}QT$d#k1^PR}b;Ng7GZzRrd`6_Bv&}52PZ5fVAEu9J&qZ99om)c3T4yEP~
z(U0_cCpSN6lgiXhDIbqG<TFs0WHK?0h%GvrqN3st%Rv1hw%^5bgVsU=nZm)h)BIBQ
zi${Dt$hr2lTdbH3`1=U)qSVZ!<1`|CpdoN!nRrvy^k!QS_wob0kh~_EP)r}@-UK@J
zZmeNfNXTu-9gEtXxP5)^{q^gwT)ARZXQbQSs<N9jG$4Egv2JFeP9qxbmKTmd2LyPE
zk`wgvg-FyN@m%2{c!j8`k3f~3+1@k{|9JoI9X+iDnFkEnhKe-Bz{Q0I))Uos$OXuk
z(62!d);VzBo%m$T&ClUmqm|&yPtq)?ciI{O>E<o&E(p?os5QfJBNX~zy;ba9bwG@C
zv(5o!o77b+06%LwwLKXB$f5nAX0pw7EjDyQ>s*2{i;0CrEW^6Bu_rO8<o0F?iAOY@
z!9t63iZ@&nm93Kkxi*nfnAW|B^-R7))hFeaz3<!IE*2hA(pL8PJt*v-Wtlfaa^S-B
z$LRi$?G|Z;*P+w-2JL@^*OFDl^v6&Q`BInBgzN#85Njr@g)G&rGZrV83SZxsk$cr!
z_VLZ{Co<_ownK42(I6RWO{~Z$DtvXHpBVq}GK;n^==c8MzW6I}3DHi&fk+NQNR-Zz
zGQK8yNzeNSS5c&%niV=Q@o_&-4Vz)VA?}0dEnmOnIsHPHx`e^R+cHsit%Vl=^3w&k
zYnu1hSfqr;?dc>d72qH#w#F9ZZ&R!tACJ(x2EBO@=n%`{6Dt?GWBBYHv#q-<B)Y>z
z)(&3&#U??`ixVXla)OL-T0-F&%vZEt25CW!dJV0XsW<QM?7a2L(B4(~LC%Xv<>uh9
zFpC$rGoN~Ba-3FOHDc$DW3~i$a<6660Rrk`*S~+jY&{1xds$ANlHaza#3Lvx?_RsF
zlC0jBX1>_2B$YU1!(}{J?r<GN6oND9q&cY9%;T5UAqPh!qA&KxE%3nXH-7J_o8lnC
z@aczN+qwCdu;3Vk8P=)459$x(p4OlB>}L6iN~^eK>6!ft-zw%DP4edK&*yEp#@0KW
zw(Zl}E6av%Qm^+2FI+MWSJR~Fnwx8c4IXrlUBTtHKB)BUUCz+pV2!Z3Z`;Rhznm4E
zA}_eM>D#w+*{)`yIBy#VTSgk5dgir_Z_gKB^isz>`)OXAZJqIr>*zGU;evrMW;G7H
zTNlguGt0`-(Z^Y@r`Y1XYdX-kq~ZXCQ=KrIqX-2Kn4>Av!Uy8BbEDtNS%t0Gj6Xc`
z#pb@62BY{gS_xcz{I~Tjj#v1x)6qy69-bvO-HM>2w^^^Co!A1B0lic?oM_0bSws47
z^XlVgDqO`JJ9q5d`4XRnE_m&k5fH}bplg^yg-;9zP5P5l)M%&H@O)jL-IyTvAEF&%
z9$L52S9qCg&D~LKFQa8xx3?LG`Tbq?#XfyXqY(mjuUx!uLR{>@h$dsz@~(tQdetPW
zv>h8%*?t2%)7585mmGSI?lP=m12NQWOpQjs2G@=qZ=)s}$H!G;=S;0{EFQm>N^vV#
z@j3A*5LO#)=q(gz8K#DF%*liT9ec-*KtXxnZaBxWv0Z{BW|u($D*}Cpv~K4d?YaE&
z6NbC)C!U`-Qb}uY&9qbv;(oiQQ+Q!-+^4=-o6U(EhNKczw1ek-rybW(9_*PZn#%^w
z>q?*LHD|N#RFl-FMsD2K**>w<bYf}P1^3eC_9aU5ijne1pFGoT5&FJsoZJ4?sRs>y
zhtHn<%6|Xr5~hCB_|3(OT8D3Kc~{FXpl!y;DzP+iQ@A^0xIOeeW!OnCP4sJq6`x`w
zH5-j$aPL*Xu^Yk}=Gb&%I}=em5P!y}IMqs{Cl9-Nsa_)}SXHtc2w2lC@j(ey)iN4^
z7D=Wqpav~nf3uTmB!Dj5v8_~MvZeFVYM?~4cR|4)T5PNZK$zljctu<;B!*V!89hz#
z@;5pEiqjigeC3y40b;xbK?KC)juVg+lLyQ{FGtB#*1j<Bn7?;JK;cCFY54HYdY>L^
zNItcQMl31Ng5aT(IS;QlJS~Zr3dY9AyA58gm6}Ztq6=i^Nz7`jyPw!!SfXF#qOAFg
z^nb$Pp(HN?aVOe_FJA)7(Fqa{<f3f4mZKN;gCnxdxN&OAiDVXnAHIGv;hId8CwL7I
zk6psA;NF=QVgy1wCa}bF#qOqPGo3Zl3)vfJOOFb_+%~b<b??5diGIO{*D$u&F@Ik3
znrllmi-w_PRHCyK{gcQeYCmSpLt2*1Kgw-sZL^G>2v;77jg39`@*1^*)H_;Q_l}rA
z2FHf}{Dcbc8syR%8s3wLL{{Y@8d5x;iYG^LD-g3f?C9pU-+hTGf#k?}EX+CPDk}sM
z=Uc(Z%T=^_rTcW<D}t!`@krV`zH80thF4p{zL*{$X&fXfXSbEVKb!$*Bxu2t!3Nos
zRd_jTIl4u78cOkBNh;~BDJ6+0^woX!BY(vjZX%v=p5ym4z6jV3y|SoAcxAV5@S|L{
z9u;v!IhJ5EA?^@o&THP@Ag4TNY7tKSyE9uq%|qoys><%pgin3x##NhcBe7K4d5>Js
z_wT0S<L~#=-knjU5Q`XUEhgnS^vI2a0bZD@u+t2k-+nmjG|t=fupKP?)eeaS%>7D5
zTkeO4-vK?OasP4kBeCX-{$hJ`XAIOr68jHoK6uwA)zVl^P9y9{FddU5*3OsSs~BaZ
z1G(7_U7|_2=x}<x2^T7?>XdLoAwAHyb6Dq~1y#S8malN~Q<y7C*VBcL-i#!fh5)6g
zEIX@&+wGi32B2#rJul(h(GPZ?mVOkYv9sI#>zW>k7+G1_!lo>~<y>8c5*j--z4rvn
zm$)5+Nv_ke;<4y<Kt@t_ISWHdF)=YV)yN}O@B4U6BVc-oI_1XRXD3Qc|1Q-x?9gd>
z!dY)1>QkjHutjyU_edvi$H7sh7xmvY)1vCS()K(ky1JcdWhC38af3}Tr+GMXppUr4
z!57=6JO6675Sq~zi;9v~h7BI7QC^8hd(A`NXZ8^7F_EUcHLg~XM^f4%8i&(Yy106N
ze*Q8P0=w25*V|D)zN`Zakv1}Wd{5yuKr-Ku+kk|<g!B)n8;tiZO?r#}NURo(7xxGW
zWxbrgFX=7{Ozrx@+%N^UExv9-NkJqC-338E027vNP!%_PQ5fkl^Y+^U&WK%sfq^4{
ze>%}f`Y6VDolJNIuUvTlI<uYmc74=ITKC&Mu7v~ocN#dju2sH0sQoP$VlN=pB%<35
zcnkBeJP88;fa{F|gy1q`Pi?cqz<`j>oun+kd`@a8{L*tLE3`5>mpbSf*bbe|G`R!?
zNcXe5Rk=1OVBd>0K`%pG*3h7a))_J(rQsaqcv4h5yOG23oXtex<3!DJi^P2)g;b8~
z50c#h+I1sJ^u)U**7eDMMR?4Z5&o39I=?wqdqrXv&`voS87~3@F1=c6{-CqMpBxax
zypq%6$E|P<>Lvm+7U1IvHQT%f`@jV}=M|8Umek7AMBPI<Q^WuNLCF6P2ASZ-fT)-^
z)th+~^!VSi#MxT;CfBYPJ2=&b6PbKgRtc93)h1O%#Xu>40sXu#Du}fOk4v}hW3)L9
z9XaQlGR(&I!mK%Je@H_))3ip0#(3n&5v@>vHj$GwM&Luw^Teg3&d?aKtJ~#SDg?g5
z`gp|`>9!T-t*vM^<v@`kO(Ggc!nXwkkjNqB2u2j40Xz#NH+lm)zV$mp6me`DxQ$Sy
z%K)7DVpCZ~JBR9xc_8@Sy_+b9Z&I_JoY7cT0P+BwEhk~S1nWGZrDgo05K=eaKfeIb
zg!}@a0bgw425jO^AA3Y$W?><A<QuncZNNKS^YOWbot?DQ0r&11+vA*R<|CobCz7<N
z-B-rKj=X}6WZRx$c<gCg096kTo<sbKn)4iX{rn49nFhO{JK9K-b8{<@wank(uM)Qb
z*bcqt6e^bF`U`@ra_Acu)8I%Iy>%hh9v1Xh2um$jSC!yF$?T2o6%ryQ5Gl|8dQxM`
z1lvS3xPKW$pHf)lHA&ig$iWwuOQ-!oR^BiFNpHMC8VgRVb@(EfQOXhb5q3{qHYpE1
z=y|3KM!STxUx(k<bKb-FaxCXGLU)(bNn`s44hkJ)qeSnuOY;XcPbmQ#45Dp;_U?kc
z^94Xt9IgORda5J$3>8iqM4e2Kqws{3Lk@aGLBV$lsn-0o8^GCW&#^l;|77-NWc!(w
zw_fHfIwru1I?vCq*d%mOC+a;orkhYE7{M_plxC+{|HqnO+pB_m$}wCp?kCS{9wuVT
zTU%Q@f^5VNYwCAc^MrF5ib!&uv=YQ(f5b(%FYThZxvq(CHpS*E?r}$o@GxChsvt;l
z&+j}QU{4tI-RJ9hqaGI*MMrOSPJRb#zl-I$=;A;Y11CD@ywrAvkfaQt=MSglq5uT%
zso20S>2?UbCcgQUUv5d}1d1SDOj-%f1L&XB(<;6)00OV3=U`%@u0f2zDc@B9$x&tY
zhcvz1lM!<d-?RWJ5Of+jOB8YNB{{mxAqu?{9A7D%o_wn2N6zm<suBqWhv&*6&nG(@
zg2~lD739#nwzt}!t0Z3$FqT==vJ>{(<vcnVikBt0sBdS&Zb73V>AUFV7>a-DVsq9S
z&+%*~oZ6)X5e0w;<};-tFdtV3zHkvOn^%0xA8PtJ4=6hbmP!HKghwQwUVa5~nka-5
zja`$G>w&+M#G2a;x3xAzwFJ!1PZk@&KSf-4X|h~ntCU8xY$43?l8KU5R9p#Qe4Brg
z(*RY!n_LAvV!+?EDso$k+{K6}6e3Fv9b?6zA>@hzH77ECc9o%?-ri2=GRuH@?&9_Q
zWS&VPQ^2RJq`{522qi}EJL4dKz1{CC@@|==e}84@=FoGfcAs_08<lxN!E3BRSOJMo
z!Z-B_Tz$AMB@7M>$V(aSjmWQkngnYnMzE`EB`-N!ZL%={6olfMX{Gn0<AjO!f3kIK
z?IY)yhe;r<NEd?pW(3$CB>0{3F}P~r&wSgT2TQT(0p0iC&BqA5h1aKff}3k%ZzH62
z1}lfm@+<KDHx^n_nV={Lcid|Er2mOD+Bu_T>7D*b8}A)lopfafdtS8id3{bfMBK>9
zoriQ;(ih(h@l7$PPVK%{LJm#f?j&4BlZ|Wo3DSAuT)l&SBhq680T`XYu&%%`OJtu&
z-#z1Vq>BYWhdZ)-x<)zm5u!syx(GfjzK*VD*O?+VYz+8DkD%v=rM9M+A|}3yLBoyL
z7#;i@2RSdIu-1W6@g%Y~FiQaEwro<}RwRkz?)(wf;G>Kx#zk)bJRs=Mur^2czP0`I
zL^ORtUatwa{lFa+`zM8L?1YOCutd5I*g+f0oZVZdw7JMPF$xhh7hCh{8VnhydHngD
zw3Bt{3Jr$GW|T&BSrGRNs23Iv(E=4<_GB|os)QiP6QFPon<}y@$f5yZl&`l;b1f%_
z)cO6n7U%AA7dT#8TmOr5@fyC1f2%7Jg^*wPb%624n+kjpmd#XFN*x!S60C$SE~4P3
zd88T;a}FPxDjfeIZ+7l3UEAPsm0tRS@Rsg@cj*)TN5t1P*KUp?7eRgk7U5+ioJJnY
zcBA<og&C_8!yS%dJ0@{E+qQVh(r<A7)RBB!aYKF&gK^v0zo&&juMxj#w9zh#f}ZeC
z=nt;Q4Khv=R($A&NI>WXi{nWd;(xyhNblW|JWf}}N(ZH;zApNE;sy?w*P$JZt(VQ?
zuRhvU9i{QF3M6quB(D?QV?4}bog4YJrUV$H#ni&y<N<2g?CiMl2y_~M|D=vMdr=K;
zEv-<U*7yW4wmP4CY4O;$)zs%*qUKKS1AZyr{(a3GZ~l^09f3}1dT+&7p0Og|!Tdu9
zG|DV2MLSaOs_psr6%pJy=IljY5<0bZ@{$jtWy?k`SJRp5ZhP53_R&*XY4GEnLdSmv
zV~JFh=et{n<O8{V-XWjl9O^e@C$n_-R&j0!m^`pD=}I@{%9?MjS22Iv?!5W&$19e<
za?c!iOqKE8SibU?{f&R$`Mft8X<!BL@}kj2odw<Ot4|$_0at@pE^(>1xE3+7X<C%&
z??te6tIgeNA5-kz_bCXtz>Ltv)b{?j$cgDS{*zzzk+}~FvvnVqD$Gzas16A5ws`4M
z7tz)KzR=d_VsR{142C$Rs;%(vr;(G>x}>!DKfkk8s{G$jAF^a3$EFz9^ju@yE+BB7
zLX;A6%)mP{tvsSBq(E`O;yOJ&ZD5g>k)h$Cr=dX%uxXitW=EgY?CIRY&mY9e!puC=
zEj0BILNKGDVzD4b84o=*wUTOmmZ{$ZZ#=B6#Q){}XW77GJ)3eHXNk4E%l($G0-)4e
z|MBthxiN9Unm#*^zo=q^v{268?(S2M8Z>u6_y)w#!0Z<8`x|wv>?+umN%kH#+;51$
zVcw9s<4@(pK?-Y>k=K!=r7EmSaVf^EhXBC9LN(^(TmMCi7X96mz{^fYTj~9B_}j8~
z{<*$V99R3{CVwa8m5Yu9CZ(lUDLNX254#PtyTs9u5Z#psGi;=uo;wR8&hRL)@VZSn
z8_(w<3Jg65Xx%dhG<Sxeyp!~M<6I=Vw5NR;SxU3s6-A>KnYtt~05KCnl_1l|E{=~(
zv=Stm7LC)k0|!2<8-6@<<4<Efs_WV#<v}4gs{sAeeLklU#hCW;wZVM$$_UJuv)SyX
zj4z9&o-|LWKyAE)4;}jQ&HjkrUe#UGodd^k9V-lwP!16W&Tmm`ibZg*>P??(*QQ#X
z&kC}3El%qb5T%SFOxLVgGf`<tj?gh?e{Lsh#B!n<L@a0K%jfk}%IR(U_N|8u5+;S)
z<(B?XUUL!KKR*681YmB6`Y*9p>)w_kYjuQ>1IuE5+lu?b4n2t{8gr0*#Egt1<|Qae
znDYT32I~DnpF>>wE#sJw^Y0H^r-PRxqA!SN6kk1+qKkAyHk4%kU%q@<xgj5I9?_J5
z`z*eUBuygTq7k?r;cEGtSN^*nt*c=#Pg!hjV8DUI814lWlXE0{RCWL?Cld_ecNdB;
zHtr)C+8Y@D_dhd?kG)$eLeS8w?5%##YuE&gK-G^e;EWtl`EU6#j!fC>3xKbMa`N%=
z=4n(wY1vgF=J4YZ-#@ugc~^0h0RTmVq~Cb&&R_eNnrAkB+XEf}0`J$*jobmnzC>nu
znEfg)0^<{y?%eZBCOMn0W|PnhkkJ5MsZ05(&}hk~XmtWa<hb$PHqk;4(!#G=UXJL}
z$2uXr$<dI9U9!7^2$BBl-N|l^sY1H|_Nf^@C_U?Gkd{65sn0IQWnyO$62W1UWkJ<_
z4M?qSHt1&*7=%ZLhqF9ps^w1UX{Be*US?ESQds{c78pNrLcSJ)ADGoi(aP75M-wv(
zFK}h}Kj}Mf)|_<Uedlmdw(ok#M~`B<*ZeG=<{!&GZ$b@E76M8TS@ac__fBIz)HTLG
zumckl6VigEme6LwCzB+-i>b|!Rvj??NF!ZqWua5+9SZ8f_<dG9PKcE4sz4VRBl=#7
z8w6nMzcD>}TNH1q6`bcCdoAhr&EMpS-Qd1pw=CLp(EJrI$JZ~XDmI?+(J3V}pdjxh
z_%)t)W09D#>d3;C-t^c`hyj?SV$-BC;ik%d<H{u@Q3mw(snsXGQ@b3`ja-NKQg-<j
zz%r4qK@6l`<}W22==5c1J&xPo_oqJL{yDz<C*p|D_uE#cg1PnY96YS;b30mAFe$mx
zy{_ynWP1Q?I-jiE{ET@ce~G0u!kxCZ<;L0|2It=KL8q<P|C>VUk0^@zFI80C7`9$~
zta8A?C-NOEF(3efn5FQcyhPu>GdNp#Y1$Kec5x?0EFH*FXr90#Pv4d(uxu8}&R#{+
z&APY(`vExNr*Uych#dutf#U1%a9bfr?0db>_%G*f+Pp3x4R`t==Nr_`69RP<P`8Vj
zl7Al+i7w@lRX(FL-D3-1Sp5zM-+O#%{<QSLzsi2%Nrs1LF*ptHj~_qov`j+7NoL6a
zPrVx+t{-FBs<QkKqlQ|USfMUs_yi&r9*NqogbPvt=5P`samyasGBTtHpeLbbq^+zd
z0fHNYk|D!F4x_!^$-Tq!PU*l!{T_P)@jUaX;tR69kgud<)Mo_+Bnbf^nHa$P(CBaB
z;aNg_k?{5D8~$eVt!({r<Axh{hGFcy-4&3;WPQ?p4s4Y4zS9esr}3Z1*T&0kKYLy)
zB_*ntb+Nr#lP$mqto;%i+LKGUerWC%(TL1w?=`Q35UVZyI_+D^f6EX-lms6Gljn`z
z7_B<OaJzbYNu%*k7~{>GH@oaTX8QP$SjUp0n@JLU5e~COVLe(hLTiF|EE~GZ-18_Q
z32GARZ#jwdw0=?SWgl-wl6&6Ll-dj+*_K3JUc!72>@(<;i1m~v2#%(!yIX`kH16EC
ztz$yiqoBcm1#1b7hAta)xBZlI>eHu-k&-A49i8Xc+6=OT{JRT^9Hzvpa>ptdG){1T
z5V`bNobm&mE>>uzps<1nCP^j?%@f>%R-THU9vkf}HddAFUh~yBfruVr9SUJ!56Blv
zg(>YidMVtHyAW-Y>2f?gJX0t@yC)bp#Fx{i(94pEIjC1;qSUrvUqr3^3TzQjhuuEk
z>|zAeqnos-+LpS(yjId!kbD?aquzK?C<Cy-yvg7$8cF|)`!;s|qMTe?kCqn;4Xqo2
z#%LvIplaa%A;Q=T7cOX34%mqjhdMq{pj0qw00Kui%KrP*9uqmGsaurzqd9vmjfC}@
zHNuebmg-EwyazmLx7kG2<GF%DMIP78pHlYuueWuJ)A;ui8xzuF5IqM4@iX0F*vuGc
z(B|KoePkA$0mv(#DM>`N{=&C@hgOW@Fw=?@=4|+){cPPj=hL3~8%dr7q+vt~1ST;c
zG}H%Nq)dXw9~Zn21I3Q>^$MO@0`Yp39XNr0zR*>8C~rW(QFe3{BqYaFR9+(sD*)sR
z5;5S0TMM<oHN_a4JV~y_V`F0^o)oYTBX(a|+{LDBYk!Q}iL2G|n48dMlXPPxSyzai
zGOtheMVm#A9^8nG+#wu0dlA#)mOoJqH8vo+v`@`{7m#gH%h%XGFNnRl_3{U(IaZPc
zIlK6R%+U+-xGR91L^3>pHqvO|yKDtzCXECqBEt7wxG5ghGN@FXq8cf=TS^!)f<#P2
zgi%?T-h%cCaVCT>O|#p6v)TE%fMfQ6!vxh|_hP0XLH;uEm+HTl^o9c3$1Ka!B$AmG
zNCuicy5Qozn5R$iw3qj|V6T>kz88n*4`0E=LLyazCWm>&5Xm)wIF;lY5T7q;Mf=4u
zS;_6RzliJpbb6=^>9DFaJEoJ9cM+Q^PIq}C7}|?8vm{>=uEnI<7P8_@{@V|d80y(G
zDRN3O6<>p&R?-qR4`I^_TFE+BkU`BXJ-zreD1uUy1tW0!tc76$q>xdJQSHN~9lLhf
z?J&?j2R}SbZN546dAnmzaTW9xchIpKLHsZUJ;`XNf49-DWz@1|okW<8rp*t+1W~4J
zz5yG@d@GZrtHDn?S7~4Pv+RE{uHhwFtO(;F4p7J`8+VHVo|(l99der*VGnBAy=&Ji
zTs^`@p%A@^=g1Jf3~83}McqasidNIM`c3df61g}`vY2)FK(<q!j_T%gK{izdL6<Sg
zj}XXYf(NMpf#Au;oFp-ANO=!wb-`>V9#TE@pSi`n`%xRmpEF}D!m}qO%DlE<%xk4|
z6oZUfTCujf8iU}P4W=pDKL+2sKE&e%{jmfQyb|p_fz6<M38^<U=L2d_#W?BvmVVwq
z*g57PuT#JCT_zIC^Zu{2dIt`B+d~ej_1!}bnwkA<IMXCJj*rlHE0iIs>l|JQIpriq
zhxnGE_~`@@gL{Dji7Xscd!6+m2dNi-#7NY?YNWtr=465sFhrzI5Dg%ziMakjz&gCD
z5x3#U>;Tqz6q#|d1KvJ9M%WI%W7-BVHlT=IrDMvzXCBX9t!fKV(6+Apv*kpaOGn9l
zSx~+rlai&r)RQJ7U%c|d?uzSj@#YYaETNI&G{b{Bc5FE|G_YI}E(eg%-#P}J06h(^
zoDVU-^n6LFP4ff_n%8m^o8mt#G|67q$uM1q(-aU;--|r)XZo5kq7_Hw&Z~x8=p`Y;
zh~WV-6%8*WVXudZep@YG>~vmZdGXe3CBXJ*G}QNL>EZ{d15D%q^&ER<nY8E=3kxWS
zY_2~Q^NEQ#^IA4wm$VBhqFSN+^q)U+tH`Of%cIV*#CHr}&gFz8*aY$h$kgeUOWKVm
zf{upAyuAC@qdTPsMw>`DGpcz1j6eKo2?Uo($*DlIY0@W71k_C=o}=>FPMp&79LA$>
z!;*i-<uFS6ckkZOg4bR!ywi8<B?^oJ=1_^A&NU)p0)l@&*mS6;Yp2?HS=wWTN6YQw
zIF{$c@z6Ir9DOs=t7coHyLiI(;=X;>eYiWcuMkfPG(@RwA3@Fl9gU=AJLW7?7mH9C
zX}U#%4sEHP_jGD)M$TmUg<Io@CbTZHWr*#1Y@Cd}Ne5y(i^Xe`cJ{yVjGic;M3^G^
z?H`D)O3}-$?U%H-&u`H@rB`(O&W$(vjs}jpoPw=F5IC`iEh?2KO0rL#ESe$MuIRU`
z9z&b<W!EIIIO;2s?#hVM7vBoep5X{DC!<E>*OXr7<NrJ`(m7FiC?MQ>YaxT<5})Yt
z)*7dDgKhCn45TlcUUNiE&}(K*qQhG~3l6uD!!&Yp3BMdV&{v<b836}3NFNG`6=`6S
z?;TfBSxO_bC<L;*6<4FQq)0F^Iu9Sd2&b3E>;x~Lox&kKcGtBY>CmDD)p`j7NNhX;
zM=;5RCj|l#<l&eC2Tpvwq1l!Cey_TdP<geKFHVE{m5DaB-`C>K4&TI2eGvaz@_H4*
zaAF8Di1sdRYqKqUi_@2ljd=lBJ);ol1IwHt_%5~P&6P>(VIO(=^i}snc+981t_lna
z8A=hW3joBhOCeDETl<4iG3M~;jpa)#`M;h{Gmw*2J`|hTckQ*|LAKQDSw$B!vxIi`
ztNkSflM<8d;eEdv0{R%%+dL{R_IqFP0qDhe<*6d&NHdw`giE|Ec$`vHoE;Jul=4}#
z^eVb<od^u)Dqp^O^-sn8ogwe6dY2|j5{C=A%(JMY31V{e$>rQsQma70UP`n@CK1lD
zFRkxGJWIj^3E8jj*xGINU8Vf7+IHf0FMz|J%$6-$n0I|7>Aoo{Dk=xZZ4ErP;uNHV
zV;Du1Zr68`IHbWeEP}|F)VH8*wt;meDr-=R9V5dBwEN-h+DKxg$qGe#_;-$O##G_A
zcMiFg0Xc3Pu@~mw|2jec$=}jdmi<1T9go7;DKG6nZqgZnPC$7pjqN-6-YOW(p@XEn
zfCb>xmyS|<jIt4m@>iG`bQuLXECp+Eq}q!xb1lYbrOE-Z%GruX25FP#%@Mo`CqpWV
z`Nx+sKl)wQGd57}?bP|zYBo+^`!kx%RoT=2BCrWGfB^nFzioV#cGsbCPM7(4l5QKK
z!ln`K{5#+C?U}yuH>T8qnG1pK;tKj&T0NOYjI6A07N>DOkZ=_ucq;bEQ{e+d<e-CS
z@t6q+LUUyTt6RWUEusl1EA=F>f)BY4bvLwqn!4K9A<2roWsnfkSmd5x(NF)*l?O4r
zxwSSQE{48E;@uB{;pXhLD)&B9z0}u7<+}JOwyO=Rlr~g04jj2KUw%5_XO-bP8IsBX
z-r)Z&j3BehXwv59JE4*<*eL0I;);Qfsz5|yh8{+=@${;`{H3k==a_8Z=H`A3VF}3N
zyw<LGv1^R?g)BE=Wl?)nOOAjTXiZ<1#zJf?v>&`;$B!SU3+B7(UgN60{0jC=Bd9sa
zX+zQyLMuL6B5Dza2hvfITp!4S1nQm;LcSM-eDZ%0@*UDR3E+rJOimdV2tS-q^NhnV
zZk5gDRqM}L)F);nPY>#EqVBvN_B(8^rlYfc(&gKH{{E1A_ufe$q4JJfKmePGM^qi>
z8F{FJ=M4}h@gp=S=HY*s_zoIgn>;+5?u@0chUyTR1rwL$KJ2H4SFT+<*|hg7+xqz<
z7_|m7Co~+~ejE}vAyaoMAafsy4i=^0By~z2cuMrU5$#A82&Cz0Fri%ZOLIlrLz4zu
zTDWQRh>49Osx;DWqQGgLAG3iK=qqFnU}-PsGI+~$WRBL;Dh>B(><rOv{&lUnA|vtL
zlxml;nCAR>4+h=(gwtjs<KqHbwv>=dJv(0({CoJrd5`SnXXI0<(aDB@Y5l|VQ_jX8
zh`MNYZv4$Go7T<{4;Cr4QTy-y&C+e7Xl2e34;hqSa2gEM<e^dPiwPxTO9{^VNA&89
z0gDFMl<AN^5w7Bc3_C>Hrpr9Q#nOnYtZ-A9vrRU(cd`cLT^LD#i}W;=rCt|!tt7XA
zO;6y>krOBOZt}h!<t#V2)AGf~x0fYW**)s|gH?+I*z5qXrg@TJIgo57KDENiQa$I@
zunPPTSalHGOF^q~U}SK*jsf(DczWpmC?3+vd9D#X7V$D83zzv1L-~havw2B1)pJ{R
z{pD&k>sQXl(CPn8=2q{3xA}-}^M~)un#GDuDeP=NG^XF2Rnhtvx7XNs=*Hd9)te41
z2fhNMBB7qdCBLCa5p<ui13im$4{g>o2Q(zC;!c7{b?vBedLNYkf27f<T~<r#{|`J`
zO-`TcfIvj~=eZpl1M_Kj4Nl%xND#X_+nl@8EML9VH11u6*s1^cw%MTIH#i9&C`q`0
zc8g33CW@O|-G7T2PkK+l@lj)Xt@NzB3_qOU;OlFn#Svgh*(^qTe=jl;=|C7h$F;D4
zPPPR44jK((XkTHKS-zf!tVee>Ki8kiDIGJe!v-=;Yv{2#X68O>vE9eF>Xs@SJrnJs
z5^FMTq;yo)^i&d--OZn-zZY#jSbp;b-`$kmDH#{5UG998-Y``2>tFUEo^1nFU;x3Z
z4@&QC$P<KP42$|Og4jt!n56qmj<~qj^!c4x5yFw40}cdC)HyATx&?LJ5o|jkn8}z=
zAT4r7j&vZQUKWQ`4OZm`89ncNks<~W4VmsbTxuRav>r+LQH}$HHNUQE(m7>+T690%
zQS4{nAY~gD!Ml1xv;8mAf0{ozxu1NzPKCRG3j6x{B1G6O-t8aCE36W6Q_oO0$8{p^
z^~&*q2Y6dUcypKwue}w^IJ$_z<ia7n`LjK1zVmFO4;k`LyO^pUp8ssB)Z@PWp^e(B
z#`$+qTk`05Gly^9*wXuYfamWq1z5-xu=sYFScTksX&NX0Yw%~_wTmgtC!#j_SJWnI
zu_yPBFZVlt;j5eq^Ua^4pI0y(3C$mfGP|?fKO5@9zklw*Y&^D~i|#}5Mg3D1CltNu
zN9~`81Z?_KGlKP4yWJf=T#-13OUs8=uCUK>lTc<gkEgCC3jW!l$=}8{@;dp>-li{k
zawkkgPcrKA{!4jc|NP(RVqWq;Ki)9jeOa|iH{_lL^NG!6LuMV`|03Hr-ms95AX}P9
zd!N5xZK|K|SGDhQfTQ8i93^{KvAg`uzrXn=?9kgy0g*RXGn8t`uVpCNQ+%czf0c&3
zbUSu*+a~juANdpMIIQZ|D=t}P@;CRrb?Xejkyq#&{~a4w{<QeQI=4yaIwL(`dm6Y3
z8t;Dytsxp)^pzn00<|Ee{1xH=qYCN`ppcx+$;e<@vSf*YMe~MhjAKSmYQ8&;F7i}~
z3nC)gssGOA)R+cyvaqno1_k7EvO-N;EVlN2@dgAw6yM^cp+lL?Nl#}CdXvvhCGLju
z1U3|>ltMJy)0YtqiT!sm*J5-7bitF7quEn*(kWV%{y35dpRpV6-l5XBbB-oEckT?V
zrh^*^oGZu+>b<MP@4qPx#}dexkqz{!Vx5R;l-iqxnQyH3i>(f9y3-!M3@kkW5!$<K
z9(0Zs8`p{K+48kIatAP8569Ky%PsJg2r4hI3=+&|3u-UeNiCTYrQw?kG6)<gn`lqx
zn{#{`%EWan=4Ii!%+X6qyU0UoPs$(iqfsSTI&k6tg1C&GDtz$Z!Jkx92wlkxENK0S
zDWwKE)*vbxqF9l0K!(E|UVa7BF5M`ElL=U_tqK2bZYUW$*zRj_WC?S1WL4Gco=O(M
zcm>;nCSDFY#Wpv9&VPQoQMyI{gJ>X9)?)|<9trg#BQ^+ugkXuJiIrS`wtC&nci*O=
z6k#WjF&aYvxwk!OzvFH)(u0CR2TY?;xXnKu7+c>yS3EB0F{%1y$ET)UFZ#xuS-DpP
ziP=q@JO9u7YJ~4C9pLfy_J$Gw#;cdu_DFoj;w4Ku&>P%8Xu(Y8+mK2G=!HRwBcNlF
zTEz&atiix_4X_|$=7G-(;-P04z~S?afLJONl(ayLNb<6Z<)U?T$5lA8!djNlmUyOU
z?}<KB_WJuJ?cj<gW?CxC#;^X-GK;r|<ir{8{>-rQm(JY3AI%=$Ngxob64L|GQ0lTC
zG!LG21L00I_7ItnSzeI5+c_Ou>^J}dgPFjXv=Vtv_iOP~ywrxHC`<r^m%@*rXGUO5
zot#TtGrtCJp@AcN&Qmx2zZ_;SuUQ$)ciM9A?q<7buZr~rzxU0T@WuIkvpF0w`-ol|
zyG=((j^B+HX?+0>|2)O<=9jj}?_rdAqfiZTueJ`yrcF0}I9!%XJFDtg*X4W6xzMN*
z3{2e>nEyc+?@2r?FIVkBp`D|LCDE^BCB)73gV(Vt{N3BJWBHMhQoe5!#PHkF&Rd-q
zs_eug$JqVa^7;a@{_}=dpG&YlxAXHaqJc#zF@FFF8;u67-`5ZqZ$=XAj_}Eu3EP~i
zW_C=Mr@#^r$L2b=_owrG^-i4oD0V{kO5lQ2eWuvS{qrTY>J>lk)ofaQKZ`Pnk(DPM
zC4K^iFWp$W2jcjpG%UYmXoJijfEuBd08Z}-aRGZv!p?)&_L4{`QgI-&ogV};V%UiK
zkAOWw&6vkEHHi$IJLp!>#k6(gu=8BI%V#;hblkTCxW!KwlR&E?zH8}DKdeU=rQhHF
z5eoipp`2)k$4$Pq^k{Xzv<Ua~UMYlXQeB?iJmpwgS!l1yxAJ?I;Wq-@(AcdLsjg`_
zVc$I*Y0?9dwr4m}zNZ&t<Ue&=ily3iiYY`zKnV*;qjjYD)<2zTqq#CL7aEvoNMxFn
zzPKc|6%>q}em?Ly;VNP5fR){AK)mD^D1ox9+x@s?ub+kHQfpuyRUimuOfS8rXk_or
zt?;J0IxR3SW$(oGrJgYMrDgp?k_+qG(LBk{NwqB1mgA>a+opDhzA$yn$FS?uzs&ec
zny8$dXomI0khi<|%VV0aUr0A;;A{|#HZbz3RG&DZr}txkaW>G|rn<e|2e3qj?!th#
zwc-%G4>qgc2l-+ld$@CuUHNwVEWM_oAy=^CaElWwE9;Gi2Sw(IaATT<!Z}{@a~sK{
zG5!l;er^Q@9;eoXhT!+_-@YwHpSKsYR7naLB(+#nWsv-myaq^RpP+a&Z7(W3QV4dl
z9QTkYOU922283y>Typ(j-m*voQ6T7ynlz4t_AfnS5S}v%Ti^2!`&~`Vf9iLAduM%b
zpa&&fsmQg0j;G=aJWJ#!(cw>TYH83TA!lvk!5{uaf~f_c=Vt)-3erv!lJx>q6!65-
zZr-}}3=>h^kf;x=E1*Cxt)cVG!VC)}mLH)E@;PS@reLH$r>G~p6Y-}rt@mHbET7f`
zGNG0fo;z6VBB)9oO{_C77F#;RTKiN)fNA5|hAOFx_fG5xx!)AKA^N4omtD57j6=+{
zNP60$QP)fO$HL?f$6&<-IjoTTZ4+x<FaUK}JE_iKVB(kdIZ4BKsiL(H)>dNQ``VBl
z=87)Xx0vEk2;^?x_~c{)y4UZWHy)YHx53WZm1*>qI>xsOR~_B|nkpXsy-s~?11A23
zT~H+L-2$WS&s#BK6ZP?<CSKnGPi5v=p?D*g3~GKO-g*A=2p;IIu*P9OXO{AkP)^X;
zx@%YRyZ+*EXPE;~10-3xz8qX(K;7c>EMNN(LI7B491Gf0ShUU@@~*B9r{wx9jpBro
zPOY-e81Smk95|$RMn~s<-DFVxVe@#Vm8?~-g)@5F9%iod@L^v?X=!M1^EqJv@9e&3
zofbX5Jd_(}t$8N1<Mg#d&L`qT1>K8b#FP|S+M_TE`v(dGlmm~xu35f(B!7yoQZDJ}
zlhJ>L23UDp_EG!R)9!|ZT(EW1|FpXfg0l(5!k)67pHual&F5gu_eciD!(CeQq&sN;
z9d@y-m!h$kSKYdKlPC{qC6H*7c{4s)zTZ`1HMR>rpLS<$%2?vp@=n_2@;WaJq`GlK
z?!}EJj)B9Qnd6V5x=x?-Phtq64!!<${uVht$ds0@(*@R_$X)1ai$dDFRwc|;bTrrq
z`a@i<VrCiACuo#Pjzd14;9Fza@ak`ze{Ui#Bq1;NVa1B&(v$H^SsheYi8tl^_0Ux?
z*J7;JeQ@1Si693myACdtgn#eOiMw&d*xSj#Nm@G2mX(#qk5k8=ft#h3z-Rb1)5QnF
z9cW-DlIms<0D-YQckX27Xu=iZP1vNmVt5Q_+lS{YT>PL<N{o#EDEL0Vc<t7!*2VU}
zt2Jz(pt|3h$)fQ{@6O+E8Q+BF?>Myii@jy8AWs|)oueEqgW&UsL>-6mH>$I9-Nua<
zp0(it-iz-P@|3bC6ZF!66G$iw@(gf@7u~HGsKXrgXGY7QW>`vN-jJ^O+U>pg*2FfH
zN3U4iH;m|2W|4DwaS}ZvGwTfo$JRS$?86n&9CK>w`p+gM|C}1oh;af-IZkLMB2x#<
zu0y>rUITF3=$SYsq5*77OpoAJ09+v0BGeI>KSAFebh9d4j0GKQ3Am4R$lq38h;Z)t
zi;NTTv*KMh{UBZX;L+?GW#5@E7cu->XzP^#WdurRh;T`eV@J^kL5NP${y>vG0r{lG
zr;ya|0?#Ey`YOUUe95)tOGWxLcw2&~6OkK94%8M7{pW1GaU+ox?K|_oI=^|TUjQ~z
zpSLYcnHcYT@HPUP6uaZvO)@Miy|c1|>36?57ZMX~kn>G-a2PbPYVJxVx$>kXOd~7%
z?Q_*MJc?HqYIHN7Rl8ezXK45C19rzJxvPr!UQ|!dty|BlT>G9oXun9`?}-NPUXki?
ziONS0rXzaAtH<Ks?K$;a4#H<&*TMk6fJn~Shtg+PkA3w)WM>q@aOIx5jP~b8x|;QB
zP*wBcpt;svK_6RpQ#?GPw8vuC4dY{C$}@h=dQiVDBCF$idW=6c`7J9GY&zppW>{Ii
zN8yU}<GIX+fy^$U)!bE8RW^s%d>Iz;u3CC^FbyV8AB)Y=8yI|=&zv3=WpZYinww{6
zHad9Skh_ajZb;U@!YFrq%h>&8R}Yhyic*W8vp;_P7PPm@lvzW^r8k2PVYSROnsmY4
zujQT_8GO3Or<E-BjQPlIVHC_9blShVEO1nQeoN-eUe@JqlAJ5rR;hJWaTK@j39GtS
zVwzlivmxq@?H1P64pVL~Zf02?``mk~t2dy1IJ?XF<Le*8>Z5`2MqlkjF~5pNtK=%Z
zMOWEz$rS3-*i0%kFtB!BR6?Tlb5>`m;A%~6?c?UHj%blq_-%I(2u+%^M;1c2U#awd
zP?PHmSRTj5@;Vn9D4aAlj(wzJ;<fELNB-QCb;-$2>|-v4=H}*s+%d7Se}9n88yxZ_
zxGJ_h&o+fusr$p#vx4z?d7=s_&4F;Jf4y;z#d+P}yAL0<R8&;xpU}~0tY7}z9U&@k
zJv+Hwo>Qg_i!;)mE16hW1c(2qeQ#J667c;o{?Es>W8`9J%nfYIziWFBo3|!xT~gNZ
zYk{wkJ<oFX{M_(yfsp1>ZP>{@OK(^^lNa-@n=Y7XsIu<YFe>Ce?Q<dOl8%KRdu>so
zjl_$Qr7<GmzAM(__vWterJV3#XsdqLM5J)?I`X{zp8kGnWcbNM=FDh*v$7wW1e)=d
z(pC6}&gUx+6)pGdxs&)~CQx0pO|4-*TbSvy?{(2|)A%4^rXOjHc&U%otkL8Z)8luW
z+%np^@S*V>Pc!?>;IiKt(-)u7cR=N5=J>ro;K@YHtvz+$4^XieAWcYLzrFx}$n!`@
z=7Dkz56a%#gX;1uDD{(YSk!U1ZKq^R%7qwRkxBEax0U`T_wlRW<yY6>A2gld%5|ry
zI}#xm!UOXI#7jLnTAnGG7%8#gRkvLJ=bJltP)s;>tn^Y&#lDEM(n$<O?ag=bXV30i
zUx057Z>ukyC!L`1;k$PF5p7fTJ~QvtPqGbh86|SJOD&$`My6oKIOt$)OUo3<C7yzf
zH2_K;Sk@t!*`~JrDIg+qK#(qosnpQbO$6Yq40ovZ8TU*O15YuO(5kr^(_~<qdV*g~
z%*xUNAN+8y(RE4c*E4@Jr~(Sx@Kn&``1l)R(mv!UNjW?E=)TC7;J)zWUE?NmhNT+a
zW;G+9Gm4h2z~}Wi;?*Drw^c0;j>nf?J-Lj|4B<PUu}S{Kyo7h%HV?Fhp{z;)5t{#L
zVRE=V4K(KflKMYYd;Hqp-Q8`k)AsS><7)RI$~L?{DLMHwq(Yf!N%Rr_sr&5Qk;uS$
z+Dv<2>{82JA}RZo*Vugd@$ha)iiP|}(|9qSnkYJ2^iSW*LES5sPE;;(-8e6JW%Gl6
z<>$>4<z_E_4!m?UN^G#Ym6*Q=*R=lj;xvU#n>Um3_1<NM*shd_{y<M4^j&3TCWSPQ
zjT<-iCB#M4B8*xoiMY>a#zKp6S{a++-)%(0S9;6r6cDIK<!FnpMUIU6i-4ZBacj}n
z=8HnRb<(BLWTwFE6pxsa#zBYaIgdeP&m!~n8dQe~QuCw!c>}5WGX=x6SCLXowbgCS
zDGMUb8R{mf3zYass-%?t^`WBg>pfadAG5W6fdeuQU}a)Kfu2g7Is{qu2w6>oT-iRy
zZxO4Tq=ebSo;92?q5hn;5jXeYNqeW@U{-(EaHhg+e{kf()CI?<YIo=;jfo39`N5S{
zlK2jeZz;71#ORSDQEJDKA^zjzZ+lEEa=|e}*)`}pn&AjajF12R*(j^HzYxK}Vs$`W
zo+1gRPhM&!Kyt26H7PMs5&D@;5-xVG4^SnxVuoLMy?w5pZu;3PEmqka&Ry#YF>!6?
zy@{mk9)q)<EB?B!b+P?%_(qd_wwrs;Ui;a+_E*B|-Wp+J149?L8?8{8WZ=7}>gww3
zrxw8aXTkzPZvRYub`ei@bNJ)sboZmSY*U~7kax25Z2FwbSDW16fO}jDy8DbD&D+f$
z)3D$DmxN!K8?KMJl-q(=aJ4M4Rq`m{_L{_Xqwmh^i$xkFvVT;Z3QrFBU&(rEWov7z
zGytVQ%;4xjA)(h9lt3QY*PLX-Z-#At@N=>I^IubjgUN^Z6T+fc@6^k?o{@CW$(P*a
zb0z8NQ#n{(C&hRiw+*)Bs*~HhI+eX-$>6xU@%HAr@jDS*0@;$n_SaXe!=t-}<9n%v
z7arYdH%W#5j~j$)!CGcQ@iU0=(vB^c<z)s!o=R__9;2>Ps6}HDZJ>J6=b5ML{#Zd#
zm*TvW3-*_ae`$vB&l=kB?iV>F>=z#I8v9<&Sa?GRo&H|#LLEE7M4P~$713AowgQ|p
zl4&O)l;+5}de(wQDbxM8Lsg_y`?Yw_(oUFM3ITm=U_Yv~y6kRyyC~DuR;$oYeHYJA
zLY3X0f6cN@v*}NcU-EwW&^cMI+I_@U{oLROlu7HGuzWm2?tVRZ*xo*q+YEBqRtD|6
zk?jwqMG)E`GjMRVEFR~XDr=7?*oVZ1a%AznpQzx@l-#*1lQ&%bq>Ge8m?7)RrB@3L
zq_l7zmkmg7VQiQwyB?*kye4ss%GkcGF~;}7DVwHhDYx=S6}GzSRg(_=7aG4#4#Y%X
zZPKvOm3lzkIT{n|`2B$i>(Q1@VcD*#D`y2w-&(RBqrW2U<GxdYXSecBYu_U6`TUUX
zvFSPSSTX6k`g(IfUnfGT&O5>fpfU2eZF=cOL4@w8=;!uG6Jteka%b97=xJiJ+uKjJ
z2$;RrnC4@CbIfe8#=?5^jq_~A$u_B{a|UO;w*A=7xct5Y$Cp8e>nzyV@5y>KEQV}3
zP*O3=A!hfw{>k4PS9(X!ock-yMKwY^!P;XyY~Si9bIYnAgqT18Q^wkC#@)s3X&|v>
z0)Jwtszj`PHL4HIGt`;(IMH)8^_z7Ab#-;W)jNC<{Mpp_3EJx%^EuAU4u?ZOpUv)_
z`T0db@v@x<|4>p&?S609y2~6t{N9OI={|G6>fzEz&(kQ`@4I28w^FO)Xl;G-F?04!
zuWmLA-u>Lr;OJ7#BK-NahWr+`lg^fRPUaty4{(A4`9^{p5~GHxr0sINlgUNJ1qNva
z2G-GKH%^@nY!$qHjcpM>U-=Wm@tNQ}i{g`x#e8LrF7DY&ylQFeuVbD)JK>NovaJ#<
zDwJ&x{;sG5m!_>~^5A}Co#XX}`+cs&(EE5{rj_<O1}9G7VP`1+xrmRA!2)je#FUge
zP(=q}m5Qet*pt0F(mAAZRI53}zHsI8E3~QUP&*_OAWBo46WOo3IWR)(@}X~OLmRUX
z4BUAk{`$uE^L!OT7Zn4m1RU2&R0SM*#v8TOI-2IWT2_dX7NX9U@H&!8V1M5E2U~U|
z*bB@5VwBMC>I|;=rFKKR5DKDCAeL(lieMl}!Wf`h_@XjF8c59j{3P*fyU=P`@@Ruc
zOTxga@5j%~oYZK(Bq<bD_4%*%=3jB2n_RbXSf+{U#)sE+x9+l><Fb#<J+W}P%RQyQ
z?Mf4emsD#@{QjyMRkiGtJelk}#qo1`>CJ<RSzo^t1oWP=v3Z_QK?&OAw}!XnFR`Ms
zuji_3^i9ZVR>b6%1vmLbX?-k)3T&hLG*G+AK6lL?vzmoRBB^tkn&u<FgF9_3v_7cq
zX5W9ftmSI2__HIc70#6psCA{UMib61*`ACdl-|-wjyiieS1&ev8JjEWj3f1PudTT(
z{hcwd-2U|IPBY~!5Yk8H%AZS7{q~30HtjdQO^9jt-_7my;O;W;ZD8Jde6#)PvX3xH
z#^BKWj(nTX*~o-pkn(e_w8{<>O;9*5^Lfx=GIwxOq&6k$t|ZiW{^!S4j%So(7%~rJ
zsTylGs%=m|T^?bKEMCWBBf6F{tP1SBSMWifk=h>Ju6_|UEah6m<1$k??%&)bB=|;O
zJ=T_OY5H-2Trz@39ji;DySF;BeV{WJ8?(gtJjar45x?Spy4XD}(xOCc_1g37Qmr<L
zMQPiwJrE!)m*O<<TG+;*I{ov4_^h1SZw|v3jq7bzCqH81ybU&L*R;W68clFjyMZzZ
zEmTOPl9PWpu(gbh)f+@?;FVkG%qi{<(WTVf;cjgpmk#lnW7t>A<3m=k{v!pUhExfg
zw^=@J*3ycW4lc7iRvTNpe{e;c4qwJO|830Ks`sPWyJMP87&IyS)`zW+e0WIHb}Wyx
zbF;6>i$*&rX9nV==FI#rAT~Jz{_0wT%<-lKqnW;W{r;g^rsdulHq}}&ygX(#Z=MyJ
zFJg@+IVX2Gr6g+%Uvaap&hpp)VUxS-0h>F7xEcUUz6;{~+jV7e+6u55A&(yI!Zrgn
zF7*Df>JJd5p%@5+JaojR`R4)VOXqDIQ3JYQOuAF@ZW#sjpR&}hV<#`ay1Tk_{|h5s
z;rg+hbdiffDUb4xRTmV?QzDn2sxOS4_tB4x6qR*6b3lS?luM{V&z58#)k}U>(T4bO
z0$JP>JKui7e%&|eko~KFsK@YH7A2Ky9oNIaxkET;%#d-ft&^wI3UqKm1E=<S?3m%I
z#D|uykW&9bUCjDrpl(s0+?UbPIr<&Zv?1L3_H~*o(zMN$+p>68#i|ZJ>e`EE5@R+I
z42>*I<G%d%If1vWwujiC6&5~PCw2a4+yzrz6|2t!ZGx|LC2rkydduK5KUj+aCus}U
z=BEQ2^K#Ed-}4K5YW==IW>4Ftr1`$+zW(3R{DN1hD&tQq#ZyOGkvoBUa3I4C0xOrX
zw|uS=qutFsai7^%{}lYFl%yM}efk6QWa6J@NqYEW`D^a%HkTv>ktRXlyd92foasL3
zGc`3eW8enb$-3Gcue53JIXRyRs1?(o!a0gii_e%exjx&)!op$#`TFKHRP>Qel5S4F
zr(Rr<mPUc)0yvS3f6r~T(#Lpk_Ik4NnlcoSRr3+2xO-r}{{2TGpW?>OM2g5S<n^ub
zzBBIsRctq(Hs@yUPJ@?jMz#CxCy#`3i?03|fNMM0p!Wn0%7pZEHM}~C*@u$uE};tT
zI&NyGvBzAcGBtJgx#&eU;juvd?~hs;3WuL%obzhX-QCqnGf086)=|emP3<uX!?aH>
z9hY=aMV6iwOr5wc!$oR7R8ygOcSLsYRwkvcnDPf81JOX!6as<#KSo@({pkvH1FhX3
z*Rgo<j~(6F5FTxw)?3hh(OjAO&>|RX6zDK>*U-i31O1$7b$$Iaw`SwQn}Q<z^8O$4
zk1~WQA9bu&S(J13%S9nrS5oI<4VuqCa_<=I8IKd&z4zW9yy54X6$Trs?(da_M86hn
zQzn3|y3d~xJ*be^aeZ@!)95#YNv}a=;!Lkg^O)ebY%fB7;~-T_2G)!^K?@<M93g%R
zxuh7$Iqvf4NR!}d0J!4<#cH{14DRkdZ0^>*#*G(S@8~y*KBzO{RaQTI)Hp8Ymc0L`
zr^#G1tsRp;KQyk-TzuN(2xm}4g1>)Qycn-i$gQ?dv>DPm-GAqQ;~AW1G}>e9V<Qhq
zlrZGBRKr+z<&&MofVFp@dd@vGp;(L9Q2XD5*#poQ`@66!pydAP%r{;tpSoG|@ysd7
zxeC|(^KVRtul+t@q9+^4Dtzip(Rqh#d#3Z}`}1v6Pks^n{B`ne_py_TYkeJQH$s<8
zKgpc=zN{vcb8j9eY5i%mN4IvZ`&exib}2xBVt*J{C%@L*<Vb>f0Y{8j&_N5+h@ty}
zM{LK&o+MUSz1Y!wq3~2Xolf)n7IA&ai`RZ>+?&w()gNGVV8`pxia#&sF6+f2SUUCo
zqJ-15n*!&=*YXl|4UMO8fOFLt{#4MclizS|?&~tCyH&=mFD#Kz1iHyEx-92wBew)4
zZgQmv%Q)nKu)}F9H{-0KNQw4>67nf&foPv&Us&Z?j#!wQeuTCd^=k{6YvRigrHU~W
z5#Jd{qVybZdbn5JnJNG6I+4A<Vxu3cMvLK#zRphGzB93BVl%i+=%0|a?YU~h3IkLH
zPm<4vaum1~7437+YD-F`Gz#0}*g}uLxXz$`eZNRe2f3n>CATm`*scRz+b0vL-;HuU
z>t4*vxS)GfIH}?{@tTa{!aCCp`7U^gqfsC`l|zKL#*lnunxq^Y0C{)s-HXNX%_n;M
zJ`W!sKhsKuK&YM{el<N8iX-?t<DXwmXL5~RwDQlt;%`40f@)foshvA&=xD9j?>PJ`
zGJc`F{cV8_{oXz1{{fPbjwrLbcfb2)H%a)5l5^IUbzJ&w!T)-A@^|x@W%P8%tz@H*
z6#1j3`-7M{OJsf%Vg29nG6d-SYCyQJP4D3@lPj81)m#0kD;1pqmEHSd^z&N<vYRax
zPvfJF%6PFX(mKSZV(QiKKC83phdaxjUS6lFw(GVV3ba~$0({x{UsG0I4W#6pa+7Sl
zm?h_9C=&2?Z&Kt{pm}APbvv6<FBrG~unhWM{lp3V^u60sWA0#wl$)2veNw<zM$=(f
zVX#_<V(^iL3NSV^^x?y%{{faErz9{qJUpDBS<_c{B8l;*(cK3R8o8L0!WRW<oIc&$
zHt_c5Xk1)ecCm`GGVnugU3K*!6t>(u`1y~k#O*I#cgnx4!<4ctw}lTjF(CnC(Q&6>
z)LAUgl%E9<ZSVgJMH_tg_U(!P0iqFzb2oJ|dJ*lC2Qun#YD_eIs?g9llO%m8d2inX
z-2*nsR^fuDtd?1Ku2Oy@s4+19&McdMe<RQ7=tTrtqtRB#8ZT!p*|f+*qQEE!kC^=w
z<&HAyvqpb+r_aRHti=JY{bGmLy;O<|+w^lbYBHny;xqBm$J{&i@MsFND1A2JrOqT{
zt$S_zvyan^jczPG>$&o;>l`gb&(v*%Po6p+RFvC2ocJ^2KI>oW4UPKD=F%q8`m6Ty
zb+1^`yl|$&tY+M&ts%6{Lpi2OdByF&mnb*Agwqwe{<JuMi!++e{@vzo26Mlzy6awU
zblVUuvz0A1sb*V#)^<jQ?0Kr}yIyQg!ih;s*VC#W=9h`QU$d4bNMlP#s@ZI!LK<wZ
zj=R^zT4#Ks%Iv2{0(=?P;JW8-FWw_4og#LM$-c3eC9)RiK#hORmH-duv(@r%TgMO8
z>7*6ki>Tc_ZKQl-B~6fVN|tNRZb1N=+iBObGu09G8%=x$0-SFJQyoew(sp=B!9^<!
zf`BTRA&{~ODob+<i-QQx*Qe$tkO>~Z=GQivKcHL)96B{s1%!Pa#8es31Y~Apn4&nE
z8FDP%Y~Kt_$Yn6I0Xla9O$`lG06_%kNG+asLAyKQ5+-o|x~{9`QGP~-K3v*S!B(pN
zv3mD}sr7|wiQMLk$=i8KSLv0kR`AZOYtqz8?m4Sg_G$mmwNGB})B3$-qtNQPvy);?
zIxf0_%K8%Do+TyfE&Td$dS?3N=HM2e;fJ^k)*KuXXt!luFb#ys@4K(Ij!yi`moh+x
zRG{vS2YzKXfhhXZB*UexZ-MIA?y^!bWyLo{8k~aTV_0mqI44I30lLu!ZlgyCfT*DG
z$oSdH&DZHW)RYFMWVqgbDB`%NBJ{ajV_rl3>S|vNsY`UgRpUZjvmEjcPYuWpo6X-i
zkw^U!@6J<S&%{1chNUg3G^D8S*FGL~HM34v|L2vV2m8t%l|aiuJG=AwVP3O~7eAvy
zW@7Nk1UJy?+#7C_tG9E{o(9Yy!x#A!mMKM~QVFIQ_>@JVzcPiC^`VgELxjerLKAVI
zKMNURPjGY`Mw>A6TDT~RKQ%|jD*JTlSv5p7>1JE$D>ZxhAG#>CMpaqe`MB-pf!j*Q
zgT#v{kJ~GKKh9N8Oa(6!JVchAws0|*wcwZTG0O`)GriZVW99!PxBnMiZygm?8@`QV
z7lMjP38<8UfJg~ApduhGjigGqAR#eq6$J$ehwkpqAqN$uks5LcDTyH@h7>sWyuWXK
z=bZJO!&>iOuj1a%e&T+v`-%Xhw}5u!F~;@W_Oh{W3UBqs*7?02=^j(8!x@<P&kBn;
z#onAD(~pw@)BsxU{HuiBSU|aKgk!)mFR78)LlHJAK+V*pr9W7b3|$6Ikt$%GJGTq<
zTYv$nypmEt)kt<WS1ovcVN#9uS0k!+=5xZpCO4*?Bcmq^$k=F7j#1jC9gBXLq}Y5h
zO^Ku6b)j08ln2S5Tbul{{zaBjx-TE5jf5>^d1-jq))A}ZrclC6sBTZq?9}cx4BF7v
zp1rS>7JcNca;ub25<+d2lbm1BKvcDSrG8Hewt=q{4*;g{c|HrkWeM9Hq@OO7-V+ki
z6d7>}VY3AF&8Y$r2B^Hhu#JE*CAm`7C(7hha~LIuvYAt->8iW6^2PTa9J+SRCoR=V
zW~nf<mG4UUSWp)Q-ACcjSS`6%#u}#Bh=}Y=TzLX3^3Z6ZAiuND=3k5*de3x^m@cx;
z$9RygXNZ;?8!XDIcd$Ek{G#v+54#lp-$AYw<S9-uYiRjD5LsT(uOQ|T=YlpcE3$&q
zbqGw-mntR$-}ez{>Tj=uy_FmW7T-<<{?jjbn)xr>`Q5HAb{I+g$m<#(+-=)*<nm`a
z9@YjHx5B^z#X3c!k#(6M$tl@1)7fy<$+lCcD=6OAKPO-DKT)N~R{NyNS#|}DAM})2
z3#N4ug3gl+68)KTXy4Vv-p$U~SYB|drKa~04v+84Zz<VX`DZP}Euvy6rwpaww$yWa
zRjN*b&~Z_ChvV!QYB*pg2}jt@GKpyf+L`hF>absQb_IRw`+h<QlnvW^d8qs3X~QZT
zXaPFpAwc5cDk=yDH9Q7Y8Z?~B3+m7oyMecTA+Ud)GvdsLho?9GX6Df6(~0TV=@dTd
zxVY5o(Hq7TKAn+1myltQEzR0^16ojz|1$XSU!4fjOb&W5g=}A@@;%We5gQ$qa)LK5
zhh=#z>zPQ%)j#m<ro*&bF9{EAPTv0{dHD#5PN%tYnU!(Uw&B*Q`wrYHP;b9H%9!)X
zNh_UANEg*t%M}pcBpE+i3HwOAKPCFCZ>GybD9qjJ;Mdw{q3x-o>%Ys-y6+FggaH`w
ztI)GnUF(YG9x{2SICN66yv<q2QSzwwgPw_UD3-knj>C7(gsm(wDd|DCY;zxoKT9_<
z|L*QV6`+bPS}1V$P}A1t%n~a42VZ#(RJLxrcMAG*Kw)JKRG}(}h#`SN5UzjmJv5!l
z+kTV0@G)7?Ld2JMm}lC!PffIHj<3x=Le#w<`XqU}W;djnw{SSqo8P#|aC@aOd9mRw
zn~;!D6z*($JByOl%-Z&GyhP1)l%6Ec38$5CFT2)R^E5j0N9$w9`RH-hGMlzXrpKlH
z6c4CUw^DlHJM9lmuIM;29>=6}G!Pa7UW$mQ9p{RXEN@)0l_1_rx8HDmEBqxv76}Ll
zNdNISVR`wJRnrHbH%4{4&k`ggy|TlpSn^z3{7ggg8Vzf(0awhktgTEQVv~}-mBwfS
z!2k4VQ2;_sK@n`h_FAcPBQmMAcW*M}%cuUAcduw(2S9#Nj!<|GUSS7@As=*bnh87j
zj8HHShVCichvwn>`k^l$F#yLMGfOzZ&~`Lx@!ZmG`9aKil#ItwYrMB7d+x0NW{+s5
zrOIlV(JUUxA2tyYNIpVak-EyY-53;5Ra0_(=TqggK(RU%Uxs8AoL%0n{+ULV-q1Fi
z5!BN4+Lx=3`;XaTC@q`+cIieo(k;T&_r3&IE;jbEr9b6AEVPm9EDGg>l$hOo@)PS}
z?gG{ad;89JT3jctZPA5j%(5F99TP(WN#K8-AjsP4$#Jm}Cb)(4uUwA$=OPxDUe1)4
za@JYbV<&Q>S0j6LS=}9@F5pYqn`g{1k6F03hzeYAsgC^>&tbv%`U0Br`es!9I9)KX
zsw&wK)AUrA%C_ZAtYn|qlS#>hCgb4HP?Kic$EDA14|pxQip4opZx}t!by>T$J#f>_
zOeJDmeyJ!oC0#kN<PyiDODtvxt%dQ%jA|HX`RGQNM9_kAMyyNqzC*X*SrvtTgo#I^
zwr<k(A$BB5yivJ3jwW4a$?Vxw8MmnDVCmW$WSkx@8JE5QQcf^71l(#QeC72$j4lmB
zm)C!@90R55{tivT)}sj1{Mrp&6vSbOInReejbDHXaH%!`KdIV40j)2RSKy?{vfca<
zyzX0n0{SLmfl&ijC@rjiKDEueo715fpRRJ2g}b`lYzOBb(X<BByLa6dv0&_eWVOd{
z`4g=JrEvUk$%}t>*y_Eq*6HH^sf5*cML{=c)f|KRWLB11(a!Q@Uc4IbIr45T;*3vd
zxm!kV=%127n^Tokr6Z3bQcFuqy@IZB(-8{kU1F35qoQCQ>Iv}n1<>$y=lhk2X&Gfa
zyOFA2EmiW$hf9P98Nu{-H!bJQ&Gik#nx`ls_Y5GdgDng21cJj$2uWv`1181e*R`lm
zS0ZenCvFffr=VbsEN<?~-CpnF<_w(2vMdk<8w{r`Jdk_tPXg~hZf*FntaIe+hc-Jb
zks8^O0(^QXd{qsFewh&c4i3K6;hVbrYp0beSCEaPk1kj9d9C;}H8ij+oW64>%mnKy
z{^d_4hnbn{{1>7No8|L;I-WNBIL}`B$wjEU|GS4@6&Ke7Tc_3CJuV)eUg*P!g$-7|
z%3!k`t#Lb5faT<kPymIK8pwa==jXxtG*j91I;Z@^c_Pk|a*LGk!GnFSh9+}>4XJ%S
zpPApxm~~!mjzjtcg?CJt``OV@erfGXpZjwf11;>Qp9-DuW(bc?cY_=GYp1udF3c#F
zOtp~MDlz19Uqq~5_P+q*$|&e{zX{SI(m(Pq9<+hn%PclaI5gtIJ?=5rLJfgQ&B?Fg
z8Yjt2ZV>c5D4-n7Z=Hq~7ZT0}`J-9&#(^J4!b{BYS7wJ9iTXaNiO($*rU&<_PuF%|
zIcWiPf1bq7TSEyiofB4EDbf5)6v<)ZihX%-UB+3KkeWVoI~}xfJ53IpVsqvB-P&W$
z-9ET>w*|@*C*qdBA}Avvju+~R|IjZehah1)5db2r3gSaXzJOo~(9jbyPWtgYt5_};
zdb%Sn1lyg_O&o2%`>quj6v(Tn^ouXokc+$|bne*wtBKGi)+4)(vuD*GwV91eaW3Nz
zlk6JqRQZyKg-v~i3YVd0ggk{ZLay#!q4q%$60vVOIp)-%M=Y%y5~E>0M6rX&dRbM)
zZ~0n>EjqgDnW<?7dfhqDWfwS42Ty#xv#gs9THZV3)JP`z86jn~4`6@sTi}P%33A4M
z%i5QBbD`J+XPSO@_GTh!z9eDK#<!f!5*kERi{*r&0|dJ3R=|d0>Qhoy?gPnN64|Sk
z9L7cNCnCxuNDvzN4_>onb$@%Kagu23wq8*9e70I##8Q1OikDMZY*44*pk!NVZ+AGS
z>~`JSZEnCN8rQGYulxRF>1Xk$vXW}H3=<Y<u`98Bp%rL%Mf^d+6_KbZUU&zwYu~Js
z!Q2d@AvJZYUGhLan;sp_03TgWWcZ~wa+%L?c$&>}&%mCbNSxWN>uP76f{Fw5{W<Go
zs1f=eVql>IR3s-zP$Y&V{4<F#KFsQp(qqhc;Gl7Oa+!*a?-COk&BovtPqtjE@1%CA
zP3aZ!RFfLH`RCXP3c8oY26kwGQ+HO`OD^4^986WF$tL3^U*LR4{uiM2f8bdd!eSp(
z(ifb!;pk7b0RK-g0(qJ+|6nt}g(c63d4Q3mllSV?+K%Y;N8EH&#1E_|Ow>1<M}$Y8
zJb~xIYo{BT$yfkK<Yn-{F+hzk(s|R;{g#2kj%JcWR?}s_b38iqOE1!K{+h1ue75HD
zCMj~*wxqVE)M)ZQc#6WC`jp|<!#LqdN1$&+r1Ca8gr!=FR_^rsn?=%Ibk`WS{FLQs
z`g!_){xpD2mxC8x&T_65^wudRj99uXQkoZ&d-U<RdG|CiI%m_Xaw?7u8WKXECjW=)
z^g>Gb5K{P&t=iz=?)C+=S@%z|t|uAL6?xjstJKt{g&E<kzl{%_z1sB+ADdK6uu%<4
zxQA{k^a>;|CkhHmVYb(Y{EG-S(UD;(pFU9?MYSj@_f2#ib6;y~W|l8ku6H54hsF0l
zU=bw;nR>D}o72PB|HM_EI*k(T_|F6}5Ob=y$^YLwK#C~fSL-Q&jm1BG?cHE*1}kFl
zN7l}tTyCY$|LeD0{_nTgIJx_18MylId;NJYoWP@HsSu*?;+sB2*~MebY2~;P{K)rz
zp7E9+{L09$0IeAtbI!tlY+@Jxd-&TQZ$E;bXvl@-8zHxw&irqhR}+yG-Di09oCSG<
zpI&*bXf4i6S#N<bQTg)F*0CM){<hICk<hVj3$-BAi=qh$O5gg$f;>88ivQ%%!{Ng|
zkDw4<EI<RiwRtI-=6?ZLZLE@n+$M5=()-nztd=<Sb;&beR6jitA!g^@PZY967@<Uf
z%kfQH7>XZf$e<D+);v5s>1D0}QT@O1t0u<N-=1}1c5mO|H~qQQq4ZbRf${i-f_`pb
zd(Gay#d)X5g!HO&c~kFBGr@&NfRYs`R;z39X1Y7~P9FDWy3nU}p1!1UQWd&-Hy1&M
z_#dI?tK;LpFTMhAt);zPD6bZe$8YpQvkR&lYCs*Ts&p}cIHfKuECA{xjwOuji~WCK
zS^Fsi{|A<(zT55x-Vma3zmCe9ps0LP_R21GJb+>um|}8jy1LN-yo+AAqPj3-r#P^<
z0b|s3)ad_@5BC3uWRb~ww20g%D!AMv1JO}i1x3<;b2n;iIpR4ThApBs3~)?s__hBV
z#{}|J=LaB^U!tYu6r<FqAmdhbL1ezyX`!vX7UyaqPClcAD5oMgm1&rm6APbPv<|+o
z71hfv;Zc&8lkW~)xK?Gk@F+l0LB;7c%&M=*u^^ak6sOJsQj-1GfP7}LHFGovYxH&J
zI&=E3lRIV&a8ALpxWK^4Yh%izwDT)aNlah6XZ(QBBL83Iw4Ej3+<~VrX1_t^z)(PW
zt*xz{0p{UWApIjZp;P5ToWL~38V)7+TBowGSR#W@60`;85O9{pLnjnJJe&);K?V?J
zRt4E5VF}QQTs-vV+tQ{lbt$K7THll%o0L!dP@Q^IGcOOb!85y;Z&DcwWQ_*beYj9O
z2E5da-6bbBTUn^)5F^j5W&n37C@g?J@PE^%?hfzQ0j_iD@@4YH*BwIAJ%r2<Go$&%
z#VY6tZH^&zAd?dNSGQQSQTK0}?>}-9WO<7IAwNidZkk-3_&=OYar12GkS%HaNz2Zl
zM|J5{By^ZcqWF2f(Uk#$t)sS8?WyO$fxPQ^zd!IwPV=CY;%E546!#guc%oCGoe!AI
zle<^?AOOs1CeF15nRd(q{t*OGYJd?!y!-skJe{KNrS7}MOK@zGfgG?GLV>vg8M^^o
z77uJL@bs92kRv>~yJ7%{2pLf**kq)jl(CN&&3g7DplmIR<W^RjtI_|N!DH0XtImjQ
z0zB$A!vvuCO;OROWUkX$k>Nyo0mSSFtBwBs`8|of+AWja&TAu<)enjQrWrv7@2S6l
z{f46RJm7p}i+{LCLPH@*VzaWN>;U;+yr%yLt?3C^zTPBln2rETO9|sdKE*+svv|<a
z($Wn|_%tvf%Y^nAG=sW<m5?&Z{4B8o0p^es$avWR!3Qi6EKcPxpq-+*qO<@GZvO!~
zfFq2>iN{;21mb&RMZS5gPRZ@f%1Ww%0LJ$qB0QXY;8tx6S(BjMqzM&ftsgCI{1KtB
z(~L6;i!SSi&eD=H<oEdP38&}R+mw57y$fd}BW7{o8Ay8ie0q#sH!$i--PX)T92%MS
z4DF5jZ7nU)Ca=Jr&Y(dUl>0Dg0L8wUZF}f=G?4y)4$1)!yzPnGI9hONvhK-+;Qg03
z?54T7xYpyAJ!OHiG7|0vy(M6)tlJ-K*cT5*Qk_9rukNPsT8H52KH}~j=R<C!aup!5
zyuMOW!#5RiaKb&i0F8=@bNJrg=9x7)j0_+(rcnUY$Ya16^0|C1`f0yei6wM9F{uD%
zI8`oz%L$tt$Xu5l#3_D16yV}vO<!g0>8>`|0P#(nNF{ffAyx#25q1}mbQg#57Uzsd
z27SSTf<N6wLeELc60MNZ7rVztDwd?tI{}i!zJ8;=#e%xrgPmt}(cW(#`NBipp6&AP
zKMLOllM3vTmhqQPPdT6qi*bVHsrvk)wW86#3EDFA4(7e}49Q+_vd9I$7$D;U`&b%0
zgQ_-wlnCzCa~K8QPwpO7-F-A&lwWAtp~s_62t0wXPN?eE-@Zj#hj(DS;6Qo3<L$RX
z>O8u--Z9^<Dytti_BM;8P~jz6LZagKI$jaG$vB)L;DI6SX2h2Z9lhlXz}W*Nv&5Zg
z^Fx#0%(Hu=vOUGVO^c5)d>8L6)79AK(+MY!ZD?K(e2^>|wA0eoQPQu%(oeJN%4I^w
z<c=(8xuM8C#WLJhD!Gsic&y}~HTp`jqfP9%aEy|RIQkjf6UxY!EWM8G^7oe7YHGS3
zEn9nD(6qD*$zRFF7Vv}9lzfNeK@B-&b_52SsSlL<J<xD;2GP~#+!@Ck7u9TSZ43H?
z!upA}$jI=pjTK?VYy;<yM3fs&s}b4WnAuBB1z(3I5gd}3OOy6?V2QT4^7>Zg*)BS3
z*ZJ<)q#<oR=TS$W)R@&quE81Yyn;2>zrZiLYyV<X-xsWAOLqn1uhYnBjTtcq$ub9J
zXcKvvo+b*J2a<GtnYvo61dlt6Xxq*J4Mn+$|F0~iYFB6HGh}Y<>++`SK>Ta5Cq^j=
zHFY`Ynm_sZGUm~Y&IjdKQi#G#D}DVYxH%5&SK)BDf+U&tIVUbK1T5WvH8t^;(8F=^
zs4k1rt4jTm@K1{IJ}I$JYxzhGtmzXI6TBXq!XhF$nVBC~Tn{BO3d@Z}-cdJJt7dV3
zfH5<hnO~bkGMuXKtu|-~l8HsAZT!He=y;*28q)>gnEj5>C<e^%-sUMv!<;}CKdU=9
z_4WYwoSK36AK{<oRa}Q}qNYZ)lNh5WHjO^)+HhY~s6_|NkzKaodTMlok57f%C>H`7
z6zItVmL<(7Y|~kQ>{)}VNvUqT-98kFi(~5Dh;211i4q%EGkGWu$tR8>D0-i+_zLWx
z4fOHJr138^Q9W~ldvv9>e5rkF->hcd;N92K^JZc$O$OaNuI0(n@IuG2IKFDts`lkV
zupyu5P2@*F={j4+(v8SeLZh-qx0?hFAd~0SAuy7P3BN07c%3u3WMcm`0<~Bz3lo*B
zhRQK#_NU!-9q|P-f#^hSe-#(`sp*W=xg2$KtBv62=(Cl2WZ;C{*u(k#Q+|dei0kW3
zrlqFIHOBms+;>fN&2A-qdMBqE5#-4d?MAs{Yy@ZEx(M!DWa1)!0e}N`t)(c5C=iH{
zsEcrTLWFazVF5xOsK*#G_htIepK?C(yyd|TUx!{O_}0&nnZ%IQ%19m}JLsedlxPz-
zWK8V;z;7WhUr-Y?YPsCK67Fv_ANg2LNl6IJsHQF%&2|I88q98Cd3pKXpU*Iz85v}(
z&?->%LA>;w-mCowMlmRDxJ4knvzs^j<FcEdiq0r4lt+oaN{5S6vX`ePU|QZ@2@O&v
zjvaoxtwd6}r1YdqwRlZ|`y@{E%z7PfR36ZOxU4P1xto)+1}mdcPOmj)EbU9#H*JLV
z9tJ*`QtAfFh1R$ea8Gu2cE;#p*;!f3KQW~g)rporr}-r)^0Sl$VWr6fJSbe845gU8
z_;{SAl>I*BLR80HO@?zBBl!ILQP|~LtH8DmgBPQ+H*pl{*3>p&mjf=hy5gkN;jbT>
zre9iU*~P;xD+O*ls+{dm7)z{0bv)7(hAu$DzbVe$3mnI9NOgZ3va0o5DBOR!^=6a{
zl~;A&vk}o}3ddvvhar{E;GV*PQ<sy$mxwX@W&<7XyqW9pOt(*=UMqpMV&2r03Gki4
zmBR|uJ8>-wz>LK}ROh|_p6*LMg;R#@)6&UPDa({{9@aVQo5e3K3H3rf#4X8Va7N~H
zU-2jP(52G8$ux@OSHRSq2lj(IF%Q93@j!TVF4!a|eDXdHEkhyqe<O=xy5#x};3$#l
zpxy|+s5~5L>{yjn@Oc8s#M5lqX8};1`yI3H&kx76r>7}I$YVg>(_>lLIN1d*=v;Ft
z@da={HtMrwTq}Ys)4i3tSG8-u#4)Mha=XUy?mP?b$>X4fp=1P+EYu@pw*WCOb9A{U
zX~+uY@v?4zrCod7%h@!!{%9vPU>~@BQh_yyd<-OfP>=zS0;`;8l!wdVWGQ4w?`eL4
z&5mBiR6g5>vr+}n!aPzf(mK{2B6i>Cvs?#WdT=J;JzqE6@%HGT5&HE*05EUtYDrpy
zHo~?8g~$UyD8k3ac4kd9HN(j9-N(EiKqz@e&wEj@CF!@tj-)T6mpvTvuzW-?Eh$A0
z_`p~hf#IDs%b#xmUyut}u!857tAZEwsBS&SF4f(F(ksJFX<$1P`gUq|uz5u1Z2q0*
zClore1f^<nJOj1FR^n3S3^Na6gwqG&L&p&3_aDCjIGXjSc2^#~+^0pvp4g1Kc!^ig
zD8`|3L3Ow(0j{iiFCw3jySYWrKOPS;F*Tj@mHd}Pe&{^IT3vXNrNWxT#QQ*fGs+-+
zA1?&E#a){L@(D%sI@lfS@5gNjLHMuM*uOs_)wfC@pezz`XG?K)36Jm!9Y%G$Yy{PW
zN*z`~g;&Q$*M_2P+DS|ZtUQ#W@zIZ)TUsV=`aPHr3z5~FS(DM+m^PMm>IkK$?Dejw
zcA9;OdO3Ixg>$Wb=+iZ={pH<fMU?O|gD8CoptXr(aC~-wm3}GYR{W>1fQBA)?m%II
zq%zu7JRnPLL1IxmI+`B?Qys!Zl>uq%BiPsFLD~T{jLBO$nVAKqnVJ5)RhilZ?}1!#
zP5jPvzsdy{tys+u8PaYyv-TJ-QY0FIcI8u*&DAU2qb-gGsN%KPyZ4Po1YMFjOwV?`
zIx*H0xT<#SdtPmeFZ8#N@OPhf7N-2eqNfyJhQiQ#GeWfsTcH)qH(i{ko5pm+t*6N#
z$@@_|`Z^b!C7nl{`{#hL;$Nxsqa$f(KC*=+KZgU9GncjJR(|N<(h{y8N`>vr-D&jt
zvG3P3-B6B$Of3!>P9l!vd;A16;-5JbDaTKqy)#Hff#?`i36wK`u>^XRd%dOW4M`!?
ze+(D>mvoe83M<a@?+3T2C=fFq!}b&<VWML*{mPgdx)>B+#mE4PYj0DRY6R1Sa#v|=
z5_yJyrA)XY`E=t3XJ_>tKBJVLI{^2<pQiW(+>*iy0;givIoB4q*3vWz++ExBD~Kuw
zbTE%-KadIE@5e`BoJJj#doZy(f6}z0X~@s}<~^u_bo6yG>fAHDV#}1hKB+37V{+3b
zIb8J`Xiwj?q1!umjUrKUSispQ+{n`si*l2#P$x|dORtXtibQc-l;i1<<8KvwD0}S-
zDpggM2GeWHG?~KBI%LfH_n0A8a}~{T?rw3mmfdH3&y-Cs(D!cD0CE$JK|Nw&5s|}Q
zR7}S5b;_FZv=2RT)a7I#n$Y>2zEfOkf!DcU_wh_jYKKx(K2e5twl_q2C$U_f=Ubu=
zN42wM-#MO^R&6b@83uTY+XG*IADgfMy%A`PvO><1iU(6y=m&N0AZGe)A>-=}k?V@6
zd+5Myv|-%3Ab0bknwM@>y4j4&V70aS96gytu=?TM;-@h{8K2pfQNj8Q=;17N92Eip
zX=!tS|E}QHo|uMS+Mj3l-ELY&M~8TP8)ZAm=(A7s-UG<=%q6i5^MCdd0~tV7>#Bpk
zsj@hAcjB@Pl3_ZVz!x>LkL@RFs;jFXW_@?*J*5;}vrqffGsH)8V7(K_!>ILBMD!|E
zwD%!Ym3a)bOPBs0)P_yFZ*M(^%W&eZd55;V+Ckm4qk$dtP_$iKT(G7RnR(rtF1A{?
zuY}{p-q%->``F`gG3!0Y{8QqaP8^)?P6sx@RSLOB4>XQ=4<51AfJ%7!Ey_J-OT+iM
z1VE7FR(+YxMCh6MD|gsX<*qS?lIWV&X`tRj8~Xy9*F~MLPq&GlJbSFHr0Su$Zgi;H
zT;Gq_YtaI?jCg%n^A{-!(}B;~!QyUYA1j)a{>BIsYJ#=48-0wPn|K->8W!>!ISEC|
zIqnNJ_gRj8e?C&TXuDXDJzMog37#T!9yB<W&m11Q3qq0Zo;90DUg=>O((%s<QI#GN
z9#DiPt(O8_@7cr9*)#SxG9!YR`o@%*dZPZw$f-RrD-Zw7Odjw#Y|I(+XomH&cKhrh
z;#_I&ubEzf<>kIzp-YJSl;0NTofFwgX&Kc@OEN=S&nxv#b2OwGNOf1igz9};YqfP7
ztbWLPE%<CAjafXAlTPa1eaw=%dzzQBH+Msc%3YW0SDkl%++-N4pNgg%{_c~6RZyM-
z&X03VlCn>#1AUb4J@?pr76BZA6exn98+9GEsx_0<$9N;-g`+pQ`vU#cP)^&D7R|E`
zdpPnA|B;0}BztpPUzS3u)jV8VK=|hFI7T%h;$f&i1b+7n|0F6yFu!(nrhPCyJD}=Y
z^?6roH3JNyklz6UaJO{M@GC7^|12NPI9*B*61Dzl#~YbhSug9tz+K4+qv14Gj@2AS
z@B`xqjq}#dxi~GN^5wae?f&emtO8z)Nqz6XdJ{xkqJ{%Xlcq}dgPrehDn^~}-#C#i
z$&8|t8l;{G|Gj5BF0nV>^p-cGcNgvMv@8s=KH`}kvxYR(I*U}^OhduxvBgeqTz5~h
z6tGxcEd(#s*)YphoY4sA$nkZx>GnW+nd&@3%LFYw+_K2c63GhBx1g^p6Q%3KVr%!h
zgsS};QJ`D!DmBjmD4NVZKCprDp_m9f%GY_qCsmS3@{05Jf#}mzAb^o~a*vTeD?Va-
zOP#wzx?0`wrA!G?c|pM3`rbB7W$eC`b*l#!#ZvIqkG(}ZLxxC!|1V|XKI@<5XSwW_
zB0uxkS>b_vQ+gZu%p6~Gb)Fd;aHwtxZC=}=Tg75ul3J-cHnbBSU%L@r5t#MQY(*~4
zCU?0qQE8`6_B1RNjWqVS7)LsN&!phf)?6vPNO6&2nM8r3{*pvlbxBPrVakp%#zxn9
z7G)qNs1k9O5$Vd<_yshj#q7H|P|jwrm)}6$d@A7RI~T2L946Kj<c4hZtklE0tes!7
z3j!S`wTrDP?8a-dpYMp=WeWwF8y1`2|D`J0uJuZGULO`~-)Sr`)563r*s8wklAWAZ
z*(eMHxWD$*5LNqkr{V`lJ>Tp%F7V!G!Mmf7xC_px?T#ZJ&R2boK1uC|#Y5XymrY{N
zm^zE#SvMa^#l^cJLAc%h{0-R>pucdAj&wn>rKDC!O-xC#Dv%u;SlwKU7l`SI|8(=_
z!T0g+YaFfw_@cxQ%opAi4LNQoIvqRPOhaj<BK=gK!19sdA1<=-e*T)<?(otwHL~ex
z6F|+nYjDxjShagN6B*soMq3lz^F&=9Gs-Jlg9a8=<r*Wg*I)!xJO_OO;{woU_h#O@
znwHGf9I;}=cop0G{!0pen)IAvYkAW5SIn^OtL&@?2-m(vW~5}o-DHtpu^+4ATyt79
zd+K|j8lj-O3nwSK^CIPsnm{CJ7Q;U?WZ<9`v^bLfL~o+NpJm^d!HV=F2@MRc4ehYT
zSkEP{KK?m+boLRJZO!p&6qWf^IWqL=(mco93PmS^Lf^{1#$;o~WS7Es>flwF@Mf$|
zpp&rQqtaeej_Mc8FIcOCYF+i-9jetfI8SmbEXdZ!-DN-4svAv0rUMWtd*^v0`nPM`
zU+x~a{W#$%lOy7<(!zL}D;jH+mLV<9Ex#*ygYu+L>Vc^0MdxjiRzH|AOxC&mDx1rG
zm9+v&=v^u@-nj-1g3c3_`4>r@&Djdo+`qE<f2*sa<K{gLO{<5a!$SxX;Y+){VdRAf
zZ<cfIcRzA2LXYR$GmXU>Bkhz$P19`kj*v|0$)PWw>lmqdzQH|3f}XU!+R~h&dvE98
zF0OAzQz^7oGJv{O+XKZAj$!B(Lpey_+aa(_=fOQ_7IUpWc_~d&LZG^%UO>YGrE26&
zDF<LYP+LCY*Lhn7PaJVy#PgG<J6C}${V&9%y`{aU+aW|OP8_tb9zm$!vvTB5F<9@z
z%{_R@G?g~ryG)Zm>>#mRS9>~WF2mw>u;8(O{38{4q+N~4O-oX9eQkB6>+?2$P|V)G
zL6)1F()rYk;v}oC<lX<BGFk!nC$mZiif0j%ZaOpXU6t=q;7riEn@cd%<3^0OQVg8{
zgHvc!eDdV^-u6@x)in1#9{%3CeVZa)zxt^g0H~FjY-MI{NZ&i^&2m<JoUCNW28=B)
zpHsL;;LFWZyLtuPz4uH>GiXty;kDsoHDd+;?#cBW^b7a!)7Hr<GM7?QNfk<88n1%5
z&5P<sJ=3uecg4Tu>^sXhkjQ}<Tc`Ig>Y^r3eyFx_H3CI+DUvb2hod?e(|eju8+du1
zTitvvoPUzNOyV%EWWq*cQRu{x9fhuIXsdtH{Eg8kWggvWTX<F2JVUH}@?NF@tN!^5
zFa$b;x$i(9rT^`dM|_))Jei%-@@b_wN{=2HGSFmRa~GCljm>{=hq&II5a=QNbQ?AL
zubpEj0~5)btf%L`LX}flIn#W9f_+uCuw%x*YLOrt;4k`(TTUWnlC>N6^6>$B)uN5$
zH0|^%CBLnmsLmv%Z<iM-rgx}7+br$G^^gkyXW=Ku`pja;Qp63Sac(ORW3no@YqE5-
z@8+6R8@xqc-pyu?RjxM3a_}@Vh!fW@@PzCQmBk>X*3KKUjzPA&*D-otbz|$Vt}>gY
znOm;>RRsj-k?`P9BQC(?aWrH~{xLthxF#&d9`G_FyN%J{JK|&&Z6i?^jozm^ki<X9
z@f{-!E>;lUK6xz3J)HC8Y9jqpsdfDL9{<luY%!uJa&Q0^5BIWnmUg#h+QQMS*KS>7
zyMOq7@DGZ^Exb9p_p_bzM)P(ocnm^ET@5nxYL~O~HdIq<d$ZB{6_1Fxt6Gm9WL|I4
z8ce>ri(|V+WQ&Sg`*)s>rs+<I;+?3ey(->(BHOD!uDB@CHnxQAxMe<3!OKT;7;lwr
zibh%>n|wO+W@WuOMR?5=8ck(sUE6u)%lSZoaA%2q?<a7r+A{iq8&l@4m&VhlgVzlG
z7np+<GK|(@%$r_3rt+8W_42HE-Qadgu2`!-vqtPS%Q^hnL4cu6u-J}wKz50H1C;Og
zR}LFG>1gF>0@ZWTrKYKAnHLrK>C?*gKo1gvS-0#um3OzazwStUT+-2(JOVwz=_Zuj
zG~(En=@}N6ajls2w2hv2sa0L{Tt(gY`Z{q#eSQ6Ei37|<Mn>WY*{^tZ<%Ewoo1`w^
z=Esj}t}KC)<=WX260?L#k#ubq(!yxf?>gv7v!M_0a<xT7B8QY=&hyz{<Fq$Kks^;0
z<Axue{cECJT-hTXZ|`s0PCQDx?3qSeH<-<!vM1Z{g0AY0aiJX(hA)QwcHUnkI4Z5q
z#&Ed@r)@$dI^#f!OphNfZOD+mbWr{(Cik*`tk=fX0>SoRH;Fvwp--i*?I9yaO7R(+
zAwvhw>c=TH)SPl9P>%OIXl?p7#E`w<Nv7w~gV;JdI?Rmip(#G~?rf>u_5D$UA&2ZI
zLd-!sj~Xo=F5{v{_)30G3OC-ik{m78x%EKQe*U;8M8z@v8D<(`mCixy{_e(iRy@kv
zESdIY8_c`BcLxc@OkDWKcl*u!@ha#zsXu)9k_fA7w&~>Sw-gmOgxU|@V3D(Fj~->|
z=~VD8OFljrs2rKuB?W%&eidTQ^}RtsDltu_F<ZsyGu2jwMSG+n+H+{RAy<Eo*mOu!
zq{t%tTC-Wve8aa&iGaDFgc(Zhvc^1i4+g_6&SA5jWtq>acHHKnz6}1)XVY`<wJUbu
zTfBEmt4nq6q~Z9Bq9ePtYZ;I^grN3nhq{~7cY~M{(ilC=Cz<7ImSG;hwimz|Xk|Zl
zGa*oO(jli|^5DAd;@(@;OtCsy`?I91ppq=htUWxZm{ySeU}A)ejktNx#5@<zP$h`i
z?q<vK)-)|2+iS75S|{*n6a7=hc&5xU%M&*Lgfx<dutvn76i$o#!HD<Q{3%)QSL<_M
zj@&U7#+^&JMxP#fg*nL_N7{3JBd|a7Z{=PFoNd=QZmavg;pM$~@A?2cULap~(X<n5
zmXPsa1-ChY(ooHJZbTEaP94x;?0&VZ*@>{j5R^qpc`}Iba42t5v9Nm32t3HU?C&Ko
z@sQ*nuvw%#HhAmu2ofc!8x#<iEqBv$p80&%jcS9v7n9CPf6mq3b9RX^q~H?0uBL59
z*%!B+;yhE>RmJh@@z;8Ttn$4EDO$zu0S*Z|x-oH0YQx(_-=5avcu)5;)Q5PKZ}W>C
zk?LNS4OH)Fy0P4UmY!}*Y3&zdmh0w%#qD8mS8z!3+MKqk<GqNiM5g~K*h@96;O<Sx
zLQ<0z*Ch5HH|lj#U*QqBjf?Se9&Ji5*x^rG-ek<2mZjQ4?N1*$zVq)8D~yR4Rr=ha
zL+6ZNHJQ;#7>o}0UHJZex==?`*C3CYdZBOs&Y0PBT+!0N`2cIS;2g(l(&%X1&O*}z
zrmP$4@7wdgt$d0`!s3(Kw(Q>Cs8f#_<}@JqDbI$*9Sc}8#_BkYZ5#KZt`~Qqe+l!a
z6}U^ccTVaFThy<xlI$4!YJKfmnbW@=(s3%dSzoo;S-6B6TBozn4IRlpA)|sf-*q9T
zczcx9B`dn<*$zms3mI(71xQLx+t!@Zj%8JhSZC@?Z=6*`Fs#=}_#ghH{&pg1e1C*w
zSE6?-dc;1_u3bXKhZ0rh9HL@uch^fJfk`xxAB8@%EHPZCN9=G%Sw4Oqrj8KG<?86Y
zl2j&>NpL)5o12tg_9|P7joL&fzYr8LuNbwS%JxfN_YdgLlkz#1tq7x5%6ix^F${N;
z7tgm}hSW&CuU1=3E1|YED3G)#Tva(^#g%LII&9wF?~D+#$SJ0#iX=t7OAc|j-V~|2
z!>aJgmn!6^g`JnxjMjK|*HDUYX-=xnpE-q9zS*c`x@sxRdP(g0d6t;O46JQ;bBWfY
z4*AD;CO6iw-gmcMo_LC&gkAhxSWwBertFy1SR_<~-KB7F+CtAKwZ?8l=tgmQgoD0*
ztjZZ0&C=&zt@$bU%zn^Gm-QT$i<5q+Q?bOvFC*DXpWn_Il#^N|Kk}V5G$L{VeXIY9
zXr_9vX8Y&$xFG5UlIU-P;!VAT4FNW^=d++c({Tll89N+2=%a=e{L|a;za}0o@}k&#
z1jCTaG#QU$465b*%Qhkr?Mag#?6c!%_>!e*0O0*NfxVk}2>Q73kR#P<w)u+DM?#sH
zFCSAjh$iSMd^eCADyh9sjTD!UZniK9qq{lfcoinc7rDi;)+0M42KV7Q`g&*dZl3+y
zhq5N}?yenFs7limdF%NC9TvN?xyGlWNEL?wyt+cqaSNHT{UP1g`X^cyOtCs)^!-X`
z;}<cuW1X?DWg}lqSedKSER_#q*cD3A)d#iQ;)f$zrw!1fcG%YLwug4UDc{TTwF&El
z&zTO~2RcPsb$^q!cHPE+5Typ@hqh|kH{?#9>E9YXYouAUyzVQCTXja%%UF=n?JE0#
z#uR&%OWcjVA1<E1>yrxWq2=>(dfo@l_1U^QeEH>D*&K4%nfS5sAtl(qzq%f+xqk$=
zzhjLCPDA^Wc34<a%b~cOf~l1NBTG^~nuOC9w)G4dx8qT-p1AJ(g2eDNX!kOulL@%D
zcpdXxj=h`8&PgRg*C{r_i=c{3Q_7hK3W)CMZkt64@{+X%s_svYi49aGvy&~jCs!V0
z0$J>LaoKNO{yrnJc;5%V{S+0J)%Rj5ky7lE75IYDT-+V5xYLO9r}AnPPt^g0%D!X%
z8=XFw<h^hFL5VNhRoL7#O+_-OQBZSn=ApZ|%Q9wBr}g{K<JNzX(uEq!GtiP((+pb{
zNFxw@y04?q7TDpu3QQ)Lo7yfvTOI)=PWv)h?<5Cro`X-_pmI5N$n<7Gu<^3%p_rS^
zVd2@)7mXe+3=I@pJwc>h3MDV-O@I)!7i>A_dvN)N&0KN(s%kyN(OfQxB$7RjwJ~1o
z%$Uxt>=xv)y0eUACCwyzj%Guan&<|T#z1(1X;!wK=l#+sFeW=*{oX|tRamEp=yFCf
zH~+Oo_x)w^NWJV+jd23i&L3AR<8;e;&|FZu&<AACh24ttT3q=#-md37L({QczIG`>
zo?lfWXm9gaP_wSupSArY6QCA;<4sas8n6g6M1&2}%ciw2JdM?KpBf!2+c{14OFBw@
zh_CbX(v30N@2elK-CP(WOt-b3o~@AJSCY=t<&MLZ62f9LS5Ku(f7;li_LOsUwkQ0o
z5le1~{U)(YY-?XVUSsw;vV|ikjJtB**sP(kg`OoR`@xZmwVq`*jSnSn%l?hh%CXwn
z)I^k)P29fM!wZLtU;9<S|NS&hlazSqPK@R5GYzpz<!ReFS3AYZQ#egDG+I8dFLt}{
zDvwE4yj+mHF%$e&V$qt1_e)vmVEDJ+ZS7W?72I;q39jdspgZ&a?qS2<rQknj2_y#H
zO2@R0&7unZ(^Jx^8?`5<20Ri+ju@sSt07%EeJw7j8<_o;8XL`N>Mw)uj`b*d5Dm2;
z(Zm^Yr?U01c6kgL>=$TggrN6Qw>0@>-OO*ftcr$4&~8XWRMAp;ldkeR15(p=+c%ch
zDD|eS%FUr^LX?)KCi~jDX%(3AO7!=h2Wx^8ivwW&E#}fz*E%MCN81t8!WoE!XN0lH
z(_aen(=XGyG$|{@u&NuY>1VjlN1s=disIl%*W9!ZC^Bx$uBf<c(YV?8_B6I{>u>2s
zR&LiZsaI)9xBxxNve^XY9^Z|7-H#)ZBtkfMg$olPXpCSo{0AJFAZ`2BjmC|zn{y+f
zeWVWMTt~|no1?{wa|7CJqF0c>XA$thJCn};J)98$(cWMa=5?&5Z}Nj9`!U{+rHhic
zD)kRBcF_8?=2i5Ex7<a&>KAoNjIA%$yBD8UldMSsL;qQ_usx^2A`AMBbwLKRxp?Ao
z-BLgLkN$zwrHgTRYeq?XmoWzaB){>>Ds%knga%$Nu2tT`u+UIsO50#dxxlct6zu4p
zMVvpkwDhTr=TR=MOv}Qr_bE@~(q8f9h)hSFKr1y5xeUpZcdYas7ltzaD(RVKW!jL6
zs$8i@-x&ZgRjM=4V9_O~G+nod%6H-Nn3)-__*M0Ol^Z&R=Y<U0X7^r719$fyS#c^k
znn336e`N`oLnE&d$x-47s$QN~zt*gWpWHTXpag9<>wu|X)_2X6{?R>I|7FP}SECWs
zzr)hoZlLR>NSx$XEV;yeha&E?Wi*gtR@@Ha*daNVRQ%=&;WlNhsA>51MJhBhsK@nc
z+fdee{ZnAq8Vzqa+u}`BT8uW5*jK|fEO=M8pUPr{ate78ouxkQV%;Lnx9yzJpWe~6
z+`p#~qas{)GCFDKm2q>L<de^}+l?RIh}_oa)%Mk$YGwh>|LC!#<QFfT2+=`h1-Yr3
z#tc3t(cNc4cva=6Tm`t|>>>iSw3^IxLa&^^=^>EE_z%n}OiulN%@lQWF2s9xJt&S)
zR`$0-QSLHQ|HSS^aenia<TD=Wg5nJuaL|tvd3GiSuGwED@NvmRkQg%u>Ag*Dn=jF0
zm<QKCjE?Rpd5=5fvMM6Dzt>IKoof5;F}-b_>`KMb?mDwbm30u0q14th&Tw``!)cKi
z^6WU@6W`}_ULX9WFc@cNvv9-Ft{u%jrJm46D^28)P9(0MkM*kY&O}Wr^Jv0$8A@F5
z(o%!(2cqBSTcVyPuZ#QN&e8OyxuE%EN-trU`HSj2GkqG<Picuo`|OS30q1NTH@W7#
z%!~VlgJS!H$<gi$d6Hf_(wfRY#lAZks!^N%U~d|K`MQ3tJ>#?<(~^AI_|kx3);z7z
zf!{G-<ceRwNgKY^{07_Tok<^|of(_~31=UjE*y6^TL~@z$_H<&P@A4lqfc6vT)05`
zJ$q_3GCeRNylF8PQ~yF$Lqo$K>Hv4#vy#!Fy#Px4TRKK^&S75L1=H^C6O?H`xB5Hi
z^UO<hLeEDe#$|YVNPe+OkggBzyMoHZx*{n^>&|wcIT@8>(rY{b8<^ivR&oSA_4s6C
z{ZyqxYd7eD=uUsq5wRzRL-YJG0yx)f3DHuOG@)K7WZzy6qA@F*Lu3NgooG+Hc2v|H
zTpg*~7f9F?V(Wd)P&ZY1t=DTQ=oc}yM2*^BKSzae>mWJ-FD1zmn{zZ}qkF$y8sR+b
z*p~Y7@!ovRmqYYtNKkP0h>quLNGhXW^^3@#4#J=Hj<!#PI_#(DcMYwPs+{{9;o-A`
z?+TRrySF%zuzUtojb+~c9Xp1S2j0IuEa`Rs_C|P(%(R`T?6_>xm%HA^A$b>G@4m$>
zL%+mf+ol(EJ8r*Twlj$-I+(ZbBP5avhm;z&@a0c&D_W;d<>KqJ12<bfT6?a9UOOe{
z2-aN-qpDpyBy;Zdn6jMpjI#+u4d+%`=^f{Ni?|4UiYDoOHr&Gm%eAdacBeTwh<=B>
zO&`mDTD3ovCDHXw@8xNx#+8=SBgLzG$LpbBdp(h9XSDl?N-JCeBcGFl=%L$&f0&>|
zy{a(ZS#?pD=fyP)(<5B%)Yq0T`@|o(mne(rjS&X46*iWF8ygkG_R$lO8{zR*lYX7S
zPxtN!u_c)<zCIlnwo_Gc`|Bl`@K@<_p#eRH{>FRwBuIrCvAO*v$6_>le>@ayzmp2K
zDEOU8S(7rI&=DRvfgVHvFV3Y4*X(=gSy1P#V%%rL7uLv?`|+QgR;2MgN1<+R{0kk1
zIJZl7Wm%amgRAZx7-pKB@ez;XHZ@OP(D^iM%4;U|WZ5eV{cBu(KZ+)er8L|e*7X?w
zA!nY36LV|JSP_`GuwMVRy<<3p4K$$wdA+Qxl}<PTe)c`&kH6+nSKIV}CNs7?j;p&g
zK5NKGGfPP#-W(&C>p>kb|0Nk8Nf)s6CHWu(9dFmxLc|EH5$eS~TxMI1ebGbxw$bxU
zmnPNg^def*=6l9*_2a=KO9$6=JM6}Cjl*z!(V}pTJKk`@u1j^R!HSNdKPRaCQhaAu
z56i-qu?ga6pVruI2>isW_^#xnIAHb?p~>9|B!PTreVdw?Sb)=dG^Et#=0ye!MmrqQ
zR0pD{UDX^%RC*S;ag*(XeoCs`cv@_pVK`b;`-SQQF2|`-W6p8TLb_5y-0=zdc7_C9
zDNyJ>K8q<mbavF-DQHwz&@J6?%e@5AVj5bGdrJ_%BOj4&KHpusuUq9BLH=v9+^v_M
zm)*?K!w4tb%a=N2ckr?z`BviO2L|8XY;oU!zS#XEr17^SLz<5A>6Y2{in$yasob1J
z9<_S~Ep6Qd50}gzzE69wW;0mL!IRgHNpqI{YP|hY#VxCkmZ^Wc8ATcv(ep$k8a8*S
zyWz9x>0bW_SE&jmIPV=LX?Jq}8oyOLs^zIuaXBz1d-}x2tO}##CU5bK|HpH)BEYGA
z^JhiRK%5J7B|t9Kv^U)ViH;SqFHg7F<P$jp3##ohV#V9+W<e#?dZ!e~qcLo*)@H>%
z!B$v3gixibM*Kd4_}IYZ(iOp}ooQ4K%li~I<sl<8*T0=YN|*`g#-+%bV0A7|pH%ns
ztYMqmc_8JCj>848Fb(8TGt6!d=sv$}sLVEIUId%NI&6(Q1sz(M-!)l<R?mM^DP9w*
zl3o5v>la+IF?+3UV@$(IEo9f!N@tUK=;c3)lHH7-KeiFP)zP;-8uo<y3u6q;=f4as
z$|lBMIp6Ekn<#p@zOxkXwKLTzktbF<ma$8RInGanZg!%2;t6~4o1mhCb;c9am_k-=
zL%gCNIouXS!mE>oKj2LFpCKBIK&~ZezIO<mG<d5Q?$jYZPs-<hsMhWD$qX%cAv_OD
zwx=9;2CI8A&}ZekgsZ>bQtGI(Ykz2^L?8N<<<owPl49Q&r$KU2t(vJQ@dw?xh(urB
z$W-ESvlAJ2o$hkR;*5Ct<T!I;@34&sEIecv?vWJfHtUBO$I0!_Q<j74+BaZWUf$1h
zco1|EZloqnc10FCw6<M6U2XCmNGRL(s*#)LGR}|sjQyk^xfWwS`I^uS!X;KLA&+d0
z=)-9D<n`+c%K9hZS4?V@+*buC6ZF(wMaH;Id7DM}##y<!ieyKb(3|Rl5aL)jPwl+h
zBL8ow&Q+sSBGOHBk^PIrpBoArTbKXt%s>8cfZB<su`IDxlSg#FHZGn9jBoZ^7tQ)F
zc5RFCimaVFTEo<cjP|})v<BH{+;=V)CR+c+QrqF@6bd{Z$;{1tq9y*DGCaE^!gftg
zMJYCEzi1^d|NMSbXt%bHr-yhUgAd2LT^)U2L^}0f%jYQdbleyc{DNuSa_OYZ#%x|z
z)|{0cy5_EIq!$t{P=od(v#DZ;#fR)c<qmcyY2+la_8`;f^ig*rk6d>cI7<Fn1b^8o
z2wPz9{q^29$l=J-9`MCB!4jNXd9Y2hFG}iieUO6>w|tVMrcJY*Dm|Cx3MVzb3`^vj
zEcySvzd;b+a~cyCG;*LiAo%|lcL=;a%}MHPLYQmAE?lBnaO^w;hsSOiqNV@Nwc6uR
zDl@&n(}U$?1tHhjmj)rCk6;}WKb`6!P5q#k_kaE+?b&1hPdy7>M`Aq1@2=%*@tc4>
z7K;X%OW<xQ6Yl<~+=%i0%N(Tx0jrwtxo7Ll=`y%m6%_k;q<&drt2zaxx(&8zEo7{a
zI+@M6OZ0h-4a%w=F8311-@m*{<Ex&!dI~6$i4bMe171~mk_X!zL$w~RF)UaxThP=j
zi&)u&K;3U>uyA9S1DTd>^=HP+XtGKUoERP+kc<w}{{GE(jWRm8dtg>`_G5r{8ezI0
z4aW?F%5QfD>XqlmHmY!v$g|*E0Y^74(^uJA;LJ7|={|N-2tGG)<V&bOpo=ju#{8-^
zkr3d0plxn8mm%dl=X<0?s8r9jZm8kvU#~CXHO+%N>8bu|-S3JACOYj#0Lr3g7|Pof
z#XjZn$!}}wW;Nz$?edd;asD+`j;3q8h&<B7lqH8!3%$&g1Lrye@?}^7I}=wRt!`#@
zKaTnhy#Ki!vAyiaz~LS9Tniva?Ln-d+Ml_oU?99l13wa?UKwh}KtQnmgGOZwT{Aqa
zzXws%1)H@%>z5~+x0u*Y1tl8RTJgn=l(laDEYKCOyJ`hg)}5Y&{ZxpU4WQ%yK2x>V
z)kSNKwE7X#4Zo<0Ef^ELv(VjPSNi_37dXRyW)ji0VEnu<YT7#5EM-?kL9Rc!0NZ3N
zT&J&M<&^6s%w|-wYc@+7F|w}zl){zm$TfOCe+>#;>4OLJv^1P5Cy@9mOx4T-*@J^4
z2l!uYjA`N$yE^$|XN-kQ$2yKvX}<5}2x>&?-8#QLWg9{E@A3@p=Is~d+&|GOUyDs^
z{4qEG`CD}SkkRVvDWbqr*KvGb{1Ho4{+-r=n?nX_xjY{@HO8}59Uq1IxGs;^I(om#
zodh9pOCT|Qp~4PiCVqa|l6ny{xeh+ho4S8Yl*7<6sb)~VR_ejy(7Pc2V6mL*M$)pu
zQ-BT5+1cV&-X73WUZkfVT%hCGp6;I(b9FJ3le10e6L@PWb^W@PRNef%RprQ%j8y;q
z0LG8e@t&)4;LHd~rUiq#df(ypm6@5T)IgQWxO=v5Pp`i}olA)=otBNHA(<nU?ZhR(
zp)4-1vMsp(@jY7|i*Gt}^+`ld8(0l1@k~mA&-p1whLA$#OSIft-9hRC>y!A;JK~l1
zuB}{g*1RVYr@~U7?ok3JEbkDah7w5>D?4Db<7O5p!?6*pQ60(gu)d<=Q9vt8O7c8c
zSe4a9>k{sLr#HI8eg~}}`^e7CwQ)wD%CNpyuWp!>?09f_U+SfXHlpo;(8{bq?{8wl
zLJ!K2hYA^|Uk5RXr<3WwdDzj_<B{l{^)Ay0gLH^V-X^sUt<UuUDRBJ_9{5VEa;MK&
z*T`Cq{KZeMY+d|YZZ_Q4rvVmb5T2#;YUbDCYTePG***iw=B7UNF}o1ibOw3%H5$zN
z+FPkwBcqUTB<o<bIDfEc@v=YfviQ}nmlU*9se<7)m9vYpy&V!*IOMdOsBhZnd}gcY
zP^q$=XL9^K<ee7W9txD>G#s46UMy0<|LsYgy7+To@f+{?yx`v_)eocEp%SIoO6oaU
z1KwZ#5P8quTh3GgViQ5LHgZ1ovC2EmF7B#1hyco-QO&iyupr_?89e+jHa%U2ECnJP
zM?l7Qf|c#5`r9VdUlJ!g(7V<aShm_?SKq$4yXmK~3IG)jyf(mK^8MX6vicicVB0Vl
zLkcf1a#=VjLf1vomr~tG^0K5D%`l_SI69E=l~lvIfaO711?r{VzKIa7SG~xMo3|d;
zU#KQ_hdM2{@xKojn0b>LybVhR{Ege?855t1Z63LbB`nrH8nY^M%yOXB!15fKx!-RR
zoxYiU$N%R<&yPcRtEEj&D2M_xd;T3)$ByZ1XoNyKMs#f4Q2ej9mng@n$0@t9m7d*Z
zCENcLURyWVwu7^jVJ-xhA#+K-%$TmG3B9+^igX@Yxx6&gk6l$$GnLQI%u=mr=dh*;
z>fmu>70mP~W*#ek;M>wVKN21moM|)_Xz}uSOhaV)++v<hnJ(IW;TQh%uawNpCdP&L
z-3Kg3l_72_Ryl+1rkGfCV%-_of4I1F&_<^q60ltVVgI;erG~yfaw}`&NKz!-*kua<
z81Gxm3m#gAuo)qz*(V@`g1*~s{^eUbSLGP)y)J}^+bl5q5+S%^^Y8N(hezrVN|v@(
zCIdG5!MZJzEeko=mte^enk@f=V-&FqWg{z6P%{$d?>35y?*OS+7DIN;<^pH<nFMY;
zJto<c64BsTU&?W)RV#zTaw8(F$%>AQ-9vvY*M`ipgi$qfj(*dBo07CNq6Zevab!yY
za6D3I4d>}0Z^D1;sTDA=Ckwv%qX@iFu6y@tnpX~2Ht9mic!kP0J155(@)^_8<He0v
z$sr4D0nDhO8Dp4i_wo2)WU~HrJFbY%=lD<8p2XKX5cx~~`6}sS8GSad2ya<2Vn-G$
zK+fBLXzJenF<SjZ_&quRR4qDg&qJbXLBA1V0D>Sq`034$fa7=;m|!b|o*o2+q3&Q*
z!8=(ltpql&{osrYeoJW)hVIQX2}km@vC@clyBQR>p26G?Z{uydI?uZYr|k9GcAcZ8
zmG$@G&9w9P$;`Z=E9msVSx@l&hYww3)Az&>;(CsqPM+5E)YL3MuXx~mXL~GF%EB}0
zLI|K2*qhG7$!#4WMlLz&eUiYaaUT9zHL|zy9AxoEOCmVXj>>#S=p2-TcUBr%tU=ba
zGqUVO+v%X^G1d?}*GvenbtA80_`%Pw3%q7j2gh{~70!bxdmp?BVLFmb68^Wn##jTg
zQzeL=`74^o8qQ~w4^Bc{oSd?-j*+hoXMdm>9e;m4M4k<rPEMtu-(FbT>vV7X{ow~C
zVtCt|w(a*Z0kS=QRkU)CcfS!t1x7=NdAed$w_PIy<a7bOJ4a;nwG`Bxs?VP%LB=O}
zYXBF+%5NWj4Y?1OX9M+w{Bxf`EEahE_LmQRO>pG@Roj_IHFa%&Jjx)7Jh644sDL$U
zeJTzhlPI9o8WrluB#Hwvhy)uWIFU=mip64Va6}PB3L-TW83F_hhy|)5K_&$mT!2gl
zkXaOY-<|fi-tV{8du#Rm-h212KyGes&OK+Jz4tl$^Ucw8?>zBYCelB6!=a?*n3C>K
zXL+p3CeS_|%=8dip;sO&CXB$T%H!l0BPrKLhsH)#Lgv$<9i^e9_~WI)mq=JD|A}Rq
z&+BN5D2_nwzhC*!U6`==IJBeo=NPg)DWiAi&KSSXrso<L9<2h&?R1%eW9#)%*HpHL
zRVn(osOzkFue*IEHgEe^HS*p%%hirp>UE@6DPB+Q4ElBVkGZcj{3x3vSo9>rizWXS
z-4{JhO-lL#{PBQqAOoCZh<PS^fof*6+zflCJi=qfXll;nm|P9Dvdg%Q^45+Y3Lidv
zXy6dE6Z^jVpO&8q4ZTp!9miYc=?jhvRwG2w1qExMma3Zmd9o?uZWuC-2qL5trcImH
z5V8W<wj4t|&urghPwU{k1uy33?-})UgwCm)BXYH}fT!l8GGdY<4?e{yOyJYdRprzK
zIQ~<O`uo-X)YD@Arz8Bi$Mr8<`5#^Q{CrgQhc2?+41`3E;S9ISF^rRMRSRD|QCD?c
zb$8&w8{Xh0*C=TFiR&%z+sN*6QRBTsGs8fbUtjGft-hur_{DJ^ysJMR;wdLnEtZ8g
zBDJWfsGXP4qJf4FP$^_+X!v|D?snk2z{%5eV`Dqkmu$h%VgKfy^fsR}c`IbCA`-7$
zzRc(}?9(2LM_TjZXkudGy()!`SVMslGotc~;ETmUn8m>1WZ!FEI={7a4rdckyh!c`
zxoq@YG<L@Gnab~&q}41RP?I(uev@s^%3WwSF5^Z<kvV2be&4~T<~T*3o>)Np!0Gru
zV~hEJ4z5QFZA-@bjc1L#1%E+=E$OH^Iu~!VFwMm<;)oOGYa6k8PMx0=_4sV`Y}-@2
zlzmm0kDzuw=brQ3dyWH^viL=e?PeHikz1mpTZ(g#%Xr*h<tP8k48-u2_Y9-)?~L-_
zuknvMB*y<gyYiz+sPa+G0|@CSDp?UF@5~tqGMpO5TrdpmzF$KoHXX0!O5&lkqifEK
zhQ8~~fq?;oEx~=S`4%ZqT@85q>ty6-Hb9G;kdl`!#g6`T7WBo|p*5uIRX40m7{Q=z
zXm8BXqZtq|iXJ~>^%qN)Txhx<=KW@<Za-8OiJ@G1^K<-y<jGjK|8$}4=7g-iaFBc0
zaNmC-V#o=XiIqXHPRlzy7zXMbmB7lt$Wu*|tGT(k&24SPUfe9HFaSW?8ZZplp9R19
z9K}|Q)>N|%$W}_Qz7@1(=E%D@D_H2v&`NLXe3eU+8P#;6-nZ33Hh2MItoqSwi_3M7
zS(#P6NT8>s5r8$(*`%n8)f~^d>~D#vwtS#YrTTbxA-Z#pp_ZZngxQK!leaev0ddug
z>F+4?AX6YGKh)0n%Sxa~I4?MN{KLN%+tZh2z0I2<ibimY>Bgz`MN%v(pe*%-cHrGF
zkbT&+AhYuXFn6+MOt6~V9F4S$gb^`bSSP*>-Gpta`-{mVAQce$Qq=Cn<8P~ivZ(nH
zLjv4yAoy>%;m(?49U#4BF@4Uq5f)n!Z9;KD7KD~8d2wmSwt16)Q}qU!2bMYPapN--
z8lTuawXzf}l+0J{`X4(-L9fXH3IzCti^r}+J_d!?89)^GLfOz0DtR_y9iN-+-q}~0
zmQ9~-LnwG+eB(#06X_kU8-bN=_4xJ4D$dL|xF`NHwBhM^vA7&$LU!)L^I>82Lo+@i
z?$_e&ZPxhNJ|3zivpEQ1#`2bE7?&7RW^0W|oc>xD9+ycv1Dk-}SFHEbO_fB)dDJIL
zZ+$fmXy+`j1ab^%cD80=!ko?p>1?qrX?<L*<~l$Ih=CwjG87z;cO50QRK1d4|Muxi
zTMlP5cacWgt*?Zwki!y11NfzuuFH3ubY>NNtt__JZ=#utZH)>j-_6pPFmi{%!-y+!
z$K36&@6w?VolO}xn|RF}q;S9#=&6u>Bmx=Sqj^7<jV56VQ7J^<q20&Ob@_NhM44%v
zYv6#%k!7&K(M?NZ7nFxfk;t2<rzeIKNJsx{NYaqH2#tXI{aGEw!UWC3h-6bBKhCM0
z{|lP~2`&=j;DZ#+)8nrIe<6&$*WFz`{gaa?o<Dc&@Pk00{uutIL$%{{7o&QRA<*-*
zxo{<{x9w41p#8vJ>@tUw(I8sqmUz6sHXQ<GYuB#b1O)?4??cmphvZ7CreF;zz+VP=
zO_ar}CoWFDU=(m+&+gqPTt=_>wy>|dX%G-Ko1ayE6i?pUtQ__%LMzGN!Ozmzh^2be
zYhPlM?^NS+YL_QN6!5{8*c8a#qf43U%#4~wl*EkYs56<aS7TbV{PhERHdgZ<&nH-T
z88lH1?7z1@bNci-HlkWJ{4UxEQVkD;zOm&^KQ$j;0GDnBHQiQw`<Rm_ReM`Xnyyu$
zXm2hDP@F4p%B!T7$w^67%mSTLH{nc>j1O_fG0<pmsm56(UqF^%?Vxz_0{MAJhjjQ!
zxYZ{dM^}ELAaF*8o;$izE5=tCn`CX?L$SnM5}B@AVr=UJj5vTm`zr?J-#}Dxy@<#H
z=!{Nx%Q2H#x75mHY_H*uLr{X*z__`&!T0_O1IvW7>F{B*CZfj3zo*u+!7M#EP%q4K
zH7(tfz|}7YS7E-+-YAu*4)-QrOl>L~SVQB2vKuqH4_gv)m7O>+i$49E^3zC#hp~T(
zj&6o`?b|c1HzZ^Xk<Q5=V+8?1;gw12`Hc2e6CV*4!vBJFIr^fiXqQe#{n@3)%*W%z
z)Fde@9Jk)X^J^p3#UXR44hG;8qoQV1kYXofxRHn5FYCw`)wZTqms0^KC!_UFeE7BR
zCSn3#v?p(kX!*N_FuyphX~88erPvj62fEvvL_I<J%!fdyV-Xwd?9LjdH$a~y!oQ|P
zs|(gWy7EB6?b~bg1p_w)J-76|0AtFTH(Buz1{Cq(AmDa~s(d6g5Jl0_j{Do-wA+Z4
zqz!}5USC-q!CLVEz;Qk*UDt|s9BG{RU2w2zI%8w=tzf9lb*_ntJ!G9euWMu6^w7O1
z)D*S$mM{CXJ>o}9Q$Sw}KT0Fcdxa0y1&yOT+wC|>FI45)V4%UE;VrcfPA!#t2j<tC
zH(9RXaEcLnod<WWeMwY+ai2hbjzY3Yn%#sUx6pJpW=(g89)~Cz8yQS6e4gE~37UXF
zOeA7Hp;%HyeXM8wnDO&Gf-?}wZt(L<Meq>?k)sDgc25@4lKjg0d|`!0WI)UxR24AP
zwnBB~!quzsfGdz(%(YPw&#zRl;>+$leE21HTX;i`8)T4^NMsytm!3<irEpfBz9{JL
z;YNk~h(G-Qf93=H*Mk#$|Gysg$XCR8?L&J~CnLfSwuXS*wr+SJ->Sh+I+KVPmvUdp
zQKns1r$d<ltjXc;oS;!NIa2=)3K=h;%oH1!_cD9;MjVtud!h{!V%hDDx9G9JVAw`3
z-;Nwsnq7oNnOil%efuwawC+dg^`3?UX4I_)U8pxf^C7mUhYw5cg;|gAC=fTeYDpSj
zfa|30L}OcjftczU6g<WKHOCTa`av(-PTEh8ii#>c7(CMOaNV-f(t<|b60@_)Efqhq
z5meFW8x#%?2oIh;bP9FVL{JIV7o^oJhrJ;q29d@XRLE{e@of1-2bbcyMa%Sr{g(@&
zM<OU2?kV}Y?cz3WoTP{#{eB8(5?&a5lT-w<x1uDGCN5Ut9(4v0rvNh|?CSE_*qMr%
znkF#hZHnq?%r;?nq|bq)dA5Mr+NB*!#k~??o(6eqccRKG*cK~%jx?Lzy?bW?t>~rp
z%3w5N3VE>t+Id9Y5Jyzat$>a6$3*)Wz6#(>6ue(%7VSws{*HIoDJie%8+~{Nt5&Zj
zb{z?WgOKhOUYX<}WVgVFseqhtQ}r<5gh3F+m<1;d_YwfU21>zG`}^RN1Y=NW6%@TW
zL(m7f*u8o}kb#Ng3@=c$FSkh_Jw#!TosF0w{K)Yi@M1oGcvqt!qE6lvU*w~%LAD8Z
z3J);_waSnKsp&|R?0*qOmk$vN0cPsuN>QJjS=Eu*efD)xWC9em9`8;pa8H_JWVD$$
zJKX#4+&Pr#fV4~LgUEY(p{C*3@fMU(2vDSvL<KVToM)r-kKY)2&-6>Yx6=*DohYEM
z3-0RTb^QF&Tb!OZ#rb;S?!@Mn*vLNbH&7*ubCn6SYV0BMGjXo{8c|;8lvoHynWRPT
z(jjE_yo;5R0fPGp%H+D#0$G4E`MJk*e}+tzcfvjTk{g?6AXSh(4h)Jet}8&@woLog
zD_7z$0Y>K29?t-a_OAt9VYBkT4+-f~&vp&y-I}F$--njqJiGdK<(@hsG2Q=MUfxJo
zv%X}FJVv0t-8HjU)pj6E@?3Kl8Y6QTnQzD8c=e>hW*w6l85v!jHrL9kR=VBEspX*7
z-C~Jv?JQr3<Ge=&1?L!c05Ca<jkN2I#XqWiC^^QqvOX)Rkh>Y4pRCcib^V!B<y{_q
z2@9;^t%N|*;D;Pho;e+~4r!KeEmm%@AhIr7D1`<(UMG8n`7eduZjH~OmF2HTzJwOv
zp!4n|VKBxKIuDxz|G58%3ogX4tm`SM(zz1&!K^BbB`&WP`quUcNk^D-tNXNyEW6i-
zy$5nE3xr(k*u8e`pnLZ$Hv6zdQ&V%ww5EpN!qDx1DOv)(@iVqH<h34=w56V-+hiqA
zRgQwwXU~>nX@Skbr1K0@z3$7R`nSeX9i+jq&29+<zBtc7i%H=%K3d&RpoB&;W0IG=
z$L5m$wu&O@(Ce$dCT7S94!$T7ymkov+G;3y%$PB{nT3tK7QELdScZ(0ERQG_EaM+2
zrDV0NGh3xbf#sh0J2Iay-CTj06Ev&hWUms8xGs~W?VxfcGw>WSB-h>1a_d)A#ZuxB
zx^?H-$Uave$kl54!RSDpwXdue6rxs`u!|)v=eJCGIBCL!W+=v%BXW7;ABuG;QYOh1
z27^EdgLo)MZL%jEZBaBxK&Db_rIbsy>F)#X(fK*y#$F<J94r9RsZ0cddDLs+NmKj>
z;QAVx>0pT2YVO5J@Ew}Ny~S?@LyuiQZW=v$G=dE{;n>mJTe+HK*g`@>mw8MDgaWpu
zU$jr91tVuQoM4=XWD}7nF@f`co#^m|scA*iAW+wTfgWgErFTN_ay`VJ3`7vXI**91
z{H_67gD);Fr+u!hz$9%Njk9wXLOST#tg5kY9v*Fx!yjVTmz<AQ4=TS%O4I^~;F+ci
z%l4HaAA1{3CoT>k@8a0D<;HHngHWSP(9>%_=tGh<NMp;J6>w9WWr8fo`2^^ZA!1l^
zV@mZo8(3Pp41Z{{>U|ZgPl7i1VOz224fPE%LE7P^!8=Uz-<9~}$&<jTP*o>Frjp*B
z(Pr4#)bw~?%3l{R-UM;oXM2RpV$g{6BYk*NrPX5Ci)PwXf=5r&8%BHK^<~?XOfUv9
zFi04(eMVzf67($PoBGwn5e0ng5}wJaar$CfdbK#*c>_6a=k9uPuUSubU-pQZG=dcv
zNZup}b;^i{;y>hN>VVa-K>&S;t*Di`Vx?#_Zxww=o&vX&6=(u^K{#|n1@C(y+QtMq
zP->8MqlA)}H`FM53(L6S59B+V+bbNjp%PH-FNB5Ng7>pl<X&|Bt};KU{ABYFAG}El
zm(9VxzzmpX!igEDN8+&%u|IY5R=R$m7&%#t#~*=FffMYo79pPB9BO}7pk0Xat!z-F
zdcaj{#;O-dR8m-om>wh>C+y8E!??anBoIWzntpN0Yr;4CJqtvC;TTqC$CWSttW$G{
f&i*gv9fz1L>egjXK1`v&fW=v5_oaBn&J%wFAw3aG

diff --git a/reference/plot-18.png b/reference/plot-18.png
index 918ed77559bdf85ee9d48bd38a11a2cf9a66960e..9d88ee848cbe0ed037767cd9abfa5078e8557ab8 100644
GIT binary patch
literal 49802
zcmeFZcTiO6*ENcH6qPZcq5_VB3J8d(NH&Z}g8~vnvP#ZM&W+Bfqku?D&MG-7IfDU^
ztfUs2ppvuD<ka6f&hP!+`&Held+YvlZ`J)Qrev_`KIeJ%v-jF-t$m&-DO}mMW&ai?
zCZ=s9**}$;m^L^uF|E7v+eZ9^7Wncf{@Qp){>q>D8-Erq6_WAS=DV^QwoFXykBR@*
z`1Va2GBF)uBK>(m)hT?m)7fsf+Une-qF4;+w?k`opWNy_x>iPMz2UAuFO+Y)qIB0_
z_l64}H|$mY8J}?S(?86IwmjwI{c-j|$^*~Q<Gf}DSI(bp+xa(FL`>lXeUsuGS4>iq
zmaJxXy6xh@go51hMl~Ig?h<#t`hEKAe_az3(?6om8q@ysJ<}nH^-gR4{hvcJJHBoB
z_gl|>mp%9X=OuS`uhIR_xBp!K-!J~(tMUJ>*dWV&c+3*iG?eAG!KOt`U88@fHI>Gb
z<lL6lpto&>g^8)Uz$R9Q2=QnxCkc+efq}>24Py>k{mcV5zbLg1)739A)-iczJYy^R
zPn7@u`nR8J|NZ{F_u(?;|NL0!DU;xTzWsQdBZD~cyH8qo6*Z<2FaG`XTKs-=?WB{0
zW}!ps9s%uymSlBvdVgJeu62|IhcB;sTFU-2W(gPm+Gy61_cm0-IxVw7N^9Hx(@K5S
z0hf4<E1$71{_qmaav0N0)hWDD=r|E5By+~B`SXUo+R-;sH4|Ou#>JLKGg<fU-J3nj
zrawJH)ia;!t<uag@yp1_up7@GNK%ZFTBMe)#y(}`)9lwMuuIf+9XrFXTXd6+jV(#9
zw4}gp=oQVnRL9iR^fuMFAyP6_(lw_wMdS4u^HvjTn$DDygc!Y6xTVD1)qe2v1*(o?
zMAD7a{iMv-@AtiC<-0NX7mL*Aj(po}>u#x*BsKXUU6(|w!m+bDPTwD1cTc})pH#0C
zes1rxgQBnM!bHq_Dts0f2BNa>^~j8M6>BZcO{g0g#Z?FJ#V4sHCppvm<>cj6@Uiw^
zF7Hje_;5?C&dN?T3ib5BIVL8<=h(C3m*Nzotdy0Ny<?v1dF>V4p5%=y4Suxkz()5D
z;reqQYD0vNCFna2H&=0SaqV`tA8T*fr(ZkSQ+X|3A;O|Y?&{UkdgK-Rm--y%?v`a)
zw4J)eZk_jiV~<V##o-Z7^75A~lP`w{JqFt{<Ev_Gw<da<5Zh&nB`Fhg82tQBuk!YX
zM{RM;F<AUH-Iv6<?Z+KPTI)_J4%A0j(hZD_!{`mt-5KngH*Yrj_|J|tw4Kk2UFX^Z
zbIn?kqMuDpkQua7<ZQDRZ`zoEzr%2I;_aDiF5x>Le|r%T!LAx{ag3Z!HK(yCN=*J)
zmf<opY#5SmNz1v=k{y#iq%yg%m5J$M<^ErRweO6Xzg5A|Q9}a*|4);hR=JBaBk^Y~
z+f8Z$`7aEJ-~Hy9Rx~ANKhk<lR8(|LQ~$sKtwdWOs6EFrnOi>aYrkW@_VCxYuS*vC
z50Dz){k5qj;rbDG#>(89nw9w;U;8%0psJCXJv5GVYO?D@u{t7T@%v-Wr`IOvU#@Tt
z)e1K>Bd8wK@8S<TYpJ}lI1>;V$#JqX!?32g$k~=%(&hAMMu%1In5#*AOhczqZ*Ok`
zZbUQJD#Gx9%(H`u@lhUP!+ouYnZ4R~@8dRcv2PcAgj^7|C+OYy$fv%(zM48w&i!m>
zEWRpjV&U*^7h=v3CrfZBmbp0$MAF8#2T!PKHyI8c+{DE6@K>!ed|%;n;LM$m|Lhbm
zp^miJQ+47+y4{3F^-tV<bAGHnTSZq__mi`ZK+x)>FL|(%lf0F8g;ibq<&i7T60U`v
zt;Uw~HsBsk+xFLbntBTjcNXSW_;PYK3n>OhM5NA+(ah^Y&)n`~!LKgAY)#eT6Bidx
zn8w+>@pwD?^wLCW(A_$P<3qM0yRqtK)U*i8=hi<yK5?1;az#F6`TK{*T2@hKEkm^h
z)XR#bSEgTV=ajO@PuDB;*g+jLaGf2!j<<QRs2p=boRw;)Ay&DD>HM!6dp_i6qr9Mo
z)kJq`smIEUdS723wx@c`VdUrc51OSO#kw8~hS`Ycgr3sX#St81hmSMMt4k9z*v!Y_
z);OG@!o~`phgdkJQZ{beKS<RhZ%YivGK+j$HEoJBt?*_GToSV%j+vgeV_f}^s+F5`
z>GAeJ(?W-_{dQ$%lvyNxdamNVo=+`LHz~S|q~^-ST|CBvJH06oB+o8p_a<U&rCxl(
z<mb0{*ZJuNL?#GVF!meMO;^`*pHV9-a?mTuGHsGcOiavKNK#KvyZ&0n6k8&ONG&au
z<nYD2v$(I!P|cd+d<?s=8$(DgzuinXdD?%%AWG%lwV(jogG@|ckN0sOMuPPgs)&h;
z+oO^B7P+tjp&I5m(N%0T`t_|5@@L?Z??KT!2e&^SYkyAFbxmz6uur~M*jdpt8QfXu
z7$!cRcjTK3g_dKPc_LY-&|wWd+nic&(OJ-fl7M7T>m^unbF@8Ra&odCSy@;hs0RN)
z|G*+0jBG`V>n<gi8g@S8kTm<z)5A~KcJ2$nTko!V5fx=!xH{oJ*Qq}0x+@VMwP`eL
zB)zn2d2u8iuh^GMv&0!SK;Bihh}yVwI5e5td3>W*RCxHorX)2!+N{Uw!a#W|w<d?v
zw>33l>oq@|la}s27okw&mT6R%Q7dfTdP11I>Q+OaHQ?~A)OHz)4Xm{O9DSjz=zGdL
z^EoN+gQBNyX<&DY4NDN8T5-~9R69~s4-n?5S_00+*6({Q={mc+O*h}hu)MsSHLMg1
z=rZ{7u^qCm#yI2KUn~~nN1gGCobI!2#zd9CJ@(x_=N}rHgr&U3BE9^^GUUb4YrHwS
z$IL%R-`^vsn}Xz1^Zjmu+rm`AT$gJLHrjJx55H#2NLrynUrkWZhwq>B2O^VsRN}tI
zb!VBr=$jpCil?QmS!~s^uKIpl?DPrswD6;fkrpAw%kz`vtD{oN4#K;*6V=mo7ZG(c
zbEOQO?T;^EKg^mF{Pvu<87-hw;BQjwCb!tJO~%S9P0VgE+PZY5)rRrvvX@=m8S3Be
z%Szi0p8IUG^k4(C1yx2j+bp23@fZ^GaC>&LVPtYzfgE-|Tf$ng|L!>p<Cj*Q1vCEq
z13SjpisFBS3NRBz=QnSn#vix8ckf=H^hg&j{OHx-=$=a7D|X9o^())Q!%p6QVEOz`
z?<YSwS=l#rdxzU2@UOWNT`lT*mSORRHGu{5KfJswa@+eeZ3h%;#u}uSQu=1`SwlER
zxsqMZ0};mgog*`5lRwIH7GAv*_?<gqP%(L~{`=kaGfL?u$R)Yw^7HeFTy1!l`u(oS
z%y3IVFGXH1Yx}R&4?S&qC*K+cDv&nTmHx-2M>l7!&ka-4tqTSH9}CDF4!&h~T%r7o
zPCIcw$2kb>u5>gD(QdOOIoI)8E`T@DV`Z_RFHmdxJ+q+6y9XQEGmRCM*0gqXXwy86
zaYWRz&D3Z`Po6v(Mpf)9DJqhnZMxVtgbV7M&8!!zIoqJ)*lCzwteI_=<D9}#9T*mt
zJVwjaiW9VQFm`h*LY33cw=RFmx`r<Ee$0VZFC#S&ZmarQW*e<&+kvxNzh3#GsytwI
z57{-IICtjMH2#c+A-iFu(_9_boS2nv#!6J5L$aWjjg5^3^<8$@wu9RX1<ko07PZ>v
zy<+<&89=o&jUZzD9MO=R54l^(?zq0A)P2bTdE^=rnOd$@r)r^tB{w&>X_@Dm#qq)k
z3;I}hX}5#kN#O%y4>BlO`jyY_(3fIjVvdW7w%O=KpO5Lh^mOe?GmZDn&IC@kOs;js
z4rA?xA&#g3Ih8)men+lY%-Q4SzAi_IJ3hN(IU3NMuNCfdKtywvY-5vwlWZIt8~f0G
zR944zEIW`!UL1-)EIp@}clV`X`_XHm34jvifqgSBGsr6@jWMKxh5j)6?+^DT$@uJ-
zlau4M;h-&y<#s>iKeqq>>?S`atEWdl5Z!=UFqBQzZ341Nmlw$YQ$s`Ja^u(31s)QT
znm~>>_N8r{dAFy8Ms&`GEfQ@jwPMX}_wFyg8=2vimX`ij^Q?30dz0U$n<h$E#;nWx
zS&m*i?cbb#APs=^v38V6veL^31gNWVKbD?sk$X0+^TaJqz=En5$CB~hW^Ea<8(BC~
z=DNvx=B+7T?yuX_Ym>hv;)8>Ei`+4z9hIRf&ewvniQK(ghUg;wHzPqewP%}KlDBAw
zmwW9UX*W*~5IUMPvt|1CmrB)1_`I=_^O=j)L4wx##VO0nqT=F(S;@Eff;XMNd`Uyx
zk<+=?&+}caN?)Yw_}dOCtB!MIEn#8dY+$z<JBLiq*j)n*qW0rbGzCb?H(2LN)^90_
z<h_BKDo)hY+y92i^;kJpe!UXyZa2Em;@m{~$B!SMPYG&f$)Yr?ytEA9Q_s0(J!3Hc
z0^!`?pcg&ks_2mPz{f#Bd@M_uU-}>ra8_q7>dqZ{R8mx@Jh$!mBlFqOwt}I!Fu4_Z
zPum7bb=14dITLM}SHeWB1G(zLMVn4pqlB;Z;F+4L5u{1INj*_hQ^TA`#!0)tIijlf
zzXBSC<Qu7{4Xbw>8XKE4R#!Aj-16fTB9fNI3l*=0p57chhZA#rnh|=&ygg1Q!+`YG
zUIQ-~D=Dxa*%MZp@>?@Yl*eMCx6tk4wHwNgupakZMP_0RBM&vkeo0YKdgVO6Cm!`5
z@HC*W#8-OtCIbzFoPC9Xwsts&>!?tTyLItQAlDGGcV>sR$dbC4kn0?PU{0sBQSH95
zuWv6cEG$g96tCL0j5%!5Ti8kQ^SfOrC@rm5x;!QSxso^4d{H&>|8O+XuEZ044{|TE
zRFtmM_YIa`-(1+V{h(5@%ghP-^3M+}4_BjtgG~xs#{tFGt`>=lh^TXV%)jg_`TOtn
zw3&M~ucrEHXd7e3IBe9~iS7Y_=H~d)WF;q>ls{-iv|MW{wq7pDto&&OjwC+L1oum{
zS$)624l+RO{@yWwyS~}YyN;TmD+?4BQ&CY_Cw0gQU64(_cHmOQGxlVh&_v{F^lI8K
zL+B39ulNN76i`9}m(E&sn1l%i3x;pu9m5@l|Mwl%impsIS#p*cuzuWpnr1!t`DM;h
zBv33ZN|l8};@r3Pd_zAS>7v<o^FO4Sc=-6_kH~ocBa^+hfL<?dIVU;&`BEUwM`-^k
z16h(9&*7Jmh2@Dj5J>R)`MV!*6$9N7C03sQQy7KvDmlHR;L~hM$_X9&7PUZU4)XG(
zr+nx^DYvf<-G)IrMuorfuGxMaB(2Pjl3VZA)|{~d{zbHN+K3uXhCZ7W-Oj}HbgvdU
zfQiXdIu)(bNR43W*2O<AY2{jFcXTCOe|?y?I6b8A8V)F}f^Mc2b+(`JWNM<6k%oFR
z7-Agxwob(4b9D5uM&R^NQ{}1S5m8a;QtpfEXKtmT9Gce#3(1j4Ut&lv<X(k7>~QMw
z$yw@h8R4H9qp72jnkjV@cN}jfPOPYHzrRzbo7_~#whGhuh&c2wi6~KlOUF=muW&eX
zrRZPzOXrXWnw&t|y5a%lZ`mQ(9Mk-juW$8<BDR)8BosZ4IZ;!GGin6r>5Q>Sr|Ffs
z?&Ql}d)o7DjX(8;Cz%&yHQYm!zVF|1Xn_DkJgOmUj~CGu>LSF|fqRv2+z2Gkz7&!{
z@6p^_^}_P6^c%wS=v3nnGhYKG-52dz5>>7Mmf#C*X!FM>yDXc!9lPCy*b)+yW1q%d
z4MAz{uMIKlD#|axabOpBsO=uWfmuXaKW*J5(P>k|pQM^d;c%b+61`5+Z;{r$8du`J
z)ILt0>vRkV4IL&=tgg<L(xmc|WBhyb4-k~W;A2jYH|{@MaK|&fFBBiSFUw|G($0SS
zu$_7M%j?IM(e0Ivshar{B}>!gd-aYVJ9ee<iQx@`fk0h}Xyg{RLdQ#U=TlEp1^y<^
zqfKA+P!YYpDehX>d)@(6ohHNYL{Bwa9pFF^fLp2?8mRs}Di(k3x!;_kp+aE$zLLW6
z0(oH4M!>7XNqYG1v{7yFKhLg*5{+nErtt`XGhc=^dVT;dbDn12H~2kLl-m?ZR$9~=
zXHg*U+gg<8)b-{!ZjvGj-z90~rj@MBYDKt?=LZUlTtSx@6T=0BaN?ECMOIGEbeu-h
z`Jdm*<J^C~+vIhv$4<<?L2_;oH+doh8K>KZ^c%@#^ljy7m+8SDd<QpRxm8m&voE^*
zc6)BTGaxF8bIQ0mu_#V{iMYGg;CG;MR(FRh#NSBMPMn{2s#(EC>bXrm9J>_t;LBV6
zE2$cpGC;2^OZ#GpgU{(c?KfVsG~Spd_ZhqP3iYvO$Zli6s<&|cXLQ3B)L4G=r{a#6
zzNBaf^K0eQIxvp-O6<IQ)|IpX7Dmk?)Zc$ML5*BspXg?+=8k>Xl{!7%x#VAe>zS`_
zuKW4d0ckpg!&o=wyyd?mZsx_kc76sf>J`C1c?MI9T^+|d@>Pr@>~ECWAq%;nUC+K#
z{`5}M9^B^{ceD<g83s=%FJ2r;wMz8z^`-v3d6$1=WEvWQ$Klfa{MTL_Q_Ru1l+A_M
z(?*t5$L6eylLzVI;!=RXc6e&GC*&5|b#3$lYp91x1|nTg1L7nE?DcMLR@EVX+9a_!
z`1*o$-bo>$>qG}D<}iBGq8(684*@sM!y*8h<O1`a6K{0ReuyVCRtZLF=gyt)1(Hwb
zHF4h~?&tl@SKxB|H}5*8(2Vw#po1(s@_xNrj&*k$(A4m^cYjq^S5qo`uA_5pd2{>H
z8C)?DcLF8zcL=H?CWBxyP?yb@X2%wn=?yb=BHbp)a_z;gx!yua*Iz#Z*^r9XW+*8+
zO&J*;fv$d$Ur-Vu*Mf3s_pNMAU6iyQ>T4s4W!CKv8x0K&d2m-)-#{F*n5?YR#2uqF
zswHkvM0Lo<Yxs2vR5{&#-p8qa?Y=adhz}?j&8V@X*NG(C4%A=RwE1<PYGmQNf*()$
zrhzisrEZQs6CYQ4xP|p_=ogNp9Y<smkn(btF1i1v8NjQSg-#I7wgS#x6FQe^<X)nS
zB8WZvnHKeA>+X`(vRBj*pM=%#dBg|({C1%(Sm+W_)rqi0dQB$qJIYB5c!Y$s0Uc$a
z90{PDGR8-??xcAfVB(Kw@cW(H{{5Ee{|2L(@E?+NS@dIh`Q@>j5}WdRCq1xj%c3X$
z`oEF_%GvhR{)aL34F0(F|G8Wc{kL<mZtBgq7w0-`eKm6|5^>6suptG@Q#EHimYu*m
zd^*+bxn^CjomjR(6-7ns`|+Pn5-!+{UqBj%!$vIPvMxBL3#RIHf3NJhW}sdko~o%8
z@r8i!@Du4&E#8?T6x2RDu`}e=Wo4eya|G9ctk7Q{aUh`Qa$}bXHTJ~ROal_#7E6}g
zv6ZDcb!BA=x_?cRC6vbp1!qUo76|fIAzmfZxIrLiJI+lS-a(47Y)d=+y~|u7$C++K
zF5a|l|87+dl4hon4<JhndVu3RJS3zMbp-Lu;A>yADhhXXUENIljFZHLxz4KeHS0F6
zSBvuY-bx(q{ijWyH#Rn^qH$MC)l};&ux}#B+XN{G5PL@z!V^F(5O0W-*^I>VYTc&o
z{x|b$f&>L~SnAR2MK2ywCAxQ9S&mgFF9~Tm$TI4R%PK>SfDc%yMPMlTLSFJ_L&FZ%
z>TLT?duk$<ySlz!s-<Q9?>)Z?!nXzsBB^&37vi+)nz*7&_BTYOFVF`@x?Cq(UMNZ>
zg6K-t&S$uvaQ(%wM-B5{DQ9==c$wSf!gp(bF3sJHSLM;ic2^ffbG~+3bYqS=Rbl&;
zAvbFY<NAZ(<daD+j>al`+zS-YNm^cZ1MPjBx6&)7_)D6+M(;=z7Q68C?A`WABsXv!
zI^ge`0T*tV=*3VoX=67$JW9NUcEtPi>e^=D-#fe0z&sFzLUm!P&$4L%9aE@z8qd_j
zziRp#5mQ-r%D4Ei3Co}!HUV3%EPWUg_pMa12n8>LrEan5#^z@MJ#~^9D+Hg9t+*93
zUUq+-*hCRM%eaAqk%Ln_+-4lrLSChFBKcnh-Ra|!UlDv~DK2I_s>HV4F>+z}PRl^7
zy>ubbZ39FPgBogmxL4Pyy2jUkLi5>%w_Q}_Ha5qHHkOi%WjevV5L~Hol>4lzI_vqZ
z`WpqA{GZ3l2Mv#AHngH&2GOEY7b&R)Iv-R$U^p1eW*}mF@Mt4d$D*3wKV+6KtiJ9S
z5;DXxzKS%7mz}DZ*E=9$b)s|2VUv=%B(Tg6yDlYDf0TR4$36qqu*xQ69O-P7*!;)u
z=<<NTNEBril_OHRTw^{CI@N~@S2yR5U3#?DkE;_zSB@#Lq~7SvmqeBLlbXB2O}fm%
z`+_DpL_$RgEYeK}@~QFc1NOa1A81fVB0LS`#4c*{Cx`D9d{z2#s-yfMes3Os!@<dE
zO;bnFrf?xo*V!<d6IK2i4kGvxKsaiSCCwkz4VMKLf=HX_fv(HQ5UJi$RKC7vl4vWy
zU-%Nm0d=GrAaL-@>-}PO3AhlHs)TMbLo%svPjj+5dM`OeMV2HMg@-EctB<G3e>;3h
zFX$PTBN2&wzqmunDPdvxLNTU0zX2s4UjsaHJxD-@D`LK90Q7HjfVyrXuUgWl?{|*_
z8^lLAgbEZ49(JFqIz|xX{uGMx;69aj1^&sh^Q3ubGu)&IF?(g;q^GsRCsH*c4KJh=
z$9H=yrE(>LdWhBD<q8n&&vnMC<0fi*tajKd(3jGm{DOn`O->#*wayw*-m|b6kNp5M
zK4;AmKQ=Tpq*>(jc5!yhT%1ou`K66Qwn>Ni7UangBm`uN>1w`oSqd5%^Drr4VU_gK
z)q<E^_xlf67hUJ!;juY)5MOc%3O7)E&N%(NRXka7;6iqlqwhbxx_<utF%V=D(cFTp
zjoi6w7XcK}e?>TUITI&<S2ZD;$V<zUm6xX)LWHlNT~L#gdrII;@W{lPpnq=7yVqm)
zVVlUOp2@+)_{gVb`8QUSS_AqQSe7+>kU%K_VTZWh3fVAu?xUBjW5MePTEqpV&ueAf
zV25pk8uSH)>tk|(6USEWuRZ+FHt09mTtlzC1bF*GztU6n2bpbF+E!ZH5Af<Sv>n<E
zcW|0FCtRl}qzq}@xV)rG2dgDZK_!;b0a;2>SnrNVGzswlBEbJF)Jrp#?}jSzVkcvW
zWJ)<f?VsMD7U}e3Gq@twwh89ZlEvZV>Y5ra&3vXq5%ZJ`pk+jd#b<fLHB5+%e=?9H
z7&|xYI(qdt*F6f+n=b8kldb&n`U(Ngc>%geBocJ3CV9bPgQY`351bhwx>uIE88>ie
z{^8-;29ocrOBQ5uI~~HR4ps;Lmlt5THFZRKw#QdG4FzYf==kyi9W{!O;z*59Pc#Sr
z;QQ5LTe8G<_)0CxqWFLs%w%7`v^Z69!1_d1XV0Vwu*?3l7QrCqB^V#>3KWi>Dn^@m
zA(e*IEk$eqvK0Tc(rXmJbXoTY?uwb2nKM}RM787_tDBZ2K*|#U@9oT!IJ8eB<*zK$
zZAH$R9L~Kv80(@S#5JR%x)y%!%h_985y7nUpfpCF@}()^O4Q!oxeNkIfnbWKqLaau
z$cpXw`)q{?Y8=6I5wv22$KnuC)lQu{wYJq3owo}(vX&f6E$(B-lF_XU({j`Cl4CRp
z7ODAY#(i|I^1!gI$mA)#y#{J&+HH&%H}ne7HvZYsDofMS)^Ql`NJQ}<P+ucDQ=)}H
z^^iqPKmXER_QMV{aqgiYJ&!MMZht^8BaBTZ_)nK!zbk7a#WyU)NB?N|Aa<1KF>ufX
z-)_>p%&R%KKkD@rUo&*!lo<5fnpIU*1qcgn62VIta&#NVSd$*zR0awsU8ZK%H8jjc
zT~XJ*_t3D5DDqNLy1MC9&faHP9i^1J<Bmu|#VEqiG6hIxaATmygnr0hLuieWF2g(!
z2<7kzME-P{8&5^T-=mfLqe52Mq$l9TLotsRhdFcC3mb{5x$|%6?*6hbeZ%kzr4dW-
zFNhJK3Bi^$9WC@NR5Tfmo#?hhMQx2fj;x9u+}`Q2G)AyBZ}&0nu3=(&Wd<rvhT>-c
z!T7zD0(dEJu1u%NABUF!iH*2I2BOGas)@?wdb;n_0XOPU*VpwUpn3cUP)kHA_Vr9U
z)u!flnK^5dD!$(hR+L`J`g{-fVjiYTSpXsFBUEA0Rn#VXieEG9xN`2@>N6F=T2}ex
zvZtUyoXD7HQj|VJxr%&$)xp8xrMn=|eVG_FRf}q1VDPo%3eYV}F!|H-KOQ!2qDK;i
z<mj0*EmKYiYvGWPkQ{_1au7KmnwR;f1?<IlPxmHt3pH*kaaV<)7UV1-pQ{~rM~3s^
z%DnsiqAjF>oBfFznQ>Khb^OYKl|4eflCw9<TuOkT181fK#GR)MY%AD|cURl?1*q>K
z<sv!%L)&lax~|0#OR#3?0%ZXxiGS(UxtBRjV-8^u@Y~{`Rf=@G&qWw&I9P6NcHkqD
zl%GL?<Ahb15ySx*3fsB6x0EU+H2&JS&6^7<PRgC8#bE~U!b0xl5#1g-bPzUD9C7L_
zp*;#wu9}%8O}Z3co*D)9sP`Cvvi{Vy1ftGyg@9?5{-M92@zrH!hOyNJP!(H}^aN3S
zj#RnLe}8<Phg#`44r-#(Zm6+bHA%G!q;@b$Xb4hwWuCSGO`j745d`vJ<nv5)G0%q$
zy@kM%pP|(D*M(uvprU<{Jq1;lk8+kmmkwXjxfgXE;D}GT9z@8x{(P`dKD4o%6s>3>
ziqLmo^}}qXY`fa>xW5Y3Bo2=#EsA$IY})VmP|F%}HoEa0C%aLGnfo^PwNGihxpm*q
zfMAruHZpA?{1n&E+7GK9sY0M}zv@}PYpcJ)`s&tnJ!{|yXm<Sw!r4vhz%;A%vW!1)
z*2*?BY;0<}=HcP-@-z<RS<2Om7axQO=|8HfuRn`(b`a8j2gsz=Wg<WN6%d^`;>~6H
zjfHwNlXYHSe}8`{!h(&|?<3On)4CflSo%%Yy`GB0eFW&Z8Y$66EI@C6|9)Kl)YMe1
zVCnLm0*5g(t`PII{E7_rrg+6Usxbt9BWR9<uIF2+Pe{3|Nb8}v-V&wATis0x5n>^D
zLpF$hFnqM--Fs~c+QZL)C`L7lf6{WhJx0<Mqdgx4ga{iiGQKTBB&>t1<V_tpW0gxI
z?!ygPh|n}IPe~#b%TVr#MHoR(?nemB%?&}euS3zY1o84+F)Ao%AYC7uR0m`-G$Ddd
zMT2OHJmY5oe6AN$w7Rl%fD{K!$_Q-eQ9iyJr(#{((XT>uz;?FBA8vDnAQo7w)!%57
z;sAmAktTU;*jcYSPL(MAdjiV$^+@Z9SbY6fI*!d*0II3Of7V<f=#|49J9HDq><T+q
z&C_*@U5wf?438c=R!MvYSXtp)WlW5Lk*W(8g=hCr9r(~e2vgu9kkAi{%UW0TrGPp=
zFQwn*KBvRT86CACcgM!ZYxR$y$&jvNGY-EE9Bhhaz-&9a*zOyW3YR?{At<eiMQJyH
zcBn5ER4OZg*+oWd$Jb{v`BEiJ>79f&Vf5kAwm@fS-lK}SsC3aItj|o=JAKISMt!Q0
zJp~q#`DO+7YrItI*Vfh6US&wG7EY81L!o-+XFw!lT0xtSpZ8{R(ax&*y5OIc{NKGb
z<O<R+4Ncsov72<TS``Ng>REAx0CtC=$jw)72f=3quD-u`u1gr~`HeCu<_duI6{-Z&
z`oAD3{uwgi8~GqJ`u&cpCqbipIVkCp^=TD(CS(gM?>>?dvRj~Y!?~WVHD#R$hvmP<
z;Mlm?I+jDTqBCwgoa#==AT;Gu={lYwjW&+s9YZXiEZeiHdi(l9V1?OV<*~=;5CW(f
zd31_p5<(vNQ0lFdG3VYD#RD+EUG6z5DcQ-0yrLhdeUESiF_w04a!y3C8qJ6~Ke8sA
zGJg#_K)yBL3PF|4gdi6^WkJiS)2qbN&@%KmTn7I*QdKln&G#^8Y4y!WYid|u%3*zP
zHh5C}40Iv)(`?YunlE|GH%7RnJ#Ip2Hdhb2g%h=yo?28?6it8FR4=4oF+buw<?X7k
zP#a3Gn-^aYo63HR@C>9~GF`eR(rLh@QC~)%bZ=dHAaP&!#=y;(HC-m1=H5JRRuK}m
zKOY^idb2Hu&GztbZh(tg8;?K_vy$=NcYFK6bHCf^$cdG?P7hvZTzv;ldv9B*LDf!1
z(9Zi?*-m|wJq3@LuUx(q?(7WK{S34hVP|J&*a$)qe5inT7@{vAL5OO-g^%ldIK!`F
z!j0OGEw&s93<@#^#pc6BYluXB3j6r+&z`&It|}-f`2C8MCl*Acq@Hu=3A|f*g1eJi
zv7XvpzWKCn<^jjc$`c^5s%$KNw}eW!O0OOE_>Jk9{x+b<Q*;KkOM+Fg%mY$9TKvAl
zG`<@t3E+!lDLCJ^L*^K(6AaZ7w}rzrcXO7r@WkxZb9-ypMPR|kCyzfKl=hHFDY#PD
z0rWjj^(ur$+?;EzXW5o<8M*JLbo0^OD2N2|;wGVUcsQG?ov)0Wmb-RsCjLp_u_!lX
zfC0XYVxT9Ag2YDwSX+_|H8s#pFuKvFA*yrIo12?2IwRtEND$nWlnl|Tk8m>PA9I;P
z_9EEpJ*raO>#_lq64BOPfNp-d5qbSGWsA-+eAeQCG$RoqMK}v`SmFqS3>Va=YY3xO
z0#|%7PcJsouzF{QHg3k6IX6{#ek?m#{tXDkW%u4CH$H`PV-g<Ad5>5)#~bu#?(#kU
z@G?@;RZiJ2TXBrz%^n3BdH(w*5&`_!R2R=vuf&)OwLj@E?gu&OZ+B<x#|zHqP~08m
zD1c=KZGixXP~=n&oVEB2BGSH9!+2p1oRVyV1l^ms2MA*4ez?f+LVya=ws``WYKKr8
zK?2{tbhBhcFxdRCzl|VxY(lpA)hF%Txf^{F-WRkfiQq>e5FZJu=_7yEx`65)AS!hK
z3X%_Vq2<dhbIXE>OP$~%{R0AG!>kIbW;2h8ifTY&38ao>yUBQV?jt>|KgUCv3}Y|6
zCr^5&@#+gz`P-_1LiD62skzXoE|e03e(<4M_bt|<O&i4{*Z!mu66>qly`$|JhVoB>
z4CkVmNrZPGX4g7bKHPa^9~AH2f|0aLNe4g-R0poh%RggH0%=hFI~{12ME49}nuhE-
zganqkt&G$N!6y!OokZ+P5`O-2(-UtF$@YvCC_uUtw9@IGmD{f%)$-?xAKXrU&L8}k
zZil3xq~(_0AkC0SaB*Ac3!=mj@PqT@8&_^v^QuRfb+bSp5x5?(?Xf4hS5PD4Pk=fz
zT2AU1XUz?_f!Wu-Qf6#i&tuR=$nkch!|>ONd`PU;a7!{Dm@fR`)hj82P&_e_OlaSY
zPo(phr&jKv$MRijxWZRrw}Er_E-S4grs+C5Tfk$rLZE6XbhIXV0{r%>hpeou66hlI
zf4kolZ$Mf?FF|ynXnfbKOJ?O&ea^*w^yr@U@exkFTV3&aIa-sF-*|#OFCoKw70Zm4
z{Q3L=^Y1RjU59C}?9*ZQbb*4;MFL@|=(mDcdj8?N5?p6xKv$-Xe-eR3aNNi;sd}Zl
zSThxX7jP3Uv!jV1G-On%vU#0WI`_(139lSs$WoMA_&7x`RF0LSD7fv|Jy<Mi)B6t>
z>*jypB|C|}9B<1-YUE2V+Bv;ffSU(!O>?gB#lrX(VWV0lC|YC2MH5~=up;dhee^4!
zoVY2IS_wUYl!KXnzD|!VTN&F`@07|l+zEX_4QDmIcs3Mtq4u?qQ<s6Dya0e6@QUBu
z(49<KeD!--6!Wj9m*6`o{(gQh!^6XO^7C<X$9{E(i2J5vf|(LNiqk|{6}j|I0nnZ+
z@zaa653H#+t~0}Z4Cq?jmZHp`2XG`+af7E}ek3vxD6GKDX9}z9nnYf_g3)5l$o}nx
zWf8mEuSyn%sJ>gj9^MZGj1;L6Z3U-Yh!h}DDS;PSphy8tsGyh={V~Fr%#;!Rka@2h
zWjwFv+4JfUX>th{*eQj;B_E;H^Y*W0e3ogYi^F`3Qgpk0Hu<nC_y+~WgHj^vEj%zQ
zF^7Ow%a@jS_|}TsP`&8DK}OD98t=ny-NJ(TTBHlLB-QJ{eP=*p5!n^yux=J4$i^pv
z+a9ngh`T$x36sa>jZ6qa{<DJ~18Pgr=h^d?xjoEN8(cz*6{Ejd9xC~!cyexY_tvrp
zQ7k||DZ0g)C<&C5h9MA;BXMC?6fRgv1QPU*a&z;5MbNMC{sMJqS#PZmr?k|li_Cja
zD#OX?t>Eoi3hd3{uTB57S49ftpn%bhYnly)!V?tZnb~xSN91P7`QVzqsZ#4$o({U+
z)2@|q1GsO4?0$IposXK7x}g{S)yFSp&|CdId+9@AE1oJL`O}M<TROUx=X<g#366*(
zaBp!hFFod!l+?jNjz`*xBd!$P{%26E?5gZfRqht;85-E=S-KJ4=id#{^8IAcL~K)H
z42+E0$HiTy6S#&TmA!$F!0Us^fg$W5%gr2XMpfp453D{mfN9#t&z*Lgze{VgB)q|B
zN4ZFV-Wd)PUHm~c-09SjDEreky|Oh$fJiTP7q``Le@8c-5l&(?sqkxf#xB0h*gjxf
zg0l0g(jb!#17tU0O_Ct2Xv4Jmwmr-AH9^lSEuuq~=iML7{Bg`-iA?E^zOb(5G(qw?
zIOKrXuxmGsXXO!;lq~)lVqCFrX1uddDZeCYV(&6ffg0js%SO-lrsgpyPhNIEj0tC4
zDvog^dDYpnt4IUp?H83jley&ge{ZJ5fciN-xcI249#~a@qMB=^LpyDis|Ac5zy;wr
zg$R<}7W&aSn<#;SM@j9-PoJGH_JtJ>YBhd*Mje@H;Gl2tjv4GU-?C9BSuNQ}ln&{y
zJBSOLF8Iy8QVzNoLEw?LoLiR{GjGJw5GJAs$1c=BQdvkFa@|kH5*8x!s=oIZsQ5>Q
z$Tge))D(DCnX6j&&yFJx7QJ%|1UH5b?f03KJJ*wYx00V*)aZ$fp8WkKaSCcpOCeN%
z{UTQ3;1wY<#K63l47<1{S~)_H+s1Z^D`xQ~&wRNKYTFSh4o_+6Um*YzW4I~am&+6_
zd`>3ot3N)USfl3|i>Bxg_NKkhLqu)kEJHzWEg7GUC|WhkJIqf->IIWXWNJd+hS!)R
z_Ld{P<;02Z{h4T<8{svJg%%kgs8{ltldZ(FsS1224~cLI)_hbncwM*mxcEp)=F{b^
zQo9icNjil&Xh2`)+YT&t(*SZZl*GD6Kc3I*Q|M=QBAR4}eqZalq8G;8G8tA`6D++@
zX4Y?Qop1cLF|}cL+j%dy;^fO7YrXFuqmgMe1Xry(5;wtbF-ApwD_?`3ztQ+4`@&zu
z;iu|GOF-m)f~?t`ZLZGX9BgDP4)mVgXy$qdkmw~>TiRZ>Z6&c>QjqvOhqicpSN<vg
z5WMX(PHA0}2*tvg9OgwZhZhAZ_a-2neMVGSl`I$$kcn`xpr>Q|sm|W`B&4NesUNb$
zi6)D-jPh<lWQ%8V`R@obaA_nK{<^5qi7j>$Gj%osiS|*ig%q|JFYg)8<8Bm^H=WJi
z-R4xMkTtB6rY%a8LXj?~*Fc#s!ODQpHbINIBRy<n=|MEg{q?0~rk?`@u8=Du+(y7$
z_^e^5y?nDQ6A+u`jn_T=0V*SV`H2w@4`U5y$)=qflF>|3V(`lLG)BK`o;)!2inQS~
z)tEjhD9FF6o8x%OCQdgck&e565e742CIG+0Z*!u%_P4@Ao%IpomegeQZK=S2uq>v%
zdBASiiPF!_TDty1g4;+^q{O8rkzGRmo2r+=M^R!>1sl)eFqm_(>Wq9=??StBz|L8!
zBzv#d$brI5t`D1T@MO$xbomrK!7>21!=5%{?=NuQjj}|xrv{mFhdV$R(`;k}YMyID
zvb7^@&SH~nTF=wT3c50fJ08~%)EqW6i)(uD%Oy&dSqm@ROYhD`Ok@@T-d%2W^_kWs
zOuD3FYtsqiz44m`qfd~Qj>b3?bXpM%JEd2Tx~O`xVsMsbO$8buP$yx8zOd=f$J-7Z
zCG8iriRnAVULu%C2rIoDJ4yNF;HqXC9&wz!b-tOZ;<KS-(+k-Czs8w%mk>N6yh!_|
z3+ONZsW`_IKB<-WtMM>=nI8M8!rVbFsSA-j?Q4H{+fOT6&NbyPn;x(A<X^{hd<XK+
z8HzU-bZ6#FSm)?aHRk6y;Zbp08q4jEVk{HPL4AbQaq@o?gO%fG_84E0T#SI*(J&Dd
z$yw_z3!K8C?tvK>etMc-X;;oTpmUy|0q{v3+LYTk4KQq@4urzI@>MUVMTp=gxI&0N
zcIqpvakF!ztZE%tBmE4Jd}~3Uuh495ZLj^}%jn><cURLfT5;eP%?PP63|+0hw-A=t
zs6JdY4j!S^DZ)&9*xnr%zp{h`Y!0rVcVYw-Q7BG-DA<gA&@x?3=O^TWx%><u?^rhd
zc?pUP7&-UF>E}~Wn%{Ro;WI)O>&FfJoU26dScl&<1-M6#PoPz$5_IG9OE$>ttFw@&
zU%>DN*34MOmqX`x19aCrzZkmi94WwMFlwlBdNGkDQ-lZ17N!HT4xLV~LnW<+ICqUe
zk=oLrAcOr3q~Lw?bpI|t2Y&GiL1&w*@74D<ZO=;dGXP&@i1q`E2zdA+GSW(*blK(w
zg@O-5xNo$WsCsWYfRCDJAfk^kLk6!SY}tMqCK(?tI_8MlXB(<OP0pUr$jtQN+6A2r
z431$aT&(*^M&HWr|G{1uP4pnLr{GFBC2U-O8gQf{c-IP{ZVKQ1cAgxyj2s(S332E}
zU?9k0+`=9$Dl*1=4Y(dJp^9M44m6dL$-<7~+L^9%R*ZoJT&}i2rpJm)6YMnP5=e4;
zv=q=9cu7*ddS+Z!++nn`WaP8M<mm>4#(t#A4zoL>orTnW`d1+=Gr}nbsQ&CNHolzF
zRvWkOy9L9A+Mw`h5fK71wUdj*A{1;fb8vV8@WBFkf*=FiAd<)$KIR1$rYv=$@>~2%
z+@VG8ILkl;-W;^`z{;<#g0AX^ife@KHSUTp#~)OJ;o<Z1?mo<x`?s(W&rr$soYEtv
zj?wqj^JX|u07Fh0K5fgf47-=Fy*h?&g&^lvU9Tu8JhKdYAcUS694w^z9qgOR^fnQ?
z;e`=ux(FJWS(Za%1m34J?tR;J_2gZ6;^Khm11nR&@-Lv8Thce~zgpO7)dUNHr@aSo
zGCy5r=eKR~9nkTE!7?1FN`XV_lMvc(Q%Hk;2B^fUCQ*WUcV>n^zx<2AVxP>EE>wZm
zOzf7<<E?DU$K6k?cS5kO%s8GqxO(e;C*dGnEdu`Koz*78D0QNSf8VDJm*VM0`G<`d
zQL2_b1z|W#A`*~ej*3?6>8RlRro2wVpvzBbP#>=vpy(6;bo`3W0|^4?$Z}GzAUo7T
zQ~b_wOn7f<d~c!#V<pBKf$2UaW%?&A1)ojOzatT6qBFQl;++*^6E^bh69SUR2cN$#
zM^s9x%MG#*0Dpb45vIRZ$51MmlN8<FX?EKeL7cf$Go5|AtH}96zz!cK0B=|30M5Z;
zQ^K+;gpJd$2USKptKt6aism@ZtCxRIA$dU;DE)1*BCL?-dgo4S`~Bi@W+%G!V#q|4
zfaH35um@gP{@ISJva-MBTUGomt?<-f+32c4PoUB-;^yVFW8T>I)8kumyC8S-oNd5#
z*}9zga~Qnf%$s$e+{9G=2k2|=TBrcX3BfRH1f!^gf>nPJ9&RD#IBr2`ub}>nLj=Fx
z`bM1jbu1FMpvakErs5j9mO6l(Yp9uh_x@tPdO*Jxi27QTl>1fGFrN?KPlBxzA{-lp
z4cvnMC!!%+8@w(?{6N++mItJBD#Jj0BWJ3pFwb~F%pkl;rl^=CS=p1sL55@@j6^LA
zI*?KMT*njV%3<{DZ9>4aMQalb+nWkp&`q)Odxb$+92VBS^G8`BII-xpXG^4K!COnG
z*Yut8+QWYeYam3>qJ$k4JoHh1{<^K4Qbk`qKR~Fe<<IT7gR3B}8a48iNT=P45D{zL
zmm2=~XuZb|GL5$o@|K^$uics=`2F#M5dlK2A?UMMxqz#hnxSkE0~a77dL0xGwoz12
zzbm7E&eA8V_+7IhN@N_6Va1SLD8Oh4?4`lr3fc5mMda(onInGu-KY?SAB1p7x)4J;
z2jZJd2_q<xmIrJ8zSX|(DsA0l-Tp$*s3+$3ZoSJomk}DE^BLK*78!up4C2}WoZ@iz
z{ZJTBKW5?Fo>cO(%iK-xQ%r2^2I?Ob!DvSsWlw<?IEmW=x1Fh9xt)$m9tPKDC<qyX
zFeUDX;Nj0uwe?}v)-;j1cTetc*?~dUL0ym+hL}+^Cbp1>0d&B%IQ$b)U$l1it>TUP
z!QKlIwJK4!xZvKogK>D%ewbB+K(=_4+2&`hEqWQr@avku={JD%uQe#|gLYYiV*s8x
zqmI0LaS(EjVuXRvcc9{hf*%WoCzX0o%<gz^0qgGJUxbp7pRd+Mw#<Dh8Sd^j<n=qP
z3cZ+rK2n)LS^XuGA^n6QmiJ>7QNyoc|7#&dbKLblm;yMlk0(!0oyk)%T!{QW{sU84
zR7YQsUK+}>IW(iy_~La;uSO{H0$<RZ+V_6i5gQZZ?_kfwL|#K!_=ve6Tw@}jWvmW6
zlhA|5Da1JL9t_$Ek}%Gq%tKwz^i%x}Ru(O!EMCf;2a~|Rqvp)WK2#`<Nyj3cE+S*|
zj}61b*^8+`4rs<B@EGupB{BUY^zW+=Kv<7Mog)nUjcHq$zA0M4xF-e%5ezPjPE2>U
zB1ixG=b!5m2LEM{yR%#P|Me+&+mdg*|K$b175@KZ)_(rQFh(3H6p9@H_C?wipZ(nN
zO^Fb?_Ey>cw;S!596Q>g)-;`D<kTdzlSwz<zTyR4&Mc639s$#WJc_}Z*UC3e95{K4
zF!KeT(Ae2nLb1b0cojyAh|y0`YYhuU(vz5|Rd2vkI0!)>^-Ve{XykL-mmGHbu01y`
zDfggrzS0=km~bf|HeZ3+RZG{^f$@|Ib}|WR|G0=qu56^qGvD_-oPL>0MNg)s>Ie2!
zZz1Ntmp4Pk8i7Ri>%~n9;;Emd&@ck*)RYYa&Za}X_QAy74>7`mj%<G&o{(R2SjZnR
zz!Da8!V+El^F1?B<LkvnPPl`C-VwC7#%+R>up~#p7;Irj#@9&7PSDL7;NzpFq<9kP
z*{3_;Er+E~v)IM{>OtzU@R5>~8Ob|((UXe0x{(BWB%H{E(I(rp>1e*T0K1giO(+hZ
zgN5`7Q-?h?!cX^J3rRhVar??Vn^`wbKiar-E=vD6A7MxSdF-^or{779VDs3OOa52W
z)CU0uSQ%xMoovIJJ;d}bV`YMDPk8-0t$>*OdV5V!;$5JxgL-R5>7j+3#fksHe0HDy
zogaDUHFlaT3xm%f{JBWApNTFBX~bEA17GaY9@@|^LeJfM1(&WWm-Xq2D}Megu5LMN
zj{S}a$8U;Iw{(C^ZopXqlS#{Sx-a20nucfYk=iOO3@zx(NsUPQgrS$1%}PS5MKUHF
zPQY1kP$&X&H6w9OgJ9zo5D-Y2S{+3u=hgQHBdgl3wplY;tn!X4lmAvJmfx@4uaE{3
zbb;rNn<O73&;nIC0ZwnxgWK^%I9VWZ?3ZwQ)8*8&t)}P7DXFJ23;%455}D8BQ*UR*
z8E?h%OJZtd5tZPzLoKMLWTdv+eeBTFxQ3w4ZsQ{ZG^@e*>BBC51JmJuBPn01Cc|=2
z1;PZ1jSCp|zPsyJrSi4&ZHQ5l4@rEO_hTnUn{>%5GYP4=5#iw}k2zdq0Y<m;k)tOY
z(6w-rpb3e=YxqITgRAGYi9ZX|8a50@_`!+sUiRtm2&NQSk_Fn@+GHqC;Bi3FJ5~3|
z?}!f<(Gt*lh;B)SvVi{LBCj+Q<?cr)kf&mb?h_Cmv#5>X<kf{ZjPm~~V_-E;$p@a`
zp|tkdgkYs#Jb!)*&jz^TdKFD1in<|?S#2P{*3(fvILz{ATD6G!c=gVmSE2wOwP31h
zQD$Fh>gjtAVRp#R0Hdec26{lX*MR!_r1ZVPzZ+qcnJD4EJ{6VG2-7}BaC;p^%kUr1
z1C9Pp0Rw^F(~Pf$bA!i+ml!?i78&`!uU*so?DFp?w_Mn9-(?NSbVD`Edj5oeRF?yj
zjvrR$Kjb#KHsN@X%_QH&;_ut4V{h_&HrueC*WYW+x;2-7fBSvU=HD;MW-KkNysHX+
zJ~Cc!BwR(mw|$^?ymml%qBCU0V77eJ`zn~!s!yLz!WDH2BbBYLLTJ}8{I6p{YcvxW
znbEFJ8ygxqi)IP{hZq+|p{fJjRtF>GH5hBI`RqSaivTn6=2@0PJ5^r<5KY|fQ8BT0
z&=J*FgHOH-2d~yl-S?@a-<o!Q_5c?5M#|0GaHHs2(3XXwW8CYbEUyQipQScRkr$TT
zqufp5a@pSFP?$Q`&}XATdj~*^Ak?aH0l+b;+fVFu6Rf7Y*w{?*pb9HcWCle44oZG`
zSR_iCmXI~~HpV&DXVV603@7J2ICJ*LF_5o0EAs=8;wF;=GoF!&iK)~h*n|n{=)~mp
z=n;%9-zWSX7@H}tZ>X-$m^FnP+n_{HU*-alFzPUJ^6OUb=<ENA1Ng)0&`6lqBQ4ws
zJHOf$=(u&x-h$7xXmjtxV<AJvw#^mY64B?@BlE5&Ccb1S`Ln|X{Vm31j?bk-J>qPn
zqXGi;>6#EvZ*dU_(m(I2^V%-*at|jQIyj+<BZBiA2xmlm4mV^2k3_wV6VMP2>-Bpu
zmbwp+`jN^7-*#iLWZy5d&cnz#Cy9O#f`a$lLAjsME9q!;S=lV(Eksx!P{Ce*wCC5(
zdsF)+m1{xIiO_M8XS~KrVXY)I`1sJ8U2!_R&&N!?$+X_axoB8M9=6+|r~G^hAuEi^
z#-GDLb`A0N_CCC_DI<MD<JspcL?|y~PEX+N7zjYQ&Vl95J%*cGSBEE-MimQDn}Qa*
zI^5`W6~SH?>fnx-(;*%;AvJek@a)upt)6Dsc`2=T2M<iXKs7s3b$X0S%i2FFy=Enu
z+PCpYl{dS1Yr1B&*eXe0J~L+loSL%5Z<-vd9Gn{p;HkL~yP;@dMXx<KU0<dIb3Q@s
zgv04_``5|2oFe_abbT#S&$UBjX}J-R=X2|RZd!v0>NV9YPS%XRhO0NKpL?#dciIH`
zEwebq<5?bDAs8bK`n3&E8Cw^pM!l8=>(GfzChCy><%rOt&@n#K0!!FFgffDz7EC{p
z6=2Z7tkA_VoRQRZQ<RcFSH>MnVJjgFu7eAZeD;$n{?nUbL=JpI9YN<HjimfF1>WN8
zjr7v{gXq9~xKxsF@Y5T}t4-Q@ci&;u-xlQtQD1gZ@9^?AC+-kT(1Zcmzkv1+tWb+b
z8W^VK_wPSa)p7U3w#!}mh3mS`=fsy1d-x5$gp;t>Ual|V&AW=hqdMfQtEjoiO@w<*
z8&-Q6iZgt(UelbPO7_U&h=x7cbxc#gSsIU}xM+!Wm{q22%;2xynX=N-Jtz8nOxWb}
zp?`^m@{-nNhAcFIz&1>yi#m>n!zD(<156~%#2iCE!0}YRp8i^z%)2d4D+?AIY%M-2
zPOa;5Xm}=^dqQvb=Tg4$;ym)=fuDf`^VkBZRtMrFI)h)X!{}BW_M@hlgY4_OR)>6O
zO}eyx1qc(98IjxX*VADrq+)g8`nw9t_QHrB!wfNfJ;6tZZ0*kep+-1|O~s*Xq@h55
zL?oC@_x$lYpu+Fb)w_Q}sq2(cPBab<Job&>DRF~d{l~hALNJir0(3HCj{MN$Vi02j
zUDt^$ZICHXe0)Hip;mj1@d*nz{dwiefuI_-!T1LY($pY>+3`-Tm`=1CK4?uTwMdVt
z14s_$#p4tYG1!w%^4)!ttV@322O8^Uwg)iI<#yl>Ta1NlI`~uO%9Xt?zEcsBuB|W%
z!{^4pgk6oAtp;80$HeSbgRp({CRaRC;jf+K$dFR-Nf+Nr7s8zIwyW}i-qv+()U~Du
zK6$9Tu|y>L<$w&Z8}G>fnseXED`UMrd1lUiyTKCP;#>(1`5oHokRln^2xG&I(PfH%
zi*+>Z_{}xx=~1b-e0}CghFhF!Y?oi4D<pck<KG$>j(GG+2qp}JVJ-<O`0tHK*RO!6
zdDXxm26c~LQ#I|Z!%Fdt@m4`|iyHMCzZQL1<SVi0{vOm_OibU7>v=51auH_OH8Z<*
z?b5#%CE=XWG3G5~D1Z(04-3=kjiQe5XLX?B;ub^+H$O30gC#$E_69L=1B^}ZE0Uah
z_Qb&+N21`t3raDam>U7OJ_AP=WVjj^4*)$%3{J=hOpN>v5s>_gxJ*GjU>G4QR+rpM
zb!oaLk_aCEa{uFp4;Sp?C*&m;dS5*3dhLc@vKd2aTqMAP%}$cBla8+K+1FO*$PD%C
z*RRL6&ch;h{P3&66|Y@8cXH_zvFQU5&$u003T3xkX|o3Le1bIG80!UULC>HB!yLb|
z747Mw+t>Wk#U-gt8Sd4uVO^laAS*64r=4Jxd=wB=`fKqMw5x5Gu`s~#i?W!>YJnLw
z6)Ss_t`I4aNKCim7c~p)OcULATl6rCw@$F=ReGcU<ikiMGII;;5n9*<AI_H&{cmhL
z1MDR(x5$7HI?rk|JE}qA753(pzj-tGOazvCoOlvJ02lkYyU`yF3HBw#tMo8MNCrkE
zL5F-4a=8Mhlk5i$B*X4s{_*2+US2sYz*BE;Rcv^d8~qxo5mfD#>{3jAbCYmx_^0+0
zv(uzT!dNL;3c8h~3?L-$?&Ig@M~Q(K_FayPdjN%Um;?z<@k!0@y;k#>d`kT2jIDVw
zt@3m4)m00{!kjA9G(97Cm=6SIor7v(fBw8nQbxKWR$23q<+?U&7~uIx%3%5AEW(0=
zZ;sMgXBOVr{wLD?uYj-Gjp@t{%zFmG6SjcTPeXFW+-YUJhk)7_{hQ7Ui)~2>Z+8TE
z306vDwjmU8NOU#CydC^5MEUJ=C?rA(IKv%>v^-~KZvIo+%+d#{&=K;9eWy*7UQ)I8
z7gqQxaoB#%AFmdRd}Ve7SU-Bp6ECk9T+j{vi1yeL`DDbQu%=Uh;hh8~Is&r4w&hf5
zv>q`6LgB*D2#Nsa=<&=RE$9Z-RaI~6m+Ksd*ve)`sKi7U&U2Pkr`X5>+>C^<5BZRo
z<lmA_QdA6@ZfX<YCj6T*Q6)<4*VEHImM5=}l%Y?^X~%sFky%Xwe;q=HipTNOrTRz1
zY?gT#(#z}G#i!yQPDa(JO+OcZ?#}-_=l-b3{jAi4hQ|?0$)yvvhiLH<066wg1|%mx
z?jq)-@!XpPsO`Ln0b<-5mOi&(LA}eqxBL1=jFVqg$fydeaxn0)f&{2#E|cYZ?dN~q
z9tk$aSuGcsn3(j_8JT;G>bx3Kh0c|4PHc3)^hM{|+XDrBBTi3~QhQ4=WKedD<`C7q
zj@+?ZiBmNHKKnO3!%G(rD_F!cstzbgZ}`wwBT$&qF$SO4t!rd_NNnV`>w&1nq(&Ur
zlqlh)VPEp{Yp9q6O1W0L*pkjgnkb%&<QjT%Eb{nH0l2u;DFl>JUaE`2eDF1`k(tY@
zK|YxJ1nh#{yKDqN`1rjpq;Kv3j+n1i)G<@)S)K{Dt0lh~=rPAw9$LC~$dYfEetUpG
zHU~e=@}z^%GJ|y(lN>?Q;6%-Uh>39*WUx4-l0nGDEdal6!<nxt-`q+>%t?!8j2>ZM
zvU5N0Zos~MbgPW`GcqyUiCOYL0c{%>XUa>796PE>CI!9c<vTQOSet->7p`s(om<rT
z9o72V#i=@K6)NYLjepfLlt_7s$GN~*7HO${pG*79OZl4P(>+${QS!=V)TwF~4hWP3
zO(6<z-@YYC11?iUL0`d9Ytj^X59g=sL61o<y-#>>6XxWuqlhBM+K-iE=7m+G1cDJI
z2H7a#qZC?Jvxn;zf?`m}^m-W|ov@SK0-10nc~Vu{+dRS3``b;1rm()Fj%j?MecXG0
z)ck(dHiObCYeK8vN$Y1wtSYl+^N)7ut++?6Ym?d#V7%=8&p%3F80_#MH&cvZ5Q9qS
zz)wR_*qP3vsazVc0IBHd{sWUuZ{;e|c1L`DBN|N}*v>A1TO1Wztz!8pCniqq?s<Kl
z8by9&^KRtYUUhYiYGI>ZhVe>ctbC38L1Qf1r+plsgp8v{N>tU@6u+Mc$Ds9jPxz;k
zFdG-u+VFPt?vP?#%?N<fbGym@?e{;GKC)WXpp*m)8$Tl^{$N%bVIj}|g@;=8-66|p
z1!832GSV8XiY=ga?V<23bv&kxwGtEzywk+Pa~2mG$Z41j;l%_mVT*8xpb$?i!nb=1
z*#Q$pNqcjzukIBn9G<!CVM#dtV25r2#d(qLBh-5B!rDnZV9OM$%u^p9{%JRq8T%X6
z;0V^~Dmu?+O7hu+%^&{kUe`^WUsxzIW4uJ(;(D?Ls+8a0F&O&tZpEx`|9iD5DPhau
zV)jYe_It4ZM+om1yd_^yRhT1g-@NfZSNe})jFAwO7npYb6~fDer(jGar?OW{!!PO5
z<0HbQv&>TdW4(>r?oW&2c*+qf2Js-h^3`JcT*duzA2xz&2geEjc?$UNA(7IBYauIN
z&v?uWKiYK4Xk)=RMKxe@_jY|Irt<-Q02*8&Nbx|j>Z7NKrxE!Xz|Q+}=aTb}C&w`T
zVbdp9I()O(1>*}`A&@S@aIS(uQvp3=Fo3WaBRdk0pdujik*cc^V%f6NgbuVAg0wE`
zGHvow3Q5okI-Mc(I;A`OD6N?Bz+tNeLk%(V-6l@|yk&HKkRjRGEu~iH^<TVr0WtUJ
zks}`@W|~!QNP>mWX<5QN*gg{R{4KslV^jK6F0nMVaBEvx(h1`&&WuL3Ebl$?aT35E
zv*ib5LpC%BI8kkQKGzWVvNM8=GaDCOsy|T2*gi@5GdOnVrn+mOCpbXDhrRwx|DUI3
zq7bc@5!mb2Wi-<owAV2?4sMb1|Bb-$w1y*9(<9Udh}e5Vq~ZOd!>%7jXmc?0jVxe^
z2)%X0x(v9~eV7_tmg6TKwba<YeyVLt|JQ%26H|JkzzPY&-<0VxV@7lsw%^}xFxQ3r
zLsC#Ui>jPC>jj5U+Si$RSGV1Ri~st{^YYGRf<^;mgZLXR;oO+S!|0CH4+k(Oy#F&I
z_*C1eUQ%*5%6u5et1#eBR!v`avh@nvzmR;&Y1gO!1(GY3cMy1-(gs!bExl%o6P~|D
z&^we`DCNs(M<5^IL5QzD2R);#!fw`OU}(rnYalSJk!vnZ$BaLy^?LhWPdMg?CP|r^
zix=;tEn&j&{vZKTq2kGFHy{(I3@r=()fd2cI6w$0D5&ML-Ff%)iK&Aqv+bw9ovFx0
z@5@+HdV>aPHv4@0#*A(}D=-)nD?4fRk&=bY-)f&V*xq}P{U0><YwB7wsKyWxKZNN3
z5GBAxfeRcSc*LI6Tv$W5rE199u3OK15{l%+SFx}Hwxxjr8zW$|;>ls0fA&Ax`|_}y
z*S6h<Wms4tWJ)1rt`to)7&3$=MVe8BCXJeFu@D-pLKG6BInDE6Nl8*^E)5!JPV?Ne
z&#SV&_ua>_hvPfmy}xe{&tHamp5OEP-S>50*Lj}Tc~Mz|>?Yysb@p3^Wc3CXJ~Yeg
z`kisN71XX7L-5w^=sCTep;9_l)>*NU)3qE+G}Y36PhRaL6^{;F#_^-$^78g6Z{$*u
z({5U~ZXW@1@Fn|tnS*d)sNq5pcJxsd6K2b`ZXFvZXBhd7fk7((H~I<>O8>*%O*~pT
z9oP&-DE_D=7G{;lacGz(RgquFtof?~&~gXqUucoq6Nljo`Zf?z?RRicQLwU#2b}#3
z(wd84zR3^`WGbMu-XbOWW;ijF-dVfvuz~Txlt#7{D*_=9p6H#0p#B9mKB;}66G(%~
zVh8AInPcYW(b`_wcV2*3ZN&y%33is+j11F&S~ep9vRPh@xnfuT<k&l-#o9A|A`r}#
z@2T~zI2P?siCDCd=kQ4k)?W2b{dUTDUebVyW6k&7vGO3i$s3e~W2Z6>Fi(^l=2?9z
zTGsnXA_dnIMNKqhQI?CV2uteNiB>{I>W)J()M}PCw7C`QhD|{DS@)*)!3~J)ut)ri
zRUb;QKW;u^^}U=%YN{;?*OnT?5m17vzX%NanUMtzgB$bvZrr#*rmNn&E{6d!4YedT
zbv~zf02l?Ycq7Lw7t}R~6#J;(7e7Ex3OP<6#65IY^`Uum$%VyDgJ1KOYgI>tZha$K
z9XPjs)1!4CA27nDK^JX)tUX${Y#7*bFZeOF%S-sfwa2@?hJl+}U{kireYo@z7fSL|
zvOx(HSrAB!Rx!LDq9KdG!{IGze7gLeN!qlw3`s4EnWm#kOWoYByn^!`wb=sNK+ETd
zg4Zvii<p{oP+RP<?KhBFX6#gV8}HMMnx%NLy!achWjD6ZG_pEgu_BAj5TJvHa?>~Y
z0P)SO4!@LLvroR*GcfpS>#Eh$0@{8BvlVa!*Yb)?JAgxeMgo>o)e(`!sbpXfVsYcL
zvJui_8+0DQARz?7O$I(3Wb0*)bGH>Ac--9F-2Ybr7l8`6DxxXxh|DqYgL^d;`x;-2
z&H6EW#Hz2cvrAr8RC2mPxyem(#=U`TTTxkA`DV}a=g$dt2f`CLJ$Um)L_JuYMRH1^
zAoLbCRQq*HQ1zq88pimU)w3U6JF<iEd;Nre#0@NxB1jm?7=ZevZ@IahKxIS*wjfJY
zp+~y6IsMSlqeTG3dI3jYPrQ3E_reHE?UsHM#%_zZf4lkCDo{Ey`I^7~Z#UonY=2~9
zZJDkxL{1-cMki|-r`v=3K<ioy8n6ps=Ag3=geqR?+SGIjR&$-s(SRcn<O%`KV>3Yh
zu%bpzyB~W}nByaC%E#YbD0@wgrLVvzUrSt~%$TlqcN2&by-$xKV)78L79+jIYvCE9
zFo5gr)4bjei4-2zb-`b%iRjwCJ?ctOkSMqgG#AX9W-PQP{k9;f#BmzOHU3r&!AJ`f
z7002(HVlAOEna0`6TN(uj(TSL@x5JIlR6aUW*=GoO8BvsufKCy*_z|Z5&gL~$EC*g
z^a65r&*ZAzpO8_p<Nf{v2P!@<n0SNN@>b^2f9X8K)$nStre<j#Z|=Ks?Z%D78DQWi
zOqc1${<A&3f9blSr4Y1B#|6Tzd-v|~fImbShX>BSf`Wp%^XAR7u%5V6h(!X^tLL6`
zDM0NQjSPcKD9{_a*`yp)OO;6$M+*$kz+Z8D-Ci6<j5}VVe>lZWhwGnXAy83soLHv3
z1SOCXlhz$1zaeDhg#Ph{k3WfWkN8=}*S2MzFME9&4sO~vzZz+1JVL4SG(JB5%=cIR
z{udx8O9W1VivFr9-{c1|Zmg*dWniI{svD=Al`z7gMO`N0sl$h{p3suK)9jlIVBMF1
z?B2to1$G6%P$AB^k83c9fwkSu@gFy&{-`}Z^?m^czgk^w12mZrP3n0Ghi?z{aQ&=Q
zLsJI{O6uDhrfauuJ&GeW5dw-Gun-~B2?XMpZ%9p)z@2GcOQGOIuX~H98Q-A;B=#lF
zwbP(tWxjs>D%tlH<q`Y^(JEhIV+3=|*y3L&e<A%LeLjliBq52@fBoS!jO)~h7@M-a
z33x*POWO38>_QipC};y>;E&aw{8dIVeHa$GS|O+VhNr1WScN$7Quz7*kKCO^-ctv*
zEINs16qQ!%KN$%9sRc-}4Q+-tbym?&7oP9yYFQ#7lTs}t;~Ib%qb(cIutXj2|9m|L
z$QDW(mr#d1+*3CKi+&{uMN~Lse=<<k+~Wp43qIFAwv+}M;FYe*wO4cZ@nswwp~x$#
z;l`sELXQ@(q9+jX%~9?L0g9pw1hfV)oO@`aKq3tLXJx!$F~q%3Nr9o@>o`(b1IJHS
zg=E-3PQ32@I?Z@y6EZjy3jTEUB5J#=emsQ-Y@3o4+Wd*YMOuGVasAXU-1xePg{=WZ
zK#bfYQ9tBNn*{|w!^kF19mhd2Vo$G6&FK0=Y*SC*(#lV@p}TR+6u^b?6@L68(6I{i
z;F7i<U<-L&LuGyfi3iS|AVkJ3YuE0H`(k<<nUvl9Yf~FU*?vay+FHvbG9`$C%UY5D
z-5e~_UMO{PTKi^wDMdZPC$kgvP`W++iW3LbVaTFSBy?`VwV_%oMNH&q!EA^<(ukKN
zwj-CWQ2P#ac9)FPw@cSX#zLJ*`!o+ItlDLH6gO5Y0R8zhSf}xSAQz7&K&vrE3zs>g
zX+a+$o;v4P?$HPCuI<kIlG2v>DX6$VXrYRZyV>jot!1xTgTJU|lXaMt;!A3MfXU!%
z|8P(XCqN`CNzX{)q>KIFZ<!Qa96!KM;q`M`*-IVYumu(?7*2C{fB3eItk7HpJYIlK
z5y&W}3&rbKp6OaQ;HmFpYG%fhJ=f;veUcAT__-h%KNb+_Gw~8#@(+J3#X?2(s6NtT
zlM>qx4>o$GCt$0Dpk^tNEtvclM!K8^IfPBTR^8fewM7B+u0~k8U>~tI%0E>)uV~>z
zY)8?G{9ES(IGs_Xt*guJWjFQPYi=IdF+&siP-rvsQ<CP_rv5#^ls*(ET}dzU-hC(M
zO#Zu5&~@xQN)(%sv|W3>XzIt0vtYwgQ&veY(73%SQ!&74^9`SnnX2e<ibi*-%rR-{
zTI0)vY}x<(n3ca;ZAnKGZP=RASocDI>YtbWx%8(!);`wBV;2wO|LQ;P|09v1>;Omu
ziKo{@Is+2*<Mms(BUjd;y-8~H$G(7^*P0}Az@eq!h3D_IW=-w>hs3<LqFF3DCXb$e
z#cHhir>V?wTiBgb|EeF~J4@6Sg$P_5yl$`lfnQV>nvuLw30>%L;o)-6T6{^HY6_qd
zVR(8K3J^Fr+0!;f{hIKM>-clkLIp1!pO3%HCY1@)DI0h0+*#C!OG`h8H!1`bv;zd3
z`tV9LY9oE}2O(Sj8Q0-dbuspQSicfer08tfxgO284Y{E<dOW{?eBp9<PS%O^`oB6k
z`Ilxo{}XSfev=S<WCxiK6uhQ3(bGj-2=(NK6mjMn+5rN|Qy4xK`|s2A4fH4>jd)4C
z%DZ=)xVZKLMfyy;SV3s=`8a*p%vCf~c^Ud8N&Iw6ocT&>Ook-++?&Ak0F*7p=`fEM
z2w2S2Fb=3AeaXNyK|{A^@=bPI96Wq-8d~3r&%D)?0m6J2T`ucnKBFJt826WyBGh|3
z(5P9dKQ(oyR(wYCp8F3U1_HfMb4LS281gKAv@!s^y~o`gmo^qk6bZxw3Lex)M9%nR
z@r8jLFw93s)9F3|IF&$NrqVWVDpo2qFZ?m98~`a2FCH1FODX_^k%8F3)%MCXTmbe}
z)UgTRQ$1%C<n1w-9|Hd+5f-|IY03yTW%O{aRO?hI-`%%Aon04Bq0ujav<JU`f2cJA
zuq%KaZW$U#!cFF5tgQR_T~~2(8u8j*NSnMHjGztEtJhQ}n7tCJLaENx1Db7~L<cl1
zH|^OBv|s;Bbc&S<l=hzvhJD+~Lg0*B1*LZGOw6yR+gGOY<}5XHvj=VQ#nx5<$r!~a
z#OjQ84m83(5@o$K^(MIUxJDec5Gi?Z>$v>&*I#pUMKYII+cgWm<7LNnnfdcnzCL}`
zV$Pf-!p|npT<qQ!X9Rod2Lx(!!~>op$H8&!?ExjO*<@mpvn0*{$4>6O`)%Z|4Gsz7
z!08?O_yroV5|%oAk$p3^I=zBK@O6{W+!N|_8NDO$8$0he1dGNCepzH1I{w{p{8d>h
zL87w2+RHKL<eO=N!93m8;$XcaQj_n&h|gBbuR;q;NiRB*LI4%EcHv3&0R=teL5>SD
zpLN_NPPFw|xFb!bHX0i{vN;ddo%;RxdvG6+8z|vc@yMWigOUWWBY{NCPS_!B*CS;g
z6_o(fNnVIbtq-twvlMg49dHNpJh&Bdt~4k9@)*3^9foqWuXn@fYT^|zBVKyn9f;M&
zAkR?&7Slir4feRv-w0;`3V-Y7%>pF&{(x7AB}Hb&8<7XhMZqX;S5wT?-3s_3dNpo3
zb$<gIK8{YE+u~_xGNJR;;{^mA2Wc3{%`xc%2e28A!*yP7Th3H4tzG!&jrtyXW>e6c
z)cD|Yd{50bmMrMLo<km_j?DBkB-R$7v^B9G$*2%;5{T6Y3za8}O2$(`M2u6AzLCR|
z#Y3<F_iZL{3i_IN;-#l9lp(tGAF`MKm;b2z2md@w)sew@`zB~VjOu<<tC?IA429ys
zB|ji{+9Dz%ax!M>9~pM(JS(UEobG40^Qy>(4I55c{QbWf|A5DkTx;T0tMCthl+?Vs
zthf;CC<fk))+yCaBNeIkN!*+8DYdDSKkwAy=CtfAA$Nd7&*=N2VEj9)R6e+8juqOw
zV~`g5zkE4mD7#rD31HXk=c{HkHNWyL!RVK@6X^l6jzVx9_n=4IcXsm4clVvsPq+Q{
zaRmu82|m<rpJTP<6@H2u8)JKgz;qbaq-vrFkL{gGWtH_}XC?!Rq5>3j!dVrs$@gM7
z9gA;k%4qFF7n#<HcxYeMsr#Rt4}s;ze1R&7P*N0~*)~QP;RIhovP9(YpZfLPF{h8D
zCqbqQRqzoHoF((<lWD7iuxK<Li@pU`G8i<h4XWU1i`Ekp94)y&2f+5p^6u0*$tb?g
zJFSxxbh2dF2YtcW*yf@@nrX2{23BkQ#Bff$oZJm|T@|T8)}>Krn)zU_J6a+5n(KHt
z=U&hF`IREe7yaNAx61bpL*t{L_36{6OM3mM86)_FHltdsRGcaz8OrRjGm=?ZSxd~{
z>{dy%s;aX4p6AQIBfOTS4Eha&gPW$_QNgfm(GTGZpEJBa<>YMH!M}Fx8}D(n!p+Og
z$<2*<85J4Xw()096~v-Gy&A(sK6!uo_;KqFemJ^%SL3$&S%bpH2d!ED^G${EgI7dO
zfH_m}vqqO+#LFy~6*`XteK4gWi_`X_cPXSJyADr9IH!wm`<(`ea@x@eF~e~@Djuj#
z)N!9DTqB@m##)KG&n|H0kAHYPtcv|yXMwmqhK&QPQ6OWOxFKZpielm(&Rj?j;3oYN
zvcB(mrKq8e{`qSsR&{Xs8SbGx7Uv}y{?o~iCM6GOS`6c=UIIX-fjpLXr!JIHe2aIQ
zv2_ug-f+hu&MbtWC)nBf*K60V9WQE``l+WM0$)4Dt%<ATxK%v$Xm{T`b0pms;KwF@
zetC~x@DIu-)u(P&z$b$_R?9HX1zjLAsW+m3kDj{UPAwnVT7Iq~#`qlTbRWn5upG8-
zRJ9YYbj7{iLFe@J)C+;eTK~G`=T&~6qnfVoQb0tN1XNOH0Y7gv<6!sDdVM%>l$>Sj
zX0wA>QDn>3tsxoxnafEQ0y_zXB$&$&s{Or+^d)B}gS+0m=*QA%xas=dZi4P-yoNdA
zC>b{uubo=9>Uy1r6aDXC9-qRD={)Yum%qC@>>7GjB+oQ<xz8^scnpRO9&mk7Y2jJP
zy$PTEacbXVLQaoZEpNwBb&yOmlK}$#uJUu$ZS>5WW^95)p}pxRZdCgV))y$cU5P)x
z@}Sc$pQ%6pQ%P5Ddh_}b3<PP0K&Av)-(84)J1hyM+4kY*&u`8yaT?HO4to)BOG+4r
zm<_dK*@#&dV9ZwN5S0vbzg<N<Q@;_QYmg-U76pC?+MWhEI`#@?o<}ogBCMInF`Y;!
z2ySr7sUVdhC;1zR(o>J@o-?oBkB*u&ZFz~lyM6KCalA3ihP>e^Pu{xqqg%1)XOMY>
z`XBKCB@_y0lqE@zzy$z;4urYq(p`>_*i(c5_4yn@G#!9%nV0<3oeA278-uD|wNNwB
zya4(35{QQnmbwi9GE>J^xyQ}2eB0BEMx4|tNRWZhErH66vYrIkOB}>i6QFi!?$q1W
zE{}aQ%X{^y!=Hgh?1@+3{U&Gg7mT5L$466{ny{mw#9J<~7ip>zTu4c>gmu)6@DcY7
zt)p6~4&H2;I+2{#A<$5RWr;Z!R9jQzhm&ZU7aEK59SbQti!R)K`ibz}hSK>7psmvq
z%b*b>l>uPQ5;I^1EPH<*bB{9aJH>&KC^1JI=g>T{0=5-#FLlnGxuuCZQK+PM9)GgJ
z8Eu#mM!clK8Wjp0Q+IzuRO8BIM3ur2)hKQmK%lp7-;R1-xp^(5oZiBjOKjhgC`_%8
zWLXj6(6^`+A{Ipj{?$!lq|#QFcwa=4N(C0DTc=9Dr;?Uj5udnEa~9*N2RaWQ!O?NA
z=Jily!^$XxO{)fn+sdN=c!fCyZFU1^hAL>U=B!muH*=0a5b2r6DE<S710-$wGn1i?
zP=Kndtts|!JXR981U{K%%v0dl(%uWsT=49R(PiZE;=6{C&<meXO(gFq<ZQP>?H#aY
zaR#Srks~wqJCO)nTwK&APv$~?d@~se*`s8B3cVGdM*PB-V+JB<BtfHBK+#!}0`#Fp
zlhgeb5e=|Bi5MICE$IF!yYHdD{q^>3jNOna0jWj)j9&$@yx5K6_Yjv!r5H(n3qexN
z)!Y}mbEG)j0h<@gtQcJAt*vIzQM5pC^Cve|_nS8dm8H&o!h&YG`Zdbx$>@WiNguJR
z+HlL|a5(8P8JiOTpC9tLnDDmIvfNb2_fF2oo~FH8PtZKM2c*$PE(q6_@oC)2;qd#h
zh%fZpj?8++>V&QK5K5ipL;vJ_ur&!>V16}62UuSTSaUX>z1P|I+$Kk=pCz1ioys4)
z0y6KdBl+KZdOk<d1)XfMli|8jkkJ;%Ie0OY1~hUCn8dV=aEJ@*;Lt}KgSVu8BKHNz
z${`qW{L^<fvp+5^W_mR?jV4+=-t|)wp`Xb0_9hj4q$A?BCy!UqqnpjE&N1$lMjEx7
z+gAmd$Xxwy>G(>@pK}g@eTT#L921GLIe!uW%)6oJ=N04cJtbo<*o=f1k3QLTRax=f
z&Zx_2mJ(xj0Xa@rHMWn>DNbF#7LZ5XkGjU4$yWOTRVwVk(b0*9PMSu92k*f*>ra$b
zD(K&!n&Vw&=KWx5&n#Dz^EZVYv{_GT<RM`&kn9AZ*@Y}G=4#IV4ifk?c?JWBp-abM
zyT#OXtBwnS|0msHFm&>C_*CrM-KdMK2o~>qy%xMja=HlxY>C@((G$>Ij^oZW;{d<M
zZCI6f987r$nhAR0Pj&)HKNxm&hWZfSOrvMWRRmW|QwC%{6BiGrpf$yyBxHpY|5WsO
z8f0?%-Qh5j+rdLCBnwfdkeqqJrc8M7D9KCsW0zcnCjj0Yn$bYgm=WZVnHhu+7{*XF
zs8{DyqS9yx;wsJfi2_Kef2swl6~a-ae1Sj(LMl-7wW8Cwqz9=C6h^$UXb`sa%c9(X
zjBI?z+Vu8>vQ5Sjr|o5?E6*z{-{oZnB|^<l%~9n0gx&q2Dh&6Vu7&t+bc@c2*gF+`
z<j&-*NZyzh5U`Q%F*!BBGVdumcaD(^7J>XZV#^lD4{_s8phhHrA)5aQwwlGFeCka$
zubp1KaL&AW&;f-Op#%7DI40dMUg;+kEUK*VsWum8F2Kx5j&*hRg3VjD1Z%W|{NZ#l
zoqDUMha-h*B|rd?&H>X`O2hmAt^^bu{+l^<nJEkGK7(O4srnVx7KSk()aeG`%q}rS
za$O4IoIsb>1jw$ofa}B|@Lwgvcpju&m>{sDF)j?>P!<u!E2pn;GsvxQ+%}qTQ-Bhh
zM+Oeh`7pEa12a?c&)F@hc7!BgUB7?-{(I#w!7<TU${mPP<loq4$;kHKs_k%h&2Hwb
z(3va2DQOq~;<lI7#^sBC)|(&BAvZ&xoPHv(f@|N9%c&N6%}PdQAM+BWgW*3XjR&Nq
zPZrMnMYFli;&KnkUGtN#h@7f~Kl4ANrl=e$U&t)h-^tG(o}Ub~Tz?qNk4Ty6p!tNZ
zo99cWo<e{yws1H$h5k-3z4^&lPWm>ut=GPxfKn@*dG*xP5AH6<56-JT*$&;rwQqfx
z_~Xq9)riGQBMjoBp;7u;$P3#4Az82drJCr({A7|4p>n@x-gVA^RJZ8nr+tT0?vt7k
z{8azp@f?sYzkL^5+LFf3ag!2d;)YznKEN1PWw^fMh$A?5Z_Y<F1X0WMKYwkAfp7m2
zI}^ClQId@y07Sz87y;=p=p}O7ra@Zp2q{zinan9~L8a2D2uli*v?6y@!WY8vh0NrH
zV(?Uv=d}6NUnnVX25vm@Q%G?97O#lvyt`TTo6O$|{e74AuKa;#e3Crh08xZO)1+|!
zXA<qE^wsNp{H3o~PK0ZPVtLXS6SfqasoxC{+{_Ja)Op+<%0gh@%8zjbx(|{2L~#8~
zp`A9b3z*i4#H80NZFE0!i~>~4w?7(JCB{6#lpUm3yS+3mRkt1aJG;#4cY?FSMeJyA
zxCTIJsn#Y)zlT#l7>8ixzkR;2!91%%7|4V8ZSwch`i$~pZY~XbBx#=nr<6moX7JD2
z;9?Hjp?Xvdp|CI`{*2mWLB}nfdl|@32p%n&pacJ@Ju`J745_Zx->Tt8uSUfXz(jcZ
zE1lQEWs#R1T{nbcu}h{n8OFvB-<{$RdNJAMvfp>40T}T5t1EIn<cP6sQ%{Al@gZ_^
zI2sDUGW8(Ih!6sgAuxviWbzn?m*opt?ZONI>Jb0{W?B4m+il$7`%5*Vwf-=)@G595
z0>I~o)VBqcT<p?+`UI5al0yxPArN|N0~^THLO9(~roF2(S&1gR!MHI-;pYlCEvbD~
z1c)>IHx(f0HLuH<lLB7c8@f=m7;KWEX>RxVwMlVAeVwT9jzigL$iIqB50yTF4!nM2
z;HP+GpwgHV&p)FSmPmbYI%-9p0N&#SzQsyB3mijBKrkvF<4^u^h1`Hz1Pv~uyY?bv
zA#)cjSYWX!;02@{kbZ5X$-G7WWnq}ivr^K|3McpG39%X=H4GkMvDg#~Wlaetbrnsh
zj;1sAG@7NWD<D%Pzyr;PhiSSRj;B6Uj)y#8NwWj~@O1UqsiCHh8-qNdT5HDP7#ov^
zFH~N!x@`al@deoR`thyX2t>~xGM-&UXBh#1;M=?c_HiT8<>?Bz)I(~%utiWohODkg
z`MMWus2vij8Ogghoy&U?ijw0xeiWk;Z{mwBZV_ax379_Dst151cwQM0e5o{u1a)5%
zJOWD*Y1hdN<8IC4Wuk|cf-#P%`y9as@1(%&8xz)?X_l}(FJ=SNFf2TGmV0X-pudY-
zCe66&qzp^zAMq<~4a6PPdit5CQiK`t%HuVOO#zouq@vWFgCp`h`Hc#Hf2+5GsSq?e
zwk}L|i>Bm{esHi0jQeN$%lYP{F1Wjvx&3pSTWXMng%6RlN|kBK72fhgqrU_!r67u|
zzYtMW2<QZ|C3&)5#8*?=xM~%yj+@4x5*Chj_$6#?XD@GhEd$F><y$D>)-YtG_b3Yi
zXyI2MrsRoR1_(@S?~Pi0^<5|8gu+%%>ulDT-@&-+zUwc4tvF#8ixsgC#f?=0jyPSF
zE(r`x<OrXKe|n$uVXnm-r{_gT-#7ORrCs8ZDB@x4zSf26JT<;0C>W!Vk5XDpI5z4E
zjq~HkQHtPDM+y|k`{ted8^39sAyk{YjE&77ONWBYP8d~^@*4G|YEOz*IMVdcTmN<{
zxXi^3xCnP68eM}U^8ywbP$=X5KT$Kr@hk16wY=ewyU@7|ysHp#C>s9s3itkwqsm|P
zek=u0vXe&GqN17Fd!mQ^N$58DN~K<r$=408f9)T~m~B<okCrq(mip28Xw@&j{=RS_
z8~>6wzp&-*Nfy3om9c$gfpqD*mi3&f&u_ANTAh8Kxo$jCOQ6eAs4nxo^GemrH?0<S
zA=zm>Fn{e|msma?E$v+3RlW9Owz<4KOXonVP`FB8uadlduy0F;o}`lI1owUC*z^f8
zj?>*mlZf4myEIr6tHOUOZ`#B&`85x1nnbO4AD%OLH;x^il)U{*-opPHpVM_3iKD2l
z&d$n8Q)7M)p1A21?9+^QSz;d_w6L&{o_rEcvI&#G`tHMGS4HyByPaI#dQR|RTQ{QF
z^LVRz@o_WXkuT>4CcfhfUnh~gSQL$IXP2t!z=*B7;j)ZJbm9c-vnFLqAh5>&(VNNx
zpfa8zpz*5d0b?p}G>k1j=LzW`z0`%L89#w}<1RFIEh#Q8?s~g=d|T>3N~h4S0A7Cn
zJgsVS78=?brAU+MM$vdSaG-QXwFV@*?#}OJv>6RqsGD^#o%I^uy6>@A!pjBDNMkp$
zCEm3(1Xe2m=k2{-f11HpMje()oY(kps+h{9`{+T*<N|GyD7lcv*It=dhl1l4Y)iN-
zznEn0^(rwyDWN6a{eGQTyBXAwV(kl@zKB6Ws{<AgAI48);&Q}jznt@N005RkO5*PA
z?Y-B_!wf}M1jb#JT?`JLs|kdx;Vy0#w2+GsT5TU$e|u<xOUXoau7kNWw;)5>iP0aC
z8+i?x`!2!tN7{oMPpq;fm3Aa3&jUfzjhuLM;nuQ_tF9^Bh~1xuqrQ7Le@ZI%QhrUJ
zDv_1}3=@);m6cUC-{kt|?D-qb#l(6(_Vnl&77w2U>5A3oH2>AutJ@qII1hC&CZh{r
z%2s^g#KH1Bho$ICH5P}$vwgh&3PeGdR>9X^thp6KTyCMYg9n}IPdvvN?|p5<nWpB=
z8poOhP3z)2-Q4vyY~5(SBCsn#QnSv_X94~!7L}vI={|J3WJw|vhVO5?nW)JfhN;dw
zaCGdL#U%IJ${ib#6taOw($m1{5dj2zuh+yG{=&s6j&c3B6^lq-qj9;)f|b<-ctsYp
zJgd=_wDr;i1i0J#SF3r*)wuZ})p;PKf8sYxAf(l!J^b0L4*sRi2)fG>#c6e|nK>hQ
zX6#shWfnj^PT*F0aDUE%w0;>#Fbfy>w+cQy>X$Q-XH*DaODJe)tb+Tf5i(XOSe3Iv
z&?jKp@ID|kl-K+Mz2oj(>uU`U!ufAC&hovZS&pLz@$J|WCuCDkA8+9`pJot(!c9)B
z@vdmw>$hhnR_4UlJD)WpxxGkFvgaZF$K1(KnD6%Yru$zJ0seEuq5t7k99L_aex7NR
z+?7dq);iDZ=)~}rmKJB{2WavS9=T#SoNMf`SZeg^g6A(^zRdS;PzI$~j||5J;9_#V
zKRp?-HMRaSFi4@t|2;a7We<O}3iwS|0zwmA9;u^hzyp_?2(KJ}IC-ttgtT1%O#LB`
z7sd88e8>b*EOY*@wmVlptYLPH)zuEFF}1MMH*|P+DQZYq$oWC?h2U{0{YVr>ckpZ&
zyL*3U!yzv@p8W;>FLX4*l9S_g+UQyTa2$=9pfdj@Vf=r1`~J5aCjb7c2#U_1nJ)+%
z@=ts!%F0V7Ra;N<aWY&--j^Z@JJ>peBLhV3cNllT2CrU2ST!V<+xNB<Z$UM`6sbjy
z&csvR4aHXFdlr!|3(>4`6G3DH%A}R7tSFOi!j$qL3fp=NqqqNk%LIh;`9ON*EVT3f
zIauKCP*gjH6UGD+z_Q4I{^8M=EL$eF{^z4O4gh7{2C=lu))q)!7a9gK(J-e2Nof}t
zerZ&Ch`qR6S2P{Zv8F@R=^X2iZ<rcVAF1t95@%dvg|JnZzi)vnDuOKN0XbehvAOsW
zt!{2OM4X+i5c2Dg2rliO$c<z-BUEryArXI~nF>Fc=YV#6qG5`01pW@fd<hL6@fZc5
zgN8RnHMNy6wmgN<C3)4cJ*KoSb)+LlrfC$)fc?@L5NxSesia~;?ZK{K?Xk`5`Inbq
zYLW@4#!OtVX4A2!RW|V761ExZ*a-c=VyWQ*cRR%mh-I_6YICFDl^~QfD$nedXNd)-
zbPH<JO_2Q8q5IDnDh5$1ULf$ejHeT`KaeF6DvEmaapqp|MFF03!ExvZU^`*jyEtZ-
zK`7})#bx4e=i^YECc`Gh#xLjnZ6pf3a;VJql5lLd+pktV0Ps}H8$pZgD95y#aChKy
znaCnm(pdzP$xTMES-5gN8QpVAt4!aoojef7d!(4#VMMkXrJe2k%{k#gK|#*Wq6V#b
z8B%?%s<jtQbq+LE47Sgnr(`lqXvyd6-<fCk#og9=yfah1@qyUtEd87lHsg5c=G!>x
z!%HkfaFFb8zkTag9fYeEAtxia!0fz<r{@9TES)~fwl;9U*Yy#Wnpm?wGz<a`qk|iH
zW%K;vv^zUYO611oX&#UhPqVTf?Z0{r*~PK?7wsdNv6{Qs5Ou6tJA><D&Tg4E5$(lJ
z49-ioyo5YDhfhUCMMVGcvuDrZ0Z!FnwxpZ0Go7{Y!+Y#COmW7kcM;YX@bSnTgthbi
zHptVvZb*%;oi909>+Bp4d%ilzMm}UOdpwcTaa=``(GP)eTX(W`k6N@5nC{U=e#e`D
z4|Z{Jg<&4ZBaPV;d1%w}8OheM7;bmgs|G2?((oE2?y#F$b_Tu*30o&%lO_iJ4EEw#
zFU&VA&uw}B>=_s3JZ0y63{8(OrAy48c6Vu_lUtZ}nnM@nf*+KYwzeKRHxN~PLj9eO
zaq0@#7VCr^p4el@DCGkDM%(ZE3z|Niff+zvo)cODr(Uy3dB=Zr#{BOOa{q$7eIibd
zA6HSyLUzK2@KkIM-eu!#wu#5fI$g{A>m##IH-S*_zp|&8fs~Y<Laa3Y%N!HZGC?yx
zi;ayfwg*TnLOBt<yYu!;q)o5SF8=ZP#bP<pwQ{0g|9I4EQLum6JD5T)@*Vo9XG&^G
z2E!oRE_;H5`(IOz{D<D$|M}-b$w;iZjED5`<Hy1Nt-q+R{~YNi`lDB((00R?oyu3E
zb*5Jf-{+R0S@B&k!pK++7UY58*~3>22g-EZMKKYo9=pOF`6vIa+mA0z)J>zSrx~-;
zd_ucU+nU?xMHLAiqe1``h6&8?_Cp0<PqE0Zp1tPMxe1x}Le{W1mFqpYZ*Ko2y3P%{
z#aVBwVE;sC9i19|)oGW${w0dW3gVyt%+~FmZ0fkP2$#1F2@XY=$heWd)@2k-lW{o_
zfO+2Q3M#6qu7Hl;4fPrRM*nDqnx_u!+&4jT=#_G8KX+8aG@EB;*+fKmnnDL28o25(
zpCqR`6{(ue_~=mA)zzbGz%Z{w(dDCI>WAzX)(B_N4cP@5niL?P)oFw8_#+3HEh=fZ
zKvGASOVVm%w0k08(ZKGu?#pQ-Rq+tE!N2dtetSyN&w6PtU8ZTS*nc?<{V!%G*3oa=
zk(*vEZVNNos2r)GY<acfQvBEn<23re^!tIxGtAAQp|`Y5Ktu{{X{D?pW$areTwND}
zud|m+{bGo|dREphBAye&V@*eT-RlOTyp|wVpH!;s78s3-`<@wExU|8~J61(iv$D>D
z&tdFs{4;aQj@z4@<V#AUtsZaRkh=Quk)4^$>0V*MMqN9zB$$?W$KRec|9nxgcz9`e
z&oyIlws#yl13Kf+gm^EeU6i$G8|#y54D^l_v3=9BG{$$NAZUIJbDoq|<+J`^$wwUF
z+Ltao3A$kWu;qTrIKS_xWmY*e_dyz;eV1`W-Q$5Cg`<^6E~<@Jr~Tm1d-vIELnE%v
zOEoU+UF%1Vo~*&9X6A=|LWbd%hB;azTwLd>#}qzV4=%6{c-dYYVpMLcEuGP;-r-Uw
z_qba@wlX*@#Gq?u=jiD5jhlIM==X*_8+o<#y8TrSEV=BGW?#ZTV(WM0sp}l89+F_6
zV0N+}F*Gz>5?A-`nNfNLHBXe5Xn>9~O-3vdYo`HJV(t8^K_JIDJD-dV+j-ycz_y|%
zhGlWzqE(N@NZwa&OnMeu{AJ9sCGgdmuNC)ioN3oI8(^aG!qr+|ZTyC!t%%i++Vz!f
z7@<Y}$q!<JbT~$FT0}rYBwTI;HsChkLNI4WL#t=CQ#)Z>a?dB%*k)uu2Ke8JUlI=1
zX?KK%_6&po_%HN6^|qC72Y_4swLcB2(E_+B9jHX@HJ^szp2V1k5X~Qo?8i%lsp8+r
z&u<)^3oSX;Aos=Koz>$a-&2g?#Ndh@A3$-SB)ZLaZ@cD^Zw^9RRQBh7I6lM|C>x{8
z3|3J-(09wNZ@AQBOq)3%&sFCsu2K~1oy4RXF+@Evgk|$Z_1woJa=wxhK}%nKmk#-M
zKKsjMxcEm{etjk!5Y&G6?%fQ0G>SsQ7aL_fUgYmL*M<7YfQoXg)^9$>nHY#EoD_~4
zc7r9<K}dS)oY&RCPxXV0t8BKeU>B+(X+y)DJckf@D956zbt|soNuB#;*zL^Q+oMtr
z3EKA1Uax2suK#$WpPnmy>GcCrG9JJ*7Cbw*{gd5=JOsH4-Sov>%{>lCb;QKX(j?Hu
zZEFyfD=Zru92j^L=Fri5_8TIZ*UBB<k&Wd13;<C>1;xtYHa)3I-SlOw5s=?M*mc>6
zUAZV0y0>Kj`Y%RmLhZ5jWWIo8f?}y~rNLrYNEk;}!LMrIWU`eB{U{o$%R(GqJHmJ?
z0@ampK!9O;bfKK=tS_vr^Oo_sH0G!~l&ILA0B69`=_81lEhn)`t|cMYjlfwb(kkr(
zC2Cehu4rqF#Fi~vZa=oH2vjwzfx2~DQ1Gsjo4gdgIV{WkvMm$Fed1D@KpGkV7Qz<`
z4aEq6bJ7QI-+(}D1rAMI8!o*b)uqAJTNNje{XYjheU0y`Fr~~?cEIX0#M!wF^-I06
z<A{3HdM{=`V&cwJWL#M<WPBYoT9E#_ptninRm?=f-%P)WbhQcfsq%6AVSyTG8s0&F
z{`uMVlUSLYHNz!wb%053JIgcYC1J?Cvc@+GY>fAGWDG(NzVZe#;R9)vr*Cl7sn-mj
zXiH;`m$y~{q}UJa2PKm@o%v`Pz6JXfZe)p9T}#Gtw8s}g?O~9kIq_x{Yw>2*2%+`J
zIgN^i>;Z98KJQAY!HtQQCB}u~-h1D&Z?1C_<$~m+eh?N}6?OVQ?gPewr%XMbSj44?
zJo3HiEaPd)NLWC`)I-kbLd%nE@*lujTKV|#{UG9XP)-Rz^R-;u>XIGg%5Gr6j7ye9
zP3EjVKY`J|0mJ{T2<iVJDan7cz^9aP_dz<xsqjKn%LFx47w$NwPhNB7Be2G0`(@T|
z=OcZo%mbnop(>;S+`|M0Jw_#o(Q;v#X<-!=6;|-XumAHP=S|SGG_hd?&T@e>8P0<c
zMRC4*WO^9A;SDw_=U;NmoPmrStqlzi-~^qF%B>4DTPC1MAT#T!q##I?k{9QF3nX@c
zk@(V<+G8UAr~1%JCLkTE2akI1*aS{tIiw|SphpiNG*F<X6heEXqO|UTj@wOW3mdHY
zFC3E0M0<3nI|}opav_)H0$eEmYP_pXZEv(0%^my9<J-yn=Foh{ec+;5n)&;zGM|w@
zx6jGHNS;-m&gXme03PSI=mUh4?Jv&HLtnP%cL{&VgjGxy!d7*${q>{sz~3|g8qO)y
zD!7ZOhdV|R%2ACr_}$>Vcp_~`^vU}aJ6F1lnl=Z@WY$B${-Ni|F<(0uCd#d<X9J@c
z0~q}V|DxfZmY|*3(Arn?g<rySOv|vti*x9~tA`_hZs99naJ)yCuS(OR_rF7v_6`C4
z4DfK*iSPrD00F9ag@asjV}OqiLLkFI9|rt*=AG~^Us01Yzj2C-0%*Qp=#b5u$K+K{
z&8qnlZm-`l=rdxWQ5_toF|^z^Yq2ZqkG=EhJef9o)k0ExiX$^56#OJSp4t+=KjH1r
z#|Pc!mhtZEK_3fmQZ<sH)lj*7Y&0r3idzFlKBF|XKc=l6j`<nT&affEAg_FeCkz^T
z8CpC(#fkyUJp(vFtbCbwI8GBed`vvjfqGE1?&wC(z|nwOL>K@omDS^eSyBhkz7g4~
z0n?x^#Ks*J#(eG@x;JRorvV&zhyD#62)+csq|$}P<{?zlVj1myC6ybiooZ)|+DFW~
zQohA2ysM^`ELKhD|A3RgH~oS0d&6)m_%%%>#<3VYTWK-$zRwcR{o?-Ug3sb>r*n3|
zzd6|<<Qx*@@^Sd?H9i`UZ#DQdSUTq10Rv7CNTh|zVmq=D+;FUF+>>>~$TQRD?ix=l
zD=zpH%cp9~zjxPgWlGtAG7%YmuZ7Y;ZkQ)dO>o>oo4G;$$(QTLJ@|*L#(hTo51P?q
zslV868<U`I)2Q?0T*pBrs7y9ND1U1Z8S!dXR@jEQ!OgN~W|*_aawOT7LvFh|&iCHl
z;U>{vwp`fYq_ng+WbF~i>yt|l=8y|T2denCcB!#u`I#ZtWABG|Nnxa+$WF7ogMAen
zXf;gU0`Fb81sq-jExam{nblp=N;8u09D~&CyyZ}24&Uv%GxFcvYGGlY&4+m$$=Uss
zWLVN9=)5Dc(baGZ^VHPBy`HwkZ(+C4IOMS9jR5EyL$pnEdK`1^=X8k-9P$0;f>oaN
zEyX71o_oY)@q*=1(+~M^%haLo_*1nc9D?SZWJyp4gYm52f*H?_VkazT?Lj=y$Q&Bf
zaEfQiUhHeA*Ih6=`+#%?w$^HJ@b6{P8lHS--se@RH}3F~%U$7UmgbgY+joD<YMoB2
zXPc&L9rB|r5H5!cSy{D*KBzpyp-lI%9LI1}4&sSXq<xk92#xWv4!l`1;>#TJZR?iV
z@K`zh@WwwhTpf|dZq<n22IwSg@ULa5cpC(ta(9D5NyATrHE8ZJ`6!Sj4Q(ZIJ}wGK
zdXG#FjH2z_4FTa>uyXerl{{RP`NdDP>9+p8>3EMd-Dd1Nct3nzy|3wqP2~>0$Ppg(
z9WkP}#f0y23(K<8H*}#IV2R}rG5T^~Sp{k0k2g2uBZKt>8lsy;!eF0bcm9e)uS#5)
zh@N-BEb!p^*d<CuMiKk|ipc*IqdVH_P;g8~3Ut0KVO87!%fCK(EoRy`?92Vl;X=_D
zdPH${sVY7rF~*1pW>RW!*SI5yJv@cc5O)6b>io@@_BVV+o5ho{rYh9AXV6jSoHpJU
zUcNmRwI*$005r?sNPQmBM7J~)NfHA1l_J?O{5Me0vr=*v$VA@}qcL4&zxsvtK|R5T
z0byZb1J+|zoem<94lk=Th?4!(!V}lsH%cCJk8D~3O@K4SCh~W0@S?{o$xDyfyhkgg
z@k3VGt|#YNrt!ZxTE$-$KUjBLBr$(yb16F6;t_tM;-rw#h&J5W_Y4IG+)9=ZAeNA4
z&qw4L05Pf+)TD4fE~M<}$dVd2naG~In)?=|^@SR<#dB30lgwgbr#ZtqJd@6XD9P;5
z`)-ctKd$f2;dh7e4G+P|K#9wxdYAHPEMFkes{m6e{>pIxx>ZfjE28-m>}Z$EAIYR$
z-u?GwADfoPd3`>A>FQu4<JpKQk@lY+*6<FXa-P%zY~L^&F(PyYlagL))Oo(TkcQZM
zLf>cgyauq(_Y21718ElBE<QAlX<%AMVbHkU(TTYB@aTF~Fc^Y}<F3PQ&JB=k<SG_7
z91hEJyo&I^bA!Y3WNat;^m$@pV#Jz#zGOFIh5F}xbHi30ZX8ajz=6~)AisU!IXLJ$
z2NN8W93bI{9BT)XDi(0Z?qd63xJH7YHC+*sQo&|q=!;mhk*j-ZfE&pM%j(H3;}KVF
zvn9#()~#C_ozs2RdS-Johr^lP9A1<?ZusgZ<FK<qf0S8(?oQ9Ty1F(?RR6v`hWVz3
z0^_I|syEKCL0`XFg_IBfYI^#d3Cn4d`^R(^BXZw!xAsn0EelJULw^E36iXT<$+y$J
z{G~(!)Ic;^kEm(3RWor1mLSCI?`Va>;tRfc^z14faIkGr4jc_Xx_&XS-Q=;4@(JY8
zc9<CzxQ2Nh%qqTLp9YFA6O!~NDVhW8zAQPQ?&?T;0@X%NHR;aj`fx7c`sOFBr0aY4
zPeJG=D5Xs7&n2v^C_acEoUS5m`}*qxXXimc9BS!@15hc^9U%ph^I)&Ht-E;lq5j)S
zO=WWh#sR8ZSq`E0&8@UNucq$K1P$x0N%O6rcp2u~4bdl>pKtw6nS@n%wP~YH8;AUk
zOt#^*JgCV$HB-S=KZ70v=Rp4{<TqU~LDDtG?8L5_A?I>1AT3c88Mw~qU>Cmn<4(H`
z6zvF-xpX%A+TMv6n35A6y4Qv2vSNE=j=EvY@#@%ph23H}Ioh?=rI^U8vi|<U0*Jc5
z|BUV95OJ%gUp&uG{6t$fPVrSxjPjilQV*k~Vb5%iC6LIdNlTNhd>1MfwfLlK8yg0t
zkb;yq5)R#2siSmlITL4rRqgMyBjYd!$s^9NAl{DF>4=Imee2<W`_`~)-L&oOhr3iy
zO4|)beAKio_fKb2JS5|hfkY#%;GqP#iMZVn49He>u(aIaiUm>x?u2jSk(|1|Tl(xy
zy_88^Mm(HCBjd22^OKD|UD?iz>R-HAcUMX7CN9O<8AVy?0WbZh?G3g_D=Xq+9cYt#
z{?jo!-6HK&Jz9@1;Be#>hyShs-c}T|@+L@pYzf@sTlB@Sg6iq8g>}{0O2`(nP4HEh
zzOLgfj69oj24H&j__T3P-%)N@RC`n8%+4B=>Mzp~fJ$n)n5iyN<Wz?u^i!0>SB0df
z4z8ol=+lv)r`cwMOv@M?m1JmzFt2B8mm^Sh9pDKjIAz{pR^L*jb2K%BE(v=f$BW+`
zmc<zh9DZCS%G@%g(kLm{OLXaO^<;d}80{h2hP^+2Mzi;UGtS2xUGIql$gq1cYq>8n
zWZ4c!1a9v(TTG#5?~4LhC|tHqjjObtNul<+1^dVfT>CLi&8ke>qaNJZ@($ge>$Bqh
ze1R^`8p-|MIw!%?y^D#xsMOh$3@@5DrA|2axFJN+uTR;4_W{oqZPkXs>MqmU#AH0u
zN|`Jl@ht2p+puY<rx3=`EztkXp}}Lj74nJTVD^->*jP)?d43yYKI^9806S?p1ZOXI
zJdE5ecalGp4vM@$^ADP4uE#e$yKN^P{y4zcMMOn?wS2S|Ulw!qS;2=kj)Y20P*0SD
z<XB!vwR3f}*U?r~WCgOM{s<|cSPiESt`Gr%Z^&*eJcrWmf5`8$zAgN*cNdUg@(wSr
zqyUc$$gq)E9ZFa*TJGU;bjuulA})q?T2HVfaat5Q0LCvKeKVWm<K@(z$D%mk=rIbw
zv4((TJ4{}VK-vgw${jNGcM$Kg9$aN2ZP%`^eH$vSrHQ(x4TJ>PeVwQ64DGW3JcqBf
zm8qOKae#oZrhLB$fWMh2JC@Dnv^oV|Eij+QbHg_W_4WVsy#1eLq)nP)91D!kpE-dP
zyte-TrTBl4aO>X%OE}H<N7DKsCr1Y{c(eJY7iCnsL5ifPrNxPPA!kwyE9y?Fr#aZi
zx`B3<G_G8G8OP|=`8zk_m+IkSv(;Rz{R2kxJjdxmzl4OE&s>a=e;NWYCt=8XoefU)
zxl3W2ICEV7B0y9G@#;&czCc?2djA+$O;VI$41L3e1v|sIWg>M5M%e46q#)y=>+a7j
z(_&b7BFkH6rzUNR2is2Xm6o2M7{XrKHv_-Zuq;2TsHw>TFCqjkr6v!?(|u%8Zy1E)
zll|maeIEQ1NWdh3P9JP*_A@ByA~1<0i%>-zv(8SzEWa*3-BVmrlBufqn2nVcGp#Pr
zxbt+j7%5D6JuNMrjBK(Cabj8gN(ND(jNM6br`}u<ZM>^=h5%nok%gki$%f3TB4C{f
zuoczrTn*Wg-iLX1>q*;#f5KFj$M5Em?qnuo?l+8vamUw{LZXJiqyr)!MTl_*Re4Pi
ztHq8%ldA)RCjql>A7_nd;3;s+EFwXadfRmMZCNWV5Q<2J#>G_^@Z9YdGC8*RXZ@{o
zjyOAmG|7O_V6FxW1G>9qjExWK>RexO0U#%F09BK8wqj^d_sRH6r-AEolnZ07p*whw
zZJ6X%Q_?tn2kFE=Xl=Jcd(uqY>`JJhbino^M=10ik4`UU>>h>!$;mPl4nX6L+T%Qs
zh9<OiQn5u0OsgRUL=v`v5*8}c!&6SiZ8rht{|@4_Riv*oh$%h+?3tCwc_PdyjGePL
zw*ui^&cA*apv0&&vZ}7Ptr^iWK(1DR`mYQZQjc`j73YNP@E~F))sb$XoHtO`hl9$H
zD*rANi6RMOiKMinu)NCbqrgP+PqI2BA#Mb<Y9UjdHJ}HJ2U@;V+SQ<GJFuGnuU*YA
zJWW%_SXSC>)wXWDN5zE>q9a`Z1y^9QaZM3JS?%J8z$S>gXnB%&29TTT!3^A7c2xYi
z9k0Z))TA@epRo#gu>LC4bhPviLf%S08v)2ION!Yem4)Q6sE&VeNFJ1vI$$Hpvwk2W
z+1Ee7Vjpo@N6K-mRh#|G2@mcreD8OVtBjSQ@q$WD(q~Y9I69KXwB4#68<K6qzOoZE
z`Z~VEre|cdPQoMX5wCcRoYH|RoYzKN%~m|Nh$Jx+)vSQs;E!3AY{Np&^DApky)FMl
z85tJetMb-qjJ`t*MnyhurLVL!vU|X`>d_q-4g6RW0+v*n^`7M~WZ_JK|AOvdW!rZw
z#Si_3WqCMw{@i-<_0s}xfaYF?jzx+Gc~B)~139WW<x90_HDso3!z8hLE<_7ZR+5i?
z04@9l4dZQC5!tX<5mt4CV??fvI2V@~R)bmUSSDwVj+@xa>Qu}UDQ~Dh=1XurQ8!nG
z`XT;#C}C?Uh@IZni6(djW9?kA60*Dy9*NKdO5y1)vyZ$X%sZ<kZaULRze38vu0NGp
z>&k_S#sVu3Y9cQ->3+xW5Ru&ntFv!5zRy|O)d2&TLLVbs@tq%b-?K(4*QjLa94WG&
z56<9%Yb<ZC{sF(Zv^RJX4>Z4HD$>Q0os8XM6exTy%BI6!;fw2)KX9d&JcSc}vs%YR
zkt^j*<t&T09^rP4Te5+tSLynK_&AIiXg=aU(tpVf`U-K&#Y-b}Q-I9nw~aMJuM`QD
zsO#`~*>s=V?WF@JIgu1(1Klq<C53XGMRGmMLnOX%`>)n@1tObG=zCjxE{hd<<O|!f
zc+T|vQcZ|0oE2oaxTvpB5XrJ@N6i<f0U%^$y6T{J<&aC3w@D(s=-eU7$sGJL^i3qK
zJVY|fmA&+oZ-O|d`We&;<&yNC=PUQ7om*lv!d_HTa?W=j_LWhW&U^+)Yko%lOSQ#6
z*2{Ph-&WoS_mpPY4r94=TV#dnN$Amyc*pGsHz-eZ4sAdj3=9pGh2+Px0W8&FVw>75
zDX{pzNo~2#!|njW=fP+mb5uSOgb`p2ZdCQM=rC)3fsIgkZr_9B@GTroV-7Gq07h`5
zu9X4HAqbBE*H3rE0Ryc3GENDtK@!UO^&pTtJ<t=f9yb{4SO!Og=g~)^0xKl#1`qhj
z*@MN8GQ7TEb@ls=4SFMe68GupaH43^9qMj$eZo?47x^y1qwF(nsUkn7s`^k@@ZpP~
zpv{OED#90|zUrC%Qcb-0$RNrfpQD)lgM&iWBU?8z>)q&3k0*h1*)Z3SSDn@gJonEO
zA|12QKO;OM;4Nl$PMDDf!M<<;APNI>jr(`+a;FXD8hfA%kcaM8SeP8i;bg~u?}nJ5
zC@Ez)GYOkA+jqS8l`h&d*!xs3C!yFixU|~TT0B;|%JEm=KeK->SM5?5BS*D{sKo^B
zcNc>MadNpDrjNira#zwg0>ta=vD`UUK01)ov0t-CJ#O?`v+AiXn0gt6w-iHPRBf_X
z?m?uSR2_?_QMFMckbm?6_F(@w9r&skseW}tNnPD%l}QF`c|X#Gsu!~BJ+rGpM2(1)
zsiej--QCXu=3Oaao5+JL`&#h_O-nAV3<EbNhJB#U@dM_F!b#(}SdpZT%<0t>;GbtX
z;=uGtc?|o!4QM5j<&sRv*lmA$7-&eeVti$Oj|kQW<NyT+>Q4e!Y)aiP9Z96$@@^P)
zI6Ob155cY@HlrjKGkh=0Q?c(Vv6xfOMc-&IMOLnIwlWQRI@#FSjF#_5N*GScD+F~9
zSz3d<w62r`8uP_rq`kb7Vr5jx2%)rSL<<^7{bj!B8j?S!An9pZ4&R^@Lu~(5a20gu
z@5g=<xnPEJPtS|WJV4k7uUcSAT^6vVD8<L2_d45QY&I4FIaEy8duCr!%@|*j9asoL
z7+VZgFi_Pq>m}&sq~y2rcSR?rB_bb#S%5ex=bW91NjdsZkjG}ABSm$LI?d;c);gVx
z)RkF<;@O1WM^Uk0eS3@Kb@X)|LD?8kJ&w|+4*h0ld)q6~+C+RHsi{3J#8F`4Y*y^F
z$FT?}9~E8WJV?tug|FF2A`>xA={q4UZQfoXM3l|5zRGT)=P8Dc*y=faBHx!!W3+5Q
znsdzGh!G8nIN3-asZ4nzify6tRGgI&s7FPt9P$1WoMa_r?P|}*SXN7lCncjFM7D$K
zzQq&3w~=`gyIqHwZ_X?qG;E%av{&j*7z0*Bz@D0B{Va=Ll7T-(7Q_+_+ZUVj;X@tx
zX{h6HPqvR^rY<Fz!NV@jkgS+sHalW_7g8kBRM#QJxwvh)p`0U*XggTn3t3|3_#hb2
zNJUZ2QoOB)rcp~7FE6hv9+jRkj0aK+`YD}7!%=X7FcsC7)__!ezGw%0e~Up8Q8~OU
zJ(W01Qw-Cv(8?PT=taso83EcC{DAD8znOUYFbXZ<Bwr9?ung~l#rM0xuKIdP2NAWP
z<S!S-=1v;LC<o#4?-0AFcRqBtD3-`Eh1%FC+OR50B{(QZI1z1u7SuC90ty3F;o3?C
zv#N^Lj>7AAOwh&PYLv8TsCpc&NY6t;LXHa=y++K0D}ueW-OAl?^%P0?1kq66`hD3i
z>9mQ!Y!H$!t+FUmRD`4*bg=F!G~h&lpPMKmabg=<Iufl;SRb{qOG{?}3+9|qdM+~_
z7h_+hacK{c5CvcsAAo(jnimL+N7wxgNTD4zmTj}BptQ8cmv)Uc{ABhDhN9(-j-%h@
z*7`26(DrPZbw9V@e)x)ZlM#zbeiR4U{ZmJ15UEDW8xc@UqJ~etKDB3+!{ArKKF)=s
z6W)7$Wf9BMmB&O}w(uI-Z7w<aBN7F$tC7g7)I>GgezVlLG)xGNjemI^k#2KRGQQ~!
z{l_pCh_y+gP+|uitO-W@W{{Q?X93j-%fUdz=7P>!siI-B->&(H_QlAwM6Wr7aee`W
z7&`Z|V_&fLJ4`I$1fti4QfP-&`7LK>0Db4YS{*`C1=#rt7Ai7V#90V^Pbk##T_7YR
zRNi=B>xmz)_V$YU{?>l4PI+C%?t|YJu`qTAB_la2Z@eBhv-|<FT4=!})RuI_9<<2Y
z+Xf7$NpM<d@t57vLT@f;;uN|?P$$|<IfxHMN5&SS(%Mur&}w)aykZ9Ei|7K?mwh<N
ztokDt057=>^nJgfVf(q_zVA{@F`R*`@%WGcm$udJdN$-PTlJd1ChG`2h<zWvJ&O6j
z3}knU`?h!m<F!B8NCyf)J%M2!a{c|l9xLi3!_vlw2cb>osw<4zfdrPh{oAL<>}VXn
z1#TGo>`!hP#0Y$Hj%s_tiGhzv6c*LZ%p8R^BG-gg)_hTefT23X!qi?OA6>s?xRiRJ
zQ*Izr3A>^ui1Jn+w-wvhQ?t#1ktX;fQ1?Y@_q}jjIjT|4n!!vFwN>5dyA*TV*%AQM
zbl!L2KQdhdN0ygJ+@=TcaN(bo+ap_*-q%NT^tmtNRVxY_EBjm|(Ua)N9G@97gYj7w
z;{F$z*ZJ??a;BQ=c3S>Mt~yA|GyxqdwoqGRYL}~V21G{e$fmF{k_%LCuwSX|4?xB-
z(%#RX(tAuUH9a`&<)`(z1N~-!_-9**8WcRCsxe0KpA1upSH(fG3`WU$C6<&IBxoUD
z7Vr7E-30w@;IiOiu>$D*mjilxh0j4fUY@guCca~;w#&It49)seqSXqbId;uRzqM49
zTUsNI8<bcItHA0iu~hL1;5i?|xOD;S&NOK58g%TC&f<H)yI^r04u+4_sSwJk*`;LR
z*|e!%BRhMa<nab*RlaoZt<1lEiO(}T1EF25O1mm6O04wl$G-la=8VPiF3$4$D690?
z4U-U)36N61%Z5nc3KCm_iwn$0MaXs;3b;tvZsA1Q%Eg5N>Fimn%#M1l?L^^S4-Yy!
z(nO{raml3Gc4_fWc(Al}W712-`AS?7$&w@Ee9Z1&(r0V2+RDf02ARwLj7;qV2MZ@^
zgl-Hmm<L1G7bN{SUy8h}9`%Sj!4M-!L^xxXXklF{`K^>%K8DEPx!zC;j&AB$3Td1f
z=ZCqxQc09J=H(`aT|z1^4h)vcYMaj0P--J0ChxFVYAhM+%dh8aZ#jtwBC$Xc0zR5X
zO`k9}#*?7~bcgl&W;C5r=w|I|?kX?xI%%kYlA0PvC^B+!Q9?>8i0V`C)qzVufpZ9j
z(3(_G^O=t5|A`)4&0RC}>2hQa1x%zNX>VdF%FqvSNlH{Yn1y*&9lIvZiSaTIHOEoj
zLbZ6m0qnykz6Ch3o$fJqCr%XJJa}xk*tXQ+X}FRIANlce7)sdmk7G-bKqG4PGUJ=5
z5)IazfZ#)WtVKl!*ImAlz83NFpg_(NCM;I&YX`q?h0)fuaeZk!wGmYED+u|Zz)SsB
z21z8g2l_vudMAGCfa}WQ+K12JLj1n}GM4WSoAnbna5jgz!fz`Cxw$0Au0&D_NT^NQ
zcyUot1}L8TBih5q<UUo0g6@d=v~vp*6%K0NAni#6LV4R5`gUFL$!jH<LwS1Pezxd=
zh;7QLI(+0vJwO8&teTy;#aNU?S%}QJ=gEE3Q*P%bE!d?j7rk_9wA67-CF*KJBFU=s
z!dGY<Kh6d_kXtCsL~RqU1KFk~KKhOE_L^}h8BnSFMDd5}AH`;3@%o6a3y@rN!?_@H
z>tv31IuDw+c@Im^WaMu{Nu#ihkOSc4ZKRpQ=9Y$~HQ@p#**spldDC46dyf=QQeJl9
z)nj2>pHdAoSxal|L;^w1#%W@u0RPY=*q4=+cl=k|wKQ+CoWJUp^B}b<Qo=~1`;e49
zgDjRL#GopV*r7;r2l60XQG=c4ttkm8>G>q5d6(lkeVy>iJTE+HI=K3O>yVcm;wE82
z+c>Ji3Ec<+Y5~-J1Y?**RuLaX`UxcR_!@uOA4RUpO2>2mJnZHVB<Q_h!laXJu--k3
zz+hI^yfJ2f2mg-m<L>o?`bqKXEIhN<Z{KUk)42PVlFnAgW1<2Z=HG2dzqx6{{O?Y`
zcq~?OR-6CvuQ!RsAEwF31#q<O4$e;V6jO-wuK7JSzOypVzB0bQpk7fWG%UDvBq6pl
zuDEBocO0v>hN}}_)f7WMxU<nI3__4uY%vg;m7boik`)vfC}V8g*$`3*If5<(%@0M4
zs~cj-H6}cB9p+dZbqMU<qTFit=+_z<Q>e)<Sm)JL{rK^t!FsrHzAd9RZ80#bpcSiE
z=arR}HPoxGT)EN|@Xv27EV7$A*83Xw7gbe_Rh9Pj^);gNQE6vM_%=+M=^YsO4nmW8
z(MwlJNy*06w(!fBQTM#KxH$RhKU$A0c6^@Z#(2<C&pZm|Bo7HtB;Y~g)R(ELk|^mO
zcYiEH8yen(8Jt(1pMM7e5M*vVQsyCt{XH=GOBaN)j0dFIXYs8)ON%nTG|$o2GGk)s
z1`_hSetv!-no0dht)SCCATTj|HaZ6elnjYN`w|@&w_!*;$@YwjaE&G2Cfj$zIo)3v
zQU{QIpL0n}Oxz(Xd=3XO4RS&ubsr7`$#z46aHj`U(jUF*JA61+tXPo^pPWcgG|HRr
zeMBn&f+Qfsqt&VQK4@cSe%>a;Ml`W$!y$+}y`DUI(pHlug|8~_e@w>S-X8OJ?;rv;
zLaApxK57j^`k~ys6Da#&pY<v{oF87b*=STsWB>57XHZK0$dMyj$yR@MbaX_=#=Z;-
z<HOy)ps$~UYP=gN$`D9tK4ifxCmUFeps45r+^z=X$f^+F!ZzSBEJD|z7X5@zE3B#U
z#W%`k4;>4@t)vU9N)nL~+_vowtZv5dDlSLL`Vso0ZamCYJIyyDmG>-F(AU?8wDvKU
z&Wot19xs=3gTWUcyFY&XSjGb>{x?_{C^@9nRAIw-aO3G`gN6%ATF%(0kxTPckK3|>
z@8Ds_8iI_i2U$Oc;;qB{>7ag(b0Kfuyvcr826SxPUq_r#ds%ljH2LXE058jR9ByxI
z%>m9Doc!!zaB%Pzna^cq4^XF_uohw{Nd69q<f)Zy6){^_SXg8{zJ-@R#-!ak@&$me
zhKjY&_QIy7^I;kZ9t}O60V^loy*>@y`sq6Yls6|>b)E6ZOHxLrq}|AtE511C5iAj-
zV9v5Rd=|rD!F0Ne9T$v^^Kgr|3k%;zF@D@uZ2JeiCz7a#+zAe2iB(CAZ9fh6o+_jY
zP7pgA?@qRuD{Q1IWH6p8(0idP%WuYH*ZST$la8O)7ESh~&*hoyVqbC?ix98>{|5iP
cdoVuxvvGCWi_?2O=w8X}my-_Ld+N%60W#swc>n+a

literal 49038
zcmeFZcT`mQ_a%zjYHO=Bh888Y5>%oJND?rRN)%LrWK<+4Nu^}lEP_ZOAW0NZBnv_z
zSz86kNQNS)B*~IPQB||A-QW4md-K+MYyO)xYh1P>T}9pd`JB%=`|Q2Xy?0tmedGF_
z>)F`YHj*?{&a$zszRJe7>f*0!@EuzCvmf|t%|%Uh75t4~i^mK7@z=V`8isCcY&>^}
z|5gO|Pg=6E{mDjBIjVa#X0*%GeXHIQYf@W2k@V}IE4J?65IDM0?es5(tGAzadC#$x
zdxzyOM?b7qKl3j0+pjkQ->`|le3|g_F74Os^((X2sHz5y{`yJC`1-@dQ1^KT<6Wk=
z#@S|LdCd{JhgRGwJ&zHkd9q&0(hx20Ti^k;pI61kcI|QR-id#|W@8K4_3pQS|8XGT
z7m0tr{IGX((Z65*o}lq#<v(8^3EcgEU;KYp<A1BzSTNnG=#>+rmDDftFg2r~GW%qv
zS#jmwsQ{ijzKslaHa6jc6a73y{GQ%<m^XO+`t^T{50VSTs#LQxZC=_;E`P3Pv9Udk
zxA<R*{X1zZ@Dq~^UY$SciG$6?b~BK8|I5qxh?aEYq>uNv+mChRc4S-LpPT5B2rf?;
zZca_rij}u(NW2#%<D7vPjf}po(+?ForCaPZ`)as7-z`arJ}Q}RoToL?lHT}4(fd;1
znOJ!b_jjwezcei*4|f&j)hf{)K7RbDn(kZ1>ATn;5p~EhDqPesest6!)_XjE=l=88
zm~(lh$#%^t;g;bN<{9VAef2aW#PzJKUhI@{O4Ah2SMg`jd&0uQ|8P0%JwM*uneP_%
z<VnWNjQd!3u`zG3y7d#!7X|J^@foIt!v!N5IyF(!nhm2b_m|l;r|5Z26wgcfGkwN-
zO3i17n;V};n5EF13Quh}yLv&lC-rhzbJqRP^1nYPsOMT%{o&Y=LsDigBph<=NL2Km
z`~LQ?Rh5;MXP=)4(|v7qD%YvY$kx_&xczmKJbCn`uwKfeD+|w4r0Q%RxM0`*T!kI`
zt2#!mF)=ZblXRgpT-<c$S)QSxp%=D|FLq7L2TIoNpB||B&9<kj@QTd3b?ZKw;X|a#
zINiQ|Sl3wWeT7!AdCQiX2y;I}o4B>?yi$%d>PF7qjWV6*O~lU`_%aytJ<+(do1N^w
z^f_rmL&FQr9H;2>6Ef*Wx$8MCS~E-;2OjK{t|S*8@tPm!`JtGjV^r>h=n}1(`TqGm
z^`w^813A|6v=}Yq;luM~fjhRm5({a|bB=TLwQosVXUoT0YAqG5YE99rdeb$2jHVT*
zq!?ckehII%aCLP(7O=0AIqy|WW&CKf2wt6*YF_FW-Y@Sly!C9_b6>59k3H6GY`-fF
zd|A!Lwyo@qORsz5DVcqelCO2=Cdh@-HuZmce6K%hoaeMLzw_OVwI2Op=TgpPnpM`+
zY<%N*^ypt>RsF8XI!RhaREJ1M&xoq$PF)2<shK4d0UmjG4Qy*;UXLHwt8RAX<<k+S
z<j5j3=lZ#;#b#Y@b&4l6H5;$=_-=Rij$>C^I6}mPe!9^%*GQZ8BG1=EBn1WrUZbTO
zWF14iwq#k9@6M<iBhyOmkWbLtHmW;0W#C2<XGdC%sTW4uvX%ywSvzLEMw(NTeiMK5
zHoG>$%xj;Gr$yisza`tMsrgQ~;BURX34e@)YAYqbI2Aoy|Lph~+F<hN1HRz$Ew5s_
zvT$Tqg^S#GE7;A`i{rYVC{It1wdL4`VmWo}=vc^t@q&?=GA?J8qF~kge<ZsN)>hWl
zu@|OQ^*5L^r?&gD81uUv{XcFy_x=0l1bo7c?Ck7g!mlrWTwn7<QQ^y>GS1nF9`n#W
z+M8_SRQvn-UgF@K(AExq=_BArACt*-?lF^-liTH3YF)?cG1j41%3QMFr%pa=%UAgI
zQ%#NDU~Q~ps1H`W`8~U`iQQ~4uVRPmV&D$RKG*z};f$|$_}u$Gaa4KSShG>s#X)tf
ztMD9-^~NF1kbpGN+MxjVz*TJ5z7gf++WN1HgK>E#N>_iJXDm<G;XWc-N5W`hEg}5s
zITzlqDgN>IZ+0}QqXyl7EVota%6RAI^2M>dp5f2xd>acpqonPnoV$x2<|(`O-Hnp6
zjgRwZ%B6XY=MO%)Hey}<_?h8rE5nSD?&89O2M;duZ_IO~y})@la-zMqu6wv8L(l_j
zHG=T?Ewviq@l>YA=e7Gv;rN{3uG9G@;<)){a?ZT5bMf=9@9(JR*2aq$&zzNut-V-P
zY?fKF@a_IJ%drxlAuRD(9UaH2<_uHg-m;*^0*?{*A7768`+FbeWz5l>m!_&Dnx7qC
zTa_Ix<J{ssQM`SBhE2f0-b-=WvPmM92R5;>IXs%)%7OG+#%X~cb-$+FAk$2-ch>7h
zcoz;@q^wK4VX;?k|5Ac_@XkB$FDS_L<+hsHQypnmolbd^R}Wj&Jy9IMN3qMs_05gZ
z#72gZ@ZP${DqJ~)<&)$ME`MVpKHce7w>q})ppsIz&s4>pvVPYc!Q~bu^l=59VlNNc
z7(2J@`5iO_`AHw2BFjjT%%X;?ho4-uL@jX`WEIbMd*3LL5zMu&dveX!jWOFAjpc5?
zdYHGDTv#(u6I~-1VX`?#d)2xtwapEO$;X5C$jG$j*tgbFi{lXf^#<|%O!`D#;I4Y^
zvem0smkqfag-1(TKd_9Ha~pVk>$mMjym_jghk4zGo<|ssmy$w-R#d4ST$|ZN-%lQG
zyXIl)&zKGG@5pm@&i6HpZG7%a#1Z8JQIGasDdR+(<+V+r{D_E)i`y)E%?=O!wU+mE
z`2!xY)>2$MRrx(H>W0!{-xg`7PJ_wGNmp6!6Q@o!BUhxX<@2eh)^0cVIbdU=Ds9`K
zLKGA1W&dSa-F#O|B3Ib8XIs8?)eIN??9pnPR2e2x_4V?1tY|aV>0%)R3m_Izhcr&!
zRF62)*`z*c{Qg9kux&?<ZMdb7_7m<I>v=&-nS*C2OS2<ML^kqgPRHQ`w({|1TGd3^
zevVfy=%Z+!kQR??P$C}>iHJxdiqlADDb=L(QpILdw;E}V31ySxcQ)mkl-PXUP0J5y
zO*6ERn<X7PcHL`k)YfnyB{kzLLP0E;7SFxu&e+~26oasKcizvu?~MN#bXS!vTfuhZ
zyuelbnScNO{nyKe^SE$n%gU{>h%ps<9R3_D*r)TNO=w@)1D@2IH-DkIey#12^PIX=
z#W3}qZKhgwP#sh6ix<3Xb4|5WDkP6(n=qSnv<<~4no}dRlo{?cM(mYt&v4?5pqAMg
zi|-uWe5Rp-nd3FVy-8hzeKz1W?(arLRh3SjQ<rFH;ifys?OQXNKW;ZSNjb2!Igzv_
z*XHxzu3a&5ZlV#iVsn1Az*nO^8d6T3ZDdnfc2m)NrzxMm?nRO;3PuV2oqL@bYUnQa
z@y>SF#jYzo>3{{vF1=+1{o%$l03UW(*^a_1&Km1lii!@?Zdxa4#S)d7mVNKuy<u8j
zW`Du*vJY+TvG$>s^yvPn*R}Fh)N0&>ZGI8T0o5{%w=x{N!J|MnaN=`tx5n|<DP?m$
z-w9A*MOFAs+8C85$fs6r@FkEB)e_Zq=d0lO<eUdx=Yfhcu~-^_IwI8CA@^aLb7^j@
zH#LXR!(znsyQWGQySlkK4!+Cf+Q_}GP{Ll|mSU?%VtnKmu`1jj0TF)R`A-pegIuyI
zqbJMajulcHG9*z3Q_M?CC=`m+rBA>6PS?m#`#0eb7m7a$2_lmWNgera*7Z|L`}XZS
zp`}GN*}j*<cK%`f5#?FxiL_sa*Y@nKIFboeVH|!+TRX4InZ%>$)kHR(AMd&mJ^^sE
zH6iO9pum3IQ1&RRukR9Lp*I*c^ZwNyK@TKkBXJh8eE_4=fAZVMa2nO-^RZLWhc+4^
zi8rIHCgD7tA#$pC(T`)z$vWyJ66xau3x(3<Db0GX_+3%!y0Z@_RgG}2Wn+8xvpo~O
z>Bm^Q^{84-&(E*K%y(8V)}OgpfJ7S>8*A#oRVb${n2c8(9eH^!^T}Ajk#(QqSLTYH
z{#G$=-SYLpgWsCi%`(p+x2!NHkE;EycKm6aA8Sb4f4z~?Bggn>*bj|#)51feSL4%h
zG7HA2G||>=vFF;IoJ<POyj8+`8(*B#0W4~wIvQ`}Q!<$-p=UHSHhLhN=bL04D}U8x
zlG{*m=0nyC(Ym1kGLeA({-=;V1KcypbBZ0){_BQefqQaB@tn~Pi};=Ap5FQOmd?2_
zVLgY|)jONdA(>S5Z|fhdLy7I@xt@NSmu=g|ZDVb|-=E!CDI{4{iTHKQ_i0EZF{xIT
zmbMiX!Ejo8(8_QvURJB=mDt;xc<kf^NvhjMeb+s@Dkh?jL#;p@>I**)^{q1rY8%r{
z^3R(4&W5dF=S}<Y;lry+3Bzm^<>ep8pIJ7ip3Cd%9<KPI3TWFyHhsG2eP1~BQbKH_
zmO{G8NU#bb+Oc(vmM3Aen7!0qtSevclsHfun;Pv@klb1Ni!2~aSX7je!(w-_H-UXg
z4WsR^#i};#l-m0xVz)%mkLzQrXu{dc%gfhB@|=5kr%Ec9Vlp(!Ws#)+Z5=vt?UT-#
zd8%Rs<S&1@rk`PwJk*#p((OH=cmEGDAP5}U^^8)$I4Vutm?~-`DsnC($F%j;h4)YU
zMFNg6eoU70RdH_lEOL5fQQ}I$`ceeQ)BXqvbKaWE$2Qkk$UF`gGfn~K2p>_xT{Fg<
z{Y6?iLS0;3y!t}aMO%v(2cjv7NpXH1uEky7&4>EFcM<uY%(%I3OOD&1*0!x%KaI>T
z1?%O}c)Wf*7m$=}B%1<h`YjD5J)GAw8+1411vvXt>YpXwwtagNP~b}dF=T~@PkiSL
z9XsEg0TkCwPzw^R@|o|ta*G-F__2*b>v+I6k(JCM1qli5iBeWce*uwT7hOc+QBP<>
ziDSI3dfn&{5`|7h8D!8=E<F~0T%ctukVor*eKkdLp2oY3t^xMq5i>6_sfm`!Gf}oE
z+puxR!9<hLA_jdPU<%3Hu|4~vtBSRqo!#5D9|!;@9#Q4m_2J$YX}hMq(hhB>5s$)B
zuH6|YbI@k(+qLVRYZu_CL)ERRTaC$;^ceB`7Tjp|ZWG1zt{j%CU~JXnG>YtBYV;s(
zxdw6<0IV%NbQrj3ZHz+R?(C5}Xu+gM*Zyf~ZEauu_`v61MV=~*zj;sYTE%|&e10cq
z0tdg^BYh3Q&Er{IC-L!*o;-1q+jd=`c&@{~VDO1|rC3EYg%XcqT+lX!KF`#nSufm@
z*LUXgHJvDKIoA*5F3Sj0tHPf-cXv<*60@PWd5%p;KX;yZgyxO4?3)Uo1YFfprxWSq
z-N%-s&1`Hx3Z+rFe3^@byOb~4011UxMN8Z3JG5V0vC3h78X)?mKa084A7Q?%e1<vO
zYA${8!>@{qeWBF;+Z(z5I2*IA0<RPeZ9q;z(|JULeL&vj+fAX9kDoqzw6z#<_ngCO
zmrVE7gs}pm=&xG4sj0-5zC6)|%I)6e(Q4aW<oTR8THBVl@R{sbPGgQA!>jq_nfI=Y
zNBeYU>W{Ol=1kbU(){4uRnY9}`E=f7{b8ADU>LCoK4m|XyiQlmw+uCGcdTfHcd?l%
zx!sbvSgObyT*8<$&b4h+L-}1__#|6Csp{u#{}uAHi~74Ph^zUvwYK1%JtGek#_N|C
zr*pmMov<}@b-tYz?%(ToAy3yFTC|hCo{5EwI%pZ-*d=LQs|(EDcUcy{b@QA|PsPeN
zlj*>#GD2InA#&;oq?7M7H`;F3RgkO1T6W`6_Ur5!#NrT3m~;N!$}ZO`u@wFEC|<vX
zuMf8<3eF}eGe}sK98(t1sfe_6Gpn1iSm#gmy?oAgAC9W7$8ghU)Cz0*m(+V(_6*}_
z2VZ3genv-kja}ieUYwGz!<J^H61V0`0MOJrCHl$y{CtX**6Zx6lNY7YfSybmee?A;
zmqTm1S+Nm1v2!LSF~kv?u2s+m-hS|sSRRqT36wpmCp<xr7+QL#Pd`Np`gq8eL!+y}
z!-GJa8HIR<v~?}Fm{HD4mC0PY<`Y|lPVW7zRN46S=neE9CcXg8A6tlS9}T$ZotG=U
z5m>WmMQ+W8qC<}!x&E7YJ^G*%2eSV@G19hC@BQtKvk0mYpu}A6d^z%{fuNwEZPUv$
zf+>4U06=$2+dWbX=H+px`7ihK9nEu*k1e2&7tZ4K+l<ehK7C$J@TP#`)F=L(%6>jS
zt|dH07fcj=1NL2`K)VFT!{pKnA9VNRLq2-DlOMS5?ZoxQp(cdTHa<S*{BB^>*L6y-
zeZTAMMO*R${D)qKiQG5eM|p4F$ol?xw-($-VWq;Ohlol7g@rW^ZLp<F*2*4F)lbik
zjiAP_Bahxr&`Z@f%DQ-KZ0QcK*WNESa}85@r3|s}hkz^!(4!si=qY8+O3?1?F&gSA
z^^bgT{y}hXp6`)_Fwi^0$QA2k88>4MWRns+|Eu|X+zLzv@<`J<)<gg8*yhcfXT}RB
zfZg<t<|*o-3eOBB#Sy3**hSp-O~1I3l9|qnlV{Y_Zlej{BQNIUND*O7-qhSsU*KUs
z)|Pb~8Ik>ssSzUj;6Yv7!NGvEOUD$+??0ofx#sqJkMDd}l#;Jk)9`Pqc6KS?V>mBI
z-{JF<?OVHDNJwZHU!Ddgz3$|VR}P`k6rb+92!aH7bT`db(ub(1`EG;4yLRpRRv<hj
zXS(yB!nSWG8{3gv`#pwrgLoB<0GAq&O=r*^+o1hGy^GkyBcF(*hVG_0%}@tdtp`9z
zgxzrbeettkzy3~1#WC*yxI?e=Ok0_uOH^=R542mnJ1lgO@rlM9%hjlN&h$BGHMBVy
zkBrRxz<VTPTX_y&J^kBu@h0@dM3NyYP<wm(iIXRr46S3IqrccECUy!4Ru?IwQp__d
zDk>$2OU7<-s{be1<=lPvKV%ou?2BmU5<^9=nP25doMM)qqqm0xL^A3DT^;G?v+$Rx
zUW)F%&v)l82knqlEB2nJn(~bwueWP@`K-Sx!k)1-8+E|qHbK~-@gs$aoNH;fj!Q>s
zH$p0y+4D!Sne)AG!5@eZLNjCAl4iIBV43SRYlkl67%r;?-EHd88*5ZOlqMQ*dcP5;
zm$|2Q!RjND`_Eq=w!X0W_seUXs@J#w`}M`GL^JU7*WEKjeg66DPqlwf{tx=^+qZAe
z^_}GY(ojwZ<Mf06_SgT<H~h?`#G9{iZnJ*8|3BKn#m&Sa`}c?b53l+EzXH7Y+TI^t
z#YVYyVdEuqr(8#xK8}?h7%C4?oc2?F74kj{uPpO-9l!l)$ejp$ORmdX(O(x&mT?iM
zOfT0?k6<4%!7V*4dN1mhwfyAv`;l4Uefuh=d?l7}PQqJ9#3E!T@&|e4VztCf-n=py
zW*-2Ih(Jz26-dY~rR2zTWa+AuFb#8T&SZIn<oN&i^6tcm6Ad^a0qI;aP9_?Icba?d
zBWoCICFuavY~1-Cgo;Q~V=}^0>I*r<EJ=%ie*V?SZ@(2Vk`blA6#H>Vjsf8Vcu@&r
z6=%tyDqKv*%<M^GXlwXsdir<!PY-wP`bde4Bz}@E-mQa^iiDPdpe6F!Qk_4uH&~Dp
zBp&jA3St8nb{3d?7L{`7%ex!T&&~rV-I#la3*tIE`qc{wtlwQ8OL>UYFy2+@NG}p7
zXYzI7hzR0(35Zp6eDV0pz4H!VW6TNsY}b;O91|0hy=lvl)#s9n0N@SsY#W7U$GeOH
zvi9a2R!}e|j?v$@e)FhPod1q`)Cw9+FS&umobfu$3vBqv<I@=z`dHpbjZDvmH$k*9
z@#yoy4-NdZ-@Bl&qEC289qY`0&HZ3%QOgtcUwH4{(*U-W&za{5s`~o%l_*=H!gLXm
zcLI;5YTrm4*1E8*;4&>PB;;AEnfED+@(0bfNwNA4z9i-!Z@QcaK+3r#%u&-771=(s
zc)+<4r8pj_NehQ-6Q?=4rHuT6sEg+Epm~rvPayR*0L?a`|0B8q%I<L)5RC58ot-8~
zK#i_l@v8T8kkrs^_!4ak$g_)uaR5=nMbov7!1jzPkV`L;o_L*LG3QHjK^~$|?@RIE
zvba8X%GUIXZ~5y9+3AlLn+N+nc#4Qd8&Nh=B~jXRYrC1jz^wX>37-e6OYbl<{#pCF
z!_$ETpNc3OPEL9vJaT%4?)g9*iOmKjKKTUSPo!@#V`>w@)JI0{3ohr+Y)wr|6D7)e
ztGRzMum7@(m|4-AqT>$&@NIwB`Eox0N9DaC2g+FBSacTG+&w$!9gG@g`n@>MOU$$&
z$K+ylRn>IxZMo@c$tuCyM~cicTQbchNML=$CYdK1x^2qOa;zSX)96qJ?jtprUg_F)
zxe!2mt)hCtl?h%e`(xYFM;?KX1X>dyK?w*&XFC|@&zr*p^0oi^_pOw(&jYM#W0FD4
zRrXGP>Ye-!lwJAhQ+-pi4&&bJ!opRWpIvK4tbi@}+whSj?Ks}EaWlisnnY_!b?(W)
zj(8TE^$!jbX%kGvt%H)1%_Y9xG!9p&6d>?gup4Ne_Yjp59V!Y+<EIe*{#mc)bYmID
z(n#i+Ok;vlvZkr;*s){R>`}wLBNoar5^ASiXRa*TG`$S*n)&_=*h*MLB(>=Miqn5R
z#Ipa2R$n*5#PwccDBr~r7Sr3*vp+25Ou}u@M&G`DbMLTCN=6tieNPCUL6Gbd6ntK<
z^g=t%Y?yCc^L?E%OO!MWUKPnq&%xcwGpHr)*Nd}?8(XncVx(b|Cpq<t&e#e{B7l*|
zu3gV!686=8y}S_04bDZd+nm(FHD(~Z+nkkyss<=@tK}Ar85p<$+ont4MV^o$ot%v9
ztwAG?>d-TRT7DEB{sMG5i6Z6l?ZdTMYfH-^REbdcgP(nRgJgsS1y#W#;dezv1#;)}
z+w6Q9xEMtnZ=cq1iirhC5(1zS)OXNM>9ZFv#^W|0J$(3-z=<fvIz&%`%miYt-jxq<
zt`P^|5jqk`Ttq1fxPM;<0RV1LpzHGcjZ;?-dwsjNC*JG|iDn*NIo-C_udXbZPlAM)
zKCR)<$-{PJwL945s@}<$&~dzw;cxgoltcRrCiu?5fDHFVzbHP@tiO6PB}$jiQkrlu
zTpxUR;=Jj&`Sp?c@!*#3%Zp2c*;V2qlO=%jdxrXAO12qFW$FL|rwI(9TW*FbB|LPg
zVICp^l}>{Mml%4lWV%jSnIiNkA2@1g!k<+r&|X_Lq?vMfuFV3;RG8Ww(MBk0VR3PM
z%>^r-LJ~?bD=rYyis77cH)Qi;fzCMc3n(du&eoHW2L-=<mLjuXk)7SeMFd`NuyO`a
z7f>vLCJ+TaZ`WqU7%@SiHxdAlP-?LL9|wL}9!|}4r#a>&UwD5zYidg|+U1{K0475j
zF@?VWNESof<jrZ67}Emx5CPxi$?{vg;Zu#;%C|b_E)O%l++go>mj^24r*RpYn|ELB
z4Z0N$LOtE^wHn&$2G7CRLI0;U1cu1#_7X|VZzZU<$=-4TN8RE*Ia8}JvGx9*NAps9
z_Nb%W<N$^Z`tPqx2v$nzEf2o4wQ7s@;b-Krj(u`+hS*pg7L$?dvpDtCGJzmnD7x`$
zmmJ!&RoNA19<u(@2GAY;oN(ubR;*pL6x6+j-z18jie$VwmTTXt56Ie#OiT2GA9>x;
zIS7;Xgw~gFBAuNi_%EX9;Kodeif3hIRWA#MEtOz@hntc^DWRcyKzAFtWlw{nxzRtz
zS}0duW*>3QHz8zC@q+KW(Z{8N&t}HGUZSF<dE(e*+1!0TYZMtlqGTaHqhMG#)^i||
zD3-6SYKXAg9(6-%^VgiugJ|6wUY<#4O3@R+t`V%L*H5O2OM5IX{+OqP54L(1!L(0F
zsicY5X4}Tk1zIEm3rL|8A~iIhGfxNaM-ac1#Q7fo9%{_QM5^<N+XiP+^~Fdn)9rt3
z-MSF`94qm6whyWt$ZUzs))8%2^@MTd>lzthJ%03bsMg4l`$)qL&o!TUhw>_V8MJJx
zn9a!<&rG}N%{r$)uMjeG#dgj^s)OgH^4~!;&IHH-pf>#odQ<pZMw&8fv916xNZNaD
z^kwzp$Yt4?`BIjtS!S!h@*1{-Y}a0)Omt`*q?{y^$sg!Dz{7-G0{d)a;|U=%Pyhv>
z?lIb}g%SDL=2sVvyAcW%<B5?H^4jTqoS7a@i@@^U0|=$m{u03*&{&k13%$qavC94>
zV{?@1U}dIF-~lTD8Z`>e^Qo-1-N~(-7Eby7fACk#fG}$-z)RXR4kDB!!ED`XQN&qa
zVd2#F>RCl~b&hW^ApyKvzRSVC-jQ!q(f8}E?I+QK^q1hET0)_7u!ub5X!O<~qm=0d
zLB+93T@zw<X)PgX#rqy!_;O<fts%#@@uH=fXaBY>Xzq+(V1aH?ossN9F8v{4<^Tw=
zv+AJ7NQ<<mr)T&9pq1%Q{K3BjPGc9v^lQ&e;O*5rtYgmD&;cK^+sF!6#&gn2MQL1n
z!_hde9bH8lpih+MIUL{rmHK&%9F4Qv?!<?WDp?%hsw!BSd!WtRB?bAaLE|7$|E4!x
zZCMsU0+JvUp3+5ApxCHUA|<W0>K%Qv{Lw7m3RfSIw+uXh_rD0aL>xf#LufSkD-vJ4
z*qPaCZ|H<W$K)i$QQFusqU!Ni6rlkY?9kqiHhYp)EN+LRvTN2J$tOr)8W2N0-Ki(5
z_36=7ZWV$NkFj=<AYvL*&q++T7(4HXsIn~V;a7j~7_?d_#A@_X9Qr5AI3->CH25oU
zoIi3}RM*BT;F@jfpI)Se_q7H08SNN#)`h5fzj@2hKQTGSH_k9O?3%bq>v`VZD(INk
zrD&Y!0s^KH_4`^s^1OLk#^qXxIOwlCNLFvJt)SA_7Ayz~o8z&PZ$Zc<v_fa%8NX<*
zIk9JpDc2!~{Z4r_0J&)-&?V*iJcwdbtEQ9tX}R{+=u}T0J$m$+BYv#2KqRhQ67VoI
zG}HocMegd4r}?N*jDCNRj~D6YXu?A-EzJyBv}YVy*R3&9Q&lC2dUlXf4V`G*yaY6l
z|8*M#=*Qt`^k9goD8g|8u|*PxrEhRB8ZBAH%xHU~#=%w-w;)ReoXnwMh@}UtdP;oD
zdM7!d2|nPKyU3*Xu%ZY>{B-2$?nZ#?Xf)Scc{E2@KiZ*3gWAduxinrpZ&qcX#F)`x
z9hmQ7F<UQLS}xM20F58J)ykD?9MnEMdDC*yW(h!r;kfS6=~t58a}KOK8AKFugFb>1
zPw0mLT{U2utWk&zUREPX+X?JQYP2Qttsi6d9Lt-)*3)sU<?`w%>8es+AYSD%pq^+%
zazoD`mNyLvKsHv3ze3dHP5r@I{6H?!3&>wqXmN!U6lnM$x8(&FEan6!j<-N0*iz#b
zkqW}&usqYK{js)GCr_jxBaOx-`bUpTiA%2<YjGHthBD_soJxf4^XIFtmZ#sMspZke
zl&!g>?Jnu38C*aL4Qd^czQfLU==kjolX3j2p>2P4aHcU-Pen;pU<s5KFTEYBRCvb)
zFbTB!lUbOPsH&)#oHquW;n)s{N6%B}4V0|LfvTD6uc`sOeE%RpbaN4q{8YL9wqDec
zUUR;^7ZlIGW#f-M>7btKWPZJM937<CYg}rTFCRG4(k_U<#~<w5{8{6Nnrr%KYi3*s
zafuwS9#BlQHR;S0fq8#R-_k87{3FQb5jkDtd54g)V%Po?{1v*HW?gAUxt0Dsr@=fC
zGE%qaAkXwbv~$PYIa!>fugViE-f}{V`kkZaPK1uSr0Q;igZmF0_{^<9PBX|yQH=)g
z#z_L#ApNn0UK!_7wj+Gq8+@Pc92FsEY_$V;plg72P4AKOr8e+l&W0`G?~EI~u8ei`
zYo|DN7qt`d3Fc&Hg_nROab%<%+Ulp?yQ76v-bJ=M%m4WNge{7UsPfZGmo6>zOvm$e
zOifRpa&^rPxkR4mb~Ky-&OHfi=OW83BqJl!ca?t<KxC<>96+4)a(`+>^RGP!Wtvc5
zx~O6H2aSV3E7UOwJNn!hlXIeAM7&C+njowNA^|m%+vI!h6q*%#wLb{pm2rv*xn$<I
zXj$d8b`!TvG~1M;^{k+VVV=xs(RY3Q{fl)K5Ir7NsWz0Y+ak2kD=L4s=W%GlfDb=2
z;E8|9A)raBLH=c$Kin-lNL2nGK0dAM%;Wder+z>1N6;_MIT<=hyvC~P8@qunsTGIf
zVq&=6W}D9$3kjg5aU{$%n|Kd%o)vu_`$dsF`q)45OJ7B(Se_wlFRc6bj;IB4BBmkQ
zsi%*l1VmyXqEMEip=`oOa0(tCLY87ZCY?N)!<}xxi{$ZuK`{~W9UK5z=x8BA<i3f_
z6J9LqB&qQ$*JrQT&U@@#nM>mw@upHf5cZ7ig%W$kKq@gUYKEhJ{Stgf?&^v^R}Qf1
zo*8y%XZwBmYb{~%x>$vfO*vpura?g@SQ;}~%n24m^!|%gzSC=AMAF@E>K<a*PT(Jk
zmeTirG)x!Dot`Jo9<r%_t2{`94xIMas<n0i<-?6h!K`;uU+)G7w<4v8lF(W0&2d7F
zg;nGn%BO#{%~c>rz2vjcFIE}n*z6kWTQv&P(fV{vZS8YpGS#VINQeOmFuT(kQL;2Y
z0d&IEV)7}(0GX84gBA<yH8r!Tsp(=r;!uzT4(4)w0jSlPh|*<M3c>r*=C=2HKh+0O
zJPT<`7`$8CA<*Fu6E6-LAP+HNe-Z|WjPsegH+Cag{>r#0sRQ;Q|43)EZbBwl8cq$L
zeNtcwVg5HUiQu`8kDCLK=KWa<Oz|~aNL<=6vd^$_^eO|zw#u)UUpn`cP;?!-8;`IX
z{FcW66B#Qo1pKnW)|<4VF2ts~+(yu-H5sbI@rDYh_(}%TAo(8(5b%>arU5Dkl3Xrw
z0>MRsTMhT`LN=N03)N16rndCsJ-g;sYf^uI|IoMl68Zoc86``0&?-y?JK`p|H}n_%
znmZ1L=?MGbAJ+hx5^<@7NVIPs2~u$@;geajap$Lg*G0Z5atfH6${6lWAo87IFCD+$
zo%vZ%18huxW}C!$f7P&ZhSoo!R4DZ=!#FQPz!se@$49OQI+-_~b!x9zVDJ-#^M_zM
z6;`>F*)~N^6$;2|p`pH@{8;4cI@f%OXD+zH_V81uPJy9*l(<=0Wna`Rk{#qsa`YVF
zG;jwR885HF*eecOY$-FKB5XR}xWETPz;DCv7yd*d%1avodl@DGv?KAQ<b5+}gR1^b
zcizYC6<NB>V=fBxd=_DXUh&bRM~R@CQeFEinbd{N2Y@@*aUKVjTtEBQ#4L#E+fBDo
z7)&TLz#WTQ){rxA-n@CS-?!qvxM{(6KGwn=!dF9MUm_?lef@9<gqP?S+5;wvt}cAN
zBNqA#CC8~tp7gON^tool@WNzoWo@lKT6{-39lH|lKD8<@c;Y<+g>YE;LHYt!Wa;#i
zDVt1FQ6+%OC^@$m2xY=Gf^DhjSqoPn!7`!qSV^7N4aso<?Su|>7+n0@4|eEm1xRSS
zZ-vvB$|D{r>%AfZ`mN5(b$5Pp9onNMD!&TKeV_Fbi%{>C@1ML%xF$|ez*3H1906Y}
zeCPc$B)6yRUJf8Ap7>0W2(ktj((&rT4eb1Lga}BCS!@S1w)?Uzl*@%(1>XWh2qxNN
zqT7_ucP3=4hXJ@ol3!Fk{d9g1oEk+}be|ceU==b_(|w7Oy(BO2;m4SNKbH#o2bTRC
zMZyjA(g62Toep2$6paqkoi2cc#)KS27<XXIIhR>96##8^4@i_dx>sbid^1ms+&{*a
zbqngH$`{;9xPYaVm9UIVUehoL%5??fpc1LH1qzQUkDRMY150gZTQUp<0^7VV!g`_S
zT<XVIW|cq~5mldFEJE91SO4@cWZ(qI=OR#pU1v^zW)CR&{5#@^ozwo!D8-q=&`{{v
zk_XQVvJcn_g0P5-%fzZ(bj;FRSZE7MTrarmVRUpVV2389R++W@lxCa{7H9^-SSk)C
zC^!nNH3ZKJ32`a(q0;^B65#?}@Z?=+&bs{d80jo-T&$JLV)@=Mc7B`DJTm11i|1vj
zFJqMM{U<|W(HE}2Ujpm$y5t69bZk65b6Um!AVn#9QweIG$)MX0R7Z9cc%+($N0hPy
z$0dfE@4P8YIkZ%{pvLT&463)ok$Ki%!n8%Q%R2a1hx5mXFR#5RzGukm(vJ94#GTHN
zDB-xK%A%_D%IA{Dj36m$W-GmbK%WMO0Js_3hQx>S(KtMWIP-Y_(ZVYebN(Dso>P5y
zzlpAcKbTMf2y+!GZZ7zkDv1|9glULXYAPNvMg|A_F!36H)BAJ<PV?Q>NHRTnQ(G&t
zCbm@M9^Cr5;7Rx#Lk}2c+n8Tc4!vVf135yi6E(b}#J5oG0e3POq%N0o9t2t#(KZqd
zx;bjL#(|sPno!1;yFmCKg;=n={>3RSR;h17>51bwonr;yx=55-+1?E_$5FM53u;>l
zW^KjDe7ds7&5I<Jgl=>dTTe^{!s|%B*@5yT1!F4dCkp^E5ZSN-jsbP{ARdL5YzHu~
z0;<k4uA~J&BW0L%o+dmCJg`E26KT(u$03hG6T#{&v3Q2+e0slqn`td&5{uCYKpc-2
z(f~%@e8RRsa47_D;ZFm{dm>w_y4|I)iy7A^W83h-H5z=QFo+Ete|gBt>(i&3BSS(s
z&ic<!^z@i#P7KnMm>ar;m3qjkp~{wB-AA$#lafX{>@&kaU`o~<P5?FW9a#rSf=Shm
zJg7=>$Kkup?JVH948$iu+Q@Y%r>ks?Y|mU?q$CoiSflZgxOm46O@0b+GgA^l9Npsd
zUGPcR?%NpIHtAK&{A^KjGelboI7Z0C9!;&>6bsB@n1GnUt3SU;S7{-nq)}W+>*d$W
zcKGn$*)D4E6j6dJ5&iyY6bW*H#X#0JaIy&e3^Re?kiX7)l?10pCOH{N&wc&3p(j%<
z>e)9|5`Lm(ydj_vXMi{}h-EaDX+-`<;WUCHfS^o*I1lVjyE+=P^wAVqH6dG@Eh~sf
z2Y;eauUfO=p#brM?{_OSRxiEii4cH?^LQJ5R!|>CO2@()?C)|yXxhM;AQjTcED|ZK
zZ8+Cp9#sg<l%iEzZZA!#lsPvFQ;IuEj<B?}9=1t*=EA!OS>Y65JxU@f<*QEr;bE>Y
zy>2(%6RhZ}nY7on!gG=fmr+j%9}@v@2I}G_l*I{hn{}w<^S!^+D!27(UWM)XEx9k)
zx%P1CnR_9%a%1$%or$E-Yxj2ckP%(NhlXFEPuUy3miOur3PIHnM7~`|PBO&zVLrt{
zq;PohNb+(rHZOPECQQU^)Ez)AISaS~qu>zhnm8lVKdpoFC4)?uvq-|t`5C@CB*GTD
zB2QuVw}^Oi;YTy_9^XFPJLcxoQIqGJ60EeeH%;Eh=Uz%S_pO0hFAvzw2p{tqaHWv$
zhOd>bnS_AN92tkUAez^XG*jw~5dhxYf*b9q6Ut?MeSMoJB=lDoSVhduN*T?c``XP4
z8)Q5%jm&;?Wgn?<OhsfIzN}=pc7Jj`XoCsw3OHR*dO?*j`6UwTaI&|BmGZG&<b%$4
zw;t(#4~i26Re}-Sxb)Q%rcEY?;xjL(45I#4k)ffz{u*~Co*n!8z2W(N0fM@rx-Bg6
zHZ*`zXK7P3Qxa!!+TI(L`V|vAIU&Rsz)nDLm$m?GJ7q7Q&+=VVlW7yAfh@FCm~em_
zgW!z;hSXzn?t)}0Amlpy;9Yg0#zrj}rXu?mw*C_GqbA*Jc<-s6y&o>~3K5O}2}(xM
z)Crm+<T63SI=Ans(-4?9<!cT3yGg7Wi9W(UD?Bo{Cg9`zyL`*4@Q*D!EM`E0E`=tM
zr!9@{B?bY_N6eHa{}Iqp?49RSJgZOI!#WgK*{ZDHsG%}-EgzRhS~8CdzpdoEq(K4Z
zNq~~t;WSvdi7?^1X0%dFl92!TK^aS<H~RAHp`Ks!(W~6-($Ax%gDW?sEKeIn9I^;x
zLh>O>h5Sg`YrvF(SDWJj@F)UAc5_YH)Dxi#rAVC2*k{{Co|>9k=6`l)!;a0(`MMUj
zCZ1i2jEtnx9{tx21OL5Zir@E+pybfBY(JX9S;F$wlG<EE%X5yn#Q1TV&HwZow%@ZB
zrw6%6KiRb)!|Y4<2%q=zNHCwW6A-rjG}2_V#=+^qItg9B`lm<LC}?MFpY@~Rn3|9g
z6RUAR`$%vJvtBiDf1LylVT{1)pY_J4U&f*BJQw{Zrx5w!gUU3-=t#6h7J&ya3^DL-
zE#FM5b8awdI~QpHSwF9H9zS8(cXPVecCcy!1jFPu+IE071@~wp+^Ha`m`fwKDwiQz
zt5MKuT0saBl8~t5v^a^0fJiX3$xu>CO9(d6APv-||MJKltr(k4d`hDe6DT#2xYuY5
zlRP^eiH`Q^yZ{_n8V7MTA6tr9Oghtmz*ufy-mdT$MHkF{_-cK1tU~L|P-8in^|>Bg
zE`J3kMkGhG35x^lWpRdu<n*5lHVFss-#+lAyg)dpQ9LoovTTXl8E~G5hPCWV^n!r=
zhOf^5wF9P-XI{Ks-*^4Px>2+Kp@j&>)-on(ZWiE>kp+JD@%uaM(U3u+@r~{BEMCt(
z4!i@`xq|*KuZz%m9ZY}r!ARv&l#@VDC-D&n2KutXLqaZymoB@8QYaS%B7y1GI5<mn
zEMRAss;VO;%UM@?QG~1jt>6aVNg5z@X8pMTWF}<XKmmg3gvWi1jAfIiR3lFx@19R4
z+B#4csroh5PZVjFtgX2$wB`uivIZ|;_)cNwg*LvYVMG@KbI2tigB?;WU@VtL+K`s~
zJwdwcIDGY0B*@+N*Ve%-=T`^Hpq#$O$U!4iHUD;)2Un*hp~f8zo;?p9u5@C!HFH9l
z`u+^K5yJZ`5J@m%c)<>fz>3=1IX)c<uEaZDe;$o@^}}7qK~veUXD}c@N}_+Cjmy+Z
zYUGx8e`&Dz|Kcaf(eKYtEJ_7hD-jTg0)my3gUQTs@gK^DfWK33de%KJ)hx`^>~Jdd
zrfT#)LE(d7cdi;OP*7F>ltf)+<-sj`v}Vi|2s<%tYYP0qSWu`AVv{9o%Swdix0!(J
z$zar3YW3rU6OeVPMEljHFA$1PqID3RhXk)U4Ia^`Y-{DIEZW#1+}}pdX~OqmNEHBM
zFsukZ5_nyTQVs6y{+JsSzOt{E!TF#F+-g~*2<T_R`L?9&VBEF9Wl@dIT~#K3@x$F?
zv<Us{;LAav^gk^(gkOD(shRTh>09&Q_g{bP`EAq;q{?1hKfuqUz5Z}%1~hxy?XDW0
zC1{6^5^RSWg&-X*6^PBqB(g$&O)}r#V`k9H(=CftgWtvb(0<w;eGRFgWB@U9gDxOZ
z41j2wXDOI~(SH18qC#P!$igrpGbl-j_qeV9pCzRtJwDSxV~0uvA|{G9%tY<Ka4c&I
zZb=hd=n5J)f{)Mvo=)EOjwRBre>*|24R0}zpKEfv3O(oO$V{%qyX&iuj@(tdegzEb
zN2XOrF{p0q!Z-w66r5D=si#ykR|uxlL3Df^{$V=rlZm#v&5U4KH_v(ROr~(t1@rZJ
zWiLN9U<n8aJVs<~r>Q5lHa3)$3Ri%M?wPpR@jo)r!N4vyk%-*24%&MG<CQ(f=u_-$
zgmkwREc0uJ_Jfizgg0heY7#6s6sA)c(y7Mh*PsaytGY$ma2QsTd>r9Zs9UGtXD8TP
zV$1|sIxA>TQ}jiPK*N03=Q}Vlk&K=lN$v&6ZX#Jq!M=UpF_I#1^?iCPL;^56oTLFz
zzj<R!g76WD1etQow|DYtH9_bSjW4WSM1T<!i`DSQ1=7am{GVpg-y#D;f{-F4HZ&}5
z#MlXuIP)<DQH^AGKgeib%`ce;%5ZKzodlKYj)5G3J$s_jZZ<;1Y0PsrpGNl-jr>Fl
z7fS}LzWpd|(zky4>fu|Jg*eZcnvjID4<>r>F~LoOQEq5xs7CX-N{9y)@~3_i8Wm*+
z)tl%5^M_tUS6^TK+xnn*cYtk9EgnU;6f|ro3>d@vwXGYl_%TALQOdESNtSyPyyDWK
z;o(*=i(0`CIem=I{=7S$7Aqf>b-07;geWL1NmQtVIQvlGsy1-$f175I^*85q=@~on
zy@2z_9D9=q2ALrAVSsUhP&NcfkjTtg5?hYhTD+XNwXNr67G@7?$k95XChyEt)kWik
z6&1TS@W?k|_^A_D5gHTYfZS^J#Cu#0!dA#bi%o;_{q%!EVq#)_3^?cq)hHmy0$7Y`
zuVO1G9RrZlf_EU^Y|$r?w6qR^0%^)L?=iuIi50HpmfF^}XLqjaK9YH)b-#tygSJ?t
z8$hR^d%?jn8+S_WCrXaLigV5g6TZ)CO^M=5M3&bnBs=zAmOTleUnAXWV$lt^-L-NT
zPr<A273Va)(mO$l;Zx5)laK;Q=8zw!@e|nVQRt=FB|Qg(W|-nNCE}#QRf1Rf@4+Hn
zCu&yI)(K+j1@I6GL==iQ!j)?pri3*<6YoP{Ax^CKyRhO*Fn{f1S3lPcY)>DfgD@cs
zJlK+DZHKjNy4;vT$O1}BAzCKLeXu~VEgv-j*<b{efszc;+b-;iESvDJyxGKr`%PO|
zu_%ee+hX|f+B2h_`8veh4{R5t@s)dT5~gUj-(L`;tssAzErJzapg0jf;+pcc!if@N
z93sLTP^qw$ZQF*QezZSVIu}jeMjg{q7|WU3w3_Y5+WpW$2)i3z+|RTA+WMbf>z~H5
z4}1T)5aJ&P0yzGU8c^qX7`yjBUVxuBi#z<ep2R=?x0=RZ*4oH>*Z_PHT%rcg`q5W}
z!bJDu>-+m*`Ix{Y28b{`sUo-rHYE`5wm5jiuq7I>loY+xVZsZHfXRin;#u7NvT0k@
z?F~D2gWN$Z-^$I9BK+;H^07<MG~bIGbI^2*PBdtjsxK}s;=A~b&fHSp*_J2sS5tvO
zMc?3t^H*5Cp%`I?D4UE_Oo;vHY@45JZdWAw7svpB;sIe_nJ;~oL&o=9qY%$9csp?#
zSjWtJOqzJnzf{51!ypS^Er0m|QhBeWqz-~t%w+?tf4b0CnlPxSNFRMoxWckuzsBHA
zdS)rph;W@0kjGLm8>MOPGpTxS<i2Ieyg;YN^NKODx{0%@gSPEHk}|`LFvxkvJ!+XW
z;w8j!*bs@48=<+8Eft>TpO<*EB<dO3XhVsFVS4rJEy5X->p5+Oc}s$f`;T!gL7m;y
zwL<XYTovQY;sSq{Hk%+}vAovv408k;6l_4ot4d%P4Y*Y6QP{%5!nV0EaAmg$KP-lI
zQ;@HgV1P-5ix8Js1)HRd%sI3itw>h_a2R4n`~x|0BinMw0;Rd^@#8j$(;>eUuy!c<
zy!k`igqYK|AzC1>nU|=r_^kz&9`q7S@q}elL_eI)&$f++INg4PhMVI)be8aNz}vT>
za2dcykfg0RtE)20hr0qr^hjVMkGw7xxry+$0w9RM&Ww>1ICP0I5h?fYr-^14EKoL#
zNxM@f=ADp<50<^e^m;$fiBBs(a^D|Yaaw-C`<l&qcUEXv*mJ@vNXhY8bnSvU<^+ip
z^8V|?_g_zgz$VrJoc{>0PhO|;y!y7^{FSf$EgW`*IArp;c|v?y!v9U6)&Vr9YR4&Y
zgz-S)5*R`ex%bisgp?j;LQloWo(Wc*dyE0|_rm_@CE#&;iQw~sd!g_0FHEI;j6D_f
zK2X>lu#JuFQE+C-(uqt=J~a){w6wHZprkzoPE^-bs%O-p2@xQ{=_QXk$=`vCViT6a
z?E8s6xF01c@k{cInMVEqSY03*<7MEUjGZKL^!O`?Qb$%MYEH-{JUZa@tKm8z?!2$C
zZLp_0{E2IoB$@;G@=Ay@N8pv8g*@A`D!>sw8bS~xX=v<M59ZD7N`g{Lcr-wnTcJFE
zY{@jvtL^j}Nq=$l#u_20nK3{M;Oq`q!JBX<2$&UW$0dPC(DZ*8%V1EMKvem)oE8X)
zNNM|UVr1~=rvg{+IC$wUY`gafwH-fS2wmOW)mMZ&0p^3YSMQ*WN0#$?R}&w>EV+s~
z<-n@`Y*DVg1Lw!~2^&pVznQpqploKmi$=ge0&C#DBH?L@2I?fl)yEHb6n0vypVxu1
zwFm=@BY0$=P)rs@Ei2EBD^{lzbn`7(TRpz;`_V^7em^OAX6r7}=LP{e^4aM-5la`W
zP7KLeMMl(%>K-;brn6c4-GdiNQj(#){pWXFe!%<Jqb9cFs&7?_zOWztU4`?!xHp6O
zBT|fCa)YFI&1ie|$n4?i!}b%oB|Wq4-sud>F&X>J+=-G3NY<f9fR5AB1KF9<d5+@r
zQ$nF6VsfVsg*qe8ag4LRUa2+4@$+MoxmHJCrk(V>uhWS_&*=fd=g*(F&u3y3p^yi2
zg`w!t<qI9~Ziv9)f!uNjF&L(O76k1m4owAoqfvw>EjcaCLBBLN>U9uxR_TzGvvKdc
z@VL?eAF7d^L!Sj)p+3Xq%3u&ZUfbD@E(}7fsm(}8Nl9tXY@a+cUH(3&Jj{oO@2IgL
zdLnK`OyQ7J1mYCW=k-Oj`Y0upu8UwlwR`svyh^X_u*3SBIV#reiK+i`khbLqbKakI
z1>eBW>`t6@UR<3LA0JP0<Z=ZE=rmpRrL|-(H+@rWDZOh#h$Ccq_*|*os~+M;IYLH(
z3_PA>CMT0hrei0h-jv{&qtW3d<#rGJ!cU?IAca*NDCchcQa}hVYVWDHo7PxC_IGPQ
zI`g9U!1zl6Ng<OwFt)ByX<x)xq(BW#D9(qS3~5Z>ag$u%L;0#s$OR+}%?yu~B5_n8
z&*Tj&NBD|GQ1eG+^z`&9&Xq1Tuc37VRna;JqYA}#HlC&1yY&nX<U|9DAL@zb4?cX5
zL<#;oLPtx^GP=qPQ`e`)Wm+AZV(J*wj=rgOyNaxkU`$6IzIQjV?q2yG`jdGHIfe&(
zlLEUb(0!#+!^<A{!|ME`Ye1&UU58R}DJqw@T)l>VB}uwGOyIzpdZl$xj@5HlOpwf(
z?q{>U1jaDCeaE>-D$}dF!AJ>kgamTQWW2Ma?)l=2LG#z<Pom@Ju6e@1?Rd8EHW35(
zYz)Ix_%mAl1<_xhIv9EKtf66Kb+n8G%wMOmMTi*Vq%N4=U;m|b-25AJ)|@4M?`|J>
zB#+oZl(Z#WEt-K#0DB}=RaIOi1q`kbHqvbFw|B6WP>hOe7%L@_3-C&GwL+|EWmYJ7
zCb?v6BGMTVp?JhY<iMIDj*yv&9%b+eerHWhV|CA++k-^z>Iz95VZaT`opEuw?b@Pz
zhq?i$Q0<bn7^AVtKL74|dhK$DYa|i&hDBFhi1(s-5<nR~G1ueI!sqfaf7~&ijjJjN
z*QA-u5pI`*3Tg}@3S+5zV%-}K(FU^r`yQH5>xeU=qA~^T`gwP&5!Y5c!$2C=Kx+!J
zi9qB@q2!d569g{r1Mbi!9+V(7A1#pYm=M1HYV`C!Tid**XsxN6;nYX<@v0%`3Fp`-
zowtRG<;r_vE*~Qo&X2ZB!fI|$7`=p0tvkkNWtHrf-n4Y|o}h59vWfepi0xqlb?c8O
z<PKYsio^7V#<6u*^OpBr(5aP59;3f{zsde`q(5ukKXZEeOGhb})0=0tu84gS8k5kw
z8r?|6UUbm0zGq?k*t&iD9@NZgC3E`p-*+`onBV9Xg4PrQgN{?n=kw#}+#-nf{qzE^
zrHU^YbqU+Z-H?(eXMP^=JR*G-{YiI<DKg4~!&9GPR&@g-$xoa~C*INyi#_G81|i=&
zovR6|vDa|Rvlgcbkd*w`L6WzBsiWIRpaDKotV}n>190YiJEyAL#py=kj&AMFR0jor
z=5l&R3-;>{580sD(XH!`AlrM4-24eQaoQe|5^p)4lwj&iGhhC;9oKrL(?z{_nybN}
zG~emxaxb;p4dEo^KEHOw`+>i(urLMCrfJ>09ZP98Sz8dP{}g6p^J|Fp?RXO&?DCQG
zh<EN-s@E#E)%`#=-YP1iS>?QPvyB**7@Yy=q!yZjq!riE(b<BdZp^Se7%5*x_z<%I
z8j114ix_E0%gclVu3V;cvF6jIgOimanU~@ugoOjD#0y1t?<Rm%ddDd|!UZQP#<g<a
zXBb>Zr(xeesiH!}c*)FjiRQxEIOa?e2M11jpaHf@c=nLGW4b!Gi^>LW*~_VmI8QYt
zjq~AnUPc44+?b`8!{Y?FI5_awky=khT0`epWXqw&Jb!xL_qMFwL-s{5NhBP<lRja7
z`25>zcNe}}1#a86t$om~y|uxH7Q?W@hH!AWKszsoc$*hxZeqesB$r}G<B{o*0cJ<%
zyj;ZCYefhV+c-EdwSq)ZmNUmmEsmo9TxY5!78zv3R^S-}Sj6^cy!jT;W*z67Jx!=v
zfcN)dANY8jT`{LdiR$pWxMO7Uj8fS)3%0SaYunk#fAaY)Tu@O-xS(qh5D<{vhy|u~
zWe~uLBkNKHWlhB5J9fX{E7VJO2MCb9p~5F$$p@jgYq!#R3v|2OnDGk0(*acBWK6);
zp3&F;!_v}nGP-A3X!mX;6a6Fx;_(lxkkF})Vd>>jYvucQ@4^<+>dA!BJK*kJXf2-6
znOT^9*u5Lptk|Yu$CTB-{h^}r;h*v}>ziep0@NoX>)iJ00>`Awk5)?5YsJP6p*VWy
z;Lh|+jJnP$5eo+=FbBsOBpY9)|C9zIU8$(VT>W-$Bb5gUw74#>Wstw--)Oe>j=B8z
zy3eRXZ=i~QdmYDcAZl9xW+(+QRuJ7(w<q`KS|g^@vqGrP_mwL{WxETz@kj89yx7VE
zI4uhm+J2i+@<S>vT|~Py2|coz)-rjfu`JgoP^65lLu7>n+vpKY4{he)fYG@&IZmuj
z3Rd&3adNJ;E-b$Chnza!m^#{(KJ{-vJw-qvr{U;a1TT;U#Q!oaEfDVP(MYjeCC}TM
zV7)Fb{P=pt&~OLx_$Q@O7`zGC6%TsQ<pYO$lkIB+%-w~B4f(eLyA*aSF^@&66`z_V
zoTe%&(0{m0tYEN=vL{N9dp8^*Zf4pR|EwxHd7XsW<}0@^q<{OC&Yq7@b+wJI@(b0Z
zwJiB0=9eCt_pP<0I|LKQjUuS|4aSZK*su@8@DgSm0s-dAFki$6*NNR(|6C*Q4K%Y;
z42Rs7HVqt*-Z+HIM+AHCZ7!#~gvZ^x+6}5yb74_$!iymLMb2}9D{{_lWZAD{ld6b`
z(Er%3>?xF_B%JE1@Cws_mqm?o_A+}|bbq<o*ZmQ}+P=d&v@R!%V6_h+?8(vAjnXer
zLve~>?i;ORMh)*#UL+l!ZPGd5x4f`0=+7Lyd-n}ELjK*vrFRckH98fJAwos;)7q>`
zbEol?k3roL$AFGk!<fxQR)-ANU-SeC<B;sc4R)owcOCujozT(Avo@k#s*<EOQ2tZK
zOggClkLbda7@Q7V`1|G?crAL-mIM<ghnOKI%rX|3?r{N$RgN|<y2;u;_=4E;+%h#K
z>gd<<iyuQJ-G&psrFYhLp6p#n0)stygKzmy$YU*!<z6#edlz2X_8R?rjwK1yfrjz!
z-Md%xbwBVibEJ|=)nAkvCe^)IS{_v9;|Q6SuC`;Zhijob@ijMbZZQI7r=nuw{#ljg
zQImhWi7D!5-1@hDwKAhoSrtn7;mHqMvJgbbrR^gbu^ugk#$x{UN7t&Vd;l@jay||g
z52v~NN5{0q8&mT3+4-Bv!rHth!tl-I3$-KdE$!DJ^1G|}xSwiisc#x<@1P~_bNx4x
zbZB#k59e2oW7-zV$+=Y3sGm>`Wj>s0y*vu3V-%AYlR?ft{DixFqG(zR1+yGN@y;S8
zo8t^>f1RdIPD|UT@^WE&bCcgEYNBErdv42gr!-pYJoi}Eq4OQt7#lnCKdq5EkB9DZ
z9cx*8&f3Oyp-;P)+WPDc?@kWBuBP4Fb6fAGDyAmvBW6ZG-JUL*Y0#WZ;A8CdLsQvG
zm+UC>nY?cv2v55KMhpqCrX@d=C^Ub@$Y>{eG`~*Fh)+V<EW^XH77Z{!v;hx~z*7J+
zy;^s0WZ8U<f2`<DE~b6OcY^K)Q_qZPAN#p-_QdEuQ75vXP&G%!36SPqoX!6kG89em
zdpKpSo+a_|yS)$9f_QN=tDCc_opY#hY}lGVZeQbwlj#P$t@c4(<`psfIJc+Vn93t*
zb@E1Lp7eh$t+vV~XNMdR*<&egn&55&6zAIbk)Qt{T#atGFIfEdRn_<);lEfVi>C!7
zym%oL#w6o7$d141jcPs=)EhTEJiIWQ>CeN#xBBU<i%-+c<g46rqMGQhWE<U2RQtQI
z>YbqAbzTua0o7fNlKJ8Z>9#u9dSX;m4q8?|vT8nnu{*%PyBZihjyV~9NDNA!BY{-~
zNW@z&!Q5Pd>KX}ZoItmbFMCqr@HC74v^qRWjRIFdo)#bMIVa&TnCyF`qh<Rl9J3Wb
zr5IX}kwec7%*A{4%U^3EN~bDC@Q=!>s!(NECP^qy_>^quh<)YCOc&}Ch?YtE6HrfM
zfiPh&aBLo=4m3L@L9f_@l`zky`Se$YRS+O7U2yl#PQIP404Oc(w_#+`0-PW&n|MkD
z+GGu~*_eIx?5soZ3#U4hxn~{oPfHxT9$6Ai;9U)9=*EMKCUdza9Rt}tO>@O4Izo6n
zL3J(s@2X^Psis3gb#BLv?ED?a=`mGv`FJu8-lm1KcnRJ@<C-|gI8&+S3}Fb#q-@lM
z(P^SdfWtnHA#)zJ{?xDx$(5#7v)JjJdP+PlJ)E1%HhQN56T0Y8SEvO7a2%W>AU*;2
z6`WCBD$q%U0!CTR-zP?Ty8ma?`|5@qAQrX?6L04xmdjRlW5}B5QULxi0$@YtfqJby
zhxL<R`*|b76bcj3coZ`_;aCcyN}$YHiN&QQJiE+KQd-JB;M(`eF$39S-2RoX+py#K
z_Qx>b?;(!njS)yS7s&-LURXs>eBRT1TSTVw@^Lh*5nl8O_!6=&ehd(5j<J6mEpUqV
zgw(L?`||m!?*FW(uD-qy6cguHW3XdWYb0uHeV&Z`+XW)E5Cpb$KAKa)!X<}ctx$v-
zF>(BP{s-Wuy(>EJ!k~_`Z)p?@e#cho1AkapdcOPdOrAM%7^%&Re#NJ0*(LoytzP~b
z)b#Uq{^XV>uF<9_jEAIw5ERGb)7k)dqD%=q*9*g>I`mTo@i$+tb0Rz*g@vhtdL1og
zG2tS&{s29fj{y57SGqhlnpKVC2?;@Xrk4bs#PK_^B6#+b9Ad`;<Wm5Y&oXp4+p8iZ
zdaT6GnYgHum!RIX4G+?cF)DqpB6LqVbWt9RMtNZpQv{QJ78v1}#6`$<qkWcz4}Yga
zoLVuB7(Ye($5F~+O!VI6e{dJZ(C=u$eFhbJ?h%z7lU2KS#}^e987i*|x+@E%&;q=H
z3r15^z#hG(IfDo!(4l_eyN>XvY(;*fE74M_|7juYGTRsKC@=4#QPC*4ph+u(4U!X6
zz2k?>-8BDOd+!+)Wx8#RmfC8!8MC0$B7zBMl^{W|6|oUTQGyZ`L=Y$u5Cn;~tpW<z
zpn?QJK}8f0Ns>)~hy;~fq$a6E0m&3~=X&kE&p!8zJI=jh-0vHA-|yqc*&dpzdh30k
zXFY4pHRoK`SCWP*+p<g2tinO=*#?2na^QsC;0CIQ1U$5RFapBey4y(DwgOOVem-R`
zMclO#5`H*&w}NT%))5+Ilh>Yn`?^!L^|+amyDYEzByHo!O;CYMtVSCEdU^N?#*NR<
zzlW{CT5)k-ynUXR=<TJvUO^ro+%>##h^5p|tPqrP*SG9qN)XNK!m|2x0xa`@i7(+3
z>u!T;;|R%F;@JiDhA<!uY%UNDzY1N#F5+oM@6de(A1~w2rFU$~G<LK5+YZH&1BMM~
z&AFfem>^Xh5x;ycDVIC#!*Rg|n^xQLk4y7+%g-@k$qVtcCb8rr(ESn<QcRz;=MY_W
zFNn-}2$7wIYUkBbp8ZvxQoQvPTLR8}%F1COO79(#%JEjlf(;2$L&Fa?`T995&to}g
zPBvs!O<HlL^w-|79v4wa=3*eJnwyeQ2fgxAbPkK_f4Y?t`}FDNViZh4DCDhblGX_c
z!9vFvazL98s-n3_z?XqG&2E~x*I&37o#}jZJ%>C!sfy^+*BI0KZEUvWW!FruMR)Ih
zljVYo79-sMsV2!{EsRD|ibBWaLVsalp$R&Vo1mG}er#chwA2$hyP2R78d8*ZDQK5v
zFM8`XrN~t9@?a4vzLr^rERV@rs22cQoYP0!z~;@W%gT^=VUy&-e`_U<(Gn9J1nl<0
zLRghF#btDRqpV)la4*U7VoJmIL)H0rT(?XsT`7Bku}O&7{?C5^hoQ#HjO!?I@Ds89
zf6g!L-<+M4<Vx5UwH#3n*mgg{848T93BDq1m;R83y?5m3g3_o=3qrI*5b8O2Fd1th
z7hI~9)A1;!1LaZMHUkHB-Jn%|&H+m*Xp@Nw9c&HvN@x6#DQN+uHvt4D&9P9BV43gO
z*NIHVo9h1t)2LH8EjD45t4yh<r~s^5?_o?uBB*&(CH#=t^@m5G3RL0tHt143u$|U}
z_iqBWV)_jP@{4bAfgX~}$NMcKKd#K`H&9t`$SdkG&Rwu2r0m4!_)|V}!sJsA?25JQ
zjm^0_#2eg^T^O<GC&y~>utWSUSP%!lkeS7A`&IEM&#W&wyX@iG?$U41EO(#d?pm{E
zMEtyVn}{X;0{+{3o-+m%2O@y3{D1owF*~zon)mn%d!ZP>>9z}amNG^1q>t(vhK4Kg
zn-TH3^cBos{g4^EQPn>PC&Jz^IVmRH@6BBzpzi?MMsISwtC%lbb(hMWF<-bu{x3MJ
zuvo)E9;u7Cy?*XjAq$Ye`J7@<m_zC32Q`UYw44`!a^XwiB70&WUOtgo)1E(8HnJC~
z`oBhAvPkr{qw$5mP6dh^+(pcNPbcOl38QQUVhBA5bI?7$`PR*i%*)o!n_RDb8jn36
z@gTsp_K{9}5VDHQ@xH<YtPiC7w6LHe+4Wd2RUFyPW1}3!#TyULL#1X(wIs&@$Rd*$
z&y8n%#my~$$Q0{DvgSpbb8HyGBwr%>A(kztau5luwSB=w0Lq`?fv_Aona%rMOLEc0
zXhK?7Qk(;qg(j$Atdc9~Ua*q(O|D-&D2Pa1O-k=En{q83Iy3`DDUcJK18<=)*KUM^
zJ+X`_dc-e3IqFqGME9xl8-kHtdk6I8k5Y~3-6CA)e@%G;^0BOZ9lmSmDCEw&v$)Ka
zcLjK)UIavE`oPk{!nS=wK*8|`h+}r`%%WWDg6oh*f1~pos1vsBWQ$P!CDK=J{ex_J
zXOEYnjqGD|=N(2t#`nd_KQVAfOKTBTq5t{`VIc8W7p}{M)d>UifJYi!mJh->KOsvB
zIOc#_pooAd@kDzvb7dFrVYyYkzY!Ri55ol$)cSmUy$A@~=4@^Bpt#(m*D$KR+@b2&
zdwi+Szyx6<pki-tPdNzTppGako8c4cNjxI;aH4;jU?IHCFJuB^&Adt08@3_|Y9?bU
zD8@HAM<!#{kWX=N*?#ozNSSMcG&e>07Jb?6=WV<$Y4?@KyGenNn)M7hb>!p6k5$=f
z$WG8zN<eBhoWmR9r5w1({QVu9Y1SKR0LM2|y+imed=JYVq4qQZt%#Bb<{U=`O54YE
z^qUtbJo#`XYr0}IZVX0AM8Tb3=$)Q4FZkN_D=JbzaKB8OvplHhU`k=8Q-2e#!)LEZ
zfSnQL=t4rqNPlIAV10A#5`hYEnoD}+x*s5m54uvKbl+S8CvTrQ|Lccn0qe|7C@e!Q
z!YPAKR>HGvBiBUZmw)^;A|AO5To$2jq-ZXIlfJ)zQW63PO|9nzUfI3UNtm)Hgz5t`
zZs2yd#0|cy+wc0<lh1Oec?voKcSYy^(-**ZwpxStqW#6Se--bUcGPmRA%8Lwp*+A`
zfqRVT;KRLJEqCTg2i}KWC_a6~yevPSZFb>rx$S13UVDq0wPnm=>7KtH`&<DX!as#o
zm6cuonrZaLPKvq9XgJJ#2d?(rn3(lKLIU5uFY7}#*~|)NML7MJxT=34^&&j>6v`*C
zw_~`>YPhKOob!?@)y{qI>1|mbTISDY{xS9Kvdma>WRV*Bp?dcx0IEi5GXLekXKZ>a
zN-q(jfC=D%+(m66JD{Vj-R92(!tKh>ly_c{$0AGoXr04#n3%zQn8Q|VD+k~oW)GH#
z>j&lUp%3y{;e)LR3eH;jZDz%x3MeM=(`im0f^4o>y#%dkcV=a=<d@4Fu{;LqoDa@6
zpjnsaq~+9suJtyJ`PifRKR2?cf{eH~HonPN)BwF$7EAEY#mqY{Tni))KikjG|2`Dq
z-{2SR*Lo(KkHtKC)QpIFm09sXs(!m8#PYbAK)@ebJADQ!?NCk$W^_JP%PvIJoBE^U
z$+ENP*9{k0y9HQ;Lrb)Wo_0$+NUFXF^t%u&vei@#K<#Tr@V(k(tkgJ#RrQ`;hq`Ua
z%*7i$QRjt@ouhOc^=|?M><<nsV{Jc2t&HfnINv5;(}Y6}iX-BpQXPRCeGv0^p|-vr
z82BjzCW{9}8t-Wk$`p!3`r$Vzu+X0kROm&befRL&bk?<$u%YS=(~Nl5BjT&25_4>{
zkH<J<Ci+ie4SP12Gb`oa;Mx2SUPaadDJb%(6Tzg3v~oS9e|ygH){Zw^0pWuAKQSlj
zlIY$?u1SrK&!B^xfvph%&M=Gj1d%};$j^<-F?3%&QkYyu;uPEuo`I5>a&BTt&hRdM
zkXCRG0aB*IlTIc3n+3-=Z$fB>_WxWcx@|USvnbmnSgoWBsgYlIY{PJ?g!>WeX99f8
zk&c=QFsjn<i@7N?&MJLDiGKwn9o7%<GavhMHIB=U%6LB%-9L{xQb|iG4Z&?#TGj|`
zW1I$G^0uKqv8U(O_UOnaDxfLVf<O|&W?^61wje7(YHFZdP3@k^tdpAMldNZkY&PA4
zEXUJxDOG_$(`+zz;Wcd71!?Io2j-dp#D`F=#KQ3&-h?&vtu@dzK*#NUyipE)$K|$f
zR#m%MmW<*Q!55VH`)wW0!L}BSjhn9eIHkcxzUt{o2KYikz>QNrmmcd-TOD})`td;S
z@f>>L_Az06Q+USia5x88TCYeDmlT!{!VddMycoy2nh8Orifq@IwGTmQIpRR-&Uy<s
z)IMSP1ixQ!Wv6w5j~TGTp7RO2*x;(5lA`lNFMV>6Kqi2rueFv*=aSAMnrh>+5CG9j
z5mvn$9UWafF07hzZoI&>T`wgnO1O28fHaDM&Nadxo<e7$IYuGTV-V};C0M38LGou$
zDJ#Qf0Gy!D8fFtf*$#ZNaV;!M?Zk0>FfQpBwfLYAlS9#H+ii*3pQ&;uO<#U(hbevG
z(rn7VmSlguX!Tqkz}`|R3(c?*vIhvur?%91Va~W(mg_d)2-RO+&5_@TE7FFYrS8uh
zB(|EP%u}pA9-HgR?Jz1)rwJE+fFX_x=FoElvb0<I^$<Wr!1l<YI<m6KZng<N4sL_J
z#7wxkei>Z`rM67M_8II7Wo1oG&DXz9UjfD2z!l0Z(EAVsGv*3i0ImJC8#Y`)%j<Jx
zyiqNPM!n?xNYgiR!5cTmq2o)%l#mb@sEeum?;m+eAL1eXd=0<uVPr_-&_DRD+IdM?
zB*4ql6UozwPgn)70aGlcrWodVh(ZDQjaoOv9;o_6J@2(*V(i|U@7u5lXX{b8)IkLK
za%;=Ao!E#sbPT=FbC4Gj${s1Q&f6zbS9Vm1`e~44<O8MR__s3W*wmMJ?eQG$;1zhx
zzXltk8Ay^Jd{pn%3-}Vj%mzkRxr7!G3XdFi6(vBF@DXxCE~E;Y%xRgl3*`XP$5iBy
z9O*#tQc9#Hz9#|m{`yA}p!RQ5rTzEyWX#S(i&vud0+%6GQ>^#pOo^n!4fJ4H^1&ig
zGXZ7#p<KTi!-N12k<(s8odr-)9<{}B!-frdF>q|ePw<;%|5p`jjA~`$Jy%`GcocBI
z84$p-yEYB6RZHuJ9aEH)*8hZK7Dcx)YN>~VX<$tJV^>DwfuO|9MM7l^fA@qlUp`<*
zSH(HNwAI|p_Raf6I{JLbz|SHow$xUFc5aL}--PD!!u8+xwOF~wSx}X2pqYJ*mPv5A
z;d72OIG<YyYTsi7y09-mF%<-x^-TJ=-T9{O^9&>sOTl4&d?ZmMR-D<8RhOD1<!}Pn
z0LL|bRR`^09syfO1vCyG^fx#~Ie}wu)3f%NM^8(@T@a^33Dt;t<U+bb9uBK-cnsY#
zyX{5e2ZV$OAf`|=OF()f0u5hou3-FKP}ivIkqalE6=b`mtbBEayfmz)tE&Lwept&q
zg^0S})--bKdfWoTZUZqngMlRPr4dbiVCSTwjP<-a6qHc>lqx?Ad!g3>b0DkJX~L@Q
z3W{Lg3pGWmDOfF=&*Xun&on33(^h=|`M0i_p@xQr!)U-HYcPwRek5%CU#>kBA5r~9
zY)YM{UtETsB@P|?Hn!806zCHkXwVQb*7l4)_dL%4^X>S9M~@zLyb}Pa!eJCUF@8%t
z5^{M14UIol*3n<Gx>VLr>Ve82G|UjEd6*M`>Js&mTU#C!XM%TV`XF`I@61g%*T>)8
zl+kvE_gnir`M>^H@bn|>>{JK$)?ryv_)F}ECB}ceZTqC2L;JUBnbn&qjaAbVM9XbU
z3aqGJQwtVnoHJDz8MRb#{PS8a=Pfx|OR*8xZl$b@lQpV169sw@teU86g+_${^|k?f
zgL;LRCZK4!|1V!!Pggfx%RJ*A!K$dH_|Qf+s71I*K$<~Sdb~^P1{*M(@}U^|u$H;?
z5eBMj8tYb4hDxUydKQA<8oY;V+}ic)En>@=Kk7WKE7n+d5Y?WdHuFfI?8K|K!R9J5
zJzY*nh&npjmfs)t?R)dTDxylowpzruZ|+IElYjqy(WeaNp0k2QdnQ?TRcGYpI!SzA
zNf9klT6J(oa5#rl=AFqJ=I<_wT2Hd}7be*FgrFd5>XG%||N3XC5fMvzQij@hDsKAu
zfoen7`oz^=7z>9FDRT73Zb0zn7Jolv-GC|eRK-8?IID(HET?Swpdxb|59jr}2iG!z
zBVt=2XAM7SILjV{+U}tM(F?ZnvjPSN+P*+)WLCYH^;K;`=yBQtgilXD7ZPah=}8}a
zhB@X~DX|5UtX<7&7B5+1Hl-feeeEOWP>9gjH^;GqI{%XC%wmf8>EKU}8E3xutH>~4
zRPwxh2=gEQBeUMqI)8RJxVC*TXPe-IslycnANJV{vhG~-_In&yb&vlmyiO*pLvf}N
zxk2htmdB6@^)0AU1|~)f6Y-2r{~mw(91m%cWHrfgG@kuTd}Z%f|0T``m<q1J%fm<B
zncYR_C;{Dfs`csL6uO4tfE3y@pFYk*TKL8mN0<bc4+9Sib*;sHTq^HiMPxI=wQwKy
zm`F`M31Jq2*SnOdBVhtP?|`@t_(4V(+GO(f`nrK)BM{Gs-LVNC0aOGn$jucGpGDW#
zWq>_~GU#>~DP#$?rsPhga%xY!JJ)hAI6^`~>awlZrv+lM79y2}W5{!St~cc*;bXAf
z7a$S{kf_I|GnnIHhRXT}=PRZK@$uyVpu3o%SJn4)hSBJUz;=T+0>%iMs?H}09v#Jm
zrV%fN5|p{_!>>BWA?{E>^sKYp#q5Hqs}MO+l)Y2$K_C3&nY33yvUVpNMn8s6oXIL2
z|7))M8+Fo3ok9XY&8DX%WMT?h`pu=Xw#Nt4z`~23`uzl(p^ERi(z)}`FmV{2L>8{d
z1MU<Y)(uoCtC0Gx@?5Z99>2&2nwH-Ajd+Lm4tyWC_U2&Pv>xi25b}ov5jY?U3V)SU
z`9BbfI?wnE57eLTMw{V{I@I|&FR}qMBSHiA+_UIZIP&w|A^`<y;W!!YADCUr|6#N?
zbqys(xFNC)rmRvGHtq!)#;9FmkcZtxVaTy>?x3s-+N-h|TFJN3t@{ifH}GXvr)PdP
zniPG@%tf)Na|U9qO{dgDQJo8t&^5ZI5|_3uz2I}85zadb^DC1_rYQ=Z>yd9E=`Qg#
zgs#C`>l6o^BYq-S#kghz@pw2mJ&NqjJ>l`znsK!Z<^-##qdfdpCmXmt%iM%$ba_xm
zm|($;h_A6X3$;<HMf;hf-?ra<^iU|I<r;?$ecXeq1@m5bpl3_xVcjNqYrO*p56(x#
z_>H(nBjQudk3IY$ljxC5lZ}!?hPeqd>4Ts6pLSI%frW|Pj07wnR(1*Hn~jEFE`iwQ
zHb@<RH(9b=*-p}@dobrMqGl9hN(`Bj-1bQ-+P78DY$CZ+YMvoZiz8>fc~kkM&3c{w
zf{cN3sf4t2IrMHt8>b%KK=}>Yt-EbbUS4~$@q@)hk%tex+Gj871%fG^-bpYHib(Im
zw|Ap5Cwf-nKgW5sdv`f=ldO~Tv)9PmdpFH__*&RWC-J0RnWlCgUhqR^>6|EO+d2yW
zfQ}tOMrg7NAJZQP)5eTWli2Q=73&^^&PN7=F9Y~BADy(!@{$WV+%9W;XX-e9QXEPH
zJraA?AzkW~7bx&b<Rzjx%D?U08KSY<$8lyQ8O)t4zg97o<7=aO!P4m57PkcRBY-<1
zd^%)Z4tI`aC1NeDmlk)IX`5*LAd>vW?t_j=ytP}_#q|~j9gDO1B@BB%x&;0@N%m{s
z6_daz(_1pGYGw{JuI{b4;0K^B;zrc`uWro(4W6JNpn<nj*=3<J+^Mz_6M1XrlUH{^
zz~hvcAe4ow$g<z^?Ox7Dgu&+6)Ov4p26I7k2A0~Z9M;k3LT^K0HE}E`=K@p9%HHQO
zNOZfEMl}X|!R65FVo*F5`w%uM$g;Yh`X(hK94$covfpIU)JM_LYbOwx^XP2%^dw9-
z5)2-)49Z2d()Bm)n}<eZ6PkX$v>iZ{<p<Tyn|iC@(-Btt`R<jcJ*EJ9xS2~S{&}uw
ze(BAwrT#Q^r3QPUDQiN*_E;yd1DofQroZ+BUQ7isC1YqmH&bf~F@6^;0_YaJM@+^+
zJRPZ3$P+r8H8L;gFIYhDZJw=J+{lF&)5p&zE<2$2t3m)1TARM0(wl~3u!RQrThaB>
zIAvn`pTXIJ>3d?F!k5Ld&|091oAoes8Vuv}H76X-;PCYWdpQrma5)G74c!h@&5>C@
zlyCe%ri^B4|46S|=#S4e9kYj?ohA<`AxN5_zsX?cVAn1s^@dgLvrS};Pt6oU!06yW
zeNHOG)(k6pmx$T(zqYC3Y$tFa0UU+43?`S2*q(NXDYv(uxA=35qYS%dA;Q5GWNx`&
zCq&-8Yn)L7SC~8hdSb#7N}Or(NuE5ISTpl`Lo&t4Vp0!$@J!H}rd%m0{RjHoqXLMv
z)~F*1sS)UgN!>57FI)zG%T*ljowoE32-Wl9|9!(1OhFrBW*vr*h5sJCoRuVi;6hy1
zOn7C1xCvF$YxG*E361UMw^n?@aS`#uz$cM_D^@$Lq}4*kNTg}s=K;pJ`On-COR>jo
zD5LWmXlcag^hsHUa*0-gkPtG@ztFbDkB7*fu37cEz`~DTC|sj@@KZ08t_%1C4VsP>
zUSn37M;`Jsm`F&<*MT`F*N+hY^keue$FXl;0>W;~*<1YUwF9Mkqi((Ivx>`^x;kAj
zqaSavE);k|gZ+Fkrx!mpKFHjOvm|eTAG3O74^KbB2;D8r329{Y7redX9wuKgm%#xs
z7nxz_H=Ibw$`xH49nKYp%G$SK1jbtVEYo>R8nC??f0vq>P=f?k!>pdpk+5vwVNcE4
zwY9Wzaj*r2$w1@%A8$L?F&tQ?T)*O2bx9tkVXnsdPZ;?8el<1psu2G`8(vo33Ma<Q
zf4)dgGW)mYIdY#Pw!*0x_Z*ATz74r`E_t4!AxNkc3OrBXeC0>l@Y1X3%We7BFAXw(
z><*3?T&Q4;*6i~P2wxKhO87#Nr3@GXnYNJ^$f%0Y;rXk4&k(!z;3*DP!9>^?XbrXB
zqhn&cF|0uuYuhrG!S9Y<{)n}B6WhB#L6`2Z$BI4cWsVeT0cr~qh+}SL>9fpfnbxr6
z&__O&fN1s_Ct?4Q@5RrHlLKm!#3O>4B|kxOs47zi+nE<SERCK2RYY|@6suPOF>ULH
z{d)Anht(FhB+$Ny{a#5tpA)%jN<HF2E-0DqdFT}_0e`j5!VMd<8Epk0C^gm)XFU1%
z_xxHuv}{WKUXcaJ-Sul-`ipvDpI@Hwj$YU>T9ImuO}@u@fW8art?wI+iEsq(&~B6K
zr^FkZ>78OW`kfzj#pqABXK010H6x`7!lGm-ezeT+BoB$!ZUd3586ct`=0EI4RZ^VG
zWZGX7PK3P}LzG-iUyR!LARkrS0+N(N<!}@DXkJ+QQ3r+T16X>Nw$J4qzcxD3U<?Hv
zBnFfUhJt5G$#0qW_xk7<viBuoy4S-Lfdw_8)pC`h0RmQ##WCh>tn}0?8@JJa+!8*r
z7c7Z;S`3E6;ygq_fY|)>BSbLq%&MXYfFoc9CFwD_-yh}^k?EPJ&wbId6e1wC(+&o<
zCrGqK4CrAbIx7*_ebHgCxWjy4S$T`)R|lj-^w(S4f=rr#O<if=cAsTxJ7CU2LQRnR
zcu`A?a5AiaFHGv%g&gIOL}<kp!j2LC*5Bb`?f@1)U<uiwU4<mGYeL9BNvo&fUQ`UK
z9q1<es3)GSHmN2$oZD&E3-8iTNXcB=wuF1>ol08+R$-sP40ahdbu*@mcq0h|A0n!o
z4i{?iHJEM>As^+XP?>9LX|-lt*QEX_V&)>)x)h&X#}bPvz=|jEfevJhuUm@|U;;Fa
z2nqfa#7*qQrC?41R1xu&YmZ*hE$BViLNGQF2OkcOpw^A55&V*Y2h)W4I7MfdiQNSO
zk19t>A7;adVkbE)poy3p3d-!J<8Q7Z-w*)zcz-U6iw>8-_d+yCYm$W3D*zmeG54ha
zZ(<CT)Ds39coUDsHx515dj#niMxyaE3@r)@y9He(-B1AJK`jN0om!sl8{I)q$_M;G
z*KqRj?ZpoHE6%<~_Q)qCB_%tAZE-di<|wot)@iD!#h_*5>De>bv*Oj+2C0(rsOB#>
z1YdW>X9u{lS>c*v)&@@b{=;0cSAF{X&WUFoQ{U*+v9no_qnY7;rrNrp%C1G#DNbYs
z*w7~L|4<!tHCOI3i|VOVQLdaaSZF8p<?xoFo&=Yg07c&RjBCI}?qLTIlgt>jC<Z9P
zT{A|ZX8-a9+#^;C3Bld*86_t~Wv4+lNouRsAavR-2j2Yf+raAu0C6c`t>?b)o7Vk7
zHv5Bf{*R7I(YB|jTZMm^lWS8OIEoCe>}m!#*ClZKq;(woz^blm7l^SEvjKI*<b~J6
zloE&L^p7-**SEU_vPvz2T>_HtSK-Dr-_$$h1@X{pYFd!cC2Rz}=quphC_>=#U@I(w
zbf10)vR0^HnU<MMnFA&^dQyf>IUO47Y=CoX<dp&nUL$6I{QErX{6!Zy$3Y-U%pOLR
zeoe3$V5(RHCU`ub1LNnfr{Zz4FO{}BOn4aOd^oX=W`94y*8UdjHqF|Vvd-c9q3pn(
z&CGV3u_xrm?`ed&+`nHN^S^JEF^$eDgct#=Ux;FW7=B7)fRTt;zOO0A0OqM<WAFOo
zJE^NGm?&uYS-92=6puw4v?VjxC^^-M_~Lz~qpg?Fuf(xwtYKbfom1$-)-a{7J)z5|
z{CIxeyhXb-ez1OTwIfs7D<W?Tzjfv6c9E4wBE9$mqBjZHZ)++U@cya(y{ACr{7p|!
zXef9_uWg*VR>t<nKSRzROLudB_HB-h`hDkf7LGYa@orf$50Dt>aW&5>xkSeS5%{qG
zd59U(O7>vA)~aj&@CDdBvnT-_Q1@<Y7z$=EK=995`gfV&{PVrg7n~g^^zI_T-=~Wn
zxNLPRJEgkKF7W#}pcJdg^$Hy*hDqat!-}aQT+k`8K65}1in6TCSIGGKkDSPYY4yk9
z4kKQAfz){nsy+EpNXYiX64nS2!ief~r|?Z03Klu!3-du+x+s26D+ECrT&3hv)0SEQ
z0sM61?i3;=2nF||8sV^sj$<GM8{k2Amx|0LB10mHUX-4slF|74OeP$j45xT@(w)^(
z45)KC4ioV+%ba?_@*y(pOaqli$=ESVq2T}wa;NlOi#|YTm|<*9sj+ypBM`eoc1>eZ
zBJz~i011{6k7l{uyG@(G7_UN4x|wNH0@v2itr@-Ch?DmU`d#Vi>D8`T$ZV-osX4Wl
zr5B969Fzo&hAI><HF>S)4V~<4HtIf=&af`)21C{d+g^Fs<qu2G9Sz?R7_g-zd#gl+
zb{w7Yl%|{8>AI&^smwy%M@cxb5S#H8{0PKh8ehO$%iD9r9pRXlPmpdvwm7U^nC3Q$
zBiS!=J;u{|F2(P<Jh<kf_-avKZhe*GsoL=!fq(KFwZC7rGP~6S|K1|+&h-jPJ-v^)
z(V6A~4_c#?VU<Nx;9lf+Dpa08sgJIY^J_va(7W1j#)%gE_P0Me&OC||q8B}_eCSF9
z`S|D*vjQGO$=+lg29=8P@<`o|Q?m(kn*AVa%!6OTBFf0(-3A`nR2(tOh5z47111~1
zHhFUWWDZ!u3>g5=Umo<~X1u*0Efpj~3vTVbU)sv7)mUPy5z0$dI)H^Ga0mCo_InNC
z24LFs(tH2$XJ1gYF+vJ->lCrPXBaRrXzAM<i_=-sTAG>*2?wPZ2+H$;&$jgSJhb;d
z=j?F>&BYVQ#-em4TaQ>|_jfDi`rnZx>Th!A&-eZ&xvYcmnO^_fy1%32p1)b22mfvh
zT{{T2EPcSg?OVhol};@ktvmB^pA9^;0kEBPFhcnQtrO;jpBS1t@{NRdZr>sWb5YdK
zFxaC`6*0Wf?ht%2!+<jPYg52NBFL8tNcFMWrQdc~!f_({FlM+?Y(TY^ht?ExQ%hCA
z2Pp;ABtVt8uxfB!C6uQtfl4~#{pQF<&+6;Rj-TaeJ=m@Nd9!WP?Jt7)68GO>+v9__
z&q0^#I(BnQRQQL3mzRI}5Er#p?s}3>;f=s0sXknK6cc{#T}=A>zv9#UFUxYh*qKR^
zMc9>zg(wlHK4!pywURjAA~2*x2?CDL;ie@yOA)rIBg2$T!0av02qLq-LNZKL0ey#=
zYU$cEbi-}YMxsi!naFZ$)NVpl33qkk6B33q{7P`*K;sPBtsY4@VLg~E6I8*<5l5^l
z!Zw-iJC@mtxAe3;B<Varrr!jiLQ#DWa4H3o;eyRa)N<ksz6ZL3K0UCLrl<h*`F%{v
z<0FKyjwbkV_ocDmr!rxSgjWa-Onjj}IrRpYL%axj12wyGzHDq^wllw`?&rxh=~T63
z(9GH05L7Ew(u6&N_MZWwZ=zfd@(2}FXbSK>0Ig$q)`X8ty(h+gD2d+b2mKJrOJvDx
z2cr?vp5;?AZneEZ8-CcY(U@F89o0K(=e0Xf>@~D-Gh*STwR;@c+u+VHd~vp?hfE1s
z26XljP+M6Y2WXBV5kPoBbV8U1{%H=^xT}EW0Y&KEEt8{N+FNDf*P2v<etTO|j>|B$
z4hVe4HoHP#9kSyY2Gf#sm*}7V6<~ZU&fi=*e?`MxZ0T5F{k;2!Oebl(ws)Pj;P&!c
zxxbn%!?gQB-0%YzL;|h<C8#6Ke%)D**@m)YmH=wjDF-7Sd;t~_d{gJZ5u1LaRR=5r
zW#w6%(V4v^S?P<P1=j{;8?(m;Url|u^#cEllg%AG?_W8)Qekx!Y1`7dzscv`hO7xJ
zjhdj8-uMdb$5ByHs$C#VG(ppN1xIB*B*hC+gPp~sD@E!({C+W$Xq<E?h`N%}nv~J^
z?tPK{HrP=wTU?!R7GK+I$r7<E4Q|gON=>(0gg$dEsY)@)z-hR^n&+yOnQ#UXh`x6I
z4EOVu(s7VIR<|PAQHec-lLA}7eYt&^22#V0*i-`L`wt4@uUXd&ksAr1_vzpSxqy!$
z8E-JSDP<vie4rG$5+7f7<jxlQ^9c4ltYVaPAqKax=mIL>C+3qg-YSs*=?$nRXhw$x
zbTl$6mwf>bo>(%SefU3hEdv;BvV=q#q!|x1Wez&F2mK9pL}wp-TT_p?Qe%hY!5pi^
zeQ|G@_o?ytuwzMS1$g@#XsMu|Cn3?$=|+i<Bfd=2{g6{{wNBF2ZGZcdWB+3;FLlL{
zme6nIC{>@qmeUR?9Dc63iGOEj{QI9}|0VkU-#^zWdC<+l!XOUu>VN{tjChFu+9HJL
z7X7^Ax!P(1S8Pxoe@ZGLoZtb&ba;OAx94gXe781v64V0*h)hO2@n--|5U!5Xj9!mS
z+mQbZrZ40pP=x<Sa@Rc5Xn2SED4kXwVz&g3Fvr&ak8_Rx{`u^gY4H4}xT-%<oCu8s
zr4;d0nXCZdu&IG<@VSrfD3j2=M4uP{=4v8$3`3K)6qX5biCxHaR|2-sCoVftL3Y_B
zEMUM#4<7h}zmhbJL;#fEs3eDj<VV6=8VdOthexdghuw>y%DDx?HMWlOvuV~>e)AVD
zhQlw>2is?zh55^J*i?}Up>lK>ME<5f7N~m$sLQPb|5>q+Ibja&c+Q!O!Fnqx!VJ2>
z&anw*;l5ZxqU50fDL&1bfqMyPXWB&fqFxVjWPyKZA~L$s&1t5gcF&mvlNIZOkO2Ll
zAjO`+38J@9!+;oIn=qjXfbVeank6_WK)MhDseLJtCXF%OpqJF0W5aYjkzDx7_vENl
z4l%(B5JGipk86*!&3{rvzzkl93Xo3RJx)X0V->m;KZnu50jR694{geiCkE_62P&&!
zn1@eHDbHZn5y8-)8;#n;(NSa-hb?nP21&m>Tc-9}fZ$m@G~+<ZgmrdN_oI8YvR%!?
zuO8=8MN^?E<2sAS4U@GQD;sf&zTX-f9doKrE--sULtjg7!%*(R=MOq$B%Q(%^WEol
zp#<Yi6+fa=-eT|T+8ef(d%5s)RQb!d1N#g=g=cg3E=={Q^K+V6Dfy5aBc+uvlzO}P
zkd&Bp#d!HX3#CuZT5Jp65|^hbs$Dv+k{jwXKldqUeeBz;wa=MnB>g2UC6O1h$=#r@
zufcdEL$Kve(9J+A^HDS2?>P#BYKCFgE?ejto~TO~iQi(@65iDOo)<>H8K}9RHMC3l
z-O}FE@7!Aa=sU0v*Cmx?dwQNstzVIg$vt<1Z|Wo)?+U1N8VZzA(KvZzWz0z@t#EP6
zKDhw#9J#yC*y9{C?uVQu=|AWO;b}u(Y%;)edxEgC+h$AsMvG~W;cRW~!1ft{A|?+B
zM&L(9%mE1cIMH_u(3}rAgB>x(Urzk6GqyU<)pBo0?u`x;8`JC!7Ds&Qc%YGpEPl*B
zx3;22%7JHu)FUY4{ukaa7G2Y3EiFA70`-;@s>20abdqB)<lwl#4E4ZioG!HRdg0!f
z`|Zd+-sN8{i5g0b(kwRNSFl+y02n2Dzt~D|tO3*;VhU%m(M(!Ie0ngrlhe38$b8U0
zkF1xL?|iZo9^2yJ2QI;o!P*@+lBwq3g{nP^O>}b@ZfF=(4-V#R3U?)9&qDMyE=gG$
zzY4z3eQ?0C@_Jgsr5lfoU%k~D5r4Q#%9Qu$X1r%iE4zamziupNq9<JC^#iB4XjA%z
z&<P$+J$`bgX4zAI`Jpf{ku=5klz1KXd4D~v2flMAUB6!xJD^pF(EubBS&}|W_csj)
zx$j&tFC={05zgp<qp1~}h0cEB*g52iCK#gvyAd>O6>fvT99mX&4gCYMJkivV;dbWN
z;EJW%cixvGwU%^*^#<we0$#J<SUGt&C!E?+>|$Po2OEirbhEqNp^k(uG4E2**8Y1^
z9VC04wEwkP{1}?{pIY8=E22>TClpC@B&$xrLYMG}#nI8GXmG@8G>9C5KRBpZkyF=O
z93kr*fmy>sLPVKEc6ai;w=VvfMSPgqDS8lJy$f%U&Q8<#D9y2202Sw{Cv~LBB;x_P
zL8I_Zi{>5W0s5wflGp)_!WsZ10<)g279w^@;Y}&-<M;~7A_VGXj)NeWV4=mCaaL{5
z9%HD0EXus3Vb0;59AZ;pX{ikfCXiT@$hK_EGtto0N{(HiN0Z3u@n7h&<yzNQkhUWM
z3K{9DIPkDAFLfnbY-Kx=Pbk7NUN{h|8+7z&`fild!!dd>o)0C>7^GIem1uZE45yY_
z{yxF_6XaVqTvM67c!7w^p#4Jv9H`$PTEX;|qORbTFkp$q{m?ivQeEjX1lp0~xA(h4
z&P?k7q}2pK9r?ZEY9YljqbjW1drg~}3EJByest7(jv<!wE`!Z2;?6mCc?I*wVC5+}
zXJtT3OpX1G7|uX#VWK2Z(L+R_eHGk7qlx)M(=ITe7|POJ1qS#s5D+NqEK0x6=%UcZ
zvq5t3=?MeM{v6An{Xs#N(RCqfpN~d;NwCZ8dVCJ!3WGyqem9c=9w}}V^T4+zjvcA(
z2;<4aXD`H}@c}Yojz&4mfkkOw5xpqhwab#)Lq(&<r0HTJ*bBZ(R-&%|jeGv@lKKA;
zl0!+OIg~Sp`DpF0J9Pgwh~7<T^LkQkJvNNM7zy8_*@OKASc14H{pb?9Ez;DPD$)&X
zD<~hX)HE<yfzhPK3~`UbI<QeX!U;>I79`X8!?CX4GsEY)uqs*AK!~=GmKjvRTZoQ9
zdze^YDLAeP3T0FesHG&a<r+R`_uDA^sW-yU`+KGA4f<sjQ6-7e0S3uyWFXY-p(J9s
zO(tg<7SI_I#+5j$8uV?N08?!{vGjc6j)B=g1~_e<(?Zr&Hd}WGijRzs%M7Vqc5%@T
z8N0VrF|WSXFI3gz#29F0*OisCQqjMaj){j)on)1cK`Jg)ro?#<+g5f$fZ){v<XSq`
z;RyK!Xp-E1kac$zL{?VcEE7>>79hgbM!V6)JLBT9*>c`<-O!m<#V!l_wC$es$Wk6`
zz$CwHamR&;J$X<j^7loZ<Kd$G^xf&Ab}P1>Y;$YzR+HQ=Kpq>5(|@o%3Q=AHnk~6t
zxwNx&@BqlLjYz3tn#)2g;aSRX-3im&5x8Sgi{*Ge?icMKum#(ajBE=#+zW5^^vVob
z*1-v*&5a#c(k`ZhuivZe`a|ZmDfmVV=>^>TWu#dk(JnP)oI4YC2aMG~x+bLRuTn?S
z0MkkY%4T{1X|-bf>jIl|&{d}Aa4V|;BQzbscYzLa5&1yT0dTgvb}7gQDMeG4=+8rU
zsjwis)Da{$o0mU{5^b4OuMDpPhzf9QIb@_8(YpYnNNE>NgQp$(@WQ7!QNghm_Y>_C
zHEPa5IiE{(G#n)~yz4M%Z7DFxe@kJ7%(V(rjG!o?^2dp@-y$%+x4|4ex7o#$$fDk*
zYvt@W1H-t}YH|4uwGytj+#~Gnz?CCG4{nY9xkb$G?k`riNC=qe7TX5+=ItO4i@Yt<
zJ=n}HFQ-lC43RhBD;-muB9&8Y4-wy|7%N*VFu_AyTKmY1;;~yF*KLPei^VwaJr%<R
zI)jMgb{{0t%CGmvk4z|GkkaDE{w@Xi9r*lh-yevMozkNs?uQM6{gQS{{7thAe|ty(
z17*veo<sn2LAz7@^sbhdNV5|Q0g&rtDMi`5+m!#BAZ<RToeLIOOO|3V#`LHYN^jZ&
zOzGp)$Cqy2jPF$fC?q3mSE4hZD;m!e(__B8!T)(R?8Is~NO~2A5$_Fgo=wIQpHdou
zeHMz(U8(Tw#bEw&yS)x05aGR3+b7uo$JPJ?L)`008}7{OlbRsQ&sIQit&jg+a)nrO
zYT<cTbJC1BZHea!Z}=sgRnQPjoc!Azkie*yF*pIgO~dCFZ|;F_CXyUK;+KK$d29M|
z+b9?|WGI|&d_Gxw$Ep^S@dhy94#V>W)_BmR5)U@?n_9OM*SgwP3QPJ+SrD!73>R(d
zw7yM)zM}j>jTaZ<HL1p!a|A>Ujy>DJeK^wS{pJP^WcdsQJcntV%JK9D(0uw2E+`rz
zT&ubj^tA+!8wY+&<LBX;4#PGExW=~L{k(7cAz%PamityZ_G8;s8iBNef)6sq)nrtL
zCNtAgpf1T_c==@SSu@vmU=+9D!S`Fx^p9KcUif16kG~|Dj->xG0a~Dc*AOtbk|Q}S
z6?j`HUalLMp&!eb<(P2*8d}-j;i6Zne?xr^SuTG;dg^eM#?u_(4&U)PV^KVe`O>dc
z(K>;nYD$5nYcm@m#`mIj+`49?{>wMpGYA8B!gy%^y&@lfcYfLSrhLrZKWOZph6!zg
zy1o%?g39z(lg=Wp`5d#aJKhql`8!PW8Cl+PxNA&}^VF9E(=E{`D+FBJPM}Am9XVc7
zwZ~tWJWQz2BaSkojY!32MgX62P$pT;Uzlv7Ix8QNq8Oac>;sK4=Ie@9@Q{cCWKGVF
z%Yi*oE{Q=x*eL}^vRbsW4S8fyf>zZw@{>6+v}>Zpb{sq8!8!`$rxYKh>W?gS&R<Zp
zs`29Wha*!2AV>QmvP4&un|`)uB^?5T6JVY%MGo{E<Pw{x&;%w%5@wWv`oLI$+LnlP
zm~FnbI5u#U+ajvu1*ztGA;k>CCNKzf8@<g{N0#%b;|F(ae&Ax(#iPQh!EzHwMtvDI
zw{urAtw=OvO?h`xp<p3Tvq(bh2GJfE6EP~kZ(q<#yWBN+^M4Mz7iKsP{*vUBHla(7
zy0C)|=(2+kqHMIk%gN$l9{A1V*3`ib?#8)zohs0fak!7K-|xKh5ZMb=+sGmd3qTuB
z@{y9!N3}qGKX<$lR0|;p-u406tA)tQ+*VU6&A$Ty5a4(LMAA=PhXB7ljEgH)ZD>&!
zX9A$~S-P(hmEq;sMSuD^1*Zw_Thn+^;qAcXKJ1J{ZWmHh+30I77Tv?~`e~b)WwhFN
ztI!vOCAhI7KMx?rM*)O0<XwfYE}!AUWB`*xRs|FY^9HSXH&+A_uR!!KUsX3b98kRX
z(B=4p+}!Da_E}&*yY!6MrU_7U>V<z8MFnnKqZA?`NRN7D+ERDBoRoWM%=O)1u5Y%D
z*R<dMBt}feIC%4!9ydzolK~|8JTRIx!ukD$>GUDsFcKU~L;wVJQx4I|FRs7AyHRkw
zi7X5Bth1ybHG^+2(I8R^2Kvl1bZy6nfLfEnKXJ&??PADF^M}1X*ao3+EUF#@)x}VK
z%&Z?@12=A!4z98?W%zNuEw;~!{gTShXRb@Ya7kJWtA*}DeFz#0EvMPiD;MzbH4Nv;
z%sBiLY@<Bsj?k9y9PSKuCN1mW<wNG28Ji}EjNveXu4W0x!ThkAACHs;1`}u?-VS7!
zI*#z;j+`<7Qi-^l{?89C%U?9QY7OizZW&~QQgRpNEMkAfQItNUP&e%n1gT`|;}eCL
z#hFgMFd{$Vwm?-RLw2#C_pd)~n)JsGA9tWwv4u&GcU<Km9ZxLOV<&6Xr|f*yCyPZK
zYowMlf$yDfHgI!;ph=J8UB$_Uzn%YQJSUanWbK`nHYmnT1J8m;vJ{%2Nsp>+V~-@3
zWejw&SS$Nfm4DR~Axa=<X)-8T5l60qEU@oc#>KTQ!%C2-R<}}+?%_1|<9@)Pf^6kZ
z^vp$`XU)0mHnJRdpdx-=JpSif?~$z5xA|4_x1;?$mK;0^J=rFZ2XIp@ZxNT~{D!;N
z0KCDO<5<8JXYe;y9oXnWy;@R3;-~})A;|r_+Xj7wrB}q1SLM5tyb~kP%z6Y7&72xU
zLe{??hVkYqQbZ8Y=jn+%$hJ+JrmLQfEfjBW$vg_Vk^i&?4qzm%+hAh&q9^lpU!o--
zh$*Fh<elLFH5u_8ku}r1k=YfoWQlf_!bQ_(IYz%7owT8TvlytOq#5f}dJX_9Jdb>j
zDRLr_gcY{J{k^xSRPzB8up50Bm{DxRu0y6q8IcQCpA9&6dE{|oV2yOZ2dLwNBb@su
zZMRL3e?3W%&>>xn2xmzib5!J`TBZyPrD2|rz!HW+41}e604d)brKZCyvEB(R_H(T!
zwDMp5V+9C3m>*G%*WvIPOw&_7ZjF30+<6=wdy6MM;4Yu~Py(Wy?omH;Z+$-=(Z%;w
z#P&$TCn*X?#KoZ?L=F1wY+oCLR6LooYHP)Y{cpltuJWwi`a^V$K0%>upFN!pTAB?u
zvu9h{N*+YIPYO)j(ZpYLv_#c^Jd0<2oH@hj+ExoP;o_QKg3QqBK#1dH58|ZhX)Z4>
z56_r)&R=-;;23&rW`Up#zaw>F=H!A$E<WxC)bj_&?JCU>sO;DEs>yS-Oa9iY+z<CE
zo(Al>271U{jLf(x2g$Sw%qy%Mu9O}`w-WdRLq7YnzbnBBcNy{2zhsCP{En-e+U7>t
zy$+MzTg{mykz@=(5PWR{vUqT{jPNKgJxF{zrW1lk?t@dGq>GeG_vT8tZKAdokpq`Q
znlbTWI{O_t8*D|l(S+!&AVdc#IN7=Y9w0vi@(LrpFCoh$zarPAs|+G>+_r^q1NYGf
z?%w1GgG2LPXH`57d$}{8=UtdK+Z!BS8DG#pw}KBCi5PNG{FcI|A<pJoWA`rqvuY4u
zv}S_CpbbCY@Sgb{Dqw}|{w|XJU%D^zZ^XASKZJ-6i#r8s+@WyvW^@d&qCtJu3&Kog
z&HXjL$ryxd)<Nc%eJLw!MOFQ`evY_6FCr5Cj=+yG6fCF(ix+J|M!h3&3X6RS^fYq~
zaAFFkY4aRAAP^u|En45hP_!+l0%POhClRV#9dOyOF9{6T?_BDzM%91C73j$qricEH
zq|$jKX!VvMH{~jpfBe!%G<|sU;IyDF!)d8lH3Yq8DpL?dwtk5U5DF+*m@dpRUjW|5
z_A5k0m3}gs&w;Zqk%*X1IhoL+sPiU9PfGQP5W>@@>Wgg;`Y|LP2`jM+(76XR6^Vmk
zYFzX{8q@?Z$tBBMB;8A%@w3bY=<OfL!1Q=)>-9s%fd&p<U=}S-U+$s14F?xV+3_AA
zgw4?3*YWM5gbQ<Sd>8JA<<4Zu{tS-Jj5c~pcyOkE&w&~K07%s1@OOvLz`5g`5@=R|
zbI*f~Ty$ayp2BWmuh`Hjuf?BCwR@~_2u&E`?}9`MQ6_m8p5I`RMF)weC-qGL%iMon
z&e}eT73uN&I`R55>kp!Xj2eyj301&0nu%ad$|C^jH`rv2Mtj}_@)9uv@$F%TsJuI+
zKzb20Y_!k?ip&usU=HpU0QhF;&t^r1(_=0tbqw{|i6mY!!A7;!%W0TMsi25R#zw$m
z%)(qrPk{FE3Nlh4Rz(7gKl8Np*!ZJGBtOZ;tI5^EvP|bPNaW$%V^4|uJvKy9DjP11
z`Dj54l9dNt2ubx|(3SgXbQn>bVZ~v2D3Yqb3Ls505#zunjd;;jiRmpLo)KFa6Dxcr
zT)(K1-j-65P>jzakMy!MC8C7GJ|1=mg%fOmEy)w}>Y+Oe>hH4Fth5_J;+RYHGYXHS
zAOQFeuZVQjk|L#3pGX))ehTC?LKGBo{KsR;#?fwdM#)FELP!W*?0{#$k4TI{^vB&$
zUNag{9R2w@u!bOIXl;w&g2zSZ&fP_}TK(xOsP!g;J@(uu$6Qlso@6n5jp}@ino=2W
zoUY_a3JKc1P><VG9lQKpK7f5D@HjQDmn7o)a6ovU<IaOS<IYap4jcHdk&#x&Hy6nv
zN2?fOYzPSfH8F<$f_=({Z_X-rQghztC5AO1C!+-vSviGe@h6lu5d<82dBUp}3Js}~
zb*P4AGETukJ7BL!f0{H{6|g~t&DrC`aGEf|+3%W4(kmL7kR=6Ly*OtAdi1^6rT%yh
zam7pv$OY8F>H+dVJ!eVI<NPj$^an6YiFv`TM#DM)?QFMGT=W^G+DAM+Tks4EM+Q5b
z#gQm~)*aIYRqH~D8XNylWE4s+`-&=j)N!Cz1)!8X1<B-;eypoh+u<=k-mssFQYw*z
zzREr<#61W=CsdU0Pntjg;I2rK=rA(rmx5D+UCX{90TVVFd8@;(&jY9C;eeEGWwsWk
zJ}{PMt`qP^k4en&v9(u_-c?jt3aYt=HD^bT*}`*U0+@@kyV{;OF)FcBSY_%s4wItW
ze#k_7qgwd4VJtw!N|C@x*2=;-S7W6dIngH$_Yp23i$*PfXCk0}8tV~2nT>{2CRU97
zDYW?4%QkvU;m=YsNI#>BIy+NUu;?d8y992{?ZTaNWQCW3K^?|Ly?(d&Q<OM9OBI=%
zz~cm9vLkS1_s_~no74l;NPwHEY~}WR3~-hR5;QzBH0Soi1T3?lIYi(qh9LFYaWG_A
z;{)h#DnnEkq!#xM=T{b=MR}w$K%;Zy#@@B|RxPBvHYf`h+jE@7quU}&IStW>o@4y{
z*j54IcC1DoSlS+o%R@b6RQ->`A*L`+360p2ZS_GOLlCH{W60<I;{fFfsHH>3zN#o*
z;qMdxuMSCOs0E^tX=;BwZ#3S1P;1M^YR3-r=@{lw0mxxkc>(0}MxBX+uoz$`ZhE&~
zTwHyEOwkLPa<2rCgE9cf0(45GWq0;n+d1c<-54dbiCrk?gU7qi=BS}hbPdJ(8g#co
zMcTI+ywT&>4IzKXB~yu<f<dCEw?$qH@2VWscj%}PbAlMvADxzRXKC}D$akNTcfkD4
zZSV;%04fb^C4d}wp~0yUVN2Ib%QRx{)7cb1YFHQ0x&uRiCUrRL(=Zb!7{LWBP~Uni
zadJKSCY#3`;c4#=YX$2;J4wh$tXOWCwdc~^yH_N!z~%@HC&mG@ssi>2hRY8!=k-oN
znU#hF*Fx!H70Y?V&IB5IO97Z)0rYh;UlQ9KFhEJ~lVVGsqm_3sZ`D_{?kYGbr9I0o
z*1PRP=};7x2sa#&ZJ$`rd3<QCh{a&3KuvwqfQKA-ytdirCr1GjM75AVToEJV5)FzX
zj)Qbd2GX%?jO5BKnYw|z$z$0#i!)T89n>2pj&)}<9;q7U#29{>pouAzgQjpH#K8K8
z!=NArpl~}nHyCkv`JbL*^A6nJR<{trpCddxhK8O68+pMEvPmqO<A^s7F>ps1L%-K`
zQV$N0go6GY(Cv!qi(#PXkF-{VFWkU5BIOq@@at;f+SrbP5cp9egFhZ%^EfUp?rejQ
z5RC+BpEXheeNw?aDPRsmY0_zmD?>;z^>z>g?`yD@`?f_&S>@cfj7t;YOdv<Fc(RRk
zKwjzTG*;AGPzVzXY19D60sE^Nij;Tt?x<e*lj{kkCFWbK--^@ECz0Q7Cl}7I`EYEt
zU~^y)!I)MIeR_8b;SvIhH{wc=!%+Dk*MU{*i?jG_fLzFi297%<rN)n9Q!EVs<aLni
zk;4el7LgE?)x^QHS+ryyY#<$+01%ivxJ%(gz?=qC{nIa|g8vG66%_$zdg@&hM-fX5
zmg8zjc0$KGLw`iYS(5x{WI5TF(cz#wwgH-c#7CYdZX=9DKm#Hh9qT8)RAAzOv2caO
z;YRY*?c}1z>mIl7j^SKXE_9Uh@vV?|xQafk%t`J|mlAU}rvZYS#6llg6_!U0r5&0N
zm$3-2jOS2faBylbdpJ9#2gg(=7<BfEhR8=iPjnxgV8W<7X_Ukzbdx^Y`SGySVJU>x
zYGp>94`V!dp$Ic4q^h!4jnuk9^hZurMR7Kf!ISDCLPih<8YSb*!OFD3(E<(|!Lu|B
zjry!dTve2@X{Za^gfU54paFt!O&N~dh4*>ikd)*zIw1f^-b8~7`QxM1Hk>Tgt(Sc3
zpgyD?#^3}HpbmBe9$OWTzz%jIPOlSzpkj`t<<A^AM_giuw1>ys)N;&{Qo0Ce%TT~(
zn8umHO5Omv35&H)W6NI5qknZ`2+rGkZ!5@BN1m)5=rp7!1>z2ec1WNSK7863sq8Jc
z^(Wj9HakLd4+c_VodzvTO<P6$=v*bxm5&dC!J=s{0+w+{oQqs*mTp!LmV8*xmJx2?
zkm(jQa#D}-e5lJ#Eo#q_$<fGkrd5tqq-K{NU0Z#P9OcR1o}dUizNr8vLu~5D5$lgc
zos0;!+ZwKwG+N^|c|pOP3|KH}dNlMiM?P8UV~oNk#Q4uRz<?}d7gv^HO!CwGqfi00
zZ<BY3#KgE?G8CNpTF!B#+me~VHhoGHpVU_w&6R2hu$Xq!=e>W=vRIojDUJkcgBOFW
z?Ol{<$7CW)s&2)3z}6Nd?LH-2fIdEaw#Q-r@n}f!BuxX0OE&lJ4eZZtpJ|AwlU=~g
zE7Lh-SK?MYG)Rf7NTp^V5(&Uj_@XMYm@eCJ!ul+zAU=Ld6I<gDuPHslLRqik!@mfG
ztG6k#=$ACdJc{$CuG;KDo&L?MsI8A=_Q8?Ax`~|h3`Vt)K=;spNtTn)gLV#}U#D$R
ze0il=^BR633#I0i`+1oTx*Z+h@XxMpy>EE?&YFfTy3K=@gMmHP$64F;+TbsRZwQ~;
z>elqQsYk*ImqPYfA9XraD#mHCv0km4LEum3ae3437X74d*$y5G8QzijnPi33nV?qM
z@e-kxfRAP^+bm30`TL4D#}+|vk{IZE7<ftOnGdR%36piio=b*Z6s~~#!R1;;ZrIm+
z-0skp&cdPIgKsK#7F~O~$t<?d-QrSn(TK`4mem(}1Qr-kE_0&fc34&p1hA56e&ljX
z8XI728;fv6^Sp^e2#n|N7M`%`e8dRsb31M4xN?R5ZjUK*-c;09aq`p_N7;{s=n;W|
zKUqC4e!4EG7u05?mM!_>6Lv)%UuV~k<o1rzM9W%`<mv>7V8Yh`OaO2UH=)FE2-sN<
z(~4ZkFPHI!a~o^(N}nl8g}(|mdrwbbfsn1UiUWIwlR`!2L@y#+NV1?_aIl#n%*!)8
zZm_neQ-~_78h&+<j}Ovt^S-(KyOb$0xZ+uoy@!hk|C%fYsGxwpT?iXPMz-U$$-G*A
zh&GP9*O66OLBU+d^0LzEsF8X%ar$-qC$a;QjH&RcOe+dR)20gDQ$kv+Yp7zLRtX2K
zE663K=U_Y?z6&TjO~9J#TK2vfeHX5z<Sa|3;rVbhE{`5S0Dfw=q6G7D0@S3-TA@2A
z7Vm)?#;2yZZGB7c;eNTdn4Mq+TFO+ZDZTJ>$v%CNVb3D;E=2-Neniz{ItKPy0r5kJ
zF%@Xrqpy}mW4aeA!(HG}5o~Bavu0^AW=WB0O5)g~5f|yUb3tkKZi->Bjp6G(5=%Pc
zEH*T`3z3nW^m=+1sUMYV5Eo(Y4Zpp}Ni>}Rp>5fO8XnGru)SN3G<f!<OcLzV6b(`x
z4<m(Kz{FL}4pq^x>jrM<Y`3%Z(8*@lfo>+n^H0U?Sm6hpF9D72U9ayesqB75)<&Iu
zkhuddXGMiD)h3yMlBw^7IdW^qQWafCU!x6P*^-T?lUV5x260!G*$6_VUN1EUzD!Mx
z02AhyjByEGpM+0(+-X4D3h10*HC@#eB=)|t%i>JQGmEViQ^F-6C^+RX0ym<ol;zbB
z(We+Q15Q|5qpBr|tF)uY7c6t~EaU5~?yWBMJIvMuzl=DV)DnR|0IU~?2GKst=@BGq
z$UD6-Tq9p6yYI#@x5vGqh4=FamRJab(G%U#J|zo!X{JfpTU|XEVwcr<AJ29x(9zC5
zoWiw_vr~jIebd4r&7C(vf`||MsIXX%L=v%XC3Pc63H}~IjY4vwUm(omF>WA;o9=iB
z<Sx@G2^3XivU`0fJ&^w65md0qQSykA2}j-i>Vu-;RM}IXW-(uQc{a(d$hw-|nk=w6
zr!bC|xLnV`f4Yl&jckX?o$h}IL*ywJ5>11F+XW$hU7rfcP>T$&Jxkmo;FjY?-U=s%
ztceK#Y-kw8Q*c1ySsAOUd8A}Srm~GHd73d`0v1DczD}I}GNP7Kx4YPI=TMM|@5v8-
z88>d;%!A}?5!rGoE0f-Wie6W7O?9*u5$_y<)>D(Gw}HoP@R{RpISO9Y&8!orkqr<_
zof?^)t^7#Y$q9^JF^oBTL!HErGb(mVic`F(uu{fwGxXUgN{ZSo)nGF`j>^o(vm`I>
zj<qI>Wlz+jsawEC0=QaIPwhm+e(DSoDnKqL&Wn$}HdFE*BtaVKdaF5^M8Yd1UjQoC
zGrEvSRKaMXDcCa3%hSA1r)uV3h!yW9K5Hw#X7v9^81H_k4KIYgg#^J>Sl!Ljm4<&M
zgR=SwQi*i-(Od&cy^zjzE)7FCbgFa9CgLGgzGkQ0QCJWg%WNnfxf^jANb^V<1sd8G
zYIPQ5g-tHQU&$&B1m)x50VGq#rV8S|0BP$f$@oHQ-H~YGMlB!*Y-EOLVDQqe;VAC$
zAtgA{O%xmCm?#pTk$wtJpD#r?2v^=z$vDSy04!`pjvI;Oq`I=3Zbv~YA5F;abdN!c
zX@#G_g&t2&Vt9(Wrr1M>Q@rwlRLPU+tYE5|7ow8#LfY0DD^7EI$m|4!yZXncWttKN
zo%uHzD_`ik4NGxC*@BZ}ZyvxFB;h>*Q>=!W>M5N0jHe3PW(PZ(srne){mi0fs|wHY
zCl7sVB@D>zSVDCRR$x}KG$1GvSe`K2;(%K93Sxt#g_1KEp=5Lljk-f(iWXTJDNQ&M
z{Eo8|2ayy7@J>sMX8Q*+F(bi`dbC53f##!OW`Y`Wc7;88zai-<ZBhGGa`zqId=Mj;
znGPscGMt-_RF|>Q&!}$oseChyC5_G%%Up^mhoqRG<dpc#6fp#eHBBfT3K*IzCtF=i
zY90D5HK8%Wb|I>HDmth=z_{T8!g!5CvHI={O*@(zwQGsNLX1rD!@k}~D~S9)iKUJ;
z<}&ce$OjIy`6QYoi!F-Y_T73&uo=xF90>AZ3o;L@lKsot!q&llHXN^M;@eU@1;*hA
z1;B2+6Gr(;lJhQ+yJ#dpQN22Z>rCf?$Ytbls{}k^!rl37^al%8p3SiP@^dq1@LR?G
zDDvX*F1{B{Ykti5T`Tg^nuJ@ke%IJ^>#C50_4A1Pi>~}G|7-C}ulyA`S<O!3M>DVb
zys(z&2}CDn@BaN}Cr*gKufDpWp`@s2-|gGCFU{2*(}~sIuw==SY7R%uzqY>qgsUqz
zC-h}dSXdF4>)PGj{o%`*52sQuH{9{@@%eTxD>FO$KBsHq&B;qSQUgw%4jHQcLqkIf
z3JNY`10r?3y*B=s?z`s7l`BParm%9k{IjNAxPKXR#OTic{w@9e{Z4Lf#l^+y;t~=e
zD^FT&Q&gN|ZER#@#QVH#E-Oe`n)K?~Ct+px?8Z5Jd-yQ~UJ~Uux_tSvs{h4{7p+d6
zl2(|_DibAU<JITg-KW~x+Wdt@MMY=t-*S7DOK<J(lC^tZXfMk{wYd^{{G&hU#%inY
z-yh(@ewdw=C8h9wcqFkkGb!nMS6A1i2a`MserDe6O+|%vMMXtlZ||Rxk&*ZFmu=v>
zDNUa~UDdz8-;R^P`bFsPVe|*C=j>%<Jl^xai|haQ|Ng&xA4X@ddfMz&xVO5Uc&w_s
M)Rp6Q9R2<O0J4-~1ONa4

diff --git a/reference/plot-4.png b/reference/plot-4.png
index 62dbd73a415c9e2c496a63cd8cdcc70fa89924f1..7054e4eb4441945233f76605238de78c4a935ef1 100644
GIT binary patch
literal 55080
zcmeFZWmHye*EM`92#88ZsHA`bk|NzmT9kB4BPrb>U4kG20)m1_2}pN|NC}8^OLup_
zYpd7&efRh08{-|%{f=jh_hEQl2ItAS_p#Tp)|_+Abp*-DNL|7v!A7A_m+s#ae~dz%
zb3&oe^sq4CUxuRJufcB^dJm<<;dl7j7pw4u-_Ad~r)G;nkq03Eoe7^_H$<VXqwb5}
zRdh;N8gX_a=s6Kyb0mn%5qW>^Zf!7j{)OOlbMLitEQa`a=;#IoSl%%bn(GTnmDkTQ
zl*-j<pE-w)9>Ub;?Vb9CIYbrj!#gjL_fgq}cG7odccnaext|t1DyF@)+P697O#6o2
zSjg5U@{zEhE$uxlDiQI2eVvh-Tto%_>#K?L(b{GFf4<Jq(>ewH>w9Mj2`c~fKJhcb
z=e4Q-`ASALptJt-E_`_}J@1%*y^UUkt?uE!-beT@_SemS-bRfr_rLvdR$j4O79@6j
z<nYU5Z#)2dz_=q(a9RkLQb?2P&`!zPIxkcyt?Mq9Zczf`veU{iZ{_|>ywlwK0K9A0
zZk2=w27XpQ`SD&X_KqR8dZEel&!2Croix)W+3oMS)m?FKPvRZIP1ig3bC<~Z%Hi4H
z_cmghxyR=vQfxkO=TRI-^UMLf=j+$6?<7KqO$G~Z#c`VX?<@~Z=2WbBOHOK9j+k(W
z=Jug^wN0g_&2PJub%?y9RW=^7ZjQVe%VV9Kd3=HDw&gI-(c#!>arx+z+v%B&I(x|-
z`&p?EW2l9MM*DPMl0V;ZpT1~T!&!5*aRILKz3HLfg)0-&F*+Ei(5q}`gMxx6!aI``
zXR7}^QiDqbm6mdZ4J(upE>#p|Wo10}3xr%2gEw?=ad8{JzhP&yUr-d6kWdm&pYqmk
z49k#NIa{lu<8H`a_V76)4UJE;*2XRPxL35&q7NPfcMV|<3dj9<l1*$foxjk|ojbQT
zD|{L>H)q16QM?pQNj{%D^ZgA?jO+G--{x#bJ=`<a87lM#4<0bJbR_U9uyn+-q4nix
z`6SclA90VlDd^_Cn*IKkUxg)W9&;)&PrtFHbx}b<!JRy8Y_Q6eduMfQb@6s(u>14h
zAA66S)=BWg{a3Vi#`Rt3gS{goFB=#ePr`HC>#I5OJJ?=qwIGzJWA6~~S)Xj=f3(4(
zUU;u}sLIvRic%&uwV2!wZ|`6+cY5>dSMlyFm5!Nik{DJUNo8eX)O8LH!p)gBu@@wq
zc!Y#g18C_YOSY-X+3GiA$hXmKlIotkjOpJ@(%F%Yz5V`i3I5+8h~WGF*eS5cS5{6A
z&)dgGK1-Ro&~k(%w{io!Jy9@Zd$BLYv?nuPQ%{eYm`PPGVmuPf&(DuIM!YXWq0!P=
z!R88z&ta(v{mD&vIk_inqJ8qh*Efo1+Tv;8dPL?gkvp!AE>Hg5JxzVFewk11-o1O3
z!vybSZxUBrN~*QbxIH1rcD8;0_MJN_nwm^8_4W1SVPD%iI$~Nm&3d=gH5Ky`mNCUg
z9agJ$^-hlVH=GSA8~$#=Ft)lynj*8lZ^afvOxlNy!YAV?Ch1I@zCm#x5}lpHMzaNw
z_Y#f2F;2W&WZHv5HHK44+1TWV)BN4FI(oD%0Tga)cefV%WQ9&ALRjTgRZWVP3ZHgO
zwHd)y#H`q62=*SSaMb@6dJWldaw(FRe0_bd)6!yC3>MZY$O`)T`l1^c7&w_v#ne5i
zT^p}A40RlJreo18{S{Hps$CgaGUh>wE3|hVJ`<0Cz~|)nP#?BUsr974g8hJ5Bcn=A
zlRex;bnfizY-^u|AS@|;Ypz<s$KeBvOC(L(qF5pJ#iO>ihWgLG61dmC5i)+PsTum=
z!;MgKeqwmyqN=J_O?y8DX;-<7k2sDg2|lQT^kFj=fJ+(OSg7BK0~`Fj<Cr`5moH!N
zNJ&G|5?!!|N~{8s=`$A`z7BZ2jEOPkw)Cm<vKT7XZHc;t?0>k{cU|-5qt{#GElh4-
zeHj(yYd!gmii?X_S68?6aHV2>*tTQ5KTltIk=J?xUEA~6zR+TbI3gk<Fes>QGF&*U
zEuP!;Q`-y4lu-NWme(8GEL!EN7Mt)+S*5DcId(dkgxVpiniq+JuE|Diaab2Fh)sTb
zvHqRC<5vKshgaQ`XXP@+^LBhpum^;~!^3y`U3DiiJg|6n%kDjVcp>(0l9=K~FJq#j
zx{Ja?i5D2PX=durw!h8CLFqyMRBn}ib4Mb2pxV8n?Encl>qc@%)$XUOc@E3!@%Hx1
zgG$j4Wo1j$Rv=<0BBUrH3^j^OZ(0tQzOTkNmm`!oTGTnsC#{i8!M}h1e)8wfKPK!Y
z<UjR3%_V2mss2<xlHlGA`(UE<dmj-YA&+@TJhzp)xqf)sf!Cmrab#4~4N);M@)fJE
zf%w$I!ef?NhKJe?4#g%vKLm}q3>8~2+Su5TeVY#~IKIx!-DflmTLFK2p{JmH#PjrU
z4BMg}_C*k6g`w<SNRrV>Zy{l@xonwKOjEkdQANbW%sRxAUc^Wn93I@wE;)Q;Wc0CN
zHz8Z9%4K`WL#O=9QHjy7+UKHJR9h}p@Khplb9HJ)XLevCB{Ff_Ox+7O+%ym-{8HA@
z01x4)nicPNVb~`P`?Z}HK;hCfv0v?esF}04(354-lSu>_VbM}G)6m#B#jrKHzrv9f
z^$zxTe~o8NrCUGwWMg<^R&KRvNoX?t+*pmU(8->D$*#(^y<}We?I*Q@A2ptyghWKV
zOownY$xpjJW=iR-4wn%iff+_AY*{k=91ZhFnXPfnwV)FFMP&}l;j3@nyix88xkHmy
zHQ)~s+gP<b8Ul%Vh?(1QMbqtMfA%)Xi@B~e-0HoF3l-B{KY!v~xst}<A3QZLRAAge
z!C~@4#G_;2)tfg#5O=u3CwnOhZ2VadUNh`%b;(X|LMnDP*!s+UNcHPz_KVi@gX6ou
zYx~qiS|@iVCZ>z>^70#H*{vUXV%d#xu(1IoDP<`)K#f7lL&}E_=)uV%@`QxM#1miq
zE<oL;ybUGEHz1&*vIdqTMLtE6$NhlA>nD0W++~_6_8BQI%i%ys-}{yJi@o=xr6um(
zeJ&7ISjbUm)`x>y`*MM`w5lUE_9_<Db>G_Q)|lzV@$vBudkx%8{sG);cRmasgj``Q
zCr=_F8o@;UI$W)3<X^3%N$Sf|!PO`>ziVm9LMU<f{{8c?pkcc8{>^tF5lF0#Rw>=I
z{V4M`xUy29(6k4e-*F{so8%%!0-rs$SOCszL%<oKt2L*i*^}1Al#1EvJ*I+44S>S;
zBVC^61|1!2O;Xqpmb+{9xUKo4mi1S(oz6i0ocr+}4PXMDu#|*^1ad#e2it}Nu&z`>
zLKMx-&5-(QH>O*yr(1}wzL11p3H**YG*V$v(+ZCtzl@Ilm}716!?Y-0OEUB-mCjh1
zZCVePu*+8Z$brCsaeI<*xXfF==C3-C<X*<c2Ex66d2$<8d}?-<=H|_F+3H1+L)&wm
zNKLjay03VR=h^j@(n%at>Z!R#l}nMvwsQsL*)ZWN%R?o*L;qxql1ld5d%eGcZjtzY
zu1qL|O{UzMUZz<M>y`g~ygooHtWjOlkd=2dPe0&?35U(`(f;PhXcDA=pun)OX#3sO
zF`cUyF|rIHw_Rn^6EADE(0Y?xH{6q@VptX!h!wyVucItrHz!wNSj8*hLwD#ESIlth
zR$l3&qvx0upIrqWMl<E{gh8@ZV>TY$MFq0yf5S@YG$|OR67z4$x3;!!Cr>AD-|@+}
z-d!2dnA>)#7*bRul}QvBn3<*K=dTzxPPZH>pBOAMQ*LDprk<FXFc>gSbpE!&#-~5k
z6p=p~6-C%H<ebt$A56_>H+Q|Y$ZBkK#Z{k!q=7(IfT}f|oL|}gXh$_Zxz1p*H`_)F
zN~1V@Y}s<pqt0L19`wFuNf)S&vi?a3?2r)9N=6*wHQU?T?8_)N;{`cQyPL9Om(<Gb
zZk0Q(vPc!)ym?a>DkMdgCtP!>%QnMrNRp+T?X8?uq^_LO`D7s9kmAkd<U8r<LQgg}
zJA@}&UNdg&L*~UNCN?TK@;y)Rqr%Z@|0ug;)TT5X_P~uBH$+nMj_o;Nua{LCwi1Wy
z%q$20`t{_Kb`^<IredB(4)x$?2oR^!<6V40LIZnu2#DK|AVd0kb9KT=I89ZVDG3RE
z2MUZ^XGyutpIsG`*icMrZfdIS5I(*5ZtHls*dl&pR}!wSA(#m3(xr2#8?>~UaSOHN
zkV7Mrwugr`Ll`L&<nfR3<W9@hqC}2QkSb11ZG%Bj=~3&}F066>Dkp{O5?k5Pd|Hyr
zQMe)%y0**w&99A(X!O$66ar3oup>6-JbFK=(ZoQ4pMQq^{N+nL1in+epptX0z>R{{
zXDAbZe2f&6aju!>s4CZ8zN55n4_T{x;dUzw_4M_b69F9Xht>~$3#ZIopu{EW^k=PH
z^RD+*FR>h%vQbndq;Q_Xub6H-eg15FK`H$E>B6nV1$G_x?bn)#ytW@RciEYk9(hQe
zt$i;RKxR1^_U_$vCarQsp(Hka4D1UR-sYrHA5gtJu^qqlZ)xyY1S*zhF=tX5Np8(a
zxn`n}JKsw6p(Vg?OiUcIXJ!Vs<>G3u-7&y|Cy9wl*Q(%>N#J=7nQ1KBC7Ug&qu6S!
zI<t6wpdhVr5=(q^39UC)lKX7!D_Nlo(|CA~hJd5pBx{#I>y8Nr2@sH`*@lLOOucp5
zBKMy<gP$Fi2W`p}(qwQ>2NWIb(zJ6OOT&XFGK4nkafO=<H#;-KVmoq|=4P}Lk<tOM
z4Fe@7C+8I|bkH=<$B;~UmgrQAJbjGv4`*wC;@yXPw9(3HQwBMTrLQYl;({AQ52Ps+
zDnZDdB)9s20fB>xx!U9q<Fyc#pUwJM(xir<Fke{g%Z*`6<gq?`iG<@Bud;?O9`Skn
z&3NGf+r#A&SAl4esWu_GXuK~IAH5t$>|-*QIY?ee2%j$I)+|NmYFCwKy0l59AJpIM
zg&$_C`Z0M>t}XEX=EMHBS6a`T6x@x*s@-k&^BO6{#KqAe$nc1X{ehJM+H4AtNqdF6
z8SlgEVkJODPmgu}{P~T2v)n3wfE<~l)yeSaR&2-b|J$Q;{{)Cd&%h91(Qsz2R5%5)
zEqk*y0!mAHLOw{#$lwSaF0tD!4-$2DcJA#ASt<3AUcO8nQ;?tkZ1UTsl8M69CCc8N
z87~fFim~i=4fl7S@>i7%3_dJanDu1djJbe~y%cS4Ja}2>=e!+G>z)}YhG~4f6Saqg
z{1Xn6=}kZ@goK3e-n~OXZJ=jh5QPNl2H9-?c9KKmknLKWz}_z(q=0z+?Ck!S#oV2q
z?tztlsOj|h-LB#9T}I6r3s3~AW5}#23!ObA1aw(}b#yMP(Ti2u;ZTD0Tceq;vKxg~
zs;NQg!?<|Wt0Ck{R_12KYPHzu$?=&e+Vk;1WM9$AmXn*Q8J=EM;g2zZ%V^YJr)v+R
z-;|`J&suU#r7hFfD-WVT1=upF7@3Qm5(Ng;-Fz6`G>ss4US8hJVtwHozpn_}{L$J$
zf3idfQ)2v#{1)L0NgtQ(h4%o1?mc=WuB%Hm(~-p5CwzLenJGEhn=X$AY3F4O1?=4v
zAl5uKQ-M;Gm$0$F0FYr!%6ij<k7CiToa^Lah>V-c=1)Nh_F%RE&d4tnINX}=$}CnO
zY?!cF<6kMQpLbUwMlKEV99yHgq$Gwfo{aE!EAbf%X7xf5h_0#4l2Mn3Jq}9&e`5Xl
zi}Tu)2Y|IcTTe>vyKT*NLW0{~5c2Wyfr4{UV67Hyqv-f>H){~d&XE5$aMmG<n{<7A
zv9R28N6Y9U3NWfdQ5)2EK@uNssP<}=9nQ|qI3<ul*ZNOJ=Ftr8m-^*dJU838GmCGz
zcHJu4WKvN!7aMXDyt1GlE=U^#Ro?Atkjo6s#+c`+dq}*~;N<G@kG{WzxG4!Ca4Nal
z5}KL`4Q8fN8qT6nGN$qe(NS`737Yu^=Z(I{o<RZ1GwI7A_c)lR3vb|p%35}`QnAWM
zR+ZVexc-gQ%E|ncsIKzZ^LSe&V0!lZo5`N53G-+({+CE;V`7*!jI7IwnSW<5%f6hq
z3-Q;L;2Ix(Bt<{lE=~075-_`nRs`+@hlIFaeZjXoY>SJ5OTm;>vomOxS-jckF(>=~
zx?qhuU%dW&!wV~AvlIq~hRuDmZSeuX(@Hh1tgYFA%A_uYZ+!V88WK_8uB}W8^=E%`
zcCw9oEGpN2{-?yYiG~z~`<A?7mhvT$dCF}NE{aN@M(|RhC%UfiYSws+&>ZH_&om!{
z%%wj3J>wIgMe~9D2Hm$r1DKEa>=%4NuGp{iJUwxk6+3}cmZw{fu|F(u*DgzsRK0w&
zoqu|RwdQD|LIj0S`D~3643uV>%{eGT3W8cKa4qY=a$VR3;)z)_>3=Uzr;hph|K}zb
z4TF=f)6rozhLP7pE)NIzmm-@aM9f`tP0)oy+iCn<$?kSL|0+U*#r!YcwXwMa{0`lx
z4)u-$KQ2B#<SoBrvUEI`&FTC1?@fk^vmYM1PQKt~nz30Pso?I-(OTTGp0neF9o;mW
zrIIUoxU+2itM<&BXFnFV@5#za#jt37wwr%kva8nVk4woC6HdnKy)sfkLqj7*>$2@4
z7)H+T4|q*?xYRmxF?&u3kBlr7;BqU-IY;bqTo%EUo=5Uwr3!@Spyu9na}$sZBfHgF
zY}S`EOuwUnKlJ0L53Ue>%$WPG7MYOSRhOz!x;*rA=XAS1O8+o<;K}gn)hqcDOD(sf
z^+q1snNW$dg#h+}jr12jC2-kU3WDeT1X!(5P=&|w!Bt_8O1EmqRqcSGJ$>P=w10qR
z2codGOaMv#F>gnlo3SqjtV6f~YKnkM;|>r2-H~$p%$6KrW!cW2#@}O~XDVgseepey
z@}f&}y9`@R=H|_8=Z$8%2%z7fhM-VCfBs}T>1Q?DSsIAtG>g_a{B#cqSLE&pL@FGX
z^GloM)k27wzW~6>Ek6lfLIYeE3nd=p8x#r=(8}!>jU40Q|9Y^yDVBGihg$3j13s2A
zF`*9*4t@#G4&h27^JKr&vx!kZ3ZE)`NJ~?>Cjd3CcC^a1Gf!U%lK9lr)RT>==2!t|
z8^5J7rPG7Hn$I95rWLQ3c+6S-vt4wo(Q`3DE({4^hB$CqF6u+TiNN7f0mXhj52W*&
z;~i2A9J2IGH$X6vuU-k>SzrL>03i|G0a{HsuJF;1Y(5`v@3kHkos0*AIoeg~?dQqv
z37sC<2CS+$Iq|@X+;&(}4cOk#$NiopObLLNaaR_{%>UvwZvr}*cd#KXS4-~bl15`+
zy3~MZY*jh*!AF*yFCOI5FAo-p85z+Y?5^gz#DnIh4;5HDw53|T$W(W*@TrW|tnBd*
z%74T%;R!5lR%~2csYj14A}Z@g>G))|0;9S9JQ@TN@g6k2isQBlv#Q?5P|4A(gHoGk
zF~qerQgH<|2{909;y9jqOHnwZL)JwiTrM?ucJu`BSTcxg2#rNOS?JCvb>95AKzgJK
zj9?9lvOdJay?gg+0V-K<&B^=v`zN~}?#vAo&;ez74i|dvYg>2=HV)1=5F~xzC+h>y
z-dk^^v_9B+iX<7W3I~ZKA@|z`O?Xfkt_ut6D7~#-LPHAa!PdMF$Ta#8_4n@IuY=rx
zPeBm|kn25c6reWf06YbYJ6ilLR2f)UaMaY)RLg8`f@JIs6fQkZV=x{r+|R1!nD`2-
z_E*Re>k!}LHK)g{ci7qSVM`(_1UzT1GX>LSYmRCbe>c_hXp(XdSfoX}u4RbuwwUMA
zg+KM`1QGMy$kG3$yyNqRD{%bLB#?jm@2ubdA8r@?`^WW#CkVO{^S#A^Um*GI*z;(o
z&|^nNM*hgv5gv9Jve<~t7K~=qSy_CB_9gqL<Jq2<RAM0R{QzNECtxD-t`ElDv@R+Z
zmUgqlHAPY-@lVg2x~qWz<(H3+IA}l-hOPusoE*R0pvJ@@=eyy#%FfO{k{L3K^ZKEw
zDFb{PXeNrvH@BXOnmQT#8*KWKQfo9FkNukv6af$g0G`f*HVBn~nf6hv7ZNi2`}<ra
zS42f}`^0klRGxGbJ;Ztr`DGG9w-MBmfTbmK=kL7~K+gK8FnwG49dooQjJWr$7Oj^D
zIduZG+hKpbhx!k(bjU}TcAm=MC|qzSwr^)Lh$}N)6)hq|iw~Hi<=cwo=vS|NnqSeu
z=S%{-d|dRRq9z8i>jt~9#UMwTKG!akxXI;`F-h2`@&!iHzJ7l1fng&XJJIvR+3k3{
zZx2AcIqf3>qL5A#aX??No?&}?PKf5o#>Vzny<`ItXFgcioU!UGA^#aPtc#RFWI&ur
z;r7?yI`!KVcr&XRtMFfO0-8c3x#j*eS;~?H+i$NKRi-?0HOr`VR)4(rX%LPBap7Uj
zeM3q#OdLB#?aeV)$5&1#b}MrD?#m~Kt1+u$Zf=#BDW{YY@-IQ&nwm1G-0szw8!lrP
z6&0QG2nh*M>PacqiCaXHQ^l&#(m(+waD|<IHrPt?UU*Z*@V8)44J1*|_CSHr1A+=7
zWsRmF6wHX}pIu$<&u)zF0?SG_rR$o6a<XgRbmsk?owo=%?NNDzD<SVjUhW5!sI?zN
zt+~Z#3DK`#-<%vPFb-GQ8PDL#41{Oke7Mq|mon_)IJBG^qkS3m6^bEw^mg~Ep`~RG
z6SrXtAuNASXO;?U&lod6zkIduiaabT<Yh_?_(ViEA3uIf*6RpQyz`S9dxd>AsN$mf
z`Gyl;gNV1cmj=3~%M<MPHw??hT4PvS`-Y0ljIAm3ZeP_rkY+fX8!E}wSO*R+*J}?g
zvyz34G+Ruo-6EiqYTb}t#X)=nl@25_he=ijhQ~_bgC1(p^8ythq<=BtaG8n)UPymi
z@l4tD*B}C?wK~j*`1q{M%1)E7u$&NkY!F`|_IY`EuTLT~A?-`Dq<#FD3<(zt2d9`G
zu&?*amoI~HnBOUVt1j?7^++puI#SN*?d@HO_hJ$BoLe#RTow!U_cU#XEJ~cKtei7n
zFi`i3Or^VzJS_q3p>lWB73CG9?b2+iCVQe?o&_KTN>)8oDnWHCiKgb}yAZK?R%1d4
zl~Qg6Au<`HSsd1JN<KS!*p|SEer?B^^V&>d2_0`KfWUwWN!+sG?(3v1_hopfm?%JD
zQBhH#sR7752SvfRM07g{upENy0PyT}c%JycwmjrR2vFwrgygzQP`X6n!kJD~-$K{Y
z15o$W%#5f!A+)pr_a^Y#VnF$5pa~b4s1I~s-5vA9lyeDE3&0_7x#@UDBt^I6#uE_i
zZ1zC_!V~3jBjdAcay&D%*2-GbG!4LN@Al=>2Cfa3&7Ew8v@oef?Mf#$P&EPF{3x~7
zkDoqT-nD`L$(=G%s4&o1K_L+vM48eV2=XQXHp>3bx@h0R$U}bokjrgAL&5$;x~s*O
zBf;#(?N9(ILC^<y%gTyqrg=`Muu3RI*WU&z(KH1c-yW%B?@LRs1}FalVHd%7O#DDQ
z;=6R6?$DZrO47h(qN7x6JgOF!-R@@f3?3h=6`DjaxgPCV$4^6#a;iRMO=on;48!LP
z=&C|qKRYDDDFjid)ymB<2sr>HNO?v0HyO_}6u0GYZMuAlKsBWX2gxO)j>JnSq?3C(
ze_veO?!q{h_LcKgNc{#njY1(Hf}G#s9R%rgi@(1=HS}a41g{D>-S#+K<|Y$x`kXAb
za{;Iv>VZ@!{y>5Ip#w^!CsPTZoP2rGL~|GJ?F=e8B?W5z%B0B=!BA7hqvfG$ch~R}
zw6-U=n|K{zL7x^R2%l&}4@-`P5=1O!jp9O8L`!RGx(DfR0#b^Dt8W&`YV~1Gn>}Rq
zIe_&Zr^k+8cgVD2{_z5Q`$o;peFdTjF!aTh@<o=Ae8_vMpP!uZ`nmH6U_R(|QwInZ
zo&TAd{x}sonn?}mihfcr!tM~*4DHj)pN6Y#fZUBwNlCeOisC*sU#IM8-!#&Bc>jLH
zm~e{Z3sDG+mk9}>I-bWwzyPlxn8kq%atXt(`fCQF!`a?<cYW5D3OXhr{P%zl1M$UG
zoI3$8KohqU#zHbAG-?o&MV_8D1^B0Ys#^3BxVqE9d|GSO%ADo5-jxJ5c&?9<gvg<<
zmsaWA0{nkzG~t`FR+?<mH$;U2a7M$#^nD?<68RS>6=Bdn!GcT+PZa~<3$jA{=<t+3
zm*)cCYj!_A+U!7iT_WX*s#p(X<W{u3nFvX#nN(X~f9jRPqE3O)i_i``XB{;pGN8_}
zxgXdSf`~iu@j58+^-u{DNbbt3ss<t?0>Zr%XdnLN%ihpXBlkQU8e8j>qExGz>U~{}
z^gjBuT`#>L<(32lij;y%crm07dGf3hK=H^nK>dIOT(a2O((+}ZAq2_B!w^a!GSyj>
zjQGQ+O(4b5#ie{CLPQh`iP+q#9TKRnq0kzFR_a-#6B@!=9SBlQ{Lm?ournyom6Up4
z$HfIBZ9~W<KwrN8s`F7As~diD8|hp~0V_k88Yo=dxjK}<!sR)$B_JXInoKpNPE6>1
zQq4On=(;0rU~mI+Sr{4b<DAMW;p*em7i0|#zO@+&X=|&Vr=+sN#~grz{Xp*parW%)
zh$E%8^E44OH(FMNG{<FzP$C{4Ldv<?FCu89CIC`P!9pPT9k4rZB|7Dv&Y{C%Z`*=P
z(W<qY>&{ZdY2o5%RYjZ4=w6jw0JL-=vd*CZx>%G=<p_ra2Y(^8s-#Ma533(;f6H&^
z=`#D)ktwob27<uYet?us&369h&7<R0PbpA#r{-E(+Ph{i(B>pw;7b853=~-+$R55B
z_0-T|l8)o3151Er+~a1VoE^?C$00Oa0WY8_lkf;%(`=l=&v6x!qYMGCFlLtIzVjwL
z<u}NhY&-A4SOD#c)_BTKz#wVt`N{|U_Fr&9n~o7lEb-jd>B`x0d+_MYSF+5tpg^*!
zNY(paGIUPqq&I>szWWWouC7iG^4;{#HiS+_xwU`Y6FgBYC~ebb#g^3LG6JGl>-)1w
ztu~CxpFZz<fJA#n<ZDBNT9va3cv3R;U7;iX6=KW0nvxb8B-8=|!@BO=R-;T;vIeVd
zq3Gs0ZyLqh2LuF!K;ZL+_QWIIqRD+A!df|vCLF=g2h4B@cUT#IS`-F!Ef9j8f7k=8
z4AaG&HTyrk&s_jj?fo3`Joq4ko9;RxDv*4d40(k$w7+|2UMN8q)u0TnAviSjBIG!&
zoG?VEWjqD!(jVGNIe1U{6Ue2R2VanFTaDZPEX~3fZvr+cVCMFfVvrCE$~-rBih3PP
z$Mnq--FMXB9>0AXWS)I7_R!JN+z7<XVnDcSPnmN1%k8s<$Lf4ATeFh{obwxYs|0~y
z=bLM5CqlCN2qG)7``D4YwcV>C$RR<X-UAI{+F2P{v>6sH^<dA+7dn`uQR@gIpliwA
z?cVpM>p0glYOoA~rLB|Y&k`%0+~LAcOvZ<U00=*MoW@$>T*Jqw>JYAKIKr?Qt!|EM
zhWd(*dfzqgRKN*fTLWEctsJVi^Z97Wl)J$57zF&0WV61$&eb<NGlPgQrB3U~_2rOT
z_3VA4_5<@_M>dnr_a_5@aaw!wNu#8FTxew4QUDRcVur&=II$s%v6NUqC+9sqHdKl{
zqc)Nf%hA`-(f)u8`pMsHLX}Mc32NhxsFhl^TiJ+^28izPz1k<Yoj7q^zt3I-+LztB
zEdc67rj-AP`|ilJHq;n?5^hT*Q}>MTK;+-rjoUZ*0h-n?2=)fhbj*9#r(Vepk~Js3
zeCZ`c>E1mq9eA05V7(5LQdMhrHp#PP8ki^IQ35SHQ{oM*FDUg@n$Bj8n0vCM89|(a
zf+M=2s5Qv1u2VA_E5&U{G6pr}aad%L;nCiDKhk2fpIIKNbl$XC>?w?AhO6O3^;ZRj
z3m<7mr*@kBD7QC5Aq}EXXdxf)P|pH^S7Fg`?RcbMV^XA!WJZU@gQ2k#+L)22m{M%7
zi-6=qi!=oueqcz5t&1l#h5wM6a$d=v1lCxm4b30XAmeQ<5A}_gH6!E(Kn5=-W&vZu
zvKgXvw9bqveRNLW+}w<ai(9C}Iu-*#>`au*3x}ES*TyiQA0SRt-*|q;%iu)EUN-cE
z&Dw~N7WKZzv;o$H1vY?hGJSGssVbyqkwWu<pX2ng`SyOW=^%=Nk=;O=0c|?%kbJl$
z;(>tyK)2Xc+N{v2p#trLwQtdm51_4?eGLdfS5RNQ&Y+nW`=sDkCI-`iUJ&MQ-v9YM
zJqt_p;>6_S^bR1o{A*^g{}F)QUuvDg<G7MQ&%{I+oQx$QFAjSF92x{~`RpU@Z_?3e
zWY0q3C2r(+Qj3a6Ok`PPzj|>3>c&JPr6(bDpY6@iSx-*W6G5O=-yw&qLI7naw4K#v
zph}cD504^>@3nxqh>l(ZBcm2RDDVwn_z{Q3)a|PmH)0D43V#0`+T0SL?KkYegD5g7
zfG$TwbTqAvt*u`&J=}0`LIPQy>#ijd^H4ffS^VLVgj_9D&sHsc_P(j5<+5aoJoI&u
zYb4<^r*AbhFo?>c<K$Gz$yLcs+ykk#q0Dx6Di6SJFvy$1{r#$EL?9z(twSTNdm<K^
zJ+a(YiJ^_!&Ss0p8NZ7Z9_%T6O82b@5H+trCn5hBdg@>2yV4p!-Zvx%JX)w8pblXQ
zb$7ZL$;O?@64dPM3UDF193&FT%F$%cF+`w1jx8u*%q(a1Eozx^n|+r$86-7a&4&CW
z)n*BdGud4Sx{lUszwSmPCFzXk@k~NB0>Cbc!ecl3{#pGS$3z8`JDkObGBVM5L*>DB
z1Z-~@>FM#n;UEgg`C$x8bKl!*b%(Iin)0CtTHmsiRbcn-BbdFAC~(EjZspm@k#m_4
z1H%I*ooY?Z(r0%;1bj~)j68NsTna)UJ+G&MLr!Xo4UU`ZC=g0?XKSdSko&(?ax&_=
zN+dErr*CCrh@M;VeN00`r2yff(_heYFW^uLG0DauL_54^(L8bm98}7Sw{G3SN80<-
zi0kBY4xpof(AJ}`?jThuw?bbV+Mukh?tu1{TkYq5fc*z}a$%XU)Ol^$Z~8*+2!Zs&
z`=WQ?4UcRvRDl^v-tPu!qafhuvJNmF@>Ss)AB4%I5db4nUM#blk7VM0`twHG<XRNc
zIX+r9Ehp?7O)=jvg$j`$269B&j*hA-{V6^Abr4rH`NE)$(!>YpQ38xNJvIn(n0~CF
zz}!1MJskwX*m;yPLFWwgcTBkF5oMsP8vbzt5=$XzO~w(>qsNwSg^MCmRNr=jP;*Aa
zZe@62ns3-5{=yZOCJUfY7Tf&82HolM`Jakf*QJ+-K1!2j4OI+UN`;X{92RjG`ILCD
z3PvcxM$2qieK(H?)@-KT^m#VZ58{tIyYkW@f~E^G5KB=U{hg~9GhclW#X@BElFPQH
zdJL@`eqSNSD(2+0B>YkmYx`Y{$lvmZQV6P}@SywoQen40c&Hn9rD|9EwbUY+%E2Ir
zl~e0#@$I_MFS0oX(^@5dG2R#M^P}G0XUjSu!jzhX5MW)xBjIxa`YF>kVBK)LTn`eo
z`RG+z9-jUQ|0m!JaafFlMlx(O6MHRS;gwq@@Pv_c(qjV#K_IiZQ*ToUE?*|2@L?1n
zmjyhKXVOWHN{yka2ARWV!5@&<P!)TnI>`$Rg^!QUtkuMmzhPuy`39zlGbm_!e1n`b
zGMXj`?v4fku}1b<K%A%Fe(%v#UbzI?PpQXoxtk@dPiko~1)ykV$Cw4+Hf3%gCZy>(
zfk$fUX10#o`Z<7Nvp@4<YsL_D-MMT_aCev{Mod(cskaSU;NVI%8OXm0@c<nNb6ZdQ
zh3@CdS?5q$+!qc(rkUOVxI;ebKCC!8*j9Fg<b;J#xI{Fsqm^fV6&9P}o=0LVtDq2r
zy8c<s;pd0@Hv3>VneL4r+&w*6J^f_4YFYt~t5!qTF4SKAYAQ2ACvhkQ0x1MtR4YB!
zCnOM*3`J2K1UsY!ju2p>;QT1OvmJuFWFV>IlaK^=cPnNkp>4KKBJRrGECAT~+PS+A
z9?gVN2nIv19IGvkvmP{#w}VM#Am6UyrTP#~St%R-nsa;4B%634I<;>xPp<(Rl{)qm
zG6q+xDF?}Z)$53e@y_^)GdbIwC{-ZoUO(f*iU80JA3$o?WQlLDX9xjwzt8{e76~XR
zmX{u_mDe79*Z@sXC`cCq+o2D-g2y%kZbAxXfQb!kM_^x0Z4`6}nUy4hljhAcLASln
zDl@v9k^<1fjrROi1MNO&5y4LrdHgtX;YJ5Eeew*NFK?}mQ9{f83OF1Q`k)V%JJbV$
zZo}Cw4&je*NoAaUxg>_Kt{J{L!Ll)K7ji6(yvNqYX`BNE$i|}@lBGVhk`URPoYwUc
z2HI~9J~vpD)w7?`Lr+it(t_vNFOfo%&M!u4o6h!&-5E47+b&fJW(S~cr)yX7!3R&#
zKtqFyiYh-zDdVw3yR1fW4Pxm0psA@zMgfMsiuL#y)_9TiG%g!Lvw>0&wfqnl6>xd+
zM~^}qW);)AbV0jEc}cz?DYJXDQY<Ym9}%hxT^5{IYtW*%DO=io?R=<y7@BSYCE)Zt
z0b-m<0N65U3m%3^gi~p2Q-FN$2f7h1H2eTJ_%anh&EqibzNhr1jTGF)d+U?Pf<Yf)
z0*uE9am<e9JUy0UPpWW!+&3y5J{;8i)r6yE^98tnE4F2$L}uFeMb)4PFfBrn+Hf=g
z?G4ud^Wk9^gj?A%K#YXJ7{Qz^P81XaaXme1)GuJ!#V(dgMW#v@uiZgM-G<!wfIG<+
zvEbH@4<7@ZQRE$tGw!pzBg?X98Z}AoIIQbfC7BXIGy2^sSzj7r**u3`)<5IEQ*8K4
z__21XqiUmpbl`kI94!rIV;+auBb^L0qaKGA-8ovMKpnn<%=`>`9^f%l3%$)LTl|{*
zCNx}cmMtwwhiU5ajhEa6Q!>hYbg4BOn)^`?qu&U3(;l^*Vu4njLY8W{s_Q{OM3Ai<
zvbALg6`c_F@?E$aAZq@wWmBNhhZv2rX%i6T?lj#4y54V1(QIdEjJ`{$soT!|pei#z
zIkwrDx<8-;dez;#XP}=pg}4Mki^)%VQ)3MGpWh#_{{meH8mIwCIJnxfc$(7GdVHdV
zJ7R`f(phAt!le2ch4e9zW|t*LX;2pTu5F3McPsQXBi|I~<RSo%#EajD`UdHRIhSWx
zJol;;Y3|&)4EvZK>CE1^d6NoAJs501JK;i$N56BFsP4(_Cu_gz5R(GZGwbSFK9Ny`
zC=F{V;!3Xg1jVM=uxrj<w$UIGkT(!1MC}0Tpj4FG@@-_(FJHi!MKyX~*cpPpevERn
zl>8=?yrSGQsod`D&I=i7=Fy-Cl7P<D+L<E7-0Qqh=?_7YPJO#>@$4qPLWSe%PJhrR
z_U_OPMgGg(cK1u@_J#t<iq_pgW+Cq2wix_iS^;}mLsMoMdlR2#l%i^}&7CLi!QE^y
zvz0BGL}k!Gdjs*9g2N-?^=m)aHrJt32*o=VDoJv3GGcQGvG`69)XOrj*edYG9-6xY
z%w};8AApJwD@d2V!eiwB(p<^1DX&!=8^d}idmWZuD(`G9NPKJnP65|thPCwoK(Vl$
zYQirwH(MaHJ=|T5X*EpKX0y6t)+NAW%I*3+P2=-!hXAa)odnqC0W0_d;SvvP;v#uL
z<Z{hXULGF_84!2gLA?jd2NrOirDqkct5sJ}&p=2Dpt&pyz&pl5dSo&vmPMyJ^p?WM
z>wJ79h&Wik@j8O8{YuNmRM``?_LEnAU7E{gv>!W|Q3wV!iYx{ioj(kOMo&H<t=-J6
zVJlu`Cn@>&j@nn@VnG0@^Zl4klfu}({A6eh^{%)`$UlRiL_Ko~$`u4L)Mj8XA<^&+
z-NhxX;zil@rLh{FlTO12l1$o_SNR>5K5LXD)7#`!f_mz<-f#tx?lv|yz|jL}k4(25
z+y?R6v8VEHA^ESx9`)FE2pT&^We*xu%-@-V8+P6bj~ueBxCE*KRLQfzO{S(l05}te
zWX5DHB;mVnIN1I`TKb$EAMQuz$ksS$K%$|*L}R#Kev3F;`9ex(x+zD&yu3qH7j*p3
zM0xm=y_n!)9m_XtwK=c!`;md64Fg~;O737^23n&~5?Q2H<2+@g?;F%^-y#7BRdaIi
zkcB@^|1s8c(4Q$q=I!uiHZ#tinvKy)$Ej8wjcQl$>In^YjoPuCthvtTK+v`tD#W{J
zfQ@Ld*dhdi4kk;+A-QLIwo0F8gl+-bxtE+Xs{vJIi6bwb0+^5^Jcl?}U{9OV4t<}z
zQ`K8wEUR?5W}L{UL*E)d>phdSp5$@RoH0hJQX?!qJZ~m4zni`<+`4qrw2fc@BnjeK
zv_!t#bw3czdB3Q(MG?bOB-}gN{r<H>I#EE4MfiBDi=yVeFO6XuA^jr2Vw-`t_zp8E
z<&QQ+2Oldc`oahRD)l^?Rl=SNUn2Aic<C&_?DcGCNsZSO<icu%B)1(vSIHZcaa3)L
zjz>^hk_QQ>#et!rzLF_<S2+uyd7#v|1=eNda^7DFx<YhwAeUBh4e~%nIX#*cp0?e5
zdgr^;bo!h6pTr8u<#5jq;WXUbD(x!$847eE_A@EuBNi7FsMEj%CG)z(;de%p%8RRJ
zEK+AaIogy3FJub1?b6i>XfqWvsCTpIgDW%iU<Ku&KE#AIj})`Xe&vgsF@k@(^WNNI
z@RGveV4UL+Jfg=n9`0pJbCe3zCslSZUGcJYWy`S$bOv9j*pu*dkYNKDyCI|1X?t@@
zU;s6bt97K(SwTD7rccXpV0m-pn}LjUa<+My$ZQ6ru}Wtalap&DT$dtCoRV{S`GgB4
z<O!47ik6?waDTD0^ScPFL<t9QN;>SbjgNpDbfnT`-YSkMLe(QsEi!$rai{~PSH!Sx
z{}!}CD5ul5QrtcHbOHjJVRplL`j}9F4GWgQym{kPBqTiC(K(5TC>-ys55^@?@Z1%u
zGlL~EY;Els(r^J+1mcVX>T1!RXLKT!_H<O;46tp$xeLVonv@{vg4TqF!Xe}Ff+>@D
zLq`5h`2kac2tz|7BWfzDI_g^rh~IE!0_4@G){pzxXPy9*V`-3sQJPt9`zQf+*|67D
z&9U>3&4A^BDW-GW1I%f%(7#F>UIbsBje!ZYbI5x2wE>}){6?s8(a{+1>^ug6qibZ3
znQ$PE6hJ>HfOkL2T1JYW_I`S!If@KbAe^TT;_^(?$*c6GCZo-rWxy0=%j8AzGyoHA
z5^XkbL~{OqcKcChaRt`ARCb}N-r{)r6MeQL2^my)w$z_zW6Q|D(XSugJPpqJ9=${@
zTacIIG`U{b>?%Jh;gfyK8a3T!TL%e=_rL=>KQ>=$xSf-8uU*7o(k#UjnI~d2&GBf4
zi6I{pLn|TmjEWC9p9TXWz&jxChd-77{re-(%g|B3**cq9FO&6BKN}1zU2lCI6%`0<
zD-hZkGIoo-(kMLEs;$Rm2hgXbS$rTX%UW^*nzfA}qPKkobIw;tR(^P*K+diA)^t0I
zEi}|VYLr+i>vQKW4wu<FgtK#U_UP46dhESN2nI;067pX`V7iHznEEg=F+)hXEmgC#
z0Ck@Ay2|tHUE49ZW7PUU#aStG5;|HFQ!@gEmUt0Dgr%<vz^?Kn6X-662+M>SHn%Y%
z34HLD-~%NkfXM*j^|(=1ThF8Q0Esss1tS`35cE&f#y}1gH#N<Kd~ROGmoU#CHo6L;
z!v)kt82`#=jdoIKU+3`2Xn^i|3l#|HCZt2?@KJ)Wr#9Rgl`kFy2DPA|*2Sy0MOM-P
z91ssBfto&16)Wsnji`xW$P*3x*`WsVL_b)luX35kx`lrS!K7&!mqNgVdlZWF1(ax3
zPm6o((RQB>@fa&Cb0H4}&~QLC4A9j@ngQofdC(QDSXW)7+-WfexkY1D)?$jj7qYR&
z*EjL;jK1{8kF;t$v;fisxvrE+fuBV>S_1^fdanG2k>cj|_Ts&;Q;_r}JUpt0cYs?H
z0vpWhZv>v&(x5xa0v@80ic$573}mnf3zZC>F`QPHgWWrjz<N1<x1X)R6NvCVaaiBd
zXXD;~g)FKEhmz2v?k}-Q0#&cTWD)c|7Xji|01gKvA%i0JdzL;<nD@A*0BNTIdZd2Z
zxmQG^cJd(EsU1ni30)ZtZN~ShyRN^`nG!IP54Nn!pzu)h@Th{M*k{JZJDCzL6uF+n
zWBo<%EnUYIz*uv0!*y<gC}gtH8lZx_qT-EKB-)M-?2$Gv(r{+;JaLN|>`-uTv%^7&
zzz&excKEo;?$|DDevRMZ)2E@z<;tfk!(|(r7JSCg5J_$UBPchypo=1u7u5t*mUC(R
zFKFDx)w_e7X${39%bNey8i8maEKY_{F_;H`8VM%eTXUgK1YX&+4H8aXc{qfqcJ%#+
z4-3?128@&JOFiGp7_WP%9r{RPQGvPa-9apanYSY-ti;ECTbPwqQsBR3Ubrng%<lqR
zBl!FG?>5%4k*Q%6Kr2dI$iSxc$`EkH5`}Gz$1ysp6U-=Ci;bbzCc7OUIyg9#@qtN@
zu`fQ-ZzndUWV<oFrVx~p)6Jw)p3pq#aq9t7+Smsl$;{^$OV%Y8Ews;;1;Lr5SA?^<
z!wiI>e54zpbB5#}J@W@9o5vn*eqcZ;jS;~UuyHlkM_q>wvDtR1!0TTYBjrV1jav;@
zbX2n!p{^vuNI_<p8OSC?mtWC<D7cb_SOi)<zyOfH1fx=#gGp%v57)5A%QnveIp*VY
z#1jo<t={{R(a{XDo|dVw>~;~fXPfz;Qhjhaou8k#semDb3cHJ<SRg^J*jPuq3xDss
zbnVX9Y4-trQ(2AKQUt;6KMTg-hD?4DQ0-Mt)2Pf1kT>85Q$xRay4NF3I^G}p-L*3Z
zkcuW?|FCpKsPsY?efpB9d8cX7-a=OHTDO9%vq92ma2oWQ0E3~)xx^d*-BBI!sPjIz
zVKWcc-%^1euTlDpO1;?pDZ4+U)gzcHC64(%cn8{yFkCUX(Du@jXvTJox7@X8UVi6i
zJ(So9SRcF6T-b$}h$$4hO4^nq@Y%?N3$Ty<c;QwnhqNesBL1~&Pi<YP&_Q}QQ#<p*
z_wwb-Q-=9F9OnIaFn1&lqMrFTg<Nex7?a}v)T)S#-EdiLO|v2!A4H8`L3D|q)jUD}
z2KCm6tt6A5`y=|WRXh~LcK~S|O0r?Z00@kQjG>-s3}~=fF}_*O;pFq+GpS^Y-oLb9
zzCN>>8n=q=IAi0!KOM6U;aXN%#n??IJK$_4jaYG@*Tq{o&=X9=c-wC72X@fB@@(_w
zxmUqFR}eY^H;V(}MEx|M=J*30kbU9=!VxK;;l%{m(}DcdO1dx5JkVTe6ve6-<2UTE
zSdylj&O|6w{6%5J+L)UJ)aQtRpppWnvx9)uOhPFI>h%@6!OsAeQ1S3w1u_FY^{=3d
z!H9!8^kIL&<YrO)4>=m(xXAdQHSozt2|W0qP5CKjH6UF<@aNI6vv;L%D}iB0wa^3~
zh-eUix@*vW1=UFcm|eNUaxi!%@n9}E+E&yhK5HF|>bBljEa%N2AWTseo0a!pGblm3
z{37sN5X3K%aHJ1k`T^?2Gx$7Yum*%&<Od<1F6i$f1KK}RAHqav#=;~CpI!Qr6rwAD
z0TOVGo}M1!Aw%dYG>jxcY<R^ya|**G)}R%ql`!%LV=TkS+@Es+=**yvI|_bVq~}aU
zbp~ndBBliJa3Janz^ncuvnzM*-1+fYS1ilk-`DpE!~irB5M2r}|3I>WJ@U?Zb0#o6
z9EN!BKw~J|((1uIzPQ$HWR@sw1n&HE&mGv|$e1+ZmaIHj$U;14U+U|jS<;zr`0!Dp
zz%{_t1jsmO{N`fZggk$4UPfhAnf33sG6`55K-JWPF8f?}1_7*sX?OZ_s7Exsyw@@^
zGQjBd%2Cs*|1%XV+0wVEzzPcjxC3Cyx?pL6I(QWvoM^DN!2k4+d#ZG1N5<G-5_=%D
zu2UGNyRtD19TRgB?5yWdmEg3^EM9L|P3451=~sB{ItU4?55ScIHjPI_bPnbVV1II0
zjgkQ@sE4~mDgiQkqn_P6Y3-z7XUBoKF5F=L1TlaB4Mv>MU_kkmbb3UWUr>Mu&pH9l
zt!rERXXUJCy%Aal1LKGp2Bs6o!PXZstBDYTkdS(a>d#PQV4%Hk`M9jbZFEyb+qogb
z0_?X_!mpr_k_SDc@NdcyT;}~KROw_G{|`Vwlv2OjQ#bELwW&soAp-|fm$U)G8e0eG
zL-h%EfLRjff+EoG)Q1hi0s|SMlj+knN?73H5L+|ID*J!EMP$E^R$$41NtuMphNG3v
zLSg=abG^}#k=~%bgP_|uPIL#!lV!L6ywVl6H$2xoaEfbIIJEVR<Kd6wYkTY)qG}NX
z^|P)PfPfLMe-3Gg=}DIt8=Y$&Aq~8YA7KVcJtP=^Xe3QQnb@`GL4I%@52h7rob3NO
z8Nwip=HCvDkova+CBpt|PJj4!JLiA=u!;Zjk5eSl!NfD!*xUr)fIB%xrgAnm3fM6i
zJcYu(xq=@NBv}*+4i12Jolsa4KN#R3F`oBYeQKzCl1TDG5`0a2Jk+b>uIl@M6#yVz
zMTWRgDV=kZft6w@oq%G_qQ<&fz8nd1UcCqaZOdAG6x2_D2Bilu#tR=z9~@4zfm5CK
zI{Z%_L_r5OB|W{V5#JeiOkpf2IC#Sz3!12K&IjGK7m_viv>~08E#a;^J-l}>P(YbV
zJXNq4MwK)sc+Rx$D#}MaaQ#&B)0KpTgdw~~r<$hfZc69yW%s@*Wu9J*c|p!onauA=
z3fao856RM+vwwJ6rS29k%@*dL&|vK8jKM{^$ugervR>FecyOF}8GoNqrc(q0?9bPK
z*|8!2<xldz)uAZ=;k(NW&P9X3LcTKZp*fs3_E9+vf0L>DRPDh?&WPWc9sKWG|G(3D
zG5_JE`H!E5^Cx3~*D+IZJ=bWn#7W>5J^ekFL;WGw;C*Y1bLW%>C($2_Nr4)#@icr}
z*+sT3Tq&zZ6l=WRq;eMi+Ug<0xaex?k?{Ihkok}|`;+D04R}YmxaA}fw7@LI488Tr
zJ7up&yMi4Ui>9;fK8cH)u4#1M2hGJ}TR*wS6#T{0i?<nIQ~KtLrQ^YtO@h7sA~bZ%
z9*Zcs<y3#QdNPG!Q!va^miEn!4?n!I@u}}gqlfxZ2i{Zr<-+XMlzD-L`knW5J{RFC
z6fHfCyZEFz^ejKc@fI`BD7O6kpmI0(0s5_5H*UQ7{{7e|o{j3wOB-4`;|=E;ZD;2M
zg~TylS&T^54gpycdUp~7Q-!2&U%#qqi53CONRjoq=uYC6Ad?2adJNHD3~rpfH0`T8
zE8^Up@Zl%oYfyqSSM0A<*Zdf^EXmK$XUd^{2Ej}Sexds<?d{R6)A^;zwYM*d0fc-_
zc;rrU?OF!NPWQK-ex@Hx163;%-%}Dpv{Q(gp8f}z>6mipp8<NAJoMv_J><A?LmXg1
zq^U}h5e&I4J7{RiKOtOJh-poQS{%ZNosgbR4=MdV_KJ`_4_Wo+S3;L?Bn~;iE&?_O
zViiIG!06d5?*|hWwa<H<>E=SOB$`@xG96|u=gg*HCpuPrChfLkbn5_LAh(aSaQD{R
z`9@L85`L4_BChSHox4wO?>_Ae7sGT->W$ugYO&BYxFN)R(7F0#_0ONGNSEBzx3pmf
z)tl=VGeiGjVR_F-W3~7dB2<fy1WZc({;K_m<#gtM{)npmD4NZJtb>=}rIVElSr2cI
zBqyR}v%uQC6TMn@;m;DGxFl--=Z~-!|F^6Ik*WO|qYalTI78qqa)b&9@DC}%rD8N~
zf^w=4Ou@X>di!G5L-fDl(S<Hu8=sVv+eqR12xu|G&H-p(ML=J*Jocwu;P?}w%U|9Z
z{(W&BmC4yr=)6A#UIZK}0-1T$vg?$%b5RV={|Z6oiL#-;35K-ZKzy1{EJT0b_XwY`
zUahOEYa1qJ??obROf6_b+3=8IpFb}T?w@UNa<|;R$gKKV<aeU^Ctzo=g1vUZcMx@>
z$fQ#gOqn-#;E*aQIJqh2h6UKy)XmWTe1ezA`Cu<@P&XsHfmPNtLVMz2B%Bwa!_4_N
zRfxPhCs9jEKtOZ<0KBiq6t<xC-v0?_;bf-L{=G`9!gs0$*}z33KY)FFVXFC6rcRAV
z-ZAjtUJz$)98+vX8$#zE7B_XJVkXY48+w8a%I4r}#FLPc($JEu_4PkFVJ5-He-9Rk
z3t1TyMcJ}%Wzzh5(8F}ERxd-IOI~dSM+&(3G*qR3LFx^tzng^de6TxB;&cg_j1Zs*
zhgZvV3SGK%DOFbfma_X84;jvw1NecCPK5Lvsi<ng*|2wZpW0_hcjR-8FruQQ<j^Z&
zX%;{$fg$=&;6gP8%ZVwl`y2C35i~9^)9faE9cIiEHeEoj+&C1ofdP}A_hOiv!MW7+
zx1qM^+F$Dd<MO9o^va@CSs%_}K~gAFb6vm0k}xO_2wy7^R9ks(Q}(vcJmU#IH<TV1
zw^pU0W!i-lE_8`n#{1B!?*=<)8hFJKTWG_MgrwvGghMCHe|*=0SnK~fPYwZ5XBQE)
zs-|@oR^0140mm6DMa8I5r^!q1FpUMYK6eY5O#-Q|d?7Q-4tnv6$iv?{w8JrUhF2V~
zz`;11Q4tZk>Lag}z!`NvvT;%#^y&s!GAQ^~=wdQ5VVW#44MgYsb*~1$c=7s1*@z{q
zUCTu9*))?RBV*$jGsP<Mo{vHZB6vZO#q6#wC-?4e^^5zNR>woznVCctyfY8QbIPHD
zIfLd0kR3NOcJ#x;Lb$SOS*~-oN$Pc(P|AebT3WCNpK=Gw1WnqMMZJ2ZZ!J-mLVJ{`
zuGMaz>sP~yCSrllaVFPpCcy6u8iq-&*O{9;pzGX^Y~if>Vi=<}<ER5RGay-vIv<)V
zwXJ^mCq7;eCo3OWc~{k!Y>NTc^B$?3;St1ygy_pv#BbSO3T0E&U0qY(W(x7}&VU0y
zOirmj&Pi1XQpn2H$cFfP)(xjAe_lBJIG0cXa~XF@2d`9hJn>9YE*acnGW-3+d=n1w
z4s9z&4q#^d#(mgKC8Z>Px4><wY%HfMESl*cBNdqsJiel37tu5Q_nTg~yp4kW!A-gd
zO}Yp7@2|JbM<piafQUB-Cx1lfUPaPHh`aeeKWvE!vIYDgIIt_V+Z}pGap10Q2NQ&8
z4stRj@^zLDUIME+?|CxoiKw-RBfq7!RRK~_H?&^2p<CSV&GzTTD7=f_w7)Jv$^e`L
z$^l*0!@rx`%T%6`SnZ!&@I?H7Dju?8|F=}U{{c9^_s9SL<3^x?14t~iX<bk4uL*&z
zEjTQ!xIEPB{H5b#4GwS?!#RM&$_j#}8cDq$c3-`@SifcgXr0(yM^aLf0p>uym?CME
zj|}Iaki;om{inHz+P1sGR>vs#{hKD&RUb>eBXUoI0XB^7!@}aN45Cj5)z-iymXYr-
zZmYxh{d|vvzR~xOrS)WU3APT}<)Y*$5FP=Q<#^4Iv;MX>-xkvW+PnI3`km9dOh|tw
zCMG{lHXalHE=da!R`;`>8}{r<OV4*Ld_9EXq%fLRx3J`ijyv;jWpV9f3hz32Ia@kP
zPE^{#IetHKXt@{0&X|Eyfv8Fdr>r8JN*TQEe+q^vK#C9S?s18Umevx_6$)i#-|{KZ
zjLJTji$CDt<5LG8LF9)|pP0%tS%55sLfPkp!{{Ovp@M+B3gJ&sLFA(gNmP}O-;xs$
zOp*q@ee)&*Y_ty-us8zh--GY;VI<Tin51V0VrKgAPa!ck|Frr_8b<1DDn_Ea@lAlt
zW`aBY#w{RT&^1Dcm-qhemx8y8+7~=^FuVq-_X5O_8VX+`FR6c>`}0Rs{Qvy%_e%W7
z)&ZOI&^uiCq!hUMjd?hV_hLWq-=&uudPA`W<G5WmWtx#Kl)cI`WPiVtz8stUw@jhT
zGbPb0{Zbt3zkFfJ`3He7)o*z10@$oxhK7Qg>iNI#>woxq<`)#_T)+i+eb`qXzWM-v
zW4!TU>*B!V`W&2M)CD%JS=VeB*-^TM`S)F>uNlr&!lAp>^F$B2KnKUxvV!*QKi{ua
zhIt$#`}40aU%6sze;##`G_AmK&)EAH5u<WCG+>ou{zet5SUwfM68aSkY!cvWAP1Iz
z<30?RN5ih%)~vs+2(wz8=KXTuJX5;$r|#DFVtDTQ_1uhV{lh|Q)iMPn>IcYh0$6_`
z4iY66+`rdIFZTNE=uenw{jv1$pU-=s>ry)elfVV6|J*;l-~1V?r!q-G*<gTZp0>Fk
z3FCe8<Zb`Nz1#)W+Qn^`qG#ixg3$OGgjv@hcR%Euw$#+r`;mz*3%C6Il^@Pr{QIfJ
zS6*^(f<pjK)98a~9mjTkTN|4#ARZ4Q{c*@Mk$LH;e;&zQx*K>`s^&k&yNz3djR&DE
z^sw+B4|bLphqSBRoUgb1gFN0DxYSmFf6jfYQ!4TUV{YYRu!a=nRBk-rB@25TZUud4
zt9Y*~e=nk?W6Nt7+N?VkHG2~w9#SjBkb!qBtcHr)mTdmM=DG=l5;U2+OWsCBO$~8f
zOzEBsVaWtTM9mv5oWCzZXYN891qa?<F}S}O?JOaOHN#Q3zrRG*?g;+Mh6G|YwCr#?
z`Z6hl1R$pS5V+HfV*Y|8)ZJFN5*UBkwTLlp@k^%haNU~Ib@&_3>2<(EfCr{Q!~1o4
z&AWFZKpcL;2@~BP?h^pCXMn?5xrd+mz(G#$eK2vOc^VhDk!I-w7({8D%&@a~{gm_s
z&TtfyNmGEqhIQBPFnu&-#|Oh^%1hherD~qHW1yi)`LcXaVe}bGaF>dR9Y#3d(5riq
zQE_pZV0(#iK7xtN@u6yX3g21&hBs$F7;>PM$I_N4Sn;(Q0wV*4Tn6C~(!4%ga=s4`
zs`J1gqHZh?mnnclbbFcmq8JPzD8bZQ5g4Swke~j=Ua8n(PX(MpF|A57Y%DQZ-TE!I
zmJ+$wm>yBq@xvgIgt+*<NMt@jCsTWn@DfZN|AaYM`uo5Jt04l+{<TW)ArHXG7w=%-
z-s0sg>le!H%Mx-wFaehYOdVG#=V)dCvv3xmfP!%h&kr1u(635)(DoLH<HrlEm2xoG
zs^cfMu3TjCj_-|-H#dypz;Htkxb^J7-H9M@I1o@YFUk$Ns&VYbVaN>Zm>Ikzdo9`g
zf3f!-P*G;xwy13zy3L`*1lp~IC<q9MS|Gt}0iqHmiGoNHP;$o5YAXs_P#{Q_3<VMj
zB%76-L9&4$8OfPDccK0Ff6jU5-toqG?~V7~?ctymimLD1-`*?CHP>9TPy1;+q4}Ua
zs*-dctvj0F1OitnS}t2G#aQ-3MxgzS4d1+V3t}(wPUC~8(M~9nm4aX$RdK6MW~vd|
zv^zkFOY4j_s*B8ow70s}_3nAif$QROrtO<57K0g3jy%$Jex`)|;C7ClqDMl9aEO*4
z-Z6Utk-?x}QfTSO-(<TcKsuz*PzT=0@l@qCSVDp{`>up{yq0H`Ylm(3n~VA5kFz_;
z=5T#Oq#yP}n{|e$S>yhtocm7U0i8lh2<4F=G+Q4Bw_wnrkYpTaHd01vum*4^2fw-j
zY+7xio@<i@Ok6lxAEVGch*r@GZg0&Ho&ei};7Rv6$d{&F9_g-&Kub>~=sQRUD{(>b
z1UcQOkD4j2L_NcrN!bA@^O1W%WQm+YQ$mZ6U}|Q!%3-~LBPUiq6>7#VL$Z83&+mrK
z`v-s2f;)t^f38U3*}FgWGt7-4m@gz{g<14pHSy%h6K)z9WX!>XhJag<DV0Kb-4fSq
z9;jNGQY_jQQ`Ze7mtNh;|IHq)j+W&o_O@%!jC-T@ABBVo<P~Mmo-$Dkm!0PZ@CMZX
zc!9L$RVYcH0P9)>945$+$Aej?3<ki?gh-$2&dRBgrg(Iwbh4_?mP3x30a**OawvqV
zqVml`O;*8J&~NbwWa<<_HABmd*$#gG69_QW6EECJw`>m~T_RzU9!b49eKB7x_Ejgv
z7-Y05F!WC=&a<RH02RN3{4Pul`Ea<5ue6`cU;p3&JT}WNMOQhp;3ps$MB{;6+xgu{
zik84z@zK&Dy(Zh>(jMk5Lr0HFH2PyR3Re2-t%te+#SqO$Et2nIQ}_S_WS5~T&Uo}F
z5_h*9K@gSzfm|)LTYGY5rdKJdkrq_+nfv0QfkqRC=nJQ;rLD~v3emp%uISvcyAEPa
z_*!kp({P6Bkd1{S;dg)c1h343OlMwkF*vVTmf$Vsuo~e<)1hQw2}p>%O>^^CD9X?&
z5)c)DV3bGi2UNcEJBN6=xsTA<FUmUGR4rPqso0~h^w2v0)jj?5EF+)!we6N2A+7=n
z5QVU8VW>vqX<<*sx`od!!>OMkbaE65(w<5k)8IxM;=Spi=;J?uuGvzwjYNW^(t)Q~
zO<IvF<-wHTrp-)`<m78TRx?pm`n3CJqIXBkGSH><w}OHD!xqXD$xs~NUU5kXsk!g(
z|BFJH%o~Js{zOxy-nv^LHB>|^^AYwj`nLN0EpXFNj6VP}dj$g0N~XqMSiJYUmb`iU
z)~Mi-kUbQ=$WsKzy2*@*25|V@hoHOf1XP6M2REceu7hF-3MqHdjwQY^iMzD)YKPv%
z>Yo?&8k==6(k!TMGblSiXYCb&yG;f2D+Xwr3>~oI+CrERm+|sIK!<D56i6dFf<E0~
zL})6!nR_;=HZBtFM6wD#1FaB*sn(XIPY+1VD3YySO~uyrc=x3gX1>d2PV3UW^}o}|
z{%z_63nZ-~$Qoj~^ic3~I$;i5qNBDHT&gA)Huvo8c~!~)-BXs1F10hQSJ3fURjuv9
z#I68^Nd`PoI#z^-Ms^x9mQaL5V-iv@oOIsFQYR5y7u0-Fs+J>n1ci|xFt?<^Jn?9<
zySn)2)|V?1_b)p3D;fb3J{;6PlC$VWE3SDoOa9Yt4*kW;m#ZR@qR>ENH%{y16%?rx
z?NmE+|3_?4DS+UF4z(ARxG%c8x>le;5UU4HiBlL%(Ad#x0A=@`50$*^)YsEfPOr*K
z(K-!#S%R}J3N{d-MWusWS_uFYHoqOx=cVAdxN^<liP7i;cQH>rz0TQwe}K+n|20#{
zHR#O~W`-dAO!gQ<zML}uLZkZZMe(2eDZZ{-1!Pm=-Vg*t!Dylnppu$1yNW9&QIw+4
z;5-%D_96}h)iQw64&Jo$+Jk(V&T22t1=S8m#6I06DR~y`^)m2OS!m@r5h$qzw_J&7
z2v6WNz5?Cbsd9VJp+sZTO^Z=*YI3k{VNMLu>dR_>7@fboVa*!lp7gx@0_#G14wc2n
zpJzY-T-2mi34En;AV5P1r8=N2Ujm|L@z`t{boHa^KK(AJ>F_z-4{^PX)9h(qfRjZT
zn=#0#G1++QQ=I^szlQ43P#7>Uj+`!iuuN7Ib1qEkpAj(H16d*_0JMm=CguxxP)K0c
z5|@D}f*y*VkkI-z&$mtcUw{aa-M&lU*~ja=td(D9uMgS5`t|G6yAty~{r$Tgfal7i
z_T~YiQlaVhz-^Bu9+NTX++wzUL1;?Qh%&xZ|Ex4sYoBUI4H)6S(>id#!)hZ9>TaFi
zj-vsE^lAj{jsq__^4`BMfz8zTG;BZ8!{1);Jnx{(=qtEe5}d(ARl@vQoQ*&}Ko3RN
zW_!HLREz*h0E?=((1?l_H2Kcxyhx&2v>vBJxh)tw{I@!oK?$1v(N8KD)bB*6bh@h*
zzcdPW|L8C2lrC6rQW|m-T71dQQ}%?nY>#XI*D_a!$*!eMA4?(~O)g{k+R2V%<|N8_
zbMzJDbPp1!x$uVgr4PG+jeFbszwA_{d}JEcLEVK;xxY^6APxiF@?t<WD083=nL0;=
zjiLcR9GuEd@KT3a?cZ!c<on}3gssbZgX1i>?V4(unbM}|bNmUSW3buo1Ux91$|0x=
za6En)jBRS)>Z4EbUw=fxWqML)U^S!?i~x0$??NG+H>cPDju2*Nx;eud++vIcL37$M
z8G5*!kHTlam!~U088;1!XpNN1n0_?0GxnnWb8!SFO~VT}JFa*T41N^(?`bND^6AO8
z-##mhw6(MtV!A>{Lq;l;Gxwu-n!9TWY%{20Mu-;j^70fA6YREVmCNaN1U!lqA?{g7
zJxiI@ozasn3rcsD7r%z*g9pFA+64%t0z!=B@a9Z+=E#`XAZ*<r>G%wuuEV(e)8*|5
zyAh2l5bq7Wo8QFs0rYQ>uulf<N)-L{_)UB|Vm;!9$`DXguX24ZF<5daeP()s;qT9s
zn*QdFFleYj8;ZY(E{5K3bszN~K1e4mW`&q}0@ag%C9h7|+CDQ)YvG`kL0UW*JIi}t
z8ziHW*g3CfdApK<LF8<>RGugvdbiu_4LqPI5|WTtud!dvhFfMm-impU7O2D~XKJP;
zeozX$39lE1B(@Vay&BmBZaWCBjOs7Xy=_|u)~^Dx@}%~ZvpKi8pn&b20K@B8v<Ap3
z*SR6S1JQNx>l62AY;RPLkZx3=B_k9f?J+RbVJQ=>kIg!OMVF#GI2;Vb{7;wB$7v7m
z7)ZhdghSqEq<5kUjz*&rSb8f+bhSgD-}BX{Q!rDzAu|rE5ck^hms{t*!XuZE&qLpG
zG}IaKd3W#JISoSjCg;)fAgrn&n*KI%55XW4Hm%)D!}K)xe28jA(N)SklW@>ws#9B5
zf=5UQBUqSaR@GV&_{jWj>--k;+|HqZ7}@9wQ?&wH4i%BiHFnoqO5miMbPPASM|^l)
z_TqQw1;ECrctf&kA5H&O9i&OhJ{!&DL5curCN>U*o^&-*!Jl3nWO;G!Fj(vag9>p{
zSNt2Zs!bg?0d^NAby2Y#Gfg6)3rH`DefbzQ6asN6j_>aHI#0HCX=v9#-pmytkvFej
zk5(Oou)#>ihuaNQl%8bX<1+FJ3X;J)h}z*KHku*0({S$tjv-D1S_Z;fMA7t6(#V^Z
zp6-vmH{PmUke|;tEcBs6>2bCVN)8;nlTI}Pi`LFblGR=#>5>#MfSyxPBwFyqC$VHA
zExt#P&}o1oNt!0&uKmm$6OsJz+eH_UtfTQfDqEy~TK9s8bv30ZyQpmj?VYsM5!H0$
zh^KL=%hCH{1#YNp$L!9NrXj9kLPQ^3DWQw*f8MzqsTt{uhlEP@o8+tKkhP1$<TnlH
zOb-br32JY{&xtcfLqHWAN+g=RXy_;>wL+4c+}|W2W^gQa)&P9C|LRkT=MKeWo8GhV
z8Ko7*@z@P8XJv3nYgXyl&s$KjF5JZi4UiRksl!k$aAlUQHCW8CvjihEe%r7idf_Hp
zX|%tW<BCENETdLuxM9~hX;$SdxN+4Y12JkPbj%wNnucqYcMf%6W|M-BP6!lGb!x4y
z`EE~6<OvT88*3m|c&gjXr5u7or1mL+PM{9-+;>zl9g3)SXid?KvWEi+cbOgtq=%A}
zVXfxnYi3YAcmx*rZs*BS8Lf@8H+JpQ<$Y)|lT?g1Tz4ybX4*k9{?`g6#xmR0t5)T)
zzRH-In%<nAAD%eC1U*=qzWc)a2RfhF6a@Uf#U#WKRlKhz&3iMCayDKS#9Df&)a0k-
z9I8Jshsq~qTW!(lVtA2Dnf~x$@Z_W;t!(~U%^>8924J$+X4)kIm?cI~%b}Z<4v2(5
z4(e#^{|Xe_ucjjNy;yac8~cJDigOVb9^S!FJ^QUYzp$_plx7x4qaffPMvKG#wjrWU
z>i$l#BO9}EWN?B-!%Rg`OobG^n$}Sky39_aMH?&}O#sZy_HsfymyP6LMV&-8XKeK=
zsfgZ_WG;wsSFf^sUh!w|W0)^B5P2?(`HOzGQ@veV7Eu|t&9R9s<gqFm4C`lb^-O`S
z26%BphXR|o@}%r1vlDc0ZyuW1mCt{Y{2ejd@x6_<Ptg9u@b-=%5`*OtC#%V>!*k*V
zkWkPGz#!+R_?+r%=dS2{Sfk>7E_%U$>KW8cKh6wk4xS`j51Sjey=|E(^*q;CHz6wf
za1v$UWw#HN`Sc+vh(iafr<pctq9jTM2$3~VByJBvF@mRL;rMDGZ8--_ZEbDu|6+IO
zpmU&P+O~?-+i#sm7C_T)Rgdf1;%I$JV>~%sZEUBpY+%3SQc3WD9`%+lQjs`0zWcIK
z{y;4M$c}H4OOLWz?5eybJd2#-kGNd?`D*R&+vhfhY#zu)LM0;+j{ZR+rDX{b6WkNr
z<5*TBc6~Fu@Cm7!(_=a(6h<HZmRiRoWMa(|AJL+@Ls(dWPI9v*gYI*>>uwR{78>vN
z?R_W2b#9)UIQ>3)#P~!<xwNaBn+k3*RK(?I`oBT)Wj-hEF}>-G=4sT}%YoSEkMGW-
ztNffFE#-lD*KzZWqJjb?XjE`p&3oe8XK~&t5_h9!6aU?w6~zjDX4ih#ReJR{)tU#E
zrS&p)aL%dN6TUEW>(P6WeS%AGohJi3$R4c(^oY4btb-PJ*7$FJ+UMPybmYj?w6Tt}
zv$M}ng6!QZZKYme5md=N=jjgkNpK8&gv<1ylTSjbN=%Ki*tBuerZ|X?P63lclbWid
zqvIW2G}_+f`T?6->yJky!2JcIp<+8Xci4wcplgubfEOHg>Pk9=IKvXTHOEF}BKSgL
z1;Xc0&485mLy8jwr^9+?AQeZUA>e`sKUE<2Jv|Td5|Q|*m2$}k^l2xHMu^HELd)<e
zfDFV2IH5m2FE_Uol~}7vWmOs-eGd`vxO{?wC*kZzZoU%mmIYrz#o2k9TGw3}<Bg5Y
zf?UZI`g$r5_&Zgf!FvNL{Dby}<J=EhATHvx9WY4M8dc3;bPsjnwyPm_y!H00(_QOc
z?E<yJ7^gcL-625Dl)*P)0c1s(fGk9rfNR#hjZ7e|$}rSX5O&wRn1R(Gsql2aca8yO
ziup>pIN#Alk6xUtK-%kyiP`KRGCK0f>R5qb&BWrzIzYgSbjE*aBqkUc1wE7;%frt!
zV!u6Dku^QuNe{(R8KCWo9*Qs}3jkO47X*!paVd{?8-_s3y#pAE^1*}G!4RlGhr<wt
z$dIG_^!zJc2aWG`>(rM=lGkmZ?Va5Xuqt3+6!9L1xXozaCweGQ-qEw#2|7p8>f90C
z03}BlS7ILcW09;c;OdaePNd`~JyI)OnSG@AK3LBto2llnJ!`*z!0(S9ZR)#)la&Gi
z-(ovQG+ITqaje<6QDf-kkC(j1ONQIa-=$_DYPHxjgW83seGhp!b=bHfQDWa;_{%12
za3Y9k<^UuBn0iK&?nqY+36saCU7)6s-OUD_F-%X-=>GR#TCqfKxh*=Nn3(k>L&{qO
zs%o(BWRByZ6129vF-wD>;?TedLmR_(lIT`I77fq6*v21?Ort4~8@goe^ZgCaIkcUf
z&%D0mRSDGHECEM!K=8|p0`SSf9+~E3Ksl%ZL?>v`uVWHs@`wT<ufk0Ol5o-cNBJN{
z-yXaaWOw8uAXykqcrgez!Zz99kQjl+1CM)k$*b)tW}szU+rISsXJ0=mJ@;&T!SP1m
zWro-kh~UcrN0Z=!rhwdqAm9K>7DU_qSTg&c7Tda#&=BR43IdWD`~c~V=9jPi!Ah8;
zwEPDIapvupZ;@!p!9h~J<3#eI^7aY@Fs@lWL-v)>iXa@VFW;2XO<bzu@8Yz-2e1SL
zHe4%dk1Y^e0O^QHGFMH&w*MYc9tF}(dF|qG=jg%Tmg3+(sP1H-x00JNZm;)S7RT&m
zUay-)&f^pgRS{Vq&A3&6#GPN~3z;E^h{fR<7?cDZU>Mak4aJ1?`9`jDfA=L-5YMu`
zc=x06sIs4WA@$qg@XL{(8$#k$k1D@BKl{EPZsQC?{GK38xNOz0^)QMgq-N8BI^#0r
z|M<i46c=lC)7b1UJbkSn=oF4Hs{^xjyw0y%BUZg@i3AE~z<eKg321EyT6B6flsc3U
zLLfUzN%!19J{{Hv1CJyT!58;-GR9`(B<b#55O<=L0VC0h8UQF|Pb<@Pm$;~Yf)4!<
zapV=~Uj2$*=5*{F29gcXTfr#NfCSKyI~IV*d9ZrepfYqKfo3V@qz!9gc;~+XmA9*!
zV5e3<FX#ziXgn8QQBl@wp@qvhOCWa=Odx%@5csP{Xj}Z8(TGhqh@`d22xTA=*+3Ht
z1i5j);z(guhNb|)Lm)y(Aa8Wf0)`OWAt)GMkdo(nqq@bsodBVD+fNy{(I*b<P6ib?
zfh&$yLyA`9StERoFX^0JR_S2u0)iW>YFRM=Iw(dNL++3umc~`Fr9eX}VV@L@`1}H`
zKE1rT0X?OtU6?hId<$tiS%3THhsW;vt6J77q}FM5Wrmc~?X%7j2-F^e5w89@P@FYs
z%GQD~XEG^lKujTrMWS}dcL=7$Kh1ini-aozNo~xB%oGyqLgo=I+hWk1f(|_?v=4Wm
zgeeE8M3gM2-nmR3yEDwE;Q-1ODTg5O8b4e2^!yDpA_c7%xyWWq)$%G;ab^OE%)!A@
z>0+V4V+afEi{VGxP6iOJo7c0m!O~a|ox2NWS3)TR4Wue`Vm4IT#YlCEf@CZtPt?B~
z;6yc|aVrRc0Otk7p^k(<j?#`QgffIsf8f01FSC(~0Pr2pj!SFZ(3AjBs2mlbNNCFu
zdL#INsB)b?dh}MK<G=}^&QSY13oymAsg|T9u$8>P)qz=K3!_jXXk9?|28sF6x$KSK
z1m_F*CJ!zB)2)qARNJcsl_N2TBBAI8kH6cl{{pQH{7D(DzSu;T`+AY1fJc;(^b=7+
z@c0NKj(<T!cS>o?Vg7imyD=K8#*tM!xh7-F8+`lx1~N5ekRuC0Xg%r{-{Ty;Y+mN<
z0!3P5OFSeNLb+Xxq{Ngd40w$*KcP>ujv>JB9Z-|?0DtbUze)gvM{Ag-9ib<ix8$vA
z`%PfD)vT20dJ*)O@FhU9jK`73Y{`QFtoH0tL1%F(<a5JO$H)Tg;A{-3!aySFqjmYk
zeCIa7O;qzx!T=@I3H-*kZAVFg4h=gHp${du0#|8N|11G81VD;y@_v!n{9IDbnow=o
z8#at>PTm&TxH<%Nq0t4@1fXenOkBDQnfy`1b^6w?tG5|IKvxW@(3%Y!I$~PTIY=@~
z0h&EHg|dFCT2o3~KS<=KNZFm6CUg9FWSP~Xh{a0}Kc4`^;5BalsXm8zwLVddo7sli
z0V4D>NWH^0S-e`h_c$Heo1aI-KnED5t_^oUAF*sE2QCD715He1p}Ar8_DeHR<`51W
z1~x&XBOVsOJqNv};>7>*e)mGHbjydK3T<+dYm>&K#FXrpHTIK6J5v7yG*60%{kHp!
zfWV>Ywi1Q|q5JL<?%8J;bZdv^9Lz*&ef#DOjSiox)Z$xIg%nUh8}lHuLq!JiR0unj
zLIX2%kYCs)<z>`L>#h%<M#KPgi|K2?v<eIj!6DQ7bG%f}2SO)@!yzk?wN{{`3hMPa
ztg{w{qUzAXZkp1o0UAyopwm#LDk*=VnCx1ah$Lf?c6lr|7W^MZxr6{_&Z=Ov-R)?~
z$ssR)^X}ck=<nHE#jcy5&O@J(5vOSDtfHdAFcy1Es02e6_x<?uVYzwR<@TMa<xD-Y
zMr*S3l6=H~pUK!`=Z~7@t4A|(@~WIazy6iRYc*&Z{IVo1B*6CbucYSR5*L<P&=JwG
z;=zs$P(6qO#>4o<2E(CLbUsX>hc*h^X|2YA?*a4+e(X_tvw2#yrT@zTT^*fhO+~Bi
zoKxZiEOd2X3|k>d$*GQ#d9SI)U}p7YA|V;i8U}RCtBJCb!{F!_cRsuYL0bW=J1u6~
zp$>GsF>hB)VDt@;6^J3T>Fsg2N@^z9oS6AU@*XbecY=vY_}K7qzqc1`{C1Zw?y2LO
z@5Oc{ccgu&h;5cS8`k;Tf*X*AH)I$`F9U6r&W_tTR28n^f-e7&iCpn*uMh--)oykY
ziB<~19yjbZcz|@TS;OGOxKs0Gy$?}=h{tBWxw~u!A-c@xvJC)|4rIp(e{>^3M3htu
zD~nCVO#|h~S4j6(P0ROPwICgH)VQPao@`$J1BzCb6+Qw<4@z#Y^jlOKWa$J*Lo%(b
zp>;9xQa1vBFA8yEcq{H<jQ&)Faf!MtakKbC)9%fr=Xok%qudmMTl9-Kn}*Tmn(ucE
zqFrnRr*{TT_$GhX)32cjxrL@2kdo9l>AR|r!;RvM0=cZebI8B2-8cK$*zUrA$9AJT
zcBK39YB*qi0>~V^XlOye(1`;}f+19kP=5uTv{<H6aa4i;dPXqm*=gqPo2BC5Lpp%+
zj5wI?8uGwX{Iuw=vfe}8`6$#i*DZT(glXvHzeqd6>7bPXx{9&%M^o}Cy5*ZSs!D0w
zL?*|IUA!m~Q27QHhJiGU^7fr6DwT(pON2tcO&ijz<6kz<L;_z}f9sFgA{so2MF0D(
z$g2`M_Dn`!>V{}2bTF97@UoBsQwKE<77iHBV?5m;s7$54WRbiKy}MzgNQ}`Cz~+E6
z0|b#kdpd*{)0-@Au%G;w&z~LZTGZwze63i@(Bl8T`-fL;-W-nv#0V3P;EUrbL_tDB
zQP>{ZEm3cqWk{J66+6I8VlXz^rl}f8>(0hk+uQ?H;M2{u$*8<YK*N#bUf}c~i}s|`
zLx@R)Ay5XXU}vUBnR3c723e6X1Of*kK(&z01w+tCVyHq9;EqMYfuJ=}+)!UdmZS=;
zKjcln;j-W{i5_P<nvW;hyT#U3#pF7%;<z??C~!>_DN_r+KooWj7Z*Q`48$6$HIDaD
zb8E+4#3auRR9kez5^+oGqCc(Iu2~ZXjy+8Q#BhjFpaW_bd<jB-ZW@kZwp}c9g|O)Z
zJ(Gpk+bW}{WH0MghDt6?#&tJ!q@sMIeD<f*aMG6mZ6Aui8t3k<TVE0Oc=(`UMd`0z
z$s3Q?w4F!@ZNM-~(D-G=1_spFK*AFA;1D47h{QrKg3ClGW%P)apahG+lG|VHd_CH&
z6pop+mjg~v=uWRbcw}Kf&4EvI&s&exMD(?-|4*=JOy3x3q(JyOg#Bs!QQCNV$->x+
z$Ou7b7){9+c|DDh%mPE2vm10?D!i@=8UZj%fX*wnpcJ4X32bmA%ns}f+5=9|2|2mJ
zLNlR@1?##$B)sZPAVd)$<=bfXn7V6Kqv!4OgI{E{9S;r)W(HtC)dDQKS%iFrNjx<0
zcwWlu!M_$iU0R+qf$6-M$NT#U068amtA6>x1;EyU4J1)!_C$|37lw5ZbQCpxQRhip
zs7W40HQ#sF`Rk;}0Q$t()c1J4FYO<=C)fc0hI_7h-f`7eu%c`6HVVb_QH&WTlM>_A
zWP$Qc$PUH40FR>PsOz(s#;KnH^dYv1KiIbJRxpv*lwR}G@XJxF*|j1l%(1>W&9t)r
zz(9le;XfE?^A&f0fBn@HEBj`zan8T})kkt+Zw;wv1FIm}C8$U_h~iK&55^HietQxm
zfTfl{lF}8Pb2<7D038M&B7?96h21;<v$wpufqx=%hl)2kyyglYc||IFz>QaZGDV33
zC6iNKEXcViAo{OH3iI>nA6$AiB@9uQRd1sfAbWZ!4jy3~VAGRgBZ`Yb$oz1S<Pm^8
zpa723y7FcXiCcfz|2fhn*d<dKxgLx&N7H}VfG{B%3@g~8Y+amsBq_-RhT-9nrQ_g<
zV&q^_{&y7VYLMPIXQoAK!8em)KdK^_#M2v>FRet!#uK)GgZd^DNBWW0D)yR6-{-(7
z1YOXzt?~`-_2W)d9ij4-WR|h(8NV!ygP8-2^uH6<_F|q<s#ew4hJ!~UObyV0^v^4I
zx_b-NdA7+YDu_YI+#u{;jI6_C`GyPb?pr_FT$}zSw|!=&pS8B6YBciKbNZ)`{VesS
zxLw;dd2L@6Dj?xXhxne>e(cSDnm(_bzk^!Rv1*RuH%TBzqCV|*HPH2NtaDu(D86$7
zp@6K!4^rQ$J%IFJ(TN)@^LcI!!j!Xn14ibUW_0hNmCYpBv|X_-9+`fw?Lpi2nESY9
z;$Pg8D-Lu;)6@CYa~4#d9jWGMh*PMX&pOI4#UJhErLfoZiUZ@b>KpfvELQvh;~fh3
z`G3*L4Y((Fv8Z=>j?Xqmu5ep{-&m2I<Ysrf{oC}%oSWhYs3J|pnFA7mz0jZiatRZP
z7_+pwpm))utCpH&emgo0o&{0Qpu%H_03GMF{~An%O;38UU}I=poB#%;8lgw5L(@E$
zn?`@)CdR8h`f_bQCa5H5G$6akDGOsCg5T8NY|I44E~ltiu8^u_U89$Vns=>J5wQFR
ziv`Y1i`@uQh}ts5-Wh|x`8yTzvY)va?M?AVr;pbb@@CQ4-|!0lytEO?Q9{{cHudt{
z`kkfhADlY1#;i|3Jvs94AMiGQgdMqzeBcon8(C$KNxBzw+tAQ3mqX*yLu9xvU$f(#
zhhjh%KhqHd+_2{ItEB^P1f7M*bTUO=hF4mHLX@Y!O(PX_iW9Q3vbQ_=B5uVc0~?44
z4*r8IP)%Je>|t3+$pehtjG4<&mbYQX)Z(K}E?p|{(GMVcTy23fV}TZcp}d9;k&Bit
z9>PR<F-TP9;`aN3CpZMp`h|ywhh+mH@PxzWM$N@a^4p!0%^rc17cfUrYOp>%J$<s7
zM=BTf)rTNXrM((rC>~NZVlr2$i`eXKV8t25*xnd<r0YgIbm$Ph8D2RL<cfilGlM77
zfH)&s@RR8!Fw@oRMy94kr;l+lPV8;ijT<u=xq{EslL=G6A9ZzgVZ3zm^V*!_^hr>O
zijiPs7qoSQ*|1*H(KdU)zt_`guFf&zt3@i`7WAs=`!k@e-8wVfH1pWsx^@SxA640A
zREZ0GjpKac9b5S9hHLcsve@9}qE?%n2`vD-55eaUv9hx2mW)%4&q;mS(b18JZPpf}
zJ!O;)P8koah}!0-CmD}DhUrunk;{9*E+oaOi>n_}O@lYb<4FYIs>)iHeinO+MjpXQ
zFof&?N(iH5;pf<&yB-xX`ts>iT?9fHSZV2unJDSoN$E=ZKH+@PFCZ{(FBup?B0|Xp
z1X3q)D0N5(q9NwDhfm+xK!D-qzqY!)$A0!hD61dCOvwWX6+qZ^4c&Y8?rlR%QOF}T
zmK&QjT#LEm=TaK&J2`FYuh^l7PI7Q`xay-8qkI4O*C*Iy??Ku2pupy97<GTrFw0_f
zC!9EOV(iuC=?AZtiSK-DlA;E}#UsQvtz;bna0k{FCJApi$nOH}6G8dd5w}nTWKZPs
z$LC;4Zb}1xLTb=YIVy(3O6G<Q4W)+n>-GH}f)mjOk+=7N?*l0030OS;Y2k%J(dvR7
z5q=5}=LeCKw*401>#YC<EG35%+*$tXKCG`gqkF&W>8oXA8T;|e*0s)FVM@F$*jTx+
zX8l0u_Y-lv4I4KOKufJTxm-RUxpE+yLAwqW8)IjYU6(UmJ(Gu1`VffsMU?66z#JVw
zM7s~bK+A34SNZBUQlHeR^^eKMNn|#^X?CNwKI#Gs(Py`z!t`)zjvju;XOD?`+_TSj
zFJ*M65cA_b=9?V%Wa4qt<hG5Mo*ocL{~99qcn?2tqxaBE@;~X+p-AnFO_ChUWH7N9
z_BT?M5sD<Cs@nom6d3>!uzB+1LN(;1DBL{~DcZLc*ia#U=8u>=r^8i&VCW@jpz$_R
zasg0^W!`^mnvM;f;O=xOiu<?eQhmt*A4)Fxc1@q0tU_<O3Z!obM&O)MZ=Sy&oC&pO
zm(P>)gCI!`Q!SA7ks~Mq;595@<hIo0ACNwjX1^G>gF#WJ@!~RE3gFE>?>H?A%)Jp)
zT3gp&dFLq;Mjir<4!k{;DXz)O=x;yilHQ%L(IokF9JU%69Byc2WR!1(ajF+TKEFo&
z_ImXI#$BXp)KzB>vm8MrD8?28ecB7!aJyiDW_&2r_D~ODWLwKBm0i<gUu1-Wq<RtZ
zM0N<~l3KhpQW~a#>qvqz<WQw<%=ELWQWMA{R<q;~$vtRvB(d@R7HfB&c>wT)SKsf-
zQF`<1)h9K3zCg0ggJK7|imIJ97xO&8C2B|Hlf)vi&Svb=e1VKEI^gjz9B1R$grmzq
zF`0y_XfY5!b6^C5L-i=}?WUOnXus&npK=`8fr6^4H|T%lpYPM!0v@w)NjF8UEybDl
zJ6c2w-Nia0Ic+~)8;fumj~GPm#$Sz*9Ny5J<);awgl`R_TkIl<CT3a{(6Wlk$}qI%
zQkx$f>c1)I_y?^YbQsIXIQ5E__@hxuc>saE1RXyuR>SNl@AQwg<lG>I)I%wUtXd*I
zyhUpIi&T30VXVg-u^J4HeMDK0k!p)JJG}qnb}}<nU0XX4^^8^|i}J9+;6jg+J)Q3~
zeRQLVXK3bv-smc#`-Sk88#FdYjNHg6FmWDE3OqrtcN{2`ZD_O)PDbT9`qhw%xp<6G
zguk^6T`w-8t|Qb#UcI$jHqNjhuRU==FJe3RTki{~2G(48#|7M_nnJ6BDb}?8bkm1w
zagprdg2#IW0VdhgL-Bc_MjJSfWHebRvnwW+*Qyp@VI~!c@ePeu4XJo%KB)QQHYXiB
z+vR34ahmjI=&ya14&#am#(2He^83z5Exyh_R#|&htAE~m3iadFpUVJha>7j1AlDpl
znJ%8m1^8UsbELjjF{(Sc4RULRBiSQamy!zisF|=TYt6yd-bEAE%k#7j1TmvTud&ho
z=r?QtUIktLuN4c-;9tR$`NVno`A=%bOjduPnX?Gsi;MJTSPom*(*P8hwl<Adr3wQS
zqk!l-Ws$cdBAKa8r_4;a%=8xRT#ZL_RiFxIih`3<j7I}jZ3;6r9W^XDe=$+O8u>1h
z?_8QK0w?Mh2_{yiyTf@|KWkKG2D27cm6at{%zxoEX_U3BQtGU`5dh&Lu!TJFtoIS7
z^MK$?zhKR|8%t}eQv8up$y91ab??k49swt#4H#%XXn+g|w8ihLrgwC9dfQFp#qt-F
ziG{s@##e9a^~D13(>voHV?&DOfP>*dLA@wHDk8uam)n*zGm#@=TK~+tx?r>-Lb7t$
zsdL7b?6wk-!Om*I+=cpY;@;Dzo{W!=UrNl~MofPaTwq)HW79mKuIcq{sXe+lO}&@1
zV$=_H`b1*0H7Kl|r%_c6{#k$U6hOkAIg>4dNtZvpBoIUq+GqXHsj?py$Qme!FWApl
z!aCwAti1+dOWI)EWg*Mh50c#;@ShCClhTxU^)Q+wCi8??90D<1fgtemB4myJAh_<O
zC4wW)z8;JxGOsm^VEH>|@0XqKJrO3qk#uAPIefVI*n}R+bV-iJ{%=Z|_thI$1i7<k
z4ezqy)@gKvQz?fgI*u=eQ+A>^gCw=Xcr#h1lsePLTiy0;A+!_=(163z(x_6SFP29q
z`cu-dydD(LR1T1c6>9UL-3N_n{V?v#{ypu_?(VhKh^Ko~nnvI5?XS+676mQy!Z6$h
zL#)M_21vrTjvbmyyhGgNOUd8wV5LX!PFNEYh}AWu9PLcZ1kgpJBN$A3HKAU)L0vF?
zIA42O7zN~mZ-!Ih|0rW0ch(lw%6BRNWi8Zbwa_p#0~*q3*TzuRa8OZFWk%cHu)#=z
zwEjFk;uT2HT!Zr=mdS)nTbqeCdDerR;@!!L^k!_Tp1wVZi^xf*(6X^xQZwogbxMjo
zc~N(EDWHZt95Mgq8%d0Klu*K|=9nVl1o_7sa}&ftO!}x$2P%!rBkidURXgnD+M-3K
z2z`?c%ln7oT_k9UZ2=B(PgC4XBZlPKW+sbgG+T{p#jJ57mw=YuNjce+gGHr&`g3(Z
zIe#}<R<G}NL@Oi8M)$R-_IR0hZJZao%Vx#^WnLN`#HxhY?k?=_8dzcx_?gLSm#J#u
z%>?|W&?Lu8-Mv`x%FIuYjLR2#$LWD{(xyE#q@DD3gE2`a5D&ID<+u<J>4z&&dwTAL
zLfr&HW#1di#I_@{`Qa9D0Pb;8g>jSTfJZZWoq8SkVq>1vjg@(4ds3)h?un3S5DZ^L
z>A@!cpBk*|_{q@+lqdp7yP~=}0v|^<uDkQ#6HN$9v}F2qtDn|lMSos;RyCaj0_To^
zkm*GZ2l3ji#ev#YDeA>RQ$2`agBLqu>IV-PvS(5t*iW`w>{P7LQrrL)Z3e^-w?W7l
zoON9VI0Y0NCB(a)9&!Wl56U@}EOur^3h2z9h=;hf$MRGYOOI|0%g&Z0kCg|J|0E($
zgjf5M6nIqO^6)afO^$spy5O3LZ7i#=CkX?>gcMDZt5~4mrjH=E9ra;y*@9r#5;=bJ
z59e<)Cd>uO$&<4RQ+JuKa#~SQ5oBPkZecH@P*sax^rt&}l<REt&ve#KM5mbP)>7{o
zwsi_nHwKD_8cp=<oJtwhQyw;!6E9ADYgvCkC;A|_e`n)V&a;9#V{T(+vz!snKfdxA
z$AtLXR@r}xKYOf8yG2GtKA(HDp9y-TKHk05i!i!?#88@`YEe-q<V!4c8APbdyO7KB
z6jI+5$9|8%E>9<EQRN&(wOy`j1$#J*9U(vbd+x%{@ZBgCrTGTvq8h1OmnziFS-GLS
z%Ds*v;UcFY#o<9gyd`4+Ii!y5RlA*Alscy}nje9VGGWqbXeFwvuF0Z{MES@5hp%c^
zs;Y9B+ercF0wyE)AS;+|(Vh<bymTC?pNG8I4#exm8DG~A?$#5vJ$7$hX^ON(SSF~=
zYZ}gmiHeFkeN~z<GLSgOkO^DPEH7j5X1_hgQ0`>K#>8kuzc7~Li}2M=zi=bfSGTqX
zY_Q6zC6~~=TkCRt=ryA$W++?DTn-k?Nmu=V#F)(sx)Ha&g1DOTzkf~q9J?X&4cSVI
z1)lv5YB8oTwMpq?!D7A+^PCLugTM-@Se*njyIb(=sI=PBMv{(d_!SbUM_R}UCbO8h
z88fF&4Lg!fr;yCn%<;>{8uNU9k{c*p$|z~D9ABRa2*r598Dx{`RFbS--7_>aWCu8x
zHyhlg^hv~_(WBPE89QQLWC%++LUhDLe+&pfOiLG=#Bh~+pFf*H5EQg~R&;5R%ni12
z{cpYzZNp*<xI|j<d)J@oUUl`l`2sczO8Nkm{mVfzgt0?@z!&qv0TD8czg?O;34tf3
zBcHg*#GlQVG8}~m=8K@<s^?twJ*{$Mgk)w4OY0eSlXnef(YRPn<JrIbrlh9dmkkHT
zh-PzVt|}|3+^|6;6|2NW-e6Ab7TH-W?>EmM*JAknSN~6ZL#fwj?HuX04g0=C$~QP0
z9!>0<acSzC$q_4`v=aQ<EMe*L7KN{?Dn+xc+1s}-Wp|%ky<Yaezk!GGfA@NHXm!u!
zB>@JeCuxE=;D@lB7bS?3B&E#V_V@xk-g+r#M<_!^Yq8aUq~8oaTF?sy_#=4Z&O@nE
zDDK#SLT3TGUR#9Jlp)DNc$L@=^OT)L_zQ7xVL1`+)*v7f#^2F=#8X&UNL+P)QsC51
zwDUR2@B8#88;a4=(qiSa`DoiU+|_Q31l?Gc2Tp_sRFlJiL=n#kmi(Uj%daN;ZcE9b
zQH>450D+6Qj$&`;HKn>6GV{y9;8?O*az9NNH8I{<n(e9eqNN{AaFWC=NOYnc$EHOD
z3ELOo7Zi|sg0iNEwgE#V_xe&3HL%C$ZWd2qB56~P6Eb8&ax`;=^S>u-Dkd{0l<O?o
zB3q4Xph<A{ZSwW#A$5VYDjSxIyo0a0J^z2<H~!6s@IBA_dSz)N%CXdATvkf6s1%(7
zhD9+6wGkj%hoxM>+NMg3Z1zWzT4V6!KCg;d8tf|r&Nj<v!X@6wp@*~5kzZqdd0xjd
zUF2rkm0}z!CdK|wvZ@m!TE4rj^mo0Xai{pG9<{mZ|M6?yqNl?4nm6{+0Kj>VkK9`?
zLXsDZMH7S3Q;xp7#i94PyGq8NcQq!`Ct}zNMRW8zaN+1M+XZ5x1%3I3EbN(L5EdUA
z$E9sUcI6_F+4mChhoH?yl9I`Ul?nH51gr+>^i$u`Rh2sxR`c`o8^S}Fi%J}`SyvaQ
zz^4|&NJ6**UdTy>slf8|HBzCcYB!b#czt(g-!f8pq8a~%V`HfKt_<R7#}#o`R#)re
z*^U9w3q-2Bhiop=7<q5Alyh3KIKYd#EHjKdX!!iR#{M}kLq?ey5up_p|Myzi81|_Q
zv{|039ImI<I`BKF7lm3UR>|P&^k^KzkJf#G`R`xvED(Gy)nS<BrxzU)laB+?PRYe5
ztF#!gw<GV9Z5uLawOIyi=^yFSm4|PnD)F+I`5Bce8p>(x?_SOOx^ihFAf(pln7BM-
zm%eBbWi>QbRCtoT5#eVpa~821$&C=*#pr~w-<eUqRUokn0TQTW0?2^0GTaF;NAScH
z*G+7I`8O?hgFZ}8+eZrLB<CamogJ`;L?lLt<|t%WTcgth7_|Tn*0I;@qj$XQ5UyDm
zxhu(0Ne&#X#V(~tdw*T|-K|t?`QL^ckKz9@zeNnUeF%cjruGS2v)n1G@kY9rtZCQv
zEa~cR7UXFS&intOkBw}s6bLc^<WOEx^0fZl&YlqUbOi?=2lXoTT%QVg@-;b-6%qCC
zhx9)mTbha9{4?t}WX43I9@5_6FeX^%prs_Ms;+xq)XUD{Wd6U*<ZzNe*Jm*?jlXk%
z+Tz;s3Stsw4Z}aarX<ddU9z-MIT`0`H;VZg_XGf;OC)d&pZ_}^H<U7-5r}(|RQa!W
zaOU~PKmPT07v87=)$JCDo)_d$@=@zZm;$=e`SYFRPHKL5mQ^6Z|F4AP|M-&rd6DGu
z?gf1K!nPlgziybNz0D7sRm41X>VJQOtjzzV>v6RCZNU#N!2eGcyfUM9zEUm0a)FOD
zLj|LV;1dwZ>;lwDf=is{7_CiY=@DE;F6c!Anfc3Kd4T7Jb*G>zwyk*ofE)@cUIeIb
zM`y(vK9aG`iS*l)bodq6+ZLbikd`lQfSqmT4OZ1H1StgNFA*%#iy+DXi5Q6aXZQ-Z
z!>_fqwF?{!f|Qqm83^E9FKehOpMXukT}Yk7M@aW5OP1{tBmde|`jMX@lZJ%Yg95_p
z$J;%dQFW6XiaN<n1LT=4z-05}gOUdSVguLxn1{+kLz6{z!MiTxYc%??O?ILA9qcmk
zS2>9gHd4BchM>|9pQk5z5yBrQ>6xfuYN@dENNIg`bbcP;3T?XawU!qub38OsI>n`1
zZ+t=PM{}Ean1Z3th*P_)b{@jlta|%aX5`1Y|D_e%Gx9X--QO8^nR8V@xQh8UmIv!U
zer2pVr-!>R1A;;ig?a3jyqJ5-R8}_Md}Ai)U6)bL@v>{e+C7Gx*)kP^IHdjk9^Lv{
zAKqA5ru=P=D~ftU|Md^Hg`Tz36)GxM8K+f^dX*~Y+M#8^0>v|ZK;L6P^PUyF!(4{F
z+DHmKC<H<FuKU<v7~x-Q(icDiVc>uHg6!ZaNKWGOl14~Qh|v1c<C-$@=;mUneaj=!
zUX^dsvn}`j-o_6-PN*p6V%LeE($iz2z(S*A2~)Uv?L)Ap5vZ5Y=m6>Tf%q!NMOu)p
z0Lnkj$XKqe@Nu>E0_T%S&5tnIcps6MF+bw3kG=?#z@V?Wy0suUr+hiVf4?2uFbU{8
zuWAL=i?bY{Rl(!x)oabho<G0#b6t_OaJa-Px~>>X&b!g$krq;PT3fqm_;go*WH^eg
z>X=*U5o-O`5?A1Z?i>bR$9`G2cGN=aB<@6h1&-xUz%|;)`tqtA@1Km0Ag+r;S%XF=
zbeV=Bt0wf6P;!AgWxniQ$|aWEFaa)jdAIL939EkZ3sI~G8tUrym#P44r1Z*$DYzH<
zRJ1<Y#u~7wt*@`wO%m`aFE%XhbKk7f5rrIKjH*QsEDwnAdYjBM<L5gvjEgZmS@dg(
z|4_8`PmEnCOQeXb3qKi%y-k2V8p6j6OEoQWDChV`9ouc&+0h|<{^g&PTx4c5!4uHU
ze1zR8O6xCmcTSd_)u#Qr6Nlh21w~000{?=~*oIQNp~lfq0H1R)28FCADG#cdWer7Z
z?jUb2jg2X4>#<xQdHBZW$=^ZYEx@DqK-O_FY65ynJ|N1)$yBnVU!}9|hJD*eHP;+;
z#O7NYP2Yof=n01`h|ZEccvc4CgXCw9evi$EA{Us^W3jAM9Da+h!M9a1*d*Pn@|C((
zv+zWu=>L0sWLAupbZKnD+YOZhe;{t4Vkzkql!u+=fxLHcRNOHIyjPF#pGGHTd87ea
z*ms<O7mYTSuiSdH8R`LX*zIjV+=^XhMqGGk*<*!f7tv=!zO9SewTW&z0Ns{9SIb9|
z7oy@|1yCT4l4}G0#3fj4a-4APB247=HdvNB_Bu4hkQb6X2jvED3hLpyi9iOFaU#B<
ziov?yPB<&QsNvyP2Q)#$BE?n@3MnM+fy@UvU*J`g?g<B*J{L+JYAtugiXj;51wel%
z%^cY>NdU>`Vy0_W_c}2E;RJplZ^tgh5@HF3+MQg^rd8l`g}|cV#85dDJ;3YGo~W&k
z);!&o_BF&6;PfOnt)J{Pv<gPy%D<qJbZKL`yJPcK0>Ue`+?`|OzQF7N;at-s4LFA`
zkX{>&Dl!^8&9?~TjaqZC)Kc>*E#pYvHGe10bd2VSHh>JK`D5@As(2Y`J@vJnfrWX-
zuaEK|Bc@#wg)AA3DzrnA_enA+4N36>K&c!TZjprojfonH)2CXD#7;sGMWYB-jJ(ef
z+GJRIS}4!s9rj}c-KG3Ah%p0AE*e7PQL-M$I!L(v^~s~7qFqN5?@-+YCPGRq9(y$T
z5h~gy)Z5Fr)RDj%d2q9j#+?5}XfsGRyYD81bE|N+cvZ{NQt)I`Vu5GG<DDabk>H(|
ztXCi(if!i&WR|iXYBS_w3BIbE4pIrZT^9CZs7>$kWjqp8V-)6UVTW>TJTAQBvXMhI
z)PsVQ*OdI$&kL3qY%E{8=R*)#U{Y-)mVkZ%U`Z6Y859Z4HkRMtQyWQsPRb)FhRD;&
z7$|%r0H!0!MDE!A4a($_&}&L^UW(y_UH2Vw3n@YkC|8rGHU8n9q!)oZXo<B(G0Lfr
z<aYz<PZ7eHIZH;&Pmw3A!m8wFrMYkF++pKN|4n8{a+s^jQPe2#73FgQ(WM_<6|Lw@
zEkKo682i=FJa0$0WPDWA4iag|bbq<}^RoB&xn>kyJobs2x8pP>>G_fla>8g30mKyx
zFpgBCP!pTDfIy=6`fq$HQGW0a4&Z>&!H&4Zs#HO2<3!#c4$kVpT?Q##?I-XZobN!r
zMX?@yh8l|OD1koeLS?;1$CY2jXd~q84iWI6z>g|I3}=8tj}J&?5!u<<ixpzeP^tM&
zQkE?9M3v7|CCYhGtp6o6F@0BIzp}mN#UekSc&BdT9Sj*#JntuEGJmD9=p8(5#6AoZ
zOSz=gktt&XQq%8dA}wpU6rzMsl0Hg`{4FTQ781A$sA3nYrX(szg8i{Jzq_W>plD0c
z!#u9?kb;N2jHF*ILS;Dl?(RCq%cEb~dc5TVe;FtA#Ev}P`qSV%D^T*3y0;vMW_zjM
zmAC6Rr#qqKkdJVqs%OC0*SEi>*x5R4Sm?^<*CdkT;!n^K^A#QYy%z#vfnfb2=78qX
zeq80rG(9h-pC4hwppVoKG~t~C(_~u`^M&cO)3j00Kywc)<Vvo8*M+h(p|jLYZM}eI
z1yX^8qD+7A1gZ5A&H{P~n8&lYlue7w8<%S_{bCumQkD#J<E)R@7n6CftciNU!yuq*
zs=))SCJ;n<vG&mYU@Xz-z?b+5zwU?;|FJYGSb2?pm}Uo-1^^-t1i+cGVtm1?bkzZT
z60Q-cm)AAC#U@8VF~&v`a`Ucxj`7;axe6cS-K+nw^*C+p-Q6t(59$5p9ENV5mivv#
z_w01lL#eBzPkvg`Xc~gT9u`i+8l~V%pmW)wT4w>e2D8tO#9#Q#`kpCluJ<`pbvcA0
z15zIILM~TTX)Mhg6^RQ7)d`i2+ynW20`+1`dXVBFjHih})?gW7Z<2UGjGEie@ECxa
z3zkli>;ON@G8!Q^DuPb~9;8H@pM^Z;&<9U;sOEHV=x?k<REJ;A2Z8J1i9IzGlps+}
z$x4K2-9P+6mlQNb?E0H0$E$OS*5-`9SuWv1NHKUopmNiToq8-tDUSflnJE5KvBn~3
z5b$%E9wV=bdC=3FSEyDr5gfztVAWSg@i8<yA>?8X@1+mMTQ2@im?Vh)+6Y;u7<`!h
zNK4ptXIJgXkPdwhJVBC4kjGc!GBafX%9Hhh>kP#xKXyGo>ZDWjVm@sv#(R65aN<K{
zfYJ{%^g8bq?|G&R1r=}1A=O7H3CF9EzOV8&!z0PSBGmj{@^*Z+AWzNHCU$!s=Z+nM
z><9WTiT%C3;YWON4%Ts}he07QWH$o0G8EC&tE>qHs|*w|8A318Thuu(hCW1&sO;)(
za@z@2DnD}u&VM^Z(}Ia8z3Q{Pe&(ejK$%{U$2tWf`@wbyQB9Xj4YU;tcH`#4P=NGA
zmAQ#lsZvC6Qt}!@w5Rd&pUoUSG@^}8diHAwj=8*HFKk;Gyree!tw8?hxN9zc=?Hb^
zbeQwonDfd>DjjJ!8R{E1Zj^<FgEr~C3&XBwdGN;iDd%FQUws*=#Fi1tWEnUCGUUoh
znXorRCO;{}4^RCh`<F<M)}l(~s=JA#SZ4Chmvp=@TBCB5Div|$(N=!LBWkYukExgS
zn-3>b%kH|Zk<fEXj(+!gOYy@z>hxMeHzoO^kiv&^?uIxxTHldB&C4L^E`^pVwc1b*
zwjR15ztg~GdAxH#h`Bl5Z?D-|?@DDubc2ANi6>oz0hdyiGf)HVf9UQ=q4k4EZDVM{
zmC&71w{7g)WNVRsMuihBRd-j89@Asrx#w3?MtWc*t8*D%`gT+YU-Lwcb}Qb9Dnceh
zS(Ba8sAi_fXfR??9z02QAEC<$)~oG3Vn4$$KB9(LWt_4(RzjouWTxknC%Wpd$(==z
zJInNwFu_;dBPV^guIYYs#*MuDI%WAHb$h8fmfTAlH+4Zo%NTh61LR{opghM~Q}tp1
zfiDy9dO#r{v)9<8s@zEx4U<YeD`k@Z(<y||2$&i^pHAp<opj&4gl69>GtZ9J<L9#}
zbKT+I&8+DI<Dk}BD%@lw;7U$V)m#U~7>dToNY8?}M#)7FD6hJz{+XIsB9<qNbIa+_
zmCz2cPE}8p)9l-`Q$wONJ^D^+8*LcQO@J9wCMFhs#BVFVpfPTWY0&s!(2rWyk0*(T
zm#nKp&C68})m5TWjoYW@lrUmn)ZIYLdV<D2`!~h&qa{deNS;d@;Wv$dDRn8mJv=Ht
zo=xvV{M-VgUjP|XVKB&zylc+`%D1OC<G34-2$7;19YvAFS_+C(b;0Yxj-!2py-hAr
z6NGp}$;IQZ%X)OUb4`v$acz5?mv>Uc4j$u&XCvGyh>8BswW%PH{Mf%3xwRmHZJzpi
z48w3QX>5%$P_dTl1@VN$^`yi`C}gCR6FB;sClM}TO{;BsW-PjAiXb3>bby(9HUK6}
z6RS$9c!X|Cm~1{cl^Ocit$Dbn{1wQqNF4UWTA7otd7OOqFFB(k-@SH=JX{5jke90_
z+q>|pQOU>dV6q_)wERvJ2EmJ0Rgnr>K|X|Nd@$}}KjOD~g%QG!BSj&QbpuT;TAJNH
zpsYowpx3n!sX`JMi2PPFFK;d$0KstE*u-X`2I&2`*2W#50p2ljXrvgFl-#BnX*I8^
zUwiNqkVNYF<9H|CRXme;X4gzPY6x_0Hu+m2s=|7>5UoN4UPyJSPZZavi6!+AFncW^
zU}vLjxQ4~6i)N3ClwQCO57A)FW|fn?5!8}!P-_&8`K#|HrUcBVBI=t&`(Obv-zgL1
zEg<323MP2LPYXF85ITyMg2ge*K^vKsZO8dMSUd#}aaHdvLX{;{ezS5@8r1z99eJUu
zXFmx<__H?8iDpg|^=;2b{NP6+kFc(0nZz5kE2R{Otbv&%;f3`Ct3`#7Hb@1PPT}#p
ze2~z@5k2D%>Te>*g5{!=Waxxl<{KuUiVUI%PK3m3uy*f(icAN;102n*HvO)|Yf@J)
z*FDZ^EuTkH#P;ty3@AWm#e@a=hJ1weWa=C;Gt_Hh32z^nxDVl?k+6ELs#-RqkP5>?
z=#YfmMLbk1!P-a;j*yfT3<(9=0s(;4m7$o6dWk8{T@wgB*#52yg}AZGcxMKo8<UC^
zNhi0_OrL$aMOb=0W#g(U)EvdTdyc6yVvhuDWy%$W6hBmHIdi(1s&Lx<4%g{Bu`tE(
zYF>@Y=TtT?Y24HSUiyjt7jG2p>F|MD39paTpZzR~s5KWnPLx3smKa`e_H3r1kteZS
zV(=8<BSGv-Iir4=IAMMH_d4>B76-Te{qMti&~@aJJ;XF?LBiCPVtmd^CXB>QW6;L)
zBniaKu-QyX!MmZJsTc7<RTp0+!lS1;H8m88sn_^P9AH~2tI(={)kYiR|Et=l=@peq
zDJ(J}#uN4$$nY022EOAnZ+<GTZhCAO5247rJ9X)<7d29H+xPh|f=JrI$7ZzL%vITA
z+&Pf|#1p*&7TM#K@hJ^3eK{m(C-6~SO%TSDoc6BBNzB9f4W*VvU*PZOG*mX{up&<D
zZb;F?yY_Njf5}|n$4U0{V+}gbiA?DcS{)QZ>?@)DfQ$cicx~C4HTUn|Cyf;z6e$qf
z62ZrYACZiLp$D)9?a{WG0@dt(21rY-kQ0eFXSI+jBzv)&CR_I=Vbk(6z5yUI&M>#^
zJhmpo1G^S+y%ebuTZ1}D40m^&*$4Y=AJOko(=*Hgu&5cnFui=<Wn8fqdr6f;st6ly
zozRvh2)~kdZ2=-yNI2@WH8%Cp7l;Op2pH)k3~aFOs#VM#X~L<m+wh#(NwMaMp<CS-
ztumN!CY|uDx(N8(DY;;amNAPGNszny$DZqW#9`-FVWj7_20M_&n<td8N{r4rZV{@|
za?g-`Vh`L%T}T=-=@gu<uU;NmZuVf`(jA|^trr6^zu=wY;FHauI)g84vbmHm8rMx8
z3<)snB)2(&s-}ladC$fnYJl6tXttE8^F)(K#2P;&l)!w6C!toHpxkwb6&+M7BLsI!
z4Kz;qv@b7Y8WnBfW1m}@YIVfAB(kBUH!<o}MU6X;4Z35iIJSxes&&K+J(&bS(>S9W
zwy@{!I=+hay*X8`Znzc)#`Xjq712(5{w31Tk?&YQP|9qxtlu?Q$~q+ESFemc;=k3(
zQqFbXF?FvNF21{B_<xV1Tx>F<5FvkAqNhkW**0Hg-cav8RRDLuBA-8%Li<BXCSyNS
ze+7T9ONvHsr+nuFWp%LCOmn7&DY?fa`ycYE4%o=bE1?zaF&d2H`rO-a7+G4eky)<6
ze}joiDIb@094`vtW#4E~G)sJX6aH>tF>pKE>(VM#V-=TW)uU|ag3!vCl8ucIW05Qs
zLS2YHId$E5hDfH#N@Uma3WXo>*=j{GhBfy8W>Krvc09kl(e}41Zpr%_TAZrasCbe`
z+p<Gnj_vf7ciTEVLR*Y5D0xMAH!p|EhAl=~y?tySzPzj|MhE@;iFGcoqn<bqJZ`#x
z&mrfN5K@f1J(_Ra>9A|__lCXTsk@YPLY~^<$?%P=Lgs<Eltu^mHhpMB5Pb?@tr^pE
z0_~Jea22W@Ch2Hrg&GUCCPlO@J^$Tvao-_ux@e}^W3775EN6-%S|3bOl_y3N^zXNm
zV^Ss8F0l4Fyj|yb5_4&>izW6oHw~F%WeSG@OUX#ib=R>DgDOO%Vx4Wt;zbV;BjVf_
zKJ<zZ-?Umh|862e|K$DO_jEdaf!T80&*V0mIaqTlY4p5}V8_=TD<ND?61AA<yNcq7
zFLxO|<owN5o3g`snp9>W&!LLQw9eY<D`|lNdnOHH--IE92HflpmmqGJz)0YFS@5cI
z1b0;SjU;>wVn0YX3;arW_mk()ER-kxYb1ZU&1D@qKL0+FDGGaCl;oLc>MDSI3xlMy
zQSR}3MMYbPdq;;49Ts1Rkfs6Ni1EFY>5RQ%IK@@L<-C@=rNvLe!CC;**9fCoR;wa1
zAwh`Pf704Tp#d+*SOTP6u|s=JiyIN>O#-yja&6(J_xPyF6fb=Qn*_|%L=ztkeEAR2
z!SvpS9!Yp^lKHl{8IrG?`0gS<t`$n){DCR34~2Y(OoQIaxDC~a&Y%xEU@`+vvf;$n
zPWnQE-H0I*nh;JEg1zDd-IXT!?4TupE%AiUZhSnQBot<vIq@M%Gqst3icB$p4y~a(
zPE_jV?+`_PeGg77Nv^FPizouCVsT!1y%Gpy|4y^1rx4rO1sd^aNjK?v!oof)Xd^^o
zB61qzEZSvmq4HTjGse?{wW{}aoPs<P>tD2Jqc#Mr3XpawR^DTZ8EdMiW{?$u>Pg&j
zX3KV-Hd4Yv3&>8J3G6_-qJ3ZPnI>E~!2Q+|DJK=o5^r_4^E5(nt$ciqVc*Mf-c8B0
z3it~iWhhmF8x|GL`*9Ku9FmE@6DIq+9nP(8Vaci1pXjNA@ta)$RcssksH@)aZMiqM
z)$UG6{+knW846DM@a+tQM5NbB4SSCuRfJ1hfXJxI&?-LKt+gIT(*ki@D<o}-wb9v@
z32H1svJ%1a)(4gOD@Wl?J>X6GS~rriMtc8e<$;Etu3K)cJ4f_0H;DPN>f5YY%1p>%
zyhwxX8Gx>18v&t6^8}>QE<)F~1}Q@l_7)&%>!|T#b>3mezbLpV7g7<3lWr+?1OlQR
zLeL#>tpv*;ak(C@>^*t_)P`pEYkIl4wL|gDf|M-~_!mM{$pd>|6pUyULd5O@uGi4B
zyw|)j1DQKFSH5~ORiP}w5C2g9eCG6@SZs3+JvXJOFD^Dx9Nr!XKq*(ZSb*NyH&dH2
z5fmObxcp-iW!3Rh*RCH-ojx4pIyWS2>+c~;loo1fJgrLCQrFPD(kYvN$?8};hfS(r
zwlr6U(L1daQ;kyf%YHX`D>~dX8a^A9Dz9*TukgbA`qfi*2`hiiotk>lEdPLl;XgXr
zfj$MA<`}|4rLMhbYu-bh9R=MS^lZVuhWS3cp>zFT<G<e@5Mqxx|MAM%G3I1m@s=&-
zr{w-IiJZE9+drn1bN<^D=VkvK=DTI#n|c3}kIMqV@n`ciPW;i+(^Fw)goYlD%}7b9
ziniJ)Y}2FpzQvrFzXio3sqyMe4gli^b#%5kIyt>DK8x=5O)X+#VoxFDhG2X3rcIl4
z(m-F+U}^uXmoH>(S(UE;^^*sKF+WYy4FFbQWAKMU>|Tu5Sjok;^uSZGUUZ9cT%{d8
zptPckYZ)ZjR{pf^V(*;4{(3Lm-QC?cJiNzNUcmcRb@f^(t{gpeY6Wy#cR7t)LY{Ik
z#`M67Ae9*A`nVVA3%647*I<>HQlMP=```X@{VM92U!dreRn%S$sUEF)3l@AvPkdIM
zAxm9kYbw8nTf&p1w-R3pc=`BNZrHGB&NIvQRj?EWZGXi+2@9JKPbG$d#mG&y9B%9G
zg#~_%zR@e=gNBe4+5+wR#y`mAQYDHo6yE$?`r(Qj@sJ4n6`#M)ada12;DsO#Yin=6
zMM!8RzB#<C?vvlXD=*KPj~viQxg_+cp4)s|`n+fAOy|gpwihp4kbY8nt|n3MXpW`@
z2NYB0Tvd)yS(+vo{}=xATd9x7Pko3ceaucj2j=!DSeeW39M*a2my<Jdi1A1$Ov;IL
z=l`(@9d#S<f*Y=`vhn6Hmn-Ld1k&&d%f8FH>&)@6LjxH~`WtkOzv#C)*4EZOwdz!v
zBdxCP>;EJn2RbC9qoYA7DI6FY@&?Lz-CV11lMfX)`p#IbTKP~-CI0Nv11ny8W9quT
zJ`bSbKA>AV@IMc7FX)Ux8Q>De)wrz`_quy`(Hv<@%iT~mTe8hYbi-1-cFr7R84Dn9
zwfBNY#^DPAD5bB!mcj@8vSdlJ%|2@$hD-va;O9si8S&=ykzw75BGYZO!-FeIPBzZH
zdU(q<SJ%avSy?OBufJ1JAeWq+{82S$oN?x2L%LODRMh&eQ(OwTtU1rCtE&yxPtAJ=
zl`EZrM}HYywzRUkW84#`ky=z#x`Yex^xQd0s;Xa*WLvx4!UDffBWJIf0=j}5D3hGf
z0{-lfzW&Ve^ebN$G@DcL2Wo#yyiUhdzAr95rl7ED?%cT_J31CEU%vd$n>Rlp6hCs{
zz)#NO?L4ku3UhN;>O$D;+R-QN%12ksLk(r`aT%GH07gE3`g9F)0G#_SKR;(@F>XKB
zulH>VEkROqu4ZQL|CY5-8)dQ2EC}&P6hVykP8-H)2xd2_-YYFFeURTm)G|wjz1$AD
zygd^U9=?ERysucl{#P3t8(TZO^MGqd(W-R4s!GM9+RM}PukMPfs=0HFjEx@#1h_qa
zF1`J?Md*%O12w{fva+tZ=?luVxilI@#?>`6u0Z)LRx5)89_6aL`|{rw&7b@8&kyPJ
z>o|DB)Xvfp{So9EU(gi8g<Id{IC}Z@>({>{^{W<(WHOnf=oh|+sT0pKGIS9H*`k<T
z+Su3_FBz@G+trk_8B6{Wet*%;gV!)`<vjW$_Sy9Ky)Xu^nplHXtF~mXUA3yL(}r6@
zq9MB5cRUk3<p;QG7*kyJy!rEoVrIt4qz>m?oJGzg-KQ;&Y6dppL9N_dUe15=5HXw9
zTUM-mcnJ5qdd@F%{;a5|aMo7U))qXAjdjz_&F!pSoL0s*uQc0lI`IRbQeO`Y3_SDp
z1D}{!dNr%9IB;!oQ>I<{xqHyk<H!$<h*+%7Oi}fj80lS%QsVAfYv>}El$QSS`puhP
z=lqGTs-klmZ^y?G#tqfvOlJ>D-G=1R-Ci3jtM&J2JdlH$^E-*W78EbPz&XA__rQvI
z_m6Ik#U8xSARr*{68iM_hd;geCa`noZgtcGe-qHozLXqyZBTW^C70r_spWwaTcCDp
zU}DleqCWzxXg$*yPx$kc<+soOqqi#!r*duEPm!U~R>@Q(L&LTWnOUY*QY1OB%_+9l
zYm72%L#EPT&PHuSiO5XmA%sPWC_}PLOT{*&h$y}1(|f!>zT^Ax{rmjITF-qy*L_{*
zbzSFuUPl|iAh%U^b91|wpWi`C3K8ajmPd$Dwj7@yL`Tz%vVE-{{wQyLeMnOB#iJSi
zl^Rr|_S&C6zf=WP=Xvo}*H%cbY#>6OJPAzwgWd1>v}g2$^PA$MgfJYwR(jXM9E%tk
zcygGVZA3&Qm{U{XP_@Cmg`8$wJ$g}P!^MhP6+1ezrqL&Jdd^`)3#mUz5GXjb;D~Q=
zWh=)vkAL_ekeBn|0V_0wCMG5deUpy_OVYI@AU-%~_KdgGA`*y~iPB#{Z(>SHBoKAW
z#GiOsa6~w=iz??M*S41WWmZ)1LOb!h#ghftP~$Bzy@<OSUemm5XjPC-{rb(DvIE!N
zzjqK773IzQ0F`$wZSD2O2jkm(Ahab7kZDt*E&0ccS4nYkOmgzzRDj+X<-!O-+^&u7
zw~f40JHQeId`?W*w7kcNh3{3QOSqmJ%}Fl(v2DZp`DKta6sHDOR(!4M{P_qje*T-}
z_!XL)+cnditJoC0`3o}x^3!k2x1nq_>0O(WlA^1t%O$i(!Gk79opCL6K7IO^twQRX
z)BH+Op*sw|%&|eM{Kt<mWcQcl4;nviz^-riXr#d6-CwC#bCdU<C<-O70vS&N&(wH9
z@SoB_&a1u8t6$WkG~thOe?OE&mOo>=yZZY%B6V1>pSZmmNSRHCYUjdN+7j-FNqdaz
z!ru^JK)iG;HO%SRFDcm!NPdyfw6oh+hlwLOOWxA6d;ypN2H!@1k)-H8H$;)?`0~YT
z$F5y=y}9N@RopY^6V8>?A#>iQuC9(bCr#*0HLD9jzi05dl%(VqykNs@<Nh)i0oUO=
z$*A9tALnd|+P#TT3S3ho)pT+q2L>#lJ3|m^6iO`Kbyby0R*z#*EgB=?dQrGWntANp
zFamvua9T}`m487^O-<k22`DL=yp^{{8gF<oz8?y6N*y7>w^Ob-ySOxCL<><rJ)GXa
zd)Tjxomg928<Xi9CC#=tT`NUOpGq~go8;btvvKC~*9@N-XwCShC@ymNnwZ4<%tB(-
zf$l=P5mr{FFp5jiTtcrD%j|<X0P>quI_^@O3iXl2aqZkGmQb?b?x)3d1v*f1o*W^<
z<YV83xL-d_*-5fX`lb6s&T!Qq8wrkU+k_O%U=Ta;zJE)23%S+;*%hW_V*6DXPN=86
zoZR(yh@gzAZ<?#B{Y(01<oF}|6N<bRG{9mzfC44oujP=;+7sRX1D7FX&1P{%#p&b}
zuJuGid%Ir6#Sc+!{Y)lv1JMY2kY7qcRu<RW?5r$li|Ep~JwIv)4j_$yGDaeVc^1D`
z@`s<5ZgDPr>lbq(gS*`gl8l|7NH=LOkW5CqE9lDj_~Tud<bTJNWQ|sPS)v|#66}KQ
zkOJZo6pZNZHd_Ar^<Hst_qe_?j^+LPB1AoESJCkFq3`Tv`POg<wkg%!dp5vKJC$KH
zil-ui!2RG0u(A}1wZ)vGvFUn}z9v5PqO~=sprD}PA_QJ_jE#2?X^7u_UxOFC_YWP0
z_k$=r5rp4;F~_hX7Q_y=&dJUPcV+C@$a#IC?+}h;V9LaVOgqnnjiVh}e?$<Tvk}9?
z?Wf7hk?V-~_;{89{VvlP_<0`Wjpa(erL?r@%rE0Q%N_H+0pI7-j6DS6$^25Po*Wkr
z-kWXPYp7HM-M|#RtJ-IKOY`&dVP!&u@PPxIqobn$knA_Z!@C9tolUJluWG;o=TWN`
zR#M{KxpOD)VTXt|Cy=+Am}f9jL%f}B!v@kb=iU~)Do-EPT1lP9D?FLt>FvF1dp+>A
zc%M>abhM)R?`CGaL9-8jgdzg_F%F}rs$*)(gWf?<P!RciaKiH$mQp4eM)yieUfEkC
z6ISpw(8yjwQI=OyB34%#N}vQ~d!pvj`Fw$DK*a_IV>hC!KSnJy_Vk!USeHjB5-_Pd
z5sV#{rPZ`9k#M{2hn9EON&j%m$fG|Wnwgy7ZY;CfmQ4COeLEx~t(=nud9=1)%b^ZM
zx;Yq8Gm^TGVAa_o!~Hlv9}HvwMae6mJ*rQc7oEFW;W~w>sV6&zUR4IHmiee*ZbIB2
zV%#^5PIanmbc%c$x}agl7^ujc;4TT8<QuJ`#>iAPJ<>^+@fqq~8(`l36S=N5Mr-6+
zly1c7(K&f?3-Sp-`R2sSvQ~MfNx5zyGwF0rIvB18EQxOOwX(Kew=m?auaTV(z;BdI
z2IM*wRn@LHZ~i6yrS8_N%>G9VP@$fW-Og?9wR4#JLavWCVf%A|J9&6+(s6Vvj(P%8
zj6x@s#Ib-HA5l*ck(Y;t+-}H&vV8mYEhZ(!r8o*YUEy@lZzH;_8H=1Dwx-G4H=1%k
z9XTGz{cA7pwczekd+wZzEGm5PBs8EC@iknJ(@ZbWu2{~??zpFAiAi<UJ2f^;t=3ah
z@KzSEjJ{L*_SL_f!2iR!GA~7Z5fS-EgUsfV_3iA^E9wB3N|hRN_QkbHV=telY6xM_
z9o5oOpv;xAkua;ebN~+<VUzUt-v?VfzD%2gE}BmN^h;O-B!JcGE`P6TD-IDJfuiI0
znP+J)PvtMf*8`o+c-OM<U1Oi@{FsxUKU-3>_IKrb^%mCy7gtnoFGav%_4RsQy!aGK
zmShlnTwZ=8y-PEvN1KZki4=fo_}ii~2p@#g$)MNFyZZT`&R^&5_2!Gs^I51gy+J5A
z^-Z<6Z`y}kPx0=b>$xt>LFpBSl4<s`Qhup!h7r)E>9?;C%at})S5V*q6ExWP;8Da0
z{LcksXzA}36;--jI_&jLOiWTanGKm5`#yp<B4?40JD{4JVi)OJscX!c02h_suC8Ec
zx~wC#j~rR0B=rsGFM3PQ-O0=pcYhNL2GC|`-+x?MqND!3H~xg5=yG1I@{s04K|l%y
zv6uR;u5dp!ov{eN><@?G6=6^7KJ(BU+zYRWE3lRS<^skCcS4Un44vKUa~TgGCRuml
zFkHaw#klC&DT&sVlKBo?<#V4MREFdHD>0FY=I0Kf)qt4lYE`5?1OX+x3ZMD=4IW5x
z+7qSbN@f}|pS*X+c%cSayd*F~70sh1TeOa48{bSahmNfvuK3DXC_o|D|M?nHiWzT#
z_x!qn?4R#;ozd%i?ck#5Hq->6Mz+@p^7!yklAT8gA3C%N(|vgQpx)EWtW)@>*rB>?
zWODLA{uUckQ-=?<usz@T=1-~3U)jBHFSgpll`JJt9z3>?1nh@2%}pp5u*2VyV8Z7z
z#1=U?IHaqG5EcP+_o}H0Vl)HI(UCjO6*>;b%+2{gN!gb$H<z1_LNPZu>PSqo9zALV
z4aIlbw!jU^=a{>XkJ6V}#-Wat9-3TMR+gr-^K^_J&pJ(8+q4Sx3H0~E1_!O&XGTGS
zv8wdg0J@1(Oj43l@gB>_&<<#`HZvh#IXzfO-jXA#w!c(#9jr%@=?Y^0dcw-e>f^IR
z1-E;`l-UM`8>-GPB!=o580efn9b4g*Bg{c_b!~y+L?F{xtSlO^^~0QkW+w0}VmljN
zc}3uly5%~ZbS*u-O&}*;LoOM5+!0`UUg_}RSL6DgPGwGqPyuHn1i^26IdEwQjCI}1
z@2hTYVJSZY=<c6;$g2MB;}OzTi^b{+$F*V8Z(tZe4d@dT1!+Ivv)F_Lg*1iERE=l|
z6_ZEQe_`;&i!JE%9(8w@37WNLK$q&x<vwM2bE~RLoCwosV;!T>_9I>PjSr8EY_9q9
zGjXZ&w!VQu3wr*-@cbB?#mdf}o|VOc5xdtTA_NUJ@?7Awe9(y{E=i2W-MW=#xF3Hx
zGBy^HmL@Ey>a`g;tr~c6-RA?!c-e{TQBgWj(OdqEcCsZBM=g<9&4clc!^1+UfoqjM
zYjBIrke+(s_>?>0i+ABHAIdlJhkjo_VdJn*T$~Lot8arCLQx2LaG><F7+J<sZnp{e
zi&Dpm!2qggFtREtD(Z@I&zC@EQ=3X<CFQWex?6liN1Q@O8IbZmY%WGubZqz`d#Yfe
zX?5BCRSL5BU!IJoxmHQthlcXG(#RRod$;=k+-}j=j-|`84j^b|<>oe}t}RG}dmE+7
zJMk137yGJ(xwKAnrJpu3>ONn|z5&%9l$f7l%M2|o!vU$~<m49i?~B#_2m<Q}ZkH-p
zoVsv98nY%Hy;eidqJlBT%@Ni_r|*-HppWlcE8D|PkZ`l&>}?s@JDZUM(qVq~Uf<vI
z(#Qk(6}|Z;)`xqMu9J8gYB2I?Ue0@!mH9}ZTx9xK3{xl=QxwLq1mo78GFl%Gn0}m<
zR$Ga&%$V1;VHK{SM;VFyKaEM~=jyJY#(@5FDC$;r7`#A2Yy_(75Z>Du930H@$WlD+
zEV3-vwvMaoZ|D(nNJ&Y-t+KMRj$lnqka$8hR$~O5yz;C_@DtN(Y6NX;Y-rBTR9#&T
zB*lJzxqEt&WeO7XlVdV@l|4kk9pDlYiiS=KD~__^{v9m;<m6RUREz-Ww6?b&@%L97
zWH9a-A1p#1gmjJxPDdj;L;Afkyi6E<;l&RI#wI4CAh%HgYJds<Iw6KCU7;O)>tJ1g
z0IBwRbTLVw9gx>-DMI_6COkf*%(-^$V$U$bjzr;Hq6NT?NjsW`hA)HO7R3XDrq|W&
zA@LSEl%(40b>{5cTr^aU_({P|p!0CdWeoMC>gbFC$D5TnYzYYs9UU8!-9IxBf+7)k
zw2}lv&%m%8(Tk`Dj04G8PW2dBB^VzR4asJlfL%@8Gd_Jfcx1$usE2t=yN^*-k5T0=
zm6ny=Ov*zL0uPMSE2^~)t`gM9(`fOIp(?Gbum9Lvmwa;uk%!4TY_cJlP^j$?3YXwN
zp{Ax*2<cpcqImV9>9GIjE#OFue)w?S<IQ$5IPwdU(3?6=W!2KOw%(1_QTV4%9@y`+
z^mG=Z15ZAS$-aY2;+1#Yf$Afgiu0fW^{a|j-%$@x0TPW(OuU9LG@vR-e%eF&kM~$d
zGS$Ff>jR?$r1{{}h<dlnp9RFdZ>%6`*o5ms?1XcFVM9k(e<!MdhE`S)kdYWgL7~)J
ziChNmNg`?T;8#{wrYKN9FDx`6#ZU1S7Xdy-@h_eE*KT~5#No4ztoWRD@KEPH{!_MY
zZE*h|<?J!CSn%JU|GV}~emQ=|)Bb---T(Qv|Mhi0wrQ{JaZ*nmqmdUZjvqCk=4;!A
F{2Rls<B$LV

literal 56174
zcmeFZg;!T=yDp5~VuONWfFij75os0akd{WJTM21!StuzjAdPfLORI<qh%`uxba&Ue
zrpvYC5BSbE_Bh+I-XSmkV$LV-`>JQYkd_kOxBJ9y5)zVqq9QkBNl3QYkdSP-yK_5!
z(-sgpiNChr6&JpNzwu{Dpuib_?YbwTY(YYD(uMfnCa=CJ9TJk$B%(L2$=kdh?XZ9C
zF}J?4G4Smb`-R@WZunVRGCZi;e{rfT_6LnDg`n&WZf)z%v5q@&Tl`xEwc~t!o>M-c
zy>5K=%=M>#akA-tyMMB?gnzYZPT5E|RJSQuIWzXl+5^?xw(O?4;?Cv~yR-$Bk>KXS
zw1uO3?kt;sUl$3<r`L=6JO2DkLVNO1;h&!mM2k%RdCgV#vmf^S`8A8{R_1@-N&Elh
zi&^f@4%TM07~{X?=}P8Go$!u)tIYX4oyq|77CnQbM~*0^w;EqQuH_IwFUdXLRie4E
z_=VrHQQ=mCVPj&`yn%rMU!_@VmT0t)hpgK%Mn4~)yZ$9}O{(IK4z&k7_-=XoXHi8s
zl+`U9tvKem3HS7VLegJ<$AQXN$&lEC=Y$s3!+m_BW@jz4^=q$7hFn(2)U9erRp(Z}
z_hFl>7qhZy$B<=(X|A|WSFcV?%h&^>@buGuO5&}az87vbO?H<Gw3e_4S$9|kuFr&T
zEUHc1yK+4-F6y~Zcv5_<RA}Oz(r1F)d$%4i>bgbKJ(AmBFi|Xr%e>y|^y||LyTxu7
z8qqD=_twk~)t@`1B`6!T@_RBCuRr40%M?ielgj%+fx5D?a%+)&Zhv*SSy5PUaN_-*
z&qIIjI3?|Ig1zFLyx+(9u{Hszak07`R1QBm^4xx8TMS6~6g;QXEMY$<<X%(ZPcL5R
zn7kIfi<r>^lyaADTr)LIU0<qpPJA%d8hqKLb;8L~TX3%3qFTAKqrkfP?=3reExB~u
zy;+2wK7Fdu_r-%kkJ0NSx8en<*DovkGAf*xhvNE<ai7&&U7Tt%r(GlIKF+HB+{$)s
zxG^dEq}0=F!$vyCm9gB~{m~M&WW?8=zC>+vE=JV%yyC|%YxnZh=olCpyw3?|8PuO&
z8`0d5Eq%5x#YBxMaJ+cMbl*v?OZq<6buprfMe6yM7e`7HvaXv5Yq|5SFKUe}VXPV>
zu5BriGos|RlXuyF(ubPn!iABiWE#>{!R$xL$jDl@&<fAyvGJ`=3K(%J@n2n}-0x!b
zf_Gze_h^{?ctV584Nc;j9@e~k^ZbD3uJCv7uF#x6pC}c|g*D}W%C`65SX=JROucGF
z+(@!{eca9FC%X<;u&HhJ4h$Ty616O{o7)^<eZiV0LBM4{H3|KT_I9<jgZUqpH%T`I
zbC{*}_G*jjnGU|g$I%LJCBEzV<qYXQ1|}vc$K~1DYW|Jn)@&oyG%pGcsg;EZue;il
z^3u|`8RKGOx1W3w;_Iu$*qo@4^zGO6B{~Csl8V+hff|W{8g}J&8ZE+8zn93Pa~~*Z
ztVWs|f0elvX{@YtZJc_eFYTxIk=idNOwU$mLh%&M*p92V?^ebO6pHMuMC&|Ha%X9m
z`}})B=UHWBEc^U#CEiNYXqvI^v=z3swdJeyJjL6Z-|{U`)9LtIjljw`3Q39vqd(H~
zhZB?JGj%0tXlO3-@~Wq(<~C`rPm@Uou?liqkGuc)%Is1a*=APK;X1WCQ{8M<vUbcn
zpY#+@d|bGb$}J7sH+6M&eqmv$okjLW)4k<fR>SfyhIco3e(^k++0>Y#+HA*r;ldZY
zj;?5osN#|r-*WtqWs7RwW)(B{DV2c<-Uazf&u*Ws-62*t(7t>3?n`E!Jo}Eb-XPO-
zNSBqBl}}P+w3_Ht$H+Q-jczEg8qpoIuMA*pVqsLxksx*fmPfpw-w}4h1`+3_O3f_G
zA=x~&)R)8iV`J7%b8~awZr|@B;6}#W6fYCqkYynE=FOXO-OQz;Yl_M_k)_==g|;)6
z&Fa<(GSNa}qN26L$6;h|w&j{FC|9Sd7tDS-d@~;PBT*$gv97*;Zh(J7dCxJ1=Sm^m
zp;Gis3!V1Wc5C?~sWUD87+YJBxd6fNmTaTIFsEe$Ors=Lnyi?ZD^p(Yp$^A|4x$+L
z-Mb>DrYG8Bd|5L1Qn?+U@sGF9i^xp9hh1dL`N&3^Qrv=yiM2&?^x3rp%tV<8tB(ZA
zmzctr>AuPoF6tn5qozd$4#Ni8q;GX^#Mhb@W~%u^X1;S*Cw;%_rJSj|l#(PDC#9HI
z6~eK?XuUjZU@_NtOI3%tV3gHjxFMm2;sa@5rOx_Xn)5byem=g=Zy_Ajy?uSQMdRjq
z4o%17PkNo=Jz-wpKP!`_!JF1Itri#(LXpKN70x%7EqU5|cuV9wXRhr`e^764Z^R14
zU$-BYmzVESx>Z|j-TU=mJ?g>3xg3M~&)T}W+dbG``OH5~PG%^%KhaUpd`Z9N{lJ3_
ztm}&GeG3y^W+yHilfUhBp>q1MJbL8Vv0(0rLblsWNvZi2+Io5}9sT=VqHmatkF4Y*
zuSf_9J!@WgT_XH=`@YRingP!S%&Mw5x{TdfKAYx-pw^GfwPfn8bgY+=X=YXIqrCFh
z;QHAXQjd!*19yoMQvAF3T@@_d*-2Y~g<lw!rdd+lV0Dt;Ni9(QK@bWqnW@qlZu8#f
zDmlgp*+$J`K6bN%ky!Oj`3_eov4k6=z4%VNb+7D`o#-r@n{eLX9$iz|UOTwOXLhm2
zE6IAIv!c41RAqi`q3c$Ctfasx$0CO%b9I~Ur>*H)!tc!~E*nc@Z_s}eDHL=&HsmAD
zB!io(o{RnZbtuEQ^o@AnaGf}FBP#Xg01AGm!cM0Z6V6bnj(es1>;^)uHwS3unuglV
zj~<uZ+jp_fQ5Uzxwa{*nGLd(cm6g?UsV{IODXo}J<{OQ|8?mEBOZ_2DGw6mlv}f-r
z&kH2<hP&M>8(#R082q;G>ZBDH6_r81Ngh~d^4(vCjTwiMCn}3oJNsb=)!_TTx1gf?
zRrdMdjx{vGoL0s-9PuS~KmXq07aXiIyf*eDU4YoE^P?^2h9n+!V<nOr?Ed?9|M$?O
zq53%0YSnDRH;qZR=s7r=xjeBW5=`21d}7ek{u*_Rjf<-!Kd0r6;$%p)K*OT(iEi5q
zD^6?6M^&9Ce|~t|vq#W&VUy_cFE{4d(adU<YKlwx5l{D!(b3b3GX;vHjbU6}Obf;?
zCw(h+Txp0F_Il~VNy;<%Fe5Y5szoQzU}?Hfu?RJwz<NS)V|^_pLp8^^7FT?*Y058)
z3I(Q0kJpQ5`uXlXd#t9)$c)N;Xi&xc(6h2Ts5TablZ=&fyC0MC#baQy&AK#3n$vRm
zgqN0<REq4fv3T|UPqN&7@@yYPERA>oEhD2Opj=J5))#czK1;4_=M5(;#2UI1^FA?D
zSEj7bbLY;S`Cu5hY0Gw{G-l1>cD)d@wj9RWj^3keJN8r7us5q|(X1ObB`09`Mt**H
zY<`8(JWs8nyu212pSUIEHmk8#1@vrM6W=Gj{UK&ewgaIThQ9H)>3)BGT+vadgY?bM
za5rE8g&%(kiDJv%z3Yz8KONck*+x@}Sc>5~*Ynhh0XY<dP)hx{PHEmhTGVUPlA&`R
z1wmy4tMF+Nf9}VR*X0Txm?Vv(z*D%Cc4sEn4_yMXp?#2NVi2o8X}P+1KS@nRMWyBy
zFEc%Gob&q(9Zo?3>XoasCJIVQgH}O{M{lVeoU}QAGi=m~5|wyf`FrMsDC^@Lq?e`Q
z>dlJQmgh1nuzWJLcbvE?x^k`do&D_KozVyO?@cO__6d7Z4lP*R@BQk1H#~BAZY1RJ
z1*t`b3G+OO>M-7v4C^jO>-Sm=FR)=$=2F%2SbN7RqN?AiG1V74+9#<MJQ&+t%z>|I
zH?L$=TskB0><Ojw>Ec-Zd#YLb-r1>kbHlL_5fMM;BPD9371wHB)j2Y`Cn)^}lq7Vl
zLX(Oldf|>a*{}Wm6^8A2%;qhzL|l%_okn?82xL-EK4>!2UseAjUF)3U20A-29HO%3
z<{1P=p`oT;WT2p;N;9aB71S1cUJ+5a{IHFq%OP6pi>Gom8G}*;I#)^GMBc!uxxv~}
zyY&XSo7*~s?d<YnC4!<BZ8kJ-^?dQl4IpDuBcG})6hFtpBEzQlUEZHgVRHbz*X86}
zX<-^pOFCs`WlL(BaZ)Ecun;uTs=|0x(IIA)`G8BRd1l<_9KOHiyrxBa(|ec=UA+O9
zaBk?^N}kQsuZI(o4i1H#jtlC*TH-#jH^WcW$?xbM>?|snQ?9P4n9iS$q^^jj5{q<Z
zI!mKi!cX+22x<`wOqj*`lKA^4zm`YRas#>?W~!cVcpJLc3Xt-~03C~R`8ssGyC01a
zK3coxFk36!H2v;=&m*ZbFa7*toL76O4tktX^tYm-9WEv1&kDfOkH>4bb$n(E%D~c%
z*l4gBjCApP^@{wh1V}((*g$XZR*&dp0!79+^Y{r<@Gbs)eC@DdD7SS^fKfwyBnltb
zZQE++)0F&9JZEQ0gv4T&zoF3FW&|E%idkTzp($JT^ov0^-_~)S^8Wq%!CY2}a}Iz(
z6_u6r_j&tjN#E4)lX)LX>Y^g<Q~D6K4gJG&!k$W%>-{r(%MRb<xx?snoK1*K!zL1l
zlhfqK+cU}DAL@d(N|iXR&3@d&EaEfVl#--g@L-74c~L-VZuu8y_?QPrCwbjv5Fj@j
z%Jg`Km50pZwH`i}BPqGhvLvy7io$jjOa<D9^<Dkd)8ii&X3EP<OS|)8K*kZn@MKyO
zrCd{WqorV@)LqNfu~E_7V-M_W9Q^`C=7N|@R_j#eDN|0k53E*vFdaX->m>IBc_0WH
z(Y(AoyS2GyaW!GvS%HMrk|eFUl`X_gi9OnCwr#S*x=Xnd@Z+KtFQZCU4eDWJR@Noa
zx-edBzG$!E3i`ALWxdch!R$uExYJtKqx51tt*Q14<H5Z4IY)bdj4a3V1_HPgo!wb9
zb{(t^;ooNdopay@Pk@qqfMW!$mV2}0CgyiPAHB?R^YU649w=E~HhMp;7iy&_GH2&0
zow74fi9^5Uw0_XEVX3r`gq_C6@t{#xK`c?C!Um+3tlI&rT|_~>c<~~jnT)Kg&)nM<
z<EGM?{@WiqLqwjtxz+n!luI7);+=m5XmWCTzONAz$VcXV<iAW{Gy^kpwUM?C0My6C
zG^6HJE~nLZd`rED=SExV=?#2?f)a8&?ZiX5tYpVpv*%j$!k?;{;k&XO25ZjXw{*!@
z)-Eo)SVeH2=C%F2V1G-|F(N){LZLBHL7+1S+@i_c)YSBSMz@6OA<4@jjQT;Yt<Tb1
z`%S%{clDW<4_T^I@7c4*KO`gx4Ww^ifS#XU6K$)h)HGL>wA#SB!fwAtE`3^|EVxOa
zrS7Hd6+<^^zgzr%*H_eT$R;m9V;~{fxedKq6|KK{Mw;ouzVjC^isrVPyB%XtI$h9_
zx@E_H{qB!XPw?2hwaUx@)atOTm$VzpZoZy4gMNGqP=zK`^w4FaCJFwvS-BtS#}sD0
zrlbda7#JAbZ5WP<iVFMr3sTW04%#0TGyhWMc$io8+JI8(H~msq`eTP5gA(Tigagp(
z=;}VpI=Oa$xTL!jxTKIv20qOe3p}pghfwFX?>iAM>~$)b&oO^`dU_TuM0sSQWMloM
zP)}2`vYbW#w{#}n@8#t(V9Hs50?$8FkdeiSGZ!`3ovL{4>0^nG|NOH|*mcp)XKcIw
zlEpxS!lhMaE{wJuu6w`~SUF-o37DJqX(g3`xHcxH??#?2C;%1Ya=%;#Jib<_;G-Lg
z?5#(Z<ZkjFt$Q#lKwRr{6Kb32L2&f?_B@M}0g$3NA79@}%kUR3UYy{5kevGN*Y1&Q
zz`V;bCOthpbK?aQD%Q`L85oGYB+$txKVIohV=(or?2JjK<xt)8&(Z<Ee*G%!92gxP
zjc6Nf&ttp0LK;VUq%l%phtX2~P5ylbAyFKmyRE|dDqJtmGPhbpYB;aWHBF;~N0W;V
z@(A~qtWH;Ia7^uuiCQStU)V-mW&Br>Nulzoo-d7=dN<RWub(tIx{H9N*_4KxuX6dm
ze$8W>@fp}r)SN5Suq`L0czt=~d0A75v$N6C(m*&VmtCW2?nwECaQ7eUm5=pSoHy1M
zu2u2_9_pMB5M6#4*JfH!r4n}8B)GY+b)9GG)8Qubwj2|I;$5;jf)sWZU8kk#TI4tB
z+`%+7O`r4PiF)+t5v|bSU^k|G5yzGJ>@fcMA6jQjZXH~?BRKq9Qj+%e{>iBKnVeDW
zoiv%crT6}mT-rtJsDpzL9T=^Owr$&Hw>tGjU^$wH*oD3KM46L3ux~Nvzk5KF5xAH7
z*JzW+dGoDCzxk}*dOQ_Ghh|APp5t1UU5*Pwz2&|KTdZxTB*sz4zmMoj2}*|ZsqZ0U
z+N+{xJHIK{C^b(ASUo3fVZ4L;r^8n)x#IqBL0Y^E5(m~aYM*s}2YWPH!t}dooc2)x
z9#u?H5%mFYj@2l#d&;9;0rW7NTe6nIP&#7-{ibOe`bFWg8~@RCD#e&T5bF4@PS$?&
zJU`S6?9`FIK+PtaK(#0e({~?6`Z<Utb;@D#!`p>9z*IU=X~3F#9~yDX#mPIIl>0^X
z4n;!mQ7LxFQ^_?o8RO^VR5oeNy4biL<}fXqmZyfY8wuw2)RFRXh@@PsM0!~DYfd>-
zq<TQh<R_0iOq=_wLaaKhnhn6<?o4DBb^wewO*f^eHog%j8*9(27n^MzdtlO4te)HP
zAY>ez^yLWS1mDY7ui}rh=_*y1EcH{co3zSnI?nmC|N7o%Zh*P~0Q+kDeoB3RpmLLR
znb8vAtVp67)u}kGFAZetR32*?n~(o=2>WztW`Le={oBnx+?9NZlj9mVToYhn(V+;`
zvx=`@YgU(LK>0aB?Z@-%CW;oK4p~F~VYeKV9$A7c^4L`Fzb+hw7Y|7M%RsqwGFu8Y
z_Vkg~0+z^OvEIBf@napUc+mGI->!sF0K?MY1#2|vM8%X~^qf<obt$=>iP(CFXlNYs
zpb4@=G;jpM@QFcDv0Y2oY+$SAiT*<6%#-XG5J#+DRLHDDSLqd#C-ci?WPHy{)`6f=
znXmP=>;Rcc09-fx_+*z)3{<iti-GT(auYxdk1=ad);dvD>X&ZRLpcOMB5F5gF&}%E
zCNyXZ&zUpVd<ap&q_Z$j?H4C5KKsF#iq&AvHOPBGK|v=t&0~Z-DV3R4m{Xjghe4B5
zd6AQ#zxFn2?w>6mPyT@dFYXxWz6sQL%6^oEAfr$f%x<jzB_$?SN6Nn%5n@)%88Z!u
zqXt8NmUY<h$J;x>oEEWjXi<@Np!TJSY=C-H4wKhJMB9Sc^i(W1fAPufa^fCb@rSU8
zQ8D=X^31gnH(e^5p*MlE7~LZ)7hIT$HHuCS5|r|GK{cr6nI83p3r4`=Wg6CbYE9Nj
z_VRYN1}HV)mJJ|KFLRG`S;jY|X=*-`*`^4<>2ZoT|5KYnjFZyAe-uvn8}2_D1ribx
z#BScaMbu)94zQ@iNiIu5s?qo0bB)0|9zl(4#HeTK*Pdn6C{#jQZd_km@rPu4UNU%a
zI4MmLi<4OG31a?Vi`Ldw7H)x)T9)qP5b-%>^K(-upCeZ<#p)u_b_gj7L+?d^=52e9
z>0>2}Nl7UJ`!`@U?j!%}s?~7Aix(kONByxEZt}0mcR8)35IS*M@v@lx{HV;_aARYF
z+y#PV4>zZU6PlK<?_t@{+R-gUn>Bscy`53%?bVrq>Slt2{d~XaO>Ar;whXqS@Akdq
z5kej(1dYS}_nFuTftFwaoGHQ_s=T`wnPb{<qOQG8Cjm%d8KnU|?pjqS_bpB5we0nU
zl8uY!&IzCk8MbC6v}PGZV>S{o7)?CCYG?7U>bSzhF3xXj2_kE6&(8m|X7qo#vz%|e
zMzjp#kC^Ah6aV}~a$3my=kM1*1SJ=I^jo3DKixgDOXJTgp36|%5NbL8{7-#x%2gDN
z3n5kKL#kpyU2kx|X6-T0BZNatqc}m=tiBbW0t<is;2lf%LY?(p1%Pwy%$5eIEBY?7
zbdYMjt90csQI*D2-iFcB&)JXVwdDfa@-@4(nF8$uRO!}3tRs_pMe^uJmVxh_eYm&x
zK}Ge~-11CGx6<&>ax3#=I_@tXTmc(;?fugu0)%h~H3jXg;|-P;9dIioR)vtuCYIH_
z3xk=}d~#A!o?T-eEE#QM_^*%LYKiqT0hg9xFeF3ZR0Gvb_iSk{9kLYS?tLYFeC7L#
z!xuK6-&o_7dVS^KSdE)9IP2(xf^|40Lfn3b*gh*wVHwTo<b;c4$=H^iaBCl{!=}1B
z^3f#s+cyahN={kSp_{yO@*-_dR_ud9Lrom}@r~-gUh%F$uCjyNk6kDXC@T(-ors#p
zWjPqJGEt&Q<-D5iv^ICEWS6f<*)QlA@E)pOu?V1`%i*2~$rs#J-MpOU#FcvyurM^E
zCTt-q6Qb69n^`kpbP5Q?+LV`b15_olI%^%}Prc&sCm^DxJSgmbMgcTVjUKE!wgCFv
zG=iqOuq>QeKg7^zCR_Ujx*nxsVOYsR_xUNhx;z2f*=+vRZqlZezaW?H6xwixK!d6T
z<@*rtT!Y;3kMw9CAD`s4V@HlWk-r(gRwoAsfzZQ@Ad#uOy?yPICw!7mJ0HJA>1b`o
z><Y=&2w%Vc$QJlSQc6lH-EMxo!^pp_(AMIJXUr&}a-GTcU75n&2>+Q5G%@jpTkX(J
zkB-$80glzVnvA#S)$Wh`L;#<%63B6^Ey6La@jQ1u1jEJ(j9W79j+C0@x}386D#9x8
zZ0|0W%d#bbXd#Mu5S;z5=vtpd%OPDV=mQC!RlWHxom}hN%QFJkT|s$I==N3kUmM}R
z|LchX@bmk8zU9GabC2@y?ot=~#%8EVvds#zn9uBapa+?exg3)=yHJ-al%BF{=Z`wJ
z+w^$cDJ!_&Bb1bi`st!@OOVT&cBDARe!(=&4op)LyycTuG-$=9o@%I;31QMJIx^!k
zqrmaxarMW&wctpkN4g#eAowg8p}eA^qDWt;R9u*C|8aO`9#s6DM(Vgyx-}XF@PmZx
zLc2M`Y?C%cR5T48C~E$Ge)64>Wmy$Jtc%y?+YXu4Co0fGuJFHh>CFOq061vKWskem
zZ!G3p^a5?WT;(bJg_F~1l~$hBn_`&kAh*znlJd?<zt8YqE!unQ&Yj5C9Fru_+#6Y)
z(=P$Wu!IcJ$MUBu=p6&fD=Xz-4?NcR2qnrH3Om7sbWZv5<0c!?MiU@04An#m+$sCJ
zA}z~tY%I4cfEq75dhA#Q01-%3eqVrU1zkh@I{+wRmAkv|T|*&OfFd4s@(>9L?FEV2
z1J6obNR!Z2HJp<nU8;0BZxm%@Wb~Tn;Xl8?z_=p&1qgV``OCve(d74MiM{6YUF~iY
z6w15h>Y}b*ajMr<((gXahW5a6T<Z}Zyt*Sr57!n!Jd*pcUpQR7<<+ueTBeP=aK(aI
z<INiOlF&QRavFg;f90wPt`G|_!@pfpLZShHEehYM@`5U^9*D_!4PH$!o1W*hy~m><
z(X+Y<`(WF#+s*2O?2Dk#DWDd;mWsn3f=rryulsu1!bEI{DOBER<!0b60~%|v@HCKc
z6+n2%kINXTOF(i-#?VmLq+AY`zjC<G6*^oW=S6J*z;MQlY~QY3yEZvHqkn7rcR-Zw
zGDpAk`XwW;rqj|4r;bpnMD_S6u$cU*c~?d=5Au5gj2pavxXBJuNY<Uw?V#IY(Dq#y
zomO9Xc{KyYofAF5Zg^y4b}PwG>n8^b-)OtbpqTrGgwTr`*2TOCU{sC8YCS?9^7?f$
zb_`+T47cT`IW2bYFlm36UMP@y0Lzdj^f=4*tr_r!eoNc(fCjX}a&|-yrcQv^Bqk~8
zVSef8VH5eB_OUkf;OFaGs=DtfS&VyvahT<~F4}Y6|8>L2w&$~lVN1rF=4J3wg%lM9
zl=w!#8uDXQ31|P!0?hAhmgd=5opEX=UcqZOTjRyQ9*>K=2+jKV@#C!p)@e-der`_7
zfJPJi*PTZ(Y-4%0GrB+^UsN;!tR+La6ciHWYr%V<pvD6MN)s|?P+4y^v4pYFL{Wy_
zmYg5jJLN12Tb29kXsYI!znNQOgP=leKk)#D+J!FXG~A#9)P2_<_Z?tKmuV!)zH!)S
zCnjyYXhCDFvq%;EDirM3)w~1B-t+z6uZkOhbEx3cV%T=Y&y6&%tZFp|9%ED)^yD6=
zows{iaC{}-Vj7$7lI}P1Q0MifrYbp1`H{)~OY6g}nR;FXh6Ny3Lqp+X?(4vB!fbx+
zQnzYU5EB=dLop^OLebP`3PNSCb_8GPXl*7GNl~m=sdNf2zy4>2Z(itu%r)&}HZ7WK
zdN}6{aIfevUb*5*ya`tm!=m*$9t%l>V_V)xYC+cBGS@>M5nn4S>o0^mM1ki@4um@w
zqaj#AlN!9~yzC49Z51Ba9uPaBt*t$n{^e9X!QO}-=Cssjhw9@W6m;A?S%-#=O|GS-
z#V2OGqrgSID^kE^w$&&t0egmP;I)Mxv`e&dRV>sxl&=&RY&$4-X}i~gq|N@&@=AcR
z%Qcdm=@$?X3uZQA=DZSuzXz;WHURc~VgLe_tx`0KRET5&wj|aM<J?#qM=$p)Zp!_R
zsCEP)15HRIJWb;t(oo6w8>qP9w!i9TDxV94MLLTjk%)RmIFiPfLjW*Uk{u%Wi|NHE
zwz)NuN28&P@NX=6jlb*Jul}G#ClN^!All#Fkhk!uTHM%{@#sq*4JbqjQ{h_>8~eSV
zS3@nna}p{WFgxL7?I_x+xm+?2TA5ir7g_v8Fhx1@^KzUzH1E{_dbh61dsis;uR;3t
zi6Ls2__(4r!B2?N!D~(B64zH5sJb=;6fh??ZfDp1l+1xCP*9?nlFvbjAVLJwH?q{x
zAsd?6mRlFLC*TH<0rcE0b3^sQSar8xnFe1nh=O(HXDIfjj@Cre!Z}y{e%VoQpUBjr
zc@?7@>&}Q~eBE(EXJ}}sX`xlstmtT;J_*Uyyo;5)oai$N(>j0Y1L)&9S-rO*>NcH9
zT3yAC{osz%_J>`NXb7QlTKq6k?ApYx_1XQd)g{yRA9NFzTvd>%H+Nn+%feFYFkOD3
zY<>>C`H5xEUYF84znw<aw55U<H?B;fRpU!c{OuPytk;UErlzKZe1=*w<Elffk#Bio
zX?#oF%AXSpwrimj4AJ&HJ3G6+W8BSfrej9&j(RAhx*r~Ga~hG7lw^nBOnSmdS*66O
z=qRzvm51$6pO5p}S&B^5!u54*N;hg|LibFHXk%7-8}TD2j6;(s9_V;%2vba{eu)xv
z+kC3JS<~4B_eS=YC(Mq;qI5A`-B<-vpcLJK@1e1%b!Ed>Y^Sx;r!}3H-gLdAyH4@+
z&<JGI>%)6Mi+3;b`Q5l;qUFv)0KoJX<4w7t(2Kg(>~qr6a`w#e&i8fNPq6zCiaaa`
zVjY+o_giwMnBWGe8kNMfYNG_3)-Rj3D;ckS^*&crJh6os5{1j$+y&q6PQL-S(QxdV
zaoqL5Hyf#upiiG}_`Z6j-;}DZI{eP#;#yU*D<NB_*b(lPv1814va_~K<inCpe5j}q
z1Lrw9ZM1^gvy$U|=CiTamR8sAcTuu3GFEYIFwlo_yrdrqNzUU18x-=v)wdh(BYD`h
zOK39S5#lXOA6(H?_HndJkFyk_01;cQYYr&Gup>Wv|0y2wtkiPf3oDdo`Z%LTQwzp3
zOk;YyI!te2)y#o0Z|%@~_t8U-5XWe8(WMBj+|{HF;!B<yQzLGG%5hdkiDLr#PAJ};
z|L~l}`r3pu;R!eCJkinl?0$UHiZRwX{*jB5(v#KW+<|INfi^JYVLR;U;+MkD2&1@6
zLp9$rfd~vZ5&~YX83Hru%{;=7o04wb1P(|+)9cUm#CmU>5ShOy7dwaowa@Nw6yX>8
z-_n@M8%Gi$Js{V#BatZFi&H%sI)@G)wrWz=J4!z>vKZr9FBJJHAO3v=i`Z`=#5=_7
zY1`$SJX23lZxxOFlKBa%n^<<KGsa!u>tw1_Vg*YxQ(vgWW#5M^%0KC<i~@oLaiABi
zBOEQrgMyq<KFS3TQnE)!cr9+0d%t`cftqsRwz~6jeRy);z1A~I5`qNTM|YBGPF07>
zS$$}t8XCE2Zl!7Nt$a=)0Zz?(ZoPRC{6sW|a7||0dkFy>OIQ5T4hsXnthB1vob@X6
ztEuMI0-?UX(QuZ9|N7_}iC*CIUBV*=gFUz%K1YSH-{Eg8<ufJ2-sEdNias*0d?X04
zkMNQtcEtTWHTZt-K_xz98Mm+w(!Pqa0;LZo;v595`XSN?MbXaRu|G)f8}dx<a6O^Y
zjJ9T1&W?AqshDN9NGK`>RIlY2HGdaj<>;{V?Rv2D@*@t}Dc~)o=ra@?rpBn%$yVsp
znK@nHkX=f9cJKa%o6?6hZZwbN12l3330NU(Bk2$VI2i;b^K&BMK=X~XAQ{%oLcmvD
zI7Et$`&~+5YqdK-?TK~XSij@(vvGqzaiGVGKWEvq!<2)-pm~eG+)`LI9j2ak^)ML$
z^XLBBsneUu4A7x?5;%Yr?(1c+Ocs0?S3i8MS7mNwA*XolUcu%~8_P9m>u=QMwV%HP
z)te3b;&Y$*@wj>eRyMXO6dnoe14#`HjdXIjgyTmAFq}bG?niN24!#5u{M>!-6}n-_
zXAcV1z6ay&%E@7v8`Tl`^|w2nHykrzgpVizC4a-Rl0^A%r#?(YHNh5^AQxwMQVu4h
zExJUq&1V0F?BcW8GH;bUSah-1`sbQ8IYKzhE<;XJTmepp|1|#!?O(~t9oS6oWaRE#
z6Ak+@cB3}b5;lW6YF}^fJAj+GrhXv(rk$5WW8p{grLj&LYZi29BtDoav*<O8keSz+
zvp+r_-vV9JK6?VTr8dfzzPY)11#f`Q702Z)QE_oLpKl<ijsf?*7EJ-@YnB5Tl<$^}
zPtZLR`P6$6k%oqNnbJ>RzJ!1fsHO#KZ=C=Xzw57#L{-8s&n#)7Nugg3XM6@8efWNI
zKjoF%DQPm%&w^OAo-F}SyJOlg`3T+wc~Ec!6WE}Spm>ufSReY#vm>DcG0KcO=)>b3
zWU9{4?M@7R8|=xD4?bAfJ?&t&re1}#DjnIO!Z&ZB(~iUpt*=aYDHYL3)|s?ql<Dz8
zmF>@{WXh}nwPw~=hkiFt5jgN-1u`w}C{Iln>Y-wuGqN~*l}I*pVjXumWOl7>6Q2}f
zJykt)4)ozJ+`W1-cMv_Z*OBlY`XSBjw`nIl`*}d(PlqO=sU5%QW(J{PEF}*hIH{ON
zH0>*%A_>49%~WaQ;`g`kx}Hxv#-yg-Nci}N#`xg{EJsWG1aX*YBzS6JmK9H8yIsaQ
z<*Ous23;<AWSSLlSS;v|kWclEtT-T{?Gko-k)=@4Oi^K<sbntM>fWWkjtgSSN&UTI
z#G{aTLl4H3C5-IMH6hX}Ms4|4Bg?D%t+5baDl|3sEsoEdpx#%HiMN>oMP<)Z=o`9Z
zEEl=okex&Na&q~kB|kClpcUHab-X2OEOqHmKElVVKS6|-^rF6Y-+S_!n*H;ueH53U
z_`lji6C2eoCsGJErffLz+pbROC+5Wm$}K+J9@tOV0^Zu-f(DWuJ<O)o{O{n33GlS~
zT$I#A;rF$2D2}zT0e(oCBk~+>Z#`IQMJN0F`&CvPpi3Y&3s#Z;Dk|~_QB3;a#tP9q
z!+KaLVv)FeH>!Ex2Q0`#Z&L|4j4TIVb06LsxUOMQ#h#B2=NRAyvxQia9h`O*eiyHK
zMP534@+JxjJ2r}_9+QB>a6(*i0tMHDQS!;}laWM&L{N@;t*gqD2Ovfti{2*&b_o$o
z-Dw~GH&%iMA+c3kp<ZQ=YoDsn>C-vG&8>RjW>{7jB5@<KYR+EBX^<6&TcJIq^dXTG
zK>G{^b8UXiT&Q&?B4tHlRt#Yi3-FXzHJBW01<8~vMMXt5MhHt?M@J_CAz`E~!_c$V
z#_?)9F%glM)ZrX^R*(Wp?t_ZAy=diKL19{mg+k2b-N%eXq4VDINuKbm!=$eRXscEd
zf^yzK*huc^^MmJ-`=I|HQJpaD+F00F5C1*&gxD6aMRJSuK_})lTZlc`5K54%X&jlu
zN*jhh-iYuM5lFQf{UO7@v1;KL#ZyWiO@sr91_rfWF->D^#^R@~t%ISVVU3;1<&bRS
z+_p;U^EaVD*N>!?q(ToeSe)#pX$_AnLE4U0Z~H~15@r8uZ)cuH0oN$`!PP<Iryu%e
zt%CZz8sOpOm0O&P@_D>Aq(Jn|h>;J$K18`J>eE3Z$W%8FKWtHX5bmOI4E(BTf?Vzr
z3CZNj)knEUcy7|&4COlNPfqaRduvqdlRJ!BEcoO!muH81tUF+C>N0lOPZVt$L0!u{
zl!_SCMPJ(=6=%cH-&CA`@-OxJLYD+dt4AjCy3{n0!i5(4TZsR#jf|FtM(}b-mEB(G
z=?FYn)h=D)^)f)p`%cvyg=<u~dsMsg)~9TGnpebpMebL#4<rB+G_5+IDf|{ip=8tP
zXEb-;8w}D5^QML*Up}zf5c##LD!X+OAtpsIkJW&=*SB&p<4qYIrn&vWojE2U-?>H@
z-o(TxdBwy~Bc-ammMrE^*R+}?xMB|x!{2WN@G=!K)`wH}0nEWy6GTjoFf>KoPg6?2
zPRh3!K?s^i2BuXfK+}b-M=gq_ct64OVtY<`b#?Ata!zyY8fpiS-ju$mu3KSaBO`2w
z3=5WiE!}+eJDo%KaYE;`^I|F0EK-HESm|()YTTHM<8hftCsfg8A{4FeFjaPjro93%
zvkpy%9S9qCkr5JrT)?f40duQsJ9YT1t7A+foKHPH>>E-)l=YoMw>s=(6Ti$|<tqbw
z1O=zn-o|6;sg#^UGr5IG)%&h+@NAW~Q*fwntn7}t<S6L_%y7wZ*;2F)oMd#S9URb*
za4e{YFsKQZGn^=Z>OPOYcaWkpxO5G)SiR!$-BWv_&!*FMV4E5h6_uHX%}n77Pv(6m
zE=?AEXFGmO>|?3LlN;#kHPbW-$EH4&l?@^7Hfc8op1bFYN?AR@b5TPLv5<rLor@v%
zM6a$oq#cY6E6<6Fj@eJeXUrHldtUfWH(&R{1^AjitDU2j;egU);sLgN*CiM2*AH@8
zkE<E^DMq*qNXoY#I&>%tf(M~<K(enVg5P--de8-Kp`tdRu#d8J&l2jOv;0O6)dsB$
zh0Qc2OAlv7T_EH_<;t)wX5<)r8#SR{nOj)+hliW-Lgj&2qCdx0y^xGfs<ARz==~En
zLVn4qdRoxzyMlMC$ZpD{HWaT|=(t2amY`3?Fh$|G75>n_ms{7_&fK0eRd`U1_8cYe
z;S})D1(ku8;$oqtr*)>?i91UIBjZ833Hr&4>=99;2>A@eEN$WEGYZp5!-?si_pUVL
znrRXaHC(V(sLAiUUeGBdDn*++dJHlRe|mAaDZ_r&E=J2dgjL5CTRnj&-iU~u8B5C8
zwcrpLFA}!rSl`l3je?F-vkPC?#&5qElJ?I@L-KsNe?G8ewahH9Hd<JmYsR((`=dEu
zB(xcJj^7RdfuEdrkxf@P$nDMeLR!f78P}l(M^S5P`K*JSk)LO<%j|f=`JJ6a+Mwl^
zj+hVEO;WPRHbq-knp1s<mEGA0cPpjucC^G}kf#%{`oN0f(b)|U3nbVQRPNu(3&gBo
zZtK+M%V95WXa-t7t6&SVLJ8f$FcS8Fh*xRINj~vCK+pBDJd>$fMt$8TfO+|5glmJ)
zhr9kUFg1puHOfLv{+jN8`2&S%n{h{eqslyom1i6gwN+u_nse1FSPbqzqg1f%7iY)y
z2<LtUP>wnx@`GKN3>H{=!h6h;t8$KY9E;HkcoXRo8CZnKl_(On#I@W4v|1Wb?gyhg
zxz64P-)PDxNw7bAupVOvse+bZY}I@##x>LaGSuJ6TwQzfZp+ZDT`-HmSm)*O=lV3f
zy(3T}+KQW2>g%-W*_Xz3)=J|r<9JtL)W#9mZ2od(6`#wVFD}}Q_%OxQ53#4|*tTHq
z-_Jp*B^D_4wxUlQFHwDrTAE*n3EH0DyIDO))%({HJcShg{Pyzagscm_dXG{r_-TKI
zxRg{A^3T!Ga_LZMq~hd&4^Q0T()&(XGH0_cQv`21;)}ctx|8E3;g)B?#@3qK)p2U!
z`MQibG%Uiq4#uhiVo#|QH7j1yMc_!ak0<W=WT8Ys3>p^W&^Mk}VWLc$M07}W7%{)*
zk#Qw#NW@hIPE?IL9XZ*Tg@Oj5R^Wrseft12Onv$jLqWsn+v!k_Zh>_BTlUZJ>Qo#d
zWbLLw_3G*b?iURHPOi`Hwe>@O$PRd1#bV%Ii+#*6^v&`>*i3@hMsqR3W>dCHju8*`
ze74Baix^TP3hTS^!Wk)}mX25*Mu?*bL=YKQg=nFD5V{$AyUeXWRt#C%Np9+O8(2B0
zpE__)3lJy(+uoCkKNT{^ie!%M=RPM`A*N@>qR+ZDEM1q;v1J-uI=%sIN_=)ju65#O
z?!Dz;%YOTYnQ)!I4`qkF7zJmx2_?NTTzLKj>S^-9&yf-aFh%cbmhrMB{Dfg|z}R*F
z%gKW!kvIMlj5|VWh$(6^zjAJrN7yQF;OXoI!~lSyd@ax4kv?{z*xU00J$+@cZw~Ss
zt+{65?1r<SDa;xW<XLNShQP0*rzh@1aG(x+s9{6AH-Zd_ST$)fMAVIR=#_@!T%#Dr
z4mDAm@4H%|53y31sAU@}tic$}3bU8;?dGJr;K#|ZcK<>mK>Vr6E1*%yOS{wZ`cI@;
zg+-q%HQ8f*HV#G*4c){@zuM6Rk4I(0>!}hVA~i?|MuGh#Kx+Yo3rLhtxI5O|XRgel
zkgS@UieD)vYJouU98Uibn}>4+0shkS>|@Ug9M`G}PR4gUGJxEcO*u*>SG!)cH?Xw(
zZ9wVJL?oBP;#=Z83}%TqHA0A2!47l1OE+H<`TO4|4n_?9_b|OXeLI|#<NVD?>Q>hP
zH!E*0P1;0;>TSIIJ;kxt=;*x%jXr!QT>}-72{GcX<1u@3e02A5<Ssd1{$zYZ>^qJW
zPTT32)V%)Smu7T?0_F%E`_7m%e0L)EU2TP6H|kS10+b1gr%`a5M7{t$8kD&nb*ki>
ztr2LV(gy>lpW~~fKc(dkC=?B26v15mp}IFv{Tn|%-Qy4I05yb2;7(8)g*jX152VcL
zK%FD{L)RRTDd8wk8{l(@z15ZBA36{}Dt*{nP)A!^AE;VGG$;x*$(k$;Bb+@NmL}~(
z&^XyLX`KD3GCRRw+aE+pZ|BRh@TLh{8u=TAnzeNt1W^G^OmCi<nMv`EByvzSc083U
z`AdqwH(RP|u2fynl0h}_Pxu^=bq9Q**0*;a$FOlk(x=>Oi^XzlnkLSF1gK`}dYG21
zJrLDf7nQfv#vJ6Bbrt`Z|Io_#3jT@GjGz5^Z-*E2*l;{?M<DmpS6FIdDJeqovqYMK
zUBBikCXxAauK8cs!A04t$bi~aWsVF%D9;S&h;FZ>i|r~931vQ_5HRovhdr7GSJ2>9
z&#hO=QZEPN91Z#!O=#X-8owk>Q0U}qB>p<P4^}5#13)=iCPK)vEVS7$)3h>M+^Nr%
z6Py_Vopxi$|GnTWedym+1V)9<XHgF{aITyO(^od!2De0kh(5WcbRkZhtwHE|{XjpL
zuu(35Chxg-<r@Ss37FE!tVjaRA1}~T$Jr}Vo7Zsa=UXR`3O1Aq<1v7A+h-mGN2IZx
z2u>|SEx=iri{V!PmHNWeOiD#?rr_HzTPQ6ltmrCJD!DL@j5?rg53zlJ^k{RE1khp?
z(JB`@@R6v9L1^DW4Gr>XHXRdzapBJEElJ-%@J%rbrns?`WgrqAR9_P?YT0B@pV`pc
z6AKVA+^H=HT*h$gnC`b%2hCrvGvGXc2rH-+yIIj(0O!4*5AR>0{7kMjJu_2<F{qN{
z=+GXE19s79Lq4W$q=<;~d;=l$fI#*6_0ntPY`!vR6#i&`&}PzP-)jKntZ5!%)L!xl
zqqHJj>Yyi2wi;2HB8;2VyikcrEAsp@WEqT@d5Ay#tza0GCq(<9YVRZWN?Sh|zxq9t
z+bt#SH>O5os;B>sbg9<2py~$9eieAaH$gIWZ5%Z-^$%gu5~{g8eW5*v6X$1|tyh7x
zbcv;4;=I&H#)giY=4gzRixOqnSO&)I;fQ0lDlKs?@LV~h_bd7>A{!dIIy%Z$U_yzX
z(xFB*6++M=Oz?h82^)^F5rUM~_gN2IM5fc4T|JSL%mGPI{iJmt#(icZfC)P*!KAI!
zi8CNa<*;e10QWo~wS0a(q=ge>lgl2K&P)}ov9}=-9hCzx*b)$m7^|p+#3k6)x|my?
zV{)PdomX6iQ8=waRzC9-m~1<@^`sheInU(#ExI_ubDp2Si;h@*#7KbfRzYX2LatFh
zao$Z{(;|F}2rG^%?6u`ySOC7KTHkw|^;2S7=2%4?UYJsyyYd<>N8Xg$rZmf>?Xqt`
zK)=;y%8GOCTPFr<qaTkGheSr(a;x>)X+#%~Ykf1x?Kn1_UbL~k;xzK&#v_hHQ@=qI
zzs=<B@RfJ?bqXs~yBXzvXcqhOokObn=bV<7A6JoUotJoZV46jtY3l@-NzroJ3hCli
zFXZ;@8@q$vk<N=qNfE+J*{^#S#2@nl<qghUA>z?V5)U3cc&|0ym=x%(oo_kx%VG_O
zQN(9E%!#uYR^NizD^(_>j&1*?+}TAHee?}_&T`krI)}bHLOGYfd@{o}CQC`Lwb8yr
zt<vAjQKJQWoo{5)xT~<R@KCNQZSnFjebW8~{+7)zdMDoK$tuW-bRESMG|kg^T=OAL
zo>up`%0J3QlcM2^g_QC|Po3EG;0$|)-r=l^G84<T9+(enmLpA!w_9)=v5c+&oLhE`
zxo$I!jmL}jrR&ty+a8B<!>YmZm5Zt_$F37=bn+fHf=!k?e8pk$-q)2bES>BQxXp5j
zT7P|hh3`A+mN~f6otFwb_D$!l)8q5A)}9Ew(ox0g@03H5+!6^dFeuuXX}CViZC&fJ
zzte_mL>eHiaN4zN4k)}HTBta$u!an>kYQGj4>$v6{XSL2?7Sp?V_sQt3Y9Mrkj>|N
z`x_^mp5)67N6WFwvxIb?TyW4n81gC(q7898!@*O+4A2Ptwv1pCIU#}%RK0X!<{2p7
z^I*YnA$stQ3*sfUUF-9?5i9wFQEpj|D-Q@yudInkq79=>)Nr-eKRwbHc0Llvs|fRu
z2qURvXuqIdD)O!&lJu3@TMS^D2QX`<!f;&lh`aW9JDTJ^mB0cAINxiXgGo_YP-d|!
z5>-v}%FNcVS?a+J3;PxK4Se>KT{L04^Kokjf+w4Dfyq)Yn{|#_(;c=hxMbMyb%3Tj
zvhd3X4Bdx(mVkkM!>bo7yDFuN=|2Wl&UL#`HNnwP7#<Tp=ht(Q%Pd7zMI{(EzDop0
zfgJ?0#uDcZ^A|%4Og;m9O#ALL*?c)^tq*JpcT+cEgw~^OHXGYbY2YBN+39>4wZE_m
zv&LUcB8%*oPeq}%*=gbkZ|<&3q4EZySMGnzFQ3G?P)sdvBDq?I?X;P|WQfTUZV8cJ
zhlmmb{Bjk`5l7ew&wo4VsbqZDMfk(SY1H>mglLfgpKUH#CqiCzP(Beea|E;~xa24I
zZx&$Cl|HqG2s^vGyFc%gKZC$15k5r*F$O0dl`uw%kkMu3<cRoT5#l0TcC+#97qpe>
zO?W<&Bf9uLf9X?(PNi#yZD$H}4`RBoiii+0pX2h8f=wzgN@2jpAoQ7twt(64M>q}T
zi5+=`lW<$X#`Z0}TV9wjn~NqC3&1txG>CL2tlUeOt+AF&VVt(7F-~`7W@f&Lb2zk9
z4+ICaQ?Nq9oY!rU`8Nc}!LgPQz{Oa!O~T!WM9~cWE(@_RcKD`xp@2y$u&tm{#UY-Q
zgpq=3CyhBIa3T<>0bC7YV5`SEc9q|@$b+cyEnjPaIAIq~xKnfRmW-gA*}>{>jFqH-
z8$*ZD!YnqxN1THTFak?|p1UNKJ4||j{Xrn<B@R<T1F(|MWo1M>iXfx_iYJifX~baz
zLV1NY8busE#JQjR9y_dH<Vz3z6?^-mNeFJEDx6=F&~i{&36=RGz6~-warQs^_J_?U
zuiU#zgzvk^AFcJA_FK5}3UA>Btn-P%b@0WQL`~TbRl;(cE7@4PnN~C(OaQQKnDHQ&
z(y%jdz@QQAzXOe!2t!*=_lgp}Bu3@A4W$l|I$6do6X#75fYlP=3t$u)^R0{s*iW3H
zzjW{CdwrLsf`jnL6IQ=(!^y2=f{Vjpg%JIcDSz<n$m=8`@B#%)!=`&%ie`xh8ab)G
z^P4`-i6sR1Wur`be*H>zJ`Yuu$aNg_Na3jpViWeU1nfw_(vb0lh2R%>MedT;)7>MG
zA~Q`VGvL&uaZ_#~k?tg5ONa3o0=Con<&-254usQ*^e@EIS~UL#AS`_soP)2}bq=Z0
zs|l~+F*f<pG8ax>_lw^2uqzjsVi?m$oJFsp*9HpgyH2E1{aOLwk^w~s2?*`_IdYVf
z1#@T@AWEnnuR;`YT~AzyhgHyKgYv0x*zI1}9!2u7P8p{ziA9D*KUnR&Zjn`rHrnUT
zX`{8%;@>A;On%z=pLtjJ|4hV|{g+?=kB`CrN6uG)rghV&;McDyiKPA*KbA3gkPkJ^
z1+A{G#+S(|qP+OOe0f@w3!auci;O32252A=eG!#KoDRl96s1fran=gy{tYiETG5n}
zy?Af}9iipn`2`UlKYpYYK4Oc$sGz3y+MNX-WSLd^;tB$|5M@PWot&KHOPVXiAiq$H
zLi^z4<dpF|KaKbeQn%Ei0B$(LN_;PIye%N$yeR%JPTaYf-|!AZ;+sz4`)k+!-rlc$
z=J1fe{(8+gfB*Zjl`DGmn%GOvhu1g#TyWoNwu>|Ld;I#r<78xdp(1T#^I{7-QhFWT
zaX!3mE&TwL&6D9VVoRs&PHE}z6cdWu7d`g`zb~)gLnEz)hXRP%IuHUjDSZ!%os*Yh
z6CVc6_@q{rb4cZ*fdze?(P&fuHF93(J@h?Owoc7gLcfaz#th(U*22EG(2Y!OBDr3A
zWZ&=XG@iHd|MLS@{zqR%;tlTK*Z+Q^UNUK&V(h@#yW{K~j>Q_vo;RnR-ANt}YW-h&
zPR;+gVT`A%-G90X^f^h)e~?}E`t|EiU%W|%YOh?Wu+Bd}&cl<q+}X3J#~M_wz2i{r
zflH4njwv2irZLutQoMRVT6HvA>5bqX(iGapPK}i;GVimepDU&}ilt}l94-q;dh#Y?
z=M(kQ4<l+SimA_xNU&OLM6gMHrGD~F;u)K5NtlaE>FX}e0sHSk<q~|W{R?jHcs9W9
zJM4cqlTX}v_u~2U_zX(Vfk8&f>gttK!BzclxrHa1Bg(aR7tHu3hDEm+?=M)`Ju#sF
zuCugK)1~|K%IlAFr!>}`5W5mklKjd3tlGHq<J#(@6c)9T&-Xk@Zp*JeDHgjNG8SyB
zm8p`Fp^_5GbS@r^Qb7H>w4k8iMLIgV2A!=609DtC-v|rSb8&IuH<CAQ-1yN|iqpeo
zpFTawcaLBRsk-A#if;J(b$I5&8n3&T7pc{*YmMZ5nSgCi@}ETfVxvfn`H!z|7LqkM
zjn0`EAHTC@>fE_=yd__8!U~z@C&>Y~U%0u=JQ+kf_D(Z><=u4J%a;{><TW%>5w$yT
z>xd0NR#=!a9usgT_55VAV$y{J42+BlD231IcNYRm1WBC7a~+Upc$WYAVdn1#CHcev
zo}h^1?Mml;%V(&x{r&y(ZKm!LZy6lazxhK}Uj9hkLjUdO&!10j)jfLjC~klEeZjxU
zC@ARN%Fc@7#Zh=Nf`FRL?Vu{%oA)|!Ys6QmlXiZd3}VE={(3o1O8!jtn9ujtQY}5V
zz9%`rwYBgTPN_bd4HTJ3L;gA7_SAk$dOEs~Oh4z=#SFFbFiizy&hI(}%(`uyI?vp|
zi2MkRUa)_PnJ1=o{q?Rd_JeC02U8dRYS(n>{AWg~OgEWnEq?1~Y_DeiaiVn2Xz##I
z5}`6`qdz<Dw)ED2pH=n$_>bO^OvIR6{kd<$K_^~(=c_))iTzf@L!Fu#?EZx`53e2k
z-ybm~|Idtr;IsUPR}s8#&9_QYOjS!LEaXAGAhHOc^J(DRs1Qen5B+<V>-NX<KeOA$
zmK)QY-auZV^MY?92#cRcTM!RUp*#CXs*+e{`14WV$JRo~4hndn3z0=6Xh}Yv6r;l$
zGz-<z5Gpy2qWL1Q6EA$qmb&51?*~(1g<gFkXx#*<9JE!+hdACn6rgJA-D0eG<Hi%y
z!YQF5{Ejt9f*`44Vq(|T82|Y`lC45YTMNM%yr~I(1ogPF>C2~2@yP1=#K1ye*Ejj|
z!UGI<4o>zD42b)f<`2c5Xp4!B74w0^OA&Ma&ntH3yxnPoBib~g8_UflhQ=1e12^ix
zIRD#AUTLQQtop<d=lk&R3~8uQNy*HNjEzuaXdKCAoBH7*qH|5>L4O=44m7PMzgs_h
zwz#sF@t7NE{dGn0x38*ntIgHa)I1hG#urvIt4%~M%v}22*n|WH6_%{u{S_n;R#G~3
zN=V3QVO}q@MLS*Tx{~C*Ahf+gm(B$SE-n=r8JRQ5=O^3Ku3dD%`$zslcN*=SDC*jS
zc2YWh>T--U8r@_bcl)2Be4><d^Fx`Zg71j~4NU6!`p_o{*MVT-gs$Qf1D0=q84A-p
zf#RR~t^`Tz$|1{THEReW@tD=W={revGdUR^)0lP7?^)?Pd+uD)>LUtI<IAcjE{XR_
zT+aJm9G!?PySr=TVJ=I%KvLt0;X{w;&YnFxiXL9l#epXL;n;BVRs1X-S@Kz^nLJff
z>xwYRUx{y*{8(Z9Nxr@!1J+i9BlZe9>Xw#SPV<@J26)Cu;l)iPH6&sSyoZJlZ9bo0
z`bawP_q?(14tdCd25D9}^$cO6H}G90a6C&^Lc$%&L>eK55X)n><KF)4rBbSO>7IP3
z-ANG<r*B(nGESr!5N$Ug;Mt$HJ8OQCfnje!nz0JQF|>CPACL(JMa5&kTsJeL$IbYc
zNEd57Dl^Qc!xZ@7)KV;LzCTSF>l3>Q4>j6r#kq;>=+V9<(h{^?<Z+1?K<@F0si+V`
zYh_=YDowa)LhIxyc;kjmKY4t7yfhve^0@hcF$)VzSmzAjM`CjFUbNr7wIG}pi3b<@
zbo96?t%i%Yx3{Z@hyN$N%WBG6@0@ON2`}i8l3Xp_6Y}s@{_Hg_c)Q59H8vq$FXuCS
zsqiDVokmYSQkZD}%Vfu|O2x4;2<(EVyvyd~e&HY63Ojq~o{jL%7V8l`STi#PUtDQn
zX_2RP$JVJ+fb~fa@9a9~;Y53KsZD0Iso@LnUUe^X&7Rty6crUERjPmd#e)5vcg0;C
zSa1A%ncaq$o{cn<e?Lg#PWP)q(mgFBLzezlsvq?nPSAg9{Il1t-oE7eZ~++#X;IM^
zL@>C+VWujQ>EFjqZa!=LO#cV$89aL<1+H4PjUMq-By4`gWTi8{<uNb-aw=}6{Q0!^
zUs0kMFJ7#Lisq2&=HbyuglLeGD*ij^Pl0*(a~IYL4#aM(b#0^&+5tRdd0X2&xT<Ne
zCJb>@$ko+#x7CY3pLsy~&f!U+8#ie29%$H+On*o*$%z}$ueATAY99}7`u*T9yovnC
z|Ncmf-T#imKP%|}?QxLTj^Fdw2@nUgfQ%mD8xDcxs;H=CWlvFPL72k&{t-?NC?2-y
z93V?ws9CW+;W;qiNE#g#mAJ~S_DbS>byv3y>A7<y_A3O5QDQ*5d-qM(LS#I0#PTr}
ztN!)-Yee_6T=?rpp{7f1ZS9=}r-?NUa%|Utg|}y({#pj<>*!t&N;$*+Z%sngp+gsa
z`HZu(WD?c)i4JYIqi1Ky>QlE$XM=@x>vxlUarc}(pN)*vRB5w5?ORe`=bByL#zFb?
z*Qr*D)#o1$6YZ;bKQn3dN5-Ef5)()FojKC%Rc-w4ghw~N&|)h|^zM>bhOZSB723Hj
z<IRe0Wl<nyqOvG9s4ztPr#^q)j*q8zV8Eq=*+DT$0ff$ni8tKU%?<SGCmy8HFhg|)
z;9}=}_P^2md3ebYom5a!IYD$GJfG*huP9N)C+?uh-MxF4S`_0-$IMKMegU9`gJjgA
zXdm*>&d^fYehTjmlP=tjCfty$%qA);DEJh@+=;?xxAF9(Tk`UL)Cq6jN~0~ENu_;@
zmfjd6dRWv4@lhoB1=PILpZ>D?if-fa53d8n+9$t@<fnOehtBV(!(z36B>&&i_kXMO
z$!kYgFT#0>M_=`sg*|v#zwMubLvmG%Z1SNs@+;6leTGjpHR)0O`4|0B@~A&>o@DQE
z@J^eKB5THD;?L>-{bkQi+xPa}AGcLc6K3#7u|My7ue5sN@d9EFIK7)V{mMS$k|-B~
z182`V=zT@pMDP3SS|luaz4o2r`4MjZ=S>kZQ}jQ_Y9b%&*=*B<L2j+EVvoaaYZw3N
z?mu0>hw)Mj9~!2CmfJu>@^1T6hv(aeWDgX=cJIJ(-T!R0drQ+!6%yXW<r@M>8{nCT
zG@>vFeOip?^HR#S35*9J_z2E=+(fj8_;br-aey8IPAJ2Ky>+}e$-R9u_RpVH5{kw9
zHbg(1A0WN@`%nB+%}r^{2sZ7TW%_p%__p%=loS=+_1}Lp_a-Y#UavaLzqI=$!7}pC
z?En3MB7DppM*U4`$mQZma1nTL+cg~JOv(8^hLcjYh$2#pmaKG4968={I*9Ghw~}i}
z*EM8huwuZJkmXo9+7{sFH;6~|`cM;(RKP)$548WWtE6uH^<cS1fYkP52cGDtkB7Xu
zKA&`qhjVHh0PIfT{_lvNX4uB_vjc%mWP{F$BK;UZAYmjKaNpr$I1JFEeEvVIiu^q`
z?^ojZ*UB?_kU%+MKc0{3VH-d^H0o;L@5i_iH%9++(*#0ryp=cs8K&b~-kVvp5Mzi5
z-(|`9=UxuvY(6#VG*iV9)&~Ha)S3ex`Tjou-r{bX_id;o)#f@nebze?@5FB}=onX)
z5*Od|-#=k~xUn)*E$|Fkq5bOoQ2m9PzJEUdCo5JMj+flRp=^iLwD|ZMobF-2`)Mcf
z)NK@dB2B)9lqUjbY(@}kXv{&@Yq&Prh2XDo^~w{i#Ph6@8tIZ66Y<cXxTYMq2QVYU
z=0Rjq7Va}Q$K9k-PWeCVy?0dAS+^yMS<6zZ%%WmCiXuV@f`S5OJ)nX}jw(qHQIH_n
zP-a9A0wN*?kPHHnla>mSktkUub0kTU{N@6^-@V<pZ}<D-jnUoXIsE)ANx!i7+H1`<
z=UhtY>1IWUj-IJaO#zgKz<4Rj$rKqh@IY~hP!z-VHRIuu52t|`FK^S$wp!3N^S?vW
zv#|N+^EdN?AX*#v8@fqKF_u^=)VAG*OWmTKs)1@oPF2+lbn6$OkG0(3eOv$oicqSg
zD}mIJqaqn6qRFq(QGvRv-fRbczk;VH2$p4^tiTq7gyKO!iqsqPqn1A^H+&MAdUJ?d
zt4;ih*6S%Xs86%?qnT__F+LBhny$TXn^9FfSvlTkkRubsgunfI-ktKQs>If7iLEp_
zK@z@DB>CjA0k<zhkmi}>AbajyB-Ekcub}37j?RzE%AKVKr9_8`F)EiwAG~L$QEpDo
zeFp9=Ib9T7A|?0O-8u_9$Ez^%$6~aA`IZRpBr-Hkkj_ej`eEdofmDbP<1PF@oJ!oH
zCN|vX*5Ni&ry?{uMd0o1b>syfhe*K?VSQl5uuxdHRwu>beA5;3TDWXk5Qqw}JC!4U
zM|5$$Swo^;N62N7o-A6iLyAq{9KrF4NbJ5Gz>MVELbnAqS`SAhuo~;R0VWD4$y((<
z?|VH(i%G;|gXX`X7Hs`^XjRz!PAtGf<crf(ONKlkrCdHvM*jGfOuBovA5;!;6^ZDT
zGTDQDZ6TjNeX?zHf@c!jPkW?Qxi_?vjmw02g%*~BWX7;2M7OY2AyW%v9cumf`4E)<
zMkHG(cf5c$yZiWrL3X0VIhzc6F%~2QRtMNHz-?VtSH_BI1vM<_#Bx)R5q%x{yZ|y#
zdy)|0>^|?HUt9pJYx0^y<5w|)V*y?$R1F*X_@oVC^%^^hN~ajy18M*R#SQ^MYB1N-
z@j32LyEl@x{BoH|oFU#e`J9~A(ScYU@+y6xLK;LA!=`}JQz61)fA!S$pWXd<AKUB&
z2cQUK7nYGQ);KW%q(-}3FDs(2O20<i@E%C6PxbeM2M<^rK;sN1%#ecm|Co(jCo3nX
z7&SPU)naL_4&Nd(7)&^>g~sMdJgoqa$guhvk`E|kM07v=;eeAP(d^45P~Cc40(?Pn
zJx-e(7*McLUG?$EsHj5W>0yY>IG`++$7v6LT|!=kHTK;{!B;yBRR?VzvN|SXTdb+1
zn<3_#l3@*ylIJTGfj%{vL_D@ca7g>{Ua*+B5};=dg5ry^{{`66tuSGb0~G>TQADea
zh|3#w1qDBF*T~I{{1$L2#IhP0Zjw?4_7C;ts?NxJ$2AKkYcWYEMIC>4PfrfY(Nb`^
zaDa$6G&BVH`R#|P)<r0KSLVR`gMM|I(x3tc6KtEVgjC3k*nSYJa)JULe=paG7PvZZ
zl|YNUpt{p5SOudG`w*-+_q&}ia|e;fi~KmQT)Cpw-&OA>%R)mw5k5GiD}kge@Y%Dy
zh%w~F1$&DSSW6E*?z65scMWW31C3fV_OlzzFN{`URa&y@2;WkJ9T1p}Ewgq(S=s{z
z4Ifrq+HixQB@}hynr@&G2FZ8|AV^lEIi-P~(8tHY2^~UQ5o`{^_z<5ZGVE|X=*3l{
zu`h)Lv!ul)W*OEg<cd$QR>>spG4qS4(WfU61KBp#>@}Mv^4Sv27=jE-5T8l01r+b*
zojWGi_f4ElpKHPV;b($n(w~ruVD|WNB&<Xdaluc))oi8kiapw75ja&FL?gzyz4LHz
znXb@Tu%NJ#_PRg)y=vd;Bae1OmbO9F)Zlg980<D$RLFhxM7_!K4pO%)BT)_vxeJxG
z9TfG{`x)k`8{Co}in6ys-3DtiHR7_;7a-q87Z@y*7ChD@MhnGu%T;VL59;lx)rKjG
z90V{icie#Kz;*!n3Y*>m1m0Qt(HHLYgXqoy14S7)2<UYwn|UHcGhA1d!Ho@=AH6>k
zNeFr8-n@NV0naN2RwikEu8D?soqt+zJ&i+rWy(X;<6`{SwsjN54@7-7gQh8vs>ZSN
z@~UQ1LBaeNtWhn_IS^;pXO1~5vk$uRYzbm<QPW+Oe=(kRNun{7PmGqQ*LdW?Ob-b&
zMU=wPvbv?P-r{Ki+%K7hV5b@yfg2|R=>R<mWC*km!a@9GwSg_O4n{GA&!p$M6H$`U
z0wHl<h)I8Znylo2A3`3!D}3L;i)kp^D!2Vtug2v{(h?*1@`tsNy96jg(rAEHfS0Rv
zp<xl++BDgIP<_GE>}}IKEfbU>Y(H>v2Q@9QHz7(8aT>J;#TJ4a4d^loV6=ee$Evo1
z*9W3D5`c8k_HOw5c-O|1>O*ckZcv3+P07y&T?<)#Pft(fx>%{fkFMLmZ^E;H1~)GK
z)Fzl<@G*gtO1m>_lgIr0{A^mgGVuBsOej@DB6AVT+y29S?8j-((A>JzQU)v~VC2Mv
za)5$D+^#P)z@P&fNY<lW*(qaCOizEpqGgF<tr&@NFGRL7Y#yiKuFWP*kLz<+?iebh
zimedL_bGBgrfCDYrsNw03BD>ZtZ`Hue2oI6$oxLscFT^x4&+)*z``Q2JHc%ClaX*t
z;dSU9J>gkb@*Y{zdM2V>SR}aukBCoi-5{j0(<-eQfZ9`JSscXd68%4V8W4cr@J*zk
zPmZJRM$gaf?U%r^K4M|LJb95e8ZxLBd_EXqVWoK~W6&F<wOS6<^r!MN;V<$KAus~*
z-7b9~%w=b?<&2b6l)5sB<`Ip9;x?U6h))D2)d)reDEdk|kc}VmRBBqTn5!CAs@5Ng
z2_NGkDA)lX+2BUzK1dE&ZB?f@2zKCY1U`9`-;iOhEv1cPYe6x$8B=a@4fJinP_Oqs
zKKtiHIK5bg*9&tDRRpFYtRLkF2OCpmdHJu=E=k*skU(=RZ)d+xPp315phZ6!ozB7E
zb_h1jy{L@z8U2ZO2Hr?4WY|b47vEJAjDrCq6K^E?Jou8z>K*N~)V*<^h9CkHjUVjL
z^{^>J2vka%4h(|rw`jA{REf`)+Lh3rok5ZyS!s`TuqSMiCkl-%8#fjJn+^Z^^>n@t
zJ{>NXfibgxCfAohf6{`&D;lg%nz&M8xC*PflRqiLBBg5F(FOtQP|BSz*#OELX4$}Q
z<cqj*9nZ0^SdJyA$wH1EQ3AaND@SH9-1DV6y4VaRLXafywh%+_XV2C$Mdsb=f>5BW
zL1E#_l_W?D0apwP_*lI0UUKA`bz#Ol9{!fXfl;(WO1H#S$p<);9YQ*~o=H4ZM|iEk
zB{w{45cyRztQ6)|banYSyS~|pv`aP~+Gs<tA@`D5be+rgZ73Z!k51%$yUosH?na^Y
z0$oiLoXCTiDiaQ+TPy5h&=2nn-RU%%45DcJtfMH;G`AF6Sae9;on(r#2Im!i<G51|
zFh-~#pCG1Zo&)wc^y9$ZsW^q{<|YglfmKxusPkE|?KK(X=3=;_@R@*dRhd2ZTSbCJ
zfI-z)EaS7F9}dDvLp#9Yp1_<)_|n<ZOb~pe1mjzRf4@<I5(eAmXrX^i1vYHB&|GtD
zZ(8B_=4ZkCvy==MBqrg@Q*U+SD$!N<$KwFq2z_rBjQkSeDLhgk)hd8`3N9+UvT<sb
zz$fI7=5hC6Sp4xoal>HZ1wPI1MPfiAB(i<P!b0o+gRW4ft`PLNOd3c6K*s&vy{9B1
zNU!6^loEFMjk~6!!vl1BQ5uY{&IcpW&1={0MFMaFJvjIP#lTgVRXNh+G#bEYAtzd7
zbaZgVsFCxChN3svo*SW%qGlF~f?YZt8!#FNC21jOc;T(~K>2%Iord>83RVatAUNQ$
zZLsu*p&a4-<|S!A{sw5(3o#@Jm2WKOJ%9e3e2PcDd!~h+vvCQDMD9a<If}?wK+mpU
zpNXvwZOcYb$)twL^BK%P|D5Ey`pf#y%KgZ;A2%faZZ(0eJ72vAdr`^~u)P$omYs*5
z$(Irbvg+eTIR-KWBD`*l+W1eb=au@15K6AHXxseQbrAG3(r@0ocf8}A;}pzgp_fI8
z5|M2`eNsULqVpMvCq_3V+4t>l2Vw!2hCtXd1>@Z!Cf`TgoByKJ-vv+uPDQ+t00`~?
z8g3L3QKWG*Rvk5Akj88FieYD+h5r=UUy)%1xz|}7L7#$Xzqqf5@cp1{B)U8l!4kCB
zR&X;*kgpIC(^exl80<A@MI^}v5&4cg`kn#De72z~BJ*A0D~Dcgc=>ky2G4$B0WKOy
z0a2GSn}I4fU{ZvOAJ99iBnjP&I2C^BBS-F^4^mIDTj6QOe(<1qnP($xsekJ{v8^7j
z9rRuX6Kp)mS~-_IiRFPk)vpJ?yh9pNGYm2Re+w{1ADc3|92Ri5o8C5K<)Nj^1N;%w
zp7yd)rm}oWL{(19%Cb6jrpuh`R-NORgSVT1J0Fz_4(>Tx`(D1!$gpcP_>i9;@x3?S
z?2l#3T9&y*pzh65Ubj4}GhbQs$JWbw7iyE14?nQiH(dJV`>wDSF>Zk-Ud;i^2ag_A
z?RKAfbx6$gzFmFl=*7f5+9Jq-!{Gx-+VDx`0dbht!OD5Cbr5#J;Yl4PKYYK$TfxRb
z4t38*7%vCUxp?vQESq^XpuF08?CaX2#HNN4_`8QF6@j9|A4)nyXa^_*I@~%Dp5m3D
zr`V4K!xlEhQ)+_X-q!-X{|Oc=*x(<*ZO71EEW|Fw%DXIHzWmZ3oe&JxL=QWS^*ddx
zaR@_z@(|Dr2KzXJmfQHuEYwoeQzlE=5v2HYlWNvXoKebejbNP~stS5`#4A#+w9^P8
zDp?@l&W#Uod5z<w2h*<9(8TQ0H9=ZJ25JVEQpok7+vU%xhhA%+g=Y1+!IO3>%@Ag1
z^{io0`k4Yh0c4HEB(f&&Ov+{ns7kPCf&w(@4eQtKN(^_tC7&XL`JuZpXKS!U)+rbY
zxijys|2e5rFkBNjOxj4Bsb%(-IGYXix9;32MO*(lc1|-g))FKF`!w}G-3slv3aBIS
zoF<}iuhdw#6g@u6qNCee;BlBjr1y94-fg~<$>FgdVEIVcDbY+N26LR=3=`aZap2^z
z^^|~DKyStN@yD}!2Ra211e)#cKP%(~*+HLk`+~AqR8m@i0SiIu_oq%CXw~F#i#SSR
zA3$q6zBM)_E-u;m`KXKxl9%|?N%&aEVC|E^J0nqeGR#6aHw0fvns^6Xm!2culS5o!
z_L<^;PXDzKr#O%gW}(w?hSQb!Uk<oumiD&4NkXQ-yY!1Ev|7kEnS}`DPmp=AKtV_N
z@kISh^#jICU0F8t^V?r>x1EuUYU|KyPN$5cV=7}4$gjXY$z553gEqk{IFgWY8-;kh
zB-{5RWL1XAB29_4Bkk5;WXtVt?eomlcgxkEZMkd@SYn`OT%ry%a4=%6fe=otH6$~r
z(?tKpQA4o7CcFlY+70OAG9~yWsy|=*{h?gibpFLM9}H*4!d{QaY3NIU|D_O^{nsme
z>_^Vk&1Zivi`e>T9oJIDlqofa;MpcHT43%%*KCRG2Qx8_Bl4fXzY}8`eov(1h7{x$
zawR3s=!&_ATqc<wb)9n1+_A^!slb|(54UKoYMsxun!i_b)Kkv$kH389t*Yzp0u%2q
z(Z|nm4hsCU_Opn0E?eO52r@Q=(TW5I9(3RggBcu3dzQ?ewpq7Vsr7@}E3b2RIZDd!
zcek(oT3C=N;2BcmR;Za>)x`U^!4nf9uU*22(bYCO{M6>owySm@I0Zlc86i%DW}2B(
zn(1MeFCu@mH+>jN>FQb`lDZkBv+*waZ?~Mc<0OmT1wTq(V>*ZF2O|w3@b~@cpmR>-
z#O1;P9ASxbcW?=Z_h);@(^dd2f9h^Q?bTD|i|uix`r6r$lGY1(9`5cz@$vC*3}@na
zcxoeo>4Yddm~21?3TkQ<pGBssV=4qv-ABg^4m&kYlR?lO@9W@Ld2D*=%531T%f7yN
z_Us?w`^WeF7I0B!Zx=U+dUB8pF*FmeO~l(Bvod^jJZJY?{QiDGbGC2!KeO_W*CiE-
z30;}Ob>$eKLS(f2@yL{8=s<(Ti%CMmV#3GpxZ{H(KUG}}VB`z#^X%qXS7Z`b#yvp_
zbMA~w?x=nWjC^=8x(iSUpu6DMVF0BT*?=Mo3;!evs0o0?AhhQ&Oo%8hE@l}MLi6fZ
zKmYmcAKPPwppd0pLs&REs}5Z+;Ms&ig2x>kn*HH}95V8do?sZx1>tCi)v0no-JPXd
z_p%8v^M&o;umyA6o&CdymrK2V@rKq>%L6Ab>;}7TrvWZmg<?h)VX`9CAqmxPIM6=Q
zTfni(lL2R%{Xk}^69+?H&a7)I=U&4*#+(bs_jP@oGFgx?NCrEK{KY2y-T56WAft7G
z1F;}eal^@9*!a5HHp-=_x@aO!R&K5$O1xJ9b%5{j8RH$2)i$CBBwUBF$tg2~ckT;{
zr$|7^)SHqR;2nhQeMIOoln5_jmE2w?+yilj26D_&6geR=$Q*9t99UY=JwZH3Uub75
zA1D*(_O&s3ujXWDLzUNdosOMvX5bRs8Dx4{@=rD24A<)gWY5AZgrI(+p5$MAi&7HV
zB(jOI6t^N5M!YD_HL2mJc+d;~{PQW;CDf2WVORttonxo=Gjf^b(&33i*4CpEeVq4w
zm}X+=Zk%y@*}8Fke^VFAhO&Vlh(f>Y=$n4=tzKV8NoI{S6gk}y{l@CIWp<TFyYj!o
zlxwp5ug26BH|H72i*LP;)=*KgdEbX!AsN@}arf?Lr&B+#;SYUu8SuyoqK5%PX+@4e
z8f0$*1y`%83Ceiq;GeI>x%1CX=YC$Pfg1(`5Wkc`g=lDG2S;=g);xA{9Y3Q1&e(Vi
z!9l2id*blpTD=0L*h);9Bef`#{q_ruQ0pb05Sb2x+d~>=0wZuZD?&pAP;dj2G&1n;
z707p_@sj!9@fN3O{-TjBt#LQllO&BEZMLUi84Q=lJr4>mO`HAd<eN*}aV;nnNBf<|
zl>hv*wjmdrpa}1KJrk{;ivkON-t_N+pC?6-d9VX)w8=>m5;_7IecKYDkHgV_932YK
zjTB2^05Ib@jC#g@&0M}`mW{uR#DxxA95Ad_d}nctq(RcNg_(#eE`D}kHu%U>IW&Zp
ze*MvRX>q45^?`A3C0M9ecdVHB2-mjXCi(sw&!yn6nLoYVxnbKD1ef#>=od>$(H&62
zRz|Q3{T`1wZm=?jVbXTUDQs6&ra1kNdM}<nK3niHbQ3g65)F^WKRUD#W~}Of69F$A
z50nY=w4L|yB@$wYf|&Bat@1NCZ|$@vu54!V&vr}6UJWJ+#=A(<7k_;?(MkbeTZ&dn
zC>jlES{YUy+H7Jtf>?;X|IVNiVSs~^<+0Py0)FkhFJ?Ba@eeJ_9-4`{%Atak^zA-)
zyu&#T(CcH~>();=BQ_2{7R;SkVNa}3+!2CD2{`c2w%}Ok+X9f|1)<l+g5lZC>w#mQ
zZ-s@0X(A7}bDTp`gZJ`(wn(^wb*@hU<jx1{P2t^2nJD%`madRyNi0?i$amvo3y=(?
zwLXA66NewU;aNDKVNbOO6jNsrbsblRMACdX<e3P*do_Q%6j(E<1KBQ(0|6KxpPs?#
z{uy}Rbi=J#h7CvF8e3y2qfdV^3nLtRH>b5inOlmM0C4F5m}n`fqsL~8d`6->M;KV6
za#bxbrXb|T<U|ehRf#r*ckS@OrhMQ2ki2ZXmN1wgK|AS-OqhgwSciu2J&199pN2FI
zFOm=N27rp^sE^2W3)-{-#FiKsgv(Z<^T0_P<)jrujE9`16-?1WbacWKODoceYDxzS
zVqYNQ1xW;vAA{YH_VvN5QKQWz9a<N((*Ri;VyXr(<`YInp>$3o5iGUcg1!|!D!}u0
zEJsW#1#4c5W7QiLx26PrV01+_OX_~EqA;w!Gcf9JtxZeAVcQzx3egz-ID|o13Oxc)
z+p3wb<0|n2DL4x?f-MGwpk*c-D2n8O#vh8bzeQ<)u0$!2i;!KZ)*V`HurZ+*3C~^#
zDOEeftI_=-BOes9e6BPDcM$GF)MCMd9Y~ICkG!@7mczcIJpqdUe8!Z&Gn7bzmrLYX
z|A2sy`1nuJlDxc!aFmc1*y{a_mgJIc(@l>bzX#Bh#zo}okR=$lZcm2PD8&VlJ4{Y~
z>}b{I{@x)}=HpXF(I$yDK`>T>i6+e$#voSDl2}mYj^hc$pkv7r$%keUUtJR06<2fh
z-5)<0ZZ7Z8+nL8KL>wEg$VZ@Cui2`{aYX>wj3O9<;lTMbwUTX)qiQL_=Ku?r<4Dqg
z#{bv}K<i!+a1<8A35*Q@aC!napdBM!NbN1ceqeD#lfu>jxd980$cqTN@^Caw9UJK=
zOLWCD8h_F#USKCf-ql#00825i1H-mX03$EKKhTenmw!e9lHK!Ro$FNHwJ$NXpcTy|
zR#~{u_@OVmeWKr>G<(~W7~|FLCG?7^bixK>7quvyJsUKNUXBc#EaT9ERjzEL^8|=5
zO;sDG4Pry$wPIO5CuB*awCZmD7N<XclIXY1hoz(k121nV#us~*$xi+8b#_{xj*!<j
zcz0>Wo9!X#|1O$Cb2xF^F;in?-_%v0Il0@nE2I5+AE`c4G{|=W2A`vT6d%Zq)YecA
z!&QDiG8l_28?GYzzy`&BrMw$p2bveXXk)ezN^?$%017SJmi06u1>pr^asv0j0y>ZW
zAmnt?2-*t3&hf!#&!3BcdkbWs1!w{FzDC4dX^UYof_Fs|GK&H00J=GF@L({w)ku=|
z$;HkoPO*iGx|d9>Q32pQqLJKR<~cRbDiw_Qg2Is0sk-p4gCiH7N4AkDAgw@vw1Wss
zm(@)7t^UbMIKu$)vXP1H+-)e;zD9gxj?H?i@!1M`ORu6oOd^=gn?p*C%l@sspoFAD
zvXUGV*nTiU{}dr^VQ$VKKmWUg4;nilHzwqr>A4{)Bolt;ArktLD#d6-F+I}{_lXSn
z4DF)YT+5+Li<%ZK@}~7DP+1)8rVyx^r|DJht_sP%_T9|Fb&kV@`1bGtkS2nt#c!O1
z_%gKO^wTxI>Z8BezDA#=wv}*K+%b(L!e1T8;Dx%5X})(S;!WUAYe7|~^jvp=qjxtj
z(T(d#dVxBQ0uBlZxZ}}5ZT0QbQ>^sN(~-rAZ78hPGcm5|UJ0vrfEN~dY&8BP(^}8V
zUQ()D8c#Ogelm4QrSCNJ8z@{bMe<D>QVo#%DhtFeZa;UX`eKwIF2(wF9NrY`<Fmi>
zGm!oAwG`SU)l~Hxe|~*Yq`ey?_1S7EbDq|?g=%KvJR+;{3yH;Lx@h#F-Wv5oHh<Fn
zXS(gMWUkhx9Vzqs`<4i5^(1X*k&h?^q##F@h&VAewG_q&DVsx%%*0Mg{`%=vjhlH%
z2KFq&VTsAm*Y-64XUn-O_wWDFZrb9Q{GvD2wzo8cdJ_&yt`8F6=xn+?&<+dPK~k%z
z_gvYxkp6J*of`e6w8N(P&*;D;AHozAXIq<s#?R88^aJq}h6o{i(Vr$#y49UHI2oB=
z%znhI>hHs{cPwKtYtfxxFab6fp-X26m3ftLo~d!wo;qYm=*hE2EHLFFjdgy;mG&oP
zOZum3kM`Z2yP;pCTV$CRO+C7VS!Pw6wKG!CKy)#-pZ5J}aGWF(Q?PePYk=3s7MN3!
zf_1K_pwNtiZV(MOh2zJcLeDU6!yqss7Y`_SpJd%cezkiC2b<QfVqaFG*^JY$817Bl
zzyz_o1nr?$`nlXbyDrE>%75O+HdJ3%_b?l6nm_M~v+CwPLT^G*=U;t^9^2Mz2l)`$
zx4*amJTXVFqs!ns&A#$#vT{w8NCeyx(nV9#kIYp}>7^tYXzp{~_p-9GWx$Lv(XOAb
zIv`g+8s`ZN{zdZ_qykXH5k2o0Z{)}J{;4XXeLIG6PYkLSJL4FxfPu530UXUMJL?UT
z7>KJe=o9J3j*~GzgfJ^0KN7J|(b!?no{NC8wzMSiWR^X{+mm5aKhM`^i|Y!pXK*{%
z^|?~CKIOaU$=6&=S^x?vDk{b!_(TMaMwaWf;F`giAS}TPp(J`3bxWD}3mIKqKZwj%
z=BEL(UiyoL(`gFZ4NpeewXE}|t3Ehyhi_K5dp|JN(zD)xInJOiV+-^i!(nyK{oKWD
zz%EW>js)$)!loxA6?@SI<2MWaIq}F*poc+@Lxm%SV^jrJR<Za7b!Cy4D4QYP2p#NE
zQRgv~8lQ>Jr|D<_3k>99jX&5mY{BV>MgV;&y0$d6NfvIErb;MTB7$r=>pr`MCK%}4
zPv!J!({$;4^VRxV<5S<coK0bm%=V+v4731J`lI0@%?uVPFx*H3SBaKG4L}%Bo^)wr
zaf^Ru<>2HdP!gGsL!%bjvE-Ien=vaE6RQHTHOI#oCp38QacI5?uuv8}+a-DJyA8%y
z2!$!61~NomTbx=8Q-Q%Z^BkXuSu|=0_iBYX_kZqv%zP;zEMz;c`m<rW_(VLLdJuRh
zAg=)QwlGRDUTbJ0W*Xwa#^jvv8~hn)xWkp4`hA$rOSXxbXiP{-YN5`dkq89T)9~UB
z9aK3Or!k&D04ZMtxgoUQc>e^;5~K#n%w#jAH;XWh3z;Q-Qx>|%Ir`B6)cp{!SZMEI
zy1>19yQm#b6VDz4%fL3F@dFYf0RaIV>$D*sBw&jEQ(9x>I!c7_!jxBA@4%UxZ?g`<
z0-)xhF%D>_Hr*I=^Bvw#14374&x(g=B7ds+)02@ZyUJdHPRGyt0?<s)aMNpqw1uAo
z&U^r02ldopHcl?i$kkTY>s|fZfoi`WsJJ%A@d%u91`-IpLY+N5V$CO{l;AQUe<AEh
z&U1ko)E+l)+_=ZkL<TjMU*mJFOttJnol^j_=;)b?9+N8MMHi`AsVevdzFm8J&&KPn
zGk1J0p0;GVgYJxmJs0=*eQ0%FD?WL0{_52qgj}C|+o^Ch>_qJ3En8%kB$jUzOOqOu
zF*;kcUM#c4p}#jVT;s|ky8-*W?P5*d)*bd81nG)|2PU?*wpQ?-Kr*1wzS1Nq+xcup
z-w&~*>_@#By+6e4V2I=B3De-loJV5O8HPJLYbx!AA5}N>CpqbRX$#u9>UBgUh0V2y
z6*={LcA-xBkc`r>Mf{KVS_cZOF28)1qgv6puEh2+)H&%ZY(8J4QH&NJ)?5qyK8gtj
zigR~<dr5Xu133n^qaqL6`vE<R(~*T9@!yJCCeJnx6^bdQU7`_vZN6aM-Ms8c{h#bA
zB0o5{8nRefSTq(O2}OKApy)2Wp4aER{METDD;yW_Wi>dBHaVH2NC}9HJQuWnX`+R;
zctq=@4!A~GU>pXo>cUTwm=&|qWap`WuB^CFe~-!b9j@mshm~H4=3H9lw}K)f@<AmK
z0uyi-fa#D|9k9M&gLcw@3`V<=J7nQopwR9`$98TJOzDw_uI+*DN9~&!0@v2IJ#Qz*
zb$F<##c&T5N(7I(?a<4*zryVGB(X1778F)hJ%YbRLx}bWi^{WPbO5}zot1A-8ymIn
z_O8tVJo5z`TPlOc&S<VgPr(r{A^*4I<kjH1TiU~?MJtV>?T0FBwOSnb+@({yTugOQ
z90D~uvR&zrwV|<b?lOZ%_W*e8LV!P}si_I>ktaq|Z3jk{kIVDaxg++X6&J=G?C=`4
z+I|TM7j8t*#F7LsL3dUeRK=fLw%ufaQ|WHJQi-0n8a)gMYvQGcic3lwz_e+8akH5@
z);VwNE^_ZCbOR3%6NsF(FyGfw2=ndj+YGg{(IxOnOiT>!km(P!eLc>d4XufVdx?hG
zn`siMf+fnm&i&v%MD(p0Kf+b62G2-_r;<g?ym2DJYoYk+HS{`m1Kt?_jNhauzKxum
zqW0zf5%TpI#?r|G)8sLNqgYs2Sh-PjZq(bkJ9RN4EeCZ=Qqp*Mb(U|99p^|7WGSbz
z@$M`WD%<e<6JT5?1plCRK7!j$Zn7v{rOcVnl^Ck-amEIPUlaf~!A0$mBBn3fdivdb
z?IfJ$(Je2$8&UtY-;t-w<B|@+>OuzHjnQPgW-sPH%)ZSn!iPw1MhgQ>A`vvsrRnd7
zRyl0LC>dim9=n+Dk9WL62w1EM`mLOr;yfE_j_4!SF&F=xgkF^{hOKxOmzBktp3v6z
z^|7khgq+vL>eH!fj7$&`%;Au#oHU+UI2Q&FawnH*SR5T{N`q#z5KNIfvNZ*FVbv{E
zX&k4?t`80g&w}}$dK;TA+M|%uJcXtCkM!A;`gAo<uF&*g$7vk^2P&mZXPbB$0O@b@
zmBJjfk_ma%lUKn2<al<)k90R^rc~;8`7bByxwZ*1EFOW(Hh`HM;AG>-KEP=ObZ3@O
zneQbWFw#9`?#6WAgP|>nL$WG0>fgE($Htx~{SaQF;xOkyX^Ko=&d}Ic<y{jSVT~Mw
zAIrLrLH<)ZQc_CSE97=qj~xk<aX!{%F_Wucj&dh5m)Mc+<)#|vZ2GWOPI*nth<s^}
zXNOjq7uM;H%xAAD5o$B5oV8#>J<7o&Y;13-OpF^+`Pbz-xr_hYmlrVBn5<6emO)c9
znkzNjX@nOZ6cUmRhdU3{RpOo+=1g`ya^zf4q#nZU^Sn(JdO$BLCX}oT)k>z+{1>~)
zaG?^PdvNhMJR`SQQG0@w@BH|9?`9itXGdA9#<_sbde|tm!jy+5$_Gd;C)!ZI1!IW;
zOAK~^@gcpvr}*!mA+QM(AOicI(hdo{R9aeU6jP#9j_TIK_FLfdJJLEjb@NwYKw;(v
zZzHy#LyOD+();_;{!uw~xTtR!>RNv4+RDO;ii(!OMEQNP6(DgHe){x)ZgM~+sV!EW
zd--x<Gz|C@lq5n7HHS5EugKk-Kn2JF{oy+WZ|HqxJsqEnUqd)`uP&eqC~Q&{@6V$i
zZ+7aTx3}jH6^zUyUs4VHuN=;k-Cp_j8@AxsYExHM_5_neislNMz(4s|S(!Vxt-QK%
zNkM6MtG;E}t+Wu-TPYn5f-WvDOg3DFcG`W5JT&@c)#w^j{pY~JQEV%spZ@YUFyhQX
zE^WNLYWO7Wl(}(9802;$NI^bG0eATjB-aL59_z8|^LBRREK=5p%o&jc{YxKA9kIp-
zI*IllwG9lNMVPqF=sfYwsAaWAJFiLU!n=vdPR7i+fzr5CcOY+#SX((XyQ!^+3Z<9x
zX^f&i@<lP=X(yDG%f48p*p5hu24f+q8HTw(za!3v{F%kBe`JxT+URI$X-S`n2@`%*
zAS!7F$3%<t+{c`k%{b981^Coa&dFS*Ugzyhyn*iWd`D4=DM)JXpExGA9+;+VRI|1g
z+S%@Oq)@xndz@n3^91mU7&8jTktJ&^-=W=t$p%(wW%IX5rD(t-bLoJ*<1XBzLuq3>
z5s=Q)k<!B{6Qrnk3?{?LXdtiTiSzeg4=-V3NxUXq@bGe-CrycJi>+*oue+0tw-;C3
zw=(Qa5?{sz*lQJGy^ye*NwIW&DNia;-K45YC3R!>^z?M(5W?tu<XNY7``li-b?ubt
zzkdjj><uE<OqsSKuf#wXlUX)Pw%h;cd~_~-nU|P_KDdB)zM)2CvauRPF-$2FSdK--
z*#Jeott>oiE^$%p-d!U-MFZH{<&N-5Rk3S}iN=ZCfPMkqY;uutld6ZbKfA-B!>(N4
z+t?hwmW`OPoQHlUo_c;g#ShUcv$wl2f?B4ntgw(R(f4WH7{_TOq6)cym!yL&5G`+5
zRf$UtWXcM`rO<zJv0m7l%JMq?)UmII^8_7*6Y}~>WAC(6%ApUwQyy5u50EG5A=Ms0
zW9Jbay*Lz0<%hzIG>etuW+WSPb8|;Qao+@>DRa4L^1W3f&4*MC!(xP-Mu+MC%g;P_
ziGrTF9`_$IFu9y=SC2-1GMEn^J`{Jj?QN2{iTOQK*3taN`h_(eucypA!X^^0kEF5z
zD<1xIWC5y&wBQ2zM8c*u$**E#^)bFW;agO86q*s(9XwtraOMw<lsSzkQ|@tlg_sao
zSHr{kE<y-pAoQQ9{V5$=teLm+cnq3+tdIH2XCB+xcAw$3>w@`E;#;gzUoiZWs?@zB
z>>D-@v?`}PL}vaXCPoBcYIX$1axpTQygv7lo}3RBV1;B%u6b|#>f=E%<W#WryMmt@
zHNv6l$qG~BLb2P#kUCY}ClK<<O&*Zj7?~)Hl`hmG@oof($vAIE-EBrDa*+6{wm7_1
zM&`bG60fqFT8-v_&7X%G^TyH>bd~5+p*{Tq+%^j1fU0}|2sXlCAQuO<1=`tyksWBd
zKV%F540;?ETfz4$U+QUbqyNO~F~N8vpGBpg%IjWDD_Qw>qh?E3F0!5X8ZZM_#gtTR
zaZhN78?Uds^MQ^9MgmMTl@kP55gCVG$OqNqYO?9yaZs4uSRUSn_t^qsA@O}5oiAik
zvh*D}-Ln80%277@&)~6H%@jKQ?)oAVyLW#cdKD3;hEpFJpnBBXvN}3C#I^l~tR=hJ
z31G<4!Wd_3MZ<V(*CNC<BteouSk)W1&J%Bb!pKApnEbA+(&T<0is+c4UZw6G9cAt{
z74)OChX=nJa-Y~GvA8qu!Pa$jx`|etdHyZAI}gUlhHM5PPc2LoymZ7@lDr&bQOo;)
zP$I#k2ue>9V1kaUJLPF|YJd!7qc*y#E;HtY2{^8cUUz55+8M}rf9qel%f^gd4<>u-
zet(~kr){m}3y$qLbz}LZEu$Y7zZP)(c#2I)10H=|TxxF^TqPt2(lAk@F{Vt5)49Q9
zWl-t4;Bs|u7hIi}wrSEc8|*91;CmI#rOt6!W;DhV*^(Pf;&^L^8@H1m{RZY}*Q&9t
zlt~G}{+p8JyeE4uvl)0e*=GZMN>e?g*~7kL-A;+oM{xblBL5&FxG``MT3=$}_^CH!
z8-lth2e6(na#=_V(muSIu`2l=Z=)EWIy`>P`IHc~ed_JS6%~o^=Db-vb|$I6XsBaS
z3|ejD5e5<HF(Qz#@7QotG%`p7Xbr@=-YpQu^|%KosAXJ83-2j?k(%o0rLFB1^S7#l
zrOfLg1T9@;-?Xy2BV8T%;R4v<20C|N?mTe0k38NbHr6pVl6D&dvfuXZ>;v4`mtQ&h
zHyu6Bc^sH6vkxf05C8Dh>!^c+gJ`XNH^tX-44}5aVrhUEre^!7agz!njksn<aA|?n
z`c|AeakvAI-Y%MXW0?vPT;uk%fun#FJTdlAh|bp7D)a0|ATm=}`i>10rchlXeoVyf
zc`_10$94<fY~&%`)g6x8JK(&|)<v>Oro#8>oTU&u)bKSs`bQeWvUk1}E|rUoLqvdC
zA?&RPc|cm9-uAHp-!U;f@NZ_7pg8ViM&XFHZq@J!`m%1-z+rYh96?$N#UQ)!2H+}5
zCl&_WXKJ8Sg#IPd)v@RK!xg+iTBi49abhF84jbt<wXa)F!=Hp4hktxSc-w3_F!nVS
zjqo@px`YCeRYRXL*nTp~HXz!HgFo$ni0RY!#8MR~l{+I7xN1d<MHp+2@pjE2h-TdI
zAR<{!L&X7-?hLQLPVJ3b8DKm>1Z_c!+V)oC14;@@Vo=UlW1>X@vJGLR^%Nxr3a&{O
zx9Divw)nTLqMv*|S0L#dn{fdhp`8x5Q614|G1(pVO*>Z#^cPs&X`gAcGx$`&lRaW6
zQQi0x)drBDsh^(nnKCZW(Xx@*`XEr8yrDzcMxLUwraNg8MuI;hZXbELZ4(KS+!#0v
z%YHNDd^=YWejfMjl#<i*YIBO^`<t!L`taT`{&_1kgM?4Mc4n=j9Mf4~DMkab>)|v1
zt?-;=U!-dTJ$|@I-y8ekI;PSniYT^^UBAHh$9~Vem|&3=;5H3_{Ot+EsD8HgkG-Yf
z8=yk;4-Xfhtw!bc*BiY0*s(GzI&dz2K$__R-C6*UQv_uhtkQ$Gm)@hOr*0H^U=)LN
zYBz_5L}v_uhw+FZR(D&N^3bbSuWl0+6^P6;GqB^_bPu{!5p4UK6K+S3Gb8{jRv!el
z91P0##f6-2Q8897K#y_M5J%a|cRFYXWKk~cYG1z&{=bJk^P+=AsE)0&$j=4W_d8g?
zQb>S~wsJVprD}$H0X|k)X#Dt6Iz#<A&mE<Do|;&L3G4Asx-|Y51(^Zf(0C4u?&t>K
zb2-wQ1vn?@7=`#@cVDg37#(L=piB!33smYuqCRb5o0VSR6bwJTO^N;$c>qi8?bkK7
zTdtZ8F0tz9vas^B3{Q#M&?IuT<OF9cKS$<FSlS^s-BF7}#r4T0rPd*}`2QH5w^6sX
z3%i!yN$m>e3HKYSvUu(3F{lO%Caac^n4f<Z(ci_}BaeO*=)?3G<%s9=0?)1A9MFp}
zQAvdyUq%vQlf~zYGa7L|=B~N6Lf%~`wU$;C3TXbgYAbb0{?2EMIUitoD=aR6zRxhR
z<}ipag>j~}eQGshg1Vs(f!6{t;&3=X7<?JGM&G<16wy3!Ypc<a#eLn6O9eW@BM;C{
zr==kuR9r81jD33KW<jKygwuEmdnPObYrFr)K(>%0vn~B4uX{>HRKMr_w240tjV!9Y
zX=~(dC-?i&qeqwFKsg34X?rx_B5ZeS2Pv2rGI{mTg>TzFeM+LN=VVewDocEN0Of|F
ztFm!!Zm!52MPQsM`(LZ)ih##aQq~*zRBe|NDv7p95nI0{;_nEunrlCAsk@R2dINLu
z(HvIS3SOqFl6l1YZe?ZVIDG9b?krrNar(=E|Lpn}b}pv%44s}Qd`NeVm+nX+gL%d<
zA2rjD>1K`*lmW^SLL<|E3keXImW*z(W$zj+;oWcSyKZUcP>3Hts<4o?W2iDi2&?^o
zO@wCagW#1*npNVo-|R%G(3gL0&hkcW6I%bQ(9~2(!PFn8OI)djLOb(WYsNJ3Qh#S_
zJ*}Cj8Y&~cJ0KDynoq#Di|fqQ=<A#>&7WvnF1$aXCwlVarygh8`ib7$#*Gu&{@r^-
ziWA4bMD5H3P*9*3{_9he$G?f;eKZ2f5~n%`x5&S?!(F4HsFzT=4LTYpN939>lp`9n
zw+*A}e6@K!)o5IyTN4*{!hdK$W@`NA=#iU0NhV5nM1JBt!7|F7R6~?Z(0rT~i*ZM2
zT>aaB>)seARs6rXkN*xsnmq34>U@b6XgP^1G;vbVowm}teBanl35mT&G6{+3UZx~l
zEpfH`g@9GKiA2%EomX-3AyX!9o9ln!+5HcH=KuQR|Np<mzn0>!XA%6gbee(;exZa)
z*!BIxx&ct7AHp?1;OWyf7<GFA0yiHj=CH?OCfHR^SkenRwE#ROAYJwx90brMjO0KA
z^M40WS$jZ>mo~j*e03^lpPgKTQMdK@rnb;bCxI7E*&#ISGMM??t8xD00m=c6?f7zK
z7)R9+psZop<8-~|sKU@Ub^smp0ElKoQ$>X_PWf%yw&}VZ70pD}T-VcDvKeD3tO&hS
z^Bk8M%PsPsW#ftPDY;D4NQJG7W{*ht_yT_-UV7a*4q}>-tZD?dvI$nQbL+-j?&NF$
z8bZKjGyoD(CbVb9%KK=bM3|)^_l$m<A^GFYJeqe|!f)Y@BTKOB0%TXV$yXbBq;&d&
z-glQ3boQ^>sq@JaCkhVPhsAOm^qfYsYP97?d9wezKYNw!4fnco9Z*bk?uXGqCY4&K
zu90*wGJyh_Bcm}uM_fBd=aG5VrnaHfTGTi0NCaQ8daVwi8CC>Dl1Hi|Ny0I`ole@4
zo?*P6vqnbWy1KdFwxZoHdvrrmx9#xl>VW54`DM^z5LC6IMuSmS&A&U>YM+nZG(Fn<
z=aWF`C7l~Ec`keYm=qFg5^66KVJRH_XWPxD>V1;OIrD?{t2yl<<Hm<v=iLgYC3_o1
zF$rK|+`3eQ<<g{_HmFFWV5oXd_<U)$hf3o~RTv21&Z2TMz~=El;i;6;?vAo8qNlBL
zJ2T4c%Rfjgp6JKi-?JqnD&T%fhFVWqK|#T&>j6N&A8<z6C0|XXN8EDeXKTcx8kfJ>
zJE~u$Z<PK0=bwRTU)7JhZjN5DmaF>t`AHpLk$?yj0%F@5G=PDFz64&PV$8<$^T?_Z
zTvX*3%4ULFypcbpc+RvjJTBwao>TU*Te*+kmo=3DcCRbZVYtw3JL>vzM$eCBNwSA@
zR6OXzQQzp#a$N6!JY0R9mz?ZXeDNq?AK<6~==HrB7Z9{r8ski$-Ik$$PBLZBHGMd~
z9OV=YaTEqARFpN4WryLfPrASMvk%smBWf)w-PFIn(80lrR9e{_m`wvzMbhYiQZ>b`
zG_m3({Npp#u%VD?Cu)Gxu+oH5QQ%@?EoBkf^T@0ldAfu2pM*K@kQy7v?}jBt19&dE
z(6!?Z8}&ZiT{G}`hSURe6t)nCQdA&!(`tMNv+pxLA7!Ix+(^g~N!B&Tf9h`6jqkZ9
zJVFiE{yN`&1(kp6E&Mtc{?Cfhnr{3+5ms|C_wP~oPZ}owd)}17zOdOFpKBdjRbZT9
z!u;O;wW&2$cuS#erc1T`^k$yw0gL$668#p<27h2RsPOz>ckqti|HHw-L8@@9z5kX_
zkdakUia_Ms<V5jrldS7z+mub0|6}O*Z^Os}+o>D*CUx*Zh9=9+?J@Q$rE*_P&lPM$
zyPyd7lr+C#2@m|aOTwzSHkl{<`Ob+97OK*yeq~X;j>vB#>l=RldEDuJ+=iZ+atf1c
z6k(*1j4ZA!@itF)dy?LbOpmbf&pdau4O_JAqt8TK{x8BCCp^hyp5o-!L$hp@kNe9r
z4GlTwahr<%NzZPL`PUC^Id>ppyPn*56#K8w9*^J0yLl&F*8NIB|1aCc|Htgy|9Rc;
ze_CASW@+w@ff92a;T$}+%})vYBwzyEg$RPo(Fc#Pyg=s?m*R<F=l+2v-~3s;j|eaC
ziy#U$hO!x$1B|Fg=`W33i>0!LK6!WVef=9(f%preK0B?Zu5JNXz6r2SHo;`s0!jRo
zmTWlo=m9!^5v6+Lq&tP9NJ5dyilISPjwXTy0AatMX!i8wMt6af?(FUD9Y^?){QN7C
zoN0sZ5%sGXnW*TaitA8h=Od5sW+dPe>|Tk|B{{dt-*mPHaykHVu?GWL=O>}Ka-e~3
z3~DjCmW*e!1wJ@_Q*lvDHY&UTf-5VH;=f#FvOTqIgECsjFSPmCoEU*8+~~l$*LSRG
zkD^Wzle!GAUcEZMbSiHqb$t~0-1Q{;8U&rhkWROmbG%ZXU7D?n!c?o(@ZSf!mAz&1
z&l=ukkLP>;!?;56E?9nQGExjC8`7fl@ws0wnow++Qge;Rb|Yv2+4e?|s}W|-yLrpw
zsD8Ea%q#vy-}Z=WoaSQ_F)zCvk<a~TxgEcq6La9_pT*i;VY4JAFI3d@e=egqyB=6j
zK6?F+jbqC<kl&4GLN4%oPimwx*|lS%{n>MDtkI>PJJBr!?xtLJYdm{tekQN+W+#-s
zj7+@9@-L#@jaw2u0-ruTmGH%cU4`_2rDQ3RVyv^21&T_C_U+q;v^b1$%ftHtREfE)
z76D+jO5EIw9SnieKY!aGbdy-P1FvUD-eq`6IXMpX>w7`>`d5nW7PYTQ9#VqU{-_~Z
zYSWz92O_qB%NKF(K*{zq1y2Zj0bCAys8CBWMbHUq`~2<D5pn}ntT_HzD|INxF><W7
zHkoDaOvwE!$IJ~t+iY{nJ+T-faF%Z^&I0^P6#uSnYqaprq;VU8L5s>G2tOs}MQ%Cf
zXO(}MHvd4(hMaN&1N&-SvUV648X4uFcgVi)l&6G(1sU1H(kP5zF76rTGK|7&q+SEN
zJ}j=L)y$z9{i6*`>PRl)F@5eL+S(Zj9JyrM%rmod*#~5f-f#1K%8;3wi0ky9ZL?%-
zG*p4l@ZD06+^=b`J$jqW&gp$K?dtd_bmtU`vY{r!EY6W~Tl+CP?eamH;T0ZlhMeYR
zFYXMVWfA+{Ju)pSEiYNSd}zuOofM_y%vMu?dTq+iK-w>ORZ>~WWD~k9p)_u}vfG;P
zz-vNTUc7k0$fSC)xQ^OfxNvll-tkI8<}jXpp7+E}G0k63n&Ag1l&IpEonH1z@OdYA
zj7_lV$wQGqol3pSb3_Br`O}8vDmi{r#K!Hwc1v`v9Pd;Ambe^Lo2=(qwe|FVkQd^)
z6(<M;4yYF0biIvZGok7TK?idVg#jGV9s0Mn#C{;&4M|uv8gt9WzxT~x1?2FdP;n8x
z0hNS0XM(trsCc$?;viKi`ia5(i(>P?amM%%fg|ZflM~on7Qma<Gr=W`TXF8)pCVxa
zJE?}afRDH_q()j~yD!eOf0DjPu?&V8?iic3jY+LlU8u)Ff*U+0(OZl;k6UPccf=e4
z;pef2Wr-q_4U6I(w3S^p2d9EDwE=r6pE}TaVok+~kAjncO<BO>h?jXsyfu(G6hx^5
z%b`0a!eI+j$mr8cs^jQKIQA#iHsIA9i)tRSL{FAJ5uDlTzO5@TC;Sc=2i(dE4&WB3
zg7n|T$lMh0h&^8EKWnw6`f0c;gO_QA2K)-k;^X7r5cF()h+vqDb8AaAt*i0nn#35z
z^rmNwOduj&7-G~t{+Sptt`DaRCYx?N#nzoO=u2ojDFWRXR2qQ?ccSiQa7R+@hzW%Q
z>NTPV7-A{LRSewWB>t^vG`oP@xipUU+kn&2jb@?<6U0XOI##eLPLMX8csz`<_=oLX
zwJ=#GGL3Y<%wBJDt8n<8oIL7Si5XbXUMQvYA@>Tg+*ExUSJkHTBO%`*JiSCg+h6`{
z2WS>GA?HM@bqf8M{_W@9T$<K4BC_qiMPeV^O5*x=AQ$CUKH&h#wsD6kz|;tQZXI<M
z7Rc_pr~6Tg-#r(^&&rHWi1^H0LRxr$${&G;OoN)|N8`o5(GKvBqp#5!{?SDYgXwcu
zs9+leJ~e+aVdZSd^*_xe`I?NqWQ+i*h+&YZ8{_#wmtgvi(6VQtz2?IJm=StTqy$Qn
zmwj8Q`$kXg49JRTa<ViJ#+9GGwWT7%3@HLWt-22U0DG*NBFv#v^DNvFTVu<?mjNhZ
zsUO+i49LOG2^#Zo`Vr_#Nbh_5>}(FsemOk(2&b{pHk}>l6>}>WNzn2qkctTg_7i$a
zly|q(Ztg>qqpt=GKxKMa2&b%7Z&zAZMW&aWhbSq)DGNjzb&gPCF6a@Zl2_G@V-)Gh
z%~*L}4(eB5^tMYA7jm%z!+|uhG{;kKu8_R>6B?oa9x48n@ew?C7e_ue**X{kjJXl*
zjoKnar&wwAX$|g1?b?vY_U%n~_svxevY;L?9NTSTq_y;X+Rk;2KyCeTn79e>pt_5;
zjxJt!{vpZl_r76SQA^YA$*qPmWtUMR9un|#7Q{z-1!x@#f?T=}>{eTR3QZ7AcU|R6
zqZC1)(15V+F^D_3-B?=t(el<C9^+F?kkrs@SfYHyemZ^Y8{!KwsN}V^Yo}=Pr^V*=
zm6ddLZ1QP~<kqQOkSK5PzlJ?Ze9A2hmY7S_OXbw>?sz2jpQo()K*9O^iH6M)n<a<~
zAcnrFhutt`bkOi#3(@S84k=xF3}J~p54$lpmpDb#yrTC^*G4Vkq=Z`y93$5QUPb3E
ze^>4wI3l0Iqg*C-R79&oxoO}?VGPf$zXDpMo#+!{GuGx9a5eK-x=Z`ZbJmughe+rQ
zQ7QaWQ|s>RY@{~r#QS)1d9GTJ#Uu1rDI46We%jMAHbeI~JwSV8sGq)wYQxbYnwUi~
zImbBCPK0?;$RggKm#fn^omJV?J=02IS-%+}iXy<!E!N(eR^{s{`@NR-iC)(@6&Bs|
zVjW7bkqm^wyC{IKH#|7Jugv}5J!!Qj&~S;%YaQQ#B;tFt??|Zr7uA@Ir{GukxgE>G
zh)p-fct!-8ULs$Nm6EbuGPoP&h~)y-V+h#1Xx-^~wtfp`-97~Z3o&)Zd)(JD@Ya_X
z7RY%!rFBTV9(X_x^44FzEv)gs_x3tkKF)vDGVzhvv}ZYI*?Il(iTQYtlHs2<=TH|A
zJ+f>dSPzLXLPTJ?lSS=iNb0I!Y`;=c5~=xccG|EE)+4b}6{71EOUrrO>K_`0XM$fq
zTc7wC<*bmf!h(Xk)H6q`F%$3Do5%yiNsfLqeffC{-t1EMQGw*nf5u@>tc7FZEq+E(
znHz}SLM$S>QxXS+C$<JZ)VipNM1_Dc-@)R5D2NuRVM*i@BKUw?%un<d9&n$B+pW{G
zJyU!9{rj8{g3ZyfCH@Z7J!W&o>hI#U@S;_f>t*oR3ly?O91huF->6(}Ppr{aPEQNK
z+6tH49%AQ2gNWHg`6)++FQoh7ZV!zAk)~b1*0uO}V2K`%EPCzVv$aQ~HYocl+N~f0
zG+L*^VxOI-n1ejkw|mBBr7)f}A~k~#)b=Jz`IyLH5_E9gWOzJh&YS_ngfe2OKuv8*
zgjxb|i68JK+@siie8smeU3^NisAT-_S)7qpN#C<Y6CW|6y}<D4IA`gb&sE^U7itCH
zyddclCr&iXkovL5^Nt11E+tT`_=pc<`CG^{#g;B=Z2QCH;5#Tdg56!9uRJZpSmp#g
z(hv>3rZ6KX?CywdkbTe>!a1{4-j!IdQA7oze}dUA1WQTnC?G@V)2KC^g#^&kc9;lF
z^u5iIRq*$IdL(AS2inYT`X|EmA8)jF4+~7|4=K$zlT|C>NlMg~<w*NbT5k{9#rSta
zmK|df{L)a#KMmDgggKhIN;En{5iCK4vyf^~bMf0#>7AwrBt}tx1<@r?(BxJqv)tU;
zf#j9tlt#_cIegy|!-rRd=UF@y-P{^+z1yo_UCUMPK~ZRPZ)$V5m$Y6<ZP889fR-#f
ztK*H^5DI5@FXIx=KUyjsjJ*gU=V5lqcj*`Iib(R|*1^aG7bi8xxMK8(1<D8sCFPi8
z40B<!b44rpaja>zcA;6(RJUr(hD}9Q$Hxk#_ehX^bwAo*UD(O&LbXs4@rOp~;7ydU
zrei$xuSp4od8%4YdLPSqZhfyh@1KYAPZz{ZCL5=OLP{)4#eFmno)NV8hzK#;viI2W
z)G~3y10$LUn#{#vQtBZgJClN=byV()<=(8Bo&A@u>iB)~cl4(I-tFbLwBxMiNB7a2
z-zAI6d9o$@xD3T7nKDyAtMl4vZ9*eu!C`z>+HhVCC59E?ZAK;#>15ogBl8nLal6oP
zmKP2cwl0=*yO}o_3LBUN;`0Or2`|>Z);_|?BbdPnU^%=E<p&&%(~2b_sj5~uRmLBY
z7S)WXe!&EX3^)SRBw}QO#~z}l9208fB)h9?KW$t4v7uU7K<akSUIlN;>Q^(^5|M^(
z3}w7bc1mAG$RSSfi@ZCh@TRgk5&Yd=i&AQN-#;$;FK*JX)1#OG35M8@&zEOg{#_ac
zPM>xraqFQ?Y$!e<n~QDohQb~w9SLCZ5WB`G^8I4!x`fGS>QS}Iu196mVdjmE$;;HT
z?|M&nU19QqQer>@rZ+N(X~W0_XJ}{gsRNaoZ!5z`RjdDX-{L0>5T#+rYJs8}o#geD
zjlfd2)<@5(BCBURNRq>qX(Q@H?d^LKbXdvi_YROnNlrqcMi?0ovG36sG@yj4WN^gn
z!U(1t3*)3Z%r<)YW;*rmh)H*Qm6Rk=QSp^j)6I?eT~qUXU+=Sx77rKoDqkJQ`EJYq
z{gJ+&R>v(#-%W*fY6c3=(@GqU{ahCOAPhVuULqt6vTR~yA+4%Ls%(L@y%AG-KOlI=
zz0;u|0q+4iGfR5z<oLuuJ+NUM?!l2q)KJy0U1(=CT%5sk_<O(hO{ML)(lcomBLtlI
z^Y}t}%1#?AjOI6XYeu>5hiB4gEud9(b8z$JygrrtP5O$h_EafQt6e_mm3F2ul^>3S
zEp1MT35lxZqmC#+4In)lK&-Dk;jfq*e4A9dl~TT<#%d7Ydk~+RI51=x>K7RqsczVI
zdr@zhm0mqjyP$vFv_$j#@gW_mf>3d|6GfTI2eNzWKb#v9938O)u{HFF(*fW7(7=pm
zxo4Gnds7iZ)}{u8-DLH}CFY$Kuhc2e;Bod3dn|l7u^zlgY4*35Z|AltpIBH8Yp2wl
zkTq0-;FJk3<&<p6$B&N23AUa|eO4kifo_W5rl|w^!~j7u#mFQ^ifXG+Ol)i;vC(l_
z6%`lXhvl4kkTEiAH~ul%>cwNz&U8t+hQzqHL^R_fjz9L!D=sfAjC$Aq<<;4u?@;u_
zISED_Q;JQaF}&zSDc^yiI&hVj*FwHMbZ?79u02lqCMg9xw{&Qdlm=>gdY<0kH;>bh
z!Gf=NTN3dptEa5b;7bQ=MW`Sn-A@AG6?3BC5#$GUT`nUNjL^H_*F_!TXfM;ekh1Zg
zNBW9`n_KPm^=$dS;_p~;;{Vx_%UqPa{ya{p4XWqYc?e<I?=(lHYe3ntSkognlKtS6
zq&P)d_9iOGy5R-T7?mwR_zp|6oo^@3VDp@<8M-LJ=&oYk=@45BXHgsJazd(Yz3`MN
zJ$P*M^~N{!zXv>>20Zml$_idK>%G|WM8yNY`tp@MH+$ldt)(3Ff{FNvCXyE*;)`WI
z>&X7kdaEqQ14`cRZ4pqu5RL{9>FdO0mC(>D3(Z<8U|4>Gs!!<fbSVX2feK(8)xaqd
zF1me_diiKYY7@ZIXw){1&^54}LIH<@4d);P^RvE?eHan^4^NPj-ud3%)0VzPp-6pw
z@<WlnJuC`s<v9G=Bz(YDmUElc6PK9(Z;P?Sv2l+gx#)P|2n1h7nd5yvG?ch@5WgQ|
zk4G9JK+<`F{^+v5PVOFU@g3bnR4^)$HiySQOE0m?qujJ(Y_wwlsioIEhvt1UJysCs
z#MRzNY?EE3JcAyokF^$XfK-sM1*pMW`z7(ZvGQzmqrF%1pt`-lTs-pqmG}`+W&gBi
zt>aHM__zT`MKHg64D>=|)nLK3@4%uPfaY>u+*HmD?y&}u*#Nsnti{hwDLb<Dut-`N
zy4IyUTybHMDuyA2wfOw%(E)_0v>anl?q%0ANrF+**cuvs=S!<(fGSQpabMMvtyp&(
zR1?aE*5(;3juTG{P~2xQxH;?5i=ze^FTd%`d%bpY4Lbn~j?DlKE2R2elrViG#x2Oz
z$uB%1mshgu1|t(};iAz1rvs!{0%??&7SfRKA}11r;aYs4f8b-1j-WI?>p;bZw?xy8
zBG&%91+p6LihRa(eK=yboYTwx3d4$rFvE$?4c6}DQ!5$085k|GxFI3P%I8<7TDLd8
zdnmZCtdDnyXrXgq3$R|YV)T_0;g;HV2#U7PT*e|&cDk}!bB4G^=N$f|v0E-s?YQA_
zxmPMn7W&IcG=I9JX1Mc}$@62HYR5KP+&^|MG%Sf{C(Bj%_MM?iJgzE>w&d+N@c!oK
zjq#s_HpXAPzIwIj!M*0SQo9mN?=p5TW{1?~i;3~pOZKa_TP!efywKjgRL{lYXcAXB
z99H;`ABf%->yTK)f>o57DYvz?bytGb9#QqE{i`avMULuJ^1kORJ250DUA9e7sPBSc
z3}@NCZ*5Kw{Y73m$S1t`m{BZgUq1Bsdb1+0%h>7S)vOq9xPo%6PN+1S^YPAJp+3Vz
zEANyXOMNCjg1iya3@=YFj~9&*yn6Za<$JK@=<qa|H*em#<Lma_3f9%r!^Gjed->JB
z92D|*kk?@?_cu2RRg{H5bZdYED<&~--}dW%4!NbFCFCx~b+TK%_UKvP=xAZg%bNFj
zY>9^5y}eHZ-D^DfKVIvzKdK`=<Yy(J<I?{$MYCw>>E<6YEw(Qt`^@gBo^WV$%Mx+f
z`l9bkc1{2O{SiXbZM4@yZMysD(K+~Lrsx0G-t;lg&8DM9;<7d?Cd6=PV4%F$Sn<WD
zIMY=Nf13u!qnnTqm%kFYwE85J{yWZnood_P?t;C!z4<hznXbX0Qm&W4!^JDnYq^Q>
z@l$?`eUynk$r|!|S1c;s@JS`)@uk(*yFZnG7d>~PG7cEuid{Bx9sBIE<CBt-emvYF
zWr+KP`PAvp?>%lcJt&fFTk)#mNz*OZr%vL6IDb*oZ!yzkdY`6f6+Nhs+@zVW!f`kw
zTej`$(xGI}tllFI-x{1A#uS%H25A&6)nTnl{pKLMzb9D7xqp2WJR7)PV^!+bJyf|9
z7Z+#at!{6>%cLfG)1ALg@VWnhT*n2&;V0iUNkX1?52NUUgZa+Iw0!?=9;%&&S@z$Y
zk8Ie7sqdQh<?wZ8T)K4WCAumHHGhZM61R}o@30F$1p7FfA+xh*H^Jgl?!<}9Kx`_E
zzN}M!`TP?X7k4^w0W2zcr@e?h&X<w?$kxNt6Mj}JN$DP@Ua82p2vbe|#sgg^CACUG
zKw#$V+0jZ1ZbvCeosm-h_9bJhMTLs0>J5nHzhIZgEZ!~8=l<cthu4r=&f;n=3YZ6-
zwt@R#Sw@wlJ)&CyX44PDL<GsswH;*v(*Aofx(J;mF0PoxCk<I1yJXwC9;QF)V>Z~P
zS4qC=H{`aE>S!CWoqjicY?}q1KAz%(igeGEjvLoM?C?4{&&@vN>wW3<aOruMCc^Dv
zQyJQR;E;yK3i7<)?g}fmBM<(X^tyXd01>cM>e7V+T;Owe-NogAo}T}k;aYeFV2W}1
zx7nA)+IHIY@uOf2+^&s1$gi1L+_+8?UTN1*aZj@0nJFZCs2q3Gh08CyFjD9b5AVYT
zNv^)WtKcJbHd-+z*VuP`&D&Ca*77YM`;WfCv-I#NUB1x5+ByTyWQ_9EtM!$*|8EsB
z*=sFD+{KJT0|Q?p$#Q9|g?l=`Mtp&O(Grzs^KRX|`Nxta%7)_8H6fdbJ8M=T-xNga
zt5R~4M*f4!gLY{zBHuNoNNDGCHO76ci8z~c)>k3?>=EPV3&RbrU;kihWIb<H$>}pS
z`>M-a-hY*Syld9yfi0){z8`2l@FMo(+qY9-_OaL2RvZ|uSzY>^jSGK+h1lXfd-g2d
zdV1>c$Viw{$5o*i2T;&NQ%CyL{a(EIiU}(=eczT%o;>+4%wC{5$Myp6m(03!^8Djt
z`<l+m$^8NI{o9yufnT3tK;2vsvl(8(TVZ;Vv~15Q)=-YayzT2xRGw*dJQ^0++tb%~
z@bu}mV6k0>DCgOeCtT=C9l&LE;xJ#kZQH^%Yu1RSv}t-O48B?6V*LEtwHc)m+ODvw
zM1XpVPnY(epPHK5TprB}-<m&`E<Lkko%^Jsp_kZ_pOP;K&s`;X8!k?t@%}n{dftJ)
z?*ai_dC3whi@Xz?u!st=l=9Db75;jdDcboe&s->81&x*W4W|_&Jha(fy?&kl);b%E
znEv^Tanqu6{-3{oF&9or#-sT8YyNvK!CxQw^WOfguVsFHWIyBh@Bg2C*+-dr7|vkA
z1%Ah44D<W${Jgxy-Gco5uWUvIx#77{Z!QKWx;pVn?jj|ZgO{hwn7dkBoLf>-@~h*5
z4Mzgqj|C~5hSS{AT{eG__x}rwLJBxgsV89AAAMi7_0dyLS-d9tCNNo4SAM?%@pf8*
z#+`x!xtW(va$5hu4d0t45^Xu{`gN@Xii(Pz-@g|o9To6=n~^aC`mz1HcXQDTnm_*%
zEVfF#BUaCp3sUe153d>aUc38=d=P#kD(SouNS}Gh83q(z;gDh(+tN5xpSj@2&`=!!
z0L#L&+a4Y)tx627&X?D}VbQ2)H8N;9b=tH^TmqVjR}i4e;}3ek-ToqI&XaM-0X|6y
z3(;8s2;m@jaOVbl&cd93H6LGAsUj|B?b_L2W@@cnyZqzyXIl2;90DWa479H!?FY<J
zxKHNc;kkb2&OsQmhJ|bqL-*45a*`l9XViQa_!zQ(`Bdc~1;LVy`LO%g6Q-ntEP1+<
zhTS55?bH=qe_1phNgDcclh(_Tj6bnF=AVPb#|rWDGhyJE4#dvjgKm`g+2P?~t>7oO
zx6U!<AR@nO0<-fViuEt`^$NVzfa51|!L2d_t<Hi-okKfzd}``=5+N_8KHs%6qy>_C
zl?3zkT&pp5G(9FVth3Y1#?J2f%a?!PcwZ`J?iUs^zVa5I^sUvnab0T-IDwZ|&-}XY
z`Nt=TiQK3TcUUz34y1kdp+kqZI_%v$8Sh5#Ew@ZI(7#DsPoF+r`v3HH=I>CpZ5+R4
zmwhdIiboM8k}M?+X|$1ck;)PxG9pWMd2CtQ?4*>fh$PCsq(w+sN|urAOC}AH^nUM-
z_xa)d2i`e4I<(Bpy<O+|J<sd9K3`b>^w9H6bE!xi1RZ@-l7Tg@Ub0s|avJ5n9zF>r
z&(!Q}v76hu*VWZ5U`H+?>gwyiaSGr9--%<ZEEg8~81FPCPFSlhPfkvz4-5oDy`TQ^
zjr4@7B4IllQFC7~Ha33SdgSKa(NTNCKRP<PTJ4!`6mp4KxsiUWn!UY!otFF1n*^)=
z&JQ8jRknoqHa$&ST=10Yz~IF23}C^n<hJW6(*nmM_~px8jLj2k*PElg6mVh#Y)oDN
zP|Y`(c`!R4P#0jF(tufazIc%e#}mO7E3ROsj~9fL8pJvq7oY3buGM+%OW7g@ons`a
zE9eYh5&0hEH@mhRG0?CIY@1h>k4U|5hjVG@C*NPpV+6&;<<VScgn)#E1g#f$ti4lQ
zNJz$s97%ItK5o2xe8D&ja2mfmX=DmWb~Y0@XMfT%WtqxpqN}^RZ)7A4^LhPX|49L{
zA32$nlA;uQ$i#$;069e;_Xjb#Z*(*q<Vq{X=jXV7Dv5DxnzS5JH<<!GsOj>B3oH~B
zuyybp)V8&WEiNv`Z*fxue){CsECZhx6WDbyht>6$F<{crNkAH}MQ9v*6J(0)O-}X=
zcRXB$Luo-K^2V}=tel*jVjokU;3eQu)gfIopv<fB$=#*yFVM4ho*6%0{!`myig0<l
z0^A?LQ)3AFDYJV(CVT!`?P3}1vSMOl{8w)Cs=~WiSXlU+D)Z0>joAK;S4#cC0k`~%
zw?2+)GiGMQCEmR^GTcEvvBL6#LI<v2T9_*!D1<bgCUuWWm>|%$b8>R(W*=_v^c`zg
zqWuJR^!wm}!-rST&CiFA@NU!Fv14rf5<G)wKXG`>!AgLfHyYwd(pv0B?|RORC#b*<
zAm|J}WhrJi@YDzrT(H>DP0_wm#6)IeK6!Xspu0aGj3Wj!F;TL7qJw1r5tMkax_16d
zt9as&-DYorY(<@RcX1I0EzTjIPkF{2khJQuuCA`jcp8QqUv$mz1TveKJ1*zbk|*i0
zFacJdE1CFEP<#3$#HU2_J?vrQf{gNd4-+VEFnl>0TDQ0k$Iu4{Z5}Togatx67u}k)
zjVLgHu6zEv)x8XzG}&`ta5pW&)FiKXVjgp5I|%8yA3v5G+D7OU4tPFt9XZJ2FCEvw
zUS!%m#kz;Qlo!Luw6(epVc5dLf*=t40U1)a_tO<r0qs##Lc*-fNivcHx8w!bd#nUH
zq^z)Wy6e6X(<${9Slz)f{ko}%>guWn62SAZvkvX!tmbI+i%G<)>fbwPfqjVZ;XPme
z!?F9B7zhOw)f0GJ`uh5^5QUh}?sYosAKGVQBUe*fE2ZW)f|$0^cflj*6SQeKxo@$=
z@3#(SSncu`!6gd~4_7s9N25tlOpHBP&qA#mJy8|x6yK7rXJ|2^Dk37X5gS{!JWMj}
zKw2Rv>Ea>|uXPHKB*4&S$&@!wl3B6S=Bz04)U7L*(bxQaEglI!toeLbNlTUw81}S*
z*J1<(I%N?^_&Yf{JUDs$g6wz>5?8*@&x=@ff4}<2(PPJC0WB`;o<$~#hi6I8V{nr+
zJ*K4nhn6nFpYslo?I%ubkeBB~&-n$$jxr>VT8@t?ISeFn-*c#9%KMPR#;x5iAZ_Y=
zFx6}9@Ck8YUrvxr`zWh9dJ)xtPt{d|?|2yy;;c6Ntiy^6h=}*yR>B{kqQ|Uss4*!7
z|Hl#xMvQiUYI*>)vXK!#>0U)pU_^*nYl(>BVuhyVxmj6j$9pSRq0D)XyZPMf=#e8b
zn>LBSD~e@GJIxz_9It5*7G%oG%dcL$7AU_zHPo>Owmc;<r%-MnrrkDPn{VHysO>#x
zJboYU7{CAu5zZJ-CrU3Gp4SQv4km*MQ3c_MtGx5T0U>nOOa{@|tWz)m)XAQG#>d-R
znrjJ2gU>tg+gRB#9K20|D)aawYi^7W^70l$v+JrTZ~<Wzh60ALYrO<6^qbf-^FMxs
zHERiw(y3){+U^%iMTD+Ob7kyrk>(0?2Dp^g3r=Bc=h0rJVGNqjGvs6ZtY<#M&I55`
z3Y~zk;t{DtRf+=^dt0u=$9ti{*UAN@Bl<qUrL_F0on2P7_G27!d<ViHUq)e_DBs{r
zfOKo`#R)Zb;xc5yXd`kX7a(vV@9{9?8A*08#x@M-f&0``wo=<eIwJ`!)?CL}yYq)`
zZK}r&D_F5(=*A=sWtj*7Ps|Kl7xUatW4|$9KWqrL@#gejtGNPIKy_sCr;m&%09q}T
z>jyd+K^aDJOPPR)i&(=mFJ?})_xj@*lZ++OaKe#ND!z>fefVoZ+p&<0(M@JIvhNwM
zt$U0$M4J+0$#gfq$^b%g_m!liq`3t&ha)>@(M%6XPnRX6fi)X{)>Y}ZDj*=><*Qc#
z4<9P$ovL(ly_>9en*y~@(6R4KA3WFZ85dk#>#$&cf8m&I^!jd2<%4TQckSKFN??UR
z9ett`r6V>oh#PP&V(vvH@#~{A4fOv0bayil5H~v0DFnsH$SBuw@JUBc({e;rMCv8P
z!9$0}3@bq-^YHW>>CV_1?uGe856sIlGp1)}4S)e<No(gaQ@Xh)7)BN>1ga)(v>no!
zx3>G~5Ol-`IpqwyTvb@Yy@em=_0jKlFgO^VKw?UkojUYAA-BQR%}uQLXY!o@T!~%t
ze@6MT?x!12+esBYL<a&?Z+;>)EKC<CnGaN+wT;c42M-<`@cc{5g$*jV7F%>sD}>_Y
z?tlwQomEg&6u$KvTuPNhb!lk=kvTHwx~Rz`f$uHb>anX%C9%D`+nkp;Rp!w$tepv_
zCUu&JpPyq&d-!2P*G%W<WY4)N85mb>v~OJtHx>50ygW$p&pWmr%fUr=b1P~o19QsW
zImwCg6}m}1-bn8HZ9r8CdrqaI$=*uknQkme>6@J7#~wmP-}pGMt*vdrVy9;rOWNbd
zt#-fo3XUeAAm5yg>G(`rLUQ)_M^PUefiw0&)$OSQ$>cNfAexjwVJ#_UEjO+@0UTE1
zGQb10+7<NT`$_4xYZn*Be&57IB(zXJgf4S%6P85MdfHK6O8r%x$(-uj!SIB_yOMG9
zm9<>6uEW>$ZJhJNE3GEFO6u)c3;h{FeVwOcWIC&IOmp)J8<S_$nOcP)9+Gt<mJHV6
zLk}1m6ZZ~sqm8NK%G#%R^R=BXEY4I)47Uaf6Zrnf!G4?`<+r8PGhM7QK$K^>cThnG
z>k1E`HZNXevS*Pe3)!oYtrOe&=Pb!mtED06&-uY+O6XQ4`mk~XLV|++VCJPm%%TOQ
z={=_ccZJ)B6*t0P2%5kWu5Hxmcx21D1?-j7D9I_^perbOWPifG_N?zScPog9HS<-%
zu0aO%@t-6zo)jxICt%ozAL2IIvt!K4sGP~(mfL80#y)d8pA9fXhNo3V;n{GV!VuL}
z+kJV7DJHYXB=t|Kks|B5-Me7XrdgSTcG@eJlS&ZPuA{BoVEomQ{en4$)q@jHg$Xhk
zh>D6X>(YQ>-h;hIkBY<j;;_R!mk*Y1$m#%&{G{b^pfnww1wO|;*WdExwMtYetzUo6
zICb!QfX*}71t{M!!-rdKovbn!RCZc@`gC~c3N>A5sNIc5BQuIK)Y0K1M^KX>no$JV
zP*I^Ezy3Nu77XC<=KaZ<GVO&j(f?fe_9RZVF}pwFP)ONms*aDM?>}uCs;T6&G`@<g
zXoY3C^m4U!AycgHiE>cj=jRWNh!FX`h()efGB9Qhs8o&>D^|p$q(q`V>qje}<NeqM
z*SqFvuVUch;>B8TXy~p_M|YDqW8J!So3zqeKj?T|om84+Ds9O)tVjc#n9Rk-K?c*N
z2Yn_Sb1r1SNjKTW8m*^zwX?#gj>uM#rlw{q&!m|ZP5Z)dlTXTx8`cHhk-tJMa#fXf
z7e`?eP_c#Kc=Y6oa*XRI7KY>rycGTu7KmWI0MLo(*c|)W0mhP%O+z3!Xac0#@~Ov-
z)tc|Pw>)U)7>U7%ok&?N@CRVD_ewl1Ew#cfQo<ifvLACtUhmJUNn-t9ZqK8n#L46r
zKWD#oBvA#~Fl{NpF`Z9cHH<flNIWKi{E*vDDvr=?9`}D?(xE-eMe=pmjCz|^`qsF-
zg5b`{p7IDdC?=eU+6*ir9c+;$1O&z3+qQLoAys7EP`&u*BkP3r&wYI|O?<wL&pV|$
z>MMq${_(>C*mEW#WbOKhjRV4NJcgRCd*;j<7Z;Z)P#&rq8kU+pIVV)CZ2n9XJ_%=C
zD}c49>g%&1tcCz!c_TJ9JfIk-+Xt-aGB7IRD{jk{&VL^Xf*}DsslE&h+(t?&I-1{6
z<iW6Hc#;tma+uco&@{ImWuef@l}>RivVMMkw5Yd$bFRPw7V)8#dD+?3fHY5Gbs#_f
zMm;{HXr4k^6xI!4=$e#XRDvN8p)EiGo`v(4@4P~Lp7~P3*~O&>jV~#4qa7x9$_;5v
z!$$0ocdPGaW=2du;R*DI4>G)Jg>VlZx?5~EGbykPp3`2xo)?0u9>xNU@sFDrZbhb%
z0755kyChEH^rf<9zI_wErF^QQYj~I2-kWC)VXDANpm(Ky_UX(9Sy|Sq>DdZ}2sbjO
zT=lW=j|+WS@4LV-z}YiouD_xW4|CzsX5-|v!otELaTT-t(=0GwYE+yC4hH&E58bJ{
zPtE2hPP~QeMQT~%QIYc#B2g+C*L53h<lUN*r%(I9zvklM(L>iD#T8<h?5Oz<rOU~~
zP6hIsg7A-iA{Q^OJ~DDmO^wRwDx$FSENKx{iyelXbWcGYIXMn8kG!(Rb<#rv1ptb0
zthpD&5>(a1xXtsFb!d<w&VTMb<@;le_O@;0;nV5F_U+rzT-@7L0od&0a~~hI45<C1
zHQ^Y3fx00MbFs^b)cplQ;^G_{8XAmv&r6rA5O^TgtH(bU8fx>j_k(CXW{`%PosP}$
z&NN!UJ~@%-o0*yNm|Kqq`BD-Ei`zGvySo8owEvLq0cB-n*pM-%ch5GlkXO8O7Cpp(
zIayBK1tEJZq7*m(5Je8kbAKZER`h!6LS*1&Q$^lGkUA2}uFV4t9upsLGNyjc2Mp4P
z@$qr5_vJ5pdsoFNpQ56xU~FO%iYgLQy_`kw@NEmA`g&j)67Qf0GC7nUHLh0_y^M86
z0crcKtyhDj$=fq{enRIh>GM%y7cUbP74_li1$muc-w$1XZO66uadCE20xY9+d7VZf
zHUcpMNS>8koP{C0@M_Rxux}J|3<tfm)zk3jkGm=FYTunPB@revaSbe#6QbXapf-@D
z(RNNmOOjb&wIi7YJ}yUJ3}zmuv4R)ja>t%MJUH&l@bX@ca@=NMVt6<diY@)Y173`j
zdTcp_Fyw}MB6Y(p?{D1T;rZjj_kq=>l6?hzJy{J6iPY58wF(NlD4K8~Ox8t0<={Im
z<Hob2f@J~Fnj3uweJa%w>XlS|_wV07?pP!)FE5W}05V!y%OP5v-Q7cylB9qE3r5Y-
zk2!2AT0*>&y`ny8O12=pzHDfy1tKJpPCu==WlK$CBOf_>3vKvT>Uf8OR8aRtRnk-d
zR}S?Cgo?GTt*n9qH~x?Fg$qF^HW-+gECY#&lk5ke)VH~5;Rt!PlSbPZwL&Wp)Ae`2
znzgLN^i3b8b8FEJkGXj>nDo4Ev;z00#B*8>^q|P9DvBlykjnQt&=4TVs+9iYh6vkg
zd3ja>@imm3x+qcqlXtmQt3Tw(<40@vyp!eOcqdVXIP?|{6H*<aFMR=V2#?5xY2Iyo
zvwGgu2|G2(GVId9wXDYKPQkzaavW2{@uPX^%!bnAY8@hASn~w4-Q({|EjdTly-C?B
zL752dJGm2CP#*=Cw~tSxk*6N{?eA*Hz8;w+mjKYN0vD<;gM&4%UU8!-&CkD39{VyL
z6%G~-aG)89;uikwMY;E_MbOiJ`R0wjiwjvHTK%_q8ayQ>gYRbp<h>ewG*}Z;oSZfg
zbnF9{4Jy^=!$T5=A<0SrxMPbZSUoDqn1qBdTntNa(4XY-lc#Z9kgN-Yc2h{3RQ48a
zZEa^14aY97{+s+)A)#$AEVh$}{I1C1*qbB`0c`KEagHO$W@xBp;D3L>&%1K|=TCRY
zWcu&x+FCO6{QFuRPO7qhUtyMrr~kfo{h!~qC=l=KS74x`{l_A6_f8}IJiXI_{{c9n
B9lZbm

diff --git a/reference/plot.html b/reference/plot.html
index 22d3ac208..91fc1c4f9 100644
--- a/reference/plot.html
+++ b/reference/plot.html
@@ -9,7 +9,7 @@ Especially the scale_*_mic() functions are relevant wrappers to plot MIC values
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</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 00de92168..f93126ff4 100644
--- a/reference/proportion.html
+++ b/reference/proportion.html
@@ -9,7 +9,7 @@ resistance() should be used to calculate resistance, susceptibility() should be
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/random.html b/reference/random.html
index 932848c15..a9ad2bf2a 100644
--- a/reference/random.html
+++ b/reference/random.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/resistance_predict-1.png b/reference/resistance_predict-1.png
index 44d873a1b354c371e55c864dc4e1dc2bd74f35d3..8bd30ad9f5f0a62a87eb83f5d51ec918a2b144f9 100644
GIT binary patch
delta 47477
zcmZ6z2RxQ-|37}ERA`Zvj1tNoQMN)QiDV?Jq!fxoHYbXVtRj(!$S5Qun@G~IN+>Im
zQQ14=_df5t?&tge_j;b^^_04<<2=Ua^Ipdp@pI+G$jYblO2mof)uVDWZvNW>3zDe>
ztV{~>X07%ohgfyEh03P)Jicn(Tr`uKV|ajFPnTW#g`Ra|dgNDSM*3Aun|OYHo4KJh
zq3*ly)=rw<CF2uWKWJq7FRNTSS|(FJla!KTULU70IzIl8A&iwm*+x06x?flM%9Uqj
zXD)QymvdrlS<fapOZ=QGy87e0^UtB7n0~|fx@89w?!UhTqF3>cswW>md-iNadpo<I
zpPzcoqm-21mQ#dpR20kc<HxVhPWu|_>PGZ@uB`0I=|8HWaYcU5?%i+gGqh^T+~<ya
zIjH{qr5lmfk+@x0c>UWu!q+k~gx|e?Z+7X@dSb_p9l2J`w8Y|6%lY1%oSf`SU-q=N
zwx0gknk^GpeCbPmb*bCT$Kd0s9)_cL-uA^SERSUM?csag&%+Qv8T9}AD|MI7<BF|Z
zTpJG^I`r<Y_)6QZviD={Q$Jc7b1iii=6_@bW+}K%uGQ4kWL0pLOgf&{^J92;cr6V<
z^CJ03)Uhm61u5cs<@?&&!*+`!T}+e`w;7R|-u74D_T*c<kD*H1@pn=Z6E!lZY@ge7
zT*>8p{r;(0)g}&(;PU0At#x&E&hwLLJ%yV0Ww#3ntvg>Ici`9Oyyk#oXC-YrjqN<X
zzl*MqD|a3{6H>ENGxoK8hE9qmKaqJ)(vo|h?B9>)7I>p8GK#708ESqUSfk>%Zojj$
z^sQUBHgR%>B&ggFh?^K6_qliPUXR^vzN4Gi*aGn>k#{*#@pQ+GLpkJ_w{PDbSQE;r
zP>HcoDCVzjuApedN{hEF6=i2<v&uO>>9Ly`?#N?`{%7h4@_z%@M$(nU4~zY3%h~C<
zICVl=TDqdCiDAQr4Xt_BEc4U9=qRIOWBadMk)WI&Y)US$>s@WtoX&e}GBM%ky*;T0
z+1y?mZ!|Wi>8!y&x$NL@Jtt>3hTM>Jc=Hp}QnrH!4~D5HU%q^~;@P>kn;03dKX|b1
ziD4dXbGn`mu^@6JN+fvt*Owm?HUCXQqH@K)W||c%Rs{Z#vH$)})?#U44kOT(=T!2P
zf20+kd9Wl=ONhC5a`3~2h6gLoN^GHQ<K|W#D^cZs@#5MVGb^jWj$)^Wr^-EFzkXeD
zbIa~=<B1CIl`<P_|F@2}4)<}C#1r|f81TER8dF2f_VRJESJTtG9vP&a$l|Q5tZYct
zepp||iAl!euApEdf+7V^d@l?M52wc}Q*Ye3@zN{azoSm%R>mi0ohsKi-nw;bzwE1q
zhD~R(4YJMijwh>Iy%JQ6jg7th<C8ECA0M}(BB#E-{w|$I#Jlsok2LQGDtgSH9_cJC
zaQwxFb9L;ozHmWdVS;^sotTtVvx@8A@8A}=iS6;G?@D!^8qXX1SXFLqM(6eGbeHy2
z>tkiKiySPI%?0$Iq~;!2N&nxk2M2>z|Mv;p0_+Ceyl+&nnsG`55i&E<^+S&K@88wV
zlpMN0`mJ`ee|2GtKh7ha<ggA_HRk2^rq&=9(Wh3;0_<{*>+0i`PPlixc(DTet|Ee8
z=UAD$ivl0d-*1`c3Z^Xy2?_BD`JG!X8ZJ`Xcje;eTpCkTQ#CEE<)3pYTJdM91DRTL
z3CqoUY});?vxm0x{x=BCi;eqMovw?OxhrO-oLSwWbvXI>x~+TGp>}-GmiYT6i6v<z
z*Jj>|maFRP-`VqQ)1YrwmMF8R>64~dE@FXx{nkA%QK~YMb^q2N)j6HQimi-{Nx|%@
zuHn(qG@_z}Xk<SIrx7hdjZ-0bjIjLs>D-r2p9@sao#?Oc9sH1D^?v<^4X=W??p>w%
z->2zb78*Ss;JCEl68t@0&PnqD&woEkH}{TG&+V^||8Z6E?^A{I=?=emydh0D5c^-=
zeRk8>*w|AdKi?0h#n{Be%*G}&Xsv4Do4UGBKivNt#nB6S755?|eGddNo4xR%b_t1=
zvFH0<AHPvWMdi}L?dxCnUAcbah6>+p%MyK8*CI;5b)CX1=YqeVNY_35e+Trz(E9}6
z?H3<D>^>BF+{nnNwXN+d$|K<)6tt2ebn@9MVqt8Jh-t~%?7JL0Xdl}3zWN$<%9GyV
zedzMiR0isBYp&((&l6wrtaqMf`)_p37cwe-{P+=sjr!vC>$SyBBL|~IOs?db<G@Q_
z9b#O)p6z-?#Xfd<=S?2Jr<?WJoA!Npbd;Wzb(fl)&+FG}NkmFY)w_2ZUT0%|v}W)4
z`Sa(dty>?Dx8uBheVkR+q%83Fs}g-04ZUZ2Ghbs9Ch9%bk5{m@u<(mha7#4Iv%1if
zM1yVgn#y*&)Y;dY)@_kc4a;NObJ1VUX}F@YQaNl&@*Ms)Ifvg~hYQr36glu41#QC0
z5ajBFo2IpI-YzEgbYHJcX9*4ELSv$DlN}a&HDwhwbsC$m+NP=-8&4E^DVSBRnjG#h
zlJoxCcl>G9`lzysi{*-(MnYb`R88)^c<Is#3O_%;dQEb2@(RkE2>ypwjNJSERk_j9
zR^sUe8(QZk`pwZBWYrE5f459h>>FxRYisM-`T5Gax(%J3ondeL3PXN;%GgRd-IR1V
ztoAJGPVL#dvR4Ht4^T7H4{m3;iF!BQ_m&<tb-1Ir>f=Yrnh9oR=7Emlz4-kNmx=FV
z`}X~vK><e9@e+Yt7qz2D$@aa+wsT!~6|utj#zwA#eQzS|Z@SHm^QP;jQAKO`3FxJh
zUwYwVD!q`f@YvF#TYI7X8Vp87Rdp4myDjH@s$pLGJ|$)*eJ;0A$6ueBYC<?ZIK|2*
zKYG-I<KiD0dMH}r+-Nn+sfyNCgRbnq^A#ApV&&?JFJHF0%?ww2tyoD+a-_UIJ{KmX
zqoYGsh=+$lUp?>g47#`1Hc>rNzyJ${@<_Y#+QuXLPYmeMRDEyUSi`+z2b0`Yd;9Tk
zhnbzyj)_Z2`340Am6?+(`p+-^<Y|xZDCt#Lw`}*hD-^N`bbtGH9be1;D%ZA))6UNB
zu7cYh;!UJrl({FyD&{fo@UprZCq$=%_3x^vs`B1B7_7Q}-8!*LpCwff9!$iX;#u}B
z&QFQkv`Z&FdPFsQ?DgVcN<21h(9N6ccy{jGp`gHF+gb9WDfx(Y{>78~JvaSb0`A0H
z2g7bB3Y^Hi`J*MP3e!NKIkrAKM<<}0>V-qp$9n$4g|&2abgWyp(2QLQ_&aU>>XQ3u
zODNkI0vfVTDZPC4DiIH&rlEnOzoy7x&}VkmIiYO*->0XiUsQTQTf!A7V#0PPgnj?M
zedIP=sidS7A$p3_ZThFTu?Wlj7xJ(Fv;XPoBMp35oRzNF+pFm6GJ4K_U31pL;>_!?
z?U%1!twsgRn-cy%Lt#X1Z)<B?yMBFj?d_dkfBjmIPrmNw$1Nv^y?W-1kCgSNZPL=L
zsQ(2XzxSl;J@%^(V%f2Kw@w(B*MCoxnsoeeg&-02Hru{mGeSU*RzyT(puKSS>UFGM
zA|^!@)z#G4%BVV<$@WhE*38Vzpwv~0a(en_8#?o9n~oyhb}i-q)=IZBRj->v-dXJ6
zP1Y4@y6Lkq;o;#uvcR0ZHK8?5T^=a|#e(5#VlLxnRSz6UIQRCB|4riN^~a9|4+gVE
znsfZOO56gh07R(XHJznyD=0W@2OJzEF^r}UAGY7F9UW>Gd~&Ls^Gr5tSy`F1U5{$W
z9Fw5_%jU-?>_)ry-@SYH^zZ3kPoF=p!AbC)``^s@tCK*>x+RmELiW%PDOxv((ozLg
zZhFc-9)=e<_M7=MDhloUDf=4leAVF&Ut8)rrF`+Ckn7ZtZ&DJEv#YDsxcz^doIX-o
zfW<k>w3L=I$9(on{v|p}f#;%YoH-7T@3l1>d$6~6oyd$$*ZyzPv5!{j?Yw*M-VPa=
zEz!}@VuaXhH&;i;J(P-f?}WOfjGo&Bqb%z^+(fUvoq?VG=H{K6+W=+(O;if6^mPvn
z1(Ivi*=gD}_UA(bc_W=hJtyAprFdbL1v#Ey=~JidLph+!%>?2kzdUu5^TMpSyn=%E
za~qR)F;aAxo@?>(T#m!-M1Z*Ys|P6ecO@+uI?IWyk<>rySsn6*x)T$)a`ssFrRH>|
z5Ox`#L!q481q5hGbenBnGaA3Vux9u9x>Xc>=8@Kys;asdR;^l9(cG*zxE~J}ZBXv1
zV3>QsJ2iC|$D=>UPhd&crt#RrgX?E!XCK&h5oMUNq9)E_qx_5eG24=~YO1QfItB);
zMUKA$zkT~g6<kg%E0Sjn>&BGovGLC#>(c_*qco&wabdityDPlI)OciA7=s$|CuDO6
z@TTYCp{HjOxl+jf@L;gOWxJV&Xh)|3dkobN{QHo);{>)WwHMj$Q1w&}9$ej7<`IPP
zmU#ST#uEVadf&c%J4_}Z)&I@AcdBR4@^H#Kd!f;I)NJ=QF1$kBl4+u2J&ZFJ784_I
z`Og+kymj~&Ro0mm*{pl^{DaRgUc9)C*}8;>o@u4GxAy>=%9AHgj^$bD5g*g_=stb=
zl&X`m;f~PB#PK>U0pk!3xkuCO-@ctSE^*ebko>bCyeyBiRe5#+zj!XrCjb#hdoIkL
zmy=RaRu;4VBqS{>+k;-@s(v^Iy)f?J#PVD}m-nqdyEXEn&?rOr>87Tp?&0ALTwL+)
zHLp;`Jc!@Zqcbxt`z07Ye|c^z6~o2FC3=kE-^WP26-;f)&G7DHnvNanEmdg!n>Whw
ziXNMon3Ah?lh)_w=d-;R)p>Mt-{C)dQGHJ&Z3zH^pRPc&{vGzD<NVAb#;LbQ4yeYU
zrdElTFC>naIE{3gflpMf;m(*JC*F!q$;SWr=ZeSDDvD3PpfWHrG6&WIH2R?ape5^+
z`PWL{r}_D>N?ay##})k5oQoZQ`DpOzSZ6+e{=806p4-e}q|@YAAt3#1J+ZXoFF;DX
zbtIW83-v`pLPCsKatG#0K;2$TORMbYn168lvz#2l4vb)Opm8NSa1}m3EIiyBFw;6$
zgnqEjmyYFQ+`T(@9v!z{(^P&(*r@XT`=c3!K+$62;`Dp|OszIe@^SB(&w18ZkAlRR
zM1bHJNlU8TyLYeSQe;Pk!qe>oG;F$x@-_CeZ8y7;C%Geie0`~n2@?~$$pLK&m#ZAO
z6+38nRE!cc{h;C5vq`4?w`~Gcxi5AUG2zJs-rHZj3g8fR=lGu^5GlVpeI0Xv>OfO6
z-I+6IE`NJX52i_v&PuYbOq1fL)-58{tzbVdKot7kM%~EH7AMDm`YG=*&v^Lo;X)$Q
z*4jD<P%9B<TTJX2KO6mEw6REw)2b%%ojZ5V&dnvDCIL>=JGoc+t+!j4wHxmIL%A5j
z)a9I&B*et_p*+!phI@HYoSmKB_we!a(_oc-%gdEQxRf>!1kqmVwzs7x6F7~Eii)h?
zKymk~O%l0@R1{0L_gT7WxAq-Yi!wz0!}sz3s<lQRTV9$eFL0d_`1$MC)w?18Zj#j5
z52?2V!qvLJe_y?K?_RX~-tX`4NjnX*YsM=EhlPd7_cv#nY~_%1ypC^+k+Sx~^II}p
z^QZL&O!|t3V)b5X&z^&i^)o;viiqQ-u2<P*uB-~>Qu0Gd1nV3f?vRTRJh34&Gjnuu
zQa5*c`=3*7Mw74i3B3H*m*<C2K}lTm`m97!Qd0Ng@0r){-d#^ffbbx6+Qw!>wn0X4
zm8!1)dJb7e>rYR#AM2^$;NT~jzPd?A(3tN^oC_rJ(!c#ba+l%b+`#HH28M=}ot>O|
z>AK$NOF(`n+j#{Z4Sh_z_O<H9WBK~ZN-8>Lp$6qY1L98X32oNL35A5z09Al0lqIOT
z^|>uqx_(A_^?$UhnuV@Jm4_7@(zwWhrlaWUTc;<%!RtZqu4NJ?#Y5Y+{Mk_2V=t*h
z>1p2J8L=Cxqj#Sti-n3x6??s$v^3fFoyWh?w0Cq&Mcn#xWK*3t{S1@hP7Fm8m30{K
z+Q1>ZPau*TO#%=cE%?U$`y8s=;bl7*{(J`$9a)I<QCnX??CB!J|9p^tAaDK!hzNgv
z2_%9f|NRa3|NnQb*P_O+4mR;#Y<os65v|dihrdao3=R&mW&Nq_=tWK06-VYiXPd9_
zTwZkA-{SszI^)5QKcfKRQU!S|+e6rP-ZU+B-7Y6*)SLI{=siDw|Fx}OzR-o;{5!7H
zv*42BdSLbrKRz7|%LBn(N7)ph>ht8#pTexFdut4H@b_0Dx4NL5Gw7k+?5LS>nfn$n
z{6kh&0u*wa1d4;XA3~p@JOJovZzK*U@f8|x@G4IH3scm&_dAW2q5W`ja$dHxd$BM#
zLBDB}*IwJsZM?kHm{plqrsbX-P|_}6xl#!L=zDX&?h|n6SOqucm1{PrqLP^b#M;~2
z7Zem!ynRcDt^LVK_3!YS=wCRFz5>v0YugeKKm-J40jA2<^lAaF(*bV0L>~|b&vFN(
zX!ll&2)%okbsf9(CKgfCcVkl@KkAZ5Q&N%<?YR0|?d`FNdZnrguS@wsK|n}kM-(+J
z@lxYa#xNQm9o>p8JtW8WXW9qDx5+v8U6GM>8h*0tyQ{PFHbPdGjfRFsOj7dQ)evv*
z6%grGcB>Tol`qX7@!zFdtq;Bfa;_veykrEJq@QUVfWpQNEPH5B%_vUMBXDW)ch#p)
z%urNc;RuL1{xl#*{xmPI`oaEdqbRo?HGgFh1^T3l-~I7~0BtU`*NQZql+%Q*ZTv_H
z8m>U5hlhu+zp}1Sa!SfWJe>2~_&M+XSVa#u;KY_Q0!@2PojUdL@rjMUXGZGt4C2u!
zpo}I01dmQkd{9yTGrvuHK@`dtr|<Q+_Pz=RD4~uy0YRX8D$ly*I{ERJuxGI&PPla9
z)NUe}nIHM8CS5vT7yAMTdFJHuczX%4%-QAnTUf-n;K8-Ce>R!!-L=QN!Gm;-_g-k&
zR%8EWekcZrBNL@pP?a(9%ps8|b2MqI_mQ<{L1=<10@S`RFfcTf6U6JY&#3Ba>*@}6
zm3fSzxC!(9!D5M(2Z=DMk(5O)D90ZScL)m~CFi^jBoMtVVR`{iPIuSO!3;{Fnwr`%
zmrl^ar#2n3!hdHpu~I#ZD$Cc`w?|e^uDD_X-G!+I>Hrfrt#<ZiPR`861;F^nxtk*<
zkBCH7)zlpNH5c>l&%sVitl3BSABfp&n<?GhkE;4KCr3wqCv(4v%2Mv-=EMVZ+Y=e-
zj;As1-@o5^c657BZ!alXpFe-Tps1*_z1_HLOsz(;qazOT3^WYZty}3L{B!w5L^f!}
zE9$u|0fKLWA`LNch0fm!XU41M-O|xvqTQ|FF)!)2f#5KF;DQ~0!r0B#m6kqP?d_X4
zm5B#}o}PZ;BVY3_R%SEk*NudPgblaD74=e&?SD82NGCMRyj@&eoGpuNrOeKMj;{LJ
z{f3gHJYlDB?hPYWaf#^K7RphAe{E3gm~lqqu;}QUvl3tt-**jv{`|QToQl9P(Q&_2
zdyDt7lT*L&46hm%QR;KyV)KbpG<W@SkNTU;w-0Lly9so!U=Iiz<qJU)r>1~@s-h*+
zGc(`$(fZ_x5WDnc3eGS-4gdQzH<yuHJ-qLK+7PyF4gNbeKV`jY&6*v1_AsNCND~eN
zn=~{uHnFn$W4eaqBnJHh0%%;Pf2K_@0A`Xy$hgw?hV54Ye1&VJrKMhf>r|@P=A;Tb
z3a018WTOZ8g;h)DdO0~cwdCW~ccCX&y?nU}nv)*;tMA{x`;GP1&@nxH{TXzU(%n-X
zH1Os5$a%TZcf`AQ4LRqv$htv!YS(-4{&}9oXgMblj7c}HA9M#giuHDS%OH#j5G!Tc
z-O0&`B<FYk)@Rz?pxUcfuU@-u-OKAVn;B0*iFhmi9p4dHDMGoqb?=7$y8GAAo&*ji
zY-VLOcwmQ8x+-kh%$^jO2vT9Pj0g(61HIoIe^cN+zs{p|8`z~EOg>N%h~?9YdlFUn
z_Y6+1HJlTdlzcfq^<!*uP>0+e!0z$E;=6ZOq4;cKX7+<1&-A;h5>2wP)XfQ6vjE3=
zYil}++Tp|6vLfKZ6*qb~B89NZRVebbgv0N$Yu8qaoGM$lX3ZK7o*fB!5Jy0Sj=PvH
zFD;T4^#2|<L8IU4C$d6FIu8juEiDbJ_2O-mXm~`#^@s>YQo#ZF|M=>;h{KbNjITd_
z&|yWK-P}|}qWWbsfvhNAhi~)sxp>8B@KpiVuOKMU;u<wi3w)fP83_#w+cY`SrPOj~
zy`!U}!PC<#F#Bs*SXdNzcoKeo&ZB#OZ?EX+?57MPbFf`Q4PANgcrySBQt&F99};vJ
z`bYy?q!Rj+eY@EoWk6Tg|C@^*`{7L(F6^*Mz_k?=Oj9*5jWz*R%ie2R<{kjaYaie3
z1i(R(in2*rtvYh#2w4i9hTC6|rIMb01;u&#=N1y&OvE43A@yZc{f0d26JYZiU3P(z
z;6`X1bd8OTVt{x!2HNGG9{Fc?9R%+YyE>%1F#cB5#dCB=xZ3FAOqcoGcpt&WQK#Py
zd7E5IRJVf`78aT2L!UB&@bTTG1ZwxMH<WnGvchY{==Ag}KuGb^6%>ye{$~c=&Edq-
z+#0f4qZiRq{?p4=uB^UG$0AZuRkfpDx$e+Tt+?wcDJl9BR&>B(>29OlD?ESy+8YZ4
zfD`?aLeb4IWI9DGO0C|=xegYZ!cL)fbopR3rXHN7xsXUTp4q;rQ(|XcuEi$#r`HIy
z8FVwPem*~_hV3#s`c*~fR2e%(%>30lX&D(3=mv_DNY&Vw-J(7&7>Bs;?x{x_TQuSo
zIY1E(<QE)K9ZDlk=J0`c`alvdah;-tm{EyE&c4vd&FnM*i9Uc+!Id$!fQ|yeiFEE3
z78mnk|6n6E*41+xYrEo!rRejvZ3|FXA-y~RCVQHl?Ty9W6i&;#a^*^mdwbS<%unt|
zr-G`z{$tiDF7uj@YEb6WR#rry#JM-!De<0_T1t!8QN`h#Rzb;zEH@vbrK<bw;+OpO
zC$dcSEJLtkp*oEYG(I$TGl^m(6+Vcf^b8D%4#sEBaDxHC1er75cw$i(+HUscugVd^
zM*6S+=o!2*+o(JDT>AX2?ZYuW?2IaWj<~}B(QwA-XNGa1MCPe-&|<E20PK(=yhB4b
zZs3$(i(*qP4JgOT#x^9*Pp{p`d%O0j!{G6}?`6(oRAfno%eP8X&w<pI@$dLYXTewd
z<-SAuN!3kbK%q`PEcq`qm{(1(ZXB&wTJHWmQho?-k=^{HCE-!i$QG`49kq5lN-|ut
zLwFW>dHIIqBP=g#YJSLZ(rbr1_1AIWsHG{CC(Y2<eoWO4Q5;hSwz$w<ko~~=UuYfa
z;8S8R=RPa;?TU;|dqKj0I32~t#s(BdHBvy2;@(Q%H!>26J-O?ZMx6W>9KZumGYHK%
z`2fKanG^~*a`)h10K_&@TTp%}6rm1daL1vLZDL}ZfJ`_R78XdC>0(zI$F<e#ebjiG
z04fu?`K6@|9?qf1QStJ}lr7C$L#6F$e0WH`rm(P(KXWA&Rm4(h-@t%BEt9}nCi;pS
zd$d6=4uH|dnLm3*JVVi34Xg^!bC*dym<MUOVtuIJAO5H6CJA#F7QMG$=9Q3OxH|Na
zG(ph^ZlJRyxX+CjhIlN_OZjc!AZ^$e@7}E=kyXjpz>tuGFyF^&xCjabPWKpU4nyM_
zag<-BrP&>yGEL~ZtA^9?a0ID+xoYyo`mNvEQ+Ho(03ROE#c@dWa~^Qc!f4e-tNQ2J
z*)ISQs5O#eqC`(&F{!p}*+ROm>>M21nOTaq+FoIFI42RUsdV=ybax0$;dk!v4HTh*
z2#vmQ|MxM<{=d3ADZ4X#yMKl-G-M-<5{NyL7aAzg*Wc&hv_TuK4%oc2;n}$(=%?gQ
z0D~yU5|qb(%SQbT6Hr5JdjNJz@j~ebQ>UTV8G)oh55M&GPOVC)+n%1DP>B!xqc5Tz
zgNg3Hd|3>`w);JON%yh-`XGWul=(@GIKB4agu(r$P;{`01vrKzvm&QESv|6$=&E(D
zb;|}c7FGO~)agr^@6&BXav)<e{rS_Uo7|87yTdQhCmpDQ|I1`64TGLGK=sxLd$z$%
zAeIN<SZeC(m1uclRv&j!xH_L+>MYq}QbahcpuloT#DgoVHq#XvhnN&Qn)SR42vnX<
z0SI^sHS;E1b!ffNr=iSOq4$adUcHM`*or1p6~5z8YjK!=suyN4wQ&KYiY6lIG@R8C
zAoH*2UxkWXn>SyB`hlXuAq}`g!iW#<zTuExhC7JjH4x8}h1qc0{mI@zX()EGm9%W)
zsn5p4DnsgA^*$N^6F3K$Nq?{aEJyXwp{lkvnXdZ{IAE#z88Ke`|DdAOREDGqH^@2F
zS5cB_<+JoN3<G~a{1$|FKu%-z6f|lnjnq@XT4W!wcPHMX*kL<S6n}b=<~kfee{4(0
z(fhf>Pmh1A9cX^c;yN=NO!^hg%}n^&OFV#?g~g*#E?@uD*Owg~{ept%l$Dh~#)vwE
zYef$XT*$r9NQE9a7ZMyAdIJsxigsg}hZ{%I?^s=dYRFsU7D2^%(b`I|f;F>BoLy^d
zY%J!v;Cz2kK@W-ubR_M;yWQQV50Ge?12FT$0ZCtwO>>YMpG<x<P~e|xnKl1xZrv+1
zO^IJWP(29`*Y@uBaFw0Gblc0HKX)#<K;-q-&dMQ>*ub7)7&4HF*2CYLoOFP6f{sJb
z;=yhh2>C%Z(~Ol4H}}Nxv6~vwBP~llKEBp64>`y`WU2I6kXBVa;HSn@iL&1u12AJk
zGV*TK!rO2A20o;OsuL~e&YypXZsEK*pT~T=Z+NDQsJSa{j_k$;b8~Y81A_`=0^n*u
zz9VBDuWoK3uBqJEFeq<imK@w7jvfciakKls5gY;6Rc$YR4_*ofPNp6<nHfyjwLC2T
zdoUy5z?@fJ=$c2+nATypz8{NK<MDyc!KZQ83v2TbwFy4S)y!VfHh>^<8lES)@gTr&
zZ<upd1*=7IvisR8K08ayGCGGuM{j|)qVvE}MHyUD=Z9wG_3Nt^7AETPF?r0#`)n}(
zv*4}hm+20%X=(g*@k%5u*NBlkd}xq13n!CQ6V#0);Y?L_b#YOSWg5$%CyCc*!^A*0
z++1==M_rv3>ee{N%=h<Okr?3X+QYykK<MuCrDeJv_^+1XvMH(JONonpten#Z3dsp<
z%jO>Kn?P^OEU;;Nb}pn}F<+E&EXnPihx>=&!ND{KW1PVi-xlsK7^NLgz6|%}CYKT?
zy2bs=+XMUqu}`i8qH!xIC>)YYC^0yB^6Ti=Dnv%SH#B)XJzvk6NA%-}vIy!wX*euC
zk993@8Zq@Qk1`NCh(bl~+XR(0!YP97@I`%46!|&qu{W?OYins>c7NLcY?)@`#zUAN
zAYh)>7?cTU!<F4Hu2CD^{)Ztb?o<o%!%-8=ys>VJ4^+uMxqj#{tYW9VdhFsA36CrC
z%Y*!1ixdYAs)49b6uS}@Y_Sn2#~#G_W*9v`2qE_SSATzX3LH{)MR!&b9o)Zf64y&Q
z&S(q0KeEa{naOV3wr$_9LVyxf*r#5WS9Ss@;8`N+YB46#O|Cs_sD7s$2pcN%YB>Lg
zP$Dk>CZ;dFeED)fSj+4xgy{W2#T7S{_QE3Y$^5td#cw{l#uh~2YhRx)HU()*K>3;d
z^}MSAItaUmqxVMNcOU@fquno@r-qokHp(Fd#D3Sj{hx?gk!Ox@5*Bf_oa4_5P$B@k
zMEM%v9R^B7=dC$@bHdzw|2WjJRTw2KlNSvMDs~V)jG-_A3;Glm%Ai{`rs?biK-KFn
zgrW~oLDH}n2YeP_np!=g7`ADe$AuVdVsgFkSG{%ko!|_!%Q~!m^ym>O0z%C6+IT7X
zd)<Aq!gG1fu0U^Tw9KqbCxACtQTIs1;$Vz5hk~$zf}d*7yC#ubK+&V<fy|0+3JNA;
zFPu#k^RwS%1z%U?{%ZYCGC^P*5jnQ4TYGWtQcq;X^)!T%3M6;<gOfQHWD*M10=;k)
zK)`)EaRI0-ern?P<Q+Ya`wSx2;cgKq&6w`H@-7kp{dCYs(Qlz}odH1$<S@>$c;94y
z20H88)>c*o)<Du*oERyalJY9cmDHO3;B{EZpNgXHL`-TMgn@d~7iY$9Y`v?WWf}~*
zIRP4g>|1?<=$M!@*rRhHk71iuR#mN_z!m_Q^~)z7_H|=vvG{$`%lkJo1gs(*cnFcJ
zPKJ{ESB-0x+X<)#mq<?w1?MHY$qM(@3^$BV{`VVv4@ZjTedP?pJViGfcu{0v%xgJM
zW>=uq$J7-7w3ENSoERLTqU2v}^Fcit6yu<$AG{4C0994WY76lo=za|ZI5wt-n>TN!
z)_B-n=}Sk?!V)!7ca#EEP8HrYtSVY}Ps*T{zCJS$G>?HD%j~EjhMZxLea825@yCCf
z-{jFS&Jr$<v1%4ltATdqg-q4Ad5dGni4~8OU4t1AC+~908vpp%$HiGK?H1CzL;iv^
z@8TCVU!D=4pB%h~G{hMM2wm0T1J3t+{hBaMhEYhZxI(h<?TF*-!a(|(5pa~To@%<t
z?`k{@<UT`*HdIfJ@nL*)L;#fIUG(lXSPf*i-cN9m`n7#Tu&_yyr02reA!a9XxT$KJ
z7s@ol)rjllGNFpMmJ>=yeuc%xu7e&6>WOX<@p`W)q^~O5@<l%&^BpjKKx+c`GIQB7
z@ghrb9>!5?soV3<_E*Q8(($8%2TU=GD?WS!g1%&x_XGo|h6N$!Hhobz>9`0F&ngs*
z8gxAIi>+d;tgPFl2q`8K@WKufL!4p1p$j7m9MzY2fXI-OCC=GBU46vz?^8miB?c^w
zj6T<{k<u)h?k<j~*w~xEeW<B@ZJOU6qN|gn9Mp?mLV#4em^K?;YTwBaaN5jl1<bcg
zp7*#92r*Ao%h1#FOIm+gha!06`E%mA`UG~0H^8P9zn*5ERkJec*XId9MgG$<?Yuj8
zTI>GwoE=T@vK&WA6SM!WLDnyZ0G=A_<k0FeKm??HRsmZf+#~D|6Z-KvRGd|-S2H`i
z15%WklSqv0fiL~(+5RD}i9LZvhp+^b7qNjZ5bXta-ZfuZTf1KdY?dv~D1mebD@E7Z
z#=?RR`(elB#Cnr*Pm_oDGvQatTJysH7jvB)pqknPL8=P;xO-$I>-NQ@LV$O=vceaz
zPXNmPl+WrL)1jSw0H?_y0i=o!wAh0nqI%6Iu+Z}5B{`yOwug=*dF7is!a<<O2ygE1
zD+CON6!}3pJvQ;-L#Y^1pdF}Y_s`znYa6HjD|+4f^>*DAD?Y+zf>YCYMuNd7C1of0
z=O}1~d<~fnLG__{;q$)YPt;qU;GBeXRw}m^*zJHzwZ70euK#Xst|Ux2g7MCsJE_Kn
z&zhzXToOmfg_BhS>zlMjXmkih+#&D-6kWjj?cr*tEi6`V-h7*(?eSgz)TC!mpL&6&
zmMt&2T?Ce1T3QP9Nyot^g&0z>Cj(zcv_8SaJcG%fo2FgVg$uFgV(Wuy-DPu2%d{~z
zeSJcoibq=nlm>WFV1^cl<`qJsPc1+23G?cR?AWmqQQ3Xy{AO?ok**;dARy@VjEoFZ
z2_}oVyj{B`B#s*&;b8!qIJzcniEQTx4f?3t1Cfq%OpNy(f$4O(!+->eNqiZM&L5hZ
zMuE$E!4q%}2`^m%;f4}O#+ExY6S$+^l74KgjQwilW?m>QFWl~Lh4w?HZ3d7}gA?Gw
zx|Lp=rXgKVkc=(E+pn#yh27~D930%ayg^Jtq7touBnXg$`{fiB6gVEA$g0zR-Si0V
zGXsl=@i8|~z$ncP*S=(%-!LTByja2InSu}TVa%ZuK!OGhsTxJr?Bc~(bEoe)=j%yD
zh0K(|nn*pC;8S-c+yW95t)QSFLdu#AR}0;u$U?2ON_doym)GpmlapBIhlUeDZr&~R
z^&0`05$e(Pe$`b@aDkrI_)ycGwzUlf1VE`LIAy!q$b2ER1iGesPajl!qOfT4FeK=v
z9iI;gzXqcYF^vFHje-zVI8C{uo=j$L`HsdUeYpP$U;t4+s~O%;&E8L;BptJ4nM~nf
zpaGWlhBHDJE8v8fBiY_SrpASauu^2S2*{UIa}4u|i)lDKTM&FBX?v*B(y`BpW&oqJ
z&?r_=lols9Ly3#%ha+zk=^DWDl8m6b&Di{-YtF!2;o;>?Km}D-+83_IL&k^T;0j;R
zB>AAn<|h?fH*a1E{V;ESg2@SMg&tUi4Kl%w?MDMVmGp>s#4RH;m(y>4<_xI=Pr`#z
zR8*AhsFiY^ya37ZNP`rRJGBX#p@Rx{c=ru1PcH~TkZ#4CM^9so$*>n0dqnk_%>M!r
z_7xbfo=e=nYEf?3fPIXo+HZ{1%;y^-P@8ogY4DF`T99!!C`;#vw|9II@VN6Kd=r`4
zL8aQok>mKwusRR10mv}99D+A6kG)WbsX0%DnJl0%zQ81qO32Z~f9kA&52N!ri7jwH
zAM6?~DkwNT@%??O-eYDo*zo)J*Hb_#5YeET9_b3Dremg1n1v0mBRxY)|F9uOhOoB?
z>9K(jNgjQe=MRvk6hnf4%uh=sN<|>D2T?_7Vo4t113w^sN(GX-$Fk2HK(5>H{9H#z
zhu!j$M|Jt3qw>z9&<J$T%Oztk%AuJW=3fjL9lc!Lg8!4&vIGG>v<B!-uXDRmx-NgR
z+-BdT!I7QF|EoOUc_VzPtYlw?wBk9q?z~6t>{{GsbmF>V*v-i**es(`>oKKEIY)7X
zbz1|zy%~Nh@BpVO5gHQ33p2ArNJwL>631{YY+XuNFY{B#iQv$yD3^ym@<S9p{DIZC
z2`E)N?Kp3BFPXl?78B^m7r0H-KE2o`0r6F5EDst$0(!lVMYHe!)EGfB3^M}emz1DI
zcL!$g$eQa1p*mv+Q;Vzv-!n%Wk+t3_ez|*J-WN3r*Zc(hPSXn2__qi_0Aqa=@tH!t
z1K^D+<xTwa=X=SJZJ}}Iz+x;C$V9XT86#N7CaE@3`b3EojzB<HP^PD+{X;@N*(bKU
zI6HTPm{2H)G29>N_Lv#wAPr?m2E(1DK`62-C_^n-p^$gJ$>;-kLWuGimWX=WhnUH6
z*UZ(UU+a57_qzuM?vB(s!@NS>QXg4Xf(h2-yMp*Hjj1<3BhA0_^@h$+(R9jboD^zT
z6*BJyE#15^@c?<YdU|?}LBZYL!zh3xlkPv)4Y1jCT-HNnAtToazrO<BpioGd0T*l4
zTd)XScHMMc8i0-(9B({%+<9*vK|wk^p+UiAB0)3AlN34-;r=`^QJieL78SqY!VNNX
zebul#I54pC$;lj~3dh^(IzmHj+Y7u=A<dA;A%%~+XW<rrhhpxtmy^v&)5KY{=jYFx
za8`%7V=A%d#=ul)%ZAaMNyzh}1y7yWa~P&0${$n9n+-(E?9A2-wB<8+MsOrDy@1lj
zqZ+H+huZ~#Kk)e0xt}od)Lo;H*kh1L;%<s5D3B%vd$eonxDPN2lk0(fw;s781ZsBw
z(OASYNOrI(NCB`LjMI6nhx+Etn~WKLxC1~Awv=%mY#eD8!Y=PSNJ=8;Gu6)dcA&gJ
z8K_$erBHZ*{{@a2Z9uhncVCVLOsBbaBwXDOU!U>h?SueX_nC0~A;>efEGv%v?kYW}
z<gqaJNs=NBq?9c*x_ZqT!AvQIcL@;G3Nw$W#vnqBjr9u4VRr7EuR0Maz;83cE0BgF
zAKfbw;WG<AeZr#*P@RqFK6y;oFn1qHn;0gKyhTHqEEmkg4wH7DeQLNII@nSCoSDHx
zgrEQL!#OI4Wr0o68v5Nm!-w!lq<!N!(wUKy&#qenyL+vrrR7}y1ro3Js65)P;<syY
zqW>rH^Ckj-Yh!k!^TBA*&aHcU1OoKU;NXeHkvGVjfQp%IrNOExE5qsaezAOKZsycD
zsZZiOgNe9|TWXbPooZdcTq~>cJ7Ai_Zr!5luA&n>YO@k%bl?x4IIE+oE^b%@vWfvd
zbVCIT%rY`CcwkP{gpd@kZi6Yez(s7`)le1pZ=8Y{t&F)}Wt5dVk8CdqJ0odt1D8S0
z{&*&R8RqMLM5;8)qWBztwkC{wyHWs-P&M|D9il-weL=xxd=*fG-ojo!Fmaa&3$nG~
z16*rWhjxpLzX05v;OPHF{L0uhiqQGV45i|sTeWA&#5Fq9&VeGF>}phgY7<gN__#yO
z`?<0&ZD0rI$&)8#=Hr{6oYc|ohQ3y>-Hj%BHceMRH9|QB6*16A9OeF4xu-{73oRX;
zjxnTA!`_Rkylo)tr0oQo{Z~#uvX-F;M-#o+o}}T0WJ7fCHKD{?55OJ#aq2)@BSN5T
z`3DF4LT@OOD<q*Rf=QaM?;e2a8%a(Ic!6}+$`(lei0;F)rs7Ecefe}I-z7E&y@Dbn
zD?f8N!}T}nmYfUn_pgBYfXum{KXw;?9J(f_4bfG$9?k#Vy}cU&L}lv_RiAKoFVP=f
zD!$Se*ksyIqBc1nT_Li>t=Y&)nLWmuou98S-;#gH2<b$63VEYOH`Dm!SbL33#SP`l
zb{}C}9PoB(eQHK-<>n$`aO&MP!pZO%>4kP^AI`y-Q*l*3gS-yqgQ%#fNoj~J(@YY?
zo_gQN>3>}($KoiNd4njl&)IqQ`~htUhLEIDqt`Ca)e{ae8R!&9Hs^m9UWcR|Hz-1K
zQqqNw>NOufGNJ^2YKtEsYZOE_b-E^4!)ltEWH#g}EFs-2Q<I%-sk1rAhX4@z5U}o!
zS_YA^p93RZ=w*VxqHN5}ydibcnYKfmeLYn*L)@-COYLf6VQE=QB?+-)Esi{7pa7(8
zC=^_Qxbv{$2gI;}yuI)k(ZrGEU58F6V{?9}y)b8!Htl_gt^AHOoyhQGhxmquhN@Hl
zf(w#BKp-f%`h(eP<4)y`?9#`K!UF>H&{`|szCDsGb7KRCGA=BTXjV9xoBL=|a&q4V
z^GRE5!N4Ct<H=6zx3IDfJX!M`;tQC@8cY;4g40M7kklQhg3K0{GPPW~bcw{Xy)*j9
z;3J?LeFC?EvzOFJ+^~T{xRFcoW9`T+Ao(1#lM;DV10m=h+&`(c>)#sAhdj48{f>jX
zICg`hlFk5y)GPqC22teU;)-ASrbc4nr&3#CWq5gc)z<|eG$&xQsx9ObER5=_`}XY%
z=`ULtKY~aSWp*^}GAKo3w)vq}qOA=VKaPoOwuo+XsD?*@AdI$r8E*dp2~filC#gJX
zW6;u80>O~+NqL-XoGCK;B<?h9jNEHwTiZ$Pc4~@}Qn|bBAWvdFd86pwo}(Eny^ufk
zhi)dE#Laybf9gKd;RI6dTUh84xBRoC_yi$-9@d?Djp50YX0YUB7i9pQ@YTMEtq2;P
z8F1^LMEgUwH@%4+vkOn5??Q93u=1pz$ZL`P+ewjD;Q1{ewhxv@AtlhXBar!r!t68M
z%lGCz_QopVVXBHQVmTO*BAOyTdU|a$9yEE`t3&XHS5gRQ({a5r;cBY@FFs}%u>=GJ
z0MH|oTQ6<_WFup^mvJu$EqR#-A?QSDV@xa+I>K>F4m5o%rGRIPYEn!?!?E@f7oChk
zxU5xh-^9`6ymjcqixLwP$zbUI7L6lEs<1~;?bq#Z5w;>PJZL{WNSGnXNG+g=Tnd>)
z#%;2O{jwE}joQ6ZkOj8yW9UQPJjpS>o6Mg<|G;HUX6eW);1mXB?lSQ0X|P7{?kE)C
zG(S8iM_gPSJc}sJ-P*Ncuu<ea7g$lPT|y8*(r@<#iyiNn>_H+V|I!!QnA^Djm?{R>
z#QMU8*^`aaI<P7$!MUE|nkH$fLYdkWR1MXw<`(afh6npsZa>3lbzk;sCHiN!#d|g(
zqkN5IlTEm<N#4uBO_etvA_F8Zf32hr?$4<>qU(&(w1sq=VLV0TZ^o4#k}Kls-t$Fe
z2-afO#3!MIhs=kepD81WKz?oV0d>R(u+W1~V8nqCll-cyktb4JJHt@QOr@^}xe2R!
zDM?A)_Gg)b;HloojiO;H{qA66Wv!^Fpdc!D9dZ{+It{`{_s>1-8G%Ur3gtdBga)W^
za?S<}&d0~cfu1<JUm)@f41&2~T1_pjL+HI4M~_Zi+Ne!}{F6DWQ7@QCK_^m7R*t#z
z%^O;@-5TV)$?J0~S6*Xi8SVW1nGLq?OR#2`<2#It9oGXFt=+h>20SI~&K*bwn{{z_
z2dUFkxcwj)zG$>VPq?;e+c6Vcwxl&KV8Cl5uKQnqhCT@`;bfP1pfJ+EKihKFAQDpr
zI7g;0K*Y$a$oM)qdN0Gat2i{>`Pv12cnmB*@B7eDT{d<}YUwqW*Dl+#^IhEBcECD@
zY%>>v*?O6D_%_*x$w1&X4(+edZ9*4+6EiH%3pL7F61Xa2kY~jN0+wVckJ|CVLBD%3
zLa}odBOg{5K}hXM+}rHfWyyufps9u_1w>CusEHgcC=6GdzHbu+Fsg3NHplhT^rjLd
z6&Gg8mz$5L$3}20o!Ind!z#umEP>rv&w)tOhxZUbMK+RvjnsTbBC#?V?FV<N1fW-m
zw8j8G%}#%@r8WZZROdsY52aqWoo%qU_hAmwK<TN+lLJlrH*44OK(Uw^Hi72zU4{=%
zxZVA*um`zQOcY3L8vUgw>9)e#zR4<1Mc(@H-v7e1$>Q9(1YC@j{oP?X|00p#D<<@^
zU8k(__MFC5LUQr27jf^dPh$6OyMc!7WB?IQ3bWsNc}W3=qAzLO;Q~m1G`d($jtYD%
zobiYddmIu73KY^q_RYz$k2Ak?@#3m38ZO9QSg&1+VQL~#JLKirVQ$R!1c^p05g%W_
zCf35sS4KHqMf&ZP2uLEEvL6xw)v;2w$F;`X+<NY~8t!^uOO^Knb{I}b4^`+!8k+rZ
zQzJvf_wGG}0RVhR2A@dEv;43cUS=yC)UxUZczlyT+ctB^Iy7j@K5!Up!qw9gZe=3#
zt9J78ZWk1MTybDri$K5~0<Ky=wW+PGEg50O)IWu?MP>>M(IQDb1(#^pJ%Ixmi2iLf
zTHshH(CRhr^Zl8CWOE@bw>0=vfN~-|Q)g|p;^b?c&@|3(VqvMt7s6$d2!pN_P!E!k
z#UL*h8rnm=a{0|ppVkMUNBCq#-@27}A@W!g8N33!_l}HYLR?7EO%Z7URB~u{)ZhwN
zW8NeD|Eo|UdL4`#1`!QT+(1s&$E6aq7bw2Ah*KAknCTOFQ6Fi^3V-??VG$8YRSv52
zJDG#>nrNQ_`H1b^%R>5#41T7rqn<;(#IQ;B-8_r#stgH?d_V5Jz+X9ru<^$yCpY87
zE^yFWLgO|=Oz=WSkrZ@5y%;%SX@P-|lcY~Oj~0(h%o=6IX=H>7?p6Z6Lp|ukzpkGO
z$f0kD;n_Ca=f~d!y&{DmT;!obztPePbeVNPKH}du6KIk2!qshkbB57g@(v^bS6?Ag
zII@<z9}KQYjA6W?muFVB8aMQqoJ$bKBQL3;LSM^zn5HV@HZ7ECS{fJ;5g}iLe|!dH
zjH0+uZZ$jl)g?p<n%s#~9=rp@AxPxV*@?2^8=DyzNC#P(kdy0g&4|B;i>eQ>+Sukk
zeLRSdPa1YFIz;(qYVH<!M+W=Rs`^~HbMfK=I1ov<@3X5`pTyH;L#olZE0$1Uk85iW
znw+^4waD~84qKzsO@{qK%ny+)3~V`m?oC9awHdCgo0IoXr)X9yGAiB?F-fl`&MxnW
zdMg!^^?0QQG$>M;MEpoC*#(P8dMSWD3CU;Yf&jwt-4NE`Pmxz0M9XHCZCz4lcjNX0
zWcSDr7ii=?pK;Hk%Y7m^-@NZBx)ZKNJ+A0Q;QQ1AJAmhJZWi1E;gkB^k#GBCI)6eS
zQ9VUy=f0_`Qpr9t2Xovd<etPiT5R~+{S%~<NG7J17F-}y9X&7lC?N152=zl8BuIC;
zO;tOQX@pVa2fb#rT!x$b_>p^iE{!hC*^}yf>g#(kF@YoH%bZLCx@hTSPK10t!siL4
zvbyGc5T#V(_Qip50yl>EM>*kSWA=Ta9s`&p&CWvuM(6NDPfx^~9AxVc=(48%?#e0q
z#LF%46F1<|yr*+muEZ<C6;5ta_BR%}p(}6zyFSEa<?40Eq}0PVZQ2wzLU#%`jo7PA
zkf1`Ykc)gp!{h*cNogsn{R#?7^%??+&}-f+*H}sI)wbJ<SRHvc6v)2<Lti3(cDTg8
zzq-6U)-QAZ&ThK*H}5}lpw~_k3OByRYZhTbUwiKNtx}2PU9@eYNrKyz3m(~RKX7j6
z$y>?vZ8c>##jD=k?ThW=@~k^2^8MYk%=zzkYZe`UciPz6caF@+pPvu0E+OiEPq_X-
zM-OR%xzY^pyL9T4kt^7&y*MwW;6{f{3${eoDbKm;!4gC(YH$OhmX?O*u#*ko;?x_#
ztcD!z<G6DTpdsV2G}o{BMG7}U2C6nHIlS$&dM<@mPXMdbPw#jS@lR5^vGl-!1Lqz$
z`|`~F{{3V0D^cb8E&R|r&8xP!jl(AI{PfoC+aql@)n_GY>+7`urx6?ZAqfKDsTnr1
zj#X?QcCy{)MAE0=@|X<gA^+BngEuc1okwP>883WLu{VX@j<1Y*Z*jya1mnl1(JQ$8
zb=|V&IvN^n2umHGJ6G>p3hOJ^%eNsqhH_6Af^rJoNHr<W|H4I6E6A{U^M}}7V8Y>d
zL{G(ik1E-++aeVp$`EcJPZ|swtFE$AcMp$_IF^EVMp08^+#2|Z=&b{cV-wt1!)+tH
z0)e%(nDR}KeD-nbv+%UuU9JOFm;#%(*!#&N8G)d5qvx3fI$ARF3j?picZ^R>=^a0Q
zE6%xxrW8rdbaFiQ)YQ~{1N@OV^{jWlcV66M6r$DltG)1pFtzEu_m9vE&kea*J^ylU
z&%I{c%mw1U*QF4ag~;n;n0lK1i0a7Emgqm$L+5uoBzXfGssd77BsEU>T{iuhu+Fui
zI$dDw_9Yd~!S#Fe`N_}LS!n<RbJIQ75N&K5^LK_c1!F9|nD#lC2<^s=Cs0hU!r|^H
zuv0;1R3Gl$l^qh7yTqe41db>92Qu>C`l3zQcA{WtMvPY9GWxxRub*E!Bqn5BBY4tO
z0~qGN-r%|-)#3&HPts-ln^63&oVJTrtxpqzjxU~olN6#=+~G3c9*Ov|(Cu2D;*L18
z@R{i!kjB|$t|UDSquyp);4paWYqiN?87sU%V6b-FR^7?;rsF+u%ie?YsKgqJ5-Lh>
zjo>zO^wMnROL7xv0jb1N>7riob`(uTP>Dj+6szo7UUFKT?G4?Me?bk`06+ruATp->
z+LB}>%vLb)YPbA!t2wz=cr{6j#&QTJ7grV#VUcv3Fgz#q!-s3N!=D3kujVUyj(gC^
zoNDPmmU_GVNycM77wjQI&~}e4N*E}4Gw8!4&dh6@=hpB=WZ{41;+|)EAd_H`!saj*
zT?FjGZJOZI--lF%YYe?t>e10;IxC8!5S@rJ?sOk+mjO?dzJD8>46T=X^=jGs=l9&x
zOHlT8cU!x0RQKeP@Sv&EH;bG$?e4y$gP+L87Gigh`U`rD^ed<yj(R*4N?83}4L&I=
z;-mlG(24B5oz5!QB=9?Q{C;i10g$q6N?I4Ra8O-SvrgOlIePu-M}^O!r=QIDbTMOU
zYz%uMND}qxnohDPAKyV(#QD9sW4N(a0ub;jlq(Cv4d#%$L-cPyg$rCdeo@==t(xCx
zcLNUrXIk}zT-bnpLo@-yo_+ph{g)h6=y}LPmUJ}En^Zb)fsO>8F*j%0y4Cun<J=n<
zwCue%JF_=#*x+~*BAE#j4TVCPYd}Of9h~lUSJx?!B}-H6BXu>kh7Vdw8Q}0mi%FK6
zB5_C5)GoiRzAB^O^|h{Rr2f8Kzx08DpSjslQA8BJqxs>XjWx;jl<_+dU04m<Ba`5~
z>A;EK<Df;!Jg2s?lZu*_HT!7UxBmYAffx50i+e0`PU1g%?j7B0(|-AoJcZ&VZw`zC
zV)4nOx<>B4yi1d~X~E@$5BZxBbr@=Vc*979c7hST>LV@<oy%$ah+6dv`0E6$`xpf`
z$4t-o)f?DT_g`Cm?#K0u(Eg0W25gX}t#9OSam%Z;r^ab_>U24TEf;Ot3mgt3#0t$r
zL}T?fxmO_^kD(#U{*vNkVd<AX$Ii-{x`xYLtfLTvB=NL)sDg#FJ|*+Eb<~rucTiHT
zFxXo*Q!fd->4E4D8>h)7euJkEjK)_`DBs9SR<6JDS|omoJEuT~d&EE6`4*ja5~%r2
zeZ6Q3{fHnwmpSMF;-Ghu*17E|GE`IZCj*EG3|XX=XVjj3GdgDV@Y`evz0*{2tdzBW
zK5ZYE{b%fGXiWV+x?76f=bn}Q9wy`z#$Ik7A0NNfY}LF`Y2g9H?*>7}IYS(e<^ntO
z6noU*OeirYZ%smLutwz>_Ww@az=i8(3583uzwP24y!AnLY47W3@Iq@`oOK<q-5Gq7
z)>$Zu(HV=KLSClA8(-?0<QgGxI~|CXHwRpHTI8K-AXGNWyuvkcO}A)x{c^7`ExQ%B
zQ7HR3`}+ElF;;5?P5g#`x0;8ZE4CGAe+(I;2t!}OU^JK}k(iK#ps<&xm>1*+u<z~k
zJZ^!m{E#$4sz*(O9bYu~ZZiuRbWc;+;zd=8bKf@e^70}R1^2)(q=lQ{=0;kPTVd*>
z&QMpmlCSBu&_Ial_RGf(9@o*~n2}H334{5R#}pH_Y4`H(+=^o8hG=z1z`JWd&HpZ~
zFaj%2$>Nf^!t-8KX!!?*9NkGrp>%sr^oA-~fu(2~NvbvB_7zSU6C>j{hq$b)EZkMO
z-+Mdiay$Vce1MdU5qtR{e7qAH3M7aoBiquxPd=y6ESd0nl3!DGOB|;oQd3heGCA4W
zpV%7k1?EBuUPXcSE86kF9c>}-=1pBJhZGdR=S*)_oHZp4$+`act)Hz+0NHHZlvj?f
z@?&x)OAHAy4ql29#m*$&42nA93PFnb!q1%gq8$vF`Z%*}16`zg+C#jJrz`11Q*mVj
zw(5N{Tn%|o0~-%tIMk4E?Q{O6dx8hbuxF%&<>hXJdIGT(ZPPP^^8LQi^>K4LAWMoC
z2irNUx8c*%`yYKtF%V*252X>UO=hQyHzEHWt>_aFm_*5wY>>MUeGO3lBle98%j472
zdlt@n47V4?>^>jzAr{9XFfi~|^_fPMjSAl;kDh^KwH}Z}v~==Tf{eGDILIRqzhrd>
zYU5DpOs7sTo0RT@ectXK0%zc!hm;j=sU3J$g#6bF@w$x86DVNBKAYY5-a~2%#}$~L
z(l45k_q+P*v($;*Ad?44>wdhPh;tj3nVX$0*wsc<S6BBrhvLtRN-C^#+9b^?uM17R
z%K!39;@*1{pF4O*)Q?JsI-H4U4L)E8ei<2=s+xD+3za}rEiHRLOyHVdj-*lw#P~<R
zAVjidaCA7rz2~LRBW6dtetlo?&VtzO)SYr}MxYW#z|>dXitdUd*@@pTJ-oQUW3Dgi
zmW>qS8Z1@kGmqbnrPH6SWs#kI^v_#}Iy*Zx`w`JsfwG*T9<j?zRkfhuh-hgNlIJQ|
z)i;wd2+fo(&HoV5m^wv3$bZx5THKKd{J%AV&*SUYuP4i9M;*1{Kl~bkzw;%CUt3!n
zI`=Ki&=Zs{Sw%%`vct#m^C|3(0;$bj?*vi2;@rn;g{ElhZk8`EjxaiXW%grqZh3OD
zm$g26_l=&+pj?DHp6|e%R|KFl3}uxsy=jUe5Ftv*0>(GNB>-{*+cT`U86Pelu>uX5
zpK3XEf2nvEFYf{JP~fUV`<)D&+ZZ_~oBZX{JGgEAbt}U`10-?tTjuBHEb)G*^i$<!
z-T|?{TgsP`0R`TE`SLrHnd5o+DR|{1fW%&XSsk*E^Q=U4E?zZ9pa---e+QtjLZa(d
z5`0wYUn_qi)KkOh_O2lo(7Fjan8WvXTT&*Fd(DD6n2uJtC4U2MLdBVSOf|bNPA)E1
zz*B@G%+Y&@)8(bVFzPrZ^h2Tjd5`7A8SGk#i}gTogLof~<VB?dQ!uM3#22lbh@``^
zZqrYm=s$jEk@M5B80=d&_kuRIb%k(>*~r;ELwnr^!gz^?w`G$PN+G++YVwU&1sN4`
z5I51wcj<JsKx!gO5=Q2DB!PY3r@QYh^s-Dl24j)9lzRotqmKx#35Q_t)2CuUsB#}B
zV6{bmjfEXU7^5ZXqRwF63*UuN*+RR&is0^H^%+MUJVUqV4C=xV+^XoIV$0`Wc3(Ao
z_4aL$judAqgbB92HnB-YDFrB%k+HE)w(hk#Te#>Ij);7U<%dV-=DIGS>97HC1RYO~
z{7@79@ZrPt>OJk~WsF<4L?@3VHxpLP2<JTpM<^EC;`N(EQSw%&3PN!JASoY>mN?Lq
z;bgSCNN61fQ*a7UcK+A)^}wTFe~k?v#|td<o)~D8wRn;Z4Vvszpg9g^&vN5McjBu5
zI(!@cFgnALyp$yipCGgSF$206YNsV?k`>WWl!p$1xJm*XhEzDL=?2+}Uv{r}T>=&R
zF-|BzqC=5A)Rl+$gCj*(x7j1jq&f2hi~lu)r`r>|9PL5xkhc@8606RVLi#UM80%$k
zfJ03C5yxVM4jE*^uiixXW@PfCC9G>b+{jhgU3t}SJ+bu>(9;0scT3rpaLge<;y`kg
z=@p%#SS2RI1ZC=Lw~|JXn`j$Ow$3(?#9JghX20H8ouVH9-r@r=#sg5B*I&LEfst97
z;_ZToiYV|*yN>Nc1MfBE*cOW3ejL3Zwyv$5D1TV7759}8M=svMb|o5<Odwv93JnsM
zVB-*LOMrs+J@q`g0EN<mm(j&QrYB!Eb<Xvug$R{f|9z*)+MV&=c-YzpI-I(iQ4J<>
zQM4oHm}O2I`kNFoG0)?FrXx=l!l@9Gk%wFpwteJ_fMI~oboPw$3C^u2j%aG?;{c$+
z_vI2ZS=DE>Vfm3?4xTr9R)pfbsVa`+o`PFGnob5v;}3l0M_8f3pV=@hul?jlC->M`
zfHl4!RrqQMG2tTwo@BEszd`Ky&t)FP&<9|<CSk>_k@P4WZ?(be4<eAF%E$vdw2`^!
zfK_16sJA4x20mfM1}!O(AoAaW%tDU5V#ZDJYFsDt;tQGqoV@{L8*kYtWRlwrmJr_D
zU>H5@&B)1VqsmTB)L^P<X%PtlVJpjBY7D!37jIM1<VPSI#q~<jd3+TUGqZ(*Zoy%|
zC%r^f8pK_Un=+`Zv(FIKSA?~^si-G$$}EPaXXJQ!crGA+Dxw~FCnx@X$yt;%;OW=n
z2ZGUd5irn(DQ6t<t`I~L-n^QY{MdC+;Yg4XT*~}`D|&T~*6Sz*@mr2}2mAXUyK-gR
zgsa?jDjnt2{ACI`+|v}y4Bj?l1kT_{*c@8XMB;Cl8Uj_fpE(wr@ZCO)QwuayPRk<l
z^Nu@$m3nx8Onyu85AIi4W%B}G;(y@G+Piu0m6bIlRRH8d&H^&vrG+)tq-1~u+*E_g
zMt&ioo64e;cJCh^WI3d`)B)(E;)imVT24zuJ4}2(8jSs?4$SUgl+SX?UHs4wF89&>
z*zxriIUN(*^eyJ*=LKYCKUb*Mp-!J5r5$&7_ac^G=*9y;OhausDNyHr<zJ+PwQRZK
zvsXl<&i@kmUHfi1O#eJ7Z18j+%%8zJ8RyXl<|VdWitD))<vR*7m5`*#YkI``_cSd-
zou$QOe2UC^0DJ_7hDPDVE_j2bE`-p$3ysQ%dpWvgf<5no?g8v`(iG}eI=E#4unzR@
z$gC{e{FZy~EjXkv??bX=uUK>GeFZmtu-$hK%V%-J2j6Q<LLQcqm0s%vM!$a}B*|fR
z6GZ9w8^O;&+K>9V@an3gFJ??h_6DqH{7W?G3EkSY4R}pjF5Zz<v*R~Bv14$=Gr#}8
z+TH}L$F%+bZwwD(oy8JE3?ZUySwf8cW6zeQ#a0v&m4w`x8O&IcRJImNNtUv=NSZN(
zBnnMhX_J(uMOxJFbymLf`~QyP_kX_6@&Eoio@eHH_;i2n`?{~|yw3CeexL8_ZM^?p
z@WW%-?VB}e-gY+g%-H?y?R}xspPKaEJmzD@&;2^YeERf>&uek-k0%BW@+7u^6`Wi7
zz-{V`8PAz4w*6Z;S1YluQiiLksXvI0jxHJ<YjHIq;$!cx_dVs7Bz%cgsZF8xt)GPY
z4ma@fqhB&>^8x6vPOg83jo$iUWyQCl$wJbR>d_*g?)5MXi3N^)D(3BMjMX})=L3aU
z5|7T|8Ap861ZfY+Y2>Q>o!m+pbPe(Wl4-`!<Nc$zb{Vm8Lj1+=t(h;*rQ)No_{z%P
z656+Nll_;n8{T7T-iHEr>+7pm6KZMcTWL2hYX#s+A~o)HrFMHjZSAT-M^}=XAx}6Q
z;kZGU$jBRw+tlJ`d48(-e+7gufhE7uA|fqKNkg7?ls`1LIaey;afu!g5fOzI>4R9n
zBwh3Ih18?%b#(Fl9@a7c>Q;LyYH!Q_=%K;t2inE$+ioa{SWSE4stC?Ewd^*YdHMvb
zNpf+~4lg+W{O`q6r|w~wY}cvNIa2qVqnBJ>e)o#gDi?)fV9CrA5Vb=m`}RKlqTi%S
zB0(wY$5n4tBKg{{F?unL5p^l=E<3g2!PHcg-`7#CtxE|tM7HVR^&$c|X~kpG4-dLf
zRDI1Nx7|p;{ByqGfpird=ZkG45^F!D*X99p^))>8%NGyiop&oAt?*RG2Cmq(cIa`z
zy}ZXLrT~G9u?sl8-o~27tY7Kbxw6gbFN>>zN^K2cX~EQ~Q(c-zP<Ia)FoSeAIe?mO
z<mkXpw`tHE!a$*okF)=M(1VqO%)`uvsKqT?y`vmJWlOe)(KU+3mbq}7^NAzpG%fG$
zQQBF7;2tzw+Kp!&U0YqU>)relW4{=Ws!dI8V=_`bfz=AqZ>Q%)@cQ)cp@+BK66%k8
z=&_;ejv<>~GjDq6!KAgGu@<(*HlC>;noa7%15$<sP^+x8Oii!(Fl_$C#m^@O#y_-t
z`qbobWNnFW?V~vx%EeGa!A|fz(@$qgb_y@1jEqxTM`tEHG;BpYk0N|TU3G}0?M7rT
zHOB+XnxsK&p5qQIHEy+O-h67gVKu{$A3H4l8TPQxZYv5g<EOcFRja9ux+fN-MMXvZ
zE>^(7dPSmTUp7B*&P3mB#j2U7zEE1PkNA6+6ax^$E%!PSe_5J|Bi~14p0SJnvdyRy
zh*Z`FJ48>kp-R4zv^Gg+QY~Gf)`)$3^|E^N<Rq^H-O!w|W1TavCpY;UqEPnpPQz_Z
z_-uLGC&c{Aj840};zE)OWS~zUNyZOZLK7LujB>*kimtBie)WOl;xBG$wa97mH*(J#
z6Kvx~2OyywU)~bK4;F5#)bG^6hOtd~cg?jE_!}D1I*572l_g^)k9g&hc8}HYU|xD^
zX^P{X^yh@mXQ*kZ=vQt2^)b+pSeT%WO8Ks}bBy}NpB$(iTpEc_gi=NxVgB}r0^%|R
z38iYzgbBY;9j~k3T5ZAte6~y#O$HL?UACF8Uk`d7bb%OlP4DMvw55(kSoQ?v;Yq|G
zBXoLen}lCWbIk36I%=@dMnKQLNNAT7^kV@q<~=+3P1PPeCi5{AQO=vjHVbIBR^}1T
zkNUg^(4mFq&E;r~xop=aM_M{-vxBl6B3Gc2FP&a)6IRme0h@;UH%(-WQtt6opjD3w
z)W@EY_sP6WKv}J+BK*f)e;s6ZzUg}Ki0hQJ{k+|7IhLGBUaZQ>`gVBU3xE5<ODm#V
z_w3cnB24+@@9XO;u*3|n;ZG+%h+lOz>6)zVzb^gAv$+x;P=^HqHoXP8UI0<LvHDZf
z;xETHk8se)rA2DXu|%&=cQ@wVoC;xa^BY6CIW>n%No!w*toH@XPw=*daE|^6>h+Rx
zB;1zv6d8-c**lhz`zd|^>z1GtNA(AI!WObX!?H_*G?~aV>EpWpp_0zv5U;dPfS6Z5
z*>>#G<)ZvS`?*vQf#mojX0GqhfANsmeA?dP$?KmXs)2JzSr?`@Yvq(3<s`N)m!Dh3
zzR(z9c@DJ_Nj%%+Tx#XA<n_1Bw<xh6|IXB-cnz?X*){x&=ISTeQ2X*Ck<PriW`dUO
zC-w}x#8-oitm6HC15eJ*%sh0ltkCM_MkdhO>*21}*R4JRbx1X;?)5eeqtKIR=316i
zR#j<Z3r*2Ghx9MStyR&4T@gFmB3V)oICI8gORD#N<z9??pA{3@%AG~kcIeWjz%8I>
z;>9JsZ>Cy*jJ%(2y7^TTqQES=jXX%WiAVM{0MgqwlRBFk^(a=n?_bF4{<sMJ+uDoQ
zlM8@b50UW#0ADe2jx2y?`j`KPLeaLfcb_R)+^>B>+N~u3S@s(SDN(lMErRbZ4%_Ij
znMa_6yEu}mx9Y$TokwqZHW1T{poX_vYsS>n1MZ6T9g|MYO6lxv;Ix=zrj5bJ6A94~
zyjsb?7Y~W**{}Ux0k#o5o}+8q%}-isCr{3`3X;SRBTcxD*m(WDca>A@ePLSj7mrx?
z<*T6H=X=jM=AOO$8W;<c85E&M$hDgv%?Le}Img#aM<>Aa1cKD<>f*gTdN6@+Rh8wY
zC@sn$oXlTq6+y%<rncX5=7nshE(1T!s~g+Rm=#IZZ#(i|8BeEr_6r0lA|ff~M<ZM6
z7#Nt69EI&Yl)8NAarQ9x)8kekk7+sGZaqxhqVVbOXHr}MAl%ECmj}Xpj1CVxU~!i@
zo-_8e<~lYMaIHf=jyWBf5;5z-oNLYRCu>k1+w6n*yZ{SSTmGG2$>XVXQ=XZA^!1VP
zJ37d1sVQ0Wbt8&?lCi=NvSseewL@dQMhs3Kz2Rz)-W~h^HqQ}S1bb&jb-tKRXT^`I
zx@3x_mxqVL%vsh|6%~05YXW{x<Q*xVZ9)(I(0lXVwtY_FsAR<EZ8&}UKF|@>r`$2M
zPfs5(*pisSyZcm?Ub{dc-|W(rk#kEv=JKW7QL!g=ycP0t)`M}lt-w<1zQZ?+6XY~}
z73GNt92cviW)o<PK=9yiR$_WO8<^YW=XD5R-0|oGn9IKr^RTcq#Ws#rIwNWE8qmjY
zzg=!~>L$^D=;VCFG_9t(T~>%J57!Qju?|`F_WeQV6Q|OrlPfcRZj<8LdP)q6Th0BQ
zN6caT5L_mgvX=$YRn!+#&0`KX2p@jbUVdS}UIaErq3LTlP@X_d!vggspD{d>ODeL6
zqS{`66);|9a(c~~RX&cr0{(U$0_3r)O;<%n1?Ke}^9?_Sg!nq0M|ybOm~tc@JPpAA
zu)jUDz4e+*H?-5IhnW;!=p7c%VtVsN<>e6pG*t=CI?rEcl5gy1Ey2`wMiXt{lIm0v
zwdT{jh!iMh`DHRjN2`Q0t(t1Tx7}rb=0kCD{4S-{_p)I}N2AI=V(}P6#4Bg_W$-9T
zfmlSJpXdy6eAj!+K}Q9hxl`Vx5d6s9)itB^+wl$qkH>BS<+-|T(PH51`N&5*_)pai
z=&!voeph$xE5*AKyt$IaV=qgaWBZtsQ$*#4<;Xc|IEBum83fw}sQ$|UcFvMy$;DU%
zSs&Kgw7E00XllszCq&jWjIkxftmKDw%<>_&w7W`nQuaRG40vo%aYEhv8TEvS`ka*;
z(7%)4k^`%JN7zncqnchGc{rJO6bwfHeaG+ampnYI8~ppvO4Bue{PI=D_9)EfmI1O`
z(hO-m)#3aR^pu75c?V`K9cw<le#Cr(H`#b?@&e5Jr@}Pd_WtnIhqAKgba<5>P^!mc
zUOW3>_ld;W!WHCvH<&4wl(L-$TkM0;YWLlDJ%DIna%?o~%4XMHRQ|H>ZyfnA8#7V!
zi(3guP(BafaD6R~MdWo0Kt)O4^g=Aw!1~@;pYC(<P$&V2;@|$qbJsp#+O8Y??r;p#
zDabhNwP*LYsA}42XcS%x-P#)fTJUwo)h^j`b?EMC?3z~=U(|6-`B&XUb-1D=7tnLD
zNk8}TjbEq~!?Am)+ad>>9Qoo(cPaolGB*N0v1bTIzmATMfh2yy!6GRQ%4&|94%pDU
z#@H`<<)ASCZcc(Lyx&0WdAP&obwiIM2|SkV6GM_wS(-2l7$E1=%KNQ!bc+NdQp?Cw
z1XKkt%co`hsA&oBR^RCs-d}=v!!8|4*c>$)(8~iS85k5#yL`L#)^Gq@nIg}L6aCut
zLdha`*5OR0ZjaV|!cTilptkYcdox648u*LX>stpx1Ab^$_rMx!$>tXIEwq@lcI}18
zik$D2@#T$+^%*CkTpuc>xg~I0Wk}C%UR?j~yIG@75{%ad&!Up!!CDcIg;4*nm|s93
zkrp-N{<>XW88av-X_n}js&AbR(J}qv5|}q0te>j#c5T(|&Sk^v>i?+ur0le=Ew)5C
zGc%X$P}@K;Fojg^=o7TH==Y|2@R>bUG}1T;Lk%Z)LogKpsfSkA)AV|e7_kVafOvG&
zZDCPvtmSlwE6D{(rnOODwoyOQ%SooGsb4O>99!FV>SVRFdseUUeb0##UgnFt070v^
zq%u*5U=OdF120heXmFhRH%-wW@iQJ4*9vSVtjm|7>)8k1z=Ikg1wcU=DCFky%UZNJ
zfQZj0T-#ps{&P+6tuy55s~k<J>+no^_tON2!AGZ$Slku5boRGdO?F*dy^sxkg_p<i
zSwQ%2)q@va{^M7zx^Gh}`kH4Z676^Cs*EA`-&6-h0!IdYXpS;-N24#lyc!XNy^LUy
zExt|d-#cJm&+Ip)y2TpfXBJuib?NtkjPABGi3E<v1M%@Y-;g2P50QEdY_pGnL0X<y
zGNQHKWjOAohVg}O|GIpdYH-c!ncafFAG19I!>!<F%Cl$FV<}?dX#+6vdV3oz$@W^!
z!O0o}wZ1BDM3xEMv~l0n;?^<VpMGV_-T!Od#2p*SPRB5xgPye55{tSuzU{X6+2U6v
z-dkl8dS+OYmw-(^qb`?JFZJrIOLqC+hJvN#Ur#i(T@%Unu{uui8J)EFIM@Wm*Y{q{
z!X5xYvs<oMJ9JfK{vGd6;}{-``t(e#81o}PF#mq-HV-~Mc1NQT2K}3DJ_lg0MgAc0
zK9#&cQ6b6m{ib}wM4ZW9;s%nFY<uhPd*6fd04etW<(FTIcEvi~<BQ<X6?>dLR8r_A
zI2mOsbsVG!Wx6-7dsP*bR`D#)>&x#pM{RK@FNH^vxqv{!e#@dms2%v$KDxT&A2xNK
zT#S>k@ZoILYmn)<`9YeWBT$8TJ^-Oz_ww3P5`x42cRZ0VS7sfWWqhQi685|6?UM+A
zPIE<-8?21(=$en2M;ANbbQ}GVoPX%&TX`YXAV3QcgPL_w{50J>a(aDgrZamYxFGcJ
z5qe(Pw+l(U>4LuJg0&*M3_0s6t5g#4E}4)Y4fTs!)&>A^m)^>b_t}q!y0F7`{2-dT
z-R;!XS1&Y(nk!l#kj{93o_OH8kYpqq!-H6uh5MQggK0~~8LkY|5Vvb|eZUwPqDVWH
zpoe5U;dV`#ZnW=6`?o6_UYzT0Uc^)e;yL3ySZ@qIHd4mx2Q2+v`H3hucUOsXl_4NC
zqQk-T$<KqTIt|yNi+=!b<UDePEs$R9tg$IBUv+r6?NIC9JgR^V(Y~MpL4Ym!WX=w;
z`{|iu-!Fq59%(R?wcbwGG^JtLb!#J*Eob)LJc_2_yp(d`y)zUQTeE1+*j@8LT@sa=
zlCC5lQz<G3-c8*Wbx9`=ebW<ik!#d!s(7+_Jv=@=v<%1b42P1|zF=C}!!8cVmwNly
z$hu9~byjJ9;w<T8Ll)rm823QQ0l`zfmR0Qpn<!a1z<FEDrAEOD)02}JE&v^^hGTF!
zAP0#MWNzjjBiS<Xb^34=x!V3cbpceZ_!0=}LWsR}*3oLtRl9!Z-^scJEeI4xAgaMz
z6*<S7H)|HUW+rGr+P0Dzk{8<MJUU1fd9bduXHs`dACT2}J&1eeq)2CHMQwEDo72ZQ
z_lBM790ZOQFDL%uncVWem31p!Evp^7?fYBhK9p5I9FO%ZjKH2eI+Q$x?xJZ9)+i4Q
zK4yFg)Oi2N1+}G9b_~<fl6}W5ORF@k{nuZQHLTCHH}3<QctfuCIR4nky|?llArr2x
zQ4)jR-D~8$b&%i0pYJXoxcvLNW#?>c1oI(?+phQG2Xm*qu^N$&YG#3O)qYEQZ=TWX
zP(9H?Md^)p0ojl}a%GYpO&mC9vO5eq?(KWB1sgP##J+uBskwo>4qfx&5p7fZ_djPb
zE&cO`T7CQv`(y3U{HK$<#ulinp(}450dtth>gp*%wnWI&m3*}BXG%2E-XW_Vccz*O
z7@11};PN-*HBiI}yWC^37J?SXjV|{(IpT{@PxuuU;9{oQGiIlt?0Reenl0gFIX#l{
zlcJ2Lq$e{NW4@(^O-c`?U4ShW$|=h7Ku)C@vA=25jFw?5XSh-LN>*nQws9h1{{_^G
zyPMncXCLY>6gqzC(i5+?Qd?G3RCJ8gRZASmTPAq(q1UUmwgaCEx^`t@KLKHJR_nj_
zuG=evSIVnblm4uqT%qr&E6s#8t^-`@VK5<iKVVRKHX$Yhc2Y{=cKsJWdvjLJ_&(7S
zphm=km79^flb4<b3s(Qzvi^38YK4MgXOj^XqRF)W&ofME(sX_G>NYM`(VO8K73S*{
z2WdbqV-#XIW5M&AqLmbrKt22Z`j_Lp<;zdeVJ8zW^A<ip)?>TZT`A)$@zS6e)tt5l
zn}$QLys$jr*e27Y{Y_GgTJ|ZbtgP&GxmEF5(g7<ZDZ2_C5pInyuUnmJj!@F8jIX@U
zOHcw#uIOg`w)&}a%j@fs7YNd1Wo6}3{*pFDu^j>h`_ip$e4HaL@J>h;A77eyhs{Nb
z;nAf}#`iT2y_67!A5G%%^^uk<r$?PO%$T@q-1zZey;k>4XBkxZF*-fq0LFi4`1Zrh
zSMohdVH?HlG$y9<<GiguJU2c$Q*4uxYs0Vh|C9NE<aw7}E;z<{)O$z_Cf#dX_@HN#
zG#0zmO03ss5Mv&$uHE_+G+Bbnqh0kA&iL>--lqPYW^7{d!mm6dTl2}&ll>TNy7yyC
zz;hBYj|64&*j+9A7nw4vf+LFe;7oV?RSGJix6pbXni#B%<9mh-s^1OOTu;(@I&spZ
zPLb~^-$?<6-)(Vt@P#OPD<=vOO9t(70M&zkMTs}~Q}D3#ZF7x+j19@*#ZGtT-}NCS
z>SFWu{mu#nTd1Ujp^p*8DjO8Dv+t4{7ZUUr5Wm=UCvWIry$rux>yY#8jxNissbux2
ziY54x(4dWrtom-Nqa}o_;GI|r27>vX1;hG0r_}~sgo+dW8v*mmT{wCYr0WvM=TJg{
zJu2yFfmVhFF?-|^nti%=|EZo3L89jZfAfYWl)T98^sz+`C(S^+Xd9kR6blkbnrEA^
zJ6scYu`bfDyy{%2wyMqOQr8s`<}vMioT_`TYHH=){M~s1=20I-CQZqs!83E)vOWOs
z6(bmujh)(r-FKbT4erclAKDV19KBVarU0jR&b*K^uRe2E%j(VcrME4PHz1mYBBxiT
zq~4=9y#8gy+Utw2UZ-{ER6`ob*6^6UEErt?0MW}lITE2SB0*>(!HE;X;tZ-Tu%lV5
zoUUX^l7|Bka4hQ>8Z@MUO}fhpm!Ik<t6KSoH>VF+AvPvCc64ROVKg(<&B8YJEa*KT
zpteup+G<)%P5$d?$3`x@|5X~9#%htc`N4_i1FFY83nxMNV<2E=*f)lSEl5~^BLnb1
z))(SPXjST}bG(LKlk@B6u3A=C;=o9|HyNRK*JCdwnkh2lp8m>D!_Z{WcCg{m$tZ1U
zy~GEHY;s<>Eo8+INPg=5n*%%655IH7eb@G_Chlqb6w*>#wdc3ro*tTI5J=}*nyvLz
zW$GR&gM=XX`!YJGK=R5-6aHR^vQS{Zxhefw-k5)#LQ<q}@PQ`d^Lz>%KJ1(C>aRam
zWBHUFMsAZ_I_JGPUG*6u0mH*Cx{EEhrAe^_zSl=jZ@$|zTF3+-KC7-F$mE(tCCGyu
z5;)zDohBa*4hfyJ7;m$*S2O5Tt1mAt`x%Q=w`3&ibw62y?lh0!5D58;)AN7UMDsi_
z)=RX)hJShZk&9bF+_9D>-7Q);*y53^UH(=UK)}r{1rkUI%2HTrS`s#`<CKQk)ouO2
z3sKstw6rv#Rao3K!3^N7r0YckbW{1r1`GDMuPXBJJCOWAdhdBu56$R4Z%RdM<OW0e
zxN~;>`c})RAf}{IJ&oAkaquJ(O{l;ph<@r=ynFZFQUnO;1fi;A?V07BE3F6wodx7b
z364~0o|<*Zb_C~~sOBIE+4oh$ZAPsCmA{^}7QF756i$iRX2@o##EjTWO0p+f!S18q
z!=d8tHM(t+3O;Ooyfx4Nu%-%5Zc2G0JrD>GfhlgpXOr(Z7PD^ucaFYqxT8GRS6P4%
z#{BX^3QRu&|Dt~FA)m~~R2Pj8zx${<iwN~LIV4!f4Ulw>JDd#q<Pf_x|6<6>p~ve2
z6R0`<!|^<y)I5T`Noplf3rlXgTU+Y?Lftw70nSh()5BYth^kEh<C;(JmGqJ_Cf#`!
z!4{y?>lA=hk#RwT0S{!f0BZe3;DVa+JRA5$JUpy8qN%tzyv+9mZY_(iTI`nsn}9cB
z=G(Lw3~uKkq;_x;p|1QCpIz&n;Y8XM-@h=;lK2N4q?m0oxa$;vI0FLQ73Ntt??rhL
z_1{y{+PdlMNARc<(@`xYT+p3&)-{d%Q*`#+tHYX2_19K&oa@;l0(+Y$QfMe_&e7Lt
zwj)atMWpBiB|DDJudPhHU6|z7Z49y$5p*fIbM%p+j6TpcQSb()Z(m6E_>1ETCwF!7
z6Teu>EsFbaC=>xpc<ggi4t5W#p5O4z_qDGWXMEz^l}vRbh!_Oc3+Rw)+qv@v-l1Gt
z28;*HK2nYuM5jX^4E{!(U`eI2So|jt6qF{d@(qMk0`psU%#k(Fyk$%G0|#d5^lW%l
zu7}OTqN-r3M%-fyjaa3a?7e%6pgyuDf(x&`cM}_rUP9!D+r0WoR4X8Rdh1@!!<AMN
zhJwuvw>oMpgXHjG-$mMq!b^Zc-YV+vIdt>9Z?AN*>)5<G6l17hy2>mGo_$RtLd8sp
zS)Aem$t*wJ+Qe+!QH~#o%Vl3*v+xq?b@QR=FKfszlYaHQEtD8I(F;7LM34p38VIPS
z4@7J|xgnmrPUcy*<_69=^dQSFNV&WG!Io213yJ+y_t!byk$^W_w0I!p&}KbVtS^du
zQE1L1Cl}^|z4$q<mhRxOF?pY3lHMYnqVD-9*rdz4UB891v8FOayz-o-BHahL+c2un
zIEIb1K{GWxqL2*e*bv3iO*2oVnq+_^RY57$gX$ktEo)%g&8a8&BN1;)EbU6Avtb|2
zq{0Z3ti9MU?j@iuUAaiKt_k)pbsNc!$OseOH9T&&+J~%dYC?Ugw(weqn`L7yax_M6
z>KAP`-Ly1QL8D80=;p_?ddpT%WS5Bs9WGiw7Vv|$LnTtv5;Wy%B&+OYgyU7Bad(2c
z^kDUz>i&cYZkrj?Fc7Z0H)pTh08-V`d+RDCz3MJjmzpY?W{sqpj<5hhzOZm$9cBya
zds>;apWx@W^|7Fvl3{<!>{|PTeSlV=lB(jWh6&iMWcAaG<&?Ufn!>K-MdbQyo#}QB
zR?057ErX3P2&?wv0#0X+YY4(cQx+NgF6v}<$k6UFP9jKR9g#J89yY2>FHA1zSN%!(
zG&rS%>CZX|Xc_Z4$_{3V;Hx;(C@XZmR5T!sFL>ia5NX-v&NwpQM>i_<tJ4cO`f<$^
zgN7I8v$uUKoew~V)7)S$P7|*Bj2b1U3%+2b*h71Z>IuGJ-ok}PH1k+Yv9X~I^_SYH
zDK0vT#@~}bNiaW82zv>tm7sA`3Se0$_v{+JWmL!BObaq`6tAIlq<5!|$<e!-bb&n!
zN%Hu&fG;{d8`pn2<G10z=l7ENN{Yt7jY2}wAmIVIbxWG=t#qmX<k%O68TNy@4ER!t
zOT)X&Fo=3uPpGP?70qtDx#5qa#y>sv!{MZYO)$89$q4~Z*lhuS$m=m2dH7$;y?8+L
z2y2TF&df~I5gjP7aiTzF-c_`_oag0Py-+S3g++W|zP91<;!i~7Pm<*a8VEF%H$4{H
zuG@Gw1rsu)b4Rvk_V3IOhi)O&6<MzIB$ex9$f61AXAsSSb#*@#U7DB<y967FxQV{|
z!-ZaCtoKp4(WbFy@7|mFW$f623Y(}EQ;$<+-n~eO;G3U8^t4PJJap)bC!gxC<Xru0
zqu}p<*}2odPa&T(W|N%D&NiR34QV0^7~vt@5~2XY#9It+o&nL?QEaK=nZ`tcJ~NID
zd9beHHtr#1m_agHBht>3%gQb9!T;HMY{Qc8rr=|-oD%FQAWIiTgHEHgt?x%K>gQ>f
zNV5!f(`TU+L|iD)r2y9WKDi11B`R=fOmp0>LNrccbG>DfcDHU(u1*cZIwj?0_Hvr&
z{8yyl`sf7KJag~Oa>zzSZ`(&3i1zz`UzYsz(!PdY81-Ef(+*3pzg<zyJ!G#A24YIL
zHEa0W3i;cSWNItC5+bjXTZZLEHvCm_@8%IYIe_TuxutGYY&q&nF23ko(6El9N|<Js
zDQ!mHQ>b5EJ}CO4OcU*W&gwcH7MJlk&?tB>F;o8@a~T+V&W#T$B$Mcn-iI}O#<}`8
zJ|jDh%ckaZn;Mewm65<$Sc<93dE!0?5AD_z*b(28fupn=?k?`NNAeei4#ae<5^kYu
zS9nd-hC%GL^Vo6{1il1r3xw{H6#_cN_qYA-yVK|}*B}#Ej3*=wylxh8fDjMU)5i?M
z^S}Pbu^AJNaJ+-Il96)zI*UiLMkgK6@b-5CKOkzJB1VOG@73@NZN~5Ymom(eR7cKI
z5)}&bchTbff`W_EX(L{Flv^h5U)O)$Ip9^};P1&v^J#8;Mt8FvF@@7?CNh${(S)7@
zmtsZ27Lc#cf%g81{L+sw1pYI1kxui54I#AFFeA1Jn>;G+J?9h-{-Rf|{%7-m#dWGY
z{-5*iQw?=FbmpGV6`|T@tt~}cj*y!VzX!q;cBCQBjJ3|>)&y-6H4puF-9f6!4DzTn
z0RE<*DR0)g^#TwY>KBtEbz%d)qBm<@>E*k<GLQp7FNpjEZqCh*WLqXSvdibx&xc~Z
zYFN;lI}uI9Awt?W@*;iM-zh5s;py14tf$vAT53^;WQMU*yzN^1ad&1MHJ=cv(i`aw
z6Ub`>THC3qV)4)CeJXv58@7x4ZJD??=x2_;yIQ`Rd|&!GY2Te95^;3!ZP85=Nv64h
z!+{p+8)kh@kAC1+KagDM-vgqZgPgVSSY~c+08_+@!p+SO3Hmuy#BCiL9%VQV%6D;`
z%2QW{;VhNvh~`w9I7tXKRp7vLussLHH}PozEuB}LA~KL7I_%^8u_LdlS^R;R7|=nL
z1yrXyu>oFEE1$rH`?a6unR9%4FHsdT`w!Zkzj%ja<G-FXv<0hIo8)SRmzUz@6{yFz
z!${3tz51-CB?qN~Yuc**+0|HR^Mj0&21YVAXA-5E63G~Fab3<p=ZK+k#OJZ!!DmG*
z=CT2~lIM#pj*fW%wzEmKd#Vsc;(vMWWX0#nro*5ufd8Bk{gD>mxZ*8lW@ebuFJi<8
z48o^Rew?e+xK}cVV=E#^<kl8oB6<S#$=lzXb{*39zdqz_WZg709jx1!!E@6@9lLU?
zZ&QuUW2F(D&e(l>KHuRTX2(D#C$F#L6{A;wC_4qs9{=IL3b)ly>%aN`nD!XR*Z*Xk
z)T-w$|6kU~fAC>tv)2Fi>4=RZ)ruoIFc_{xRVN5#dz#_KRIrVxN0HTB(*<5*XFSa$
z?HHa*RoODNP5r&yKcH3AeLUyE%mv=A7d;Yi>}cl^VXCXN5b$$9T|R{@b^%<d(kiJ=
zUJgu1uSKh*`YTPga`gNxCQ!Q{7rL@l{jaKxYWo?<{C_3{h8Yb@L9NZi24xA_zyHRE
zmH+6||MMTN$G`utcWoNhMa^OFfdh#c=n1?|J*Q2h9eRR!NVwY3W1swY!_Z`X({^(S
zh7)Z?u?lNG)nO)y9<WFs<i5jteXc$_5Pf@)UdyRl<VA|U!GchmWg<|JP8*WHo+_x9
z%OoLZKr|Lv4DK?t{tKL|_cdRp0nK-kUwg<&UQG3PuoT%lM0PE;ColDyUEZ8U7Z-?r
zj->cO!TpBY+t{&5+9>fIb@P+!QYwU>PYfcrx{V-ReA85JXJ+{pe)yaK6t|af2>d!d
zwhH{Jr;2pVUOyNZ*3FLvn4{G&AJyU}6LQGIPQhSm_v&>oF9KouG&c;zU)h<0$!P{6
zz`ED?b4Geut0;US7RMNrN+F;~xwYx$C!Z42EqOgv@o2rNj|xXbTU@oIxOelT3nsB~
z!|Kf#$S?l|srW2py%}wcfdp~NeHZ*!3Xhe)ShAjCWeqwTwi7P^I6sEttq7A?1Vhjw
zd+3^(N<OX0_VOszta**uRtH5xW1>g!hUyu+fBEI>mdgg-S9|E(?_jf^&US0A)2-Wy
zUt8|YaBgmW|3rrkI}E@1I#j1+%hPAInm;`C?k9EKUCTV?C;iy;n`Yyj$Byf^B;aOY
z*OX^HSLPRLrkdov&vh(bm}+AG_F|#_yz1=IKK1V*DsEnpy>qb+m4RqNpP)Y~Lv3V5
z{FN5(UNgPUb}-%iW4pe_mCXSBF20YfB2?MOgN4T)3~vI#wH^z#(d)Z31T3{Ncbl2&
z{>DkIf=`hOsvt&h`60D6#iDXZVi<*zKnyY|DGeW8b)v={f-GKYMS_b`X0@qdhSZQ!
zb&w<0h}6&cKKtZ#A$ic^($nL!z0%Tr<;p4H^X@yLN=KdJ_wL<V4tVdQtvyXLR!|S=
z&Fk9ra~x29+>zK6VCOUy&zrrvk+a!d(v(^!6Wdrlk)vNVg*fYLqy$~y4R`$vG-SkS
z6;)1|J=>KOF#wK47}f@W2)q9v>aa?EjfVSeLHe))1PT=6q_mAu=}CnJ1}_q!mFl~K
zGaI(sq7`j7f0}^i)`QlR+n);7Bb=zrH>*8&e7zF6i0-Ms?LX%|+xIXCBRaR1E_!hi
z5zjxlD!+W_&MQ|<Y;mMqPas~hTaRBy<6ffa){6oh-ApaaEN!^A>Q+rmbqBN@4_Y!0
zZBknZS8~!ka3w?1Sm9p*EQGjGHtKu3`4RDvc$@LEgETDxbFIiCi2yk<cN(sju}Z6G
z%kN0%&QV|(b7V-4E!axVMhlBGK29GNvBAc8ISeB*!PU-Y(E&J#a^x-3<pqRZ@wLxr
zfQ?~B{}qz^awb)O)v@8qhEve(ZAN&{G&eVYkZ1Q6)=wZiA{3?01xm;4BsTt+(*G)Y
zM^I5w$bqeS0&nK+#Y(^KCu6c!k>_QOZkysJd9D;|lp&HrYr==*y*(fNg5;(xryHws
zuC+WYv?O9k4|m1g51=id^7QS?>*vc`H%x11vr|z^?h#RXtM0a62?pLx1=>6QWImbg
zL~^)9f|k(X@huv_y(qW7AN9vNb|5@r>`iUTME;muU^84(#rXHV5z8}(T+!e2GR~ln
zp7NNn$D=&{6#bv33jeKs8<x~R$=DO8`Rc;kwc9ZgjqZd{1T@p=%@%PO(3FUyb6uJj
z<~+#VLm;-|b^5=wFuZHs@TP)JK3s5*C~4kanm<oVQyq9F8MzzIHCP-O%<$HqPYLSg
zN6XgpXyvz(D%QVH`L^yGRGbX8h)KSH%yilh4FLYvf636I0bWgL695(q@!46OZ&J2I
zBKL?m@>mbFo+7i4#|_@gg1!X}x02Cojj0^R-Nj(rLTMecv9a+<<i$$z0Q~=!wz5*i
za9qQu7yL;e38R&^3@I^c_C+{L7*3kB3*NO|yLLT~@7EvM@X2z+j4~>_Gw>E>(G7n#
zyY&FOhP+;_-=1$G3@p@l;h^Q=<D;|t&Pmj_6v8TWx6FuQ`%w+Qw0&PACHQd1U2@=6
z9(eI{b`HigXk6ktl*MugBHM00bJ!y2bAszQJEQCrWMjUl!I|jO@|i|Uz&u}kzdqt5
zm766oXUm(DyVaBGX+^cM-`W;!*||);(~#A!#1PZf8-zU(m<%(u9ZIlhOKJSS#HjQL
zNLb{#p<zZZY|IkgOw$HVV*N@s0L_cCz98wU6lSgodC$<5NE~D~#;|U<^_Mptf`z)~
zE{-Pa(0Wx{W>%a1^XZ1C%~&t*5wEm09Iup<De?w6|8)yZDiRRT*KV7u!)b_6aO2pI
zpA&i|Uf~^bB=~lD+E%(Ze@*-h%{VKvKtxliGlqm)>=HnH-!1r_serHM6?~JH8I(im
zdn}&R@cl0)><HP%(IfH3I8WOB_EIDzEtItl`}o+UazU8d6*|#>{^@@9BFs(OzjW$<
z*EvdlmzwriOzYjJC#)k}*pBGe@4|$24TE*bpm~J(JC~7#0}itwmYli)VzXW+gm?MR
zM<Sa?ww|44&q?8wLLQo}G)65PQ=@!b;bV9!h=7dwj*ZWzi|;Omq{UM-yvbLeNTZe*
z(qIfE#sT@moz2yE{lIi;-Y)b{wL%+xZ-QrOm#7*1cW_wx0Q>S@8Dme_4)2VjmP3@v
zwsrA0mNUVFd$_mwan~~S$kv8Fcx#@cFy$<HcR>=36{!QsgH5b6;TD9b1z8=cn#1Nq
z;ZL;jAN0W3(*O#DqokiD4y+%KjHWCjF~TB3Rq5|BXF>eLj5^C%Mvgu=3&Zp4nqcsq
zWiz7rS+2Hm<3^+ir@)A;K!xex4yvIICre4%gp5WAkYR03&Xe{pf_tQk;RRkeKuzgE
zG36jaR_V81+VOoviHjWnLa<16Do>4c`Eubs?cj)0?BkZzAO8+V<mJ?*>7{+WeYee_
zg;8|0^8;pfF^m49pPb6XLq9{+-fzU_W<@)3heH{+M9#k!s4+Ox{d;(-@XEL6ox0qK
z|EO`O15Qw;z`nD2p|QcgbMnAK#>w`47gjz~e@S?#_JcuYD@3=d8Av@U@%uo6+KYj-
z=&BA!ULKqNg>gBJ>{H#W!?N4g3~v;QbLO~s|Malb3eV18zu6d|7xq3<siG4)FLQ{q
z9%nI{#`{-Jhd<ip^{<ag%F5Vj;<!ngv<4Neb=>dLx_j7k3;kItAZMeFpHa@Gdiw|p
zggz?_(L`;#y&}8AMYG$cKm+(0>=va0@4YXe0?|b{E^+oq<p4;l6eaZX<Y5*KyW{Lg
zUgQppWA5I&*B1aV(Xe6ZEL5NSIYDrq_)o2~_aBU;{Xb<-zklG8h5uAQm;R~qmKy#8
zr7EZXDJTEaE1&pUL`NlNYC$L8tNF-(1My>IW^!tVQ<o-}+*!g}#5#(LQv0@1gCK|J
z(RjVx?C12a2DQ9XWZx{RtHQuo@m_^oMpCv-rVksa<TVZ{8+NZ9TI13zv@hCIxcWp8
zj>3E`XMgs^uA(}}u~ge^@)!NG!JQx8zyGAwu#^n>dw7J&?7DO4*XKS4{BHxce096e
zLs~yHb@kW(Wo-UG3{AtA{QC<l|LLIrx3B!~FMRH&;4c+5H!@WyRq1dQFpoAn!N`#v
z`+0eFHrZN0zJAU_W6PT#L}bVgYJJ`J=+QvRe$gZ>zP<ex+pO##C?i(`Hc34+tw0vj
zZTg|afE)qKYKqmD)Or<_z_`*75OT$1)1=0pV+)j#QV~h(<KaY1qAn6%j7_^{``#}1
zzVg_pQ^#*MU$8OtoIfdOq}Es3rCn5#In!i)4Sk1T6x0~cNQ};~32OK4JC#0}Z~|AI
z(rewzXZaOhZ*Fw`y-n<n$t|PW^jml-$~7x~7Kq$Fz`oFw4;W=A>p8sO!u_FU+y0(-
zC(o{Z(qlT<_r@Z58hF6v_O(IXiyB*{A01(PCMLT7gVo&Nl7iFKCFPNGJu9Ya_h@vW
z-Q$=m5AWMI?YV4c<O=m&PdVi8ux;9=<aPJx2EBEx&5qu)t6C>^-uzRaPD@7+TE*>6
zOiPw0;vJso?VzLuK6>=1d*bm?j#mh^T6YFa)jkt*!S$Q$@s9Z;okKouP2bSlH<<fa
z_$tC~SdWZW3*L-$6Dtor>y(Aa{I(x$vm+p)tV@(h+s&^!K&zM0owx=)q%_h}y7_Z5
zH1z~KCcQLbv4H?%V2EScbEE6nMUGRFr>j&?kz21faG{7po#Wx{-Jd;9+)9X4gUx(V
z!qe)!c=cAeeOabhZp`n$=*k2dd*<Q6P6{~6pfLXNuTkHfb;{j{fXa25`ox+G_<+p&
zu(SA1dezKDS=t5rnvGg8TsNj~W_D;{l!-jVJX9;U6d-iUu|#B=?mj-&77WHS@`qEX
zzO#~QDIFp_>&EbLc4$tNxw*k4b*+gQ*-rvwiVg10F*lc<*psZT2_o4Y%=sQyqsmB^
zR|UcL^}qAVCe$MknN!Y(!tJpsOFHf-e&L`~`!b%aF7;)5o84nRbWvuNRP?QTkJB6m
zZ%o}WY~jiG>bsVSPqbsChUs71!*ZgQJY16g>e!dFW@qfo=G={!)zLbA`<{!kf46C?
zPZ(|PNpn|kZN2-B_~(U5o7tNM8ngD!OMBEzeNsi<$X&ndjxN$s@<;k)mDo>etfB37
zILKm1%b<}(8cb;A&VYU3=2vf#msOb<H1;WucWC+Zn%1N4v~6|C>$r9J1LK)0RUaE~
z4hMejH7$TDZqNSx{jZH?7o=nV>9z=DJ9DNk9-_T+Ld6`@%GMd{YSJ8xALQoO54cHe
zv(1OvRk~<WkNj>-hsKrk?C}|Wbe)<O5darHR<aMB7{*G9vL~xws#A^%=C7f=!__*v
z2yYta8L!&8Ps{A#wDd0`V$-W!v@0|#hegCR&-Fjw@r(6W#-&$~2aBpiH3vR_zW>yA
zw;%3~nkV<sr+LIBFR}VDu8A?LnUkSU2|M`k`mk)z<;fSIpM2J}(oMOgJa697Fw*^S
zq^&<qbYtnv5wsT5rIXa8@Iq6h2<9|^2%o0e2X2>lF~a|<_u=`K!!Fd{MDU;XP0b&e
zRk_@G^#ow16f>i@05Kk#Adb>+wEbWkEnTPFsm8V$gM4SS{$g{t9zE`eU&Id&pah1x
zDTfZVFb-y;wvIiNX{TQ@ebaWdbcY8!>K`~eY;dFO!1wBt(i{W#R0dK(4dfgzf<*Xp
z1J{_YRW7|NwjKRuM>K;mvSX{C^IJ#U@vTHdY`c#gyoaWyUzF`F3X6#~HTU$Irp@!I
zbXi6uTBZJbix?_%npy|mjvt_q+ym-$2rZ=XCN>+}f#u1qDNaesVxy%jT=w$yq91xZ
z+|ATYIq2gPgxvlOph}5-+l8)-hePo{(>I)Z7?r)=DLT*Yp>+r?Ww~1m0t0;J0LIpo
z28^lb*VXkrk;1_y_V;Y9qCW-+;-!e(+f9t@pu}%KvDfugdTVO_>Hk4{{<)Ppxmj78
zkHp(Axc_VMNq$qcXWzbO!cd_+$w$XXFwW7PD=KTA8j@;7P%Sc$x#X86Q-`{DWg@0L
z$UR>_5mRHeHl+TTbah<%gR+{c_Y$pX!TwD#%Nf74&w8iHuaAA%roy^tKt?#V`%$y;
zo8bueqj2b+NSnaUup0Ca#xEzc89iD@RLkBtbk=Q)!q|PyjI%Gl5ACb19TN(A@yLm8
zZFNe7XXQT^Kk%)4MF;C&QSXi>ckP?{6qiTxn)hR#p9v-5ctx2yC~ZrAf8X5k8GR2p
zMb9_3wdpyj=#OBELP}?GQE>B<PD7r04)yE7WRn_?-RSxbe>mjjwbmfATG!6}Zu5@I
zOtQnc4LrdS%*+!aLz)A`Kgr3fdCg;1PC!LO{bVs$4GQ0r-#W#7XJikPN@dR$P}(5+
zHR(S#WIJ<@-4y6vgf~%c#lxGr#Xl6e=SF7s4H^;pZ4=Xv{R0vL!P(Y8lDG+Ov8JZF
zLg&-zR8(!Y6+mEjgOrNIA)4>2$1U5r@6wrKUVt3AgWuPaZQCkLY<Fl^Y)$W@GFWdu
zA>;BNj*H^=DTNu~Um7hs`Mzy0RNLYTP_dbdZue-Dy~OeT$ij?cKgSqm>@<7$;DI6C
z&Qgo24(G%lrGBVL40?@r;!oo=EdDR&ccoj_*cu}*e9co@y!%3X<u7H8$E9yD0*ii>
zEy&q`ud0u-ue;@xOsbEA{s*5bCdLl4J8PGEzlO3-GESouAV5{LZRQkhVr=WWw~=o3
zOpc~OJaQIndYYStQoX_HL((d1o|+B_+X|pPtxcc6BGQZtpPxVcz2#^k)+Nuec_RzM
ztItn0GO_n)b12G8o_qf`bMLyzU~Xw{*CDY>+q=!3l<0O$m#A#x$j7^jd(W<Pxye40
zRkldk(cL&=^V8MjJ|hf2UX3$YGu)dVSWN7Pvd6}5qP{eH6E0C7)HJM6dh1^v4j8tl
z*kY2qvf~+R_29u}Q1(Zwl5oR5`mX7V?DtLq*NQ#N8y@}W(=I%DTZKKq=vL7mEiAUu
zzE^Z}o0eIl!1tl-06LR*blBcQPw%-Hu~r;NKteOEbniznq}Utub}n1FYE_5OG{KR|
zP%z|u@a{crj$iSDN$%@+{N-T0EF^h9?nF;gCKE}fm09OqGEm-+^!E<#SD#As+q*9)
zBmC!63j1BCB;XcX-S!c!D&`xw>&gXw*K2A-d2!o@RAQ9U@p~!Rlc&#|Ih1NRcIcAp
zR_5>0ZY5Vwevh>A9`{yK{Ux*4IHY{8TX&C;L8q#l{~398<%4fmK+sL1hkOHmsqD`Q
z)ji{0*{GAa+#}K2pRWYn)R}dU9Y4NcpVsZ_TkqW`MoKQRVrR*feuFlq{-|PZO6I0c
zU3Gc;r!77D^m%aq;ln|3wgCy2#-TR9OXvB1G=*7~!JvgZ+b4(SobYROS+c$WqMWXA
zO@|>WPLsXFN%61a<0u_ltaCuE==ie#+kjO{oX^CXo=?d9LTg`d4CZCtU!hA_8O0bF
zAlPqY``6kV;|90xH011`@AV#bU=Yncf`<&Q%f}c*-r*dQ8DyR|RijuS;dn^B^VrsG
zI=|0Mnwzq+)%FLkY%n~%SvuDp;NuO#U?Yr@59R|*Pd8IYrY<}D+0VMRN%qi|cg}bG
z<}cpAF-U06R*vP9LvZ4Ww5e7tc0`+1&9uzbj;W8Q(*|dHkV(zu%fp)M$Mv*~a{fXj
zgi?EvcJ_3wbkQ!@K%@tkRGa;xFf3O?l)CIs(x!#Z{5%fdcke0p&H<8$-?2Rqj@vh(
zKi&2@%+ZjEz#!*fch-<-fps1hUw%ol;SET##mYhhr=Zjg(OslRE^%=8OBHL<FE3_t
zE2DM83Zv3JCZ#)a)#s5;TP0EFOZ4JO2%MrtgVkZm9+m1^+4}yL5zs}cmBERAA6L}n
zSxq_?wm$foU-;PM%<6`kN9}*0-u*voy1M#L?f;J}*WdKNyJbb~-`D8>=RN=TuKeG-
zu<{x3{`ckLe*!D~w{Ka-|33mO{@YjncNcCp9Howt!d^{4*Ryz}9)d;jw7GV6*TQ5w
zF&+AYV2d3Zcigq?qrR|*88bL{Cme9i?)9HvsicT#huLiW4QV()K(47eHpqMrE%l}r
zBlu0{*RzF_9y_*@_$192syS$cgu|s#<MRD=V(Ut$v@*>NxYnP9D#jvn+6KO+sLS^6
z>wZyquX<9F)KEI=I)rVf+m*xM`>Rl#u#7w2HQ^UNcJ3j{xUVk(@rkRhxEvhR6atoo
z_aMY)nYy@D!G`oyAw==ia4Iznwh)@E`5&&-|7vQDFW}>}ng;lsOoEdcRcghHC6|`&
zSd?<Bs_>?sO-9tVd`%951)&x#Xi#LOl}Iqa+{9Xtx}h7m^;!))EQQ$xFEc_sC)yPg
z`{(mfg9|Qm0vt?a@po@fU#?4Q9E8b8PRa3M%K8^AbR$lX>~l$N@+Zl8hYBWK-J$-m
zieOS#&P;rQ=u`|Xa@L@)UBH#h5xvm>i)=*;hq7&>d-tBqHkJSkZ<uAk-~<9Yy@B_c
zH~BJ-WF5w+Cj2;0$IhEE7ZcsPIRf!7xTq}lUlSB|CMuDmG-4}$xoMw&23><RGA+h?
zEYhCSO2MqMmzN9AQwv2Q;}t=*+Lv_6trRHYEo}{l>@2NzktRN{4w>c#P30RLx;4?n
zq1_U!lwtDnu|Y^gggMR20Wg#LZ9Y9tm-9_SZGOc6&|dpesJ4l|z~l=%)X5tfkD|Kc
z)b4xRs>Q~Q#sv{65wo>bTS$w`=(x^GBGob!R!p-GskBh`cqsmGGgXHa5o}dru5{mO
zVxeP-qN)FoX!}Hy0C69ox_d&Cu+;eh2}&PoeK2UOpxTLbr{A<;PBC5Vjoooil%`Sm
z947BxpyTcV34QJi04zeMoVxWYcbj2!<dm$Dk7L;Wo*=dAqY|u0+QqmDaccv9o;9$P
z>>wOor>9u+B#P4nf7SM{poBaS044PrE&r;+lQPn5?zGY{fAskA3yhpD04b~7@Ps&v
zZaI5NZ-+hqs_Pt~3b1=V-^lUWEcssDNp(_~+Ep<1($1}EiC!%y_7TjX*LpvxP-3%@
zKDEcuT4(>)HFW$wiiYSe8NPy5UsD#W96g|f&~^51C?HhbVshSCALWV^ve;{Ay^y;d
zkCQsoA=Ta}(tg#WBR{Cn!ycP<dIQO_6*iwHZjUUxjuJ%Iwt|vkVi2~p&zSAs7KoOm
z<~$%9|5mH<Lq8PGdP1qGs}iI6;){noJQRPlwkkIo`KWn+Q04rZo>Dv2as6`7tyga#
zb7&t9KyVHDs&s<E+DUf`<&Q^zcTDmayEn5BMt=wNhGw>VqQo5gdZ;t#>$Yv@Wo!(3
z_UzfH0|^NUsa9ip^f(=r%fXmIgsnA9LY<KLDUq~2E13&K-?0!$7XONxVZOolHT%5u
zK#2cI;Ek;ncG760r5yQLR;A5cREn|Lu$d1Av<%tKc_by*N6-a$HFOEG04E&c^|zFs
zrGci~?mNr^OKV^9q3bIMH_pn6#=2Y~<BXiOHfd7d{{3fsKU7)knrf~4_oxt=!6J;9
zj%4b=+zF9$EDsdRZ`lw0Nxruz3U?PxlkitbFbGqhdER+7VExNYRRtj(7O}>Jahg!Y
zIFGIPu}-5?6eTIU&KP=YbyC%1U)ijtsHp@$E*`c1YSN>yjUj83y5CGSU9EgC#x*sV
zX>2_r?v~jQ=lm<`OR}?PVqK;>+&l!;_7)N-2nhpN>ZAE65#B(bJty_WRpYb)wsXgS
zmbP1Ft%qHn#hUUI+XD=ddHXG0TJM%-9wFO?rP>`j>>^^y1yP+v&gHzjrb@Y8TgM(k
zDD+ez6cM9~QC4+cW}LyHDS6ZL{ln50z6qD$M)E)UrA(`b9qOmPhR7@t=Zn={(%QSV
zRwjUI0?y&E@UVQbv9T8v-J-SMQ<5hPjvJL}C=cg8rVjsi{uY-iMcUSpYU#n6h>Djb
zYE-X|c}974i-UrsS*dkbgA3%YT3T9Xqi$fgaDm34TTnF;%H-2MdZ1tLExU!Z0?-<}
z;LQiVsM)A`+Dn3j{MdA@3+eJdqZ;;c*?<0rDUJUqLs0&wvYKvrzxDQ+O#=yo>D1+}
zHf(#DfKjNI=fg$JL!2Vrs*5AHg@GFeu2)cKgS{y8W{oa$2Sc3)b_Nh6(tDAQxO;fa
zZ@=4eQBqQpu!+R0&aEd0ULQ$IJsGqWc)I@!iy+yq(P2n}ZkAm<*?dF9#OoF84(y1F
z*~a~EjA6ZvkqUrO4yJ9<NS0aJ=FC>IHAlM4%~7QJ9mY_5*5%$TNYQi=?m?&<%Ml#@
zH=JPLDJfd4)kbJ9E(Zgb|8iq((kbKs?tgsa*(Rv%%hYU};Sc>xR6qoOhZbCUlzrgg
z>&<(uO2nYnx3+qfct4=eniE*aLjI^BQ($Zqt(G()B&||>%Qm=O31P;hZpptmb=Isz
zb_-}{Ey4#o6Qhxbd(1pEyn*Y}nPXzUEoBanV3wUed)P(xS4l;PR$gp}vCYPxX!(q;
zG2B<4P#k;Eex1+hbSK>F;z;9b*kDP26TR^L?A$FK6$)i(kx|71VZoZ#jtWksolbVl
zvVuEz?g;y_Ee>(kn={9);}PD97MuMt4~3I-`J@^QU6{;9qleq2S#(h+v(E43Bow4e
zbd{)hq>za4^=fLfZvgwLsWp0uwN6hJiD$VyHO>v<cp=TT6??9x{S`R?)L_fI%h8&B
zmgX#N5^)jDo2aBY1>^$N8a%3+n*XmNhHkcybGC%Ur5d--+&`>+cv|+b12TNb7{sDm
zT0bO&NuQ9XXU^R$pQAJ`Xto=1+j^0;nLAIV3LkP{jinM^eRZT#6CqYFk~%@hT7kFK
zU^bd_G{g=DK#XW{+75!>Bth6NL3B@Q9K^HU>L=ZxL1)nhK|ezR-(-jB#<-AyEyp+b
z<hBLI#oJ*uE{Ot#nHWTpt*wS6l{7&Fc;^==40E!Pm>HQ^pYG>(=FD3@Xhhtq*j`O1
zj#jC~mWip|E)1#k?d>~jk<ZA9U4lV+MNo%^EY&VyMoz1*Fh?*It4)o#RQBFdT$CuE
zt$>j=t}|fO?)>BH6J$?orVOHQadFlbv}c1fJCdjlv%>#i-IRyra}jU#=-Kn`v<In&
zJv_`UMsIp|gwugHtiVWX64HxrI(D?Qd-LS?Bak7?n3$DSuZPeFwC%vOxrM9BF<-hP
z=NatqO=Z%r%gV}9NBpEyWUsmhNY`R*I*5nzDc`I`>SK$m9a&=!L%dV1hf)8|QQmA4
zmOaet(4n~*k)#)fZ$7x~L*12=ya_gKmu3%4fy}momrR1h2f|ohO^1)h?L^UPebcVp
z{H145*mvabD{l1fYox054e*W2uIj(nHsEZg_aO7B2YuHdMcBub4SQ}8gu&Q&x2K$u
zI!^M17k8Q|YzSXpx?!E#R~24xBiVRy?a@^}a!8Op$G~N0W!-;e^M+|I2L0qHWhAmU
zy<d^>idcK{7>On^RWwHoJ<MV7rwROWBnRzoew?6&J=Y1$*e9SR!7Oun&(ugQ>6gdi
z3tu8Af!8l?1a(pjwuMRo#FB`qgGus5u+5&bAlURGTd1rendhW}S|pX|+0IfqxXpXx
z-c}kt>4IttE03jv*67hDGXsbh-to9O2vEu(TA`<Kyz%|WO&7#Th^GC!(b3u{23zkQ
zFBZ!bGYZt>Z`}{9;yh9*W>9io1GEAuIWjCLnHCNzCMgIkG3m0tHH&6`{<CXY==IcW
zAEm|-Lx}O9Uh`(obfNgVwkl3Tx(*Ta8FC+^tkMtF<mTnthF#HjXg>GW7W>#E1IG(1
zdgaQMM{)KPNpJsBE}y2I;}q>5&n^zNWl4>V_g5T9WJbKsZ$4O}HpWiTuJhhBi!=`F
zQGwyRaYnP}1hGzT`_RG(8{zSaHQ#^ZHB&>$!)+YLK$Q;*Y0;{c9yf3CE;%I5W_aga
z%(tP|DXS50rn;^a{xE%myIs{E3QMjNNxq(DN5;-R|Ca5<!c~d<eWS^La6HnQoDB#)
z94bu55F;uoJx=$cAbOODI%{r5P19DLR!$j&&w$y|<BY<iko{z3#9)&*&C*b3awzs6
zt}8K7ycYF|Qs?((Em{ml93a4`fmuqkv=k=|eLLlB)TX^|Ri?Xl?(9fsQibWPY10N%
zA8=vxE$+E`Mw5!dlWRwP+7^_uev#M6pnW&`bDXaWVD#wmZW~~pLXsnJT|e4q^yt)!
zPNaaf2vX~+;mP|=(R%7!tYy-kmxBU*IJ}%3bMWA~?2XpuLKv)6)OSrDGk#ag4US`G
z1|%5Yz_$~NLAI;zlwg#_Z*C-u>%nnNlTL;=p^4_CMs^bzAV27)^jHy~XGk-DOmt?D
z9J|oGb?e9F+aM%+s)(e*MVH*tAa-nzG<uvE&iQ$&IkL9s0d60fF76CUy#MiN6AHn2
z|MJOoN)<WbBKe-h)jR^NPU%9~pT+K$W4ENUct<`SmS^$DLwY15e{!9P4(0Et5PFH<
z#}94Nk)|yX`@OFafhST<H=Wc=aVCWy#>^VytL<?&EHe->ob7}n0#j<5!6;=^im?HE
zSKvy3phzHRfdf*$9}GzG)W3{fdSOP%(BrZF)I2`S_+#ocJV(Mt(J?|p#)x!%>Y~~B
zj%sGtHg`~k+@8aGVH>_6J2D%n=whj&jK_2v*6u@6cKhyF9=1qTh^Cr-MvfdAR}wby
zT~kG4^NA;)2+m8$W8C~;L8pZexw}&nnbxf*1x(-tZ`MeL?l)~>JavPB1ng|0f2UxL
z?K4W;_EmE@G3(?ykDY*&Z7W}PaY*?guXb-rp-o7wV`W8Xc)FX{$h#wm=wj@RtQALd
z{kUiS!V;|8dMY7WhjU9yEr1B3YU>c2FSL=Y#QPug3({I$x>V<Q>}}<uc(#P4umg@u
zjOqWxbi~`Me#vH!U)hM$uefZ(eUd2jg>!7{q}FrZU#ku;De7xgyR+T<jk!G^_kZ2)
z47-C{O>LXzVpgt+J?_;f>vXzWI{GUqPfrlGn2@NW<{_u0q7sDU@#*9F#ZME{Y%0R$
z{I!N?vhk*gLlwdO!1=2F55nfUQ%BEZ_C2R0xV|BC61C#v>gl?*#-l4%xNS&Ei8fEo
zC3=*9EU*2I<j?(NN^o>7vKfPzjEl!FP<|b2QgCX|%$>@u1@Q&8r~~9wGy<^)spvI}
z*iMHh&#pR-z*2<@ZO*~`>`0%HZ%2gOcLW0(7xLiIqkg5=p{-T%e7(uBho{eebHV)N
z+2ilf7)<RO9%{0f1-nfsFgen$&gx+5^y%_=UNZwK93#mHH9~v|1Ud>x%dJ1@OLA6D
zNW)j77XZ(F1K&J7V;(zT->B0iDHR)5t+YUq%{JFlg{Wcc$$YE|X2$ymdmqmE5YIsb
zBATOAM~pOu4W=Ip;P%Z|yS}IE*R#L2oi~!VV|QPYBTuWWEw^CW?6fv|R((#&G0i-M
zJZ_WjrNaOYH=ZQY{H>c8Uwy|sHX$zh@W!gRxwA(5i-nNrw)oAG>Q^gS+}!(;M?s(f
z{#6?Evp`ZwMiw@=6=&xrt?C$Ie@IW2Gvg6q;|xnTXDjjwW!PR@dZGF}FKBh=38zt=
zL6(q56j2h$DT^QFubBumb5k>qy>{p0K0q`JRdZ1IJ^JPeqzpA>uchJ!9I}6z`WEaI
z_N1(5|HaDZ1n`FE8})~OaJX*sQDZ1NVviq_S848Zr|uCZ|J8ozxliQOJu4rz>7uWx
zYLeC#8{m4N3CK`sAw8$=cU~23ICdowm=c8YM`mMq$>Wh?p+J?-<PbR)h|)n#`?t?j
zvY%g<$B;9|zzOnZDV2u+eU_!2c-W5ltry@woTkpN(s#yx$LYc-Ii|Q3Mpjt^Vf^6*
zp{0jVe}6os3sP)F@t-y<SKJnQn)L05qr{6*wIW)PLtHvPSmesVa8?K`2x4Q`qA<j3
zdr+>C{qW9GX3Cb%9v{AKlz*8)KtO=lh>JGp(U?hc<XiZs56K>$o@elDxq9EkQzoPw
z>*wZ2r!`%}X%QoqFdvo3Pal>b#Eh6wpnxX0iG7D>KP><U?Vag?teg{GEijwJzL<P(
z6tLqoPJJk{_Zx&F)DIo71Uhk7sHx5!le;8<FCgqK3$#|CyQIz4%@0Ppd#;%jLDyNY
z+v0ND=jhy4xsTZl-(r`cM18>tHb&vKHB~K)SMjJh+v37dummv2rB0y{b5-Oz@dl%j
zBIwB{{5F?hPnIASD)dN5gl`g*Te$z))J!Lz;Tuj#h(rCIy;X{UN{IH+;T1=E%ft6X
zP*^>Tho4ztx*i!1=f1_(WGSu5l<-KJ;AV$ymiurTRg1dr6Xg1f{viX{f`@eN{kIE|
zS563&LrR2+CGjAFyrs`HLDW*-`X~L8r}f=v`U<{&TYhfZHEnR5L}S|-57M0Hw8sd7
z{A@L1Jh7-HRMTKXkMaru7xWdvvW8>U!EMO|&o@d<t|H?sXFs7f!j9&Qoa-w3Qfi31
zg<JWjyn0bWvm|G-$8r{@Aqj4&sGb-;eXKYab>4JP_91f0{GA<4XS3tB<0cpuO9~XJ
z9*wLodB({4h*apWi1i+6#OyXC!EQh@Vvi1<4B93gF_R0dIlE9!grma1xZ8iuOq$WQ
z^|@aZvP`fX(@g-qICuWY%%2a}iU8K=2;P~Zo24CLH3wpePBwmYdCF<3B>^P`KMc+!
zI?wsDKL0M_{q|Mi%u$n_si}1z;0J5Rw;yI?s~H!wPS#M$$hY??Y@{~3bzL1hHXb-^
z2yzt4$NY2WgNp4tS9j%2azLTj1Bj(E-{AS|)>em4j123h@22KRAD52)NBVh6(AzaU
h0zd!56inIe+5gJuGOWY00djHG#F-O<#x4Ene*uKuQO*DW

delta 46995
zcmafb2{=}3|L#kM5K?F`WvC<xMVSkgq(Um0LrP>8nU*0L6O{%<h>(yX^AI7WP=t(;
zOqt1$;oNKQ+W&K%b6w}SzHjfouh)9ldWPTco}M*1y5jcF70>6Dh`uGdF*%0qRP0py
z58M{%eyT^WXO;H&ln(n4XX>f6y?et>RTOcs+E|^m&i<&E&=@Zeyml)~*51rx?DpQl
z?^f=r9%UtdsQK*cI$D;i)YR)-#9upUS1$AA`-8qk#eso==KL#HD$OaBO_al``*obR
zZ#f!uH6cMrrJ^qH?OU~J!nvpNx}$t&?0!G%8-|94lLkZObA0JXRR8{*yS0hdD9<1)
zG<4Oy2M@}dn{|7dr>2~&I|?`4+HzD`T|IbpXR&U`_3I~%^>uZ>yLQynh_;&D*SOQC
z#~0=~@jZw#5cu~eS!lac$hEAj-J(W?>tDTkCBA15amb&M!^G6ow^nJHd)-c>8VRE~
z&91w~UOw5`QU`DFMyKVrrW?u`6uD(T*9y*NW$F-#6sekAUedEMb8tT<5V0~m?C<3R
z)n6!cxUOBZMl<!)4vlD8jtrxscfZ<NUY@UyKfr`LKC_rD=Q2`SQ9&zsDD0|%*lD7O
zFslm7y)wBaj87@-8Z#H?#3A7h0|SGGrsX9=s?ydR+m{L-FKO7A4K<_)?voYx`y*1#
zc(QA8ekkK*Ht*XH&(D^RO%0q_Se)rhHY||lm3NKxN<VT}EZ2F6lZ8k2s@wD+#}?(F
z`WNSpOi#b|qj!`iel}-X-<TP0CGPg=@$>T!4*mG>fa!mK6v;HELM<(=y`J+~^W)+C
zDt60Do<du;bT2LbUN7sEJfC;?)|R+St*-{FK0MfSNJocVSy}mA4NHSjky}c}p&Pu{
zAMCMx%Ga6aNMC-9c?BhOqZA`W+@>wp;P+5vMa9{v{`$cx1@~V>!%6eM4<#VNpCvZt
zm0O;5{E=dF;gww%8<MGx968dEthM5S^d;Y<q^*=qo3M}$AEr>0l$0LIxv)47ec=#x
zs~)RZXI%RFHC1UrdB5V)tQq+$*%up?hreb=+`AWuhcl}P<`9>V@G%fObbX`LbJuZG
ztguZ2gaGyXyE_AJ-MTgJVtMYIKZa}lMAd(H6mMFp*2-}9?AgJgGcPTAWi3Y9@>Z@~
zsj0-f%VO0Njr-bxuA3j}idOopps&ldHxrIjr|ffb%9_6tr0QE*x=$@p+q&fi?Fzb8
z`wkwYdvYu~sxJyFpyskG7u&x-1RGoAQN7Ww#pf0K()6+&cqZ!)@tt#*x9?WHRB|-s
z)AO?`ZTZejM;}Ok7@tl~7Tzl(Lq(BSP{_n}<(niVB=)PRt!!&+bJ}qCf0p6OG?%er
z*KuXfOBXLj4XrmbGYhORoepb!dNP$$(rDmYcegKA$2Uxz8lk4PZ*HRZteM#@v$i)u
zYwJr0!n(7V=lsWq`_<JM2fw6+yt>pHub*QRuAWGzcKq+QRIP~kLTePMo><Hoq<SUn
zmYUEYbw)(Qm(C{*FJ8Rxjf{+}lwe_D*{HvJ^`9qYW25rFP`~fL3#eACU@BB4uBfT2
zmpwjoBmCh*>we+?{x(lUd-SUN%*cMxk3|QcX$mv$9#N6H*dVOV9WUU%Fe`Cqr*RmT
zPgnipLxUMjnC&9B>9VT~Yc*4}H?P<t^mhX19|>@{S~Wi1+@H((`}dlGTk45rU$d<w
zEI$b)BqjB^E)m!cy7^AqzN8z5NLhU`>932UQ#<_kHg5Ca{;BRsS#ef|@jS4ypHXqh
z<HmX}@2&`$z8(5^#D#4!gO?hT+3@I25&myC`TF{H4GpC>KD7M&Bn}&8b}%)=>2~mc
zpC|Ozxe5vhI7RpoZ#PNq+C|<^T3?Eeh{io}s?!-pJ2VN)zmFhbXmT$2T^1@v7w*+R
z%DtzO87u!-*Wa5|Ri&+>-Wh3mD2#jCr-kwWR;Jrm|9+F2yXctq{a^j{f_@*j{=K3I
zW19OI=QZpERaJt<rnC6^)vGi*$(mHzR!!GZQ@7WA_%O}pBYc|Czbtk#=<lV1m6K>Y
zo;?#4HOO5(`QyWT$C{~u&k`;p2J5-Fh9ns|d@!_&zh~lfL_!Krxw++2g0A-T_v<Fi
zolHH&A<Xc16-4}UI@NVjB+|~srS{9?2I9*X&R@TNxsG?!cK7s9Q9?L(D7(7u4daoc
z%e==U7%XUOYx~T&#HdcHb9vPE0`_w`=8s8X`Tfokc5&wau6h|)WoBe7`&J%s7S()*
z{;SgRazTALI<$`P@YSn$<=1aL_Hdtx$tG+bXO4j2*aIP)d+oc4tDA;bnwpx1$HcJQ
z*VwY}Mf^}(-mag+!))u;B~2S_-MTf)^7BFZl)s}8$awHPZO2T3zzrU`Yv>vBRg;qU
zS9#7)`P{m-HfoP;7#7j<Qhg2P4U#k}*H*Ear=j6(l9XJ-$;s*a?6eL(%(PDI>fO6{
zzc?-~EHo2(|IO7Z^`V%RxJlu<TzrH=QT+XL*Y%z#DJwb(zP(PGF=A8k?-98)re^ev
z10`OIPHX?Wt7LCf&dWcW*{~<xpz`hxdzqb0OG!vbxWIk)&K)|+^UTb8@(QW~Y|=Ju
zEBW{yQD2Xia}gs>rRgOGnE$tyqAU%&(lq0!v4Tx(ZSjzo_a$og%8m?Wl+aN^`ILCo
z6D6A@)DzdN-Fl3M;_B*pfy-Y_d`%F|kvpRMRaI%+e*I)f(TN(q!o<WhHPpn4#a!`F
z#?f`troU6g!6b0fh~uk#!jmVapAv|}x;ZvH-Y)cZi*tRC?3|oxq(`c6ZB0Ivw(++5
zW)!Sz<2_Z6v5lT*WvMziND2rFj`!S95|EYMNEsXZrlON!WEjgA5}Z1t;9B4^O4fw+
zvd3byPn;O<dc8tONT{^3k`8lnH6<k_&g}0!L~dL`&+-O~>^b52`|>L8y>)f=>Y{0^
zXHXw>3oh?C7{(pMtKimE=Fddl$-=^dI12Lm4MqB&&}0Hwczho`;KHhDkaKo?Ni2JD
zx}@kvs3#^HmlVgD{a5fTb^3qTa7kMSqK%tX-`q^`PC1cOhVG9+IeBBCE^bA4578sx
z_(P+)rRCfMTQf7iZ6}^=QdHy}85!}vj^X_CqhrC55|JDc!RF!Nv3l)VzdJkh$pLue
zF~Lw+R1^^v#n@%Y@ABH0HZUYa1&!wB&6`-yVRv^Lm(|v?a%?}v{+*ux@9q~6v7(XL
z_O8C3?R;%a1%W{T{GlcYLMKI=Hh`7yqx8q-=Ji;v=$35Vt!w^{8C#^KFS{$%KA|;d
zOTDScZ>o(^82|BsD>pCib$R&;1_lOYPp<#IMPQ!r<#6qM`Qk;{NP7VrCnp^j7Z(jZ
z{bTJ!_2zu%?K&cnb)8{>#NQ>HT(hRI^tVy#t4nNLTp^<+%e?pR-(N3jzS6+Za2)l^
z(DTTD*N&G=RHHTWSN1_e{MlK;CwKYhK07<{`1tr(O<@Yf!oor~&tWsbhL2wM#cvb6
z@9i8Md^0k3qSDgNQT_eKz`%D;l?e{llOh~mi_@oXZ$Hg4J=An4$EID}u4^BbcC6Rp
z{PX9}OHpu8)u<@=+p0AEoad$$jFi%v`@6pV{27Wq$}n^5zbR*nl<*fB^ZGrUvtH3-
z?{|m1d8;j3whRsdbB1o%MOWlLb84nNQcY;~TL9l`Jm)DQO^<)e7P|EG^z{;^s;`{?
z=jM`4u%&rr9B8n5=qa;vbKeF&CuxdAsvSQbpq=t&vadGNZTcb_I}I)E+0J6mmLGC^
z_jaKsuUxh2>izp0q^+C1-$ickDfL-Vw(xf);os-3exdC^O{Sv!`q|<~V8z8c^uAji
zq)MSgsL{B)yNB|~abg|NQJnR!u?DFMObxfLv$wbJZ_U}cX6@Q<BO^w)ANl=vpUE}#
z`K9jjQ<jvsIh#nROeqE6o#Z}|ZXiQLN7vnua^m^Rm!G8>|64~|_bn2JX&fCLg*I>I
zCwA>xd+^|u<EMq$DHNdg(I|}YK@E-2S6YFA$uw7%7G!=6w*~|Tu6$Eb5$7>Ck*uF1
zmhU`tjgEQadRg9oFRB%kFwN4DZdgD~@$mGN3e$gOy@3+z*!PiEuc@Iyrxmb5hgxXs
z)}8=9uYJ>ljS>#u)vVic*<QbXP0SAGbc&l*uG($gycz|u68~Mr6Z!AsCBMP5$(?)0
zP8nq^d_*kCTpsPX4*a%BTAI^kr0sQ#f_q)Dr@O`@MIH)yjk9alvS|g41Bz!|Y-9v|
zQa*U_U`&s)ipsaa!C-)#K?$BecU+z1971>g{CR?ghNkrM=e5|2jm>6Fot=ElT+*W2
z`ve3;?xTo(`}WPpswti0f`_T8fZJ5R52pPwmZj`5^ltJ;NA^OI-#W_t%;=5&{tK%%
z?q0bjNa(k(sRa4|kaY)0*!QZCK>W?~fO)wdb1zOg-n@0|TW>Edz}sUT;@``tCLW1n
zETnXO|9%yio?lRK1-Of{wY4bVynjuN26>ki6$jovRMlZj))9GARV64Q!iWOkr=7Cf
zN$67qNvaI<vosxRqvZmgKNt5|`)9r*kNJy@Jzcjt<m{zO%=Gm1y88MmqGA&_RdwFI
zdGp4EBqGUr*&^t;S|whdWDSZGIq7@%?mE^c5&yEXvhaKNbo=M_@83`T<WC6`Dbl^Z
zSs;31W+oscgz3w(Gk!_OA6dAMRD`T+&b1dDY)lP6Zy$fPp#2?xJ`iPGS6uYxDbMi$
zawhB|J8(|Uo==}YOA%owgxT*&n9&t4FS#ph7BoDfrY7F+@o%Y#f8k4OB=9Myu1>Qi
zO6o|eOzP<j06{sY+ksQnm6etMp`&+<X^e%%#l_+8d-LDjylx;?wJ<k1Jy8^>ri)ey
zo+{GNhT1Q%W5>}h)dX7*5XnE^K?uaZP)?;DExa<R8K+EJ^I#9_`1rUi!&G+#Q_UkK
zJ`NF`QuI%!357tloR1h=G<VL6HkcW#D%xYJ^8l`Lx@XRCxOrhVXf;&+eNr7a%adKs
z&dvwW4Ssx#X2Q0f`q@IxiKa070me8@VY`7(o2LdF38u@JFW=jBo<&kpvhLZLmjY==
zRIk}j^=knymhY01s`y@gi%BX6G;6jyWGBtBKLe>Fi|Z>m{#f;Eq@77$U!Ss1Q*$-o
z4=~iV(c<4Mn6JRFu#YqQ62aBwJ!V$}%2x!k37VWeOLhA6>4oVgV+sYo_mgNZSO?lI
z`u)ZM)obi)*P7MM>By5P_>tFq$|=WpcX!^vhCtI95a#%^bp}imKA50Xv9hwtyZ>5+
zu3wpJ-?N&J?*=pi>#tc1;ELKecAQS<27mNXj}&>`(7+BQ!WFdy)Yu!#&Y&qLJG%nV
zs*XrKy>tBrOOES-!EBN0=g4or7ZqiSu>?S^>V1EAlE)bHf*KoldHAcF+W&03Y`+-=
zK|w(h<bbXo(A8ZJ8s-psSVQAY<o466H*O3@wHMgEoBedUL3MU+Yo^(utN#Aq<|h04
zn=<%93RE{geEj$^vA^%c_*o#W&q>G4-re3NzH8Te$F?S8;yOA@9B7}L#^0};;7GYC
z5}{W2>XLrerB+U`;9R?J)GU08p#U=%<V{krSNj28WiS5>Jg&6J-izw5zDhvELe{C@
z8(+K5QZbTOJB8iL%WG_WoaBvSMukM+?5ykUoyNS*gAM!9`ntNiP5bZtndQwlP4v(0
z*s-HNPKDm7zm5tR&qq5&6}%87B;x*k1~5xqUER{QHf~e<IBAx(S`6bY=O2+HmFxNY
z)fdO@r_)1^MavFs;@A*%{W>!pD{m+`443SmW}uZ4N4zvzX_~qI&Ye2|cnys?o8nE?
z1tLraJ|&Kgjn%oOqidT>-e=MNQ%%?+72DL0sLIx->F=qzC!vxmV`O9mln`h`{of~)
zMaR}ed=%AvP64y8o#|4IP`i46*Ll;$`Dt`HH}yZ`sj4%PS$c#}l@(kQB!0GxW?`~c
zX?CPw)C5#`cn&R*ggLpFhc|MH>Xt6G{TUKfy-#OYjRfLnE`E6ybe(HYci$u8AXz7i
zJs7O4taQ@!I8Yd_h5h#>ruY(7H^B%s%_28vpw;#|G`4?#)M-0diKBlntg53-e)R9p
z|MkD<clHj=j`xhA>}jWnPUzLw*HgTwrltfk4*d5!UvP!FuPB0;fzAC<sNrjz6#l}d
z_!oh+M(>)?JnM37jfL5R1u}YpKmE`*bkYsZc$@#djOsZqro!7hw{PF>u{ho2`>c0p
zh>3!s^L_UBsZ@3DjE778y|6(18uhJmu8-s6$1ob*s2I6ki?ZlmRFvxK>OqMcyb5T9
zbN~h|_vK`Rf}x6xkN%l1f=z3KU_VO-Ao1%DADBsq)t2W7xOffdRbcaG+HKpmwN#?f
za*BzG+1cB_hW_Lqx?g9@+g=BhE4ty<oB*t>H>MKL($eZt3!fPk$yRmB{Jl33Pnzvx
zl~q;cEiD@WYEBU!-n|p49ryhG%OAf+`KSMArsyai;1`)D`!pb3rdgGMsOT!-S&Da4
zhH(#6k@ZSm@(-h<+19Kv?Mg^sbs6nAux}sbREE)YpcQ--wR+;Gy39Y*s>VvQZS1Lz
zh||y)X4{TJDhdEHiQQZm=cPigUw4c)GdI5qHHpf#Dg7G(B|%vgU;fIvh1$i%1r<%B
zC%3Qm(PKz1vnZ308Kw>=YV!*VuSDDMMaQFCwcZ<~$n0%6|Amf18EzgPk`X=C|Mmxk
zY7Gdf`OKgJ4N_l%xQd(hMJ4Ey%K#u69Ey$I#2>#p^5Qx%gHjY^g0WEUM56Xtz=V~o
ztWEZkpOR3qS8++NBAFxv0Vq<yGak!}GZ#KTVUAHE()+IdSttoRK?rg#wLU2}dTGHd
zwC1qS4;fk6rx~>mWdv2(<F$|Ax^21kZ)<8AE*hOW#aVfst4jaZ5r#;0|2UNZ)Ax6F
z&~7A%rG+a_Ag(B9`OF9ZT$zp^Pk?bB9K!FMcRwbyrdQ^;NaWLu41+uY^3p>XHh-IQ
z4s#Rd9x4$=U8?3Q!5mcf?ejk6m~LFc!pFzQv-$5DP+5~u`WswvI{W_pGjU(kjvQGl
zz^IktJl6GEfcT(f*X6zM@LNr2Hw{Jav$O4c4$8ZZ?fXw&F~5MP+#xF3(8TB;UpfiU
z(Ad<NdU_psiIWZ829W#6U;h}R5K?u6Z{5Xo<+xHn(f?Yd>NN|YHv$kOR6$WFUHH}K
zIXS15wsQ6vsuUB%a`F89%UZ>?0_rK7?!L#a@BwNQ<mabC=idjp1IUpPSXre?aK*Mk
zu^GTwpPS)v?9<N+U!JdJ{7>l#X4=nK2)3@X&XtvWuQ$e*^Fjv%<%TA3NoCb-^?1DJ
zcHfi%Fm~2TpxKby?5wpl@vO>Rha0dfQEd{{T2yn5<ZY}zE+@r58<a!IH|qjA)}whh
z=xb`njxBZWd22>*3&od|4tP&|VJZa1!MC&o7eG@72Uh&~^Jjyxe%1vxw4#-X+LnR$
z%=clVh<#d+zVvnF?W?O2ljUZw&{Oag&_CI<1_af7a!f0NNgPJ$f-HIAQv!ocdw%3l
zGX$rfZFy^f0d$B<kZ{o@*ag&sIM~^*Lg^}h^M<Bmc}WiKXdHkEi){s%irV4Bula}t
zs$IKwJ=|+g?c?KfElk7h$B!R$R#rpGAF^M(Q11H}O@gN%KZ&2#b#s4KozB8a?JipH
zJjcGLzxz9i+}D9B_!Si?fX2CLfb^SKSkN6meti0@H864oZuV-hmT8({0Vl=oXS0N>
zo7<0O%dNMn>ynQ1J(P83q&&Cyu(9a8Q27gR$e%4QnWS8P)Z9O}q;mTc$xTpD{bM?b
zY^&2$pa1S$`%St&O>f_lDo|;2rdgwL$c-Dd(m(LW!7?$5tGj#8*tha<H6i5+;mgM!
z?$wI5$2O*fFQ0Y%5GA#Og6Cl0wk}eG)Q4t9+OwlR<Lczrl~q@r*U57@hkN9_n2s8f
z?=&D_NA3@T{D<W3*8u+}*4Cj|ojvH#_Y^&4MRbzG%|bP{_yH+nF8omo?#!2$k>~>D
zxEr&yv8v_kS89s3w)XBY$n+~H&CSg#*M_UJXX=K6Mw!;d?x)>2IxrBVv@{E*5vcuT
zVWwocG5=%$6muXH8bQJR#K*=zVr{&sY8~~cJD=wi8%SJ4c(^y#ItlQO$H?yo`@z>d
zzdWo5K6z+eXMS_a|3jowtX<In^=Qknhbtixjny4B5&2b9Q}f(;=+w{F99EF+yfDkJ
zS=&H>2|rTe5{Vp?;UCb3V=xBj^}4JqzSNPd?!fwk;wJ~z^6*?g_x?^Ca2|<*>oBSs
z5BIXc7PzwH^6=lX|8}*iNb!lr6x_5%)NY2MFKH_%Sr_W5iKV%%DA6ykyH9*)fSyH{
zs2y~%@#)!x+3^dw1wwSkj);d3L*a!j%=X*>Xr`l(co`GX^t<+i&e5pd`_0XT^8b^z
zQpRS-%?wJsc+lK^;ZbeeeZd>o+aSw1&<s2x?mA|odhp;6nI{0gzzTiz%6hK9f9-&B
z^c*Uh^$vf<hG%DXJ;QFSWz`M*SAR)1p=03=#6Xz*{x!UQuU%|h&u!g8<I`0M+W!dS
z5rT)}Vd;=?lY9bLFL-<{&-Yn=ek)*@(Cpc>2cSCHW$=f^^3vkw7r96BzxDUu>shfv
zWRY}Z4Dy{Az_n+Au<SuQz#bnf`!oK-<Ow_&%o7Lt98O*(uT{7b?2aQnxg`1p>1cj+
ziEIAXaB7m%pFNuQ`EUr`yOgu#*MKmk?}(nErreWt7J+4EH$8ZA`W|kF6wr2^|9CYz
z+VIt!w6yd+$#aa*mLXiEH~m!Akq@dcbsFv9DOvo*wKPZc@j)c)0;*^(A(RRW3w7HX
zeGS9{0s;;dSG3Qd+DkwTx*8BLw0Fb56*0oX_h**^vE&iwz9v{z;NJcFaVTBSU%e7*
zq-6jhn4O)CC6<>+kWccp<BD@MVE&a*q4*=!;j{SBGI5$ft3z8<b#o(RH8eCJz?t^X
zs;VY_!Kdtd-*Ke<Ft@NUeG|x*>ozUID!D+2L^47dFT+IaE*4Wedh~#X#wx5FtweQ>
z>sDV|TF#=fTxdv+sI&i9uUDr<J23Vbr-kI@ugi$?`Q~kepaej?w*F6NC#N^iXxLV-
z_KqV|0?HsdP*G7qHmbS2`etUP1V9S&z1xAwQ%8;;ufiQMNzK4OYtFIdg95>C_w?of
zddEE(M+={-s)~wlsFZVIN7U7oFI>2w760!bMe0?gA1Fu37<;t5K!57gslDj3aXtN^
zYC>h+R4Z1mTNm(e5h3>2IXe0U1kkTpvt|{~jlkrZz0QN|9mSsd{d3@q9O6f-e{^?K
z1B<?Hy43O_vCHaTK{ApPv#^K-6{nqIH_|5KeB%t|LhGv?ZSCz^X?jwWQI_Wn%*++A
zhZ@biX1~#sTM=#<ImsX-w3N4R-+C7m$b}K`T>+LE*k0<QLy}UZefJxNsgZUrEZAh7
zlr^M`hKi^nv}S{>0Gn3I<;fpM{XXtIYJKS+p%N6s%DP_MYr)l-bskMe%j`F;oSa-k
zn*QmrXB0aSX>NH}O|vhcrm6=HyoTEW>8&w0CM|8pH5Q)WcSPiNray9%@NobQQp3J?
zZ$0T(P{w-i8h7V(dZ{F;M>>Q?@3j{&Ds=ThYZnj_qET92*i{+2!4G24>#8bxl7c=`
z^lYGSB4OuF<6=mF_g8C$q`|!tfL!(Y$<cD`U2*fbs~4s|A8#&l-}CfzhD|@=N-n#h
zrVM6T<CXZ8Ss?hag*iuEJ-sqOW;ArVYEv7Vu${%T%02h67*aF1q%K}XAMckv#R4E)
zaoX5(^K3paLshZoZyMu&ZAjsrKn(y|D$qW{Z{NNO7}rx5r;^9%(wVB8DL_hkKo9%H
z?h=pfdnzHDP`pJ>KHVfLs!?=g3s64>U-`}Mz5lnwdvcrLslQ=@|Bu|8VWJQg6ewH}
z%&~o=lb04*RRI|SqN8~>LX$^nk4H@>AWo_PiDqK4Df9X2eFfHz<_<f5_ALKw)W0<+
zYUK;RJ>uf4QE;g#3!sU#ZskIpA>T$vZvbEkNJy}erQ~4fdMXMe^Vi^4UEjV@QC2cC
zDq}{j23}l^-3v{k3@Sx~|4&wo^4XRb=hiE@?S5lQNDMY*+yK@;3$Srd{4BM_$A>}2
zUURfq2nSzUd{{NMb~Rh15!!%6|3cYUnBoW}TnFvru7zC)?8^(4;UM75`0vq@p@cm)
zhfif+JZVsHnHhlPlP=9N){x!rUzaG}kkkenQf~D@fYXQYa|Fv1p#kCqw}KlxOr2T@
z+$BJRA66z>f2_R%=&aLV0|WGH<wO5sX@#{ZG|gW>7rDDk4+mOWT8c|a?WijRM1uvm
zf&xt83#)C~5u`_}L?#8Q9!k1F!#%oPXi6}Z6<V86?7|}=B8IIL+@?yg*<KRU?FeZw
z%uf#m0MAmp&irtIO&wlsp3j=T;{R-ZENpD-jI>y{VOx*KuwPsPQzP|PpA(ipMn_p~
zZAYnZ*rKOmgP*G-<bVL+i20mII>s*}vjL{S+jsALmE*i&)E&IOF>$2D_@UDv(ZGO#
zqNZS%u8x*<{^WiQl<zSbYMz&x0XzK6L*Nv#{}vrfv#wGfU@`hvww+|t+9-Q0XtP?#
zHK6I#jO-Q$Q}d}3<~O*tnqO@Ji*qrGo_bfEt~q~y%jRs~1S1A})F1MRo0}|d4NNKw
zO`cE@<rEYa7CzLe2yyhGqUT1yRfs?^nYlE9*tqxFm9AD|LE(XfAny31M)|{~_WbM)
zR_g1ap>MFFvZ5S8f}oh~KNK|K0&jQ~oJY9#KDwd@^Bj6fZ|A-S9pG7^+cYC!X9b9%
z)QIMeRHG8F9j^AoI^mX#jDH|ZKS5(zA08Q*SbXg8;ca%ydC+vHr%T*xymCXbh4`Mo
zy4WZ}DJ3;;EII31I0MbCt!AWtdpd)c)R<s2eV0wQ?JVwZNLh<kI#$I;l(x4=dvXK?
z(scLs`h#_UgNaQWV}_)KF|jDsT0)$j7r*p1%X)c)vjLAhh6sz5wL~ma(y{2WCr2M_
zid2^h+a)bsd28!&af_PuB;_~F-1KPwT}Gq<N^uSUt}c`7v}2H*0YNAfcr{7(hqC?+
z@9c0r)zv;!hU%7DyZ-HaNT-`_RZp~Yo18mG3+<g>aLqsbBT@u~7oI^7%EJl@aJ3Kk
z8|c&TS1TxWD4N!_p3TLj)zvBe{LJ4MM=U_oulIC}QhtxQOxQwYQ-P~YmSQwQrgb+1
zlS7e)XwGxoIzKh=cxgssE&2iAKRwXpCzbr=E5Cl;&o}gb)sds7``m=^DNUK+L^}j_
z`=Q^q7>)%B&CB9LRARaL=Hrk~>VO_RstR|Gp<+pQj^|_l_`v+=0=V!^mqX*34*2m;
zp}HNtsnrY{DXEwjwi#OJgVBfIzkjzbl7biTXn1ZW;1$)V8~q&}Fd>S=h~`qxOo0Kx
z_=ztQKx=T1ovNx(C}b~wG#3;^zwB)1bTin+#dANn42nHAfWbC6mOUH}&2nCtwfDKn
zUPCPZHcksJ7(H<4kf5~mDf*x+2+Tg{bRHAcTW5i0?I*q;2D(}=dn%KYi)*{9{W?k*
zuY$;*!kXy6NzRoh!R1N7oMBv233(m*qc7OiH`x0%U(T;{J^fbx%7jqy;xB!9Vu`!7
zU{9kT9rHVBF-b{n&&9^m#tdwqH|1X*4#x16H8rh+vR~ua_Tt=o3WapH>+)$8-XfpH
z_z|QEjy0+JV;HaDV<bw1>PV1*DO4_M>^{HV?HB7`KBuqdAhQvsrt$OQCoiG2nL#<+
zxZK{52!y-|g0AF!(N?ixWF|CX<Ts!^-jl!L5L8^QcAC_iHy^oU(v)t9;EU>^L#ZLX
z;4@k=d`~H(db<$`J301jG%+!;xApg#L~V{_o)7}n@Km4HKLn6re>inUO3Jp64`uwY
z7nI{P$(uw~@>Laho%F~n7;ff%p*1Anf>u*I?z;>!By)Mzx;_7-XFD`ne$$O_Zf`r$
zK-+<5?IO)C3>KC=DJ*bs_@mqiLfHDps#>vii-16iPB1|(_1xa@;)UNTCp>GLDuINV
zPPTd0u6B7U%+5$E@hJ3HI<!!JV6KWI?=dyn$w!t-$9LVeKpu*UiW{pyEKSjbC=_F3
zWBhqgP){1|1pB>$ltT1B*VL>+W~3a_Ag%r_vf2nM`4)Y~d=tE6{se2e2i<_uQKTj7
z{>wVX^PJLrzu?uYS7X6EWnx;hEY|{Y&~y=(SkwiubN@BXPV|hTAulf0BP6BpL=YZV
zLbBXJTvSXWoZ5A)Yk$O#q2FV&lzY1^wO_3;k&=L&LFxi%Y`bkc463Tt*6|WbUZNN5
z*SY3!xk7A#at!<$VZ`93>I_D0kH$&1N3?+eRe|a`<_c318OFuM<+_X-rB@hs8EVZe
zKDwC>ybtD9i4dd1!ZB!(|C{+nr>>@|x_N&A)@T+}(}xd7OLs>lK6%1vSzOFiNGuZ5
z>mV<jas=ic|9o7j*WJBDaYMYgkv3o=^W%fpeG?NmCum#75Q-kd7Fd$@&mc%VIsV9|
z^wB?YqIUwXM;qCLRA(pN?;I!b;!G!Th!p5=-i*~wF|o8{U}6f9ocmE;UCjW6tQ^sS
zF?jX}Unq-2mc4sNFq&q@I$ws}m`HjpR4eFA@G-sG$ZGTT@~+QWw0qORZU&8h`^Tja
zsbcU!IQnBh6Su0(NpTW3VxphU+zFA$W=v68dHGp<;m(~qv2uQX&1QlgR)y%G`qbI%
ze6m9$WN_UKEBhM6gVZWkE@=%uqTXR_db$F)wVSssRa1CuuyH#)Z72yBJU(1Hd)5d3
z^!L5=|M<=7ywTD<YlBqb$$R_z`-_zv4HDoCk>V9nR#i=?MqkUstQ30wK9za}E%^{o
zv(s&nBw)=RR7L+7<9nu7XWI*0GSoUp@nO1cV@3s+31%=&f2bUpnVI>0nW_Rl{{FP^
z!k&9Ax*>0B1|#CYV35YOY0{5-D03oJ27>fl7(BYyFxKCH|G@<PB>vM?{X-yL>ftaP
z1pyUN6lh~U7r5AJJdi#bkm3Ny67yvTD`GCjRPzcZ(~J9){1Yt?C8l2`0s_p?LgqN1
zRG3PThHr20x$uWVs{qoXvvdbKOO)Ug;V031DeN=0tiXP#$^6*GSd&#fRW~NNw{nJ%
z@i9@othbwny-AN)C4j|J>X6VH{vA7*kxZ)BdioH=K`UWyzGK6K@Nf#IA?-5HgQ%#o
zsw#pWHua~olAk!>lECLgwN*8X^MW$cT<j@FG3hA0va$8WTXRW7R2X77T$?7$(Hy{@
z-a2YP(uJQ!fibXA>f!~_-S5pMNr?)jyWxNVIV@{#&>F2ck)i`4;0I2P)`s!LSR<X_
zqO+P!D@O4*@pD&Ou_qT&GGsPO%pf;*M1QEO%Nu3G6cWi5UW=!!P@+|l3B!_Rl;5hL
zz_ZJurta+1hrwT2lsgxFk)mRZlmTZzCB4v=o5`Zh5sG|7(AuqIzlQa((YYD@sR7Ea
zBH0EFpZQK|f}NdR-E1N1@cdT-@t|YJj>#UoeL`D%4JoZ>Wo1#<=DE+<6q}KS7{>hg
zPe$@-4EhsFAKbZf4T2-r^1>u*{Nu+=9w9%#iJaMzbhT1+a-9a&u<*(UVvY3xhg=D}
zR2NHyKvWRQTX|z+<jxDABU~uDpgg27K3E<pN{EV1eJznzg0=RVv|4q(N51b}FLzlK
zipEs<PXdtL5A1-$tyqz%5Dx-*6X@`>TRJ2(Y?@U7I0)0At1<%R9XfPqudFOU^w$em
zx0s_+h?K6v1`OxH;NW(4gU0)&x5n;YQOrrMrFVX@1Z~HgH>$AGR#<&`wyj~|lTjBl
z3(Gb1NmDa3rrk@}Ii#6`UkreWU<Q)X-<W#0!{wL7xpUv}mk6XBFiI6)T#rX1)&!}Z
z&(UA!k9$K4es0^TNLB$P1gh@ARM2^*%eK5YN-#UD9sp_d_xAQy<{*wzB{N0N+hMMi
z`)E3{UF!CL^f9d6vI$;!PXH@+5*ZLvTwZWo#Urb8gW<3m>_T`$m9X@7zq-);{Ok&3
z)hHBTw?lAkC%Lynfqi;%`|Fp~qeiy$G&GwO6clR7#2OMCK59a6P(mu3x<LnKe>||&
zBr=Q?4BwFS=3S%-Z3kvM4vZRBO}6HdI~&o%0L00nIl*m)(uTQfXlO8Sk-?HALx1~`
zyMc@n+r+a9`OG%}tTcwZ#Kex(O(VSGIypAx4P^t7VL!wYd(eJK1_B;dd4n%wM)4Kj
zO*J8c3_rj;Oqp&&%p#OmL61Jg;dHouixkufn5_*%LxCuP?6a3Wp)Em&D#wE5<>i$<
zb}-)*>0aBCHsHgj8OVqGVVMnqlyBIu0V!5w%X*mPw*r23N|4rwlhf|d&}QZv=)F@a
z;iq{pAZX&+#5xzi;~PMLacH&426->$zf`~yF7#U5NGj`?czTL%u3el_=lTt0NEf~2
zaM^zHDGdx36r$JYDkK^@Mu}9XMbZ)?;Wy|^x`nP1;0bgTU_hlV>}D{7{vAYB7?1tp
zyz_pW{fkf;07@XB68!rl(R?gBM!iCUgQ+RG`S}~Oa({OK*?b!wPIGo=Lc1>->1uqE
zVQC|@CTQPb#x1*d>!kA5los&BqN^%{z6BpGh?w!W7cqnf6><4Z-vN=x7tu86<O7kL
zXgk0wpSo9jP1PSl{6$jZ=uxUd_lTupaotSQ13Cm2C0LO^v>-CQiA5EU-P!*sF=Vw?
za5TzBX>INCMOVxr1g|HRdvuZb2Yx0g4;eH812u*7K<ecb6V!3iC`7SOpIo5SWf&_V
z9B@25J8HM3FZ5ls6Q&nPEJdt_awmaQk?5HhGz1KJoG9qLqxR&<lR@IabOi#2Ikuf*
zQwyM9MVv8=t@G&ArXa;`%ZtTHn!;Vs9T1076Iw$uJ&GMLHkL)IOTvljEfH#@7KSEm
zxiBV#VJhm$1^vZpP>C^1)ZT_#lya-&JQ!L9U><UVPwfc<nAiU%EuYvw1o$MuG$V(|
z$_*q;TeUBodepXL@k#O0K+>az3d5sF<B@?yG6ammqvGKqZ*6UTHSol<1sp~g9D?3P
zR!zMOesrZvUw0R}j#I-{q8UrKZ9$ll_C2E2I$t~&#;eG#4^~7Vt$VXC7o-7_**dVi
zFJ}2J#q)#Pxn&#@>g4RF^Ymr0p?XFoAb3sQ@U~<eL21=}Va|Y*vLky^rxFVT!)qYo
zOpiGS<X|=kY+*=%^gUZkEIqcb!P;)5?SRyDw);)ceBhny>WRu|cr;3d>7ZD-j(r4+
z3pZFxq@C|@m*?@%R4bP|n0r7~{h8J&r|6LCTRBX3e>@<V_&!fWUTOr=r0`_UJ~IFS
zBw*CajMq*PKmU=Ngo>EUTKmz~T@-JWP*lvjeY&83H8BcY$Z~M(wlabjka=a&f?LsJ
z{qLF4Dgvt$9NiZp3Sdt|>S<PhK4lnP(>MD%VQC|H$Yj{H_)qrcb`D_8x|9p%flG<V
z%v>!gA&Ol#LIzsDVZ&LJa9y~tA%zK!XcMIK@6iq^14Tn+Ynlk=QjMUw(u;3TD_)v;
zkVVYgSscss^CSG`=RwI6UzC!$@@Z#)rr@kE0k&I|4DJSAP0|q=|6aY8oJG=(#3Bqi
z@JKVhTU1`2n~77j?&8OQijG2n$!_>k{?|_mgCVJ6o7bnD*vc*Iw6e6INra>dR$*<S
z+%jvp_SiJ!yGBJt1@HHx8xTHuto9M1wDXe(VkAf^_ot<iJs5$m6-W?|HqT_7|M1}h
ziEWV8(`p(|4&5awsSFeKl}-E8%md{}+1Nq)pzOnlk<lgjDqNW~on*I-z<wt+Fo!&Y
zp1r6`D6Po281?L3yLK%}PTfWYkz~@*Ua3uVE!qWCl>BZyi9!IUiE3=*dPTs_Pf82)
zvhwl<fx;DGK|u`go+yRCzZVJ1ol%r;^LzAS?LZ|O&bPk4fY{hr>!gc!5gs+ncY2Mo
zRiCUSh!Y4R#W*`bMxzQn=CtdaL16^@-8LIS#V2=cTM1E8>iFr?CqmqF-l?eLTD0-&
zElMz$_f?#V!|5d5q0uDmluZ$8&yg;68vc6nQ1!&!`}cz&cD$*qj7Paf;{^#kgiTnF
zKv0L5vHEVSFB)dAImrlQBdrlcirM*j5HS{<j8N9p43D*v1{Q)&TbrXK3)A%sQUW>Z
zM5KtCh6WAA{M@;7t-Ys`j`2AA?7@K`eV;wMcAfBy?o2A!+_=uz!v~rVHN~c*FbIZ5
zLY)=9_lPI{F(hzaF#hM4G<~qmSt_(1nV2I;K%o_}tzVCrIUjIoV1ZiTQpMM=8`08W
zXgsatWTrF}^h_2ocYY*3vLKz!E@_b>er3X(tccK*KjgUH#Uha~tBi$~=cYb$3^@jS
zSRBf=@L!ws&uXXW2yEGMaEN;JxAJFn8o;1MQt13qvjO1}ou@k6T6xSMq>+b+pu&`^
zd{eVUkvsNCamQ>va3ao}d}{uJRB1Btj0^`<Z+(=^S_X6b<K;D0Xey+iODRn}a<{9$
zKiO-fynNTx;u95Pd3kwo>$Bz8zJWjZ%i0Mcyb65q{*@RTLse5#&OXl<2ouAU^2IQl
z0VlT|P@dX}3QvaF;>>O{puSZirkDwG5m?d9%_o~kBql=ZrovxHtKDe6p|rFfCrl*o
zKhvC?Zt0r^wmk54$HKQKw4Pcb|1=j+lie0~tIb!kuv8)}gCSa_uqEMzx+rH4oXZOI
zq(&FXA3tF4xK8!6QOIa-GIC)tW=AzN#I2jfqd8nooH#ML=>AMQ1q5+|SnN715YeBO
zy^4*k-ksFJvM>5WI-z!Tai0wMXBj!yo1=J=HjTy>6$^_k(DIXbn-IX_k7t*|(WX*j
zX_7A?F_9mq9Cqks?IS}Nw8MzWc0I5yevLt-6b>Cus^xW4O>9Sh$X2AW2Oyb+3nAe)
zMO@%X6cF%)rPY|*svD=7obef{%no~VYwKq-M(rSqhaen~F>^9#H#6D^7Ezk4^|-62
z$81c060&;KFiV23wlMqHuU}vG$G5fTIVP!1eyFK|?LY(B(`QYuEkJZ$hy6`1_|ouJ
z;C&v;C^;=sfa#nd+QVNU&rRC7lscS!dZwGH%vbMl58@H$4n3iMdMSuMCrXq6mp{?(
zH=545*r@Kw!^wGPI1eH+i4`dwJe8*aC7eduHsB-+&XinrGqCi`w6w6e=10%^l+QTN
zffgI~0OC91R$oMsfydDwYSKDE2_fu9I}}KNlxzm*hgvu~*pP0hZ`elb4dkRedW}E+
zr;Z2*PLb#&=b>2~)YiUP8WgC;M+P>LcLFs7u;`oX>#u)2C<8$>yD}4|C;0fS{a(EA
z&F}$K8$MP(#jAk6uR{tb;+KEwV!kXDYU}F>wvQh_%BtO#<7bpZMv_`++dZ(#9>l8j
zY74+;AYwoDQ~mn>-8*Hd$(jgt`~CFZLfuisGBq=^ZeiIEyR7A-!zK)m)c(t3Ug+#t
zDJ#6W>AeC~1+HGZ7LQWzI{Ab7yMqk!RWGm4;h4wEY#ZTAUte7c2@fY$BWR!OLJbYk
z>|2??UYa0h2r5VNlHppddPB&L<Y}meHZlyhckg<vw$*z%*ap6K63fxUeir<QkYhVC
zx9EvPI^z(^ztP5RV>{jhP2t$qov>TyPQwnwd8zceNt{J6v9j83BJcqMzEScWV<hzm
zpg>yS`zMew-h(h<$3ZHiMT`{)X@%>|(pjX0?3|tb(azo5Zgt?Hko>2IfQZv54lzCO
zR~z|GZQ$avk{|nua}zl8;}abn-E{?Wz=XitFD&S77zHv1iX8WcaS!y+ab%I;5+}Fr
z39KMYNsonCUfcr%iC;C;G!1$Lc^ZmTfTx)p@ayDBQZj$vUXT;EW=-T#zLAf+-gpQ|
zu0oI&fSevjia@byl}G@&^eU<n4i;D-=X{v=r)SvyBz+QE!*E;uTucw_Z1V6Qn8=Xl
zj6E_6OhntrragSGChD>wp9?H{b$55uXq>PEym;f%=^22?+>hL~M@2bRL?XMf@e#FD
zi_o`NZCT#h%0+sPaIRwr9L7uMRq~j%yKZJ&<Q93UFr0eDih9sY<Q)}imGH=ZP*o5n
z;O6Gu9hP?H<&zF2O>Bbp)#e1f?S3+TO7h>En~#JeR4OR=Skh&$7S830!(~VCnu*NX
z1DV^wdL@_g4L+rVdU_j?=peZTMA0~OiCGwPT5t`Nhd*tKUr_K`Xhu5wtvH^1X|{(|
zrAl}g&{zQW;WyMsc-?OhNJ4)lAZn8M3)IbYcI+E$d}%dB3_5lVS|Z0qFH|4eW4Cic
z*6l2Nn>@Dj+d0WI5iBL!L$Lx(P#S3GV=(@Rev{dye>i(s@^><kz^mw?+ci#WS^Wa3
ztI+il@j9JaM^tq<`_oE)^Lz5`({6*Z{Md_FoFD9XqiVkQ+^`>Nj0z-VHmE5yWX_06
zm1JNzug3gv6%xCz(R8xCqDAh$m%u?tp2T;D19@^GTe)qId6JM|0=-g?<2DK(8S}#F
z&_vy-n_EQ0@aupnN#k~!m$EHC)8R~}ZyI8p*O0Jt0ahXgd01ioyFI|Y=^SWJ)5LD^
zxw)FHcLzK(oIcp7&+VZ*8xk6NRY&B5<1_dwU;uOcP4o{RJ|xQz9IO1&lDnYyq`IAP
zK#hy*fk1{9oGU6g1W*AOv-NesUocd33V|{(OUc7J2#?7+57HnANRYu7Ox=2M6AEY%
z^PTJOo*=z{mdu(RK3wfsgJTyAfDx2^qa8(3zuKe$0dYXUX~LH5EYD#{Avu4rCl?D<
zS?n%So@aUtQ&9=X^di9fb|)Qycx~wFwk9UA^WU{Dg=8JLPd=)#=QIb-<LVI!NPp$u
zMgr%C;`~bZ=AvT{5zzQ9XYu`Qgl>tKr&fHVEL3zjgrIhvzjV=_QGALzM&BX<ya5M7
z4Ey69E?#_U#B>Yp>2@c%KpfHFN+?a$5y2T<$+p5PYoRqHqs+YOTVDEY3$FH9>+wNY
zy}lijS}lZyl~wAvW)-Uv4Ps*C;go5%?evgP4e}fkOM8$IpX7N7AqA%pNuBC|+Cd!o
z7?0U1Ao6+R9-C0K1@?>Su(UzjL=fnT{~05HCH|y+PHehS5sa3^*U+R%Zi2<u=Qb7v
z6%P9Gmki?@Snz`ikJ5;=OA#zrLD3$1TkZ}C3lr1MFg|hOv%umre;g7JcbmFE?l?Tb
zl`zEV%F!1{T5f+{LF-H-Hu&qNtd}p5kt^yNTEiAeM>p{Lcic>YON;Rk4<;9$`ZqvB
zGWh!J*)vUm%LXur5<vkTgx_?FJ!HP-5Vjf4N-x2-aMVNjP<3EnM+yuX@&*AoFNz8!
zCMA)9G@R70&G8Jy@<XUg*r`FA)U%;j?FSwqMLUeSN{UVyiW0;@aVL2|W)6rEjczf3
z3m|aL;leH?tN!Ex41mBh*<xc0jRigvf5QZ-bMAzd`~Ge4JRV3hW4nLRf}vmu5Ql?V
zR{>c`NAgqR5h@A_M<t{>C`}0C=Q~?n9}ZyLE+)o8sw~RNzLoZ5eNtAYMx9B@G%nB;
zy#{fCJj@yQcnw=`bu4WMX{<^eAEsg9-b;A12_EdiiAR|joY<@Yx2;DwdxemoNITge
z0T!)1wB~Gq6skb6obLq(_7mjkL?nSW${xILW^KI+AP1a)y3Te~?<m0TiDYV9><~?q
zULK)$(W~Y3IT-yZhZ%o>n{0G{@S_*7kxX*wWnGB#(;;ZV@z`*70zM}-g-o&gD^mrj
zn${WUNFylau{77Wu?k10QZrI@QcR!A^^jH^s9kbt4=b<yz0vgugUP#1sV&Y#1gbTy
zdbL>xp<gtXe_ji)M~6My0ohfg%Ie|MU+>wXagXBSGGh=@P+G9=0&0REfs?SYNl(_)
z%fUy&@twz&tr9*iJ5ND~yN<1YKLF%B;`K9wJnht9v{;4!X6Yl;y*NdQz-pxWX4Ff5
z&8P*>*$!1MNHbuV?0b*CE&^di@}vyHM+6jGF~j^=v{i~X3Ee?dN`a$R-MNvR`#yu{
zb2|&-4F<h%%~C)_C2MKtF%W=;OB@})$Lt{$?B-Me`~rFb_ql(m1Drqmy0!pLa`eu6
zF6xsh@N|O|FNh!u#LspYSDnVMOXKbqH^VhHUF}HNc3}U0%U}We)%ycu1+;0{X_<~j
z(e91i6z{FwedI(`tamK2@)NtfT7+vtkT2ap^gSBol?hvSl_<GJ^IhS;b@;{kEo+M(
z4Nc^8-p_7oi+l6E#Y*W2q7$0%s+?!X&h9w#;>|eo0!m;*;T6X!{!NrnNCbQeznaaW
z<gdISt=p=w9Rpu|IKV7&JKTnLv^zH$8fh?4Xj`F~WM3X8^pfOuA~D>xo|tYt9UK~3
zbJ+%hR^!X_$0K(dcho&B{&+F_B3uABoN46X;D{XVDMP6LV)OI3L;AZGK)pArtE<0r
z<m-Si%57V?aWl?~7(WmOIxT#m{|lj%CNu%|_3K?fcc$Wv2%9%=wnSwmlPE}%_SX|0
z-a8=|W&%QtWF1g3H%};@?Pfas$<U>}cdF0+Wy>?9v+{bE^^uzSiuYH970n?79uFAb
zj#HM$hIVbabr_^0Hb+8p<@fwjyjI~`mdPA)VSTc1kR>4A^XlA&anLI<ib7<C^2*4<
za@oTgToUyB!Ix*m8NtIy;5>o_94~Mn*j0X~X7kCXI)~BvqR`qPf^%?jrLNhm4r$au
zzI!D_Ch+?8Mn6`?d#TZhq;-OQ^YG)D60afz_-}T)`iE7R*5f?{>>M14WM&E?<h!?T
z!`p36+u1$Wdu5#hw)zy!!05d$I&H-p;?4H~z2m&5Gf+fjhg0s~^7f`6>7|TxgSdF4
zBbl5f)v&w4T?c~M>!IPZLvF6(b+1`5K<Q-LxG~C%D**!C7p*Q5R-rNs1YOwE-&s<k
zxHxq}rD+u-<0l+E(|Mw?L8Xbd>x_|Az2+<HGYZoUCxDwG$^5TP%ZfKp2A<)iEQg!C
zj$@eaCgyH8{Ow!d(5rqjP4DE*+xPAzgTYq!obk~Qsy5d~c<E%0jUg11h;A`TZmG3&
zL82$Kv0rqmW}I(_YY#IyfKc9=VD(L95Q|5!(I+q3pT61QF?n?J)~$W>`S2W=aq5~m
zh_Dd@Tj{hS-(5l{WPcPECraf@0|jcEOx-M}0qvv!BP!u$gfh;~Mq%LvhlNRd7*b*)
zhj<E`_(Ff(z<5=exst+zmzk~P{eHu_670x<^#t_ZmXUYUlarrGOFYl<{Nbj{1z9%j
zUj;W%Q78sl5DBo0h$ARgj$h;Xp?1)-^6FsiJIY_!1ML*z#x7YA`2<YXU~5hWS-|hQ
zyam#_fc49}<LBvTx)PmMt`n<^fgIFu;4QCMOjuZrlrXXCN3ZFm2Ze?<#2*N8g5Ki{
zoPd>zs@8~?wLt33QFfPRGP$~e*k#cVk^J)4_-{D#`~_(}p~E<J)>N`IonhS<rLhGW
z%40y{Ip5A~-X<&i)pCewK#!{yCif3ll~3l9DcFEh(sVB(hKLP&S}m=lAMkX(d08&t
za(Sd}V11v?^Go&d{$_<RMqLh2Qz&m=;$1N0L9vc7AL@iFlRt=?3CO$uXuh#$+qT2D
zMbme%Erx<Fu;6P?UA%ZPMn4v2^;7&3UDCS_u=mNf)>#lBx+MFfc*g@-Q8o(+y*14g
z-o1PG`=OwqAgJguoMHyaXld@AGcua1f&P!6Dci}OhlmqKZ3{VS3R;buz*lA%#)K3^
zi56?=@-NTyvY&b_FS>B-G-`V;<%5%-#VbKWbkI_f4Gq;Dx#NI=tlFCtvuCsVZM)ED
zo`ZNG3cC<Af+if1#2F@;L+&qzP+<mswc0iTEw{hARkHy{EIg*kcSB6*zRv?{|DK1{
zEf+fq>O{BY9dQP45HfNb*t~hm7FqBS$@}InTN+A;Wp368YR%`EsE>8s=|T`O)sgah
z5NAd0@6YevnpY6zf+-KPb#VN;Xf6HV9RBmN1skP5$Q3u`|HYS<iF`^C=&!9Z#NzZ_
zvjub>S(cW(`^d;K^T;*~^gPdb(M5Eb6#X74xS0Uw{Q^$tzGxlZ2;aTK>-VLdNw<tV
zr%!&kziVrg|5r$u%o}&VJ(^;J(=wSJ8RQwwlPTI2-n-Lr)LS?G@*(}SQ$^#ITv1BI
z(hm1iOkG1bs+tO@kwkw9kxChxy=T%+B^lq<*m6rR$0iN@azhM<FtO@_QTI7k#o1UK
zB;7vnbx**@`ReB3%T+wjai2H7ub@zbLq9%J%0RgDolQ=G#|KCZk%?XIyNIQ^q%dw7
zvgR29T;nXE@Zmk&;y-tgXEpF7(VT)dPY|TzZFlBgy*hkUYT|3Kz)r+CzGrQ9xlBz>
zjYzIQ5iwTAWTV!bk0T3~K=>EyVqp;9BEJy$?<xAV(Fa;~Csu{2@W&@rFN3#_<Zk<l
zyvL=^;`X)mHe>BBohim8Ucte^4zfF;bzd$p<P6zd_24)eSK8C*aVul1n0K4q5uZIG
zBI<ZUN<EY@TQ_0-%SImK2VCB4BgB7=b`s@c?L(}bht<?H@tTI0MT!av?GnGtZ|tN{
zyvy*GAIYaiMfrF`lTCj<_v+qOQUHUY*O_(w%?D&uE<k#>ITndhnT@qGQTVdaCMOkL
zi`+5Do=$ii1Blcwgi{M?%Az(V4SnV<TqWp14u!-o7%L*!dpHk~72`2+IOF>YlZP8n
z6#&=7YF&PPuT{beJCd;wpCV2(7etp^gJTkC=gFsyt{ecy{qT9(zo=9nR3#~cPr<EW
zfR*;Hn4!a!9ax9vwVj>D&^y1P{DmncS5#Jt?A^P!%5X0f-k*b$_7*RRGe`!1CYdFu
zvGsDzt(!L+fN2$Aw(uTvy;S80Y6E|D!pYOY;f4BLu}gMOAG~a_eh2dH=z~<OCJ3lZ
z%t_NM8OI+N;J+Sok;OXnoN0IYTI8Msyw~;Gi4yt+pk%l$@AJ5M5L=Y=rNO=C>|-?L
zjD>t&#B3bd6&~Ly*i7y<OP`tfL)4Ix&mLFB?iS7pX5UuEYMh&*=sDk?*BA2{9gyq_
zRjiBW-rd$hJdPb&T!u=^L@G|yeMRCTCcVgO>(hd01$SxV9h<S10J39Y0ByMUE)RL%
z0jQ+TdBUFG%4o0iDRuM^a(PtilVFm$bq8&I*fG}r^8Ag*%eK&zaNPKt(@~e~GO~<A
zTyuuAmNW@K;0)6Ny-%Wws{x$*Gd-V&i5k-;*Bkt_9f0ZQw~b)7Pr;Nu1#kq<TLQ0@
z5$vekiqF39y(Q=<`)maL!6npElm#<H<lZPLDT(o#w*<AS%~WxO5l-73v4HJ%5k^X0
zN5zAO51%1yn!l~_IxOAEB2Wuos>23r@qQX~3?t}odHEwKX5@H-68?N*o{rr9=}glK
zbLj_$ZlT<zQk)?b1J|R6LLP0oRsFcACSwm$gIKNadgts3dwZFWE!kFg(Qk+p>_V)t
zox2iB<zVtv%`W{OZ9;w~Wnr1z{~KSCkF*=2%wcUT-c|bR@Bp-}$n$5}eJc|^FS%gc
zWGmu2oZYnB{B5{(9|Tk#v&vA!v&vU}V5k*;@F5DU7Y(a-f=Us++^sL#g_vj)<KGDo
zb!Sv6UFqeUc5JtsL*404!?iuPjw_Dq`7~L)v|L)4`<iJMfTGcW@NtzDdI)(3Q}7(u
z-CMy-_1zFMO*Y;RVZgKI!7ZE(9O`f%m9kcF4Zx%z8Yo){w<<PwXbZW^as+YPrRA7O
zI1j`#14FZyEe{nBaPskGAT)9jZfVZc=gY;Ub_VD6CNR}~GcC!@n-7c@&BQ#_N$HMr
zYQnY`Mi8hr>21=JCvI8&b|7Bz=d)X^=jIJ22hkwsandOb-q3?3h39%{vcys$!V*cq
z-0oTJw3Hrju;XyQgM*3Scb7lHMQ(U}i1qL%9+$Q_1PJ#UPU0Z)4?0bL6P$yb|4fHB
zSe<)w6SqxqN*f(w+F3}xy(q73e*0E5A$AugAJmzPc*z_9=6&+C0~%_TSvi7xHxsZJ
zp8|GBKKNi%t&3xRq5%i`t~FkqZVu}~(nX%&GuUcqHIQl5B$j=lzART$W-spbeL=3D
zuP?dL&Y7Dh!@1;Dqc1fipMC0D`?T>|R0Jm+D{~j%EUXD%eh(;AFY)WUpb|N-Y2@J+
z^`l2m>gh#&UN*RY>&~4g&=*M5)UlLh5{{go6+ZD4a1|%3iCCyD$%vTgA!88ZJ|dIB
z;j($)!=6qZppW#7_c%KWd$K*e{|C&Q=us|S86G$DthTKF@btxJOL*&BKWt?i4O+?=
zoyyX2!c*`EpwY%mA>4`g5MG*6-PzeWKtSP=`8Yl^bN<9Z{yPy7TCprmB4=JCfNc|Z
zhrA*%8>fK<+iwpZgsAj!W+M`Q0HYru2A@n&i!fL&rh}yp6U0WnH!3%G@6j0fGx(Y>
zCypy5!s*(Ms0s<4uv7XPttnlpt1Ro0+GRcZNYU_S7G5xfu-b-9QF8kDZr#71f_#vi
z9!*;fS`iP?1G(J_1i9s7wq6=&75}i1hb{u7&N$Ar2w`ku(s4;J`Gds?)DNi(b(>fd
z3&;Qjw$Bxt&n7voCsFwQPMos^xWXGTYCo5R;1!9O|BRnMm&VFjIW}xa0YnC<l7DZ7
z)EesN9lXwHH(XW!t5;ny|CCt~6~;pBCT;ZJX&m2AK|TQ7>|WJ__vrqVF|mU7bW|*3
zs5#DaQRHjzTm##HS<`_Lf9&BcOok3j_HB!rd;B344xh`+0jbFBGqNM@{Bi8u+z<N{
zn{dPV!>?Lb9lKrBHqur^LWZT^oy){vTmY}6c!Z<$gQFQmzoMW}NAte3`3FwzHYugx
z2*9=@a%z-)c+tbTJ+>Y4cu&D$$mKaW_ZExy9<0ya{m;1C;nY;l0{0lgXX`JQau@dD
zRas<PlY-ZQHQZmayqMuN*SoHwqQVmAsvv$uGzAyjoFdAYc7C59ZBg<+b(}Z-PI!1%
zmfB!2=7j5Zr4;^k8YuVuWZJ1z$n$Z)V0)fWdzY1m^As8uTt0d5;5EDvXY*l1P_$8!
zbmCPRq%1$F!q5{-dkOX=*iGKs7<npUhwk%z0H01^8bB$~l5VzGp8_-{q7_AKvh}3w
zy7p!8veTKNv1p+aHv&Hj9ljwy5r{O&NUx4I)Ql{$zC~|0le~W$$&GbJuCK3GzmV*<
z2-s?S577f1g#N3YM@MnMd$D$T;l{O98@ka8WUfpkkn|3baT0W(Xw8$+2z118XNG+~
z#98RTxQ{(WTrN18cd0G6J}`&8>#h}u62{>rSgvw(;af>ovpu7*+d)DSSOw&mcgK|f
zwQC|I*)MQaIHUPU%IZ`M>*boG1?wIUca|9ABVl(0{((5Z5Yx6qaYBLe$Fk_j4yBB-
z+Ux-dgZ4&Ln`ZVS_<9oV(!*Em&s(e+SFWtv`p6?5Zh)Kk*`>sU1lO!(yzs<2CIdTU
z9z2m*qbCZj949y}CnhJ~|Jo#%+V~XnVTl(u<Xu#vqKuflW$8f8S)aLz{1Vq1D2V6|
z4xlm?a_6zx!p2#Z7P>ARaoI(ne-3sO6#%H7yKv0)PK))Ig3;ns2t*fAq~@{Af$7jl
zBe8E$E>e-j!;Hi<NrLW^FQvGW|4KDz4f4?s^s$1$(W{#_!pb`h%FC>N`z1=}fYS2Z
zjrVd12rrQRYP-CA+lOk(CiiRXu9LrM2`=&u<+mv)7@{M8g0wt5A%zp*wc2Av_fZ=A
zAzt!skA3ZFQ!p%DwD_x)+`v#gH~phpbP&s)JGb5<b3I@|+r`DjPd8z}`hkj_Pdt54
zV(hiN1KItS*xfQv2|q()5KC>0N*zL;VG1=i`9u<N%trl3J`_=;DUQKDQwMawl1Hk#
zh=<AhL47<qO{F`k%q9O<Z(jmW<=VHqvQzEm_Lekgq);lAgyun3N~XxHBt=oC5Iq_+
zNMvQGWGEtp%9L5Vov{!h8B&pq8I$>3e^&4Np6_?g?|k2RzjOTF@7wLRwbrwq=f3~L
zbzT4K&M7FkIk-~uXMewOzr2(IAD|hy5G<FLF0V5M3)T%jHv$-m*<Nq25|cM)`g!($
z^^-7^i@KgXd=T!bFOKU#zz_y70{2f3+U3GO_iw!agn6>M<gupes`P<plprBpwG&^!
z>RCG^JBLpOs?b8rketY7N1)L43f6I4LM@-b8!Tkpdo4iZ_$JT%j1wxX!PukF8Ucl_
zCm<^}Rwl;mo>uu+WCYYeRB5a;tK7iL%PZ~Y%i%nLyp+o6`Foh2VT6ZTyYXQNu_z*@
zAU;7_Ti^S89ndPjjdm*79BbFBO;z;Y7zVaI+a#_!c7x#b=?i_|gkTXVp(#_s(CenV
z)0~WzYIeC1mxzjEPSQ~ahm`wGbo&wyU`&%*z6uGajmcl!WKk|{e*^atL{#R0fq{Xy
z?{wH7ghPC%#|&CW3ywR3>jgxnYL~QLT>MRttZj?US^sFsJ9~i%`|h5U0`CvE&t{4%
z_^(sP?0n^lDOgI%(YGp9YA_h|4*JT67^7$aT<KPI7dPDcwX}7kCj=)#Y(Psj5+OXz
zD6f>iGu5eB+IPOkVNC^+k`RNr<Af;gJ8ApAI((Y18DafCm=taP>$?DSJn~+t+gN8+
z1X*_%OfA1Y&--~4!^y3ecS;%mef|{2(N~MyFr}KQ$@`D-Q|EyrN`4p2{!{8<uHdbl
zodp&dtjqkitMpPH83#D3`>tnB=AJg&x$_cDma?^Cj^4l^k--r@0o><CkKOYnjzpq1
znEi}O<x|V=Y+=%d>Y1Ue;}J1P!&$bFn)Q(huAg?W{0yq8u<h2aTb8nX!-j)sf;eiY
zrtV14ifn|O598c^5!?0T<*&{^+bkiqG%xqW`uYez=2C5Wz!?aoRzVeA-tt4|<n5S)
zEAFl}cGH-Yf=EF*WF{&@YJZQc5k;mi*wk|mh+#B%ZPA4bGfaC~`bQ3)mx3Gx`7poZ
zn<K_x<J~_an(m^6hQ9a_sh!%h78uV$L&;(dECA6?O+IpmE|azt#wH3cdX6GqKR|t0
zf81F3=3Ihn>6LhfiE3M?OrDH;cx&U$6%m;HbC_w{R1#rqFsB|^-7>aac+kNW{AlgM
z(WuI0S%?A2GEeIb0ce7_HFMs)X4{s43$18aOVEX-b`>eiZ%Lp0QwF0*6)iT5^|!(o
z%CGS`k<@epB{%AS^%naJg}aAUr0z>RKi8|Y>sZb%=u}V`9Q&DsUM2MTBzHTo15}fM
zq%oFVhQvU9IzXLNi-U(CVe51_39-WNGq3bM@~lmGeKZEMv<3!u?-?CE+W62%uLv}>
zB{L9%s7~n^y00(yt(?BEJu?0~!og>e!fN1NT0mA6-1TCCf`MB15JHgL16VhG#%a2w
zKqbv2t1wVP-(q)Nv}#cjORn<&@}(DHxc%E9B`2#$y(b1QcpysKs~WQRElM?`rw2(L
zbYq^h3hJrOJ%^Z{1*jt4$$n3{6{?$p%-enJ$3XKs?_gL9UgSJK3SX2&6H#JN5g-8r
z*gHh>=%6Y;1EA2Y9iDzVtr4nVJF{%jt;y}A?e4Ta3?Zl5jV18eO}14DK}8ZXEo>DO
zb(8-7@)Pfa<Qr#&a#E)|p4q3USc(Rz^4`kjxcKO%O?FSp@vN-Tp!W9m)`dUZiArhd
zet!tujwVX@SrWts4g>=IAh6yD%KK5~(`o{N_AX@K+-RfUqKt8UfHmFP(TDrgNg5B^
zMl<uiVH2-iJdti&#`R{KWH@Phd3rLQE%z`izabML1s&v>c+1~-c&xC-ZLN)$nF%hD
zb1ejk;x{yys)uI@;qv$P9WMaxcXaz>LPc`*4NFjOJ^}jGx%=U;xd#XecG!zBi}mOd
zfzjw9y#jI1FIu|+4HQ!HJ5Xp;liAFE*)&<S&7aw5S0phNqvyqQP@0V1K$fjCHg6Z^
zOOiJ-5VC9G85c_<l^%e>=y=PQOTb-*w6&eWDqK}zvkZ{W(HKn>98}U@`Ew5%sMnT)
z!YH%QVU1gstEZ->=HKtw-`m?zVV-^f(#Xk*b(Q#IB+?!eDjCIm_>|I_FKds+^&Oz4
zX-mgGTT{z_3?+-;7nFQH(F*(aS-Wns>zP0|&tM}WKhPzCv{qpGo;PnA{7l+v18b|t
z@c02EphY(U28K{lz|Sm*no(NpKqymGD!qd7n%tu?bqybY0v##8!8Drnrb<{2x-t7n
z5j9g#(C<qMvpE{c2VotwVt&<IrxUZET}*&`gI2Olq)-FiQ4D<T7fECHxASCeUQ3*7
zdoljT=pJqR18Et6t{Ak7SSjWCz-na9wBAF4wyrptAnoWNyKv!F5EBnvX02*<%ihYw
zLzN>5>4qct9eYS4h1u9H@4#=S-rH+}aSAB!J6FuD*CDkq`qZRlYU?{H^n`(s1qw;S
zEKdo;DNzB6(?B$U_E-m5vy`yq8<K=McD|89S>=UV0@!HRi}4HK_+Um*nnuivR6P9n
z<Hebba!u8fLl^aIKk@oR`C?%kHs@qf`eCtJ+uy0~ZwL$Z@35I1Sm+BrOYdB-kx#_}
zcq24IvDamr{(j)cq?M{6uIG>6^IdDK=&$Xrmt=)h%6_I53HYrXvwmH`*JOrPVjsV3
z{{T>05>{UTLJ4%8IAuyVW4rlzz#{QE;LjTcXd(%@a&XxE<{Q7eP$r;*tCG0FGZMC0
zPNq<`NP<iEvB_QvMigJh%`e;E^W$$ts0@vjIQIlM+O94r>+A1t!s^1_FeM-y+_sE(
zm-Y&NRG(;*wrTo@?EZ8J1?n23+;6D&h6p7KgybHPbnC}+{gJInO;K~d9!1jv(_M97
zYJv-VWvs)|;vd}!lT7^RJcB9}1>dT?r4NVkOG6f}2`9=QK&B~CkvKFo)c7GT0`v|F
z+J&;}5eHDrmZDS%gbH5-&+YW;d#H8LqqU}VDl$};ESFUf4nyfhlu)zH*{J?@e801?
zaa+yuy^`)=vO&P}Z^<nKZ5J_5{V5ji(2vz42wVo{XB#_hZDj%G7KLsI%Bo|C_AN}2
zALAvD5S_%d;~#^3n`cRYGvK|Wz2l4Fgip-RBY}}`Qp;omEQJ6+Q7oHG0W~M4NyWgM
zeb=sC?E>pIHo^?OB*=YpI4Y`eTp-GQRSd;L46)RFcd?=SrVxCm?2jL}Xq1(=*nr*3
z13tboef(e2O`FVOv3EfYij+BPp+7*<(EoGk-czb;Y%k(@3sL066J(%bxHxaY^=sF1
z))*sHYq}(({3}C*IRd4C%Se;5)eSHrrsK?iCV`Ld`Jl+&nq(uQ3H?{vbuT%>wBSFa
zd?FLpv!kaRSX%Fcj=Jkxkb9Eo+c)JW;vIDLpB-Ue<kX%(+OVs3J_{@nb-KX42~72o
z_fz#6K70|uWa3j;LWF~qIgaQKLQ=(B8cz>6cqy*Y3MJv3-X9}(?RhhLlw#D&e(}d{
z1|y1r^9aMkQ@nl@Pv5@zX;z1IAfJ-Jfk#T)Kn}(Ou=e>fWjf*(fHo6Y@6X@UGt4`F
ze4beXQ{UT%FFWUUX5#QrPrBX8&$C2Tc48Tx^j;fRQ!!b*Z72xr4}D2mrk<XBud=f8
zj>d$67VG-JOP9kp0SzyeSP6!#giACE2Dt9-8Y36XLfO8&Zvbu%tcHDWolkehZ_{jr
z4G|<`@hvy%`Xc`X6A^JQySKkC)V&pq|8avkw!YdEQ_3byo@|w8IJ)&J_n=nt+pO+5
zs8|bw9bL?qR3!3Wci#M>?K#j5O6Qy|Ko`dW#nT$W-H$!=avUKXlKPlSjl*oqT$h6U
z0ZZFTaJM2c<xdnJN#}k)YsWm(UtL+y!mBrOV{dMOd1Vxh=U^bg=j$r%_`SgHEoDN{
zD_{-lo^LF1(awTnY!vp?9uC5Ab2qTc$YWH6nxY?FnV^L>guZT_mj-fr#6T?PW-v&=
zIi6#A&)1s~D31zZqvjKX^LejyHBK_`pKL?pE@8DVgIvY-14gjuRoZ|@g=})xswXPg
zA<p<_FrIfsppeLf$>lG6(M5qDkmn$9cLN|wwyHv_Y=wG(T?8n$wm$3f;gL@nipC_%
zagaqwNT+1JLyqzc-SyO|-mebl*!Two1W<#|z;;7GaAunwN)jrGB;j+7KvmuK5uFtW
z_~!!<Q?@D3mygtT*#91(ro}}?U4Q?%AFH?ei2N?>TBZc;fDoJT(Y!J!IZdIY;{*ff
zZ6I)GF%|D9A9KOVfA2Ud#_H8T!Sn{hl;{?iLex;PFf#7#???ZtgtAi^rAw;H`$4pP
zn_}@5Hn!A8qBY7B7pa*$xz`t#j9OXG(eAI*FN5+u%NAG7ts7XZ$;wGq#{suBV7r%5
zdPc7Y%E>kkoL|$d0Sw93L%0qqgHY%YwKjfchfNz6M~Os~a?s_xGE@gu5*Qd?Jz6NS
z+8&@MBKd=hyZafL`UPiyG{23APP^NpbN$tWW&XC?;awoHZdpweXwN8wu?DD1ZelLO
ztrJAbI;0xjapUY43U18791V<H=6$I=F$Jm8!WF#WNXmx(h?RnABE3Gag*yJQ!<9h(
zecf;mGW(tIwN<A&dhRq4H8fdKvaQc|pjdkye~K0XP^Eo-GLj#!#N0Pn6P$5&P&cvi
zgtF9~y>9Jbkhui`-rTC8=yLRI0Rj0#6SL)jBT+jxh&!S6?8vnr%=eGc*g*gcao55S
z5G&`2)*?3(hXL5wO9+c0DWyb~7%@!RNc`iz;3G_N=M}Zr$*VxC4T()Kpoyd9tRIZ#
z3Vu?ci0P#~f2(|cd)@i*^Oc}}zye&xPD0)#%6C=hg=GRNH7A)5v0)@|U>8BrM0MwL
zt16)I^S+FqZ<}!y5fwif*O6~9YVfs1fORTwHT3$3tTMzN{k+e=O0T)d8rA)2*W=!!
z3vFWy@OKKI@zDWPT`J1U7edS%;|Fpa>X$P>oCIdiVBNz#>+fQU_c!6rdkZ<Dmmx{W
zhXnKQU3U?Tl}WV!r3_%L6!%LzDZu3+sHggDL0vEI)B!Y`e)(ZoH=vkmEc*AbvR9Su
z-)Z^aNDgPt+M}*t%20pK!59-7Iop?&Xjmyl5~laX5JZs%IMN$enUU6tRl`Bx$#0Xy
zk`JeRo3@g5Bnv2GQCzYfP0gSS6Jlei{~hL955SMMBwAk|MKAQB$>?f)>XIO}XhdXN
zEjDiCmN_X<%Ygn#1Il5=dhE&NsJ}78qXc<=d?$J_f7{Q$S2^}DRdTy|QDCaqboca>
zfgTBlr2ROcFE{tyyLO3+i8Y3lrGTToyXkB^3b`Aj84=fuLN^Q@K(*T#R_|e$ppcO@
z1%60~-kC<HhCrG-_basSO>t#<#e~115t}Kh@^|(~5siz)lRPrsoI#X9GZJjdTbbON
zq<|`Z;<RZRP=TO*6=H*?loIb7y+sSpLSR=+Wjk=xBeL~aPHyc~Y+z*^l`Vr50zsMx
z8zk%dnqzFeLH%H$8NI0jC#bOB9iuZYNh3Fh)l0g@miJFz*7Y*jdIz97DwZZb+u!c%
zY)Rlm>Fq3A4^#;NSZ2UVf_`e2qQRQ{@whf@TuZ`KvkE20*!nM$wT(Cs5t2UCr%)6p
zm~x_J{K)UF&WE#R7h*Hj?+w&1K<|P|<#ofxTRFr!#2lX{GL|Y}Q>H9mxn>{AXcPuF
z4)Tw@oHZN)6eb*E8e~)v1N@#1zy$ELw}fDUwTlLDX5@|Dl#DFMwnuI|3K*MwRQ~fu
z2nCQ><@vyiOyCuR6>WY@G4Kg(93<dJROq3RAX_!{NJdLkNa*jY4@U|eR?QB;#KE}I
z=NpIN@kI)#Vre3Xv45<wIcufnD}58N$i6Fth^&H&t`r5)0q8mhG3g1N(`pmD(Qok6
ziE>_ANX`*XiHW3xZs2Nq*yw=0JUkY~^lGL4#M|4~dhBLUW|2yqqzn&3s?Z^><K_!i
z$`NcgY9NaFr*N#=KkxE`(<k8n(^^t%@XhcaTAzQJ8WhCid;yOdYY`yo;AMB?qeo3J
zmWyv4FvEPblW^i8We#+6Z8no@yn%QVafzQc$ve!QJAHs=x{)u8W$OX9y0zmgbz?|D
zR<{$14Y(<lxVlWJ%|-x6=k9uN9IqNmXY$weedGN-4l-Mlt&2zA&1qmRl%ktqT;Wq6
z00|cXMa9zCrO+maJRG|*^CpkE$KqY|7Vkh)-1|}$Rtf&kWsTLQ(breP`{MB@(+?-s
zqx@B_an34yFh-hiOl<K`5bh4qanSMTrrIAE;ipEwTXr&`khrw`(@Q?U<#{H0PLzT<
zCUG);6%fpA>MGnJmpS&{gN*C*0Fo*ryR17BiN|~lH)-NTX5yM7+>cKoer6q}u*|bq
z9nRdQ2Rr~o9uJV(jQab!$NvSHj0y6yVp%fcpj~d#bdpxUj0JjXFNl{y0H%mYOKYl>
z{uYl0;34EEBU~|bHI*|)szuy&JM8i~@NCZO+<%YRa385g#?LTLs~b@7Bh;F`H^#48
z6Ps}sPka-kV5q88-7GOJFiMdk$-INr$&#Rvdxo+i6L)8d{#u|<*ul$q^%fZa1C3J$
z1pCDhH%s%JV=6M#H;P4gyo6b8!dO7_XI{#`_%S<-Itd&pJ%M67U?IpKRNg&C)CjdC
zJwn{ciqh=cZ9L%005}NBSe@dtL_mr_dq<clSPLb4`@S3I&Gn&xiI2gY7YcVztdob}
z&OTn<F#0)L@2g<I$Fcp@ED~U4pZJ?uoIcQTot6_j2`L~JlVPaZ7iBdeO4JKPgQVvs
z!I6L&oRN&?D9aWb<JrL#D|M-m`WNI0pW&o^8Jht+QzjD{41Mpid)+0_K3TXj{Vh^U
z9*kZE0R5L(&*+B1KW1cPY>f2aa1L{uOBU<75i&D6r$>hO?%ZkUum-T>b{a7Fuabhr
zN|=n>06@mt6-e&w?kTU!(_aA`K-OO1Q1~ww+_v_x2g)xxwuci8UC=k@S$d}$k`Sh3
zGLanRc8W55Xb@xJwtzb-k6b0D{NR#FSyUui7J#_#E84kN%r_l;352=fz*5;9WV;Y!
zf4j`L@r#lLQy_4mNM$&cS5FkE50#<R@wD87&YtRD@S;5iYq)R3OK}}W>p^fY`p5}p
zxQ#coe<=->sQMkzrx3&Q#So&915i=8Ui};cg%_g#GrlvxM<bDM!ZBar=AH^Yze#b(
z4g6QB!=v$-C9)Oa8pDN84Fw&o+_7`83P?H%k*vk*<A}z<5K2hHaOec?aA5{>{<j-0
zpJI?rAL4!jP~M7<C_yJcvQwx(cVI2<*}L~0x_^jhNd{zsx}n-_gxEr9ls9>KTVHSQ
zaf18Qr*MEc-7?At@ha%7%Wi}W6n9_f`m4iglLI87=zze}9fjn%9nrdIiE#(z7;sHK
zLLehvej!;T{qU{0JkwSf#JN7Tq>w$KG?ohk%O&;tDX?_BDH^*+n8)Go(|d+G$ohCS
zwxDp%(@8S2ApAH&E!C;A`iY}&#`?K=$E1{D%pfLF|A-<80?_5qVxcQjg_4CqV@Fq3
zWmoUlYTLvUin~DKU`Sp3@|WX82_aDliMI_YXgt{}kT1CY&aEFZjAyIVKyZ<SBP~|y
zr#Za*qz|l7Og}9}O#QK~!u()$u(5;|V=BKG4bqW>3Uit7fQ>wbrp({Cq2jl9cx;!a
zF$-3*8{a<-I?FQ}PFZcUd&SzI_145|Ij;^YA3OF4jTUfYQdm1e^ia;f)?66I0BT@;
zyr6ABmk|zZP6m_VQ#wh@bmz@cah>N%c!p)5a1b}v(?NY7(j1ckjUNb-oASnglQw4^
zW_b29V%+${nkbN-qT}h|aUb%CCO|rA4NY4HyKW&0kbw;emz~oJqSk`gx(goyJ-fP@
zq~V3GD-^1X2c%m;&(+bH{9`wrfCd^@8IXPndPqT8YxASfvW7!m8M>Jpf?2$3{x)rH
z0uqaviqEaxz~uuWG5T63KG6>W7$+0$Ao+N(Y5Em1ErZOc^>#5-VXshY06hS#bHckx
z!AtC6LbbgDhI%JXn$&sBhWo&IRij1-DnbChl=W0vx}WQ7SO(r5NUlO35-Sw2JF=Qk
zT{rC0{)4G>fgGVLbFTR}XqZgU4M6I9|Lpfv4ZtuOXw-sDohylFl#$T_(4Aya=K_};
zLdW;Pf)*OE_6}q2x(y7>#!x;AL~B><h6vIR0yC$8f(KZFECL0ZD)a=WU-!fL!<DTq
z56LK_Nkk$#A!v)%0j4MZ9YdwLYe+c<k<9^2v-)s;ZSHIfSU!P~Fx-gQ6W<?YaiEGM
z3@?8v!w2RWru+p5oCd%U2jB^geIJb2g2%6pl&hwrb1wnMn~nUmjY(YDruT7eJoXh+
zo)0C7zhMeQ7nNym#Fs$ZK`=RzA`umEmsTe^Fsdmm;8ekBqwlbFjCT_cEVw-l=kf7*
zwxp1v@I+et0CHRB^p?^hfNT)Jse>_52AON$(@OCa79pzDuooWr33STE&Fa%-9zqk=
zfNqx4ztj2P(W4=t1%Q^wV6tE*1{SF_26imW#@>Q(?=H>K5nl`D@&J|wb+{<7&q|M$
z5G<z)OUromYW=IsNPau>k3SwzutdSxSRNA!>gW;uD}Z%c!`ObordOCUfTl_awO&Fu
zV15E_vJe|8rT6&gWup8QX|vA&azG3mbdovkPtmSs5u1QgLk&?xP&Qbc|2iROz+^~G
zQiN4sg2Nb7(e7)Oa_{-6rd*BlJ&^IqK>HRyJXma>;gtw~DyE=knd<aGC}sLkuM3a#
zSg4{%%zO8)7%F$PSlSc^(K1nxhGgtWVj9k{>I1F}MTP|$d=t2XP_>S2RC8nhXbZsF
zI_9%az;!H><KHTq`uq9$F__^a6sec0wSQy#PVX{;6up**GRS9PsFbKs$2^*Su^ns#
z-V(Cuqi4@vuKrjF2W;FQ804<N8X2v1&&$!K39+&1EM=mhgWv?i-Qh$%DN&IcD9+@1
zi<|1mbMN40(K1<EsPPHXI&(zS^TNf8))33!vE>!4>SsQ-G9NS#MwZSibHJfg)_q;a
zU#{VPSld3V)7I+L3PI_Kktoh|fR7df<nMyG&Pet<a9NHJah?yYuk(o>mfy_%z_jc9
zQ_OypYMZk;6!L-Z9Y+k7arpTJ9{CaId?}hy`3?+5m|>GruI0^h?u#Ad)23?f$j4aE
zeSEbrtTRXjPJJ*u14xw8^7!Iko5-lSrrQb7O#_`108gS7{0iP>cuH7eAy{z@P@QzE
zZ2xslR|Qk%t6<_n9Nr26jz8`ozj#4d8OQ`KgpMWmL`eQ9c)(iNg9UdR;v6V}Qw6z6
zVe6udQf2O2wJGBiw9!9j?0);;MIPE$U}c`3p1}Z|fqj5oz@h+KY$rQ^^!J>2TzR6e
z0HJOvkJ<gvvB!^Qh7jM3WqTNC-e_zU9lk6&&)YBGb3f+Dw)15dp~;Rw>(zw8@RcJ6
z6_A(}kXRTh&OWqUB)T~3VEi2`Nz%GejgaPOnhRp%f>hGVxX;ndn$LDqhFL-r<Z|yo
zyL-3X1F0^GmMABO$w5fXof3^^zu}ItKM`-S7+Z92{R)IF^4w6b@s6^+I1-85qp)h!
zcb+f%4NuPN;dAXY2Rl-nn}9q9u)Gw~5+jW$jJlwwr{W)F^ETj3Du`1;$AM!ZQ*p4y
z8=nrKoj5@0^A7s2?{O5Luq+~=ZyJ>z;1-yj<g=}6rXF;|=?7oRAWSX6=0zHQmYNA3
z9{fH!L1oDD*P)h2P-jD#$`L~Gun#l$B&@3P*XIDRC;`~DqZFv;`XhqeJNrkdO=3C1
zli(LX9ZZAYnd;M8m8r8qoB@I|LFeq|{>D$X?1?M)_Z|M^)sw0KNo9yZw{H%Sk`}eu
zzEP7#|7%St?#CMni&-1e9gXumMJ<c1xyz&Su1H&wCK8C@y^lK}H}Ex_Cm?V;I*$9k
zKQ~WIF=I+mR%HDIj`6xo3q`1vEAHAShe&Rs&gfCDv5o<aC6h^{9rPO=v5E-kP_MuG
z57*%D_(OBIEP1RpkZhM^`Vo>i9q2J?awSyG93eog$TfPGjk#}Lqdkzq2nId@(*6!m
zQ7CfG9uB6eq-aQtcsc@zF=6@$4+dPB7wCU5zkE<bP*B8M7Gbo@3I)LmQ{YqT>JcS#
z1Gu}$iRTheG?{L1N954}H7+<llE#`)o9jiDO8CCfN^?krn5BtvyZ!4nPZpoEF&LNc
zf&nW`Q}bbHAi{KTa8UB_-xB~}5ldvY=U4St_T*yO#XX)P_X*=7kuf;)IK!-|bc!U2
z7oiLZLd}Sc7>-~~VpC$f5WV-FskSqYy8ajUQ<;fdCZ_1YQz@EK6T(Tg8+X@aTp1NV
z(JwmiaR~x+um98bzgU)qLy=`N!GP%P{q@3%_b-~Z;aRG|{+TAPpi3gWZh=GFd4wHZ
zy&%-mVrZ{i_{AHU%-~<&e+;kQv|c14!c#~t2z30W5NYYKv}xw5o2F)@7jb`Ge+Tv<
zo>&Nm9M)Ep!8L>0id39W0F;0JUT&Jt@S*hs%7k<uZu%M+%py1uO)Kmwq!A36gWyUy
zLR7G#NDRv6F6#_oY`+sge%vm;MK*~bBMWRUkOiJ7ugOuQ0U#?<&@CZH%nd?8C%bEu
zLSeC_A7nHg{piqn!*C<WQh-U#m!(m+66S=yZ7Eyp>0xJ7nY%m)g`xV_NtHef)6;IJ
zfk;8lwdM}-$P`*Q!4Twzqc#GiVpj0$;Y-n%0vfs@69A!fegHr}9AF@VLAq*0OVwKL
z`aVVP`}*+HT9dS#BSlDHI2*{Gom5(S2(EE_b|bqKpI_<36YWdGjuMLd_n&E)1Bk9*
zbN^mcZJt6T;l=H@Q21wZ!!Hy5Cy|E6Bd-j_K0#sV<!%a5MG6`2ml{d#Gn$Iee~cLx
zw{~<(7S@sAT<DlNsPh~-!RVJE)nSSY9k{>kFbi?U6qLK+0E*bUzCKiS-(dSnw9E}x
z?sp2D9*DaOsnZ!(DWr=~Nu={Qw9i#G6({9haaW+ygr9b@TMua<K8x!nsc~p4)mww{
zkD};+yuC(j4);Tu1-lWyP>i50G|Se)-7ZBwoubKI2TtFEc5!nc>!%0~2^syV2@+}J
zewLH_gADF3vo^c@LXG~@zdYLi{O{hnqtk}P=YW%#sH!=!UOTOf+C8BhvxNGyqf{Ca
z((d!Kq-lf`$~2R2cX4L<<tT0qR_P+rws<!h0d-^~l(C(urD&#Te#2{pW|7kod>Q)u
zjK~{2t1O7FCB9kmpXk`+$?Le_7(OO*k?DW?w;%od|J}F$w{Gmnwf>*qnfXsVGkOY@
z7<XX9lfD!z79U1WXd)J<6)8lp0{^8k*>*mGm6M%ah!!psm5Pz9F{BrBWNjWJ8E?AH
zg)O#j+j&00iNwClq)CV}zVjAPuTKRr)az(7<vAp6CH*@r?_*vcl{vw^_X%snF7f`2
zYJ)TYyr3M=RVKkx3ey~fABvz&gzkkx41gBQG^va0r&U&Xa5J*)Y~E^~!x;YM1VcU%
zLHbLnt`88P*?+xbOiF!r5$MQ`{xe2DZR?Be*c`AMYb;8EC(<6ye22Dep`D<(h1eeu
zZPP5c@7v}`JN-WoT~PeO9XwVN&Kw{u4=ke=Cs&;-wj*p`=y==jrFXM`i3w_6AfQY6
zVMt{iWIAjWB-5%t1x7E>seq!vzXL`v{}UR)y~z^=wwR9>X~vYtIzTh29l6Wx8^c0l
zE$bBl)9)f03SI<t^=De#1Cd;D-dqq;c?239S)0b{*GQylID=rn<A~M_Z#hxKrp;a+
z%r=f6SwyoFoOMX)sL>SChnb;dLq&AY1Y2XgGy=eyX4ERA85%9cLJ(Q8;&o6t_crtG
zMIlQncJq|>%a{j=#L8(zxJm*RT>|qaKuZcq>e+%@&ZWSdmB1Oa(jt<Q2ark&i8(_u
zUd3=p7S_ax$oveM?Bf8vV<`7Yd5%gOpx-Xgx}td-Aqky{8754R=<VTtnZSiX8BM|%
z<wc5kj1NI7SO!Hz1ke_Oks$g?8EMjgGA&hhwtNRZ^t9{C2nk&>m~ed?-``_27b}mQ
z%{%)A4wU5c7&Bv@67yopY%4y&Lu%ucZ08vn%meVR#BVffr-Q`gh{w5ZGFRnqN^+hY
zX|f9Fndbj)$B)+FggtNs$TfP1c0M_&DI`}mbU$uS#yF9-ahgCGfc=Hm)*hj|3r`(o
zKx~@_+IGw~yde0i8JRA3UTP<XNR??8fawevUJ+Uxwq>wke-e~ORuB>!T;Wy^3wJ8l
zOo315L%6AYLl0g?ITZ3b8uWv;9_+RsiBOgXO65aR0ictOAePH;EJ3Z6%*A=XPywYK
z=cQP#5(FSnV+S&f=Al8kq}wwnG4b!<-E~Q{T4|O*fS)pUW(iQRm2B)aPfWEvhTv{&
z=W6cyyd*F&WlS5mtZ!)dRWOCotp%JS?jFuAAWj|uKmKdg6dY#<8qO0600jLeAN_N0
zQPzeo+HtwI=~s_lw~IMnRzUnS$+0=4Xl_L1>{ZdCZetUVi-ECjIAHR;Pp6K76V*zw
zJ)PD<y)+8RV<<5(c3MQ^0w`yWqe6SJVIKDi7oq$OptgiVT5r;)pyyRRc<{E6D9$*6
zQ0pl{*r<&dd5)y`OFHQG9n`s~IrfrcGY|~xEWtBlTNnQN#zGTQ&cz>nGlwk}x3B_h
zj$MRp=5kV%;KVy?ccZRXNB!nFONjdd?eIUESz<}>N$``llv4~<JrK?}Y?G|Bl1-;v
z?P-ZYi%gOO#)04PIL;gi1B9qG?fi0gw519h;JF&DX`^rDl<S7?Linsbs&`V+gT{`3
zZ$si{p)g=X^Sj|0cOc;J`fGqZO@YX4Zixv#EXBQ$0wtr)7&KN|BNQFY-k89f2mw3<
zctlG%6SEt$CF%hBgc?8&OtARdnWh}(fJu|geZCRW-bWC-JVNci`6@SgJgO9F>(fM`
zg@>?$MBfM>%TK#i5f};S-x$~YwNtO`Kz#3E>*Kq2u(xn8#Wq`OD-N^PAXz$;GJNyr
z`<pX<FFz@P3G2pONfQL;zpGs0{&w@#87X5dzy>s-U@8JQN$~_7K5^-AB%M0m`WNC^
z9h5QG03S)F;8TAg2D}-CzYv2bqH=BH?nuaKYHE@fL|&bWt?hHV1K2(cWEZ@$8@Zpk
z$d$+3X|`dkQ64{WL^Mke$&K=f3KaS@HbKI^sN`0euZ`St@a8n$Y8JtlBx<KonRn;#
z00<T)tt1JGXmV#$Pvy((U*$RH_C=|Mt`eA^x{3adQ9f~63Wqm9`FsE~HXcpHSrGh+
zN)g-Ohw(39=EMaabJhTcL`!fhB0v85#~)qp%)k!n0x`!{XOm3O5v^Z{R=g`(O7WLe
zm(m`<(vOKp{)`&x@JS#0Nrd}lFU`T4W^4dgr1mvNlzv~8+Qk8E(FN5fg#h5n&LKJz
zCQVX>n3l|H(BYAY0Yg~{rRj(|GB{Nx1M-8BpRLExbr_?Ri1DTq7pM<{kf0}g+Lf30
zG4`SdA@dWxv!KKr`Im4%|17<Nfxauod-shw2cpvaK_D*f=iXT*Y2}*k7=R#}d8j|@
z8Y6&c?E1m2bOSBuwcwpfpXJqwY3Q3JRA{-mxZqFR_ilE_o*Dc!jd|h?qd(oKG@O%c
zDt-pwf{r8iil3y5y_g!vJb-8J6|x#+lZYFRExryx_M7UgWF&Edfy3a3a*SO)K+n4D
z{UJ}NH+7NzRk3^!FfIsARk~mM^(#l)X#xI``{`8nryBF0POIu1|17AuBK(`kor)Gb
z3Ux0r&!sGVi{z>`nUBzo7=>@+EyB&bD7f8uI&;)j;>FYli(&9beTJ8p7l_EOcTHg?
zx&r&_^_R^wPul(cqdq`?4<Teq5zIg!yL2kN9_q@M{eBGJ=^v|pQ3e7fW~YG&oqV$6
zsW`$kS#$xa5&dXNBZdHdN+8;TXM_m$5TJJ^_stuc6s16m`sp~P0Q$Z&!@lMffW0HY
zg`M9xHULjL5Xi#?LAfxp7a{HL9Gp^zVX{A)PdQCA#N~{Lw{gVsVBIR_cbg4coln<f
zi~-}g7oS=L0}#4dho0-K>~1cnL)A;AI$1w6m$+|a9sngs?Jm_$YJQeC@=LA@w&)?m
zmto)nt|9dXS5(7+<Ld%&c`@~6>CgE)S(H0*Wd|VEc^rL45Wc{Gr@F%zV5vb7`#uR`
zIehYDn+fxwknt7@0}GLash<n;rYN0;?;@MCGO_j#i%D(wAz)_|I4E6n#51nIC@Ini
ze;bLI&8{B~DEBo_<Pj+cd%TLBgzmirE<X!*U)*YNA)eI$p%U>VsF==f8iuFxB^sTj
z-G|)wL-ija>@q@_TFlXXH)gMugOF`R1q{U21ikhLIMCv-JSG^<!;l+<0ShxJ3cdz<
zJ!GzViZa&1q+a$@?phr?pSOA;P-Z0(=KT5RMZsUC-CRQ#Zmqz2BKnW^&;X4$_mvqT
z|Lhd^Dc5i}7t8loZ-f48{jOhn4AzN%HjwZC3Ay~2-<dB6o3(dnQifEvc*Yh$&BE6z
zc^uw+Iwi7svwtPe0J+MlyNziR9136}I(}c9dD~$8m`e|ECnELJ^}s}vsQt;yF=CSw
zDk2d?BM=>dN=>14^$dLnDYX$4UQFeEq=bzffmsAyyE?Cte?K?ajp4thXb{8up6nPS
z<_T*&8ib&C1(g5f<u;bmKX1cf=HI-3|L*Oh{+H$Szj`wN?mPeI-kAB<N3P~&FrFpP
zk&r`>D@M@<!@{LF?dkxjE&-Q#`uavdIHQB&{4G*i5ULa~$+;0jF!rQ)1rSD_I4gB^
zZ!FRhIMjmaJ?Nurb7%J;d<wPTARYr-oG^+r2pMpTh>l~1Fd`SOpPr`iv{y#1X1h&}
zcuqoZH<Uk(_`e^vAF)S?hRkXiBU|e&czEo@jvl+^Uc;5$yIpk>YRql2#n~1zetr05
z>PSyQ&I?ApjD&RPhp13MJ4(WucQMBMF=4-0M1qI6{F8s)g2Y#G%l{T&7LI)luvxz2
zTPRdJN70(j$B8n-16epN(Cd9YP6jruG&^%`5XYGZzI%@is}}O5=YZ?hZTMhAhX8%7
zvd*8+h40{QovoBIaNT5)Hx-}I+nFMnDODe}<#25hFB7xFY_{QE#N<tGotNjDt%kC8
ziY>jz^LnOZx7q2IiQ;?TvMQ);M;R0iy4B}{4FLP3h7ey*FRufKlZjx);b&_ye~RsO
zFJC05Hg%?Wf|JsrE0xc7;Ek&9C8(Ur*EKgByZyYNg#w2NW$-?tl9G}~498A<_HvVt
zRHAd?w)3+V!6jG)?OHTiw-EFTOd~W`x%v6td37A5DnQ#X1qj61N~XS;aNY*QVP$*)
zR76yNmVQTh_aVtT0?K<Fn$v{_0R!`gO8bDWk^8}`AG7AqkHS47nMomh0jQ{34n+uF
zX0+K%KWhTtkt>y)fm`}^kSZ-T+<R>c^mkF>J?E4X-!DpNp1wrs=9YZzoP_$Q^uw=T
zT2C4>z^?~GEA<U7RuSrt58ek33QM1tE)vU^E6_j$4&(DP9|q6*`?1mciQB1r)l_3b
zTfe}ej4Nmn3{hwqOle=R;grGClUc5_4dYBv|K{Kn@@G|0iQps_lt*h<`s792j!OJG
z$Mmdu=&=cEu3L|9mq>6GJ$p{~r#0n?v#I(S8rvlkn)z{&QuUD%FQm_;Uh`<;-|j4E
zktbl72C~yZe{iK)`U}??BH2@WbgFCl%c2UmpPv;^qv%ZwJf1&)zPMt8U%o@<I~>aq
z@qS2WrB4`xrC;&`M$PSF{?GUWd1f!Exu%pSZYa|B;P8Z3mCp?EwfyfTWRC5r>|Q4q
zr9DBI7M|<1>(^uYWPwM>XVOhQyK+A+B1-rEWzjhXvSoT_BjfIQd#fMu1#|lLZfFQd
zPKa1m#BV{01OZjr=LpzlvrFs|8|LZ^FNIw>;tSvXdIHPpBl#*V%ZdfgD;=iW56t;s
z9)j?+9D(x}nokwfvCS5BDb+Z)=xlgl3p;g}6EWbcO?xr$zdWu0F+n>IJmvD;R{k+N
zTp#I(?J*m3KXYoL(G|RWqqO<M8vkVf%n6tNkgYAnL>v==0(lRI@C&q>mvmgWDsLb3
z&nvFn{_TFoq>5fd^2oX^L+$Rn;!)AM#|^-<Ano1exu~Aawf}Sq4f%l0uyUqw!bCF2
zBip<ZSWBXICD9JXHoCw^EQfPuO?zO+(;a5mI)MxK=WB~Tua63q(7W2i@Lv#Dv&^fr
zXu!D{G^T7d*j=W;!FeQ5BQ)Q<HbZ2eNVTOG-v9H5nLHQPOOI6=hk4x)U~h7q-=|HJ
zf;ekeJk^jImW9u&S{?qp79e{j|I6)Mncc@08jjubr%R%dtNGU&@rIEA1LasIhKXm+
zstHqiBcA+<nZQ@uU}w6w4Z9by!dYp?o<!2)z;^KvF2d#Y6+{*vdnP+>(tRPd)<g#n
z?aWgx6D3`1oKFfEzJpg~Qxgv&odymV_BaWX=@a5O6V~g)8T7g^NIgDy4&=CnoVJYY
z-&b?*KdAGDSa1y)J8bH$y@iCy%)E*9OCih7vU(3K>KkuW5m@)%_trK`&_?5`7#dTU
zw0nW08p!ZMOwwr`UZ9gaU2J=Uf8MObx+zh*=Mh%o+bb;#$Yfx|Nb3=%s$RvXp3?Kh
zK^g9S(dv<R<L>$TYG;aUGQJ|9EUgxcbp@a?we2rv62Vs(?iLL#K3<iLQzv#pVNa%G
zB}4kdeLm2a&%60v$?n(c#Ma}xXIWMukZ87u4}aN_g4)sL`t@RR$T%z;r8{A!O=5k=
zx&)yp-9^i6FJ2i_fbPF&PBnwx!?&`s@{bBwi07K5!_(FMhjIj?E^g|Jmgej{ZO!!U
z^Rorcf4*d4He2<_K*vr%5Q*r8BZtszx#rb%G;CI~bGA1t7seVgFVHsRVOqU~<@TSd
zy08U*omgcCbCKg982TNa?pYI^(y>SW?+JX%JijOA-qrTU^4Z{8vrB$$<}vi(G|wXx
zhSr4Xqp8FB^YuR4%sS_XvvR6}263K)R=WPrvQ^Ae?4ajj7G`#0h}zgys(@L98bHL7
zX7=K|na%m!jg@O(z305_nY=%PmOVFnv7q^;c2RG1Ad$+s%cI|6Vj>(dEbr3>{d`;K
z>^mJFZaO%c2bqY+iFKlQh&zxQ@>*<Ykex)_LSb+fp)u^;Qgbo<74MC{RK=u!QaaBf
z-mlxu@DwEubX9i9p}}8ws%C3b&!m8ZlWg;TT@KdLdFeBGbAv*0IX<|YS8Q1R!#Kxa
za5Khj7FV2Z+5Y5xw|^c}T-h<MEGi=~<N8giFED{^ioSxAU!c4eB}LOJ_QT`VDT#3@
zka($73<KRNwLs3D$<O~)H^ayP*U_$axw1nYe-~MYu_^JZ9vS)gJe#XCL>{HoN7fEo
zmd%o|zu3g@@M3D>fx93|weoNf<;rLKo*3?|JHqsg#7=FU<N<e{RofNu%rUR|7|sv!
zocZ?O7CAzcp;vVR^UwKOV42+&P7XuZpqWQ?{^AeMD8wBUQ!uk@`YU>ZuGQOJ+g!)m
z7;&?5+6HssVgKYbm$!3u5|s21xc5KTiCXNlimzEfxmWEHeKM1WkLFoe6Enmkya9uv
z_?kB)$MnFP;Sk`jvOydmc^iX}5dru>{)*B%i#te%2T#KOzrG|bw{QBRt(g<vBU811
z-%;u+u@pyBp>Wac$N9nu1wH3o-f$m?gLU<sFX@(LJ`(mWP5ildPIY0Rwmvj6<}kck
zG<%7dkBbF`cDswF8V2xD$d=!~UkZg<9A^l!1ktj69WecWoQ4|72-)A|gcRnKB6I<H
zrJj3WXg5*myvqzPUtP;Qfnk1IKgG~Qw1|;IP~SAfEb|Mpc*2dm`T+@<KZmGxd-y5I
zx#QUmGseyYV;t%X=QSXf?JFsk*ZJr9R(6cVqPUMmfzvv292jdP2erh093CWz?omB}
z#(r?ZLF|x(^tplOc3=-W2EPy<72Tui&!ZN2cxRnaedU^v6TNZ3|JGX6%HO(o?*y7$
z6Pz;r*mt>4o)KhhZ!YjMllFpN?0EH)l!>BpYKnMDve>q@?wzFqAMx<qkmGr<bR==|
z;#!O?#9;i%5>rCA{QOSVU8rbTk0~8V(v-}GHGA3+O{pDTbi;JkfcU%bi31*Zy4$Dm
z>Rq}tX;?-$2j<fwA@Ll*bKMi^7^GlcmzlG-0Gk(U&&+7CnUy$P^jQxb<F%~TJj%B>
zwKIRNPlu>IXz`a*8|J;r+;FTg&?3F;kq&o}XX~RFNs~R}D7d6deC!253scB9_3F1n
z^1BZfPGMOEag&Dl8hdnxvc*v#T)Faikx-(}N@+hu_j7xSVi@E7L?A=tBk~l3z%OZB
z*Sjw^r|5^iT4m;Kr_2eSLTZ)@9sAGeX5;eg#o@DnbW?_6dt>W(kv$^y-hNb+m)I@u
z{a)E^<T~p!3SK<eI#ID%LgWZTjV@^Si}RP9T9jOA*}FJlW5X>hGPU1rSWf9om3>p>
z9(bdG&W?k&ngm+F=_q@X8P}Eh_VPfEr6qXuCYE%@Bd;V4^)<maR||Hla<DQlq{#>%
zUxW$*v_eH&3VJtk%fP2;P+Xd1AOrsqo@kUHaQ?xi&xv`~lV+Y@Wzj^iHF})5Lob<e
z_{0yn&gc?%$;pMYZ!INwlr&5gX36`|cT%Aq=xjno`ldsfzMuAU5hkabFZiZ#|NLL*
zxBp{T$BYhGvRMC4zs<dj|C>gh`p^FpM(`i6`M>j$ng4e1;lFk>M*45ozwrS7&6~me
z6N>rAZT89sy+_7j2>cLbeuy|(05uIjFw=ev=$3EUM%4fO38SzH{y0_zSqlL&7?W%A
z9C&m_!AsaZKDFNe?1))l5uh~UF4JHAj^FmYJR%Yhdx&udMa&<?afC=6L#9b+$`vY)
zf{ANHJu5_gIu&R0rl#?MuyLySWJcrfUPY2+Izf1EMUEA)W0FA&$M08AP=(q?hz%GX
z-t8gJ0n|DL8jhvABNka%sUwL4U+M5cVK&$TRiM@r<JM-vkAN{FC6dr_<b3;@^W%Bu
zEXOO9_%0KX6IcZ8kPFEQ2G5}~N8=Zylnh8v>s6JuSt99ASG-#ac9DoHvS7NtD(xWT
z`Y3zvkQ^18H>btMXO4Su!-%{JLLF7)8gd!3e!FXyC?c7LE@SOQzl;9H=Yxi#qFeX$
z=MbrAMw>&yO=g7vGT;dji6=n-`a447rzZ)#ps%;b9ET*7T1`P=8L)Zir=ckgPO8BU
z4zU%nq!A4TrdAV5>%V?A!4w1yU@KJa#@CO-Y$V~Cui_itGC@~BKC76dkY6hN?yPf!
zefSbLFI$#%cmH#+aCc$3L;5^Op=X+$#raC)pYhHSD`4R|i3_CQ@v2^1urY|-ql?J4
z3)U?vMZICO@gniiVo^3~IK}&)Tj4gPLl)2=)5C#it1N?!|CtooGfb-*Fh#h&DV#*V
zqX}LxH5(JvLju4L4fID~M5PAlc~faTv-CTu$??10@RB%&wwXh7(b{LKtTobFU^x_q
z1T4=11xo@|>ZbtA0QCmvQV6z<%u(1Q+F%?tefZ0<caJ>u&bBa;U~c!3wJ(7RHpz7s
zi8zo&lw>m+I;Wk3JEuA3&9&CyfKr8$KnI`j4$?tTK}!=V&<DFp02l0TeS`b4RsPTj
zmRG}ID)#`5d5*4NI5we@BHj}cQHNKBfDniz^%2rN{c2_(1FK@p1l(BMZ=GC4Mr0^M
zmNpDbsEmk83g0X7wYK&f>>!Gv02E?_*-=HkJ25WD_rW#}1|(zAL{QOZ^kEqu#P(TB
z2z7NDmOPR@9Vo9Nhj^qWxs%&ESge@_?48@x4jqLLrpUS?YYbJDc0g3_!icx-soy;T
zg1-LJ?+{S0v~&fnL7Lo?gK1FUsw9vkO|%tXP)%v%aX1a5_zgjUDgq}ndmM4PEeWK>
zq&R3X!-c}2k)D4eljxTN$u=k1&q5qUB7g*G=E3R0@!CnjsaGJ3SBo0Ng)X!@@Vm`O
z{M#xLrkxOFmRQFhiQ|_zU8r+snV`UlL}R4DL7@b7z!G-p)sHE|dwLff_U?HSk9J~K
zGGpipdh9+#OJbNgBey0%SDoFKhlUYNR<+yG=D|s4hsk5@J=9hBN1zi<4_@rk85|l~
z-@j?e66R&Z5Zd$W4ugn!M6Z!=_G$fxE&b2(R(6W5r&mrId1Z#ekgZ}nY0EKHhcBBO
zI;gjyYAk+1Z2s2~L^nkZv!SMmU{=>;+IHW%bxZY80ZuYK_^JxauMtpQF*e5o+~nLk
z3q%I(3V4Sy<C+iRUQGWmvZq<L6cu2pi)j*9a(4<X)@-#i`*`;ICN{}v(e-;pU)8x8
zy}K6=BqMF~MV@rXhmaprQx3gsUWrd$-Lv^0Y`)x(@;(T|8IqLf^n;e%`U;IQE?49t
zNb<k5&LP}wv}ab|&8s7G8nl5peY)z?se_hvW*=hNXuIEUro$cvTg;i|hVSsgN5@97
ze4|2|Anz?;ysgqs!NVaK`(6dRR~c!bWF_pU$hDs4j{)O#<3Sb9OTn-gQ6RX;_a7n?
zs>4B59CX%$vVb9}Hu>XVG;eO;65LKF!PVm_Y%9qPcWxODLfA8be4G=EQ&5j#Zp)~#
z3H(qp`tlWQE%?esfxSOmf&D?=v|`2Q=#@`bk3=SsAYezwfMe1y%RILt^GLupfi$p(
zF2}i)jw1NL#2$b6<0%S1ng=v;q5Crv^)mhuIB(w6E5y>HG$V=~XHON*)X=#Puphb<
z92;+A|D)U(CEPe-fS{021HA9yNRTsx751N;XOV9{{Wh$*Ko{8q*s=cn_wN+q-nZbH
zEA?KQZOH6>auFXk@?+~h<Cnnh|64&YT7UdMX8>+?A&Srp53J8#Och=T5QxabZ}Cip
znJOqcHE3R|EDJUfm3>b!6h{<dcoM8=FabY+Z^JQVk0QS0p~5WchyfV?$U5{v9SIZj
zDkxP%vFKyYU4exfG9@Ora*Z9oCc@K+su--bOKLjzvlnD(s{|lf_>lJB!{bv7f{+ta
zs4V;*4}&$f0+UzWlsKS@DBU$nm#_KMfEiQ<6x}*!o+Uvs2186S;ywrZB5=ia0Ve}s
z!+?{#7Wb3jjPPL`=5h>B0LkK}xji}D7F^gWj!W}7CoC!@mGIiJe{Gaft@{`8umZ?T
zbkqB*nD1Rk2Byg5o2#(uCv293uo9^qxHcyk`*d-($Ip+@^jKr{5R_f8vC|bKIpA;n
z&uZZ3X-9ZA!Qi8<_XiD*PzHvA1Bjz4&@*XiX@bj%)5C;K7&4vf>ahbgF3Y2E7LVUL
zviiXJgS@gRc4`b=DTaA{z+Irh2#kaA%jU*DI3?ppQBmkPm<f#jF=^eTyH7ti=#b`!
zDJLA;q4y1k9Z%3b+Y*PQatm3B@~0!V22r$SS>w*q8GS(e`I}esEEUL-#r#dxsh3j-
zfx;LY<K@(f@ceTmcWr$LtMd))B81|L^R5j;g|7j46QeQK_dlOl7{5vpMiV5#V~4M^
ze8O`crzL2YJW}2PL7JMnx;h9u7HjiPig9XMz)116y)kiTjrMX@MeAQzc9Rb*!i*{|
zhz~Utl<mj5m~U?pYxlC2tnx*Gkyp9a+0<v*&%rrG3PrtkI*tv06_B|$`8gocn9$D0
zq<J6CXYewwE<%YHhMq87H#r_vUl>3K)NEa<Vg2P$Ez&4G;)fVkJy!6XP4=<q|FxRe
zX9|$o8W}_d!Ukq#a`PH^FsV_@%*r}bn>~ZbTHp)H_^+622?a4bVj-I4_;Uv-|LLp(
zVPVbhS@0DtIJ_W4qv*H496T7KUWWm@R!^&xl|BmOn~Czr8ir<C(}YsMKH)Ho1zvWo
zdcfal8~|$r%D5G(3!r~pxN|lYlP0LA<T!~4(tA#nVVf<<Nx{Mo!Kcfq+z&u2dk1#W
ztX-|C&CMs4mm+H4!N`U$<OFvR<^RO_cgX8UAS61D?W-TZ>J5r?!_=%a&z|x@NX*uu
zZV~H<Nv`wO-fLzSH5+J(N0acKs$}NOtn&1{x;0E+aezxz{-;y7vB_qA$ZxQ^3o-u8
z<SJBnrs61J`4hjxJCr{;Rj3$Zr|lJ(L47a32Cl-+eXwVfgp>fsr~Ng6G-h-z8p99P
zFi6)pvKK`BI;<h*cyZCFj#_=qEdi5yn%pfzgTMH#JFapqfH8$!;SJt7rEzTmhHPDh
zECHs>tN^S1ej3$NTOY>ZxL$VA6sgJ@<$juif~4gwv}@7mDgb04zwJk(a)6Ei!=s5d
z{E7XHu%j6gKu#fFM$pteG#n~8MT}(af}>Ww${-b6p?^FFQt(0cmDOHn`Z<rmJ`<E9
z)BtHskVb_)4Rz9lF~)u%!xM&1FFJil3kVchpTa3K5aq=&NG8bQ4Miq-l#;|<<*BO5
z-rK9U5iSpHz}I}g2#Bo!5JMTM<G$&~ZTv1IYY&0xF<&dpV46h6;m{$(;V4WaV`I<}
zqEOl(r@ebQZHvz5b~=$3kNg1ig=A?4KCbD7HTXnTsAnYM^hZ|u5j{B#R=N0}z?TvL
zH4uzaP$%j;F)<M;5AY(%I1XhJ&HEu#iK-48<)lAj&TXF6QI@EB4;n&3j%YyC3(%Hh
z6crSxc&*!NwrzsePp|t9>4`b{!^x;+#BLgB+{Sjl@DQ^Baw<=k{OqW`Q473J(_@Jm
zVC|DacOb6%Vw0Te@(FF3$mv);_7=pzZrd$rYU1K?pxrujJnPOfKbj>#zHRVRjKSzV
z8pD%IasakQ6`uAy)BhP&qA$Y89QIM5fO@HC{ImO;Aw^QIm46Qn-&>g|6m-uD`*5GN
zn<ly4-H56!&J11bu2u$hu^guX44;Ri*~hfh!u9x+SVZ9WGg1(imo8nJDZd7z|BQl1
zKkoD6Yw&@XdgUdo?X;qO)?bh^51<nE*+))oY8fQ$OE+ywE$jm`aT{ue+3cfOw7sQv
zYc7;k3@mS|S3Q+JwBgLg*(bF<u_%i%U%Mpd9;|PgHW&EG8o$C=@u!kBEah*9sUdz8
z+aY&D&mu>7ejL-lJoHh+1jzPiDU8N&K=wYwN{K%F9K3^(t7vfnjGZ=CyH~Wtd!uy6
zv24-EMNmUNg2QFfr^|C=QU0*&cfSM4Qyf|`OITJ`8*Oe3O@GlK^R;FEZ8%H5J0X2=
zA6Bii-gmfJ2vLojP-UZizx(M^=4olY_NlZ|L{j#M-IT9cQdsuj5L$H~tD#S)$%Dvh
zXwW10BkajAL@yS5<K?G97|f_QKRtmSnR+6~_pHl}d}fy8uF9dqz6JRihDcpnnzlod
zSDI-3YNm#5>^^03cR{`gDujKiMj8Hqa+EO$NJx2;{_Nal-rg^jq9o-o-Pwj~Pp#gJ
z<94(*!#;aI4fnsmm;oggyJ<&hlzMlIFXBgS6P_6it@;)nN<*_@C{7N7c=J{7La<gF
z3-4bH{!9PU%I`mT>%M*s$FibyOmncXKZ6kTb?0wPhsx;yUA;wXBqW}`A6zCRB+o%3
z+L7w7@poENRI*EzIld4TIBXiA4DM9bkynB4$fYU@&DpD{ezcFmeycc{P)Z}u0DYi~
z3s;Xc+4rd(U9vnW>Rej#7EssKoJ6oBXDB+mWr}%c^y2{c(0)d|AW`)$_V)40=cnPD
zl8WM}bKe_|REyl{cJJE1Hstj^K@&9Ho=ShGJ<A~#Eb8?L_7^efGMIm5NvwGUv3%m>
zPWj%(j`zcbpv`&7gU+Cq$*>AtGYvrJ`K&@5+L<$6N%55<ek+>uLtm$TrMcec6lSsB
zX=J%&4Z}l$Z5VrDb6~=x-MoI5TkHxE^L3A)34p#ApgAqgd-vwm)z%*D{Ps2RRG0Na
z9os0rgjVPW^m>|34taHVwp*pwNuSx%K~|HXoJl)OOBVZHGoZmaz*KYS_K}sh``>?*
z2A;&TEOvPRSk%86?j33K$wqOU_~osej)<>cUn+LYN6kviOxG@<05QZGx>s^t!1ANx
zzBbO^CTN1&B+LecyZotcbzh2df!(frlp%b{`%s8HZ2|@%L=%Y}$Hd$@a!>kpu&0$P
z?BDOBW^uYgBe$=2Y%!Eu5cnCenIdrSVbGxA{B7z91L{fP@|Akh$U4$h%c2*VK4<jq
zH-U}zQR_IS%B;<-o$FWs#$9U3+Lw?H<J=Q=5$@adlL@2|u1~jV&1-qs`Kk)&G#$1;
zbM?3r`k&=Xl+KhK&|q`WKk1zC4cg7PYrXmaCqae2^q!+2<zJa;6b*zEgD=#8j<s`T
z4NDVU?bD`_<ADYSUJj|37A(8n(NT|zqJ-v@@!|*srQV@a&k)|$^aN<Uj)Lqh(sCM$
zRr_nxs7}FVl{h9bwsDau=kb->`|hmSg{`|hmKlONGv37#HC|`Kk4%A0KWi?M*A&5t
zNUL?eWo2$=DeZFXBFulg_^H|;S#g5V2Wu_~gwSSH!@!OVFw`2y<{G*}1DE(m&s>!J
z5U&y$TqiS*!9knbJ?eLpNL(of!q&3yr#-tne-BBS5&!Cj$rc6=A#rmjsh(9lra2?E
z{1`!mvC(;}vBh%gEO@2o44YzHnI`%X9ILE~_tEh85myhy8QgRvHd(d`24^X|1)MZ@
z9U0#SP|#GQunKC&ipS&C>^?(l5EJrn1Gq}*kGvnRVa5?OsxX^LsI<6F5aSz<yZ-)B
z5K1?qKjsKEr5E*Hu_XT+PW~)@NPkcIF&I}bgQCU!M(v6{NHUT*`<q?AU?J7a=y6`(
z)h~gJ0Ami6%#q&f+S`9NI_76*)AVN-68S;K^(S~+Yaj!3L<yGjGZ&_ENR1vScq4H(
z^~vaB4sE(84t<NhL%TC1DR(WphcP%T&%uM%NZX1uA}>0`CL!NU9drO>BL!uIDfR+Z
z!GR|`IwGDtSxxo<xF)hO=t}-L7^UQk8)aIZVz;?!2;ZBu62fe>$-+#2x;+YXQ-Gq*
zdIig0>;Am?NU81f^;P8IMBKDBkXQclqtGpsIuzKE>nN1naGlqbs<KkOf0AGZG(FGW
z5B_K<-i@xN2%^phWc-4$qh0ZxKelP5*#^L!=m1z`MXV_CSXegMLvS3O+tv2;86(nE
z|K|#5v`W+2RF%Z0Ar^xDiS5Xliz*q`7imHbm}M6~^Oz8;5nw^h#LoFCx`naQoQ$j2
zuDwOZ3&Jg+0aXkHkQ<&^`k)O)I0N5>{h6Db8vIB7%=|ZR#NTcHeqR^KJgJtWklQov
z=RxRr87j^I)-^)DLVhT~9H?C*b99_4QG~~>e=HgO)nNK?&oCKO5U__-8V<mWEZcFD
zNrC&Y^(_9s49*^hRD~gnFPCfAlu`T5S%2aY$+>X?TOk(L!0GqG)X&izIrvwteazi;
z%D4=SW`vW*3;NtKb{Sg!$cHbwuvVy|f*p?^q#%4Sq=ARhF*JgE6cyD`&E~%Qj_2zM
zS$wF!J*~*j(}0N<-u`RvqbUSxOn8FWril{05006Tp}sM=a*>DZ<k4J0Ys#Lp*};}U
z*LH$#a0!OLtZ~2_-e&pxPk8l$(PE_wPk6<MNq}IjypkszE|#xZQ`B@Ncg%+G2py$(
z85n^5%9XsVK%SA8I0Ym2AIE~hAv7hUjeJ`=Dqc+MNTT`NG}u-AV(R!O4{^4|w<ab!
zy%f^IJ$~D<qTi1qKlpH{SwoJ|Kk4TmV%2{zB=oocDqQ?8X;lZADdktkbho{y1ATsH
Ov3Du%jM{E+;eP-v&B+n~

diff --git a/reference/resistance_predict-2.png b/reference/resistance_predict-2.png
index 6d9382ddc026cf49ee5df68ab83df4dfe618f33e..2146449245a008a5dacba28c1ba9df4ebc0c4c85 100644
GIT binary patch
literal 69307
zcmdSB2T)bpwk--K44Af}2r33JfPjL4D9M1jKn0PYL<Px7$r(gNMFm}gNERihB{>I0
zMG2xr$shufGe~}IDCeHKzyAGIul{}S)mv3(iyoNFIc6Wdx7K>=<ALmjGpkp!tfZr(
zTTMB8N{)_hsSO?7V$J2t@GtexLk983GEM0-r|>5}lP9yB@yCiAXRnyk(QUg&{zvcG
zKBP@Yw}Xyy>bSg3KyRbH!^W!F`Jo9Na}J5+50*>vENYTizcD0o$Nfbo){ox1e_txY
z*Zu5Lu9ugMFJ`Qimu`P08|UJ_<FW)jQ{^tRi|?f#OVGD-vaef|Vf;O?nQgM)La3HK
z>$8dAv+N+xGuu6V1I@n#_y#^}ob2^AH*&kiyy(xp(a~MLa4MZ^;cL2mtc$W2zP@^K
zi4FbVuk&9mA6)o$7s>T4OBcT5;ja8u3tw)MblJS{<pFm(-i0qOZ=_dW`0~xZ|H%uV
zwVN3#WZJeZ?$<9p$KlU=TjSSUU14i$tCRJ>!{hli<`3a1Qmjc*qH+C$tp#@d8J(3O
zCmE_@uT+S14h;>p#<RHY*xL80*>M?vVAZ@vXhZ~;n3(#vZ{Mcso98z5cgyd0yB29&
zpX%=6QN7K&VSRr$9i5AT3mxw{TF$ti(wp!>jdSN7@nrn`XRNpO(zCrX)oIO6Dw-07
zQUMnthDS!cgM&4+JyyK!lwsAcjC|@e;@_<I@zIv4)_ZL4)Y_kzr}@v!%=}YvCG7E)
zupq_M8?7e<Od2jbPgMjbJ5F0^YimzBZd=;jTbrbAe3*ylLPkc$@kR#sm1m9(TL-^A
zr#m*kId8ggz$-8??)Pt-$IORzz07`Vq>?M9!e;j?#HHAFq*Umkm-#@>#MHUzGUvI9
zo}}sDLv8eZJrDK<9UKudZOZ;M&*NVjo?+g}DK4(T<~aIP(70~n;1J%&5?4GXk56&W
zo~*&(g4VC!UY|*Enzfr9@^qH3Pc^nI6{wMaxMS0f$(qw1TZLbx7}j)u-Wx1m{G7Wg
z!(4Zpuo-)U0t4q=Hs_g(yU%#UzL||v%_xs~+|kitP~f(jDb@L9;#7auK(fQ68Ku0K
zH!n6aGSX$3A<1}h%E%En?j0DoO;)%}eBR-y8INju3%_x&m}6y}iqJ^XbdY`j(6O_5
z=A9REM$4r;#G0Jv9fLauKC+t1XIb^JQ%<@uKCS3t{Du8Sx9GUb=JrJ0vh68GwQ|k)
z#`GA?{U`6O5wLff>Cu>9X>GaggoeY=T|Xhy_+Y20{S69HR(iVLWtCBvO51}(?Yloc
z-EDR>kdN`C+qF-vH<nmB^XC56d|*iz&1LP`h;?7R^~k}N8K!TkVl#s$^D4F<xgjw<
z-nS}phC}-Ki(9qaDye#(sT^S)pNoqx;Soy4B7*Fs;#AUj1ZSmrbJ!_Ulbyk(E=TF;
zB=)UqxhtcjZX0G>&^KqEp<49iOLe?jR%Mc|3~jVA%bGXU=MGc$%y4nX%_ggQ<DJdT
zcUNsbFnf8gyXo#LSFY5h8v7r$?7kjud1Pzm?09{<S;o7|ZG+Lj1owEy1>SufRQ0($
zOuDpP^5LeaYXxrZ_m`I{J)NDNFr1&8rG_e}7<@KKlcuJcG)8aOd*ROY;C<^ntmM_k
zw=gz4j66;?ZRVlab@=Ko>d#><O07!NmL73_H`-M(`(<JxZ@y8LXMam~lu2Wza<)xE
zhM2`K*|3NRpBJ48h1>Z(6RsrbAgJf$HK+VdbFZvsIsAnE@fLnJb)=CU*Ow2z+p8he
zAn1So=FOW172%J`LO$LuTGwDT^ZTZ8Q+CE8!{v9BZW@Q4e#~OfoSP#y-ODdJn7_Cq
z)p2^fi^R?+&PCo*R#vG>Ya6G=dhS^`)AHsrGemSsm{+q3mZ(lJ9$s8kS|KBD%(He2
zAA8G8h>;3eXW_a2@xJ<57S@_B3xh8K!qm`B+{!kN<Ii=zzC7NsHgR%tGIM@z`r-L3
z?cz<`m*3>8YGhf(?b^Lt`hfVZT_<Ej$Gq6Petv%TJmAq<<jBSJ>Rz>2k{nl6!<zWj
zTE;F#A9RwKe7zm2q7|-1uU_Yb)YM`2m_^`vQtgRU+N#YwzuJ8?1Zx=9ZjWs(xaZ$f
z5q`d{YlXaY-puerv8i9XDRTGLY_k~pu$jRtZ&zLQZch<So;<wTu<&NQ>@R`G_EP)~
zUOOQnN;MYrZ*rVa8=3CK0ysJ;>gwvom^SBjOpTO@)3|8a<uu0z^D@znVf?4lx^ZD+
zXm4U=jlpI7d$6TfksFTCDfLr7Dc~?xrF1QJ^*Z&S<H54atixP`tom2@u^iTWiRD(U
zQL_&G(bmSnG#WaMJ$yo$;U%A4XP|XS`^DF%mj;kqwX9K#c>n$sWoh6Fsa4GLV>D+0
zpMl)zewPWQJSWGTsqUDLso9BUT1m+{+Ts2C_je4gCU0cVxfd<glbbah5|mSo_D5Z1
zUgd1Zu^8D1^`a>3X4}V(;jW5^*)M6<1M264M6QV1jmkD=S~6|k96@eu_vuGp_Xa!s
z^VKGo$48oM>yM9FBi3v?y6@1Ti-!&!lDcp~ktDDA*$KnBnaQc4LbiuF6dM$g($6oX
z>>c7`r_GNBc8JX(%e|mkca?u|XdD@+Go*1RtT|@gU&&u4@*2y<wR7ij)Q?O&g#aQw
z?n=^W<YuSfg6*PqFQzS<Uu3BAIO3vqKcAkd%(gZE@Zm!g<=Gw*ODT8;zQ=p*2V0Jp
z1_)n509VnR#<)hZEq{GI{`&Oe^6sjb*<24-+tqi=!+g{Ycp}2Wm}>ib8Z^>xyxqF2
zJvt^{&cPx3)$7+OT7@2(6B~L*Zeo{^wGe8!aT{;NJ0Ku7*KyjQDckm_{kV~YHsw~z
zp|nI*-gaYM?I>M!^&mx>dR)lKd)<k}JeO2e1G=l@Vvy(z>XP-3I{bd4(SDYxX49-f
zla{o!G{0wrdX8O357LWR^IB`(>|sAq`_v2(lZGR;MuN3{R-#kCUU&4|wg2uDnr@Y8
zH)enhckaC3;fuI1NvQ~kF7f$E&oZ;|{>B*HAluV@bt#uh{RGHuI?Yb$<4bKjw&Ibw
zpPijC3NeZuH<1~_D`&BUjZV{jIzh(<vMV|}4X)HZmCr4^pV*%yGSjH5ZBRqY9(K=Y
zK;3Z}VaPI`{Ad08ki9`RC#V)b-mmDZO^W!QjGIOj`G&fV^sZrKF!(*#nmISsgQ%^Z
z?K5>YG?^Z)kjW8~L5?-_IM&NsHf-}_H67iZJM=TblOvt1R7T2al(X5QiZJQT{4x<2
z0;SG7kN&#&8Vj!z^ka@i&`7VhDJQFPczmGQ^sq@odgX9~GlD$6%<Q!1cH{8c^qX2|
z$E{o6EzKKYn%J(2H+VVIBI?_lYXx#6g@uKzF-kO^v8^m_*DU(#s!G!ACrsLqO+I=n
zsbA5Y#5(cw@$t=Y&Z7dI#&4ey8wXs_EM7S-u<?Fk@>8;JZB4R=KJKbt6+DfS#xy<W
zgncVH%rNbcuFBK)VY9}8gxLG{muro6SDn6a!K0>!$0z2y*{rda+r`|Tu<X7APwep9
zW7Tu&?mvFaZ7F`6VXa_dVxkl`Z>8~}b#ITPUW&M|bkym(j?VL}rY&2xsB6#7jFfex
zirSCcs1=f!_rCJmQ5aEk^D~E!m(76<d(IuKzf;h9(2a46oaPjE9&_iHz>(=Aw}<9t
z@S~?sox0;|g&oV$Z{A%QrBfFg8migDs&{PVN8LMl(~LStor|Ln^i3g)>P%j|c#&hS
zY@B1Gaq+=yaTTnrNx?zJwuoRSJ`Gk;JBtL{X4}qf{3PYCE;#r|*t}!o{xY_pX|L->
z-`~7FV%;BbG0Vz$B*m9scS<cNqOU&9UmGi(at@f9&g;(h?0rcM4XTcFlbs!zov(l8
zI!w0v7yzfC1S%WUp7GpXl~SV~BO^YW{QYoOSC>I!W{T6?r0zVI+8U-DaSg?I)u`jQ
zmv#O6_Bt%Qw5Uj~IoB~q=l*zM_<4V_>%+pspT97{<99b?m`CM25;Sd!mFCGfg|s9o
zF*eBYy+$@tTUXaU<*CN}R1HVCMw&?=4>G@Iv&L&#nGD$gPf`;$yxUmVZWe`H?sv@E
zBx-uK{6U(Jtp8zs>eP5&kCN$RT9ci$lA5K0L{9MS#!ZXYcWbTUC>!FZrT<tdU{Lu<
zHLp85rX=V+@*%6B(em_}$E-r#?p*O-pYA>*bxz2#TRsPy0tjcS)YR#9-u&zU$DiV2
zH__jxw9R#F?l3OW^K=#|rThJZ4PwQ$30n7Rw7P(mq715IyObQIHNyni7+Z~Mnw_TO
zG8}s1(w2$HOGVZ{k3jP6@iUBn%3kU(B!glqR&hS?r~-8(6H^$ETBetMFmKK%HKQrd
z*}0L_rW>mPi>li^#nr<T$?colq8@(Oj?yY|WqpgJujp9iC3T_gx0kKv6zs$81ETHa
zchuB;g{mFeR_NLD?(Qlxz^0<2^3GuA`06+n|H(`gir%&tm%`5-D!hgK^8ERME3W`Z
z0p&imn|*FK+rM}3nL>|k6(}38n&;;xqLHzDJ=3zMlj{5afIhv!mbV=}{({DQ8WS^I
zT~FUX=T_;COKU1e3ia~$=kh5IBZV9htDNVQgCwdIzD>*_UDzZ*+-ZKgxd$(wL=J#;
zD2iRu%wmQ$dM)|4bm|b#7kX-Fys5F+cAIRMj1v58U=VF)X7<x8<EO<@%efg_1g(r|
z&e-!z%bt#;SXtGRA=jBtKRpvPJ=%3iGw8vFy+y4zej$-pxUFWj81KD;v^nB8$hhv_
z4~J}&8|7rZrx{J*=UHcgb>)DNY#mMOQ_th7KI|jw>#nZ&IQCD8l_GVlr>5ubX7z(L
zh>=L-RKLCttvB`w2q;W6S_k`fU^!7Va%O^D_PsDZq+0kqAiyZ72g$*gRug%#pmX|S
zjAEQwO><Iz+sDTvbvjA4qtngvO{&%m_ZAJk-ypN^*fABMMvG@aktV60*mUG}$~k;g
zHNzcIBM+PXJZt>@4XLSiZI6Y#o<H9cQL#UwBC6ot+MZhs+YeSaW0Qt?=(6=1(wyh#
zI@;O@H0w*PcW3OP`uaxoH)i?wn0J&6P36fczMXmW#{EW$A*C+YF)O2YPJH`)*|fNK
zA3fQ4qgpa&dXviBjl}InBdz-CI4E|%TknBDs`Wd1Y~la7l~;(Lzarqt1!{Hdl{SHl
z8#@eY;`;<9>l3sJi<B;c{k`K1e|<1EKe(`LWO(=y@*uNyqoq%cmJxt7Z>p+Kv37$+
z#d)1NR@3ZnpT2zI5zMLRIy^NoU>eSL)FQIX!bjaM%C{qHAa_;o)m1~Chl;QE50ED;
zo<ep6mPQOP`wN-!j3r1#ROmBq7x~^$7(74I`A>ztm>B2h-=uII3H+j2v6lH@{<-=r
zYtvwTRUV&jc*Xo`*a}04;k41)2f|6L+!~H}{IjEjg>1~5^~Pzoffb+}mFXawPe<>T
zIpUQ{ZGH9b;0bfFt!wT*_42wN-c_GQE1SwJ9?8yaaBko7YUhiZhbmX<e8uNik#E6!
z56?orkQSLA=_nmJD#PaV`&xqj$!|zJMOxA_GC~y}3JZO*;&XeO^O|GC_R0hupmwyp
zy{)c)A>hbGgN(b)K4;h*lfU=OqS8s$oyKN<R1qOFeQv-k<55$Ny}$mMN6Z(EL{E&(
z{cLaF!mXS<IC(a^qHC1JBg%fFKg?;_WQB)oV@Dj{sgp<QQv5qR^FeAB7qLdCYBT5F
z(>usm@TsKau*N`blI~LnTv;g1e$8?D>YXeN03a%%tIGn93ALE51V9hG(p1RitlB?}
zY9O+{<?iQ^RjKj^#r!)pT6wdAZtb{NaM373d}i>rlCN%A5O)esZEdZ()~b%5KQ~g^
zY@hWQ+V7ajpsebcD`II`{T>{;#Icg5k@r41NGSO8=g%Cu!4Oaw)@<D;@FvZ$hKF_-
z+>~=9;Z8TpO8G1G_Zv-wa7R5!=gQ0n1`_W6aBzTt(UJQ7`**p*hoz;ZV=O*z(tGmb
zk_9)F^nBo!r*As%FKAme1_mGYygo*Wm){Y2>*4v$?y1c8Ww)zHF0l!=>)vn9hRw|@
zsFtKtT4I6!aHgo1O@skyh0QI$WRu+pKI-+NX=F-9N{UlZZC`WnkB@EKBK`5=ZS2#3
zSN5Nl)n~G-3{j+g7e5LyP;tBH;8Jstk+x>3?w5c=8rB)A9TSPDx%PpthnLx)@`5_H
zk8S@wBCO(vz^*?qP%6}Xz}gne8pQmH{zFk&*~AoAZ@DyYm5+u~6fmBxsFmV(Du;AQ
zyZB7&+Gw>btEg#@hYu?NbV@BJcH0D*<cukrPgW^uj7=wWCPx37^;QB-gmA-8S(+r<
z+1@_sZ94ON2un<@45e(Kjm5^s?$U2^7&&jAfx4|;aC!-+e2uKFclBxZC<r)pS=Kb3
ztlmVqVpgPPjlxatBSYi$ruN=f>Tc`-FCfy8R3k0V)i&o&-5-+7u-!%iNs(8;v$L&8
zCCx;j(Bc5)O`YZr&hGCgT2W~H_;o!p#H@P1YgX8asf$^5SGvpvizC^&KYDcF(Bsa7
zi||hu@rI<&4NT7O6cx?+v~Gn-h=a4k<HD?~Zx_*ST8q#9ZhOi2dgqmxQie-^f_dwr
z6)RRab;d-dwij!8it6y>A%}MiLsg1NPCiUo8hquJ$6i$`mXK*nZlS2^DO**Cp${Eq
zH?`D2lDwD*0eyR$Aq6B(ZZF;B&u20v?ZEGoYPp>@uXFe8wgrJNX-6`PwjJs4<I{Gx
z>TlRWr8_A(Kw}3tB?auG$2P(Udwx9RRfM<&qLDMVX6uow9YfYzm7PDfKfHfm*32wX
z$#G?Uvi`G-nZbg!(<uW#NL1ei;j`?kQz#Rgjzw|}0|~EVO!f)K8*vI-^<i=_pd~Un
z!L@NFjwb$RrBO*s+U*B&YG@*H$|=LjyvD9P`)z<cnJkS$-hgwP2Ut)t+dPiBpSMRL
z@-Id@skCl(?3{3#vDIjJcAm0y!;|Nm9NZs198u=&XLv1}Cw{lEZOrH)fQ6jw?Kg@B
zBX2i)SoL+(ib<{FvyUe0ir|d>{{1p#srk-y;F2=c@vWwr*%yMv`jWD-D*AY3?VQK<
z?D?oVuImbM)<t4LmeGFt*%YE4h}upNoX_Vbutc039AWPhMfQ%Rk5#KMv9Zx02!ZYG
zhgyfQ>Il}oQEu)UO0d$|3?&W6lxms=`4-Aj`c5JP5z6+@KmT~WcoBJz&FL~p{Ha3n
zJ2>r}bD7;jKtf`$j@=+LI%Pp|(49_T0lW%Y_a&T(Drg-vWSblB9_oFon10XW8nb$m
zrTv%fYMVkb-HHm7SPwCtjF1Vg23U^n46?sqT$j8eQt2Y3w^^ypy(8C{-IVfc%&C#o
znQo=LVJ<a&SI3+?)N9OB&<VBTr&+T-@8AClBBCEZZ7#a(HTSYtyF9r!;x>$VCLl<@
z59-72Py&}O9m@loavCTM-aZnv;gIdJ?xNSPnu4*CQ4pHcX^l{-h)TOS()e?1WykHf
zSM@1-%l7iSPp^OL<8Gjmd+PLQgVA5#sG&s6$-lL@sJOVIhnB|^wc~2j%j37r`U*-9
zGB)C^>kOs<aoCN1J5$<+?;V@Y^5PA;WoP}B1uD|zKPpnvk~61IM}unniP$C*UYDDT
zT1UI$CYqs}Z)JXDD<m~Vpdd4Ib8kSmdj;3#Y?tj7wO_WmrXmF8MM_4dX1Kk$3T2gM
zr+fXn-doqD-E}E3R4O&upeov>>}2|c(s!Z)czJo5HD2}F!|W-%DR&EZ+3uW>T(_d=
zSblw<_rY88Pu>(;nWu5re#551Bq2H5B_nn#Qr=lYC<t%1<<0!H%e*#8NcE=c<fjC2
z&f)K_-2D8PKn4YC8tFr*Hex!cu(at$X}+%$9G3^QBy+@{K7Fe0NtG@Kb#%28RgNlU
zP?1bClmV6(^eGDx?NJJHH&XeqMbPL)#!QF5X*WQ$pg2P?N{X3xUsqpRb2acGJH;wX
zjY~21Yl$y^X^5-`n|OcK=bf@dY|7{@8{|a7zO^I&AzxQjjL&x4pX<#XA%lr6)?>Q4
zd&7neujgi`4UvVB&T9a^ldbxcXUEg>yc<n?<Zs+IgC^94cu8oOYk;N}v02^bt?EES
zMiNkXM6mPRmCmwYpNcN8;`ZV0^L7xAml)6A+BcIMe9W3hPg}t{<Oti{;*!swhqyG}
zIO#3#82iWIZV$`ZgZ!eR&=!p!wcU6#oWL}9JWeK9OwuiO|IEbKlWTpu0xv`eLNfnW
zwdO2V2`GPvW#tL#c89^YFFm#xgb8YR+l-fp*$#(l*m9n%&xCeb+A<n@CF!v3@O5()
zN`d5(A7Bx7Ew>m-#)O(3E^St`c&e$Xnf>MMqb>ZS5U70g*@CooF!Zco#_9+y0%Zi7
z^z(cXC~SV(87TH)XhN-#dfWW$?>0{{HbdUNGIQz+>ZwzwA|bIt%kd%HBp_fb#GZ<V
zx$jz@lZ}R9iG2f)g_;ifFsx<?MGETiIMy!<?PnwM$Nl^FcL|ju2dyf~U96o{oBh$C
z0nwOI6#dCCG7(Ai4St>H+390$-9v4Kx2?{-%~U^8s*_|Z+V2ESDQ_4AfL7QeYG1Cf
zNl`2nO4>KW#&$ENEs1DWv<|g#P0!zVw{Zp#@2@)fO;lLb$tf2cX?t?(J?zdHDyvEQ
zTh%!<C}xT-ZK-=+s#5{d$H6qi{KmLmkWvmLcYF9Y$rH}=1M|K)u36Rt{Q_%DAyXdK
ze81d$_RFz>1D903=h&xZsM;`ZMEV@wg^+rP>W&qK_#Nz2r(2e%VwzK>O0)#7P!kjI
zd=?>-fcU&QyOEUP3)J<!vy;bCgE}+(kKELZ5*3CFl5J<KkPI!{ulV66Zce2ut=Vpz
zufdT0O)@{L&Y=d)7Hufm?)f%b-C;#F^K-ekq2eZp^g%9}R!ZN@w$AidSBAc$jJ-rZ
zBB7z(s5bFK&-(77eO?1)0E(8=eQEwZwA`s^aC9S&vFQQlc@;33RmnvkR$BU>xfn#R
z?wq?yAw0Dz&v||q4GM0ws&*#8>8Aj_!$*%QLnh)H-qyqGJo)gS4P?2}<&F%h`4MsR
zrf1h%G{9URL%`IA1f|2Pey^ZaASS`z{<KNdj)PlbYhNz@mT75dUfW#w&&dq&iBrbZ
zdCywA@g?KBvDH9KwKTJn?Qa>_4*SecmO0yv?N}wRo$ki@43B?nF@s+*NHUjY$&Z;C
z2hr)?r1mD7%0b%Zw8Uh7XPfa}yS|i~nW>%azPdq&eCpFo2PRHQGnKj*c5K-id-1g!
zFnzOVt+}~56BCnmhcniJE4lyH%Btx$vkVI;x|~Q%a&NVMuN9wp11K=o6%p*G<$;V*
z46NX2yY{4<UY&?khwx-AUaWHWS`F_gV~)LhW2Aj}I_yx>D<K=0dGBWu=^`A@d={BV
z5y0|cC<%xnZ?4iY-C##W^h-wU#e;4Q19;d6vLa}%A`h88c>H*bW%GDcL=fjc%%m|e
zxlcz~*{?r)<U-!w?4xEs@0YDOJUl#nSihV-&&0&s%xrXSdceO&+t%U8_i4kr<fx1p
zRQulw3}r8e3~4!vnsrE+%LINaZmLnYk5dZFvg`?eea7>76d_BB0EIV;xzk?ozlL~j
z`0Hzk<n|;>e#VnTmBpqnvRNXzbj0o^m-MlbGmzs@0j|gU2qsM-mfM+_2N}~91Qm}7
zg0&)|{Cgl0uHJV8(eN64r&2ZesHK6dy*-0UWK%E{Y=4=>l`%?XF$`MI_MA_?{`nvN
zzCi1yEnY!iLi9%VUBMDn0oPKNiWm7DesoFONQLMRi$D4L`nCu4R{qt4I&{_0PqIMb
zW%AF(f<v8ulF>xd5T{XOq<>5%Ki1uXob~nu`d`nfR86O@veMEjAlIDKdLu!{!M6+@
zn}?v*Mnc1av=k4m?x&@B_l+YK&^XEe-Tm$LJr)6jQ0JL8HnEB6cdK~!2@79Yyo~WH
zYRM?%_7_^OGV*3j>yjye*b1jlyM?;CSb*ddSp>Xo2=3IPA~GuoTpRlp#EYLh=%ZWm
zA_VBO8{OEB#}uR<xl5M>jJ_YV9B9fpSIB%$(7&{2{SUOCA|aEL8vf^|vH?w}5P73b
z_5+h!>v`mBo+yAXojP-di1-~-iQ2^$kPQqVwdvSG7^p+`$+YN_3k_swd*N!ClkOcB
zIJujXv&isVFX+!NXz1k#SA+45RvD^CEq*;g2eV7yrVPRmm4CpjW~Y3tm61xS(NK4w
zsKf6;m*TS&${`<_fFmK!P;`z*sqDM+W0vS(!nslGr0=Yr(;ViyeXc)o>zXsNAKO+-
z`k(0{5-<;1tQp@eszQv3;#`67=3o*TYAv(AOR$|{oH8{O++KXDSYz%-O|D2ifYgXT
zU*#q`x|bW54LWy}1)HAbW8Z?CX57d2ct7{QyZ{4U`!AJbL*6?GB=az|7R{jb*udc<
z6ErYA$)cjt($(o(DIfg=3>~VWS%1^<L*%<TI1394pEfcwdOEs({rc1L@?PYpl1&=x
zxXRE<d}J7(@o~U$zTY~JADm7*o=6toCurcxI+^G{Zub9jX?AL?R0Pq_DcFd(-Z*Gm
z40d-#@gOZEai0w9{tH*W<fyzUyI0)Kw`|SUU)H37n_ZJx+|HRAABHx>Rdrr%ecie0
zii3<=4e2-OtCA3Xr|s<Q9%#EIaxdGpvG93NkV&|wr{`KJ(Sgh!o}`jg<ND_r0bKFv
z?+)w*+Ws^y(d>hV@#{j(Q8uuPsOYj3OG-+TKF1b2(FtgJI`F7vi3M-oj9J2TNolD7
z52yftA5j&J>LltezNyRpx6WJ#Ir)2nmQKdDV^#+Q)g)863kK(ma?sQ&&gM;npzNjG
z1eq^8KFYGEdQxo;ApMv31Y(Et(Cp`DdrOmRG@KnJ3SoO_;k6swwQsxQ=tVR|C`&!9
zdDXMi&-wuh^*|r)hN{xszJ^Uq6)Bi^*bc-hcYe;k(Q%^D$s3?{8`Q6mlAL1KoIFsI
zoQWoTN%e_<z|0$KIkFn#!KcpEsG6UTn#O+5?D!I>vj3w^4|XRCT8qHA#+9WbEYT}n
z9mR|U{fWE@{Ohg!1-ruaXe$-Pz$Y;|NumVZreYu73G4y-#mn@t;lv89VjsocFhWvM
zFKG4BwOL-44J9*nw9SE`Z5I3i@0vgONEhfw&F-<gAKt&Wd0cqRe!TbPxn$-NLC<ml
zy|4KWMY=uJable-BD;-?yDXvs&pM`D=oecQZnOR!m<QoR{iJXMp7X;ReRf-!`@cKI
z=Y{j@uwuXO(eb*zBJD=4Tru!wvAp*h7T+Whc-|h{juB6SLB0#UK|^{%uT_?&mR41&
zu?jp6C-4w8$gnBIEdgn|Q%ohrAdHDi@fQJdNCSs&v`7f(m!Cp}yL)=pjMZq+5UKL4
zLMHfzh-@7O-iKEQXx0NwM{oYPql1J5Dca_7%;f;ES4R{;LV^*ykw|i!X!24hl+2MY
z#{>+k4<Ja+IsYzTb1$LWc7X_axpPy7Xf>T7gg4WwFB<p0A3p-(|Bd`w$oD<S>faEH
zuReYHgw9QefIQQZX$QbVz2TpqNw;m!dB0Fd!}~ZnrBV#4<UF^F9>#A96tR_qPRv*<
z0PQF2K;MCNkQe_vHS7|k^=(id`T)xUP7;QmdlxJOHHgzupsz@*=<!DDNQH4NER1)?
zR;+`pOZXe)1>fQe5&ZjZ70YrBO!J#}oC7DMP*KK0+lzgC>cUZCqR~t!R?Wln;u)gM
z*rX5Ei%4|}Tf5TOe#Y3<`w5$e3#*<&3uO!hg+cY>j}H$^DQ<b7E1I3BA-#z-W4XLF
zmm^Wh3e+;b{-<mYu>|diG)Zq=*4L16DIp=D=+h_JbLY;b$H;RS*Ct8=bti?oQq~SY
z>Nr@loQ_UjVf2rAD0=<GDPOdhNMre(s(*B`s28EHmawz9We6fea_;`)ERx@i=Qz~K
z#C*&u7WBM8^>wr^cqws1uy+AwU)5VrN4HMyk59?PKnIL2vA&NGJ+S?EYJr>|4l<IS
zC6#zfu*<ni1aQj=+qC{|X8LyfzuC5gB_W^xem~UT>;9(;bMiGXN!YY^b{6X--OXaz
zsg+h=svS|W<)a^+LU5_hrBkPt7_VM_$XewYd%;2U9p0(#erbT-N3y`nMK=bP$#3m%
z<c#?ADe<2Eia|y5HTO=UgtW$={=~j#kDtayG$`Mxvc5EU`1r8`xS=IF5L?`cPfCG^
zM+i?2O3~-f7p<(UUKlQsH^%xZpaG2*<2yB`mr`v_t0Rx}+Y8kxw^IWGR6DX6zb!n$
ze|m)f9<SK{%i8=OyztZ3c!@XAcpg1sBrTp}R=r<|INIB5lww@3NFdiN=kDFRPjV^6
zS3)=n<JbKX2|b1QdMp7_KbfR4h|(&$D&3j5l3~k2A29}q6Sl8=UQeFL8cl(rM{5^9
zC%j6daLM0if7u<)N8c29%-R6SM^YU^u2Z|r`SVqGR&2;FhhTmNx&0d;!(r{BjmY*(
zxM|mz{m^Lq5-d(bE!+oD3-zHADs771w_VWrH`kUyEwP*$)ej2|{cU+}VTq$tIr&fB
zZZxSmFVq+cxMu*p)bGg6SIxE%-y=xR3IG;u96M-wDX<K{St9{$y9xpW(roO@j#>CJ
zQefEv&-#-UuU`*EHVy}k{!<#u0j8w@c&kuZ9hW&T_z&g9753!YH(J){LmBQa4|~W1
zpH>yRQv=y-4uiMg$b&g5l!47b7D*_v)+kydFE<=O1_c&v$8NMEju&S^r>DpPl9$wg
z?NlY}UveC;)m7JDUGNp`wGw}azA5mef+RJ3UapM6f+nI(2rNfsU(I~*<)?8#=3gN6
zPuLyd+c{qB9~1;BE3zjFI;@nm^oX4?>ZKG`9XdYv{frn=*`JSsO3K<no$J^4@$$-0
zEznN?eXas-MM^mUkn3|H7+9!Y!NCJ#cA!8R=cxdG0=i$eLWPq-`Wo$dv2YprwF)}a
zlti<M(DN5AJa06a@C^sVqK2ZJEa5iA?;b;u_yqu-*_&9*&a}jSEm$#FnqQZ?eV>3N
z#5nXjZ*BMM0`EsxSS(FaQgS~hXLO0S3gza&dY6{__xJrS{c4g{eDKl1nq`rh4aVoG
zMuM!trV>kE#?gm#P9}5qtzOPuW-lbax=JkH-`974m-DU58b5ygV5cB|T!^SJqHF(b
z52r#5d|`I@bBu5c&}h@_AvdhMWtr&2S?ZeYB9VBqUm2Z2Tzp<9cgV@fS^WI8KDd6n
zeeWUB-z~SbdFrJ^>`yOV4#3xaCu^ld%KFWlb)9PH)*Zzgc7ObMwY7kY!EJk?mzrOz
zqdg4RS}fN-UAJMwB_ozHjl*b~WvB;b!*zxxQ4KVI!b93SI-+5u@Dq2=MdObftzAHd
zXt0~i{>&bB3S^lIl)MxeH8?mpqBQcHx|?#2wGA(XLzO(<;OWzw0v1hN&djx0W7;x#
z`MT|})Y1*HtGA$E<;J+5Y6@ycfCoGRd!lxv`%|f}P`C|#ynle;sCaQm%K|D6c9YkQ
zJLSYfg%<jBgB2pFxb=qDi{_$NuU?hV*(iuzc**ysz7LfQa-8n{WjpTd+O?}>V8?}s
zr0>^W&@DLwY_H0*nPm3<Mi=+CT<h0y3Owz$c6oISHXHu=hn?xsC6xedC@9ftW!p2_
zKdVrabj!$2WkH8zGIC^Qa>V<|6A~FkI!PpWS@^Es2lkACUZ3{fWQ?S!hmFs@y|vc}
zTx8<dvuD#5xy2HC?>~Nw1_CK6DPhlFbq9t1PZ5Y}In&YG+l%@hSqHljgx3&sY;Gtm
zjVw>MUd-vynZwHI`Sa&bzRt({L@8Czy}Z~dc&YLUc}4TX#k|x|TyiP5DTT=3c4OU9
zKyTEQcAdR-DbhqjuerfU+FI;zTuiAg>?fD#*Lc*P$|x<XTWHg~C_4=3?ZZAhRg<?y
zx#<UtJ1WH22*cUcHC-+Jd;@FtWud`ziR$(AX{%E0!fuLwj<89oHR`U2@MPDY9B!9P
z?fm&u4+w}F3M-?qo~`3&=%Hx-TcW=j1=YKwr+<f8t3>?t(~`OrLm%b;xSa^x&Yze;
z?y1YRO+xcSXZ*!^ymc58<B(V*(Fa3Pa*`d{lnO;ac<UO#-FH2fNKjyk`e3K(ZOTOJ
zqK1MEy(%eO^Y<q6GmTC&`L5V2B&0;T^%?zU86{UEJAdk+ASi&Ux&NGpLo@D=@>Yw^
z#W$p~jjXIa=JvM3nFQ0qerE>~>o`6>3zmJ@Zd6YcZ5<+BmRD2=z(kp1+N`ei@zMT-
zUg~viZQl)V6(oZekHMLCH$zaOs$+YkxTt6#rP^iPaKLr$W5@i-moX}7@z7>oT>pQB
zpzn2VzWZa#vwrM3I^vL%{<1)zM)mcFhno%Ci@fVHEo0D#iGyYu2{j&(;;;1N$P3#>
zOFs}Fcw@{O(Oeg+fZ%hA*uOUMs>gzXsR48n@dJ^ep!pwfE}paE_GayqYt<ovtW`%2
zxV<^@GN2{rvI!H34<QVu?eam}vmX(0?$76c3mW_1j5s1c-B6-yWr8&hZRHzEyRU;G
zW~h35Zir+=B4MYXM|CZJg=`Aaz8&|-<gz;ue4jO%M8whW{FuWkd$VD}BsnFzK!+Ka
zPHKk(;B~1REOO+Nul(z+N-2U=TSvzYxRS6~LVe{x=3f{tmN&+=qtWlc`{Z^yw&X-%
zV>SDJ*gyauuf?yIO+m)sM5RMdy)}NNY}ide%>Zy;po)rWPG8u<_&PcA9~x}9AH`F+
z;*S3{=47EAcUGqH*0IVS(lf*h%%KlyH_^iF-KJFky(PN;6C(%<zxsb&^e}DdUn#%I
z?V28{56qUHUVeU@C`>W5T;&|QF*#5jzzC_5;HOVRyt$OR@$W>ftb8T8iuflp+n=jk
zPpfzAxOp^CIYIL-X+Q#GTK0awxK?!Z37U`Y=fxq-5_dclZ?1_$Xe5)*8^J}{RLH}G
zpjKAO(`wR8o8tjh3Cv^>cgo(i%fZ^_!e8_V+E7w6-dp<`ei%K_0Mc0|U6f$}T!;}}
zs3oLb4g`=4*8X^_upCr;*jOE&&K}UnRYjjtQA$c`od+6u<l|Cx=+x~{*nuUZqM|Z?
zy?S^UKGq!KW&)ulB?$MV2PC7Mc>O_HHdH^-qk!AJ5=Jtj-C$i(HXXS95;fKU-gY2b
z#itHvw!bE~2zyr)(y9BSN0n%%c|Cjf8fpve>=fcxzpFfqMbs|2tYu*~#ig4hZL}Xo
zYjuMuR9r8-qtw6HB#jF!AK<h+S-%2SZZg9F0KWP2JXHEm5J7M)I|!&utgKv^u7Fj-
z5NsN?`cHlf66x|bt%+BohT<_^&?L{CiP5hJ*KurM{7)eBd&J+xpmUK_n5G+m($7x8
z(q4i)>}el_kFTJ%`zTZ3;W?>W+(KXppiq}FGPm##U{Yl#WeUyd>{NL0r8$>(+eItU
zg38Owv(@X7VTtDIH1k`oa1ohA!bjFoewxk{`Yn4DWY-Vj`Vgbo^|7v!!yWDI6e<~T
z3AR0E@oNW#u<Dwg2M-=lL(y-b)l`(1ml#uFgNp${h(z(y5&e5jItfjx0BrBlRDiap
zniX47XQ-nvC)M;=TJtvi{COS8BG{Jou-=X?XVJTj%4sHX)=jo&?yY63*7i{YHu`Sg
zl21R@S6_2(0tW2;e0*}S$*uYMCL6w>&j%TU>oFA~Yizev$)|0}yT_@^?kKhjp7vkN
zxy%@(GWp-2kBo?LP^KpaYOpP`?aHL&;DpVc8J4EZuNuun_L7>?SXbkdo_>TvEoglL
zyVl~jq*afw3CEubyxD`Ur1gR65`s}D8q7V}yU+)#dvonJ22nD0ofKa31IjeFpvx@!
zdtHcu1Ln1g5LPz!bJA6v0N^W7Tl%st673eaOV{@s&?%_H9X*+|UE&u>dyI9;RTum2
z>7BiBp&Eu$E@J6-B}UUNZaWJO5<9c#>}Z9~Kn*a0O}ph<+8+!%3Cp$`FsxBh?P13$
zixhZPp^j9DPBgq89knP87T17{?|E^1IaDtqovFd6MqRn6ggg%7<Yn`0zcuOMB#4^-
zi$FP6<ucIZ*L~l{uk#4a;ds)xFjT><LduQ<JG}x}tzN%t_o@rQ_FL68z^I@uwQiH~
z#CX(`ohJ`p|MX<nB<c4;z}JHjlDg703)q4MD)OES0g-U9z}kHp!w&M;?GFlT(1+Eu
zpCGE-*_KSsg!;aY-3$toM{X7E!1jV{l`OF1Jqp(3;zV?fr|7px45ChzSG%mtC$%Zv
zIwqju=10Ev)taIQ$lTUQXITvlU9k{{F(u*%Bc~g>0I!e`%C?Hvhz8tNIdQ_3o$#6u
z&jX)5+a1+%p3@|t>D`wg(HN-T#2=2G>%p#%rh?Sjv$D7bGOIjIU6i1A^Ug0-V4o`2
z^;XCbTa}fHqT+MmZ>kC~Z|DV0L^}jXXs^RG1;U0*Y>BAR{XxIN_asbA;uDjS3W%<<
z0E)c4y_x!>=@eK961mx&^{txI=MVbj$e(tGtY<g+D+Hqi8*9hWFO%YY!Cd;xK9-8C
zV*8lZ(}g$jRQ~J3Y7GE(MU;R_^oJ=+b6l)pxv4kFDmA3*1-6u;VxLzfXr0L`X85}$
zWd-D?57|h!SsWevc7}~Yg?0Qi%@{)8p}pc<BJ}?C5UV*Td2?g5*}7&pD#y?}(|dPk
zMaPphplx#B-qJwM_dn1O`Wr7U-R^Xz`xRp^hY-<1@7oDb_%UMrtc;Lhqm)A!c=)sQ
z^XG3s!5kE*eCAQp#5(X_Lgi^^iG|b=&4|)Nay72l1^etD8}2Wd7L?yyz13vb!;R5{
z$86$FhBiymAZvcsNz#WIky!m}>jk;F&lATslEX`QXQGJlty&8MSY}7IvK-R9Q_}+v
z1R9g&c-WkeDKqGFvs08*Z%W#(Vf*{*T_g`Jqph?fVNu_i3bW36Up`4Pky6$NbCw;9
zsAHHLFsx0~Ccm*}99jGqT$=|{))0D#p5_>ASDZXN@t?+#0x-v<j8b(8R!gs-pm+dX
z#DGaV%N^32!^g$4mNERO5B4d#+pxB<bxjZCDM2HP&+O*JyP<#-C_pZa(#CY+e}R$9
zKG%q#1Q0VLd?J2_wA{*q-cfOr;`&2BK9DIpBJyG-qLgUrAHpZjAaYSgiURTyM*<!Q
zaC38)q|iqTPMnK{%l*gerON|fykI7|TkfrAW&cipx;v+l#JqicBK{L;n{IlXs+i#w
zv3M_ilYs{vugle)`K#pd?j$~7=2M=L5YLk?X=a=<E<T6;Pfm&cUFrXYk|Kd<JAjCG
zZQQnPTff1bN2NOaJ~6{L7kS?z?wGIDj0MZhja{O-_=cS|ntQE|K`gmnYm~}4AGjrw
z@ec!@o@O_W>wdGP;jWS)TA1$c?klYY7H-^&UeqQg1NAmg+*z!lYPm1Alz-03vH;-?
z9d&dHDuiTLMiME}Zg9~~+yfa0rI0cQk?2p}kv@C&NkOaZg$ozbV;0HlBaYqg?_-vv
z+6(PS{)6$0I1U|3D6u6HFUB0ZEP&{lUS)3GyN(BQ19HbzAhqA|$cm#>^_Xv6zPFBL
zon25fo4%=po^4ZBh{09rzi#z^dV=?V`MddVm^qeo%Ua}p_Zo8@I=*llMdsK~aB^`;
zW2mNrw0WS7kU0>Jj<QdmzLNb9-)a}KmBF`HcTMtUts2dWxdHyfMveqth`XF{0-k>*
zc+ieo^+w*?Zg&<h<3l)`uvsY53Bh09(=QeZ@?}<fbqa!kz-^2e4U7?0muO&d>N(0N
ztc0PL%>W}4zyLjKvJRLa8M-MMNP`#ZA_7Bcd%;2Ck3i_C!yr$_vNrLkM&d%aJxMgk
zcoT!s{^>zlmZDHryu0`>_<z(*?@6*zEni=Ao(6%NWR4JBHa$G`RH67>2xK57>S5C+
zkw7TBXPZzS^&w(m{Gz)#FOQ5OlABz$>3}Ru04dJ%PQb1)XLHFoFj1KShU8-uxryBP
z{mnJB2)>c)vCjevB%^arrayHD7rHJIV<%md$}s@JP9cg0vMJ0e901mL?ks6^o}WdR
z!JD1fHYJChfVv@C0&PEo2kiKVj~|J6h0N!7)G``{l?=CHOxv!#9?}dunaS%g#JD#`
z-=fG+DJ>Z^3j^BZ@95{TRBA1h&Z}xrG7XvCP{%naaBM+Tg-l2d1?1TL8C^I|N;!I-
z?muIIIr`Jv)=<h(Fj`Z%MMc%*j?30uLY2l)L&sPh(2=*FUo@;+Xva)isxE|obnai7
z38G`*A8;vF;V?T^Lk$I+tLquV&TjuV5N~|jI&e87;a^?=sFSuiK`&nHi@G|aA)~La
z-yujr|Gz3g*c^6ramboqX<7>krK~8BK8>C9yC8fL{D65A;J81`oHzqf_N%}g%_Ely
z{Trog3+a88pjrTq(`rz>xGAJ@IjIc$260ru)ZmYC_&P&Esep@%ZN2{WRDO^jUh?UI
zPRz|s<QXF1h|ZLg3X*U5{{DIrzq@v2x3!`JO`Y5PevAVh2I|inM=<+RDlv#{6bId}
z3x8Iv;>~`E8ULK2kE~=EA1HTs)XOtN#E62iR;DdQJJ(^7pd3T$jwaF+$~X8(i&d?(
zJB33fp&K(BE|O<M?`gF)lZ(M_9-c2V@$@?m16qQSLJ4F24=e_eblVb}`7&$|_t8Y}
z(Ad}mB>v%DR04La5u6xY30dRA^PbwInszhap8x;qv3*qAu#T=S7Z+D?XDY_~4EW<s
zErl=aXjsrVnC^|E2lrR>P+&klK=!BsCQ<+_Js&KlhG0}edjx@*VmqQkU_ahamFv<~
z^3Y@WHLhQO+hy)q(DTqfoq-~0M|TFEnNLr4Ld!k-)B!uG0^OLy#&xikzik9sS-tJ3
zJixm=S`63*uR*x}7@XUr&z+M;IVm&7gf_M~M@Jf8nYsEO9SN%l^?#v-xN?t!0OM|S
zP@_{Zc38(EOHYd1nh6u{OReeGc0@b62tlPpuJC3DwkwUXx5F$eCe64Z2ontu5yFBt
zZboC{>xn-&ePB)O>C<!0<Nab6I_&1>f18hMj@PNDu1~mU8Mk%)PIje>i7Ptgi%#py
zD7`X&|5;c#PwJKI(*P#5^$&JuoaJCYC8c=cfok&Qtk{QYS^URFCTCl-DonBrX&su@
z<2Umf8%&Z$Z1Z&0lR6#hCPg|$X=xe{9PQ?R0l{NdxO(wgk(T9Noh81n2M2GUy(6*b
z83iOr>fE_Xke5-PyqU1CAB~(3JI~Gh<B9Vcx{yY-qhpR@D_G1l<xE;GQaFC~>dO-+
zPg-`AY~gXG-@J19a@ot5UxZ2z@Z+6{s;+Nogc1h=t@1<Y2i*~d8WWf4pBh;=;}y6O
zX-q*XZ9-R$VY`J&JK9Khi<-gUAVmdxEj|$<IrkfsfJr$@<tw}>92D&81LmZgp=4wf
zOC~5NK8p0P;9epom5}xk*cG3!L&2eyc>YVnv#<Q^B9!OZ-#+E>lWn@Kd<<``utOIm
z<-?aoOi!_Qxv`q;yCe!zS2>Ja5hzc>&vjG|Y@$f|Yus~llcMtR^B0ePU)b>3(vR2L
zz%9hxRldiNV`&)t?9bWZ5_u`R&WO*K$TO63jD5J5WZ4Y8f(XOWHKCC2qm`m8fQ}<M
zLIawLSwk?}uK9%A8QS&gXoZ-{!Ud6{#nHeapLN5AHof4%%1bhY1>H<m`Gm>=2Vpqz
z?o$5{&=GVuuJidOUn^KfBqNWiRDfDL*vANd1tSo4{aJhkJmSEnhr}j)Vq$t~igZdb
zEM_0FX+30TZ*~DV3Kr3}{(UM5OI^P2E6yNC+4UwAV#coapF)eC>hnYpPxUS!L<vxP
z^D!Fn(V@&NTD+K7<s|YdOyh^ie2CKYb}@&`o}%L~w%h&MNg8&Tq(zs|t1iuy206-m
zc%?M@DDB^ue_>@ZstgVa>Tflm8+hIvDZYF6?eo=in>o`zD_dC!`p44qeB5K`Vt=D=
zS-Q+z3Tvlwm7MSS>g6``o>c}_kf%s1cpDC&fU1iAR~3=gRZKD@A^K<Z&Y+5*OLC6n
z2RIPPuma|-VlbTHAuh)OyAN?f1_uYDC#tL|-h$CP;;sWIxM*RK44sh7HWiPr<ylS7
zOQ*ZDWog50m(4eL7pdoqrdus;xaX2)u&YJ#?)t$+H#U)fTy8@@v5S0{p-{f#a+{d&
zq9xe^xeWh0^+jH3$-mB!kv)$eT3BlV$^SSlrfMU8(ch2!rT<&L*(*3=m5Z+LxjmDU
zRgdObE4^w~*tmO^g_SYR&dgkAcDoltpY21V(b`hsaC2^^6N;n^_|nT9@;&EKA7JWY
z*q#^sQ*~tfp4%~lETsl1Ma|946=YhOd?M*yO|g72NZ~wotiD1!{T$MWmO?A6P@<}<
zTN+Drl3ZO~E&3aT6$cmb{2UmdwX|IQ7YX>2XWqSgcRfYf``NR$E;%~d#}w8UvB?^f
z07C_78ylOuo&OA0-vIVENU_Ug^x4nMXFJlfB-(X`HhDQt5ij)aFs~B_P6!#9Sbbyh
z7lHgS^423-QdqMWBQF2mp~U}{udltcYZ09ih9X^wc7=h)<H#897;}OiUIi@!3ax#n
z$loW--@n|ZRRKtn`s|qi8kB)J4dK(xq}o`5<jHv;ixw>sk=^<Cn_EPZ^;~K`VV(t+
z34v?x?r0XMQ4%j7Af9ZvG+v?(W@MaLxNwHS%u4l`s_303-MsXBfnSKxX_Nf{7_i|k
zuRsoug9l_EbS|R$r<pYV?CDYI-3k~SChcQ@h9ntn0SG2-?7R2w`5bYA?n)>~5Qab!
zbMje!qLE%foN(a@aGS`=$x)$^?|An4=Z~Vlw?J2Obt#Q!X@vG<O(^A=X6FEWDNuTq
za~(1;yBUJ1UE+1)*D3ibJ~y-$t@2I2TFh=}puR*c*9Tr8evWno9?%o`QOx(wD-h^O
zKQA<tJtEi1^bMf_L84iz<^*gL-z-lw3}57PBZno=wWhgQ10ZzYkPYz1cAFM@?4uND
z<DZ6rvkl?u0E;4hKAbJ^%Eg6_nB-v9D2FsoAPf|t+^^Z>JR1zekPZamot;8X1c4+s
z3Y~{Ajk_O-cZ9fDHpqyCJbAKiZ?@UMaJ7mlBHPEl3Bal<%~WHv{DNa9eLI(pbOK5V
zrJOshVOLVE>d)VB+(7fM#F-FeC}|}lqu1x_a#()>jFe1HO&I`Hp_R{d*c1XfHFVi(
zmLvWA{-qdEt3WS*)nft1lc?GX;9(fM=>MtoYuoU=H75-?u2?hSNE#V4!6*OxavNS8
zc0dv~)m^P!pV{p>uLck0!}!qZHEXO&Fnf0?L<@C<D$jn{1LiAq-9n}by&+RnaLm8b
zFk0aO?J2|-7!^}v7G?_+-Nk<0p!!ExZE(O6j?MaYg3EXWBKXm%o@z`WeJ_OX{WiNk
zx=MHZJs&;tve18)=887(wnBC?DUY`=3nYxrtjf^lw)UAB&L-o~(DURhGkjd4JzOUE
z{v2FWj?pc5HDUj}l|p;=guj3C=0f06YA68Zrp$TB`QGw2?NO*%7*?!GF;psaB$yDz
z#|@s|2TDI?0n9lM^X}Vs7HI1W_W}gC@r)(!vod7?>ryy3rf(woj*@pT{lkitE2->P
z4s3!ncxGKgv;r6Qfh-74HFzs8_9r=*ODE|HZs0llwxbqj$w(eV>B~m*&52|N+!Ewf
z)05y|7}X;OwUn5M;}U$jNR)U*Gk>^qsmiXG9r@|JZqxept*ugY1B!zuJM;4;mM&Rh
z^M)mVdh+-0eFqP|ksBza_lj?M73JD&u(ZWta$v7;O*R9)>55#KMJaMHS#I34NwN3E
z%=k*5tT&v$&lH)Y9di=&Jx4;8Q1kV>Pw&G@<0ij?!V#8?P6;{R1)$^`EFpU-#65(T
z8uWc0<R)?$4HOBU6kbz+4p?UudlN{fK=Pq0+3moCJ|8rnUSrk{60+*OOtYDlP<SW2
zG#&Lv<Kv=+x7YcGkkNO45y}@m^7ls3RX;#sIdbFb1Fhld+>VJ>ZjVwO^M<)L$rrUo
zikLCSP{YF#6*SpMS^&|#SRVF7aQ}V^AVUpYP2SKs0c*OxhMa`X&pFaFtO)K^1<N{)
zlGx{aE}ZXfHahl%q_ajZ$PKEuUDB9wvXMXf4m@~W0Ega3ctk{0sZvJHJ1CoZ)x9kC
zGxGH8-3>>v0_IOidMH#1{QrXH?TN+RKD-+0KN3LW$Z1qj@zMS9S^ee6Por>^_#Cyu
zISlZF%(V;9wneT4aARU&iGK9xky%_QgRB@mJ-vtNW;FJ=P;d*F=$p7<(uE-v=SvJ*
z>~~Rm2#~MJZyvZTUGXm#!@68*&2XU6n1O-4Euv^W?I&u%S}Em_HCDz|a{q$Kj7qF*
z&nG9*^o&QpyV0&Ej>;3as42rd0s~M}C;FIiX2VVju%U)8TfIM0Ao>{>NWT<a2ls8r
z9ouq-i@1o>`Pb{e8^gt*jDyRj&nk-?#0I@sAKgVV)_{&5JE1GcJ(rM`EKzodE-f|Y
znN(|}oM9FgD$ROB?E;Qu0eAo&M#I1o;??FYNjQCuQodTKK{mXz8A=JxZ8`?B**IjM
zaQOh$X|31D-G5_$0ZEvaEpTF+Aw1=ENxGi!gl^ojB?^z(o!Jxrx{&d2a>#b8SfpNX
zFd0#c2_ZuqPXyU#e}xF%Hb&+2Nwq@OiDGrjsDl*l1+)&yCmLzPXPe<)^1!W@DKGu}
zz&E(0R&L8%pb(TyXadrXCMcczFNH@UJjf9)ZF4i;;m(X^BYD&-@aC0kTwbk(i$L12
z>~HX;P5!;5d_x7hu2>iqA*d3wABxRs3@zIww3^(w@y7M`?S~Df375TaQV|AH)p0rn
zX+ZZ{*=rX^zd_ZNqLNc?!iS*X@%f%3{XlXMU7<le8gQg#he_5;U{2&rIyp8&VmwCe
zheEZgaiFIs20a=BczW(mDT6{NQDH8u;Hx61MdFj6B@bsmY=ufRMd%t9aD4v485|%}
zhSlfbjtj{B{bSWO5gXafJgQHwF(V@7py{`bli6=j0MYrG5fAl5blNJ7(;7(wx(D+Q
zR?~Y#u{>4ybsXL~VJB>C($T*Zrj(=OK*&oMCgN*g477yM1JWh|v5kA|CV~Rq06t>H
zJbwJRqz7g&h`335?2HAnc6ON<QlX()B_F+l|L@JabQfQjKPcG;_s*X-tB+OI44D?x
zhwuPa5+}P8_-YD1CL9VjTRfyNg`8yojKgG??fx5Ml;mV69G{VJF2v|KDjeyukiv#U
zM!I}Rb&3c$slG`AW;Zk@xy8lBajHzpdqF1BJ0`X@c<Qk0IM~@qL)zQG@Ts?V*u%}d
ziZ)IPg%@JMuLs`y!Q?f*_Lqwv`;HwF*REZo@}w9Rnbt1J7x>G@V~{drd=}XV#5dAS
ze9p6KQ;kvPOmazjM^8fz#LW`M+UPJ+dZ9iY3EU8^S0Y^G&W@{`ShRU}%hHwuOR`C+
zUDOXolm3U+uNzc6@4do?EBkXDyjaoj?F&0zI?Tq#My@l3somt8ZKost!w+inY$ZcB
zIW%QM@xG$#d>J#sf0vi;<<XeIJ%$T^p(~4)qo-9Fj9IK$_!n7Y`3EjF1}WqKFmHoB
z3%id_;QU?t!K1fPb8$vP41_XrFip^be;v~qy)9yCHj*3iPB2L$C~PFw&;Ykg(Bj_o
zkoYMMX?@&><56xpLvTteTEP5tG^MUhtD&3X#FUk*R#o7z5?x|E>2AzQ>#m{Eu$Q|L
zFLysWp~{jndf4IjjWg-2=u*IVLG(&*?gf>V&ft+0Lw1?S$Ro_reA5&<OHLSo<A4i$
z8}F|hOH>Vkaa$iV%q7H00_ph#>BrB^h}0cgppbOY-clUV<e-40GO?cD88A(w3Q^gK
zbV$y7Bjfu3TQbO~<w#NNY6c$$VWKd^sPmo7e=Xs0Zz(0816O{eH{$F?0#t{`#=O}@
zhd=GcBL!oyyl1&1M;97v)i41@<>%)YiTtYrQfcFD@a>IGDNA7=B#K)2rl^=^0ykIG
zn?XfP!O;)z)E0iv4Ogk9*%0zQ>cP<Wn`J{@x$ESFGa5KYEEc}SWf3RSV0c)VunEJG
zB^!nN2L?2Lb*87M7l~|J_>Pw@xQN@eBPRam!ZiywGTPS4F33A{0TFWl!J+fb!N~vq
z$V)#n<+3{nf#SjlJ$0iLW$A5~zG9xQH<r3^&HNbON3M@8ia#3(ZeDpKFyx>1my2N9
zw;1{%DdW@1hc4rv1wm1@PiM)`TDoi*=i$Th*sL>YTW^E_o8P^AmqG<l1IX-ab*CHH
zgd?9oARv+1W^T-nx%qDa<8RUIwOd9Pd9dK%C?;9{bUE{!^Y9BvFAEdN#{t_EF@`Ck
zw(HLgs>jLE51^(7C@_e;zs~1fCs?3DsCIfWxB%&O!sEV4I2D2@kw_<+o%4bm$FC5e
z_VPsjF(8l=X_M2-(zkcAwAd}3&%K#TAMfp)do$kFQz}JIVoWzh88l{~i;qs8zu9pj
z5I{Yi;M1e2sO!o&0TM`|QTA^GS6~&r>1u1N3j}&w5NFhan-06k$xUmO7Teszk3|8I
z1F><B1YjP>5HyJ=c4egS%<Swowih^@r${rwCVf|a7Ak5HxV?~2O+^@;`eUM+3^&V|
zK?j_iHj-Z=YGZgLtFgbzRPpxh+uPEJwAc^d$EexeEGpzjhd+&w>R8{0(Tfb8&$!g+
zBoSDb0EPpuzM63Ly?K(0{|H7dK02&)E_|451x$?nnhoJK>*e2tH4sdTYk`R?mTY%V
z@wv-H4!g#TRFYwm)h9^cF?<>QoJ;9skDu|_`VD;yuEW+yhZo}iLXmWimRWez$P89(
z-}s3M^tDc5(W-EmN%&f^-x7F{R%e9iIJ+>1N-RnQ4FrlgDw8G*27Iy7>c3(X2FbZW
zqo4kEM`T5O7_y0b3mOzV1vgho&W(f*OPY$N7>xjXoOAGikU}WfYUZT^@jNRemVyYN
z<s=QlvM+UuJunVwLG-|!V`21!ZUEPkYt0A=3Aqsam+GB0`Sljl(`8arb;mIU;`+~o
zaRizgD***$(jSMau*||p3+X!G$hWF?y2zJ^=tdk|W{2;VZqVlkRmb^vU+=Hq4V|S?
zb!Wp)^fTt>=9v8IG0eMH=`YsBehz|6Sb2!tH9K~H)cZqVsZZGB)Us0f+UahDkVDwu
zhf?$X7_XWkhcn6Y)Ku4t>||#@g>rD|ZpU~}O<Bf=KRdytXlXVS#TsN-;sV^NCFsu)
zb#}hdb+}W>LV=mCh8VVBr<IQvMkp#sNx47dblppAI8=zFMIsRZ>K<02f3B5pi(A71
zeZO#K>m`7uQDBBm$8<1+M-3$hH@aQhC~N}4f8LLsf+nA{b`gEcu1RD0A}(R!+RxrE
zIrY%J3bOgJVvF0w@Fzkjtl(cz6jjE@{;cuK(}%Wv2#ePyo;wskWi$q#u@ip;NW2_W
za;*}iB%I{A7lvmvuwf9525$hef(H4m-ZU=`j7*y9G}*ox-0lsPcSZX`VJCvs18`O7
zYV7-QUPM8aybKO*#-nkJH|7KY+!;>vH}XWT4AM!f$7mos0nk3%Hp3Q6jw!(;iAgl$
zpcC*u3fMFD{~GbP)vdk}jLL|;ij4_<o(S|&E<()^QUwt5WReGwOnixi+#i{PgN7i|
zqt^YZ2_q*@oJhvB3noZX62o2wEVsGnhXvvk6U%)!g2{WKGclWNf&o93f$`Dva#V<9
zl7Um@u+89A^1=Y*x5us<6eG9-f@%L-BH%5_R(MvpSiMV*tx>4S<|MXkI>af`g3Ouh
z@JAcMi;!Xx&g6VC__)Pj6u}#egcF2RXvkFo7nc=1aM>Itj4X0jsoMYC9?Te-j@HD}
z<3!xoI4X|}q};l73nPas=Cc;_oB*ELOwZf0T{VmTe=znYU^%Yu+W4F1NQ1%(O^Os1
zqDaw%GF0?dn#+{XK$Fs-G)t6(q(LdAiPAhvWN21tB%!%z9>4RB_1k-Y$Nv7ue;xMT
z$3B)-@B2LWeGTV%UgtHaRII;)>W3!)27-)jm_sP?Yhr>hR0O}edwx4_HXDtE8i1k)
z7%v2Zb;sEf09FRPn^$RhC5kK@QQW_Of4W>FjSM4xs1f;g1m0$&v1-t|@1Aum{2BL;
zO0m>>;^;>r5<UrxH}4U%2(-v=n$_uxSr2aral+(TbPnubt^Wl&MBen!SQSDLb)+JQ
zuMtd6lvUB3Hb|0sxB1_ECz7>w<b)}!RMDX}I)=OzLLCNSYOM<QpCq~Ol4-G+;paVD
zF!D~|GR(s6u=%Py*Q4%6267ChGAIxG0c12NvB_zDAMrN*2~TYeoMZ!C?mtQN;mTni
z?`W`TBErHdxaPZEXR}Wp7{h<ui^8A=5ZfpYH6d84Aw;!B#yBe{M_C2Wix>trUV|s;
zM9lvPj$W&D{)8xZ6h{y*5f&fQ9cZ5)1BFS#70HFeBNq-cP<=7HD_2)nq8Pxm@iUCi
z|HK5UCXQStX!V_4G>J5*mq}nG`gzdJhW+;-n?DCu!>K1O>|0k?t;AnQZeQ@*1m#?d
ztd<6_$cRm!Y>Y8zgCUq8K8MyuSTDN3F7xKPt(c99Q3-$wP9&f_2Gt(X72M3Rjzk4*
znD1Bvq<WcbdhUKmnqWGTf-z4c*ocvDfL44rFpQ5QGy6Y;6s<VFe?J3XD~&i8J9|`G
znxramEBv1n+5c9QqY@O|lXdJ+Kgn45X`&l8>?Z;Xu$Aas2-l7vP3BCAS_3T?nz{aa
zXSdxawh5b{6+=QI9ve@SQgYSMVWb}3MQMFiRi%!vT3g1p_ZbOPZZj<%#5n%nx=lJs
zt5_EEv#PboLUwgWq&M;N7u&qQu#;$`;R&27qzXb@@AlM}FJGoRJ=sQK@+`V@r#2X)
zr}+7Q{?T|mNj-B30eMk$D}3`@b<{PX9%#5W+Z+xPHzYC-<eBts-7+dbLy2XtRpHcr
zl*^=su7|}szR)4W1Yw(yq4)o40Y1Ka|GplB-=ol_^dToe-+_x>fYH`0PMsZ}FYF{O
zH1aX^ul@v$_oh92@?VYMnropV9))ymclX%eQaYhfw81kA2aE(@6fe{w*EzF_hbX!s
zOe3?nV<;N6vNd#2N|13pIQ1U?dJkOM+p1La4TT6c1iG-#D|nNRcwR7Ey3|Ws`p4dm
zy$e(7hS}B%B<^cy+ya!I35b;x<pKf%D!haRCNAR8)E1Zp>7ewXky(oWH4(*#0D%dP
zKb#WA4|ZI6#yErvh<pSeUJ(5(^bc`ENU;D3B}C9I9rN1v<1gh1AG%BK!EGRni%J9{
zi$j@0q$WhUfaxCf^xtI6kq9%;&Y>Atd~rmNhise*IFiU8fO99m`4?g)=FWifHsC&y
zv2;LG^~A&L)GX1kpgEBnZ#sE&sl(rzTgxhx#StabQ*!^&#1KnRpe|6!KJH7&J4)hf
z^Yb{@*^vW8N=f4Q3k&;P010H`F*ue?xez5F9v6ZgipPd11zOUNl&7>CLe>u!{;$@R
zglgo>L=+PnV7_Q<Y<#gTmx^=a^_>i0*A8vj3@$mK3tD`%8;U1!eWAc52HL;{WM{hn
z0&)pYPz+2@O`St=M`ky#x)3oeaYQ-~T>H6R@~@GRnrxe{Q7BX^FYJ^}Iuoytv?p{9
zkQ#os{rw+EG!PaYTEs}cIRa0CU#*xbzVN@m^|uMmHEZ-w`OPAXk<3KwUGd3Jr@-))
z{NwI`dnRVcA`*G!`#;^^zWoF#g8w{(fC@lY)QQN2=t7W?&(`;Hq6J0r362Fn5_;b9
z%$X+;zX_}2mWbIOhE;@+D$pe{ThhA<y|u_(nTwgFHk-r25JF0we7%gI1?b4T6aVwe
z#Xet-iedZqBOb2vPf<&JbUK(NgVGp4nb1=Z$;6R_IJY3S9>TdLFBCqX#{GSj#$Jm&
zHN(OI+>_fvz-iK|=ZNDBnO6eKnurG<Ebdi6@EOR4)^=g0K@7(T<#om{iIso9y^f7u
zvA!YEr{{9jrs!uKMe?*=`woORAlGPO28WSOEyTa*9K4Z`QD<NMhfz`ds=+{ef!ETN
zpmsQhOS%KY69f?27XHBr_6DbShVMW{p-Sv)NAVTN=wYaZ%~sG;f^zP^+iWV<!Eo-Z
z7hhiD?~y5&+fIOq7{zGvjpwJdfkm_FEOE^8aBD%~0FH5}1Vr_ZuCB-K?(Sw2U6jr}
zq$mja(@XIzhzl2$mm(|eK(NFECQiC6tgKWBqKS+S!=LA%q9qRwueIx5c!!YyKY!G#
z3W@CJjsHJE@#ge%5oGMo0#r5Xyf6s$$<!k1v9Ql!6S$Anm_PQHvj<xG>E6<^2fudH
zsCOCAwpKJYX1%iFpt0uV<BL@MvVzk1bxx?0_u={W$FCXlr&g&Tj1UAKaM-#Ew0ndH
zB>E2G`wQQIQDpvIH-EVKNAhv5syOpvm*v99k?2Kq-0XH}NieDN2snYa6cc;sizUc5
zZ#KRZ(k?*~Mhu1U^wFql&9C}9#258B$+}n;qjz&K&K1uPxVIf|z89`dH8Ai08eCDO
zGo17ay^eGGNz#rI(`Ue4cN;A1u9n^|x-$p0jIjJXS~+1u7SDINrQiQc!4d^ghiWaj
z1TJ3Q6nKBUIkjyQvJt2~5My`ee}xqpjJx^3kOq-2%yIUwgoTBT&Ea1O%f5Z?ii(Q1
zkg)vY{iWv;B^8GVP`PMN?aYnY2_A~UdI<Jc2B<)G@JO6~*aAJ`O%+WX1+>)zuXD6B
zl~q)zj+S1u?c|-K1qLEhOGrdg$d{^ck(pOArttu5s!-0J&Mi$=v9ZRd4j%OFdRcB}
zLzj=DIyjbyU3ydhh+Uo<6cHOGF?<g^ilo>>N$w7Vtxv(%thA^=J+f4_7L%*>c=?=s
zLzli-X=`f-=1ArnykU*{^-IYxuk9$RSdEh3?<AMa7t&Z3=P+a&l@wVK3Z6UP-qRt$
zdi_%{k8dj~4v?W_s5N4tb32a#P~xed!$-g~GEPNYKM)^C{X_yHCM!ktjP3(zAi*Tq
zwZnQKh{aXUIIY7H9q7s5FY4>-&3;&R6dDHGma$6TdHM*UvIl@%9YX2aNFzNcYl;{v
zr+(=S-O-Z%69_;weQ}>aCTc)pAqiS7_~nJ>7}>#WB|K;1kHYIVYeOJ)Tz0Zd#18&V
z>j22^U6_4A?iprn2zm>M$tHuh2?12--1~c5F<yHIpS=5_&Ix~@CThX3Ge6NkGMkGP
z0!s%T{e|5BZ@o_KnKN<eddY;VLdE?QKVa8j72EBF)!)7|R`u)t4W9LfLqDG)YzguA
zo(Igk$PPm}e>zhS=<+qi@Y|tYMMXuVx|M@V>CM6ygSD{VAo4Y6hCU(j$CF|LfHN`;
zsi;u4ZC3T#Y4R=%w;L74Ieb?#tU<iM?teG~AnJT=tm=OU-1~I@cacvXFC2>xgnI)=
zRtrW?qStKvH$}T!yg4P4u4(4VpNsTO9I(*0wVtl<@$%}y%zQoQ-edyWY9~4=f@#As
zKK}JPGjyO07=H1Wdx@!Vg8G;9qI|dp6-^>=!DEqoL5vY3-9B>&CDa(15Q_HUJ%&;W
zgT~RwD+C`3)$8dWkaL9L!@7dob#--%ijM#AQAF1LpRzct@I%>ab@%gREFW4r>^NAw
za)09P;$?gF>Xnvb%5mCu4@{I{=E=6dX)Cz$+Vt(lr0UN9rPh$7qYezuYbWdPjM=*^
z#2SaR-XLvIoe<X@ve`mHRvP{jNdI-n&&1;as?8)&p|AxzkRG1O4K>Suhu=Hi;_K}|
z4~gM*GA9Kf3|OggoU0GCI}g2}6=H*mq=3kRI?+b+Eoo1Ds>YC?zzc2AN~jnBPi)$}
z`I$!1*{I$8|6N^_*pj(MBZA{U;5iTF#~WmRIB^+|_0%0ec}hhgsRg`b>}QP<3U8iO
zgMV(02*)8h8a5QKnjkF+8UE81&;mdrd_;3Jw`9zp^pR{-W_9SFw38Yh&%Iqd4Eq{h
zvltaC0kUQ!{-r9VZF_gaM3T%+p~ugAy3LXBEfA;15qTAQ^-M70Nw^I?gkJ<=vlpDL
zdf1;%Dv=#uoEBvRpw4%#3r!Z8y|Af^p9l|Y!5BCZfkA}Xi(Zf<Mj<lrLVEQb7|JBd
zamd8)`H202>8bQ+k!jFZKO$CADZ5bB5$85QI`PTIMMjvPiwEZ?F1xsN02AxzfZDYF
z;FJlKc=BwM7{L4S=}N+9aCD>SOrVYqJ$DuT1su>el}Q>H{Qb+l_{-9$>cLzkR<{Ck
zdjoAkj-VsbUcnQB>YV?GlR~B<a}xd_hZ=_9IxNqm>sGcpXUTN4F44?H0f?JQH6Mhz
zLWIE|Ogh1G@h69WU}0fN9G-=$a-%k_x-1M4K>Qj-=McCxB<atEY=F|N^9&T1Aikeg
zw}KJ|94(7aQH#hgx9yKQ+>wzyTmT+7Sw5_hv5pE6yB4patn7G7eDMqnFSlfNgcVl;
z$}UoN?{*xHl6}OPP&<fa5+wT=Tt*X|49-0}LC{eRT^|=n+~^!MO!j|)gs5Db6GZz>
zwi0DpG^mx7lo0C>k`nO3xp^jlPME{Xj99H;;N5__TqEw@hcg8*1ZH7o-c&aUIDGN{
zfo{X*w6!#V24WPVcv&o$^N+;Pku8iaA9K-U-W{#~Gdynt`wM8%jIb%9VDf9gG|r2m
z=5h_;9ailIgcCF{KwL7kYoL-G1c<NiQE8_=$_h~jM>nv%y%4n6X{szffv8+-)#4eD
z+*C*pf`#C;XNdcLCrEunz2Wfzwu%8DBH1x(qbiA3h^(j}gg#22TZqp>@HS9~zPte-
zXFUFI5BS{Q)^XNxNFIdmA=Nq$AF2wNb={rppf3JGjm!6zl}SFFawo3ysL3{}5(iz(
z9ZTSwBUS@>Q4RYn{SB?E7AeMi@L?M;HW6`Rx!V5|(7W?davAEcO)@g~hEo{yUYrRe
zVH{0l^sB98YXAycVwfnct-TZd4=FM+&iZgRo_-%ty+v5hwkKQz^$BkZ(=ag{Me{(#
z6^=hdldor&XHT2>V)nfB$IQgIn3>-P#dS+$G1*WtfD#~-=NRC=-Ifa=EI*1fCTOGo
zf}WSz;d}xr3=1f(a1!p!kH+uaH7I@mFj4TM?;=Bp+HbA@o>A|}7ktA35{1^SmT2<2
z>{X5B#(&QgTt`K-D{n0&K^tW&^kH;I?nx@(9H7K_1{!khfb5?*#&XH2cm@pgZo&cG
zId6$Dfji>fD<&zafp7ar{7=uOWqNdh*AaC_*UJxQX6F3VCM$DLJ+)dQ9ldx*Ly2NS
z^g~C9?G#N(Gq)E1qx{G^+IH}-yDh`wx)n>fi@==N+XJJJSqqU2E{!%O>l(1k1klP+
z0L?n!_;IkUcI~8H3`tSBlK&iS@0~@LT8IA;QzaTOvJ**_boS`2gq~Ip_NvQI#exCb
zpi202u+cx>U(#SnYEZLMrx;a9E+dPOfQ@Jx85#L?;jhF6$xk1|v9vvDxA*|G9^yj+
zPJ$;9QN|#15p_dpSs6DcXAFi9Q8MMjt<mP$=Rk}gkQTlzYZY{kA;%L!y|bVUx|G5A
z7NQO79qtalfB!zdZ{NPqJ&i_Jy17ZdKF#CY9jXKN;RwOe3=Ft6wod(cVEeRzTdazv
zk!AUEZG5iiPnReUC1hlp(swyiukK}b3`x8?pdI3M{W?-@o%D&N%*;S70*I>buS$<N
zkVgjuLBRDBO)~-L*G)iy?Q7jgi)LMCB64%KLa21n(I`=-Wy`csVdG(a`&PAF>@=`y
zB1)ltA0aHJC!2f%+*hl;s13^irM%*uO~^(>sc?RhpT7sStN2PTu2(2uiOw8Nx-g;E
z^!{pt<CYky@<^Jve}{mb2o%A)L%P1%b~dQM9*>9ET<hFfLP_{S0uA_@OCOrEZ61^A
z60(b&gv1A5&~ihx0N;lYgaeExtX=r!Chq7qpSZ|A?rY8w>I{vAo+c6dX{KTA_mm9N
zH*G~{S`SpA$Bv0&?MK9W=*+nv<e8PTEHT<hd~0+!$GK)UpW4RF;vTTn3;xCU*}B||
zTs3|6X8cSHzUYxvO6~CUM}OCg)+YpJ#Bi8?iUTAjBJw6woeiHHW1J4nM;gQ-ODKQa
z(0OTD*{uePEywqsK(NuKCuh8P!RB0Xc-4iSVqjx1zcA>yn?ey%MbDfx+=^VbJDpSJ
z_z4~QL!w*h#3x@A741#(APGoIAE|?eGJG9cf}r;*4VpF75|B9{K2K96@$cP5gRsuB
zGm~t&ii(P28CdR&ksUB;TGZ|n+y<>IonIBd%tjQGpH&=+v_~-#11Ewnk_Q~XU@!*{
z$yPyy`)pPV%3^MI_RgMT7Ww#R+nD|M$jBxe?qNP9Q$1z;=adAIc*cA@TB{uC3}}VX
zo9Q6h+rmaW0re-es@C@BDDFJw{Y~kM77;l5-**wx6y=+tF10x}E^ZTmY|QW0pw@?c
zk-){!SZI>hg?{pAp1bIKwA>z3wOq?w7gn>Znr*HMs`^eoJJ*?Q%gU_3(?0m{eVgH%
zJ7hH;@oa*#%({(QUc?ZF`ZMWWg9>7Km)LV0G2Rr0Vaxv!h2v`F=O<4R-$E!j<8EF=
zra?B3tFG3N*3y1X20!q@p<flZISjOtxIK9J_~fNOe?9|%qLTaBV_Q@KB=2H>53nx)
zQIH4yV7m5uAzgH}^`nFY5vWliIeqtE)M;v)Ok?8Rd-v|KRM|Ndw-h)#An)LBk$`=3
z1_$osj(VU3OAUvK-x@TMm`dBkwR~n~MhtL00P@Rc{6yT{SGm8?>UP%&MhP5$fcJ_r
zC~o1KJ(!_5^YP(RgsPnM=P>|*<6-8Xc=#lO5Ls`rNl55bIW;s0F4_3}nC<B6IhKDD
z7YK?XVO5AMguQ<j78a`LDRE6~UsFL7cHsY#h(yfG6(QJ)p}t2M9ZXtJaBL^Yr!v?B
zPYvRyPTV_oUT7lCJvM6|LzW{;E}&?50!tsLxD!F$k~uAaj4uw+Q|kG_jZ`DjkAmDe
zkKx|MP7$lg46k&DVnNjl7+i_BId%m;5<gCMo?u&!@%Irjss}~i7&@@rw8ZBKqP0Yb
zOa>r<W5AXdWn3+}llZ;by{t<stIoW@ICdz{bBGZHuUV-^OXB<C5K)8bbcTUHw^^65
zk}*m${0KBP)N!i`2nN(4Wc?3;$cTalBacAnda*gG20B$?RnmjN)Z)wgZ6j{FB}<D>
zBu=xm_kJbv3*sJ~vJ0of*kvpfUUgq%64kQ6Es;6Pl>u?Dwvv^SjVbE{Ooc=3=u^ce
zCnve`R9pF^gCDEV<ui-@+l^?Wy`Wmq51~|Dm;4Xn<>lr88H5m`8o`#U`@ohn;CV*~
zaKr#7Ty*lG7o}6`m{=Hg0;fT6InBW<z##z>5H--!MA0^aZC>iGJXSFWkqMD#L%Geg
zkhm$YO+29dQZxTvzCRCW@XM$}J;o)iTg49zwc=wcUIu6>s!H}<cFn_@ywZ<*2~0Hy
z;9IpbJX!HFTGO6y7M0&&UrVy;;SI;{Yg@vS=^WArfz;L{dTxX!VUvVJYCZRBdVS^D
zt#q(g_HzC1NnS`4i6~h1G&xuDE=}-pCrgLN<)xM@FaP?c8eh*q*+;d<Ltv?rbD7Rq
zA+{-xjMTSo+2uOjvk@z5n`+KbcEFMc%{l(Wy$m$#lKJ;%;_=*UL2y0p=s0=0VpacX
zs<oxUqxKIdbsb=CKm4ZEf4AFwK4{#qOI7fhB>l|+EMS014N~@cbb^>$aH7*Oy|9+Z
zg1EXz-6x3f2XjM0s>J&hWSO{Zp-ELCq&Lkrd7UgbaRFs>)F_n1M=&sc@;-U_{F@b9
z*l^ahzvSS;9(@*T1_d)2LR|-5Oym3w*k>uCY9wVmW0KNoE(2}@9^imx(%6f3nr;i}
zXf(KY$#ou4Q@cc$58Xl(>ezU&M=NE=K?of~JK6OE;9`@_46cJ+>mUmE7w_mOQI&rF
z{zRM4lDSz_O#Q-sz5DCB59wd)Q3F2+m0cqqqgMY2%Dx_C$7#?)_&*zg7G>usX2W+W
ztj$v5`0A@Ufn6*q%g4vY;#3Ip*ZLYnCf+LXef$}sE`Phh0zoF(7JZ-v)Y{}*pe99s
zn@C(N0EFJWLe^qJ1;1`@s&0CzP0NZ^$rOrXDKI7?F;f-&t=10ssBC?QJ&L2m;nv{K
z+j1TtTH!g{;wK)ffZ&KAETq-HKhEtwk<|a%raaTvWHIrHzU$Eu!<B;-_5zvdA`A3_
zW1)rDAshPqE)ybx5E#{KTH$Q_69vpIA;R-DpT+?eCgGMy8pa?Li$C0jf5;rgDjjM*
zD7eJZ%fLV)bXA)HU}YTsVp#|aeFCtf`LHvk4)5%4mibsw@#8s-b;-;LQZKlF%|5kD
z4YiN_+~{$1ZAUS*QAac({n?<Is+_)ft%4s#q@a~9Hl}s?*ZM=wu>p~1;Q2{XrlTso
z>$vCtIb)&LnqLNY3HSmL*$>!AVyJ=2^x3Px9#nDYnx8^kv1tD=vy_gaB^I>jmoK6`
z8TNSRdNChw+6l_oLv7XdRIH7q0;C}1diMjuKq86eB_sx;O~%YgbnEX$Wdj;KBsypn
zc0}Mj0Lm{n+hlh^bxlQg)(y$<4~v&VgEpss#v5;dh+%Nd33rSdNfdNuZQO@L#5n>1
z{vB1_SR9&-&jxX^TZNmU>%;s3v=xKdRyZ0&s7n?YVoyi(!3B8?iKG7@q#RNB{~_fF
z0`V^?_vkDvG<G8xV5qHfiiL*K;P>`aEzog5NfLxkMrol5P%QRPGAmHCXJncia*c^e
z|3dIF1U46Kd<csj=)!WIM7_g`u6hDE%c1%w4s-;YRG@aJc0;~-^GGjp7MY`&U!cuC
z;2Pjt%avtgVB_N1ECaB-ST;K@+5odp!0w!yxzng69rNST@CnK?xcomEJYragA7hJ<
zhM%vBO<dK`*h<0rNbxsO4&mvUSKirlGoTgiKe4SMnpA=bD0YGVjl*T?1*b2vbC#as
z7)k0;vfvvEZZbFl=R}|kT2J>q0hdF}Msd=GLf&dwbaWyblRo+KaXT+S_)e!%wj*Ps
z79*ZC1Xzqd30RX5v*<WZ<S?stx5#{KY@B$$MUZ8_%M%ygJ<)HS5=+7x`rrR^)a2$2
znA>CsE&3qatwCZ5y?gfwB;*w%Xxh|*F&WdD{kP0ThrgMN$PWM+L-KtT=IyC(4$)Gy
zF5_@fU#jebk@%^d;bYhkYG7}GaZxn%-_lv%RdU*g#%?x_bl?V;k9RLy$UJs{Fq_~8
z?Z8Oe_0)Q?d1#8GUcw(#GGXg<th=&<6+34mr=pNo2*4*+g1Hsgdi|NltbksP%+!z~
z1qehfXxJVZ?ct<QdQ9i{B7APK?I1}K1R!RE!b4Y}u&y|@tp~A)RIlW^4z%Uzpe??6
z5`r7@;Go5j)BC~KA{=@E7a!?K7L6_LG_*ej_31?7jB*6)6;cI<B-|@SvuzB{`Jd;|
zJl4^fI2uSEaBt;BqM6-tyebWhnY32dT1<D|Y*_vuvM}RPw;DoDvPN-uk#jcwW=191
z;8p$cD?SG?Sb=_wAdWiu2tg0O5`7BhU4V!pM2unL<WORh^eF>@-Mc@pzbtl=7zwdB
z{3f>x3&;zA_zjgNy1z>@5AgMfwx0L4nOZ>ScH$>VJ4?cdnA03zk<1^X;H}Jms(P+q
z#^4;nAi+Iw-=Co7BYtf-z!(on_IFXb|98wL<1{UX@A)aJ$_iSkF(3>M1cO__kgKut
zKqleTNtQquIF!pZ&I|cCW?igrgablE`z3|0JwAUwg<|jl1QEn$I4U<o^Qj8v<_TaK
zE4lBf1%p37Ab$#en5Z?aa()0NI*0~0mP(uG<)7gzVtLxSBr>Ve2f3Is_%+yl0@s;r
zuOi!K{CynmqvMewH3|`4kU4fTp9*E!lQ)g);0(O6XM#OTW=bp=a$^M7^-Pv9c7WC=
z0d!;^c#W{;3!i|JZo$9+bnb_8ZLf|0%U@0>b`$+7)8mCjVH2_{;V;D|89G+TzNFou
zI`7s2%tp?DInlqfvr}|cMg|-$iJMU)V<nP?Hb9f5NuupUAoRp)FZV_ix9|k=3K0|C
z3+*vkEsAdfw2J^scn{|UuBnlA?gX&l<Hz6+7t6JPyoiO%C$#CIpSu6yyXZv6_TrZR
z%;`Ruuy!ICBKF#LF*(3|BA%G_fPq6l6dX$$Ahab2Xb<qciGmKG_J`)UJ14-Jla&Gl
zd;!;k4}c2t6K0(s1J<`dN#KMkig>vx{{B^DZ=dtXm0oB3^MHLt6_NuCKx&|}+<~<`
zAkRskNIdw6B{yyhqDT^M%+0pf$KeJC)Se_+ux!Nl3J}jBmy@};cnHnUnoc4zCTXdc
z_QpQRKU!QT(|8L(2JRJCa&IWY!66<U_<2z4r+GRcNgys`yi*pACyM5@Y7N}n+%{?-
zmnX7v)cj=Iq2oeW6*x8gYAV5&sprMDBtW&IRIg{{Jj8Ns={)?*n)WQW-rlYbiCfNh
zxre;Nq*f%>c|uP?5_|?if!jj9R>hiGOiP+$tYC4`Hnszjavj{_F@)9#!=v}1E=_sk
z0&+gL=Seu(u0#YHWd0d|JEk%&R@|F4ES8uEeeSX9rQ2+M2QUKIEaSDPd?)TD8;?G$
z25KkLb1XX?qGBT7#SkK~j)%4og^~bFfJ6JBmeB|y_G@T)KLaWA6FYTeLkNMfpuTc^
zHgr}+XGl$SNBt$@;Z5o{;8b(#@ea^MkwqwEH$=ts8rs^Sq-#K`9h+@7ggk9xpA1?s
z=Ric=Q_@2-1Tw5Edkz~E4aY+UF;e)Gcw%6vbPSNoiH!?;ogH}js4hc63wCFAy*S-*
z@Sq|;Gt>2Tbb{IZ2m9>(Od8H#?DiLAOSbC^)4n*9mX+d|)b#1VA&#7O?et^TPp7j#
zu}UPpS-G-Vi23^U{-r0*ME;&xUv&B5+xJ4--yZ%bbVZJjjd$J0hapq1wzc%-SIrpe
z2VB2?{h-8CW58CD*jUitlEsGSHO%aYRbe!g9Xoa?1cmM0?0xxDQD!DLE_(%`&kQ(o
zE!%d(I^GQB1UnrKs&n1KtGfsk*NQ<XdC%rtXLucZF3<4|2vEZQ@q>LlH^@%&g+ZmM
z2_b*_7?IKoJ0E9eQX5=*xnw_o{%n@Wn3@F)aJHprZVhHl0}~TPGqSSEx<-mG>|DQn
z`wDPxDrRPayJcmm`X}8K1q+OV#>dB*QZ`8K3};=KDOyOHb?EEKjC%261<Eji6bQGp
ze;qsgLU*(E?g#;$24}XLzj=8Z3(lq;jqmD|5tKkjUg^wNl*geGHrp0hmDyAq`O=z$
z&5`(Hwu+02vSbGdsaE>j$7(8OxVK;baHb3qcLZ$9ekavAZ4C`~5Ps25pT0etXJB*8
z*m$VUxKaP&#Vr(mNI<?-I75ba>-Ozyz<YW3>2MDt)TN{IjAXk8DIs0;4%0l8Q9rBt
zdeUWg?{-SoT`f9&oLNP=ASBhoI>%s{BXhAsS%_JvQECMw0ihFhgY`zvZld}yYScQh
zfFD-IQhssg8q_}>T|ZXG=yr}cD!LxcX&bzi__Khq!j6xtac<}Wn?l*Oi5~}C9oGAc
z4-HvLNh$B?On&xE%hH+c^T_fI1++#(5)!1^Kg^JiCX+H7GKv{r-xwyJvTMD)7Lc`1
zuM?XPe1whF2ZN}3dj5#~omgjo?4wa7AA6o#O~}H`uNzA_IBKd_@bLu!l&)`V^s#$b
zZdL;IbWBEKCp<;K<_a(=>TbLO_`?UYUBzbU$~Jb&=?8*^umLwp=kt|1b15}p>j_vz
zhHEFC4qy@#j4>7YN|Rb{#_YK3jJEblc(^T%>I>ep>*45fSL`iZ(bGMuf8<CYXD#Ta
z_8;;J?AB0*n4!*S%D=Lm?7WMdN!Au4R1c*XA>Y|$b9|j224PHq?uv+rXuNzE@+6Nj
z=aSdqXPKF>DU5k@Z|6lGGR|D2a9Zv@blsvfL9NddCAepC1>_@L>iJbU_4M^^fV9}!
z+ERY*zW)f*NEzLN#{w$4u2pm~Z(25P$r0UPA>eOT+-s7o{ca@()`KW1zoKm~Emf4-
zxpT=+9{Dp;JTw&I=(ME$$&(Gjonw}4QLn>pfBK}2O=k4qA9r9_;tsP1jx<C?uh6a1
zP*BJhBSg&Il-RVX1Qk{~7PtYdGlk@aU4?^{mDLf0CY_gZ$nA}6FDStx`8C!uYqPN}
z^6Ja;nR?jLZHiQojn{mK%?zqfMoNQs9nz4dE%;Lt&_9)LzqjLW(dWmQ^N+^=NadOH
zD9FsnFoEZ)xw-jpUTQ`L7nJSAP(?T%i(sJ7kvppH8Aa2vlH;1FXTie9L=!x~rj;Y^
z6IftfhHpVnF~4v@8BQ0JPV|=Y^H_JbghJ$Avp)~)T|!w4XNz6-kXqa}Itq<tDRdJ7
zXgj5U$|FNpV8meMa3Pks?17HV@vGm)G-R*~pEKV6m<Ljh9rwA7c3L_*Cou`BTi|3@
ztgs%nQz>-8?w}i(AO~H?vt~^?`s2+8+3a9e3+Aul<6XNO5y6_&zye%imN}j?G#6in
zVM7SBvD=(o_58~i5i@9)R^wSyQU_({rWUk6xUFhvXlQ~!Gw6Ima&kHLihH2dNvfUq
z5aG$!S03FNqV%|CbT!4<>MT_fH=uY$ER%Za6nYOENJ1z-d!Ob(RYuuoXc+P9TGNG{
zCy~tX!uC$r1l_UlgUXv0?X9y=*oxo>4|rf>z6L;_%9Sg-aARP`vK8|7&AMq61dIML
zPqmXL*JF0hANBv^r%##Ded*>qZpD;wQ=bN%YVa_AsZx9$dSoM}X<Zb~<%m=^lf$O5
zPoBiY#?s-T7#7JZvyKUz$3o*uw}pMwUCLa$_CMwTtcF+h?bZ&K${yQkx<VX0`@Dz}
zE2dUUX#laB`ua&3?C4hy9y+9CWW+n_RFK#=gU&Y{Yais-$zoiensU(M+_@4w9?oAy
zdl8j^-7o-@(KPy}JQ&ViGHY+TU;O#TSY05^fzNdL&Bue2ZGq;UZ#vp04Fa~zZR)(?
zSlm)u>j8BOr5NDQRne1VN~0^QXzpTh7yR=y^z<sFr)gfhhxrP6(MXJi8mPdW(j-&Q
z6i8EN*uve}o-rp7wG@qc{c?}-ar@Kb`?3os3WlawUj**N!$EU&UG9~*tgLKoGmDh1
zWM|;=|9lMmKS$=69oM(V2teBX(<icH_Pg}z9Tr@~;wA1E9fiQD*lp})l6^>76TdMX
zBeiQ`=?SyNgGY{(!#&6vfnG5_VDcS5hnFfl9fGGOmy6Rwwcu|n#w)ptmiu^?SS`co
zZW$t?hQ9uqPc}G|iOaU0zj%>Vww2x;iO$yEUQ|GqW9*0<L&X)w;`S0r#tNJ$Ywplf
zO1xU1BKVoIF~nkn*BG6W0uxVK+(xF{y&Rfu*=?5j(0EL?4Y~S!|9+-u2Fvq?lZ@wB
zpyQ>Q+9}tsQD8Tb;t9Q$ye+7L7NEh3X}#o6w-lH7r+|F#LKSnZWnlR^x4`|L|7<^#
z!1)HkrqQXU&!6?EGwW#G-*qdVJ}qovVNu=O%#6Q-ly&ON89`XXa|cPqT3cf&k!F?F
zCPM^pKml4^(SGLlKnv-no6&<Q=!%+oxYvyr+=K*b#sFZvce(kLJ+JS7eC_S2Uu)EQ
zM;w=oPn;f>CF}KUnoozBLdRa<ozD}<fZe-l=Ton(ykKG|lAo%4ybR2=HI%zWX-Rkj
zV31K)ltCJI8#C&)EPnMRB{s^+QU)q}I?0q@DBEbs^uYeFs|8~o?E#S@=bhIMjNKjh
zKqm|&ZvIO26?q`V!wP(&Bks3&n3zctBdoY<)qGxp12e<&gr*|5y$B<;gCW7e9(XeR
zJ9gN)>r6zH@HAZo5F`UgC1?iqNf+wMVkkYfVpy3*@1L5^uOp6~)-w3x)Yd3V`P5^}
zu5#P63%fR+C|`Z^K*V1y?r_51T!{*eQ`T>ISXD5RP>k&=T%We?j#v(qUIDGh9qk>X
zHu#r2f0;-RRbv9Iq-!LhAcMEO_g3bhkgDSG<165b>W-66aW6MhICJLAVXeCuMPfn9
z=&wu1TtNvIs;tk8V%MTlP0^4D453Lz@exDAXChsX-|Hn>-I=}5#dDX8xFl)=9+|bz
zSB9Heyy4-v{dpdH?0j5qyz4GS^F187Fcqn(%fV4DI2GUkkFP5Gsam6<oox1ba^F2W
zbk{R2fi{JjTsxo&WnSbGBL#M?b349|IF=fvwhTb!z6mm=N|9uL-+UW#Se^=RSYkBA
zs*&25l+P*1(~s2_(4TyYKM9T7Wrlp^SXh*xb9wpJWnK3*%l0jNy6N&V&?}w9RCxkk
zd|x(FKv9VsE$%^zdVyQFz=bybF!tNIGBP)@a8-58z0vvk9H4Zn0W$|Hy`7z1fvd)H
zqM^Jc<VWRH{&wKs3+iE<<MVj!WMybk^r)@S*oS*tX^~0=78XuR@oYU^c}FBwG!12`
zJfFUfPQ2P7W~=1nWSPs~msy-YZ<?tmz_bL&!L86xFXVRLn1tSGUo&oUXEjBpxrZ?|
zo8?LsYhMwf{%FrXqnl$Yx)fYo<dA6}U(nBYv~jzuq+Fk>wp;rPhh{d8;f?+4@dtMx
zbbvRgA~h@Z!<nT$&kcEGRtC^xrePP_ZeFQx+;lX-La=%G^6Q<1&)ZWxomBfC^#z?B
zKejmT;e{*VR|q~`hhE@YAZZtaJ>QCgV7z2wZ@e`_1^v=%c?%KbATs#4(&v+`G7?Y;
zN~mo53g#-^$Va*kV=3R5rug0*sM*pVT=NxFd|Xp}YTK08HOs7)jl-czCX1H@T|aBb
zO#1`^vwvl!S`quPU?GxCNnI1S!}Hl*fdD<4Kq1wp%=4=f6BC`Ty4mFzG`%>>2E$b3
zC24mtA)dl-iJk3qJZpcfTjI=Ea)CoZIhMCUUy5R=FbsqamM@B#VT#J04^jSd>lj=E
z-Y(UDa@A&Cb}uYJa5<3FP->QrI&$(t*vyQ5>U6hB)-}_e;c&&gLDZyj=dY!(bO3T*
zy^JALhbi(C|Ce6*gVs@N_qwj7QmGWhJhkr-5n&r-Pb1wqLH}oXLRT1z+LTO(iu!D~
zawxHLux`RKCOOCxI(#xwvx*q+hZ&5g_A(|9%8TY3Fw$?3x8<y<2EbIAMvgr{(-K%H
zbCgp#IOsR(DA+9=7Md^^O_@CXbB)~o$C_hCnI$ONzTmf-@?q5>Is*<b?lEw+U3dwm
zd=5y~1}<X_<gTfNzw7pR*WH^LcQ~!YMm%gO^0ZR{@6q@WYKgM4=}(6M@4*ZR_sf-%
z1-O)@@`-*Z8;$WW#EsW8iiA`hG0|`<GLo-5l!L?Tz;f4uB<XHbEA1ri4<A05pF5{n
zYCO)#NA#h$!@~pMIgoa94fqt%Ej)=yNi+3Mv4w@a@V|AX4qDjc7-Tz+2=3txx}<o|
zcY0$}XZFXBM}?~|Uc5+O9V#(ezrJaPEizJB>Y>W)XJ3%;`=<|Za(Jn*)8)h3&fL=S
zHLkZ)+X5<v3SbP6izEeOnAqtQ{^>s>x%$qq4sXi(tSh&~+-7P+9-5KG!qrVp2^qJ3
z9zn`!+P+mV4)khO#m=2O6M2T!g0I6&7xHI@z`(#t`-r1HBv!-M`XGRUi!RD#ek}vu
z_|s-NWK(29ExD#>s!hM5MuTg_T^hEGwR?koMJ}M?19({qEw%^1n3#fsHmgXI6);d<
zQG_n?_l><AtWG?E`<Y$Q|Ngi8_%u?meC6XBU;LMx2-^Gf_4R{hK(Cl$IzN$Bw{Oc0
zzfb9N5CEiuwTv{;`F<(K8lE-}WgV8|vb_S_Ow|?OpyzxhD#ISQzwRWZzaXN6!`D2`
z#No0a&vV<|>xj`QS+EG5n1nSj+KiVk1$XS=hFeG}l<NHcF`wTF3Hpl$?xziTO9#8B
z7gz_qsU+2b(i--z_gtrtkdO(+VPsrqWeE3L#Bwp@Ef#`pfTUqxgJ|Y_eo^n(G*gO@
zEy@RD$V5`V?4poVhGz4gyvsD@*$u?c!mq-2#0;FyBM=%Uhn!PZ-iDwo^$nwktss1}
zzj&{yH)7$?e1EIxp?wiodyg%{v&nAjtfuI?9!c0H9eyCij57u|BKQ4|6$}j4B1oFW
ze0{ce%d&b4H`qqa-zqhX>bo=yK1D!GY$?!Ml!+WqRZ>_615p)dC$Z|%Z=R?N^E7$s
z%O7Lzt5*!0Z_@C<;g3<qx|4#$$6nhRggKuB=T*^PDc3KZ3NVKW)AJ+2LfHo5ajB^W
zW9PG4{+UfY$WDjtBm7VS48%>M>@9&*pC5f_*#b_!i{6c8chGj>{fK{?>+a}5hqcVn
zkBK*kkvC{#tYnky<Nz;=^MYagNjY8)FLBY-)!4vOO4Tt0ogl8<Rj~pMR1JlbPJ!9A
zJKA!e&YNy)nLEXe&T0BG(Y&m3h}>YmMerT_vI$0a?Alcjdh+WU>+7%Iyt$m}Q~DOU
z4;2QI37W>+nD5@s-KIRcF6<pW{)B({)aClCQ)Y-Fqbu?r{gpq8<j<e|QHex7eyr5I
z6N4D<VH?fhDNxIHfIJ6L4muhJ&yu0-kM=Zu$ZLQ<1Y)A;832`}6+3_a{K1(YKYpy=
zxN&1;63a6nc~uoJGcpo*hOyG`E55vp!{9?>6_=}5_rM6u9S#u*8M_60#fD033TiAe
z6_Pv(#5^+fwy00DvuXk)F$U5j-1?!assc^@m1a)zG$c7Mq=mN(j5E7*w=8q@*?=2L
zzjUPuIOK%X)FGP=Ff68MvJ&apqL=CWzfPZ{>g&VJ)1KZ?31u;<5K#)hkB|)uySjo^
z(=to{O3;9x0e5S`HW`ft6WnE1aSyI9eLo<{_J>6gEd{Q%#c!W){n%r>yvHxH-Ab*W
z;~<xz2md~HI{8N5n8U6qG=>dwO3~aNtsOd+Bm5oT``%Wgk0<wo9DRH&oq4$P=>g|3
z!yG1ddurGPM#5sCX+Y={NpX@W>zGm#97vbFFgNkVK2Pa0S;MQFVa|~>A#&!*Ld#l~
zp^KiV(AiaL;#qVH+vJvg@2l)A8?sD)x_6_tAn)*l!yDqlZq)UBJMne(*%!^;qv7#2
z=34C+o@pmlCJFF-&d}SUtoiM7ph)GnA3W7#C*EPHUVh9^8=19gR>ng#R<ql-Ibs<+
z=@F>y>Br26F^t>^RB8E)3}6p%$;IYU`%S4Os=?PW5F2TlbvGN6g-t2f%<hW#S2}>P
z)7)flJH*{8$27j&^91)=*>4N#lWkjG+7?Z3S<9hrOj-s^e=XVf{;J92&Q{BbTds-$
zF$uG>qk~J2DBnIS#UtQPa5tY(zx9Hd|14vObkBP6;&?Z=N*L~JxtXTZ!%8{kZZ+ea
z4_FrX<9rqWm$@Nn?a!CdDxiY6?(%D&rAlK<TI@m8?t{lWI%{i>As4EcswmIJH}-|P
zJ48humy(p?2{c~aT3~oRKag5dgEB0-vG0D!D=2>)F)?{&4-7&mxlZy|)b%#Np<S?-
zZ7Nt3otFGrr#-wfYnKc6hl;s2^arVV`ZQm74T{_v15vkva4kUh-Ta#9k(8L&TW5nZ
z4&h0|PGoKM*wy6J)B}cw>(Fr{{vuXMUi$XN)g?zbrfEZwj?b_5wF#m!8Y1sY6=TG4
z=7;iz<Y9{dXPXgEzFGcSHU)C=z5xZm8<;i}9U5`G%8>Wg%`EQH9kU8V{2E;L+}zw-
z<B_{AZ@_fq<NU;8)Rfa#`@s}YSsjs;H1+g&(ku?M(_sS93?$}-u>(@?a|}{$ebzW9
z^}t=}YwkkoA|%FBD>$EWANd+U$tvL0x;dAG2|<i)0tco|A;|FcbrPO%8ZhGiX`kn^
z#CR7SZ>3z|)3fNMz<|&LCk%q9Icml)#uu|Y0@BhB6rCSp^(7X!<zE)TD8>WNc*D=R
zV4*K4BMIJtP*-kYB-k7J2j1#=mFzHPHKCz9pLaFfJk8Is*cnjR`$uwXNNq;AjvG8X
zSg@322~Y`Nj4l|>B&2PGJdM;d+DT(Q17acnmTF%Vk{Zka|A=hftbF3cKcu97(Hzxa
z!2t*n@=!bqQJ3otwUM25FoClcj>dE9+uAy24|k3W9fj*K-)dIAjzi@JVuOCrkA2jV
z5=GO({hH5w9gD-EC%gRp)tMJxt}*g5O*t;F0JtY8nE3{43la5SzALesNHk_BQaY}t
z#sV=Ag#s8@&FzQoR<l>WX*0u>A*ACYz~$QIjKKZTm?5E&!vFQnb!*~Cb+_^;HBCFo
z>uCIOhJ40Emb+p;eldOvrGH)lhsb28kSeolvUbujl7~)Y?9&XzTSL6^X*i}FEcETi
zkECN4wKX+s;tLy*QWRlYl&W)$ljCXmfPESMSY}ORM_vv7kSAfCrg4v2QojmE4<ey|
zdiWL-9@k|$1$PmDAV~zkw!fm5y>?tLS-a`N%Ue&pS9q10OPOJU#*|u)xO4cS%vS#-
zmXs$?o~T!3W@SCbwQY#D-lwx;1YDe^u`yft2L?bk0NW4(Nn1}N#WAKPzp3ALHxiR`
zt4<2bc*;EMPMMpjdxZk<&Vh9-mUwurtUNedC{6c2t~r}m(KXUHaQ;Q}v{v&$Da%%w
zjLgh0kjfSeCN=hL1ufO!#0Wj|_*4^;U&9ikuy<Zi6+DiKDIF^OlZBVVN$wt!F}ff|
z*K5jBLSyl`d#NT7M=KILP2IQfEIwZb)D?@^!L4rlyg8?t&lg^%i5JCxL0d=CAs8Rh
znOCo%hkP*`gJ^TpYR9XPXywsfN=ZvkWE&qkw3H}J0IluoX*sMc#XfzU`$D?zt$X);
zU%uQKDQdd-3l;onB*@Xd?T_e;i4Wt@7?MIJ_!n&Q+C-D@m<94PVNda9Tq$daHtHK1
zN-Q!J<Ld<E<#{1a2U>P~?wu0~AV9`5w$JoRMj?Q6W_37?Y98wgE3h6YNiS52LsLCh
zhaL}x6rw|!yL746QQ92OSZ;2i<s8OKm6DPYIU5S8GvilNKk@(=wp>Zmcepg%QqbE7
zP#{f>Fe!rI8_pD+1t=1Y1lr$)M>r?i&Zv0#^5x=}%jD9VFUVZ^B?Ohs+6WcAHh1ep
zj~zTmiYdBWD%$i({1!C8V4I$wUJ8RzRjhY<KP2A_67~k_914X@cKx*7EV>wSS@xrs
z5L?qN0m%WYb`tg6Z;1X}<egVM6_Ai%g8?xFz^Hf7dLB5ZBDYk!bxht8XK^dXse{3>
z`3ye^O!xhs?kWz}b-y&4+r8g7;mfBk8RTVoA(}lD6Z{0i!p%nctMP<}>^jhB?7_Gz
z#U1*ve~4$^>)^#R;Jq2$mcO8~rZNmHpBn}XMW*SbOxnq;UFLeO_^0h|au8%42A56U
zLt)P^At6C-0D%iC?C_v*12UtnDFA4!p(lBWIYYEMmG+ukw<96~V`2oUjR%y=f*h#U
zR(LbcY=HsrS9CnR!p={v*cqE4H+>m|C;Kp__srk}M<cODAEOJGoWYx-dL$oDP??=>
zb>M#di9|EcXrI@%aWqpeS-@pVur~l|6Y}Y>!wTOIYm^M^n@=ZFACB+LDcp$XnMuh^
zPv<~)!KAxsz*<Jb$mk|os)+)(s(-ZrX21{tQr}<^6B6t_p-wG9k-5y#nSI3F0bso&
zlw=eN3HRiPn@jPSXMT348A2|+(}GV}R^>YW;-JLh$Mns|zrJ^PL(%*b)Vn5b2#H(-
zRz7(6@GI2G)%Eq?9Ey&{m!X4@be(miO4JRgx9rRGezrqex(mXHq0CiT6<sAz-qN@W
zNO07!a{~RxsXlI5g#M+VaBD?*`KB!RyYcjNvy+>o>AQ%xZ3pC5WgqsAJFUU<UH7qb
zaZ<XN`8x?##{B$wrT>wOK@6K`>Sc!cf{{Wv@p5^HM-=CTb8iBe(3DlLHOq<*^G~RB
ze9e6k`)8mn5X%bi_rKFpBAz-TFRN#4%=hoF-}_ccBiBdaUr5c1TdHOl=oOOw)oGQA
z;Qsy#TH4y)E(Vw-5v3VJbgXG_=l!%5uMmvM*#Kq17y&^rQWLK<Jxkcp>Gjx=<gctu
zdnmP0%u_voSHw~HD@PJ!ETTk$l?AfyQcSIuCVmBOgAVWpDv-WIt63@7K~RCnNbR%R
z93sSwRyH9a!M*GYLb~Mr!w1#Xbuy`p95p6*p3<8(F@t=fP_kN*wSF=<n~qyPeD>*%
z7D;G={%dzlj-^!Ji8p^o+m^2{j~n*Y!tW}xhx<G6yk)Q?Qhl>g7zQ!dv5!h5b#vO?
zyLaW+L86YZKBxD5SuB7XU`Ci%DI1bUTZ;`E(P$LCfEcinS|=bNU<7ai<)=jsP_Blq
z`F8FiOppYOURu0^A`HMmG`R%)V~mH_Bow8VeK8q6ln4)&QrwO-P_?|NQuyAeyj}y|
zV6?U?oZe2SnM~u4`U2)@GEfRuyP)iX=D-K+2iK}qFCK*XCNSbR!!sk1E+0ksKV%q;
zcfvT!GUC$A%N9%g?rAhG|G-(;T}YMSzs3vGjl2_9U>^uAhJ7gr@sHEe*c%Nlvl84f
z%H<wt42(f|K*qQ_A|e8tuU|vA<cIPkY9`enhm*ACkAvht4|Uuo-|OH-4}R2g$f460
zCLH&uooC!dE^i|JF{xQd@4r9}R)*+?u_GGrNUf;j2?U6!(IDz@n!z)=ik7YHV$$kO
zAkcr3f(5AoT$lTtho7$#?&!pma7&LGbHXI6yG<W&g-RRuZJFcCi#X7Z;LB+!=u>sG
ztxaRY>NW-onL@Eq86Mj*Fle)YPujVvXws{yTNa3J8IBe@V!lpH?u|Kj-4S9gn(dar
zk-Z62qx94^Q|OLJg=hr1kbB)>X{+`d;2WRmWr{8-5?;KH{k7&&IB@tQ-_qUL=$sJ#
z;mpb5Lz*b{Nq+^sSxj;=E8;wmCy+$)v}FxAFDui^6|7K5QJEdVT3e$Nx;3$ijs~J>
z0y*EtUnnOh$cUrpb%|MeC**=lC~?7Ka50&fD#k|>--Fo!`7QsD<zEdSdF`_Zn<8t!
z3<Yh$V9TdZ-W9yg%W&r)joIGrI&+cCN=&{pp7(%&wTnzvDqgU{FwHA`eQWe%>yd7O
zo0AjKU{Ov6(TnE#`uawoIr~cLzt!`kG38)oyfhsC@Zk;AmISASx7R*RO%6!jZ-s<-
zA`HK(s89kTU0}eYNI<bik8T1uxX0{3V}ki=m)+v<;t8cW5B2Ht^PMrRiQS~M*W=`<
ziCPuv5C=;V6HLWq<CE4@SG&V1W2UvEpm7k>E$NOUU(GiQU$~?)fSDp|OnG!dJTYLi
z0K}EgGHVUNc3rW4S*!(?V<Xsq^2KNGtbqMcdth$v?o-$xKEb!gk==dBWS1t_R#*yL
zg?=Xc_ea^#0bC<+eZ_d@=_Vx}2j>zOW08_K>e6zv5ixIoI%=V*4&7E(Iz1e$D<RJy
z^o)0e4>=o{anv-RTElYmXPpfK%q=0+Pz}8es+=gqZ3bI+N$uEC^2K@|mx|EFjq8!v
zK{jdFxhP9rRY^WHg#kbOog7~0VR6G;F7o2>mDVMnzJ3wPqv}3#>Q1Lhybl)IL^BMl
z?XM0+=*Ey3mPRFsHtB=LbWhP})Q3e74-e1Pmr%j4!DT6~a+|+gcw#Y8cqyQa5*J?%
zlI+dLkNXuAXuttVLexrL9qetCQMkW9v)xCgCQ68D3B>InrLu30H}=@x!x*qA_h7J4
zbU{IZdPS~53NK^3N;pmiK*(W;v}5w~*P{PR(@QqLcoB2g^n{YWihK97zhCQOAo+%4
zxxw%mn#HJlIp_}!LqnoN0m*h__0}Z_>A(8o<6c4oVFE&Z5`Sqx`kTNloceCo4M0{p
z<q7wK&Ghcj`LjTbaQx-Fz{!ZC@m1_Ey}cPCH_YKaLCU0p1x*kb&Wt*f)5&pLqQHm^
zRXDtLA_uTlJw7W{#NUP2L`6yiv;cI;*YV>LD_ENG7f8hbypyN6LFHy^ifI%|ny=Uo
z=ha{_U{f?b?F5hbjRc&~7vrpP=ehM-;Zol<+#R-8Wn+E_JILHY0LXpzL>x~k#meg6
z%;ySFH_}jm0$+Wpet#Q1#<4pzPn__>4O{YaTJi*vB2Ku-OaWNN>K<D;ZAF57acG{h
zWph1#?3l@m=IYwouPbJuR%;p<Pjm9)R0%0DDaO;ji9@WVr4<z&O=F+84rMCR8B~{v
zV{M_#1VnF*7d1-OUUN)9I~LFdq_5*VgK(f(gH;>X&>#P1F%aaDOt1UL==372@uGS7
z&HAA0SKs5`(Og~il|fKvlkD2%csIgKkEG6VVzzB0e(xMJX-AbcUlD*rlZ!O!5M!c{
zBAl`#9?qQJuIpVmk3^JIJOf&GE2fg=7y5O7xZGb?6~(C%w&%htv-AXQLj|d|j*(iQ
z`o^xht@q!iz<!4}yiGOuTU}%03|q%i)h(Esk$+)icI4>M<?zqu7`MR)f1&|BDhO}%
zTWL3OfEDcQb|B2eWQfMh-`=a9Xj2=Tx@4?5en=V85BV1jElaIsX7;~>iftIROBbet
z4?v;$rUJzT#qg|}=g2%KxU@S(OFi77UFihy^9oX8JafsjAJ;z9&svTaaM*E=<6zDY
zN$d_qw4$YuGYgU>2AU15e-Xh$?|IgVnS~&X?=j{}fV%;=DzNa;^Te}EIsu+UhB_a*
zn3AI@QbI95YkO=f{oW4}S`@_j)l%#+z<4K1UfajcFz*83m|X~crh8W*LwxRX7&6CD
z%Fu5cQr!$&Oux3wdW`ZF?;1@ZzWnU$K8n-F7iNJq=BHBXJbfASLA|K${ftTb#Z%_o
zx&S}wGPi{ZH(H9Qs3^ni;m377uW*_JLGqywka>2po9&9+4yTDnA6s0^Jw^P9#tioP
zgAT25M8A&0VX;BTEp5Xb#TQKMmqI(@jhnV-veOf8cNLJ`mg-59^U9$T#Lt9e=W47h
z#~W1JuCUytyEDu@8@pOx!_XX57SFG(^z`(J?_+NZk*dpO_sb_w7=neKetr@SJ_H8O
zWl(>(EU^O%j*s{L!49#`24-ccNhqpZP<P*HK?1N!oxz}nBC{h#NBp5tl&L+`TZ8t+
z4?QlF0vq~Q8Nrx0e$~|+#S`&$^aFJ*hUd?VVWc_;5*Yn+u0{V}qB^-kk%eBJA`kRf
zj>afcYc0$~h$FbiSoEwjXZaEY5g`6(VzoDNsN9}4pp6=(2*>>NgV35GRmERBNd^5V
z46rD+^hNE-yw9}7AX2?l&R?Uk9a<Bx4H#99X>>s<vO$-RMrr%>(!SR{w&Pdc#DL2M
zgk1D_%Q(;tLNP4o-Lrc5at?@1C|01(3c%Xnw9r?Qu?-fclB>0@7>zYpPd>VT>sIxT
zlk1`UglBN&fQD1vQS9K%nS%)mE5HP}#ZU}GU$woZUGcf4#Rdj!n5}f`5k9SJU|}KZ
zp7O%1ea^0+;nSxj6x?nlqq;*91%#wDaGM*W<hHNIhwz0h@YMC{U){W<=1TuiiqhJ%
zy|Jc-<I;=Ck~cGNhpc6^447-GH%1-?qN+3>7<TYTdn7&T!j29=#KEyNS5nSp>J`m<
zw0Rm&v3VNvu$-xS6bN$()Fqoc->Lz{28&_>!6?a-ZWD7;hsBsYEc)ibY1zO7#c1NU
z<DRAhXK6YGY=|8Mk7DLEd*za3K_oy)*TDgWSF}dEB<b0Y?bW}sdkY2Q*dn#>nD0A?
zd1(x(tEqX2_(QBkxa~=gY`CUUh?+o2?*OQCz}xO&Mow=xZl)<*dgt`7e-=z=>le#!
z^I=qPH2QJ~evzFzg>v@_6IP(|N6ZEmz=zXoZe``uX6Ym1pQgK+Wc~v6XZ%d4H3<>W
zRPnl^VkYz4S|)V9@;Qe^2=WfIe1(RfP~WRiP+YXM)VB2bW%k|B>#Ixuz7r7GR?k2T
zWP^&U%q-mmIwsc%ge1(Ja$r)j1Y=tx2+fnNR@h48{~gz4B6sC~$?fFB4!#MqwPm~1
zeQbLEj`d>tsOgNsLD?BT$B++byQmX3QQIfu?mYn$0;Ay-zT?6gfp=S5Tji4vJUSv(
zP4*KQ1g^!pbT2SJCxIzw>Tz?Z=tEnF<3Knz${prFxsmxafr;=y?n{%c$F16fgE=p>
z<#MC(Rf2*LLthM<T%<ySP@MrV3=joHNGDQ*Ca@5?_=|NXhA~E(QyMH_X?Puy-meHw
z$3I=3owT783x^qCUUIQT@bzYjILa7t^he!ynx8CI->MtGSc_!MeAd5XF7ppg%uz7@
zpZqwH^eZQ9Rf9FC)Q0$zfS%0+J1<&T5H-z%@bE8y*Cbb?aPUU45h+&e_eKX_1rit0
zMLXoHPW=p*VA9k*jt$x?d%BekA$%oB%$|`~D~R!rahw&zSnv{T>#KU2lJc6gKX9rl
zI+R8+!Nibb=QYM*+%eLxD52znd5|w?D?w<M%!=3+!y)UI-4P$pCWOD2oeWKK`Dd1M
zic^IHs_b%%B`6NQ1%6^c^-hAERKBVy2Mn-~DvR^v)mX^b$UZ|H*YUg|h|*=8Mn&MY
zx)uItw-}pNux|X*!1+VjwuUkc*S?jo0YdjeY-e){PQ492C~<b*VLT!Xw!9*r8eTgn
zH>1(C!5I8CexkF>2m&x9{Uv}cB(2)>Ve{VI4FT39E%_Rl*@6^@8$Vwb@jlmlR&BBJ
zm3l?L)D_R%I1}25K08b18Vxe_gub#1a)REGD^WG(BxjyFdzP)Ux3DhKelu^-flT+T
z$B$_V-xKsD198n|TI#`r2i6T#9fkM+$A>CX3Czc?ABX@xM~GO|Zj@mZ=rlwxQM}3z
zgS{uaD?=$1ly1m5<00!zaG_k}%cNJMa2BI+R#Ng@BzRE7A?$+LZc6nlQ?B3cSrTOs
z)70GjboATCn4b_KV7V;z`T2Z4q#3bxwlcKv*TS~RxP!h8y!q{j(s(1@=+;lK-d!Df
zmVoTYx1)W5atKGIxOy|ACt6J;qX3eyB=z10CPS2XpN1zffPRay`M3#`)~B|W_g~&}
z3yWuqRs<^@aZ9NVn%u+&83Wp^6%dNiQ%GCph!;Cjt;A-EPzOmjX|o6nh}u(amnEk0
zmO1=Ej?C^DrTQ49PV{*;%T0zZT$lanC-MpFEszqILK&~@?2NLE5%3&XS&L-Wd;})+
zSVR}>(oaOeX)*0s;pW3VxTKhX(7L*B>_e4}Vvg0hA_179i*WoI?L(oEjEiAm4%-D%
z`rx^nO5IgleA&vH_4>noZ9l?*v(S6+zv?ee#l|do`h0j#_?22X>1b<zitmEz_~eF8
zjJN<;@&vw8Vltc)e9t^eIr-dMj57KXUG`o~7N%oH!+mBmnwcv3na$9rtV%w;*obi4
zW^rO6K)!l;YMbTR;X_<BDEY`C0d1=!e+H7IM6Kc75l3-=$9kGT^f0A9u{uw#1nF%)
zn*qHduM3R^qOfSnE$@&7`#AB<n_nRop@u_fAYAgkU?C!@la^k!|MAubZ0di$;#LB+
zss_`Ay({kw6Ip`y>_a|YZ2K32lVkovbjyZs%|~3K$2UiVTOcA5nxV^iZK!$<AjXio
z7F-sM(K^-xxRUXQ?=Jyhaae{fmtlyDiwl|n&{vDRu`)z9{7lPS{RCmaZVCaxB<7oK
zz*W1?FnPF>O6T6zvY{)|8q;;J_kCE&1nWy?o<XO}Q1qmqWF!m}8r5aRmF6;p9su3!
z8sR0dh)@YGSv|`+7AoR@PuhwX_euj@1tf}b2QHw4gX4}DSO;pO`L_E}bv=+Tm&)(N
zfCr0MuOakpg)lw7H4!Gn3`txG(1WVNd@d@!2%zv#xBg(E@>fEte|`ziZl|TLyIKPi
z4*el?>W%jA^Wf)~m0bfFEbB~De}BKovjm4P*Yma|HIQx0Mh!<bxkucyVq=x37~McA
zHB>PzhD45<;m&ol3_OFc@x)&qz9%Wr@7{=;1rJ*_F_w=5_Kz276m2T?DK8PD;7$^C
zBcw3ad2OI$Ksl_IbCUX<ry%~7W(alq@cZomZixoH6^gLiu8_5pe`3-kCx!jxz*XGa
zb7dQ-H%>^3`AxuwRrd(;o*hd>OtQ?%Q?I}b$=1>&X7$ULx8q-~uwDnSkRbV}g|?#F
ze;K?wHl{WP)~~EYZ;2j&_kHAEK6I)6qh)_iFvr*$Ph&wl*wN77CpL~Vg0TUj{2F{e
zqxtE==~^+}PmLxroH(y(7?a~|1UU{rEl+f`AV}N=hWH_#nLt#Y#Gr2wMxEATslzgm
z9%;xnoAqBVL(5a}=rrsE{73(Q^S-{Nwfe&?F4^G^XqMNQY+zaf-r>gk_lMW+x<m&S
z9YHI{_;C$+Kg2cmVm43p4z85c8~abv>2U7OYeTTJzdk!%-_+!bQA+}MLm;A}hwO->
zh`q~^7fEV>-=X5}_8HZ~e=ZBxAw_1_f-+#(%F(Lo>J=EOVGaM_jiMVR7$jgoa}sKU
zqh*0}qJ>_>k}trlnoGMr53DBxw2aSAq5+n~TBY%C>rU0XdH;QUtd|PtA>b{G|CO~j
z%y|XtX(+ie{Tm<QW+0dX5A$~E#}XTav`4DJT;mkkscf9E!x6i8uq3erp=ic9h`3R{
zFE9isvCVLm2*B%nZtF&z5C|vM&#nIxQ+*kPcTEm_?7lQbS9poiI_Iw|=)aCkyx;-r
zQuBfGqv`kmnz#h@+tNHIoln)(>|YwLR}9#bn~y_rsyM`yK+foF-`zJhg6sf=blmOv
z+kc*rvXcMNc%?t}|J9dy2I9h_W0n)eonZ%E^paPiGpv9uH}5gW2f)6dF~NPF#aeTD
zK8z2n&ki1L8nB=3SeWC(E%q3^42TF|qniRyj2Zfcg{GKmi$$rg$bPUd_@lddW#j-9
zgH~xceKFVI^yf}A;c#}~?(OTN9R%!7Y6fV>&7~gD7@3C6k8WA1veiS3IRfbmkHvYJ
z!)YK~0G3psM-k8Y7EGgSc;RI6p}()Y3#1$%phYTypy1QMXc56;U~UF9jGo9JQA<^S
z{>&0z$BdVb^n*ZLnaVe@4-3@Y`I&ABJyowrj0PTPZqDnw_7^stJ>I(2SN#a>uNM73
zw40SA9y;wv+P}|FFRc^I!{qhCOWmn;J^jZ!m6Qun@nc=v`{lFfn^9%ILO4eh0}zBL
zb|3WwUQ1I2yt6qFG)q9MKTb<5S^xi_+n&vybnbl`@9pvxdz{EW^~SiYkgIJ7!GO`)
zStp&jN~Ly0RMsuX|I1{Fr@=Ad&Vipl_c=Q|N8XgP>*b<tH=otO!3RQe66q6&YICz6
zd9f60s9j#{+V&^TY2Kk*>ME@2fkpDr35;g83;;tAO}^_py&mWQ(v_=MSP3E0B4nj2
zAr=B;R#o9$`@$h1;D05-I=INXv)1;P7uV1l{f%)nxcSQ%Xz^!J)(YV&#tT>-fG|tR
zVAO<WU#dWAjrl8#=D0js@T5<b_f;&;gRuhvd@1hmby$MMZks?EW$0ZjUbO(}(59@c
zi!I)fbNy#;8*z^9OKmJOkxVGKkudT|`#y&HzN-0p%TG=1T)mf_oppl;zepAYWfsS8
z`gt#fV$QP!Ra)x!F<&!(hhZG*&`vDYDIKu)nfsmJ(ShnrFh?uK)C#~RhJ%VhfFU_|
z|6aQz`~zWmpB%m))BB?`BO^neFZ|IX`Tp&ZKr`S__~6nEh6_fSo0g2Yevt=48ylun
zKn|Bxp{EzvDoeKRjt~)TP;HBPBzc?Vwqua`+!V>p&>Oh5@cwYU4z3@xVk-m6&*s(j
zTyL=OLa72@2vOJWlD=z>Xa7%kUjmKw+IM|ZX+ktQ%1~$$sSGE_)Ijb^5>e(-nKC3K
za}<u!a5pG2%RD6WtW+wA%=1vmlqvK4?F*gryu-8J^{)5**7vQ)YOSo|zW?`sxUS!C
z@BQ0*aSY>T&n(DI$uJALmcMozOjvwax>h8>4iFILGk{<+PE;QeOg|@|r8uH5cp58a
zvGj~)x`6k!1v&a(?bkLZkB*Oz%kOlzZLvtl^hAZWTsf&zbzCOOif?$>LgvG|Zk;<+
z<=UGLtd?zjc%9ijM3Kwo&#ji2j6jb{WHWZ#4!U|?DO~)du=S^5KekI-_oMb^Jf0-y
z0c;{bgtsc2RZgAqAbJO@TY!GiI_>7&9WbqVh6|f+aPa<gj-FRPtnIF=9hke%4<^Wj
zmjUw~J2{!rV2T$x|IQb4cX!1$u}h&EbH{!aoSZE3O^>9iZEUa=RzV#AjmB|h<pqIV
zvg&aqOqEeDCl>tyrnj_kzVrxY+nj1EFE39iu{zIIVwH|YSq+NsFX%G|Ja+|el#j0X
z0vUAyfZ>wH#>TE`LK(qBLX^UP(*dvlU(jD39tJFb^CzzMvk#Lq-h(0Qy;F6rw}Cmv
z4%5E-7!!#!Cc2y_u>604>EavksSGw&3H(_9VNvtYc?97`q|E*NbsF<b%BD?lsl2Dn
zJolioGHq;}a%hdx3FIGzgxawJ<2fesjJliH1%Ys449}C$b{QG$nC!p){@i|4Krl0P
zg?Mja_i7<cG%xYSxN0&0w}7icfCOi@+o-y*KtEH;n7m8!%%X^a7@2AtE@C77%dU#!
zf0Smq$A}0EM`W=F2PtsAsI0DjcjUWA@H<^0ZV)aqRV?hx!5ck^0Vg&F=F>c$FASWn
zTo(6}x)xtQj0atAGQs1lAH-*OlV1`*0{oHDPM#=OT8`Uae9dnouy#2ifZ&@P2tE(2
z^Jx6c_|AZJMGym?0lF~ym1`#AqFq;PDqGJifdjnxHHLg3Ajoxo*KIwqFt?FT2qY<M
zKb*TB?Ktg%8omWK^RfpHEFk#cWv3DCOfswb<;~5Igw=Cv(xzbNf7myeZFquT@@_}0
zQVe)NI2H*I_ua{EGpFTg#ke&6ua@s5gPiJxvjQT##Iog!vj{PpjQ4~kc|WY(*1&j2
z1{g0??#<SjkPs~)1^?#z+y1KK53b(zk|B$(X=rRHZWt@=j{%Gkt*dZW+w8dsuB%>i
z*!=wEW@U=-AD^^d;ZW0tS*LBmbY>?{t|7Cq=#4jR+(@@*(b*Nf3cs`fi{PH>^$k+>
zxi2R6e^^TD+r&z^QtY^c%@6W6L&eTQQh%PpJGM6mg$su1mg2Fx{hAmL&wer4Hag7q
z8{uWYJ@2gQwvJ9x-{g6IirGeb?At1W#kNm@CqU!D+<3K(16OWvq-Ac`_we{jkTIC4
z*fY?@G5(@>C+iS@Gj?SnOMj3HYH{-07U`ELRW5awZv!*SkEUz^g^UVAojTYh`)e&Y
zn7zERE!8e_@hs|$%8QOlQ&AUSWqN?21w>9riHpPZ4J-obvdGRd!G){#5t<6Hb8h)9
zc?65%n(617(%3cs(O9?H8jV2iVZUEzc#MzT7V{Y}Z<I~X#)M!1j2*%F_2bDTQx%IT
zAme6qf7KZWg(;9)z0}1Y8Awfv9U3Mk#Wyem1HqYPzm6B`Y0A|}*Fsrk9sp=kB|RJN
zdD9Y@bD8^+b*}G$BB)W{Zp3;;<3^!6NtQQZ_#lt~sG0f}eRrNfaf;0W^BYhQ4YmDs
zMz?z6m`k!d)tIrUq#lmu+Y}f8?ZFcabGh_{R~XgQ-Izc526tC3qzm4<f3<Ax#M5Kp
zitYT1b1#m_2n*rp<{usOHJelIz?ToyG-fv}aL;0uUA#b>0{#)oh5{%!$e<twDltF^
z3Bas;gplXX`Vm=V2o%c_ncV<tg;w2z6mn|XSNX6lmlQNWG(-&HAWaQUOJgIpwN1~(
zd#BXmV2QA5%NIaU-6OpU^XvR-0m)=L5R;DGoEQX&cKmak`z&2AvN;&N<W}`b^={Eu
zoS@6=bsWi*7ua@=WG8`{(-}1ZWg!bR6jZhd87hECcZtm;p-gV-OulNvz!SJ&I3p8<
zxDE1g0Ib>H288ra32_lDf4K!Um=i`h`y4(Bj?-`F5Ak3p%fgNAcg3K<#;r$2MbY`Y
z=eIQ96$|EG7|B%(N{Pquf~?n;E@D=LzCstWVbt`%L)`1S-vavVFOZ&QCAvN=x)?cY
zt};#oj}B`34#dNkP=<Ydq+xmucNAI!f8-$$h79M9q{<gxB2*~GBodHNb&E@yb5^B<
zU(v&;FX4S1hLMa^KsrmnG%fIQyItMe`1vzkbOn1tz&c|r@DG=D0*ZR5c0f4kH!r!@
zZ{7qYB;4c5nq9lM>RgA2_cL&(pPn9WDRZkgW|<?hR|jwOYHElOLzM<FbIKt*+HvnU
z0f|}UC<rt9-OsM?kd|(WU-a(y{YQ@~+w^LJ>GFt?TdG2M*%^ocY~YV~3CndbxIU0P
z@7}-fujz$bCOIdB3FMj?E%-2uE|7?LM*-$}kU`eCxKH8qqnL=H5S-z>?^aLJKNC(i
z08V|pS;!e7|A1DMC85dp*9|WOY>L5^{6Xa-H3F?{;DN?d_WSeq<<d8j3MZE50yN5y
zy)*+!chv9Zn;kG-PDyKhq%nCLC0!blLi$0|>Y_$Ig-}Wh9blxC(V^j@ckg6mWp5Ox
z;OM?$>VC8=VEUWdzWFW_LoOY&{Y|d5HzW$AEv#4&?P$2QQ!Q`(MYihWUo6FyPM%yu
z!MZ$@9{=pwB2ZzJ$?bOM|A7_$u%#J<p{irf$Sft?Dn)r-bMaKBwE)~M?)v$0Jkfy(
z<m{J$2Zkzz*uC(_@g$^JWn21&dM1ttS3j3MzygjtC1tJCSfLK~odm>sV*WM2;oJ6l
zv^oKID>VRkQvzdRKI%_^-0DNv8OOti4@oKO9JkK<#f#lLPQN%<(~CYCGS=nQaxU}l
z>G5jIimP3XRVU-dnaaC}!Z1la*nd~^&<Q1_Yv8lkK<g{kLdAw5+1!^fVVWF9eCsCX
z-u?A5M>nr>j-xYzY=5cC7U+(!&rBj@=@s}qCJ?bel~7eqHZPW@P+<D_722J3L~xj^
z%G^?&VZ{#uXhEYG!Z`VKIX$y9)ZfkMuqat#$ERo&iwvi4^5g{Oe%ZIz?BHj<CG-Kt
z2N%eMeBPQmX3vvsWj4g!)!6g$LgKb;$HlA020~xz9>2;LwCBlDdy{s$1&yW|Bf62%
z(fL?3j;pAATleCFVza+LOXI_AfWTv!+)GX+USJ{yr7@=x=mGPR>xInPyLazW?i9FU
zj-DB;Ljm*$6bcy$PrJl}S+ILPKAxZ$us5bv<z&qaNYA*=GOWEIp$+r;Y_~2OriXgI
zV#;VS4qj>Xgw@K&9{YLJu3}QW`HGk)Oh`?jT<7~S#O!Dys&Q0p3R6eP-YmNlYd%)F
zaSAmL?M6e9H8VXy$#Bu$d%PjZa227(;ru-!buHHZ?SY>B^&VGre>ljkY#%?7Vn1fF
zLno)cH;qieg95UFn;V_wjZ88e4>y+^L|H?|7_dx|G7yaE(Abq(Str4ya>&i*TSRwL
z>*+E5ygrZ`eIE{avN2@s1BwZ4@E5h*@io&;GZRkGZmlNAfkCJfHHSENs{yVXY=icV
zqIJgnxm0#Ta!Sfs$dAax^1TNS7E(^7nsQ*PPB`~|C2$k)H8{)-NUd6Cnmwc%@bY5A
z6l#Ng`uh5L6MzL=Q_R?)??_x3Guu0@#T|f6a<+X6FWXkJ_UCz*gR9AS4aVV$MS{0}
zy&}f`Vd1_$<6R}n@j4I|RtymoV#t;+k)09Mf^D{o!}G4j72+G9lf>AjX<7?I79@(*
z@KICD^Y!srM!^`!NJo5EES@L|8Jqj5mjmfA_L)2&k1GPBmytCJqKbRP(%*3l(NjQ2
zT|>_pC~XGa;=bOl_I5TE#dh<nxi%26u2I`BEP+EtY3%<esyv|m3$p~hZ{p5Xx*+O{
zU0_TTdIHBQAuS(tg+`O7Ez>nIGVMrb&KvDGWIGioe$_Cs#{Pm5qb#FM$c|IF5B|L)
zM|a|1JfUq2W+@;sqmY0Gi{TTFuijsKadcWb=h-v9B%SNO9_zC{$HHBYg%5P?<)_k0
zf9_*;YL#|1DOoSOc0r>yl!Jq<e!_;dVh0!QW{_b7pMH+aO$o#jNsRyxu?KrgaVEUp
z_^D&zs|W%IJrmsJ0xx>IhZANm1-{8k&rHLAY3@t-@e&sn%Xe{@23qdWDxDzF?zKs;
zdT|!C^rOTe0Y=Tx+p~VS|GL96I4WuxsiQFo0H!1^?aQ*<uK;tOTXm^ktV>}c2w2L+
z-@qrJxF<U%ro0H%fZ4I^xK=N*Mu;c#BuDDMCTc}j1V=<HfsMi&jM0TB84{wJ(o8!d
z*wO36Fy91hVh_daq)vcNV6?fC=@@sa-Cf>o-}WjA|IRq!jKcRTCSl$}X~tp6b@Po2
zsE1KWs&m{vV@1iK)nv+n)Xtb7{FyEdWfZK*daO9ent&AybR0+DCHUdqSj=fd;c^&c
zCBbMg{x}Qr1fsr;=zsQ)D$E0Z9tOW-GzH>1+iY#aA;Y=m8ytf3NdS&Kovw{rUo8Cd
zzBy5Iz#fdu`^bT52OR_l%v}H~Kl+NT0AJUgeDCr<_l7vl`ft4<#Mks;6q+nx$Q>X<
ztSIE0K@xUVt$rCKbxvUK*o<E9bV$h7Udh`|n=@+~u3x{)a=C@wjD>Ej;cR4}hrH77
zXSekq?l)SKw&`*7Vu`bhHg&#?rr#tRmHc6aLh>3<gQ&HJ#!lQuUd}EN8}>hQUc@86
zpMF=(IkC*kGtE6dR;!j!Meo;S>9m=D+P$av;}ucH;!j(OrS5Y&&OneO5XazQ7PMk1
zS`CSFOdcB{e8oXh!^4c1Dby_F7KPeZ1&$PeQ=^a2ePJIlm8o0Wkm=W>9vvOM+&xz+
zVCR>8W~xWWO3>Y`mAw9uS$((jedknH<T#h8FR{6nvM+CWk^sGSpow`eLy}+E!Yr>y
z>DB{N?%5UP<*x_#nJvr;uWAW5fbALiGQYs2FvhZyk)d^9>=ln=m*Py`gB1zLfu8&C
zKv}4VzxCVT4|3evJglzCa7(<&Pi>n_KKsGl=D@F?<G!$g*_{+;*f^6v^^P36HOk~g
z8J?IrI#YEJp&D~vJ6L^ww$!=244ib#g%A((4FVA#rHI}1>{k*$o-m8dhU=LMcXh4i
z|B>SSePi=nqy&ZHyXpViZ+9Op6OI+6uZ)b1MGCE|H|rj-A1wm|WA<y+7Q9Y{O9&KC
zaU$Gr_gDGwE~2NypPT&jUo_y)>hhAiik(HTK9kPG-7a<beXE5?rU1{cvyvC~RCOK2
z7*F8)t|4_TxsMo!Dr_;Ar-6nyyd)xH4{Zj?4LN`Q*{H=5mOoIPKomtg=CCR}Bct|<
zr}OBed-pa56o>!2Tk2A5@=h!;MW%&IwCAtS^KJD1!rz8hEJ|9uX3ZLsy+s(S?wZ6y
zFoZ&#QwBpsGSLINJDxg$k*#tPGyn6a1xyx?sA*X}1eM3<p8r|bSB5(ft)Z;bcv*mo
zmR2ml$b*>kg=>_0NL?|a0Wk4X1x&vo`0`xFFh$piL#kO4c`N`}S0+z_P$WTrVYyS?
zW*OL`9|i<8864Np)QrK_!_UU(=1okKGq3bk0vAlS=|2m3f`@3BVJDOtWyH>U4ZkY%
zZd9zwm5>1qK~M`B^D(7@n&)R+;S&`HN_?$9^z`J**`@>!x)9?5s9Q_OcH!beKh<+3
zw~QpCKxJTnxo(T!H;~v}N5n>oR_DBUaRQXUG6q-JQ`3k{i6jmZ%VtCr2Ehu<5N^>*
z-4N46qkZVQ{YTGn_^6^M4^s>fgu0lBeT^o-=@0`*5Ll|NEj#BA<#u@f;w;>kaG>`W
z%o#n4WZ9F<?g!k?0PAvh)uEC^&(%v72G;@s?OL{wo_((cIc1yf6!7E=Arn$e0OdS>
z0nj~En(>=zNkAYC@w}_FF@|0a`6q%i`Oa#T36t2ONDS(*OWIl*=l)tbE=J+~^?$-c
zMy)jRZZi6Vvwns?#2lWFN`@zmAfApP#;LSH%mf^a!93o5%kAZ{JNfyKJbU(xwGh0j
z3N8~uc;5@%TKjZ9w%plff1Vw~P+P^+utWy#ttdSGB$QXI+Ohii8Coa|8|8K=Dk^&O
zj!jK_wBnUotY|9A$|2-B!ZIC&x9OhZ`3y@LiO#+ir~kPB<;z)WIDI`@Zx5>=r8GRG
zUQ*7n*z;+jxW5kVfMWVN1a<MSNsPSG+ekZhBOBv3Rp{pO>tatQ%3*AegfAx+pTRgo
zR9u{?c>|=E@#wDOYbH#4JMY*`Tg$8nwA$+zp0PT$PM}PfY)U$0y{dwh&oq<Au6&`i
zN@vl$?DZwqolTh=rC9p>-HO}F5ZB2|C9s;h6DEtOP1n<ymfm<J6`+W1VZ*`|8-72I
zjl3M~P%JT^7xX>?d_GH4(3>d0kI*3Y3WOX(8H#{gJ|9{xPQr$z3QmRVHN{|~Kh)cl
zTQiYzAG=}n5sLVAH1FhZ#?-o^#g_w_(lq1NI&dyFw@$mVpq8OZeUiJ`<e(5+IjS@j
zZS6Sd*CK#SDb-yMQ~SNa>*UnE?3cPilUMSENN^@1VO7!JsKHJRlIO68{Ay7sEO4Kb
z_+ygBeN!+)o~Cl*L@*u^VlN4lmLwcuAhIxPe)p1DESpzHDHDd9>F)08gxQA*;{V!a
z>!6L@L04_ouUxY5Rs5=zo5Cfm(=~lykO{DTZG|boUU7?W9>g1y8vd#QFaU{4`cPb~
zW@s2mGQl`t6$aHsxMV;8AVj4V9?O6G-CQ@MOzic7I|Zv8o4$@oTpP}VY_-+mQY_uB
zwHcM6%DES(hwY~+>S{>q>+I~r#bP7kfEC(b26$OC>NArSF=bI?3i+=<n4uA#T9S2Q
z1+a<u@fuoQzla<qUSbH~)l=LxbXeS~UszPJH<jc7lBEToD+=0oc@nf1iGCaDu1aoa
zFzSB<pQcP%QSupzHK{KzFE*|9`5Ckkc*rG(eN|jq9K~%*li)6J2$x<v-g~djH8$+$
ztaLl4*0X5fpJ7&`X)JRKi&~%Lo+|uXkeygu^6)c0I<r?##5#W8-_nD^oVdHTwzVDd
z%7~4Jl$;hySmImdvAviDpoJngPc;2D@gzmroB;xY*N=Ts791%YAnU%f#P`7EHaE_N
z#E%_cfqEO8r<{iJ8;JQPcvJlim+GD!@$OsV19NDG)EX>(yoRHFEecV3m`@?jpWllE
zxR|{iqyj?C=v(iWxZZ+n*C)wr?&T=`H=NaQ5eY?C`{Mk~oB_Yyc1&Rylv*x>6E2K8
zXrWkG55|tzX4}H8kC*DLWnJ^zNZZH+$uuVU1sTmQ%U=~9*!VNmwZ7!|IH=%&OHK2y
z{zcJ!h0TGM9@OTs`&=0eVbY}F&#y)U6n~!0jqnLrPXr}u;cB1)|9uqBes0VhQ3!hT
zyQD+%8||e6E_{5<no!?jZh&Ystn3=EvmQZUa*tQbrsal0++4^HMP{-cE6oI4I7r08
z5gM7LgYR_YXOjTb{}>;-%36q0eh__(G0qwS-u<9tTbCe(NE<vjl6oANX4#H?67bVQ
zJgCW1m>+@KuoSmEOsj2x#6)7$iUj3Af2e$H&D;l+dD_uOXXX%QC_4T;sbt)ZkzH6G
zf@HjqijvYjvVFmT+YtF0>@cbO?a)Hsut;32D8&FN_FZQWy4C^kBL3wn`}SS)hoX(_
zA@G<BLH<M2;3{H2k1rNA#>9m3l^pv|o_v_49ba+&^-&Pmzv}{GO-^Iy&bcbV2}{6;
zn3$N)Iv#Wedw<p6-@mRXdcWeI)!(F85*TxHbPsTyKZTSZo*+r)zApZ2eEY%BithQN
zvJMsKFvxk^|4J-3-=l3{VeJC<{Ebw=!1v!gr1T3|#!_j8t)A^&lq8t3BTf6AK9&0|
zS(lHs5Ae<|&E3t6`5tLXxAc!~nW?{aYMH~<HuVK(3x#g=b)gcD+splyF~3=TK`k3u
z1nM*2a5>UAo;LM*S9K+4+<FXw%ZkO-*iK35EOw_L1h*Jjn!*g#wU}8_>rGSP$i+tm
z0)*WyC2bRT&iQlaB2rSITRN%gP5)Y?r@=X8RmPRC>c%?o8T4&<)H^uePB<$dkACi|
z{R@7(H&!rEQb<7=r*8a5VsR2i&qyXS&Qc|E9|!XmtPnQj!he!S_kUXA{ur3Atys90
z*zl1EN?V8;gC8w+eYrV#r=VaZgbzF^P1$y-nD&arxP}pwcVss(Ia*dus?qq|X?2XX
z9mf_%BEw-5-I?Czk80L0_;w;fwh@4#iG5N3s@wcy_JvhhSRMr{7K7^~CJKK3h$7B?
zZ-QbCg>*c`5+I9FNNSgo3K#GnsRLnQ9st6Wv%(YuO|>{2%v>@fg5X1kr4h7zKe19{
z<}4&d8sQ$5aaz%^ju2s+p1()hZSdK&EI-SVx|QHIQ}FKfMWgFmKMdqdjhm$eo2Upd
zU92leN5E2S2)ke$B({xG*o3b6OacyRp--Pa?b{7&F-}Qa158b^*7<}*0<Jttl5ViA
zX_$xo`jAWM%$7e6i^T7qqzPaB`7L4yTR922<fHbYT6mp-+Lao<zhNAty9yYXgqVm3
zdCa?zBV^1sNFJZR)2r9xg+RTK=YsaY&#$3b6f(N|yolHqIeXRCHiP#)`t%)G7n$Pk
zhhor#<j}x0M;!cxMy&Px;S3iXs8r_`UM7az35X?LnjnEmkXoDT<n;O{9D0p`f|7tU
z+mRlD4wY&mZ$YiFE2{z3|2Io<5;!lC`3Z3C)(r=p0NFnRyy27G3&RDEHn8-|`RTss
zw9mZ6w@<=IGdmeI^Mq&P#%uq14VsdN`5ZonRbNDT(F4)G4UC~>c(v{`lD{ev^%Y4%
z8gbYDW|2OKR7#l4bbzT!;O)TwlW2=%^Ojc;ksCe{4Yn0FeTFKy_-nw@&2TuUn^!=f
zsB@(=a}f47Rd0$V8_E?p)phQ6PHVHy1XK|#xS(C=ABxXwC4<YtC!VW0Jx~y0W1ML~
zkicAEeFbDtCsE=<wP*<OGzlyM<N*pl7)3}sN=+Is_RI+Ek3^h+vIFKB(O~#?@0@Rz
zO7^k#r8t*e?d&$bIKF_2Zm6Yd>C$`3oDj7^zoCE{?50sF@jTyaaS-P=B2>A>R9oBM
zG`)2#>ZWK^2ZX02<u=;EvPukK+MHBT5l)L!i`R~djNEHt_Xl*eEffj=;#CGKfZPDP
zPDcs3T+5gSmK3;wIKd`hbfn77f@S*bEjzKmZu8zsspN0IR~Kdpu&{q{gf>_%wcj=y
z?Z->6qOu7SFnc9n_N+jXML}^*3q_etaz3EtdT@pf;=@v~DTC$8iX9+I?$`*`r6No(
z@v{{c?Q#5zuZlMZ-{#G3O(Ql^ih+{QYaKq?%z6fU>|92`Q8+!Wx!gy;>zj3EK3#lq
zo3fQv@|!hu{Y9-7xRZgHeds*loc5OVEc-`HHI2KE9HDQ#zQ@evttAQt8lq(rJnm%-
zA+1G)R*oiSbMFW&(V(P$6qo*;of<Aj*NdK#a1T6TdhJb!l#ImK<>{gMl=<gk^o?uV
zA)6R&(MR>eWSR)iE-J|t@l7g5zhFpg@ui&{Z4NIEDBjZHE3=muzFahRKgan8QpTRA
z*@SK`y@XndJ|wu(E?b+}z|%r8(Ej7r#K6RqdWK~riM`b_f4QioHHc-bZl7s8{}YJ>
z&bbG&{qYhT4bnLxr3Y1dDL9;0Att~TlXYLx10ym-CJwSW>wX&<LUs3{ZGglXvlenN
zyOTgz2w-JD8mD87oLY+E+G<bz`Kl>T(B_@bG0C6-xAmq=W+d4d57R(^1YsE!&9aAF
z7VY@CgLUWxBq#gw)sa?=axff<6xo<!guJ5)EIxIBO8pb$h6u(gaC&58iwg_OFc5}o
zzS#?TslYq8Z{1n~Dd~eJPp+!A%>#_wXf3C6-*VDaov!LB-ry28xQl5*$g3hSa!z)D
zY}=type7=yYy0lYtk?4idxYtExVaesTxT+cvL^)704GpJ+JYIcNH$g@$zbf#j`pjH
zS?11}OxCWCZ%-VtT!K3d%RRy7AY^WF&Q3}y|6=4kO6Ct?h=cW1&S@h<VC#H+;pcNl
zT6l}Jb2ahIGBJsT0wzXqk%uwC>9$z*zD=&oN&2>a{Nu~{k3tds3pV{%`L;DFgK`RB
z<JP@<YdUwIeM{=M*{9Q7T+wP9Wcq8>=wGLnByXkyJQy^Sx%Hdd#_+QD$qcVgp?LgS
zoYv@Ez0AS?oBB;IH$$JW3fVky$6OuI%6PG`Y4_{8LI!8}WG0c`>vqO`uD9iVFRak7
z#Ox7E>O_%1CW2yf^fc6lkI$^|7m(|-HV53G9bbi4*eoe2xj~mp+Ohs0t|Cx7Q<vGc
z^RR-#L*A>|+9%c2G&EURn*MWS{cjj_!!MXxSNSi*`d{$dW6{e!*8T6)fE<No^J|;#
zf`wVJ5P6&eKdgrBa3@j>|A%$oF6k}vHApv?vT)LI;M<rASi{I5f>F+Fu$Q(-4^A?w
z*iNFfA#*7E*;*J<OY(OJd<yAC5RfEb?g{}?TH5hyJ98&3%7?K=mjV9;=M}?{uQUJp
z94k;MW&dyDjz1Ka&Aqm>01LMAe*_xU1O7WeqiQtQ{0n8HCLqcU@Fsjz_%AV;?zvbk
zL@mWa%=0KbJp2f4(h)Toy7oSCDmMAg(9j^xF&c5msTD@^aEPvx#JSi-`$Nnz0Shxn
z_WH2@KC0L?iP|c}<=b7jne%PgB4*cQ{l)TUF^9*q>(`ZY_gwrjbAS>XGA;7x?p>J~
zh9o+09>bkZ8V|deJYq|-*P}gb-cm!4(W?i83LbTL!TeHb*vz?EmNY$J`fnnL^;g^c
z#O+7TUAr*Q8Ve6wVH^#%=ye1+B+ExPbZ4l{qYEit{Oh_O)pe(2Fb3u~5Ac?Vrd57f
zjO%_~?u~y>zV?)o=>HA8kUl8r$6wgsfdkD40EPl12}4-3Y;qmO95EXcj6rXe(nxbL
zU?{2e7B_L1gHVV<j*2pJz%ba~XxNp7`#prSeys&YVEj`YGclX=59J#WcpyJV%aSrS
zaGUb+@^0O=ONkV6>-tYGkm<tD0_lYBZDPi1?zl^Y6`Z{e6Qwk><>apV3kx*;3Qd9E
zGFM;movly-Bw+%k0s6(3mY)a*L9gMn`PkE~==hNefe+9T8SY<-CWxzFH^mIWOr{}S
z*dkR<pRNhb_^}mh^JGrJz*YKgBu6L#QNVQV(m6b^#ks0&Ao8D+Q;|-+Zo?sSnBYFW
z4D0UgR3tB+3JK9iB-C~)QkwMdk4(U$5PjbfsG7Y(l|!6i9~apRX9w1@U4y+%Iy8Xw
z^)dgZ7qaXq<(uqF{CB`#ZCjjHW|Ce3b5Ve_w8S&l;<o#P3V|E&Q=6z!5fQ&neEHQ+
zapG=4JQ|Q@c^YJIEXj>sL!BV!@A3lUJFj0K(9~Ond(R5Qf2YfG!6iFa+<4c-Y;i#6
z{SOpK1IOl98|PS@^Wy-Q8S_gt%(9=Min?*A4&FsZK-zGX%3vN;0i177PZzX-4}iKu
zm9yy)1`ZL$E`w3un~$q3kcvkOUA{Bx`I_P-^9uw*?Ngw|_90>8R8kiTW1XBr7)2>O
zN`gV&Y}>M>EosHx<&e57ojDUkpyywOn)21F=_D1dOqkqxz`(tJ+am|wA=dF1A6P35
z`s}qUP)P#pLC;M3TlfT#Og%58R|4u=D!nvm7tm%T5O$V@-;uk;_PJRUI#yd)Qk;a4
zg5;l~POiWyi@<Ldd_nxz>{qq(naY_@(&A6SP-4H1F7$XZI5=pYr>(AT^bZ8*>C;cz
z)t#&1PDgfjOCzc2lBbiDvj|~4ker;1TkpkxyuaJ`$j+DVl<L(GLeIb9zs9!@$~x(F
z1pv(<P{iuDU3zSCqgE0DTS_<)T6CC(Dwd#iMbN5eg*nZFZ)r0h8Iu<ORlly4W-Jp{
zh`vcVdmbVmLaXso;UZ=8+8yNOk9Npb%j2D<jH#s%(Zyms<+LU%g(5HlVP<4Z%u#Ul
z>N)o56|EHKSRt2nmrSs?ire%BR-C6$N{mSK8*Dt)Xu`UAl$+5=bhjev)p0Z>5ANn2
zrBTdNMgvyOUyuJ5eo9bEnH>a5$BL4eflxbj1#9aR5{5)Qf%rObSrq5WU7&L@f?FuW
z2pI*XZr2<;KmUH_!;gdKpK8i~{odpa+aKe8M?{yP19U<pj}oJ|B+`(e^za($tcusU
zKMe731O}&dKq{jT_9la)UhE==32XuiHwuFxn8SVor~5cya*AlyNa`aeCfPSvIi?gW
zqP&)l9v6+iy`0j{7SpLuf6W;qks)Z=I=<eKRz-J(WnM6?nO+MSW9%YE4>SeUqB&Pl
zetZy8z{<bGatDcEN6><0tqEaRfdq)v_OD&H&KQ%f*Z`EeY==6ZVQ#9h+xk#!U5-O0
z@;`ziTGwe=-otQ{&D&aEJ57p=ePWbZ;tNG`H2f1!2+e}=cGJN$KXI#4Vqt_nF1dCW
zU0&Q0o6jW2dI;84CqfS0sa&*9GZ387){PtYp+e`f@4E&nCk%u+s3L9YvG<DX7o~xd
zLH9rsF2T8CH?G8NKr#}eIFRq>t!eQmw!V<s9*}Fq4hQj;LSW<-3Ac$M2jA6wDc{m4
z&Z8GjHeEO$u#Dp2q&mDOcdW?l!M%Gyz4mQ?h_^kx3^Y0d?}^!*E@CAHO|sKgKvx(n
zjsZCKP><eOi?uJffkfC0A?E6X5aXJ)Yvrakk7BJYho2Q0sc%5d#M*_Wc<6q><iTq)
zGN={}`%=?~2s20~<L}cqR!RthTrw=oiIv>2j#9GgR7G)lWo0LD43xj+JDtXkfCVm?
zd`v0v@4qXO^hXnjcRoL#ovHr?^PHrvpvtk1!on5PSy!t^J|&mx&>qB{Z|DTNo&0_m
zU7#dSvuvialYgjL@lEh1K?pLTdX5U1IQ)Y5k}Hf}bdocrd$OsLb3z4l&-18&{)s8_
z^dU{&?~1nXhE<f>Jy_ByO{$ujJ33U{p8{h~h{JPDLw{b=&N~f;-<!7^Fvx#=HG?k4
zx55epNP+V51TavmDy?vkGmpvbh#>NA&;Nugw*0`f)ZuyGm_6_;FY6!r`B7i#DL;y%
za$>WGBXO`Ls#70<DB`8AycaI&^Jsxzp(IRhTDEOcpLk5s6+8Ob*_wxq(FkkR_MJPc
zFlJPa9J2@$h>1em<7dj%a$VzQ9tJ&nj?Yf9!)<I_?694ZH(i?%uyi3kYgg`gC;u9Z
zf8AldiQB*rYgV_5p^rM$(FE#%k!E|PhM9@^AK?S#(lsSnhnetO1bB-b_=Ax=mCtuZ
zkEaYbhU2JXV<(;f$!#a%Ni&@}+8A5*G2~ChK|%MYxxtYphQN?7PJ2#$5>_AqqvU_c
zQ%UZv-HgCd5pu>$#n7aor4zc7(#TKQ$vLKa6_@BJ!{=~=yGyO1=<2AB?1AP17tFsW
zcgAt3qwElZwo758v%U-;frF**)rp`LOJGp)8ASsiaHra)VC%oYuBNQYD}(Jy)Dx%{
zG-8j<eg-ZqF`0vrI6+2=Q@4<#45j*3>Np;S+Hd4$W$k;ldq|p_@weRv!7%>*)$Dkt
zWydD(LO$yDZQBgZeX$%-X>KdH8eu7JrAcwlK2?!g6N%-bTG8%@KD&>!cMg-xApjvq
zfMNefnzTv}RS&KlFBNh~5B1(5+aahi<!OMwUZ_S_&E69EQ8`7X<jQH+>PhSQT(Hq@
zytZI*%CB4Bce#U%4bn$M3`)2KG}HQGzDs>5DuU(;m1=4d+=a&MrKl&stwU5F2qcr_
zpu@b*xFRD~9M9|&S>KHDU_D<PJ^ln}!4!1fpD_;k%7g&oUC_bW!doN>NH!V=vew30
z9Hl(plP|1L*14%9VS|+YDOhu4f`dOJ*^s56DA9i%ijk~{Rv1$LiT5ngg_LB2<Z!j#
zPa6rPE~GqIA}j0q3@0PQnv8{=PRBuX+(sI6jS*S$#c)0NXCKkTr~ssnRG?V1sI5iD
zZ78VE(o{NUUOc6NdV3TSKfmui(6xRyKK7c`t0SI2KMpO7xZ`9RS=Ip`8)5W1d@9yL
zuOK>CVl7_Vl2LWgM3s}QPD$sb?>~7GNi0e*VU$C*AUM3eL;d>n@+T$mA|#@ciAzfJ
zn122}28Z>|x7}F(MnnD|BV0)?DEI;9Ll;MOLQ{)OcTU@_^`;QF?1~`}U;n$g9T4B<
z^`Ji{arXooN0&T~(8+Dyg;uqqAi<U3AInFD0wqx!WO&L}!b)GdKKnss_+fBB;yQUd
z0O)2wmUArA0ra}#Xg=3r8uX|`Fgkcm5@#u|xn@Ojfe-C_?V8FU_7b4lBEc;QPljA7
za&v>=L%x$bKGo|Kk0ntw5;YTK1KZf~m$T}(k%<b#(UKT)0*GU9Sr8hJgd#wg!C3r`
z&|o|;I9R5rp|l-8|AjKE0(4d-yBe781GGVuVuo-GVC|Z6bh0sWL)NkJ8_zXL6R@kP
zL{3vgS6n7ZP$s&N@!{@hC<(M+H7u>iM9_J{&ch)_3u3Dea7-dUGuROVvphUGjipcC
zUPYs_XR<F9QiA<7OGHr#z(N|iyM&^{-dGhnLg3<r{8_;uHv=cqJn#e_rzM>)TuYu5
zS|~K4oe2e;_jyU3lmW71Q>{sTni7<2+1O9lH;mxfPjZ~HoozgzjRYU4A7cio6yawo
z@Y@Vkz1aRqE&(qU)~C5i5NRvGY~ZXfeEp;)ipT-PyqrG(@`R%aI!+V5^yMJHT|<y5
zE#@OVnZ37{T?w%3*$Y>QmZX+AOQTPXm>Av4#wePZgLS&olRxhFukzYdTf_<mztW-#
zh)dyh)fdlp2rLUApn`eN1746O?eN*GMD{Na^#g!zlp#DRGuTCiVNO9k0UuXFG)2Q_
z1F$A0GO&`9d~{4b3Q$Rd1dyLyVi=!!Ftcgu7}joDRo6*)hv5(4ETr8<A>ZY&xCm3e
z&h$_3J^qDIGd%!4L|k97$Dx#XVCaLQS~szAJq|F5Gi+A3d)5HcQsgGx^vD5YN$f(p
zGOu6EO!v-I#ybx2!)(|XcRG^3kGM`OXK*Fl;SfGXC&oQhE?w$BUA3B#!3t4iksuCd
z#sX#{$+Vl1?>N}iQh0b<;pPk&O2GTEXxy6B+nzNb6o7<{`DicEZY{eq<(P{{Xc4s(
zW^|PXY5Y_)17y|Yr2<dFg{U}P^#E}nj-z#CENZjgf)@B}%S^nUyKZkC`)}%8Ur+%D
zDx&RR?V5qjB)Zc>G;*KAxYlFL<UsrZu7(BIWNd2iSmc{@!7=(ViC&$;eg&g5`(WUC
zC!jjZ%9)lTQeunrO|?~AFDEbuqy<AU!+}{%&Ffoek?=vBZS>jXT;mU5@T#!SIJaqM
zZd21YhY9<fi1RBX2anr4FjF3#nvQTz%^`5v`w9GxOx;;ev_X`-vqOg}Q_6AoIjOdo
zDkJJowSi!A>MLe%7Tp9WN&32wEd5TnX!A@5p1m{^0HBJCTKa7Uky3XUiDkIh=WPzV
z9nXCA>XoRpB7QqbYIYIHJBu}{r3&+h#>0*fqMkf`dK-1T$jmW>grVb%pjSuCvBzW1
zvuON_cCz7DyBX%*co%dLphJ()$iP50#C=7zic{%!lAMYmbtLRsdZMP-#|rHcC28j@
zo-Omob3h<{U2r_oMD(#Yk#Qobq3<W^WmtNcH05Z4Of*oDxBIlW?Ya(f<xhfez6}u#
z!Q>(7>3|dONpx7no%>AjvIe=c%57(BZX9Utct!jxC!K_|H?ZvR&#E>NF^-M}YbVj2
zktPHc#Glpfu*3#e$xB*D=ta}Pr9;~Ul{w1JNZ=tSp%H^zKeP7dAl`$8Xa3M(zojw-
zM-C;3c@jqwFbTxOE*$ZB2rMne5binlxpE0lkkexzP2|$}YF-aa;xnGFK}<29B!b%^
zj879T7>f>R6@<;3Wk`QU(zA0W8hYiD;Z;`(K~^%v2eInOhmpQ~l1QvpaK*vHjNr&{
z@T`QPlH&4D%y@^`qQCYX@`iaedb4*7`Tk!_Nv*paiyNr^GK5LT2=aZ0D`5nbu!hi>
z5mgZOhH%J9bOM~FuSTar(hxy}6flK64LK;;W)QqAOfDccMYC?@#AM*_?^-Pk@rto2
z#XuIw){fiqVzR^G6S<C4An+}bY+|jfY`6O6WfOw{pi0;yNW1LvQa7682<>TXh8Q`|
z6lb<E%(F*BGMf!KwW{~ZJ@{EDFf!0$^E_I&Ze16`5Gw&?#Gp;WAf>9I1`saDG-SKG
zu*!OqWh@(0m_9;hT)<woTCU_-<hl=HT~(%bG#0?rqq}#8!dky(!t10$x6+PJ$w3b6
zZb8uRwj<-Z0?jRMj(XKUIOhfXGMVd^EVM)uL!`Onh$~uOf5ftG2?I?iIEgY^9CC0d
z0#F$af`B##K^t3JDa1(HVq&;~xs@G|>qE@~Jd6+>hmRgD2efH7)jKn7wnK4!I}5ob
z(H=Db{*E0#LXX-sv0|94R(N6-kg?*S5UweCl-MPq)cY}lTQ(!+BXkBa-FJDr>rxfh
zX`1izO_KDJM(QV+(kwiEm^rCyIn*DA+dj3y+Lv6v^`>b-Cx^#iFDnBGfB+ECel%{M
zco2$#YGbSefJXs1sz-OP)3?qD=pa~;0=zFt?@mC_ln?!E^W11{Hd2!0X+)^kJU%|)
z_2|I^1ArUYQk5Y05ylYU6dLu5g%-Z&ArhJ`BmAvo>S!t9tCj`gRH0T<_iqw_F96d7
z_251gliU;EihrO~&*)C6gSI6WPp$FKZ|}ze3g_2xf;L8*o=b|GV}9ZtANb?ZCx12^
zG4lz7!CnN{bf5bNaJm3Xp|TIhDm0c9vITn@@gHR3lsHAO4m4Cl0|7IdfEE?R<Keig
zLZWPKq`smT>BMAhIUr2m;kU2z$a;Wi#RFvjjU&f_JGVB+!7ijOz*M{Tk+yNsSo-Uq
zO^5Z`I!7jEL(p-8HEeW%jAme5m*l>e`G4&=3W+VvvdLjY#Ewhp=<KC*wvGu6ef{8^
z_N6y#yiCi0v?|laAnWo0f%;(ekUkn=lT$-AXj8)qzV70Cg1y%yF-0HRxK)lbm=39l
znqZ##2nny@W?o+5(LDt7xe7zlL};v-;+m2Sm0c&|Vq-<(5vIgYC%+r@i4i~s*<@%b
zb}wdPFW2>@Tfp!bqoR0m9Hy7idPau)uJz+zEz&>YK01`VUeY#c+xs0@*VRX`IXnRi
zd;tS3r`6P|Vn#+F)x4M#cE0eDNcFI#Nb)yz<DO!^M>DGIe^e2Xm3lbuWn68qoRM(5
z8Q^o|?GNvUlwo~CL5=RhIk48Cig=_`OHo68O6!KQMg*~71bLXNwuru*w*%|?Nm<!9
zr#bB4CU23hsXwI;P)^_KDTKq3VPSGa?xBeKTmkYXGAaYO5ca-N@Zn0bt=n@IPbM!F
z0QpHgk%_~XHj@Xy5fdI!*rM<@1XjbuoFFv=LAk<Un+T|W0*?c3Ocb^GJdfb8^_}66
zL*u0a4$_2@afNIQwf>x#!vB|Hg9=6YphF-rQzTbMSVP@9Tf;!@+5xdV*<`@qh?+IV
zK+;cUEWG>+5L+7wqxEP6%At~+s~gJ+DFen69WL3pNUrn!ruAjQ8j~!~aYkjcoq$x`
z<DD7|m#)COmd8wqw#}Y&-nBUEmr>Wv>a_rIjlQ%c4FLuoqVR-lla|&&ohJS1yTI~H
zOng9ThP?E|+Czp9ACo;55*#@a5{%oA2&z7t?B|)pkf|F(RTH!pVZ4_y{ikn*a4I!_
z>(x4XPN;t!R10b_XS417$4{R`Av<blcZ3eEF3LoaOeG--I&<55dz|=BQ6|dQ9WM|`
zlX@E&K@-`T{%z$RHbyxUNIUcn?;h!{TbD2ikzLDWDd@sgG9lCGdsjxB0<$E9PeAGX
z7}b?h_x|2QcD9!qr%#ic{V{k35e&?&muLzPa1@tVmYh@OH9Sdt3#2YwKGes|CX~mx
zkY1@P;Oh4$a);iEonP2ngC}(=y<GZ&@r=gavUJh!xaOjKPXJ<HaqTKjDn<{}@Zj91
z00<5XBsk>eRHV+<0>YlcAXaYG;U>&x5?oPamyS7vMDbya=bZQXetKpM^FG$91@JI^
z#Ona1q0cToH>ej^aXuRbd}IuT7>%_0op8Rsn4IE;r#S<cU<jT9Mpz;<zR`|+>a_p#
z7UQ3*l6QdEg9RGR(rEg8zEE&VI<5+@pKYF|1M&Xmqs|QJ%shh~V1za7@O>ohQh34B
zDYUd={eHwdRXj6!2O@~zTC&FBPMgXd?&0J85OL@0Xz>xzXV+9+zK5;7ApH1-^~TKY
z)ei-^7a2A0H~JiQLyP-Q7vac{o|?%^mL>nVz<N+c<q_?~19erS<DY|lZ@4}1+|wI8
z@}&I9=L;MBo{UU6%3Rm?zwAHo@yU}nW}hbS<lDja*B==}L<x%Rey>CUTQB-a4yhjb
zix*?MMF40F7I%*mB_aKSZk{~sZPZfCy5MJadQVslWq<F<8f@*T^2~(!$rh?<)v!P2
zD|kDw26O&4SBO(6eTHw{<lwl+{<9uT@b40wtgIV5%-A}~2Fuf-_&fuBCv*>nSf7_I
zS#sRKAc8btK#Gry4<y<uCR@Q1eJjW$7+ar!JQDtrl2@ax5g)?AdFR%x2ZLga>)+W(
zvbAnweCwtG;M2lZL2n=prYt~(snkogrr6q<@2p?{2!mw>hBeGzrF?ySo(@Z|1UKE?
zH%dfINUNom;x{yVswzf&G6zb%!*%!%7#bO!03V257_nd%d<#oTj#Eo9il)_BOcE!l
z7MT)nW#%O*dEvhW-C{k*{I+KMp+nK*_J6XD%9ny{+2DWw;X^*E(Z!44eZ3FWGM`I0
zMcQ(-um(WC#GR(I@+$)Tzr{FxO-n5BD>Bs3@C}_VE|ht@tO56H&25L7>Fg%G+id&3
z$jHeUC7ik_a(VIe(D3kKTK9~>Z!y*{SW7cbtgCMBv@2@3+EG{*|L`S-vSltLo(2qM
zWMFVyUq8Iyd+F$oiLrrjjqb(2CN-ss&h4g_J{R?|s4_5lQ7QKO2BY(#p^nm#T*vBi
zZkeZIjU^K&Sn3)Cmp3cO$r~*6yv?@Wc}Q!Gsl*{^$4T?rPpA6~l42tw*k0HdfDF*e
z3_8QUBTK}^P*1i~-r|aOR#1BSY5a%x`*Wq>BZpcG*VV}x!<($3p&`GsX>`Xx`P&<R
zoj>s7^6V09?Au&p-)-nDUh}o!jv8!SdE2DD&CJYtujFj09nMzdsYi4`8R9%vZ`kmo
zRC3f4?qAeW)c;TY^~&Y_0pV$7qO<$mq%B7DBDOr<4wMpcOxCN}p0P4?_VlDYT;k#B
z$=-h{?T?*}<}=d{)DxF3C4e>#eD_X%(c;B*s`Trlvm4IaD>cX1yG75>z&b1L5gldk
zet4&}-Q>mQsRkKT*UHRX(ztq|(r3=16D+7z-?0`89%-L2PM2}%t6P&>ChdWb4@h#m
z;TS2WX~eqN*=1syLXfJSc)_cC6v7xjDiD{>_V(w-Bb^oeup1Z8x`6Vh+XvU4qmjwx
z6k0MopAG#0M5!k%EMDZ7G?mr+tuqr+mHdN$xiZwFG1Jg;Z=pisIQ@Kl7t6egKH$QS
zQ%%*??XCB2#lZYT_Ta&GfFxkY5-Zw%bas{k(z!Tf#c|_EPm0K^2D~~tWs=o08LnPH
z+$%Lsdwz}+=sId?nH2lI4<WGSB_+BOhErIvlAvfD8XPnLzU3q3kP)kO^yn>glNDuU
zA#fp#diG2fmw4?>SyX81SvCn}#%}KJ(SSuu1J<<RIiKo`o}Ql4h}X_O0k#`k`}CN$
zME|6e-SAN`+vDRy(V^1(R|>)7`S}S@d2;^rf7x)gpW*8seQZ>=)061}+-AncWf(WI
zgw*xSkeU6XtJ|B0n&S0lcf`Dz8wib%r-1^4ez&Xj^Q{f{--n{fz=<aNDds4x+ctpL
zf)sY>R2^Jl>kfYcNxjcF0oO<qF2X;qd^Ae7eJ1+zIQ*|-;YW(gQhV5b@Vuz66{HH8
zUy(eb<lvC4onvpfZui@_Z?}WULNQ`#Lrlavus{%q2@9g%?QVn&&DeAK+c+YQDhkbN
z-S(awqW{I|XO4DK!%Y|>uy^n2Bae2#zU5)Q1uKpcMQUc<luo*ZEG-EfT<S#o%{6nN
zZ(jJD*RKt*Y+`Ug70-35`<~#ldU`|sUk_oW-YO-fy>H(>&p-cEI(F<fjxG{F&TV-O
z!*<(z)#!>iuY~Qw+qS(A7d;1e5~4&xT>u}^Ff41ZP$t(OV~|nEB|UWt`!uX)MMOnA
zu{si?|KrE+!We_Jmk9cJQgk7_igC%360n37_4P4$`f9)HV#o?cGNnL1A?ypsbpO39
zt3Oao+xCCCf!&R$9&TK}Zh(CiL#y|2V#K2KE?v=<(~yyI?rF@9hM@^wco74`_RX8+
z0KZ`EDuG8{eNQG*XAx$ugm{Wvrj_m@+R-6b<|Js&gzzrM18xNqIb><Pugibwgfn3P
z<lJ_&FQ`D3hkm9I_zggkXSj2X@aCKy_vhz>Mzb0lwXsNUlaSDaIYdgsj}|RRC-F3v
z;AbDN(p`f4m`o9ynZ--lj|S$+6t7kbJUFLY=(~zjy<JdH)z~;1x8nEi78xf|bC?iE
z!l7ed+VV+PP#g}UefwZ^HF7GAKfz^gC~5RhyeWY!5afibI6RCzxPa5Ks!&*?COrb1
z-T4I(H}hfP**hA|bkna@n?jNPTg>YC_juFf-^z*6zlX*9{uWF&hyOLspQrfus7=8C
c!V6C?VBeXZT$Cq5pm7RS_SnI={kksy2k*h{SO5S3

literal 72861
zcmdqJ1yt5syFH2>V2dCM7@*QfDM-0h6i`Y!4MOTgDQQgHCW3@CDxFG7tEedTN=t(X
zNQ0F0olDu@Ip^Ln?)aZ^zjNyydk<dljrCi<wVr3r`OIhCRZ=*)ZY|SV8XB5)vZs!#
z(9o=KprKiIVf9M<rP1%%Fn+AOAb;{We&R88EXN%`)?7ZNWkW;5e24tM#Itk6h=yht
zjqLHGst&>Z&CV`cYvvY4CXH>_zwg`hZ1vGMI}Y5~wUvIkvh;x)^Bd`vId(<uQF*)e
zfVz%q($X50tOKfC;d@qZQ<7eh{<rSdS1Nmzq_ftpxpk{aq&}pTb!yP|P(52vnTL^g
z-RQ`tj)SSr<pF}uUHzR;1iQb|74k3tJv17cm%%TUG!~!JY-C)TyZHQ^@^XhIf1ba2
zzIu4+pQqPOY-(Gv_=@{`-q0>S-FD&{!{Sr!do+BDPc^qL(O-P}^1y%dgHJiljug>v
z-yZwv(<#@VpZ7mYT7PcMiWMu23+_I6;B%hQC@Ni!HC0X`aq!EtV@`uv-PNxyo~%jK
zsdFj2c=6&fJ>lg?4@`R%6ww)r#TOVD8X6uD5mEQ@@|tdJo!{2mTYbRee2isd#=Qp*
zsx32{@fRAJYueXn_)aJ1O$2JZjQVb%s_Mg=|LekdZ;kwueP=2&TitXh(nWH?3ejt6
zY1K3}H7}O0dE2eXYTESrmD^}g>!s<jp6T{GtbgfsnspBzx_$e0XH@E+F<QL6vBIn}
z;_m!dw3KOMhGp^R&m%KpaS4JZ<qqQ&PoFY&c6YBDXFR~Ob?#H^#g&2~HLZMZlR2#%
zhYo4HdiBcb$Fn<}zK5Q=meiT_-P|Cl*<;<}GFqn6+2lIeELk-_8n!St-7jh1uNnDh
z{QVZir&B?Ptn_>HN{mxY%Y#KZxw)%Pvbsh*+;K>K+66a+^Cqs7*T1Cir2S{9JB82o
zo_utvIooc!gLNS$!?LlrH$FLu{wTNf&t%V?k}jI&wFwnZ6eVN*cy!|A{dvV)eqD}<
zUmwiiHal|iA>+Ys!OT`4?$PVJ3Q0*B^wlLxnG~%m*JyQ}48a@r$vRDS`qOXPq#Qf@
zwqGY-Qm55r^h{@0mwH@qcbI#=s_2OmCnT#T1{yV*bFLne${EV;<1M&3cErB_i#%VR
zAxp>HWb5SAw4VFixLIp{9-HZ>$Gfe?LVU$oal?vty}8d>pXZ#Zona9>RIngft@g_2
z*|9r;d!^>blihD;i^a$oxQyHmJY<y=<~Geytrlzd!=yWm<80K^#yqF-%J#xLowi~|
zj2?7_j|<yZ_m1ehjC`=}qp4OO+?0cv&+ZO&<_uZT9ZTFGHTz{KZDw+)t|iZzOKtw!
zhx=u3`n$@4(j7*=tsULEb!&`OYkt@KSw)G++C&}yfcZ#&eQ&n8*-@&oG&2oNxY)+F
z+lm^xS8h+;Y@F-1&hiNgiVrz*HBKX0U%$tB?1ysKfi+wXn5?qV+)h88xH$*Rj9-4@
z7Nbe8;NYE>&Dm;rxk#1R&h^bseTmjty1NsuTng!v+_$2Z`j;}b!SJ&;d)LIf+q5+?
z%6o6$R-<Zoxz0?Ow&uHfN4$Q0xPHK1wi0*5cJ|kZndrWIx1Y1t_+4CCc&OFo1vY}L
zcc^1mfShMbVtIZ|ijn-N#QBCaQ@8G!nbrjg#h>Bwxb52&43{dNpXi#$j`Q{MQl^9!
zu{f8C7a5lY_9(hfpUvvA${mprw)m>#E#x$INoHgz%{8-Q*BB(Hrr%no)^FXi<%Ni4
z!;iuZQq?iaFG{-~F&~LK6C@H+$h7pCnmTLj+2}`Nwm-tDk~60#Tipw$nlRJjo&E-)
zC7esUeVdwelQ(6rV-kv~?Z}&-?(3TPQSky_#&6Rq_=T=oL{VxkEla}i(_^{r<nnyG
z5A+&OM~5hl8D+^?S3(q`jj5qLvSt;}Z`YYvomjb!$#DKy#><yVlg(ER0!$BCwIoc9
zb_dO1sVh4;IAnF+xqZ7QHagUsE#&Z(ci#6$5DCq(*sfu`Wn7=qamgENR~|0-YLTH5
z@13lhC2%}_$zRFg;cuFfa2XaNI_b>uF)^q33T9KXq#TCNtz(sJY6=sx<GiXEu0D;6
z8ml<TD(fv~-yd_IH#<gUih82e>ATm-(gDPooOfe7nG`j9`wTWy+$~=wFN@UrvB8|7
zz*dvGM4j%@R51jGx#@Ai$uReMN4+Z_=-rq*l5z$GGQ*q)MGN|nhLpB1ci8mu$B#>P
zJ(VAtTC?rUSDP;jcJHlC>=RZi)G%<Rf7d|staJNVY<XLfs(592p7hy5k9BtSM*ckw
z=E-Un76}pGylk<J_0nsX9A?cMEkDvV@yTm1*YE9Mo}8yHD=X`LZ`Bsnt^D(S1`B4C
zR>$rTUrGI&E7y%7f&|WBZo^ViQgSOJqM`z;4(Vc;Oj2&St(^w86(`K<Qz9e2nR3r=
z_oc&VwU#?5v!4kRI+&>#BG!2|U&49fQe}i}Z+&Vs@9VauAKt(Jky652b!>w~grekB
zgv#htwl1&h$Oi_dBlZbo79%3quwOVtMYXV)YY-Qs9Y?!*idfybM^C=%@RXwPepIa(
zu({4c?Xe9k`c)(~e_paB-CSez3bnvIDJ!Z;tpDq)V^s0c2idkg&u`sY{^8@t-njUr
zN-Xwtr*Shx=$SdDiT?U3@uZnM0VSQ4`0Rv}ERM&^f(~h%KK(#NMTN|kDJF4A*?#A?
zH%rQ%9z2GdRF&*D&NXV+_x05anMXTg)#BBsT$xvlGQ}zQ>ssH<3JDF>?{zdtc2!pP
z5?xp9tDztJ^{eIy85y&gi2);){a=%dUR^8_GOc9OyV`7b@8Lr=YwMKh@xJIRo9^Dy
z06||)`8Zux8`|$qv1U@V5uwPD+UaJ#9_yLo5I|KA9z2-cc7wJ$UW4yUh?v@)^~^ux
zclI=mpKw<jZ>p@SDjSV8D9E33P*8Y8ow)4zE<R2x)i|K>V$mbtGUF%Bl)4w5l4g?n
z*0)?8i+iKv)e|dUo-g$A_I{46C2ZBAi`-G|K0nGD*4ba5dXmgvL#9=7wp|}5ZpGZp
zWL<Af{4%qmxHQG{=bvF<Mxk}sw_M_(n8C!%7PGFbxrs(sx1^Poo)K}bGRvJx<Ax`n
zcAqV9>-5zq9iSlWiMhX=@#8yx{=Cz-yZhN>i#%ED2AgwAP6s`C@*+~+Uyjo)r1^S#
zF_War>xOjm{jm;dgI4Y{I-^+#3Dte0hGl`mUAcwxKe;`Rw9wE<r}JN15VUF$Kjyvr
z^Chf81IKLp0kf{2rYxJ=J)S#7FWB~0e=a>+Yw$wm;RC%Kdo|6LeAk%=`_2TaYKG1X
zHD7HV*D5CgOlXIQMT}nuJw5$YNOFS60ZvW<KW?oHLT1%5?`DxaKE|oVbGocsSICd)
zFz#whH}}8t?fsgLdt6BeGG~$Ub_4_jxcR#O8b1HRrn}rN%o*1hV6<X}Dei&v^eKN{
zy;AWy19#WhZu$I)RU25iQ(X(Dd*fB6Zq7Nq*5&Q^z+k|gneg%@|HYa(H5q;V(7Fy@
z|M*htxq*uw%ISTPadQa*<3e<Wnph5-n3?t3udLj_V)6a^cU4V&yU7p5t3PIih&!gJ
z40!qas&zV<7#lnJPK{Eff~W&6d5wKy<y7iqe5v<<^^Y&RJHFlL<DJy~=*em|vF1+U
zdAjWa5lv&vN9=`CQd8$7sprzDRH+4vTeoiqnARof=?or>J{@o&DiPT&U_8-6YVAjp
zTff1Wdx@CA^f+RD>Ce4;_7uBPCnCkB{mwhMXS5)Ec${bah`VMeDS}B97|ln}F~;Q8
zZpS~QnoxPwLZ!q#IX-I^xaE0;gjl{WDhl$%HY*(ZDUNMl#{B|ubBQm4wGxZW@Sby1
zQ&ZDOz-6vfoeI~fpCx=XudiIR#65qPf*buD`(6gHz%;;AKtP}xA(CY4d5!F~<>MnR
zTCXnLMxKbk0#|)1vVZ?cY~@ky-3_ce4pCG`yUKk1{M0Ggn1L8zBKk)H$d*qCUL--u
zH|`GK+kB5W9SS8$gLMi}M2|9^ZeG`m7{-<A`f&5!&bW?oMl9H@U8l8ldHu<L7PaY8
zb!aMH+cmDzyiXxG#%*qTN?3ayo1_v!K`XX``gZWXuX1y@dWd*8HFx%B3Aq}Zg<`H`
zp_7|)ba@l8kt;i`zP>!_Z{U`-o>fwpk`1KuW4zA5zpAI&%58MV+}w~m-=R4Gl$vNo
z)`H%R2@?dq*73}cKsC})<m#8|I%A*QSSd9(c9y{D<Y~VmIaf)>zv`0<<|cG(X1ao`
zlEzdyYML{}g-t7uBa@`FnGQB(0cDN_P>Ovxyd(bpd$rv_Lwa$MOHZVK>D-cKD}RvW
z6m1Tana<)qJ94c!AHy#j03!8slmsHZz6ZHgV!ZmSzLYp7UDddu@Xm&KYzpIP1a=<X
z*Gff?n9m|YVy>*Mt;eRi!{V_ljPqF}oO~RQbbbH)q|CAH+qZ9N4kH(sfmzqzImYWR
zkN+GU9mSl+VkD=&Z<(8)EYJuMvs)_J8plGVWR~#LZTEQg_U5V}PphWa6)sJq$+<e4
zbpRzZTb$&v;Z)t+^6`cD?%hL3;7HWTRIqGFJ6MI8Z3;eA&RVcAH{=@<l8D(f@A&wz
zxVTuLq_x1k0Az$kaNugIYcz)Ft5th_*($l_rPJS^D01@foWX#A-2h?5oF@_{2Aku_
zmjU}uYN^}l9;^Ax|3D>Ed~%>Mvq^l*zSBUZUjQWI#{25}5bW{JF5&j=yOJK&5nx;g
zv{yDqK$XG5w7<2DO<A9FUu|OVmuENG0y4j>l;=<KKR1#3GXX>A%N@Rv)e2~ssFnJ$
zpAQpcYHFH2+2UL#B(*S`>NGhxFuC;j+y48{#4^8sHyllubo?1H<$(Ee$vCO2tLxi0
zq&105<RoDNFalKA(sXsz9nOxs`$Ltm%qg$iSCTE*&q_93UBP_heZKs!r)NIx^}O`{
z?@ij+u@^309RIk(>VSlVo<j6l{D)*ziL0=RTEM>J3Z_bat!ufqWLarr5iKpPT?tR7
zPhcfG7ni(*(-{Ax2{m+JJb!b{IX4;26EV~2Y~<UT><c_KWb7sry+1zOu|M`#_H2JD
zRZhbF`=?C<O<8BX$A$|xa0v*c6c_E3a7q(3ps1_+W$g-KOVrP6Fu&4X{I{p)r1tCp
zGLl;S0pteRZsTzNgg0T0RNA#`AK<R+xY~5(PMxL2vXyiPQg!`HjG8VNt}|}vOD<^n
zR940#m{-*!w33eTTokLAZ4A|xWb}ZpoT2>qrq6zDR7=0N;w|I~{l>9kXF`TRqYmPB
zskU4CDnwT?iaWe?d?2+jMeU55%ym`u9sxP6y(|`D6vcY@a(F<7Vwj|46+-<Bz)s_A
z?1T=iIjax*wPdtvuB=n@lX7K~l4|`m(P;Hhhm!T7PdM+pxBP?W&!4OGAZ6q^Px4;9
zx3(}Qw63uIG9!qrVAWV(9o59OxzkbKV6Y(Wbj8Nfz7IT)-MXmG*9+VEy`MZOv&GKk
znj8;1ay6;0Zw!3aFCar~`ht;acb1W%;nN=6#duu}1EjBRwXiMw6@27ufOV3Ekd~8Q
zHhB;H{PDum&oM9T@RjGPt(U&Oe0BwUC#*-0*S`WGM{ocTPSsc<F5Y!5W_TNq_OD#_
zmL6NDGey-ePI|7Dx;fi(^6lWLdcgDDTjv_eMs3c4*7z3d=((2gyC_ziWAs3_GLmeG
z*GN{G0(~%+91>lj9DY{l^#HJ<Dr=~qi9%!vM=Yq1u_LSd>=oaVWi&Ly$FDK$qw;-K
z8JV>Rb!RW=cUpO4=lYWYo%2{A`bMFmHc{`gzjt*xmGM0F_t)Tj*zKunK-KV&lB&Gn
zm@B<3*O#OlmKR5FuI!8&pB)JZ4%VeOGkKivZ!IWz_ok&h<Vap+e^ZuVn@wzzc}&XE
zfxY%Q&0kYZJgEW_2F~u(L@|9&0N3{}ykcV6@1`z{j*jMav2*u{U5=0OTrui&B|eE}
z2x~a6*9kauZOK4$PG&&<*=Pl$sQ5?un%ip}DcyVC%v7IM3@G{mNE*-+C~R&V6(nk7
ze7n;rLmr@;b9Vpf&r|l`GP)EeYF~kVo)g|&KEYuw+2TDqI4!7{A~kp5t7{AAk`|>g
z^Gt-TRXfimB;^}18m)3zS2)b1ba{Hrbo2^Vxf`GPm+<R#=BhO`$>$km0Q+(q-h@%>
z?=>Mw8#`L%PZ|H2*Y{i39XJbQS7#tg);_|ze4=hvWnV_B_clI#3(7+K26rVF7nj>b
zkM7>B_<PgdQrAfyhfoSWz-FdK!(e<Sqgy(puR~1@0z^%MmZ0p1cqN9dTYvc?Bwy*w
zh-Qn7h;SI_{{G!ZZWO5}uo28)EKuZmN?adPT-?3szuD3)8`YgB`YRA7wa+^uZ%p<z
zA-g)v3}ogNCtMPH5)*SkVzSAGo~6#<ZLWS?qc^*J>A=iTfdL_t{GQzd#fbR_yKT7@
zUt*mH$J@lO2bBnvaL&k*GA?~8Q03I3FKJZlBbOH@HS&JT+6^1{4n6D^T6*{H-QMb0
z&|ZmFRsaaOGhS`#Ap;$lZg5HGvYeTbBGy$#OzS>tyGlO&t0K8syl&&EQ>TWHv}X0{
z<cm*yz1TH@VOUYzF;qE4MSs=V0JZw5TP3O1oy96uldq%i$J_%u{M5v2o@5TWLwZx&
zi8t$a9uBXG*U)%P^J#yW%LU5hU~}WpPl@gw<LQi_1*zf}DW2N}Wk5>mkQCE_<IUFa
z2lsXOMu&$>BR5n%J$SJ?Ql3E%91Mv~#n3RKu62HHrc8Xk{8%3~*990<PC;QJPEi&>
zM<|ok?brE&M|ys}*&cDnR8+iy#-dEZT-A?U9jpd8wOrZ2Rhep{SWu}})YqQ%M)`!z
zikvAO1NY^lPO%ioP$HQ_`7@M)pJ`?_#pVUiS7b-DjejUUtkJE`EMnDSQT~KiHnZ7Y
zC%|+lcT~Y<=Kb9*(;&LDl8>YYzUf=Yaq3@7d){^y{Ho4PYk@y*aDqdWHQB^~Ad4GJ
zx6)O@Hbh}DAEM4HD?hHUA`{!>(DCrzqep(Kx!Z0u0@RmTQm3Ng$(@oc2|`rMuxizh
zOnLGAd8wuQwo{NnW9XLV4)+jLp8o3$*7AB5@tC_?_6PPr3_1}R73HVn*ZrIYI!P*G
zAN`IU@t{5+q`>>dv!iqhPP~uDsuZPsIVTBS#QbdCv4bo2aN8_4YfpAx(%HZMy5a5p
zI~AE%MV&Ev<PrD4##P*auJB8)<LFja)@1Bd)7k{BX<%$y5CqYkkE~DnK<6oV)IJo$
zLfvG+e)0#SM|-+<W_NGJ^%w*gPM7gbh5Q7SxK8&(|CT=y3*{bi0ycXY^xT+p!t3dW
z$937_#0#ctl4s>Kyv`Z$0bS6|bxSQAoSa+NLL?4cH2>sW7R${F2Cfd>P#wFc!sdQi
z%?Pg6Co>LR`XY@aD?GU{ky$Y1y3<{z)S37F_w6z9_iSn;0nXI!Z{x{j$$?rm_N&8F
z<9SABD(**yO>?q@V@rT?t<)wLQ4QA;|KZ`w51EAJywk1@=?}CP7=WTW&5hTw)2}K8
zh0=_?_!>COc_^=rF5iBzNy}4mI%dkHz-?}Jp11S9Nq7r$8U&5i+i;gY*KxjWZ*P~A
zm92=7eUfHe#xy#zf_9rjqCo%WyrmgIh3y2300{Ypg(c6<x`^&vKS~um+#@RRI>Bo_
zaD<YKj0Z%pC`s38hngdTf@ep&sT!G-X4PbU2?VZ`%H(4)o*I?dM=z?Yt2yW1#GK-%
z*l<r>OykTPQ=b&x8Y8Vy$?GY_bxotFPdOz|?$JK(``wo!;#L#bE?1il!s^zYH~fwk
z%dX<G(V8xvqWQ!A-P<g*w6q8>&l+04+P7#_WE7jHc}UsY*V6x7dPkO77$zxM=QF$M
z*O%vy=CLGJci$Y)oitbct%*>BMLRS?ZR#_N1&H7^Q+BAe8uEjM+j`*ICu*FHRgG2!
ziNJ{R-u?DDetZT=+XaoEo_)6Sh<&N~<6}m1pgvt0QdRMQ+Nvv;=r51BI@I!8Zkj_z
zo1zO3xz8$~tgOt$f9{%kvVP*bcYhHOO@v><q=|I+K}u=xb;tU=pT%5$M?xEkH202{
z@9B(QwrvGi_c(ZC9~1!KT3}TD7qZFu)4k!$1p;yz&i3~9Uy9=f5R(sR8H1)8Ox+mw
z^f;%_SCeR{$F-%j^wTH)Os>F=!&?(vDC`T*YBQ}`RnFG>%sLOhT~#&)pomp+xUMG2
z2g~lse#MEvwSRfDIJ8|4FW+t!DQWP;;ZdpNm2bBU9Lw+I69FsWZBKxp2?Tf9E}PCX
z49eU0D~47R7&cfi)fJSDn*+|?InH!COj57aeZf__XgGM8sOHr-n4Z@p#v<yUZ@FNP
zY&Zw*#^d|ZIMuOiVG=UZbZ%nab1CYH3&mTuZHtn5$P|m2)P8;W+0UOpg)V-i8=WGW
z=#Vm3cjHKlL&rKB=P%($2{okT42TF*nlzycpnSkJ{$dKC^Qfr3QN4voau(BMfBo6W
zl=4nt+x+-Pb%pr8<~;*LJL5omXd6UV^dXpv1eNvKPcB=v{+BPc)7r6Fe@N7O(B*um
zjWZZ$-h>{nMl6T9+`MnF)Vzzk=V69{RLe$@<W2VmKeXc;Yk;o8&qx`P`O<}u)HMM`
zyG<i>^qCb#aONrhQI!#?Wf_!aPFW^#hs#Ry&kPwo=35tL+`D4hz_J|53L8;jkr?}O
ztZN=3C5w{5R|pzede%%^k(%NNfkRLvMUbv}gu?-w@2yy-78LjSsqXFw3T4x#O+>51
zS}~DSuQ?%b!&Th9yLQxNVBhJdO6{l0OG{5DE9-P?V>6Zx+@@tvk4;e0Ki2)C*Fl1C
z3!53}#$#NH{3pd%jyjF7YuaeaeYijWn#Ul&DOsGIA${~}XopSNz3vS61-ChbBQ;(V
zuyp-Qr7+L9R9BQiUg%im)ik+}*Jz}hR_(J%!kwRK#gHtF;&r2X2S*Q-3BKv0UVSzi
zYqgG%KfL-Pn16yw0EL!;SBQb>Aqqv6k@E7cMbjk)^Us0BWj`$Fa%}&VbPAlJF1P3b
zsf)dpxyGO-fC7ol*5tzWVeOi)WqErtRd+t6t2O)LTLFo|rm?kgbNr~o;Oz#s1*_EY
zooo83x`{+5Ht1CMU&Z3^rfD7#x<~j%LQ44^^B*oM%*jQ7FBd5gM$_Mk-Ul@r2gy;N
zdQAbEX<FK2GC#btejJ+Z)VQaQNvPw;CX~c(w$k#1n5&B)qPCp_h5LT_@GQ&cPy|JA
zbHN2f3s;3ceXW`rNl;{>I76ppqi^+C_`{b}po+wbcK<5jD@Xu`RT~##Q&S8(IVH{@
zHG^EoHCt3SRh<d8Py+?kMv9kLff@8iB|v2)L}9PY1OCZYw;4;l%WqdiR+2S=>QL8w
zDpfKbjAYt%Cso=J+E%Xq4y>DVq=Iwz(W8k#h6(8Hob-%lRZ$Nexs08hvMB{~_5}>N
zs5iZ&t`GuU5W4d1c!66}S7&DrcJrahWm&F=zZRJ{q{U{<VXggATSW~YA<8tRVciaq
z<-)(V{SArdV|+P?T%Fh6lS?_{#gcY&VS{x<1yKYvWT<6jH2~A{&BlGkj2=Xtt%_D$
z<*+i6AadG>uqmR;p+XayWl&MvYn3<dr*ZC$V4HpZtA;Gm5CsT}B~7e?#-}5f?nm@=
zf~H?K2gPN%UE0-`Y8o@AQ7p*a5e^|oe=p-%6%`^*2o8|V<KtCcQ_-!QPs{sSnuCMG
z``!YFL5q+=_r=zR*H>O_mo6_Zj{A8b8aD^JjG$EC^u$2?k-^t5O2;5b)`TCuSvm*I
z=FH=y%|gww6fZ&GBKa{UrMg;mRNfuB#Wrruw(;CD<EmAxF6Z1f8GwH?L9T?z^rP+V
zO?@c^=Jj_TK?B<$`AZs*S``AuxTpJUVfPgShxQfh`}do-y}3?UyW3PJgN=gFr2hic
znmFKr;?hzd)t!$iC@e{LZ!hg|Y}qGj*Q*N2{i=TE;FQ4SHfbAYgaIZ&;|J@R#SG{9
zIk>r1wY391*6oNwBw23z=&fODeJ*9Uq}%N4Kq1rTvQPH)kU@3pC@F<w>B$b|O@>ml
z1_1F>;;{es?A;5gS=`3Gr!q1dr5~W$^{Kf?QlP5xm=K;C>dh+(Z?pgGhQI&*dpK~5
zGd6!VlGS)mbXeft+n}EW)@|A=<G|BY_3YTH@t&&aV!Ie#^&^?U%FYkVStMN?B1=x4
zIU}6u$tsmZg2T~R9lMxE6ZQG7IidxzY@`gW|DrYW+ot)!6tG97u8zb<lAiZ~ZHk*(
z(oD|=^q3uMB?aav$bzRh^E(Q|hSp*nXLWUh*?Pe9J?DS=7yPp0rn=1pwa)Il)_|(I
z>KmH*kIAW<|M3D)0Sf74J=k6tmH7D<A94I?C}@Qp{9tx=R>c(Y+3fi7<4=2L=RnYo
z#-{un9p%z{#C8$nUb0Whtondp8KxP<L&!`rwzjshW5Dw=$B*Aa_&uLSX>Q<Bgo<_r
zL2$;kzjbc#D&cmeb2nFQ@T+$N1rw~ooW_^hhB66VI@cwNZx85^oc{4bu7HAqwq(iL
zF5#_z$BlWVEdSY%vtnlaa+dB#M5m6cqL6=c>+(xFIa8D9#}8&Ay<Z;_bni1|^f+kW
z|5dIg^?ad+3?5lV>LvyW4|)%0K6pSU=xSkMq15YG#C-Ls5lYV@ZPvU6v(~A>0ADIp
zjSM{zi?6@6l}opKP{gb23kV9*p-i7kry{{Wc>n&mU^8NrZr4HZ>4);XS?^EJAoTkO
zWC+Y1&~$D2T}v-83gMe;;HT?A!ZpsqRB{S7gC}^j&(%A1hg@Ch!kt;4YNDap0wpjn
zDHbyAwBGz3R<|F%lhI*roQLMX1xnM%v{YwdpZ&VODR=cf)YDb%bM#b32ATnaIenv!
z-B~YY{rztUx!qT@Ktk(qHF6Rx^z@OaOY2{4af~+TWZSpT4EuSBCok>9$nzI3##@|+
ze4UzX?0UWT`T)2|&h!iFxsKP+v$z8?1i~HQc(6!^8Y+>FoR*xmu#~>kJZ9hOiN5ox
z^(2;@2|oPlowXmY9#i!S|E3#`dCM!QoEJYn*p6~|fPu}04Lc7jff<j8W_C<{THEdC
z>)R>Jte_TkXSg)y+}j(YZlOcx(mc;I_CmyPERqEe$)&{dae&u=!=end!sywDa}$oL
z3AlA#dXiwtBUuX4XNGhD$)K+YPp(?OGp3P}Q#Le<V*1a(;`Z_*L)<oUdp|oLeNSX9
z-vl1Sc=y%Adk*|AJa+eOQ50_<m7l%MpdaJQrO}I9g3Elg5}$+m$|p)DmzbC~VoVJw
z^kD<^K=agodG0#XAxi(~(?sp`%AcJjc0a$%=8b&ZL5lOF5`_u~igj@a1SA5dpD$dA
zvPPx3-LUlX83)(tu?pzg!miV{(4=e3^*^Mrv9tFe1J;15*-|AYQOc14Kst*{umuq}
z?<x%-it+sL9Vs8}C1O6jS>HFig03{cXAtT-p@oEa=E{{T<SiF2JO`eMhKryt<Z4R=
zviS4i;b8%?OH{WkpBZ0GOIrn=Vv7O_?v*msV`Xeb$kf%K%w@r%XZI@vf5G-SYgwns
zpX@I^tz|^V$S-YD9$b-PRARd@H_64$egf+Z-`CrcmlKL=FSEFV61egsOz4j4iyE1u
zb4}_=x~3G+IW<n{vnmVob7hv%Roi{u7}>>}&6J`D2_o;q2F*aR#E&QbrQ#t7kR+F7
z5#6B=DuJ3LRANWfQk#M01`CgqdtA-2hPrGwjf{*Cp2ns3@%f4Sr6)WJ5PJpcWccX{
zUGn;B;;-tTeg@2AwlC;>a8dkS><yaLaeYZS3NUXd+1jQF2nqsc)Aw@LoPrQg`|wc9
zfmnx%!kNJwzW2h2e8Tj5iNolc_WL{~W27un0NPj=)n%<{1cSidW@MDzN$bGRKmV~G
zrJo8Cu`IP)fx*3a_wL=sx|pu|Y`gg1nANG{;i0G6AoHqRzl}!HJc91?E+8(@EH9xt
z@hnN<;RQwy#KwKHWG1t(4zYY=T0(Oz@R8_$*qj*O{?8ej$n@ax?{`Z5`COW9^enw=
zcco!j8l~3%rT5V6VrJv-h43ygJPyGH4wsV7wRUP7cLkM2y?ps?fveK5wu>U)qLIkM
z&0RXXURp;xXeQ5hQmyZsU`p5J%*c{X@AHiCT`hfYVp#UpBx1ZKiu!4I_)THjatCu!
z_=a+GbCon+G+;jk9BnBrE!|kRQq9Z9hYkM}92~5qv0@4ARjMv7xojL#QehcsFQLSJ
z`0#;)iz{Bn{cT*&<}F*w_`I;%cW*p@9%>rMV{v);dW<m~FqNH+?UXlApDl{+8|zkI
zx6U+DSKoI1DD8buPYuXcY#c|91mQzbtA~7$kdQ#WFr{%oPEO8SRs7VeeVIlm6}@o`
zc)n<3qxm;k)Bc(8f4k@H|LO<7JEnL2+(EiyC@VMQTup}1m4uL_l9iQZ)|inv57Wc6
znvAh=lzM{ZGw^e{XvHvfWG~yk#LQj*V((_k1}FXKs@TpFe{*1g;<7TeXoZlmwwoI`
zckg~yItFO3gb*SOqgg@unm?nJE>pX>G?&=55a{G22CcJZi^Kf<q7ZYPBU=$N?T1<t
z5qr#ke*X-;ajmv~AwR+KArj8&sOYLg*#lG!2Qa(T{_ZyH4Lo+iB=AG7lRI-}yf1ih
zQmQS4jqk0@X-?Wfd3_W)uHwcDTA}mrmKTf~o0yotyR`<g1CcLUU|2z(kR!Sd)V6f1
zR!Ia}!5BxB9Z#aJtwZX$z+>+U3yFEC6I>#1vW3fc9&u1R#qcgDeW&2B#V`;)5qoe+
z3t<$1$7fO3wyQY75UUU(=GHxjS@~`&R+D98A~F1C84(=IjL$-b7cwf|inxO+^9e-v
z)!Hp^ZOM7V9a35Z99sjJ=sHnvqHnsc@XJ_F75N<rB~gHH@hh(}C45}&und+oM0E~X
zro)%d#dh~q$G$+GJ>xxwn*VYhD~MPT-@=okfi}1#B%1qP@#th6Ky4ADd{SmSI@9#8
zNlTY}6BG~-d*jAZ*-E^(U+@eR1$J4K$=7MO5E83G#QTn(o}MlnZy)eOK%sc|h56q)
zV)vp)G~7Ps;QfRZ#S-2kFm<4?VM4IHocF{~D{ERV>Y}wrhH_s30rgbM^ZBao>~BUD
z6k{`qavn&p+seX{1Zbr(QGFUUB2=QsrgV`7_w3oTl($i?*le%noigJW%m_mL?h9ul
zcoNH+{Qz2<v{a6L9kAc-v8mT=m$XRG!%4OK9SBUrvkz|BIl2`*`~AY)WNm+w#*yt>
z8QQFEWyQtbV+GO)d@#LuBMR+~t}@j>t@hcuMol9Yc*Y5^m#9_;1O!xIRrA38u&dL%
zD(g)&by8u?>JH@+_C00<!&2{Xd!b~QbN{QNu{X;$EZ5EOb$Il^Ll}4V#L1I)vYA%j
zfVZk4W#y^Ur|InIH?pNgj@J)NaJm}2pW4gGDF-_EENNxjf!(`zSF1@s{^BRRY~)(t
z?mc^MWN;r#+%TLSed@rFyid3LDioNr419A%g3e&MR-rZ_M3!ZDcRZwf_!dLIb#!!E
zXOUG!3LSO&&WUV2fKA$Im%Qu;8X}#>dt-6GdMjS6dJ+BSwqMhZt6k+#Sa{!H>7;IU
zzJr2Qo1?Rg+E2L;v<d6B3miY@LC4{11wbnX{uQMV!Wnz`bx>en9E_7@*hr{E5Q~l-
zs(M8Hw(+P;uhWkQJp1J``20SvcVYX1Lj}Gkz(SS`2fBo&AH~ho<<$tNde}D0ux*=h
zzLi*rLPO=dCQB_%%}<td+dd+FfPU;Q<X2Ty-P#*R?q*rANLi<Kh2QUg+{nU0nRkok
zNqk5>)fayz%u6k6M?5Z}Ia6mR3}dB2AT!?gTE9!2{I1S!<w&#~h`yJ84YzmkJR$rF
z3OknDek3;hFo#2wfXc!AnL+D2F$*J}@PK8(LTM9sH}C)lM{KnZ)5|EVeTc)I-@o6=
z=3K3Wbb@(iznhWvdND^GIikbs&sAM>^cu-h?%9SWCZioS@9+x@qp12blk31$by?9O
z-64{Byp~z*lfwhFULuvs!!0S<LYMZ%uh#GJ<6VXPf3MPf+DtigQ6GgR;cT8KPo69*
z*Xc8%O@_9>)`QSvlyABKk=8o`&cYQuR*v`)iED{R1=#!E$!t>0#!3yTv!%mU_hE~S
zjGWRFS-jnWFECeIFv^8eW(lWilRyAyS#P(wK7&;}R$63{pk61_QRI2ZYR#2ak)HJj
za^URH@b(D^=+UTO3>9X6*g)y^7QKy`$!w<eDMpc@)RK}aR2kW154AX4{PJ^JMN>1z
zv?{8{Pluw6SuZPUKKkAJdJ~M9vI16)#QKhhQcm?WO)}f~P^$r!Gyq#ARI{>8sfaL6
zC{?Jbsz#u691q#~XqiqWT(q5+4?|Pj;3z@KY=n=A3xh8+cgscH>8Q6Y?69j`2LF6A
zO+txr^<#QrP+mI-1c5VfFw=QB@lr&LOBwBe@l@vtX(!*}>K6iD0EQ1b(a=4r_PNg<
z23xG=-p~8P#zY$kv8x2`C-#7N2)M<cK7GNGuYoS`kVPW9DWwE==pyfOjV+G6DSn}$
zEZ-W!IW-N-ro|bwN=iyz@bHx8eQJP-34eP>{`Tq9IWJ+_i(bNgqq>GX06QmYxl5b<
zkYJ6^^U~sP4>Qt4wrQnGQcu)EIe17ZiQ`V$#`50jmadjncBrTSct<BZleNIvX%{}M
zCCLMsR|Ux#Rq+jWLoLl*r*@X+4vJw$&-m-v2M|d#%oJH=4E7)5$|XQu4MhypG*6Mj
zf2PIatO;v8-2V3d8~z&%>Tg%;_g!3WRrYpuOW^fQxx%aVIwX4j`DwmVX1I3egSK=@
znc?X>{|OTR-|zfi9QXe;PzHn8%FN8%Yo@v*sLYsB_kA>BorOpcaDnMbTG|Z@ttTHf
zQ=)OFoBa^X1?cv^Pd^$i=OzQxOutQC-1sJdGSH@eV_KwLR-*u7KH>#=P18{PW=m5$
zq%Z+Gyoh$R-&0t^LycbKrqyV=HqtFJ-(Py*HNPKA&Mmj%>Arl}$Jdu0V+n$$F<S6r
z`}XaiK5=^v9#n?xf_8y51Qeqc0`OVZ8?^?w$9H^V+O0I0A?`XYv{##(d-v|QJ0H5D
zA}BMgt%-n$K85m7i5-h!>Yk^kKO6nltzZ1Mbx}&7wTp(7D`~7+a_|2Avjj^c5;L%}
z@)h#?EQU6aP9Spcdlxl@vv@%E7%uBWUlf-5VOHW;Yv^(Q%cE`TDFc_}`(7y4?o2Z(
zliooRaRn=~w|&~hvZFe+bZO7*MvhcUai=VXhW|nC^Zy(aj~Q0dXmdHw=t0mnDwn6=
zssa?vhIhC+=c*OS*&;!SO|!t{+He%2D#jHe>8j16o%RLJzPKPtwk!cuEdNWe`zvRd
z;NrS5-}{E^bNl5>-`?Mqlb0WLazR^3LxyFLm|btgm5z@b+@+J(y3^8x9<oa5BT%|n
zz$ZWy3{u|v{A52DL>?|kKY_66V41`N_HpgoCqui9`wL7OX_wpof~4XnR!(FHtSN-f
zmF)?OJW7-Ktk5YZ*mHe=^J)2Vl~Rq%Dq&<uhN5GJ<V>owsId}-D$Fr8HB}feJxiAt
zMHOjy0g}`cwIgAWh({`cRXEJJJXnjf)l+Id1}eSz_fKAANjf;ZCTekRt~kKCb7W<h
zxTA`^A9n>}w#!QQ#c@<iE}~n~G2kr(4VoB|v2d~V%;0Jy&<2nIYyy2WnX2<d>V|R!
zJYKtOgLpXb8!BJIC~}{TI_(9gGii=M`90YM-Ug)Dh=`}2uwlnxoW`zAsMh}nT<7`9
z_YbGMA2+_F1wLnaZ=}j7m}^z2b+KnpqPm;M)&rZ^gi|>`9V*Kz-a-(@!yK(p2b8U3
zFmP!f*Zn_%@$r{=&n@2R^pn7g#>U2S-q6Zbj03??WW6D&Dsx&LJ$jw32d;sMfJ~r8
z?+8F~Cy7una9QHUbP@+Qa8d9^!W4F%us}*~O<1+~p{KZ0qR<o~OFCdmPTL?m%2pzK
z8YCArzqpL#XO!9K+GPp%R>Z=?t@dDp=}>2wQRO-1ukREa@$K9Y>JK%^22z5}phr<C
zUaw;je=QK*83~(-$N66_Nii`owGY-N@pNldRXnOy`yDH+GeZc}H(%ZG$~c@ku_SfC
z!75!ua<4f{LyB?uy2SgfUh}b-Pbj&^z0*M5uvHq&#}e2GO@q+u19YFPgL+%U!ip=d
zh)-Sw#Gw)+xY6ami}6YCl+ntUtj_%h34vSUZ^;f3oz{+C=>+J5aoCOY3P0gvpQ)!c
z>sB!6ZtUd@zlYrLThKDwwHh9~OC?OZ@XG%T?*#<B3A_(`z8gHLPS@t)@BWQxc>jL4
z7<~aL9!LEw=!L=kd-rmGW=Crr7@~dJ{Yf8|D@r5Eu*mL&PQhYt3%JLzckeL*Z=s-o
zB}APLcuu;rQ0W85I_K7Yn}IATX!r$HkTQ#R2K>WXyW+?9Iz)bZGe}^3|JQ>O5b*V>
zq!I^R?RP&GGxNZ>u7kr!Nq6X-ItI`r$cK(aReMorG5oX<Bq2gIpZJx3jdTQx*~LYC
zYonN%#gU$ZHCy%(11GA<#MkN*7^posC2U@M+OD^HWJ>qKg$uE7?9N<(^wd5hJSA?v
zET@^bkUw``d8zrUdW$ZpJY8M}OH*vn^AM_@RP}skefXOKw7Xf2&$g^FZ~rYlv4?rp
zc1>-U)zRL8XWdiVO&Mh#Qsl1&9}LeunsCPmvB|6@*KrzJKaqQ3meauZD-(iFkl|=|
zcC^i9`BSGJvoRC?kTUx7Cma1C6|K=RKijU-?L3+<r6JKDvRV}Yg0*?`=4vct!~(2m
z1CXPNU{M=eRI~h@gZiOAm$>lm-(RGADQO>+B>{uU-<$_dsGaNYKwtVxkA6Aflh8_0
z#XBgYqpg9)K}fvhi*9V(=J)jJCAYicHeGa5`aImo=ZHY{_4Ut^)-K(OlFWR@<-<GS
z1h)9w{FXFe1d+y8?KaE)^~=E~@OVRI14f5Jyy%C02}P95po7VPElkaRpFe+I(#`&6
z#vQ_*(?ox4sD!hh(;!4`U)5ax!2OfCtgt+c1sc><K>*ql>##Mk;J+}6g{m~0ZiQy+
z5+400vY8h3D&8cPL)e(oBX(>&t_41;rM}hKguFzunzt?RrL%-Tu4Y~%`TJ4}bXHkD
zVVi@~ccRZB$9|xa^pRnG2b~o=ymP&5<o*@OI+;mqGEs|-qv`ZZTGnzK<m(bO3T;?{
zB9^`5!H`T)Mr4<Ts>J1ch>uSZmJ=_wW;nR$S>n;2MJO>(X47-@*#&v#-2BA83~$f!
zHf;HcrXlhOx8MDS%ar6c)J@Tf@MoU^`3pn-%^R=PNvXF$@gTTvY&8W@+8+f`7^Tu|
zdsJ-FEKy?)h5a9Un%G6nP*A%)u9@rb3U`*p>BsKmq5=CHcy=N|NgT^OCt*N1<&E;x
z&$!^lNus%bVZA=R=dBR9rl{R;hY6!#Mx1q$VTz|teSs$?8B9YP4FWY_L3yEy$c(T6
zYn^9)#3B(#&!zqYd_?v1>C>^@XV0D$M)@vLFGn5lT^*?b-q;BAxoDVfHvV(1G_@zL
zX{cbX$58+8MPE)O+T@ZU?dUmn`t~+ur4nx*!mjnG0g6aOARs~?_~H+UX=Kiw#(q4*
zC(h`)ls!S}7qJZF&FL3thND@sDk37{2igq4B<_z*_a(=}lZF!DW7xu(haKUdC6AXP
zLG6xIDYFoeX+-4P*-SP2I5<Ajy^M~IzVlin=HCB-REwH8=<Bm!!vjJiuUCOGeYei~
zOOJW^0c?f#_74kv)K8x_8mvj=`rmJjXV7(JRZtcnDE41aH!WDfBqshQ%?EUTn799n
zU;jqWAmm8?q$>^DkMfJg6wa$Z1Xuk#nvwrp{{IW{D-_=)x70N?pF+wyMl}D_`qBXs
zpsxRJ-in5*CO+%VDw-CVj^F~`;c@=fYmwEepQ)!BDznk1_;5i%qY9!{vL${Om)a}Q
zNME~o+eE>u%XkYyBK~X9;3-X&s`N8T-R=^UT!Xlcc3y~bi<7dNX0L;J7K-subVaIb
zVnh%LyWDjkTrd;XjQFJr-2f`V?|Q)Be=9**W|u{iKygV4?UjccV+gB3uic;S22yU=
z%D`aqNC+gwaC!1=+~|@XTh9Ia_gAYOy+$%H1H*n<&I1S9W**)C9Wdn;q6LXggMyg(
z`di;-9;IiwyH|gIee#S+W+OdFO>9@uOBgVhmdjtu^b@3eQR^}i16Xo)yT@+-k`qU?
zpLQo&ruXDU@3UU`bVV#=wk>vdu)_W&`m}<Czuh0ro$~>Ezp6uIt%`TzQd_3hU2x4!
zCbXws)9@c6_wOn$Tzzaf{*M>n&lLa9G2#CfZEAm(^k(WEKb>W3z8(yDUyyTr(1Ax(
zDwJM(VOWR3M3XWPa+#?4>Mz6~UxhHqM1-*)wK`TcXAU*9<unfpdZHBxMO+vq#n1*G
z2aCHCY<|9vA1fJ8qY4lMxK2!2zSQl1uKrs3rZ!))gurS@Gqb)YE3AokHn7&By$<*z
z4pzjO(#4WPNvCyyCsFxxt`60r^N_@2NN$dusEVLhp&B%YKw$!f(2~z|@WQQayt*-8
zzkXFI(n8G~2{01QgI&SGi;Fw{;=Pr!Bz&U-P&HbCSpuCZ+W9V7gu}SccCconn8_{+
zlTZy(pL}Ood3o)vHCqtkgwDO8$-_Sq%V!rgEE!1$?dz_A@axCANX`FxLCPYqByqw!
z1w$)l?kQOP7%>FMxud?#qm^<T{f9rd&n}*}pft0w%{R?{KwGwwIJn^?g97`>IF)1f
z?xUp97GK0J+mP?-9GlDPGJGBEU+n5&0{mps6%`dog2-;yfgtywf<iI^eAfC?Fxzs-
zf~_57y^lH_661KiNtk1#Fx@fOph)!uGGS(T=#j<A=mXV3^#;-dmn`5{7F7r~7aun4
z`wZ0<a6dV3)bTYr4PddbZM4jk_0IqGjW)R()_6AhRdx~tT|ouZ_ay2TSTae=5L^tp
z7q2iJuyu((2pjZ4c_PWT36_CI@yHS`oy$TkEmi#wzEj7%vjw%^x{lvX$lVL$KB1u$
z$^9g*5aa&z<WMqr(v+RT;@HjZK;HC?fRW)d4n=_38l)NU(}xXf&}`~wC(8K#$e8C9
zYTCM3ZU+Sib7QTh_Wx7n7#ep#k%nCs9ZLeNTsTjGuphYSM_)mZKSORHJd^ZPn0UxT
z`pg#8VrSha2E}t@1r`<-xXuKo`B1iUeyWt)v{A`$%XZb{+g2Q1yR`i9F13wE#6Dd!
z*tAtjK=ApEwTJ&M-lcl-sLzSx(#o4Qt}r^j(&x-Z!&erOJo1?lvTp9f<`$;3mVw@(
zV^gnr`Kp3v6k4JWmC5R7QC;JR298o*OC=mcLX@W0dl~^2N%bxc66e~roPl@3L~Ud$
zhjvqB|2lSz9l8Vhu&TB!&orx%gSV>|Y&8keK#5s;FFa~~HD<(U#ugH$Jd0&v3ODTs
zKkEaY@M&w1PQbg3@c)gYkGi6-D5-ZXpXsJ8TRMv5l$7^9k$v{;+1fR0My_%UFZn3I
zzg4nh`Ny-r7`5Wnd8E{D+!F{moubK2?^N)2++H@e<0uBS8in5gqng!Q${9X<(EF88
z#*J5O8&=b)$NRqGUa@3oVF-=qAB^keRKWePJfgAVIMCMhDdR>bJ@3TIgyB+9sLrW+
zLjhA5{fT45V*_gvlxff(Wm0DRU8C^VhqVpnPZ<C@Up8nOoN!kF$CCB}2>Ug7p?p$F
z5L)_BP2QXdAHG>?l9gRORl4Z#%Jm;Be=!!md8@f{<;R1U`Taf?G2(9m{QQru-+aZr
zeMxczsd8dvp@vxlz=epm>;8x5{rwi$L<;!mTEu{{A@_xxPnlP@l}s5JycNr3=g=HH
zs`6_48})cKtYi=j&RQ#|;OJ<7N_K0H%WJH~-`g0?fJ!jY$#}9P!UKFjRCMb33<EQB
zA}Z~hGjDr%6n9$dr4@M5&xfq~>88Hw=+UFrInDTQo_B>lW<2!f!HcFAD=vQSi+gqD
z0o~4>dzT%1+scN&k!S6bi4P*l-|1>P86D44G+AmS+sfdMOwdYYlZ8IQAy9LKoBK5J
zF@bVGcNT&n?;-P%+SI&rGDBz!lyjZEajxdVE1ztIq1z<x!)Ztw|3al5QNJfX02ulW
z1p?3<5f7LM>!dt-a;PU1pPZ4E<**~99^L3As{Wf$UvqXFx}F<Wa}*|$etYNG)C%Qs
ztwePMyi;Ne4JDdPfbm2kg280!%f)lRmZ5y{f&v0dr^~Fv!K}TJVi4))^w#EX-MO=W
z%EHUvpDdZFtUV6#=ePk)^bAurJYe6m=Ur<5I!po1g~3dPvWuJ-H%_g8;)pwcjim%J
z!MQoJ!N70;=0xxE<U*YWF_uHkwoll4;*;|^f3`=5&tbpFyS|k|A&o5-3CbwR6wXJo
z0^kSY=$Yki!_ALFW%NYU^UO;Xe|e`lPYw!5{ZqMlqdc&z<%XRtUxvp?(`e)4$W-|?
z@@LNQycz=IVgFrt3FxhdtmpQteHEm<7D3@gN~Sz#{s9NfAiFG7MI)zwl>Y0H4XbiV
z%c<@B9`nc*kvM7PAsYuTZ_=ra76Jj)nN|j}m4Ns6#!Ehbt|<29VxN<w{dECk2gEN9
zynqW5vW@%Ezg^C|f}whU7wue3!P4U@7$=zyKSc-h;EzFyaq!bY17r=(a7n^J1PJ{b
zSacKIVTd}t?+H4~q9NN+1sg?Blvb1&_kje36zZ(_*ySJ!^ZpRq$T2qG-BRllpt_ks
z<T&B?H}R9Rkvgq@zv!PpO7kLqf<fyEoCW(#Azct#7R*0qF9h-GW&0eaJp|qj?JptJ
zsh5N3giav;_bfcYGhScm;MF<?$pYrMI3kA%38j6VKwB&6LxJN_WvC?&iU9{iz8KWP
z>9ueDgEp>g8t$Fd&c=wU5d2BPMJui%=7Zc+QV4|&_ZV~<p7aIsn~%>{9=&W;)VWl^
zCW)C9uqX~6DG*e~;Odsym<Y;4Bt-Bto4c0K1%zz6PUCBdDd`?s;xO)bAQ+8Ht&55x
zqyJ~UU%~FGN6;`r&I!7@-FF|VSX*93qvn^zq<Z}KrXYsxS*&lvbZrT9546Ye`>n*%
zCAIdkv9SvbyKY~>YWjRZbU|+cBY3a#R|nh||8-*|0C~%H``?A!863uSBXjLXfxUYR
zQ^!~z?8nZq;o14I@+){nr+tncv<!FurF;Qp#@L;t$;4UO)96I`m*ffaf1M1ayy;(0
zkN*GTsn)C>&1{LGz~>9GEDLmTC2lJ@pL~u858w5%;!UY>YPSeN$I+wR1*{pG+|c}S
zh(-RnSDN4LbLR9`<|5X`)i`HMzdtB&dFzA74;Q>X8~(Hr9#(IEB^XrpAo4o>1LoxT
zk7~adKhK0z1~lacfl;i#bK~YsynAu^^KEq2utBFbmft+@i^^Mf?l>C<5>1p^6TSyr
z2(?q7vA!Xdw#c@&b2#_sn75C=e~~7W=37nlw0dZTtyE7nK0|%58n@D{Hh}|b4!AqH
zm0H}}P+5}2tvqtk^xTSzh|*f+)(2n0OiATFikGj|*Ga`1(_NEmBod^CPm#SIb{=}T
zQ?viI%s?CDmcu*AptjDxWcoCt#r(RN0+Amxvo@^Zqb8HiTLu$=F_*T3FKIo!mgj!N
zGFmn-p=bB*paB2(?rxB}=^Q$T*x{KS__D(?Oa|=*CqJgx>i&yR(cSyknPUIncv}2z
zXz8`$%Y#j#Xt9^U0SZqlD=W9c0gP;+O`0sAj?U__{JFPnTbAdpJ^+KiO;>3JTIFK^
zxfvQM>DuEchWDVU{xOU^$8P_5@wK6s$CoXYffz!16yQhpV;q!&U8@eH+4t$w7&wJ>
zyVfoSkk+^fK?k_|NkopyK;!xs(&EtM2OAJhOX-D3s0MY3gesWv$>9|URqPWWzQq1S
z%0qxGh>fy1$OffB!`Ok7_)fy&UKO!$HLh3ROF}O3gbSq4&Cd+^0-vCqgKeT_ZS-fj
z(w*m4CYP^@HkwLC<YS*8HZTzIG>duxFox4`b2PlVcn3{Z&(OrCi(fxXWAzY+Ea8<8
zwhNBIM||M$VNK%IQdd{MOHI90u_rP*noCr)K6-|AH4w!MQen|`m0Xy$AuW);s+<0N
zx6)MH99;``0~&*Js|Sd|76mPA#%jQ?3yrX6#6!aV)M;&s{sy4-m!Kez;P;1@SOEv_
zRHd0#!B%!_&m8#<jP?@nBszZm*>HlBZkWr@yJ%}BerS5r-!u(MvinS9>(*`Cx^7Br
z;3l?Ocww?;^3Z4o{;9#Py6B-&l{6mKe+Pw*O_m%fkf3h<YM{iQj~vW_)|CWMMMZdp
z0Mw8?k_b*ktc71#78h`!(hB6`_aR<XR{%u_ENIMd^~#`R>hR_NdJg9b>BC_iI)Cl}
zWAx8yv`HJHe511{kzNkiIIMrGaiA6wBzx?8tx&uTdh3&j&2=M*$}c>kTaoDQSsbzJ
z^<kr@eTdWZ$k8U>^O59;uu2Zy(d5h63dTJV7lz@2>ALDJsvege@!9W*5&+Qr^y$+*
zf|j&~I7g<o&Jt?sUC#=%jLBBwC=8A7^QgDUcJuvI*93|+3HnXEkj&*ypH_t@KCd-^
z#^jYlLBlCihPR7yW1QI1mixbOoB*3F5HI(YE{nI^O@yd1ZLWox**gusr#+JfXlC=i
zS1xXMcxMA_XOyhYZB$nnUZS|S-S?o|u5w*sjSFT>f1GyRI&!L&)&0eN!u!O`-7CEk
z#-6?)t9-ABJ=e|8!;9)Q=KQyg_m?k9ve;n6t+xCv{Ddl`KL)xeu`#A-Cpy77ZIrH!
z;^8jYO4LEd78w$I(t?gU8tY!-Y%}$58M}{p#Gvy=U&>ys0`O}9M?f{r5xpK&TGhW!
z3=0GQJbwIm?HtdWg0=3-zr&^`dL*W^Hme?2`ZClydh*1HsaKm-Rh5(;mm1r6rM@}G
zecRIu&YHJx-?}BNq*vzmgBa(Qw47cUiG+k*P3s3jN$-k2VGDdr*}6P8k{l1gE=#=U
zIN9v3<yt?Dm-QBrk_znsc_<8zrhYc81YJo#_jV~+;*i&SF-#nnmIx0nB0A}1B|TXv
zE_2DklBp&qcMoN#C^SK{@7ouLV>$eF{SOHXt07EqTxkRtTzcW|jRKs%7bxkP4YJTg
zxf(D7e#yIQq9B_;;PeBHYv;I^ExX8gn6c!|o5L$tKJvPL{UF`W2S(@4?Oe93=u_pU
zVZU!^@WP%WeRv`(`tr9W6zXh_uIkCs`=uk@GrOV|;l#(sM>U}pB9JXgTxS9VPE<}k
zCjP_?;=|X_Qy5N)-z*Z^=uuEYohD$CONl5D(3@&d7BdnEDBk*W-~Ro58{B^t8pW*t
z6Fp*fF3)BE1@>!;iYO>Yx>-$Jwf&0dD8G!^>uhj~of2bR=|8UHfoN@xQa4eMx_v&A
z>N&6|*71|ihALQO7@m-MEqAjGRe~YpdA>z`ib|%Dkr4+EPvU7iH9Pm|sxZ<NkcU%n
z{4I_^E0UNSt6Gvev`BgWGrEg@jj#RB=*|{5#od1yAJMh)6C|;cvdXU=t=UXZ&yMsC
zqB)(j)q&&i;jg3hdvHu#cX`OD&52?4x0=R=hFb&rmtDMz1}X0SWU;~d(L~8KxqF6D
zvE3-<52}MNFmJHrM6KLQoO&kPU1yi4d0@wuEqi6fprys~{URPtHgvMSE~QGLse(wi
zh}J%~Zrg^*u|hBr?kPE#_8(lwewSdtX>#rxQQE+2{J%z_wm|FyV>k@v<^29XGf$VS
zVmyp9-AIWUl)MT{%oYwr9KZLMH{pyZh(R*cCMGz<yZbzPZHlO*aj7Rfww+(9%diDk
zA78@>bqgJEF!sLG3_@F%yf-Cx<fDMZ0zPdF<r~tS8rpgv`+CedTsIsgG4BZY)&(T&
z?J5#=4mI01T9WvJ;`%eJ6AtvEVBM-?I9kbzBGr;YlO@TBrT9Q0lk%PT4n^!3qh1pP
z1Nb%{?i5wQ1m=8SQOJq6H4;ZH5lC^x43_49NEng!VC<^=`s(6+3+f^jlLfD=Vh?MC
zqXP+tbSOYL7oTJ(70ToP1X<DVy_$sl1$@Bs6SVNU)o=NcvU4#^E<JNQx*RiyGi|g%
z3eSRzjFB2K<6tcSAt@@^7XT`ts96nv8#%LyOCxEl&&dsj3NJQNwm&@p_aJrz`oqKs
zj|#2NfIjEc8yii=PwaZ=YWH{fo#rW-eQ#H>a$6VFTc{(8q~nymJ$)UxW_j;why?;Q
z<WO8ZcD;099?ov25HB{mSF$@E9U<-ivMOL!q<^&+9FnMLxERr_W(wIHTwEnK&S+oJ
z&aqG2rx@C=C2x=4daI&6nS{+E;1KzhV$k0K7sfOW)?oK_mAwrDBQevT>K%bWD<Vf!
z<A}USqIn{dlcqZysB-mlk?ff>r2Hm~Gby2yY-<b!VnOd285vR`t`rieGTM$g(^miE
zuIc#cbk_s@!fHgtju_R*T!7F;j*8+E5t;CIHLs3&7N3+Yr=e%(OUWBomp~Uj1jQ=Y
z8A*M=4`8o~3<Y|!DH2DEpC)C+j7`;<L%xhDeqH2vMFdeoO_5_cP)$dZzcP>skz3`H
zrh4sjgo&92Z94F(@V+{OD}hTU7F@F|<cJ12(GS;K1Bp9jXxHz_rnz?Qg0-{gnOd{-
zIOyl3WKa6d!}MN56*5J^g=noA7WLNkCL`*H{tK}T6n0qlzd$K%3wYyi-Mb44`N4WV
zXCAv_B(&rWG&^|U?LZv}rC70Q6^Vl0pd{qzu0^#4x(r@3r?);A_3rkpZR`J~w}{zv
zJt&aB?hh)3W;pf`gD&C6MJansemG0qoJ70uS#$}zxGATBaFLxk4ecx*F727ISBn{Z
z*JIU7cRh*$?l|ZEQ4HRE%FX}8^k-IR-W0^CzUf2nv)*DAnubxvcQpaW2t*psKHOUT
zpz!Pwr*--UD8-YGKp`O0Yx!#zfjSOM2wRa$Fe^|j`dK3$Ki)`uM(8l+ewB!gH9Iv*
zIwFh!dj>tx$*lIzP&N*8<{rO^V1a!>h&l9CeSj5z0stUR|Mt-$*?VQ&XW&zZXikjg
z4)2<gSV`qT3{4UzN)`ur&FsayB}3#?3X)ja^><kUotxDqh5Rug5V_qHfGf0<5r0gC
zIr;~p%QVgf=Dz<SnM-DII<7raJ)kTBt!jRX>h9!5K}i@IF1sx8!lM=tiyd?cwhD5b
z0Ydryo>>(-avCyJ{ZldjG)C#iDP?B^jZ+7p81<2JPwFlF*d%^_+Dj@xpbrCUT-ke2
z$EbneLBDykidXa^o4sb1{Fl6t3z}#{8%e+W{w80-rLhGPPt5=+U7DYrx|Opy)V5{x
zYaMV7#9&r45c!2ha-75-DXGy?L3&5A#n(vh#%mOV54UIGblH2B8`iJq{b_@<hE9Yo
zW^)>)Q@5AuXEqLGSqcQmS)4umz4OLDWy`iBc=O`y(##+G*GbkZJ5z<XkPfr(@NbT<
z3fo^B2EEgFn=&%+T?FzpOUg`^41uJ$RC@f2pcZ??hc2PvRKw{OlC#6d2>-+RaX!ry
za!RWmHooa_+gr#zBUgX7$<Z*X-(K2+qb#Q5*8jTu*)aQi%J%Eev-?fLK>%ucTg}5Y
zGbtfN>IDPZn&pn3jcLS8(gZ+Q5{zu&klDiGjyuvnpm+DYzW2a^Q?O4H8U0rfL4VRM
zLyS6azm8;^S=?UOw_U!Y!|s1$>`kDle&4U*Ba#XsQz|4PBuRrZX9x|*l+02hLrUhH
z5Ta5_8j&WMDf3JvsYHfKIFd{m%9!aq`_}jWu4ldPv)=WzTEAcQt#dxZeP8!=?Y*yk
zHGP&@v-@@S(G5E?jGFGiD8=19v#gfFK_&DQDL-Ul2cliHFAF?2weq=eb-~V?>LEf)
z`-$uc=fLo=oaBBm%{{I6Nsd8~DEtn<UQBFk&#<9BGhww544Xyxz82pAigyA&RWW8f
z{;%w^B;@6dkcZf7MV==h#j)pyqxtoMQ&4;mKflwb2~v9$D8oZ7Hk}@E8-VM^vNsW?
z9HygJ8y|9XOp?AiDz3Qo=4)O70m(l92?l%gg+Y#fi!_$0Bvi{ODt;R%O|3ZczQ7`#
z%KmOyyM*4d-nmqEw6UNGq-LkUOAubQJVUw*&Mq*2;r?5s*>o(g^>4Yo&0-<%N2Aqy
z7g=>JV`F2RnmltpePoqqamN<05HDH>(Uk^dryU$xTq{8G3n3wI2G5QbI@thkTRFl!
zJ##;TsaV>Afim(8xd#Lsx!>kc_`{s$j&2eQS*z4?&o7JGkunYdGCYJfTVnbH^<CSk
z>b0aNCFb^RpMtmOUCf3)^20zW`ZdRF#THgMQ)z9sMip`IhKnNi?#rX7<;_cca}Yls
z6FnmujtbXwQ%15t!4idBBlLV?IzTxa;A;K^QEsL{ZmJ3;Tgi|g(qti%g+QoEOBthj
z;f<jBx*-aAxg{}NPA~W=pwob2ZVVLz+1gFOy>nm(X^A$T7)vgS5c1rpIR8I7ke8Ug
z%2mQ{EQG{{kgPbY8do$`STAeV{-cE~B*5%nf7tnqhFHfb7+P%9Suh1em$(HEuMG4z
zFPK5Ya^T^DHzN!MZ;Ij^e3o6yKwIzJl5UIxQIFMYIq@!pK|v$ZsLl2cBYAkNe;@x7
zbu=0L+eKE{?@6b&4t%R*a^9nHM@$C}M(KMMC^FY!kbD@-3i=95kG7_!N{fk!5f(Z2
zft=A|WG#n~teXb-jrVtV{fi7NClMD`Bj13rrSXBM&l|U+;*O3;D?4JQMyJte5jPlV
za<_M$vb$Z`wg^w~6Me3OZfvKSq>E#WfYU?gpffU6S6Bb9^jD=N>zA(v3WPReV*dLT
z9b*?=a5sprzV}@7iawtON=)E~Xh8HG3!gs)gJ?j{Ukh!xL;gn#;4wJ^m&9=#BGaY9
zMmpq$!ME1@=LC+#$u<ANv+5UP37V2Sjr#h^+7!rXQ~r_Zsn}wXFMI%#Kmq;;1{I`@
z;|{D}i9QI#Z9fExE!$cwx(@rrZu35$TzA*Kg)hKX8vB&s;A;U`)Z`*g!xy~P2>PR1
z{eNir`N!%EZhQBJllVwFRFDm~5RoisLy>g{a6*lvl9Gh#ga9kpfK8}@;k%$s9GnTf
z0<009rB=wX(?{4Dk}L?spl8j05bI|gOVAmA2R6|TS%Zj3j|s?6yj7uOFPmMwu#7n<
z(xu*4iHj=%+lbu`Q92e5=C(GL1qPB_3EVd^!#ohD_>8PP;sp=leG?uy(4b`PC_!Q{
z4FqVjE`xqeP*5@5DoG^3b|1(y(n|<qM^Z&XLr7G`L}7?%jy!qRQe<IshW@-xHQg1s
zYiNCxVj@t0{<^^V=L_*4`Ue6*Krktp(v*zuxI=_F%ZTHm3cY;w3hVdMF#0x#jjWiC
zf`S69L;sxCT=-1>_`0W`h@&@g0~<r4D+P*_Kyjd+NkL?-!b4H%ZBDz}5>R`(e$&Fg
zp;(wdzQ4H*_KN8LF+!K-N02IwFoz{}ud!8~NvThn+*hHmOds9w8@)ipO+P~ePK^FP
z%uIFM_}Oy1&<hvHuz+bmdc;5;TTzFkw`ig&dh2gaiTNc&p9(`cZ2WTq87Pq=ck}!^
z67~20m8N+XwGq;isNg}E44}jYA|Cw+i?|PNwDl;2pTZPoKU#?%5@k0zLi+m{EVPhD
zH6nwm<^IzQ+hFL=Z6;(EZc0@w$-R64N($&T@U40f=N<wKhOT{QqIUzE(SWrEpRdhe
zSpn%0TN8p@kZA}>s8<M@iQ;zi#Nu*?MsQE$Oa>TwwdSZ~Zrf40KDf*^L$ckN>vBZJ
zXdz5fIHvXuEqjy#P!<wAA|FwjBwh2-1PrJP08St@2Ft>lliT%nskC~bU6r&NBLgG~
zMK~7uPJjPX^Y*PFthCE&ljO1X;sU);UYtwc;7-;Mt{%=KVWK2F8$zoJE4hK^J>lpa
zMV<iuvrcejY;2R0F}P~cjpE{AS@N<_LqJ*$<kRm%^ZDNkj84|xXp|MN_=cEy7b^am
zFQ=G!*Q{9}a|~gA1}n;*o(Ni6P!@c(t^&XEQW!DBN2Z#jh;F&b%(rUQMl63I##4X^
za4*DhAsTogqpvig?x1JKviG$6DuJa02}UvOj37xGfx)F29y)}x{wcO=GFA@}T*4}$
ztM9nnZH%>;BS<Au&|vb2`mneg@phyP*(oXo-y@`m&q6O2a|<lA(*1@Cs-JfLd&?AE
zlLypE{F4~bfYJ9m$Z>-9b;VX(E$L*)D4REr24nWlZVuYyaa5kY0MiM=f(Uoyn#aH8
zPf0M(GI}(MLRCx$VcYW=;n_rWz-vk8yeH@?2w0+D;MrJ>i`@ADQMeCAsu|?h_?9FT
zE9jrB);ul>nY|NCW~LE+FyY_<njVu#kZ5=udHf=EIfUk<c*ogd0&jkDeE@=e4%A6L
zn}a@~38lFbOdXZKSpRofuZ<t9Dn{Il5rvyte&cqean}iSGL;yGn;b(pH+^((*{Py7
zbBIp0F7ZDg_&km;DC0gs8#IQk=nM+|ZC%~wtYM_vF*j~3m|`HeCw~PPBe5J)nxE>z
zZ>4_!C9cufPmVZ-NF4+2I~5;uvrwiRv@ZlQ=^#MkhyF*-V~=xb24sUyG|rJ^Y+Am8
zj}dTX#{xnjx<jYI8g4ZaipGzRKuJn=)f>C4Uiw@a{VC2KYoUO#Yj8VHgbzzUp4R59
z4x+94uhRp*BSeG*l3@KD4t5g=*okTbrw-3R-tjs?0HJ%L6#s;S!g9zmlZRgxFfPa6
z-(S7@N;*AA7YaH(2&g_f_g}|?jUvuv!bBjVoB%A~gq8#>5|T#%XOTpZgsiENTswIU
zI0j0Szw{stBV!YEqpkb~w-L2761*57bVz-%LdM`t?42%e`5AIFG<AAn{S6@89m0u*
z>>6^y6h13&H5`IKR2o3KM2xjUa`dPpHuLI-j3aB1!{O-VJ27y!XdJOxQd!vwN!a-K
z(0{m$Y|^sD#k`T4$mSZsU?ac9myBcG9Rxibg9IFyF8tIpaNTd5a;B4y#ghjudZL`l
zKnUd9Gk`_#-_Y6OJwmf<C71(XB%Nqj;^-f31*t3g?DMb~rrIFHXb!c)V~%Lb#N)ix
zH(Y=AZv4O6W+9(>Jj&2bibn`y2%Ak<7VMM9BsW4~>kEfARBGQN&804&T3u-QgjJ%1
zX$Pcyb<<?#hD6rCzHu@R;@ZqZRO>qIVGrNT;j80Z77BhC4iZT(p2%j?fdAJ2q9ebz
zEh!EVj?`Sbbg3?!Pn-5w@uDXZ@h(=Bw4f5>X(Drm9tR##`v8BKAUD(dmJxI~AMFP>
zznql${Tt0^;yQr#1Fy|w6b<bvq0i3{OR)6PX~2_J?Z~!LfU(D&{ogSE-}nE6>p1lN
zc}E0{;d$_Ablo8Cj7+BR&4uV|0e`~D^bC15X$s!kfsnX&TIuB`9n>45HLwSVD{&AF
zN<Sj(AnlbT&jlu2f`J8~0EjwTw6FX;<3eSI@Um>vsV(sLw{xcO^}<jG4kJV3_NJa{
zYGnrvqb^+<vlmNBLcROtWG+`rW#|^}dB3C5m(y&dVS`U7V+*!o<Eh#{fbI(#sk`q{
z;(RZ;a-PR3^u1G#+)ZW^*_#lWty#~OIx=HK2-?@tEyi7v{+C{uNndi<m^}A%AV`cC
zBARjBqa@x1Y6C;0QY2>MwGe5NdEuF7FxX3j1-17yuXKjZ^DoftR0_qR4C^@#ZX2u0
zi3lSRu8=b}fxUSjr*s4i0}gXvG@K~%rCoo7Du)OdfN!FrHGt#;fQC<vr%&K?pZHn@
zk4G<Eh)4!RcJ0VrxzhgZ`19|M%JD2+YHNYK>XHLR_|Xc;k1j{qAEnXwSMl%ETF_CA
zSc%KJUy`=W34AQcVgbJ{q!UTR5AXRVY;HoILh>*MCFu!36wpyVIqp}nJV0%)#R4x7
z(5a%1ObaS@yRE@uC;l%bR0XrU|APw3M~d0Kt5NpTXUgbO9%{1IusLfadxqqmhJt0P
zorkzEn<$;D6$aVHgy(~wm_%4r=ii@CZOo_sDWJfuV@c8)n)^yVk{$#g#2ApI4uMki
zqyJxyU~L${J=Cs-d63e_K9gAw!PMAnJEM<EN-#i9G&wmOKR!baY#@9Dw*IjBe3hAi
zDM0;W$E?Ptf|55uvN7u5sinpIG#>Q-7i)t1Lx30k%I>$nOigX=A!Hc;R33kDGHY&_
zDK|s-Rf?ZkrDwmK5S-9)HrK_JA0Y~;GI$wK&y^j5VlQLHckRdr$hEc}dj}#V8~**L
zaE5&z5Lwm=zRk+FPmGM?i8ktEaO=$3tvjQMOwz}-b?|K6@&E|y7TVi2n_D*hLNigc
zQF=!mzMi<~lB~Gl@8NR9I%DvRk<!&45xR96aL_ej9U2M^+jY9(qQyhl&xCNi?m1hu
zN}Ewi@hoa^9;Wj$v5}`(Iq<*K7Mi!^w%p3V!2c9%{~O?8aq~u&^zD}Arf}lhkHtq^
zf^J;Bnt)@%8HL3z@D~L_#8;nadI@s~&lxf<!4#nxAYiA9j{}|tlxqPxW!CP4>KBgR
z=CN|yf!@i}zn?=W%r)cMUVJ$E3_kYevp7VtKKO=x#C<C1?SglOPT7*Ti<cd%j4|2q
zFCtRQe|nbBz#QM0IFi~&DQ(apX%tbb!ghdIe-Q^OvTTTE5K^%wl=GgL4?;SeFj|X%
z_++#askWbwl_QZB)j{K56I5sf-R}6+Ek^vKqR~Sh!Ij6?*o1ROWO?e{eH+FxU@ID|
zOrqT!;G7p8-MZjnkDc8JaS5<o^8BG!q!pA2Ym~~q*~Ai8@aI1Xw7!yYuZS~vFj#w(
zJR;pJSO*{BSODz_I`m3K_|{8Bf@@TQGqx|>G86|sSV5h2#sCO+>EEBL36x1x(mX(J
zV3a@-I;3-8Tls9Hu0pzilm|z-Cox%sVS_8;E4&T*V8n3<YKQ+u$yjAyAqs>4FZFOt
zX?CP4uCEU@X|yQ1&{7l2{s-t~KI$>!UXc@|dIs@q8X{QqW8IF-U9n<C3nsXv5fv-0
z^7lKV@i4?QC>e7bBj+*IL<3fMGN)QeKkCys-{hArATNATcH)5asOdR);6O99WxDqU
z{YGeNL`=3qX^b?<q~R%^80)Ps><nEkDgQ~~V+-vvu;A3o_io<&+2f?oNmSUagBE9A
zmLqHFxfG00@w%ZLr6)FFOkCUt0W*@%cPnfq&NrzQ&P3G+<jF$ybvYubQVVm<`}b_U
z%ik~+E+qD}N(*LQ;ORBu{Cf6KZ{KJgEIq1xA-VSCcE9vZ=-&LFbly6ix%dJhSdJd;
zMUqM^KX62d-H#vl!-%XTB=WGXk;yg7R^gF;mU(W@ml*%zVhOkmkm4!UnAMA6>_^fw
zMFa_uaFbDX1jI&_732LorxIlrQqJ|L!_e27)!0!3q9g_e49GP|Q!(*L2N-eTTo_Za
z>@vV?>uGG@S<j!R?r`TA5fEZ<qY2a4Sn(&p)Rrk0@7gB~i>&w=8QhvsmXHA(Z{EC-
z92W~$;ru`RWyU28ZZ`Pm_`uiN<wv$#Ss!Jix)Iut4!@%_Rct%RAeBPQ%>gXINZb*i
zcoEb1mmR5YVJcST$vj%a<=OjD4GBOas(8go#4hZ=56>t5)IZdoGZRbZ%4^*OJ@~NP
z!ZxPHL*8~S7lb)%GGl$umo0)bo&gkvY&nfg{!$nfLjZNMD1g#E!?%-WWT<gcH6wXX
z_46-$MiU3aW|}tH;fMkzKPQmc)}y1#{36eT<gdj(&xyYS;e;1R58|-Vfb$~<cn?|e
zC{}<5?E2B8yKo!j-5TY~r|Pk8Pz_tBD<iEdfVaAZ4$lKg5?&x}h739@GM5<AdlJt#
z)EKeP{@o1Cjj5O#kG|zzG^YJd9wx?zT~7MOpfmbWe*is@I5Yzg1loXmk$)DxPk%oL
z?mruOJet6Kn!Jz*D5o<UHxd0f#D^Z^#FY*1MTd2G7XCgpIfTkLavhXg#>~wfBf(op
zVtY9IWlCxL#J^nmwK{G<2ZY>g1K(?iaUWn4`Zi7CT1HO&i$e*LBDBS`j{qwZVR`Z}
zg7h#hlgIezlL;(N|Nr2|q+}Lv1{GwR<aLzv<A4ejG7V0afPivyz`u(*WpR_b1Mi4*
zkbr-Lwc>p3?;F&0msamM08vGE|7n;}CZS@4q$oKWZ55=L9ZMz>od1!%Bt=MWB7g@e
z+em*P=t-0-TF7wqf%{!Mn^F8Hf@Jo9U8Pi1%Cg@wBtJqo+x~dvl6Qk$C_D)ELm)$x
z8F)D*{R1v43#-CLI)-cHC%R&=MoE4NBKlN)F4TW_<QyVM|1T!a1jZP!>pv#Sf;%v?
zhr(ax>kx?aMhGGD%gwiK1>Z|l+ZF-Hc3;c=Be9HD;&bO=gwwciWS~rG!rtcLHu^)%
zr{16TLj)!t+ua5~q_5cyk=V`;k!JYJTj2|c1qmU#Ay+a*<sC2es@tUKtP3*3qQ;hw
z%kgc80AyW%W%uj{Ky3U_HKvVHy}%Bm41;(l@0&*?X$2t#7}1*Ly1}uxXFJ2@<mceJ
z2zNRSWlaoPd8`BHjG@=~2yZVUSH8V(Ltre6N*^#fLQ=rkH8L0GZ!Nghh~o5xNRJa0
zUxkb?t`+?%ML$xXS3VV_gM%%VSt2V6c?~c|bxZFvfVkoJTtaYB6!qRiJ8thIq88B1
zspLo^z1l)4|KP0HyLEM)#4%kd5BnOD6LWpzDf#b&ttnhXVc|z`yd!HHL?kBIm{4Py
zlh|&aHZSu}6g73Rj<Fqg(sa7@*z=eaH*i8xDGbzdZZ57waEF1h3+s?F`>sb%o+!Ru
zci;ce5ubG9u>iy}J!e7oW`OofP)7oesI-oBFuysq@X^%d@*V~^7{e&$)n@-t?_5;|
zet5zYeB+I~5N4ssZv+Mii;!n{!+`2yNR33Se31*z%lrfTbfRm})f(`ZN~{<NKB==n
zd7|rE#}I`NzEn)-Li`_S{fHD!R0moCBkZMs!|XB@o$e6jeeQ6esK%TEnZSlJ9~$%h
z&s?yM<IqS;2!Yt*TNtE+A2Bt!R-|u)ki>I>Zg>F25@`egZ-Y)<u{psJs7UI!I`04i
z1(apeWMN6tEi?*JmAiM!%QvnpJ?h}Fpm@eP3j)ge=wUwo$S)@+Qdj?S-<kZwEDnzz
z!;?}lM9HuIEZR=M=A&0RDGmTrt&wGuZI&5)hM`Q`Bvf{}+`;IdKngdB9`u&yvY8M`
zVMG8<VF;fQ5Fm!?=q}eID!jYzqhFc{SX4MWSA^{0KZtCQG|ViX-y#R6#DP-fvNz_q
z2_k5LT?<auBnZ@fF_8i`+lnsRUB4v}Jpw4p<epOCf?Pw>=Rfrs{RazP*sRV&^s*r#
zArdeOIwdcg(q#Ul%Gr2L?H2pj7INQWJ_H(^0H&4^IHyMnDWEgHtCCZ8Ay>dpydbG=
z#;DqEyJKSxsNWRJdXP#ivSNJx<s<_=PUa(6c+<c3qHmu-WECK?KVdmL`vg-la$}@c
z2)tINZ10dGEJD8w&qw>ij~7|#^tWWh6TKIjo{4)2X+p`KtIRpu^X~RTut6qT8?nG@
zAX3jk{wSBXnWc(6VJE&3lU&k?f=3681fdg6J#qBdGeWkqc>UD=R6~5W0O~<lls(3%
z5<@Zw<f01!)sZF`5Y#^vXOP5o<XWFoR$YR36P<{npjb)bN=_z|w;-jwww0>8lAGH|
zdTP@xpF>mhkP5Q678yKVTpZn)X}gEar6hq6;N&=@tu=jT`Z3f(AH8#mhhSJTl7|^U
zS?U2xz2}}5+q!ptDZ4<ITEhXypGq6@L81E37~B|8IYM8AR#WRMPZ=o*-_XA@7+ac8
zTo)jUx-Ij^%a-52^Q6tce`8$XuoTpBQa{o2Ht-pn`c&dYSe(=vxv=%Z(qOW^jhGi%
zQ7EEtAG9K^?OrOVtpQV+sB6liTqQDWcxUS6Zej^uzNjPmX1GLt!kT}NO>Z51<W&s;
zgN#p>(M$FX<nx|IQ&%!D-x#BqNu*ln6U4HH=wa59ec3uz!miWwlvj8oB}j%zw8!|C
z+xy5ig9lK0$%HxSfWnVbL?@~tLC(oEVFH8PEFcRTw8}Hx)MS6e9<rXr^lm!hq(kGu
zHT2lvS4}uV+1BndTIkYBTvN;zyj<OS;W-G8{8gj{z@xTSY37+IQQttDuo-}P-4bI4
ziu(yPEPaHGU>pGKjc0SD7aqSe^)PmL?l<WQ8jkP+8$ALM9+9l1;(#Ftg)h0+eeXxo
z{)AQ_tm3dY09c0>@FPDKc`Uqp>ZvJ38rY`ikUo%>NeBh~hVsnQ$Usq1GJ6nc_4r9Z
z+4s={i37BAX&4_Qy9f+>Tl3sZaZ&|XZlF+JnWdSKxpG*1`M7a2ry`t}{g@%tfbt+<
zRf<#_sY5X}6CrjeagbQ0gEn?Vt02ye_YTSFvv?I{dMw^hp+Nx_H)#p&=*IEM5ASU7
zLK2)teacalm?J~l2q>oEZ@Cx971A|%oJ|$@I|zpU2VsH><6^)K!U_ProaE|BCuk{s
z-VY@|{ECf<ilE79-18ZQ!o3m)2!UIXmbH+Po3Lk5L)<h5UJ0=n@h%=XzeG@<q*0d1
zk49_dz6H|fVnLx|u$AP-jXL08(h$d_3JSB~A5l*R)Zym(QOiNf4`kFB8WdE=`eH3R
z(+~I;9CPn<`S--#@WefL-7oBWa+f^r6x2Gz8J-AIw<GKlW)Kgr5uh<4Ss<EjB>WSK
zd6#eb2E?(DkbS6APjtVHAzsrNdW$IuMktq!kvh&<z7`{x9%?=7f@wG}5@!!Gn?&+i
zayCXzgh3}|{^Ok>p>Uf~Sa_oFBBnj~nj5bwb8J&~xmD7Z)7LL-gtyf_@izcVe?NT3
z7GL_RvaK>GD2NCRlOR+>d+fp@huDOu%ZauHf^3YaM&A(fMv6oQ>=%oNdWNYa^^`a?
zhpgNHNIxR5?wi%Bl3dJuOl1p?L{*Hb7>!Jm-(+gP7Jw?-*x&`%!RSXYC#^V5hctb#
z3UYiFR-8yGvm?Q#0R$VvD@Aag$xqH!z_b!PBINz3roJLu#@u85i^dO<CEXBb7I*2I
z@3<vP3Wf8PJq*LRMl^oPz02OHSe57AK{_-B;pR8<2yJAGE`mG4$zmGN=9-6oxVhZY
zK}1)G9uB7~V_LN-yqTc8GSD$z$H5&^0h}?~B{(QZm-XC2pt2D~;8<SAM5I_~_1XMY
z83rUTOE3IZW2aERqf$ja8<A#x#3Xi?mg!B{F%hBP!bw|X5wHScD8Qq}h7RrM9v~qD
z(7L0egj&LR%&a4(0+oQm*w7p^i%}1ha)<6w>SS)K>n9{CqQvs!6MSxDzMjK)2+e6;
z3B~n&cbwCIpNgSS_~Y?O2tMQ3i!nvRpr+U3kX&kP`4t5j+%Sv#{m{H6WZJbBTM6Ym
zfk(jXj4(9;<RJojEXOC9qN`%M)cVhMRv9yy#F1aL$_KIwF;?;|G7}(K;<NyCo|C?`
z90+t@<`Og-!d*obyt1meR=8cK^qeIcG!icu)@|8RpF;HlIv=CI{|mRW-_zo^T<ONS
zNFhjB{OsAYSGiE;lCDySp$T=06@8Fu$`-SOwbcDRqysjXd&E-^weVse|Mn@zKv+{E
z0hva+3N!^7ycCJFaG*gkaTx*r43Hn<Rf7o;ap(B8w7|LxQ*<=cjF7G$0%W74ve~-y
z+vy^dFr_jpAp(@eGAfz)>P$wo-=0B1s0}hW>1DEvjHu|#fztUx2@8hU+Q&eHr8aFE
zjCO%Ryf8o+z+u**Z*7b~eBvj2SXZ=*-m>6LypcE*plU$Mp|thFa_b(Fai4$R!;k^V
zI5tQUn&SJ>x^h*N9Ks}x)EzucNEDEKGICN65ElsWBB}!%VAAt8g~G%HK9h{QBsBD=
z#Vt_iL!t5%FUu;lUl)X<Qbuz}%%k4kUfm?9k#TT6anCC!Oc<0cuu^@%m7?xxV9tLp
zCPoamfj*VG0KU))zH}Z7@73hhQnPR*#eArH_ZMm@G98MzpCO6gnAL`YF$2wtRs=}i
zx8cw=7yQD{;f6^fA<V!c@wtq`88!(8=3`g1nv+>C3+e^<Y7lj1l%Nu(ro|d|$nX9?
zk$^G2^{a8H<5H7R<P#k1ZD}xG$XOIrCvavEXM~Hj%-rE<B7`o^6M&)B>;4F$fI{dd
zIGV>K!nv)Ok<oTY4Iu55@hT&eFtCnzp0;#l|2c+m%#rUt<=0t<w~%BmDMoJe2fPl7
z$Z<jJl(7UM8Vq?f`ZUyvFy!IkApSS=0lRqm$){%f<1Y{}qAa!k5wwN)HG@7RUX#Sq
z0NSQkf^M*qgJ-}!(wBqwhxfO)YD0b2NM@Ar@|yheAw<pC*cpO(oL<2|IX{G=tp!hU
zp$8JQDA9lQd?xf8G5^HE8yR@lMmk<hhNyW!K~S}sh#8+bfy=bATq6T%I<dIKnIri?
za(L%`R5d<^V53k;A^(2Wo{}&vv4+{Ye;+lP#CIuwHPks2qte<x=~9Y{79ci?dRadw
z(>4eGjYNiNoUV*kgr@)87vPHpVY3<fB*?UAB0hk@&k4L{RBr0m&XI9}ggu4I_Ci>g
zUNmVIhbTn@LQLYl74bp^vrmaFb=lmYn^<TWg%T1P+K*Y7%@C1GW5+<tB?VoJNlH`4
zW1dftON{r{?*Z=ObNefN`2PmfJOOo<F$2ZD(M9SGc*&9n4(^}m=n6WH$`KZm6lkyv
znloFMT=*xX0;HW;?-B1%_s-=tx8MJ?J3fX)GU4Quc?pNxf%_H!sFBZ*xrrn{iJL)m
zT%aeB2*i_lMnJq0-z<3o+)6hZ+@|6r(tRYf&QPpq5)EV;$+^)7(~mh8JBpYoNyh*y
z8l#L4j6G#Q@LHr<WSCfF+(v@>6F*gTzT=~d0ei)kmU=(|fx|p&Z|0Hm!Lwv$01;`!
zo;V#j-OK}ZCIPH6nC=Y8=1V&>uVe<SGkb-aw+J~B&bbW>Bc-wik=g4*{kGt6irfYF
zk$3z*A~Q7^;d%}$YJti8M6YhYU#)H2G1C=z|L}*ChnF7K*~`MQC?wM<oT|#0Zz&|4
zp40x8C(<HKFE%XArK}{^IOVfQ^K>S6%)of_S__%4VdfkWRAF`fs?zIh+0iZ&3S}x&
z_dnfEy?%SE!q%FBzurG8+;6_~+xc!{SN!Na4TzXG_^m11o8jTiY-${`=-$Axw?l%m
z6G63H)BuKI+UL$GBjrr|KDYTEFSB{rCr?k$&p1BxSGEE*<==Im{rZOe0@SzRGQU>@
z&oo%_e>)^`QkFmQ`*<+03yEmv1({6S75=_=c3G^d+xi_{T|+<hF;UQi<W+<|_@yA`
zLI9O6VJiM3O>@oLZIc}_Jv~ibRk@aZ39{p0q~|tJ1YGmx#}t@5(5+V>POa17LKi32
zGqX-~qN`!HyOzdN^fjC5(5L*Bf3=tFPI5Ori>&FrpWw=I(R;G_r|+^TFx?E~XI_cS
zKsv&#TuO(F%pQT%jvc<c>&%ZF32r|qh01BmJZ2_8%+BV5gznbPQzF<CREWM^Resex
zbO(ag-gT)GJ?IoF&=F?o%`!5t(Moj@dJ0<rjue>-CEz(;LKPn~NM<SWvoe3fd6%rH
zB_fjOD8{lV)kF$w^<#T`x~GCAdJW5u%54<)3I-KH1(U~O+>{4QHe_tr2Uq_tPHFcd
z9!|D<`js{cOcN`Di)L*3_u(<ri-<6|IXg>{YlBcw<9mztCHl#BJ{gO06yGE0%(8{{
zV=99_ogp*GZEkK(nU#7uctug<OSebGz__HEyMX~GbgaJ-|7k!-!z3cS(VZe3AwqT=
zr5y0$2yD7&_1Z#g&Ow;2_B%?KzwHY~FGHne8Zuk-@IJkFvya^Fi2Yari4t0E;mXV6
z=viG^mt6k%9meQnjRWt@(@gdsoSHa>5QH{&)3S*IwEk?nFP!t_$%aRBPR`D@a<_dI
zFDiW$)lm-!P!d?Zy7O!i0F0|QZ@!-NvhWRP>N}HZo@O2^=jdHx<z3QlHFMm{b$R{Y
zgY@x$3l;Oj7quQ<qi5LP@|Skmex$K9)}VtmG*DAa@n+Wk`88E7O`p5zf=;sh-qL;v
zzT|zU7xqhveY?NKo*9$$7^IKnvMR@~pp2k*&<=2qS&8qqVyn%>1??SVbc2RL$8yYn
zR|(B?fc;T5G~{AZQ`Od9LdLz$LQDP{=5N8|!FVHYUo>%Dd(l|)^*XxVwYr`|^D-=p
zkR@I~9l!<z5saxS7COXUk$^<8Kot>mZs8DsAP-R~J^eM1$x{%zVF8fQzh*BS4dR9P
zp^Ur&m7Hq}4=-<M(;?ZLtTELJxBAAXla>ldC@S6z-m_C&XlA;kUUuVQFKEN`t*xU_
zaf}z<7iPICx)c?Q=DBn86yuf>z^hj$Mtw^%TL&4^9=;IP;le!cOE?}pcXKHyDXqnd
z(?BafbCV|D!}=u8rF*WdVVcxr_np&bo}ps}?~Q(x+T(ZhS7f7~D4U{SZN+(?a$3Tt
zzJE`41`@zStG>t~e4K2}W%Df&B&g}4c8q6U3><Vh)F{e`E8lTyEeAw?5z>NZmIw54
z=GHr)<Fg8<tt{-Uzk#2^I^n~@AaMA}_3=#ugNFO*EBx<kr(8@7hpy8W1g7Q03=mfR
zBS#{^RV^!j?CymMD<30RMj&lTC@mF)L|7Qe!3BssCkB3VVY@prsg>hPIQaNT^(?48
z)_Z0bI_Ye1_%mAAnpV6!&v7xJi8k(=<xtCe4~-<%E+67mq9FMZGPO9h7>|}Yb5|nG
zM^VsQQSkHNgmT{C2_tu}^&vjnSfLYO;AHWp_XN&s7tDpJ%syy&UWej%>QnrD2ufTV
zOo!hYIIoD5r%`63G;nQL88HLCi$rim%mYzGk+H1&yz=j!d*AA$_))jNME>9oe<LZS
z8M0&mw@F(S^9KnFZ`#C$3Ze?ILKOORa$4%QL6$X?HEf3c_GZ1Gof<Spe}<KB3H9is
z!;+HMy0(#TeZ&E+hXw`v+WOA?F?%ih*UYNedy7b{bZ&00mct6GKonKgXcl${w%OR+
zoLEw_7GESI!wx07goFh3mEFaNYTNC1t9(mya&n%T?H>`<sl>5b@0>s228fk|i2*mu
znJzsIYym49K8R_04><b9eIMswGAYaS=@dnsd-Pt~hl<SNOSU8Bviz*!k&%1!^djZT
zFWN-`a7mA#A!>N&WjRjm(|S-pFs^%qIj>bIDav8z=-DIyrtsb>X#14JqZ552chQb-
z?u?M|GK5u~M@ruXb(~Srqf9hC3V>MBL?dsxhmY2;!oou8eBnIa;tI-Kq2lQ6<8f-{
z<^t)^(okZxGBCkf2!bmX$7)%qw<zUcoDIy)zjh4|43@UGwubF{lQ=FRx(qn}$X|cO
zD_h>tBgLW|PG0XAF1B*hC>>$)t9jmha{Fq~6AfL{jy|l&?;M?+`X|pJ+mIEwd`IcZ
zojZ3Dsw}?%OGG%^{zK+zjOfy6QO);sg?<%!-IQ|t=3e_Rrtvm`_p3UFDs6les%Rf;
zs^v`DYm@xu#WQ`R?eAiG;jmy<E&cBs`!8FY7~65gY|I0da-(%#$b6R3N<nln6`<>8
zNk*%`wVFMmO29k%R+?E_UWPx8%*@-8aKJOG8Uxnubf-X#Tt$=}{+ZD#FaFYxFwmzb
zyWbeWmb<?OJdQhP+;hXRv9T@3<LP@b)N60qBs6+E(I0)xr7S%0_8P<SW~&1~h34Pp
z?am9k+OmapgNR5&Tt7p``(pzWe=?E!fv0Dte5|j35ORIqdJQ2za%z_zadAoGYT)JN
zWlmkm!~l>$2~sX9GU(MLbTT%BcJ!a>45Ls%^-cO%yXLKiQ%NPb5Ls~h4h4$K9-qG2
zT3^pVF=%NHLPC+KjX;bhk;`y4V=6glVX+31ArUj<;cu=xWGwPI8cL0gjSYB4a$mei
zfPb@#iwh#*_PcDr9QK08mRA+;-yc|I<MTcL!vpso2i9OThKlSNr+Q&#l%t~~#r;`z
z;+K=m6!`H;F}T^=Kja#j&Rg>FI~yG*I*Jv>($V|F!kD3Z`*K~UyA4EnX3vkYQEYI=
zy?Oh#KbsCTCG%95*2%U)9wZ6*7}>QhLZp9S08)X2<z2sRz%ntE`1$?GE1P4JiCwNT
zRk32x&4F>>efM^9B1Nwt-YEX7kbiMdG@4@h@q!|hNhH_PTi)N_KmD!ws2o9g-X6_1
zN6pAmQ1;wJDR{TDi_0qzdj^LNeHxsGtOnW-HVCL!)82+RiiK5FyomVNcSdP~<rv8x
zxOX+F6j<XR|6Jm?gOc#z0Rsvb3dI6ajHxpEj0&Y3u<gh&eSVli#Tl`223q%Sr`S*8
zI?*F&a_Yn-4xG9R_d`W=K((do?c4Vfgl;I2PI^N!_8S@Pl2nYDe1*c{+wrwcO--Nk
zPpuckP;G~x#epDKUII{y0yxQn^Kp}afB>Q3;bv)z;T8e&=a46vVcz|PiHWm-R1i>h
z-v1ydzWgz*cii{g-5o0cFYY`y>mAj3!pTVz!2OM-oH<+v+<Nxzn{BZkA0H>#X~uce
zJ$o2|v0iFuFhr)g!p2kM>+iq*7~Qw<%8j1*mcxE26r)3#DVgZe6r+^@>2rtHk0GDi
zWW$CH>fD-Qy^B9O{ODKRtE*dSO`kUX^)+WXc|}N$Xzn|&Ub}WaF;V1QyowM|-`;Vq
zLJ%UhC_Tu{qSU$Y`n481rkK(8s*YfqcRl0pb<w3*-Rf#;4B#1?2Dc+}dJh%!klQaF
zYtY+^)E3PHS70u^J+=BEUX+V8uU_o+`+`wRfVeL8Uo|@sf8c2qI4bBUsW`L~o;_R2
z9>$m`A%cjFm#B(N&*%jklBPSqQbH#tCX}lzZ`buyrCS#1o0z=5R;+P9WF?ODGghx<
zZz1VluV(0TYtQM^ThS87KtUzQ&cAAAz?v>lHq$m-*hZ@3oy5W0R^nMoNr_Uz{?|6w
z(MUQQpPZ4=k}t4K+rvW+#M0N+)*P7&>Y@>e4O>zDjN+WRUK0X#L4N!8&}|KdY#vd2
z>9m$kciAa6b#Q%u1iv&iaPh3So(q`$UA=C<=x)4E>^SX&MB1-!1zT+zI&F{&C7^ZX
zhr1GP4c4-^<ImegRoLijeJHX>SDX85;XH4f`EB=SdTyXfC(`4G_2D=u<+p7^daFg_
z{HThl^ZGw4J8`t&h(!?Cv}u!htophJoG%}GJqnn|vsinU1vF`oY!DOk++8C;nf<w=
ztO9b8-_Qpy_RlIKDFxiRwtN#yWat|GI|4Mt9$<C8d*>pAeprHTfgRXm?VX&ODkWAc
zQkuRxG(M^88Q4C>c1)CCGYsmu?|^WAwJ7hpFJqJV_54rwo%)9le;J;`ivQTy_|l+Q
zgHia#wTk(N=jV=SPDOG2d}D){YN&Cn?y9)tz&;KpV%JSF8~4u2#n=juo<5z-SK>4f
zCBX%}Lq^QSWpnVfnMLj)eh$uzqd6BPLi^4Xx*kz_Q;{)?VQ8Iac6E9bB)T#U=<fhY
zeh+ZN?cyE$IP_ay1dc#pv}Zoh=*W@P+ZZsqw;VnO`lhB~SFW%l=X+UQy?*!Z-A-S<
zIoLwxLo1Nh@kTBNh>j!@!2~}Ul!8~GoH7t~lvBz+@N^IH@AcZRu?G)LDXe3DB2OtD
zeTXEjMmz~6d)=w@<jQNie3zf=)@l1u`>>niRz=2kBxe|+{TnsQV$Y3Mu+Am<Rzh~%
zg-^a41im)!jSc}MlaQFWNH9v=rVZD8YIf=r>+0>S;8S#K*NPOr>=~`-8C8oGWeK7-
zH#ZBm^4HjA!ZlD{VBzxK7_IPza@*js%Kn3MXPZ8Ug(sB}WA|B1c)uXb62QD24bMCn
zAbth?Dq(~6;h~iK2bMhl!utHnnoNsmQL(9*R;4#8=95B#%ibN^3gRUE&mRvw%Iww_
zR|9SXBcl+In2!3k3GQ0CPD+v{(W1DYCD8m1c@`lE_@f8u)^0CXvw-j6p>hhW>`$!y
zy=*fpY<jczWweZLmEx@Dcrq>OoG2mbW>hiXuRpQQ(>;1y1W)II?B<4sAc!g_{VL;B
z=K2m!!S{T1Lx7?1f$Z(x8lOa+&98|r1>U~&++0<M+20)(Cv=*34fOV^8XNP-SQWG6
zwX$I&0xTwVrlY(QjCg3cHd2l4ok4@pD%c^d8%%jE>WsSfHFQ8h?d?b9Izf~Tc^HPM
zSLrk}ulQ>=u{~&q;jXZX`{LI}hsEE?=6l^c>M}wTb<T>qp1N53Ixm}s2IC-17?+*c
zJ^}god4|oLp6gf^X&A8XJjHN^?cAKWZ)6N@hdJPxOYjI8kn=^O0cWGJNL$Ujcb8N(
zD*&a#!?|}-8Pv~9gf|f*9?o&oo$G_=w3m3zlaiNvE>VOQ(?Lyi7+cKAri|H&>?g_~
zSb0!bD1hiHX{w<SY~WUrQQg(YHM?sKJ9AlZxJ1O8y1HtJ*r#)>p%I1ZWWAAb2Y9vC
z$33pHq(nelSf;jw0juFw)(Pusgv7n8?<^_azkmPRK}Vq&HH|DX-hJJ$ANuu~i#51;
z)i`eGoPiYsV{^^=b934=_#!KIfrq5_vb0<~CN{wwtTt+pi87q!gi2I(Fe!9_N>~`s
zb)rL%zIEc`kS7Lx>I;#GAmJY2<{JEDJuhl(iL{mFG#FbhMMJZ)cdXvW*|JM(KqOah
zoko!g(8Ua{s@W&uRo!`Gk4ED|cV9g%KWkl)2$u?`viVLoiS?UK&~CjyhSHS}0M5YH
zAKL^j-`aZoK&-vW$I8CRuSm=QzkmH20siakiC2)B85}-*@$Fk(vXxNgTxjUI87>lx
ztGKqka+$aIzFQv$mU{(?N92RUuH1-Sqm8buo#^_0GsDHn_M$z=T4BVqz(O}=33FNf
z`Yl^H32sZ|j|*F4<pome$T{d5F<t3=VJ6G}qC`0J@#Dorp*GEW9mW1{OewZQLy^I6
zw*wmFRBn9a6Uj_7<d{WgfgSQOglmmpqr-<+p^Lv^cn*o4tli6S79$*t0t!=?BO{la
z$xKcSu9;^ZeRaDLEjhC248bw-FgKTXaBvW*J4|2p9y}QK%C5dpLsMOS5i%(Cc2g-l
zP=Z^2q*vcRAWqzrq|INj1PN>8?-DUwS!E-V*nWX$<YsKF*Q#s!78a@dcs<~oBxo(W
zSdH4`qzRGd&)CPD^)#>AO?fm7@K)E;(<_@OLOY{~5hv%hLRMx*AUuUw_pOR=*2%K5
z8gOqxMx9pMYkc<X*)s7^Mw!b-%^vc<urxn@{rWW{;LhE<r(ietqq|%4iG)bQJptRy
z+U}rNcIPW>s8}n)EO<N;$rsuZA8akL%3vyn+@*8YS45-<V<<ZzTd87Pp-55V2<lJq
z!}O>w^ri?=`;pjc&sTm`2#0(qth(!bo2#~q%O;>^+OzBi7`DT|{UkqL!%U8~SI1)J
z2C%H^Ux%SnHsBl4jSfNfg<|)8s}%>En9_v`B+_qBXXWJZD91;wCl~W<zHeRQ3UdvO
zYZGn5=lGCyd&4_p`rBFHP6SGt5{nFH-h_kkdJPy5Uia^{1LJ3Je}3<pw{>dm4>Ir=
z2Ns>BF!nT<yeCTiVmkd^!ke5O9rX+DeB8EUM;D-DAR{L8gNxP5flrfq0M94uK9j)>
zo4YI`5yz6n`H*2d(RJ}0X3>rH3c}wJYx=l#o7EM`2oa*Jo&9xOCAbNmuIeHpE~rV(
z(wb#5&ZG7c9z#sWk$PEDY#SVXzC)b$5@6!=$xdv?;OJ<s{lVIpC)?Pxv+cLH;)rj_
zoiItre%PRY|Ljm8igpP{RV0`&(Yk`dMccUUm`MNKJGPnhsOF3#8r&s2<u8Ya-h*An
zGL)I+kdb6z^ngXaI|G!p{5xFN0M@yRL<;*}!vJ4YVV8Ag>75_67L~D>BT69x<=3`D
z+i?oxJs#lPLlxI2cV`E77!plYJg%P)bu|rGeXMazVL-IqwmDNPt1CDp#|kX%?bj1j
zQ`#(3IJJ78Mm>ot&qzRK)4>6b6BB(O^@ZFbiMN_fN6=}AMAim^)3U8om#uKT1L-OU
zg;w9#$W+wEUSbsm#g5F%sS`R+KS3k(pyT?}MX}R=oLA|$G&eKz47~+v`WuaG4<MEd
zG6t?{gHWw>(X1Q=O%_OylV4vfMdi5%5mjI4XVlu=yw9Rh#DzOjr<Rl<Eqm*M&d-oi
z5OBA@U9NCDgW{hbZ5YiCV=zBof*A$t2A`5aZcjR9?kV~4;`Uj*WjHy<wJytk4!k|<
z6<VQDzfpu?7z`;%#-L6I5(<Eq)8JA=-x+ig;wM9GH!bgUe22SlS_91lc{9d%OgJx6
zeg5SVj%|(1<o2Aryf8%t3)rz3EiOiEKtnuAE2=O{cvRH!yHbh#JO}uHsT{WGaWK!T
zS|^~3d}6azaX31=9+Z?=9^MW`{l0kRwV;Rxi_q92lBia$GBv&;3xg)LW~UGS`iUfL
z^sjvCtrr_2MAGxWF9S-pDGBRZ^~8ydtjvRjjacu_*%^0`N=r&gy2EZuCg9HdV_Qj%
ziFnJr8(}ctHnZL_<iJyV{(X<+npD~pL1F3U-;IyQQ#~sT#%{0(lNLo1*Qs(a-P*U|
z*1jh)6)^2#?;Vz+%TBG`1xIRGXzWqLr09L_J;)yXsiA>6voIZUqc<~fdFPQ@y8qCj
zl_VNsg!-AH_D=VN;^H+iF)_EcIh({@o7Rwjk;KV7Fg`7#6oS0UQ*5uK_2_oA2l=Ds
zTPPH5;o{>o?`wFwbx^QT>CCM4)L)0qxqWAL?Tvm}d&d5jFw5IV+X*<UeAD0ZvP<x|
zQbXX&3~>3rII*v&%@nR@sZ0nsSpm&BstyV|6*)PSUn31wQ4s>xekCGhDf;6hp<dbf
zC;-FH4NOd)cxXbf=3G@YT#Au|oQ)IEa!ut0&g7}hSw0l^KfumDAAe+HAxqFlF_s}k
zk<Ti^%-(D4@6Q%^W(G#F_WZa20OOUNLHih#1W#gB4LX=dW7pCe9PIwAevT$rlsI8u
zPKLG&44TF(MaW<WB}y!!C<?BKa$vn4)ol~FV%0C`0ROD>kXWNf=PdJ>lIplJPCde{
z+5MZ%Gg@?`iz1SsDQSMTHS9~;q4T*K=Y~mktDvLgIG-H!+-LL{y#6Mf<FS?qV9yEF
zZcS|5>F;koZ^+}Ml-sZB+P7ilC9U<MI{n+3CWO|$yH-(;y|_{QM2VG~nQ4{A?#NeM
ze@c^|X5h3%RlJkJTJt<7>-E4mdq3?EE`$Cc(AqIVDN&*l{tY`{%NlUUP-Cm*av?Jf
zPYl0u<;txUuS4bNo8@p|?)h1pVwHixq`~ixF}iQ$81q)t{Va8Gh*z&70|!xE&vM_R
z-8SNR<CMgQX==xDgv`ZVGDl><>U(bQk5<NWVMUY?l(2SyllDl;Uket=jlAgMTVnM$
zu-1N6>zJ>SqToUO4y7}@?*Cac;l@|5z<TU%`1!{z1B{E>D`u7Ck{7jOI@nV1lA@FZ
zoHkH3J9R9^hUUEXX+{W6MgOz_l0Rw{FKey;pG>U#qv`yofpI6JO>E3yqttO&l^sat
z=H@PU%F)6GH%3wOBEGg;9Z4D*0gTfn<gGIJfM+6%Q>!|u$i;MZ)uG$;;JOnYDidF~
z1VX_^76ZEMXO*czMfK10qYMV3&jbnjQKDN;B;{Qo4NPWaNH7Z*k-0@{34FOZ*m{{3
z3gRaR<F7#K#GDfVNd2b^J8E+E_Pn&T{i9UVXi+3bTtq;c_ps1&*IJl0g#koh-lD;M
z!@bgmUem?TeBB%Y=Cp?g`8Hd^24vYShGc-WY~&1wk}ur5vSe}D{DX|yr`28cNrn+7
z2x*}b5uY)8Eu*s>aGoqe()+TJu+u)i^7p2upzA$_y(!qD7ac-!=Ja%SB%|GmavF~$
zw^h<U42tkGA3B~~cDkvtk%qrq4Kc$N0_X56c!&~_E5I2@L9*&}*de!Rk^yE0YVZ3G
z+71~R85^G-!7?CO>|w#z6WLB7M?}h14H-DVsNm*i6HqsRhM{qSm5mTEsZWLbD4pX>
z@^{}$nluDLpXHK)zUar6TA+XkY(mb{rXT(q@@K}xS#N4HOg4%H*^Ycn^ew-O`F|s}
zO`YyEsKHkF(jUlGEFnvSjg2{&9IS23W%CaMx?5S#g|Q>$0<ud`yp?qHm?hn1QUH1m
zZByUmxdkMB(;}Y5PqD&KaUj1^3#>~`PuKGF+=iB9&Q9b`m0jb$o#Vd2ck~;}#6kjP
zf2kOLwvm-(y<%HD5wh?S82`jdDSW<OW8FNfJtsFMwh5xx@?+1({eJ!daIs%|Bo5@^
zBL)q~)f~$8G=g=LY%^yMzbf0$R7LB3<Xc{3U(KEqC`Rs}{_2C40b2}8%rR%YS!?|c
zAE?#3_n^SNGrQIjj5%Z27q>`app9`rN?ID*iL%1NU3jv9#A2lSRdk|(ERbB@qS%`g
z80xX-tAI%JZ*$^C(UT){Eu8tbdlhZyt0t~r5lC{aOwqnUYaI}Y8uCBJxo0<siY5U0
z$HDhD$r^Fgh_0MygYG+fLLy?NPk%Fc`U!{pi&~8k#<a5aR~({6A3S`xXLS1RojW6#
zv7GSuv6zhy*fAuOr@))T?A9JD&VW;EW&Oub@v`}&duc<y%(W`Ng4+X6)~k|l=B~os
zfei(uUQY6WOH(o0GjFdKpK4#e>=iT(96~}-fFGg2K2x+Gs4wRBWGCGcmbq7NXC5V=
zl95pj9==F1V-B?y(BOoEf>n^G9e<;zVer1|x5Vg*u~#ayD1scFo%i_qPE(9l74eUN
z4#I*_2Wg3Hhc^-z-Sgkx?bkbSfGlqVW8(|>9Q6A#{y$8}8;D~HH7>kAw)})>(d@VS
zh);blA*^W!36cT$6q+-%QEnBnSjAaieznRbtcn4tSw>4FOy6-9r|CtSGjff59X#9E
z(jv8T4<62nmu(AIVjzy4j2W5<)fuzm!Pb9{%kp2ndp8o=@ie_YwD4{KjWAtejX?5b
zy*IRH+>I<d0tvs2cK9#XW5XT8|1sGFREJ>>jCXk~n``0%CJrMPqEG}e=#8IsjS-=Y
zHRM0yc>}<Jgi&>`s7^H3EUw7mMFt9tx}Hy&c8Tqm0as#+oCk{4q7wm{P7}csPZ!FM
zu;TdUm93sXe|rPrXP{)7NrUDPK-De3Q&V(5d`Q7ra>59sy(bp~MoB3^p+LyJa<df4
zN<<<=f`mbIR~(f?8mV?zMu!UyndL8CJz7yba<fVEF2|&#ENHqCCegO}=|!DAPW3YF
z;kQ7}jng;CW4WQw$4=6;w6s*skGpdx0yCg4@ox#bF2Tw9OaeI|@%{-Z!keo`Pf-M5
zBCi>>jMUV91tmyCQN5ENTaX-uC$boD7crFyMrq$}d|%ea7;G)z2-@@l05GUkP{BZK
za3@e`@Wh`&8#FW`F}hscRRLuz>g6wk)7W^8O-<{hq?V&;uQ(_+e6Lt?*`0H62l9q4
zn1O=cSuxUfqWbicT1Jc4%=z?$1l5I$AVrFCktlf{A_Bre!V=G|yf#FkfSqODeVf}L
zaA^?r`*%B5A!RaX%F)GTF#B@NQ8dzWlFk&h3+F4BDry=SWkt`A{`H@Nk-{mMhbiZ!
zfj(BD|2+t3{NSf^)xbfJ)C>c8O#Oz|dC&OG%?OQe2i?l%Oa?tj;0l+}eN*8E&#-b2
zg((#93<Nd7F(Pmh&Bix$S^!U?Du5IKy1=V<?g(sKXYcQ?$fU+{!fp@!+L-xH)Ux`W
z>4=x?kY88A<7T}X4`=;HaO_3kPrGyJ%RLXydCu19H#apsvt%bbj#INBPHWazF^*bp
z%1%YH#cXUy2qByYRVeOW$UN58ddP{4;;qJyxoa55dOjkk>$i81Q*iwkkaJsHzwOL*
z5*Ar@y+0#ye(SkA`<|Q|T<x^g=ijsR|5tG@N}pzwxuEkW#C4uQ7H^dm-VmRMsXIW6
zeWFgnaAlnm9l4v6lhf7f*H@lTo<0~YN&+S{RCxJRq}N|gYJpSO<0um0lw78cYUu%>
z1PX}Z7`}=)8J|-H7H<c!H*;zi7ImW9Ya7{e{5<x2vGk;G3Bv=jm)cy9kLYc|zg>)=
zgkBd-{npj2%<t|gY^^jNPcJA?NDX+nj+T~^vd70q0pYSJbt^xsgtYWaw9r0$a(@Zu
zH5Ei?&=$q$Af?EZsG{3>qOgP>-T|H7|2$4MPUNB{DLf`A+iVJunDPIXqUW~_UG=@s
zrFrMuP-e!}mXq7<!4vJ>w{J~&wlDVwog0oj8BT-c{e@xI)#IQPaP)2h*S-Z+!F%x+
z>qYwafd+#Sh;Dfi@=_vNDRC_$a_$MTwazN6b9Qp7glz<*H-I-r01{3V27o(2??*T+
znHQnR<KKFWmEfZQlGU;Hi=tWvUV()gLBd4hDK<<#RFi)Grzd<%NLqtDm>NI(L)=yc
z>KGI+53p%a3zyqvF-cFZIJY}$)?q}?oQsJ8j}i2mx~Ar0TrrBN8{-Jy5YFMbU5d!8
zKe-*{lYpd@lpmYdTvJO6w)5IsJKU_IM#0aYP#dRChOTy{B9q4+2UJ2u*PbBC&o-;q
znW)QCtx5zaD90~lXUl=IyeO(eur@j84CMWuGob0a;N|60zS<REkNPYV%ClKWgoYcU
z%%VkS`%TN#fuKXF#2EQ12(4wd(Dr%*hAFaeWu{=;ZO2Q_Lh~_?;J>r}WAmXADV=D!
z2X_N|2hQwbR32Ta`IR6XcoBeHUgYLhcKya9IMb(>mV?C~R_q4IDI#Vp3SkHq7EKue
zU^=M?%J!HK!I>Npo<uit6T}#_5oo?CRJrJJ47FRD|H}^id_Gj>jOKE1gk3!scVm+w
zLiCl0h-K1;vme#D96|LC(L{OAXy=o=u9eUfTp*f<Kul4`^pG&H1XAmA%l<>(AxIEH
z!fh+dpXvYC1A(y^uhKF%BPFE@gjFbJ;g+?I#4ZGwMu5MlTabHPi;KGgfv6pnQAA3G
zf|h(Rx*`Ew;YDYPi)-Giuu(<U47}r^%(uld7hXJQgi#C$Jct2kn_jhZ&6RV*Uf>2<
zjP_`77l!X+EWniARLde>3{zQw10oAbX6pETzrl29xj?r?Xl$I@5S3(^X~RGkBe7m<
z8C02~F(P3?-}{md`ut=}H-e2fd>Mb23<s=0*8-$Xd|>LIq;`}As!+=>c54`DfQul^
z1!>wRM;6J10YTX!>^dnC>Kx?x5;YD)O8i}Po@9e8@J5K^Ec+85V9B;uo*#q++SJKv
z<X~FY%PS7t?oOOAQnRHe%5L7|eUX=^{hpSRoGf{7w--D1k9$!Y%%TAdtHIRh3BxWZ
zzrstR)6KFLAw~`6EE$IK4R#w#2{Cj{@?i&AbRfPUGa37GNE=iIrL_Czk-}88hUEXe
z<4my-;Q2)o6iVTk9=uxj1Ox<>XQNN96Vkt_FLmc$E2}J=iw0U8O#GL%2<5YF8xKlJ
zvXK!z!;!|5MMn0XuI@6>UaX<vm!7X{Fgkm7J6`5G9Yg(&Bg+BIdi;39kd%5HRV0|l
zo4L8$3G1<NNZ}14aV&Sudx!)Lg7tEUBQs&J2lZ>3o>(GFWUqK6y19zct?Z3<G63n9
z@j&pZy5*jJC`o^T6{}466he3fJB_t}`<7a)f9(Gy9_+%(H@b;|d5rn;_DOWnli-2h
z?xMill+g2NjtIh-wUDv=h2^<-H54&R1Lx2g_83`Y*LjHua9W^-1&npMOK}97N%OAR
z>7Gz+P>d*x&;!Ko8^yH6c<1$vPD-5ipyI(Sf9r83^#b9Thy8nY-#O^0t#NIu@Y5^Z
z&5VdljHkTTo!YsEWJ0o#+yc&CpA_)JARpmm1<Q#!v>Gp>5C$f*I6t2s5Z49>(g|m{
zD1U6-Ftny*CTDgVl;$kK6(0xoIxZ}?h)o_NtNHkr{3AP|WLeydjIuN1+eAg+ft3sL
zLZIY0-GWI%{N#z&sy-*|B{0=M$f}%joGkjpAcla(2<TxNp7F_!Ql;LN>S<|dQvls%
zy@o8Tc=pNf{rxq8-hl#;5A6Fa0DE>{%$nn+(Ba#(KFaWHfdvpzT@DK{U+4rVhFQ8d
z;c+8GAi?GVtN=aaDvCS06^QYvH{2bHUU>9Iq4jAM#w)d@Lx=zB#>PYH^KJDX%Hj{b
z7}HMt2t^hapkOus&p?q&z$a>|8*sVGz8BP6{whUR%bf*`#1d5A(!~Fh?vL7$;k4Hq
zf93dwmKN7MsX#bED+fLd_m>7}hChAX<XC-j`w}I0T|JbeK#_+QggMw(_0rNx-Xp>Q
z-KTTvkR#TA{=D-?I&1U5_*K!14`c0b(fuA-W%Tsi7t|1?<+KjI9W4DSJ9fNvuY&)S
zENF-zoXH0jP7AXBl`gC~+J9;_UA3xbbYmbN69dt$kU-d7i~e!<gh!8<(2qq(2Y+QD
z;vc#1{w^N0>oU6cHAE2Q5*kAZ14Q&9XfagoFj7W@0vdF-$Q7|p0@dpDmg;Or=cVd%
zs0uzmcfCr>TC-+K4Z2YB|A&vee;gQB60996ZG2mi5jZ79zh9AY_LA1aW-)yZ>`jtQ
zpUcy_Eq@~V$?*OA8651*5H4JWxwXf(PDD@<;1aaazv$u<;kvgx=%cgio~(y?lW!gz
z7<X#{oUg0$l?eE-G>>Jpb^!R8f+EC?QVu%u8qAK*>Xcx76nXFXT_hR+#+|Jd?)9eG
z7SK}*?jK*mqsd9MYH&|1{51&~DaoWT6^Waw*ExhaOs8OK-g!-1Pz_bTp#O*(RCmju
z4Ebf+wh)lycVa;hv_7_2FZ$67?~xS&YuT%>3Le(|QFl}hl_)njuI0Y*I3De1r+#y$
zCVLTEYrZemKy@TdS7KT?Buxew4C8g;8suwRz^UzvQ&dQmx_vQJ0QnWM^C}2{L)%!v
z9CDf%suw(~r|P55J;IIo4(7DD|NgF-YMztaas1+s`qGk;y>HjwU}N4B72vzO2oDdX
zXBa@o)zAo2sIYAk0Xh%;M5r*!UOhc>*CR;KyWrfzcI#H!bNVEGUT6)wcHRIA%ovlE
z!3I!4aHX#JS*^egZ^VkO-(ypOw-e)`Zz%Q0Viv6BKPE2#DJ<xrxAnGL(2%k*e!n*~
zVF2fl?&Zr}v5TaOJ;gmY*+2W#hnIMxWAj2$6?=9C>$#=}__OVIZQ=D=D6k&pC!nz|
zq364>&IPXLr$En4?0O^BFx`5m!Wu<8^c&j-tKjLCg?d}?h&^^aQOM!gszTO0;~C@W
z_2XKRx!~4iQNVDMEOR>6KirQlsW&spf+LvH74~+}#<z$UU`w6~+TR&gcux*@te`dQ
z{r=&{ik(2?^5GCdq0}jkUXnX(frEsSke)7+P?lbXa*a{7OeWa-=k4P-eM2F3U@w1c
zP);gph`<(Eg@cEr&<rClwttld$X-(Ii6bU>x~7x<AYv<5^>&?TWamC>mMj&l{k)-!
z4<S92VavO~7eapCueYZ(EsL+KCNU#Wfv#Gj4NU#k`=8X2mw@Nve*h%VD2}U8FMa!|
z>-UI~T<9es6+r-w5}P*<Z&&4EVgRc48j%<okKNgZJrKtBjUJ8`1$e)|M#uM4b93lH
zl{xO^d@`)ghRQzN?x}b_#R68*qUYNC&I4Cob88Vx|2{ovGChili!BB{f_`@BuKPTW
zCBvb~3B(M-s5dn=ec3P-@S{*5=V490f|gPn^udznafANyPoR~8{!L^J460EplNJgo
z&c(Hk@|BMA%>LSp2^N}73R4a?>cKUTa9)LG3dO1Xjva_U5~c)>(%4_-Yru{5zo$?@
z=39McC;X+%P`kYYh6Yc;N=WuZ%y{Z)DBW5c8y|fe`gS^Z_xyUpxyiK>=uGW9)rL%-
zh@vWvJ?|v;6WLZAOcsH2<3tJ94(M*-a4>TNgT(nB_Lf7>dGlH?qvypI1~mLizAv&Z
zl)D-g-VFBkQaIW<To(?p#CD=CdG%@|<G!O-89RhWV(345B_oVIcE3aq*v5xhNJ}3&
z$>$2Qy!r6qH8PNyk_<)bXkG|UNqt^ojZ+tdY0N~7Mxzq8GPox~4wXL^6c4!H{YPbB
zwaY;>1^=NmmG}P_Vm$b)^p4I$tWs9d?a{eJWlF8w1H2cgSv!yo`A8mPe1Gs&0}Qz^
z&9MM{hN~yG3>4j`y@%`sQ+kyq=d|hBYgrAZNHqhg-nfrgwhCZ**{dfLwm|@;xI`P_
zwDE@~UO6)IJs@Gh1^|meHcfPHkWTKOS^eoFBx$=bCryk7A38_XsJ5YdFmx#hAdWSb
z2VN4Ek}$mxQR@}Md&*L48mjK^=+7A%ois8vwMYE&##W5^SwBxi*2u?&pnBmX?a=b_
z@-`5rNk~amA@MWzQ(TC#8lBMa0LZ~lhS-qWl9hAfUe^N?PlSjXym)RVO=QY2*IU~-
z5hQE_A0f4avw}+(GKUVJx&##w)gg=n82`I6gC|Hyf}}%u-8u%;zTlQ`X&E=@<DQD(
zp;HWtOA57PZph0U9lL&Q^O*Id?+OylY|w-GC3ssRfjjvvpA(6=Iw(v49>F+L9$+M8
z9iM?tbf#02B;b4-<hyOI*Kyu}YiEZyR5kpWLLhhic5Y@cA3cEUe_vh5@WPGIXn_g@
zO>e4q6`&hdCdlwwcI`4P2`)A<q-PL>K`%Tw&U8^C;+Dec4RB2)Y*?j_jI&bxLs1<B
zfokMTer@T{EI@7Y8e1i(Fyijs{XviZY?A}Vg~Qt*v|R-?2oXpWu6<I9NfN0@)yp4;
z&LjQ&CBC~HffX@0M`pbp1a>jhlG0MEE+>gK5K$r9baZoTDdb*uO(Np0b8(w%Pu3;d
z4cC`KK<s$(<d5(a{+n>V9OFCb=ty(;v_*R3#--RSl3F_r9C60WH2?-r0H@Fukr+l;
zzQNUlD~ngLGJigqn>5g>JBMm8F?WgEaRgr|YoG@*E+4G~`nF>SAIiF@h^60AEhF8$
za&-d!xy1dSv!N8JA*FJ9h*TKA+KP7c4ze*b5<89V(v6B9t1kg@1Dc6s-qF(VWyt9Z
zrTy!@(@dm@&!n_vAveVx_*WN7&x$=OltLg6MfHQ)kp^KGTmC(=09n2MZJ@ojINam~
z{O-}-FA#uHUum%th5!}x4GkB?*M*^cz-%lelKJ`hN&QQJF)vf&P~Y_+wY%3Isu~<*
zyB-Cgo>_0iV_=%Rq?m$f?mKMI9p{ZUe+mUJ_7(h_>$@gMPBvLOS+e(r`oAR~yw7@N
z@!ve3tJ?HGx{C$go!Mn+wBiniwU7!252<VdbL#Nx2z}t}si`5g-OzMn(^f$ju`a@n
zDR~*NKsA6K7?zEq4`v8PP1>Co_rgk_v>gzAInf+cf!8T&I|eXi3g$IYXvf|QHPOP4
zJt1@^xA`AS+jmX=?PhY*U_1`GHz_S`&{U-zrN?8-P+p=^`3h_bXtA@vfm-Bggi}jI
zRYV&<z`+D9S3*)!_{u7_MVtXQiNqA%mY}hS=nL2unmfSt5`>E<z~<j>aC9Gyr|lo|
zVjWYgAf_q)cH)T@8<dp=0myuYHMhRF2@%)8gM!p>SljD{SF??-h0TkAHEgc)=<UE?
zp{CxpZ5tFl%W!i~)h;~ZMeM~DBUyk%4=afwU;fcK5Pu}@fA!M-ce~tN&`c?pVO28>
z;HGC=l~DIh{1sbPg%e9QaNZxK-T&(DJK(YY+qN$a?KD(UAzh-3C@s5Cu7(h0WRw)i
zsO(*uO1R{bWF)f5mR*rbB`ZZn$qr?2@9{<d`+45?e(q<y&pV#Sr~iHX|1*B$`~9Bh
zd7Q^_oZ*FU_Q)&CUAQ0uMbeyf?84QOF^#YF>s9>cPCSdZJF26zI6#pUNBhz@yRlYG
zq@m@#5H4;Vx(BCzi>RL61KeN_|D2rephvx}RCYJW8}Gs;n;9<^1;9RNrI3fC+kpNb
z$T+VfS{GFh<rm9ztbql}H8Pq(cLdqu2Ee*I`~~-_O}6`*nwuNouuKtJG;sHc#+s?c
zd-Fxf(I8#)2x)Xw{zNA-MO4O3wITgO%-RR}{HL(q&En!~0FYt<!A-p^Cl%>b`#=RV
z2nK{~hXsY@D^CYjizs!^B@G>v;M}PYzqCXz6bYOtyH8hMx17q)o`bBJfYGi)iTV&O
z#kwPh?+dTri~bb=tI)Bis3>8mu_M@GT6>1bBtBI&wMXa?Q9SS6yGp<paMKB^;?;_M
ztMJNDpETh3rBDd(J{`WE6*&tg<1#oQc~ZG@2_1<=LNDQ6vdm%)14zx`kvV7^G8hcc
zeiTH%Y$O2uZ$4fjjb;(}<JP`X?*UvuD8NbvY=offA-+OQ*>@jbQ|!>a4}OBLj@>-U
zFIUb{3P23C>7MD$o2LT5HtYmS3ickM=>h#DOiH|DZcsna#s`1b<;`g~H)TsXS$C*}
zkcpx_Hu7}`UJ(TTrK8W-6}8x6;{~vJ3V<otJ-m9PAFZf*@KMy_7;J5-9?yVSngf_`
zSd}|CJJ9C)JeWd|i22HWXYEbQK$7zAL-0*GICcBnZmYBVhI~ebtxN~VgYfdk^CJ`<
zLP|vGlyRrY-NS=is0gUE?wdzf?OCF?)vw+{OctCn>>9F_g5uB8sZ10?3_=r|Jd5`-
z_f}Pqj_##PnI{wz5y?<iY>pUfbe&qea&i+PQ`!0s|Cvphzq@+cIfoN#W_sDlDd(e1
zCaHT<(;09wWa29~VABH5*YsUQ#6UQh+6SC~DBMsCA1)Z*BX09cFIP7SBJ#^%b8(~g
z-K$o>yd#Qh>IU6T;{N(<B((RU$H$ab{hsNV+<N2ygb0S^^~7?MBwW2z6`0}~*{+UK
zoG|Yw>l#Da1!AZ$=rw(}-PYr@g{)U;<oIO!3PhW^z~1ra{0^<Wi_dCgtsgsm>AcLB
zisX|EFA6E{o~~^e5``yEI`JU7-1s^%fW_aoa=9xZ(q#VJI^6`t+K+slTjMJItj4v*
zv}@VuImw}AOK0z2GK*-nP)w!+_6w@6KELB#q}E=T|4(rNV3Shz<{K<)UXS!|Utg`1
zN9d@NAG5fg*2tc{m^o)cIT!!S?Isk$7ZMY*5R9aD%d73=0MdVTM~K&+S<^ax_w&+>
ze#1PMDFpN8&Eayb%sG&^Cp&n~)blMWuws#8-^%U|`qZA2C)eZAxPsb?vka&OAy6XF
z-Fcw%0_DT{E`Pv?r+5;KWM=4O*4!N)wrh+DWE}RNK0XvA|1=+GPcooT!B}Nx_70(k
z22_Rp*dftm>c)*B>FMg=$zlwt2z(6?2?p%zkdy8U4*9$+f$#`0?u!W$3O)eR88O~u
zB2+|VBojpfX57MTyCT5uCm(#D=3SvEvm$i)T9OCx(YJ%+=Jixi4!|K#(H#NBbQ#K=
zyNC9OP`Qnw0FT3`0_Yr(xV5z89X%pBo01M;1bI*j_x>zc<&bzQmhtED;3$^0p3a;T
zvPTFaLO4C_f`c*|MQmJE>p-splY@p=6Cy7+qqf>K^YA?D=Heg^(xyb&*VSK;{y%l+
z<m6=UIcLssrc+T6TNn*sXYFqDHC*C{n1gf~lEts>R(NKE0N*{ZCYYiGGUlo1Ua*lS
zvpEhZ*rTrfju}d>is7zEs&2<kXz$p$bHnc40HfeZa1!XtIfkqwQZFoeP2Z&=Ag1j0
zMw>}A?)nQf;L+G9t|}DXvn05(o#_O--*f%dnLqU3Ku7v&;PrD^CldqdqR$27Qz?c{
zd|I*B*-(!7$~D5z{3kk;?&7x|t=)iaL%2abi*w>$1(G&0I8+EhOvTU93qAqO4U%xz
zFXul!-P?DqEcIC5(kv2tE@Bu*h2!-b|D;nF!9u4lYTGiidyavNuHC7CwZFP|y%GZ5
zPlA_d!yE*LuJNY+E^4n|FU^S}KXZ^{x6SK9I#X93G8pX_9B8N~TYJjt4uz-X6-yV^
z+n+wKpSLCxFnfaex4q~y;6UNRTLTP^9+9fl%f+b!MG=@kbpA`o*Z!b_xNs-7@q)_9
z4qhML2LN1S?S1)FUS57q1}e1ecxGM?A1*}nMEoO~zgr=5AD7IfNH9b`pwnw88WJ1p
z&dJbMS5cvNhk<J0qpL&yWf?TK((U=e(-@{pb;mv}E&o?5lp}uVf2pmNYPoVl{Rs}l
zNj8L!0fvPXTCu>?;LT=GSEal1g`X8(+Q0wCD<7o@EDB6z2c!j(DI(O$*n@6t-fvjJ
zhnkZG`u#D}fiz)k;fve<EZobWQsEEb4KYR>q|gdR9LHIRf)Anx@Ijfg<ycd2EP2!E
zP?#>LFI6%ciaCBHmYvM(5r=)lbPE+*>k79=KR_-DrXSy9ta<pu{bq<y8<QC*eYG$Q
zr}%0LVJPVT(zwHksXl8@%Y||@mln-+Xk7BS@nXVk@Tun_G{bCTGZUGDj^3MfZ^jr#
z5%^T6)mZsgH7=RX4CL?V#CMf8tV$O(I&~!5Ns_~3U&S({3wC+-$bsRlirT*(j!1c^
z);;p`^G&rxp{Q97ohY-p(TuRk4%cM!5+Q-z{0f&0t9%%aT#v#so?e_lXh5v(J194X
zy3Kg1pG5S?psc?@Irt0e*7d=>?}1bkjaLJi{E_$*v2?C+>aOV+8ltWz%trnseVIWX
zF`AMt$5^`22&{<E<aV<n+4|FewSDvFeTnQrKkyH2V7*?z+EJ^WZN50bZqCAwfsqHo
z>-NEdEl!uoM4ApOe>}nOpp|24uv6&U>9EJ`X4_3Q!`5Od!tMm$G3~LFqf`)iZZcp`
zETAAx+TZ~B4YyyyGQf7lK}<+YVCMsa<F+06b3LvPaI~O}h(0k=|GbROePf_b5*~3B
zPl&=z!#w`w@=H-&zAh?Sb90glN*)V)_my>h{B>vIbwfUfp3Bn$!362@BNUbh7s!@H
z0nn9aO($X8-1B9HA3Kf7>OQNCr_$Kf4#{OJ^VAEX9z`4WI^v9lhA*-zNGaC=QGdp6
zE&u20mU4Rxcf11}jfOz`@x_<1IGBBwc?tY<8Ngtp0-Wr2C&&O_9G&$r)F?pS`663<
z`o(dx>me?o0L34CFtvlJC*!O;LAn3f=@$2v7#9HT4d|jOjbmQ(q$(cT5pv!Kf=Q2_
z<qQfL3J9dZqIG1t*pib=DEeE2+?Tp3xWaXUW&hZ+NZuHi0aq3&8GCzi3K!C3!UB`&
zV(5;3Uv*!~QH<C+;9Map(TU%j6H9dp{@fyK->f}K`^K!A`s^|nIcW>60@}}9v8*8O
z>5N*K+VG`S#_QIFiCBZM0MViW>Gn~6VN|DZJ<s%gvVR8)5p@8D5$9b*?EP(%(L3bB
zYqudJ4yuRT;Wqw8D`cN()hDdJ7`*KOk?;B?>p#C<^ya)P!H0TRa&mG${m|Ugx2vs^
z&<;hs`tiN|{QN%E0mbRB0X*PjLb(A<WXXq`>75IePZ*B11a<t$h`}szrVUPzAK*BG
zsT<zYqL`;MbSC_k%*N>;o~=_nzUj|zWnJ1Gq3evm2So!Ii!G(yz?~8sVeETy_7ty$
zd}YajKirlWDE$xAgWP>@$>&y!i^1Fltjt;Iy;r3mDg`Bg)X(fl%%H?3i!Uy#`v62E
zY1OM{IHNs7)Qd#B3nkr2G_BOr&DS@52w0G<Q`azNikyQOWQd80DQRlDp)Z<LblP&f
zIv%J8xY>C}oVvZAa_;<7#3+H+X>T$FGRcg6qi?aM;|+P;n4@NANe`EJz&#*CyIJ~2
zc3KCeo=n8j<eA-Z#Cdo*=<7*BMQ~|y0Tx=1p-`_7(r*KGFddLa6UGVNFLNH&L;}=6
zJDzxlkajM*rc5I!Lv_d6j)U*@681`X%ulBg8HCuaNKk!8Y=J(Z<#Q9(0N00ZPA6nH
zBY10494JDEdz<jcmgbIcaQV`GIXOf#FB5J`YN=)1^{8+P(6kT%+ZjYgpsz35`$FIl
zLX2n#-EDNVS(;!`<zbcPs5Cije=LO-{;NgV;dJz4Q6!j;kJ?H=0!#oics{xB=dh*f
z{pqX&rBFF@4Q@BPiStN9fOYM2{ImM0Bj~CGT#@MgC|h$q_pjxkfsG1=AO1{k)X%us
z7b_Q0I@25O3Kbz2hsVLM!3Gb~eUL|c1@)mP7&T98=5RVtKuX(vsi_{elR1eJ8#c@&
zOj`gXT_>lMjeGOv)?>KDObYz3d<>u~-Li#+bXw-x@X%i15OL4Sl7Qk>H>L3KpUY`$
ziEfl_rq%w)O=_HZjX%aEEiO(mRxE@8?h?AhkXzk`5Y+{2Xd)b*N%;y#T<!jpsSY*a
zQlJO9j*Li3jGO9I_a8<F1zo0@3>dF1Ahq&>Em<E8W{LdSNb+fcno<h%^02yiiD6$s
zPCj+)1Ife8JMIHDLh;K)!GSvC6Kai@trjz6e7&+0q39r51b9p>o@?Xn?d?<7B|T5e
z(J?!5F$G{OaK%41Gi?%le@?{Ghg@@)$R`w0Wa?FNbtm#Fr78V366~r6OWXw6?SQk8
z;-9po5iW?(o3J-iz4m`YqAI}^+UM)%H;=LlOD3-yFi93*(p}b_YvIPbpkC#(J<egc
zI;el?M9F#;TEJBIS%2<tks^YM(a=X*&oIc@wthc8E<Q50SaPAw*h3&PWb<&*=-sCY
zI&S9Fv*wWB*07>}$XhAnE52Lp@67xTSqCUfT<H-JbBBh8h{q3E53;QCS>12>(R+Y%
z$u>$obRL60ypQ~Xn}(JBMqYKyY>`7^m(~s{o{x*IaJQLJi8jkxHyA>I<n#;V@rmUp
zLEnF`m)`sP`S~45y6OwdS}oq1+%9;bzxw4=raYY<pGop#I=HaMSrMKSsgDLZHl;cI
zLSbtm=EGo_;Itp$T&w2T<veQHe|Fg+tAUN7=GW#m-jE(VxghLH0cYP8i~J`awW8BL
zZ9ZQ9CS~>$G49ndjdyc}H!H<HRuD-^d$4)CTKvbhuaP0O`&{>ysGMq_tts5NUtzD4
z$>-Ap4im4fD+Op=rZdh;`#0;q@-uh(X&dA)`mneu<*amJ@_<9lr2w0H_rSR}9?RYL
zd5=57fECPVLy%o1_kJ2Y!RM5lTU^;LC7gdMAwO5JNJT@#k5DQFHIo$x!9hg-I@*8X
z*a`)wM94&4fc_Pe#=)fdxMfQv;ujerjFF^<u$1Br@ErgEajn0ruC6@;ZbrTAI%h*L
zMQOM84CdF37yHD{E`3*4IeJvM=y%=u%g+oC_JFaRe`AZVe__KT!EF>Kxu#&jZ8L3U
zeANXQ=|yQ!Vs9FCm*ZCSwN|;~<=Bu``X1R?FNoU*+veLfTs|i+e~mO}$beEwDQ(|-
z_iv=_teM%+Y5i6~n?+p<qfWt#`K+G{|54&kY=?xAYI!XaxIMA*SJl*vLLW&`J3|#}
zcV)Dz-Zn3U4H>NF-ZkTd^zjJ;F3)jPD!+NeeGUkedK~?X@wql5sAI`QhOw6Y(xm__
z<8ntEw~(RnmT!1`sj0WDuj4@P9TNLyuC8*N?Q5k(cA>akZ^Wl~-S{<TS<2{r(#bI9
z*)y2l<Ah-tL_U40gzg#{8Sw<oDzVn*=L<)kvp5CAx<scEE_XS_t!uXKQB+jqRxke1
zvvxjq{jy67pC1CV6QB}3<4Noz!S^f7iqNiT$oYQl2nfx*wf-L&XNumuQ5INv)ZRX`
zER0JYmQxpe^+t_TgpXzkLLfP)nfn|}$Ynb%N*HHuACWC!`{MlDOe^rhtJSv*N(_@L
z#hszK`PAV5%k_QZMV_49bzi>tm6&`PvmV!2`YZ6NfyOY#KE}aEwH*iE!TC0js_@Wo
zjwwFSP0NJK`vE!*f$A>(I2eZ_iORsNFsh|xC>#UHcy(Ht2)rPa>8c<^Ef7i%F0S;4
ziZiGkQmf_bEjG4|TRu3HGk4)^uyow^Jx+f7+(Am0yFN_tebc}Q)H($-*DhSu<)Ko^
zM$0pf0}(wg`a1G~TLZDlVPC$R*oy6Cc_>yBel~RS8|K-}xn-bnE7Li%{pZg^5-lC7
z5<g?@^ZZ*m4VV84JmomXf}TQS&k*Y^ImpDL(GeN={3Ih|YCf6MI%8m(RjDTaI6uA9
zdqkalwIr18-rnf|8<q*hDQ9sC8}+yC1$+PIUE{I$Z0f5W-_9{*U43F!7VpVwt5Z6)
z;79SsCJ7uwlambFNrrbu4TLhZ_LtwDBDzy)8K9ROv5P@{hPxxv`Y_k|#3|d+vX>36
zUk8&HAl(l79W%K;DQLgN-!QID4Y+UmZIF`w__3=QBTVo0oGgHqKta8Qp8Z(n*m)`F
z;MGXrb;CIQl25*5hM%Ao7EA^xF!n!lG2%e&*s(U0H6M}x_r;ny9)$e>1h^S!^OS%2
z5{b}6CY15UHo{d#nYygx@Xnfh$zMCHjB$WO#l?NXXgvD;CnTcMLy^1K2j>#MVtmx!
zOA_E;I*z{G#@O3%))9AZI2t-QHlCmMwIp*r=P%Hbh%=!bW>bxPJ%b)AdNc<g6mJ(=
zGPecx(<N>z_*IpaA3<&$+6P*aCI~6CcEF!%1_oh3KtHu#fE`9Msw)#rXdzQ9f&QxM
z=)^%%5gi;H%z1YH)OCc$4?fKNZEFo4?%qe9)Zf9K%h|e_%=YZLOh8g%Y)SlCkt#km
z-xULjh4G84^N>+7Fp%5N=E@l};>r&RJRTEriv#F&vBR$&Sz<IXaT)%V(s{o67|zTO
zV(kKG%0yS1;EH<@W}?srN3TK&Q%=a-RUAKNGR-Vg*OYgH@jid0tfsMX^ows#%M2cF
zeWb*<^eF&{-6s|?bF<FhwCq+yN=ikmiYIqavG4tD5^EQiF_?Qs#>k{Tq&Y16g`qM&
z<ly4?<Mq-ev2FMlRZ(`eOP7+!CfA8SepyC_UJlze00lSr_eOm;`SS5&u%T$1#cl;<
z*bbZ;-d9z69$%Dd5*-=&2EQkyp{xG=kJPoVclP?_{h6_{P#zWI)W>y<XPEv}7Sl1N
zK6QCSTy-Zu@{~}ePJQU{5pV3t4`EiOsY$M|e0BS4nDYM*Kb8S^;xhTX-PqLL1{#XK
z7v92iEq_R!d+Ckn=Q3c6A>7G7Rt`V7#|?0Z1cwK86T5pUgZXxv0RS1ekqW(f{SKNL
zgX&Z<aq$45*_#pt4&uSnS#K8@9&{DicZS)caD#7jyVEW_>EF51>2VK?`P{vr$8B_c
z<~lij8INdT<An^$uIQwsqu<Oww{BJRQ{tn-X_1EB*2Q%8g>rnXD%54lSSRGYVr$|6
zpv!5of9M+E2S9@o#;xF#qOU9KY}e=c+JgA^uK}l@>Ip{}iberPCs&`P6F=j!OK6-(
zVpv$gH#g5H8!h++{W9Tk1@WGzGxV|G`;~KNovz+t>+&3aCfFmPaSQpqs}nKG?4Mof
zf8Vvh5xziSj=Q^i70jq>ohKZL2Qm)P`Lkw_u^c)5De<ka`RJ%L24k%a)rzvLtScG+
zL6k+lCoW<NsdfB_++*czoZe*IbH%4mPY}&y09$0wxGWP?4GrA;2k`GS&Fn~J3V^b2
z@}p<bkV{%*Bn|8^ZI4F8%uij;6ZT^$iz+d%Hy&MjDc34cg9UYSP9&%cB%DVJ1jB{H
z3GuK7&fnc5W3-Xasj-BzOAKFN*om<VDNbW{HTZq7eGkV(*ryzYUoawuNJ~^yw&o>G
zpU$51u8*=VVi*`9nq}Y&#9;HdI+((cAqSIT38)+>Z{&oJcj}AQ889<7#T>%OQwjG;
z4Lx~s<4b!HRnDPu9!AQY0+Uvb5l1i}$wlU1k_lO&$WOphR@t@o6UH61b5wImIj9#)
zjl`_nqVv^waQbx7YgvsW88l#&b&CU>$A>Tx)3>^VVW5F~yj6dkPH-3b$0Zyixo}lP
zCXmq*a@zth_a?*)+yo*N#<cig`QnVmh=E6;V_?z>(a<kAAOHag`?fQ85I^Y2u_o1a
zu!P<Y2R?1ws_Pj4^t;fDKu8LFhtyS`roG-6{i{;3>QplJ@c<o8icuURO_-pAtkai@
z3Fun1cKF3}NAj0<#36A*yrdQ3H<K(zyfa;vVX&zF{PYh#y$o~UTcqMUfA_TP*s%ix
zZ1w4(p#Jn_OrV=hr6JCmmUd&;)7n~E6f|{?ANN(~r6Kbsuah{`!pLk}LDKY3^SpI^
zRQ8kN6R=%Xj=T5=1Oy}tIju5<DRvNx-WoV)P>o<4O)DxE?~;%NTLTW&L15}|Me_fw
zfjKaStOR}TJS#oohXV~{nW}rmgz0n~l~8=U)WlG+F<RQ2a;-AjoeFz?GfBQXrNMyL
zScjpoM|0Ww8>yoHmF+&|mf9WTd-&d69Az`APIax&<6_(JzH-cL9y#X*#NnABQmQ9Z
z89wj=DdnYSClXEk+oPUm4D9zUlGp0L>@qNm+v_GVo}`rml(UO5J9m!WYjm^P--d7P
zEjd>Aeap>i$=DWjN86yKs6<}L4}hOcCc^<ptaf;4$kj{0KYc=M5AVPImNfY0h*Jn^
z`GE{mK)Bdyr{2b!(4k%lKbS`ua>!xon;pthwRPLCkHznh+MeBoYJ{oFa;s})`(X!9
z=1VxP7vrymCr@oza+PT;3F?O+0|<gbNEN;qmp<$cFWm9Fb%kPY>z;ul4f+Y{-|LXK
zqpdT!oZ+2})&Ob~Ss3@Ci64la0$0p1^it0u8>5F-RcT^SBS|8$xGTZ;69oaesc|}}
zUgw)ptAo8vMsxs!D8qmsGIXv#LwmG+=WkmZdlYZWrLA*gPqbyYn!rdzGu`~8#~2x`
zfI_1MAh>7wicYX-S_o{3jS5}`8R*sVC22oO9bSo`E~kM^Nsc9}cG`CTkP0_@Jquaj
ztvdUSLGVvRm18JcrC)pQ{^OD3isE8oh+qZPTh}h`NpW(u<lJC%FbReMn^xXNUb0Jj
zzRHiu$_OqNKYxY_E?Q}JFfRHGl9OBhNrnfL3MR&PDVw_Xesa76^3LiS1|a86T?g~*
z*H)+Ej5tTeYl<QBBZI02Y;T<BTH;BCYaeodsM_fnFY0reS|w|deNUcbHVy9cnO*6j
z(3)&oGS?7t1jJbs61e|IMDa&v>d{!vi0e4Ky-^Ej_Kd}^FJql;hop)h<#i1puzFjG
z-Y;%G*h|Cmbjrnuv8}uT&rn8`-UuH3eGdBPa6{3zmKAy+9Bm?%1!^cjIHCTIdW=rz
z+%m=)6ckfS7{|Oyp8p$@-JUL$mfeT1-?d368Zb<K(gwFgvNNMYNLpH#4paAUQd<Ve
zU<WE0J6C6km-)BaXN)Baf&j;%B3;G#{tcI!UvbX*GXd9def`)(#*Iu;Vk7-kv@0}0
zk|#lpKoMAJ5)~cILj!U0=W#GXetv{lBiUi7TP}U=gxfJviAXOAOGrr2jh`A)MBz$W
z@+*q}t0RaHDY#0<ZwqukYFpP-#J92v6scUekU%v8i%#;>jh82hy*=Fm1xa9UAK*?z
zxhKHQ48NvdxYhW3$<QFzPA4rp9i3X5F0uK?hfEVWuO+^ciO$;%-m=D?c$QdqsqsK5
zmi1{31{u_@rm9NqOoj5R40rNRD+$L~_|Wb1QjmjU@@VNr7+1qeE)q4kky94b8Z`O`
zfTB*7(~*Je(!!w|F^-_t+u?Wd(42?Mf-DH7_gTjV%w)$Z;T2pkYeoh*a>R8Szcm8=
zUL!|kWiJ#7R;6N)P^oEXM8Z#Xlel<h;V{54K|oQ+#y`O&)dJ}=*_BBDH}mne6h}@c
zwy%X{rRqCAq;@QqT9*_be(;FjR(YgLQ86)q+<XvBw}WF%=Ffu%D%HB~Inrnx1ZM**
z8N}?aeFq8_GU$;+Rf5!GSxgc|-uqWhET1kFJ(UGA<I9)H?)~=^0pep50)Myw|Fj^;
z#%WX5$R!V4f#XQ!Su)q6wa4{*Xzt%h1*wrR@<6_@`1n=Tg6hOakG@^q$+AA1WP^d%
zWVId$E}8o})dcjX-DIa*Wv-ZijY{)Upgyj?$W`}|v-{Ft*?;7J+3f%C)++aq%Xe5T
zHUEIfbMMW>g26E-4F(VGoSB(5Qt_*GUB^*kojn^)QgOJrAQ;iHuxVQC?>ekt_;Y5I
zjoykD&55|U;$fVaLk?13Qe#odlPo;L!>h#bUaF{imf*9v2ks(UFXhL_dMV_8JK(t)
zqrL`4cnrqb{803F=LGJFnaPYp&NQtW1;GN38xu8$0Yw?^cP)@U?`3$ftf2a0#2rq*
zDElDb8fP>Z0!805&OPlM^GX%f$`X|1V0jdba7)g+ni1-|{5r3(mu3bx;gqJdYpqqr
zoueCB=ktsknw&px@h?>v8J$;y1>ZLUV}bYqzFw$>!i)B}U3sqeeGwU%IMh&~hox3x
zsEUe1(f10gZMF`eESk2pUrKWFt`kdDaEjvlNCAcK14h5h+NqRr20Jy;L<<cD@;#uh
zU)#H$roH;u#xw(DFmFe;&iVheSp2)o<v&>3N+_=KTnx+rcB|un&dwoS7>4gQfW94v
z1H{y<Yb=lF>O4+JP{v{)BR9%XxPuqo4x(BakM9ZYwCb96DLnZtS--C6IQFRlhHbsF
zK<Fd#xOf?^kInr6ypzbFc(70e8+)en3(wW)Y9N!cC!<>J1w0B)jaB6$i-dXgkt#y^
z{NF1qx>px3nGOvbPq{IZL2ZP#2AjMn$bX{I(5f2&Jq4erBCR45mq|vS4IfZD9PK0>
zC+3)%kZ^m9k)iS!|8#Uxx#;iD?@{;|^yp1%!GX>lxAf>>;gpIw8{~Kl3Y5<6qto{%
z+`Hu0fd@NG9*_#cu`gP;qFHKSH-^sl+Sj3Ttbqr%O54JVa8{AYyh#)wW1G>7qE~ku
z!-<YzoA;9IFv6aPhNJtI0roaXKqUwv^wbm+Ezn(qi7p*oFAK^aV2R6n$*;vOC@3&I
zmWRyoQ1j?Rs*`~Vg@=au(Z@<N(7;w`n{S!PFCd@_Eq`euXsrO>TkeW?dKzfB9-A5p
zNueYy{k2#I3j$a=Mk#=n7GI5`N|sJ$+iw(Pxwe-c3iq1OMid&iEGKatsBp*}Z!rwy
zn-gm__2?;04eO0(F3DYx1`$4}B$X!n?ylWLs{(Pcv>P?v5h#Ej;vU22E#HXCvbV-G
zdC0<eQ%9hV+=$1FjCx0-7%{Eec%`KQM(k}t<E=p|P8}ANV|UMj#G%K-#)s2t@-VWM
z2wJ>*5@v<h*vOcSN@!3+A#&GsG0Zccvl&SN9w~9WWAQ9K=&fo^^@oPv9~sPmJ{blV
zw707dWVxsQT*K5wLFbh=ESleO7&KBUvP(X8_l@I)#8i(=axCO@K0y?%I8})r6(_3W
zNOc{9O0rrq+zH(OFZ!Er6rX}CIvF4z-wyR-2y`_<jg>oSTuaO|W-aur>+-GZvd&nz
za0W7bQ1ir)`_qu1m+|PiptwO5085B9AMKq(Z*2Rp>t*XQVFjC9@6~J@wxK!*6C9Dr
z6Q_{8pH;<TB6K}$G{#Ld7;oRc?ZpV1bFe5xe5gbzN8o(KP$bD@IQat@tHbbqBP|Mu
zrLFBV&=em*K1hcBz>UU0XBr^WyUAU@&SkLDZ1};r3_Ya8@OyJZ?k8xzlfhfU^s=Xg
zP9#$SC$Se=ZoD+>g9i>w&b-A=!fGJ%-U)OG_k!i0c7wJE4Mu;4DO6&(D(P?I8%b79
zk?=0Q#P@4t423f?c8d(wP;_E=Iu-s|`aa}vYhWX)6MZ*k*U8XT)9_`n@csc25CJD~
zFP=)ZBvL26Qs~iO_@pOnEh~JD-pIWH9&!sN-!Rv+<&wYoE`dn?g`LKMwGH6ftCE@4
zK$j!*g!yO~OdkL!3PtFaqC^adjDQNcjm)70i8Y{CFSUWd7LIYScUB`NgKb;AP@Rp|
zZX1%gF(bY*8j&<5HB}5rN%<ImI9A@MQ!W+;<c;@TD-n)_e-|1<t?Hb`F2J^MGrN1Y
zP9aI^jqV^yA{-%yo=oa7mrsra&MDBVQqA>QO=qafPH$v4Ok1{HW03)1OKpX8#8KxL
z3nswR*u|~R=jvJm+}$i7P`={$iS?1~&h=<uv=`})Uo5p)2qnlpDz<f~>Ob4h1fPvU
zX<gmE0|W$mC|Iif?c1%f5CA=rnL)QQ&!G|yJu<T~eK3E_@i3;)Onz{Y<G{s0W3!MD
zgGz?76b=KL#;_$CT?qP9?;IT<kXV4C(9mPZqELba2RA3@kJOYD+V?k=Q$Hh5Nj^_p
z27Y`vXUI@=K<QrT)v4%K^B;>*LJ|YxrZ~uiANHmM+BU5Q>{){bKCK8SImV}kqIwJ+
z`VEI79-0^^3UhwnnZCCBS8l|RjHuEY-r)JU4J>!Qpe2$s^xkYEqYkYM0?g3+7yW~b
zoc-UEkq;hf{!<8STk>n%*-?@jJAxERND@^C68GrDL={k&h(j}|%G*&<Ltmz4nl^H^
zFx5m0C%ssEOp++nT{>x-Hg7J4SxOYJd@@%Lz2Xe0#zoC)vz!9gPu-o%A^k6oVGOoq
zXg{r3d?P@p;oiJ!dvCd9$Hjg4c20Q7BP9jYEzl2>^aZFw{=;wI%<rd)-bZQ(@Cs$Y
z@;bZAwpX49O9UbZ^jN#Qw0X`K1?Rt;D%A;{H!`}A&K<hBmI1KQu~zPCFFfgeZB{Ne
zF-n!;;;K%?n)+d}Nx=&-ijNh3`rKZ3Op7i%$Oi5HuZp_=Yl+m`1`8&02JRQekEAWa
zFyL|eK-!(a;6bGX5S3OPF!*IMm;i}K&^TXhmChdewsE-k(m0g$Ri%2rQ-5Tfi$gjr
zf&{qmwYor)`E~`hfq_^69(TN$_3w!4;!rEw7IXRO`8ZWs&HelLm)83jW$4beaW&ZC
zTf|eHYJ15*xF~TMX9oJGx6}SQ_+GzT(&deV2cbb0KM$W}OpGyITI3^=I5N^x>?Uq=
zBVB<SV!rFA#p>`we5?m%eMY}%@p0G7bFb}nljA;TVq!@SU$EA;Y(eo*TdRoTVG7Cz
z{5)Es59prHBfLFUPgYiTU#`Xni@&#YN>QJbmzI7vmse2B62#!LsJ|LJfjAJUC5-ET
zH__g?>C8o~m8`6xSzG>A!~NIo;QU+Gl3&PwP9oi*8n}4+1e}Si@5+BFDu3~9@w}-Y
zE;Fp}cAe?m|5>Pgef_%N|J0PYw>*e-`r&N&Z<-QAG21tn-T>0YJrJt8js5c*zByZa
z10DdVEzTY@Vo3)$UR2RH1al3=(S=DEpYsJ^!fFLC1C2z1+W^3EXzb4ttTEkLmm{h^
zkV@KaX5w+tO>I*9x}Cz!MvpOLzyYl^e7&g|x;Q*QT;xg&MSn{-L6yB7N@mIN!G;VZ
z!yqX1VxDACb5Cn^-FPb12+Cce;ZMHU_?F}7ZU+oe5URj<414Xg({Gjm@w42Nn@U4W
zBKa;-Cj2Qg&|C76;kSOtT!MqoGcl6F2%6x5+X|cj?^EAV&}3Bfb=k95>kM<Z%RA7k
zjEbc2Vr53-J}<w<S|e?A6a9Q=Ee2s&6ETKnvY{7|)x(h*<LMOf?dVF9hRhSifGD_q
z(&!}S0}BIiNw6@aB_A;)aY%G(VmXB^WUkE|E+;J;2aeiWxyL2>#f8r970o?H|9+f1
zriWj5=zzzZw1NQJCO_VoItw&hm%5zowp~0MMIDMy^h_qvhZ8~oEoj=6XoR0Yxr#oO
zm%`QfzBTXK`!-GzXV5oFG|4R9^vrX7>fQYfxVhuilqkUe`#l33r4r!5X3v(9$J2i2
zALYRJ)B7AS*OPP=p=$#Md-5cqCPfr-*dKz^k!7jtm%9)oBuZ5x&5gpi3|&h<K0q~2
zU49OMvU~ogPVkoB%(t=RrZNwxCee0&C^Tmiu<~2dIxvs?3!=F<AjV8MF}Z?(cK;SO
z(DLy%?Z2!+u$jxt{$w1hH!S+($R73K!v~US%*v8jZ9sueagx!~*>lAiW7=q?Xkm?v
zWgw|i#vKrgUz&E%cTBj{hKY)=_Y-}XAB9jO0sn*zPm=@gySrFZ2zqq%D$;eGw8*$P
z2KD{J-ATIf&tMFReE2W{B8Cs#>@^BrYmEkt0v$$D()Pcn&y_p-QG}t}0-+Ec?a5ah
z|C}*1YzKx5_#<TyE{kI3e15mhO$P_h>QA3G-U_#y#&l&@pxz_}7{j0yC5aLW{qLsL
z0G?yj6ZT?NJdkqCfFb6E(n>oR5`YARgm@>9pmk==1K5fHefMrE#6(wLYAXsqj{I%Y
zKUQ!4j9MnVR02U$Y49Y>0PnER-ONE2)0<qS#s~HB-vWNEKYIa44FF^^c+@8#phn-3
zM!SXPQZoF<fD__6{su&|_4Z8vbkA{u7tQ-eB$T2Ks~~e{%vuI)pY%cOAb^)POMjr?
zlCY;B3_Zx*2tyA7(S6{_h_48rMxgU3jG8g=3AT&>;dFP!UyH8WCPS)S`r?n9HU|yk
z{w<*Mo)W|I){CAYD97@X%+WRieu&3_RYTy?DIx*^1WsFME&j1)_)y98N}&9ABcgzO
z;F5&<1q<&X3XTMvE0;)9PEUgY|Gw$gD{oo6q@PeN!zouc)kOTnA{EO~Hk#H0D7G`s
zy0%9>Lu;zEI63UucazqE5xkYPam<l!y2p8{N-cm?r<z<Mn9DdO!59`vsqg4&@_J6@
z)U6Y<P@rRq?t@V2GfWS4Fd6a@yfwLK!@kZ#s~j8F)S0Jq>ltdH5seXU{4^4MwnN@{
zcEOD6Pcg)@9hNp;WE&ry=r@~aGMCT$*bhEH8<EOTjbIGN4k7N#6-=^~7=Ohg`73WG
zJ(R#uWM8~o5ysnDFTW4HPOa}A$0;9330G~FD@e-in3ollK@1k|#lSNKI_Nd);+Wa0
z?s7;zVA}wGA^t5dXkxTkF6jIuG_Plf#^J5;mY$)taT^^){$n6Awi)H&0a&n=fJgRF
zXr@aj{=dz?ZuAM&2voPl$7j}q4Dc!aLIahi6JPo5oXaCYX=!PZeNMk`>jFrptU6(S
z89Hns8X5488<5p9H8nkTM*{J29WF}){W`@})8`>&@aO%IKcD~WY$#lt%cDqSvZU_^
zuZwu}$s!*;+5`U9(I<yWDs%d`2iSK$8?$qVD=uNQoijB2h<e!ai-B(|{h$yE$WBX6
z)RUh-M-U1(A-s)4-~=|^VbW_PZNaW8>GlhkEzX>Bc4&`HO9q!?xoHygyMc-GH|(z9
z4G<IZ{BY=}#~rWNrxp9&fL=td0pv(dhhLWw-5Vh+gm0y`!|#HOAM}GidWM+C(q+W9
zB}kv?W-|gtAg(>@Is>~~+rA@(_iGajgN{Ra60|O33WPo`u(CaY;8q#%@I&LlKBgKM
ziLnNq97W-W{Yj%gFu7mVV?ikY(UAstZbhO~-g31X1l`t$=*@rIA(L?->WG-FAf?nN
z61CqlzqfA^&H=QsgJb)ML?=84d%c53<<L5IwL8J3?N`OQ&GycZ#X1kIrdcomqqpN0
zX1ngely3kc1TD9N#{!VsSR%C;#ypy8{Rz;jd>D+)D{r@AjzT%+fb-<m#e?YDhHEVY
zU>O50ECIX=bEZLXV1pJIe02`Q403ZLY6CKNCvQXltMh1~Ga;2685+H8(V!Y+(XB}#
zH>kf>pSsoETfc%hn5d|PY;pLufNUmkxk5@Jz^#rC8t)As2L2QRg}X6~MH2;#KTiMD
z6Z`IZ?eIJULv6{-^z_f;uXg5~w6?P9SD(Pwm%_w4wdn0zyBNT1DXRq3^;WG~RgGS?
zL~Fu0fZr-mQ~RM%Y4A1`zh5}}kXPK;1*nm&&@Ud#tQ(8dZDu;{R`!Lr>>J+h!OHR1
zY_}f0jg*3x(X=>7x{mzxfsShHDqKsFMTdu<#J+CN?V$l%uuJF}P0i;`O%*lIR;TJ<
zSS+m+53fSM4)go+!-WBue+sVnQGS6bJWStt*7dF7!_>+d!QmD^J@S;ARD*g)#sG}p
zqeiBr^d+xbrEs?OGv~H-Oj}A72ZoN{4KhRTTbXeALgm6GYyU87I{(p6{Mpj-5z2pV
z8aq5_jKs0NOR-wTn(F1NU|Q%^UQv<+_Q0ogyD!SoRh5)JHp|rj&%Z|ngVz4zxr=RZ
zrNlQ_4Zs_;4Fm3C$!kI6LpPfccOOXDUJU9HWZHNs>d2Fk6pHy?vHrqNwhbcX4?Cs6
zo56662>f;xG$!hXKc%6pxb)Uz!F{fEBl^~UyY?;n#T_fh?UlcLk*|P8slMaUqu!xM
z#O=+#ukrxG0J28&?1m(BT!VLM3a$Y>8D1wyo;=aW2nFp-o16=Hjru^T_DFKnQ^SWt
z=T*+Ax4<j=yiT8bonBVKiv=0YiE|*)MEt^y?{HG@4VoAVx)mQ9<km1_BMo1vz45Ns
ztSp5!e~$`-jEk-~YMI=*PI~3-MQ<ss<kf{<a=w?*WH3ya>!1$vvn_m^D1f}jh;+GH
zk2puMNRKMvAK@b#_PsLy>&Xo4za_Fvwz##^8zoO`9gHMY4j*<05Lv!~_0*kwCGQVo
z%5Q&)&|Ov;q17%4i4Y-TBXEU*OrKEM0l00#prI$F_lf-+>u1bo9~gz-U9f9?&B$Xa
z*csV{i4Y*PM(d765!N1z-sFK9ika8DAl(x&ES&wYUNuPcn<nL<X=^Pf&ntz6g5jA*
z?ylap4_c~=r$(ljJJBH_dtq>z3cZt8D3=?q7XfkqrldlJI1clNCe>(Or4S(kp|53t
z;xh8Ehq`300)6q?T_2m<uf04;(_ZENe7LtPvSCKJ|Gcr^r}w$D`>>@qT#{ybaxv=2
znHMP(w(}c%3%yU?k=uB|E(Y{FtjuJm-p8D+F-adva~wx{G3+L&yJ1G_>#O57yF|sm
zP$+9^XmWd0w?6T}i!xUo<$n4%Mhfp}`PM&#6ppm-h3h12l<1=9MC^&4ya?}2V+qpm
zH{qor_)5nX&Sv&L>bTWAZg!rYNSJj09GpRW#N5@8E@Mhw2DKFjqPR)n?9yxG`wnqz
zm}m3te&?#ogyDo>&pUQ{Biq7_P0Eq*cd_(uYdc3PC6dJ0V|W)2g*NsTj(<)%>k%5q
z&a@l>Wm|_PWg)Zou)eeKz84m)yN(rb{<6sMSg`AT==f*Ojgz-?70tE(g}$;g=3lG>
z=EUld-?jKjU!nJIjPm=wXpb&SFjJ`?ZmW#kmT;_e;6i=sA>X_DJ|@+-Y-Qjs?trsu
z*Zbsgo2h5GtK<8s%V?n<B|8W*IO(!ApP+4dohXnE)l*bNgc5a`7Zrd$NpR3WDTlqo
z9LK%q$uB;zvA+-o10Y@omg11`-q>VjW_BFyMTU^}W*X^Ejt>P**y5mmxLC1|wmg1z
zUL*qUX}oWo5<5giTYPgz!_cAg{k)%!YAqSF8bNZ@MhB0ihZblwvQ$k4>36*%rHLlh
zRvB{_3c^3G5;T17$aZi4<?r7^2;*T09-kz`84pi0;go#*2)xo;$@JJ`$BuarQ@P;}
z);ZpT*3gAyEwIRCBO(NX+%tEi%Vca#kS0XMjP^M3Z?*x5t)yj)kbES4ou}!;Hg83p
z1uhl_e_b|wuUo-6+jY_eVdy9@*7(9hebb?Tn5`A`=7lDyCIh=8tsETxA(=ktm-pkG
zyOoYZk-LOEI}f#z0f<oSg%V;VLNF$OM}WA3!H*w-h**MrdJYpCH%XsdtFTJ3m&S|K
zVB68*4LI9Ke1c7DFNTn|fUR2s{Zh)=Vh(J<MVwM6pxyikLY64p$804W3;9V#^Q5=%
z5a)(}!pbgK`~Q;6&Nk~HLja?-y<t@k9plHYF_H-7J3-4jyeWn>+WlTny?lI{XMwO+
z22GR&W@@{$Z$B_G;5@+_RBZji5&fGm_-GuU6VYQUxUB`Pd@JxRtFMZa27=3;`hk%?
zWHAbK61$Lnk6o=srqDLI-8Zq$Z-sTvuEy;sMY(#GOtOAle;m{urh~@3gH}rTSLhQ-
zrD;FA7zXn+LE11e%|y@rA%h)1-cw^L$7Pd4sCXcJ@(S^tBRVH%^l*{4`6R!;!RZu1
zDgwGHk{sktUvH_9Z)8fJ<j1qgflu$h!-P&Hg$mmJikfvLC0_R*oc!_H3-nkMk4ng2
z%gCf(Gsku<cF<peoLPR@-Q2>^G9|D5h~`VeBSeKwR`~GS<2fPl^@21CU7-)9(1`cK
zO1I_ofGx3x{rxKq%T11+jI}}_0Ss4BL4)A~c(hJqig;}1ZRV4;h539kgfbk>XEfIn
z4Q>nN44$Hu!UnS!HOm1yVUVL)Cuo!lo`XD)ofKdm!wwzLMG{Kx+YcW)6NHxCdfhb;
zl$^7A+nJV>N*xeJb>iF8Osb!3acqSNXfD{(ByqLGKfESAFdLE*c~8prhtJoMm6^AR
z7y<-1_J5&=qJ<xwlA?y%K;dd83>36H%m;7+f#Uaj-b?LB;}5k^s_?J89d@D)CZ5rR
z&dr<c4NkSq_gfs_;zF6$apEVsx=zY7cFhJem=MfqD&Qkbt{XT0I8Q1tj8+UHIZ`$5
zeMAaP@7q)w*`Cs4$w>YyFm6v>;0c<P#Ay^3NRiY?Xl0<W{Mq*z3FYv6GpEP!SpkOw
z*MSas<g;fQAU?+lWwdb9w9AA?izh~lX~m6L<ww!^8E?-WCj@+;h@cC>;p}j$^-QeS
z=Py|axiN1O5&)J~#KI$*{o&GM$hZz4(CjBOe24L*;*|J8QJo_9=pVL2=0c1Eh_aYG
zt*FSzp?BLsXVQjH6bDObE`C?rwN*MT35N$Zu}`w6hoNtt@bdt%#O3Jisf}{91@htw
z+vWh@!2!es`>UB)(!;P~SWhE#@{xtsJZ~B=wt`(krxF4@8a-q0wi99F%R10*>-yT)
z&b7wME?sUtxsAd<L;PJP7d#BFSQ6V0Xif~|PG|#>qEq85`Qt17MRQF?n+LT93`HNP
zr-G=FpHs6A%y~lkal-a#!?fXYQdNT#pFi9ge*s?iNcBRIqdy<PSmRu>*6G8ObgJ+>
zg{=flayfKX<5;|O;TT5IDPXQg$s=$|oN}$G%UTnD0uE68+E~qr`;wed+xbDF=bcmT
zN_>~%mM4bzKg!xqV;`z6+rj8s`e=GJr)iqKk}gp*x!#yuH|FXmPoDhVEU1<GI<>=T
zV&};hSMzfqS`b+whfzaB$8OwJn~lzf;-NQ7>f#d<yOV=>@$Jl<lLDdor=Z01IK@Ro
zC=6NRP$~cVRe(0!xWzdV?)5r&E@BOLwt;s-e{ur`XNuW+_}0)xlQN^clZZKB=tom&
zM<jk<C4;B#>4cAb&BlLrG);q{w&duqmz&mM0a047O<t_ROmv2C1;NMv)ELU(a=7$_
z!lZ(SvH!6$2o!{pMP#COSCe5kb!3#x{6bA!3lRf@3XBR>fFWX?So6b6Qf01R@pC<M
zCYg{fqDrc&p#++^<%}Br7{1^x;x-tu0!8$~24z0hQX=d?$rcT^SL=2(>!4wy(!ka%
zfigM<{maRYLKqII8W5jJdcop6__EB_jzSsD?eCP>5!E)<Fc>bl&g~^P7tQO{d`(t<
zu1A|qlLeUM3~uFLlfNn8&VGUaw#&YSTAuH(@!b?T#pln>y>!J=xlOD}8I--7mOf`)
z;+CouTrHU^Jy??<yiIUhfRVUvUHs|NAGIS7?LSCb4;Pk&H&f;=TSiVAnRUdI$q{ac
zps`2RnUKjF;64o4NkLlyKb^MP?993W@`W|Z@u}kYgi^1Ig6bmz4`jj{$w`Vre;8A+
z)pDI2Qw&S?!s;RucKJTAe1ux!rC`n;SLQ0DhVTlAEx5gkUs6&V@29Oa>^Ad4wqU?8
zQ9yjfa20}gNE7bz$}@LFQfj7KW)zn$^}nE$y{z;8D9`39Q~xx{x#Yb5XxChp$Y1#*
zz4|Zm#p|D=f-<gDge68wjZd&RFjgo!f-!J<cYq@K3qpiKZ^*-?Fc1@uQMwWU3X+4z
z%!}ChcI-HYHCzesX@+F7XDT{EyVouTU3;sZ2{1h^_zD(!aI&cT)63(u#qn1wSXs;c
zq$=c}vqgvRa2Fw|Uq$3mUJb^Ir}i|JY?st2{m>FBXe1v&OG-w=qN?-2M>c)1ECdce
z5N%CtKojI6UcIPEmFS99tBSsv&!YAtOLn_^*UGrPrQ|UoEg>V0f-i&|=^|v?g?gbK
zf>k23+yYGc&2W2Dw@*cLDYtsjv7ojPy*m|0{c*l%KGnP2nLVIGnoKj97tZ}W7BT%|
zEp@=L(y?phL9{_VqL@+>5bOu(I!Z|DjhBxwO$=-{l%m>MHW+N9fx5~<M*roD7ovtA
zxg0URVz{SR8bAv-cuCm7@bulZb*qZ5W1mkgC`o#Y*9;zM!E%HRPVb8aTW0lo%sTms
zZTZtrWVKT$SBSl^O0LrwP_uK3*hM2!GnccHq-@d7uUs@JHY*^SRo#%_^X2JD*Wvz-
z=wH9g@n9yJqitX@8}sAG>98kH+TQR6EmZJF;Hrct5?TS_ARjV^9;U&d;3&u?kjZjx
zH!7v-b%dPrc@Ntkr>O8iI}&46(EyxzQF`;#a+e8!z~eMc1-{CXf${0JhG4o8D&6PL
z>R2yOQ5+@%*$!J(Zh@2l0tHU#+U8j%mZ$jjd4us1;3bq-<s%f7ghP&R_ihal5s`CX
zAQ7bn_T;lT$xBUlNH9$?sXhh|FeK&Ws8{$+>ewEG=-Cdx!DHw@l!wxm_hESj!AKyi
z!W-|D$Th?)TDag)b@l2jA^`!rDJSYeM@{B&qMtFAY(W00P0&d2q~bcC&w36mE>YNP
z!-1Jx!tg*B!98uWa}q6$qDQoQ&gxtlinCc`46zHQvP9r99@l~Zf`lj^KR=CDHvTeD
z0%@hN6&y8v>5lM=kBFCOc-^7G?eIt61Hg!16t==R*bD9`!t}3Fm<Ss2TxaA-R@PSx
zvsq1Rf+6Pim0CW?Ju?Dzu>xhPQ=7?H;*Am#UmG4mCs>5B#rbf?^JqqHZtP(KG|eC8
zXC5N-Ll}|)&e6r&{F^s#B_}4^a!yV&V$`$Y4SZEH3N#swVqL8b=DXfuV*S_e8J6v5
zsDAKSNV^35W2={!*T$_|OOYoJ^*O+lS{s9Nx1GIP`1$RyYCzY6+@59ctP85ugFvH=
zAG>!NYUS3xFUR{w?}%(%zy7(xR#<}dS6$!o*9NIVI?O}!kmy$Msf2b-h0t3eM>o)5
zz_=%PGVv9~@*2ZNkgBnVi0b05wNlP@unjJA#PsMeJc0vsa;jjW^0_=0rgNX4KEi$w
z#j!jFe=H`C*aMoH52&q3l++&Yb00nTcr%=T55PAVe7dP-C$W{FO>(e=v@;@fbDiE6
z6+wF|<~*JieaaRJaE@rHAp6eUCSMZeOG-+J8WX;^q^$*K&J@!cO*oo-!W*gizR!ar
z_UF&@gfCc?X&nzP94R1(!vlJg4|bXbR$d?jg~(^5Rxv?u5@V`Cg@efB<M)Ew1XIn=
zm&2`eMg_TxJgM?`A&N%RVl&)0JrpL(uyh=(h?B0{?%Z6k@{V<ZKOUbkSf*kZzF#%g
z&qjcbMS#Z+h|d|00xiJ7_OuX$Sof%7K(?I<GUq8gV4GZUTngk^+VBRKx>F}Ufq#^Y
zNAPF{;(DIyhb=Q=(FJz1nr1<BM_H`a&Y(_jKR+X?-~Ib+J=jckCf2~jncQRFA<I7u
zAl9Ag&0sVg{aNv}`8-sQrp-toPWU`PUEz@+P}K1N+kC?tkX&`FMlq`@PJ~n3>YX5D
zNp)(rc5wcvypX9P!Oi^wQ`s^Lz7%V4Y_`GaVf^Cd%fo05zQ-?-ygPtUZLRj`n5ss~
zStR4_f#b)1VKAvbh;wN@1n#eVI~W~V-`AJf)Rm>0bvC%pC+bz(dpsa_Y7eSO8wp)C
zf22^`=<jd|@xy^WkEUa8xslZhqx0v_`&24E5Pj2d!M>&l61|{KN$|f{>pP4iPh*j)
zX@>bJJru^xM2u*M!&zI+4FvVF$)W>#n@`qtj;o%kn_=~A2gtKd+UW$6w+hr&4P`bC
zWO`PbK6cN6Lx=8J7>zYPeJY%0%;DIpO!M7wKiUw!i1bk2K%2cd*-S5>KTw7x!$Z?`
z9!qH-#L3G;BhLLW0BBlS`ABvS50z@O_9gy1HVO&5h^aPNuR6Q1TO|Sqs6s*?`V`?w
zcEa+6JkC>9n{@m6=6EmkP-Ma_7_%dl*4}RYzRot1?_-x+Zf8cj5UtzZqze!0ARS2D
zQqOVEKOyWv_9JDygy^h(?56>nED$H?<A<+*+K!u{3-KHS%o7iX`Y24s!o&-2SR140
z7q#y{PxBp*l~PIwRA+=ecb(IYbF?COkE^Kj_^8a{3bJS<Im}8zu7x^#pFEyeH^<&~
zzJK<&Pp~9w=?m;{x&TS-ZLJdkgR@_eOqs)@dJW_7!(AoqiR=1zVYWe6%9tM9mc%7E
z;&pR#$RSQ6yP&vZcv!o~T4(e8-b@uAXfOGBc;rFwP(^C2eF+mxcxXrjenm=F1Hs~@
zIc@Q{z%!XqQYgWSN#0wnxRbWlMy-`p>#N|gda<8QS^^%G3)hLM((eTX#KIukC0_?b
zedwnS5z{CVUs3aVR0LiA5$iaTp4L;_Bno)5w6VDHfYr55z|Go)0NyWs*?r`v+;^X!
zvmy;N;<jIkABENNL3;by!;$AZPK(ppi!$<d=;j)ae>f<A+3EP^Z5UWnP*`XT^BSBZ
zD$2^rc}=C`+E)EPHFCel%l)-<@fUQ}SobHRYDfKJ)DEpZrnY)hYoc>xyyAIztBX6g
zZ&yQwTY*7|odb!KlsAgYs^-Zb`MD@>^Ra8y#VuXA6aDPXg1-$5<1lCAZKF6cHkLYO
z)x$nKW*zy-+FtC3a6u**kx&9i`%y#$pCiydEQH(>YhqXH<9Jhv?eC~FxLlR)IcrKK
z6H$f%2Yiv;`ASb!k9lcS6s{r~Gt*~{D`~Y8+Bw0&^@;5>mug*jXmv5|c)ZRq`b=u^
zI+8)Jl#VBx)#=cCvCr+ZU+HXkhNx?LL3(`fapf*E<Cj*QUp45-P?6V(Y0dl@wlogE
z{JSPM7XZnYv0v6Y=UyT+q0->@S?R(wvpht80XkmAYV*z?w;w4Qm%W_UxXs~DmR)Yt
z&#b#$dx)>%>qg_!+%*cMsm4(Z54F9eVW&f0ew(WvW1zt<W)T6e&WgwTSz>i_rA~Wi
z(#!EVtrS!V%kCevv>w>4lH`xt`sfD7#dX*|{!~H^0wLStHe{rA_W}bue+OpU^<Av#
zLC>sWjf~4-NcI>8&(`VYI6R}a0$J#}-^(KE+#I&!vs!U2<C>qiwP{Kfp)62aQT@gp
z6W{T-<!K#L{NY1fW8kbx&-Jq9$wo(Gb+R>q2w#XT)_@ooxJP+PPF(m8dTxT%MQd=m
zaSWG&XAyTURv&%eIAaaB2Rd4x{PCnRKCR7xA_0NCakz3Ajlw7pw2<Pep&qV4_xtz>
ztZtHrqN~`3rd<W*KAgS-+Sq|3M=CMDt-dd?QpY|P%?_Scm4cxtwP+zN-97}dVca)K
zx{+OJ_o>hL?Jxi#z<Sy1E%3Uc3#oMq!8QPBsb^@gS;$#z)N`(5;%A}heEa&fInQhK
z(YIgtE=R=d73b>4wO2;WGHV&%J(b>%@>+CMsnL@$5HBn=wEUvk6<$<(t*xyG6cj!p
zmEVq$yJ^PIH#~vsrb_{&@#&j)ry)YOYQ~@@%;-q177{;mC(<XyE4mwDtPS(+aXZ$6
zzm=6SB7_WWPiug=UIHe>q@Y4iqv~Tu%=Lw<L#%6U3mYU+lf+|D8evb`K^K(WZvv_6
zaml+f5_J%!^6~H#s1<0J;65!OkUAFas5>aWWqSufkKjX-f)SV=Me+hC(v^tdrLH3$
z@>{wED%g>lee$YP>O~i^SY-JbxO-%>JAiIgSXo~|N~(zNO*jSwJR(^wH}_sRUX`LV
zh7BWi7$bG~5>zVM7p>9%dg^D?M~sUXOIfd_s(KGr4WLo5!`Jp8QUaV5WH|s3yyxc^
ziB*wN0NR8SJd7q25^PXJ3_d9-9mJxeXU;r<Lu+>JHUWV{U>_(W;-V$f{J<66p-mVc
zO5kdEkXFE(QEze0dvY!43M}G~P)E9h;Y&(EQjWby+S-Z!t0ad!2toWPz^0`LKPxyn
z<56v-oU1s1rJw{T2D2H)Of!MPBAGgdu)3w1D?xK?dtgq$WV%AJd<`R35?4_qs(48D
ztD9KQnJ|O+2@TCeC*;;HY8z%uAgE|P!9qQU!@do}`DCi7&!>p`ZCS_@<oEAyuQHBT
z!_64)v@efC%1_ip$lcz}Q<|-R$29BrK9o457@W_-^6vY5foXbATh`5+bBQAs=x=}o
zj^LMPBwwyZA1(x_f&UL7^A$LrBGF_a>L;dyod^EB&n2+6i9?yYSxih5q>|{4PD-BI
zwpS5Q+u*exgE`+{&;aG2=+wPZWL|SmUp9rZ-fj9^rBJT&O`il5%90R;KXO-@oBy}J
cIAUU^O42Nw^;TaGkqf5DE6T;~)w}XP0RD(DO8@`>

diff --git a/reference/resistance_predict-3.png b/reference/resistance_predict-3.png
index 230360e539151e46522f57c22101fb4756fa8e05..b7cadcce22392c368963d6241dffb7e759ba8175 100644
GIT binary patch
literal 66468
zcmeFZWl)xF+b(?BiC8EqVWEhWC|wFF3JNIQpwit9iY*8#(yh`d-5~->OLvHXq#)gE
zJJtK0HS_)a*3Z|upMiORGmhBzt&Z!tq__y#_QTsrBof*6YnN}6NSka(qz!krZpQ!9
z?j1IPFPra(iCo54{96#tamJTzCf5|qNhIp0#Q)ZL^iOJ%NJmN6FJF?j2^{UTw%Omm
zxHc)l@%YiJ-8_^-Li=Ce-S%t~IlarfYqx%EEx)y&Vvp{N7s2nh?AbFzf0X{F^zsWA
z$~~_Wu2JmXzh`I3ZdMDSZP$+)&dog)G`l}q>1_}&;iS^6da#nOKe+Yu`JB0GzI_8G
zTvY4-JQIl|@6Ob+?%(&MTw#}k|GsB@v61D!U)jG+_20Ki^m}vveXD-!q|LuSEPQuu
z;@|b|UwPfL>ECa-9xvMQ@7n`c{`bQFI~0FL;Q#%qkc{ZG9SnN$;swK`UU$A@lJJHe
zZI;{#m->RWs3`h+JI$HQTe2A=LP_R>;(0SoO4%#3?J_x5hF)jo5<V~46q9jo<h}8B
z57k+h6AiODoRg2tsAK)lYl}Z0i<6Fi^ZWO27wWc6+O?sV4u1B1XnAELFNu`kxVkWC
z*YjXY2Q%%yeec`S^he%^F@I~6Q;RQHTluB;?cL)$ckV1xYU(gBGD=^%bm@72wfDNB
zo}q4Qd3oRO-@jW7h5HP@IGZ3Dz+u>sZK*GlsM_gqOHu09t=DqSBY&SbmXX(T`0aSk
zFM%q*^JSW?pFVxMJvaDulAe+AMt_BmTo8|?bb*tjie;mWUSo`xKc{g*W@hH?GMAoS
z`8`x&>D_tHPrn_Jzon`gY&SD3b0<gDaYhC&U7e&FDyU@F7UDPFnWMirJ)}A_HBn4H
zk~i07-dgtQ@s7ricSRycIE=gEK72SCIr4<;NQ8Bl?O>p$>j9>^xo+n~4#T$0(SsA5
z2|b$_3ym^jLqiM4<YZ;N(+yhRahnhP4EIsJJ<=2}6DG8YjD}CXwY9aVD{x2K>k}e7
z6X}&RO*E2<g?HO5&IN^pBvw}5h*wM#{Z+7*pKbjs;V`@2&-8Yq`q{Dehk4u+8{Cf^
zJoU6VY!@|8rdP)dg@n7v!omWN({iTM%8VSwMTDhbIoT+y|3FDuS*&(VFpo*k#lr8K
z?<ebwwtOrvFXz!#xOeY^-Q2jLB1>%u6aQGvsOIe5@K~oV=QT&od-pQkntM$s(|b+0
zc8<uz%HH%4Sk!smPcASYiUp-SyJP;yHr1Z>8X4^~v+c&Qs(E%i4)Z2S#aW@YQxDdg
zX!d@3EGjBm=X>t13-$Kp`+cR42cOb9)h26JxKKZl6Ihv+YK)c=DOg?9PZC~762k-4
zP1Ojh-B~za!}tE@&!6`{tC!Sx3qRR8slQaiH+AE=rv2>bw>X8A<u;a{U3+s2H=R0v
zUW&8R!gJKh9+&9ZvSG`vhSMPqdq-JGZ|g*89q(n1Fa0Wzb8^b3+9finKh~DE&aFDl
z#bv#U^U4feg1`n+CWlc6SESryfrTHQ>pV(CLzuLy1EZ;Vt>)ub#F(=#GbyIhe{{h5
zRxWW3JyEnn`TlJwDJFZF-K1t3o1S$>9-A4B`pdn<eY&mM4fQ&+(~h4wv4QIKpqZIj
zhd=oq(u827cu<}5>Qu<yiuQEFSj9BGO~;PwJEl)t?{%1;=%w?f<}$fBHCQvJUvU2{
zx`ykKb9X*-%T4S*aDd^&3E>kW?ib?c76wDM(0}StOj0l6UK*?%$@!JP!%FAA*x;HY
zFV(L8{(jx5fvW6&Z>1X}ibGb}l2WoBM>H*S%41fR=6F?{N+{$ua=j@CbmmKLALDUc
zO!a0_OYmpcKim{>LH9Q4{l>Vn4esB<4tU7inR@*8?fyt|w<BC8>e21HrnSYiSN!s{
zDt&v$A}EwnbzWn6OAlMQr5bfAawvV3ZYx-wVJVo|mU-ehS|xqZlmv5cZ?EW$8x5Gs
zM2vLabe)*^h~wJIoa#)5^)J<`08R=0=7dI+g*5FN8VU-Ep?9v#buT%)qGaP0qs<4a
zW0bR!%M1@vQ0R7MTPh~sd+xM6DPq{2ud+1vOAa;QdtaZ-`>SLsW?$*Byl&S=+_Y@f
z^cg~px#i%HE7yJ}&88Y%++zCYE#j}DqoWtcGP>XT`^UJs?IcFK%!5|$^5sViatUz}
zHv?i6Qnd7%6M_<Q#(BJ0)Vc;IM>})mq$0&-L`7eu8+RxC?ynfh9!Ze$VOFvDl{d%0
z!O;|JB@xIKMknU2Gc(-SmTCIlX=#j8Q(HUscDSfsYjQYV4%5zKYsvmluq-)|YiWX#
zf+8F@L-D&pl-M+#Z^t7o%U&LdY*w|e8p-E0XbHvcy5@S2Mb^$P8zn2;w6Ao?op+oy
ze(=}IunAYHUL!-5?>S*CmFCrzC2U8gG{bgTa{lR8is=T?NlC1UZL{po?%nF55)#dv
z-45?9N1BKcEdTQ5RdKK6%fsvqxwhtXr%#XIs<oOvDg!=qpVZ2Z7;n6*#>LCL@zcV}
zlgE#vm9xx<f;mtVk{FwiU9Ov#ntFj^|9%^b5>r->ny?G`<?jsJ({+a%qES<W>+0&>
zzIqj!ZrC1!NgZza`2P6u+$Foiqvm$>F9VY8#<#tdv|)LfU(o3=RTXZ;iz@Tbvf6I+
zW7%|{hu~uPm|1^$G%Az7fa4-}h4VuH!SL|#=t~bbI}IH)`MU1t568u!$X(aP)rfr%
z=i}|ICC?%t(Dj~@sBmRoa;my5T?>guo!Q*(w1VSSOCgT4e(x~}Mj6htBiQ<!26K2@
zlgn4HdfTMwH#4hGI!u-vELnN-^y!hNlvV@ryD#0`EKm*m0y!{a!!ibMs95sn-<{y(
zY>uBRX<R+az+jd;|J^lWrKGf!2m5AR)>(VBHKpuZnDCa2jA$_*W_OhwtE|TKg0keu
z+?6FOE-H5>rF7rYaYiG#UqfF#Pg7&OEZe$%etS=LciU&D&I0FxzTXuroQ4^g#F8<A
zrO}ip{gpQM9bCl+`<iLXUe*~kV*ycP#?0(<V&oFX=TTle_1c5xmo0NAp9s!gQB-W>
zZZ~WSPFYFSt&g~E?2}RU{@uId^)?d0d_%Hpt9<So^&IfN)f2{bp3SY!1xo1#=NK~_
zm#i|<*Cxwotrgc|ViOo{r8_Roif0tu4B$}x)t#HmCz7a|cVo`ji$R8Jq&d-A-@bZc
zF6;EGvT#YRxwjlN#-;9pr2(9lLj6=zWwg#*W9^-$JtiAhQ#5rKryeN?R;$L!#+$WO
zFE31yjV!M&{W2;^CKmdPn$v=2h#^bQnFt+HdD5dt8;dO)W96)4$#Oaq)@|4vg)O+)
z@1xc+Zr>EAkp1(WE3w*rG}X|PSNdqzYCqmB>oDq8dHneC6NwOVX+Eo*yiAFduX8ob
z)~gl0Ci5o`3?(Xsqdk5oeoCIhsGq)u2Gx+FE%B1_+^5u+fq_(=7WFq33!L&QR;hM9
zz3NUC&0{(Iv)#DB(mvq!?b{8Rrg!Vv9#B?17#QCE;Jt{4x4hPDa4?UhD9Tmy8#=KL
z_hXVvmMGwQElFYM<aZQ}N?uUtwWUUj2XggVF%C`*WFA|vT3+nS>>abBIB+1w`d3%>
zY@0s6oypfQ;inB)EosKxs#s%Y3Ies*b@S$GTvWR<y7x(R3p<-zTAF2<_1|dT@||mM
z)TCy^)5ye>H78W(cUNB?=4P71SmvaSp(t4@cDL^9&C^JC-m!gqL&VJ^j?0r}5r+4)
zv|?<h21Ku4H*Hl5t>%Bg$NczHR@uSHjV_!Y6?&;oT*p{?)%SPiSkEbiXip8KXwsWl
zg`0#3I65p+4;xg|q@KFI@6?S6r4XVEJz%S3yky(=k~2H*7b<DD<D4$`i0Vv8KtSvf
z<J@o4U%OCN?XZ>d^tx$<m}s0^bF355+vsvS$7NQql4iy`m59yQZaJPcNaM4@zdGM%
z*ZcTj?u)NCj+Q1j1_?MSqBu$E>BVUHO?4Ms9BYn?V?<dL%F4<zN(*@XIt=Y#sHf<m
zYDqtn^UH2^w65WftP~W{0m~x<*dpWX2wh%wNE}`ovFVGJY&jUF2VC`J#Q%cs9Ugw+
zBvdQ5eC2a?>7O!9`;^@yQ4bHD${$B5zg?zviiJgj-)_2gxG}afp*~GtuAX+vg<tDK
z?O{&M$&P*3!lqS4>moy(hAnI>yqQ+&)D(IR6kX$$GV~_DmpBb2-YIz@&f?2s@l&!;
z(0RS~tDa5etSQ%r0Z@jLR{=rZ`JLD1QE3KxHAFv{m-`jOYaN6AE?$w2ZOMA>?ga&B
z41OwVQvcv!1#n_glBA!XUt6lKXQ>CRF;}yi?qfy11nGE1nZ*3Xn5KB8Na3fuD9Yrd
zr9WV#nAGx>(K_Pmv#}_r7B6j%l}og;rK?_;9c_IN0DL4Ngx@~Bo2GQ%vyW6eb#-+k
zM)>{oO{)CaiL$NhH<fs8Yl9Ot+r4MW$;rwFMOg%*B^O+-ea{o#TQhm&hE&82Q*P#t
zNwjhMm5DvhRK~e`wl5uT04^EExZHlai+X28W?PdwZHTa@LslIYc%=EygZuaE0QN;#
zzI1<#;hk7=c!vjTI;iH*Yno?2o>ex%kg4u*=!`|_O$GkBjklw6ed^S{4v-z;;8JN$
z(hv@r8+2n4RN7p(GS~fU+Bi=lM8HX`^a#Jt9V`~7A##()8(Abvv2myc9OUnox}D42
z%YNp}*Zz|$3JMB#Kf|5|CXCdEJ@jT)i8*!CpZ@r9A&!8XxO#(ix8vZ2Z+>20nl_q6
z9a-jLjIlDY-lxO^qX7TUu(93N(9qaUPA&&5*BGa8o`3T5KBBJ!X-9s0FOrixQ@;=R
z=rxv$KHiVVW+Ie8{sUD31fnaMY&GC0DJhA@1S{s*rM0CSj-&?ps5xaxn@UIDz9Qz$
z_-&{@QU+6pUU7z-yESPUJtT;^rn*|zgNFac(&2M=9@W*?yLz@nN`y4wuIzTxI`v!1
zHt8{L@h|SJeRWKDXR{BBnkvOv+3A?E$Y49sp`jsyKLHTA)9}XtwW*-Bm1wR{Q=1#_
zj6EY2L0O6}A_vSXcIC<y{AvTbw6egaw&rDSr-wr=AMXygXC(G60;lK>RtJ^zodn$U
z;QRedV}W?%<?lMBa;Q^}+VZzP(I|d$hJhhwo`QxZ;men6?8aTnSm~yUk?0)Rb6xgi
z?K{K!%vsBP&JUheJ#pg1Oow?5H<P}VlC6eDn1+jW;r(^0WrNYEWq%M!MTKXlQFCwc
z)0@A1MQ`4;<WZ5Ne|hLkW?w{Hu)Pc2e)n}b*1xQ>a{)xwEjaah)OZhu@G9r!-YiAm
z<_${LstM*_L<`N+tEYHBx#vZFcJKN<J>1UgY>FBm{T}CgHdu*9r0D)|3wida`S;Jy
zpBPf{SbRz9%C;N{Z2H)0;EqZfB-Lb;!OIlz_O0}=qt%ns<VIUB^KIEh#oCeB?J)JS
zW|2Fjb;G`0R9x!vH9Bk8%`S_G@KTGNmI%H;<?5qq7hUgENptuhE$y#s5)z!9`RFla
z<~96-7Ai+e&2()R)n9!2Bvkfi$ggSstPK-iI&UvQ$E{W6-!I$ope+$h*qLl83xh|E
zZgx2c?YoRAqvK9?kQSd~kE>u=VsURy-;>C8cBf^VVki6QpS>2{0Q+UNVZvl1WQW*3
z_su&v=1yJ>oqJr|Yw{MzRX0yN*tS%=-BLh;R{iemaCbq$2|>Z`)PjpNA;P*2=t?|9
zF)p?ls16!Q?Lu4HIYK}g-5{)6Zl;h|uX^Yi7=G)h*-nKrUUzq8$#0qHP0(^y0v%$!
zB~Uv!ebGHYl6P+7@B`hVgne#z@4wD6ALJQ}MPZ^z+xN4^JD<;*lG;ak##}4c8V%!f
zHcB4P_U+qWv`>}@H=*<19jXf#Z_n&~a-_p(!vx*l-20p6hd(TQIpM*ToRZQxoC4@4
z-mcS~pQoFL@he^p;=jblz)-H+3J8$B(qMQ#*oic4&G(d?mZL)uSeV6f>8f~$fMLt8
z7ZhiAj`%rJ(g-@`YUH&W<y7fX2UHDQ*aM#6Lphsr@9Ue}hW4SQ$r&9h>&iN5O{;Tf
z$2&(-1ykmxgYCyndB@R%!0C&BYYB=Qbmw<ktocq(XQCL6n9Pr7_6}J!#w#@^b%T=^
zJ7LrGKLc`9WWmGreRz}T!P&KSIv?7hdrOOa<V>*RtU`!^=lT4_TvMnSJWh*4r+rp7
z{hp^{=tHsRrE!?JR4fnZcfNiRQiYjf&Cjo6j*HW#id~~$XY<8_{Z@9PT>OYqOpDRz
ztVdCh`oG4Xck=L;jmAke=d|4poiEi@1IwF>3cBc=zB7E|uLPBxz=XA)hvXP^85e61
zL-F=!9v;>?WQ9Jy@786KK9`gbyU?G{Hd)C$9^~;*7tipp1{HW)j8vq1y=AqLToz_1
z(A#l1I&%NPgOMn8!w<I5)B-QXUvWL4`>QL@$ua4AR7u}iE%MCPG<_dALx29Nx#S9F
z^X%oy<wEU>nwsY7Al@MFM1_=yilNJu8_gJ(Di$Pct;&9U^|btU<)CecPtKIfX1#)7
zKeHmgvk93(?0OBXqmj4XUyZpP{z8{AzlUf;wzjrUGG3^Hu1A<pToDn8Rmw0DZ$`^J
zd;WZVpN#_m@ztoY9cQoIyeVU5mW&OqHBU;C<Pq4S=fF+1Yi6Xm#-#jFv{a;j>G4Cf
zk=-_ZWY`D6DU}9xPas%ixi!mGx<5pd0Q-vSUBpNpT;qLP>bAe5?>5n)#8|s4QpP%S
znup9%YIwW0{?M+th>jKv^8a9O#g?6vp#VD}vzixFu0Z3V%cp%edJHN7Nj#V@+M7v<
zC&=fEA5;m-gc0n<iY!mJf$!$CsdrMiw}%&;T3q|#DRIGOLY;ty=#d|xi%tK0@1fUM
z`qIeI<1~Pk+^AKK6KK&*U)D?f_OsFeBLw*^`TY5<jhfpsgaMklBS((t`}4&@k83v!
zTInBiKv7AAAjbD%%-{i4Mc5ta49sO8U!x;t$}meV&47wLSpkD@(+o6hOEp!9NF`dr
z*HM0})21f%H#rX_h)GDy(H~HwLDLsq`lOdX|9yw$&)TA);$)%zd8#jyGt>1Fe>Aad
zqmE3|;m(|l3XX*QMZLyEwSv#T0|Nv1k~=D97zJVPi@v=nE-riL&bxqHKH|V16#Mqw
zRgAzgdNNYIYDy=Kv0nZ=*1|~`Yt)*`q2KfK^Y=@7Zs-aqZ7#;siZSxq{{GP3{kT(;
zgXQ;vVCK397hMi!UThh&ni*@CBLGrG@@ervR>Q$jHOHVlH?ExF?_Ku4FjOx)+Mlhl
z2nwoso|b50Z&rREV4SbO&CN~I$hl8%lJaBwm_L{4yBO){cc8nXD~mJrKsPbqPQxg)
zgjUjCP#wZ!S>CtGk~e+3e&*Y^Z$=rK99?b+{u5W)^JyxItRRx=K!q?;du*SN1;}vx
z_^0?}lz2#cPc%V`$JoTJ%inqnmKn4988)|)x1YZa_FinM_1s?D!4?ace#}*!Kmb(E
zH-E`4GcYjJ6+PU-u35gnnD+_+Wr+9t{9BTnSkx;cYHM}QYfEa8BWS1LfSPsjR+#La
zv@slJKfai+8e7baCutOS3|AaHd_kut`9_*v<IZMkRK@x3Fg74u0cM4Tj(t0eoLFiG
zM$3}a8OF55zAj`Hk7}lP30#p$(Ynb$(;!9XO-{{o;b?dLhgy3UQ;nlVJLEfBPgenO
zuPlxvM#!b-ffctUYl`)(=MytBGJ3ALXU`sD%6l8OCOAOufkNO}BmNGk>AY2r3gB-O
z7{62X!H|nDTwTwr(9+P*gkEzgZk6Bl0ZKF>)B;@j2rT|Qv4T~tm}M3Yg=)YuVEkmv
za#iz^*I8eeGJ|e=JBQT8$x@%C<Gz88L+PysF{*jlG*0sxOe)z8Nk&Kay$GfeS${5H
z)qae<_`_%c)G2-tY?`!YV4=uuGvQ)B!xO#5Z`>lalUfZ3DTaTzrrTwO^LtfR*>D-%
zvIKpek5<O=Qh=a<l4x}e^@9lj4Ig=LsId@L>a`txZ!V~F@YD3L5Mmwg(uYHb4n-5?
zivW2u&1%N-k<bJprq&;F%$)E6)s0uqx(zZd2ei+(8t#Aw*ajWO@8zIFUztZUpy*0d
zKCd!eHQxfO0hZN(+RT-9S#^s>VMx;uC!+{iD9>)@_jR)-gTo$EoAe4~qa=$=I`bWu
zl$++X7WYUjm@jYkY#j@|YQ8bJYIIg3g<C&pvVXGlNLVV1kOGhpB$^%z6+Jz@=VyNl
z_s@_1nq;>cl`q~n2UvLllC4L(o4b1xxK>a?fPiE6$-bdO5QV90&+dIWkSNgZ_aXJX
zwnwz&q4T#VJj66-{w*G@3uR-#5DrZuM}gR-!bQCx^|5%#3*d@|ElEYE9Vu0=)1o+~
ze&%2{aN`Nx34q-!r{<_R|KMJkJ2h+sca0T7hD=z(81rXW4UGD<`X~=2a`&QCedy>=
zCe%6@5e*H|QtZ&KeKI5*r>Zz3M)LOPO<r?W$>Rn8DxSe6zYWn0wdP(%yX%}Iea!}J
zP#`Utm{@BUc5g>IX+bJ<8h^Ti{H1YTAJbJR`s2oLeg0HEgB;Z9f#lV4ud`&$M2io2
z<?_U_H=lq4mV<(l)x%}l);Ijvu58%6(<D2=xI5nt#5mU|$9Zj4+{c58`?gh1r-|JY
zr<Fz9&PYyRidgjP0B;4T4ZYbZYgd^co$E`06qZ$c=%(&(=qB@V9+E2tL*x>ID;Ces
z>W*3E)PGLobldw2XnN-Q()~#0zyhP5^-}SQ?Dd|_QWE@{HWbE?2X+=%Fe@Z~K0WET
zZO0BN$U_#WJW&uD?3TtdW}tR~`UpRvbs+jhMOk0<Q_~a{QHU8$DK!F0d_Kdiawjtv
z%_wew<DBpCu%8=enyjUiXx}v;&m0TdaN_uJ3qU0<mAR3`g5fW(Pdu@#ud8#gD{<Z9
z?5<`#KO*K}VUgO~$a_{cjx~seV9+7Xt6BAyuV258m@<5FeD?8DWdar7+IbNLL4g`*
zl?0&49xvKL+b}=bC&vEr2D$+32=BcW=g*&KcV2af+}4FnKVs~>6wvHwS20?~0YQkM
zE(wB5FG`aIwD|Unnv*ZThZZXCvo!poe#gzn+bO0|fPCbQW)1dAe29qPQ5heTcD|?!
zZ?&BDeeBhfXHJ|bw#esuAA1>KeRT52G^#xzRq)635w&pom-AZtP`3I>*1YFs1_Gz7
zjqdWTZI4Rnv>SnV0NT)>Jf@D>8r<1zIaF8DZ&<r&(<X7j!s}t&-W4vuh-EbPl}TOj
zDEch2ihEgev#V&akizR|Ide6wGVXsH>#bAEa2^;O<W*@-R1*|a<^P;-Vu(SH_-dpr
z_rs^LZz_=6yy3kFdE^M%MFhaf;yrg0ZSxzVb^LQ3eHM0427~RH>CHXo#@d@r63Rgx
zM+zTo5O3~;$3Pc+TTQmijdR&?{8A4@w3?ycz!$#NbKCDq@J&9tbNB8_-7Hqt4~qrM
zW|cvoRgzqJb)+bX?sHjLfYT%umq}=EqZ+um$zn-LXy`@ayAhw7(NO~|C{ZYXb&s~~
z3-mt3YZZ5ZMb%)@qAz8vBddPM?7dnpfB!F=N&$5@8h%9(G>#xz2&i><23QQge_ZFE
zDBSR5M(7ggCt2ivZmUt>;imZ5wbi+TwhUvn$<;HUpj~<P?1pU@;QN$KY%6$hxZ<Ec
zMif@tk)}0lN?eO&46JlswjD}UEX;sKLi+6Xy{&2^w)$Td;P>FXm#A~cg!e5M(Kpb8
zB9_K;B%D_lv?ucgLChEDei_fRo*7EK>_PF7CD5FUs=TtYVS1=ONcE=ORUsjldT!y0
z?~}HW;t4^i-V%_b0YKWpy9Hj<NKjXd@$`w5R<7Adko6&d{e*A0$BXXzeW%5B8lrC5
zO%!b*8~NKJy-LpYF*%3W@3w*D(hLQ2+(O09&QAT|nG+}{k>D(g;fC+E-=!L~*0HRt
zOCV$-u9R5!bfeA~$Wh!XJ`m5Zd!FJ}nM3P{g_f(BYx5D<Q6caoGd+DR_E+?#9S42_
zd`l`T2L?N@+ScD2f*qJ(HP&{9gG1JXf7X|f>H!VuPoIv=RDm4`2~?lpylUQ6392)X
z3i_Tud&Zg@Zq%Hh0x>!GQ*klHo;_jcxsU~d&a0_{f9x!v1ksfwcrTa@9mLd!K8y<Q
zN?#t?@<Vo}4)mcJK;uqkepJ*o_;I(ekBQ41I1m9ffY2QX1lZdsc)O?c_v2HNOKEsK
zqMP?FV(p$ickUJdHvWTIQs1oRtdjk5>J<pC^kUzW3<7y!dml<z8%?Qs;c*?m#;)Jg
z0EbIo-l?bXfxyx^=GvBnb$~Q42=VLf@#DwurL;<?>B-=76%(SG*PmGDyiMzyf-BOP
z?`U5<1Ii<H<3=U-(zl<Q(;I$6n+Z_0?Wf4NqYq<4uOX^;HhsPgMc<;|OYVTgF)z%)
zV2E>9(lVWo@^=e0@3eDLhgSvWj&j*S&9hj5in4*~xpAQLxXGaA^aPtR?kfhyJfj-`
zC&`*eMjoy2t*`IT`h1c#QH3%gMEk1dao_v0yVx?%eohw7QDA}?7)p-S*nV1CmVl}V
z_%#^*XpA<2L2e3~@JLBY5=$W(WI9GEBY{CWO0pxNN=piNo0;$P;Eh)TGK1yQ^nTUl
zP|XPszVFFv5DnnX>=$GlbHjW_%B2QA&$?UY&Y+f`3rM)1nmS&|I8TNUH5^>5>4&=V
za&(U;URclV&2kd>6#CiZ{A@NFU8nQf3Qgk~GSvBK3m6bK-=Cju0Fk_%VZPAsqmNZD
z@QmK3<sbu%8j7J&jfStUuZ~Ur+w!JKZeHGYi@Z)FL2X+9ypABXCA3)ckr(PI?F%bI
z&|2$NtULQn^I)ocGRY~g^F8x-zhG-wW;+a2`mJ;SY~8^>9%Q?q2u}`}oj)X9ciQ9&
zsw^YDR4-{SEM^z=3nBs2%^h(df0o(Iu=rE7s_Hx?1coBNh=PHOf{}6LUSX>3cpj-%
z;1pr5m;Jj<Kk<;jM42CILyg7GM=vnoXs=Z)89Nj;7?o~?&g!EQ5Y8f|AxkD7Dj<YB
znTv^`6aQ70Dy@3LMk6jT!eNv>bShpYC;hXszie^-gfgZ)RjcYSco?O3@4Pb4$B!TF
zFlaX_U^Oi+KQ*xiSJlVsiHeI`<y3=G=q<8xl~%6JFLgXD)bGgr2zV@YXCc>i%J*r;
z{%otUVT%GgB5xq>BRE|vEHJWR0?DGD^>Cgy)GKYSGJ3rO;0Z!@s%FIj$mE~;@&nlQ
zBcAU&tp_MY(`?yKxOyn0GDtmyWQ>tn_dUn1#U`YHL?t5#+5*^_LcE5L<`%NUAFwf>
z-dNv3fwc%B?kp2im4!gr6hTA_R%Qcq{Um8BWDi8GK#!J!C3glQtEN3%q+93^eD2`{
zVHC6Ppnr+|PgryqJ1>#4b_SUko$5et7?OV7G$wm>Mt96%JchFdgX@F&?WK_`@#*Il
z@Tm^H^zcTrAS?l+wTlDfXpQxRdXspA?}UJWs(w?P>4?aFVz8z#SUYy?IG@XUw>4RF
z-OF%Bh<Ai=A<<S|QBl9P(!J&-54hu_WVA^4mT6DXF4Dz6?P<qBW{d1`;Fu<2NHUC6
ziWhJCU-*Wt3>tfkNjXyzclicgV;ZpO?CH}Y7@rumg8ajrMsWa+#KM(=oKSJH0);5{
zpsLL!_#Kcc8=?4md3#5oJB@%wlz;tt3j!?RB!i4aqkikPr^m0N<t=G4XI(7u3=E9J
zejXwo1pGb>^;`kEtx>l(;hNGq&0jjgVNgrh1>hxwdx0wjGUtr4S&p{c0_bNDzc}Bw
z?#3z+WnofCzAWNF)A;U+YpUIh9uW2=Vx}OQ$wc3#Q?VaQBkqlrq{m}bGnn|%A#BHI
zr<*Y1iFQHU>bzEEZAQ0KEHn;69nD7Crx6xenr?lmHaY8W?}AceU5_K-mMb&OSPnPg
z84w7)DN!vEY?#O*?0PB;jYbmQ%Uiq`@2^}b>?o#`j5EnBtEbV7P^qM#Tv%4IH%Ae|
z@PNO5ZnmgjUy3z|XsCW-UXzKtc*+^J^>jQuiYeMPO^F4oF+e}V(3NBq75y1x<Dwva
z$AUi%*M+;5Su?O|t(Jv^1nrh56b)<+sXGjTXsZ6IsT<5Qy6j>JtH)+8<`06O&S{KI
z%vX%DdQi9BJd?L*ACag!`h!t1^^5Lz!i|S7KDR`^Go#Zgpnk_TEbRBc@|UU;9XDux
zLoUfUlKd7QIEEyx@78F|3U4|mNl5!Kg#PQ7bLtkyxhorp3(Ctw=Be*5enNIOMb2Y`
zW-BOEVAty(BTpX}op)ZId|IDFSL$|1*zDjXk-xD%#&V;Kk&=UI7TF1a-0R#o-)E7I
zlfQN1svG^s<+NtiJ`Md#(*ps<-tw}M;?(YGTetnq4i?^l^fUXbI}waQ879x!k4`8C
zqSvl%6}m@q(3t2c0*~g^RzSD~r1|~PD;65OW<Q=Gy0fyk0>XT0W6u9vYP~xZ_d8TT
z7^r9X_>>Q-SiG)3T`VFZGJ-VHcA-Zkhj94*;+|Ph%m)~{j#3IZ*gV&SHuSBEvzzLX
z&iyxkLyQ*>v00BR%f!i_YtbOlhcl~Wf9W*|oGOQn0e<o)3I^Giu4@O)@#m64f8W3S
z{=|d{5k`UyPG&`qIk|t_g_;;kQX%iQZQF=tVo}3C7ljxA-N5KZ5=m3d7mD^q-mQOr
ziA1_T2;K7E_x~Hc{NJ$Xzoqd1A~#C}7M0}*mv6GK>?|iIXG_@Ms~`OW>mmYf#F<m4
zPPK%|AK0e4kzldx(Ad<U{#}jtcN5w^5qv4yRh)cn;&^Daa+ZCwigh%weGwUvbjH6+
zQ(sSq=%6lk45^5owAr&CCUO%RpbPcCUvRmHY67$IZc=d)A5HSV|CjXt;`RQoyzz^z
zR>ad}n*2aoY;}17S+WOk9A$tyKYzZQhBy}_I$5;hht$XMd+KNYRH5Cw5#0#iOimMr
zj^`uK>9}Y?2BLrmt|vlz6B83hFB98To?Pkzz7+mig{?J$Sf-VK2Y(-=emi7A!S+rE
z2{`iH|3-{k)8DwW6T9j6%Xz=c&l>rJz>%hLoW2FUUhparkbX<{=jJ_}K(4irrT7zw
z8#Afqwvg{3E}^;OPw0BS3MQskK){GhC(@IPT!-<aP(psk*8=$O?#-5Raq?j>Y-q0%
z#rrKk0T9BBF&B$K)S4OXVx3JehEHGTfgBdyj+k~>JZyNhde!EP_A%JF0SN`GcC>#V
zis__HZyh>$0xrFnT2<nDP#?m&fFT;qBX6k7-iurAIPE8<ukv-zV=?3Wg$M#}A>rng
z9naZiBMhZ5MmFA`{5T#aEDi~R7tfwa!XRxngv;Of^zW;YZ&S@AfD++coHlfv?|n)H
zxT;F0Yw!Y=U`KMQw&8@GlsF9N8V$xE;7+9M>6N}DV{8hI$Mctr5=RhRQ#Ca;6>uY-
zhu;2A`7SgLw)ws-F;ZcEu3&AfPX|A_pZxSslzsUWfEP4uDI{=3W>jr@Hz6ptbcO-H
z5;_X)7hemqr>c2pAm-4svDL-@28w6~0$QP>z|SN(z-)1~ZvOe6hlB$TJg6xj0oxez
zo_DD`b;Sk+V&XXe1cXT>Wy&|6o-@Vdf;#Xs6f;f2uoAtXuo5d#xBe=&P|)$?^ESkL
z*|<p5;>%WFv@b{p(f}5Jx(Ml_UtyjxenR~F-@N_*|Dy*CM1b?}KNCZ6iZ&#Abp2q$
zQuA0`BM?KyY(nmDQM!{S=Nb4mZu{@p!_m(#51qdX32It5fDl293sxc)XGWG%RW=^@
zQxk|w9y3A=LBRMtC#M`Z#H4M`Rz}35|K3bF2^I{ihKp>RyoMq(pg6DfxHO<77&cRV
z^7H4<0Ulo=pgESjhD3z|b^!KKgyR|<s5c*Awql_Mq_@V%oCSC3((K-9_!mCm;s*)u
z1gb!eiWBgYkrx4v1Xkzo`t%bpUqWEvb802<JdyXfejCnDnn5dD#-00V|5eTVnpC`2
zgaa9&2`GmDjvud-QiIw_7?esYh~&uOX`ud&$#;GOPYX$Zx`Wuh{U})i-1ouE=Z_LK
zi9|9vX7~H+X?BfI8&Tsz(iS|NmxTexO%xI!eGqv~@U)v1WYj#;h*i8knFkq)&;T@A
zu^~E5iphdE?F__5RX)sTlhoz3WEhfe`{T==kn}Bou3nxF9e~Jz3EUhPt*i7q&#qf{
z5^<C)MkN#y%U@lcsg;m(UH9ceTWjuKo#hPqyp0ld(uYXQ;TC^O6zU`%83};$EwBHq
zg!>nH;JOJcPY7f7DpHlTv?7Ro`u6RI?Gy~Y-h{0Otq++HBSmJQ%EY``|1P@`rv8C}
z!`>BOMpjno9|~wLXf-)QwxMxeHqCgGb1@1BUwjs4$711MEPjY5AiLn&atcDdj&(GD
zUT13{JYd})UtSyesO39kDfO58uq47v&S50vRH81XR>BjUfnFr~hNx&SY53dXDM_*a
z9jQ@22j`7Bk^u`Vxz&KVogh{1)@`MwrP(soQV9vaH>tb*JHT`QN+5!0p!q2X9`>bh
z^nL$6jqU}VOqIC;xq4}^##^8!8h*%JtqcmTy*`O7J%O6p3{&7?^6BiP-}K+!JMht{
zlPBbqb$G!*;|dJ;4$+CLmoH}qifZ8GMai}<ELJ4`TTYv<H*x>({#&d@Tf)E_htMk{
z`oW0FF?_=?(xomxGTnX(0VXu43?rC?K8|YEotD{<BZ%;D{h7m{G&0Lc)4slx^;>*#
zMnVP3oM|iP{o2d_AY$PL*!(E!0UgY1sI{4lQ-~4j!@MUF*1A~)b%!j@+^%0A@e*>_
zsp~{E47{jMHjWhcw=a-LNr8WTn8J87Y;S9Yaiq0x!v|1uL~s2TZx&2XjPA;Y!q)%J
zIf*G?*3eO-Fk~TV3Rz~F1a*~DvGl4)hN4Tvs&&^0`VGzX<aK0ar4fPJS%IPYS<U;)
z;_MzW(jb!df7Sw{W|7OLKg$}Kq%@n!I~jX(CnqNtF%!Cq5e^H#F|6>4qTs~{Jl{vE
z{>QmUHU@Pct|JZky3>f0(bLB#5-DZ`cw;bT5o0nj($}Gor=ka`%yvdf(5}FK0=Z{r
z>@(qd8yw7heLMUW(C-`V22F8(M9$yGal^%^zsQ0_;!D0;wu^tZ<t|O*IkD1U<Y}FC
zP(GL|;C`!hJ1xcQ`oRG@d+OBHH~SI$#;xbpZz8$=`}6yopquJ_eM5&K^3~0P35Y0z
z6xrbmlIXn}+|XkPhq^IF#=Ldz%0ZP6gh2vdho;Q1G-zlKi8Oe;=!lD%xp|t?iXAA`
zO=to#gaC<ciDGt^gM*``_s{kfDtt&T5Vf{cur{R|K*1m_dG+cOP;4DVW^i?|d!kPd
z?I!~ft%X=kcbzyE^rvs96Djtt+$`${8wxkMZ8Y9WDEH6yoR|(-TP{nggc3WA0Xxga
z#&-X2p$IhPqKep7ol@ba!f*eiO3OSp@Wb~7O~*65yh<YORHlACUaO+NQ5)hTG*3wc
zD=+^#o0xkW#fZhyjdb7qbr0DdSj5&HrcVzrDN5(YA@>z?>;02mv;xWw?G-3pX%IYM
z@Je$8Fv<54r|Ake86&es$oB~2eox_mj6#Hnv)E;du#sl4g@=idgC?HwMPevnRa?Te
zJM5j-YC!nXhdB&>+V+s{haM|Bavb^JRO~3|fJ4|N4bUqst1WgShDvM)=z`%;1BMWT
zY<8UMJoxz;F}6LQyx+X}UjHLux>>lCI2<ACLWE!HK@e_MeE9HT|7jafPfzx{r8`k+
zNn5E;+6aI4^ZZ>GE*7-<PBGuX76gG%!=<355cTHGpJr%M1gE-YdMGj^CMl^l>Bgl?
z4~T+5=)^D=BczTZxf6|*9wC<<Y&zFztq-Ar$cyS`r9_&TSf19peftd|StkP)RUa)H
z(FVAZf~ch8jXn^6atO8=CzDTLAmeo;p&g^|{t-0J@;b~XjTfvrp$TNEXroawS1hBq
zF2b!>_SUZreE<{sCnBN-aaeS8*O9a2<2yp?kveI!5(gFce^BAEV?{~IShmEej{YA%
z=$V<TlRBU>(p|@Xo3xE1_H$1(ib+*4f6jc?F@&(W-ywfaK-d@0SXUVi!%k2#%DUpb
z)ZVQ;s{&E0F+rt$ko*X0g`Y(G22x?jwTVRqVy(Y<^A2g}A*^pn)Q-TeT@6|0+Apbj
zW#Q4*zC9xq*p+@aqn#ZB{Pj9Qf1djTZ3?}hv=Qe;upbcjZ2NfkX~k2=E0-_pV2~6)
z-g%7O0B%t4vT4W3>jb_v%;?mT=fI2f2YCVH@7<g0<Q*KG05w+;S?OA2R1?v^b<sLv
zRB~py`=9KhjzPJW!!7DD*X-(rBo*^2cIY%x=!H&js0geC6X4BBWKtO^1Be+ox)Iq7
zWkT6j7>CP8<QXb#)j=v%zVo`iMyxQS-1bwi$xrCTMqV$UKfi^)zfs{Z(<oQ6W`qDb
zkwK1`2STR9j4-0;5V3;09{dqdXLQiGiA)!f6gejRWPi6me2S>YI}XNR;M*YnO?qWl
z<75UW(1uYc2eGs-Zf#H2bX82%xy4r&%hF=N;W+(GBztXjNyQuM-`W!Q4G{nK3i)i%
zAkoE<90|hjt00b!pc)a0_`wGoNG9u0rH&%)Q;!7XG(0?gL?8)M^#WL5I5tQPQ)9ZJ
z5&<oL<xaVygj-Z^`2hL&=W7v~Z_w1hh|<&zH!oNAnh@EV|1Vp`&u`zmcP~j8g3<j4
z$a7{nwD=VFzB(CMpB}`7zDWdiW^y!&H~;C#5l@vMQ7dihLTwpp)ed22N<sJdzR~#M
zX0qufCF6yY;&^u#&QRD()0O9Ie$uYZKPArG!HoJ@el}4WEgXWWG30=&SkK>3z}|t0
zU4b0}C0Ysq=iR$^F4O|cqv!?=0Dx(bk@t=ez7sM9ayY(1bUByZgz#0#hu-1OruhPp
zQlicE*|S>A`%LK(<4i_-4Dkres3s`YH!BE@7bp7Oe9%wGDxK!Nik3t?o6P}m?XBDQ
z=3bHnz9S9@64I_PIsXU9q!PsUxPnu4$1Olr<&U-xd~quvF8xLIXN0Q?oed=@3n}wN
z@ORQxN=i(ABP{7u%MsZiE>j^OZz4;F6A}Q2pVglNW%fvmi@QsB=Dd-Xmyg=E@6=BS
zmuG{Us;;3d5P;Ojuqi=B3Bdf#2PBa*23r8`!(MJQe)S0J0v!rrs)s~M#}QgR&Y|WJ
z@BnFZNu0RcW%X?9D;$iBLe?8v0K!;%_wK!**FZ0Ll|mkCz3%?H4HvA(JNAwcRxeJA
z{8=JVx86&Cyi@W=eGuw|R?|@6>`dhJQkC(fIF~Ao^OZi<UpsC3{*ZkNWaR!dK0>;H
z!~NFBM_Zm5u`o>F8zO*I@5)W2?@;-2Zj7VF_zLn+I1%=2Yl=2;l1L852OdKiY(a_^
zV#VaLGJOsXe}v&kV@sbMr0i@Eg2AWH)*C}aA#5KgAn&0j5QjI36I#>L(}kNbl#G2r
z)?MFf1lI^>z%L&M1&J}mrp;kof`hCFz+*JCh9yT2SU^O`5>seDETiEDc=MxFSJ)b2
zo1RSQAv**iNftewaE0^0%?V?g9j6&lUzN~b$gFH8JTX<cOnq!NOkv_sSYO|>_4??X
z@HcXB?CD%ad1ORH3@k$e4B+VPG8Go+#ARs8gysXl7vN2tv)x6*7nPaG1*4%P)d1!%
zk*-p)?e}6{0-DS@z$hPz{D8-Ij(VtA#7P?geRA|@+G`V=C1H=C1VjJ?5lai$jW|K`
z=FOY^h?4*Osgnoy)9%M>k%n-wgT!)2Q>+KnxPYQI(8u%;N$)YsP5|vQXU~e^j|JT5
zlNLjm2Ic?D0?dw$Seeba0d?I(N>0zu|J{0s8tTaCA4cM>y&ngnqEYMoyj$UZAsjIS
zB|g*O7XrWEsI5D~08xwCp!X0bH&4Rkx-Pgp@lZDaZOpT(^ri>yk_vP}f~$^GuNNiw
zXWpU-ip6;#E(Mep4GvSTl`@3MX(n72SQC2C<%zHfLBWWL`1<whrIz*c50Q7r^36?9
zgWiUDivgw(aAPpRu8GAlLK_+DO5bxpCBEUF?IhBCF;Y^*0YL7RO4}#+Q}{+_kc>f5
z2&kSs3`~hdCy#1i)@qH7N+^|>Uwew2^T_ZH@;z$t0x2M@$pk^(^k>huHWIsK63gb%
z`n|d9CTg5lr2tR`wG~jdeosx&T_+A5z)p=OTqqnMA>gl#P3C6Ug!aGk<WMx4i5-U6
z+RRYB2vM*>$!OhfJ|HLN6sAJBULR1Jz>8B808_aM_KVZHgvSQ@F{Ob|c#v1ZDnO!a
z>|5u#E#x#73IiyT(s0F<#XY1!^NGM8A-3se;Uu5#((Krq4`?n7@Ens22qgf<x6e83
zN#!p90IlCkTwOhLh|m{Kt4ZT$cz~~HkO0a4+~yIRcTq*5206mUB0N^p6%gEb`Hw<`
zWh}V1AaN7v3L>`z*hZY3-l(6_vjHm$Oc5uHR5NaYuh3rIFHamxjvny@Fni>W#hW+r
zX@{to*m))&Kfh>XsvzVk#z=;_=(YlM69zeR#p9<>ai(OgtShLj(Kp|jv=%58G%UTJ
z?(WUo&+d#?+&d)p=%c1s^3Kh4Cq2Kky^_55HQ|uZ&OKzF@#iW-wZ810F_iMYy>~c}
z$Fh21rB|llU4P)9t@y3xrJ3J$X&uexosrUm$~BH^bDUc-KXzSSh!To<Wx49=>3u3M
zkEuJSsHjM191sv7#~r*|XzQ^@((c=H8L;^{NVMq{Ud$cqNgibnKYl!?tgKv%pv2C@
z7q&V%IrX~-uxhL~Ff=@8KWh-kXS>(R%IZ}`f8#9I*13j;2I4pQ9Ohr$;tQz}0XpOk
zmYMllU7hgF2Di9OvAn!&^8NF+$7N@e+Yo)r`B@jf10#E@zXb;0cf?q|(sj1(+QmHN
z#fv;E7cZ|Im+aBqq2Pf%lQuE~rydbc%Ki`!I*X>Yo-{f-%0SHt;6y6KHesNWN>t^4
z^ypDxYwIDD$U&nwA4(BF@;80ZTv|Hds#>Jf7~LA<e)`ew+q_@zu`#OVQX+=x)wPp_
zp8lei)~VFgRCOI4`5|^3^PH%c5G*P!jVND6K`4PAebh_TE7<;ug@wg_fu|43`ik1x
zvg^)q8h0_;<^YubY>Yh^yRe5C$yfeYHmOq7fBRO1Gsw5(<>iOg9VlU0zkeux2?p6w
zc6P56?l=Ar4_ttOjzQ%bYQaIBDD|rsMMbw`O+TKVw%Gbu$k)#g53t$a-#>8RV|sci
zw6anLVy+fi)SOoy-@i|KTsGL>-wTby%l)~lYcbSQ6F@kIL{5~GmX?;IOib~g&H;i`
zp1ZS=R9IWP`yjJ&)U-eDdIbzLw(=$(cDK;*DTaxd7L-wwp2Bqmn4g%PO)%*I$0w1{
z|D=9qD<5pXR)sXv9xRV1C|#=2nTO76sl#9ltnP<=H!(f^8T?FeAuu6<837{?v;tu@
zwGdAS^okPXf)15ze=HO(-mtp2Bj51|f_B8O18=P3=jX@xsDFO8Cn+O?r9Sc1ZlP->
zaq;mQdU}eQ<jR^83l46`O!iJfS-IqS>L$bTG7de9b~V-3UIaptuk!e_b{h<(dt^S+
zIxm0xP<Z6fq32NB-{aQ1w?E$f{PMGxFRxs@NJ>yE*mcn|mhI~x7=nV$<o8Y3l;O4W
zkdKbBvc5`LX7k&L^k`gai+@1C4mCA3Vs!)f|7`hqVk8&br36&gWb*r!@Vf_DRF(U$
zca=kn6EQJiWmd~~LroN7@PgZZfRfAPC>0eIKDa<ke2T&z_d#1y8P^*?l_f4od{hR)
zGNQ8fdxV}HM}w%?zxV8s$S>;@0f41+B5&QSudf$&aNq;5VKDs03NHh(-z_AQ`3a3_
z9KiYX5$yjW3L00)Sz`LO9#alopZEf&0ee9xefezJu!LlEJvs{uFY;W;B+!jZS{l1I
zqk;?YnORvwq8csn3^=D+I5@>!75`JT4Ha-F71wTn;K2QSh={(#C61wo_WD9eE3U8i
zv>d;K;Q?<h#B2(3zZyWMoHju<?*#yFVPhkO;L7yAjqBHGXVD5exnZFmU{TADvryL4
zV*qh`js;iL*yxqA{ODENh=<^6Ar>2D8Y$*ke!c((FV2Le#UI(s%{z9uik7`)md()l
z_T5z=^X>o4ZTx1;y%5fEeZ)y$$gFXdVMiPUXhEwA(d9IZj8q?{oMbmdVWs3SpadwN
z00uijN4IJ3^Np|oN&pI3?|j}`-F9Msj%nX!4xFEtz9B1n08RD@gsrC2dI7$^NBQ`u
zfV@8=9uz}mtf~1J9zwP3E9ftG5RltSMiy^IY>M5~)Gy&ti~lZgTsnZ?k4w%}YQx0W
z;`FBCSFtY#kF&E=6s)cC-eXgEeD{YLH^j<sSUL>ki)^f{h3I@?@$o8}<LI>Ft~sPv
zo}Ld8_;%j2NtLJ_*p7P{CS>>FAA#bwZr?5>F23vYopY&aX<><pHA8wgerwj(*4_^a
zqDJ+Lp$qZxIru*F2&YjGK6xN;x@fE`kN4gC_r2re?yp|GGAq;3)4KzZ2y7fL)c%a3
ze|%h3(=;O$Z%xGRxvWMhM>+^S#3ap16VU8FOw3ynszL(h#$CCWP{EHKaOKV$$ER|b
zAfLog25Wu`{*E@7&-QjNWtOr#GV3IwQ~3EQgg3*^KS4!J?G?cKcV%Agk1ABEns*R@
zDlb`Ie{^F_h#)@3fRnQ9>7z#`R<#NU-<hHz7_=m<8>|TtF)(24%C+5qGl3RkZ4}U&
z?!SJ$=XBN!oPwuq&oGwb87G!FxB019;c<+K)p*BOdJYUX0vqp+?>M$S(|(TG!O?LN
zT~@RVL8N0WEaYH3G1I%H1VTKp(~C+<!pl3L*3i?_OWIY-e66gM)=`G?vFE@6*&$yS
z7ne5yR}LROj0~eTzu?~qxi<5DJ<Bo629zv?61gS`|1(lj^?D=cMt=RO;j+Tt#%<4q
z*1YziJCTi9IrHKs)!!vHYpeVKH!)N`o}TX|kN6W>TSr1^Ny#ScE*Tw0(&JqxbIkg;
z12-#c7Bu0<C$RbewPRDS6r*~A$?qglUeMWn<L1q?RQl@b_rZCjxkdgxQKt}A%WxF>
zgzO|}6jjxSMf5Y}Op^zu%ZT5+^6}Y1O-+4u5}ux$x%nQ6YnIR5-Aln6Cs$YOs}rK*
z<6olTGNe8X1(_42u%XZ}FmNND@j_Em(}DE#bT9Wqf=&+CAAm_^Q3^Wojd1V%w>l3n
zOf<1#-f^_!+2!Nc!f!`KM_;1fFC-@BI<rppk@OQo7A0o;UfB!`$q8QG08<AIjbj)J
zbzR-B^udN7T`TS!Iu<jH_HDMhCc}835B+01g$)h>K7b@AvpD56(!>;}ns=B~n`3Q^
z3}3>hkJ#!69`}rf{(Jwez3VA#V*QkvMJy~XFstT113v8odZ2J0!vchX=n5|}46kNE
zd8Ahwp9`dSA^()=Et5OuWOwi0mCZWBuJ@TC_|<Rdtq*Dj%@;GYfc@t2NW1s#lN!oI
z>wLqp8PlC;v1?#p0H!MK{_>i>$y%IWM15LS;9z6>L}a6C)3*Ix=ReFZZR*mqSY5WQ
z3=yP7os!a7MzZE9gb;FQGbI4%M89@B!kN$}H@gZchzsGNaQ=-HGl(gX?q5Ex;mGt!
z9NLJ6j?OdCjH{EtRa7-mizc^@YMQ?U{75dZ;t1Z|Q%qKd!m+$ORf7YCm+kC$u(`k&
zpW|r79n4iydb*ZZ@s}@K!J^~M0^Qxkud59sea&X%{CEDg9<$tov3sD*Tn6iB&;I?=
zy_9IeI{Ny;j0b#j*e0;}(2C1IdQFz+C-qdSa_~72z*Hu7HzTfG`9y7LX_=Xw{i&it
zY)IbG(Xld+TWV8E3{7@+HX!u|8Ucqd^sp`{k%MrXQc_ST>gWiZd_IFptsWS#yGNLO
z3=yvHP>?kRn7u?_zkT}%Z3<m&3)W*Pk`-a$;WEPK>HhRJz%&Zf!VMA<HEboFXgtN8
zoz$SgkDou^_DD#>PbSMOi|Y96t&jpr@Yo-9>rdr6EbJwjAYOjKux&r!Y9q%Q=J76^
z_gA9fafy&w4x`Z!5n`%Jw<N+MKsVXxK`SWBP~F^oaP#KP4E{1RzJR!W>l5?x_+tYY
z`Dn<yy1Lx9r-3vPpLjtzc<Lld4p1RJSVJ+q4;3EI{S<c1<;#~ZDk<goYhC+O$N_i{
z5wHY>t+=c#^2Z8#r8?NYq?A-F>yxs+OClm$@NgnvFulNn=u<`Y_4`OYzkZR+$;lxE
ze!G8ai$I)gAcx`M)6LKyx8TEsqC+OMh46;}CX}q|_dmr8cXW0VSe&Bf#>@d`<!4xC
z;c}k(`ufGi#Sbl45mdR0D4bWq=$brwXp-}qQ&ZOUP8oUmXXoygN-K0QjbY!*C#kOk
zyZP|R?+<`Q-_>{#W58eqdio|~uqxmwqV{r%9ZcjQHDzcsAAz3Uc-(sZ)TE@cawkxO
z%xr^UZRk1>|E=&e^!)vZqkXi5*RZHn3{UkNa-mHNwtO@I{jNmF`$9f6hfEYeWb!`o
za7O3g?vJoz<c2aa%qI}i-E{u=zeVur0ELarDE8Y~TYC&&TtXVOII~2ttxE9dGEI8d
z8+GMw)7I9u81FcQ-txrH?+~Qb7Z`|>baam29IY$PLm$8rrca$wR#BlwuI}-}ha0pP
zHmxUK`Vqnyh(EvUI42ag8`WGGH3gueOu^_jC(bgYT)p#elRt{um8K*4v5sG$bvB5d
zjg4V0`;kdF7T-^lpPLfz6<^W{(%^K!XN-{P?5M(*{@)U%I}fpK6c7;j*^zaAkQji`
zv9WVFqRnSBLCP@hzIyfQW;ixm%+1YrQnKE+3)w5qXFu!K*zJx~qbb*s|MskM7!cmJ
zjq8!dSvPOO!yV9-!sZwE!;t4&;O=n%=pO84o0(w>0+BT|NPoG<c0s>sCv5f~ALxW-
zZ1`vhNNs2s|6BQk5k3X!4#nDV<5^q`OYrIYL;uY=QB`FsK{?QeHjw!2rne&Of5#yn
zxpkl16;PL?;3LOA5ZP6Y-#@;x^OFflzY7h$@2M~Oz~>KC+btx(((q8O1ivBkdlt`h
z?DaKDmB^%|q#JAXb<Nn-31}EU1_r#_V_Y0sTWD${!^1ai*s#G}OZeZGd32W8GC0)p
zHdQLq`WKDe^v?(23-p#R=jUyv$2*Upe{Le_=;#!F`}TS&Yp>8SAr>(zrSAmuc^DCK
z3c^`vY^*DkzoS6)o?amz1`vZk@Z`x8w?0DygTlT^uE0HitM;Sa%#yB~DR6A*69~h(
zKQt0T{<j1bUVNg=_FcPn{REhT`@a)~4z~=AirR|PK{&x*29d*bdEWHo$&+uh1{S6U
zkL};C|Gjs&klr4&Mwpa^6%`|%#}lrd6uNisBtGP;cVxsBjPyO!RQ3x}pEj|xvvYBA
zsblNA5oy!%Nw@#r-{ise+{RG&He1Qb%b>)7cCI5q7Xm4h9p*tNJa+6DC67fEL&Wv1
z(ZVP`1m7ag`f_ss?}FA9qf4pl>no9^oQO$wSTLg!aG-?lCdE))UcMcl({bx-AX2~;
zRL2*w2JoJubXouI{ek0qZsFOz&w(57W6XQ7QSq)%<r$x(r*mK!+<<<Gk8{$2QWL}z
zrHQKgrLyu-L4hDX=Ietriz*ozS!PyNQB~E;##u$7t!L8l30{w1<dmG;yA7Y6@eFLZ
zx%|75lam0@qYF&)Fc?*=oScbXD_SpKzBGlx_=oHXR4gtoa#;@VhoHa}RDnI61gl&b
zC**EC$Uxor*_p%1$IpMxpoLX$$EAM{FVpj(aA~ylJe29pP>nt#o4VgUB{lUkmLaj@
zVA{F3Mmsd^+_{sunvJdPF#!P@(D%>KXI}aGKEpElF*qnJCbk2W_zFNnEi8xWvG#*_
z<Hr||Mhy+^6ViJQhsDOuj)5Ajnm11V<9bA2q>AG7N^y}SSge79&NRngNB!u-M8R8y
zVqOS)LQm%Px9aL$*j5iwc)ALl)rRB&@S%1S?J;E;o}GO1y=^e}Z;cQ3n{k7EZQ|wS
zC05AV>Pl@>(*UFMx!2boo!72bhqFLOy99dk(X{XC4PVxE5IzR@PXAlcQAFQDZ%4iU
zXx1+Z;`sC%I}N{`bTS)oVFDIWDcpvl!RGOl?h6+#0F-SL6RYqK-hS-EE*{hG8-c!y
z={ZiG+_-MtI<;k^^;pgLOryICzxy?1Jq~z&y+_CYEb@k*3rb7WhcEI{1iM3dxQlfM
zD$#QKaTnTjAN0mT(96)s$T9_0Tmqu_33~c#VUtBgMK(*bOx3~s6+_#<<A_vYRTUYF
zYA*fMB$flw{!~>}ea~y}B0gWHuJbCiI!&ho=h@hf`c&vQl5P5151$R6QR(sedT$;$
zs&{nM4Hha}NZ-`L&*ns0I2W#H$HW=HD769syd#YAXDGGD`T40K?-t>8Dhw)cg7ry!
zJQIPO!0a_zk~GrtYsH`~^+F|cyQ|4|C_y>P1+tDQ*ZbiNkj}?Tp|n5>VA=Edc(~96
zReQx|PGAfqa4tby0Hjmnb6%wab<k-|Cd~S%Hw8sRROM4i=N-r{g^>F{A~7UB(9_>9
z(?6%m;B}mpbvMxiE??d_$aw*ujn*?Z_VU%M-MNlS=|B3atE*e`9eD$Tg3iH50E;v8
z|5s#h^PZUzodLrn785cW1#diXP;ommGczT(*+~!vFS|?ho?l<RdE)|}x^d&iqsNY|
zBQO$JH=)l_2|7{9%F34Ccnz_I0<i}D3;7Z7HR&C{^aDoq;wgYsqO@+aUxW6Bip5ZK
z;`KE=b_u-|^dMq-re|gps(P`KL>+(q>de_<Z*Q-h@8Fm6eHAsM_s5S%xw*M!f@=uM
zlP4r3aM?^8g^sWVOJ4l9_bHzW)1_HMBx$mL+{MZ##3Lj#zv0AnwfR4mAuST!&#jVe
zapugpIF|UibLXy!ihhEWtASL}v>vTM2)UG$6h5M}htMGaI_1qotwA2q=Df014Lw6b
zJYXF^CjW$OaRr}2l>7n;UyshIMhRx0^QzmjZKt&02Ac4_&nD=H&Ftu*_br%;@A$;d
zxZed%D~EAB`xXx~8{1w45;VMWS^!#EotEdfyXJ)RqjeLKV1*A0_g5806cLz$La4AG
zQJUU(RNP}T=*ZlI5?PGE<LftXKI#4=_RogtWnTAB+TevRLwgVs65>)*(bv^|-qWL=
z>$KuO$q-W03MpXE;ltaVot*(#j-EX`;(6|N^nO%M5h&83@$qB;>rt_>#h_`NIPU#G
z0YxbQhG^0Y<F?c@BIl!>Fj&u?KiAlgLS7zcbFzE^*1UX)$knUKFS>KAS#YMZjJ~O?
z?CDHZ6J(zoAp$DVzJREAL4g80f3D!SYxC@_m7y2ZnL_BgoMF_tn}VX``hRbscSfei
z5vmrED!pLPA}KSqj&wn%mIPP)YzApD92UXDu&`qU3xijoj${oh8=KI@ix<CAKELdO
z+y5WV-aM@5wR`{mV4H_bQRbnxln7;ru+0rfnrNbgid0l6%8;l`kq|PK=7i8d87d`1
zX`rGAsgy#74E<hL?C<Zsf5-D2&(J^jvEB9gyoc+$*168}Tx(fT^Rt0eDKo?O`+zUi
zg;FTCN?)c8n%-`qKF1xa@o%$~Ehh}z4ZKF{#qE<)jja7j@0PK9_w3s@2VN}l2Pc`=
zTsb}UT5#H~UAvYB^p!xCsel#6Xm}_c3<&VT;XB6M`R7DIzd<?=>e@~Pd0%i`96?0Z
z^A*O;=<=2CIsL6h`CiYCJvgsOp0qP4$Rr_{25Ym7jb$WDAx@wa>_ZCGonEywj5WXi
ztzY}W&Kc)451tAQO;@-A!bNZHoG~_HO32!iqZjt|HOrqhsOtrvm2PEEi1&-rGSbpU
z@4f%<VFs=JWHZ*~47mkc28hr~V*!>SY%D+VecgfJU@2EuR}qs&j_d+_*g=Mqot=Fu
zCT1@r)P#u><J5QQErfw<xm7~N==!kV{K~RDCl^K-+uM(Xqt|-AmV>8d%a#|g8$lhn
zkkD6SKlv3$wM25`+nc^WC}rNRujr+(ILp#<$PJ`4f4dECZsqXD`QN9t8yqi?GtGYP
zDY)=P`aKNYG+KFe@A9fs(TQP*yiqTo_8Z6MmA$%BA#}Cl<;&=Cvm;%7<JK&wFZF18
z0YJCv=>`L|Bxm3Fv15CPgpMbw_;X^f4qjg=SdAl*49EuCcYx2QAD)t+Hg!%;mL=77
zSik-b+xq~;QvS)!Z|0oK_thPeS4;i;W{TB3W_gkYp|;z=fl|GD_eK~PI&NGqIDu)9
zW3%@SFdOrRr6BKJAU$yA7f!^pz-ReFW%CA(be+}DlVv&N4HQ?fDTxumJ}dM!p7d<r
z;`6Mm#O#8CE9ox*=9nArD5juylp9}B%D_t4K3qR*!Y?9d)Q3wpYwIVHKsu~jw_R63
ze^v6aV|_SucHtv%9M|@!&QA0>;o6f(VBE(9_im=0QQXvA-ao&;`1yyDBv&c6<=cYj
zzL*5|QbGw0ZW1!FIkDJfo4;YJ(U1co)W?VRzn!6#5>|vk<*0H5(S(z+t*2C^on+9U
zL8nRr<Y~(wZ#DJC$iX`lv=w^7bhacRj&>SBVg@?9K+F$#pgE$~(BZ?|0~+r>d}yTE
zW!8YT);l}N-pbLbI*Fz2G!WX)QhCIPtar<ooq;9sv*P}5pkSrfuP$B$(7jNUPA7(Y
zic^a}_fli=N);6qX{Eu%18+{|XH^R>m>rn`B^UW)itVaZgZ}=z4J6{y6JM-oJC;tH
z$qV>;Xv!<38@wnzI(6>s2!B06UHv6^?0CiR1V6&as`YcazP>BIDg{6nkwt)`MT-`O
zlcWVCKLg4xm{N*RI_AC6=a!e(yH{2dA$pLeizqAz3MY@LC|Z`ZmAU58G^M1ZL;(C?
zmia7Q-L9)wuNJugq4#!PUQZ|r!Ohe9^Fih5IiaDUe!iE<AZ5m`=(KWOxE)#2kDotJ
z^RvDLox}KQ20X~hev?QGWMpMW?_HVnA&K`KwdGe&4ddt`(4)(wEe=BRX3kr0ZDVI=
zg$F09;sPYZ-PcYbmc-R=0|q=$cOCs(O1PLi{i?3Q9W+yYm$3`}J}B195jDGBBb1d#
zuY04Tb3$GE#*G`s2~P6W+j}-IjH)s7J0wGIa9VVTUkqWH3Jvs#ws+YlCS5J)<>DJK
zW&a!_qb~;^240;NJ0v9I;<H-Kc7s#B4Q$EuZvhZ|!L+8=H%W6(UnxbXYizLlfvqdJ
zWY<eAC#Nw~|M{Tfl;JKIvFL7qRtTM-)k8sdv{!X#ob<4;FfeDU8PxKKFJC4sGzId;
z0q8?~0=Uqq;z^QJyi-e;ExW1U!p4eng6%mC?D8vrI%Ug@88Zy)SNjyJ33fp%_PKHm
zWus9a$kIj4X5|FfSdflkf^QAf53cPF(Jd?LH;_%-0Y4H}-+|#AoSbffpjyE=y{)YL
zhs>P>otG$ni_@d5y852Y^AC5@(}n7yGIs3t!-spB-*6BAaJ=~diAcYe8Uzp!yb98n
zy1KfGO5EJY_y2kUR6M5*n#N0T<h~Z9YlrBGRfx2bN|h}Hs?mo8kwgCd_s&ZFDRv=7
ziUC(Qm6z``xN__4r-~;7dd_S&cpyTOECTW_+@@#2ua9za7A}rqcYk`D)9MSgcuw!&
zcXBXJJ@83}SOo{2(ldE(W@@T}*KhuZLTB7Jsbr6l?{-JV#_l7ButcRj{>s3}2wmwy
zZrT(nDJfbJcpKRB!0@n*-un|W()hK}mD0}{TEQ*qLf~~*NXNd*D&B`RWwd<`+QJ^T
zbX->O;lqZtA3sFEfxLhkjdJQuNpJ=hgot-rM|5o`G9HrNb^cdXch77&aNt0(HK8Id
z#K)(>6X#&C5G3sU`SbmxhRBHr`mLXeV%>_BE6?&kMP36^x#wQX-oiTBR+uk8#F3&O
z2@0};hqT^wl%{ikA<^9;?^tSWomMy4{dxBN``XWceYI=tp19^>^61xlNUfCHUK+Y%
zf0fa1LTV5$mKR6BoHw68KY7WeGdVa6&-4JLzK}IA`yz(S|KKl$^datmQ0bl<C_0d&
zgX3Tm|7zQ|?fj1}mAS1U$Q~6I8m;=l>Ht{Z*Q^DNq(Y8VUZY3CDFQ;26PI_ae$O&x
zWo18^(c27u9lPUlUZ%KU(CY64=ggdW!RO1zkBbtOJJh{MZ`r$MI6K<0DsQ+~1<A<Z
z?z_t>Dl*hv<G@ha$J9D<*uL&{lyejf*`c;%;s~?ELyxaa3!%+3LS+A4$g^lb<mJAE
z&A-~Tc?pA{n8|kCu|IM9!mX|>8S5odhgKr82x(H}6Yx5Nh7S*awGKus129o90vpIv
zC$ugNwb>}M7<l&M)kjvI^2aUwwpXFzGv8=V&VJc@yH1ZNg%g&E?j&->iNzN?2`zU9
zfggkBF3f(1Z2B&>we?}^h&;HqwpOuns%c?mRn;w0GBBUwqV)+#Wri`P?ICCaUiC+e
zK(Y6Rn$iEdnO4~vkY;d|51;OpH8V3iKFPI<a3$NuP_nV?L=uZtoNi~IU?1F))Aj|0
z!NCUZ3m0~a{K|oESRe50tC2v#<;J^bo}mRqmO^p&^IunfV5#1H@L)wi-><s*4Ie&4
zI5jxLv6XJaDL6mRT|Pz@?M_1F9VUaWuxG2DCr`wE*n;z>1dWJ7?pK$?%wz}bYkOMv
zZsVKQA}yXWN~`w<c>j6`{=>;r0UdIG|1F;XTpgVem%M1(67se*#Ut}O|0EPBdR0_s
zcgW)?3rN;j`+PD)SlFwdtZlgN9ulo97Kl6-O4i&(c(K0Xy0`x%LxV*)69S4-Jf@aE
z0d6@==y8f}acq)laEXu~_=@*)5@9X*`u+P^g2?eVLxV*+#Bv=<UP_K6Kkz-$g?PX;
zE3~AX;dn(2e0uHk>%PJ)mg@)&-Lcn*X&W|7D6jcBuoy!1sM#zZ5nGY5(=>k_)5|YR
zR8)J`-FKevE{Zd}ItIP&*6y#UBGu*A)}u%6w<AiDr1-7t{jsi2x6y7;_ua%#$AW~d
zQj-ipeZDBzhK-k^!ozpt-9pB&kXPCzU=YBRv%!)S`G~r+;)(~ycVkvqN=@MU4P$w{
zdL0$a%9O9)%6tBN0GGZqJbXA5oLE`_6TuToJXyPetM`1YufGXSyuT^vMId3f4aZ39
zx)<%OXbmfV8wx4))~%LY;tUSt7Znw4w@#BBnEMxb-s+;u?J1n!<>PaU<7SzqrQV15
zyu!i^$|7w)EQ7rqit$azH!>Ne*Bo2nf$aC-ZBuw;<XIFyzb;FMT7<$#1|)P_!}kDy
z!q=y{kgar+miB^zSjxk;z7o^7Pah$m2oxb?#l?=jzt)uqHlV}%<J6aTWK|dx`6j6g
zM#wVmh@(5#ZTxy=?ts&(<CLCqm5X1udD6ei?M=39$fgq>ewi=UhtPE^$Z>?x&kdND
zBJv8SDF#@=q#S=W(gmjlG?G|^!9A1W<KqVhXvL9e{GiZK(QZKtcjNw>%hNkwURyeV
zxPkX2>ZFulSkH|J33etqy8dd-s8O*_8B8|_&HfHm@RhQH#TuF4_3FR5|G+?NJ;03s
zPf{dtH<smpTCQ2M=C9VRTYSAB|KRrRR$`@#aK64WcTDR&JcJ8dZju404OUj()4WTm
z+?jZ+Ggh026;?w0?%44*T%^{N0WvbXAREKpnQmj*y&y^(Us)~7nU~f7?Af#1NfTax
zCT4;^^vCS0x>NBnhicB*ah7p1EZ(I7qIY=IOYKrm-Cn(;)t;D^Ll;CjU0SnG9IWZ%
z?RHEb9NBWTgz9pyoX(lJ1ZU2g6_;hUnzzN<kNB{n8@3`Gn_7llQ&4)?H^!G&b%Q#2
zM9&}*bqOeG#JIAzZ+DSZ&u``voDbwm7v?IrQQVYUgfVT*`*qLmRcTux@WWhrICY2*
z2$06>$GU1M!9L*>a{V(_2Hy8*WCMfwurB&LYj%H<=qKI^3kBPO589w(d(RvaURk++
ziOzxrQm}>7IgO5<@gXxHz1@y7i`~5!xLIw2wtYfkqT;iTMu0x9QM%VH>DO=H-o3Uj
zdam3pVy$e2ea@NIk)^{(^ba3C41W4Na7B{8`O)o@@2#sTQZuY4fLQg+z^q|2XZ^Pi
z){{4Wm>G`t-UVb?kl_1_HBWbpp(Nf)@4hMZ?7+#@d4%b;{mu_7d?*4~hCfkYCN%uI
zXRf6$kSCrbZyXyrC7;9bZpF;XmTN1AX-luM%764o;gV%MGHj<%!z3d4P<8b_!UjOp
zpzkx{=ts?|lf~id_PG<Va0ea)+9wHMG8oDboGLm2bk=Bzd=$$+M!o#zKIKMZmD1i7
zi#~F+wH-EW7*^eO!oMQejF1p7sL7?645F?a?xA;->WP4f!=}xf*O^{3TVrDEJ3r7;
zg9E-m6B93wljrn?tGm`_XKrkZQDz3#d)YLe@5Q2@=@lOr_dkcE)efGX9LA{YrR#(5
zjyrjO@Y*2<b{T9<M5JiApN&^TrLn0;@7@`jIUj+e6Y$4QAMXo=PA|9%>nrsNHfqy}
zGy}kJ;Wt5ait_{VVjEc@1_n>84%d>B(DLTI9={KYFfTuUA%?S6Ha7WLLE>TB9?tb>
z(4M+D;@xiT${EAo9x7-$9~%o*^;j$T69*hF)&WAW!iuz)EogOXNBekNwa$aj*<*7Z
z40$D+K@+d5hCfCgnk(nv;*w7LqdlUeI@{L<8kKC?l78aIDXAQ!X4}WgpL0=BRlT#d
zRokUYm+Dq3{u5{H2WPpA!}<7YbB>8zlZJ**pUTS0Qq`}rKXbhvysQr?_EuSDWp!Ke
z238M}ddrWEuLU@Ni6*hQL3gi@kL8c6dV{)_aiFd^P8`lIp=#vT<~zO?i)d4}&L!2%
z#bq2grB$4<Y2~urP!fP2uGUa9M-BRd(}<PU22N^+xE4xI92^~QvT5FWPT~kV9_}{J
zk^Ckv4AW-8+;<gcP*r%}H}OP8^b0zCcqe*cIRbIM%Gl|);|T(QQxO4h{|kQ{X5g-{
z07rG&Kss`yId0h>&8BPFs+IJToZ$yEm#$u&{dC;MzI}rhbSa4FfHTE(<fu!xf_4*;
z|B>rHdT$dIG{&!Eqr%SbdO5@Y=+fc=EhPkKnGEyf4F?Qr(Qysy(O9&aQk2ruTDX$x
zLM9kQ+*J<HQkrbBb2yjtwXu=@7<C6-Mq$p|pSk?Wb+_>pq@K=|zRo7Nw)y)wvbtr~
z)~yfB)eo&10>&#s)!Ct6hPt$&@zZcjUv`@mcjPIO9Yb+@<vK!fq+>rdP&r!#m#Y|J
zo~k9+{Yi0gIn=r0ap}R%-WXwEc?6k_d20~NB(h~X5m4V{&;{~JQbQGvE1_U01|0q-
zOc#J9oM(GrB^}lGL3=AXFFlHugIrUcj68t}TKVh~Ds~Njdbe=TZ8J|6HJul+tlz`5
z7GA46WYe5=ML^J+QD1Ytos=LOUN)z2ZAmlK_cww+qks}nnOM>TloHtK91&$zRau(P
zbFq7<(60|IXz;LMZRzXx50(hd*KKIBBF{kYZ>9kB#u_)wpF4MMSY7*7mBV5J_9)%Y
z%R6*`eLDfkJCnwwar^g<|5{Dl=1^Nk8JwS6Ww+^59_8iDT(wGp1H%j2R<Wnm^5sGt
zxnO?4;4xo*fzpJKaxUxwdjI?`&slAv5sW3|)P^5lN23vRWL=%s-35OaH|0_E5J9wn
z-tYx(C-*Qg{_3w4qJmiq)>>9NBWo;}k%r#*^Se4Fn4UJsCY~YcMy=zv`iiotYxAbr
zj5+F;FFS+-eE(cIKc`j$mq=e2-rd8!)#=3DX_o0q8@5Wdeu><yvUi`K-}1aO+lZ|E
z`ICfo!^%q}UHkQmT7SR{7KpQ+{Q~D~4AcXxw4OKbzLwOrqz&~$sPi2~tJ|<wZH%T*
zZwc^h1EI<h^^anJU{%1)Vht_+IaR>2UXd-=5|$?P&q%AR+MzNy@Ln9#14v6Qmn;fC
z=<hF%xOYYI9jTwbLusY$(!)FQ2B4wd=4jc2HDJ)lkukY(=mZ$wFkEOh=*;)R9wig&
zr@rZv0u2MY;4s>|a#p)=dkDl)6Yo@0oU6Ck@v00|6pae&UZ!<qd%ob~U>uc)UvsI-
zYrl8z-c|V#(iI6mfBpn~=y^4E^_@9n!-fqG7h4wKTH*UiQO@W&cHh0DVVOnCt)2!_
z=42O!Y2!#jk~cN@I8HA9xadjxB^yV$!t@BECJsfJjFtm^s=-*6`qvP4W}BN2s80Dv
z6X@Rb`Zjy9_3c16L?<$t-PBQC$TB%b+$9Jez$K-o7Qdj&-JcwF4j<pl!}wE1wp1}<
z?JU?JKtSYesrG|kt(&9Vr(FvKkk-9>2Rb1E?4CJ9<N`e2h|r_m^xQ~syTI?YYu9cX
zV(yf0?odI3Dq+nO9_v2<N^C_x6J1?TVx|M4{#>)i=QMkO|IV=fCb)ebF@4629NdFZ
z)aJ;inU&q{@KTsou-8g|eg*wD2ean|(4p~?B~FLkXl<nxJ$t00;x+`VVe5`)xQ#n|
zBSJ`s*Bk~%mY~F0Nk9C&c4YCEi>o^vUoEBlxS(J~{v`FulaJR&=(DkKy!biVm(AEZ
zQAI_!(%>umTxd{{C23>Ej;*JtanRJMDY++%2(EyxZQkB(hi#ln1!GGhe>MxAH>v@*
z4903lPaq+^WA@Y+`at+_ty1&&D_0C7_Vpedob>3CuCNnprH!z-(GSbAny3;vv$&hy
zc;u{Gc;S$&?q+4(f+@y{Dn@nnnfi~JG#l7BEzrLI#}IasL5!Tz_3agqBmp-jj8j$B
z|7ME`><c!EWoy^&L#0m5%xwR@G-VD4o^Zn06^saoFKgefU8*1i;6QA;Ae>S%?fAJw
zbX00K!>ify>SP+iN3AJK-TIYs0$J%kA$r5Bw|rUcYJKeJ(b0Q1e|*z9vP7~UDS;wW
z6(4K2p@-LOr6}Q<U&m}D1er0*+eQ8Wu#q@xMW5NiuOl;DSf1J4FhRQ*bcMp*(%HFT
zjD=KlE-DnrTgaP27GmDb#CzXIhwJ-5710{c^I^qMj!AC9`{c=!Sx$HwMuv1uCgX`X
z(sr;Kk!F9+xXHwS2n_hB+170@cGWAC>C@-dqemA)&!5&?{e8$5oAJg?-``K|#EiJ`
z$7PX<t7T+l$~b2)#KkR}q%nPN=T%TGAjJBw^;QyLoz^e1IKdG_!31gW9njf<lP9~d
zIuMrvFYmc<@!~dL-;U)c6QmbkweJtF+S9yS5!~Z^!?7Q}xj!i?8lyO_kBrO(^ZRSq
zuzBx)=91^424_zAk`XOABp-Nhu~|77C#pz-&t&x8)}FX~0_&Tswodb8KV01OLo{x<
zrZ&??YT%SRc)BOpJbd}$#a0A){iljE2Xz&cG8B_H_SWj;5Nm7eWgxx{KO5Cl)zt3w
zd;s;)2~G@l;bN5<KK6lUvwDU<7EWv)>g+i2p{&#U!dDS58#Kf1+OAl8y#9U`uZ&(1
z3z2{-J{==2#}Xc&BswcGt7$I@>kII>$Rz8i;1!(1$Co4PPCu%8|9&4&$Y{wc>D@Eo
z3Z|ad(Cy!^AKY@Jz7BSVVe5o}s(i~w&X?s4*WW(9G%PacG+AQ);O%OgLpue1mLcGB
zC|CtdRaZZ@@c7Q1ZBS~AU$>cZ-1*cy#aeh;d<#2qS@TP`k<Ry{L)pif0ENl>0mw6!
zE*-RT<5aAJZp@}=S5;NjEOvjY+zt$Q$+aoo!w$0eoqAc14_;P}rFwkTO~#faHRlqs
z&xJbIRG8G;3WoFM)%cpkt5aNoz}J~GD`0OA-?Y2;?|bPgL|y!H#>;C~e80Qw<Y!Ml
z?>0zhORCU-b%(ciIo&jF@;+Kf$lYOPIeenE3`dh4$l{kK_n93Ksl^@=xpTy|#o14u
z9LZ_n3VY3&w>%&T@D=3~rDHO-C+2pm_zr>dIu1FilfJ59wase#tn@o~RP3c%xUb5&
zvvcN<n_!E8ldbk;%pk-g?%dzB@(uXNfeCG1OZ2guz5pR2*A4`O-d0>|!!E?2H&;`0
z>$E`%j~AKzeNZUVPvY%*!##TgjGPV!cGdeBma1K)dgbSclsj9FP@*xG`&#`hF(AkH
zAt7|L<L2EdWGYM6pcs)BIFhJcTUXJ=-Q8UxLD|4=eIm<=l^<o1GC)KYVRe&OUx`NU
zrKRRl!H(d(Kc5h&Y_bzh?Vl07lvJloojQ;s?)Z-rLG&{cb63_!?tuLQ7sX{gqj{~!
za~+d0=a(C!Xou@Bv9{Zmbzx%J-pbDJELX1`i3F@NQl+EUbW@;d{zEIyIG%6#r+yF>
z+j$7LagR9GT7o%68qCH}GHV}8Rt3x~$M`2;cy;o?9=m6Xr^O=i<{xLE>7P0!0eQ}X
z{C-hZHf>Fp_6xV#4zKf>IfQguD3H)8pdU{!uhs<e^s0UB2Ct5*@y^75s&|z-z;1%J
zhFm=4)1%#AS_9i?da@h!6U@dA9(?*$4KeNJvuD?vUAriI7A0D?)8{@bz|1S`Tl7Z}
zUO0*p1|68|@H$J{uytC*YI?l|jbA$(y(T2>Z;}{zggAB6XjR&Qn<lOgUmkLK2x%JO
zBRetmhsa?$L$&&kF^u9);2JCgEQTDopjgMSq`i*s{vd)5$slXLj@Pj;FAJDDW{khV
zR#(84Ux#dVPu-U<E1$*uLq-m!>=66X(8wqQBMr%eA1L=ymRS*x%8_CZVT{$*j$CfA
z$?@J1u2Cp%WH^HJUb#_J^8N)3s@sq}s<vOp=|^;Jwq7NjVL9TrU*lzkODRr3&?~LF
z<x?faN&9NKlF2{+v}il_<$S#Fi_<)8eyX$|tTt-UAPK=`QPsJ3yu3@Batw^-31!}J
zGCl8}P)ZVFMeBlXkj(`iQ{jOUE8o7IhItwaU!tp=G@a0Q;ONoacxfkZ`5^<42hk$_
ziL3$TZyN%|x|4;)#eE4^Z1!lUD0E=f9d#<k71Hhg5{@d?N81F`m^?*G+=vCG2cgV{
ze>!q+XfNL!$d&X2cEQ~Vy}s%mU$Ll1SXf2$nddh)-<!}&Qd^qxFzkYqyYbDD2j&_#
z1V3lMN3O+GvdQBU99v?;dUI|-IrcXevtmjYBpjmfEPRiAewzAPU~?z_Aq~JYxNAGD
zEirugXtw5h&?0+B-(yI;e^x;n+w95HrvbxjxvyKfx!vhLt@!N;9XXNp_uJNNpLJ*~
z2?x4kn_j(oMK#g9qoss1$Kdw9s_n=)7kru^#U>tWKloe>D$Pv*n+i1tiW!t8aa~JE
zQu9?V6?s>7jLzbKiK}(Q!t1=7rw7aB^@rbJVT<cV(~b5gEG)}N6KtfF)uPH4t|SC#
z=GzIGD-%4vzGw@;Q8XyQqXY@O^n@Gx)z3(gKF-JTuY9A`*G|U~x*sPEeflaeb9q#U
zoutsjz2yPHl`m{ST@=Gfm6xQ6p@kR>6@E0C&zRAQL8CW0>y0Z$9zJrU9ZZVgyD=bJ
z|C;)7!(^7}P&O_(P}B$ac2_V8pAHXi&$ARpMvi&?k3$sCUzAQp3B)iVlrQ8_Vbcul
zza5hzsm7mD7@mg1^Y6PI(4q$5Fn{%GpFOt%L1L^{Rw3Fdi~RcSv=)%ppQ;NNw7xWi
z_<~)JfI5fc8W2<mX%SF)&yJLgdg4?-54Bt2H;-<4N(+Z=NalklO-jmjq_L@p<`i<8
zRQ@xE@Q6I2wC?ONK}p@ad9wxgIvejKk}M0mJ?Xx-wzeqPBO_7FOrlH?{5*tD%G$=9
z$6joXTbc{>xM5YB+`n*X>)E!Bn=2P_dDej;IyyR#-7+Z;?0`U#KX_(QU7je}4^Ev)
z$zNoFjATEV#DvdqnNj8zfT$EdtF2N$y&s;KbpBI64%Im5CmNx98f+<>;pj?=(&0V@
z54TE72f{y!!>qa_grnvK_w5DXJZe{(=-kmL#&j!o3N-ojs%f*PE1tR7Qq0<sNQ7GB
z8tJX8umgKJmnO_M?@AI5c1R8mhYb~G?c=7^LeZiZwDHdtul@Pet5?U9%15t{+P6<?
zP0gSkD(U6*Ds-Xq>p!U%hxOd~^Jn7%5mXy<T9(KUizrkB*xe?4+ivP3h^ek5Wk4HI
zYeSVt3rQW;xyYz%CdVIVWVCILXZ_VbWp-E)uHOM%ipH}P>-X_D=1DHf1kv*jjz%MT
zS>f3@J|a~XlNmnai1nr*AN<sdUyEMhnf43+PF!DkYr<jQ*#1Fgb3m^UyJmN#`}NEI
zYKL29C+wM_#x-a&vh1^Y;=w}ldvn^Y(_4-9?BMD;2lJm-sWw!#u+otg>;(J`Yg-*q
zfq7;E4jkH*EYAI0PIO0_pF>5nzW+h@0f$D`0YA=oH2pHzt7Px=obz8R!<qUa$#)B_
z9V&R)MwIYI7#-aq1IyS_`0R+Fo`cWLw;{ud|1@1Lf6mB2irjjLS-$JF%`w<y7IXF(
z-*DgPWz`wKs5ru<W{_2%QBP}I!Z@MZckcX^>OEGI8hHIHeRlxh@$!L=GDIgIv;9L3
z%w?yvdGJ8`D3t`FD@#bx%)84kE^zrihKMUcQklJZ^~aANM^k{Go&ZIstE-zD;ngEZ
zI@_Q|KcYi%e#UC4Ym?T!=_D4=ge?#S#4XNF!HJ-K%T$cKLaqVZqjX#x>-@79hgEe+
z8bo%p5AFTR${=Hm9%+DG;l3xg^f5?T`Qe*h<FJi)_YW2&p|BBuZQlH|LxyahKB8!i
z*!<}6<46b7dZ`x0q3?F6q?Ol;no#Ty%LrBmd(E)4;OvXAabZo}n2DWo>%M*a^hSsH
zUYD+~t2;%R)DHJ$r~!3=6aOu#t9_3ey!iM{IAP%EMePA&1-4W90Io%@UR82!G(s+-
z=)H~hINl~qnxu4jn=xgS7`&o<BGYh<(00G$x%20hN=}~HU@9aRj|ETOz3b_l7G-#d
z3L}ft6<wv56<tj*wvIHEUg%yobdiYn$sGcH2c(jxb?EKtE4&#(cDa0BGUf74QO9@L
zL8)uI2WfgT|9S!T6FaGE9YBEJ3E4X=A+use<?N~WOa%MEziivSUFqGrMI|bw`T6m;
z0+fhaOtF!qeyiNQLtzHDgC#=fQ`mK;erpwi>4aX}Lr7r&$8XNf=_M$@d)e83A8S(5
z)@TUJ@+{T0&-<Zk+`hBBhuD@#foFjZlU&~EYN9>q&ZOar6r&KNU|C;G026UI2xD#8
zh%bm3fTy1J3vQOzXXVK~Y4)iUGu_iL;pvo8-8a)xKU}EX+{xWo^MO8lG%`Pol|$PC
zzw#Dk!ruB4PTc{Gz!2>(QgB$2b%p<!m<Vv7Fk-~=6G86ghs<vV;UC4VVhJn}!XNHl
z(KqEZ!O%J#-My0_j=)Ne4OIpd1f78-W%1157!p8}a6WY6L|I8$Wo735p+k0farV8$
z$<Wm|4JYSx2xQt9>>_?X4zFY_^$b0IdMhSJY)j!;iw@2jk~8eQM&NlO_~oK)M1+<5
z9#-7OIL9$N!Q<Ctj%siGozxPnfBUEfPNa$-4oYP+Zm#AaGG-*g^l~*-RiRC1zC1xA
zn=-ywE5p$-^_e&VX@!>_X^eI0A^xV=fk7WPcJI++am7Ag-x>5*l1aO$Q8rRlwI}Xv
zzj98iX29LSmP1L9&~UHIj|aJL;moo9ZTUGe$#o>1mA3OZP67Pu>g%_XyJ@EEBcQ%y
z!n>Hjci`BuC6#7zsMDtqf3pX+9^4O7W@ku<^}Ge!xxL<g8Re%*MAZ&kU<*dsyY-OK
zn1?ntkw6ESFEBC+bh&{1x9|vgqwrPYD0sm~x0R4dgrB=+qNC7LXuIv&xBrJoF4VXv
zU9boAiOhKWeicc(eiD`;b`(tO$o2#z*?hNm@I!9^{>dquBi65Gl~6|TP_aoAssTk*
z_OATcv~`VJd(UTs*Rjo3224^?@-_H@4OZrA28``AQjz}sEPPeA9JWVDLotREZ~666
zj|U|s{lFXYR<wiIL9AOw#ZIv5fwkxxqJ2ITUI&r_o%6qK`%}78Oe?AiC<KuHrS!8z
zXUGA4^(*`rH3n*tJ+crA_E(Le3y>&=6;5FsVGfnK@*;=<NK+9Tqx^dvz}y39+Bbdt
zj5N#9!l(K4jOdYWSk(ROWWX>6-H1=wa<izv+v^y#lhQ?ZI_LPU3p#o<&c55t&{=JY
zTh%_fk^$gZ-Y*gb9N)Czx6BH!{4t$Gy<1Y!P>x69&2&Un8r|%GjtczYWW!D2Yk<$~
zG*_;BvPaVZ4mAj^ZA9tw=iB`DGK<BB+jZjkLLE)be{hwaFBEnf{cs5FyLazS16`ri
zM1N@9zISgIR16Uxz|IuOO#l1fKO+NY$aQD>Mmv@xwZJde2kx6TC>7kR)#XE^kIvte
z-O5sMySM@)PT%q&cJNxp@e_m*De;0CJf~&D=B1CDdM_<anJ|8Qpn-d3>tnC(Wn@lC
zBC40O{b;tZ6EFz7Kq1yPpy8NuEb|Z>_Zq!Dh2p$JKO2G#+G_jBljb2!MD3duA4QSg
z>nFIxgu7Sm=Of`_L22028Em`<HR>h%i~>gq464YJ+qP{RaCx#VW-0#v&R8V1in~xd
zN;!Ea$n)|MSNXY>_WI?S6=X&bF_`9{QDrhNu8}UH+ooYXrbmRT7)eZoM(=MI9X^|Q
zWt1<=Iy9W;m&%EIfD&p^|48|FRA6+E<|2VKQS>9?A80`FXCMY!pbbaq>nEJ?x9;3I
z7do&Hr|^fgWl4IA783G>*?#im$&W<52?=?@8-`H;Gqex}uT!T60ksZ4PKNvtups1m
zlW+Zo$-H$^*FDZ#dq^m~3)6kR530XlRxMhC;l?BO*7%(kzh3#hNsBTogUR2L9kvwD
zwXhh7(;^+toTBg<qF#jhmUPy!>6(;05g3{;e|psrh8~Fm6EcezFJ1`He(+!qs%Y+N
zE{vbd@tVOgyKL!F$?lnYwK8$Wofv%3Z}Nt&K=I?R5OO^^guEt-1a${G+Zn;XIFU_{
zHJ_z)V6F=Ff`;Fo4tSIi+NARBN7y@sR|IUKH3=SpelDXCJl0ni?8(X8`|ky{8~o}c
zZ6h@hASkTrDu_&=h44_&4#|(oH=dO!VyRG8M5XP7)6c7D=B_kL^d14tj=wS|k=ILm
zZ3%$3de$S65btNjMNhQIoM+oBGFTDZiS{NoHgQ{=@<18w#_Oo7H-Xv^dNWzvbv&q4
zz?bMZz;#aCDEZIp6N)k+NqB>aS~E6nQWuP~|MS~vK+|nN&9i9Rudl48DFm|aE!3Tf
zO0_Kq7L5?cfr6r<-h|nU79Bh|;4XQT{<Sal83d`h%6)8QXHPZb7@@3aCWin;GrRGZ
zTVj}(QM2ud)OVVAkD)B!(~vj{j<CB3`-(((IWck5FW~;Oq5tz@$t(RySb$N2&=PVu
zu=5{MC)8vSn{Z@bvcIQ$l9c^+W@dPnr5&azI(zKI+TiGKL?#Fix+qcV0wM-TaKh16
z-`p|gsZX5vg4AWy$6%vDT@NLnV8QbWcrQ23y^ld3Wjd1|($;C}Kp1{G3xk)+$_M?@
zUHkp-CD(5FJgf|~3&AW9bvPh`BWJ?;w_WKN=Lu=WtE8+Du4~Zv@x58Sf|%tdCYWX7
zk6LBCcyYkHbFn^L6#X6UE|yyU;hV0}IMI_p0C!0$X$A?hQ0)ON80hLLK08h~3_|X7
zZXPe0@FoP@5j8a)zrGC<$`?uQyV4X<@HSz~j|n@a20nN;bZGPYcGlye0KOG9%C3I;
zeE-#}<@mua&>5rexI2Wfv`TFHXkbaAP7s|zvUJUwJ-j`MAS<M(jSYD1j3!N=ik-Zy
z845iQPntb45Ma8D^GJn$mrqUS-d~uQYLa|NOkTF`a8-h>n9R2m=5t}nA)ssv4z@@r
z|6AvX#Kgoz$RcPF7$VF<7Tjuf@3sri;^<)({hV{Z2D-TpFtk3=<nhD#!7__Z`aPX>
zl$8SSs0L<RtIk`rZTQ%di`j8~l$FQYO+Rt@Tx@{$#F2}RJ=I#$Nq(f}*)y{bhFV!`
zj!XzSBeP9mlK02&w=KThRR}6^@cig*8d%uyqU8Pe&E{=mZ9dg_KivGz_~?7tNiM5*
z7b^Gi6%FO)9UT*Lrk+M}I^$P88uW}YUyX<|@#H5b=;44PAq$f@$Xb;G2{E<v>F9;K
zvoy+{(P2q$xT@;qJBb|hbNvBHzR|@0z36B*{VMo8iM~*sv(!qIJJRurB{5d?rOZE^
zZ)?D89)>$cWAW9@rEW9|Yy%pMn4Zu!8KA80@hcfA;`JNDA2lh#O$$pt*J(Grd;0j(
z)LpIU<kP^(GmrGYK!mv;l@~yICuqA1sRj+97`Kv#FGdF*?Js(XtIXmvMbleQL?|Z_
z){w|2i8M=?>(9Y$9C`yu<@FxAK}mWpi(jI~nlFENhX0zj#;CT%dqyy??6jc=9pvbk
z11U5gRW~auE0-#j_@y^nu6drk*k9GTO8@Z;E=-bdKwm}@8K3K0Xjx^o=4!Ds{<iMl
z)mA+^btm{Zzv5}9^d-0_4#;p^o}KZ;Vr`Z`8J9$^R$fArGs&qd-(UKU68*}omoGmQ
zK1E)B7VOCIxHnQBU$^7aT2CLUpl<YSmBjls*xHL8Us!9SV5l=!T#{b1DjuT<>CW2V
zUmpTfj$rSSNW$7P82Hi{Dc5^dG{+DfKEpL=-lgki+VF6bn7#e}`j?Z!oq#6^H|o9O
zViSt{E-s0+weQ5A=dEH36tZc<kUs*9MZ+q5S9s_$@7;^MQ^Xl*2Nkd){V$%Gvfhi^
z$x()pOlq^6-Amlg?2hf*=dj~mzay8TarNqWmVo&2?Bmm76#uKMo&34T&X&fYP(waH
z#W=UKzxIrOt`G+smgvJ!<d?&EJJW0w-DiqtEUCCuTq9bdIn$JFOevLIvHYQB?8+4@
zM6a<;3<!Ar{{7n7I{fO9DAP$B&Yn4QC?LRK@nRp4S1wbijpg5qYsgzqw{33gT1iQE
z@onCH16_cRz8J}OsTsz!c#mK%Eh8gLD2np(A$l!OOk6jcu~TP&U=6oAj?&L^6IT<T
z!~S>1Pow9-3xn)g7gAt$&EX%i9p}#(;=<c!sg;Q`aTsk?T-|C^M8SC$h;sF$XXdB7
z(yEr!AdhaC=Yhm;y?UGLGO800sek$gU*H*8|KWpTy{XyMsZ+mw{~pP?7gDg%&27^6
za{k{_JzqC|i>6hb7M(mAKL$5NiPm*YkMh~GC&1g=TQnPf#z!Z<K5UXlH@%IUHuWkV
zMn@?eIgOMCGFffOb(&Bxd1!QuNS8VCu5i}I{5r@Ik%W!m>PDsfxJbQ&q2)6$lwX4d
zE35lH4|4Ok(D^4K`r2Q+dHJ|_67v$;B=_>21sI`Sp`nhBA7DhZPGcmr4e9lg8}11U
zO_)g|I^t40efa$O^Y~nxG4_eRotR~f-Z5=!v*`3jv<(hl**q5`%#?0wjm4$E3}f6V
zQVP<u<Bz2K_um{J$Cuh(k34oJF(JW*-V%MrEZ@a-hJsS;;0kBiV%qs6Vn(<Hl`{==
z#1OqIY0PHSqdkA>*#jeu7L3xYEn^;bqAXuEeju-F&7#w5F0wKp*9=LSc(ohxGMjM`
zVj3+qZRaiDiw@Tu9${dj>MO<ei>QKE>@F6k=RuljPiJ!QBesQhG<($oertrQ>zD4;
z;O8@3-Z5!5?<vDEHU0jA(cn;AfFS=EYeWQ28|xJ-swgq!zzs}FN@88Vs;*Xwj5mGg
zB0gQWRUW-RK`E{-Vq*sC*|dGOB-)Tw5%~2H+mFLeOnD{jt%t(0w8M|S$Jy34g04Nf
zmJe~#In3m@!ai^Cm*sao`%n;Qv#BP&Fw4|~m!R?O)xnSgz?bh}_GMVX1SPQortJ|O
zUbHHM4jfoGd^7)&eXEPP_$syM_eP~e(f2Xt&d@&Rd?&ez)`*bdnRK$aQ^c3Or7Qi}
zqoer~oea<3%^yX&r@=_dbr1IPuez^g>cp|@*&bH`b3=6BHE@tyoj7=K(aX5*Pz@oq
zDs3c^{l9-}nwRLuOGzb7Srr!jWE+R|X2SK8YF-ugRGJBX%=Te)i0$w{BTuBEY{Ffi
zZ#<uU``JZWw{M~?t#(N_9^9a~?c#DIig&R8!^ag;SLWOAc3lbs<tcoZ*Cdc!G#-&w
zu*uD>`sm7&2ZH)~So8el%NKN1$R}&R%xO*2C&O!nU`hG#J5#@k`%t@&OGfPQl^Oik
z$XzW)X^9B{Vw_p%XNqps#PSk9Wj-=>XY^6D4T*y9T-?0eh`_V3MjK+|(3#6UOE6e8
z??h4XZD~fs__!@^j;>@en5<p{(Iy7?MS|EvU-Lc#w)0KWUAvxgt4+u_WDc+Dum5tR
zmH4KtTG3~kDQ{WM58;Hgq9?l69>>b<Cic!W={WUC;<qGaRR#qMGFrE7Youkt@QWC&
zr#C?+=9`%@z(i(WPF1VP!#}ewXWs{O1_TBU)3l|OaFV)MAZ3c{-#<5_%6WLht~NB4
z6f?=hz>VbV*R`XFj|uSARx3D-bv1SR*HKhuOD{K{efvhmk7JM{mditO(dO5eP>r!-
zw)i|rpd)Xpnh91eVwIQu720{jB0W92fQ}!oq48{kGG%Ue3j>*T@(5xq;MlPUM1;3k
z_Ez*3;Y5-*jgy1~!!)jtKl5|8w~s+5DYUc$?TB6?rBW><3PTsQNoM>QUz)Dsn(EnN
zQ^g5alEa}JH*8RtI<@J;c$amLNz0jAy`T~$PqcOxlh9`O6W=gRdLvgT=FOD1yOE1!
zY(}BE+nU{K$b$uVuHal(&YsCiR9iIQ;%C5(Ooaxp=^yeL<;VXtVgFYx;DBB+v-xiI
zPa|apY`kV-sHv$*Ro{6Lo5P}Yp5FY<@Iu*Y{0p=M4XC`qy6aQTL7(NPATGjFu_uF~
zG13poP%+Jf^q>RndHVX!2Ct<REFRJ8*~W?!RXJz9pDyI{0(4~S{+5%IsfN+*nP8Zk
zpcyzNp@CU+V~2{ND3Vhh#N2bb<2s3FZhCn59Mygko$eUBZQN*Pu#c7oW6y|R<Hz%!
zignxA;NalVr{arioYpCs6pLN^j5Peu@0i}@?33=%<1A({OFMjE_EA=rmg_OnSlZ$0
zYG9H<1RS9N45xCBj47)rhz{b&lG7A@Q)%Yvc;8le%fULLj%5_l$Yt!Aybk0XVsa}Z
zIi{S@a5LPxb!%c}XprdA{jIT4eG<4Gu-TFJ36JTsJO?jGz_*jsV=!AG(6~q6zLC&m
zMymXl!L36r))EZ%w0Mtj{Rzq|u<`~xP@ih7NPN*M_!%)`h9ZW=tLH6WevaOggE_qw
zb;Pce<nJSC4*BuyZEi&x3;Nm7F=d3VFfjfg%}wlcXBwYj5MH2HKWPK`Wh8>nvoObo
z7HgTxgN4iYhqe=keLiVDU?P3PkQ#A>QoXT6l+Zc4ijhZ>JQn~kwW@)zRAw)`b%xQT
zZX|`$rhL@P?rx3WzuQ62ub9*N_v7o_p+hdFKH9B^fZxQRKhcepShaca8alpD`T1#)
zn53I-$GLGZB_&06p=}gtG>_)q?b|b$y{wD7?m)Q==FH200Woohp>U#wznc43hhcv=
z-*`n5)<V&PR-A3AHaf*E)j8<O`#obdi`jevbRM|0A4k=&QKLo)TnldS&qLDJsK3)=
zMOs)KCMh{hrc#|HOWX2vaS}LMbODdYh^d*&(God%sJMF;SXJ8P7O}J)1?>8r?IS0f
z(cy<ZSz-E8BY)9jn%Bw%)=QT9V%VE?#P^@!F(DeOV_=^B&k67{J)!wyq}M^2H@q*k
zfGd#y#YDMrwF$L})ml+C%#np2uDG+HwIs|&N8?WZvu9@19>BtSi!GI!ntIO`SBEMs
zLFDD-ZO|9ue=S=^)Gb6-3V`IYG~*@8YtrdKzJSj3bN#7`TRDH4_}Wwh%Iykp!h{o7
z0>9pS;UM#c<`ajEg&wJFaie5+a0iL*WBsf}i4-M?p}Ar?BhZ1E3J?Si(FdK<9OWgK
z=Zda$eph2$gm0M@OsZ1_K|A7u$GgBp<~hr0E|~J|91KUSF+-NZ(7&|(sYp;7rXsH6
zln(bglJ3n<@=gLVD&D(EJe@|r9&9HMnACG{aIj997w-(2pz$$#te6ojaN<v9ZHc+O
zPEQY-1aJPlSO786oR@mAFwyB=Oh`m+1$VcmhoH&Y<a#kuVT7i@=;;~Fr`Zn=G5bVx
z;zvQyvqQkT_o+t|+x5ezPpU%)NK$9%H+mN417GcUuAAP)WvnOpu%*jQB1wQ6tdnS`
zYj5A%qoaUJWb3OqoyBB}xJ6&Igf1w?u;<Sa_bBN}x36a*<JBl+-`8TTG|M4}$_`az
zehu=S#%hbE2(D%kXRT-vE*B2CWQ0c!%4v+amAf;lcyVH=vMos(nWIyI2;3YbLzxq%
ziweBE&;#i>6lmDf#4dgb(}2G(X^QG630uQ)x`h~!c2e1-k8c`;{3s5NaPpN8pFfWq
zsuvGA8;VA{ifz${1EP6~*<lm=973^Z`px}|@V$v~Zz540PPC`v;D@@p{Xq6h<pS$T
zA`XZTpj5;<rj#H|_*r5(kD>?$bLdAl*>{n|?-}0eIiJE`m--oY;O?#H(vJXit>D){
zEw~iAHiwaAYQXF-xww2cJs;z#{$@{<hOKjTt+1Hi{K||j<MVy&CR)G<2m*zs^S-kr
ztY3cZuAO4cr^t}7>Wk4xlx5s~dO*=D%`!*y)P^kh`R$=c!Bn~+ca~9s@n0sU9+3N0
zzuP5l!PAz?`i-0D(e4a}=w8hr>TqHS=g7G`ZLckkHhe~U-O07Zshy*(Q@=CTj_HqY
zOPhXOHQ(G|P~Jd}t%RSG;L5NGj?#Pp-)WDZ)fThw(_bNvb|AbN9WnU@o?2cLak4|_
z&H|t1F@t5SrJ*)itPcYY7|e^s<qQ%85XX*UKGE6SI?nibf00H@bUUMjYm4sJ#6Hi1
zi|?=caDM7fO+GshpPig01(l+Gy=XYI^5n+ZcmxIZ5Mx1TuTE+>3(JK6IkD34pcPQ@
zEJo^zM%H9_Nja04E{y$Z#hs`E%%Rbw($(STPwLST9phRwk+K?m@nCQBDa*d4jepy<
z)GvwtFvwPsq}-S)x33;&64wBKx`ejsVuT2Vf&x;I#C@o*U&!eg&r38zrdQwc;~H>U
zx_9sMkbR|oVe=VFC&H#kv51c%RS^_Ib!d>i|NRw=vI#`jiDeU10XG<sktEu3!;xq|
zobr7{MZEyFl88N6CZjD<%!x&51u$-<#uzA;(D`Kem2p^v85ESGR%j|vURVQLgU&d5
z1atq9wRe?mu6>^rnIC~ORY6W}CeW;r`2Xqc*?n66km;A{ujl3Mt?dt$Yxl{skm(F$
zipOZ$PdFNxRQvjM2uuyBrsKsW(PADg#T}R7T{M1vdVFl$n&$aXG$s$@^q>E=IRldX
zC?sQFe^2?U0y0_lmt=xWNP+w3rz?GYeIw_pN*pGJ_RA4H%O4xlV)W3r8!Vo_)v(6N
zcjIBJ`cy-s8Vow|QG>C`eW1w>yog~_#y!Z)%;~XU@@dpUR_R=ShJcG*!TXHFog_{u
zFlW>pTKW6TuoMqX5<zZxl93FRo4<V@DLE88eA0$d{Zq}=uZ?K9|LoWI&yYaFooaFi
zW=`1nVR`G^iG_p>n;%NA;S&T#Qk*csm~0x9N*{SK5BcP#s^Qp{Y+0?1kAr_LFDb<%
z&c)6PcK@(@z^1o@#Y7wAM}4L#K_tA2+SkmqI4l!0r`Q93@C3vS4c_#oP4ldme11ux
zu`N!<zlXK<EP4nw0x`rr$j&|lcX_ln>C+1vetlL9aMG%Vu0%I?Jord^0PV!DR(}U}
zu@CVLjuSKan6^eHc@|O5hW&07B}Pz?<cG`|uyH1%f%R6c3X3alPPsfI3eL`vYIvJ-
z`{`&&>g%IUGiN|F`#IC<=IDEE9UavIklHAo$~t$Z<!s4+dc5Y#v-@l?`2x`@UN7f;
zW|J5|0>u~(+>W3?>5bR#_b$;Ldi3IUS9k!Di$J+O12mST{P>_9zTkSY!;5VqzLi&V
zvC;{@zRxI@t7P_u+R)HNh>}%U1xdI^Imx9pHU4}zWZ=MHJ<^${i|_)DRsM}i)DE;T
z`}waIK$9T}VnzW6gS5%IO4*y7{WJ&B->p#`Z+Cv!$qi?8JVv$kth#fk#e16hHZWpC
zfdR<uh{XEzz76cN@U^8k0z0eKxFlgqI^#WH(_G{%|MiY5tD1g!yMP?i8yQ`t%Jr4N
z-H7qmOaq}|UzBAvme!$~eI__8J=%ySb<AIIh7!+XD+s5@rflAHw3-i{0*2G8hCKko
zeD#^x%2RP=mS^GP$BQgBHw5sgmtQRoVB}3wZK5{Wvlw7(f9*vZUUL7*8+5VZH&`zy
z!VnWl3g?^rnbfLJHShLlx5vYob1=~=HHa}5RBnZ%Xo%y73C477jHGCO6&Tb192~Iv
z#L?oqB>BYyf7N+wRZ@-oSgW$5Bp~xpi&!}^laY}B7!lAJ_lRciCa)2rN5?%`XKex~
zf@O_>4h}RkfiObs8(H~sbXzq8h<8|@Xfp1=uh;jV`+cCC>+rZai0OXx>!YRxWXcsf
znWY&!k4ej?g6tE+?^yK+@tvbu;&e}$l*3bTS&^razZk=bM7DrvmwVCr-X~&@=@pYg
z+juc=fn6U}oBVP9;%K8S4@~9_sQMMl!l{Jlc`SzAi2*jVZVWSwG$0g+2?1i7+OW{(
zRe0(R4B#bBf_KoJW$Qz`Y>>~ij0@v+SJ5n%xynNY!^47en$YjVmoKP}!6SP4K3!{4
z^MA|3rgceZzD0tAT&UEBQ3NhB%wbeuWVr|RNwbZQ0CqGJDm?F)+>~Dpqwb%WWJJTJ
zQCHrO!=`V7(jgI?6BmymrO#-~9bz`>qIE4DItQqi{U&3>)(miaH(I1J*$rrqBgfQT
z_h)-461(tGMy#4F8M*V)pR33^&3PC4C7Gqnc)#VFEF|#*Cv7;vU>ya9Et04)_5hBJ
zg+cjDp!P`v5=wGr=P#@y0kq@?<P6IE`hAPd95r}5u@3`+`damoyfzx%^!hHRtjDj9
z1Aju+sUz4B1+vzcLaHhaoge?wVZ!Bg74t<P!a&eSp9`PpHH9%JgoKBt9D!qbvR`NM
zZJxHNJazV`crN}r1L|nzwF)(k(V#C3o>>&PO@=KM13hT<VjkK^z49tdF5+E^35G1>
zw>Q4mMt(SPot=%#W*;zHsU$M$_7?Hs{Dh2MlN!X#a_BroCf!FJj^BCv#UtF*mzlz9
zX$MGtT~iZ{b4lsft~p=_F%L`hPg7S<)N=heg>gNC3=P-No@Cmbx=KuAnCyb0Vd(Cj
z+^@@=IA_e2Y6VQRxj-i36HSh%$7~JSS1q$Olo;IRpeCaf5Z~$=-hUHi^JHV*m*9`s
z+wz)342DZQCK`#s7h3*+W-<QbXt%RPfb|h$N@$xQkc#TkREb!4BxAE&UaR-(Lgp;^
zjz+u`4Ps=>#EFajF^DPx*=Dl0BQO3Cc@SaJuQbC))Wrk@1js{7_wa9C9c4?JkuI#~
zs6vgvE^e{RK+zQQx7hxn97JVup@=CxdhEHhT<mntk4#P_|K;&Z_S{^mtGge@KoDqN
zJ9kFFpNjyGwnzzMo1@)AiY7X~+=0h&jk^ZFLe4pFTu}5AH@1&Rjqx^#Q$>u?5~Gx8
zUapzTHfwlwa6tr;Zoo+ke=$vq9Pe0eB<`4^>uy*1yLpvu#ryPBvSA&O_#0L|x-uF4
zLJYlq+}I*)3D-OIYgsF+pNzPDCR2O(9E(g`mw2Ky-eUAr7!Z8Lop8hFj4iU#z^*4o
zd%Ug{dIF2M8WrK#RF4~SHsDUdEZ9tJep1sKj9|jWc}uRLP`|5<rqH~&B5jQ~jD1Xm
zA0IdNZ%@VLMO~hkGII0!6Ls&~3tuU06ET%6K#%v&G2cp%w&L3XF)O2((r$R#TtJ!8
zWo8uRv@#brCo!c~BnU#FhBGOm{i2h3&NN!GG9%;+Dg5<i^;2!$?j2)_yq^0h<UauK
zuZmJ?j9muYG<x@YY@#Gpjo4avzb0kP$o_A&dVBjraqpKyEb2Ycts!^aDly$;>>2$@
zLM#M5$UUw3tmiS}j2wV5y$G4;*3;%Ik!0cD(q!z7{(<{jnj%k~N;M8fRbiO1)ou+2
z1D(UIt~6*+>gD5}N~8qE2o{Jca}&Q#wZsuwz63Dg*Wx|=zHg@u<d%D!2|cn4BTn!N
z#6-P7Ibh)eA$7zg8Zo>su9jc*`g3p{%ILc``84K)F@;#C-V%G{3oz|Y6YM)XSFw+j
zgC@w(q4LoO=!jV{;EfF9_nhW;;~`X@8q?zu>MeghgKXjkj9uY}oD&nVfDY0JnjV=I
zHKQBJDMf~$%!NJ<{oJWT2g{*-bz6kKD<fG>n!=n|&0I_YJ!NE8nRe{lS#7|`ao|3Y
zHwj7c;lo1M%sq*$De)Y|5Jmdz#gHwDRGW=rz*v!lHbtUCDwtwViv;umVb5Otdt{;{
zMuCy3<OAv$Gs5HPCrLjMi*RR<{6TaU*?LLf@*>YKu6SDvk#hZFvA4x?d{r@gE|-|f
zQGSl6D2C;Tu{2dMEo)~Vvdy52H?Gz3E@M29WW-b>L0fPeVt=wm4S|tV7Ko|ekWb_m
zTEd<P0L9f~d~T(w>2c1l<MocsZ{O25>CG{__4m~ZCroPN*#z8tFQi}G_jCQXkR%Q%
zWHaCR`m&?YS#f_0ot2btA#*6lm+F(y-ruFC+)(?>1SZvh*8sMbtE7dZ*tZFd#?gk+
zrU|)U&6~4lq{cPuT?m3veT&Sigm@}g2?!UQi8@THB%i1%O-V85i-%0wVi(CFQ~77F
zqKOAMok**$t&M?Ju_I<hKpn{cj_{JO8zPY=2jQ#){?X0D>bhlG2Zl|ZezJsaOd22V
z4&4Mqn0LRuzC1LuwIetDHs8o1UuZly%gFS>1p4{KMjatWnuj~_&T2|iECf6gO%uiZ
z&_)i?fP)8zLM@2HcYKM%c9MV)(sa>k530byg~B88b3U%PhTgl!$t8{6xIq{!T3+TR
zPi@<EsJ4+F9!);8|2lpqt4(sC6PqZ#*ihIwMJ|Q2zWQA=nT&X`?f#0#0<$wg?O4%O
zbTaErGW~ST1jDIjdkA(!&a6by!r)7DLMTafc4t1Y;4ic$pZUihMUEvfh|b>KtEp&l
zhO18~S#b2M3!9iB23i=RwH2H8Um5c6pU0Olh4{f<iN2EI%H|VT+=yxa^T%(xg_pX%
zUlN^tOkT`j5)DL2RuDj_hRb6pvzT7&zEAwNL~{I&{Z%CzffE6h;%edV(i`J41}N3P
zSVP8>11I`4z^{X2mFM_j!!nGqjpXgtjPM3oR_4qZm=D=DGRaWLjc{!Mx%thy3wlEl
z(>R2_d#L&(2r+QU!JwdfaUo${&#!6kJfYtvw!xm*r1h0AqZ9&c;ieMH_fA@$(ckru
z@fXe>_=-<Hx6L#gX+9@3e6bjSdI8;p6M>&Jikky4#pt{*#`p2q?N<CDx3+78r)>7K
zlHTH4Stzof`poSleS-03a;Hzpm(*5LhsJB|p&a|oy&D!yO6uxMU<StDaB+1NM}c_Q
zHc;A)klD@Bj7S#*M}Q^3z}Eiv_x>=#MuRBW9xND{R|Lj40ND8lnPi^5N<Xzo(#RFF
zcK9lO@f;5jzq9o<bc<PSSI(V$1XQ!y@3z}HicsJRz9zC48ksAK7-g4yWmV1)NID%%
z%!lQ$sm<p}LiI&`NdEo3F#?>5k)9{|w^F!eGe;HDXc|)mW6AfSr`}$a>dGO17MLez
z_Twbg2%&c!jQq(vgnmGb)%1tV(AId=_xHz5t1+tWpBy+vrpA>>1JLw82W05JZ`FP|
z-!whjJ(2V^9bLel9PVNiL(oI&iX>s5E9eFK&8H}4q7aIo3iWkw{GKzZ(lWSIPLtKH
zR)9MPfxKMn-BU8uJ#_n;Xx3RcKmuHf&{(Zf?Jhl4JelQX+NheA+vW=D@VEl&iOog=
zJ}-U-S^)+V!#9moB~%F!Vz*k;*Nmw`b0?CVKT}^e^Ywr_b4}z}*)^sj68JfzdG3zq
z3`pNZfDe!sqBKAGI&e{nA!{+vDTR!R*gL$HIYRN+qHA(%*RCz^^gP#Ps!6mV>=_cI
z;@Gj56kq;E=BN75PwTLlF$pOVXdDQY4A2Q@!G}CJ26Q~_Qd4wPw#WRXS)RR(-lL`%
zaXiaq+F!kQKl*EFcN{th(3*N2;t_Ixl*;1|@86#Xt@mK>R@*SWHpwEsIFxyUnzy8R
zUzA?Skhy?v=ZnPri;>?04>n6wetv%4uclR0RP?Qe^FK1M>+idow#Tx{)0IQKne-*g
zicCzoBDH}qWbv{AKZFP<Y32*GwUyR2%Xs`%d~kl$Y%v9#b_{O$x6S5~01vNk1mCQV
zB0*pL^mkZ+uw6%#WdcmfNm%RhYRHdO@DbqsgCKG8rR)tseQfB9lAe$dGQ4J)vxR%T
zS6nSAk(bk-q$cbewAIKZm+u-=zGFbKgz!$tM%yJrj2$b8gkIY8z2>UCm@cgv{pb2T
zkCDv2hnM$jz{Dn7Yv|7`?T1gBIYq8se`qMD84f<H&5Q~@mLr@v;zzdwL4mC@u3%iy
zeZRxM|54(phZ5FVN@{!op<Csw{GWe5)sr9w&t?+^O=3G+`_Dg58_wm@E<uwbEcPA3
zILF0`%fFL3iR4hK$g)MC6Gju#@jMP2`Y2{Z75w{kN)BVsW^!bT$c^BjnG3hwvwQb5
z)Cbb;Y!(ufbrnF}>bK&_UpchrO6ZXm5FG6Bw3+}aXi3?%f1aP@>%h?dIe$J}0&IR)
zrU9OnUGwihy=K+HKs@#v_wN-rmF@aNdP>4hBX{~1tzpHB!K}^MRy9Yz|2a~q4u4_>
z;h~lJAw^C<Y~3pHD>rRQ42P0w{xQ;r3TI1JF?2A8ZFrg9qE=Vmpq=_1;}I#28nwVb
zj~dCvBMxWnYS|+h8%ZCHO_!UscMYm<)akoO=C^$MnBSk58h=#1Y~H+i`Ow@w2M)Bb
z6(#J{t`FA~1T6NLY`>O0zR_rd#6I*BiTwDGW*&yW?lJHpoe<7&5xrz<+x+!cPm_V&
zx}D}c*7O%Lq4(`&hCP3O$?r$nzl%4Y=eN$FZ6}#iWPs$8^N7zz$r)@tAtJ4>zqS)D
z`bf8b->&ISZk7_kbeTsk|H{g;k^hIR%vS_1%kunk{mb*Q1(X#Wy1zo{@n*6nwE}@M
zWEcLqhE!|T-MqPTRSL-d6`bx{#`Say#%&$<i*!AE*Y9YLn}L+`y*RVt0|N^U8c5Se
z{}zt<m}{L_(BR<oBKxa>-){ULYB0$aig9Xjw8?m@6I3~T>Kv7plJ+0s?w<?!{aYy>
z9#+>08DmPX()`1!f1f_Kv;XID$+7~$uC`IZTN-WfSiMMDtDD`W`Mm>{#@qfjitu^U
zzKPBBTNjnr1W8ssi8~8(9Aiw6jZ-8z#yCd*LlFJXXAy9YhNm(WZwHVXtSP#@5F-&e
zu63TMWyCAgXNvo^dX+1DY4z@5CsmaGUBcHoJ#Lc>zapelsv7+Y=~3a6N1yK;nRi;b
z*zTkU4jdJ9e}!Q)8^RYl$l_~|&-{PX9>Hwm$Nu{ou64SawTe+<9ckt<9OQ$rz=Sy?
zazPHdiFUt}5d1cJtPpMVkl_<1T)SBM?=_n44WH92F^l_+=<+8!#OiZeXX2Tg_E+sN
z)cK$D^pptd+dA<*a$_Ef>ff51z<PKwD~HYg^Q5LlFUy+QfbO$TkkXpD1nw;NQo@`X
zDUGHcnPnbDi(_B@`E^fimDjs=qQ6*aP%Sp5RLo<vBFNePm#aX~ic6zl#TUQ%PL{DO
ziu33Gf3H9eDZlvG*tJLBe?(_1fQVB2?`6olZd$WS*-hIw%`%Gm%$5JWdituaS{g+O
z=skA}1eiEP<GugA6NDEbZVHo^j=rA+{S<ej=1TGZu?v{CYZGPRRuj*CAmv#RcRc?4
zKHN$-f03=G{KkUnEv1H&?7GV6tIx;W7{KEB@9%@Oi3wd0Z12uWkD#lBIV5plKKzOy
z74*84-|s18z<m^*>i**^9L7fGK<o*FF4L@L_^TqDirKIrIz93?YnTU$H>=4fXVoS#
zWV*ql>5IpTv_CIHoC{sdHCb1M<bSFd9EQZ=qprqL#ell%k$r2YAQ)=t=o})$Ts->E
zUvW;1D+`b#zqw9Z@S-HwSj>G20DiRc&6|Z6Mrh?|H$v$BkM+7}?<!oE{tVJy@90@f
z3!CfkhMNe8hj3?67SoJ3VkUh0_i#fdY4w~XC^82B(QkjAh>aaJ!|cyRg#AT=zVy=5
z>{WkqJc&YE&K{}^#uqdt{Wf*+tGW}3j?ll4jGMMR$IjXObIOTSX3wr&Dg~s#<NiCq
zu1%^L2UDTxPwCXXk-te3wna<M8+kFH8;W2NxJ_sryvuNCi>S|kKGw78#fsSnp_L*|
zotkD?owl)_#3Bz+gGa$@$Bwr}cCi5*z3~gML&`e-`J+^M&Zj+l_84s0^2<85xW+}~
z_&Bb{mH$t?3{<K4pYS*>A5ri<^(OaMZMRi~WED9!sLacaL-6K~nSVZ2?qHi_yv!>u
z|D)D`zE;H=7$3h9_VIs*$>l)5_+sXbh*SWMro$IuG@)DRDIWPB4i6G}k1&)mPnjfh
z(I(+2;o1%p6o&s#yiK3+FOoR5GvZMHWOiac7J)Nh4#A{iw>Yf-sf7tFrU6vETsTE-
zIO+oaCx+Q7FKV02S{HOQ`IdI{JRO}pk{NkTG6_Rt<0D7^4N#{F#@6iGiHj63-Nm~O
zSI@Pzfk_ploBuhCUubbhr2kz!rrW^E;8;P-oj<Sb-{${+NHu^;)w;eG(^9(nxN!x)
zJy$&FvN5c!8)Pu)n>a1uxvdjp;WpD7N$$t|_gRD=Aw3cOR>)_EEq|X_oD3)a`vlN%
zdbKO=^M?<K5d(xw{M!`97m4Uy`0(LF<KmjnV@d;qg6yJ#)a+LL_j#7&T)iTS&Z53I
zw#I+G`V~FeuYt_d{y%=peuZi!JV&#^isR@phq`I#_roL2Y@=w23!|d69L~3RZHjO=
ztOr%MZqud;aaa$r_;q!4^}7v!mKV%nn`CY$pYVqHWa`h$g4Hg6vh$@&9hF8#q6zK7
z+nz>>3JQ;i2dZRYmUav_QiH99tTI~m2U|(<58y7N@s|MT{^$O9mN35=MJe;A3_OUU
zDxe%e`%PwPX{n!rn&BV!R3}%cC_!2Y*)QD=3~`a>lCfkhEARaE`zm$!u(SR@hVa>Y
zguez`5#~Sk&6HeV<9cYFpO`FR(=L;NijI3CoDLrR4+86Ym*sz+$@~>Xo`v8v@v0Yg
z_CMtBuXk?6|Akj6&zSVve|^21s{7Zvdk=~l>g#jZp0OPNTK*J<8NZhO1Elpw{l9|+
z@xMkqr4z%LeBn*@_cMExR!O=eCthT<?!RZAT5x!)=cU4tj44#z?Q<0F)&OJ+{IUu|
zht9yjM4UYUtz;m()~x0eW-0OoLuAF>&X|S*<<P1Q8#AABsAhyw?8%8O{#;|8F$W`s
zS<ZB^#_~{m(c9xU)-Wcmamj2O&Jt3jMh0Ra4?Bv2_ie|tM9isk{69g*_xdgYK~EPx
zA2GDueB#!BKUPM%Pn~_qwS}%Fj^4=YFg`uIb{!OSKa|a0NqAClIZ~-5SUftfC;{oE
zCf9iqu|kDnc`<Qi@Mc3aIbm2593{)g2Fb7yq5mw8xr&McUH&^B>#n9AlQj%H{>7E~
ze#QAE`T#>{&}wEnUw_#E9b&`Qr={n9Q97~2<AJ><qy$fLhz8<KBKtp{KI3MffMXhN
zR|wG~#$WYKX)Sms5<(%X0NJyjguBU;vo3_MkEr@BBokIbV{F^Lw`giCwDe926rS>v
z8(!{?+~~Vx7zPO;i*l4GR=)gFm)>`69w=gMGxkK%5xRpIlltlx=|p8h#mPllT0Ync
zBUOLfc(Klfm$Z6L(qM;WJG~ID=P|oQY-%Q*R^odq0EXC_dQ?YWjoBc#RSDYeF)9!Z
zdq%?&%)|aupnSEY`SDJgWRjcqPp$T->*x49@w5>Xjf9u>d(C(OHc$uV|N8e4M)*2O
zZJ>YDIxC8TO!!`HCU592U3yBeb|8PTNEy~My6P8xp<@TH940>xr(UQ5;vfqbq8O&b
zwgDqsoO=KyCYulpr=H%QeU`tN8Xj0*wE|qzH(q{AM7AcWQN3Z#qcup6ybf_Z+fU}S
zxOJ!nFma)0i&m_z7}%IU_D~X$KBss*+7JC|;0EKIMGhePwY}clH?SM_X{IlWavtmz
ziy%g*=Wied%6j22;kUh%zqgIz?_a$-Q`@leUoXINtD2e`v(+cy*rN)3YdDKzha9u3
ze3o<-k|gH*$xT`qC`7LLzsma(sG9q|-%O90P>RU3BSi_JG@0!}vqY0Rg_1&Z8Vrd<
z+De8eNkwx)l15TdDVkMEl2kNkp6}<o+dc2|u6543>#TLpd)HmpI%~bJ$FBV!e#7_s
znSP`WK`Sb~dH%>fxtfO4#n}2DTy=A{nfZo8y>p5UA)2I}6o7UIo{Wf?*gpK#_wxxq
z1}4}sm`wVR;%uEhedAI1*iE6WhAaS5jh1g6oCg(t7cWB98TcVdA+f*)VE_<~OLGPC
zz+$`}To8#G@n3zc+G?z^@<M8Hk8up;4OHDBu(LPhdU59D{X2)#4ox6&2?u1zGz0LK
zDUBjTS*Gm*WL1VguRs5E9AZ5d-7q$SCira|L7RYO{<zeMb6qc@r%bn-DJVl0BHsR{
z?x2a;YL1X<OmVr@_yZ!?B8Zj5nKYM3BZlRn?)&#}P@?E03eHWK3WAW<XvBW;C8R=m
z0Oa~EBp@pRj+5vGg>L~Cf>EA<u$L3O3B4BuPOORRDrk2yyFzd#tK-v=fCgokK6P(1
z2y19{!d6xU=8#MnU^f#Dbs@+nR+V5|lH6c&nbmc3I534zC%11C0@(a7U2p$HlHv<^
z7jqggi^@E0Qz7Ir`^&rN;T1qRJybE+e{wF^pAe``o<4$f+~nYBhb5_w5f3Ymx$(Eq
zIAS9S&A}>8Tt}=m_EvAk^aYz9?{UIuPkY~SAoTm+zh1hi*j0HtpUJ|=C<2fPanw<O
z!z2sq!g&)Ab?u?$75lOf6R4K8i4NxtN$z$Nd~&e>RhAl#>!dap^HWL2$d=--CQlA~
zZN>SZ=~|oC{bxxK0qO;yi4U}C-ey>N(J2?AhUoB19mrr#9$nP8|NIiQ6cu`@V@vWQ
z<iZQf%IZSz3Y{czN0Ix#|K$AMY|?N(Js1^^mguPw=Rbx{D3fLj)bV#op1*ahn;yJ+
z2fGFmT;c5!O8hK#_x*C@?qZsNTlw3J^~5hdy=egn>tV!?!5kk1PM%SMAh3M|j)4X&
zhKgJ;^N*2lyg%uWBu!yVJo3C@pUKfk1(pQtY!^9xQ52H;43M~!X3EozXbmuI)Y+vt
z@i#2;nbmOm2iFKAOdVV!vLAwQ<2;9ITUx{c;es`70yXWYs|?LARRK7zcgL<>S`8<v
z&>}lQocFLR_wCy?f47V5KMN=O()7=01j#FcxIPtpb6st%`aiUy(`!_~gHn1NN+PwG
zq~9Je{-BbE@(R&sND)aA$w>vAg40L!Y!Z`SCzJ9JJih3rO=TB2rHrc?uJ+x&KQ{$}
zG8NFzza_B^SnUn8E?t5UxMJKAy$(R+Bj!v8NdwldRb#QWwqT&)+}94N_hW!x0(zL?
zqX+!(VFzajEN&}`R_p@aEYJiELIeD5!Y5xi3Sq<$Qw<T_Ka!r~>I&C#P>#^s{H^<+
zU_+YMgvweov=q#)OGXN3MCi;JSEbkmZghT=$Gy!0JUmwa{hz+q)EowVef<d*5w>P6
zaI~K@mHQ*fHxd@4%s!Bw;VLl@H5z@!1~H|R^UW&l5?`YJ0smU21CZ_PoSejPIa<Ea
zi}Ut#K4ZCenw{t;;DVmDJP0d@f?~1}jk}nZ7oKPn?y?l~n85^uM{}b=dvqSGI*~U+
zrGl1mbd!yRkGvQSuwSU7BrgV@b9I4~8a7B(oaurs^Bb5)7^>03G-0PA^9d+NYiw*w
zWoy5F{Z?CB>*>YmfbY+z1)7wlAWcPNWGd}Gl%tM8q*3Il&e(%d2NO<(pbb))M?Nh2
zGa%p9ET5MtJv`iVnqs)8t=s0wQ*82XRo~gw1rN8Y`V^IVX&g6Jk1DwMX8Dzj{i0E;
z6IX^@irPKvVC?xwec$RLMdu8ITdzECOP$W^?|0AFx&6IV>PTLUSzfJk;`=DGJbV3?
zCTssD>*QTA_WAu!=G{CxiA7Hd`vPr*pkk8CY3hLER)LZZwG8k5Nt~-Io4(HOJgH8=
zToglyLfs4r9?Mgl60t}I0p*0OQyJ<Va*B{d93)W#B#Bxm1d_z2aGpwNpK$9%1+?7o
z;`+c#->5Qj^IT>8O6xiQuj^h_j{1p<>+XXz&LYpXA!B~hh8s6-7@4CSyRc>ywGYgk
zR<)Q`5of4b8qZA?Q-L0b2w8w&`5>x)zwm;`yf{)@9glvRK``e_e!7mexIR!P?xKq6
z+6hk+IdECQ)F$Il3972Akb26!i$hDLoe*yQ;}wEFacth>wbi!L{xnkHG!%}nSor4c
z=uOO<P{jqCNhx}{<4)CZlh7uJqY6raLv%nm7z&RlD;OGgC1BzY-;QcHmhsq)LlbRW
za{eO;-%+}gWQydJVo9xA$tyv+cMuH>CaTj^Qc-(wcswqV?PoWpk$%mrA6ToFp`qdB
z4dly2K~Fp<vjG0PA|PRZ{Xq5(`~Z$(F)*)&b<6nq6%P+6-IIe!Ld{032xMHFIbLRT
z$LpeRfR512ycAZo*Iih;3NX#Z8Y=H3VWs}-HtuWSHdaYXmq&Ebeh9V-O`v!~<&znx
zEkZ_b_Wt-ONn>u_xnpX+*?*r`*JXS=*!^OllFR}UKArmZ*7Xf%+e}NrQ$K(g6!i<n
zX0LAS7euC71Eo@Ak%yH}&+hC*1e>z|JXZNK{V|MIndQI<UA6l6N9^B=`W1PMx<X7W
z6`nd`e)=O4et7Bhaj}sAjY_&85U=eVLJ32+R|M&<%S8@uaevDFGywyM7oR*wM0KP3
zBD9mlu86(-vDC%wuMdUJZR84niSvo5{ATe82sE9R$D}VoZ4(8V#7F(W(JPd~z0ZXo
z2)6v5kQh`(rm%xLLw?Er<2o2SVx-33%6KM>E{~5_P8ogK2I@R^oZpr9P?&Af#ApB2
zgxPU+6n8%EF?N)@`&YlXc<Vy0*VUk;eD2*7i?7gaNMSoJGjAz&b8d9I^pvE~59q_g
zu@m*j<>PFl{y6!OOJ6)&^~(-7!85H}P#<R3ozi?61N;CRs;H1q#!QY9hRgfvSaA_j
zfd7EyqD@I3?(?`52$V81GI~Qse-o?iy5z_&<@%qw^Z(c*{daz`=IWv`_k%&vK(4X{
zs2<yM1VjMLZ8%0L*o#Tlqkzxr@e``nsKHw_x@$ju4}?zAB$ppW<#>rvIH%^)Sc_Yh
ziJxKnxC_?HBzb@Q30;uwbQ)tJI94GhiSo!2RhQ$JQ)A%9R%oJsVyP~fHU~<EQV4J{
znj`SKNi9cGdNeH$0S?1lh2xv-A>1z{I~t70D()QqWbqrU@Rv~^Fj<fYM`NV>959QA
zAd0+EG`5&z8K2w1&l$%T_%J7)LyF>64m4mNs|Y*NsfsvcA+nyKmQ_Rq2>Vak5UmBk
zzKU@u8~F$;qCrQof)QtasscuKCJRkfZ2%YN*Otx2QmlkJ4h5Yi#3Z2G9M@+0ls97)
z_F>?Fv+XD16N@&Sh(APt8G{ZjJUf|!5b(#<oK_OD*bwRh;XT?-Ir7GXVpq6K2kG8`
zsPvFUatPK<4MMwy;P3wdbU+Q<Ck1!tLcB!&Z3YuI+G$;3Bfpnx(mKpC1x>z1iwK&e
z48xbOX(RVhTGF&=H<_h@azvRH=jomUSYZlbB91S*g7(1TebMUoR2xAOGO=m2xxcW|
zr1cLbVJAqKXTvt@4c|-}M7%^1GNPh3Krm2%_l(~yjMXisYzU72kLV4o!F{8OTOAt9
z*_9_L^Vppa#ir>1FY_~G{n5=5l@OiuTX8xBW6)vvT18*)C;JVYB7`J@Qv%~0gKFFi
zYuL*#=caBwGnaFpuP02X;(pQd^-3J#7wO3(^Pt!)Ci&r1@g%}}L`%d_W?(<oKy2`(
zrJOg+orjUL8@o4D1rZoz$Q4lsdrpslv=ewd7o=r4->^a9?8Y}B4yhYAMXVz2m2$n`
z=7c<a*oeyHro{518qP?VWW-~a{st&hDBflx^yEH;4Mpc?%7x-om!lwZ0%vf>y~3>r
zX#(5D{FH#=f1rnr3s)u!2fW@mgF%Q%!yWLD7Fjz8P{Q1_dMD&}l+Lo0_Fr;MaOC0?
zUIeBIjL+nMk5V1@Bx$6YU)0W^-lP$NLsUK*Pfhk>Qt!p+W1$Lqhz-9H5HSP;(8^;%
zCcxOopIykgS8fxkJ;u$Hxleush}25V;G8S50e&y&GJp`j;+%uF8$rKAzUc#bUnoqJ
zW@s%<k%b^=|IOQQlpMIEgFWvj8P5R&Gnh2qK)IrVi6Zga=MxL1PHji)>5IXQSrcbj
z^V+a~BSJCIuM|M(P1Yqyzyl}|1ert&JVq4$TwL5cae-ynyctZgYhr{I-`_G0OenkA
z)xhi{uPLdY7}_~&{}cy5iborR5D4-ZV%n->i8|D}k5kAi9Kd@pz?ZV%qI?3l4nA}`
zENcTECS3=dp3$gHd&PHi9?)|QES?(H*qjL!{&U|W$kF<1Z4z`?!6@}L%8r1Wrcs@m
zaljidK?`L5bHTA%^B`66W?(7Pc*)ru7Z<2v;sdGGB?~2aTCu|VernF()AwO~wy7`|
z>^zk0V4eD={xWtqs3MAEoNj9U<aDTC=7k?0vjNuJ2)49N79Mrej}P2Ti$Vjjt`i}M
zhg*!`Ck8WLwp-`YGO-3!Y^CbTvc~V%MthQ?5#1UgG>evUCgxHBtYV1>(4+Jl^4XBk
z#`fxGIPdnNRGnsMb?@Y+1uwsPhz=BJVY&|#jH(?3pUmY!jadRdycpFV+E_lv{2I$p
z<f@Uv+POQi+D&*X=K<QhK@FYojip32>QNY3NZ^T8AFv<wVp0o=K5-_KofpbxsRc72
zuf8BX%9v|%sqf<ad)mWWuLKM;`LQ6cM3xCA6EKT#)u4-@Ie6fNZfxaz<pqf;Nn1=j
zKVm`aB=m<UZERB6$1Biu(ab0F3xKcmgUOtq@W8CvPScTG1(?bXMb7Ba%Hf95v#Xha
zARh&KyqIP0b4M#D)`9aIg*_$auQ71N3ZiFn5*j*Hf)P<AhqWxi+2e@3@IsHa8ddyT
zWb3m3lwo^ajPuxo;Wa<z6o4E9KRpK~;H5%H_P^OAQZ5Q5%3$1{O8iWEHCXAR;Ry`|
z`%#jDa<!1WHQax4)-_klZ787O?+*q8d9d1R-nyL#v?_we#}{)ST)}K5F{HN>he2=*
zk$|mVw(PyN=9R;6jLTpIrZeBO)10TkeUIiE@+=~M!9<`zjXGM;<i>PpGVvUXX*4Bw
zk%`Vif-|2Uub>?kem*ltBq{hdHsN!t<B%u8{^Naltc5F9wD;xv_U?_+(C5>!+!8j(
z`O!;zsH6wYR*u=^+nDpq=1>J%Jm1E@Dpr~>6f{#_h2!Z%`lu0$qcj@D&cF8Ua5rh!
za5})F54?>K6P;oaj()E;eCi-uXC*BO;ep{``KN&4fg^*pi-spz^G{NzoEBg_WGe~{
z4OMYJKk2ZicTU~X7H%uh!O(4<+SHT0`P`!);yFo9J>n|!u#)0`#o=wKfs+J>uDYwN
zT(wFA7*uTC2Gs&w&enxneYuT2B?4zW5Xs5OQ3v@7nK*-~rDq?4@lJ|H`^qf%LL;2v
zl>_3<3I-yDG9wI?%b3ej*N55=tb+|Za0X{;9!`TL5`a4Ny5^zVVpn50(-F=fWn;_C
zFkr%9xqn0$ucV|VkX*96f-Qrd(hBBoa>@WI{5U++ood)Gru}3)FowzBSN0Is=X3Y2
zK;s(jOoFFCmNY;*TWB8td2XX6_Yyfk`N_YtMX_k!xOe9FJ9;#+Fp(1ZfrZ9<2*1!>
zdcpSVfG`M8CQql`^Ks`)(9}|52(4+9i;j<6!f0;9KKOxl7LY(IifR^b#mRU331B1n
zH>z{VqM8fIpm<R=$`>6jo9`kpXFNOsLC_Bd15rNYG9w=I3gl8=gfjp&s5;G>zD6@(
zZ{Jk3WN|K(2TT@mKB&~(HqGA-i_0`-0anvJRZEWI*(_&5&A@2k*4Ux6uF|0?imKd`
z>o4($CwH(I4PfYt_ip^m^YtkAN?fxLlVT|4&1S8K_lK1?DA3{|8ciP`zp864g9NdV
z1g=M*T}<hhtCug65t>Z<ddUtG{%fI2$3jPren1|Q_^1=KgCrcI2@J0hc@F?C5zB!1
zu23Lgp|GgDM8X2_gLMIdxuaO5X;7NLSXiB)$XACQJ#-sq=`b)_^^r5LxHkM-?bpB4
zEBw2^_=5jbu^0EtT+SLSZsDE+zRJVHgQgOu`dQQB@DQAxq~d;V((C+#7slGVtKdV&
zRWteLG%n`)at74*L7YZMHbm?pG_)r9<%B@!PV!YU@Pwvs8UKmX6JrrxTokzY96<A3
z0MzhwrdkVMS`0dq)C|ZzThyq+y#*7m1JzDAPyx&eXtytMXY!-TCYPWZX4JNYGnR7w
zt^2)sbo7z_9S!<-AHvA*_&?n>|0iGDKe=Mfsn%RvTXXn>Fp-E71MOalD)gCA)(q@O
zq2OiwbWU9cbs0tTA7$l!3}vmsdgOe;en9IlOzNhzIYZ1yQw9Ux8i{T0!KqmL4w0=b
zD+`=pGD7ESG$V!Y`u}dmHb;)WXUGGgWeYTW5eyAc-4vsOF2#X2Al2x?k)@I?{4HBW
zKiIF(l<WR!Ws!Ee##wh9?;<0;qi&8>OcrWxT3tctnBf(dC)qzu86I*ZUkVmSvcwU;
zNgfKUczP~>c-p@@;+}M4Ai&YnRydRE68Trxv1IzFl(2`=U$(iQL~fU_ToH}WN1Heg
z8+gYMBvUnQ_DXAE59sbmQk6*j_8En&sAmgqQ!gMjwPm{9a<%qrZDP;H-nPx`S<(IT
zlttR+zhCG)qdi#9Wv{iNF<S?D?_>wh)@uuY=kX8M3)U{o%bGo%OXlX?yAco+E2Dc3
zef*0|s&}ggc4EBOJ-;hs&$blKGdfqk=;tyYd%j6Fmu6{-w;0T<`sUAbr?R#x^v>(S
zmky2=X@ak1TNuY^2PuiX4JkwVhMjg<GwfH``#HKYB+m0)vP3bxh6<G15=Iw4AskQ&
zry0M?&)+EKm-FKDi5vd@=12&zz=0802D>b9*~VS=zrQg_92{p3zL0)orLgcCe4Gxa
z{SH~Aa7i^D$oY~0i42#DURYmx2YO#^w0XPP$W!};WnjaH!1MOa3H7;P_Hwbl?**-V
z48N(^edD^7<7O?B;S00Rvg12=7C$g>*U=_n;}?I+)abJ>H}bb{6|HQ~<2OQKZVWx{
zF#;S=xEukK9o2&wpNqF|26{s`G8H1an~qhU_JPLkN$WC)6SC~w+kyCg@dinJ7u&72
zyaEI)Lu)I5*O!=<q8>yTf|h9_YH{sfpxF&{#I#iU);;W*Ninv5r@v1MQTeWGPrYiu
z6!TY}vr-~VahXTxkxK;5Q-0l9rBHXF-@3D_${_ctyJbGz?Mtg;v0D#mXH7Teyx{!P
zUTrh#gVLs^86nFo-q{tWultr~HdxI)6cn0N?eS7atPp^1#4oB{T)VX{EV|e=%Ofe`
zlDOM*gRD#0VIuZNrq%lU+p%mjFWAUT&T<^*%hz05T<Dn2pDD9>ayRbv7K-VJRIGb$
ze|_sI`c|XqdR&5ueT@-Ozak?e)hZ~{wq*Vek_}>axjl%28>DD%pEKCuF)cH@=6EDc
z9l!a_r2q}zr1Q!6Mzy1-y&Qu~r*t<pHYAU6#FyO&#>%c;L6~<Ae+{y){J&{8j~ThY
zdU3I8pu%buXah6Lo1ye~a{{^iseB0F>bR;!KUeUK3|x8K)I`TNMoaLA?}FVsi+R}h
zGp=iPvwb&OmnJr3j(t2F+w)<*Wl4O^7{2!$(|Q3-ww3|<JZwIkI@~?1X#Nx{lv#gi
z>X5aY(*_hOWhvi}C<}Jlx`fz+Rx1V{T8scaba1p3Kq1fphfO245#DC6v?)8PCY)Pn
z_(nNgv1)KZt*%`=`-1c|lQ%BaeW9<V+;TO*D0iww%`IE>8>E$xA8MN^Z5z}$ss$i9
z2)m%8Kt<!`^jk;7@nM!lf~{QU=Er}Cb9wzK>sSIkMCtCe=vS7*yHRBGInlP;bZ`lv
z(Borzfik&vX?+{$^vLd~HRv`B9VZh%^9l+K@rBbMFbn)+^Uj`Vkve|~Pg|RsV^#C!
zyli9Wv`p97hfB0*o^Hh7{&T6$?`AY8lBgV(FJJz!Nah&u2RHfC^V)wd)1gJ?8+(zN
zrpLv*Hj`Sll7P!Ntxz3XcF1#Cs~^|n{E;zpxEk;}ikRmq`N;P^>Qa^c{=Fvp{m%aC
z;S{yOG{?Z)M1{xOJVPDq>!)WXerQ{c_xDYYQ7xdUP1n*g-D1smw|$%H{40LlENlQA
zvZ}3$U|nbd8y;K{6N#UhDdRZl5tiQ@j`s|cu1v!&r*RbFa3cjg=rpZV=fUjbjzf2L
z;#LGZ^@Da!H%o-L@BSb!6M8{}$2>xL(17s)V5DT`CqTtbxN%KrHH(KVT>9@qTJ_^&
zTg{^Xy3`dCRiDmov|r)2ygU4B^4ZqZ=&CA#*+%ykUU019wFj1lcpb`ed0J`XY2Rhw
zmvloWUp8|y&zvU->0HMT_q5iO1lUv}BKIK<*{$r-(zW(2c7_;3aA6Qgml8QB9;f43
z;bf(alrdDSg=;yPpd;5kG2czPMdWKvK(_l@zna_Ow`_6GQx{sa=iT~JulJ%_pmi^v
zntt<iWeIv}^>}I<$d?3=R&4GgMmw@erB)eUuy`%i;@KwKE%VBbPYUB-*cYFpB&g2w
z_d#t64yN~A+uZ!P3up5A@5+)Io>+$Zdu(|?Ji3%U$B##r%73Z3YxyqGqet!NRBN%I
z<C;<}N%&nlDc}7iUggLpRtmIYD3xYc3Sb$V8f}@MSbz|pPn#CZh=@Tud{Ng^IA9@`
z;QZ71>YldVXNBf-`FycSM1Q3~%ruLg=LGqY$F*zGmer7URF=yDtZ@64Kitk2))Vl2
z`~!K5;!xFXP&TD@4)!W*xVgBgv!|Ztc1>CK#mM-++q`m9LRPY>q+7pr)X(Ia>6uAi
zu-u3$0oLn;zCpVh;_mn&yrY_T(d^Y=bOiBG8WyVYW9YY7c~Q#i0cl7rxHp|oOXs9p
zTr&EuDHS+KvAX;OBuEfR;Ms^nSY>J+fY6zO!N6e49QLsGUOxMG-XTxhvs#~$Zj23Z
ztQ62x#|v`7b1}@FnuO=#Q3<G~qzlD~qWPRgepS}z_I<xsb>nGjbz-A2z#ggvAXyT5
zRLp{HGi8IZH&sNq9Edk7%`0~XBqefu7!LYF6;Q%Yv2#i30sb3_joPd~M0tR*pk0jn
zC$|yfvQJX`+*)0O-eoPpX@4z``rQ}f`P;|RW;jR8FQVvIyPNb*9xdMAoGaiPvo(3=
zc-PkJATm*>nMdWcV{aCSulQvxkG>|Or27+854X*A#r%$;pDVV3Pk2mA{vjH1=)Cs_
zkUiKcpojV5yY7xN+EXQq5<CO8t5w;bZxeew;A@*XUab44gT?(bsA>l7E$q%qh(AW5
zA=3#D<e@=;3QJZQu~*W0wc5@09&KW4Rq#YW_3VYJAZpAoQZ>Vh<Rf=oop0P}U972f
z8#X?*3V_R>Ofia+*9LrVXc>}0-~JvLv2o{Zm=CYJpV=Oc$NszL;L)j?Vzn#0F@+40
zrmk|S_m>#Tm)%?~AbbcTSD{ki9!72?Heh8ZxQh3?uyO(aq>Jqw2oA?qT~(*IgTH0z
z#0h$fUoS)iM480`T!v<Y9OCr%!ns_01bEMTAcawj7?{nH`7-T$Viz4mA3gb?3)M<k
zWi}!<Zw=};36x_cGhO_0j8R#=N6qs-#82;FWIjMGt-hzPq-@@fT&{_y@XFa#5q6CA
zMn$->`=_(TeJiR6XQ6ccfzlNvM!u(@Y<Z+!ayitAw*Zxj?y5WykMtu?xRoq&mwCyk
zMW%vxd{}9?WTf1kS36v3l$4&2!M3!rH}$s9KY-CdNbR{xAG#@#r_~6u;Ax6aiXlHi
zPlcvSS2xiTF9VRE`ZOQ5>z;vmL5#$2SZc&1FM1g2LkRl8@Iw7k2`aM1RqT&=4xh>w
z>;5BYPIIXwcN-Qay%+VLVLeFB^9HMU2if&g^8F>mt?=qS+gzF@s%q-(-p+S51O*Cw
zbeDcz0|F=sOaNo#Q_+ml@B{KmVx|PFZ)_P-thGs0O1g<G87xtzfFbl~ku<AfhOfC;
zV7M`JyyVWF<*eV$^|+WUeft#?PRLBIcN~{873D|1V{JW(!4;M5(YudHEoE|2DM)~O
zco7zbbTRuCy(_v!8oe;|G^m{kkH-4EQdCr_C8a-_&SC(x%IQ#GJ1eC5sU()b_%TRg
zFp3;QTv8MoP!f?+1PH}0LnBN=$~$J!A2BRL07z{C<Iz31P2ofD=9Z<BJMC8J#H_5<
zE#`|(IO5my<*sFNw5Pr1UHRY5f$o9@L=KQj11YB2-e8&$<`fPw8=<#IcMCssB4Gzm
z!>JCQlf;K!J{-!!zB8cX(`NE=)FHk2_~ZY3%<cbh5Bkr=8UJ6l<Nw)5q3~uNa<iez
zA%!J)Jjb{eBHdUl!(YRI%f~M#{v&N12dV*WX+U8WSm(mA5Gt`K77tyR!?PAtUQu3h
zI0#@p4vz)($uKxc_%3fCX=_|BbpY)95grlEVo(A)ND+d_b3WI@vZ;zDUx*1_wgjun
zH_O&tWR#h-a7Yr;Ki5lEb-r4Z8O#bsOG7!|b<d%=DFERo$^=G>OrIqgy7++$3)Ycp
zfjbudQR@s|tsiKi0vN}zvzekmyKIxmk0akSA=U6^yhpVQMXZ8~5y8ib={|(EZjVGS
zL(15aZtT>FXepJR!7Fr6voaYgFh#ri9lZh95;)Z`Yz)YRNP%^QAUotDk~i7A;#c$<
z!AFH*FlX+>KBo>}zZEVd6vk`v1;#jciqc16QseD{BGf>3d^9%Pk|u08g+$5XkYB{I
zib6UMJd8IJ*XG)qfifM}mV|{uJ4dnuDZQv1?sZlHg)Bm&DCNHo%Sa>0Fd!VURpP5w
zk%_&7@(Ub2DGnIM12rhla*h{5`$CD%yqUy(tOghiS<B(D7KEW3XqsGoGHYQU+z&-K
zbk+%WKcRA*`*e_GWUaUG{gae)Ni3!C#u3ylIcb>%Xq)07+hf+>H2Hx@Rjl`nW2pOt
zJQ6p4wo-S?&}D*Gx#8TKqfg2&-)pwGO9C=+xRaZC{-07oo10$*6@87iYF>c1MnV~S
zd2PUVDYCYypP(fOMS<7Gv-y1Du&of&Jh#FERXA8=UxW*-WR9kgJ}O)Zh7k-{6tHCs
zrJD>weVqC_R<66o=FgGbPsblpFe54;P%5VqbfoQn2NTGgBbK<QAi+I__r0`OKBzMa
z_!fdE4(*B>q?Oo*Jtfv=3QI_QOq@xa#9=p-y?8sr>yX?r*le46gF#XPa@OLr1a_iS
zo-2A0O|LRRWsHU=Ibww*)S>Gxhvlnep>1U#(r%QbH;zM})90%!F_(vjqI3yAXRL(4
znh5oe5075{gQ*B7GV}@>I59Th8d3sAN5z+683>gzy8RhMCX}S-0;$nAeAvV$Za})e
z$i?$Lak2HTManTJG^H*53yjbN5PW~A+5!Roubn8i$RiOqqd6i4`Z5fXh@|Ey;GgRW
zfYUmGsO8z_6br^A{(INclVroeOjTsX{X8E7MY4%G@(U6xpF?&I9yPM44Zn^%1%wR#
zFW2HfF{YHMrNS}+FDWu#6`!FtE@f*&0NP?|TxXbNT6}Z~`8rcV)Zst{WCb}gDH1#3
z1;uo{f>5m~sEd^_=~kEI_YNWe=uu@m6JrUdV<wPgjx%~(1EBK~u}<8LF&5hbpJ#I8
zFotPJit~>TONdw{8ZXO9)9NSOBxMn0^poNv`<nQKuTmMPn$##K1MpUAm*dc>Iru=R
z!vVIjuvHBUNz^a!Yj62$i?v{XxGc8<+Erd#WH(37l<QHTXda^OP9=c7iyA~ZdEO=(
zzhROEd+u;0`JmK6aHl^e7OfVA4Urwv@icxJD<L=rvL?EJ`;e4N{%@N2PQd2y!>z9X
zQ!xA;zkC9eB2w&^Q};x$+y-EV-=Rw1V5&14Nv{(sJtEVRv%}nt`ZZC|E-h$cP=bya
zMZqBo#woTGM)SD+&7g}=Rp<PyB{vAgR4fVt+n}JijV<D8-2&AenRFDTwO$ao=L{6e
z3_>0(`SIlxRZIppI`siEG$ipPzL`&_(3A8h`1H&}P^;cRprIkJ1NsWe-;*%P{LvT@
zGoxT0c7n7SoG1AaCrI#t*4Csne?~F@DTmHtEvLpNX!CENG!tf$sTs_C_VLZ2cz{o3
zKdQw|-ZwoA5CtB*AX=y)WF+z5f@>bb$37#vef5FI3Yb2t+w@SeNg8E(PU$}Yu#tl8
z0>0APRXlQ!q2u8YL`dUSEG~C8+eVXxjOITO8H_{~WS~QQxrSB|aEY2;g0di#HBI%2
zPkeQLA~m0cYSX9p?9qT;uLEH{<awYVnCwal&hTE5&2O}IA;*%&mF76|{_!vWO=$Z6
zel6n~413oB$Ux!uoMA1z#n@97Q;4)&2n$9S)05oifXXmGitv2MwjzwQT%d21BL%B%
z1XN4of0lVagrT-i2R%b|pVK$*U1PhnVSM;SVjip*uSKFQc`miDj>+HLl0*;{V5rUt
ztS|~a_o=X0S_S;K6ILnWr8TikY+JZbg_5gjaE-uD@xOo&Q9_*T@IX5)z~nI@4P5y%
zCNbLpd+%c=P5f5oEzBKoC8usm*%93X2Y#HcKI<vEV8YikIZf?gl1d<*pkSb$PV9(_
zWzf)aam{K$Pjj6?84^pbF<yZEpcK?F5Z%!B>bd>Gj0mFR39tZvL{(LHDnSGA1cC{V
zAv%Z^Oe`>Fm$Uo^u4-MIPsWr}Kz?uhQE^92GT=#q%1cMljhA9uvO*04rK3<$&G=&Q
z_dYjn1ff5KTOs;&mzQkUEs8&ZdPNc2whv4JXl5Zy8BHd>$rywVxvf7|HI5`hnf#ya
zYOe;)5E9;cG6fvNbq2IXE01Pj)V|t6i^2A1pvIM?wJbdul#+=%2%EKR=MQXT?MeZt
z^FkR7;6{``cul{52KTFpt!+Kr|LCbe`(l#rqJ>rA4cQKf`bH2nE-gIQre0n~1ey&x
zNrxCD^i-5@1#46Z9?*Gy`#PSva~lDL><4*{rm!~NIYKi66t1G;l)l)UQ$umciSwb+
z12mY#3<SXqb;YOh9*VcZ65UuD6M*$70%~kJ(ty@Jw=7}~$qWn}KvYgn51N)Dh|6=F
zTK|;TiI!dk@4y#}Gj@doI6JBU>Ye(w-h~iuK!&b~x`qA`sWPEB8;y7Fr*W&{j>7_@
ziiIXBzt&evPZfr>uwOZj3b*8&<@KYL7oUEV)NY-ib1=~+3L#w4(ClH{6|2FocOs!~
zZZZOq<YGQIS#Ii}b8R3gz+mkTgQ$l4A=EAk7qI?qWbJ_xJKMZ8M2T<NyFGU|yvMTi
zVYf(|CUOIB`1<k&zZE?KN!(7BHnP1t55k(_$#{yLGNAt#+-KhZpcJ$FixOAuC~d|S
zN|2nSv-~q6kAPf$Kw4^eQMb@-O1LUd&8b_94b0$nKNx^^gk$-Z<u_Q}LB(-1p_<+?
zfv%5>jBxkKxr0KtiCHPLg+J2Rxdi(+Fy_oRZ{FO(@wip>`F)rv8$h;&WK#4I>Sb-i
z>fc|(a|i32I;DnRoPF#6JI@v;GuG*q;%(f8NXnu3h&M3ddCZ4MQ!##yDzGb^ieBzm
z$j28mU&4?jV>(=B<P}EFFQ|%8-(w;@Gb<ItVNn{m0=f6QA#4ak598EF*#b#&RamMe
zp;Dy#C1qb}zaQXsbsA-Gn#E8-2o}=v!?j;w$cG9AicC7h5!iwf=s-f7A<Uo=OckX(
z(=0<ph8G2uy%r4aLjI0+I>+dru;Ytxd_bVFQ2mh)2j3163!OFurOJ`mK^m?UZ3tZu
z#*8|$C-7CIp#v4^(>rf2v0@lsI4OWZ+Zg1Cs831$2ysLR3RJQsKPl1e1c*-mlgNx1
z%-aary{_e}2}E+@iD+V7!88m5u?Yq|0LK}ARUb~NbV<<*XrCZro2>>_?%n`7UHO65
z^Eg^9s_7-T5;%CZ$#Dv8#uv?i9b%~ir<nDb3lX8<cH!k~3`K5{9qabx+<B!Hd~~@!
zEEb-G;tyfPy~>!w$9Dv`t0h6%+I4v)qAg}P=|yiLZu~AjAi(?%=}|^iyUE;Nct)ty
zJaII_bHmG5uS#N8Ndh?=Bl|qwBU%@ntCIiZeuQNns()<NP%yhCK-xOnVYvS3a*R0h
z<oHu{*=k<$25DT&-c@4F3h7F~P0sFr0jdnF(Ap!dsGM)%@bG2t5KW$1RC^C+YrM(G
zn1`&LynC`{$$B5BRXs357UZKM=N$D8?W~N9+XxoI_sBVwL#vd&do8@BtGn*4SZ9}<
zJbWfuPG0`R;!{~SK0ObCz-K*$HL-HB8YVZdLzJ8cBxj`&M&m}yaPC+fOC`W8fU)U^
zYClSz15LU2VxU=I1t%rRK&bA(n-1Tth>@qVzL(7JOIleZmw5)wDv7UZPm5i_D@9$G
zB90dhD^WBi<-~!qlpe^Gkl+7fb_|5i+AOLb0TG3~>Bo_AB|y#{qNs{w(CV4m``$uP
zwmD#^V+FGSQfX`0*O>*7c&=pjb;h_vVIRF&mIdt=L@}${bpUQY0-{P$ieS%9hMD82
z4RU)xoC*D4P;N?|AKL%A{l<dM-MQ=XLrE5+hdX)*+Ej?`7A+lga2)P+aB>#oPN<E*
z+HSVfQoH-0JsRSuUr_e+3oXasaTwVGL>$(rqt}-;MPT_2HGSJn3-*tJh~R_#tKLso
z^VtW&K-1QjzGz4#ECtsRx%GZd9Yv(A$6;^~W$rB1IenE<Nn96JXc_A!KG^yXs9gcx
zE1KW9b4R2>XIB3i%Isp$nK#CQ@nGsvJ@_&x^Pcq#CvPy-fH34##^Cs6;}qf)v9B?Z
zdZdE5U0kvz)Rs88^z*^jwRll1s}sjO4XA0o-9mALEN78Zj_DQs`K3*@4JSo!Z041M
z@q;8z80OfHL&^$P?Z`Rd!)sxm=T%th9ybOfL;bhb7u0*RmSW1Y$fB#-UtltGE@YG$
zCeJS3#l6ucNWN!GjOsol3lg3{nnV48uY50&+ER=V5wr^BB7aV3EUOZ3D(B@*%Dxg2
z`Bm4%<Y91thn+E$-DhzLM+UdnAnSz{3{u=TA-{LsYM1Dv8$yvAaWwM<Ac@CU<<ZM(
z^;DtZN^UOw+l|!Oqq$xWW!#jC-rqTl(^chJfiL-R`NQnyV|(NSd9PtOj<?O-_E_-A
z{*L-ew0EoGVt}?Pu}-A)nh^BBm)hf2T3-;RzJghAB1+uu7Fio%EM>b{kltpSYjrqd
zTNWDB_$Fh6qbK{n)z$g->LHz#0p>wfaCMz()wB`?gv5xnCj%5^*73y;W|TI~Q3Spo
z>yZc?r4Y+0B^$<9nCs>Pw0KoNge4e0A+-4gIHAC`Re@cwL_+($pCzLgw4U2j0*s)X
zQ}5b!g>|QV%e7|3SFC<isNL}C>?=7N;ekf2R2Bn8;^W*6>~Dz!@9ksNtlY;w?!~xS
ztEw-YTqD7!o94R*;gF@Z)llTpUuRCd6H~gvhb<JNlut>!Rs+JbfCGzfnA3xe{&&Lg
z14A2t583`gGq|{Zy0J?*if6uQ)f}i9I6Klk(g|Xix-RRFJNTF^N=$~-1~s9*lNjvn
z_*8x!YUTw+M((dMRK=N~gtTs(WkaX1pL`3O&6wBm+LffcxgSGZ<6D-+AB4)x$FUMs
zH}%PjAlDAbTf$A-6By;$G4<cSADk(f2xr7tL3g@*50kQ+abi7C0g70^@BaB|88bwV
z2Nzq$M}jEsSdS@5xRM!7ou|*gs@c??|N4Qu=3pgUJ9GpnmCZPjHrAvGVg(AxpaVXL
zTW1zP^xe{SzDY)^3mVkOx&^RvHJwa7dlLtdVDKqP$0xl(KOZ^o9eOXa80$Iyl4L#^
z67_f7RQmXEI>TRd)x$@R4)xl?IsiD)sbo)Hfd-C2!p_68Y93>Vl|^gk&YiJlrw~~{
zq1RB;b@ZGW=#;`OhT~z-AyH9Fhw!71(BSF;wAfEY+EUxaSgf`Za_`O9>n}}V@=pcx
zZsN!+azsO(X&llwj8IFQ_R-f7rgI+!eq<{dgt%h~<HI>d#OV_>6aBI=T*aN|xu*nm
zpJ;^-o=BujX4GHP*6~DfagF`P+`dKQcYoWJDW`c?kDGOzS_~k7A#`%dON1vWnXfY|
zS!I@7zZ95FA?QQGHwM3NOkEk94;2)fU(c<@DFMj@PmzS0CW^81_bR#FIg0|?G1nz=
zHW6x{XKx&VC(@qLT$rA9rlzTLvM(@1vppzzlrDE~Ms_y-nhar~UN?>fApfCa-?8N5
z*xx1B5WKMc*@M?*7_;-g?tV?N4RMgKlVbo+5^G}TH_J^vFb4tiIQsg+WU7!TtLpvR
zPQM54HgHolpd0EitM(-UEw<!iSmY_@9#Ww?%S}ZDj3OEop280}#6Zh1mCV-=53nmR
zJdl;}65uD)p(%*Ni7B{~(AP#YfsdjZFC?oVzE>CpKDd8VKvfV731T53<;9FQ$NcEr
z#X`u=iE)fTVF<WtKh_EgAcI?bh49P+qF?bmLdabK?oJhbJr6QPfxl3`A(23I;wd(?
z-l7&1qR4m)p%f?l2j^?R_AaRTOpZTB*_B&tC}0)l4{79&!&nX7ptA`S^e-_WBsoZT
zQ4QB~yt)-Q;Yo)oM9luJ3o)Nsmzlsl=Xy!&+0QhbYtzlW>s-Mq^rkRY=*eo#NK<z1
zshLPWMApR@Q*pA~8#dg_gu$CabSNYXvmbiMfki+!(JP^3*a9n&RcQK{<K!ml!(p+c
zKZU;gZyh5po4kGhTdykzf@mGCh#kjvx^5ZPk6-oyXpQ<gwyDoRam4+%XEIyt?z-|7
d!Jk}fc+DmxU%a&T9Xoi0xntk<=&c6l{ufWa6K?<j

literal 65531
zcmeFZd035Y)IPjr2oWNskx*1hhUUSOq(LR3G)ju*d7e=r%2Y`drFkA`9+Zl9b1G?;
zG|%(=oj1?({=Vb;`*(bQy^h0EPj>gd_jRpnt@AwBx$XxS70++q%CMD0B5jwIk-9`8
zZFC@!*5BB?2|sBKd^e6Sn{LRTm%>;4SvZ^PjxSp*WUg70NX$OO-*x`I6Z$05ev+)z
zKPnEdhua-rE6%K~P4o@xF`oSR?yFiFhv|K(7e}7;8gH368Yxq8=~;%$p#XmQABP?&
zr5!%N%2pA$OP_r4ab)V_3k=)RwVKEL-G1NAuFek3{&<pQu5~1*U9c}duR6QKy4p5B
z$-0B%vsq^A#y>YiBBi{pJwy5L_oVS{TeScC`4O7Df4{x1e8^$l-|vgUWyUG~e(Q1W
zY1e-j@n!o&_3w-Kp1VW$@3-6!H}L-Zt=gXdz3~4o#h(@UzaJH6p4!c|+jE^bkyaFM
z+WOIxdb@|e*wS!1_1fyeg9jCcXd8Q^mD`iZpUewaq69i!F59=;263t;CB($UP>kuN
z8&pv+vp?MIN9(!EWU2kR!<}ruE63C`Vv6j_N=uJ&adFkY)3WoXW_G&vNJvf9;q7`-
zSKDhL>u=FYtU+WtuB#UUxKyt`W;ktAvR$CRNyGd~Pub%u32J<-()(UpSz8A@e}4IT
zc7*<!{aH(M%rrFNmm=k272gQw{C;KpE$#}}2a}ddw45sAx-Xhu1O@fgbvh}FneAyD
z;jE|*6^joQb2h3AKc`6k{rmUc90_~B^9K$b;MC5`qS?LsN}~E{E%%ifqmI06hSNsx
zaba5Fy&I^@9~N!?xH2j$`bo3=VOm<+w@mX+iq@G)GA|b=XGKbAp@c?GYgjOgnA7dw
zmBB1CQ(bp=4Cc>uSpO)W>?Jq8J4@*^WH<c%-H#8(BANn5-;OA}Jl-9y&viAScCazN
z5%(OuLQzmgo9D6dy9s~quU}cq6<@y8CTZnn+^%EGA1|gdYDtTf3*?T~E%6?h9%%6F
zcuoEh=Dup^aIPEgu%4NPqNu%aY<Sq@ji9CEP;+wg(pX_K?&pZOxVC+VWAyB3J7a&9
z=MIauEYX$`yAQ_A)serFGPA5jE2^uTzCP#p;JRdoJ(A%qm=8BAT(K+t{5i&ctV7so
zI;QjICXevj_3veIPg%FGNlD#XoEf^MUeg(NtbL?rSbtV8GTp7iea$s8DoXfqvsotN
zN8QZU?Lz^)I@&uVmMuJc=Q`aBCnqOg&r;1ZY|-vIp_|?^J=<y?Z`2qk?6&Oiwj?{j
zanh5*!eC*tH%=?}BfH{j`u>Yu>zM?2BsyK^-ZUj#+ueU$bh71E*ik+{<<?B|9X3Zu
z*JbzZ+voH<_|{f#_rcicJ<QA_LG%gpEmrg6-QuQevC*NNDZ^c#?!FQ*4^>*)sQJ$w
zx~$6ASRZ`OCshVixP;5~FHa7<I&FOQZ3*e3%t?dF<C>XHGe-KiZjsG0`wIC@fBY)%
ze@*`SwXRB_Q?qOEB+0}2Ifs&+!<BwLf3e?lY6;UVR-<j%i!;qSu1#);*>72vJrrag
zYUYY7d7A}k@{0722nn^Mscu|nk)#wR-o~<Btu4oPh>53gs#>HmO<(?;l+?Ts+uR!=
z>$1p&o$E+z*0aOcR+c)~cvA9ghnnJ4VlR={(wc6`>u`K3f3)xN^_IGb^9b=1VY5_%
zXYbIZWTonrYujv8GBZoMbougWvo^s7C+pvp6PNFK&UCJ=&V{d7ug;8Qc5V_rRTL|~
zRxo0hixAGxE2nOETN;V7O|%iwN;w)={y02G>s;g0gXeK?I7!P)UnO|NSXxZ@--y^N
zcDk?Sb6!ojtu|J&Lt<L*g@^6NRzBhHKU3vQI#MjUC4F{0VmxtE=3VRT+%5U@E5Z2&
zHK8K|QN0?eH@rTYwqEVGdz67=`R?7u%Z4>#bFXU_H)!r+=_ir)R7Y|IrKB7`eCSYr
z@U2i~MMXbthwhC&Ggp(fN0i;MkoEPE@*fNv*iC<A$WrcLQPI{8P0ISYwcUz*j5w#l
zwuA3a=vQR5+u<LcJ$sg6)ho9$Ub5pyu6?o}lTdhGo+x6OI0vVVzFi#o@!?9Ln`>jD
zhAQ#D7cM+H-+JSN1JBLO)_~B^q<rT&P9dRdBKD&yR#s_PPTT2z<u{^^m%6*VIWI>&
z8f;EZ-n5+|Mj?dX=toBELpt8k83$@+;rE6OQHI^cUc{T?he=TiA#v7y)q@@RxpFU#
zbSvk&udQTWP120r&d7gzs44MBwso{(n0R7Vmf&f_dMSJ~<#In}v7A?*g7jK6m|Ptm
zJ$j_FvN-eMM(Nge+h#3wEMrLyBCm-nIq#=sr^ZK<x<~s?P9rLBudS{iNS?7Pg(l37
zw1zZI&A5GN9Z@fIBlaLspBy;w<>^7<73!I0iIgl3XB1wYQkIdqf8NwNgty#$|43({
zj(i}u@})~yy=O08z2eMmPnw^1!1~DGc2$;UN3LX=X@%v{6$p1Yu<cwbuCx5a$}=Kx
z=#Z4MvNEv;fyXqWhLQ_Abn{=l*h8c*+fvK@{xzRY6+8?VbDq8ZBg0TV$0qjDrAvDl
z8RMH0HR9!icm`|V-7PK=TXJIPw{|-II3(O@bRy`w1MlO4!gjk>Q!letB$)NK)lR>j
zo}Wh4&A%Usi8(Se+OBc(R(0O(g&K*q1iamqWbJm26$-_cbsO?)#Fr|0zIGe8Wm$U9
z;N7+jVe7MKORz2@&06+vbe)3=aQF-)94FtCN8DEz`ev~ML9K=3A8_hR?2uT@{qNsD
zGH%om^|<qAu!OstTcNJ5uJ?@O*|W@L47+yeuHmHf8d>8Lv6QlZ6?dAx?QCEWB|qky
zz7iA^bc<EYDZ|kHu-uCj?D!ndjD5$ayObk{I%~%eVf#^&&P?+#dDA5)?p$(1p?Pk*
zS?34iAj4t5pLVmMp~AKm9XYnfJ|mA=B|47pbsug%c;4@Oa>1fegIx%cSm$Vil7y*R
z^`q$W$5VNHZmyPXM~3YXJYTib4HSYh<0ZYe&L$VG{)qgj^`J(zoKb21hR*x<?=>^p
z4Mv21D7Ahx<(js0bP}x~lTSXL`xbkdXJ(AtbHA`mHH6=E+Zubjqt^Ufu5mL@iIwx*
zsIB1=<u>}RlvR9Wowp|VZDup~_^XMc9fjAfU7Ia%U3xXznWj(vAz<DyTtEA|Z^+tT
z!e9QA#pqEJ(a=ZCI*$aD1~-s}ek1+cf6t8XDKeW|yG1UZ?xRk3W6Ezz))`BAgZSLn
z)ROO<DW964mRhX4LZ{<WXWUAa<$ILDgN>V?zsW+&Yb&j$QHeqNzyprZi+49|pPs6b
z$Zea;bDXj%rB%I+bD~HtSe_*3%yl^9Ufr|X3gUqiwugz2B|Dh#Yq*6OJRj3h8?6s&
zH=C2=u9wJ^YfQLyx!j-CUcJd=t+%%~7Nw3s#4f>*@mBR~W#7HWG90H2qE}EUA2SLl
zK6vn8ad9YFt0T&biZ1SIqI#76GGE|IRSPY}z`(%9z~KDoTQ#9qBBUP^$tOr}yxFZi
z{g!`H&LAgto}AH!x=&=Cm6f?po^q?BN`8#b?8}pR{TM^dRFSq(PNPH2a=s=~2EC7r
zjMd7uGiv>q2(U7gkyq$15IWvlkkUHBQ^+w|;8XB>c<>j_LBq_dpx?Z)%f6ZJ(V^nP
zPN$i{Sc9rp)a3lN)g>O&r3}LcrY8GoDF>yOBb~2bGkq{>lnZlPj5TEBP<(xnxK(8B
z=#_<`ww{`vOUGY3=k4;BaG(jHt>$|+-5aDMtl1H9en;4h;{hdcjZN#%t8See>+Fp0
ze8=;v{~zOL)1$d#iwR0a`)Kmc>@o;^o7Wqt@wzFqb!4z5J(^wN)i33>;NajK{PaTD
z@SE4K6Hv6AzZLLq&=4)K>aRU;+Pp)PKcp&R5s`$X8YaHBY#lUYGxDR+(0%=;ZMEq&
z;zP<846w|JD6iIoO^G4To<HAC)?8d&FfKH>c{9ecr>vr~(k8b3+cy>BYRI2cM|hML
zjFvY&t1`G8t@!4Y>!OW+s~S=#Dtr{Mk^kV*phHj6_3w0_27`3m_%v0MwZ$3+_EEUH
zPzO%*KB`NnMHU^l5j}kP@ILl}(d@oZ$#MgBE-v|er<r>1?Tng94UzJ64XjfXVg~QK
z7zEBuwDl-`n%0)9zZK^C+rsfVyMjx-j&k>HbzdE~g>#)QQ;(GvxwLXJN~ogh>+6?S
z7j_H!Z{WRnFIeGHXRf_@^vtcQSCQG)eZrc}fC2~>t~J%MPPZk6st^HtwT~z>-VgRg
zd|h0c8%uUwnmsBaqQM`cke!_^Z29vZ>T1-{%Te^zGpcHz_WGaftq5o!^A;w&e}5=4
zGP1WE`6&9)qiwE8L^%UdAxup~P?qmF@jXTNZUdJkkL`HZKg2(J57BX}b*1}E%<FMe
zO3KMS9B{J#&43&l5y+!ur2e~}i)Q(Qj?WI(BwUR{!y=Vg#IFCjlDK8OqVBxa@}~Op
ztggRoG_!t2hq+D8cONVeM46zUJ(u#es;bdnVl~EY<j1~1%a4hk;^LI#d8;S{ICWob
z4Nw)ZtHKZiGnMnqVDHp|lz_?iw+mB!xmwA_%}L&>pEf#G%6vL$_HZz}JnT+y{)<&v
ze)E>J((au2q@0SO6``M1HG!)(K!`%i8e^S>g*DG6q-!E&<m4u0-91hoa`0p;Gs_&B
zpXhldXc^ue5Chn2CoJnOE$z+X(6!EI2<I~TO8nJW?R=-LJ9envz8yoHS=XhJOzPcl
z04}{%_i}?76s5@pa1PwvA$}21op#r*cTb+|^z!nGy%2oDsP?TVi|e$qX?xBUtWXo)
z>rKbvfZuiBav7wp43`Bftkwmbw@dh|QsA<%Jdav(B~Ili5wwi_CKmw*m_JVa^yS^l
z>4$7;gl$Bncn!RqVcscz+T?p}%JQ9!R7^Y)u8SEs=K4RHzo+Vba9>+pJ~WHi$*>>O
zCJM&%C(Bg^@~S~*>uHyHi;|gAUpm!+`baUOrHOLZ=GB#@fRK=QprOd<Xk$Q?oXHBV
zDe}B=A&an$46Ez(Q{4ou9Gg01b&#g$wl>X?mh|$0%Ww0mf_em=tS%1mZf6p#wQ$8b
zn`t#K?Dc<+gC{m!d)B)biF9n*H)5YTv$-f3AKOmp#|)8QzI<6$Ra1M(#>Vz7M)@GK
zs6(yp8|2PdR2Fa3O$`%5PkP8t<##9V+O>;8$m)Gbnn7kj-|ycH><(cLKezbzSgTgO
zIvw!h#ruQ=ZlF+R3AeUszt~^DZu&HA+}QB)DTN3T7#tVxbkkdO6|M6jlLNT=g2w0y
z=1m+2vP)XX4L42j{v}6^saZs0z-x*l_}}m`uznIuWaQcH7CJ@eLHSzY$XLZ)hw4Jk
zD{(g^?1o=9h)c|OtuNunY27x2G$53)n}NYd!g+T1oW3c4NJ$z(h-X?{q~;B!!2H3`
zi1Ypoqs@oq1052><b%bIclXytc+WhV4Ljs)W0O&mYBTulXi2JCv?8<5%1g0RJnZac
z1@3EZ4I?7fzaP2&`tp>zc|nhx&O3KU)R(HN4`alV-&K)*MBkkvkv^yL%(WxWk*9Pd
zd1Vnac;9S8zO#L9l>yg94qo0GfcMN0v*>;Htn)v~6ULd&V_Ds!b_&5KN>e%!&_Zo<
zcDe21H$HDJaVqiIVJ{+X&T1~&J?08-HiFo&R~rLEn*3p>RnboQ{bl~99V{j_)z$nX
zHDTp_*BNw>WM)A?8OqWfCT{r5{8<pDKbtr+)GWfy%E)M3Lnd1r>o`un<(8cVF0CK$
zPBL)UU>3GHa<QYc&&J&^<hsb*{E(-iXVUKbdLB>lt|G(nIQ?cHdd6x3J4Eg2nS)->
zSi9xf_t(BF%CYLLXtB1knrxjYJKHpDm+Ok-M%{Y5DIu6_O6rgT*CCm|ImPPKe_&~#
zAzEuN9j5{Rj#_D$kAN*%WfuEK^u&pJ-4@yB?AgoTOizxwk)~}$5uXBW66C;RTsBM6
z)o(;@eILWg-#!%VN*{Vc|DkTa$XH&3?wi`$i#`vYfcMkSrsGy5O>+y&(xNq2)|EH1
zT2>bV=KmsgB?GyMryP5to@-}XGHD>8INYAwY_s;#axSa;|7^sS*h|=m-5iSavjn4a
z25l~JdiwOK8Am{#Yu?1Y!a1*Yv&^6)%Eh|*NSr^oT7TWo6gLMbD_`yLmk|ED5Bqdb
zCEbvu8OtUY`ocn*#=fUUlsHK%nGyL8@2>Q5&Tg`D*e3=j+d12+ciT`X*h~22s(AF0
zb=!v4Y>wIos_yI#>s|eX%zu7<K)u8u>X4!_GQX6rfBdk++(>Jm#Y#D=`|D1>Oqx6q
zyJ3s((qKizf`8t#y-5Ep_@|tlTs`hf>y_~_E-vzTlk%+{J)5bhF5kEjUSjKKrfP^C
zDoI18&qAJzL~fRIU7W5%l1QZGx{94WEAE;in^M|y%wR`W3jpwW(^q0unP%-d)Inik
ztn-pBEiH>6s7!&$YN_E315%aq*4#@KkxGtsrFdIgV7#pMp!lgfi^heaVOF1>8Yg8-
zPfSdBuY3cF1AsjJxRlXF$Zb8OCGz;yx)Ae%78~k<{{GwG&sE(ye^rs<5r;h6ya}n4
z5h^YjMa8Qn-rK<f1xhGAHa1MO==6Z_8`r-5$NMt-g%JL#Q+vP83$6h4aR~^_h3gwM
zoSYtMZ8ps7xM9b%ZTt2{@DY=&RS>I%HR>q7gBxeFR8(rjJZZknO-h2ZT4l8jPx)~y
zFSOKm0x-sjyDsigTm8IS=?HEy-gTdXDk4Gm!I;kxC+NRHo`5T{h*|2s!&bkD6f%U<
zIBYX|C?b2FNi6ZZiJ#;^*n?F9EI<H?g(gR2Z$c6iTOKd@kz*S#-`YdeoP8lxQILhM
zjTI~<In9kG0*MjKxAY+`*LVT_0^+J|G*jvUP1M))Kg1_zoZK3jV?UOJik5jJ_lZQg
zRSNw{gGUXPChw6$cmk%H-4v9R1csxr%!)lGjd1}DC%k&e6O1wjW2syZ?(RLNPM_3T
z=w7Ii>M-Td^Wgdqx~nJMS6v8!sk<cYPVfA1&BV;F=SqL%uq?C5UtbBh*T8R<)x8O&
zH?e3EY;KQ3|7FlmD=Vw5FHFCuyrZF^(R`F+0l^{WM(M-gK*P4I)b1QAcg-z<SnJil
zYrV4{YYnk3sHB&VkI&8b)6-&?kK67|^pw-7*&*)+6;kC^m}vi!cehx-?74y0A~>bR
zgh9~at+v~OezZPdvU!6Y&vIjP9r=DlJP)x7z==5@cdhBz*?o*sd=tlLo~NAIZWmJh
zTBzr$>q%g&U0B~8;`3*)8jWBY$^YElGytgD0KWesFfa;~KYMv-xh4Hp`)DB)$*7@-
zhzKn+vPs@Pt<&9)Kjw=Cu1~y{Zt&xyX$V=hTRRTt1;E2THlc8K2q|ql85%*0;p?Oq
zN4a(UI?tSFO`>A`c#F^>y@x7k=KTI!W6x7|!)h&S!5zoe0#L2>%KZi+{KZe?UA~Ew
zxd>g7ihD<3PkLclvvrMFbY_PWxjRQy$MuT8*z8OBk$d;<(Tl5?0^!lEboLLnD@RCY
ze+v>&0h2Zi1|(xl5^<coxmtKvAMndnGi@@PV<*Lmw)U4ge_c<N?=^wXdaQj~xK3q^
zAB{s~4FX^Arnr2*zsqeQlzn5T^8@nwE!sstc|;8jZrw75eh{Vl@iB`S^5w{+jtAYB
z%1Z7OZc$N9Sy@@{%LfIK#*J);zt<Ua)FFh4CC1Vj7J00rbDfxo#%B*s+CfD%b@`BI
z_igT_%QtVnPbyq>ni*+Tg<x09>c0FA=R6i$!IC*37hchvm#>q3=cq;HY<_O}`FK|I
zylh^IuXRDA$nRHTF8+i4dkY+*uhty4<($3$!Bu*l<h;p;x|e2w_Zz^lN3J>p30c0p
zsPn-nz>ige=c|L0H-4EAV$5dxj6GKwCw{f*&GgW$a=h%2PuEy=t)dG%cDTHc+TCHI
zl#Ys<3{4fm)BQobGRoz62+NLfTADnMQZ0x2NB8g7o^IBRfWkfaJH(tnp&{G)R)eGG
zBXP}nITMovXd}_U{_#L}W^0!Uj2bydknq2hS;qqD-=6qcDsJ3KTTOFo)P<g((Oh~e
z*(t)5>v+!K0gx1pOtVIaLJ+5Qk`LXgikirJQ8;V-_1WR=&CKF1-wj=rqF6112+1e7
zo!aQs`7W<YGgkhP^rl_rEC6m7me^hrm^3vtmAd&b2M1jin}nKQO#zDzXw8WW7CTtQ
zHTB9KS>{$DvqBiE?9K^3c}wm@Xy`kgLN~X3wz}J^gH&&n<V38xUvB;X9#m=Twy4NR
z$HX1(ZXdV3NAe+5?Tvx{`%X$j%$ks6l~%1sF=V^`z*Mt?-uBF{J$v^?@fI%EkFWm<
zNh9u@@7{e)M1APaA)s7hs|k-wu<O@=)!^NuNX9A<Vf<Lc;t&aj&}JA;+`Qk=8Xd@e
z?M6<=ZXDd{n#SCN(vOa7t_{W~8$mLw`1<u}l>xbP?vv<_7cCBuSG3<Hb!_>jHXC?-
z#iBoX#VBxj5gPTIvW0g0&g=qZmdW1v?T6Aw)YA<fH!K3QpVU-Edq7EYEB&n3kWq7z
zY1U{xWyQ6X`QeBD;)^m$q7(N@Y}Zp#e}ghMYT0_1a)(`(3(j0xi-~u`$!!d$zVwKT
zS%M2gU#-rl{9P5Yy;*Bsz)I-RK2_RA>zdx`+j7sLyS5v<ZWx06>oED1gGy7@IK735
z-AzpQg+sDVVS(xo$~N1DW!v>Z#K8>-&0}$2wk(NvhzJkgR%nx?nO)B{5xix~7G)Qg
zJc0$gtt<|p)HaQ_=LQ4@8q9y{>kD)L=pvfrLNBlsehOl|*vfRnf_1F6!?`=@ysDmi
zXleDcSa&cBt8~5N8~w=qB~?=e4BXqtCmtxDy4kd|Knp@zv~D}JxMb~#8=r%EnrRCb
zX;_(=O&w;c0kjmNeZE#y)T6`0l;nH={_!{FC+SmpHE-GVc14B>JzSh{oE>f%B;brK
z(I|+z5PT`d@Fr@24G=D!n%mFMTaIabtkk`e34JSP_J^_9Xv1X#iH{%!uG4kry@z=7
z!c$}X_t|e)Y+K(Mb0t2oq_-pI=d{)3w41W|c>Tt}5V4TY%wNBLr4DiyZe+cvMo`1b
z{<vMTataEk-|*J-bJoRPj?NJiT0uykf~c1{D0r#B#Zhc+d5XGuBb(=dtf;{hU$zxv
zPo(M@t$sg|QFIF2R-B?uDeHj(wl~|3wzUkH)(Qy;QA-rbei91wrEni<KF{L#Ii=&W
zl31@rcDtECUQQJqfJ$UBtAMD!U8YCfNH@eNcVtPlg>KjGm)92iTwnoUWE=I>?7ZqP
zy2hTV@N>T3;#GNlh9F!<L1uQ;_p>-}eL?P0bCMRbV$E@@Utc^b6~ryN&Xi<xLcNLw
zClS`P?|Wmv*FnxznfYYs_)IqCs_F-$D?Vg@7BM5?POe8{i~SLt%Hj8veyk#SGxL~3
z%vM@l|N5wK80We@J9qEaTP(FkYs6dCeP*zc+)Y;l35obFQb!zJj6|ZASXx>-p-spf
z7<|g`S;4|@#)fD{o&L;DH|wmnemZme1!0!-9rQir{>`52DKGS$=MQ;q1JDJ`Cu~aq
zM7{*NZBEnux`L5kblg`W!NB?xGdt?LOMIs0h-L;MtD`1z@$uD-Zz%+|4PwNKqNhdQ
zv<5&yq&cKD!L_TcIAk$EP=7SK&X<xnr~zBu+s0og-;oOm+&uQ57vNcxQdkn&e}h1(
zUpnVNWE;>O+Rn;;c;$J2D%-4=o?WgM)Un#i;FHYS3QpR{$0b5%eSc0k0zeIZi+x^V
z3vyFC+>)Lj_`Pu9cL;MwocZ*@^cKO{NT@RdWsK(EAj(X3HWaR{YCyM*8!cROD{;d6
zIe6-yv#fNeXzpW~*FhS$ooQ4R(aZ!FT-$V6O6uG>L-g0g4O{zzk3gQE_)os59*&D3
zlq6J2>gLk2vO%Oeo2=3J<bq33J!c^Q_X8m>$o|CktY9Y>$K2QA0XAcR+KJBCh3ApE
z_G4F}?y7`KZ4sONa!~!FNie~Ofx3QW8fUiJF3(%Kj(?)`)(Nai(zf+U?%A?qhd^GW
zS!aQ3ocf2j;^N{xEG$W1zQ~-DmexL{qYcpCO;>W@toLnH7GdYvg!k@d+qJW;BGJt2
z4bo_&I>^p0jTZ0;%`hMn>?YTN1OGrn--;vz4wRHPDF*^sGd{@r)m?AFss}tO+e#nR
zyxC#}3m@?0$y?M~FK_QSTyPQDdTXYo*?(KA(vqfs8rY;{1}N8YmG9`OQ!3yX-$3B>
z)Z7rT+Dm-Zo!{x|W0WH%%T)mtic3mp85rWg=VHw}3%pf1<xk|bM#eCQ`J*?4&0<K>
zL1zLe#;(rol+(Ty50`g%`~2y8d7jdyJV)!&^77ogV;vts`?b*KUbrknYy&z~eB3$_
z(%XHO(qbM57ZXR!vkr=$4_N>`!#<h3o_cE^F5U>AAjdeoFPh`8Ra-^Tb|{H0{`vFg
ziziRI8Vg9OaC|(>La(JEUI6NmSymD%>0n!SdWkKP714yaapT4w+&<trmY);7PomX6
zK&f~hSb4hJhZWsYySPh{578SA?lgmd#i<hWcHR0-f(huno%>+c{v&afVqeYK9b&&S
z)<6-_ocSfeJ(7q0^ij=t?Vo+thni@9OG-+jf0`&VnsxTPKg(&CJNCy1>LPp$*^-Yh
z3kC9Wto}#_m9<%#%|SvRDp(q|{ww~;d5M_qDFgP5L$7pC&KpFgIuZDEY+IRTy|4x7
z=aH@H*$*9}59N&vw{<~qW(+umRN2*upK{I?F0`u&71PRL`#x;vrbD#UAiA<-4poIo
zbXw#-tbYj{9Om5RPT;XD7bwAQexIE+#YW$_J8C#MWOX=?i6wtDoVNIaM0;re<!%xU
z+RJIzPn{2$u4zjsT%PnTu|<2I=m4`g5A(5}yXpYq^#cNE_c5c@-*TepCY*S4xgl6p
z+p%=qQ^Ie0xTV2n+Xi1OxI&nCJ4Ys!x-PfIQ{X5h1Go8ZN^C=pN&yOyIvQ*`$#2L1
zO*Sf6d%%rw<QJzlX`+LGTuotZsJ?xv*cGYr2jo;lnSq*jk9GHpBg&G%2r-7i_wR2`
zUfVeu2S`=*Mnn~`$|k!SVzR;Falx|6wRu#uwRluCm=mbD5vfO~#`j7F@n|uPsw!2z
z7Ha68L`Sd4*p)O2$B^cxIMrk`C-U2tV^%nEuS6ZwAiYMGJ!Z^pw<r20pD0=T(I2tR
zO*%Q!nn~nk6*wM}Ge@?l_Mpj82Z?*n?%h4g5_NTTKT`F4)H7~(XAFbDpGHIZt*nO#
z#IQI%y|N>R50~1Am&<=ZXBTS2sbjk<^;#+*62p0r3>?syq}6KZ47h&@=e6B0G6hAC
z%DL?b(C=o~*_K<x+G&)x5^5)`7zCoKVX^pWK1|gtB_(wmvY4>L_*<Nr;SAC8zT$nt
zHZcQ>2<oim^})PEu7ptTt;!xsw|jR4`ZGDx2e<0|c6V_c^<47;wb6c=YEZ>cSa#{f
zJ#TL#<ZW$3cuwTk7HZtLau*_{91~cfc^Ehjn^uuTnLlfCFF8m=bFNWUXQ0S)J#m_J
zSD-9m{}klp<r{#jK3Miho3^B#LoRIsKp;*El2a^L1fl=F;x~=M$_Xo^<)NqVgwGd%
zh6jX7K=-ppj~*4a=<)!KNJ7dz!pp0qU-3d2$|lhe!ueDOIg3~N{cK8AlxVi9tG_B(
z9OOd$>qx9jKc5}z9Gf(i1tecY!zDwXycfSI587N0XdI3<5Yfm+O}dC|J+*shfdlC|
zFIcq#muixVlT*&s1hsd#>TO70|F4d7yG?_FQG3pZ9Gig~!gjp9@u@D^Q{`?7GBUM*
zg)@M=h5%$lHMRZqWf!DsS^G9iA3{#R2X-7;CmlN3IDc%|G9tySV8I~r{d<H1;Q6t7
zKv<$t4;x5@StggbxHdM2&{=E&6XJn9&&~3mn=M@<q8~R2v&{#ap2q@l_&#T%j8QB{
zF1RQC7D70QXogw%DW)Giv3yuqSe<GwcP(1Dr%ivHa$T8emXnoLhOpiE(NqJd>l)y*
z-IC%);<QYr?_Q3Fz6>zw?ip(V_2Z^f9d%{9WjQl08`|9-pF{*($=FpapVhk`8@F<O
z9v$4EMEIyY-ln73?(-n*^Jgiv#5?;Wj<-4Xy`knkbQ`Ki!OE;g*zEQ_=g@V|EAcr3
z7;@_Ejtlp`y_bDXArS*Qr-;1yp;GJlkykIn|Csx@xep#J>7E3+rfrEY_Y60IEroha
zW^%TqxGR*v_1*0>$f<|2eLW8Tb^GnrPj4Z>r_T^@QFq^MlEYbi&eL!XQIK^Ududrd
z?mc6kHzDn*kHgAjylc;2@1RF1Ohe2<R#HUc4Ebkk0xM3;4L!Z}JNJ>y>G@4wLT0e7
zOM?zp^^))4nO#~PtIJbLM5AzHAkf^Kc>Djk)W&6~j6|u1K>($n=&uU8oN$4d4OfO2
zNosSEMtFEQ6T7v~cE++RdFzfFRKBDjtA8+xY&FY0Myexi{A*(LV7m#F!->58$613t
z3T!tk?6+N<HavIk+(zLHay3?NYaX4b6wRl5e{GF>)*)#j<vfK^fw})8wuIG-QuvR@
z&Epn6jx7-^5MKw|bL~BaMAnhc)Y095nC(gZuY;1*B_4JA&+GA@|Fuy5ubcF5Ec{<F
z)^>YRlY)ZKNHMN>aTJZ`ZE%nM`Lj6%1;Q9AH`GeCw`WtiY4XP739$xL-;;X%-xvK8
z4oPbeMy9tVDSuutr8?RHX%4nN{p)xCdV$XrRU)@T#OYNWlVtnk>v0>NKe!|r`j7v;
z$j<$Q?FS0cdS>t5i6^K3{*;vRf7e*7LijQ9M>Ey5mH(J#)<yU}E~A!I1RjewPR_rI
zqkI)uf`XX^FWR~DkCS=lH)<xqw{W@`<IrzxB7TeT5fWHVAyo7lveml#JMr?(On=Vj
znObxdh<+#&yFKqT>Mmhx{E_FF9>zwz^&O~(__85VVs-v3LAW64YH_-QsMz+`{u3J;
zEAF?AxERad_kQ7x&U8k`smwtpbXt|f7vB4`5eebWj=z_AL-f<9epgM!j6#B#hB4Av
zhz<X~U+_<=I#as<l0l))iXWvs1Ss(6%CsH2>bf`(4W-7*YzTdffI}!dI$mb*Wbe@e
z;NezT0q%A@N<&;G>uHzQ<>dU?SHG*@3^nqD7cxHHcd{(rl!D|D9+4ukX-e+|UdKas
z$f5fiRKa)9%z*=vYfbafRfPa?1+K?@q-xTUxQYNSy4pp&+T+R-Toq-d>Fqyv^Xi*8
z!d$}9Z}sv%v2v0`I&KGN?1l_+yzn~h%@%ywX+tcwmyfgEF-ZVpVVnN0-uuLLy3jVm
z*MB&`!gh#FKRIv9>Nc;dWm!tA?Y9~KuvzinRn$g-fp|<#6oz)+1Q(;ro?XO+UH%lA
z{YMDeQ@FO03@gUar3C^XA$F1AGyD(!*)+<(t4#o-0UuVk+7#WAJ^S_zq+C!@`Ljd7
z0^pNIZhn6Pfx9MDlL-5HSu~qET&5HVe=)&L2~)%Lv`xS<jjP)kPSt{QMZ(>;LHGh*
zynp|ndnuy95sc`_caDc^$CH}y%x`A6P=_yn{`{|D{{M&B0b0Vl`S;IDc?E?=4fFg+
zP|4sx5vyPK(JNK~Hx58=Gh_HzW?MM4`J<;^7@tXe^xpu(&R^30EQ$M08f0m@fdML#
zE5Ux?QM!a|L$#ZM;(uP)b+6s584lOifpFmx0z!jTq+EcNlh=qBfa7ngYpRe6K#c2#
zMv4n%#)}U_)_IN=xs3><IPLqy*a(SK<bLABiEkN(msijl(Kb$pCy0=)Y|&TERe=jI
ztQnf9nee$1q_ETIn9E**31bETIOJmsev2mW9BGTTAgmb2^H*kDwN2qaTbnj={`>h0
zCLzi=oX+Nwg$b+?a_Xqn9l{%#*=FTy7!3EvFAfLT9TNc=_wZj(Bd&A>c0Cwg|7HQg
zv5k9u_~_BJ<jp^q?6OLM^8;AzEIcSty)ZJ`{I1+bK>hCSGQ;HYaSH<X!W?89y9Vne
zpshAeR)Asl^z`&{ZV>s!Q9a=+XQ5e5Jx@KOOC%CPh6cCEuW#Be(DoKSFj=(Bv<-Ls
zdAmKX5F8tDAx)k__}8NKft%lBGh<C!(iF+k($a$xYYYAjR(Qik___DXs;Aw2K;Clm
z?eV|(6YKk;%Af(nNRyL}fnhL16IFnA@7~{5Yj8%`WGBS49Xyy_LVu3pznK+!hzLQW
z1xscG&^9(j)9V^ku1KOM7*yfD&>Qqh!o6T%&vwXOuTI|bI}{5LO_=+(lc75gfeBrW
zy%gC-#k5)Szd@Sow?QPe6-MRiiGC2#A?V#;4$95~vp~a%hG?Z4rEzW7nMMYF6Sa3e
z8xlPJ4a74$TS3f0T!PlddCn7_8|OK*bLY<!;&#+X0Qa>^Ym3c=Dll*aEf(SqKHU6D
z16o&-(FSRfcd+Eb8(~|*fRz1Bf@J;Q&D>Fe!)P?ChdStYp>27w7u5$`6wFlcm`1*n
zEgGDk470(6dw>6ydsg4j07sE>zu-E-^ZyR|6n%ytA8uqbb;7*_wUH2L8fGB@(6WrG
z%dww0af#Slr#qQ81NA(I?bmIP_;0jmlK})^Sbe~E$;PJa?CeG;d~p}w-DyYzrC&s(
ze}J2#;V1(>aWwM0+%rN|#{Vz|9=n$I9=@Ytw=U8hs3?D9dp)r&s?T$u*}yA?hM_XT
z*(TOSQu5BGZS>dG*%7xApPYvhGr@!Z@$%d4ar()>sPmt%@N1%IHbW3LR_8f+@-jSZ
zs@M_2yWNmRh;}DyM0+OJmxa158p5wO0GYvCKP^3ds`)&mt^)@?WmMtDhyfIynH{9+
z|GDr0DtI$AcP*Z<SFhp#M}&_BJ$?EP*36u52AC9?N`7=Y4cLW{>z=)bJsbuRQ=Sjo
zNgZeYU0}f%Z{GZ|CO|ul>Q#I#_znRQ50Vts3%Rfn7TnU(((G^U1WV6zu+%p&$YDz7
zBASlLA1O(mQg;M4<7dRu{(z&7*g-nFXoPe;!W62y)Z3E32#THXrlVEt_@QbmEoVQ(
z=7$d-TB-A+6a&Qo1D!ZF2T#ClB*16yx9nzrsaSXss-2ee$cNF5+e!aC+F-tu@X*2T
zH3MO{HKh`=<}{pQoNR2x{!jnFMv6~nnPh|XY!#kEhdvu-L%R&BcthyQLF61xF)=N|
zcn(dl>(T;xZqZYXu=EM9bwXpVQxIrZiJ@OtBquYzX$zXJVA#fps|7MZNHjD_7_Kx8
z4Go{Yhttv!ES^X)u&%AA<so9DsN8O>BaufdhZt`#Hf@T#B0tqv(~RC`&!q+UurG||
z&xIoEZX?5h{7Xldh<wZ@d`~d}JVCF0)XIvE)Wx)=V}B})sEKN+k`U$=q3hdVJV5gl
z^I0_XaIbOjqZwfzh&13dJG`&x{+~}>ka7JJMKZhnVZ*VG{8u9ON#rdZLrJ-ctS;l8
zhQUy7dN~{bmSgc9t*|1=V+fz|0YJITGe{Vb8fMv%MT<X6edB?)36YyYz$^h%GCqHk
z!h9_pr!!$|%jXf^-ui^nijc!N)Ft4flW$hv-u(K^X*jj~TlhJupv5s*Q;E}rKztRL
zYq6E`mc0`&x+;=Ivi!<=QiA7(WPddMrP0H(Q8$CA^z1$1P|485njV%#<B`Y4<j-j<
zCn6EB29}fNUg190NqzRCM`h7Iw>D%UEX2l$V?{EIhrJw*>FMc2h80yKoq77to#t}%
zJR@?)3N(=YQbCos!waXXh-ry$$jT}(8<tr0Rlj+D2(YSYD3w6RXHo=VGTh6f83Rre
z5-6{v)J$Yf;5s2!dRwSDglR8mkrx0Di6`LMv!7O#Nw=YPY3vYMPa=H3;(HPGICVzQ
zC>G~?{2Pfb6~`3OyGJj>>E{CuH0M}_@)FAo(hZ?~JbUjvnqA(PN}P=|ZyzxUU4r^C
z?UXCAww#`nKdT;19KH|MeTs=1nbkHAy|G>WXq^TgBAQi3odx;2Ezb_i$H6`^O1Yin
zu?2VV5pgcI@ay@XVva0q2zv>k^+GyyQO@3VP`dw(eMcSUrGP9r#U?)QCUhpkd-+D(
zRh`h+FlZEm&W-Fdq<h-?RYYuA1Pj8OC*QE1uwoMxFnVJQ+RiAlqgU4oo&*OEShc{E
zGC;HdkHH)FbJ@K)Sw{zw<dh&ki6lzw283S1ncM&LJc}~coe;$iv$GF^=`@aam(a4T
z)@VFIp98uhk=`J7USAE!@#DUhCWV`uXl5tEA*+%Jk`8)q4X6hBKSseEbQiVyBnhSg
zO;b<!+*yc)uzVku<<u$2Tbv%y`(Z%r+k4sF&FeRjiYR2p7iGcJGH%td5U_=T@5Vi8
zKc-m1zd}XFQ&}h$gKjyYaNgUpo9HEQ9y@ld&<&`5ruOU(V#jb@m$&@u-L7Z0egGvp
zrc<CvNzHT-b2dbCw$(H<7MrmkK@97@y-lvDIPr$z%wk`9M7x>2U}>ut;d4d$3|i{I
zv`aIJNQT{rdeH7X2%whgv+%rCD2<~r(2p(_x6LCGNo{*Dn*{7I&FGg#I*;Y6iaAZ!
zLcF$x@xrjH$kS=6N`UY@5!`?`fBKoW)4*Z$GhnHbNA3WA+GaC9eiv2E2oC2(bi=3;
z7~y3iEWJb*c(HJ8sgNW^%;vf~0%Oe7%kvVBF=JDR<X2$bu^m{aL)d)~3y}!skib?*
z;F!`mCQD2fs-T%%k`};urJjm6uS>fYDex#w-nxruUM1=jYNy|-X<ENS^ev9P67fAT
z&j?r0vK8#DieVJK;d+Qo!j@pdAEFx!`A-WBvhm4*v(vDF2<KlaiG$(MZF%DSF|8aG
zNSKX;&dkc1OiU6HJsQ;{&9`SakVxaPc!!$!uUfJMMxtgFPq=q)L$rQLaq%>;t;n%v
zl!#^D-T1XABBqi2NL?(rPwZGY99_h4ffL$&Go^GoF^D~42uFP3*Y1F$m)UC%6#Ek+
zLvRDO^-k_)zi?4g^K~ftY^>6>^u#HJDJ=mZL#rlWJ4m$MF5t!*frXPX_X%l`M0%J*
zv_a8j_y*_b1u{~iBBlTc_!1rwp+IhmS5-p(vtBr$hbDCs*rYk&Q$@-JGcz+c8bMLf
zw&`?bln2Ce&n1)xlA3&7-g1p3650pk`$X-0b;5Xs#C-*2lEBAyxni~5pLP&(=63qy
zMI%mx?C{aNbM)?giauZ7f{S=NW_J4;5%eh$NzusuN5#b2{p;3|JjkU9*V19AHUjtv
zE<mYz0e>`tC|bWc;aY@}#LBl`dZ3)Qn8E2s3h_?HIqVBUXLm_~9Ew(6_$0!<ziVs9
z{yKQ~A$k*C!8)8J8_)`4?6!K!bx+J)(e#gZokgl6Kw;|)cDc-tIUc_4#r>RX1o%W*
zi-j~BM7AGlQXmKM_I<)A`yM{5e=W{P9ARudK{)<Ftf0uEv3t0|Q6B?avB+;k+nZ+w
z;=gnL(r7L*tl65%_`u)486y73hgpPr^+B$m=N%m#38VrdF%5?W7aFvxTDAf3tR!Oc
z4rq6Xu!NvT_#Wn1V>Anhnn>Iw-r+c_`7UDd{fAKNRglcAo#d~lkgKZDzgW>!91Wer
z?-ETG!dd4}=r^m-tN93jP-1QiDq43&B}OHq{Fp^@rae*_&9eSMS+a4;yhvc!HF%(R
zHGBkPDd}@Wr0zcCuu=rj3!`Ea{w7scR#Ffix*4?AZzBb4h4m6yG!Y80F^UY({7ZsI
zf|XoEli(sM>iU$8;{iC#hI6CsEX_5QmEQ>W5FDdrzUqx%o<l_V^IQPsg-#3_y+f16
zf6xyjKK`PUGEZH*m~i_aQGy6_lCaBsieWZ{C1PwxPDbV;Sd9X?!)Yjym=uz?Z-0UL
zR(#HHsQ&E_TZ55BvR|}`@v^Z=!ko$z<nQlqAMc7SFhB5Vh?1ZYr_e?74MYd=w@#wN
zXq%AO>~}o^Rqf?gd;52!zz{kjF*FGM{~fyI1fV30G3*y!c1@o>mCy~|x$Pl8g(>{|
zEX@kw-C%7FH=qb<PZm@0_9Nmgvh%o9YgRD;NsJ7S=1nO^>z_S)_D>1o;NarmC{JmV
z=gohQF$?);q0Xa1wwSp|F+ne1%Pk8Ult<%}u9;Nxf(3So>?H_eME5!l^$!hVVnz}s
zM})2sI_>IN7Vn5w6`Xr~g>GO3O-Wkuj#Iw}bk-Jw2=}Cr_3zv0BO%JP-ttpv)6mh;
z?J?b;uFJYN6SKx(EFNqJ1O!we1J>Jjy59Q35zqv`3PA{f^}6~;IR6-szZp*5?z*&%
z7>MEeH1rS}YHnNMA+V_!_++9`OO8HY8$%Av{DI7V1YmaYJI>%CSumI0a}P8I!geHK
zI|$P=My;cP%)nMUtkjZ_V{?cR+(LJEqVtM=sJ*fFi4D;-hvi~`g3x4|h;f5~!01~{
zcW=ycO#qjBrC<mvD093T_DtJ-#Wsi>jadqq$$-kdy>nh?FeASU+YR4d^hiZyVFQ((
zslX&obdocwh`CW%ZwWF(BFz!2Oc1ceKG{421i@ihqA98y{PN|?wepTPKBZZO?j-jb
zmCFs1>N0^9JR(PP@9TA@y%F@{z9x5=<3Rc7&Bw#<ix0dr|LE7tWW`;6z~}5enZS%A
zhHnB54cy$bUg;<|REpN9Wa%{b=0t_othkKIk}FqSLYMC1&}Zf3ROD@Z?4pGtvC-Y#
zJ@N)B`(`aIt-zCUPN4iUkR^pXYHOdAnruFB&!q+j*%Pt8pMxX1nD4N??gJ^dZveRl
zI@fG%Z3TseZ-9PVRS}5@oQjfF!c9fc{@UW~NPMjW6&015ni`(OQQjlVI@I6)7Ar5;
zCymSQlzjP)BKhG!e?P8EDf#Z=Z(sMPG8;%%GfgAyxdNDdC{g!&@8sy@bOS+jgqvGM
z&<=sh`KA9k$V^*-D<f!BZ9~IZq^!F1TS@`Lt8JLI7j;{HsVs`i7jIHhQp$6lQyiU0
z+xqFSi;K%~{fa$UVHM$zXh+IixFCgKtF*ivb>S0gHi-nQ0GfSQyz~?<T)1vvaCM*!
z_qh4MuOX?8+O&)?8&RxZp9&Cz!Vy($30DmTY1_UNQb|)rMn-ARSYwF+@M6>%J~*Jg
zej+dUK=erot$`sp6%*T{4&z<EdbWe#Jbip9^YZf4@~i4QI#|#+yu#UpmICUf!LguM
zlH7X_o;X1R;NUPnegK8(`t95Ikw1&^TDS<K-sEgKAhogV(Z0K2<0(#<6Lcm@yOn=)
zQ<L}O$B!%dBG;%hO<VV(`=%@`fe&zR=cH`}R+<>_SMS0w8>gt4SY48q$Zccev-@}M
z=jY$MZr!^34<AyHxB>WIon&wP)YwQ1`DJ`+>bdbU4%7>?p^LlTUA&LHp$EQ7>$fmJ
zaWIfq#}5Xt9{6?=Mx+7PZfD?aVKTcU*woytdf2NP`@{s@3pQ;!(1=ex6W4WhJ)uCa
z!z}YvLyh~Or*t6SYvEr)pFHtEf1U04@ts$%UKO<HBAFgJyID6titQgsNs5QQzWRRT
zni@*~^1H8Iy{fd#$;ml>`n3MZa{;Xdt|E}s@3pnHZ7sj&<)w?lLK0t5fG0`cORur9
zu?`Ym&XMzf0#3zyYaS;aCvXzhfZ|V|)?sw@MT?$2iiJwTf}*7$(=t@Q{`yENFr)jx
z^+6)lMMWe$sKFyXo-5vb&taM^#I~+1&5=*9qA$_kSttQ)qibSP>EL$y^yv+hlo3#+
zj~qGjM8s^o>(fhqQ-+=e`Q4j0j89G$gUs&V>q}<xef;>`&6|giyuAT5ORB0K&j<{o
zww7RgjB7=>E#H|Ai+M&$YQrXKrY}a+_nwSBSL2or6L-B?a8<c%d0~oZ&RngDHNu&E
z;h1L=ztPpzHF#v#pU=2i`84PFRZq~lT@dz4(CWSexFxqVLJ?+nis#w_j;gOw<+E=a
zAeNNe-*wPp;^#Td9Gfl4+WB{64oRYj)*&fwV-;s|a&k(jVcfOrfW2krXLvjKoM%n$
z`S_$iyBiQds~9T!;K6PVHncM8C*VdaflAA%B^GtxpH<=pYV|yz2KKDF+B-K_WOZpw
zV#B6QcgVeIC)RK`<EZWxTED8v<Px+Rb}}<76iRGf*tFS8^0kCJ3(QX^%Jud25AgBr
z0vk-4o>M|<>E#iRii%3pZrdon@_6CL*1SK5^PY=BOp(U9%Bm{DOABlJ{*xznFDxu{
zO)b<mH{VJWlq%Sch@ls<It2D}?eLWBA)5KcMNZl!;Ljb{c)di*Q8X(o`l^{7oSc55
z!1VgXUWwnEm!ID~GEz0@ZGIz_o|>9EV6VMA6*aXq+|Vyp7X#Rz${fcr&wkh%iN{5h
zkjYe#fAwFlKY)bg?5qcaa6;G|L_&1&^doyP^xzNZ+ztA7LgQ4P`x*-dUr8QN-@<_#
zX#E-+8twux{FL4O=eSD#lHS<CS=MW%d;R*wcEg=)GvnQ7fjOlH=5gNAbG`;gMjqzT
z&byD?feb-Y6DDz9QIYz>g$uQq+TF$?s%F6V&o#_Fm1E|L)=%Su5i!}i4XIdqY7P5R
zuif?#VjokexT{>|=H0~}GKY#`54ITjaXPpMD(Lv{Dn=yo=t|SYUcS?(y^@oYHA}CM
zWR#SGM0C!%%#Z&wn(9l(TLvhu?-wj&&5p#lj%3`F@Cm74U+>?uwpka4?Vd{?>U8N5
zZQ9H!#NP&UOl!$iYlWhobJ23_*_sM00G91lw|qgh3!_VZTl0R!2R(VR-&&8WtD#0y
zSNDL8t*yS_WmVPl@V)#ReZB&TT~46t87y!ozzn#UF=cokt3tM|Mvo~Rk`GoG<oy5}
z+JM(hOdi3o^hGo}G4U8=C!Xfzzftofc{i=YmW68ASB^haQc%!8`h4*D>(`Hvf;gGo
zF|bv(v4a@uHWoe5Xo`ffb&ewW0%n%Rv3leyzcBB4I^)BK13NdXRlS2J!OH(MA75<7
z7ba%rW5>o{1qbUwn7UAZ@ZS(!j}WaoM6+e<)~)+@Zr)Gx;B8dYCR0<>+lGc;^9S$m
zWare_7(F=uYCjK;AFSFgqR4mel9HB_zkwM@3&FH^{2|ACVT7)fv~-$V2Od;#@Yu2K
zh^Ryx6CC3S7<c5BEON85_KS<NkWxVTPhmHTQ*mH!!|HS6zqq=82X|76I~ncB_l010
zP*ju&#{L8g6S%dm<LL)5cD}{u$=JuJ`~aCw)!0R$C?kvWsSNJ>V*J%(ku}QKcxx)Y
zTrOg}w;fiFt_g>P(B~!H*P&B=2b-zfyB$pnjNnp`=;`T;zJ1FmPGw+Vu&}XF>A!VW
zM~BtU&hA8c|G<DOtA>U~1o(?pSQt@cu~I6YTl22;L-2knV$Xwe(aXTPd-vU!FX<CB
zvuS{)&Yw9$0xi+#<#IM}&+#fMI&;7DMp>WJ%HnAcrHvGqPJVA``RDTG-H^!SN_Q~w
zKk9uH$I|dKE->(FaJc^o95(j$44D=ONtFX4B8<4<v&gV4q7EJ~M)nU5hJ((gWM-D5
zx~pCLYHn`6!`az6SPweqV_;qi5>U7Yh{ws$pnvbTz)qzrk%H#IhU)6-&0Ds_T09C3
zWtn#opPZT^=Qj!q3GG8zmZNy?WMEK_jCVv$_6GJs-i~`y{NN|zy8GwPJ02b+FFgzb
z-$yx#-ya`G_?o2i1x!s$=ye?SLA0s&vSVgu-o`BaqHg)#3l4-e?6r$O?d{CWc+5KT
z9za68f&9C9+cu2g9E>|E|93SvFBB+yW^RS5^!|cn^XJbSK;cgUgl@35wnp6#I!YbT
zHj3XfUWQbn2JmTfegyX$fo9z!0h>#o(TP27(|_^46kAyzo<FjYfMX7&hjcNiPTsj|
zmnWWq#JPuV=T4G%SaNtm9CcVtIaGN|(1FOGa8Z8|^udDPSY2Kq!lF1;TU(pR$4HQo
z0oup7$Y=-f;YmoCouq>?F5yn)-`aKH-V14fEnr0E<>lq~tQh&AC@3hnc=>Ytaqp7u
zGw07!1_lPEWMte631P$|B>d50B9WF?R=P(=sZX9f8PK<b1kvp7^XI#{`hEZ!;I_}M
z+%u-fldGV~Y(gjOg|qDp9=X70P)SdF>#8jQVnEN2xEv?}2E$e+{7OL^OcR#odWBHA
zAw1Av+J5~3lLd&8U4w(1a}E!r?jRt-(GSC{p3l~k|DN)llR|N6vESjUeDB{^8GIM=
z9+`VI(1+Z61JrSRdisT%8OTCHugqqW&G7eK=*aZ9W+qo!qE91e`EvsbPW+MdxH>!z
z%1gCu%0U!<hHWTa3BQW^rY0aklePAv2(v<xs`{~fkL01ojdqw%v1_xhuP+`@v+jXZ
zc=-QWMjs%ZS^Snf>(b)l3E^hsYO)yb0TVs}f%7UVdkD>>^0m-z7%V&<JlF!?l_$*F
zdPrN)G&cgos<y|*NqsePbX*(&wId#kq3dd$jy+}L<lKsw^G;2*%+^E6*|~G42Z}*4
z*h1sNmIb`!1oW+=w2aKmk71TbdA*A`+{E@?i#d1qA&`yC;!DHMmip4r`o6>W6qu+f
zkrYzW)8j`~;+T9&JTo%|z`!=Lva)JIWbow!y0);eC<1@e#azHMQ3p{LP-YK6(Vnrw
zwK53U6Wt}0^b8E)7=-HweJ-}A*vXcR^mfuOGc{HBDC55;;y?hwHzpiJfA#jRBT2FC
zis(p>G!JU5ufOq{@xXf*+*%Px+4x{1mu9{bE!JW^@Md<l(D3l^byVWRjxq7^5wOhl
z1G5HHp5IK$b6I$%jD8q}eDJ?XVe?Z;T8AqMc#)v%;we%W0TMC7Ro~|{`Rl>7C9b&-
z<mYKsTN@LSU*hPg&9Rq|uo@YZ{yhLveBbV>mIA9Bb;a903J+(CtUkDBYxnT5=BOi(
ze<PYm7xAav@CoO2BcqBV1>iE=`u}}IDHfHkE2$VJm2ExRR_M;k&(H6$I2|k5ci-3d
zETH*&#^&3%Zx_|oJ)P0qa^QUiN=Zpe%RZPbJffo5k-hNfq2qXn)N2uYYMKY{b1om^
zEXp`61N?QZ;@@qQye~>@B$`9rfTH~fNm3Vdv9qW~aPWCTCoB2!g8@;E1MlPQy$Qwa
zX>jlZ7=zJRp?vr59U|;pur+wg-XA}HG)~xTKG5lj99$VH##jiYnyy^jW!?jAZeY!l
zrl!3BIgzv>oi9<Fih#yZU$&MrFf#VQW^(bLtN+~;rz9ZLbz@^+c-zrkpkaHuxhPrz
z)8p47Y8|sQc_5x0$BfOD_p+N0VA%c~Ldyd1Pp%x?iMFY!Da&z+9gQH(jV({(-bP1L
z>gecjtEHUj{!YmB!xZm9MDR?g=^iLTd+6xSYQ52}_^%F_ClqqgY~DZ|93ZNP;0*^4
zAKv&EgdXSP^9&B&2a4|nQC9N&d7qI1<Air-eb`XIS65ew%qyAiaQf7#uHN2_yu7^h
z`}V~imzVr9XNG6VS<%|dA7W>}G2LI6<+{Xw3iA#xugyTTFTsg>5)$HzgF=iyc1};(
z+S`{Scr7scnyrWP>w_GX7AlV-@zJdPA)ai-hVg;L1uQF=J018}8KAE2jT^;_e_1X_
z;_2&=MIkR=-d|f8b0-)Wi@3`Xdrk1%E(9XlfUb1$g^>F0!m+ChSc`}%0puE=pV0eU
zUfu%<1-!>2FmNv<8xMeo2)wSpF`f>eeItv%YWu)$$pT9Ov$i5Ig*|?FCYJb}J9oN%
z{tUm95a*BOb#M^G6u~`2WRTER=q8VtMfM{1r=+CBL~X<LQZL)7Q+q(v%V5*sV#ebz
zY=+yicQaA@G>U>}--B4zjlJq+SpzkN2<eH$(1YG7y{N<S_^F`1z!Io$2jNRz%!Yb>
z9nuj!-;K`#TH_plW9XZS9GwFg9*<7JHXWT#-j4Z-AspZOfLJh6wRD5+U}Kwk=2|<J
z6wn97bC>?X(!`0-N^X7%do@SIck|eykl^4gl$4a3P{-POfblnP-CB&tBzog9Sl7{{
zyYl+oAkNJJK|y-doX<#UmN+#h%7vJyq4{|dvp$Di?R$Ryti>?NO-K;J{9IgApkyV;
zcGqeSi-|F#?OcMpDipMXDTF9#fYRmA+mBx_B3<p{sX<|l^q-oX1YnEdmH3-_JB7Tc
z@<3zgc(w1v#}CnQ8R0-cp7BNOf2yyi!C8&b$|b^U|DLT+0|LBoRz)$hj?FrQTJiY?
zAE^rvlUPYevMEqVp?mxa;hm<Dlu<bFRECq=paOG0o1hpFteh`?5XkuYty?~*<5z?~
z#>8w!UHwv1qblosXRxf>;`q%kJ8^{#AbJkV^L#k&B#4xFvH~?~_vNp7IJ?-Yp!h5e
zh#`7-Y=Oh-vXJq}qn|xJeE67oPBU`9v-)bn^k6&q4ljuuj}34Np){Z{l|dwVALc&!
zYYUOetbWPh!BP}3o8NFX`<o<Xs-iD?3gC8e2#ALrOk3~WyVt_nnjpiqXrFmKOv74%
z4oiZhQ&3Qh|171-b6a6RJo$ikp|6F<q&T0ubm-pB@OyYViPuBJUPs)xfO6Lisyy!c
z2l8Sa9@c^9f5@J@cBK$-BLZ3a%86z?2Z`2bL4^$@)y>WAdxqie9wt1i3UPQ}&Nufk
zRvI=!DnPWW0%upoyVnz-6K?(&&Y}_$tjMl{j+2Lo^9-dmwSzO_Gj@9y3yUB62J#Yg
zOibG#;XPtF{qQQyUm|%)VUIdnD;`>8XlY-3Zwmydb=n0kTcC@9A6)3B&D7+fgBidR
zU@BC?-4B^o7rHvh<NJ3t8<;KMO}QF_vmnt>J&?N89=j6<_@T*iOog>dX0%cm#F~rU
zf=^}cfn~<;j~HtJf(Y;vL#JYTbU!=4S=)UMrO+dL4(|2kyH(B9<hB=|6xzbtR^Qx6
zD2Q3v*}9PK5-PRSEiL)r0@?zC3L_XD23G6!K(>nE5wC?<vy4I9gc^mv1v2)vB<(e7
zpSu8l`*9qwCJD(&rVUZs@wC4?;4;^dnG!;C+0npUkB856jg9#Obia>|cIT5mM57A?
zcKdtE0Tep8rQRkb`5~F~pu67q<n)1G&ew0={OoYD956ZMg~H4NdK)izsI~JPc43Z#
z`_}ZzF5l8es~sSXf0!CI3io$Bec@6n?wHt_hz0pdjBa!XRCaW9$c;U|7`nXdvW<~{
z8=)Yb*&kz}3DOFVNO&G{j{p5YGPIXtib7tzxQFBo40Z9!0*SP3+qM)KDXpm9>cqo0
zQ1s=?=Goa<wUq1Yh!!C|BjdsS`_BkR;am}r1%zdMv|VJNPkxaF5A>i@R8&kzxWIPr
zNj-7Orw1Zz@?v9;g5Q_jkZwH4$@x%u8M0H0>@ShPr%yeLizTJ|K-g~VaR>dsdFvJz
zvpX`2^wj#W(VN65fS@Ax-t>>JG})eBhv=APGw`g9k2q!^2x`HF>@-`w@Gy|GNE3i7
z$1#U`h=YTW2p_e!{jHDT++JJr;&_Iy&bh>;VUEth(J{cevb|kvQQ89NJj=SzuhJT$
zob(9dTVm%WH(P=%3KI?DOV>JU;$FOb`Q=E#bg57{Qxw<Nb!RSLey*Gsp14nZ?*C!z
zO~7(o+qVDPkRi)lgv@0{2_+dSv4|2%qas6v3X!1@GGt7MkjNONluD_H3>A^6lr$(I
z6;TOg=>I#D_kGrX`?l|U+MaD~&uZP>_jO;_d7j69?E8Kk$LBH=y{g2E=3P_6w(r}s
zXW@^8zuc{SH_@`uv!vTFn@6cXG|~vP!wD3ic`5F%9(tgFDD1})Y*L>-eM%I*ozD|*
zgoUYIy?XWCtHuNKzUz#L3vrVcAiHra9NM&W(V`usX-lbfj(@R?xZze;9eDMl0LxWB
z>Q-^|@IOM}-N%n-toPP%$}ZxlF#A3UTyq07r2K4s3b=(OG30(wd2opG)vrnwRV`tz
zZQZxz<maC-b|=6@C%1THu}$<B^jZb&YBD73^ywmh>!j;g&hl@p>*}s^>&^($0k@jB
z?S;)NGT=4c=Pa)->CA#!U~lgU=DYpiL0cgAJ=y@gF3&M++%Pw_H7+D7%SeZelkx?U
zUR`ZAnOwh9_wKDVH8s%z2EhIT66wltk8~!`mZI?i1y{rD2F3$1&f;9msEJ(p{cjR8
z$b=mnnZnC1og_bg(+~f+lC2I44mfDlWqsTX+i8$OihE?`_;+Lp=1y9P?i!;rzagmt
z<L8!rb1qwx3NDe2zY-P})}dp^j@dPB+P6=_9|t;YyKLD9wUm(>8fW+r_Uj{m&6#if
zZ3ZbS3LXb$T#xhM^tp4}0L>et!b{tVz~&h5IP6n5Sy{2EUmC6~TE&@kM5i#qc8Z_%
zOc2!-$R&xcq2XUxhx?t*mjy06W<;DiMFRgkgW^uEt2d`#@am=L&?^wt)Li9)3>GaK
z1T@`28#SJ)Z<;!wG0>KG16w|{QF|G|(L1<zMR|Fu+a@O`C%q~pb$Gu_b6LZZQ`#Gn
z-^Db<#>P6IeGZFt+Vo+2jz_LJ;z$bYZzow<MT_qTU%gr=y#9*w8W64o>Sg6mv9jtJ
z8XEe9$Z~agK~I8P3aWF&g1fC8drS}ya#qr%%Zb)-U1;pLIS?QLCbHAl1fHEmYrdm8
zm07`=-Ba?Soh;tk&UTibmU2{QSpV%;f=N?_jzA8#7qN$)kx!m<>eHtWNx@(tZ%1nB
zZ2GYa;2}kboXCB6LjE~&$rH(r9XpPVbm;Qy=hu1JrK??B>KEFdxPdivJ3A)o#M7^$
zk=M7fi>G9~E3$&So;Z23NBT?dyq<rn8OMfiS=oV@>h;PmY|vucyTb?ddiG34cCOpe
zDKIX|V}6h$ifun}<6}7U2o|{c+hHq<???%v2R>!a@;Ya6LW^*3oBWsWuLdlE3u(i0
z|MBBwc*)||ueXO-gyR?5W;0L(y4Tn58EmmY$-rkA=G$Bx%TbFv(x?Z5r8=$K+G&Ri
z?Iu}ReBE1OWo2crbHvP2N&CpC>i*k<e7wCoP`9~NV0Jcwxb3JlD;s`oJb&TBotH09
z`Q|-Qrp51=k<_>HnaSYKRC&xU6PGMe;(5Ucq?QlS=-Ra_%86<5Xn6QgtLQz^T5Yb-
zm+krU=l8X5F1Wj6^qO)R(3M<zTJZ|OE(9(laPP<LrT%z}zCW^d`_CU=o_hKtIXT(u
z)w8Uu)8XOi@8mTmP<W9Mq19)<vHNcJz(ge9;#fA+y`-cO0e!z+z0yxb#jvvdUm|-b
zF1}rFP>AkG|DyI}>swF^c%+FXRi^_3J;C7pK@jZxt=F$#Pt7xxoHD;ezr9YF>;6H5
zz4>j!<i=HIc3AaOHyN4vFhj%D)V6YaK>RKG?B5AgEXE%&&#U|HNzbo2_a#ORC#sW5
z>+gr0>)5f6meDBRo|ixON~>Ob_t%eAk!v5RZZ!1kUJp!CB4DGv+Hy$9p`#&^235Zt
zk5~IHoKY2U)*yxI-mc{D_R-5=!aGuzIqa(&AIn)Va(Vu-X!-jW+Xdi)xy|!e?wuDt
zZ~UYwQ=;lO7ZnwGAaxj@k+Ze6Z7C%+_-aPv0K8pY3GavZtXaK!5;s9E&Dp`BE@|?T
z$sn?_kj<BeXx6m);{}*yWOVxTo=uV>m$)}K2btd^|M0b$5DGLvlqU?rvm_(c$SnU(
z>biwEkX&<g>eQ(o*RHt+u3Hf|M~1saU?lgMzwB2RkmH026W}}VkpYc>K;yyo{b$Et
zTW;MN&q2MCR&|ahVnZJo5@@<bbKt-h;P;*T_osLFpCOKUj^Z{QIvm-gs;b%nz0PCr
z-gYgUZ~0s^{>P^lea3I{0t_leulk;Inv%<mlsC(sRMpMMiyT#@q#Z-LrD6y7uJMpl
zdN|dRe%-I@xWZ+J&b@vlS{^U}bdA6%E$#e|>QnrEg5(hI>r`{70fKyAQPF&EDotK`
z*pHIDuBkgVd_i-(+bip;?NLpyjMdzEcY={oCtPz%Io~LGeFdj9TwUGPeiQc|ls&O{
zbc+@(0xkL;y}-M%><9M_zdzaM_z*=!&#E!U!iuz^M9#Hq75GuXL^K`uRb5RR%>BL-
zFB&P`ql`*6bz6F=?d`2nUZtu-k%T$o?vPa~KbmZ9-OIHyU#JUa>o1<w?T4AY^$IQv
zsY4FhHi_L7L3J#9_R>-tf%3Bq4P@PbvvbSZ=`CKoSV2*-nB9gLqX_;TtUZbcgPzh-
zBt-as)CRk22z6kiJACCZZ+vfYk5VGnp7i$eI;^uOzS&>A;UvPLxnq(qEz4*{I{V>2
z)2Fuw!n=Kb*LlvIIV2+6)Kc*B>}G+mJ$>u6XPVwkO_k=#hMC+yrDiWJ2nasb-2Bmz
zo#~|m$z{=-Wy3mTKY5Z!FWVKM36~8Y)Qii?+W!6b-*G8U@GJLrcNJ(=xuyYkm%+wm
z$h!hco4W+fSUP9q{1>S^%06mLRy|^-Fl2~9nWfID{j87SkNfxQCvn%AC$Raw)E|na
z!Yh`qoQW7(TwZ?3XWs;fkG-68C2VMs_`!R4@jUOq5`*0C@>q*2Dnc@*>yKwywC}Tj
zit<qc?g7WME4FBIN(y0glNKg0Fwa1!bPN^<oyR{vCzd~aue5yGvV9~FNEMqjm5tcs
z${V$~XmokY`jvRfR;wT5vs*~srk|R(d@~JPv(%iAy#MgQ%vY`dcGJD&o_^iq>>i}2
zr;shpe%uBHLjxztHY#)5v}`WKGY)uU!&XSXas_v0-0T2_C`5e1=t|OKwWMDhNF|80
zWdE&80-|NpddtguVTm<=VI7M=6uar?*pkBQfzi${ZHfys_-i~#rtt}rrk@QAG<*A4
zee&+4g_g5tk4U9=;gNlN`vL@sWii1L5A0tv%bo+%lWSTeQh_3~+~iDPU{dOy`V16(
zo}sp%lrzUU0@MPaxBZJ(5rfI~pfNZSCZX|G(P3%<M=EJ+cifwvh%Lc(jZ60M%;M(G
zWtuO^e5b5fG5q*QhvwSa+9Mq@T8aZ@#R|!%GAXkMm-Sh6v1=;2Q6-x;t9;&0Ix0+k
z`ImId=0bZ1%}n492uB)79vaT-MV?{5PN%_!5KY=h)tzBwIdSgdE31#rLZvTzTno79
z4eYxUbZli=hGMs<x-O^EcSb~1S-iA3tTcsnPL`o$a=$kguT;%0B`$H_=n(wreXcr!
z=~-wOdv99!Er252wQryO97C0Km?h4c0ddIyu2*QDa%y&MD%P2HAEdlu@18v*S*FWs
zq5>n$HGCgDdSoZlK!UB8a3J^j(xIG(^ffXcf*buBEkx&^z(H+&ZN{0c*I_5Mw6rY!
zu3v@1a&vR*H+1NSy$!uEt*#g?k5{%OF2W%%-_PjRsfeQlg<ukm_ylu~X)0*-3=W0!
zgJyk`wJyuM%4u$1c`SWHavV08XAeJF-+SXC2==4vDoNx7jps4bSq@Jne;(Lt0X>jz
zr=+xoBfJt5lPuPFexy4(hxyvJe{Vl<d{VAvx?<tYjSpuH+McBa?0Ft(-wtdNc&Z{l
zPQ8g|H!1e@tbVm(G|2ug#GGBsv!27}OP0U9xsP)&L}7pVEA)#qMnR@a%dW>B*5I7b
ztAbLn1z1{F62;__#=CzzV0;61jT(s_CkLvi2yMV1sk%`o@Ot_~(y4FXc^BTCykStE
z8l?!q)LnJXfr<)aQ`44MuY9lWLA~91^l0}vbLWbr<#YM7cEp+`IbprGZrc{<U(lI5
z^s=3&a#*1CUn89hZ{&~QtJv#&sji;2`na<Ja#_{u2VE&Sd9yb?B{}&H1a{)Z-q-1O
zVp_ZoN}fP5Lh!2>rnTw+Y-`!&`!CnOyam!F9UQ2webV>l@$E_rapvyYy?esy)vNtB
zO629`Nkev0=Gg)jA}IMUvvZJ)qMv7e$+S(Q05yWWNv^rJ<mtrVo39fuzTA!YzK~lo
zSt?Ld-n><>p{;aYW?33j%;fc|ulD+TN_`}_Kf^xvR(SKF#aS<QbrBhd^w1Z@Rc@9y
z+(szZ90hlF!2NR2-`~3U>*5ECTmf|E^^2$Wp-G43P4_XFBq?f_^XjABlkWChZ;O)Y
z-9)xAS!qtu^l8%$>4d#Yy}V<Gp5OQ%OP77A(r|iuR!XR;*d7KTzLJx{vfS=IY<<Fw
z8wVg$X>KG7fwv6-8bVi?ui*96Y#x9CG|bAZ(?bT{95h5#Rd4FlHuYaWcGNl5(Zs}r
z6#pD%RXNS&@=pG(I}hlndbAxyJ#++yycA55+wBJH2z;4w)`~2DbWkCpN7r36^gEj+
zrP61AN^0`vJu<Q5k=TXIrdI<oIbu)uy-9+fTkVau=D4r52Xu*2?+|f*>7B;`WMpAs
zF}jl66=v5~Yy2k%#To*{o8@^>d_|R&k5lslWo2X%Gc&uQSLzxVNK*{jj?ga%Wo%6o
z5Uw}<s$0y44Kq;H-J7&<iKF9LzQ&WRtRHWOtp};s`P`8z%m~?Gw=CbNUOGx`Sj(Gc
z_4V~k7ikMxSC-E_J)y<7Z{La#3a}&H5wzxlJ1qm(b{w?*K)6(9+L@ctg|CI%fgUIV
z;m{4_Ol+*>dKFF0?nq#WNZS$;v`g~#x9uN^U$|#XOpKc5TxAuNNo4*JAaZl-MF6sf
zz1K^I%&Hzcw_m6EJe$x*A7P<aZ^=kZ^e}FiBYBs7xz{<JFexc1uMHQ~m#L?Wycra<
z>uJuxyT$#+jy-PN0iM%fd`GNr4$5OMFsb5lR;!C_5P(pT$-FXL@e}%Wy8ol_Rh63?
z;xvq2NaWTE&h-(_g<1lhdwY9-Lv<a29qrMv5iRhm+ULI_p}n6|^4)0<8|b_q6;;iI
z;o4MXe~RrJ^Vi3l@^qJk5j0WL1uO*LpSEkyn9-yADJZnW=Ra}n+EIeTqjZNYcQ-k?
z6+m|9wQJW5zMQa(v};Rs?d-P`XRaG9-vI^b3I?L&1m|h*-o2Yot3~N+J36;%DPC4m
zw@$0ixvgV*_0m!=FpS{odA(vm_DE_m|Hjii3@tr2I{!UrklOLS5_Y_ArKkJP`ZeZz
zLczVlg1e-6-=qNx5~fRi3V!|p>WyYc!}b)Cb#)?ZK#oOi4Xc(-V3)+g|I-L_FDJb?
zAEM3jxB;*Kk+PXM<iMdr+rSvgSFK0%-`->V`0;`D+IW#RsSoYhvUxMISWh-vYVR6M
zF@~pf=6cTVJkevOYfx@po{)>!wz2MYYFKVMg8Z-=1h1}?YS%3hi_RR?uX|-LbE#-E
zkR5m)M@vAg=A~<0T(%PA^CuTV*dhCPL~G?26!^Xfn#Kxg1f(Cio6*UrBf~2bRGs|~
z?g3Jc*t59BA)7mhSOSfd$kUQpGtlOuot+)EUah@KhY6k!`Nlkc>`BxMP_XZ*ZPkKU
zNAkW0%IYs84aDiVx+1$h6#VlW>(o!2II)5l?E46E@Vts%LRZK~<6__ZjA3`|_9<T`
zjvHq5-yVVZzK}RC(n_0Kn}+^$=U^O8Pf#vh!aF@X*1!MD7&@rU2k0FeVY?%L1QM%d
z!un|Gs7qFK`Ar1O%6QY}Q-PLK-lCSepE6Ybd<Tc!SRDRQk~vFu?}iA^QdvReJ<ba5
zqM%%Xtt81u<JKE1$t<MmCDdkh)bCg;^CHv`f)$m+px|*s99(b-@YNt%zf+r*2rVto
z)p4SuN*uQF9olX0Q=0GUjmg>`5Qa+PWo1UYgcfv#TX6U;t-XRx^R!ft?nSf`&QGtm
ztvybk?uQFTN#@Y0Q~UY#ounkssvn9#YG@lNKjrsz?mEJdMnTsC%IQPXe#VKzpU)?W
zy+cg|x<&-tBgkA3++KNC#b)z(DqSdaDp4@@OZn#j-R#(mhBm>fP!QZBU2ZTwyBM{k
zxe^FJMZsqy;SCr)I`(*^!t3vXR}?J=!Zah{VJN4PFPU5DB#k=&u}7)*El!(mQ6vtg
z_+Ji8RhX);KS58gRY|wz)h;Vm=+2+t4+oYP%Z&m#!58x1x4=T;)AHiW`sN!KzkRy{
zq>>u#bM4BNPP}4qeqKV$qYslnwX&)%1`1uE`F8le>T+n`D;|?v_=QFB&5xBy+v$G!
zHLMyw&rasli4%|BZEe=eRZ7}(B4_1b*$p*sr<1S_f80!>Iw#gcv{(rHG8hERk!DHX
z73Eb&j|2pC05J${4XH|`AIMZYNe?DYo7PUqcVysb4v*{eWs6<n46bz{I1UP$+@imP
zt8E3TNbAm2`M*205vn0T+`@R#cK1^xjl0OU5(^4`?$wM2y3m+LF3cuj4{A+h<k%2=
zgZrmoBhRQ>-Ae(L8$>}`Mbz<Tuk^#FL>CFMK}wz-^qmb64h7owjFIK?i0If@x$^RI
zYPzMU1xPE;$6jdeHervD?LT~&?e{V>)1)lzEnq_~eLT98UX@|Hdy<*~BQkT^3HzU^
z-P@WvukUZ5rj!!)_@$SMRm+moN$4vID(-YwrFKTn`HKZ56zN4IXS!>v=8=yAujVf+
zc~C7xc2>$=md0?%Dux0`ffQG`xZDxxfz3)ba;j16WU|!WLkfzv90=Ek0~2O>qeq+o
zPwD^qm;7j>$(&($DXu`A63M0bvThB(wBazG#ICdrT)zKDPeiXh#_q6$9DyZsD?+BR
zm|8ZU;F&Tl{3Zik4#hd_kB=W4oz?$!FFShw^y<}%9OQOVlGMxqEx4d$YK^YoUCthL
zR2ipXM~*%Z+$0a@oDu#x$eqDi%Y)Q-Ts!yeYhU^DR=AP;sdS6=EiyBNHH2jv`0E!-
z&ajc&D=+toZwCTAVXT!Yo0xd<R;J;og6|;c9%-BLQDO*J8@m(2<J>4&!H$j`|EWwP
z5dq@$ri8mdZQwrs+enw&=eAE(*viGIsjJ_9<MQw||M5169Weu9dLf}Pbe>!N92=WH
z6xlvSnVYK6h1(!K@ysXxxXgW>2Ke9EteAVFTyN@{uF{^CXs&lwvUiC?iL5HqNb6Dk
zUpK6bn*)I)hfp0>X=*ydZ~AuAmEPrIXcaela;2;lMF+_oR`%XKMlR{}_|*9HZ!tC#
zr>5C1UHTW;hK^*CZ&%|je3J^g;QC16G!+j?K|w)x?%dv5eL7--Bep?<Y`b{z?}}ap
z%@T32MJz8E%S-Op)*r(D!}17C`}ppiuqi74cyaXMn>)$LJF0%*ZPjykzcDL<dSfpO
z6GGl8V=YPYhiTND%E`v(F6ml@#t}G7VVXi0c(xJ0X3xF0{N$Z6AU<J}g|=JxW@0SQ
zmQUpVDgX3)l93@qO9p%it9$aQ&6Py#PhY=IL16n_TPws<i7r5a%u`r~fm)||^g>$;
z9uuTC`KHt6A62bkNP<n@vyE0%WDh-}J^=s!v71%2q3gzav`oEF&SN0q+V0zDU*KG{
zF<Q|tu0656)57`lJ>Z~($rU@?1Wq`rMpjTc9!lkwBKMD~rQ2w%c7-1faEzlLEo1|R
zE?3n+H9F?!H&|vMe#+|_oA7M-#+ZcciisIjV)KkF#jDazwoOZy+E8E554R5O>4FMZ
z|L{^sNC`rYmy6PnAromIJ}bgq=hRc1)`6Gj#LYUhw>Q$JXb*lT<dgC$ShuD5v7L46
zLh^w(>>$imW`(ICc6Y16n0G)8guN7EL64VbaOZT4`aY*kU8-oQ>Gg^l*zE`ck%!wO
z5az&+!-e&u<yo*>%qW>lj+~wBqZG=FhD6OgiH!mM02!CNZQo55&R0ALtIHGH7>}8(
zInUOS?skF!CEeZ%y$J8qit7a22*wad(xZD9<yRFIdr8qt1Vh$se>-XED^Oc{L)#i;
z;-`s@*1)oO+Gx(EO*)*n$!?o2gv{tQa!KOo*02S7y#hzfjpKAp{dN|+irTqvV9OEp
zzr1(vUcfF4K2Z1NgSDr1Uo1fLA!dZhqeNaJ5G07=h?Chh@=Jp1Y3MuFMTFYs-Pm0O
zD-YuWKT5WE^0Os&C(f^Sz+V;X7_X;04sP$1yF_YOU0A}VpYc{DxQa%SuE1dhmN14V
z)ke+i5xNw|&;;69dNzPIcH;JVU0OPjS!-{fqk+I3o{c}%4L)APH;-m5p3vP@s57E)
zfMZc40lrvakPdI(rMmv+^Ka7!9MtXCDG`S4_U+rlM~zyvrc#*l(577W4^vUu9u=id
zdD#8bA2<&TE}tDbWXP;bL-R|a?B$Z668((b0WSj8x?g+>T`HFp6>$nz)q#wS%i!NX
zahsCIh_eR#VG`8dm!p*#iVxonxLwNO*b$#j8_zq^79&^1%^~>`DGNAOzz&*m2yaa6
zisI&kyf&>{w+6Q)a?z9;nC9Nto+V=zxm8FNW5@P{Yx{>&Tv%#&lxLxW%rcbs9@sPd
zgIQhlmw1KkS#zl9od_93OBI<t6%@sY3f{A!H#c(3iGl$%O*?Ppjn-r=*7lWuIXgP;
z!L~ib)T<x)(gX^|Ma~0%afZthaBlm={&aucg_A01^>Tpq`{xlY@F8++Tv{Pk6x-q{
z{?qKYmAO%Wa~6g_dAVfwq~=(4u_cWN*v#v{QSoW7^Kp+r5ryw(@Sn=kz8D;~DG2uB
zsp?fNy*hLq^60FF)`=IdAK`gO0SWZREG@h-J9t18TN?X<G~PZTFq^Mtp3me;-(q*2
zzUY?Qk*P~!>;hrm80R&NF%3K7<LkSBu*6Z@<n9-`#E@m@Opar<#a9-*NcWPLLAx6q
zpu(UdI*Ak?1E$WW2;^#%ZF^k$&?4!n9~P&6Nt-2mVYB6PtM<BW`YWPdtf+pi|Ciiw
z357>ta-=w5Ij>P&ZHvI4#<9AaD8(~KxtE;05OFc}0^*29Pt1Um1{}2cvGClk!5zt!
z0s8ZKhQh+awNTw+L@1@{L*nDd9dKovJXmxe&-zw!ut!HGD&jXpI!k$xY(>IwB{K33
zC#;M&4YakDH`cS6d{r&m!s0E>^?CY(=bB7hI_$mp-1Fqm8%Jc0lEo7P%VyBskD$~e
zZQep!)JR|ZNtpw%UW3J#V$gw?AR7p;>{T<VqYphPykK3VIBtoXw0`|qfnO0d;Sl;j
zuC@N;kmSnBLTK4fvJ!<@sAy_lB)c~WU}ov3S4b6DkVSYOR^EC408;u6)aqzrjSBS{
zpSV3vn9H)gZcdt>`}qP*YoAl%ol!-Op|a?oHvLbbT(%Zk4M<h_=f>P%lfO@lU9)HX
z@e%jzG<;N+zRv;_y`I*pRV$HkvY&=6(|&?>n5`L6FV6u0l)^H-2N!9=otHJ_YAe>R
z-2s0RQga>42ttu`cY0fB&-UBQ*1`8|T7K3ALO?E^X?hlcnh#o;e*J3G*)VUCY0UZr
zHBQ4$(w<)3a_Qy!aOp!MKW?l+yVHg$R70IH%jIEM(pVJ|Y<9tRHE1=`o1GUfyzPFg
ztHI63RAKGfwaeqyty>23`tC_uNDY?+UhK(}C&Dg?ePJ5}Q^?X8v($q^6DgJ1f?&QS
zrKCS6Duu%;ncgq~{ix6&Lx`pBinA5L>hz`6ZCVi4#BY=>#=YcS_zyj6cDPblDQ-HG
zCuO}gFzUjonjMhszg<Gn*2Fn;<b^*DBw0*&u=i$aPBV^oPnto@@ptN!i>kJZEVYDC
z<TGZ5l8j&ss7Sl?x!ZV__w&5GD8E6l_&r78lW?E0$b>tFzG4J)Avy;H1hDG2rM^W%
zZ!K!7I4up@UFHr6qmt9!;LyvLJNN7<y+v1oeaH2T=J@faR$4cgT#1gJOvA_w&li})
zP&CVWn;2Tes~5E1LDowR4>!!<RAVx@c_uYh*gDl!KNW(TN&TctL42YL#9`RV3j&nV
zO};gc%w^vx^~D`%fSSJk*5|ETn~U%b@zWZcIpR-X3K(G<zxL{->1`Fi@vi9??<;m@
zuZ8EjAkY|i4%FI73cwZPHtaCuQ??N*y#2D002nRd{dn^1nf)7gLkA}(TO`n9V^&?b
z69KcHWrbQfOKd-qo(S4Th!_CbvJD?A*0=c!7tSgu+qjCiU9fD~TuO7`v<wgdpTBr9
zfVG3}+U!$V!l5B}xoVbk$%GHlRSE(v^~SKls;WCC4Y*Bh`F5@#N~eLO3jgDPuN(Sr
z(e=Q_84<bA=iwV+V|M%U-fyDRq9T(9n^7<9A=oU!y7iVFJlD;nRj-f(eyXtxt?X12
zE^djW^2S$H?PbD-qg6i=FAk_-(_DVCupP9xTT>a*Yl&o-&5Z*wkCZ-s-*&gy1MP_g
zDacJ8YKZbN{j}37wtVI5x)dy$6*+DpCShVqZrhQxUVUoXW<e6W8ChjIwN>|fmyncF
z^>s;g@WeKQJ?|DL-np~&sX@D0H9rXppT2xKlItJ7df0c0HsFxwyd6W4i^#j<`{BBM
zc^a+aG|p&Y6XmEU#lu`CLallI2lGjIDiO<4&<+j;1gJ(CDRkT0Smve~Q;koDi;%Ty
zHhaz-FSMhmNS}4M0-rN@W|s20nwlEg_y4U|bIl>M6|Eo)Qo6&~KYxDAxPzeZ%ulCY
zPv5RWGZ%yI*P+rsfvK-LKHFp5fh6Ckd`3KBOKbh-UB1)%WfEq~cdB%1a|LRZiI@AT
z^3N|a{&p>o3Udk7ATYP7@)j<66YQ_gK_thh)xN##bk9!aAo7;2TD_t)>4?*N+J9Ik
zybu+xl2cz4h1k?c;@kpaacLqs{!RuYUXL^pn!K3UGU*xaqXQT(*^GAf_GbFyv~Wgz
ztE&^j15OOG`ANWbQJPg%GKI3C1vD7o>yHmfnp>1P#D)@HhoNWG$VHG^rpCE;Q$7cp
zFbLmdcW#Xd)F*b#!``JXabE2Ts$&KQwaNUlkk@)ys5Pnz?v9R^GUiQDJ*u3uD4`mn
zJmSvy8g5-^+Dyj|p0|2o@YqJfD&`P$oZ>CNWzvAbuK8fqW|GRvO4&-a!QJ*2<6V|y
zwcc*3%w;cqex(_pf?Aq}SNlB$r$O!y9Wx(h=4$_b&;{B1<j45b`o?fNosH=V?`L`e
z(p2ydqQ|zVdk~*Ph$lzb!J-LTYD2byx_^f16#L5MbtjCJwxeZm_NJ8o0DfD<-gm^1
zarw}2dQXq@v^8+l6xos1_{_A87;GOZ=_o7jCAZRBHcC>&Qt~Qqj-yWyOT9GRT{k-a
z@d7MY+89yH3Y5(*zn`OD{BRI1&^stTVh#WJoH<ian4%UM4$`+r>4y*dD8cQA)^c>%
zJW=LIOJ$+iy?*=l6&w6{%(7l^2NDT+&w|n(o$q*1Hi<BFkmQFyfIe-(qh&ho;F6HT
z+=N{!47Blpzs3*SZ`FxO1Geb)Q;J%*Y_f`q%95@+LZ4CK_6leOrAAm1DmcVe6N`wY
zXm8cfZ?d9zan#c15-^siFOye3I2Coeg~003b<<v$Dn+_bu%)ZeB_cBRF*U`642!V=
z4js4_B~{f$pL<?JVDNGgaPgem1^?P+iA<3mA80GK4hz=wg}JZ0w#+XFpa)_9Z&(^3
zn22(0a_k+*;|QVW$IqvtAQ4}v(1gfx^x|h-(*m(>qajFj`qoZIs_NWDi}d)+ei+YB
zju<|C{!erB$;@J%pwPw4?Z)btH#ptVFfB$ONhvX_PZmX23np@~1J?B@1Oo-MkZ_0n
zQ}<j~6y=qWX739Vda=oVoqcW<nOgumW;yIE)gF|43Z~NK+7ND=xMbxTQ64?u;MCw}
z=hy~~bbnpk9M$a;&tymyqFH^eEbuq(U}$m6e6{9{0YD(RXuCLqwXEB%{s!TH(-T2k
zSj4Ell}ISpdqO8DfPwDVMNsL2w{hRN@s{OQXX>_bX%r(wi!RKOB3Q8ayAf@LwVe`X
zwD+~14Ipx*eGD7E`AD<`5P>J83OcAw|4Zj669i|<V~zw(+@mLqpgTo<Fhu8MvXxZn
zCHO<{L9LKc56k(+`<;QZhixb+8R**gbr-&#TK9&*XK9>*g1vmw{nb*#dr8?`2=P!?
zQ<E#zb?l(GZxX(MDvs|GPzB{P<5;r-jp4+#sGpXMT@2roo}=RsNJhcTV;IFvdpA9O
ze^uo^mMz~Y4%?C5wR+!+I8vFFxInN0(8*a>7W^aFP2N|mtU0=ervQruk{6~J&?=2d
zU`9LbO}hW^VGDpC%$rD9vTGPA*8{hV{TE%;%e*Il^$*F+Z!)j))mjHAd}u*Ctp>P;
z9<mO(L7pRqcA;b{dCY<1+k8)+Ws2W+JgTp77g3@3JYj>T;q>W<+kt8&q~xbVLZ-c(
z)OhI{UIZejeq&nvAr+W?n@NQksx?yB(J?b-&g_Wk5m|8En(-QZ(bxW?R=%PtyOpTg
z1$a(^<G?rK4S8^GbHlG8{;n(lAvAKUh@pfzIH3?%XMBPswADGBYko<KGjC!3fac#!
z=Y+psXF)zOpGfAl%4qGj=q@ZMyAv&f$5;;j)cn+u9W#%QY)gv+4$>)*3Ye0&GoC#o
z(plW{1L28ad!pSIY`4-4G!r}v5h|J}#8NX#*MknYXD(G<6s|6J&F8VT^E$IqCV}{o
z7_gT$o<M^Kw;eX`=5`KR=uyGckQ@Zm#z9p|j~h2GPWm!wCa{G1-(gNQ=``FaZm#|*
zc({|T?OnG`gO&|}=fEs<cXaDntFGL<9C`Dm4#(Td+Hx~sSqI8zJ*g}M!gYiTFkdT;
zUtV0f_=m<n<V~Vy14P7Wu3Pd6@{kgMe*$a9jvjp)hzn^&iqaw`{Y`19E!K5GnuM$Z
zrnF;+>)|5FAJKe^1V7tC`%SRbFav`(9@Wa!xpRKef@M-4OP4NNcJSD-HrPxlDyL1O
zAR?296lNNVzb`>tN1eB&m6b^FMCi$S_KaeTp`u0!GJFN)G?<4ihgBY-bYBehJ3o2Z
zZ0UCG1SZL@@83&KPU%_Zv9z?xscE-^5|z8`?$oQ-Uf_5!Yi{(0FDld~2Tse1zIs()
zY@A4E@QsR^cxu?Z+2#|KWFo6uHr)=c<^I>S=g;Nv0i%!KCe><9!6FxT$(`<5rJ{h4
z6*&bXh@Wkfe8onke1@{L#PWPmT$z#Kv%wvjk9Nr3903u>TL*74h+e|}5;Z6kB!B^K
zjt;{Mh$D0XW=g^5V4J6xk*Glx$`LLV;q2oX;wMh}rvE>WOBh5rV|EA+qCyuzCI|x@
zrY+XvaN3voK2G4SU^D9`mQ(!tBzqkIEz~1=oOxi~f$}q1(uH(H6FxcnJ=X&_Y=S*V
zq{Rdq`_QOw<|ZbBJf-AUED6DhiHC))J#}bP9Yf=~sg5SKZ6U$rB|<0nFwAEiY2O||
zzo;xmzoSRU_QtTOYi!(EW$4h(GBT5r3Y?GKQFd$iR?<<NqmrW1($=g;NIVas;DCcg
z9M7XS{TQvKr6tN*IacP=`!3@f+pP$CQB-C!l4>ij5}pezfN~5t-H`6}`{pQ${D4oE
z?K9KBz(?ot{rice^+V)Cun)rNWa!-$>&!S9q+$zoA<Pd5#myw>N|PbBG#2Y!+KMC&
z6Wm+^S7LTyMLP+MBG!*>)MW4#1Z4|R9hkq8j!=o{iX&FNHN<=^k8XV^?2BUKb~-;+
zxQLPLd^h}nHCzd^;b%*ZB8rP#T)zxze9`v7p7ZQc3wuk3)5+FPaHp*$RJ|?ow58U-
z6Jx@h>uW_#x!Ficn#3ltl<m>uLH!sSFjf8fxgk3pVOqS?>3h;PR3yV|=_<*jE-h5)
zvRfh{N%RefqW1;<^nGWk6cMkzbBUED;2_{z*85<i2(|^vA9>?Z&OKC{j3bMFUt5s4
z3$XA5>HoolO=7hTkq6HYk|ZKrydE3QIsCuxiYs_N>cF#;t$y!i7n9h;>llt48uJ)R
zZ6|RsKw`FM72-r|*|KFnidGXZp8V0Y;i@U*KyW)aMo&q`pzp=NK;PVNA6C&Oa4T@t
zsjhSN=Jy4zs}I}PH&o4Bl+kXGZa<GUZIrglwk&Hi{`i?m&wXvAI<K5OL1v{zs&pIG
zc!NVOhX-tx>uh^iA}zhWi%h2pod+azZPRMvL}`Z_lCB!Xi9Of(=&OCq8FOM)`lH%8
ztEOwcsyeixlAc8}!|FP?IX$}+2pwGe@#Q>@^f3Vu*U=|R9*g!-5|_1aQf0+tJ`Rzz
z8jZM(wvX@L{f8zhXYdEic~ZqojQ%RfyzKs+Ir5+*N9-q&R+ne@vQhyTof19bHvg(Q
zb>XkJymItb%(5fq6)(5JB;dp{yYQtYl0enLkG*ePV*=z{JanSMn-a&11od@pZujws
zb$h7&CYitX_@@GX0GmoU=u^Hz&=h_94ujvT`}Xa%r8ON_fPjzh4W^Nz(TV(3i5u{M
z7{i999TQ!;S1ci4sDB@o{$3mNt;C>H%nQ+qk{{i+W<|Yki2rA>pORi1(Z&sV^1!m`
zixypofGM~IF}dn}UBj=J4VmDhH)UlGFHZ3C*xerViIaE~GoAZ>&b~r~Bwu#6Z5oSP
z^t@s<Up`&J<rEF8UNh+~$e)SQrj}852N^64Q`+sp2L7WY)&b%Ll2JXn)Rtytuq?-3
zbmjM&Z<LEpG9nne%t&bbq<i;dQgwmu*+`(orHh&`-J^^OMMulTg4*}FCY(mI&^*F6
zBPtwWp4^5n@0gVo^>qp_QSz;p{WQuUV-gYlIHP&QbW_R}Mfca#`}dWebfT_Rbm)D?
z5h&(V(u3;)H~1OWg66g2_8r&^xmW$=%j4RaeropBrlmZekNbIgMviYP{wgFBQDUej
zy;nnp=M2JrFy?SdEvUvk5a3>|FZyU+niCg^Ycle~s*>dPqVpT$fM|GIah2I8R5i(k
z^W|(vSBkwvm)FE*LQ45POlEzI29!badIAS_^|YAmygX~6v;xc0<hfU;E$>?-R=j?F
z9tubq=758;r}p}*F#d;W(;GPLsOS@_w~Q<QT(qs@5bBrk>&34u*+CnVAW?s>qw_25
zC#x@<I2jCfa9R8I7kQb)<6NA3UF43xdiaDpx7C|G*}kp&$3^gBV>y_w?`8@}@T!@E
zFTsI{c2kHJ4xF#Yu{@9h9S9smwI`%Py2&llg9N&NiorLb<`oHE+&9T-8Bu5hAfp_A
zgvs|&j#;}_u$&GXNWB>36m2CsF^CaIcmg4AkHVh@p^sK@2Ityzmy-(;-EWnYrh;xQ
z_*&9xVo`g{x|5qbn`-FmYb*1EN$TaDY!@!1QfIKU^GEp#k_CnqtE;E*@k*l%$F(NE
zpTd(fMU1JXvGouN7&si`5mLxHyn1PXYaT3okdsirdrL-lVyhAN9v9m3Z-?7>u6=Sj
zY2iWST;5l@VyJjc;_6ZU(}BK^tE_i#)<Efy-|rzPQtnFbd$yZl%E?FKbw#6iu33DS
znl*G%v~{^Wo9_GEWtVVUc0|7HEuF@%lSfRrJV~rS?|r{_=n8-4Q<<Zx#PxY98pd$-
zhLk)V4i9(sj^46m%lkrJ?76jZUrLsjR91$;iWD|p@$0tDhKbLX`G>+!CLg3#)mpQ}
zS7|lB;~1TqmzS4C?VE0uZX$ygB$A{@qN_afk)~loSa(U7vT+Xu*rtj8pg3@eDSjgc
za32T7KIqx_w(4TGLBQRD8^E+oTGJYS;K+Nw|MztpJ^E2PzTqi5ml<;hZ0DjF(u<R*
zZx>;AYjX-u4b9k`2A_}m$Vw#7do&y75>0Rv!z{>Ir7G7DRP{4B-=y=!<tbfeO#2x+
zBtGBp7hAA-r%wYcFx6xqowv!sF`b}e@?D%P{CMy3=pHAUL5fm5N>ZDD#cq89w@NTA
zr~QW0bWh@OXMR+!*n^WNO?qwVN(r~^PbR(xyVq6cX18kD@*V9uUmv5xrlDTq-Z^#k
z_2qpVzU>^Gz(hk;{ros_1S%zq1&6Tny5cx>ZF8Jx6LA^Kb76%g4_h^Iyr-COAt^dQ
zb3G#^e>Lh_4L`PJcPSt4eFJox!Lcg3yrK!}@^pO8gOz(}P*7zKIiw(FUA=!N_Ke3u
zk^2Z|1Uk-f+qoRjBEkUQ=jrI^jL9}<UKB8OkvF&A&Lt5WLP)a~t(E}v;<Awx9O(?@
zbDs4QL<YOayYc*2@*vt@LX!T{hja4vovR)c=juVZUBNx(RZ21)rFC;I-LJ%OB<4`i
zlFxWO(@=Ah8rR8igm$~{4TpX3rYhQ=q(vb{jknLkxx0~;qk}t1jN*@V`SfDxD1t%S
zw~o$elAjTFL+CH)vSy8$mDP)r&hOucVy$ujQ;elVPPDe>a{NYg5V!2~_U|x1VlF_*
z{ag9+T5d)iwLa;3YluO@+=@Wl#{Oa*CT$&jEB*%+QKE;u{w(kr^S#E3cEdRpV%AnD
zhT=zZ;v|<CN#lQbJ0?FZgp+Rxw1|kpiG_x_x39a`x!7uB6P$fHTWhYE+G(2rf32?9
zxR?$%=RS&+y_#Y*`3mZz=*)bU)}IW_Ts|f{#vyY@uY_h2gWe|13nA=m3utVm68>g&
zSQw2$8slh>bK>(Q23r89qBWzq<sJ*u4-f1K`m_%%C@A<CJjK9ZPt)so-gk%Fw+=_b
z>ilGpo!$N1G0w}J^J5o;Vh321tkn2s#}-166BH6E_T6=^<JRu0Wk6^kU(L?C;=_l_
z@ZS|Qg&nzuPTaQYibczwp7kWhP!w~`L~qHe<4Hb02NlEE_p0Esj*l=1K0tUD(UbH(
z-sO#mzn^Jo8NxGy0*(CYCO+4woEZwDi7lt)`hf5{S{Q$36vJ!F8r<pS^qqfLHToZk
zr26h*4^1Vd`)%CtSA;JPST|^94uv)MEs<vZM;PqJ?i2<Q<v>|yZnjt7@isuHBYXEw
z>pVjofD-Q{$LP0pdBJtqODDv(lMMGA+z?$(-xer9Mg8@)&n%u%s!z+WX{no9e<WiZ
zNt3j5$xmApK6+#*)w;D4Pb_&ADT)P><Qhs=01;Dt3O9XU_8~vcga!hsD_uv54=O68
z(V-)Ek`ZOoy{C*6L%np|EzxAw7j0?n^1h5aNqF<q9wJG+?bqc~{rB%q<i*EzHpa6}
z*b)Ob(jfVg^|i|0(by}+6mSi=w~{zmqtuj?6fa|gP%yse;twbgvsPd(0^W=kg^r{j
zGf*Y2QZEfNJ_H#0(z`2rQKDP+g=p=_zGz%1@_sQ=t6`p#$HW6h&F0TPEl><^aP9({
zg^R1J1-Z2E!Grzv9dU7s2F+2)N)gm~4AaLJcnILQIc4^BzEXL?^=ojugY;?FZF4Z4
zlTG}bb{jFYXwBNS=FIt6X}V3J#Bz%@Sj?{Fb)S(q!NsMUhdc`%vF9Z4Q|lR=-n3bj
zn*L6VhgWa_M@b!TJP?d-oYdK9CC1|E>gsxL1{3acq7ko;?J}~0$ox<85~FIr^}9l7
zn<K2bVhjHGRt5aKel8ia7)+ZfLu*8JO1X14X#VrSH25pklz6uKG#}E`RiV>J9uzoU
z(R&(qW>N;M|5f4zO&15JjKB8q@+ca?o^r3=eNv~h<n(Zv)VcATTW83LD`>E9Fk^-}
zL)C=Bj$fDN;Eog?T|%K+aAQqG3CNNsMXzgPVl=Zgt~(Ws|5epdKjY!BTPNOJ3%~Y|
zzP4zqiuw>w!%l4ZeFgXgu833p!|XE?r9@kFai}~$I#_e|!`;;Ul{HKlqR%D|%(2-p
zU5wPDV(By6atTR*n9Oq|9xON)t5PORRVW-m8QUluI6Md<dG4)Eb3qW9C&sMe`4b1}
zRQRE4W#dzue4a|Lu{2GG@mO^ki~Pe(O*`uPm0>Q`lUqn+x_b8cG<GaZj2LSOgM1@k
zefePV@Hj_37$A2Bg)TL>?(O)k3;|xkxrwTK2%KsAJ}bc=xFfD^a;=y~B$2FTt-pHW
ze?cON8(1`S0C+5itdV%4BBm+Tf4$Yv*bSH>Z!wxtA(&;khsl;0q-yC#Zy%>WH_qkF
zNcV3mVD8Onzw)JCuJL_aca@b5MB!RG?^f+}6a9D~CsE+!vdaKV0JPC1=a>$X$!Ui@
zzEYQ-`ekWu{^&7d9#F*2dknFT2?a+yk_)zUS-V!uPRgP@v6cb#*elQV+4$L5^b=lB
zTj)2%#b+2rTP6k_3vh$ErXY6ZKkP?$&&Jcn=(U(;g@NI9oDN`~GiOXTvdhd{zv`9y
z50f0bci7_^kA?;?>gRmP?!v)VHtAY5hQaMOU^Tcz?;Bd<z7w6OQ7vR?`i&uLFsEP8
zs+B7rWcDy<{IW7Tz^wj-HK0ENlMl_sm#%k~teBKkxod}*mL<|JF%OCyBA8_SOP^pP
zzO4h?X8DWgkbsR}W;05~LOdl>hYL{4qEY^rK8;VPs7SOk7H!a}3d_yr6gxS7vkeF?
zp3<pR`9ZG<wE%)nmCZeN8@6?WN*c=W2~olM@#goiDtGb;S$X+T#+vH-tfqExBZGSC
zIoiFBGoy7fQmq&?BRa`*@K5&<xkXXY{AHL+SWxP=kHE?~7UUj#cI`4kyAiXCJv=0w
z_fy6B2KD(~n@|l*p3pQqGUltC#6#Zl(UNM`&RlYV3~rpFzBoPDpfO8x&x-wmGuc=G
z5G>Xkd5$b8V|JTD8S%yx>oo?$(X<3K!#ZHW%HLN=<4qG0MQyt|ah=bg@J6DMP-!SS
zJUeEb-wirj_VH=s(*O^fTzFqJow1f^R*VKdjj-UzHW<_ANae?m;Q}o2%xQ3M$}eT<
zFi86jGn_6=xDb;>`66RDL58qia7K@^HN8$g`Gj4uhRNv=Y15k~j@A-EAA+-4v{1tt
zgx1<DlbK?I#wDACcsv&uH~>!8xHX<89mHUG&f!Vk8c2D`>v5aVO>IL=G-V>?bUmYl
zCaq^@$@|p99<H>^-Lr3>@9I@kmfKWrcZjgO3VHF2p$M#i`X=b4?-LRdB31_J;WQuI
z4hE|e8D)QUb=j<aeYCA0TwQO#4upw?GwjBvtt#F20!Yylltg!CF;W;2F^HkLQ+c?K
z9QeI;8n06_`6Gj4xTE?v!|DiCE|+(Ed5yg3`IkiT<lreI-C3u};Dh>gH^b;dnOx84
zjR)0Mumbzm%(%5qxh)ybS#H(hwytze*|&ygCZZNc;xy7IAG>I)+EnH6cW}Z`WWJn9
z=cs^RLZ3a?_N1QtC@rHHv|Zq^hI#Ezj~rp&`s0UY??2qO4|A^kvDx_+h*Kq;UhEr_
z>seJ&#~$Cj+3;(Fn0Deb60flK&(E3CZQ3BJ93mAVRsIalUqY}I`3so%GfT1{_9j4<
zdw*TjnSk%bq$3VQUwDQr>@FKNsx+=5=>oxA@PQ5-;bXE%=CMWcmu9m>5EPG13<Q5f
zsxF?HrnYv0C1o5WUE^lv6l|&?Q@yGZPD<6o$<_61^BGIV1EP;8h<U5Cw_2CIT`Vkm
zK%PLlF4FSb7@G8klfdLz7?`!c=C7(}E{%-5{L=Sd8WHa4s~i=|y-rB_wZ0(#R0w3Y
zC-ZKXUfavl$)+MZwc3ijA_4<=y>|K{=WA;<fn%kXAkuOAvo{agY<9u02QM?=I56>)
zmVMMq%-Z8eceh<?2a4^!JA$ix&V#qg2}QHLEo1#jSeyuI$t65)`*lCFr{|sbpZ7p1
z7&%gGD)9xU%=%$Q8-9g1WvT&S9x=?<(EoQ}$u9s_kHo(rzkffR?xhGFW(Gj8ov=+u
zXK|vNOr)h@u50T??1fLoNDSiO@-LC<X@7q5j}_@DWA|1}3G!na5pOP<q{q8eojvbA
z&V-ieFc#mvYP-(VT9ABfZ54xV9O3i@cw^%oSysTji@){7gvfyU__#PfwZ>#ka=(x-
zSNq`aQ?KKGu^q%_S`}KyKg9$wrXikz+wvIGEZpDUpN3awAib0a4*Z95xN?Swhnk0g
zuEL-$7@ejM!H|jdWnaOiYZx1*(*a_3!1bTQ(rGMxe8h#hKPu)ms5K@H3Dv2}>t7$7
z0%s8nvg06}imD+x%`50bL0_r4*Z3fcj*#-b{2YL>Nsvlq8=H+DWYXM5U;3}Vve;11
z=sDC|d%bB!T0uOFW^RD8H6!5!&SZ%ultecXLO#p;tTGaFb*51ZEynhGk8h_hTFVpL
z=55bx++rRlkZ;VetmV)H3*=>Jn1uyIoMwyTR{kgeuo{R|%+I#@iuo6$ZuppTZv=9N
z1j)u>A5Dw2ace8ARJzr^d-@M$6gfPEgCEwZD~`$fDaH~9Lpar^Z~k=->dc}bkDTxK
zi~yB~>Gu{!1mRaX4h1MCiH(~fC{$(yr1E>(a0pBsY44b*T=3)g1ajysx{r(b)&_=#
zrj#<Ur{QH@fB0~+!a36591qY52ZTW0V3@-vPN)Eh$mLyveh;~ocx+g>K5@f1#0k=g
zhk1F|hrhfqDZ)}k;ERNm#!r?g-V^AIbV3=2Pu_8`t6T-EcnCRgo)tYy89k|oN;8UF
z>x*&FZ@NVyshrE?ExP^3jq^@?^Z@@(WXqeb!W7L*ANRjy-~RBZ6YYP0fRQ17yTQYU
zKlyx<{Wl<A%AoDqPcQt^7KwP~<KuG}bRY6;2q7r$`t_RbjhvID!{db!?_fTj;_Y3f
zb#{Ue8)FDu6&cN2OKcLC5mSzh86+7ugrf)Rw3y8P3qj_j*1B07{p;c@nXxd;YvmqU
zumJwc*`SciG%KiO_@=$}_xl6)2a#{EJ@!%+eJAaC<E5_9g@kg<4)x>S7#aHY{FI!M
z(wGt9wAG$F??sD33WYJ6%p$*jXz~-U#A?3rbU(GpVu}k#I!tT&fS0-cB!IL9RZ>@v
zN=&Hk`9<VC{M<k3(99VKAi@v=`0;0vSyytGijfm+g(J)M!MXwZc#KS7**?x@zqhwJ
zq4e3snSDWEGG)sP1vJAAs1aStVmJH%)z6Q#=*X-AkMWb1*kiH_HVuqr*OtakxC}HG
zQ?4$VUv_+P!sDEpVo}<oM`Gf}z7^NV`vieRxuqCW)}vu-%DsE<#DM^rE{JLU47?Pd
z83A!@gkFTkrXSx_ikIu^dLTMMc8m>X2ULIl{HXe90FM#gOHf0CX8(Aj#+#CGMg4j1
zRi0!>XIV+za(_VIFtc3uX619glcGR~Cj{+0YJnJIO4|Kg42&Ta9Xl^aw2mEfvk%bu
z*3S>l$H%U5oS@gD-=XG(;LsA4TvYfa+!MNf9a>#8{FC+V)A%Uq)vB?s+K$vXgtYtk
z=#^)=r$G?r<oyw=e*IVn9eLM{<_vbzPmCtt)5voIwo(2dLXT9dR*mdW=}Fg-n|`?I
zXCM-a!8aj9L{FVt3IcSqF*O3kTnWT%9UKOJ866uhTqcZ+lT5fY?B(d27D%R!43%>D
zDVeg!An`l2P0tFBk;FExs{j*S#b@K2GNJ2`3}fa2?S3O>L`2f6#`dQewZYJ$N3I?B
zCY{wRbo)mr0$hlKK5lLCBn<t9ctA?OoFIOIVN365ToISe`V65wC@#AIeRtiZ76-;<
zuKiS)L7C9filw8hkDO~G266!Prb9T2v%Z#Z<}W@Lg2PsO<*R$mYu7Ub+snfhDY0dv
zULrX?6`!9n`xS;Yww+03mf$IEf9AZr`J;AeZk}22tR&0L-#=Vi<TdMk{wB#f(7=}U
zb>F|gjBcc2xylqGs?Flk2B(^waSE^s6==mi=TY}m7KayZ>hOW6ktP@Td?j4j!i9u0
z*F#q=E459Stuitj$R-u=`{X#S@QryPpJ~;`=y#pG<9YMM{E$fZk{{tGPM#EVHfT=p
zAZtvs4Z{_S&=n%9h8fe|2K$g#4ylA~%Nsa`A9VS2AuzB<1%XFhZ}3`3gLCL0dX4i3
zg?{lhUwO!oRMh%{_{6B+0Pt{2BC*vG=L4mX{W>YbEqxHX8kP_oMcz0er3H9rV9(_p
zhtgLd;7v4)U5^Tmm@yAUt;^1cFq4bkJ<iFDBa_z5249;vI+knK>Q9@N33pccLQty^
z6C*3Yyk**ilz=zij830dvv2K8zV#WsW||LMOc5`ANi>;A$=ijboMvo05kJZAK({Y~
zz?=T!L&Su3hO`9H;(~ZK6Yy?=kbblI2RH{Y-$qZjl0szovhLaU8$Vc*lnOGqNP^5n
z#QrJq^!{PeQ0m>g15?IQ-1;oYxWxOM-WH$xS3SOREX4$oiYJ$F+6HlCFj(v~H1lB0
zfoNfRkRKWJecKn0XfO7fpyp{!nf?3$Ej2cY@uC`zSx@kkJ!4>kRLhn^_=EK@m^sq|
zyM>TxxJSxNHU&yN%upxYfXMmsZS?O8U2Du_BFN4MtivSl!OcFt{Pl%7QCa#vt07k!
zp=B8p>M{rJ*TSeWT2WC^{OiM6HRN_j%4=p&3LFA75M8B6Uk)gU(7*<KXwjEVMiSd&
zywmRwl6aGa=OiV)@qY4UEq;ny-2Oml6)}4{9^gjifG<L<!^OE()>h27F>BhNpC6C=
z__{*H2D^yJ{>5`59=BWhJ1LelLPMJkA2i4&$E3vP-SPyU&n*4cUKlzZA@4=r=CJC{
z2*|g$N#vy$0rnOmYelLdt$n|u^aPGg2Np9?%7=D@XVFH)*vGM(e#A1SBZS9J&=g1b
zrMcH*c-=XI`5bQ2L6W0{l;06z#Z)}!$F(=CC84P}=r5Xqp5?|AR9JePAMlr(b1D9`
z{nv($V&kCKYV$<X3xAWkl78Jukb>ZVR?}cNb3Gl%Me2Wb(~3D4THX-q2K!B6u!6$*
z`(ceBop6L^`(}0hX9s*@Z>)MD`Z8_#{=$gYmZfB#5LNyf1LTkKG&!UWA2~8;a6|uP
z6aM`1o~>Lq<jDMwBRs~v{t+VN0r8_7VSiNJ&DquI>+<D!*}Xj(4$A_j3MG&@n#!u;
z8yl0Z*Y)_lgGUGPC>+@9V;QIrqXF{M%w_{+2%Kh{E^ZOH^FUNo!N7?!9&;PYgiu+*
z1-)45^J)PnA(QRy&25;>e7YNucH#I%pEt!S$@5GSzF>fzN_s8tn}euuz&4G4o+dUb
zQ^|X}<hJ+w7{x56l^&X@GolaeEV69Q$y^d)lR!d<*yz1Rq@UCWMExB4h?652Bwrp^
z8X(3Ddl~=!3Py(Po%^2yI1gc9!^$=qU#(8qc8%;iIYRnc{;yb8FhzZ-U)BR~1gfT!
z>ccfu?WcZJQoO^?t^Bs`rx_l4WCwe#wJTRXWgiNNTY;O%idN*vWQzLeOXe`fBWW-(
z@no;xH#;c>A`rBFRDS=G1Lr?~UX7|-T9#M6U;E23X0|(J@49lxz4Z;@Drj|t8k<L7
zMa!>DzO3KJ3WIGd$@YD9^4;<={E1`_dR;BRA1@-P<RZ+&R396+VyW7)%qb`glXaS6
z#(QiUMreHi;3TgC?<GNum=&a+5S`W3G8Q=ZLyDkxpQ3(zo%(EA`5swe;R9Nd>DluV
ziL}1pP@}oM15P2ei67l6A7MavDfgiptf9S~-PHKF_F5MQ_EbQN8l2N}3S|e5p)WZL
zm%6?gJ8oPBcoFI-K|vp;ubew@@X`Np$f>T08?K#<>9#kijoW2&r`s1@`f>EBWyeVo
z|6??=Ibnu|9{l~elEa;FUwj-iYE-t@s19X_gUK&m(wNMO^W1hLG2~9q-;f`R!UBWD
zijopry<R(C7Z)!$aoazya`E1z0US>-{SYwSk{V?R-gwW5lp9gAM`X~2$97}IvAyqM
z!I&6p;Dg3s613{~l94F=Lht!*0lgyBG@`6)j(?>6Vp@)P67#Eoz6BA}u5r7P$D(4x
zvZZ~gC!pBQC6TIW-L%<^&K~Rei75cH1+Pjjw{~XE(Jvm?ut|@(xd~NUgC-eyIozq^
zrA;$^B?jX&y_bA@+3@Qk4Fd94#kO-`FOIqSi;X5nptA1%rRhkQ>=|RS_ER6mP*PD6
zUllviQ@RnZX)afR5*G4n)hNY`ty1m0=vR9vFRdJ}!#LZY%mVGcMA!$!kK!o~4*<o!
zHE>RJC>lk}o#RjA@AcAgk99~u2n~hooa)23w6~h~`%ff_hxi*fFt1wj;kK^r^r7}Y
zXg5lQLVvt>Slx}JY*}buQZjX`rr%3kcs{~`V!JHbDs4&AQ<L2H9Nf&AD${+nP{sfL
z^+&eYzFOAAqkq2|VnOuZ(H9IEZV@{@>!$0{?Eqn^=s=ti444Rr5F%x~%cAH;@|Kt7
zdq(w`E{q6lM3#hskI+WhN{lX=39$1$dekDI9_{b=Z)uUg7~K-B4z?d|u%JrxWsRog
zqk7?=Z}qABh2DQ?LWz=<;0dQr9e%DUS(EhZ%Ow@$=RaD~l(k6ixAtDrbiE#3Qqgvm
z3K)|R4g-m|fCPs%GDsi!L3KsbUQT@48R;5y@#4yYZNb`vn?JdVWc1mIZQVNd9($h4
za$;$a6?jBg*YJJx(ulae$Bz%u=Nvu)K9{zYIaUN4ngtt&0AyU$=;7hRE)ea0i`-mQ
z(R0K0Zq%=7%uke{=8VXBL88zeGR5cWqO_hwxwJ>d^9PVy!fo6>Yy+OV@VRNX%zrgK
z8-~mj)TL4!hS?ydR*<rUF9m(DzE9dBbteik8h=)_A>P5?!NRIPHv0fijhX1Q2tL4u
zu$<B3#);{Ha1S|GkZPN>RsM1(OXxfOxq38P1`<TQjn_IE@d75pws*H~f7DLC#c*yq
zm|}ToX`27vA<vFqtPojSsO$UZ3z{U+rWXwyFu-dKZxwap?d#WvKdgauNnVdcw#e(x
z^X-5-`L*%bp)o?hdfd{me@$Ow^j{Dv<n*>DIlW6OC@1=t?Ar7h)>oG-2<4te-Q1%1
z{Tfcj*ofu$1^-jPRV->REv=RfL6%-4X8WpTQ#1STYrs@{Gr3+&sAZotd~6??dwT;u
z?X&>xyrBL?O=!X6#|Xuu+OJ=88Yk@0Fo|63;MuchE3HHh%?UJzKh_NJr<e-jqe<)L
z%gFB-+$>ySdVp5$=qX<*9DyS;MGY03D+}w5F;P>DIb5k8!)`1OJZhungr}nMXN4S;
z4tYL&{uA1Gc$KmSBD0phxcZ>YT15wnsb4T%1g2}YZPOp1R}U@nRRH4&;+R1sPoU87
zYPn9?$Fx3CJ}Wq7geaixBJZX@l61HmH~e^Zknum1_~!_h7_vGjl|!3^ac9)prbU>j
z;MwI<;bRzd_*BoIxc?h}idGnEpKW@H#AtP!-xRuV4ye7^wFAtK+%nVWH7)goKcg%j
z-LRaybyy+c+pE1UYgIpY9oY0vr?ZAD8vjIi6LLXgR$uL2KyVkrgZ?Z|Ca5xH_2fUF
zwR3)I=k|z1$?*^kP}~TJ$?FO4|9-Zbj0?9Eh3n}#Bn)>gX{LJoUyG~|R;-s3gS@on
zl@i)Q+46S(UdWsZzrxQbejIv|8A-Kha{qp~&QP>owRmHy-RCluI6~Frg4e$npwRpy
zbl^P#!s$A5K7x=H_wQG1WMZ^eEu|*6wB~(<9O+eoW$WL2GY@N=Z2~qKChqFwIE`{H
z3<dDsccTTz=6}BuX=JuYH{I~Hhl&&(tAT44BjF~a?wdo^d6kL*r$|Hp@pr{b&CdxJ
z2pjfA!iH-K4!D(tlMGezJSi2h_?@uJ!9qsO`TE>;e;E_R!vAyOVU$pai;Z1^QVOSG
zd8AZ~E`|Pg0HnHZzm87lg>(5006tsp&(axg*v?Jy!Lw&(xbB_``vCU{(xSk)1jd8r
zK;*jyJX~KWUcW!9gf-5(0!HR89i^|?A|Dmb5p6=yM*u5f$<!ZWa^cb3fBr;N-Cx2m
zz|^y$L#O+Ao&MU5`t^x(n=V1AB@F$15j6idh7gmWmwHv)s{FI}B{CiOC6+h23hUAj
ze~vHdql8yf0Iymw?Ef#0qC=2WYBt8vCaVsgI63jKhlLN^-ZKy<W}YD+Nz!VOn#{%*
z{rhKg@lw4*z-%$WzT3mJ8{a?>VpK63U5K7S9E2Fk(LoDZ<n`yOJKTm`#PW#N=&E%J
z5*~o*0DfO|<4?3K8ufn;rh9@#LSC3){oCk8L#wWXn!aH_KbcR0kbl}LDT~$>!lPxf
zL2t?w{};bWB~(*ljZy&=TOb2xpx@6WCeSG$gv0h>PEOAD2TfloML4(Cd@P(Rh=%{A
zr`+6*HPKU&6?XY{f3DOZXyWe!7@o}vr_?jpOTicqu4o@4*gMJu^=HA)!qS+^ooo6C
z-C(%r|Hg2|>jMKEri{FI?_LnbuGx1APAoq!m`e_(89pQF7stYi`fWMlwL9k<2(6AH
zR88va^?j&tKQBlvR*1{Wm2njsoX;ZTJ@22QK?zo#mvPetB`&~t^@}80PdATJAi@4a
zy{6X2H!dSU&wp$_Lht|G`y?)e7g1xqAe8oV$KGf#jC5&u&8JVpv$1$;+Wt@Um*a_$
zKdK3K>T4FGSd#vIMe8?g=v9FcPivklE?C>Sm#sAZeIa>5uIk;Zmw#=0mE2oNv?t!T
z23a@lw|R>Tk>3H#gJnQoR&5;I8nEuIpVnL&6%Mea)#%b>r9jb<gr=qEI9i3_19wR#
z@F*1dkXomQg~F38ev}4*B{(m{s9${_n~k+*wUq^VqhtDC|Lw}dxUjEha~q~s&xH-i
zB!7s!+++Nv8?=d1>E8Y5fD=uDQg@{tp#U?&@!<=$Do|)V11Wo!scF_+r_9XET6iiU
zbtJDsw>u1T-Q(P0OBTCyhYpXsRN|_%LGctin^&oDCQ<rH)6&d7woRKrNv{$3{=bYr
z`}`w>T~^FypKW{ClFUp5XZlUn<}N-}25J<picJkaUGd21<8l>};cG}JoN7W5EF9Rh
zldq^}Hn)M@!VD=lMPuqL>LiXF2R-+=9i|}o{9c;N4?lC%aPsQnglooU`7f{k%2@PY
zfP!0DrxaOW2QS8xx$FBxv>Q8)pms#z14F=c|0i#&1H?K98=u>O{W1)PjuLH5L>9OC
z*A3ywJ9aFH5D@}{;8~TOG=nNVG0r(QHdekO_2{r+`lv&XB2-a9d`!dUFu&zbCby6?
zdeNdq=%!Bbu#~+u8-$?>8Xteg`vaP@D04Qkv^*vpSM1Z&MNtLOmBI$9AdEVXzqE4X
zfr`=83W7uPR3H9(fq8T}r`zl!B4ZZv{p`!;2u^~6F%L0gfX!1FtfR}0l}!~K8noaL
z4Gl9$iCJJoycfCS%Eg%D*(%*OLiAta3yZk}?Ba4E^#Ik7OXY=j$6;_-VPD_zH-pAE
zVONiZ$#pi3)FEiMmg_65g_^$>LL?IwlACySW^I1Fd<LArNJt;;h95QS%Y!d60Y+8(
zQ(_Adb&1c)i%b0*+6ZBS!Z<POT)2!POujA`?XyT3WuHy?{Uy<V3NkwsZf^MgGIz)I
zYu2|mB_QJmZdkW>mMCTwqr3|@ex0kYxp_xN?av1`{j9ZUbgT($5H*KpXC`{8<Q(Pj
zYhX;b;QMLPFyLhG-*2v4b@-#lS5i^o;MteLsPJ8)$tVwAoPbRJx!7mJ`w=CzK#_N0
zQ@V^Ez|v*a%s@*v7B><;UQpLP$GDuwE1+2Lm&?ob6+^`ypb~(=;!k+-XT%~$;70Y=
zuh(iW{`pdKUXLsK`PSdrYYpumu2LAOjcCS6a)^1Hbmcn3A`M1E(JR1iY5(|Y;3OUf
zB|E`ld4MQ*ET;H2qG_tCvgUW~z!4a`lY^SzywQm_<BCK_sR$eD-RGv~L|a`(F%GD5
zgAn*S+NSIcc7D7%%)^}~GG0_mGL^qY5QD0Z`0c{vS`9oPn691b!8H4lr4<Bd=TOFw
z9DR9hr5qJy7(<14EY`Z`&Yj8_|Ai|KZ8RaJX}=qJaUJ`-y+>t}ALV9KP4!@5T&~Wj
zQD6G#ty1}~{4<a^&M(c%NwRD&KXXiLm=tJ<&JVwF9<1spTBUUCm;<^J>ZLy0Do5x>
z2-qQPv=`T1!!KEchmp}Ds-`{8Y`QF^<<-4E4QSv>84z$5UQ}@ENO1mOK~d!p!oQ-6
zWrIz8X<k+KHm!nOh#~KW`Wa$TF)j1wkDBx^KmK67Jw2Ki4iKY{VBF>)swJ<&_?0}C
zlRzAqAPD>S2V$%)uYcofu^LYg)kp?n4GDh{<AGEfi-EY^qr;j@-4JrV&~bmRs(82M
zMpghaT4LV|qw4|A(O?w)462_o2}_Z|ltXo<Vi**{qif|Hwlg%H16jiCu<%)dd&FAi
zT7{R5)ru+F_bPJJ26y?URhYDE)dW@KxtQSSYo|V1TTy9d?em#2B^4hxH*7ePL-KDL
zv2Zfs#sEeTF76zs#JZe#QMQk9V0~p=sj#&uLAILy`mI@E^6oulq)a3y!ZaU<)m5Rm
z%uXsm9jfJ_wWo?9+~@)RVh()afu`#)IPd<kXc?wHdcn1`Ju>UT!-vzT%)knFC~DQ0
z@s-vovuQ{D_C*vlf;cA})c-^;Kb|A~j4lp;s}wB?VTRh=uoQV7N?qh-D8;V|`s~IB
zCi76NP2T=llrE`v9*_Uy1z0)hpZ?!-Zv9f!7nY4an}4kI+_9q^Zk8U7Cj`?ELuMr`
z3M89~jW&tW*gw~Opm~8^`#Aj4M}%dERAsWB-dnfiN*qCE451rvqS0jz2dbakp>V(x
ztb;=PfUZBnO0GUm1r@Ja{q56&pXgdwGq?YF-vMhsbvwuj^nWxJq%Q2g__v-w-B8OL
zlON$&Xf)|HeLda5iP?W(n$ns7$XH+PYBeq@cc}qxG!P6=1P>JDR)bw#U19ukH)#D?
z7IMv;JM%(OvQ*2Qq#=x^yY=&nbxgE4AVtIj<OPvV<$E=OTHS73hbU1(?7}rvT5Y-+
zJzmrs(7WB3bvKgLNflMpeb+DaB5<TzGRszFML4gYiu1tdci{z}zhX7-l(;C$0j^ZE
zwT;n$DWXY;5d-=tUaxf1rT_^qoH?0^OqVXR&R<`5_wL<j#+I3EK!p7d?9ThlN1g%!
zlM0GMn*k`Zz(RauKYNR?|4J@r*JQ8~ezRUwE<YoX%5>^9|Bl`7TjgPkQ`HV@U=DlI
zD}@9!o8!Sg+A1m`8DkDYwBSSVQVV;PYvH;n7~zj9us^3Ux;qkn&HP=>G#|{$$44!5
zG$3;uW>Vku5DvsTS@gG#wA&rAso3-XYwyd$sb1T*)l;%dZMCy0nwOm@L=u_ORv9YE
zluRWlip;a@#;1h#Dp5p=%u|!h)Gi`cnJYBNOvp@l&x>V0&-=&w&v$&s`+djzeb3Q;
z(qdV^-~GGqYdEj-IxoIHxQZtJZ}omJ4!;$!&58hF@`bAn=wkOvror(et8pnvO=POT
z99gfGjMTUx$%`F}ZuxCyy$X#C6=**bwza*h>vVMv`-233nPI!i!O2OwYIe5T0cy%~
zc5xBcnl2#=t-!af%kTT8Dxw?s4|i0PmP|s)F;n$Z4j*QKPuf*@jyeMj=GBDb8?0E1
zWE81(ruB4|>VFA8GoN1~Z_6GMlP78i{9S-&{}xOX!*h;B>ZHL$-3tW}vvSL6FZN)|
z2M?bz0%eFbg6L_j+Iw^i5?O)>2q>#sy?+#osu%zmQQ$&R(b1xak0C}{0V_@%S(KkF
zT9+V}2lDuDhK~z7oYcsHiAUon1!N2fx*)z*vf{74sz4&Ok!H*_*JLk}5I2n4pD>ke
z;E7X0gwVIwDG^U@90L{G$%_I=UA24qVMHF9W4n+N19(;G<7JFxK-wWm^9J=_Cur{8
zR`Ae+NC^dj$eMIeMX8M4zcWB-{3$VSyR_JDMY(lnp7k8KclfX{e1K)w^trxnCipjW
zEVOu<3&e3<i%lH>mqW#l)Apxp!NJE8pjO_oWg0d2Fvpca!=UUTOHmZ%W1Re0loUo_
z@#7K5$`7J%?izYR(3LsQPJ8<HXJEaCsjdK`2I3nXC^<zlTG5D64y%Y5Yqr<;aI<q5
z&(zN=t8LFaI147RZ=^lha?~BT5jB>gfQ{VaA=lbzJIq|z{p$mS{4FTCNiElp)mBCJ
z_lD|l$hXP%Av_Lcv|^yV9_%ES8+$XO*UWYmB9eP{=8xv`iVztRycYUd{Fgv2DX=ui
zf2t;IyXv2xNEn<5$UO@7)XPKM8?|+|hTPJevt9M_+(0dD(~CMkM54}?iHX>A31psF
z7kKyj>i4RbBR4GFZNI)CW`pbtv*5E!q#hnk938x<Fu1wIF7d#{(Xf6`qiUmXH~Z6-
z20aq{!&pyE99Ui&WklbCYvlPp?Vb2$B!_#Av_>}#P^l7>1zv$)mMu#pG!@1qkg)+n
zNYQ-0_UrV1|81s;5=FS_RIdw?69eQyh9b;+<hUBqnw$`(7E5sFR<rk6UKp3_*a_57
znh@+fE?%aDtwsSUbC2mY7xW6Bn|8|Tzvs1E0!>`*_cQpX@Q&oH)S|`PX>5tgbouB7
zPxr_HsFtR8I?9PY+KY_jC@U-x=R<>ef6wi><}i;^@qYG0ND;@iW&-3a=|sLgx2yTo
zmOii<V{l{4NQ5ucSW@fC_76Une5zTve+wH3ihjK31&>MG@>Y;wf*3>+77Hql{!hQz
z8qJ*PV*u>kvQEQjgXxE?u<CV?1^eS;X5!8}$~45K({e}JM3bA)e*YGEs8gwI^HAIr
zZ<d2YSNX9SpH?N*;jAGl!;C~pBDop8!TvOBFT1ZyBS&QV3QHE^-f_nu12kMqCnyRx
zF>++O*fmffG}(xV4W4)ZZ=d?#@@3rYOb!E67-pmxjn0{(3i`xzeI;>4oyFca=j3LZ
zTyF>4q6&M&ORgEwu&3OLsk6v)nag!w67`Ycq}!((1%`<tr(LpS31kg>w^^_c?6EbU
zRMQFkftMUUk|dh+RD~KG5cGPo`KlZ|MeJToyrt$}Cg*?jmpa%!K3`DXr??p>Ors!R
zg+5A8m6$Mx8j>OCxcOpiw9rSDr`vGXwrzh9H4iEV*X5dE*2+;6;RWj>uV`weISdxg
zNLGDXXG7!_v_#9~!nAooS4#^lND40|nYeF2eo4k4+rrPE=Ca8E%ED__J^Ckz%vP|A
zXc(v<bAbGln7G8G2IU&lLmori3?BM8qHGKX@=noUS1);v%*y(8BUH`RsF|q(y`P7x
z-zOsN|CZIeM`-O@4JOzzkA42OD~4oODCJz5hJFk+ZG1wpV9@pJ41&bGqT1LN&J6LV
zcNJ*j)FF?~Gz<TD)7%`!x~*F?U)v$sV@4wN8NRQ~zV|1putJF8D-j=80yXp+`g~E6
z``%x6X?4ya3~JQ3&#V*jx67;}#DGC9P=kB(*>65^7B+++ruoa|4M1egz@BzO4}djb
zh!-yvdS6S~ZxM7yONkR)ku}QkBj5><PylYPJy74|?Rh?v7^)XA`)VCnvqxgtzc(e=
zDqrkQoUgxs6{<tjS62tIe?#;}!_VJ^5x}K{X+O4#{&)sYwmm*MM;lrIL_qA-tYdoi
zyx>C&a{Nvhdr3Hazi`)csDa6hXkinmj*}pHKN1XGVBwn!YF!)r<Ph{wi!rjz#qV;F
zYZCR8QVqO?^N}<A!m57H6Hvx8D2EkH1mN8Y&RrF>sT|)~1RaNQ$8o(LS-$NXvCaS*
zqY#EMA{r<#KrAwtS}Gov%83@T*w^Kw%hS!7j~z)=C0cmeLljCP4mgO7C@v|6t~S_M
z9Y~*E6=7QzGmBYS+ZO%$>wQA(fgquAQwMN9T8r+&Ewsb=|7-ux#|In$8F`XJ3UL9L
z?Q&orN$7&hM(>9t_nMl<Y3Cs^)5I4PjI&_d-&q^xs<J0~Kb~AT1|KCNxaZ8AY@5V7
z{HlsI5DU_v*on{7GXnG;EyM@upv12VDi%_sKt^d|crSGf5%&d8$f@3~`8Wc9d%4@&
zl9o@crB5ZU&F2t5IGZ=n8k-1RVr;|RfXLF&DVc<SRwf+SkHj(PL+1?!dQV$$;Z;Cn
z8ER{GTzNw~2QbyF-s97IhJR)~$5Y%CIb_kbYYToD9yt=3emf*2e&-4=9Y8vg$(aIZ
zP+A-Asf|$-T41Trjv<=?CaT$=ZtP!lP7Gdj6j72i@U}^8p&wC1VW+dGxcFY1w1dzy
zt%A4ydTI+b-XObuS~!kerV7EJG{7|+^;RTkdc=rDi?o?M8`t9aRRt#vs2XAn^hY5S
z-;W=Gc>ix|=s($yfA^!vbsUz2dBo(#XHDR_8SP1#)N+;iEkgrnBSDp)!e+5AQ)Bg~
z{)Y%~HMG<JI01Y@NDa|zlz%Ls1EOU?tpevJ&qbBJ*HWUUjucv{^z?3o?ukZ$a;(ug
z-G~{9u>Ja0OQ7Ny(4`n&X%L3xP)6Rg*><M>l1!Jb8w?8w!@0BF?#c>y<#%YQivxYx
z3J;a0xW_h7ACFoYc)CUrZYceKyEY=S8cq$xl>XLGi}Q8ts}{L%y@Um_$x+TM1oUO#
zMa2TGibF0|^y<}H5EwA{aTCd4F#7=J%t`<9rQWl5H?>zb9e5eI5ofpLrqoW5cLx65
zPxe2YC!VE+3fO+6px2p9?IvmGkFE{#!3p6^$+&E{MKGh~uCJ%0K6ZhpB-=S~*gW`^
z2Rob2FNI!!%lO=0e?AohRUNE!5Lyr-R_abib^cq<$|!@;D4&hSI`9Rb02cwVZXNhv
zqMJACEtn&_m3@n>h25ON&p&G+b4n>@zos?&RGTpS>zc)u-JCZM@fVep=<eC$ZzL9k
z?rdGKjIeW{A+rA8Ph>rZ6!&%tzySfr?o}NA9hKH~PA5<uA>EQX&)yO%Olzxdn+{fI
z&9LR5uz#t%YYKJEMD$QK3mKI(3f$n#?V_s2GMC!?o7wEEVc5;D_mSY<4z8>gh&vkd
zT}T`UR**_nLW<C3URCGTe7mhKGp*JpO{sX=2>miEYeqMW_Hh8$P0eUMb02ODLOo(L
zp(!{e*sqYB&_#%Zw~_h+;2LXWQp90M?*fadFD-X$1J~cC5Y}Mi9r6TeD84~p^xn>P
zFnyL{P8ARaK*akynDcNV2tfwAm4L#23%*a)m*F8YHl1~uGG;8cDf5x0Eeg!>b?3zu
z-Uc{k+ODoocRFAekHTojLlQG6NzNV{_@EfSaB3NR6zCmD8B02$F`;9X1ksHre@!Ph
z=O_n&yA4TShM`}v>7{b*35%N9E5UOMetA7;c(pi8fwzh~okKoAx+QR`IT{SAG5Xby
zt4*wJK>Enmb|93p$r;B@RGOWxbBxCS+A%XOgUmNf|1}12bTBD$`=1ZpMT=S;NyS06
z>G4Apz`NYr6VuKZbDmfU%a4dLPS3A#ZazX#{ApF4wJe(}{tn+E-oDidXH3rNBBoh#
zAp$A1d*HU&Wmw&_#wvk4NBJ)->{uNKWf~)*Ay38x#bTM7bbf%Yh{zWp!MO_{pGx!0
zNYsmv!^h)@ddI#CuLqb8tx4e;i>Z~%n<=>9BIx+{&^bOUbMc4OpXSq40_p@-&2h$7
zMD*cp1*`(K8eXVV;J0C@l`slyWJgg-hj6X@7^FhhJ?MfEQU%x-%8IkY2_;61M|b+=
zk2%Y=&<z8;o`!VI&J;YC!e`>T4b;psL~@|DEbg%9d4_2uiEs$V(3+1k;gnLmjY|OK
z8A1~f!nL8VklR_7>ku{DQauBYxg{<>X)e76qDMKARN-JufbCDdHw0UYx(9co84BiR
zfwOEQqH{9SXN@l;_PG3G2B=qaHXL~HJ5`u%A3d>TEr%B<z2}DYfC08`2L}@n($bDa
zW@`|WG9yKkv&sgtfA&C7SItnPauBSg;8!c2A}af+X#>Hj1bn_y|E$&kpe6OYd<#9#
z2YG9#(^ooFNn`+{zHIWlR(5acR%WC_sq9WZW5<10<F~Cmb?q@ndgG0Qj+n-cnq65#
zdpMd&kD-l@4k7r6KXg{H4}9il#6rZHB}N9V3{{ulb))Hk!U7POgBB8A@Q2~K;~^Al
z1u{uedehR!$KF2s&i7(Ee04<_0tvSWcxrfOJbU&BY<~HFEG_#llR$&_2P|*vel=Zb
z(4uNE`#&F&H@*>TUrQhoQsq!S?!Q7Q2@BDF%Q|VFfq?<-qOEpc&Y}9YLwt1$-mHpH
z3sNlV_!m6DV~mP`*9^l$0gLt+PEg<KGyW#r3V&lhX8Vo)<|>`IJSEeEh5CQ+%Q(Z7
zc^qcTE*uhu=|bF1hyRgX!;a3H)a^hhMTCXlz|lm5XH#cau#8$Nk?P9dQj(F;$GVoo
zBHsu5e-F$RRq-~Y)!qe5qYW--evv1t3SrA#Km9Rx1(Cps!M*eGGb!iR7vKt0>(~1X
zr+BgiuuQEu<(pT0d}tYfz@=l~$(*ExfxpCM7iJt&(Cbn?UES=v^s_+3d*1}#D)WAm
z>x}5~Sd8md#p$FTVbYv{<FEx(u7kK5&WUPt)ar;(IJF>oM*Cgqb5`OH#0;;@;FzG)
zZ@cz+ML4}fp56I#c*91)GnU4E6@~UfHDF_{jZ0p0h_tod`S3KxJzP4kcYU}2GIvbp
zKHpgN1dSreVY$h<rk}F4I#sJw+f&`eM;<DgR&sshsx&!b{AhXn;N3&~J75Y$j2b{E
zJShm>&QH>JzpFgvJHVHCUSktSH`u5C-*QH6b_YvD)TWZ)oKv-NG-Syn3&0UPfM((V
z?&n-Bo+)W&19z2bB6eI)i0fb7QQVf@qUMz!w=id4rTfAG3#`SYkPswxQ3QH;!Y?K(
zuF5y%>dM*09P6n|`sHnx`r}YVF0LUM@N411HR9qdXtiJX(773fjVs8Lmm*G3_5KBN
zz)!TB<#Dc%g&*?Yt*N;QYG21NqC^0o6EJ9{D+S9v5(+(0Qsu7kys)oNCIGkieWd?v
zS4{*TpyU&X-0NN8UHou4ONeg{XK@7+YaLGSW!>uAdHSCH)Cv^fE&@h8jn{at(ee1x
z>8*Q0z3+uX{FDt)_m?@s?U(4H^a~9Ye3%1=*Z^y|5wyhvM{*Dr-WblpDz2S;C(`d3
zuIoibi!nX%QhM-52bMw<;#KDa*(AVbJHXe!1V18R>2Hk)2a~#HN`@a=JeH3Q(<B)t
zoA6t3w!tlU+1Kq_8?>aK4aON_le`b&^?3VX<c#hb&wE(&_PbsOviasem&h4ui(j2@
zc)Vc#(Wzy|W>m?WmnSN!mmtB{i#g|u3bx!XU0pp-q+RAZ*6bKs^koMS>~xQMo*&9T
zVw>Oc;(@C`-0TNChIZ<<sy;U}ezY~d|E^5`?93fQJN|xUa`#{#%YH;~u;IWOk>t3(
zyN6Q54ChyWn*AvdnA5Xb$nuKYy+*~&%0!$hOgMeQPKp<wM?l=?<qywSOd;>^pLMrO
zxW8S|p|z$+PZztzvfm_OmsfrgHV^xs*CW9oxcLFe?4u)ePi4L-%V(N!n8^03bm8dO
zT{6cg(AS;FX>V+`L>p#FC&Jyox_Tq5xORw-oLy%1`@1-G@n_?Be!Q`Jzl=tS#E4{b
zjXrc2r=kU=*Nj+@R^pKUG+Ldr)d@5?*U!^Ev%3hQf#x<7A1B64FPS4nJ!E6*))?4W
z`YuxK+Un7zr!(foBsYt`A}|=bGckyINNob`#GKsxcMvS7pynXra(b4@zujLC%Yd&F
zJImnDk+}i;3&lQ)3&+LveF;w$dmn%Y+GyX3*nk2x$4Xs&H6~<!`k;mqnDKM_-7(!j
zlOIx5s`I$YqE>O#)ByOr0*F+Ac?I3GYc_01{L79ImKH;0o3zZr*>%uE8Iv=OkV;;r
zQ?(OC-z%~XP5k&)t@#>>GnKv;Jp&ohe<Uo-(GPTgD}k$eeL1^jw^u%1**E=)NcIqP
zXZUf{b|5CWlwA%)!~V3%L$UV<b=xL)#?n$e?1j%IDj==Y%i2r;Gs+H&3NZQTO|8G5
z-v*a&V2>eIto|Xtb?b-ZUN@1oYj*-Auf|a|iFNxVkl&$tI%T_`@B!U+)xFq0zLg$t
zuTAgkyK4>j5?`oiw;)P&l*1oig#q;1P%%NSIn<#j^sLj{9GnODGfo>N=#(8n+(Ny!
z3^ja)KFSR0%RHL;&tn}$Hl4;IyzYcpd2Xpbr6}$&0_ZX{#7WfL6J7oz0%JN>dBN6R
z4hWDb$Q^iZZJ6b1ci#W!iJy*6?W0%tDD?ziXIQkp$Q(1+(ip33VLZFQN{`ex1iwII
zfI=(_e{<tU$uM$@+V3{b>a0D)@k9zzuDz`FHo0TY_wL-e^STG-B3;%S`;}L22aL*V
zFF;0Ls)yzO3<|QWbu8cAWCW9kxg6i!6?OKcc%-hcA3xwJF)C0We>vM=ACC3mMw7n#
zIc62OihsT0m|6Fdb_O|w*!|2N5~f%r{mdoqu(;mh_QRjBv4sJPYz}k%@{_~9Z$JUg
zk4x2pFz67D2vV<Qi{-eoEQ)8Q&AmF#&QBIDS<>3`^T8p1U3Xl-1*`mTwyyU@2I;w+
zWx+t6^r9`aFVN%dFA2W+IJ@g#VK&$Ni_Z_0I-zD<T*<}K#bwTFKWujD5+{cR5W%Gw
zPL2A5h#FxO#3@4d9F*AwROXn?3S@1yJ(lC^F6;EMG=FRikB0w?Ks$WFj~}lyL!M0}
zRQQgYU0iBssM|%mg);~XFWEmkjx5vUD~Hq0#&B?~*s1pWHl4}uZUTReo^%Ndg<aDx
zTdGt?V{qX=RlUet`DwOR9QFgCEe#UUa2zqDncUZ&?@Ntpxa%t>nO2P?=i3m_x|<)s
z49EPvV64jy{7gwFYQOq;GFK|6jF-wiK7|(<{DOL2FN&)8{z-wr8{e?Q#@q|y2M@d1
z<P0Bm@Bq13$p0s2znEaH7S+9}Vk0YNi2E#pl71}c7o?@YXhpzL4WdKy+tU}2HCo%8
z2DI1cKLJRoq!Y;Eu$Q9k5B#Ia8Rc(J$+bmCUzqgG*;>KhrV=&z`K|~=Oe>nZ=<~}a
zKVKf7ulm#|X;B($amUhqIa;ms(VWUD$qQ%XxdUYOL)g^2RF)bNKRahCgsoLl$}N2C
z?2R?kF32zvBc^pz4N|3C78P6eEJ2Fe6pC2{$$g>1A-c3NO$ImBjQKq{uRVDXyJ2W^
z;#lF*&tz0$`4sXq_;FP)E)xj+diXcZV6#_C_dU^Sn|ywpSb^2#;<0N&e7k^+8plp>
z2k>uv7TS(-k_?Kj8iF#wZXAq2cT>-Pct5#0UO2k^cr8%frcl6s{l$K=-Aed?GM(Ra
z=INcjcOs(3mv`zzRZXj#186D!e&xkwBHok?GnN1vNip&hJ}8U<8`ww-P<5r|$ICwk
zY@r$x7$yaV5k$#lnl;tcB@wn;iM3(W#YPnGT30Lmj?3js8OG$DBisU;UmGB5v;*&B
zjf_n7k8K^8-a+kO2*h53b76X<6dVe@k;mIwJKp$4#cIa<8nbkt9j*yy_y{b?PA>$K
zISVgSAh{bif)ThhL|_v&X|0i#t^^HLYV>8Nv%uQDVVm&rYa3vc*GrlL1uNp_q$p$Y
zWPAeq7hL*dLj+@uynHQm*J9p4jQ(hBubAPZn8GXzuRhdKYd<=U*yo@gk^9$};DVj8
z4hvAlZ?ER(HNR*A(;>7xH!B0}dd5u-gZ+c^M5cc8Ej-ZiI93on&{PTzU$td#fhtbG
z=zTc79fpR6>8#sMZw;ruc`+nmhHzkUBeT3U;mytiL@*)F4V;LDzeh)E0ZBRrc~tK;
zW$7<U`(WH*jTDzqF*H;*_ISn!#t$5JD-e&hc`h;2aE+(vb$9Zai7(=^TiQo{96&TS
z{R+HjOk~cVkr?1X*(Y*rQI`c(s@C(OOcDx16MX;Jx1nY>2iJU53GN}`>L&>`w1knO
zn~hBp#otinp$>mJ$ScfL1lTY}UU#zj8Hg+;Xl$zaWk^QAucPD{g&^D*I#Y?L;eQ+R
z<<RJM62D;O7b72^!%FatD2U5GmbP@Co1Rzr0lw`4;_f}zZTje9psp!YE<(Jnf$omF
zC4w1Ebb(h;E`lN*)$C^^FRZeh49&wNo|l))uybOL8+rftCB;+M_TN%3{Vx;q|9=ht
zE46DLdlJ&Z4g|N2MqDoM3<(U3LI;(@1O`&oDNTa@ylkKkOYEbJk+tP8W67Wbs4=ON
z2h9j`J3R`PxwODs2Qmoe+J1q%=iqJpxU$>i^WtHWoig?wZe&Ixv!UY&=`#15qn_|8
zZS~oi3{)J{z$FZPp1<M+u-BEYLmvs{Rw=UxGQJO4A`K>nt;C@8eM43eh@VTHQxN0T
z=Tmfm&t>8Vx#SRe;`0hA`B&vLj+}sKFf$Tv3P|#knk~;I9E&%k9fPDfGZG?1?e!jA
z^N%Ic6{>A%#9th%NQuM{jI7~dsz`twdAI?xXJ!{NWol2I1s5{xusP%cHlfN&IXdt`
z9cauDnHOhu9jKrbO1q;PLU+0w!_Cp;_?9jNg*;)X;szPnUn2e~8b9oti&!if+nLn>
z-h10|*OerU4DgF80Fsj0@7}#@tRhUf{R=mdH_m0j<=zakZh?5IBCy=vROoldfgFq?
z7}fc(Do}m5R5a1jx`S6q4A)}$JpdGRJJiqA7EE|B2E~Y{)uTpYg;kIPdadCpucY)b
zE9?|hIr^ZZ0vl#R!SZFllA<DQ6x@mxe#6HnT#}-`IG*oBRGI9JCGkzP)~lDbYDo1V
zSVDb|iOB88;m_YdFEzD!DyjzFPlf5kh&~F~kIMSdkf{sGC&{I|bYRW_5`eTt&y8FA
z98iPu@mko8($dPWvVse|P;hN(cB!?yh#;VkbhT0WVLCzvrTxhV8_@?Jq3!VqY!NkW
zq?$x($1Z%;>R5!58uAG1ss!RbGQdOHkL6$Y*dO<7N*rB4%8`iBM3t0GQBgq2k@^dn
zLK=?wv-x((d6lO<d+1;Mz`ju(Mp%<-*bs}1Lo0AP!QQK$OQ3so1IvVnCkAtaj^Qtk
zaciK+sOwy0fDo)kBB`iOQ1uatM2mmgjvXG4z<)23KA{CwKOG_%gjRPt$D@v7nBf>3
zS#J5s#Qv3#No8<&crqX*Yt&+xk(dF4UcY-a!Ot`{?a~Haht#35hg_YAt!BVyNo&P1
z(GSVIIP7d@Bz9u3jMTxWrw*k`8Cybyz~(fRtfDStmbFTq`{>rZthbkX?b?@OE=fOP
z#gK5@nv{rIFPs2{XU155ktr;3C>fa<iDrXH)KpD5YkP8TPEE}csiV7?#D9x;Xonyv
z205k%)9u|HTLN)w>)|tRnlD>$5qYygEH%gEWe}wW|I1T{#Kau|o2T1=6a_I9z89`}
z@e*=Ct>9cTBM}iz3hKJOwEdi`{Wc_+w?5${BI&5*A0@a?Vz?-^)uI1}$e-ZXMHb3i
zmgb^ALNa_WTrU#1B0(aWjjo>Ta~o%@U!U+-rwZyAs*0>vuX>J+Q+;%(A8gz<K;Tta
zUr~8|w*p0gR0?rK3mO0ng1=k~R}8Kz1qO%JC*8&HQjexa+V)!gr{>e?%i9j;yeSO<
zuK05a`H?~vOMG)PQvTPcFy-Pt+78B}sC@tR)iv;Mkk2%YqmONdM-twevU$=damZ6=
z0?f-gRPc!yD0e$Br?eB&LPBZ?o<W#C_$SXW%hT%y(K0)HCyyJ4I7XZ*m$eFnfk$>n
z8{=xldhegC#sG?&pOYA9kxkPk8oqMnwyE3r3|v4u4d`Y4+&cb}M*HLFuo*%1__Al+
z=TpJeMbs`3y2mos;RiqtcaToA5{UAoJAaa1_~|^tt=3Cx!>&5YJq3zZfpk0xiLfw$
zH$jp$AH&W;4dNDRFOW^{I$Zr}K1$6{{S&&K^X|Q$OnnSaPVlzm;>I$>U!;>|Z1;k9
zhWiCthJPgGPcC&Ub-f^Vjsy7x`V{Dy$_6}TQqqrpB2v{O@uDNf=>Gs52Bme7C_Y!(
z;TLE<KE+8(^C=3*57o8lN(BACPgvJM@ri2S$i~D644`s^+tB?cNP6zjtNEf!waFOw
zNgw2+j#+>12sqJ75J7!DnERCR>C8M*8pYH@YJj3XPbxrx2SKuBD5i_rB@r}?0wLv$
z(4W5pa0RRl4e-w2f<Zu45}1p`iZQZ~?$5ZNOPn#DuB+!cgihW!u7P8->f~ekAMxeN
zR;r`H`@u$^F;-VbVGvlyKJ>biHv;cjeObGG`Xk68kXjE#$7n#IBY@13UO~BT;6v*6
z-QM0g!x>MF#KKEPVa-N5ALsN}9i%oGY$by@G12b@y&J4cKiFjMM#nme`aSP@V6L11
zS#bDVO~d5Tl2F<GG&Tdp;9olIXVMljOg(%aP8d7=ra9<blXew#Ji~1F#~A+?0dSVY
zsHu*N|A@DqE4X#>aDx+u&3k(!Vq|w#*oSbZ1Ai)o*&cA%1IamZ6d1GM=??R2HlK<y
zE59lX)R;3P!3Eh=7&xnn{293aq|`*^Oczg}H=8i`nnZ|-ii$87R2#f8YAr=e&MqeG
zXEaXM(2p99EEhNj($Jx?B1lQj8l$72dn3S14xTb<@1TBjfXn+P2>?IEpjIusb?ZS`
z$^8(zPH$M@_H`kZp)<gBBw<N7P=F^Sw(bs{H4^w#D<l2s@D&2OA5g?T!hZoumpmQX
zGgtGoT%bYDgdO{Bc1JL7ir_L1<y``3QH(7A!(8|spm%U>mQl+KpV6s5_BMF}dk|6s
zRr_RK!2CNWP<A9OAd-Z`3^UG5L7dO+lk0N?V1zndBueFC;9+VP+;;1Y!O{~aQ(awM
z8(W9;)lf1N0jbF+P=5~==-bnV1yn>vY%}mK3uo*a16{_PKWd_6d$ZZP*-oudK_V1P
z0V^X)+v@5Kq`r$xO$Wp^dN)jQCA6{hzS)s@1{OR9Mw;?9*aiaQoBW!&pF`Euw}QHu
zA;yQQPbCRz!`bN#4U=dlo`)`?2<R1%Haiq_qHC|#eZ*d;4sXOiw~`A`fV~TK(nSS9
zPG==dJty3H$A=!e6uIXhvOo~>7Ey}h3ts&g@OG)x3*fg8iJym8rwPFBiNT5Sa0Cl_
z2?n1lv1)mDxv{Nz0z*Sj?2<$Sp<&ZgYO`ft!6(yX#?1`gQOp(&!*JE*cZx(UF?H?&
z!yGYOQ#Ckjhj&S0cy?=l7WgNd8B3D0zN_a27~gt^ky8358_92f@o;%QUxpvOp)b)0
zt?p^W#MIt_Ma?ehMlT_TrQhbg;NtTkY*ydSW=A={gEr|=6=T#*>W~Rw@-K6YkGoef
zCbR@ras3n0UeWMM#JtrjsJ}xd<Jl0LOqO?IwC2sj7`lDKfTouEL9_Mn=nY+ci=2rp
zuhXUSNlNa~3C&wUbCLX54Hm&t9INhQr7FacWGunuY;eLNq^y|qm#eISj4>k-VrHmJ
z?s3YFQJJA*1da;@M8I39<ttuFoA|-VUEKR=yjDPf3s6SdvJ|v~$M&TMoj;I-L&!lg
z;;kS|RR7~=d7cz={R)hyx;{0nps>*%L1Y_{`+eB5crFnb%S}on)KmvZ42%d!=WZk#
zWLaxSLEsVk79a{lA&*d(L$@6`T_pHKWEnhJ_koUB;;|KaV=q;L3xZgD15~bzK;J`<
zKx!<2LH4y-8&Lj2V}78(j&N!<*b!iTP?U-yl{O-heuU+>s*Mu?ajnB21R(FbG!gSw
zq6i%Yrx$<cjxruB^<0VN3>^k{MIWB2$I9DwYT>^o*RR`+)szN2L)A+pZ&DwtVScE?
zi<lALvIk89n$|laAW)af{zl;-qvj_m1Qsca!|V*-FY!D-m-W>eb^FhRwxg)xyq&p_
zm)8P>kN~S8U~<Ls2a^*55GA@gu21`L5}lx>SC3%WMoOW1Sg5K8NUXF=2s*PSg=cUD
ztTASFq`xLi#Ip+*{bdpB+%oXSh6SlsbvVHC=+RpN6T=Cw5)#(;refs+U4P&l<2;}%
z@cNc!JbK^G24HH4>94zU+QN%0{N)$(U6Oca`d{q!hRGlQ9bGKg(_28H9Pa;K`e}oF
z6A~be(6sgElbtXj0G?`JM-P5Ke85tiC8Rp4%i{}|WQBQ8xQ!xkdOF^6`*P^XgG`{o
z_h3LSFd86LwVZYH_U)5Z*RNe`c$+!{p2&`(60QSEV|~{ctw@}b-VA|m6jFUtf!Hq$
zH58c1ZN*#&vB^-oaLBd42Y$}oG2!%ByD9p#-a?H<<VUDR14<e8>91Mn6YfX;WDP=(
zx6%_C((i&f=NolLQ9wuyuo(Q@{?r1nsw{GHPv@9egUZ5)1+60ETSmLOJW)l3)evR|
zl6IgP0h>Z<XeEk*v;<ZR41N&m14oRAvw|!G?dk`?`M0@*F-M2N8D4>02L<$d73rmv
zO%CW;*mw`ZDp058iyRZU7eD@uDoon&0nPn=qpS~u&8#19x7MRWQ-;MQ*6ESB9?jHE
z13*nZwV|WQr8w!x9?Z3UO`OTOezu6ME}6P)5j@JFqowsJ<clYYpc=#s1#d8tgh&H#
ziT?K6OYWJ*VnL+8M2(%utkGj$2CC(kG;@#mM}tWc|J2;IOAC~WOXi41g>ElMWj(_D
z8?~~NX?1#ScE~&vfM=)?Nl8czsQEPp+Ly8`#;D<}&76quk>#t7YieGBf+|GW6JaCc
zL1b<clAmlfju!V@xC<v_eSfNTa<*RCgo@2x*O9U2&e8pE8}#nG6g@;O9X-<~aDMyY
znE%vxxY)$`-Xr&7`=ht(>l2V$80_sa{R6@Ixqsqms4*eUCbB6f^5L9$vV#7rEgu<{
zpyC@1e@MwDa8SjNYH$V7KSSnY{CiMt%l!}=Z8TB^1_oMiT8_&-S*z~RHTNIM586aF
zWNDypvM-k>c@xT4Whgk8m<nU6pb@hIUQByXwpX)QNmO2-qSINw<%%5u)o=W!;ON+-
z2Ox|3tHDiSY`k}1EVji?w0x_D8x~*s)TccA0=M2`M#B~B6?57>Kx7+QPHCpkRo$WH
z9*Ax3d}GB`vAb&SL}(@qnoudRJJrhO%hcY%LXS0ypY9n-C+0KsX%mOghBl|KCZC6o
zZ><_ALmM27J~zOCU+>Gk+6$6Z)VFIPAqU&cq3gnoB!*mz_Hv8c`E5UgU>>D-18u&s
z9j89%!)u&rg^t(Jr(1!zP_H2l6J=MUvfv*kH!I<6ryEm2uNtXE!XHG3IhPQhl%dWP
z@$}O^4IUzDc=12mmcDjOHxeq<g@rC|b<`W_$Wvaim0v9V>ms!>h)ioNa{y2;m4K))
zHM0D4nYbGA&UH??50aAI;lY6o7@O1353&AKqKuTaw*NdDlGe3Xg7iI@eN=n|S(|k2
z2|f9$`3aR{H-*!Of{j6yl4LDHE9X?AsiKFNBC=d2aqbP}x+9(NHR~Lbh<L^9Lvz-_
z3x`N>cezp!SZnHXW6j_3d*-*Kp8X8^(4P!UoOxJbT?CSV9<u`JVlQ(gcHcF}k>AXq
z47mPDz#;ynik_}F3;Ym(Ly(Si8+6-bhn^$8yMFt&aYsAaLz;G%P(MI!_2<sfUo_8K
z*4%J5?xtqTHU&(fPh$kS?%#qK*K{g|<K@gk&;R4TeusbLf8H|o@!7Kw-7#t)B)kw&
zNgER0rgs?#cu0*EgEsG?=)H>xgR1*kpj!894We%u@#Yi^gqzE1w*}vfdM%MHX8i@+
z<+T(OV~jVU21>Ktm`BD%Z|BHXOR?nFv^u5)BN7_;i0IG}+cU({{s#3KkVX!ckB0(O
zXe#<<t)-R<_*N2wo~yLNG`ke{NYiV8GV)3NH33WNR3cq13=@Nr-_gR(z4bXt`AAPh
zC*_$QVO~>j(+TV<8o1*G*1fLPIM|BXOzNK~;)Nc<`tvAV;1rONz(H%j7ob=M_{<UX
z)H#`qVoC1p#DN8YyGU>lhTRHvB1I+dLlXM+7At3-MDR!w1B&BA=5?sx3;BcO?C+M{
ztU???Bms|sHW7~bV&EpSS#&1%Xa{&y8@sfk$CPj-Y8}@$b=Yeg+2~vChM;dL?wqFX
zbfjXDTM@4gv^AO6cMpvHbmQE)Sq{5Ngg&)^3UT;n_Ha|ka#p8vW<Qw5yGB0tKR|R}
znYV=Umq=btbHI02S4C5w09iT)OGC}kHtCJOg6OTh;No_qw7T#@(#T?<ps^Fv%_Ufc
z{ejOyoQabTPdCt78_0{q8MUbvsKM^XuORgzM7OAcO-?ZZ3gCpt$M-=TjRzzSMe$cG
z5G%L~ebnxVCrvO9z7!d(!T*=Rb&_s!JfcA&PGFP}()_rsU0M4bnqHH_(vO};#f})2
zWX%dwpz0wF<fD8CyckNLF!p8HRe=QF?^u!h)Ji}p2<$%^bRuAfW3in_@R%N9-O;r9
zSG=3diJCjW_~tK@(*dEm+pZF86a0)j{x&Bi^Jb8Y%0_4%3*0as0A{|}oYRuv@z=q4
zLohoI=U`EXJ;%WeY~aV}+=t81MCEv%vn)dTi(Af;LCShoydVpb8QYR(2_49CO@)Y*
zLPo5h&%`ifFzHSB?CY3Z=p*vaNzjLZCR%0O?LPEWP9?S7gjd3?5<eM2ov~&?|ESRh
zxY!TIC$ZlU72v{PvHAaQ6RlZ1g-{aK5Hbai{crkmWa3PE+X?fNT)XKPs;TbzJxRsv
G%zpsf&{=T+

diff --git a/reference/resistance_predict-4.png b/reference/resistance_predict-4.png
index 8bc0c27132d6d2e1ad2553d47f33452854ede44a..893fc5b9fdee73d49d764f1632dad126491bf723 100644
GIT binary patch
literal 73317
zcmdqJcR1JmA3yq0Qb}o$QIS%LLK&5ehKMrD$V@`^-m`@g?v#Ygh{(#`A*t-0O+xl2
z`#j#&{r#Tbb^bZ$x_-akxz71qch@a_#{2Uc&*x*k-j8IZ#kW#2Qj$odtrC|-<w>Ls
zb|ljJTbn5Go3<Ab6Zjv+tt;Z9_&**C7js?lzs+WsZ&;E@`#gw0WWIfqIwaD5l7#5_
z>vpe3I_#aUDXgwd+WK)mUuUeZ!*IK7D{bip3R?2>=je}2U2K=#vEBT<*hKsR0fGBp
z<G8E1-yeDM#O?8c*l;&WPS5?1Po6x$?dJBb!!R@L%gRcv>DVd#dVc+9ha-{(dTYyi
zJAb^gtX8j*n*NeKpiEW5P5%4JNF>kGO|nXVe<sNak=v2|`OE$bJGwXg`O$6DB{#ai
zPdPwCrt$YjPuc&aPnMt-Sx&xn>lV$fU9V+?7g!q_$qrnQlY81?f?wXI7kj9GFxvZ)
zq|m{Rrw7GnDtM}64Vx1UYQpc@SM>JwUR38JKX;_{X;K^2?VQVnno%(^9KymHCr+GL
zEE8GXF*Ni_j;cg<pelqGZ@<SRiv@2_B3YBjG+t`h_tE;^lxivb_Dwm&d9G!stFZ8m
zbV%HI;aWkRn>4HW>AmcnoQme=lMJacn*=pmFPFbKKI<W}d_GmTvQ9>1g=UC-V@P}l
z4IQ0Q5T|^ra#RD4-*J_+%Lyv!bzy7Edd6J^>h|{b!kXf%U#qI-?z}cPH)lU~jOr)9
ztj7Q8lG|;&oWE9AD>*skjb#ro6;4sSH@06g${$Y5UFOsqtc&jZn!V5;od3poZDn3a
zIM<h1WUM)Z$^OR<9@nM0(ejSmW4pcjD}!Ucf4}8CQ!Cz@rvI#KX+4S5O}#FU`%H+m
zFIS7s+K5fA%gU@$f@YzH>tcOaL$;-!y3=H-^#RWfmkZLLz83d27;Q~=!0Q`Rw8dwC
z)?O6%W!h@pcsF@sx?03=<XcL5M!rJ4qJ3Izaq$J?Z^;o&8PpHr)pKq1`@Z`7MFnU$
zNYvKWy7W=sZkw8G$*~%g?;99cQm9I;7FJDs<>$9ENq^&3#;DGG$KbGzQyo^%s?RU(
zJ8SdvA)N+y=HyuJxPy?3lDf5jV%B#`iMr2E5B8azUT$T^B6Qu}eaU;IGhY=?Z}1ga
zr5}nDeJ=M}EKo?KV0o%sR%zq;nNm8<Sm&j=#l8T|3+ny?9yYsO-pGWRaL$i+Y2u6c
zm-PIjMSqg&qD`()c$?$u!T?9YdRe7xhmlWZWy3F2O(xH}8mA>-Db@_6ZQQoEroee=
znccPJy^iip8%(=OhS3dw`^S$T^WLf1Z@Kb_EmSr}I)we|TJaXH%YNIKg^eg0u&(ai
zC2{2mtSwJha<wOl#MHlCUUnL7&%U;@G(Ug2E7P=#(osV69){{md$q9hBDu5Up+kpu
ztSGawn;gVSY0WSW&aoXgd6V8YnzOn%+-D_lQMtD!Zj}G9LQ=@X$WZGqQ+?%?eWhM>
z@t3@IzgM|Go%DHiWhvct%|$}K#C@wyY747`YNko!qg`zG-b+2FymU5>qmAmpc)^l%
zTc&9MtI%x2HJAC$t-5VP-%?)N%e*{e`KEedb)nidsN8>pS_hv=yYiJ6$4)ehdoxDQ
z%*;qm3(nMB>=({3Y?gLioetxWa;@ZRj<uie_lw%R>u`-1>IL~$G7Y=F(Jh&!x8&5+
zUUBBn$UFb)@n95j$y?~0>@7>jvsK=)Y*(R8f4Vq39DgN%b8#fK+Nx}y?aT4ewoDmK
z=UD|~#T}bC78Vwmgsg)340kt-<}VJ#_fI|8yo=Xi=8k2DPz_ZB-?cYaPXvhj>>adS
zy_u1KW!bgY)fQVo*xP&9>@=_Kn3{yV$F_Zf!jAD4ZN`~_BA<8D(GAbFnI>_MzBsO$
zX4Z4T(iy89^B9-r6yF%f7HW6F&uXaQt>>#J)FhH9#k#!Mj6fbe2lDKuMD;zzt)!mP
zTPe?j{helq8d>7DZg;qJ=~BPN%Hpg}it@dT1gz@(nYt_ei=I0U^6FO5TRMMw!XPMg
zS77kRmuHJVU;DC3V1p>szmZz`s=3E_cy(#~R6v(quQz+WX<LR=c6PR3R2j2tdlJ)^
z-CmbW^JiZytc_rd@?8`M1_n6z_!`w*=UVivv0j(byn{`0zNoqM2kJQ`?je!fL^e%C
zwhlGM$1n*wyc}-JFy5kN>^4y!etx}g1Y-e~&-NyYO~>cMWw`I>%InLVZ6=qh3_jJI
zJrEjS&Y634a&pp7(y<Q1!4YdsDy|JSEzsu_nfS2YWgy8r!@5N$;ONn#67u?b_u|%l
za$Q^Ms_cun=&_ieuUi>3h;7E-Y+ATt)A!?tT@=G9lUHY)N)`sfl8A3JFcr*i9Otv|
ztR(xsPsITmU$BQ)4}9=q)NhRQ&wlmvX^&+=zT><B#(k(cDU9)y$-Atq(;<#y**OED
zjx%4_!hZ3ECe;r%&}lkFNIX0I76o5YQc~W?=$*X0JW;tiT$V;vl5gI1!N5=!vI;Iw
zl=R=esvsn+)G>Ny?>5UlYm3c=70r%wBl-nntF~Vb1zcD0Ad1b~m{56NCZXs5{1g7`
zmz}y*?IlJ&gXhA(y4Tb0-o5BVwKO}dXVN@dS}|xf)axtKv@+k7G&kDD!O1C|pqkk<
zn%R};z2}sop<v7XjnoEnBQ26rQjOy-^Jk~CtVdfFs0An7n%>>$owla=Y<T1)_Ol^p
zOmwurV^>=W*U_UVJkDo#-`hgN%$)S{CB5@><tbVdwwkiuUz5E-0@iVfc~g?5Wn~<P
z4qbZt_HB@eYr*@})D`wCQ%T<0*9RQl>Yt657V>)hI8C>b(VLM^a^RJv&-d@&8?wx`
zXHn*ObSrAmBAwX9<MK0p#s`h5s;C5Ii%13Wp3tl=FQ0Z0R?D9-FsOQUrhh6*;@RyK
z<=d$(Gu`*8gOUP9wKM}Cw+;sJ84}wq-K0YWy~?1gAfL&un`~u3WNlKV3Y8nxLuT+X
zN22U~imlK6{32N{y8paSEgaiq|L)7eQBKY#6!SY{&DgbZ?V*^!*=9}Ceg;9i<mT$e
zp|pc<b;EWvcIZm|%BeInXm(v{>#FF}$ah!>5vegQ--G=q&SWp@XZ8K#=F!gl+~PEp
zM3t0V52NaOM<}V53@cuq$U(h7<UiMxzciLxIWN32bIrH<S-N3!Q17;-ula(Zc4&L&
zwMc7*MfWzivtIP8MK24Rni*-Suc*h8W3OLZ98MC;H0h`iq+LnBQ(KHe#T<9cbZvD-
zEM74o?pXEge3PoF{c*kJUz55)m}?3hqDBi3#Q)s;{P}bG@&K+=DrtA*bXKu`v@3)7
z6qqiSa6iGf2wZUa)w8j;;qA3g*a({X3rcF{51;z`_gz~+1L8wnADb?q16EL03{PTl
zy&mH|^Ru?3!m?38$=|VXBt^vPr|iRl`QfBO&H#~`vXVh7#%hr@r)ZrU35vuAiJd=x
zw`^ECCbihY*;w0ME_FEi&1glK1EagvyBn#WVwI9K{M#5#+<NddAV5jSzR1LDb<@X!
z5Mk%mr0J*6o?Yv8(9_Yee{TP4LTfs|BiGhZt?c2$hr<3h=JNKQvG{m;X(W}SBY@by
zM!RfsJLu0?+>Rd1wHY<|(cizA7k2lwhzB(@|2xI_K%0&nYkw2V#hF3f)*nB9P!129
zo~8V#_kh4)0-EKN0X88|pK85e-nUPEP^c~VX4>(RiDjdG0#>nF^zM`8T!k-_yqQG`
zit|hh7TyG!pqjdC(SK^swk-D_*fMV{d6M7g+f95bvB*zq1`9c6RQF}K6*%YK5KGd?
zk5d5nKBx1u$jgA^*s+FzFjterT#?6Pl}eh<(WvqU!%YbaFIF&)Lw;8{Yh%J(RJ4L-
zW~{7-8YJ)y=JM<KWZT-NbsOUpaz-=SX7EJCKz=SR8SFVG9?_*+sMf^F$L7AKpM#<i
zi|JFCJK36NpIRlnWaK<qO6Ss85`0ecV$qARu<=?k7ZgXOAQy~^z<j$UhhU*tV5mjW
zX(sJYPfoBsc<Wg|c-_Dt4hT)D&t`@8^YEc>p-xj0(Qn=?HmI&*i!^VbQ|ne5A2^qJ
z$(7u(>)sdV<%;R5vogn3GkBZ1vbxu$vZY`%xo_RG%<0<u$y;DNZ`ulrN3vcjOjtds
zU@>m*HjmW_50Re)>Wm)DG;Vuycm2l2>mKJq!Z0EZg73qEg5q|uN!uMCK$)MkJGN3U
zBcgy!>=b9JbKq^|#tTQ<X6L(HO*u7fJFH!({dbOJ^d$oA<^1~Ybx2}*pjye?Jf+#H
zK1L>h^^&-Fyk2!EUuXXouDqLx)O+}^5^(N}+C@O3nTZl=rT7tCezjU>n*Ozi1Q3-~
zC%2O`mJytMP)6t5W|EswoJNf4{8&fjjD&=QN}gSc53@)jx+&0VUtixKTDub7tilP9
zE@8sFLcjh^VDAS$qi?dnV)eDJ#dR{<0FLmVf~;(~cA3xMGa2Dp=CxnqjY*n?txKx)
zqb)}K4DKu?+`P9wZknEz3g!<?%3V{KyL_w6XWuM}z;I2(MS$_=m>da-M<-97OmkUr
zP<I%N)@?nZ{pn@zr-kpnuFJ12EG-+~USl(EO_Mlt=8WzFfenvmw%>Zwk!~2!l%%Pt
zbz>tn)3NzYX!gQ!LXLB>;o;|`W3FxUxLCL{7mVH!)2!*Lj@mP)qR5>Xaq}eA>-K}y
z82UKgYJdcM5$mcm19t%4z!6^55Ar5$o+p`e`;_I57sLbT1rGx*z6H*`0yrJqJfC6Q
z))0M#PU0kU#MbBM)VS^%>G|I%bjc5O96Mu~4^*g<Ym?BT0l1F^{94sCzwxRiw)|Fl
z?hgZ-J=eADzL;)`#@?R-{F%1kfX$a5>Wih-l(jl$9mcEgSLO&P;=0_+TxqRj_L<pN
zaLRLPdfIxnQOOWcOLyrAHeG<G%Uj_3wyTbyBm_5TP1d^qy|;I^)iCMk@#9kX_V^D-
zt#+SnyVe^3;_CRl)xtH+oyl4y6=h{!US5qcGGP`Mb5K8GO}h&E7qR_?#yA>jKUaHR
z-VtYWTmpFYRDk-txhr|DvH$EhZC?rYd`=NmDT{HUh__~2#;^`{I*uz`y?WI<^Ndz8
zxn*Aat5<t1F9=91qN@oWrkfLgE#@tF*!8T<h;k)6SiG#_s1=PE>qOt=bY$cKZ7je~
z-lsZ$PSUsGy4a63qvoQDqzBH$#V4M`x8}GyZg%>KR*8GyAOLY6pE^)hB`=ENl&N0%
zMBj<>b0*_HXUDk97x4|9tL6b+=z~w0CQhYDdX#8Ap+8aF{z-FnDnPP6S45coOBTA;
zR*w=nt;L=ak6?YQrJsD>m~sL#^Qg<q`%QMOt!55|ybFJKQ|;pFRJ1qE?%j-Cu50<V
zF*3})+Q1X4ucM-()E3{DxqNUV^WP??MPGD=3FZ2-v^0Nx)SEXB2}$vS^TXw{O3zpr
z*V*T1U5^P_u;5B=8x@n3d>lA7RnC<(^Q$^cq^tKdfzoN;Y!y?T5$B#iE+o`(m5!NN
zvp2^f6@0>X@f9G6S`cuKL)01b@1p*FFNC<Lg@4_A*u3=iTFlpUZ&b8B3=9k!^=Ct*
zwYxvu)olfYiz#*>A6}-RrDZ_DpIE${SJE><@ADROtl&biQ0KF*qyM0er@L&LA>DlS
z-M;dGCI3^(#^v03)U`M1-O;GD3pxv3*DMxvt6u3Bj0=;?S$o_uYss}W&E^+0?G!95
zKROHq!d<@ftJl|1jR`>bENE`_+Wq7HKGprJN^@cA^XLBQFiA>o4|7@k^15PVWQ2X#
z50&~v#?ABR&u8<FX<Fpxk5g+FL~XEeY}`7rc<|Jz=5{f#dUmPd)jpm>hobAI_37Qs
z@txS$JD#;2o4K57IZ$OVekD1P#Z@8G`<oHJ_IPK$M!A*9T)~(sb}L($)2#xu;C%Kn
zuj9v#&CmxVM-G38j^p3`dARhDGFc}okbT1}ke<Sevo}AGc$@)3*ssz($@uAeb4=Bk
z+%C-S`)12M>N!?#xxpDmE3CK*e%<o#%Lxkr;8s{Tc(rBHCex@zUf*GUSmex^>|(1T
zK@nQ-GF6*)b<Ix_bJ6=Y<W!1Fx}BmKZH>MbBi*=-n<CzrL9CQaql8;ffabQYZcq|t
zYI^NG-q3#U>mUldttH%?c@r0WExXGHj1=6r?K60hX*F2K7_brQfe#C#Yy>m~-@^A;
zc=6~nlJQDOb9N)|-szOT2rOTl7FomoVpPZ;1$_73ceY8*R_NZqSk7=F4+_MBP8hRe
zVq$Bjh7{kOnseY8&#nt>v4*lEv%usyk|J3h!wR6;sx8FDm82FFeI+2M9Mx!=p1)YL
zD97C(E{^|zM95j&Cg4t@L|(tq`SOIeQ)}kUy}qY9?Mhx(#JTf4^7d}zsTRD}XXE_4
zvA*EaG~w(rFWYAT818T1&aBj#V;z6yjkeCZ#@#D&s!O}6faZeE+9qZTn}7dES)U`K
zfkJ3iI5t2Oy2!{#cBx+BC+BY6ip;SdR>W8@U3748$Y$B8cF*1=&$}!a9Mad^R%G>8
zuN&2CmP?Ak)KS0J@)`1-J9j!&DXAKl2YWC%d{%Rr@35`xgP5eDudnYXDU!OpPbTXm
zMv(KAldoZxXV9J2w71!6waU$)M~zV48f_-J&pS^PZB&pZO`(#!EMHGSHIeN!KPi?k
zB{l`<9axSYejQbq&$yL$^jpfoBV_IvUmfsSqI*fbIxQ#UFe3{9L%U~BJSc{5;rfl+
zUfMhD^Joe%UjTLke-a$J*7QayxT4Q-Jij@{Scz4+S(cmi(4n_jy$*|mG3k~A(#}hx
znY!Wm?8JN=Rp<8cSRxl!@TML4Zs_d1g8(oYMlH8EyPT#gh5NE6inj<g#Rr97p;SX9
zF&<UrHfniax|dDe&m^nIow9!0K7j@`Ve6siHlwY5(>6|LxDvm-iK^RtIi6Cuw6xUz
zozl#Gx#Vh@mPxygw(r0c+iUh4v8FGaqr8-BV{Xc<upzLcQL$~RKgcjqF5h96)xYXt
z_es}PC(9P+yuqNapFdBibS^JU&sLu5YKR?ynrGP(uz4rsnC0_sbQ&S9s|$UH3kh}t
z{yOvHnM}}NsOzdduzh0P`*yb3EUZ|9k^#`;a_~Iql$4bIFh{dG=X+6D$I)upbm~@5
z(d>z*NJNtj5VC=ihJ7?<9GoBu1F1w*{p3^6MGPDrJL%mcHf-4)3x$f16#FXzUt=p@
z0G{zfRZ0_o+hH=Vzo%es$b7s=F~h@0i=HXfI=7lheIK#xi&giWpt^{%x;RrWGYh%%
zXWbR9*?1*6uieL;B<X(k0z->`Xm<9C{klA6TZrjVSm&Hi{!EL0vD$T2J8_9IFH<Gq
zw+3acnOJr%?UHLlf5C>5S7$6M`k)mlwWj9ZNYx!`&rZ!=1;QyA82weJ-RXSb@ccP-
zsfMP7K=4ihtDoJIDq+IT1e{xvYx{ahKA1YK)uef>J**=3r#QK(LA<g3E?U}X=sQ>Z
z2$X|`78@ITnLwjab#9P+Dh<=N(v@&q4JTv<6*Z4_<PH~YWajOXk&>ESa6M|;zJ4|_
zoDWDoe0%pprB2<=K93*E1G@8B4_!}C&uwyYu8q9JluDIrS?M-<E3?f%EG!9X8fbc4
za<VKs-m)dNbk00gVr<OCt^#NO(9lGG4kZJWY^K?&uV3qmA8u)kSK>Ov#%2iZ#)a8K
z)->r|OsIn-0CapU-IF--?<dOMYl<08T{cZliWrI;yV~kMsY5Y=^74Kl-pI80an`(8
z+@o_ET$rWAt&F@AXU1>nh3IhR&b!B7-p_ny?vnACYB&UtJ78!1IUM`1Gt8G&5MoxC
zqr{@4#yV>z!{KGoOPA~gB{?M^ux|S~OD|z8Tw{={o@@A93JD1ry%ySPq)N*m<dBw~
z2hG%Zd9tj3pc`OP<@NiH{K-#y2x!InMK^UY#J00`q$Ra7LKa|otoBQhCYwwsZ-6s{
z2K4(6%z)U(Q7~#CS(qkv*|ZsJtiO{!dFe1ezaqe8{YGY|a1`@>LJrp<r!;ohb{!9{
zJp6WM%U2+v*us@j(;b;Y0l?dX5Quo19cO+<SPwT1PV|&4LiPAzcKU~vfRMv84QR$>
zZ3QA<L+9Ju+ui&Xnm6>?JwKir9{wT5>F#0#%RkLmlKm6nMT#oGxh%8ePWW78@taQ=
zp*8^KWj}QrdVB6zPB{Ur(#(55wI*h08VoOA4d$=ZKC($72gG5$fbJb^f1XE<)g$O*
z3(wj1wl?9S3@KtXohC0yg$Oh{CB5%Cux!3Kqu+sA-@jNFeZ{)zhTc(r{-$2~iXgr#
zsL$Hz89l-j7U7|8s03y#AG{0*Cb{5wLs$3B>gs%9z!mKjWx-EtOJM8y!c7{DVN0wh
z{8LmC3~D1EQc%%{6Dljfe5zhGf0yge2oI;R^qnScj-%<#6@4HvQrPlMTTiuzgJH45
za!`y<Zx84P7uj&TZS}qKF(z$3Ec#3_oyLAXnz4K4f>7zp4%QX;L^wcOa2vfAo)~a5
z70>g{WfruniE)ySsqdY1m=Cq;Ip8-ximRGewiO8JbANYqNy%pUmsz2B!>5H7&|q=u
zOU*ybP^*T3kw3UIKaS#eJ)AxDm7}tcKs+&mJvABlu){K;$KKAAxf!=*Ncf38q2KWj
z^K+__nzbd@wdxVt_DoYvUvoPkjX0pTGBsR-S$b<R6!4pz0sAPhq{8120wV+_Uc;ti
zmd;<FAJuSNRR=%pp91OD;IOuQ<m1x>CCO@`FCaLn(aP`1In(Oql-YLQ4ltYekuQNz
zKWYu*Gq3^6)im<#%)P%-_VLm9U@#I377Z*HN~lF<j>_zJ6r`APm^>`2tt=V+Y&9zn
zi$J*V=-Ia+NxgfUGcLDhqPYCTXC|7TQOz)#w0j`1cf<7ZZ9TnV5P?(81lBO_%xl>@
zJWt@~!%{&%O#L}%M)-ZF+Slh5EOXIF8ykL0*6P!6?7q9v;QE{L@1<UqkHoZZ-AcPv
z`q*Mkdu2AsRRQ=rs*YLdD@8%P-?L}EC&o?)!6Z8uz60*V69%47Bc+C!Z9=+yHs+O|
zkNZ;`UeC8DO+>(Y=r-rlqVg^7%z>a-si~C{s`H^A3Z67BqHHf*H%V@{9|-B6S{g4L
zuf1QP*<-f#;WJbiRg>&ewa^pVV*c8YsOg3WW5N<AZPfn-?8W(d%^XR2-|MN5$_ULq
z&u$0f3u9A>Gk%(7I#yH!g}B@#bE*AVK1v}>7u{6=qSuPUV@WqdnBh7U-QUQ;#wIR5
zsQqic(=iD?+6+D*NZY3nVzo-4i?fvNMR~JULG}URg%&~}>7&-{X~-bN)l@wh%X|=?
zA#5q{ug@jJtQgPQyvttww8u0S+qJI_%MLQGLjNKZganj}g}i<9=j@@W3i@nCHQ!Ho
zH4X7f)!J&`&?Y0*ZW8^AkGb^fl`Hk#MfaUUCx(93zSdx?Il|6f2i87VAJBI1-a10i
z>vynbV%|102Lnr+(-rVZxUop+&hl4|r0YR8DBEOP3lz!@1*m<O8vrI82Cq&~yit_p
ze&7ZGczUyjVbzmRbP4obf5(cZQf?|CsM%jDD&F-oJ*NW<j}{oMpo8+IWMT0>TcfdJ
zD5-EYNBrgoq3+!#2aLNQqM%o6C(67!U7Pel0%|jp)5Lj8XXspHqoe!o6bXp%=vDEC
zQQWDEdL&N$sVPC#kT8f^G29!YVl25apv}-?3H4Nd(09szYcGwDu_4fyF6j&#Tg<0t
zAp#-NkbQ!}tWgW=P<NHJ7DI&`hcensc$z(^7`~qv)YoYb%P{AHXtG}x+wapS?>%~}
z^_t4cv7q+$d8R4KGvK^|Yo4axlFt)zexCib)z2ChU#=LNT=l}$#d!R)(ClzCp&m69
zuFi5LwK>C9B-C1vPD8W;0sE<_GlzqQ!`8q_-h$VB{rc7KI^#bD-yd_trH9>Z4_(ss
zBgEuH^;|)wj%nRr6FvP?&=`5a0{1~GT)ri*ruGh6#~p}JL=8%xJMqu&>h_UM`jsqn
zR9-Z3(7(^xu8^x|p!oen51A9lP)|;bxJ>(`cL&T^K%|$$9E$I16qMAXA+x>gqs2z>
zV0MwM4izd-pFTH&3P~3*l*XeeDlYE$<Was(`EGTyq74KvsthfL$O5mY?puns(BUz-
zq+S%;_A2)ZkY9-!Z9_>GbkOs~rX4>?j38&&Y4ZzfDEjN=GjDGCv;aHRv|>`~5Fr~)
z{#@bopPR7thZM8^B$FwoF^=D5+0K%{Ftl&tw-^sYSn{wL`Nr~g<`K2#s**CC2S$FQ
zBN7DSdW|to5;iW+?^x}jc8wJ?Mz@K(`9CVqg;Ub#ZxyPA=Wfk1{+k7GaekegoU9gv
z^2|W&VFArG$nT1Y?_jSMmOs7i1SX&{EP^ZHsl<1<UyzS&@)|;OU!7`#;z0p{R!<)v
ze$<~IPh+B@K4w9wbMBmTp6}38v+H@-zX-6)F6aupe6oH8D311xW%IimJUrEd^)Vb*
z=WE587o6K4dwJ!*p#5wZD_~G3#x5VCJ-+j2Z;zFLH&LGkEJB^<ZunZq)Zfrjk2lcf
zyql*HS6}6n5CgRqWq&zN4<qDFxP;|Yx`c=@_gh3@#^WD{PPkmUf#7e6HfIJxY(sBU
zWtsPW%^x4PZ^<%$9q7^!E2r?r_Viw+G9D3;!n&Ee0wOIfEn*;Efn(7D8gXX9P^ZNR
zy(JAj$?T#2ioW<=gXsbjo__|Nj&rEBrsFD7w96_iazWIza#{^k-Fp^VfLv<~Ov`n~
z+Orj2*b*DV&;Y`$aKIXbeup0`Fs|68T!$Kt@{HogvE~AhuV0Uu@-}$_Aj$FvOUV!R
zcEABW8t{hjDWT5#2L%mTW<$%Z1<WnaX9BZgc3qac=&^0~?W>O;MF}gsHNSjaK8AW|
z5bK<CK4)p9LC5h3BuK;x^au?#zJ0YKkcZE-GcTFG7aqKefLXU&**90{U4}oeZU?GQ
zQBE^zIVrU8<C(&XRCFab>8u|+KMxZ%iy084>8n47Gvh8t?8Vkx+oa}{eI;_NBdXHU
zK4oU7`52grg~lT<c@?|78b9}n8LH>)&)cUTJp<l%6qMIgL@g_`%d_mS*!)@4>#oss
ztO{nXGR7&xq+`fB)Qu<K7_J#0?q@Y-VW%w6Hj1!mIOkp3M?A2M6i-Jz{c(onJCrOs
z5yLHz2KKDOfKhB^w0p9!`1zo(-3r_4yVR;Wn32{a-%g+`$&`3N23Aaf!*o4KL&$op
z{RX6QU&TbVw<9A)L`VYVX(p!<Y)=+ywvTj}a6+?&qf}<Qg_laE$#Hl=gg@u9(C2_{
zkZ#^976Kzf+h$^D)65(;dMt?W9Z>wCmeiQCtjDwxl9F}Muai*t2sfV~OSjWi{9nC#
zhvGbpa6ki=%8Upki#}bqZP5@>huTaF8v)Q}QB6R~H4HF~Ajms+?Xm`(A-pCB_;c1%
zKO|uJDkv-NPm16<AMWeXXwV3Y$NI<T9mHJaprO+4+m`?VH4d}t0B-<3!_f|l^5f@o
zKcSry@|!lW2gF@s3aw#!#{yTsZ!sc1&|!WoK`+c%ktk#k=HFsS$*tOoc8@J(ILsPY
zwiu)@(uN;3{QM6~|ND}jO_#e*elu`z(X9?mK<Sq7158P`==;jvW(C7_23RO~7;;?`
zcDP|4gyHGfpr!WBoi6`~)VDPe%%SH1+|DQ{oQ>lrUmUw}OZwz8)~n*_Q}?v!`zNKP
zrMG#pq=8EWez`@jB^bO3d&A8w2f#92yKEcSl+2AAHy(R?Z?*QXx(pyz%h#-S@U2x{
z35HVWBi}j_NsrxO0{<gfdm2VoppNCE(6S^}2A1<ZC#J*-BkGaGj|Fs9?03>A_97vD
zT58-yULg)5(nmglX(Jfp*!Is@^XFO(sgC3A?mZ@P;Z0@Bj;Uo4TXb-65ay^$Y`moy
zs4|Gv3)b1O4pnIE+swU*%lA3)-*i*${r~-uCR{8Y|5K7x*RRKNxYZzs^rH0EW@|oK
z59MRKVF;et>m#eQ;YgWoYGAqA>rJN;mtyJ%pKH-aByQ`zyTn!;QmNa!`Y0KDpmO|2
zyT}foEZ3&c*w`Tt{mm0i=0FM?Hf)GUq!{`KA`zcK!)16I76Ku}t6AVa%MXe)W2#va
zw{{;D5K!5?dGpuGN(DGIvGMEe?zCs6V53l#bmIfGQ(FiHBri{}WpoZfoC&<)9SUps
z)|(?)-r-uozd1xiG_i*w5~~=hXPwgo=p)f0e?R{Bh0OkZ-v5*t`F|9QBc^Zr5qGU4
z92{4m+tr`ya(Yb&sYtpI3e4(EjL5=uF-64}iU}&wfTJpbfq_Fc5%&`dR~^(rHBl$X
zs*!D(sX9A;2WlLV6N7MU)vRuNl!Yatcm{k^0ge`*ejRJr+*{7nw$Vi}NB<Wu-aL3f
z4#mL!v9E8^tV2|E^kCuIN)qLkEsc5hmexOO&MR^hCj1$e@cycoq;cdm0NWZY2#q*w
zYP=;?98s$*@kIb;Ll`B5rNRr@vGmg?iepJy^bU|HXR-11(P;rA>d}38VY3|9$opov
zA4SO@x?BxfzEf*V&JfaEK_K5K*srlvre}Ztyrb^AGE1b*ta~2PQKWBk*CH%1LYM{6
z>Y3C4YPJS!7(!x331Io23gS7$<5f%5OOppE0)$U<So#$Ki}j~|d=Va~tgLJV?Sv-?
zpO8C$wn<ebRo8nrr&=t(aqArz{6ukHA2bgh*+kU+59_I8L3E&<)`5@^K4NB<ORm}?
zJWj)fsXoM)oGv>=h&?7$kfHdbCM2(f?&bPj2lOR=1(mxVqN5JInC#Ha%r-vYG;jJ7
zk!og2e$t_WZy~V_!VGI9VuH^F{#<*w$!YC%c>(G+fzZEC%)(zr6<5HlI#(?LwSVa`
zi*=kIBP0+7^voN_cJmoFT_r5nO5J*p4NT5kx4sU-_j-#f=r=^j(V+f~xA4*kk8c_V
z5W`FS9WbP?TI=mKeC;Thh^pA?{%<S=LL7$P#-!c;;^)>}#7zYQUIX^KuD?Dtv+z4K
zd4iRZB|-Nm9z*Uthd-#Q<2^y${h~k|0vronRu*%5-1o3b5Gu@vsW&k(SJ<}><rsnu
z)z#GrYP3OVCp^b8CdaG0y-Ek1<F8CjO<BPqToPpUV3i6yc?o@v@{W*Vl12i&<%L(m
zunN)0sqXCi^RcqF4GSbw>;_B<s{|TjMl&zG5Pw!+<l{H(pZWQ*`fuCQ&3XKIrIU;w
z)-oR=Ut1YYiULqf=!XqO!bEtn<%v>sRFtUe%CP2o#f^YMj&nwZ(}aQB<+5b_Vdzis
zam(p_5_mfyM@>lon!G$<O5Pj&&b(~a!4G%Wla;r@@+EqgfW;3_SPy$8qKi7AK^#FK
z>*_rCD7dTSL9r(jw#`?;c>aOKwWwibl@|H>b-cPwmU5<vdir!_$XO*t!%ElTZ-uUf
zbLdYAdCV@qB8XsQuYl;f=9CPTgqh3Y-yjvyb~fLYH7|6va6a(L-1$Je*_!BS%Qa~l
z&++JU`?C{e#=?4%sy5nLT3E2IXzp(cMyHgBex?V^HXWHL(dosRa~bwZJ$TkT1gNC3
zE*zjz5rJAn#w7f#;41*7p05_1zM37eclm@#dlqGxy)!f|E9^1F+!3=$!g1%&6ccj?
z3kIw(RP#6}?sNU@IC2Dn4kpbT9zA*#k+@ElCB9K*pq2FiVXR(I-w=Lbx7S0o8%1nU
z;;-^(HHq+nX+Z&o48nI>3x619Jix-wpHa*^Rw#cuMA|a{u>JAfUNHCG!uvA>frJTv
zy*W`m{btcRq7#AEVaY2Yu}ehIB>Yg8-W<B};wM22!Q0)b7$T9)tlJ`AhxnP|XdW_j
z26a&qpNIb}A=0mSjMVE$N$R_X$J9;RJx-aq-i|zMA6>V(Nz7;OTLh$Dl%s+Qgn$u(
z<o<J=v3(!nYw)q6zdU2(AXenzt2IE4h(cyb&dKJCyf1HvQ{YG%hv{<NCO5xs`Dr-v
z2()wZiG-HC-hv9cNnFVM)icxu$tnq0y7I_MP?c=5wkA<0#vGz5IdV!&V7mc^rV0zB
zQhK9xpDUy2Hm}l1ltKUJ&wue9<&oW!<%+pqd#BE4?@)+uuxsZ|R)3#ss!u`sU^%GI
zGiCFAQ4RbHo{3}$v$iI9C}BYa1+nAJAbZ{U@%d@cDbrAsf`xub=DuI`VXN1B9Fd~x
zm)-UB9de;6*%r}V3!K?Mb^<`S?Y+N+GwYn3oE-bnqmyUH{b6Z{z1pbx@#9CryFknD
zTfa`LZ1y57>UTWGJD-Ac{>B33<?&5=Ten|@g923YREr*8&Blm7*w4@Jd03bXX{#37
zi4(OWf-i!D%YCypaUf6d<;xfLBS&J>EDx@GeR$u-;pI)8i784lh_CdB-iD0*oE0H1
z&YSieP+0b&nTcYzJ-^<%#SZI$0H8wd+CLFkWz~l^AROTQCI{u+kT2}i);;_UP?c7y
zl%Q&Xz#O?b`)3`T>yR5*pNCbeOZO8!(q1andC5kiZX7{Ix4wkWpp@Z6D3)k(XQJ*8
zEA_wMbvOI)=FeZhPQ4xBxq*g<B#B7j)GM^moL--^>r{NPJmOIUUHa^QJQYXiuGg&z
zG7a&tz8FG1p>k|@>U>nD`0^G?$~2o%6^S~)<6X&loydn9LRcEAkMV8IG&L<4qdX9>
z^+*4}z?ED4#sN?n2Jda*oH#lPb0M0jT6~OMAA#pv@AMQu>_5n_z<}TsVt9Amn*QP@
zYjJ#>WZge37m?vhv!B*YP);cxIT4JefArd$SQI}ZdIm9JcTJuSc-B?mJ%W9e4Wn<;
zY1l<%n0AewV5&xMVtt#&#x7YVs)5i5>|YiA9QeE{;I}ETeD^$en1PUF*z`^g*Ta5w
z7YYhd+_?&uEwaDN|M~7D%^Od6Zj+A#?fXt%50Q>xpt25YH~RkZ(GWzs>}5iA;nVp_
zlca-PhmKq+51yP?p!qD16S$=w!#IQJjKk>Y63W*dDC0ShEcxJ&N5{k%7C+bwA=2yc
z)t9pRE&gB1%X!%Doqaaantp{KjX(+!Fc}W9vi|(;#nps$(3tON>znfAeyK_3Fno|^
zac1Wz;sS^o1IA1IbB9&E6cqkTHN)F|)SkW5xqX}a3uCd5p{%1vNkm0O#r9^3i623?
zk8^N%Ni=P@K{)kTd?R}a_w&$DrlBDc6J7($=l5%tSPel%uD*9q{*D)%Iu#(%WN=>U
z@Qt&t*X4o#CY|g!=qnhBbgrE<mynP;=x`m{xc}3q5wJvw)XNb30r7uM*Vu0@seu&!
zE;jZEtfctj?p_RWB&yyW6h=vD=_X7y@68Wxj2k$r8%SKmbYvP2ctFAR$nADiZJIdn
z3KI3{gCD%i#N0A%@N+u;82|Y@UC$G|fZ>09K~rK7xgEpuuD>(*|5F%FOFKllKMhm`
zvIHHv(Y8mA+4Dy~e){y4`w212Rku>iOhvz?v>5qCfd)-$P(Ik=ReFola!oWVMdiv8
zAA)Yd<>#`@3J+^*YhP5}6)xC3;D|O~rYBVFTe`nkJ_d><hk$@UL*w6(l-+8z7Tb&L
zm4$`H1@)~BECfUY&p*k-LuC2Y_kFmC9>)4*(2AXhhv#EDnIMP}fc$w#Uns(xiIxGH
z^<E_bM-|`!6NIctH}&X=6LMf^V1e6+XP~O}UlYJT3-);?-%3#?0>CRsxwEsgQ(9YB
z*(Hv@ZiMsg<QA@&op`E*J8N!xMwal7D*PG4ACvYZiA0$P!S9>dnvWFkXx9CuO*-)R
z3;ZuW>+|PR{$HYDoG`x#{^cvYcp1s?r-)QuqEn9|TTc-S5gahgzrPyBahyW@3}inJ
z9-eEEuxs#Rl3`N5B7bnDArndj`hoaxbCQyaO92uhZ{THK0Y9dF!wj25z-A;CdG$uS
zu)mdBlz&~GAC?1=_Z)3WE$f}dc?Tj!H`J66Opt&Z37uyJ|K(b*q+=FZK~2&f=S_$l
zND#kq&@F9kp(z9kkS~%a0)_omA@P8Jgo1{))(9gDSWDC7EQeC!b)Yv0#dL1@#OX9V
zwhz)rp0Dd#ojZlk7S{{0enDgraN0--f>#ragN7VyL*tGd1%xW6gHD|~rSyzV1`)&t
zgyCk8g4RbdQpqxlfFJW3Cs+s>?O4G0|9$?H*W69$Hh8$@!~oNzzJEW{q8BFNr(5wd
zf)G=6Q@<Fb$01A<bVA!51_B`uE-x=zEOf!c0J^mv?^MTl$6y1q0pTFFqz^L&oVXQK
zLpnsD@2M&9fnOA=YH(61U<>$^uCp5E8E!?x8>u~DFB~;EhWGn%?m^r%83E%j`?aPU
z#z42Q7;i>`lQ?w5ItVH|Ygf%pm7tNY;>YXs%Ph&>6gsFx9S$LYk2*NyMAd~S<^p9M
z0sZJr$8i7yfDwn0l(M+JTj>9O#BbCA>BKJzgkIt08?aNqD3}}1%T=#mXO$2@d@;Wt
zSUsLq9~u`^65F9e5`Li1LK-qxuJCj{i$WVEh{Hv9suRQi$|O6Vy?YC$>K6s6OYvnt
z91p+WU5zOz*P-W4RMcnPRQt*{(0Ylr=4;=G?ALGU5)x&IWz`u!$@}?88p<Mq95@Dy
zCwKk&bGX4h)h70!F@9R~8eJSmk47kQ8~6`9z>ijQ+@z`&wn-eI?kG_$2w<A6`3%20
z)h=?7fF4j!75&nX5!BJub(jhDj{-(@Mn2SUm8)hL<l*4p+P$pKkENv&#M%d;VAxdf
zGt#ReQT=Q_^7{_3qX=$7=)I_qIfHM4StSsnB?8XG`M&3Sz7{cKqgp;B8$pulGFE_I
zdO1a0ypihq;zx}J3Mj6z@nm-X|NOIkh@C`>or`PDPz!N%GiwB%kX0g^h&z9u0%ruz
z$Hw24Y*=7n1Vp#ODUi#4Os>o3`-Gj8-L*b*QxP11I8)?U_~Q9<yC2qDleX{KqpGzq
zCgcbplWmlu%xl?y6}+2BZ!}4r>WBi|IIf(04#9Lk?30<n`bOd$olT35pXB<AYN7d8
z?$peQurg&(B9fBzIR7jQHy+K9@gfd?3LCboFT;Dwe2FN`j2#!EM)*tf6|Vd!kaqh#
zI$8yXUuwM*4!vflD|F%;c|w^mPM|CX0QP-TSaQ;!n>8?_S^X(&%e?o*0H+h`ha}8Z
z9J(Ng-tSn`3L+jMI9oG5n-4T^ao2GFOKdMd^u60QipcIC$r>AW*RpFbyleJhWmivy
z_1g2VwvR~{yg}sxD|LC8od;GQnIXe@2&!VO{*I!a)wSnc_Un~>JyC6v;N1Nr4#%L_
zq?>jL11M|43~Wfq>@@HR8)mF3DxLNG0Y#VnST6Dt@`Dm_cV2bAhbD*v7YDo<c*M}a
z{G#wKN6`6@y2k{9!aXAB8G(l3%_Yv5&tu=E6wgCJsCd-x*18=70giU`?Ac)IO%Fnz
zKc|t1mQh3h&O!)5@xq0B2x>2^^GpVy)P_FF;9j({OAGQSafS&5=zZJhZ*dd6glY)E
zf$4+f#g7etM(5?_NuE7*fLpCgJpMjud=0gQIFbZ|U1=<z$nMDxe!MfL*6a1#esEH^
zCAiA<R<9-{m??744omTxb)S=n&UdpNYk!L%p&gY$2acRb)WOzmNKic$R{mE}G1HBm
z)}Bx-?J*;Q;(n~^){P2G<A)9(4tf^mAL3T2gQnmYh4{j}u<<y!ZVk$G3~?A^Z(Y$W
zhh@uV4z=}a^;ZaS9go=HO%sYekoV-!hG2PxgD%+R>0!O%c%nodjE3^Q<42Cvpw1nV
zXjZe7@^1rpXo3ZW*fldIt<$N4R+Mwk=gR8p09MfM&-45KzO~t>{U12=!GDNjq!?5k
zdUqV4MP`Oj(ugQK*qpD>+{?0wO`NDwPfKsrA_ts)tCTV|(^y3%=*`u@NCf%S%}Z&2
zXE0}#GmHXJ2C(Uwe4CB=gNeW?PR4d<3x*=C0(GL(exUL8{J$OZ$fs@veVK1(Ec=0)
z5vzd^cnyE@3&L<_i||UYVQU}Lav-@u={pZjn*flX_Eli-S(~c_!X{$)Sy@>Y<Gy=N
z{oY;Z(!kEY>BJYmLx9}2-V|E@cF62w6xVpa4q6$Yj}YheX0Wc~5M!fLGrNluJBhGc
z5h}{~da|y*KHZ>^o#>VTUW7!uI5!#(hT|CGR2c#}l*m#e4+q`Pe)Q-uiNfV6FIX&*
zkgtxOIdcOeRqIB!p8e{$7X(mR8k*~8MY@SYV1(p>H~cHU7tP)eEa|~$>v|flw|o3&
zWxs#_{<^&UPJ(>=U)acB){WG(u=(Z(Ua%uCUGksHzak?;$HMqv7n<geAGiDZ`|+KQ
zG&G*+ZH!vaM%F3dL*g>n^FMNe|B*yAvVJJ1&-=63NZTVe{dRTm*K-dJe1HM?`?2GX
zEkpb)dSu=I_nsUZiv#fyI_WAn8oukl{NUrq&x2O(S^RFc(6$^87W-7{J|oV&lpFM&
za(F=ZFGDcz;89=mSl9D$WtCyyzJ0|(q`vILY78@j`;PCe;U{<B=ebVsgK3t(8%y+v
zOYys2^m;-yf0)DQqB8NHEI{l<C_{}nxv8V4SAU;Qiw#xF4}m-XkdS@fTS=kFB?FXQ
z1o8abWA-3Nz|8~d{_ipu@$TI_!gsj|w-Xx#5~marIz+9DKyLs|fT2M6IA3n1907~?
zw-o-hVm84Ha@U$Tv?KlNY_(TO&;Acy$)))_dOpv3;>6L9MN#G6MbWJ9Xa+x4Wz+GS
z6Lt@1o40Rm7b#)J{Q=H}WCE%ZhzWRF4mE;E5J5Uc#w8BXpom1I^YNf1)=X?FNYE_I
z;-C5RogDL>C{29YpQxajU#J#ddWV?V1=)+gpUz%JQ$ce3eT0^%#m(J`Ug)*RBk|cy
z-2BAxyP!Tegazj&P=<1fljBX0>zpMaG<OY0crZ~~{P8t#bTt^r1PmY2kv8O~P1gR!
zj2C$!ZxgDHIO5CRn)aQpYtF_k?=Qhmu>Qy3_ni=|eK}sLB5{KkBVt@vgue4I*}caX
zE@XI>{mN`}d<gL~9@l-bTTz0=xif!nu*Y`9trDyscbGH--^TmTL(`x#GbWzeT><A{
zr1sz`xM9C%sEOeb@rKe8GBN=rJ+X?Nz-=IgUk!9NIT9~0LlT*@nJ3_;$tVjke%FA4
zl}7WBO-8>Yd$*N%j_9@$?%SDd<+BwDCTxu46u;-h@8!!_?0V=YOCgzvDg3#6L&Ih$
ztFWCUWn`3)8enL!Cj36euls+$H_*Z2{CE<e_(I6M`yP``7rcr0-=79f0!6c8zX`r2
zsyHL>oe$r#cewo?3I?3;R(z-2)67*3>8%C^!hK~9;$@qJmAISvbcxsC#b2F8z7Lju
z1|ucO4y2iOX+U>M3w2r4hr_|(E~gWUT2Exl(q+&7elgYj&BUdw>;k8a7k>P{x@VYT
zVbsh!0RR4PQd^85ZM}dHEPsXXw*a@cqaq=fC{aVKD0swyVb~}Hc|uD4`=qaLrS3H%
z%KUMcOe{DP%e$k*$Jn9dLKfm(pG|H#44Q`3lz_yC17c^^$dwWp5nBi1iz0x!KPvUm
zZ|5MkSFK2``6XT?x0|>_25Sg{r#U#(%PN5rPro<Y4!pZtj=R=w*?s@sIKxdvm)^aM
zdrKly4!LCy*T2Q`+;$vM%k40suuv~ji>YTAitC{|_uCl9TWs2&+c9>c;)08daFH6$
z*mtg>6+_tFW89u4hcBq0p%EIys~?FariR?FEc7jo$}oTbXjm(Q#Gyv)M*<oQuZcL?
zGBGLGXHqW<^E~?^%(6v-``m?Zo4xkayk2+DjZ(Rma*>@@g<YyGKygHswl+-7Sk6nS
zG;=Icwk__`3-(JiO4|>udrvNL`SRt@lr3zjuUe`XR*KHnQ?=+--9G$dRgErydqD6^
z*Q0080+$2_mMVfh&<4*ZC}y7h)MufE*7_~elvz|x)W(J%2Q+-pp0~|wrW?=#Kze|l
zX1a*z9r*j0!j77tv^c(d%PVQU<nl<D2V`8FEBl3~J|8>+mD(XME{;+`LE#tN$bX(a
zyAKeVcD5inc{@mbY_tDMB*cFV3}}Ox+2JU|4ko5CKCu@%f;g?g9eC9ar^R<LFg!v&
zMH>;uZ|`-spzOBo)dTjrV_<Lr+hSdHkmuirL!|Y~;Z-2<d+NJqEvf9t@__4c4d<_4
zry;2OlYM7*GkQ}{+$TfvD*`8)fJ=A_DcQ?NxHB5^GNwQTzU=n^3c(gEtV?!wrwt4Z
zCvl7;A}Wd;TwyP6F)+-R7#q6@+wxnM`9W}fG7^aVM<AL9AdNR+LuxEFH#heJ=@sFe
z^*57WS496lzM5yN8Mhweu85Y6qO>84xQX*fBscJ-O>opim6hpnKN&T(y~NhJt)oLm
z@?jEc)g6Jl&|{I!jl$dRy0(IE>b8FquD29tXx68zc(=E!H8eKbd!IG`PEOj76JgUY
z72_|7i6L=wx;s7TSh*eYOi!Oaz1xzi$FbP{=<iT1o|W*s$sb%>Q{y%@Wq~tm2Sh}e
zb#!#H>?RMWsHo77$$uW2C&SCPU)n+9cKS78Gao4IEI|5j`(!%95-i^Jq!*m(t-5L$
zT9f=)MbZZp^!yAye*Se?G(#CLUcGwa?oN?Z1~@9Gtn7(X;^g=CTMgUq`1_DkeSfUv
zR!aEWx0@Rq8;@{uieb}Kg`D*W3Svx4OZ#AwxiR-@q{%R@VgII=0@m!LaJ0=1XLw5#
zBzjb_=3a+<CjQ{9ByPKjZkw{45;&gJjzUb#%+w^~#8qBiUb_r3w?>0f*kr!Qg&#bA
zJVCYk->>h<iCe|g49{kn^{gX46^js>|7)yNZ*T8p<zxToocX4+bKzar#=H;FotgLc
z-vpq=G0F$!ed|b`k)8<29pK`kCJe<i12fC&Vkt?<dnySg^M=%nyqid}Dk?*>zdk<N
zMMm=X_YW-thXda`0cKjQZJIYp!OOT6dB^^NRMx+HDCa$n(b7{<U@CiHQ6D*S<OA+$
zAuA_$cX83-Wu@+AKbnz~k7!CSHIa}D=t**2;XtLl2iEb;P}RzcmpJo(OgWjv?r+Ov
z!c9+FX8UL?bNe<c2?JTuXJLP@8>c=F^6>0R%A2CZS#45+qE}|8!xoi<-AK-nndys7
zLaw@pELNs|U(GJ)`CM`F@ogP1uwjX;`9PA?kN75@#zz;tRT7Z+yOmtN-#|%CO)dG#
zeuI(@v8&t3Lq(3>&Zf&eOnE4wjr%YwD|w1vfrKBcXXK{T7AiR!t&@SRX^NhYA5+R(
zEBSo>d|9S|_84S1L0{W@WaDdZ<Khf>%6F40ba`;!h?{t_Q@BN@(k5!^@rmJ#&=w8}
zzkx1H1ME9H7@)}(eUi!vidVyg_a)`eF<J@iW0fezj<^rUM;jZO<c4)*)R99A^mO^^
z)sGO}PPncvb1qHg$k>cx?nj2NoG)tL_fVif?CAB$bcqO`Bsoe2Cu8~8Uc)rYv4ZS`
z^&N9691}~id9uGkDerCHY5jnmB98=&;DOV<o8gWT`yblDHgB=@ax^K>R`QU3`dnFA
zic0PSiPG+qK5syQ^O$hnsClL%sYaI~Suws8JSZ7iLH=I&%U)h|T;F9}7k9Z`=`lf+
z%LRA&xdo}|&Ye3SOkJk;Jooo!K?=Ek0EaxOy-MrGGB9qPLFe+nI?MMD`&^J4p61nj
zO=DoU8YTN_n(d*0zvPA+FIu#pUD#F~whvvGJGe5GTZ!h<D%Hlj`!}&nItQ>0K3-$U
z7Cbfb$c1@AB|$L{X*k@MWMxoBBl9^Rvo;(ooIL%OWBq4=;aFU1htTVJ4B$Q&XWQhs
z+B*Ux^^VyuUhFpN%wrH)YN-~yI|a4X9TI0d?(wmmoD5^5oN{Y}hQr{Yc7$6)I>!nS
ze%O`?or0H-&pMv-z@a<oDnG3Re$Fm(tp2#_ECa6Oc7<*rC^-1O+SaF;$;sT1qKa;E
ze;Bl)$lZH@3+p75<UM};XhUqH!N;<)k~_Q^+19~FzTwbEcc5TXd;8v<=T*32R%5xv
zH&SB7d6gE=pJh3>ogANoP*b(~NKqZ0Hp95Ca>c%ZZpGzkItm{tU~$5xfolZ#i9~XO
zAf~~lI=?zQJFCHCts0+@uz`d#m^QgMe8<mn<_yCYI!<!4qjyfD*5X(FeEXc+v&>0u
z#l^)YuEu}2a^y|(`ATCWBhb1H$UDf%%DUk&elG@)o6(!f_K`zuS9P~_%v#9oq?u{1
zQ$`O+W_Y84R%V;rwQKirdyX^)N9cg04~WONB{)D$F<bs+Zq%Cgg@>=r*?(b*ByjjJ
z1u49FICnPv-+Jcoti!~k^wwmW3jFN6;AfY$R$M4d4Gh@bu6Vt(rg`py7$3<EQdrV{
z<?ZC{IBG<4gRY&)00CkGG23;&s*iP7o!-06s6A^3r1er9A`<d7OjjWp-&d2PAtMQd
zB$g*h{cU74mpKErh`rvCo}PZ%bybj(l2R5m9>a;MdyeLkd#)&1&G`Dxs3=yMr3Xam
z2cDQtQ^lqILUeNyYSFqs-D4S}!m?@I+<2ES#FJ*8wv31fGMp&8UqAQ}tVHO%g<dBT
zAm2u91aU4v!#BRs0G+W1*(8nQ2XI%E^(1<n!lJHz^|z~iKJ}-oq@?UX-Gx?4Krv+H
zWmQ$nt=D@x$Q7E_l1LEx%7Dzxdx|$ebbiy}43)ZZ>{vTi@baXu>qp2B6KKNUao}pU
zH8eET2W2*^oYBC*AQ_G~apxM(Cr^x0h1l3OLY4mnMIi-A2wr~vTe$QrXrs#p#aI6h
zRRgU@37H&?kn6GCTl9K&KHPMEEa?ib#-|>$ZkV6HaJE}cUVfb%%~Lc?+?}Z#N!TJ-
z`2zd8zJ2qA62Wrn6rGfm6#a=?<o(rQz6ghGHb~E@PkDcgxWP!x9bTfnpB>q#rlH{j
zvGF@b?QgxqHQke5+GtyvFK|fCwALWKX3z?d>3c94<(aW9x|l)4ug)jBe+F-&2baTw
zI<v?9g7k$8>#noY-o7CQ2Q9grWhzoJeh13W{i5#dUcV#Pspz>$jFr*ZwrG@_{5?PA
zZ&w-SZq9e#G0S{!|GAj@^E9R5YirdN6*KQHSw~Oltz%o?>Ec7iHOo(tNAs0_LjH*M
zhbs|J$haP!Bz|#$rQ2VJ0Zt7^O}a`#zQ)FfOcZ(f<za3C#~J@ls^{WnXqtik9FGs6
zJFs<apEakl`*-0dp2LhAq&w*L2UY4;-Db;KccS~yzfE-=7Ibxm+B|br)uEiJ|Ng^}
zwn}vsUvTC2OHWfRA1xlG$om(fu~hY#*;Q7gD<69maz&IxKe6*KUU^6(;nzA-Wqo>Y
z5vP~u1)B95|8DpF5GsKrLKU|t#{1*#V%z@vs#(9LRLkJtV6Ai&>~Ae@`u*h=$>j$l
zg+0l*{slsAxJaTvjkGuATjG3ExMKW$HI^N-*8lyIH2cfn>)9lpt-(#kh>uS+`|rOw
zbz5W$Zi&dgs6JP9D6;dDTfpC8i`@gIsd+>#zL9an&(rh27o{%k$13yEFhzO);{(4D
z`+)-n_y2P}vyR(5*6XIW7}_KrD<?iI_R4=gELQU=>t@CH#$El7BR6@J>==3P>FHGb
zpHED@gY$5PEW9Yar8S;E9~b@iUydZuUE~R_Ol~nM;(X+J<mP{_MlK9)irx-h+wu*Z
z?qZ@VoBuPgLp<M1?s|US^PgW(-oP@cH#kpoDMNMtfgCEVE9vdzcX*u`WXI*=;pcjb
zmBf$GytgxnlKmm<nzMF=CXVQgujStguJsM`%w)G6Puph2WtwSrXoZu8ylC2X-q8QZ
z^(@UWgLHwPVO@NTTdR9Qw%@+-;=Vfh2C$lQ%F4<BI=^Q+(gixs2P6KH+b4@|pG@gk
zw<FyU2O>O?t+ruc@v5~I88AD&|1p43xC<-p7>JAx>b+C17z-Ob;1AJ(2gP2W_}sYN
z{#tya=c7k=zudl8-bZP3MpOgfh5WqRv2t#Dsv=I0&t8(z7mSRKVX4z~Qj!7T9)9+P
z=VCJfh@-+EKY21!(T=4{Y~0}en}Db8RqAe8T&Tavtv1PUZ)rM~i+*Cx5}TsOj69cW
zNW4AM?(|-t-))wz+MDJpX1u2B<}P*V7dlB@lcEtHozE7Q_kABu4fyiDT_^Y9YT~R^
zBZ@=bm!J!emTYrzk&D%dB|Y6|@^<}aA$&H)Ga`>%pt&RyUM{guRP=7yf9BeuqC=#4
zUq7%#)wx3lDA)aGb2S_auI#_Dz0!z(+D89C<o5qAkG#u%<nfJPSF=S$ok{=BcchEY
zisd8EMb7`c!OD|dS7H+=A0rl#r_;xOKl3N0UTTYAzGaI@falMz|5=bfDG!vNM3{iB
zMrTd!KqSYXr4+ec39uSQ0h3}pEjHoH)8+@DOzb2U^AXX@en0fnKM+^4LjC(nBDY(2
ze;_mZmP`g8=T0g@iTVf&?nBylasPEOQPH9w7TI}=1K1G6ve~_3$A&*kICA^J@{@#Q
zg3kT6#2H-fF<3}14)K&;q!uDSzuh6_!hr)rQezux+qF39L=Q%;0_{X*Wb8hE{CI3!
z+y&HOxNGi^g$m~Lss3KeG*0Gefr@M=kEmz3ac_TjpkC-*>6nuB)Pgl$v^#gm?Qa>i
z0bh`zR?qEVBKEz5cX{81^XJK`LWSB))+T^2&=)q)3s~LR9=Ap6Ud7VsMZVOQiul5Y
z_%xN{Sc^eHLEq?}T#){a$xM&@!DO>a;D(>8s@z#6Itn`YvA%I%CS6Sp${?tkvDeu@
zzkl-S)2EvO7k^yBK__8hCW`wktoP;T@7;+!QhfU)_AD0R&45e!tiUb?>5QbC-1OfJ
z?q7Jke-qkLzJmtx6Td*lYj8q&@b*T3$%o9iJJL&jW0j<a#y#y};?6}3zl$`>51avV
zFYg<wrS~Yg3k8sN55LhSSp`wiC{*a1Dav^cKj&uhWJIkF`LS*$^g_M&QhIcPpa(cD
z<c2#9z>0g5DM@uB?k3$iqU^7wzz_@j<cx4MrP2jaQOSQ;H~+ylaE&h!BL{v6pk92F
zo4ftcfkhF3nTvR2&Ijl)<l@$kncf#&Oa5M6@vW3@9Ag*uKF-DEQ9t-VtR&O+&l(X-
zwUj!%3n;)emn~Ab^!CY!yu7^x*+loa!;3+n7qsIBX{Y~ZLlv4Y%7<@RdRkgH8v4tV
zI*-5e%^q4NCoY)g!1CbMqva>DA|m&j34{<BUqr3<f#)K-gx~)`+nYe;+<)D}S0fq-
z4MeFVG@^+#Q6U*BnkR)c7fO=`QBqPu5h)SPN%LH&kW@6#obCptN%Q>fPwxBqum4)_
zwBEJe*8N+Lhw8en?`JsY?7h!EA>rXS5zD1GUIMs)wc~AwLCt`{q3=w4{QHo~Hjj&w
zzxC(~N=3a%m=LY~<w&lO9RYIO#Nq_Mo;F$#@t_J}(7ZR|n80_NtTW-t%Ku1*SNcK)
z53!0<<dBYuNib1KgHXffJN0|I$S<FgqbT+FR`+E(z(U}PsM!&uXyOzcvb)Gmf7ncZ
z79H!gW8{lbcY@YT^qrCP<0?NW=sCe0i`Q9Y@>NW|dcfS=v1>VkGwf8D`FQdwgNsg*
z?z5}AaUetLttM#mu%XD+#?RM(v*p=&p4nF86RC~Qff*b=d;8E<fc3lK>ZoEh@~ZnC
zGHcfOXJQ0Ic-L71I66Ob7`V(WGzV4;+I<_C_?~IaQM52=AR#S%_Pzhwhtl@kBp2+g
zXTrxtjc*2<0stV8`sfy2-G>J&)8YjfYJ;@hW=~k*T^U}5{6HgW4-}9saMqAxaJA1L
zltLrYR&TAfYmFYA)0?Et8&WU~iuCs><BDjgt3w1)Vxh%zJ_D+o7`B!8e17w0Pn3CS
zSXh`K`v^|aY)gU-$m4*zn(&D^Z;l++Cs!(v5;l1h`~}T+@T>ljg^gJ-Knt`8t-wl1
zynXksupEaF^y6lMd#m6=C(E~WYZ`=xN&1-#X#BC9`c#J6wYIMA#*-&cxMlYvsP(JS
z9w-48d3(!3-{HNkf6j%^oqR0CEC#ku3|Cv-)W<g{qkcY$w3d3Dzu+3;zas=qUqQgw
zQ={uWz6j!Y=;>_)2Yibt5J&Y2Q8&p4iE|PF1sU>qK0P+VrGJk6)7?E`L4YEN|NEv!
z=kic``uX~rg0bYXOHE9CSM50|zS74VwR`ptyZ=8>xVY(~zU1iW<9@p`+!jPgTa>ug
z`JLAfJue0KItrvYBR2$DI|K)`fo0TzWj=X%C{W!}Z|%bY7O30<<jD_}krQXjr#H9J
z-uKoj^C#K`v?TtSINy-;Sd&W3!BW7^)pg&vn@9K@gAYY7EDg>xMI7`rZK8wi#ak#2
zl_J@SiS=1Oia^2S7>Z(_(4YgZxOcR!?zHUKXYm~9TSFc{4#X?-Z{O~og%((9O32fv
zL$1dX>#?2?!fYO4a5=A64kxd`+qaoMKb151_38*d8t;xhd)ASi;5k!iVg@jE8W<fC
zPN*XSu{xY+<vIvl?{y_VAH&X2{!$w$_o}aSqOG&Ys^1y$G3)~q`qUwNzwJ6m(n8Q5
zWMM!JU;`0*Og9!qH+ipfQ^PlFEq*(i=!F4HxoQXjNdQ-|*x8ciRrstZjVL7$6f_M@
z;zMnrG!1rbVq^1#of#WJTLBM_KHswNAw3zz8Kvn)IZy%=j|GiqAqNMt_8!giUxlhj
zMZ3e1Y2zN+;^{Im7It=mD_|KWZ}Q{n4dr*$7s;V%t)yA^;3(URe*ZWzFe|u1ffF5e
zadA<+yg@H)6r_^-Vw(}%$_{~+y=g5!asR}t>pyIUM)#t|m^SLc<@#{Hvnb?9zG#EE
zQY;1mA3B7o4h3^3_odCDFo{I%h+7e*)OdvDz{|z~Ii0=qYq(p68Xp1$Ma#r>f;Q3>
zz>$?AD)OgccEy`#&q~vob25Ae{skN_hpk>t@h7ZB!z)qU=nBh=Fexk7MeGRJd%1@x
zAt3<-pj`0b!-u!Z$#FrgVmFmy=LG<DmNltq@QPu9i$>ZLgdk=PQNzB`9Bh%YgFOw1
z(JxO#1|%g3*Wog;kl@3zLz}Td%4P%jZr9PFJxnh9N1;`rP>8G3mDKM!7di#DZF8FT
z;g+yq@m3RJ%#uP=I9m3Y2{dUrfpkAMHZ})pM7cR)UV>;u`2VGof9r_2H9)ONj8SZ~
z%G^`4jZZ~OTl**Afx#440LTR1z^Uj&Cu0TrFxcd-oH}*S<m>|m7x6uNLZYGwZ1o&W
zQP8P>rnzq2zWp9QNkswaf*g2N-{>r!H5YDJ1Zrl=8ED-GhtB>BUk2ybW*}@-cK@L*
zh2-Y2xw!zb|0bCjP)iu^vg28RucxM<Q|sNo=;fSKY+rcs{5DbaG!12e8*`=mq<pQX
zNOv798~!=!FY{76v2f@m4+GuM*sBw-&gLB8t&j^mM9|BRVkcg$$K8q8Ps*RpEkTF6
z8gI@4al`T2p&@YBO#h_7S(o}b;0X?WHP1w+0I;D^M1fsI|DVjF(BgU5liO9-fe~O!
zJdeQl9sXz8)_L$mZZ2$=Qz!N$ePe}RcXbSwplgYd@=(_G(oHcQzyp-Xl!it(^HhG-
zr(TRc-jD<RB<umMCDe_(VRc1-MPvv_OwbR)1e1{45RFqP1du=@HLh2PR@Wj$DF<|%
z|9izL;7HhBSF#@+d+B}b)%Jb{6KB@`Y0g;nvgX<yb))mDa%dPgmEde<cBDFA?drqh
zaC|+3<vdq=zOu%9<W%*83)@uRLd|oHG$W<8J4JS@8sT87k4xSQ3-g;9>+QlOAHGz0
z6U?0{GU7tF6IzM&SA%O;VL87;hEC}~_uFrWEmKFYMJ7vpcMDkRR&c?x!91V@2x!yo
z=6q){ERsJ#9x0-}8PLj3|2pXvfS!UFU_iw)Rrc!I+J1;tb_!yD3$QbQZJ+LHw2+vb
zzH){yZx5o=y^pkj`ZD#IBTw||O#k2l+WYjDd+Yf<j|d=zL!x4J<mk~qu1Q}9`3O0}
z1+cpmNchE}mVK$wIxMuX-!nsxR%F}96Q!lz*<9cv2ql1>RUW*hz0-5Z;PZYfFG|Un
zpUU%E$GM|QYHEy9_HDPL7IZ6L%KqmI@cY7sU1z`-1F=&Afnx`gWrQ<i?n%07)MAC>
z>xPQvhECY~66?kNE#}L#OHFc~|9#+o&%XVtsjH(^4fQcveV1culQ1%mo}L~a9i@L@
zO2-6GUw{inUlMrwZGnQS$Da;4|0Deb-CBp8HEb$tv0nx5#ee&_`&x`<Jnni%4OaKf
zJuGzk$By0JE`*A5A%*!~W%pZ<KlseKQh`CtoA<KdI4Z$f@Ta)SdA&oh(mZ(<?vA@b
z)vNR)8$=F#qw%d>>$6%55<P(Qs`Tfy)a#f80iaS$ZB$CuRtn`O1`h|P6uGj+k;ERD
zK{NFHs`-s0S!a<lQM`#`=r?sKY)gu|iOF!iNp@yalRhOp;(&7_kkb&LUA~MQ)H#lC
z32z03?0}QzW$AQLVPP<iSF(%cm#<C@o*M_F)s#K1*IK+s{2)8F)fl-a;@}xHXoD6?
zh#6c7wPLk13t~iBKOPUbAz3`_eD0u4`>zNCnPp9UE{BQ(S3HhTfnvi7TK<j){HqY}
zK2%mJ85?sGd{9Sc1qFVLhrpXbE_wq>IE34+FJ?a@Op_dovJ33Ni775DGxo;sEBkTw
zcAfhWA~gpiURsI+dbh3&Ok?})^_<@eW!FD5MF1@+ORMg;wlIHxAe+mw{DGV}XpH#&
z_?DTK!fo$Ia!6)U5>qI@DH8O6s(&W7CuKAbhMd<+(}(UtLr3Q(n0UKE_`n9B6JGF=
zP2Qy)>?24%AV(tDJF>c8ljE1b<e)8!u%kJ!Tk~lfmj^M0s|*%)Mw6^-X{oYXuWY(9
z)N%`WZx^%{f12$6#e6Bm>`gRy&|&XubnAbP+|PlaHYJ-<Z$*{Ce5sX@rOz=hC2GU+
zJHHzR4(qdd`t};9lZSZu`fnjsNof|hpgW+5lm}6?DN?tW(ThX+)Smoxv{dK^Lp<I~
zWU|4TjVXARG|);gyInc-tYSDm9iJK71lX+vxy<k^a$6mwA%#a^w&l(S{ZQa4j&0(%
zcI%-IbXhQ2nV<-B{tFr>FK~z%qr`Yk7#A$`Q|Z0T%*>=Fe{y0wiH!)1qQwnR>@erI
z-dVxzQZjH6JSi>%;+Z_KVjhw@iZ={tofEbHUMx=?mbpMubeo#;;_AK*mI_S8?v`zN
z2eFL!<Fle7Zs0c^9^Mmfa#;Jk!s7g=_>e-{j}JW`O-iggwK%Ri=zlc!?fspncER(K
ziA#o+v&yUItd#^O6SwRJB#h<Ip5_-8t)CE+uO^`97LW0@o-pVK>-cGG8b*n);U-}S
zv!)LpJ}6$gv<F0YVR=A|KMv0Q@bE5}-@3r#j|AMWUp0mGGge}SUAiCWytb%~fr(}9
z*RMVV)li%=5CnVD38T2JP+8vuu+Bjit8o(WKLM|eJR?Dlp(BS8Emga)&zo(kKYlC)
zBA(_vY)n{0oM=J-*+J*){lsuN4~SdpWHO3bd=7j9&8bhrBJ98^Z;-#b7fKtp5cyQ(
z5=i|wFah%lXf1<b{59w_xr3o<)A?t55IO`!C<#ywW!zoK$k=t;s6VutY8ZAp{-mg+
zux!~9OmcGFJjb0-Bj;}>nIrVmra0v}$Vo=wCHo9v0j{tm>rcvF>+iRkhj}tlC!jCq
zAM0CkJ)ZK?Ee=Zgyw-=&dgKi#+zgF4VB=Iyomvm=^feN+UOu+#|I;5JTuG=qA`t>p
zSJdi(#Ay^mA<h83cL7gw_u)f-_yck<vJ3YuuK&x>TKQfR)mYl9y6(i2z1Pq*cO~0E
znEi>o2Pa?=teju9xY2$bf}f4LvD9r)|HeQsV4j}ad=}puf+nvIqx-k6^m%2pUBh|h
zo8YnLOnnh(1ecH9Bk{v&JAdLtpx@aAlEjPf=JjsptZ4^b7Nv8C|BtVBqVI`UN{H&}
z&1o!|6&{DdLLa<*`Ep1i?;rO6$&mL(ej)hFHeOyT!3PX)grBFS?f%}azJ2y=bmDSs
zsMPA%$q&iB%OBS3r7R;%%3<fPLOO#KbFg8tv$GS`ukqvk=?jF)tZQhPm6%+iFiiyv
z>ZPs-r~+7`h~-VRk&YE4e1o+&N{Rr#;))2_>xDF%Pe4E*PLei4!MSfv_WBfDdP+gA
zuto`_XvXhCeY{!Djg@HH$F0}@O^dfL?5^1sbEm$p&T)SW9R*MTa$v!TC1hK)=WX24
zlDZqM!kc9rSJGd9_HF^th(By$J=umd+kff=`YEoX<?X2Wi_PYR0z(J$_q_IlV)%~t
zNDRO?XE#5qw{q`Z-GgH~<#No{R)llYCN_hm3-BA<Atp9Fy7vGJtPkRjFegLY)d}L|
z02n)bJP;xHVF*#~ynnBZ;WTGassFyN##`0<AKvIwDW}vZr`BkmPDgMEpH{oWxHvvl
zR`LeK^j^e;oRJ{`o@!^)x>BH>N~w)=5?OEFXr_5fBb|pF`S-<2V)(TpNh}#!j*}<X
z^if+WUt`rIFvZFb3_*AV%0(gPH{yN8rKI?QHAZ`f16=3n@`d^OD<JUFi3T@!-Dus~
z2}LC(8c2*DU-7y!cx69{Wnh9}_AA(A%|2p(QT%yroGurh_y$D7qNT+-yI_s@(+_u<
z`j|<w7+D_V>j0%OJ=eZ;2c7HFPH%Z}C2FGbaX~~Q$)#bAL#efawl+IDz=QS=<<JN|
z5In-RPQwcsBtGq{o1!#EF-3`xaggc|xSXScYN!L@FV#^PU%0Cs%kdo&*v;c^a)Lra
z`7Ow~3}KQ0*jy`vK1N7You;j!)b2u65+QWl)GRG`68Q@nJu>p;ph!Vl=z^qa6b;;l
zqlq)?G=?wb8b1AzYo5N5J#gFiZENpR^Q#`Tv$G5Dw6kvanBv0i!DijqQB7@nRLqW^
z0^|lSrGnMrSG97ELNZSz15lU;Y>DbS8lzico&JNQin#Fc%+H|8-LU7}k^DInU<Ig%
zT+nY_Fk1}9SxAdia~i?*koLenS`nOF_?#!4A9ZstZG#+|E3UrZIPQ*rit><Rwo|2V
zo36zz|Bh7#?p;$Z2$07FP6d}kS%hBMGsrgs>Tu(&d2qDe^kLH@Ky-qdO4blJpm*}a
z=g-OjRe;{XUI<jsT4Z3@O$aCVhtvJ@N{795!p;|<B||se{P^RYbLfXI0kGMz$_}Ui
zf@B(m5vd#VQ4&tKFD;l5{(Uh_37_qsbRxPo=uBxQd3`Y)u<*{$QxbuT-$LP`h`bur
zUH^G}FsO0Lk)6o~uJgNjlk9%rRQ%{#roPmI=M+^AF;^#yU7;xOY>ck8Kpw<`05xUt
zL_c}RfjVj(0@rSME8O0qAb+NUC-3VF*N8lfcc$NMS*#h#g5Awe{PY10jkO5a?83U<
zXjF2~LR(FznAZ#=spx_P_?xJ3O=u`M0j<Osq5O(2Bvm)qgtQ&5tXi9?7RsN>od>Ni
zE@c)xRrEl`K%rIze#nn-?I?rDTPB8uWplsh^4dbG%&!AHOe{QTjaG3*fSAFvqj%8O
zkk++c<IMDfgocI&H{X1c7ej_Y=|HkekYAjp*KjbKAB$QVzmbnx-vvHH7h&YF`#U(s
zn2-@-$t973m{<|Kr6R-f8*7Tc|194WlaX^Aa21>ko_psv0x2JA5QZzG85ApMWDwe8
z-B1;!@(J2ZGb(F{chF`r3L{*{L@gzKeNMy$)_qcI>F${P>IY&c=M@F0LLTOr)xRH@
zEc6pAGb;Rj?<x<f4p>l>!GvgI2z@J-Sh+~XeKM(<B=Z|b)=iuO%wv}3!mhGjrS{cg
zm@?~L_$bR+-Bs7qyM@{WR_6!PH~}2GOIT+~#*W=fOvz&)X$q-M(|@!K$zw;N*&qB!
zOw0l4wRC<aRQ3apM9EB{Lc8Oq<4?PwL7*UIT-YFsi42=r*vC(fh@#^-)vNt(c@_+7
zCyd?*yHgwCdC=!6KdbD%#0%fBiY@{oe*S!{OkWZn#xvu_TcxDf5q|>e99-oPbQN(8
zBgFzk(BUYv7Ks4fEWUUI1P+aMt;2G$jXafc`ZP8LwRGkWc>s*5UJBS>i<|G@4%u-A
zie{fZVg3gn3s*vM@N{FIz`a}7MDGUUcjBY3Dl}dL=3r#R0WZ!gCnt9%@G+`BSN2l_
ztFV0ly`d%))I5w*Aeck?axfz+$cWn*=f-{A-|Z$Ifss*U@9?0J2DBYxv(hIy@!VMx
zQu2pnh=ua2G~750I!el=KUX`pnx_1)0aw9rMNioy;^R5oQ=(v33b=uLgNY|a*=|e_
zfsyL*Q71Q11@n^?f@~w`4&#xOWJ8ksd-5Utd8O9(`ujI^H9kt8Fr(s{IJXL~E3v-U
z$7=b7(a3QVVG81dNsAU3@<T_kIXb~VP8xpa8-fmj3c`O;bLZA+7=Txro*%2uH$0aV
z6GM&v@1gjG)fxK9W);Y|<%1{A_t+l>AdD<^6n-?$iJA9+jiQ&b-Tdd~wHogCEd|Iu
zQdfcg*G^2+>Z{#=NVhb#v}ocj$QPrS*1W99#AQb^Xn6G_508$G_3aeB>tiU&v6@@<
z`}v%K24tzQso0@^UBNW%YoYyCKE7RO#1XwfH{d9P5=8optq?f8cRMrjTFOhkWQW5X
z3pt>@V{R()YuJx@qa2z%cwYG*EM%u1Yt^|uPWx^6_?DpHn{qKtLvjci-Oek{w-tCT
zd8iw()SsX1TaQDJuzwioV3M{Fia4P8kPe=~&6@Ep|HUo;rsujP`9S}#=!DxW^u#~+
z(4WJ(Pdcqi-iRFEO6sR>{X3a9N#Q>m?;QbyL(;hSWHBe<;l9h}Vme2ZTRR>0%E~z&
z7r1AVZL!{H6#|oohg^SuKX~>!D@j1l$Pii3c<{O_?7;)v8wCZ1NC_Y-!seH=%O)k_
zYxZM4JUrXB(IG?;mRLU-YDXseRPBe#%B|Zzcs`NCg8kGfcHJ{z^luD2udWdDAB^yx
zEpF#O*w<7!j{8lQGsI_StZi)G<Gz41KGkU*9i_y2Gg3N(>0lQ#PO|VS8A3u%Pzyw8
zd)`+e_d-G_%Q7<emI{3c(7y@QXuYu)nD9VS2_ZX+N}9=+wv?2Va-jA5f6qlg9)mv#
zwcRN(PwxcsI%R1C_8QlEw5|y5o4qg?3NAkuDZ_@^QYXpp&aRGFb%B-Cjxt6^o+zNB
z8orY2>;4sG+0-iHS=W)g3qvM&wr}75J(i{RyrF3L_L}Y+bTM}#_g$ukDR;kP6vRe#
z2*ubI%5cgvtAI1hfsM^iAp(7#lCm1rNNbZ9Kstoe(;4*GoqvQnl2cQ45>_*;JHV1>
z^Z39E{;7eW)cp+SWu-NDT$=iMD*p6U56vTt?+0*irf$p&Uy(QeDEdo=r^ooK#-q5B
zfELr?N1w0>2Jm4s`@?UMjx%V_SjqgOwMn%WtV>=_txk=d5Pj~2ea)-6AZ|HM1g4=(
z?wsV{tt+YBhc%Bd_*Ngjx~64cvA%?QJM;p;x7mO1SuU_-^;hIUm<)HYY?1X7-r%bg
zmS(ECtL>upoM%8;n{b5rjc}K}*WBZiBB!vCUV~czE@O!FkKCu9J{_%|+72)nZA+!-
zD<m#qAzkb4dZEmT?K7g+;moq=>qX}HGrO3@>Cp399(*reOwMKJKRNBYa<0?Gs1v0R
z8ylSlEA++$jS9!_s1`20Gkf(46xq<I;6gdsOjmT0Cl-`1Rtif_H#l!8!3ksrKf{8%
zdU|@=`-?I>StjD0KH}i+#`>3;-+dVy`wSFaMHd0lI}g5E1hnyXjpqo>e8&ofkpk`(
zIR`4*-#G*!9=}@bKKEVO2*?FWOkn#5OlaPQPjPqzDNsof%||G|=)nVpN5jr5A3F5b
zJbm=~Cg06dVyE@OT<u<jbQN_8u(m<pAPTq5_3Dnj^PozJ2H>;gqhnW16sfvayBLY;
zq>8O`T%31hWn~41?k2~LDhlN$uaJ-sPv8}89i2IeFLv2vCjoN{s3VLbw3rhX^qyd`
zAQt$VxRmPSy0~i1nkm}PCtlri7E(WQaYez2SK@tvNk43|gcesj{wrHx{fg@bVh(VV
z${PRpGUUZT>5EB8F)v@fd^d=pJSykUZzJ}NWz<^IUPH=z9#;j_uSeF0Q$?nXwf55`
zX~u`Zc3kp#n7@BsgEf^sKu98sn@8GS4w*1d<(~38T!Cm@Hifw@ph!jg2LSQ#MP&~A
z<G`3lRXx$w^Su2cZ-kvWhw{+42YQQuXp8eRgc(kv_i9qu(JEsG4isevsZbmhaJgfg
z<!az&0o+mkaSDA8yr&>&F99_DqbCd46vOZ4>@`FHhhq6AoG-=?fhoh+i(UDxtFM=O
zV@p0fCP1H8XOH9P#5rV)N7{vslZR*pF)Or()CsU#@0jkkRX*Mb<#4g117$-p&jL4I
zlsBaGg1i!^Lw)=^=wFo*nl^Bc!o~#~D2N$`^Z#sDC`FqP6$KH=1)lXIqZM1u!d7;#
zQ$H&}0G2+;AMo|z<g%h^BkoH{Nl9Qm_=u1ve2-mA7bIK>sWsRYU@Qosf>Q4Ij`~++
zRX{}m%(BLJUIGA{gTZ{*-e<7Mab!^!LPb#KW6Kw_DA++Y457jbN(nLAOfoKPvTlZ<
z*+sMpoI!JkE*d5<gCH2#6@A`cAfcZ(ys{f27^sM>GTpL%Im*yWuwDXMPs+CP@<V`|
zZh#uaq!>svb^w`Rvsa-QS{?7RUTQ{QE2C~hH2_15EWMUwA$SU{ny!X)!aVR0AD{24
zH(S&s8X6nPV3)|D^{6lkjfZD^o48d&NhQI>#eDDMKi2#Hp;?y4uKT?wZp;6Y1zP=J
zz0|TL0g?KDSK%H=ZM=L@u%8Xon|U8+&>`LAhSeNLF0CkdQmXb0Vo$P_0nNPg0P%4V
z7vN5A32hKWK&#|~j;pD?BX;Y$B4CDz)-m7k`)3iDW+2U6ePrY~SKzH%qr!q0c5TR8
zSPG1jUg<-LJh4K9^?IAzPIx(tvhR6T9u;`iGcp%0WC5sKY7@P_bR%|C96A5Vsc>ec
zEMo~8XH-LJ?|r<1-0jJJ=hbM<03)PiWW)uvh0==t^&mCinB8QV!$<+S6Xms-`;)_Q
zVU^<jA{S}&0+V{QmBD8Hx^)hCw?yO7|9oD?eGP<;WOw5X?*A?B2<VN50#k^OSK3*D
z!D1`{1H}OoD`!sqrTLuhE%!>0EaR_i1cLvIqd!%Ue&GmgCzAt>2bE;H9A!q4Qweb<
z5v=*V&0$#h1ms@s<--J<)<HC<z=?q5Wys6f6o7(HtVXOr-2f}7)uaK1at5+b7udoT
zXcwU&0#_hCq%D|b2~j!2u?UG(&;&s;LXLy_>C?27z0O0MfhI3pJzBRO;k7VGgmcIJ
zG!+`(Jy{k!UO-9`>-&E_2f@F;aDD3b?=ja7UP~QZOE7SZ)Y_p*gt({`#iH7J5oNg0
z_8L%E%bot?_oKV1+KD(KK=OZEu2C#4WoKsn^gZU8^USxH(p2xpL7=QTu*D<I9|-3*
z?L}Nz^hp~9xA7f-`<pu-7s5*GcWXWeO5*Ws)_z|4f;uQC|3@A=gR9+@T?L{+D)&Jo
z4V4>%4prMY9AH6P`E`(?;2&1}erV#gAc;l=cUd&vttL*iW=>bJQUu>wPET<srrDY*
zKq+=`BTZXd_sNn(jTn+Y{zRJV0=@U>fXNakbS$NqdUXvtl=Z0cAUoph9~c;g0sBu7
z?Mgro&gqpyf<b`Y&ru3d+1FXtY7`3u@WIaL8d@QlFaQnY94gy#kOgVyKCS~|up(cX
zub&2}`7wd@xconxU#?NOt+51p(*X{(z*U~L4w7IETW0EY<5%jPv(cg=0zprW1?!9p
z5d%jfL>yM|LUYi$95fNhpE^fxZw<{gkqL|-Mc)d3h;);9V)7S6CEM00F?2E+_uG<_
zDXc5*qA)+AL<Wv1d3bo_H$%=lih#il=a7NSh#lh&^kSK4#&ppa#V!4Pa5B0M5-VB?
z*ya*=3+Bllw#?KA9`Y{r(a~^JvG5F^a-HmgXCy0gq!^ex;>2!Xt4`z}2vuX^mleu3
zLeRVSdbab-n7hX4wmop^8-aO9Cy-rfz)G*L&RjyR!wksu=#~I~|G4UAv~!^wvDP$)
z(J-&7zP0zM|15+?bO;`}>z>HDvtRh~grIV$nta%Y)=`D~#1Gxbr@*{%`4Gv}DznfQ
zo0ka6xl5sB!ZIE}OUlhT3kl9+kM^MQSi5%S_#=1qrZl)1;E7XV78Va&u9+d~H-m|z
z3!Fe)238^O_C|Jk7M&NZO#rB%*jt5%{vMx|+Hm7qUk26C0`tB<UxXO6Q0EWVw$eeB
zi69C1Im=8ESi6&3X~tF<f>X`hjtB|yCKWjzBQPRnEIe*hL=&R#2L6t|hq7R-<wEdJ
z5zeN|a9$?E22kZGqVgvs4N|5Rv#;xz|L3eum<Q79g<XVnqysmR94DzdHp^dq$e}jJ
zi<E8)zbeqWr|LSaW%3vEMGYiwu<M19V6}{34&^TFM=z2-iHuV&Pk2`5V0<FW#*Ohu
zxc<w{E8y-x4_5@u7xXbt%>wBe&fC=1<ogtT;B@$PTp6e-3K$9n$%69HqYMy+r{wl<
zl3NzrUYPXMk=ru|xZ)__VLl8liC>41J4*yIlY3j}ND@FGT$qS4C~7I!HJ{V-D>J)R
zYcWonUqCrp1oZ|{>1%1Rfm`Ywg_sbP{uwxCtH-kre{Jmau`;^o<@fo+2lW?s02!c9
z%}s791?vkH-=Vu*xc=z^+lyPlR+APK{5TWZukdN!;#3j9lmyc6a7DPF@|7^lklX<c
zt|0z8g!zS%ui&5xR^tnHJi!cnD!KX)KnZ~Kp}P98s_H5N#7S^&915)ld^w6vi5M)_
z@sc0VQ9+bI$WFp|Y%yR}iK>|7zdaa$64j~EsBv&(C2nHqgV02n1E>{m^tuTZD1HLp
zzzqc;GZh6EjBle4T&Ec7v-W_Qdker^HW8sth83C^(&hvJguqRmD09YV5+E7ZF!`sb
ztBeDe0E6~H<!cZs)coz>!>k~Bz{P~TW}>H|G162<Ax^lFna}lWah|YT$7<Et6ptML
z4l<^MFfaHzG4;(tf}}Th!@?TW9^fDVcA^>vcNT<Za9%`e4C>g11eRbYr%pi*<cIEL
z(~*wSy^eh>Ai{rd+`f`}aiDmS5rI$l&AC-Yv;9JbFv=hgy`4x%;>3_)PP+bn(B>Wx
zmwI{cX41BaBmKXF1Pk|6FCss~h{?gp#Vh$-cnF#j_a}OtBNWc=550f?2C_mkIL+C5
zUO1$pVhZ84ZjJ*lgiCyRX4Cc8r{Hr$OMwDU8tx4D8>NuD!gld0`o6)Xl@Q1Put=&0
zO8yZ53Z3Y@$U$y9QlqrS6ybF7KC;%j?YFt*WOkgrb;Nb`&3EZLB5Ey|X8HK*iqV|v
zyzlbVB><yw@$nkM9h;$}L068OEa;DAtmxg-D`=9W@K98h51j5sZyzAM5X@1r+}L+1
zH(E2EXXQb~JAe^bg+1vCP`*-AZg1ZA<{jaks3>65xQ4_bmppy?^cmbqi}#=VBatDI
z5l=$}Sqx!5KvZ!fp@bFLrJG%-)G?RK7iOC5;ANIuLx2LIf7j_d&8PoY-May@CVYGh
z06@)ws?kG1aJUNy1sY7Y5bWp`(otv<&~dnf7U(KE5K(HQSyS<OEgC#JF=+81PO0J@
zR91++9-Ibxdhxm?n>aXb0=MVRX5oamI6Rq^s2c!ZZ(5gFLe8lVHWp&21H9HxYipaK
zI3FCkj0A}it}QWm3}i78OM8794Fo-xdwDy0jEi06jJ33U;UsH{hHj$Ol!(Y`e*?cI
zSr~s9%hh4r<6Y<=;bhZ+SZ(($$K?N}aab)sTM#BDTv$h2^MmU(+Arbu1=mJ{nU@Dp
zMFXE9lpG=jC{P}rM1xa(;3P^wi@ML}4?|6N7>$YE3Dj8n<xK=3Q(S85VSpX~6<@F@
zY&FjDiz_};Nk_dL!2q4Mwq*fFC6J4R<vM^jF%?knqpFn;vbD3*&Ip5&rvr0Y1}CeP
z@eGJPvIR4?<H7?xF3hU9Jm0TV{1#coD0)5_apg?Wt`FsZ1|=xz+oa6@<R~5~ZlW|5
zdF)?A?-G`%1LCjuz@l;GP`&zgi%`9A+;6>z)E5>*zWl0W>%WGj?Two^37v~+HLUn#
zBQ2M!O%VZ&yHJ`#xD^Z;67F+$3Td^x3fE^;S}V{BK9uPNREsbkvgqih`gKZ0`5F@V
z*BEdOpuTxv6fcNtn%u2mnW&Au7My@I^BvLBw4WVbTC~S7DvrJI>dKznB5B3?)aB<b
z?>aN7$D{e}3#*Z1*rz9>yBa*UJjSwLhj|Sb`u~}a;E{O1I7c2yXlv&cy)X@Z{Q&IC
z7EG)Fccc0HI~2$zv1Lp5Uwr#TviJ@hn4vxYFt1rtfkc#T!5B|t;)3V#^#&-(NC>+h
z7Uq_6<m6M?jWDM<0Ll?-uMTP*Qnk*;;>Ao&Nud-F&JYSKP$;l=+yndDTcD4i>p^!S
zO4BZ#;#sZybZ6(`HfBh6aFja89)Wh|Re0V1^k%n6CB_mJXNi}-E+yQK3l7^*$*m}u
z1piMWD2CYX0$LOsCBJrp8rL+gxvW*rVp9Op&Z0O+5E_pCwBsR49<sV;U>9vPv>(Rd
z*thR4YpAQ@&IDZVo)7j5vo~_O!wg8XV3{=!Uw_~iOboTmX~soH#53+KV%g&1?c2T^
z;6e=z^#LDFs2$urNGOPS8CC)6^V9!sy;MNIh>5Q~7u+EJgb3z|tm`^7KmeEWMudZ7
zPXN|srzd_@%N7ebdw$`ToPi#mEF9$wYH-`E!+?q5NJmH6j8R$E24~N1rDV($LD%{m
zO38sV^sQr?{JeXZyVHlF>`{m9ZH>RUVr}xg)*r&XO!vpzja;FcBg3#@IBsm=Y;J>U
z2hGdg7#nb9_S%mvWSr%<!Lo}e@St`$3xJ9C1v_6%5d`8c0=ACf#;J$l>uV;7T48Q;
z9SCYc?ZegpF@e|$z#GZmIwhALH8cScc4Pbvkrcc~@aA~^^!?xGAj0XbM%4{2`xY8l
ziC`aT9XfSL`#l)hrpO7-qo@pEueX{)*z@4>{t370<l`s=?3|;J$`MxsZ1!EA<IlIa
zat8+ouW<MkWIEvK2gS-$TM7iAqd?@(j{YnQ5b;q|E)+ty9~`GmgUe5YV?&)-0pASj
z(`>%$pkP5C_6m5yuECwFVQjowHIxu<fUhN@Ii}!Wehc;k;}*vdFfi~<1@)q+A~fhT
zuyZ&N%5NbN;eGNpQkRi<m4g>A?j}lCT@P5H0;^0q*+somK)_Gr6~eXKEwf*VSbW@W
zyKzcmi_WE5SXz!2>{i2P24Rr~PhKK8l#$^iX_jqvYs1jkrRDzjeuvtPQ#OeZr=(V3
ztN3Hxp1paq4ro7mW`Co$DZ}K7p&vx`;f+^#bG~xk>y0uiEAI9&*UdC-i`&tnuOrqs
zGdp{AxNvF&nh!b&#oe4iq{kEp8hD+MyLU_X>-onqV~_l07)s32C={r?La?Qw7NWH=
zJvwFfRc>1VA5w2enMgh-V)}rR1GrBsH|)rLz$U5OIf?Zx<!Jh5?S9QTb%n#u7YkSi
zlES)W!J~)VQAF<GfD{b9+HA&WndxaLj&7AnbCX*EZUMqs<%3cn7%6E1td4QJ)8L4<
zxebUQ!LNSnh}WCO)Jk%EiuDa;;bmd#M#(3G@1Q$QsWy2W_o{_)cfX^|hc}!5v2v?`
zV&p0(XpntiZ9FNA)S#TeXPyZkUHXwfHWK$~ZlP=Hk*dJlp^#V~RbEBf(l<N!0#sPo
zUeGFAi2#qT*BtQE9MowFcyMO7wq<Nav=)`h4$T@XmFOKi&ab`kNkHw|YyNA({Evji
z$L6lLKQaIC^vTC#ALg8ljGumfa^cH%-hJYit1ru+ya(mg<?H2e2^564BqZ7m?EIE+
z`FDd4#{^>RtZ?18A`kc0%hhsjuvFInTzpcc&0)WcOkUX&g~!(c7^}G_Na?h-pM19~
z!sfu4;ELzimKIRfJXjO}or)Rg8f2a!P(}FCgd9{-5|JyCK4!NvyV>?f^-g%S<LopL
z<Xa|k6L@4Nq;T1BQmfk9t4BsgqV2f+!#>U}9$Ck@hR=fT-HbS<2Z{~cHQb?pwPe6H
z%>gbjg%I2lZ$0eHmw(N=En4%OBE&D;f#bqU;=F>}L#o0}VOwhauvXclLc8qd`KDb=
z#Jjljt#1TEHc)cntOHa=5Cx50wgEaKd~z)!9fzvMedri7a0K82hxUi#cruAjQs2P4
zJAo+`9L|RVPuMGsu}<Z6wtbqW)0WqDguSw?UPozDkuvZBA0XvobK=AuSGE8)&>Ehj
zfhIfT<O)B{1!I^x?h#|u^L{9aP30A`Bt(AA|JZ!v#*GpCOHW_Ux?TnOoH@Bhnn?+a
zasxU&l0ZSkHYE;m#+dCmWrF#dU!zXJs}^dfXYd_r+#s86-FO1|x@{V7XqCBjUGb(4
zd)X)+UGm^0Br?hh4qN-PFa7TExZ8UrzrNVZs})FYz^z-b2WMEbrV;1V;!8^;W{Xzq
z4u5Riv`#1X=j}UVOB*1#1iTuJSY-vgnM{?aDqAf--9ZC$#<vBs`vKkIgKA^IT!zc2
z87S-GuL#E}c%D*2fJ%os$98UwQh(dddHL3Bt#A%^xrw?{@Hk4HxL%2%@(WUOd-ZBn
z3Wp!AjylVWM}}`VkOwy%5YaEuv$-$0cWU@*@BTdKGsv6Hv~6y<x_&b^cM48+D}p~K
zx@rQMovA1}A(GQw&(MFayfo#t)SJ%p@B!>dCVr<^_oInyva-uv>#FJG^)2(!pFF@z
zBoV7TJX&o%y+<=<AKhIojxS^vL`B26tIoAt5#Bu@TVFwOcoG;<=nJwv;06hcLl|<B
zAr9o3z!$0Sroy~w(9&u!*&)q?DU*w+I2+?dOBjHX;^AsQtP)fl&JhZF)apWQBR{qn
z>aO`9sb}yXRh5}~7M1N=?VEyJtqGI;3M+hX-V~CTZ+p{TjjkR;v7+f1rgw4Qwv|I{
zI$Im;`GWYNmyLHbuUe%6CJZUDhrSNaYh<aX)zw-0_D~ZdWPT1ga#DLRsgvs5KVwQ<
z9ZWDQ_17CZ)~d|Hhj>8l%l=32O^T%>Wt=ooqVPvD<_JCA`uJzNzy{330>B<07v~=)
zxKaiZ&7O0+o}Og64HppjV{IO3i~>p%uTwnJ^I^_2gO_vj$QNkZ02M~ay1qezw`xp9
z`7GC72SxJU7m-jM4Q;1s3y_;nm^+~TJ6KC!--^DV?MD`nPx%EWp+Cm6`cYBU#9@;-
zs)LdU{Zd8UmSy`GP-*`dbux^ULSK*(C#db~<&BSb+MAl1KA*iwHPOv%*J9@!xXR@)
zj=)LznHOzc&@c*M&JFw6Wd;H6;8$hyE#%)YS7msDTN>m$ENd%0PXL3w4?oW^+!TqB
zs;tL=iua+MK1OP?UQ#RO-Jd)b9s!7@gI+hh6nbz^!?tjKvQzEAforH^PYqwhC4n+R
z1ET6}P8er)04qA-Dbfl%NmtpY0t2zftL;og7KYhMU;S*iIQ4XscixD6_=<OPTa7Q*
zCzXnDVm=gRyS^m;svrv*kRxUSEd#7rKbM9jC0>p2>pDXI4b5wZu_W+FlgKELVPs?!
zpEJ;wHb{(%`*6XFj5|*M=m<UDgR_O<KE$%pDS?<J5&K<2V2_<DK!8?VV!U67>(x4G
zlcEE<*`8p&K&V>~e6`I3*-N4bXNW!0;OYghvJHO3fVI+Uug7c#lCPTRG<^6sNvkOn
zmm%{?*3Ue;G~cT*0X)(g&>|UqOP(P4dz__7HTBwuLMxIA1k3HR6ESXUg5ix=ULT*w
zRDOGA5-c4>9bs@!q@BZ5n}2gcIQU9oA$};QYqcDh_1V^8&sUfiK!z5EzJP&fEAmt_
zKMWH&VgkjAbU~bl@?&}?;_zT=z7EE|*TJhHj?B1}og}uB!2R<yPTd<g3nbGGTG<Q~
zGZWyTzAnH7BHVFkF5&xl3r4GK-lqw}r~1%sYQ)-p_O_6ys8qX)@#QMX%mxi@?U#V=
zn7L$5<M~V3Px*c5U6I??@uQ#HpOVy#Nk4ecstVJkYd){Bu_C2>rTGRbNic`C5M)Tg
zJ4ye-Ggq<V#cnY#z3#E|N_eZ;rMxvTb`nXXQEWw?lw2<V9r^n#at=p;!^DX*>`PCw
z<pQJEo#ao>MPpoWq1J)mJAOj80ex!_@rOvqQM}o!^N-k;EkQ|yNGjC&Wz4))!s=Ez
zE|Op5q(e`ohJ9jzQVQtRH;k5>fRL_kAPwI=f&8RDt%6&8?u*m|RD>sRU)3N2rN9<Q
z4gX67Vv9QcB>|3rJlx|a!QnwUh+Iot`uZ3?fXN7{=<d>ji5f&NBtw9|SqjE2#KX5D
zvtbn1N@7OFY0}|VJ&1V*m~&nOQTI4}z#_y#a9wOt?G+uPW@#a|oW$J^$?eIY^dT6I
zdX7DAw?L2Raa}I`yh_phV`OnK$2JxUP|hijo<|oXFrPpzxc%YN5RuF%ewHI-DDD{F
zO?VQY*42F|ig5>(cT7eD@?LH>h(vhC4Qh-$^ArZA#m*@mJV=aQjog04IvL-ip?LSa
zH&54MFh^5wRZYWwM)cYX@$<hZOL|s&pDEb4@wh8ZErMM?{6MrkJw1cwD&D{ELupeF
z&fpmy9d19)m1t=qvynWScAu6YgM~1v{L@^~;;gmY!uU6>ws5r60ik&${?J-x5fmY2
zX4eT`nB#_L9dSoR|8_LA3uFW=MA@%X3jQ3GgH${7s&oDG6=D$)@GQjTPO4wNxn5`^
zc5L0M1OQ;vbv@+y&p=)O!cu<25Jt`tbbCVfttQhrSHQc#^*A4QTOT~6YxfTqJckDV
zQT9z=UrV4bZV)e$c`bULEyUp*f5XhVA6~Q~MtOBV1AI<dSi}J@yZ`v{rV$m<5d|P}
z2@{gTzAxYpOiGkO^VUs%<dyZLZapV|hrz4Y%O`(*J8YEanD*k%n5!%|3;@X#E#Q(p
zZ%H|@?K?9%$zCE$ME8Z!2;+G446J~qs@H<D8}Cq2-^KKf$r5@H%=P8VZZ@*@uM{@0
zc4-fmx)DodufiRC7=fl1%6&58FTEY6dC7HIwgzM}77p8i2Tkq<f~b2=kee9x!em>4
zSB^(cA$h0j<HuT59GG8C#uDm7UW0L<4~Zk;0HX}DRFWm|^75kG(#}-42R6VOUGhz7
zXK!M<AQ{bt#gXp6aHJ&gWy4n*W3lkcSbPuU0%|BHXTh-;46HaXQXIxT;+ETLH#Q{>
zu^O`Huw)sN2e@zHt|?{F-3M82Ka^7=N?N5iy`}eNW_UZ3%(yABUIlp@a!z|aE)4Rx
zSXliHw<4jlOsX%eJV9Hq(ww%yLXfSQ=d{gD^@~@Mr<RcI8M<$UJt*+Qu<U&Y&mY)0
z664C#p>k?#hsv(49n4SgVpjMJ6Py_MHjdjM;~`z(N|)=WqN$B>V*=3cgH#1_XQYOw
zFd>1QW+YI)etxsvImDVCk*=@;;StS&dQ!Pv_-0IbG%73y<f-2zNL{spO3Y^?l^AD2
zLe|ROsf^@lC#9#?SGhdaK1<zpXrcqQoUh-W4VHU}T7IXPSn8Lv5cU?auOFf|#zG>7
z*CX8$K_zwB1W^>@(GhU2#ACunrt!6gkh40CUy`Ko(vbVgGqOt`!ufXm6&oI5ty$L-
z6DX>Q!dhe>#u6@`N&j*6;E%Bj&Du|#)C_2!1QRnxT0<OmN%W|alFKQAi}dI8gNm~C
z`Q+WvIqH&O+bo4mpIWX*G?64`buXC9ai4r{9;WBfeFDFnT<fU68>hdceyPLx`MAlH
zqImDmWSX3plx<mb)=%4U>%(VRU}5PUy$i=?VPV*-@ucUU^&a3KwTAG}9l_W30ZVdH
z<hVdb-3dnAJjcMG#%hBfoCh)M?ZzRaA)UK;`d|p)%28P1=jW&2CiNDz2+UZqYmxs2
zgS)MoT#G9f(A+7c7orHBYQc;Yi$?|524@Pbs!be{%q$os*r?%b$s$3fQ<57SI7|`A
z$nhahLSv#u9v|3FYv?KZVdENINgMH`vimD~n)%~Tq+1lu5$`MDwsGg3GEg*-!#<UR
zw>fKju^Tq26FAlws(iP3Fs!1h^SC4>TAPigIl=s!cJ{~ymfI`I&~0@R@X-I8fS4dz
z6HBQ_fmDy;haA>iLs58(%}uxv4~?47KY+$Z%DFeZnMEM~8tt7OFaPivGYuufFth4)
za=$#af#DAFJ7MsN`3w)q3_28Tv%;5Pukmcyb1I+AVlZjC`2-DM8fTLkT!8Au;+EHG
zJ`^j6(lSGpLa8$-<Ici~hCR5vEsLPt`tLEZTgk4ZSdk3?xDqC~d7tJWmYs-Nnm>%*
zgc|hk;ZD)lbDPf-me-B+`#hhl3L8=~KMrGN^ruLqPRaSnpccG_V)4{Q${?0IlZ~b&
zfqg5Dx->1ZQ&toy=(MwCd;*P6vR?Wj6kl3~hEL8{tXX9_U3n#uLmEA!c_<PyE>v?b
z^eQZAAnA?ufY%2mLM0&Oy`Qy;;&2V`xjsuFZbO5ceb)?SWD8kaN;EzAfaFs-10>2K
zl|D!Yh@Y1vO!GM#Cm4QXS^yxD`;Q*QgM5QQHmp*Qft0jrFDf+A*P>A7UzzO~V79I<
zPBwd}c7~C5&A-1EmfrFF^*dW8Fg~gtw`=_~r4?#cWH@mqP%pQ79#vcgM~@xLc;T0T
zUE3F`CQ2%ejo!Vzy>o*uFizc9%=LCA-8PZI?w1LpgvsA0Aqh|!*0Du0)osZiK6!%y
zK8WHXq4B4AXdQ<7nCnuN(3Rx->)H;o2#W5dkM6bz_0G=8(M2v{?v(<yon)CQ*#hJq
z#m2L%`HsFfHS1hx-=Qbc>fQK;9EosIBjIE!N{x%3>B9py=z1g_f1I2N{{Ab)pTu%e
zd(Vy-lnh|O0eBzB>?)EcI7T%B2S@^#t`_<fsM;YB9%5y#8~@_Pi_)`+`d5>7lLQF|
z+9b+j@)4r0QCAVvCuu2p{eq&|blw8$T090?LN^l38_O#y9`8fv;EBRib}GuplT@jH
zhjC;e57M6!!N7Fj&)ZaSnzb;EZ(d^^UP#>@%figPY3*85(``%cpW(^U2g<D;`I%5v
zk8ORz1I<&X$SS-wqF8v3xi@Mv*(X{Dmdvm#M$c^PC`92~<=_kwE<)ZT4~45?cegE+
z1iQ1*@uWt)zP+Q-!vwHz2OB$kgS!o4%z}Dt?#MG_QDim~0Df#~;di@O!30AcTfBKa
zC1UHlU4nEOS|YpHIXRCC(Nd}+x~YZ%nT!L~Rtv?H+ZQOP-p|t}C3pi?Na>lxH8L^X
z6>MNcK2i-20v66_1F?Hgg+cX>efxeWsAv(c8K`;jmK7AA15U{-3Heoa+2Z-^ih*Zb
zOZMY}z6@`GADN!BTBC2WkzMN>ttP*12T0FITtC{WdIea1v=NS-)uPlCXw@@3d-*y{
z8xEUtl{9VeJE&_Js(pSl*QoVY&d(StoF?sXVlXUm^xU}@L>FNV6kQPE$7u;F6f(+X
zl^~6Ghx+cM<N;v=eO`*UlkggsHC!_1?2s1KTicw~-bsw+=eNPm8=yl2VpbxuCaruE
zRK<00;*VncN)^2?-p<^%Y$WV8JH;oko67#`)dDnz@v0(P^)R*epO{AE>bat+8Cu_s
zUq%VDz!@Yi`}l-bSR?>pUxB4!bzUM>8vyk|Ch*Z12~Zv;FjyA`2B5w(Z=f!rd;7=R
z8CC9VbNiyeFT+Y-=y)4*yvjBfBYbD%ZN{%I*+U+@+k|GSaUp-CyU63Hs4X1{lnmO;
zswBB$Icif8O2+1}6$NDc98DWwA#1Rxl0yp6&t0BFhMt|bxejnSNO-}T^U-uxXd{hQ
zqa<LkdOd9L6vL@b-`W^cx=l<hSj9_l7t{5!Zk7zl8EA}rKJItVN_d@>x3tn)>?-<A
zu8C5`Y2p9^7N9nww>sk@%N_h+4IH%M@EI#{9bs|=NzZW~!W$iICu~f(F9AX8Nooag
z&jnA{HV^mOy(qFp!-dG3fubBZ6x^Eb3d=80f_fH8D!WD>R_iIg9(k&Od%OEeK8?}p
z#bQ8)SYol7^R$M@{h8i{RCJjdG1GEkgX0M!{VIN<kl3$g@a?DBjm)?me0*=`J>WRO
z<RIxS_V*Bg5Rnm)2rRe!Ona>I!U!m4OJMQ@MufcberRY6PQL~~-5z;}ziXfi8HZO<
zL^dX;K6H?#0La4*r7@z{XTh`~94OrW)C{y-!|M~82YXulqu1j?!e1MoS+VieH`VB!
z?PU*UTzS3&>_yQRUr^A}>tU&tV0GES^N73WaMSGPpU%04$6j9x2Gu0q0oU(iJ_poC
z=?k!{WQ(P*MKic;vjhcBMz0d%S2)m<v1{^EQSH{wZ3V6*vsE}st~5%<F5HW}Nhlw%
zMWHF{9(73=)UnQPw#=obScJ{5!%#X%CCHTL0gmEnUqIN&f>R)~ZbJzli%WPWk%{~s
zMRD!cpJw${854`W*c-&R9_}+pjOj=AQ&CD3=GjM%YGOFt1iT&lQFaC*Zy|HV5%_`6
zX@?tLx`ldj-qmIKm$AfKHP|>kOP;cxt*54_ix<-u7$e2ONr!p2T>u;r@HHQ2#&}~)
zNzXpGX^ev{(Y{z8H>dRRb${m?_?&VQVM)+ePfB3N%xj+4%jp88gIdFA;Ch02z1!4t
zI+*xZZK7H>eW!gCkZzS|eNDYSNnf7_7t9}B?h$a9k>qM<+<;BM!SM<SL?Uvf{`TTx
zoW^9)WxMtW!{dyBkqY0!e9Q0@JoLCnilAykHEliK1!h5;AW8K=#2FLF%mDB5_`co>
zv;VXJIj?oKY}b5QWBo`Aw{nCJZd4#U@XvUOaT~U61wRVVGZ2Tc9{K`<T@OKQUyzE3
ziCYAhYxu_1#qi;EL;G7MW_cqg)W-#Z*I-Y|V_yl#L|$Z#V3x`m)7?n?ZsQhfM4E)(
zi%p^`!!i8@6WuYWrDuC1(ro}h-$;oG4U8ZvVUphCq!4HFRy2q;6}YD3N|Hb~1o2RZ
z{GnfyEP=#jKhwHII%>v1DvCE_P&ZX7QbtTjd=58m0=|)YAogS)^E-9iX_=UQPUgBo
zGO3MD)=czGky%hUFX~9AGm-C*(LG47$mrf=Q8xU3MV8Sop~<56<%)HZoxRAqc!zz)
zjR*SB+}aQLYJ<zhdl;k(Y0pb2{szCNDZ%8T0Wv5y94LkP&NZBS&iV6Of_ML$a)@gh
zFy2UT`@ScU9r@BCo(Y*BdpTdU@G`V$SIbdl7>7Cn28zh`f^8-{;t0M^-pbm&2A~RR
z9hj#9b6eYhwUppRfWh-x94=L|@|q41zbbSmC?H@@HaKHTRWctyQO$Yrr>T?WO?A8~
zZZKThq~>K~ldMInI)(Ca4V68L=-kMts8p~yoKs@L!bz8GR8TQCu#%AohKdEYs|#$`
zB=nzh_jFJr8{C@_;ba(vM=Au>M?%53ryv65moMm~82%D(z#OsfEk&^G6-gmcccmz9
z`E5x^Y8AEcVIfJgp)VkK3x?sm!VtsLxo{YFmo$A#J2rqO!I~C%$G(tU52$qYmbX%e
zG#kf;L~C8OYP>W>;s#zC(io?2$EAM(WxPrF8UO^pVC7MVhwg-FOqjsLweONLd~oZ)
zgnYh;w4)Y<O;svPx=ihW_&4?M!PfCUq;~As>8n?-#&(bxNueAs`{UiXi)mrd-s>CO
zTPHqlk2(_Cc6IDH8QEKZCl>}M6H~=Yt-Zbuc*_$g6_1AELtJorgdbLXj;>|eJX-uQ
z!vV1@loen<U~gUQwT4qC<zg`~^K@?eRMC{&0#qaQATD&{y}slB^aX!SKqlr^^;9mu
z+{4(VlMWeea?>1IV=~cf?*X1q=5o(%q|J^H4fMe<2R^!~mu_R9!!2wA?R|i~kHD(G
z2H20$;9E!0a5bWpgLBmc=*jwpP2^4C%i+KuwGyGo#~=3tQ^v{GLs|am^Jge=U-7GQ
z7&+c88jBp>0k+EIW-3Q;#n$jjtpWM^ABFDO1e7I^K^9U|OPnJz@0ECqA$w2y+9d~9
zDALpiod7FpAIw^^#C;tBP6jblkm~}*<H!J)g^Pk=^)L%I^GqdPmFU~Z$N{7*niw61
zY*Nzf{YnBF(pBKi*6_`UbR_QpL_zTGi}W_TrazwajDc)1*Z3^Ve96pkyrm#qZ^XC<
zHw77wP1q^)_%=dKg0Z?1Q5TW9)uL#}lubM1CTVyId7yjU4a}`0y2|H%leq>2HA9u-
z`k)inaEWgMI-bBe6EY65)nf>w)vCww?|NjO8!`96==l{dkKirxDC#ae^YIh*O9S$a
zAVLPKV|DVe@}lo{EsrG|dCLgr)gIw{0Z0@DR8ej0v4^~j%-%%ia&>aTMHXmI7#e~x
zgrtN1>IMATs#C76xrC>Ig?GGWjzKNr`m;@TIR}6o+q{L&k>XvlwZoPcfDk-2)Iu@s
zK<C#Y64=X!Mz9?{hAL5uIEvOKld*N5zI>U?wZ#)^BFl(zfueHQ4I-aljgv}d8=RPf
zkBb%3Elhx)x{LyhqBvsl#ydMH=@<~P%*Dnh(9S2kc%d9x2dRbN)Gq`c{$Hp}#&hM6
zD}Bw4Qd2=O)Z?){Rt6(Tq5L-jH62!u9GT_!Y77A<ci;pkk&#wC60bPPMsDrW3VW*5
zimqBf-wDLnEg&f90pdRtTggjwU(p2o0_AQmCuSd#PU}KkCbMAN5{=GO?Ptu!@xVjX
z8X_dG>Q^XLuG$UPC&D!xhqlKS8IX)ahc}9Wb8VAk-B4eXq3iF85re$V`_LK^@5I}Z
zAZ(aZb79l~Z>Hm5Pq<10*;C|Pz{7gWnqg_|BI)dtkuqfL9T`|i5dEhflRu6QvKE9d
zxhl0JfSo@QiY?N8Dfcta^qWdid}ri%g~Fl+ng9H*vu2Zh0WWeb*vuSXo|WwZFcZ~~
zTkP4!3IGKA#c#{Elg<NJpXHSXGuMS@H##{wI%aNpN+F`j&vd)4o#~YGf(Ae9;aD%}
zEQr1cY@!BA=K4%)oj{?3P6f8_ncj8G--_;9Sh$TI6lAjAiBwm$o(Qv}hp*(QcR!S)
z5`y7AOGpabWVu_RMKaH6#t7nt-xn0fY`4#kSjo&=$Rv}H?W6tm7oJ%zX%$UWi%-X{
zS^#rE%0kvHTabt%C4NErXx#wCOdtddI2X@F0x<6p|I%#y>?Ox4wv!G2FUe{G17Wn;
zkx-;zWJ))5Z$?PbNkR+Viq&9cJ}yP@@EM=xa5=c%z3$!dk*f6bE~YO*EA>G;yJFYU
z2UmUhqD^qNBzmW^nf0ZDaQCj+Mv?qEf9nj}x^*!jEXAMK`l<*oHO>I#iUs0*G!$CJ
zIP9U1cG=c|@6Aj0+qLY)Kb%-2Hy(mlnt&jd48J4zO?`KrDn7elD?4Uzks;4VRaI-z
zU=)Y%?+4n5LMbvgcq+WP`DV5to0!n}mx9qtdpAeGx&S9w-LeG{EgCXy3%G`be(}vG
z)f(m$C1TJwM$Q=!7#(eTaahsDfjNXoi`BR?srQg*WN`w~a%r})IHDOqidkl%CCa^>
zsw9`gAZvb)VfXfL_&K&so2;EwgTA5?$6$n$kEQJ!z}a|Ex51JQ)CEn_9p}!RkdP2g
zFLpMh4VFl~^B~P9tEozIbHL{kR&|&z^^6di$k55f=ZQA>S>exDim)Yg^gmZ&7_C0k
zzD@~@uMZ+yz<We5eWRJ^?n7gpa=m%2cInJ(ScHKPv2t-G`}p|KPsG~Zk#QbMLM_|q
z{sid}CZfK#ej>oSX_L_7Dgj(wa9&Xir<sP?GS0phz?;nBKyO8?|L%0^r`aqvz>2`z
z_Ero0^iXJGK|lo;CY|jLX-2m^cW{M`&@Q)ei{lXzswl+>D+C7~8$5>wP{t&*p-F2p
zR}Ro~D0<?$znNsm;L#rqm4Sk)w~O2-gbarWf%jL7a0ehWLN>?`Zoq6dQB`tPLer%_
z*j4ZN8$wR;8}t!A&H`{5Hlx~1D}px<;u=-w^hgoCL$0An&(s*S&viiV`{nGAa)Lm&
z+^z8H%)4r?((*a^<ZY1(wO3C+8UJ}H_aW`|=${@7zpmu(^P=BpFqmIg4Oz|S!2ssB
zLiG38PU^OWoF)mCozuRsy)GlsFFvWdp(y&XLQGsd{Zm?-@q0uet;jo>kav)oanMEH
z-*^Kh&e1;$da6rvGk<o%R4<2xaD}MjQ>Jpj8N6Qu-)Y>rAOCn~=XqYhnn-5@U%{)E
z+AHZCoqUB2`jFQa&|I~LpD7vk9{K{A-Dyq(V2U6xR6`*~jL;7zHNjtwv97o3wzRUm
z!iR~)&DY5Q0*W^q&?rezA8sPT&cKvu9Y>e(z<As{Xcm9i%*L^00GD*GQCj_hvPnv>
z*ue%?JVpt?D;S6S;T6IAai}6hw!&!YInho$D1Q|j`w^2<jq<hO47uk*v-yP!1JL(q
zBR(R~^?u9GmVv%F3pa)n3Xr)LTs-y953eCt_=U+aG|FsMr80PeKvdFBcosq$VlZgt
zkUNkYOYn`y)k%iWA}c&x>W=$t0AcMuKZc=^vEO0*WTN*hno&emQA0!y6^xxwC3Ci`
z(lF0H78k>(u2Bn2(vi%%38`H@#H<MgWb!6H{1c)QCZlxmw*TZR;M5{CBxjQ505Ue6
zKs5*+v2)0UlOV0_!-Y}<E!%^8_nu?$ki~}(UMnO$$pCOEHHOUGvbxy&D4fzW(7k_j
zV8!@Qs{s*IkcP~t#CP}z-eDypx-F&d07mj4ujG#$h~JMxt@;(I9bunTHGwq20+1i!
z2o&2XL~Q64&J@BWBuV(y3BW?n@a%CUj>}-vL0W{;?iHalfm&!IkF@qk$5f=}U`Z^I
zN|0m@*{Fog_gyHaUVJKR6#U~NOQcq;xN$)sYPl!<UyxHlOo2(y;!(tum6!LUyGi(s
zA3|5jXM`O<kW?x3Bcy7=)rHxDS$!&^cq?QYJDwPkU6D-ikD!o5GVt$@81maSx&!Uk
zHQf|>kjwD?xE~c|Z+vkTZ6E{&zBiscb`QUI?;W4@N<lz<e_1Gbox*ntoZ{EM{qZJq
ziNOYhz5x9;^ZE8d@zR{aLXUKD{3Syo3IaW^|4v;u(3|6UkT*x^?f=vNWm`%LbYvF%
zvc(z2Tg87wa~w72Igw~WZrTUzX89<OGcCUf04DwW6}O_&9XJFc^@D7XlSHb6Z%GA=
z5epOuKtxv4!ZNmiZ?7LyD>2vvHWE^Lx}P=w{sxEA*RmZT2=jpH@M|^OHwGZHS^lc|
zs#o-Z@UTz^@z>|>b5SZU;lwk3S&pY*jz66FKmEgTp*VKE<&kIjEfPV|D_siHok29y
z7_R#F7fWoRTH_*QOx+x-7EaM7g(LZ@QhUy>*9>`6?BcGrvakG>2*huGBzy^JwabQ7
znIzq9P-DC<zyIGa7diTzx()H^@gQ45Xhej5YK1%8YdB94K$U!D?4Yu*<%wkUQJDKJ
z9t(e}Jl4PeK(UbGl)OHLR4Jh@=9x~a@umFM&=<JMD($j$_BHHc!ZayCtTE1a(9Zu}
zP5;HAY>T~7t#;BhZJ4+z+0*&ogO#*6U1IP6o77+-<lh(Y76jaqg%PIxH~+1dD5rUM
z{IBOyx8*NPgKw8O6_#x=0tAF849IY4IC=G>_{1s5yaRoBRPoV&ACWg>fC)9q+o^tB
zBt<Cghk|dCs+xR#K<N#=7P;;aWX7_JJmwMrtiZA(eb(Xcw@_-#aDPInRKeuD->Lrv
z5m$jwNT1#H-@pId_%u(VJozTk48nLUgr7tOyk6FyPSZ4aHbYjV7=DfY{Vpbqgv)N`
z>eKW-YLm5;Eca=6hYxtYF6Z?JZjEjCiNrL@imv!?dAk%(k=&_bCjHlG*)4V90FEIS
z$IgCnxzqHBe|y8l>vXWh@p@sQ3Ax1To7darXk$TSsD@T_?T)JSK4Y5xgCLp!dD<v^
zebDb$?qX8aM29j-Op#^)V??|{3kY4_=90sx+cx$)EGob5od1zgFnoB^+dt!(V5FLg
zy^8sFi)U;^fR()!t%@rH{{gpHtIpHs5~YqEc2dlhXTuFYKSCj)Rsl-3#&MrFfg|xz
zgDc+6tUpizk%X+QAyNbYPS-?NjI8D4gpLbJv46oz5UYY{AadNtQBY1>z#KJa5QM(V
zh-OsA+6uD&KID$2blDCvIK65RCDVug|5?F#FXSbJdi~Q~xeYF($2GOJ!|HGT`(s#O
zITs?CglVuQN`e}6P$a8~<|?Dl>}v?G65zZGqDAVFz{~&g6XfR%Ly+}B0Sr}(x#ysx
zjO6)G_ho`#J=^>5FRcse7UBHw1&+V_v$24*3fHgs@1VvJ{Ekh>&~!rSzf+o^7)aOx
z@@4VzF9eA{Mn8H}prWJ&Oc=vJld)4&iKH&#=j-KfBw)eV{}U&*&-aFeYR@wCiXW<a
zYV!3of;iL`mS_>m9KvMs7eJ<uhNAT(5lqv}bAF0q2+jzJG06D|vw&M~Cys0l2Fc;8
zMtC}Q#V`cec7FLpVv7>_T)LJ=9Jr^4&ERt;4)3FQ^N<n*w$g;|g(*`bkUGeh8~{C9
zp(Sq?^;hTRvcG36jsSJgdl7hYn<^UFzQTbw=D>A&r2aa&UH~$xY{4&DY$W#TMqUdO
zWL`XmAn5;EBsESRK-38cfl&VPQ`nXtXN|0GTZ}2_njSDh>4}lK18iJewsylUx!?LP
zQ78v`pqk-CcNee-y@4XY3{MGWiH_Wjezmmqe?Me_uKe{W>;*}Z&6?WjOqCb>FIH&f
z9z=GR$hStRfXGaUdgiRk@`^~9V6TDl-jn_A?c09Iuu2E2j<;EtdrvHMZCQ$&%0YQ}
z*ORcjm>yb+=ms@r%avTirTyxX$(+cLss`~X5-X`Fw0DuxNm{g^-69hf-+_tC?<#r*
zdmPT8-nmBMVT^1S<}sPCX89w%*v%{Q@6GoB(WMDag5%l63&%q<0Hy|QQ79^3KpTy<
z9Z<|c?eK4Bi2MbW5kP!W3?K<hFJJio1Z5=ykF=VKlCTUV6O${r-IHqDw^AfBL7vi+
zcB&-b2g@JV!SwZ2`eAGXHsCI*vp=dmU!u6Uydoh+1;ouJ3AC=LYC>uQ9gUgOKIWgJ
zE(lC1@MZyI6Q#XgivU~%ZULAwK-4BXcP=AFz%sT!b&2`Z_7>PQERAo&Bq0_1j(~v-
z%*^#*Bodev$t-4QXRT2$hFy)K)YLTr=;=s93Yzwspq~&AGGXB$NYyWJN#lPcuGfy%
zUU0*Y<`5VUKvp$s`SG>O=ubDXPd#EJ&m(A6SlIv3-FrYqwQbv?C74AqV**pLML|FX
z6eO7~6+ww2NmL}G5+#WV-DXPx#Q-Qdsz{D*11b_EDj89tB*{r$9|i7x?rrC`fB$c<
z{r~=@ozrA1RIOTT&N0X6qxU{Eno<#iyfJJPSuJfKIAm%PVd59cahm*0_{5eUm$3|=
z0F-NhGL!mRD8VEEa$!Dj6P1}SP9q@EfNf-%=$?IGx1xz!qOPf1=z9Xun-bYKoZ5hq
zJBWj3S01!)AB(0SJ){a&IejCX2Z*a)TMTv`Rpo>GcBOz6p#kD75i!V{Rl7(3nc)Sb
zB9STG+CXh}(GK$h*%*~EVVOXyM^V0?^W(s1VWm#VL?j1@W`=Z5egL2Z(3Rb2t1OUp
zcsj09kTLcxa$#&M-PRN9%WZBWuNzdE!MT-L_w~8-SQt*q{)OYT=<_*yFeZr^YztSt
zzObu~neX0-9~7MDzON<~4=vM6%!`S<HZpGrCM}70Zh{Z*&(YZjYP-L+pXD|@q<v6F
z=U6OUZ&`q(gxH2f+OrsAqXCr5!K|xm!7PBdWXmvuTA{fMP}0L6jFd)rp+O+<Cspsn
zWdUNFkC#wKY(k0@iiGu-h@W1pWqBw-xCZd4#0Mr8GuN*#{t;FBpMkXUjk6-Yel%(*
zyIOZSx&TKlfK)7jK#)h{TPk@NV?$sN>-&NCO{gJQQebXx0(-5U1J)rIQFfi`kdhoR
zflv*Ewh)Xihi={Y@|NOz=<*}0E`-N7pn<5phm)g^<6l=NmFs<%N9yFo1mQWot{bTl
zi+z2Ov|$BIF#^%GHHPM@)`C3L0HN%!*<%bag6CB(&auY;F4Pk*`#pwgw;n5uaPs?4
zWjIgA+v}zx-*gc@r)Ej?7UiIRv=zAR<0IB^da0#)@+LbIlMt+u`D69%z8r<U;B8`A
zo1zK>UgB7DZT+|78*E@z!D7=bMG(}&wu)LaHY5u=XOH{$4}Nzch#UBM%6J7S75$2|
zGXSSRTxMvVQ|t$8H3Za8O*pQ5qDBh>m0=~)0stoT*d;B?;@wuKnnZum%AL6>!)Rkq
zf-{mD(6A{dIaPXTzWYnc7My<Zpp}ckhMd1Xtq@?{ddtn=tBWh|lqsq^C(bYw@5oHs
z3$<2)Zt0%#{vS<Z7_Cx77$)YU?nH`XD^O<<rJ~B%cfu&Dv{@=mif0R;WNp|eKr<<X
z!x8KWGgw>`+*#UO1kJB6lEW}%A9=Pv6^B|+6_Gw_8X7)^c@pZYr`iKQBekAwCQ{AM
zRD3Y%XxaXHG$yPdVCrO1XM8>a6n!&;UyEP$P0AbFHo0KJVny8(NT^Id`p@@WNvYM>
z!TEzCR-cXofu$^Y?b`kD7Yw!?=5$+zvDq}dRKt(~WZhk}g)}cx=2|Il9TigAx~n5D
zXMSHBC+xa*#lr#adx!}XOi%_kpf{q1%VaiC?FuLAPE6q5DZ|%72On{0F*6S}(9kY2
zV1Sjz!6@(1)LUnRh|f!!&3eC-SGG+tVnF%9hJEx?Orq=>`F>HOw*ZR<T9;y(S>4VR
zUs3^j2HP!e<@pXA%XFag5&G!L6p+vs3__{L$^(TNAukA(9Pk2ETifvgbD=ixBsa%n
zhhjU1etM<d$!`e%nTl-de#9Scfzwf{VgZ5unfrL@M2H808;5||gZj&&-RlDC(_J$5
zZ%9qXtuwU>RfaGMP;|oO7cb#{Nj87(hu+n+2mAUiq52b3%)nHq-OquBxO*Y^TpP_*
zaew*edG3D1CFSG0ulelN>5&xI%^sC{t(~r8k|W>3+u2##7L9K9cw-dhOnINUv~s+y
zB=9X3CMl)(gYn2B^yBE!zRu!^dZZX^e<V(Y34!Pkun@&Q!CD1k2m>5Ffe0@B=X0Sv
z@Un?~vsKArE|8Cd%`SB17Hi!Ck)dwqea|4)o-0zECTgMOOnDC+));UqX*CKSJBgr0
zNNw{(p7e`xR!3m<IcD71>&Wl*gHB>SwWlfzi;30s%-R(6b?g-^oIhSJ33l))1*D~r
zc~HWETa{(ocx>UUS%)o816IN6IwtBBmUnuNa(G4Qs>?TStRJ`ua|?~W`1?{8Y~~36
z|M0)?|DyxW_1t*3P{;{<yxsd_rUZ{k?*mao&$aI;2@C*VS_T~8LMSUF`aEFvXC)Qo
zoEWskK}%k)2|=&6yHD;|*!~mSP2W6I5?sFgNyz{r++*6ObQZrb-WM=1^;IsyR}4s3
zs}DTiO5Kp0A)*0at%c??ut*!J8)XW(qoFVpu5GTE-Z!`e1KD@(uL(TPZG3>(2S7Ut
zOV~zW6%g>!iETm9vXUA<=W>F@K-7pe$$wiGY0|zX>av_{@{rNF3+ovnD<`sc@4kI#
z9#xP4W{zaX0?00+3IT};0l6si!nz#(OL$A8oda(Hqdu6Dww|#%2ma(H?n$-@olOvm
zddSC*WdASG(u^|{K1-~p#9^p#%`EjX5k<qR#vb9y5#E^0$a5|D*%4m=767X}{C*eo
zMv8<=VCZEO@<yeHGBHIN@6ojb$l2NUidPuUqIpAvW+TJzgqRz9K?s00A+acJ?&?nP
z-AkuGD^ycIiX6Oso2@x_L@^8XO~%#vhb@N*Yq1?h$F8DG04a0fcZokA$vF`n7~&{@
zU~VKfK{nJ#Y76Qu3JB=cH~@VG25H+|qK<<q{G<=AE(Pkwel%tyi0BUtE1xLuK4@_K
z>h)yk7{IxdgdgjTe_*JCNaRQ@r1hpvD|zc-(00I`{%#{9$imR!%L0z|eyd6seFQB5
z)g0T#@@PFQ8v5T$Jwt_#Ej%HS=fx6`K+qj05DW*1Z>Gr_%-as5Spu65gE|yWGeSX4
zzuj|rqF3geo2hMzN`OWwJV8zD;RVY+l)a!B9Etw&4XNnu+q3FVG8Q8n0~m!S+_5<h
zV;_#-R|f@FVz92BX6cw;81s(nREPLGNGja;!CM_at3I9z#IM!pVhuWCm~bL)LKjjY
zj=lvr85Wg4%u+w_*bAEAmco#xY6TeVQw5xUaorf*E9ZM_Hqp_7tab?U7%wIv=U^O0
z*$v|!58-_7-m#LwU;&jMGauv-d<|xz<kX|S1p;YZ{_P%TkhVVIxpiVVQ7?EnZvIFo
z?s>Tu7E={^LXz`a>8o7ty=?LTM+wOhSf7npV=}IT@z~UaG$NlWO6;A-NMC?j5Pt6W
zp@8||cnvgE6fPaA>YUf`eTJ3e)YT{$l)n;-0Qek>4YE)n0Ds$-vM-Gw<TM&%%m?z0
z8>pT&>ek>%!~yXCmJ!N%0mZ{qyTJ?vEOH+#Y^$y<+>8Z&s4F3O5AOH{?(ioPcq?d(
z;6Dp8v3I`i5xbFbxa$>u@(_5*l&GL}qF>`m9~+y&IDi8-Dc(f+6!AH1je<fY;R6zR
zI96jY*@}AOiC-@ZQ@;h^D`k#56#8!gzziU59x>ViI9t_Cd!E3Rpf3W*$bQ5S>8%M4
z&QA%&`LCDW80Qz3<=Siv_p?ENiJ{5ei^7DsyigE=fGa=?3mPYo=Yj1Y?cM8}ImQ|0
zZGudukb;8#Z%kzI;;5T9tuvPc`93ZvarW||c_7lNf$)xYHJ5JoxExZ<4dy*2>*FiT
z2Ati+D3A5Sct?+P#?9G=UEBf+t~!*jlU%eO`%M$fLb8OUO-U^Wg?piU5#u97e?t|b
zJ5d-R-vCdkBVo0ioGwx&+XXq_iSI&RD(iu=jeLtVcPb*OE95&G3e3^J^PP;}*VH+2
z;a|`XuD`(%-+Rld(3hYuH=_?f=T22$DJrUgbRSWj$pXpO^zy5b7|BQ<mo?Ij2Ax6@
zlWZvT=DFy>P~kZcJ5d&e$=NgWP`r)29z(*(m8JS{ZxGqeBUTqDS|N_WdtoJuI@Z*h
zxWOL%(W<jGUINJoyh-z0kl1RWPPm<=(d9?QsAUx7Ym2{+{$%>N_ibuFybR8uMQ}Iz
z_ymwy;dcHGFn9IwyK)Y~0&9N*){u}JfB)d2;dxG*D#eAV+`kOwxdQ@+xjVP+WR*YT
zl)x^$1y5fh54QH@e?R&DtCyAH6Ls_Gx7M;}r`9QtU6)i2jsg>j;_=CoCINigx*$Kc
z2)7B=)a&EGFw-@2nD-B~p)zGNj|4nH{=l!rm1fNvdv@=e6>4b2N>y~M5PLe~>Z<Xx
zA1KT)PacE3*R!;F8jv{Nq;gA3>t9>N@disbnl9Tkr_Hs$A*j|4@cKuK)+wpG#;FO(
z3kzp9o>aMlQ}18mD~Mwtl!)MkZBXqqSx_#b8vd8|0D!<XuO@5?0+g|qXN$m%i-0h%
zms@%P`bK(=r~%Gp6-GQ(eB6eal9?CdIX!?;pl}56lWiUN<PIQRj_5|Zm4Edf9V2Rv
zCMO|}xRHcTA^B2+dQVCF9H<JwOKf}F4zY+qh@ewvs&IZ}{Y*5%I)vI*=ET?Y{?=Z6
z4hnyUMyhXlqpSiPFI;qj;`GnYk6yv@2su5}q%ZGf3ry4uO*Yab5B=)V*VYbAgVVVq
z<R2f87l)yAajZHsfrJ?t=Gq%G3XKaNNKGtq8^isvIq`)~@P-<D_$Pu!yu=ML6o(^`
zBh64qdpLGuz&PbIkZDHf^J#tj@L|8Uwl`Yz8Y{~@{GnE^$2d;P7(em`k1RcJZm`JU
zq<6OzT%}0cVSG66Qd+Vg22b=Q`UY^Z?GXcbK-4hTjyAgXU2^uEIVK2*bnfalr6Q^D
zu*6hB5={IYDF+#YfT8RmiZoKrqQe;XbfdlRDs3ujHi7)_$wU~UUKf1|MGTq`(?_?v
z_N;KsiKKFz!xzE+GdAHTJuW=Q4%7|7#3TZwp*YW?k;|?U!+rk^tWf)idh<vI;pec{
z+J_XGI2Pqs&xeI@S#aT3##k@pNCzzAlJvsTkxMtAf`1Y24u<FuW;#Jhg4SC-T2h`P
zFdc*Q@@(pjM|W*T+yF#WHLDG<m<pzWg!XkMpX#6v*y%f5ONd-64<+3AYeRqwMZ#$6
zHDIKWo_Jge&FuW=HC-ox77KP%Kga}O81kf<ltX|TFwe%+ftC)<`3$ZqB>1a@gp6}P
zBWu&v$iU&cK-LcD)<3VZ^p|tnC<swNrk=1upd%HCmMPR9(8<mO?W4D&jlty)hW*RK
z5kFp*-j&fZ=CDN>5)%kAfIuF!Baa6U%4T2Wo^C*OPupkonRJiaf(5k%=L3-sY}%?e
z5w!`F9(W<BJjsrso4+6@&#eb<NGB<jzu+K*5iu1@S3`hHaUI+bpWvz+Nl@SO89kel
z=Q68AzkR-Qcudu1_Wk=|NE$V?C5oFc&*Bqqxd&9UZbWQiXytKwJp0j$ma(b##h#=2
z#e@vehr&63042loui^~vTbT3kWK#{%=MQRZLF0*Jf`v{xahB!8fX{4%VzLoL*2HS}
zg+$*<_;6g4O}!dilpfF!tFN3l+&On_GD(90lC+xgts~|T*(v}FT;HvNcS&kV+zp&6
ztoSa9%Z3laQ7^*BzY_1fUpYtxp!ijp=2rg0(R~(EcQK6T;@Gu?u&N1U!<ZJ3+@sKI
z&Ck0)WJ5-Q(vz82VXqIz<&r@e)Zl=K3IT1vRzMlXCU28l0qiWjGIz}COP~(n&<p?{
zqrhaC8aqJSJd00cNfy^9)IFj$jjcX1AW|^^C67&>#xS;|T7)3;Q^QCXC|%!MN7N=p
zk%?M*66k5xZw3I_2*LFLQp*Clp0X#jl}NY*b<;8y$)KPsUZB6m&1gB$MItQ%%F}F?
zcRy5*L?jofGvM52FB!OQ`qNH<zAe<whad^`Icd8N?&oGmtU#UV2s?}>xfU?Yim^t+
z#p;Kj+4p?fS7<Mgp<pj?n{iL}-i65*XP@PjHTDxyQ4AFl*tbi2#@?`Pt3K4e7#Fta
zmdKqqs&jZQtC_8ST>E*s|K-44x2#|2dVH0dH(Sc?Kwi;!k-OiQDl?h4_pG(<x$$Gq
zI_8<1=gSh_4|LtAuBc2&Yc=T2dYCiV(n|5UUL{W8c{do}+g-CWGjHeAT`5t35-tS_
z9a5$+8^FNKg~{`|7Mn@wM&z&n$<h{l4ANEpsyqE_2Yl?12;~79?t0kjyaO4>n{81w
zv89&zMBbv?*bkV&7lUDTu_+@Us$OMZw!MTwy4w}K35?G#u@`1f9GhtKV=-)aby0uG
z=@6jlcHKs}3c_3E<qFF8)&`VI73)|leXAo+fQ{v2o<0L;OCby$6UxVq9u3&+rxH~J
z48#}f3X?Lvjc2$JIq=i>!yBWGh(qr7C_h4Q0q*+TKIx@P{mP~EqSpU>O4Jv-ppE$V
z&a(#M#_yluJBFxE99KmV@23sLvl<`nJ!YSXMXD%9psrvB-M9GT<&#O>mfHh6%+)6+
z6kX^?!S*Hk4gK<lAj^oCrJ7^UZ31^=C)#QKAW0(W{sWRz@L3wcg3O2cA?lm#Q`g~=
z36#Yclv!A|?Kd(CB)bD(O;29U|M=2C1*G!83YQ*T3@tIEItC5#QrYlG+W}BeNK>z!
z>U=6re?6|wi72qxUuH-n`E1G%HziK}{B}ic4z9?pyHhKDAf21nW<&lHP|8)CnGGR9
zj~YYRGR<_}5!PkogxmlPuP&JUHc?1`w_T}RD#(rCnqPG^D4-)A@vgZnL6!2f;-+gd
zZzYr<!PBOu298i<@li<6jKOGigwcs4p0LyqY-4o+=!0q5QY(z=azh*xEKM-S(!`Ak
zD%l7u6q8$ZAN5fM<!i=+<0O#}_43vWadLhOzuSDFrZyrVEsVr(?A_n&lIHM?Ct<=6
zjMH)vhBc9?LszP28eMeU!XknIG6V5o;@P4T_0uthG7s`UAl5TF3Y6&=oIq<+8^Aop
zq&IUkce1(8xREsoG+eqUjO^705P(QP(oeKntXaPdJtvHf7<4^-<00>c#RxDEBZ2a>
z-DM@$>$9MBvR2#gf#cHwovG8an(Z>{Izkc?wc+iTl2?b;bth~PG{L%(KeiD#C&ecF
zvJ*R^3NCy`7PRc*tEKr88;1fIxd(x7<J?hKRehqk#K2Zs@eV3@kf^L%Q45K@-|BW9
zfEkGNg+)c7&z^m1JlUVzR`)5=;PM53ip5AAif|`Zfu8(I9EHyvv}w>9+JmAT?6!V9
z+0sQxP$G;ww~3T=;DD2s2jDe0<1ye90+~i;*N7u_Uk2HIuq9x9@J<S!7DaG#Mass|
z2orD8+EPx1K&F2_4V%C%mh9Mus(DZ6BG1@pz7CARAqc9MV<r@XA(DqpM}VBF?Q4;!
z;xGV4jfAVgl=N};y}%IS9kD@l8kEZTgUPI?Ll37VsSV1}GrQ$deQ)ZqsOI~Cnvk7s
zwGb8&q0Yji)4%$p)?LE8iw07Gj@`Epf6YPd09%<_S{C7)k%W_j(t{1Rj?Tx0Fs9fF
zS2fokGH_vG5Z95~7IbVLcdKh^?g$KqeC$Pe%?d<s@WL8vZYW%z>~Q<`?d5e=L(^jc
zTE3HKnHn3D_W=lV0myt`9Mc2$B7GcHugfwyN}Wsmd*bTdOuVUdCzKtFkd_mGi+vV<
zMIX=4%X_@JqzI)A=Rmnu;tF$9bQUmU;0vZo`-9#Bdj#8C7L?N=Wun=yEonk@;rMdd
z6=&4eEeTyb84WDSmsrkwn!=I5sc$n}n$7gh@>2r?x92HrDeH!ubhqg#H*N8GSI53Y
z(ou+PwiDi1P4E}M@%Raiie)!4W*vCdf-0QI-Y<~XNbQ!^xddx=jAsZecOf!297GDg
zTXXZR8njv>Dtdjw#3e@3i>|-xo%;H6TW>>`BcxlaBgbDVa-6^Bt@3N{wzX?v&hqL{
zX*YFkF>C7H9}-kNSlwd}t^r$T&2_gPk(UPIjX7X-(ep!RBma*hVAZh;er^g|9wD{_
z;rm+-s7R>ekZk1xA}`F%^#yOh1YkCWc%j*OC>|x@%%F5vd=qg1(8-iV+AS<8sSep7
zsNzMZioXwaMV*eo$Bs#|0%YFoUY!2MuKTLP5>M=$G2G*|bjRn4{<ZG)T3qy6{3(M!
zS49;&W&fB`1l~Bn&@IFiDVW*m&RvM~*9DFcj&Q4Z%yrN!?0b}0@-!<a?Fny>oh~H}
zGOQ-SWDCwZ0a0om64ox@JUdM%*+)l5+oD7P0c!^~ULwqOsXBtn%f3%?lz;P7jH_ZA
zsu85(duW7e7pzPhfUtzg_t!7S0kAypkHMP>z?<wH1kx(SLIinQel#m0h7>{4X@kdx
z9Gb;`0TiXrSw0KOY1})&1cXt-+A9cI$X2<#&E^Vl9aPuXuWU(${&||06+?79A`l=n
zOw4(<mD?~IS)gD{*@;h|;wNbd%DTckcZVmN%kT}VDHzA>$yY<zL#eY588MoT-+Bg0
z%brcrS`FU#+WA*=YA<aA(x|p&%Q<+?M~DXGOgSykJejMaL!4&|rdHmUvMdY6k<DCH
z1=CIsCXj_yrY_}09I54kHHKS*2Aom#dSG`G60$#2qzW%r55nkG?dyj)o-v@xDB=8n
z)j{lR{+6(?uq)?t6|LGFWPz1y!jo{!IK#cYQwt@OBqb!YM#3+7g`81zn_~X@0c1Vz
zY**E+Fua!EpoTs-e5jFapzypz^Mofkz}@uT*mHLc=ebjh5O&?x6)D#reR}BTHHW>?
z@5yxB<(1Dxt+2k5ETFn&lBBdnO&>@&mBL7w=g<H4if?JPqO{1MLTX}SqH5hJpCmVK
zdfTImCf>JfPoXGY7?UH;1B(9+Hj(F~GWv&HQ^25L`=e+0FfJ-E@DGss8i^^3@U^`3
z)zY6|Hd*#|SHFJ!Iy;qQqV(mmGmY0FEHsp~i;d{%?~7}~WJ_Z9Q`w2ao`6(nEF!bo
zalxqlVe{dK5@dND?9_`x)x!$P%EHl)GKKQEF5)PT@yTPki17S476&nGq#>K!wlB^M
ze$PAEHaNrW8)AMh*ErX-@mAvV3aD&>??cKfDRdlFEG<d*TKc1-&zZbaVoVEHeXpw%
zR!~qdrQR7_k1ls`>~|1bBD9`8E_VgsOicyANOW9jY}<B$h_2SPdvJ`~e)Skdo$Aea
zZqG?3PA$qj=-*vroO_=Rx~5T~b8Ug-E~*c3OnpE3aO0Gy;9wQtaiE4F43Lo!wak&o
zoA*?kMc{-%e^?Q!AL!UFIo{MZ(|2yCx9o(O#LCggA?IXwv3cXUi{XB8XzsunF7)|x
z_Qmj}wdd2sr;Mjb%+KQ&Eb#_-lT)W^Yb(inV9Q5fbGKeq-!$<K4Gw;qxM;~`tS?xA
zz-HOu-2%hC$i|pfC@-s)nq69nt%-L+sw{gXg3sm{*NQP#3OmxTRBTVbqV@0pUz(IS
ztF3!Ll9EjNN{{@To0R?!P3eEiw><e0N?}*rY%$*P=sfqrqrQtVD4ObZQ`4ERcnz-s
zuVdmtVv~T7^O(cc%j*5}E^@);#dppqrhhecGp=rrPDnW5r}D1xq?^!HpG&sDz1pL_
z&MVxo8@KN7+Zd>$!N)L@T)#fEwdbJj`2HCqnH=(|pHr6@?gbXaTseC(-svs9CXh9G
zA7%JrBcF)HGe)Iz8RBFUZ@j)Vcyr)oghoXjb7#`?X6r<H8VAP4dM4RSR~<2Pz=Fj`
ziVzJN35!M}!dGNWN;CeC`*vt2g812&zJ*6eR-EreIHS1SHSs2X7^me0pS(QeOr0K4
z&fBQDwfu(c<Kdyo;h4m&Bfnz9Jw_~d2buF!ViGK=R;XCOLBsY}5%MQ(M*kZzS3ihB
zHPD`niQhl^YaW@6T#U|SxB<IBHdjRAChJ%;<XdFMf{bMQaDUWr$?j3;$u~&+9AEu8
zOtW;UI35>+Q@<W(7~ivHBd?~zGd5Xqv8uMV<I7CZ^P88-!Mc+#<o7>{&_8ydfgn74
zvToZ6;2Pk|_iYOvh1L0{n6>Q+jf~VlEhInGsY(SLW+ndYbH)VB2bQUQM!KiIdpwlc
zfp|lpTxjSjLYFX=HjgSg8<|qMKj!fe{iT3x2k?n-c5S0pi?h7`#bz(?p<vHp24Z}<
zV^)0<`Ye?JHGA?4P!UjN>~~RkB>ttp$!q1VfDbb|SWmOM5$zgKG8GTBrbW@+la`j|
zA0I<C3<f|Jgue&2(TEhjB*8iendgeA;)S+XO}w>J9An^Z_XHf9l{gULJ@$#*(NF~t
zQNp7COR7r}+6!PfmS<^ROAUYiJdcf0JoJ@2&_6VDD&!8JqR`7wyo7^+26bG)0*-`5
zn-<nT)wWqyuK6wPh;1L<zu$)(4ai?7)M!lr?Kl(;WalpEOq9f*IDEh67nlb1xKfVo
zAyEy#pQI}5=fDv4j!IrA*f!pwK0O*?u?v539l{3lTr|>KbE_!EEy3?Jz{0<Xd|pro
zp<qEYz~`OhD%gN}L{og8x%D7Q{MkI?sab*B2gv&bPC|lzkUpZBsSZB_EZ^<?0Ex%2
zs1>!mbOa`T0Z*gg*gz9gFyqkm%Eb#-=ARx{e>k-}Cd#&9!z*zKaAgEWo1_drRh-5-
zD;9YoG?kQ;1iJ*9G{QZH&CK#qNXvSL#GfNKU_oX1X9+wImWBuxSfG`Yl65YU4y*n9
zAJctwKV(x==&R6M6qi~UP<b1ogjI5KL(4Gvg}&UbTyX1=)s6~t>Xu2wRx&j=zr%!)
z-AK8@Wc9<q<4NpAs|!}9rk6|f(AToP?~I)ce9RvMv&kV%*LhC8vS`we=XPnw>n|Oe
zhr2P{Z8dB+BkcEL%WYl!+)f_riLK35hWTH?F4YI(F`JrS-pv9SG#kZ9UT`x<;tBo|
zRA*}BnOQKi+tbt26pWo)cK=eeh^Dz?NQWZk1vR$}z&SJ&oLAevvP()tB%_560`tQ-
z6q5b0^t8v~jNn^!8?p0HMpM^zmor?i*=_sf6h$W8@S%dDX<GWKh*kl^!L8vZHfYyM
zLe<)GY3s*H!>+q5THD5j&lOk)w(}d0D(8s~IZLNctOv>94ihj$c-AlMAJ#C>iPBlq
zE^wc5JNwe$8}}FBvZSOXZ$d}R4gm<$3EUEZ0|9wAnWUa4Vk)}Ur4eU-5e|aYRMe6R
zTF>-1lhJV-;R2W-H`SG2Z<vqa599<y<fP&D#lxQtZHz082zunWixO|AAw#c=<Cb}X
z(g$kByT-L{)Lqol<;q?9N_?KejOgq~Pq|+&KnX&s4&;;vbjN3(af{>jQ`t!x79<`L
z7`#kof)*v`y)-uzi(DvLXa2vVRGM44`H3!|pniDdL{SY+;eqsc?(XARtJmd$wHij8
zPtcS?-;8EuzF`v`N)LGll2W$0GEJY7Fwor4-EWIvSKB(2&f*!rTp=#CYqM#>kRdev
z#3Z?2gYq%}bxad@eyFQjNT>A3sRcO9b#y&Qo799o2!Kewt|<X2ajEPQQFFMX^NUux
zrB(x*EJ8RH$(KMJ4gl#j_=|qZ&~Rmg&4;G053N0!5?Ol93pe<*rA^J3_}()>HEHef
z4Jbf^@JT%5H+}pQrrmpFs!C=)dn?ZKCL<#ZQ?(mA=1-pjao@57V^A8vYL2Vsm{>#h
zL&ven$JQvR(n=+nEyY^s9#t-`JK`em!)$<xf&Y=%qUrHEk$a=O?BP{x@#Xn8qJqGF
zgvo-u5D8*F_*Teb0H4L6JOr3*t^L$sQ^C0}*>m-N`pF@iNdB{Pc{Pmg22Z!NJ1iR`
zh6+ZhcdF#<$!nyR)y9{%>`X5$D>Enb2de_{Eni~3!VGH|j4`XGj^#o}XluKJ>@7Dh
zmiQ$}q?S+`pHZxOaC_mWbx0azvMc?ECtgg#(N+Xh7P6^)qaq74JZiQ-9++*f(pyvj
zOxE)4SL<!~;lJ|&S89u4Q@c#>jdMmw)P-f{zC+dy&1G%psyHzS(5M(10a3Q`8&Q3u
zXWp2+&XRyDUIqB)nZ+rg!OJ93=)=$_Ac>L0{DX(^^6Hbl2WyY}E|LOImbD+BJ1Bdk
z#lrBlT3V&PJAMG@z6k_Wi6GI&0Hfc#ItZ;=H0zhMFb%=!{*Y^$KFM#HCSWeq$?2=A
z-X_2fCxt0GgtwZjr}zC>vfg>%prPT{Q#rq1yS1TbjMauR4)Ytc08CJ6JcM5c8=4yw
zwCF@_L4~rzsMOQT%M3&_f{JjTNMYXb$n3u;iJIE~DTxwEx<_9wJJL?SD?!^Vg!Vey
zfB0AHa1o9_8S{aU>vD`?DZa1NS>8v$rE?#7se)eu2Fr~S1@Q4v3Vlts1(p;7-$h}K
zaCo~o-yZ_ASUb@sg!T(4ZefofZ-zs#HxL<wUzrY$p$Fc!bIp)^l|`0B*0jZ*b1Nzz
z;WNUWPZ=#>XgvrBhk5`>kx149>5k-eXO;5RP^2OJucgLExfEnQ#Tbbd2JD2Cp1YvV
zBijY?SLhI%&iP;rMIXbv`~jZzd;sZC@kfYq4_yLB0+dGN3v(u4;FQm)%a_gLL4^A7
zPo_-g(?6Lq5CgymDDVhA_#4=qbznd5r8%gcP9|vAR)7>}v*8)f)3cyeC@HA}za34O
zo3i;)B2WE&ub&EYtj_52p050#@vT?kxO8pQr2sr$B=U4FpSB~jXBTQ}loxX~xnJZ|
z9~VbBIG>RNzV(I8OGhf78GT|1SW3M;>ma6t(wFW%W>)^}09+#yKGry_s~7TF1i`w^
z>7_aI-Dh;UbLp5@ub=4JI=x9pv|`zegW5NIs-N;*np0h={Ac^DXBXRN*}d%jQww&9
zk1LvHIL(vmPe7s7H{=?Ysi;7D02q<sBsKC~TI&yE8un(to0wm~iL-V|-#hx$4jv4v
ztu=yr;xXLU(3O8Dp@b7{5nv{8GqEIAPM@fyJ8e1%v}gW!B=6##v}nd?frJ@tg`Yng
z+e*9W^>!F*wsi@PEI`KR*?;TF{^xyr2lbBO86XFdkwxf`tp@=}`E-B2kD9)I6hK5`
zDxk!$wT*%6!VCLWOwduMVT!~bGWvLTX;A)`mNoyrH-yI_W1fcTb!en&gW=!$vxzWx
zeC4j6-nOeB9RAK|pP}%qZWW<|kec1__XC+MxEs_w>hHurF$1;UUNpuU=jBU~ArO^c
z=qm4rhBMau%VV^i>fyXjT#J&<Xy~i~(X86IaezyI>B#%IrCt(Tz(ih-Xrqoi(3gJe
z!Gi~T7aznrfomj|GR%jRiPT&HYo8RDfKaYYzQxxTu8);&As!X6+{yWZCJX=z2T4IB
ztul)25|uce86d=nlqN}JN<v?5zb?9I=E1Om=$B3CKL`H$uK#NrQt*fJc0k`Ik3UEK
zOzI7Bj#NMDokNFpQsyCoW&xZ6o?M5V!;NVImDDW@$Rp5IE`i6P+CkigL$AiegSj46
zP3v3X-}lpNdYj!jRL3|unJn;vtfCcg5R>C8N9nn50391<%=yF!P_-%8njSoK$PWMl
zU16s9Re>-_(K(l%GNa9I3m!HCpCAjlu|-@K)H6&L*~k`j6TKO>3#tX(|F#X0VLB?9
zG&l`xY2iqpf$C5T8VbYOk0idJ8%)PtQ7PTt=rx3*QO`1+<g|PDZb?k5*qMY5={^J@
zbRIOlng*j#Y44ow5(|PO^rbd^W$70Xrrr7DO3NE2%;!qU66Zkz9+t^?d_F_jEAtJ%
z+$HIV(<_jknEmBbh$pot{{@gT?WXp1gL=H^6to6qe*fCxboFp&z5CzkIJqkTc*H}w
zb>#{ag{E+b=ZvR-ArEBB<aK-tjS3J|m$C@=!@w^&=-gwo_D|z8#Bq+syjIcx4TFF?
zja^@vq9!N1p6Ny^NTA`kz7k0!9bvl}GDqf(N5Cw)AZs@6DHpy|$4Seq+-$zAs@c8m
z=VZO8xK~mU$GY7&`@Qpl4Hk|{sz2Xc;S2Ng+XR|x9@>H)h=2evKxQNBJre&gLtp`e
z!x`fPG{D9{Y9WCW*QkBukurv6kFi>R-pZ%mxR0AfAJd2bdcEKcIe{BQJjF!I7->sL
znW$4l?)t3N)t2DUfJi3*mLcf<I^+OF?l3URwl0!}Mhk7KxFpydsAB9)ovc7T3oShW
zT$LMN`(r_~R`Y(6E&e=BYpJZOl$6xTD{Bm|qd$wRS5APk-cu=h<G99HuG#+a5b7xS
z?j0WdAy}RBM0Znq>D21d6(I6e99lTqWiWnN5lt8l6$B)cLI;vXcLA|Q0-l2qsbY1I
zejg2v2bdB*y~`jr8k{QsS1!o$V8*m3sFBO@EHFEy3>Y+JHT{xw_4)!8q1T@;-L1iq
z(e8kpqHrX`oy}=g9`XJIkLG%Q!=2(Lbri4Y#!}9pBdU4irxwQH=zm=ni1rOWsic(D
z+A)EAHY=)ZAEZr^fl7K6i)<?j_WWy8A!h)*0bz7QP}qd|dmcz9YgpKx&5Bv{3b45#
z3#G1Z=zrLNz-zx%AA`)HITm7iHdE=5Y=UZ?h^S~0R4FkClJD5ls;%z5I&)I1cd0P{
z>a@{E?Q6BXsu`pgs?%6`p#7Hq=mDC6u`^5-*w!0c`_OTK1$P*@SNqVxylT#S@!hcr
z2`G=*{s8wQQ$}Bi5xYITROvs$_R$uZnVE#C1F$4=8K^#Or*h!ws)5G|KP#7gr65|O
zm-YmvBf(t`Ah9r6i6Cz{wQ-Du@X}AG2s{t;T%iuj-O6i&(t}k&kcBn@%dtB$KvpfV
z_uawY)X_(#`D7i56jc)r=>@-Fmu-f@Idu_!Sn5bFsa?*2`g1_V2Nx8^YNALQ4}xrn
zGA<vTUx*^?Hbud^nZ6V&71IZXWgK^EH#PIiWt{{Y4nL;)?{IoZPh^i(2Aa^k8ZTYD
zd*H>ESl-9`HvystQ}>acV}l?Rtc^~U1CKCfq5Qq(C|u_owdUjX{kuD9bRjS#4X-n<
zuR*nk(jAn8TVH-EhEJ@VF@tA34$z|~Bo!s%N>}^j1c7pa`+1O35<$Uj*hqmUp^qQ`
zMY!=OrW+FSr%1?z*O&jL`7ZN7YrNLW5o71rSdDAfu0hUOXInSTrRX=4mT~`YQtkhg
zZ%-c3#e4)C8Ms9n*v_xtfh?X$SYn`ww$9XC`HQb!(w;v4!dYxF3T_plBXpNvi7y*I
ziZ}y|#xX@NLC1OQcJoPTX}eeZ+;Y>(a~$M3?YYBz?Vg#Qt`WG=r~T{Ii7dwR*QD3}
zMSPzJuP>X6Fz&j3#%&-ZO`Ia)$k{Q5(-0x}YmT*=$O-5OrKbL<Ly!QzPR#;T!_*)~
zV}?)sk~EGywm+Khz-B3D#(9M!p|GGJI3eK+J!7Pyw|L#KK&X&DA@dM+V;ZPCMq>^N
z`DN=e0qjov^c%$|3>9;|!!jE>{_@$8boQU7%>TSj%)fM*&?(8)RMXT9Lx~Dt6nn@6
zl_gmVk~<7Cr)B}*Jsi7Ggd%kp7mhzJU~lwHqF!}Fo&5>17DG^eUg?ASoAdRVF~*7)
zPv8^q0o0MpN-5C;G;0dDiF{;|^{fik0D$dkEF@Py0x{95CXj_*4s5@0wD4av&^VOP
z@NhLdyY6kLl}2CN5Tny=RPiJ+VRQE63#2Pg!CX{FaH6{Ynj$8I&OW&Tpd<acHa>0e
zyBI0$X{?(G1f6I$kpvkF3d4o3Ni~zV85tkJ$g<h}cdYMU%vE7Y%r~@20+oFtk$uqo
zAi(74r)sCUreJ#j*o9sC``{XIVVAHL$U8e6xsP*j`*wG`)(ZZ@A_*l6Fnp0+CgR$}
zeq9-XU>Pv;PA)g_4upH_YE~YYkEK79ckawx9apxDMMH!NQZHYg%v$YdX$Bnt%p7i%
zXaL4WZ=7aKtmS!<(fB(Lw89Ii=;}sb#j^6ifk7q+Lo8MvrcEu1kpp{?#um+vNkK~b
zT$#OK!2)>m{DE_?0cyJDXC<Tk#?Om+4>Y;AiIjobB>gbku9OGHplmgaIF1>@^w2yY
zV}aoGnSy`H*8Zyk<P}g5*5|cgO2HjiFM`QZ_+2Iq2INwkPHLg;4(dRnvt`w0=|!t6
zh4F&#aumbY@N5y~v$}O@b+y^G>ygrKT2zM4O0BiouxQYAS?!C|-CjKouUEaz`J6HQ
z&=QkdZ*}HOkCWq!Zc<$0Yal*v{!`@kVPO1|q@oz33dlPPx@{UX0fN;<X2XA`xS)fg
zkKZw~ucT2D$E*Jm^;uZI$|vWT?IgvEMEWICI=68#VBK)hG4(eO%|om20H;JBTlD||
zDGc6M2DXzn@M0-U%(>j<n8F`xGBj03X!hm7FXB9C;)7&tL2C)ORswgPR6~#mO}?<1
zR><2Mi=!|Xd?%aab6#FS;Jo5w1FEtcz88kNqi~0>4<|kC>}-=sZk|N>V@@i6IUJS#
z?_;XR9#;0gU0)&_zxoFru-vgBMP*nl!XE|+_*y0SGPns<i~Rsjvt;^H%G@0W%}q`B
z3(bB`E$xh&KmSHf(HKWn&&2<qxAlH0D_i7YRsD5C@z}hMrIbpquBE}+Pp?(BdKJtZ
zZ*M2}kc9uRmq-LWx;)O<9Jc|zR7eFq0QD#<7n21u29}ciY9FuB#!_%-Wy&-)HG|Mf
z*;_cS6Aq5c0i~mlfBej~yR%%kOuexA>a|PK|5rU(JbKqOAF<;ztSOY=&Or2j#hmwg
z_A7B1^sh>*%;B4!;=6H-nDT~3cXW_AE>JRqf6#Ocwm+7VO@H!#1&U^_!GK|Hw%Y#v
zc>(>uH_Ae!`b^{z0<Mr%6<OZLP(xN8s0kZwv+-~VCMW)+NW=7BXafjcys&sCcBf1A
zo8P<&IV>cQWia{t7853aDOs+lbZM3j8z!DFIvz!Zgs>pINNj(*Q1axrckjB7Uvjp)
zc~D<pjD<t*N6AQcjKMH4!^Q`qC<p>JI%KOr!B|@wi&_F|y8YJH(KMG9Rj*Hv4tlTZ
zOQz>SAIuk1-e6-2n*h|Rm$h%yAzZNi5oMDn=#O{`Fc?Wos+#{m(gZkMjSUN_C=e?f
z4p#PiQnf;jJ%qSk>BT4Kk~$tFkMh&QLm=j$8iwEzX9g5(C<@hJO7;)UqpP=RH0(_u
zpi_qLD*Oehni3LHL6J;7NsK^%c+><~Fb<kJ*$N3IqQ}5SG9QMl2x-7j<={O^nJ0;W
z@gO;tf3O`9d%OF0Oyzd}(*Njm=f;1R9b!My`9JA@SAMv4>p3luh)}Al1Lqh`7ZR;6
z%I}sKJ)izhZ2FH}+W+G#O9&Tb6yX7ZHXKb5rl@A-)0!^Fquzlq&S+l8bMD!UH5m;y
zyV$Y<%11=T8D2Ov@0JgN1&gkGo>H=m+xT<cbYbn`y+{+M2#+b5oR*eU-V)s7_*&o<
z6O$tp*)K3c4P;ed5yk+;@W2?c&oK7`+1$IPE*iuG<_+WNHPViHc(B;im`Z&;E?4j>
z7*m63!-F})YFPTIKRu$fbSE=D??R&jONNupu4EVpQ&~s=9E$>8`~rsEn;|GVIbQ~<
z97AgQ{=f09Xc)HP5{-|b;h}X0a9hKRixGP=b9G!j3L`|@k^hE6u`xPZZ05yt(hiKo
zx8h3qFA_&<8OTa%nnppi{|?3t_!vG!^1xS-gK%sXfE|T|hVDX?g$-Rknr7jkdOlaJ
z6A}{2g^>a_V*toeWZXwiK4>T1??&YVn(}F|E->dqo}@nek;l;?g${yEV#}0<Sqw+-
zIW@<WJ2QJHrJHJ8^8xS(qn-V@lk#vO!)>P?KH4#fAgoG&Zwu22fmS}Zl=*=s-Wq&(
zh&#aIv7u=Y(OJ~B2NpO@Olt&r+;w5IpVR=d${5RXnNukh!OckQ@^f6fqotZxz;p&R
z=A*cl$j(U&x%Z*%(MdyVUAdlmtJefEX(U%a<U}$*IMWsSa!yBfc6JIh<Bf@0W2lWh
z(6uj9zY(BaG5B#1(J-MfMcM#1;#Lw7Acq5Z!4V6T*I+2{e}gnmjV&mXoXA*{++jet
z!-XgA9ha=zjQhk^uQ_Jle{^u{^eN#B6a*UzHTBg&7>Z2oH`P7)UXae*@#jcX!V!TI
z)f0Ukv|z;E0}gB&y>jzr$lMD-tyu;;SrwIBqq%QD>EO7o!V8V0B#*lx255q#w;I@Z
za6$Q8y=Nke)&OD1xE8s>6%3s{DUz;wJJYWEFn*-t&OLj!58`tb&@*VD9MK0f`^QZm
z08@>TUPSB$mg#|Yaj~&drau1)X<C~jb+b(PK9`jTm4>6gfN=j<x5%fagFk}x-zqcg
z4iyp;c)6dYuC8uW*OVpQbnne0y7~=|MXk^nO+roAy;^DxQ5Tyt=W<8mv&YJe`pIE$
zbFS09GT_6S0ymV%>4Gc}FPdUp$Gn#3tnOTX4kbbKNKH-6lWw$%cCx7x=FE5t6+M#$
z!l2y#8*^N^6g9OZUF{0c8DS*VH@AaKMn?5C@)Zx+GHr;O?mC^WV?JZx6(c<sl^z8O
zRvuEok{>u<kyl>%(tTd+!w5^@BH!zWN4NPfj{D&;<`mM)Zmf@J@4zx5?cot`qa$xm
z_10H082kaOt((-^aBOzL;bW`krTBS6Tu)bcf+p}8Atet)@<^1SMEis=X4`!!d{A~t
zg-o$_)0EPpxKdjWTz&cl+)!D4dRB(IRyVN0#7&2RNP{0Tv!TYYYf8H7-Ir4sPx<pD
z$b-ie*8JX>!qWn5&aM>N04wY2u6HGz*89dq<--;Em*vO!M&r^q=Ht@cw2De=j#2sX
z<MRv?{SneM8lX)uhseW_^I3B~uXX1dS~&c83?tUiJCF#wFnicZ0!aw|m%^IM@}N)7
z3Kqahhl_O`14C?W(aTO>r6g%BWYbzO=Ulo+VX+V36Fk9uEJRgZ_}Iueb_RpZ{Nzf7
z7-L`wV3N<<d%wcixSU4xqDsq_9#{fiB-;ioqu}{dBIv2HB@AC*5(xQ(4^ice4<Y7H
zEA5$(XQTogDKHZF4;FPX93%7@&uCDX!ITKGNTi-o5W7CKuiXS59>_d|&xV)N&{MWQ
zZe`EThZ+bXb%uq#r~D|0T#|g|F!be9Ny1e>#o_H3xO3?g$UBh4<iV!M7PcIm9!z2c
z{FMLU><*wGO%9f<Jd{k1{u*=xuG7j3;9MeeZj^#j{?+hI@W(&vHSsC_SdNeU`bFED
zE*kiW=Eh#A=~H|qU;T$pwD9zas0RKs%y;}op*bx<DeRLLioHwb;+-_q)hVjbh^OTl
zJCSSLCfg2#>R?Q11kZ_Luw%GBqx;xhAT+vQ5b;Y>yn$gcy8HKzM@r^AI#oL#lyh`|
zXhgGijH!B32G3%79h&l>qoY&M4b}vW_5@Zqd-BRb&oBL4!*H-DfDqBi9~+m2?ONXK
z)jrFu5Kjm2B=OuIM8~2o2X#NLTt2A;58E2J5rgsYsJGEY-fI(Et#aZ|)KIyD1Q7xg
z;N|-<Y>~X(A^iPPef8?~e$$kcpn<V&SN!5KMnAA;XKn927(MA@{BTK<eH5_OAT+N*
z+-$=9s!uTEk^t}voc4gIX2!m0hlO$#)|?wf9~tJC|G!0P+ytItIss}X{13k9#~#YJ
z98(xL@GTxKv8rV>wZbj+-QUN5dJCFA9uVt*CPQN!ImWs-GOV)?1JU)z)85Ta1$(lI
zM$uW_nT%hSKR=)B>=b$198-w)$7}$xiB5;?FR7rx67`-*MrdjMg;Ao8*YKnDP8@8<
zP2eX461p7sFS1`i=HK`fJry$y@m<C0r*W;I%<F|v{_iqnBzcuX?ad<gCz?eB{?pI}
zq<mLQJHU_PIR7)ruN(fG$#clB!I#%yJT>NW&%vH;WXE6=g7uvjJcI~%D_}lUFpt6f
zijm%dbc1}rNGXF!6#LL-r15M+Z5I^^pqt7*_zD0uLCtc#Rp<KOu1_TkeUNyXs1zU@
zC6qdi&K<HqTc)4tEd?24C8uRX77`F`3jwRdNqscv*Ir!D@pdpr@n`%*lFg8FG8>dX
zOOoBN{pSd47$bPG{Zaj?!6E6Aj3t3mPYuqXNxf0FhYXY8eGc?9H7iwd$r5NrD*8$9
ziTYL<1%7i&B?JMf(5mldgAQ_<<68`1jK8oJ94gZz_sH2n>l_|i+v(==(+*iZL&NPm
z_PR=JUGCca_(f3cvIQ?h=Z9{aDY~mE?u*b-)tHzt-BoWt=)^?WG-@7;40+zSChhBv
zIUR@Z>d%=PGjYMsb4SBpPGpHJla_An>EW%k_S{gn_2h${+44Q5whx<-PgO?gxAsUU
z=qTsNR>Ju345S7j2$O7oY*u(PDFO-2u4+NEQRi&ZX-I_&qx92Go=eJ0@lJtD6|fJz
zC^3jkU^~M5@tX&^UdNBM7nCa)#3yN+%EeiLb0$un%o##RMJky)(hvw1yU?@{wOHnZ
zVWgp)l-D0Fs1Z5|`@wO+Y&=j9AtIGI_0!+*@L@p~5Se@oYADYxhxa~hmqh2j=Rndx
zqk=dM?Qx`U{xG}Ql?as!!~ncynJ|1-OR}>d`5{EjnBTotNfpf#J>7-4xZY`k3-E{A
zDr#6!CudJ72sP+bs0TJfNbHC4?0$}2jSW~paDzL(@zJ4qjrl=0enHX=k%Wc}Y_|i7
zK^CIM0~}1r=(z|TFx~8xx{o)pMfH+{@n4#bqIeIr)oVFp4p((z7DFh^2D5!CPY=6z
zRYk(r9WRDHu1n{wjH*cH0g<`nA;u>2I=H~^ih6JOY{TMTvA|X*H=n7(iz#Mp<?I`k
zH>6|R$Q=qOo946MtHF#s+)@wbxCs-4H*ARC<8m;=DMO(gGkK#|!z1EL+zW`d%^;Mb
za+~mKU=Ht4U)}H$cmhi%h;@$kdu3PQsRl#Q{B?+$*oq#LLR&c9?BOOZF0Qgv`}mXJ
zFL$KC4<*YetnD-Ch@uwcz3}ir>Kypi>To3oU~I^XzlbAT_380eLNHXab{#8{5BCt(
z)L0dNaK@Q4XXN>L@%O1)Xox2x*r>9<DDFWk^mWX93E@H0PmeD|M;)4%y?;7fEU2Y~
zv(RRs+u|5&{EjrRHf4XhAb_OzOyuz63-OeVvU@<v>TrAjQeHjI0Jc9JTnjMyAY3C1
ziNo?MZ}tbuz6Nh1MW2j+O?gHZrsNdZP=c<`WD#@>-EH!MAe-ij++39#b-Jm}2XM1G
zOvyf?Kx8cE2`(_ejmz$Vo;{y<b9hRCa*n~KLlaG5G65$sv*@N02;-zH;nJZEG2TAF
z70mYlC%%0nw{y%D4=*@Zh8I<_p22AgnKHr(LlIgwoYsTS9mcMagSVR-W8B!WD9d&N
z=T^ny$0%Vnh{L?*FK05h5}8bp1&TL~Sb$Mv1b!TAN7DSWidAyEJ17J&v3$KFK@M-D
zHe=+&PF({(G@_B<1v?zC_I1>S0lh|p*xensNEN}l!;$k@7i}s`!S68`!{i08o8qWW
zMGc72)Z?ZYK%`iJy35HY4nAp`u+4<l@|4#vv?2FH-$MBz*x4jLLvr3&mJm(4DKzm{
z!Ah9QDED$KkMv@$J^2!0PQOtkw+~M^%Z1*#cO~bV>D#KHk>`wW-F%kO+(XWn>t)6$
zujBtOKRgKjnrV4rOd{Ai<-0>>Vxk|4WSYx{Q_QI_M0E$q1Dfz*pqcQ<fILep#d&C?
z2f1Z57Dq+F%-0m8d~%-Kli&Hd75kXX&uEOh70Po25>G7m?XaT)>fY~o-xWQPqp*(o
z1WmoOlo90PG|vOOzSn#Yi>`zQl6rY*9xhUwrT#{*{F;e(Ao}F~*g$Zc_Q?`tZIb67
zVNCj74%bi9tIP2zMnV?qv{Ky=5Cus8w)bL@t`UHVC8CLg8N%c)^wpC(A<3f27&iF1
zwap~f1Z9FokCAhdxcJkL?bxcppe2gdz>1Sa1H*9r1qkib$l0{%{4Ho`vWz-R+_K@{
zV-($IE(_d!W>iK*sAS<*^=F#)hsTc{Yh3-;1sZipbPP<f={J|>1X{$cYscbBCE?==
zdhKSc`KXrfYJU>r8k5B|AmAA}H=xzK14k{gP)1uBaoKjE&La2^fz2IAKMWn}9SrV;
z6cuT7A*KM(wZVt_cmv<`>AoaVCW{7yKQU<PaLZ^AHuya+U%o7XY=SK8<u31L3@SHa
z2jIR1l8KA_kn&kZbn+q>&MJ0WU;s3OX3^1}!7FO?oD@jFm?9zU6gZk8yHLg8fsW5e
zZyp?o_Y%|BKo8(UXBOJzpeEt$17b?HZq=vk!3ae*^uh2M6lL|p&U0JIjET6o$YGEZ
z_q@N0?4Rs8pss`W?ku0HD_NjusK8GEj9GO|dGon;WrA?)qez^WM7<*M3QGF^Bmdmh
z^%x1o+K<z<TtH0MN&*QTvY?xVrqD~=#VHLt<dz)?IzC|_;;ak456{tBEyM$62;_{S
zFLha=2je1P5Fx@sI(jUi)^@BfG*C3Gy;%2AUXKVm97t|8@d@#fB5B+?DvE4ttBT|h
zc(i!om<xcJQ2|<AUMFYwtW#1&6(yv4J089^Apfc+e7TK1MNb$?TXImZuQ#TNK}cUi
zb5r4BMDr^$59Gunt0cy(CE5+orl^h+)rt4TN+ge26%1)c^M(e_ILM|YC%)hv(Cw&A
zRr`MIO}-u`*3&J)DY7x+xpo9cpK|BUos&IUkB}_wWTV~J(lt+X&*+mC*|@Rv&XKpT
zUpvUw!9Zb+;5{VN>$$nPl~|%tIJ4ybQXeQn_{^%RGEimTqnq^^4URpmT7U?0-9B(G
zUip5Jq^Vj!ovlt9WX4fNEq~TLA~&4CH-;yia&X=pf(_3-jDE4aK?d5*pHa*jAsUy;
zvp?d)NBjDw2hiN@FIc;AF5rKB1RtdM&Jm<ZMFDig*0kv1+^+@MTc;m}o!;z^aO?9r
zjMk&k@#9bDFIr^odFPIUtqb33?QbWP(3r6;jZ2o4`)Hq4I<VivXO6Oy3s@|&k*aJW
zAl)cVO>R2o9XKDhR~XY(7GHhh>W3wx^;UuLMc&1pOvJd>Gj-Tu8f0663;6>W7TT1^
z4tBAL#O3v)c*22L^Lq$RtA-kJf4;A8bU!pN(V_h@>EhvN2v?8z!2}n$kuzBcNj)3(
z0=i%}5b73CtGs8=9VSd#8{0D$N2yg_#^9=CP*Ol~hus17CP>G?mH_dMyl}vC(FCgs
z2_!WA9G~kv)Qn|DF7PuirQR<jUE#1X%R6wp7iXktMRG!Ff1~iVd29X(s6@RA*SPsq
zA<^(Q9J+8y2q$ea-0W$1TZW4WC{W=2amdurn@cwd)nS4V8pcEl1IR%$se}G1ek+l6
z(RJcyn3B|-90F(U4;I=Z#ZdVqFDSm>>K)hf#&4Cp@FTRVsRqx5JH|uaBGlFSfc?m3
zOMmbyANplc9|f(64asZ(<kuFOHpS=spCc`((052zlvuSuF6187ylY!1?;KxR1A4!>
z;5}@j;DRzApj`<EoFD1InbE^L=mqRF)=?H|hlyhT2~e-(i}QGOi0LMNlg-h6YvAgd
zY8?(EmB~>xaAGh532qO|2;A@Df%exYa?ty)IT?;AhWA4H&{mHxk1I5l6ht|H?`R1o
z*fu5$Ad=ZNV7N$4vH%uaw%v|E2Ll7&d-#hyF+ssM(k(;tljE!^rB=_q^2K)(cL(0Y
zvS$E!`OAA3w6#xtd4v{swscBX6%A`diksPv%ERH~)u^50t&XOdRaAK8S@-ux|MX39
zJPB1j)+gGmaT$vxYH?Ozi{W7k%N{%Rj+1~f7?R%0uN0WZ$hVcDQp>SOdeQ>Po>4%p
zD@?%vPz2}`{JlytX9za6u!-xagKP>C;KT^-0RT;*oY|g0c^e>n_T-cqd}4ZPn4Y~S
z{|*ypgQl@-Qh6ll(!gmTZXldJFI+59K81;XKl0`-S`>~4vpZ4qwDgiC>E9nL-QvD8
zvBw}G586L5R{u+0*Q(e*P9WaXj7Qc{vzd#@ccb&R&)`;UC;JA_1UJIyHL3g+4ndS8
zG=mtZO@ds;vkIhm334raA^Csc6Ox{uKDkHO0+#2`wRE<)!GZA>lV8?B1$CB(K-}|6
zNvqb~CaJ%|9mt4^{ms^*6*UZSg~6Y@eZnt}CS1Xv7V%1)yt7OwXO^;Tb!-aUD%t)x
zvU)8KsryrL<EsZ{Bu-2cn!~3m6g>yaVV%=px*=*}T%sDd!n5bi6T0%|F-<9=MlT$o
zSFvy?J5>#WDFLb{B{}XGPY;WNUgsMDnAi2%!U^yKb7=iMJB5t8YTU4+CH%Z)RFh>$
z^Yh-=h(d998t8vFhV)#z)Z?13Pw)i4xbX0oX&Le$$I4yTpF>${T=NaN?z_mHR<IJm
zT@J{I_`!*0-cbs|yx<Ckf=oh!95|3)@6eM;-SORH+e&3r{ethCe$MMzKAM4=O6*Yi
zW5b5tGj)z1PTF`C*72S_cMijp%_w6-J*WoCC(iWxlX~#Uh7}4;CWj-<zPVSn&6qKx
zpA6G*QZ<qi?VI%HI%rxbj{}XrtF=-eg_`~Sp@!X$-rB!#l4)spRQv7Q&VH-uS^PWP
zTL2P1uvl+ZA!7ZJf5(z`*XxWBL~`$hp0q{tzXYs{UVP!F>57eKUwDK}`JwWKqDO#)
z{%MU5>%h9i`9M>3$a)pLac4U*{<KWX%G74{;enA_1Y1EH^U0WU1?K{j)ysJgSU=Sg
z$%d0zrv9(5-4Ae75k`sT73K#bAN3@zD$+|*-?RNcf7ZHTz2R&UAWU`q1-W-dWpb&l
z*l{y=hKfx_JL75If$HlY^U+*B^`mZOTYdfgn>X9ifAW)mm~b2n>-5@+X55Y3Y1H%T
zXLqXFMc_y&@Wr5E0VE2fkrLSxBBa+gEq1T5zZWH-vy)RnqCPVwgwg*e_ZIbl<f|Vi
zq&R1lns35cfvB*PjfK?M{UGmUIhJYzQZ`K$m7B$85qq&WJebE+O8IwO`-Y@9sS{&8
zZ)UhYGJR!NpSy|u0-NB&>h2lG?`)6P$C8fTs)(jpm@_}3OXG3a9I^5+9aRD(VoB42
zotrjo%HCtJBQ`E>(eS=D->dzXe-|sJ5*gg70=BhJ)LeKEB>BLy7-b$)da;oDK6Lc=
zA(X=T`k|y|>tZML$S9?E?5y|08tS!x<66fVYs!w10P0-F;UOLM9UZ%`=JrR{i|Hk6
zK`<mbgy0wi8e*JvcVl6ubR8&10+!tJQqZ=}cdyP%Mc<5-hZ7+fi(a!&COJi{@a3(p
zA0Z+iAw&`|9YieSj4lx{T{K~|?DE}iE&J>j+LDFI>`?3PALfu15aeMX!rR31&6z`q
z8P4W7r2BOKfQOmX3C+?|2(BZbaFaRr5d($_!L^sbMW8T6)*oN6%yz7OF-&h@<_$10
zY;(+Yezf%-9$hJ5YjHpsLkS+E0^gO`^F<oVvqQNFZa4+V6ESeN3-h{A_}g@wmAnYS
z(_DooE2^7Fbge*>58^ziGDEQF1nMxsF&BDSp$5ITr;tG0>kmb4NM4g1y2F|^&;D|1
zf77Le;h{uM!ZzET=#`L!8$`Yq?9jobj??JjR`otyck1U6IFWpqza;1V`%gG7XiThJ
zLGSg-qp6eIU_O{JlI9K1!Z!GWRRV`Qq#0qSB-LM8#x;?rJA{%|?GFHHK?_@8QJ#$q
zj<{w510)!Syun`D^U<T0kKbg$Q%H!>A~qQodF-D1Cf<en7xrx;Z8;<bV8XpW@b$@y
z;9wyDEAIn_&^fscCUPf~$4O)7AADi#hdzu_+CX`0S$1EC&#+E$lzuTOtfAVhtSLdt
zda&B1_iH~^i6(ea#4yTyhPd2_f%Gj~uIbOmC*IKvQkEJ(G8-J0ao?9gOc4(M%F?Fx
zIP)*dSP%$%B?~-}_`A9)Lb^>!7RY-bWCT-n1#R9+u&HT9<2<5CB3Irl1F+Ew(goQ;
zA=Rs$X<%EAcnvqo5b6aiTecb5Cx-oTH0MA8<5y=LPn%G<P)aF3;Kp)c2^pEh?Q%C)
zOGu~zJS~9-C;+(tj3>H)nME*=H!BL?hvq5Ji<&$d|3!4b+8m!K0J|&2#Z};JNy_sl
zNM#WBPCZz+WQihDSanCoM4Y?fNCZ~lr$|GK{f99@voV}r2Q`v<f-N7RC{!_k>=TT0
zo2qDH7DB?j83mw&zgc^Cs;udlF=NQ#h3*y}4*@V1C2Hhr3_zMnuc(adoSb4!eU|`W
z^hhkXryhuEXek}>?^QWxj!9EAQwIT*JUturFy)>YEhuJWPJX+T^L)mc;iLGFpHL7G
zzD<^U^7C*1K8M?piBNuuB?kRSQUQBg*QM*%H4snG0gYdg&V4s91P7}&>PW%{-+aCQ
zb@Cmw9qCI_59t>5w$bg!BoWP?lfF*8Zghsq|LQ$_Hc4^ZBHRr8THaq5rnt;4^Z1=9
zx&CDt7Y3oTX<7U;8uU}1ImT@=N-->I-0)j~$3{>+dK1Mze~(RSJIKM$=r7Zif1flA
thQhYd_zfn;>@mM}d~K@#Z~t)DFr!+ep@`>>2#18q+O~IV<Yt4j{|nj<!m|JX

literal 72201
zcmc$`2Uw5o|2O_AB8iL!p-3ey8AWLr4Hc2JmuOEkw96<IBBhk3c3P75mZH)wX`#LM
zUeD{oeSeSN@jw3m<M%xO=Q*Cwal6}}>$=YCJm2rvI<H5U<fJxHF;bC8q)pQ2#4nRb
z6t*PNnroEn@ST>IVPp8P?wYKWI6mSve>U3%A2!@Lr)o(e?Rh}_BlGGW*CUbklBC5?
zU$K2X)Mn>ME3vXVKHDYgx@EiIOZ7{%w1sQLDNb+M^75?nLk1RdmUxz1j&!ujx8(&X
z>h&n(RcKC0Y|%JHMkl;QkXA=xtIB3Ux3y>X_UcBtxO4@sd}V!6asEhg#EYiM@v_bu
z5d}rfHU<9D0}YA-#eCFczfX)r;y%D#Pxtq8lFw!`t-qfqbCBo!{q(B*THC+BUJy<>
zM*ip9t`b{+Q2hN3PnLp>e?O&{aAo-WDYpmd(BDs0X#XeQnDq%Gzl^-RyoZNJErYh>
z)`0=i%V#fMT%QSyiQ(AkE^n$9KXo|1zHVSMv*_F25Em`8@9*V(ITb5Rn3$QF2jcdT
z&eV80is<jHQ(azW;pbNzA0H>)OKf$%>XLHwnZwj)6V%c!U%BFAp1(YENqIeqbcKAa
zt&aU<<?*(={BEn^Z{8@Tn`>GRHeT3%K(79x*z%QYr%GjZZ+<XjlRaeP;3jxrZSWzd
z2(4WEg~^cBw?=hQ{Y}~~o2-5BC5Co<8=l!#ryA*{8X2r4V9_qzkfg2cve?q`Uay>9
zPgi%Y_34uJ%#dojDC4eO@k2vHu1sqr+`^gX?JG`2r7kR%Xs=8#=;`Zoii&E{h)g}x
zwp-JjF6{I{bgW>Fv)|;`lcTf;dlR!qCj4hQR#(zn3}(kWOP7TjzolHSTzazWIPXNe
zUTX6(hZ)o6VH>BJW&^c+=iH9oH6+px8uA=I!63PG=4Q9mTb7pAQ+@IYs;QDL%Y)ht
zaf)1;)(wijEDtHp<xM}|FZI+A-?N|ie4yd2>d`cd4lSvtyEj-j+`08Ly~DXKS*Muy
z+xSZ!^`1tl)YQ~8o8j*pZ5%^$zGqrSzvNbBk+z?1P^R0tvtN1T)C|wXkc82k$)`t-
z9$n__bz{)txGblo6<qpW#9`)2v|La{)yT=woVwn<%OA{IrY6b{1(wdub$W?t<?ph{
zk#Ewx9mHx>9eVoKiQUdYG$fL%80A>_c^olPzcQd76JWEoBDdbykHVfZFN^$Tf%=Bi
zTbyt&jaxHPHt!Ll9f-RkG?hAGFwyn7$0psp&8n+xtKja<JKgsc^Z5h@?yBz0ovM{(
zYb1+#OC>q<skC%(Bztt`<f>brdWiEvY?aaMXh%}6!|a0MN|D>f%7UR!Pj;o<_<1JD
z?$)ha^{ECIEm!-aLzFz}c|0zx;_PL;omZD{9}V41B5k2wYx}dN+fUnk<p=MarBKk9
zii-M~;g*I3_2cPNnpsu{ZG7(2<tz-u_t@Etv<mi>mY0{OPMHO9<az1p>Kab=R2nxW
z2E7tEeq1@d%_i`*oB^fDZZ(E1FX_lZgRmF_y?2H+ES3%{OY?CG(NBwt?oKM|cH}vI
zPqzqRjWuqFqoSelW5xQAJ|Op+^2_1phiI2$-t9iR#d&F5%B=aFg!j}?YSn^>{c(S%
zc-2(>9*3g(SOurAvq>(?<*mF2e+&$Sd-B%arPx@pTzGFi7e9a6M`16ql?=P5ej2wP
zt<0q7`}(i+1X?H!e@|nR#;nn$#k!|tB+nTutD`Xwtc?2hO(o5=`7$w*l8<-jh~8eB
zyJ_|<`6qef7RrQQ3+FU6UaO^>CnV)9$jo-Q<j=RZ=Q>Qc-R{sV<0S8v(btb^p=?u2
zGp3lfwaA@*nJIFs>)fWDM?SXR-gIn@Z{^V{;p^r!jK|7GmkNi}{j{Ak1y@HfEgb`P
zHT}F{*!Wh}JA(Z}K!($dz2#``Y{2TXw3gwl(Y!^E3)we2C3D9=?dn;HQ;etGx>f$#
zypE2J{X%~<oAiN;!SB1SIg&^PjF@ZnQF1{8^j$a$MM{%3K8FMX6UySc%KZ+}$eX!V
zmw*0zIKA`NFWuDUyEboga)fh<+qvROw&s{s-z7_zFFprbMefM-W7w(<LY&y8jq9SG
z7&pGf(%4v&&SclM)pBupwqrKH8FyRg_Q-2iqt=X@&QH#LXf|CKE2gO&O*LtJJ3glx
z^y*bC1}AXwP|nz0-u$IoAy04i2Hg&5sS;bwsj|ijA6rkR<)e1~{A1jIixG?V9Kri(
zWM4u!72`54G>qXO50V8=8D_3?y1TR0cS7nr9e4GWY#TF8n`XVNo&XbCX68c&U0B<`
z2A#a8wmwvN;m19iieV{cr~1()hHwi_%SwKk^XGkh#QY1?3+9+t=N@FXrCVs{dnv~&
z@#L;74EC%z&9+5PO<AQMD}F$8JlY~-X`-Cpy!Av#d6H^sQ~<vT`#~4RjoOlIIN3Q*
z(xERA&dUouGyQeZPG8dvs+cakJ|VA}ZPOsZpc#RQL!6j>U)Y1G5(e!#{*a`){`%t`
zj&BZM{}gi}Pypw0#mefv_lp-q^}>{K3OIQ?(Rpz={hABwV@Ccj8jnA>3|mHu1Q-A0
z^BTvZ4)D6&S6%4XIz2iNpTwK8x#fddU22tRJXR#vzI~_BC$c8KaPixYT}{x)yxiQ}
zEUI0csF@v5$}^|aV<j{_-y1UcT#8A)^V1VL6z_GL82j=TN9wYy2W9v}hVHCcf6QsY
zYI>wi-DROJq++l!>cTFOg}ygxDc9VphB=;@ariUx8|#`!M?}!twb!Lpm6solKAri?
zg9{^{gyv?}mX-FcbM1otZZT&KqV-HSX(!Fi*|Hrt5Py5LJ>aOp)33oIgUYJjE>3Sx
z8GV;kT~sw1c=h7N8#*o}LsY;l6f)w>JbAOuwPjh?`5aWRnj6yz`SP4sLwib5wTg$0
ztwcBkXW{Q<psQ=^C_*Lq)3>4G)zQjfjB1&F>Oo;)4KI-y|9RV=TW8n~CWa)cq?|eH
zPAz|L-6mSRGiu*pjTCdkq5P#^DX&q$`<e|x8myZ%qcO`k1O-){7N%;x_;Sfk3%%@~
zPH7o7ZqLcI(?VsKvKNl7i)}H_uB@nwS3cww5+B(wb-7t|zl=l0yRm8i?pW>oneQe&
zHl<JZEPrM0%j=d_QStxubPt!b(9K`>QSTK^zdwFV&7+m0a(Ts?my&wXq^~+G3xC7b
z?bYZsR=B>hH*aY|HofYFV!YC;$<2#j(u7BBG1X4%kXB7bS~J~Q&wAIOorO$TVIEY}
zC2F2b>i1$2F@A5>(paI;svRU`{dmtw8(SU=6j90Lh3VXv%44%XA28c<8+?4YRX+fj
zfTG*h&dyG>murN-3^$OTM@<(sv(#h-H|lzc2c1?@n9dGKTtubgNt+=)xnN-<4d?l8
zwwEq#)=fK&jEqEmUC@EvV4jPHWVe|g`tbHt`aTz*D6jVx9qkpCollO_+vSa=iD4S1
zB#ojdYO}h8COxR@Kc;2hAGxiZYU9SEN^ezkboKNyMMkWIJb9X$MD=&*nH<s^Hdv{z
z<D(`{LlR}6sgrsKUqM+}*_fJE@?y9c`Au`Q+lj&Ha~Cfjvdpckt!@3XgtAcCi_z_F
ze2Px)#F;uacnfppjd@!ZTX1>C&CUwZ=YfGH)QrbsK2D*P97cKQowQr`YkD4k`Xo7-
z@96MAL%ghTPuJ%cmG7mcrAr!{I-F@AR#9qu?JTp(d#R|kFpVW%IkA8Lep$z=8P*+6
z<$SGT>WeeOCOh19b_-dRIhta4OL~@xierUxcbK}E58YicLRdS4Nx?hCW>~GWHPccu
z&A6eWH0ol=h^1ZP2h-+jFKbe+mtOV-M7^|45|#R0YU(r=P2gf;dbq;`YC<eP+V}TH
zFPh%rKF7r;<*8{q&+DZaT~<(N2$$Hnys|i&r<_I2J2ft>`oZ+oNbaoG9ufO`6Jn-e
zCAXNl8EU`P&esC6Y8+|HmOY<t)*=8n)IP}ZX45W#7>v>a`rlIAg9CTW&lbLX^{T&7
z$~@zz`?k6ytz0!fO&iseq$GL62o1i(((16Yl@vN2omN5(*|#k!gGE{fZ!Xi7&1^H>
z&VK&VXnU>`BhPBP!)U(;SK^q-lw~OH*<B~|!Y&~f{ko_Nib+}`maF&~pVYRKL2?P2
z*^Q$UO$qAJQ5OOS%AW6MiwYFBd)ID1$OCw@JYVI~n7=Zew5<+}Kvl$kYAkm19eXF-
zs$QFNXB^D>*T)TB-KK3>4Z|O%u%0g~#$6eY&0|Zs971#d(##-Q_UG2T=|=VCU{1Dg
zPUVVN4}gfu(%wB4ul8rRjT~;n9cPn%{`~m>uI!c9JOSMn@mqC4x7&^6nyN9t!18fd
z^p2Z-uW!}LcXmo4faoQ)wYKucfYt9?XuKRobJM@Q2e_2awi&LNdi3Z~fS60(Q)aP5
zv{Il|K<2)|q<jKiRX7reX~w2P`UU%|$pXa$HN}k#y!8O9fN@;Wbq7&j-oE9=0zR+p
zIPMl~`)fl<Nr~@*W4V3K*w~HVfbZDV0@CF8^k7q<SN4jpmF%@t{mLm~$bS^x`||bc
z%eww6fTnUGq6z#ajWK%VFZI8NoqZ56`Dy;wqXWU!nU=lvxT*xqi2nY5{rSb&(I(6?
zv#2%zU!V;IQ`PmGcXQm@*!SY1Xlz^dZ7wb@S-EJ1%@5A@R)sVX*aioSRfv{jDyNd%
zMa5ps=g~URnrcwBZSpa*m{w+HCQ-wIr`3W)9F*ju>rA&NlKr}>;RX1hGTB>od{+H~
zX)Iu_(yLdm^cUN6>{0=rc%*xH-rw2waAsSXvywN?ybm4o*z90^>>HvKF0%nYX5Sud
z6q#+k9z`tMhFpi+Aq;z|bhW7)GSOZFn-);SdOC03yvd~P1wiyNb0yK5`KbQm7E6J^
z3m1jQ?`LXn**#GTn&Ar^5@?<!jT1S%C}m^wA#Zs`9f-E+{9@UDFT-!iI%?TA3BNi!
zr)OF$xY*bvaPj!>0S$8_j%*RNx-giO`_+KC??Y3Pw%Fv%&Fr>B)D(tSwQM3Hnz+S>
zXALR?x@Yn(tKC_8oa}LF+C=*MJ3Y@#%`wptudA~OMZxw12c_qSC$OA3Czfj7NToR~
z+DO+H(}=x|iHSMFY}r-zyvH#Ucc|yCmG}Ew-7@JVZp-osYW(RX9Z&b1RQlinCQECh
zvyQ5m$}w|U_`reEZ)qleH%s^2&S?A8n53P5t=w8D=+lMcZMsneNPJRJQE{#A<nGOH
zwDX<y7l4Hw&Ns!#?>}0JGhaU0e8w@e^2oE&?A4XU%6EAy3nn3xPU9sEpWHX?%4t{X
zzj5L**_w6!rE`lNt6JCWn_8sUcG8H>h5o#8!s9|mzKhFIGn6OcsGCATlI1UXDy^^#
zKDn$eYL6aJJ+E45cy?tX(o5ICV3*kP)Qg%-OM`Ti?>PGYLx+;iEfh87In0i*$;s>N
zD9mKS43fNj+51%#00YyY`lVo#Mb0^{a@tLIOb=1W)Kxj!9V)A=<Ogc1v})3FFniSG
z^7XZ#c~gJgMKK-$Grk3s96R&a*jW9nxw*L`O${%c7H2XWda=|cYImQwQNUCAX#0Vj
zm+EuYc0(zp9%iEe%iOic!Bfm$i#mP3ZXaD|G}TvAe15U|EDfEy*VSB6K|w*u7wi{=
z+qaG0IMEt)eV{hdv#DyY_JVxqVvb^zA*Dn<?~et+WN?}MiFNT7JKcK^GNJ?2*40&(
zW?K&`v36i~R`zN}@8uk(-9#}n)T|IeQ-%6DdW$N1Bx|r@LUeU$@`xX({0}G(=M%M)
zBbVlzHCCxynyojj?e6KJS072rUl~y9X-+lBZDc!ow9d@D@a@~TEJhkGUH10v%y~=a
zHg=86?D{cXibY;=y&j9;<NHK0(HAdX$U2H_D(0IR?HJ`xPRCSBKh~0NacDYoZTzPB
z`1ek%!oscJQVqOHk7y?4CiT)k9>lHJ_OB}W_|Z1#kif~4EoNFpzrLR)vvA^mHXL~>
znLKB(Dd~3nAeejZ%N8ufqfUULo);J%=k<AA4Q_Fx91~rhs_Qw7rLAe2CCi)n@%-`Y
zpQw|%v+{V+0w)$O`WH<On}gtfoJt%PJ9semn^mEslSiOe`dChOUd4+cSurZBkaQW>
z<Fw0Jr%*d(_FSb_>NxWF*P0x6os3N!CoFp&&u0Kr<of|Vmk%@g@)w{P*W}n)rZ*M%
zRjFDmpgX^uh2G$kDGVt``FxG*HAo8S`9*+_5ui|VU_iIChu<c<ZDa^&S)CMHeFMg6
zCt_o2`WEwEe}tj+Ztp;&x&?o_w#%}0h=l`h!bYc@cX5{^J$N&_wn@*&U+V4Zn)4Zr
zjSl7<pZ19Wpw1WuE~S+wbPoR(KqTuxfg<ff<Fk6*30~(e$15eg2Tjlf4$>;$C1e$I
z@%Lz>iD&!vn+d(>>oXL=M9}gYj6e0k@2dKH!{?b!tIM<aJ2kDzjP}GFqdIm=xl-@7
zafcQ<&jhLSb#-?ep>FrA^wqrayfA3*Fpr78Y%j)q(&jA-3yaM8PN65KrUx1tAWdwm
z%gz&vh>D_r#S(UkPn-GT<ai!xgZbo$^U8cL*(=Gj@03DlA}&o0k|&x_va+(yy&gR?
z&2y2-W$C8nVyBmwK)TC9|AEMeh;v_7D<*D>{`BV7&dVvA5}~M*@R6tt;IAD1)sqDs
zk%Nakha+vx`pt&jUwpL~Nb|ou4^<2Ue=KU`4LZIFrr&P|Wv6l&r7!+w=cj;UM&39-
zdLL4;o2ZsFWQq6sm5fiAMAU{`(v|VPbbIzBfM2BNFE7pp+BpV2X!Nt2FDfeXdHs4w
zDWnJm&%#`6X{=auPxc86cHuLB{}|NCfz00EI*_AjR962xHWpbn!vhLgS2bvwD4yn2
z(rFYlEiAA+8)o|^VBTtI-T@XM+HC~9-;$S3krh!eE#aaOW4X~C*ePH#Lbi4|y+h0N
zd!Ex`KnrR{Ju0V@=+i?<vW3?aF0YVBwBNm$l9FP+Sh8Hq@h$1%&v{$T#b4!z@^@G7
zeTyc(*DYL|;l?m?``wB}-YXpwU4-lakQ=d-wuK4|rnJ>2$Rg`4TK8~Dj-X|a;b3Ee
z9_L9Rq3^9TdUpsl)@92NHz{ZYcF#*JpyX|45{}uho!!45u$pZXvuMu8cNz@S82~(V
zpkqMuC7(WV3J56G)YSBZnB1tfz7uiw!DhOHvtPK9>cM4y(`B(AOH*|h2hq}$&z!lt
zZTt3VP<E4I_e~{F-6u-jM1v2w>llK1#3>~NfG0-1I%+TwXpvX*`NaX>z(Dn14{KXn
zHA0^L9E@RV+G^@1)wjd_=Lfa)!GW5{t#1Xc&<8I()Y&2AwD6u_HpJXEZhjZ3{l;UU
zKDJXK>y$Q4F<&crUZSVCZ`Vbag%=n5b2eBxYyhm7!pQkA=B*noE-JE`@AeB^%zIyY
zY6`cc47UWQ5zqpL$aPcK0b(eM9hc>5$m&vbRq43i$DF}4=M(Q_z00_iRP|cWvOYq3
zdwMCPiMR4^B<JN@yj5eX)_->!X-d=>t>735p$yiD0b3InzYm3HpY-?a+exUENv~h;
z&c$GQPps)lGil<jJ5061J<MSwvy?jTgGrOzZ<gsufZi3}?nfq}d3y~vK{4ZiV)i^*
z@$P;Wmio}sYY0UEtM>?V$Z?C{7S7^CDy0J6XMut76&2?RmGtCEb@22r=xD1N_g*CK
zzvsEDzdBNuAu=k;__H_LK+T&6>IBi5`n1a;=6dN<85x<{iSF{{yv<>vS~^vti*Ma&
zn6;vqceJnlB~V%<CRu(<)*`v(l98_s+pzcCJ91mTM5&)m@neQXzcQXma(WVVg-fFe
zY<KSUES9A}x~5by-GOK6yBB|*304n{jE*(|{pxW(eJX}EG5u9OhCtNIdurBtL;av_
zm{!Qchm`5+pV^Gcp6w$u^HLg^ykir#m=?b<Js8+xP!&9Vu*z*ny=3PR-G`aWsDgcy
zRbt1*)`vJwd_LkkJOBjM^gYdlP5S50pK4iFvEV}Ha&EUEs->Uayt05IQ(>kZr3^y!
zTMUw!9ch~eD)V2QZFfj2C4G0B+qWIX0J4h_O3S;JVWC@H4^bT>*E2g_!h3p8xP-O>
z2iXs&HF4k0AqTQ(@H~`fIFb$tI9@raaWsE55jeE`=Z&&{tE?yNxdU<W<Tj2jw9ai+
z0CCChIJ1FPi}dvM^yYmIU0OAy)OFbKp~!mrfd8w20Aq89z|Ir2Zyn9uR>K+rds!43
zX;&P6+*w~S1&oL#n_b;7Q|@N(1l6uffbKr)rrjs_LM`3ZVyl!{6ZfZH3>NNJ2%e};
z=gl5Ea`c1<x+11Xjbma&Kg-h1f%=1OF00EuE6|hQ;Ivh+cFmivf&eZ+yOFh~ZW4U9
z#(F(9iFAsLsIXwAf$9E1f|io2bERS)5h=~4=98<-z^zOcCbKiWS?A76qfA1i-eW!5
zu8HebR#JLNjJfD46zWA`<H(#nqo`{F=};H7plhCnI-U)V6^;7g=H^B>U*kCREyZ<r
zi?%>urCH)9C?-C!Z#Oo(f59-(1XlLgc)m}vjA0UU7QWg`8v`nc-y61>MeU#Sslo`i
zX^jebC*~wiWD+X1`J!BOYMBpA3aTn*?e>oSydMWsVJxI?^`P)9MtipIuVuShM}rlr
z%nDB;H**=}X~8F2c!~#NEC7e>msNv;p2|Qr={4)9Da*ussEeyt7hP7XcGI<D-K5*u
zw!Alb^MJ{|taY>@UO9H52#ug(xTr1^71W205E#+l!8r9t#3n0_GD)qp*$*c4%-~>7
zrw5ew9yxOP`lrV=X-!%tqDqYtN64LowR;;ab8R|Hy=H~HkMi(Tn$<VDHKtsb`mI~*
zadP>X#RyY<n$GBt3al6gEv%0gzO#FLN7>9T>Cm2Jp9zNLgUMF?mqR9Kwd%h%**!gU
zj4QZhWqEPB#UkG~^EKK_R@)g(CW^^vL5G>Q=Gnsnma7l}ngBv7GM!gp(HK_vA6`+)
zR4E*p<oLp0Fj#&&Y@$9LOHR2f1^VXu^Lq6DV4a!OhH!=G4{2$1oowVv$_fAYQCxa{
zRpa39xfym5kv6mT>yq%mTu<#U@I0~;@I%n!`0?XSW{REU6kNAt=kI(zm9TEu3zCq3
zOJ4iS9TlB)-1Y49&VdPo=dNn^7(2lfapF9#vTpNkL-SQ|0h?W?dy*!q-M_rRn#mr`
zYiSKWqUX^h=s9eY9gI?WggO1x-WJ(AwNpp6GoB6+4wch_)E8)$CgyN5zW2Jl<i%hF
zn%v;y<&^{U7xmJu`ubH#S2yAnU{6PWsP(LJvKBLlF?5iFpjVey%;spsmXgE6!>8a&
z1Xw=Jhg_|es((TC;@QhL7KCMbvgVr6B>ShCwYy_22<Z`Bug4iEu>lS2i0{Gfj{ak&
z-}o$v12jRYy~3)A83EB9Gh(*Yk|_UGr8hVEpklNSf5)s@OO9D1jaJ=~lZ@MI^}OH`
zL2}d&D_p)@4=FH&A&00!r4+}2T#o4!tqpN*MfvC_5Yw!z<>HM{ucl<3vzCjc%q~;0
zn-foWLIqC!_#V|_qv2S>vBbOu<8-0h1NG8UUQ9fS1Yc4D2)|j*lkU&;#z0@+7}BVO
zc`DD<9qvp{Q}S5vQ9cHjuKY8y@6nAQTlM6n`!;kqjEbZexSA9s<fMGhgpN}ATClE_
zS;YRm_MPAGa^~Cho)uukHA3G{R^OdoI3Fa`kh3dP@(H8){vErH8HN&Q*vMgefbQAz
zuZ4Y+9L<E74P*<<7wsrrcfz+cFU@(`{;2Eg;9#wu61gC`X#3d_Gv~%>u$tSgH>Fbg
zPg?bbLKkUj9j%M@Y6*{KyP4baDGgQ2_0&Ghyj`M>8S{~1Xnk-DEFIeQQ~RMd9L|53
zq?xURR@*q#oN7Jx<8(T6G^T`*{Zx$TeAjks2&e$Eb(m&@;~9tY=E4c(9NZH+l9J2P
z_yfTMYK4BQkVfL68OX@WzVKmwmIrbrV;y`)IC#*^TOsOv4M1C)dD~=!%j!zc%zLA{
zWA;;qdqf?-E$LiKZ%K2QHHSGPPRKM3g6q61^)0jA<~}~!9;cn3$1e9e=H7amtRM?H
zxu@{uBD_Qw$~s$ZfH#%s9uID%ql*Ob3Rv`HIMn#$czcXl%ZFFpsA$9AQqJxXvf`+%
zT60tGj`1H7yA{@=z=0X4(bgq&%6-5($E2vBiR}@#y#(-Osh$xHsTSQ|>eb*DZl#my
zM3H#%l?iLMLywwSw6#?fn(_)t!`cY*!Yz-R3^18`mZH1~t0Ciwv)_c&9D@%K+OB8w
zw)bj!f3`i`y1!x=iXUxY;*qHY7yRk>4`zW8OD9Dg=M(vEk7y8blsAF8`h1nO#`{$g
zmuIS6RxA%1!yf<PMz)lMt7G)0mX?I#wDjeqQ7!9H3z%Qey^D59{*wg=3ese)L~(vn
zR(9@aP?8I{9_M8xNGu)Q=Z+{PYV@b9?3aAZSNB#uoflr=moG=IUAyKHK?6mYW&eKS
zuii*_(wo~&OiVnEPt5w#dwsS0kjvqK;}+&4%)++G-<pzuf%LN=k<kWz#Tlnn2tyI(
z6ljAp)iZ0I+A<7XN_Q9MlXp|kfBE!$XP}&#z5yWw8rQI;AYnYU<kj_ae@JX!P`Lvr
zL=>h$qaE&t^(%Jd52(US+D~|dNA5K<EN^{mDSP1pe_d&5>H3IZ%<KoM`hapWnsU%G
zD{m3FtIN(s+YdMDRsVV#rXl{^;-5FNgCT6OMbXp`TEZoNV?RBhpQWtrl=khqKJ*XB
ziAU<5LR0+qer4*-scF0aNX%(EJ3c`SuDAs%t!|pNu_2whcsUhPZC<3P(jAzac08jH
z`OM9Xu?j@}2+uaFTLc!}qke!2qo`aM3Clu6fI<84T?Vr8Z`ZvDGvxBhaN9<DZVvA#
zoF}oCuvmvJGf@*8Q1U#4nSiE3Tvk+}l1#_GM&~zy6&lH;N#EBA{@?e;OO$gWV{o9}
zO^U<q!Gl3aR<(-Cn%&cL&;T2-P|HhpTM(8P`dM4g3Rl9Z4`CjAtDB1TQ;mKWxdrg)
z+-<srj<ma)!jEe0yIh~BkooHiQ~hf1bRS)`yasDp+hJyC{6zY7J6$(R*^3u%2X2n$
zt~;C26Lj1{D>J0`<d!5aogD)xBzC3J=ozi%v4^-pip)gYK?2t4hLxO}v9ndiotxwh
zfvaYxaUe8&mghlnSg?pgz#<4^6Y$N5<qDMU%nRMssOs0Ek9oH;h%cdmjTo2#YC4{E
zWgwG}l%Y!()Q0gfI4-+{W%RbY+;0$iVStFkhlSbEB(z&D4Cvv*hanUAGTHa-<57Jl
z4#?Y(V>fvP+O}7zDahkXUQKw}a{V}JBc@#fN+$<5_j$sc!yTH&Z7~9I5wafeX&Lwt
zxwWrzy07Le?Cok)qx!J3>(lM%JYRsnLcW%UlTbsv2Y#D)4-|RaAV2*I|1d0rewUSA
z7mv53Ju;Y8wP=c=xDWlHyb8DmMVP(7Z?Twv#9{d{PY8#J0N8|AY^r+4^eo-!&?G5%
zR77Qi-)T~Ge*?kJuo8*CChF}`{fcTZJ?q)F+v^jaQ2e=lgoG#rpn{x4_~K~3_9n(-
zmuzh_z!2l)f`s~!kEn*eI9<4&IY!2plT5@W*>~1bJ<l;Sa}PazkFsl2vZ&L7f6L|v
z`}f`{zsfZ@coeQ9p-6lC`1nMy$-cB5u0x@!M+Y$&nH^}5C06)k=Gu2v#V4E6whJ$x
z%?qDRAfRuZ#FcoZ3xu!Up~tO~T%e&l_kh`%!^UiFF<-@CkdMz5-l%FQrF1VU`M!)B
zvtVtI$Opi6o1iw(Zr}dq{rh7QQc@4HWaw&%QVe(^`$c<d45sMDn@<3;B}yoXP*Lc%
zgDM<H(XW^t$4);qQMgHWUXQ@kFvK+XC4%+El>NyT`JN+yfi;CB`gnF5(=SFv;lSe-
zjlbb45$#a$L=O!8lQ_C^#3E<hy{Nd@Hy|JmeE)uy5S@q44n`0sRzhG0LsocbvX(^R
z6zcg;TIt%_|K(f~arJop?+-lvdEfuW8($HR;c~48X?xdf8kV?@^B^ES{5QBHJKc$x
zlol#XATcrS^OHF;Ffn~y<mTSb&0Vo%E|cx1c;BttEAW<3(7wbCKQs$1_@s|e-?P~$
z%VC&Kw|rbhT)e;d{aRbDOz07MdU|eIj4=_I$-d8?g-%UPQLRco@z{6xa1HfDRAi)E
zhJdRD(1UMKP-U+O_dZ0Gpxk&zz%zr?>YgF#dV9l$4M(WYLV*uUr23%<R1G<mT^bIH
zlBA?0Zi_7g%;b!W464;#+=7Cc^>(kq|K`j{|9`S$|LvjtpADt`Z+v5xGn#i!A%q4i
zn83;(%-iA!H5F}-sEaELP5BE~B-PXc&|adzwzUktzLtl2Zq;Iz-v3hFT;A5!wqR0d
z_huf=tScyR^2o>lio~yHvOR@SFNtCnF!hH#6$L|o&PvW#)!dv2MI49h$bpapO1z?@
zqvN>&Z*T8#RCmIl0?eq5^wWw<=3B}C6Y+C>7t2T14hUxS>*FH{rrSb6qTL<24(V9s
zy)T`c5;dVg_yLf_!iqa6BqVgzZc}mf{SDi#R+j9bH_Bo<0CWU{fkn+v_Bv3D^P<#8
zUkqs+`&sNH6#ZoY9|J_4vfyKfVb&m}Saz<>rp4@c;0)~`v<W#yC#b3c!0H&Gff)@H
zX~MiC0u?BgYSn{(&(tHfh<YD24NViwng{?s6L?~bV$L~LcF-fD!FbF2t$;tBi7ZXp
zwGt}A&N2R$90px8dgoF7wZ}$LS)z#2k6eQyXb#=htzrAlx^rM)n86mFPoaL+hD&%J
zyY}(nvnOZL?t&H%Mg^J^-)p^_?X3&oYd>vF&|o5=L0wF#CW3e!KaxsqsKFBW6|0FZ
z=}P~@XVY76c_Ito7uo<Dlz7ppyKNZLLa@euAU2xlUP#+1z=RX+UG92uvFpZ(dSnzJ
zfm}k@#G=O{ddYq<_$}Pb-=VIH!PF}4(0FCN8IKuW6{QD;#*ic2l6OlMYCc$c6uyo_
zvs=-4DWeB#)*emF*Vk9^nh-c4K%Ww@4W*0-M1UCiH}7r7uO%6I?G_9_Ig&vbcAI51
z|D5Ng6h(iMh0#v;Ff?^pZ?tpmuKA3N6K$AT-Vqjg^Xymc6ciNLy4PE4HpIxEJ$Ue-
zxfgMYgzKnqQG^Xj$7H4=`_7#^?Yo{!IR<;5^$xb{*$KSP_rqE>^H!wj(%9LMx)4z(
zH8`ENm!xR_j8N#cxGA!B^qKCiu5;c4jR}K?F@w!mrO_8QtF-?n=ymHdWTd4JhrEaw
z8ZsqjA2KNNh;le$qV>UwKDceiEc>BD7n5=(WC{k4n0-H%Kk0~=5KKkcf`6w`LJ{{n
zB{houMlgKnn3zTmU-+GAgTqUs(hf@BcaKK2`e*S2>;6bTnJ+XmBOUqLNCgVi<<9p6
zdOUnsjl|cI2!9>iG2Ay{QHGs6V-dZ$?5C;qRx3BFeja&-$mHaLrKHY+J8KpoP{?Zf
zA>ep;?{u=q-9e_9K^l#7CAp((x}R6-zo{(Rrjft>zMET(xy}ZP+p4u%Iuwbcsg7c<
ziesXKnvpbPQPI(|3;Czs9w18Z1jARvBlYib%C<wdxJ-oewBWhq&i(QvqOTB22>rj!
zt~bbg;+~sHQ(^;TMQvTq^)4Vo8gSpo=UM@65|LqgnKd-=3n~_uVqRVJMd*ASxS4yW
zIfUsRh!GZ;fPMB6>2v2Ot?5Ylij6B&CLW%ilO|5&p~5kjBV}UZNpo(a>yiWf{dWNW
z-p^umt+EZ_(ZUJSpMSn(&mK)v#-`ORCxYZG^SSNJ1Okz*ivwpN<WQnJ;NBi1$P{o1
zZ1WcfE-HaCSXJ^jo%4nc6-BX;-Vo>vD(+=Wm3jzPJ>9-2I`fx%MG&1cu8-OJ%pS=}
zA0Z3XuYVhguL2G(Dc+@h_im<@$jzYkf@vG~cU`^{3@YI3&wwwluyz0!5_yOVuZ~Du
zcD`|YZtN!`_|hjY<|H2<+9$gOFT>WaM$wWzakf9eBvBqqNkmi`vI!dAOaBfk1o~8m
zIP@%dv--kaHScwGbzSaFfL!io%d@nVo<0hyFSsoIt9xwXl9B<dSK>{V=^E+i=-3_<
z%MV#yIAynuiOGEPLnMkOO~^F&UP0^C+u;r#cSe)0ApUO0Rqr`xQaQ(*^Q9V>d%oQx
z%QDPAcry5xK(0%oK7aY*?ZaGcz2~|5%N#aB1OsA<Ms6Vv@YOp4#FG=1ACvWErM?1D
zM-8j@B7LHMyUkkpQE~k$S`Pi9hNPssV8eaiG_w{Z*_YhoCp#LHwZQ|nCYu0SD@aI4
z_zqm?1^7$alH?}#7aBkjoh%`L3BO21H-ITLM^;XbpsVviYdNZr0H{3p6`^0QB^tpi
z)V~qIJxq=Jn2E&wy}aV;_O8{9N`nJ47?UV|Y&2DG=P{LjWdTlqhiSmKl6C$obDcEO
zwQPPG+mdtGUZEM_7Kbs3*h5W8`i>HAy*%BNeWA1(sV?bS7-UYo+2L8e!4ABJdA~lE
zl*C>P5q0kMeDcIvT?5f!;x#6L>7bOP)wY}5Y3SQwFC*lLSfsOly6+-?nSKJ1t!fmY
z7`SS$6ohCWYjEUjQ7J6i{yVp&`5fws99qRR*F|txYbaprb9j*kRB&|6(YAvI6baG!
z#1HE~Gw)Q1QvaG9#3u;Rm(?qM&OlGk2o1(N0uGSiRXY*H;{t@N;|OO3jWy7VVeRvc
z>u()BdX(*RPHy<SKoF<Ij9*kCwOWqjCH5c@<;U`+Z(^!Or?=b7B6lMi360iI^6BoK
zWA=ZpF7#LY6q%MZ!S|pf3z&WjE%9Us+^-L*ZK~pE6$i>75vT^zpsUVt<I%{t1c`{q
zShh0J(9kGDP)Z}@WVaaS<!NQ<`Tg?G#b$BJ@%7+++v?h^>MkrSO;(}AzX@%K1j<IX
zQR0z;B__2obZ&cu*F3ljV8auyxgz~5&msqrDr@UeK%7FKuipA*D&bjT2qh*~d&O33
z5a8`h8NwPggh=o4=+XF`qv{0x37a8*=mUudLL6&54Ld-#jgSwspZocM2(A#`4iX;5
zpn<O>UG#NzuarqBBR(A)DeGqp_Ahhcf+Ebg#H;~MP<>gHam&E+6aKLL2*g6f`H?(R
zz%<1uL?Zdt51Zu*-t5phkuULgB^r^3C}uH9UfU$mc=__>Ga9=Jj(`6AnQms1iOy?~
z#RQ<1``tR(tIzpW9^p$>RaN3k4i#M<et!OX#SL-q&`83_a{#Vp1I#fh#vOUNrM*a;
zAqb7`^IjT2NC}9JC|}kC^`Cjp?e2psZ&)8APxKM+SdUGjkgCq1H&;V&^98K~<%@wA
zqerDQagQcU+?7EIoLh<bc;>%+Y|5tE{zIaF?Em|hPO`6n82x_zU!*ht$1wOGo`jsF
z!uj*(W8&|~a6)(RrrooLC%SIuukWPxW>W#nz*#vJc$RC;=wEKxI_@HN5haa|{*x`O
zj|+0(;6}5mDt8ALxjSgC(qX9qeZ6nm_6@0&GnyOjKW#HtMw^L=|J!3iX?GN=e?~9h
z6cG`rZ#cz<y$?kG{vZ#}1@N)@2C|$ufB?Y>Va$<_X=IKsa8Chz^$ZLiWO2GGL*3}<
zdyV9D^YF};Cd#oygw4U9dcOv3v{ob~L9M?6NkRHD+$R*&vl{ygvXPI5K|L_lUl*1r
zbBT?O%~$9UnbyP8t(3lZKN##-H;lbQfo=`e`Z^SDEeD6`mCiW0(T$02<hu1_Pr*_4
zv_J6q|0<vTKRN*}X~AwzP){F#TT+M4&}}7T-R-L!hgC%IEK>pXNAoa--(yV@5fLE-
zVvwT<M?m=k0n;HYi1ge%v70bi(c9m^Zzeh;jqsT3wr$%yE{MSbLD23z%&vozf`8$B
zvH*FGH-Y_OVhp$EwhWK+sDChorh&4QK%~~(-0Yafav+mKkCsEa&(ZY%!KJ?QK(8Zo
zzpo);NX_dXL<9k4nb>l3%w@%~q_mVl@T)hQtkuGl5mF1nBm)R2#H(PyKm2s9Nm6bU
za)*PkrW=upm>w@>HkqI3CPX-JgiwHILRVy(3_f{V4wjrB0+0F5%TvfW8^g9H3V1!d
z7I2D-5U)7AM}Y*9lg^%kk{O3_BMQ{BeP?}qeIudY$DCV04=}0;mtZ`6?SAQxzuJoH
zm+0E{wuI{r2qEnqb^cX2`WqqsVP(ZBCk5j>EYL2XRdF0WntE>KqUgLh>|a#sI$&eE
z?c4X`r&t0;*t3HzEKMLX1cgd>MDEIumEW+sz>%AiQwA#6u|b6bK5AUm1$=P@&~S~@
zhCjnWQn`XgPoQ*ftIuqH$fjqOO@dlwf&Z~dBkgjp#S%pqW8)nG@ztTi0hB=2J8!;c
zS2|Iw|6jRGw>9t8zlZRZ!XY4tNP7<;%V>&bK5&jm;wZ5aCI@RQG*hO@4@Py8-tX-u
z_0vnYZ{N-)ZIj(LJPuSjDM;ucm|Lm!(HEIhnf|`#-juQc5L`}acw*;LjDULCr58qB
zRtINn3prZ5x^yA(I8>-Zu$5jtemR2(cTGVn>;pI@qN6x%2V%n#u~VeK-Es1Qgt)k2
zfh*a{>z9E@WbAbRIi87Rtt7>MU8?WFU>bXhZW*Q~Gk)iO8+zkpWLuGpVNx=AyMd10
z`=(!t3nYs-l22Hr(J<>E7q?1Q$q+RN0^dpLRfayEXTia|{i}B~f<J!xBty*n?i(j6
zPL06<iA8En9Fe;$U>9IV2|~|Rf(|s2Gbtxs3!d>F8CN3EA`x|KtW@)Mo1!Uc5tFqE
z6F^o|U<)N!HVwfsP}$tFs9Xs+sTx7|QURvLC1tX)jUAh=@&h>PSCA8@>#5uyZFo*j
zu8{z((u~K=UlW_Ken)<-fa^tIRrmBY;lk5%DC)SxrKA|t^9IYbkX1BqF%`HFB&5ir
z_MVv8R@hR*iA{r+y<ef?Hgs7D@!L)4;xm~h4a+AHOQcCayckTF!9y<dp16AoLuDF&
zZylX>By%BG_j(%;s#q+p!IV-aO9x&oV7NBbVC8XOMd`gPEE9*c3x#unPwd`od6K(A
zB$x@r{q((c#4b09i3H@v2|XK|H(0yZ-v$j&gdS|NG&c^GTZ5dp^^XFw-+86U>@IIv
zS_X#R@l1e1h7B5P7(9URAtvwMyngkqE8BhOf$0?E?Hl4BK79DBuHR}=>gXjc=-RJ3
zUd=m`;yHHIcP_Nha3oPV-;@5eNXGr<$Kq*;)lEuU47e5BNsYztFzWo^V}ulgFk;Zm
zNE=kU6V`pzr(yMa3A&gUT5YC4L1ZO%m~ng<LjGEM{?O%{lT-9I@NX&uk6#3O<G0WZ
z!QLGFUOj^E=)QzTfE^{Zgi{GTO7}{wsNwO>qaIGY`}Y@X7;es}{#Sdn%G*-B4Z*6)
z*<0-=b?AV^zQFg&e?jV21?slTz5(8XiTArF-oL+gr@M~a&-FeA*g)DtdjiSRFJ)zv
z5Ti%0UB6Dpz@Yro<sLk3KlIA>RnYuI)V4VAVTs^H7(%SwhaUIDT^;d4Rm-eQ8XN!>
zc;+MK(WrdX;OiAIr}{TiG)M$&XwP%X25cV^2(yBn$4bZ?N<f}Yyv%>5!l{x={k=b?
zKmEMXhxYS=wavEkiFp+Q{B0UbZ^y_@DgGrLjzaBN;!_~s*splAXV{2hKLgc8c1^e`
z(vMmG_7zSp@*FL0=zWApSR3((QNXls<~43LGO%pYU~31xk3+5kRrY3WbDXTy^3qFh
z;kO>RVm;ETidG}Qe29{TVRM(hzP`*gH=RG{82XN-fXfK|hu9$sn0cU>Pj`nq!0(&m
z?Y3u;X9)&_AevTs|5hr%3@I>~T>_@nze+qSYd$~}u<v<g;N#~PJ(!p+hXpdB<^}JY
z6H#+w-)c)I(nQ4OA6)6L57i%03OJ>W0rFMl{*IBW#NqWx6H-MuVqK>t5D*b#BsRv4
z&*MJkjumYr4nSy9*z)sjcpfC7@AH9>DYXaCvy7VG=@DXKr5l?D)`AAHz_14Xp$CO`
zDG2@l6}t}7l*H?*ra-avIYTy}03s|-Y>Xu$LB7~K#g&+G2Azj+eUOtJPJ3Kme+6y(
zJfw(PxFiiozadp40YPaZV=jQJnD3ZzJqJ-$aWPC%RI;@o+V8Ixk`K3LDi976s8`nQ
zQ7uz@Z6L(tIDs?l$i#sC5(s1WW~rF?HMYL~{)Tzc*avq1uaZ8W^FZ%oX=&iSJw)a?
zyVG@o8;spuhl7BViexzuagIdWRebq!`M=2LCqRYVvp7#Hz9f4M?OxD%Y@ZM1SdlUQ
zdElSSfBk4*y8Hj;zV1Ia;=f^Y{I9}74@zr_Eoy)m7%eJm{!7vl;$8U^5|WaD|H1&>
zIjPO2Jp!Xa$==XUzjJdJPA{G+oLw7Ad>`;WrwW=|hdNOgDQReWof<a=Vk1`!*PUwc
zbPs@aYyQ8N;6uJjpVS3D35do#U>xcVRCEa}*%#dqf(hZoK;Wp{t!aauGFzI~ja|5Q
zEgZNVvu*o897zkiQXrbEc@t{+KY$-rpZCXVi+AwL{yZ08lvCvlay-rY;LlKO>3%Vi
zwL?+kU}u+v81WnPv$MY>>X^(|K5B9k%2&zBOGX8IHn0DK{C&slXyW1Bo434ISD_e9
zO{Qv!y<wORt#NccT060WzrYiL3}Yam?<v<Gfa?0d>_LD*1A0Y0`skj4f#39o^Dyx|
z0NVWr4oDGOO?#?BMg`)|dlRTwS<6lWXtN2m8|EWzxY}=4!I_$TNf}Pv1fikB7;k{y
zp~{*uNI35Ut(mD$A>fdi{8kB0i4yN^%V#sBg8j%P(Zo)m8bAPFKR<>pwcm&T@sxO$
zfE(h;G=zq~{3X@0R}LlN#5w-oM=Ln``}8KTvBsCP1M!w!KLUQ=s7puw`~b+~C1(f3
zBH!oFxBeg!N!WuV{QGCOU~gRRT}JgKSK0pi2Qrd)h=J=Fbc?gzf1YOGLJU>tGXxTS
zIEjt&)=2lS&k*?iE_U7B-Jkod+_M<F)nLxS^0c!Aj5I--#JP76+Z<R}<_w8PCAiim
zw+y3k-CEqZabq140CWR!z9vgl#5)ttO;YYm019EJf_-2myELQVEnU9&-;Y?JyQ{N<
z>0Tzb97@zm!fOq6Zv^AV8A6naB8DGH!Kr{o{nXEV)K9R3NLk}%2}R5v;_Or&=<N7{
z-O2Ydh=?pS!s4Hl)(xE0zeoHAahljjVUK-Ha4<YC80>H-1T1Klng!p9fj>2mjcP=J
z1ob)kED&Db?yS?lN9WoUVh2PhgYY7VeOzTO{uUWO*Ab-Vc$<~NLt{$f_+dY>Iq`f7
zp53sYV9jYV4~QGdhPoL`&#eMm(P|jz9F2t7$qW5O5v}x+@^6{$E-!>CoOMrGD~?W>
zidkxN+QhRc#!jQv)FV9z7%c1kTc6oa9E?)<qGyQjF|$2qy#9Ig#H9^%Yb`fQc5kal
zV<)bec%7msEo=3_*5f~4Ub>U94!_dV)7|ZsrAE1pJZH6>j~e@M6>$gakbv-c{yYr(
z9s0hTBq<_GtB6f%+a{wUBZ>aAfPDwnJrz6ojcUb--TCI3-Sn1upNjCH2qMG)b_jN(
z028fY4UKT<{rmT?)zRz{I1h)S&j0ZBFOFaToI|nz_R@Wr+gaH9<pC*a;$#v0l1QwY
zOc7`76Wt?tOPovTEulRV&CP2b`+5?fPGZ&tc%f~{;*4ss;T9*s3NJpp8_ptj6IR1^
z;~!j2z1=%5?|XZ3F6rp2SGq^;v$CSKZu_uzpKIvDGWK^Ip%grxAFjwh`?L@mzI<)#
zV%en1ann0lFT*blueq{y;O<^3%J6p_C!6<f)a__$K2k22FE&?s?CghE6|c^-XSOH#
z9lH57(^B-_fmDrN(GZ7DNyB4|2yyJh){s*8m!S>Dfx8W$V#LJ7osp68psor45dHmH
zdL&YjR#n0O>O8gOBeFvz=wxdkrBQC){K>LP<bh7H`{~##;faZx5pO9(M)Q9D^038@
zqx#f%I!Dl_#-^t0C?;DZwnBj}#bX(^?%46Lw)S!kHk_Az`BH?eNeVo<=$imc=Pq0*
zL2_}+wr%7j6=DP7aLWS_&b0(esawGU{+8!-5;!MTzgQbvK7PLjgevqcUj%1TTgD1f
zX){#s9BRvEAdMmFe;vx>rPwQ5){=#Vh0RSTxjca<w1(u2=LWD}7h7Gj{AMa}KH%5}
zZ1388_wL=jl;k+!aaeLJd-sw6G0v*0zN*UroFtKet@n7vHW*{4$Pd7JxkVZ8`-su*
z0aoybEc~`A=%2xIEWef#`r!jTxDYmPNf;Y*9yxO4#`J(9cz9S|Uhq%ew3wFlIo_;=
zSNZVtnN5uKL!ywS*O2<GvT#<*QwpR43{v3ZjTl}KP7(=8N$c-Qs;V1)sKvCXT)9Ha
z$;tVe3F`L_yz>|y3UOx3TEAe1t$$zEqV%2=*4EY>JUkNS=DfAFwP1cDv_0QV1+@L7
zog;AYyL*3NN5(o*S5J>Xb`=sBBoeT?oL5tQeP~!18EFdxL(`Co!wE;wvFOs`;$kw5
z#YpqF;o(Ion@H!`w_^{<L%YeIeF6fFk-g&oyz-h(ROH_3rUEQ_9vu9XOF1$0{d=FI
zmeTZXqCY4Sr}OC6k^z*S0tx8kd{lU~0C@feo}@v|B>b%=uJEhq#^XnhY$GEht6UiZ
z`68VHFR$ywcJ#HRuHN30OsOi|WuHG6BG9?VD;F90OPszcIkqVes=WUh`<xQvv@_9l
zVc0Cz%$J^+nD|*-j79LqbAA%oCsN}pcK{ZzqA$p`yjSBP@}(8QBD<*EESa>FmDm3e
z+h=ZhjB%5z$&(bgUHd8J<m5h~zY&ik_yy1Xu3Ew;MDIyyYER&8kun6{%ptJ-3HEy6
z`&&0klbolyXzA$%vaxZW0$agdvRwq8??xouQIq_+EMxlTM-Ly4>9C29Y}mY6^2Uwi
zr1HJS3Y|@=i)TKH2L&zXbQ`RhIL`QF-RaY(^LUF1=Cy-*U8$ITZu?EY^dQMMH@nVs
z?L56@PN;=yUCwGgCM<iZDcPx{ru|%88-;>4V~)$U3@K}puUVtMl=;M9#v{CM&f@fz
zWb-y5(~i77vVOd7pLL6{OFS7ntEPsUw}*550(2<Bb}AwhNIE4izZL$y2k7)Z78Y^{
zS;bJLT87F^T*8c=mR!@()}9ayzSret+wLv)b6#fUVK2}8uHaPS8(EUH6485`uJRS=
z9^r5HatUcK$?tf1_y<L@%c^q@Qu+@)Jc_Wg`Cw;p_{!kQc8fah0BkQp4sdKXf3?jh
zD(te|aMI`k*Rd!3<{nPV)K@Xkke#k#Z^(sD!&uZ<QnuLZK+@QF8y?9R_DWnuVZk=i
z0%U3*Aq*1{5%GRu338y$F~-2Qs2an)9@pYKALU4FSxb4h!1CFWWM|XO;PkFTv{V$V
z(sx;<^LX82F3eP|BjJ)dehhNYZ_oSs;R3D1jwg~*&sr|~%kD{vcUhk;dfZAXoyPV8
z`}TI{MKe+Xgu9+&ZR+t2*MI}~0xQ2^cMiDI-RKbK?<sAfZ_;rhB_S3xO1?6Bo=)~j
z%IfN#px4*Yh@PIZgB?Y=X;TUI$nQhN2@g-!{k)ABA{A_bt1B{XYRR%T@obs07m16D
z(}?ptXU^$Mg_|3bkkCyP*2RF!+mqDoILzvTWbKA~g&=ua;a|n$8-&dD5|WZ0G@H)c
zln^)DxM`CctMpTPXYrs{Y6+5HpJW>4XVtP=(zBnjZeV}0LGsO3$u~7ydydSFXkgCl
zlfLY?x|x3G&gPMnHs|MQ*g!&_(fA-eQi}<Xw^&PZgr_B!-!-$0$KI$@M<aAhMgpF(
z%8Y`Vx0jQX%Ce_|?1mZr7_=t>B1ZT3fnkwc0ml7Y1pd}0`P;ezf$|Cp_rk+jutydF
zR64&y+LEVFlW}r!;il~z@zx%gIchuXWTigXsncPzd}R!&sh9?1|4MyYI=V1~LoR#@
z7Pi|)x-poLo^_=PhUpEctES(Q3lH<Rh+6(!AZ4Lol3W7<82z08bKI*bDzEi>7@tV0
zBq(Y7Np#V*Ij^&@vO4B!;`ug>)@KE1mE?+zAklkOwybSMTO+v!oxClu)8H86IKubj
zb5-0w8dbRI5$D|uue~(%^u66)@eRhL3->hc6_Q9#Te$wILRq^4E7t|dJ$U!-h(@kG
z9Xu#J!=codOZk$Tn#aO|y?b_jr1hdJid}7u=ubS8LjwNRo3^`HoCwR`L+M~9CExg2
z#NOFk8MyxRmK%7)16pqJ;g%2K;pB)B-Dxl`sXX2>MCq-bibot^XoQipk@H%=cI{QT
z;V0}SBI**zaa@us`0j_!SKI#%|2)GYiy@rsvZ^X6eSLN)r_W!!xaaM?t-i5QXrz&S
zfH%v@a~(+~+lB{epF6*PU3;sM`L5Xs8gT6pcWZU^rKSFhE=5QzC0{SyOq`REgQKG`
zB0dfJn;;y1%XK)8FS=D!!c#yo-m0V!o03YP9LcMyK7zo1jo{(@I_&?n?#Eb#&89Z*
zRjLQ44e_cy^CBjDJFAV?x*G{1MX(>oK?qn--`3qDgG#jH@U^u_x%0BJvwslEd-rY|
zv>YNxd`VH!4Z7QPP&j`9vw-U*(=X3?-^YlbiM{d*=?#k%<}qlLDcGL;TFiwBqv3zt
zf=RzBxXpO=$A`XY`^2~lqHiw8Zee8f7#J9!XW(QVIRAT{^<%U|6Wz=BVJkW2AIJ}D
zFy8Y5WNTpe?b5B*`dF4&OlY>h3yE>s_nMv>CVv}tde4%rJ&e@rQ0Lq;?-vxDdc5Os
zc)1Jjm@fH&HSOk4wdczGc8q!F>lDbYJS00bzkOX!mlwVv)_<NX2~qs}88ao--_-5|
z6uYLInbw^8r^RaR_h4aUWW36^BeZEyhi^xgql#4h^BrT`{@&o{rbAAa!>j)1**~c5
zonTp)^UojF^D4zR#2O^l7~XF%p0-vMZ=+hH_4h8Y7{B1~;Cprc=}N9?+NpX$z8`FV
ze-h3<lt4eU@x!|Ya{1nmu6}=Kcue5+cnX%)lK*^T*H($G_PI>pzQj9F{O278in!@F
zqLktPVER{&G4A1Ecv!Z2_}@beu!zfBy;n_6S4&pmCXsw)+<yGH%B*}&{MPjX*}rGs
z^?+6S7WaMq)l%Ifr@dLV{UpWrVATG(X6EE(Q#qZ)!mF;8`jfb{uItpc=(WFJLOZ3s
zuO4~zx~SFNeI3@lc+i&rTsJci1s~%RxjTs*9(lZ;50^;){w#bmt4H{Cn?$Xo2ZdK}
zaNkEJh4(+Bsim8uvio$R)4pS0zp}Ap{^xSNHyHG8lb8C>sn^S4DjYtloYZ7#!@Je`
z#DCs{_jeWk{O`}^cmL<$`Y1F+3ko$k#wd8w@1fA1fB&w2xY?lhyFt$_yxsi9bvbRX
z_flTsv}1f`v34zdVjmf{wWr5!@{5oBG&wN8-R(@F<;$hJXTokQ3GUtNihfP8*sBtp
zv{GuECZyl<eKphBCUN<sta8nqwNlt6tIS?0&F$I-E$rvKS?9ATC-!)jko(GX4<7kD
zoH>%-tWxn5L2~PJwY>h0C@(0X__=crlgj(v?{K<pInyBe$Pt9#Ond{dSfPIEeAe!8
z0VKbR50{61_|RC|uqBiI*fCo67mu{BeLe&hg7Qvs#Ykgj5}m8gIE|DTlv-~Gc#eZD
z<~N_5{eC+ctBBMzK}u~N>hyT{T|dPCTSNXmH+T0B4%}E$a^9>nv@9XGqtv#aN5|4$
zEIq2!?-Z1EE@T=Z7q<B9a?bnXsA7;Ss?Ag-{|;)*_dMQM1>;u6i?kA2=l17s*|Mde
zsafDZ_cDK<M>wi-?rq+CGAsjM|6OGA(Rvm<h8Ag<%!S?eA3j{U_wQ7+rUI<jJtA17
zk*ihJ^6t^Y?*;#^5yzsu9RXN=a?$q+ul~4ZC@yY(?cW)`r^r;`q<-)BdzvsDsQ;Y^
z-a)??rkrP3N*nps=S%;d!}HR&N+vH*BFyhREL;4~w_7UoQ?Ktk_Rq}`7q92}v(yIe
z0!)nIxe=$6n$AXE)`82kL)7sE=8CnExOmqC;*DY^|C~_08y;8m6M(mfFs54RTkz<Q
zrIp$IQfwllaXa(#4b`KEWz4ua(Ke{dcZTU7J`_6mXM$>e1P>p}?pRJNq5C{JIXRAG
z<S&>hMQ{Z}YYc@l&akiyyyd3%RLG`y@wsad$h}PB&uYzbg;cBqgoM>>Hj-`8A-dG$
zvdjRbNaTa*UX}rO)Bxjjl)Yx+n!Wy9)`X>g>Q3T`C$c{i+wge7r;x*bU^m|QH9cJW
z&WGWB_2#(ZRE(ZHL(%VhQC3Af?IYt>w?|7ScuX0-8MD#2)f{vT*!6dLfncol&o4vv
z$k*(Ic<6;T2`{Q#17*jWR@%F|y81`Gm>+TVSqy)!-kJBnf#|mDmX?+~QIY4j%F_bU
z1TFMt)rCKJSf&m4=S_0*mg(u~6E}X4&YU^Jhm0&9eny3pp0c(J`dg933<LsOL|(>6
zY~N~ajvc14w^6lqS2b7$YK=`yZo*r=qNvE<jK>!}0{*%R+Z7Cyla|VjhI7dA&s3Pt
z1b>Q%j!riL@ORQnbbt6zSZ6fEgvR=b<eMZ}+yg%JwG+3xC^3yZ7XgXzU?<AR$jA&l
z6lLec-QN@Xc?TX*bOgJ<x@IyEX}OBjpH>X&fJWg;rnvZOO?9;^BF}jZH_}s}!V@7)
zqWAi74KD4tNdS)dOt7R=Z)!3`M#3I2{d&Bfg(#{l)a%xKDKEd-{e=!E*jXDXi`^dL
z7cOin)?^vDA})WQReFz24nm}OW$^caYXkRAUzS*T(^B;#O@&(}<3^b5VmqE7H&<!l
zTsQOqIB%#ucUP$wvy`<p|2i5b=$rai@gzS=N=ieU$CdiTW8nxEf?kZr_Ao(8*mCCV
zS@l*Ih^gmfWQvGb)A#MHEG*%?hX7+?%oMFIRjp<Sv+vtSM(liNh(|kgSk-XIrnpyF
zfQzq>g%a@-LJp{hYst0Kr%sXZjx|^&pt3t;B5#L_%hTdPTpLesX{GWt6WB#eAEdAC
zB6(eEhSzA3c#}>bbop(l6B*mNV&;_}Q<6ae0Uj7eK&AD_zES~@2YmvD!JK9Sx7&5x
z{J!LyLPP~q9OrMDHov1#OZf2lCW2It;^H{LHZsPCaBE^t+AfWkKKJ!?gOZh&X#uSO
z4!1ibT&q)95N!`~T@pnI9cPcw;**Clxwse32x_r!3<TT6tO|>Zqk;;PG5n#WnlS&o
zMn7v(!<VDBb<%WAioL?=_&*qX6L758H(K~rl0qRNnL{#HNHUbDq=CvjrzAvV%3MiQ
zhzzM@%1-7X^VmRyMCK_&gCRoEU^?s3-sgPh`_6Y=$MwIiz5lzs?{9dX`?>G6*1c|U
zi{f^YqM|Qz&ej1hLGwrN84oWnMTqnmv{<%7^dM$b$av+-6`&7Qz^8A6WP~RdH>wF2
zjwmcy+#^Y$`S|!KzR-Z3#`^q)ATbF8n%(23CMLm<GYr9G#9DS9SxCafQATRy_Edl;
z+|ZG0SgJh^1=uUp-NE<n-CLJ&Cm?z3yp`2nHMLbv@?0oN%w->V88b75cH`dGamu~>
zoDhs!=Y#j0I6z^6xpV4wYg;C=k+JR28H_FVs_c$LJJ3oB$tsguM}@locUUNHXbL_h
z#Po9+K0<^7wm^?eG<Y0Re<})ipgr6tQ(F%mI#da7tA{I0)WasByWE1M170#>ZW}T)
zEjHA7K-m02xh>x>1RR>i#tcCRu7OB4M+pfseAYQyRn=QPOaQstlTF1WYoNL@fHQuJ
zde}u|+OjWutLJ!>y*UBAs%UE7v2}jd($})F;gfSO!^%D#EEQn;D=82zw|<=k&dWl%
zKR&dXlk+xYDds5t<lKJ<d;hL8mCx7K(OF^T&U`>kjV$3~A!sn9$2xRFeaA<8^<X1O
zor=p5$4^5mf|`^G^lp6nnDOGfW2&m{0SUB;O|&t`z6>XhS$in+C(I&VBZ)#b^Zfa9
z?(2^-L?k5e+1Cv%>MeH?=nFEHH#!G#3Ehfqo5i=xlgmA0Y5BrTikF}N#rc2IjgKA;
zvT&|Ihl!<6HGwB!8}m@k;l;LohV|=LQx3kgE&)mOTDHH7Wd^YIX*3N41O-KWy8Jf*
z4Be^4!nN~~vpm=B16$ZsxA14)6(D9}g-#>PK+-wAN>=ULi=6;onrXv^p}aLd0O-fL
zx1Os^ZL)fYg(;-yYaALLE?~&Dc$3OrRB7((PD<tc@9z&5)N&eM1l_)EJC$;?Y^(Zz
zaMUXTan8?s(r?;9U744)YwOn4fJ~gf0+RZMyyx`PVAUgKASmPqFlM^W!ID+T2Uax&
zB)`;8*LjHQ_4n`JNAuOg`~ZW7M@I5XNUQ?{c<sbCpWE$^_HLx$M({srjv(7S0YSk5
zbe_4|Kpsc$zm7}9kbzt!-PhFBD=GnnJ?MSi_o^tbx_Nd(udOUv5qDqhhwy}+Q;rdx
zDiXvm1?iP1S_w2$TlKQcs3^R<cCo?aN2V>qcuY$<^uxl0D`ey6UAjRQ$E-M;5PYWM
z;$Uq$yDFD@yr$e@&o4W=gtx~Mn`*kywQ9&w@pg8&>6-cG+Bdec`+>EUm-jIZcWsL}
z3?r#TW99b6=(ch<S*>$zZqxS-()|x7O`FT~J`le73%IK0sZ-SZ7!AA{MTLcZg>M#u
zjegiC`l(-iY0}r1qHj8f8@x%%=3=MXq=i;%8DR4_(G6d#bFJcZW%pI+G*(hb%o(h;
z&eo$)5NE^}A6D=5P}6dnFW{xsE3o6rxBn1~!1ChE4s($79na2haG(9UMvH~ux~FlC
z1ed17B`4Dw7T8q*Jz!*Fx&kcI9JS+xWAAYSr~rV=?RJtkzVX9}&zhle-}FJ`kFhli
zYQD)^CQAj6cg}r5;;i)Q&K&2E`?inv)cg7`j}iUfegJ5cLZ^MX_;fZ2qe?uGv+4WO
zb@p_H6l>rCE*i)K`KP_=3x_hxg6@}-ckVDEcE<tK$l?BAy1oAbLC>ivg?MuYJ+GBy
z%JWS9s*nE4R30JELQMZE;4tY;1z@bf;Pu0|Vdcefw%vdmLlmZI5rTuTPZWNCyi0&*
zK=^fyx3HISETo1C5V!}KNATWu>%2e3V*Jx9by7Fx<>djrdS@jKJPPe57qay(61(fy
z@Uvq@#LanI8hrb<s+U(;_YiQ=X9nrE&K;`&G9c$55f6;JmWj#4Geu!xTBw{wQBXIO
zT-j`1*?s%P3l*e0xc4p4a#bzhc%+J}nq5ud6x9)pI2?7(qqVK=G!RC;eA`WcNGTLR
zfhty3!k^#9j9EP^`(KEdR%*doI59mDw|hS}W0x6uNPrDBB9Mqvy1JLtPEXT8x)9v%
zSnd*55pesqpGl^xrx4$0J+3veO5fNx=3qh4iFP59c3eyJL5(=sdDUvxcYkL4+{a(4
z6JQ6xV$fW?kYg~UBiMTsc?dueEhD3^KfI)+q!^)eU`LBqyMfV0R#y3mwXQd+PCrLm
z4b$e$qK4uiet@uNbPs`n<Vx2l;}a93NAL7%>|KE5Fy*2{h{yQ>!1G?iXNjLNVmo%^
z^jd71l(kq|T%h>EHR4IDrYwmPns|;arUlsu2$V`-&c;fM=muikxbZsLB>^?l{Q?ww
z4_#RAwFTxxt{`5sqi?EC85TA8sfk6VOY68C0uvio81qlthY1WIw-SFFcfrc468qsI
z60RO}Z4E>6@KvUzrRAB2t+R7p8WkGbIRSNO85@sJvnQPxsd-#_G_i>nw}ON5%k>XB
zZi4+A)tC@7<y<E?p*^_)pcPyO6$Q}cojZ4Y!9tpYXu*OQKDCf%E4vv?<x0xE-Ipv=
z=lri<-<PiQ(pEMRsZwV-54@zPDLv@ElHghb{we46M;f~K{$C#1v6ZuXJKvVm`fin^
z|6BIQ1hrZ_*S~8WaYC(T<P;Kc#^Lw$*{H59z`F<-NqCooJ4FrubdI+^imte@3BD{i
z@%v90gWf>%okNeq{+MgFRG9+m<jUdiejDh2p+bXcy3P<X(iiX+a(I7q*YDEjKM@Cj
zHsh_{LRO*k6GR0hQ|qBOzYY*^5NacrF1vq$KnhxjJ3eQNv(mMt8{WVcuy_}DNaheE
zfq%6C`+{F%v-<wC4~vaLndSU@5L8$a{BhXjOLui(jR)|fo>4E+oBZ(342H{Ho&4_Y
zQc_vH7G+Jc`~m{hK!{=EHUG}KdsWhjKtua7?Y2#?1lET%9@ApUMk-4WtMtT!A=Si+
z{p$k<kO_&68Wt#p&}mhTHty~4qxD4Zno?P-B}79MUt}J|&z8`vhnx*o{KPm{F2m*2
zsZ(ZPII|4W3(*(F#KqP7xe@J&n{jXxZsf`9l`B?AdH%YH6RUY7#o66mo?-?YUy0Vk
z%WtS<6JQE#!^F5a3Kk?l&Vwc<+#sjeCzzc#AZtZ$D#*m?H)$=OA15UhdF?`xPjJvP
z=`ZhYdfxt_S3C-7#vn=PK(aEzCqkNPCvG3E5HI0n#XjM3V*Jr_QFUfQ1Ac&mxv;SC
zMFsDd47<#5#*!?RtUs(Qq14e$^fWk02cawa1!ZD3U{QP}AC6{J3cIjBmq{EDITP<T
zl_BgEUL06KX*U${^Y<Tw8P^5~B(CA1n1S^>);%;dlnwo?tj{q7beC^^K~RXu>}gO$
zpas2KiK=)zJo``S=$r=gOp2bb1#5AP;HUO!eEjn!QgXWL-P^Aka|_kMfde$qyv4Bk
z=1B_0hKG}unoLeZ7Bz51`8Kxu_FXZw5zR{iRs7C6&rb3!PU|L;dyf`AQi-pG%2Db}
z4I{Fy+)nz4!>yx#PPOcQwx_=ge8Cjj<*5quQ+_Qiep@;XrLe>TKh5gZ7NoY9GNWK(
zf{Ox{G2uthoN-loaViA0)+<TxDLPUJDKGxA@X&C2u<-i`T$$2M_@T?H#G1~A<e3vW
zp|-X*J6irM-#!e))P%g>w|Lc=$&yDO-;sM#@tt1aM5jO_l84|1RW@$_is{0r?mftt
z$By6m8<^?<@YbGjd}b)cPEYR?NZZ=licB>5WR}fVb!MdNT7bmyfj!XN<sARDlOqU=
zah$`@&`{Jy{3@>*+AQqO5l8B;S%G)fUVkAv&ResG`e{teDE1h-PJ&_dFc7?F;*NL&
zn;H}3m(`G3T!gihZ1c|@WhNiK-V)V1NP;{AgBq$sh~zTs_^gTQa%dp~bmlS^wPQ!v
zx1S$(;mEK^P%}2>(yg1_0363kS|zi6&*I3j*zvEfX~lasgw(K|5{XFkvfRIa|BXD=
zrV*!KNcD}&J78fD0Ia&sU_Z_e^xb{P$hOYoATC~MGn7j3As6BF6g4|j{UNY|mYyE%
zF<Xk~zpOYu@y`AyeIL|z9I$H%U3hZ^FPzJ@=L+l))<9bmI&<zXa36XObunN_zapAz
z&!3DXGirSiQfEf&m}on)2wE>5#u+58+d8}L*xYKkQy<;-gxxnntz6ZvbzS8O)0P7l
z7X+;%4vKS>sxwk&@?2YfJpl$=ZzgQ1At9C{2(M>8ywzIm!Ub^z@lzt&H#l=q>;TiX
z3n_7%O2AQJX2$FOW0(rr|E!+<Oc}!DuAYl4u?|RNMoJ<#L4!pc5FA{Mb=zaT<#6xG
zlK;T0QFlCj3;ztocW1{G_?L8abo@aLVb97N$BjS{3nttT#;b1W1vcK^-X+y&L<b&I
zE9;@dNDXUj3KFV|9=7Ne5|eqRn%HE9BZqyr<73^B{l>aa*1CzaYTPj1M^f%-e<UAZ
zwqIE1@yp7xLN+y#RV5V=&_$BtF7aU}d6ZZ*#j3`B!Z*nQ1Rv@Ly(VA~P)VZ~&<rvo
zlk;kty1MNX*~pl3+QRXAA;&Iow|reyb-878MDiA=o4)O*v-{z~w-tR#+veW*k%-ub
zJcHQxl)^_2(a^Q44VL?mg0et<FKnN=CE?g}z^*UA7gegU2NnyXvICj}jwr9e3%%Wh
z>o{F~dy}Tfr=XhvW=dYaDNBw#@$?lM2OWmr@kP0>xN-eD$!c@j_I_kgVsP8My5x~j
z6FFg~BZ`aV;ZVs5a~4|{55z5^<@N*`(1C!CH?#-P+vo(4H@pHst+i*Soz+!as4`5-
zMo$#l=<4d;fX=}Tg=S70^cfu!*?om_+^nqr08{#ZO${NATRT)hN<D-fAE`JgG)>d_
zwiyU8bd$W2lIxK(!$^DcJJ|7B{*(bDif?`7{pUOq4LQ=S7M03L-c4q%LAqYfnKe+A
zb$u=;Py=>}12ob<5V%*SY)P1S!#zCeB#)QWd9IQvbPnO8>hu+Z^ocABlTx>)^aa#%
z$BwN-Lp<~<XH&NTumLM<7jjZ0f|ic%ZhCMv!PVe2hv>?$tjzN_!=+uj7WzB^Jci$w
zgXV9(COLr{#N%0xpWX<)@7{X!z8~xb>zR6>>OjAn`ABopv7IikHJog(SlkHJ{`50)
z`3dX3qr@v>ndtiT<%<PQPEs?M>1||k-esBFx$T|vr+f?kX{84Z{y;t8RvKSi%n>HA
zkC7VM?nJmSk#M?V#fnnLuUKjYf9h9U{Lv>NEL;gk?z5>$_zQ(@Q~ZEAQ!8A-ssYin
zb(Y?WB@FR`i6V{G!AZG(uYv1qlf=rfWE|B6v0=Lt9la*C^(L~2A?S{R$3avfnC{Ag
z%Jtagt+?un)7g4xNTDfs4G9t*u~BT-wGc|kNQKfvKIUzc<CQBCT3=3L0}wb*J;X*m
zjFavGe4${td1Ug<k)~=_jS`KCyiiCcP($PM2d3FU%|lC5XRumJ_j6Oy9i**KF7Dd4
zZ4Dw1O`qEk1Ikt^3XZ*ObSUCa6clixeBJBdu$|kjpUS@ko8_Y`?DjjYKjagt4w>}j
zc)*e=$eWQs+=+_10m&Iqf&>7jXv3m+4U`8sCBlhD--cE648V4{<XbWtH(VGwLid2G
z5)qXVwS9B>+UqMI@7m1vM9}ft!P-%zt6V;hl)U82|BQ;h9$y8GxE!jKAoTlf!FYx2
z4@9(43eXcPWcuSfvWb=8nGFg&O2RlSo0)&~@bUq6716i8c}5_aFCiEsd&qo_{VZxx
zKbMeeY`19>)9;pX%gKt~HO+xwi>~rPB)5e?>TacTU_BD5I%i2d^nt=!x6O@8Kw%aK
zf1G}-DVzm!u_xPRV53!yiATqeuS1iYYRfiudViM?1mzt%Dyob1+{0ZS!{8DTvb@Fi
z>?vu8E@?+CRP*-j0Z3JCozc(v=ZvilBn_yHgFu6BL4gl|5+NN5nc>ddtw?{GU>-($
zwLfBLgY#MLRi!XEcbzXPVoQK|g51JSI?2-h+5vJT$Oj=^a0wa5X>vP)F;qEwb#ai#
z@UnDBttAPZ6e1*4JuKj3@u-2~4R;qvVqcYY2~A@Qk8?!D#!A{$f*2=B3>4=jGRKlm
zkOL~Gwdo=1-P@eIn^Rx&j@l`>Ya`}e!c~kciA1~^sVKTfixk3nBZ_?cpB-3yHF|46
zu`Zv)2%5P4zKF<3e?$}^apuvnF|AXl{P5%kNvdDOleR}dT?MdSNws_8`fq@Z9pI`)
zd-dIE4eC8}N+@M+7^Fv*vGPw#gs|${%&%x_X8BXiC&_jayF4Ky0VVi781i=y!LR8W
z1X1o}HPYkVKR4T}ufGW^ITQdbwlx9qGctk)BtoOGZlR3mhgd6pwgR9kf!H#PiugSk
zSZ^gY@a7372*2rjBnV9t8qXY_3V}1gTR`r9s*NKc*+R;J(5%)^(5HMF;DenP-`uyQ
zMSBTZjh5@nDBJLGY$|X!6QjU@k9UFTLQqvGZKxe4Kx}MDMuRlQRwntBNL26#PVh1j
z>JFIxu@8qdyopxjcJ_Q#LM7zC*^X?FGs;R#&h&qIigDOu(AxGCGA%PFSKeBLC=zVa
z1sL&1aijtAJP0VT>!<kE4Wt03!2qR_iR$x#ytEKo+v}EGUxs8}&%jzD1m!JR5`~2w
zO(H^aa_oeqm$qU=nlO+zv?26oE$bwn3G-UD_rdGQWAWmc!}90XB`aOkqyRSJKPGxN
z<JMI1o4IoUXjb~n5AjSvkKuaJS@q*KfP4G?(y(T68Z9e8Z9zNI(%OonR3)(~4tX<D
zpW_eoeYc{CG$v=YE;>hEB6kDcqN9N_yL;p0>{$Epe2)8xI;mW_PS>toqoOb{FrcV3
zQ3NGRzt7tK8oQCl6|2TuRyGR4H@c9$;{*N_(~tghN@OFT3)IF9-cHNP8zx3ZSRf@Q
zgJNyz1Vz!0!Ct#aADU5-<0|Ox(6n}M$Jw>e%=WiN?@kZAef#5_;%|m@oiSPiRDA}e
zF&z)SUO{PyaB?<IBfW`mon8f_8DRAZ_Ck_@&Tl^q(pk~iv1M>@u+(uLmSvluuN~*`
zfUQg|M+SBykvJk3{Inf^5rD9x=i47b5r;v@&mY6<hqdp(-Nsd1+m_*m&V(!2*oSBU
zmJxc#0jc_2F$=%rHQ}4V(M2fJ4kU(NkqF%k{2ZlWk9B2w``8r9Pu|_TH(}pImC+nm
zIb5{zEf6~7{ZvRWoJR6qmHQm@D^YE6zRWTi85LEhz4~_mFRe+LwtuqB?4{%Jnipr4
zesckpQ69kkg9v%J_%-Nz8xHpw_k(dB3tt!)%QZcmUVpE)&Ko57=H=OGbiX5uUXNsN
zZ<{>w&yv?Et=64OAJ7#*(jsgxtJIyB^9+`e{4o{#iT*Dur`cv3S1Xtre%7ko%)ud|
z%k^<fkbNWX^v3eYJId3o<Fl&cOq`tcKRu@RAXw$hb84}~zaNQvKcZ=By1vZh8?6&+
z+`=rz+5;Jv+G1gf&w-4=E@-#MtQhc@&sxGBW#GR00hEt(Y{m%_vE+)+3AlA@zkvY<
zGDqNF>(s-Dax@`9>SF(1oO{2WK4$><G)SNAoC@p#^j~o;@2WUQ@$S^tH;?vw+zEjr
zFsIL>@0UxCp%e$;Yayw8jz?kCfmKlK*|=kr1N;w{`L$)WhV$Gx=|}N~xL)Lqd#=}{
z;?Jmz#?Fn30>ML(hJ_4h7unB#&;q(4+tisQOiG7m<?hz{fkp#Jt(tFusP;a?0gD9~
zz1>Wmb35cqM2dGPj5@V-El{6(LBqE$3Gwn)I=nSV*YQ^3tuU+LZ2`f4*)cni%6=E>
zgyYHqnm;XlLP1Fyoe7#(8QOGbS%e0yF7AxT3{L!x&D;v+BB}p*x$yn6Pb*d$k6O*%
zVs@0=JFymmD1?+a{M7mdqJ*|U88qBmQlJ}beDdV`iCPu3x&cGFlg<jz42dQNCN!oy
zU;)~<Ul%y;^kd4vBDd4iv5&c^uCFaS)%1?pzwCK0z9zv2_8S+GxwC%r6P1*F4cXHj
zl-ekJYP>y<Tb8+7RDT7;psBAv;;7t@uDDJQstruP58qf-iuX;D)$(71bRZ=6hY8Sc
zmZc}40i679XJusti(Fr>mFE3KZzUkpL%K;U4>ab`ON!J^VCz=YeM4$YdmL>w@MgB7
zlgkrZEcxlv^Ufb2C<E4_Gs_VW;F+|4MIW*+dgP3zcSUajQ0u7hQ6@SoWF_qI4;T(`
zT>hryyE&3Kb&QN|kB(a7)N9W+NSA{HX5Ad!RbRYOv~TjGJvU!oK|k)D;jPWqc?L&f
zmAD|tMoQo^+P;l;1<sX=KuO|o?3%2J4h-<D8l$quf(3uLngSG2p4<DEIk`^?vd2Kk
zpDCtZGaFeYi~=Ch_W0Dsgb%>^_mHFUU0$ax2p+IIVEW7W0`EgGHl*{-aBfu?5;OuR
z;#|k3waPPyGUS&g1rLx56ELC#%ExN}%~NS6wKrZf4ywFh?^;z=<DmAHePmc9WfDf;
zX6R%-)=e@OL;)UxUjddQGlaf&<<)fy5>SOHG~`*EBcHHvO?L4ft#kjhkNsC}{@H7j
zXYlIPD>InJqVP1?<ARQ&l4_g)$j*dW*6NQ!`;DH)D!_ET98X%Unb_F2YA{@Y0@uYr
z0K|Xlv~a(;q@?{NwYQjRx0Z4zEUbA@2_<zExe6d{$KR0Zia+6)zoOIARQ01r)eH;_
z?y~w})qt0-0<cN|GCaz9(F+ug0<Mb?v0QJm3YYQZ#woaV?OIJ8ozK(vpiz6nx?=-V
zlMHuR3J?Mw82PcHt^L+qhy4|+^JkA!f~SxK-Tk`&YF?{q0d-e|b<Q1}`=Crw&L*U#
z)o*_vTEhd{h@1#)k|wq@bLq>+^9s_A5+Sc}-uQH$!PzuwO<@*-jscSzXf6k{v>ygM
zXVP&DDA2pXV?GPkT3EMR#KqG)y@0sWQQS~g++UCaCS!t;OO#3spBYl$O^#^Qmgnrl
zCtMvMV25C{q;v`BcW6}9Ru8U6&p5#x?9g#MiX&&DaA+Mqa{p7?MWF$*yCL)=yLsUk
zY#V69R>u}1vnL=MJZo1{P%{U@w|En(#$d1M@83i3+@XLy25Kp$pF@o<W@z!{d=?dy
ze)X?J5wL=SNV^@;b$u*z5up43&*|Jd8beWyK|Umh@(NB}|C?q{|8njpl_Bm@1TFau
z;DMm##G)*eIrdk+o0D%X=RC@ilatfK&4z*(nCi)V`TGbqz~qCwx(pz6p<cBr9_}<I
z<LXByw4R;{zD11$!cM&7;73uMszj9t-A$&(R0>R_Tta4q`}5%L`5FWEZUExIGc*G^
zMBr+RIWV(+Sd2&^GdiabkBK}IES{qH^`2Lfo*y+JUittDk`Kgo3WCe5#g=z7pVN$J
zN?TZwlo6?BOH1YHY+g_<*cr<K^iOXW65~Nse@GE97Ux-!OVA!7_kl*VP|*&4+Uzh|
zv~|AY1APzVhW6bG24@=VF#Lzqn`AKL0OlnvBTw)^V?!0F1VUgtG`z^)htLo994+8?
zLPM$4!(bj1K;#w3SB=CW2TW$b8AQ51Few5{6`CGDA{9X(CR8IjJHCuD2PV@E*X)g|
z(M}NN7Z+zh(cdr|+G?Fwh~|Fm$1f2>9**V(2?;7~z6H9OCIq@fx^2w;9^*PO$?Q-*
zf@kuj(6co57Eq`x^YFlQRFX~%pb6lmz4!OcnI=b*W`}NbPYb@qqZ_K*R0`LYYBY-V
z4T?uYJWW7b;DVeo%v2AbYg`yRaz*0Y<cUkrB$DR%s6G$U5QW0z#O$|N@|#%V-7>P<
zw=)4_kIdsnJr4vjuC%nY!ApjN0aB)F*)`O@JKbuP9cY#xX8LZ}n31P62`^RhYKX`L
z<M77XTGbFe{*YOxtbk&Vr!LH<>4;*6M+nAMO<i5Xly{g#4PXZ$f%oj$j8Q)5aM*YL
z{5D7?&yAgU!v7cMo4($9`}S>@)!FG<sjcJOV?ia_NLxr-*p}_vvs<P12no@^0>Z3N
zL$#%<wmBhwH#xxI(=^p`^7!&&0;NQPD#3#RhxW;fL6#78LQ|7yF!C?wb#d1a<q2da
zuONqc&-95YlqXB_rll0Sr_%nY8sk-~RtbxUINH>MC;`T!3~;e?6e-8|+Kx8F+1uQT
z9HjK{_Etjm4!va@w6xeuIA}vGuOWah-6>Pse+gyD^|^_X^*H)K;8#JHBZYyJ_B@eB
zm4>plQ5^|a=7S^+q={^p_+0gHY+zwoj&*ptQzx`P9`8tqpPTx!H%gpCewP*tQ6M2H
zO+J;f?)*zv904w6Uxc=9wSWXVr`0^qU<%S|neL?m87u)1^k?S;My1JjFd0feJDR@<
zEjaP0WI<9;d=aq{vB62)B#=r>Ob}`AX;l2lX;(I*qwuT$nj30(v?cNDuEBmbzS(5;
zs$yxuzTh=_t31)5tOw6mwiNz^x7D#odgcYxUx4R8H{B4+Gizy%ALHF@AT_>sjW3}_
z0HO+r+sH@^b@C~Z?Jy?+Q2RXH0djfZ904_B3KP%44ar{U@<XA;hj)vJ_yRUgF!VKr
z%^doz7yy%#_Lnku86bE!(PK7%j9nFac5qfz>*H{Z4RXj~kxzEX%)*O3yoiH;RBZWJ
zDLc8o7Zl#?JHgIPK?g7<iUL;7cE_zYD`~O@5s`=<T{rk!ZPnUq&v`G&R02KfDaINT
zqQO}jQML}};TZD%n+X9xoq(gP0zyN{C<{c(D}{o}e2Vm5L4g(Aoe4|65TfgYDFrSW
z#{Ei!mOv5h@#_?lonqEG<Lz9Ekpc2-G{qn3h*HP%I|E{uK`&&P^RTa~sjvSU_r~)e
zBQ;nGCg3*qmp&jnw19yxS9A4MaG#03u4v~cxfFyd1VaV&9}fl|dUPntE0J6UU>(k5
z21ExYuvtJa>xLN?IG6pQPwPhy>V9aDvH_5V#Nxoz(l!4U(#CBh{-DNZ`@5vK{fN$X
zGZRWMYO`n#F}ix~S~u4n_i64fj=#*@MnL!bAkAR8x#XFoBg_&I82B955DYWRT$z=?
zGuT7iC&^?!iZ74%FDeWRJJ#J|Ed#f@5CmFo^pCm0iZ?VYZ1CA}@ZU-xWjGbxSxBoK
z)S5w9MeZkvhA7Gb3EeY~uQT83R9h}*-;i*YCF`j8<uvezd+5fubp{fE_x{W#RA$aN
zsqb$$8%RCqvbgx338){t0>!k}!71T>MI5aZqURHz*ucZHo^nV-!^R;N0yRD$xiDCm
zdCaK~hSwYeUw(o6B#(+5>3HPGp=nU*7;x&MhXaD6Ap#9&WK_ef8y2SYN1}HmRf!hJ
zK43tn;|shdNYtgg=iL;3yxR}J;(`Oo9<~4`Y*hGuTdWZWh<ql-oA9C1L^|W-@fECJ
zsU~Q&bTrT*O3*t!)dvJG3`G&rApkrVFG}I-NnX=xxb%H`x=SYG@ndT2DUpc7`36Wi
zM_np6Gcx)@S5>RCADGznp^Q!7f%slS-&g$TAeH^;)BHq@H$OkmI>!jNF0|mS<Lnr1
zTnk<Xc8r7SySX8jAeRq&<>4Q0XiZW2GrYy~N7F&l-4OofAD^=zJBex!DGOH!y81D<
zeEAH-uV1aKtQ30f0hJu8%q&bTMxgwE^jO|6%X9hLVQIZ%!~KAHQ&6fH`{*+O&KCXG
z`*C|DZ3g9UhB-tz-dg-i({O_8hhWUbrXJ6FJ07N_w$oAYtVHJmoya;UolyP}%!M#@
zuxH$t*yJ|zOV#*#gQZ2G#!<)~Nm+~Ps=*EpbZn@kLH^KYa#j=<7aI>DB!KY2&N-VZ
z2&kDz8nm=R>nzY;d_69Xx6>LTt<kRv#XcV~kxHCm2CD{SW~C=9x83ANYoQbzIw_R^
zkUrPOm)hapegU|NKP55+!*Om{vN91h6;gRR;yVgInYWg&TmQFyP{gL&q$<J$y$?tO
zeF3pSFIZk%h+bmM?-~TadJu&%bnVartxaqSKs)H;+W%TXQ9V5`zo}{*0FF`Yz;7_g
z{m@AWgXP3R%Z83j0W%=5JDABV-mw$42a&j3Ll1Z5rv-F1686&lf@KsmqU7C?C<>z(
zI`oHbWnp3A1$j)O(c%ZpTw&kiB8DMU!vIj3oSjj16Y9^9-gSJAC})wj%p7I_2e8%R
z!ELd6x&O2PTWD8cqkkCf4G%(-6g|?G$UGWE&$n+8v>-oSK5Wo|0|^CW5*GielhD~m
ziVDJCW2+F1&Pb*XY~_ljpFT^gDTKI?g3k?>7VTBiFo7ad0p5!ZZ~GPyFwJv2rJyn*
zXBI$h#~)|Ncz3{7{r5uKJHSO!=AT?&bur!EK}BUnFz4>UXM_uZGb4HU06yO={0OW$
zh;u^<TF!Y4U9feYg-xXFMERT@Y3t|G<8o#NtcZCDJ5eF`d@ct&ft^wC-s9FoRjpS9
zOGJ+U(mF4{&=iRb!TZ1V6ulR9W@K{KMu0~ds0IS{!5oecz^6#7jArFqtn-dn=c__I
zhhqczv}*2$S_&_u0H7c$0p^x<l_S(A??kz#EfTTJ@FSZ+$3vxM?f^0ujL4%$ItL7V
zaq@<8KkP(IE+<CaTA&*yNjNadsMjc)mSvI4omJgH0SRtTsYLM_^H&o2hYBf9ih9UX
zoL78Xwyeae6jM%PbmoJRg2J(faww&c^}9hYTQ)5iEUyd-1UHJm%vJa)((ryM8v!zp
zE6%Xssa}NyFSB)utVaNZ1sbGX7#ut^da_JXZ=mihg8tx$(A~N@jW9n5MQi&$Czhr2
zpn75C=9aJ#cLBJLbl~0|R|%mb_k4+<k4Qd{2EcJp3KtH)%*&rT5bk4Q4l24`u`!i5
zbsJcPc3~Q<MK$m&2$skOXz1DB4Q_0Es}d&g`od$Rh!<^ap|%_vb=Tk#g3s3tqL&A~
z_zR;aM%;Q9pT9nxEhqj$M@wtqM|=$=bSNH4s}vZ7-jonTYm~+^Bfoni0Zm|=_B~m6
zQ|n5-uM+Umb~xKZ62XsM19AYvoJi5pt~-uOry4xzxq@n_MM`0Eix%#Zs1#6^+=OWI
zcYY;6cdP0uGLnMV5QQa_miByNrO5~g2|0*H;bm==p^=$^#Ni}nfU9Ug4+!8075Bn2
zK+My;k**^Wg(B@>Y%<<5bc1X5xK6x6mI``sJG@^=Ctrh-<eXR!N;6jF8h`~93P#sF
z<mTD!C_o}RT8k}k6as}!#(4PWAa1zk{_QT7=)JF@x;TX9QioB)iMNFSEwbO6Ds1@%
z50S~P7xLnrNXSZbRx3l!kN(9nlgv)r1K2Cp*4EIKN<xEq=hg=1&~BvsC@=5C#)g2x
zqO?n7!4KhIJ}|3&MLqt^rSX-xghZrFKLcPqSS1-MdT(5NUH2P5(1(Ob=Q+Q)fBvDV
z%)2v-gO+5XoZTp=L4o-pAsavu^AaX=53Ac+Td95>59sEc6B&dU2teJ`6)BvpXcKsa
zJm*%FiTfG|6X5Jmg%kuBHH8ADU=>o`AdnF5ErWxw*|Be4*)ai{vkLFDdm%Sa!912>
z12c2;xDMkI{<vEv1DAr_3cJ*=eq*R8M`IYa#f-Ti*EejtaSmVzz#jul=Lgw#=sF$6
z<5>LhM0o(ojPu$!l!}3-i_=khxt0uI557fM%-sbdc&t|<bq`v1jP@3URu7yvGc&vK
zr~rw%oYOEPgnRFYkg7wPj<8D%1BgTd9^{=N_St$}ify*Cb>7@ZA1Q1igM^3XP8dSy
z{ZXf+B;%EL-?VG={Jx>aTy*A*<xT{CjMEh6rBx}ITlYEGj%TvVPz<8?f%JmD7m!8~
z#+1+xxEs<LK{|a&V*%N8pjx>s#(7=<-!q*59b_u@f2lW>XH8$}3%UY>n>XTY+z%`S
z5Znz!;rz>W9l*P_G&SFS%?DxV=)d8&k?X@Cpi5m7*~skX%f_jTyO*v-O0X0o<#{3M
zV@lpzq@-!z*PG)Yx=7FQa_)e{{}t5AXO+v9*U-}TvlSjYoOHsu?&m&Tr;oc0p|63N
zaQ<c2pkq&7B8!{4Wje1id#C;GcVKcg-rNxG)?*gjjdffqkX_uGTSY@dVlcsOW_~RO
zRMh>|w`zDNm3Xbbbg*FQXui)y7BwaWhL>AH6b3t3QKJDf*?{&xGMFt3gl{R-WWnRJ
zY%kh$ihv&mE1Q1c(Zcyg8o4cLRuTb~)`=5WG18WyGVdY~)&C#;>fG^%0iG$CI-;~m
zqs1g<{9!M=L~_5ywnHa`J`g?(lD*V}0H4#oPj#^odJI&#5(UR{4ARNzoDFVCf4|jn
z6Vd%DDrZs?v(Z4-0|zsR$cP}4Xpxalpn!z-fDU;$dO@t6U(f+nxoldpvJaW}V8zm0
zMOpq~Ysh*`5MJkzs?EG<EU=m1my*<d5MJ{)30GC<K9gb*zp7uk;7eq9__JT%gAQ!*
zwK301<)PTv*kr>^P|Pr&9>^rc7v_h2XnjL9dYzY+w8UfIPGW?e1*G=ri#~X#HmN*%
z;|o;*^7l_XRfT9?%g}JlY5U_nh^B{1x}<UBq1XCmMS&7C2gj(J_&2+y^$H{4u}zir
zm&ze`&w@v0)Xyk^HH1{gLM#4s!MMzQ20W%O(R^%cxs8UImiG3!;@ig(9SlJtz2l2r
z56cG32+w#wLO3XN*Fvz5A;)NmdzbNr6S}<C@5rg>;k8Lek?XSV{KhZ+prN5peQGIt
z*|g-`((8&`p}W*!dppitpw*z#qE@5cM?YxNmXMd+B6wn>S~^S0!p7L*tNeD_kFV<J
zv+RpY&P%u|EWF}o1T!lW?SngvhiX)W?tY)UcJA$6ubhXqXTloiW~N*BeCheQyZ!OY
z+Gv}JOT9sX6=JbVxjdS&yE)e(1gXn^|5lK*#%8bAfJ;e3m^uS`9U80^@~hYMA=Ig3
zWMLc5wiyhn7XeICy^o~;8KEMk^}0hFDY$KTP2V8T50O7=teHutG&RkH+!pAnp;Jgx
z_39m*4>8yM^7A{~HBtc86r%$~FeZA{JW4wZBrq3zvmK#ge^@x?nLxC3%B}QGSOpqo
zdIEUQ%=0j!)z$i0zn)yl=leF#teO(6LpDRW0ME4MVQ<qJEsMFO{*=^=<_*Ucw8kA!
z62dG0K~hB~IbV(h)$fHc;wdb9w26V~SqHxjFQqtoJ!Flft1GT-tZit}#=r@TPQ}!f
z41_@$`#y!?5DU1b791FYP!djM0(FCMFe2_vXb{p*cfjJl84{BD{il|Np>n*)uY%hb
zH5KfiFHpTuo9dx@b8dZ4k|&;ASg&0>^56uBCTy^k3;=21O7zDq5Q)hIO5(Ck{I7xB
z>bsN}<MC#kchhFY2nIA69X@fLj+SMKQGb3a5#{zJ|K|Yz-*A<n22yXvoE*I*H!?i~
z3S29c5SHqzmv#*%>GFmI20oRxqs(Av+)JmoyT6<&s#vOvfy;)J9v@Z2XkS@L28KOZ
zhj^fYVP)IR%nV2|TdjJ)71*EWq@<zMDG3t55hNH-2!rE=TKW(6J{iiMu9vOy!Ru!X
zXyI#)b}yx@fBaUH|1NN&RUO5EhfZqG)t3XBDE-AN-makdPM#Q|{zm2xA)$-jX%2`k
z6IuB-jOv3DrU`g>B9aPgXntV#5rx7Bh#eV3aUPnQ`>;!#z(`3<5o#4vBz7C>%@Bx?
z@m(W0Nb^2x(@254RNv@h_Tx25&Ql4Lq6W*I%3m>P<8gf<j4r>w{0KsBMfJdpy9~-`
z)Cy^@60;Ts97j|$l&6j;9^;+w7<VayVa{hZnFvh2gx@gy_S<kCo33u6`t)GCh5zp)
zD{bI#2GAO0OZ($P(MXkfzygyVq8(^jc9N0qsI}4vg7e_<kKdleM+|7gkad(+@=cT+
z9HwkowqlZe*h?~Qll>ySJaGQUz@r+m5g7AvWO8hEOWG;OKvZ2Zat<mW-FNZCb|Ld8
zp%D{HtRM{@?aE7)$3#4&CdmL2is5+~j@c#XVlzQW9p+>ySc<Y*4;V1<3$)gDO(^!K
z-;{uEMK5eg=)w!?!&aGO>c)D_MuV6TRTpG6`@R`6KWGPuhZ)M-=-dnM-@l(hzu42P
zEKPX(pM?H&Wpy@A?~N=h!w9C5*}Vf7lW}Zx6*^c1Zhp5sbOYWaI=O7?cpn!#jU=Er
zTwSUJ&tYQc1+jH%VvX;#pnw1w;fyusQCVK`yTSg)3pz<XrPQxTYh<{`X52S>#T<%L
zs;#eY!45e8_HDXY(|xQzlm|W2(WQ%lEHdT=-Qvb)8YJQS7G>-b4VBs(vF5L?ZTjcV
z1C-SMbDIheQt5&Dz$w<u_EgOEQvoH~g3~h*jx~qpcEOyA4CG|k)e{F{PRl4wYCfLi
zW32Xy7x%p(jA=)E)SKR)SndY_F>4mh$-8__MwBNWL;b&D>zTam<Uiqix?QoZiA5u!
zWsIF$wcpg#yhBo(N+(emr?WHW>GNBfjzvZ{gMzeSGnr_3CcO}KHyK)LQ0nFo=qM=>
zrGbUA?1hE#-jaSyFC>+e`sSr#A3fq8v{Lzk+>p$SA#*FnJ9A(6*cEg;gF>=KV+eWY
zSEp;T8o!(bENA1?Ks>~}=cf+VS)_b}tLQHe(-1CYZzBw8pmk<<h94eGRExWACBc#A
zBu=Uv=}16!g$His!)pmnz@5!{htV$d4()YL5cXoM2?W&e6?<dEyJqH^PeY_x{f^aX
zpB;<pZEC=*==*J)x!-F?ypo-qo?!}hSO2$j$X~4$+M22D9bnT4pD!{X0<X=sPg(}H
z&~T|efz^o_(WaTBYQHr^(lBKazI}+9x_FK<5X+F!bj{hoeGKw#qlr^L-i7G4ZR((>
zbx}=J+RtL94l<FgnAC#Tq4R4GN`qLq?_~nyGlBI>JBnDm2i?|D*P7Kze#~q7!Z61L
z2-ysVdx&DaKzuHiU9&|cgxX#o5{ni@PZs!+<MoH@l}hU&3L21+q^;b$01b%iW%1H7
zwb~1~jTKbi?^gsLO@`20hg_16fdks9>pKl?PNOjW1HpTWVg@cgQX<EHQtc|+fFHG_
zN-YKgFV6&y{MCqmesYZH_yRBBil5ve2cg2jVxgT9rOj}U?pJf`U&*5qNG<t-VNKs3
zb7;(E+}+Qj0Z+z2SfVGiKmCJBbicTWNHgxl8G<XE6t!Qz*A7i3W2eFwAngQK$NjEi
z=Tvmn*hsq|LXfFzXS08KDwRQt()wo?GiLIU@rTW-J72J^G4b2LT$&Z8Y;GvO+fYH>
z(Bwsa@u5kY&-6Vo*o#|ahgUGdLMo8d_%{|PATn(-ii85Rs0IWvFBKfNcC_CqwCN$8
zA(O@=jEjdKUV6LcFmtZ#%(L`k2}m0d&<<fhb0A{firJr%b_X2UDDU2}9Dnm?sh~7E
zFYjo_3wHr{*X`AFkdOHT%cywbIf`tEp`!v@g3MYT)z%m04Tn}HjZEfjKJ$+`dsoq=
zC*UZF-Js#(w<ogenREo#7#icaIO*t^gL&X}Yui8Gd0XGYi76&f^@xQa5{P!%=I_Y0
zT3GsR(;a!N%dvv9{16#goAtij%Y!%zgJJkK1G-YDLvr_SeaW&PVc2vgH=3wsba9h7
zqD(&tj6jA-X1)(2Q^}VO?rOQWUdQVX+CWE0hJl@w49Ni5Z^)N0jSQZx(IjR-b8jh1
zMNxTSSD-6*H~+^GL!S|t%>}Jq15-=JNU*nwQ05*7(OiThOp&<kA-ZTHOK|GD{N+57
z9}X$Ay~!`BM<ehu_5odN<+zJSj^yLA0(ae@6>Qs=laK9iqID@L)0r7r0f%;SK44FZ
zyp%enr&n`Zh_Y8R+~i`~k0ag9%HLOQ5!rtgK8}85{4wI670UAXb*qviQ9+SAAV(M`
z^uco6LSm3zOeyv_HYv<NTSY>V%s&Qn`4r?uWK}b=XiyQSQdu+2*|7-2-|O$<F~<pF
zB%vGgkdDIGcQ|VQq@;q5r);`5T`<)rzUP?xNoffs{^;a{$L|LkWWwb9T#R!h#<C=V
z@}v3GgHvnzx2Ft;2S$--Y$!zvgs*JH*(UMSTIRAMcL*8{&+B9K>#4_1yZxpuTO;jO
z#;cM$q9m^*!<8_EDm*sU)H2q`WgKK7u@Z+{ZPoPmDA&GXcEeC~SEORE;^CjHEJqze
z5-!k(VrY7Nmld(ABtOSbJlBRPn5+^CWnVt@2@69!OSE#=+F*p(nWKhh4b&*ITJu4t
z+H(=@cSV=Z5yL~MDj>JlDe^+@@&xg`v6-V18IQKsc-KwKo*gBuK~&_mQ+NZAE9JRO
z4Wd!t7Y<Swr4g^fS2=RPfA;T?y@Mv^(VL<fn(pq!IB;+;lE^_3j_Z6@Q+)p<Ic=jZ
z={4csJ?2<+Sm0u`F<p4b@(4dhRl|JSCcL^-nSYX#4}s;BhncweEvUB-<9WXaSCXoT
z95O$$N(*f3KbYW@j7Mv^$sefD<+8rGM{E?cn3Ql8v-s`2a{u1_GyHvypgkA+eL*vC
zeb8X3FNV`&2b*ka3i*A+pU5g$O|EY}+IC_s6>W^X`XrnqF;}^Fo<<4ffW$HK(*1gH
zu2@TF#KrAJPi|z}qYLl<2_h*1ay#v(KB}sIh%)x)!!}Vgf6lMb3wfQ0Sq>QDhjzde
z02e*4(q9hrcdhpejT3ak5rCFE8IYAba#=Baq8t3-Lxc%2b$74_pPY6)Wyd!%yv8YI
zqtG@sV^ChGM}!%<ozGAZ9-f0GBpC&ugL5nC%W6u?v9q^sM?5kfTQc>@X&ZM*MHf!k
z+auLLsn&ebpfU@MJ982i8!|W#;H)HJ_5lw|ai-;D*kh<o$P~5bw8UPYHW1m>Sxd_{
zD_dC9Ry93*8rp${M+PJyy!bd{D>HA9Qs53DsXa{axBp&2xtivb(^gTVcUF+;o<3dN
zv$&pYW1oc?OGj5ka54)HEJX@Xi5*@Tz|}AdKd9xG61VSnm87>;BDFnos!uK@*BF~N
zA>luTp$ea7+=)FYIx`R+5Q;(-D83xYb~%x1)fBy|Y3gslMe-m^QEvvqMMkt?0@H5J
zV8;!mco8z)WH>0#;^gYo{bc2<V5++knFyBmdSQ^Qf>uTPY>|-!h>+IWA_}h&wa8^n
zPvxC9RDSnAt?5H=Z}d0{!&URLB0@sdwo3r9b>IStcYg}{Y1lt!KvE$R5*Qq;1JU<Y
z_Kg(jb+QlAdsHu+&9l)rqu*PYt?-;Uj^7_g-Ee>WrbKYnm^;qv`q7K{6yH0WQ8Jp~
z?BP;$mo_sk=uU_0yxzJSiR<`R`c4k`$QL@T@f)n|YVQ8(vZvO7!te-J1x)7tI0#Vd
zp!9~dFYz&Zy*^F3kzARCT_jGaS*8fKn4;&)e7uNi@BWX+%W3W(HI&z<qX^ecQ<HJT
zz?u2g5s^OA_uiCv1&ZFX1SQAcduyS?S&rtMYY-b{VtH6Y35y8^k(h;o-|Q-|&m_hW
z@<%Aik<*8H!=vKF%lg@Kt*I*IBe%M(re}{Mm(d&@Mu!<VPoMcrZK?o>_)MM?R~lzB
z@-F@wvV2~3dGGl`v|KU{22lEMHw!X~q-trbp{67&iyfaNEgnZEz2W<f34fkR3t#G^
zE%MRp<evI+AH}Y~5D0Pnx|Kmj7;u=ppOPXDS!D|!MVpn2tKq|(JB03gTKHNtkdDN!
zqe_nK=;+YAVK&{EA|8{>@MEVSBL`c^>n$O#H;hX8iVW@4tFrYsXV>ADg6}b^-8YSm
zx<FA0k%PG_BJgi6Dk=&SSlWik5B6`nf<i*tacrg<7qI2sMG%W^WE+)wcZh%rFrbE;
zEf#3}y4AEbLsR#7Jdxk2a58Ah;DSYjh3~YFF*pkg6Kon)pbFQ4vVr5W>gNs@Ir#Wq
z>~|><j1W_{N*c_y=2~|H=goDx+Z&I!>_}z(H048cS0J-}^Ru7gW`a?5f(6~Z{mR!`
zEmizK?Q}~_Ohnv0O@^1@l!5N68F;Dj;QlJawmjfiWH{XCd;o@bdl;x<8=pXnqIu)W
zfj6HVq45oq<Y1JY-}N%A(1qWYSk#QoOg~D00$r89RUtbfqmUbnjDMeAVg7vS5yKDr
z&ZWiKC^_Lwr3)hld9B8JY01d}eq18hunitv*r5~a8D(+l*L*74QmHcqg4nmKz}v40
zuxmUte@D^#_iC|unaE7VQ(V1;1&e}05z|)K*Nu}4Pw}$CqaA_W&3V>T6k7i{0XM;I
zf`V%BKTaY@@Ce{mk%C4*sxp^89}$G8KomzNe%@&JC7e!T+aUVw%iyQ=IB_sk4bZsC
zufr5dkp4U7(y$ifMPz~>Ny41a5Je`4BMTt;JMc^4&&$JAlJoG}A_xK9({QbB(cO1+
z@=sB(9fmil!xlc})_Y`L6v~S`4VI}+pKV9<^TU;~rh}Q6O^1D}lM)`=s&&r?cHvX7
zE6qqQh@Xujna3`SP+u5nUY#`7f+Vf~Z_+>s+B>3pVFbUUZpfU6@3Y7LA?<fKAarct
zK6BF6HjPA9j21A2dV%b|)_C%fdpo{wwbs|fy&u|lXtEsroYU@Qc}j0V1<!!SO9fQO
zs*0?aLYcXRYrQCR;oq-_ldjuPirpCAKGuq(BoAhumrA<FbpRF$s$=MiuD5r2Q6};T
zga$JAJet!Rl2Z~~$?O~gskEAtDC&E5MZ+U;lajWI4+9td<ZUUGcND!x{R>DW$-Ek}
z7Mr8}zJU-SX2!WLcai1-`yeG{x_<5fkTID05`p~W8BF@gBm?9vcS}t&$=QI@yLQ~g
zkV}MIe|Uc^pP{@KvI3EZ=j*PXMxqgp0P)9Di6rC1y5E;-B}R;N?f7t{+g6qgV<s6o
zhSttthCnj<qPig5Ku1A5__i@zUK^$`IKgk3ln^L)!dv6X{aD4_loZx!;y*1WOz?^o
zcuIt=(%1<`_(}8YV0gfrT>iAt`CFgy2cM-fke6v>;^-&G5qqDx2lzHYb#!|1FXw{N
zDiN(u)6<T|7~rYs;i(vBnO*73I6U41zXoOtm<>s)7x!PKs~;z%!*wR|{j}HLyy3x^
z5R!3W1SqEWzG-NPX#A3ROdM~Uf_2fJrvKe%wJVL1=hWu>K?`j9hFMaEs^i&HDAtY2
zscp(O`9B8D7hOgcuDszPdwFQ;P#Cf@ZB0#0Hc2dK-ZcG3{mw;3mV4mW4(c^xwz0N$
zo2#t@)=Qocm}j_lvt();_N8@AGZ)sUU<ECQV;F%XkwN4F=fOJ{V-tyvSD?q4*<u08
z>H1ml-Ws<Osqxz!kD6;cn&|>Ie)#-NBOUkeJ860Osw*UYmRElwDb&RXq84C(j&qPG
zoCH5B<x`HFvSAiyTEi^*KGW6_clP80$Xlb;UW$lZ(NxgioJ>s~5eGM33IP^2>KeuS
zER30A$)js1$_^VQ2!`lf@=n;7CxLH5i<}Hw><2@5FEUU_eg6VH{{A>1Ieji6d=jH0
zP6iBX^NQ9la4Cs7gGWqBc{NQ9^ThWMF+PDqs}8JPA_bP?1yDgz&PyoH#t0J``1&RE
z@QJQ{mk)-u060&5N$y)k0;3<$+=fF5|IfT0pXK!Vzzm^pNlzykJA*u0qTmCjj;C&Y
z<fZ};=yLR?wd5aCDx&QGn52=W9G)Wv8~}6;ug@JX&hQ-iPYdu+E*?Pg2+Yt<SX%xA
zXvnGaY!n%#xlux8;QQ}qP9rD0kS1cyv|>9r;gWR=rDA}hz{rEFeLz)lqmt-8AwPSs
zv4rFLEQP)SHw7gugyCdkXd@&;?**PB_mv+@%Wc6Qn8lPE(7(LX_=T?H2|p5VGQ$w1
zZ#|Od3-6HvJhN^UQJi|U0gR^brDbf6Owa|Rj%<Vs_awL;%Ke+c!4j7q!F^;HB9!}b
z4yR>I`EV6OX#IGyQB;QvP9bk?d6+kuY~+jx9a*GHp5zNPgzhS`DPS9)>O^DfH3@Bq
z366uadDV~<+aPQ}G}w%|Cj&Jgyw`?NQnf+7nE`<jo~ZtP*$W1N4rJORE?64)DEY83
zCxC^cD12MMY^Fk_TBN#!?1v1@y038Av8dJ*-yKd$7;?+rP~<RoSD;Ua%&{lauppLs
zS|?E=rn<a$We5g7C2X=1qutTZixZaQaPY^!OO!FWoh>K{74cp%xV0<G{Mv4h&Tp90
z8X@5PwWF!$vr9?q)011%jZ5-XO)+u=#~L|pu+Gz;i{cSjJ%s8ck@)PK4J)Z4hZgZi
z7d75VwnTE~p~*JP4IpT{z<Koco}E3YrWU>PYJ0k&?rBq`8IO0W_YMMgdWzZJ%-sZh
zf*^chD#YiE%vtPC5rYz!^u_rv%DN+qm@BX_u-@k#nEf%{9r*N0dFROf8TT?cuF?H6
zmD`Or0>T`qTf-Hi$P1;7q&k7iHEcsdLZX~L|2$!Y(yr)u7;*<0SR9ZufH;YXx!{ZZ
zktZC2D@7Ll%Va0<>&+I+Us{CIlcLE(olb*d`wxOMSv4duBiqcFF4X*uVPs@t*(kU<
z2vW%u9I~I`+nm}H&9kUqh;$84^%Hk40$A8%=n=v@`p`N^3=ZHAa1trGK#cnAL}%_n
z_!CIYEudxrxYvSpD1JEz-yK9;(SY_Cj60yp)UvitAvRYueB|h<bl;~wX^Axk%EtU>
zKsQK|hFK^+Q1ob#u`=>=Uvp=oD&~`p?7j{FRDCJxm3YYOp-=%J$u(cTM+f#pfVpk^
zb}h+@`5bPKuiKGGkeSquCB1*Z1&XV~m?riI27Va=4VSz$G3o|XyZ(&Rd4m3u@v<B|
zo0A!QddHwmu+-oaW65ltFy-AqyBfv4qx{&J3%%|ZD3xTm=OEP{zDg&NCB<<{d+O)Y
z*F##+cF-nLrBp9%3h`L!cWv-zu3bUN0UIVN=LTSQmbnfw>3*MF|M;5^PuEHAx?2Jy
z{5_#5&^U?yv_oM(5UXwQ;V8}`J(Xg~_y=GrdR&Jikll^|7}P-^hY%B`^FOE@33K9(
z2suNrWg^c5=Am=?VMVFR*<FvS&dp+8b+j^0XEGX_fY!+3Qs99#gXt1T4z=(_XxM)Y
zjmrttzfBlkyj2|~!W{yEqWnlf6^20>k73!sot4ppSm^|Y$?+!+<Cx9o{ERM?S5j22
z+iZOi_<qFJX-(f7R&BbEND=2ZXRbynN(zMQV>B;<UJfKro<9?(G$?Plz3$r&We~s@
zI<oeKNuxOc`%ed$4UC9Vqx-pl6k-=VDVZqNAVW_GuLYVt1*T6rH%<!TVTtC7qb?xR
zmq{#!rpg+!TFh|^!0fCGvr|5r)9nM|A&p;lb|+PAx>V9j#{5BxqiNX#b}9~n@L{;r
zg*gco?Qs}X?RBgZN0_<~;L#b=m_}g)-VEw7b;cd39!K%;@bI16B$pc{6)EA2ElEL{
z@uNEqsmv&799=~Dw~9ZFh=L1~m!7urwH^j0O^zorg%punkhv7ceb{4s^C`K$ii;25
zkEBiSvVeBC1u2>{S_27L6()V|EhlOoYjjru8Y5^cE;^3Tp_tue9C*F+@B<keo#?8b
z`O~LQW87MxNYyI6h7l*!#s|<s^qFn%UavNcQTlH1HgCfKoXL(shZ*6`*UN}OV)4}$
z-FY^zE2bE?nMA@|<;e>Vy*MQhn4!zlOV&6G@7*gARX5N79Rz`SL5Cv86G#nFRE<JK
z8^2C4d46~0{Vav&CE&<%dzX_4c7OB8jqFI`$V{8q*i0PyV}vx5e{3)Y0uv(W$H3a7
zI&cVGQf~&bak!;j{OyvP87@Df@h1Y#|0O^BHs<c#m#et=hJ2LgJj<DLd#_y7)YD@h
zW%Lyh6%ny^`qrr-S#}C#dzX(X_zcie%Ve$El%%JZ63>z{uNb>O-%BaC3VtybpPa(&
zeLTDhzw2bDywmS}YJG+QiuEo>j@<5)cyv#!{9c%{x`;XkYZS<HYLIT-us4>?LxY3$
zUGXSXL|oG<Sf`db(MtqaCEyr1rUp8Dn87>_s}LPo@~)_t!padQM>!dSn5sB|?VRa)
zJe-sc5db6%wHk8paPEy`@8%jSOwGZ`U!Ut(I%bf(I?@c&nzC0gBKU{oL1E9%)Q0V_
zfL!(mrl4qq!D)kK(g-XY^kDChKePZQyi}qbXe1vxwxl@ChioV=4K!WhD@AQyMfV@?
zFioBPRRF%2GKS>y=;6aVx~pu;W+r;OZP_H9HA@xtj;Pg)z5u{S$Y?nA7pRs3O(Q3z
z{*FP2KHuw~i_x~62M2<)^qFM?2L|}nJiPGW(W8tT-0p{f9+R1jfn8-A^^s?zYsv|&
z4N)Bv7v+#?9>362nEmSO7eeEms9}AA6E(RJ<zXI7!gABJ&yrjYlP@2vYQqIGx`<^y
z_h?dM8-Yb+q`+CseZ>J5_LzY9OE@G2)j><j@I-g#oV~SsmPB0nhrVE9(C#HFzP<^C
z4vwMp9xrS)0@@Lpk&MhVcxI&)xB$$j1(W_(R1-H209!|hZOiMSZMi<!M}%%8{YwAQ
zZII+dJbajjQ8K=-k+)mjCZG#4k3*!ECi4YJb4iB}xWN&OKPV#uX}&+*hFjo$*l~OC
zq>A_?Ue*}qmxnt2^Unl2xCPX~LV*5G7f?s;iz^DnG9{UF5~j<`@4PmHPVcN84@Gt(
zhLJ1*R*57Ioj^H=kOn@%{XAi4ar_0IVE$AKMi3sJ&!BrJ*g9Zi4kgb*WZQMdp6PNg
zrJO*WV{VN#QkRX7YzUpG>{DL8wCI6XY=jupLgpe#<-f_Q;ZUgs41vLkKrX~`{IeK&
zc<fEyFZh)B{*mD0yHfFUDHZ1t3e$FwM3{Bg8oz%v;(nRV&l6b$>)hSRCn{R!DZg&{
zt^Ql|bFF2((>*R*r$8{<ty{OgVxqe87dhOvWy_Y9cxvqnLKh7l^(!Kyf&GA>I+6q7
z?K@|e7AlsWR6rN?DR`_i_X#8i98#Os+Du)+AZD;%{$R40{<2K82L;@ijvboh=M3#<
zsGm+KKtW4zBRnohzs8y8xG#TXYKYlWaO6U+p<R(0dSe8N2xLrtTFovqn5dJa*|h`}
z$AyC4f5_h<F9>@Wb+NX&&)>gE*;{orte@ePT|p{@3h{FP%_Wm&M?r{YBfGZdwB){w
zjTZm@^|<U@&rlig$eHb;>M5h~HalqA%$hd(G2cq#>%qf*!GwQ#`2YTwRhGZ`ZT|fP
z-(oFE=F-K^5{W3$SE2u1#V^{+S9k5)`QFwQUPONX^FO;iZRNKCHz9FyXMr1616FvA
zouu*&Bb?<Vn}%5Yb3Q<xb|HfNksqs5))D>VO^G-3P2v@BvSzkT!8<jh%a7#x<R|EG
zjfV80bIi|4WsIX$g=_8KKcM&p88q}SAoF+=Zbcf`P=^Sp<3NshIUwwshPn?UM?r99
zK)=@_^cNGt_k~*<C&WwNcxf)=26o5z!OQ=?NJJ}@+Ws;WFXv|XNK_<0pK!Qz|8sP6
z>iYjC%L*SX(>t>a4B?M8z5a!Bu*;6<n<PAM{PLYJJ_N|X{Eh_Bxph*veTRTWY)ree
z{E3K#`_>%3>I(TDVYZ#X<C}59>}~lcj#t3#IK(=re~&}`^En@Fa4A4uurRXzIQ{#V
z-dQ1NdW|GS)qk`D;0!WQBhRk4YxMoUf4(>I+|HB}>;)W<zi<+WChRd{OEMsC9d2&c
z@9t$tj|oy5-e7qb4+(oec|TRkE4!tNJoU>T_>G_p+2pU4l*j0+`TfJ@LxWzovb5$E
z=~`Tk&M^gZXiUWY`qD6(qwstT_%guGkt5UZM(Dfb?XvcwU5m}h?=~=D@EoWMdiy0?
ztk{9*)GHU`)aMJPN#+2`3aJ7t8Z~dMp#BJ!y>UH|W<X1P!L+nu{QN5Z=E>+2Xo;s#
z0r^9ItbW4WJigS#K48m=6`-RbGhkTUdGGbm(<!~W+)T)2$be_T!034M$}it#e);ew
zR~Sh|;Y-6GJg8eO=eKI9A?q=7-sdZS>OmvN#ranJq@@G)YI${+vU057rWaS=kA$1E
z_iW}BE9|xV{s=_Mbh(<|q?-Z|7ly?Jg9p_14PO>@h?kKiP~`5>|G8ooqmX?O&pcZn
z#C9E?|6b!{1>h+3Q<&hyjuJr0JB(sfCzh0F<Og@xuju(JOQNuUg(CV1+=t_DfS+I8
z@NoA@xMV^_A){-PMu4oeb^k3p4gnw?%bfmN3q%ww=~JJk{LS^anE!qzMfy-=l-0lg
zPHADNJ2&YK1&j{Qe}AsI4j+I*xV-fSK_|#h_%-JL7Bb^Me_1g6*S+_0N>%q?28t7o
zk%lB{5Z?XP`+u)~?={wE)F{o!Y;4db88{6iI=`R|uyF(pqhXI>IC|>XxtNbIGhY7T
z{klr<!F?oR*!4E3*s10|fBrm5QeA-{bh0CHraN$m;wwc4+oBz_7I6)Qt~K)i<YjJ#
z64yt2n4u4+Z{Lv#s25J*yp8BJS$vA4Wtl0u%CwHcTklq8(h#d`x{`)o6BO8wRMUm!
znZ52mC(_|yV>2~ag(Vihj3j|!$wkTt86{D4g-N4Jn2_V7nF4{Mzz3ylgDm(<BITbU
zAB0o632UtGD^9HvJo(3H>=;2d&KIzZp7{QG3BCz}-}+hT<wYJAjj@4I&iDB>usZc6
z6~!+UUSH%^@jlmf{DeHCo#=6(kdhBr4obd%YVrFxS*`OSXFi{QLDsNn;g)2I3uxiL
z9{`<|5zf0z$0c;V900=S$+%_tb;Nm-JAr*`E*Dy{(z6l&^W``wdkY~>e}{wtX&xF#
zPubboF~SoRKXHrrh0Sbi=kjk!`kvH!>OUCLhVN-2%#-;bFp|jjvGmzOTrrvYyDwmQ
zmY?sRMqD63q<R<a!xAj9Qy@wAE?*hkw_E-eBFHj!uXKI-2+wQ`!l1hXUjHYe=4m#%
zaC#xjg5C^}raQsW#*yr-A;}Nq77=7nW_b8x04Yb%{~1aG`R&Fp??HpkG#%vGhWWC1
z!|zbsrh&j&I|prIGR{bM^xs)8a8N-^1unA|GIadBhz1XG5K|4IX;g0}l`Ir)k9KSA
z7UUpeJTQ3bVL0iLQ`tJp$(&~Qx2(Sx54PerlKCW|H$;4Z(wEE#Cq*2hSvr>bc``K-
z(!siPaa(qOZnz$x7(GUWp+JnbMb#z2v~KN&jhM>Y1T0tvm7IpjR!YlO+#mh_x~?^S
zsNXTgQZKANI*ow)fyFn++B4f9tKU5weg-qh9P-%C(naEYKMz=q41}yKhhYmT2yw<q
zqmjA{Cxk)v>Fb0hB-jwvfb89ls_~BO{RD`^NbMvn)S3~e(KbVSZ4;A6eGn7vSb#V8
zKQQLO7-4lFaQPpdSM2pVQTpn*v$0c?8tZ}OC9?My&OA|)|43;_!ok7@ZF;B`K@hY6
z!?Idb03JhT&$Gv$>PCN$G+-U*3y%Py(63yC?@l=07ZzRG1G{2%z@MaO>@CiF<T<U5
zcutCIyfE?Y69n!$<!HVe^d{PPiR@AE4~Ks|#7-%YO>oFNC9le4ri{kIN-FEXtqZfG
ztr{pDXjN2~Uv7&JfSAK4P~?J-G(FGIN7fy-NeeP3)-<V<3wTeKPpKa?=$r?F_6*Kh
z>di#z_BG_@&1Os}-!@X8);|c%0kEJ^)^<?8NP43>@{zrw0dF+KXWpXn9;jb1^NQ0o
zTf$By*~Ba#m+wuN{^({9oQUFkK-6lDi8?^zGBRsDM#;+n)AsHX*(iYyP+}A86-yTr
zf7$C9Nm(fl1z{q$=j6WJ;EQL`0%YFSe&PRwoIPgV`5<ZM&PNM#0^5|8P09K~t<ws)
zGNpo@Lc5>L-z1GtoBWxw2uv2c^qU9VM=}^<a%FMeYpt)gH=4Se0Tdyk58xw0A+Jxe
zJ;}%c#zIJaGN~9`pl;Ik{{@-NLJ$xnaGvl!`IvWU7zRzMr5zH6uH17W7=&PJHwUCu
z;>mmckt0?Vt3&@Bi%B^b>!ow_zVy?q<6xJ6z!E!WSYY`QnlAav`~Dfkv)00SHBqs&
zC=!C{-C;j`)O)6XZRq@a=v(p^qQ3|SObfjI(_V9X908My9pR5s#2a|NMi}8-7x1-h
zKmh8(9g~BB{E*=LX=1aKnJ*xYo@Gp|WTD>m2vQj!ziS<&laCWt2?fhB_+muD$T}UO
zC5$8hys8C!y~z9fgAd8LTW4<FsS}K1Zh;pEK~~yGXvTu~&*j>*Nq_KMTsiWj9rV`#
zmR%pb``$=`?VF+BsweNaJ!q(&%VWm+Ln#qGzIUhd|LE?`!>L~1fAOU>YaU3^v@{8o
zA(5fEl}HrIRH+QhR3S6f)?{l~4WxleWLBBSG;HmXdCCe==1?Iszt_F!GkmY_IoCPA
zbFOop^L6b%?25J4`~AG1=e}Rl9bULj4|=ptATUi)DXm(TmX<fOdftlzaobxK()|YU
z-EaFb%a^L(1BlQh3pfJ*!a+p&OPgNCV-4-YVuFL|uE689fkktrWnh@2c78<d2VKT@
z&$wl}Q3jzz)}=@-TJ%6iymYkAlW$eigr%S)fmG8BR*MHy9vgJFux16WmGt%AGWVs1
z6=<9XFVgs4`k>M&{5w_UkEv15XFqpcnT4Yf*%ptXxB&~h=-?35GT$;VDkc2YgtyI|
zO_*U%qp|6wEqpqS#}C*$zW>tRlkL!WTN*ctW{tuv90!X4;m3QCzb(dstK>A41P@`%
z2jTy<75AzbO*d_KNEN?863-7H&<?B_sk_bOR}F<7Lu$*hJ_N6hFB`&+RgB|al119c
z+j$Y<1P>Ax04b|Q^vl+O78hi7PVDP8U9Na9XJT{5EeE7tqO;PaL97tNF<FElf+t08
z)goXPP#IZZ69Zx8Ygb`kdQ;CYG8XZ8x#-TMP8s7^&eoc#YIst9KK8^CY-!8$HFGf=
z4vpbv?79Sb0UO#RqLqe7Koj@<S-`O#V)0OOhrkgO&!aFQTE?^$g-sZS%Ta3yNEBv*
z`(v6ELki8)O(#v9xH5Y-qw^wYRg}h1_H7o~saYH>@BjrQ=Cf5<>OPJS_jtMn+fs3|
z#&`6K37nj4rsRhJTLt^38!*p`v77-g6EDD8Ys$s6PM)g(JcKDri=ZnL-d|%QGlZ-Y
zKRap=01uGym>H}F%<I^ppndq^v$c~zq(<5rV-V%VwR2Ssf2v4+>vUGjcG%tkcW5JU
z!&2m0pzgD_ZbM6k#jHR`Bn`km^v46V(jS-ZKWAIh-s6}H)JjTB3!=NeIfpX8{CK+>
z!L#EPKP^~j(A{p8YAk-t>Ec+AmwUBtHhr99EH(gA<+;M$mF+#QM+e0RH&$juVm!ld
zRliazpj9!JppoODn>FyPgj4T?8{z-_b-&F)k4+zQRUSn>98<&yRDcvK2uFe@2|q4=
zjbaV}>nMf;OwiEv$D5t-)$I9$wjTyaZPV}2BKx<5MU)u0ZnOCD)cz<Ah1soYYHGam
zk&fU4u}`wyM^G(ryTx$N*r8$aEer7VHO(<Y<c{VGJy6h88XzSh^kjWborA}WB)i3>
zL*q4<>u|>9#ZWlwKIb!sfj}g~p3wn=akF4X_g0ZDV2$y$(xgYA5=+p(<=vbG?buC^
zagA-_)4wkZ5D)*Lc;f30>`TOdgDb|34GsxuMwU4BJlLK?K>Ll`P<3X^B=|`Jab%{w
zb~yj)0c1lK@Jopun~mPkkW)l@oD4a}_ddKfxl?qKhVZ=HM6X<Ng!dkr_)z@6QJW6q
ztn|U51s?tRmc}^ob<WSU8v&-o?m4A8p~LAdj&^@c&;u$89eVVSzPsU>wI0YjK0+{<
zP+ie0A=!g~zE?u`OwYQ&E0XUKE)Q2JH1B$Y$qX4$oCaaP7R!-ef=p#&RxIYd5zT!-
zDNq1d#Zw^1*l$BfQMl8BSS>vfjeGK7Ph_#_8M?H@?Sx+peIyP?dx#BaST&y@6ICN1
zMos*otnKF)C;IHLolB*DKSOzWK69nFp=l_j+8R0d%Y>vRs4jsWE)Z!{f!j>5ZJHmK
z;k}2zWXo+oOa~>d-nkPFsz)3LEQh4|4Os3g6SB#%iA%S*G5b;y?6pPLBTdkX6X9hq
zWEO<h5>O!`J@+4*zPZQ;VzT1y#*0WEX~F>(EB~-p0=jmC%(#wCcB*bSuU>so<?@FQ
zmRh@cJP0A3_uKSn)Ckb+ckd<=x(%Uwb_$|h{~MUp{k#O%u^78^1N=2gFZi$xZ8OIl
z0H}%h`3O{%e&TU`*HbujR&Y`nnprT|%;h}gea;ucIS1$4A@SND0otHzR<TG>0spx1
zp&?}MG{ApvwR#gDWA8&8sf*?gLs1cjdIXFz=strjSh?qVLM$pPHWothfiw|_CeeWv
z$?u^+0{!{J&Eu1(!0gYRYLFOFse?ujjZ_m_LEJ2?OC1DtjFwa$%NQ?-g^Nsw2H?t(
zzsm3(|DusKA%ZmlC?*o63Do$wq%00t(qf><_N|{jHbG!xVGbhzSqb9ijGYTu5jNy$
zub=QfrRqLCqlbsEBuGmFnA)lnYM70A54TQ&&xd_NA^g`pW1uAPlz1)N&Xd0|!d^n}
zhCll#C-91z`7@t6YLfXtY>QDRc@8M|f8Pulf5heCVv2{3({uXV@LrZ1ALBtWLN|Hr
z7N(~YPehV`_!~&ui`cP9K*#!RsqIt#Hsrm(rs;PM{gB~;hxChc5X9*7dDe-U?_Rw+
z{GTl<5XFK`ww|8oOKNT9nJlb70!{oexO=d22~Ud!{f2_{{-D6XVws5=zqJ4h>C6F3
z^KP}kQu#%MW5`;S@8uwFDdg_myVJJw^Vj`w#F6$GsXv<MXY2(>Dl0ng#*E1{dY;*c
zlY+3+Naf+{0}Mc`Sf?oT9N?>F$aC`o20NB1!P?VQ_Vf`(cRs|;djeRSPw)p-jK#mv
zGS#z3oX#Ww=7S1DES`uxJgrX(9OoPxIqE&bo~Ca34Yvha>nWe@qNk?!H!|jV0?HUA
zNO>cbc|{~HVBq{4zfld()$kket|^+k8?|D>@2=zXK|$t}X2d%K4e!nw`D@|Wf0fVL
zp>d1MR?euu@1g<C_bsLprkjE;W!C=&1rJFr|5$|OhrY%D?w?6z>(FV!dVhmyjy;jM
zgw>mP%@L~pvCEdrI@0kYoup{jph=~^gG*1yP7Mt?l9f)_#?#E;jpQx-_-9S$j8!o}
z8cxn>g$}h70YU&c-nTg1k#+PA_=(a8o)BLq9oYmK-mG5e30z>}^)^*x<jJ95>Ty-x
z@48~tnU_3@mPN{)&7>XF2+>A~LB%d@A`U4Psq1P78P)h_JBG`SA=A|?9LAR2ZBvDN
zO=HS$M8>6VdG#Bl7`1e&$>GD<zrem9w3i?MVzq$vmT7CDdjXt%Y3P_<&F1+p&#Pp<
zcbQZDVo1z?OATN3qi)|Bs&4f|0!yz=RdsyIZ6RnZdPXX;<wHM$O%M4f>Hb`2vFG8;
z1w19|G*uj70FgF{j1{KF7&7PDuU}=lC&>z*L%>A)IeB1duk#uE5J~?4Y<GK?=%Ga*
zP$4trty^3NTDNmB80FRK#C58AwkZ|B{x~@s^6y-~KC|Y6=L=|z=TF&wHX~;nQso>Y
zP)hMsuuWqfAUE@V#HVQt6$=|cE7l_zc2cTAW4vj`d#v?1I5$!HHby+p(MqtcSlO>N
zj4B5zg9`&d5&}vBm-50Tk8{>r9}8dd5U+w)7@&t{E~QpD1KohCxM{|7hYIV2sMMc3
zc?B@(eMQfs0mkT~&H^<lbL>lEzo4kw2CJ(#^&}_fOy{jpRktHOO$PvGtmf`pk)-MR
zR~z&UkyFO0D*Z$gwG#FWgq`fU%@IJKM2$YV+OV@IJ~@s_R-53kPs5IGurx`WMJ@)D
zD@wtHnP9V>WU*@aA&5H!l@-L;$NG>rFrmx?k$%Vepv?e<$mo1M&n6XRhV$~zhgX2O
zL%LT2=IqYCAx~TxW|$C&&DYloI01I`0zesOXAGYYs#XA>ML@4&hZbW2_Pc@;$Ej{h
z?F}=%4EHqnM8q1iU&;c9fo?cZ6iGmZPz{C2)?tX^gq?>w(GTV$2sP}JiiCtZi9c$O
z55HZ#Ol-<vZy=*v#d?>Wy;n<%L&4v8xS!{u6oN)4XolEa{Ix-NaSfx$81@ydi)>X&
z5p2ffqUSP~&zu=Wn@6!|7dQc}uwekQNDZfpm^tX{V~t)Ta?>p*OwkyVI^jbAmd9_^
z>7rvo=fJp~750g2OuR%Bpk2cP6+q^J|B+HN8UB4Sn>3*uC1Ewxm+b!TAG3eWRdS9c
zLs|vWD>EmKR=ogS=uX_0sQfZad%>Rk{_qN$jd4w{hqn;TD*3Zc-@!991IH=?p&AUp
zvk}_^5K1WMZjurjLgehi(ND%9xQ@Lc9%ceinppj}UIX=<IdZ-;GG`R=M+cy#fW!)X
zZ%DGdh^KQ94s$fF_+7=K+=%_s?>Q-)A{6z)SI|qw9X-xaHL2;O2p3~>tQM3ZS|~h=
zaHIikQkT0UQB+Nz^H6R9e;c|(#5hR8gB6N>p6tJ%9Bpb>F#ebeTN)lBHqhH*QGM4%
z+r$k}PRfe1?N`D4giQ-Q>uwT#0AYFetqt4^kzYV4mh<P+ub+HgOx7_2S$QO$BnTf;
zGqS}^2EGf;o+fTe9E`r=8lxBPszCCntZ)~%YOth0p1hzyp%Tl#<R~<+nml*y>jFJS
z;3A9=FNA=nGel(|^b@)QVm*X0r0}BGDSElR#*s5qQT0A0Y8N2-jT8@n98H+SiTDE}
zt~TFzZJb)g5Si#ku7R{6R1$0Jy~%AD6Yl1ODW!h)uye$ZVh_2MHHtAA;shdR0V^0j
z9;BWY4yJp<#f6MP+)ly;%u#mL<pPiJUwiZtip&t)o-hPr)um%ZnFj7x*oQ{OA1hE2
z;Zde55Uw=@uS6prj|n@i{=!B^CGRutXyZYwKZqUF4C=wt_d)y=d-%<zm7THzn>jLw
zhJ_JhtTa9Gftg|Z&YXhZwC>$cx}pFOIuO>^cq*gs-hIcK2_zGP^Oz?^GDC1e+!Y~J
zJ;3ZfgpS}8PAzaJt0-vtC*9rMfp1QrQ#J=|ZUH>e%Z)G!f_lg#npXquRs%Gy`f*vL
zx63>;X5$6wb<Dag;@*~{3jFX3*z@dp^YjmUTwkg#0}lUrT`kG#NV68VUd(fK3Dg&9
zXq>1b#XX23DjfnZgw)<8)rt>%$1vZ7UDqS=FAm!Sh+NEr#48S1H(6zHq7!>2b1Ykk
zY#J;qJ53CkC6XRb9Y%9EV+)9vrvfvuIvf`U(8Mtp46>>HwH{l<hhI=5S)5d0Ox{B3
zQ;1^7?*U~$dK%?`=$tQbQse<Il(GJlsGzcrA+rSzPfgrTpTAnU3Ar^?l6e00Ku1g%
zZiR#Kj~+gJ*Mf8GP)YIz7_+T3z|VU+N5~nM;JqFYA`U0dv1nyxv$4=-t;gPrU_>du
zOIPer;Is0&)3G*Hl`nVje&r(_o^k30!P8A(Lw)|5f;Ik+*OPUeHxXJwC>Pl1|9U~_
zLqxL(ASDXr{iwT3Aea5>kRq=17aFu!z%pd<9NA1IQ@*Xm0~7ReZZ<UT)a`<*34+>V
zGV-x8C;sH^H%*ticC%P}kkrueV)WFaUVGGPddPjXCLx%1?I7%6D0Cs8nR<9H-mdDa
zqx;WvrT4W;vs-S}bvlO^?dIHfs+$|WDeM_Jv|+m5f4c>QY%$tcQgYz8oCKV5H0cXm
z<g&o6XLw(-<i@KLWQ{GV<Mqtl%aKp>TIkj44ji)0*wm<Z!8uPRO$>miZ3Wcb(VXYd
zYLLtTflm>&;<%LKFN2gJu_l5QqQi=+Rtu;jJ5Hxogm+o9kIj+_(pQJzZOhM+iE-mY
z{;G6tmY~AD{_e@kkUlJefdUs6z*+;a>mno;pmz&Iph)Dd$m(z3EGuv*VoMbU>_RFq
zh>%EF<&1GCv?A#WqW2VEBPlDpkJuuNj4gungQW%X9<iO_)b}78Ofr86L|`)3y)5#!
z3;{^pO8W(_1;Z8gJ8TG4_-At&?&ai}JOjc9<(t=d7HQ8g){Y%d+B3S~85Wj4_9vj=
zIWcWSgpfTr`Tl5OO3sI(fu&V4WZE|P=uuc(|CJ2uy6tOcW;4}y9XhT4+Vh>%q{sZ;
zfpdbkuM#tyt`WX<<=eX0Nl^z*uX>l+IZkMmmVWpJ|MGp$cB<bT<6z&lcY6Hkz?iaU
zuS+KDt*+g^>F~naN0v%=^=(g={&4k=Kl(q{EzQkZe_uLDrD~m#a#DM8Kwpxq>_q-i
zb9DJ*!G!-Uqh4H8q-QuWPZB6UoSZC9RhzDrRpgu5d@b#c8&H;oMMT6V-w;LIY)Pa2
z+_Sm`_fA!k;n@P|o7isAL!#1!4uq~WQkX+9kC2Edi4ri0;hP>@rEUZYFY!f-Hl90V
zhC`jitMjLvhcXn)E7Y$O&*wrG49FKWAi2YnK)2T9maICN{I#K*woYyg7VV}^)-C`t
zSRznx9&!pl_Kr3oq!_{%)kG?N?DqJcGsAcvyHmya>^E6iY$&aJ5oh+PCg+y9KP3$?
zWtA>FDudi6_=J`;Pysv0=(g5xZB@9d5^n>T1STe7X+U3kpgNsflj^%i@iQ2fna!P)
z1d)vRy$-;?4IT()vqx}>At+qziX}elDxaVQ41bS*%&?4B<FnD18r`gh43^mXRveus
zb^CO6F@6QQ#UpR8>Xhc<XGn{USq6Td>ku%WJWwZf2&$P2IoE@Fd!31eLHqfqI`%2c
zWpFw}l-?C7Nu624bD@V1CI_20p*K13{Fo1}v2{v|988mbM;E8rLY8)TQ+XW}UrZJf
zs=RM2gN)+I=pGiH$qYm}fkUaNAr{Fado)6>uTvZ8_RJorDLMA}L!#7#{o=a0|HSjJ
zIR4Ic${<&I-|40o9PW9$u=m=u1leo8Tlh!ud2M=NHjVaDqL#?^DC*IFoW!y}--%;g
zBty(A#==Oed^%OI-6sgWt3Hedw-Mk?WDXhVpbV{Sv>I(Vy{8L9-KGt!8`p8{!}-52
z#<qEiBpOJDt1%RUdi*|MOZcEMOVwtEU}=%fCHCmDjqMJYlyai-<($Q(&+bNBE%~gp
zd-<$OJw4crR!T?|BR2KG9}$@cHMI)m)2z%Z9nZb0ZpcLp0AM8O`AdL@?=v=z#-0J0
z*&fKC@JVS=(zby*T8#rF3FeDH?A9x>Ti`bMuQAz{^5y4XlWqo8+WPkr>>3MnUa>!G
zJ-l{K1cs&qhNJQh;f<=T^X3y@y-oVtIlNDw_q8=kS6g~H#9Q&Fen6<T1y(f2|4ikM
zzyo@EPjGfL-!{E(ejFM%yZMzRGE@Ita>`)|XcfeC1tO?4R?h~gjsoOPM9s0(t3eV+
zQ79iaqfm57@ashrjQ{D=CyfQtSQ+%yxA?Qw*;mzhSaY4UL1&IzP_$sEdwWY|nm){d
zo9%ADRjUK9m0#!3@17A9ygKpG6+aq}PUk#9w}1#)1-KNo?L9;s0`5Ucj`RUlgyTh^
zP7-WC9N#|hN~QlS4Y#=Gd-G;--S^3=y8+JsbleaY9&U1BY}uL8W}nK4M=gIC(r5?7
zYvnJy;#s*$Sy{RKPIg;Yf@AWO1|J+6y9)PW6hiT1Mhlc2`OBDRGCz+|jNnW2dSA;y
z)r^g(_;JS*#O>HQ8;+`UKzxUdTeJQFv@w8yUg62X{o%m6)adua{*I#4&mg8bbl)PC
z_3+X~;(Zg5jYZ72K;Bjr9qg64muYS#CkVrfK)~8tS=-=et#ZO6BYn>0y?BgBiLXB#
zi}Lbb2+EgjYOmhXJ!4!7(y2X#=gnJhdT7#=^Gk%kk3G9_%qTu@@loZ13l{8tF^P+|
zH{a8@d32fAAt9`Mw?WsIoiFB<4lXteH$4O^q1}cQblEz-D^{$y#v~?gbDx6a_dv2~
z!bq{j<>FRJ%O$5zZ29Wpijc4K@gs_lK$}IMt<IbK=O1?h94jK7yIKG{kQyfzEajZ$
z-T`+jLYD22<Cu^VeQ@;?fFtSw%7)~!uybZ^QC4~DBaniT2u1mjIPkvm&Uf^ACWM9U
zMDTqWRLFDM$Lp;YDgu0naE+BnAX|Y=8q}`UQ+I?7psGa*Ni=jo4RU}nVo%iWl$Dbs
znnqaO_Fzg}D!@COB+0;R4hJjFpW-7dyAvDPT6JlK0iMnT84qFFSyP5z`$c8%fKciK
z%^gG?qHFY#^JVSYwHE<o*=63-QSQ*#br>;1!SACa`zt$lSglwd`3P~5KvF<8?GNum
z77|eau_jqlNQ;B_41;DK`d1L4C8w8+pksNZLdV)A9}Mhua!Nvx{s@#xBiPxWeFMqJ
zWgz>sI#P~M_;L!Js#m2xd!|KDjih7=&NZaqJ_h!R2ov+jbl1rBg);Udx=0*oYoxT;
zt>k<`)j+wuV4_#Te~LM3mM42Ie->lMaIkXW;Muotw$%Q!60nYK;dbCi^bY4!SSlgm
zlhGC9gFr$v)APvWGI};v|9g+?T6JxtDeL%-iUsVn{k&60-#}PoWL)CnKsP`w=>732
zb$kmRB^R8&?wJtqWzvF(EiWdeEc)yvGX48Yjq#3$w)3aP%p7G@Hl5F=k1q4@C1)Je
z<^RXG+W+OgJ!kG8T)g##0(O_RK#AAp?M9yg{pv~~flI;T9X_8(dT4cQ;k1}U;Xo5?
zsyHU`A8)IXpO5yN6ZF?#+q_;Kq6fL&PC-oe-g8wO!Ja8gFXBnw_O&-K+G89Fl6ywJ
zqW`>z8sU>X<FFajcJ<*f9=O4~*@cLSN<1l`zk|iP_-j>oXy{XVNmzyV8XM<Uxs+`J
zkd3{L8H!xY+^(XHRiE2?j`%Mv9UC)dr07!L9fTar0|wLclzHMiZaw#7Y;3GXwAxe(
zX`ru|6{G%d`!;Zag_)VAiOHklqr>kp(0jb&Y4;jv$BA?1p#>O4Lro7#72atC1VG0Z
zB@MnjH5Psz)0+ssu5p}7_h~9&h)Ty7C&*Slg4`Bll0YuG5$03e4mLjyuPuEg3gIp=
z@=hYKmYfgdpc6EZoHm|xKw+Vw`6`27RE!=r4gcf3eI0m}7>~hv59@WGd{zr=rlcY4
z35Bor4eyG9Dbv1>ax22IPH>>TW6#^~0@#c6cHg8@4)4=?+lxsZdr&QEFQ1j%(D|#i
zA{_dz)Nw0^u_Dz|CIUt*3^}Deozg``lwI}kDX14g7m$ursU}Fe8}sBK42lJ&iN9L`
zBPaT~=hhfPfKF4Vbb{9=Qd)JQv_!VH27DX$AhDH%&`HkMIMwm#w#)NF$qlHM^=G;b
zeEs)~x&TH(H)6X^XSjazyr0)Lx)PfTG<F$pI&j!EgFT9L@8eckK&p<ChAsU>0@cx_
z+2XTcc_;);6a-X@<V#dVg3mB1S);BE_~0rE@DNmW@WPv+X9B77lx_jaocOX_aEx|!
z*>h{_>KuMN$zOo<?%={^oqhZ4O~i(;c*BYT_X}g;i9`RSgb;ArpJ`$Pxw{bH;0-K+
zcqWXs7--HIWQR8gAejx)Qxst&wID!|{;4yvrEc859f|<oy%1j6JgtP$=pn&y+f{n6
zQKyWaTEZYv(>=o&;9s=<Di1))R+Xvyq3kl3?H`ll%i$dUJ9+p`CEE46y>KD-B^C+H
zj1M6O0ey2s=o~)xqs(X~S-c`In}S`^@!GTqjp^3*`dr;jo6g`A#FeISIbi+hZ>Zy4
z(=38|f^*~AwdwcZ1O(L>3Ka3LRc!xYw9z3XphGiSF(9tGpz~(5>*K;^Bk-jadLv3v
z=baf-9l0|n{JpEN2x<Bzb+>~<VPR6^z(@CKPP22G5i$ClAkb`Yvcn@HZWPUGlJkXe
z0t?8`9Ge^!x!}T%3T+d-Ja*u3NE&Aep87HLdKqj#0F{2JZXLN5*8Hh0X39~mJzpAh
z{$u-biwW1px?|2?r*|J*EhL==eM{Ys?tiu(sT~sqYi)*p+31THCu5M|xS@{SLq*z{
z@kn2RcRKrgBjQ40WA|!ldqQV?xNfU+HRdD5^^A(&cy=s{gGS?UFw|^1z=o1hYy?AH
zs%A0K<vkh@h$tIQP?FMJjSxx**I4k19K1*;*Qqx={$_SZ$+uS}QHJ5bZ=0cbv_7@J
zP=+KdsBZ>l>@9iSXlZfgll7_W53>RjECy%2=~*}6S(%NVAm`;Ae`D<w1IhbFXC)Ar
zjQ+NKf7zz5ihe~!b?6wTEUuTRXLH9pN-dl=p6BLbN*E@`zUjw<!}6GXTz}>SuhFMH
zH$Bkoct|lR!k7dPSbRNEYbfoUYj5fTys?M&LybeFH&A(9c#f^t+<5h-yK%Qi7?76)
z1se<#B}rgNf=^}3v-gsPc%bYtrNs>8yp<#ln@+$e4G5ZgDrOwyczofv2K=Mv$^3z@
zuo{yVo@=>Vl{BiMB~i|^BC(=X^62CjkGCmu<wjM?{qgD$S$8olp#XQ?4$x78-qN+H
zFTK)N%eHw<!*i`N@7x1ag7hFjlta}uq%4HgqBL7Ee+nDGqc9oe$j*-33&>+mBjo%E
z8f$PrW{^L1SiTq|wrm+2`$9RywD&y*odz&3=4Mr!FLU5SRlg4igvaP8vT%c+C29??
zG=o*6Ds}vVp&54GiTMwufJ2dC@leOt+iv=mKVNbEF=k`Hb#PMj|F7<5l4vfHDDrE@
z9G{N%)cR!i*ba%R?!VS`_}I8^4mJ-<PCj6rpcq^qF}r>v;7KITeeLQy>R%^TrDFRO
z|M$>pz16aBFPl48P8<K^>C^lsEl-D}idH}Nx4O~-Rh!w3-%mbh^HR0Rchx(0aCKQt
znyRYJS38ATR1o)ydsjx6avSX@IOdw*@rEoFeH$A)Drro)-xf8u_b^$=$uc|Xa_xF<
zqh0)ZjkX>V7?Ot%IE5C%z?kNM0&yM?QZ}r`pbn3~T40{uPHVV5i#IFB2FJ(Wy83Xz
zrT&cxy+dj5YqhZZV6sNfsB!vcgRjpO54n31Z98%7S+~J6LT+ad39aF?q51}OA~3&T
z^AlDKed<Nn<*00O^vlk`*80A-slA@9JE}7AmtdpH;_6l`McG3y`O!kgHP~|v;GJbQ
zLbqpiP8-tO8%)Zfd}Y4@$#Oe)?=Gd>j?hrS??|rdh>LcUSZaCs&wKNnrjIy7JO{lz
zyN1}Jt(PI=gRayvA<K&T9aXeD|JLu=V~DFJtqUAJ535fE)o)^IUZ%c^8H#6qGj~{q
z!^lgR_C0LHr-8qByFbK++EmVthM7BDLFO*p(qw97nnR!|QP=lxy-(VI-uu|8??$@s
zDemwBW%S;6U+{g~%L-^sR0%}~Qmwc_CyI$x4`CF!mshS@_2;kn$R|(oF#4~!tn3MC
zi-A|QSQB}ry>MC{z|on~2%0nlb+B^9ii=Lui?OMRv2+dX_nmM4-Fuwsz|KezSTA%w
zOqNIYs|Bc2mNZ<j|E&eME9dJ5*RTu%P5jLN$6BA;8$@?|_aM@S0v#X+=c#bfw}5*j
z%`u8ig%iVS3kIXt4<A*|)c@EWDK+nG8?gK)q)oyGPv;k+G4SLT0RNQ15_NFlzY`pa
z4TB<IpuV=YzYQhXz&BGBYH^StAx2_bm#V(|aL<4IF?zTrV&sJg9n%jL>-9nod(VJ-
z_<L0qJS|__dl0T|pLs`I)du5DW~7<x?%8wbxU6axq-#IAMB}ef>ZgBXaPU%v{<(Q~
zz(V2Z!`2(F##fFknn!Ive*Cw3pPzrYXDm4TTU_w%lIQPlE&pqL`_9~+FXk3p?hx@u
zptaa*U{I*E6yA<P8HuQ|X2xId-rT~Spnnl!gjdxu$pV3f@Ot&GN5c+%(n|}^%NJv#
z4d%U=;%}UrY#>QbKhHCBH(F5j1vhu@xlBQ2y}woqu+)8I`J}%6)%bPy@^4EdB`=?x
z6F)6U?yCQ$=XD$T^Ympig2y<g)U~WC9T(&Mwv&Owvin2FNq}kY8CBF{frY_s187XM
z_6(=wML|yAp#BuY0Y+L}b@z+_bh%!L8{}c#z;H&L_T=Ho|Dn~TG))e`mOv~bUKjSm
z@oT4ZU;n8XUhnf>VuW}8zp?ij*;W2`bY&sMV>-qTpJE=pg#n<Nl)=GeXd4>dBSaGR
zPkXa@=r1TS1F}LqVUM9xqx79*j9>q1D}TUn*{q3;#8gwPY;v*!L0d5BrQmriH*g0-
zNIras(NAkEkQ#pDp6RDObqk0|1j7{jro&eL(}PaPF5|#l`qfVTUu_MHzVaeA@LCPt
zLJv1`fJdStum|N!@dW5an!hI_te0F5FRNoHDg&c$H)CR2JOvAbFl_>UR}4vkenc1Y
zfZ$=>+?#*Joo6}$+knF6MpavBG~#6DyoZ<Q0HL}-g$_*i7(u!^RQOXlsBxkZ``e6>
zlSN2;I0}S(N_5Kq#tPq1ex&?ixJ}@*5k&p-&oaIpqan!P%PIiJaJX)tj?PYtiS~Ce
zBv2PvQ+8}k&0$a~7HCJ-3OwRA4fn*1gEsuBhMI<kk>}2hWfg!bJYcv~QBj}6;|Ur8
zAaa6!7wZbUIj9ceV27Z>4P;D(j^fCw?E50dHk{Vzb?4TtrRQJeH?2K8b~1+v6zR<_
zD1RbI-wld=7qnx(MYDe0x_Og4Gx@bfu0OV-sj2`~elMz>TIPovJ9?0B(D_)(Ewqq3
zHu)tL-k`v0Y7(pXU5+Oi==d`1{1AtD*GobsBe*Wr%aG@omp48%=~~-C4zeb)oF?gC
zFj!!l9`ECsFbQKam;<t}t$ZkP11Ks;ga+37|49-d0#-1@G1=Hxg2;v%wO_+#Uc(d!
zbz+kFKR?9oM9je|?2ORR>G<*)%raUfkWyXFaKPlNXb79a-!l~c<bm>r)8-mgZ<>6#
z-DrHZt$gouh(2?3O967nVg5CS7K!89!vsu17pzn2NQlCOqJ$Il^XCc5o`xm_lIDGY
zOCdncOdLUqR8_XV;EuVreO|fnpel#DiT0i=fhiT%grj5ZtJ%{^%Cmy2iYx^j|CcnK
ztpffZJQ`4qc~P`DT>V>c-U~)RDStaGD$3g4NJr-uZn;#Va-KFc^k_ti^YRuJ%0x<z
zGeh>BYe%p!%G|~H;F$+k*ZK1|L?TBccJr2n(=_Gh$5WXILqM>3yko}1ym?#G&$6_D
z-2lvzh#GHZe55QmeNZGqeD|m6-yJpvvAaP}mmB=m)`gz!ELS+B%azQ%l+A#Af)x-y
zabnR_;9`HcucQxd1r!xNSRSy^aL8NUr24hEVjO|>Nh9q4s5wg?Bzv|JyzY<!B5eD2
zhQ68ThCGLtk|@t-jpu(@%2c(vh3Y`0CL%rE=(OsKnoFL)@Y`<({~gC?nF(BUbS3J%
ze>o}a6#85hxi>w16NK$I{-<Ru*9}=MH_<oi+obK&(w6#6+%em@??AS#0N|w?Ogw-N
zVeTUj&97~^We`Q>D;lFXj+E5a(pt=dh(zmryc1%MTdFdQp>Vh`rEywg(zFRTmMoSE
zwqSRU6nzZ0dDs9zPw+fz(8d=WPR9-f1(6sF@)5Tb?xeA2X>Fm@wnr1WEoA$qukB|)
zVY6l-1w*TT1SMy9M&k1C`8V|4%!Ug9Inp3W%g4uuB1vd^S!+BX1z9{n6_|FjrVz=4
zFd#gJ_u5Zz4*^gdJ0wrrf0;hAAI3~FdKMfkDDT>pQspx^-$}m>+Mv#RZLZ4{1|U%=
zy|F_3a7ky6tMj*~Sp@WxfCD~>W9|qe0^(C*JsH=84j|+QJe0a+CJFH+Iq0y8Df<Y!
z8=_H(U`HfW`BssCIc3lvG>e&k2wB&r#QpT&t3(^-m2waJ2U83YWJbW}lZuZ*o7C|<
zU|<)jT(XAH=!G`7HW&Z(Cy$N0!gF>);$UpzXZ842gP;YQ{co@=FnGjw?f0z2fNnA8
zLQK<oS%W%>rKa|!P012dG}rXX=&P%%+jUC^u7m60-(mQwFJHR)_UY@hk8f4&19}UK
z0oc??$;aF6YbUt<_4)UWzq9zi+P5bT7&0ONj-eLgVcf5(uTsD>LFM6m<)%X0I;649
zyska*=5B_n4K>LDU%q^)wfkv5Ce7HuKs#ea)Z~NXX!}PGz1{{V0egQ=Y5d$^bAKH{
zzGnWjnSNtM6K^1*?2ynODKS281?5?H6JmT|Hn|<VLb3-x%O1`9le+p<dEES*mzR6h
z9P;}6>fY4ca#Rr<&yVi@U(k0D*$*_AAF*Grnt~_k;kq}FQJRc29e~^~|4T7i0Jv@T
zc>Yz`@B(t{!EpmGewsWh&=4CVcwi1O@Baaa&o~PmfW5Qff8{&=FH0CVU)6XI3J`RQ
zi22`+XNbB*Qn5f4zYzdau{~%Ma#NDQ6?AVQ=Iih>m!Qh}P>Y$45r|iAIz3Lb;qTwP
z<H6DVsTF~M3bBFWD7vfxRrXcFpUJKZP7@02EBmu#)Cn#|aOPboIv}rn1pPY6+h}qN
z{F!BkRVX!w7`i)mxL>kHI?=!`lMCl06)>w4m;-=qSx^E5<~jqT>x5;5vj0f{4dkZk
za2h5FZb2MR!4>z8C58?kkAih3yC0ZvvN9&<4Pt*TNAl#YRr?Dpx`*|&jKHBqpIaWn
zDY0_aM02?JC>90B7Qkcd#805Ve23W+5R5=GcxgY0ggHSF@i)kT+yNBa0z=O+!Y>hk
zM3rsu9qXo^vm;XVgOgD29rO<-trM#N$_V}JF6Xpl43}fF;O@9|TX+Bd6`?DNtR!*1
zLJYm85V9Ezg9$@ji`WWl%p2l;d8W~+ZEqh3QiREZFWcPyHuMdw0>~6ig5km5!GRPd
z8%*S-h7GK+=;%@?d~YC~83NK%`Yj_z;I}Kj5%wE{1g(+l2ibP`dz!_}!GyOt(rysh
zJA-P5J#!67@U^td^mTNC@jPw!b%A=I)=t45fm#m9IV2O<dUZbLnjipLG0iGaeDRR=
z{3+wo3J)o2Ec4iOXaQ1J?mmz4N=(f7rGkKXJo{d6?N`-{e+zVS$n50%w)lkGi=J{h
zcWFaSZS5tE(Tl9vM4zpgHXc3a)_H|wcLB>!;+zhclR%m_LzH=q+fss2J(4W)g2PK~
zh{S;8H=0ufzaU$x__u09i|7$5WjCXyD;8r2N?_bX(+tlk5Ig0wXS|Sfe7c$^-cU!F
zFwj`+GYzZDKgRQlBHeFZ!msO2WkJK=Vftz{WmiG&#)hN~SCp74IqOePAfm!nNuC3M
zek6GnW6{|O76jLtMif9z21w@Y{VT&)eWX^5s=jvIQGez{uZID5R8B0FO*?1>)h292
z8@)RT?}3c20j&_Y05UN)QJ5RLCmhLk6g~!W8&2l5gZJQlF4a#>lsJrrKrmuK0}B@$
zs$}r=Yt;*zPVjKg26fqTjk2xyfGGY<qFA1l?;7p4DQ@9EyYV+4dLoG#=lZ)$RCn5n
zLXkRnZvk#mX~tRm$J>=q?qH$=tKc7H;-xe_t6bWP>9IwAQhsYaN@uc~BU%!^MD!7H
z7}%l&2N{ht$oBr2lVJJrnOr?K+$Q`Jk+4Y(*1$1=hsDLk@lTEM0<vJHufd&=g28~g
zm>=1JlJ>)lnKK`~y4XG7KBB>>{}(P*WU?c`d(;6`(FUN!fbOTg#c~+^+^7%EM~p@J
zJJNR*{wWn{{WqydYZy^G#(m|bhtHV^p>1Y{0*uh^91%&ytQ%D+xdY`{dVd50nTwAi
zx0wmiuzFLT+*H8mBshmpHh+=GVkN=Fr%${Fn!_Y=P|$e8$V0|m^0{Rc=rK%mWEG&c
zI*{GfH$X@`vk}sNn^P{pT9Bkgk?Sxmyld##alzI7s=lu7G8SH}>C;F>$B2=|TY2~Q
z-;g>xqp{wHV6zr0ePm}NH8t$%(>>(;#a_g%C?Wm2>O!97?pQKfap<Ga(adOH9EJ{1
zjT4pJ6lT4Fbhz~8u<-?V>j);vq;WfxT}3`LYEOERYj*S6wd0w-celd1L?KTQA=z}i
znehRHAXtf=i0r(IWA(`sO~8jx@CM`RS*u76|87QFKw;CU-ZNxQLb>>#YA*8EMJ2qE
zQHS}O4MPCsdWOG0a^y&ZsY>5%I3Ex+DzyTlpQ^sfE>xb`_vM)*zgzC0--m#n?HSto
z`r;W?HuiHHLeQxq1`%%yLxCfxNx}u}2sT86^`@91a{bn=zrfCKgEhCqJl@~mzu~*7
zs!biOr(pD{5t3ufe7P-`)3dVLy29h*OQ<739R#-n%H0EoJFhgoo7pRnKl1Vnxveio
z&Wryl-`2(^GxXk9+b&<UD3hQ+5TGnA>>6l=as67P1(x*Qj-TmJgDMZ&D2;mKjQf!7
zy?K+rfL93K-BlQL54eDhX_B(1A^rv+WREl7uxx|DI5-Y5F~!(Em@M$S%N#+p>mY)P
z@Oe%LrrvguRTq^SqxY6dfAv(df{3wrtWS%L2e;-D!)}~2hGOJx1h0To@;38g-y=re
z0IHQ(mo97GVG7_BxIe@>Teu&Q28Z&WVJDa@I`Ra0s!!())xZt>ANY2CBrW0;KRlMa
zI8{ha@aqEG<^oXR9lA8*a`*+omNY3=^;~As%#=C0qXScfhHKxErIP6QKeKA+E-)C$
zL~_xPAX0?mu?@$whNqO6jCC13>V_vj$cmJ2!x(3hJ7MG~93hR6Gnc??yO1Cth5tUl
znE1=PLW*Hvp%eF9r$vw<DH~p%qPd*+LQpV~F9XN~o$=^hEuh-vA&(9zDQ+2zWZy&n
z!RGeUp}*C^oLQoCCrL^pRt2YCoYU$3C|00yTRwkEf*-VkkD=&ZuB@E?CY3Z<2#m2>
z;|4qhRs#E!xKj=p4BHj^i*pWqOdtK?@sXo0UD$9atcHCu1Cf)x#IPa~*SbQ=vy~pV
zm^kEaG{MU41(EPlL#NuC@c5BK0f;ksL@7pNqSq#xTLotqbQS?9-B7*~;t0{sN@Zmu
z3e&_;z6Ydx1!k&kWMt%R-vw#jP=D^wUYzMsNp-@2&Ztfmndq4E%$SjQBf`Qo(z1&0
zv(~d`X)YjP2_R#U6kRf-AE&J(Bm^XVS3!b7CurV17+OR9>k*-C2`z%ET~u#(n8Q7G
zjXXC{Si<u*Cry+(`n18`W-_E8fh5z<339;XFP9aueRW_;Nc_i>i)sKkIb$BN;;iou
z_3nHxcKSZM*D|?pjHepR+)>aMgHhC$pI;*7{$moX1YbGd1Yf)X9LVrgZV@-`xfB%q
z;{=Q~^Q3cS)XCk!3Bq-V*DFPm#4Ua6YfSRFa4nu$WH9n(;#0bq^i5$XWrqEdgmhE5
zsidUD=-I%iL`R6pJe4DR91qrC8QM1jS6bvRS+w{!SZN*pci6xv)!i{+_gZ{f6d4`-
zSWy6Qpqw$_5b>oJZ_E(P1?j<HbdVgAr7n11^vbehMn{i6X0DKsi2NX^^Sk^kv69^%
zXUu4rfaRI?)NP#SecMp3B7}Jel}P*kauRNFGCUAySY2E*7z$Uw4dt1lJ{TU2g2A8h
ze#X2?QZOL$qQRDNJls)E>Y&uQeYkS1$Mz|5^|_}Q4c5M4X^M!`MsWq;X>QA!4M*Ni
zqi~u0MT?yeW2ukZ41anr$&)Az9K8{dl2PfsO>^F(cw$K`uxCg0c$u|leMx>vAOF-d
zeEbji_;w*`6_o%x{d&+OXkj_nEl|QIGTaV*mudir<@?S}D+pqu5r3E&bigpD(Xv-s
zXs$|xESlTi^^#F8t=<RdB1qCjNW(>FJrT-HL4yI+lx(sql#VzaF=FYruK3~vOLNoH
zm0lj0L8^=sHPSf42#Eo|$78-*{ilvE5FbtuD$Cd;rHm@6(8k5_DWc-f>E?^z=C|af
zk5)Yulbi-=FQxrZmJ-o~P%%)T+rM1vEt2OTT?qwYx?D=C?M&L3-=)^&#zT3Z5Og5M
zLeg$?yh3ET6vOW3zLp5Xa$N7Q%A!iFev<TZg5Wg#&S}AFT|!UCgbz~ZvcP_zn2G0V
zF9hC*7M-)#$f&YuE#Mpua+sFd>qpXNg-h*FqCppVtBqw_xv-+I!<+`g@fhL|Z|WcH
z{_}c(8728atqPTE*c7F)@DP#-l11ZWynCP@LU0!xzL<7Xp%YCjA_uoEP9H1(UhzCy
zXOF)8ge#!;AMdX0z}Lgwq;dnE6$^{0x9}Hns6dg+j2V!+Fx6uFVUj`{ocLap&J@Rs
zL&1Sv!P{JK(dWl{OVrbeJB39=RzLJrPa70CvjoOcP&LL|?8FX^goQlFjZ&<z^aB2|
z%a)K-?bU)oO)c%+XD0dV`IRl5OM@6Cf?*NJC<S?~Z@3J>C}f}5v}u#KQ)g#qF9@Z1
z1319Nf11YiZ0(_0mB^y8<GRx(hEMwp3rg*8Y$15p5VdrTVXF<RbHn?-eRJotQvpi_
zi<IH6Ld$lssn>cUA(8!)795UjP#O2upQI>Z=;Y6#=yS*von_S$-P3WuOp2kGdC8&V
z-N2|9j~!NUQxNh)22hGC0ys(*-nVUC&4{xug=Cm4H_%73G)%eq(_2>MDdzoy@U^_O
zW_T(G6261!-txZw&wcA@9fP!f*c<Sl8=Nj8Mr}B}e4<ePwsju#!n<kk7ATZa5BH`w
z_KkL8cw$JqPqtvp6dt<HZAt&EKvv+lR^LxTmN1va+Ol!)HF$K%+d(mQO<Ff#arRXH
zgQqxEU5CD>6ebZS3v5Rz)|+Ey?Yw#OIwNh|)Ohw*$_mV40|-&A+RQ6H?XE|=cZO5e
z8k0rdPSm^Q1`Y^b2XuLzIl#>rxRYwsCKigrn&CEyHZumJV!4oj1tKmf$Q`jVQRv@y
zfjC+7zMobT%ur%1&=AyYM=YOBKgUp_%kOE8WJnqV!YY7qlH!K_dO$lU$h^W>(^w?2
z%;7!(I7Gb%*E&U=7^ti-`IIbyp-$)FQZ-JIMIMYG%_K$il)D@77hT{E==6~Z^Z*fP
zP4qCi3~ZojLvB4>eAwaMo<!mp3W14(4Ln_C8zDhT=ZCM^RL8H^w&R(!U=@(k1@=o8
zVb-y{39VE+;o-@ONU-9{kx>ojtCh72<_!?Ef$;|ivM2G60vctLkPh@D4f#m8f)@6J
z1ePOpWgn-bUS()M8t(fPfa-TNDzWBL!)ls+5i@r9s))t_J*PZiP7tsWv<*5a+WtJ3
zg1Nq`-nLzs?1xu-E-BQyQ{Cj3#vM8JYTLxZPAKto!GM~iC^?By#E;GN)}2iSgSgCj
zO1#DHDf-z?0rR`$SXuyi(lN!W85vABDeTw`g~^)t9?+W*lEoxyCOY-!CDd!P1;);v
zavqpC1@komcj7Q10AWKy6WK~1y7z;P`y;q&|8DCN$IdW+N;BH<a^$<hvb8wWT<F|T
zZ}gBwmmYaj(e(_x&*=B2W@^g$qyE9z5X(cW$f}S$b$B5uk)Eyq%T!3ZWvWN_Sr8Jl
zrCUhbOX>V8F%O8gGz|@FdzWfkJ#yO<N<-HQdd9Q{f3y`*$ZQ~uO50#-TL;S5c)j4B
zX_E<o3P$~2^RNqhkmvoaJW+JuxC)P<0oeU4JL<_^H2&1t%s{MuV-^P@%+h0t;)H!r
zW&^Vk_WC_mRxMjgK}ZT>EqU~3dDt}wjVJ4|^D=59u!6qf-a5%>4t%}7TjucV3w}Kw
zgY5z6b{DZw(&4`~U%1<pw@X%RexPYr4h-s1v)n02PHEamFZz{J1N6L5&JmHC{dHV3
zGc)8FU*4bLG_`VQux+TM6gt(MA$qMmle;=R{Yr=ZxkItN>uYEhOUKF8LVH&Wefu6i
z`n0OIIdY@TVtsA4123P$XLAxN>elb^_*q-?HN1e1gHP*}*eOjwzLK8UCM*G7mtc+Y
zMU0B`JZVgfp0l%aM>`&ZqyERv56x3{b+oInm7gy%kqE+!{#q$IXznSw$SE*4AA$Pw
zp_=<${CI;q&nV#e2K&~G0Rug~vc?u{@(oxToFIhS?Sr<!7rYF{lrbPheIqaxbKMJi
z&d^$ALrINaF-HyO7O+e)7U`rBtXmw~BC{Z69n#P~)RGc3p#ST#d*wuVI}7qu?SX=C
zb91k_-^bVvs=X+f64LSu8dJSCf%z;!#BK-fO8j_p3}yJ)P)`Z}Ku2L!^kqUo^zPkG
znqx}?yQP}8TGNL}8-8kx7UCSF&-zHk28KGk{kUP^7UTn_#Uh(<Ddy**J$ZuR$;alQ
z#K2a^3BoU=*)MQjfY?MFKI%2f-UeDmRuIE?lrG!t(Nf`JySK9^>&I?6OM$VQ1=h~w
z_lZ4oaJ>JbF-4<T2QO&VE)Jc|e{|;>?MS<b2bvEw8uuQ*ap&mTt*^}|ZT9q>HG0h4
zKUG&|UXT%7y<^65FFEGTg%{N~J^Ogl-J@HP`$xrxqt6$8{59bJQRPHVPi0P*<)Guw
zuj?BY^YgY}(HeNicwTU@o5l6Y<Pk@JM|3@aGBU3Lh78EUrBKby4^LT!Zy29d=);0a
zq{t1ZJ1P3GYVa2(o)oH+(Vn(ls^G9Zkaw1$-v{iNl9y--3!%kGa)EG*Vp1V4FD3i9
zsAv@WFNas8wf}6h5lwD|((g1})vP@au_kz5qh|5__AZRq<h_0R<Atize^Y0kjIICB
zbNxT^kNGlJ3lI<vn605T)NTSK?POVa>}#Zj{*zJ+5Nb-r3>>3TVD0s-Y=q8HbB;r3
zFG4q)FshsIF>umvWz?fva6)6Rd4O)LNx!Q17Nz3CEv(d@ElmS{GJNOe5x5MSBwSw=
zHf~FoEfZ%lw;;{rr+xrO2974LKmK?EF=bYE=(46uan4OBMksI#dmx|+8xxk6RK~Ai
zon_uu6cxcViW-DUBi{T)_;cB493?ITi(QEp4w-s1h=o!i;X+7=M@9<ha1Nf`k{U;-
z5HO>Skaux#E18*@5;?}{uKQuVw;nJ|wB3lbz5;x*jxv)g6t2=#?7f-;W1Rea_sMyv
zK=EHjr>VJx#m}UwD1YtUMYGwRMW&jXS4m!hIUAZ(M*?N3`fJHZ_1EDD%@3)?sgyz{
zUF&@f-$am4MC}9Ic>=)z5~)#fA%TM|7g0uOVbEzf2}tGys2EeXLY8H;IhcU_Bs7$T
zT?+xu#n9z+yc3U3j6?Jv#gtZh47t&4RdTdIr3>8xqHYmhPdPLLh(b%Bp1|mimV=uX
zDH%Id1{!w{^lm@1@Oj*PH{L4u6g`N}nnn*1UJvlP^?uG|U0vOf@84}9tD*2wG(jit
zLD6q_wAv`uaSw_ji~M*1J6I3!Q3EEPICZK`S0X88!N_AuDAaM^RRZ3m42Pbs#BPSv
zwx4PNAS-Fq3J!T$?86xyD~R*i0~CxtJGRT-NaNVZIHd|uS@$u#osuO0QvZDKcw`vz
z@)RYFIwuG{fa8X$)Jik7k2HS^OAZ&2#@`?}F4O03R2AvWq5@lS!s_3BpPTE;#MMh0
zb4n}}xpvMdgvD6MC~3}1)L|e+1<j1TV`U`b6zg*XbRo)s3pofMpET>BDoz->)V`ZN
z@Y6S=2#PLf41&?cCEa|Kc;DO~b%%|&|7!>^%8@D-{_#5Ix*%JNlxuJxVo-N9X{+G%
zYB^Afg0ll@)=5osub>@8f_Ev}#PU-n$uCfI5y?=2bVgjtQuqSx`n!)umnP`=#y_u;
zHU9NjJYcpB+g^S?xpmN`8oJR4*7GX;50KlWZ)n2C%3aEfwaj%(Tr<3ZImbZkqs_T}
z_3GzNf4G^sH;$yEG(2W&8?)l?mUgI=D_-pHD+Lj_3lg85Yom?Q%4<H+>{4ycdeD*4
zEqF{VcCJMi%B?;g*{7?m{iX0z+S6a(z*osx$=%6PQp8kEr@?+F=~b(;zw`habNZI@
z;6diD9Xr04ZR5;E$^f93<T&_LWlc;>l;Qz~t?~HvJm5Ab8*<%*_;ZI6b6k2cc)|~@
z!YQ_|pP$*zwTN7)$brViAK_E6+?He7+Shk?oq~(esGc+)SFH5!Xq%?9(_7VamBlMd
zdcl@D-V0%#1c71H=Em*<L?n%<yc<W1(p^8Y7l>>eJFM$y$cM<A$s&`~ol<(li1Ne!
z1(F9F9S`v0bfBe6IhqlF6eQTh2@@K>FI&Gp>C2=}<XA!3t%1k(2ABwBFjWjzq+@U`
zCkPMtOSTHgc1{rac|?R&pfTadU~m+<VMHvrMu_XBU1{IGn|M3{HIgxdRRBG+ES^a^
zuz@(@F+x#KaZF5e4674;u8eusPNayz{?v;i!a(*So_9(Vr)f~6$k$JS*SZ1v#AMu5
zSmQx2$cBPIA)XlHH<2M_5#6kpV118{Sc=`lj&ibi56pZeI2MbBh2jn9;ZCKr`I!6P
zbDvO#_{+}@L)fsFv*;az3c+6S)3Dv%c$MLg2uEqWI+=Gt=tc=PLl4D9mM_*{A)$5%
z*S7n5D=8b<Y#d6e>?^ADF@E`)x5Y3FzaslWM(j4FI+n5{1TvsEa@wE*pSCt930VSD
zd|;ijN$`JD-*O$4`Ge#B;;UB4v^cnUe|w9b>^3q|R!@Fqn=%N0UR3jjqXH#GMTxz*
zLFQc>VCT+;)7p=d4KZ3k=@*|kQ=ADW6-&#?8r~JTqN&^vrKq4#e&YxfgK_dkd-hZ(
zF96?f$JX7quQquBZe7$DonS{i7W?rBB~dXkdBts=b5o5y2I9=0f6R6t=)H}bBU;**
zQZ<ls)2rNo{qa7)oTxQ!A3pnFMc>m1;r3wQqsxasZFY~f*`7gbvwh9LKtybujtv&w
zE>;~T_I&-}s_%B}=us?wjHior$u7Cdo8X9YQbyccMnNI@1KSvewJTYX$-d}0M1=d0
z>UPuIUu4h~W<e3*dS`4d8X<+9?Kt>u-nrBKbjmjxbqX?KCr>p>DCN0BIG1Uy;#q?<
zh=Utl7WD&fk&;G{%|b~g)M+ck-7i^%*)}bH71pJHOqj`Z)Am@ueEHiJe@GQ}_SU^Q
z@c{*w8izdmS7a|@lnIFoSrY6S3l!`yvkNDV9`=9h7V`K(op^;UkDVR1Gdvu{*c7jn
z>a~A(_wJ`-<#i16O1vNX`SWLo1hzGv(q|t(ZT7@Hy3V8p4wy%zHQ^C<xvt0SJygWg
z5w8@>>@ncFfD7gXLHh7os(sN2N#!il?6pm2#hH>%*eXS@RFO|U2x_z;^$71j=dUlA
zUBtGu+<W}^Q%K4vn;YitcV9A^F&b1G=`MKK3o)K%*8KUa5Y1}i(Z_`yA|LAGB`hps
z_DNUpn^==Xr9!hx_QI;tvQOYbH;A^O(hM5ne-&k_G!@kW`}im4>XIc_Hq_YfYOXyF
zBaJQF_r{H{aTSlQC^!8`?0oqQ_t;T_dnodGVqzJ4$gmoEwJyhgw6g_Zy~S8~i2m(k
zTVW=a4uAw|Bsv=lv*LV9x}L;6TOOGNh?x0z{ZFCNCI7ex;>%4ExZKnd{acShBGOe4
zCUD6dPQn-P0Xq2jILfOX3=s&7=a{s%6nlh>9Sn2pC6@}hR}qPP^{Y~u=^BB}_}_g<
zETPnGNL!q;5z1&Ypr4g?uPZ(TXCr5D=9c!?@AA@Id!99y;mkU4xBc}*rcv(1tHS51
z!*06_WW9T9egC%Gl2{$Zj}r?Vf+S-e|MP}M?oW430$WJ~9Pz0`!AaV<m=8!&WSpCY
zhtjBF^=aVtNs}kv4AMw5d#775z>&o$*^>i(2q5n_y;6$FA*4Zt-xAUn3gRJTgi_IZ
z5f&lF!df@ViaC>l2peJ{0B$J-ydPz^Onisgm|03sjTj{x#6P{;Fn}LSjc=dh7+a12
z-}wFMUoa5QC2LL*D{_oY<O@5OwJD14OWhi$;OXwAxZ1otP1H*s1=!i8O1(=WvU_u4
z+<kkR-*}C*1FBaX&|0x9lvWq*JMjLkW%C!C^kb70=1(Emn!v7_AO3Zj6@ZeP2^PW;
z>w2Gk3T50)rmiM;X85)fsJiu2P=Y&J)kn&G1INu|A+fZj?1&8`T;^pbnm0qSQD}3M
zT}830oRY_M4<?a1RBK`?B7UQD(%RFJmNv%wJ(in^KT1y<|GQTD;G9|NljC|LxlN2+
zDlM>?=36jJCp|82M(hinL=cJ?%IZe9xj=e`B%3_goe?@z={dP|=ZQ31Yv>}8qGP9M
zY-re$>`T<OL006qI^<KpN0At(=++wx@zRFN>w$lk`au}q@@Z5*v=K*9xwmu!%@AXe
zE!P?$x{?9sqx%X(A|gy}jvhiDU~%YRZh(pu3w7_Vklv@$Mmj1b|IWX9!6i7f?@G=A
z0YX7j09L}&(<|*$Q7MCZC#DPqK8h=nA|(7m%n2!<q70I1Ca%@pyVnf+8^wED%H2U7
zTw!tTKxPGLpwJ$oKDE(}G*Lsn8NTX`Pn1OS2Rz$k#%5J*P{i+!@`zM9S@$P$mBi5(
zAyEXWaYe<}FjMVhv7pMJ@nTOv`atgo84VgsD%VA%F<OSqqCqxmbEKuE^^0`V99sNo
ztOF&mp)+qW@>XfJ!J8(w#0|1APWs=UP|r|C@G_R+;0z^i-o>d}PsTf(y5g!va7)k(
zQwZ3;?Hwv<TkA2#adcPi8s2gG+2bWopF=^)2M!!qmmAEMzo(Ig$ATdFG$YEr#6I90
z!QHQ|{Rrbf%GtESNNjIi4`k5b_FY`H$dbbnQ1^hP<ktA11=gCEB!P6<%h)k)`uf(d
z{E=^fDRB<1pBf$dY3vtv$WCB<DP!iIM?XW3Ntz9+bh!snMFu#x9^<w?UeNz}oKd|4
zUdbW))q*Zcjl=Jw@vWb7B#hGys(NxxDHMBb?@pFlSH5|w65*QQAhJx7E?`*^#ID?x
zfn-2d0n+6R1NzJ^3k<j5d5<Q~m)AriLNY4oTe%g5jWf`QXd%3Syw{Y-UtL{|nGh7U
zj`!<El?n(@Yd)R#*ry+&I5kH$2Id`U?$~hwa7wKEfb#&}dxxHXwX;?6JUR8kNS~Xt
zg%>QSdSvu=j<9eT>Iv|QYFLjtdU}4FHgBfnE+ivAfxHBxBagF7Lv}B?x4}sZR@xGn
z>>hpoeDKZd*9~B{eQ>pA&z$+iJ{uE<NCS->g|HYTJkOp#KZ0_ce*E}B7Io!;4sHCU
zeQiNSf5UbaLZ#^pLOHP;bLNRN?WEjq!pk0<{9$iw9gE+HlUW?fI%t9Mfe~vGNI`&*
zKEm|Y`{@*(Y~{Xh(iCh0VNX}CtNQLLjgemO2ue1hJ1|2i3S{8Jl#sJSU1$Z&(O31p
zHy*4>u-x)F<0Aw<^jr|NM^T!_z0BWd&jtiEBGn(mZy_0b9eHb2@^)w|AUq*^{V#sA
zv*!Lh4-ZK9>X&0aS`My=QoT6Rz<(JtZX6qX7tUcc>F%d?kL#@)V~fKx4`9$%TS2q)
zWSbY1G{{5b^1z%=H{Xuz3w$pz-wj+5bbtl8|0ymCj6CaLa|;+60l4L1dz~=6>ETl@
z|A(}N&zmu#=w|RQA30?(cQ0^cg9OOrxp?GbF&KQ8{!jno!KqH%D=t&_1_aZ+VQtme
K61C~zng0*ev*d&T

diff --git a/reference/resistance_predict.html b/reference/resistance_predict.html
index fd6173c1c..3c81640be 100644
--- a/reference/resistance_predict.html
+++ b/reference/resistance_predict.html
@@ -9,7 +9,7 @@ NOTE: These functions are deprecated and will be removed in a future version. Us
 
     <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="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</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 13f4d83a0..7ecdecdd8 100644
--- a/reference/skewness.html
+++ b/reference/skewness.html
@@ -9,7 +9,7 @@ When negative ('left-skewed'): the left tail is longer; the mass of the distribu
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</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/spiropyrimidinetriones.html b/reference/spiropyrimidinetriones.html
new file mode 100644
index 000000000..168688bb7
--- /dev/null
+++ b/reference/spiropyrimidinetriones.html
@@ -0,0 +1,8 @@
+<html>
+  <head>
+    <meta http-equiv="refresh" content="0;URL=https://amr-for-r.org/reference/antimicrobial_selectors.html" />
+    <meta name="robots" content="noindex">
+    <link rel="canonical" href="https://amr-for-r.org/reference/antimicrobial_selectors.html">
+  </head>
+</html>
+
diff --git a/reference/top_n_microorganisms.html b/reference/top_n_microorganisms.html
index 8f1103f84..70c68cd60 100644
--- a/reference/top_n_microorganisms.html
+++ b/reference/top_n_microorganisms.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/translate.html b/reference/translate.html
index e5f3dc3c2..b238321f1 100644
--- a/reference/translate.html
+++ b/reference/translate.html
@@ -7,7 +7,7 @@
 
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9009</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9008</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">
@@ -110,9 +110,9 @@
 <span class="r-in"><span><span class="fu">set_AMR_locale</span><span class="op">(</span><span class="st">"Dutch"</span><span class="op">)</span></span></span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> <span style="color: #0000BB;">ℹ Using Dutch (Nederlands) for the AMR package for this session.</span></span>
 <span class="r-in"><span><span class="fu"><a href="ab_property.html">ab_name</a></span><span class="op">(</span><span class="st">"Ciprofloxacin"</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Ciprofloxacine"</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Ciprofloxacin"</span>
 <span class="r-in"><span><span class="fu"><a href="mo_property.html">mo_name</a></span><span class="op">(</span><span class="st">"Coagulase-negative Staphylococcus (CoNS)"</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Coagulase-negatieve Staphylococcus (CNS)"</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Coagulase-negatieve Staphylococcus (CoNS)"</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="co"># setting yet another language</span></span></span>
 <span class="r-in"><span><span class="fu">set_AMR_locale</span><span class="op">(</span><span class="st">"German"</span><span class="op">)</span></span></span>
@@ -120,7 +120,7 @@
 <span class="r-in"><span><span class="fu"><a href="ab_property.html">ab_name</a></span><span class="op">(</span><span class="st">"Ciprofloxacin"</span><span class="op">)</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Ciprofloxacin"</span>
 <span class="r-in"><span><span class="fu"><a href="mo_property.html">mo_name</a></span><span class="op">(</span><span class="st">"Coagulase-negative Staphylococcus (CoNS)"</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Koagulase-negative Staphylococcus (KNS)"</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Koagulase-negative Staphylococcus (CoNS)"</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="co"># set_AMR_locale() understands endonyms, English exonyms, and ISO 639-1:</span></span></span>
 <span class="r-in"><span><span class="fu">set_AMR_locale</span><span class="op">(</span><span class="st">"Deutsch"</span><span class="op">)</span></span></span>
@@ -130,7 +130,7 @@
 <span class="r-in"><span><span class="fu">set_AMR_locale</span><span class="op">(</span><span class="st">"de"</span><span class="op">)</span></span></span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> <span style="color: #0000BB;">ℹ Using German (Deutsch) for the AMR package for this session.</span></span>
 <span class="r-in"><span><span class="fu"><a href="ab_property.html">ab_name</a></span><span class="op">(</span><span class="st">"amox/clav"</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Amoxicillin/Clavulansäure"</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [1] "Amoxicillin Clavulansäure"</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="co"># reset to system default</span></span></span>
 <span class="r-in"><span><span class="fu">reset_AMR_locale</span><span class="op">(</span><span class="op">)</span></span></span>
diff --git a/reference/translate.md b/reference/translate.md
index 4b2c07cd3..ecb08a13a 100644
--- a/reference/translate.md
+++ b/reference/translate.md
@@ -101,9 +101,9 @@ mo_name("Coagulase-negative Staphylococcus (CoNS)")
 set_AMR_locale("Dutch")
 #> ℹ Using Dutch (Nederlands) for the AMR package for this session.
 ab_name("Ciprofloxacin")
-#> [1] "Ciprofloxacine"
+#> [1] "Ciprofloxacin"
 mo_name("Coagulase-negative Staphylococcus (CoNS)")
-#> [1] "Coagulase-negatieve Staphylococcus (CNS)"
+#> [1] "Coagulase-negatieve Staphylococcus (CoNS)"
 
 # setting yet another language
 set_AMR_locale("German")
@@ -111,7 +111,7 @@ set_AMR_locale("German")
 ab_name("Ciprofloxacin")
 #> [1] "Ciprofloxacin"
 mo_name("Coagulase-negative Staphylococcus (CoNS)")
-#> [1] "Koagulase-negative Staphylococcus (KNS)"
+#> [1] "Koagulase-negative Staphylococcus (CoNS)"
 
 # set_AMR_locale() understands endonyms, English exonyms, and ISO 639-1:
 set_AMR_locale("Deutsch")
@@ -121,7 +121,7 @@ set_AMR_locale("German")
 set_AMR_locale("de")
 #> ℹ Using German (Deutsch) for the AMR package for this session.
 ab_name("amox/clav")
-#> [1] "Amoxicillin/Clavulansäure"
+#> [1] "Amoxicillin Clavulansäure"
 
 # reset to system default
 reset_AMR_locale()
diff --git a/search.json b/search.json
index 0ef1a0f9c..3db32f515 100644
--- a/search.json
+++ b/search.json
@@ -1 +1 @@
-[{"path":"https://amr-for-r.org/articles/AMR.html","id":"introduction","dir":"Articles","previous_headings":"","what":"Introduction","title":"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://amr-for-r.org/articles/AMR.html","id":"preparation","dir":"Articles","previous_headings":"","what":"Preparation","title":"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://amr-for-r.org/articles/AMR.html","id":"needed-r-packages","dir":"Articles","previous_headings":"Preparation","what":"Needed R packages","title":"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     #> # ℹ 2,990 more rows  # we will use 'our_data' as the data set name for this tutorial our_data <- example_isolates_unclean"},{"path":"https://amr-for-r.org/articles/AMR.html","id":"taxonomy-of-microorganisms","dir":"Articles","previous_headings":"Preparation","what":"Taxonomy of microorganisms","title":"Conduct AMR data analysis","text":".mo(), users can transform arbitrary microorganism names codes current taxonomy. AMR package contains --date taxonomic data. specific, currently included data retrieved 24 Jun 2024. codes AMR packages come .mo() short, still human readable. importantly, .mo() supports kinds input: first character codes denote taxonomic kingdom, Bacteria (B), Fungi (F), Protozoa (P). AMR package also contain functions directly retrieve taxonomic properties, name, genus, species, family, order, even Gram-stain. start mo_ use .mo() internally, still arbitrary user input can used: Now can thus clean data: Apparently, uncertainty translation taxonomic codes. Let’s check : ’s good.","code":"as.mo(\"Klebsiella pneumoniae\") #> Class 'mo' #> [1] B_KLBSL_PNMN as.mo(\"K. pneumoniae\") #> Class 'mo' #> [1] B_KLBSL_PNMN as.mo(\"KLEPNE\") #> Class 'mo' #> [1] B_KLBSL_PNMN as.mo(\"KLPN\") #> Class 'mo' #> [1] B_KLBSL_PNMN mo_family(\"K. pneumoniae\") #> [1] \"Enterobacteriaceae\" mo_genus(\"K. pneumoniae\") #> [1] \"Klebsiella\" mo_species(\"K. pneumoniae\") #> [1] \"pneumoniae\"  mo_gramstain(\"Klebsiella pneumoniae\") #> [1] \"Gram-negative\"  mo_ref(\"K. pneumoniae\") #> [1] \"Trevisan, 1887\"  mo_snomed(\"K. pneumoniae\") #> [[1]] #> [1] \"1098101000112102\" \"446870005\"        \"1098201000112108\" \"409801009\"        #> [5] \"56415008\"         \"714315002\"        \"713926009\" our_data$bacteria <- as.mo(our_data$bacteria, info = TRUE) #> ℹ Retrieved values from the `microorganisms.codes` data set for \"ESCCOL\", #>   \"KLEPNE\", \"STAAUR\", and \"STRPNE\". #> ℹ 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`. #> Colour keys:  0.000-0.549  0.550-0.649  0.650-0.749  0.750-1.000  #>  #> -------------------------------------------------------------------------------- #> \"E. coli\" -> Escherichia coli (B_ESCHR_COLI, 0.688) #> Also matched: Enterococcus crotali (0.650), Escherichia coli coli #>               (0.643), Escherichia coli expressing (0.611), Enterobacter cowanii #>               (0.600), Enterococcus columbae (0.595), Enterococcus camelliae (0.591), #>               Enterococcus casseliflavus (0.577), Enterobacter cloacae cloacae #>               (0.571), Enterobacter cloacae complex (0.571), and Enterobacter cloacae #>               dissolvens (0.565) #> -------------------------------------------------------------------------------- #> \"K. pneumoniae\" -> Klebsiella pneumoniae (B_KLBSL_PNMN, 0.786) #> Also matched: Klebsiella pneumoniae complex (0.707), Klebsiella #>               pneumoniae ozaenae (0.707), Klebsiella pneumoniae pneumoniae (0.688), #>               Klebsiella pneumoniae rhinoscleromatis (0.658), Klebsiella pasteurii #>               (0.500), Klebsiella planticola (0.500), Kingella potus (0.400), #>               Kluyveromyces pseudotropicale (0.386), Kluyveromyces pseudotropicalis #>               (0.363), and Kosakonia pseudosacchari (0.361) #> -------------------------------------------------------------------------------- #> \"S. aureus\" -> Staphylococcus aureus (B_STPHY_AURS, 0.690) #> Also matched: Staphylococcus aureus aureus (0.643), Staphylococcus #>               argenteus (0.625), Staphylococcus aureus anaerobius (0.625), #>               Staphylococcus auricularis (0.615), Salmonella Aurelianis (0.595), #>               Salmonella Aarhus (0.588), Salmonella Amounderness (0.587), #>               Staphylococcus argensis (0.587), Streptococcus australis (0.587), and #>               Salmonella choleraesuis arizonae (0.562) #> -------------------------------------------------------------------------------- #> \"S. pneumoniae\" -> Streptococcus pneumoniae (B_STRPT_PNMN, 0.750) #> Also matched: Streptococcus pseudopneumoniae (0.700), Streptococcus #>               phocae salmonis (0.552), Serratia proteamaculans quinovora (0.545), #>               Streptococcus pseudoporcinus (0.536), Staphylococcus piscifermentans #>               (0.533), Staphylococcus pseudintermedius (0.532), Serratia #>               proteamaculans proteamaculans (0.526), Streptococcus gallolyticus #>               pasteurianus (0.526), Salmonella Portanigra (0.524), and Streptococcus #>               periodonticum (0.519) #>  #> Only the first 10 other matches of each record are shown. Run #> `print(mo_uncertainties(), n = ...)` to view more entries, or save #> `mo_uncertainties()` to an object."},{"path":"https://amr-for-r.org/articles/AMR.html","id":"antibiotic-results","dir":"Articles","previous_headings":"Preparation","what":"Antibiotic results","title":"Conduct AMR data analysis","text":"column antibiotic test results must also cleaned. AMR package comes three new data types work test results: mic minimal inhibitory concentrations (MIC), disk disk diffusion diameters, sir SIR data interpreted already. package can also determine SIR values based MIC disk diffusion values, read .sir() page. now, just clean SIR columns data using dplyr: basically cleaning, time start data inclusion.","code":"# method 1, be explicit about the columns: our_data <- our_data %>%   mutate_at(vars(AMX:GEN), as.sir)  # method 2, let the AMR package determine the eligible columns our_data <- our_data %>%   mutate_if(is_sir_eligible, as.sir)  # result: our_data #> # A tibble: 3,000 × 8 #>    patient_id hospital date       bacteria     AMX   AMC   CIP   GEN   #>    <chr>      <chr>    <date>     <mo>         <sir> <sir> <sir> <sir> #>  1 J3         A        2012-11-21 B_ESCHR_COLI   R     I     S     S   #>  2 R7         A        2018-04-03 B_KLBSL_PNMN   R     I     S     S   #>  3 P3         A        2014-09-19 B_ESCHR_COLI   R     S     S     S   #>  4 P10        A        2015-12-10 B_ESCHR_COLI   S     I     S     S   #>  5 B7         A        2015-03-02 B_ESCHR_COLI   S     S     S     S   #>  6 W3         A        2018-03-31 B_STPHY_AURS   R     S     R     S   #>  7 J8         A        2016-06-14 B_ESCHR_COLI   R     S     S     S   #>  8 M3         A        2015-10-25 B_ESCHR_COLI   R     S     S     S   #>  9 J3         A        2019-06-19 B_ESCHR_COLI   S     S     S     S   #> 10 G6         A        2015-04-27 B_STPHY_AURS   S     S     S     S   #> # ℹ 2,990 more rows"},{"path":"https://amr-for-r.org/articles/AMR.html","id":"first-isolates","dir":"Articles","previous_headings":"Preparation","what":"First isolates","title":"Conduct AMR data analysis","text":"need know isolates can actually use analysis without repetition bias. conduct analysis antimicrobial resistance, must include first isolate every patient per episode (Hindler et al., Clin Infect Dis. 2007). , easily get overestimate underestimate resistance antibiotic. Imagine patient admitted MRSA found 5 different blood cultures following weeks (yes, countries like Netherlands blood drawing policies). resistance percentage oxacillin isolates overestimated, included MRSA . clearly selection bias. Clinical Laboratory Standards Institute (CLSI) appoints follows: (…) preparing cumulative antibiogram guide clinical decisions empirical antimicrobial therapy initial infections, first isolate given species per patient, per analysis period (eg, one year) included, irrespective body site, antimicrobial susceptibility profile, phenotypical characteristics (eg, biotype). first isolate easily identified, cumulative antimicrobial susceptibility test data prepared using first isolate generally comparable cumulative antimicrobial susceptibility test data calculated methods, providing duplicate isolates excluded. M39-A4 Analysis Presentation Cumulative Antimicrobial Susceptibility Test Data, 4th Edition. CLSI, 2014. Chapter 6.4 AMR package includes methodology first_isolate() function able apply four different methods defined Hindler et al. 2007: phenotype-based, episode-based, patient-based, isolate-based. right method depends goals analysis, default phenotype-based method case method properly correct duplicate isolates. Read methods first_isolate() page. outcome function can easily added data: 91% suitable resistance analysis! can now filter filter() function, also dplyr package: future use, two syntaxes can shortened: end 2 730 isolates analysis. Now data looks like: Time analysis.","code":"our_data <- our_data %>%   mutate(first = first_isolate(info = TRUE)) #> ℹ Determining first isolates using an episode length of 365 days #> ℹ Using column 'bacteria' as input for `col_mo`. #> ℹ Using column 'date' as input for `col_date`. #> ℹ Using column 'patient_id' as input for `col_patient_id`. #> ℹ Basing inclusion on all antimicrobial results, using a points threshold #>   of 2 #> => Found 2,730 'phenotype-based' first isolates (91.0% 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,730 × 9 #>    patient_id hospital date       bacteria     AMX   AMC   CIP   GEN   first #>    <chr>      <chr>    <date>     <mo>         <sir> <sir> <sir> <sir> <lgl> #>  1 J3         A        2012-11-21 B_ESCHR_COLI   R     I     S     S   TRUE  #>  2 R7         A        2018-04-03 B_KLBSL_PNMN   R     I     S     S   TRUE  #>  3 P3         A        2014-09-19 B_ESCHR_COLI   R     S     S     S   TRUE  #>  4 P10        A        2015-12-10 B_ESCHR_COLI   S     I     S     S   TRUE  #>  5 B7         A        2015-03-02 B_ESCHR_COLI   S     S     S     S   TRUE  #>  6 W3         A        2018-03-31 B_STPHY_AURS   R     S     R     S   TRUE  #>  7 M3         A        2015-10-25 B_ESCHR_COLI   R     S     S     S   TRUE  #>  8 J3         A        2019-06-19 B_ESCHR_COLI   S     S     S     S   TRUE  #>  9 G6         A        2015-04-27 B_STPHY_AURS   S     S     S     S   TRUE  #> 10 P4         A        2011-06-21 B_ESCHR_COLI   S     S     S     S   TRUE  #> # ℹ 2,720 more rows"},{"path":"https://amr-for-r.org/articles/AMR.html","id":"analysing-the-data","dir":"Articles","previous_headings":"","what":"Analysing the data","title":"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:2730        Length:2730        Min.   :2011-01-01   #>  Class :character   Class :character   1st Qu.:2013-04-06   #>  Mode  :character   Mode  :character   Median :2015-06-04   #>                                        Mean   :2015-06-09   #>                                        3rd Qu.:2017-08-14   #>                                        Max.   :2019-12-27   #>    bacteria               AMX                    AMC                 #>  Class :mo             Class:sir              Class:sir              #>  <NA>  :0              %S   :40.1% (n=1071)   %S   :51.1% (n=1354)   #>  Unique:4              %SDD : 0.0% (n=0)      %SDD : 0.0% (n=0)      #>  #1    :B_ESCHR_COLI   %I   :17.0% (n=453)    %I   :12.7% (n=335)    #>  #2    :B_STPHY_AURS   %R   :42.9% (n=1147)   %R   :36.2% (n=959)    #>  #3    :B_STRPT_PNMN   %NI  : 0.0% (n=0)      %NI  : 0.0% (n=0)      #>     CIP                    GEN                  first         #>  Class:sir              Class:sir              Mode:logical   #>  %S   :52.2% (n=1426)   %S   :60.7% (n=1656)   TRUE:2730      #>  %SDD : 0.0% (n=0)      %SDD : 0.0% (n=0)                     #>  %I   : 6.5% (n=178)    %I   : 3.0% (n=83)                    #>  %R   :41.2% (n=1126)   %R   :36.3% (n=991)                   #>  %NI  : 0.0% (n=0)      %NI  : 0.0% (n=0)  glimpse(our_data_1st) #> Rows: 2,730 #> Columns: 9 #> $ patient_id <chr> \"J3\", \"R7\", \"P3\", \"P10\", \"B7\", \"W3\", \"M3\", \"J3\", \"G6\", \"P4\"… #> $ hospital   <chr> \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\",… #> $ date       <date> 2012-11-21, 2018-04-03, 2014-09-19, 2015-12-10, 2015-03-02… #> $ bacteria   <mo> \"B_ESCHR_COLI\", \"B_KLBSL_PNMN\", \"B_ESCHR_COLI\", \"B_ESCHR_COL… #> $ AMX        <sir> R, R, R, S, S, R, R, S, S, S, S, R, S, S, R, R, R, R, S, R,… #> $ AMC        <sir> I, I, S, I, S, S, S, S, S, S, S, S, S, S, S, S, S, R, S, S,… #> $ CIP        <sir> S, S, S, S, S, R, S, S, S, S, S, S, S, S, S, S, S, S, S, S,… #> $ GEN        <sir> S, S, S, S, S, S, S, S, S, S, S, R, S, S, S, S, S, S, S, S,… #> $ first      <lgl> TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE,…  # number of unique values per column: sapply(our_data_1st, n_distinct) #> patient_id   hospital       date   bacteria        AMX        AMC        CIP  #>        260          3       1854          4          4          4          3  #>        GEN      first  #>          3          1"},{"path":"https://amr-for-r.org/articles/AMR.html","id":"availability-of-species","dir":"Articles","previous_headings":"Analysing the data","what":"Availability of species","title":"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          1326 #> 2 Staphylococcus aureus      684 #> 3 Streptococcus pneumoniae   401 #> 4 Klebsiella pneumoniae      319"},{"path":"https://amr-for-r.org/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":"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,730 × 2 #>    date       GEN   #>    <date>     <sir> #>  1 2012-11-21   S   #>  2 2018-04-03   S   #>  3 2014-09-19   S   #>  4 2015-12-10   S   #>  5 2015-03-02   S   #>  6 2018-03-31   S   #>  7 2015-10-25   S   #>  8 2019-06-19   S   #>  9 2015-04-27   S   #> 10 2011-06-21   S   #> # ℹ 2,720 more rows  our_data_1st %>%   select(bacteria, betalactams()) #> ℹ For `betalactams()` using columns 'AMX' (amoxicillin) and 'AMC' #>   (amoxicillin/clavulanic acid) #> # A tibble: 2,730 × 3 #>    bacteria     AMX   AMC   #>    <mo>         <sir> <sir> #>  1 B_ESCHR_COLI   R     I   #>  2 B_KLBSL_PNMN   R     I   #>  3 B_ESCHR_COLI   R     S   #>  4 B_ESCHR_COLI   S     I   #>  5 B_ESCHR_COLI   S     S   #>  6 B_STPHY_AURS   R     S   #>  7 B_ESCHR_COLI   R     S   #>  8 B_ESCHR_COLI   S     S   #>  9 B_STPHY_AURS   S     S   #> 10 B_ESCHR_COLI   S     S   #> # ℹ 2,720 more rows  our_data_1st %>%   select(bacteria, where(is.sir)) #> # A tibble: 2,730 × 5 #>    bacteria     AMX   AMC   CIP   GEN   #>    <mo>         <sir> <sir> <sir> <sir> #>  1 B_ESCHR_COLI   R     I     S     S   #>  2 B_KLBSL_PNMN   R     I     S     S   #>  3 B_ESCHR_COLI   R     S     S     S   #>  4 B_ESCHR_COLI   S     I     S     S   #>  5 B_ESCHR_COLI   S     S     S     S   #>  6 B_STPHY_AURS   R     S     R     S   #>  7 B_ESCHR_COLI   R     S     S     S   #>  8 B_ESCHR_COLI   S     S     S     S   #>  9 B_STPHY_AURS   S     S     S     S   #> 10 B_ESCHR_COLI   S     S     S     S   #> # ℹ 2,720 more rows  # filtering using AB selectors is also possible: our_data_1st %>%   filter(any(aminoglycosides() == \"R\")) #> ℹ For `aminoglycosides()` using column 'GEN' (gentamicin) #> # A tibble: 991 × 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  #> # ℹ 981 more rows  our_data_1st %>%   filter(all(betalactams() == \"R\")) #> ℹ For `betalactams()` using columns 'AMX' (amoxicillin) and 'AMC' #>   (amoxicillin/clavulanic acid) #> # A tibble: 461 × 9 #>    patient_id hospital date       bacteria     AMX   AMC   CIP   GEN   first #>    <chr>      <chr>    <date>     <mo>         <sir> <sir> <sir> <sir> <lgl> #>  1 M7         A        2013-07-22 B_STRPT_PNMN   R     R     S     S   TRUE  #>  2 R10        A        2013-12-20 B_STPHY_AURS   R     R     S     S   TRUE  #>  3 R7         A        2015-10-25 B_STPHY_AURS   R     R     S     S   TRUE  #>  4 R8         A        2019-10-25 B_STPHY_AURS   R     R     S     S   TRUE  #>  5 B6         A        2016-11-20 B_ESCHR_COLI   R     R     R     R   TRUE  #>  6 I7         A        2015-08-19 B_ESCHR_COLI   R     R     S     S   TRUE  #>  7 N3         A        2014-12-29 B_STRPT_PNMN   R     R     R     S   TRUE  #>  8 Q2         A        2019-09-22 B_ESCHR_COLI   R     R     S     S   TRUE  #>  9 X7         A        2011-03-20 B_ESCHR_COLI   R     R     S     R   TRUE  #> 10 V1         A        2018-08-07 B_STPHY_AURS   R     R     S     S   TRUE  #> # ℹ 451 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: 461 × 9 #>    patient_id hospital date       bacteria     AMX   AMC   CIP   GEN   first #>    <chr>      <chr>    <date>     <mo>         <sir> <sir> <sir> <sir> <lgl> #>  1 M7         A        2013-07-22 B_STRPT_PNMN   R     R     S     S   TRUE  #>  2 R10        A        2013-12-20 B_STPHY_AURS   R     R     S     S   TRUE  #>  3 R7         A        2015-10-25 B_STPHY_AURS   R     R     S     S   TRUE  #>  4 R8         A        2019-10-25 B_STPHY_AURS   R     R     S     S   TRUE  #>  5 B6         A        2016-11-20 B_ESCHR_COLI   R     R     R     R   TRUE  #>  6 I7         A        2015-08-19 B_ESCHR_COLI   R     R     S     S   TRUE  #>  7 N3         A        2014-12-29 B_STRPT_PNMN   R     R     R     S   TRUE  #>  8 Q2         A        2019-09-22 B_ESCHR_COLI   R     R     S     S   TRUE  #>  9 X7         A        2011-03-20 B_ESCHR_COLI   R     R     S     R   TRUE  #> 10 V1         A        2018-08-07 B_STPHY_AURS   R     R     S     S   TRUE  #> # ℹ 451 more rows"},{"path":"https://amr-for-r.org/articles/AMR.html","id":"generate-antibiograms","dir":"Articles","previous_headings":"Analysing the data","what":"Generate antibiograms","title":"Conduct AMR data analysis","text":"Since AMR v2.0 (March 2023), easy create different types antibiograms, support 20 different languages. four antibiogram types, proposed Klinker et al. (2021, DOI 10.1177/20499361211011373), supported new antibiogram() function: Traditional Antibiogram (TA) e.g, susceptibility Pseudomonas aeruginosa piperacillin/tazobactam (TZP) Combination Antibiogram (CA) e.g, sdditional susceptibility Pseudomonas aeruginosa TZP + tobramycin versus TZP alone Syndromic Antibiogram (SA) e.g, susceptibility Pseudomonas aeruginosa TZP among respiratory specimens (obtained among ICU patients ) Weighted-Incidence Syndromic Combination Antibiogram (WISCA) e.g, susceptibility Pseudomonas aeruginosa TZP among respiratory specimens (obtained among ICU patients ) male patients age >=65 years heart failure section, show use antibiogram() function create antibiogram types. starters, included example_isolates data set looks like:","code":"example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI   R     NA    NA    NA  #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI   R     NA    NA    NA  #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS   R     NA    S     R   #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS   R     NA    S     R   #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR   R     NA    S     NA  #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …"},{"path":"https://amr-for-r.org/articles/AMR.html","id":"traditional-antibiogram","dir":"Articles","previous_headings":"Analysing the data > Generate antibiograms","what":"Traditional Antibiogram","title":"Conduct AMR data analysis","text":"create traditional antibiogram, simply state antibiotics used. antibiotics argument antibiogram() function supports (combination) previously mentioned antibiotic class selectors: Notice antibiogram() function automatically prints right format using Quarto R Markdown (page), even applies italics taxonomic names (using italicise_taxonomy() internally). also uses language OS either English, Arabic, Bengali, Chinese, Czech, Danish, Dutch, Finnish, French, German, Greek, Hindi, Indonesian, Italian, Japanese, Korean, Norwegian, Polish, Portuguese, Romanian, Russian, Spanish, Swahili, Swedish, Turkish, Ukrainian, Urdu, Vietnamese. next example, force language Spanish using language argument:","code":"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) antibiogram(example_isolates,             mo_transform = \"gramstain\",             antibiotics = aminoglycosides(),             ab_transform = \"name\",             language = \"es\") #> ℹ For `aminoglycosides()` using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin)"},{"path":"https://amr-for-r.org/articles/AMR.html","id":"combined-antibiogram","dir":"Articles","previous_headings":"Analysing the data > Generate antibiograms","what":"Combined Antibiogram","title":"Conduct AMR data analysis","text":"create combined antibiogram, use antibiotic codes names plus + character like :","code":"combined_ab <- antibiogram(example_isolates,                            antibiotics = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\"),                            ab_transform = NULL) combined_ab"},{"path":"https://amr-for-r.org/articles/AMR.html","id":"syndromic-antibiogram","dir":"Articles","previous_headings":"Analysing the data > Generate antibiograms","what":"Syndromic Antibiogram","title":"Conduct AMR data analysis","text":"create syndromic antibiogram, syndromic_group argument must used. can column data, e.g. ifelse() calculations based certain columns:","code":"antibiogram(example_isolates,             antibiotics = c(aminoglycosides(), carbapenems()),             syndromic_group = \"ward\") #> ℹ For `aminoglycosides()` using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> ℹ For `carbapenems()` using columns 'IPM' (imipenem) and 'MEM' (meropenem)"},{"path":"https://amr-for-r.org/articles/AMR.html","id":"weighted-incidence-syndromic-combination-antibiogram-wisca","dir":"Articles","previous_headings":"Analysing the data > Generate antibiograms","what":"Weighted-Incidence Syndromic Combination Antibiogram (WISCA)","title":"Conduct AMR data analysis","text":"create Weighted-Incidence Syndromic Combination Antibiogram (WISCA), simply set wisca = TRUE antibiogram() function, use dedicated wisca() function. Unlike traditional antibiograms, WISCA provides syndrome-based susceptibility estimates, weighted pathogen incidence antimicrobial susceptibility patterns. WISCA uses Bayesian decision model integrate data multiple pathogens, improving empirical therapy guidance, especially low-incidence infections. pathogen-agnostic, meaning results syndrome-based rather stratified microorganism. reliable results, ensure data includes first isolates (use first_isolate()) consider filtering top n species (use top_n_microorganisms()), WISCA outcomes meaningful based robust incidence estimates. patient- syndrome-specific WISCA, run function grouped tibble, .e., using group_by() first:","code":"example_isolates %>%   wisca(antibiotics = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\"),         minimum = 10) # Recommended threshold: ≥30 example_isolates %>%   top_n_microorganisms(n = 10) %>%   group_by(age_group = age_groups(age, c(25, 50, 75)),            gender) %>%   wisca(antibiotics = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\"))"},{"path":"https://amr-for-r.org/articles/AMR.html","id":"plotting-antibiograms","dir":"Articles","previous_headings":"Analysing the data > Generate antibiograms","what":"Plotting antibiograms","title":"Conduct AMR data analysis","text":"Antibiograms can plotted using autoplot() ggplot2 packages, since AMR package provides extension function:  calculate antimicrobial resistance sensible way, also correcting results, use resistance() susceptibility() functions.","code":"autoplot(combined_ab)"},{"path":"https://amr-for-r.org/articles/AMR.html","id":"resistance-percentages","dir":"Articles","previous_headings":"Analysing the data","what":"Resistance percentages","title":"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:","code":"our_data_1st %>% resistance(AMX) #> [1] 0.4294272 our_data_1st %>%   group_by(hospital) %>%   summarise(amoxicillin = resistance(AMX)) #> # A tibble: 3 × 2 #>   hospital amoxicillin #>   <chr>          <dbl> #> 1 A              0.341 #> 2 B              0.586 #> 3 C              0.370"},{"path":"https://amr-for-r.org/articles/AMR.html","id":"interpreting-mic-and-disk-diffusion-values","dir":"Articles","previous_headings":"Analysing the data","what":"Interpreting MIC and Disk Diffusion Values","title":"Conduct AMR data analysis","text":"Minimal inhibitory concentration (MIC) values disk diffusion diameters can interpreted clinical breakpoints (SIR) using .sir(). ’s example randomly generated MIC values Klebsiella pneumoniae ciprofloxacin: allows direct interpretation according EUCAST CLSI breakpoints, facilitating automated AMR data processing.","code":"set.seed(123) mic_values <- random_mic(100) sir_values <- as.sir(mic_values, mo = \"K. pneumoniae\", ab = \"cipro\", guideline = \"EUCAST 2024\")  my_data <- tibble(MIC = mic_values, SIR = sir_values) my_data #> # A tibble: 100 × 2 #>         MIC SIR   #>       <mic> <sir> #>  1 <=0.0001   S   #>  2   0.0160   S   #>  3 >=8.0000   R   #>  4   0.0320   S   #>  5   0.0080   S   #>  6  64.0000   R   #>  7   0.0080   S   #>  8   0.1250   S   #>  9   0.0320   S   #> 10   0.0002   S   #> # ℹ 90 more rows"},{"path":"https://amr-for-r.org/articles/AMR.html","id":"plotting-mic-and-sir-interpretations","dir":"Articles","previous_headings":"Analysing the data","what":"Plotting MIC and SIR Interpretations","title":"Conduct AMR data analysis","text":"can visualise MIC distributions SIR interpretations using ggplot2, using new scale_y_mic() y-axis scale_colour_sir() colour-code SIR categories.  plot provides intuitive way assess susceptibility patterns across different groups incorporating clinical breakpoints. straightforward less manual approach, ggplot2’s function autoplot() extended package directly plot MIC disk diffusion values:   Author: Dr. Matthijs Berends, 23rd Feb 2025","code":"# add a group my_data$group <- rep(c(\"A\", \"B\", \"C\", \"D\"), each = 25)   ggplot(my_data,        aes(x = group, y = MIC, colour = SIR)) +   geom_jitter(width = 0.2, size = 2) +   geom_boxplot(fill = NA, colour = \"grey40\") +   scale_y_mic() +   scale_colour_sir() +   labs(title = \"MIC Distribution and SIR Interpretation\",        x = \"Sample Groups\",        y = \"MIC (mg/L)\") autoplot(mic_values) # by providing `mo` and `ab`, colours will indicate the SIR interpretation: autoplot(mic_values, mo = \"K. pneumoniae\", ab = \"cipro\", guideline = \"EUCAST 2024\")"},{"path":"https://amr-for-r.org/articles/AMR_for_Python.html","id":"introduction","dir":"Articles","previous_headings":"","what":"Introduction","title":"AMR for Python","text":"AMR package R powerful tool antimicrobial resistance (AMR) analysis. provides extensive features handling microbial antimicrobial data. However, work primarily Python, now intuitive option available: AMR Python package. Python package wrapper around AMR R package. uses rpy2 package internally. Despite need R installed, Python users can now easily work AMR data directly Python code.","code":""},{"path":"https://amr-for-r.org/articles/AMR_for_Python.html","id":"prerequisites","dir":"Articles","previous_headings":"","what":"Prerequisites","title":"AMR for Python","text":"package tested virtual environment (venv). can set environment running: can activate environment, venv ready work .","code":"# linux and macOS: python -m venv /path/to/new/virtual/environment  # Windows: python -m venv C:\\path\\to\\new\\virtual\\environment"},{"path":"https://amr-for-r.org/articles/AMR_for_Python.html","id":"install-amr","dir":"Articles","previous_headings":"","what":"Install AMR","title":"AMR for Python","text":"Since Python package available official Python Package Index, can just run: Make sure R installed. need install AMR R package, installed automatically. Linux: macOS (using Homebrew): Windows, visit CRAN download page download install R.","code":"pip install AMR # Ubuntu / Debian sudo apt install r-base # Fedora: sudo dnf install R # CentOS/RHEL sudo yum install R brew install r"},{"path":[]},{"path":"https://amr-for-r.org/articles/AMR_for_Python.html","id":"cleaning-taxonomy","dir":"Articles","previous_headings":"Examples of Usage","what":"Cleaning Taxonomy","title":"AMR for Python","text":"’s example demonstrates clean microorganism drug names using AMR Python package:","code":"import pandas as pd import AMR  # Sample data data = {     \"MOs\": ['E. coli', 'ESCCOL', 'esco', 'Esche coli'],     \"Drug\": ['Cipro', 'CIP', 'J01MA02', 'Ciproxin'] } df = pd.DataFrame(data)  # Use AMR functions to clean microorganism and drug names df['MO_clean'] = AMR.mo_name(df['MOs']) df['Drug_clean'] = AMR.ab_name(df['Drug'])  # Display the results print(df)"},{"path":"https://amr-for-r.org/articles/AMR_for_Python.html","id":"explanation","dir":"Articles","previous_headings":"Examples of Usage > Cleaning Taxonomy","what":"Explanation","title":"AMR for Python","text":"mo_name: function standardises microorganism names. , different variations Escherichia coli (“E. coli”, “ESCCOL”, “esco”, “Esche coli”) converted correct, standardised form, “Escherichia coli”. ab_name: Similarly, function standardises antimicrobial names. different representations ciprofloxacin (e.g., “Cipro”, “CIP”, “J01MA02”, “Ciproxin”) converted standard name, “Ciprofloxacin”.","code":""},{"path":"https://amr-for-r.org/articles/AMR_for_Python.html","id":"calculating-amr","dir":"Articles","previous_headings":"Examples of Usage","what":"Calculating AMR","title":"AMR for Python","text":"","code":"import AMR import pandas as pd  df = AMR.example_isolates result = AMR.resistance(df[\"AMX\"]) print(result) [0.59555556]"},{"path":"https://amr-for-r.org/articles/AMR_for_Python.html","id":"generating-antibiograms","dir":"Articles","previous_headings":"Examples of Usage","what":"Generating Antibiograms","title":"AMR for Python","text":"One core functions AMR package generating antibiogram, table summarises antimicrobial susceptibility bacterial isolates. ’s can generate antibiogram Python: example, generate antibiogram selecting various antibiotics.","code":"result2a = AMR.antibiogram(df[[\"mo\", \"AMX\", \"CIP\", \"TZP\"]]) print(result2a) result2b = AMR.antibiogram(df[[\"mo\", \"AMX\", \"CIP\", \"TZP\"]], mo_transform = \"gramstain\") print(result2b)"},{"path":"https://amr-for-r.org/articles/AMR_for_Python.html","id":"taxonomic-data-sets-now-in-python","dir":"Articles","previous_headings":"Examples of Usage","what":"Taxonomic Data Sets Now in Python!","title":"AMR for Python","text":"Python user, might like important data sets AMR R package, microorganisms, antimicrobials, clinical_breakpoints, example_isolates, now available regular Python data frames:","code":"AMR.microorganisms AMR.antimicrobials"},{"path":"https://amr-for-r.org/articles/AMR_for_Python.html","id":"conclusion","dir":"Articles","previous_headings":"","what":"Conclusion","title":"AMR for Python","text":"AMR Python package, Python users can now effortlessly call R functions AMR R package. eliminates need complex rpy2 configurations provides clean, easy--use interface antimicrobial resistance analysis. examples provided demonstrate can applied typical workflows, standardising microorganism antimicrobial names calculating resistance. just running import AMR, users can seamlessly integrate robust features R AMR package Python workflows. Whether ’re cleaning data analysing resistance patterns, AMR Python package makes easy work AMR data Python.","code":""},{"path":"https://amr-for-r.org/articles/AMR_with_tidymodels.html","id":"example-1-using-antimicrobial-selectors","dir":"Articles","previous_headings":"","what":"Example 1: Using Antimicrobial Selectors","title":"AMR with tidymodels","text":"leveraging power tidymodels AMR package, ’ll build reproducible machine learning workflow predict Gramstain microorganism two important antibiotic classes: aminoglycosides beta-lactams.","code":""},{"path":"https://amr-for-r.org/articles/AMR_with_tidymodels.html","id":"objective","dir":"Articles","previous_headings":"Example 1: Using Antimicrobial Selectors","what":"Objective","title":"AMR with tidymodels","text":"goal build predictive model using tidymodels framework determine Gramstain microorganism based microbial data. : Preprocess data using selector functions aminoglycosides() betalactams(). Define logistic regression model prediction. Use structured tidymodels workflow preprocess, train, evaluate model.","code":""},{"path":"https://amr-for-r.org/articles/AMR_with_tidymodels.html","id":"data-preparation","dir":"Articles","previous_headings":"Example 1: Using Antimicrobial Selectors","what":"Data Preparation","title":"AMR with tidymodels","text":"begin loading required libraries preparing example_isolates dataset AMR package. Prepare data: Explanation: aminoglycosides() betalactams() dynamically select columns antimicrobials classes. drop_na() ensures model receives complete cases training.","code":"# Load required libraries library(AMR)          # For AMR data analysis library(tidymodels)   # For machine learning workflows, and data manipulation (dplyr, tidyr, ...) # Your data could look like this: example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI   R     NA    NA    NA  #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI   R     NA    NA    NA  #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS   R     NA    S     R   #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS   R     NA    S     R   #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR   R     NA    S     NA  #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  # Select relevant columns for prediction data <- example_isolates %>%   # select AB results dynamically   select(mo, aminoglycosides(), betalactams()) %>%   # replace NAs with NI (not-interpretable)    mutate(across(where(is.sir),                  ~replace_na(.x, \"NI\")),           # make factors of SIR columns           across(where(is.sir),                  as.integer),           # get Gramstain of microorganisms           mo = as.factor(mo_gramstain(mo))) %>%   # drop NAs - the ones without a Gramstain (fungi, etc.)   drop_na() #> ℹ For `aminoglycosides()` using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> ℹ For `betalactams()` using columns 'PEN' (benzylpenicillin), 'OXA' #>   (oxacillin), 'FLC' (flucloxacillin), 'AMX' (amoxicillin), 'AMC' #>   (amoxicillin/clavulanic acid), 'AMP' (ampicillin), 'TZP' #>   (piperacillin/tazobactam), 'CZO' (cefazolin), 'FEP' (cefepime), 'CXM' #>   (cefuroxime), 'FOX' (cefoxitin), 'CTX' (cefotaxime), 'CAZ' (ceftazidime), #>   'CRO' (ceftriaxone), 'IPM' (imipenem), and 'MEM' (meropenem)"},{"path":"https://amr-for-r.org/articles/AMR_with_tidymodels.html","id":"defining-the-workflow","dir":"Articles","previous_headings":"Example 1: Using Antimicrobial Selectors","what":"Defining the Workflow","title":"AMR with tidymodels","text":"now define tidymodels workflow, consists three steps: preprocessing, model specification, fitting.","code":""},{"path":"https://amr-for-r.org/articles/AMR_with_tidymodels.html","id":"preprocessing-with-a-recipe","dir":"Articles","previous_headings":"Example 1: Using Antimicrobial Selectors > Defining the Workflow","what":"1. Preprocessing with a Recipe","title":"AMR with tidymodels","text":"create recipe preprocess data modelling. recipe includes least one preprocessing operation, like step_corr(), necessary parameters can estimated training set using prep(): Explanation: recipe(mo ~ ., data = data) take mo column outcome columns predictors. step_corr() removes predictors (.e., antibiotic columns) higher correlation 90%. Notice recipe contains just antimicrobial selector functions - need define columns specifically. preparation (retrieved prep()) can see columns variables ‘AMX’ ‘CTX’ removed correlate much existing, variables.","code":"# Define the recipe for data preprocessing resistance_recipe <- recipe(mo ~ ., data = data) %>%   step_corr(c(aminoglycosides(), betalactams()), threshold = 0.9) resistance_recipe #>  #> ── Recipe ────────────────────────────────────────────────────────────────────── #>  #> ── Inputs #> Number of variables by role #> outcome:    1 #> predictor: 20 #>  #> ── Operations #> • Correlation filter on: c(aminoglycosides(), betalactams()) prep(resistance_recipe) #> ℹ For `aminoglycosides()` using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> ℹ For `betalactams()` using columns 'PEN' (benzylpenicillin), 'OXA' #>   (oxacillin), 'FLC' (flucloxacillin), 'AMX' (amoxicillin), 'AMC' #>   (amoxicillin/clavulanic acid), 'AMP' (ampicillin), 'TZP' #>   (piperacillin/tazobactam), 'CZO' (cefazolin), 'FEP' (cefepime), 'CXM' #>   (cefuroxime), 'FOX' (cefoxitin), 'CTX' (cefotaxime), 'CAZ' (ceftazidime), #>   'CRO' (ceftriaxone), 'IPM' (imipenem), and 'MEM' (meropenem) #>  #> ── Recipe ────────────────────────────────────────────────────────────────────── #>  #> ── Inputs #> Number of variables by role #> outcome:    1 #> predictor: 20 #>  #> ── Training information #> Training data contained 1968 data points and no incomplete rows. #>  #> ── Operations #> • Correlation filter on: AMX CTX | Trained"},{"path":"https://amr-for-r.org/articles/AMR_with_tidymodels.html","id":"specifying-the-model","dir":"Articles","previous_headings":"Example 1: Using Antimicrobial Selectors > Defining the Workflow","what":"2. Specifying the Model","title":"AMR with tidymodels","text":"define logistic regression model since resistance prediction binary classification task. Explanation: logistic_reg() sets logistic regression model. set_engine(\"glm\") specifies use R’s built-GLM engine.","code":"# Specify a logistic regression model logistic_model <- logistic_reg() %>%   set_engine(\"glm\") # Use the Generalised Linear Model engine logistic_model #> Logistic Regression Model Specification (classification) #>  #> Computational engine: glm"},{"path":"https://amr-for-r.org/articles/AMR_with_tidymodels.html","id":"building-the-workflow","dir":"Articles","previous_headings":"Example 1: Using Antimicrobial Selectors > Defining the Workflow","what":"3. Building the Workflow","title":"AMR with tidymodels","text":"bundle recipe model together workflow, organises entire modelling process.","code":"# Combine the recipe and model into a workflow resistance_workflow <- workflow() %>%   add_recipe(resistance_recipe) %>% # Add the preprocessing recipe   add_model(logistic_model) # Add the logistic regression model resistance_workflow #> ══ Workflow ════════════════════════════════════════════════════════════════════ #> Preprocessor: Recipe #> Model: logistic_reg() #>  #> ── Preprocessor ──────────────────────────────────────────────────────────────── #> 1 Recipe Step #>  #> • step_corr() #>  #> ── Model ─────────────────────────────────────────────────────────────────────── #> Logistic Regression Model Specification (classification) #>  #> Computational engine: glm"},{"path":"https://amr-for-r.org/articles/AMR_with_tidymodels.html","id":"training-and-evaluating-the-model","dir":"Articles","previous_headings":"Example 1: Using Antimicrobial Selectors","what":"Training and Evaluating the Model","title":"AMR with tidymodels","text":"train model, split data training testing sets. , fit workflow training set evaluate performance. Explanation: initial_split() splits data training testing sets. fit() trains workflow training set. Notice fit(), antimicrobial selector functions internally called . training, functions called since stored recipe. Next, evaluate model testing data. Explanation: predict() generates predictions testing set. metrics() computes evaluation metrics like accuracy kappa. appears can predict Gram stain 99.5% accuracy based AMR results aminoglycosides beta-lactam antibiotics. ROC curve looks like :","code":"# Split data into training and testing sets set.seed(123) # For reproducibility data_split <- initial_split(data, prop = 0.8) # 80% training, 20% testing training_data <- training(data_split) # Training set testing_data <- testing(data_split)   # Testing set  # Fit the workflow to the training data fitted_workflow <- resistance_workflow %>%   fit(training_data) # Train the model # Make predictions on the testing set predictions <- fitted_workflow %>%   predict(testing_data)                # Generate predictions probabilities <- fitted_workflow %>%   predict(testing_data, type = \"prob\") # Generate probabilities  predictions <- predictions %>%   bind_cols(probabilities) %>%   bind_cols(testing_data) # Combine with true labels  predictions #> # A tibble: 394 × 24 #>    .pred_class   `.pred_Gram-negative` `.pred_Gram-positive` mo        GEN   TOB #>    <fct>                         <dbl>                 <dbl> <fct>   <int> <int> #>  1 Gram-positive              1.07e- 1             8.93 e- 1 Gram-p…     5     5 #>  2 Gram-positive              3.17e- 8             1.000e+ 0 Gram-p…     5     1 #>  3 Gram-negative              9.99e- 1             1.42 e- 3 Gram-n…     5     5 #>  4 Gram-positive              2.22e-16             1    e+ 0 Gram-p…     5     5 #>  5 Gram-negative              9.46e- 1             5.42 e- 2 Gram-n…     5     5 #>  6 Gram-positive              1.07e- 1             8.93 e- 1 Gram-p…     5     5 #>  7 Gram-positive              2.22e-16             1    e+ 0 Gram-p…     1     5 #>  8 Gram-positive              2.22e-16             1    e+ 0 Gram-p…     4     4 #>  9 Gram-negative              1   e+ 0             2.22 e-16 Gram-n…     1     1 #> 10 Gram-positive              6.05e-11             1.000e+ 0 Gram-p…     4     4 #> # ℹ 384 more rows #> # ℹ 18 more variables: AMK <int>, KAN <int>, PEN <int>, OXA <int>, FLC <int>, #> #   AMX <int>, AMC <int>, AMP <int>, TZP <int>, CZO <int>, FEP <int>, #> #   CXM <int>, FOX <int>, CTX <int>, CAZ <int>, CRO <int>, IPM <int>, MEM <int>  # Evaluate model performance metrics <- predictions %>%   metrics(truth = mo, estimate = .pred_class) # Calculate performance metrics  metrics #> # A tibble: 2 × 3 #>   .metric  .estimator .estimate #>   <chr>    <chr>          <dbl> #> 1 accuracy binary         0.995 #> 2 kap      binary         0.989   # To assess some other model properties, you can make our own `metrics()` function our_metrics <- metric_set(accuracy, kap, ppv, npv) # add Positive Predictive Value and Negative Predictive Value metrics2 <- predictions %>%   our_metrics(truth = mo, estimate = .pred_class) # run again on our `our_metrics()` function  metrics2 #> # A tibble: 4 × 3 #>   .metric  .estimator .estimate #>   <chr>    <chr>          <dbl> #> 1 accuracy binary         0.995 #> 2 kap      binary         0.989 #> 3 ppv      binary         0.987 #> 4 npv      binary         1 predictions %>%   roc_curve(mo, `.pred_Gram-negative`) %>%   autoplot()"},{"path":"https://amr-for-r.org/articles/AMR_with_tidymodels.html","id":"conclusion","dir":"Articles","previous_headings":"Example 1: Using Antimicrobial Selectors","what":"Conclusion","title":"AMR with tidymodels","text":"example, demonstrated build machine learning pipeline tidymodels framework AMR package. combining selector functions like aminoglycosides() betalactams() tidymodels, efficiently prepared data, trained model, evaluated performance. workflow extensible antimicrobial classes resistance patterns, empowering users analyse AMR data systematically reproducibly.","code":""},{"path":"https://amr-for-r.org/articles/AMR_with_tidymodels.html","id":"example-2-predicting-esbl-presence-using-raw-mics","dir":"Articles","previous_headings":"","what":"Example 2: Predicting ESBL Presence Using Raw MICs","title":"AMR with tidymodels","text":"second example, demonstrate use <mic> columns directly tidymodels workflows using AMR-specific recipe steps. includes transformation log2 scale using step_mic_log2(), prepares MIC values use classification models. approach idea formed basis publication DOI: 10.3389/fmicb.2025.1582703 model presence extended-spectrum beta-lactamases (ESBL) based MIC values.","code":""},{"path":"https://amr-for-r.org/articles/AMR_with_tidymodels.html","id":"objective-1","dir":"Articles","previous_headings":"Example 2: Predicting ESBL Presence Using Raw MICs","what":"Objective","title":"AMR with tidymodels","text":"goal : Use raw MIC values predict whether bacterial isolate produces ESBL. Apply AMR-aware preprocessing tidymodels recipe. Train classification model evaluate predictive performance.","code":""},{"path":"https://amr-for-r.org/articles/AMR_with_tidymodels.html","id":"data-preparation-1","dir":"Articles","previous_headings":"Example 2: Predicting ESBL Presence Using Raw MICs","what":"Data Preparation","title":"AMR with tidymodels","text":"use esbl_isolates dataset comes AMR package. Explanation: esbl_isolates: Contains MIC test results ESBL status isolate. mutate(esbl = ...): Converts target column ordered factor classification.","code":"# Load required libraries library(AMR) library(tidymodels)  # View the esbl_isolates data set esbl_isolates #> # A tibble: 500 × 19 #>    esbl  genus   AMC   AMP   TZP   CXM   FOX   CTX   CAZ   GEN   TOB   TMP   SXT #>    <lgl> <chr> <mic> <mic> <mic> <mic> <mic> <mic> <mic> <mic> <mic> <mic> <mic> #>  1 FALSE Esch…    32    32     4    64    64  8.00  8.00     1     1  16.0    20 #>  2 FALSE Esch…    32    32     4    64    64  4.00  8.00     1     1  16.0   320 #>  3 FALSE Esch…     4     2    64     8     4  8.00  0.12    16    16   0.5    20 #>  4 FALSE Kleb…    32    32    16    64    64  8.00  8.00     1     1   0.5    20 #>  5 FALSE Esch…    32    32     4     4     4  0.25  2.00     1     1  16.0   320 #>  6 FALSE Citr…    32    32    16    64    64 64.00 32.00     1     1   0.5    20 #>  7 FALSE Morg…    32    32     4    64    64 16.00  2.00     1     1   0.5    20 #>  8 FALSE Prot…    16    32     4     1     4  8.00  0.12     1     1  16.0   320 #>  9 FALSE Ente…    32    32     8    64    64 32.00  4.00     1     1   0.5    20 #> 10 FALSE Citr…    32    32    32    64    64  8.00 64.00     1     1  16.0   320 #> # ℹ 490 more rows #> # ℹ 6 more variables: NIT <mic>, FOS <mic>, CIP <mic>, IPM <mic>, MEM <mic>, #> #   COL <mic>  # Prepare a binary outcome and convert to ordered factor data <- esbl_isolates %>%   mutate(esbl = factor(esbl, levels = c(FALSE, TRUE), ordered = TRUE))"},{"path":[]},{"path":"https://amr-for-r.org/articles/AMR_with_tidymodels.html","id":"preprocessing-with-a-recipe-1","dir":"Articles","previous_headings":"Example 2: Predicting ESBL Presence Using Raw MICs > Defining the Workflow","what":"1. Preprocessing with a Recipe","title":"AMR with tidymodels","text":"use step_mic_log2() function log2-transform MIC values, ensuring MICs numeric properly scaled. MIC predictors can easily agnostically selected using new all_mic_predictors(): Explanation: remove_role(): Removes irrelevant variables like genus. step_mic_log2(): Applies log2(.numeric(...)) MIC predictors one go. prep(): Finalises recipe based training data.","code":"# Split into training and testing sets set.seed(123) split <- initial_split(data) training_data <- training(split) testing_data <- testing(split)  # Define the recipe mic_recipe <- recipe(esbl ~ ., data = training_data) %>%   remove_role(genus, old_role = \"predictor\") %>%  # Remove non-informative variable   step_mic_log2(all_mic_predictors())             # Log2 transform all MIC predictors  prep(mic_recipe) #>  #> ── Recipe ────────────────────────────────────────────────────────────────────── #>  #> ── Inputs #> Number of variables by role #> outcome:          1 #> predictor:       17 #> undeclared role:  1 #>  #> ── Training information #> Training data contained 375 data points and no incomplete rows. #>  #> ── Operations #> • Log2 transformation of MIC columns: AMC, AMP, TZP, CXM, FOX, ... | Trained"},{"path":"https://amr-for-r.org/articles/AMR_with_tidymodels.html","id":"specifying-the-model-1","dir":"Articles","previous_headings":"Example 2: Predicting ESBL Presence Using Raw MICs > Defining the Workflow","what":"2. Specifying the Model","title":"AMR with tidymodels","text":"use simple logistic regression model ESBL presence, though recent models xgboost (link parsnip manual) much precise. Explanation: logistic_reg(): Specifies binary classification model. set_engine(\"glm\"): Uses base R GLM engine.","code":"# Define the model model <- logistic_reg(mode = \"classification\") %>%   set_engine(\"glm\")  model #> Logistic Regression Model Specification (classification) #>  #> Computational engine: glm"},{"path":"https://amr-for-r.org/articles/AMR_with_tidymodels.html","id":"building-the-workflow-1","dir":"Articles","previous_headings":"Example 2: Predicting ESBL Presence Using Raw MICs > Defining the Workflow","what":"3. Building the Workflow","title":"AMR with tidymodels","text":"","code":"# Create workflow workflow_model <- workflow() %>%   add_recipe(mic_recipe) %>%   add_model(model)  workflow_model #> ══ Workflow ════════════════════════════════════════════════════════════════════ #> Preprocessor: Recipe #> Model: logistic_reg() #>  #> ── Preprocessor ──────────────────────────────────────────────────────────────── #> 1 Recipe Step #>  #> • step_mic_log2() #>  #> ── Model ─────────────────────────────────────────────────────────────────────── #> Logistic Regression Model Specification (classification) #>  #> Computational engine: glm"},{"path":"https://amr-for-r.org/articles/AMR_with_tidymodels.html","id":"training-and-evaluating-the-model-1","dir":"Articles","previous_headings":"Example 2: Predicting ESBL Presence Using Raw MICs","what":"Training and Evaluating the Model","title":"AMR with tidymodels","text":"Explanation: fit(): Trains model processed training data. predict(): Produces predictions unseen test data. metric_set(): Allows evaluating multiple classification metrics. make our_metrics become function can use check predictions . appears can predict ESBL gene presence positive predictive value (PPV) 92.1% negative predictive value (NPV) 91.9% using simplistic logistic regression model.","code":"# Fit the model fitted <- fit(workflow_model, training_data)  # Generate predictions predictions <- predict(fitted, testing_data) %>%   bind_cols(predict(fitted, testing_data, type = \"prob\")) %>% # add probabilities   bind_cols(testing_data)  # Evaluate model performance our_metrics <- metric_set(accuracy, recall, precision, sensitivity, specificity, ppv, npv) metrics <- our_metrics(predictions, truth = esbl, estimate = .pred_class)  metrics #> # A tibble: 7 × 3 #>   .metric     .estimator .estimate #>   <chr>       <chr>          <dbl> #> 1 accuracy    binary         0.92  #> 2 recall      binary         0.921 #> 3 precision   binary         0.921 #> 4 sensitivity binary         0.921 #> 5 specificity binary         0.919 #> 6 ppv         binary         0.921 #> 7 npv         binary         0.919"},{"path":"https://amr-for-r.org/articles/AMR_with_tidymodels.html","id":"visualising-predictions","dir":"Articles","previous_headings":"Example 2: Predicting ESBL Presence Using Raw MICs","what":"Visualising Predictions","title":"AMR with tidymodels","text":"can visualise predictions comparing predicted actual ESBL status.  plot certainties - certain actual predictions?","code":"library(ggplot2)  ggplot(predictions, aes(x = esbl, fill = .pred_class)) +   geom_bar(position = \"stack\") +   labs(title = \"Predicted vs Actual ESBL Status\",        x = \"Actual ESBL\",        y = \"Count\") +   theme_minimal() predictions %>%   mutate(certainty = ifelse(.pred_class == \"FALSE\",                             .pred_FALSE,                             .pred_TRUE),          correct = ifelse(esbl == .pred_class, \"Right\", \"Wrong\")) %>%   ggplot(aes(x = seq_len(nrow(predictions)),              y = certainty,              colour = correct)) +   scale_colour_manual(values = c(Right = \"green3\", Wrong = \"red2\"),                       name = \"Correct?\") +   geom_point() +   scale_y_continuous(labels = function(x) paste0(x * 100, \"%\"),                      limits = c(0.5, 1)) +   theme_minimal()"},{"path":"https://amr-for-r.org/articles/AMR_with_tidymodels.html","id":"conclusion-1","dir":"Articles","previous_headings":"Example 2: Predicting ESBL Presence Using Raw MICs","what":"Conclusion","title":"AMR with tidymodels","text":"example, showcased new AMR-specific recipe steps simplify working <mic> columns tidymodels. step_mic_log2() transformation converts MICs (without operators) log2-transformed numerics, improving compatibility classification models. pipeline enables realistic, reproducible, interpretable modelling antimicrobial resistance data.","code":""},{"path":"https://amr-for-r.org/articles/AMR_with_tidymodels.html","id":"example-3-predicting-amr-over-time","dir":"Articles","previous_headings":"","what":"Example 3: Predicting AMR Over Time","title":"AMR with tidymodels","text":"third example, aim predict antimicrobial resistance (AMR) trends time using tidymodels. model resistance three antibiotics (amoxicillin AMX, amoxicillin-clavulanic acid AMC, ciprofloxacin CIP), based historical data grouped year hospital ward.","code":""},{"path":"https://amr-for-r.org/articles/AMR_with_tidymodels.html","id":"objective-2","dir":"Articles","previous_headings":"Example 3: Predicting AMR Over Time","what":"Objective","title":"AMR with tidymodels","text":"goal : Prepare dataset aggregating resistance data time. Define regression model predict AMR trends. Use tidymodels preprocess, train, evaluate model.","code":""},{"path":"https://amr-for-r.org/articles/AMR_with_tidymodels.html","id":"data-preparation-2","dir":"Articles","previous_headings":"Example 3: Predicting AMR Over Time","what":"Data Preparation","title":"AMR with tidymodels","text":"start transforming example_isolates dataset structured time-series format. Explanation: mo_name(mo): Converts microbial codes proper species names. resistance(): Converts AMR results numeric values (proportion resistant isolates). group_by(year, ward, species): Aggregates resistance rates year ward.","code":"# Load required libraries library(AMR) library(tidymodels)  # Transform dataset data_time <- example_isolates %>%   top_n_microorganisms(n = 10) %>% # Filter on the top #10 species   mutate(year = as.integer(format(date, \"%Y\")),  # Extract year from date          gramstain = mo_gramstain(mo)) %>% # Get taxonomic names   group_by(year, gramstain) %>%   summarise(across(c(AMX, AMC, CIP),                     function(x) resistance(x, minimum = 0),                    .names = \"res_{.col}\"),              .groups = \"drop\") %>%    filter(!is.na(res_AMX) & !is.na(res_AMC) & !is.na(res_CIP)) # Drop missing values #> ℹ Using column 'mo' as input for `col_mo`.  data_time #> # A tibble: 32 × 5 #>     year gramstain     res_AMX res_AMC res_CIP #>    <int> <chr>           <dbl>   <dbl>   <dbl> #>  1  2002 Gram-negative   1      0.105   0.0606 #>  2  2002 Gram-positive   0.838  0.182   0.162  #>  3  2003 Gram-negative   1      0.0714  0      #>  4  2003 Gram-positive   0.714  0.244   0.154  #>  5  2004 Gram-negative   0.464  0.0938  0      #>  6  2004 Gram-positive   0.849  0.299   0.244  #>  7  2005 Gram-negative   0.412  0.132   0.0588 #>  8  2005 Gram-positive   0.882  0.382   0.154  #>  9  2006 Gram-negative   0.379  0       0.1    #> 10  2006 Gram-positive   0.778  0.333   0.353  #> # ℹ 22 more rows"},{"path":"https://amr-for-r.org/articles/AMR_with_tidymodels.html","id":"defining-the-workflow-2","dir":"Articles","previous_headings":"Example 3: Predicting AMR Over Time","what":"Defining the Workflow","title":"AMR with tidymodels","text":"now define modelling workflow, consists preprocessing step, model specification, fitting process.","code":""},{"path":"https://amr-for-r.org/articles/AMR_with_tidymodels.html","id":"preprocessing-with-a-recipe-2","dir":"Articles","previous_headings":"Example 3: Predicting AMR Over Time > Defining the Workflow","what":"1. Preprocessing with a Recipe","title":"AMR with tidymodels","text":"Explanation: step_dummy(): Encodes categorical variables (ward, species) numerical indicators. step_normalize(): Normalises year variable. step_nzv(): Removes near-zero variance predictors.","code":"# Define the recipe resistance_recipe_time <- recipe(res_AMX ~ year + gramstain, data = data_time) %>%   step_dummy(gramstain, one_hot = TRUE) %>%  # Convert categorical to numerical   step_normalize(year) %>%  # Normalise year for better model performance   step_nzv(all_predictors())  # Remove near-zero variance predictors  resistance_recipe_time #>  #> ── Recipe ────────────────────────────────────────────────────────────────────── #>  #> ── Inputs #> Number of variables by role #> outcome:   1 #> predictor: 2 #>  #> ── Operations #> • Dummy variables from: gramstain #> • Centering and scaling for: year #> • Sparse, unbalanced variable filter on: all_predictors()"},{"path":"https://amr-for-r.org/articles/AMR_with_tidymodels.html","id":"specifying-the-model-2","dir":"Articles","previous_headings":"Example 3: Predicting AMR Over Time > Defining the Workflow","what":"2. Specifying the Model","title":"AMR with tidymodels","text":"use linear regression model predict resistance trends. Explanation: linear_reg(): Defines linear regression model. set_engine(\"lm\"): Uses R’s built-linear regression engine.","code":"# Define the linear regression model lm_model <- linear_reg() %>%   set_engine(\"lm\") # Use linear regression  lm_model #> Linear Regression Model Specification (regression) #>  #> Computational engine: lm"},{"path":"https://amr-for-r.org/articles/AMR_with_tidymodels.html","id":"building-the-workflow-2","dir":"Articles","previous_headings":"Example 3: Predicting AMR Over Time > Defining the Workflow","what":"3. Building the Workflow","title":"AMR with tidymodels","text":"combine preprocessing recipe model workflow.","code":"# Create workflow resistance_workflow_time <- workflow() %>%   add_recipe(resistance_recipe_time) %>%   add_model(lm_model)  resistance_workflow_time #> ══ Workflow ════════════════════════════════════════════════════════════════════ #> Preprocessor: Recipe #> Model: linear_reg() #>  #> ── Preprocessor ──────────────────────────────────────────────────────────────── #> 3 Recipe Steps #>  #> • step_dummy() #> • step_normalize() #> • step_nzv() #>  #> ── Model ─────────────────────────────────────────────────────────────────────── #> Linear Regression Model Specification (regression) #>  #> Computational engine: lm"},{"path":"https://amr-for-r.org/articles/AMR_with_tidymodels.html","id":"training-and-evaluating-the-model-2","dir":"Articles","previous_headings":"Example 3: Predicting AMR Over Time","what":"Training and Evaluating the Model","title":"AMR with tidymodels","text":"split data training testing sets, fit model, evaluate performance. Explanation: initial_split(): Splits data training testing sets. fit(): Trains workflow. predict(): Generates resistance predictions. metrics(): Evaluates model performance.","code":"# Split the data set.seed(123) data_split_time <- initial_split(data_time, prop = 0.8) train_time <- training(data_split_time) test_time <- testing(data_split_time)  # Train the model fitted_workflow_time <- resistance_workflow_time %>%   fit(train_time)  # Make predictions predictions_time <- fitted_workflow_time %>%   predict(test_time) %>%   bind_cols(test_time)  # Evaluate model metrics_time <- predictions_time %>%   metrics(truth = res_AMX, estimate = .pred)  metrics_time #> # A tibble: 3 × 3 #>   .metric .estimator .estimate #>   <chr>   <chr>          <dbl> #> 1 rmse    standard      0.0774 #> 2 rsq     standard      0.711  #> 3 mae     standard      0.0704"},{"path":"https://amr-for-r.org/articles/AMR_with_tidymodels.html","id":"visualising-predictions-1","dir":"Articles","previous_headings":"Example 3: Predicting AMR Over Time","what":"Visualising Predictions","title":"AMR with tidymodels","text":"plot resistance trends time amoxicillin.  Additionally, can visualise resistance trends ggplot2 directly add linear models :","code":"library(ggplot2)  # Plot actual vs predicted resistance over time ggplot(predictions_time, aes(x = year)) +   geom_point(aes(y = res_AMX, color = \"Actual\")) +   geom_line(aes(y = .pred, color = \"Predicted\")) +   labs(title = \"Predicted vs Actual AMX Resistance Over Time\",        x = \"Year\",        y = \"Resistance Proportion\") +   theme_minimal() ggplot(data_time, aes(x = year, y = res_AMX, color = gramstain)) +   geom_line() +   labs(title = \"AMX Resistance Trends\",        x = \"Year\",        y = \"Resistance Proportion\") +   # add a linear model directly in ggplot2:   geom_smooth(method = \"lm\",               formula = y ~ x,               alpha = 0.25) +   theme_minimal()"},{"path":"https://amr-for-r.org/articles/AMR_with_tidymodels.html","id":"conclusion-2","dir":"Articles","previous_headings":"Example 3: Predicting AMR Over Time","what":"Conclusion","title":"AMR with tidymodels","text":"example, demonstrated analyze AMR trends time using tidymodels. aggregating resistance rates year hospital ward, built predictive model track changes resistance amoxicillin (AMX), amoxicillin-clavulanic acid (AMC), ciprofloxacin (CIP). method can extended antibiotics resistance patterns, providing valuable insights AMR dynamics healthcare settings.","code":""},{"path":"https://amr-for-r.org/articles/EUCAST.html","id":"introduction","dir":"Articles","previous_headings":"","what":"Introduction","title":"Apply EUCAST rules","text":"EUCAST rules? European Committee Antimicrobial Susceptibility Testing (EUCAST) states website: EUCAST expert rules (see ) tabulated collection expert knowledge interpretive rules, expected resistant phenotypes expected susceptible phenotypes applied antimicrobial susceptibility testing order reduce testing, reduce errors make appropriate recommendations reporting particular resistances. Europe, lot medical microbiological laboratories already apply rules (Brown et al., 2015). package features latest insights expected resistant phenotypes (v1.2, 2023).","code":""},{"path":"https://amr-for-r.org/articles/EUCAST.html","id":"examples","dir":"Articles","previous_headings":"","what":"Examples","title":"Apply EUCAST rules","text":"rules can used discard improbable 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 Klebsiella susceptible ampicillin. antibiogram available identification available, antibiogram re-interpreted based identification. eucast_rules() function resolves , applying latest ‘EUCAST Expected Resistant Phenotypes’ guideline: convenient function mo_is_intrinsic_resistant() uses guideline, allows check one specific microorganisms antimicrobials: EUCAST rules can used correction, can also used filling known resistance susceptibility based results antimicrobials drugs. process called interpretive reading, basically form imputation:","code":"oops <- tibble::tibble(   mo = c(     \"Klebsiella pneumoniae\",     \"Escherichia coli\"   ),   ampicillin = as.sir(\"S\") ) oops #> # A tibble: 2 × 2 #>   mo                    ampicillin #>   <chr>                 <sir>      #> 1 Klebsiella pneumoniae   S        #> 2 Escherichia coli        S    eucast_rules(oops, info = FALSE, overwrite = TRUE) #> # A tibble: 2 × 2 #>   mo                    ampicillin #>   <chr>                 <sir>      #> 1 Klebsiella pneumoniae   R        #> 2 Escherichia coli        S mo_is_intrinsic_resistant(   c(\"Klebsiella pneumoniae\", \"Escherichia coli\"),   \"ampicillin\" ) #> [1]  TRUE FALSE  mo_is_intrinsic_resistant(   \"Klebsiella pneumoniae\",   c(\"ampicillin\", \"kanamycin\") ) #> [1]  TRUE FALSE data <- tibble::tibble(   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 ) data eucast_rules(data, overwrite = TRUE)"},{"path":[]},{"path":"https://amr-for-r.org/articles/PCA.html","id":"transforming","dir":"Articles","previous_headings":"","what":"Transforming","title":"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://amr-for-r.org/articles/PCA.html","id":"perform-principal-component-analysis","dir":"Articles","previous_headings":"","what":"Perform principal component analysis","title":"Conduct principal component analysis (PCA) for AMR","text":"new pca() function automatically filter rows contain numeric values selected variables, now need : result can reviewed good old summary() function: Good news. first two components explain total 93.3% variance (see PC1 PC2 values Proportion Variance. can create -called biplot base R biplot() function, see antimicrobial resistance per drug explain difference per microorganism.","code":"pca_result <- pca(resistance_data) #> ℹ Columns selected for PCA: \"AMC\", \"CAZ\", \"CTX\", \"CXM\", \"GEN\", \"SXT\", #>   \"TMP\", and \"TOB\". Total observations available: 7. summary(pca_result) #> Groups (n=4, named as 'order'): #> [1] \"Caryophanales\"    \"Enterobacterales\" \"Lactobacillales\"  \"Pseudomonadales\" #> Importance of components: #>                           PC1    PC2    PC3     PC4     PC5     PC6       PC7 #> Standard deviation     2.1539 1.6807 0.6138 0.33879 0.20808 0.03140 1.232e-16 #> Proportion of Variance 0.5799 0.3531 0.0471 0.01435 0.00541 0.00012 0.000e+00 #> Cumulative Proportion  0.5799 0.9330 0.9801 0.99446 0.99988 1.00000 1.000e+00 #> Groups (n=4, named as 'order'): #> [1] \"Caryophanales\"    \"Enterobacterales\" \"Lactobacillales\"  \"Pseudomonadales\""},{"path":"https://amr-for-r.org/articles/PCA.html","id":"plotting-the-results","dir":"Articles","previous_headings":"","what":"Plotting the results","title":"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://amr-for-r.org/articles/WHONET.html","id":"import-of-data","dir":"Articles","previous_headings":"","what":"Import of data","title":"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://amr-for-r.org/articles/WHONET.html","id":"preparation","dir":"Articles","previous_headings":"","what":"Preparation","title":"Work with WHONET data","text":"First, load relevant packages yet . use tidyverse analyses. . don’t know yet, suggest read website: https://www.tidyverse.org/. transform variables simplify automate analysis: Microorganisms transformed microorganism codes (called mo) using Catalogue Life reference data set, contains ~70,000 microorganisms taxonomic kingdoms Bacteria, Fungi Protozoa. tranformation .mo(). function also recognises almost WHONET abbreviations microorganisms. Antimicrobial results interpretations clean valid. words, contain values \"S\", \"\" \"R\". exactly .sir() function . errors warnings, values transformed succesfully. also created package dedicated data cleaning checking, called cleaner package. freq() function can used create frequency tables. let’s check data, couple frequency tables: Frequency table Class: character Length: 500 Available: 500 (100%, NA: 0 = 0%) Unique: 38 Shortest: 11 Longest: 40 (omitted 28 entries, n = 57 [11.4%]) Frequency table Class: factor > ordered > sir (numeric) Length: 500 Levels: 5: S < SDD < < R < NI Available: 481 (96.2%, NA: 19 = 3.8%) Unique: 3 Drug: Amoxicillin/clavulanic acid (AMC, J01CR02/QJ01CR02) 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://amr-for-r.org/articles/WHONET.html","id":"a-first-glimpse-at-results","dir":"Articles","previous_headings":"","what":"A first glimpse at results","title":"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://amr-for-r.org/articles/WISCA.html","id":"introduction","dir":"Articles","previous_headings":"","what":"Introduction","title":"Estimating Empirical Coverage with WISCA","text":"Clinical guidelines empirical antimicrobial therapy require probabilistic reasoning: chance regimen cover likely infecting organisms, culture results available? purpose WISCA, Weighted-Incidence Syndromic Combination Antibiogram. WISCA Bayesian approach integrates: Pathogen prevalence (often species causes syndrome), Regimen susceptibility (often regimen works pathogen known), estimate overall empirical coverage antimicrobial regimens, quantified uncertainty. vignette explains WISCA works, useful, apply using AMR package.","code":""},{"path":"https://amr-for-r.org/articles/WISCA.html","id":"why-traditional-antibiograms-fall-short","dir":"Articles","previous_headings":"","what":"Why traditional antibiograms fall short","title":"Estimating Empirical Coverage with WISCA","text":"standard antibiogram gives : clinicians don’t know species priori. need choose regimen covers likely pathogens, without knowing one present. Traditional antibiograms calculate susceptibility % just number resistant isolates divided total number tested isolates. Therefore, traditional antibiograms: Fragment information organism, weight real-world prevalence, account combination therapy sample size, provide uncertainty.","code":"Species → Antibiotic → Susceptibility %"},{"path":"https://amr-for-r.org/articles/WISCA.html","id":"the-idea-of-wisca","dir":"Articles","previous_headings":"","what":"The idea of WISCA","title":"Estimating Empirical Coverage with WISCA","text":"WISCA asks: “probability regimen cover pathogen, given syndrome?” means combining two things: Incidence pathogen syndrome, Susceptibility pathogen regimen. can write : Coverage=∑(Incidencei×Susceptibilityi)\\text{Coverage} = \\sum_i (\\text{Incidence}_i \\times \\text{Susceptibility}_i) example, suppose: E. coli causes 60% cases, 90% E. coli susceptible drug. Klebsiella causes 40% cases, 70% Klebsiella susceptible. : Coverage=(0.6×0.9)+(0.4×0.7)=0.82\\text{Coverage} = (0.6 \\times 0.9) + (0.4 \\times 0.7) = 0.82 real data, incidence susceptibility estimated samples, carry uncertainty. WISCA models probabilistically, using conjugate Bayesian distributions.","code":""},{"path":[]},{"path":"https://amr-for-r.org/articles/WISCA.html","id":"pathogen-incidence","dir":"Articles","previous_headings":"The Bayesian engine behind WISCA","what":"Pathogen incidence","title":"Estimating Empirical Coverage with WISCA","text":"Let: KK number pathogens, α=(1,1,…,1)\\alpha = (1, 1, \\ldots, 1) Dirichlet prior (uniform), n=(n1,…,nK)n = (n_1, \\ldots, n_K) observed counts per species. posterior incidence : p∼Dirichlet(α1+n1,…,αK+nK)p \\sim \\text{Dirichlet}(\\alpha_1 + n_1, \\ldots, \\alpha_K + n_K) simulate , use: xi∼Gamma(αi+ni,1),pi=xi∑j=1Kxjx_i \\sim \\text{Gamma}(\\alpha_i + n_i,\\ 1), \\quad p_i = \\frac{x_i}{\\sum_{j=1}^{K} x_j}","code":""},{"path":"https://amr-for-r.org/articles/WISCA.html","id":"susceptibility","dir":"Articles","previous_headings":"The Bayesian engine behind WISCA","what":"Susceptibility","title":"Estimating Empirical Coverage with WISCA","text":"pathogen–regimen pair prior data: Prior: Beta(α0,β0)\\text{Beta}(\\alpha_0, \\beta_0), default α0=β0=1\\alpha_0 = \\beta_0 = 1 Data: SS susceptible NN tested SS category also include values SDD (susceptible, dose-dependent) (intermediate [CLSI], susceptible, increased exposure [EUCAST]). posterior : θ∼Beta(α0+S,β0+N−S)\\theta \\sim \\text{Beta}(\\alpha_0 + S,\\ \\beta_0 + N - S)","code":""},{"path":"https://amr-for-r.org/articles/WISCA.html","id":"final-coverage-estimate","dir":"Articles","previous_headings":"The Bayesian engine behind WISCA","what":"Final coverage estimate","title":"Estimating Empirical Coverage with WISCA","text":"Putting together: Simulate pathogen incidence: 𝐩∼Dirichlet\\boldsymbol{p} \\sim \\text{Dirichlet} Simulate susceptibility: θi∼Beta(1+Si,1+Ri)\\theta_i \\sim \\text{Beta}(1 + S_i,\\ 1 + R_i) Combine: Coverage=∑=1Kpi⋅θi\\text{Coverage} = \\sum_{=1}^{K} p_i \\cdot \\theta_i Repeat simulation (e.g. 1000×) summarise: Mean = expected coverage Quantiles = credible interval","code":""},{"path":[]},{"path":"https://amr-for-r.org/articles/WISCA.html","id":"prepare-data-and-simulate-synthetic-syndrome","dir":"Articles","previous_headings":"Practical use in the AMR package","what":"Prepare data and simulate synthetic syndrome","title":"Estimating Empirical Coverage with WISCA","text":"","code":"library(AMR) data <- example_isolates  # Structure of our data data #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI   R     NA    NA    NA  #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI   R     NA    NA    NA  #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS   R     NA    S     R   #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS   R     NA    S     R   #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR   R     NA    S     NA  #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  # Add a fake syndrome column data$syndrome <- ifelse(data$mo %like% \"coli\", \"UTI\", \"No UTI\")"},{"path":"https://amr-for-r.org/articles/WISCA.html","id":"basic-wisca-antibiogram","dir":"Articles","previous_headings":"Practical use in the AMR package","what":"Basic WISCA antibiogram","title":"Estimating Empirical Coverage with WISCA","text":"","code":"wisca(data,       antimicrobials = c(\"AMC\", \"CIP\", \"GEN\"))"},{"path":"https://amr-for-r.org/articles/WISCA.html","id":"use-combination-regimens","dir":"Articles","previous_headings":"Practical use in the AMR package","what":"Use combination regimens","title":"Estimating Empirical Coverage with WISCA","text":"","code":"wisca(data,       antimicrobials = c(\"AMC\", \"AMC + CIP\", \"AMC + GEN\"))"},{"path":"https://amr-for-r.org/articles/WISCA.html","id":"stratify-by-syndrome","dir":"Articles","previous_headings":"Practical use in the AMR package","what":"Stratify by syndrome","title":"Estimating Empirical Coverage with WISCA","text":"AMR package available 28 languages, can used wisca() function :","code":"wisca(data,       antimicrobials = c(\"AMC\", \"AMC + CIP\", \"AMC + GEN\"),       syndromic_group = \"syndrome\") wisca(data,       antimicrobials = c(\"AMC\", \"AMC + CIP\", \"AMC + GEN\"),       syndromic_group = gsub(\"UTI\", \"UCI\", data$syndrome),       language = \"Spanish\")"},{"path":"https://amr-for-r.org/articles/WISCA.html","id":"sensible-defaults-which-can-be-customised","dir":"Articles","previous_headings":"","what":"Sensible defaults, which can be customised","title":"Estimating Empirical Coverage with WISCA","text":"simulations = 1000: number Monte Carlo draws conf_interval = 0.95: coverage interval width combine_SI = TRUE: count “” “SDD” susceptible","code":""},{"path":"https://amr-for-r.org/articles/WISCA.html","id":"limitations","dir":"Articles","previous_headings":"","what":"Limitations","title":"Estimating Empirical Coverage with WISCA","text":"assumes data representative adjustment patient-level covariates, although passed onto syndromic_group argument WISCA model resistance time, might want use tidymodels , wrote basic introduction","code":""},{"path":"https://amr-for-r.org/articles/WISCA.html","id":"summary","dir":"Articles","previous_headings":"","what":"Summary","title":"Estimating Empirical Coverage with WISCA","text":"WISCA enables: Empirical regimen comparison, Syndrome-specific coverage estimation, Fully probabilistic interpretation. available AMR package via either:","code":"wisca(...)  antibiogram(..., wisca = TRUE)"},{"path":"https://amr-for-r.org/articles/WISCA.html","id":"reference","dir":"Articles","previous_headings":"","what":"Reference","title":"Estimating Empirical Coverage with WISCA","text":"Bielicki, JA, et al. (2016). Selecting appropriate empirical antibiotic regimens paediatric bloodstream infections: application Bayesian decision model local pooled antimicrobial resistance surveillance data. J Antimicrob Chemother. 71(3):794-802. https://doi.org/10.1093/jac/dkv397","code":""},{"path":"https://amr-for-r.org/articles/datasets.html","id":"microorganisms-full-microbial-taxonomy","dir":"Articles","previous_headings":"","what":"microorganisms: Full Microbial Taxonomy","title":"Download data sets for download / own use","text":"data set 78 679 rows 26 columns, containing following column names:mo, fullname, status, kingdom, phylum, class, order, family, genus, species, subspecies, rank, ref, oxygen_tolerance, source, lpsn, lpsn_parent, lpsn_renamed_to, mycobank, mycobank_parent, mycobank_renamed_to, gbif, gbif_parent, gbif_renamed_to, prevalence, snomed. data set R available microorganisms, load AMR package. last updated 18 September 2025 12:58:34 UTC. Find info contents, (scientific) source, structure data set . Direct download links: Download original R Data Structure (RDS) file (1.8 MB) Download tab-separated text file (17.7 MB) Download Microsoft Excel workbook (8.8 MB) Download Apache Feather file (8.4 MB) Download Apache Parquet file (3.8 MB) Download IBM SPSS Statistics data file (28.4 MB) Download Stata DTA file (89.5 MB) NOTE: exported files SPSS Stata contain first 50 SNOMED codes per record, file size otherwise exceed 100 MB; file size limit GitHub. file structures compression techniques inefficient. Advice? Use R instead. ’s free much better many ways. tab-separated text file Microsoft Excel workbook contain SNOMED codes comma separated values. Example content Included (sub)species per taxonomic kingdom: First 6 rows filtering genus Escherichia:","code":""},{"path":"https://amr-for-r.org/articles/datasets.html","id":"antimicrobials-antibiotic-and-antifungal-drugs","dir":"Articles","previous_headings":"","what":"antimicrobials: Antibiotic and Antifungal Drugs","title":"Download data sets for download / own use","text":"data set 498 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 antimicrobials, load AMR package. last updated 24 November 2025 10:24:02 UTC. Find info contents, (scientific) source, structure data set . Direct download links: Download original R Data Structure (RDS) file (45 kB) Download tab-separated text file (0.1 MB) Download Microsoft Excel workbook (78 kB) Download Apache Feather file (0.1 MB) Download Apache Parquet file (0.1 MB) Download IBM SPSS Statistics data file (0.4 MB) Download Stata DTA file (10 kB) tab-separated text, Microsoft Excel, SPSS, Stata files contain ATC codes, common abbreviations, trade names LOINC codes comma separated values. Example content","code":""},{"path":"https://amr-for-r.org/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":"Download data sets for download / own use","text":"data set 40 217 rows 14 columns, containing following column names:guideline, type, host, method, site, mo, rank_index, ab, ref_tbl, disk_dose, breakpoint_S, breakpoint_R, uti, is_SDD. data set R available clinical_breakpoints, load AMR package. last updated 20 April 2025 10:55:31 UTC. Find info contents, (scientific) source, structure data set . Direct download links: Download original R Data Structure (RDS) file (88 kB) Download tab-separated text file (3.7 MB) Download Microsoft Excel workbook (2.4 MB) Download Apache Feather file (1.8 MB) Download Apache Parquet file (0.1 MB) Download IBM SPSS Statistics data file (6.6 MB) Download Stata DTA file (11.1 MB) Example content","code":""},{"path":"https://amr-for-r.org/articles/datasets.html","id":"microorganisms-groups-species-groups-and-microbiological-complexes","dir":"Articles","previous_headings":"","what":"microorganisms.groups: Species Groups and Microbiological Complexes","title":"Download data sets for download / own use","text":"data set 534 rows 4 columns, containing following column names:mo_group, mo, mo_group_name, mo_name. data set R available microorganisms.groups, load AMR package. last updated 26 March 2025 16:19:17 UTC. Find info contents, (scientific) source, structure data set . Direct download links: Download original R Data Structure (RDS) file (6 kB) Download tab-separated text file (50 kB) Download Microsoft Excel workbook (20 kB) Download Apache Feather file (19 kB) Download Apache Parquet file (13 kB) Download IBM SPSS Statistics data file (65 kB) Download Stata DTA file (83 kB) Example content","code":""},{"path":"https://amr-for-r.org/articles/datasets.html","id":"intrinsic_resistant-intrinsic-bacterial-resistance","dir":"Articles","previous_headings":"","what":"intrinsic_resistant: Intrinsic Bacterial Resistance","title":"Download data sets for download / own use","text":"data set 271 905 rows 2 columns, containing following column names:mo ab. data set R available intrinsic_resistant, load AMR package. last updated 28 March 2025 10:17:49 UTC. Find info contents, (scientific) source, structure data set . Direct download links: Download original R Data Structure (RDS) file (0.1 MB) Download tab-separated text file (10.1 MB) Download Microsoft Excel workbook (2.9 MB) Download Apache Feather file (2.3 MB) Download Apache Parquet file (0.3 MB) Download IBM SPSS Statistics data file (14.8 MB) Download Stata DTA file (22.6 MB) Example content Example rows filtering Enterobacter cloacae:","code":""},{"path":"https://amr-for-r.org/articles/datasets.html","id":"dosage-dosage-guidelines-from-eucast","dir":"Articles","previous_headings":"","what":"dosage: Dosage Guidelines from EUCAST","title":"Download data sets for download / own use","text":"data set 759 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 20 April 2025 10:55:31 UTC. Find info contents, (scientific) source, structure data set . Direct download links: Download original R Data Structure (RDS) file (4 kB) Download tab-separated text file (66 kB) Download Microsoft Excel workbook (37 kB) Download Apache Feather file (28 kB) Download Apache Parquet file (9 kB) Download IBM SPSS Statistics data file (97 kB) Download Stata DTA file (0.2 MB) Example content","code":""},{"path":"https://amr-for-r.org/articles/datasets.html","id":"example_isolates-example-data-for-practice","dir":"Articles","previous_headings":"","what":"example_isolates: Example Data for Practice","title":"Download data sets for download / own use","text":"data set 2 000 rows 46 columns, containing following column names:date, patient, age, gender, ward, mo, PEN, OXA, FLC, AMX, AMC, AMP, TZP, CZO, FEP, CXM, FOX, CTX, CAZ, CRO, GEN, TOB, AMK, KAN, TMP, SXT, NIT, FOS, LNZ, CIP, MFX, VAN, TEC, TCY, TGC, DOX, ERY, CLI, AZM, IPM, MEM, MTR, CHL, COL, MUP, RIF. data set R available example_isolates, load AMR package. last updated 15 June 2024 13:33:49 UTC. Find info contents, (scientific) source, structure data set . Example content","code":""},{"path":"https://amr-for-r.org/articles/datasets.html","id":"example_isolates_unclean-example-data-for-practice","dir":"Articles","previous_headings":"","what":"example_isolates_unclean: Example Data for Practice","title":"Download 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 contents, (scientific) source, structure data set . Example content","code":""},{"path":"https://amr-for-r.org/articles/datasets.html","id":"microorganisms-codes-common-laboratory-codes","dir":"Articles","previous_headings":"","what":"microorganisms.codes: Common Laboratory Codes","title":"Download data sets for download / own use","text":"data set 6 036 rows 2 columns, containing following column names:code mo. data set R available microorganisms.codes, load AMR package. last updated 4 May 2025 16:50:25 UTC. Find info contents, (scientific) source, structure data set . Direct download links: Download original R Data Structure (RDS) file (27 kB) Download tab-separated text file (0.1 MB) Download Microsoft Excel workbook (98 kB) Download Apache Feather file (0.1 MB) Download Apache Parquet file (68 kB) Download IBM SPSS Statistics data file (0.2 MB) Download Stata DTA file (0.2 MB) Example content","code":""},{"path":"https://amr-for-r.org/articles/datasets.html","id":"antivirals-antiviral-drugs","dir":"Articles","previous_headings":"","what":"antivirals: Antiviral Drugs","title":"Download data sets for download / own use","text":"data set 120 rows 11 columns, containing following column names:av, name, atc, cid, atc_group, synonyms, oral_ddd, oral_units, iv_ddd, iv_units, loinc. data set R available antivirals, load AMR package. last updated 20 October 2023 12:51:48 UTC. Find info contents, (scientific) source, structure data set . Direct download links: Download original R Data Structure (RDS) file (6 kB) Download tab-separated text file (17 kB) Download Microsoft Excel workbook (16 kB) Download Apache Feather file (16 kB) Download Apache Parquet file (13 kB) Download IBM SPSS Statistics data file (32 kB) Download Stata DTA file (78 kB) tab-separated text, Microsoft Excel, SPSS, Stata files contain trade names LOINC codes comma separated values. Example content","code":""},{"path":"https://amr-for-r.org/authors.html","id":null,"dir":"","previous_headings":"","what":"Authors","title":"Authors and Citation","text":"Matthijs S. Berends. Author, maintainer. Dennis Souverein. Author, contributor. Erwin E. . Hassing. Author, contributor. Aislinn Cook. Contributor. Andrew P. Norgan. Contributor. Anita Williams. Contributor. Annick Lenglet. Contributor. Anthony Underwood. Contributor. Anton Mymrikov. Contributor. Bart C. Meijer. Contributor. Christian F. Luz. Contributor. Dmytro Mykhailenko. Contributor. Eric H. L. C. M. Hazenberg. Contributor. Gwen Knight. Contributor. Jane Hawkey. Contributor. Jason Stull. Contributor. Javier Sanchez. Contributor. Jonas Salm. Contributor. Judith M. Fonville. Contributor. Kathryn Holt. Contributor. Larisse Bolton. Contributor. Matthew Saab. Contributor. Natacha Couto. Contributor. Peter Dutey-Magni. Contributor. Rogier P. Schade. Contributor. Sofia Ny. Contributor. Alex W. Friedrich. Thesis advisor. Bhanu N. M. Sinha. Thesis advisor. Casper J. Albers. Thesis advisor. Corinna Glasner. Thesis advisor.","code":""},{"path":"https://amr-for-r.org/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://amr-for-r.org/index.html","id":"the-amr-package-for-r-","dir":"","previous_headings":"","what":"Antimicrobial Resistance Data Analysis","title":"Antimicrobial Resistance Data Analysis","text":"Provides --one solution antimicrobial resistance (AMR) data analysis One Health approach Peer-reviewed, used 175 countries, available 28 languages Generates antibiograms - traditional, combined, syndromic, even WISCA Provides full microbiological taxonomy ~79 000 distinct species extensive info ~620 antimicrobial drugs Applies CLSI 2011-2025 EUCAST 2011-2025 clinical veterinary breakpoints, ECOFFs, MIC disk zone interpretation Corrects duplicate isolates, calculates predicts AMR per antimicrobial class Integrates WHONET, ATC, EARS-Net, PubChem, LOINC, SNOMED CT, NCBI 100% free costs dependencies, highly suitable places limited resources Now available Python ! Click read . amr--r.org doi.org/10.18637/jss.v104.i03","code":""},{"path":"https://amr-for-r.org/index.html","id":"introduction","dir":"","previous_headings":"","what":"Introduction","title":"Antimicrobial Resistance Data Analysis","text":"AMR package peer-reviewed, 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. team many different researchers around globe make successful durable project! work published Journal Statistical Software (Volume 104(3); DOI 10.18637/jss.v104.i03) formed basis two PhD theses (DOI 10.33612/diss.177417131 DOI 10.33612/diss.192486375). installing package, R knows ~79 000 distinct microbial species (updated June 2024) ~620 antimicrobial antiviral drugs name code (including ATC, EARS-Net, ASIARS-Net, PubChem, LOINC SNOMED CT), knows valid SIR MIC values. integral clinical breakpoint guidelines CLSI 2011-2025 EUCAST 2011-2025 included, even epidemiological cut-(ECOFF) values. supports can read data format, including WHONET data. package works Windows, macOS Linux versions R since R-3.0 (April 2013). designed work setting, including limited resources. created routine data analysis academic research Faculty Medical Sciences University Groningen University Medical Center Groningen.","code":""},{"path":"https://amr-for-r.org/index.html","id":"used-in-over-175-countries-available-in-28-languages","dir":"","previous_headings":"Introduction","what":"Used in over 175 countries, available in 28 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,  Arabic,  Bengali,  Chinese,  Czech,  Danish,  Dutch,  Finnish,  French,  German,  Greek,  Hindi,  Indonesian,  Italian,  Japanese,  Korean,  Norwegian,  Polish,  Portuguese,  Romanian,  Russian,  Spanish,  Swahili,  Swedish,  Turkish,  Ukrainian,  Urdu,  Vietnamese. Antimicrobial drug (group) names colloquial microorganism names provided languages.","code":""},{"path":[]},{"path":"https://amr-for-r.org/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 antimicrobial columns. can done using -called antimicrobial 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 antimicrobials AMR package make sure get meant.","code":"# AMR works great with dplyr, but it's not required or neccesary library(AMR) library(dplyr, warn.conflicts = FALSE)  example_isolates %>%   mutate(bacteria = mo_fullname()) %>%   # filtering functions for microorganisms:   filter(mo_is_gram_negative(),          mo_is_intrinsic_resistant(ab = \"cefotax\")) %>%   # antimicrobial selectors:   select(bacteria,          aminoglycosides(),          carbapenems()) #> ℹ Using column 'mo' as input for `mo_fullname()` #> ℹ Using column 'mo' as input for `mo_is_gram_negative()` #> ℹ Using column 'mo' as input for `mo_is_intrinsic_resistant()` #> ℹ Determining intrinsic resistance based on 'EUCAST Expected Resistant #>   Phenotypes' v1.2 (2023). This note will be shown once per session. #> ℹ For `aminoglycosides()` using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> ℹ For `carbapenems()` using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> # A tibble: 35 × 7 #>    bacteria                     GEN   TOB   AMK   KAN   IPM   MEM   #>    <chr>                        <sir> <sir> <sir> <sir> <sir> <sir> #>  1 Pseudomonas aeruginosa       I     S     NA    R     S     NA    #>  2 Pseudomonas aeruginosa       I     S     NA    R     S     NA    #>  3 Pseudomonas aeruginosa       I     S     NA    R     S     NA    #>  4 Pseudomonas aeruginosa       S     S     S     R     NA    S     #>  5 Pseudomonas aeruginosa       S     S     S     R     S     S     #>  6 Pseudomonas aeruginosa       S     S     S     R     S     S     #>  7 Stenotrophomonas maltophilia R     R     R     R     R     R     #>  8 Pseudomonas aeruginosa       S     S     S     R     NA    S     #>  9 Pseudomonas aeruginosa       S     S     S     R     NA    S     #> 10 Pseudomonas aeruginosa       S     S     S     R     S     S     #> # ℹ 25 more rows"},{"path":"https://amr-for-r.org/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 antimicrobials yield higher empiric coverage: Like many functions package, antibiogram() comes support 28 languages often detected automatically based system language:","code":"antibiogram(example_isolates,             antimicrobials = 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) antibiogram(example_isolates,             antimicrobials = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\"),             mo_transform = \"gramstain\") antibiogram(example_isolates,             antimicrobials = c(\"cipro\", \"tobra\", \"genta\"), # any arbitrary name or code will work             mo_transform = \"gramstain\",             ab_transform = \"name\",             language = \"uk\") # Ukrainian"},{"path":"https://amr-for-r.org/index.html","id":"interpreting-and-plotting-mic-and-sir-values","dir":"","previous_headings":"Practical examples","what":"Interpreting and plotting MIC and SIR values","title":"Antimicrobial Resistance Data Analysis","text":"AMR package allows interpretation MIC disk diffusion values based CLSI EUCAST. Moreover, ggplot2 package extended new scale functions, allow plotting log2-distributed MIC values SIR values.","code":"library(ggplot2) library(AMR)  # generate some random values some_mic_values <- random_mic(size = 100) some_groups <- sample(LETTERS[1:5], 20, replace = TRUE) interpretation <- as.sir(some_mic_values,                          guideline = \"EUCAST 2024\",                          mo = \"E. coli\", # or any code or name resembling a known species                          ab = \"Cipro\")   # or any code or name resembling an antibiotic  # create the plot ggplot(data.frame(mic = some_mic_values,                   group = some_groups,                   sir = interpretation),        aes(x = group, y = mic, colour = sir)) +   theme_minimal() +   geom_boxplot(fill = NA, colour = \"grey30\") +   geom_jitter(width = 0.25) +      # NEW scale function: plot MIC values to x, y, colour or fill   scale_y_mic() +      # NEW scale function: write out S/I/R in any of the 20 supported languages   #                     and set colourblind-friendly colours   scale_colour_sir()"},{"path":"https://amr-for-r.org/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 antimicrobial 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 = \"-\")))) #> # A tibble: 3 × 5 #>   ward       GEN_total_R GEN_conf_int TOB_total_R TOB_conf_int #>   <chr>            <dbl> <chr>              <dbl> <chr>        #> 1 Clinical         0.229 0.205-0.254        0.315 0.284-0.347  #> 2 ICU              0.290 0.253-0.33         0.400 0.353-0.449  #> 3 Outpatient       0.2   0.131-0.285        0.368 0.254-0.493 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)) #> ℹ For `aminoglycosides()` using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> ℹ For `polymyxins()` using column 'COL' (colistin) #> Warning: There was 1 warning in `summarise()`. #> ℹ In argument: `across(c(aminoglycosides(), polymyxins()), resistance)`. #> ℹ In group 3: `ward = \"Outpatient\"`. #> Caused by warning: #> ! Introducing NA: only 23 results available for KAN in group: ward = #> \"Outpatient\" (`minimum` = 30). out #> # A tibble: 3 × 6 #>   ward         GEN   TOB   AMK   KAN   COL #>   <chr>      <dbl> <dbl> <dbl> <dbl> <dbl> #> 1 Clinical   0.229 0.315 0.626     1 0.780 #> 2 ICU        0.290 0.400 0.662     1 0.857 #> 3 Outpatient 0.2   0.368 0.605    NA 0.889 # transform the antibiotic columns to names: out %>% set_ab_names() #> # A tibble: 3 × 6 #>   ward       gentamicin tobramycin amikacin kanamycin colistin #>   <chr>           <dbl>      <dbl>    <dbl>     <dbl>    <dbl> #> 1 Clinical        0.229      0.315    0.626         1    0.780 #> 2 ICU             0.290      0.400    0.662         1    0.857 #> 3 Outpatient      0.2        0.368    0.605        NA    0.889 # transform the antibiotic column to ATC codes: out %>% set_ab_names(property = \"atc\") #> # A tibble: 3 × 6 #>   ward       J01GB03 J01GB01 J01GB06 J01GB04 J01XB01 #>   <chr>        <dbl>   <dbl>   <dbl>   <dbl>   <dbl> #> 1 Clinical     0.229   0.315   0.626       1   0.780 #> 2 ICU          0.290   0.400   0.662       1   0.857 #> 3 Outpatient   0.2     0.368   0.605      NA   0.889"},{"path":"https://amr-for-r.org/index.html","id":"what-else-can-you-do-with-this-package","dir":"","previous_headings":"","what":"What else can you do with this package?","title":"Antimicrobial Resistance Data Analysis","text":"package intended comprehensive toolbox integrated AMR data analysis. package can used : Reference taxonomy microorganisms, since package contains microbial (sub)species List Prokaryotic names Standing Nomenclature (LPSN) Global Biodiversity Information Facility (GBIF) (manual) Interpreting raw MIC disk diffusion values, based CLSI EUCAST guideline (manual) Retrieving antimicrobial drug names, doses forms administration clinical health care records (manual) Determining first isolates used AMR data analysis (manual) Calculating antimicrobial resistance (tutorial) Determining multi-drug resistance (MDR) / multi-drug resistant organisms (MDRO) (tutorial) Calculating (empirical) susceptibility mono therapy combination therapies (tutorial) Apply AMR functions predictive modelling (tutorial) Getting properties microorganism (like Gram stain, species, genus family) (manual) Getting properties antimicrobial (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://amr-for-r.org/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 beta version.","code":"install.packages(\"AMR\")"},{"path":"https://amr-for-r.org/index.html","id":"latest-beta-version","dir":"","previous_headings":"Get this package","what":"Latest beta version","title":"Antimicrobial Resistance Data Analysis","text":"Please read Developer Guideline . install latest unpublished beta version:","code":"install.packages(\"AMR\", repos = \"beta.amr-for-r.org\")  # if this does not work, try to install directly from GitHub using the 'remotes' package: remotes::install_github(\"msberends/AMR\")"},{"path":"https://amr-for-r.org/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://amr-for-r.org/index.html","id":"partners","dir":"","previous_headings":"","what":"Partners","title":"Antimicrobial Resistance Data Analysis","text":"initial development package part , related , made possible following non-profit organisations initiatives:","code":""},{"path":"https://amr-for-r.org/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://amr-for-r.org/reference/AMR-deprecated.html","id":null,"dir":"Reference","previous_headings":"","what":"Deprecated Functions, Arguments, or Datasets — AMR-deprecated","title":"Deprecated Functions, Arguments, or Datasets — AMR-deprecated","text":"objects -called 'Deprecated'. removed future version package. Using give warning name alternative object replaced (one).","code":""},{"path":"https://amr-for-r.org/reference/AMR-deprecated.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Deprecated Functions, Arguments, or Datasets — AMR-deprecated","text":"","code":"ab_class(...)  ab_selector(...)"},{"path":"https://amr-for-r.org/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://amr-for-r.org/reference/AMR-options.html","id":"options","dir":"Reference","previous_headings":"","what":"Options","title":"Options for the AMR package — AMR-options","text":"AMR_antibiogram_formatting_type  numeric (1-22) use antibiogram(), indicate formatting type use. AMR_breakpoint_type  character use .sir(), indicate breakpoint type use. must either \"ECOFF\", \"animal\", \"human\". AMR_capped_mic_handling  character use .sir(), indicate capped MIC values (<, <=, >, >=) interpreted. Must one \"none\", \"conservative\", \"standard\", \"lenient\" - default \"conservative\". AMR_cleaning_regex  regular expression (case-insensitive) use .mo() mo_* functions, clean user input. default outcome mo_cleaning_regex(), removes texts brackets texts \"species\" \"serovar\". AMR_custom_ab  file location RDS file, use custom antimicrobial drugs package. explained add_custom_antimicrobials(). AMR_custom_mo  file location RDS file, use custom microorganisms package. explained add_custom_microorganisms(). AMR_eucastrules  character set default types rules eucast_rules() function, must one : \"breakpoints\", \"expert\", \"\", \"custom\", \"\", defaults c(\"breakpoints\", \"expert\"). AMR_guideline  character set default guideline interpreting MIC values disk diffusion diameters .sir(). Can guideline name (e.g., \"CLSI\") name year (e.g. \"CLSI 2019\"). default latest implemented EUCAST guideline, currently \"EUCAST 2025\". Supported guideline currently EUCAST (2011-2025) CLSI (2011-2025). 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_substitute_missing_r_breakpoint  logical use .sir(), indicate missing R breakpoints must substituted \"R\" - default FALSE. AMR_include_screening  logical use .sir(), indicate clinical breakpoints screening allowed - default FALSE. AMR_keep_synonyms  logical use .mo() mo_* functions, indicate old, previously valid taxonomic names must preserved corrected currently accepted names. default FALSE. AMR_locale  character set language AMR package, can one supported language names ISO 639-1 codes: English (en), Arabic (ar), Bengali (bn), Chinese (zh), Czech (cs), Danish (da), Dutch (nl), Finnish (fi), French (fr), German (de), Greek (el), Hindi (hi), Indonesian (id), Italian (), Japanese (ja), Korean (ko), Norwegian (), Polish (pl), Portuguese (pt), Romanian (ro), Russian (ru), Spanish (es), Swahili (sw), Swedish (sv), Turkish (tr), Ukrainian (uk), Urdu (ur), Vietnamese (vi). default current system language (supported, English otherwise). AMR_mo_source  file location manual code list used .mo() mo_* functions. explained set_mo_source().","code":""},{"path":"https://amr-for-r.org/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 antimicrobials, allow PK/PD rules interpreting MIC values .sir().","code":"utils::file.edit(\"~/.Rprofile\") options(AMR_locale = \"pt\")  options(AMR_include_PKPD = TRUE)"},{"path":"https://amr-for-r.org/reference/AMR-options.html","id":"share-options-within-team","dir":"Reference","previous_headings":"","what":"Share Options Within Team","title":"Options for the AMR package — AMR-options","text":"global approach, e.g. within (data) team, save options file remote file location, shared network drive, user read file automatically start-. work way: Save plain text file e.g. \"X:/team_folder/R_options.R\" fill preferred settings. user, open .Rprofile file using utils::file.edit(\"~/.Rprofile\") put :   Reload R/RStudio check settings getOption(), e.g. getOption(\"AMR_locale\") set value. Now team settings configured one place, can maintained .","code":"source(\"X:/team_folder/R_options.R\")"},{"path":"https://amr-for-r.org/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 peer-reviewed, 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. team many different researchers around globe make successful durable project! work published Journal Statistical Software (Volume 104(3); doi:10.18637/jss.v104.i03 ) formed basis two PhD theses (doi:10.33612/diss.177417131  doi:10.33612/diss.192486375 ). installing package, R knows ~79 000 distinct microbial species (updated June 2024) ~620 antimicrobial antiviral drugs name code (including ATC, EARS-Net, ASIARS-Net, PubChem, LOINC SNOMED CT), knows valid SIR MIC values. integral clinical breakpoint guidelines CLSI 2011-2025 EUCAST 2011-2025 included, even epidemiological cut-(ECOFF) values. supports can read data format, including WHONET data. package works Windows, macOS Linux versions R since R-3.0 (April 2013). designed work setting, including limited resources. created routine data analysis academic research Faculty Medical Sciences University Groningen University Medical Center Groningen. AMR package available English, Arabic, Bengali, Chinese, Czech, Danish, Dutch, Finnish, French, German, Greek, Hindi, Indonesian, Italian, Japanese, Korean, Norwegian, Polish, Portuguese, Romanian, Russian, Spanish, Swahili, Swedish, Turkish, Ukrainian, Urdu, Vietnamese. Antimicrobial drug (group) names colloquial microorganism names provided languages.","code":""},{"path":"https://amr-for-r.org/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://amr-for-r.org/reference/AMR.html","id":"download-our-reference-data","dir":"Reference","previous_headings":"","what":"Download Our Reference Data","title":"The AMR Package — AMR","text":"reference data sets AMR package - including information microorganisms, antimicrobials, clinical breakpoints - freely available download multiple formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. maximum compatibility, also provide machine-readable, tab-separated plain text files suitable use software, including laboratory information systems. Visit website direct download links, explore actual files GitHub repository.","code":""},{"path":[]},{"path":"https://amr-for-r.org/reference/AMR.html","id":"author","dir":"Reference","previous_headings":"","what":"Author","title":"The AMR Package — AMR","text":"Maintainer: Matthijs S. Berends m.s.berends@umcg.nl (ORCID) Authors: Dennis Souverein (ORCID) [contributor] Erwin E. . Hassing [contributor] contributors: Aislinn Cook (ORCID) [contributor] Andrew P. Norgan (ORCID) [contributor] Anita Williams (ORCID) [contributor] Annick Lenglet (ORCID) [contributor] Anthony Underwood (ORCID) [contributor] Anton Mymrikov [contributor] Bart C. Meijer [contributor] Christian F. Luz (ORCID) [contributor] Dmytro Mykhailenko [contributor] Eric H. L. C. M. Hazenberg [contributor] Gwen Knight (ORCID) [contributor] Jane Hawkey (ORCID) [contributor] Jason Stull (ORCID) [contributor] Javier Sanchez (ORCID) [contributor] Jonas Salm [contributor] Judith M. Fonville [contributor] Kathryn Holt (ORCID) [contributor] Larisse Bolton (ORCID) [contributor] Matthew Saab (ORCID) [contributor] Natacha Couto (ORCID) [contributor] Peter Dutey-Magni (ORCID) [contributor] Rogier P. Schade (ORCID) [contributor] Sofia Ny (ORCID) [contributor] Alex W. Friedrich (ORCID) [thesis advisor] Bhanu N. M. Sinha (ORCID) [thesis advisor] Casper J. Albers (ORCID) [thesis advisor] Corinna Glasner (ORCID) [thesis advisor]","code":""},{"path":"https://amr-for-r.org/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://amr-for-r.org/reference/WHOCC.html","id":"whocc","dir":"Reference","previous_headings":"","what":"WHOCC","title":"WHOCC: WHO Collaborating Centre for Drug Statistics Methodology — WHOCC","text":"package contains ~550 antibiotic, antimycotic antiviral drugs Anatomical Therapeutic Chemical (ATC) codes, ATC groups Defined Daily Dose (DDD) World Health Organization Collaborating Centre Drug Statistics Methodology (WHOCC, https://atcddd.fhi.) Pharmaceuticals Community Register European Commission (https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm). become gold standard international drug utilisation monitoring research. WHOCC located Oslo Norwegian Institute Public Health funded Norwegian government. European Commission executive European Union promotes general interest. NOTE: WHOCC copyright allow use commercial purposes, unlike info package. See https://atcddd.fhi./copyright_disclaimer/.","code":""},{"path":"https://amr-for-r.org/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] \"bactopen\"             \"cloxacap\"             \"cloxacillinhydrate\"   #>  [4] \"cloxypen\"             \"floxacillin\"          \"floxacillinanhydrous\" #>  [7] \"floxapen\"             \"floxapensalt\"         \"fluclomix\"            #> [10] \"flucloxacilina\"       \"flucloxacilline\"      \"flucloxacillinum\"     #> [13] \"flucloxin\"            \"fluorochloroxacillin\" \"galfloxin\"            #> [16] \"latocillin\"           \"orbeninhydrate\"       \"rimaflox\"             #> [19] \"staphobristol\"        \"zoxin\""},{"path":"https://amr-for-r.org/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. antimicrobial results example_isolates data set. patient names created using online surname generators place practice purposes.","code":""},{"path":"https://amr-for-r.org/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://amr-for-r.org/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 antimicrobials. can lookup abbreviations antimicrobials data set, use e.g. ab_name(\"AMP\") get official name immediately. analysis, transform valid antimicrobial class, using .sir().","code":""},{"path":"https://amr-for-r.org/reference/WHONET.html","id":"download-our-reference-data","dir":"Reference","previous_headings":"","what":"Download Our Reference Data","title":"Data Set with 500 Isolates - WHONET Example — WHONET","text":"reference data sets AMR package - including information microorganisms, antimicrobials, clinical breakpoints - freely available download multiple formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. maximum compatibility, also provide machine-readable, tab-separated plain text files suitable use software, including laboratory information systems. Visit website direct download links, explore actual files GitHub repository.","code":""},{"path":"https://amr-for-r.org/reference/WHONET.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with 500 Isolates - WHONET Example — WHONET","text":"","code":"WHONET #> # A tibble: 500 × 53 #>    `Identification number` `Specimen number` Organism Country         Laboratory #>    <chr>                               <int> <chr>    <chr>           <chr>      #>  1 fe41d7bafa                           1748 SPN      Belgium         National … #>  2 91f175ec37                           1767 eco      The Netherlands National … #>  3 cc4015056e                           1343 eco      The Netherlands National … #>  4 e864b692f5                           1894 MAP      Denmark         National … #>  5 3d051fe345                           1739 PVU      Belgium         National … #>  6 c80762a08d                           1846 103      The Netherlands National … #>  7 8022d3727c                           1628 103      Denmark         National … #>  8 f3dc5f553d                           1493 eco      The Netherlands National … #>  9 15add38f6c                           1847 eco      France          National … #> 10 fd41248def                           1458 eco      Germany         National … #> # ℹ 490 more rows #> # ℹ 48 more variables: `Last name` <chr>, `First name` <chr>, Sex <chr>, #> #   Age <dbl>, `Age category` <chr>, `Date of admission` <date>, #> #   `Specimen date` <date>, `Specimen type` <chr>, #> #   `Specimen type (Numeric)` <dbl>, Reason <chr>, `Isolate number` <int>, #> #   `Organism type` <chr>, Serotype <chr>, `Beta-lactamase` <lgl>, ESBL <lgl>, #> #   Carbapenemase <lgl>, `MRSA screening test` <lgl>, …"},{"path":"https://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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 antimicrobials 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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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\" \"Fluoroquinolones\"          if (require(\"dplyr\")) {   tibble(clinical_text = c(     \"given 400mg cipro and 500 mg amox\",     \"started on doxy iv today\"   )) %>%     mutate(       abx_codes = ab_from_text(clinical_text),       abx_doses = ab_from_text(clinical_text, type = \"doses\"),       abx_admin = ab_from_text(clinical_text, type = \"admin\"),       abx_coll = ab_from_text(clinical_text, collapse = \"|\"),       abx_coll_names = ab_from_text(clinical_text,         collapse = \"|\",         translate_ab = \"name\"       ),       abx_coll_doses = ab_from_text(clinical_text,         type = \"doses\",         collapse = \"|\"       ),       abx_coll_admin = ab_from_text(clinical_text,         type = \"admin\",         collapse = \"|\"       )     ) } #> Loading required package: dplyr #>  #> Attaching package: ‘dplyr’ #> The following objects are masked from ‘package:stats’: #>  #>     filter, lag #> The following objects are masked from ‘package:base’: #>  #>     intersect, setdiff, setequal, union #> # A tibble: 2 × 8 #>   clinical_text            abx_codes abx_doses abx_admin abx_coll abx_coll_names #>   <chr>                    <list>    <list>    <list>    <chr>    <chr>          #> 1 given 400mg cipro and 5… <ab [2]>  <dbl [2]> <chr [1]> CIP|AMX  Ciprofloxacin… #> 2 started on doxy iv today <ab [1]>  <dbl [1]> <chr [1]> DOX      Doxycycline    #> # ℹ 2 more variables: abx_coll_doses <chr>, abx_coll_admin <chr> # }"},{"path":"https://amr-for-r.org/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 antimicrobials data set. input values evaluated internally .ab().","code":""},{"path":"https://amr-for-r.org/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://amr-for-r.org/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 antimicrobials data set: vector_or(colnames(antimicrobials), 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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/reference/ab_property.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Get Properties of an Antibiotic — ab_property","text":"World Health Organization () Collaborating Centre Drug Statistics Methodology: https://atcddd.fhi./atc_ddd_index/ European Commission Public Health PHARMACEUTICALS - COMMUNITY REGISTER: https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm","code":""},{"path":"https://amr-for-r.org/reference/ab_property.html","id":"download-our-reference-data","dir":"Reference","previous_headings":"","what":"Download Our Reference Data","title":"Get Properties of an Antibiotic — ab_property","text":"reference data sets AMR package - including information microorganisms, antimicrobials, clinical breakpoints - freely available download multiple formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. maximum compatibility, also provide machine-readable, tab-separated plain text files suitable use software, including laboratory information systems. Visit website direct download links, explore actual files GitHub repository.","code":""},{"path":[]},{"path":"https://amr-for-r.org/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\"  \"QG51AA03\" \"QJ01CA04\" ab_cid(\"AMX\") #> [1] 33613 ab_synonyms(\"AMX\") #>  [1] \"acuotricina\"     \"alfamox\"         \"alfida\"          \"amitron\"         #>  [5] \"amoclen\"         \"amodex\"          \"amoksicillin\"    \"amolin\"          #>  [9] \"amopen\"          \"amopenixin\"      \"amophar\"         \"amoran\"          #> [13] \"amoxi\"           \"amoxicaps\"       \"amoxicilina\"     \"amoxicilline\"    #> [17] \"amoxicillinum\"   \"amoxidal\"        \"amoxiden\"        \"amoxil\"          #> [21] \"amoxillat\"       \"amoxina\"         \"amoxine\"         \"amoxipen\"        #> [25] \"amoxivet\"        \"amoxycillin\"     \"amoxycillinsalt\" \"amoxyke\"         #> [29] \"anemolin\"        \"aspenil\"         \"atoksilin\"       \"bristamox\"       #> [33] \"cemoxin\"         \"ciblor\"          \"clamoxyl\"        \"damoxy\"          #> [37] \"danoxillin\"      \"delacillin\"      \"demoksil\"        \"dispermox\"       #> [41] \"efpenix\"         \"eupen\"           \"flemoxin\"        \"flemoxine\"       #> [45] \"galenamox\"       \"gramidil\"        \"hiconcil\"        \"himinomax\"       #> [49] \"histocillin\"     \"ibiamox\"         \"imacillin\"       \"izoltil\"         #> [53] \"kentrocyllin\"    \"lamoxy\"          \"largopen\"        \"larotid\"         #> [57] \"matasedrin\"      \"metifarma\"       \"moksilin\"        \"moxacin\"         #> [61] \"moxal\"           \"moxaline\"        \"moxatag\"         \"neotetranase\"    #> [65] \"novabritine\"     \"ospamox\"         \"pacetocin\"       \"pamocil\"         #> [69] \"paradroxil\"      \"pasetocin\"       \"penamox\"         \"piramox\"         #> [73] \"promoxil\"        \"quimiopen\"       \"remoxil\"         \"riotapen\"        #> [77] \"robamox\"         \"sawacillin\"      \"siganopen\"       \"simplamox\"       #> [81] \"sintopen\"        \"sumox\"           \"topramoxin\"      \"trifamox\"        #> [85] \"trimox\"          \"unicillin\"       \"utimox\"          \"velamox\"         #> [89] \"vetramox\"        \"wymox\"           \"zamocillin\"      \"zamocilline\"     #> [93] \"zimox\"           ab_tradenames(\"AMX\") #>  [1] \"acuotricina\"     \"alfamox\"         \"alfida\"          \"amitron\"         #>  [5] \"amoclen\"         \"amodex\"          \"amoksicillin\"    \"amolin\"          #>  [9] \"amopen\"          \"amopenixin\"      \"amophar\"         \"amoran\"          #> [13] \"amoxi\"           \"amoxicaps\"       \"amoxicilina\"     \"amoxicilline\"    #> [17] \"amoxicillinum\"   \"amoxidal\"        \"amoxiden\"        \"amoxil\"          #> [21] \"amoxillat\"       \"amoxina\"         \"amoxine\"         \"amoxipen\"        #> [25] \"amoxivet\"        \"amoxycillin\"     \"amoxycillinsalt\" \"amoxyke\"         #> [29] \"anemolin\"        \"aspenil\"         \"atoksilin\"       \"bristamox\"       #> [33] \"cemoxin\"         \"ciblor\"          \"clamoxyl\"        \"damoxy\"          #> [37] \"danoxillin\"      \"delacillin\"      \"demoksil\"        \"dispermox\"       #> [41] \"efpenix\"         \"eupen\"           \"flemoxin\"        \"flemoxine\"       #> [45] \"galenamox\"       \"gramidil\"        \"hiconcil\"        \"himinomax\"       #> [49] \"histocillin\"     \"ibiamox\"         \"imacillin\"       \"izoltil\"         #> [53] \"kentrocyllin\"    \"lamoxy\"          \"largopen\"        \"larotid\"         #> [57] \"matasedrin\"      \"metifarma\"       \"moksilin\"        \"moxacin\"         #> [61] \"moxal\"           \"moxaline\"        \"moxatag\"         \"neotetranase\"    #> [65] \"novabritine\"     \"ospamox\"         \"pacetocin\"       \"pamocil\"         #> [69] \"paradroxil\"      \"pasetocin\"       \"penamox\"         \"piramox\"         #> [73] \"promoxil\"        \"quimiopen\"       \"remoxil\"         \"riotapen\"        #> [77] \"robamox\"         \"sawacillin\"      \"siganopen\"       \"simplamox\"       #> [81] \"sintopen\"        \"sumox\"           \"topramoxin\"      \"trifamox\"        #> [85] \"trimox\"          \"unicillin\"       \"utimox\"          \"velamox\"         #> [89] \"vetramox\"        \"wymox\"           \"zamocillin\"      \"zamocilline\"     #> [93] \"zimox\"           ab_group(\"AMX\") #> [1] \"Beta-lactams/penicillins\" ab_atc_group1(\"AMX\") #> [1] \"Beta-lactam antibacterials, penicillins\" ab_atc_group2(\"AMX\") #> [1] \"Penicillins with extended spectrum\" ab_url(\"AMX\") #>                                                             Amoxicillin  #> \"https://atcddd.fhi.no/atc_ddd_index//?code=J01CA04&showdescription=no\"   # smart lowercase transformation ab_name(x = c(\"AMC\", \"PLB\")) #> [1] \"Amoxicillin/clavulanic acid\" \"Polymyxin B\"                 ab_name(x = c(\"AMC\", \"PLB\"), tolower = TRUE) #> [1] \"amoxicillin/clavulanic acid\" \"polymyxin B\"                  # defined daily doses (DDD) ab_ddd(\"AMX\", \"oral\") #> [1] 1.5 ab_ddd_units(\"AMX\", \"oral\") #> [1] \"g\" ab_ddd(\"AMX\", \"iv\") #> [1] 3 ab_ddd_units(\"AMX\", \"iv\") #> [1] \"g\"  ab_info(\"AMX\") # all properties as a list #> $ab #> [1] \"AMX\" #>  #> $cid #> [1] 33613 #>  #> $name #> [1] \"Amoxicillin\" #>  #> $group #> [1] \"Beta-lactams/penicillins\" #>  #> $atc #> [1] \"J01CA04\"  \"QG51AA03\" \"QJ01CA04\" #>  #> $atc_group1 #> [1] \"Beta-lactam antibacterials, penicillins\" #>  #> $atc_group2 #> [1] \"Penicillins with extended spectrum\" #>  #> $tradenames #>  [1] \"acuotricina\"     \"alfamox\"         \"alfida\"          \"amitron\"         #>  [5] \"amoclen\"         \"amodex\"          \"amoksicillin\"    \"amolin\"          #>  [9] \"amopen\"          \"amopenixin\"      \"amophar\"         \"amoran\"          #> [13] \"amoxi\"           \"amoxicaps\"       \"amoxicilina\"     \"amoxicilline\"    #> [17] \"amoxicillinum\"   \"amoxidal\"        \"amoxiden\"        \"amoxil\"          #> [21] \"amoxillat\"       \"amoxina\"         \"amoxine\"         \"amoxipen\"        #> [25] \"amoxivet\"        \"amoxycillin\"     \"amoxycillinsalt\" \"amoxyke\"         #> [29] \"anemolin\"        \"aspenil\"         \"atoksilin\"       \"bristamox\"       #> [33] \"cemoxin\"         \"ciblor\"          \"clamoxyl\"        \"damoxy\"          #> [37] \"danoxillin\"      \"delacillin\"      \"demoksil\"        \"dispermox\"       #> [41] \"efpenix\"         \"eupen\"           \"flemoxin\"        \"flemoxine\"       #> [45] \"galenamox\"       \"gramidil\"        \"hiconcil\"        \"himinomax\"       #> [49] \"histocillin\"     \"ibiamox\"         \"imacillin\"       \"izoltil\"         #> [53] \"kentrocyllin\"    \"lamoxy\"          \"largopen\"        \"larotid\"         #> [57] \"matasedrin\"      \"metifarma\"       \"moksilin\"        \"moxacin\"         #> [61] \"moxal\"           \"moxaline\"        \"moxatag\"         \"neotetranase\"    #> [65] \"novabritine\"     \"ospamox\"         \"pacetocin\"       \"pamocil\"         #> [69] \"paradroxil\"      \"pasetocin\"       \"penamox\"         \"piramox\"         #> [73] \"promoxil\"        \"quimiopen\"       \"remoxil\"         \"riotapen\"        #> [77] \"robamox\"         \"sawacillin\"      \"siganopen\"       \"simplamox\"       #> [81] \"sintopen\"        \"sumox\"           \"topramoxin\"      \"trifamox\"        #> [85] \"trimox\"          \"unicillin\"       \"utimox\"          \"velamox\"         #> [89] \"vetramox\"        \"wymox\"           \"zamocillin\"      \"zamocilline\"     #> [93] \"zimox\"           #>  #> $loinc #>  [1] \"101498-4\" \"15-8\"     \"16-6\"     \"16365-9\"  \"17-4\"     \"18-2\"     #>  [7] \"18861-5\"  \"18862-3\"  \"19-0\"     \"20-8\"     \"21-6\"     \"22-4\"     #> [13] \"25274-2\"  \"25310-4\"  \"3344-9\"   \"55614-2\"  \"55615-9\"  \"55616-7\"  #> [19] \"6976-5\"   \"6977-3\"   \"80133-2\"  #>  #> $ddd #> $ddd$oral #> $ddd$oral$amount #> [1] 1.5 #>  #> $ddd$oral$units #> [1] \"g\" #>  #>  #> $ddd$iv #> $ddd$iv$amount #> [1] 3 #>  #> $ddd$iv$units #> [1] \"g\" #>  #>  #>   # all ab_* functions use as.ab() internally, so you can go from 'any' to 'any': ab_atc(\"AMP\") #> [1] \"J01CA01\"  \"QJ01CA01\" \"QJ51CA01\" \"QS01AA19\" \"S01AA19\"  ab_group(\"J01CA01\") #> [1] \"Beta-lactams/penicillins\" ab_loinc(\"ampicillin\") #>  [1] \"101477-8\" \"101478-6\" \"18864-9\"  \"18865-6\"  \"20374-5\"  \"21066-6\"  #>  [7] \"23618-2\"  \"27-3\"     \"28-1\"     \"29-9\"     \"30-7\"     \"31-5\"     #> [13] \"32-3\"     \"33-1\"     \"3355-5\"   \"33562-0\"  \"33919-2\"  \"34-9\"     #> [19] \"43883-8\"  \"43884-6\"  \"6979-9\"   \"6980-7\"   \"87604-5\"  ab_name(\"21066-6\") #> [1] \"Ampicillin\" ab_name(6249) #> [1] \"Ampicillin\" ab_name(\"J01CA01\") #> [1] \"Ampicillin\"  # spelling from different languages and dyslexia are no problem ab_atc(\"ceftriaxon\") #> [1] \"J01DD04\"  \"QJ01DD04\" ab_atc(\"cephtriaxone\") #> [1] \"J01DD04\"  \"QJ01DD04\" ab_atc(\"cephthriaxone\") #> [1] \"J01DD04\"  \"QJ01DD04\" ab_atc(\"seephthriaaksone\") #> [1] \"J01DD04\"  \"QJ01DD04\"  # 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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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 antimicrobials data set, least containing columns \"ab\" \"name\".","code":""},{"path":"https://amr-for-r.org/reference/add_custom_antimicrobials.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Add Custom Antimicrobials — add_custom_antimicrobials","text":"Important: Due R works, add_custom_antimicrobials() function run every R session - added antimicrobials stored sessions thus lost R exited. two ways circumvent automate process adding antimicrobials: Method 1: Using package option AMR_custom_ab, preferred method. use method: Create data set structure antimicrobials data set (containing least columns \"ab\" \"name\") save saveRDS() location choice, e.g. \"~/my_custom_ab.rds\", remote location. Set file location package option AMR_custom_ab: options(AMR_custom_ab = \"~/my_custom_ab.rds\"). can even remote file location, https URL. Since options saved R sessions, best save option .Rprofile file loaded start-R. , open .Rprofile file using e.g. utils::file.edit(\"~/.Rprofile\"), add text save file:   Upon package load, file loaded run add_custom_antimicrobials() function. Method 2: Loading antimicrobial additions directly .Rprofile file. Note definitions stored user-specific R file, suboptimal workflow. use method: Edit .Rprofile file using e.g. utils::file.edit(\"~/.Rprofile\"). Add text like save file:   Use clear_custom_antimicrobials() clear previously added antimicrobials.","code":"# Add custom antimicrobial codes: options(AMR_custom_ab = \"~/my_custom_ab.rds\") # Add custom antibiotic drug codes:  AMR::add_custom_antimicrobials(    data.frame(ab = \"TESTAB\",               name = \"Test Antibiotic\",               group = \"Test Group\")  )"},{"path":[]},{"path":"https://amr-for-r.org/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 a wildly guessed result: as.ab(\"testab\") #> Class 'ab' #> [1] THA  # 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     # 'antimicrobials' data set, such as 'group':     group = \"Test Group\"   ) ) #> ℹ Added one record to the internal `antimicrobials` data set.  # \"testab\" is now a new antibiotic: as.ab(\"testab\") #> Class 'ab' #> [1] TESTAB ab_name(\"testab\") #> [1] \"Test Antibiotic\" ab_group(\"testab\") #> [1] \"Test Group\"  ab_info(\"testab\") #> $ab #> [1] \"TESTAB\" #>  #> $cid #> [1] NA #>  #> $name #> [1] \"Test Antibiotic\" #>  #> $group #> [1] \"Test Group\" #>  #> $atc #> [1] NA #>  #> $atc_group1 #> [1] NA #>  #> $atc_group2 #> [1] NA #>  #> $tradenames #> [1] NA #>  #> $loinc #> [1] NA #>  #> $ddd #> $ddd$oral #> $ddd$oral$amount #> [1] NA #>  #> $ddd$oral$units #> [1] NA #>  #>  #> $ddd$iv #> $ddd$iv$amount #> [1] NA #>  #> $ddd$iv$units #> [1] NA #>  #>  #>    # Add Co-fluampicil, which is one of the many J01CR50 codes, see # https://atcddd.fhi.no/ddd/list_of_ddds_combined_products/ add_custom_antimicrobials(   data.frame(     ab = \"COFLU\",     name = \"Co-fluampicil\",     atc = \"J01CR50\",     group = \"Beta-lactams/penicillins\"   ) ) #> ℹ Added one record to the internal `antimicrobials` data set. ab_atc(\"Co-fluampicil\") #> [1] \"J01CR50\" ab_name(\"J01CR50\") #> [1] \"Co-fluampicil\"  # even antimicrobial selectors work # see ?amr_selector 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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/reference/add_custom_microorganisms.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Add Custom Microorganisms — add_custom_microorganisms","text":"function fill missing taxonomy , specific taxonomic columns missing, see Examples. Important: Due R works, add_custom_microorganisms() function run every R session - added microorganisms stored sessions thus lost R exited. two ways circumvent automate process adding microorganisms: Method 1: Using package option AMR_custom_mo, preferred method. use method: Create data set structure microorganisms data set (containing least column \"genus\") save saveRDS() location choice, e.g. \"~/my_custom_mo.rds\", remote location. Set file location package option AMR_custom_mo: options(AMR_custom_mo = \"~/my_custom_mo.rds\"). can even remote file location, https URL. Since options saved R sessions, best save option .Rprofile file loaded start-R. , open .Rprofile file using e.g. utils::file.edit(\"~/.Rprofile\"), add text save file:   Upon package load, file loaded run add_custom_microorganisms() function. Method 2: Loading microorganism directly .Rprofile file. Note definitions stored user-specific R file, suboptimal workflow. use method: Edit .Rprofile file using e.g. utils::file.edit(\"~/.Rprofile\"). Add text like save file:   Use clear_custom_microorganisms() clear previously added microorganisms.","code":"# Add custom microorganism codes: options(AMR_custom_mo = \"~/my_custom_mo.rds\") # Add custom antibiotic drug codes:  AMR::add_custom_microorganisms(    data.frame(genus = \"Enterobacter\",               species = \"asburiae/cloacae\")  )"},{"path":[]},{"path":"https://amr-for-r.org/reference/add_custom_microorganisms.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Add Custom Microorganisms — add_custom_microorganisms","text":"","code":"# \\donttest{ # a combination of species is not formal taxonomy, so # this will result in \"Enterobacter cloacae cloacae\", # since it resembles the input best: mo_name(\"Enterobacter asburiae/cloacae\") #> [1] \"Enterobacter asburiae\"  # now add a custom entry - it will be considered by as.mo() and # all mo_*() functions add_custom_microorganisms(   data.frame(     genus = \"Enterobacter\",     species = \"asburiae/cloacae\"   ) ) #> ℹ Added Enterobacter asburiae/cloacae to the internal `microorganisms` data #>   set.  # E. asburiae/cloacae is now a new microorganism: mo_name(\"Enterobacter asburiae/cloacae\") #> [1] \"Enterobacter asburiae/cloacae\"  # its code: as.mo(\"Enterobacter asburiae/cloacae\") #> Class 'mo' #> [1] CUSTOM1_ENTRB_ASB/  # all internal algorithms will work as well: mo_name(\"Ent asburia cloacae\") #> [1] \"Enterobacter asburiae/cloacae\"  # and even the taxonomy was added based on the genus! mo_family(\"E. asburiae/cloacae\") #> [1] \"Enterobacteriaceae\" mo_gramstain(\"Enterobacter asburiae/cloacae\") #> [1] \"Gram-negative\"  mo_info(\"Enterobacter asburiae/cloacae\") #> $mo #> [1] \"CUSTOM1_ENTRB_ASB/\" #>  #> $rank #> [1] \"species\" #>  #> $kingdom #> [1] \"Bacteria\" #>  #> $phylum #> [1] \"Pseudomonadota\" #>  #> $class #> [1] \"Gammaproteobacteria\" #>  #> $order #> [1] \"Enterobacterales\" #>  #> $family #> [1] \"Enterobacteriaceae\" #>  #> $genus #> [1] \"Enterobacter\" #>  #> $species #> [1] \"asburiae/cloacae\" #>  #> $subspecies #> [1] \"\" #>  #> $status #> [1] \"accepted\" #>  #> $synonyms #> NULL #>  #> $gramstain #> [1] \"Gram-negative\" #>  #> $oxygen_tolerance #> [1] NA #>  #> $url #> [1] \"\" #>  #> $ref #> [1] \"Self-added, 2025\" #>  #> $snomed #> [1] NA #>  #> $lpsn #> [1] NA #>  #> $mycobank #> [1] NA #>  #> $gbif #> [1] NA #>  #> $group_members #> character(0) #>    # the function tries to be forgiving: add_custom_microorganisms(   data.frame(     GENUS = \"BACTEROIDES / PARABACTEROIDES SLASHLINE\",     SPECIES = \"SPECIES\"   ) ) #> ℹ Added Bacteroides/Parabacteroides to the internal `microorganisms` data #>   set. mo_name(\"BACTEROIDES / PARABACTEROIDES\") #> [1] \"Bacteroides/Parabacteroides\" mo_rank(\"BACTEROIDES / PARABACTEROIDES\") #> [1] \"genus\"  # taxonomy still works, even though a slashline genus was given as input: mo_family(\"Bacteroides/Parabacteroides\") #> [1] \"Bacteroidaceae\"   # for groups and complexes, set them as species or subspecies: add_custom_microorganisms(   data.frame(     genus = \"Citrobacter\",     species = c(\"freundii\", \"braakii complex\"),     subspecies = c(\"complex\", \"\")   ) ) #> ℹ Added Citrobacter braakii complex and Citrobacter freundii complex to the #>   internal `microorganisms` data set. mo_name(c(\"C. freundii complex\", \"C. braakii complex\")) #> [1] \"Citrobacter freundii complex\" \"Citrobacter braakii complex\"  mo_species(c(\"C. freundii complex\", \"C. braakii complex\")) #> [1] \"freundii complex\" \"braakii complex\"  mo_gramstain(c(\"C. freundii complex\", \"C. braakii complex\")) #> [1] \"Gram-negative\" \"Gram-negative\" # }"},{"path":"https://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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  1980-02-27  45  45.81918         19 #> 2  1953-07-26  72  72.41096         46 #> 3  1949-09-02  76  76.30685         50 #> 4  1986-08-03  39  39.38904         13 #> 5  1932-11-19  93  93.09315         67 #> 6  1949-03-30  76  76.73425         50 #> 7  1996-06-23  29  29.50137          3 #> 8  1963-09-16  62  62.26849         36 #> 9  1952-05-16  73  73.60548         47 #> 10 1952-11-14  73  73.10685         47"},{"path":"https://amr-for-r.org/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. function returns ordered factor.","code":""},{"path":"https://amr-for-r.org/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(0, 12, 25, 55, 75), names = NULL,   na.rm = FALSE)"},{"path":"https://amr-for-r.org/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. names Optional names given various age groups. na.rm logical indicate whether missing values removed.","code":""},{"path":"https://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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+ age_groups(ages, c(20, 50), names = c(\"Under 20 years\", \"20 to 50 years\", \"Over 50 years\")) #> [1] Under 20 years Under 20 years Under 20 years Over 50 years  20 to 50 years #> [6] Over 50 years  Over 50 years  20 to 50 years 20 to 50 years #> Levels: Under 20 years < 20 to 50 years < Over 50 years  # 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://amr-for-r.org/reference/amr-tidymodels.html","id":null,"dir":"Reference","previous_headings":"","what":"AMR Extensions for Tidymodels — amr-tidymodels","title":"AMR Extensions for Tidymodels — amr-tidymodels","text":"family functions allows using AMR-specific data types <sir> <mic> inside tidymodels pipelines.","code":""},{"path":"https://amr-for-r.org/reference/amr-tidymodels.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"AMR Extensions for Tidymodels — amr-tidymodels","text":"","code":"all_sir()  all_sir_predictors()  all_mic()  all_mic_predictors()  all_disk()  all_disk_predictors()  step_mic_log2(recipe, ..., role = NA, trained = FALSE, columns = NULL,   skip = FALSE, id = recipes::rand_id(\"mic_log2\"))  step_sir_numeric(recipe, ..., role = NA, trained = FALSE, columns = NULL,   skip = FALSE, id = recipes::rand_id(\"sir_numeric\"))"},{"path":"https://amr-for-r.org/reference/amr-tidymodels.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"AMR Extensions for Tidymodels — amr-tidymodels","text":"recipe recipe object. step added sequence operations recipe. ... One selector functions choose variables step. See selections() details. role used step since new variables created. trained logical indicate quantities preprocessing estimated. skip logical. step skipped recipe baked bake()? operations baked prep() run, operations may able conducted new data (e.g. processing outcome variable(s)). Care taken using skip = TRUE may affect computations subsequent operations. id character string unique step identify .","code":""},{"path":"https://amr-for-r.org/reference/amr-tidymodels.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"AMR Extensions for Tidymodels — amr-tidymodels","text":"can read online AMR tidymodels introduction. Tidyselect helpers include: all_sir() all_sir_predictors() select <sir> columns all_mic() all_mic_predictors() select <mic> columns all_disk() all_disk_predictors() select <disk> columns Pre-processing pipeline steps include: step_sir_numeric() convert SIR columns numeric (via .numeric()), used all_sir_predictors(): \"S\" = 1, \"\"/\"SDD\" = 2, \"R\" = 3. values rendered NA. Keep mind processing, especially model allow NA values. step_mic_log2() convert MIC columns numeric (via .numeric()) apply log2 transform, used all_mic_predictors() steps integrate recipes::recipe() work like standard preprocessing steps. useful preparing data modelling, especially classification models.","code":""},{"path":[]},{"path":"https://amr-for-r.org/reference/amr-tidymodels.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"AMR Extensions for Tidymodels — amr-tidymodels","text":"","code":"if (require(\"tidymodels\")) {    # The below approach formed the basis for this paper: DOI 10.3389/fmicb.2025.1582703   # Presence of ESBL genes was predicted based on raw MIC values.     # example data set in the AMR package   esbl_isolates    # Prepare a binary outcome and convert to ordered factor   data <- esbl_isolates %>%     mutate(esbl = factor(esbl, levels = c(FALSE, TRUE), ordered = TRUE))    # Split into training and testing sets   split <- initial_split(data)   training_data <- training(split)   testing_data <- testing(split)    # Create and prep a recipe with MIC log2 transformation   mic_recipe <- recipe(esbl ~ ., data = training_data) %>%      # Optionally remove non-predictive variables     remove_role(genus, old_role = \"predictor\") %>%      # Apply the log2 transformation to all MIC predictors     step_mic_log2(all_mic_predictors()) %>%      # And apply the preparation steps     prep()    # View prepped recipe   mic_recipe    # Apply the recipe to training and testing data   out_training <- bake(mic_recipe, new_data = NULL)   out_testing <- bake(mic_recipe, new_data = testing_data)    # Fit a logistic regression model   fitted <- logistic_reg(mode = \"classification\") %>%     set_engine(\"glm\") %>%     fit(esbl ~ ., data = out_training)    # Generate predictions on the test set   predictions <- predict(fitted, out_testing) %>%     bind_cols(out_testing)    # Evaluate predictions using standard classification metrics   our_metrics <- metric_set(accuracy,                             recall,                             precision,                             sensitivity,                             specificity,                             ppv,                             npv)   metrics <- our_metrics(predictions, truth = esbl, estimate = .pred_class)    # Show performance   metrics } #> Loading required package: tidymodels #> ── Attaching packages ────────────────────────────────────── tidymodels 1.4.1 ── #> ✔ broom        1.0.11     ✔ rsample      1.3.1  #> ✔ dials        1.4.2      ✔ tailor       0.1.0  #> ✔ infer        1.1.0      ✔ tidyr        1.3.2  #> ✔ modeldata    1.5.1      ✔ tune         2.0.1  #> ✔ parsnip      1.4.0      ✔ workflows    1.3.0  #> ✔ purrr        1.2.0      ✔ workflowsets 1.1.1  #> ✔ recipes      1.3.1      ✔ yardstick    1.3.2  #> ── Conflicts ───────────────────────────────────────── tidymodels_conflicts() ── #> ✖ purrr::discard() masks scales::discard() #> ✖ dplyr::filter()  masks stats::filter() #> ✖ dplyr::lag()     masks stats::lag() #> ✖ recipes::step()  masks stats::step() #> Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred #> # A tibble: 7 × 3 #>   .metric     .estimator .estimate #>   <chr>       <chr>          <dbl> #> 1 accuracy    binary         0.936 #> 2 recall      binary         0.954 #> 3 precision   binary         0.925 #> 4 sensitivity binary         0.954 #> 5 specificity binary         0.917 #> 6 ppv         binary         0.925 #> 7 npv         binary         0.948"},{"path":"https://amr-for-r.org/reference/antibiogram.html","id":null,"dir":"Reference","previous_headings":"","what":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","title":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","text":"Create detailed antibiograms options traditional, combination, syndromic, Bayesian WISCA methods. Adhering previously described approaches (see Source) especially Bayesian WISCA model (Weighted-Incidence Syndromic Combination Antibiogram) Bielicki et al., functions provide flexible output formats including plots tables, ideal integration R Markdown Quarto reports.","code":""},{"path":"https://amr-for-r.org/reference/antibiogram.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","text":"","code":"antibiogram(x, antimicrobials = where(is.sir), mo_transform = \"shortname\",   ab_transform = \"name\", syndromic_group = NULL, add_total_n = FALSE,   only_all_tested = FALSE, digits = ifelse(wisca, 1, 0),   formatting_type = getOption(\"AMR_antibiogram_formatting_type\",   ifelse(wisca, 14, 18)), col_mo = NULL, language = get_AMR_locale(),   minimum = 30, combine_SI = TRUE, sep = \" + \", sort_columns = TRUE,   wisca = FALSE, simulations = 1000, conf_interval = 0.95,   interval_side = \"two-tailed\", info = interactive(), ...)  wisca(x, antimicrobials = where(is.sir), ab_transform = \"name\",   syndromic_group = NULL, only_all_tested = FALSE, digits = 1,   formatting_type = getOption(\"AMR_antibiogram_formatting_type\", 14),   col_mo = NULL, language = get_AMR_locale(), combine_SI = TRUE,   sep = \" + \", sort_columns = TRUE, simulations = 1000,   conf_interval = 0.95, interval_side = \"two-tailed\",   info = interactive(), ...)  retrieve_wisca_parameters(wisca_model, ...)  # S3 method for class 'antibiogram' plot(x, ...)  # S3 method for class 'antibiogram' autoplot(object, ...)  # S3 method for class 'antibiogram' knit_print(x, italicise = TRUE,   na = getOption(\"knitr.kable.NA\", default = \"\"), ...)"},{"path":"https://amr-for-r.org/reference/antibiogram.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","text":"Bielicki JA et al. (2016). Selecting appropriate empirical antibiotic regimens paediatric bloodstream infections: application Bayesian decision model local pooled antimicrobial resistance surveillance data Journal Antimicrobial Chemotherapy 71(3); doi:10.1093/jac/dkv397 Bielicki JA et al. (2020). Evaluation coverage 3 antibiotic regimens neonatal sepsis hospital setting across Asian countries JAMA Netw Open. 3(2):e1921124; doi:10.1001/jamanetworkopen.2019.21124 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://amr-for-r.org/reference/antibiogram.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","text":"x data.frame containing least column microorganisms columns antimicrobial results (class 'sir', see .sir()). antimicrobials vector specifying antimicrobials containing SIR values include antibiogram (see Examples). evaluated using guess_ab_col(). can : antimicrobial name code match (see guess_ab_col()) column x antimicrobial selector, aminoglycosides() carbapenems() combination , using c(), e.g.: c(aminoglycosides(), \"AMP\", \"AMC\") c(aminoglycosides(), carbapenems()) Column indices using numbers Combination therapy, indicated using \"+\", without antimicrobial selectors, e.g.: \"cipro + genta\" \"TZP+TOB\" c(\"TZP\", \"TZP+GEN\", \"TZP+TOB\") carbapenems() + \"GEN\" carbapenems() + c(\"\", \"GEN\") carbapenems() + c(\"\", aminoglycosides()) mo_transform character transform microorganism input - must \"name\", \"shortname\" (default), \"gramstain\", one column names microorganisms data set: \"mo\", \"fullname\", \"status\", \"kingdom\", \"phylum\", \"class\", \"order\", \"family\", \"genus\", \"species\", \"subspecies\", \"rank\", \"ref\", \"oxygen_tolerance\", \"source\", \"lpsn\", \"lpsn_parent\", \"lpsn_renamed_to\", \"mycobank\", \"mycobank_parent\", \"mycobank_renamed_to\", \"gbif\", \"gbif_parent\", \"gbif_renamed_to\", \"prevalence\", \"snomed\". Can also NULL transform input NA consider microorganisms 'unknown'. ab_transform character transform antimicrobial input - must one column names antimicrobials data set (defaults \"name\"): \"ab\", \"cid\", \"name\", \"group\", \"atc\", \"atc_group1\", \"atc_group2\", \"abbreviations\", \"synonyms\", \"oral_ddd\", \"oral_units\", \"iv_ddd\", \"iv_units\", \"loinc\". Can also NULL transform input. syndromic_group column name x, values calculated split rows x, e.g. using ifelse() case_when(). See Examples. add_total_n (deprecated favour formatting_type) logical indicate whether n_tested available numbers per pathogen added table (default TRUE). add lowest highest number available isolates per antimicrobial (e.g, E. coli 200 isolates available ciprofloxacin 150 amoxicillin, returned number \"150-200\"). option unavailable wisca = TRUE; case, use retrieve_wisca_parameters() get parameters used WISCA. only_all_tested (combination antibiograms): logical indicate isolates must tested antimicrobials, see Details. digits Number digits use rounding antimicrobial coverage, defaults 1 WISCA 0 otherwise. formatting_type Numeric value (1–22 WISCA, 1-12 non-WISCA) indicating 'cells' antibiogram table formatted. See Details > Formatting Type list options. col_mo Column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). language Language translate text, defaults system language (see get_AMR_locale()). minimum minimum allowed number available (tested) isolates. isolate count lower minimum return NA warning. default number 30 isolates advised Clinical Laboratory Standards Institute (CLSI) best practice, see Source. combine_SI logical indicate whether susceptibility determined results either S, SDD, , instead S (default TRUE). sep separating character antimicrobial columns combination antibiograms. sort_columns logical indicate whether antimicrobial columns must sorted name. wisca logical indicate whether Weighted-Incidence Syndromic Combination Antibiogram (WISCA) must generated (default FALSE). use Bayesian decision model estimate regimen coverage probabilities using Monte Carlo simulations. Set simulations, conf_interval, interval_side adjust. simulations (WISCA) numerical value set number Monte Carlo simulations. conf_interval numerical value set confidence interval (default 0.95). interval_side side confidence interval, either \"two-tailed\" (default), \"left\" \"right\". info logical indicate info printed - default TRUE interactive mode. ... used R Markdown Quarto: arguments passed knitr::kable() (otherwise, use). wisca_model outcome wisca() antibiogram(..., wisca = TRUE). 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://amr-for-r.org/reference/antibiogram.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","text":"functions return table values 0 100 susceptibility, resistance. Remember filter data let contain first isolates! needed exclude duplicates reduce selection bias. Use first_isolate() determine one four available algorithms: isolate-based, patient-based, episode-based, phenotype-based. estimating antimicrobial coverage, especially creating WISCA, outcome might become reliable including top n species encountered data. can filter top n using top_n_microorganisms(). example, use top_n_microorganisms(your_data, n = 10) pre-processing step include top 10 species data. numeric values antibiogram stored long format attribute long_numeric. can retrieve using attributes(x)$long_numeric, x outcome antibiogram() wisca(). ideal e.g. advanced plotting.","code":""},{"path":"https://amr-for-r.org/reference/antibiogram.html","id":"formatting-type","dir":"Reference","previous_headings":"","what":"Formatting Type","title":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","text":"formatting 'cells' table can set argument formatting_type. examples, 5 indicates antimicrobial coverage (4-6 confidence level), 15 number susceptible isolates, 300 number tested (.e., available) isolates: 5 15 300 15/300 5 (300) 5% (300) 5 (N=300) 5% (N=300) 5 (15/300) 5% (15/300) 5 (N=15/300) 5% (N=15/300) 5 (4-6) 5% (4-6%) - default WISCA 5 (4-6,300) 5% (4-6%,300) 5 (4-6,N=300) 5% (4-6%,N=300) - default non-WISCA 5 (4-6,15/300) 5% (4-6%,15/300) 5 (4-6,N=15/300) 5% (4-6%,N=15/300) default can set globally package option AMR_antibiogram_formatting_type, e.g. options(AMR_antibiogram_formatting_type = 5). note WISCA, total numbers tested susceptible isolates less useful report, since included Bayesian model apparent susceptibility confidence level. Set digits (defaults 0) alter rounding susceptibility percentages.","code":""},{"path":"https://amr-for-r.org/reference/antibiogram.html","id":"antibiogram-types","dir":"Reference","previous_headings":"","what":"Antibiogram Types","title":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","text":"various antibiogram types, summarised Klinker et al. (2021, doi:10.1177/20499361211011373 ), supported antibiogram(). clinical coverage estimations, use WISCA whenever possible, since provides precise coverage estimates accounting pathogen incidence antimicrobial susceptibility, shown Bielicki et al. (2020, doi:10.1001/jamanetworkopen.2019.21124 ). See section Explaining WISCA page. note WISCA pathogen-agnostic, meaning outcome stratied pathogen, rather syndrome. Traditional Antibiogram Case example: Susceptibility Pseudomonas aeruginosa piperacillin/tazobactam (TZP) Code example:   Combination Antibiogram Case example: Additional susceptibility Pseudomonas aeruginosa TZP + tobramycin versus TZP alone Code example:   Syndromic Antibiogram Case example: Susceptibility Pseudomonas aeruginosa TZP among respiratory specimens (obtained among ICU patients ) Code example:   Weighted-Incidence Syndromic Combination Antibiogram (WISCA) WISCA can applied antibiogram, see section Explaining WISCA page information. Code example:   WISCA uses sophisticated Bayesian decision model combine local pooled antimicrobial resistance data. approach evaluates local patterns can also draw multi-centre data sets improve regimen accuracy, even low-incidence infections like paediatric bloodstream infections (BSIs).","code":"antibiogram(your_data,             antimicrobials = \"TZP\") antibiogram(your_data,             antimicrobials = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\")) antibiogram(your_data,             antimicrobials = penicillins(),             syndromic_group = \"ward\") antibiogram(your_data,             antimicrobials = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\"),             wisca = TRUE)  # this is equal to: wisca(your_data,       antimicrobials = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\"))"},{"path":"https://amr-for-r.org/reference/antibiogram.html","id":"grouped-tibbles","dir":"Reference","previous_headings":"","what":"Grouped tibbles","title":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","text":"type antibiogram, grouped tibbles can also used calculate susceptibilities various groups. Code example:","code":"library(dplyr) your_data %>%   group_by(has_sepsis, is_neonate, sex) %>%   wisca(antimicrobials = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\"))"},{"path":"https://amr-for-r.org/reference/antibiogram.html","id":"stepped-approach-for-clinical-insight","dir":"Reference","previous_headings":"","what":"Stepped Approach for Clinical Insight","title":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","text":"clinical practice, antimicrobial coverage decisions evolve microbiological data becomes available. theoretical stepped approach ensures empirical coverage can continuously assessed improve patient outcomes: Initial Empirical Therapy (Admission / Pre-Culture Data) admission, pathogen information available. Action: broad-spectrum coverage based local resistance patterns syndromic antibiograms. Using pathogen-agnostic yet incidence-weighted WISCA preferred. Code example:   Refinement Gram Stain Results blood culture becomes positive, Gram stain provides initial crucial first stratification (Gram-positive vs. Gram-negative). Action: narrow coverage based Gram stain-specific resistance patterns. Code example:   Definitive Therapy Based Species Identification cultivation pathogen, full pathogen identification allows precise targeting therapy. Action: adjust treatment pathogen-specific antibiograms, minimizing resistance risks. Code example:   structuring antibiograms around stepped approach, clinicians can make data-driven adjustments stage, ensuring optimal empirical targeted therapy reducing unnecessary broad-spectrum antimicrobial use.","code":"antibiogram(your_data,             antimicrobials = selected_regimens,             mo_transform = NA) # all pathogens set to `NA`  # preferred: use WISCA wisca(your_data,       antimicrobials = selected_regimens) antibiogram(your_data,             antimicrobials = selected_regimens,             mo_transform = \"gramstain\") # all pathogens set to Gram-pos/Gram-neg antibiogram(your_data,             antimicrobials = selected_regimens,             mo_transform = \"shortname\") # all pathogens set to 'G. species', e.g., E. coli"},{"path":"https://amr-for-r.org/reference/antibiogram.html","id":"inclusion-in-combination-antibiograms","dir":"Reference","previous_headings":"","what":"Inclusion in Combination Antibiograms","title":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","text":"Note combination antibiograms, important realise susceptibility can calculated two ways, can set only_all_tested argument (default FALSE). See example two antimicrobials, Drug Drug B, antibiogram() works calculate %SI:","code":"--------------------------------------------------------------------                     only_all_tested = FALSE  only_all_tested = TRUE                     -----------------------  -----------------------  Drug A    Drug B   considered   considered  considered   considered                     susceptible    tested    susceptible    tested --------  --------  -----------  ----------  -----------  ----------  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://amr-for-r.org/reference/antibiogram.html","id":"plotting","dir":"Reference","previous_headings":"","what":"Plotting","title":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","text":"types antibiograms listed can plotted (using ggplot2::autoplot() base R's plot() barplot()). mentioned , numeric values antibiogram stored long format attribute long_numeric. can retrieve using attributes(x)$long_numeric, x outcome antibiogram() wisca(). outcome antibiogram() can also used directly R Markdown / Quarto (.e., knitr) reports. case, knitr::kable() applied automatically microorganism names even printed italics default (see argument italicise). can also use functions specific 'table reporting' packages transform output antibiogram() needs, e.g. flextable::as_flextable() gt::gt().","code":""},{"path":"https://amr-for-r.org/reference/antibiogram.html","id":"explaining-wisca","dir":"Reference","previous_headings":"","what":"Explaining WISCA","title":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","text":"WISCA (Weighted-Incidence Syndromic Combination Antibiogram) estimates probability empirical coverage combination regimens. weights susceptibility pathogen prevalence within clinical syndrome provides credible intervals around expected coverage. background, interpretation, examples, see WISCA vignette.","code":""},{"path":"https://amr-for-r.org/reference/antibiogram.html","id":"author","dir":"Reference","previous_headings":"","what":"Author","title":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","text":"Implementation: Dr. Larisse Bolton Dr. Matthijs Berends","code":""},{"path":"https://amr-for-r.org/reference/antibiogram.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","text":"","code":"# example_isolates is a data set available in the AMR package. # run ?example_isolates for more info. example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI   R     NA    NA    NA  #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI   R     NA    NA    NA  #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS   R     NA    S     R   #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS   R     NA    S     R   #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR   R     NA    S     NA  #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  # \\donttest{ # Traditional antibiogram ----------------------------------------------  antibiogram(example_isolates,   antimicrobials = 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) #> # An Antibiogram: 10 × 7 #> # Type:           Non-WISCA with 95% CI #>    Pathogen       Amikacin    Gentamicin Imipenem Kanamycin Meropenem Tobramycin #>    <chr>          <chr>       <chr>      <chr>    <chr>     <chr>     <chr>      #>  1 CoNS           0% (0-8%,N… 86% (82-9… 52% (37… 0% (0-8%… 52% (37-… 22% (12-3… #>  2 E. coli        100% (98-1… 98% (96-9… 100% (9… NA        100% (99… 97% (96-9… #>  3 E. faecalis    0% (0-9%,N… 0% (0-9%,… 100% (9… 0% (0-9%… NA        0% (0-9%,… #>  4 K. pneumoniae  NA          90% (79-9… 100% (9… NA        100% (93… 90% (79-9… #>  5 P. aeruginosa  NA          100% (88-… NA       0% (0-12… NA        100% (88-… #>  6 P. mirabilis   NA          94% (80-9… 94% (79… NA        NA        94% (80-9… #>  7 S. aureus      NA          99% (97-1… NA       NA        NA        98% (92-1… #>  8 S. epidermidis 0% (0-8%,N… 79% (71-8… NA       0% (0-8%… NA        51% (40-6… #>  9 S. hominis     NA          92% (84-9… NA       NA        NA        85% (74-9… #> 10 S. pneumoniae  0% (0-3%,N… 0% (0-3%,… NA       0% (0-3%… NA        0% (0-3%,… #> # Use `ggplot2::autoplot()` or base R `plot()` to create a plot of this antibiogram, #> # or use it directly in R Markdown or https://quarto.org, see ?antibiogram  antibiogram(example_isolates,   antimicrobials = aminoglycosides(),   ab_transform = \"atc\",   mo_transform = \"gramstain\" ) #> ℹ For `aminoglycosides()` using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> # An Antibiogram: 2 × 5 #> # Type:           Non-WISCA with 95% CI #>   Pathogen      J01GB01            J01GB03             J01GB04         J01GB06   #>   <chr>         <chr>              <chr>               <chr>           <chr>     #> 1 Gram-negative 96% (94-97%,N=686) 96% (95-98%,N=684)  0% (0-10%,N=35) 98% (96-… #> 2 Gram-positive 34% (31-38%,N=665) 63% (60-66%,N=1170) 0% (0-1%,N=436) 0% (0-1%… #> # Use `ggplot2::autoplot()` or base R `plot()` to create a plot of this antibiogram, #> # or use it directly in R Markdown or https://quarto.org, see ?antibiogram  antibiogram(example_isolates,   antimicrobials = carbapenems(),   ab_transform = \"name\",   mo_transform = \"name\" ) #> ℹ For `carbapenems()` using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> # An Antibiogram: 5 × 3 #> # Type:           Non-WISCA with 95% CI #>   Pathogen                                 Imipenem             Meropenem        #>   <chr>                                    <chr>                <chr>            #> 1 Coagulase-negative Staphylococcus (CoNS) 52% (37-67%,N=48)    52% (37-67%,N=4… #> 2 Enterococcus faecalis                    100% (91-100%,N=38)  NA               #> 3 Escherichia coli                         100% (99-100%,N=422) 100% (99-100%,N… #> 4 Klebsiella pneumoniae                    100% (93-100%,N=51)  100% (93-100%,N… #> 5 Proteus mirabilis                        94% (79-99%,N=32)    NA               #> # Use `ggplot2::autoplot()` or base R `plot()` to create a plot of this antibiogram, #> # or use it directly in R Markdown or https://quarto.org, see ?antibiogram   # Combined antibiogram -------------------------------------------------  # combined antimicrobials yield higher empiric coverage antibiogram(example_isolates,   antimicrobials = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\"),   mo_transform = \"gramstain\" ) #> # An Antibiogram: 2 × 4 #> # Type:           Non-WISCA with 95% CI #>   Pathogen  Piperacillin/tazobac…¹ Piperacillin/tazobac…² Piperacillin/tazobac…³ #>   <chr>     <chr>                  <chr>                  <chr>                  #> 1 Gram-neg… 88% (85-91%,N=641)     99% (97-99%,N=691)     98% (97-99%,N=693)     #> 2 Gram-pos… 86% (82-89%,N=345)     98% (96-98%,N=1044)    95% (93-97%,N=550)     #> # ℹ abbreviated names: ¹​`Piperacillin/tazobactam`, #> #   ²​`Piperacillin/tazobactam + Gentamicin`, #> #   ³​`Piperacillin/tazobactam + Tobramycin` #> # Use `ggplot2::autoplot()` or base R `plot()` to create a plot of this antibiogram, #> # or use it directly in R Markdown or https://quarto.org, see ?antibiogram  # you can use any antimicrobial selector with `+` too: antibiogram(example_isolates,   antimicrobials = ureidopenicillins() + c(\"\", \"GEN\", \"tobra\"),   mo_transform = \"gramstain\" ) #> ℹ For `ureidopenicillins()` using column 'TZP' (piperacillin/tazobactam) #> # An Antibiogram: 2 × 4 #> # Type:           Non-WISCA with 95% CI #>   Pathogen  Piperacillin/tazobac…¹ Piperacillin/tazobac…² Piperacillin/tazobac…³ #>   <chr>     <chr>                  <chr>                  <chr>                  #> 1 Gram-neg… 88% (85-91%,N=641)     99% (97-99%,N=691)     98% (97-99%,N=693)     #> 2 Gram-pos… 86% (82-89%,N=345)     98% (96-98%,N=1044)    95% (93-97%,N=550)     #> # ℹ abbreviated names: ¹​`Piperacillin/tazobactam`, #> #   ²​`Piperacillin/tazobactam + Gentamicin`, #> #   ³​`Piperacillin/tazobactam + Tobramycin` #> # Use `ggplot2::autoplot()` or base R `plot()` to create a plot of this antibiogram, #> # or use it directly in R Markdown or https://quarto.org, see ?antibiogram  # names of antimicrobials do not need to resemble columns exactly: antibiogram(example_isolates,   antimicrobials = c(\"Cipro\", \"cipro + genta\"),   mo_transform = \"gramstain\",   ab_transform = \"name\",   sep = \" & \" ) #> # An Antibiogram: 2 × 3 #> # Type:           Non-WISCA with 95% CI #>   Pathogen      Ciprofloxacin      `Ciprofloxacin & Gentamicin` #>   <chr>         <chr>              <chr>                        #> 1 Gram-negative 91% (88-93%,N=684) 99% (97-99%,N=694)           #> 2 Gram-positive 77% (74-80%,N=724) 93% (91-94%,N=847)           #> # Use `ggplot2::autoplot()` or base R `plot()` to create a plot of this antibiogram, #> # or use it directly in R Markdown or https://quarto.org, see ?antibiogram   # Syndromic antibiogram ------------------------------------------------  # the data set could contain a filter for e.g. respiratory specimens antibiogram(example_isolates,   antimicrobials = 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) #> # An Antibiogram: 14 × 8 #> # Type:           Non-WISCA with 95% CI #>    `Syndromic Group` Pathogen   Amikacin Gentamicin Imipenem Kanamycin Meropenem #>    <chr>             <chr>      <chr>    <chr>      <chr>    <chr>     <chr>     #>  1 Clinical          CoNS       NA       89% (84-9… 57% (39… NA        57% (39-… #>  2 ICU               CoNS       NA       79% (68-8… NA       NA        NA        #>  3 Outpatient        CoNS       NA       84% (66-9… NA       NA        NA        #>  4 Clinical          E. coli    100% (9… 98% (96-9… 100% (9… NA        100% (99… #>  5 ICU               E. coli    100% (9… 99% (95-1… 100% (9… NA        100% (97… #>  6 Clinical          K. pneumo… NA       92% (81-9… 100% (9… NA        100% (92… #>  7 Clinical          P. mirabi… NA       100% (88-… NA       NA        NA        #>  8 Clinical          S. aureus  NA       99% (95-1… NA       NA        NA        #>  9 ICU               S. aureus  NA       100% (95-… NA       NA        NA        #> 10 Clinical          S. epider… NA       82% (72-9… NA       NA        NA        #> 11 ICU               S. epider… NA       72% (60-8… NA       NA        NA        #> 12 Clinical          S. hominis NA       96% (85-9… NA       NA        NA        #> 13 Clinical          S. pneumo… 0% (0-5… 0% (0-5%,… NA       0% (0-5%… NA        #> 14 ICU               S. pneumo… 0% (0-1… 0% (0-12%… NA       0% (0-12… NA        #> # ℹ 1 more variable: Tobramycin <chr> #> # Use `ggplot2::autoplot()` or base R `plot()` to create a plot of this antibiogram, #> # or use it directly in R Markdown or https://quarto.org, see ?antibiogram  # now define a data set with only E. coli ex1 <- example_isolates[which(mo_genus() == \"Escherichia\"), ] #> ℹ Using column 'mo' as input for `mo_genus()`  # with a custom language, though this will be determined automatically # (i.e., this table will be in Spanish on Spanish systems) antibiogram(ex1,   antimicrobials = 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) #> # An Antibiogram: 2 × 5 #> # Type:           Non-WISCA with 95% CI #>   `Grupo sindrómico` Patógeno Amikacina            Gentamicina       Tobramicina #>   <chr>              <chr>    <chr>                <chr>             <chr>       #> 1 No UCI             E. coli  100% (97-100%,N=119) 98% (96-99%,N=32… 98% (96-99… #> 2 UCI                E. coli  100% (93-100%,N=52)  99% (95-100%,N=1… 96% (92-99… #> # Use `ggplot2::autoplot()` or base R `plot()` to create a plot of this antibiogram, #> # or use it directly in R Markdown or https://quarto.org, see ?antibiogram   # WISCA antibiogram ----------------------------------------------------  # WISCA are not stratified by species, but rather on syndromes antibiogram(example_isolates,   antimicrobials = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\"),   syndromic_group = \"ward\",   wisca = TRUE ) #> # An Antibiogram: 3 × 4 #> # Type:           WISCA with 95% CI #>   `Syndromic Group` `Piperacillin/tazobactam` Piperacillin/tazobactam + Gentam…¹ #>   <chr>             <chr>                     <chr>                              #> 1 Clinical          73.5% (68.1-78.6%)        92.3% (90.8-93.8%)                 #> 2 ICU               57.3% (49.8-64.9%)        84.8% (82-87.7%)                   #> 3 Outpatient        56.8% (47-67%)            74.4% (68.6-79.7%)                 #> # ℹ abbreviated name: ¹​`Piperacillin/tazobactam + Gentamicin` #> # ℹ 1 more variable: `Piperacillin/tazobactam + Tobramycin` <chr> #> # Use `ggplot2::autoplot()` or base R `plot()` to create a plot of this antibiogram, #> # or use it directly in R Markdown or https://quarto.org, see ?antibiogram   # Print the output for R Markdown / Quarto -----------------------------  ureido <- antibiogram(example_isolates,   antimicrobials = ureidopenicillins(),   syndromic_group = \"ward\",   wisca = TRUE ) #> ℹ 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\")) {   cat(knitr::knit_print(ureido)) } #>  #>  #> |Syndromic Group |Piperacillin/tazobactam | #> |:---------------|:-----------------------| #> |Clinical        |73.6% (68.5-78.7%)      | #> |ICU             |57.4% (49.3-65.8%)      | #> |Outpatient      |57% (47.1-67.3%)        |   # Generate plots with ggplot2 or base R --------------------------------  ab1 <- antibiogram(example_isolates,   antimicrobials = c(\"AMC\", \"CIP\", \"TZP\", \"TZP+TOB\"),   mo_transform = \"gramstain\" ) ab2 <- antibiogram(example_isolates,   antimicrobials = 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://amr-for-r.org/reference/antimicrobial_selectors.html","id":null,"dir":"Reference","previous_headings":"","what":"Antimicrobial Selectors — antimicrobial_selectors","title":"Antimicrobial Selectors — antimicrobial_selectors","text":"functions allow filtering rows selecting columns based antimicrobial test results specific antimicrobial class group, without need define columns antimicrobial abbreviations. can used base R, tidyverse, tidymodels, data.table. Simply puy, column name resembles antimicrobial drug, picked functions matches pharmaceutical class, code name: column names \"cefazolin\", \"kefzol\", \"CZO\" \"J01DB04\" included following selection:","code":"library(dplyr) my_data_with_all_these_columns %>%   select(cephalosporins())"},{"path":"https://amr-for-r.org/reference/antimicrobial_selectors.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Antimicrobial Selectors — antimicrobial_selectors","text":"","code":"aminoglycosides(only_sir_columns = FALSE, only_treatable = TRUE,   return_all = TRUE, ...)  aminopenicillins(only_sir_columns = FALSE, return_all = TRUE, ...)  antifungals(only_sir_columns = FALSE, return_all = TRUE, ...)  antimycobacterials(only_sir_columns = FALSE, return_all = TRUE, ...)  betalactams(only_sir_columns = FALSE, only_treatable = TRUE,   return_all = TRUE, ...)  betalactams_with_inhibitor(only_sir_columns = FALSE, return_all = TRUE,   ...)  carbapenems(only_sir_columns = FALSE, only_treatable = TRUE,   return_all = TRUE, ...)  cephalosporins(only_sir_columns = FALSE, only_treatable = TRUE,   return_all = TRUE, ...)  cephalosporins_1st(only_sir_columns = FALSE, return_all = TRUE, ...)  cephalosporins_2nd(only_sir_columns = FALSE, return_all = TRUE, ...)  cephalosporins_3rd(only_sir_columns = FALSE, only_treatable = TRUE,   return_all = TRUE, ...)  cephalosporins_4th(only_sir_columns = FALSE, return_all = TRUE, ...)  cephalosporins_5th(only_sir_columns = FALSE, return_all = TRUE, ...)  fluoroquinolones(only_sir_columns = FALSE, only_treatable = TRUE,   return_all = TRUE, ...)  glycopeptides(only_sir_columns = FALSE, return_all = TRUE, ...)  isoxazolylpenicillins(only_sir_columns = FALSE, only_treatable = TRUE,   return_all = TRUE, ...)  lincosamides(only_sir_columns = FALSE, only_treatable = TRUE,   return_all = TRUE, ...)  lipoglycopeptides(only_sir_columns = FALSE, return_all = TRUE, ...)  macrolides(only_sir_columns = FALSE, return_all = TRUE, ...)  monobactams(only_sir_columns = FALSE, return_all = TRUE, ...)  nitrofurans(only_sir_columns = FALSE, return_all = TRUE, ...)  oxazolidinones(only_sir_columns = FALSE, return_all = TRUE, ...)  penicillins(only_sir_columns = FALSE, return_all = TRUE, ...)  phenicols(only_sir_columns = FALSE, return_all = TRUE, ...)  polymyxins(only_sir_columns = FALSE, only_treatable = TRUE,   return_all = TRUE, ...)  quinolones(only_sir_columns = FALSE, only_treatable = TRUE,   return_all = TRUE, ...)  rifamycins(only_sir_columns = FALSE, return_all = TRUE, ...)  streptogramins(only_sir_columns = FALSE, return_all = TRUE, ...)  sulfonamides(only_sir_columns = FALSE, return_all = TRUE, ...)  tetracyclines(only_sir_columns = FALSE, only_treatable = TRUE,   return_all = TRUE, ...)  trimethoprims(only_sir_columns = FALSE, return_all = TRUE, ...)  ureidopenicillins(only_sir_columns = FALSE, return_all = TRUE, ...)  amr_class(amr_class, only_sir_columns = FALSE, only_treatable = TRUE,   return_all = TRUE, ...)  amr_selector(filter, only_sir_columns = FALSE, only_treatable = TRUE,   return_all = TRUE, ...)  administrable_per_os(only_sir_columns = FALSE, return_all = TRUE, ...)  administrable_iv(only_sir_columns = FALSE, return_all = TRUE, ...)  not_intrinsic_resistant(only_sir_columns = FALSE, col_mo = NULL,   version_expected_phenotypes = 1.2, ...)"},{"path":"https://amr-for-r.org/reference/antimicrobial_selectors.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Antimicrobial Selectors — antimicrobial_selectors","text":"only_sir_columns logical indicate whether antimicrobial columns must included transformed class sir beforehand. Defaults FALSE. only_treatable logical indicate whether antimicrobial drugs excluded laboratory tests (default TRUE), gentamicin-high (GEH) imipenem/EDTA (IPE). return_all logical indicate whether matched columns must returned (default TRUE). FALSE, first unique antimicrobial returned, e.g. columns \"genta\" \"gentamicin\" exist data, first hit gentamicin returned. ... Ignored, place allow future extensions. amr_class antimicrobial class part , \"carba\" \"carbapenems\". columns group, atc_group1 atc_group2 antimicrobials data set searched (case-insensitive) value. filter expression evaluated antimicrobials data set, name %like% \"trim\". col_mo Column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). version_expected_phenotypes version number use EUCAST Expected Phenotypes. Can \"1.2\".","code":""},{"path":"https://amr-for-r.org/reference/antimicrobial_selectors.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Antimicrobial Selectors — antimicrobial_selectors","text":"used inside selecting filtering, returns character vector column names, additional class \"amr_selector\". used individually, returns 'ab' vector possible antimicrobials function able select filter.","code":""},{"path":"https://amr-for-r.org/reference/antimicrobial_selectors.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Antimicrobial Selectors — antimicrobial_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. selectors can also used tidymodels packages recipe parsnip. See info tutorial using antimicrobial selectors predictive modelling. columns data functions called searched known antimicrobial names, abbreviations, brand names, codes (ATC, EARS-Net, , etc.) according antimicrobials data set. means selector aminoglycosides() pick column names like 'gen', 'genta', 'J01GB03', 'tobra', 'Tobracin', etc. amr_class() function can used filter/select manually defined antimicrobial class. searches results antimicrobials data set within columns group, atc_group1 atc_group2. administrable_per_os() administrable_iv() functions also rely antimicrobials data set - antimicrobials matched DDD (defined daily dose) resp. oral IV treatment available antimicrobials data set. amr_selector() function can used internally filter antimicrobials 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. not_intrinsic_resistant() function can used select antimicrobials 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 Expected Resistant Phenotypes' v1.2 (2023) determine intrinsic resistance, using eucast_rules() function internally. determination, function quite slow terms performance.","code":""},{"path":"https://amr-for-r.org/reference/antimicrobial_selectors.html","id":"full-list-of-supported-antimicrobial-classes","dir":"Reference","previous_headings":"","what":"Full list of supported (antimicrobial) classes","title":"Antimicrobial Selectors — antimicrobial_selectors","text":"aminoglycosides() can select:  amikacin (AMK), amikacin/fosfomycin (AKF), apramycin (APR), arbekacin (ARB), astromicin (AST), bekanamycin (BEK), dibekacin (DKB), framycetin (FRM), gentamicin (GEN), gentamicin-high (GEH), habekacin (HAB), hygromycin (HYG), isepamicin (ISE), kanamycin (KAN), kanamycin-high (KAH), kanamycin/cephalexin (KAC), micronomicin (MCR), neomycin (NEO), netilmicin (NET), pentisomicin (PIM), plazomicin (PLZ), propikacin (PKA), ribostamycin (RST), sisomicin (SIS), streptoduocin (STR), streptomycin (STR1), streptomycin-high (STH), tobramycin (TOB), tobramycin-high (TOH) aminopenicillins() can select:  amoxicillin (AMX) ampicillin (AMP) antifungals() can select:  amorolfine (AMO), amphotericin B (AMB), amphotericin B-high (AMH), anidulafungin (ANI), butoconazole (), caspofungin (CAS), ciclopirox (CIX), clotrimazole (CTR), econazole (ECO), fluconazole (FLU), flucytosine (FCT), fosfluconazole (FFL), griseofulvin (GRI), hachimycin (HCH), ibrexafungerp (IBX), isavuconazole (ISV), isoconazole (ISO), itraconazole (ITR), ketoconazole (KET), manogepix (MGX), micafungin (MIF), miconazole (MCZ), nystatin (NYS), oteseconazole (OTE), pimaricin (PMR), posaconazole (POS), rezafungin (RZF), ribociclib (RBC), sulconazole (SUC), terbinafine (TRB), terconazole (TRC), voriconazole (VOR) antimycobacterials() can select:  4-aminosalicylic acid (AMA), calcium aminosalicylate (CLA), capreomycin (CAP), clofazimine (CLF), delamanid (DLM), enviomycin (ENV), ethambutol (ETH), ethambutol/isoniazid (ETI), ethionamide (ETI1), isoniazid (INH), isoniazid/sulfamethoxazole/trimethoprim/pyridoxine (IST), morinamide (MRN), p-aminosalicylic acid (PAS), pretomanid (PMD), protionamide (PTH), pyrazinamide (PZA), rifabutin (RIB), rifampicin (RIF), rifampicin/ethambutol/isoniazid (REI), rifampicin/isoniazid (RFI), rifampicin/pyrazinamide/ethambutol/isoniazid (RPEI), rifampicin/pyrazinamide/isoniazid (RPI), rifamycin (RFM), rifapentine (RFP), 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), azidocillin (AZD), azlocillin (AZL), aztreonam (ATM), aztreonam/avibactam (AZA), aztreonam/nacubactam (ANC), bacampicillin (BAM), benzathine benzylpenicillin (BNB), benzathine phenoxymethylpenicillin (BNP), benzylpenicillin (PEN), benzylpenicillin screening test (PEN-S), biapenem (BIA), carbenicillin (CRB), carindacillin (CRN), carumonam (CAR), 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/amikacin (CFA), cefepime/clavulanic acid (CPC), cefepime/enmetazobactam (FPE), cefepime/nacubactam (FNC), cefepime/taniborbactam (FTA), cefepime/tazobactam (FPT), cefepime/zidebactam (FPZ), cefetamet (CAT), cefetamet pivoxil (CPI), cefetecol (CCL), cefetrizole (CZL), cefiderocol (FDC), cefixime (CFM), cefmenoxime (CMX), cefmetazole (CMZ), cefodizime (DIZ), cefonicid (CID), cefoperazone (CFP), cefoperazone/sulbactam (CSL), ceforanide (CND), cefoselis (CSE), cefotaxime (CTX), cefotaxime screening test (CTX-S), cefotaxime/clavulanic acid (CTC), cefotaxime/sulbactam (CTS), cefotetan (CTT), cefotiam (CTF), cefotiam hexetil (CHE), cefovecin (FOV), cefoxitin (FOX), cefoxitin screening test (FOX-S), 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), nafcillin (NAF), oxacillin (OXA), oxacillin screening test (OXA-S), 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), sulbenicillin (SBC), sultamicillin (SLT6), talampicillin (TAL), taniborbactam (TAN), tebipenem (TBP), temocillin (TEM), ticarcillin (TIC), ticarcillin/clavulanic acid (TCC), tigemonam (TMN) betalactams_with_inhibitor() can select:  amoxicillin/clavulanic acid (AMC), amoxicillin/sulbactam (AXS), ampicillin/sulbactam (SAM), aztreonam/avibactam (AZA), aztreonam/nacubactam (ANC), cefepime/amikacin (CFA), cefepime/clavulanic acid (CPC), cefepime/enmetazobactam (FPE), cefepime/nacubactam (FNC), cefepime/taniborbactam (FTA), cefepime/tazobactam (FPT), cefepime/zidebactam (FPZ), cefoperazone/sulbactam (CSL), cefotaxime/clavulanic acid (CTC), cefotaxime/sulbactam (CTS), cefpodoxime/clavulanic acid (CDC), ceftaroline/avibactam (CPA), ceftazidime/avibactam (CZA), ceftazidime/clavulanic acid (CCV), ceftolozane/tazobactam (CZT), ceftriaxone/beta-lactamase inhibitor (CEB), imipenem/relebactam (IMR), meropenem/nacubactam (MNC), meropenem/vaborbactam (MEV), mezlocillin/sulbactam (MSU), penicillin/novobiocin (PNO), penicillin/sulbactam (PSU), piperacillin/sulbactam (PIS), piperacillin/tazobactam (TZP), ticarcillin/clavulanic acid (TCC) carbapenems() can select:  biapenem (BIA), doripenem (DOR), ertapenem (ETP), imipenem (IPM), imipenem/EDTA (IPE), imipenem/relebactam (IMR), meropenem (MEM), meropenem/nacubactam (MNC), meropenem/vaborbactam (MEV), panipenem (PAN), razupenem (RZM), ritipenem (RIT), ritipenem acoxil (RIA), taniborbactam (TAN), 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/amikacin (CFA), cefepime/clavulanic acid (CPC), cefepime/enmetazobactam (FPE), cefepime/nacubactam (FNC), cefepime/taniborbactam (FTA), cefepime/tazobactam (FPT), cefepime/zidebactam (FPZ), cefetamet (CAT), cefetamet pivoxil (CPI), cefetecol (CCL), cefetrizole (CZL), cefiderocol (FDC), cefixime (CFM), cefmenoxime (CMX), cefmetazole (CMZ), cefodizime (DIZ), cefonicid (CID), cefoperazone (CFP), cefoperazone/sulbactam (CSL), ceforanide (CND), cefoselis (CSE), cefotaxime (CTX), cefotaxime screening test (CTX-S), cefotaxime/clavulanic acid (CTC), cefotaxime/sulbactam (CTS), cefotetan (CTT), cefotiam (CTF), cefotiam hexetil (CHE), cefovecin (FOV), cefoxitin (FOX), cefoxitin screening test (FOX-S), 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 test (FOX-S), 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 screening test (CTX-S), 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/amikacin (CFA), cefepime/clavulanic acid (CPC), cefepime/enmetazobactam (FPE), cefepime/nacubactam (FNC), cefepime/taniborbactam (FTA), cefepime/tazobactam (FPT), cefepime/zidebactam (FPZ), 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), ciprofloxacin/metronidazole (CIM), ciprofloxacin/ornidazole (CIO), ciprofloxacin/tinidazole (CIT), clinafloxacin (CLX), danofloxacin (DAN), delafloxacin (DFX), difloxacin (DIF), enoxacin (ENX), enrofloxacin (ENR), finafloxacin (FIN), fleroxacin (FLE), garenoxacin (GRN), gatifloxacin (GAT), gemifloxacin (GEM), grepafloxacin (GRX), lascufloxacin (LSC), levofloxacin (LVX), levofloxacin/ornidazole (LEO), levonadifloxacin (LND), lomefloxacin (LOM), marbofloxacin (MAR), metioxate (MXT), miloxacin (MIL), moxifloxacin (MFX), nadifloxacin (NAD), nemonoxacin (NEM), nifuroquine (NIF), nitroxoline (NTR), norfloxacin (), norfloxacin screening test (-S), norfloxacin/metronidazole (NME), norfloxacin/tinidazole (NTI), ofloxacin (OFX), ofloxacin/ornidazole (OOR), orbifloxacin (ORB), pazufloxacin (PAZ), pefloxacin (PEF), pefloxacin screening test (PEF-S), 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), bleomycin (BLM), dalbavancin (DAL), norvancomycin (NVA), oritavancin (ORI), ramoplanin (RAM), teicoplanin (TEC), teicoplanin-macromethod (TCM), telavancin (TLV), vancomycin (VAN), vancomycin-macromethod (VAM) isoxazolylpenicillins() can select:  cloxacillin (CLO), dicloxacillin (DIC), flucloxacillin (FLC), meticillin (MET), oxacillin (OXA), oxacillin screening test (OXA-S) lincosamides() can select:  clindamycin (CLI), lincomycin (LIN), pirlimycin (PRL) 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), rokitamycin (ROK), roxithromycin (RXT), solithromycin (SOL), spiramycin (SPI), telithromycin (TLT), tildipirosin (TIP), tilmicosin (TIL), troleandomycin (TRL), tulathromycin (TUL), tylosin (TYL), tylvalosin (TYL1) monobactams() can select:  aztreonam (ATM), aztreonam/avibactam (AZA), aztreonam/nacubactam (ANC), carumonam (CAR), tigemonam (TMN) nitrofurans() can select:  furazidin (FUR), furazolidone (FRZ), nifurtoinol (NFR), nitrofurantoin (NIT), nitrofurazone (NIZ) oxazolidinones() can select:  cadazolid (CDZ), cycloserine (CYC), linezolid (LNZ), tedizolid (TZD), thiacetazone (THA) penicillins() can select:  amoxicillin (AMX), amoxicillin/clavulanic acid (AMC), amoxicillin/sulbactam (AXS), ampicillin (AMP), ampicillin/sulbactam (SAM), apalcillin (APL), aspoxicillin (APX), azidocillin (AZD), azlocillin (AZL), bacampicillin (BAM), benzathine benzylpenicillin (BNB), benzathine phenoxymethylpenicillin (BNP), benzylpenicillin (PEN), benzylpenicillin screening test (PEN-S), carbenicillin (CRB), carindacillin (CRN), 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), nafcillin (NAF), oxacillin (OXA), oxacillin screening test (OXA-S), 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), sulbenicillin (SBC), sultamicillin (SLT6), talampicillin (TAL), temocillin (TEM), ticarcillin (TIC), ticarcillin/clavulanic acid (TCC) phenicols() can select:  chloramphenicol (CHL), florfenicol (FLR), thiamphenicol (THI) polymyxins() can select:  colistin (COL), polymyxin B (PLB), polymyxin B/polysorbate 80 (POP) quinolones() can select:  besifloxacin (BES), cinoxacin (CIN), ciprofloxacin (CIP), ciprofloxacin/metronidazole (CIM), ciprofloxacin/ornidazole (CIO), ciprofloxacin/tinidazole (CIT), clinafloxacin (CLX), danofloxacin (DAN), delafloxacin (DFX), difloxacin (DIF), enoxacin (ENX), enrofloxacin (ENR), finafloxacin (FIN), fleroxacin (FLE), flumequine (FLM), garenoxacin (GRN), gatifloxacin (GAT), gemifloxacin (GEM), grepafloxacin (GRX), lascufloxacin (LSC), levofloxacin (LVX), levofloxacin/ornidazole (LEO), levonadifloxacin (LND), lomefloxacin (LOM), marbofloxacin (MAR), metioxate (MXT), miloxacin (MIL), moxifloxacin (MFX), nadifloxacin (NAD), nalidixic acid (NAL), nalidixic acid screening test (NAL-S), nemonoxacin (NEM), nifuroquine (NIF), nitroxoline (NTR), norfloxacin (), norfloxacin screening test (-S), norfloxacin/metronidazole (NME), norfloxacin/tinidazole (NTI), ofloxacin (OFX), ofloxacin/ornidazole (OOR), orbifloxacin (ORB), oxolinic acid (OXO), pazufloxacin (PAZ), pefloxacin (PEF), pefloxacin screening test (PEF-S), pipemidic acid (PPA), piromidic acid (PIR), pradofloxacin (PRA), premafloxacin (PRX), prulifloxacin (PRU), rosoxacin (ROS), rufloxacin (RFL), sarafloxacin (SAR), sitafloxacin (SIT), sparfloxacin (SPX), temafloxacin (TMX), tilbroquinol (TBQ), tioxacin (TXC), tosufloxacin (TFX), trovafloxacin (TVA) rifamycins() can select:  rifabutin (RIB), rifampicin (RIF), rifampicin/ethambutol/isoniazid (REI), rifampicin/isoniazid (RFI), rifampicin/pyrazinamide/ethambutol/isoniazid (RPEI), rifampicin/pyrazinamide/isoniazid (RPI), rifamycin (RFM), rifapentine (RFP) streptogramins() can select:  pristinamycin (PRI) quinupristin/dalfopristin (QDA) sulfonamides() can select:  brodimoprim (BDP), sulfadiazine (SDI), sulfadiazine/tetroxoprim (SLT), sulfadimethoxine (SUD), sulfadimidine (SDM), sulfafurazole (SLF), sulfaisodimidine (SLF1), sulfalene (SLF2), sulfamazone (SZO), sulfamerazine (SLF3), sulfamethizole (SLF4), sulfamethoxazole (SMX), sulfamethoxypyridazine (SLF5), sulfametomidine (SLF6), sulfametoxydiazine (SLF7), sulfamoxole (SLF8), sulfanilamide (SLF9), sulfaperin (SLF10), sulfaphenazole (SLF11), sulfapyridine (SLF12), sulfathiazole (SUT), sulfathiourea (SLF13) 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), tetracycline screening test (TCY-S), 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://amr-for-r.org/reference/antimicrobial_selectors.html","id":"download-our-reference-data","dir":"Reference","previous_headings":"","what":"Download Our Reference Data","title":"Antimicrobial Selectors — antimicrobial_selectors","text":"reference data sets AMR package - including information microorganisms, antimicrobials, clinical breakpoints - freely available download multiple formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. maximum compatibility, also provide machine-readable, tab-separated plain text files suitable use software, including laboratory information systems. Visit website direct download links, explore actual files GitHub repository.","code":""},{"path":"https://amr-for-r.org/reference/antimicrobial_selectors.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Antimicrobial Selectors — antimicrobial_selectors","text":"","code":"# `example_isolates` is a data set available in the AMR package. # See ?example_isolates. example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI   R     NA    NA    NA  #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI   R     NA    NA    NA  #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS   R     NA    S     R   #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS   R     NA    S     R   #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR   R     NA    S     NA  #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …   # you can use the selectors separately to retrieve all possible antimicrobials: carbapenems() #> ℹ in `carbapenems()`: Imipenem/EDTA (`IPE`) and meropenem/nacubactam #>   (`MNC`) are not included since `only_treatable = TRUE`. #> ℹ This 'ab' vector was retrieved using `carbapenems()`, which should #>   normally be used inside a `dplyr` verb or `data.frame` call, e.g.: #>   • your_data %>% select(carbapenems()) #>   • your_data %>% select(column_a, column_b, carbapenems()) #>   • your_data %>% filter(any(carbapenems() == \"R\")) #>   • your_data[, carbapenems()] #>   • your_data[, c(\"column_a\", \"column_b\", carbapenems())] #> Class 'ab' #>  [1] BIA DOR ETP IMR IPM MEM MEV PAN RIA RIT RZM TAN TBP   # Though they are primarily intended to use for selections and filters. # Examples sections below are split into 'dplyr', 'base R', and 'data.table':  # \\donttest{ if (FALSE) { # \\dontrun{ # dplyr -------------------------------------------------------------------  library(dplyr, warn.conflicts = FALSE)  example_isolates %>% select(carbapenems())  # select columns 'mo', 'AMK', 'GEN', 'KAN' and 'TOB' example_isolates %>% select(mo, aminoglycosides())  # you can combine selectors like you are used with tidyverse # e.g., for betalactams, but not the ones with an enzyme inhibitor: example_isolates %>% select(betalactams(), -betalactams_with_inhibitor())  # select only antimicrobials with DDDs for oral treatment example_isolates %>% select(administrable_per_os())  # get AMR for all aminoglycosides e.g., per ward: example_isolates %>%   group_by(ward) %>%   summarise(across(aminoglycosides(),                    resistance))  # You can combine selectors with '&' to be more specific: example_isolates %>%   select(penicillins() & administrable_per_os())  # get AMR for only drugs that matter - no intrinsic resistance: example_isolates %>%   filter(mo_genus() %in% c(\"Escherichia\", \"Klebsiella\")) %>%   group_by(ward) %>%   summarise_at(not_intrinsic_resistant(),                resistance)  # get susceptibility for antimicrobials whose name contains \"trim\": example_isolates %>%   filter(first_isolate()) %>%   group_by(ward) %>%   summarise(across(amr_selector(name %like% \"trim\"), susceptibility))  # this will select columns 'IPM' (imipenem) and 'MEM' (meropenem): example_isolates %>%   select(carbapenems())  # this will select columns 'mo', 'AMK', 'GEN', 'KAN' and 'TOB': example_isolates %>%   select(mo, aminoglycosides())  # any() and all() work in dplyr's filter() too: example_isolates %>%   filter(     any(aminoglycosides() == \"R\"),     all(cephalosporins_2nd() == \"R\")   )  # also works with c(): example_isolates %>%   filter(any(c(carbapenems(), aminoglycosides()) == \"R\"))  # not setting any/all will automatically apply all(): example_isolates %>%   filter(aminoglycosides() == \"R\")  # this will select columns 'mo' and all antimycobacterial drugs ('RIF'): example_isolates %>%   select(mo, amr_class(\"mycobact\"))  # get bug/drug combinations for only glycopeptides in Gram-positives: example_isolates %>%   filter(mo_is_gram_positive()) %>%   select(mo, glycopeptides()) %>%   bug_drug_combinations() %>%   format()  data.frame(   some_column = \"some_value\",   J01CA01 = \"S\" ) %>% # ATC code of ampicillin   select(penicillins()) # only the 'J01CA01' column will be selected  # with recent versions of dplyr, this is all equal: x <- example_isolates[carbapenems() == \"R\", ] y <- example_isolates %>% filter(carbapenems() == \"R\") z <- example_isolates %>% filter(if_all(carbapenems(), ~ .x == \"R\")) identical(x, y) && identical(y, z)  } # } # base R ------------------------------------------------------------------  # select columns 'IPM' (imipenem) and 'MEM' (meropenem) example_isolates[, carbapenems()] #> ℹ For `carbapenems()` using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> # A tibble: 2,000 × 2 #>    IPM   MEM   #>    <sir> <sir> #>  1   NA    NA  #>  2   NA    NA  #>  3   NA    NA  #>  4   NA    NA  #>  5   NA    NA  #>  6   NA    NA  #>  7   NA    NA  #>  8   NA    NA  #>  9   NA    NA  #> 10   NA    NA  #> # ℹ 1,990 more rows  # select columns 'mo', 'AMK', 'GEN', 'KAN' and 'TOB' example_isolates[, c(\"mo\", aminoglycosides())] #> ℹ For `aminoglycosides()` using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> # A tibble: 2,000 × 5 #>    mo           GEN   TOB   AMK   KAN   #>    <mo>         <sir> <sir> <sir> <sir> #>  1 B_ESCHR_COLI   NA    NA    NA    NA  #>  2 B_ESCHR_COLI   NA    NA    NA    NA  #>  3 B_STPHY_EPDR   NA    NA    NA    NA  #>  4 B_STPHY_EPDR   NA    NA    NA    NA  #>  5 B_STPHY_EPDR   NA    NA    NA    NA  #>  6 B_STPHY_EPDR   NA    NA    NA    NA  #>  7 B_STPHY_AURS   NA    S     NA    NA  #>  8 B_STPHY_AURS   NA    S     NA    NA  #>  9 B_STPHY_EPDR   NA    NA    NA    NA  #> 10 B_STPHY_EPDR   NA    NA    NA    NA  #> # ℹ 1,990 more rows  # select only antimicrobials with DDDs for oral treatment example_isolates[, administrable_per_os()] #> ℹ For `administrable_per_os()` using columns 'OXA' (oxacillin), 'FLC' #>   (flucloxacillin), 'AMX' (amoxicillin), 'AMC' (amoxicillin/clavulanic acid), #>   'AMP' (ampicillin), 'CXM' (cefuroxime), 'KAN' (kanamycin), 'TMP' #>   (trimethoprim), 'NIT' (nitrofurantoin), 'FOS' (fosfomycin), 'LNZ' #>   (linezolid), 'CIP' (ciprofloxacin), 'MFX' (moxifloxacin), 'VAN' #>   (vancomycin), 'TCY' (tetracycline), 'DOX' (doxycycline), 'ERY' #>   (erythromycin), 'CLI' (clindamycin), 'AZM' (azithromycin), 'MTR' #>   (metronidazole), 'CHL' (chloramphenicol), 'COL' (colistin), and 'RIF' #>   (rifampicin) #> # A tibble: 2,000 × 23 #>    OXA   FLC   AMX   AMC   AMP   CXM   KAN   TMP   NIT   FOS   LNZ   CIP   MFX   #>    <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> #>  1   NA    NA    NA    I     NA    I     NA    R     NA    NA    R     NA    NA  #>  2   NA    NA    NA    I     NA    I     NA    R     NA    NA    R     NA    NA  #>  3   NA    R     NA    NA    NA    R     NA    S     NA    NA    NA    NA    NA  #>  4   NA    R     NA    NA    NA    R     NA    S     NA    NA    NA    NA    NA  #>  5   NA    R     NA    NA    NA    R     NA    R     NA    NA    NA    NA    NA  #>  6   NA    R     NA    NA    NA    R     NA    R     NA    NA    NA    NA    NA  #>  7   NA    S     R     S     R     S     NA    R     NA    NA    NA    NA    NA  #>  8   NA    S     R     S     R     S     NA    R     NA    NA    NA    NA    NA  #>  9   NA    R     NA    NA    NA    R     NA    S     NA    NA    NA    S     NA  #> 10   NA    S     NA    NA    NA    S     NA    S     NA    NA    NA    S     NA  #> # ℹ 1,990 more rows #> # ℹ 10 more variables: VAN <sir>, TCY <sir>, DOX <sir>, ERY <sir>, CLI <sir>, #> #   AZM <sir>, MTR <sir>, CHL <sir>, COL <sir>, RIF <sir>  # filter using any() or all() example_isolates[any(carbapenems() == \"R\"), ] #> ℹ For `carbapenems()` using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> # A tibble: 55 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2004-06-09 529296     69 M      ICU      B_ENTRC_FACM   NA    NA    NA    NA  #>  2 2004-06-09 529296     69 M      ICU      B_ENTRC_FACM   NA    NA    NA    NA  #>  3 2004-11-03 D65308     80 F      ICU      B_STNTR_MLTP   R     NA    NA    R   #>  4 2005-04-21 452212     82 F      ICU      B_ENTRC        NA    NA    NA    NA  #>  5 2005-04-22 452212     82 F      ICU      B_ENTRC        NA    NA    NA    NA  #>  6 2005-04-22 452212     82 F      ICU      B_ENTRC_FACM   NA    NA    NA    NA  #>  7 2007-02-21 8BBC46     61 F      Clinical B_ENTRC_FACM   NA    NA    NA    NA  #>  8 2007-12-15 401043     72 M      Clinical B_ENTRC_FACM   NA    NA    NA    NA  #>  9 2008-01-22 1710B8     82 M      Clinical B_PROTS_MRBL   R     NA    NA    NA  #> 10 2008-01-22 1710B8     82 M      Clinical B_PROTS_MRBL   R     NA    NA    NA  #> # ℹ 45 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … subset(example_isolates, any(carbapenems() == \"R\")) #> ℹ For `carbapenems()` using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> # A tibble: 55 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2004-06-09 529296     69 M      ICU      B_ENTRC_FACM   NA    NA    NA    NA  #>  2 2004-06-09 529296     69 M      ICU      B_ENTRC_FACM   NA    NA    NA    NA  #>  3 2004-11-03 D65308     80 F      ICU      B_STNTR_MLTP   R     NA    NA    R   #>  4 2005-04-21 452212     82 F      ICU      B_ENTRC        NA    NA    NA    NA  #>  5 2005-04-22 452212     82 F      ICU      B_ENTRC        NA    NA    NA    NA  #>  6 2005-04-22 452212     82 F      ICU      B_ENTRC_FACM   NA    NA    NA    NA  #>  7 2007-02-21 8BBC46     61 F      Clinical B_ENTRC_FACM   NA    NA    NA    NA  #>  8 2007-12-15 401043     72 M      Clinical B_ENTRC_FACM   NA    NA    NA    NA  #>  9 2008-01-22 1710B8     82 M      Clinical B_PROTS_MRBL   R     NA    NA    NA  #> 10 2008-01-22 1710B8     82 M      Clinical B_PROTS_MRBL   R     NA    NA    NA  #> # ℹ 45 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  # filter on any or all results in the carbapenem columns (i.e., IPM, MEM): example_isolates[any(carbapenems()), ] #> ℹ For `carbapenems()` using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ Filtering any of columns 'IPM' and 'MEM' to contain value \"S\", \"I\" or \"R\" #> # A tibble: 962 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI   R     NA    NA    NA  #>  2 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI   R     NA    NA    NA  #>  3 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL   R     NA    NA    NA  #>  4 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL   R     NA    NA    NA  #>  5 2002-02-05 067927     45 F      ICU      B_SERRT_MRCS   R     NA    NA    R   #>  6 2002-02-05 067927     45 F      ICU      B_SERRT_MRCS   R     NA    NA    R   #>  7 2002-02-05 067927     45 F      ICU      B_SERRT_MRCS   R     NA    NA    R   #>  8 2002-02-27 066895     85 F      Clinical B_KLBSL_PNMN   R     NA    NA    R   #>  9 2002-02-27 066895     85 F      Clinical B_KLBSL_PNMN   R     NA    NA    R   #> 10 2002-03-08 4FC193     69 M      Clinical B_ESCHR_COLI   R     NA    NA    R   #> # ℹ 952 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … example_isolates[all(carbapenems()), ] #> ℹ For `carbapenems()` using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ Filtering all of columns 'IPM' and 'MEM' to contain value \"S\", \"I\" or \"R\" #> # A tibble: 756 × 46 #>    date       patient   age gender ward    mo            PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>   <mo>          <sir> <sir> <sir> <sir> #>  1 2002-04-14 F30196     73 M      Outpat… B_STRPT_GRPB    S     NA    S     S   #>  2 2003-04-08 114570     74 M      ICU     B_STRPT_PYGN    S     NA    S     S   #>  3 2003-04-08 114570     74 M      ICU     B_STRPT_GRPA    S     NA    S     S   #>  4 2003-04-08 114570     74 M      ICU     B_STRPT_GRPA    S     NA    S     S   #>  5 2003-08-14 F71508      0 F      Clinic… B_STRPT_GRPB    S     NA    S     S   #>  6 2003-10-16 650870     63 F      ICU     B_ESCHR_COLI    R     NA    NA    R   #>  7 2003-10-20 F35553     52 M      ICU     B_ENTRBC_CLOC   R     NA    NA    R   #>  8 2003-10-20 F35553     52 M      ICU     B_ENTRBC_CLOC   R     NA    NA    R   #>  9 2003-11-04 2FC253     87 F      ICU     B_ESCHR_COLI    R     NA    NA    NA  #> 10 2003-11-04 2FC253     87 F      ICU     B_ESCHR_COLI    R     NA    NA    NA  #> # ℹ 746 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  # filter with multiple antimicrobial selectors using c() example_isolates[all(c(carbapenems(), aminoglycosides()) == \"R\"), ] #> ℹ For `carbapenems()` using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ For `aminoglycosides()` using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> # A tibble: 26 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2004-11-03 D65308     80 F      ICU      B_STNTR_MLTP   R     NA    NA    R   #>  2 2005-04-22 452212     82 F      ICU      B_ENTRC_FACM   NA    NA    NA    NA  #>  3 2007-02-21 8BBC46     61 F      Clinical B_ENTRC_FACM   NA    NA    NA    NA  #>  4 2007-12-15 401043     72 M      Clinical B_ENTRC_FACM   NA    NA    NA    NA  #>  5 2008-12-06 501361     43 F      Clinical B_STNTR_MLTP   R     NA    NA    R   #>  6 2011-05-09 207325     82 F      ICU      B_ENTRC_FACM   NA    NA    NA    NA  #>  7 2012-03-12 582258     80 M      ICU      B_STPHY_CONS   R     R     R     R   #>  8 2012-05-19 C25552     89 F      Outpati… B_STPHY_CONS   R     R     R     R   #>  9 2012-07-17 F05015     83 M      ICU      B_STPHY_CONS   R     R     R     R   #> 10 2012-07-20 404299     66 F      Clinical B_STPHY_CONS   R     R     R     R   #> # ℹ 16 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  # filter + select in one go: get penicillins in carbapenem-resistant strains example_isolates[any(carbapenems() == \"R\"), penicillins()] #> ℹ For `carbapenems()` using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ For `penicillins()` using columns 'PEN' (benzylpenicillin), 'OXA' #>   (oxacillin), 'FLC' (flucloxacillin), 'AMX' (amoxicillin), 'AMC' #>   (amoxicillin/clavulanic acid), 'AMP' (ampicillin), and 'TZP' #>   (piperacillin/tazobactam) #> # A tibble: 55 × 7 #>    PEN   OXA   FLC   AMX   AMC   AMP   TZP   #>    <sir> <sir> <sir> <sir> <sir> <sir> <sir> #>  1   NA    NA    NA    NA    NA    NA    NA  #>  2   NA    NA    NA    NA    NA    NA    NA  #>  3   R     NA    NA    R     R     R     R   #>  4   NA    NA    NA    NA    NA    NA    R   #>  5   NA    NA    NA    NA    NA    NA    R   #>  6   NA    NA    NA    NA    NA    NA    R   #>  7   NA    NA    NA    NA    NA    NA    R   #>  8   NA    NA    NA    NA    NA    NA    R   #>  9   R     NA    NA    NA    S     NA    S   #> 10   R     NA    NA    NA    S     NA    S   #> # ℹ 45 more rows  # You can combine selectors with '&' to be more specific. For example, # penicillins() would select benzylpenicillin ('peni G') and # administrable_per_os() would select erythromycin. Yet, when combined these # drugs are both omitted since benzylpenicillin is not administrable per os # and erythromycin is not a penicillin: example_isolates[, penicillins() & administrable_per_os()] #> ℹ For `penicillins()` using columns 'PEN' (benzylpenicillin), 'OXA' #>   (oxacillin), 'FLC' (flucloxacillin), 'AMX' (amoxicillin), 'AMC' #>   (amoxicillin/clavulanic acid), 'AMP' (ampicillin), and 'TZP' #>   (piperacillin/tazobactam) #> ℹ For `administrable_per_os()` using columns 'OXA' (oxacillin), 'FLC' #>   (flucloxacillin), 'AMX' (amoxicillin), 'AMC' (amoxicillin/clavulanic acid), #>   'AMP' (ampicillin), 'CXM' (cefuroxime), 'KAN' (kanamycin), 'TMP' #>   (trimethoprim), 'NIT' (nitrofurantoin), 'FOS' (fosfomycin), 'LNZ' #>   (linezolid), 'CIP' (ciprofloxacin), 'MFX' (moxifloxacin), 'VAN' #>   (vancomycin), 'TCY' (tetracycline), 'DOX' (doxycycline), 'ERY' #>   (erythromycin), 'CLI' (clindamycin), 'AZM' (azithromycin), 'MTR' #>   (metronidazole), 'CHL' (chloramphenicol), 'COL' (colistin), and 'RIF' #>   (rifampicin) #> # A tibble: 2,000 × 5 #>    OXA   FLC   AMX   AMC   AMP   #>    <sir> <sir> <sir> <sir> <sir> #>  1   NA    NA    NA    I     NA  #>  2   NA    NA    NA    I     NA  #>  3   NA    R     NA    NA    NA  #>  4   NA    R     NA    NA    NA  #>  5   NA    R     NA    NA    NA  #>  6   NA    R     NA    NA    NA  #>  7   NA    S     R     S     R   #>  8   NA    S     R     S     R   #>  9   NA    R     NA    NA    NA  #> 10   NA    S     NA    NA    NA  #> # ℹ 1,990 more rows  # amr_selector() applies a filter in the `antimicrobials` data set and is thus # very flexible. For instance, to select antimicrobials with an oral DDD # of at least 1 gram: example_isolates[, amr_selector(oral_ddd > 1 & oral_units == \"g\")] #> ℹ For `amr_selector(oral_ddd > 1 & oral_units == \"g\")` using columns 'OXA' #>   (oxacillin), 'FLC' (flucloxacillin), 'AMX' (amoxicillin), 'AMC' #>   (amoxicillin/clavulanic acid), 'AMP' (ampicillin), 'KAN' (kanamycin), 'FOS' #>   (fosfomycin), 'LNZ' (linezolid), 'VAN' (vancomycin), 'ERY' (erythromycin), #>   'CLI' (clindamycin), 'MTR' (metronidazole), and 'CHL' (chloramphenicol) #> # A tibble: 2,000 × 13 #>    OXA   FLC   AMX   AMC   AMP   KAN   FOS   LNZ   VAN   ERY   CLI   MTR   CHL   #>    <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> #>  1   NA    NA    NA    I     NA    NA    NA    R     R     R     R     NA    NA  #>  2   NA    NA    NA    I     NA    NA    NA    R     R     R     R     NA    NA  #>  3   NA    R     NA    NA    NA    NA    NA    NA    S     R     NA    NA    NA  #>  4   NA    R     NA    NA    NA    NA    NA    NA    S     R     NA    NA    NA  #>  5   NA    R     NA    NA    NA    NA    NA    NA    S     R     NA    NA    NA  #>  6   NA    R     NA    NA    NA    NA    NA    NA    S     R     R     NA    NA  #>  7   NA    S     R     S     R     NA    NA    NA    S     S     NA    NA    NA  #>  8   NA    S     R     S     R     NA    NA    NA    S     S     NA    NA    NA  #>  9   NA    R     NA    NA    NA    NA    NA    NA    S     R     NA    NA    NA  #> 10   NA    S     NA    NA    NA    NA    NA    NA    S     S     NA    NA    NA  #> # ℹ 1,990 more rows   # data.table --------------------------------------------------------------  # data.table is supported as well, just use it in the same way as with # base R, but add `with = FALSE` if using a single AB selector.  if (require(\"data.table\")) {   dt <- as.data.table(example_isolates)    # this does not work, it returns column *names*   dt[, carbapenems()] } #> Loading required package: data.table #>  #> Attaching package: ‘data.table’ #> The following object is masked from ‘package:purrr’: #>  #>     transpose #> The following objects are masked from ‘package:dplyr’: #>  #>     between, first, last #> The following objects are masked from ‘package:AMR’: #>  #>     %like%, like #> ℹ For `carbapenems()` using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> Warning: It should never be needed to print an antimicrobial selector class. Are you #> using data.table? Then add the argument `with = FALSE`, see our examples at #> `?amr_selector`. #> Class 'amr_selector' #> [1] IPM MEM if (require(\"data.table\")) {   # so `with = FALSE` is required   dt[, carbapenems(), with = FALSE] } #> ℹ For `carbapenems()` using columns 'IPM' (imipenem) and 'MEM' (meropenem) #>         IPM   MEM #>       <sir> <sir> #>    1:  <NA>  <NA> #>    2:  <NA>  <NA> #>    3:  <NA>  <NA> #>    4:  <NA>  <NA> #>    5:  <NA>  <NA> #>   ---             #> 1996:  <NA>  <NA> #> 1997:     S     S #> 1998:     S     S #> 1999:     S     S #> 2000:     S     S  # for multiple selections or AB selectors, `with = FALSE` is not needed: if (require(\"data.table\")) {   dt[, c(\"mo\", aminoglycosides())] } #> ℹ For `aminoglycosides()` using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #>                 mo   GEN   TOB   AMK   KAN #>               <mo> <sir> <sir> <sir> <sir> #>    1: B_ESCHR_COLI  <NA>  <NA>  <NA>  <NA> #>    2: B_ESCHR_COLI  <NA>  <NA>  <NA>  <NA> #>    3: B_STPHY_EPDR  <NA>  <NA>  <NA>  <NA> #>    4: B_STPHY_EPDR  <NA>  <NA>  <NA>  <NA> #>    5: B_STPHY_EPDR  <NA>  <NA>  <NA>  <NA> #>   ---                                      #> 1996: B_STRPT_PNMN     R     R     R     R #> 1997: B_ESCHR_COLI     S     S     S  <NA> #> 1998: B_STPHY_CONS     S  <NA>  <NA>  <NA> #> 1999: B_ESCHR_COLI     S     S  <NA>  <NA> #> 2000: B_KLBSL_PNMN     S     S  <NA>  <NA> if (require(\"data.table\")) {   dt[, c(carbapenems(), aminoglycosides())] } #> ℹ For `carbapenems()` using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ For `aminoglycosides()` using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #>         IPM   MEM   GEN   TOB   AMK   KAN #>       <sir> <sir> <sir> <sir> <sir> <sir> #>    1:  <NA>  <NA>  <NA>  <NA>  <NA>  <NA> #>    2:  <NA>  <NA>  <NA>  <NA>  <NA>  <NA> #>    3:  <NA>  <NA>  <NA>  <NA>  <NA>  <NA> #>    4:  <NA>  <NA>  <NA>  <NA>  <NA>  <NA> #>    5:  <NA>  <NA>  <NA>  <NA>  <NA>  <NA> #>   ---                                     #> 1996:  <NA>  <NA>     R     R     R     R #> 1997:     S     S     S     S     S  <NA> #> 1998:     S     S     S  <NA>  <NA>  <NA> #> 1999:     S     S     S     S  <NA>  <NA> #> 2000:     S     S     S     S  <NA>  <NA>  # row filters are also supported: if (require(\"data.table\")) {   dt[any(carbapenems() == \"S\"), ] } #> ℹ For `carbapenems()` using columns 'IPM' (imipenem) and 'MEM' (meropenem) #>            date patient   age gender       ward           mo   PEN   OXA   FLC #>          <Date>  <char> <num> <char>     <char>         <mo> <sir> <sir> <sir> #>   1: 2002-01-19  738003    71      M   Clinical B_ESCHR_COLI     R  <NA>  <NA> #>   2: 2002-01-19  738003    71      M   Clinical B_ESCHR_COLI     R  <NA>  <NA> #>   3: 2002-01-22  F35553    50      M        ICU B_PROTS_MRBL     R  <NA>  <NA> #>   4: 2002-01-22  F35553    50      M        ICU B_PROTS_MRBL     R  <NA>  <NA> #>   5: 2002-02-05  067927    45      F        ICU B_SERRT_MRCS     R  <NA>  <NA> #>  ---                                                                           #> 905: 2005-04-12  D71461    70      M        ICU B_ESCHR_COLI     R  <NA>  <NA> #> 906: 2009-11-12  650870    69      F Outpatient B_ESCHR_COLI     R  <NA>  <NA> #> 907: 2012-06-14  8CBCF2    41      F   Clinical B_STPHY_CONS     R     S     S #> 908: 2012-10-11  175532    78      M   Clinical B_ESCHR_COLI     R  <NA>  <NA> #> 909: 2013-11-23  A97263    77      M   Clinical B_KLBSL_PNMN     R  <NA>  <NA> #>        AMX   AMC   AMP   TZP   CZO   FEP   CXM   FOX   CTX   CAZ   CRO   GEN #>      <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> #>   1:  <NA>     I  <NA>  <NA>  <NA>  <NA>     S  <NA>     S  <NA>     S  <NA> #>   2:  <NA>     I  <NA>  <NA>  <NA>  <NA>     S  <NA>     S  <NA>     S  <NA> #>   3:  <NA>     I  <NA>  <NA>  <NA>  <NA>     S  <NA>     S     S     S  <NA> #>   4:  <NA>     I  <NA>  <NA>  <NA>  <NA>     S  <NA>     S     S     S  <NA> #>   5:     R     R     R  <NA>     R  <NA>     R     R  <NA>  <NA>  <NA>  <NA> #>  ---                                                                         #> 905:     S     S     S     S  <NA>     S     S     S     S     S     S     S #> 906:     S     S     S     S     S     S     S     S     S     S     S     S #> 907:  <NA>     S  <NA>  <NA>     S     S     S     S     S     R     S     S #> 908:     R     S     R     S  <NA>     S     R     R     S     S     S     S #> 909:     R     S     R     S  <NA>     S     S     S     S     S     S     S #>        TOB   AMK   KAN   TMP   SXT   NIT   FOS   LNZ   CIP   MFX   VAN   TEC #>      <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> #>   1:     S  <NA>  <NA>     S     S  <NA>  <NA>     R  <NA>  <NA>     R     R #>   2:     S  <NA>  <NA>     S     S  <NA>  <NA>     R  <NA>  <NA>     R     R #>   3:  <NA>  <NA>  <NA>     S     S     R  <NA>     R     S  <NA>     R     R #>   4:  <NA>  <NA>  <NA>     S     S     R  <NA>     R     S  <NA>     R     R #>   5:  <NA>  <NA>  <NA>     S     S     R  <NA>     R     S  <NA>     R     R #>  ---                                                                         #> 905:     S     S  <NA>  <NA>     S     S  <NA>     R     S  <NA>     R     R #> 906:     S     S  <NA>     S     S     S  <NA>     R     S  <NA>     R     R #> 907:  <NA>  <NA>  <NA>     S     S  <NA>  <NA>  <NA>     S  <NA>     S  <NA> #> 908:     S  <NA>  <NA>     R     R     R  <NA>     R     R     R     R     R #> 909:     S  <NA>  <NA>     S     S     S  <NA>     R     S  <NA>     R     R #>        TCY   TGC   DOX   ERY   CLI   AZM   IPM   MEM   MTR   CHL   COL   MUP #>      <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> #>   1:  <NA>  <NA>  <NA>     R     R     R     S  <NA>  <NA>  <NA>  <NA>  <NA> #>   2:  <NA>  <NA>  <NA>     R     R     R     S  <NA>  <NA>  <NA>  <NA>  <NA> #>   3:     R     R     R     R     R     R     S  <NA>  <NA>  <NA>     R  <NA> #>   4:     R     R     R     R     R     R     S  <NA>  <NA>  <NA>     R  <NA> #>   5:     R     R     R     R     R     R     S  <NA>  <NA>  <NA>     R  <NA> #>  ---                                                                         #> 905:  <NA>  <NA>  <NA>     R     R     R     S     S  <NA>  <NA>  <NA>  <NA> #> 906:  <NA>  <NA>  <NA>     R     R     R     S     S  <NA>  <NA>  <NA>  <NA> #> 907:  <NA>  <NA>  <NA>     S     S     S     S     S  <NA>  <NA>     R  <NA> #> 908:  <NA>  <NA>  <NA>     R     R     R     S     S  <NA>  <NA>     S  <NA> #> 909:  <NA>  <NA>  <NA>     R     R     R     S     S  <NA>  <NA>     S  <NA> #>        RIF #>      <sir> #>   1:     R #>   2:     R #>   3:     R #>   4:     R #>   5:     R #>  ---       #> 905:     R #> 906:     R #> 907:  <NA> #> 908:     R #> 909:     R if (require(\"data.table\")) {   dt[any(carbapenems() == \"S\"), penicillins(), with = FALSE] } #> ℹ For `carbapenems()` using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ For `penicillins()` using columns 'PEN' (benzylpenicillin), 'OXA' #>   (oxacillin), 'FLC' (flucloxacillin), 'AMX' (amoxicillin), 'AMC' #>   (amoxicillin/clavulanic acid), 'AMP' (ampicillin), and 'TZP' #>   (piperacillin/tazobactam) #>        PEN   OXA   FLC   AMX   AMC   AMP   TZP #>      <sir> <sir> <sir> <sir> <sir> <sir> <sir> #>   1:     R  <NA>  <NA>  <NA>     I  <NA>  <NA> #>   2:     R  <NA>  <NA>  <NA>     I  <NA>  <NA> #>   3:     R  <NA>  <NA>  <NA>     I  <NA>  <NA> #>   4:     R  <NA>  <NA>  <NA>     I  <NA>  <NA> #>   5:     R  <NA>  <NA>     R     R     R  <NA> #>  ---                                           #> 905:     R  <NA>  <NA>     S     S     S     S #> 906:     R  <NA>  <NA>     S     S     S     S #> 907:     R     S     S  <NA>     S  <NA>  <NA> #> 908:     R  <NA>  <NA>     R     S     R     S #> 909:     R  <NA>  <NA>     R     S     R     S # }"},{"path":"https://amr-for-r.org/reference/antimicrobials.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Sets with 618 Antimicrobial Drugs — antimicrobials","title":"Data Sets with 618 Antimicrobial Drugs — antimicrobials","text":"Two data sets containing antimicrobials antivirals. Use .ab() one ab_* functions retrieve values antimicrobials data set. Three identifiers included data set: antimicrobial 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. antibiotics data set renamed antimicrobials. old name removed future version.","code":""},{"path":"https://amr-for-r.org/reference/antimicrobials.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Sets with 618 Antimicrobial Drugs — antimicrobials","text":"","code":"antimicrobials  antibiotics  antivirals"},{"path":"https://amr-for-r.org/reference/antimicrobials.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Sets with 618 Antimicrobial Drugs — antimicrobials","text":"object class deprecated_amr_dataset (inherits tbl_df, tbl, data.frame) 498 rows 14 columns. object class tbl_df (inherits tbl, data.frame) 120 rows 11 columns.","code":""},{"path":"https://amr-for-r.org/reference/antimicrobials.html","id":"for-the-antimicrobials-data-set-a-tibble-with-observations-and-variables-","dir":"Reference","previous_headings":"","what":"For the antimicrobials data set: a tibble with 498 observations and 14 variables:","title":"Data Sets with 618 Antimicrobial Drugs — antimicrobials","text":"ab antimicrobial ID used package (AMC), using official EARS-Net (European Antimicrobial Resistance Surveillance Network) codes available. unique identifier. cid Compound ID found PubChem. unique identifier. name Official name used WHONET/EARS-Net . unique identifier. group short concise group name, based WHONET WHOCC definitions atc ATC codes (Anatomical Therapeutic Chemical) defined WHOCC, like J01CR02 (last updated May 4th, 2025): 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 antimicrobial susceptibility testing (AST) synonyms Synonyms (often trade names) drug, found PubChem based compound ID ATC properties (last updated May 4th, 2025): oral_ddd Defined Daily Dose (DDD), oral treatment, currently available 180 drugs oral_units Units oral_ddd iv_ddd Defined Daily Dose (DDD), parenteral (intravenous) treatment, currently available 153 drugs iv_units Units iv_ddd LOINC: loinc codes associated name antimicrobial drug Logical Observation Identifiers Names Codes (LOINC), Version 2.76 (18 September, 2023). Use ab_loinc() retrieve quickly, see ab_property().","code":""},{"path":"https://amr-for-r.org/reference/antimicrobials.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 618 Antimicrobial Drugs — antimicrobials","text":"av Antiviral ID used package (ACI), using official EARS-Net (European Antimicrobial Resistance Surveillance Network) codes available. unique identifier. Combinations codes contain + indicate , ATA+COBI atazanavir/cobicistat. name Official name used WHONET/EARS-Net . unique identifier. atc ATC codes (Anatomical Therapeutic Chemical) defined WHOCC, see Details cid Compound ID found PubChem. unique identifier. atc_group Official pharmacological subgroup (3rd level ATC code) defined WHOCC synonyms Synonyms (often trade names) drug, found PubChem based compound ID oral_ddd Defined Daily Dose (DDD), oral treatment oral_units Units oral_ddd iv_ddd Defined Daily Dose (DDD), parenteral treatment iv_units Units iv_ddd loinc codes associated name antiviral drug Logical Observation Identifiers Names Codes (LOINC), Version 2.76 (18 September, 2023). Use av_loinc() retrieve quickly, see av_property().","code":""},{"path":"https://amr-for-r.org/reference/antimicrobials.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Data Sets with 618 Antimicrobial Drugs — antimicrobials","text":"Collaborating Centre Drug Statistics Methodology, Guidelines ATC classification DDD assignment, Oslo Accessed https://atcddd.fhi./atc_ddd_index/ May 4th, 2025. Logical Observation Identifiers Names Codes (LOINC), Version 2.76 (18 September, 2023). Accessed https://loinc.org October 19th, 2023. European Commission Public Health PHARMACEUTICALS - COMMUNITY REGISTER: https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm","code":""},{"path":"https://amr-for-r.org/reference/antimicrobials.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Sets with 618 Antimicrobial Drugs — antimicrobials","text":"Properties based ATC code available ATC available. properties : atc_group1, atc_group2, oral_ddd, oral_units, iv_ddd iv_units. note ATC codes unique. example, J01CR02 officially ATC code \"amoxicillin beta-lactamase inhibitor\". Consequently, two items antimicrobials data set return \"J01CR02\":   Synonyms (.e. trade names) derived PubChem Compound ID (column cid) consequently available CID available.","code":"ab_atc(\"amoxicillin/clavulanic acid\") ab_atc(\"amoxicillin/sulbactam\")"},{"path":"https://amr-for-r.org/reference/antimicrobials.html","id":"download-our-reference-data","dir":"Reference","previous_headings":"","what":"Download Our Reference Data","title":"Data Sets with 618 Antimicrobial Drugs — antimicrobials","text":"reference data sets AMR package - including information microorganisms, antimicrobials, clinical breakpoints - freely available download multiple formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. maximum compatibility, also provide machine-readable, tab-separated plain text files suitable use software, including laboratory information systems. Visit website direct download links, explore actual files GitHub repository.","code":""},{"path":"https://amr-for-r.org/reference/antimicrobials.html","id":"whocc","dir":"Reference","previous_headings":"","what":"WHOCC","title":"Data Sets with 618 Antimicrobial Drugs — antimicrobials","text":"package contains ~550 antibiotic, antimycotic antiviral drugs Anatomical Therapeutic Chemical (ATC) codes, ATC groups Defined Daily Dose (DDD) World Health Organization Collaborating Centre Drug Statistics Methodology (WHOCC, https://atcddd.fhi.) Pharmaceuticals Community Register European Commission (https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm). become gold standard international drug utilisation monitoring research. WHOCC located Oslo Norwegian Institute Public Health funded Norwegian government. European Commission executive European Union promotes general interest. NOTE: WHOCC copyright allow use commercial purposes, unlike info package. See https://atcddd.fhi./copyright_disclaimer/.","code":""},{"path":[]},{"path":"https://amr-for-r.org/reference/antimicrobials.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Sets with 618 Antimicrobial Drugs — antimicrobials","text":"","code":"antimicrobials #> # A tibble: 498 × 14 #>    ab        cid name   group atc   atc_group1 atc_group2 abbreviations synonyms #>    <ab>    <dbl> <chr>  <chr> <lis> <chr>      <chr>      <list>        <named > #>  1 AMA      4649 4-ami… Anti… <chr> Drugs for… Aminosali… <chr [1]>     <chr>    #>  2 ACM   6450012 Acety… Macr… <chr> NA         NA         <chr [1]>     <chr>    #>  3 ASP  49787020 Acety… Macr… <chr> NA         NA         <chr [1]>     <chr>    #>  4 ALS      8954 Aldes… Othe… <chr> Drugs for… Drugs for… <chr [1]>     <chr>    #>  5 AMK     37768 Amika… Amin… <chr> Aminoglyc… Other ami… <chr [6]>     <chr>    #>  6 AKF        NA Amika… Amin… <chr> NA         NA         <chr [1]>     <chr>    #>  7 AMO     54260 Amoro… Anti… <chr> Antifunga… Other ant… <chr [1]>     <chr>    #>  8 AMX     33613 Amoxi… Beta… <chr> Beta-lact… Penicilli… <chr [4]>     <chr>    #>  9 AMC  23665637 Amoxi… Beta… <chr> Beta-lact… Combinati… <chr [6]>     <chr>    #> 10 AXS    465441 Amoxi… Beta… <chr> NA         NA         <chr [1]>     <chr>    #> # ℹ 488 more rows #> # ℹ 5 more variables: oral_ddd <dbl>, oral_units <chr>, iv_ddd <dbl>, #> #   iv_units <chr>, loinc <list> antivirals #> # A tibble: 120 × 11 #>    av       name      atc      cid atc_group synonyms oral_ddd oral_units iv_ddd #>    <av>     <chr>     <chr>  <dbl> <chr>     <list>      <dbl> <chr>       <dbl> #>  1 ABA      Abacavir  J05A… 4.41e5 Nucleosi… <chr>         0.6 g              NA #>  2 ACI      Aciclovir J05A… 1.35e8 Nucleosi… <chr>         4   g               4 #>  3 ADD      Adefovir… J05A… 6.09e4 Nucleosi… <chr>        10   mg             NA #>  4 AME      Amenamev… J05A… 1.14e7 Other an… <chr>         0.4 g              NA #>  5 AMP      Amprenav… J05A… 6.50e4 Protease… <chr>         1.2 g              NA #>  6 ASU      Asunapre… J05A… 1.61e7 Antivira… <chr>         0.2 g              NA #>  7 ATA      Atazanav… J05A… 1.48e5 Protease… <chr>         0.3 g              NA #>  8 ATA+COBI Atazanav… J05A… 8.66e7 Antivira… <chr>        NA   NA             NA #>  9 ATA+RIT  Atazanav… J05A… 2.51e7 Antivira… <chr>         0.3 g              NA #> 10 BAM      Baloxavi… J05A… 1.24e8 Other an… <chr>        40   mg             NA #> # ℹ 110 more rows #> # ℹ 2 more variables: iv_units <chr>, loinc <list>"},{"path":"https://amr-for-r.org/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 antimicrobial drug code one antimicrobials. data set antimicrobials searched abbreviations, official names synonyms (brand names).","code":""},{"path":"https://amr-for-r.org/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, language = get_AMR_locale(),   info = interactive(), ...)  is.ab(x)  ab_reset_session()"},{"path":"https://amr-for-r.org/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. language Language coerce input values 28 supported languages - default system language supported (see get_AMR_locale()). info logical indicate whether progress bar printed - default TRUE interactive mode. ... Arguments passed internal functions.","code":""},{"path":"https://amr-for-r.org/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://amr-for-r.org/reference/as.ab.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Transform Input to an Antibiotic ID — as.ab","text":"entries antimicrobials 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://amr-for-r.org/reference/as.ab.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Transform Input to an Antibiotic ID — as.ab","text":"World Health Organization () Collaborating Centre Drug Statistics Methodology: https://atcddd.fhi./atc_ddd_index/ European Commission Public Health PHARMACEUTICALS - COMMUNITY REGISTER: https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm","code":""},{"path":"https://amr-for-r.org/reference/as.ab.html","id":"whocc","dir":"Reference","previous_headings":"","what":"WHOCC","title":"Transform Input to an Antibiotic ID — as.ab","text":"package contains ~550 antibiotic, antimycotic antiviral drugs Anatomical Therapeutic Chemical (ATC) codes, ATC groups Defined Daily Dose (DDD) World Health Organization Collaborating Centre Drug Statistics Methodology (WHOCC, https://atcddd.fhi.) Pharmaceuticals Community Register European Commission (https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm). become gold standard international drug utilisation monitoring research. WHOCC located Oslo Norwegian Institute Public Health funded Norwegian government. European Commission executive European Union promotes general interest. NOTE: WHOCC copyright allow use commercial purposes, unlike info package. See https://atcddd.fhi./copyright_disclaimer/.","code":""},{"path":"https://amr-for-r.org/reference/as.ab.html","id":"download-our-reference-data","dir":"Reference","previous_headings":"","what":"Download Our Reference Data","title":"Transform Input to an Antibiotic ID — as.ab","text":"reference data sets AMR package - including information microorganisms, antimicrobials, clinical breakpoints - freely available download multiple formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. maximum compatibility, also provide machine-readable, tab-separated plain text files suitable use software, including laboratory information systems. Visit website direct download links, explore actual files GitHub repository.","code":""},{"path":[]},{"path":"https://amr-for-r.org/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\") #> 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  # spelling from different languages and dyslexia are no problem ab_atc(\"ceftriaxon\") #> [1] \"J01DD04\"  \"QJ01DD04\" ab_atc(\"cephtriaxone\") # small spelling error #> [1] \"J01DD04\"  \"QJ01DD04\" ab_atc(\"cephthriaxone\") # or a bit more severe #> [1] \"J01DD04\"  \"QJ01DD04\" ab_atc(\"seephthriaaksone\") # and even this works #> [1] \"J01DD04\"  \"QJ01DD04\"  # use ab_* functions to get a specific properties (see ?ab_property); # they use as.ab() internally: ab_name(\"J01FA01\") #> [1] \"Erythromycin\" ab_name(\"eryt\") #> [1] \"Erythromycin\"  # \\donttest{ if (require(\"dplyr\")) {   # you can quickly rename 'sir' columns using set_ab_names() with dplyr:   example_isolates %>%     set_ab_names(where(is.sir), property = \"atc\") } #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           J01CE01 J01CF04 J01CF05 #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir>   <sir>   <sir>   #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI   R       NA      NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI   R       NA      NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR   R       NA      R     #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR   R       NA      R     #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR   R       NA      R     #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR   R       NA      R     #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS   R       NA      S     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS   R       NA      S     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR   R       NA      R     #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR   R       NA      S     #> # ℹ 1,990 more rows #> # ℹ 37 more variables: J01CA04 <sir>, J01CR02 <sir>, J01CA01 <sir>, #> #   J01CR05 <sir>, J01DB04 <sir>, J01DE01 <sir>, J01DC02 <sir>, J01DC01 <sir>, #> #   J01DD01 <sir>, J01DD02 <sir>, J01DD04 <sir>, J01GB03 <sir>, J01GB01 <sir>, #> #   J01GB06 <sir>, J01GB04 <sir>, J01EA01 <sir>, J01EE01 <sir>, J01XE01 <sir>, #> #   J01XX01 <sir>, J01XX08 <sir>, J01MA02 <sir>, J01MA14 <sir>, J01XA01 <sir>, #> #   J01XA02 <sir>, J01AA07 <sir>, J01AA12 <sir>, J01AA02 <sir>, … # }"},{"path":"https://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/reference/as.av.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Transform Input to an Antiviral Drug ID — as.av","text":"World Health Organization () Collaborating Centre Drug Statistics Methodology: https://atcddd.fhi./atc_ddd_index/ European Commission Public Health PHARMACEUTICALS - COMMUNITY REGISTER: https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm","code":""},{"path":"https://amr-for-r.org/reference/as.av.html","id":"whocc","dir":"Reference","previous_headings":"","what":"WHOCC","title":"Transform Input to an Antiviral Drug ID — as.av","text":"package contains ~550 antibiotic, antimycotic antiviral drugs Anatomical Therapeutic Chemical (ATC) codes, ATC groups Defined Daily Dose (DDD) World Health Organization Collaborating Centre Drug Statistics Methodology (WHOCC, https://atcddd.fhi.) Pharmaceuticals Community Register European Commission (https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm). become gold standard international drug utilisation monitoring research. WHOCC located Oslo Norwegian Institute Public Health funded Norwegian government. European Commission executive European Union promotes general interest. NOTE: WHOCC copyright allow use commercial purposes, unlike info package. See https://atcddd.fhi./copyright_disclaimer/.","code":""},{"path":"https://amr-for-r.org/reference/as.av.html","id":"download-our-reference-data","dir":"Reference","previous_headings":"","what":"Download Our Reference Data","title":"Transform Input to an Antiviral Drug ID — as.av","text":"reference data sets AMR package - including information microorganisms, antimicrobials, clinical breakpoints - freely available download multiple formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. maximum compatibility, also provide machine-readable, tab-separated plain text files suitable use software, including laboratory information systems. Visit website direct download links, explore actual files GitHub repository.","code":""},{"path":[]},{"path":"https://amr-for-r.org/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://amr-for-r.org/reference/as.disk.html","id":null,"dir":"Reference","previous_headings":"","what":"Transform Input to Disk Diffusion Diameters — as.disk","title":"Transform Input to Disk Diffusion Diameters — as.disk","text":"transforms vector new class disk, disk diffusion growth zone size (around antibiotic disk) millimetres 0 50.","code":""},{"path":"https://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/reference/as.disk.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Transform Input to Disk Diffusion Diameters — as.disk","text":"Interpret disk values SIR values .sir(). supports guidelines EUCAST CLSI. Disk diffusion growth zone sizes must 0 50 millimetres. Values higher 50 lower 100 maximised 50. others input values outside 0-50 range return NA. NA_disk_ missing value new disk class.","code":""},{"path":[]},{"path":"https://amr-for-r.org/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\" ) #> Class 'sir' #> [1] R  # interpret whole data set, pretend to be all from urinary tract infections: as.sir(df, uti = TRUE) #>      microorganism AMP  CIP GEN TOB #> 1 Escherichia coli   S <NA>   S   S"},{"path":"https://amr-for-r.org/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://amr-for-r.org/reference/as.mic.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"","code":"as.mic(x, na.rm = FALSE, keep_operators = \"all\")  is.mic(x)  NA_mic_  rescale_mic(x, mic_range, keep_operators = \"edges\", as.mic = TRUE)  mic_p50(x, na.rm = FALSE, ...)  mic_p90(x, na.rm = FALSE, ...)  # S3 method for class 'mic' droplevels(x, as.mic = FALSE, ...)"},{"path":"https://amr-for-r.org/reference/as.mic.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"x character numeric vector. na.rm logical indicating whether missing values removed. keep_operators character specifying handle operators (> <=) input. Accepts one three values: \"\" (TRUE) keep operators, \"none\" (FALSE) remove operators, \"edges\" keep operators ends range. mic_range manual range rescale MIC values, e.g., mic_range = c(0.001, 32). Use NA prevent rescaling one side, e.g., mic_range = c(NA, 32). .mic logical indicate whether mic class kept - default TRUE rescale_mic() FALSE droplevels(). setting FALSE rescale_mic(), output factor levels acknowledge mic_range. ... Arguments passed methods.","code":""},{"path":"https://amr-for-r.org/reference/as.mic.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"Ordered factor additional class mic, mathematical operations acts numeric vector. Bear mind outcome mathematical operation MICs return numeric value.","code":""},{"path":"https://amr-for-r.org/reference/as.mic.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"interpret MIC values SIR values, use .sir() MIC values. supports guidelines EUCAST (2011-2025) CLSI (2011-2025). class MIC values quite special data type: formally ordered factor valid MIC values factor levels (make sure valid MIC values retained), mathematical operation acts decimal numbers:   makes possible maintain operators often come MIC values, \">=\" \"<=\", even filtering using numeric values data analysis, e.g.:   -called group generic functions implemented MIC class (!, !=, <, >=, exp(), log2()). mathematical functions also implemented (quantile(), median(), fivenum()). Since sd() var() non-generic functions, extended. Use mad() alternative, use e.g. sd(.numeric(x)) x vector MIC values. Using .double() .numeric() MIC values remove operators return numeric vector. use .integer() MIC values R convention factors, return index factor levels (often useless regular users). function .mic() detects input contains class mic. input data.frame list, iterates columns/items returns logical vector. Use droplevels() drop unused levels. default, return plain factor. Use droplevels(..., .mic = TRUE) maintain mic class. rescale_mic(), existing MIC ranges can limited defined range MIC values. can useful better compare MIC distributions. ggplot2, use one scale_*_mic() functions plot MIC values. allows custom MIC ranges plot intermediate log2 levels missing MIC values. NA_mic_ missing value new mic class, analogous e.g. base R's NA_character_. Use mic_p50() mic_p90() get 50th 90th percentile MIC values. return 'normal' numeric values.","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://amr-for-r.org/reference/as.mic.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"","code":"mic_data <- as.mic(c(\">=32\", \"1.0\", \"1\", \"1.00\", 8, \"<=0.128\", \"8\", \"16\", \"16\")) mic_data #> Class 'mic' #> [1] >=32    1       1       1       8       <=0.128 8       16      16      is.mic(mic_data) #> [1] TRUE  # this can also coerce combined MIC/SIR values: as.mic(\"<=0.002; S\") #> Class 'mic' #> [1] <=0.002  # mathematical processing treats MICs as numeric values fivenum(mic_data) #> [1]  0.128  1.000  8.000 16.000 32.000 quantile(mic_data) #>     0%    25%    50%    75%   100%  #>  0.128  1.000  8.000 16.000 32.000  all(mic_data < 512) #> [1] TRUE  # rescale MICs using rescale_mic() rescale_mic(mic_data, mic_range = c(4, 16)) #> Class 'mic' #> [1] >=16 <=4  <=4  <=4  8    <=4  8    >=16 >=16  # interpret MIC values as.sir(   x = as.mic(2),   mo = as.mo(\"Streptococcus pneumoniae\"),   ab = \"AMX\",   guideline = \"EUCAST\" ) #> Class 'sir' #> [1] R as.sir(   x = as.mic(c(0.01, 2, 4, 8)),   mo = as.mo(\"Streptococcus pneumoniae\"),   ab = \"AMX\",   guideline = \"EUCAST\" ) #> Class 'sir' #> [1] S R R R  # plot MIC values, see ?plot plot(mic_data)  plot(mic_data, mo = \"E. coli\", ab = \"cipro\")   if (require(\"ggplot2\")) {   autoplot(mic_data, mo = \"E. coli\", ab = \"cipro\") }  if (require(\"ggplot2\")) {   autoplot(mic_data, mo = \"E. coli\", ab = \"cipro\", language = \"nl\") # Dutch }"},{"path":"https://amr-for-r.org/reference/as.mo.html","id":null,"dir":"Reference","previous_headings":"","what":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"Use function get valid microorganism code (mo) based arbitrary user input. Determination done using intelligent rules complete taxonomic tree kingdoms Animalia, Archaea, Bacteria, Chromista, Protozoa, microbial species kingdom Fungi (see Source). input can almost anything: full name (like \"Staphylococcus aureus\"), abbreviated name (\"S. aureus\"), abbreviation known field (\"MRSA\"), just genus. See Examples.","code":""},{"path":"https://amr-for-r.org/reference/as.mo.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"","code":"as.mo(x, Becker = FALSE, Lancefield = FALSE,   minimum_matching_score = NULL,   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   reference_df = get_mo_source(),   ignore_pattern = getOption(\"AMR_ignore_pattern\", NULL),   cleaning_regex = getOption(\"AMR_cleaning_regex\", mo_cleaning_regex()),   only_fungi = getOption(\"AMR_only_fungi\", FALSE),   language = get_AMR_locale(), info = interactive(), ...)  is.mo(x)  mo_uncertainties()  mo_renamed()  mo_failures()  mo_reset_session()  mo_cleaning_regex()"},{"path":"https://amr-for-r.org/reference/as.mo.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"x character vector data.frame one two columns. Becker logical indicate whether staphylococci categorised coagulase-negative staphylococci (\"CoNS\") coagulase-positive staphylococci (\"CoPS\") instead species, according Karsten Becker et al. (see Source). Please see Details full list staphylococcal species converted. excludes Staphylococcus aureus default, use Becker = \"\" also categorise S. aureus \"CoPS\". Lancefield logical indicate whether beta-haemolytic Streptococcus categorised Lancefield groups instead species, according Rebecca C. Lancefield (see Source). streptococci categorised first group, e.g. Streptococcus dysgalactiae group C, although officially also categorised groups G L. . Please see Details full list streptococcal species converted. excludes enterococci default (group D), use Lancefield = \"\" also categorise enterococci group D. minimum_matching_score numeric value set lower limit MO matching score. left blank, determined automatically based character length x, taxonomic kingdom human pathogenicity. keep_synonyms logical indicate old, previously valid taxonomic names must preserved corrected currently accepted names. default FALSE, return note old taxonomic names processed. default can set package option AMR_keep_synonyms, .e. options(AMR_keep_synonyms = TRUE) options(AMR_keep_synonyms = FALSE). reference_df data.frame used extra reference translating x valid mo. See set_mo_source() get_mo_source() automate usage codes (e.g. used analysis organisation). ignore_pattern Perl-compatible regular expression (case-insensitive) matches x must return NA. can convenient exclude known non-relevant input can also set package option AMR_ignore_pattern, e.g. options(AMR_ignore_pattern = \"(reported|contaminated flora)\"). cleaning_regex Perl-compatible regular expression (case-insensitive) clean input x. Every matched part x removed. default, outcome mo_cleaning_regex(), removes texts brackets texts \"species\" \"serovar\". default can set package option AMR_cleaning_regex. only_fungi logical indicate fungi must found, making sure e.g. misspellings always return records kingdom Fungi. can set globally microorganism functions package option AMR_only_fungi, .e. options(AMR_only_fungi = TRUE). language Language translate text like \"growth\", defaults system language (see get_AMR_locale()). info logical indicate info must printed, e.g. progress bar 25 items coerced, list old taxonomic names. default TRUE interactive mode. ... arguments passed functions.","code":""},{"path":"https://amr-for-r.org/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://amr-for-r.org/reference/as.mo.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"microorganism (MO) code package (class: mo) human-readable typically looks like examples:   Values coerced considered 'unknown' return MO code UNKNOWN warning. Use mo_* functions get properties based returned code, see Examples. .mo() function uses novel scientifically validated (doi:10.18637/jss.v104.i03 ) matching score algorithm (see Matching Score Microorganisms ) match input available microbial taxonomy package. implicates e.g. \"E. coli\" (microorganism highly prevalent humans) return microbial ID Escherichia coli Entamoeba coli (microorganism less prevalent humans), although latter alphabetically come first.","code":"Code               Full name   ---------------    --------------------------------------   B_KLBSL            Klebsiella   B_KLBSL_PNMN       Klebsiella pneumoniae   B_KLBSL_PNMN_RHNS  Klebsiella pneumoniae rhinoscleromatis   |   |    |    |   |   |    |    |   |   |    |    \\---> subspecies, a 3-5 letter acronym   |   |    \\----> species, a 3-6 letter acronym   |   \\----> genus, a 4-8 letter acronym   \\----> kingdom: A (Archaea), AN (Animalia), B (Bacteria),                   C (Chromista), F (Fungi), PL (Plantae),                   P (Protozoa)"},{"path":"https://amr-for-r.org/reference/as.mo.html","id":"coping-with-uncertain-results","dir":"Reference","previous_headings":"","what":"Coping with Uncertain Results","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"Results non-exact taxonomic input based matching score. lowest allowed score can set minimum_matching_score argument. default determined based character length input, taxonomic kingdom, human pathogenicity taxonomic outcome. values matched uncertainty, message shown suggest user inspect results mo_uncertainties(), returns data.frame specifications. increase quality matching, cleaning_regex argument used clean input. must regular expression matches parts input removed input matched available microbial taxonomy. matched Perl-compatible case-insensitive. default value cleaning_regex outcome helper function mo_cleaning_regex(). three helper functions can run using .mo() function: Use mo_uncertainties() get data.frame prints pretty format taxonomic names guessed. output contains matching score matches (see Matching Score Microorganisms ). Use mo_failures() get character vector values coerced valid value. Use mo_renamed() get data.frame values coerced based old, previously accepted taxonomic names.","code":""},{"path":"https://amr-for-r.org/reference/as.mo.html","id":"for-mycologists","dir":"Reference","previous_headings":"","what":"For Mycologists","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"matching score algorithm gives precedence bacteria fungi. analysing fungi, sure use only_fungi = TRUE, better yet, add code run every session:   make sure bacteria 'non-fungi' returned .mo(), mo_* functions.","code":"options(AMR_only_fungi = TRUE)"},{"path":"https://amr-for-r.org/reference/as.mo.html","id":"coagulase-negative-and-coagulase-positive-staphylococci","dir":"Reference","previous_headings":"","what":"Coagulase-negative and Coagulase-positive Staphylococci","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"Becker = TRUE, following staphylococci converted corresponding coagulase group: Coagulase-negative: S. americanisciuri, S. argensis, S. arlettae, S. auricularis, S. borealis, S. brunensis, S. caeli, S. caledonicus, S. canis, S. capitis, S. capitis capitis, S. capitis urealyticus, S. capitis ureolyticus, S. caprae, S. carnosus, S. carnosus carnosus, S. carnosus utilis, S. casei, S. caseolyticus, S. chromogenes, S. cohnii, S. cohnii cohnii, S. cohnii urealyticum, S. cohnii urealyticus, S. condimenti, S. croceilyticus, S. debuckii, S. devriesei, S. durrellii, S. edaphicus, S. epidermidis, S. equorum, S. equorum equorum, S. equorum linens, S. felis, S. fleurettii, S. gallinarum, S. haemolyticus, S. hominis, S. hominis hominis, S. hominis novobiosepticus, S. jettensis, S. kloosii, S. lentus, S. lloydii, S. lugdunensis, S. marylandisciuri, S. massiliensis, S. microti, S. muscae, S. nepalensis, S. pasteuri, S. petrasii, S. petrasii croceilyticus, S. petrasii jettensis, S. petrasii petrasii, S. petrasii pragensis, S. pettenkoferi, S. piscifermentans, S. pragensis, S. pseudoxylosus, S. pulvereri, S. ratti, S. rostri, S. saccharolyticus, S. saprophyticus, S. saprophyticus bovis, S. saprophyticus saprophyticus, S. schleiferi, S. schleiferi schleiferi, S. sciuri, S. sciuri carnaticus, S. sciuri lentus, S. sciuri rodentium, S. sciuri sciuri, S. shinii, S. simulans, S. stepanovicii, S. succinus, S. succinus casei, S. succinus succinus, S. taiwanensis, S. urealyticus, S. ureilyticus, S. veratri, S. vitulinus, S. vitulus, S. warneri, S. xylosus Coagulase-positive: S. agnetis, S. argenteus, S. coagulans, S. cornubiensis, S. delphini, S. hyicus, S. hyicus chromogenes, S. hyicus hyicus, S. intermedius, S. lutrae, S. pseudintermedius, S. roterodami, S. schleiferi coagulans, S. schweitzeri, S. simiae, S. singaporensis based : Becker K et al. (2014). Coagulase-Negative Staphylococci. Clin Microbiol Rev. 27(4): 870-926; doi:10.1128/CMR.00109-13 Becker K et al. (2019). Implications identifying recently defined members S. aureus complex, S. argenteus S. schweitzeri: position paper members ESCMID Study Group staphylococci Staphylococcal Diseases (ESGS). Clin Microbiol Infect; doi:10.1016/j.cmi.2019.02.028 Becker K et al. (2020). Emergence coagulase-negative staphylococci. Expert Rev Anti Infect Ther. 18(4):349-366; doi:10.1080/14787210.2020.1730813 newly named staphylococcal species, S. brunensis (2024) S. shinii (2023), looked scientific reference make sure species considered correct coagulase group.","code":""},{"path":"https://amr-for-r.org/reference/as.mo.html","id":"lancefield-groups-in-streptococci","dir":"Reference","previous_headings":"","what":"Lancefield Groups in Streptococci","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"Lancefield = TRUE, following streptococci converted corresponding Lancefield group: Streptococcus Group : S. pyogenes Streptococcus Group B: S. agalactiae Streptococcus Group C: S. dysgalactiae, S. dysgalactiae dysgalactiae, S. dysgalactiae equisimilis, S. equi, S. equi equi, S. equi ruminatorum, S. equi zooepidemicus Streptococcus Group F: S. anginosus, S. anginosus anginosus, S. anginosus whileyi, S. constellatus, S. constellatus constellatus, S. constellatus pharyngis, S. constellatus viborgensis, S. intermedius Streptococcus Group G: S. canis, S. dysgalactiae, S. dysgalactiae dysgalactiae, S. dysgalactiae equisimilis Streptococcus Group H: S. sanguinis Streptococcus Group K: S. salivarius, S. salivarius salivarius, S. salivarius thermophilus Streptococcus Group L: S. dysgalactiae, S. dysgalactiae dysgalactiae, S. dysgalactiae equisimilis based : Lancefield RC (1933). serological differentiation human groups hemolytic streptococci. J Exp Med. 57(4): 571-95; doi:10.1084/jem.57.4.571","code":""},{"path":"https://amr-for-r.org/reference/as.mo.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"Berends MS et al. (2022). AMR: R Package Working Antimicrobial Resistance Data. Journal Statistical Software, 104(3), 1-31; doi:10.18637/jss.v104.i03 Parte, AC et al. (2020). List Prokaryotic names Standing Nomenclature (LPSN) moves DSMZ. International Journal Systematic Evolutionary Microbiology, 70, 5607-5612; doi:10.1099/ijsem.0.004332 . Accessed https://lpsn.dsmz.de June 24th, 2024. Vincent, R et al (2013). MycoBank gearing new horizons. IMA Fungus, 4(2), 371-9; doi:10.5598/imafungus.2013.04.02.16 . Accessed https://www.mycobank.org June 24th, 2024. GBIF Secretariat (2023). GBIF Backbone Taxonomy. Checklist dataset doi:10.15468/39omei . Accessed https://www.gbif.org June 24th, 2024. Reimer, LC et al. (2022). BacDive 2022: knowledge base standardized bacterial archaeal data. Nucleic Acids Res., 50(D1):D741-D74; doi:10.1093/nar/gkab961 . Accessed https://bacdive.dsmz.de July 16th, 2024. Public Health Information Network Vocabulary Access Distribution System (PHIN VADS). US Edition SNOMED CT 1 September 2020. Value Set Name 'Microorganism', OID 2.16.840.1.114222.4.11.1009 (v12). URL: https://www.cdc.gov/phin/php/phinvads/ Bartlett et al. (2022). comprehensive list bacterial pathogens infecting humans Microbiology 168:001269; doi:10.1099/mic.0.001269","code":""},{"path":"https://amr-for-r.org/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 : $$m_{(x, n)} = \\frac{l_{n} - 0.5 \\cdot \\min \\begin{cases}l_{n} \\\\ \\textrm{lev}(x, n)\\end{cases}}{l_{n} \\cdot p_{n} \\cdot k_{n}}$$ : \\(x\\) user input; \\(n\\) taxonomic name (genus, species, subspecies); \\(l_n\\) length \\(n\\); \\(lev\\) Levenshtein distance function (counting insertion 1, deletion substitution 2) needed change \\(x\\) \\(n\\); \\(p_n\\) human pathogenic prevalence group \\(n\\), described ; \\(k_n\\) taxonomic kingdom \\(n\\), set Bacteria = 1, Fungi = 1.25, Protozoa = 1.5, Chromista = 1.75, Archaea = 2, others = 3. grouping human pathogenic prevalence \\(p\\) based recent work Bartlett et al. (2022, doi:10.1099/mic.0.001269 ) extensively studied medical-scientific literature categorise bacterial species groups: Established, taxonomic species infected least three persons three references. records prevalence = 1.15 microorganisms data set; Putative, taxonomic species fewer three known cases. records prevalence = 1.25 microorganisms data set. Furthermore, Genera World Health Organization's () Priority Pathogen List prevalence = 1.0 microorganisms data set; genus present established list also prevalence = 1.15 microorganisms data set; genus present putative list prevalence = 1.25 microorganisms data set; species subspecies genus present two aforementioned groups, prevalence = 1.5 microorganisms data set; non-bacterial genus, species subspecies genus present following list, prevalence = 1.25 microorganisms data set: Absidia, Acanthamoeba, Acremonium, Actinomucor, Aedes, Alternaria, Amoeba, Ancylostoma, Angiostrongylus, Anisakis, Anopheles, Apophysomyces, Arthroderma, Aspergillus, Aureobasidium, Basidiobolus, Beauveria, Bipolaris, Blastobotrys, Blastocystis, Blastomyces, Candida, Capillaria, Chaetomium, Chilomastix, Chrysonilia, Chrysosporium, Cladophialophora, Cladosporium, Clavispora, Coccidioides, Cokeromyces, Conidiobolus, Coniochaeta, Contracaecum, Cordylobia, Cryptococcus, Cryptosporidium, Cunninghamella, Curvularia, Cyberlindnera, Debaryozyma, Demodex, Dermatobia, Dientamoeba, Diphyllobothrium, Dirofilaria, Echinostoma, Entamoeba, Enterobius, Epidermophyton, Exidia, Exophiala, Exserohilum, Fasciola, Fonsecaea, Fusarium, Geotrichum, Giardia, Graphium, Haloarcula, Halobacterium, Halococcus, Hansenula, Hendersonula, Heterophyes, Histomonas, Histoplasma, Hortaea, Hymenolepis, Hypomyces, Hysterothylacium, Kloeckera, Kluyveromyces, Kodamaea, Lacazia, Leishmania, Lichtheimia, Lodderomyces, Lomentospora, Madurella, Malassezia, Malbranchea, Metagonimus, Meyerozyma, Microsporidium, Microsporum, Millerozyma, Mortierella, Mucor, Mycocentrospora, Nannizzia, Necator, Nectria, Ochroconis, Oesophagostomum, Oidiodendron, Opisthorchis, Paecilomyces, Paracoccidioides, Pediculus, Penicillium, Phaeoacremonium, Phaeomoniella, Phialophora, Phlebotomus, Phoma, Pichia, Piedraia, Pithomyces, Pityrosporum, Pneumocystis, Pseudallescheria, Pseudoscopulariopsis, Pseudoterranova, Pulex, Purpureocillium, Quambalaria, Rhinocladiella, Rhizomucor, Rhizopus, Rhodotorula, Saccharomyces, Saksenaea, Saprochaete, Sarcoptes, Scedosporium, Schistosoma, Schizosaccharomyces, Scolecobasidium, Scopulariopsis, Scytalidium, Spirometra, Sporobolomyces, Sporopachydermia, Sporothrix, Sporotrichum, Stachybotrys, Strongyloides, Syncephalastrum, Syngamus, Taenia, Talaromyces, Teleomorph, Toxocara, Trichinella, Trichobilharzia, Trichoderma, Trichomonas, Trichophyton, Trichosporon, Trichostrongylus, Trichuris, Tritirachium, Trombicula, Trypanosoma, Tunga, Ulocladium, Ustilago, Verticillium, Wallemia, Wangiella, Wickerhamomyces, Wuchereria, Yarrowia, Zygosaccharomyces; records prevalence = 2.0 microorganisms data set. calculating matching score, characters \\(x\\) \\(n\\) ignored -Z, -z, 0-9, spaces parentheses. matches sorted descending matching score user input values, top match returned. lead effect e.g., \"E. coli\" return microbial ID Escherichia coli (\\(m = 0.688\\), highly prevalent microorganism found humans) Entamoeba coli (\\(m = 0.381\\), less prevalent microorganism humans), although latter alphabetically come first.","code":""},{"path":"https://amr-for-r.org/reference/as.mo.html","id":"download-our-reference-data","dir":"Reference","previous_headings":"","what":"Download Our Reference Data","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"reference data sets AMR package - including information microorganisms, antimicrobials, clinical breakpoints - freely available download multiple formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. maximum compatibility, also provide machine-readable, tab-separated plain text files suitable use software, including laboratory information systems. Visit website direct download links, explore actual files GitHub repository.","code":""},{"path":[]},{"path":"https://amr-for-r.org/reference/as.mo.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"","code":"# \\donttest{ # These examples all return \"B_STPHY_AURS\", the ID of S. aureus: as.mo(c(   \"sau\", # WHONET code   \"stau\",   \"STAU\",   \"staaur\",   \"S. aureus\",   \"S aureus\",   \"Sthafilokkockus aureus\", # handles incorrect spelling   \"Staphylococcus aureus (MRSA)\",   \"MRSA\", # Methicillin Resistant S. aureus   \"VISA\", # Vancomycin Intermediate S. aureus   \"VRSA\", # Vancomycin Resistant S. aureus   115329001 # SNOMED CT code )) #> Class 'mo' #>  [1] B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS #>  [6] B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS #> [11] B_STPHY_AURS B_STPHY_AURS  # Dyslexia is no problem - these all work: as.mo(c(   \"Ureaplasma urealyticum\",   \"Ureaplasma urealyticus\",   \"Ureaplasmium urealytica\",   \"Ureaplazma urealitycium\" )) #> Class 'mo' #> [1] B_URPLS_URLY B_URPLS_URLY B_URPLS_URLY B_URPLS_URLY  # input will get cleaned up with the input given in the `cleaning_regex` argument, # which defaults to `mo_cleaning_regex()`: cat(mo_cleaning_regex(), \"\\n\") #> ([^A-Za-z- \\(\\)\\[\\]{}]+|([({]|\\[).+([})]|\\])|(^| )( ?[a-z-]+[-](resistant|susceptible) ?|e?spp([^a-z]+|$)|e?ssp([^a-z]+|$)|serogr.?up[a-z]*|e?ss([^a-z]+|$)|e?sp([^a-z]+|$)|var([^a-z]+|$)|serovar[a-z]*|sube?species|biovar[a-z]*|e?species|Ig[ADEGM]|e?subsp|biotype|titer|dummy))   as.mo(\"Streptococcus group A\") #> Class 'mo' #> [1] B_STRPT_GRPA  as.mo(\"S. epidermidis\") # will remain species: B_STPHY_EPDR #> Class 'mo' #> [1] B_STPHY_EPDR as.mo(\"S. epidermidis\", Becker = TRUE) # will not remain species: B_STPHY_CONS #> Class 'mo' #> [1] B_STPHY_CONS  as.mo(\"S. pyogenes\") # will remain species: B_STRPT_PYGN #> Class 'mo' #> [1] B_STRPT_PYGN as.mo(\"S. pyogenes\", Lancefield = TRUE) # will not remain species: B_STRPT_GRPA #> Class 'mo' #> [1] B_STRPT_GRPA  # All mo_* functions use as.mo() internally too (see ?mo_property): mo_genus(\"E. coli\") #> [1] \"Escherichia\" mo_gramstain(\"ESCO\") #> [1] \"Gram-negative\" mo_is_intrinsic_resistant(\"ESCCOL\", ab = \"vanco\") #> ℹ Determining intrinsic resistance based on 'EUCAST Expected Resistant #>   Phenotypes' v1.2 (2023). This note will be shown once per session. #> [1] TRUE # }"},{"path":"https://amr-for-r.org/reference/as.sir.html","id":null,"dir":"Reference","previous_headings":"","what":"Interpret MIC and Disk Diffusion as SIR, or Clean Existing SIR Data — as.sir","title":"Interpret MIC and Disk Diffusion as SIR, or Clean Existing SIR Data — as.sir","text":"Clean existing SIR values, interpret minimum inhibitory concentration (MIC) values disk diffusion diameters according EUCAST CLSI. .sir() transforms input new class sir, ordered factor containing levels S, SDD, , R, NI. Breakpoints currently implemented EUCAST 2011-2025 CLSI 2011-2025, see Details. breakpoints used interpretation available clinical_breakpoints data set.","code":""},{"path":"https://amr-for-r.org/reference/as.sir.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Interpret MIC and Disk Diffusion as SIR, or Clean Existing SIR Data — as.sir","text":"","code":"as.sir(x, ...)  NA_sir_  is.sir(x)  is_sir_eligible(x, threshold = 0.05)  # Default S3 method as.sir(x, S = \"^(S|U|1)+$\", I = \"^(I|2)+$\",   R = \"^(R|3)+$\", NI = \"^(N|NI|V|4)+$\", SDD = \"^(SDD|D|H|5)+$\",   info = interactive(), ...)  # S3 method for class 'mic' as.sir(x, mo = NULL, ab = deparse(substitute(x)),   guideline = getOption(\"AMR_guideline\", \"EUCAST\"), uti = NULL,   capped_mic_handling = getOption(\"AMR_capped_mic_handling\", \"standard\"),   add_intrinsic_resistance = FALSE,   reference_data = AMR::clinical_breakpoints,   substitute_missing_r_breakpoint = getOption(\"AMR_substitute_missing_r_breakpoint\",   FALSE), include_screening = getOption(\"AMR_include_screening\", FALSE),   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\"), host = NULL,   language = get_AMR_locale(), verbose = FALSE, info = interactive(),   conserve_capped_values = NULL, ...)  # S3 method for class 'disk' as.sir(x, mo = NULL, ab = deparse(substitute(x)),   guideline = getOption(\"AMR_guideline\", \"EUCAST\"), uti = NULL,   add_intrinsic_resistance = FALSE,   reference_data = AMR::clinical_breakpoints,   substitute_missing_r_breakpoint = getOption(\"AMR_substitute_missing_r_breakpoint\",   FALSE), include_screening = getOption(\"AMR_include_screening\", FALSE),   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\"), host = NULL,   language = get_AMR_locale(), verbose = FALSE, info = interactive(),   ...)  # S3 method for class 'data.frame' as.sir(x, ..., col_mo = NULL,   guideline = getOption(\"AMR_guideline\", \"EUCAST\"), uti = NULL,   capped_mic_handling = getOption(\"AMR_capped_mic_handling\", \"standard\"),   add_intrinsic_resistance = FALSE,   reference_data = AMR::clinical_breakpoints,   substitute_missing_r_breakpoint = getOption(\"AMR_substitute_missing_r_breakpoint\",   FALSE), include_screening = getOption(\"AMR_include_screening\", FALSE),   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\"), host = NULL,   language = get_AMR_locale(), verbose = FALSE, info = interactive(),   parallel = FALSE, max_cores = -1, conserve_capped_values = NULL)  sir_interpretation_history(clean = FALSE)"},{"path":"https://amr-for-r.org/reference/as.sir.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Interpret MIC and Disk Diffusion as SIR, or Clean Existing SIR Data — as.sir","text":"interpretations minimum inhibitory concentration (MIC) values disk diffusion diameters: CLSI M39: Analysis Presentation Cumulative Antimicrobial Susceptibility Test Data, 2011-2025, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/microbiology/documents/m39/. CLSI M100: Performance Standard Antimicrobial Susceptibility Testing, 2011-2025, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/microbiology/documents/m100/. CLSI VET01: Performance Standards Antimicrobial Disk Dilution Susceptibility Tests Bacteria Isolated Animals, 2019-2025, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/veterinary-medicine/documents/vet01/. EUCAST Breakpoint tables interpretation MICs zone diameters, 2011-2025, European Committee Antimicrobial Susceptibility Testing (EUCAST). https://www.eucast.org/clinical_breakpoints. WHONET source machine-reading clinical breakpoints (read ), 1989-2025, Collaborating Centre Surveillance Antimicrobial Resistance. https://whonet.org/.","code":""},{"path":"https://amr-for-r.org/reference/as.sir.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Interpret MIC and Disk Diffusion as 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: selection columns apply .sir() . Supports tidyselect language (.mic), starts_with(...), column1:column4, can thus also antimicrobial selectors, e.g. .sir(df, penicillins()). Otherwise: arguments passed methods. threshold Maximum fraction invalid antimicrobial interpretations x, see Examples. S, , R, NI, SDD case-independent regular expression translate input result. regular expression run non-letters whitespaces removed input. info logical print information process, defaults TRUE interactive sessions. mo vector (column name) characters can coerced valid microorganism codes .mo(), can left empty determine automatically. ab vector (column name) characters can coerced valid antimicrobial drug code .ab(). guideline guideline name (column name) use SIR interpretation. Defaults EUCAST 2025 (latest implemented EUCAST guideline clinical_breakpoints data set), can set package option AMR_guideline. Currently supports EUCAST (2011-2025) CLSI (2011-2025), see Details. Using column name allows straightforward interpretation historical data, must analysed context , example, different years. uti (Urinary Tract Infection) vector (column name) logicals (TRUE FALSE) specify whether UTI specific interpretation guideline chosen. using .sir() data.frame, can also column containing logicals left blank, data set searched column 'specimen', rows within column containing 'urin' ('urine', 'urina') regarded isolates UTI. See Examples. capped_mic_handling character string controls MIC values cap (.e., starting <, <=, >, >=) interpreted. Supports following options: \"none\" <=, <, > >= ignored. \"conservative\" (default) <=, <, > >= return \"NI\" (non-interpretable) true MIC either side breakpoint. mode preserves uncertainty ECOFFs. \"standard\" <= >= return \"NI\" (non-interpretable) true MIC either side breakpoint. < always returns \"S\", regardless breakpoint. > always returns \"R\", regardless breakpoint. \"lenient\" <= < always return \"S\", regardless breakpoint. >= > always return \"R\", regardless breakpoint. default \"conservative\" setting ensures cautious handling uncertain values preserving interpretability. option can also set package option AMR_capped_mic_handling. 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. substitute_missing_r_breakpoint logical indicate missing clinical breakpoints R (resistant) must substituted R - default FALSE. (especially CLSI) breakpoints breakpoint S, meaning outcome can \"S\" NA. Setting TRUE convert NAs cases \"R\". Can also set package option AMR_substitute_missing_r_breakpoint. include_screening logical indicate clinical breakpoints screening allowed - default FALSE. Can also set package option AMR_include_screening. include_PKPD logical indicate PK/PD clinical breakpoints must applied last resort - default TRUE. Can also set package option AMR_include_PKPD. breakpoint_type type breakpoints use, either \"ECOFF\", \"animal\", \"human\". ECOFF stands Epidemiological Cut-values. default \"human\", can also set package option AMR_breakpoint_type. host set values veterinary species, automatically set \"animal\". host vector (column name) characters indicate host. useful veterinary breakpoints, requires breakpoint_type = \"animal\". values can text resembling animal species, even 28 supported languages package. foreign languages, sure set language set_AMR_locale() (though automatically guessed based system language). language Language convert values set host using animal breakpoints. Use one supported language names ISO 639-1 codes: English (en), Arabic (ar), Bengali (bn), Chinese (zh), Czech (cs), Danish (da), Dutch (nl), Finnish (fi), French (fr), German (de), Greek (el), Hindi (hi), Indonesian (id), Italian (), Japanese (ja), Korean (ko), Norwegian (), Polish (pl), Portuguese (pt), Romanian (ro), Russian (ru), Spanish (es), Swahili (sw), Swedish (sv), Turkish (tr), Ukrainian (uk), Urdu (ur), Vietnamese (vi). verbose logical indicate notes printed interpretation MIC values disk diffusion values. conserve_capped_values Deprecated, use capped_mic_handling instead. col_mo Column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). parallel logical indicate parallel computing must used, defaults FALSE. requires additional packages, used parallel package part base R. Windows R < 4.0.0 parallel::parLapply() used, cases efficient parallel::mclapply() used. max_cores Maximum number cores use parallel = TRUE. Use negative value subtract number available number cores, e.g. value -2 8-core machine means 6 cores used. Defaults -1. never used cores variables analyse. available number cores detected using parallelly::availableCores() package installed, base R's parallel::detectCores() otherwise. clean logical indicate whether previously stored results forgotten returning 'logbook' results.","code":""},{"path":"https://amr-for-r.org/reference/as.sir.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Interpret MIC and Disk Diffusion as SIR, or Clean Existing SIR Data — as.sir","text":"Ordered factor new class sir","code":""},{"path":"https://amr-for-r.org/reference/as.sir.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Interpret MIC and Disk Diffusion as SIR, or Clean Existing SIR Data — as.sir","text":"Note: clinical breakpoints package validated , imported , WHONET. public use AMR package endorsed CLSI EUCAST. See clinical_breakpoints information. NA_sir_ missing value new sir class, analogous e.g. base R's NA_character_.","code":""},{"path":"https://amr-for-r.org/reference/as.sir.html","id":"how-it-works","dir":"Reference","previous_headings":"","what":"How it Works","title":"Interpret MIC and Disk Diffusion as SIR, or Clean Existing SIR Data — as.sir","text":".sir() function can work four ways: cleaning raw / untransformed data. data cleaned contain valid values, namely: S susceptible, intermediate 'susceptible, increased exposure', R resistant, NI non-interpretable, SDD susceptible dose-dependent. can set using regular expression. Furthermore, .sir() try best clean intelligence. example, mixed values SIR interpretations MIC values \"<0.25; S\" coerced \"S\". Combined interpretations multiple test methods (seen laboratory records) \"S; S\" coerced \"S\", value like \"S; \" return NA warning input invalid. interpreting minimum inhibitory concentration (MIC) values according EUCAST CLSI. must clean MIC values first using .mic(), also gives columns new data class mic. Also, sure column microorganism names codes. found automatically, can set manually using mo argument. Example apply using dplyr:   Operators like \"<=\" considered according capped_mic_handling setting. default, MIC value e.g. \">2\" return \"NI\" (non-interpretable) breakpoint 4-8; true MIC either side breakpoint. prevent capped values raw laboratory data treated conservatively. Note: using CLSI guideline, MIC values must log2-based doubling dilutions. Values format, automatically rounded nearest log2 level CLSI instructs, warning thrown. 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. Example apply using dplyr:   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 results previous .sir() calls. also contains notes interpretation, exact input output values.","code":"your_data %>% mutate_if(is.mic, as.sir) your_data %>% mutate(across(where(is.mic), as.sir)) your_data %>% mutate_if(is.mic, as.sir, ab = \"column_with_antibiotics\", mo = \"column_with_microorganisms\") your_data %>% mutate_if(is.mic, as.sir, ab = c(\"cipro\", \"ampicillin\", ...), mo = c(\"E. coli\", \"K. pneumoniae\", ...))  # for veterinary breakpoints, also set `host`: your_data %>% mutate_if(is.mic, as.sir, host = \"column_with_animal_species\", guideline = \"CLSI\")  # fast processing with parallel computing: as.sir(your_data, ..., parallel = TRUE) your_data %>% mutate_if(is.disk, as.sir) your_data %>% mutate(across(where(is.disk), as.sir)) your_data %>% mutate_if(is.disk, as.sir, ab = \"column_with_antibiotics\", mo = \"column_with_microorganisms\") your_data %>% mutate_if(is.disk, as.sir, ab = c(\"cipro\", \"ampicillin\", ...), mo = c(\"E. coli\", \"K. pneumoniae\", ...))  # for veterinary breakpoints, also set `host`: your_data %>% mutate_if(is.disk, as.sir, host = \"column_with_animal_species\", guideline = \"CLSI\")  # fast processing with parallel computing: as.sir(your_data, ..., parallel = TRUE)"},{"path":"https://amr-for-r.org/reference/as.sir.html","id":"supported-guidelines","dir":"Reference","previous_headings":"","what":"Supported Guidelines","title":"Interpret MIC and Disk Diffusion as SIR, or Clean Existing SIR Data — as.sir","text":"interpreting MIC values well disk diffusion diameters, currently implemented guidelines : clinical microbiology: EUCAST 2011-2025 CLSI 2011-2025; veterinary microbiology: EUCAST 2021-2025 CLSI 2019-2025; ECOFFs (Epidemiological Cut-Values): EUCAST 2020-2025 CLSI 2022-2025. guideline argument must set e.g., \"EUCAST 2025\" \"CLSI 2025\". simply using \"EUCAST\" (default) \"CLSI\" input, latest included version guideline automatically selected. Importantly, using column name data instead, allows straightforward interpretation historical data must analysed context , example, different years. can set data set using reference_data argument. guideline argument ignored. also possible 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://amr-for-r.org/reference/as.sir.html","id":"working-with-veterinary-breakpoints","dir":"Reference","previous_headings":"","what":"Working with Veterinary Breakpoints","title":"Interpret MIC and Disk Diffusion as SIR, or Clean Existing SIR Data — as.sir","text":"using veterinary breakpoints (.e., setting breakpoint_type = \"animal\"), column animal species must available set manually using host argument. column must contain names like \"dogs\", \"cats\", \"cattle\", \"swine\", \"horses\", \"poultry\", \"aquatic\". animal names like \"goats\", \"rabbits\", \"monkeys\" also recognised may available guidelines. Matching case-insensitive accepts Latin-based synonyms (e.g., \"bovine\" cattle \"canine\" dogs). Regarding choice veterinary guidelines, might best options set analysis:","code":"options(AMR_guideline = \"CLSI\")   options(AMR_breakpoint_type = \"animal\")"},{"path":"https://amr-for-r.org/reference/as.sir.html","id":"after-interpretation","dir":"Reference","previous_headings":"","what":"After Interpretation","title":"Interpret MIC and Disk Diffusion as SIR, or Clean Existing SIR Data — as.sir","text":"using .sir(), can use eucast_rules() defined EUCAST (1) apply inferred susceptibility resistance based results antimicrobials (2) apply intrinsic resistance based taxonomic properties microorganism. determine isolates multi-drug resistant, sure run mdro() (applies MDR/PDR/XDR guideline 2012 default) data set contains S//R values. Read interpreting multidrug-resistant organisms .","code":""},{"path":"https://amr-for-r.org/reference/as.sir.html","id":"other","dir":"Reference","previous_headings":"","what":"Other","title":"Interpret MIC and Disk Diffusion as SIR, or Clean Existing SIR Data — as.sir","text":"function .sir() detects input contains class sir. input data.frame list, iterates columns/items returns logical vector. base R function .double() can used retrieve quantitative values sir object: \"S\" = 1, \"\"/\"SDD\" = 2, \"R\" = 3. values rendered NA. Note: use .integer(), since (R works internally) return factor level indices, aforementioned quantitative values. function is_sir_eligible() returns TRUE column contains 5% potentially invalid antimicrobial interpretations, FALSE otherwise. threshold 5% can set threshold argument. input data.frame, iterates columns returns logical vector.","code":""},{"path":"https://amr-for-r.org/reference/as.sir.html","id":"interpretation-of-sir","dir":"Reference","previous_headings":"","what":"Interpretation of SIR","title":"Interpret MIC and Disk Diffusion as SIR, or Clean Existing SIR Data — as.sir","text":"2019, European Committee Antimicrobial Susceptibility Testing (EUCAST) decided change definitions susceptibility testing categories S, , R (https://www.eucast.org/newsiandr). AMR package follows insight; use susceptibility() (equal proportion_SI()) determine antimicrobial susceptibility count_susceptible() (equal count_SI()) count susceptible isolates.","code":""},{"path":"https://amr-for-r.org/reference/as.sir.html","id":"download-our-reference-data","dir":"Reference","previous_headings":"","what":"Download Our Reference Data","title":"Interpret MIC and Disk Diffusion as SIR, or Clean Existing SIR Data — as.sir","text":"reference data sets AMR package - including information microorganisms, antimicrobials, clinical breakpoints - freely available download multiple formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. maximum compatibility, also provide machine-readable, tab-separated plain text files suitable use software, including laboratory information systems. Visit website direct download links, explore actual files GitHub repository.","code":""},{"path":[]},{"path":"https://amr-for-r.org/reference/as.sir.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Interpret MIC and Disk Diffusion as SIR, or Clean Existing SIR Data — as.sir","text":"","code":"example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI   R     NA    NA    NA  #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI   R     NA    NA    NA  #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS   R     NA    S     R   #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS   R     NA    S     R   #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR   R     NA    S     NA  #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  summary(example_isolates[, 1:10]) # see all SIR results at a glance #>       date              patient               age           gender          #>  Min.   :2002-01-02   Length:2000        Min.   : 0.00   Length:2000        #>  1st Qu.:2005-07-31   Class :character   1st Qu.:63.00   Class :character   #>  Median :2009-07-31   Mode  :character   Median :74.00   Mode  :character   #>  Mean   :2009-11-20                      Mean   :70.69                      #>  3rd Qu.:2014-05-30                      3rd Qu.:82.00                      #>  Max.   :2017-12-28                      Max.   :97.00                      #>      ward                mo                  PEN                 #>  Length:2000        Class :mo             Class:sir              #>  Class :character   <NA>  :0              %S   :25.6% (n=417)    #>  Mode  :character   Unique:90             %SDD : 0.0% (n=0)      #>                     #1    :B_ESCHR_COLI   %I   : 0.7% (n=11)     #>                     #2    :B_STPHY_CONS   %R   :73.7% (n=1201)   #>                     #3    :B_STPHY_AURS   %NI  : 0.0% (n=0)      #>     OXA                   FLC                   AMX                #>  Class:sir             Class:sir             Class:sir             #>  %S   :68.8% (n=251)   %S   :70.5% (n=665)   %S   :40.2% (n=543)   #>  %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)     #>  %I   : 0.0% (n=0)     %I   : 0.0% (n=0)     %I   : 0.2% (n=3)     #>  %R   :31.2% (n=114)   %R   :29.5% (n=278)   %R   :59.6% (n=804)   #>  %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)      # create some example data sets, with combined MIC values and disk zones df_wide <- data.frame(   microorganism = \"Escherichia coli\",   amoxicillin = as.mic(8),   cipro = as.mic(0.256),   tobra = as.disk(16),   genta = as.disk(18),   ERY = \"R\" ) df_long <- data.frame(   bacteria = rep(\"Escherichia coli\", 4),   antibiotic = c(\"amoxicillin\", \"cipro\", \"tobra\", \"genta\"),   mics = as.mic(c(0.01, 1, 4, 8)),   disks = as.disk(c(6, 10, 14, 18)),   guideline = c(\"EUCAST 2021\", \"EUCAST 2022\", \"EUCAST 2023\", \"EUCAST 2024\") ) # and clean previous SIR interpretation logs x <- sir_interpretation_history(clean = TRUE)   # For INTERPRETING disk diffusion and MIC values -----------------------  # most basic application: as.sir(df_wide) #>      microorganism amoxicillin cipro tobra genta ERY #> 1 Escherichia coli           S     I     S     S   R  # return a 'logbook' about the results: sir_interpretation_history() #> # A tibble: 4 × 18 #>   datetime            index method ab_given    mo_given   host_given input_given #>   <dttm>              <int> <chr>  <chr>       <chr>      <chr>      <chr>       #> 1 2025-12-23 10:09:01     1 MIC    amoxicillin Escherich… human      8           #> 2 2025-12-23 10:09:02     1 MIC    cipro       Escherich… human      0.256       #> 3 2025-12-23 10:09:02     1 DISK   tobra       Escherich… human      16          #> 4 2025-12-23 10:09:02     1 DISK   genta       Escherich… human      18          #> # ℹ 11 more variables: ab <ab>, mo <mo>, host <chr>, input <chr>, #> #   outcome <sir>, notes <chr>, guideline <chr>, ref_table <chr>, uti <lgl>, #> #   breakpoint_S_R <chr>, site <chr>  # \\donttest{ # using parallel computing, which is available in base R: as.sir(df_wide, parallel = TRUE, info = TRUE) #> ℹ Returning previously coerced values for various antimicrobials. Run #>   `ab_reset_session()` to reset this. This note will be shown once per #>   session. #>  #> Running in parallel mode using 3 out of 4 cores, on columns 'amoxicillin', #> 'cipro', 'tobra', 'genta', and 'ERY'... #>  DONE #>  #>  #> ℹ Run `sir_interpretation_history()` to retrieve a logbook with all details #>   of the breakpoint interpretations. #>      microorganism amoxicillin cipro tobra genta ERY #> 1 Escherichia coli           S     I     S     S   R   ## Using dplyr ------------------------------------------------- if (require(\"dplyr\")) {   # approaches that all work without additional arguments:   df_wide %>% mutate_if(is.mic, as.sir)   df_wide %>% mutate_if(function(x) is.mic(x) | is.disk(x), as.sir)   df_wide %>% mutate(across(where(is.mic), as.sir))    df_wide %>% mutate_at(vars(amoxicillin:tobra), as.sir)   df_wide %>% mutate(across(amoxicillin:tobra, as.sir))    df_wide %>% mutate(across(aminopenicillins(), as.sir))    # approaches that all work with additional arguments:   df_long %>%     # given a certain data type, e.g. MIC values     mutate_if(is.mic, as.sir,       mo = \"bacteria\",       ab = \"antibiotic\",       guideline = \"guideline\"     )   df_long %>%     mutate(across(       where(is.mic),       function(x) {         as.sir(x,           mo = \"bacteria\",           ab = \"antibiotic\",           guideline = \"CLSI\"         )       }     ))   df_wide %>%     # given certain columns, e.g. from 'cipro' to 'genta'     mutate_at(vars(cipro:genta), as.sir,       mo = \"bacteria\",       guideline = \"CLSI\"     )   df_wide %>%     mutate(across(       cipro:genta,       function(x) {         as.sir(x,           mo = \"bacteria\",           guideline = \"CLSI\"         )       }     ))    # for veterinary breakpoints, add 'host':   df_long$animal_species <- c(\"cats\", \"dogs\", \"horses\", \"cattle\")   df_long %>%     # given a certain data type, e.g. MIC values     mutate_if(is.mic, as.sir,       mo = \"bacteria\",       ab = \"antibiotic\",       host = \"animal_species\",       guideline = \"CLSI\"     )   df_long %>%     mutate(across(       where(is.mic),       function(x) {         as.sir(x,           mo = \"bacteria\",           ab = \"antibiotic\",           host = \"animal_species\",           guideline = \"CLSI\"         )       }     ))   df_wide %>%     mutate_at(vars(cipro:genta), as.sir,       mo = \"bacteria\",       ab = \"antibiotic\",       host = \"animal_species\",       guideline = \"CLSI\"     )   df_wide %>%     mutate(across(       cipro:genta,       function(x) {         as.sir(x,           mo = \"bacteria\",           host = \"animal_species\",           guideline = \"CLSI\"         )       }     ))    # to include information about urinary tract infections (UTI)   data.frame(     mo = \"E. coli\",     nitrofuratoin = c(\"<= 2\", 32),     from_the_bladder = c(TRUE, FALSE)   ) %>%     as.sir(uti = \"from_the_bladder\")    data.frame(     mo = \"E. coli\",     nitrofuratoin = c(\"<= 2\", 32),     specimen = c(\"urine\", \"blood\")   ) %>%     as.sir() # automatically determines urine isolates    df_wide %>%     mutate_at(vars(cipro:genta), as.sir, mo = \"E. coli\", uti = TRUE) } #> ℹ For `aminopenicillins()` using column 'amoxicillin' #> Warning: There was 1 warning in `mutate()`. #> ℹ In argument: `across(...)`. #> Caused by warning: #> ! Some MICs were converted to the nearest higher log2 level, following the #> CLSI interpretation guideline. #> Warning: There was 1 warning in `mutate()`. #> ℹ In argument: `cipro = (function (x, ...) ...`. #> Caused by warning: #> ! Some MICs were converted to the nearest higher log2 level, following the #> CLSI interpretation guideline. #> Warning: There was 1 warning in `mutate()`. #> ℹ In argument: `across(...)`. #> Caused by warning: #> ! Some MICs were converted to the nearest higher log2 level, following the #> CLSI interpretation guideline. #> Warning: There was 1 warning in `mutate()`. #> ℹ In argument: `mics = (function (x, ...) ...`. #> Caused by warning: #> ! Some MICs were converted to the nearest higher log2 level, following the #> CLSI interpretation guideline. #> Warning: There was 1 warning in `mutate()`. #> ℹ In argument: `across(...)`. #> Caused by warning: #> ! Some MICs were converted to the nearest higher log2 level, following the #> CLSI interpretation guideline. #> Interpreting MIC values: 'antibiotic' (ASP, acetylspiramycin), CLSI 2025... #> Interpreting disk diffusion zones: 'antibiotic' (ASP, acetylspiramycin), #> CLSI 2025... #> Interpreting disk diffusion zones: 'antibiotic' (ASP, acetylspiramycin), #> CLSI 2025... #> Warning: There was 1 warning in `mutate()`. #> ℹ In argument: `cipro = (function (x, ...) ...`. #> Caused by warning: #> ! Some MICs were converted to the nearest higher log2 level, following the #> CLSI interpretation guideline. #> Warning: There was 1 warning in `mutate()`. #> ℹ In argument: `across(...)`. #> Caused by warning: #> ! Some MICs were converted to the nearest higher log2 level, following the #> CLSI interpretation guideline. #>      microorganism amoxicillin cipro tobra genta ERY #> 1 Escherichia coli           8  <NA>     S     S   R   ## Using base R ------------------------------------------------   # for single values as.sir(   x = as.mic(2),   mo = as.mo(\"S. pneumoniae\"),   ab = \"AMP\",   guideline = \"EUCAST\" ) #> 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\" ) #> Class 'sir' #> [1] R   # For CLEANING existing SIR values -------------------------------------  as.sir(c(\"S\", \"SDD\", \"I\", \"R\", \"NI\", \"A\", \"B\", \"C\")) #> Warning: in `as.sir()`: 3 results in index '21' truncated (38%) that were invalid #> antimicrobial interpretations: \"A\", \"B\", and \"C\" #> Class 'sir' #> [1] S    SDD  I    R    NI   <NA> <NA> <NA> as.sir(\"<= 0.002; S\") # will return \"S\" #> Warning: in `as.sir()`: 1 result in index '21' truncated (100%) that were invalid #> antimicrobial interpretations: \"<= 0.002; S\" #> Class 'sir' #> [1] <NA>  as.sir(c(1, 2, 3)) #> ℹ in `as.sir()`: Interpreting input value 1 as \"S\", 2 as \"I\", and 3 as \"R\" #> Class 'sir' #> [1] S I R as.sir(c(1, 2, 3), S = 3, I = 2, R = 1) #> ℹ in `as.sir()`: Interpreting input value 1 as \"R\", 2 as \"I\", and 3 as \"S\" #> Class 'sir' #> [1] R I S  sir_data <- as.sir(c(rep(\"S\", 474), rep(\"I\", 36), rep(\"R\", 370))) is.sir(sir_data) #> [1] TRUE plot(sir_data) # for percentages  barplot(sir_data) # for frequencies   # as common in R, you can use as.integer() to return factor indices: as.integer(as.sir(c(\"S\", \"SDD\", \"I\", \"R\", \"NI\", NA))) #> [1]  1  2  3  4  5 NA  # but for computational use, as.double() will return 1 for S, 2 for I/SDD, and 3 for R: as.double(as.sir(c(\"S\", \"SDD\", \"I\", \"R\", \"NI\", NA))) #> [1]  1  2  2  3 NA NA  # the dplyr way if (require(\"dplyr\")) {   example_isolates %>%     mutate_at(vars(PEN:RIF), as.sir)   # same:   example_isolates %>%     as.sir(PEN:RIF)    # fastest way to transform all columns with already valid AMR results to class `sir`:   example_isolates %>%     mutate_if(is_sir_eligible, as.sir)    # since dplyr 1.0.0, this can also be the more impractical:   # example_isolates %>%   #   mutate(across(where(is_sir_eligible), as.sir)) } #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI   R     NA    NA    NA  #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI   R     NA    NA    NA  #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS   R     NA    S     R   #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS   R     NA    S     R   #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR   R     NA    S     NA  #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … # }"},{"path":"https://amr-for-r.org/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. antimicrobial), name, defined daily dose (DDD) standard unit.","code":""},{"path":"https://amr-for-r.org/reference/atc_online.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Get ATC Properties from WHOCC Website — atc_online_property","text":"","code":"atc_online_property(atc_code, property, administration = \"O\",   url = \"https://atcddd.fhi.no/atc_ddd_index/?code=%s&showdescription=no\",   url_vet = \"https://atcddd.fhi.no/atcvet/atcvet_index/?code=%s&showdescription=no\")  atc_online_groups(atc_code, ...)  atc_online_ddd(atc_code, ...)  atc_online_ddd_units(atc_code, ...)"},{"path":"https://amr-for-r.org/reference/atc_online.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Get ATC Properties from WHOCC Website — atc_online_property","text":"https://atcddd.fhi./atc_ddd_alterations__cumulative/ddd_alterations/abbrevations/","code":""},{"path":"https://amr-for-r.org/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) antimicrobials, 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://amr-for-r.org/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://amr-for-r.org/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 #> ℹ in `atc_online_property()`: no properties found for ATC QG51AA03. Please #>   check #>   https://atcddd.fhi.no/atcvet/atcvet_index/?code=QG51AA03&showdescription=no. #> ℹ in `atc_online_property()`: no properties found for ATC QJ01CA04. Please #>   check #>   https://atcddd.fhi.no/atcvet/atcvet_index/?code=QJ01CA04&showdescription=no. #> [1] \"ANTIINFECTIVES FOR SYSTEMIC USE\"         #> [2] \"ANTIBACTERIALS FOR SYSTEMIC USE\"         #> [3] \"BETA-LACTAM ANTIBACTERIALS, PENICILLINS\" #> [4] \"Penicillins with extended spectrum\"      # }"},{"path":"https://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/reference/av_property.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Get Properties of an Antiviral Drug — av_property","text":"World Health Organization () Collaborating Centre Drug Statistics Methodology: https://atcddd.fhi./atc_ddd_index/ European Commission Public Health PHARMACEUTICALS - COMMUNITY REGISTER: https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm","code":""},{"path":"https://amr-for-r.org/reference/av_property.html","id":"download-our-reference-data","dir":"Reference","previous_headings":"","what":"Download Our Reference Data","title":"Get Properties of an Antiviral Drug — av_property","text":"reference data sets AMR package - including information microorganisms, antimicrobials, clinical breakpoints - freely available download multiple formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. maximum compatibility, also provide machine-readable, tab-separated plain text files suitable use software, including laboratory information systems. Visit website direct download links, explore actual files GitHub repository.","code":""},{"path":[]},{"path":"https://amr-for-r.org/reference/av_property.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Get Properties of an Antiviral Drug — av_property","text":"","code":"# all properties: av_name(\"ACI\") #> [1] \"Aciclovir\" av_atc(\"ACI\") #> [1] \"J05AB01\" av_cid(\"ACI\") #> [1] 135398513 av_synonyms(\"ACI\") #>  [1] \"acicloftal\"        \"aciclovier\"        \"aciclovirum\"       #>  [4] \"activir\"           \"acyclofoam\"        \"acycloguanosine\"   #>  [7] \"acyclovir\"         \"acyclovir lauriad\" \"avaclyr\"           #> [10] \"cargosil\"          \"cyclovir\"          \"genvir\"            #> [13] \"gerpevir\"          \"hascovir\"          \"maynar\"            #> [16] \"novirus\"           \"poviral\"           \"sitavig\"           #> [19] \"sitavir\"           \"vipral\"            \"viropump\"          #> [22] \"virorax\"           \"zovirax\"           \"zyclir\"            av_tradenames(\"ACI\") #>  [1] \"acicloftal\"        \"aciclovier\"        \"aciclovirum\"       #>  [4] \"activir\"           \"acyclofoam\"        \"acycloguanosine\"   #>  [7] \"acyclovir\"         \"acyclovir lauriad\" \"avaclyr\"           #> [10] \"cargosil\"          \"cyclovir\"          \"genvir\"            #> [13] \"gerpevir\"          \"hascovir\"          \"maynar\"            #> [16] \"novirus\"           \"poviral\"           \"sitavig\"           #> [19] \"sitavir\"           \"vipral\"            \"viropump\"          #> [22] \"virorax\"           \"zovirax\"           \"zyclir\"            av_group(\"ACI\") #> [1] \"Nucleosides and nucleotides excl. reverse transcriptase inhibitors\" av_url(\"ACI\") #>                                                              Aciclovir  #> \"https://atcddd.fhi.no/atc_ddd_index/?code=J05AB01&showdescription=no\"   # lowercase transformation av_name(x = c(\"ACI\", \"VALA\")) #> [1] \"Aciclovir\"    \"Valaciclovir\" av_name(x = c(\"ACI\", \"VALA\"), tolower = TRUE) #> [1] \"aciclovir\"    \"valaciclovir\"  # defined daily doses (DDD) av_ddd(\"ACI\", \"oral\") #> [1] 4 av_ddd_units(\"ACI\", \"oral\") #> [1] \"g\" av_ddd(\"ACI\", \"iv\") #> [1] 4 av_ddd_units(\"ACI\", \"iv\") #> [1] \"g\"  av_info(\"ACI\") # all properties as a list #> $av #> [1] \"ACI\" #>  #> $cid #> [1] 135398513 #>  #> $name #> [1] \"Aciclovir\" #>  #> $group #> [1] \"Nucleosides and nucleotides excl. reverse transcriptase inhibitors\" #>  #> $atc #> [1] \"J05AB01\" #>  #> $tradenames #>  [1] \"acicloftal\"        \"aciclovier\"        \"aciclovirum\"       #>  [4] \"activir\"           \"acyclofoam\"        \"acycloguanosine\"   #>  [7] \"acyclovir\"         \"acyclovir lauriad\" \"avaclyr\"           #> [10] \"cargosil\"          \"cyclovir\"          \"genvir\"            #> [13] \"gerpevir\"          \"hascovir\"          \"maynar\"            #> [16] \"novirus\"           \"poviral\"           \"sitavig\"           #> [19] \"sitavir\"           \"vipral\"            \"viropump\"          #> [22] \"virorax\"           \"zovirax\"           \"zyclir\"            #>  #> $loinc #> [1] \"\" #>  #> $ddd #> $ddd$oral #> $ddd$oral$amount #> [1] 4 #>  #> $ddd$oral$units #> [1] \"g\" #>  #>  #> $ddd$iv #> $ddd$iv$amount #> [1] 4 #>  #> $ddd$iv$units #> [1] \"g\" #>  #>  #>   # all av_* functions use as.av() internally, so you can go from 'any' to 'any': av_atc(\"ACI\") #> [1] \"J05AB01\" av_group(\"J05AB01\") #> [1] \"Nucleosides and nucleotides excl. reverse transcriptase inhibitors\" av_loinc(\"abacavir\") #> [1] \"29113-8\" \"30273-7\" \"30287-7\" \"30303-2\" \"78772-1\" \"78773-9\" \"79134-3\" #> [8] \"80118-3\" av_name(\"29113-8\") #> [1] \"Abacavir\" av_name(135398513) #> [1] \"Aciclovir\" av_name(\"J05AB01\") #> [1] \"Aciclovir\""},{"path":"https://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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,   include_n_rows = FALSE, ...)  # S3 method for class 'bug_drug_combinations' format(x, translate_ab = \"name (ab, atc)\",   language = get_AMR_locale(), minimum = 30, combine_SI = TRUE,   add_ab_group = TRUE, remove_intrinsic_resistant = FALSE,   decimal.mark = getOption(\"OutDec\"), big.mark = ifelse(decimal.mark ==   \",\", \".\", \",\"), ...)"},{"path":"https://amr-for-r.org/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 antimicrobials 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(). include_n_rows logical indicate total number rows must included output. ... Arguments passed FUN. translate_ab character length 1 containing column names antimicrobials data set. language Language returned text - default current system language (see get_AMR_locale()) can also set package option AMR_locale. Use language = NULL language = \"\" prevent translation. minimum minimum allowed number available (tested) isolates. isolate count lower minimum return NA warning. default number 30 isolates advised Clinical Laboratory Standards Institute (CLSI) best practice, see Source. combine_SI logical indicate whether values S, SDD, summed, resistance based R - default TRUE. add_ab_group logical indicate group antimicrobials must included first column. remove_intrinsic_resistant logical indicate rows columns 100% resistance tested antimicrobials must removed table. decimal.mark character used indicate numeric     decimal point. big.mark character; empty used mark every     big.interval decimals (hence big)     decimal point.","code":""},{"path":"https://amr-for-r.org/reference/bug_drug_combinations.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"function bug_drug_combinations() returns data.frame columns \"mo\", \"ab\", \"S\", \"SDD\", \"\", \"R\", \"total\".","code":""},{"path":"https://amr-for-r.org/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://amr-for-r.org/reference/bug_drug_combinations.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"","code":"# example_isolates is a data set available in the AMR package. # run ?example_isolates for more info. example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI   R     NA    NA    NA  #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI   R     NA    NA    NA  #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS   R     NA    S     R   #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS   R     NA    S     R   #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR   R     NA    S     NA  #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  # \\donttest{ x <- bug_drug_combinations(example_isolates) head(x) #> # A tibble: 6 × 8 #>   mo                ab        S   SDD     I     R    NI total #>   <chr>             <chr> <int> <int> <int> <int> <int> <int> #> 1 (unknown species) AMC      15     0     0     0     0    15 #> 2 (unknown species) AMK       0     0     0     0     0     0 #> 3 (unknown species) AMP      15     0     0     1     0    16 #> 4 (unknown species) AMX      15     0     0     1     0    16 #> 5 (unknown species) AZM       3     0     0     3     0     6 #> 6 (unknown species) CAZ       0     0     0     0     0     0 #> Use 'format()' on this result to get a publishable/printable format. format(x, translate_ab = \"name (atc)\") #> # A tibble: 39 × 12 #>    Group     Drug  CoNS  `E. coli` `E. faecalis` `K. pneumoniae` `P. aeruginosa` #>    <chr>     <chr> <chr> <chr>     <chr>         <chr>           <chr>           #>  1 \"Aminogl… Amik… \"100… \"  0.0% … \"100.0% (39/… \"\"              \"\"              #>  2 \"\"        Gent… \" 13… \"  2.0% … \"100.0% (39/… \" 10.3% (6/58)\" \"  0.0% (0/30)\" #>  3 \"\"        Kana… \"100… \"\"        \"100.0% (39/… \"\"              \"100.0% (30/30… #>  4 \"\"        Tobr… \" 78… \"  2.6% … \"100.0% (39/… \" 10.3% (6/58)\" \"  0.0% (0/30)\" #>  5 \"Antimyc… Rifa… \"\"    \"100.0% … \"\"            \"100.0% (58/58… \"100.0% (30/30… #>  6 \"Beta-la… Amox… \" 93… \" 50.0% … \"\"            \"100.0% (58/58… \"100.0% (30/30… #>  7 \"\"        Amox… \" 42… \" 13.1% … \"\"            \" 10.3% (6/58)\" \"100.0% (30/30… #>  8 \"\"        Ampi… \" 93… \" 50.0% … \"\"            \"100.0% (58/58… \"100.0% (30/30… #>  9 \"\"        Benz… \" 77… \"100.0% … \"\"            \"100.0% (58/58… \"100.0% (30/30… #> 10 \"\"        Fluc… \" 42… \"\"        \"\"            \"\"              \"\"              #> # ℹ 29 more rows #> # ℹ 5 more variables: `P. mirabilis` <chr>, `S. aureus` <chr>, #> #   `S. epidermidis` <chr>, `S. hominis` <chr>, `S. pneumoniae` <chr>  # Use FUN to change to transformation of microorganism codes bug_drug_combinations(example_isolates,   FUN = mo_gramstain ) #> # A tibble: 80 × 8 #>    mo            ab        S   SDD     I     R    NI total #>    <chr>         <chr> <int> <int> <int> <int> <int> <int> #>  1 Gram-negative AMC     463     0    89   174     0   726 #>  2 Gram-negative AMK     251     0     0     5     0   256 #>  3 Gram-negative AMP     226     0     0   405     0   631 #>  4 Gram-negative AMX     226     0     0   405     0   631 #>  5 Gram-negative AZM       1     0     2   696     0   699 #>  6 Gram-negative CAZ     607     0     0    27     0   634 #>  7 Gram-negative CHL       1     0     0    30     0    31 #>  8 Gram-negative CIP     610     0    11    63     0   684 #>  9 Gram-negative CLI      18     0     1   709     0   728 #> 10 Gram-negative COL     309     0     0    78     0   387 #> # ℹ 70 more rows #> Use 'format()' on this result to get a publishable/printable format.  bug_drug_combinations(example_isolates,   FUN = function(x) {     ifelse(x == as.mo(\"Escherichia coli\"),       \"E. coli\",       \"Others\"     )   } ) #> # A tibble: 80 × 8 #>    mo      ab        S   SDD     I     R    NI total #>    <chr>   <chr> <int> <int> <int> <int> <int> <int> #>  1 E. coli AMC     332     0    74    61     0   467 #>  2 E. coli AMK     171     0     0     0     0   171 #>  3 E. coli AMP     196     0     0   196     0   392 #>  4 E. coli AMX     196     0     0   196     0   392 #>  5 E. coli AZM       0     0     0   467     0   467 #>  6 E. coli CAZ     449     0     0    11     0   460 #>  7 E. coli CHL       0     0     0     0     0     0 #>  8 E. coli CIP     398     0     1    57     0   456 #>  9 E. coli CLI       0     0     0   467     0   467 #> 10 E. coli COL     240     0     0     0     0   240 #> # ℹ 70 more rows #> Use 'format()' on this result to get a publishable/printable format. # }"},{"path":"https://amr-for-r.org/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. data set contains breakpoints humans, 7 different animal groups, ECOFFs. breakpoints currently implemented: clinical microbiology: EUCAST 2011-2025 CLSI 2011-2025; veterinary microbiology: EUCAST 2021-2025 CLSI 2019-2025; ECOFFs (Epidemiological Cut-Values): EUCAST 2020-2025 CLSI 2022-2025. Use .sir() transform MICs disks measurements SIR values.","code":""},{"path":"https://amr-for-r.org/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://amr-for-r.org/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 40 217 observations 14 variables: guideline Name guideline type Breakpoint type, either \"ECOFF\", \"animal\", \"human\" host Host infectious agent. mostly useful veterinary breakpoints either \"ECOFF\", \"aquatic\", \"cats\", \"cattle\", \"dogs\", \"horse\", \"human\", \"poultry\", \"swine\" method Testing method, either \"DISK\" \"MIC\" site Body site breakpoint must applied, e.g. \"Oral\" \"Respiratory\" mo Microbial ID, see .mo() rank_index Taxonomic rank index mo 1 (subspecies/infraspecies) 5 (unknown microorganism) ab Antimicrobial code used package, EARS-Net WHONET, see .ab() ref_tbl Info guideline rule can found disk_dose Dose used disk diffusion method breakpoint_S Lowest MIC value highest number millimetres leads \"S\" breakpoint_R Highest MIC value lowest number millimetres leads \"R\", can NA uti logical value (TRUE/FALSE) indicate whether rule applies urinary tract infection (UTI) is_SDD logical value (TRUE/FALSE) indicate whether intermediate range \"S\" \"R\" interpreted \"SDD\", instead \"\". currently applies 48 breakpoints.","code":""},{"path":[]},{"path":"https://amr-for-r.org/reference/clinical_breakpoints.html","id":"different-types-of-breakpoints","dir":"Reference","previous_headings":"","what":"Different Types of Breakpoints","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"Supported types breakpoints ECOFF, animal, human. ECOFF (Epidemiological cut-) values used antimicrobial susceptibility testing differentiate wild-type non-wild-type strains bacteria fungi. default \"human\", can also set package option AMR_breakpoint_type. Use .sir(..., breakpoint_type = ...) interpret raw data using specific breakpoint type, e.g. .sir(..., breakpoint_type = \"ECOFF\") use ECOFFs.","code":""},{"path":"https://amr-for-r.org/reference/clinical_breakpoints.html","id":"imported-from-whonet","dir":"Reference","previous_headings":"","what":"Imported From WHONET","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"Clinical breakpoints package validated imported WHONET, free desktop Windows application developed supported Collaborating Centre Surveillance Antimicrobial Resistance. can read website. developers WHONET AMR package contact sharing work. highly appreciate great development WHONET software. import reproduction script can found : https://github.com/msberends/AMR/blob/main/data-raw/_reproduction_scripts/reproduction_of_clinical_breakpoints.R.","code":""},{"path":"https://amr-for-r.org/reference/clinical_breakpoints.html","id":"response-from-clsi-and-eucast","dir":"Reference","previous_headings":"","what":"Response From CLSI and EUCAST","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"CEO CLSI chairman EUCAST endorsed work public use AMR package (consequently use breakpoints) June 2023, future development distributing clinical breakpoints discussed meeting CLSI, EUCAST, , developers WHONET software, developers AMR package.","code":""},{"path":"https://amr-for-r.org/reference/clinical_breakpoints.html","id":"download-note","dir":"Reference","previous_headings":"","what":"Download Note","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"AMR package (WHONET software well) contains rather complex internal methods apply guidelines. example, breakpoints must applied certain species groups (case package available microorganisms.groups data set). important considered implementing breakpoints use.","code":""},{"path":"https://amr-for-r.org/reference/clinical_breakpoints.html","id":"download-our-reference-data","dir":"Reference","previous_headings":"","what":"Download Our Reference Data","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"reference data sets AMR package - including information microorganisms, antimicrobials, clinical breakpoints - freely available download multiple formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. maximum compatibility, also provide machine-readable, tab-separated plain text files suitable use software, including laboratory information systems. Visit website direct download links, explore actual files GitHub repository.","code":""},{"path":[]},{"path":"https://amr-for-r.org/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: 40,217 × 14 #>    guideline   type  host  method site    mo            rank_index ab   ref_tbl  #>    <chr>       <chr> <chr> <chr>  <chr>   <mo>               <dbl> <ab> <chr>    #>  1 EUCAST 2025 human human DISK   NA      B_ACHRMB_XYLS          2 MEM  A. xylo… #>  2 EUCAST 2025 human human MIC    NA      B_ACHRMB_XYLS          2 MEM  A. xylo… #>  3 EUCAST 2025 human human DISK   NA      B_ACHRMB_XYLS          2 SXT  A. xylo… #>  4 EUCAST 2025 human human MIC    NA      B_ACHRMB_XYLS          2 SXT  A. xylo… #>  5 EUCAST 2025 human human DISK   NA      B_ACHRMB_XYLS          2 TZP  A. xylo… #>  6 EUCAST 2025 human human MIC    NA      B_ACHRMB_XYLS          2 TZP  A. xylo… #>  7 EUCAST 2025 human human DISK   NA      B_ACNTB                3 AMK  Acineto… #>  8 EUCAST 2025 human human DISK   Uncomp… B_ACNTB                3 AMK  Acineto… #>  9 EUCAST 2025 human human MIC    NA      B_ACNTB                3 AMK  Acineto… #> 10 EUCAST 2025 human human MIC    Uncomp… B_ACNTB                3 AMK  Acineto… #> # ℹ 40,207 more rows #> # ℹ 5 more variables: disk_dose <chr>, breakpoint_S <dbl>, breakpoint_R <dbl>, #> #   uti <lgl>, is_SDD <lgl>"},{"path":"https://amr-for-r.org/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://amr-for-r.org/reference/count.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Count Available Isolates — count","text":"","code":"count_resistant(..., only_all_tested = FALSE)  count_susceptible(..., only_all_tested = FALSE)  count_S(..., only_all_tested = FALSE)  count_SI(..., only_all_tested = FALSE)  count_I(..., only_all_tested = FALSE)  count_IR(..., only_all_tested = FALSE)  count_R(..., only_all_tested = FALSE)  count_all(..., only_all_tested = FALSE)  n_sir(..., only_all_tested = FALSE)  count_df(data, translate_ab = \"name\", language = get_AMR_locale(),   combine_SI = TRUE)"},{"path":"https://amr-for-r.org/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 antimicrobials, see section Combination Therapy . data data.frame containing columns class sir (see .sir()). translate_ab column name antimicrobials data set translate antibiotic abbreviations , using ab_property(). language Language returned text - default current system language (see get_AMR_locale()) can also set package option AMR_locale. Use language = NULL language = \"\" prevent translation. combine_SI logical indicate whether values S, SDD, must merged one, output consists S+SDD+vs. R (susceptible vs. resistant) - default TRUE.","code":""},{"path":"https://amr-for-r.org/reference/count.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Count Available Isolates — count","text":"integer","code":""},{"path":"https://amr-for-r.org/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 antimicrobials 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://amr-for-r.org/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 (https://www.eucast.org/newsiandr). AMR package follows insight; use susceptibility() (equal proportion_SI()) determine antimicrobial susceptibility count_susceptible() (equal count_SI()) count susceptible isolates.","code":""},{"path":"https://amr-for-r.org/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 antimicrobials/variables test . See example two antimicrobials, 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   considered   considered  considered   considered                     susceptible    tested    susceptible    tested --------  --------  -----------  ----------  -----------  ----------  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://amr-for-r.org/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) #> [1] 543 count_SI(example_isolates$AMX) #> [1] 546 count_I(example_isolates$AMX) #> [1] 3 count_IR(example_isolates$AMX) #> [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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/reference/custom_eucast_rules.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"... Rules formula notation, see instructions, Examples.","code":""},{"path":"https://amr-for-r.org/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://amr-for-r.org/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":"https://amr-for-r.org/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,              overwrite = TRUE) #>                      mo TZP ampi cipro #> 1      Escherichia coli   R    R     S #> 2 Klebsiella pneumoniae   R    R     S"},{"path":"https://amr-for-r.org/reference/custom_eucast_rules.html","id":"using-taxonomic-properties-in-rules","dir":"Reference","previous_headings":"","what":"Using taxonomic properties in rules","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"one exception columns used rules: column names microorganisms data set can also used, exist data set. column names : \"mo\", \"fullname\", \"status\", \"kingdom\", \"phylum\", \"class\", \"order\", \"family\", \"genus\", \"species\", \"subspecies\", \"rank\", \"ref\", \"oxygen_tolerance\", \"source\", \"lpsn\", \"lpsn_parent\", \"lpsn_renamed_to\", \"mycobank\", \"mycobank_parent\", \"mycobank_renamed_to\", \"gbif\", \"gbif_parent\", \"gbif_renamed_to\", \"prevalence\", \"snomed\". Thus, next example work well, despite fact df data set contain column genus:","code":"y <- custom_eucast_rules(   TZP == \"S\" & genus == \"Klebsiella\" ~ aminopenicillins == \"S\",   TZP == \"R\" & genus == \"Klebsiella\" ~ aminopenicillins == \"R\" )  eucast_rules(df,              rules = \"custom\",              custom_rules = y,              info = FALSE,              overwrite = TRUE) #>                      mo TZP ampi cipro #> 1      Escherichia coli   R    S     S #> 2 Klebsiella pneumoniae   R    R     S"},{"path":"https://amr-for-r.org/reference/custom_eucast_rules.html","id":"sharing-rules-among-multiple-users","dir":"Reference","previous_headings":"","what":"Sharing rules among multiple users","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"rules set (y object case) exported shared file location using saveRDS() collaborate multiple users. custom rules set imported using readRDS().","code":""},{"path":"https://amr-for-r.org/reference/custom_eucast_rules.html","id":"usage-of-multiple-antimicrobials-and-antimicrobial-group-names","dir":"Reference","previous_headings":"","what":"Usage of multiple antimicrobials and antimicrobial group names","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"can define antimicrobial groups instead single antimicrobials rule consequence, part tilde (~). examples , antimicrobial group aminopenicillins includes ampicillin amoxicillin. Rules can also applied multiple antimicrobials antimicrobial groups simultaneously. Use c() function combine multiple antimicrobials. instance, following example sets aminopenicillins ureidopenicillins \"R\" column TZP (piperacillin/tazobactam) \"R\":   35 antimicrobial groups allowed rules (case-insensitive) can used combination: aminoglycosides(amikacin, amikacin/fosfomycin, apramycin, arbekacin, astromicin, bekanamycin, dibekacin, framycetin, gentamicin, gentamicin-high, habekacin, hygromycin, isepamicin, kanamycin, kanamycin-high, kanamycin/cephalexin, micronomicin, neomycin, netilmicin, pentisomicin, plazomicin, propikacin, ribostamycin, sisomicin, streptoduocin, streptomycin, streptomycin-high, tobramycin, tobramycin-high) aminopenicillins(amoxicillin ampicillin) antifungals(amorolfine, amphotericin B, amphotericin B-high, anidulafungin, butoconazole, caspofungin, ciclopirox, clotrimazole, econazole, fluconazole, flucytosine, fosfluconazole, griseofulvin, hachimycin, ibrexafungerp, isavuconazole, isoconazole, itraconazole, ketoconazole, manogepix, micafungin, miconazole, nystatin, oteseconazole, pimaricin, posaconazole, rezafungin, ribociclib, sulconazole, terbinafine, terconazole, voriconazole) antimycobacterials(4-aminosalicylic acid, calcium aminosalicylate, capreomycin, clofazimine, delamanid, enviomycin, ethambutol, ethambutol/isoniazid, ethionamide, isoniazid, isoniazid/sulfamethoxazole/trimethoprim/pyridoxine, morinamide, p-aminosalicylic acid, pretomanid, protionamide, pyrazinamide, rifabutin, rifampicin, rifampicin/ethambutol/isoniazid, rifampicin/isoniazid, rifampicin/pyrazinamide/ethambutol/isoniazid, rifampicin/pyrazinamide/isoniazid, rifamycin, rifapentine, sodium aminosalicylate, streptomycin/isoniazid, terizidone, thioacetazone, thioacetazone/isoniazid, tiocarlide, viomycin) betalactams(amoxicillin, amoxicillin/clavulanic acid, amoxicillin/sulbactam, ampicillin, ampicillin/sulbactam, apalcillin, aspoxicillin, azidocillin, azlocillin, aztreonam, aztreonam/avibactam, aztreonam/nacubactam, bacampicillin, benzathine benzylpenicillin, benzathine phenoxymethylpenicillin, benzylpenicillin, benzylpenicillin screening test, biapenem, carbenicillin, carindacillin, carumonam, cefacetrile, cefaclor, cefadroxil, cefalexin, cefaloridine, cefalotin, cefamandole, cefapirin, cefatrizine, cefazedone, cefazolin, cefcapene, cefcapene pivoxil, cefdinir, cefditoren, cefditoren pivoxil, cefepime, cefepime/amikacin, cefepime/clavulanic acid, cefepime/enmetazobactam, cefepime/nacubactam, cefepime/taniborbactam, cefepime/tazobactam, cefepime/zidebactam, cefetamet, cefetamet pivoxil, cefetecol, cefetrizole, cefiderocol, cefixime, cefmenoxime, cefmetazole, cefodizime, cefonicid, cefoperazone, cefoperazone/sulbactam, ceforanide, cefoselis, cefotaxime, cefotaxime screening test, cefotaxime/clavulanic acid, cefotaxime/sulbactam, cefotetan, cefotiam, cefotiam hexetil, cefovecin, cefoxitin, cefoxitin screening test, 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, nafcillin, oxacillin, oxacillin screening test, panipenem, penamecillin, penicillin/novobiocin, penicillin/sulbactam, pheneticillin, phenoxymethylpenicillin, piperacillin, piperacillin/sulbactam, piperacillin/tazobactam, piridicillin, pivampicillin, pivmecillinam, procaine benzylpenicillin, propicillin, razupenem, ritipenem, ritipenem acoxil, sarmoxicillin, sulbenicillin, sultamicillin, talampicillin, taniborbactam, tebipenem, temocillin, ticarcillin, ticarcillin/clavulanic acid, tigemonam) betalactams_with_inhibitor(amoxicillin/clavulanic acid, amoxicillin/sulbactam, ampicillin/sulbactam, aztreonam/avibactam, aztreonam/nacubactam, cefepime/amikacin, cefepime/clavulanic acid, cefepime/enmetazobactam, cefepime/nacubactam, cefepime/taniborbactam, cefepime/tazobactam, cefepime/zidebactam, cefoperazone/sulbactam, cefotaxime/clavulanic acid, cefotaxime/sulbactam, cefpodoxime/clavulanic acid, ceftaroline/avibactam, ceftazidime/avibactam, ceftazidime/clavulanic acid, ceftolozane/tazobactam, ceftriaxone/beta-lactamase inhibitor, imipenem/relebactam, meropenem/nacubactam, meropenem/vaborbactam, mezlocillin/sulbactam, penicillin/novobiocin, penicillin/sulbactam, piperacillin/sulbactam, piperacillin/tazobactam, ticarcillin/clavulanic acid) carbapenems(biapenem, doripenem, ertapenem, imipenem, imipenem/EDTA, imipenem/relebactam, meropenem, meropenem/nacubactam, meropenem/vaborbactam, panipenem, razupenem, ritipenem, ritipenem acoxil, taniborbactam, tebipenem) cephalosporins(cefacetrile, cefaclor, cefadroxil, cefalexin, cefaloridine, cefalotin, cefamandole, cefapirin, cefatrizine, cefazedone, cefazolin, cefcapene, cefcapene pivoxil, cefdinir, cefditoren, cefditoren pivoxil, cefepime, cefepime/amikacin, cefepime/clavulanic acid, cefepime/enmetazobactam, cefepime/nacubactam, cefepime/taniborbactam, cefepime/tazobactam, cefepime/zidebactam, cefetamet, cefetamet pivoxil, cefetecol, cefetrizole, cefiderocol, cefixime, cefmenoxime, cefmetazole, cefodizime, cefonicid, cefoperazone, cefoperazone/sulbactam, ceforanide, cefoselis, cefotaxime, cefotaxime screening test, cefotaxime/clavulanic acid, cefotaxime/sulbactam, cefotetan, cefotiam, cefotiam hexetil, cefovecin, cefoxitin, cefoxitin screening test, 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 test, 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 screening test, 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/amikacin, cefepime/clavulanic acid, cefepime/enmetazobactam, cefepime/nacubactam, cefepime/taniborbactam, cefepime/tazobactam, cefepime/zidebactam, 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/amikacin, cefepime/clavulanic acid, cefepime/enmetazobactam, cefepime/nacubactam, cefepime/taniborbactam, cefepime/tazobactam, cefepime/zidebactam, cefetamet, cefetamet pivoxil, cefetecol, cefetrizole, cefiderocol, cefixime, cefmenoxime, cefmetazole, cefodizime, cefonicid, cefoperazone, cefoperazone/sulbactam, ceforanide, cefoselis, cefotaxime, cefotaxime screening test, cefotaxime/clavulanic acid, cefotaxime/sulbactam, cefotetan, cefotiam, cefotiam hexetil, cefovecin, cefoxitin, cefoxitin screening test, 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, ciprofloxacin/metronidazole, ciprofloxacin/ornidazole, ciprofloxacin/tinidazole, clinafloxacin, danofloxacin, delafloxacin, difloxacin, enoxacin, enrofloxacin, finafloxacin, fleroxacin, garenoxacin, gatifloxacin, gemifloxacin, grepafloxacin, lascufloxacin, levofloxacin, levofloxacin/ornidazole, levonadifloxacin, lomefloxacin, marbofloxacin, metioxate, miloxacin, moxifloxacin, nadifloxacin, nemonoxacin, nifuroquine, nitroxoline, norfloxacin, norfloxacin screening test, norfloxacin/metronidazole, norfloxacin/tinidazole, ofloxacin, ofloxacin/ornidazole, orbifloxacin, pazufloxacin, pefloxacin, pefloxacin screening test, pradofloxacin, premafloxacin, prulifloxacin, rufloxacin, sarafloxacin, sitafloxacin, sparfloxacin, temafloxacin, tilbroquinol, tioxacin, tosufloxacin, trovafloxacin) glycopeptides(avoparcin, bleomycin, dalbavancin, norvancomycin, oritavancin, ramoplanin, teicoplanin, teicoplanin-macromethod, telavancin, vancomycin, vancomycin-macromethod) glycopeptides_except_lipo(avoparcin, bleomycin, norvancomycin, ramoplanin, teicoplanin, teicoplanin-macromethod, vancomycin, vancomycin-macromethod) isoxazolylpenicillins(cloxacillin, dicloxacillin, flucloxacillin, meticillin, oxacillin, oxacillin screening test) lincosamides(clindamycin, lincomycin, pirlimycin) lipoglycopeptides(dalbavancin, oritavancin, telavancin) macrolides(acetylmidecamycin, acetylspiramycin, azithromycin, clarithromycin, dirithromycin, erythromycin, flurithromycin, gamithromycin, josamycin, kitasamycin, meleumycin, midecamycin, miocamycin, nafithromycin, oleandomycin, rokitamycin, roxithromycin, solithromycin, spiramycin, telithromycin, tildipirosin, tilmicosin, troleandomycin, tulathromycin, tylosin, tylvalosin) monobactams(aztreonam, aztreonam/avibactam, aztreonam/nacubactam, carumonam, tigemonam) nitrofurans(furazidin, furazolidone, nifurtoinol, nitrofurantoin, nitrofurazone) oxazolidinones(cadazolid, cycloserine, linezolid, tedizolid, thiacetazone) penicillins(amoxicillin, amoxicillin/clavulanic acid, amoxicillin/sulbactam, ampicillin, ampicillin/sulbactam, apalcillin, aspoxicillin, azidocillin, azlocillin, bacampicillin, benzathine benzylpenicillin, benzathine phenoxymethylpenicillin, benzylpenicillin, benzylpenicillin screening test, carbenicillin, carindacillin, ciclacillin, clometocillin, cloxacillin, dicloxacillin, epicillin, flucloxacillin, hetacillin, lenampicillin, mecillinam, metampicillin, meticillin, mezlocillin, mezlocillin/sulbactam, nafcillin, oxacillin, oxacillin screening test, penamecillin, penicillin/novobiocin, penicillin/sulbactam, pheneticillin, phenoxymethylpenicillin, piperacillin, piperacillin/sulbactam, piperacillin/tazobactam, piridicillin, pivampicillin, pivmecillinam, procaine benzylpenicillin, propicillin, sarmoxicillin, sulbenicillin, sultamicillin, talampicillin, temocillin, ticarcillin, ticarcillin/clavulanic acid) phenicols(chloramphenicol, florfenicol, thiamphenicol) polymyxins(colistin, polymyxin B, polymyxin B/polysorbate 80) quinolones(besifloxacin, cinoxacin, ciprofloxacin, ciprofloxacin/metronidazole, ciprofloxacin/ornidazole, ciprofloxacin/tinidazole, clinafloxacin, danofloxacin, delafloxacin, difloxacin, enoxacin, enrofloxacin, finafloxacin, fleroxacin, flumequine, garenoxacin, gatifloxacin, gemifloxacin, grepafloxacin, lascufloxacin, levofloxacin, levofloxacin/ornidazole, levonadifloxacin, lomefloxacin, marbofloxacin, metioxate, miloxacin, moxifloxacin, nadifloxacin, nalidixic acid, nalidixic acid screening test, nemonoxacin, nifuroquine, nitroxoline, norfloxacin, norfloxacin screening test, norfloxacin/metronidazole, norfloxacin/tinidazole, ofloxacin, ofloxacin/ornidazole, orbifloxacin, oxolinic acid, pazufloxacin, pefloxacin, pefloxacin screening test, pipemidic acid, piromidic acid, pradofloxacin, premafloxacin, prulifloxacin, rosoxacin, rufloxacin, sarafloxacin, sitafloxacin, sparfloxacin, temafloxacin, tilbroquinol, tioxacin, tosufloxacin, trovafloxacin) rifamycins(rifabutin, rifampicin, rifampicin/ethambutol/isoniazid, rifampicin/isoniazid, rifampicin/pyrazinamide/ethambutol/isoniazid, rifampicin/pyrazinamide/isoniazid, rifamycin, rifapentine) streptogramins(pristinamycin quinupristin/dalfopristin) sulfonamides(brodimoprim, sulfadiazine, sulfadiazine/tetroxoprim, sulfadimethoxine, sulfadimidine, sulfafurazole, sulfaisodimidine, sulfalene, sulfamazone, sulfamerazine, sulfamethizole, sulfamethoxazole, sulfamethoxypyridazine, sulfametomidine, sulfametoxydiazine, sulfamoxole, sulfanilamide, sulfaperin, sulfaphenazole, sulfapyridine, sulfathiazole, sulfathiourea) tetracyclines(cetocycline, chlortetracycline, clomocycline, demeclocycline, doxycycline, eravacycline, lymecycline, metacycline, minocycline, omadacycline, oxytetracycline, penimepicycline, rolitetracycline, sarecycline, tetracycline, tetracycline screening test, tigecycline) tetracyclines_except_tgc(cetocycline, chlortetracycline, clomocycline, demeclocycline, doxycycline, eravacycline, lymecycline, metacycline, minocycline, omadacycline, oxytetracycline, penimepicycline, rolitetracycline, sarecycline, tetracycline, tetracycline screening test) trimethoprims(brodimoprim, sulfadiazine, sulfadiazine/tetroxoprim, sulfadiazine/trimethoprim, sulfadimethoxine, sulfadimidine, sulfadimidine/trimethoprim, sulfafurazole, sulfaisodimidine, sulfalene, sulfamazone, sulfamerazine, sulfamerazine/trimethoprim, sulfamethizole, sulfamethoxazole, sulfamethoxypyridazine, sulfametomidine, sulfametoxydiazine, sulfametrole/trimethoprim, sulfamoxole, sulfamoxole/trimethoprim, sulfanilamide, sulfaperin, sulfaphenazole, sulfapyridine, sulfathiazole, sulfathiourea, trimethoprim, trimethoprim/sulfamethoxazole) ureidopenicillins(azlocillin, mezlocillin, piperacillin, piperacillin/tazobactam)","code":"x <- custom_eucast_rules(TZP == \"R\" ~ c(aminopenicillins, ureidopenicillins) == \"R\") x #> A set of custom EUCAST rules: #> #>   1. If TZP is \"R\" then set to \"R\": #>      amoxicillin (AMX), ampicillin (AMP), azlocillin (AZL), mezlocillin (MEZ), piperacillin (PIP), piperacillin/tazobactam (TZP)"},{"path":"https://amr-for-r.org/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,   overwrite = TRUE,   verbose = TRUE ) #> # A tibble: 8 × 9 #>     row col   mo_fullname     old   new   rule  rule_group rule_name rule_source #>   <int> <chr> <chr>           <ord> <chr> <chr> <chr>      <chr>     <chr>       #> 1    33 AMP   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 2    33 AMX   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 3    34 AMP   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 4    34 AMX   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 5   531 AMP   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 6   531 AMX   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 7  1485 AMP   Klebsiella oxy… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 8  1485 AMX   Klebsiella oxy… R     I     \"rep… Custom EU… Custom E… Object 'x'…  # combine rule sets x2 <- c(   x,   custom_eucast_rules(TZP == \"R\" ~ carbapenems == \"R\") ) x2 #> A set of custom EUCAST rules: #>  #>   1. If AMC is  R  and genus is \"Klebsiella\" then set to  R : #>      amoxicillin (AMX), ampicillin (AMP) #>  #>   2. If AMC is  I  and genus is \"Klebsiella\" then set to  I : #>      amoxicillin (AMX), ampicillin (AMP) #>  #>   3. If TZP is  R  then set to  R : #>      biapenem (BIA), doripenem (DOR), ertapenem (ETP), imipenem (IPM), #>      imipenem/EDTA (IPE), imipenem/relebactam (IMR), meropenem (MEM), #>      meropenem/nacubactam (MNC), meropenem/vaborbactam (MEV), panipenem (PAN), #>      razupenem (RZM), ritipenem (RIT), ritipenem acoxil (RIA), taniborbactam #>      (TAN), tebipenem (TBP)"},{"path":"https://amr-for-r.org/reference/custom_mdro_guideline.html","id":null,"dir":"Reference","previous_headings":"","what":"Define Custom MDRO Guideline — custom_mdro_guideline","title":"Define Custom MDRO Guideline — custom_mdro_guideline","text":"Define custom MDRO guideline organisation specific analysis use output function mdro().","code":""},{"path":"https://amr-for-r.org/reference/custom_mdro_guideline.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Define Custom MDRO Guideline — custom_mdro_guideline","text":"","code":"custom_mdro_guideline(..., as_factor = TRUE)  # S3 method for class 'custom_mdro_guideline' c(x, ..., as_factor = NULL)"},{"path":"https://amr-for-r.org/reference/custom_mdro_guideline.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Define Custom MDRO Guideline — custom_mdro_guideline","text":"... Guideline rules formula notation, see instructions, Examples. as_factor logical indicate whether returned value ordered factor (TRUE, default), otherwise character vector. combining rules sets (using c()) value inherited first set default. x Existing custom MDRO rules","code":""},{"path":"https://amr-for-r.org/reference/custom_mdro_guideline.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Define Custom MDRO Guideline — custom_mdro_guideline","text":"list containing custom rules","code":""},{"path":"https://amr-for-r.org/reference/custom_mdro_guideline.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Define Custom MDRO Guideline — custom_mdro_guideline","text":"Using custom MDRO guideline importance custom rules determine MDROs hospital, e.g., rules dependent ward, state contact isolation variables data.","code":""},{"path":"https://amr-for-r.org/reference/custom_mdro_guideline.html","id":"basics","dir":"Reference","previous_headings":"","what":"Basics","title":"Define Custom MDRO Guideline — custom_mdro_guideline","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:   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():","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) #> Determining MDROs based on custom rules, resulting in factor levels: Negative < Elderly Type A < Elderly Type B. #> - Custom MDRO rule 1: CIP == \"R\" & age > 60 (198 rows matched) #> - Custom MDRO rule 2: ERY == \"R\" & age > 60 (732 rows matched) #> => Found 930 custom defined MDROs out of 2000 isolates (46.5%)  table(x) #> 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\"))) #> Determining MDROs based on custom rules, resulting in factor levels: Negative < Elderly Type A < Elderly Type B < Elderly Type C. #> - Custom MDRO rule 1: CIP == \"R\" & age > 60 (198 rows matched) #> - Custom MDRO rule 2: ERY == \"R\" & age > 60 (732 rows matched) #> - Custom MDRO rule 3: ERY == \"R\" & age > 50 (109 rows matched) #> => Found 1039 custom defined MDROs out of 2000 isolates (52.0%)  table(x) #> x #>       Negative  Elderly Type A  Elderly Type B  Elderly Type C #>            961             198             732             109"},{"path":"https://amr-for-r.org/reference/custom_mdro_guideline.html","id":"sharing-rules-among-multiple-users","dir":"Reference","previous_headings":"","what":"Sharing rules among multiple users","title":"Define Custom MDRO Guideline — custom_mdro_guideline","text":"rules set (custom object case) exported shared file location using saveRDS() collaborate multiple users. custom rules set imported using readRDS().","code":""},{"path":"https://amr-for-r.org/reference/custom_mdro_guideline.html","id":"usage-of-multiple-antimicrobials-and-antimicrobial-group-names","dir":"Reference","previous_headings":"","what":"Usage of multiple antimicrobials and antimicrobial group names","title":"Define Custom MDRO Guideline — custom_mdro_guideline","text":"can define antimicrobial groups instead single antimicrobials rule , part tilde (~). Use () () specify scope antimicrobial group:   35 antimicrobial selectors supported use rules: aminoglycosides() can select:  amikacin, amikacin/fosfomycin, apramycin, arbekacin, astromicin, bekanamycin, dibekacin, framycetin, gentamicin, gentamicin-high, habekacin, hygromycin, isepamicin, kanamycin, kanamycin-high, kanamycin/cephalexin, micronomicin, neomycin, netilmicin, pentisomicin, plazomicin, propikacin, ribostamycin, sisomicin, streptoduocin, streptomycin, streptomycin-high, tobramycin, tobramycin-high aminopenicillins() can select:  amoxicillin ampicillin antifungals() can select:  amorolfine, amphotericin B, amphotericin B-high, anidulafungin, butoconazole, caspofungin, ciclopirox, clotrimazole, econazole, fluconazole, flucytosine, fosfluconazole, griseofulvin, hachimycin, ibrexafungerp, isavuconazole, isoconazole, itraconazole, ketoconazole, manogepix, micafungin, miconazole, nystatin, oteseconazole, pimaricin, posaconazole, rezafungin, ribociclib, sulconazole, terbinafine, terconazole, voriconazole antimycobacterials() can select:  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, sodium aminosalicylate, streptomycin/isoniazid, terizidone, thioacetazone, thioacetazone/isoniazid, tiocarlide, viomycin betalactams() can select:  amoxicillin, amoxicillin/clavulanic acid, amoxicillin/sulbactam, ampicillin, ampicillin/sulbactam, apalcillin, aspoxicillin, azidocillin, azlocillin, aztreonam, aztreonam/avibactam, aztreonam/nacubactam, bacampicillin, benzathine benzylpenicillin, benzathine phenoxymethylpenicillin, benzylpenicillin, benzylpenicillin screening test, biapenem, carbenicillin, carindacillin, carumonam, cefacetrile, cefaclor, cefadroxil, cefalexin, cefaloridine, cefalotin, cefamandole, cefapirin, cefatrizine, cefazedone, cefazolin, cefcapene, cefcapene pivoxil, cefdinir, cefditoren, cefditoren pivoxil, cefepime, cefepime/amikacin, cefepime/clavulanic acid, cefepime/enmetazobactam, cefepime/nacubactam, cefepime/taniborbactam, cefepime/tazobactam, cefepime/zidebactam, cefetamet, cefetamet pivoxil, cefetecol, cefetrizole, cefiderocol, cefixime, cefmenoxime, cefmetazole, cefodizime, cefonicid, cefoperazone, cefoperazone/sulbactam, ceforanide, cefoselis, cefotaxime, cefotaxime screening test, cefotaxime/clavulanic acid, cefotaxime/sulbactam, cefotetan, cefotiam, cefotiam hexetil, cefovecin, cefoxitin, cefoxitin screening test, 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, nafcillin, oxacillin, oxacillin screening test, panipenem, penamecillin, penicillin/novobiocin, penicillin/sulbactam, pheneticillin, phenoxymethylpenicillin, piperacillin, piperacillin/sulbactam, piperacillin/tazobactam, piridicillin, pivampicillin, pivmecillinam, procaine benzylpenicillin, propicillin, razupenem, ritipenem, ritipenem acoxil, sarmoxicillin, sulbenicillin, sultamicillin, talampicillin, taniborbactam, tebipenem, temocillin, ticarcillin, ticarcillin/clavulanic acid, tigemonam betalactams_with_inhibitor() can select:  amoxicillin/clavulanic acid, amoxicillin/sulbactam, ampicillin/sulbactam, aztreonam/avibactam, aztreonam/nacubactam, cefepime/amikacin, cefepime/clavulanic acid, cefepime/enmetazobactam, cefepime/nacubactam, cefepime/taniborbactam, cefepime/tazobactam, cefepime/zidebactam, cefoperazone/sulbactam, cefotaxime/clavulanic acid, cefotaxime/sulbactam, cefpodoxime/clavulanic acid, ceftaroline/avibactam, ceftazidime/avibactam, ceftazidime/clavulanic acid, ceftolozane/tazobactam, ceftriaxone/beta-lactamase inhibitor, imipenem/relebactam, meropenem/nacubactam, meropenem/vaborbactam, mezlocillin/sulbactam, penicillin/novobiocin, penicillin/sulbactam, piperacillin/sulbactam, piperacillin/tazobactam, ticarcillin/clavulanic acid carbapenems() can select:  biapenem, doripenem, ertapenem, imipenem, imipenem/EDTA, imipenem/relebactam, meropenem, meropenem/nacubactam, meropenem/vaborbactam, panipenem, razupenem, ritipenem, ritipenem acoxil, taniborbactam, tebipenem cephalosporins() can select:  cefacetrile, cefaclor, cefadroxil, cefalexin, cefaloridine, cefalotin, cefamandole, cefapirin, cefatrizine, cefazedone, cefazolin, cefcapene, cefcapene pivoxil, cefdinir, cefditoren, cefditoren pivoxil, cefepime, cefepime/amikacin, cefepime/clavulanic acid, cefepime/enmetazobactam, cefepime/nacubactam, cefepime/taniborbactam, cefepime/tazobactam, cefepime/zidebactam, cefetamet, cefetamet pivoxil, cefetecol, cefetrizole, cefiderocol, cefixime, cefmenoxime, cefmetazole, cefodizime, cefonicid, cefoperazone, cefoperazone/sulbactam, ceforanide, cefoselis, cefotaxime, cefotaxime screening test, cefotaxime/clavulanic acid, cefotaxime/sulbactam, cefotetan, cefotiam, cefotiam hexetil, cefovecin, cefoxitin, cefoxitin screening test, 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() can select:  cefacetrile, cefadroxil, cefalexin, cefaloridine, cefalotin, cefapirin, cefatrizine, cefazedone, cefazolin, cefroxadine, ceftezole, cephradine cephalosporins_2nd() can select:  cefaclor, cefamandole, cefmetazole, cefonicid, ceforanide, cefotetan, cefotiam, cefoxitin, cefoxitin screening test, cefprozil, cefuroxime, cefuroxime axetil, loracarbef cephalosporins_3rd() can select:  cefcapene, cefcapene pivoxil, cefdinir, cefditoren, cefditoren pivoxil, cefetamet, cefetamet pivoxil, cefixime, cefmenoxime, cefodizime, cefoperazone, cefoperazone/sulbactam, cefotaxime, cefotaxime screening test, 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() can select:  cefepime, cefepime/amikacin, cefepime/clavulanic acid, cefepime/enmetazobactam, cefepime/nacubactam, cefepime/taniborbactam, cefepime/tazobactam, cefepime/zidebactam, cefetecol, cefoselis, cefozopran, cefpirome, cefquinome cephalosporins_5th() can select:  ceftaroline, ceftaroline/avibactam, ceftobiprole, ceftobiprole medocaril, ceftolozane/tazobactam fluoroquinolones() can select:  besifloxacin, ciprofloxacin, ciprofloxacin/metronidazole, ciprofloxacin/ornidazole, ciprofloxacin/tinidazole, clinafloxacin, danofloxacin, delafloxacin, difloxacin, enoxacin, enrofloxacin, finafloxacin, fleroxacin, garenoxacin, gatifloxacin, gemifloxacin, grepafloxacin, lascufloxacin, levofloxacin, levofloxacin/ornidazole, levonadifloxacin, lomefloxacin, marbofloxacin, metioxate, miloxacin, moxifloxacin, nadifloxacin, nemonoxacin, nifuroquine, nitroxoline, norfloxacin, norfloxacin screening test, norfloxacin/metronidazole, norfloxacin/tinidazole, ofloxacin, ofloxacin/ornidazole, orbifloxacin, pazufloxacin, pefloxacin, pefloxacin screening test, pradofloxacin, premafloxacin, prulifloxacin, rufloxacin, sarafloxacin, sitafloxacin, sparfloxacin, temafloxacin, tilbroquinol, tioxacin, tosufloxacin, trovafloxacin glycopeptides() can select:  avoparcin, bleomycin, dalbavancin, norvancomycin, oritavancin, ramoplanin, teicoplanin, teicoplanin-macromethod, telavancin, vancomycin, vancomycin-macromethod isoxazolylpenicillins() can select:  cloxacillin, dicloxacillin, flucloxacillin, meticillin, oxacillin, oxacillin screening test lincosamides() can select:  clindamycin, lincomycin, pirlimycin lipoglycopeptides() can select:  dalbavancin, oritavancin, telavancin macrolides() can select:  acetylmidecamycin, acetylspiramycin, azithromycin, clarithromycin, dirithromycin, erythromycin, flurithromycin, gamithromycin, josamycin, kitasamycin, meleumycin, midecamycin, miocamycin, nafithromycin, oleandomycin, rokitamycin, roxithromycin, solithromycin, spiramycin, telithromycin, tildipirosin, tilmicosin, troleandomycin, tulathromycin, tylosin, tylvalosin monobactams() can select:  aztreonam, aztreonam/avibactam, aztreonam/nacubactam, carumonam, tigemonam nitrofurans() can select:  furazidin, furazolidone, nifurtoinol, nitrofurantoin, nitrofurazone oxazolidinones() can select:  cadazolid, cycloserine, linezolid, tedizolid, thiacetazone penicillins() can select:  amoxicillin, amoxicillin/clavulanic acid, amoxicillin/sulbactam, ampicillin, ampicillin/sulbactam, apalcillin, aspoxicillin, azidocillin, azlocillin, bacampicillin, benzathine benzylpenicillin, benzathine phenoxymethylpenicillin, benzylpenicillin, benzylpenicillin screening test, carbenicillin, carindacillin, ciclacillin, clometocillin, cloxacillin, dicloxacillin, epicillin, flucloxacillin, hetacillin, lenampicillin, mecillinam, metampicillin, meticillin, mezlocillin, mezlocillin/sulbactam, nafcillin, oxacillin, oxacillin screening test, penamecillin, penicillin/novobiocin, penicillin/sulbactam, pheneticillin, phenoxymethylpenicillin, piperacillin, piperacillin/sulbactam, piperacillin/tazobactam, piridicillin, pivampicillin, pivmecillinam, procaine benzylpenicillin, propicillin, sarmoxicillin, sulbenicillin, sultamicillin, talampicillin, temocillin, ticarcillin, ticarcillin/clavulanic acid phenicols() can select:  chloramphenicol, florfenicol, thiamphenicol polymyxins() can select:  colistin, polymyxin B, polymyxin B/polysorbate 80 quinolones() can select:  besifloxacin, cinoxacin, ciprofloxacin, ciprofloxacin/metronidazole, ciprofloxacin/ornidazole, ciprofloxacin/tinidazole, clinafloxacin, danofloxacin, delafloxacin, difloxacin, enoxacin, enrofloxacin, finafloxacin, fleroxacin, flumequine, garenoxacin, gatifloxacin, gemifloxacin, grepafloxacin, lascufloxacin, levofloxacin, levofloxacin/ornidazole, levonadifloxacin, lomefloxacin, marbofloxacin, metioxate, miloxacin, moxifloxacin, nadifloxacin, nalidixic acid, nalidixic acid screening test, nemonoxacin, nifuroquine, nitroxoline, norfloxacin, norfloxacin screening test, norfloxacin/metronidazole, norfloxacin/tinidazole, ofloxacin, ofloxacin/ornidazole, orbifloxacin, oxolinic acid, pazufloxacin, pefloxacin, pefloxacin screening test, pipemidic acid, piromidic acid, pradofloxacin, premafloxacin, prulifloxacin, rosoxacin, rufloxacin, sarafloxacin, sitafloxacin, sparfloxacin, temafloxacin, tilbroquinol, tioxacin, tosufloxacin, trovafloxacin rifamycins() can select:  rifabutin, rifampicin, rifampicin/ethambutol/isoniazid, rifampicin/isoniazid, rifampicin/pyrazinamide/ethambutol/isoniazid, rifampicin/pyrazinamide/isoniazid, rifamycin, rifapentine streptogramins() can select:  pristinamycin quinupristin/dalfopristin sulfonamides() can select:  brodimoprim, sulfadiazine, sulfadiazine/tetroxoprim, sulfadimethoxine, sulfadimidine, sulfafurazole, sulfaisodimidine, sulfalene, sulfamazone, sulfamerazine, sulfamethizole, sulfamethoxazole, sulfamethoxypyridazine, sulfametomidine, sulfametoxydiazine, sulfamoxole, sulfanilamide, sulfaperin, sulfaphenazole, sulfapyridine, sulfathiazole, sulfathiourea tetracyclines() can select:  cetocycline, chlortetracycline, clomocycline, demeclocycline, doxycycline, eravacycline, lymecycline, metacycline, minocycline, omadacycline, oxytetracycline, penimepicycline, rolitetracycline, sarecycline, tetracycline, tetracycline screening test, tigecycline trimethoprims() can select:  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() can select:  azlocillin, mezlocillin, piperacillin, piperacillin/tazobactam","code":"custom_mdro_guideline(   AMX == \"R\"                       ~ \"My MDRO #1\",   any(cephalosporins_2nd() == \"R\") ~ \"My MDRO #2\",   all(glycopeptides() == \"R\")      ~ \"My MDRO #3\" )"},{"path":"https://amr-for-r.org/reference/custom_mdro_guideline.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Define Custom MDRO Guideline — custom_mdro_guideline","text":"","code":"x <- custom_mdro_guideline(   CIP == \"R\" & age > 60 ~ \"Elderly Type A\",   ERY == \"R\" & age > 60 ~ \"Elderly Type B\" ) x #> 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  # run the custom rule set (verbose = TRUE will return a logbook instead of the data set): out <- mdro(example_isolates, guideline = x) table(out) #> out #>       Negative Elderly Type A Elderly Type B  #>           1070            198            732   out <- mdro(example_isolates, guideline = x, verbose = TRUE) head(out) #>    row_number microorganism           MDRO #> V1          1          <NA> Elderly Type B #> V2          2          <NA> Elderly Type B #> V3          3          <NA>       Negative #> V4          4          <NA>       Negative #> V5          5          <NA>       Negative #> V6          6          <NA>       Negative #>                                   reason #> V1 matched rule 2: ERY == \"R\" & age > 60 #> V2 matched rule 2: ERY == \"R\" & age > 60 #> V3                      no rules matched #> V4                      no rules matched #> V5                      no rules matched #> V6                      no rules matched #>                               all_nonsusceptible_columns        guideline #> V1 PEN, TMP, SXT, LNZ, VAN, TEC, TCY, ERY, CLI, AZM, RIF Custom guideline #> V2 PEN, TMP, SXT, LNZ, VAN, TEC, TCY, ERY, CLI, AZM, RIF Custom guideline #> V3                     PEN, FLC, CXM, CAZ, ERY, AZM, COL Custom guideline #> V4                     PEN, FLC, CXM, CAZ, ERY, AZM, COL Custom guideline #> V5                PEN, FLC, CXM, CAZ, TMP, ERY, AZM, COL Custom guideline #> V6           PEN, FLC, CXM, CAZ, TMP, ERY, CLI, AZM, COL Custom guideline  # you can create custom guidelines using selectors (see ?antimicrobial_selectors) my_guideline <- custom_mdro_guideline(   AMX == \"R\" ~ \"Custom MDRO 1\",   all(cephalosporins_2nd() == \"R\") ~ \"Custom MDRO 2\" ) my_guideline #> A set of custom MDRO rules: #>   1. If AMX is  R  then: Custom MDRO 1 #>   2. If all of cephalosporins_2nd() is  R  then: Custom MDRO 2 #>   3. Otherwise: Negative #>  #> Unmatched rows will return NA. #> Results will be of class 'factor', with ordered levels: Negative < Custom MDRO 1 < Custom MDRO 2  out <- mdro(example_isolates, guideline = my_guideline) #> ℹ Column 'esbl' is SIR eligible (despite only having empty values), since #>   it seems to be tazobactam (TAZ) #> ℹ Column 'mecC' is SIR eligible (despite only having empty values), since #>   it seems to be mecillinam (MEC) #> ℹ Column 'vanA' is SIR eligible (despite only having empty values), since #>   it seems to be lenampicillin (LEN) #> ℹ Column 'vanB' is SIR eligible (despite only having empty values), since #>   it seems to be metronidazole (MTR) #> ℹ For `cephalosporins_2nd()` using columns 'CXM' (cefuroxime) and 'FOX' #>   (cefoxitin) #> ℹ Assuming a filter on all 2 cephalosporins_2nd. Wrap around `all()` or #>   `any()` to prevent this note. table(out) #> out #>      Negative Custom MDRO 1 Custom MDRO 2  #>          1144           804            52"},{"path":"https://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/reference/dosage.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with Treatment Dosages as Defined by EUCAST — dosage","text":"tibble 759 observations 9 variables: ab Antimicrobial ID used package (AMC), using official EARS-Net (European Antimicrobial Resistance Surveillance Network) codes available name Official name antimicrobial drug used WHONET/EARS-Net type Type dosage, either \"high_dosage\", \"standard_dosage\", \"uncomplicated_uti\" dose Dose, \"2 g\" \"25 mg/kg\" dose_times Number times dose must administered administration Route administration, either \"\", \"im\", \"iv\", \"oral\" notes Additional dosage notes original_txt Original text PDF file EUCAST eucast_version Version number EUCAST Clinical Breakpoints guideline dosages apply, either 15, 14, 13.1, 12, 11","code":""},{"path":"https://amr-for-r.org/reference/dosage.html","id":"download-our-reference-data","dir":"Reference","previous_headings":"","what":"Download Our Reference Data","title":"Data Set with Treatment Dosages as Defined by EUCAST — dosage","text":"reference data sets AMR package - including information microorganisms, antimicrobials, clinical breakpoints - freely available download multiple formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. maximum compatibility, also provide machine-readable, tab-separated plain text files suitable use software, including laboratory information systems. Visit website direct download links, explore actual files GitHub repository.","code":""},{"path":"https://amr-for-r.org/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: 759 × 9 #>    ab   name            type  dose  dose_times administration notes original_txt #>    <ab> <chr>           <chr> <chr>      <int> <chr>          <chr> <chr>        #>  1 AMK  Amikacin        stan… 25-3…          1 iv             \"\"    \"25-30 mg/k… #>  2 AMX  Amoxicillin     high… 2 g            6 iv             \"\"    \"2 g x 6 iv\" #>  3 AMX  Amoxicillin     stan… 1 g            3 iv             \"\"    \"1 g x 3-4 … #>  4 AMX  Amoxicillin     high… 0.75…          3 oral           \"\"    \"0.75-1 g x… #>  5 AMX  Amoxicillin     stan… 0.5 g          3 oral           \"\"    \"0.5 g x 3 … #>  6 AMX  Amoxicillin     unco… 0.5 g          3 oral           \"\"    \"0.5 g x 3 … #>  7 AMC  Amoxicillin/cl… high… 2 g …          3 iv             \"\"    \"(2 g amoxi… #>  8 AMC  Amoxicillin/cl… stan… 1 g …          3 iv             \"\"    \"(1 g amoxi… #>  9 AMC  Amoxicillin/cl… high… 0.87…          3 oral           \"\"    \"(0.875 g a… #> 10 AMC  Amoxicillin/cl… stan… 0.5 …          3 oral           \"\"    \"(0.5 g amo… #> # ℹ 749 more rows #> # ℹ 1 more variable: eucast_version <dbl>"},{"path":"https://amr-for-r.org/reference/esbl_isolates.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with 500 ESBL Isolates — esbl_isolates","title":"Data Set with 500 ESBL Isolates — esbl_isolates","text":"data set containing 500 microbial isolates MIC values common antibiotics binary esbl column extended-spectrum beta-lactamase (ESBL) production. data set contains randomised fictitious data reflects reality can used practise AMR-related machine learning, e.g., classification modelling tidymodels.","code":""},{"path":"https://amr-for-r.org/reference/esbl_isolates.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with 500 ESBL Isolates — esbl_isolates","text":"","code":"esbl_isolates"},{"path":"https://amr-for-r.org/reference/esbl_isolates.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with 500 ESBL Isolates — esbl_isolates","text":"tibble 500 observations 19 variables: esbl Logical indicator isolate ESBL-producing genus Genus microorganism AMC:COL MIC values 17 antimicrobial agents, transformed class mic (see .mic())","code":""},{"path":"https://amr-for-r.org/reference/esbl_isolates.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with 500 ESBL Isolates — esbl_isolates","text":"See tidymodels integration example using data set.","code":""},{"path":"https://amr-for-r.org/reference/esbl_isolates.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with 500 ESBL Isolates — esbl_isolates","text":"","code":"esbl_isolates #> # A tibble: 500 × 19 #>    esbl  genus   AMC   AMP   TZP   CXM   FOX   CTX   CAZ   GEN   TOB   TMP   SXT #>    <lgl> <chr> <mic> <mic> <mic> <mic> <mic> <mic> <mic> <mic> <mic> <mic> <mic> #>  1 FALSE Esch…    32    32     4    64    64  8.00  8.00     1     1  16.0    20 #>  2 FALSE Esch…    32    32     4    64    64  4.00  8.00     1     1  16.0   320 #>  3 FALSE Esch…     4     2    64     8     4  8.00  0.12    16    16   0.5    20 #>  4 FALSE Kleb…    32    32    16    64    64  8.00  8.00     1     1   0.5    20 #>  5 FALSE Esch…    32    32     4     4     4  0.25  2.00     1     1  16.0   320 #>  6 FALSE Citr…    32    32    16    64    64 64.00 32.00     1     1   0.5    20 #>  7 FALSE Morg…    32    32     4    64    64 16.00  2.00     1     1   0.5    20 #>  8 FALSE Prot…    16    32     4     1     4  8.00  0.12     1     1  16.0   320 #>  9 FALSE Ente…    32    32     8    64    64 32.00  4.00     1     1   0.5    20 #> 10 FALSE Citr…    32    32    32    64    64  8.00 64.00     1     1  16.0   320 #> # ℹ 490 more rows #> # ℹ 6 more variables: NIT <mic>, FOS <mic>, CIP <mic>, IPM <mic>, MEM <mic>, #> #   COL <mic>"},{"path":"https://amr-for-r.org/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 notes expected resistant phenotypes 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://amr-for-r.org/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\",   \"expected_phenotypes\")), verbose = FALSE, version_breakpoints = 15,   version_expected_phenotypes = 1.2, version_expertrules = 3.3,   ampc_cephalosporin_resistance = NA, only_sir_columns = any(is.sir(x)),   custom_rules = NULL, overwrite = FALSE, ...)  eucast_dosage(ab, administration = \"iv\", version_breakpoints = 15)"},{"path":"https://amr-for-r.org/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://amr-for-r.org/reference/eucast_rules.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Apply EUCAST Rules — eucast_rules","text":"x data set antimicrobials 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\", \"expected_phenotypes\", \"expert\", \"\", \"custom\", \"\", defaults c(\"breakpoints\", \"expected_phenotypes\"). 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 \"15.0\", \"14.0\", \"13.1\", \"12.0\", \"11.0\", \"10.0\". version_expected_phenotypes version number use EUCAST Expected Phenotypes. Can \"1.2\". version_expertrules version number use EUCAST Expert Rules Intrinsic Resistance guideline. Can \"3.3\", \"3.2\", \"3.1\". ampc_cephalosporin_resistance (applies rules contains \"expert\" \"\") character value applied cefotaxime, ceftriaxone ceftazidime AmpC de-repressed cephalosporin-resistant mutants - default NA. Currently works version_expertrules 3.2 higher; versions '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 antimicrobial columns must included transformed class sir beforehand. Defaults FALSE columns x class sir. custom_rules Custom rules apply, created custom_eucast_rules(). overwrite logical indicating whether overwrite existing SIR values (default: FALSE). FALSE, non-SIR values modified (.e., value already S, R). ensure compliance EUCAST guidelines, remain FALSE, EUCAST notes often state organism \"tested susceptibility individual agents reported resistant\". ... Column names antimicrobials. automatically detect antimicrobial column names, provide named arguments; guess_ab_col() used detection. manually specify column, provide name (case-insensitive) argument, e.g. AMX = \"amoxicillin\". skip specific antimicrobial, set NULL, e.g. TIC = NULL exclude ticarcillin. manually defined column exist data, skipped warning. ab (vector ) text can coerced valid antimicrobial drug code .ab(). administration Route administration, either \"\", \"im\", \"iv\", \"oral\".","code":""},{"path":"https://amr-for-r.org/reference/eucast_rules.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Apply EUCAST Rules — eucast_rules","text":"input x, possibly edited values antimicrobials. , verbose = TRUE, data.frame original new values affected bug-drug combinations.","code":""},{"path":"https://amr-for-r.org/reference/eucast_rules.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Apply EUCAST Rules — eucast_rules","text":"Note: function translate MIC values SIR values. Use .sir() . Note: ampicillin (AMP, J01CA01) available amoxicillin (AMX, J01CA04) , latter used rules dependency ampicillin. drugs interchangeable comes expression antimicrobial resistance. file containing EUCAST rules located : https://github.com/msberends/AMR/blob/main/data-raw/eucast_rules.tsv.  Note: Old taxonomic names replaced current taxonomy applicable. example, Ochrobactrum anthropi renamed Brucella anthropi 2020; original EUCAST rules v3.1 v3.2 yet contain new taxonomic name. AMR package contains full microbial taxonomy updated June 24th, 2024, see microorganisms.","code":""},{"path":"https://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/reference/eucast_rules.html","id":"download-our-reference-data","dir":"Reference","previous_headings":"","what":"Download Our Reference Data","title":"Apply EUCAST Rules — eucast_rules","text":"reference data sets AMR package - including information microorganisms, antimicrobials, clinical breakpoints - freely available download multiple formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. maximum compatibility, also provide machine-readable, tab-separated plain text files suitable use software, including laboratory information systems. Visit website direct download links, explore actual files GitHub repository.","code":""},{"path":"https://amr-for-r.org/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, overwrite = 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(b) #>                       mo VAN AMX COL CAZ CXM PEN FOX #> 1  Staphylococcus aureus   -   S   R   R   S   S   S #> 2  Enterococcus faecalis   -   -   R   R   R   S   R #> 3       Escherichia coli   R   -   -   -   -   R   S #> 4  Klebsiella pneumoniae   R   R   -   -   -   R   S #> 5 Pseudomonas aeruginosa   R   R   -   -   R   R   R   # do not apply EUCAST rules, but rather get a data.frame # containing all details about the transformations: c <- eucast_rules(a, overwrite = TRUE, 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      Expected phenotypes #> 4   1 COL Staphylococcus aureus   -   R      Expected phenotypes #> 5   2 CAZ Enterococcus faecalis   -   R      Expected phenotypes #> 6   2 COL Enterococcus faecalis   -   R      Expected phenotypes #>                                                         rule_name #> 1                                                  Staphylococcus #> 2                                                  Staphylococcus #> 3 Table 4: Expected resistant phenotype in gram-positive bacteria #> 4 Table 4: Expected resistant phenotype in gram-positive bacteria #> 5 Table 4: Expected resistant phenotype in gram-positive bacteria #> 6 Table 4: Expected resistant phenotype in gram-positive bacteria #>                                         rule_source #> 1   'EUCAST Clinical Breakpoint Tables' v15.0, 2025 #> 2   'EUCAST Clinical Breakpoint Tables' v15.0, 2025 #> 3 'EUCAST Expected Resistant Phenotypes' v1.2, 2023 #> 4 'EUCAST Expected Resistant Phenotypes' v1.2, 2023 #> 5 'EUCAST Expected Resistant Phenotypes' v1.2, 2023 #> 6 'EUCAST Expected Resistant Phenotypes' v1.2, 2023 # }  # Dosage guidelines:  eucast_dosage(c(\"tobra\", \"genta\", \"cipro\"), \"iv\") #> ℹ Dosages for antimicrobial drugs, as meant for 'EUCAST Clinical Breakpoint #>   Tables' v15.0 (2025). This note will be shown once per session. #> # A tibble: 3 × 5 #>   ab   name          standard_dosage  high_dosage  eucast_version #>   <ab> <chr>         <chr>            <chr>                 <dbl> #> 1 TOB  Tobramycin    6-7 mg/kg x 1 iv NA                       15 #> 2 GEN  Gentamicin    6-7 mg/kg x 1 iv NA                       15 #> 3 CIP  Ciprofloxacin 0.4 g x 2 iv     0.4 g x 3 iv             15  eucast_dosage(c(\"tobra\", \"genta\", \"cipro\"), \"iv\", version_breakpoints = 10) #> # A tibble: 3 × 5 #>   ab   name          standard_dosage high_dosage eucast_version #>   <ab> <chr>         <chr>           <chr>                <dbl> #> 1 TOB  Tobramycin    NA              NA                      NA #> 2 GEN  Gentamicin    NA              NA                      NA #> 3 CIP  Ciprofloxacin NA              NA                      NA"},{"path":"https://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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 antimicrobials class sir (see .sir()); column names occur antimicrobials data set can translated set_ab_names() ab_name()","code":""},{"path":"https://amr-for-r.org/reference/example_isolates.html","id":"download-our-reference-data","dir":"Reference","previous_headings":"","what":"Download Our Reference Data","title":"Data Set with 2 000 Example Isolates — example_isolates","text":"reference data sets AMR package - including information microorganisms, antimicrobials, clinical breakpoints - freely available download multiple formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. maximum compatibility, also provide machine-readable, tab-separated plain text files suitable use software, including laboratory information systems. Visit website direct download links, explore actual files GitHub repository.","code":""},{"path":"https://amr-for-r.org/reference/example_isolates.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with 2 000 Example Isolates — example_isolates","text":"","code":"example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI   R     NA    NA    NA  #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI   R     NA    NA    NA  #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS   R     NA    S     R   #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS   R     NA    S     R   #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR   R     NA    S     NA  #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …"},{"path":"https://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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 antimicrobials transformed .sir()","code":""},{"path":"https://amr-for-r.org/reference/example_isolates_unclean.html","id":"download-our-reference-data","dir":"Reference","previous_headings":"","what":"Download Our Reference Data","title":"Data Set with Unclean Data — example_isolates_unclean","text":"reference data sets AMR package - including information microorganisms, antimicrobials, clinical breakpoints - freely available download multiple formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. maximum compatibility, also provide machine-readable, tab-separated plain text files suitable use software, including laboratory information systems. Visit website direct download links, explore actual files GitHub repository.","code":""},{"path":"https://amr-for-r.org/reference/example_isolates_unclean.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with Unclean Data — example_isolates_unclean","text":"","code":"example_isolates_unclean #> # A tibble: 3,000 × 8 #>    patient_id hospital date       bacteria      AMX   AMC   CIP   GEN   #>    <chr>      <chr>    <date>     <chr>         <chr> <chr> <chr> <chr> #>  1 J3         A        2012-11-21 E. coli       R     I     S     S     #>  2 R7         A        2018-04-03 K. pneumoniae R     I     S     S     #>  3 P3         A        2014-09-19 E. coli       R     S     S     S     #>  4 P10        A        2015-12-10 E. coli       S     I     S     S     #>  5 B7         A        2015-03-02 E. coli       S     S     S     S     #>  6 W3         A        2018-03-31 S. aureus     R     S     R     S     #>  7 J8         A        2016-06-14 E. coli       R     S     S     S     #>  8 M3         A        2015-10-25 E. coli       R     S     S     S     #>  9 J3         A        2019-06-19 E. coli       S     S     S     S     #> 10 G6         A        2015-04-27 S. aureus     S     S     S     S     #> # ℹ 2,990 more rows"},{"path":"https://amr-for-r.org/reference/export_ncbi_biosample.html","id":null,"dir":"Reference","previous_headings":"","what":"Export Data Set as NCBI BioSample Antibiogram — export_ncbi_biosample","title":"Export Data Set as NCBI BioSample Antibiogram — export_ncbi_biosample","text":"Export Data Set NCBI BioSample Antibiogram","code":""},{"path":"https://amr-for-r.org/reference/export_ncbi_biosample.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Export Data Set as NCBI BioSample Antibiogram — export_ncbi_biosample","text":"","code":"export_ncbi_biosample(x, filename = paste0(\"biosample_\", format(Sys.time(),   \"%Y-%m-%d-%H%M%S\"), \".xlsx\"), type = \"pathogen MIC\",   columns = where(is.mic), save_as_xlsx = TRUE)"},{"path":"https://amr-for-r.org/reference/export_ncbi_biosample.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Export Data Set as NCBI BioSample Antibiogram — export_ncbi_biosample","text":"x data set. filename character string specifying file name. type character string specifying type data set, either \"pathogen MIC\" \"beta-lactamase MIC\", see https://www.ncbi.nlm.nih.gov/biosample/docs/.","code":""},{"path":"https://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/reference/first_isolate.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Determine First Isolates — first_isolate","text":"Methodology functions 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://amr-for-r.org/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://amr-for-r.org/reference/first_isolate.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Determine First Isolates — first_isolate","text":"logical vector","code":""},{"path":"https://amr-for-r.org/reference/first_isolate.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Determine First Isolates — first_isolate","text":"methodology implemented functions strictly based recommendations outlined CLSI Guideline M39 research overview Hindler et al. (2007, doi:10.1086/511864 ). 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://amr-for-r.org/reference/first_isolate.html","id":"different-methods","dir":"Reference","previous_headings":"","what":"Different methods","title":"Determine First Isolates — first_isolate","text":"According previously-mentioned sources, 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: Isolate-based Minimum variables required: Microorganism identifier method require selection, isolates included. , however, respect arguments set first_isolate() function. example, default setting include_unknown (FALSE) omit selection rows without microbial ID. Patient-based Minimum variables required: Microorganism identifier, Patient identifier method includes every genus-species combination per patient . method makes sure duplicate isolates selected patient. method preferred e.g. identify first MRSA finding patient determine incidence. Conversely, large longitudinal data set, mean isolates excluded found years initial isolate. Episode-based Minimum variables required: Microorganism identifier, Patient identifier, Date include every genus-species combination per patient episode , set episode_days sensible number days. Depending type analysis, e.g., 14, 30, 60 365. Short episodes common analysing specific hospital ward data ICU cases, 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. Phenotype-based Minimum variables required: Microorganism identifier, Patient identifier, Date, Antimicrobial test results 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://amr-for-r.org/reference/first_isolate.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Determine First Isolates — first_isolate","text":"","code":"# `example_isolates` is a data set available in the AMR package. # See ?example_isolates.  example_isolates[first_isolate(info = TRUE), ] #> ℹ Determining first isolates using an episode length of 365 days #> ℹ Using column 'date' as input for `col_date`. #> ℹ Using column 'patient' as input for `col_patient_id`. #> ℹ Basing inclusion on all antimicrobial results, using a points threshold #>   of 2 #> ℹ Excluding 16 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 1,387 'phenotype-based' first isolates (69.4% of total where a #>    microbial ID was available) #> # A tibble: 1,387 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI   R     NA    NA    NA  #>  2 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  3 2002-01-14 462729     78 M      Clinical B_STPHY_AURS   R     NA    S     R   #>  4 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  5 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR   R     NA    S     NA  #>  6 2002-01-17 495616     67 M      Clinical B_STPHY_EPDR   R     NA    S     NA  #>  7 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI   R     NA    NA    NA  #>  8 2002-01-21 462081     75 F      Clinical B_CTRBC_FRND   R     NA    NA    R   #>  9 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL   R     NA    NA    NA  #> 10 2002-02-03 481442     76 M      ICU      B_STPHY_CONS   R     NA    S     NA  #> # ℹ 1,377 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … # \\donttest{ # get all first Gram-negatives example_isolates[which(first_isolate(info = FALSE) & mo_is_gram_negative()), ] #> ℹ Using column 'mo' as input for `mo_is_gram_negative()` #> # A tibble: 441 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI   R     NA    NA    NA  #>  2 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI   R     NA    NA    NA  #>  3 2002-01-21 462081     75 F      Clinical B_CTRBC_FRND   R     NA    NA    R   #>  4 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL   R     NA    NA    NA  #>  5 2002-02-05 067927     45 F      ICU      B_SERRT_MRCS   R     NA    NA    R   #>  6 2002-02-27 066895     85 F      Clinical B_KLBSL_PNMN   R     NA    NA    R   #>  7 2002-03-08 4FC193     69 M      Clinical B_ESCHR_COLI   R     NA    NA    R   #>  8 2002-03-16 4FC193     69 M      Clinical B_PSDMN_AERG   R     NA    NA    R   #>  9 2002-04-01 496896     46 F      ICU      B_ESCHR_COLI   R     NA    NA    NA  #> 10 2002-04-23 EE2510     69 F      ICU      B_ESCHR_COLI   R     NA    NA    NA  #> # ℹ 431 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  if (require(\"dplyr\")) {   # filter on first isolates using dplyr:   example_isolates %>%     filter(first_isolate(info = TRUE)) } #> ℹ Determining first isolates using an episode length of 365 days #> ℹ Basing inclusion on all antimicrobial results, using a points threshold #>   of 2 #> ℹ Excluding 16 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 1,387 'phenotype-based' first isolates (69.4% of total where a #>    microbial ID was available) #> # A tibble: 1,387 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI   R     NA    NA    NA  #>  2 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  3 2002-01-14 462729     78 M      Clinical B_STPHY_AURS   R     NA    S     R   #>  4 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  5 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR   R     NA    S     NA  #>  6 2002-01-17 495616     67 M      Clinical B_STPHY_EPDR   R     NA    S     NA  #>  7 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI   R     NA    NA    NA  #>  8 2002-01-21 462081     75 F      Clinical B_CTRBC_FRND   R     NA    NA    R   #>  9 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL   R     NA    NA    NA  #> 10 2002-02-03 481442     76 M      ICU      B_STPHY_CONS   R     NA    S     NA  #> # ℹ 1,377 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … if (require(\"dplyr\")) {   # short-hand version:   example_isolates %>%     filter_first_isolate(info = FALSE) } #> # A tibble: 1,387 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI   R     NA    NA    NA  #>  2 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  3 2002-01-14 462729     78 M      Clinical B_STPHY_AURS   R     NA    S     R   #>  4 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  5 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR   R     NA    S     NA  #>  6 2002-01-17 495616     67 M      Clinical B_STPHY_EPDR   R     NA    S     NA  #>  7 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI   R     NA    NA    NA  #>  8 2002-01-21 462081     75 F      Clinical B_CTRBC_FRND   R     NA    NA    R   #>  9 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL   R     NA    NA    NA  #> 10 2002-02-03 481442     76 M      ICU      B_STPHY_CONS   R     NA    S     NA  #> # ℹ 1,377 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … if (require(\"dplyr\")) {   # flag the first isolates per group:   example_isolates %>%     group_by(ward) %>%     mutate(first = first_isolate(info = TRUE)) %>%     select(ward, date, patient, mo, first) } #> ℹ Determining first isolates using an episode length of 365 days #> ℹ Basing inclusion on all antimicrobial results, using a points threshold #>   of 2 #>  #> Group: ward = \"Clinical\" #> ℹ Excluding 9 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 865 'phenotype-based' first isolates (70.1% of total where a #>    microbial ID was available) #>  #> Group: ward = \"ICU\" #> ℹ Excluding 6 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 452 'phenotype-based' first isolates (70.0% of total where a #>    microbial ID was available) #>  #> Group: ward = \"Outpatient\" #> ℹ Excluding 1 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 99 'phenotype-based' first isolates (82.5% of total where a #>    microbial ID was available) #> # A tibble: 2,000 × 5 #> # Groups:   ward [3] #>    ward     date       patient mo           first #>    <chr>    <date>     <chr>   <mo>         <lgl> #>  1 Clinical 2002-01-02 A77334  B_ESCHR_COLI TRUE  #>  2 Clinical 2002-01-03 A77334  B_ESCHR_COLI FALSE #>  3 ICU      2002-01-07 067927  B_STPHY_EPDR TRUE  #>  4 ICU      2002-01-07 067927  B_STPHY_EPDR FALSE #>  5 ICU      2002-01-13 067927  B_STPHY_EPDR FALSE #>  6 ICU      2002-01-13 067927  B_STPHY_EPDR FALSE #>  7 Clinical 2002-01-14 462729  B_STPHY_AURS TRUE  #>  8 Clinical 2002-01-14 462729  B_STPHY_AURS FALSE #>  9 ICU      2002-01-16 067927  B_STPHY_EPDR TRUE  #> 10 ICU      2002-01-17 858515  B_STPHY_EPDR TRUE  #> # ℹ 1,990 more rows # }"},{"path":"https://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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.","code":""},{"path":[]},{"path":"https://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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] 43  9  7 14 28 40 49 29 19 27 10 44 18 22 42 12  8 36 13  3 46  5  4 35 38 #>  [26] 16 22 23 16 10 42 13  2 45 18 19 39 32 22 36 40 45 39 40 11 23 25 39 26 23 #>  [51] 25 12 17 23 30 30 34 16 21 37 40 26 11  7  4 16 43 22 47 37 39 31 25 41  1 #>  [76] 45 39 23 32 45 20 22 15 14 13 43  9 38 29  6 48 24 21 23 44 19 31  1  3 33 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  TRUE FALSE  TRUE FALSE FALSE FALSE FALSE  TRUE  TRUE FALSE FALSE #>  [37]  TRUE  TRUE FALSE FALSE FALSE FALSE FALSE FALSE  TRUE FALSE  TRUE FALSE #>  [49]  TRUE FALSE FALSE FALSE  TRUE FALSE  TRUE FALSE  TRUE FALSE  TRUE  TRUE #>  [61] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE  TRUE FALSE FALSE  TRUE #>  [73] FALSE  TRUE  TRUE FALSE FALSE FALSE FALSE FALSE  TRUE FALSE  TRUE FALSE #>  [85] FALSE FALSE FALSE FALSE FALSE  TRUE  TRUE  TRUE FALSE FALSE FALSE FALSE #>  [97] FALSE FALSE FALSE  TRUE  # 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 2002-11-04 304347     62 M      Clinical B_STRPT_PNMN   S     NA    NA    S   #> 2 2002-10-18 E55128     57 F      ICU      B_STPHY_AURS   R     NA    S     R   #> # ℹ 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 [96] #>    patient date       condition new_episode #>    <chr>   <date>     <chr>     <lgl>       #>  1 022060  2004-05-04 A         TRUE        #>  2 060287  2007-03-11 A         TRUE        #>  3 0E2483  2007-04-06 C         TRUE        #>  4 101305  2006-12-13 A         TRUE        #>  5 141061  2014-10-22 A         TRUE        #>  6 146F70  2009-08-14 A         TRUE        #>  7 15D386  2004-08-01 B         TRUE        #>  8 187841  2008-04-22 C         TRUE        #>  9 195736  2008-08-29 C         TRUE        #> 10 195736  2008-08-29 C         FALSE       #> # ℹ 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 [91] #>    ward     date       patient new_index new_logical #>    <chr>    <date>     <chr>       <int> <lgl>       #>  1 ICU      2004-05-04 022060          1 TRUE        #>  2 Clinical 2007-03-11 060287          1 TRUE        #>  3 Clinical 2007-04-06 0E2483          1 TRUE        #>  4 Clinical 2006-12-13 101305          1 TRUE        #>  5 Clinical 2014-10-22 141061          1 TRUE        #>  6 Clinical 2009-08-14 146F70          1 TRUE        #>  7 ICU      2004-08-01 15D386          1 TRUE        #>  8 Clinical 2008-04-22 187841          1 TRUE        #>  9 Clinical 2008-08-29 195736          1 TRUE        #> 10 Clinical 2008-08-29 195736          1 FALSE       #> # ℹ 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           58             14            38            44 #> 2 ICU                26              7            20            23 #> 3 Outpatient          7              4             6             7  # 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] FALSE  # 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 [96] #>    patient mo            ward     flag_episode #>    <chr>   <mo>          <chr>    <lgl>        #>  1 917895  B_STPHY_CPTS  ICU      TRUE         #>  2 022060  B_ENTRBC_CLOC ICU      TRUE         #>  3 C36883  B_ESCHR_COLI  Clinical TRUE         #>  4 5DF436  B_STPHY_AURS  ICU      TRUE         #>  5 971739  B_STPHY_CONS  Clinical TRUE         #>  6 488175  B_ESCHR_COLI  Clinical TRUE         #>  7 5DB1C8  B_STPHY_CPTS  Clinical TRUE         #>  8 BC9909  B_ENTRBC_CLOC Clinical TRUE         #>  9 5B78D5  B_STPHY_AURS  Clinical TRUE         #> 10 284FFF  B_STPHY_EPDR  Clinical TRUE         #> # ℹ 90 more rows # }"},{"path":"https://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/reference/ggplot_pca.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"","code":"# `example_isolates` is a data set available in the AMR package. # See ?example_isolates.  # \\donttest{ if (require(\"dplyr\")) {   # calculate the resistance per group first   resistance_data <- example_isolates %>%     group_by(       order = mo_order(mo), # group on anything, like order       genus = mo_genus(mo)     ) %>% #   and genus as we do here;     filter(n() >= 30) %>% # filter on only 30 results per group     summarise_if(is.sir, resistance) # then get resistance of all drugs    # now conduct PCA for certain antimicrobial drugs   pca_result <- resistance_data %>%     pca(AMC, CXM, CTX, CAZ, GEN, TOB, TMP, SXT)    summary(pca_result)    # old base R plotting method:   biplot(pca_result, main = \"Base R biplot\")    # new ggplot2 plotting method using this package:   if (require(\"ggplot2\")) {     ggplot_pca(pca_result) +       labs(title = \"ggplot2 biplot\")   }   if (require(\"ggplot2\")) {     # still extendible with any ggplot2 function     ggplot_pca(pca_result) +       scale_colour_viridis_d() +       labs(title = \"ggplot2 biplot\")   } } #> Warning: There were 73 warnings in `summarise()`. #> The first warning was: #> ℹ In argument: `PEN = (function (..., minimum = 30, as_percent = FALSE, #>   only_all_tested = FALSE) ...`. #> ℹ In group 5: `order = \"Lactobacillales\"` `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://amr-for-r.org/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://amr-for-r.org/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\", SDD = \"#8FD6C4\", SI = \"#3CAEA3\", I = \"#F6D55C\", IR = \"#ED553B\",   R = \"#ED553B\"), datalabels = TRUE, datalabels.size = 2.5,   datalabels.colour = \"grey15\", title = NULL, subtitle = NULL,   caption = NULL, x.title = \"Antimicrobial\", y.title = \"Proportion\", ...)  geom_sir(position = NULL, x = c(\"antibiotic\", \"interpretation\"),   fill = \"interpretation\", translate_ab = \"name\", minimum = 30,   language = get_AMR_locale(), combine_SI = TRUE, ...)"},{"path":"https://amr-for-r.org/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 antimicrobials data set translate antibiotic abbreviations , using ab_property(). combine_SI logical indicate whether values S, SDD, must merged one, output consists S+SDD+vs. R (susceptible vs. resistant) - default TRUE. minimum minimum allowed number available (tested) isolates. isolate count lower minimum return NA warning. default number 30 isolates advised Clinical Laboratory Standards Institute (CLSI) best practice, see Source. language Language returned text - default current system language (see get_AMR_locale()) can also set package option AMR_locale. Use language = NULL language = \"\" prevent translation. nrow (using facet) number rows. colours named vactor colour used filling. default colours colour-blind friendly. datalabels Show datalabels using labels_sir_count(). datalabels.size Size datalabels. datalabels.colour Colour datalabels. title Text show title plot. subtitle Text show subtitle plot. caption Text show caption plot. x.title Text show x axis description. y.title Text show y axis description. ... arguments passed geom_sir() , case scale_sir_colours(), named values set colours. default colours colour-blind friendly, maintaining convention e.g. 'susceptible' green 'resistant' red. See Examples.","code":""},{"path":"https://amr-for-r.org/reference/ggplot_sir.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"AMR Plots with ggplot2 — ggplot_sir","text":"default, names antimicrobials shown plots using ab_name(). can set translate_ab argument. See count_df(). geom_sir() take variable data sir class (created .sir()) using sir_df() plot bars percentage S, , R. default behaviour bars stacked different antimicrobials x axis. Additional functions include: facet_sir() creates 2d plots (default based S//R) using ggplot2::facet_wrap(). scale_y_percent() transforms y axis 0 100% range using ggplot2::scale_y_continuous(). scale_sir_colours() sets colours bars (green S, yellow , red R). multilingual support. default colours colour-blind friendly, maintaining convention e.g. 'susceptible' green 'resistant' red. theme_sir() ggplot2 theme 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://amr-for-r.org/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(aesthetics = \"fill\") +     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     ) } #> Warning: Ignoring unknown parameters: `size`  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(       aesthetics = \"fill\",       Value4 = \"S\", Value5 = \"I\", Value6 = \"R\"     ) }  if (require(\"ggplot2\") && require(\"dplyr\")) {   # resistance of ciprofloxacine per age group   example_isolates %>%     mutate(first_isolate = first_isolate()) %>%     filter(       first_isolate == TRUE,       mo == as.mo(\"Escherichia coli\")     ) %>%     # age_groups() is also a function in this AMR package:     group_by(age_group = age_groups(age)) %>%     select(age_group, CIP) %>%     ggplot_sir(x = \"age_group\") } #> Warning: Removed 6 rows containing missing values or values outside the scale range #> (`geom_col()`). #> Warning: Removed 6 rows containing missing values or values outside the scale range #> (`geom_text()`).  if (require(\"ggplot2\") && require(\"dplyr\")) {   # a shorter version which also adjusts data label colours:   example_isolates %>%     select(AMX, NIT, FOS, TMP, CIP) %>%     ggplot_sir(colours = FALSE) }  if (require(\"ggplot2\") && require(\"dplyr\")) {   # it also supports groups (don't forget to use the group var on `x` or `facet`):   example_isolates %>%     filter(mo_is_gram_negative(), ward != \"Outpatient\") %>%     # select only UTI-specific drugs     select(ward, AMX, NIT, FOS, TMP, CIP) %>%     group_by(ward) %>%     ggplot_sir(       x = \"ward\",       facet = \"antibiotic\",       nrow = 1,       title = \"AMR of Anti-UTI Drugs Per Ward\",       x.title = \"Ward\",       datalabels = FALSE     ) } #> ℹ Using column 'mo' as input for `mo_is_gram_negative()`  # }"},{"path":"https://amr-for-r.org/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 antimicrobials data set. Also supports WHONET abbreviations.","code":""},{"path":"https://amr-for-r.org/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://amr-for-r.org/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 antimicrobial columns must included transformed class sir beforehand. Defaults FALSE columns x class sir.","code":""},{"path":"https://amr-for-r.org/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://amr-for-r.org/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 antimicrobials data set column containing name code antibiotic.","code":""},{"path":"https://amr-for-r.org/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\"  # 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, \"augmentin\") #> [1] \"AMC_ED20\""},{"path":"https://amr-for-r.org/reference/intrinsic_resistant.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set Denoting Bacterial Intrinsic Resistance — intrinsic_resistant","title":"Data Set Denoting Bacterial Intrinsic Resistance — intrinsic_resistant","text":"Data set containing 'EUCAST Expected Resistant Phenotypes' bug-drug combinations microorganisms antimicrobials data sets.","code":""},{"path":"https://amr-for-r.org/reference/intrinsic_resistant.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set Denoting Bacterial Intrinsic Resistance — intrinsic_resistant","text":"","code":"intrinsic_resistant"},{"path":"https://amr-for-r.org/reference/intrinsic_resistant.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set Denoting Bacterial Intrinsic Resistance — intrinsic_resistant","text":"tibble 271 905 observations 2 variables: mo Microorganism ID occurs microorganisms$mo. Names can retrieved using mo_name(). ab Antimicrobial ID occurs antimicrobials$ab. Names can retrieved using ab_name().","code":""},{"path":"https://amr-for-r.org/reference/intrinsic_resistant.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set Denoting Bacterial Intrinsic Resistance — intrinsic_resistant","text":"data set currently based 'EUCAST Expected Resistant Phenotypes' v1.2 (2023). data set internally used : not_intrinsic_resistant() (antimicrobial selector) mo_is_intrinsic_resistant()","code":""},{"path":"https://amr-for-r.org/reference/intrinsic_resistant.html","id":"download-our-reference-data","dir":"Reference","previous_headings":"","what":"Download Our Reference Data","title":"Data Set Denoting Bacterial Intrinsic Resistance — intrinsic_resistant","text":"reference data sets AMR package - including information microorganisms, antimicrobials, clinical breakpoints - freely available download multiple formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. maximum compatibility, also provide machine-readable, tab-separated plain text files suitable use software, including laboratory information systems. Visit website direct download links, explore actual files GitHub repository.","code":""},{"path":"https://amr-for-r.org/reference/intrinsic_resistant.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set Denoting Bacterial Intrinsic Resistance — intrinsic_resistant","text":"","code":"intrinsic_resistant #> # A tibble: 271,905 × 2 #>    mo          ab   #>    <mo>        <ab> #>  1 B_GRAMP     ATM  #>  2 B_GRAMP     COL  #>  3 B_GRAMP     NAL  #>  4 B_GRAMP     PLB  #>  5 B_GRAMP     TEM  #>  6 B_ANAER-POS ATM  #>  7 B_ANAER-POS COL  #>  8 B_ANAER-POS NAL  #>  9 B_ANAER-POS PLB  #> 10 B_ANAER-POS TEM  #> # ℹ 271,895 more rows"},{"path":"https://amr-for-r.org/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://amr-for-r.org/reference/italicise_taxonomy.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Italicise Taxonomic Families, Genera, Species, Subspecies — italicise_taxonomy","text":"","code":"italicise_taxonomy(string, type = c(\"markdown\", \"ansi\", \"html\"))  italicize_taxonomy(string, type = c(\"markdown\", \"ansi\", \"html\"))"},{"path":"https://amr-for-r.org/reference/italicise_taxonomy.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Italicise Taxonomic Families, Genera, Species, Subspecies — italicise_taxonomy","text":"string character (vector). type Type conversion taxonomic names, either \"markdown\", \"html\" \"ansi\", see Details.","code":""},{"path":"https://amr-for-r.org/reference/italicise_taxonomy.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Italicise Taxonomic Families, Genera, Species, Subspecies — italicise_taxonomy","text":"function finds taxonomic names makes italic based microorganisms data set. taxonomic names can italicised using markdown (default) adding * taxonomic names, <> <\/> using html. using 'ansi', ANSI colours added using \\033[3m \\033[23m taxonomic names. multiple ANSI colours available, conversion occur. function also supports abbreviation genus followed species, \"E. coli\" \"K. pneumoniae ozaenae\".","code":""},{"path":"https://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/reference/join.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Join microorganisms to a Data Set — join","text":"","code":"left_join_microorganisms(as.mo(\"K. pneumoniae\")) #> # A tibble: 1 × 26 #>   mo           fullname   status kingdom phylum class order family genus species #>   <mo>         <chr>      <chr>  <chr>   <chr>  <chr> <chr> <chr>  <chr> <chr>   #> 1 B_KLBSL_PNMN Klebsiell… accep… Bacter… Pseud… Gamm… Ente… Enter… Kleb… pneumo… #> # ℹ 16 more variables: subspecies <chr>, rank <chr>, ref <chr>, #> #   oxygen_tolerance <chr>, source <chr>, lpsn <chr>, lpsn_parent <chr>, #> #   lpsn_renamed_to <chr>, mycobank <chr>, mycobank_parent <chr>, #> #   mycobank_renamed_to <chr>, gbif <chr>, gbif_parent <chr>, #> #   gbif_renamed_to <chr>, prevalence <dbl>, snomed <list> left_join_microorganisms(\"B_KLBSL_PNMN\") #> # A tibble: 1 × 26 #>   mo           fullname   status kingdom phylum class order family genus species #>   <mo>         <chr>      <chr>  <chr>   <chr>  <chr> <chr> <chr>  <chr> <chr>   #> 1 B_KLBSL_PNMN Klebsiell… accep… Bacter… Pseud… Gamm… Ente… Enter… Kleb… pneumo… #> # ℹ 16 more variables: subspecies <chr>, rank <chr>, ref <chr>, #> #   oxygen_tolerance <chr>, source <chr>, lpsn <chr>, lpsn_parent <chr>, #> #   lpsn_renamed_to <chr>, mycobank <chr>, mycobank_parent <chr>, #> #   mycobank_renamed_to <chr>, gbif <chr>, gbif_parent <chr>, #> #   gbif_renamed_to <chr>, prevalence <dbl>, snomed <list>  df <- data.frame(   date = seq(     from = as.Date(\"2018-01-01\"),     to = as.Date(\"2018-01-07\"),     by = 1   ),   bacteria = as.mo(c(     \"S. aureus\", \"MRSA\", \"MSSA\", \"STAAUR\",     \"E. coli\", \"E. coli\", \"E. coli\"   )),   stringsAsFactors = FALSE ) colnames(df) #> [1] \"date\"     \"bacteria\"  df_joined <- left_join_microorganisms(df, \"bacteria\") colnames(df_joined) #>  [1] \"date\"                \"bacteria\"            \"fullname\"            #>  [4] \"status\"              \"kingdom\"             \"phylum\"              #>  [7] \"class\"               \"order\"               \"family\"              #> [10] \"genus\"               \"species\"             \"subspecies\"          #> [13] \"rank\"                \"ref\"                 \"oxygen_tolerance\"    #> [16] \"source\"              \"lpsn\"                \"lpsn_parent\"         #> [19] \"lpsn_renamed_to\"     \"mycobank\"            \"mycobank_parent\"     #> [22] \"mycobank_renamed_to\" \"gbif\"                \"gbif_parent\"         #> [25] \"gbif_renamed_to\"     \"prevalence\"          \"snomed\"               # \\donttest{ if (require(\"dplyr\")) {   example_isolates %>%     left_join_microorganisms() %>%     colnames() } #> Joining, by = \"mo\" #>  [1] \"date\"                \"patient\"             \"age\"                 #>  [4] \"gender\"              \"ward\"                \"mo\"                  #>  [7] \"PEN\"                 \"OXA\"                 \"FLC\"                 #> [10] \"AMX\"                 \"AMC\"                 \"AMP\"                 #> [13] \"TZP\"                 \"CZO\"                 \"FEP\"                 #> [16] \"CXM\"                 \"FOX\"                 \"CTX\"                 #> [19] \"CAZ\"                 \"CRO\"                 \"GEN\"                 #> [22] \"TOB\"                 \"AMK\"                 \"KAN\"                 #> [25] \"TMP\"                 \"SXT\"                 \"NIT\"                 #> [28] \"FOS\"                 \"LNZ\"                 \"CIP\"                 #> [31] \"MFX\"                 \"VAN\"                 \"TEC\"                 #> [34] \"TCY\"                 \"TGC\"                 \"DOX\"                 #> [37] \"ERY\"                 \"CLI\"                 \"AZM\"                 #> [40] \"IPM\"                 \"MEM\"                 \"MTR\"                 #> [43] \"CHL\"                 \"COL\"                 \"MUP\"                 #> [46] \"RIF\"                 \"fullname\"            \"status\"              #> [49] \"kingdom\"             \"phylum\"              \"class\"               #> [52] \"order\"               \"family\"              \"genus\"               #> [55] \"species\"             \"subspecies\"          \"rank\"                #> [58] \"ref\"                 \"oxygen_tolerance\"    \"source\"              #> [61] \"lpsn\"                \"lpsn_parent\"         \"lpsn_renamed_to\"     #> [64] \"mycobank\"            \"mycobank_parent\"     \"mycobank_renamed_to\" #> [67] \"gbif\"                \"gbif_parent\"         \"gbif_renamed_to\"     #> [70] \"prevalence\"          \"snomed\"              # }"},{"path":"https://amr-for-r.org/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://amr-for-r.org/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 = any(is.sir(x)), ...)  all_antimicrobials(x = NULL, only_sir_columns = any(is.sir(x)), ...)  antimicrobials_equal(y, z, type = c(\"points\", \"keyantimicrobials\"),   ignore_I = TRUE, points_threshold = 2, ...)"},{"path":"https://amr-for-r.org/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 antimicrobials 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 antimicrobial columns must included transformed class sir beforehand. Defaults FALSE columns x class sir. ... 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://amr-for-r.org/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://amr-for-r.org/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 antimicrobials to a new variable   my_patients <- example_isolates %>%     mutate(keyab = key_antimicrobials(antifungal = NULL)) %>% # no need to define `x`     mutate(       # now calculate first isolates       first_regular = first_isolate(col_keyantimicrobials = FALSE),       # and first WEIGHTED isolates       first_weighted = first_isolate(col_keyantimicrobials = \"keyab\")     )    # Check the difference in this data set, 'weighted' results in more isolates:   sum(my_patients$first_regular, na.rm = TRUE)   sum(my_patients$first_weighted, na.rm = TRUE) } #> [1] 1383 # }"},{"path":"https://amr-for-r.org/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://amr-for-r.org/reference/kurtosis.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Kurtosis of the Sample — kurtosis","text":"","code":"kurtosis(x, na.rm = FALSE, excess = FALSE)  # Default S3 method kurtosis(x, na.rm = FALSE, excess = FALSE)  # S3 method for class 'matrix' kurtosis(x, na.rm = FALSE, excess = FALSE)  # S3 method for class 'data.frame' kurtosis(x, na.rm = FALSE, excess = FALSE)"},{"path":"https://amr-for-r.org/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://amr-for-r.org/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.069947 kurtosis(rnorm(10000), excess = TRUE) #> [1] -0.02599697"},{"path":"https://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/reference/like.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Vectorised Pattern Matching with Keyboard Shortcut — like","text":"","code":"# data.table has a more limited version of %like%, so unload it: try(detach(\"package:data.table\", unload = TRUE), silent = TRUE) #> Warning: ‘data.table’ namespace cannot be unloaded: #>   namespace ‘data.table’ is imported by ‘prodlim’ so cannot be unloaded  a <- \"This is a test\" b <- \"TEST\" a %like% b #> [1] TRUE b %like% a #> [1] FALSE  # also supports multiple patterns a <- c(\"Test case\", \"Something different\", \"Yet another thing\") b <- c(\"case\", \"diff\", \"yet\") a %like% b #> [1] TRUE TRUE TRUE a %unlike% b #> [1] FALSE FALSE FALSE  a[1] %like% b #> [1]  TRUE FALSE FALSE a %like% b[1] #> [1]  TRUE FALSE FALSE  # \\donttest{ # get isolates whose name start with 'Entero' (case-insensitive) example_isolates[which(mo_name() %like% \"^entero\"), ] #> ℹ Using column 'mo' as input for `mo_name()` #> # A tibble: 106 × 46 #>    date       patient   age gender ward    mo            PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>   <mo>          <sir> <sir> <sir> <sir> #>  1 2002-02-21 4FC193     69 M      Clinic… B_ENTRC_FACM    NA    NA    NA    NA  #>  2 2002-04-08 130252     78 M      ICU     B_ENTRC_FCLS    NA    NA    NA    NA  #>  3 2002-06-23 798871     82 M      Clinic… B_ENTRC_FCLS    NA    NA    NA    NA  #>  4 2002-06-23 798871     82 M      Clinic… B_ENTRC_FCLS    NA    NA    NA    NA  #>  5 2003-04-20 6BC362     62 M      ICU     B_ENTRC         NA    NA    NA    NA  #>  6 2003-04-21 6BC362     62 M      ICU     B_ENTRC         NA    NA    NA    NA  #>  7 2003-08-13 F35553     52 M      ICU     B_ENTRBC_CLOC   R     NA    NA    R   #>  8 2003-08-13 F35553     52 M      ICU     B_ENTRC_FCLS    NA    NA    NA    NA  #>  9 2003-09-05 F35553     52 M      ICU     B_ENTRC         NA    NA    NA    NA  #> 10 2003-09-05 F35553     52 M      ICU     B_ENTRBC_CLOC   R     NA    NA    R   #> # ℹ 96 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  if (require(\"dplyr\")) {   example_isolates %>%     filter(mo_name() %like% \"^ent\") } #> ℹ Using column 'mo' as input for `mo_name()` #> # A tibble: 106 × 46 #>    date       patient   age gender ward    mo            PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>   <mo>          <sir> <sir> <sir> <sir> #>  1 2002-02-21 4FC193     69 M      Clinic… B_ENTRC_FACM    NA    NA    NA    NA  #>  2 2002-04-08 130252     78 M      ICU     B_ENTRC_FCLS    NA    NA    NA    NA  #>  3 2002-06-23 798871     82 M      Clinic… B_ENTRC_FCLS    NA    NA    NA    NA  #>  4 2002-06-23 798871     82 M      Clinic… B_ENTRC_FCLS    NA    NA    NA    NA  #>  5 2003-04-20 6BC362     62 M      ICU     B_ENTRC         NA    NA    NA    NA  #>  6 2003-04-21 6BC362     62 M      ICU     B_ENTRC         NA    NA    NA    NA  #>  7 2003-08-13 F35553     52 M      ICU     B_ENTRBC_CLOC   R     NA    NA    R   #>  8 2003-08-13 F35553     52 M      ICU     B_ENTRC_FCLS    NA    NA    NA    NA  #>  9 2003-09-05 F35553     52 M      ICU     B_ENTRC         NA    NA    NA    NA  #> 10 2003-09-05 F35553     52 M      ICU     B_ENTRBC_CLOC   R     NA    NA    R   #> # ℹ 96 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … # }"},{"path":"https://amr-for-r.org/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://amr-for-r.org/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 = \"CMI 2012\", col_mo = NULL, esbl = NA,   carbapenemase = NA, mecA = NA, mecC = NA, vanA = NA, vanB = NA,   info = interactive(), pct_required_classes = 0.5, combine_SI = TRUE,   verbose = FALSE, only_sir_columns = any(is.sir(x)), ...)  brmo(x = NULL, only_sir_columns = any(is.sir(x)), ...)  mrgn(x = NULL, only_sir_columns = any(is.sir(x)), verbose = FALSE, ...)  mdr_tb(x = NULL, only_sir_columns = any(is.sir(x)), verbose = FALSE, ...)  mdr_cmi2012(x = NULL, only_sir_columns = any(is.sir(x)), verbose = FALSE,   ...)  eucast_exceptional_phenotypes(x = NULL, only_sir_columns = any(is.sir(x)),   verbose = FALSE, ...)"},{"path":"https://amr-for-r.org/reference/mdro.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"x data.frame antimicrobials columns, like AMX amox. Can left blank automatic determination. guideline specific guideline follow, see sections Supported international / national guidelines Using Custom Guidelines . left empty, publication Magiorakos et al. (see ) followed. col_mo Column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). esbl logical values, column name containing logical values, indicating presence ESBL gene (production proteins). carbapenemase logical values, column name containing logical values, indicating presence carbapenemase gene (production proteins). mecA logical values, column name containing logical values, indicating presence mecA gene (production proteins). mecC logical values, column name containing logical values, indicating presence mecC gene (production proteins). vanA logical values, column name containing logical values, indicating presence vanA gene (production proteins). vanB logical values, column name containing logical values, indicating presence vanB gene (production proteins). info logical indicate whether progress printed console - default print interactive sessions. pct_required_classes Minimal required percentage antimicrobial classes must available per isolate, rounded . example, default guideline, 17 antimicrobial classes must available S. aureus. Setting pct_required_classes argument 0.5 (default) means every S. aureus isolate least 8 different classes must available. lower number available classes return NA isolate. combine_SI logical indicate whether values S must merged one, resistance considered isolates R, . default behaviour mdro() function, follows redefinition EUCAST interpretation (increased exposure) 2019, see section 'Interpretation S, R' . using combine_SI = FALSE, resistance considered isolates R . verbose logical turn Verbose mode (default ). Verbose mode, function returns data set MDRO results logbook form extensive info isolates MDRO-positive, . only_sir_columns logical indicate whether antimicrobial columns must included transformed class sir beforehand. Defaults FALSE columns x class sir. ... Column names antimicrobials. automatically detect antimicrobial column names, provide named arguments; guess_ab_col() used detection. manually specify column, provide name (case-insensitive) argument, e.g. AMX = \"amoxicillin\". skip specific antimicrobial, set NULL, e.g. TIC = NULL exclude ticarcillin. manually defined column exist data, skipped warning.","code":""},{"path":"https://amr-for-r.org/reference/mdro.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"verbose set TRUE: data.frame containing columns row_number, microorganism, MDRO, reason, all_nonsusceptible_columns, guideline 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. genotypic) tests","code":""},{"path":"https://amr-for-r.org/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://amr-for-r.org/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":"Please suggest implement guidelines letting us know. Currently supported guidelines (case-insensitive): guideline = \"CMI 2012\" (default) Magiorakos AP, Srinivasan et al. \"Multidrug-resistant, extensively drug-resistant pandrug-resistant bacteria: international expert proposal interim standard definitions acquired resistance.\" Clinical Microbiology Infection (2012) (doi:10.1111/j.1469-0691.2011.03570.x ) guideline = \"EUCAST 3.3\" (simply guideline = \"EUCAST\") European international guideline - EUCAST Expert Rules Version 3.3 \"Intrinsic Resistance Unusual Phenotypes\" (link) Also: guideline = \"EUCAST 3.2\" former European international guideline - EUCAST Expert Rules Version 3.2 \"Intrinsic Resistance Unusual Phenotypes\" (link) guideline = \"EUCAST 3.1\" former 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 2024\" (simply guideline = \"BRMO\") Dutch national guideline - Samenwerkingverband Richtlijnen Infectiepreventie (SRI) (2024) \"Bijzonder Resistente Micro-Organismen (BRMO)\" (link) Also: guideline = \"BRMO 2017\" former Dutch national guideline - Werkgroep Infectiepreventie (WIP), RIVM, last revision 2017: \"Bijzonder Resistente Micro-Organismen (BRMO)\"","code":""},{"path":"https://amr-for-r.org/reference/mdro.html","id":"using-custom-guidelines","dir":"Reference","previous_headings":"","what":"Using Custom Guidelines","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"Using custom MDRO guideline importance custom rules determine MDROs hospital, e.g., rules dependent ward, state contact isolation variables data. Custom guidelines can set custom_mdro_guideline() function.","code":""},{"path":"https://amr-for-r.org/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 (https://www.eucast.org/newsiandr). AMR package follows insight; use susceptibility() (equal proportion_SI()) determine antimicrobial susceptibility count_susceptible() (equal count_SI()) count susceptible isolates.","code":""},{"path":[]},{"path":"https://amr-for-r.org/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) #> Warning: in `mdro()`: NA introduced for isolates where the available percentage of #> antimicrobial classes was below 50% (set with `pct_required_classes`) str(out) #>  Ord.factor w/ 4 levels \"Negative\"<\"Multi-drug-resistant (MDR)\"<..: NA NA 1 1 1 1 NA NA 1 1 ... table(out) #> out #>                         Negative       Multi-drug-resistant (MDR)  #>                             1617                              128  #> Extensively drug-resistant (XDR)          Pandrug-resistant (PDR)  #>                                0                                0   out <- mdro(example_isolates, guideline = \"EUCAST 3.3\") table(out) #> out #>              Negative Positive, unconfirmed              Positive  #>                  1994                     0                     6   # \\donttest{ if (require(\"dplyr\")) {   # no need to define `x` when used inside dplyr verbs:   example_isolates %>%     mutate(MDRO = mdro()) %>%     count(MDRO) } #> 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`) #> # A tibble: 3 × 2 #>   MDRO                           n #>   <ord>                      <int> #> 1 Negative                    1617 #> 2 Multi-drug-resistant (MDR)   128 #> 3 NA                           255 # }"},{"path":"https://amr-for-r.org/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://amr-for-r.org/reference/mean_amr_distance.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Calculate the Mean AMR Distance — mean_amr_distance","text":"","code":"mean_amr_distance(x, ...)  # S3 method for class 'sir' mean_amr_distance(x, ..., combine_SI = TRUE)  # S3 method for class 'data.frame' mean_amr_distance(x, ..., combine_SI = TRUE)  amr_distance_from_row(amr_distance, row)"},{"path":"https://amr-for-r.org/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 (.mic), starts_with(...), column1:column4, can thus also antimicrobial selectors. combine_SI logical indicate whether values S, SDD, must merged one, input consists S+vs. R (susceptible vs. resistant) - default TRUE. amr_distance outcome mean_amr_distance(). row index, row number.","code":""},{"path":"https://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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 R I R I I S R S I mean_amr_distance(sir) #>  [1]  1.1618950  1.1618950 -0.7745967  1.1618950 -0.7745967 -0.7745967 #>  [7] -0.7745967  1.1618950 -0.7745967 -0.7745967  mic <- random_mic(10) mic #> Class 'mic' #>  [1] 0.032 0.5   1     >=8   4     0.016 >=8   1     0.004 0.008 mean_amr_distance(mic) #>  [1] -0.7311752  0.2104422  0.4478776  1.1601837  0.9227483 -0.9686106 #>  [7]  1.1601837  0.4478776 -1.4434813 -1.2060459 # equal to the Z-score of their log2: (log2(mic) - mean(log2(mic))) / sd(log2(mic)) #>  [1] -0.7311752  0.2104422  0.4478776  1.1601837  0.9227483 -0.9686106 #>  [7]  1.1601837  0.4478776 -1.4434813 -1.2060459  disk <- random_disk(10) disk #> Class 'disk' #>  [1] 50 49 38 33 31 17 42 43 46 37 mean_amr_distance(disk) #>  [1]  1.15131286  1.05032051 -0.06059541 -0.56555720 -0.76754191 -2.18143490 #>  [7]  0.34337401  0.44436637  0.74734344 -0.16158777  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    I   27  >=2    8 #> 2   B    S   28    1    8 #> 3   C    R   33    1    8 #> 4   D    R   32    1   16 #> 5   E    I   25  0.5   16 #> 6   F    I   19  0.5    8 #> 7   G    S   23  0.5   16 #> 8   H    R   27  0.5    8 #> 9   I    S   29    1    8 #> 10  J    R   32  0.5   16 mean_amr_distance(y) #> ℹ Calculating mean AMR distance based on columns \"amox\", \"cipr\", \"gent\", #>   and \"tobr\" #>  [1]  0.08471751 -0.21572693  0.55391610  0.98093500 -0.26046456 -1.08721162 #>  [7] -0.37467261 -0.14625651 -0.15862291  0.62338653 y$amr_distance <- mean_amr_distance(y, is.mic(y)) #> ℹ Calculating mean AMR distance based on columns \"gent\" and \"tobr\" y[order(y$amr_distance), ] #>    id amox cipr gent tobr amr_distance #> 6   F    I   19  0.5    8   -0.8163565 #> 8   H    R   27  0.5    8   -0.8163565 #> 2   B    S   28    1    8   -0.1012596 #> 3   C    R   33    1    8   -0.1012596 #> 9   I    S   29    1    8   -0.1012596 #> 5   E    I   25  0.5   16    0.1518893 #> 7   G    S   23  0.5   16    0.1518893 #> 10  J    R   32  0.5   16    0.1518893 #> 1   A    I   27  >=2    8    0.6138374 #> 4   D    R   32    1   16    0.8669863  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   33    1    8   0.55391610 0.00000000 #> 2   J    R   32  0.5   16   0.62338653 0.06947042 #> 3   D    R   32    1   16   0.98093500 0.42701889 #> 4   A    I   27  >=2    8   0.08471751 0.46919859 #> 5   H    R   27  0.5    8  -0.14625651 0.70017262 #> 6   I    S   29    1    8  -0.15862291 0.71253901 #> 7   B    S   28    1    8  -0.21572693 0.76964304 #> 8   E    I   25  0.5   16  -0.26046456 0.81438066 #> 9   G    S   23  0.5   16  -0.37467261 0.92858871 #> 10  F    I   19  0.5    8  -1.08721162 1.64112773 if (require(\"dplyr\")) {   # support for groups   example_isolates %>%     filter(mo_genus() == \"Enterococcus\" & mo_species() != \"\") %>%     select(mo, TCY, carbapenems()) %>%     group_by(mo) %>%     mutate(dist = mean_amr_distance(.)) %>%     arrange(mo, dist) } #> ℹ Using column 'mo' as input for `mo_genus()` #> ℹ Using column 'mo' as input for `mo_species()` #> ℹ For `carbapenems()` using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ Calculating mean AMR distance based on columns \"TCY\", \"IPM\", and \"MEM\" #> # A tibble: 63 × 5 #> # Groups:   mo [4] #>    mo           TCY   IPM   MEM     dist #>    <mo>         <sir> <sir> <sir>  <dbl> #>  1 B_ENTRC_AVIM   S     S     NA   0     #>  2 B_ENTRC_AVIM   S     S     NA   0     #>  3 B_ENTRC_CSSL   NA    S     NA  NA     #>  4 B_ENTRC_FACM   S     S     NA  -2.66  #>  5 B_ENTRC_FACM   S     R     R   -0.423 #>  6 B_ENTRC_FACM   S     R     R   -0.423 #>  7 B_ENTRC_FACM   NA    R     R    0.224 #>  8 B_ENTRC_FACM   NA    R     R    0.224 #>  9 B_ENTRC_FACM   NA    R     R    0.224 #> 10 B_ENTRC_FACM   NA    R     R    0.224 #> # ℹ 53 more rows"},{"path":"https://amr-for-r.org/reference/microorganisms.codes.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with 6 036 Common Microorganism Codes — microorganisms.codes","title":"Data Set with 6 036 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://amr-for-r.org/reference/microorganisms.codes.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with 6 036 Common Microorganism Codes — microorganisms.codes","text":"","code":"microorganisms.codes"},{"path":"https://amr-for-r.org/reference/microorganisms.codes.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with 6 036 Common Microorganism Codes — microorganisms.codes","text":"tibble 6 036 observations 2 variables: code Commonly used code microorganism. unique identifier. mo ID microorganism microorganisms data set","code":""},{"path":"https://amr-for-r.org/reference/microorganisms.codes.html","id":"download-our-reference-data","dir":"Reference","previous_headings":"","what":"Download Our Reference Data","title":"Data Set with 6 036 Common Microorganism Codes — microorganisms.codes","text":"reference data sets AMR package - including information microorganisms, antimicrobials, clinical breakpoints - freely available download multiple formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. maximum compatibility, also provide machine-readable, tab-separated plain text files suitable use software, including laboratory information systems. Visit website direct download links, explore actual files GitHub repository.","code":""},{"path":[]},{"path":"https://amr-for-r.org/reference/microorganisms.codes.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with 6 036 Common Microorganism Codes — microorganisms.codes","text":"","code":"microorganisms.codes #> # A tibble: 6,036 × 2 #>    code  mo                #>    <chr> <mo>              #>  1 1011  B_GRAMP           #>  2 1012  B_GRAMP           #>  3 1013  B_GRAMN           #>  4 1014  B_GRAMN           #>  5 1015  F_YEAST           #>  6 103   B_ESCHR_COLI      #>  7 104   B_SLMNL_ENTR_ENTR #>  8 1100  B_STRPT           #>  9 1101  B_STRPT_VIRI      #> 10 1102  B_STRPT_HAEM      #> # ℹ 6,026 more rows  # 'ECO' or 'eco' is the WHONET code for E. coli: microorganisms.codes[microorganisms.codes$code == \"ECO\", ] #> # A tibble: 1 × 2 #>   code  mo           #>   <chr> <mo>         #> 1 ECO   B_ESCHR_COLI  # and therefore, 'eco' will be understood as E. coli in this package: mo_info(\"eco\") #> $mo #> [1] \"B_ESCHR_COLI\" #>  #> $rank #> [1] \"species\" #>  #> $kingdom #> [1] \"Bacteria\" #>  #> $phylum #> [1] \"Pseudomonadota\" #>  #> $class #> [1] \"Gammaproteobacteria\" #>  #> $order #> [1] \"Enterobacterales\" #>  #> $family #> [1] \"Enterobacteriaceae\" #>  #> $genus #> [1] \"Escherichia\" #>  #> $species #> [1] \"coli\" #>  #> $subspecies #> [1] \"\" #>  #> $status #> [1] \"accepted\" #>  #> $synonyms #> NULL #>  #> $gramstain #> [1] \"Gram-negative\" #>  #> $oxygen_tolerance #> [1] \"facultative anaerobe\" #>  #> $url #> [1] \"https://lpsn.dsmz.de/species/escherichia-coli\" #>  #> $ref #> [1] \"Castellani et al., 1919\" #>  #> $snomed #>  [1] \"1095001000112106\" \"715307006\"        \"737528008\"        \"416989002\"        #>  [5] \"116397003\"        \"414097009\"        \"414098004\"        \"414099007\"        #>  [9] \"414100004\"        \"116395006\"        \"735270003\"        \"116396007\"        #> [13] \"83285000\"         \"116394005\"        \"112283007\"        \"710886005\"        #> [17] \"710887001\"        \"710888006\"        \"710889003\"        \"414132004\"        #> [21] \"721892009\"        \"416812001\"        \"416740004\"        \"417216001\"        #> [25] \"457541006\"        \"710253004\"        \"416530004\"        \"417189006\"        #> [29] \"409800005\"        \"713925008\"        \"444771000124108\"  \"838549008\"        #>  #> $lpsn #> [1] \"776057\" #>  #> $mycobank #> [1] NA #>  #> $gbif #> [1] \"11286021\" #>  #> $group_members #> character(0) #>   # works for all AMR functions: mo_is_intrinsic_resistant(\"eco\", ab = \"vancomycin\") #> [1] TRUE"},{"path":"https://amr-for-r.org/reference/microorganisms.groups.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with 534 Microorganisms In Species Groups — microorganisms.groups","title":"Data Set with 534 Microorganisms In Species Groups — microorganisms.groups","text":"data set containing species groups microbiological complexes, used clinical breakpoints table.","code":""},{"path":"https://amr-for-r.org/reference/microorganisms.groups.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with 534 Microorganisms In Species Groups — microorganisms.groups","text":"","code":"microorganisms.groups"},{"path":"https://amr-for-r.org/reference/microorganisms.groups.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with 534 Microorganisms In Species Groups — microorganisms.groups","text":"tibble 534 observations 4 variables: mo_group ID species group / microbiological complex mo ID microorganism belonging species group / microbiological complex mo_group_name Name species group / microbiological complex, retrieved mo_name() mo_name Name microorganism belonging species group / microbiological complex, retrieved mo_name()","code":""},{"path":"https://amr-for-r.org/reference/microorganisms.groups.html","id":"download-our-reference-data","dir":"Reference","previous_headings":"","what":"Download Our Reference Data","title":"Data Set with 534 Microorganisms In Species Groups — microorganisms.groups","text":"reference data sets AMR package - including information microorganisms, antimicrobials, clinical breakpoints - freely available download multiple formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. maximum compatibility, also provide machine-readable, tab-separated plain text files suitable use software, including laboratory information systems. Visit website direct download links, explore actual files GitHub repository.","code":""},{"path":[]},{"path":"https://amr-for-r.org/reference/microorganisms.groups.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with 534 Microorganisms In Species Groups — microorganisms.groups","text":"","code":"microorganisms.groups #> # A tibble: 534 × 4 #>    mo_group       mo           mo_group_name                   mo_name           #>    <mo>           <mo>         <chr>                           <chr>             #>  1 B_ACNTB_BMNN-C B_ACNTB_BMNN Acinetobacter baumannii complex Acinetobacter ba… #>  2 B_ACNTB_BMNN-C B_ACNTB_CLCC Acinetobacter baumannii complex Acinetobacter ca… #>  3 B_ACNTB_BMNN-C B_ACNTB_LCTC Acinetobacter baumannii complex Acinetobacter di… #>  4 B_ACNTB_BMNN-C B_ACNTB_NSCM Acinetobacter baumannii complex Acinetobacter no… #>  5 B_ACNTB_BMNN-C B_ACNTB_PITT Acinetobacter baumannii complex Acinetobacter pi… #>  6 B_ACNTB_BMNN-C B_ACNTB_SFRT Acinetobacter baumannii complex Acinetobacter se… #>  7 B_BCTRD_FRGL-C B_BCTRD_FRGL Bacteroides fragilis complex    Bacteroides frag… #>  8 B_BCTRD_FRGL-C B_BCTRD_OVTS Bacteroides fragilis complex    Bacteroides ovat… #>  9 B_BCTRD_FRGL-C B_BCTRD_THTT Bacteroides fragilis complex    Bacteroides thet… #> 10 B_BCTRD_FRGL-C B_PHCCL_VLGT Bacteroides fragilis complex    Bacteroides vulg… #> # ℹ 524 more rows  # these are all species in the Bacteroides fragilis group, as per WHONET: microorganisms.groups[microorganisms.groups$mo_group == \"B_BCTRD_FRGL-C\", ] #> # A tibble: 5 × 4 #>   mo_group       mo           mo_group_name                mo_name               #>   <mo>           <mo>         <chr>                        <chr>                 #> 1 B_BCTRD_FRGL-C B_BCTRD_FRGL Bacteroides fragilis complex Bacteroides fragilis  #> 2 B_BCTRD_FRGL-C B_BCTRD_OVTS Bacteroides fragilis complex Bacteroides ovatus    #> 3 B_BCTRD_FRGL-C B_BCTRD_THTT Bacteroides fragilis complex Bacteroides thetaiot… #> 4 B_BCTRD_FRGL-C B_PHCCL_VLGT Bacteroides fragilis complex Bacteroides vulgatus  #> 5 B_BCTRD_FRGL-C B_PRBCT_DSTS Bacteroides fragilis complex Parabacteroides dist…"},{"path":"https://amr-for-r.org/reference/microorganisms.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with 78 679 Taxonomic Records of Microorganisms — microorganisms","title":"Data Set with 78 679 Taxonomic Records of Microorganisms — microorganisms","text":"data set containing full microbial taxonomy (last updated: June 24th, 2024) six kingdoms. data set backbone AMR package. MO codes can looked using .mo() microorganism properties can looked using mo_* functions. data set carefully crafted, yet made 100% reproducible public authoritative taxonomic sources (using script), namely: List Prokaryotic names Standing Nomenclature (LPSN) bacteria, MycoBank fungi, Global Biodiversity Information Facility (GBIF) others taxons.","code":""},{"path":"https://amr-for-r.org/reference/microorganisms.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with 78 679 Taxonomic Records of Microorganisms — microorganisms","text":"","code":"microorganisms"},{"path":"https://amr-for-r.org/reference/microorganisms.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with 78 679 Taxonomic Records of Microorganisms — microorganisms","text":"tibble 78 679 observations 26 variables: mo ID microorganism used package. unique identifier. fullname Full name, like \"Escherichia coli\". taxonomic ranks genus, species subspecies, 'pasted' text genus, species, subspecies. taxonomic ranks higher genus, name taxon. unique identifier. status  Status taxon, either \"accepted\", \"validly published\", \"synonym\", \"unknown\" kingdom, phylum, class, order, family, genus, species, subspecies Taxonomic rank microorganism. Note fungi, phylum equal taxonomic division. Also, fungi, subkingdom subdivision left since occur bacterial taxonomy. rank Text taxonomic rank microorganism, \"species\" \"genus\" ref Author(s) year related scientific publication. contains first surname year latest authors, e.g. \"Wallis et al. 2006 emend. Smith Jones 2018\" becomes \"Smith et al., 2018\". field directly retrieved source specified column source. Moreover, accents removed comply CRAN allows ASCII characters. oxygen_tolerance  Oxygen tolerance, either \"aerobe\", \"anaerobe\", \"anaerobe/microaerophile\", \"facultative anaerobe\", \"likely facultative anaerobe\", \"microaerophile\". data retrieved BacDive (see Source). Items contain \"likely\" missing BacDive extrapolated species within genus guess oxygen tolerance. Currently 68.3% ~39 000 bacteria data set contain oxygen tolerance. source Either \"GBIF\", \"LPSN\", \"Manually added\", \"MycoBank\", \"manually added\" (see Source) lpsn Identifier ('Record number') List Prokaryotic names Standing Nomenclature (LPSN). first/highest LPSN identifier keep one identifier per row. example, Acetobacter ascendens LPSN Record number 7864 11011. first available microorganisms data set. unique identifier, though available ~33 000 records. lpsn_parent LPSN identifier parent taxon lpsn_renamed_to LPSN identifier currently valid taxon mycobank Identifier ('MycoBank #') MycoBank. unique identifier, though available ~19 000 records. mycobank_parent MycoBank identifier parent taxon mycobank_renamed_to MycoBank identifier currently valid taxon gbif Identifier ('taxonID') Global Biodiversity Information Facility (GBIF). unique identifier, though available ~49 000 records. gbif_parent GBIF identifier parent taxon gbif_renamed_to GBIF identifier currently valid taxon prevalence Prevalence microorganism based Bartlett et al. (2022, doi:10.1099/mic.0.001269 ), see mo_matching_score() full explanation snomed Systematized Nomenclature Medicine (SNOMED) code microorganism, version July 16th, 2024 (see Source). Use mo_snomed() retrieve quickly, see mo_property().","code":""},{"path":"https://amr-for-r.org/reference/microorganisms.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Data Set with 78 679 Taxonomic Records of Microorganisms — microorganisms","text":"Taxonomic entries imported order importance: List Prokaryotic names Standing Nomenclature (LPSN): Parte, AC et al. (2020). List Prokaryotic names Standing Nomenclature (LPSN) moves DSMZ. International Journal Systematic Evolutionary Microbiology, 70, 5607-5612; doi:10.1099/ijsem.0.004332 . Accessed https://lpsn.dsmz.de June 24th, 2024. MycoBank: Vincent, R et al (2013). MycoBank gearing new horizons. IMA Fungus, 4(2), 371-9; doi:10.5598/imafungus.2013.04.02.16 . Accessed https://www.mycobank.org June 24th, 2024. Global Biodiversity Information Facility (GBIF): GBIF Secretariat (2023). GBIF Backbone Taxonomy. Checklist dataset doi:10.15468/39omei . Accessed https://www.gbif.org June 24th, 2024. Furthermore, sources used additional details: BacDive: Reimer, LC et al. (2022). BacDive 2022: knowledge base standardized bacterial archaeal data. Nucleic Acids Res., 50(D1):D741-D74; doi:10.1093/nar/gkab961 . Accessed https://bacdive.dsmz.de July 16th, 2024. Systematized Nomenclature Medicine - Clinical Terms (SNOMED-CT): Public Health Information Network Vocabulary Access Distribution System (PHIN VADS). US Edition SNOMED CT 1 September 2020. Value Set Name 'Microorganism', OID 2.16.840.1.114222.4.11.1009 (v12). Accessed https://www.cdc.gov/phin/php/phinvads/ July 16th, 2024. Grimont et al. (2007). Antigenic Formulae Salmonella Serovars, 9th Edition. Collaborating Centre Reference Research Salmonella (WHOCC-SALM). Bartlett et al. (2022). comprehensive list bacterial pathogens infecting humans Microbiology 168:001269; doi:10.1099/mic.0.001269","code":""},{"path":"https://amr-for-r.org/reference/microorganisms.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with 78 679 Taxonomic Records of Microorganisms — microorganisms","text":"Please note entries based LPSN, MycoBank, GBIF (see ). Since sources incorporate entries based (recent) publications International Journal Systematic Evolutionary Microbiology (IJSEM), can happen year publication sometimes later one might expect. example, Staphylococcus pettenkoferi described first time Diagnostic Microbiology Infectious Disease 2002 (doi:10.1016/s0732-8893(02)00399-1 ), 2007 publication IJSEM followed (doi:10.1099/ijs.0.64381-0 ). Consequently, AMR package returns 2007 mo_year(\"S. pettenkoferi\").","code":""},{"path":"https://amr-for-r.org/reference/microorganisms.html","id":"included-taxa","dir":"Reference","previous_headings":"","what":"Included Taxa","title":"Data Set with 78 679 Taxonomic Records of Microorganisms — microorganisms","text":"Included taxonomic data LPSN, MycoBank, GBIF : ~39 000 (sub)species kingdoms Archaea Bacteria ~28 000 species kingdom Fungi. kingdom Fungi large taxon almost 300,000 different (sub)species, microbial (rather macroscopic, like mushrooms). , fungi fit scope package. relevant fungi covered (species Aspergillus, Candida, Cryptococcus, Histoplasma, Pneumocystis, Saccharomyces Trichophyton). ~8 100 (sub)species kingdom Protozoa ~1 600 (sub)species 39 relevant genera kingdom Animalia (Strongyloides Taenia) ~26 000 previously accepted names included (sub)species (taxonomically renamed) complete taxonomic tree included (sub)species: kingdom subspecies identifier parent taxons year first author related scientific publication","code":""},{"path":"https://amr-for-r.org/reference/microorganisms.html","id":"manual-additions","dir":"Reference","previous_headings":"","what":"Manual additions","title":"Data Set with 78 679 Taxonomic Records of Microorganisms — microorganisms","text":"convenience, entries added manually: ~1 500 entries Salmonella, city-like serovars groups H 37 species groups (beta-haemolytic Streptococcus groups K, coagulase-negative Staphylococcus (CoNS), Mycobacterium tuberculosis complex, etc.), group compositions stored microorganisms.groups data set 1 entry Blastocystis (B.  hominis), although officially exist (Noel et al. 2005, PMID 15634993) 1 entry Moraxella (M. catarrhalis), formally named Branhamella catarrhalis (Catlin, 1970) though change never accepted within field clinical microbiology 8 'undefined' entries (unknown, unknown Gram-negatives, unknown Gram-positives, unknown yeast, unknown fungus, unknown anaerobic Gram-pos/Gram-neg bacteria) syntax used transform original data cleansed R format, can found .","code":""},{"path":"https://amr-for-r.org/reference/microorganisms.html","id":"download-our-reference-data","dir":"Reference","previous_headings":"","what":"Download Our Reference Data","title":"Data Set with 78 679 Taxonomic Records of Microorganisms — microorganisms","text":"reference data sets AMR package - including information microorganisms, antimicrobials, clinical breakpoints - freely available download multiple formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. maximum compatibility, also provide machine-readable, tab-separated plain text files suitable use software, including laboratory information systems. Visit website direct download links, explore actual files GitHub repository.","code":""},{"path":[]},{"path":"https://amr-for-r.org/reference/microorganisms.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with 78 679 Taxonomic Records of Microorganisms — microorganisms","text":"","code":"microorganisms #> # A tibble: 78,679 × 26 #>    mo          fullname   status kingdom phylum class order family genus species #>    <mo>        <chr>      <chr>  <chr>   <chr>  <chr> <chr> <chr>  <chr> <chr>   #>  1 B_GRAMN     (unknown … unkno… Bacter… (unkn… (unk… (unk… \"(unk… (unk… \"(unkn… #>  2 B_GRAMP     (unknown … unkno… Bacter… (unkn… (unk… (unk… \"(unk… (unk… \"(unkn… #>  3 B_ANAER-NEG (unknown … unkno… Bacter… (unkn… (unk… (unk… \"(unk… (unk… \"(unkn… #>  4 B_ANAER-POS (unknown … unkno… Bacter… (unkn… (unk… (unk… \"(unk… (unk… \"(unkn… #>  5 B_ANAER     (unknown … unkno… Bacter… (unkn… (unk… (unk… \"(unk… (unk… \"(unkn… #>  6 F_FUNGUS    (unknown … unkno… Fungi   (unkn… (unk… (unk… \"(unk… (unk… \"(unkn… #>  7   UNKNOWN   (unknown … unkno… (unkno… (unkn… (unk… (unk… \"(unk… (unk… \"(unkn… #>  8 P_PROTOZOAN (unknown … unkno… Protoz… (unkn… (unk… (unk… \"(unk… (unk… \"(unkn… #>  9 F_YEAST     (unknown … unkno… Fungi   (unkn… (unk… (unk… \"(unk… (unk… \"(unkn… #> 10 F_AABRN     Aabaarnia  unkno… Fungi   Ascom… Leca… Ostr… \"\"     Aaba… \"\"      #> # ℹ 78,669 more rows #> # ℹ 16 more variables: subspecies <chr>, rank <chr>, ref <chr>, #> #   oxygen_tolerance <chr>, source <chr>, lpsn <chr>, lpsn_parent <chr>, #> #   lpsn_renamed_to <chr>, mycobank <chr>, mycobank_parent <chr>, #> #   mycobank_renamed_to <chr>, gbif <chr>, gbif_parent <chr>, #> #   gbif_renamed_to <chr>, prevalence <dbl>, snomed <list>"},{"path":"https://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/reference/mo_matching_score.html","id":"note","dir":"Reference","previous_headings":"","what":"Note","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"algorithm originally developed 2018 subsequently described : Berends MS et al. (2022). AMR: R Package Working Antimicrobial Resistance Data. Journal Statistical Software, 104(3), 1-31; doi:10.18637/jss.v104.i03 . Later, work Bartlett et al. bacterial pathogens infecting humans (2022, doi:10.1099/mic.0.001269 ) incorporated, optimalisations algorithm made.","code":""},{"path":"https://amr-for-r.org/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 : $$m_{(x, n)} = \\frac{l_{n} - 0.5 \\cdot \\min \\begin{cases}l_{n} \\\\ \\textrm{lev}(x, n)\\end{cases}}{l_{n} \\cdot p_{n} \\cdot k_{n}}$$ : \\(x\\) user input; \\(n\\) taxonomic name (genus, species, subspecies); \\(l_n\\) length \\(n\\); \\(lev\\) Levenshtein distance function (counting insertion 1, deletion substitution 2) needed change \\(x\\) \\(n\\); \\(p_n\\) human pathogenic prevalence group \\(n\\), described ; \\(k_n\\) taxonomic kingdom \\(n\\), set Bacteria = 1, Fungi = 1.25, Protozoa = 1.5, Chromista = 1.75, Archaea = 2, others = 3. grouping human pathogenic prevalence \\(p\\) based recent work Bartlett et al. (2022, doi:10.1099/mic.0.001269 ) extensively studied medical-scientific literature categorise bacterial species groups: Established, taxonomic species infected least three persons three references. records prevalence = 1.15 microorganisms data set; Putative, taxonomic species fewer three known cases. records prevalence = 1.25 microorganisms data set. Furthermore, Genera World Health Organization's () Priority Pathogen List prevalence = 1.0 microorganisms data set; genus present established list also prevalence = 1.15 microorganisms data set; genus present putative list prevalence = 1.25 microorganisms data set; species subspecies genus present two aforementioned groups, prevalence = 1.5 microorganisms data set; non-bacterial genus, species subspecies genus present following list, prevalence = 1.25 microorganisms data set: Absidia, Acanthamoeba, Acremonium, Actinomucor, Aedes, Alternaria, Amoeba, Ancylostoma, Angiostrongylus, Anisakis, Anopheles, Apophysomyces, Arthroderma, Aspergillus, Aureobasidium, Basidiobolus, Beauveria, Bipolaris, Blastobotrys, Blastocystis, Blastomyces, Candida, Capillaria, Chaetomium, Chilomastix, Chrysonilia, Chrysosporium, Cladophialophora, Cladosporium, Clavispora, Coccidioides, Cokeromyces, Conidiobolus, Coniochaeta, Contracaecum, Cordylobia, Cryptococcus, Cryptosporidium, Cunninghamella, Curvularia, Cyberlindnera, Debaryozyma, Demodex, Dermatobia, Dientamoeba, Diphyllobothrium, Dirofilaria, Echinostoma, Entamoeba, Enterobius, Epidermophyton, Exidia, Exophiala, Exserohilum, Fasciola, Fonsecaea, Fusarium, Geotrichum, Giardia, Graphium, Haloarcula, Halobacterium, Halococcus, Hansenula, Hendersonula, Heterophyes, Histomonas, Histoplasma, Hortaea, Hymenolepis, Hypomyces, Hysterothylacium, Kloeckera, Kluyveromyces, Kodamaea, Lacazia, Leishmania, Lichtheimia, Lodderomyces, Lomentospora, Madurella, Malassezia, Malbranchea, Metagonimus, Meyerozyma, Microsporidium, Microsporum, Millerozyma, Mortierella, Mucor, Mycocentrospora, Nannizzia, Necator, Nectria, Ochroconis, Oesophagostomum, Oidiodendron, Opisthorchis, Paecilomyces, Paracoccidioides, Pediculus, Penicillium, Phaeoacremonium, Phaeomoniella, Phialophora, Phlebotomus, Phoma, Pichia, Piedraia, Pithomyces, Pityrosporum, Pneumocystis, Pseudallescheria, Pseudoscopulariopsis, Pseudoterranova, Pulex, Purpureocillium, Quambalaria, Rhinocladiella, Rhizomucor, Rhizopus, Rhodotorula, Saccharomyces, Saksenaea, Saprochaete, Sarcoptes, Scedosporium, Schistosoma, Schizosaccharomyces, Scolecobasidium, Scopulariopsis, Scytalidium, Spirometra, Sporobolomyces, Sporopachydermia, Sporothrix, Sporotrichum, Stachybotrys, Strongyloides, Syncephalastrum, Syngamus, Taenia, Talaromyces, Teleomorph, Toxocara, Trichinella, Trichobilharzia, Trichoderma, Trichomonas, Trichophyton, Trichosporon, Trichostrongylus, Trichuris, Tritirachium, Trombicula, Trypanosoma, Tunga, Ulocladium, Ustilago, Verticillium, Wallemia, Wangiella, Wickerhamomyces, Wuchereria, Yarrowia, Zygosaccharomyces; records prevalence = 2.0 microorganisms data set. calculating matching score, characters \\(x\\) \\(n\\) ignored -Z, -z, 0-9, spaces parentheses. matches sorted descending matching score user input values, top match returned. lead effect e.g., \"E. coli\" return microbial ID Escherichia coli (\\(m = 0.688\\), highly prevalent microorganism found humans) Entamoeba coli (\\(m = 0.381\\), less prevalent microorganism humans), although latter alphabetically come first.","code":""},{"path":"https://amr-for-r.org/reference/mo_matching_score.html","id":"download-our-reference-data","dir":"Reference","previous_headings":"","what":"Download Our Reference Data","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"reference data sets AMR package - including information microorganisms, antimicrobials, clinical breakpoints - freely available download multiple formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. maximum compatibility, also provide machine-readable, tab-separated plain text files suitable use software, including laboratory information systems. Visit website direct download links, explore actual files GitHub repository.","code":""},{"path":"https://amr-for-r.org/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`. #> Colour keys:  0.000-0.549  0.550-0.649  0.650-0.749  0.750-1.000  #>  #> -------------------------------------------------------------------------------- #> \"E. coli\" -> Escherichia coli (B_ESCHR_COLI, 0.688) #> Also matched: Enterococcus crotali (0.650), Escherichia coli coli #>               (0.643), Escherichia coli expressing (0.611), Enterobacter cowanii #>               (0.600), Enterococcus columbae (0.595), Enterococcus camelliae (0.591), #>               Enterococcus casseliflavus (0.577), Enterobacter cloacae cloacae #>               (0.571), Enterobacter cloacae complex (0.571), and Enterobacter cloacae #>               dissolvens (0.565) #>  #> Only the first 10 other matches of each record are shown. Run #> `print(mo_uncertainties(), n = ...)` to view more entries, or save #> `mo_uncertainties()` to an object.  mo_matching_score(   x = \"E. coli\",   n = c(\"Escherichia coli\", \"Entamoeba coli\") ) #> [1] 0.6875000 0.3809524"},{"path":"https://amr-for-r.org/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://amr-for-r.org/reference/mo_property.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Get Properties of a Microorganism — mo_property","text":"","code":"mo_name(x, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_fullname(x, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_shortname(x, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_subspecies(x, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_species(x, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_genus(x, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_family(x, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_order(x, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_class(x, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_phylum(x, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_kingdom(x, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_domain(x, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_type(x, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_status(x, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_pathogenicity(x, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_gramstain(x, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_is_gram_negative(x, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_is_gram_positive(x, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_is_yeast(x, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_is_intrinsic_resistant(x, ab, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_oxygen_tolerance(x, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_is_anaerobic(x, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_snomed(x, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_ref(x, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_authors(x, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_year(x, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_lpsn(x, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_mycobank(x, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_gbif(x, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_rank(x, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_taxonomy(x, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_synonyms(x, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_current(x, language = get_AMR_locale(), ...)  mo_group_members(x, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_info(x, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_url(x, open = FALSE, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_property(x, property = \"fullname\", language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)"},{"path":"https://amr-for-r.org/reference/mo_property.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Get Properties of a Microorganism — mo_property","text":"x character (vector) can coerced valid microorganism code .mo(). Can left blank auto-guessing column containing microorganism codes used data set, see Examples. language Language translate text like \"growth\", defaults system language (see get_AMR_locale()). keep_synonyms logical indicate old, previously valid taxonomic names must preserved corrected currently accepted names. default FALSE, return note old taxonomic names processed. default can set package option AMR_keep_synonyms, .e. options(AMR_keep_synonyms = TRUE) options(AMR_keep_synonyms = FALSE). ... arguments passed .mo(), 'minimum_matching_score', 'ignore_pattern', 'remove_from_input'. ab (vector ) text can coerced valid antibiotic drug code .ab(). open Browse URL using browseURL(). property One column names microorganisms data set: \"mo\", \"fullname\", \"status\", \"kingdom\", \"phylum\", \"class\", \"order\", \"family\", \"genus\", \"species\", \"subspecies\", \"rank\", \"ref\", \"oxygen_tolerance\", \"source\", \"lpsn\", \"lpsn_parent\", \"lpsn_renamed_to\", \"mycobank\", \"mycobank_parent\", \"mycobank_renamed_to\", \"gbif\", \"gbif_parent\", \"gbif_renamed_to\", \"prevalence\", \"snomed\", must \"shortname\".","code":""},{"path":"https://amr-for-r.org/reference/mo_property.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Get Properties of a Microorganism — mo_property","text":"integer case mo_year() ordered factor case mo_pathogenicity() list case mo_taxonomy(), mo_synonyms(), mo_snomed(), mo_info() logical case mo_is_anaerobic(), mo_is_gram_negative(), mo_is_gram_positive(), mo_is_intrinsic_resistant(), mo_is_yeast() named character case mo_synonyms() mo_url() character cases","code":""},{"path":"https://amr-for-r.org/reference/mo_property.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Get Properties of a Microorganism — mo_property","text":"functions , default, keep old taxonomic properties, synonyms automatically replaced current taxonomy. Take example Enterobacter aerogenes, initially named 1960 renamed Klebsiella aerogenes 2017: mo_genus(\"Enterobacter aerogenes\") return \"Klebsiella\" (note renaming) mo_genus(\"Enterobacter aerogenes\", keep_synonyms = TRUE) return \"Enterobacter\" (-per-session warning name outdated) mo_ref(\"Enterobacter aerogenes\") return \"Tindall et al., 2017\" (note renaming) mo_ref(\"Enterobacter aerogenes\", keep_synonyms = TRUE) return \"Hormaeche et al., 1960\" (-per-session warning name outdated) short name (mo_shortname()) returns first character genus full species, \"E. coli\", species subspecies. Exceptions abbreviations staphylococci (\"CoNS\", Coagulase-Negative Staphylococci) beta-haemolytic streptococci (\"GBS\", Group B Streptococci). Please bear mind e.g. E. coli mean Escherichia coli (kingdom Bacteria) well Entamoeba coli (kingdom Protozoa). Returning full name done using .mo() internally, giving priority bacteria human pathogens, .e. \"E. coli\" considered Escherichia coli. result, mo_fullname(mo_shortname(\"Entamoeba coli\")) returns \"Escherichia coli\". Since top-level taxonomy sometimes referred 'kingdom' sometimes 'domain', functions mo_kingdom() mo_domain() return exact results. Determination human pathogenicity (mo_pathogenicity()) strongly based Bartlett et al. (2022, doi:10.1099/mic.0.001269 ). function returns factor levels Pathogenic, Potentially pathogenic, Non-pathogenic, Unknown. Determination Gram stain (mo_gramstain()) based taxonomic kingdom phylum. Originally, Cavalier-Smith defined -called subkingdoms Negibacteria Posibacteria (2002, PMID 11837318), considered phyla Posibacteria: Actinobacteria, Chloroflexi, Firmicutes, Tenericutes. phyla later renamed Actinomycetota, Chloroflexota, Bacillota, Mycoplasmatota (2021, PMID 34694987). Bacteria phyla considered Gram-positive AMR package, except members class Negativicutes (within phylum Bacillota) Gram-negative. bacteria considered Gram-negative. Species outside kingdom Bacteria return value NA. Functions mo_is_gram_negative() mo_is_gram_positive() always return TRUE FALSE (NA input NA MO code UNKNOWN), thus always return FALSE species outside taxonomic kingdom Bacteria. Determination yeasts (mo_is_yeast()) based taxonomic kingdom class. Budding yeasts yeasts reproduce asexually process called budding, new cell develops small protrusion parent cell. Taxonomically, members phylum Ascomycota, class Saccharomycetes (also called Hemiascomycetes) Pichiomycetes. True yeasts quite specifically refers yeasts underlying order Saccharomycetales (Saccharomyces cerevisiae). Thus, microorganisms member taxonomic class Saccharomycetes Pichiomycetes, function return TRUE. returns FALSE otherwise (NA input NA MO code UNKNOWN). Determination intrinsic resistance (mo_is_intrinsic_resistant()) based intrinsic_resistant data set, based 'EUCAST Expected Resistant Phenotypes' v1.2 (2023). mo_is_intrinsic_resistant() function can vectorised argument x (input microorganisms) ab (input antimicrobials). Determination bacterial oxygen tolerance (mo_oxygen_tolerance()) based BacDive, see Source. function mo_is_anaerobic() returns TRUE oxygen tolerance \"anaerobe\", indicting obligate anaerobic species genus. always returns FALSE species outside taxonomic kingdom Bacteria. function mo_url() return direct URL online database entry, also shows scientific reference concerned species. MycoBank URL used fungi wherever available , LPSN URL bacteria wherever available, GBIF link otherwise. SNOMED codes (mo_snomed()) last updated July 16th, 2024. See Source microorganisms data set info. Old taxonomic names (-called 'synonyms') can retrieved mo_synonyms() (scientific reference name), current taxonomic name can retrieved mo_current(). functions return full names. output translated possible.","code":""},{"path":"https://amr-for-r.org/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://amr-for-r.org/reference/mo_property.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Get Properties of a Microorganism — mo_property","text":"Berends MS et al. (2022). AMR: R Package Working Antimicrobial Resistance Data. Journal Statistical Software, 104(3), 1-31; doi:10.18637/jss.v104.i03 Parte, AC et al. (2020). List Prokaryotic names Standing Nomenclature (LPSN) moves DSMZ. International Journal Systematic Evolutionary Microbiology, 70, 5607-5612; doi:10.1099/ijsem.0.004332 . Accessed https://lpsn.dsmz.de June 24th, 2024. Vincent, R et al (2013). MycoBank gearing new horizons. IMA Fungus, 4(2), 371-9; doi:10.5598/imafungus.2013.04.02.16 . Accessed https://www.mycobank.org June 24th, 2024. GBIF Secretariat (2023). GBIF Backbone Taxonomy. Checklist dataset doi:10.15468/39omei . Accessed https://www.gbif.org June 24th, 2024. Reimer, LC et al. (2022). BacDive 2022: knowledge base standardized bacterial archaeal data. Nucleic Acids Res., 50(D1):D741-D74; doi:10.1093/nar/gkab961 . Accessed https://bacdive.dsmz.de July 16th, 2024. Public Health Information Network Vocabulary Access Distribution System (PHIN VADS). US Edition SNOMED CT 1 September 2020. Value Set Name 'Microorganism', OID 2.16.840.1.114222.4.11.1009 (v12). URL: https://www.cdc.gov/phin/php/phinvads/ Bartlett et al. (2022). comprehensive list bacterial pathogens infecting humans Microbiology 168:001269; doi:10.1099/mic.0.001269","code":""},{"path":"https://amr-for-r.org/reference/mo_property.html","id":"download-our-reference-data","dir":"Reference","previous_headings":"","what":"Download Our Reference Data","title":"Get Properties of a Microorganism — mo_property","text":"reference data sets AMR package - including information microorganisms, antimicrobials, clinical breakpoints - freely available download multiple formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. maximum compatibility, also provide machine-readable, tab-separated plain text files suitable use software, including laboratory information systems. Visit website direct download links, explore actual files GitHub repository.","code":""},{"path":[]},{"path":"https://amr-for-r.org/reference/mo_property.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Get Properties of a Microorganism — mo_property","text":"","code":"# taxonomic tree -----------------------------------------------------------  mo_kingdom(\"Klebsiella pneumoniae\") #> [1] \"Bacteria\" mo_phylum(\"Klebsiella pneumoniae\") #> [1] \"Pseudomonadota\" mo_class(\"Klebsiella pneumoniae\") #> [1] \"Gammaproteobacteria\" mo_order(\"Klebsiella pneumoniae\") #> [1] \"Enterobacterales\" mo_family(\"Klebsiella pneumoniae\") #> [1] \"Enterobacteriaceae\" mo_genus(\"Klebsiella pneumoniae\") #> [1] \"Klebsiella\" mo_species(\"Klebsiella pneumoniae\") #> [1] \"pneumoniae\" mo_subspecies(\"Klebsiella pneumoniae\") #> [1] \"\"   # full names and short names -----------------------------------------------  mo_name(\"Klebsiella pneumoniae\") #> [1] \"Klebsiella pneumoniae\" mo_fullname(\"Klebsiella pneumoniae\") #> [1] \"Klebsiella pneumoniae\" mo_shortname(\"Klebsiella pneumoniae\") #> [1] \"K. pneumoniae\"   # other properties ---------------------------------------------------------  mo_pathogenicity(\"Klebsiella pneumoniae\") #> [1] Pathogenic #> Levels: Pathogenic < Potentially pathogenic < Non-pathogenic < Unknown mo_gramstain(\"Klebsiella pneumoniae\") #> [1] \"Gram-negative\" mo_snomed(\"Klebsiella pneumoniae\") #> [[1]] #> [1] \"1098101000112102\" \"446870005\"        \"1098201000112108\" \"409801009\"        #> [5] \"56415008\"         \"714315002\"        \"713926009\"        #>  mo_type(\"Klebsiella pneumoniae\") #> [1] \"Bacteria\" mo_rank(\"Klebsiella pneumoniae\") #> [1] \"species\" mo_url(\"Klebsiella pneumoniae\") #>                                Klebsiella pneumoniae  #> \"https://lpsn.dsmz.de/species/klebsiella-pneumoniae\"  mo_is_yeast(c(\"Candida\", \"Trichophyton\", \"Klebsiella\")) #> [1]  TRUE FALSE FALSE  mo_group_members(c(   \"Streptococcus group A\",   \"Streptococcus group C\",   \"Streptococcus group G\",   \"Streptococcus group L\" )) #> $`Streptococcus Group A` #> [1] \"Streptococcus pyogenes\" #>  #> $`Streptococcus Group C` #> [1] \"Streptococcus dysgalactiae\"              #> [2] \"Streptococcus dysgalactiae dysgalactiae\" #> [3] \"Streptococcus dysgalactiae equisimilis\"  #> [4] \"Streptococcus equi\"                      #> [5] \"Streptococcus equi equi\"                 #> [6] \"Streptococcus equi ruminatorum\"          #> [7] \"Streptococcus equi zooepidemicus\"        #>  #> $`Streptococcus Group G` #> [1] \"Streptococcus canis\"                     #> [2] \"Streptococcus dysgalactiae\"              #> [3] \"Streptococcus dysgalactiae dysgalactiae\" #> [4] \"Streptococcus dysgalactiae equisimilis\"  #>  #> $`Streptococcus Group L` #> [1] \"Streptococcus dysgalactiae\"              #> [2] \"Streptococcus dysgalactiae dysgalactiae\" #> [3] \"Streptococcus dysgalactiae equisimilis\"  #>    # scientific reference -----------------------------------------------------  mo_ref(\"Klebsiella aerogenes\") #> [1] \"Tindall et al., 2017\" mo_authors(\"Klebsiella aerogenes\") #> [1] \"Tindall et al.\" mo_year(\"Klebsiella aerogenes\") #> [1] 2017 mo_synonyms(\"Klebsiella aerogenes\") #>   Hormaeche et al., 1960     Bascomb et al., 1971  #> \"Enterobacter aerogenes\"     \"Klebsiella mobilis\"  mo_lpsn(\"Klebsiella aerogenes\") #> [1] \"777146\" mo_gbif(\"Klebsiella aerogenes\") #> [1] \"9281703\" mo_mycobank(\"Candida albicans\") #> [1] \"256187\" mo_mycobank(\"Candida krusei\") #> [1] \"337013\" mo_mycobank(\"Candida krusei\", keep_synonyms = TRUE) #> Warning: Function `as.mo()` returned one old taxonomic name. Use `as.mo(..., #> keep_synonyms = FALSE)` to clean the input to currently accepted taxonomic #> names, or set the R option `AMR_keep_synonyms` to `FALSE`. This warning #> will be shown once per session. #> [1] \"268707\"   # abbreviations known in the field -----------------------------------------  mo_genus(\"MRSA\") #> [1] \"Staphylococcus\" mo_species(\"MRSA\") #> [1] \"aureus\" mo_shortname(\"VISA\") #> [1] \"S. aureus\" mo_gramstain(\"VISA\") #> [1] \"Gram-positive\"  mo_genus(\"EHEC\") #> [1] \"Escherichia\" mo_species(\"EIEC\") #> [1] \"coli\" mo_name(\"UPEC\") #> [1] \"Escherichia coli\"   # known subspecies ---------------------------------------------------------  mo_fullname(\"K. pneu rh\") #> [1] \"Klebsiella pneumoniae rhinoscleromatis\" mo_shortname(\"K. pneu rh\") #> [1] \"K. pneumoniae\"  # \\donttest{ # Becker classification, see ?as.mo ----------------------------------------  mo_fullname(\"Staph epidermidis\") #> [1] \"Staphylococcus epidermidis\" mo_fullname(\"Staph epidermidis\", Becker = TRUE) #> [1] \"Coagulase-negative Staphylococcus (CoNS)\" mo_shortname(\"Staph epidermidis\") #> [1] \"S. epidermidis\" mo_shortname(\"Staph epidermidis\", Becker = TRUE) #> [1] \"CoNS\"   # Lancefield classification, see ?as.mo ------------------------------------  mo_fullname(\"Strep agalactiae\") #> [1] \"Streptococcus agalactiae\" mo_fullname(\"Strep agalactiae\", Lancefield = TRUE) #> [1] \"Streptococcus Group B\" mo_shortname(\"Strep agalactiae\") #> [1] \"S. agalactiae\" mo_shortname(\"Strep agalactiae\", Lancefield = TRUE) #> [1] \"GBS\"   # language support  --------------------------------------------------------  mo_gramstain(\"Klebsiella pneumoniae\", language = \"de\") # German #> [1] \"Gramnegativ\" mo_gramstain(\"Klebsiella pneumoniae\", language = \"nl\") # Dutch #> [1] \"Gram-negatief\" mo_gramstain(\"Klebsiella pneumoniae\", language = \"es\") # Spanish #> [1] \"Gram negativo\" mo_gramstain(\"Klebsiella pneumoniae\", language = \"el\") # Greek #> [1] \"Αρνητικό κατά Gram\" mo_gramstain(\"Klebsiella pneumoniae\", language = \"uk\") # Ukrainian #> [1] \"Грамнегативні\"  # mo_type is equal to mo_kingdom, but mo_kingdom will remain untranslated mo_kingdom(\"Klebsiella pneumoniae\") #> [1] \"Bacteria\" mo_type(\"Klebsiella pneumoniae\") #> [1] \"Bacteria\" mo_kingdom(\"Klebsiella pneumoniae\", language = \"zh\") # Chinese, no effect #> [1] \"Bacteria\" mo_type(\"Klebsiella pneumoniae\", language = \"zh\") # Chinese, translated #> [1] \"细菌\"  mo_fullname(\"S. pyogenes\", Lancefield = TRUE, language = \"de\") #> [1] \"Streptococcus Gruppe A\" mo_fullname(\"S. pyogenes\", Lancefield = TRUE, language = \"uk\") #> [1] \"Streptococcus Група A\"   # other --------------------------------------------------------------------  # gram stains and intrinsic resistance can be used as a filter in dplyr verbs if (require(\"dplyr\")) {   example_isolates %>%     filter(mo_is_gram_positive()) %>%     count(mo_genus(), sort = TRUE) } #> ℹ Using column 'mo' as input for `mo_is_gram_positive()` #> ℹ Using column 'mo' as input for `mo_genus()` #> # A tibble: 18 × 2 #>    `mo_genus()`        n #>    <chr>           <int> #>  1 Staphylococcus    840 #>  2 Streptococcus     275 #>  3 Enterococcus       83 #>  4 Corynebacterium    17 #>  5 Micrococcus         6 #>  6 Gemella             3 #>  7 Aerococcus          2 #>  8 Cutibacterium       1 #>  9 Dermabacter         1 #> 10 Fusibacter          1 #> 11 Globicatella        1 #> 12 Granulicatella      1 #> 13 Lactobacillus       1 #> 14 Leuconostoc         1 #> 15 Listeria            1 #> 16 Paenibacillus       1 #> 17 Rothia              1 #> 18 Schaalia            1 if (require(\"dplyr\")) {   example_isolates %>%     filter(mo_is_intrinsic_resistant(ab = \"vanco\")) %>%     count(mo_genus(), sort = TRUE) } #> ℹ Using column 'mo' as input for `mo_is_intrinsic_resistant()` #> ℹ Using column 'mo' as input for `mo_genus()` #> # A tibble: 19 × 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          9 #>  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 Leuconostoc          1 #> 19 Pseudescherichia     1  # get a list with the complete taxonomy (from kingdom to subspecies) mo_taxonomy(\"Klebsiella pneumoniae\") #> $kingdom #> [1] \"Bacteria\" #>  #> $phylum #> [1] \"Pseudomonadota\" #>  #> $class #> [1] \"Gammaproteobacteria\" #>  #> $order #> [1] \"Enterobacterales\" #>  #> $family #> [1] \"Enterobacteriaceae\" #>  #> $genus #> [1] \"Klebsiella\" #>  #> $species #> [1] \"pneumoniae\" #>  #> $subspecies #> [1] \"\" #>   # get a list with the taxonomy, the authors, Gram-stain, # SNOMED codes, and URL to the online database mo_info(\"Klebsiella pneumoniae\") #> $mo #> [1] \"B_KLBSL_PNMN\" #>  #> $rank #> [1] \"species\" #>  #> $kingdom #> [1] \"Bacteria\" #>  #> $phylum #> [1] \"Pseudomonadota\" #>  #> $class #> [1] \"Gammaproteobacteria\" #>  #> $order #> [1] \"Enterobacterales\" #>  #> $family #> [1] \"Enterobacteriaceae\" #>  #> $genus #> [1] \"Klebsiella\" #>  #> $species #> [1] \"pneumoniae\" #>  #> $subspecies #> [1] \"\" #>  #> $status #> [1] \"accepted\" #>  #> $synonyms #> NULL #>  #> $gramstain #> [1] \"Gram-negative\" #>  #> $oxygen_tolerance #> [1] \"facultative anaerobe\" #>  #> $url #> [1] \"https://lpsn.dsmz.de/species/klebsiella-pneumoniae\" #>  #> $ref #> [1] \"Trevisan, 1887\" #>  #> $snomed #> [1] \"1098101000112102\" \"446870005\"        \"1098201000112108\" \"409801009\"        #> [5] \"56415008\"         \"714315002\"        \"713926009\"        #>  #> $lpsn #> [1] \"777151\" #>  #> $mycobank #> [1] NA #>  #> $gbif #> [1] \"3221874\" #>  #> $group_members #> character(0) #>  # }"},{"path":"https://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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 \"/Users//Documents/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(\"/Users/me/Documents/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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) } #> 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\"  #>    # new ggplot2 plotting method using this package: if (require(\"dplyr\") && require(\"ggplot2\")) {     ggplot_pca(pca_result) }  if (require(\"dplyr\") && require(\"ggplot2\")) {     ggplot_pca(pca_result) +       scale_colour_viridis_d() +       labs(title = \"Title here\") }  # }"},{"path":"https://amr-for-r.org/reference/plot.html","id":null,"dir":"Reference","previous_headings":"","what":"Plotting Helpers for AMR Data Analysis — plot","title":"Plotting Helpers for AMR Data Analysis — plot","text":"Functions plot classes sir, mic disk, support base R ggplot2. Especially scale_*_mic() functions relevant wrappers plot MIC values ggplot2. allows custom MIC ranges plot intermediate log2 levels missing MIC values.","code":""},{"path":"https://amr-for-r.org/reference/plot.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Plotting Helpers for AMR Data Analysis — plot","text":"","code":"scale_x_mic(keep_operators = \"edges\", mic_range = NULL, ...)  scale_y_mic(keep_operators = \"edges\", mic_range = NULL, ...)  scale_colour_mic(keep_operators = \"edges\", mic_range = NULL, ...)  scale_fill_mic(keep_operators = \"edges\", mic_range = NULL, ...)  scale_x_sir(colours_SIR = c(S = \"#3CAEA3\", SDD = \"#8FD6C4\", I = \"#F6D55C\", R   = \"#ED553B\"), language = get_AMR_locale(),   eucast_I = getOption(\"AMR_guideline\", \"EUCAST\") == \"EUCAST\", ...)  scale_colour_sir(colours_SIR = c(S = \"#3CAEA3\", SDD = \"#8FD6C4\", I =   \"#F6D55C\", R = \"#ED553B\"), language = get_AMR_locale(),   eucast_I = getOption(\"AMR_guideline\", \"EUCAST\") == \"EUCAST\", ...)  scale_fill_sir(colours_SIR = c(S = \"#3CAEA3\", SDD = \"#8FD6C4\", I = \"#F6D55C\",   R = \"#ED553B\"), language = get_AMR_locale(),   eucast_I = getOption(\"AMR_guideline\", \"EUCAST\") == \"EUCAST\", ...)  # S3 method for class 'mic' plot(x, mo = NULL, ab = NULL,   guideline = getOption(\"AMR_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(S = \"#3CAEA3\", SDD = \"#8FD6C4\", I = \"#F6D55C\", R   = \"#ED553B\"), language = get_AMR_locale(), expand = TRUE,   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\"), ...)  # S3 method for class 'mic' autoplot(object, mo = NULL, ab = NULL,   guideline = getOption(\"AMR_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(S = \"#3CAEA3\", SDD = \"#8FD6C4\", I = \"#F6D55C\", R   = \"#ED553B\"), language = get_AMR_locale(), expand = TRUE,   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\"), ...)  # S3 method for class 'disk' 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 = getOption(\"AMR_guideline\", \"EUCAST\"),   colours_SIR = c(S = \"#3CAEA3\", SDD = \"#8FD6C4\", I = \"#F6D55C\", R =   \"#ED553B\"), language = get_AMR_locale(), expand = TRUE,   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\"), ...)  # S3 method for class 'disk' autoplot(object, mo = NULL, ab = NULL,   title = deparse(substitute(object)), ylab = translate_AMR(\"Frequency\",   language = language), xlab = translate_AMR(\"Disk diffusion diameter (mm)\",   language = language), guideline = getOption(\"AMR_guideline\", \"EUCAST\"),   colours_SIR = c(S = \"#3CAEA3\", SDD = \"#8FD6C4\", I = \"#F6D55C\", R =   \"#ED553B\"), language = get_AMR_locale(), expand = TRUE,   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\"), ...)  # S3 method for class 'sir' plot(x, ylab = translate_AMR(\"Percentage\", language =   language), xlab = translate_AMR(\"Antimicrobial Interpretation\", language =   language), main = deparse(substitute(x)), language = get_AMR_locale(),   ...)  # S3 method for class 'sir' autoplot(object, title = deparse(substitute(object)),   xlab = translate_AMR(\"Antimicrobial Interpretation\", language = language),   ylab = translate_AMR(\"Frequency\", language = language), colours_SIR = c(S   = \"#3CAEA3\", SDD = \"#8FD6C4\", I = \"#F6D55C\", R = \"#ED553B\"),   language = get_AMR_locale(), ...)  facet_sir(facet = c(\"interpretation\", \"antibiotic\"), nrow = NULL)  scale_y_percent(breaks = function(x) seq(0, max(x, na.rm = TRUE), 0.1),   limits = c(0, NA))  scale_sir_colours(..., aesthetics, colours_SIR = c(S = \"#3CAEA3\", SDD =   \"#8FD6C4\", I = \"#F6D55C\", R = \"#ED553B\"))  theme_sir()  labels_sir_count(position = NULL, x = \"antibiotic\",   translate_ab = \"name\", minimum = 30, language = get_AMR_locale(),   combine_SI = TRUE, datalabels.size = 3, datalabels.colour = \"grey15\")"},{"path":"https://amr-for-r.org/reference/plot.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Plotting Helpers for AMR Data Analysis — plot","text":"keep_operators character specifying handle operators (> <=) input. Accepts one three values: \"\" (TRUE) keep operators, \"none\" (FALSE) remove operators, \"edges\" keep operators ends range. mic_range manual range rescale MIC values (using rescale_mic()), e.g., mic_range = c(0.001, 32). Use NA prevent rescaling one side, e.g., mic_range = c(NA, 32). Note: rescales values filter - use ggplot2 limits argument separately exclude values plot. ... Arguments passed methods. 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 prevent translation. eucast_I logical indicate whether '' must interpreted \"Susceptible, increased exposure\". TRUE default AMR interpretation guideline set EUCAST (default). FALSE, interpreted \"Intermediate\". 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. expand logical indicate whether range x axis expanded lowest highest value. MIC values, intermediate values factors 2 starting highest MIC value. disk diameters, whole diameter range filled. include_PKPD logical indicate PK/PD clinical breakpoints must applied last resort - default TRUE. Can also set package option AMR_include_PKPD. breakpoint_type type breakpoints use, either \"ECOFF\", \"animal\", \"human\". ECOFF stands Epidemiological Cut-values. default \"human\", can also set package option AMR_breakpoint_type. host set values veterinary species, automatically set \"animal\". facet Variable split plots , either \"interpretation\" (default) \"antibiotic\" grouping variable. nrow (using facet) number rows. breaks numeric vector positions. limits numeric vector length two providing limits scale, use NA refer existing minimum maximum. aesthetics Aesthetics apply colours - default \"fill\" can also (combination ) \"alpha\", \"colour\", \"fill\", \"linetype\", \"shape\" \"size\". position Position adjustment bars, either \"fill\", \"stack\" \"dodge\". translate_ab column name antimicrobials data set translate antibiotic abbreviations , using ab_property(). minimum minimum allowed number available (tested) isolates. isolate count lower minimum return NA warning. default number 30 isolates advised Clinical Laboratory Standards Institute (CLSI) best practice, see Source. combine_SI logical indicate whether values S, SDD, must merged one, output consists S+SDD+vs. R (susceptible vs. resistant) - default TRUE. datalabels.size Size datalabels. datalabels.colour Colour datalabels.","code":""},{"path":"https://amr-for-r.org/reference/plot.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Plotting Helpers for AMR Data Analysis — plot","text":"autoplot() functions return ggplot model extendible ggplot2 function.","code":""},{"path":[]},{"path":"https://amr-for-r.org/reference/plot.html","id":"the-scale-mic-functions","dir":"Reference","previous_headings":"","what":"The scale_*_mic() Functions","title":"Plotting Helpers for AMR Data Analysis — plot","text":"functions scale_x_mic(), scale_y_mic(), scale_colour_mic(), scale_fill_mic() functions allow plot mic class (MIC values) continuous, logarithmic scale. normally need add scale functions plot, applied automatically plotting values class mic. manually added though, allow rescale MIC range 'inside' 'outside' range required, provide option retain operators MIC values (>=). Missing intermediate log2 levels always plotted .","code":""},{"path":"https://amr-for-r.org/reference/plot.html","id":"the-scale-sir-functions","dir":"Reference","previous_headings":"","what":"The scale_*_sir() Functions","title":"Plotting Helpers for AMR Data Analysis — plot","text":"functions scale_x_sir(), scale_colour_sir(), scale_fill_sir() functions allow plot sir class right order (S < SDD < < R < NI). normally need add scale functions plot, applied automatically plotting values class sir. default, translate S//R values interpretative text (\"Susceptible\", \"Resistant\", etc.) 28 supported languages (use language = NULL keep S//R). Also, except scale_x_sir(), set colour-blind friendly colours colour fill aesthetics.","code":""},{"path":"https://amr-for-r.org/reference/plot.html","id":"additional-ggplot-functions","dir":"Reference","previous_headings":"","what":"Additional ggplot2 Functions","title":"Plotting Helpers for AMR Data Analysis — plot","text":"package contains functions extend ggplot2 package, help visualising AMR data results. functions internally used ggplot_sir() . facet_sir() creates 2d plots (default based S//R) using ggplot2::facet_wrap(). scale_y_percent() transforms y axis 0 100% range using ggplot2::scale_y_continuous(). scale_sir_colours() allows set colours aesthetic, even shape linetype. theme_sir() ggplot2 theme minimal distraction. labels_sir_count() print datalabels bars percentage number isolates, using ggplot2::geom_text(). interpretation \"\" named \"Increased exposure\" EUCAST guidelines since 2019, named \"Intermediate\" cases. interpreting MIC values well disk diffusion diameters, default guideline EUCAST 2025, unless package option AMR_guideline set. See .sir() information.","code":""},{"path":"https://amr-for-r.org/reference/plot.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Plotting Helpers for AMR Data Analysis — plot","text":"","code":"some_mic_values <- random_mic(size = 100) some_disk_values <- random_disk(size = 100, mo = \"Escherichia coli\", ab = \"cipro\") some_sir_values <- random_sir(50, prob_SIR = c(0.55, 0.05, 0.30))  # \\donttest{ # Plotting using ggplot2's autoplot() for MIC, disk, and SIR ----------- if (require(\"ggplot2\")) {   autoplot(some_mic_values) }  if (require(\"ggplot2\")) {   # when providing the microorganism and antibiotic, colours will show interpretations:   autoplot(some_mic_values, mo = \"Escherichia coli\", ab = \"cipro\") }  if (require(\"ggplot2\")) {   autoplot(some_mic_values, mo = \"Staph aureus\", ab = \"Ceftaroline\", guideline = \"CLSI\") }   if (require(\"ggplot2\")) {   # support for 27 languages, various guidelines, and many options   autoplot(some_disk_values,     mo = \"Escherichia coli\", ab = \"cipro\",     guideline = \"CLSI 2024\", language = \"no\",     title = \"Disk diffusion from the North\"   ) }    # Plotting using scale_x_mic() ----------------------------------------- if (require(\"ggplot2\")) {   mic_plot <- ggplot(     data.frame(       mics = as.mic(c(0.25, \"<=4\", 4, 8, 32, \">=32\")),       counts = c(1, 1, 2, 2, 3, 3)     ),     aes(mics, counts)   ) +     geom_col()   mic_plot +     labs(title = \"scale_x_mic() automatically applied\") }  if (require(\"ggplot2\")) {   mic_plot +     scale_x_mic(keep_operators = \"none\") +     labs(title = \"with scale_x_mic() keeping no operators\") }  if (require(\"ggplot2\")) {   mic_plot +     scale_x_mic(mic_range = c(1, 16)) +     labs(title = \"with scale_x_mic() using a manual 'within' range\") }  if (require(\"ggplot2\")) {   mic_plot +     scale_x_mic(mic_range = c(0.032, 256)) +     labs(title = \"with scale_x_mic() using a manual 'outside' range\") }    # Plotting using scale_y_mic() ----------------------------------------- some_groups <- sample(LETTERS[1:5], 20, replace = TRUE)  if (require(\"ggplot2\")) {   ggplot(     data.frame(       mic = some_mic_values,       group = some_groups     ),     aes(group, mic)   ) +     geom_boxplot() +     geom_violin(linetype = 2, colour = \"grey30\", fill = NA) +     labs(title = \"scale_y_mic() automatically applied\") }  if (require(\"ggplot2\")) {   ggplot(     data.frame(       mic = some_mic_values,       group = some_groups     ),     aes(group, mic)   ) +     geom_boxplot() +     geom_violin(linetype = 2, colour = \"grey30\", fill = NA) +     scale_y_mic(mic_range = c(NA, 0.25)) }    # Plotting using scale_x_sir() ----------------------------------------- if (require(\"ggplot2\")) {   ggplot(     data.frame(       x = c(\"I\", \"R\", \"S\"),       y = c(45, 323, 573)     ),     aes(x, y)   ) +     geom_col() +     scale_x_sir() }    # Plotting using scale_y_mic() and scale_colour_sir() ------------------ if (require(\"ggplot2\")) {   mic_sir_plot <- ggplot(     data.frame(       mic = some_mic_values,       group = some_groups,       sir = as.sir(some_mic_values,         mo = \"E. coli\",         ab = \"cipro\"       )     ),     aes(x = group, y = mic, colour = sir)   ) +     theme_minimal() +     geom_boxplot(fill = NA, colour = \"grey30\") +     geom_jitter(width = 0.25)     labs(title = \"scale_y_mic()/scale_colour_sir() automatically applied\")    mic_sir_plot }  if (require(\"ggplot2\")) {   mic_sir_plot +     scale_y_mic(mic_range = c(0.005, 32), name = \"Our MICs!\") +     scale_colour_sir(       language = \"pt\", # Portuguese       name = \"Support in 28 languages\"     ) }  # }  # Plotting using base R's plot() ---------------------------------------  plot(some_mic_values)  # when providing the microorganism and antibiotic, colours will show interpretations: plot(some_mic_values, mo = \"S. aureus\", ab = \"ampicillin\")   plot(some_disk_values)  plot(some_disk_values, mo = \"Escherichia coli\", ab = \"cipro\")  plot(some_disk_values, mo = \"Escherichia coli\", ab = \"cipro\", language = \"nl\")   plot(some_sir_values)"},{"path":"https://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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 antimicrobials, see section Combination Therapy . ab_result Antibiotic results test , must one values \"S\", \"SDD\", \"\", \"R\". confidence_level confidence level returned confidence interval. calculation, number S SI isolates, R isolates compared total number available isolates R, S, using binom.test(), .e., Clopper-Pearson method. side side confidence interval return. default \"\" length 2 vector, can also (abbreviated ) \"min\"/\"left\"/\"lower\"/\"less\" \"max\"/\"right\"/\"higher\"/\"greater\". collapse logical indicate whether output values 'collapsed', .e. merged together one value, character value use collapsing. data data.frame containing columns class sir (see .sir()). translate_ab column name antimicrobials data set translate antibiotic abbreviations , using ab_property(). language Language returned text - default current system language (see get_AMR_locale()) can also set package option AMR_locale. Use language = NULL language = \"\" prevent translation. combine_SI logical indicate whether values S, SDD, must merged one, output consists S+SDD+vs. R (susceptible vs. resistant) - default TRUE.","code":""},{"path":"https://amr-for-r.org/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://amr-for-r.org/reference/proportion.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Calculate Antimicrobial Resistance — proportion","text":"automated comprehensive analysis, consider using antibiogram() wisca(), streamline many aspects susceptibility reporting , importantly, also support WISCA. functions described offer hands-, manual approach greater customisation. Remember filter data let contain first isolates! needed exclude duplicates reduce selection bias. Use first_isolate() determine data set one four available algorithms. function resistance() equal function proportion_R(). function susceptibility() equal function proportion_SI(). Since AMR v3.0, proportion_SI() proportion_I() include dose-dependent susceptibility ('SDD'). Use sir_confidence_interval() calculate confidence interval, relies binom.test(), .e., Clopper-Pearson method. function returns vector length 2 default antimicrobial resistance. Change side argument \"left\"/\"min\" \"right\"/\"max\" return single value, change ab_result argument e.g. c(\"S\", \"\") test antimicrobial susceptibility, see Examples. functions meant count isolates, calculate proportion resistance/susceptibility. Use count_*() functions count isolates. function susceptibility() essentially equal count_susceptible()/count_all(). Low counts can influence outcome - proportion_*() functions may camouflage , since return proportion (albeit dependent minimum argument). function proportion_df() takes variable data sir class (created .sir()) calculates proportions S, , R. also supports grouped variables. function sir_df() works exactly like proportion_df(), adds number isolates.","code":""},{"path":"https://amr-for-r.org/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 antimicrobials/variables test . See example two antimicrobials, 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   considered   considered  considered   considered                     susceptible    tested    susceptible    tested --------  --------  -----------  ----------  -----------  ----------  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://amr-for-r.org/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 (https://www.eucast.org/newsiandr). AMR package follows insight; use susceptibility() (equal proportion_SI()) determine antimicrobial susceptibility count_susceptible() (equal count_SI()) count susceptible isolates.","code":""},{"path":[]},{"path":"https://amr-for-r.org/reference/proportion.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Calculate Antimicrobial Resistance — proportion","text":"","code":"# example_isolates is a data set available in the AMR package. # run ?example_isolates for more info. example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI   R     NA    NA    NA  #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI   R     NA    NA    NA  #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS   R     NA    S     R   #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS   R     NA    S     R   #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR   R     NA    S     NA  #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …   # base R ------------------------------------------------------------ # determines %R resistance(example_isolates$AMX) #> [1] 0.5955556 sir_confidence_interval(example_isolates$AMX) #> [1] 0.5688204 0.6218738 sir_confidence_interval(example_isolates$AMX,   confidence_level = 0.975 ) #> [1] 0.5650148 0.6255670 sir_confidence_interval(example_isolates$AMX,   confidence_level = 0.975,   collapse = \", \" ) #> [1] \"0.565, 0.626\"  # determines %S+I: susceptibility(example_isolates$AMX) #> [1] 0.4044444 sir_confidence_interval(example_isolates$AMX,   ab_result = c(\"S\", \"I\") ) #> [1] 0.3781262 0.4311796  # be more specific proportion_S(example_isolates$AMX) #> [1] 0.4022222 proportion_SI(example_isolates$AMX) #> [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 antimicrobial 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://amr-for-r.org/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://amr-for-r.org/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, skew = \"right\",   severity = 1, ...)  random_disk(size = NULL, mo = NULL, ab = NULL, skew = \"left\",   severity = 1, ...)  random_sir(size = NULL, prob_SIR = c(0.33, 0.33, 0.33), ...)"},{"path":"https://amr-for-r.org/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(). Can length size. ab character can coerced valid antimicrobial drug code .ab(). skew Direction skew MIC disk values, either \"right\" \"left\". left-skewed distribution majority data right. severity Skew severity; higher values increase skewedness. Default 2; use 0 prevent skewedness. ... Ignored, place allow future extensions. prob_SIR vector length 3: probabilities \"S\" (1st value), \"\" (2nd value) \"R\" (3rd value).","code":""},{"path":"https://amr-for-r.org/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://amr-for-r.org/reference/random.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Random MIC Values/Disk Zones/SIR Generation — random","text":"Internally, MIC disk zone values sampled based clinical breakpoints defined clinical_breakpoints data set. create specific generated values per bug drug, set mo /ab argument. MICs sampled log2 scale disks linearly, using weighted probabilities. weights based skew severity arguments: skew = \"right\" places emphasis lower MIC higher disk values. skew = \"left\" places emphasis higher MIC lower disk values. severity controls exponential bias applied.","code":""},{"path":"https://amr-for-r.org/reference/random.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Random MIC Values/Disk Zones/SIR Generation — random","text":"","code":"random_mic(25) #> Class 'mic' #>  [1] 0.125    <=0.0001 0.004    0.004    0.5      0.032    1        0.008    #>  [9] 128      0.0002   0.002    0.002    32       0.032    0.0005   0.0002   #> [17] 0.008    0.001    0.0002   <=0.0001 0.064    0.016    0.008    4        #> [25] 1        random_disk(25) #> Class 'disk' #>  [1] 50 21 48 47 46 38 45 47 24 28 45 43 19 23 44 19 31 22 40 39 39 36 35 14 34 random_sir(25) #> Class 'sir' #>  [1] I S S R I S R I R I S S S R R R I I R R I S R R S  # add more skewedness, make more realistic by setting a bug and/or drug: disks <- random_disk(100, severity = 2, mo = \"Escherichia coli\", ab = \"CIP\") plot(disks)  # `plot()` and `ggplot2::autoplot()` allow for coloured bars if `mo` and `ab` are set plot(disks, mo = \"Escherichia coli\", ab = \"CIP\", guideline = \"CLSI 2025\")   # \\donttest{ random_mic(25, \"Klebsiella pneumoniae\") # range 0.0625-64 #> Class 'mic' #>  [1] 0.0001 0.0002 0.016  0.5    0.008  >=8    0.125  0.0002 0.002  0.0005 #> [11] 1      0.0001 0.25   0.0002 0.25   2      0.0005 0.064  0.5    0.004  #> [21] 0.001  0.064  0.032  0.0005 0.125  random_mic(25, \"Klebsiella pneumoniae\", \"meropenem\") # range 0.0625-16 #> Class 'mic' #>  [1] <=2 <=2 4   <=2 <=2 4   <=2 4   <=2 4   <=2 <=2 <=2 <=2 <=2 <=2 4   4   <=2 #> [20] 4   <=2 <=2 <=2 <=2 <=2 random_mic(25, \"Streptococcus pneumoniae\", \"meropenem\") # range 0.0625-4 #> Class 'mic' #>  [1] 2       <=0.064 1       <=0.064 <=0.064 2       <=0.064 0.25    0.25    #> [10] 2       <=0.064 <=0.064 <=0.064 <=0.064 0.25    0.5     0.5     0.25    #> [19] 0.125   0.125   4       0.25    1       <=0.064 <=0.064  random_disk(25, \"Klebsiella pneumoniae\") # range 8-50 #> Class 'disk' #>  [1] 14 19 19 33 33 26 16 27 29 33 24 17 17 15 16 26 26 14 17 29 25 25 24 32 32 random_disk(25, \"Klebsiella pneumoniae\", \"ampicillin\") # range 11-17 #> Class 'disk' #>  [1] 22 15 21 11 19 20 11 14 12 12 17 16 12 10 15 22 19 21 19 17 18 19 21 17 21 random_disk(25, \"Streptococcus pneumoniae\", \"ampicillin\") # range 12-27 #> Class 'disk' #>  [1] 21 25 16 29 27 24 31 22 35 28 26 32 24 18 35 33 24 28 33 25 35 25 32 24 26 # }"},{"path":"https://amr-for-r.org/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. Standard errors (SE) returned columns se_min se_max. See Examples real live example. NOTE: functions deprecated removed future version. Use AMR package combined tidymodels framework instead, written basic short introduction website.","code":""},{"path":"https://amr-for-r.org/reference/resistance_predict.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Predict Antimicrobial Resistance — resistance_predict","text":"","code":"resistance_predict(x, col_ab, col_date = NULL, year_min = NULL,   year_max = NULL, year_every = 1, minimum = 30, model = NULL,   I_as_S = TRUE, preserve_measurements = TRUE, info = interactive(), ...)  sir_predict(x, col_ab, col_date = NULL, year_min = NULL, year_max = NULL,   year_every = 1, minimum = 30, model = NULL, I_as_S = TRUE,   preserve_measurements = TRUE, info = interactive(), ...)  # S3 method for class 'resistance_predict' plot(x, main = paste(\"Resistance Prediction of\",   x_name), ...)  ggplot_sir_predict(x, main = paste(\"Resistance Prediction of\", x_name),   ribbon = TRUE, ...)  # S3 method for class 'resistance_predict' autoplot(object,   main = paste(\"Resistance Prediction of\", x_name), ribbon = TRUE, ...)"},{"path":"https://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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 (https://www.eucast.org/newsiandr). AMR package follows insight; use susceptibility() (equal proportion_SI()) determine antimicrobial susceptibility count_susceptible() (equal count_SI()) count susceptible isolates.","code":""},{"path":[]},{"path":"https://amr-for-r.org/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\" ) #> Warning: The `resistance_predict()` function is deprecated and will be removed in a #> future version, see `?AMR-deprecated`. Use the tidymodels framework #> instead, for which we have written a basic and short introduction on our #> website: https://amr-for-r.org/articles/AMR_with_tidymodels.html #> This warning will be shown once per session. plot(x)  # \\donttest{ if (require(\"ggplot2\")) {   ggplot_sir_predict(x) } #> Warning: Removed 8 rows containing missing values or values outside the scale range #> (`geom_ribbon()`).   # using dplyr: if (require(\"dplyr\")) {   x <- example_isolates %>%     filter_first_isolate() %>%     filter(mo_genus(mo) == \"Staphylococcus\") %>%     resistance_predict(\"PEN\", model = \"binomial\")   print(plot(x))    # get the model from the object   mymodel <- attributes(x)$model   summary(mymodel) }  #> NULL #>  #> Call: #> glm(formula = df_matrix ~ year, family = binomial) #>  #> Coefficients: #>             Estimate Std. Error z value Pr(>|z|) #> (Intercept) 35.76101   72.29172   0.495    0.621 #> year        -0.01720    0.03603  -0.477    0.633 #>  #> (Dispersion parameter for binomial family taken to be 1) #>  #>     Null deviance: 5.3681  on 11  degrees of freedom #> Residual deviance: 5.1408  on 10  degrees of freedom #> AIC: 50.271 #>  #> Number of Fisher Scoring iterations: 4 #>   # create nice plots with ggplot2 yourself if (require(\"dplyr\") && require(\"ggplot2\")) {   data <- example_isolates %>%     filter(mo == as.mo(\"E. coli\")) %>%     resistance_predict(       col_ab = \"AMX\",       col_date = \"date\",       model = \"binomial\",       info = FALSE,       minimum = 15     )   head(data)   autoplot(data) } #> Warning: Removed 16 rows containing missing values or values outside the scale range #> (`geom_ribbon()`).  # }"},{"path":"https://amr-for-r.org/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://amr-for-r.org/reference/skewness.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Skewness of the Sample — skewness","text":"","code":"skewness(x, na.rm = FALSE)  # Default S3 method skewness(x, na.rm = FALSE)  # S3 method for class 'matrix' skewness(x, na.rm = FALSE)  # S3 method for class 'data.frame' skewness(x, na.rm = FALSE)"},{"path":"https://amr-for-r.org/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://amr-for-r.org/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.03760694"},{"path":"https://amr-for-r.org/reference/top_n_microorganisms.html","id":null,"dir":"Reference","previous_headings":"","what":"Filter Top n Microorganisms — top_n_microorganisms","title":"Filter Top n Microorganisms — top_n_microorganisms","text":"function filters data set include top n microorganisms based specified property, taxonomic family genus. example, can filter data set top 3 species, species top 5 genera, top 3 species top 5 genera.","code":""},{"path":"https://amr-for-r.org/reference/top_n_microorganisms.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Filter Top n Microorganisms — top_n_microorganisms","text":"","code":"top_n_microorganisms(x, n, property = \"species\", n_for_each = NULL,   col_mo = NULL, ...)"},{"path":"https://amr-for-r.org/reference/top_n_microorganisms.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Filter Top n Microorganisms — top_n_microorganisms","text":"x data frame containing microbial data. n integer specifying maximum number unique values property include output. property character string indicating microorganism property use filtering. Must one column names microorganisms data set: \"mo\", \"fullname\", \"status\", \"kingdom\", \"phylum\", \"class\", \"order\", \"family\", \"genus\", \"species\", \"subspecies\", \"rank\", \"ref\", \"oxygen_tolerance\", \"source\", \"lpsn\", \"lpsn_parent\", \"lpsn_renamed_to\", \"mycobank\", \"mycobank_parent\", \"mycobank_renamed_to\", \"gbif\", \"gbif_parent\", \"gbif_renamed_to\", \"prevalence\", \"snomed\". NULL, raw values col_mo used without transformation. using \"species\" (default) \"subpecies\", genus added make sure (sub)species still belongs right genus. n_for_each optional integer specifying maximum number rows retain value selected property. NULL, rows within top n groups included. col_mo character string indicating column x contains microorganism names codes. Defaults first column class mo. Values coerced using .mo(). ... Additional arguments passed mo_property() property NULL.","code":""},{"path":"https://amr-for-r.org/reference/top_n_microorganisms.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Filter Top n Microorganisms — top_n_microorganisms","text":"function useful preprocessing data creating antibiograms analyses require focused subsets microbial data. example, can filter data set include isolates top 10 species.","code":""},{"path":[]},{"path":"https://amr-for-r.org/reference/top_n_microorganisms.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Filter Top n Microorganisms — top_n_microorganisms","text":"","code":"# filter to the top 3 species: top_n_microorganisms(example_isolates,   n = 3 ) #> # A tibble: 1,015 × 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-14 462729     78 M      Clinical B_STPHY_AURS   R     NA    S     R   #>  4 2002-01-14 462729     78 M      Clinical B_STPHY_AURS   R     NA    S     R   #>  5 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI   R     NA    NA    NA  #>  6 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI   R     NA    NA    NA  #>  7 2002-02-03 481442     76 M      ICU      B_STPHY_CONS   R     NA    S     NA  #>  8 2002-02-14 067927     45 F      ICU      B_STPHY_CONS   R     NA    R     NA  #>  9 2002-02-14 067927     45 F      ICU      B_STPHY_CONS   S     NA    S     NA  #> 10 2002-02-21 A56499     64 M      Clinical B_STPHY_CONS   S     NA    S     NA  #> # ℹ 1,005 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  # filter to any species in the top 5 genera: top_n_microorganisms(example_isolates,   n = 5, property = \"genus\" ) #> # A tibble: 1,742 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI   R     NA    NA    NA  #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI   R     NA    NA    NA  #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS   R     NA    S     R   #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS   R     NA    S     R   #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR   R     NA    S     NA  #> # ℹ 1,732 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  # filter to the top 3 species in each of the top 5 genera: top_n_microorganisms(example_isolates,   n = 5, property = \"genus\", n_for_each = 3 ) #> # A tibble: 1,497 × 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-04-08 130252     78 M      ICU      B_ENTRC_FCLS   NA    NA    NA    NA  #>  3 2002-06-23 798871     82 M      Clinical B_ENTRC_FCLS   NA    NA    NA    NA  #>  4 2002-06-23 798871     82 M      Clinical 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_ENTRC_FCLS   NA    NA    NA    NA  #>  8 2003-09-05 F35553     52 M      ICU      B_ENTRC        NA    NA    NA    NA  #>  9 2003-09-05 F35553     52 M      ICU      B_ENTRC_FCLS   NA    NA    NA    NA  #> 10 2003-09-28 1B0933     80 M      Clinical B_ENTRC        NA    NA    NA    NA  #> # ℹ 1,487 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …"},{"path":"https://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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), Arabic (ar), Bengali (bn), Chinese (zh), Czech (cs), Danish (da), Dutch (nl), Finnish (fi), French (fr), German (de), Greek (el), Hindi (hi), Indonesian (id), Italian (), Japanese (ja), Korean (ko), Norwegian (), Polish (pl), Portuguese (pt), Romanian (ro), Russian (ru), Spanish (es), Swahili (sw), Swedish (sv), Turkish (tr), Ukrainian (uk), Urdu (ur), Vietnamese (vi). x Text translate.","code":""},{"path":"https://amr-for-r.org/reference/translate.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Translate Strings from the AMR Package — translate","text":"currently 28 supported languages English (en), Arabic (ar), Bengali (bn), Chinese (zh), Czech (cs), Danish (da), Dutch (nl), Finnish (fi), French (fr), German (de), Greek (el), Hindi (hi), Indonesian (id), Italian (), Japanese (ja), Korean (ko), Norwegian (), Polish (pl), Portuguese (pt), Romanian (ro), Russian (ru), Spanish (es), Swahili (sw), Swedish (sv), Turkish (tr), Ukrainian (uk), Urdu (ur), Vietnamese (vi). 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://amr-for-r.org/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://amr-for-r.org/reference/translate.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Translate Strings from the AMR Package — translate","text":"","code":"# Current settings (based on system language) ab_name(\"Ciprofloxacin\") #> [1] \"Ciprofloxacin\" mo_name(\"Coagulase-negative Staphylococcus (CoNS)\") #> [1] \"Coagulase-negative Staphylococcus (CoNS)\"  # setting another language set_AMR_locale(\"Dutch\") #> ℹ Using Dutch (Nederlands) for the AMR package for this session. ab_name(\"Ciprofloxacin\") #> [1] \"Ciprofloxacine\" mo_name(\"Coagulase-negative Staphylococcus (CoNS)\") #> [1] \"Coagulase-negatieve Staphylococcus (CNS)\"  # setting yet another language set_AMR_locale(\"German\") #> ℹ Using German (Deutsch) for the AMR package for this session. ab_name(\"Ciprofloxacin\") #> [1] \"Ciprofloxacin\" mo_name(\"Coagulase-negative Staphylococcus (CoNS)\") #> [1] \"Koagulase-negative Staphylococcus (KNS)\"  # set_AMR_locale() understands endonyms, English exonyms, and ISO 639-1: set_AMR_locale(\"Deutsch\") #> ℹ Using German (Deutsch) for the AMR package for this session. set_AMR_locale(\"German\") #> ℹ Using German (Deutsch) for the AMR package for this session. set_AMR_locale(\"de\") #> ℹ Using German (Deutsch) for the AMR package for this session. ab_name(\"amox/clav\") #> [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":[]},{"path":"https://amr-for-r.org/news/index.html","id":"new-3-0-1-9009","dir":"Changelog","previous_headings":"","what":"New","title":"AMR 3.0.1.9009","text":"step_mic_log2() transform <mic> columns log2, step_sir_numeric() convert <sir> columns numeric New tidyselect helpers: all_sir(), all_sir_predictors(), all_mic(), all_mic_predictors(), all_disk(), all_disk_predictors() Data set esbl_isolates practise AMR modelling","code":""},{"path":"https://amr-for-r.org/news/index.html","id":"changed-3-0-1-9009","dir":"Changelog","previous_headings":"","what":"Changed","title":"AMR 3.0.1.9009","text":"Fixed bug antibiogram() antimicrobials set Added taniborbactam (TAN) cefepime/taniborbactam (FTA) antimicrobials data set Fixed bug .sir() numeric input arguments S, , R considered (#244) Added explaining message .sir() interpreting numeric values (e.g., 1 S, 2 , 3 R) (#244) Introduced four clearly defined options: \"none\", \"conservative\" (default), \"standard\", \"lenient\" Interpretation capped MIC values now consistently returns \"NI\" (non-interpretable) true MIC either side breakpoint, depending selected handling mode results reliable behaviour compared previous versions capped MIC values Removed \"inverse\" option, now become redundant","code":""},{"path":"https://amr-for-r.org/news/index.html","id":"amr-301","dir":"Changelog","previous_headings":"","what":"AMR 3.0.1","title":"AMR 3.0.1","text":"CRAN release: 2025-09-20 bugfix release following release v3.0.0 June 2025.","code":""},{"path":"https://amr-for-r.org/news/index.html","id":"changed-3-0-1","dir":"Changelog","previous_headings":"","what":"Changed","title":"AMR 3.0.1","text":"MIC scale functions (scale_y_mic()) now applied automatically plotting values class mic SIR scale functions (scale_x_sir()) now applied automatically plotting values class sir Fixed bug antibiogram() antimicrobials set Fixed bug antibiogram() allow column names containing + character (#222) Fixed bug .ab() antimicrobial codes number preceded space Fixed bug eucast_rules() using specific custom rules Fixed bug .sir() allow tidyselect language (#220) Fixed bug .sir() pick right breakpoint uti = FALSE (#216) Fixed bug ggplot_sir() using combine_SI = FALSE (#213) Fixed bug mdro() make sure genes specified arguments acknowledged Fixed bug antimicrobials data set remove statins (#229) Fixed bug microorganisms data set MycoBank IDs synonyms (#233) Fixed ATC J01CR05 map piperacillin/tazobactam rather piperacillin/sulbactam (#230) Fixed skimmers (skimr package) class ab, sir, disk (#234) Fixed plotting contain separate colour SDD (susceptible dose-dependent) (#223) Fixed specific Dutch translations antimicrobials Added warning .ab() input resembles antiviral codes names (#232) Added reasons verbose output mdro() (#227) Added names age_groups() custom names can given (#215) Added note .sir() make explicit higher-level taxonomic breakpoints used (#218) Added antibiotic codes Comprehensive Antibiotic Resistance Database (CARD) antimicrobials data set (#225) Updated Fosfomycin antibiotic class Phosphonics (#225) Updated random_mic() random_disk() set skewedness distribution allow multiple microorganisms","code":""},{"path":"https://amr-for-r.org/news/index.html","id":"amr-300","dir":"Changelog","previous_headings":"","what":"AMR 3.0.0","title":"AMR 3.0.0","text":"CRAN release: 2025-06-02 package now supports tools AMR data analysis clinical settings, also veterinary environmental microbiology. made possible collaboration University Prince Edward Island’s Atlantic Veterinary College, Canada. celebrate great improvement package, also updated package logo reflect change.","code":""},{"path":"https://amr-for-r.org/news/index.html","id":"breaking-3-0-0","dir":"Changelog","previous_headings":"","what":"Breaking","title":"AMR 3.0.0","text":"Data set antibiotics renamed antimicrobials data set contains just antibiotics. Using antibiotics still work, now returns warning. Removed functions references used deprecated rsi class, replaced sir equivalents two years ago. Functions resistance_predict() sir_predict() now deprecated removed future version. Use tidymodels framework instead, wrote basic introduction.","code":""},{"path":"https://amr-for-r.org/news/index.html","id":"new-3-0-0","dir":"Changelog","previous_headings":"","what":"New","title":"AMR 3.0.0","text":"Function .sir() now extensive support veterinary breakpoints CLSI. Use breakpoint_type = \"animal\" set host argument variable contains animal species names. clinical_breakpoints data set contains breakpoints, can downloaded download page. (new) antimicrobials data set contains veterinary antimicrobials, pradofloxacin enrofloxacin. WHOCC codes veterinary use added well. ab_atc() now supports ATC codes veterinary antimicrobials (start “Q”) ab_url() now supports retrieving WHOCC url ATCvet pages antibiogram() function now supports creating true Weighted-Incidence Syndromic Combination Antibiograms (WISCA), powerful Bayesian method estimating regimen coverage probabilities using pathogen incidence antimicrobial susceptibility data. WISCA offers improved precision syndrome-specific treatment, even data sets sparse data. dedicated wisca() function also available easy usage. Added full support 8 new languages: Arabic, Bengali, Hindi, Indonesian, Korean, Swahili, Urdu, Vietnamese. AMR package now available 28 languages. MycoBank now integrated primary taxonomic source fungi. microorganisms data set enriched new columns (mycobank, mycobank_parent, mycobank_renamed_to) provide detailed information fungal species. remarkable addition 20,000 new fungal records New function mo_mycobank() retrieve MycoBank record number, analogous existing functions mo_lpsn() mo_gbif(). .mo() function mo_*() functions now include only_fungi argument, allowing users restrict results solely fungal species. ensures fungi prioritised bacteria microorganism identification. can also set globally new AMR_only_fungi option. Also updated kingdoms, welcoming total 2,149 new records 2023 927 2024. Breakpoint 2024 2025 CLSI EUCAST now supported, adding 10,000 new clinical breakpoints clinical_breakpoints data set usage .sir(). EUCAST 2025 now new default guideline MIC disk diffusion interpretations. Added Expected Resistant Phenotypes EUCAST (v1.2). default rules eucast_rules() now: c(\"breakpoints\", \"expected_phenotypes\"). Updated intrinsic_resistant data set, now based EUCAST Expected Resistant Phenotypes v1.2 .sir() now brings additional factor levels: “NI” non-interpretable “SDD” susceptible dose-dependent. Currently, clinical_breakpoints data set contains 24 breakpoints can return value “SDD” instead “”. EUCAST interpretive rules (using eucast_rules()) now available EUCAST 12 (2022), 13 (2023), 14 (2024), 15 (2025). EUCAST dosage tables (dosage data set) now available EUCAST 13 (2023), 14 (2024), 15 (2025). New function group scale_*_mic(), namely: scale_x_mic(), scale_y_mic(), scale_colour_mic() scale_fill_mic(). allow easy plotting MIC values. allow manual range definition plotting missing intermediate log2 levels. New function group scale_*_sir(), namely: scale_x_sir(), scale_colour_sir() scale_fill_sir(). allow plot sir class, translates system language default. also set colourblind-safe colours plots. New function rescale_mic(), allows users rescale MIC values manually set range. powerhouse behind scale_*_mic() functions, can used independently , instance, compare equality MIC distributions rescaling range first. using R heavy lifting, ‘AMR’ Python Package developed run AMR R package natively Python. Python package always version number R package, built automatically every code change. antimicrobial selectors (aminoglycosides() betalactams()) now supported tidymodels packages recipe parsnip. See info tutorial using AMR functions predictive modelling. New function top_n_microorganisms() filter data set top n taxonomic property, e.g., filter top 3 species, filter species top 5 genera, filter top 3 species top 5 genera New function mo_group_members() retrieve member microorganisms microorganism group. example, mo_group_members(\"Strep group C\") returns vector microorganisms belong group. New functions mic_p50() mic_p90() retrieve 50th 90th percentile MIC values.","code":""},{"path":"https://amr-for-r.org/news/index.html","id":"changed-3-0-0","dir":"Changelog","previous_headings":"","what":"Changed","title":"AMR 3.0.0","text":"Support parallel computing greatly improve speed using parallel package (part base R). Use .sir(your_data, parallel = TRUE) run SIR interpretation using multiple cores. now possible use column names arguments guideline, ab, mo, uti: .sir(..., ab = \"column1\", mo = \"column2\", uti = \"column3\"). greatly improves flexibility users. Users can now set criteria (using regular expressions) considered S, , R, SDD, NI. get quantitative values, .double() sir object return 1 S, 2 SDD/, 3 R (NI become NA). functions using sir classes (e.g., summary()) updated reflect change contain NI SDD. Following CLSI interpretation rules, values outside log2-dilution range rounded upwards nearest log2-level interpretation. using CLSI guideline. Combined MIC values (e.g., CLSI) now supported argument conserve_capped_values .sir() replaced capped_mic_handling, allows greater flexibility handling capped MIC values (<, <=, >, >=). four available options (\"standard\", \"strict\", \"relaxed\", \"inverse\") provide full control whether values interpreted conservatively ignored. Using conserve_capped_values now deprecated returns warning. Added argument info silence console messages Argument antibiotics renamed antimicrobials. Using antibiotics still work, now returns warning. Added argument formatting_type set 22 options formatting ‘cells’. defaults 18 non-WISCA 14 WISCA, changing output antibiograms cells info. reason, add_total_n now deprecated FALSE default since denominators added cells dependent formatting_type setting ab_transform argument now defaults \"name\", displaying antibiotic column names instead codes ‘Antibiotic selectors’ now called ‘antimicrobial selectors’ since scope broader just antibiotics. documentation updated, ab_class() ab_selector() replaced amr_class() amr_selector(). old functions now deprecated removed future version. Added selectors isoxazolylpenicillins(), monobactams(), nitrofurans(), phenicols(), rifamycins(), sulfonamides() using antimicrobial selectors exclude non-treatable drugs (gentamicin-high using aminoglycosides()), function now always returns warning can included using only_treatable = FALSE Added new argument return_all selectors, defaults TRUE include match. FALSE, old behaviour, first hit unique antimicrobial returned. selectors can now run separate command retrieve vector possible antimicrobials selector can select selectors lincosamides() macrolides() overlap anymore - antibiotic now classified either Fixed selector fluoroquinolones(), now really selects second-generation quinolones (first-generation quinolones contain fluorine group) Added agents used screening, ID ending -S: benzylpenicillin screening test (PEN-S), beta-lactamase screening test (BLA-S), cefotaxime screening test (CTX-S), clindamycin inducible screening test (CLI-S), nalidixic acid screening test (NAL-S), norfloxacin screening test (-S), oxacillin screening test (OXA-S), pefloxacin screening test (PEF-S), tetracycline screening test (TCY-S). ID cefoxitin screening renamed FOX1 FOX-S, old code remains work. reason, antimicrobial selectors cephalosporins(), cephalosporins_3rd(), lincosamides(), isoxazolylpenicillins(), quinolones(), fluoroquinolones(), tetracyclines() now contain argument only_treatable = TRUE (similar antimicrobial selectors contain non-treatable drugs) Added amorolfine (AMO, D01AE16), antimycotic, now also part antifungals() selector Added cefepime/enmetazobactam (FPE), 4th gen cephalosporin Added tigemonam (TNM), monobactam Added bleomycin (BLM), glycopeptide Added efflux (EFF), allow mapping AMRFinderPlus Updated ATC codes, trade names, DDDs Added valid levels: 4096, 6 powers 0.0625, 5 powers 192 (192, 384, 576, 768, 960) Fixed bug .mic() failed translation scientifically formatted numbers Added new argument keep_operators .mic(). can \"\" (default), \"none\", \"edges\". argument also available new rescale_mic() scale_*_mic() functions. Comparisons MIC values now strict. example, >32 higher (never equal ) 32. Thus, .mic(\">32\") == .mic(32) now returns FALSE, .mic(\">32\") > .mic(32) now returns TRUE. Sorting MIC values (using sort()) fixed manner; <0.001 now gets sorted 0.001, >0.001 gets sorted 0.001. Intermediate log2 levels used MIC plotting now common values instead following strict dilution range .mic() now returns vector TRUE/FALSE input data.frame, just like .sir() eucast_rules() now argument overwrite (default: FALSE) indicate whether non-NA values overwritten Disks 0 5 mm now allowed, newly allowed range disk diffusion (.disk()) now 0 50 mm Updated italicise_taxonomy() support HTML output custom_eucast_rules() now supports multiple antimicrobials antimicrobial groups affected single rule mo_info() now contains extra element rank group_members (contents new mo_group_members() function) Updated ATC codes WHOCC Updated antimicrobial DDDs WHOCC Fix using manual value mo_transform antibiogram() Fixed bug antibiogram() returns empty data set Argument only_sir_columns now defaults TRUE column data set contains class ‘sir’ (functions eucast_rules(), key_antimicrobials(), mdro(), etc.) Added Sensititre codes animals, antimicrobials microorganisms Fix mapping ‘high level’ antimicrobials .ab() (amphotericin B-high, gentamicin-high, kanamycin-high, streptomycin-high, tobramycin-high) Improved overall algorithm .ab() better performance accuracy, including new function as_reset_session() remove earlier coercions. weight given genus species combinations cases subspecies miswritten, result correct genus species Genera World Health Organization’s () Priority Pathogen List now highest prevalence Fixed bug sir_confidence_interval() isolates available Updated prevalence calculation include genera World Health Organization’s () Priority Pathogen List Improved algorithm first_isolate() using phenotype-based method, prioritise records highest availability SIR values scale_y_percent() can now cope ranges outside 0-100% range Verbose Mode (verbose = TRUE) now includes guideline name Implemented new Dutch national MDRO guideline (SRI-richtlijn BRMO, Nov 2024) Added arguments esbl, carbapenemase, mecA, mecC, vanA, vanB denote column names logical values indicating presence genes (production proteins) Added upport antimicrobial selectors use custom rule (custom_mdro_guideline()) Added console colours support sir class Positron","code":""},{"path":"https://amr-for-r.org/news/index.html","id":"other-3-0-0","dir":"Changelog","previous_headings":"","what":"Other","title":"AMR 3.0.0","text":"New website domain: https://amr--r.org! old domain remain work. Added Dr. Larisse Bolton Aislinn Cook contributors fantastic implementation WISCA mathematically solid way Added Matthew Saab, Dr. Jordan Stull, Prof. Javier Sanchez contributors tremendous input veterinary breakpoints interpretations Added Prof. Kathryn Holt, Dr. Jane Hawkey, Dr. Natacha Couto contributors many suggestions, ideas bugfixes Greatly improved vctrs integration, Tidyverse package working background many Tidyverse functions. users, means functions dplyr’s bind_rows(), rowwise() c_across() now supported e.g. columns class mic. Despite , AMR package still zero-dependent package, including dplyr vctrs. Greatly updated expanded documentation Stopped support SAS (.xpt) files, since file structure extremely inefficient requires disk space GitHub allows single commit.","code":""},{"path":"https://amr-for-r.org/news/index.html","id":"older-versions-3-0-0","dir":"Changelog","previous_headings":"","what":"Older Versions","title":"AMR 3.0.0","text":"changelog contains changes AMR v3.0 (June 2025) later. prior v2 versions, please see v2 archive. prior v1 versions, please see v1 archive.","code":""}]
+[{"path":"https://amr-for-r.org/articles/AMR.html","id":"introduction","dir":"Articles","previous_headings":"","what":"Introduction","title":"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 drugs, determination (multi-drug) resistant microorganisms, calculation antimicrobial resistance, prevalence future trends.","code":""},{"path":"https://amr-for-r.org/articles/AMR.html","id":"preparation","dir":"Articles","previous_headings":"","what":"Preparation","title":"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://amr-for-r.org/articles/AMR.html","id":"needed-r-packages","dir":"Articles","previous_headings":"Preparation","what":"Needed R packages","title":"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     #> # ℹ 2,990 more rows  # we will use 'our_data' as the data set name for this tutorial our_data <- example_isolates_unclean"},{"path":"https://amr-for-r.org/articles/AMR.html","id":"taxonomy-of-microorganisms","dir":"Articles","previous_headings":"Preparation","what":"Taxonomy of microorganisms","title":"Conduct AMR data analysis","text":".mo(), users can transform arbitrary microorganism names codes current taxonomy. AMR package contains --date taxonomic data. specific, currently included data retrieved 24 Jun 2024. codes AMR packages come .mo() short, still human readable. importantly, .mo() supports kinds input: first character codes denote taxonomic kingdom, Bacteria (B), Fungi (F), Protozoa (P). AMR package also contain functions directly retrieve taxonomic properties, name, genus, species, family, order, even Gram-stain. start mo_ use .mo() internally, still arbitrary user input can used: Now can thus clean data: Apparently, uncertainty translation taxonomic codes. Let’s check : ’s good.","code":"as.mo(\"Klebsiella pneumoniae\") #> Class 'mo' #> [1] B_KLBSL_PNMN as.mo(\"K. pneumoniae\") #> Class 'mo' #> [1] B_KLBSL_PNMN as.mo(\"KLEPNE\") #> Class 'mo' #> [1] B_KLBSL_PNMN as.mo(\"KLPN\") #> Class 'mo' #> [1] B_KLBSL_PNMN mo_family(\"K. pneumoniae\") #> [1] \"Enterobacteriaceae\" mo_genus(\"K. pneumoniae\") #> [1] \"Klebsiella\" mo_species(\"K. pneumoniae\") #> [1] \"pneumoniae\"  mo_gramstain(\"Klebsiella pneumoniae\") #> [1] \"Gram-negative\"  mo_ref(\"K. pneumoniae\") #> [1] \"Trevisan, 1887\"  mo_snomed(\"K. pneumoniae\") #> [[1]] #> [1] \"1098101000112102\" \"446870005\"        \"1098201000112108\" \"409801009\"        #> [5] \"56415008\"         \"714315002\"        \"713926009\" our_data$bacteria <- as.mo(our_data$bacteria, info = TRUE) #> ℹ Retrieved values from the `microorganisms.codes` data set for \"ESCCOL\", #>   \"KLEPNE\", \"STAAUR\", and \"STRPNE\". #> ℹ 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`. #> Colour keys:  0.000-0.549  0.550-0.649  0.650-0.749  0.750-1.000  #>  #> -------------------------------------------------------------------------------- #> \"E. coli\" -> Escherichia coli (B_ESCHR_COLI, 0.688) #> Also matched: Enterococcus crotali (0.650), Escherichia coli coli #>               (0.643), Escherichia coli expressing (0.611), Enterobacter cowanii #>               (0.600), Enterococcus columbae (0.595), Enterococcus camelliae (0.591), #>               Enterococcus casseliflavus (0.577), Enterobacter cloacae cloacae #>               (0.571), Enterobacter cloacae complex (0.571), and Enterobacter cloacae #>               dissolvens (0.565) #> -------------------------------------------------------------------------------- #> \"K. pneumoniae\" -> Klebsiella pneumoniae (B_KLBSL_PNMN, 0.786) #> Also matched: Klebsiella pneumoniae complex (0.707), Klebsiella #>               pneumoniae ozaenae (0.707), Klebsiella pneumoniae pneumoniae (0.688), #>               Klebsiella pneumoniae rhinoscleromatis (0.658), Klebsiella pasteurii #>               (0.500), Klebsiella planticola (0.500), Kingella potus (0.400), #>               Kluyveromyces pseudotropicale (0.386), Kluyveromyces pseudotropicalis #>               (0.363), and Kosakonia pseudosacchari (0.361) #> -------------------------------------------------------------------------------- #> \"S. aureus\" -> Staphylococcus aureus (B_STPHY_AURS, 0.690) #> Also matched: Staphylococcus aureus aureus (0.643), Staphylococcus #>               argenteus (0.625), Staphylococcus aureus anaerobius (0.625), #>               Staphylococcus auricularis (0.615), Salmonella Aurelianis (0.595), #>               Salmonella Aarhus (0.588), Salmonella Amounderness (0.587), #>               Staphylococcus argensis (0.587), Streptococcus australis (0.587), and #>               Salmonella choleraesuis arizonae (0.562) #> -------------------------------------------------------------------------------- #> \"S. pneumoniae\" -> Streptococcus pneumoniae (B_STRPT_PNMN, 0.750) #> Also matched: Streptococcus pseudopneumoniae (0.700), Streptococcus #>               phocae salmonis (0.552), Serratia proteamaculans quinovora (0.545), #>               Streptococcus pseudoporcinus (0.536), Staphylococcus piscifermentans #>               (0.533), Staphylococcus pseudintermedius (0.532), Serratia #>               proteamaculans proteamaculans (0.526), Streptococcus gallolyticus #>               pasteurianus (0.526), Salmonella Portanigra (0.524), and Streptococcus #>               periodonticum (0.519) #>  #> Only the first 10 other matches of each record are shown. Run #> `print(mo_uncertainties(), n = ...)` to view more entries, or save #> `mo_uncertainties()` to an object."},{"path":"https://amr-for-r.org/articles/AMR.html","id":"antibiotic-results","dir":"Articles","previous_headings":"Preparation","what":"Antibiotic results","title":"Conduct AMR data analysis","text":"column antibiotic test results must also cleaned. AMR package comes three new data types work test results: mic minimal inhibitory concentrations (MIC), disk disk diffusion diameters, sir SIR data interpreted already. package can also determine SIR values based MIC disk diffusion values, read .sir() page. now, just clean SIR columns data using dplyr: basically cleaning, time start data inclusion.","code":"# method 1, be explicit about the columns: our_data <- our_data %>%   mutate_at(vars(AMX:GEN), as.sir)  # method 2, let the AMR package determine the eligible columns our_data <- our_data %>%   mutate_if(is_sir_eligible, as.sir)  # result: our_data #> # A tibble: 3,000 × 8 #>    patient_id hospital date       bacteria     AMX   AMC   CIP   GEN   #>    <chr>      <chr>    <date>     <mo>         <sir> <sir> <sir> <sir> #>  1 J3         A        2012-11-21 B_ESCHR_COLI   R     I     S     S   #>  2 R7         A        2018-04-03 B_KLBSL_PNMN   R     I     S     S   #>  3 P3         A        2014-09-19 B_ESCHR_COLI   R     S     S     S   #>  4 P10        A        2015-12-10 B_ESCHR_COLI   S     I     S     S   #>  5 B7         A        2015-03-02 B_ESCHR_COLI   S     S     S     S   #>  6 W3         A        2018-03-31 B_STPHY_AURS   R     S     R     S   #>  7 J8         A        2016-06-14 B_ESCHR_COLI   R     S     S     S   #>  8 M3         A        2015-10-25 B_ESCHR_COLI   R     S     S     S   #>  9 J3         A        2019-06-19 B_ESCHR_COLI   S     S     S     S   #> 10 G6         A        2015-04-27 B_STPHY_AURS   S     S     S     S   #> # ℹ 2,990 more rows"},{"path":"https://amr-for-r.org/articles/AMR.html","id":"first-isolates","dir":"Articles","previous_headings":"Preparation","what":"First isolates","title":"Conduct AMR data analysis","text":"need know isolates can actually use analysis without repetition bias. conduct analysis antimicrobial resistance, must include first isolate every patient per episode (Hindler et al., Clin Infect Dis. 2007). , easily get overestimate underestimate resistance antibiotic. Imagine patient admitted MRSA found 5 different blood cultures following weeks (yes, countries like Netherlands blood drawing policies). resistance percentage oxacillin isolates overestimated, included MRSA . clearly selection bias. Clinical Laboratory Standards Institute (CLSI) appoints follows: (…) preparing cumulative antibiogram guide clinical decisions empirical antimicrobial therapy initial infections, first isolate given species per patient, per analysis period (eg, one year) included, irrespective body site, antimicrobial susceptibility profile, phenotypical characteristics (eg, biotype). first isolate easily identified, cumulative antimicrobial susceptibility test data prepared using first isolate generally comparable cumulative antimicrobial susceptibility test data calculated methods, providing duplicate isolates excluded. M39-A4 Analysis Presentation Cumulative Antimicrobial Susceptibility Test Data, 4th Edition. CLSI, 2014. Chapter 6.4 AMR package includes methodology first_isolate() function able apply four different methods defined Hindler et al. 2007: phenotype-based, episode-based, patient-based, isolate-based. right method depends goals analysis, default phenotype-based method case method properly correct duplicate isolates. Read methods first_isolate() page. outcome function can easily added data: 91% suitable resistance analysis! can now filter filter() function, also dplyr package: future use, two syntaxes can shortened: end 2 730 isolates analysis. Now data looks like: Time analysis.","code":"our_data <- our_data %>%   mutate(first = first_isolate(info = TRUE)) #> ℹ Determining first isolates using an episode length of 365 days #> ℹ Using column 'bacteria' as input for `col_mo`. #> ℹ Using column 'date' as input for `col_date`. #> ℹ Using column 'patient_id' as input for `col_patient_id`. #> ℹ Basing inclusion on all antimicrobial results, using a points threshold #>   of 2 #> => Found 2,730 'phenotype-based' first isolates (91.0% 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,730 × 9 #>    patient_id hospital date       bacteria     AMX   AMC   CIP   GEN   first #>    <chr>      <chr>    <date>     <mo>         <sir> <sir> <sir> <sir> <lgl> #>  1 J3         A        2012-11-21 B_ESCHR_COLI   R     I     S     S   TRUE  #>  2 R7         A        2018-04-03 B_KLBSL_PNMN   R     I     S     S   TRUE  #>  3 P3         A        2014-09-19 B_ESCHR_COLI   R     S     S     S   TRUE  #>  4 P10        A        2015-12-10 B_ESCHR_COLI   S     I     S     S   TRUE  #>  5 B7         A        2015-03-02 B_ESCHR_COLI   S     S     S     S   TRUE  #>  6 W3         A        2018-03-31 B_STPHY_AURS   R     S     R     S   TRUE  #>  7 M3         A        2015-10-25 B_ESCHR_COLI   R     S     S     S   TRUE  #>  8 J3         A        2019-06-19 B_ESCHR_COLI   S     S     S     S   TRUE  #>  9 G6         A        2015-04-27 B_STPHY_AURS   S     S     S     S   TRUE  #> 10 P4         A        2011-06-21 B_ESCHR_COLI   S     S     S     S   TRUE  #> # ℹ 2,720 more rows"},{"path":"https://amr-for-r.org/articles/AMR.html","id":"analysing-the-data","dir":"Articles","previous_headings":"","what":"Analysing the data","title":"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:2730        Length:2730        Min.   :2011-01-01   #>  Class :character   Class :character   1st Qu.:2013-04-06   #>  Mode  :character   Mode  :character   Median :2015-06-04   #>                                        Mean   :2015-06-09   #>                                        3rd Qu.:2017-08-14   #>                                        Max.   :2019-12-27   #>    bacteria               AMX                    AMC                 #>  Class :mo             Class:sir              Class:sir              #>  <NA>  :0              %S   :40.1% (n=1071)   %S   :51.1% (n=1354)   #>  Unique:4              %SDD : 0.0% (n=0)      %SDD : 0.0% (n=0)      #>  #1    :B_ESCHR_COLI   %I   :17.0% (n=453)    %I   :12.7% (n=335)    #>  #2    :B_STPHY_AURS   %R   :42.9% (n=1147)   %R   :36.2% (n=959)    #>  #3    :B_STRPT_PNMN   %NI  : 0.0% (n=0)      %NI  : 0.0% (n=0)      #>     CIP                    GEN                  first         #>  Class:sir              Class:sir              Mode:logical   #>  %S   :52.2% (n=1426)   %S   :60.7% (n=1656)   TRUE:2730      #>  %SDD : 0.0% (n=0)      %SDD : 0.0% (n=0)                     #>  %I   : 6.5% (n=178)    %I   : 3.0% (n=83)                    #>  %R   :41.2% (n=1126)   %R   :36.3% (n=991)                   #>  %NI  : 0.0% (n=0)      %NI  : 0.0% (n=0)  glimpse(our_data_1st) #> Rows: 2,730 #> Columns: 9 #> $ patient_id <chr> \"J3\", \"R7\", \"P3\", \"P10\", \"B7\", \"W3\", \"M3\", \"J3\", \"G6\", \"P4\"… #> $ hospital   <chr> \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\",… #> $ date       <date> 2012-11-21, 2018-04-03, 2014-09-19, 2015-12-10, 2015-03-02… #> $ bacteria   <mo> \"B_ESCHR_COLI\", \"B_KLBSL_PNMN\", \"B_ESCHR_COLI\", \"B_ESCHR_COL… #> $ AMX        <sir> R, R, R, S, S, R, R, S, S, S, S, R, S, S, R, R, R, R, S, R,… #> $ AMC        <sir> I, I, S, I, S, S, S, S, S, S, S, S, S, S, S, S, S, R, S, S,… #> $ CIP        <sir> S, S, S, S, S, R, S, S, S, S, S, S, S, S, S, S, S, S, S, S,… #> $ GEN        <sir> S, S, S, S, S, S, S, S, S, S, S, R, S, S, S, S, S, S, S, S,… #> $ first      <lgl> TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE,…  # number of unique values per column: sapply(our_data_1st, n_distinct) #> patient_id   hospital       date   bacteria        AMX        AMC        CIP  #>        260          3       1854          4          4          4          3  #>        GEN      first  #>          3          1"},{"path":"https://amr-for-r.org/articles/AMR.html","id":"availability-of-species","dir":"Articles","previous_headings":"Analysing the data","what":"Availability of species","title":"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          1326 #> 2 Staphylococcus aureus      684 #> 3 Streptococcus pneumoniae   401 #> 4 Klebsiella pneumoniae      319"},{"path":"https://amr-for-r.org/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":"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,730 × 2 #>    date       GEN   #>    <date>     <sir> #>  1 2012-11-21   S   #>  2 2018-04-03   S   #>  3 2014-09-19   S   #>  4 2015-12-10   S   #>  5 2015-03-02   S   #>  6 2018-03-31   S   #>  7 2015-10-25   S   #>  8 2019-06-19   S   #>  9 2015-04-27   S   #> 10 2011-06-21   S   #> # ℹ 2,720 more rows  our_data_1st %>%   select(bacteria, betalactams()) #> ℹ For `betalactams()` using columns 'AMX' (amoxicillin) and 'AMC' #>   (amoxicillin/clavulanic acid) #> # A tibble: 2,730 × 3 #>    bacteria     AMX   AMC   #>    <mo>         <sir> <sir> #>  1 B_ESCHR_COLI   R     I   #>  2 B_KLBSL_PNMN   R     I   #>  3 B_ESCHR_COLI   R     S   #>  4 B_ESCHR_COLI   S     I   #>  5 B_ESCHR_COLI   S     S   #>  6 B_STPHY_AURS   R     S   #>  7 B_ESCHR_COLI   R     S   #>  8 B_ESCHR_COLI   S     S   #>  9 B_STPHY_AURS   S     S   #> 10 B_ESCHR_COLI   S     S   #> # ℹ 2,720 more rows  our_data_1st %>%   select(bacteria, where(is.sir)) #> # A tibble: 2,730 × 5 #>    bacteria     AMX   AMC   CIP   GEN   #>    <mo>         <sir> <sir> <sir> <sir> #>  1 B_ESCHR_COLI   R     I     S     S   #>  2 B_KLBSL_PNMN   R     I     S     S   #>  3 B_ESCHR_COLI   R     S     S     S   #>  4 B_ESCHR_COLI   S     I     S     S   #>  5 B_ESCHR_COLI   S     S     S     S   #>  6 B_STPHY_AURS   R     S     R     S   #>  7 B_ESCHR_COLI   R     S     S     S   #>  8 B_ESCHR_COLI   S     S     S     S   #>  9 B_STPHY_AURS   S     S     S     S   #> 10 B_ESCHR_COLI   S     S     S     S   #> # ℹ 2,720 more rows  # filtering using AB selectors is also possible: our_data_1st %>%   filter(any(aminoglycosides() == \"R\")) #> ℹ For `aminoglycosides()` using column 'GEN' (gentamicin) #> # A tibble: 991 × 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  #> # ℹ 981 more rows  our_data_1st %>%   filter(all(betalactams() == \"R\")) #> ℹ For `betalactams()` using columns 'AMX' (amoxicillin) and 'AMC' #>   (amoxicillin/clavulanic acid) #> # A tibble: 461 × 9 #>    patient_id hospital date       bacteria     AMX   AMC   CIP   GEN   first #>    <chr>      <chr>    <date>     <mo>         <sir> <sir> <sir> <sir> <lgl> #>  1 M7         A        2013-07-22 B_STRPT_PNMN   R     R     S     S   TRUE  #>  2 R10        A        2013-12-20 B_STPHY_AURS   R     R     S     S   TRUE  #>  3 R7         A        2015-10-25 B_STPHY_AURS   R     R     S     S   TRUE  #>  4 R8         A        2019-10-25 B_STPHY_AURS   R     R     S     S   TRUE  #>  5 B6         A        2016-11-20 B_ESCHR_COLI   R     R     R     R   TRUE  #>  6 I7         A        2015-08-19 B_ESCHR_COLI   R     R     S     S   TRUE  #>  7 N3         A        2014-12-29 B_STRPT_PNMN   R     R     R     S   TRUE  #>  8 Q2         A        2019-09-22 B_ESCHR_COLI   R     R     S     S   TRUE  #>  9 X7         A        2011-03-20 B_ESCHR_COLI   R     R     S     R   TRUE  #> 10 V1         A        2018-08-07 B_STPHY_AURS   R     R     S     S   TRUE  #> # ℹ 451 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: 461 × 9 #>    patient_id hospital date       bacteria     AMX   AMC   CIP   GEN   first #>    <chr>      <chr>    <date>     <mo>         <sir> <sir> <sir> <sir> <lgl> #>  1 M7         A        2013-07-22 B_STRPT_PNMN   R     R     S     S   TRUE  #>  2 R10        A        2013-12-20 B_STPHY_AURS   R     R     S     S   TRUE  #>  3 R7         A        2015-10-25 B_STPHY_AURS   R     R     S     S   TRUE  #>  4 R8         A        2019-10-25 B_STPHY_AURS   R     R     S     S   TRUE  #>  5 B6         A        2016-11-20 B_ESCHR_COLI   R     R     R     R   TRUE  #>  6 I7         A        2015-08-19 B_ESCHR_COLI   R     R     S     S   TRUE  #>  7 N3         A        2014-12-29 B_STRPT_PNMN   R     R     R     S   TRUE  #>  8 Q2         A        2019-09-22 B_ESCHR_COLI   R     R     S     S   TRUE  #>  9 X7         A        2011-03-20 B_ESCHR_COLI   R     R     S     R   TRUE  #> 10 V1         A        2018-08-07 B_STPHY_AURS   R     R     S     S   TRUE  #> # ℹ 451 more rows"},{"path":"https://amr-for-r.org/articles/AMR.html","id":"generate-antibiograms","dir":"Articles","previous_headings":"Analysing the data","what":"Generate antibiograms","title":"Conduct AMR data analysis","text":"Since AMR v2.0 (March 2023), easy create different types antibiograms, support 20 different languages. four antibiogram types, proposed Klinker et al. (2021, DOI 10.1177/20499361211011373), supported new antibiogram() function: Traditional Antibiogram (TA) e.g, susceptibility Pseudomonas aeruginosa piperacillin/tazobactam (TZP) Combination Antibiogram (CA) e.g, sdditional susceptibility Pseudomonas aeruginosa TZP + tobramycin versus TZP alone Syndromic Antibiogram (SA) e.g, susceptibility Pseudomonas aeruginosa TZP among respiratory specimens (obtained among ICU patients ) Weighted-Incidence Syndromic Combination Antibiogram (WISCA) e.g, susceptibility Pseudomonas aeruginosa TZP among respiratory specimens (obtained among ICU patients ) male patients age >=65 years heart failure section, show use antibiogram() function create antibiogram types. starters, included example_isolates data set looks like:","code":"example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI   R     NA    NA    NA  #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI   R     NA    NA    NA  #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS   R     NA    S     R   #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS   R     NA    S     R   #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR   R     NA    S     NA  #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …"},{"path":"https://amr-for-r.org/articles/AMR.html","id":"traditional-antibiogram","dir":"Articles","previous_headings":"Analysing the data > Generate antibiograms","what":"Traditional Antibiogram","title":"Conduct AMR data analysis","text":"create traditional antibiogram, simply state antibiotics used. antibiotics argument antibiogram() function supports (combination) previously mentioned antibiotic class selectors: Notice antibiogram() function automatically prints right format using Quarto R Markdown (page), even applies italics taxonomic names (using italicise_taxonomy() internally). also uses language OS either English, Arabic, Bengali, Chinese, Czech, Danish, Dutch, Finnish, French, German, Greek, Hindi, Indonesian, Italian, Japanese, Korean, Norwegian, Polish, Portuguese, Romanian, Russian, Spanish, Swahili, Swedish, Turkish, Ukrainian, Urdu, Vietnamese. next example, force language Spanish using language argument:","code":"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) antibiogram(example_isolates,             mo_transform = \"gramstain\",             antibiotics = aminoglycosides(),             ab_transform = \"name\",             language = \"es\") #> ℹ For `aminoglycosides()` using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin)"},{"path":"https://amr-for-r.org/articles/AMR.html","id":"combined-antibiogram","dir":"Articles","previous_headings":"Analysing the data > Generate antibiograms","what":"Combined Antibiogram","title":"Conduct AMR data analysis","text":"create combined antibiogram, use antibiotic codes names plus + character like :","code":"combined_ab <- antibiogram(example_isolates,                            antibiotics = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\"),                            ab_transform = NULL) combined_ab"},{"path":"https://amr-for-r.org/articles/AMR.html","id":"syndromic-antibiogram","dir":"Articles","previous_headings":"Analysing the data > Generate antibiograms","what":"Syndromic Antibiogram","title":"Conduct AMR data analysis","text":"create syndromic antibiogram, syndromic_group argument must used. can column data, e.g. ifelse() calculations based certain columns:","code":"antibiogram(example_isolates,             antibiotics = c(aminoglycosides(), carbapenems()),             syndromic_group = \"ward\") #> ℹ For `aminoglycosides()` using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> ℹ For `carbapenems()` using columns 'IPM' (imipenem) and 'MEM' (meropenem)"},{"path":"https://amr-for-r.org/articles/AMR.html","id":"weighted-incidence-syndromic-combination-antibiogram-wisca","dir":"Articles","previous_headings":"Analysing the data > Generate antibiograms","what":"Weighted-Incidence Syndromic Combination Antibiogram (WISCA)","title":"Conduct AMR data analysis","text":"create Weighted-Incidence Syndromic Combination Antibiogram (WISCA), simply set wisca = TRUE antibiogram() function, use dedicated wisca() function. Unlike traditional antibiograms, WISCA provides syndrome-based susceptibility estimates, weighted pathogen incidence antimicrobial susceptibility patterns. WISCA uses Bayesian decision model integrate data multiple pathogens, improving empirical therapy guidance, especially low-incidence infections. pathogen-agnostic, meaning results syndrome-based rather stratified microorganism. reliable results, ensure data includes first isolates (use first_isolate()) consider filtering top n species (use top_n_microorganisms()), WISCA outcomes meaningful based robust incidence estimates. patient- syndrome-specific WISCA, run function grouped tibble, .e., using group_by() first:","code":"example_isolates %>%   wisca(antibiotics = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\"),         minimum = 10) # Recommended threshold: ≥30 example_isolates %>%   top_n_microorganisms(n = 10) %>%   group_by(age_group = age_groups(age, c(25, 50, 75)),            gender) %>%   wisca(antibiotics = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\"))"},{"path":"https://amr-for-r.org/articles/AMR.html","id":"plotting-antibiograms","dir":"Articles","previous_headings":"Analysing the data > Generate antibiograms","what":"Plotting antibiograms","title":"Conduct AMR data analysis","text":"Antibiograms can plotted using autoplot() ggplot2 packages, since AMR package provides extension function:  calculate antimicrobial resistance sensible way, also correcting results, use resistance() susceptibility() functions.","code":"autoplot(combined_ab)"},{"path":"https://amr-for-r.org/articles/AMR.html","id":"resistance-percentages","dir":"Articles","previous_headings":"Analysing the data","what":"Resistance percentages","title":"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:","code":"our_data_1st %>% resistance(AMX) #> [1] 0.4294272 our_data_1st %>%   group_by(hospital) %>%   summarise(amoxicillin = resistance(AMX)) #> # A tibble: 3 × 2 #>   hospital amoxicillin #>   <chr>          <dbl> #> 1 A              0.341 #> 2 B              0.586 #> 3 C              0.370"},{"path":"https://amr-for-r.org/articles/AMR.html","id":"interpreting-mic-and-disk-diffusion-values","dir":"Articles","previous_headings":"Analysing the data","what":"Interpreting MIC and Disk Diffusion Values","title":"Conduct AMR data analysis","text":"Minimal inhibitory concentration (MIC) values disk diffusion diameters can interpreted clinical breakpoints (SIR) using .sir(). ’s example randomly generated MIC values Klebsiella pneumoniae ciprofloxacin: allows direct interpretation according EUCAST CLSI breakpoints, facilitating automated AMR data processing.","code":"set.seed(123) mic_values <- random_mic(100) sir_values <- as.sir(mic_values, mo = \"K. pneumoniae\", ab = \"cipro\", guideline = \"EUCAST 2024\")  my_data <- tibble(MIC = mic_values, SIR = sir_values) my_data #> # A tibble: 100 × 2 #>         MIC SIR   #>       <mic> <sir> #>  1 <=0.0001   S   #>  2   0.0160   S   #>  3 >=8.0000   R   #>  4   0.0320   S   #>  5   0.0080   S   #>  6  64.0000   R   #>  7   0.0080   S   #>  8   0.1250   S   #>  9   0.0320   S   #> 10   0.0002   S   #> # ℹ 90 more rows"},{"path":"https://amr-for-r.org/articles/AMR.html","id":"plotting-mic-and-sir-interpretations","dir":"Articles","previous_headings":"Analysing the data","what":"Plotting MIC and SIR Interpretations","title":"Conduct AMR data analysis","text":"can visualise MIC distributions SIR interpretations using ggplot2, using new scale_y_mic() y-axis scale_colour_sir() colour-code SIR categories.  plot provides intuitive way assess susceptibility patterns across different groups incorporating clinical breakpoints. straightforward less manual approach, ggplot2’s function autoplot() extended package directly plot MIC disk diffusion values:   Author: Dr. Matthijs Berends, 23rd Feb 2025","code":"# add a group my_data$group <- rep(c(\"A\", \"B\", \"C\", \"D\"), each = 25)   ggplot(my_data,        aes(x = group, y = MIC, colour = SIR)) +   geom_jitter(width = 0.2, size = 2) +   geom_boxplot(fill = NA, colour = \"grey40\") +   scale_y_mic() +   scale_colour_sir() +   labs(title = \"MIC Distribution and SIR Interpretation\",        x = \"Sample Groups\",        y = \"MIC (mg/L)\") autoplot(mic_values) # by providing `mo` and `ab`, colours will indicate the SIR interpretation: autoplot(mic_values, mo = \"K. pneumoniae\", ab = \"cipro\", guideline = \"EUCAST 2024\")"},{"path":"https://amr-for-r.org/articles/AMR_for_Python.html","id":"introduction","dir":"Articles","previous_headings":"","what":"Introduction","title":"AMR for Python","text":"AMR package R powerful tool antimicrobial resistance (AMR) analysis. provides extensive features handling microbial antimicrobial data. However, work primarily Python, now intuitive option available: AMR Python package. Python package wrapper around AMR R package. uses rpy2 package internally. Despite need R installed, Python users can now easily work AMR data directly Python code.","code":""},{"path":"https://amr-for-r.org/articles/AMR_for_Python.html","id":"prerequisites","dir":"Articles","previous_headings":"","what":"Prerequisites","title":"AMR for Python","text":"package tested virtual environment (venv). can set environment running: can activate environment, venv ready work .","code":"# linux and macOS: python -m venv /path/to/new/virtual/environment  # Windows: python -m venv C:\\path\\to\\new\\virtual\\environment"},{"path":"https://amr-for-r.org/articles/AMR_for_Python.html","id":"install-amr","dir":"Articles","previous_headings":"","what":"Install AMR","title":"AMR for Python","text":"Since Python package available official Python Package Index, can just run: Make sure R installed. need install AMR R package, installed automatically. Linux: macOS (using Homebrew): Windows, visit CRAN download page download install R.","code":"pip install AMR # Ubuntu / Debian sudo apt install r-base # Fedora: sudo dnf install R # CentOS/RHEL sudo yum install R brew install r"},{"path":[]},{"path":"https://amr-for-r.org/articles/AMR_for_Python.html","id":"cleaning-taxonomy","dir":"Articles","previous_headings":"Examples of Usage","what":"Cleaning Taxonomy","title":"AMR for Python","text":"’s example demonstrates clean microorganism drug names using AMR Python package:","code":"import pandas as pd import AMR  # Sample data data = {     \"MOs\": ['E. coli', 'ESCCOL', 'esco', 'Esche coli'],     \"Drug\": ['Cipro', 'CIP', 'J01MA02', 'Ciproxin'] } df = pd.DataFrame(data)  # Use AMR functions to clean microorganism and drug names df['MO_clean'] = AMR.mo_name(df['MOs']) df['Drug_clean'] = AMR.ab_name(df['Drug'])  # Display the results print(df)"},{"path":"https://amr-for-r.org/articles/AMR_for_Python.html","id":"explanation","dir":"Articles","previous_headings":"Examples of Usage > Cleaning Taxonomy","what":"Explanation","title":"AMR for Python","text":"mo_name: function standardises microorganism names. , different variations Escherichia coli (“E. coli”, “ESCCOL”, “esco”, “Esche coli”) converted correct, standardised form, “Escherichia coli”. ab_name: Similarly, function standardises antimicrobial names. different representations ciprofloxacin (e.g., “Cipro”, “CIP”, “J01MA02”, “Ciproxin”) converted standard name, “Ciprofloxacin”.","code":""},{"path":"https://amr-for-r.org/articles/AMR_for_Python.html","id":"calculating-amr","dir":"Articles","previous_headings":"Examples of Usage","what":"Calculating AMR","title":"AMR for Python","text":"","code":"import AMR import pandas as pd  df = AMR.example_isolates result = AMR.resistance(df[\"AMX\"]) print(result) [0.59555556]"},{"path":"https://amr-for-r.org/articles/AMR_for_Python.html","id":"generating-antibiograms","dir":"Articles","previous_headings":"Examples of Usage","what":"Generating Antibiograms","title":"AMR for Python","text":"One core functions AMR package generating antibiogram, table summarises antimicrobial susceptibility bacterial isolates. ’s can generate antibiogram Python: example, generate antibiogram selecting various antibiotics.","code":"result2a = AMR.antibiogram(df[[\"mo\", \"AMX\", \"CIP\", \"TZP\"]]) print(result2a) result2b = AMR.antibiogram(df[[\"mo\", \"AMX\", \"CIP\", \"TZP\"]], mo_transform = \"gramstain\") print(result2b)"},{"path":"https://amr-for-r.org/articles/AMR_for_Python.html","id":"taxonomic-data-sets-now-in-python","dir":"Articles","previous_headings":"Examples of Usage","what":"Taxonomic Data Sets Now in Python!","title":"AMR for Python","text":"Python user, might like important data sets AMR R package, microorganisms, antimicrobials, clinical_breakpoints, example_isolates, now available regular Python data frames:","code":"AMR.microorganisms AMR.antimicrobials"},{"path":"https://amr-for-r.org/articles/AMR_for_Python.html","id":"conclusion","dir":"Articles","previous_headings":"","what":"Conclusion","title":"AMR for Python","text":"AMR Python package, Python users can now effortlessly call R functions AMR R package. eliminates need complex rpy2 configurations provides clean, easy--use interface antimicrobial resistance analysis. examples provided demonstrate can applied typical workflows, standardising microorganism antimicrobial names calculating resistance. just running import AMR, users can seamlessly integrate robust features R AMR package Python workflows. Whether ’re cleaning data analysing resistance patterns, AMR Python package makes easy work AMR data Python.","code":""},{"path":"https://amr-for-r.org/articles/AMR_with_tidymodels.html","id":"example-1-using-antimicrobial-selectors","dir":"Articles","previous_headings":"","what":"Example 1: Using Antimicrobial Selectors","title":"AMR with tidymodels","text":"leveraging power tidymodels AMR package, ’ll build reproducible machine learning workflow predict Gramstain microorganism two important antibiotic classes: aminoglycosides beta-lactams.","code":""},{"path":"https://amr-for-r.org/articles/AMR_with_tidymodels.html","id":"objective","dir":"Articles","previous_headings":"Example 1: Using Antimicrobial Selectors","what":"Objective","title":"AMR with tidymodels","text":"goal build predictive model using tidymodels framework determine Gramstain microorganism based microbial data. : Preprocess data using selector functions aminoglycosides() betalactams(). Define logistic regression model prediction. Use structured tidymodels workflow preprocess, train, evaluate model.","code":""},{"path":"https://amr-for-r.org/articles/AMR_with_tidymodels.html","id":"data-preparation","dir":"Articles","previous_headings":"Example 1: Using Antimicrobial Selectors","what":"Data Preparation","title":"AMR with tidymodels","text":"begin loading required libraries preparing example_isolates dataset AMR package. Prepare data: Explanation: aminoglycosides() betalactams() dynamically select columns antimicrobials classes. drop_na() ensures model receives complete cases training.","code":"# Load required libraries library(AMR)          # For AMR data analysis library(tidymodels)   # For machine learning workflows, and data manipulation (dplyr, tidyr, ...) # Your data could look like this: example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI   R     NA    NA    NA  #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI   R     NA    NA    NA  #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS   R     NA    S     R   #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS   R     NA    S     R   #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR   R     NA    S     NA  #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  # Select relevant columns for prediction data <- example_isolates %>%   # select AB results dynamically   select(mo, aminoglycosides(), betalactams()) %>%   # replace NAs with NI (not-interpretable)    mutate(across(where(is.sir),                  ~replace_na(.x, \"NI\")),           # make factors of SIR columns           across(where(is.sir),                  as.integer),           # get Gramstain of microorganisms           mo = as.factor(mo_gramstain(mo))) %>%   # drop NAs - the ones without a Gramstain (fungi, etc.)   drop_na() #> ℹ For `aminoglycosides()` using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> ℹ For `betalactams()` using columns 'PEN' (benzylpenicillin), 'OXA' #>   (oxacillin), 'FLC' (flucloxacillin), 'AMX' (amoxicillin), 'AMC' #>   (amoxicillin/clavulanic acid), 'AMP' (ampicillin), 'TZP' #>   (piperacillin/tazobactam), 'CZO' (cefazolin), 'FEP' (cefepime), 'CXM' #>   (cefuroxime), 'FOX' (cefoxitin), 'CTX' (cefotaxime), 'CAZ' (ceftazidime), #>   'CRO' (ceftriaxone), 'IPM' (imipenem), and 'MEM' (meropenem)"},{"path":"https://amr-for-r.org/articles/AMR_with_tidymodels.html","id":"defining-the-workflow","dir":"Articles","previous_headings":"Example 1: Using Antimicrobial Selectors","what":"Defining the Workflow","title":"AMR with tidymodels","text":"now define tidymodels workflow, consists three steps: preprocessing, model specification, fitting.","code":""},{"path":"https://amr-for-r.org/articles/AMR_with_tidymodels.html","id":"preprocessing-with-a-recipe","dir":"Articles","previous_headings":"Example 1: Using Antimicrobial Selectors > Defining the Workflow","what":"1. Preprocessing with a Recipe","title":"AMR with tidymodels","text":"create recipe preprocess data modelling. recipe includes least one preprocessing operation, like step_corr(), necessary parameters can estimated training set using prep(): Explanation: recipe(mo ~ ., data = data) take mo column outcome columns predictors. step_corr() removes predictors (.e., antibiotic columns) higher correlation 90%. Notice recipe contains just antimicrobial selector functions - need define columns specifically. preparation (retrieved prep()) can see columns variables ‘AMX’ ‘CTX’ removed correlate much existing, variables.","code":"# Define the recipe for data preprocessing resistance_recipe <- recipe(mo ~ ., data = data) %>%   step_corr(c(aminoglycosides(), betalactams()), threshold = 0.9) resistance_recipe #>  #> ── Recipe ────────────────────────────────────────────────────────────────────── #>  #> ── Inputs #> Number of variables by role #> outcome:    1 #> predictor: 20 #>  #> ── Operations #> • Correlation filter on: c(aminoglycosides(), betalactams()) prep(resistance_recipe) #> ℹ For `aminoglycosides()` using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> ℹ For `betalactams()` using columns 'PEN' (benzylpenicillin), 'OXA' #>   (oxacillin), 'FLC' (flucloxacillin), 'AMX' (amoxicillin), 'AMC' #>   (amoxicillin/clavulanic acid), 'AMP' (ampicillin), 'TZP' #>   (piperacillin/tazobactam), 'CZO' (cefazolin), 'FEP' (cefepime), 'CXM' #>   (cefuroxime), 'FOX' (cefoxitin), 'CTX' (cefotaxime), 'CAZ' (ceftazidime), #>   'CRO' (ceftriaxone), 'IPM' (imipenem), and 'MEM' (meropenem) #>  #> ── Recipe ────────────────────────────────────────────────────────────────────── #>  #> ── Inputs #> Number of variables by role #> outcome:    1 #> predictor: 20 #>  #> ── Training information #> Training data contained 1968 data points and no incomplete rows. #>  #> ── Operations #> • Correlation filter on: AMX CTX | Trained"},{"path":"https://amr-for-r.org/articles/AMR_with_tidymodels.html","id":"specifying-the-model","dir":"Articles","previous_headings":"Example 1: Using Antimicrobial Selectors > Defining the Workflow","what":"2. Specifying the Model","title":"AMR with tidymodels","text":"define logistic regression model since resistance prediction binary classification task. Explanation: logistic_reg() sets logistic regression model. set_engine(\"glm\") specifies use R’s built-GLM engine.","code":"# Specify a logistic regression model logistic_model <- logistic_reg() %>%   set_engine(\"glm\") # Use the Generalised Linear Model engine logistic_model #> Logistic Regression Model Specification (classification) #>  #> Computational engine: glm"},{"path":"https://amr-for-r.org/articles/AMR_with_tidymodels.html","id":"building-the-workflow","dir":"Articles","previous_headings":"Example 1: Using Antimicrobial Selectors > Defining the Workflow","what":"3. Building the Workflow","title":"AMR with tidymodels","text":"bundle recipe model together workflow, organises entire modelling process.","code":"# Combine the recipe and model into a workflow resistance_workflow <- workflow() %>%   add_recipe(resistance_recipe) %>% # Add the preprocessing recipe   add_model(logistic_model) # Add the logistic regression model resistance_workflow #> ══ Workflow ════════════════════════════════════════════════════════════════════ #> Preprocessor: Recipe #> Model: logistic_reg() #>  #> ── Preprocessor ──────────────────────────────────────────────────────────────── #> 1 Recipe Step #>  #> • step_corr() #>  #> ── Model ─────────────────────────────────────────────────────────────────────── #> Logistic Regression Model Specification (classification) #>  #> Computational engine: glm"},{"path":"https://amr-for-r.org/articles/AMR_with_tidymodels.html","id":"training-and-evaluating-the-model","dir":"Articles","previous_headings":"Example 1: Using Antimicrobial Selectors","what":"Training and Evaluating the Model","title":"AMR with tidymodels","text":"train model, split data training testing sets. , fit workflow training set evaluate performance. Explanation: initial_split() splits data training testing sets. fit() trains workflow training set. Notice fit(), antimicrobial selector functions internally called . training, functions called since stored recipe. Next, evaluate model testing data. Explanation: predict() generates predictions testing set. metrics() computes evaluation metrics like accuracy kappa. appears can predict Gram stain 99.5% accuracy based AMR results aminoglycosides beta-lactam antibiotics. ROC curve looks like :","code":"# Split data into training and testing sets set.seed(123) # For reproducibility data_split <- initial_split(data, prop = 0.8) # 80% training, 20% testing training_data <- training(data_split) # Training set testing_data <- testing(data_split)   # Testing set  # Fit the workflow to the training data fitted_workflow <- resistance_workflow %>%   fit(training_data) # Train the model # Make predictions on the testing set predictions <- fitted_workflow %>%   predict(testing_data)                # Generate predictions probabilities <- fitted_workflow %>%   predict(testing_data, type = \"prob\") # Generate probabilities  predictions <- predictions %>%   bind_cols(probabilities) %>%   bind_cols(testing_data) # Combine with true labels  predictions #> # A tibble: 394 × 24 #>    .pred_class   `.pred_Gram-negative` `.pred_Gram-positive` mo        GEN   TOB #>    <fct>                         <dbl>                 <dbl> <fct>   <int> <int> #>  1 Gram-positive              1.07e- 1             8.93 e- 1 Gram-p…     5     5 #>  2 Gram-positive              3.17e- 8             1.000e+ 0 Gram-p…     5     1 #>  3 Gram-negative              9.99e- 1             1.42 e- 3 Gram-n…     5     5 #>  4 Gram-positive              2.22e-16             1    e+ 0 Gram-p…     5     5 #>  5 Gram-negative              9.46e- 1             5.42 e- 2 Gram-n…     5     5 #>  6 Gram-positive              1.07e- 1             8.93 e- 1 Gram-p…     5     5 #>  7 Gram-positive              2.22e-16             1    e+ 0 Gram-p…     1     5 #>  8 Gram-positive              2.22e-16             1    e+ 0 Gram-p…     4     4 #>  9 Gram-negative              1   e+ 0             2.22 e-16 Gram-n…     1     1 #> 10 Gram-positive              6.05e-11             1.000e+ 0 Gram-p…     4     4 #> # ℹ 384 more rows #> # ℹ 18 more variables: AMK <int>, KAN <int>, PEN <int>, OXA <int>, FLC <int>, #> #   AMX <int>, AMC <int>, AMP <int>, TZP <int>, CZO <int>, FEP <int>, #> #   CXM <int>, FOX <int>, CTX <int>, CAZ <int>, CRO <int>, IPM <int>, MEM <int>  # Evaluate model performance metrics <- predictions %>%   metrics(truth = mo, estimate = .pred_class) # Calculate performance metrics  metrics #> # A tibble: 2 × 3 #>   .metric  .estimator .estimate #>   <chr>    <chr>          <dbl> #> 1 accuracy binary         0.995 #> 2 kap      binary         0.989   # To assess some other model properties, you can make our own `metrics()` function our_metrics <- metric_set(accuracy, kap, ppv, npv) # add Positive Predictive Value and Negative Predictive Value metrics2 <- predictions %>%   our_metrics(truth = mo, estimate = .pred_class) # run again on our `our_metrics()` function  metrics2 #> # A tibble: 4 × 3 #>   .metric  .estimator .estimate #>   <chr>    <chr>          <dbl> #> 1 accuracy binary         0.995 #> 2 kap      binary         0.989 #> 3 ppv      binary         0.987 #> 4 npv      binary         1 predictions %>%   roc_curve(mo, `.pred_Gram-negative`) %>%   autoplot()"},{"path":"https://amr-for-r.org/articles/AMR_with_tidymodels.html","id":"conclusion","dir":"Articles","previous_headings":"Example 1: Using Antimicrobial Selectors","what":"Conclusion","title":"AMR with tidymodels","text":"example, demonstrated build machine learning pipeline tidymodels framework AMR package. combining selector functions like aminoglycosides() betalactams() tidymodels, efficiently prepared data, trained model, evaluated performance. workflow extensible antimicrobial classes resistance patterns, empowering users analyse AMR data systematically reproducibly.","code":""},{"path":"https://amr-for-r.org/articles/AMR_with_tidymodels.html","id":"example-2-predicting-esbl-presence-using-raw-mics","dir":"Articles","previous_headings":"","what":"Example 2: Predicting ESBL Presence Using Raw MICs","title":"AMR with tidymodels","text":"second example, demonstrate use <mic> columns directly tidymodels workflows using AMR-specific recipe steps. includes transformation log2 scale using step_mic_log2(), prepares MIC values use classification models. approach idea formed basis publication DOI: 10.3389/fmicb.2025.1582703 model presence extended-spectrum beta-lactamases (ESBL) based MIC values.","code":""},{"path":"https://amr-for-r.org/articles/AMR_with_tidymodels.html","id":"objective-1","dir":"Articles","previous_headings":"Example 2: Predicting ESBL Presence Using Raw MICs","what":"Objective","title":"AMR with tidymodels","text":"goal : Use raw MIC values predict whether bacterial isolate produces ESBL. Apply AMR-aware preprocessing tidymodels recipe. Train classification model evaluate predictive performance.","code":""},{"path":"https://amr-for-r.org/articles/AMR_with_tidymodels.html","id":"data-preparation-1","dir":"Articles","previous_headings":"Example 2: Predicting ESBL Presence Using Raw MICs","what":"Data Preparation","title":"AMR with tidymodels","text":"use esbl_isolates dataset comes AMR package. Explanation: esbl_isolates: Contains MIC test results ESBL status isolate. mutate(esbl = ...): Converts target column ordered factor classification.","code":"# Load required libraries library(AMR) library(tidymodels)  # View the esbl_isolates data set esbl_isolates #> # A tibble: 500 × 19 #>    esbl  genus   AMC   AMP   TZP   CXM   FOX   CTX   CAZ   GEN   TOB   TMP   SXT #>    <lgl> <chr> <mic> <mic> <mic> <mic> <mic> <mic> <mic> <mic> <mic> <mic> <mic> #>  1 FALSE Esch…    32    32     4    64    64  8.00  8.00     1     1  16.0    20 #>  2 FALSE Esch…    32    32     4    64    64  4.00  8.00     1     1  16.0   320 #>  3 FALSE Esch…     4     2    64     8     4  8.00  0.12    16    16   0.5    20 #>  4 FALSE Kleb…    32    32    16    64    64  8.00  8.00     1     1   0.5    20 #>  5 FALSE Esch…    32    32     4     4     4  0.25  2.00     1     1  16.0   320 #>  6 FALSE Citr…    32    32    16    64    64 64.00 32.00     1     1   0.5    20 #>  7 FALSE Morg…    32    32     4    64    64 16.00  2.00     1     1   0.5    20 #>  8 FALSE Prot…    16    32     4     1     4  8.00  0.12     1     1  16.0   320 #>  9 FALSE Ente…    32    32     8    64    64 32.00  4.00     1     1   0.5    20 #> 10 FALSE Citr…    32    32    32    64    64  8.00 64.00     1     1  16.0   320 #> # ℹ 490 more rows #> # ℹ 6 more variables: NIT <mic>, FOS <mic>, CIP <mic>, IPM <mic>, MEM <mic>, #> #   COL <mic>  # Prepare a binary outcome and convert to ordered factor data <- esbl_isolates %>%   mutate(esbl = factor(esbl, levels = c(FALSE, TRUE), ordered = TRUE))"},{"path":[]},{"path":"https://amr-for-r.org/articles/AMR_with_tidymodels.html","id":"preprocessing-with-a-recipe-1","dir":"Articles","previous_headings":"Example 2: Predicting ESBL Presence Using Raw MICs > Defining the Workflow","what":"1. Preprocessing with a Recipe","title":"AMR with tidymodels","text":"use step_mic_log2() function log2-transform MIC values, ensuring MICs numeric properly scaled. MIC predictors can easily agnostically selected using new all_mic_predictors(): Explanation: remove_role(): Removes irrelevant variables like genus. step_mic_log2(): Applies log2(.numeric(...)) MIC predictors one go. prep(): Finalises recipe based training data.","code":"# Split into training and testing sets set.seed(123) split <- initial_split(data) training_data <- training(split) testing_data <- testing(split)  # Define the recipe mic_recipe <- recipe(esbl ~ ., data = training_data) %>%   remove_role(genus, old_role = \"predictor\") %>%  # Remove non-informative variable   step_mic_log2(all_mic_predictors())             # Log2 transform all MIC predictors  prep(mic_recipe) #>  #> ── Recipe ────────────────────────────────────────────────────────────────────── #>  #> ── Inputs #> Number of variables by role #> outcome:          1 #> predictor:       17 #> undeclared role:  1 #>  #> ── Training information #> Training data contained 375 data points and no incomplete rows. #>  #> ── Operations #> • Log2 transformation of MIC columns: AMC, AMP, TZP, CXM, FOX, ... | Trained"},{"path":"https://amr-for-r.org/articles/AMR_with_tidymodels.html","id":"specifying-the-model-1","dir":"Articles","previous_headings":"Example 2: Predicting ESBL Presence Using Raw MICs > Defining the Workflow","what":"2. Specifying the Model","title":"AMR with tidymodels","text":"use simple logistic regression model ESBL presence, though recent models xgboost (link parsnip manual) much precise. Explanation: logistic_reg(): Specifies binary classification model. set_engine(\"glm\"): Uses base R GLM engine.","code":"# Define the model model <- logistic_reg(mode = \"classification\") %>%   set_engine(\"glm\")  model #> Logistic Regression Model Specification (classification) #>  #> Computational engine: glm"},{"path":"https://amr-for-r.org/articles/AMR_with_tidymodels.html","id":"building-the-workflow-1","dir":"Articles","previous_headings":"Example 2: Predicting ESBL Presence Using Raw MICs > Defining the Workflow","what":"3. Building the Workflow","title":"AMR with tidymodels","text":"","code":"# Create workflow workflow_model <- workflow() %>%   add_recipe(mic_recipe) %>%   add_model(model)  workflow_model #> ══ Workflow ════════════════════════════════════════════════════════════════════ #> Preprocessor: Recipe #> Model: logistic_reg() #>  #> ── Preprocessor ──────────────────────────────────────────────────────────────── #> 1 Recipe Step #>  #> • step_mic_log2() #>  #> ── Model ─────────────────────────────────────────────────────────────────────── #> Logistic Regression Model Specification (classification) #>  #> Computational engine: glm"},{"path":"https://amr-for-r.org/articles/AMR_with_tidymodels.html","id":"training-and-evaluating-the-model-1","dir":"Articles","previous_headings":"Example 2: Predicting ESBL Presence Using Raw MICs","what":"Training and Evaluating the Model","title":"AMR with tidymodels","text":"Explanation: fit(): Trains model processed training data. predict(): Produces predictions unseen test data. metric_set(): Allows evaluating multiple classification metrics. make our_metrics become function can use check predictions . appears can predict ESBL gene presence positive predictive value (PPV) 92.1% negative predictive value (NPV) 91.9% using simplistic logistic regression model.","code":"# Fit the model fitted <- fit(workflow_model, training_data)  # Generate predictions predictions <- predict(fitted, testing_data) %>%   bind_cols(predict(fitted, testing_data, type = \"prob\")) %>% # add probabilities   bind_cols(testing_data)  # Evaluate model performance our_metrics <- metric_set(accuracy, recall, precision, sensitivity, specificity, ppv, npv) metrics <- our_metrics(predictions, truth = esbl, estimate = .pred_class)  metrics #> # A tibble: 7 × 3 #>   .metric     .estimator .estimate #>   <chr>       <chr>          <dbl> #> 1 accuracy    binary         0.92  #> 2 recall      binary         0.921 #> 3 precision   binary         0.921 #> 4 sensitivity binary         0.921 #> 5 specificity binary         0.919 #> 6 ppv         binary         0.921 #> 7 npv         binary         0.919"},{"path":"https://amr-for-r.org/articles/AMR_with_tidymodels.html","id":"visualising-predictions","dir":"Articles","previous_headings":"Example 2: Predicting ESBL Presence Using Raw MICs","what":"Visualising Predictions","title":"AMR with tidymodels","text":"can visualise predictions comparing predicted actual ESBL status.  plot certainties - certain actual predictions?","code":"library(ggplot2)  ggplot(predictions, aes(x = esbl, fill = .pred_class)) +   geom_bar(position = \"stack\") +   labs(title = \"Predicted vs Actual ESBL Status\",        x = \"Actual ESBL\",        y = \"Count\") +   theme_minimal() predictions %>%   mutate(certainty = ifelse(.pred_class == \"FALSE\",                             .pred_FALSE,                             .pred_TRUE),          correct = ifelse(esbl == .pred_class, \"Right\", \"Wrong\")) %>%   ggplot(aes(x = seq_len(nrow(predictions)),              y = certainty,              colour = correct)) +   scale_colour_manual(values = c(Right = \"green3\", Wrong = \"red2\"),                       name = \"Correct?\") +   geom_point() +   scale_y_continuous(labels = function(x) paste0(x * 100, \"%\"),                      limits = c(0.5, 1)) +   theme_minimal()"},{"path":"https://amr-for-r.org/articles/AMR_with_tidymodels.html","id":"conclusion-1","dir":"Articles","previous_headings":"Example 2: Predicting ESBL Presence Using Raw MICs","what":"Conclusion","title":"AMR with tidymodels","text":"example, showcased new AMR-specific recipe steps simplify working <mic> columns tidymodels. step_mic_log2() transformation converts MICs (without operators) log2-transformed numerics, improving compatibility classification models. pipeline enables realistic, reproducible, interpretable modelling antimicrobial resistance data.","code":""},{"path":"https://amr-for-r.org/articles/AMR_with_tidymodels.html","id":"example-3-predicting-amr-over-time","dir":"Articles","previous_headings":"","what":"Example 3: Predicting AMR Over Time","title":"AMR with tidymodels","text":"third example, aim predict antimicrobial resistance (AMR) trends time using tidymodels. model resistance three antibiotics (amoxicillin AMX, amoxicillin-clavulanic acid AMC, ciprofloxacin CIP), based historical data grouped year hospital ward.","code":""},{"path":"https://amr-for-r.org/articles/AMR_with_tidymodels.html","id":"objective-2","dir":"Articles","previous_headings":"Example 3: Predicting AMR Over Time","what":"Objective","title":"AMR with tidymodels","text":"goal : Prepare dataset aggregating resistance data time. Define regression model predict AMR trends. Use tidymodels preprocess, train, evaluate model.","code":""},{"path":"https://amr-for-r.org/articles/AMR_with_tidymodels.html","id":"data-preparation-2","dir":"Articles","previous_headings":"Example 3: Predicting AMR Over Time","what":"Data Preparation","title":"AMR with tidymodels","text":"start transforming example_isolates dataset structured time-series format. Explanation: mo_name(mo): Converts microbial codes proper species names. resistance(): Converts AMR results numeric values (proportion resistant isolates). group_by(year, ward, species): Aggregates resistance rates year ward.","code":"# Load required libraries library(AMR) library(tidymodels)  # Transform dataset data_time <- example_isolates %>%   top_n_microorganisms(n = 10) %>% # Filter on the top #10 species   mutate(year = as.integer(format(date, \"%Y\")),  # Extract year from date          gramstain = mo_gramstain(mo)) %>% # Get taxonomic names   group_by(year, gramstain) %>%   summarise(across(c(AMX, AMC, CIP),                     function(x) resistance(x, minimum = 0),                    .names = \"res_{.col}\"),              .groups = \"drop\") %>%    filter(!is.na(res_AMX) & !is.na(res_AMC) & !is.na(res_CIP)) # Drop missing values #> ℹ Using column 'mo' as input for `col_mo`.  data_time #> # A tibble: 32 × 5 #>     year gramstain     res_AMX res_AMC res_CIP #>    <int> <chr>           <dbl>   <dbl>   <dbl> #>  1  2002 Gram-negative   1      0.105   0.0606 #>  2  2002 Gram-positive   0.838  0.182   0.162  #>  3  2003 Gram-negative   1      0.0714  0      #>  4  2003 Gram-positive   0.714  0.244   0.154  #>  5  2004 Gram-negative   0.464  0.0938  0      #>  6  2004 Gram-positive   0.849  0.299   0.244  #>  7  2005 Gram-negative   0.412  0.132   0.0588 #>  8  2005 Gram-positive   0.882  0.382   0.154  #>  9  2006 Gram-negative   0.379  0       0.1    #> 10  2006 Gram-positive   0.778  0.333   0.353  #> # ℹ 22 more rows"},{"path":"https://amr-for-r.org/articles/AMR_with_tidymodels.html","id":"defining-the-workflow-2","dir":"Articles","previous_headings":"Example 3: Predicting AMR Over Time","what":"Defining the Workflow","title":"AMR with tidymodels","text":"now define modelling workflow, consists preprocessing step, model specification, fitting process.","code":""},{"path":"https://amr-for-r.org/articles/AMR_with_tidymodels.html","id":"preprocessing-with-a-recipe-2","dir":"Articles","previous_headings":"Example 3: Predicting AMR Over Time > Defining the Workflow","what":"1. Preprocessing with a Recipe","title":"AMR with tidymodels","text":"Explanation: step_dummy(): Encodes categorical variables (ward, species) numerical indicators. step_normalize(): Normalises year variable. step_nzv(): Removes near-zero variance predictors.","code":"# Define the recipe resistance_recipe_time <- recipe(res_AMX ~ year + gramstain, data = data_time) %>%   step_dummy(gramstain, one_hot = TRUE) %>%  # Convert categorical to numerical   step_normalize(year) %>%  # Normalise year for better model performance   step_nzv(all_predictors())  # Remove near-zero variance predictors  resistance_recipe_time #>  #> ── Recipe ────────────────────────────────────────────────────────────────────── #>  #> ── Inputs #> Number of variables by role #> outcome:   1 #> predictor: 2 #>  #> ── Operations #> • Dummy variables from: gramstain #> • Centering and scaling for: year #> • Sparse, unbalanced variable filter on: all_predictors()"},{"path":"https://amr-for-r.org/articles/AMR_with_tidymodels.html","id":"specifying-the-model-2","dir":"Articles","previous_headings":"Example 3: Predicting AMR Over Time > Defining the Workflow","what":"2. Specifying the Model","title":"AMR with tidymodels","text":"use linear regression model predict resistance trends. Explanation: linear_reg(): Defines linear regression model. set_engine(\"lm\"): Uses R’s built-linear regression engine.","code":"# Define the linear regression model lm_model <- linear_reg() %>%   set_engine(\"lm\") # Use linear regression  lm_model #> Linear Regression Model Specification (regression) #>  #> Computational engine: lm"},{"path":"https://amr-for-r.org/articles/AMR_with_tidymodels.html","id":"building-the-workflow-2","dir":"Articles","previous_headings":"Example 3: Predicting AMR Over Time > Defining the Workflow","what":"3. Building the Workflow","title":"AMR with tidymodels","text":"combine preprocessing recipe model workflow.","code":"# Create workflow resistance_workflow_time <- workflow() %>%   add_recipe(resistance_recipe_time) %>%   add_model(lm_model)  resistance_workflow_time #> ══ Workflow ════════════════════════════════════════════════════════════════════ #> Preprocessor: Recipe #> Model: linear_reg() #>  #> ── Preprocessor ──────────────────────────────────────────────────────────────── #> 3 Recipe Steps #>  #> • step_dummy() #> • step_normalize() #> • step_nzv() #>  #> ── Model ─────────────────────────────────────────────────────────────────────── #> Linear Regression Model Specification (regression) #>  #> Computational engine: lm"},{"path":"https://amr-for-r.org/articles/AMR_with_tidymodels.html","id":"training-and-evaluating-the-model-2","dir":"Articles","previous_headings":"Example 3: Predicting AMR Over Time","what":"Training and Evaluating the Model","title":"AMR with tidymodels","text":"split data training testing sets, fit model, evaluate performance. Explanation: initial_split(): Splits data training testing sets. fit(): Trains workflow. predict(): Generates resistance predictions. metrics(): Evaluates model performance.","code":"# Split the data set.seed(123) data_split_time <- initial_split(data_time, prop = 0.8) train_time <- training(data_split_time) test_time <- testing(data_split_time)  # Train the model fitted_workflow_time <- resistance_workflow_time %>%   fit(train_time)  # Make predictions predictions_time <- fitted_workflow_time %>%   predict(test_time) %>%   bind_cols(test_time)  # Evaluate model metrics_time <- predictions_time %>%   metrics(truth = res_AMX, estimate = .pred)  metrics_time #> # A tibble: 3 × 3 #>   .metric .estimator .estimate #>   <chr>   <chr>          <dbl> #> 1 rmse    standard      0.0774 #> 2 rsq     standard      0.711  #> 3 mae     standard      0.0704"},{"path":"https://amr-for-r.org/articles/AMR_with_tidymodels.html","id":"visualising-predictions-1","dir":"Articles","previous_headings":"Example 3: Predicting AMR Over Time","what":"Visualising Predictions","title":"AMR with tidymodels","text":"plot resistance trends time amoxicillin.  Additionally, can visualise resistance trends ggplot2 directly add linear models :","code":"library(ggplot2)  # Plot actual vs predicted resistance over time ggplot(predictions_time, aes(x = year)) +   geom_point(aes(y = res_AMX, color = \"Actual\")) +   geom_line(aes(y = .pred, color = \"Predicted\")) +   labs(title = \"Predicted vs Actual AMX Resistance Over Time\",        x = \"Year\",        y = \"Resistance Proportion\") +   theme_minimal() ggplot(data_time, aes(x = year, y = res_AMX, color = gramstain)) +   geom_line() +   labs(title = \"AMX Resistance Trends\",        x = \"Year\",        y = \"Resistance Proportion\") +   # add a linear model directly in ggplot2:   geom_smooth(method = \"lm\",               formula = y ~ x,               alpha = 0.25) +   theme_minimal()"},{"path":"https://amr-for-r.org/articles/AMR_with_tidymodels.html","id":"conclusion-2","dir":"Articles","previous_headings":"Example 3: Predicting AMR Over Time","what":"Conclusion","title":"AMR with tidymodels","text":"example, demonstrated analyze AMR trends time using tidymodels. aggregating resistance rates year hospital ward, built predictive model track changes resistance amoxicillin (AMX), amoxicillin-clavulanic acid (AMC), ciprofloxacin (CIP). method can extended antibiotics resistance patterns, providing valuable insights AMR dynamics healthcare settings.","code":""},{"path":"https://amr-for-r.org/articles/EUCAST.html","id":"introduction","dir":"Articles","previous_headings":"","what":"Introduction","title":"Apply EUCAST rules","text":"EUCAST rules? European Committee Antimicrobial Susceptibility Testing (EUCAST) states website: EUCAST expert rules (see ) tabulated collection expert knowledge interpretive rules, expected resistant phenotypes expected susceptible phenotypes applied antimicrobial susceptibility testing order reduce testing, reduce errors make appropriate recommendations reporting particular resistances. Europe, lot medical microbiological laboratories already apply rules (Brown et al., 2015). package features latest insights expected resistant phenotypes (v1.2, 2023).","code":""},{"path":"https://amr-for-r.org/articles/EUCAST.html","id":"examples","dir":"Articles","previous_headings":"","what":"Examples","title":"Apply EUCAST rules","text":"rules can used discard improbable 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 Klebsiella susceptible ampicillin. antibiogram available identification available, antibiogram re-interpreted based identification. eucast_rules() function resolves , applying latest ‘EUCAST Expected Resistant Phenotypes’ guideline: convenient function mo_is_intrinsic_resistant() uses guideline, allows check one specific microorganisms antimicrobials: EUCAST rules can used correction, can also used filling known resistance susceptibility based results antimicrobials drugs. process called interpretive reading, basically form imputation:","code":"oops <- tibble::tibble(   mo = c(     \"Klebsiella pneumoniae\",     \"Escherichia coli\"   ),   ampicillin = as.sir(\"S\") ) oops #> # A tibble: 2 × 2 #>   mo                    ampicillin #>   <chr>                 <sir>      #> 1 Klebsiella pneumoniae   S        #> 2 Escherichia coli        S    eucast_rules(oops, info = FALSE, overwrite = TRUE) #> # A tibble: 2 × 2 #>   mo                    ampicillin #>   <chr>                 <sir>      #> 1 Klebsiella pneumoniae   R        #> 2 Escherichia coli        S mo_is_intrinsic_resistant(   c(\"Klebsiella pneumoniae\", \"Escherichia coli\"),   \"ampicillin\" ) #> [1]  TRUE FALSE  mo_is_intrinsic_resistant(   \"Klebsiella pneumoniae\",   c(\"ampicillin\", \"kanamycin\") ) #> [1]  TRUE FALSE data <- tibble::tibble(   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 ) data eucast_rules(data, overwrite = TRUE)"},{"path":[]},{"path":"https://amr-for-r.org/articles/PCA.html","id":"transforming","dir":"Articles","previous_headings":"","what":"Transforming","title":"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://amr-for-r.org/articles/PCA.html","id":"perform-principal-component-analysis","dir":"Articles","previous_headings":"","what":"Perform principal component analysis","title":"Conduct principal component analysis (PCA) for AMR","text":"new pca() function automatically filter rows contain numeric values selected variables, now need : result can reviewed good old summary() function: Good news. first two components explain total 93.3% variance (see PC1 PC2 values Proportion Variance. can create -called biplot base R biplot() function, see antimicrobial resistance per drug explain difference per microorganism.","code":"pca_result <- pca(resistance_data) #> ℹ Columns selected for PCA: \"AMC\", \"CAZ\", \"CTX\", \"CXM\", \"GEN\", \"SXT\", #>   \"TMP\", and \"TOB\". Total observations available: 7. summary(pca_result) #> Groups (n=4, named as 'order'): #> [1] \"Caryophanales\"    \"Enterobacterales\" \"Lactobacillales\"  \"Pseudomonadales\" #> Importance of components: #>                           PC1    PC2    PC3     PC4     PC5     PC6       PC7 #> Standard deviation     2.1539 1.6807 0.6138 0.33879 0.20808 0.03140 1.232e-16 #> Proportion of Variance 0.5799 0.3531 0.0471 0.01435 0.00541 0.00012 0.000e+00 #> Cumulative Proportion  0.5799 0.9330 0.9801 0.99446 0.99988 1.00000 1.000e+00 #> Groups (n=4, named as 'order'): #> [1] \"Caryophanales\"    \"Enterobacterales\" \"Lactobacillales\"  \"Pseudomonadales\""},{"path":"https://amr-for-r.org/articles/PCA.html","id":"plotting-the-results","dir":"Articles","previous_headings":"","what":"Plotting the results","title":"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://amr-for-r.org/articles/WHONET.html","id":"import-of-data","dir":"Articles","previous_headings":"","what":"Import of data","title":"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://amr-for-r.org/articles/WHONET.html","id":"preparation","dir":"Articles","previous_headings":"","what":"Preparation","title":"Work with WHONET data","text":"First, load relevant packages yet . use tidyverse analyses. . don’t know yet, suggest read website: https://www.tidyverse.org/. transform variables simplify automate analysis: Microorganisms transformed microorganism codes (called mo) using Catalogue Life reference data set, contains ~70,000 microorganisms taxonomic kingdoms Bacteria, Fungi Protozoa. tranformation .mo(). function also recognises almost WHONET abbreviations microorganisms. Antimicrobial results interpretations clean valid. words, contain values \"S\", \"\" \"R\". exactly .sir() function . errors warnings, values transformed succesfully. also created package dedicated data cleaning checking, called cleaner package. freq() function can used create frequency tables. let’s check data, couple frequency tables: Frequency table Class: character Length: 500 Available: 500 (100%, NA: 0 = 0%) Unique: 38 Shortest: 11 Longest: 40 (omitted 28 entries, n = 57 [11.4%]) Frequency table Class: factor > ordered > sir (numeric) Length: 500 Levels: 5: S < SDD < < R < NI Available: 481 (96.2%, NA: 19 = 3.8%) Unique: 3 Drug: Amoxicillin/clavulanic acid (AMC, J01CR02/QJ01CR02) Drug group: Aminopenicillins %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://amr-for-r.org/articles/WHONET.html","id":"a-first-glimpse-at-results","dir":"Articles","previous_headings":"","what":"A first glimpse at results","title":"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://amr-for-r.org/articles/WISCA.html","id":"introduction","dir":"Articles","previous_headings":"","what":"Introduction","title":"Estimating Empirical Coverage with WISCA","text":"Clinical guidelines empirical antimicrobial therapy require probabilistic reasoning: chance regimen cover likely infecting organisms, culture results available? purpose WISCA, Weighted-Incidence Syndromic Combination Antibiogram. WISCA Bayesian approach integrates: Pathogen prevalence (often species causes syndrome), Regimen susceptibility (often regimen works pathogen known), estimate overall empirical coverage antimicrobial regimens, quantified uncertainty. vignette explains WISCA works, useful, apply using AMR package.","code":""},{"path":"https://amr-for-r.org/articles/WISCA.html","id":"why-traditional-antibiograms-fall-short","dir":"Articles","previous_headings":"","what":"Why traditional antibiograms fall short","title":"Estimating Empirical Coverage with WISCA","text":"standard antibiogram gives : clinicians don’t know species priori. need choose regimen covers likely pathogens, without knowing one present. Traditional antibiograms calculate susceptibility % just number resistant isolates divided total number tested isolates. Therefore, traditional antibiograms: Fragment information organism, weight real-world prevalence, account combination therapy sample size, provide uncertainty.","code":"Species → Antibiotic → Susceptibility %"},{"path":"https://amr-for-r.org/articles/WISCA.html","id":"the-idea-of-wisca","dir":"Articles","previous_headings":"","what":"The idea of WISCA","title":"Estimating Empirical Coverage with WISCA","text":"WISCA asks: “probability regimen cover pathogen, given syndrome?” means combining two things: Incidence pathogen syndrome, Susceptibility pathogen regimen. can write : Coverage=∑(Incidencei×Susceptibilityi)\\text{Coverage} = \\sum_i (\\text{Incidence}_i \\times \\text{Susceptibility}_i) example, suppose: E. coli causes 60% cases, 90% E. coli susceptible drug. Klebsiella causes 40% cases, 70% Klebsiella susceptible. : Coverage=(0.6×0.9)+(0.4×0.7)=0.82\\text{Coverage} = (0.6 \\times 0.9) + (0.4 \\times 0.7) = 0.82 real data, incidence susceptibility estimated samples, carry uncertainty. WISCA models probabilistically, using conjugate Bayesian distributions.","code":""},{"path":[]},{"path":"https://amr-for-r.org/articles/WISCA.html","id":"pathogen-incidence","dir":"Articles","previous_headings":"The Bayesian engine behind WISCA","what":"Pathogen incidence","title":"Estimating Empirical Coverage with WISCA","text":"Let: KK number pathogens, α=(1,1,…,1)\\alpha = (1, 1, \\ldots, 1) Dirichlet prior (uniform), n=(n1,…,nK)n = (n_1, \\ldots, n_K) observed counts per species. posterior incidence : p∼Dirichlet(α1+n1,…,αK+nK)p \\sim \\text{Dirichlet}(\\alpha_1 + n_1, \\ldots, \\alpha_K + n_K) simulate , use: xi∼Gamma(αi+ni,1),pi=xi∑j=1Kxjx_i \\sim \\text{Gamma}(\\alpha_i + n_i,\\ 1), \\quad p_i = \\frac{x_i}{\\sum_{j=1}^{K} x_j}","code":""},{"path":"https://amr-for-r.org/articles/WISCA.html","id":"susceptibility","dir":"Articles","previous_headings":"The Bayesian engine behind WISCA","what":"Susceptibility","title":"Estimating Empirical Coverage with WISCA","text":"pathogen–regimen pair prior data: Prior: Beta(α0,β0)\\text{Beta}(\\alpha_0, \\beta_0), default α0=β0=1\\alpha_0 = \\beta_0 = 1 Data: SS susceptible NN tested SS category also include values SDD (susceptible, dose-dependent) (intermediate [CLSI], susceptible, increased exposure [EUCAST]). posterior : θ∼Beta(α0+S,β0+N−S)\\theta \\sim \\text{Beta}(\\alpha_0 + S,\\ \\beta_0 + N - S)","code":""},{"path":"https://amr-for-r.org/articles/WISCA.html","id":"final-coverage-estimate","dir":"Articles","previous_headings":"The Bayesian engine behind WISCA","what":"Final coverage estimate","title":"Estimating Empirical Coverage with WISCA","text":"Putting together: Simulate pathogen incidence: 𝐩∼Dirichlet\\boldsymbol{p} \\sim \\text{Dirichlet} Simulate susceptibility: θi∼Beta(1+Si,1+Ri)\\theta_i \\sim \\text{Beta}(1 + S_i,\\ 1 + R_i) Combine: Coverage=∑=1Kpi⋅θi\\text{Coverage} = \\sum_{=1}^{K} p_i \\cdot \\theta_i Repeat simulation (e.g. 1000×) summarise: Mean = expected coverage Quantiles = credible interval","code":""},{"path":[]},{"path":"https://amr-for-r.org/articles/WISCA.html","id":"prepare-data-and-simulate-synthetic-syndrome","dir":"Articles","previous_headings":"Practical use in the AMR package","what":"Prepare data and simulate synthetic syndrome","title":"Estimating Empirical Coverage with WISCA","text":"","code":"library(AMR) data <- example_isolates  # Structure of our data data #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI   R     NA    NA    NA  #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI   R     NA    NA    NA  #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS   R     NA    S     R   #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS   R     NA    S     R   #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR   R     NA    S     NA  #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  # Add a fake syndrome column data$syndrome <- ifelse(data$mo %like% \"coli\", \"UTI\", \"No UTI\")"},{"path":"https://amr-for-r.org/articles/WISCA.html","id":"basic-wisca-antibiogram","dir":"Articles","previous_headings":"Practical use in the AMR package","what":"Basic WISCA antibiogram","title":"Estimating Empirical Coverage with WISCA","text":"","code":"wisca(data,       antimicrobials = c(\"AMC\", \"CIP\", \"GEN\"))"},{"path":"https://amr-for-r.org/articles/WISCA.html","id":"use-combination-regimens","dir":"Articles","previous_headings":"Practical use in the AMR package","what":"Use combination regimens","title":"Estimating Empirical Coverage with WISCA","text":"","code":"wisca(data,       antimicrobials = c(\"AMC\", \"AMC + CIP\", \"AMC + GEN\"))"},{"path":"https://amr-for-r.org/articles/WISCA.html","id":"stratify-by-syndrome","dir":"Articles","previous_headings":"Practical use in the AMR package","what":"Stratify by syndrome","title":"Estimating Empirical Coverage with WISCA","text":"AMR package available 28 languages, can used wisca() function :","code":"wisca(data,       antimicrobials = c(\"AMC\", \"AMC + CIP\", \"AMC + GEN\"),       syndromic_group = \"syndrome\") wisca(data,       antimicrobials = c(\"AMC\", \"AMC + CIP\", \"AMC + GEN\"),       syndromic_group = gsub(\"UTI\", \"UCI\", data$syndrome),       language = \"Spanish\")"},{"path":"https://amr-for-r.org/articles/WISCA.html","id":"sensible-defaults-which-can-be-customised","dir":"Articles","previous_headings":"","what":"Sensible defaults, which can be customised","title":"Estimating Empirical Coverage with WISCA","text":"simulations = 1000: number Monte Carlo draws conf_interval = 0.95: coverage interval width combine_SI = TRUE: count “” “SDD” susceptible","code":""},{"path":"https://amr-for-r.org/articles/WISCA.html","id":"limitations","dir":"Articles","previous_headings":"","what":"Limitations","title":"Estimating Empirical Coverage with WISCA","text":"assumes data representative adjustment patient-level covariates, although passed onto syndromic_group argument WISCA model resistance time, might want use tidymodels , wrote basic introduction","code":""},{"path":"https://amr-for-r.org/articles/WISCA.html","id":"summary","dir":"Articles","previous_headings":"","what":"Summary","title":"Estimating Empirical Coverage with WISCA","text":"WISCA enables: Empirical regimen comparison, Syndrome-specific coverage estimation, Fully probabilistic interpretation. available AMR package via either:","code":"wisca(...)  antibiogram(..., wisca = TRUE)"},{"path":"https://amr-for-r.org/articles/WISCA.html","id":"reference","dir":"Articles","previous_headings":"","what":"Reference","title":"Estimating Empirical Coverage with WISCA","text":"Bielicki, JA, et al. (2016). Selecting appropriate empirical antibiotic regimens paediatric bloodstream infections: application Bayesian decision model local pooled antimicrobial resistance surveillance data. J Antimicrob Chemother. 71(3):794-802. https://doi.org/10.1093/jac/dkv397","code":""},{"path":"https://amr-for-r.org/articles/datasets.html","id":"microorganisms-full-microbial-taxonomy","dir":"Articles","previous_headings":"","what":"microorganisms: Full Microbial Taxonomy","title":"Download data sets for download / own use","text":"data set 78 679 rows 26 columns, containing following column names:mo, fullname, status, kingdom, phylum, class, order, family, genus, species, subspecies, rank, ref, oxygen_tolerance, source, lpsn, lpsn_parent, lpsn_renamed_to, mycobank, mycobank_parent, mycobank_renamed_to, gbif, gbif_parent, gbif_renamed_to, prevalence, snomed. data set R available microorganisms, load AMR package. last updated 18 September 2025 12:58:34 UTC. Find info contents, (scientific) source, structure data set . Direct download links: Download original R Data Structure (RDS) file (1.8 MB) Download tab-separated text file (17.7 MB) Download Microsoft Excel workbook (8.8 MB) Download Apache Feather file (8.4 MB) Download Apache Parquet file (3.8 MB) Download IBM SPSS Statistics data file (28.4 MB) Download Stata DTA file (89.5 MB) NOTE: exported files SPSS Stata contain first 50 SNOMED codes per record, file size otherwise exceed 100 MB; file size limit GitHub. file structures compression techniques inefficient. Advice? Use R instead. ’s free much better many ways. tab-separated text file Microsoft Excel workbook contain SNOMED codes comma separated values. Example content Included (sub)species per taxonomic kingdom: First 6 rows filtering genus Escherichia:","code":""},{"path":"https://amr-for-r.org/articles/datasets.html","id":"antimicrobials-antibiotic-and-antifungal-drugs","dir":"Articles","previous_headings":"","what":"antimicrobials: Antibiotic and Antifungal Drugs","title":"Download data sets for download / own use","text":"data set 498 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 antimicrobials, load AMR package. last updated 6 January 2026 22:08:50 UTC. Find info contents, (scientific) source, structure data set . Direct download links: Download original R Data Structure (RDS) file (46 kB) Download tab-separated text file (0.1 MB) Download Microsoft Excel workbook (78 kB) Download Apache Feather file (0.1 MB) Download Apache Parquet file (0.1 MB) Download IBM SPSS Statistics data file (0.4 MB) Download Stata DTA file (10 kB) tab-separated text, Microsoft Excel, SPSS, Stata files contain ATC codes, common abbreviations, trade names LOINC codes comma separated values. Example content","code":""},{"path":"https://amr-for-r.org/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":"Download data sets for download / own use","text":"data set 40 217 rows 14 columns, containing following column names:guideline, type, host, method, site, mo, rank_index, ab, ref_tbl, disk_dose, breakpoint_S, breakpoint_R, uti, is_SDD. data set R available clinical_breakpoints, load AMR package. last updated 20 April 2025 10:55:31 UTC. Find info contents, (scientific) source, structure data set . Direct download links: Download original R Data Structure (RDS) file (88 kB) Download tab-separated text file (3.7 MB) Download Microsoft Excel workbook (2.4 MB) Download Apache Feather file (1.8 MB) Download Apache Parquet file (0.1 MB) Download IBM SPSS Statistics data file (6.6 MB) Download Stata DTA file (11.1 MB) Example content","code":""},{"path":"https://amr-for-r.org/articles/datasets.html","id":"microorganisms-groups-species-groups-and-microbiological-complexes","dir":"Articles","previous_headings":"","what":"microorganisms.groups: Species Groups and Microbiological Complexes","title":"Download data sets for download / own use","text":"data set 534 rows 4 columns, containing following column names:mo_group, mo, mo_group_name, mo_name. data set R available microorganisms.groups, load AMR package. last updated 26 March 2025 16:19:17 UTC. Find info contents, (scientific) source, structure data set . Direct download links: Download original R Data Structure (RDS) file (6 kB) Download tab-separated text file (50 kB) Download Microsoft Excel workbook (20 kB) Download Apache Feather file (19 kB) Download Apache Parquet file (13 kB) Download IBM SPSS Statistics data file (65 kB) Download Stata DTA file (83 kB) Example content","code":""},{"path":"https://amr-for-r.org/articles/datasets.html","id":"intrinsic_resistant-intrinsic-bacterial-resistance","dir":"Articles","previous_headings":"","what":"intrinsic_resistant: Intrinsic Bacterial Resistance","title":"Download data sets for download / own use","text":"data set 271 905 rows 2 columns, containing following column names:mo ab. data set R available intrinsic_resistant, load AMR package. last updated 28 March 2025 10:17:49 UTC. Find info contents, (scientific) source, structure data set . Direct download links: Download original R Data Structure (RDS) file (0.1 MB) Download tab-separated text file (10.1 MB) Download Microsoft Excel workbook (2.9 MB) Download Apache Feather file (2.3 MB) Download Apache Parquet file (0.3 MB) Download IBM SPSS Statistics data file (14.8 MB) Download Stata DTA file (22.6 MB) Example content Example rows filtering Enterobacter cloacae:","code":""},{"path":"https://amr-for-r.org/articles/datasets.html","id":"dosage-dosage-guidelines-from-eucast","dir":"Articles","previous_headings":"","what":"dosage: Dosage Guidelines from EUCAST","title":"Download data sets for download / own use","text":"data set 759 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 20 April 2025 10:55:31 UTC. Find info contents, (scientific) source, structure data set . Direct download links: Download original R Data Structure (RDS) file (4 kB) Download tab-separated text file (66 kB) Download Microsoft Excel workbook (37 kB) Download Apache Feather file (28 kB) Download Apache Parquet file (9 kB) Download IBM SPSS Statistics data file (97 kB) Download Stata DTA file (0.2 MB) Example content","code":""},{"path":"https://amr-for-r.org/articles/datasets.html","id":"example_isolates-example-data-for-practice","dir":"Articles","previous_headings":"","what":"example_isolates: Example Data for Practice","title":"Download data sets for download / own use","text":"data set 2 000 rows 46 columns, containing following column names:date, patient, age, gender, ward, mo, PEN, OXA, FLC, AMX, AMC, AMP, TZP, CZO, FEP, CXM, FOX, CTX, CAZ, CRO, GEN, TOB, AMK, KAN, TMP, SXT, NIT, FOS, LNZ, CIP, MFX, VAN, TEC, TCY, TGC, DOX, ERY, CLI, AZM, IPM, MEM, MTR, CHL, COL, MUP, RIF. data set R available example_isolates, load AMR package. last updated 15 June 2024 13:33:49 UTC. Find info contents, (scientific) source, structure data set . Example content","code":""},{"path":"https://amr-for-r.org/articles/datasets.html","id":"example_isolates_unclean-example-data-for-practice","dir":"Articles","previous_headings":"","what":"example_isolates_unclean: Example Data for Practice","title":"Download 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 contents, (scientific) source, structure data set . Example content","code":""},{"path":"https://amr-for-r.org/articles/datasets.html","id":"microorganisms-codes-common-laboratory-codes","dir":"Articles","previous_headings":"","what":"microorganisms.codes: Common Laboratory Codes","title":"Download data sets for download / own use","text":"data set 6 036 rows 2 columns, containing following column names:code mo. data set R available microorganisms.codes, load AMR package. last updated 4 May 2025 16:50:25 UTC. Find info contents, (scientific) source, structure data set . Direct download links: Download original R Data Structure (RDS) file (27 kB) Download tab-separated text file (0.1 MB) Download Microsoft Excel workbook (98 kB) Download Apache Feather file (0.1 MB) Download Apache Parquet file (68 kB) Download IBM SPSS Statistics data file (0.2 MB) Download Stata DTA file (0.2 MB) Example content","code":""},{"path":"https://amr-for-r.org/articles/datasets.html","id":"antivirals-antiviral-drugs","dir":"Articles","previous_headings":"","what":"antivirals: Antiviral Drugs","title":"Download data sets for download / own use","text":"data set 120 rows 11 columns, containing following column names:av, name, atc, cid, atc_group, synonyms, oral_ddd, oral_units, iv_ddd, iv_units, loinc. data set R available antivirals, load AMR package. last updated 20 October 2023 12:51:48 UTC. Find info contents, (scientific) source, structure data set . Direct download links: Download original R Data Structure (RDS) file (6 kB) Download tab-separated text file (17 kB) Download Microsoft Excel workbook (16 kB) Download Apache Feather file (16 kB) Download Apache Parquet file (13 kB) Download IBM SPSS Statistics data file (32 kB) Download Stata DTA file (78 kB) tab-separated text, Microsoft Excel, SPSS, Stata files contain trade names LOINC codes comma separated values. Example content","code":""},{"path":"https://amr-for-r.org/authors.html","id":null,"dir":"","previous_headings":"","what":"Authors","title":"Authors and Citation","text":"Matthijs S. Berends. Author, maintainer. Dennis Souverein. Author, contributor. Erwin E. . Hassing. Author, contributor. Aislinn Cook. Contributor. Andrew P. Norgan. Contributor. Anita Williams. Contributor. Annick Lenglet. Contributor. Anthony Underwood. Contributor. Anton Mymrikov. Contributor. Bart C. Meijer. Contributor. Christian F. Luz. Contributor. Dmytro Mykhailenko. Contributor. Eric H. L. C. M. Hazenberg. Contributor. Gwen Knight. Contributor. Jane Hawkey. Contributor. Jason Stull. Contributor. Javier Sanchez. Contributor. Jonas Salm. Contributor. Judith M. Fonville. Contributor. Kathryn Holt. Contributor. Larisse Bolton. Contributor. Matthew Saab. Contributor. Natacha Couto. Contributor. Peter Dutey-Magni. Contributor. Rogier P. Schade. Contributor. Sofia Ny. Contributor. Alex W. Friedrich. Thesis advisor. Bhanu N. M. Sinha. Thesis advisor. Casper J. Albers. Thesis advisor. Corinna Glasner. Thesis advisor.","code":""},{"path":"https://amr-for-r.org/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://amr-for-r.org/index.html","id":"the-amr-package-for-r-","dir":"","previous_headings":"","what":"Antimicrobial Resistance Data Analysis","title":"Antimicrobial Resistance Data Analysis","text":"Provides --one solution antimicrobial resistance (AMR) data analysis One Health approach Peer-reviewed, used 175 countries, available 28 languages Generates antibiograms - traditional, combined, syndromic, even WISCA Provides full microbiological taxonomy ~79 000 distinct species extensive info ~620 antimicrobial drugs Applies CLSI 2011-2025 EUCAST 2011-2025 clinical veterinary breakpoints, ECOFFs, MIC disk zone interpretation Corrects duplicate isolates, calculates predicts AMR per antimicrobial class Integrates WHONET, ATC, EARS-Net, PubChem, LOINC, SNOMED CT, NCBI 100% free costs dependencies, highly suitable places limited resources Now available Python ! Click read . amr--r.org doi.org/10.18637/jss.v104.i03","code":""},{"path":"https://amr-for-r.org/index.html","id":"introduction","dir":"","previous_headings":"","what":"Introduction","title":"Antimicrobial Resistance Data Analysis","text":"AMR package peer-reviewed, 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. team many different researchers around globe make successful durable project! work published Journal Statistical Software (Volume 104(3); DOI 10.18637/jss.v104.i03) formed basis two PhD theses (DOI 10.33612/diss.177417131 DOI 10.33612/diss.192486375). installing package, R knows ~79 000 distinct microbial species (updated June 2024) ~620 antimicrobial antiviral drugs name code (including ATC, EARS-Net, ASIARS-Net, PubChem, LOINC SNOMED CT), knows valid SIR MIC values. integral clinical breakpoint guidelines CLSI 2011-2025 EUCAST 2011-2025 included, even epidemiological cut-(ECOFF) values. supports can read data format, including WHONET data. package works Windows, macOS Linux versions R since R-3.0 (April 2013). designed work setting, including limited resources. created routine data analysis academic research Faculty Medical Sciences University Groningen University Medical Center Groningen.","code":""},{"path":"https://amr-for-r.org/index.html","id":"used-in-over-175-countries-available-in-28-languages","dir":"","previous_headings":"Introduction","what":"Used in over 175 countries, available in 28 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,  Arabic,  Bengali,  Chinese,  Czech,  Danish,  Dutch,  Finnish,  French,  German,  Greek,  Hindi,  Indonesian,  Italian,  Japanese,  Korean,  Norwegian,  Polish,  Portuguese,  Romanian,  Russian,  Spanish,  Swahili,  Swedish,  Turkish,  Ukrainian,  Urdu,  Vietnamese. Antimicrobial drug (group) names colloquial microorganism names provided languages.","code":""},{"path":[]},{"path":"https://amr-for-r.org/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 antimicrobial columns. can done using -called antimicrobial 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 antimicrobials AMR package make sure get meant.","code":"# AMR works great with dplyr, but it's not required or neccesary library(AMR) library(dplyr, warn.conflicts = FALSE)  example_isolates %>%   mutate(bacteria = mo_fullname()) %>%   # filtering functions for microorganisms:   filter(mo_is_gram_negative(),          mo_is_intrinsic_resistant(ab = \"cefotax\")) %>%   # antimicrobial selectors:   select(bacteria,          aminoglycosides(),          carbapenems()) #> ℹ Using column 'mo' as input for `mo_fullname()` #> ℹ Using column 'mo' as input for `mo_is_gram_negative()` #> ℹ Using column 'mo' as input for `mo_is_intrinsic_resistant()` #> ℹ Determining intrinsic resistance based on 'EUCAST Expected Resistant #>   Phenotypes' v1.2 (2023). This note will be shown once per session. #> ℹ For `aminoglycosides()` using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> ℹ For `carbapenems()` using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> # A tibble: 35 × 7 #>    bacteria                     GEN   TOB   AMK   KAN   IPM   MEM   #>    <chr>                        <sir> <sir> <sir> <sir> <sir> <sir> #>  1 Pseudomonas aeruginosa       I     S     NA    R     S     NA    #>  2 Pseudomonas aeruginosa       I     S     NA    R     S     NA    #>  3 Pseudomonas aeruginosa       I     S     NA    R     S     NA    #>  4 Pseudomonas aeruginosa       S     S     S     R     NA    S     #>  5 Pseudomonas aeruginosa       S     S     S     R     S     S     #>  6 Pseudomonas aeruginosa       S     S     S     R     S     S     #>  7 Stenotrophomonas maltophilia R     R     R     R     R     R     #>  8 Pseudomonas aeruginosa       S     S     S     R     NA    S     #>  9 Pseudomonas aeruginosa       S     S     S     R     NA    S     #> 10 Pseudomonas aeruginosa       S     S     S     R     S     S     #> # ℹ 25 more rows"},{"path":"https://amr-for-r.org/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 antimicrobials yield higher empiric coverage: Like many functions package, antibiogram() comes support 28 languages often detected automatically based system language:","code":"antibiogram(example_isolates,             antimicrobials = 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) antibiogram(example_isolates,             antimicrobials = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\"),             mo_transform = \"gramstain\") antibiogram(example_isolates,             antimicrobials = c(\"cipro\", \"tobra\", \"genta\"), # any arbitrary name or code will work             mo_transform = \"gramstain\",             ab_transform = \"name\",             language = \"uk\") # Ukrainian"},{"path":"https://amr-for-r.org/index.html","id":"interpreting-and-plotting-mic-and-sir-values","dir":"","previous_headings":"Practical examples","what":"Interpreting and plotting MIC and SIR values","title":"Antimicrobial Resistance Data Analysis","text":"AMR package allows interpretation MIC disk diffusion values based CLSI EUCAST. Moreover, ggplot2 package extended new scale functions, allow plotting log2-distributed MIC values SIR values.","code":"library(ggplot2) library(AMR)  # generate some random values some_mic_values <- random_mic(size = 100) some_groups <- sample(LETTERS[1:5], 20, replace = TRUE) interpretation <- as.sir(some_mic_values,                          guideline = \"EUCAST 2024\",                          mo = \"E. coli\", # or any code or name resembling a known species                          ab = \"Cipro\")   # or any code or name resembling an antibiotic  # create the plot ggplot(data.frame(mic = some_mic_values,                   group = some_groups,                   sir = interpretation),        aes(x = group, y = mic, colour = sir)) +   theme_minimal() +   geom_boxplot(fill = NA, colour = \"grey30\") +   geom_jitter(width = 0.25) +      # NEW scale function: plot MIC values to x, y, colour or fill   scale_y_mic() +      # NEW scale function: write out S/I/R in any of the 20 supported languages   #                     and set colourblind-friendly colours   scale_colour_sir()"},{"path":"https://amr-for-r.org/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 antimicrobial 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 = \"-\")))) #> # A tibble: 3 × 5 #>   ward       GEN_total_R GEN_conf_int TOB_total_R TOB_conf_int #>   <chr>            <dbl> <chr>              <dbl> <chr>        #> 1 Clinical         0.229 0.205-0.254        0.315 0.284-0.347  #> 2 ICU              0.290 0.253-0.33         0.400 0.353-0.449  #> 3 Outpatient       0.2   0.131-0.285        0.368 0.254-0.493 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)) #> ℹ For `aminoglycosides()` using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> ℹ For `polymyxins()` using column 'COL' (colistin) #> Warning: There was 1 warning in `summarise()`. #> ℹ In argument: `across(c(aminoglycosides(), polymyxins()), resistance)`. #> ℹ In group 3: `ward = \"Outpatient\"`. #> Caused by warning: #> ! Introducing NA: only 23 results available for KAN in group: ward = #> \"Outpatient\" (`minimum` = 30). out #> # A tibble: 3 × 6 #>   ward         GEN   TOB   AMK   KAN   COL #>   <chr>      <dbl> <dbl> <dbl> <dbl> <dbl> #> 1 Clinical   0.229 0.315 0.626     1 0.780 #> 2 ICU        0.290 0.400 0.662     1 0.857 #> 3 Outpatient 0.2   0.368 0.605    NA 0.889 # transform the antibiotic columns to names: out %>% set_ab_names() #> # A tibble: 3 × 6 #>   ward       gentamicin tobramycin amikacin kanamycin colistin #>   <chr>           <dbl>      <dbl>    <dbl>     <dbl>    <dbl> #> 1 Clinical        0.229      0.315    0.626         1    0.780 #> 2 ICU             0.290      0.400    0.662         1    0.857 #> 3 Outpatient      0.2        0.368    0.605        NA    0.889 # transform the antibiotic column to ATC codes: out %>% set_ab_names(property = \"atc\") #> # A tibble: 3 × 6 #>   ward       J01GB03 J01GB01 J01GB06 J01GB04 J01XB01 #>   <chr>        <dbl>   <dbl>   <dbl>   <dbl>   <dbl> #> 1 Clinical     0.229   0.315   0.626       1   0.780 #> 2 ICU          0.290   0.400   0.662       1   0.857 #> 3 Outpatient   0.2     0.368   0.605      NA   0.889"},{"path":"https://amr-for-r.org/index.html","id":"what-else-can-you-do-with-this-package","dir":"","previous_headings":"","what":"What else can you do with this package?","title":"Antimicrobial Resistance Data Analysis","text":"package intended comprehensive toolbox integrated AMR data analysis. package can used : Reference taxonomy microorganisms, since package contains microbial (sub)species List Prokaryotic names Standing Nomenclature (LPSN) Global Biodiversity Information Facility (GBIF) (manual) Interpreting raw MIC disk diffusion values, based CLSI EUCAST guideline (manual) Retrieving antimicrobial drug names, doses forms administration clinical health care records (manual) Determining first isolates used AMR data analysis (manual) Calculating antimicrobial resistance (tutorial) Determining multi-drug resistance (MDR) / multi-drug resistant organisms (MDRO) (tutorial) Calculating (empirical) susceptibility mono therapy combination therapies (tutorial) Apply AMR functions predictive modelling (tutorial) Getting properties microorganism (like Gram stain, species, genus family) (manual) Getting properties antimicrobial (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://amr-for-r.org/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 beta version.","code":"install.packages(\"AMR\")"},{"path":"https://amr-for-r.org/index.html","id":"latest-beta-version","dir":"","previous_headings":"Get this package","what":"Latest beta version","title":"Antimicrobial Resistance Data Analysis","text":"Please read Developer Guideline . install latest unpublished beta version:","code":"install.packages(\"AMR\", repos = \"beta.amr-for-r.org\")  # if this does not work, try to install directly from GitHub using the 'remotes' package: remotes::install_github(\"msberends/AMR\")"},{"path":"https://amr-for-r.org/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://amr-for-r.org/index.html","id":"partners","dir":"","previous_headings":"","what":"Partners","title":"Antimicrobial Resistance Data Analysis","text":"initial development package part , related , made possible following non-profit organisations initiatives:","code":""},{"path":"https://amr-for-r.org/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://amr-for-r.org/reference/AMR-deprecated.html","id":null,"dir":"Reference","previous_headings":"","what":"Deprecated Functions, Arguments, or Datasets — AMR-deprecated","title":"Deprecated Functions, Arguments, or Datasets — AMR-deprecated","text":"objects -called 'Deprecated'. removed future version package. Using give warning name alternative object replaced (one).","code":""},{"path":"https://amr-for-r.org/reference/AMR-deprecated.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Deprecated Functions, Arguments, or Datasets — AMR-deprecated","text":"","code":"ab_class(...)  ab_selector(...)"},{"path":"https://amr-for-r.org/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://amr-for-r.org/reference/AMR-options.html","id":"options","dir":"Reference","previous_headings":"","what":"Options","title":"Options for the AMR package — AMR-options","text":"AMR_antibiogram_formatting_type  numeric (1-22) use antibiogram(), indicate formatting type use. AMR_breakpoint_type  character use .sir(), indicate breakpoint type use. must either \"ECOFF\", \"animal\", \"human\". AMR_capped_mic_handling  character use .sir(), indicate capped MIC values (<, <=, >, >=) interpreted. Must one \"none\", \"conservative\", \"standard\", \"lenient\" - default \"conservative\". AMR_cleaning_regex  regular expression (case-insensitive) use .mo() mo_* functions, clean user input. default outcome mo_cleaning_regex(), removes texts brackets texts \"species\" \"serovar\". AMR_custom_ab  file location RDS file, use custom antimicrobial drugs package. explained add_custom_antimicrobials(). AMR_custom_mo  file location RDS file, use custom microorganisms package. explained add_custom_microorganisms(). AMR_eucastrules  character set default types rules eucast_rules() function, must one : \"breakpoints\", \"expert\", \"\", \"custom\", \"\", defaults c(\"breakpoints\", \"expert\"). AMR_guideline  character set default guideline interpreting MIC values disk diffusion diameters .sir(). Can guideline name (e.g., \"CLSI\") name year (e.g. \"CLSI 2019\"). default latest implemented EUCAST guideline, currently \"EUCAST 2025\". Supported guideline currently EUCAST (2011-2025) CLSI (2011-2025). 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_substitute_missing_r_breakpoint  logical use .sir(), indicate missing R breakpoints must substituted \"R\" - default FALSE. AMR_include_screening  logical use .sir(), indicate clinical breakpoints screening allowed - default FALSE. AMR_keep_synonyms  logical use .mo() mo_* functions, indicate old, previously valid taxonomic names must preserved corrected currently accepted names. default FALSE. AMR_locale  character set language AMR package, can one supported language names ISO 639-1 codes: English (en), Arabic (ar), Bengali (bn), Chinese (zh), Czech (cs), Danish (da), Dutch (nl), Finnish (fi), French (fr), German (de), Greek (el), Hindi (hi), Indonesian (id), Italian (), Japanese (ja), Korean (ko), Norwegian (), Polish (pl), Portuguese (pt), Romanian (ro), Russian (ru), Spanish (es), Swahili (sw), Swedish (sv), Turkish (tr), Ukrainian (uk), Urdu (ur), Vietnamese (vi). default current system language (supported, English otherwise). AMR_mo_source  file location manual code list used .mo() mo_* functions. explained set_mo_source().","code":""},{"path":"https://amr-for-r.org/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 antimicrobials, allow PK/PD rules interpreting MIC values .sir().","code":"utils::file.edit(\"~/.Rprofile\") options(AMR_locale = \"pt\")  options(AMR_include_PKPD = TRUE)"},{"path":"https://amr-for-r.org/reference/AMR-options.html","id":"share-options-within-team","dir":"Reference","previous_headings":"","what":"Share Options Within Team","title":"Options for the AMR package — AMR-options","text":"global approach, e.g. within (data) team, save options file remote file location, shared network drive, user read file automatically start-. work way: Save plain text file e.g. \"X:/team_folder/R_options.R\" fill preferred settings. user, open .Rprofile file using utils::file.edit(\"~/.Rprofile\") put :   Reload R/RStudio check settings getOption(), e.g. getOption(\"AMR_locale\") set value. Now team settings configured one place, can maintained .","code":"source(\"X:/team_folder/R_options.R\")"},{"path":"https://amr-for-r.org/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 peer-reviewed, 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. team many different researchers around globe make successful durable project! work published Journal Statistical Software (Volume 104(3); doi:10.18637/jss.v104.i03 ) formed basis two PhD theses (doi:10.33612/diss.177417131  doi:10.33612/diss.192486375 ). installing package, R knows ~79 000 distinct microbial species (updated June 2024) ~620 antimicrobial antiviral drugs name code (including ATC, EARS-Net, ASIARS-Net, PubChem, LOINC SNOMED CT), knows valid SIR MIC values. integral clinical breakpoint guidelines CLSI 2011-2025 EUCAST 2011-2025 included, even epidemiological cut-(ECOFF) values. supports can read data format, including WHONET data. package works Windows, macOS Linux versions R since R-3.0 (April 2013). designed work setting, including limited resources. created routine data analysis academic research Faculty Medical Sciences University Groningen University Medical Center Groningen. AMR package available English, Arabic, Bengali, Chinese, Czech, Danish, Dutch, Finnish, French, German, Greek, Hindi, Indonesian, Italian, Japanese, Korean, Norwegian, Polish, Portuguese, Romanian, Russian, Spanish, Swahili, Swedish, Turkish, Ukrainian, Urdu, Vietnamese. Antimicrobial drug (group) names colloquial microorganism names provided languages.","code":""},{"path":"https://amr-for-r.org/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://amr-for-r.org/reference/AMR.html","id":"download-our-reference-data","dir":"Reference","previous_headings":"","what":"Download Our Reference Data","title":"The AMR Package — AMR","text":"reference data sets AMR package - including information microorganisms, antimicrobials, clinical breakpoints - freely available download multiple formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. maximum compatibility, also provide machine-readable, tab-separated plain text files suitable use software, including laboratory information systems. Visit website direct download links, explore actual files GitHub repository.","code":""},{"path":[]},{"path":"https://amr-for-r.org/reference/AMR.html","id":"author","dir":"Reference","previous_headings":"","what":"Author","title":"The AMR Package — AMR","text":"Maintainer: Matthijs S. Berends m.s.berends@umcg.nl (ORCID) Authors: Dennis Souverein (ORCID) [contributor] Erwin E. . Hassing [contributor] contributors: Aislinn Cook (ORCID) [contributor] Andrew P. Norgan (ORCID) [contributor] Anita Williams (ORCID) [contributor] Annick Lenglet (ORCID) [contributor] Anthony Underwood (ORCID) [contributor] Anton Mymrikov [contributor] Bart C. Meijer [contributor] Christian F. Luz (ORCID) [contributor] Dmytro Mykhailenko [contributor] Eric H. L. C. M. Hazenberg [contributor] Gwen Knight (ORCID) [contributor] Jane Hawkey (ORCID) [contributor] Jason Stull (ORCID) [contributor] Javier Sanchez (ORCID) [contributor] Jonas Salm [contributor] Judith M. Fonville [contributor] Kathryn Holt (ORCID) [contributor] Larisse Bolton (ORCID) [contributor] Matthew Saab (ORCID) [contributor] Natacha Couto (ORCID) [contributor] Peter Dutey-Magni (ORCID) [contributor] Rogier P. Schade (ORCID) [contributor] Sofia Ny (ORCID) [contributor] Alex W. Friedrich (ORCID) [thesis advisor] Bhanu N. M. Sinha (ORCID) [thesis advisor] Casper J. Albers (ORCID) [thesis advisor] Corinna Glasner (ORCID) [thesis advisor]","code":""},{"path":"https://amr-for-r.org/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://amr-for-r.org/reference/WHOCC.html","id":"whocc","dir":"Reference","previous_headings":"","what":"WHOCC","title":"WHOCC: WHO Collaborating Centre for Drug Statistics Methodology — WHOCC","text":"package contains ~550 antibiotic, antimycotic antiviral drugs Anatomical Therapeutic Chemical (ATC) codes, ATC groups Defined Daily Dose (DDD) World Health Organization Collaborating Centre Drug Statistics Methodology (WHOCC, https://atcddd.fhi.) Pharmaceuticals Community Register European Commission (https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm). become gold standard international drug utilisation monitoring research. WHOCC located Oslo Norwegian Institute Public Health funded Norwegian government. European Commission executive European Union promotes general interest. NOTE: WHOCC copyright allow use commercial purposes, unlike info package. See https://atcddd.fhi./copyright_disclaimer/.","code":""},{"path":"https://amr-for-r.org/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] \"bactopen\"             \"cloxacap\"             \"cloxacillinhydrate\"   #>  [4] \"cloxypen\"             \"floxacillin\"          \"floxacillinanhydrous\" #>  [7] \"floxapen\"             \"floxapensalt\"         \"fluclomix\"            #> [10] \"flucloxacilina\"       \"flucloxacilline\"      \"flucloxacillinum\"     #> [13] \"flucloxin\"            \"fluorochloroxacillin\" \"galfloxin\"            #> [16] \"latocillin\"           \"orbeninhydrate\"       \"rimaflox\"             #> [19] \"staphobristol\"        \"zoxin\""},{"path":"https://amr-for-r.org/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. antimicrobial results example_isolates data set. patient names created using online surname generators place practice purposes.","code":""},{"path":"https://amr-for-r.org/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://amr-for-r.org/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 antimicrobials. can lookup abbreviations antimicrobials data set, use e.g. ab_name(\"AMP\") get official name immediately. analysis, transform valid antimicrobial class, using .sir().","code":""},{"path":"https://amr-for-r.org/reference/WHONET.html","id":"download-our-reference-data","dir":"Reference","previous_headings":"","what":"Download Our Reference Data","title":"Data Set with 500 Isolates - WHONET Example — WHONET","text":"reference data sets AMR package - including information microorganisms, antimicrobials, clinical breakpoints - freely available download multiple formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. maximum compatibility, also provide machine-readable, tab-separated plain text files suitable use software, including laboratory information systems. Visit website direct download links, explore actual files GitHub repository.","code":""},{"path":"https://amr-for-r.org/reference/WHONET.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with 500 Isolates - WHONET Example — WHONET","text":"","code":"WHONET #> # A tibble: 500 × 53 #>    `Identification number` `Specimen number` Organism Country         Laboratory #>    <chr>                               <int> <chr>    <chr>           <chr>      #>  1 fe41d7bafa                           1748 SPN      Belgium         National … #>  2 91f175ec37                           1767 eco      The Netherlands National … #>  3 cc4015056e                           1343 eco      The Netherlands National … #>  4 e864b692f5                           1894 MAP      Denmark         National … #>  5 3d051fe345                           1739 PVU      Belgium         National … #>  6 c80762a08d                           1846 103      The Netherlands National … #>  7 8022d3727c                           1628 103      Denmark         National … #>  8 f3dc5f553d                           1493 eco      The Netherlands National … #>  9 15add38f6c                           1847 eco      France          National … #> 10 fd41248def                           1458 eco      Germany         National … #> # ℹ 490 more rows #> # ℹ 48 more variables: `Last name` <chr>, `First name` <chr>, Sex <chr>, #> #   Age <dbl>, `Age category` <chr>, `Date of admission` <date>, #> #   `Specimen date` <date>, `Specimen type` <chr>, #> #   `Specimen type (Numeric)` <dbl>, Reason <chr>, `Isolate number` <int>, #> #   `Organism type` <chr>, Serotype <chr>, `Beta-lactamase` <lgl>, ESBL <lgl>, #> #   Carbapenemase <lgl>, `MRSA screening test` <lgl>, …"},{"path":"https://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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 antimicrobials 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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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] \"Aminopenicillins\" \"Fluoroquinolones\"  if (require(\"dplyr\")) {   tibble(clinical_text = c(     \"given 400mg cipro and 500 mg amox\",     \"started on doxy iv today\"   )) %>%     mutate(       abx_codes = ab_from_text(clinical_text),       abx_doses = ab_from_text(clinical_text, type = \"doses\"),       abx_admin = ab_from_text(clinical_text, type = \"admin\"),       abx_coll = ab_from_text(clinical_text, collapse = \"|\"),       abx_coll_names = ab_from_text(clinical_text,         collapse = \"|\",         translate_ab = \"name\"       ),       abx_coll_doses = ab_from_text(clinical_text,         type = \"doses\",         collapse = \"|\"       ),       abx_coll_admin = ab_from_text(clinical_text,         type = \"admin\",         collapse = \"|\"       )     ) } #> Loading required package: dplyr #>  #> Attaching package: ‘dplyr’ #> The following objects are masked from ‘package:stats’: #>  #>     filter, lag #> The following objects are masked from ‘package:base’: #>  #>     intersect, setdiff, setequal, union #> # A tibble: 2 × 8 #>   clinical_text            abx_codes abx_doses abx_admin abx_coll abx_coll_names #>   <chr>                    <list>    <list>    <list>    <chr>    <chr>          #> 1 given 400mg cipro and 5… <ab [2]>  <dbl [2]> <chr [1]> CIP|AMX  Ciprofloxacin… #> 2 started on doxy iv today <ab [1]>  <dbl [1]> <chr [1]> DOX      Doxycycline    #> # ℹ 2 more variables: abx_coll_doses <chr>, abx_coll_admin <chr> # }"},{"path":"https://amr-for-r.org/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 antimicrobials data set. input values evaluated internally .ab().","code":""},{"path":"https://amr-for-r.org/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(), all_groups = FALSE, ...)  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://amr-for-r.org/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 antimicrobials data set: vector_or(colnames(antimicrobials), 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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/reference/ab_property.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Get Properties of an Antibiotic — ab_property","text":"World Health Organization () Collaborating Centre Drug Statistics Methodology: https://atcddd.fhi./atc_ddd_index/ European Commission Public Health PHARMACEUTICALS - COMMUNITY REGISTER: https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm","code":""},{"path":"https://amr-for-r.org/reference/ab_property.html","id":"download-our-reference-data","dir":"Reference","previous_headings":"","what":"Download Our Reference Data","title":"Get Properties of an Antibiotic — ab_property","text":"reference data sets AMR package - including information microorganisms, antimicrobials, clinical breakpoints - freely available download multiple formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. maximum compatibility, also provide machine-readable, tab-separated plain text files suitable use software, including laboratory information systems. Visit website direct download links, explore actual files GitHub repository.","code":""},{"path":[]},{"path":"https://amr-for-r.org/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\"  \"QG51AA03\" \"QJ01CA04\" ab_cid(\"AMX\") #> [1] 33613 ab_synonyms(\"AMX\") #>  [1] \"acuotricina\"     \"alfamox\"         \"alfida\"          \"amitron\"         #>  [5] \"amoclen\"         \"amodex\"          \"amoksicillin\"    \"amolin\"          #>  [9] \"amopen\"          \"amopenixin\"      \"amophar\"         \"amoran\"          #> [13] \"amoxi\"           \"amoxicaps\"       \"amoxicilina\"     \"amoxicilline\"    #> [17] \"amoxicillinum\"   \"amoxidal\"        \"amoxiden\"        \"amoxil\"          #> [21] \"amoxillat\"       \"amoxina\"         \"amoxine\"         \"amoxipen\"        #> [25] \"amoxivet\"        \"amoxycillin\"     \"amoxycillinsalt\" \"amoxyke\"         #> [29] \"anemolin\"        \"aspenil\"         \"atoksilin\"       \"bristamox\"       #> [33] \"cemoxin\"         \"ciblor\"          \"clamoxyl\"        \"damoxy\"          #> [37] \"danoxillin\"      \"delacillin\"      \"demoksil\"        \"dispermox\"       #> [41] \"efpenix\"         \"eupen\"           \"flemoxin\"        \"flemoxine\"       #> [45] \"galenamox\"       \"gramidil\"        \"hiconcil\"        \"himinomax\"       #> [49] \"histocillin\"     \"ibiamox\"         \"imacillin\"       \"izoltil\"         #> [53] \"kentrocyllin\"    \"lamoxy\"          \"largopen\"        \"larotid\"         #> [57] \"matasedrin\"      \"metifarma\"       \"moksilin\"        \"moxacin\"         #> [61] \"moxal\"           \"moxaline\"        \"moxatag\"         \"neotetranase\"    #> [65] \"novabritine\"     \"ospamox\"         \"pacetocin\"       \"pamocil\"         #> [69] \"paradroxil\"      \"pasetocin\"       \"penamox\"         \"piramox\"         #> [73] \"promoxil\"        \"quimiopen\"       \"remoxil\"         \"riotapen\"        #> [77] \"robamox\"         \"sawacillin\"      \"siganopen\"       \"simplamox\"       #> [81] \"sintopen\"        \"sumox\"           \"topramoxin\"      \"trifamox\"        #> [85] \"trimox\"          \"unicillin\"       \"utimox\"          \"velamox\"         #> [89] \"vetramox\"        \"wymox\"           \"zamocillin\"      \"zamocilline\"     #> [93] \"zimox\"           ab_tradenames(\"AMX\") #>  [1] \"acuotricina\"     \"alfamox\"         \"alfida\"          \"amitron\"         #>  [5] \"amoclen\"         \"amodex\"          \"amoksicillin\"    \"amolin\"          #>  [9] \"amopen\"          \"amopenixin\"      \"amophar\"         \"amoran\"          #> [13] \"amoxi\"           \"amoxicaps\"       \"amoxicilina\"     \"amoxicilline\"    #> [17] \"amoxicillinum\"   \"amoxidal\"        \"amoxiden\"        \"amoxil\"          #> [21] \"amoxillat\"       \"amoxina\"         \"amoxine\"         \"amoxipen\"        #> [25] \"amoxivet\"        \"amoxycillin\"     \"amoxycillinsalt\" \"amoxyke\"         #> [29] \"anemolin\"        \"aspenil\"         \"atoksilin\"       \"bristamox\"       #> [33] \"cemoxin\"         \"ciblor\"          \"clamoxyl\"        \"damoxy\"          #> [37] \"danoxillin\"      \"delacillin\"      \"demoksil\"        \"dispermox\"       #> [41] \"efpenix\"         \"eupen\"           \"flemoxin\"        \"flemoxine\"       #> [45] \"galenamox\"       \"gramidil\"        \"hiconcil\"        \"himinomax\"       #> [49] \"histocillin\"     \"ibiamox\"         \"imacillin\"       \"izoltil\"         #> [53] \"kentrocyllin\"    \"lamoxy\"          \"largopen\"        \"larotid\"         #> [57] \"matasedrin\"      \"metifarma\"       \"moksilin\"        \"moxacin\"         #> [61] \"moxal\"           \"moxaline\"        \"moxatag\"         \"neotetranase\"    #> [65] \"novabritine\"     \"ospamox\"         \"pacetocin\"       \"pamocil\"         #> [69] \"paradroxil\"      \"pasetocin\"       \"penamox\"         \"piramox\"         #> [73] \"promoxil\"        \"quimiopen\"       \"remoxil\"         \"riotapen\"        #> [77] \"robamox\"         \"sawacillin\"      \"siganopen\"       \"simplamox\"       #> [81] \"sintopen\"        \"sumox\"           \"topramoxin\"      \"trifamox\"        #> [85] \"trimox\"          \"unicillin\"       \"utimox\"          \"velamox\"         #> [89] \"vetramox\"        \"wymox\"           \"zamocillin\"      \"zamocilline\"     #> [93] \"zimox\"           ab_group(\"AMX\") #> [1] \"Aminopenicillins\" ab_atc_group1(\"AMX\") #> [1] \"Beta-lactam antibacterials, penicillins\" ab_atc_group2(\"AMX\") #> [1] \"Penicillins with extended spectrum\" ab_url(\"AMX\") #>                                                             Amoxicillin  #> \"https://atcddd.fhi.no/atc_ddd_index//?code=J01CA04&showdescription=no\"   # smart lowercase transformation ab_name(x = c(\"AMC\", \"PLB\")) #> [1] \"Amoxicillin/clavulanic acid\" \"Polymyxin B\"                 ab_name(x = c(\"AMC\", \"PLB\"), tolower = TRUE) #> [1] \"amoxicillin/clavulanic acid\" \"polymyxin B\"                  # defined daily doses (DDD) ab_ddd(\"AMX\", \"oral\") #> [1] 1.5 ab_ddd_units(\"AMX\", \"oral\") #> [1] \"g\" ab_ddd(\"AMX\", \"iv\") #> [1] 3 ab_ddd_units(\"AMX\", \"iv\") #> [1] \"g\"  ab_info(\"AMX\") # all properties as a list #> $ab #> [1] \"AMX\" #>  #> $cid #> [1] 33613 #>  #> $name #> [1] \"Amoxicillin\" #>  #> $group #> [1] \"Aminopenicillins\" #>  #> $atc #> [1] \"J01CA04\"  \"QG51AA03\" \"QJ01CA04\" #>  #> $atc_group1 #> [1] \"Beta-lactam antibacterials, penicillins\" #>  #> $atc_group2 #> [1] \"Penicillins with extended spectrum\" #>  #> $tradenames #>  [1] \"acuotricina\"     \"alfamox\"         \"alfida\"          \"amitron\"         #>  [5] \"amoclen\"         \"amodex\"          \"amoksicillin\"    \"amolin\"          #>  [9] \"amopen\"          \"amopenixin\"      \"amophar\"         \"amoran\"          #> [13] \"amoxi\"           \"amoxicaps\"       \"amoxicilina\"     \"amoxicilline\"    #> [17] \"amoxicillinum\"   \"amoxidal\"        \"amoxiden\"        \"amoxil\"          #> [21] \"amoxillat\"       \"amoxina\"         \"amoxine\"         \"amoxipen\"        #> [25] \"amoxivet\"        \"amoxycillin\"     \"amoxycillinsalt\" \"amoxyke\"         #> [29] \"anemolin\"        \"aspenil\"         \"atoksilin\"       \"bristamox\"       #> [33] \"cemoxin\"         \"ciblor\"          \"clamoxyl\"        \"damoxy\"          #> [37] \"danoxillin\"      \"delacillin\"      \"demoksil\"        \"dispermox\"       #> [41] \"efpenix\"         \"eupen\"           \"flemoxin\"        \"flemoxine\"       #> [45] \"galenamox\"       \"gramidil\"        \"hiconcil\"        \"himinomax\"       #> [49] \"histocillin\"     \"ibiamox\"         \"imacillin\"       \"izoltil\"         #> [53] \"kentrocyllin\"    \"lamoxy\"          \"largopen\"        \"larotid\"         #> [57] \"matasedrin\"      \"metifarma\"       \"moksilin\"        \"moxacin\"         #> [61] \"moxal\"           \"moxaline\"        \"moxatag\"         \"neotetranase\"    #> [65] \"novabritine\"     \"ospamox\"         \"pacetocin\"       \"pamocil\"         #> [69] \"paradroxil\"      \"pasetocin\"       \"penamox\"         \"piramox\"         #> [73] \"promoxil\"        \"quimiopen\"       \"remoxil\"         \"riotapen\"        #> [77] \"robamox\"         \"sawacillin\"      \"siganopen\"       \"simplamox\"       #> [81] \"sintopen\"        \"sumox\"           \"topramoxin\"      \"trifamox\"        #> [85] \"trimox\"          \"unicillin\"       \"utimox\"          \"velamox\"         #> [89] \"vetramox\"        \"wymox\"           \"zamocillin\"      \"zamocilline\"     #> [93] \"zimox\"           #>  #> $loinc #>  [1] \"101498-4\" \"15-8\"     \"16-6\"     \"16365-9\"  \"17-4\"     \"18-2\"     #>  [7] \"18861-5\"  \"18862-3\"  \"19-0\"     \"20-8\"     \"21-6\"     \"22-4\"     #> [13] \"25274-2\"  \"25310-4\"  \"3344-9\"   \"55614-2\"  \"55615-9\"  \"55616-7\"  #> [19] \"6976-5\"   \"6977-3\"   \"80133-2\"  #>  #> $ddd #> $ddd$oral #> $ddd$oral$amount #> [1] 1.5 #>  #> $ddd$oral$units #> [1] \"g\" #>  #>  #> $ddd$iv #> $ddd$iv$amount #> [1] 3 #>  #> $ddd$iv$units #> [1] \"g\" #>  #>  #>   # all ab_* functions use as.ab() internally, so you can go from 'any' to 'any': ab_atc(\"AMP\") #> [1] \"J01CA01\"  \"QJ01CA01\" \"QJ51CA01\" \"QS01AA19\" \"S01AA19\"  ab_group(\"J01CA01\") #> [1] \"Aminopenicillins\" ab_loinc(\"ampicillin\") #>  [1] \"101477-8\" \"101478-6\" \"18864-9\"  \"18865-6\"  \"20374-5\"  \"21066-6\"  #>  [7] \"23618-2\"  \"27-3\"     \"28-1\"     \"29-9\"     \"30-7\"     \"31-5\"     #> [13] \"32-3\"     \"33-1\"     \"3355-5\"   \"33562-0\"  \"33919-2\"  \"34-9\"     #> [19] \"43883-8\"  \"43884-6\"  \"6979-9\"   \"6980-7\"   \"87604-5\"  ab_name(\"21066-6\") #> [1] \"Ampicillin\" ab_name(6249) #> [1] \"Ampicillin\" ab_name(\"J01CA01\") #> [1] \"Ampicillin\"  # spelling from different languages and dyslexia are no problem ab_atc(\"ceftriaxon\") #> [1] \"J01DD04\"  \"QJ01DD04\" ab_atc(\"cephtriaxone\") #> [1] \"J01DD04\"  \"QJ01DD04\" ab_atc(\"cephthriaxone\") #> [1] \"J01DD04\"  \"QJ01DD04\" ab_atc(\"seephthriaaksone\") #> [1] \"J01DD04\"  \"QJ01DD04\"  # 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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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 antimicrobials data set, least containing columns \"ab\" \"name\".","code":""},{"path":"https://amr-for-r.org/reference/add_custom_antimicrobials.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Add Custom Antimicrobials — add_custom_antimicrobials","text":"Important: Due R works, add_custom_antimicrobials() function run every R session - added antimicrobials stored sessions thus lost R exited. two ways circumvent automate process adding antimicrobials: Method 1: Using package option AMR_custom_ab, preferred method. use method: Create data set structure antimicrobials data set (containing least columns \"ab\" \"name\") save saveRDS() location choice, e.g. \"~/my_custom_ab.rds\", remote location. Set file location package option AMR_custom_ab: options(AMR_custom_ab = \"~/my_custom_ab.rds\"). can even remote file location, https URL. Since options saved R sessions, best save option .Rprofile file loaded start-R. , open .Rprofile file using e.g. utils::file.edit(\"~/.Rprofile\"), add text save file:   Upon package load, file loaded run add_custom_antimicrobials() function. Method 2: Loading antimicrobial additions directly .Rprofile file. Note definitions stored user-specific R file, suboptimal workflow. use method: Edit .Rprofile file using e.g. utils::file.edit(\"~/.Rprofile\"). Add text like save file:   Use clear_custom_antimicrobials() clear previously added antimicrobials.","code":"# Add custom antimicrobial codes: options(AMR_custom_ab = \"~/my_custom_ab.rds\") # Add custom antibiotic drug codes:  AMR::add_custom_antimicrobials(    data.frame(ab = \"TESTAB\",               name = \"Test Antibiotic\",               group = \"Test Group\")  )"},{"path":[]},{"path":"https://amr-for-r.org/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 a wildly guessed result: as.ab(\"testab\") #> Class 'ab' #> [1] THA  # 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     # 'antimicrobials' data set, such as 'group':     group = \"Test Group\"   ) ) #> ℹ Added one record to the internal `antimicrobials` data set.  # \"testab\" is now a new antibiotic: as.ab(\"testab\") #> Class 'ab' #> [1] TESTAB ab_name(\"testab\") #> [1] \"Test Antibiotic\" ab_group(\"testab\") #> [1] \"Test Group\"  ab_info(\"testab\") #> $ab #> [1] \"TESTAB\" #>  #> $cid #> [1] NA #>  #> $name #> [1] \"Test Antibiotic\" #>  #> $group #> [1] \"Test Group\" #>  #> $atc #> [1] NA #>  #> $atc_group1 #> [1] NA #>  #> $atc_group2 #> [1] NA #>  #> $tradenames #> [1] NA #>  #> $loinc #> [1] NA #>  #> $ddd #> $ddd$oral #> $ddd$oral$amount #> [1] NA #>  #> $ddd$oral$units #> [1] NA #>  #>  #> $ddd$iv #> $ddd$iv$amount #> [1] NA #>  #> $ddd$iv$units #> [1] NA #>  #>  #>    # Add Co-fluampicil, which is one of the many J01CR50 codes, see # https://atcddd.fhi.no/ddd/list_of_ddds_combined_products/ add_custom_antimicrobials(   data.frame(     ab = \"COFLU\",     name = \"Co-fluampicil\",     atc = \"J01CR50\",     group = \"Beta-lactams/penicillins\"   ) ) #> ℹ Added one record to the internal `antimicrobials` data set. ab_atc(\"Co-fluampicil\") #> [1] \"J01CR50\" ab_name(\"J01CR50\") #> [1] \"Co-fluampicil\"  # even antimicrobial selectors work # see ?amr_selector 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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/reference/add_custom_microorganisms.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Add Custom Microorganisms — add_custom_microorganisms","text":"function fill missing taxonomy , specific taxonomic columns missing, see Examples. Important: Due R works, add_custom_microorganisms() function run every R session - added microorganisms stored sessions thus lost R exited. two ways circumvent automate process adding microorganisms: Method 1: Using package option AMR_custom_mo, preferred method. use method: Create data set structure microorganisms data set (containing least column \"genus\") save saveRDS() location choice, e.g. \"~/my_custom_mo.rds\", remote location. Set file location package option AMR_custom_mo: options(AMR_custom_mo = \"~/my_custom_mo.rds\"). can even remote file location, https URL. Since options saved R sessions, best save option .Rprofile file loaded start-R. , open .Rprofile file using e.g. utils::file.edit(\"~/.Rprofile\"), add text save file:   Upon package load, file loaded run add_custom_microorganisms() function. Method 2: Loading microorganism directly .Rprofile file. Note definitions stored user-specific R file, suboptimal workflow. use method: Edit .Rprofile file using e.g. utils::file.edit(\"~/.Rprofile\"). Add text like save file:   Use clear_custom_microorganisms() clear previously added microorganisms.","code":"# Add custom microorganism codes: options(AMR_custom_mo = \"~/my_custom_mo.rds\") # Add custom antibiotic drug codes:  AMR::add_custom_microorganisms(    data.frame(genus = \"Enterobacter\",               species = \"asburiae/cloacae\")  )"},{"path":[]},{"path":"https://amr-for-r.org/reference/add_custom_microorganisms.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Add Custom Microorganisms — add_custom_microorganisms","text":"","code":"# \\donttest{ # a combination of species is not formal taxonomy, so # this will result in \"Enterobacter cloacae cloacae\", # since it resembles the input best: mo_name(\"Enterobacter asburiae/cloacae\") #> [1] \"Enterobacter asburiae\"  # now add a custom entry - it will be considered by as.mo() and # all mo_*() functions add_custom_microorganisms(   data.frame(     genus = \"Enterobacter\",     species = \"asburiae/cloacae\"   ) ) #> ℹ Added Enterobacter asburiae/cloacae to the internal `microorganisms` data #>   set.  # E. asburiae/cloacae is now a new microorganism: mo_name(\"Enterobacter asburiae/cloacae\") #> [1] \"Enterobacter asburiae/cloacae\"  # its code: as.mo(\"Enterobacter asburiae/cloacae\") #> Class 'mo' #> [1] CUSTOM1_ENTRB_ASB/  # all internal algorithms will work as well: mo_name(\"Ent asburia cloacae\") #> [1] \"Enterobacter asburiae/cloacae\"  # and even the taxonomy was added based on the genus! mo_family(\"E. asburiae/cloacae\") #> [1] \"Enterobacteriaceae\" mo_gramstain(\"Enterobacter asburiae/cloacae\") #> [1] \"Gram-negative\"  mo_info(\"Enterobacter asburiae/cloacae\") #> $mo #> [1] \"CUSTOM1_ENTRB_ASB/\" #>  #> $rank #> [1] \"species\" #>  #> $kingdom #> [1] \"Bacteria\" #>  #> $phylum #> [1] \"Pseudomonadota\" #>  #> $class #> [1] \"Gammaproteobacteria\" #>  #> $order #> [1] \"Enterobacterales\" #>  #> $family #> [1] \"Enterobacteriaceae\" #>  #> $genus #> [1] \"Enterobacter\" #>  #> $species #> [1] \"asburiae/cloacae\" #>  #> $subspecies #> [1] \"\" #>  #> $status #> [1] \"accepted\" #>  #> $synonyms #> NULL #>  #> $gramstain #> [1] \"Gram-negative\" #>  #> $oxygen_tolerance #> [1] NA #>  #> $url #> [1] \"\" #>  #> $ref #> [1] \"Self-added, 2026\" #>  #> $snomed #> [1] NA #>  #> $lpsn #> [1] NA #>  #> $mycobank #> [1] NA #>  #> $gbif #> [1] NA #>  #> $group_members #> character(0) #>    # the function tries to be forgiving: add_custom_microorganisms(   data.frame(     GENUS = \"BACTEROIDES / PARABACTEROIDES SLASHLINE\",     SPECIES = \"SPECIES\"   ) ) #> ℹ Added Bacteroides/Parabacteroides to the internal `microorganisms` data #>   set. mo_name(\"BACTEROIDES / PARABACTEROIDES\") #> [1] \"Bacteroides/Parabacteroides\" mo_rank(\"BACTEROIDES / PARABACTEROIDES\") #> [1] \"genus\"  # taxonomy still works, even though a slashline genus was given as input: mo_family(\"Bacteroides/Parabacteroides\") #> [1] \"Bacteroidaceae\"   # for groups and complexes, set them as species or subspecies: add_custom_microorganisms(   data.frame(     genus = \"Citrobacter\",     species = c(\"freundii\", \"braakii complex\"),     subspecies = c(\"complex\", \"\")   ) ) #> ℹ Added Citrobacter braakii complex and Citrobacter freundii complex to the #>   internal `microorganisms` data set. mo_name(c(\"C. freundii complex\", \"C. braakii complex\")) #> [1] \"Citrobacter freundii complex\" \"Citrobacter braakii complex\"  mo_species(c(\"C. freundii complex\", \"C. braakii complex\")) #> [1] \"freundii complex\" \"braakii complex\"  mo_gramstain(c(\"C. freundii complex\", \"C. braakii complex\")) #> [1] \"Gram-negative\" \"Gram-negative\" # }"},{"path":"https://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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  1980-02-27  45  45.85753         19 #> 2  1953-07-26  72  72.44932         46 #> 3  1949-09-02  76  76.34521         50 #> 4  1986-08-03  39  39.42740         13 #> 5  1932-11-19  93  93.13151         67 #> 6  1949-03-30  76  76.77260         50 #> 7  1996-06-23  29  29.53973          3 #> 8  1963-09-16  62  62.30685         36 #> 9  1952-05-16  73  73.64384         47 #> 10 1952-11-14  73  73.14521         47"},{"path":"https://amr-for-r.org/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. function returns ordered factor.","code":""},{"path":"https://amr-for-r.org/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(0, 12, 25, 55, 75), names = NULL,   na.rm = FALSE)"},{"path":"https://amr-for-r.org/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. names Optional names given various age groups. na.rm logical indicate whether missing values removed.","code":""},{"path":"https://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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+ age_groups(ages, c(20, 50), names = c(\"Under 20 years\", \"20 to 50 years\", \"Over 50 years\")) #> [1] Under 20 years Under 20 years Under 20 years Over 50 years  20 to 50 years #> [6] Over 50 years  Over 50 years  20 to 50 years 20 to 50 years #> Levels: Under 20 years < 20 to 50 years < Over 50 years  # 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://amr-for-r.org/reference/amr-tidymodels.html","id":null,"dir":"Reference","previous_headings":"","what":"AMR Extensions for Tidymodels — amr-tidymodels","title":"AMR Extensions for Tidymodels — amr-tidymodels","text":"family functions allows using AMR-specific data types <sir> <mic> inside tidymodels pipelines.","code":""},{"path":"https://amr-for-r.org/reference/amr-tidymodels.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"AMR Extensions for Tidymodels — amr-tidymodels","text":"","code":"all_sir()  all_sir_predictors()  all_mic()  all_mic_predictors()  all_disk()  all_disk_predictors()  step_mic_log2(recipe, ..., role = NA, trained = FALSE, columns = NULL,   skip = FALSE, id = recipes::rand_id(\"mic_log2\"))  step_sir_numeric(recipe, ..., role = NA, trained = FALSE, columns = NULL,   skip = FALSE, id = recipes::rand_id(\"sir_numeric\"))"},{"path":"https://amr-for-r.org/reference/amr-tidymodels.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"AMR Extensions for Tidymodels — amr-tidymodels","text":"recipe recipe object. step added sequence operations recipe. ... One selector functions choose variables step. See selections() details. role used step since new variables created. trained logical indicate quantities preprocessing estimated. skip logical. step skipped recipe baked bake()? operations baked prep() run, operations may able conducted new data (e.g. processing outcome variable(s)). Care taken using skip = TRUE may affect computations subsequent operations. id character string unique step identify .","code":""},{"path":"https://amr-for-r.org/reference/amr-tidymodels.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"AMR Extensions for Tidymodels — amr-tidymodels","text":"can read online AMR tidymodels introduction. Tidyselect helpers include: all_sir() all_sir_predictors() select <sir> columns all_mic() all_mic_predictors() select <mic> columns all_disk() all_disk_predictors() select <disk> columns Pre-processing pipeline steps include: step_sir_numeric() convert SIR columns numeric (via .numeric()), used all_sir_predictors(): \"S\" = 1, \"\"/\"SDD\" = 2, \"R\" = 3. values rendered NA. Keep mind processing, especially model allow NA values. step_mic_log2() convert MIC columns numeric (via .numeric()) apply log2 transform, used all_mic_predictors() steps integrate recipes::recipe() work like standard preprocessing steps. useful preparing data modelling, especially classification models.","code":""},{"path":[]},{"path":"https://amr-for-r.org/reference/amr-tidymodels.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"AMR Extensions for Tidymodels — amr-tidymodels","text":"","code":"if (require(\"tidymodels\")) {    # The below approach formed the basis for this paper: DOI 10.3389/fmicb.2025.1582703   # Presence of ESBL genes was predicted based on raw MIC values.     # example data set in the AMR package   esbl_isolates    # Prepare a binary outcome and convert to ordered factor   data <- esbl_isolates %>%     mutate(esbl = factor(esbl, levels = c(FALSE, TRUE), ordered = TRUE))    # Split into training and testing sets   split <- initial_split(data)   training_data <- training(split)   testing_data <- testing(split)    # Create and prep a recipe with MIC log2 transformation   mic_recipe <- recipe(esbl ~ ., data = training_data) %>%      # Optionally remove non-predictive variables     remove_role(genus, old_role = \"predictor\") %>%      # Apply the log2 transformation to all MIC predictors     step_mic_log2(all_mic_predictors()) %>%      # And apply the preparation steps     prep()    # View prepped recipe   mic_recipe    # Apply the recipe to training and testing data   out_training <- bake(mic_recipe, new_data = NULL)   out_testing <- bake(mic_recipe, new_data = testing_data)    # Fit a logistic regression model   fitted <- logistic_reg(mode = \"classification\") %>%     set_engine(\"glm\") %>%     fit(esbl ~ ., data = out_training)    # Generate predictions on the test set   predictions <- predict(fitted, out_testing) %>%     bind_cols(out_testing)    # Evaluate predictions using standard classification metrics   our_metrics <- metric_set(accuracy,                             recall,                             precision,                             sensitivity,                             specificity,                             ppv,                             npv)   metrics <- our_metrics(predictions, truth = esbl, estimate = .pred_class)    # Show performance   metrics } #> Loading required package: tidymodels #> ── Attaching packages ────────────────────────────────────── tidymodels 1.4.1 ── #> ✔ broom        1.0.11     ✔ rsample      1.3.1  #> ✔ dials        1.4.2      ✔ tailor       0.1.0  #> ✔ infer        1.1.0      ✔ tidyr        1.3.2  #> ✔ modeldata    1.5.1      ✔ tune         2.0.1  #> ✔ parsnip      1.4.0      ✔ workflows    1.3.0  #> ✔ purrr        1.2.0      ✔ workflowsets 1.1.1  #> ✔ recipes      1.3.1      ✔ yardstick    1.3.2  #> ── Conflicts ───────────────────────────────────────── tidymodels_conflicts() ── #> ✖ purrr::discard() masks scales::discard() #> ✖ dplyr::filter()  masks stats::filter() #> ✖ dplyr::lag()     masks stats::lag() #> ✖ recipes::step()  masks stats::step() #> Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred #> # A tibble: 7 × 3 #>   .metric     .estimator .estimate #>   <chr>       <chr>          <dbl> #> 1 accuracy    binary         0.936 #> 2 recall      binary         0.954 #> 3 precision   binary         0.925 #> 4 sensitivity binary         0.954 #> 5 specificity binary         0.917 #> 6 ppv         binary         0.925 #> 7 npv         binary         0.948"},{"path":"https://amr-for-r.org/reference/antibiogram.html","id":null,"dir":"Reference","previous_headings":"","what":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","title":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","text":"Create detailed antibiograms options traditional, combination, syndromic, Bayesian WISCA methods. Adhering previously described approaches (see Source) especially Bayesian WISCA model (Weighted-Incidence Syndromic Combination Antibiogram) Bielicki et al., functions provide flexible output formats including plots tables, ideal integration R Markdown Quarto reports.","code":""},{"path":"https://amr-for-r.org/reference/antibiogram.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","text":"","code":"antibiogram(x, antimicrobials = where(is.sir), mo_transform = \"shortname\",   ab_transform = \"name\", syndromic_group = NULL, add_total_n = FALSE,   only_all_tested = FALSE, digits = ifelse(wisca, 1, 0),   formatting_type = getOption(\"AMR_antibiogram_formatting_type\",   ifelse(wisca, 14, 18)), col_mo = NULL, language = get_AMR_locale(),   minimum = 30, combine_SI = TRUE, sep = \" + \", sort_columns = TRUE,   wisca = FALSE, simulations = 1000, conf_interval = 0.95,   interval_side = \"two-tailed\", info = interactive(), ...)  wisca(x, antimicrobials = where(is.sir), ab_transform = \"name\",   syndromic_group = NULL, only_all_tested = FALSE, digits = 1,   formatting_type = getOption(\"AMR_antibiogram_formatting_type\", 14),   col_mo = NULL, language = get_AMR_locale(), combine_SI = TRUE,   sep = \" + \", sort_columns = TRUE, simulations = 1000,   conf_interval = 0.95, interval_side = \"two-tailed\",   info = interactive(), ...)  retrieve_wisca_parameters(wisca_model, ...)  # S3 method for class 'antibiogram' plot(x, ...)  # S3 method for class 'antibiogram' autoplot(object, ...)  # S3 method for class 'antibiogram' knit_print(x, italicise = TRUE,   na = getOption(\"knitr.kable.NA\", default = \"\"), ...)"},{"path":"https://amr-for-r.org/reference/antibiogram.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","text":"Bielicki JA et al. (2016). Selecting appropriate empirical antibiotic regimens paediatric bloodstream infections: application Bayesian decision model local pooled antimicrobial resistance surveillance data Journal Antimicrobial Chemotherapy 71(3); doi:10.1093/jac/dkv397 Bielicki JA et al. (2020). Evaluation coverage 3 antibiotic regimens neonatal sepsis hospital setting across Asian countries JAMA Netw Open. 3(2):e1921124; doi:10.1001/jamanetworkopen.2019.21124 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://amr-for-r.org/reference/antibiogram.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","text":"x data.frame containing least column microorganisms columns antimicrobial results (class 'sir', see .sir()). antimicrobials vector specifying antimicrobials containing SIR values include antibiogram (see Examples). evaluated using guess_ab_col(). can : antimicrobial name code match (see guess_ab_col()) column x antimicrobial selector, aminoglycosides() carbapenems() combination , using c(), e.g.: c(aminoglycosides(), \"AMP\", \"AMC\") c(aminoglycosides(), carbapenems()) Column indices using numbers Combination therapy, indicated using \"+\", without antimicrobial selectors, e.g.: \"cipro + genta\" \"TZP+TOB\" c(\"TZP\", \"TZP+GEN\", \"TZP+TOB\") carbapenems() + \"GEN\" carbapenems() + c(\"\", \"GEN\") carbapenems() + c(\"\", aminoglycosides()) mo_transform character transform microorganism input - must \"name\", \"shortname\" (default), \"gramstain\", one column names microorganisms data set: \"mo\", \"fullname\", \"status\", \"kingdom\", \"phylum\", \"class\", \"order\", \"family\", \"genus\", \"species\", \"subspecies\", \"rank\", \"ref\", \"oxygen_tolerance\", \"source\", \"lpsn\", \"lpsn_parent\", \"lpsn_renamed_to\", \"mycobank\", \"mycobank_parent\", \"mycobank_renamed_to\", \"gbif\", \"gbif_parent\", \"gbif_renamed_to\", \"prevalence\", \"snomed\". Can also NULL transform input NA consider microorganisms 'unknown'. ab_transform character transform antimicrobial input - must one column names antimicrobials data set (defaults \"name\"): \"ab\", \"cid\", \"name\", \"group\", \"atc\", \"atc_group1\", \"atc_group2\", \"abbreviations\", \"synonyms\", \"oral_ddd\", \"oral_units\", \"iv_ddd\", \"iv_units\", \"loinc\". Can also NULL transform input. syndromic_group column name x, values calculated split rows x, e.g. using ifelse() case_when(). See Examples. add_total_n (deprecated favour formatting_type) logical indicate whether n_tested available numbers per pathogen added table (default TRUE). add lowest highest number available isolates per antimicrobial (e.g, E. coli 200 isolates available ciprofloxacin 150 amoxicillin, returned number \"150-200\"). option unavailable wisca = TRUE; case, use retrieve_wisca_parameters() get parameters used WISCA. only_all_tested (combination antibiograms): logical indicate isolates must tested antimicrobials, see Details. digits Number digits use rounding antimicrobial coverage, defaults 1 WISCA 0 otherwise. formatting_type Numeric value (1–22 WISCA, 1-12 non-WISCA) indicating 'cells' antibiogram table formatted. See Details > Formatting Type list options. col_mo Column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). language Language translate text, defaults system language (see get_AMR_locale()). minimum minimum allowed number available (tested) isolates. isolate count lower minimum return NA warning. default number 30 isolates advised Clinical Laboratory Standards Institute (CLSI) best practice, see Source. combine_SI logical indicate whether susceptibility determined results either S, SDD, , instead S (default TRUE). sep separating character antimicrobial columns combination antibiograms. sort_columns logical indicate whether antimicrobial columns must sorted name. wisca logical indicate whether Weighted-Incidence Syndromic Combination Antibiogram (WISCA) must generated (default FALSE). use Bayesian decision model estimate regimen coverage probabilities using Monte Carlo simulations. Set simulations, conf_interval, interval_side adjust. simulations (WISCA) numerical value set number Monte Carlo simulations. conf_interval numerical value set confidence interval (default 0.95). interval_side side confidence interval, either \"two-tailed\" (default), \"left\" \"right\". info logical indicate info printed - default TRUE interactive mode. ... used R Markdown Quarto: arguments passed knitr::kable() (otherwise, use). wisca_model outcome wisca() antibiogram(..., wisca = TRUE). 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://amr-for-r.org/reference/antibiogram.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","text":"functions return table values 0 100 susceptibility, resistance. Remember filter data let contain first isolates! needed exclude duplicates reduce selection bias. Use first_isolate() determine one four available algorithms: isolate-based, patient-based, episode-based, phenotype-based. estimating antimicrobial coverage, especially creating WISCA, outcome might become reliable including top n species encountered data. can filter top n using top_n_microorganisms(). example, use top_n_microorganisms(your_data, n = 10) pre-processing step include top 10 species data. numeric values antibiogram stored long format attribute long_numeric. can retrieve using attributes(x)$long_numeric, x outcome antibiogram() wisca(). ideal e.g. advanced plotting.","code":""},{"path":"https://amr-for-r.org/reference/antibiogram.html","id":"formatting-type","dir":"Reference","previous_headings":"","what":"Formatting Type","title":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","text":"formatting 'cells' table can set argument formatting_type. examples, 5 indicates antimicrobial coverage (4-6 confidence level), 15 number susceptible isolates, 300 number tested (.e., available) isolates: 5 15 300 15/300 5 (300) 5% (300) 5 (N=300) 5% (N=300) 5 (15/300) 5% (15/300) 5 (N=15/300) 5% (N=15/300) 5 (4-6) 5% (4-6%) - default WISCA 5 (4-6,300) 5% (4-6%,300) 5 (4-6,N=300) 5% (4-6%,N=300) - default non-WISCA 5 (4-6,15/300) 5% (4-6%,15/300) 5 (4-6,N=15/300) 5% (4-6%,N=15/300) default can set globally package option AMR_antibiogram_formatting_type, e.g. options(AMR_antibiogram_formatting_type = 5). note WISCA, total numbers tested susceptible isolates less useful report, since included Bayesian model apparent susceptibility confidence level. Set digits (defaults 0) alter rounding susceptibility percentages.","code":""},{"path":"https://amr-for-r.org/reference/antibiogram.html","id":"antibiogram-types","dir":"Reference","previous_headings":"","what":"Antibiogram Types","title":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","text":"various antibiogram types, summarised Klinker et al. (2021, doi:10.1177/20499361211011373 ), supported antibiogram(). clinical coverage estimations, use WISCA whenever possible, since provides precise coverage estimates accounting pathogen incidence antimicrobial susceptibility, shown Bielicki et al. (2020, doi:10.1001/jamanetworkopen.2019.21124 ). See section Explaining WISCA page. note WISCA pathogen-agnostic, meaning outcome stratied pathogen, rather syndrome. Traditional Antibiogram Case example: Susceptibility Pseudomonas aeruginosa piperacillin/tazobactam (TZP) Code example:   Combination Antibiogram Case example: Additional susceptibility Pseudomonas aeruginosa TZP + tobramycin versus TZP alone Code example:   Syndromic Antibiogram Case example: Susceptibility Pseudomonas aeruginosa TZP among respiratory specimens (obtained among ICU patients ) Code example:   Weighted-Incidence Syndromic Combination Antibiogram (WISCA) WISCA can applied antibiogram, see section Explaining WISCA page information. Code example:   WISCA uses sophisticated Bayesian decision model combine local pooled antimicrobial resistance data. approach evaluates local patterns can also draw multi-centre data sets improve regimen accuracy, even low-incidence infections like paediatric bloodstream infections (BSIs).","code":"antibiogram(your_data,             antimicrobials = \"TZP\") antibiogram(your_data,             antimicrobials = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\")) antibiogram(your_data,             antimicrobials = penicillins(),             syndromic_group = \"ward\") antibiogram(your_data,             antimicrobials = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\"),             wisca = TRUE)  # this is equal to: wisca(your_data,       antimicrobials = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\"))"},{"path":"https://amr-for-r.org/reference/antibiogram.html","id":"grouped-tibbles","dir":"Reference","previous_headings":"","what":"Grouped tibbles","title":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","text":"type antibiogram, grouped tibbles can also used calculate susceptibilities various groups. Code example:","code":"library(dplyr) your_data %>%   group_by(has_sepsis, is_neonate, sex) %>%   wisca(antimicrobials = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\"))"},{"path":"https://amr-for-r.org/reference/antibiogram.html","id":"stepped-approach-for-clinical-insight","dir":"Reference","previous_headings":"","what":"Stepped Approach for Clinical Insight","title":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","text":"clinical practice, antimicrobial coverage decisions evolve microbiological data becomes available. theoretical stepped approach ensures empirical coverage can continuously assessed improve patient outcomes: Initial Empirical Therapy (Admission / Pre-Culture Data) admission, pathogen information available. Action: broad-spectrum coverage based local resistance patterns syndromic antibiograms. Using pathogen-agnostic yet incidence-weighted WISCA preferred. Code example:   Refinement Gram Stain Results blood culture becomes positive, Gram stain provides initial crucial first stratification (Gram-positive vs. Gram-negative). Action: narrow coverage based Gram stain-specific resistance patterns. Code example:   Definitive Therapy Based Species Identification cultivation pathogen, full pathogen identification allows precise targeting therapy. Action: adjust treatment pathogen-specific antibiograms, minimizing resistance risks. Code example:   structuring antibiograms around stepped approach, clinicians can make data-driven adjustments stage, ensuring optimal empirical targeted therapy reducing unnecessary broad-spectrum antimicrobial use.","code":"antibiogram(your_data,             antimicrobials = selected_regimens,             mo_transform = NA) # all pathogens set to `NA`  # preferred: use WISCA wisca(your_data,       antimicrobials = selected_regimens) antibiogram(your_data,             antimicrobials = selected_regimens,             mo_transform = \"gramstain\") # all pathogens set to Gram-pos/Gram-neg antibiogram(your_data,             antimicrobials = selected_regimens,             mo_transform = \"shortname\") # all pathogens set to 'G. species', e.g., E. coli"},{"path":"https://amr-for-r.org/reference/antibiogram.html","id":"inclusion-in-combination-antibiograms","dir":"Reference","previous_headings":"","what":"Inclusion in Combination Antibiograms","title":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","text":"Note combination antibiograms, important realise susceptibility can calculated two ways, can set only_all_tested argument (default FALSE). See example two antimicrobials, Drug Drug B, antibiogram() works calculate %SI:","code":"--------------------------------------------------------------------                     only_all_tested = FALSE  only_all_tested = TRUE                     -----------------------  -----------------------  Drug A    Drug B   considered   considered  considered   considered                     susceptible    tested    susceptible    tested --------  --------  -----------  ----------  -----------  ----------  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://amr-for-r.org/reference/antibiogram.html","id":"plotting","dir":"Reference","previous_headings":"","what":"Plotting","title":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","text":"types antibiograms listed can plotted (using ggplot2::autoplot() base R's plot() barplot()). mentioned , numeric values antibiogram stored long format attribute long_numeric. can retrieve using attributes(x)$long_numeric, x outcome antibiogram() wisca(). outcome antibiogram() can also used directly R Markdown / Quarto (.e., knitr) reports. case, knitr::kable() applied automatically microorganism names even printed italics default (see argument italicise). can also use functions specific 'table reporting' packages transform output antibiogram() needs, e.g. flextable::as_flextable() gt::gt().","code":""},{"path":"https://amr-for-r.org/reference/antibiogram.html","id":"explaining-wisca","dir":"Reference","previous_headings":"","what":"Explaining WISCA","title":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","text":"WISCA (Weighted-Incidence Syndromic Combination Antibiogram) estimates probability empirical coverage combination regimens. weights susceptibility pathogen prevalence within clinical syndrome provides credible intervals around expected coverage. background, interpretation, examples, see WISCA vignette.","code":""},{"path":"https://amr-for-r.org/reference/antibiogram.html","id":"author","dir":"Reference","previous_headings":"","what":"Author","title":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","text":"Implementation: Dr. Larisse Bolton Dr. Matthijs Berends","code":""},{"path":"https://amr-for-r.org/reference/antibiogram.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Generate Traditional, Combination, Syndromic, or WISCA Antibiograms — antibiogram","text":"","code":"# example_isolates is a data set available in the AMR package. # run ?example_isolates for more info. example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI   R     NA    NA    NA  #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI   R     NA    NA    NA  #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS   R     NA    S     R   #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS   R     NA    S     R   #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR   R     NA    S     NA  #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  # \\donttest{ # Traditional antibiogram ----------------------------------------------  antibiogram(example_isolates,   antimicrobials = 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) #> # An Antibiogram: 10 × 7 #> # Type:           Non-WISCA with 95% CI #>    Pathogen       Amikacin    Gentamicin Imipenem Kanamycin Meropenem Tobramycin #>    <chr>          <chr>       <chr>      <chr>    <chr>     <chr>     <chr>      #>  1 CoNS           0% (0-8%,N… 86% (82-9… 52% (37… 0% (0-8%… 52% (37-… 22% (12-3… #>  2 E. coli        100% (98-1… 98% (96-9… 100% (9… NA        100% (99… 97% (96-9… #>  3 E. faecalis    0% (0-9%,N… 0% (0-9%,… 100% (9… 0% (0-9%… NA        0% (0-9%,… #>  4 K. pneumoniae  NA          90% (79-9… 100% (9… NA        100% (93… 90% (79-9… #>  5 P. aeruginosa  NA          100% (88-… NA       0% (0-12… NA        100% (88-… #>  6 P. mirabilis   NA          94% (80-9… 94% (79… NA        NA        94% (80-9… #>  7 S. aureus      NA          99% (97-1… NA       NA        NA        98% (92-1… #>  8 S. epidermidis 0% (0-8%,N… 79% (71-8… NA       0% (0-8%… NA        51% (40-6… #>  9 S. hominis     NA          92% (84-9… NA       NA        NA        85% (74-9… #> 10 S. pneumoniae  0% (0-3%,N… 0% (0-3%,… NA       0% (0-3%… NA        0% (0-3%,… #> # Use `ggplot2::autoplot()` or base R `plot()` to create a plot of this antibiogram, #> # or use it directly in R Markdown or https://quarto.org, see ?antibiogram  antibiogram(example_isolates,   antimicrobials = aminoglycosides(),   ab_transform = \"atc\",   mo_transform = \"gramstain\" ) #> ℹ For `aminoglycosides()` using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> # An Antibiogram: 2 × 5 #> # Type:           Non-WISCA with 95% CI #>   Pathogen      J01GB01            J01GB03             J01GB04         J01GB06   #>   <chr>         <chr>              <chr>               <chr>           <chr>     #> 1 Gram-negative 96% (94-97%,N=686) 96% (95-98%,N=684)  0% (0-10%,N=35) 98% (96-… #> 2 Gram-positive 34% (31-38%,N=665) 63% (60-66%,N=1170) 0% (0-1%,N=436) 0% (0-1%… #> # Use `ggplot2::autoplot()` or base R `plot()` to create a plot of this antibiogram, #> # or use it directly in R Markdown or https://quarto.org, see ?antibiogram  antibiogram(example_isolates,   antimicrobials = carbapenems(),   ab_transform = \"name\",   mo_transform = \"name\" ) #> ℹ For `carbapenems()` using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> # An Antibiogram: 5 × 3 #> # Type:           Non-WISCA with 95% CI #>   Pathogen                                 Imipenem             Meropenem        #>   <chr>                                    <chr>                <chr>            #> 1 Coagulase-negative Staphylococcus (CoNS) 52% (37-67%,N=48)    52% (37-67%,N=4… #> 2 Enterococcus faecalis                    100% (91-100%,N=38)  NA               #> 3 Escherichia coli                         100% (99-100%,N=422) 100% (99-100%,N… #> 4 Klebsiella pneumoniae                    100% (93-100%,N=51)  100% (93-100%,N… #> 5 Proteus mirabilis                        94% (79-99%,N=32)    NA               #> # Use `ggplot2::autoplot()` or base R `plot()` to create a plot of this antibiogram, #> # or use it directly in R Markdown or https://quarto.org, see ?antibiogram   # Combined antibiogram -------------------------------------------------  # combined antimicrobials yield higher empiric coverage antibiogram(example_isolates,   antimicrobials = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\"),   mo_transform = \"gramstain\" ) #> # An Antibiogram: 2 × 4 #> # Type:           Non-WISCA with 95% CI #>   Pathogen  Piperacillin/tazobac…¹ Piperacillin/tazobac…² Piperacillin/tazobac…³ #>   <chr>     <chr>                  <chr>                  <chr>                  #> 1 Gram-neg… 88% (85-91%,N=641)     99% (97-99%,N=691)     98% (97-99%,N=693)     #> 2 Gram-pos… 86% (82-89%,N=345)     98% (96-98%,N=1044)    95% (93-97%,N=550)     #> # ℹ abbreviated names: ¹​`Piperacillin/tazobactam`, #> #   ²​`Piperacillin/tazobactam + Gentamicin`, #> #   ³​`Piperacillin/tazobactam + Tobramycin` #> # Use `ggplot2::autoplot()` or base R `plot()` to create a plot of this antibiogram, #> # or use it directly in R Markdown or https://quarto.org, see ?antibiogram  # you can use any antimicrobial selector with `+` too: antibiogram(example_isolates,   antimicrobials = ureidopenicillins() + c(\"\", \"GEN\", \"tobra\"),   mo_transform = \"gramstain\" ) #> ℹ For `ureidopenicillins()` using column 'TZP' (piperacillin/tazobactam) #> # An Antibiogram: 2 × 4 #> # Type:           Non-WISCA with 95% CI #>   Pathogen  Piperacillin/tazobac…¹ Piperacillin/tazobac…² Piperacillin/tazobac…³ #>   <chr>     <chr>                  <chr>                  <chr>                  #> 1 Gram-neg… 88% (85-91%,N=641)     99% (97-99%,N=691)     98% (97-99%,N=693)     #> 2 Gram-pos… 86% (82-89%,N=345)     98% (96-98%,N=1044)    95% (93-97%,N=550)     #> # ℹ abbreviated names: ¹​`Piperacillin/tazobactam`, #> #   ²​`Piperacillin/tazobactam + Gentamicin`, #> #   ³​`Piperacillin/tazobactam + Tobramycin` #> # Use `ggplot2::autoplot()` or base R `plot()` to create a plot of this antibiogram, #> # or use it directly in R Markdown or https://quarto.org, see ?antibiogram  # names of antimicrobials do not need to resemble columns exactly: antibiogram(example_isolates,   antimicrobials = c(\"Cipro\", \"cipro + genta\"),   mo_transform = \"gramstain\",   ab_transform = \"name\",   sep = \" & \" ) #> # An Antibiogram: 2 × 3 #> # Type:           Non-WISCA with 95% CI #>   Pathogen      Ciprofloxacin      `Ciprofloxacin & Gentamicin` #>   <chr>         <chr>              <chr>                        #> 1 Gram-negative 91% (88-93%,N=684) 99% (97-99%,N=694)           #> 2 Gram-positive 77% (74-80%,N=724) 93% (91-94%,N=847)           #> # Use `ggplot2::autoplot()` or base R `plot()` to create a plot of this antibiogram, #> # or use it directly in R Markdown or https://quarto.org, see ?antibiogram   # Syndromic antibiogram ------------------------------------------------  # the data set could contain a filter for e.g. respiratory specimens antibiogram(example_isolates,   antimicrobials = 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) #> # An Antibiogram: 14 × 8 #> # Type:           Non-WISCA with 95% CI #>    `Syndromic Group` Pathogen   Amikacin Gentamicin Imipenem Kanamycin Meropenem #>    <chr>             <chr>      <chr>    <chr>      <chr>    <chr>     <chr>     #>  1 Clinical          CoNS       NA       89% (84-9… 57% (39… NA        57% (39-… #>  2 ICU               CoNS       NA       79% (68-8… NA       NA        NA        #>  3 Outpatient        CoNS       NA       84% (66-9… NA       NA        NA        #>  4 Clinical          E. coli    100% (9… 98% (96-9… 100% (9… NA        100% (99… #>  5 ICU               E. coli    100% (9… 99% (95-1… 100% (9… NA        100% (97… #>  6 Clinical          K. pneumo… NA       92% (81-9… 100% (9… NA        100% (92… #>  7 Clinical          P. mirabi… NA       100% (88-… NA       NA        NA        #>  8 Clinical          S. aureus  NA       99% (95-1… NA       NA        NA        #>  9 ICU               S. aureus  NA       100% (95-… NA       NA        NA        #> 10 Clinical          S. epider… NA       82% (72-9… NA       NA        NA        #> 11 ICU               S. epider… NA       72% (60-8… NA       NA        NA        #> 12 Clinical          S. hominis NA       96% (85-9… NA       NA        NA        #> 13 Clinical          S. pneumo… 0% (0-5… 0% (0-5%,… NA       0% (0-5%… NA        #> 14 ICU               S. pneumo… 0% (0-1… 0% (0-12%… NA       0% (0-12… NA        #> # ℹ 1 more variable: Tobramycin <chr> #> # Use `ggplot2::autoplot()` or base R `plot()` to create a plot of this antibiogram, #> # or use it directly in R Markdown or https://quarto.org, see ?antibiogram  # now define a data set with only E. coli ex1 <- example_isolates[which(mo_genus() == \"Escherichia\"), ] #> ℹ Using column 'mo' as input for `mo_genus()`  # with a custom language, though this will be determined automatically # (i.e., this table will be in Spanish on Spanish systems) antibiogram(ex1,   antimicrobials = 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) #> # An Antibiogram: 2 × 5 #> # Type:           Non-WISCA with 95% CI #>   `Grupo sindrómico` Patógeno Amikacina            Gentamicina       Tobramicina #>   <chr>              <chr>    <chr>                <chr>             <chr>       #> 1 No UCI             E. coli  100% (97-100%,N=119) 98% (96-99%,N=32… 98% (96-99… #> 2 UCI                E. coli  100% (93-100%,N=52)  99% (95-100%,N=1… 96% (92-99… #> # Use `ggplot2::autoplot()` or base R `plot()` to create a plot of this antibiogram, #> # or use it directly in R Markdown or https://quarto.org, see ?antibiogram   # WISCA antibiogram ----------------------------------------------------  # WISCA are not stratified by species, but rather on syndromes antibiogram(example_isolates,   antimicrobials = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\"),   syndromic_group = \"ward\",   wisca = TRUE ) #> # An Antibiogram: 3 × 4 #> # Type:           WISCA with 95% CI #>   `Syndromic Group` `Piperacillin/tazobactam` Piperacillin/tazobactam + Gentam…¹ #>   <chr>             <chr>                     <chr>                              #> 1 Clinical          73.5% (68.1-78.6%)        92.3% (90.8-93.8%)                 #> 2 ICU               57.3% (49.8-64.9%)        84.8% (82-87.7%)                   #> 3 Outpatient        56.8% (47-67%)            74.4% (68.6-79.7%)                 #> # ℹ abbreviated name: ¹​`Piperacillin/tazobactam + Gentamicin` #> # ℹ 1 more variable: `Piperacillin/tazobactam + Tobramycin` <chr> #> # Use `ggplot2::autoplot()` or base R `plot()` to create a plot of this antibiogram, #> # or use it directly in R Markdown or https://quarto.org, see ?antibiogram   # Print the output for R Markdown / Quarto -----------------------------  ureido <- antibiogram(example_isolates,   antimicrobials = ureidopenicillins(),   syndromic_group = \"ward\",   wisca = TRUE ) #> ℹ 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\")) {   cat(knitr::knit_print(ureido)) } #>  #>  #> |Syndromic Group |Piperacillin/tazobactam | #> |:---------------|:-----------------------| #> |Clinical        |73.6% (68.5-78.7%)      | #> |ICU             |57.4% (49.3-65.8%)      | #> |Outpatient      |57% (47.1-67.3%)        |   # Generate plots with ggplot2 or base R --------------------------------  ab1 <- antibiogram(example_isolates,   antimicrobials = c(\"AMC\", \"CIP\", \"TZP\", \"TZP+TOB\"),   mo_transform = \"gramstain\" ) ab2 <- antibiogram(example_isolates,   antimicrobials = 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://amr-for-r.org/reference/antimicrobial_selectors.html","id":null,"dir":"Reference","previous_headings":"","what":"Antimicrobial Selectors — antimicrobial_selectors","title":"Antimicrobial Selectors — antimicrobial_selectors","text":"functions allow filtering rows selecting columns based antimicrobial test results specific antimicrobial class group, without need define columns antimicrobial abbreviations. can used base R, tidyverse, tidymodels, data.table. Simply puy, column name resembles antimicrobial drug, picked functions matches pharmaceutical class, code name: column names \"cefazolin\", \"kefzol\", \"CZO\" \"J01DB04\" included following selection:","code":"library(dplyr) my_data_with_all_these_columns %>%   select(cephalosporins())"},{"path":"https://amr-for-r.org/reference/antimicrobial_selectors.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Antimicrobial Selectors — antimicrobial_selectors","text":"","code":"aminoglycosides(only_sir_columns = FALSE, only_treatable = TRUE,   return_all = TRUE, ...)  aminopenicillins(only_sir_columns = FALSE, return_all = TRUE, ...)  antifungals(only_sir_columns = FALSE, return_all = TRUE, ...)  antimycobacterials(only_sir_columns = FALSE, return_all = TRUE, ...)  betalactams(only_sir_columns = FALSE, only_treatable = TRUE,   return_all = TRUE, ...)  betalactams_with_inhibitor(only_sir_columns = FALSE, return_all = TRUE,   ...)  carbapenems(only_sir_columns = FALSE, only_treatable = TRUE,   return_all = TRUE, ...)  cephalosporins(only_sir_columns = FALSE, only_treatable = TRUE,   return_all = TRUE, ...)  cephalosporins_1st(only_sir_columns = FALSE, return_all = TRUE, ...)  cephalosporins_2nd(only_sir_columns = FALSE, return_all = TRUE, ...)  cephalosporins_3rd(only_sir_columns = FALSE, only_treatable = TRUE,   return_all = TRUE, ...)  cephalosporins_4th(only_sir_columns = FALSE, return_all = TRUE, ...)  cephalosporins_5th(only_sir_columns = FALSE, return_all = TRUE, ...)  fluoroquinolones(only_sir_columns = FALSE, only_treatable = TRUE,   return_all = TRUE, ...)  glycopeptides(only_sir_columns = FALSE, return_all = TRUE, ...)  isoxazolylpenicillins(only_sir_columns = FALSE, only_treatable = TRUE,   return_all = TRUE, ...)  lincosamides(only_sir_columns = FALSE, only_treatable = TRUE,   return_all = TRUE, ...)  lipoglycopeptides(only_sir_columns = FALSE, return_all = TRUE, ...)  macrolides(only_sir_columns = FALSE, return_all = TRUE, ...)  monobactams(only_sir_columns = FALSE, return_all = TRUE, ...)  nitrofurans(only_sir_columns = FALSE, return_all = TRUE, ...)  oxazolidinones(only_sir_columns = FALSE, return_all = TRUE, ...)  penicillins(only_sir_columns = FALSE, return_all = TRUE, ...)  phenicols(only_sir_columns = FALSE, return_all = TRUE, ...)  phosphonics(only_sir_columns = FALSE, return_all = TRUE, ...)  polymyxins(only_sir_columns = FALSE, only_treatable = TRUE,   return_all = TRUE, ...)  quinolones(only_sir_columns = FALSE, only_treatable = TRUE,   return_all = TRUE, ...)  rifamycins(only_sir_columns = FALSE, return_all = TRUE, ...)  spiropyrimidinetriones(only_sir_columns = FALSE, return_all = TRUE, ...)  streptogramins(only_sir_columns = FALSE, return_all = TRUE, ...)  sulfonamides(only_sir_columns = FALSE, return_all = TRUE, ...)  tetracyclines(only_sir_columns = FALSE, only_treatable = TRUE,   return_all = TRUE, ...)  trimethoprims(only_sir_columns = FALSE, return_all = TRUE, ...)  ureidopenicillins(only_sir_columns = FALSE, return_all = TRUE, ...)  amr_class(amr_class, only_sir_columns = FALSE, only_treatable = TRUE,   return_all = TRUE, ...)  amr_selector(filter, only_sir_columns = FALSE, only_treatable = TRUE,   return_all = TRUE, ...)  administrable_per_os(only_sir_columns = FALSE, return_all = TRUE, ...)  administrable_iv(only_sir_columns = FALSE, return_all = TRUE, ...)  not_intrinsic_resistant(only_sir_columns = FALSE, col_mo = NULL,   version_expected_phenotypes = 1.2, ...)"},{"path":"https://amr-for-r.org/reference/antimicrobial_selectors.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Antimicrobial Selectors — antimicrobial_selectors","text":"only_sir_columns logical indicate whether antimicrobial columns must included transformed class sir beforehand. Defaults FALSE. only_treatable logical indicate whether antimicrobial drugs excluded laboratory tests (default TRUE), gentamicin-high (GEH) imipenem/EDTA (IPE). return_all logical indicate whether matched columns must returned (default TRUE). FALSE, first unique antimicrobial returned, e.g. columns \"genta\" \"gentamicin\" exist data, first hit gentamicin returned. ... Ignored, place allow future extensions. amr_class antimicrobial class part , \"carba\" \"carbapenems\". columns group, atc_group1 atc_group2 antimicrobials data set searched (case-insensitive) value. filter expression evaluated antimicrobials data set, name %like% \"trim\". col_mo Column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). version_expected_phenotypes version number use EUCAST Expected Phenotypes. Can \"1.2\".","code":""},{"path":"https://amr-for-r.org/reference/antimicrobial_selectors.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Antimicrobial Selectors — antimicrobial_selectors","text":"used inside selecting filtering, returns character vector column names, additional class \"amr_selector\". used individually, returns 'ab' vector possible antimicrobials function able select filter.","code":""},{"path":"https://amr-for-r.org/reference/antimicrobial_selectors.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Antimicrobial Selectors — antimicrobial_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. selectors can also used tidymodels packages recipe parsnip. See info tutorial using antimicrobial selectors predictive modelling. columns data functions called searched known antimicrobial names, abbreviations, brand names, codes (ATC, EARS-Net, , etc.) according antimicrobials data set. means selector aminoglycosides() pick column names like 'gen', 'genta', 'J01GB03', 'tobra', 'Tobracin', etc. amr_class() function can used filter/select manually defined antimicrobial class. searches results antimicrobials data set within columns group, atc_group1 atc_group2. administrable_per_os() administrable_iv() functions also rely antimicrobials data set - antimicrobials matched DDD (defined daily dose) resp. oral IV treatment available antimicrobials data set. amr_selector() function can used internally filter antimicrobials 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. not_intrinsic_resistant() function can used select antimicrobials 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 Expected Resistant Phenotypes' v1.2 (2023) determine intrinsic resistance, using eucast_rules() function internally. determination, function quite slow terms performance.","code":""},{"path":"https://amr-for-r.org/reference/antimicrobial_selectors.html","id":"full-list-of-supported-antimicrobial-classes","dir":"Reference","previous_headings":"","what":"Full list of supported (antimicrobial) classes","title":"Antimicrobial Selectors — antimicrobial_selectors","text":"aminoglycosides() can select:  amikacin (AMK), amikacin/fosfomycin (AKF), apramycin (APR), arbekacin (ARB), astromicin (AST), bekanamycin (BEK), dibekacin (DKB), framycetin (FRM), gentamicin (GEN), gentamicin-high (GEH), habekacin (HAB), hygromycin (HYG), isepamicin (ISE), kanamycin (KAN), kanamycin-high (KAH), kanamycin/cephalexin (KAC), micronomicin (MCR), neomycin (NEO), netilmicin (NET), pentisomicin (PIM), plazomicin (PLZ), propikacin (PKA), ribostamycin (RST), sisomicin (SIS), streptoduocin (STR), streptomycin (STR1), streptomycin-high (STH), tobramycin (TOB), tobramycin-high (TOH) aminopenicillins() can select:  amoxicillin (AMX), amoxicillin/clavulanic acid (AMC), ampicillin (AMP) antifungals() can select:  amorolfine (AMO), amphotericin B (AMB), amphotericin B-high (AMH), anidulafungin (ANI), butoconazole (), caspofungin (CAS), ciclopirox (CIX), clotrimazole (CTR), econazole (ECO), fluconazole (FLU), flucytosine (FCT), fosfluconazole (FFL), griseofulvin (GRI), hachimycin (HCH), ibrexafungerp (IBX), isavuconazole (ISV), isoconazole (ISO), itraconazole (ITR), ketoconazole (KET), manogepix (MGX), micafungin (MIF), miconazole (MCZ), nystatin (NYS), oteseconazole (OTE), pimaricin (PMR), posaconazole (POS), rezafungin (RZF), ribociclib (RBC), sulconazole (SUC), terbinafine (TRB), terconazole (TRC), voriconazole (VOR) antimycobacterials() can select:  4-aminosalicylic acid (AMA), calcium aminosalicylate (CLA), capreomycin (CAP), clofazimine (CLF), delamanid (DLM), enviomycin (ENV), ethambutol (ETH), ethambutol/isoniazid (ETI), ethionamide (ETI1), isoniazid (INH), isoniazid/sulfamethoxazole/trimethoprim/pyridoxine (IST), morinamide (MRN), p-aminosalicylic acid (PAS), pretomanid (PMD), protionamide (PTH), pyrazinamide (PZA), rifabutin (RIB), rifampicin (RIF), rifampicin/ethambutol/isoniazid (REI), rifampicin/isoniazid (RFI), rifampicin/pyrazinamide/ethambutol/isoniazid (RPEI), rifampicin/pyrazinamide/isoniazid (RPI), rifamycin (RFM), rifapentine (RFP), 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), azidocillin (AZD), azlocillin (AZL), aztreonam (ATM), aztreonam/avibactam (AZA), aztreonam/nacubactam (ANC), bacampicillin (BAM), benzathine benzylpenicillin (BNB), benzathine phenoxymethylpenicillin (BNP), benzylpenicillin (PEN), benzylpenicillin screening test (PEN-S), biapenem (BIA), carbenicillin (CRB), carindacillin (CRN), carumonam (CAR), 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/amikacin (CFA), cefepime/clavulanic acid (CPC), cefepime/enmetazobactam (FPE), cefepime/nacubactam (FNC), cefepime/taniborbactam (FTA), cefepime/tazobactam (FPT), cefepime/zidebactam (FPZ), cefetamet (CAT), cefetamet pivoxil (CPI), cefetecol (CCL), cefetrizole (CZL), cefiderocol (FDC), cefixime (CFM), cefmenoxime (CMX), cefmetazole (CMZ), cefodizime (DIZ), cefonicid (CID), cefoperazone (CFP), cefoperazone/sulbactam (CSL), ceforanide (CND), cefoselis (CSE), cefotaxime (CTX), cefotaxime screening test (CTX-S), cefotaxime/clavulanic acid (CTC), cefotaxime/sulbactam (CTS), cefotetan (CTT), cefotiam (CTF), cefotiam hexetil (CHE), cefovecin (FOV), cefoxitin (FOX), cefoxitin screening test (FOX-S), 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), nafcillin (NAF), oxacillin (OXA), oxacillin screening test (OXA-S), 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), sulbenicillin (SBC), sultamicillin (SLT6), talampicillin (TAL), taniborbactam (TAN), tebipenem (TBP), temocillin (TEM), ticarcillin (TIC), ticarcillin/clavulanic acid (TCC), tigemonam (TMN) betalactams_with_inhibitor() can select:  amoxicillin/clavulanic acid (AMC), amoxicillin/sulbactam (AXS), ampicillin/sulbactam (SAM), aztreonam/avibactam (AZA), aztreonam/nacubactam (ANC), cefepime/amikacin (CFA), cefepime/clavulanic acid (CPC), cefepime/enmetazobactam (FPE), cefepime/nacubactam (FNC), cefepime/taniborbactam (FTA), cefepime/tazobactam (FPT), cefepime/zidebactam (FPZ), cefoperazone/sulbactam (CSL), cefotaxime/clavulanic acid (CTC), cefotaxime/sulbactam (CTS), cefpodoxime/clavulanic acid (CDC), ceftaroline/avibactam (CPA), ceftazidime/avibactam (CZA), ceftazidime/clavulanic acid (CCV), ceftolozane/tazobactam (CZT), ceftriaxone/beta-lactamase inhibitor (CEB), imipenem/relebactam (IMR), meropenem/nacubactam (MNC), meropenem/vaborbactam (MEV), mezlocillin/sulbactam (MSU), penicillin/novobiocin (PNO), penicillin/sulbactam (PSU), piperacillin/sulbactam (PIS), piperacillin/tazobactam (TZP), ticarcillin/clavulanic acid (TCC) carbapenems() can select:  biapenem (BIA), doripenem (DOR), ertapenem (ETP), imipenem (IPM), imipenem/EDTA (IPE), imipenem/relebactam (IMR), meropenem (MEM), meropenem/nacubactam (MNC), meropenem/vaborbactam (MEV), panipenem (PAN), razupenem (RZM), ritipenem (RIT), ritipenem acoxil (RIA), taniborbactam (TAN), 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/amikacin (CFA), cefepime/clavulanic acid (CPC), cefepime/enmetazobactam (FPE), cefepime/nacubactam (FNC), cefepime/taniborbactam (FTA), cefepime/tazobactam (FPT), cefepime/zidebactam (FPZ), cefetamet (CAT), cefetamet pivoxil (CPI), cefetecol (CCL), cefetrizole (CZL), cefiderocol (FDC), cefixime (CFM), cefmenoxime (CMX), cefmetazole (CMZ), cefodizime (DIZ), cefonicid (CID), cefoperazone (CFP), cefoperazone/sulbactam (CSL), ceforanide (CND), cefoselis (CSE), cefotaxime (CTX), cefotaxime screening test (CTX-S), cefotaxime/clavulanic acid (CTC), cefotaxime/sulbactam (CTS), cefotetan (CTT), cefotiam (CTF), cefotiam hexetil (CHE), cefovecin (FOV), cefoxitin (FOX), cefoxitin screening test (FOX-S), 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 test (FOX-S), 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 screening test (CTX-S), 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/amikacin (CFA), cefepime/clavulanic acid (CPC), cefepime/enmetazobactam (FPE), cefepime/nacubactam (FNC), cefepime/taniborbactam (FTA), cefepime/tazobactam (FPT), cefepime/zidebactam (FPZ), 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), ciprofloxacin/metronidazole (CIM), ciprofloxacin/ornidazole (CIO), ciprofloxacin/tinidazole (CIT), clinafloxacin (CLX), danofloxacin (DAN), delafloxacin (DFX), difloxacin (DIF), enoxacin (ENX), enrofloxacin (ENR), finafloxacin (FIN), fleroxacin (FLE), garenoxacin (GRN), gatifloxacin (GAT), gemifloxacin (GEM), grepafloxacin (GRX), lascufloxacin (LSC), levofloxacin (LVX), levofloxacin/ornidazole (LEO), levonadifloxacin (LND), lomefloxacin (LOM), marbofloxacin (MAR), metioxate (MXT), miloxacin (MIL), moxifloxacin (MFX), nadifloxacin (NAD), nemonoxacin (NEM), nifuroquine (NIF), nitroxoline (NTR), norfloxacin (), norfloxacin screening test (-S), norfloxacin/metronidazole (NME), norfloxacin/tinidazole (NTI), ofloxacin (OFX), ofloxacin/ornidazole (OOR), orbifloxacin (ORB), pazufloxacin (PAZ), pefloxacin (PEF), pefloxacin screening test (PEF-S), 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), bleomycin (BLM), dalbavancin (DAL), norvancomycin (NVA), oritavancin (ORI), ramoplanin (RAM), teicoplanin (TEC), teicoplanin-macromethod (TCM), telavancin (TLV), vancomycin (VAN), vancomycin-macromethod (VAM) isoxazolylpenicillins() can select:  cloxacillin (CLO), dicloxacillin (DIC), flucloxacillin (FLC), meticillin (MET), oxacillin (OXA), oxacillin screening test (OXA-S) lincosamides() can select:  clindamycin (CLI), clindamycin inducible screening test (CLI-S), lincomycin (LIN), pirlimycin (PRL) lipoglycopeptides() can select:  dalbavancin (DAL), oritavancin (ORI), telavancin (TLV) macrolides() can select:  acetylmidecamycin (ACM), acetylspiramycin (ASP), azithromycin (AZM), clarithromycin (CLR), clindamycin inducible screening test (CLI-S), 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) monobactams() can select:  aztreonam (ATM), aztreonam/avibactam (AZA), aztreonam/nacubactam (ANC), carumonam (CAR), tigemonam (TMN) nitrofurans() can select:  furazidin (FUR), furazolidone (FRZ), nifurtoinol (NFR), nitrofurantoin (NIT), nitrofurazone (NIZ) oxazolidinones() can select:  cadazolid (CDZ), cycloserine (CYC), linezolid (LNZ), tedizolid (TZD), thiacetazone (THA) penicillins() can select:  amoxicillin (AMX), amoxicillin/clavulanic acid (AMC), amoxicillin/sulbactam (AXS), ampicillin (AMP), ampicillin/sulbactam (SAM), apalcillin (APL), aspoxicillin (APX), azidocillin (AZD), azlocillin (AZL), bacampicillin (BAM), benzathine benzylpenicillin (BNB), benzathine phenoxymethylpenicillin (BNP), benzylpenicillin (PEN), benzylpenicillin screening test (PEN-S), carbenicillin (CRB), carindacillin (CRN), 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), nafcillin (NAF), oxacillin (OXA), oxacillin screening test (OXA-S), 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), sulbenicillin (SBC), sultamicillin (SLT6), talampicillin (TAL), temocillin (TEM), ticarcillin (TIC), ticarcillin/clavulanic acid (TCC) phenicols() can select:  chloramphenicol (CHL), florfenicol (FLR), thiamphenicol (THI) phosphonics() can select:  amikacin/fosfomycin (AKF) fosfomycin (FOS) polymyxins() can select:  colistin (COL), polymyxin B (PLB), polymyxin B/polysorbate 80 (POP) quinolones() can select:  besifloxacin (BES), cinoxacin (CIN), ciprofloxacin (CIP), ciprofloxacin/metronidazole (CIM), ciprofloxacin/ornidazole (CIO), ciprofloxacin/tinidazole (CIT), clinafloxacin (CLX), danofloxacin (DAN), delafloxacin (DFX), difloxacin (DIF), enoxacin (ENX), enrofloxacin (ENR), finafloxacin (FIN), fleroxacin (FLE), flumequine (FLM), garenoxacin (GRN), gatifloxacin (GAT), gemifloxacin (GEM), grepafloxacin (GRX), lascufloxacin (LSC), levofloxacin (LVX), levofloxacin/ornidazole (LEO), levonadifloxacin (LND), lomefloxacin (LOM), marbofloxacin (MAR), metioxate (MXT), miloxacin (MIL), moxifloxacin (MFX), nadifloxacin (NAD), nalidixic acid (NAL), nalidixic acid screening test (NAL-S), nemonoxacin (NEM), nifuroquine (NIF), nitroxoline (NTR), norfloxacin (), norfloxacin screening test (-S), norfloxacin/metronidazole (NME), norfloxacin/tinidazole (NTI), ofloxacin (OFX), ofloxacin/ornidazole (OOR), orbifloxacin (ORB), oxolinic acid (OXO), ozenoxacin (OZN), pazufloxacin (PAZ), pefloxacin (PEF), pefloxacin screening test (PEF-S), pipemidic acid (PPA), piromidic acid (PIR), pradofloxacin (PRA), premafloxacin (PRX), prulifloxacin (PRU), rosoxacin (ROS), rufloxacin (RFL), sarafloxacin (SAR), sitafloxacin (SIT), sparfloxacin (SPX), temafloxacin (TMX), tilbroquinol (TBQ), tioxacin (TXC), tosufloxacin (TFX), trovafloxacin (TVA) rifamycins() can select:  rifabutin (RIB), rifampicin (RIF), rifampicin/ethambutol/isoniazid (REI), rifampicin/isoniazid (RFI), rifampicin/pyrazinamide/ethambutol/isoniazid (RPEI), rifampicin/pyrazinamide/isoniazid (RPI), rifamycin (RFM), rifapentine (RFP) spiropyrimidinetriones() can select:  zoliflodacin (ZFD) streptogramins() can select:  pristinamycin (PRI) quinupristin/dalfopristin (QDA) sulfonamides() can select:  brodimoprim (BDP), sulfadiazine (SDI), sulfadiazine/tetroxoprim (SLT), sulfadimethoxine (SUD), sulfadimidine (SDM), sulfafurazole (SLF), sulfaisodimidine (SLF1), sulfalene (SLF2), sulfamazone (SZO), sulfamerazine (SLF3), sulfamethizole (SLF4), sulfamethoxazole (SMX), sulfamethoxypyridazine (SLF5), sulfametomidine (SLF6), sulfametoxydiazine (SLF7), sulfamoxole (SLF8), sulfanilamide (SLF9), sulfaperin (SLF10), sulfaphenazole (SLF11), sulfapyridine (SLF12), sulfathiazole (SUT), sulfathiourea (SLF13) 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), tetracycline screening test (TCY-S), 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://amr-for-r.org/reference/antimicrobial_selectors.html","id":"download-our-reference-data","dir":"Reference","previous_headings":"","what":"Download Our Reference Data","title":"Antimicrobial Selectors — antimicrobial_selectors","text":"reference data sets AMR package - including information microorganisms, antimicrobials, clinical breakpoints - freely available download multiple formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. maximum compatibility, also provide machine-readable, tab-separated plain text files suitable use software, including laboratory information systems. Visit website direct download links, explore actual files GitHub repository.","code":""},{"path":"https://amr-for-r.org/reference/antimicrobial_selectors.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Antimicrobial Selectors — antimicrobial_selectors","text":"","code":"# `example_isolates` is a data set available in the AMR package. # See ?example_isolates. example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI   R     NA    NA    NA  #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI   R     NA    NA    NA  #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS   R     NA    S     R   #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS   R     NA    S     R   #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR   R     NA    S     NA  #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …   # you can use the selectors separately to retrieve all possible antimicrobials: carbapenems() #> ℹ in `carbapenems()`: Imipenem/EDTA (`IPE`) and meropenem/nacubactam #>   (`MNC`) are not included since `only_treatable = TRUE`. #> ℹ This 'ab' vector was retrieved using `carbapenems()`, which should #>   normally be used inside a `dplyr` verb or `data.frame` call, e.g.: #>   • your_data %>% select(carbapenems()) #>   • your_data %>% select(column_a, column_b, carbapenems()) #>   • your_data %>% filter(any(carbapenems() == \"R\")) #>   • your_data[, carbapenems()] #>   • your_data[, c(\"column_a\", \"column_b\", carbapenems())] #> Class 'ab' #>  [1] BIA DOR ETP IMR IPM MEM MEV PAN RIA RIT RZM TAN TBP   # Though they are primarily intended to use for selections and filters. # Examples sections below are split into 'dplyr', 'base R', and 'data.table':  # \\donttest{ if (FALSE) { # \\dontrun{ # dplyr -------------------------------------------------------------------  library(dplyr, warn.conflicts = FALSE)  example_isolates %>% select(carbapenems())  # select columns 'mo', 'AMK', 'GEN', 'KAN' and 'TOB' example_isolates %>% select(mo, aminoglycosides())  # you can combine selectors like you are used with tidyverse # e.g., for betalactams, but not the ones with an enzyme inhibitor: example_isolates %>% select(betalactams(), -betalactams_with_inhibitor())  # select only antimicrobials with DDDs for oral treatment example_isolates %>% select(administrable_per_os())  # get AMR for all aminoglycosides e.g., per ward: example_isolates %>%   group_by(ward) %>%   summarise(across(aminoglycosides(),                    resistance))  # You can combine selectors with '&' to be more specific: example_isolates %>%   select(penicillins() & administrable_per_os())  # get AMR for only drugs that matter - no intrinsic resistance: example_isolates %>%   filter(mo_genus() %in% c(\"Escherichia\", \"Klebsiella\")) %>%   group_by(ward) %>%   summarise_at(not_intrinsic_resistant(),                resistance)  # get susceptibility for antimicrobials whose name contains \"trim\": example_isolates %>%   filter(first_isolate()) %>%   group_by(ward) %>%   summarise(across(amr_selector(name %like% \"trim\"), susceptibility))  # this will select columns 'IPM' (imipenem) and 'MEM' (meropenem): example_isolates %>%   select(carbapenems())  # this will select columns 'mo', 'AMK', 'GEN', 'KAN' and 'TOB': example_isolates %>%   select(mo, aminoglycosides())  # any() and all() work in dplyr's filter() too: example_isolates %>%   filter(     any(aminoglycosides() == \"R\"),     all(cephalosporins_2nd() == \"R\")   )  # also works with c(): example_isolates %>%   filter(any(c(carbapenems(), aminoglycosides()) == \"R\"))  # not setting any/all will automatically apply all(): example_isolates %>%   filter(aminoglycosides() == \"R\")  # this will select columns 'mo' and all antimycobacterial drugs ('RIF'): example_isolates %>%   select(mo, amr_class(\"mycobact\"))  # get bug/drug combinations for only glycopeptides in Gram-positives: example_isolates %>%   filter(mo_is_gram_positive()) %>%   select(mo, glycopeptides()) %>%   bug_drug_combinations() %>%   format()  data.frame(   some_column = \"some_value\",   J01CA01 = \"S\" ) %>% # ATC code of ampicillin   select(penicillins()) # only the 'J01CA01' column will be selected  # with recent versions of dplyr, this is all equal: x <- example_isolates[carbapenems() == \"R\", ] y <- example_isolates %>% filter(carbapenems() == \"R\") z <- example_isolates %>% filter(if_all(carbapenems(), ~ .x == \"R\")) identical(x, y) && identical(y, z)  } # } # base R ------------------------------------------------------------------  # select columns 'IPM' (imipenem) and 'MEM' (meropenem) example_isolates[, carbapenems()] #> ℹ For `carbapenems()` using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> # A tibble: 2,000 × 2 #>    IPM   MEM   #>    <sir> <sir> #>  1   NA    NA  #>  2   NA    NA  #>  3   NA    NA  #>  4   NA    NA  #>  5   NA    NA  #>  6   NA    NA  #>  7   NA    NA  #>  8   NA    NA  #>  9   NA    NA  #> 10   NA    NA  #> # ℹ 1,990 more rows  # select columns 'mo', 'AMK', 'GEN', 'KAN' and 'TOB' example_isolates[, c(\"mo\", aminoglycosides())] #> ℹ For `aminoglycosides()` using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> # A tibble: 2,000 × 5 #>    mo           GEN   TOB   AMK   KAN   #>    <mo>         <sir> <sir> <sir> <sir> #>  1 B_ESCHR_COLI   NA    NA    NA    NA  #>  2 B_ESCHR_COLI   NA    NA    NA    NA  #>  3 B_STPHY_EPDR   NA    NA    NA    NA  #>  4 B_STPHY_EPDR   NA    NA    NA    NA  #>  5 B_STPHY_EPDR   NA    NA    NA    NA  #>  6 B_STPHY_EPDR   NA    NA    NA    NA  #>  7 B_STPHY_AURS   NA    S     NA    NA  #>  8 B_STPHY_AURS   NA    S     NA    NA  #>  9 B_STPHY_EPDR   NA    NA    NA    NA  #> 10 B_STPHY_EPDR   NA    NA    NA    NA  #> # ℹ 1,990 more rows  # select only antimicrobials with DDDs for oral treatment example_isolates[, administrable_per_os()] #> ℹ For `administrable_per_os()` using columns 'OXA' (oxacillin), 'FLC' #>   (flucloxacillin), 'AMX' (amoxicillin), 'AMC' (amoxicillin/clavulanic acid), #>   'AMP' (ampicillin), 'CXM' (cefuroxime), 'KAN' (kanamycin), 'TMP' #>   (trimethoprim), 'NIT' (nitrofurantoin), 'FOS' (fosfomycin), 'LNZ' #>   (linezolid), 'CIP' (ciprofloxacin), 'MFX' (moxifloxacin), 'VAN' #>   (vancomycin), 'TCY' (tetracycline), 'DOX' (doxycycline), 'ERY' #>   (erythromycin), 'CLI' (clindamycin), 'AZM' (azithromycin), 'MTR' #>   (metronidazole), 'CHL' (chloramphenicol), 'COL' (colistin), and 'RIF' #>   (rifampicin) #> # A tibble: 2,000 × 23 #>    OXA   FLC   AMX   AMC   AMP   CXM   KAN   TMP   NIT   FOS   LNZ   CIP   MFX   #>    <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> #>  1   NA    NA    NA    I     NA    I     NA    R     NA    NA    R     NA    NA  #>  2   NA    NA    NA    I     NA    I     NA    R     NA    NA    R     NA    NA  #>  3   NA    R     NA    NA    NA    R     NA    S     NA    NA    NA    NA    NA  #>  4   NA    R     NA    NA    NA    R     NA    S     NA    NA    NA    NA    NA  #>  5   NA    R     NA    NA    NA    R     NA    R     NA    NA    NA    NA    NA  #>  6   NA    R     NA    NA    NA    R     NA    R     NA    NA    NA    NA    NA  #>  7   NA    S     R     S     R     S     NA    R     NA    NA    NA    NA    NA  #>  8   NA    S     R     S     R     S     NA    R     NA    NA    NA    NA    NA  #>  9   NA    R     NA    NA    NA    R     NA    S     NA    NA    NA    S     NA  #> 10   NA    S     NA    NA    NA    S     NA    S     NA    NA    NA    S     NA  #> # ℹ 1,990 more rows #> # ℹ 10 more variables: VAN <sir>, TCY <sir>, DOX <sir>, ERY <sir>, CLI <sir>, #> #   AZM <sir>, MTR <sir>, CHL <sir>, COL <sir>, RIF <sir>  # filter using any() or all() example_isolates[any(carbapenems() == \"R\"), ] #> ℹ For `carbapenems()` using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> # A tibble: 55 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2004-06-09 529296     69 M      ICU      B_ENTRC_FACM   NA    NA    NA    NA  #>  2 2004-06-09 529296     69 M      ICU      B_ENTRC_FACM   NA    NA    NA    NA  #>  3 2004-11-03 D65308     80 F      ICU      B_STNTR_MLTP   R     NA    NA    R   #>  4 2005-04-21 452212     82 F      ICU      B_ENTRC        NA    NA    NA    NA  #>  5 2005-04-22 452212     82 F      ICU      B_ENTRC        NA    NA    NA    NA  #>  6 2005-04-22 452212     82 F      ICU      B_ENTRC_FACM   NA    NA    NA    NA  #>  7 2007-02-21 8BBC46     61 F      Clinical B_ENTRC_FACM   NA    NA    NA    NA  #>  8 2007-12-15 401043     72 M      Clinical B_ENTRC_FACM   NA    NA    NA    NA  #>  9 2008-01-22 1710B8     82 M      Clinical B_PROTS_MRBL   R     NA    NA    NA  #> 10 2008-01-22 1710B8     82 M      Clinical B_PROTS_MRBL   R     NA    NA    NA  #> # ℹ 45 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … subset(example_isolates, any(carbapenems() == \"R\")) #> ℹ For `carbapenems()` using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> # A tibble: 55 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2004-06-09 529296     69 M      ICU      B_ENTRC_FACM   NA    NA    NA    NA  #>  2 2004-06-09 529296     69 M      ICU      B_ENTRC_FACM   NA    NA    NA    NA  #>  3 2004-11-03 D65308     80 F      ICU      B_STNTR_MLTP   R     NA    NA    R   #>  4 2005-04-21 452212     82 F      ICU      B_ENTRC        NA    NA    NA    NA  #>  5 2005-04-22 452212     82 F      ICU      B_ENTRC        NA    NA    NA    NA  #>  6 2005-04-22 452212     82 F      ICU      B_ENTRC_FACM   NA    NA    NA    NA  #>  7 2007-02-21 8BBC46     61 F      Clinical B_ENTRC_FACM   NA    NA    NA    NA  #>  8 2007-12-15 401043     72 M      Clinical B_ENTRC_FACM   NA    NA    NA    NA  #>  9 2008-01-22 1710B8     82 M      Clinical B_PROTS_MRBL   R     NA    NA    NA  #> 10 2008-01-22 1710B8     82 M      Clinical B_PROTS_MRBL   R     NA    NA    NA  #> # ℹ 45 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  # filter on any or all results in the carbapenem columns (i.e., IPM, MEM): example_isolates[any(carbapenems()), ] #> ℹ For `carbapenems()` using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ Filtering any of columns 'IPM' and 'MEM' to contain value \"S\", \"I\" or \"R\" #> # A tibble: 962 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI   R     NA    NA    NA  #>  2 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI   R     NA    NA    NA  #>  3 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL   R     NA    NA    NA  #>  4 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL   R     NA    NA    NA  #>  5 2002-02-05 067927     45 F      ICU      B_SERRT_MRCS   R     NA    NA    R   #>  6 2002-02-05 067927     45 F      ICU      B_SERRT_MRCS   R     NA    NA    R   #>  7 2002-02-05 067927     45 F      ICU      B_SERRT_MRCS   R     NA    NA    R   #>  8 2002-02-27 066895     85 F      Clinical B_KLBSL_PNMN   R     NA    NA    R   #>  9 2002-02-27 066895     85 F      Clinical B_KLBSL_PNMN   R     NA    NA    R   #> 10 2002-03-08 4FC193     69 M      Clinical B_ESCHR_COLI   R     NA    NA    R   #> # ℹ 952 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … example_isolates[all(carbapenems()), ] #> ℹ For `carbapenems()` using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ Filtering all of columns 'IPM' and 'MEM' to contain value \"S\", \"I\" or \"R\" #> # A tibble: 756 × 46 #>    date       patient   age gender ward    mo            PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>   <mo>          <sir> <sir> <sir> <sir> #>  1 2002-04-14 F30196     73 M      Outpat… B_STRPT_GRPB    S     NA    S     S   #>  2 2003-04-08 114570     74 M      ICU     B_STRPT_PYGN    S     NA    S     S   #>  3 2003-04-08 114570     74 M      ICU     B_STRPT_GRPA    S     NA    S     S   #>  4 2003-04-08 114570     74 M      ICU     B_STRPT_GRPA    S     NA    S     S   #>  5 2003-08-14 F71508      0 F      Clinic… B_STRPT_GRPB    S     NA    S     S   #>  6 2003-10-16 650870     63 F      ICU     B_ESCHR_COLI    R     NA    NA    R   #>  7 2003-10-20 F35553     52 M      ICU     B_ENTRBC_CLOC   R     NA    NA    R   #>  8 2003-10-20 F35553     52 M      ICU     B_ENTRBC_CLOC   R     NA    NA    R   #>  9 2003-11-04 2FC253     87 F      ICU     B_ESCHR_COLI    R     NA    NA    NA  #> 10 2003-11-04 2FC253     87 F      ICU     B_ESCHR_COLI    R     NA    NA    NA  #> # ℹ 746 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  # filter with multiple antimicrobial selectors using c() example_isolates[all(c(carbapenems(), aminoglycosides()) == \"R\"), ] #> ℹ For `carbapenems()` using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ For `aminoglycosides()` using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> # A tibble: 26 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2004-11-03 D65308     80 F      ICU      B_STNTR_MLTP   R     NA    NA    R   #>  2 2005-04-22 452212     82 F      ICU      B_ENTRC_FACM   NA    NA    NA    NA  #>  3 2007-02-21 8BBC46     61 F      Clinical B_ENTRC_FACM   NA    NA    NA    NA  #>  4 2007-12-15 401043     72 M      Clinical B_ENTRC_FACM   NA    NA    NA    NA  #>  5 2008-12-06 501361     43 F      Clinical B_STNTR_MLTP   R     NA    NA    R   #>  6 2011-05-09 207325     82 F      ICU      B_ENTRC_FACM   NA    NA    NA    NA  #>  7 2012-03-12 582258     80 M      ICU      B_STPHY_CONS   R     R     R     R   #>  8 2012-05-19 C25552     89 F      Outpati… B_STPHY_CONS   R     R     R     R   #>  9 2012-07-17 F05015     83 M      ICU      B_STPHY_CONS   R     R     R     R   #> 10 2012-07-20 404299     66 F      Clinical B_STPHY_CONS   R     R     R     R   #> # ℹ 16 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  # filter + select in one go: get penicillins in carbapenem-resistant strains example_isolates[any(carbapenems() == \"R\"), penicillins()] #> ℹ For `carbapenems()` using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ For `penicillins()` using columns 'PEN' (benzylpenicillin), 'OXA' #>   (oxacillin), 'FLC' (flucloxacillin), 'AMX' (amoxicillin), 'AMC' #>   (amoxicillin/clavulanic acid), 'AMP' (ampicillin), and 'TZP' #>   (piperacillin/tazobactam) #> # A tibble: 55 × 7 #>    PEN   OXA   FLC   AMX   AMC   AMP   TZP   #>    <sir> <sir> <sir> <sir> <sir> <sir> <sir> #>  1   NA    NA    NA    NA    NA    NA    NA  #>  2   NA    NA    NA    NA    NA    NA    NA  #>  3   R     NA    NA    R     R     R     R   #>  4   NA    NA    NA    NA    NA    NA    R   #>  5   NA    NA    NA    NA    NA    NA    R   #>  6   NA    NA    NA    NA    NA    NA    R   #>  7   NA    NA    NA    NA    NA    NA    R   #>  8   NA    NA    NA    NA    NA    NA    R   #>  9   R     NA    NA    NA    S     NA    S   #> 10   R     NA    NA    NA    S     NA    S   #> # ℹ 45 more rows  # You can combine selectors with '&' to be more specific. For example, # penicillins() would select benzylpenicillin ('peni G') and # administrable_per_os() would select erythromycin. Yet, when combined these # drugs are both omitted since benzylpenicillin is not administrable per os # and erythromycin is not a penicillin: example_isolates[, penicillins() & administrable_per_os()] #> ℹ For `penicillins()` using columns 'PEN' (benzylpenicillin), 'OXA' #>   (oxacillin), 'FLC' (flucloxacillin), 'AMX' (amoxicillin), 'AMC' #>   (amoxicillin/clavulanic acid), 'AMP' (ampicillin), and 'TZP' #>   (piperacillin/tazobactam) #> ℹ For `administrable_per_os()` using columns 'OXA' (oxacillin), 'FLC' #>   (flucloxacillin), 'AMX' (amoxicillin), 'AMC' (amoxicillin/clavulanic acid), #>   'AMP' (ampicillin), 'CXM' (cefuroxime), 'KAN' (kanamycin), 'TMP' #>   (trimethoprim), 'NIT' (nitrofurantoin), 'FOS' (fosfomycin), 'LNZ' #>   (linezolid), 'CIP' (ciprofloxacin), 'MFX' (moxifloxacin), 'VAN' #>   (vancomycin), 'TCY' (tetracycline), 'DOX' (doxycycline), 'ERY' #>   (erythromycin), 'CLI' (clindamycin), 'AZM' (azithromycin), 'MTR' #>   (metronidazole), 'CHL' (chloramphenicol), 'COL' (colistin), and 'RIF' #>   (rifampicin) #> # A tibble: 2,000 × 5 #>    OXA   FLC   AMX   AMC   AMP   #>    <sir> <sir> <sir> <sir> <sir> #>  1   NA    NA    NA    I     NA  #>  2   NA    NA    NA    I     NA  #>  3   NA    R     NA    NA    NA  #>  4   NA    R     NA    NA    NA  #>  5   NA    R     NA    NA    NA  #>  6   NA    R     NA    NA    NA  #>  7   NA    S     R     S     R   #>  8   NA    S     R     S     R   #>  9   NA    R     NA    NA    NA  #> 10   NA    S     NA    NA    NA  #> # ℹ 1,990 more rows  # amr_selector() applies a filter in the `antimicrobials` data set and is thus # very flexible. For instance, to select antimicrobials with an oral DDD # of at least 1 gram: example_isolates[, amr_selector(oral_ddd > 1 & oral_units == \"g\")] #> ℹ For `amr_selector(oral_ddd > 1 & oral_units == \"g\")` using columns 'OXA' #>   (oxacillin), 'FLC' (flucloxacillin), 'AMX' (amoxicillin), 'AMC' #>   (amoxicillin/clavulanic acid), 'AMP' (ampicillin), 'KAN' (kanamycin), 'FOS' #>   (fosfomycin), 'LNZ' (linezolid), 'VAN' (vancomycin), 'ERY' (erythromycin), #>   'CLI' (clindamycin), 'MTR' (metronidazole), and 'CHL' (chloramphenicol) #> # A tibble: 2,000 × 13 #>    OXA   FLC   AMX   AMC   AMP   KAN   FOS   LNZ   VAN   ERY   CLI   MTR   CHL   #>    <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> #>  1   NA    NA    NA    I     NA    NA    NA    R     R     R     R     NA    NA  #>  2   NA    NA    NA    I     NA    NA    NA    R     R     R     R     NA    NA  #>  3   NA    R     NA    NA    NA    NA    NA    NA    S     R     NA    NA    NA  #>  4   NA    R     NA    NA    NA    NA    NA    NA    S     R     NA    NA    NA  #>  5   NA    R     NA    NA    NA    NA    NA    NA    S     R     NA    NA    NA  #>  6   NA    R     NA    NA    NA    NA    NA    NA    S     R     R     NA    NA  #>  7   NA    S     R     S     R     NA    NA    NA    S     S     NA    NA    NA  #>  8   NA    S     R     S     R     NA    NA    NA    S     S     NA    NA    NA  #>  9   NA    R     NA    NA    NA    NA    NA    NA    S     R     NA    NA    NA  #> 10   NA    S     NA    NA    NA    NA    NA    NA    S     S     NA    NA    NA  #> # ℹ 1,990 more rows   # data.table --------------------------------------------------------------  # data.table is supported as well, just use it in the same way as with # base R, but add `with = FALSE` if using a single AB selector.  if (require(\"data.table\")) {   dt <- as.data.table(example_isolates)    # this does not work, it returns column *names*   dt[, carbapenems()] } #> Loading required package: data.table #>  #> Attaching package: ‘data.table’ #> The following object is masked from ‘package:purrr’: #>  #>     transpose #> The following objects are masked from ‘package:dplyr’: #>  #>     between, first, last #> The following objects are masked from ‘package:AMR’: #>  #>     %like%, like #> ℹ For `carbapenems()` using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> Warning: It should never be needed to print an antimicrobial selector class. Are you #> using data.table? Then add the argument `with = FALSE`, see our examples at #> `?amr_selector`. #> Class 'amr_selector' #> [1] IPM MEM if (require(\"data.table\")) {   # so `with = FALSE` is required   dt[, carbapenems(), with = FALSE] } #> ℹ For `carbapenems()` using columns 'IPM' (imipenem) and 'MEM' (meropenem) #>         IPM   MEM #>       <sir> <sir> #>    1:  <NA>  <NA> #>    2:  <NA>  <NA> #>    3:  <NA>  <NA> #>    4:  <NA>  <NA> #>    5:  <NA>  <NA> #>   ---             #> 1996:  <NA>  <NA> #> 1997:     S     S #> 1998:     S     S #> 1999:     S     S #> 2000:     S     S  # for multiple selections or AB selectors, `with = FALSE` is not needed: if (require(\"data.table\")) {   dt[, c(\"mo\", aminoglycosides())] } #> ℹ For `aminoglycosides()` using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #>                 mo   GEN   TOB   AMK   KAN #>               <mo> <sir> <sir> <sir> <sir> #>    1: B_ESCHR_COLI  <NA>  <NA>  <NA>  <NA> #>    2: B_ESCHR_COLI  <NA>  <NA>  <NA>  <NA> #>    3: B_STPHY_EPDR  <NA>  <NA>  <NA>  <NA> #>    4: B_STPHY_EPDR  <NA>  <NA>  <NA>  <NA> #>    5: B_STPHY_EPDR  <NA>  <NA>  <NA>  <NA> #>   ---                                      #> 1996: B_STRPT_PNMN     R     R     R     R #> 1997: B_ESCHR_COLI     S     S     S  <NA> #> 1998: B_STPHY_CONS     S  <NA>  <NA>  <NA> #> 1999: B_ESCHR_COLI     S     S  <NA>  <NA> #> 2000: B_KLBSL_PNMN     S     S  <NA>  <NA> if (require(\"data.table\")) {   dt[, c(carbapenems(), aminoglycosides())] } #> ℹ For `carbapenems()` using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ For `aminoglycosides()` using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #>         IPM   MEM   GEN   TOB   AMK   KAN #>       <sir> <sir> <sir> <sir> <sir> <sir> #>    1:  <NA>  <NA>  <NA>  <NA>  <NA>  <NA> #>    2:  <NA>  <NA>  <NA>  <NA>  <NA>  <NA> #>    3:  <NA>  <NA>  <NA>  <NA>  <NA>  <NA> #>    4:  <NA>  <NA>  <NA>  <NA>  <NA>  <NA> #>    5:  <NA>  <NA>  <NA>  <NA>  <NA>  <NA> #>   ---                                     #> 1996:  <NA>  <NA>     R     R     R     R #> 1997:     S     S     S     S     S  <NA> #> 1998:     S     S     S  <NA>  <NA>  <NA> #> 1999:     S     S     S     S  <NA>  <NA> #> 2000:     S     S     S     S  <NA>  <NA>  # row filters are also supported: if (require(\"data.table\")) {   dt[any(carbapenems() == \"S\"), ] } #> ℹ For `carbapenems()` using columns 'IPM' (imipenem) and 'MEM' (meropenem) #>            date patient   age gender       ward           mo   PEN   OXA   FLC #>          <Date>  <char> <num> <char>     <char>         <mo> <sir> <sir> <sir> #>   1: 2002-01-19  738003    71      M   Clinical B_ESCHR_COLI     R  <NA>  <NA> #>   2: 2002-01-19  738003    71      M   Clinical B_ESCHR_COLI     R  <NA>  <NA> #>   3: 2002-01-22  F35553    50      M        ICU B_PROTS_MRBL     R  <NA>  <NA> #>   4: 2002-01-22  F35553    50      M        ICU B_PROTS_MRBL     R  <NA>  <NA> #>   5: 2002-02-05  067927    45      F        ICU B_SERRT_MRCS     R  <NA>  <NA> #>  ---                                                                           #> 905: 2005-04-12  D71461    70      M        ICU B_ESCHR_COLI     R  <NA>  <NA> #> 906: 2009-11-12  650870    69      F Outpatient B_ESCHR_COLI     R  <NA>  <NA> #> 907: 2012-06-14  8CBCF2    41      F   Clinical B_STPHY_CONS     R     S     S #> 908: 2012-10-11  175532    78      M   Clinical B_ESCHR_COLI     R  <NA>  <NA> #> 909: 2013-11-23  A97263    77      M   Clinical B_KLBSL_PNMN     R  <NA>  <NA> #>        AMX   AMC   AMP   TZP   CZO   FEP   CXM   FOX   CTX   CAZ   CRO   GEN #>      <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> #>   1:  <NA>     I  <NA>  <NA>  <NA>  <NA>     S  <NA>     S  <NA>     S  <NA> #>   2:  <NA>     I  <NA>  <NA>  <NA>  <NA>     S  <NA>     S  <NA>     S  <NA> #>   3:  <NA>     I  <NA>  <NA>  <NA>  <NA>     S  <NA>     S     S     S  <NA> #>   4:  <NA>     I  <NA>  <NA>  <NA>  <NA>     S  <NA>     S     S     S  <NA> #>   5:     R     R     R  <NA>     R  <NA>     R     R  <NA>  <NA>  <NA>  <NA> #>  ---                                                                         #> 905:     S     S     S     S  <NA>     S     S     S     S     S     S     S #> 906:     S     S     S     S     S     S     S     S     S     S     S     S #> 907:  <NA>     S  <NA>  <NA>     S     S     S     S     S     R     S     S #> 908:     R     S     R     S  <NA>     S     R     R     S     S     S     S #> 909:     R     S     R     S  <NA>     S     S     S     S     S     S     S #>        TOB   AMK   KAN   TMP   SXT   NIT   FOS   LNZ   CIP   MFX   VAN   TEC #>      <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> #>   1:     S  <NA>  <NA>     S     S  <NA>  <NA>     R  <NA>  <NA>     R     R #>   2:     S  <NA>  <NA>     S     S  <NA>  <NA>     R  <NA>  <NA>     R     R #>   3:  <NA>  <NA>  <NA>     S     S     R  <NA>     R     S  <NA>     R     R #>   4:  <NA>  <NA>  <NA>     S     S     R  <NA>     R     S  <NA>     R     R #>   5:  <NA>  <NA>  <NA>     S     S     R  <NA>     R     S  <NA>     R     R #>  ---                                                                         #> 905:     S     S  <NA>  <NA>     S     S  <NA>     R     S  <NA>     R     R #> 906:     S     S  <NA>     S     S     S  <NA>     R     S  <NA>     R     R #> 907:  <NA>  <NA>  <NA>     S     S  <NA>  <NA>  <NA>     S  <NA>     S  <NA> #> 908:     S  <NA>  <NA>     R     R     R  <NA>     R     R     R     R     R #> 909:     S  <NA>  <NA>     S     S     S  <NA>     R     S  <NA>     R     R #>        TCY   TGC   DOX   ERY   CLI   AZM   IPM   MEM   MTR   CHL   COL   MUP #>      <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> #>   1:  <NA>  <NA>  <NA>     R     R     R     S  <NA>  <NA>  <NA>  <NA>  <NA> #>   2:  <NA>  <NA>  <NA>     R     R     R     S  <NA>  <NA>  <NA>  <NA>  <NA> #>   3:     R     R     R     R     R     R     S  <NA>  <NA>  <NA>     R  <NA> #>   4:     R     R     R     R     R     R     S  <NA>  <NA>  <NA>     R  <NA> #>   5:     R     R     R     R     R     R     S  <NA>  <NA>  <NA>     R  <NA> #>  ---                                                                         #> 905:  <NA>  <NA>  <NA>     R     R     R     S     S  <NA>  <NA>  <NA>  <NA> #> 906:  <NA>  <NA>  <NA>     R     R     R     S     S  <NA>  <NA>  <NA>  <NA> #> 907:  <NA>  <NA>  <NA>     S     S     S     S     S  <NA>  <NA>     R  <NA> #> 908:  <NA>  <NA>  <NA>     R     R     R     S     S  <NA>  <NA>     S  <NA> #> 909:  <NA>  <NA>  <NA>     R     R     R     S     S  <NA>  <NA>     S  <NA> #>        RIF #>      <sir> #>   1:     R #>   2:     R #>   3:     R #>   4:     R #>   5:     R #>  ---       #> 905:     R #> 906:     R #> 907:  <NA> #> 908:     R #> 909:     R if (require(\"data.table\")) {   dt[any(carbapenems() == \"S\"), penicillins(), with = FALSE] } #> ℹ For `carbapenems()` using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ For `penicillins()` using columns 'PEN' (benzylpenicillin), 'OXA' #>   (oxacillin), 'FLC' (flucloxacillin), 'AMX' (amoxicillin), 'AMC' #>   (amoxicillin/clavulanic acid), 'AMP' (ampicillin), and 'TZP' #>   (piperacillin/tazobactam) #>        PEN   OXA   FLC   AMX   AMC   AMP   TZP #>      <sir> <sir> <sir> <sir> <sir> <sir> <sir> #>   1:     R  <NA>  <NA>  <NA>     I  <NA>  <NA> #>   2:     R  <NA>  <NA>  <NA>     I  <NA>  <NA> #>   3:     R  <NA>  <NA>  <NA>     I  <NA>  <NA> #>   4:     R  <NA>  <NA>  <NA>     I  <NA>  <NA> #>   5:     R  <NA>  <NA>     R     R     R  <NA> #>  ---                                           #> 905:     R  <NA>  <NA>     S     S     S     S #> 906:     R  <NA>  <NA>     S     S     S     S #> 907:     R     S     S  <NA>     S  <NA>  <NA> #> 908:     R  <NA>  <NA>     R     S     R     S #> 909:     R  <NA>  <NA>     R     S     R     S # }"},{"path":"https://amr-for-r.org/reference/antimicrobials.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Sets with 618 Antimicrobial Drugs — antimicrobials","title":"Data Sets with 618 Antimicrobial Drugs — antimicrobials","text":"Two data sets containing antimicrobials antivirals. Use .ab() one ab_* functions retrieve values antimicrobials data set. Three identifiers included data set: antimicrobial 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. antibiotics data set renamed antimicrobials. old name removed future version.","code":""},{"path":"https://amr-for-r.org/reference/antimicrobials.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Sets with 618 Antimicrobial Drugs — antimicrobials","text":"","code":"antimicrobials  antibiotics  antivirals"},{"path":"https://amr-for-r.org/reference/antimicrobials.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Sets with 618 Antimicrobial Drugs — antimicrobials","text":"object class deprecated_amr_dataset (inherits tbl_df, tbl, data.frame) 498 rows 14 columns. object class tbl_df (inherits tbl, data.frame) 120 rows 11 columns.","code":""},{"path":"https://amr-for-r.org/reference/antimicrobials.html","id":"for-the-antimicrobials-data-set-a-tibble-with-observations-and-variables-","dir":"Reference","previous_headings":"","what":"For the antimicrobials data set: a tibble with 498 observations and 14 variables:","title":"Data Sets with 618 Antimicrobial Drugs — antimicrobials","text":"ab antimicrobial ID used package (AMC), using official EARS-Net (European Antimicrobial Resistance Surveillance Network) codes available. unique identifier. cid Compound ID found PubChem. unique identifier. name Official name used WHONET/EARS-Net . unique identifier. group One short concise group names, based WHONET WHOCC definitions atc ATC codes (Anatomical Therapeutic Chemical) defined WHOCC, like J01CR02 (last updated May 4th, 2025): 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 antimicrobial susceptibility testing (AST) synonyms Synonyms (often trade names) drug, found PubChem based compound ID ATC properties (last updated May 4th, 2025): oral_ddd Defined Daily Dose (DDD), oral treatment, currently available 180 drugs oral_units Units oral_ddd iv_ddd Defined Daily Dose (DDD), parenteral (intravenous) treatment, currently available 153 drugs iv_units Units iv_ddd LOINC: loinc codes associated name antimicrobial drug Logical Observation Identifiers Names Codes (LOINC), Version 2.76 (18 September, 2023). Use ab_loinc() retrieve quickly, see ab_property().","code":""},{"path":"https://amr-for-r.org/reference/antimicrobials.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 618 Antimicrobial Drugs — antimicrobials","text":"av Antiviral ID used package (ACI), using official EARS-Net (European Antimicrobial Resistance Surveillance Network) codes available. unique identifier. Combinations codes contain + indicate , ATA+COBI atazanavir/cobicistat. name Official name used WHONET/EARS-Net . unique identifier. atc ATC codes (Anatomical Therapeutic Chemical) defined WHOCC, see Details cid Compound ID found PubChem. unique identifier. atc_group Official pharmacological subgroup (3rd level ATC code) defined WHOCC synonyms Synonyms (often trade names) drug, found PubChem based compound ID oral_ddd Defined Daily Dose (DDD), oral treatment oral_units Units oral_ddd iv_ddd Defined Daily Dose (DDD), parenteral treatment iv_units Units iv_ddd loinc codes associated name antiviral drug Logical Observation Identifiers Names Codes (LOINC), Version 2.76 (18 September, 2023). Use av_loinc() retrieve quickly, see av_property().","code":""},{"path":"https://amr-for-r.org/reference/antimicrobials.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Data Sets with 618 Antimicrobial Drugs — antimicrobials","text":"Collaborating Centre Drug Statistics Methodology, Guidelines ATC classification DDD assignment, Oslo Accessed https://atcddd.fhi./atc_ddd_index/ May 4th, 2025. Logical Observation Identifiers Names Codes (LOINC), Version 2.76 (18 September, 2023). Accessed https://loinc.org October 19th, 2023. European Commission Public Health PHARMACEUTICALS - COMMUNITY REGISTER: https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm","code":""},{"path":"https://amr-for-r.org/reference/antimicrobials.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Sets with 618 Antimicrobial Drugs — antimicrobials","text":"Properties based ATC code available ATC available. properties : atc_group1, atc_group2, oral_ddd, oral_units, iv_ddd iv_units. note ATC codes unique. example, J01CR02 officially ATC code \"amoxicillin beta-lactamase inhibitor\". Consequently, two items antimicrobials data set return \"J01CR02\":   Synonyms (.e. trade names) derived PubChem Compound ID (column cid) consequently available CID available.","code":"ab_atc(\"amoxicillin/clavulanic acid\") ab_atc(\"amoxicillin/sulbactam\")"},{"path":"https://amr-for-r.org/reference/antimicrobials.html","id":"download-our-reference-data","dir":"Reference","previous_headings":"","what":"Download Our Reference Data","title":"Data Sets with 618 Antimicrobial Drugs — antimicrobials","text":"reference data sets AMR package - including information microorganisms, antimicrobials, clinical breakpoints - freely available download multiple formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. maximum compatibility, also provide machine-readable, tab-separated plain text files suitable use software, including laboratory information systems. Visit website direct download links, explore actual files GitHub repository.","code":""},{"path":"https://amr-for-r.org/reference/antimicrobials.html","id":"whocc","dir":"Reference","previous_headings":"","what":"WHOCC","title":"Data Sets with 618 Antimicrobial Drugs — antimicrobials","text":"package contains ~550 antibiotic, antimycotic antiviral drugs Anatomical Therapeutic Chemical (ATC) codes, ATC groups Defined Daily Dose (DDD) World Health Organization Collaborating Centre Drug Statistics Methodology (WHOCC, https://atcddd.fhi.) Pharmaceuticals Community Register European Commission (https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm). become gold standard international drug utilisation monitoring research. WHOCC located Oslo Norwegian Institute Public Health funded Norwegian government. European Commission executive European Union promotes general interest. NOTE: WHOCC copyright allow use commercial purposes, unlike info package. See https://atcddd.fhi./copyright_disclaimer/.","code":""},{"path":[]},{"path":"https://amr-for-r.org/reference/antimicrobials.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Sets with 618 Antimicrobial Drugs — antimicrobials","text":"","code":"antimicrobials #> # A tibble: 498 × 14 #>    ab        cid name   group atc   atc_group1 atc_group2 abbreviations synonyms #>    <ab>    <dbl> <chr>  <lis> <lis> <chr>      <chr>      <list>        <named > #>  1 AMA      4649 4-ami… <chr> <chr> Drugs for… Aminosali… <chr [1]>     <chr>    #>  2 ACM   6450012 Acety… <chr> <chr> NA         NA         <chr [1]>     <chr>    #>  3 ASP  49787020 Acety… <chr> <chr> NA         NA         <chr [1]>     <chr>    #>  4 ALS      8954 Aldes… <chr> <chr> Drugs for… Drugs for… <chr [1]>     <chr>    #>  5 AMK     37768 Amika… <chr> <chr> Aminoglyc… Other ami… <chr [6]>     <chr>    #>  6 AKF        NA Amika… <chr> <chr> NA         NA         <chr [1]>     <chr>    #>  7 AMO     54260 Amoro… <chr> <chr> Antifunga… Other ant… <chr [1]>     <chr>    #>  8 AMX     33613 Amoxi… <chr> <chr> Beta-lact… Penicilli… <chr [4]>     <chr>    #>  9 AMC  23665637 Amoxi… <chr> <chr> Beta-lact… Combinati… <chr [6]>     <chr>    #> 10 AXS    465441 Amoxi… <chr> <chr> NA         NA         <chr [1]>     <chr>    #> # ℹ 488 more rows #> # ℹ 5 more variables: oral_ddd <dbl>, oral_units <chr>, iv_ddd <dbl>, #> #   iv_units <chr>, loinc <list> antivirals #> # A tibble: 120 × 11 #>    av       name      atc      cid atc_group synonyms oral_ddd oral_units iv_ddd #>    <av>     <chr>     <chr>  <dbl> <chr>     <list>      <dbl> <chr>       <dbl> #>  1 ABA      Abacavir  J05A… 4.41e5 Nucleosi… <chr>         0.6 g              NA #>  2 ACI      Aciclovir J05A… 1.35e8 Nucleosi… <chr>         4   g               4 #>  3 ADD      Adefovir… J05A… 6.09e4 Nucleosi… <chr>        10   mg             NA #>  4 AME      Amenamev… J05A… 1.14e7 Other an… <chr>         0.4 g              NA #>  5 AMP      Amprenav… J05A… 6.50e4 Protease… <chr>         1.2 g              NA #>  6 ASU      Asunapre… J05A… 1.61e7 Antivira… <chr>         0.2 g              NA #>  7 ATA      Atazanav… J05A… 1.48e5 Protease… <chr>         0.3 g              NA #>  8 ATA+COBI Atazanav… J05A… 8.66e7 Antivira… <chr>        NA   NA             NA #>  9 ATA+RIT  Atazanav… J05A… 2.51e7 Antivira… <chr>         0.3 g              NA #> 10 BAM      Baloxavi… J05A… 1.24e8 Other an… <chr>        40   mg             NA #> # ℹ 110 more rows #> # ℹ 2 more variables: iv_units <chr>, loinc <list>"},{"path":"https://amr-for-r.org/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 antimicrobial drug code one antimicrobials. data set antimicrobials searched abbreviations, official names synonyms (brand names).","code":""},{"path":"https://amr-for-r.org/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, language = get_AMR_locale(),   info = interactive(), ...)  is.ab(x)  ab_reset_session()"},{"path":"https://amr-for-r.org/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. language Language coerce input values 28 supported languages - default system language supported (see get_AMR_locale()). info logical indicate whether progress bar printed - default TRUE interactive mode. ... Arguments passed internal functions.","code":""},{"path":"https://amr-for-r.org/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://amr-for-r.org/reference/as.ab.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Transform Input to an Antibiotic ID — as.ab","text":"entries antimicrobials 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://amr-for-r.org/reference/as.ab.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Transform Input to an Antibiotic ID — as.ab","text":"World Health Organization () Collaborating Centre Drug Statistics Methodology: https://atcddd.fhi./atc_ddd_index/ European Commission Public Health PHARMACEUTICALS - COMMUNITY REGISTER: https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm","code":""},{"path":"https://amr-for-r.org/reference/as.ab.html","id":"whocc","dir":"Reference","previous_headings":"","what":"WHOCC","title":"Transform Input to an Antibiotic ID — as.ab","text":"package contains ~550 antibiotic, antimycotic antiviral drugs Anatomical Therapeutic Chemical (ATC) codes, ATC groups Defined Daily Dose (DDD) World Health Organization Collaborating Centre Drug Statistics Methodology (WHOCC, https://atcddd.fhi.) Pharmaceuticals Community Register European Commission (https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm). become gold standard international drug utilisation monitoring research. WHOCC located Oslo Norwegian Institute Public Health funded Norwegian government. European Commission executive European Union promotes general interest. NOTE: WHOCC copyright allow use commercial purposes, unlike info package. See https://atcddd.fhi./copyright_disclaimer/.","code":""},{"path":"https://amr-for-r.org/reference/as.ab.html","id":"download-our-reference-data","dir":"Reference","previous_headings":"","what":"Download Our Reference Data","title":"Transform Input to an Antibiotic ID — as.ab","text":"reference data sets AMR package - including information microorganisms, antimicrobials, clinical breakpoints - freely available download multiple formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. maximum compatibility, also provide machine-readable, tab-separated plain text files suitable use software, including laboratory information systems. Visit website direct download links, explore actual files GitHub repository.","code":""},{"path":[]},{"path":"https://amr-for-r.org/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\") #> 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  # spelling from different languages and dyslexia are no problem ab_atc(\"ceftriaxon\") #> [1] \"J01DD04\"  \"QJ01DD04\" ab_atc(\"cephtriaxone\") # small spelling error #> [1] \"J01DD04\"  \"QJ01DD04\" ab_atc(\"cephthriaxone\") # or a bit more severe #> [1] \"J01DD04\"  \"QJ01DD04\" ab_atc(\"seephthriaaksone\") # and even this works #> [1] \"J01DD04\"  \"QJ01DD04\"  # use ab_* functions to get a specific properties (see ?ab_property); # they use as.ab() internally: ab_name(\"J01FA01\") #> [1] \"Erythromycin\" ab_name(\"eryt\") #> [1] \"Erythromycin\"  # \\donttest{ if (require(\"dplyr\")) {   # you can quickly rename 'sir' columns using set_ab_names() with dplyr:   example_isolates %>%     set_ab_names(where(is.sir), property = \"atc\") } #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           J01CE01 J01CF04 J01CF05 #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir>   <sir>   <sir>   #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI   R       NA      NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI   R       NA      NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR   R       NA      R     #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR   R       NA      R     #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR   R       NA      R     #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR   R       NA      R     #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS   R       NA      S     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS   R       NA      S     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR   R       NA      R     #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR   R       NA      S     #> # ℹ 1,990 more rows #> # ℹ 37 more variables: J01CA04 <sir>, J01CR02 <sir>, J01CA01 <sir>, #> #   J01CR05 <sir>, J01DB04 <sir>, J01DE01 <sir>, J01DC02 <sir>, J01DC01 <sir>, #> #   J01DD01 <sir>, J01DD02 <sir>, J01DD04 <sir>, J01GB03 <sir>, J01GB01 <sir>, #> #   J01GB06 <sir>, J01GB04 <sir>, J01EA01 <sir>, J01EE01 <sir>, J01XE01 <sir>, #> #   J01XX01 <sir>, J01XX08 <sir>, J01MA02 <sir>, J01MA14 <sir>, J01XA01 <sir>, #> #   J01XA02 <sir>, J01AA07 <sir>, J01AA12 <sir>, J01AA02 <sir>, … # }"},{"path":"https://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/reference/as.av.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Transform Input to an Antiviral Drug ID — as.av","text":"World Health Organization () Collaborating Centre Drug Statistics Methodology: https://atcddd.fhi./atc_ddd_index/ European Commission Public Health PHARMACEUTICALS - COMMUNITY REGISTER: https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm","code":""},{"path":"https://amr-for-r.org/reference/as.av.html","id":"whocc","dir":"Reference","previous_headings":"","what":"WHOCC","title":"Transform Input to an Antiviral Drug ID — as.av","text":"package contains ~550 antibiotic, antimycotic antiviral drugs Anatomical Therapeutic Chemical (ATC) codes, ATC groups Defined Daily Dose (DDD) World Health Organization Collaborating Centre Drug Statistics Methodology (WHOCC, https://atcddd.fhi.) Pharmaceuticals Community Register European Commission (https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm). become gold standard international drug utilisation monitoring research. WHOCC located Oslo Norwegian Institute Public Health funded Norwegian government. European Commission executive European Union promotes general interest. NOTE: WHOCC copyright allow use commercial purposes, unlike info package. See https://atcddd.fhi./copyright_disclaimer/.","code":""},{"path":"https://amr-for-r.org/reference/as.av.html","id":"download-our-reference-data","dir":"Reference","previous_headings":"","what":"Download Our Reference Data","title":"Transform Input to an Antiviral Drug ID — as.av","text":"reference data sets AMR package - including information microorganisms, antimicrobials, clinical breakpoints - freely available download multiple formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. maximum compatibility, also provide machine-readable, tab-separated plain text files suitable use software, including laboratory information systems. Visit website direct download links, explore actual files GitHub repository.","code":""},{"path":[]},{"path":"https://amr-for-r.org/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://amr-for-r.org/reference/as.disk.html","id":null,"dir":"Reference","previous_headings":"","what":"Transform Input to Disk Diffusion Diameters — as.disk","title":"Transform Input to Disk Diffusion Diameters — as.disk","text":"transforms vector new class disk, disk diffusion growth zone size (around antibiotic disk) millimetres 0 50.","code":""},{"path":"https://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/reference/as.disk.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Transform Input to Disk Diffusion Diameters — as.disk","text":"Interpret disk values SIR values .sir(). supports guidelines EUCAST CLSI. Disk diffusion growth zone sizes must 0 50 millimetres. Values higher 50 lower 100 maximised 50. others input values outside 0-50 range return NA. NA_disk_ missing value new disk class.","code":""},{"path":[]},{"path":"https://amr-for-r.org/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\" ) #> Class 'sir' #> [1] R  # interpret whole data set, pretend to be all from urinary tract infections: as.sir(df, uti = TRUE) #>      microorganism AMP  CIP GEN TOB #> 1 Escherichia coli   S <NA>   S   S"},{"path":"https://amr-for-r.org/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://amr-for-r.org/reference/as.mic.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"","code":"as.mic(x, na.rm = FALSE, keep_operators = \"all\")  is.mic(x)  NA_mic_  rescale_mic(x, mic_range, keep_operators = \"edges\", as.mic = TRUE)  mic_p50(x, na.rm = FALSE, ...)  mic_p90(x, na.rm = FALSE, ...)  # S3 method for class 'mic' droplevels(x, as.mic = FALSE, ...)"},{"path":"https://amr-for-r.org/reference/as.mic.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"x character numeric vector. na.rm logical indicating whether missing values removed. keep_operators character specifying handle operators (> <=) input. Accepts one three values: \"\" (TRUE) keep operators, \"none\" (FALSE) remove operators, \"edges\" keep operators ends range. mic_range manual range rescale MIC values, e.g., mic_range = c(0.001, 32). Use NA prevent rescaling one side, e.g., mic_range = c(NA, 32). .mic logical indicate whether mic class kept - default TRUE rescale_mic() FALSE droplevels(). setting FALSE rescale_mic(), output factor levels acknowledge mic_range. ... Arguments passed methods.","code":""},{"path":"https://amr-for-r.org/reference/as.mic.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"Ordered factor additional class mic, mathematical operations acts numeric vector. Bear mind outcome mathematical operation MICs return numeric value.","code":""},{"path":"https://amr-for-r.org/reference/as.mic.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"interpret MIC values SIR values, use .sir() MIC values. supports guidelines EUCAST (2011-2025) CLSI (2011-2025). class MIC values quite special data type: formally ordered factor valid MIC values factor levels (make sure valid MIC values retained), mathematical operation acts decimal numbers:   makes possible maintain operators often come MIC values, \">=\" \"<=\", even filtering using numeric values data analysis, e.g.:   -called group generic functions implemented MIC class (!, !=, <, >=, exp(), log2()). mathematical functions also implemented (quantile(), median(), fivenum()). Since sd() var() non-generic functions, extended. Use mad() alternative, use e.g. sd(.numeric(x)) x vector MIC values. Using .double() .numeric() MIC values remove operators return numeric vector. use .integer() MIC values R convention factors, return index factor levels (often useless regular users). function .mic() detects input contains class mic. input data.frame list, iterates columns/items returns logical vector. Use droplevels() drop unused levels. default, return plain factor. Use droplevels(..., .mic = TRUE) maintain mic class. rescale_mic(), existing MIC ranges can limited defined range MIC values. can useful better compare MIC distributions. ggplot2, use one scale_*_mic() functions plot MIC values. allows custom MIC ranges plot intermediate log2 levels missing MIC values. NA_mic_ missing value new mic class, analogous e.g. base R's NA_character_. Use mic_p50() mic_p90() get 50th 90th percentile MIC values. return 'normal' numeric values.","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://amr-for-r.org/reference/as.mic.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"","code":"mic_data <- as.mic(c(\">=32\", \"1.0\", \"1\", \"1.00\", 8, \"<=0.128\", \"8\", \"16\", \"16\")) mic_data #> Class 'mic' #> [1] >=32    1       1       1       8       <=0.128 8       16      16      is.mic(mic_data) #> [1] TRUE  # this can also coerce combined MIC/SIR values: as.mic(\"<=0.002; S\") #> Class 'mic' #> [1] <=0.002  # mathematical processing treats MICs as numeric values fivenum(mic_data) #> [1]  0.128  1.000  8.000 16.000 32.000 quantile(mic_data) #>     0%    25%    50%    75%   100%  #>  0.128  1.000  8.000 16.000 32.000  all(mic_data < 512) #> [1] TRUE  # rescale MICs using rescale_mic() rescale_mic(mic_data, mic_range = c(4, 16)) #> Class 'mic' #> [1] >=16 <=4  <=4  <=4  8    <=4  8    >=16 >=16  # interpret MIC values as.sir(   x = as.mic(2),   mo = as.mo(\"Streptococcus pneumoniae\"),   ab = \"AMX\",   guideline = \"EUCAST\" ) #> Class 'sir' #> [1] R as.sir(   x = as.mic(c(0.01, 2, 4, 8)),   mo = as.mo(\"Streptococcus pneumoniae\"),   ab = \"AMX\",   guideline = \"EUCAST\" ) #> Class 'sir' #> [1] S R R R  # plot MIC values, see ?plot plot(mic_data)  plot(mic_data, mo = \"E. coli\", ab = \"cipro\")   if (require(\"ggplot2\")) {   autoplot(mic_data, mo = \"E. coli\", ab = \"cipro\") }  if (require(\"ggplot2\")) {   autoplot(mic_data, mo = \"E. coli\", ab = \"cipro\", language = \"nl\") # Dutch }"},{"path":"https://amr-for-r.org/reference/as.mo.html","id":null,"dir":"Reference","previous_headings":"","what":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"Use function get valid microorganism code (mo) based arbitrary user input. Determination done using intelligent rules complete taxonomic tree kingdoms Animalia, Archaea, Bacteria, Chromista, Protozoa, microbial species kingdom Fungi (see Source). input can almost anything: full name (like \"Staphylococcus aureus\"), abbreviated name (\"S. aureus\"), abbreviation known field (\"MRSA\"), just genus. See Examples.","code":""},{"path":"https://amr-for-r.org/reference/as.mo.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"","code":"as.mo(x, Becker = FALSE, Lancefield = FALSE,   minimum_matching_score = NULL,   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   reference_df = get_mo_source(),   ignore_pattern = getOption(\"AMR_ignore_pattern\", NULL),   cleaning_regex = getOption(\"AMR_cleaning_regex\", mo_cleaning_regex()),   only_fungi = getOption(\"AMR_only_fungi\", FALSE),   language = get_AMR_locale(), info = interactive(), ...)  is.mo(x)  mo_uncertainties()  mo_renamed()  mo_failures()  mo_reset_session()  mo_cleaning_regex()"},{"path":"https://amr-for-r.org/reference/as.mo.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"x character vector data.frame one two columns. Becker logical indicate whether staphylococci categorised coagulase-negative staphylococci (\"CoNS\") coagulase-positive staphylococci (\"CoPS\") instead species, according Karsten Becker et al. (see Source). Please see Details full list staphylococcal species converted. excludes Staphylococcus aureus default, use Becker = \"\" also categorise S. aureus \"CoPS\". Lancefield logical indicate whether beta-haemolytic Streptococcus categorised Lancefield groups instead species, according Rebecca C. Lancefield (see Source). streptococci categorised first group, e.g. Streptococcus dysgalactiae group C, although officially also categorised groups G L. . Please see Details full list streptococcal species converted. excludes enterococci default (group D), use Lancefield = \"\" also categorise enterococci group D. minimum_matching_score numeric value set lower limit MO matching score. left blank, determined automatically based character length x, taxonomic kingdom human pathogenicity. keep_synonyms logical indicate old, previously valid taxonomic names must preserved corrected currently accepted names. default FALSE, return note old taxonomic names processed. default can set package option AMR_keep_synonyms, .e. options(AMR_keep_synonyms = TRUE) options(AMR_keep_synonyms = FALSE). reference_df data.frame used extra reference translating x valid mo. See set_mo_source() get_mo_source() automate usage codes (e.g. used analysis organisation). ignore_pattern Perl-compatible regular expression (case-insensitive) matches x must return NA. can convenient exclude known non-relevant input can also set package option AMR_ignore_pattern, e.g. options(AMR_ignore_pattern = \"(reported|contaminated flora)\"). cleaning_regex Perl-compatible regular expression (case-insensitive) clean input x. Every matched part x removed. default, outcome mo_cleaning_regex(), removes texts brackets texts \"species\" \"serovar\". default can set package option AMR_cleaning_regex. only_fungi logical indicate fungi must found, making sure e.g. misspellings always return records kingdom Fungi. can set globally microorganism functions package option AMR_only_fungi, .e. options(AMR_only_fungi = TRUE). language Language translate text like \"growth\", defaults system language (see get_AMR_locale()). info logical indicate info must printed, e.g. progress bar 25 items coerced, list old taxonomic names. default TRUE interactive mode. ... arguments passed functions.","code":""},{"path":"https://amr-for-r.org/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://amr-for-r.org/reference/as.mo.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"microorganism (MO) code package (class: mo) human-readable typically looks like examples:   Values coerced considered 'unknown' return MO code UNKNOWN warning. Use mo_* functions get properties based returned code, see Examples. .mo() function uses novel scientifically validated (doi:10.18637/jss.v104.i03 ) matching score algorithm (see Matching Score Microorganisms ) match input available microbial taxonomy package. implicates e.g. \"E. coli\" (microorganism highly prevalent humans) return microbial ID Escherichia coli Entamoeba coli (microorganism less prevalent humans), although latter alphabetically come first.","code":"Code               Full name   ---------------    --------------------------------------   B_KLBSL            Klebsiella   B_KLBSL_PNMN       Klebsiella pneumoniae   B_KLBSL_PNMN_RHNS  Klebsiella pneumoniae rhinoscleromatis   |   |    |    |   |   |    |    |   |   |    |    \\---> subspecies, a 3-5 letter acronym   |   |    \\----> species, a 3-6 letter acronym   |   \\----> genus, a 4-8 letter acronym   \\----> kingdom: A (Archaea), AN (Animalia), B (Bacteria),                   C (Chromista), F (Fungi), PL (Plantae),                   P (Protozoa)"},{"path":"https://amr-for-r.org/reference/as.mo.html","id":"coping-with-uncertain-results","dir":"Reference","previous_headings":"","what":"Coping with Uncertain Results","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"Results non-exact taxonomic input based matching score. lowest allowed score can set minimum_matching_score argument. default determined based character length input, taxonomic kingdom, human pathogenicity taxonomic outcome. values matched uncertainty, message shown suggest user inspect results mo_uncertainties(), returns data.frame specifications. increase quality matching, cleaning_regex argument used clean input. must regular expression matches parts input removed input matched available microbial taxonomy. matched Perl-compatible case-insensitive. default value cleaning_regex outcome helper function mo_cleaning_regex(). three helper functions can run using .mo() function: Use mo_uncertainties() get data.frame prints pretty format taxonomic names guessed. output contains matching score matches (see Matching Score Microorganisms ). Use mo_failures() get character vector values coerced valid value. Use mo_renamed() get data.frame values coerced based old, previously accepted taxonomic names.","code":""},{"path":"https://amr-for-r.org/reference/as.mo.html","id":"for-mycologists","dir":"Reference","previous_headings":"","what":"For Mycologists","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"matching score algorithm gives precedence bacteria fungi. analysing fungi, sure use only_fungi = TRUE, better yet, add code run every session:   make sure bacteria 'non-fungi' returned .mo(), mo_* functions.","code":"options(AMR_only_fungi = TRUE)"},{"path":"https://amr-for-r.org/reference/as.mo.html","id":"coagulase-negative-and-coagulase-positive-staphylococci","dir":"Reference","previous_headings":"","what":"Coagulase-negative and Coagulase-positive Staphylococci","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"Becker = TRUE, following staphylococci converted corresponding coagulase group: Coagulase-negative: S. americanisciuri, S. argensis, S. arlettae, S. auricularis, S. borealis, S. brunensis, S. caeli, S. caledonicus, S. canis, S. capitis, S. capitis capitis, S. capitis urealyticus, S. capitis ureolyticus, S. caprae, S. carnosus, S. carnosus carnosus, S. carnosus utilis, S. casei, S. caseolyticus, S. chromogenes, S. cohnii, S. cohnii cohnii, S. cohnii urealyticum, S. cohnii urealyticus, S. condimenti, S. croceilyticus, S. debuckii, S. devriesei, S. durrellii, S. edaphicus, S. epidermidis, S. equorum, S. equorum equorum, S. equorum linens, S. felis, S. fleurettii, S. gallinarum, S. haemolyticus, S. hominis, S. hominis hominis, S. hominis novobiosepticus, S. jettensis, S. kloosii, S. lentus, S. lloydii, S. lugdunensis, S. marylandisciuri, S. massiliensis, S. microti, S. muscae, S. nepalensis, S. pasteuri, S. petrasii, S. petrasii croceilyticus, S. petrasii jettensis, S. petrasii petrasii, S. petrasii pragensis, S. pettenkoferi, S. piscifermentans, S. pragensis, S. pseudoxylosus, S. pulvereri, S. ratti, S. rostri, S. saccharolyticus, S. saprophyticus, S. saprophyticus bovis, S. saprophyticus saprophyticus, S. schleiferi, S. schleiferi schleiferi, S. sciuri, S. sciuri carnaticus, S. sciuri lentus, S. sciuri rodentium, S. sciuri sciuri, S. shinii, S. simulans, S. stepanovicii, S. succinus, S. succinus casei, S. succinus succinus, S. taiwanensis, S. urealyticus, S. ureilyticus, S. veratri, S. vitulinus, S. vitulus, S. warneri, S. xylosus Coagulase-positive: S. agnetis, S. argenteus, S. coagulans, S. cornubiensis, S. delphini, S. hyicus, S. hyicus chromogenes, S. hyicus hyicus, S. intermedius, S. lutrae, S. pseudintermedius, S. roterodami, S. schleiferi coagulans, S. schweitzeri, S. simiae, S. singaporensis based : Becker K et al. (2014). Coagulase-Negative Staphylococci. Clin Microbiol Rev. 27(4): 870-926; doi:10.1128/CMR.00109-13 Becker K et al. (2019). Implications identifying recently defined members S. aureus complex, S. argenteus S. schweitzeri: position paper members ESCMID Study Group staphylococci Staphylococcal Diseases (ESGS). Clin Microbiol Infect; doi:10.1016/j.cmi.2019.02.028 Becker K et al. (2020). Emergence coagulase-negative staphylococci. Expert Rev Anti Infect Ther. 18(4):349-366; doi:10.1080/14787210.2020.1730813 newly named staphylococcal species, S. brunensis (2024) S. shinii (2023), looked scientific reference make sure species considered correct coagulase group.","code":""},{"path":"https://amr-for-r.org/reference/as.mo.html","id":"lancefield-groups-in-streptococci","dir":"Reference","previous_headings":"","what":"Lancefield Groups in Streptococci","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"Lancefield = TRUE, following streptococci converted corresponding Lancefield group: Streptococcus Group : S. pyogenes Streptococcus Group B: S. agalactiae Streptococcus Group C: S. dysgalactiae, S. dysgalactiae dysgalactiae, S. dysgalactiae equisimilis, S. equi, S. equi equi, S. equi ruminatorum, S. equi zooepidemicus Streptococcus Group F: S. anginosus, S. anginosus anginosus, S. anginosus whileyi, S. constellatus, S. constellatus constellatus, S. constellatus pharyngis, S. constellatus viborgensis, S. intermedius Streptococcus Group G: S. canis, S. dysgalactiae, S. dysgalactiae dysgalactiae, S. dysgalactiae equisimilis Streptococcus Group H: S. sanguinis Streptococcus Group K: S. salivarius, S. salivarius salivarius, S. salivarius thermophilus Streptococcus Group L: S. dysgalactiae, S. dysgalactiae dysgalactiae, S. dysgalactiae equisimilis based : Lancefield RC (1933). serological differentiation human groups hemolytic streptococci. J Exp Med. 57(4): 571-95; doi:10.1084/jem.57.4.571","code":""},{"path":"https://amr-for-r.org/reference/as.mo.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"Berends MS et al. (2022). AMR: R Package Working Antimicrobial Resistance Data. Journal Statistical Software, 104(3), 1-31; doi:10.18637/jss.v104.i03 Parte, AC et al. (2020). List Prokaryotic names Standing Nomenclature (LPSN) moves DSMZ. International Journal Systematic Evolutionary Microbiology, 70, 5607-5612; doi:10.1099/ijsem.0.004332 . Accessed https://lpsn.dsmz.de June 24th, 2024. Vincent, R et al (2013). MycoBank gearing new horizons. IMA Fungus, 4(2), 371-9; doi:10.5598/imafungus.2013.04.02.16 . Accessed https://www.mycobank.org June 24th, 2024. GBIF Secretariat (2023). GBIF Backbone Taxonomy. Checklist dataset doi:10.15468/39omei . Accessed https://www.gbif.org June 24th, 2024. Reimer, LC et al. (2022). BacDive 2022: knowledge base standardized bacterial archaeal data. Nucleic Acids Res., 50(D1):D741-D74; doi:10.1093/nar/gkab961 . Accessed https://bacdive.dsmz.de July 16th, 2024. Public Health Information Network Vocabulary Access Distribution System (PHIN VADS). US Edition SNOMED CT 1 September 2020. Value Set Name 'Microorganism', OID 2.16.840.1.114222.4.11.1009 (v12). URL: https://www.cdc.gov/phin/php/phinvads/ Bartlett et al. (2022). comprehensive list bacterial pathogens infecting humans Microbiology 168:001269; doi:10.1099/mic.0.001269","code":""},{"path":"https://amr-for-r.org/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 : $$m_{(x, n)} = \\frac{l_{n} - 0.5 \\cdot \\min \\begin{cases}l_{n} \\\\ \\textrm{lev}(x, n)\\end{cases}}{l_{n} \\cdot p_{n} \\cdot k_{n}}$$ : \\(x\\) user input; \\(n\\) taxonomic name (genus, species, subspecies); \\(l_n\\) length \\(n\\); \\(lev\\) Levenshtein distance function (counting insertion 1, deletion substitution 2) needed change \\(x\\) \\(n\\); \\(p_n\\) human pathogenic prevalence group \\(n\\), described ; \\(k_n\\) taxonomic kingdom \\(n\\), set Bacteria = 1, Fungi = 1.25, Protozoa = 1.5, Chromista = 1.75, Archaea = 2, others = 3. grouping human pathogenic prevalence \\(p\\) based recent work Bartlett et al. (2022, doi:10.1099/mic.0.001269 ) extensively studied medical-scientific literature categorise bacterial species groups: Established, taxonomic species infected least three persons three references. records prevalence = 1.15 microorganisms data set; Putative, taxonomic species fewer three known cases. records prevalence = 1.25 microorganisms data set. Furthermore, Genera World Health Organization's () Priority Pathogen List prevalence = 1.0 microorganisms data set; genus present established list also prevalence = 1.15 microorganisms data set; genus present putative list prevalence = 1.25 microorganisms data set; species subspecies genus present two aforementioned groups, prevalence = 1.5 microorganisms data set; non-bacterial genus, species subspecies genus present following list, prevalence = 1.25 microorganisms data set: Absidia, Acanthamoeba, Acremonium, Actinomucor, Aedes, Alternaria, Amoeba, Ancylostoma, Angiostrongylus, Anisakis, Anopheles, Apophysomyces, Arthroderma, Aspergillus, Aureobasidium, Basidiobolus, Beauveria, Bipolaris, Blastobotrys, Blastocystis, Blastomyces, Candida, Capillaria, Chaetomium, Chilomastix, Chrysonilia, Chrysosporium, Cladophialophora, Cladosporium, Clavispora, Coccidioides, Cokeromyces, Conidiobolus, Coniochaeta, Contracaecum, Cordylobia, Cryptococcus, Cryptosporidium, Cunninghamella, Curvularia, Cyberlindnera, Debaryozyma, Demodex, Dermatobia, Dientamoeba, Diphyllobothrium, Dirofilaria, Echinostoma, Entamoeba, Enterobius, Epidermophyton, Exidia, Exophiala, Exserohilum, Fasciola, Fonsecaea, Fusarium, Geotrichum, Giardia, Graphium, Haloarcula, Halobacterium, Halococcus, Hansenula, Hendersonula, Heterophyes, Histomonas, Histoplasma, Hortaea, Hymenolepis, Hypomyces, Hysterothylacium, Kloeckera, Kluyveromyces, Kodamaea, Lacazia, Leishmania, Lichtheimia, Lodderomyces, Lomentospora, Madurella, Malassezia, Malbranchea, Metagonimus, Meyerozyma, Microsporidium, Microsporum, Millerozyma, Mortierella, Mucor, Mycocentrospora, Nannizzia, Necator, Nectria, Ochroconis, Oesophagostomum, Oidiodendron, Opisthorchis, Paecilomyces, Paracoccidioides, Pediculus, Penicillium, Phaeoacremonium, Phaeomoniella, Phialophora, Phlebotomus, Phoma, Pichia, Piedraia, Pithomyces, Pityrosporum, Pneumocystis, Pseudallescheria, Pseudoscopulariopsis, Pseudoterranova, Pulex, Purpureocillium, Quambalaria, Rhinocladiella, Rhizomucor, Rhizopus, Rhodotorula, Saccharomyces, Saksenaea, Saprochaete, Sarcoptes, Scedosporium, Schistosoma, Schizosaccharomyces, Scolecobasidium, Scopulariopsis, Scytalidium, Spirometra, Sporobolomyces, Sporopachydermia, Sporothrix, Sporotrichum, Stachybotrys, Strongyloides, Syncephalastrum, Syngamus, Taenia, Talaromyces, Teleomorph, Toxocara, Trichinella, Trichobilharzia, Trichoderma, Trichomonas, Trichophyton, Trichosporon, Trichostrongylus, Trichuris, Tritirachium, Trombicula, Trypanosoma, Tunga, Ulocladium, Ustilago, Verticillium, Wallemia, Wangiella, Wickerhamomyces, Wuchereria, Yarrowia, Zygosaccharomyces; records prevalence = 2.0 microorganisms data set. calculating matching score, characters \\(x\\) \\(n\\) ignored -Z, -z, 0-9, spaces parentheses. matches sorted descending matching score user input values, top match returned. lead effect e.g., \"E. coli\" return microbial ID Escherichia coli (\\(m = 0.688\\), highly prevalent microorganism found humans) Entamoeba coli (\\(m = 0.381\\), less prevalent microorganism humans), although latter alphabetically come first.","code":""},{"path":"https://amr-for-r.org/reference/as.mo.html","id":"download-our-reference-data","dir":"Reference","previous_headings":"","what":"Download Our Reference Data","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"reference data sets AMR package - including information microorganisms, antimicrobials, clinical breakpoints - freely available download multiple formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. maximum compatibility, also provide machine-readable, tab-separated plain text files suitable use software, including laboratory information systems. Visit website direct download links, explore actual files GitHub repository.","code":""},{"path":[]},{"path":"https://amr-for-r.org/reference/as.mo.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"","code":"# \\donttest{ # These examples all return \"B_STPHY_AURS\", the ID of S. aureus: as.mo(c(   \"sau\", # WHONET code   \"stau\",   \"STAU\",   \"staaur\",   \"S. aureus\",   \"S aureus\",   \"Sthafilokkockus aureus\", # handles incorrect spelling   \"Staphylococcus aureus (MRSA)\",   \"MRSA\", # Methicillin Resistant S. aureus   \"VISA\", # Vancomycin Intermediate S. aureus   \"VRSA\", # Vancomycin Resistant S. aureus   115329001 # SNOMED CT code )) #> Class 'mo' #>  [1] B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS #>  [6] B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS #> [11] B_STPHY_AURS B_STPHY_AURS  # Dyslexia is no problem - these all work: as.mo(c(   \"Ureaplasma urealyticum\",   \"Ureaplasma urealyticus\",   \"Ureaplasmium urealytica\",   \"Ureaplazma urealitycium\" )) #> Class 'mo' #> [1] B_URPLS_URLY B_URPLS_URLY B_URPLS_URLY B_URPLS_URLY  # input will get cleaned up with the input given in the `cleaning_regex` argument, # which defaults to `mo_cleaning_regex()`: cat(mo_cleaning_regex(), \"\\n\") #> ([^A-Za-z- \\(\\)\\[\\]{}]+|([({]|\\[).+([})]|\\])|(^| )( ?[a-z-]+[-](resistant|susceptible) ?|e?spp([^a-z]+|$)|e?ssp([^a-z]+|$)|serogr.?up[a-z]*|e?ss([^a-z]+|$)|e?sp([^a-z]+|$)|var([^a-z]+|$)|serovar[a-z]*|sube?species|biovar[a-z]*|e?species|Ig[ADEGM]|e?subsp|biotype|titer|dummy))   as.mo(\"Streptococcus group A\") #> Class 'mo' #> [1] B_STRPT_GRPA  as.mo(\"S. epidermidis\") # will remain species: B_STPHY_EPDR #> Class 'mo' #> [1] B_STPHY_EPDR as.mo(\"S. epidermidis\", Becker = TRUE) # will not remain species: B_STPHY_CONS #> Class 'mo' #> [1] B_STPHY_CONS  as.mo(\"S. pyogenes\") # will remain species: B_STRPT_PYGN #> Class 'mo' #> [1] B_STRPT_PYGN as.mo(\"S. pyogenes\", Lancefield = TRUE) # will not remain species: B_STRPT_GRPA #> Class 'mo' #> [1] B_STRPT_GRPA  # All mo_* functions use as.mo() internally too (see ?mo_property): mo_genus(\"E. coli\") #> [1] \"Escherichia\" mo_gramstain(\"ESCO\") #> [1] \"Gram-negative\" mo_is_intrinsic_resistant(\"ESCCOL\", ab = \"vanco\") #> ℹ Determining intrinsic resistance based on 'EUCAST Expected Resistant #>   Phenotypes' v1.2 (2023). This note will be shown once per session. #> [1] TRUE # }"},{"path":"https://amr-for-r.org/reference/as.sir.html","id":null,"dir":"Reference","previous_headings":"","what":"Interpret MIC and Disk Diffusion as SIR, or Clean Existing SIR Data — as.sir","title":"Interpret MIC and Disk Diffusion as SIR, or Clean Existing SIR Data — as.sir","text":"Clean existing SIR values, interpret minimum inhibitory concentration (MIC) values disk diffusion diameters according EUCAST CLSI. .sir() transforms input new class sir, ordered factor containing levels S, SDD, , R, NI. Breakpoints currently implemented EUCAST 2011-2025 CLSI 2011-2025, see Details. breakpoints used interpretation available clinical_breakpoints data set.","code":""},{"path":"https://amr-for-r.org/reference/as.sir.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Interpret MIC and Disk Diffusion as SIR, or Clean Existing SIR Data — as.sir","text":"","code":"as.sir(x, ...)  NA_sir_  is.sir(x)  is_sir_eligible(x, threshold = 0.05)  # Default S3 method as.sir(x, S = \"^(S|U|1)+$\", I = \"^(I|2)+$\",   R = \"^(R|3)+$\", NI = \"^(N|NI|V|4)+$\", SDD = \"^(SDD|D|H|5)+$\",   info = interactive(), ...)  # S3 method for class 'mic' as.sir(x, mo = NULL, ab = deparse(substitute(x)),   guideline = getOption(\"AMR_guideline\", \"EUCAST\"), uti = NULL,   capped_mic_handling = getOption(\"AMR_capped_mic_handling\", \"standard\"),   add_intrinsic_resistance = FALSE,   reference_data = AMR::clinical_breakpoints,   substitute_missing_r_breakpoint = getOption(\"AMR_substitute_missing_r_breakpoint\",   FALSE), include_screening = getOption(\"AMR_include_screening\", FALSE),   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\"), host = NULL,   language = get_AMR_locale(), verbose = FALSE, info = interactive(),   conserve_capped_values = NULL, ...)  # S3 method for class 'disk' as.sir(x, mo = NULL, ab = deparse(substitute(x)),   guideline = getOption(\"AMR_guideline\", \"EUCAST\"), uti = NULL,   add_intrinsic_resistance = FALSE,   reference_data = AMR::clinical_breakpoints,   substitute_missing_r_breakpoint = getOption(\"AMR_substitute_missing_r_breakpoint\",   FALSE), include_screening = getOption(\"AMR_include_screening\", FALSE),   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\"), host = NULL,   language = get_AMR_locale(), verbose = FALSE, info = interactive(),   ...)  # S3 method for class 'data.frame' as.sir(x, ..., col_mo = NULL,   guideline = getOption(\"AMR_guideline\", \"EUCAST\"), uti = NULL,   capped_mic_handling = getOption(\"AMR_capped_mic_handling\", \"standard\"),   add_intrinsic_resistance = FALSE,   reference_data = AMR::clinical_breakpoints,   substitute_missing_r_breakpoint = getOption(\"AMR_substitute_missing_r_breakpoint\",   FALSE), include_screening = getOption(\"AMR_include_screening\", FALSE),   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\"), host = NULL,   language = get_AMR_locale(), verbose = FALSE, info = interactive(),   parallel = FALSE, max_cores = -1, conserve_capped_values = NULL)  sir_interpretation_history(clean = FALSE)"},{"path":"https://amr-for-r.org/reference/as.sir.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Interpret MIC and Disk Diffusion as SIR, or Clean Existing SIR Data — as.sir","text":"interpretations minimum inhibitory concentration (MIC) values disk diffusion diameters: CLSI M39: Analysis Presentation Cumulative Antimicrobial Susceptibility Test Data, 2011-2025, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/microbiology/documents/m39/. CLSI M100: Performance Standard Antimicrobial Susceptibility Testing, 2011-2025, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/microbiology/documents/m100/. CLSI VET01: Performance Standards Antimicrobial Disk Dilution Susceptibility Tests Bacteria Isolated Animals, 2019-2025, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/veterinary-medicine/documents/vet01/. EUCAST Breakpoint tables interpretation MICs zone diameters, 2011-2025, European Committee Antimicrobial Susceptibility Testing (EUCAST). https://www.eucast.org/clinical_breakpoints. WHONET source machine-reading clinical breakpoints (read ), 1989-2025, Collaborating Centre Surveillance Antimicrobial Resistance. https://whonet.org/.","code":""},{"path":"https://amr-for-r.org/reference/as.sir.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Interpret MIC and Disk Diffusion as 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: selection columns apply .sir() . Supports tidyselect language (.mic), starts_with(...), column1:column4, can thus also antimicrobial selectors, e.g. .sir(df, penicillins()). Otherwise: arguments passed methods. threshold Maximum fraction invalid antimicrobial interpretations x, see Examples. S, , R, NI, SDD case-independent regular expression translate input result. regular expression run non-letters whitespaces removed input. info logical print information process, defaults TRUE interactive sessions. mo vector (column name) characters can coerced valid microorganism codes .mo(), can left empty determine automatically. ab vector (column name) characters can coerced valid antimicrobial drug code .ab(). guideline guideline name (column name) use SIR interpretation. Defaults EUCAST 2025 (latest implemented EUCAST guideline clinical_breakpoints data set), can set package option AMR_guideline. Currently supports EUCAST (2011-2025) CLSI (2011-2025), see Details. Using column name allows straightforward interpretation historical data, must analysed context , example, different years. uti (Urinary Tract Infection) vector (column name) logicals (TRUE FALSE) specify whether UTI specific interpretation guideline chosen. using .sir() data.frame, can also column containing logicals left blank, data set searched column 'specimen', rows within column containing 'urin' ('urine', 'urina') regarded isolates UTI. See Examples. capped_mic_handling character string controls MIC values cap (.e., starting <, <=, >, >=) interpreted. Supports following options: \"none\" <=, <, > >= ignored. \"conservative\" (default) <=, <, > >= return \"NI\" (non-interpretable) true MIC either side breakpoint. mode preserves uncertainty ECOFFs. \"standard\" <= >= return \"NI\" (non-interpretable) true MIC either side breakpoint. < always returns \"S\", regardless breakpoint. > always returns \"R\", regardless breakpoint. \"lenient\" <= < always return \"S\", regardless breakpoint. >= > always return \"R\", regardless breakpoint. default \"conservative\" setting ensures cautious handling uncertain values preserving interpretability. option can also set package option AMR_capped_mic_handling. 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. substitute_missing_r_breakpoint logical indicate missing clinical breakpoints R (resistant) must substituted R - default FALSE. (especially CLSI) breakpoints breakpoint S, meaning outcome can \"S\" NA. Setting TRUE convert NAs cases \"R\". Can also set package option AMR_substitute_missing_r_breakpoint. include_screening logical indicate clinical breakpoints screening allowed - default FALSE. Can also set package option AMR_include_screening. include_PKPD logical indicate PK/PD clinical breakpoints must applied last resort - default TRUE. Can also set package option AMR_include_PKPD. breakpoint_type type breakpoints use, either \"ECOFF\", \"animal\", \"human\". ECOFF stands Epidemiological Cut-values. default \"human\", can also set package option AMR_breakpoint_type. host set values veterinary species, automatically set \"animal\". host vector (column name) characters indicate host. useful veterinary breakpoints, requires breakpoint_type = \"animal\". values can text resembling animal species, even 28 supported languages package. foreign languages, sure set language set_AMR_locale() (though automatically guessed based system language). language Language convert values set host using animal breakpoints. Use one supported language names ISO 639-1 codes: English (en), Arabic (ar), Bengali (bn), Chinese (zh), Czech (cs), Danish (da), Dutch (nl), Finnish (fi), French (fr), German (de), Greek (el), Hindi (hi), Indonesian (id), Italian (), Japanese (ja), Korean (ko), Norwegian (), Polish (pl), Portuguese (pt), Romanian (ro), Russian (ru), Spanish (es), Swahili (sw), Swedish (sv), Turkish (tr), Ukrainian (uk), Urdu (ur), Vietnamese (vi). verbose logical indicate notes printed interpretation MIC values disk diffusion values. conserve_capped_values Deprecated, use capped_mic_handling instead. col_mo Column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). parallel logical indicate parallel computing must used, defaults FALSE. requires additional packages, used parallel package part base R. Windows R < 4.0.0 parallel::parLapply() used, cases efficient parallel::mclapply() used. max_cores Maximum number cores use parallel = TRUE. Use negative value subtract number available number cores, e.g. value -2 8-core machine means 6 cores used. Defaults -1. never used cores variables analyse. available number cores detected using parallelly::availableCores() package installed, base R's parallel::detectCores() otherwise. clean logical indicate whether previously stored results forgotten returning 'logbook' results.","code":""},{"path":"https://amr-for-r.org/reference/as.sir.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Interpret MIC and Disk Diffusion as SIR, or Clean Existing SIR Data — as.sir","text":"Ordered factor new class sir","code":""},{"path":"https://amr-for-r.org/reference/as.sir.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Interpret MIC and Disk Diffusion as SIR, or Clean Existing SIR Data — as.sir","text":"Note: clinical breakpoints package validated , imported , WHONET. public use AMR package endorsed CLSI EUCAST. See clinical_breakpoints information. NA_sir_ missing value new sir class, analogous e.g. base R's NA_character_.","code":""},{"path":"https://amr-for-r.org/reference/as.sir.html","id":"how-it-works","dir":"Reference","previous_headings":"","what":"How it Works","title":"Interpret MIC and Disk Diffusion as SIR, or Clean Existing SIR Data — as.sir","text":".sir() function can work four ways: cleaning raw / untransformed data. data cleaned contain valid values, namely: S susceptible, intermediate 'susceptible, increased exposure', R resistant, NI non-interpretable, SDD susceptible dose-dependent. can set using regular expression. Furthermore, .sir() try best clean intelligence. example, mixed values SIR interpretations MIC values \"<0.25; S\" coerced \"S\". Combined interpretations multiple test methods (seen laboratory records) \"S; S\" coerced \"S\", value like \"S; \" return NA warning input invalid. interpreting minimum inhibitory concentration (MIC) values according EUCAST CLSI. must clean MIC values first using .mic(), also gives columns new data class mic. Also, sure column microorganism names codes. found automatically, can set manually using mo argument. Example apply using dplyr:   Operators like \"<=\" considered according capped_mic_handling setting. default, MIC value e.g. \">2\" return \"NI\" (non-interpretable) breakpoint 4-8; true MIC either side breakpoint. prevent capped values raw laboratory data treated conservatively. Note: using CLSI guideline, MIC values must log2-based doubling dilutions. Values format, automatically rounded nearest log2 level CLSI instructs, warning thrown. 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. Example apply using dplyr:   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 results previous .sir() calls. also contains notes interpretation, exact input output values.","code":"your_data %>% mutate_if(is.mic, as.sir) your_data %>% mutate(across(where(is.mic), as.sir)) your_data %>% mutate_if(is.mic, as.sir, ab = \"column_with_antibiotics\", mo = \"column_with_microorganisms\") your_data %>% mutate_if(is.mic, as.sir, ab = c(\"cipro\", \"ampicillin\", ...), mo = c(\"E. coli\", \"K. pneumoniae\", ...))  # for veterinary breakpoints, also set `host`: your_data %>% mutate_if(is.mic, as.sir, host = \"column_with_animal_species\", guideline = \"CLSI\")  # fast processing with parallel computing: as.sir(your_data, ..., parallel = TRUE) your_data %>% mutate_if(is.disk, as.sir) your_data %>% mutate(across(where(is.disk), as.sir)) your_data %>% mutate_if(is.disk, as.sir, ab = \"column_with_antibiotics\", mo = \"column_with_microorganisms\") your_data %>% mutate_if(is.disk, as.sir, ab = c(\"cipro\", \"ampicillin\", ...), mo = c(\"E. coli\", \"K. pneumoniae\", ...))  # for veterinary breakpoints, also set `host`: your_data %>% mutate_if(is.disk, as.sir, host = \"column_with_animal_species\", guideline = \"CLSI\")  # fast processing with parallel computing: as.sir(your_data, ..., parallel = TRUE)"},{"path":"https://amr-for-r.org/reference/as.sir.html","id":"supported-guidelines","dir":"Reference","previous_headings":"","what":"Supported Guidelines","title":"Interpret MIC and Disk Diffusion as SIR, or Clean Existing SIR Data — as.sir","text":"interpreting MIC values well disk diffusion diameters, currently implemented guidelines : clinical microbiology: EUCAST 2011-2025 CLSI 2011-2025; veterinary microbiology: EUCAST 2021-2025 CLSI 2019-2025; ECOFFs (Epidemiological Cut-Values): EUCAST 2020-2025 CLSI 2022-2025. guideline argument must set e.g., \"EUCAST 2025\" \"CLSI 2025\". simply using \"EUCAST\" (default) \"CLSI\" input, latest included version guideline automatically selected. Importantly, using column name data instead, allows straightforward interpretation historical data must analysed context , example, different years. can set data set using reference_data argument. guideline argument ignored. also possible 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://amr-for-r.org/reference/as.sir.html","id":"working-with-veterinary-breakpoints","dir":"Reference","previous_headings":"","what":"Working with Veterinary Breakpoints","title":"Interpret MIC and Disk Diffusion as SIR, or Clean Existing SIR Data — as.sir","text":"using veterinary breakpoints (.e., setting breakpoint_type = \"animal\"), column animal species must available set manually using host argument. column must contain names like \"dogs\", \"cats\", \"cattle\", \"swine\", \"horses\", \"poultry\", \"aquatic\". animal names like \"goats\", \"rabbits\", \"monkeys\" also recognised may available guidelines. Matching case-insensitive accepts Latin-based synonyms (e.g., \"bovine\" cattle \"canine\" dogs). Regarding choice veterinary guidelines, might best options set analysis:","code":"options(AMR_guideline = \"CLSI\")   options(AMR_breakpoint_type = \"animal\")"},{"path":"https://amr-for-r.org/reference/as.sir.html","id":"after-interpretation","dir":"Reference","previous_headings":"","what":"After Interpretation","title":"Interpret MIC and Disk Diffusion as SIR, or Clean Existing SIR Data — as.sir","text":"using .sir(), can use eucast_rules() defined EUCAST (1) apply inferred susceptibility resistance based results antimicrobials (2) apply intrinsic resistance based taxonomic properties microorganism. determine isolates multi-drug resistant, sure run mdro() (applies MDR/PDR/XDR guideline 2012 default) data set contains S//R values. Read interpreting multidrug-resistant organisms .","code":""},{"path":"https://amr-for-r.org/reference/as.sir.html","id":"other","dir":"Reference","previous_headings":"","what":"Other","title":"Interpret MIC and Disk Diffusion as SIR, or Clean Existing SIR Data — as.sir","text":"function .sir() detects input contains class sir. input data.frame list, iterates columns/items returns logical vector. base R function .double() can used retrieve quantitative values sir object: \"S\" = 1, \"\"/\"SDD\" = 2, \"R\" = 3. values rendered NA. Note: use .integer(), since (R works internally) return factor level indices, aforementioned quantitative values. function is_sir_eligible() returns TRUE column contains 5% potentially invalid antimicrobial interpretations, FALSE otherwise. threshold 5% can set threshold argument. input data.frame, iterates columns returns logical vector.","code":""},{"path":"https://amr-for-r.org/reference/as.sir.html","id":"interpretation-of-sir","dir":"Reference","previous_headings":"","what":"Interpretation of SIR","title":"Interpret MIC and Disk Diffusion as SIR, or Clean Existing SIR Data — as.sir","text":"2019, European Committee Antimicrobial Susceptibility Testing (EUCAST) decided change definitions susceptibility testing categories S, , R (https://www.eucast.org/newsiandr). AMR package follows insight; use susceptibility() (equal proportion_SI()) determine antimicrobial susceptibility count_susceptible() (equal count_SI()) count susceptible isolates.","code":""},{"path":"https://amr-for-r.org/reference/as.sir.html","id":"download-our-reference-data","dir":"Reference","previous_headings":"","what":"Download Our Reference Data","title":"Interpret MIC and Disk Diffusion as SIR, or Clean Existing SIR Data — as.sir","text":"reference data sets AMR package - including information microorganisms, antimicrobials, clinical breakpoints - freely available download multiple formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. maximum compatibility, also provide machine-readable, tab-separated plain text files suitable use software, including laboratory information systems. Visit website direct download links, explore actual files GitHub repository.","code":""},{"path":[]},{"path":"https://amr-for-r.org/reference/as.sir.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Interpret MIC and Disk Diffusion as SIR, or Clean Existing SIR Data — as.sir","text":"","code":"example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI   R     NA    NA    NA  #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI   R     NA    NA    NA  #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS   R     NA    S     R   #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS   R     NA    S     R   #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR   R     NA    S     NA  #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  summary(example_isolates[, 1:10]) # see all SIR results at a glance #>       date              patient               age           gender          #>  Min.   :2002-01-02   Length:2000        Min.   : 0.00   Length:2000        #>  1st Qu.:2005-07-31   Class :character   1st Qu.:63.00   Class :character   #>  Median :2009-07-31   Mode  :character   Median :74.00   Mode  :character   #>  Mean   :2009-11-20                      Mean   :70.69                      #>  3rd Qu.:2014-05-30                      3rd Qu.:82.00                      #>  Max.   :2017-12-28                      Max.   :97.00                      #>      ward                mo                  PEN                 #>  Length:2000        Class :mo             Class:sir              #>  Class :character   <NA>  :0              %S   :25.6% (n=417)    #>  Mode  :character   Unique:90             %SDD : 0.0% (n=0)      #>                     #1    :B_ESCHR_COLI   %I   : 0.7% (n=11)     #>                     #2    :B_STPHY_CONS   %R   :73.7% (n=1201)   #>                     #3    :B_STPHY_AURS   %NI  : 0.0% (n=0)      #>     OXA                   FLC                   AMX                #>  Class:sir             Class:sir             Class:sir             #>  %S   :68.8% (n=251)   %S   :70.5% (n=665)   %S   :40.2% (n=543)   #>  %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)     %SDD : 0.0% (n=0)     #>  %I   : 0.0% (n=0)     %I   : 0.0% (n=0)     %I   : 0.2% (n=3)     #>  %R   :31.2% (n=114)   %R   :29.5% (n=278)   %R   :59.6% (n=804)   #>  %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)     %NI  : 0.0% (n=0)      # create some example data sets, with combined MIC values and disk zones df_wide <- data.frame(   microorganism = \"Escherichia coli\",   amoxicillin = as.mic(8),   cipro = as.mic(0.256),   tobra = as.disk(16),   genta = as.disk(18),   ERY = \"R\" ) df_long <- data.frame(   bacteria = rep(\"Escherichia coli\", 4),   antibiotic = c(\"amoxicillin\", \"cipro\", \"tobra\", \"genta\"),   mics = as.mic(c(0.01, 1, 4, 8)),   disks = as.disk(c(6, 10, 14, 18)),   guideline = c(\"EUCAST 2021\", \"EUCAST 2022\", \"EUCAST 2023\", \"EUCAST 2024\") ) # and clean previous SIR interpretation logs x <- sir_interpretation_history(clean = TRUE)   # For INTERPRETING disk diffusion and MIC values -----------------------  # most basic application: as.sir(df_wide) #>      microorganism amoxicillin cipro tobra genta ERY #> 1 Escherichia coli           S     I     S     S   R  # return a 'logbook' about the results: sir_interpretation_history() #> # A tibble: 4 × 18 #>   datetime            index method ab_given    mo_given   host_given input_given #>   <dttm>              <int> <chr>  <chr>       <chr>      <chr>      <chr>       #> 1 2026-01-06 22:18:05     1 MIC    amoxicillin Escherich… human      8           #> 2 2026-01-06 22:18:05     1 MIC    cipro       Escherich… human      0.256       #> 3 2026-01-06 22:18:05     1 DISK   tobra       Escherich… human      16          #> 4 2026-01-06 22:18:06     1 DISK   genta       Escherich… human      18          #> # ℹ 11 more variables: ab <ab>, mo <mo>, host <chr>, input <chr>, #> #   outcome <sir>, notes <chr>, guideline <chr>, ref_table <chr>, uti <lgl>, #> #   breakpoint_S_R <chr>, site <chr>  # \\donttest{ # using parallel computing, which is available in base R: as.sir(df_wide, parallel = TRUE, info = TRUE) #> ℹ Returning previously coerced values for various antimicrobials. Run #>   `ab_reset_session()` to reset this. This note will be shown once per #>   session. #>  #> Running in parallel mode using 3 out of 4 cores, on columns 'amoxicillin', #> 'cipro', 'tobra', 'genta', and 'ERY'... #>  DONE #>  #>  #> ℹ Run `sir_interpretation_history()` to retrieve a logbook with all details #>   of the breakpoint interpretations. #>      microorganism amoxicillin cipro tobra genta ERY #> 1 Escherichia coli           S     I     S     S   R   ## Using dplyr ------------------------------------------------- if (require(\"dplyr\")) {   # approaches that all work without additional arguments:   df_wide %>% mutate_if(is.mic, as.sir)   df_wide %>% mutate_if(function(x) is.mic(x) | is.disk(x), as.sir)   df_wide %>% mutate(across(where(is.mic), as.sir))    df_wide %>% mutate_at(vars(amoxicillin:tobra), as.sir)   df_wide %>% mutate(across(amoxicillin:tobra, as.sir))    df_wide %>% mutate(across(aminopenicillins(), as.sir))    # approaches that all work with additional arguments:   df_long %>%     # given a certain data type, e.g. MIC values     mutate_if(is.mic, as.sir,       mo = \"bacteria\",       ab = \"antibiotic\",       guideline = \"guideline\"     )   df_long %>%     mutate(across(       where(is.mic),       function(x) {         as.sir(x,           mo = \"bacteria\",           ab = \"antibiotic\",           guideline = \"CLSI\"         )       }     ))   df_wide %>%     # given certain columns, e.g. from 'cipro' to 'genta'     mutate_at(vars(cipro:genta), as.sir,       mo = \"bacteria\",       guideline = \"CLSI\"     )   df_wide %>%     mutate(across(       cipro:genta,       function(x) {         as.sir(x,           mo = \"bacteria\",           guideline = \"CLSI\"         )       }     ))    # for veterinary breakpoints, add 'host':   df_long$animal_species <- c(\"cats\", \"dogs\", \"horses\", \"cattle\")   df_long %>%     # given a certain data type, e.g. MIC values     mutate_if(is.mic, as.sir,       mo = \"bacteria\",       ab = \"antibiotic\",       host = \"animal_species\",       guideline = \"CLSI\"     )   df_long %>%     mutate(across(       where(is.mic),       function(x) {         as.sir(x,           mo = \"bacteria\",           ab = \"antibiotic\",           host = \"animal_species\",           guideline = \"CLSI\"         )       }     ))   df_wide %>%     mutate_at(vars(cipro:genta), as.sir,       mo = \"bacteria\",       ab = \"antibiotic\",       host = \"animal_species\",       guideline = \"CLSI\"     )   df_wide %>%     mutate(across(       cipro:genta,       function(x) {         as.sir(x,           mo = \"bacteria\",           host = \"animal_species\",           guideline = \"CLSI\"         )       }     ))    # to include information about urinary tract infections (UTI)   data.frame(     mo = \"E. coli\",     nitrofuratoin = c(\"<= 2\", 32),     from_the_bladder = c(TRUE, FALSE)   ) %>%     as.sir(uti = \"from_the_bladder\")    data.frame(     mo = \"E. coli\",     nitrofuratoin = c(\"<= 2\", 32),     specimen = c(\"urine\", \"blood\")   ) %>%     as.sir() # automatically determines urine isolates    df_wide %>%     mutate_at(vars(cipro:genta), as.sir, mo = \"E. coli\", uti = TRUE) } #> ℹ For `aminopenicillins()` using column 'amoxicillin' #> Warning: There was 1 warning in `mutate()`. #> ℹ In argument: `across(...)`. #> Caused by warning: #> ! Some MICs were converted to the nearest higher log2 level, following the #> CLSI interpretation guideline. #> Warning: There was 1 warning in `mutate()`. #> ℹ In argument: `cipro = (function (x, ...) ...`. #> Caused by warning: #> ! Some MICs were converted to the nearest higher log2 level, following the #> CLSI interpretation guideline. #> Warning: There was 1 warning in `mutate()`. #> ℹ In argument: `across(...)`. #> Caused by warning: #> ! Some MICs were converted to the nearest higher log2 level, following the #> CLSI interpretation guideline. #> Warning: There was 1 warning in `mutate()`. #> ℹ In argument: `mics = (function (x, ...) ...`. #> Caused by warning: #> ! Some MICs were converted to the nearest higher log2 level, following the #> CLSI interpretation guideline. #> Warning: There was 1 warning in `mutate()`. #> ℹ In argument: `across(...)`. #> Caused by warning: #> ! Some MICs were converted to the nearest higher log2 level, following the #> CLSI interpretation guideline. #> Interpreting MIC values: 'antibiotic' (ASP, acetylspiramycin), CLSI 2025... #> Interpreting disk diffusion zones: 'antibiotic' (ASP, acetylspiramycin), #> CLSI 2025... #> Interpreting disk diffusion zones: 'antibiotic' (ASP, acetylspiramycin), #> CLSI 2025... #> Warning: There was 1 warning in `mutate()`. #> ℹ In argument: `cipro = (function (x, ...) ...`. #> Caused by warning: #> ! Some MICs were converted to the nearest higher log2 level, following the #> CLSI interpretation guideline. #> Warning: There was 1 warning in `mutate()`. #> ℹ In argument: `across(...)`. #> Caused by warning: #> ! Some MICs were converted to the nearest higher log2 level, following the #> CLSI interpretation guideline. #>      microorganism amoxicillin cipro tobra genta ERY #> 1 Escherichia coli           8  <NA>     S     S   R   ## Using base R ------------------------------------------------   # for single values as.sir(   x = as.mic(2),   mo = as.mo(\"S. pneumoniae\"),   ab = \"AMP\",   guideline = \"EUCAST\" ) #> 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\" ) #> Class 'sir' #> [1] R   # For CLEANING existing SIR values -------------------------------------  as.sir(c(\"S\", \"SDD\", \"I\", \"R\", \"NI\", \"A\", \"B\", \"C\")) #> Warning: in `as.sir()`: 3 results in index '21' truncated (38%) that were invalid #> antimicrobial interpretations: \"A\", \"B\", and \"C\" #> Class 'sir' #> [1] S    SDD  I    R    NI   <NA> <NA> <NA> as.sir(\"<= 0.002; S\") # will return \"S\" #> Warning: in `as.sir()`: 1 result in index '21' truncated (100%) that were invalid #> antimicrobial interpretations: \"<= 0.002; S\" #> Class 'sir' #> [1] <NA>  as.sir(c(1, 2, 3)) #> ℹ in `as.sir()`: Interpreting input value 1 as \"S\", 2 as \"I\", and 3 as \"R\" #> Class 'sir' #> [1] S I R as.sir(c(1, 2, 3), S = 3, I = 2, R = 1) #> ℹ in `as.sir()`: Interpreting input value 1 as \"R\", 2 as \"I\", and 3 as \"S\" #> Class 'sir' #> [1] R I S  sir_data <- as.sir(c(rep(\"S\", 474), rep(\"I\", 36), rep(\"R\", 370))) is.sir(sir_data) #> [1] TRUE plot(sir_data) # for percentages  barplot(sir_data) # for frequencies   # as common in R, you can use as.integer() to return factor indices: as.integer(as.sir(c(\"S\", \"SDD\", \"I\", \"R\", \"NI\", NA))) #> [1]  1  2  3  4  5 NA  # but for computational use, as.double() will return 1 for S, 2 for I/SDD, and 3 for R: as.double(as.sir(c(\"S\", \"SDD\", \"I\", \"R\", \"NI\", NA))) #> [1]  1  2  2  3 NA NA  # the dplyr way if (require(\"dplyr\")) {   example_isolates %>%     mutate_at(vars(PEN:RIF), as.sir)   # same:   example_isolates %>%     as.sir(PEN:RIF)    # fastest way to transform all columns with already valid AMR results to class `sir`:   example_isolates %>%     mutate_if(is_sir_eligible, as.sir)    # since dplyr 1.0.0, this can also be the more impractical:   # example_isolates %>%   #   mutate(across(where(is_sir_eligible), as.sir)) } #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI   R     NA    NA    NA  #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI   R     NA    NA    NA  #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS   R     NA    S     R   #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS   R     NA    S     R   #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR   R     NA    S     NA  #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … # }"},{"path":"https://amr-for-r.org/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. antimicrobial), name, defined daily dose (DDD) standard unit.","code":""},{"path":"https://amr-for-r.org/reference/atc_online.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Get ATC Properties from WHOCC Website — atc_online_property","text":"","code":"atc_online_property(atc_code, property, administration = \"O\",   url = \"https://atcddd.fhi.no/atc_ddd_index/?code=%s&showdescription=no\",   url_vet = \"https://atcddd.fhi.no/atcvet/atcvet_index/?code=%s&showdescription=no\")  atc_online_groups(atc_code, ...)  atc_online_ddd(atc_code, ...)  atc_online_ddd_units(atc_code, ...)"},{"path":"https://amr-for-r.org/reference/atc_online.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Get ATC Properties from WHOCC Website — atc_online_property","text":"https://atcddd.fhi./atc_ddd_alterations__cumulative/ddd_alterations/abbrevations/","code":""},{"path":"https://amr-for-r.org/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) antimicrobials, 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://amr-for-r.org/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://amr-for-r.org/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 #> ℹ in `atc_online_property()`: no properties found for ATC QG51AA03. Please #>   check #>   https://atcddd.fhi.no/atcvet/atcvet_index/?code=QG51AA03&showdescription=no. #> ℹ in `atc_online_property()`: no properties found for ATC QJ01CA04. Please #>   check #>   https://atcddd.fhi.no/atcvet/atcvet_index/?code=QJ01CA04&showdescription=no. #> [1] \"ANTIINFECTIVES FOR SYSTEMIC USE\"         #> [2] \"ANTIBACTERIALS FOR SYSTEMIC USE\"         #> [3] \"BETA-LACTAM ANTIBACTERIALS, PENICILLINS\" #> [4] \"Penicillins with extended spectrum\"      # }"},{"path":"https://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/reference/av_property.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Get Properties of an Antiviral Drug — av_property","text":"World Health Organization () Collaborating Centre Drug Statistics Methodology: https://atcddd.fhi./atc_ddd_index/ European Commission Public Health PHARMACEUTICALS - COMMUNITY REGISTER: https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm","code":""},{"path":"https://amr-for-r.org/reference/av_property.html","id":"download-our-reference-data","dir":"Reference","previous_headings":"","what":"Download Our Reference Data","title":"Get Properties of an Antiviral Drug — av_property","text":"reference data sets AMR package - including information microorganisms, antimicrobials, clinical breakpoints - freely available download multiple formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. maximum compatibility, also provide machine-readable, tab-separated plain text files suitable use software, including laboratory information systems. Visit website direct download links, explore actual files GitHub repository.","code":""},{"path":[]},{"path":"https://amr-for-r.org/reference/av_property.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Get Properties of an Antiviral Drug — av_property","text":"","code":"# all properties: av_name(\"ACI\") #> [1] \"Aciclovir\" av_atc(\"ACI\") #> [1] \"J05AB01\" av_cid(\"ACI\") #> [1] 135398513 av_synonyms(\"ACI\") #>  [1] \"acicloftal\"        \"aciclovier\"        \"aciclovirum\"       #>  [4] \"activir\"           \"acyclofoam\"        \"acycloguanosine\"   #>  [7] \"acyclovir\"         \"acyclovir lauriad\" \"avaclyr\"           #> [10] \"cargosil\"          \"cyclovir\"          \"genvir\"            #> [13] \"gerpevir\"          \"hascovir\"          \"maynar\"            #> [16] \"novirus\"           \"poviral\"           \"sitavig\"           #> [19] \"sitavir\"           \"vipral\"            \"viropump\"          #> [22] \"virorax\"           \"zovirax\"           \"zyclir\"            av_tradenames(\"ACI\") #>  [1] \"acicloftal\"        \"aciclovier\"        \"aciclovirum\"       #>  [4] \"activir\"           \"acyclofoam\"        \"acycloguanosine\"   #>  [7] \"acyclovir\"         \"acyclovir lauriad\" \"avaclyr\"           #> [10] \"cargosil\"          \"cyclovir\"          \"genvir\"            #> [13] \"gerpevir\"          \"hascovir\"          \"maynar\"            #> [16] \"novirus\"           \"poviral\"           \"sitavig\"           #> [19] \"sitavir\"           \"vipral\"            \"viropump\"          #> [22] \"virorax\"           \"zovirax\"           \"zyclir\"            av_group(\"ACI\") #> [1] \"Nucleosides and nucleotides excl. reverse transcriptase inhibitors\" av_url(\"ACI\") #>                                                              Aciclovir  #> \"https://atcddd.fhi.no/atc_ddd_index/?code=J05AB01&showdescription=no\"   # lowercase transformation av_name(x = c(\"ACI\", \"VALA\")) #> [1] \"Aciclovir\"    \"Valaciclovir\" av_name(x = c(\"ACI\", \"VALA\"), tolower = TRUE) #> [1] \"aciclovir\"    \"valaciclovir\"  # defined daily doses (DDD) av_ddd(\"ACI\", \"oral\") #> [1] 4 av_ddd_units(\"ACI\", \"oral\") #> [1] \"g\" av_ddd(\"ACI\", \"iv\") #> [1] 4 av_ddd_units(\"ACI\", \"iv\") #> [1] \"g\"  av_info(\"ACI\") # all properties as a list #> $av #> [1] \"ACI\" #>  #> $cid #> [1] 135398513 #>  #> $name #> [1] \"Aciclovir\" #>  #> $group #> [1] \"Nucleosides and nucleotides excl. reverse transcriptase inhibitors\" #>  #> $atc #> [1] \"J05AB01\" #>  #> $tradenames #>  [1] \"acicloftal\"        \"aciclovier\"        \"aciclovirum\"       #>  [4] \"activir\"           \"acyclofoam\"        \"acycloguanosine\"   #>  [7] \"acyclovir\"         \"acyclovir lauriad\" \"avaclyr\"           #> [10] \"cargosil\"          \"cyclovir\"          \"genvir\"            #> [13] \"gerpevir\"          \"hascovir\"          \"maynar\"            #> [16] \"novirus\"           \"poviral\"           \"sitavig\"           #> [19] \"sitavir\"           \"vipral\"            \"viropump\"          #> [22] \"virorax\"           \"zovirax\"           \"zyclir\"            #>  #> $loinc #> [1] \"\" #>  #> $ddd #> $ddd$oral #> $ddd$oral$amount #> [1] 4 #>  #> $ddd$oral$units #> [1] \"g\" #>  #>  #> $ddd$iv #> $ddd$iv$amount #> [1] 4 #>  #> $ddd$iv$units #> [1] \"g\" #>  #>  #>   # all av_* functions use as.av() internally, so you can go from 'any' to 'any': av_atc(\"ACI\") #> [1] \"J05AB01\" av_group(\"J05AB01\") #> [1] \"Nucleosides and nucleotides excl. reverse transcriptase inhibitors\" av_loinc(\"abacavir\") #> [1] \"29113-8\" \"30273-7\" \"30287-7\" \"30303-2\" \"78772-1\" \"78773-9\" \"79134-3\" #> [8] \"80118-3\" av_name(\"29113-8\") #> [1] \"Abacavir\" av_name(135398513) #> [1] \"Aciclovir\" av_name(\"J05AB01\") #> [1] \"Aciclovir\""},{"path":"https://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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,   include_n_rows = FALSE, ...)  # S3 method for class 'bug_drug_combinations' format(x, translate_ab = \"name (ab, atc)\",   language = get_AMR_locale(), minimum = 30, combine_SI = TRUE,   add_ab_group = TRUE, remove_intrinsic_resistant = FALSE,   decimal.mark = getOption(\"OutDec\"), big.mark = ifelse(decimal.mark ==   \",\", \".\", \",\"), ...)"},{"path":"https://amr-for-r.org/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 antimicrobials 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(). include_n_rows logical indicate total number rows must included output. ... Arguments passed FUN. translate_ab character length 1 containing column names antimicrobials data set. language Language returned text - default current system language (see get_AMR_locale()) can also set package option AMR_locale. Use language = NULL language = \"\" prevent translation. minimum minimum allowed number available (tested) isolates. isolate count lower minimum return NA warning. default number 30 isolates advised Clinical Laboratory Standards Institute (CLSI) best practice, see Source. combine_SI logical indicate whether values S, SDD, summed, resistance based R - default TRUE. add_ab_group logical indicate group antimicrobials must included first column. remove_intrinsic_resistant logical indicate rows columns 100% resistance tested antimicrobials must removed table. decimal.mark character used indicate numeric     decimal point. big.mark character; empty used mark every     big.interval decimals (hence big)     decimal point.","code":""},{"path":"https://amr-for-r.org/reference/bug_drug_combinations.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"function bug_drug_combinations() returns data.frame columns \"mo\", \"ab\", \"S\", \"SDD\", \"\", \"R\", \"total\".","code":""},{"path":"https://amr-for-r.org/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://amr-for-r.org/reference/bug_drug_combinations.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"","code":"# example_isolates is a data set available in the AMR package. # run ?example_isolates for more info. example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI   R     NA    NA    NA  #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI   R     NA    NA    NA  #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS   R     NA    S     R   #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS   R     NA    S     R   #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR   R     NA    S     NA  #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  # \\donttest{ x <- bug_drug_combinations(example_isolates) head(x) #> # A tibble: 6 × 8 #>   mo                ab        S   SDD     I     R    NI total #>   <chr>             <chr> <int> <int> <int> <int> <int> <int> #> 1 (unknown species) AMC      15     0     0     0     0    15 #> 2 (unknown species) AMK       0     0     0     0     0     0 #> 3 (unknown species) AMP      15     0     0     1     0    16 #> 4 (unknown species) AMX      15     0     0     1     0    16 #> 5 (unknown species) AZM       3     0     0     3     0     6 #> 6 (unknown species) CAZ       0     0     0     0     0     0 #> Use 'format()' on this result to get a publishable/printable format. format(x, translate_ab = \"name (atc)\") #> # A tibble: 39 × 12 #>    Group     Drug  CoNS  `E. coli` `E. faecalis` `K. pneumoniae` `P. aeruginosa` #>    <chr>     <chr> <chr> <chr>     <chr>         <chr>           <chr>           #>  1 \"Aminogl… Amik… \"100… \"  0.0% … \"100.0% (39/… \"\"              \"\"              #>  2 \"\"        Gent… \" 13… \"  2.0% … \"100.0% (39/… \" 10.3% (6/58)\" \"  0.0% (0/30)\" #>  3 \"\"        Kana… \"100… \"\"        \"100.0% (39/… \"\"              \"100.0% (30/30… #>  4 \"\"        Tobr… \" 78… \"  2.6% … \"100.0% (39/… \" 10.3% (6/58)\" \"  0.0% (0/30)\" #>  5 \"Aminope… Amox… \" 93… \" 50.0% … \"\"            \"100.0% (58/58… \"100.0% (30/30… #>  6 \"\"        Amox… \" 42… \" 13.1% … \"\"            \" 10.3% (6/58)\" \"100.0% (30/30… #>  7 \"\"        Ampi… \" 93… \" 50.0% … \"\"            \"100.0% (58/58… \"100.0% (30/30… #>  8 \"Carbape… Imip… \" 47… \"  0.0% … \"  0.0% (0/3… \"  0.0% (0/51)\" \"\"              #>  9 \"\"        Mero… \" 47… \"  0.0% … \"\"            \"  0.0% (0/53)\" \"\"              #> 10 \"Cephalo… Cefa… \" 47… \"  2.4% … \"100.0% (39/… \"\"              \"100.0% (30/30… #> # ℹ 29 more rows #> # ℹ 5 more variables: `P. mirabilis` <chr>, `S. aureus` <chr>, #> #   `S. epidermidis` <chr>, `S. hominis` <chr>, `S. pneumoniae` <chr>  # Use FUN to change to transformation of microorganism codes bug_drug_combinations(example_isolates,   FUN = mo_gramstain ) #> # A tibble: 80 × 8 #>    mo            ab        S   SDD     I     R    NI total #>    <chr>         <chr> <int> <int> <int> <int> <int> <int> #>  1 Gram-negative AMC     463     0    89   174     0   726 #>  2 Gram-negative AMK     251     0     0     5     0   256 #>  3 Gram-negative AMP     226     0     0   405     0   631 #>  4 Gram-negative AMX     226     0     0   405     0   631 #>  5 Gram-negative AZM       1     0     2   696     0   699 #>  6 Gram-negative CAZ     607     0     0    27     0   634 #>  7 Gram-negative CHL       1     0     0    30     0    31 #>  8 Gram-negative CIP     610     0    11    63     0   684 #>  9 Gram-negative CLI      18     0     1   709     0   728 #> 10 Gram-negative COL     309     0     0    78     0   387 #> # ℹ 70 more rows #> Use 'format()' on this result to get a publishable/printable format.  bug_drug_combinations(example_isolates,   FUN = function(x) {     ifelse(x == as.mo(\"Escherichia coli\"),       \"E. coli\",       \"Others\"     )   } ) #> # A tibble: 80 × 8 #>    mo      ab        S   SDD     I     R    NI total #>    <chr>   <chr> <int> <int> <int> <int> <int> <int> #>  1 E. coli AMC     332     0    74    61     0   467 #>  2 E. coli AMK     171     0     0     0     0   171 #>  3 E. coli AMP     196     0     0   196     0   392 #>  4 E. coli AMX     196     0     0   196     0   392 #>  5 E. coli AZM       0     0     0   467     0   467 #>  6 E. coli CAZ     449     0     0    11     0   460 #>  7 E. coli CHL       0     0     0     0     0     0 #>  8 E. coli CIP     398     0     1    57     0   456 #>  9 E. coli CLI       0     0     0   467     0   467 #> 10 E. coli COL     240     0     0     0     0   240 #> # ℹ 70 more rows #> Use 'format()' on this result to get a publishable/printable format. # }"},{"path":"https://amr-for-r.org/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. data set contains breakpoints humans, 7 different animal groups, ECOFFs. breakpoints currently implemented: clinical microbiology: EUCAST 2011-2025 CLSI 2011-2025; veterinary microbiology: EUCAST 2021-2025 CLSI 2019-2025; ECOFFs (Epidemiological Cut-Values): EUCAST 2020-2025 CLSI 2022-2025. Use .sir() transform MICs disks measurements SIR values.","code":""},{"path":"https://amr-for-r.org/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://amr-for-r.org/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 40 217 observations 14 variables: guideline Name guideline type Breakpoint type, either \"ECOFF\", \"animal\", \"human\" host Host infectious agent. mostly useful veterinary breakpoints either \"ECOFF\", \"aquatic\", \"cats\", \"cattle\", \"dogs\", \"horse\", \"human\", \"poultry\", \"swine\" method Testing method, either \"DISK\" \"MIC\" site Body site breakpoint must applied, e.g. \"Oral\" \"Respiratory\" mo Microbial ID, see .mo() rank_index Taxonomic rank index mo 1 (subspecies/infraspecies) 5 (unknown microorganism) ab Antimicrobial code used package, EARS-Net WHONET, see .ab() ref_tbl Info guideline rule can found disk_dose Dose used disk diffusion method breakpoint_S Lowest MIC value highest number millimetres leads \"S\" breakpoint_R Highest MIC value lowest number millimetres leads \"R\", can NA uti logical value (TRUE/FALSE) indicate whether rule applies urinary tract infection (UTI) is_SDD logical value (TRUE/FALSE) indicate whether intermediate range \"S\" \"R\" interpreted \"SDD\", instead \"\". currently applies 48 breakpoints.","code":""},{"path":[]},{"path":"https://amr-for-r.org/reference/clinical_breakpoints.html","id":"different-types-of-breakpoints","dir":"Reference","previous_headings":"","what":"Different Types of Breakpoints","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"Supported types breakpoints ECOFF, animal, human. ECOFF (Epidemiological cut-) values used antimicrobial susceptibility testing differentiate wild-type non-wild-type strains bacteria fungi. default \"human\", can also set package option AMR_breakpoint_type. Use .sir(..., breakpoint_type = ...) interpret raw data using specific breakpoint type, e.g. .sir(..., breakpoint_type = \"ECOFF\") use ECOFFs.","code":""},{"path":"https://amr-for-r.org/reference/clinical_breakpoints.html","id":"imported-from-whonet","dir":"Reference","previous_headings":"","what":"Imported From WHONET","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"Clinical breakpoints package validated imported WHONET, free desktop Windows application developed supported Collaborating Centre Surveillance Antimicrobial Resistance. can read website. developers WHONET AMR package contact sharing work. highly appreciate great development WHONET software. import reproduction script can found : https://github.com/msberends/AMR/blob/main/data-raw/_reproduction_scripts/reproduction_of_clinical_breakpoints.R.","code":""},{"path":"https://amr-for-r.org/reference/clinical_breakpoints.html","id":"response-from-clsi-and-eucast","dir":"Reference","previous_headings":"","what":"Response From CLSI and EUCAST","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"CEO CLSI chairman EUCAST endorsed work public use AMR package (consequently use breakpoints) June 2023, future development distributing clinical breakpoints discussed meeting CLSI, EUCAST, , developers WHONET software, developers AMR package.","code":""},{"path":"https://amr-for-r.org/reference/clinical_breakpoints.html","id":"download-note","dir":"Reference","previous_headings":"","what":"Download Note","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"AMR package (WHONET software well) contains rather complex internal methods apply guidelines. example, breakpoints must applied certain species groups (case package available microorganisms.groups data set). important considered implementing breakpoints use.","code":""},{"path":"https://amr-for-r.org/reference/clinical_breakpoints.html","id":"download-our-reference-data","dir":"Reference","previous_headings":"","what":"Download Our Reference Data","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"reference data sets AMR package - including information microorganisms, antimicrobials, clinical breakpoints - freely available download multiple formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. maximum compatibility, also provide machine-readable, tab-separated plain text files suitable use software, including laboratory information systems. Visit website direct download links, explore actual files GitHub repository.","code":""},{"path":[]},{"path":"https://amr-for-r.org/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: 40,217 × 14 #>    guideline   type  host  method site    mo            rank_index ab   ref_tbl  #>    <chr>       <chr> <chr> <chr>  <chr>   <mo>               <dbl> <ab> <chr>    #>  1 EUCAST 2025 human human DISK   NA      B_ACHRMB_XYLS          2 MEM  A. xylo… #>  2 EUCAST 2025 human human MIC    NA      B_ACHRMB_XYLS          2 MEM  A. xylo… #>  3 EUCAST 2025 human human DISK   NA      B_ACHRMB_XYLS          2 SXT  A. xylo… #>  4 EUCAST 2025 human human MIC    NA      B_ACHRMB_XYLS          2 SXT  A. xylo… #>  5 EUCAST 2025 human human DISK   NA      B_ACHRMB_XYLS          2 TZP  A. xylo… #>  6 EUCAST 2025 human human MIC    NA      B_ACHRMB_XYLS          2 TZP  A. xylo… #>  7 EUCAST 2025 human human DISK   NA      B_ACNTB                3 AMK  Acineto… #>  8 EUCAST 2025 human human DISK   Uncomp… B_ACNTB                3 AMK  Acineto… #>  9 EUCAST 2025 human human MIC    NA      B_ACNTB                3 AMK  Acineto… #> 10 EUCAST 2025 human human MIC    Uncomp… B_ACNTB                3 AMK  Acineto… #> # ℹ 40,207 more rows #> # ℹ 5 more variables: disk_dose <chr>, breakpoint_S <dbl>, breakpoint_R <dbl>, #> #   uti <lgl>, is_SDD <lgl>"},{"path":"https://amr-for-r.org/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://amr-for-r.org/reference/count.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Count Available Isolates — count","text":"","code":"count_resistant(..., only_all_tested = FALSE)  count_susceptible(..., only_all_tested = FALSE)  count_S(..., only_all_tested = FALSE)  count_SI(..., only_all_tested = FALSE)  count_I(..., only_all_tested = FALSE)  count_IR(..., only_all_tested = FALSE)  count_R(..., only_all_tested = FALSE)  count_all(..., only_all_tested = FALSE)  n_sir(..., only_all_tested = FALSE)  count_df(data, translate_ab = \"name\", language = get_AMR_locale(),   combine_SI = TRUE)"},{"path":"https://amr-for-r.org/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 antimicrobials, see section Combination Therapy . data data.frame containing columns class sir (see .sir()). translate_ab column name antimicrobials data set translate antibiotic abbreviations , using ab_property(). language Language returned text - default current system language (see get_AMR_locale()) can also set package option AMR_locale. Use language = NULL language = \"\" prevent translation. combine_SI logical indicate whether values S, SDD, must merged one, output consists S+SDD+vs. R (susceptible vs. resistant) - default TRUE.","code":""},{"path":"https://amr-for-r.org/reference/count.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Count Available Isolates — count","text":"integer","code":""},{"path":"https://amr-for-r.org/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 antimicrobials 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://amr-for-r.org/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 (https://www.eucast.org/newsiandr). AMR package follows insight; use susceptibility() (equal proportion_SI()) determine antimicrobial susceptibility count_susceptible() (equal count_SI()) count susceptible isolates.","code":""},{"path":"https://amr-for-r.org/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 antimicrobials/variables test . See example two antimicrobials, 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   considered   considered  considered   considered                     susceptible    tested    susceptible    tested --------  --------  -----------  ----------  -----------  ----------  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://amr-for-r.org/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) #> [1] 543 count_SI(example_isolates$AMX) #> [1] 546 count_I(example_isolates$AMX) #> [1] 3 count_IR(example_isolates$AMX) #> [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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/reference/custom_eucast_rules.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"... Rules formula notation, see instructions, Examples.","code":""},{"path":"https://amr-for-r.org/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://amr-for-r.org/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":"https://amr-for-r.org/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,              overwrite = TRUE) #>                      mo TZP ampi cipro #> 1      Escherichia coli   R    R     S #> 2 Klebsiella pneumoniae   R    R     S"},{"path":"https://amr-for-r.org/reference/custom_eucast_rules.html","id":"using-taxonomic-properties-in-rules","dir":"Reference","previous_headings":"","what":"Using taxonomic properties in rules","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"one exception columns used rules: column names microorganisms data set can also used, exist data set. column names : \"mo\", \"fullname\", \"status\", \"kingdom\", \"phylum\", \"class\", \"order\", \"family\", \"genus\", \"species\", \"subspecies\", \"rank\", \"ref\", \"oxygen_tolerance\", \"source\", \"lpsn\", \"lpsn_parent\", \"lpsn_renamed_to\", \"mycobank\", \"mycobank_parent\", \"mycobank_renamed_to\", \"gbif\", \"gbif_parent\", \"gbif_renamed_to\", \"prevalence\", \"snomed\". Thus, next example work well, despite fact df data set contain column genus:","code":"y <- custom_eucast_rules(   TZP == \"S\" & genus == \"Klebsiella\" ~ aminopenicillins == \"S\",   TZP == \"R\" & genus == \"Klebsiella\" ~ aminopenicillins == \"R\" )  eucast_rules(df,              rules = \"custom\",              custom_rules = y,              info = FALSE,              overwrite = TRUE) #>                      mo TZP ampi cipro #> 1      Escherichia coli   R    S     S #> 2 Klebsiella pneumoniae   R    R     S"},{"path":"https://amr-for-r.org/reference/custom_eucast_rules.html","id":"sharing-rules-among-multiple-users","dir":"Reference","previous_headings":"","what":"Sharing rules among multiple users","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"rules set (y object case) exported shared file location using saveRDS() collaborate multiple users. custom rules set imported using readRDS().","code":""},{"path":"https://amr-for-r.org/reference/custom_eucast_rules.html","id":"usage-of-multiple-antimicrobials-and-antimicrobial-group-names","dir":"Reference","previous_headings":"","what":"Usage of multiple antimicrobials and antimicrobial group names","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"can define antimicrobial groups instead single antimicrobials rule consequence, part tilde (~). examples , antimicrobial group aminopenicillins includes ampicillin amoxicillin. Rules can also applied multiple antimicrobials antimicrobial groups simultaneously. Use c() function combine multiple antimicrobials. instance, following example sets aminopenicillins ureidopenicillins \"R\" column TZP (piperacillin/tazobactam) \"R\":   38 antimicrobial groups allowed rules (case-insensitive) can used combination: aminoglycosides(amikacin, amikacin/fosfomycin, apramycin, arbekacin, astromicin, bekanamycin, dibekacin, framycetin, gentamicin, gentamicin-high, habekacin, hygromycin, isepamicin, kanamycin, kanamycin-high, kanamycin/cephalexin, micronomicin, neomycin, netilmicin, pentisomicin, plazomicin, propikacin, ribostamycin, sisomicin, streptoduocin, streptomycin, streptomycin-high, tobramycin, tobramycin-high) aminopenicillins(amoxicillin, amoxicillin/clavulanic acid, ampicillin) antifungals(amorolfine, amphotericin B, amphotericin B-high, anidulafungin, butoconazole, caspofungin, ciclopirox, clotrimazole, econazole, fluconazole, flucytosine, fosfluconazole, griseofulvin, hachimycin, ibrexafungerp, isavuconazole, isoconazole, itraconazole, ketoconazole, manogepix, micafungin, miconazole, nystatin, oteseconazole, pimaricin, posaconazole, rezafungin, ribociclib, sulconazole, terbinafine, terconazole, voriconazole) antimycobacterials(4-aminosalicylic acid, calcium aminosalicylate, capreomycin, clofazimine, delamanid, enviomycin, ethambutol, ethambutol/isoniazid, ethionamide, isoniazid, isoniazid/sulfamethoxazole/trimethoprim/pyridoxine, morinamide, p-aminosalicylic acid, pretomanid, protionamide, pyrazinamide, rifabutin, rifampicin, rifampicin/ethambutol/isoniazid, rifampicin/isoniazid, rifampicin/pyrazinamide/ethambutol/isoniazid, rifampicin/pyrazinamide/isoniazid, rifamycin, rifapentine, sodium aminosalicylate, streptomycin/isoniazid, terizidone, thioacetazone, thioacetazone/isoniazid, tiocarlide, viomycin) betalactamase_inhibitors(amoxicillin/clavulanic acid, amoxicillin/sulbactam, ampicillin/sulbactam, avibactam, aztreonam/avibactam, aztreonam/nacubactam, cefepime/enmetazobactam, cefepime/nacubactam, cefepime/taniborbactam, cefepime/tazobactam, cefepime/zidebactam, cefoperazone/sulbactam, cefotaxime/sulbactam, ceftaroline/avibactam, ceftazidime/avibactam, ceftolozane/tazobactam, imipenem/relebactam, meropenem/nacubactam, meropenem/vaborbactam, mezlocillin/sulbactam, nacubactam, penicillin/sulbactam, piperacillin/sulbactam, piperacillin/tazobactam, sulbactam, sultamicillin, taniborbactam, tazobactam, ticarcillin/clavulanic acid, zidebactam) betalactams(amoxicillin, amoxicillin/clavulanic acid, amoxicillin/sulbactam, ampicillin, ampicillin/sulbactam, apalcillin, aspoxicillin, azidocillin, azlocillin, aztreonam, aztreonam/avibactam, aztreonam/nacubactam, bacampicillin, benzathine benzylpenicillin, benzathine phenoxymethylpenicillin, benzylpenicillin, benzylpenicillin screening test, biapenem, carbenicillin, carindacillin, carumonam, cefacetrile, cefaclor, cefadroxil, cefalexin, cefaloridine, cefalotin, cefamandole, cefapirin, cefatrizine, cefazedone, cefazolin, cefcapene, cefcapene pivoxil, cefdinir, cefditoren, cefditoren pivoxil, cefepime, cefepime/amikacin, cefepime/clavulanic acid, cefepime/enmetazobactam, cefepime/nacubactam, cefepime/taniborbactam, cefepime/tazobactam, cefepime/zidebactam, cefetamet, cefetamet pivoxil, cefetecol, cefetrizole, cefiderocol, cefixime, cefmenoxime, cefmetazole, cefodizime, cefonicid, cefoperazone, cefoperazone/sulbactam, ceforanide, cefoselis, cefotaxime, cefotaxime screening test, cefotaxime/clavulanic acid, cefotaxime/sulbactam, cefotetan, cefotiam, cefotiam hexetil, cefovecin, cefoxitin, cefoxitin screening test, 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, nafcillin, oxacillin, oxacillin screening test, panipenem, penamecillin, penicillin/novobiocin, penicillin/sulbactam, pheneticillin, phenoxymethylpenicillin, piperacillin, piperacillin/sulbactam, piperacillin/tazobactam, piridicillin, pivampicillin, pivmecillinam, procaine benzylpenicillin, propicillin, razupenem, ritipenem, ritipenem acoxil, sarmoxicillin, sulbenicillin, sultamicillin, talampicillin, taniborbactam, tebipenem, temocillin, ticarcillin, ticarcillin/clavulanic acid, tigemonam) betalactams_with_inhibitor(amoxicillin/clavulanic acid, amoxicillin/sulbactam, ampicillin/sulbactam, aztreonam/avibactam, aztreonam/nacubactam, cefepime/amikacin, cefepime/clavulanic acid, cefepime/enmetazobactam, cefepime/nacubactam, cefepime/taniborbactam, cefepime/tazobactam, cefepime/zidebactam, cefoperazone/sulbactam, cefotaxime/clavulanic acid, cefotaxime/sulbactam, cefpodoxime/clavulanic acid, ceftaroline/avibactam, ceftazidime/avibactam, ceftazidime/clavulanic acid, ceftolozane/tazobactam, ceftriaxone/beta-lactamase inhibitor, imipenem/relebactam, meropenem/nacubactam, meropenem/vaborbactam, mezlocillin/sulbactam, penicillin/novobiocin, penicillin/sulbactam, piperacillin/sulbactam, piperacillin/tazobactam, ticarcillin/clavulanic acid) carbapenems(biapenem, doripenem, ertapenem, imipenem, imipenem/EDTA, imipenem/relebactam, meropenem, meropenem/nacubactam, meropenem/vaborbactam, panipenem, razupenem, ritipenem, ritipenem acoxil, taniborbactam, tebipenem) cephalosporins(cefacetrile, cefaclor, cefadroxil, cefalexin, cefaloridine, cefalotin, cefamandole, cefapirin, cefatrizine, cefazedone, cefazolin, cefcapene, cefcapene pivoxil, cefdinir, cefditoren, cefditoren pivoxil, cefepime, cefepime/amikacin, cefepime/clavulanic acid, cefepime/enmetazobactam, cefepime/nacubactam, cefepime/taniborbactam, cefepime/tazobactam, cefepime/zidebactam, cefetamet, cefetamet pivoxil, cefetecol, cefetrizole, cefiderocol, cefixime, cefmenoxime, cefmetazole, cefodizime, cefonicid, cefoperazone, cefoperazone/sulbactam, ceforanide, cefoselis, cefotaxime, cefotaxime screening test, cefotaxime/clavulanic acid, cefotaxime/sulbactam, cefotetan, cefotiam, cefotiam hexetil, cefovecin, cefoxitin, cefoxitin screening test, 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 test, 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 screening test, 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/amikacin, cefepime/clavulanic acid, cefepime/enmetazobactam, cefepime/nacubactam, cefepime/taniborbactam, cefepime/tazobactam, cefepime/zidebactam, 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/amikacin, cefepime/clavulanic acid, cefepime/enmetazobactam, cefepime/nacubactam, cefepime/taniborbactam, cefepime/tazobactam, cefepime/zidebactam, cefetamet, cefetamet pivoxil, cefetecol, cefetrizole, cefiderocol, cefixime, cefmenoxime, cefmetazole, cefodizime, cefonicid, cefoperazone, cefoperazone/sulbactam, ceforanide, cefoselis, cefotaxime, cefotaxime screening test, cefotaxime/clavulanic acid, cefotaxime/sulbactam, cefotetan, cefotiam, cefotiam hexetil, cefovecin, cefoxitin, cefoxitin screening test, 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, ciprofloxacin/metronidazole, ciprofloxacin/ornidazole, ciprofloxacin/tinidazole, clinafloxacin, danofloxacin, delafloxacin, difloxacin, enoxacin, enrofloxacin, finafloxacin, fleroxacin, garenoxacin, gatifloxacin, gemifloxacin, grepafloxacin, lascufloxacin, levofloxacin, levofloxacin/ornidazole, levonadifloxacin, lomefloxacin, marbofloxacin, metioxate, miloxacin, moxifloxacin, nadifloxacin, nemonoxacin, nifuroquine, nitroxoline, norfloxacin, norfloxacin screening test, norfloxacin/metronidazole, norfloxacin/tinidazole, ofloxacin, ofloxacin/ornidazole, orbifloxacin, pazufloxacin, pefloxacin, pefloxacin screening test, pradofloxacin, premafloxacin, prulifloxacin, rufloxacin, sarafloxacin, sitafloxacin, sparfloxacin, temafloxacin, tilbroquinol, tioxacin, tosufloxacin, trovafloxacin) glycopeptides(avoparcin, bleomycin, dalbavancin, norvancomycin, oritavancin, ramoplanin, teicoplanin, teicoplanin-macromethod, telavancin, vancomycin, vancomycin-macromethod) glycopeptides_except_lipo(avoparcin, bleomycin, norvancomycin, ramoplanin, teicoplanin, teicoplanin-macromethod, vancomycin, vancomycin-macromethod) isoxazolylpenicillins(cloxacillin, dicloxacillin, flucloxacillin, meticillin, oxacillin, oxacillin screening test) lincosamides(clindamycin, clindamycin inducible screening test, lincomycin, pirlimycin) lipoglycopeptides(dalbavancin, oritavancin, telavancin) macrolides(acetylmidecamycin, acetylspiramycin, azithromycin, clarithromycin, clindamycin inducible screening test, dirithromycin, erythromycin, flurithromycin, gamithromycin, josamycin, kitasamycin, meleumycin, midecamycin, miocamycin, nafithromycin, oleandomycin, pirlimycin, primycin, rokitamycin, roxithromycin, solithromycin, spiramycin, telithromycin, tildipirosin, tilmicosin, troleandomycin, tulathromycin, tylosin, tylvalosin) monobactams(aztreonam, aztreonam/avibactam, aztreonam/nacubactam, carumonam, tigemonam) nitrofurans(furazidin, furazolidone, nifurtoinol, nitrofurantoin, nitrofurazone) oxazolidinones(cadazolid, cycloserine, linezolid, tedizolid, thiacetazone) penicillins(amoxicillin, amoxicillin/clavulanic acid, amoxicillin/sulbactam, ampicillin, ampicillin/sulbactam, apalcillin, aspoxicillin, azidocillin, azlocillin, bacampicillin, benzathine benzylpenicillin, benzathine phenoxymethylpenicillin, benzylpenicillin, benzylpenicillin screening test, carbenicillin, carindacillin, ciclacillin, clometocillin, cloxacillin, dicloxacillin, epicillin, flucloxacillin, hetacillin, lenampicillin, mecillinam, metampicillin, meticillin, mezlocillin, mezlocillin/sulbactam, nafcillin, oxacillin, oxacillin screening test, penamecillin, penicillin/novobiocin, penicillin/sulbactam, pheneticillin, phenoxymethylpenicillin, piperacillin, piperacillin/sulbactam, piperacillin/tazobactam, piridicillin, pivampicillin, pivmecillinam, procaine benzylpenicillin, propicillin, sarmoxicillin, sulbenicillin, sultamicillin, talampicillin, temocillin, ticarcillin, ticarcillin/clavulanic acid) phenicols(chloramphenicol, florfenicol, thiamphenicol) phosphonics(amikacin/fosfomycin fosfomycin) polymyxins(colistin, polymyxin B, polymyxin B/polysorbate 80) quinolones(besifloxacin, cinoxacin, ciprofloxacin, ciprofloxacin/metronidazole, ciprofloxacin/ornidazole, ciprofloxacin/tinidazole, clinafloxacin, danofloxacin, delafloxacin, difloxacin, enoxacin, enrofloxacin, finafloxacin, fleroxacin, flumequine, garenoxacin, gatifloxacin, gemifloxacin, grepafloxacin, lascufloxacin, levofloxacin, levofloxacin/ornidazole, levonadifloxacin, lomefloxacin, marbofloxacin, metioxate, miloxacin, moxifloxacin, nadifloxacin, nalidixic acid, nalidixic acid screening test, nemonoxacin, nifuroquine, nitroxoline, norfloxacin, norfloxacin screening test, norfloxacin/metronidazole, norfloxacin/tinidazole, ofloxacin, ofloxacin/ornidazole, orbifloxacin, oxolinic acid, ozenoxacin, pazufloxacin, pefloxacin, pefloxacin screening test, pipemidic acid, piromidic acid, pradofloxacin, premafloxacin, prulifloxacin, rosoxacin, rufloxacin, sarafloxacin, sitafloxacin, sparfloxacin, temafloxacin, tilbroquinol, tioxacin, tosufloxacin, trovafloxacin) rifamycins(rifabutin, rifampicin, rifampicin/ethambutol/isoniazid, rifampicin/isoniazid, rifampicin/pyrazinamide/ethambutol/isoniazid, rifampicin/pyrazinamide/isoniazid, rifamycin, rifapentine) spiropyrimidinetriones(zoliflodacin) streptogramins(pristinamycin quinupristin/dalfopristin) sulfonamides(brodimoprim, sulfadiazine, sulfadiazine/tetroxoprim, sulfadimethoxine, sulfadimidine, sulfafurazole, sulfaisodimidine, sulfalene, sulfamazone, sulfamerazine, sulfamethizole, sulfamethoxazole, sulfamethoxypyridazine, sulfametomidine, sulfametoxydiazine, sulfamoxole, sulfanilamide, sulfaperin, sulfaphenazole, sulfapyridine, sulfathiazole, sulfathiourea) tetracyclines(cetocycline, chlortetracycline, clomocycline, demeclocycline, doxycycline, eravacycline, lymecycline, metacycline, minocycline, omadacycline, oxytetracycline, penimepicycline, rolitetracycline, sarecycline, tetracycline, tetracycline screening test, tigecycline) tetracyclines_except_tgc(cetocycline, chlortetracycline, clomocycline, demeclocycline, doxycycline, eravacycline, lymecycline, metacycline, minocycline, omadacycline, oxytetracycline, penimepicycline, rolitetracycline, sarecycline, tetracycline, tetracycline screening test) trimethoprims(brodimoprim, sulfadiazine, sulfadiazine/tetroxoprim, sulfadiazine/trimethoprim, sulfadimethoxine, sulfadimidine, sulfadimidine/trimethoprim, sulfafurazole, sulfaisodimidine, sulfalene, sulfamazone, sulfamerazine, sulfamerazine/trimethoprim, sulfamethizole, sulfamethoxazole, sulfamethoxypyridazine, sulfametomidine, sulfametoxydiazine, sulfametrole/trimethoprim, sulfamoxole, sulfamoxole/trimethoprim, sulfanilamide, sulfaperin, sulfaphenazole, sulfapyridine, sulfathiazole, sulfathiourea, trimethoprim, trimethoprim/sulfamethoxazole) ureidopenicillins(azlocillin, mezlocillin, piperacillin, piperacillin/tazobactam)","code":"x <- custom_eucast_rules(TZP == \"R\" ~ c(aminopenicillins, ureidopenicillins) == \"R\") x #> A set of custom EUCAST rules: #> #>   1. If TZP is \"R\" then set to \"R\": #>      amoxicillin (AMX), ampicillin (AMP), azlocillin (AZL), mezlocillin (MEZ), piperacillin (PIP), piperacillin/tazobactam (TZP)"},{"path":"https://amr-for-r.org/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), amoxicillin/clavulanic acid (AMC), ampicillin (AMP) #>  #>   2. If AMC is  I  and genus is \"Klebsiella\" then set to  I : #>      amoxicillin (AMX), amoxicillin/clavulanic acid (AMC), 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,   overwrite = TRUE,   verbose = TRUE ) #> # A tibble: 8 × 9 #>     row col   mo_fullname     old   new   rule  rule_group rule_name rule_source #>   <int> <chr> <chr>           <ord> <chr> <chr> <chr>      <chr>     <chr>       #> 1    33 AMP   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 2    33 AMX   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 3    34 AMP   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 4    34 AMX   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 5   531 AMP   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 6   531 AMX   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 7  1485 AMP   Klebsiella oxy… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 8  1485 AMX   Klebsiella oxy… R     I     \"rep… Custom EU… Custom E… Object 'x'…  # combine rule sets x2 <- c(   x,   custom_eucast_rules(TZP == \"R\" ~ carbapenems == \"R\") ) x2 #> A set of custom EUCAST rules: #>  #>   1. If AMC is  R  and genus is \"Klebsiella\" then set to  R : #>      amoxicillin (AMX), amoxicillin/clavulanic acid (AMC), ampicillin (AMP) #>  #>   2. If AMC is  I  and genus is \"Klebsiella\" then set to  I : #>      amoxicillin (AMX), amoxicillin/clavulanic acid (AMC), 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), taniborbactam #>      (TAN), tebipenem (TBP)"},{"path":"https://amr-for-r.org/reference/custom_mdro_guideline.html","id":null,"dir":"Reference","previous_headings":"","what":"Define Custom MDRO Guideline — custom_mdro_guideline","title":"Define Custom MDRO Guideline — custom_mdro_guideline","text":"Define custom MDRO guideline organisation specific analysis use output function mdro().","code":""},{"path":"https://amr-for-r.org/reference/custom_mdro_guideline.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Define Custom MDRO Guideline — custom_mdro_guideline","text":"","code":"custom_mdro_guideline(..., as_factor = TRUE)  # S3 method for class 'custom_mdro_guideline' c(x, ..., as_factor = NULL)"},{"path":"https://amr-for-r.org/reference/custom_mdro_guideline.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Define Custom MDRO Guideline — custom_mdro_guideline","text":"... Guideline rules formula notation, see instructions, Examples. as_factor logical indicate whether returned value ordered factor (TRUE, default), otherwise character vector. combining rules sets (using c()) value inherited first set default. x Existing custom MDRO rules","code":""},{"path":"https://amr-for-r.org/reference/custom_mdro_guideline.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Define Custom MDRO Guideline — custom_mdro_guideline","text":"list containing custom rules","code":""},{"path":"https://amr-for-r.org/reference/custom_mdro_guideline.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Define Custom MDRO Guideline — custom_mdro_guideline","text":"Using custom MDRO guideline importance custom rules determine MDROs hospital, e.g., rules dependent ward, state contact isolation variables data.","code":""},{"path":"https://amr-for-r.org/reference/custom_mdro_guideline.html","id":"basics","dir":"Reference","previous_headings":"","what":"Basics","title":"Define Custom MDRO Guideline — custom_mdro_guideline","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:   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():","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) #> Determining MDROs based on custom rules, resulting in factor levels: Negative < Elderly Type A < Elderly Type B. #> - Custom MDRO rule 1: CIP == \"R\" & age > 60 (198 rows matched) #> - Custom MDRO rule 2: ERY == \"R\" & age > 60 (732 rows matched) #> => Found 930 custom defined MDROs out of 2000 isolates (46.5%)  table(x) #> 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\"))) #> Determining MDROs based on custom rules, resulting in factor levels: Negative < Elderly Type A < Elderly Type B < Elderly Type C. #> - Custom MDRO rule 1: CIP == \"R\" & age > 60 (198 rows matched) #> - Custom MDRO rule 2: ERY == \"R\" & age > 60 (732 rows matched) #> - Custom MDRO rule 3: ERY == \"R\" & age > 50 (109 rows matched) #> => Found 1039 custom defined MDROs out of 2000 isolates (52.0%)  table(x) #> x #>       Negative  Elderly Type A  Elderly Type B  Elderly Type C #>            961             198             732             109"},{"path":"https://amr-for-r.org/reference/custom_mdro_guideline.html","id":"sharing-rules-among-multiple-users","dir":"Reference","previous_headings":"","what":"Sharing rules among multiple users","title":"Define Custom MDRO Guideline — custom_mdro_guideline","text":"rules set (custom object case) exported shared file location using saveRDS() collaborate multiple users. custom rules set imported using readRDS().","code":""},{"path":"https://amr-for-r.org/reference/custom_mdro_guideline.html","id":"usage-of-multiple-antimicrobials-and-antimicrobial-group-names","dir":"Reference","previous_headings":"","what":"Usage of multiple antimicrobials and antimicrobial group names","title":"Define Custom MDRO Guideline — custom_mdro_guideline","text":"can define antimicrobial groups instead single antimicrobials rule , part tilde (~). Use () () specify scope antimicrobial group:   38 antimicrobial selectors supported use rules: aminoglycosides() can select:  amikacin, amikacin/fosfomycin, apramycin, arbekacin, astromicin, bekanamycin, dibekacin, framycetin, gentamicin, gentamicin-high, habekacin, hygromycin, isepamicin, kanamycin, kanamycin-high, kanamycin/cephalexin, micronomicin, neomycin, netilmicin, pentisomicin, plazomicin, propikacin, ribostamycin, sisomicin, streptoduocin, streptomycin, streptomycin-high, tobramycin, tobramycin-high aminopenicillins() can select:  amoxicillin, amoxicillin/clavulanic acid, ampicillin antifungals() can select:  amorolfine, amphotericin B, amphotericin B-high, anidulafungin, butoconazole, caspofungin, ciclopirox, clotrimazole, econazole, fluconazole, flucytosine, fosfluconazole, griseofulvin, hachimycin, ibrexafungerp, isavuconazole, isoconazole, itraconazole, ketoconazole, manogepix, micafungin, miconazole, nystatin, oteseconazole, pimaricin, posaconazole, rezafungin, ribociclib, sulconazole, terbinafine, terconazole, voriconazole antimycobacterials() can select:  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, sodium aminosalicylate, streptomycin/isoniazid, terizidone, thioacetazone, thioacetazone/isoniazid, tiocarlide, viomycin betalactams() can select:  amoxicillin, amoxicillin/clavulanic acid, amoxicillin/sulbactam, ampicillin, ampicillin/sulbactam, apalcillin, aspoxicillin, azidocillin, azlocillin, aztreonam, aztreonam/avibactam, aztreonam/nacubactam, bacampicillin, benzathine benzylpenicillin, benzathine phenoxymethylpenicillin, benzylpenicillin, benzylpenicillin screening test, biapenem, carbenicillin, carindacillin, carumonam, cefacetrile, cefaclor, cefadroxil, cefalexin, cefaloridine, cefalotin, cefamandole, cefapirin, cefatrizine, cefazedone, cefazolin, cefcapene, cefcapene pivoxil, cefdinir, cefditoren, cefditoren pivoxil, cefepime, cefepime/amikacin, cefepime/clavulanic acid, cefepime/enmetazobactam, cefepime/nacubactam, cefepime/taniborbactam, cefepime/tazobactam, cefepime/zidebactam, cefetamet, cefetamet pivoxil, cefetecol, cefetrizole, cefiderocol, cefixime, cefmenoxime, cefmetazole, cefodizime, cefonicid, cefoperazone, cefoperazone/sulbactam, ceforanide, cefoselis, cefotaxime, cefotaxime screening test, cefotaxime/clavulanic acid, cefotaxime/sulbactam, cefotetan, cefotiam, cefotiam hexetil, cefovecin, cefoxitin, cefoxitin screening test, 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, nafcillin, oxacillin, oxacillin screening test, panipenem, penamecillin, penicillin/novobiocin, penicillin/sulbactam, pheneticillin, phenoxymethylpenicillin, piperacillin, piperacillin/sulbactam, piperacillin/tazobactam, piridicillin, pivampicillin, pivmecillinam, procaine benzylpenicillin, propicillin, razupenem, ritipenem, ritipenem acoxil, sarmoxicillin, sulbenicillin, sultamicillin, talampicillin, taniborbactam, tebipenem, temocillin, ticarcillin, ticarcillin/clavulanic acid, tigemonam betalactams_with_inhibitor() can select:  amoxicillin/clavulanic acid, amoxicillin/sulbactam, ampicillin/sulbactam, aztreonam/avibactam, aztreonam/nacubactam, cefepime/amikacin, cefepime/clavulanic acid, cefepime/enmetazobactam, cefepime/nacubactam, cefepime/taniborbactam, cefepime/tazobactam, cefepime/zidebactam, cefoperazone/sulbactam, cefotaxime/clavulanic acid, cefotaxime/sulbactam, cefpodoxime/clavulanic acid, ceftaroline/avibactam, ceftazidime/avibactam, ceftazidime/clavulanic acid, ceftolozane/tazobactam, ceftriaxone/beta-lactamase inhibitor, imipenem/relebactam, meropenem/nacubactam, meropenem/vaborbactam, mezlocillin/sulbactam, penicillin/novobiocin, penicillin/sulbactam, piperacillin/sulbactam, piperacillin/tazobactam, ticarcillin/clavulanic acid carbapenems() can select:  biapenem, doripenem, ertapenem, imipenem, imipenem/EDTA, imipenem/relebactam, meropenem, meropenem/nacubactam, meropenem/vaborbactam, panipenem, razupenem, ritipenem, ritipenem acoxil, taniborbactam, tebipenem cephalosporins() can select:  cefacetrile, cefaclor, cefadroxil, cefalexin, cefaloridine, cefalotin, cefamandole, cefapirin, cefatrizine, cefazedone, cefazolin, cefcapene, cefcapene pivoxil, cefdinir, cefditoren, cefditoren pivoxil, cefepime, cefepime/amikacin, cefepime/clavulanic acid, cefepime/enmetazobactam, cefepime/nacubactam, cefepime/taniborbactam, cefepime/tazobactam, cefepime/zidebactam, cefetamet, cefetamet pivoxil, cefetecol, cefetrizole, cefiderocol, cefixime, cefmenoxime, cefmetazole, cefodizime, cefonicid, cefoperazone, cefoperazone/sulbactam, ceforanide, cefoselis, cefotaxime, cefotaxime screening test, cefotaxime/clavulanic acid, cefotaxime/sulbactam, cefotetan, cefotiam, cefotiam hexetil, cefovecin, cefoxitin, cefoxitin screening test, 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() can select:  cefacetrile, cefadroxil, cefalexin, cefaloridine, cefalotin, cefapirin, cefatrizine, cefazedone, cefazolin, cefroxadine, ceftezole, cephradine cephalosporins_2nd() can select:  cefaclor, cefamandole, cefmetazole, cefonicid, ceforanide, cefotetan, cefotiam, cefoxitin, cefoxitin screening test, cefprozil, cefuroxime, cefuroxime axetil, loracarbef cephalosporins_3rd() can select:  cefcapene, cefcapene pivoxil, cefdinir, cefditoren, cefditoren pivoxil, cefetamet, cefetamet pivoxil, cefixime, cefmenoxime, cefodizime, cefoperazone, cefoperazone/sulbactam, cefotaxime, cefotaxime screening test, 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() can select:  cefepime, cefepime/amikacin, cefepime/clavulanic acid, cefepime/enmetazobactam, cefepime/nacubactam, cefepime/taniborbactam, cefepime/tazobactam, cefepime/zidebactam, cefetecol, cefoselis, cefozopran, cefpirome, cefquinome cephalosporins_5th() can select:  ceftaroline, ceftaroline/avibactam, ceftobiprole, ceftobiprole medocaril, ceftolozane/tazobactam fluoroquinolones() can select:  besifloxacin, ciprofloxacin, ciprofloxacin/metronidazole, ciprofloxacin/ornidazole, ciprofloxacin/tinidazole, clinafloxacin, danofloxacin, delafloxacin, difloxacin, enoxacin, enrofloxacin, finafloxacin, fleroxacin, garenoxacin, gatifloxacin, gemifloxacin, grepafloxacin, lascufloxacin, levofloxacin, levofloxacin/ornidazole, levonadifloxacin, lomefloxacin, marbofloxacin, metioxate, miloxacin, moxifloxacin, nadifloxacin, nemonoxacin, nifuroquine, nitroxoline, norfloxacin, norfloxacin screening test, norfloxacin/metronidazole, norfloxacin/tinidazole, ofloxacin, ofloxacin/ornidazole, orbifloxacin, pazufloxacin, pefloxacin, pefloxacin screening test, pradofloxacin, premafloxacin, prulifloxacin, rufloxacin, sarafloxacin, sitafloxacin, sparfloxacin, temafloxacin, tilbroquinol, tioxacin, tosufloxacin, trovafloxacin glycopeptides() can select:  avoparcin, bleomycin, dalbavancin, norvancomycin, oritavancin, ramoplanin, teicoplanin, teicoplanin-macromethod, telavancin, vancomycin, vancomycin-macromethod isoxazolylpenicillins() can select:  cloxacillin, dicloxacillin, flucloxacillin, meticillin, oxacillin, oxacillin screening test lincosamides() can select:  clindamycin, clindamycin inducible screening test, lincomycin, pirlimycin lipoglycopeptides() can select:  dalbavancin, oritavancin, telavancin macrolides() can select:  acetylmidecamycin, acetylspiramycin, azithromycin, clarithromycin, clindamycin inducible screening test, dirithromycin, erythromycin, flurithromycin, gamithromycin, josamycin, kitasamycin, meleumycin, midecamycin, miocamycin, nafithromycin, oleandomycin, pirlimycin, primycin, rokitamycin, roxithromycin, solithromycin, spiramycin, telithromycin, tildipirosin, tilmicosin, troleandomycin, tulathromycin, tylosin, tylvalosin monobactams() can select:  aztreonam, aztreonam/avibactam, aztreonam/nacubactam, carumonam, tigemonam nitrofurans() can select:  furazidin, furazolidone, nifurtoinol, nitrofurantoin, nitrofurazone oxazolidinones() can select:  cadazolid, cycloserine, linezolid, tedizolid, thiacetazone penicillins() can select:  amoxicillin, amoxicillin/clavulanic acid, amoxicillin/sulbactam, ampicillin, ampicillin/sulbactam, apalcillin, aspoxicillin, azidocillin, azlocillin, bacampicillin, benzathine benzylpenicillin, benzathine phenoxymethylpenicillin, benzylpenicillin, benzylpenicillin screening test, carbenicillin, carindacillin, ciclacillin, clometocillin, cloxacillin, dicloxacillin, epicillin, flucloxacillin, hetacillin, lenampicillin, mecillinam, metampicillin, meticillin, mezlocillin, mezlocillin/sulbactam, nafcillin, oxacillin, oxacillin screening test, penamecillin, penicillin/novobiocin, penicillin/sulbactam, pheneticillin, phenoxymethylpenicillin, piperacillin, piperacillin/sulbactam, piperacillin/tazobactam, piridicillin, pivampicillin, pivmecillinam, procaine benzylpenicillin, propicillin, sarmoxicillin, sulbenicillin, sultamicillin, talampicillin, temocillin, ticarcillin, ticarcillin/clavulanic acid phenicols() can select:  chloramphenicol, florfenicol, thiamphenicol phosphonics() can select:  amikacin/fosfomycin fosfomycin polymyxins() can select:  colistin, polymyxin B, polymyxin B/polysorbate 80 quinolones() can select:  besifloxacin, cinoxacin, ciprofloxacin, ciprofloxacin/metronidazole, ciprofloxacin/ornidazole, ciprofloxacin/tinidazole, clinafloxacin, danofloxacin, delafloxacin, difloxacin, enoxacin, enrofloxacin, finafloxacin, fleroxacin, flumequine, garenoxacin, gatifloxacin, gemifloxacin, grepafloxacin, lascufloxacin, levofloxacin, levofloxacin/ornidazole, levonadifloxacin, lomefloxacin, marbofloxacin, metioxate, miloxacin, moxifloxacin, nadifloxacin, nalidixic acid, nalidixic acid screening test, nemonoxacin, nifuroquine, nitroxoline, norfloxacin, norfloxacin screening test, norfloxacin/metronidazole, norfloxacin/tinidazole, ofloxacin, ofloxacin/ornidazole, orbifloxacin, oxolinic acid, ozenoxacin, pazufloxacin, pefloxacin, pefloxacin screening test, pipemidic acid, piromidic acid, pradofloxacin, premafloxacin, prulifloxacin, rosoxacin, rufloxacin, sarafloxacin, sitafloxacin, sparfloxacin, temafloxacin, tilbroquinol, tioxacin, tosufloxacin, trovafloxacin rifamycins() can select:  rifabutin, rifampicin, rifampicin/ethambutol/isoniazid, rifampicin/isoniazid, rifampicin/pyrazinamide/ethambutol/isoniazid, rifampicin/pyrazinamide/isoniazid, rifamycin, rifapentine spiropyrimidinetriones() can select:  zoliflodacin streptogramins() can select:  pristinamycin quinupristin/dalfopristin sulfonamides() can select:  brodimoprim, sulfadiazine, sulfadiazine/tetroxoprim, sulfadimethoxine, sulfadimidine, sulfafurazole, sulfaisodimidine, sulfalene, sulfamazone, sulfamerazine, sulfamethizole, sulfamethoxazole, sulfamethoxypyridazine, sulfametomidine, sulfametoxydiazine, sulfamoxole, sulfanilamide, sulfaperin, sulfaphenazole, sulfapyridine, sulfathiazole, sulfathiourea tetracyclines() can select:  cetocycline, chlortetracycline, clomocycline, demeclocycline, doxycycline, eravacycline, lymecycline, metacycline, minocycline, omadacycline, oxytetracycline, penimepicycline, rolitetracycline, sarecycline, tetracycline, tetracycline screening test, tigecycline trimethoprims() can select:  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() can select:  azlocillin, mezlocillin, piperacillin, piperacillin/tazobactam","code":"custom_mdro_guideline(   AMX == \"R\"                       ~ \"My MDRO #1\",   any(cephalosporins_2nd() == \"R\") ~ \"My MDRO #2\",   all(glycopeptides() == \"R\")      ~ \"My MDRO #3\" )"},{"path":"https://amr-for-r.org/reference/custom_mdro_guideline.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Define Custom MDRO Guideline — custom_mdro_guideline","text":"","code":"x <- custom_mdro_guideline(   CIP == \"R\" & age > 60 ~ \"Elderly Type A\",   ERY == \"R\" & age > 60 ~ \"Elderly Type B\" ) x #> 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  # run the custom rule set (verbose = TRUE will return a logbook instead of the data set): out <- mdro(example_isolates, guideline = x) table(out) #> out #>       Negative Elderly Type A Elderly Type B  #>           1070            198            732   out <- mdro(example_isolates, guideline = x, verbose = TRUE) head(out) #>    row_number microorganism           MDRO #> V1          1          <NA> Elderly Type B #> V2          2          <NA> Elderly Type B #> V3          3          <NA>       Negative #> V4          4          <NA>       Negative #> V5          5          <NA>       Negative #> V6          6          <NA>       Negative #>                                   reason #> V1 matched rule 2: ERY == \"R\" & age > 60 #> V2 matched rule 2: ERY == \"R\" & age > 60 #> V3                      no rules matched #> V4                      no rules matched #> V5                      no rules matched #> V6                      no rules matched #>                               all_nonsusceptible_columns        guideline #> V1 PEN, TMP, SXT, LNZ, VAN, TEC, TCY, ERY, CLI, AZM, RIF Custom guideline #> V2 PEN, TMP, SXT, LNZ, VAN, TEC, TCY, ERY, CLI, AZM, RIF Custom guideline #> V3                     PEN, FLC, CXM, CAZ, ERY, AZM, COL Custom guideline #> V4                     PEN, FLC, CXM, CAZ, ERY, AZM, COL Custom guideline #> V5                PEN, FLC, CXM, CAZ, TMP, ERY, AZM, COL Custom guideline #> V6           PEN, FLC, CXM, CAZ, TMP, ERY, CLI, AZM, COL Custom guideline  # you can create custom guidelines using selectors (see ?antimicrobial_selectors) my_guideline <- custom_mdro_guideline(   AMX == \"R\" ~ \"Custom MDRO 1\",   all(cephalosporins_2nd() == \"R\") ~ \"Custom MDRO 2\" ) my_guideline #> A set of custom MDRO rules: #>   1. If AMX is  R  then: Custom MDRO 1 #>   2. If all of cephalosporins_2nd() is  R  then: Custom MDRO 2 #>   3. Otherwise: Negative #>  #> Unmatched rows will return NA. #> Results will be of class 'factor', with ordered levels: Negative < Custom MDRO 1 < Custom MDRO 2  out <- mdro(example_isolates, guideline = my_guideline) #> ℹ Column 'esbl' is SIR eligible (despite only having empty values), since #>   it seems to be tazobactam (TAZ) #> ℹ Column 'mecC' is SIR eligible (despite only having empty values), since #>   it seems to be mecillinam (MEC) #> ℹ Column 'vanA' is SIR eligible (despite only having empty values), since #>   it seems to be lenampicillin (LEN) #> ℹ Column 'vanB' is SIR eligible (despite only having empty values), since #>   it seems to be metronidazole (MTR) #> ℹ For `cephalosporins_2nd()` using columns 'CXM' (cefuroxime) and 'FOX' #>   (cefoxitin) #> ℹ Assuming a filter on all 2 cephalosporins_2nd. Wrap around `all()` or #>   `any()` to prevent this note. table(out) #> out #>      Negative Custom MDRO 1 Custom MDRO 2  #>          1144           804            52"},{"path":"https://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/reference/dosage.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with Treatment Dosages as Defined by EUCAST — dosage","text":"tibble 759 observations 9 variables: ab Antimicrobial ID used package (AMC), using official EARS-Net (European Antimicrobial Resistance Surveillance Network) codes available name Official name antimicrobial drug used WHONET/EARS-Net type Type dosage, either \"high_dosage\", \"standard_dosage\", \"uncomplicated_uti\" dose Dose, \"2 g\" \"25 mg/kg\" dose_times Number times dose must administered administration Route administration, either \"\", \"im\", \"iv\", \"oral\" notes Additional dosage notes original_txt Original text PDF file EUCAST eucast_version Version number EUCAST Clinical Breakpoints guideline dosages apply, either 15, 14, 13.1, 12, 11","code":""},{"path":"https://amr-for-r.org/reference/dosage.html","id":"download-our-reference-data","dir":"Reference","previous_headings":"","what":"Download Our Reference Data","title":"Data Set with Treatment Dosages as Defined by EUCAST — dosage","text":"reference data sets AMR package - including information microorganisms, antimicrobials, clinical breakpoints - freely available download multiple formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. maximum compatibility, also provide machine-readable, tab-separated plain text files suitable use software, including laboratory information systems. Visit website direct download links, explore actual files GitHub repository.","code":""},{"path":"https://amr-for-r.org/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: 759 × 9 #>    ab   name            type  dose  dose_times administration notes original_txt #>    <ab> <chr>           <chr> <chr>      <int> <chr>          <chr> <chr>        #>  1 AMK  Amikacin        stan… 25-3…          1 iv             \"\"    \"25-30 mg/k… #>  2 AMX  Amoxicillin     high… 2 g            6 iv             \"\"    \"2 g x 6 iv\" #>  3 AMX  Amoxicillin     stan… 1 g            3 iv             \"\"    \"1 g x 3-4 … #>  4 AMX  Amoxicillin     high… 0.75…          3 oral           \"\"    \"0.75-1 g x… #>  5 AMX  Amoxicillin     stan… 0.5 g          3 oral           \"\"    \"0.5 g x 3 … #>  6 AMX  Amoxicillin     unco… 0.5 g          3 oral           \"\"    \"0.5 g x 3 … #>  7 AMC  Amoxicillin/cl… high… 2 g …          3 iv             \"\"    \"(2 g amoxi… #>  8 AMC  Amoxicillin/cl… stan… 1 g …          3 iv             \"\"    \"(1 g amoxi… #>  9 AMC  Amoxicillin/cl… high… 0.87…          3 oral           \"\"    \"(0.875 g a… #> 10 AMC  Amoxicillin/cl… stan… 0.5 …          3 oral           \"\"    \"(0.5 g amo… #> # ℹ 749 more rows #> # ℹ 1 more variable: eucast_version <dbl>"},{"path":"https://amr-for-r.org/reference/esbl_isolates.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with 500 ESBL Isolates — esbl_isolates","title":"Data Set with 500 ESBL Isolates — esbl_isolates","text":"data set containing 500 microbial isolates MIC values common antibiotics binary esbl column extended-spectrum beta-lactamase (ESBL) production. data set contains randomised fictitious data reflects reality can used practise AMR-related machine learning, e.g., classification modelling tidymodels.","code":""},{"path":"https://amr-for-r.org/reference/esbl_isolates.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with 500 ESBL Isolates — esbl_isolates","text":"","code":"esbl_isolates"},{"path":"https://amr-for-r.org/reference/esbl_isolates.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with 500 ESBL Isolates — esbl_isolates","text":"tibble 500 observations 19 variables: esbl Logical indicator isolate ESBL-producing genus Genus microorganism AMC:COL MIC values 17 antimicrobial drugs, transformed class mic (see .mic())","code":""},{"path":"https://amr-for-r.org/reference/esbl_isolates.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with 500 ESBL Isolates — esbl_isolates","text":"See tidymodels integration example using data set.","code":""},{"path":"https://amr-for-r.org/reference/esbl_isolates.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with 500 ESBL Isolates — esbl_isolates","text":"","code":"esbl_isolates #> # A tibble: 500 × 19 #>    esbl  genus   AMC   AMP   TZP   CXM   FOX   CTX   CAZ   GEN   TOB   TMP   SXT #>    <lgl> <chr> <mic> <mic> <mic> <mic> <mic> <mic> <mic> <mic> <mic> <mic> <mic> #>  1 FALSE Esch…    32    32     4    64    64  8.00  8.00     1     1  16.0    20 #>  2 FALSE Esch…    32    32     4    64    64  4.00  8.00     1     1  16.0   320 #>  3 FALSE Esch…     4     2    64     8     4  8.00  0.12    16    16   0.5    20 #>  4 FALSE Kleb…    32    32    16    64    64  8.00  8.00     1     1   0.5    20 #>  5 FALSE Esch…    32    32     4     4     4  0.25  2.00     1     1  16.0   320 #>  6 FALSE Citr…    32    32    16    64    64 64.00 32.00     1     1   0.5    20 #>  7 FALSE Morg…    32    32     4    64    64 16.00  2.00     1     1   0.5    20 #>  8 FALSE Prot…    16    32     4     1     4  8.00  0.12     1     1  16.0   320 #>  9 FALSE Ente…    32    32     8    64    64 32.00  4.00     1     1   0.5    20 #> 10 FALSE Citr…    32    32    32    64    64  8.00 64.00     1     1  16.0   320 #> # ℹ 490 more rows #> # ℹ 6 more variables: NIT <mic>, FOS <mic>, CIP <mic>, IPM <mic>, MEM <mic>, #> #   COL <mic>"},{"path":"https://amr-for-r.org/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 notes expected resistant phenotypes 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://amr-for-r.org/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\",   \"expected_phenotypes\")), verbose = FALSE, version_breakpoints = 15,   version_expected_phenotypes = 1.2, version_expertrules = 3.3,   ampc_cephalosporin_resistance = NA, only_sir_columns = any(is.sir(x)),   custom_rules = NULL, overwrite = FALSE, ...)  eucast_dosage(ab, administration = \"iv\", version_breakpoints = 15)"},{"path":"https://amr-for-r.org/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://amr-for-r.org/reference/eucast_rules.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Apply EUCAST Rules — eucast_rules","text":"x data set antimicrobials 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\", \"expected_phenotypes\", \"expert\", \"\", \"custom\", \"\", defaults c(\"breakpoints\", \"expected_phenotypes\"). 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 \"15.0\", \"14.0\", \"13.1\", \"12.0\", \"11.0\", \"10.0\". version_expected_phenotypes version number use EUCAST Expected Phenotypes. Can \"1.2\". version_expertrules version number use EUCAST Expert Rules Intrinsic Resistance guideline. Can \"3.3\", \"3.2\", \"3.1\". ampc_cephalosporin_resistance (applies rules contains \"expert\" \"\") character value applied cefotaxime, ceftriaxone ceftazidime AmpC de-repressed cephalosporin-resistant mutants - default NA. Currently works version_expertrules 3.2 higher; versions '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 antimicrobial columns must included transformed class sir beforehand. Defaults FALSE columns x class sir. custom_rules Custom rules apply, created custom_eucast_rules(). overwrite logical indicating whether overwrite existing SIR values (default: FALSE). FALSE, non-SIR values modified (.e., value already S, R). ensure compliance EUCAST guidelines, remain FALSE, EUCAST notes often state organism \"tested susceptibility individual agents reported resistant\". ... Column names antimicrobials. automatically detect antimicrobial column names, provide named arguments; guess_ab_col() used detection. manually specify column, provide name (case-insensitive) argument, e.g. AMX = \"amoxicillin\". skip specific antimicrobial, set NULL, e.g. TIC = NULL exclude ticarcillin. manually defined column exist data, skipped warning. ab (vector ) text can coerced valid antimicrobial drug code .ab(). administration Route administration, either \"\", \"im\", \"iv\", \"oral\".","code":""},{"path":"https://amr-for-r.org/reference/eucast_rules.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Apply EUCAST Rules — eucast_rules","text":"input x, possibly edited values antimicrobials. , verbose = TRUE, data.frame original new values affected bug-drug combinations.","code":""},{"path":"https://amr-for-r.org/reference/eucast_rules.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Apply EUCAST Rules — eucast_rules","text":"Note: function translate MIC values SIR values. Use .sir() . Note: ampicillin (AMP, J01CA01) available amoxicillin (AMX, J01CA04) , latter used rules dependency ampicillin. drugs interchangeable comes expression antimicrobial resistance. file containing EUCAST rules located : https://github.com/msberends/AMR/blob/main/data-raw/eucast_rules.tsv.  Note: Old taxonomic names replaced current taxonomy applicable. example, Ochrobactrum anthropi renamed Brucella anthropi 2020; original EUCAST rules v3.1 v3.2 yet contain new taxonomic name. AMR package contains full microbial taxonomy updated June 24th, 2024, see microorganisms.","code":""},{"path":"https://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/reference/eucast_rules.html","id":"download-our-reference-data","dir":"Reference","previous_headings":"","what":"Download Our Reference Data","title":"Apply EUCAST Rules — eucast_rules","text":"reference data sets AMR package - including information microorganisms, antimicrobials, clinical breakpoints - freely available download multiple formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. maximum compatibility, also provide machine-readable, tab-separated plain text files suitable use software, including laboratory information systems. Visit website direct download links, explore actual files GitHub repository.","code":""},{"path":"https://amr-for-r.org/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, overwrite = 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(b) #>                       mo VAN AMX COL CAZ CXM PEN FOX #> 1  Staphylococcus aureus   -   S   R   R   S   S   S #> 2  Enterococcus faecalis   -   -   R   R   R   S   R #> 3       Escherichia coli   R   -   -   -   -   R   S #> 4  Klebsiella pneumoniae   R   R   -   -   -   R   S #> 5 Pseudomonas aeruginosa   R   R   -   -   R   R   R   # do not apply EUCAST rules, but rather get a data.frame # containing all details about the transformations: c <- eucast_rules(a, overwrite = TRUE, 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      Expected phenotypes #> 4   1 COL Staphylococcus aureus   -   R      Expected phenotypes #> 5   2 CAZ Enterococcus faecalis   -   R      Expected phenotypes #> 6   2 COL Enterococcus faecalis   -   R      Expected phenotypes #>                                                         rule_name #> 1                                                  Staphylococcus #> 2                                                  Staphylococcus #> 3 Table 4: Expected resistant phenotype in gram-positive bacteria #> 4 Table 4: Expected resistant phenotype in gram-positive bacteria #> 5 Table 4: Expected resistant phenotype in gram-positive bacteria #> 6 Table 4: Expected resistant phenotype in gram-positive bacteria #>                                         rule_source #> 1   'EUCAST Clinical Breakpoint Tables' v15.0, 2025 #> 2   'EUCAST Clinical Breakpoint Tables' v15.0, 2025 #> 3 'EUCAST Expected Resistant Phenotypes' v1.2, 2023 #> 4 'EUCAST Expected Resistant Phenotypes' v1.2, 2023 #> 5 'EUCAST Expected Resistant Phenotypes' v1.2, 2023 #> 6 'EUCAST Expected Resistant Phenotypes' v1.2, 2023 # }  # Dosage guidelines:  eucast_dosage(c(\"tobra\", \"genta\", \"cipro\"), \"iv\") #> ℹ Dosages for antimicrobial drugs, as meant for 'EUCAST Clinical Breakpoint #>   Tables' v15.0 (2025). This note will be shown once per session. #> # A tibble: 3 × 5 #>   ab   name          standard_dosage  high_dosage  eucast_version #>   <ab> <chr>         <chr>            <chr>                 <dbl> #> 1 TOB  Tobramycin    6-7 mg/kg x 1 iv NA                       15 #> 2 GEN  Gentamicin    6-7 mg/kg x 1 iv NA                       15 #> 3 CIP  Ciprofloxacin 0.4 g x 2 iv     0.4 g x 3 iv             15  eucast_dosage(c(\"tobra\", \"genta\", \"cipro\"), \"iv\", version_breakpoints = 10) #> # A tibble: 3 × 5 #>   ab   name          standard_dosage high_dosage eucast_version #>   <ab> <chr>         <chr>           <chr>                <dbl> #> 1 TOB  Tobramycin    NA              NA                      NA #> 2 GEN  Gentamicin    NA              NA                      NA #> 3 CIP  Ciprofloxacin NA              NA                      NA"},{"path":"https://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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 antimicrobials class sir (see .sir()); column names occur antimicrobials data set can translated set_ab_names() ab_name()","code":""},{"path":"https://amr-for-r.org/reference/example_isolates.html","id":"download-our-reference-data","dir":"Reference","previous_headings":"","what":"Download Our Reference Data","title":"Data Set with 2 000 Example Isolates — example_isolates","text":"reference data sets AMR package - including information microorganisms, antimicrobials, clinical breakpoints - freely available download multiple formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. maximum compatibility, also provide machine-readable, tab-separated plain text files suitable use software, including laboratory information systems. Visit website direct download links, explore actual files GitHub repository.","code":""},{"path":"https://amr-for-r.org/reference/example_isolates.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with 2 000 Example Isolates — example_isolates","text":"","code":"example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI   R     NA    NA    NA  #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI   R     NA    NA    NA  #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS   R     NA    S     R   #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS   R     NA    S     R   #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR   R     NA    S     NA  #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …"},{"path":"https://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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 antimicrobials transformed .sir()","code":""},{"path":"https://amr-for-r.org/reference/example_isolates_unclean.html","id":"download-our-reference-data","dir":"Reference","previous_headings":"","what":"Download Our Reference Data","title":"Data Set with Unclean Data — example_isolates_unclean","text":"reference data sets AMR package - including information microorganisms, antimicrobials, clinical breakpoints - freely available download multiple formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. maximum compatibility, also provide machine-readable, tab-separated plain text files suitable use software, including laboratory information systems. Visit website direct download links, explore actual files GitHub repository.","code":""},{"path":"https://amr-for-r.org/reference/example_isolates_unclean.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with Unclean Data — example_isolates_unclean","text":"","code":"example_isolates_unclean #> # A tibble: 3,000 × 8 #>    patient_id hospital date       bacteria      AMX   AMC   CIP   GEN   #>    <chr>      <chr>    <date>     <chr>         <chr> <chr> <chr> <chr> #>  1 J3         A        2012-11-21 E. coli       R     I     S     S     #>  2 R7         A        2018-04-03 K. pneumoniae R     I     S     S     #>  3 P3         A        2014-09-19 E. coli       R     S     S     S     #>  4 P10        A        2015-12-10 E. coli       S     I     S     S     #>  5 B7         A        2015-03-02 E. coli       S     S     S     S     #>  6 W3         A        2018-03-31 S. aureus     R     S     R     S     #>  7 J8         A        2016-06-14 E. coli       R     S     S     S     #>  8 M3         A        2015-10-25 E. coli       R     S     S     S     #>  9 J3         A        2019-06-19 E. coli       S     S     S     S     #> 10 G6         A        2015-04-27 S. aureus     S     S     S     S     #> # ℹ 2,990 more rows"},{"path":"https://amr-for-r.org/reference/export_ncbi_biosample.html","id":null,"dir":"Reference","previous_headings":"","what":"Export Data Set as NCBI BioSample Antibiogram — export_ncbi_biosample","title":"Export Data Set as NCBI BioSample Antibiogram — export_ncbi_biosample","text":"Export Data Set NCBI BioSample Antibiogram","code":""},{"path":"https://amr-for-r.org/reference/export_ncbi_biosample.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Export Data Set as NCBI BioSample Antibiogram — export_ncbi_biosample","text":"","code":"export_ncbi_biosample(x, filename = paste0(\"biosample_\", format(Sys.time(),   \"%Y-%m-%d-%H%M%S\"), \".xlsx\"), type = \"pathogen MIC\",   columns = where(is.mic), save_as_xlsx = TRUE)"},{"path":"https://amr-for-r.org/reference/export_ncbi_biosample.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Export Data Set as NCBI BioSample Antibiogram — export_ncbi_biosample","text":"x data set. filename character string specifying file name. type character string specifying type data set, either \"pathogen MIC\" \"beta-lactamase MIC\", see https://www.ncbi.nlm.nih.gov/biosample/docs/.","code":""},{"path":"https://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/reference/first_isolate.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Determine First Isolates — first_isolate","text":"Methodology functions 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://amr-for-r.org/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://amr-for-r.org/reference/first_isolate.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Determine First Isolates — first_isolate","text":"logical vector","code":""},{"path":"https://amr-for-r.org/reference/first_isolate.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Determine First Isolates — first_isolate","text":"methodology implemented functions strictly based recommendations outlined CLSI Guideline M39 research overview Hindler et al. (2007, doi:10.1086/511864 ). 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://amr-for-r.org/reference/first_isolate.html","id":"different-methods","dir":"Reference","previous_headings":"","what":"Different methods","title":"Determine First Isolates — first_isolate","text":"According previously-mentioned sources, 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: Isolate-based Minimum variables required: Microorganism identifier method require selection, isolates included. , however, respect arguments set first_isolate() function. example, default setting include_unknown (FALSE) omit selection rows without microbial ID. Patient-based Minimum variables required: Microorganism identifier, Patient identifier method includes every genus-species combination per patient . method makes sure duplicate isolates selected patient. method preferred e.g. identify first MRSA finding patient determine incidence. Conversely, large longitudinal data set, mean isolates excluded found years initial isolate. Episode-based Minimum variables required: Microorganism identifier, Patient identifier, Date include every genus-species combination per patient episode , set episode_days sensible number days. Depending type analysis, e.g., 14, 30, 60 365. Short episodes common analysing specific hospital ward data ICU cases, 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. Phenotype-based Minimum variables required: Microorganism identifier, Patient identifier, Date, Antimicrobial test results 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://amr-for-r.org/reference/first_isolate.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Determine First Isolates — first_isolate","text":"","code":"# `example_isolates` is a data set available in the AMR package. # See ?example_isolates.  example_isolates[first_isolate(info = TRUE), ] #> ℹ Determining first isolates using an episode length of 365 days #> ℹ Using column 'date' as input for `col_date`. #> ℹ Using column 'patient' as input for `col_patient_id`. #> ℹ Basing inclusion on all antimicrobial results, using a points threshold #>   of 2 #> ℹ Excluding 16 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 1,387 'phenotype-based' first isolates (69.4% of total where a #>    microbial ID was available) #> # A tibble: 1,387 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI   R     NA    NA    NA  #>  2 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  3 2002-01-14 462729     78 M      Clinical B_STPHY_AURS   R     NA    S     R   #>  4 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  5 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR   R     NA    S     NA  #>  6 2002-01-17 495616     67 M      Clinical B_STPHY_EPDR   R     NA    S     NA  #>  7 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI   R     NA    NA    NA  #>  8 2002-01-21 462081     75 F      Clinical B_CTRBC_FRND   R     NA    NA    R   #>  9 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL   R     NA    NA    NA  #> 10 2002-02-03 481442     76 M      ICU      B_STPHY_CONS   R     NA    S     NA  #> # ℹ 1,377 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … # \\donttest{ # get all first Gram-negatives example_isolates[which(first_isolate(info = FALSE) & mo_is_gram_negative()), ] #> ℹ Using column 'mo' as input for `mo_is_gram_negative()` #> # A tibble: 441 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI   R     NA    NA    NA  #>  2 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI   R     NA    NA    NA  #>  3 2002-01-21 462081     75 F      Clinical B_CTRBC_FRND   R     NA    NA    R   #>  4 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL   R     NA    NA    NA  #>  5 2002-02-05 067927     45 F      ICU      B_SERRT_MRCS   R     NA    NA    R   #>  6 2002-02-27 066895     85 F      Clinical B_KLBSL_PNMN   R     NA    NA    R   #>  7 2002-03-08 4FC193     69 M      Clinical B_ESCHR_COLI   R     NA    NA    R   #>  8 2002-03-16 4FC193     69 M      Clinical B_PSDMN_AERG   R     NA    NA    R   #>  9 2002-04-01 496896     46 F      ICU      B_ESCHR_COLI   R     NA    NA    NA  #> 10 2002-04-23 EE2510     69 F      ICU      B_ESCHR_COLI   R     NA    NA    NA  #> # ℹ 431 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  if (require(\"dplyr\")) {   # filter on first isolates using dplyr:   example_isolates %>%     filter(first_isolate(info = TRUE)) } #> ℹ Determining first isolates using an episode length of 365 days #> ℹ Basing inclusion on all antimicrobial results, using a points threshold #>   of 2 #> ℹ Excluding 16 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 1,387 'phenotype-based' first isolates (69.4% of total where a #>    microbial ID was available) #> # A tibble: 1,387 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI   R     NA    NA    NA  #>  2 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  3 2002-01-14 462729     78 M      Clinical B_STPHY_AURS   R     NA    S     R   #>  4 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  5 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR   R     NA    S     NA  #>  6 2002-01-17 495616     67 M      Clinical B_STPHY_EPDR   R     NA    S     NA  #>  7 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI   R     NA    NA    NA  #>  8 2002-01-21 462081     75 F      Clinical B_CTRBC_FRND   R     NA    NA    R   #>  9 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL   R     NA    NA    NA  #> 10 2002-02-03 481442     76 M      ICU      B_STPHY_CONS   R     NA    S     NA  #> # ℹ 1,377 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … if (require(\"dplyr\")) {   # short-hand version:   example_isolates %>%     filter_first_isolate(info = FALSE) } #> # A tibble: 1,387 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI   R     NA    NA    NA  #>  2 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  3 2002-01-14 462729     78 M      Clinical B_STPHY_AURS   R     NA    S     R   #>  4 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  5 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR   R     NA    S     NA  #>  6 2002-01-17 495616     67 M      Clinical B_STPHY_EPDR   R     NA    S     NA  #>  7 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI   R     NA    NA    NA  #>  8 2002-01-21 462081     75 F      Clinical B_CTRBC_FRND   R     NA    NA    R   #>  9 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL   R     NA    NA    NA  #> 10 2002-02-03 481442     76 M      ICU      B_STPHY_CONS   R     NA    S     NA  #> # ℹ 1,377 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … if (require(\"dplyr\")) {   # flag the first isolates per group:   example_isolates %>%     group_by(ward) %>%     mutate(first = first_isolate(info = TRUE)) %>%     select(ward, date, patient, mo, first) } #> ℹ Determining first isolates using an episode length of 365 days #> ℹ Basing inclusion on all antimicrobial results, using a points threshold #>   of 2 #>  #> Group: ward = \"Clinical\" #> ℹ Excluding 9 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 865 'phenotype-based' first isolates (70.1% of total where a #>    microbial ID was available) #>  #> Group: ward = \"ICU\" #> ℹ Excluding 6 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 452 'phenotype-based' first isolates (70.0% of total where a #>    microbial ID was available) #>  #> Group: ward = \"Outpatient\" #> ℹ Excluding 1 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 99 'phenotype-based' first isolates (82.5% of total where a #>    microbial ID was available) #> # A tibble: 2,000 × 5 #> # Groups:   ward [3] #>    ward     date       patient mo           first #>    <chr>    <date>     <chr>   <mo>         <lgl> #>  1 Clinical 2002-01-02 A77334  B_ESCHR_COLI TRUE  #>  2 Clinical 2002-01-03 A77334  B_ESCHR_COLI FALSE #>  3 ICU      2002-01-07 067927  B_STPHY_EPDR TRUE  #>  4 ICU      2002-01-07 067927  B_STPHY_EPDR FALSE #>  5 ICU      2002-01-13 067927  B_STPHY_EPDR FALSE #>  6 ICU      2002-01-13 067927  B_STPHY_EPDR FALSE #>  7 Clinical 2002-01-14 462729  B_STPHY_AURS TRUE  #>  8 Clinical 2002-01-14 462729  B_STPHY_AURS FALSE #>  9 ICU      2002-01-16 067927  B_STPHY_EPDR TRUE  #> 10 ICU      2002-01-17 858515  B_STPHY_EPDR TRUE  #> # ℹ 1,990 more rows # }"},{"path":"https://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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.","code":""},{"path":[]},{"path":"https://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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] 43  9  7 14 28 40 49 29 19 27 10 44 18 22 42 12  8 36 13  3 46  5  4 35 38 #>  [26] 16 22 23 16 10 42 13  2 45 18 19 39 32 22 36 40 45 39 40 11 23 25 39 26 23 #>  [51] 25 12 17 23 30 30 34 16 21 37 40 26 11  7  4 16 43 22 47 37 39 31 25 41  1 #>  [76] 45 39 23 32 45 20 22 15 14 13 43  9 38 29  6 48 24 21 23 44 19 31  1  3 33 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  TRUE FALSE  TRUE FALSE FALSE FALSE FALSE  TRUE  TRUE FALSE FALSE #>  [37]  TRUE  TRUE FALSE FALSE FALSE FALSE FALSE FALSE  TRUE FALSE  TRUE FALSE #>  [49]  TRUE FALSE FALSE FALSE  TRUE FALSE  TRUE FALSE  TRUE FALSE  TRUE  TRUE #>  [61] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE  TRUE FALSE FALSE  TRUE #>  [73] FALSE  TRUE  TRUE FALSE FALSE FALSE FALSE FALSE  TRUE FALSE  TRUE FALSE #>  [85] FALSE FALSE FALSE FALSE FALSE  TRUE  TRUE  TRUE FALSE FALSE FALSE FALSE #>  [97] FALSE FALSE FALSE  TRUE  # 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 2002-11-04 304347     62 M      Clinical B_STRPT_PNMN   S     NA    NA    S   #> 2 2002-10-18 E55128     57 F      ICU      B_STPHY_AURS   R     NA    S     R   #> # ℹ 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 [96] #>    patient date       condition new_episode #>    <chr>   <date>     <chr>     <lgl>       #>  1 022060  2004-05-04 A         TRUE        #>  2 060287  2007-03-11 A         TRUE        #>  3 0E2483  2007-04-06 C         TRUE        #>  4 101305  2006-12-13 A         TRUE        #>  5 141061  2014-10-22 A         TRUE        #>  6 146F70  2009-08-14 A         TRUE        #>  7 15D386  2004-08-01 B         TRUE        #>  8 187841  2008-04-22 C         TRUE        #>  9 195736  2008-08-29 C         TRUE        #> 10 195736  2008-08-29 C         FALSE       #> # ℹ 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 [91] #>    ward     date       patient new_index new_logical #>    <chr>    <date>     <chr>       <int> <lgl>       #>  1 ICU      2004-05-04 022060          1 TRUE        #>  2 Clinical 2007-03-11 060287          1 TRUE        #>  3 Clinical 2007-04-06 0E2483          1 TRUE        #>  4 Clinical 2006-12-13 101305          1 TRUE        #>  5 Clinical 2014-10-22 141061          1 TRUE        #>  6 Clinical 2009-08-14 146F70          1 TRUE        #>  7 ICU      2004-08-01 15D386          1 TRUE        #>  8 Clinical 2008-04-22 187841          1 TRUE        #>  9 Clinical 2008-08-29 195736          1 TRUE        #> 10 Clinical 2008-08-29 195736          1 FALSE       #> # ℹ 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           58             14            38            44 #> 2 ICU                26              7            20            23 #> 3 Outpatient          7              4             6             7  # 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] FALSE  # 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 [96] #>    patient mo            ward     flag_episode #>    <chr>   <mo>          <chr>    <lgl>        #>  1 917895  B_STPHY_CPTS  ICU      TRUE         #>  2 022060  B_ENTRBC_CLOC ICU      TRUE         #>  3 C36883  B_ESCHR_COLI  Clinical TRUE         #>  4 5DF436  B_STPHY_AURS  ICU      TRUE         #>  5 971739  B_STPHY_CONS  Clinical TRUE         #>  6 488175  B_ESCHR_COLI  Clinical TRUE         #>  7 5DB1C8  B_STPHY_CPTS  Clinical TRUE         #>  8 BC9909  B_ENTRBC_CLOC Clinical TRUE         #>  9 5B78D5  B_STPHY_AURS  Clinical TRUE         #> 10 284FFF  B_STPHY_EPDR  Clinical TRUE         #> # ℹ 90 more rows # }"},{"path":"https://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/reference/ggplot_pca.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"","code":"# `example_isolates` is a data set available in the AMR package. # See ?example_isolates.  # \\donttest{ if (require(\"dplyr\")) {   # calculate the resistance per group first   resistance_data <- example_isolates %>%     group_by(       order = mo_order(mo), # group on anything, like order       genus = mo_genus(mo)     ) %>% #   and genus as we do here;     filter(n() >= 30) %>% # filter on only 30 results per group     summarise_if(is.sir, resistance) # then get resistance of all drugs    # now conduct PCA for certain antimicrobial drugs   pca_result <- resistance_data %>%     pca(AMC, CXM, CTX, CAZ, GEN, TOB, TMP, SXT)    summary(pca_result)    # old base R plotting method:   biplot(pca_result, main = \"Base R biplot\")    # new ggplot2 plotting method using this package:   if (require(\"ggplot2\")) {     ggplot_pca(pca_result) +       labs(title = \"ggplot2 biplot\")   }   if (require(\"ggplot2\")) {     # still extendible with any ggplot2 function     ggplot_pca(pca_result) +       scale_colour_viridis_d() +       labs(title = \"ggplot2 biplot\")   } } #> Warning: There were 73 warnings in `summarise()`. #> The first warning was: #> ℹ In argument: `PEN = (function (..., minimum = 30, as_percent = FALSE, #>   only_all_tested = FALSE) ...`. #> ℹ In group 5: `order = \"Lactobacillales\"` `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://amr-for-r.org/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://amr-for-r.org/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\", SDD = \"#8FD6C4\", SI = \"#3CAEA3\", I = \"#F6D55C\", IR = \"#ED553B\",   R = \"#ED553B\"), datalabels = TRUE, datalabels.size = 2.5,   datalabels.colour = \"grey15\", title = NULL, subtitle = NULL,   caption = NULL, x.title = \"Antimicrobial\", y.title = \"Proportion\", ...)  geom_sir(position = NULL, x = c(\"antibiotic\", \"interpretation\"),   fill = \"interpretation\", translate_ab = \"name\", minimum = 30,   language = get_AMR_locale(), combine_SI = TRUE, ...)"},{"path":"https://amr-for-r.org/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 antimicrobials data set translate antibiotic abbreviations , using ab_property(). combine_SI logical indicate whether values S, SDD, must merged one, output consists S+SDD+vs. R (susceptible vs. resistant) - default TRUE. minimum minimum allowed number available (tested) isolates. isolate count lower minimum return NA warning. default number 30 isolates advised Clinical Laboratory Standards Institute (CLSI) best practice, see Source. language Language returned text - default current system language (see get_AMR_locale()) can also set package option AMR_locale. Use language = NULL language = \"\" prevent translation. nrow (using facet) number rows. colours named vactor colour used filling. default colours colour-blind friendly. datalabels Show datalabels using labels_sir_count(). datalabels.size Size datalabels. datalabels.colour Colour datalabels. title Text show title plot. subtitle Text show subtitle plot. caption Text show caption plot. x.title Text show x axis description. y.title Text show y axis description. ... arguments passed geom_sir() , case scale_sir_colours(), named values set colours. default colours colour-blind friendly, maintaining convention e.g. 'susceptible' green 'resistant' red. See Examples.","code":""},{"path":"https://amr-for-r.org/reference/ggplot_sir.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"AMR Plots with ggplot2 — ggplot_sir","text":"default, names antimicrobials shown plots using ab_name(). can set translate_ab argument. See count_df(). geom_sir() take variable data sir class (created .sir()) using sir_df() plot bars percentage S, , R. default behaviour bars stacked different antimicrobials x axis. Additional functions include: facet_sir() creates 2d plots (default based S//R) using ggplot2::facet_wrap(). scale_y_percent() transforms y axis 0 100% range using ggplot2::scale_y_continuous(). scale_sir_colours() sets colours bars (green S, yellow , red R). multilingual support. default colours colour-blind friendly, maintaining convention e.g. 'susceptible' green 'resistant' red. theme_sir() ggplot2 theme 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://amr-for-r.org/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(aesthetics = \"fill\") +     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     ) } #> Warning: Ignoring unknown parameters: `size`  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(       aesthetics = \"fill\",       Value4 = \"S\", Value5 = \"I\", Value6 = \"R\"     ) }  if (require(\"ggplot2\") && require(\"dplyr\")) {   # resistance of ciprofloxacine per age group   example_isolates %>%     mutate(first_isolate = first_isolate()) %>%     filter(       first_isolate == TRUE,       mo == as.mo(\"Escherichia coli\")     ) %>%     # age_groups() is also a function in this AMR package:     group_by(age_group = age_groups(age)) %>%     select(age_group, CIP) %>%     ggplot_sir(x = \"age_group\") } #> Warning: Removed 6 rows containing missing values or values outside the scale range #> (`geom_col()`). #> Warning: Removed 6 rows containing missing values or values outside the scale range #> (`geom_text()`).  if (require(\"ggplot2\") && require(\"dplyr\")) {   # a shorter version which also adjusts data label colours:   example_isolates %>%     select(AMX, NIT, FOS, TMP, CIP) %>%     ggplot_sir(colours = FALSE) }  if (require(\"ggplot2\") && require(\"dplyr\")) {   # it also supports groups (don't forget to use the group var on `x` or `facet`):   example_isolates %>%     filter(mo_is_gram_negative(), ward != \"Outpatient\") %>%     # select only UTI-specific drugs     select(ward, AMX, NIT, FOS, TMP, CIP) %>%     group_by(ward) %>%     ggplot_sir(       x = \"ward\",       facet = \"antibiotic\",       nrow = 1,       title = \"AMR of Anti-UTI Drugs Per Ward\",       x.title = \"Ward\",       datalabels = FALSE     ) } #> ℹ Using column 'mo' as input for `mo_is_gram_negative()`  # }"},{"path":"https://amr-for-r.org/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 antimicrobials data set. Also supports WHONET abbreviations.","code":""},{"path":"https://amr-for-r.org/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://amr-for-r.org/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 antimicrobial columns must included transformed class sir beforehand. Defaults FALSE columns x class sir.","code":""},{"path":"https://amr-for-r.org/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://amr-for-r.org/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 antimicrobials data set column containing name code antibiotic.","code":""},{"path":"https://amr-for-r.org/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\"  # 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, \"augmentin\") #> [1] \"AMC_ED20\""},{"path":"https://amr-for-r.org/reference/intrinsic_resistant.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set Denoting Bacterial Intrinsic Resistance — intrinsic_resistant","title":"Data Set Denoting Bacterial Intrinsic Resistance — intrinsic_resistant","text":"Data set containing 'EUCAST Expected Resistant Phenotypes' bug-drug combinations microorganisms antimicrobials data sets.","code":""},{"path":"https://amr-for-r.org/reference/intrinsic_resistant.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set Denoting Bacterial Intrinsic Resistance — intrinsic_resistant","text":"","code":"intrinsic_resistant"},{"path":"https://amr-for-r.org/reference/intrinsic_resistant.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set Denoting Bacterial Intrinsic Resistance — intrinsic_resistant","text":"tibble 271 905 observations 2 variables: mo Microorganism ID occurs microorganisms$mo. Names can retrieved using mo_name(). ab Antimicrobial ID occurs antimicrobials$ab. Names can retrieved using ab_name().","code":""},{"path":"https://amr-for-r.org/reference/intrinsic_resistant.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set Denoting Bacterial Intrinsic Resistance — intrinsic_resistant","text":"data set currently based 'EUCAST Expected Resistant Phenotypes' v1.2 (2023). data set internally used : not_intrinsic_resistant() (antimicrobial selector) mo_is_intrinsic_resistant()","code":""},{"path":"https://amr-for-r.org/reference/intrinsic_resistant.html","id":"download-our-reference-data","dir":"Reference","previous_headings":"","what":"Download Our Reference Data","title":"Data Set Denoting Bacterial Intrinsic Resistance — intrinsic_resistant","text":"reference data sets AMR package - including information microorganisms, antimicrobials, clinical breakpoints - freely available download multiple formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. maximum compatibility, also provide machine-readable, tab-separated plain text files suitable use software, including laboratory information systems. Visit website direct download links, explore actual files GitHub repository.","code":""},{"path":"https://amr-for-r.org/reference/intrinsic_resistant.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set Denoting Bacterial Intrinsic Resistance — intrinsic_resistant","text":"","code":"intrinsic_resistant #> # A tibble: 271,905 × 2 #>    mo          ab   #>    <mo>        <ab> #>  1 B_GRAMP     ATM  #>  2 B_GRAMP     COL  #>  3 B_GRAMP     NAL  #>  4 B_GRAMP     PLB  #>  5 B_GRAMP     TEM  #>  6 B_ANAER-POS ATM  #>  7 B_ANAER-POS COL  #>  8 B_ANAER-POS NAL  #>  9 B_ANAER-POS PLB  #> 10 B_ANAER-POS TEM  #> # ℹ 271,895 more rows"},{"path":"https://amr-for-r.org/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://amr-for-r.org/reference/italicise_taxonomy.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Italicise Taxonomic Families, Genera, Species, Subspecies — italicise_taxonomy","text":"","code":"italicise_taxonomy(string, type = c(\"markdown\", \"ansi\", \"html\"))  italicize_taxonomy(string, type = c(\"markdown\", \"ansi\", \"html\"))"},{"path":"https://amr-for-r.org/reference/italicise_taxonomy.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Italicise Taxonomic Families, Genera, Species, Subspecies — italicise_taxonomy","text":"string character (vector). type Type conversion taxonomic names, either \"markdown\", \"html\" \"ansi\", see Details.","code":""},{"path":"https://amr-for-r.org/reference/italicise_taxonomy.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Italicise Taxonomic Families, Genera, Species, Subspecies — italicise_taxonomy","text":"function finds taxonomic names makes italic based microorganisms data set. taxonomic names can italicised using markdown (default) adding * taxonomic names, <> <\/> using html. using 'ansi', ANSI colours added using \\033[3m \\033[23m taxonomic names. multiple ANSI colours available, conversion occur. function also supports abbreviation genus followed species, \"E. coli\" \"K. pneumoniae ozaenae\".","code":""},{"path":"https://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/reference/join.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Join microorganisms to a Data Set — join","text":"","code":"left_join_microorganisms(as.mo(\"K. pneumoniae\")) #> # A tibble: 1 × 26 #>   mo           fullname   status kingdom phylum class order family genus species #>   <mo>         <chr>      <chr>  <chr>   <chr>  <chr> <chr> <chr>  <chr> <chr>   #> 1 B_KLBSL_PNMN Klebsiell… accep… Bacter… Pseud… Gamm… Ente… Enter… Kleb… pneumo… #> # ℹ 16 more variables: subspecies <chr>, rank <chr>, ref <chr>, #> #   oxygen_tolerance <chr>, source <chr>, lpsn <chr>, lpsn_parent <chr>, #> #   lpsn_renamed_to <chr>, mycobank <chr>, mycobank_parent <chr>, #> #   mycobank_renamed_to <chr>, gbif <chr>, gbif_parent <chr>, #> #   gbif_renamed_to <chr>, prevalence <dbl>, snomed <list> left_join_microorganisms(\"B_KLBSL_PNMN\") #> # A tibble: 1 × 26 #>   mo           fullname   status kingdom phylum class order family genus species #>   <mo>         <chr>      <chr>  <chr>   <chr>  <chr> <chr> <chr>  <chr> <chr>   #> 1 B_KLBSL_PNMN Klebsiell… accep… Bacter… Pseud… Gamm… Ente… Enter… Kleb… pneumo… #> # ℹ 16 more variables: subspecies <chr>, rank <chr>, ref <chr>, #> #   oxygen_tolerance <chr>, source <chr>, lpsn <chr>, lpsn_parent <chr>, #> #   lpsn_renamed_to <chr>, mycobank <chr>, mycobank_parent <chr>, #> #   mycobank_renamed_to <chr>, gbif <chr>, gbif_parent <chr>, #> #   gbif_renamed_to <chr>, prevalence <dbl>, snomed <list>  df <- data.frame(   date = seq(     from = as.Date(\"2018-01-01\"),     to = as.Date(\"2018-01-07\"),     by = 1   ),   bacteria = as.mo(c(     \"S. aureus\", \"MRSA\", \"MSSA\", \"STAAUR\",     \"E. coli\", \"E. coli\", \"E. coli\"   )),   stringsAsFactors = FALSE ) colnames(df) #> [1] \"date\"     \"bacteria\"  df_joined <- left_join_microorganisms(df, \"bacteria\") colnames(df_joined) #>  [1] \"date\"                \"bacteria\"            \"fullname\"            #>  [4] \"status\"              \"kingdom\"             \"phylum\"              #>  [7] \"class\"               \"order\"               \"family\"              #> [10] \"genus\"               \"species\"             \"subspecies\"          #> [13] \"rank\"                \"ref\"                 \"oxygen_tolerance\"    #> [16] \"source\"              \"lpsn\"                \"lpsn_parent\"         #> [19] \"lpsn_renamed_to\"     \"mycobank\"            \"mycobank_parent\"     #> [22] \"mycobank_renamed_to\" \"gbif\"                \"gbif_parent\"         #> [25] \"gbif_renamed_to\"     \"prevalence\"          \"snomed\"               # \\donttest{ if (require(\"dplyr\")) {   example_isolates %>%     left_join_microorganisms() %>%     colnames() } #> Joining, by = \"mo\" #>  [1] \"date\"                \"patient\"             \"age\"                 #>  [4] \"gender\"              \"ward\"                \"mo\"                  #>  [7] \"PEN\"                 \"OXA\"                 \"FLC\"                 #> [10] \"AMX\"                 \"AMC\"                 \"AMP\"                 #> [13] \"TZP\"                 \"CZO\"                 \"FEP\"                 #> [16] \"CXM\"                 \"FOX\"                 \"CTX\"                 #> [19] \"CAZ\"                 \"CRO\"                 \"GEN\"                 #> [22] \"TOB\"                 \"AMK\"                 \"KAN\"                 #> [25] \"TMP\"                 \"SXT\"                 \"NIT\"                 #> [28] \"FOS\"                 \"LNZ\"                 \"CIP\"                 #> [31] \"MFX\"                 \"VAN\"                 \"TEC\"                 #> [34] \"TCY\"                 \"TGC\"                 \"DOX\"                 #> [37] \"ERY\"                 \"CLI\"                 \"AZM\"                 #> [40] \"IPM\"                 \"MEM\"                 \"MTR\"                 #> [43] \"CHL\"                 \"COL\"                 \"MUP\"                 #> [46] \"RIF\"                 \"fullname\"            \"status\"              #> [49] \"kingdom\"             \"phylum\"              \"class\"               #> [52] \"order\"               \"family\"              \"genus\"               #> [55] \"species\"             \"subspecies\"          \"rank\"                #> [58] \"ref\"                 \"oxygen_tolerance\"    \"source\"              #> [61] \"lpsn\"                \"lpsn_parent\"         \"lpsn_renamed_to\"     #> [64] \"mycobank\"            \"mycobank_parent\"     \"mycobank_renamed_to\" #> [67] \"gbif\"                \"gbif_parent\"         \"gbif_renamed_to\"     #> [70] \"prevalence\"          \"snomed\"              # }"},{"path":"https://amr-for-r.org/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://amr-for-r.org/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 = any(is.sir(x)), ...)  all_antimicrobials(x = NULL, only_sir_columns = any(is.sir(x)), ...)  antimicrobials_equal(y, z, type = c(\"points\", \"keyantimicrobials\"),   ignore_I = TRUE, points_threshold = 2, ...)"},{"path":"https://amr-for-r.org/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 antimicrobials 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 antimicrobial columns must included transformed class sir beforehand. Defaults FALSE columns x class sir. ... 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://amr-for-r.org/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://amr-for-r.org/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 antimicrobials to a new variable   my_patients <- example_isolates %>%     mutate(keyab = key_antimicrobials(antifungal = NULL)) %>% # no need to define `x`     mutate(       # now calculate first isolates       first_regular = first_isolate(col_keyantimicrobials = FALSE),       # and first WEIGHTED isolates       first_weighted = first_isolate(col_keyantimicrobials = \"keyab\")     )    # Check the difference in this data set, 'weighted' results in more isolates:   sum(my_patients$first_regular, na.rm = TRUE)   sum(my_patients$first_weighted, na.rm = TRUE) } #> [1] 1383 # }"},{"path":"https://amr-for-r.org/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://amr-for-r.org/reference/kurtosis.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Kurtosis of the Sample — kurtosis","text":"","code":"kurtosis(x, na.rm = FALSE, excess = FALSE)  # Default S3 method kurtosis(x, na.rm = FALSE, excess = FALSE)  # S3 method for class 'matrix' kurtosis(x, na.rm = FALSE, excess = FALSE)  # S3 method for class 'data.frame' kurtosis(x, na.rm = FALSE, excess = FALSE)"},{"path":"https://amr-for-r.org/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://amr-for-r.org/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.069947 kurtosis(rnorm(10000), excess = TRUE) #> [1] -0.02599697"},{"path":"https://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/reference/like.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Vectorised Pattern Matching with Keyboard Shortcut — like","text":"","code":"# data.table has a more limited version of %like%, so unload it: try(detach(\"package:data.table\", unload = TRUE), silent = TRUE) #> Warning: ‘data.table’ namespace cannot be unloaded: #>   namespace ‘data.table’ is imported by ‘prodlim’ so cannot be unloaded  a <- \"This is a test\" b <- \"TEST\" a %like% b #> [1] TRUE b %like% a #> [1] FALSE  # also supports multiple patterns a <- c(\"Test case\", \"Something different\", \"Yet another thing\") b <- c(\"case\", \"diff\", \"yet\") a %like% b #> [1] TRUE TRUE TRUE a %unlike% b #> [1] FALSE FALSE FALSE  a[1] %like% b #> [1]  TRUE FALSE FALSE a %like% b[1] #> [1]  TRUE FALSE FALSE  # \\donttest{ # get isolates whose name start with 'Entero' (case-insensitive) example_isolates[which(mo_name() %like% \"^entero\"), ] #> ℹ Using column 'mo' as input for `mo_name()` #> # A tibble: 106 × 46 #>    date       patient   age gender ward    mo            PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>   <mo>          <sir> <sir> <sir> <sir> #>  1 2002-02-21 4FC193     69 M      Clinic… B_ENTRC_FACM    NA    NA    NA    NA  #>  2 2002-04-08 130252     78 M      ICU     B_ENTRC_FCLS    NA    NA    NA    NA  #>  3 2002-06-23 798871     82 M      Clinic… B_ENTRC_FCLS    NA    NA    NA    NA  #>  4 2002-06-23 798871     82 M      Clinic… B_ENTRC_FCLS    NA    NA    NA    NA  #>  5 2003-04-20 6BC362     62 M      ICU     B_ENTRC         NA    NA    NA    NA  #>  6 2003-04-21 6BC362     62 M      ICU     B_ENTRC         NA    NA    NA    NA  #>  7 2003-08-13 F35553     52 M      ICU     B_ENTRBC_CLOC   R     NA    NA    R   #>  8 2003-08-13 F35553     52 M      ICU     B_ENTRC_FCLS    NA    NA    NA    NA  #>  9 2003-09-05 F35553     52 M      ICU     B_ENTRC         NA    NA    NA    NA  #> 10 2003-09-05 F35553     52 M      ICU     B_ENTRBC_CLOC   R     NA    NA    R   #> # ℹ 96 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  if (require(\"dplyr\")) {   example_isolates %>%     filter(mo_name() %like% \"^ent\") } #> ℹ Using column 'mo' as input for `mo_name()` #> # A tibble: 106 × 46 #>    date       patient   age gender ward    mo            PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>   <mo>          <sir> <sir> <sir> <sir> #>  1 2002-02-21 4FC193     69 M      Clinic… B_ENTRC_FACM    NA    NA    NA    NA  #>  2 2002-04-08 130252     78 M      ICU     B_ENTRC_FCLS    NA    NA    NA    NA  #>  3 2002-06-23 798871     82 M      Clinic… B_ENTRC_FCLS    NA    NA    NA    NA  #>  4 2002-06-23 798871     82 M      Clinic… B_ENTRC_FCLS    NA    NA    NA    NA  #>  5 2003-04-20 6BC362     62 M      ICU     B_ENTRC         NA    NA    NA    NA  #>  6 2003-04-21 6BC362     62 M      ICU     B_ENTRC         NA    NA    NA    NA  #>  7 2003-08-13 F35553     52 M      ICU     B_ENTRBC_CLOC   R     NA    NA    R   #>  8 2003-08-13 F35553     52 M      ICU     B_ENTRC_FCLS    NA    NA    NA    NA  #>  9 2003-09-05 F35553     52 M      ICU     B_ENTRC         NA    NA    NA    NA  #> 10 2003-09-05 F35553     52 M      ICU     B_ENTRBC_CLOC   R     NA    NA    R   #> # ℹ 96 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … # }"},{"path":"https://amr-for-r.org/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://amr-for-r.org/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 = \"CMI 2012\", col_mo = NULL, esbl = NA,   carbapenemase = NA, mecA = NA, mecC = NA, vanA = NA, vanB = NA,   info = interactive(), pct_required_classes = 0.5, combine_SI = TRUE,   verbose = FALSE, only_sir_columns = any(is.sir(x)), ...)  brmo(x = NULL, only_sir_columns = any(is.sir(x)), ...)  mrgn(x = NULL, only_sir_columns = any(is.sir(x)), verbose = FALSE, ...)  mdr_tb(x = NULL, only_sir_columns = any(is.sir(x)), verbose = FALSE, ...)  mdr_cmi2012(x = NULL, only_sir_columns = any(is.sir(x)), verbose = FALSE,   ...)  eucast_exceptional_phenotypes(x = NULL, only_sir_columns = any(is.sir(x)),   verbose = FALSE, ...)"},{"path":"https://amr-for-r.org/reference/mdro.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"x data.frame antimicrobials columns, like AMX amox. Can left blank automatic determination. guideline specific guideline follow, see sections Supported international / national guidelines Using Custom Guidelines . left empty, publication Magiorakos et al. (see ) followed. col_mo Column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). esbl logical values, column name containing logical values, indicating presence ESBL gene (production proteins). carbapenemase logical values, column name containing logical values, indicating presence carbapenemase gene (production proteins). mecA logical values, column name containing logical values, indicating presence mecA gene (production proteins). mecC logical values, column name containing logical values, indicating presence mecC gene (production proteins). vanA logical values, column name containing logical values, indicating presence vanA gene (production proteins). vanB logical values, column name containing logical values, indicating presence vanB gene (production proteins). info logical indicate whether progress printed console - default print interactive sessions. pct_required_classes Minimal required percentage antimicrobial classes must available per isolate, rounded . example, default guideline, 17 antimicrobial classes must available S. aureus. Setting pct_required_classes argument 0.5 (default) means every S. aureus isolate least 8 different classes must available. lower number available classes return NA isolate. combine_SI logical indicate whether values S must merged one, resistance considered isolates R, . default behaviour mdro() function, follows redefinition EUCAST interpretation (increased exposure) 2019, see section 'Interpretation S, R' . using combine_SI = FALSE, resistance considered isolates R . verbose logical turn Verbose mode (default ). Verbose mode, function returns data set MDRO results logbook form extensive info isolates MDRO-positive, . only_sir_columns logical indicate whether antimicrobial columns must included transformed class sir beforehand. Defaults FALSE columns x class sir. ... Column names antimicrobials. automatically detect antimicrobial column names, provide named arguments; guess_ab_col() used detection. manually specify column, provide name (case-insensitive) argument, e.g. AMX = \"amoxicillin\". skip specific antimicrobial, set NULL, e.g. TIC = NULL exclude ticarcillin. manually defined column exist data, skipped warning.","code":""},{"path":"https://amr-for-r.org/reference/mdro.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"verbose set TRUE: data.frame containing columns row_number, microorganism, MDRO, reason, all_nonsusceptible_columns, guideline 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. genotypic) tests","code":""},{"path":"https://amr-for-r.org/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://amr-for-r.org/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":"Please suggest implement guidelines letting us know. Currently supported guidelines (case-insensitive): guideline = \"CMI 2012\" (default) Magiorakos AP, Srinivasan et al. \"Multidrug-resistant, extensively drug-resistant pandrug-resistant bacteria: international expert proposal interim standard definitions acquired resistance.\" Clinical Microbiology Infection (2012) (doi:10.1111/j.1469-0691.2011.03570.x ) guideline = \"EUCAST 3.3\" (simply guideline = \"EUCAST\") European international guideline - EUCAST Expert Rules Version 3.3 \"Intrinsic Resistance Unusual Phenotypes\" (link) Also: guideline = \"EUCAST 3.2\" former European international guideline - EUCAST Expert Rules Version 3.2 \"Intrinsic Resistance Unusual Phenotypes\" (link) guideline = \"EUCAST 3.1\" former 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 2024\" (simply guideline = \"BRMO\") Dutch national guideline - Samenwerkingverband Richtlijnen Infectiepreventie (SRI) (2024) \"Bijzonder Resistente Micro-Organismen (BRMO)\" (link) Also: guideline = \"BRMO 2017\" former Dutch national guideline - Werkgroep Infectiepreventie (WIP), RIVM, last revision 2017: \"Bijzonder Resistente Micro-Organismen (BRMO)\"","code":""},{"path":"https://amr-for-r.org/reference/mdro.html","id":"using-custom-guidelines","dir":"Reference","previous_headings":"","what":"Using Custom Guidelines","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"Using custom MDRO guideline importance custom rules determine MDROs hospital, e.g., rules dependent ward, state contact isolation variables data. Custom guidelines can set custom_mdro_guideline() function.","code":""},{"path":"https://amr-for-r.org/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 (https://www.eucast.org/newsiandr). AMR package follows insight; use susceptibility() (equal proportion_SI()) determine antimicrobial susceptibility count_susceptible() (equal count_SI()) count susceptible isolates.","code":""},{"path":[]},{"path":"https://amr-for-r.org/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) #> Warning: in `mdro()`: NA introduced for isolates where the available percentage of #> antimicrobial classes was below 50% (set with `pct_required_classes`) str(out) #>  Ord.factor w/ 4 levels \"Negative\"<\"Multi-drug-resistant (MDR)\"<..: NA NA 1 1 1 1 NA NA 1 1 ... table(out) #> out #>                         Negative       Multi-drug-resistant (MDR)  #>                             1617                              128  #> Extensively drug-resistant (XDR)          Pandrug-resistant (PDR)  #>                                0                                0   out <- mdro(example_isolates, guideline = \"EUCAST 3.3\") table(out) #> out #>              Negative Positive, unconfirmed              Positive  #>                  1994                     0                     6   # \\donttest{ if (require(\"dplyr\")) {   # no need to define `x` when used inside dplyr verbs:   example_isolates %>%     mutate(MDRO = mdro()) %>%     count(MDRO) } #> 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`) #> # A tibble: 3 × 2 #>   MDRO                           n #>   <ord>                      <int> #> 1 Negative                    1617 #> 2 Multi-drug-resistant (MDR)   128 #> 3 NA                           255 # }"},{"path":"https://amr-for-r.org/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://amr-for-r.org/reference/mean_amr_distance.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Calculate the Mean AMR Distance — mean_amr_distance","text":"","code":"mean_amr_distance(x, ...)  # S3 method for class 'sir' mean_amr_distance(x, ..., combine_SI = TRUE)  # S3 method for class 'data.frame' mean_amr_distance(x, ..., combine_SI = TRUE)  amr_distance_from_row(amr_distance, row)"},{"path":"https://amr-for-r.org/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 (.mic), starts_with(...), column1:column4, can thus also antimicrobial selectors. combine_SI logical indicate whether values S, SDD, must merged one, input consists S+vs. R (susceptible vs. resistant) - default TRUE. amr_distance outcome mean_amr_distance(). row index, row number.","code":""},{"path":"https://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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 R I R I I S R S I mean_amr_distance(sir) #>  [1]  1.1618950  1.1618950 -0.7745967  1.1618950 -0.7745967 -0.7745967 #>  [7] -0.7745967  1.1618950 -0.7745967 -0.7745967  mic <- random_mic(10) mic #> Class 'mic' #>  [1] 0.032 0.5   1     >=8   4     0.016 >=8   1     0.004 0.008 mean_amr_distance(mic) #>  [1] -0.7311752  0.2104422  0.4478776  1.1601837  0.9227483 -0.9686106 #>  [7]  1.1601837  0.4478776 -1.4434813 -1.2060459 # equal to the Z-score of their log2: (log2(mic) - mean(log2(mic))) / sd(log2(mic)) #>  [1] -0.7311752  0.2104422  0.4478776  1.1601837  0.9227483 -0.9686106 #>  [7]  1.1601837  0.4478776 -1.4434813 -1.2060459  disk <- random_disk(10) disk #> Class 'disk' #>  [1] 50 49 38 33 31 17 42 43 46 37 mean_amr_distance(disk) #>  [1]  1.15131286  1.05032051 -0.06059541 -0.56555720 -0.76754191 -2.18143490 #>  [7]  0.34337401  0.44436637  0.74734344 -0.16158777  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    I   27  >=2    8 #> 2   B    S   28    1    8 #> 3   C    R   33    1    8 #> 4   D    R   32    1   16 #> 5   E    I   25  0.5   16 #> 6   F    I   19  0.5    8 #> 7   G    S   23  0.5   16 #> 8   H    R   27  0.5    8 #> 9   I    S   29    1    8 #> 10  J    R   32  0.5   16 mean_amr_distance(y) #> ℹ Calculating mean AMR distance based on columns \"amox\", \"cipr\", \"gent\", #>   and \"tobr\" #>  [1]  0.08471751 -0.21572693  0.55391610  0.98093500 -0.26046456 -1.08721162 #>  [7] -0.37467261 -0.14625651 -0.15862291  0.62338653 y$amr_distance <- mean_amr_distance(y, is.mic(y)) #> ℹ Calculating mean AMR distance based on columns \"gent\" and \"tobr\" y[order(y$amr_distance), ] #>    id amox cipr gent tobr amr_distance #> 6   F    I   19  0.5    8   -0.8163565 #> 8   H    R   27  0.5    8   -0.8163565 #> 2   B    S   28    1    8   -0.1012596 #> 3   C    R   33    1    8   -0.1012596 #> 9   I    S   29    1    8   -0.1012596 #> 5   E    I   25  0.5   16    0.1518893 #> 7   G    S   23  0.5   16    0.1518893 #> 10  J    R   32  0.5   16    0.1518893 #> 1   A    I   27  >=2    8    0.6138374 #> 4   D    R   32    1   16    0.8669863  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   33    1    8   0.55391610 0.00000000 #> 2   J    R   32  0.5   16   0.62338653 0.06947042 #> 3   D    R   32    1   16   0.98093500 0.42701889 #> 4   A    I   27  >=2    8   0.08471751 0.46919859 #> 5   H    R   27  0.5    8  -0.14625651 0.70017262 #> 6   I    S   29    1    8  -0.15862291 0.71253901 #> 7   B    S   28    1    8  -0.21572693 0.76964304 #> 8   E    I   25  0.5   16  -0.26046456 0.81438066 #> 9   G    S   23  0.5   16  -0.37467261 0.92858871 #> 10  F    I   19  0.5    8  -1.08721162 1.64112773 if (require(\"dplyr\")) {   # support for groups   example_isolates %>%     filter(mo_genus() == \"Enterococcus\" & mo_species() != \"\") %>%     select(mo, TCY, carbapenems()) %>%     group_by(mo) %>%     mutate(dist = mean_amr_distance(.)) %>%     arrange(mo, dist) } #> ℹ Using column 'mo' as input for `mo_genus()` #> ℹ Using column 'mo' as input for `mo_species()` #> ℹ For `carbapenems()` using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ Calculating mean AMR distance based on columns \"TCY\", \"IPM\", and \"MEM\" #> # A tibble: 63 × 5 #> # Groups:   mo [4] #>    mo           TCY   IPM   MEM     dist #>    <mo>         <sir> <sir> <sir>  <dbl> #>  1 B_ENTRC_AVIM   S     S     NA   0     #>  2 B_ENTRC_AVIM   S     S     NA   0     #>  3 B_ENTRC_CSSL   NA    S     NA  NA     #>  4 B_ENTRC_FACM   S     S     NA  -2.66  #>  5 B_ENTRC_FACM   S     R     R   -0.423 #>  6 B_ENTRC_FACM   S     R     R   -0.423 #>  7 B_ENTRC_FACM   NA    R     R    0.224 #>  8 B_ENTRC_FACM   NA    R     R    0.224 #>  9 B_ENTRC_FACM   NA    R     R    0.224 #> 10 B_ENTRC_FACM   NA    R     R    0.224 #> # ℹ 53 more rows"},{"path":"https://amr-for-r.org/reference/microorganisms.codes.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with 6 036 Common Microorganism Codes — microorganisms.codes","title":"Data Set with 6 036 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://amr-for-r.org/reference/microorganisms.codes.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with 6 036 Common Microorganism Codes — microorganisms.codes","text":"","code":"microorganisms.codes"},{"path":"https://amr-for-r.org/reference/microorganisms.codes.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with 6 036 Common Microorganism Codes — microorganisms.codes","text":"tibble 6 036 observations 2 variables: code Commonly used code microorganism. unique identifier. mo ID microorganism microorganisms data set","code":""},{"path":"https://amr-for-r.org/reference/microorganisms.codes.html","id":"download-our-reference-data","dir":"Reference","previous_headings":"","what":"Download Our Reference Data","title":"Data Set with 6 036 Common Microorganism Codes — microorganisms.codes","text":"reference data sets AMR package - including information microorganisms, antimicrobials, clinical breakpoints - freely available download multiple formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. maximum compatibility, also provide machine-readable, tab-separated plain text files suitable use software, including laboratory information systems. Visit website direct download links, explore actual files GitHub repository.","code":""},{"path":[]},{"path":"https://amr-for-r.org/reference/microorganisms.codes.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with 6 036 Common Microorganism Codes — microorganisms.codes","text":"","code":"microorganisms.codes #> # A tibble: 6,036 × 2 #>    code  mo                #>    <chr> <mo>              #>  1 1011  B_GRAMP           #>  2 1012  B_GRAMP           #>  3 1013  B_GRAMN           #>  4 1014  B_GRAMN           #>  5 1015  F_YEAST           #>  6 103   B_ESCHR_COLI      #>  7 104   B_SLMNL_ENTR_ENTR #>  8 1100  B_STRPT           #>  9 1101  B_STRPT_VIRI      #> 10 1102  B_STRPT_HAEM      #> # ℹ 6,026 more rows  # 'ECO' or 'eco' is the WHONET code for E. coli: microorganisms.codes[microorganisms.codes$code == \"ECO\", ] #> # A tibble: 1 × 2 #>   code  mo           #>   <chr> <mo>         #> 1 ECO   B_ESCHR_COLI  # and therefore, 'eco' will be understood as E. coli in this package: mo_info(\"eco\") #> $mo #> [1] \"B_ESCHR_COLI\" #>  #> $rank #> [1] \"species\" #>  #> $kingdom #> [1] \"Bacteria\" #>  #> $phylum #> [1] \"Pseudomonadota\" #>  #> $class #> [1] \"Gammaproteobacteria\" #>  #> $order #> [1] \"Enterobacterales\" #>  #> $family #> [1] \"Enterobacteriaceae\" #>  #> $genus #> [1] \"Escherichia\" #>  #> $species #> [1] \"coli\" #>  #> $subspecies #> [1] \"\" #>  #> $status #> [1] \"accepted\" #>  #> $synonyms #> NULL #>  #> $gramstain #> [1] \"Gram-negative\" #>  #> $oxygen_tolerance #> [1] \"facultative anaerobe\" #>  #> $url #> [1] \"https://lpsn.dsmz.de/species/escherichia-coli\" #>  #> $ref #> [1] \"Castellani et al., 1919\" #>  #> $snomed #>  [1] \"1095001000112106\" \"715307006\"        \"737528008\"        \"416989002\"        #>  [5] \"116397003\"        \"414097009\"        \"414098004\"        \"414099007\"        #>  [9] \"414100004\"        \"116395006\"        \"735270003\"        \"116396007\"        #> [13] \"83285000\"         \"116394005\"        \"112283007\"        \"710886005\"        #> [17] \"710887001\"        \"710888006\"        \"710889003\"        \"414132004\"        #> [21] \"721892009\"        \"416812001\"        \"416740004\"        \"417216001\"        #> [25] \"457541006\"        \"710253004\"        \"416530004\"        \"417189006\"        #> [29] \"409800005\"        \"713925008\"        \"444771000124108\"  \"838549008\"        #>  #> $lpsn #> [1] \"776057\" #>  #> $mycobank #> [1] NA #>  #> $gbif #> [1] \"11286021\" #>  #> $group_members #> character(0) #>   # works for all AMR functions: mo_is_intrinsic_resistant(\"eco\", ab = \"vancomycin\") #> [1] TRUE"},{"path":"https://amr-for-r.org/reference/microorganisms.groups.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with 534 Microorganisms In Species Groups — microorganisms.groups","title":"Data Set with 534 Microorganisms In Species Groups — microorganisms.groups","text":"data set containing species groups microbiological complexes, used clinical breakpoints table.","code":""},{"path":"https://amr-for-r.org/reference/microorganisms.groups.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with 534 Microorganisms In Species Groups — microorganisms.groups","text":"","code":"microorganisms.groups"},{"path":"https://amr-for-r.org/reference/microorganisms.groups.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with 534 Microorganisms In Species Groups — microorganisms.groups","text":"tibble 534 observations 4 variables: mo_group ID species group / microbiological complex mo ID microorganism belonging species group / microbiological complex mo_group_name Name species group / microbiological complex, retrieved mo_name() mo_name Name microorganism belonging species group / microbiological complex, retrieved mo_name()","code":""},{"path":"https://amr-for-r.org/reference/microorganisms.groups.html","id":"download-our-reference-data","dir":"Reference","previous_headings":"","what":"Download Our Reference Data","title":"Data Set with 534 Microorganisms In Species Groups — microorganisms.groups","text":"reference data sets AMR package - including information microorganisms, antimicrobials, clinical breakpoints - freely available download multiple formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. maximum compatibility, also provide machine-readable, tab-separated plain text files suitable use software, including laboratory information systems. Visit website direct download links, explore actual files GitHub repository.","code":""},{"path":[]},{"path":"https://amr-for-r.org/reference/microorganisms.groups.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with 534 Microorganisms In Species Groups — microorganisms.groups","text":"","code":"microorganisms.groups #> # A tibble: 534 × 4 #>    mo_group       mo           mo_group_name                   mo_name           #>    <mo>           <mo>         <chr>                           <chr>             #>  1 B_ACNTB_BMNN-C B_ACNTB_BMNN Acinetobacter baumannii complex Acinetobacter ba… #>  2 B_ACNTB_BMNN-C B_ACNTB_CLCC Acinetobacter baumannii complex Acinetobacter ca… #>  3 B_ACNTB_BMNN-C B_ACNTB_LCTC Acinetobacter baumannii complex Acinetobacter di… #>  4 B_ACNTB_BMNN-C B_ACNTB_NSCM Acinetobacter baumannii complex Acinetobacter no… #>  5 B_ACNTB_BMNN-C B_ACNTB_PITT Acinetobacter baumannii complex Acinetobacter pi… #>  6 B_ACNTB_BMNN-C B_ACNTB_SFRT Acinetobacter baumannii complex Acinetobacter se… #>  7 B_BCTRD_FRGL-C B_BCTRD_FRGL Bacteroides fragilis complex    Bacteroides frag… #>  8 B_BCTRD_FRGL-C B_BCTRD_OVTS Bacteroides fragilis complex    Bacteroides ovat… #>  9 B_BCTRD_FRGL-C B_BCTRD_THTT Bacteroides fragilis complex    Bacteroides thet… #> 10 B_BCTRD_FRGL-C B_PHCCL_VLGT Bacteroides fragilis complex    Bacteroides vulg… #> # ℹ 524 more rows  # these are all species in the Bacteroides fragilis group, as per WHONET: microorganisms.groups[microorganisms.groups$mo_group == \"B_BCTRD_FRGL-C\", ] #> # A tibble: 5 × 4 #>   mo_group       mo           mo_group_name                mo_name               #>   <mo>           <mo>         <chr>                        <chr>                 #> 1 B_BCTRD_FRGL-C B_BCTRD_FRGL Bacteroides fragilis complex Bacteroides fragilis  #> 2 B_BCTRD_FRGL-C B_BCTRD_OVTS Bacteroides fragilis complex Bacteroides ovatus    #> 3 B_BCTRD_FRGL-C B_BCTRD_THTT Bacteroides fragilis complex Bacteroides thetaiot… #> 4 B_BCTRD_FRGL-C B_PHCCL_VLGT Bacteroides fragilis complex Bacteroides vulgatus  #> 5 B_BCTRD_FRGL-C B_PRBCT_DSTS Bacteroides fragilis complex Parabacteroides dist…"},{"path":"https://amr-for-r.org/reference/microorganisms.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with 78 679 Taxonomic Records of Microorganisms — microorganisms","title":"Data Set with 78 679 Taxonomic Records of Microorganisms — microorganisms","text":"data set containing full microbial taxonomy (last updated: June 24th, 2024) six kingdoms. data set backbone AMR package. MO codes can looked using .mo() microorganism properties can looked using mo_* functions. data set carefully crafted, yet made 100% reproducible public authoritative taxonomic sources (using script), namely: List Prokaryotic names Standing Nomenclature (LPSN) bacteria, MycoBank fungi, Global Biodiversity Information Facility (GBIF) others taxons.","code":""},{"path":"https://amr-for-r.org/reference/microorganisms.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with 78 679 Taxonomic Records of Microorganisms — microorganisms","text":"","code":"microorganisms"},{"path":"https://amr-for-r.org/reference/microorganisms.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with 78 679 Taxonomic Records of Microorganisms — microorganisms","text":"tibble 78 679 observations 26 variables: mo ID microorganism used package. unique identifier. fullname Full name, like \"Escherichia coli\". taxonomic ranks genus, species subspecies, 'pasted' text genus, species, subspecies. taxonomic ranks higher genus, name taxon. unique identifier. status  Status taxon, either \"accepted\", \"validly published\", \"synonym\", \"unknown\" kingdom, phylum, class, order, family, genus, species, subspecies Taxonomic rank microorganism. Note fungi, phylum equal taxonomic division. Also, fungi, subkingdom subdivision left since occur bacterial taxonomy. rank Text taxonomic rank microorganism, \"species\" \"genus\" ref Author(s) year related scientific publication. contains first surname year latest authors, e.g. \"Wallis et al. 2006 emend. Smith Jones 2018\" becomes \"Smith et al., 2018\". field directly retrieved source specified column source. Moreover, accents removed comply CRAN allows ASCII characters. oxygen_tolerance  Oxygen tolerance, either \"aerobe\", \"anaerobe\", \"anaerobe/microaerophile\", \"facultative anaerobe\", \"likely facultative anaerobe\", \"microaerophile\". data retrieved BacDive (see Source). Items contain \"likely\" missing BacDive extrapolated species within genus guess oxygen tolerance. Currently 68.3% ~39 000 bacteria data set contain oxygen tolerance. source Either \"GBIF\", \"LPSN\", \"Manually added\", \"MycoBank\", \"manually added\" (see Source) lpsn Identifier ('Record number') List Prokaryotic names Standing Nomenclature (LPSN). first/highest LPSN identifier keep one identifier per row. example, Acetobacter ascendens LPSN Record number 7864 11011. first available microorganisms data set. unique identifier, though available ~33 000 records. lpsn_parent LPSN identifier parent taxon lpsn_renamed_to LPSN identifier currently valid taxon mycobank Identifier ('MycoBank #') MycoBank. unique identifier, though available ~19 000 records. mycobank_parent MycoBank identifier parent taxon mycobank_renamed_to MycoBank identifier currently valid taxon gbif Identifier ('taxonID') Global Biodiversity Information Facility (GBIF). unique identifier, though available ~49 000 records. gbif_parent GBIF identifier parent taxon gbif_renamed_to GBIF identifier currently valid taxon prevalence Prevalence microorganism based Bartlett et al. (2022, doi:10.1099/mic.0.001269 ), see mo_matching_score() full explanation snomed Systematized Nomenclature Medicine (SNOMED) code microorganism, version July 16th, 2024 (see Source). Use mo_snomed() retrieve quickly, see mo_property().","code":""},{"path":"https://amr-for-r.org/reference/microorganisms.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Data Set with 78 679 Taxonomic Records of Microorganisms — microorganisms","text":"Taxonomic entries imported order importance: List Prokaryotic names Standing Nomenclature (LPSN): Parte, AC et al. (2020). List Prokaryotic names Standing Nomenclature (LPSN) moves DSMZ. International Journal Systematic Evolutionary Microbiology, 70, 5607-5612; doi:10.1099/ijsem.0.004332 . Accessed https://lpsn.dsmz.de June 24th, 2024. MycoBank: Vincent, R et al (2013). MycoBank gearing new horizons. IMA Fungus, 4(2), 371-9; doi:10.5598/imafungus.2013.04.02.16 . Accessed https://www.mycobank.org June 24th, 2024. Global Biodiversity Information Facility (GBIF): GBIF Secretariat (2023). GBIF Backbone Taxonomy. Checklist dataset doi:10.15468/39omei . Accessed https://www.gbif.org June 24th, 2024. Furthermore, sources used additional details: BacDive: Reimer, LC et al. (2022). BacDive 2022: knowledge base standardized bacterial archaeal data. Nucleic Acids Res., 50(D1):D741-D74; doi:10.1093/nar/gkab961 . Accessed https://bacdive.dsmz.de July 16th, 2024. Systematized Nomenclature Medicine - Clinical Terms (SNOMED-CT): Public Health Information Network Vocabulary Access Distribution System (PHIN VADS). US Edition SNOMED CT 1 September 2020. Value Set Name 'Microorganism', OID 2.16.840.1.114222.4.11.1009 (v12). Accessed https://www.cdc.gov/phin/php/phinvads/ July 16th, 2024. Grimont et al. (2007). Antigenic Formulae Salmonella Serovars, 9th Edition. Collaborating Centre Reference Research Salmonella (WHOCC-SALM). Bartlett et al. (2022). comprehensive list bacterial pathogens infecting humans Microbiology 168:001269; doi:10.1099/mic.0.001269","code":""},{"path":"https://amr-for-r.org/reference/microorganisms.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with 78 679 Taxonomic Records of Microorganisms — microorganisms","text":"Please note entries based LPSN, MycoBank, GBIF (see ). Since sources incorporate entries based (recent) publications International Journal Systematic Evolutionary Microbiology (IJSEM), can happen year publication sometimes later one might expect. example, Staphylococcus pettenkoferi described first time Diagnostic Microbiology Infectious Disease 2002 (doi:10.1016/s0732-8893(02)00399-1 ), 2007 publication IJSEM followed (doi:10.1099/ijs.0.64381-0 ). Consequently, AMR package returns 2007 mo_year(\"S. pettenkoferi\").","code":""},{"path":"https://amr-for-r.org/reference/microorganisms.html","id":"included-taxa","dir":"Reference","previous_headings":"","what":"Included Taxa","title":"Data Set with 78 679 Taxonomic Records of Microorganisms — microorganisms","text":"Included taxonomic data LPSN, MycoBank, GBIF : ~39 000 (sub)species kingdoms Archaea Bacteria ~28 000 species kingdom Fungi. kingdom Fungi large taxon almost 300,000 different (sub)species, microbial (rather macroscopic, like mushrooms). , fungi fit scope package. relevant fungi covered (species Aspergillus, Candida, Cryptococcus, Histoplasma, Pneumocystis, Saccharomyces Trichophyton). ~8 100 (sub)species kingdom Protozoa ~1 600 (sub)species 39 relevant genera kingdom Animalia (Strongyloides Taenia) ~26 000 previously accepted names included (sub)species (taxonomically renamed) complete taxonomic tree included (sub)species: kingdom subspecies identifier parent taxons year first author related scientific publication","code":""},{"path":"https://amr-for-r.org/reference/microorganisms.html","id":"manual-additions","dir":"Reference","previous_headings":"","what":"Manual additions","title":"Data Set with 78 679 Taxonomic Records of Microorganisms — microorganisms","text":"convenience, entries added manually: ~1 500 entries Salmonella, city-like serovars groups H 37 species groups (beta-haemolytic Streptococcus groups K, coagulase-negative Staphylococcus (CoNS), Mycobacterium tuberculosis complex, etc.), group compositions stored microorganisms.groups data set 1 entry Blastocystis (B.  hominis), although officially exist (Noel et al. 2005, PMID 15634993) 1 entry Moraxella (M. catarrhalis), formally named Branhamella catarrhalis (Catlin, 1970) though change never accepted within field clinical microbiology 8 'undefined' entries (unknown, unknown Gram-negatives, unknown Gram-positives, unknown yeast, unknown fungus, unknown anaerobic Gram-pos/Gram-neg bacteria) syntax used transform original data cleansed R format, can found .","code":""},{"path":"https://amr-for-r.org/reference/microorganisms.html","id":"download-our-reference-data","dir":"Reference","previous_headings":"","what":"Download Our Reference Data","title":"Data Set with 78 679 Taxonomic Records of Microorganisms — microorganisms","text":"reference data sets AMR package - including information microorganisms, antimicrobials, clinical breakpoints - freely available download multiple formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. maximum compatibility, also provide machine-readable, tab-separated plain text files suitable use software, including laboratory information systems. Visit website direct download links, explore actual files GitHub repository.","code":""},{"path":[]},{"path":"https://amr-for-r.org/reference/microorganisms.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with 78 679 Taxonomic Records of Microorganisms — microorganisms","text":"","code":"microorganisms #> # A tibble: 78,679 × 26 #>    mo          fullname   status kingdom phylum class order family genus species #>    <mo>        <chr>      <chr>  <chr>   <chr>  <chr> <chr> <chr>  <chr> <chr>   #>  1 B_GRAMN     (unknown … unkno… Bacter… (unkn… (unk… (unk… \"(unk… (unk… \"(unkn… #>  2 B_GRAMP     (unknown … unkno… Bacter… (unkn… (unk… (unk… \"(unk… (unk… \"(unkn… #>  3 B_ANAER-NEG (unknown … unkno… Bacter… (unkn… (unk… (unk… \"(unk… (unk… \"(unkn… #>  4 B_ANAER-POS (unknown … unkno… Bacter… (unkn… (unk… (unk… \"(unk… (unk… \"(unkn… #>  5 B_ANAER     (unknown … unkno… Bacter… (unkn… (unk… (unk… \"(unk… (unk… \"(unkn… #>  6 F_FUNGUS    (unknown … unkno… Fungi   (unkn… (unk… (unk… \"(unk… (unk… \"(unkn… #>  7   UNKNOWN   (unknown … unkno… (unkno… (unkn… (unk… (unk… \"(unk… (unk… \"(unkn… #>  8 P_PROTOZOAN (unknown … unkno… Protoz… (unkn… (unk… (unk… \"(unk… (unk… \"(unkn… #>  9 F_YEAST     (unknown … unkno… Fungi   (unkn… (unk… (unk… \"(unk… (unk… \"(unkn… #> 10 F_AABRN     Aabaarnia  unkno… Fungi   Ascom… Leca… Ostr… \"\"     Aaba… \"\"      #> # ℹ 78,669 more rows #> # ℹ 16 more variables: subspecies <chr>, rank <chr>, ref <chr>, #> #   oxygen_tolerance <chr>, source <chr>, lpsn <chr>, lpsn_parent <chr>, #> #   lpsn_renamed_to <chr>, mycobank <chr>, mycobank_parent <chr>, #> #   mycobank_renamed_to <chr>, gbif <chr>, gbif_parent <chr>, #> #   gbif_renamed_to <chr>, prevalence <dbl>, snomed <list>"},{"path":"https://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/reference/mo_matching_score.html","id":"note","dir":"Reference","previous_headings":"","what":"Note","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"algorithm originally developed 2018 subsequently described : Berends MS et al. (2022). AMR: R Package Working Antimicrobial Resistance Data. Journal Statistical Software, 104(3), 1-31; doi:10.18637/jss.v104.i03 . Later, work Bartlett et al. bacterial pathogens infecting humans (2022, doi:10.1099/mic.0.001269 ) incorporated, optimalisations algorithm made.","code":""},{"path":"https://amr-for-r.org/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 : $$m_{(x, n)} = \\frac{l_{n} - 0.5 \\cdot \\min \\begin{cases}l_{n} \\\\ \\textrm{lev}(x, n)\\end{cases}}{l_{n} \\cdot p_{n} \\cdot k_{n}}$$ : \\(x\\) user input; \\(n\\) taxonomic name (genus, species, subspecies); \\(l_n\\) length \\(n\\); \\(lev\\) Levenshtein distance function (counting insertion 1, deletion substitution 2) needed change \\(x\\) \\(n\\); \\(p_n\\) human pathogenic prevalence group \\(n\\), described ; \\(k_n\\) taxonomic kingdom \\(n\\), set Bacteria = 1, Fungi = 1.25, Protozoa = 1.5, Chromista = 1.75, Archaea = 2, others = 3. grouping human pathogenic prevalence \\(p\\) based recent work Bartlett et al. (2022, doi:10.1099/mic.0.001269 ) extensively studied medical-scientific literature categorise bacterial species groups: Established, taxonomic species infected least three persons three references. records prevalence = 1.15 microorganisms data set; Putative, taxonomic species fewer three known cases. records prevalence = 1.25 microorganisms data set. Furthermore, Genera World Health Organization's () Priority Pathogen List prevalence = 1.0 microorganisms data set; genus present established list also prevalence = 1.15 microorganisms data set; genus present putative list prevalence = 1.25 microorganisms data set; species subspecies genus present two aforementioned groups, prevalence = 1.5 microorganisms data set; non-bacterial genus, species subspecies genus present following list, prevalence = 1.25 microorganisms data set: Absidia, Acanthamoeba, Acremonium, Actinomucor, Aedes, Alternaria, Amoeba, Ancylostoma, Angiostrongylus, Anisakis, Anopheles, Apophysomyces, Arthroderma, Aspergillus, Aureobasidium, Basidiobolus, Beauveria, Bipolaris, Blastobotrys, Blastocystis, Blastomyces, Candida, Capillaria, Chaetomium, Chilomastix, Chrysonilia, Chrysosporium, Cladophialophora, Cladosporium, Clavispora, Coccidioides, Cokeromyces, Conidiobolus, Coniochaeta, Contracaecum, Cordylobia, Cryptococcus, Cryptosporidium, Cunninghamella, Curvularia, Cyberlindnera, Debaryozyma, Demodex, Dermatobia, Dientamoeba, Diphyllobothrium, Dirofilaria, Echinostoma, Entamoeba, Enterobius, Epidermophyton, Exidia, Exophiala, Exserohilum, Fasciola, Fonsecaea, Fusarium, Geotrichum, Giardia, Graphium, Haloarcula, Halobacterium, Halococcus, Hansenula, Hendersonula, Heterophyes, Histomonas, Histoplasma, Hortaea, Hymenolepis, Hypomyces, Hysterothylacium, Kloeckera, Kluyveromyces, Kodamaea, Lacazia, Leishmania, Lichtheimia, Lodderomyces, Lomentospora, Madurella, Malassezia, Malbranchea, Metagonimus, Meyerozyma, Microsporidium, Microsporum, Millerozyma, Mortierella, Mucor, Mycocentrospora, Nannizzia, Necator, Nectria, Ochroconis, Oesophagostomum, Oidiodendron, Opisthorchis, Paecilomyces, Paracoccidioides, Pediculus, Penicillium, Phaeoacremonium, Phaeomoniella, Phialophora, Phlebotomus, Phoma, Pichia, Piedraia, Pithomyces, Pityrosporum, Pneumocystis, Pseudallescheria, Pseudoscopulariopsis, Pseudoterranova, Pulex, Purpureocillium, Quambalaria, Rhinocladiella, Rhizomucor, Rhizopus, Rhodotorula, Saccharomyces, Saksenaea, Saprochaete, Sarcoptes, Scedosporium, Schistosoma, Schizosaccharomyces, Scolecobasidium, Scopulariopsis, Scytalidium, Spirometra, Sporobolomyces, Sporopachydermia, Sporothrix, Sporotrichum, Stachybotrys, Strongyloides, Syncephalastrum, Syngamus, Taenia, Talaromyces, Teleomorph, Toxocara, Trichinella, Trichobilharzia, Trichoderma, Trichomonas, Trichophyton, Trichosporon, Trichostrongylus, Trichuris, Tritirachium, Trombicula, Trypanosoma, Tunga, Ulocladium, Ustilago, Verticillium, Wallemia, Wangiella, Wickerhamomyces, Wuchereria, Yarrowia, Zygosaccharomyces; records prevalence = 2.0 microorganisms data set. calculating matching score, characters \\(x\\) \\(n\\) ignored -Z, -z, 0-9, spaces parentheses. matches sorted descending matching score user input values, top match returned. lead effect e.g., \"E. coli\" return microbial ID Escherichia coli (\\(m = 0.688\\), highly prevalent microorganism found humans) Entamoeba coli (\\(m = 0.381\\), less prevalent microorganism humans), although latter alphabetically come first.","code":""},{"path":"https://amr-for-r.org/reference/mo_matching_score.html","id":"download-our-reference-data","dir":"Reference","previous_headings":"","what":"Download Our Reference Data","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"reference data sets AMR package - including information microorganisms, antimicrobials, clinical breakpoints - freely available download multiple formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. maximum compatibility, also provide machine-readable, tab-separated plain text files suitable use software, including laboratory information systems. Visit website direct download links, explore actual files GitHub repository.","code":""},{"path":"https://amr-for-r.org/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`. #> Colour keys:  0.000-0.549  0.550-0.649  0.650-0.749  0.750-1.000  #>  #> -------------------------------------------------------------------------------- #> \"E. coli\" -> Escherichia coli (B_ESCHR_COLI, 0.688) #> Also matched: Enterococcus crotali (0.650), Escherichia coli coli #>               (0.643), Escherichia coli expressing (0.611), Enterobacter cowanii #>               (0.600), Enterococcus columbae (0.595), Enterococcus camelliae (0.591), #>               Enterococcus casseliflavus (0.577), Enterobacter cloacae cloacae #>               (0.571), Enterobacter cloacae complex (0.571), and Enterobacter cloacae #>               dissolvens (0.565) #>  #> Only the first 10 other matches of each record are shown. Run #> `print(mo_uncertainties(), n = ...)` to view more entries, or save #> `mo_uncertainties()` to an object.  mo_matching_score(   x = \"E. coli\",   n = c(\"Escherichia coli\", \"Entamoeba coli\") ) #> [1] 0.6875000 0.3809524"},{"path":"https://amr-for-r.org/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://amr-for-r.org/reference/mo_property.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Get Properties of a Microorganism — mo_property","text":"","code":"mo_name(x, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_fullname(x, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_shortname(x, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_subspecies(x, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_species(x, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_genus(x, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_family(x, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_order(x, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_class(x, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_phylum(x, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_kingdom(x, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_domain(x, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_type(x, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_status(x, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_pathogenicity(x, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_gramstain(x, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_is_gram_negative(x, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_is_gram_positive(x, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_is_yeast(x, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_is_intrinsic_resistant(x, ab, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_oxygen_tolerance(x, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_is_anaerobic(x, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_snomed(x, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_ref(x, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_authors(x, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_year(x, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_lpsn(x, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_mycobank(x, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_gbif(x, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_rank(x, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_taxonomy(x, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_synonyms(x, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_current(x, language = get_AMR_locale(), ...)  mo_group_members(x, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_info(x, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_url(x, open = FALSE, language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)  mo_property(x, property = \"fullname\", language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE), ...)"},{"path":"https://amr-for-r.org/reference/mo_property.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Get Properties of a Microorganism — mo_property","text":"x character (vector) can coerced valid microorganism code .mo(). Can left blank auto-guessing column containing microorganism codes used data set, see Examples. language Language translate text like \"growth\", defaults system language (see get_AMR_locale()). keep_synonyms logical indicate old, previously valid taxonomic names must preserved corrected currently accepted names. default FALSE, return note old taxonomic names processed. default can set package option AMR_keep_synonyms, .e. options(AMR_keep_synonyms = TRUE) options(AMR_keep_synonyms = FALSE). ... arguments passed .mo(), 'minimum_matching_score', 'ignore_pattern', 'remove_from_input'. ab (vector ) text can coerced valid antibiotic drug code .ab(). open Browse URL using browseURL(). property One column names microorganisms data set: \"mo\", \"fullname\", \"status\", \"kingdom\", \"phylum\", \"class\", \"order\", \"family\", \"genus\", \"species\", \"subspecies\", \"rank\", \"ref\", \"oxygen_tolerance\", \"source\", \"lpsn\", \"lpsn_parent\", \"lpsn_renamed_to\", \"mycobank\", \"mycobank_parent\", \"mycobank_renamed_to\", \"gbif\", \"gbif_parent\", \"gbif_renamed_to\", \"prevalence\", \"snomed\", must \"shortname\".","code":""},{"path":"https://amr-for-r.org/reference/mo_property.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Get Properties of a Microorganism — mo_property","text":"integer case mo_year() ordered factor case mo_pathogenicity() list case mo_taxonomy(), mo_synonyms(), mo_snomed(), mo_info() logical case mo_is_anaerobic(), mo_is_gram_negative(), mo_is_gram_positive(), mo_is_intrinsic_resistant(), mo_is_yeast() named character case mo_synonyms() mo_url() character cases","code":""},{"path":"https://amr-for-r.org/reference/mo_property.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Get Properties of a Microorganism — mo_property","text":"functions , default, keep old taxonomic properties, synonyms automatically replaced current taxonomy. Take example Enterobacter aerogenes, initially named 1960 renamed Klebsiella aerogenes 2017: mo_genus(\"Enterobacter aerogenes\") return \"Klebsiella\" (note renaming) mo_genus(\"Enterobacter aerogenes\", keep_synonyms = TRUE) return \"Enterobacter\" (-per-session warning name outdated) mo_ref(\"Enterobacter aerogenes\") return \"Tindall et al., 2017\" (note renaming) mo_ref(\"Enterobacter aerogenes\", keep_synonyms = TRUE) return \"Hormaeche et al., 1960\" (-per-session warning name outdated) short name (mo_shortname()) returns first character genus full species, \"E. coli\", species subspecies. Exceptions abbreviations staphylococci (\"CoNS\", Coagulase-Negative Staphylococci) beta-haemolytic streptococci (\"GBS\", Group B Streptococci). Please bear mind e.g. E. coli mean Escherichia coli (kingdom Bacteria) well Entamoeba coli (kingdom Protozoa). Returning full name done using .mo() internally, giving priority bacteria human pathogens, .e. \"E. coli\" considered Escherichia coli. result, mo_fullname(mo_shortname(\"Entamoeba coli\")) returns \"Escherichia coli\". Since top-level taxonomy sometimes referred 'kingdom' sometimes 'domain', functions mo_kingdom() mo_domain() return exact results. Determination human pathogenicity (mo_pathogenicity()) strongly based Bartlett et al. (2022, doi:10.1099/mic.0.001269 ). function returns factor levels Pathogenic, Potentially pathogenic, Non-pathogenic, Unknown. Determination Gram stain (mo_gramstain()) based taxonomic kingdom phylum. Originally, Cavalier-Smith defined -called subkingdoms Negibacteria Posibacteria (2002, PMID 11837318), considered phyla Posibacteria: Actinobacteria, Chloroflexi, Firmicutes, Tenericutes. phyla later renamed Actinomycetota, Chloroflexota, Bacillota, Mycoplasmatota (2021, PMID 34694987). Bacteria phyla considered Gram-positive AMR package, except members class Negativicutes (within phylum Bacillota) Gram-negative. bacteria considered Gram-negative. Species outside kingdom Bacteria return value NA. Functions mo_is_gram_negative() mo_is_gram_positive() always return TRUE FALSE (NA input NA MO code UNKNOWN), thus always return FALSE species outside taxonomic kingdom Bacteria. Determination yeasts (mo_is_yeast()) based taxonomic kingdom class. Budding yeasts yeasts reproduce asexually process called budding, new cell develops small protrusion parent cell. Taxonomically, members phylum Ascomycota, class Saccharomycetes (also called Hemiascomycetes) Pichiomycetes. True yeasts quite specifically refers yeasts underlying order Saccharomycetales (Saccharomyces cerevisiae). Thus, microorganisms member taxonomic class Saccharomycetes Pichiomycetes, function return TRUE. returns FALSE otherwise (NA input NA MO code UNKNOWN). Determination intrinsic resistance (mo_is_intrinsic_resistant()) based intrinsic_resistant data set, based 'EUCAST Expected Resistant Phenotypes' v1.2 (2023). mo_is_intrinsic_resistant() function can vectorised argument x (input microorganisms) ab (input antimicrobials). Determination bacterial oxygen tolerance (mo_oxygen_tolerance()) based BacDive, see Source. function mo_is_anaerobic() returns TRUE oxygen tolerance \"anaerobe\", indicting obligate anaerobic species genus. always returns FALSE species outside taxonomic kingdom Bacteria. function mo_url() return direct URL online database entry, also shows scientific reference concerned species. MycoBank URL used fungi wherever available , LPSN URL bacteria wherever available, GBIF link otherwise. SNOMED codes (mo_snomed()) last updated July 16th, 2024. See Source microorganisms data set info. Old taxonomic names (-called 'synonyms') can retrieved mo_synonyms() (scientific reference name), current taxonomic name can retrieved mo_current(). functions return full names. output translated possible.","code":""},{"path":"https://amr-for-r.org/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://amr-for-r.org/reference/mo_property.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Get Properties of a Microorganism — mo_property","text":"Berends MS et al. (2022). AMR: R Package Working Antimicrobial Resistance Data. Journal Statistical Software, 104(3), 1-31; doi:10.18637/jss.v104.i03 Parte, AC et al. (2020). List Prokaryotic names Standing Nomenclature (LPSN) moves DSMZ. International Journal Systematic Evolutionary Microbiology, 70, 5607-5612; doi:10.1099/ijsem.0.004332 . Accessed https://lpsn.dsmz.de June 24th, 2024. Vincent, R et al (2013). MycoBank gearing new horizons. IMA Fungus, 4(2), 371-9; doi:10.5598/imafungus.2013.04.02.16 . Accessed https://www.mycobank.org June 24th, 2024. GBIF Secretariat (2023). GBIF Backbone Taxonomy. Checklist dataset doi:10.15468/39omei . Accessed https://www.gbif.org June 24th, 2024. Reimer, LC et al. (2022). BacDive 2022: knowledge base standardized bacterial archaeal data. Nucleic Acids Res., 50(D1):D741-D74; doi:10.1093/nar/gkab961 . Accessed https://bacdive.dsmz.de July 16th, 2024. Public Health Information Network Vocabulary Access Distribution System (PHIN VADS). US Edition SNOMED CT 1 September 2020. Value Set Name 'Microorganism', OID 2.16.840.1.114222.4.11.1009 (v12). URL: https://www.cdc.gov/phin/php/phinvads/ Bartlett et al. (2022). comprehensive list bacterial pathogens infecting humans Microbiology 168:001269; doi:10.1099/mic.0.001269","code":""},{"path":"https://amr-for-r.org/reference/mo_property.html","id":"download-our-reference-data","dir":"Reference","previous_headings":"","what":"Download Our Reference Data","title":"Get Properties of a Microorganism — mo_property","text":"reference data sets AMR package - including information microorganisms, antimicrobials, clinical breakpoints - freely available download multiple formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, Stata. maximum compatibility, also provide machine-readable, tab-separated plain text files suitable use software, including laboratory information systems. Visit website direct download links, explore actual files GitHub repository.","code":""},{"path":[]},{"path":"https://amr-for-r.org/reference/mo_property.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Get Properties of a Microorganism — mo_property","text":"","code":"# taxonomic tree -----------------------------------------------------------  mo_kingdom(\"Klebsiella pneumoniae\") #> [1] \"Bacteria\" mo_phylum(\"Klebsiella pneumoniae\") #> [1] \"Pseudomonadota\" mo_class(\"Klebsiella pneumoniae\") #> [1] \"Gammaproteobacteria\" mo_order(\"Klebsiella pneumoniae\") #> [1] \"Enterobacterales\" mo_family(\"Klebsiella pneumoniae\") #> [1] \"Enterobacteriaceae\" mo_genus(\"Klebsiella pneumoniae\") #> [1] \"Klebsiella\" mo_species(\"Klebsiella pneumoniae\") #> [1] \"pneumoniae\" mo_subspecies(\"Klebsiella pneumoniae\") #> [1] \"\"   # full names and short names -----------------------------------------------  mo_name(\"Klebsiella pneumoniae\") #> [1] \"Klebsiella pneumoniae\" mo_fullname(\"Klebsiella pneumoniae\") #> [1] \"Klebsiella pneumoniae\" mo_shortname(\"Klebsiella pneumoniae\") #> [1] \"K. pneumoniae\"   # other properties ---------------------------------------------------------  mo_pathogenicity(\"Klebsiella pneumoniae\") #> [1] Pathogenic #> Levels: Pathogenic < Potentially pathogenic < Non-pathogenic < Unknown mo_gramstain(\"Klebsiella pneumoniae\") #> [1] \"Gram-negative\" mo_snomed(\"Klebsiella pneumoniae\") #> [[1]] #> [1] \"1098101000112102\" \"446870005\"        \"1098201000112108\" \"409801009\"        #> [5] \"56415008\"         \"714315002\"        \"713926009\"        #>  mo_type(\"Klebsiella pneumoniae\") #> [1] \"Bacteria\" mo_rank(\"Klebsiella pneumoniae\") #> [1] \"species\" mo_url(\"Klebsiella pneumoniae\") #>                                Klebsiella pneumoniae  #> \"https://lpsn.dsmz.de/species/klebsiella-pneumoniae\"  mo_is_yeast(c(\"Candida\", \"Trichophyton\", \"Klebsiella\")) #> [1]  TRUE FALSE FALSE  mo_group_members(c(   \"Streptococcus group A\",   \"Streptococcus group C\",   \"Streptococcus group G\",   \"Streptococcus group L\" )) #> $`Streptococcus Group A` #> [1] \"Streptococcus pyogenes\" #>  #> $`Streptococcus Group C` #> [1] \"Streptococcus dysgalactiae\"              #> [2] \"Streptococcus dysgalactiae dysgalactiae\" #> [3] \"Streptococcus dysgalactiae equisimilis\"  #> [4] \"Streptococcus equi\"                      #> [5] \"Streptococcus equi equi\"                 #> [6] \"Streptococcus equi ruminatorum\"          #> [7] \"Streptococcus equi zooepidemicus\"        #>  #> $`Streptococcus Group G` #> [1] \"Streptococcus canis\"                     #> [2] \"Streptococcus dysgalactiae\"              #> [3] \"Streptococcus dysgalactiae dysgalactiae\" #> [4] \"Streptococcus dysgalactiae equisimilis\"  #>  #> $`Streptococcus Group L` #> [1] \"Streptococcus dysgalactiae\"              #> [2] \"Streptococcus dysgalactiae dysgalactiae\" #> [3] \"Streptococcus dysgalactiae equisimilis\"  #>    # scientific reference -----------------------------------------------------  mo_ref(\"Klebsiella aerogenes\") #> [1] \"Tindall et al., 2017\" mo_authors(\"Klebsiella aerogenes\") #> [1] \"Tindall et al.\" mo_year(\"Klebsiella aerogenes\") #> [1] 2017 mo_synonyms(\"Klebsiella aerogenes\") #>   Hormaeche et al., 1960     Bascomb et al., 1971  #> \"Enterobacter aerogenes\"     \"Klebsiella mobilis\"  mo_lpsn(\"Klebsiella aerogenes\") #> [1] \"777146\" mo_gbif(\"Klebsiella aerogenes\") #> [1] \"9281703\" mo_mycobank(\"Candida albicans\") #> [1] \"256187\" mo_mycobank(\"Candida krusei\") #> [1] \"337013\" mo_mycobank(\"Candida krusei\", keep_synonyms = TRUE) #> Warning: Function `as.mo()` returned one old taxonomic name. Use `as.mo(..., #> keep_synonyms = FALSE)` to clean the input to currently accepted taxonomic #> names, or set the R option `AMR_keep_synonyms` to `FALSE`. This warning #> will be shown once per session. #> [1] \"268707\"   # abbreviations known in the field -----------------------------------------  mo_genus(\"MRSA\") #> [1] \"Staphylococcus\" mo_species(\"MRSA\") #> [1] \"aureus\" mo_shortname(\"VISA\") #> [1] \"S. aureus\" mo_gramstain(\"VISA\") #> [1] \"Gram-positive\"  mo_genus(\"EHEC\") #> [1] \"Escherichia\" mo_species(\"EIEC\") #> [1] \"coli\" mo_name(\"UPEC\") #> [1] \"Escherichia coli\"   # known subspecies ---------------------------------------------------------  mo_fullname(\"K. pneu rh\") #> [1] \"Klebsiella pneumoniae rhinoscleromatis\" mo_shortname(\"K. pneu rh\") #> [1] \"K. pneumoniae\"  # \\donttest{ # Becker classification, see ?as.mo ----------------------------------------  mo_fullname(\"Staph epidermidis\") #> [1] \"Staphylococcus epidermidis\" mo_fullname(\"Staph epidermidis\", Becker = TRUE) #> [1] \"Coagulase-negative Staphylococcus (CoNS)\" mo_shortname(\"Staph epidermidis\") #> [1] \"S. epidermidis\" mo_shortname(\"Staph epidermidis\", Becker = TRUE) #> [1] \"CoNS\"   # Lancefield classification, see ?as.mo ------------------------------------  mo_fullname(\"Strep agalactiae\") #> [1] \"Streptococcus agalactiae\" mo_fullname(\"Strep agalactiae\", Lancefield = TRUE) #> [1] \"Streptococcus Group B\" mo_shortname(\"Strep agalactiae\") #> [1] \"S. agalactiae\" mo_shortname(\"Strep agalactiae\", Lancefield = TRUE) #> [1] \"GBS\"   # language support  --------------------------------------------------------  mo_gramstain(\"Klebsiella pneumoniae\", language = \"de\") # German #> [1] \"Gram-negative\" mo_gramstain(\"Klebsiella pneumoniae\", language = \"nl\") # Dutch #> [1] \"Gram-negative\" mo_gramstain(\"Klebsiella pneumoniae\", language = \"es\") # Spanish #> [1] \"Gram-negative\" mo_gramstain(\"Klebsiella pneumoniae\", language = \"el\") # Greek #> [1] \"Gram-negative\" mo_gramstain(\"Klebsiella pneumoniae\", language = \"uk\") # Ukrainian #> [1] \"Gram-negative\"  # 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] \"Bacteria\"  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: 19 × 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          9 #>  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 Leuconostoc          1 #> 19 Pseudescherichia     1  # get a list with the complete taxonomy (from kingdom to subspecies) mo_taxonomy(\"Klebsiella pneumoniae\") #> $kingdom #> [1] \"Bacteria\" #>  #> $phylum #> [1] \"Pseudomonadota\" #>  #> $class #> [1] \"Gammaproteobacteria\" #>  #> $order #> [1] \"Enterobacterales\" #>  #> $family #> [1] \"Enterobacteriaceae\" #>  #> $genus #> [1] \"Klebsiella\" #>  #> $species #> [1] \"pneumoniae\" #>  #> $subspecies #> [1] \"\" #>   # get a list with the taxonomy, the authors, Gram-stain, # SNOMED codes, and URL to the online database mo_info(\"Klebsiella pneumoniae\") #> $mo #> [1] \"B_KLBSL_PNMN\" #>  #> $rank #> [1] \"species\" #>  #> $kingdom #> [1] \"Bacteria\" #>  #> $phylum #> [1] \"Pseudomonadota\" #>  #> $class #> [1] \"Gammaproteobacteria\" #>  #> $order #> [1] \"Enterobacterales\" #>  #> $family #> [1] \"Enterobacteriaceae\" #>  #> $genus #> [1] \"Klebsiella\" #>  #> $species #> [1] \"pneumoniae\" #>  #> $subspecies #> [1] \"\" #>  #> $status #> [1] \"accepted\" #>  #> $synonyms #> NULL #>  #> $gramstain #> [1] \"Gram-negative\" #>  #> $oxygen_tolerance #> [1] \"facultative anaerobe\" #>  #> $url #> [1] \"https://lpsn.dsmz.de/species/klebsiella-pneumoniae\" #>  #> $ref #> [1] \"Trevisan, 1887\" #>  #> $snomed #> [1] \"1098101000112102\" \"446870005\"        \"1098201000112108\" \"409801009\"        #> [5] \"56415008\"         \"714315002\"        \"713926009\"        #>  #> $lpsn #> [1] \"777151\" #>  #> $mycobank #> [1] NA #>  #> $gbif #> [1] \"3221874\" #>  #> $group_members #> character(0) #>  # }"},{"path":"https://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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 \"/Users//Documents/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(\"/Users/me/Documents/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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) } #> 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\"  #>    # new ggplot2 plotting method using this package: if (require(\"dplyr\") && require(\"ggplot2\")) {     ggplot_pca(pca_result) }  if (require(\"dplyr\") && require(\"ggplot2\")) {     ggplot_pca(pca_result) +       scale_colour_viridis_d() +       labs(title = \"Title here\") }  # }"},{"path":"https://amr-for-r.org/reference/plot.html","id":null,"dir":"Reference","previous_headings":"","what":"Plotting Helpers for AMR Data Analysis — plot","title":"Plotting Helpers for AMR Data Analysis — plot","text":"Functions plot classes sir, mic disk, support base R ggplot2. Especially scale_*_mic() functions relevant wrappers plot MIC values ggplot2. allows custom MIC ranges plot intermediate log2 levels missing MIC values.","code":""},{"path":"https://amr-for-r.org/reference/plot.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Plotting Helpers for AMR Data Analysis — plot","text":"","code":"scale_x_mic(keep_operators = \"edges\", mic_range = NULL, ...)  scale_y_mic(keep_operators = \"edges\", mic_range = NULL, ...)  scale_colour_mic(keep_operators = \"edges\", mic_range = NULL, ...)  scale_fill_mic(keep_operators = \"edges\", mic_range = NULL, ...)  scale_x_sir(colours_SIR = c(S = \"#3CAEA3\", SDD = \"#8FD6C4\", I = \"#F6D55C\", R   = \"#ED553B\"), language = get_AMR_locale(),   eucast_I = getOption(\"AMR_guideline\", \"EUCAST\") == \"EUCAST\", ...)  scale_colour_sir(colours_SIR = c(S = \"#3CAEA3\", SDD = \"#8FD6C4\", I =   \"#F6D55C\", R = \"#ED553B\"), language = get_AMR_locale(),   eucast_I = getOption(\"AMR_guideline\", \"EUCAST\") == \"EUCAST\", ...)  scale_fill_sir(colours_SIR = c(S = \"#3CAEA3\", SDD = \"#8FD6C4\", I = \"#F6D55C\",   R = \"#ED553B\"), language = get_AMR_locale(),   eucast_I = getOption(\"AMR_guideline\", \"EUCAST\") == \"EUCAST\", ...)  # S3 method for class 'mic' plot(x, mo = NULL, ab = NULL,   guideline = getOption(\"AMR_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(S = \"#3CAEA3\", SDD = \"#8FD6C4\", I = \"#F6D55C\", R   = \"#ED553B\"), language = get_AMR_locale(), expand = TRUE,   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\"), ...)  # S3 method for class 'mic' autoplot(object, mo = NULL, ab = NULL,   guideline = getOption(\"AMR_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(S = \"#3CAEA3\", SDD = \"#8FD6C4\", I = \"#F6D55C\", R   = \"#ED553B\"), language = get_AMR_locale(), expand = TRUE,   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\"), ...)  # S3 method for class 'disk' 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 = getOption(\"AMR_guideline\", \"EUCAST\"),   colours_SIR = c(S = \"#3CAEA3\", SDD = \"#8FD6C4\", I = \"#F6D55C\", R =   \"#ED553B\"), language = get_AMR_locale(), expand = TRUE,   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\"), ...)  # S3 method for class 'disk' autoplot(object, mo = NULL, ab = NULL,   title = deparse(substitute(object)), ylab = translate_AMR(\"Frequency\",   language = language), xlab = translate_AMR(\"Disk diffusion diameter (mm)\",   language = language), guideline = getOption(\"AMR_guideline\", \"EUCAST\"),   colours_SIR = c(S = \"#3CAEA3\", SDD = \"#8FD6C4\", I = \"#F6D55C\", R =   \"#ED553B\"), language = get_AMR_locale(), expand = TRUE,   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\"), ...)  # S3 method for class 'sir' plot(x, ylab = translate_AMR(\"Percentage\", language =   language), xlab = translate_AMR(\"Antimicrobial Interpretation\", language =   language), main = deparse(substitute(x)), language = get_AMR_locale(),   ...)  # S3 method for class 'sir' autoplot(object, title = deparse(substitute(object)),   xlab = translate_AMR(\"Antimicrobial Interpretation\", language = language),   ylab = translate_AMR(\"Frequency\", language = language), colours_SIR = c(S   = \"#3CAEA3\", SDD = \"#8FD6C4\", I = \"#F6D55C\", R = \"#ED553B\"),   language = get_AMR_locale(), ...)  facet_sir(facet = c(\"interpretation\", \"antibiotic\"), nrow = NULL)  scale_y_percent(breaks = function(x) seq(0, max(x, na.rm = TRUE), 0.1),   limits = c(0, NA))  scale_sir_colours(..., aesthetics, colours_SIR = c(S = \"#3CAEA3\", SDD =   \"#8FD6C4\", I = \"#F6D55C\", R = \"#ED553B\"))  theme_sir()  labels_sir_count(position = NULL, x = \"antibiotic\",   translate_ab = \"name\", minimum = 30, language = get_AMR_locale(),   combine_SI = TRUE, datalabels.size = 3, datalabels.colour = \"grey15\")"},{"path":"https://amr-for-r.org/reference/plot.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Plotting Helpers for AMR Data Analysis — plot","text":"keep_operators character specifying handle operators (> <=) input. Accepts one three values: \"\" (TRUE) keep operators, \"none\" (FALSE) remove operators, \"edges\" keep operators ends range. mic_range manual range rescale MIC values (using rescale_mic()), e.g., mic_range = c(0.001, 32). Use NA prevent rescaling one side, e.g., mic_range = c(NA, 32). Note: rescales values filter - use ggplot2 limits argument separately exclude values plot. ... Arguments passed methods. 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 prevent translation. eucast_I logical indicate whether '' must interpreted \"Susceptible, increased exposure\". TRUE default AMR interpretation guideline set EUCAST (default). FALSE, interpreted \"Intermediate\". 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. expand logical indicate whether range x axis expanded lowest highest value. MIC values, intermediate values factors 2 starting highest MIC value. disk diameters, whole diameter range filled. include_PKPD logical indicate PK/PD clinical breakpoints must applied last resort - default TRUE. Can also set package option AMR_include_PKPD. breakpoint_type type breakpoints use, either \"ECOFF\", \"animal\", \"human\". ECOFF stands Epidemiological Cut-values. default \"human\", can also set package option AMR_breakpoint_type. host set values veterinary species, automatically set \"animal\". facet Variable split plots , either \"interpretation\" (default) \"antibiotic\" grouping variable. nrow (using facet) number rows. breaks numeric vector positions. limits numeric vector length two providing limits scale, use NA refer existing minimum maximum. aesthetics Aesthetics apply colours - default \"fill\" can also (combination ) \"alpha\", \"colour\", \"fill\", \"linetype\", \"shape\" \"size\". position Position adjustment bars, either \"fill\", \"stack\" \"dodge\". translate_ab column name antimicrobials data set translate antibiotic abbreviations , using ab_property(). minimum minimum allowed number available (tested) isolates. isolate count lower minimum return NA warning. default number 30 isolates advised Clinical Laboratory Standards Institute (CLSI) best practice, see Source. combine_SI logical indicate whether values S, SDD, must merged one, output consists S+SDD+vs. R (susceptible vs. resistant) - default TRUE. datalabels.size Size datalabels. datalabels.colour Colour datalabels.","code":""},{"path":"https://amr-for-r.org/reference/plot.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Plotting Helpers for AMR Data Analysis — plot","text":"autoplot() functions return ggplot model extendible ggplot2 function.","code":""},{"path":[]},{"path":"https://amr-for-r.org/reference/plot.html","id":"the-scale-mic-functions","dir":"Reference","previous_headings":"","what":"The scale_*_mic() Functions","title":"Plotting Helpers for AMR Data Analysis — plot","text":"functions scale_x_mic(), scale_y_mic(), scale_colour_mic(), scale_fill_mic() functions allow plot mic class (MIC values) continuous, logarithmic scale. normally need add scale functions plot, applied automatically plotting values class mic. manually added though, allow rescale MIC range 'inside' 'outside' range required, provide option retain operators MIC values (>=). Missing intermediate log2 levels always plotted .","code":""},{"path":"https://amr-for-r.org/reference/plot.html","id":"the-scale-sir-functions","dir":"Reference","previous_headings":"","what":"The scale_*_sir() Functions","title":"Plotting Helpers for AMR Data Analysis — plot","text":"functions scale_x_sir(), scale_colour_sir(), scale_fill_sir() functions allow plot sir class right order (S < SDD < < R < NI). normally need add scale functions plot, applied automatically plotting values class sir. default, translate S//R values interpretative text (\"Susceptible\", \"Resistant\", etc.) 28 supported languages (use language = NULL keep S//R). Also, except scale_x_sir(), set colour-blind friendly colours colour fill aesthetics.","code":""},{"path":"https://amr-for-r.org/reference/plot.html","id":"additional-ggplot-functions","dir":"Reference","previous_headings":"","what":"Additional ggplot2 Functions","title":"Plotting Helpers for AMR Data Analysis — plot","text":"package contains functions extend ggplot2 package, help visualising AMR data results. functions internally used ggplot_sir() . facet_sir() creates 2d plots (default based S//R) using ggplot2::facet_wrap(). scale_y_percent() transforms y axis 0 100% range using ggplot2::scale_y_continuous(). scale_sir_colours() allows set colours aesthetic, even shape linetype. theme_sir() ggplot2 theme minimal distraction. labels_sir_count() print datalabels bars percentage number isolates, using ggplot2::geom_text(). interpretation \"\" named \"Increased exposure\" EUCAST guidelines since 2019, named \"Intermediate\" cases. interpreting MIC values well disk diffusion diameters, default guideline EUCAST 2025, unless package option AMR_guideline set. See .sir() information.","code":""},{"path":"https://amr-for-r.org/reference/plot.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Plotting Helpers for AMR Data Analysis — plot","text":"","code":"some_mic_values <- random_mic(size = 100) some_disk_values <- random_disk(size = 100, mo = \"Escherichia coli\", ab = \"cipro\") some_sir_values <- random_sir(50, prob_SIR = c(0.55, 0.05, 0.30))  # \\donttest{ # Plotting using ggplot2's autoplot() for MIC, disk, and SIR ----------- if (require(\"ggplot2\")) {   autoplot(some_mic_values) }  if (require(\"ggplot2\")) {   # when providing the microorganism and antibiotic, colours will show interpretations:   autoplot(some_mic_values, mo = \"Escherichia coli\", ab = \"cipro\") }  if (require(\"ggplot2\")) {   autoplot(some_mic_values, mo = \"Staph aureus\", ab = \"Ceftaroline\", guideline = \"CLSI\") }   if (require(\"ggplot2\")) {   # support for 27 languages, various guidelines, and many options   autoplot(some_disk_values,     mo = \"Escherichia coli\", ab = \"cipro\",     guideline = \"CLSI 2024\", language = \"no\",     title = \"Disk diffusion from the North\"   ) }    # Plotting using scale_x_mic() ----------------------------------------- if (require(\"ggplot2\")) {   mic_plot <- ggplot(     data.frame(       mics = as.mic(c(0.25, \"<=4\", 4, 8, 32, \">=32\")),       counts = c(1, 1, 2, 2, 3, 3)     ),     aes(mics, counts)   ) +     geom_col()   mic_plot +     labs(title = \"scale_x_mic() automatically applied\") }  if (require(\"ggplot2\")) {   mic_plot +     scale_x_mic(keep_operators = \"none\") +     labs(title = \"with scale_x_mic() keeping no operators\") }  if (require(\"ggplot2\")) {   mic_plot +     scale_x_mic(mic_range = c(1, 16)) +     labs(title = \"with scale_x_mic() using a manual 'within' range\") }  if (require(\"ggplot2\")) {   mic_plot +     scale_x_mic(mic_range = c(0.032, 256)) +     labs(title = \"with scale_x_mic() using a manual 'outside' range\") }    # Plotting using scale_y_mic() ----------------------------------------- some_groups <- sample(LETTERS[1:5], 20, replace = TRUE)  if (require(\"ggplot2\")) {   ggplot(     data.frame(       mic = some_mic_values,       group = some_groups     ),     aes(group, mic)   ) +     geom_boxplot() +     geom_violin(linetype = 2, colour = \"grey30\", fill = NA) +     labs(title = \"scale_y_mic() automatically applied\") }  if (require(\"ggplot2\")) {   ggplot(     data.frame(       mic = some_mic_values,       group = some_groups     ),     aes(group, mic)   ) +     geom_boxplot() +     geom_violin(linetype = 2, colour = \"grey30\", fill = NA) +     scale_y_mic(mic_range = c(NA, 0.25)) }    # Plotting using scale_x_sir() ----------------------------------------- if (require(\"ggplot2\")) {   ggplot(     data.frame(       x = c(\"I\", \"R\", \"S\"),       y = c(45, 323, 573)     ),     aes(x, y)   ) +     geom_col() +     scale_x_sir() }    # Plotting using scale_y_mic() and scale_colour_sir() ------------------ if (require(\"ggplot2\")) {   mic_sir_plot <- ggplot(     data.frame(       mic = some_mic_values,       group = some_groups,       sir = as.sir(some_mic_values,         mo = \"E. coli\",         ab = \"cipro\"       )     ),     aes(x = group, y = mic, colour = sir)   ) +     theme_minimal() +     geom_boxplot(fill = NA, colour = \"grey30\") +     geom_jitter(width = 0.25)     labs(title = \"scale_y_mic()/scale_colour_sir() automatically applied\")    mic_sir_plot }  if (require(\"ggplot2\")) {   mic_sir_plot +     scale_y_mic(mic_range = c(0.005, 32), name = \"Our MICs!\") +     scale_colour_sir(       language = \"pt\", # Portuguese       name = \"Support in 28 languages\"     ) }  # }  # Plotting using base R's plot() ---------------------------------------  plot(some_mic_values)  # when providing the microorganism and antibiotic, colours will show interpretations: plot(some_mic_values, mo = \"S. aureus\", ab = \"ampicillin\")   plot(some_disk_values)  plot(some_disk_values, mo = \"Escherichia coli\", ab = \"cipro\")  plot(some_disk_values, mo = \"Escherichia coli\", ab = \"cipro\", language = \"nl\")   plot(some_sir_values)"},{"path":"https://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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 antimicrobials, see section Combination Therapy . ab_result Antibiotic results test , must one values \"S\", \"SDD\", \"\", \"R\". confidence_level confidence level returned confidence interval. calculation, number S SI isolates, R isolates compared total number available isolates R, S, using binom.test(), .e., Clopper-Pearson method. side side confidence interval return. default \"\" length 2 vector, can also (abbreviated ) \"min\"/\"left\"/\"lower\"/\"less\" \"max\"/\"right\"/\"higher\"/\"greater\". collapse logical indicate whether output values 'collapsed', .e. merged together one value, character value use collapsing. data data.frame containing columns class sir (see .sir()). translate_ab column name antimicrobials data set translate antibiotic abbreviations , using ab_property(). language Language returned text - default current system language (see get_AMR_locale()) can also set package option AMR_locale. Use language = NULL language = \"\" prevent translation. combine_SI logical indicate whether values S, SDD, must merged one, output consists S+SDD+vs. R (susceptible vs. resistant) - default TRUE.","code":""},{"path":"https://amr-for-r.org/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://amr-for-r.org/reference/proportion.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Calculate Antimicrobial Resistance — proportion","text":"automated comprehensive analysis, consider using antibiogram() wisca(), streamline many aspects susceptibility reporting , importantly, also support WISCA. functions described offer hands-, manual approach greater customisation. Remember filter data let contain first isolates! needed exclude duplicates reduce selection bias. Use first_isolate() determine data set one four available algorithms. function resistance() equal function proportion_R(). function susceptibility() equal function proportion_SI(). Since AMR v3.0, proportion_SI() proportion_I() include dose-dependent susceptibility ('SDD'). Use sir_confidence_interval() calculate confidence interval, relies binom.test(), .e., Clopper-Pearson method. function returns vector length 2 default antimicrobial resistance. Change side argument \"left\"/\"min\" \"right\"/\"max\" return single value, change ab_result argument e.g. c(\"S\", \"\") test antimicrobial susceptibility, see Examples. functions meant count isolates, calculate proportion resistance/susceptibility. Use count_*() functions count isolates. function susceptibility() essentially equal count_susceptible()/count_all(). Low counts can influence outcome - proportion_*() functions may camouflage , since return proportion (albeit dependent minimum argument). function proportion_df() takes variable data sir class (created .sir()) calculates proportions S, , R. also supports grouped variables. function sir_df() works exactly like proportion_df(), adds number isolates.","code":""},{"path":"https://amr-for-r.org/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 antimicrobials/variables test . See example two antimicrobials, 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   considered   considered  considered   considered                     susceptible    tested    susceptible    tested --------  --------  -----------  ----------  -----------  ----------  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://amr-for-r.org/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 (https://www.eucast.org/newsiandr). AMR package follows insight; use susceptibility() (equal proportion_SI()) determine antimicrobial susceptibility count_susceptible() (equal count_SI()) count susceptible isolates.","code":""},{"path":[]},{"path":"https://amr-for-r.org/reference/proportion.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Calculate Antimicrobial Resistance — proportion","text":"","code":"# example_isolates is a data set available in the AMR package. # run ?example_isolates for more info. example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI   R     NA    NA    NA  #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI   R     NA    NA    NA  #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS   R     NA    S     R   #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS   R     NA    S     R   #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR   R     NA    S     NA  #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …   # base R ------------------------------------------------------------ # determines %R resistance(example_isolates$AMX) #> [1] 0.5955556 sir_confidence_interval(example_isolates$AMX) #> [1] 0.5688204 0.6218738 sir_confidence_interval(example_isolates$AMX,   confidence_level = 0.975 ) #> [1] 0.5650148 0.6255670 sir_confidence_interval(example_isolates$AMX,   confidence_level = 0.975,   collapse = \", \" ) #> [1] \"0.565, 0.626\"  # determines %S+I: susceptibility(example_isolates$AMX) #> [1] 0.4044444 sir_confidence_interval(example_isolates$AMX,   ab_result = c(\"S\", \"I\") ) #> [1] 0.3781262 0.4311796  # be more specific proportion_S(example_isolates$AMX) #> [1] 0.4022222 proportion_SI(example_isolates$AMX) #> [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 antimicrobial 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://amr-for-r.org/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://amr-for-r.org/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, skew = \"right\",   severity = 1, ...)  random_disk(size = NULL, mo = NULL, ab = NULL, skew = \"left\",   severity = 1, ...)  random_sir(size = NULL, prob_SIR = c(0.33, 0.33, 0.33), ...)"},{"path":"https://amr-for-r.org/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(). Can length size. ab character can coerced valid antimicrobial drug code .ab(). skew Direction skew MIC disk values, either \"right\" \"left\". left-skewed distribution majority data right. severity Skew severity; higher values increase skewedness. Default 2; use 0 prevent skewedness. ... Ignored, place allow future extensions. prob_SIR vector length 3: probabilities \"S\" (1st value), \"\" (2nd value) \"R\" (3rd value).","code":""},{"path":"https://amr-for-r.org/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://amr-for-r.org/reference/random.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Random MIC Values/Disk Zones/SIR Generation — random","text":"Internally, MIC disk zone values sampled based clinical breakpoints defined clinical_breakpoints data set. create specific generated values per bug drug, set mo /ab argument. MICs sampled log2 scale disks linearly, using weighted probabilities. weights based skew severity arguments: skew = \"right\" places emphasis lower MIC higher disk values. skew = \"left\" places emphasis higher MIC lower disk values. severity controls exponential bias applied.","code":""},{"path":"https://amr-for-r.org/reference/random.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Random MIC Values/Disk Zones/SIR Generation — random","text":"","code":"random_mic(25) #> Class 'mic' #>  [1] 0.125    <=0.0001 0.004    0.004    0.5      0.032    1        0.008    #>  [9] 128      0.0002   0.002    0.002    32       0.032    0.0005   0.0002   #> [17] 0.008    0.001    0.0002   <=0.0001 0.064    0.016    0.008    4        #> [25] 1        random_disk(25) #> Class 'disk' #>  [1] 50 21 48 47 46 38 45 47 24 28 45 43 19 23 44 19 31 22 40 39 39 36 35 14 34 random_sir(25) #> Class 'sir' #>  [1] I S S R I S R I R I S S S R R R I I R R I S R R S  # add more skewedness, make more realistic by setting a bug and/or drug: disks <- random_disk(100, severity = 2, mo = \"Escherichia coli\", ab = \"CIP\") plot(disks)  # `plot()` and `ggplot2::autoplot()` allow for coloured bars if `mo` and `ab` are set plot(disks, mo = \"Escherichia coli\", ab = \"CIP\", guideline = \"CLSI 2025\")   # \\donttest{ random_mic(25, \"Klebsiella pneumoniae\") # range 0.0625-64 #> Class 'mic' #>  [1] 0.0001 0.0002 0.016  0.5    0.008  >=8    0.125  0.0002 0.002  0.0005 #> [11] 1      0.0001 0.25   0.0002 0.25   2      0.0005 0.064  0.5    0.004  #> [21] 0.001  0.064  0.032  0.0005 0.125  random_mic(25, \"Klebsiella pneumoniae\", \"meropenem\") # range 0.0625-16 #> Class 'mic' #>  [1] <=2 <=2 4   <=2 <=2 4   <=2 4   <=2 4   <=2 <=2 <=2 <=2 <=2 <=2 4   4   <=2 #> [20] 4   <=2 <=2 <=2 <=2 <=2 random_mic(25, \"Streptococcus pneumoniae\", \"meropenem\") # range 0.0625-4 #> Class 'mic' #>  [1] 2       <=0.064 1       <=0.064 <=0.064 2       <=0.064 0.25    0.25    #> [10] 2       <=0.064 <=0.064 <=0.064 <=0.064 0.25    0.5     0.5     0.25    #> [19] 0.125   0.125   4       0.25    1       <=0.064 <=0.064  random_disk(25, \"Klebsiella pneumoniae\") # range 8-50 #> Class 'disk' #>  [1] 14 19 19 33 33 26 16 27 29 33 24 17 17 15 16 26 26 14 17 29 25 25 24 32 32 random_disk(25, \"Klebsiella pneumoniae\", \"ampicillin\") # range 11-17 #> Class 'disk' #>  [1] 22 15 21 11 19 20 11 14 12 12 17 16 12 10 15 22 19 21 19 17 18 19 21 17 21 random_disk(25, \"Streptococcus pneumoniae\", \"ampicillin\") # range 12-27 #> Class 'disk' #>  [1] 21 25 16 29 27 24 31 22 35 28 26 32 24 18 35 33 24 28 33 25 35 25 32 24 26 # }"},{"path":"https://amr-for-r.org/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. Standard errors (SE) returned columns se_min se_max. See Examples real live example. NOTE: functions deprecated removed future version. Use AMR package combined tidymodels framework instead, written basic short introduction website.","code":""},{"path":"https://amr-for-r.org/reference/resistance_predict.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Predict Antimicrobial Resistance — resistance_predict","text":"","code":"resistance_predict(x, col_ab, col_date = NULL, year_min = NULL,   year_max = NULL, year_every = 1, minimum = 30, model = NULL,   I_as_S = TRUE, preserve_measurements = TRUE, info = interactive(), ...)  sir_predict(x, col_ab, col_date = NULL, year_min = NULL, year_max = NULL,   year_every = 1, minimum = 30, model = NULL, I_as_S = TRUE,   preserve_measurements = TRUE, info = interactive(), ...)  # S3 method for class 'resistance_predict' plot(x, main = paste(\"Resistance Prediction of\",   x_name), ...)  ggplot_sir_predict(x, main = paste(\"Resistance Prediction of\", x_name),   ribbon = TRUE, ...)  # S3 method for class 'resistance_predict' autoplot(object,   main = paste(\"Resistance Prediction of\", x_name), ribbon = TRUE, ...)"},{"path":"https://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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 (https://www.eucast.org/newsiandr). AMR package follows insight; use susceptibility() (equal proportion_SI()) determine antimicrobial susceptibility count_susceptible() (equal count_SI()) count susceptible isolates.","code":""},{"path":[]},{"path":"https://amr-for-r.org/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\" ) #> Warning: The `resistance_predict()` function is deprecated and will be removed in a #> future version, see `?AMR-deprecated`. Use the tidymodels framework #> instead, for which we have written a basic and short introduction on our #> website: https://amr-for-r.org/articles/AMR_with_tidymodels.html #> This warning will be shown once per session. plot(x)  # \\donttest{ if (require(\"ggplot2\")) {   ggplot_sir_predict(x) } #> Warning: Removed 8 rows containing missing values or values outside the scale range #> (`geom_ribbon()`).   # using dplyr: if (require(\"dplyr\")) {   x <- example_isolates %>%     filter_first_isolate() %>%     filter(mo_genus(mo) == \"Staphylococcus\") %>%     resistance_predict(\"PEN\", model = \"binomial\")   print(plot(x))    # get the model from the object   mymodel <- attributes(x)$model   summary(mymodel) }  #> NULL #>  #> Call: #> glm(formula = df_matrix ~ year, family = binomial) #>  #> Coefficients: #>             Estimate Std. Error z value Pr(>|z|) #> (Intercept) 35.76101   72.29172   0.495    0.621 #> year        -0.01720    0.03603  -0.477    0.633 #>  #> (Dispersion parameter for binomial family taken to be 1) #>  #>     Null deviance: 5.3681  on 11  degrees of freedom #> Residual deviance: 5.1408  on 10  degrees of freedom #> AIC: 50.271 #>  #> Number of Fisher Scoring iterations: 4 #>   # create nice plots with ggplot2 yourself if (require(\"dplyr\") && require(\"ggplot2\")) {   data <- example_isolates %>%     filter(mo == as.mo(\"E. coli\")) %>%     resistance_predict(       col_ab = \"AMX\",       col_date = \"date\",       model = \"binomial\",       info = FALSE,       minimum = 15     )   head(data)   autoplot(data) } #> Warning: Removed 16 rows containing missing values or values outside the scale range #> (`geom_ribbon()`).  # }"},{"path":"https://amr-for-r.org/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://amr-for-r.org/reference/skewness.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Skewness of the Sample — skewness","text":"","code":"skewness(x, na.rm = FALSE)  # Default S3 method skewness(x, na.rm = FALSE)  # S3 method for class 'matrix' skewness(x, na.rm = FALSE)  # S3 method for class 'data.frame' skewness(x, na.rm = FALSE)"},{"path":"https://amr-for-r.org/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://amr-for-r.org/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.03760694"},{"path":"https://amr-for-r.org/reference/top_n_microorganisms.html","id":null,"dir":"Reference","previous_headings":"","what":"Filter Top n Microorganisms — top_n_microorganisms","title":"Filter Top n Microorganisms — top_n_microorganisms","text":"function filters data set include top n microorganisms based specified property, taxonomic family genus. example, can filter data set top 3 species, species top 5 genera, top 3 species top 5 genera.","code":""},{"path":"https://amr-for-r.org/reference/top_n_microorganisms.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Filter Top n Microorganisms — top_n_microorganisms","text":"","code":"top_n_microorganisms(x, n, property = \"species\", n_for_each = NULL,   col_mo = NULL, ...)"},{"path":"https://amr-for-r.org/reference/top_n_microorganisms.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Filter Top n Microorganisms — top_n_microorganisms","text":"x data frame containing microbial data. n integer specifying maximum number unique values property include output. property character string indicating microorganism property use filtering. Must one column names microorganisms data set: \"mo\", \"fullname\", \"status\", \"kingdom\", \"phylum\", \"class\", \"order\", \"family\", \"genus\", \"species\", \"subspecies\", \"rank\", \"ref\", \"oxygen_tolerance\", \"source\", \"lpsn\", \"lpsn_parent\", \"lpsn_renamed_to\", \"mycobank\", \"mycobank_parent\", \"mycobank_renamed_to\", \"gbif\", \"gbif_parent\", \"gbif_renamed_to\", \"prevalence\", \"snomed\". NULL, raw values col_mo used without transformation. using \"species\" (default) \"subpecies\", genus added make sure (sub)species still belongs right genus. n_for_each optional integer specifying maximum number rows retain value selected property. NULL, rows within top n groups included. col_mo character string indicating column x contains microorganism names codes. Defaults first column class mo. Values coerced using .mo(). ... Additional arguments passed mo_property() property NULL.","code":""},{"path":"https://amr-for-r.org/reference/top_n_microorganisms.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Filter Top n Microorganisms — top_n_microorganisms","text":"function useful preprocessing data creating antibiograms analyses require focused subsets microbial data. example, can filter data set include isolates top 10 species.","code":""},{"path":[]},{"path":"https://amr-for-r.org/reference/top_n_microorganisms.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Filter Top n Microorganisms — top_n_microorganisms","text":"","code":"# filter to the top 3 species: top_n_microorganisms(example_isolates,   n = 3 ) #> # A tibble: 1,015 × 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-14 462729     78 M      Clinical B_STPHY_AURS   R     NA    S     R   #>  4 2002-01-14 462729     78 M      Clinical B_STPHY_AURS   R     NA    S     R   #>  5 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI   R     NA    NA    NA  #>  6 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI   R     NA    NA    NA  #>  7 2002-02-03 481442     76 M      ICU      B_STPHY_CONS   R     NA    S     NA  #>  8 2002-02-14 067927     45 F      ICU      B_STPHY_CONS   R     NA    R     NA  #>  9 2002-02-14 067927     45 F      ICU      B_STPHY_CONS   S     NA    S     NA  #> 10 2002-02-21 A56499     64 M      Clinical B_STPHY_CONS   S     NA    S     NA  #> # ℹ 1,005 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  # filter to any species in the top 5 genera: top_n_microorganisms(example_isolates,   n = 5, property = \"genus\" ) #> # A tibble: 1,742 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI   R     NA    NA    NA  #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI   R     NA    NA    NA  #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS   R     NA    S     R   #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS   R     NA    S     R   #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR   R     NA    R     NA  #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR   R     NA    S     NA  #> # ℹ 1,732 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  # filter to the top 3 species in each of the top 5 genera: top_n_microorganisms(example_isolates,   n = 5, property = \"genus\", n_for_each = 3 ) #> # A tibble: 1,497 × 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-04-08 130252     78 M      ICU      B_ENTRC_FCLS   NA    NA    NA    NA  #>  3 2002-06-23 798871     82 M      Clinical B_ENTRC_FCLS   NA    NA    NA    NA  #>  4 2002-06-23 798871     82 M      Clinical 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_ENTRC_FCLS   NA    NA    NA    NA  #>  8 2003-09-05 F35553     52 M      ICU      B_ENTRC        NA    NA    NA    NA  #>  9 2003-09-05 F35553     52 M      ICU      B_ENTRC_FCLS   NA    NA    NA    NA  #> 10 2003-09-28 1B0933     80 M      Clinical B_ENTRC        NA    NA    NA    NA  #> # ℹ 1,487 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …"},{"path":"https://amr-for-r.org/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://amr-for-r.org/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://amr-for-r.org/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), Arabic (ar), Bengali (bn), Chinese (zh), Czech (cs), Danish (da), Dutch (nl), Finnish (fi), French (fr), German (de), Greek (el), Hindi (hi), Indonesian (id), Italian (), Japanese (ja), Korean (ko), Norwegian (), Polish (pl), Portuguese (pt), Romanian (ro), Russian (ru), Spanish (es), Swahili (sw), Swedish (sv), Turkish (tr), Ukrainian (uk), Urdu (ur), Vietnamese (vi). x Text translate.","code":""},{"path":"https://amr-for-r.org/reference/translate.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Translate Strings from the AMR Package — translate","text":"currently 28 supported languages English (en), Arabic (ar), Bengali (bn), Chinese (zh), Czech (cs), Danish (da), Dutch (nl), Finnish (fi), French (fr), German (de), Greek (el), Hindi (hi), Indonesian (id), Italian (), Japanese (ja), Korean (ko), Norwegian (), Polish (pl), Portuguese (pt), Romanian (ro), Russian (ru), Spanish (es), Swahili (sw), Swedish (sv), Turkish (tr), Ukrainian (uk), Urdu (ur), Vietnamese (vi). 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://amr-for-r.org/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://amr-for-r.org/reference/translate.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Translate Strings from the AMR Package — translate","text":"","code":"# Current settings (based on system language) ab_name(\"Ciprofloxacin\") #> [1] \"Ciprofloxacin\" mo_name(\"Coagulase-negative Staphylococcus (CoNS)\") #> [1] \"Coagulase-negative Staphylococcus (CoNS)\"  # setting another language set_AMR_locale(\"Dutch\") #> ℹ Using Dutch (Nederlands) for the AMR package for this session. ab_name(\"Ciprofloxacin\") #> [1] \"Ciprofloxacin\" mo_name(\"Coagulase-negative Staphylococcus (CoNS)\") #> [1] \"Coagulase-negatieve Staphylococcus (CoNS)\"  # setting yet another language set_AMR_locale(\"German\") #> ℹ Using German (Deutsch) for the AMR package for this session. ab_name(\"Ciprofloxacin\") #> [1] \"Ciprofloxacin\" mo_name(\"Coagulase-negative Staphylococcus (CoNS)\") #> [1] \"Koagulase-negative Staphylococcus (CoNS)\"  # 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\") #> [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":[]},{"path":"https://amr-for-r.org/news/index.html","id":"new-3-0-1-9008","dir":"Changelog","previous_headings":"","what":"New","title":"AMR 3.0.1.9008","text":"step_mic_log2() transform <mic> columns log2, step_sir_numeric() convert <sir> columns numeric all_sir(), all_sir_predictors() all_mic(), all_mic_predictors() all_disk(), all_disk_predictors() Data set esbl_isolates practise AMR modelling AMR selectors phosphonics() spiropyrimidinetriones() ab_group() gained argument all_groups return groups antimicrobial drug (#246)","code":""},{"path":"https://amr-for-r.org/news/index.html","id":"changed-3-0-1-9008","dir":"Changelog","previous_headings":"","what":"Changed","title":"AMR 3.0.1.9008","text":"Fixed bug antibiogram() antimicrobials set Added taniborbactam (TAN) cefepime/taniborbactam (FTA) antimicrobials data set Fixed bug .sir() numeric input arguments S, , R considered (#244) Added explaining message .sir() interpreting numeric values (e.g., 1 S, 2 , 3 R) (#244) Introduced four clearly defined options: \"none\", \"conservative\" (default), \"standard\", \"lenient\" Interpretation capped MIC values now consistently returns \"NI\" (non-interpretable) true MIC either side breakpoint, depending selected handling mode results reliable behaviour compared previous versions capped MIC values Removed \"inverse\" option, now become redundant Fixed foreign translations antimicrobial drugs antimicrobials$group now list instead character, contain group drug (#246) ab_group() now returns values consist AMR selectors (#246)","code":""},{"path":"https://amr-for-r.org/news/index.html","id":"amr-301","dir":"Changelog","previous_headings":"","what":"AMR 3.0.1","title":"AMR 3.0.1","text":"CRAN release: 2025-09-20 bugfix release following release v3.0.0 June 2025.","code":""},{"path":"https://amr-for-r.org/news/index.html","id":"changed-3-0-1","dir":"Changelog","previous_headings":"","what":"Changed","title":"AMR 3.0.1","text":"MIC scale functions (scale_y_mic()) now applied automatically plotting values class mic SIR scale functions (scale_x_sir()) now applied automatically plotting values class sir Fixed bug antibiogram() antimicrobials set Fixed bug antibiogram() allow column names containing + character (#222) Fixed bug .ab() antimicrobial codes number preceded space Fixed bug eucast_rules() using specific custom rules Fixed bug .sir() allow tidyselect language (#220) Fixed bug .sir() pick right breakpoint uti = FALSE (#216) Fixed bug ggplot_sir() using combine_SI = FALSE (#213) Fixed bug mdro() make sure genes specified arguments acknowledged Fixed bug antimicrobials data set remove statins (#229) Fixed bug microorganisms data set MycoBank IDs synonyms (#233) Fixed ATC J01CR05 map piperacillin/tazobactam rather piperacillin/sulbactam (#230) Fixed skimmers (skimr package) class ab, sir, disk (#234) Fixed plotting contain separate colour SDD (susceptible dose-dependent) (#223) Fixed specific Dutch translations antimicrobials Added warning .ab() input resembles antiviral codes names (#232) Added reasons verbose output mdro() (#227) Added names age_groups() custom names can given (#215) Added note .sir() make explicit higher-level taxonomic breakpoints used (#218) Added antibiotic codes Comprehensive Antibiotic Resistance Database (CARD) antimicrobials data set (#225) Updated Fosfomycin antibiotic class Phosphonics (#225) Updated random_mic() random_disk() set skewedness distribution allow multiple microorganisms","code":""},{"path":"https://amr-for-r.org/news/index.html","id":"amr-300","dir":"Changelog","previous_headings":"","what":"AMR 3.0.0","title":"AMR 3.0.0","text":"CRAN release: 2025-06-02 package now supports tools AMR data analysis clinical settings, also veterinary environmental microbiology. made possible collaboration University Prince Edward Island’s Atlantic Veterinary College, Canada. celebrate great improvement package, also updated package logo reflect change.","code":""},{"path":"https://amr-for-r.org/news/index.html","id":"breaking-3-0-0","dir":"Changelog","previous_headings":"","what":"Breaking","title":"AMR 3.0.0","text":"Data set antibiotics renamed antimicrobials data set contains just antibiotics. Using antibiotics still work, now returns warning. Removed functions references used deprecated rsi class, replaced sir equivalents two years ago. Functions resistance_predict() sir_predict() now deprecated removed future version. Use tidymodels framework instead, wrote basic introduction.","code":""},{"path":"https://amr-for-r.org/news/index.html","id":"new-3-0-0","dir":"Changelog","previous_headings":"","what":"New","title":"AMR 3.0.0","text":"Function .sir() now extensive support veterinary breakpoints CLSI. Use breakpoint_type = \"animal\" set host argument variable contains animal species names. clinical_breakpoints data set contains breakpoints, can downloaded download page. (new) antimicrobials data set contains veterinary antimicrobials, pradofloxacin enrofloxacin. WHOCC codes veterinary use added well. ab_atc() now supports ATC codes veterinary antimicrobials (start “Q”) ab_url() now supports retrieving WHOCC url ATCvet pages antibiogram() function now supports creating true Weighted-Incidence Syndromic Combination Antibiograms (WISCA), powerful Bayesian method estimating regimen coverage probabilities using pathogen incidence antimicrobial susceptibility data. WISCA offers improved precision syndrome-specific treatment, even data sets sparse data. dedicated wisca() function also available easy usage. Added full support 8 new languages: Arabic, Bengali, Hindi, Indonesian, Korean, Swahili, Urdu, Vietnamese. AMR package now available 28 languages. MycoBank now integrated primary taxonomic source fungi. microorganisms data set enriched new columns (mycobank, mycobank_parent, mycobank_renamed_to) provide detailed information fungal species. remarkable addition 20,000 new fungal records New function mo_mycobank() retrieve MycoBank record number, analogous existing functions mo_lpsn() mo_gbif(). .mo() function mo_*() functions now include only_fungi argument, allowing users restrict results solely fungal species. ensures fungi prioritised bacteria microorganism identification. can also set globally new AMR_only_fungi option. Also updated kingdoms, welcoming total 2,149 new records 2023 927 2024. Breakpoint 2024 2025 CLSI EUCAST now supported, adding 10,000 new clinical breakpoints clinical_breakpoints data set usage .sir(). EUCAST 2025 now new default guideline MIC disk diffusion interpretations. Added Expected Resistant Phenotypes EUCAST (v1.2). default rules eucast_rules() now: c(\"breakpoints\", \"expected_phenotypes\"). Updated intrinsic_resistant data set, now based EUCAST Expected Resistant Phenotypes v1.2 .sir() now brings additional factor levels: “NI” non-interpretable “SDD” susceptible dose-dependent. Currently, clinical_breakpoints data set contains 24 breakpoints can return value “SDD” instead “”. EUCAST interpretive rules (using eucast_rules()) now available EUCAST 12 (2022), 13 (2023), 14 (2024), 15 (2025). EUCAST dosage tables (dosage data set) now available EUCAST 13 (2023), 14 (2024), 15 (2025). New function group scale_*_mic(), namely: scale_x_mic(), scale_y_mic(), scale_colour_mic() scale_fill_mic(). allow easy plotting MIC values. allow manual range definition plotting missing intermediate log2 levels. New function group scale_*_sir(), namely: scale_x_sir(), scale_colour_sir() scale_fill_sir(). allow plot sir class, translates system language default. also set colourblind-safe colours plots. New function rescale_mic(), allows users rescale MIC values manually set range. powerhouse behind scale_*_mic() functions, can used independently , instance, compare equality MIC distributions rescaling range first. using R heavy lifting, ‘AMR’ Python Package developed run AMR R package natively Python. Python package always version number R package, built automatically every code change. antimicrobial selectors (aminoglycosides() betalactams()) now supported tidymodels packages recipe parsnip. See info tutorial using AMR functions predictive modelling. New function top_n_microorganisms() filter data set top n taxonomic property, e.g., filter top 3 species, filter species top 5 genera, filter top 3 species top 5 genera New function mo_group_members() retrieve member microorganisms microorganism group. example, mo_group_members(\"Strep group C\") returns vector microorganisms belong group. New functions mic_p50() mic_p90() retrieve 50th 90th percentile MIC values.","code":""},{"path":"https://amr-for-r.org/news/index.html","id":"changed-3-0-0","dir":"Changelog","previous_headings":"","what":"Changed","title":"AMR 3.0.0","text":"Support parallel computing greatly improve speed using parallel package (part base R). Use .sir(your_data, parallel = TRUE) run SIR interpretation using multiple cores. now possible use column names arguments guideline, ab, mo, uti: .sir(..., ab = \"column1\", mo = \"column2\", uti = \"column3\"). greatly improves flexibility users. Users can now set criteria (using regular expressions) considered S, , R, SDD, NI. get quantitative values, .double() sir object return 1 S, 2 SDD/, 3 R (NI become NA). functions using sir classes (e.g., summary()) updated reflect change contain NI SDD. Following CLSI interpretation rules, values outside log2-dilution range rounded upwards nearest log2-level interpretation. using CLSI guideline. Combined MIC values (e.g., CLSI) now supported argument conserve_capped_values .sir() replaced capped_mic_handling, allows greater flexibility handling capped MIC values (<, <=, >, >=). four available options (\"standard\", \"strict\", \"relaxed\", \"inverse\") provide full control whether values interpreted conservatively ignored. Using conserve_capped_values now deprecated returns warning. Added argument info silence console messages Argument antibiotics renamed antimicrobials. Using antibiotics still work, now returns warning. Added argument formatting_type set 22 options formatting ‘cells’. defaults 18 non-WISCA 14 WISCA, changing output antibiograms cells info. reason, add_total_n now deprecated FALSE default since denominators added cells dependent formatting_type setting ab_transform argument now defaults \"name\", displaying antibiotic column names instead codes ‘Antibiotic selectors’ now called ‘antimicrobial selectors’ since scope broader just antibiotics. documentation updated, ab_class() ab_selector() replaced amr_class() amr_selector(). old functions now deprecated removed future version. Added selectors isoxazolylpenicillins(), monobactams(), nitrofurans(), phenicols(), rifamycins(), sulfonamides() using antimicrobial selectors exclude non-treatable drugs (gentamicin-high using aminoglycosides()), function now always returns warning can included using only_treatable = FALSE Added new argument return_all selectors, defaults TRUE include match. FALSE, old behaviour, first hit unique antimicrobial returned. selectors can now run separate command retrieve vector possible antimicrobials selector can select selectors lincosamides() macrolides() overlap anymore - antibiotic now classified either Fixed selector fluoroquinolones(), now really selects second-generation quinolones (first-generation quinolones contain fluorine group) Added agents used screening, ID ending -S: benzylpenicillin screening test (PEN-S), beta-lactamase screening test (BLA-S), cefotaxime screening test (CTX-S), clindamycin inducible screening test (CLI-S), nalidixic acid screening test (NAL-S), norfloxacin screening test (-S), oxacillin screening test (OXA-S), pefloxacin screening test (PEF-S), tetracycline screening test (TCY-S). ID cefoxitin screening renamed FOX1 FOX-S, old code remains work. reason, antimicrobial selectors cephalosporins(), cephalosporins_3rd(), lincosamides(), isoxazolylpenicillins(), quinolones(), fluoroquinolones(), tetracyclines() now contain argument only_treatable = TRUE (similar antimicrobial selectors contain non-treatable drugs) Added amorolfine (AMO, D01AE16), antimycotic, now also part antifungals() selector Added cefepime/enmetazobactam (FPE), 4th gen cephalosporin Added tigemonam (TNM), monobactam Added bleomycin (BLM), glycopeptide Added efflux (EFF), allow mapping AMRFinderPlus Updated ATC codes, trade names, DDDs Added valid levels: 4096, 6 powers 0.0625, 5 powers 192 (192, 384, 576, 768, 960) Fixed bug .mic() failed translation scientifically formatted numbers Added new argument keep_operators .mic(). can \"\" (default), \"none\", \"edges\". argument also available new rescale_mic() scale_*_mic() functions. Comparisons MIC values now strict. example, >32 higher (never equal ) 32. Thus, .mic(\">32\") == .mic(32) now returns FALSE, .mic(\">32\") > .mic(32) now returns TRUE. Sorting MIC values (using sort()) fixed manner; <0.001 now gets sorted 0.001, >0.001 gets sorted 0.001. Intermediate log2 levels used MIC plotting now common values instead following strict dilution range .mic() now returns vector TRUE/FALSE input data.frame, just like .sir() eucast_rules() now argument overwrite (default: FALSE) indicate whether non-NA values overwritten Disks 0 5 mm now allowed, newly allowed range disk diffusion (.disk()) now 0 50 mm Updated italicise_taxonomy() support HTML output custom_eucast_rules() now supports multiple antimicrobials antimicrobial groups affected single rule mo_info() now contains extra element rank group_members (contents new mo_group_members() function) Updated ATC codes WHOCC Updated antimicrobial DDDs WHOCC Fix using manual value mo_transform antibiogram() Fixed bug antibiogram() returns empty data set Argument only_sir_columns now defaults TRUE column data set contains class ‘sir’ (functions eucast_rules(), key_antimicrobials(), mdro(), etc.) Added Sensititre codes animals, antimicrobials microorganisms Fix mapping ‘high level’ antimicrobials .ab() (amphotericin B-high, gentamicin-high, kanamycin-high, streptomycin-high, tobramycin-high) Improved overall algorithm .ab() better performance accuracy, including new function as_reset_session() remove earlier coercions. weight given genus species combinations cases subspecies miswritten, result correct genus species Genera World Health Organization’s () Priority Pathogen List now highest prevalence Fixed bug sir_confidence_interval() isolates available Updated prevalence calculation include genera World Health Organization’s () Priority Pathogen List Improved algorithm first_isolate() using phenotype-based method, prioritise records highest availability SIR values scale_y_percent() can now cope ranges outside 0-100% range Verbose Mode (verbose = TRUE) now includes guideline name Implemented new Dutch national MDRO guideline (SRI-richtlijn BRMO, Nov 2024) Added arguments esbl, carbapenemase, mecA, mecC, vanA, vanB denote column names logical values indicating presence genes (production proteins) Added upport antimicrobial selectors use custom rule (custom_mdro_guideline()) Added console colours support sir class Positron","code":""},{"path":"https://amr-for-r.org/news/index.html","id":"other-3-0-0","dir":"Changelog","previous_headings":"","what":"Other","title":"AMR 3.0.0","text":"New website domain: https://amr--r.org! old domain remain work. Added Dr. Larisse Bolton Aislinn Cook contributors fantastic implementation WISCA mathematically solid way Added Matthew Saab, Dr. Jordan Stull, Prof. Javier Sanchez contributors tremendous input veterinary breakpoints interpretations Added Prof. Kathryn Holt, Dr. Jane Hawkey, Dr. Natacha Couto contributors many suggestions, ideas bugfixes Greatly improved vctrs integration, Tidyverse package working background many Tidyverse functions. users, means functions dplyr’s bind_rows(), rowwise() c_across() now supported e.g. columns class mic. Despite , AMR package still zero-dependent package, including dplyr vctrs. Greatly updated expanded documentation Stopped support SAS (.xpt) files, since file structure extremely inefficient requires disk space GitHub allows single commit.","code":""},{"path":"https://amr-for-r.org/news/index.html","id":"older-versions-3-0-0","dir":"Changelog","previous_headings":"","what":"Older Versions","title":"AMR 3.0.0","text":"changelog contains changes AMR v3.0 (June 2025) later. prior v2 versions, please see v2 archive. prior v1 versions, please see v1 archive.","code":""}]