From d6c59896e91414a2ace4e6fd66aab682ed27c8bd Mon Sep 17 00:00:00 2001
From: github-actions <41898282+github-actions[bot]@users.noreply.github.com>
Date: Mon, 30 Mar 2026 08:18:09 +0000
Subject: [PATCH] Built site for AMR@3.0.1.9041: 3a736bc

---
 404.html                                 |   2 +-
 CLAUDE.html                              |   4 +-
 LICENSE-text.html                        |   2 +-
 articles/AMR.html                        |  14 +++----
 articles/AMR.md                          |   8 ++--
 articles/AMR_for_Python.html             |   2 +-
 articles/AMR_with_tidymodels.html        |   2 +-
 articles/EUCAST.html                     |   2 +-
 articles/PCA.html                        |   2 +-
 articles/WHONET.html                     |   2 +-
 articles/WISCA.html                      |   2 +-
 articles/datasets.html                   |  42 ++++++++++----------
 articles/datasets.md                     |  38 +++++++++---------
 articles/index.html                      |   2 +-
 authors.html                             |   2 +-
 index.html                               |  34 ++++++++--------
 index.md                                 |  32 +++++++--------
 llms.txt                                 |  34 ++++++++--------
 news/index.html                          |  13 +++---
 news/index.md                            |   8 +++-
 pkgdown.yml                              |   2 +-
 reference/AMR-deprecated.html            |   2 +-
 reference/AMR-options.html               |   8 ++--
 reference/AMR-options.md                 |  10 ++---
 reference/AMR.html                       |   8 ++--
 reference/AMR.md                         |   2 +-
 reference/WHOCC.html                     |   2 +-
 reference/WHONET.html                    |   2 +-
 reference/ab_from_text.html              |   2 +-
 reference/ab_property.html               |   2 +-
 reference/add_custom_antimicrobials.html |   2 +-
 reference/add_custom_microorganisms.html |   2 +-
 reference/age.html                       |  22 +++++------
 reference/age.md                         |  20 +++++-----
 reference/age_groups.html                |   2 +-
 reference/amr-tidymodels.html            |   2 +-
 reference/amr_course.html                |   2 +-
 reference/antibiogram.html               |   2 +-
 reference/antimicrobial_selectors.html   |   2 +-
 reference/antimicrobials.html            |   2 +-
 reference/as.ab.html                     |   2 +-
 reference/as.av.html                     |   2 +-
 reference/as.disk.html                   |   2 +-
 reference/as.mic-2.png                   | Bin 46360 -> 46411 bytes
 reference/as.mic-3.png                   | Bin 52101 -> 52205 bytes
 reference/as.mic-4.png                   | Bin 51370 -> 51563 bytes
 reference/as.mic.html                    |   4 +-
 reference/as.mic.md                      |   2 +-
 reference/as.mo.html                     |   2 +-
 reference/as.sir.html                    |  36 ++++++++---------
 reference/as.sir.md                      |  38 +++++++++---------
 reference/atc_online.html                |   2 +-
 reference/av_from_text.html              |   2 +-
 reference/av_property.html               |   2 +-
 reference/availability.html              |   2 +-
 reference/bug_drug_combinations.html     |   2 +-
 reference/clinical_breakpoints.html      |  48 +++++++++++------------
 reference/clinical_breakpoints.md        |  38 +++++++++---------
 reference/count.html                     |   2 +-
 reference/custom_eucast_rules.html       |   2 +-
 reference/custom_mdro_guideline.html     |   2 +-
 reference/dosage.html                    |   2 +-
 reference/esbl_isolates.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/interpretive_rules.html        |   2 +-
 reference/intrinsic_resistant.html       |   2 +-
 reference/italicise_taxonomy.html        |   2 +-
 reference/join.html                      |   2 +-
 reference/key_antimicrobials.html        |   2 +-
 reference/kurtosis.html                  |   2 +-
 reference/like.html                      |   2 +-
 reference/mdro.html                      |   2 +-
 reference/mean_amr_distance.html         |   2 +-
 reference/microorganisms.codes.html      |  12 +++---
 reference/microorganisms.codes.md        |   8 ++--
 reference/microorganisms.groups.html     |   2 +-
 reference/microorganisms.html            |   2 +-
 reference/mo_matching_score.html         |   2 +-
 reference/mo_property.html               |   2 +-
 reference/mo_source.html                 |   2 +-
 reference/pca.html                       |   2 +-
 reference/plot-15.png                    | Bin 53534 -> 53663 bytes
 reference/plot-17.png                    | Bin 52862 -> 52917 bytes
 reference/plot-18.png                    | Bin 50789 -> 50826 bytes
 reference/plot-2.png                     | Bin 61843 -> 61925 bytes
 reference/plot-3.png                     | Bin 60611 -> 60670 bytes
 reference/plot.html                      |   4 +-
 reference/plot.md                        |   2 +-
 reference/proportion.html                |   2 +-
 reference/random.html                    |   2 +-
 reference/resistance_predict.html        |   2 +-
 reference/skewness.html                  |   2 +-
 reference/top_n_microorganisms.html      |   2 +-
 reference/translate.html                 |   2 +-
 search.json                              |   2 +-
 105 files changed, 320 insertions(+), 313 deletions(-)

diff --git a/404.html b/404.html
index 0076fba14..497473a02 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</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/CLAUDE.html b/CLAUDE.html
index 87f328638..31af006bb 100644
--- a/CLAUDE.html
+++ b/CLAUDE.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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</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">
@@ -73,7 +73,7 @@
 <span><span class="fu">pkgdown</span><span class="fu">::</span><span class="fu"><a href="https://pkgdown.r-lib.org/reference/build_site.html" class="external-link">build_site</a></span><span class="op">(</span><span class="op">)</span></span>
 <span></span>
 <span><span class="co"># Code coverage report</span></span>
-<span><span class="fu">covr</span><span class="fu">::</span><span class="fu"><a href="http://covr.r-lib.org/reference/package_coverage.html" class="external-link">package_coverage</a></span><span class="op">(</span><span class="op">)</span></span></code></pre></div>
+<span><span class="fu">covr</span><span class="fu">::</span><span class="fu">package_coverage</span><span class="op">(</span><span class="op">)</span></span></code></pre></div>
 <p>From the shell:</p>
 <div class="sourceCode" id="cb2"><pre class="sourceCode bash"><code class="sourceCode bash"><span id="cb2-1"><a href="#cb2-1" tabindex="-1"></a><span class="co"># CRAN check from parent directory</span></span>
 <span id="cb2-2"><a href="#cb2-2" tabindex="-1"></a><span class="ex">R</span> CMD check AMR</span></code></pre></div>
diff --git a/LICENSE-text.html b/LICENSE-text.html
index 3260ddba0..526e1cd86 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</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 da7938ab9..d54bfd7bf 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</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 24 March 2026.</p>
+generated on 30 March 2026.</p>
 <div class="section level2">
 <h2 id="introduction">Introduction<a class="anchor" aria-label="anchor" href="#introduction"></a>
 </h2>
@@ -147,21 +147,21 @@ make the structure of your data generally look like this:</p>
 </tr></thead>
 <tbody>
 <tr class="odd">
-<td align="center">2026-03-24</td>
+<td align="center">2026-03-30</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">2026-03-24</td>
+<td align="center">2026-03-30</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">2026-03-24</td>
+<td align="center">2026-03-30</td>
 <td align="center">efgh</td>
 <td align="center">Escherichia coli</td>
 <td align="center">R</td>
@@ -263,8 +263,8 @@ user input can be used:</p>
 <p>Now we can thus clean our data:</p>
 <div class="sourceCode" id="cb5"><pre class="downlit sourceCode r">
 <code class="sourceCode R"><span><span class="va">our_data</span><span class="op">$</span><span class="va">bacteria</span> <span class="op">&lt;-</span> <span class="fu"><a href="../reference/as.mo.html">as.mo</a></span><span class="op">(</span><span class="va">our_data</span><span class="op">$</span><span class="va">bacteria</span>, info <span class="op">=</span> <span class="cn">TRUE</span><span class="op">)</span></span>
-<span><span class="co">#&gt; <span style="color: #00BBBB;">ℹ</span> Retrieved values from the `microorganisms.codes` data set for "ESCCOL",</span></span>
-<span><span class="co">#&gt;   "KLEPNE", "STAAUR", and "STRPNE".</span></span>
+<span><span class="co">#&gt; <span style="color: #00BBBB;">ℹ</span> Retrieved values from the `microorganisms.codes` data set for <span style="color: #0000BB;">"ESCCOL"</span>,</span></span>
+<span><span class="co">#&gt;   <span style="color: #0000BB;">"KLEPNE"</span>, <span style="color: #0000BB;">"STAAUR"</span>, and <span style="color: #0000BB;">"STRPNE"</span>.</span></span>
 <span><span class="co">#&gt; <span style="color: #00BBBB;">ℹ</span> Microorganism translation was uncertain for four microorganisms. Run</span></span>
 <span><span class="co">#&gt;   `mo_uncertainties()` to review these uncertainties, or use</span></span>
 <span><span class="co">#&gt;   `add_custom_microorganisms()` to add custom entries.</span></span></code></pre></div>
diff --git a/articles/AMR.md b/articles/AMR.md
index d73d32c2f..f6b9835c0 100644
--- a/articles/AMR.md
+++ b/articles/AMR.md
@@ -3,7 +3,7 @@
 **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 24 March 2026.
+methodology remains unchanged. This page was generated on 30 March 2026.
 
 ## Introduction
 
@@ -51,9 +51,9 @@ structure of your data generally look like this:
 
 |    date    | patient_id |        mo        | AMX | CIP |
 |:----------:|:----------:|:----------------:|:---:|:---:|
-| 2026-03-24 |    abcd    | Escherichia coli |  S  |  S  |
-| 2026-03-24 |    abcd    | Escherichia coli |  S  |  R  |
-| 2026-03-24 |    efgh    | Escherichia coli |  R  |  S  |
+| 2026-03-30 |    abcd    | Escherichia coli |  S  |  S  |
+| 2026-03-30 |    abcd    | Escherichia coli |  S  |  R  |
+| 2026-03-30 |    efgh    | Escherichia coli |  R  |  S  |
 
 ### Needed R packages
 
diff --git a/articles/AMR_for_Python.html b/articles/AMR_for_Python.html
index 89119e6dd..6ef9b9ede 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</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 f40eb390c..b90a63233 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</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 3bcd3939a..7d5786819 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</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 74f608397..d8835eb8f 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</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 270c36374..5e59155eb 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</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/WISCA.html b/articles/WISCA.html
index f43125fde..3f32d075d 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/articles/datasets.html b/articles/datasets.html
index f9d3c273b..5222bf3c6 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</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">24 March 2026</h4>
+            <h4 data-toc-skip class="date">30 March 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>
@@ -595,38 +595,38 @@ inhibitors</td>
 <code>clinical_breakpoints</code>: Interpretation from MIC values
 &amp; disk diameters to SIR<a class="anchor" aria-label="anchor" href="#clinical_breakpoints-interpretation-from-mic-values-disk-diameters-to-sir"></a>
 </h2>
-<p>A data set with 40 217 rows and 14 columns, containing the following
+<p>A data set with 45 797 rows and 14 columns, containing the following
 column names:<br><em>guideline</em>, <em>type</em>, <em>host</em>, <em>method</em>,
 <em>site</em>, <em>mo</em>, <em>rank_index</em>, <em>ab</em>,
 <em>ref_tbl</em>, <em>disk_dose</em>, <em>breakpoint_S</em>,
 <em>breakpoint_R</em>, <em>uti</em>, and <em>is_SDD</em>.</p>
 <p>This data set is in R available as <code>clinical_breakpoints</code>,
 after you load the <code>AMR</code> package.</p>
-<p>It was last updated on 20 April 2025 10:55:31 UTC. Find more info
+<p>It was last updated on 30 March 2026 08:01:49 UTC. Find more info
 about the contents, (scientific) source, and structure of this <a href="https://amr-for-r.org/reference/clinical_breakpoints.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/clinical_breakpoints.rds" class="external-link">original
-R Data Structure (RDS) file</a> (88 kB)<br>
+R Data Structure (RDS) file</a> (92 kB)<br>
 </li>
 <li>Download as <a href="https://github.com/msberends/AMR/raw/main/data-raw/datasets/clinical_breakpoints.txt" class="external-link">tab-separated
-text file</a> (3.7 MB)<br>
+text file</a> (4.2 MB)<br>
 </li>
 <li>Download as <a href="https://github.com/msberends/AMR/raw/main/data-raw/datasets/clinical_breakpoints.xlsx" class="external-link">Microsoft
-Excel workbook</a> (2.4 MB)<br>
+Excel workbook</a> (2.7 MB)<br>
 </li>
 <li>Download as <a href="https://github.com/msberends/AMR/raw/main/data-raw/datasets/clinical_breakpoints.feather" class="external-link">Apache
-Feather file</a> (1.8 MB)<br>
+Feather file</a> (2 MB)<br>
 </li>
 <li>Download as <a href="https://github.com/msberends/AMR/raw/main/data-raw/datasets/clinical_breakpoints.parquet" class="external-link">Apache
 Parquet file</a> (0.1 MB)<br>
 </li>
 <li>Download as <a href="https://github.com/msberends/AMR/raw/main/data-raw/datasets/clinical_breakpoints.sav" class="external-link">IBM
-SPSS Statistics data file</a> (6.6 MB)<br>
+SPSS Statistics data file</a> (7.5 MB)<br>
 </li>
 <li>Download as <a href="https://github.com/msberends/AMR/raw/main/data-raw/datasets/clinical_breakpoints.dta" class="external-link">Stata
-DTA file</a> (11.1 MB)</li>
+DTA file</a> (12.6 MB)</li>
 </ul>
 <p><strong>Example content</strong></p>
 <table class="table">
@@ -668,7 +668,7 @@ DTA file</a> (11.1 MB)</li>
 </tr></thead>
 <tbody>
 <tr class="odd">
-<td align="center">EUCAST 2025</td>
+<td align="center">EUCAST 2026</td>
 <td align="center">human</td>
 <td align="center">human</td>
 <td align="center">DISK</td>
@@ -686,7 +686,7 @@ DTA file</a> (11.1 MB)</li>
 <td align="center">FALSE</td>
 </tr>
 <tr class="even">
-<td align="center">EUCAST 2025</td>
+<td align="center">EUCAST 2026</td>
 <td align="center">human</td>
 <td align="center">human</td>
 <td align="center">MIC</td>
@@ -704,7 +704,7 @@ DTA file</a> (11.1 MB)</li>
 <td align="center">FALSE</td>
 </tr>
 <tr class="odd">
-<td align="center">EUCAST 2025</td>
+<td align="center">EUCAST 2026</td>
 <td align="center">human</td>
 <td align="center">human</td>
 <td align="center">DISK</td>
@@ -722,7 +722,7 @@ DTA file</a> (11.1 MB)</li>
 <td align="center">FALSE</td>
 </tr>
 <tr class="even">
-<td align="center">EUCAST 2025</td>
+<td align="center">EUCAST 2026</td>
 <td align="center">human</td>
 <td align="center">human</td>
 <td align="center">MIC</td>
@@ -740,7 +740,7 @@ DTA file</a> (11.1 MB)</li>
 <td align="center">FALSE</td>
 </tr>
 <tr class="odd">
-<td align="center">EUCAST 2025</td>
+<td align="center">EUCAST 2026</td>
 <td align="center">human</td>
 <td align="center">human</td>
 <td align="center">DISK</td>
@@ -758,7 +758,7 @@ DTA file</a> (11.1 MB)</li>
 <td align="center">FALSE</td>
 </tr>
 <tr class="even">
-<td align="center">EUCAST 2025</td>
+<td align="center">EUCAST 2026</td>
 <td align="center">human</td>
 <td align="center">human</td>
 <td align="center">MIC</td>
@@ -1794,17 +1794,17 @@ set here</a>.</p>
 <h2 id="microorganisms-codes-common-laboratory-codes">
 <code>microorganisms.codes</code>: Common Laboratory Codes<a class="anchor" aria-label="anchor" href="#microorganisms-codes-common-laboratory-codes"></a>
 </h2>
-<p>A data set with 6 036 rows and 2 columns, containing the following
+<p>A data set with 6 050 rows and 2 columns, containing the following
 column names:<br><em>code</em> and <em>mo</em>.</p>
 <p>This data set is in R available as <code>microorganisms.codes</code>,
 after you load the <code>AMR</code> package.</p>
-<p>It was last updated on 4 May 2025 16:50:25 UTC. Find more info about
-the contents, (scientific) source, and structure of this <a href="https://amr-for-r.org/reference/microorganisms.codes.html">data
+<p>It was last updated on 30 March 2026 08:01:49 UTC. Find more info
+about the contents, (scientific) source, and structure of this <a href="https://amr-for-r.org/reference/microorganisms.codes.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/microorganisms.codes.rds" class="external-link">original
-R Data Structure (RDS) file</a> (27 kB)<br>
+R Data Structure (RDS) file</a> (28 kB)<br>
 </li>
 <li>Download as <a href="https://github.com/msberends/AMR/raw/main/data-raw/datasets/microorganisms.codes.txt" class="external-link">tab-separated
 text file</a> (0.1 MB)<br>
@@ -1816,7 +1816,7 @@ Excel workbook</a> (98 kB)<br>
 Feather file</a> (0.1 MB)<br>
 </li>
 <li>Download as <a href="https://github.com/msberends/AMR/raw/main/data-raw/datasets/microorganisms.codes.parquet" class="external-link">Apache
-Parquet file</a> (68 kB)<br>
+Parquet file</a> (69 kB)<br>
 </li>
 <li>Download as <a href="https://github.com/msberends/AMR/raw/main/data-raw/datasets/microorganisms.codes.sav" class="external-link">IBM
 SPSS Statistics data file</a> (0.2 MB)<br>
diff --git a/articles/datasets.md b/articles/datasets.md
index 60f6490e2..7312da902 100644
--- a/articles/datasets.md
+++ b/articles/datasets.md
@@ -147,7 +147,7 @@ as comma separated values.
 
 ## `clinical_breakpoints`: Interpretation from MIC values & disk diameters to SIR
 
-A data set with 40 217 rows and 14 columns, containing the following
+A data set with 45 797 rows and 14 columns, containing the following
 column names:  
 *guideline*, *type*, *host*, *method*, *site*, *mo*, *rank_index*, *ab*,
 *ref_tbl*, *disk_dose*, *breakpoint_S*, *breakpoint_R*, *uti*, and
@@ -156,7 +156,7 @@ column names:
 This data set is in R available as `clinical_breakpoints`, after you
 load the `AMR` package.
 
-It was last updated on 20 April 2025 10:55:31 UTC. Find more info about
+It was last updated on 30 March 2026 08:01:49 UTC. Find more info about
 the contents, (scientific) source, and structure of this [data set
 here](https://amr-for-r.org/reference/clinical_breakpoints.html).
 
@@ -164,36 +164,36 @@ here](https://amr-for-r.org/reference/clinical_breakpoints.html).
 
 - Download as [original R Data Structure (RDS)
   file](https://github.com/msberends/AMR/raw/main/data-raw/datasets/clinical_breakpoints.rds)
-  (88 kB)  
+  (92 kB)  
 - Download as [tab-separated text
   file](https://github.com/msberends/AMR/raw/main/data-raw/datasets/clinical_breakpoints.txt)
-  (3.7 MB)  
+  (4.2 MB)  
 - Download as [Microsoft Excel
   workbook](https://github.com/msberends/AMR/raw/main/data-raw/datasets/clinical_breakpoints.xlsx)
-  (2.4 MB)  
+  (2.7 MB)  
 - Download as [Apache Feather
   file](https://github.com/msberends/AMR/raw/main/data-raw/datasets/clinical_breakpoints.feather)
-  (1.8 MB)  
+  (2 MB)  
 - Download as [Apache Parquet
   file](https://github.com/msberends/AMR/raw/main/data-raw/datasets/clinical_breakpoints.parquet)
   (0.1 MB)  
 - Download as [IBM SPSS Statistics data
   file](https://github.com/msberends/AMR/raw/main/data-raw/datasets/clinical_breakpoints.sav)
-  (6.6 MB)  
+  (7.5 MB)  
 - Download as [Stata DTA
   file](https://github.com/msberends/AMR/raw/main/data-raw/datasets/clinical_breakpoints.dta)
-  (11.1 MB)
+  (12.6 MB)
 
 **Example content**
 
 |  guideline  | type  | host  | method | site |      mo       |          mo_name           | rank_index | ab  |            ab_name            |     ref_tbl     |   disk_dose    | breakpoint_S | breakpoint_R |  uti  | is_SDD |
 |:-----------:|:-----:|:-----:|:------:|:----:|:-------------:|:--------------------------:|:----------:|:---:|:-----------------------------:|:---------------:|:--------------:|:------------:|:------------:|:-----:|:------:|
-| EUCAST 2025 | human | human |  DISK  |      | B_ACHRMB_XYLS | Achromobacter xylosoxidans |     2      | MEM |           Meropenem           | A. xylosoxidans |     10 mcg     |    26.000    |    20.000    | FALSE | FALSE  |
-| EUCAST 2025 | human | human |  MIC   |      | B_ACHRMB_XYLS | Achromobacter xylosoxidans |     2      | MEM |           Meropenem           | A. xylosoxidans |                |    1.000     |    4.000     | FALSE | FALSE  |
-| EUCAST 2025 | human | human |  DISK  |      | B_ACHRMB_XYLS | Achromobacter xylosoxidans |     2      | SXT | Trimethoprim/sulfamethoxazole | A. xylosoxidans | 1.25/23.75 mcg |    26.000    |    26.000    | FALSE | FALSE  |
-| EUCAST 2025 | human | human |  MIC   |      | B_ACHRMB_XYLS | Achromobacter xylosoxidans |     2      | SXT | Trimethoprim/sulfamethoxazole | A. xylosoxidans |                |    0.125     |    0.125     | FALSE | FALSE  |
-| EUCAST 2025 | human | human |  DISK  |      | B_ACHRMB_XYLS | Achromobacter xylosoxidans |     2      | TZP |    Piperacillin/tazobactam    | A. xylosoxidans |    30/6 mcg    |    26.000    |    26.000    | FALSE | FALSE  |
-| EUCAST 2025 | human | human |  MIC   |      | B_ACHRMB_XYLS | Achromobacter xylosoxidans |     2      | TZP |    Piperacillin/tazobactam    | A. xylosoxidans |                |    4.000     |    4.000     | FALSE | FALSE  |
+| EUCAST 2026 | human | human |  DISK  |      | B_ACHRMB_XYLS | Achromobacter xylosoxidans |     2      | MEM |           Meropenem           | A. xylosoxidans |     10 mcg     |    26.000    |    20.000    | FALSE | FALSE  |
+| EUCAST 2026 | human | human |  MIC   |      | B_ACHRMB_XYLS | Achromobacter xylosoxidans |     2      | MEM |           Meropenem           | A. xylosoxidans |                |    1.000     |    4.000     | FALSE | FALSE  |
+| EUCAST 2026 | human | human |  DISK  |      | B_ACHRMB_XYLS | Achromobacter xylosoxidans |     2      | SXT | Trimethoprim/sulfamethoxazole | A. xylosoxidans | 1.25/23.75 mcg |    26.000    |    26.000    | FALSE | FALSE  |
+| EUCAST 2026 | human | human |  MIC   |      | B_ACHRMB_XYLS | Achromobacter xylosoxidans |     2      | SXT | Trimethoprim/sulfamethoxazole | A. xylosoxidans |                |    0.125     |    0.125     | FALSE | FALSE  |
+| EUCAST 2026 | human | human |  DISK  |      | B_ACHRMB_XYLS | Achromobacter xylosoxidans |     2      | TZP |    Piperacillin/tazobactam    | A. xylosoxidans |    30/6 mcg    |    26.000    |    26.000    | FALSE | FALSE  |
+| EUCAST 2026 | human | human |  MIC   |      | B_ACHRMB_XYLS | Achromobacter xylosoxidans |     2      | TZP |    Piperacillin/tazobactam    | A. xylosoxidans |                |    4.000     |    4.000     | FALSE | FALSE  |
 
 ------------------------------------------------------------------------
 
@@ -460,22 +460,22 @@ here](https://amr-for-r.org/reference/example_isolates_unclean.html).
 
 ## `microorganisms.codes`: Common Laboratory Codes
 
-A data set with 6 036 rows and 2 columns, containing the following
+A data set with 6 050 rows and 2 columns, containing the following
 column names:  
 *code* and *mo*.
 
 This data set is in R available as `microorganisms.codes`, after you
 load the `AMR` package.
 
-It was last updated on 4 May 2025 16:50:25 UTC. Find more info about the
-contents, (scientific) source, and structure of this [data set
+It was last updated on 30 March 2026 08:01:49 UTC. Find more info about
+the contents, (scientific) source, and structure of this [data set
 here](https://amr-for-r.org/reference/microorganisms.codes.html).
 
 **Direct download links:**
 
 - Download as [original R Data Structure (RDS)
   file](https://github.com/msberends/AMR/raw/main/data-raw/datasets/microorganisms.codes.rds)
-  (27 kB)  
+  (28 kB)  
 - Download as [tab-separated text
   file](https://github.com/msberends/AMR/raw/main/data-raw/datasets/microorganisms.codes.txt)
   (0.1 MB)  
@@ -487,7 +487,7 @@ here](https://amr-for-r.org/reference/microorganisms.codes.html).
   (0.1 MB)  
 - Download as [Apache Parquet
   file](https://github.com/msberends/AMR/raw/main/data-raw/datasets/microorganisms.codes.parquet)
-  (68 kB)  
+  (69 kB)  
 - Download as [IBM SPSS Statistics data
   file](https://github.com/msberends/AMR/raw/main/data-raw/datasets/microorganisms.codes.sav)
   (0.2 MB)  
diff --git a/articles/index.html b/articles/index.html
index 84938be15..8c528de6b 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</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 b860086a7..a6fdc55ff 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</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 3679d7e81..5dce6d989 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</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">
@@ -87,7 +87,7 @@
 <li>Peer-reviewed, used in over 175 countries, available in 28 languages</li>
 <li>Generates <strong>antibiograms</strong> - traditional, combined, syndromic, and even WISCA</li>
 <li>Provides the <strong>full microbiological taxonomy</strong> of ~79 000 distinct species and extensive info of ~620 antimicrobial drugs</li>
-<li>Applies <strong>CLSI 2011-2025</strong> and <strong>EUCAST 2011-2025</strong> clinical and veterinary breakpoints, and ECOFFs, for MIC and disk zone interpretation</li>
+<li>Applies <strong>CLSI 2011-2026</strong> and <strong>EUCAST 2011-2026</strong> clinical and veterinary breakpoints, and ECOFFs, for MIC and disk zone interpretation</li>
 <li>Corrects for duplicate isolates, <strong>calculates</strong> and <strong>predicts</strong> AMR per antimicrobial class</li>
 <li>Integrates with <strong>WHONET</strong>, ATC, <strong>EARS-Net</strong>, PubChem, <strong>LOINC</strong>, <strong>SNOMED CT</strong>, and <strong>NCBI</strong>
 </li>
@@ -112,7 +112,7 @@
 </h2>
 <p>The <code>AMR</code> package is a peer-reviewed, <a href="#copyright">free and open-source</a> R package with <a href="https://en.wikipedia.org/wiki/Dependency_hell" class="external-link">zero dependencies</a> to simplify the analysis and prediction of Antimicrobial Resistance (AMR) and to work with microbial and antimicrobial data and properties, by using evidence-based methods. <strong>Our aim is to provide a standard</strong> for clean and reproducible AMR data analysis, that can therefore empower epidemiological analyses to continuously enable surveillance and treatment evaluation in any setting. We are a team of <a href="./authors.html">many different researchers</a> from around the globe to make this a successful and durable project!</p>
 <p>This work was published in the Journal of Statistical Software (Volume 104(3); <a href="https://doi.org/10.18637/jss.v104.i03" class="external-link">DOI 10.18637/jss.v104.i03</a>) and formed the basis of two PhD theses (<a href="https://doi.org/10.33612/diss.177417131" class="external-link">DOI 10.33612/diss.177417131</a> and <a href="https://doi.org/10.33612/diss.192486375" class="external-link">DOI 10.33612/diss.192486375</a>).</p>
-<p>After installing this package, R knows <a href="./reference/microorganisms.html"><strong>~79 000 distinct microbial species</strong></a> (updated June 2024) and all <a href="./reference/antimicrobials.html"><strong>~620 antimicrobial and antiviral drugs</strong></a> by name and code (including ATC, EARS-Net, ASIARS-Net, PubChem, LOINC and SNOMED CT), and knows all about valid SIR and MIC values. The integral clinical breakpoint guidelines from CLSI 2011-2025 and EUCAST 2011-2025 are included, even with epidemiological cut-off (ECOFF) values. It supports and can read any data format, including WHONET data. This package works on Windows, macOS and Linux with all versions of R since R-3.0 (April 2013). <strong>It was designed to work in any setting, including those with very limited resources</strong>. It was created for both routine data analysis and academic research at the Faculty of Medical Sciences of the <a href="https://www.rug.nl" class="external-link">University of Groningen</a> and the <a href="https://www.umcg.nl" class="external-link">University Medical Center Groningen</a>.</p>
+<p>After installing this package, R knows <a href="./reference/microorganisms.html"><strong>~79 000 distinct microbial species</strong></a> (updated June 2024) and all <a href="./reference/antimicrobials.html"><strong>~620 antimicrobial and antiviral drugs</strong></a> by name and code (including ATC, EARS-Net, ASIARS-Net, PubChem, LOINC and SNOMED CT), and knows all about valid SIR and MIC values. The integral clinical breakpoint guidelines from CLSI 2011-2026 and EUCAST 2011-2026 are included, even with epidemiological cut-off (ECOFF) values. It supports and can read any data format, including WHONET data. This package works on Windows, macOS and Linux with all versions of R since R-3.0 (April 2013). <strong>It was designed to work in any setting, including those with very limited resources</strong>. It was created for both routine data analysis and academic research at the Faculty of Medical Sciences of the <a href="https://www.rug.nl" class="external-link">University of Groningen</a> and the <a href="https://www.umcg.nl" class="external-link">University Medical Center Groningen</a>.</p>
 <div class="section level3">
 <h3 id="used-in-over-175-countries-available-in-28-languages">Used in over 175 countries, available in 28 languages<a class="anchor" aria-label="anchor" href="#used-in-over-175-countries-available-in-28-languages"></a>
 </h3>
@@ -142,14 +142,14 @@
 <span>  <span class="fu"><a href="https://dplyr.tidyverse.org/reference/select.html" class="external-link">select</a></span><span class="op">(</span><span class="va">bacteria</span>,</span>
 <span>         <span class="fu"><a href="reference/antimicrobial_selectors.html">aminoglycosides</a></span><span class="op">(</span><span class="op">)</span>,</span>
 <span>         <span class="fu"><a href="reference/antimicrobial_selectors.html">carbapenems</a></span><span class="op">(</span><span class="op">)</span><span class="op">)</span></span>
-<span><span class="co">#&gt; ℹ Using column 'mo' as input for `mo_fullname()`</span></span>
-<span><span class="co">#&gt; ℹ Using column 'mo' as input for `mo_is_gram_negative()`</span></span>
-<span><span class="co">#&gt; ℹ Using column 'mo' as input for `mo_is_intrinsic_resistant()`</span></span>
+<span><span class="co">#&gt; ℹ Using column mo as input for `mo_fullname()`</span></span>
+<span><span class="co">#&gt; ℹ Using column mo as input for `mo_is_gram_negative()`</span></span>
+<span><span class="co">#&gt; ℹ Using column mo as input for `mo_is_intrinsic_resistant()`</span></span>
 <span><span class="co">#&gt; ℹ Determining intrinsic resistance based on 'EUCAST Expected Resistant</span></span>
 <span><span class="co">#&gt;   Phenotypes' v1.2 (2023). This note will be shown once per session.</span></span>
-<span><span class="co">#&gt; ℹ For `aminoglycosides()` using columns 'GEN' (gentamicin), 'TOB'</span></span>
-<span><span class="co">#&gt;   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin)</span></span>
-<span><span class="co">#&gt; ℹ For `carbapenems()` using columns 'IPM' (imipenem) and 'MEM' (meropenem)</span></span>
+<span><span class="co">#&gt; ℹ For `aminoglycosides()` using columns GEN (gentamicin), TOB (tobramycin), AMK</span></span>
+<span><span class="co">#&gt;   (amikacin), and KAN (kanamycin)</span></span>
+<span><span class="co">#&gt; ℹ For `carbapenems()` using columns IPM (imipenem) and MEM (meropenem)</span></span>
 <span><span class="co">#&gt; # A tibble: 35 × 7</span></span>
 <span><span class="co">#&gt;    bacteria                     GEN   TOB   AMK   KAN   IPM   MEM  </span></span>
 <span><span class="co">#&gt;    &lt;chr&gt;                        &lt;sir&gt; &lt;sir&gt; &lt;sir&gt; &lt;sir&gt; &lt;sir&gt; &lt;sir&gt;</span></span>
@@ -174,9 +174,9 @@
 <div class="sourceCode" id="cb2"><pre class="downlit sourceCode r">
 <code class="sourceCode R"><span><span class="fu"><a href="reference/antibiogram.html">antibiogram</a></span><span class="op">(</span><span class="va">example_isolates</span>,</span>
 <span>            antimicrobials <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/c.html" class="external-link">c</a></span><span class="op">(</span><span class="fu"><a href="reference/antimicrobial_selectors.html">aminoglycosides</a></span><span class="op">(</span><span class="op">)</span>, <span class="fu"><a href="reference/antimicrobial_selectors.html">carbapenems</a></span><span class="op">(</span><span class="op">)</span><span class="op">)</span><span class="op">)</span></span>
-<span><span class="co">#&gt; ℹ For `aminoglycosides()` using columns 'GEN' (gentamicin), 'TOB'</span></span>
-<span><span class="co">#&gt;   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin)</span></span>
-<span><span class="co">#&gt; ℹ For `carbapenems()` using columns 'IPM' (imipenem) and 'MEM' (meropenem)</span></span></code></pre></div>
+<span><span class="co">#&gt; ℹ For `aminoglycosides()` using columns GEN (gentamicin), TOB (tobramycin), AMK</span></span>
+<span><span class="co">#&gt;   (amikacin), and KAN (kanamycin)</span></span>
+<span><span class="co">#&gt; ℹ For `carbapenems()` using columns IPM (imipenem) and MEM (meropenem)</span></span></code></pre></div>
 <table style="width:100%;" class="table">
 <colgroup>
 <col width="14%">
@@ -425,15 +425,15 @@
 <span>  <span class="co"># calculate AMR using resistance(), over all aminoglycosides and polymyxins:</span></span>
 <span>  <span class="fu"><a href="https://dplyr.tidyverse.org/reference/summarise.html" class="external-link">summarise</a></span><span class="op">(</span><span class="fu"><a href="https://dplyr.tidyverse.org/reference/across.html" class="external-link">across</a></span><span class="op">(</span><span class="fu"><a href="https://rdrr.io/r/base/c.html" class="external-link">c</a></span><span class="op">(</span><span class="fu"><a href="reference/antimicrobial_selectors.html">aminoglycosides</a></span><span class="op">(</span><span class="op">)</span>, <span class="fu"><a href="reference/antimicrobial_selectors.html">polymyxins</a></span><span class="op">(</span><span class="op">)</span><span class="op">)</span>,</span>
 <span>            <span class="va">resistance</span><span class="op">)</span><span class="op">)</span></span>
-<span><span class="co">#&gt; ℹ For `aminoglycosides()` using columns 'GEN' (gentamicin), 'TOB'</span></span>
-<span><span class="co">#&gt;   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin)</span></span>
-<span><span class="co">#&gt; ℹ For `polymyxins()` using column 'COL' (colistin)</span></span>
+<span><span class="co">#&gt; ℹ For `aminoglycosides()` using columns GEN (gentamicin), TOB (tobramycin), AMK</span></span>
+<span><span class="co">#&gt;   (amikacin), and KAN (kanamycin)</span></span>
+<span><span class="co">#&gt; ℹ For `polymyxins()` using column COL (colistin)</span></span>
 <span><span class="co">#&gt; Warning: There was 1 warning in `summarise()`.</span></span>
 <span><span class="co">#&gt; ℹ In argument: `across(c(aminoglycosides(), polymyxins()), resistance)`.</span></span>
 <span><span class="co">#&gt; ℹ In group 3: `ward = "Outpatient"`.</span></span>
 <span><span class="co">#&gt; Caused by warning:</span></span>
-<span><span class="co">#&gt; ! Introducing NA: only 23 results available for KAN in group: ward =</span></span>
-<span><span class="co">#&gt; "Outpatient" (`minimum` = 30).</span></span>
+<span><span class="co">#&gt; ! Introducing NA: only 23 results available for KAN in group: ward = "Outpatient"</span></span>
+<span><span class="co">#&gt; (whilst `minimum = 30`).</span></span>
 <span><span class="va">out</span></span>
 <span><span class="co">#&gt; # A tibble: 3 × 6</span></span>
 <span><span class="co">#&gt;   ward         GEN   TOB   AMK   KAN   COL</span></span>
diff --git a/index.md b/index.md
index d69be8a66..e57b8a9bc 100644
--- a/index.md
+++ b/index.md
@@ -7,7 +7,7 @@
   even WISCA
 - Provides the **full microbiological taxonomy** of ~79 000 distinct
   species and extensive info of ~620 antimicrobial drugs
-- Applies **CLSI 2011-2025** and **EUCAST 2011-2025** clinical and
+- Applies **CLSI 2011-2026** and **EUCAST 2011-2026** clinical and
   veterinary breakpoints, and ECOFFs, for MIC and disk zone
   interpretation
 - Corrects for duplicate isolates, **calculates** and **predicts** AMR
@@ -55,7 +55,7 @@ June 2024) and all [**~620 antimicrobial and antiviral
 drugs**](https://amr-for-r.org/reference/antimicrobials.md) by name and
 code (including ATC, EARS-Net, ASIARS-Net, PubChem, LOINC and SNOMED
 CT), and knows all about valid SIR and MIC values. The integral clinical
-breakpoint guidelines from CLSI 2011-2025 and EUCAST 2011-2025 are
+breakpoint guidelines from CLSI 2011-2026 and EUCAST 2011-2026 are
 included, even with epidemiological cut-off (ECOFF) values. It supports
 and can read any data format, including WHONET data. This package works
 on Windows, macOS and Linux with all versions of R since R-3.0 (April
@@ -113,14 +113,14 @@ example_isolates %>%
   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()`
+#> ℹ 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)
+#> ℹ 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>
@@ -163,9 +163,9 @@ output format automatically (such as markdown, LaTeX, HTML, etc.).
 ``` r
 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)
+#> ℹ For `aminoglycosides()` using columns GEN (gentamicin), TOB (tobramycin), AMK
+#>   (amikacin), and KAN (kanamycin)
+#> ℹ For `carbapenems()` using columns IPM (imipenem) and MEM (meropenem)
 ```
 
 | Pathogen         | Amikacin             | Gentamicin          | Imipenem             | Kanamycin       | Meropenem            | Tobramycin          |
@@ -292,15 +292,15 @@ out <- example_isolates %>%
   # 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)
+#> ℹ 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).
+#> ! Introducing NA: only 23 results available for KAN in group: ward = "Outpatient"
+#> (whilst `minimum = 30`).
 out
 #> # A tibble: 3 × 6
 #>   ward         GEN   TOB   AMK   KAN   COL
diff --git a/llms.txt b/llms.txt
index abb37fe18..2c7a590b7 100644
--- a/llms.txt
+++ b/llms.txt
@@ -7,7 +7,7 @@
   even WISCA
 - Provides the **full microbiological taxonomy** of ~79 000 distinct
   species and extensive info of ~620 antimicrobial drugs
-- Applies **CLSI 2011-2025** and **EUCAST 2011-2025** clinical and
+- Applies **CLSI 2011-2026** and **EUCAST 2011-2026** clinical and
   veterinary breakpoints, and ECOFFs, for MIC and disk zone
   interpretation
 - Corrects for duplicate isolates, **calculates** and **predicts** AMR
@@ -55,7 +55,7 @@ June 2024) and all [**~620 antimicrobial and antiviral
 drugs**](https://amr-for-r.org/reference/antimicrobials.md) by name and
 code (including ATC, EARS-Net, ASIARS-Net, PubChem, LOINC and SNOMED
 CT), and knows all about valid SIR and MIC values. The integral clinical
-breakpoint guidelines from CLSI 2011-2025 and EUCAST 2011-2025 are
+breakpoint guidelines from CLSI 2011-2026 and EUCAST 2011-2026 are
 included, even with epidemiological cut-off (ECOFF) values. It supports
 and can read any data format, including WHONET data. This package works
 on Windows, macOS and Linux with all versions of R since R-3.0 (April
@@ -113,14 +113,14 @@ example_isolates %>%
   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()`
+#> ℹ 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)
+#> ℹ 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>
@@ -163,9 +163,9 @@ output format automatically (such as markdown, LaTeX, HTML, etc.).
 ``` r
 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)
+#> ℹ For `aminoglycosides()` using columns GEN (gentamicin), TOB (tobramycin), AMK
+#>   (amikacin), and KAN (kanamycin)
+#> ℹ For `carbapenems()` using columns IPM (imipenem) and MEM (meropenem)
 ```
 
 | Pathogen         | Amikacin             | Gentamicin          | Imipenem             | Kanamycin       | Meropenem            | Tobramycin          |
@@ -292,15 +292,15 @@ out <- example_isolates %>%
   # 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)
+#> ℹ 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).
+#> ! Introducing NA: only 23 results available for KAN in group: ward = "Outpatient"
+#> (whilst `minimum = 30`).
 out
 #> # A tibble: 3 × 6
 #>   ward         GEN   TOB   AMK   KAN   COL
@@ -874,7 +874,7 @@ information about how to work with functions in this package.
 - [`esbl_isolates`](https://amr-for-r.org/reference/esbl_isolates.md) :
   Data Set with 500 ESBL Isolates
 - [`microorganisms.codes`](https://amr-for-r.org/reference/microorganisms.codes.md)
-  : Data Set with 6 036 Common Microorganism Codes
+  : Data Set with 6 050 Common Microorganism Codes
 - [`microorganisms.groups`](https://amr-for-r.org/reference/microorganisms.groups.md)
   : Data Set with 534 Microorganisms In Species Groups
 - [`intrinsic_resistant`](https://amr-for-r.org/reference/intrinsic_resistant.md)
diff --git a/news/index.html b/news/index.html
index 4682d4dd2..d32bd348c 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</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,10 +49,11 @@
     </div>
 
     <div class="section level2">
-<h2 class="pkg-version" data-toc-text="3.0.1.9040" id="amr-3019040">AMR 3.0.1.9040<a class="anchor" aria-label="anchor" href="#amr-3019040"></a></h2>
+<h2 class="pkg-version" data-toc-text="3.0.1.9041" id="amr-3019041">AMR 3.0.1.9041<a class="anchor" aria-label="anchor" href="#amr-3019041"></a></h2>
 <div class="section level4">
-<h4 id="new-3-0-1-9040">New<a class="anchor" aria-label="anchor" href="#new-3-0-1-9040"></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>
+<h4 id="new-3-0-1-9041">New<a class="anchor" aria-label="anchor" href="#new-3-0-1-9041"></a></h4>
+<ul><li>Support for clinical breakpoints of 2026 of both CLSI and EUCAST, by adding all of their over 5,700 new clinical breakpoints to the <code>clinical_breakpoints</code> data set for usage in <code><a href="../reference/as.sir.html">as.sir()</a></code>. EUCAST 2026 is now the new default guideline for all MIC and disk diffusion interpretations.</li>
+<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:
@@ -83,7 +84,7 @@
 <li>Function <code><a href="../reference/amr_course.html">amr_course()</a></code>, which allows for automated download and unpacking of a GitHub repository for e.g. webinar use</li>
 </ul></div>
 <div class="section level4">
-<h4 id="fixes-3-0-1-9040">Fixes<a class="anchor" aria-label="anchor" href="#fixes-3-0-1-9040"></a></h4>
+<h4 id="fixes-3-0-1-9041">Fixes<a class="anchor" aria-label="anchor" href="#fixes-3-0-1-9041"></a></h4>
 <ul><li>Fixed a bug in <code><a href="../reference/as.sir.html">as.sir()</a></code> where values that were purely numeric (e.g., <code>"1"</code>) and matched the broad SIR-matching regex would be incorrectly stripped of all content by the Unicode letter filter</li>
 <li>Fixed a bug in <code><a href="../reference/as.mic.html">as.mic()</a></code> where MIC values in scientific notation (e.g., <code>"1e-3"</code>) were incorrectly handled because the letter <code>e</code> was removed along with other Unicode letters; scientific notation <code>e</code> is now preserved</li>
 <li>Fixed a bug in <code><a href="../reference/as.ab.html">as.ab()</a></code> where certain AB codes containing “PH” or “TH” (such as <code>ETH</code>, <code>MTH</code>, <code>PHE</code>, <code>PHN</code>, <code>STH</code>, <code>THA</code>, <code>THI1</code>) would incorrectly return <code>NA</code> when combined in a vector with any untranslatable value (<a href="https://github.com/msberends/AMR/issues/245" class="external-link">#245</a>)</li>
@@ -98,7 +99,7 @@
 <li>Fixed SIR and MIC coercion of combined values, e.g. <code>as.sir("&lt;= 0.002; S")</code> or <code>as.mic("S; 0.002")</code> (<a href="https://github.com/msberends/AMR/issues/252" class="external-link">#252</a>)</li>
 </ul></div>
 <div class="section level4">
-<h4 id="updates-3-0-1-9040">Updates<a class="anchor" aria-label="anchor" href="#updates-3-0-1-9040"></a></h4>
+<h4 id="updates-3-0-1-9041">Updates<a class="anchor" aria-label="anchor" href="#updates-3-0-1-9041"></a></h4>
 <ul><li>Extensive <code>cli</code> integration for better message handling and clickable links in messages and warnings (<a href="https://github.com/msberends/AMR/issues/191" class="external-link">#191</a>, <a href="https://github.com/msberends/AMR/issues/265" class="external-link">#265</a>)</li>
 <li>
 <code><a href="../reference/mdro.html">mdro()</a></code> now infers resistance for a <em>missing</em> base drug column from an <em>available</em> corresponding drug+inhibitor combination showing resistance (e.g., piperacillin is absent but required, while piperacillin/tazobactam available and resistant). Can be set with the new argument <code>infer_from_combinations</code>, which defaults to <code>TRUE</code> (<a href="https://github.com/msberends/AMR/issues/209" class="external-link">#209</a>). Note that this can yield a higher MDRO detection (which is a good thing as it has become more reliable).</li>
diff --git a/news/index.md b/news/index.md
index f2481be2c..7068ff1d8 100644
--- a/news/index.md
+++ b/news/index.md
@@ -1,9 +1,15 @@
 # Changelog
 
-## AMR 3.0.1.9040
+## AMR 3.0.1.9041
 
 #### New
 
+- Support for clinical breakpoints of 2026 of both CLSI and EUCAST, by
+  adding all of their over 5,700 new clinical breakpoints to the
+  `clinical_breakpoints` data set for usage in
+  [`as.sir()`](https://amr-for-r.org/reference/as.sir.md). EUCAST 2026
+  is now the new default guideline for all MIC and disk diffusion
+  interpretations.
 - Integration with the **tidymodels** framework to allow seamless use of
   SIR, MIC and disk data in modelling pipelines via `recipes`
   - [`step_mic_log2()`](https://amr-for-r.org/reference/amr-tidymodels.md)
diff --git a/pkgdown.yml b/pkgdown.yml
index cfc8c519f..489c5d4fe 100644
--- a/pkgdown.yml
+++ b/pkgdown.yml
@@ -10,7 +10,7 @@ articles:
   PCA: PCA.html
   WHONET: WHONET.html
   WISCA: WISCA.html
-last_built: 2026-03-24T12:29Z
+last_built: 2026-03-30T08:13Z
 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 7a886f668..61bd75748 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</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 101ac401f..67a05479a 100644
--- a/reference/AMR-options.html
+++ b/reference/AMR-options.html
@@ -9,7 +9,7 @@ options(AMR_guideline = "CLSI")'><meta property="og:image" content="https://amr-
 
     <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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</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">
@@ -68,12 +68,12 @@ options(AMR_guideline = "CLSI")'><meta property="og:image" content="https://amr-
 <li><p><code>AMR_custom_ab</code> <br> A file location to an RDS file, to use custom antimicrobial drugs with this package. This is explained in <code><a href="add_custom_antimicrobials.html">add_custom_antimicrobials()</a></code>.</p></li>
 <li><p><code>AMR_custom_mo</code> <br> A file location to an RDS file, to use custom microorganisms with this package. This is explained in <code><a href="add_custom_microorganisms.html">add_custom_microorganisms()</a></code>.</p></li>
 <li><p><code>AMR_eucastrules</code> <br> A <a href="https://rdrr.io/r/base/character.html" class="external-link">character</a> to set the default types of rules for <code><a href="interpretive_rules.html">eucast_rules()</a></code> function, must be one or more of: <code>"breakpoints"</code>, <code>"expert"</code>, <code>"other"</code>, <code>"custom"</code>, <code>"all"</code>, and defaults to <code>c("breakpoints", "expert")</code>.</p></li>
-<li><p><code>AMR_guideline</code> <br> A <a href="https://rdrr.io/r/base/character.html" class="external-link">character</a> to set the default guideline used throughout the <code>AMR</code> package wherever a <code>guideline</code> argument is available. This option is used as the default in e.g. <code><a href="as.sir.html">as.sir()</a></code>, <code><a href="proportion.html">resistance()</a></code>, <code><a href="proportion.html">susceptibility()</a></code>, <code><a href="interpretive_rules.html">interpretive_rules()</a></code> and many plotting functions. <strong>While unset</strong>, the AMR package uses the latest implemented EUCAST guideline (currently EUCAST 2025).</p><ul><li><p>For <code><a href="as.sir.html">as.sir()</a></code>, this determines which clinical breakpoint guideline is used to interpret MIC values and disk diffusion diameters. It can be either the guideline name (e.g., <code>"CLSI"</code> or <code>"EUCAST"</code>) or the name including a year (e.g., <code>"CLSI 2019"</code>). Supported guidelines are EUCAST 2011 to 2025, and CLSI 2011 to 2025.</p></li>
+<li><p><code>AMR_guideline</code> <br> A <a href="https://rdrr.io/r/base/character.html" class="external-link">character</a> to set the default guideline used throughout the <code>AMR</code> package wherever a <code>guideline</code> argument is available. This option is used as the default in e.g. <code><a href="as.sir.html">as.sir()</a></code>, <code><a href="proportion.html">resistance()</a></code>, <code><a href="proportion.html">susceptibility()</a></code>, <code><a href="interpretive_rules.html">interpretive_rules()</a></code> and many plotting functions. <strong>While unset</strong>, the AMR package uses the latest implemented EUCAST guideline (currently EUCAST 2026).</p><ul><li><p>For <code><a href="as.sir.html">as.sir()</a></code>, this determines which clinical breakpoint guideline is used to interpret MIC values and disk diffusion diameters. It can be either the guideline name (e.g., <code>"CLSI"</code> or <code>"EUCAST"</code>) or the name including a year (e.g., <code>"CLSI 2019"</code>). Supported guidelines are EUCAST 2011 to 2026, and CLSI 2011 to 2026.</p></li>
 <li><p>For <code><a href="proportion.html">resistance()</a></code> and <code><a href="proportion.html">susceptibility()</a></code>, this setting determines how the <code>"I"</code> (Intermediate / Increased exposure) category is handled in calculations. Under CLSI, <code>"I"</code> is considered <em>resistant</em> in susceptibility calculations; under EUCAST, <code>"I"</code> is considered <em>susceptible</em> in susceptibility calculations. Explicitly setting this option ensures reproducible AMR proportion estimates.</p></li>
 <li><p>For <code><a href="interpretive_rules.html">interpretive_rules()</a></code>, this determines which guideline-specific interpretive (expert) rules are applied to antimicrobial test results, either EUCAST or CLSI.</p></li>
-<li><p>For many plotting functions (e.g., for MIC or disk diffusion values), supplying <code>mo</code> and <code>ab</code> enables automatic SIR-based interpretative colouring. These colours are derived from <code><a href="as.sir.html">as.sir()</a></code> in the background and therefore depend on the active <code>guideline</code> setting, which again uses EUCAST 2025 if not set explicitly.</p></li>
+<li><p>For many plotting functions (e.g., for MIC or disk diffusion values), supplying <code>mo</code> and <code>ab</code> enables automatic SIR-based interpretative colouring. These colours are derived from <code><a href="as.sir.html">as.sir()</a></code> in the background and therefore depend on the active <code>guideline</code> setting, which again uses EUCAST 2026 if not set explicitly.</p></li>
 </ul></li>
-<li><p><code>AMR_guideline</code> <br> A <a href="https://rdrr.io/r/base/character.html" class="external-link">character</a> to set the default guideline for interpreting MIC values and disk diffusion diameters with <code><a href="as.sir.html">as.sir()</a></code>. Can be only the guideline name (e.g., <code>"CLSI"</code>) or the name with a year (e.g. <code>"CLSI 2019"</code>). The default to the latest implemented EUCAST guideline, currently <code>"EUCAST 2025"</code>. Supported guideline are currently EUCAST (2011-2025) and CLSI (2011-2025).</p></li>
+<li><p><code>AMR_guideline</code> <br> A <a href="https://rdrr.io/r/base/character.html" class="external-link">character</a> to set the default guideline for interpreting MIC values and disk diffusion diameters with <code><a href="as.sir.html">as.sir()</a></code>. Can be only the guideline name (e.g., <code>"CLSI"</code>) or the name with a year (e.g. <code>"CLSI 2019"</code>). The default to the latest implemented EUCAST guideline, currently <code>"EUCAST 2026"</code>. Supported guideline are currently EUCAST (2011-2026) and CLSI (2011-2026).</p></li>
 <li><p><code>AMR_ignore_pattern</code> <br> A <a href="https://rdrr.io/r/base/regex.html" class="external-link">regular expression</a> to ignore (i.e., make <code>NA</code>) any match given in <code><a href="as.mo.html">as.mo()</a></code> and all <code><a href="mo_property.html">mo_*</a></code> functions.</p></li>
 <li><p><code>AMR_include_PKPD</code> <br> A <a href="https://rdrr.io/r/base/logical.html" class="external-link">logical</a> to use in <code><a href="as.sir.html">as.sir()</a></code>, to indicate that PK/PD clinical breakpoints must be applied as a last resort - the default is <code>TRUE</code>.</p></li>
 <li><p><code>AMR_substitute_missing_r_breakpoint</code> <br> A <a href="https://rdrr.io/r/base/logical.html" class="external-link">logical</a> to use in <code><a href="as.sir.html">as.sir()</a></code>, to indicate that missing R breakpoints must be substituted with <code>"R"</code> - the default is <code>FALSE</code>.</p></li>
diff --git a/reference/AMR-options.md b/reference/AMR-options.md
index 6b20bfefb..0b0f765fe 100644
--- a/reference/AMR-options.md
+++ b/reference/AMR-options.md
@@ -63,14 +63,14 @@ the `AMR` package. Set them using the
   [`susceptibility()`](https://amr-for-r.org/reference/proportion.md),
   [`interpretive_rules()`](https://amr-for-r.org/reference/interpretive_rules.md)
   and many plotting functions. **While unset**, the AMR package uses the
-  latest implemented EUCAST guideline (currently EUCAST 2025).
+  latest implemented EUCAST guideline (currently EUCAST 2026).
 
   - For [`as.sir()`](https://amr-for-r.org/reference/as.sir.md), this
     determines which clinical breakpoint guideline is used to interpret
     MIC values and disk diffusion diameters. It can be either the
     guideline name (e.g., `"CLSI"` or `"EUCAST"`) or the name including
     a year (e.g., `"CLSI 2019"`). Supported guidelines are EUCAST 2011
-    to 2025, and CLSI 2011 to 2025.
+    to 2026, and CLSI 2011 to 2026.
 
   - For [`resistance()`](https://amr-for-r.org/reference/proportion.md)
     and
@@ -92,7 +92,7 @@ the `AMR` package. Set them using the
     interpretative colouring. These colours are derived from
     [`as.sir()`](https://amr-for-r.org/reference/as.sir.md) in the
     background and therefore depend on the active `guideline` setting,
-    which again uses EUCAST 2025 if not set explicitly.
+    which again uses EUCAST 2026 if not set explicitly.
 
 - `AMR_guideline`  
   A [character](https://rdrr.io/r/base/character.html) to set the
@@ -101,8 +101,8 @@ the `AMR` package. Set them using the
   [`as.sir()`](https://amr-for-r.org/reference/as.sir.md). Can be only
   the guideline name (e.g., `"CLSI"`) or the name with a year (e.g.
   `"CLSI 2019"`). The default to the latest implemented EUCAST
-  guideline, currently `"EUCAST 2025"`. Supported guideline are
-  currently EUCAST (2011-2025) and CLSI (2011-2025).
+  guideline, currently `"EUCAST 2026"`. Supported guideline are
+  currently EUCAST (2011-2026) and CLSI (2011-2026).
 
 - `AMR_ignore_pattern`  
   A [regular expression](https://rdrr.io/r/base/regex.html) to ignore
diff --git a/reference/AMR.html b/reference/AMR.html
index 2f9988ab4..1e1d4d19a 100644
--- a/reference/AMR.html
+++ b/reference/AMR.html
@@ -5,14 +5,14 @@ This work was published in the Journal of Statistical Software (Volume 104(3); d
 ) and formed the basis of two PhD theses (doi:10.33612/diss.177417131
  and doi:10.33612/diss.192486375
 ).
-After installing this package, R knows ~79 000 distinct microbial species (updated June 2024) and all ~620 antimicrobial and antiviral drugs by name and code (including ATC, EARS-Net, ASIARS-Net, PubChem, LOINC and SNOMED CT), and knows all about valid SIR and MIC values. The integral clinical breakpoint guidelines from CLSI 2011-2025 and EUCAST 2011-2025 are included, even with epidemiological cut-off (ECOFF) values. It supports and can read any data format, including WHONET data. This package works on Windows, macOS and Linux with all versions of R since R-3.0 (April 2013). It was designed to work in any setting, including those with very limited resources. It was created for both routine data analysis and academic research at the Faculty of Medical Sciences of the University of Groningen and the University Medical Center Groningen.
+After installing this package, R knows ~79 000 distinct microbial species (updated June 2024) and all ~620 antimicrobial and antiviral drugs by name and code (including ATC, EARS-Net, ASIARS-Net, PubChem, LOINC and SNOMED CT), and knows all about valid SIR and MIC values. The integral clinical breakpoint guidelines from CLSI 2011-2026 and EUCAST 2011-2026 are included, even with epidemiological cut-off (ECOFF) values. It supports and can read any data format, including WHONET data. This package works on Windows, macOS and Linux with all versions of R since R-3.0 (April 2013). It was designed to work in any setting, including those with very limited resources. It was created for both routine data analysis and academic research at the Faculty of Medical Sciences of the University of Groningen and the University Medical Center Groningen.
 The AMR package is available in 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, and Vietnamese. Antimicrobial drug (group) names and colloquial microorganism names are provided in these languages."><meta property="og:description" content="Welcome to the AMR package.
 The AMR package is a peer-reviewed, free and open-source R package with zero dependencies to simplify the analysis and prediction of Antimicrobial Resistance (AMR) and to work with microbial and antimicrobial data and properties, by using evidence-based methods. Our aim is to provide a standard for clean and reproducible AMR data analysis, that can therefore empower epidemiological analyses to continuously enable surveillance and treatment evaluation in any setting. We are a team of many different researchers from around the globe to make this a successful and durable project!
 This work was published in the Journal of Statistical Software (Volume 104(3); doi:10.18637/jss.v104.i03
 ) and formed the basis of two PhD theses (doi:10.33612/diss.177417131
  and doi:10.33612/diss.192486375
 ).
-After installing this package, R knows ~79 000 distinct microbial species (updated June 2024) and all ~620 antimicrobial and antiviral drugs by name and code (including ATC, EARS-Net, ASIARS-Net, PubChem, LOINC and SNOMED CT), and knows all about valid SIR and MIC values. The integral clinical breakpoint guidelines from CLSI 2011-2025 and EUCAST 2011-2025 are included, even with epidemiological cut-off (ECOFF) values. It supports and can read any data format, including WHONET data. This package works on Windows, macOS and Linux with all versions of R since R-3.0 (April 2013). It was designed to work in any setting, including those with very limited resources. It was created for both routine data analysis and academic research at the Faculty of Medical Sciences of the University of Groningen and the University Medical Center Groningen.
+After installing this package, R knows ~79 000 distinct microbial species (updated June 2024) and all ~620 antimicrobial and antiviral drugs by name and code (including ATC, EARS-Net, ASIARS-Net, PubChem, LOINC and SNOMED CT), and knows all about valid SIR and MIC values. The integral clinical breakpoint guidelines from CLSI 2011-2026 and EUCAST 2011-2026 are included, even with epidemiological cut-off (ECOFF) values. It supports and can read any data format, including WHONET data. This package works on Windows, macOS and Linux with all versions of R since R-3.0 (April 2013). It was designed to work in any setting, including those with very limited resources. It was created for both routine data analysis and academic research at the Faculty of Medical Sciences of the University of Groningen and the University Medical Center Groningen.
 The AMR package is available in 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, and Vietnamese. Antimicrobial drug (group) names and colloquial microorganism names are provided in these languages."><meta property="og:image" content="https://amr-for-r.org/logo.svg"><link rel="stylesheet" href="https://cdn.jsdelivr.net/npm/katex@0.16.11/dist/katex.min.css" integrity="sha384-nB0miv6/jRmo5UMMR1wu3Gz6NLsoTkbqJghGIsx//Rlm+ZU03BU6SQNC66uf4l5+" crossorigin="anonymous"><script defer src="https://cdn.jsdelivr.net/npm/katex@0.16.11/dist/katex.min.js" integrity="sha384-7zkQWkzuo3B5mTepMUcHkMB5jZaolc2xDwL6VFqjFALcbeS9Ggm/Yr2r3Dy4lfFg" crossorigin="anonymous"></script><script defer src="https://cdn.jsdelivr.net/npm/katex@0.16.11/dist/contrib/auto-render.min.js" integrity="sha384-43gviWU0YVjaDtb/GhzOouOXtZMP/7XUzwPTstBeZFe/+rCMvRwr4yROQP43s0Xk" crossorigin="anonymous" onload="renderMathInElement(document.body);"></script></head><body>
     <a href="#main" class="visually-hidden-focusable">Skip to contents</a>
 
@@ -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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</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 @@ The AMR package is available in English, Arabic, Bengali, Chinese, Czech, Danish
 ) and formed the basis of two PhD theses (<a href="https://doi.org/10.33612/diss.177417131" class="external-link">doi:10.33612/diss.177417131</a>
  and <a href="https://doi.org/10.33612/diss.192486375" class="external-link">doi:10.33612/diss.192486375</a>
 ).</p>
-<p>After installing this package, R knows <a href="https://amr-for-r.org/reference/microorganisms.html"><strong>~79 000 distinct microbial species</strong></a> (updated June 2024) and all <a href="https://amr-for-r.org/reference/antimicrobials.html"><strong>~620 antimicrobial and antiviral drugs</strong></a> by name and code (including ATC, EARS-Net, ASIARS-Net, PubChem, LOINC and SNOMED CT), and knows all about valid SIR and MIC values. The integral clinical breakpoint guidelines from CLSI 2011-2025 and EUCAST 2011-2025 are included, even with epidemiological cut-off (ECOFF) values. It supports and can read any data format, including WHONET data. This package works on Windows, macOS and Linux with all versions of R since R-3.0 (April 2013). <strong>It was designed to work in any setting, including those with very limited resources</strong>. It was created for both routine data analysis and academic research at the Faculty of Medical Sciences of the <a href="https://www.rug.nl" class="external-link">University of Groningen</a> and the <a href="https://www.umcg.nl" class="external-link">University Medical Center Groningen</a>.</p>
+<p>After installing this package, R knows <a href="https://amr-for-r.org/reference/microorganisms.html"><strong>~79 000 distinct microbial species</strong></a> (updated June 2024) and all <a href="https://amr-for-r.org/reference/antimicrobials.html"><strong>~620 antimicrobial and antiviral drugs</strong></a> by name and code (including ATC, EARS-Net, ASIARS-Net, PubChem, LOINC and SNOMED CT), and knows all about valid SIR and MIC values. The integral clinical breakpoint guidelines from CLSI 2011-2026 and EUCAST 2011-2026 are included, even with epidemiological cut-off (ECOFF) values. It supports and can read any data format, including WHONET data. This package works on Windows, macOS and Linux with all versions of R since R-3.0 (April 2013). <strong>It was designed to work in any setting, including those with very limited resources</strong>. It was created for both routine data analysis and academic research at the Faculty of Medical Sciences of the <a href="https://www.rug.nl" class="external-link">University of Groningen</a> and the <a href="https://www.umcg.nl" class="external-link">University Medical Center Groningen</a>.</p>
 <p>The <code>AMR</code> package is available in 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, and Vietnamese. Antimicrobial drug (group) names and colloquial microorganism names are provided in these languages.</p>
     </div>
 
diff --git a/reference/AMR.md b/reference/AMR.md
index 7ff6033d2..f4d3d1922 100644
--- a/reference/AMR.md
+++ b/reference/AMR.md
@@ -29,7 +29,7 @@ June 2024) and all [**~620 antimicrobial and antiviral
 drugs**](https://amr-for-r.org/reference/antimicrobials.html) by name
 and code (including ATC, EARS-Net, ASIARS-Net, PubChem, LOINC and SNOMED
 CT), and knows all about valid SIR and MIC values. The integral clinical
-breakpoint guidelines from CLSI 2011-2025 and EUCAST 2011-2025 are
+breakpoint guidelines from CLSI 2011-2026 and EUCAST 2011-2026 are
 included, even with epidemiological cut-off (ECOFF) values. It supports
 and can read any data format, including WHONET data. This package works
 on Windows, macOS and Linux with all versions of R since R-3.0 (April
diff --git a/reference/WHOCC.html b/reference/WHOCC.html
index f876ff1da..877835236 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</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 7eca89df7..e7b2849b5 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</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 88d6bb09c..effd02812 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/ab_property.html b/reference/ab_property.html
index 429075761..13fa63681 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/add_custom_antimicrobials.html b/reference/add_custom_antimicrobials.html
index dc8e5400c..6a936d3d5 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</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 d172c336c..9de129337 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/age.html b/reference/age.html
index 94fc61063..c433b18c7 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</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  1999-06-30  26  26.73151          0</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 2  1968-01-29  58  58.14795         31</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 3  1965-12-05  60  60.29863         34</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 4  1980-03-01  46  46.06301         19</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 5  1949-11-01  76  76.39178         50</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 6  1947-02-14  79  79.10411         52</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 7  1940-02-19  86  86.09041         59</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 8  1988-01-10  38  38.20000         11</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 9  1997-08-27  28  28.57260          2</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 10 1978-01-26  48  48.15616         21</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 1  1999-06-30  26  26.74795          0</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 2  1968-01-29  58  58.16438         31</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 3  1965-12-05  60  60.31507         34</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 4  1980-03-01  46  46.07945         19</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 5  1949-11-01  76  76.40822         50</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 6  1947-02-14  79  79.12055         52</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 7  1940-02-19  86  86.10685         59</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 8  1988-01-10  38  38.21644         11</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 9  1997-08-27  28  28.58904          2</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 10 1978-01-26  48  48.17260         21</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 9bb9870a4..88aa729ad 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  1999-06-30  26  26.73151          0
-#> 2  1968-01-29  58  58.14795         31
-#> 3  1965-12-05  60  60.29863         34
-#> 4  1980-03-01  46  46.06301         19
-#> 5  1949-11-01  76  76.39178         50
-#> 6  1947-02-14  79  79.10411         52
-#> 7  1940-02-19  86  86.09041         59
-#> 8  1988-01-10  38  38.20000         11
-#> 9  1997-08-27  28  28.57260          2
-#> 10 1978-01-26  48  48.15616         21
+#> 1  1999-06-30  26  26.74795          0
+#> 2  1968-01-29  58  58.16438         31
+#> 3  1965-12-05  60  60.31507         34
+#> 4  1980-03-01  46  46.07945         19
+#> 5  1949-11-01  76  76.40822         50
+#> 6  1947-02-14  79  79.12055         52
+#> 7  1940-02-19  86  86.10685         59
+#> 8  1988-01-10  38  38.21644         11
+#> 9  1997-08-27  28  28.58904          2
+#> 10 1978-01-26  48  48.17260         21
 ```
diff --git a/reference/age_groups.html b/reference/age_groups.html
index 23a29bef9..964cf337d 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</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 372f6a9b9..adfd906ea 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</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_course.html b/reference/amr_course.html
index 66da7c7f5..6124ceba6 100644
--- a/reference/amr_course.html
+++ b/reference/amr_course.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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</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 c5f44e7c5..f6611fc64 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</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 24959aca4..7798302f5 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</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/antimicrobials.html b/reference/antimicrobials.html
index ea8abf99f..1c6bd2b49 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/as.ab.html b/reference/as.ab.html
index 99443a4ca..a22b8d635 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</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 a3540f14e..8583b13f6 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</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 e7b9ef326..cae686869 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/as.mic-2.png b/reference/as.mic-2.png
index 5d58f96c35c931f55674822ee6fcff74f8e44e79..772a94f8190ac74a5a5a88d0dafcc8ab4797e491 100644
GIT binary patch
literal 46411
zcmeFZXHZpX*DZ><l{Sm02q=P}fQU$vWIzy5$vG(qNKTStn^A(~42mF0K(b^5K|nx2
zKqTkPmbl5>vFP{IIrrQj=c`+FtL~4_vP&8^d$098^O<wZF~(dTGPlKd?>e@Nf`VeV
z#0^n73W{y^6ck%@{@RZ3v<1ESgMYT`NQsN$U;J6TR^Wzzc3Rv}wWgq;eMbDZ$!B0n
zkAmU^g@ou81^bBc4hLs>#kKV*JNW}@yKYqLr2oy5u~Y8)5t*%9x9ws$dzK~PdxCcR
zK5@%yW&8K-J8Jpa<@yc<(L>kuWMAD%N^n1+ckor@!+@Z;xGafUlFyo-p`lq=N<jD6
zqJ96Ad%M%*VuXKxr@!=Vk_Tt`kxd(yML`kcof5O<KVMTke!7+8KVOTUIZ*hYFZadW
z__O)nuP+BMe5U-*w`E`a_ly5~HU57U8{M&XWmL-FdMpAQW8>l!AKa%JoT{KFw=(Z}
z_BQ4k!u-=tg~Wfuy{h-YB}Ek#l~D)nx>d!G8mT1@mT@Lz9v|HZdj_-hwbdXl&!O5#
z_4*$CAmT#EM&!TNP^mf3Qy$TM1IOUD=J)Px{~iZ-mg^6x|8p{84&~m*m!BleYa{rn
zXo<69A-54K?(Ro)v+SpIil)kG!bIGPt*otWIvs`#Ke=yOst{Rwlcbou#Flx#o}p;2
zSzYbJoqsYiGi~Nu4aPF6&o!FncD(!f^XI|ePao~rYt&ijASo@~@`8#rOTXqAEx(nh
zhlfZ0pD&b6MNW2_Hcg62>ba9Uy{f++c^fAcJo?s0xM93CGuxn!t|>)bS+l^li9NSH
zhLWRDhLe-?Zi{92r%k5qA7#f{(pti}jk8==9VgoJ<U>P4t12sH<0JzE0s>;K>x7gO
z6B9=}iwe%=4>Kqx$}wGK7qaQY8t~QY{LOkCce*lQGtzKfD)`*o;!1m-bzpdSGHdF`
ztCZB|W>tmHox9!TJmYoAc6``nvQA`OK}{`8DOJNzm1NVR8GlCpU4qp>m1|!??+e!1
z8s09Ia^)ae0o&nP0n*R+s+m>o%6?0;BX5VIoNgOLIp|+r7Qd>m|1RHlBFWS9?`jvk
zZ30Khid=l8ZP?S@H1F`5@*&r?rwgRw<y5nRiJVtD$Az6g(m9QDmQ_?Nx37)FM<=<h
zulX_Nwy_6S4_J$Y*S!1nOC`FkIaM=R%<EX>D|>AH?QQLkh^;-##+K#WKQxr=vOFJD
zsVPxaSEn3*J92iWPDJXg<Rp(_L#eryvfn%D=v1?g{K^U2<&L_M2WsU*KAd8@72b-g
zOLJRpPf9j;9_9KOE8*`>-rIt!e1Pp;zJ+i5F-bj`%o`f*{``oUCBsk5hc2bui)IX~
zG@I8kVe6z#o!mb;wM@JIynn?%qnB87s#iq#xyP-nIBPmhWUCc9+FV{HkGIP2*mGQ_
zz;+_Q-~XUYD3ess{lV{{J&z4Xh=uI)5z#tV;T>@8*`7qxww$W!YRdcTkpgx}xW?ZF
zcIN!zgKepr1wYeuD=zp?Grzq55;uQBg^^f_J0s8NUH>u~G*(gyI>v1jE3&q5D#3AW
zF3oKljasPi>a2Xx;$ZlG5wlpKKcBW-dN3>_qvyIj!COS`bh_K5o~*>~b(Bj?WOdem
zexfb@;ls@&Q>s0*mtxCaQYRxMg{#eeeYisJGApYx7d<+KgA>8B@wqbZUUC$xg!7pC
zRS(Fyx)y8M_iU?n$;`}Tl1NWa598E*Iz2NpV3jvJmR6GFI5#R>ZPHaN6vHLwbDTeB
z)0XWE9R{<*^}q9Nl6hrAqNCHiXn2iQ7N(d@EODo{BNMq@Iqj}B+%3aCB5SXz2mBgG
zeiB>Lsu%o3(IE1Y%|*LOjfsu|WgnsWkhL{(NwV$4?~JyI7aktIHTv?|Mom~P@woW-
zWaE}pVIMA?(&ry~`4s;>7b^F5BX~xCym?f2y_qpl_N|y&fo;mTt&_))de;3n*~Tqu
zbk;pzp5*uYNl6Nlk+8;|(wP0pTaUT^@@Jwvb99^I>~N1YXZAVG{NVypG3#7m$&<V!
z<+RkMWaZ>5kG2P;4-E{AB*sTIG)jw@=1DUOuCL4-yYwKT&J-cni1(m6cu>CAA-64M
zvZKIwZDld2!mEFu+r;l|qxzU9b*4DvmsV#RUCi1F?9%-F{awtKN0ZZjCM%~sFH_M-
zAof9&RiD5BpVB-IG6zXcO3INsi`c8PjGB@Z5b||Hf;pybht=GL7o@(sBA{LU3;Yz2
zG_0f%*fi#ack@hpOFiQJ3jFS6w$A=GP75?pVTy2>Zw+d5U0=1UHpMQUG^JGj&u48w
zk3ZE$N)xIEk$S3wlLe&tMdz9@ZuaV}`7G+HyLRo$GHg5@-G+;`8Ho!Pi;c2yFw5(f
zst#gbt-XjmmfltD$*5iF;&X?T?aUymP9*i7B!zm!FhzHNU`R;9<HuX0+g6y4sAn4u
z%s9Al@phQmS$tOgm1*EJkmI_#v=~99zJJegzB_p-)<d;=L8OMbmpIyVR;y;Y>R1{j
zN5}l2bDBvt;k;vrnjdejJ?pp1lN>kDtMH~h*+Tz*<J@$Mp4=!KQi!;m_CX6iw%n#v
z&9<Q#U&-Dj>p$IBs!fL?tZ(PF&?lS{_f|1mZtGf8(qFthKUFqiJC>5$+3?}+*Dq1r
zE(qTbRXZ4dZ=C!34M6ruF7T`(TW+gKv)yu%MqWnUkhJJSavDQG=r>%VvbIZh@yc|y
z)pM5V7<MhBi5H)Q{yoF@@*=OCzb!CvvD#FLT$u8gVzN?pdyW%%@<R19tAc-&wH%m|
z{Nm~l0}EcheuB7ucX>%GtBiphY2iiD@{of^ys~3s8LLgZT*#WC1JvwlhZJ1!k$Xi}
zJ`BuT_LUosHK!n32DD8Caf+26;g76+J?as#u^_KwHgeXdGjYiDM!!D1sWU~QYUnL{
zDQzKIteB)A;dP9AI?r@&wCQ(=TZvvPyL!(3u40!fO}WM`=LUv`mfLw;SL}tRznwDr
z@%o>$_zj)G9K}$Jt$z1JLN`_?)R)MLpUxQk`fxX>jVKs6<BROtDk=%62&WtF23l3n
z+Nqd14ZnHjENt#s|LWwmhpDWrtkqWPxn><~x$K(x7l-p1D{)I^Z8@gup##znhybep
z7xCWaZ_#!u($Up*F{`evReH32_iVd$ogsO$qw`5u#O-+GhByiT(}@To$6gQS+czSV
zI-N*DyN~n96xfmGJ6-SKP4kyVlevwX-@hK4wyW!!oqZ5pM=$KG!rSF+{li8=?&{Tt
z136QD6~=g}D|LrJ{lABB<6!U&D5Pm=%D=mr-ad(x_i4*s7AB_aI6*`@>M&C-a-4gB
z&^gP+HS@T1F}Gy()|MT6vf70mrtihY#(vY!tklmO`Oa1M^Lr@QwWMTRW=5;?-gQy|
zN!VqsN%@lFYy#uRuXNooUh}B1i-regQ%(qCo$om$dm`Uo!y3NB%@f6+|M(vK-AyO>
z@e8r?&y_ZkwS{E<+S1tSX=&-h9K{PUU9G9b7fpXF@OC_qm(e@E=h<WtSu4727bRsA
zstw-eIsnLvmoMe9_5q=xi4}BCYzdApmP^)`OD>Qt^E41iv*&`8d^eWh)W1u>R90Gg
zzadtFxnGI0Cqee@Q`eO#asK1p?(=E#@!rI_1YUVP=D0Kxub8G)<W44am6V8i9@+mu
zhz{s!-if0#BVw314l(<8;&4zzWSH=TqvXdS-iCp;C_icdn>4>ymG|}yB<ivea*NUL
zti-NWIeGa&U*9)CNlz7|H8diK0%tS&Gx56%sbt;tR+M1tv{v~)30g(@4ULV8*o{|J
z(f@vwY}|`I_$&$*bAw2mpuw8(c<jt@xOuTGkxV$WQxOrv-+WI=-n^-RQ}Hv~SXtA$
zh8uzYd8ZF2HW}xt5oKYvUYy<#*Y+F9YP2~e8E|8yoW@)s_?#viNs1-`rTKn+%yqS5
z=e&0}Lt_?ahK!Nyi5yYOKXiO<vO^u8`xCj9Ny3%-Dy1k2YnFMJa7_fid}F+HOI09i
zw#}Fl)#1ZY0UL`Reni(Zargvr>BOJUeTRvXM*R6N^oEI&RJ0o}-L0de!(hwS%#RlN
za_spHOhx=4=Fr9t5MMr*+lV0I%M+58dx?!XLD9}jpfBcA8x@H7(f^Asbm04ht?@`h
zTt0wEQ<5U9Vv3rggoMOs{o7}!Z$~7oE|Ztp?3O2Tt9vZ&qZTvsbpK_Mr-A7AJ6HJU
zD)DNx5I_4!ZtG6hpE-QF-ex>%TR=rmPnww%So3}L>O^jv=1I%7G3|A~uRTA2ds$=G
zG6aEvtoV+H2|3w{dQ;zaIz?Mu`K?g|2>6!A&^6QL*H<1LqNh(oJO<gjeh=Z?<ihh_
zcn0;r8>gfgXXt`1AE|Jr--2(pj9Ob|^5AIppgj$**=)H>i>BQ+1u?%McJ+4!llf98
zjq=XUg($~yfK$T=kESnAC~d}nagvJ91+#V+3#?h<?sgoKwzbVEUg)Ll0N$3obxRRx
z7RWv}E9+v>`r0y6Z@M4QQLwhFD&mEB$78%^@9%znYKROxpq3`Cr4`kQtG5|zz6J21
zj2GEVWVeh~bCf9Dy?ggl#m=8!_lmGR`}*cqIFE#1j(L|^>rhYe`g&68$KG8?6)89r
zG1nHQ_*Ba^KRf577B3kwF)^Lt;2?=U+j-*mQHslXs<~#7hNug^{bWv^(!b=<qs5G)
z5E?OtZlgS`aP!aIg&~o3RsC=P<CPbCW*)!HX}QS7mHEA;er6a8|D>!nLH5+CN|TQK
z>@PZh;&H8Feyv%C^8f1=wB?#}OgXcdYG>+u`Q8)rKCWuihI6-N&3R$zyHhX9CP%gB
zTZfrJF~3lN%esjk4P$Tek867!$f&ocMMSztYbf(vhK7cE%`Q`A)K1lWk+ts2lM5BN
zR5g9Kfq{WQhltWr(V1mZi8`Gw;L>R(rZNN7@EUz&C$)2Pjw=g&KJO$0&jwW-6|gl4
zt@x`M7{ZG&)3Q%Y*OL>KD0_UyqHFz4{>Zy<&ki$Qk(EE!O1&Kz9E4eul~R(1WvUKM
zxR`#g<eJ<yn3?S`qkpPWaOKZe=1VszWWCYF%G^H8t`=)u%P+2;V<I~<STi@*qRlEG
zpnfh`3YCqYpP%R-xmz^e?ms1VAMGR+t(9nhfB!JRx<6xzYNi-oSbl`03lK>~b7J$L
zLki+cv6p*xPUXX$D^E)8iSY6a;i~0(dsXL81rFHa^nhP167L6}{}Js;ZdXm0QC}G)
z$nDlX1HvelXJ=;W^Q?#VsT~Ztp=FGEspUArBq7(4Z!=(9Fb62Ul;ZZM`*WCpU1}1#
z^+fsj(NF(uvC7lH-%D2g&o5lKFpK?3Mv3jbfT|bd()8{YjYLDh8F^<jx1mV8&7;AH
zXP1SZXTJ*_GQH`9&I0+O*I?H!)*ucFj==96(=qFyi0Xj`9IW?%2Z`wE@Xhdcv)ny&
zf(Za~RTH+!^6|Hcj!1NDZeejK+NS3T^;r%M>Aga;uWTpVM<yEaOCtz)1uHA7%d0Y-
zw`Z5TMjj-6_#jgr@|^ZyaeWKbTO6KIAjfha`m~6Mh!=ZyTs}k~!hvqwQ~r2HH6xYF
zqH2+2_PLT3tEL3mYdqn%P!2CmWHmmhzfL^@MBkKFvX)d@T6&<u9yeDd#3@6!w$Qg%
zLJr(SQ_OYBRud);?uzyGG{)arjoPk@*ZqL_<9B(N;(po~C2$f0JIvC$?@MO3nshRX
zYiMZvs-TQ7^7S6L*FO@C*PP|yX<o)*sQdQq$HQ%u7cIIk<4~$jDi=l_WIxan)*Hm8
z8iN)y?%li5>=rG5MlX7iPOJ5Zh~q`8^KE`F4%85M=)l2)dYP?&_W`e7y+&y>#vVG7
zJM6X?`41i2Uz^P!EUaZc_+1vfO4EnC*UHMu&YV6iW?P_1tzq$x>(U4_fdpDxTf>B1
z922KA^=lg5-3ku?P{%1GpcKH3EV32%-7i};?K*4_45)GnqGN%vU%p(OL(eNG>*s`?
zPEtZ*YTgi;sj0-xt;4FC{UlkMQL%rSo=?$>RzS&b7RX1zf{`MoQk$&KLlN+H2c7+8
zL^=R^GrC8uLF(5twF1(31A!~`foZsJiRtitS01Po+NU#)#JoJ0)P3W<!=&!8gjM9|
zn$g7Wpm?`@o3X?5>E)hBPbCgV6*DK_&^C^8TXT?Ta3OcZqr;RuE4j3W2offDeYAWV
z8^frLLVnHg>XQVelrRtzJQC9m=C`Hg1}d4O6`Y-&6DOidCvh>U4<9~!-oz@=`0kcG
zI&QUGvlKK_oZY%x_-wLF+mw)lTNbAJiu#NwSSV3MpMQ8O?&D}K`=>#Q<B1?;W!IN|
zWz-{l_J3Xj`n>u1QvtLGD>t_y0m}xio-3=SyY%3Ow8(1K?`-3EG(_3vUB#uv$g7!V
zc>{;J@BjGZG|n7le-#a4oVNgaV5D%H;U8E0W?K!S16A(nVU;%J3WYd|EcPG7&$vx~
z{jl0MK2nWqFD{+Isv>DUqI2lquW9jlTW6UC7V6zP`sYpTI+<Xihz*%&%jHN<sNX^F
zEOR#MvUX!(p`g(6c&1U~J1@Jt(Zr`e+e?3rE9wTpm&L}!%CPX5wI|?MIZ!(jI0=}C
zNC)btJ!4~3|4A#He&IMjo~V{>l!$DVztH<~4!vxU+OQF-zuybLALU2bH9pGlcG|!7
z^Ya7BG9^l3Rc-A&%@B5K_NTlwkqabm-1q@@DD|H$J4SQ6Tr=5bx*zRzq#g(7(}FE{
zBXurMbmz{UNvLOJX*Ho`<Q3NOoTqJ_89J><BU&zVikg;XRG0cZxrh>f`c~NRKRf7t
z;1gEn@2WmDjb}{JEKu?hoPMqb4q#!yJ`&CFF&>kUF7oZEwKJ*jbLdIK^>3Gk-})S)
zp`n>xE-Ab|s@7+Tj?ratAlNUqv&f0{<jE^VPUIj)mzAjs;cEL@->9}7qW-|8l4qB=
zW_y9Ki%6&HZvO5Ath|X#X;skC$!Pa+&e7h?cM9*k-KPEifvP#PfvP|Prd+Z~VoU@p
z#8iGnGylPqYD<)m(?z47EZK&QV#K|w=cX=^Nom(#9u7RJuByv;=Hpb=)I-`5i5?&I
z%||mM5{iR1lSnr_TUO>IK3LM|5~Ru8Sc^1Htvo)$W-!!XbZIQD1#QPyt*!NFLUP*7
z{M#nxy~`+G-}Eht<DfVpB-Byx;f9%+*|&<R-1CnOe7!;T)&5M7{W=tLdiSx5=T%iz
zU8_%@J{`o;m~Uf@LU}H@nsn8WC%ncPyaSWBfYZE5$;<a(3(Jq_eg}c()$in+Ei=kp
z9s-=*dgB5%mpywTvrd@H?<Q)_EiElA4^xi9KM%V?XfEEr1HzSE`z=_GC3cZ}-(DS9
z-Z33kJYB^aM7azKvJv%BrTm}-@>HkeItuvfYDD-~*X4KUdWEYA^6NCRX@*9L>#F29
zN!6L4X$PxV(`Hpq^YgbJ7qES=pouFMod2ck+UJZe&AEIek?h6Wc^)0a8QDQZGDmiF
z+P3<Krp6y9=BTTu2db+zSPZd-!pkvipK}^V9)tn$Ra>otsLa$U+ZAo2nq9Bm=Aw%H
z<a-a?mtLNafp4M!sgUcnE*(ev^=1Z}lqq{s5!sUwd4z^!jof;{@1~^W3(JCzxGIps
z6*OP59%I(gcd|{}nr~d7cU`#qt73X+Wu}fCW&N_P*v0Acsw2wLQHepYhu$}e$`7%t
z3?(`N0_nG;YU+P`b&|L}g=D3g2O|w-H$yL!S-mNI|DH`Zx6KRC1ps8{*>k#A)$g$f
zklk2X3NmVC%c!Sj?EAcUSAy~e!;C!}M`n+PmvH)VzVT81a<t^=!Oo9NKRByBM#t_f
z3H-DT&i<yxg6lOye?ng};H|xtGo&u40`0OcV<-qdmB}p>W$63e|8hc+^kkHOE9UjV
z`{0cWGG`?NQq;1m_#$ujJ-CEpYFt?9&SUyJVCjoyp$QtFn_^;Oi5xFMescQ}FbiwM
z<>25@K4BY<PzeR$)~4=?JQt^<o^j8^_a69!zD&)v1BGvzod^K5Ynot}$&1KiP6wqx
zpK~a70g8MlSg#zj4kK?`0ezr~Gb}9UK@M_v6xi|leGgRD8p)&uyqGKJa$c~=bRwJe
zS><_F4_rWe4}wtUtrH?^cwG3W_#K#89vU8#^S9$0KWd!I1TWtRFng-9-LA_;xX&XC
z6~Bx|+SS!nM$e!&Vr2D8HuMGSg+F)uYzw>^M=mbUPjG=z^*t)$>YQjLEjabq_a52{
z2V{{NB#|PQrJ-oIFmjh$*UfOAngX{gSN`EGM;L_y)VH^p<6~pv<7u9Ky~`L1)E1Ov
z{^Ru(F+anmq(IfI`@WSmHQZ*oZJ^bEIsf^*qg+4psDyr9ln_%DRhqINQtnGtq}aqd
z*{N0UuEQqkUrp0WR6IF5$zv!5h0y}>jfMo6L6h5ZMB+3zcT+D_?qL&w$lLMc%of0e
z%zKpwtY?R1aWge*tIIWjhm%4jbkU_bM!Kq|WW6tscZ&HP6>`iP5T=Uk_WGG!{?*z$
zRL~)VoQFbU-lcc%-U3@ovN8ur7zd0K9NWd0huJSIlSzBecpvobMxsmP9qjAVNY{B{
z7hdvs&VADsPlbSA-l9e2M~H19&9`P6sIQ%G_-LscUHKj{O%e|0HQ&RRDkIA9nWkzk
zRlCGh%uf}u(RGRFtVlzB#Qp(ZcN(uiow*6#z>AR!d9?c1`|=y*kA<~%8m#Ew9PSH}
zDQ6q#X!$&AmoPEUJGqN{68u5ujSHyiyo7$@O^XbE3j)U?YR`8kQqfRu-R5+?>cgj~
zR)1}x_=jNT_75&L$U7faVA(9Oy}Ya}l;|aYyJGj{<0Pq0RU$X-6|Qbhl&>)8o&3}D
zwe#~l`a+j-+iLb)`;rjaI<DmLFyquI)#kIGY0Qd1HqD&w=P~(p2Mp`YzH%?GdqR|r
z^w^|h7w>n^yj*}LQ0S4>Tlp$u>vR~8ar5_~;BZJUBx5=cRVzIQ<g>ywaTAmGc1j^>
z6;oW!zzim#3b_~D)|^jOGBPrT;FRo8&_^@Ud4!ZVL>Ij}jiw4|1-O!Rs&MF~CP<e$
z)$8R)xb(jtIaOJRCOBvgEbNczxj*A}D^5ZID6(3~Dw{2dvuBX}`t^x!t2bHJ?H?^W
z`Fx@+&2QGf=dbfD=@Su;;>j^;sv4U4oV5x*{k)%Z?WdVP5o1CUbZ&dKN$C~`3w`sO
zkH}9K*{pp3JeFEed!beTrtE=_cBD?>gTCPOFMNHrmlwx}k}qib_8&Sy`yT@G76gr*
z!=dr<$MW09BG;b&&FS|YDUr_C(Th_b<)pLNn(z2Kz3L!+q>S<bt5ASb|EMT4U=cmW
zP>3GEm!R1{<V70fYZ0h3;6lN>kb~yr2!pr=L3R*c0RLC7?l7uGIe8!F*Xix;^{mn7
z68E8FrwVU6QW^56oVCZZt4fF4Y^Tk4xlR|;n|D?<54-hoCtE7>S(X6s2v=<P4GIq*
zbBSKer`!B#>f;U$3ek|ob#mw5WY_2a*n{>|04pU|rwm#H_ZX~@b>}4q0m~HgtOn%j
zoF;{SA=)*qDw%|<h39_C`@J~q!Ee=n<3_r8e&^EMm=lTG4y?NodYGkEa#s^lGAV}V
z^K&n+xpNl&zP_?L>fo~wLIHk$2d1uD5a1JyZlGhaYNkHkEWNtA`sMw|Vm8%`(q;4D
z>NqS?wYa3Dq(=rK(4TRlt3>2=K7yYh7bN|_gcz?*n7dIXL>OF2>F>WM1bqYTz?p1m
zaK(&?r9-i=Utb2j=zrkAfs4B3e^)<AJXgG+Bhdg2M^ccK$7`;m6VvH9#vVO)xGN1j
zcjwSm)8s>rPANJ&13Jve^S(nXN<lKe9s0lR7eYGfyij~NH>1^Lv@JJ{F)*K;*tFUB
zP1Y*9oIu7%%kra}CP<{2{gXvUQbecKxC|Q@C9adt3A_IDU10L#HNRQl%_S2lkSF@J
z5s9E5Mj+|5fNUG+$Z=bD^`a9}tE{Xf+MHjOPshNs=Fc`r1x7}uARCWGIZf_dREet7
zJ`wG4dCUfY&8^LZ2g=e|gmo>UH9=I_Xbhply;68UdudI$2Rzn=>j&+BLMf05Kb$4g
zwLV}|gpwOdsLNk>^QuHSVPSrv9m?x4i#Fb>;^iCr&C?%MRyF-tZop6o(*YOuMG`4v
zfhH|byd4+k7ducL{OpkV>lfNvw$Ms%S};Dfk!vJuSJ#$F16sjNSE-3ElUd^W7ANg<
zAG<e4*EtoR2kLDKs<<s7;rq4cRqO|9?HBioP(wF_X7t#G;7AD&DZJ3VrFv@w<HWD@
zYr5s0^+XFE8ykCo(!-NhpxHo^RXH_)5x}vIlzy$ANV|1d0&~9_Bg?4XhK2^otg;zI
zImhM~eQo9?fsCu<lJ&XMf4`@*EhrLIm7b0PgmpwMnnM$^wCY!4(Q|d6zdr#N5~LmE
zGF6yM=!?-3n<c;vM>7VFw}4g}MsBRCsR7TIO~7^Fam7>()j(F|`T3@}V6C%>!<2TG
zQ5<BVe3Dm(UmBG3QkFgb-E8sOm`chLaDf2N1ULrJXAu_eY}<>*_Q{hcN$Bso<_}X#
z3K-OcF(J}X!<KKoS3;}ncZix=xz|B@-TuG~onCeab=_v^e;AK%-+fGB(4cfweCwGH
zTklSlMvKR$a-)#~+f~Ro0v&-py9ihX(Rr4I<xjz|4A9&~$JzU)tr^#G9q4-kiGHhf
z!WNr7H_@gHh_j2e*#h{7Xp*agIh4U0%;DCT1l^RAm2Sz^@4d376%Io9hFs!f`-C~k
z>pPizPF{N&aEW|F4ls(4HYKjV3|Gps=v?>B@1(7>_KM;$4MR+^)lEgw^MDIc9X+Ci
zhTuY9phda)XK(c?>+c6Vii1|jx#BE++0)Mpl+(15z|s?kFw(Bm!EvUBH`{hXjq1>$
ztqOLpUz8{f%w0R_F8^;6OK?_x0XPxpW`m41;cL({17jCmHxb2HIhB!-!MJMv^kE<n
zgrr<zVCprhM91a1v7uG65V^h2`ta)tsOt(Pt}eUjg*8S-Mu_H)e{6VxBP1&H5P<Xy
zjWNsn19oy2TyyXB<+l0VBovSN@zzrkM#$iwY#iI&)>p%TA)qc2bOTC(<eq2O5I}RM
zPrO9&k768IUn8wQOsep22j!SqH&K4XJSLwYq=rhCCk03)Gt<)nAW}gd;0_aBzy8#w
z92FZj#5K{wPoSgK@}br=6p8<tho(aKt=}2_On8F;F~&I|@@imoG-+Z-a5Yonu=u0P
zPa1AZAFcbY%^G!7%^=#v)?-L$)f&1)kbS3iTZ+A(^O{m7`A=}+T!sJ2&i+e1p_^1z
zR`w+t*Fc<1Xm8h$DDG-RKsWE^Z9gFqcK+_w%N3qJKFUT$NobPd3H0i=HH^<v=bPoz
zuLD+zsDgz51RPQ_zx80i(%q`J(6u_<hK7dJ>8yci{QB)|9na56GNp}}{?1Bouk-KD
z4%_X(@MLK%n8B_{KnuVnHilkoC9+S*dDUHqTg;DvOKYdi%HgVyae@_WzQe|qZf;U<
zd|IkbO@ezc?JQKq$yF2+dph~CZ%_99`m4BHC9D<zZLhlyi`3LqSjo(G3VR5M?tclO
z1{AH&e?QL30jL$!2G)*6A_>}0-GovmpJ1l%{A9;iu34R}Hkaqs{T_~)85xp{&*<D%
zEUQ}y!8;!Y8zu>YE<pGuVxw?eNbleJo)TYTQ_s}DCE*)hq(N7V-Hhf+T&dxk{sr>@
zx$DhJsQJyCo@V(Yrzbj#)CFwEe_%7-(Fr-;M`K{rk{TI>M*hGuB8coK$vn7Xc`33}
zq|*Fnf^VG*aLj9<Ql`_VN3$Alvnpz%^$6vv^W+@uDsl606ml!pUXiYMDMN7BZ)W)q
z(us``kuMreO6~_aO2~{rWtW^6K4_c^&Ryjwn)PE$L|d_`f<{t6`Mt_X2|^Sd5WXER
z4}K+x5vv$eIuo^arc=z#l*|n3$1e-@&%JtUHJ4MpwbVgYfOi3>@BZig80=EcL_GlQ
z`>rl@9Ub5sMnkxlT+;-K8JU?0G7lTR-NIq&J6#l)fj2a;Y$Vnau1wHJ4@f0;<G*^W
z>2*C_*A@*V)(avpe?%S;VY7GD_`}<Hp&|3UG<TGG)8F*Mg0HO$)5c;-guP4cnF6NN
z6Z(Rtk7tU;q%p0p($?Ci6!zYhlx%ps^B{44cGK|O$6+AqaPi_G4S`6GUAT8cW@<rh
z<yir8-4ho<ig;m2g8S}*p*VK_jysksJu56_-_AAto%RRVfWjz8L!usk2kF30uKfOe
zw$|j*+FJ6PUAbCF$KZ*<)Ej~}T<Z6iW~A!yX=!0&s}s^E<&T}~0DA{EQ5M{Vlyl`D
z#t82gC`S?vvm=dLikS^BPBB*1UK)EZ=eC{RGbH2)V7s)-(ri5%>Y}uX=lf4djt_-K
z4x8t+PYLc!18h>SU77lBCg7^1!$<a-cfMkVpy;~iWl#d1J|M*5prm@-AJmhV3J>US
zNGyQ~ut5+dgIGvX%TBVJC)jGPI>A#COUqsBbQXngvKnVvXOss)5i6o;%eNy<u0A}s
zn&#$h{<b7%*&1xM<k_yHeo^WY(3ZZET+7@n&aAz?%9zS6?tT1>WwdnivMDtgm0-K3
z53{UIjKLe6fe!TKVURq+cubR^N|(4bousOHKd-@Cf(?jXUP1lubT#~)Whgot_(FIK
zbf`$ibuxKYqvXZ<w<+a5((kcF>-Fh;k~L$w#2e49tF*a~1@sfY6$gExNmKPuXoqJ(
z&j0kS2di@}#&{brkHJu0wOkhmK9Iu47XNvzUlX<|QiQ@C?$Urq)LQmeK#3EsH0*}*
zAT<eq%E4gEw!Tn<sHrtWQ=<5GZW9)yJg_YZ>BBD;z(Kup-4v9O--}7Zkx<h^sTN}{
zP)xI(7p(|u+Fs#>*Qo`Qmk4h7cb;|p_C3c{MpdFh_bW-{!w;p}nU;f84|mUR@E$iR
zz5P3oL0J;V)%R_!w$^UyGq~@l&#*o7^>=Uyj1thw@&<&F5B(LEw4OyRotBO|Zs9@~
z<-`%x#H&Q<^rS)QOyT^J`n~TnWqF{o<8qGb&Y~-G@{d;{SI;s9*n)vq@|$zHo@?Hf
z>b5o$?f0TKz06^0Xrb-K<NS{iLv?*ZE^2hhF4*~=XY^TS9ha(C1&5{y5+lFM_+v{L
z;dzsj?VST*=xXr6LH`@L>~jgWmm+T$El(Es^%tehdED`=C;Wqin({ugwgIPBp_eXq
zO%Of`zgQyc72bL_B%TC2QDFYl$MR{jB~BqF0H(reBuG(nr+2JI?!B!T^`w#@$jBpb
zGl4{CPSd9U<1+MUzlWt9OJA-`1^XLs)!R@1-Rm=HAN~FPi*zH=X`yHaDLD4XP<*&Y
zK{23%Vk_q7d#_ex-I)umq4n^OlcafcBH;v?(f*+E7GyVwrXJI|osP-A_YSkE$c+Ai
z*4C*T|L$EFvci$vHdBx)tzgp$Cc-WpETXC{)Ty9!k*U&yVtyVkUvg=?%mos(OZgF8
zhb|pRE%T0IZ(np{jG@M<dF4atyk_mg6aF`v1k5`H(Vw0^9ftndF<QiSJj4)()AwE{
zg6@DGly+UlqfqV!Ya@*bKF5=D5NoZE@4tg(pmS*rCo<^89BMY%j9$dGuocdg+_b%P
zg7;DFO|={b0uShIcDS`#bk4S*<HiM|U@ePY1rg!N$OT&Bbrl>ZKMB+^SV8Z0@!1~Q
z>G=xm$#*c%#{YJXKEg{0qIpj!sU4T60Z6BF>cCHpkDG8A)E?)u9shMe550~)V<;>*
zKQ2VU=0zi+kGvJvJNuIt=r9xNzWI9qQhmrT`rst>!Q#XTix7S`-+RJq3%VsPJ+0;l
zvb(w5?el77I-Z;`Hu3u11d(|Yf*Bm+U;!Y#-SnXox`}qm_a4yEY7W^R%{M-%^8&Um
zjy&TA>VZqI>QJ8rpC{wY7fKG5`MN37*%n*3>FH@t#)C98gyL7{0?E~oF_a)F6LhKV
z(4-uZc!zwh51-;`Ufz}?@;{|vfVcpt7@sSxl%_Q?a|9ABst%}>2g5%u=yo7)<VJP5
zt#=&J1%>zY=*9c55HmTgIMHN5BTvr7#YKGt#5<5|omOZoSu>+>(t;MXI9?)H<~7j)
z7m_9}!{iW#+)N|!4lXZ!cz8e?qi-rAosrN7P~M-?V(kgz9WD=vhafIM4AKNw>mgrJ
z!?B`ysuE7)z_a0jfqLV%1?g=Q`p5-WT4+51mU}cv*n7}08i;^F=*vL^FwpcJ7+U=P
z{U&L#9aJtdO(^ue->50f!@oRtx)dI$U0{!}lw#2hnw}iHyetr5yG&#E<QN$x@jDo7
zLmu-^6PO)~>W2FJL*Ni{N}~likZmG=;^`h*h~&_A7~c0$EQ}HK(7=6S3ABnFJ2%BP
z_4$g^O}X;_`HS%=pIJMfe2N-(bj5o#WUa9M>8ZLsGQ<`y%}<Q+4p#azFSF6y22bHg
zo@g^5NC?JE=f!Ecigu_Q>8&P^)WObqm`3%#ND~JQT%`Teg~=Wq$oQ{xS6x~ZX^+*n
zCqJvJs0@2`>1R6lZ&UKYO`ErJ>XrvAYPpT4S2#DT3;GU>O`(+w`c(p%5-eJYYf)Vv
zs*t%GEsVN9=X<q3rO+vB+9)PkMLGJoai~t@q8@%|J7(szT9$F=^X6(kv!Xer85jf|
z*J<C&{8nuqoBq6me&Ky}qnLCr=c}CHGHX{AkbCGIwg$&u5Mc&>nsM+1;A?y<zPH5G
z+slhP+GRepOXXT#Gfbl$%PSBsw~QW?&S;+D*UC0h47G9meIC@R`{;Aghjxe%rcp8(
zm8-FQh!c=l4**5C^|bcT)Qz9UH|u?LqR6Rf;?Vb8PPd~~dFXoU8ddGGNW_??zP`Rk
z@gI%&OVC9|k6_mwLrJ#^I_MslfE2vFiy#H<`-1LN{BNWn(Tb@O2g9{Z{xDq1w=|qw
z7q+-(5HQ$k5S%s`J%SfCgI~)GF(`54#(B`1oP8BOyiW7uQ>y2F-0LQ|(=B@i@4(Mt
z0`t}_u-r9J4xxTT)%9(^6v9&;LXeMtA36UCaE}JL4%JPc$eEeC6?>{L^f1~#N@+pB
zg4^u6abbP2&W+87*Yx*A#D8pTz%VtAgz(bvsYcXHkp8#OGu;H07kWYO1%ZG$t|{%*
z()DZwhCT|B%dj;g&I1e2ZS?beu%>OO12}t0mrXuTx00Gu)VE0fvM(Ob(>Q0|iftka
z1lPT9`x-O!qzF<IndK&$76)iv)i?PFf^%>%+??mknKK}tL(vn4(U^Vw47e9x$|f1#
zIO6qYVLY@K6$e7WC7V%|=3Jwuv(^x%!_oH;Hww?aJ`zg}RAs$l2-<QLdty8L$gIL|
zISB~fd0A%>7>T$WOHg}2C;D*f>sR_Qm4~d?$Ym~FiD&zq)u@Yaz#c064%B&hk3|Tm
zzHqRmK?|HGU-4{juyqs6EGI<O=(d;4AFCV}!U8qhGxVyzqZ>8^)-nPHA~p_Q;|qis
zRasTFi>32U8g~@^JzU(Dv3<H5)qpV+PCOzN6V(r^=>UjW11rHT6qB1U4dQ4L$DNRz
zF2Xu=+v8}N-Wi{*X(i7}jAhNtQbW(*eaMg2=@v-ZMD3E|Jh*;}xE!mKwRB%-)d3xZ
zp>~9S{J4=Fh!esEhUUOfNAFn>#N*2%?PDD%G~e-wQY#6TFup7c)<(On8J@lwatHSN
z`yd4f5rt6dklMKYnWcFMuKiL@??YPVCtR*vr&lbc&g&l5t;$XFA?<}b#7=c*r%bOf
zN^U4R>paMPH<4w%zV@8Aw6q+A1jS2`E?t~fuVHr5kNvckznMZ%$CH1X^0Q6u@){^d
zgw9AvJO#f6C{ARYE1H#KSNU+6u)xD`cKz8FiUrEy-`UB7b<t_?c_m{9sc84OvwUVS
zhL_BJ??L9<0gOekV^SU8Nzt8l2S=BXnvqQ<t*9@{{5$(39N{#Xw*=!+B6GB}+>X6;
z?}sfYDB?eYl~*P@4_FbdKihnwYQx-0!FDt3q6B&{3?iuE+Z23dgtZQ+TlVVJtN+XE
zh|gy!+qe$G*S0V2-x(9)>;Imv`hVf_BNpzzzH|&`06{N&d|Ey~+TmiR4Z?I1T_2&9
zPfblBD+FPF;k7uuivng>h-nDtpaMh*VV5f`Ec~GRH~03(lk;un!7%(G1xuL{Q!DW5
zWg!DRr=zC&I(qy(L=2cx<$U0l2F{a!s22eepqu>5mv65qgZIHFWL~&I3D%2ZpX|}2
zM;&3(n}agH!4IUTfYugroc-~HS}OtMvnFIf8CTb0RF$j;BXR)ww~^=T^@24AXMPcH
z4QS47)&K2PA0_Yh1zS*Ta5D}AQD(JQfYJHz;l~gUGDltt+nV>wgLPf}pJvo(*T2=)
zHe>XJun{MqoT))Z9+*01N%vgzII|>USJywzw^^$ykJG?`DL{B{PsBX^`zV7%J`Sp+
zDUG202Y}*aBqgFzzhu$v4q^g-Azj2k7%GC3&Zr^QqfVFC<d+O_wJ17)m`agz?kT6}
z65Oe#d-M9Uhr0$z$GbW2|2T0}x6lV-2u`yk=8WK1fV(vuaLgshtJLAd0ZY-h{)^U*
z7b><>e5&*&#t)x|;8Td>4*pU>PEO9l6yTazMJ5Sk#0EIt(qO`CHQ~WuCPqfWOmqy_
z3|y~SeW~1=mQ}(LwuFb?9CDl|h=l14G6p6>T$5EV>9~xBiHV8FdfS98;eCP>?5}XK
z(UlmW82HM+SM-AS!GG%Dgk_QX*Vp^FcI1H(F=vuzZ2+epA(5a|oD8Jp()VN>(OzFt
zPBevmGe99g#t=;7w<*Z&|HH#G2maygxpU{bGkjlc;!_2Tx>hH=Y*MNpT3%ibQs)W`
zF}H3EtVV9xEDL&y8-{9x!w*#H2Lpl1OYIyHGnX0r5dC~-jv$z_4|8alFkYXPg`)FH
zr?R>lZU>}%)Z#dZ5Ub?QOORK-8j;bmm@|f^6)&Alu<9w7iN8&Y>Rp43K4R?zYydo4
zZk9^}bE^(oEFSo`IEl1Q6kF6daMdAjW)YC{%b`PuRGJGQm=eOBHM|0$;Pm`MLhggH
z|4!)P^>4-5t38kNH=u$2t&k{J2AmO2lxjAJX&F%{T1O%8E2XIE!A<wwUs~8uEyu(V
z$deFIYcQvF2dGynKowXHSJmm74L6(chqeg<w|Bbi*nR9Cu#YN?iHZ4*4Go^LuSe%U
zg5&dIjIP)nFB0>)WPO$NJbDWbCzTwVUgQ=}PW}FGzG8lPaC@=){Hv)8VhYA}jB-wJ
zUn1XC2k9qPbRU-5w_3lyBOL#)4jvBK<rk)2stBtC(J#W#v!R`n@{$(#8PU0{phj?}
zsOR#adcDJ}kN(1+o<SHpnX0xP#2NbIMa&n9rUTeW$OSqY412OVJ#{I(l~()~to{>)
zdGHCoj6^5@Gg?Th0XD0NRWfFu2uI>s*j{4u33n3|do6;ZBW}hb&qDVPTd6{`a0OTS
zFh*;dFkdDqSYq1712%&IdX3PSh@=v9b{W2~4Gm#R16Y7KxRCUXS~K(r;@4xsym;{)
zxL5B3bp$Df^Gv83sd<CP0M1i>j`ip57+hJL0ccA&K;~Tq<a~eukP-OWh$+NEH&=7d
zGxhoyrOR!b$Q0SE%62v+e+!k7o9LE0{_Yn6VWVoiobPo_`2ylwcqZrRxKywUn|%WV
z<IvFG@I$igw(F9q+v5BDQ~+5aVQ7<fbod<~s_#Ry1HszO1pAXz17y%x=rA)2AGUhQ
z+EOwuMb?PEj=vu++ZMbG+hOaF3qD!`(m}IvTG2anu};+8l&5(x_d`R*U`Y3&?i-Q{
zRxP!6MZQb{%}V(Zqm0pQ1Xm#uLfFtCfT5lT-~>VLfB$+EAL7esIN6?eCGh3FzdzrA
zYZglk3DpK|yFy-G9`Y1s6cj*s6Veu;5XMyzo~+J(LUYe1Tm%m-VC+}|nz3nCH3($k
zvL3wIVOc>-Xd=SvE7lOGzQJ#be9x-%UIqa_hn;sI-5sq)=qSQLL1aV#3jD>)2w~<$
z>fnisi*um9n&179@}8$G8g)hqsUWs9>Gzx9=Ac*5-X?E%f}x(izWZTpQvTxm#;=YK
zr1o%J(P-xXL=Wy0gJ)3V%=}`}{*IwjpH)BobLR3#%g0MmyXFMDr9M>b8njl!$R07Q
zN{r5d`4}{917Sx@m=dwIzEB~uQqF7t=MJ}7y9(0LtHzN4u#|YiCU{iz^z;l%pYK0e
z2EV^EAs|vPeDQBL>?{Of7VSLk;Ygljm-r1`C(3zRg5Y+EnhOd&g)sfOfk+OuiG(rK
z?}dIVt&roz1in*L*Un=~;+(`Wa4h)6G?X0{m`Fh>HUOfh!Uq%}8G=l7AIh{}ESlIc
zOvMq-;v&i~u(XaOC8stZ<B{0mDjzO#n;vaS#-Ob72-tXeu=+?K;2`2~vaaCt9^=$`
zJaDrHSa=m&EMb;M0!8mccy2KyaubtB^<ds&pyLFx=w?#wX8jtujYhIViJ^)9ubU@^
zD13;T4dDoX3DOhF?N9t_ibkFss4POLJF7UoUh%XiV#iglQxRkZmZ43oZ|GQG)k!*P
zKKLJAfDw4Z5}<Qx0#d*F+Vdx80zz;->}@|^U)cgw*+}xyfvc$zR8cY^KJxG=fiJ~@
zZGtW_I6>}nOYr!~zm>whgkht4Gq|qKDN9TXY+)A`)&hI<6CKkmjBLRnF8TjAbvnN*
zzqhYXDu7ZfR_8A<On=3$GwE#xdj?bLX3P-{W8mcPgzxBK0x;r>M1I8$!)wlyFfY7D
zw^<E4ILLQlvcvzwZor7EWB(MimD$fmJV|6<$mQBiWe#Qzy;gaJb%Zw3q^v!+IJ90t
zIV8Bx=y*?I{8j$FDjxmm5BJm1j0w@h(xWoTi_w7SolC&-5@++XZ@|R2xOFGRC+&S3
zP-;Icqd|<2aPz*qgmW9eL+vrfp~9$ZBVug!+bJJR$l(f;;dezR@2|JmORm{Hx8~VX
zzRwetC=sllBg`xhFq=JsIpm)RdPNzTJE{by<`;{ax6L{Fj&!JD<GV93VFE4!Mk?cH
zFi_}`Zk9m_l<*@g;xl}}Jn8S>f`o!k`p3Y@|J?GO+D&l6Pp|DPZkuREwM~Sd^$e`}
z#4MnPQ?8l^(9SQuFaMUH1C_dq8R)`^(OGJ3=XCg13nyUM>{ORtaPmS&KR)9SUNac^
zX6(VGQwLZPIU8p!79r+$XqLegmxt(W`e@mg<+5xGWmw{DwuOpi*?Lw>rW@Z?kCR8x
z!4Ot?v^>NhHIbNz!O*kHsqbL{HJa)zi>tENXKaRzs@w4b7Z(#1yIeqUa6F0_2J(ok
zwQbwBxWgW-#jj*7Jv^GpI&&t_YqdXFZaeiqZ@6szZxI|;FayM#YD&0Sz65@4v?WbD
zl&t3czuhpcIflEE(4aouOP>lILeId!sZFuabnQUanps*;9u<c9pC4c6&B0Kr>`A-j
z+otwC*}J?>Lg6B`0yMGLgo&Wtj!uox5C8@<+S3+Rd5oKqsH|Mxl-~)opAJ3&7bKxI
z5uWh-2oSYAt2kna*#*{sFsNLRSLupCf_JVW>z=7xXUpqzSc`B*Np~DgjNg3Dt`H{p
zYE!g>0gO$sL-hAWC*+@MqOZSG?!BsJcfL@>q3-)$^LYct+D&Oi^I-(h3NME-R+O0b
zWh1lK&A2Nb?<tOdD6}^sLD%7)zW!+QdPQgC4nxIA2MSlGZHAW~{<Vo$<NVo!`#dE@
zIRhx4^1ad%Q;qoeO7!i1)+_#;_t?1K`X_w8uw7oMo#FK97u7e!PO<Q8785@hyzlN`
z4||`UkUCXR<UI52EA1<>{2rc~H_`D))iW;SD01;?z03N7!&1BKTLy;SAayej4!6bX
zbc{$DI8BL(t{}a8v!)eh7<Tbd{CK}YlBc+#0#5W4L(Drzy+V;yX@M20^wles<;*pt
zVc~Z)Ukjwwd~>1JK3`zj+VOzCw$LQynHTG!+#I|9@?v2Lq&??Bu4oSgdl}L&JwZ^w
z1yO;XfVWK?6KKWz_fMe@F|lUq6BDPkQQ$EUcWxLh@siFWAxs`s(6kv_Yb^IoFA3V}
z(U3M}Cbg87@^*E-NjoZ~WTupvIQ?;lNq)=pyS@8NZdiBj$Y~bW5|Q^R+IvwsC1o|L
zHiYvO0|Vx{zI+^xd8q^J;sp)GB!{*f0P9!mT9}bI=_JLEW2!hlI|U$&yiH0v+fsDR
zhkr0+BFqjFl6a~3-jlzzva_=-!B~ljmP#;3W;M-#S)kv)KR(KF)K=Tr$#EF5UkE2K
zC*bmMXVLOu>ohoaPiv<^s7(i`FGV`1g~6|8^E?uzIDi51>M5A~%0<>^M9edrcQQxp
z0|c8Q{&x!5sx-J{W#BaV;8Z=?k{EZse!Wbel%`q0qn>SFe$>Fk)}-%Iz0!M?bj_A_
zUt{xITG17$<KR`jukGPygi7HrRfMF$hoO=jV>3Fk`}60>h!rrQ9)*G|SBNI9K3+O{
zd!2FZ@~7sd`>D~1DIGheQ?paL8oiQZa&vs9(clvFaqDEKu!I(QAI1GZJo$!S1<2$i
z!!DH8C%=FHX7?^ZfBeMUWla5v$l8?86V#*vn3A53{{kYQgw`(EQ+iOEO;i-WgPyv5
zG#eum^3R`tIprhR5KCv5_3Rm)W5T}uPpYb_zPPQE-Ka-LM|VBB`sM>%#qZ<2wCCpL
zS_?q{Q@PG1Yg1v_wN+sAn0K|YvFU-cyiPb5B)zF^5jr)2WIHH~)R?sjYtlqk?(uP3
z(d|Kux0=)fO9s~vuH#*BMQicI=j7ykxL4`-1<%M(TNqU?$uAqS{%shqXAP-bGep47
z>`ifTv5dC1_5ySsEn<6ZO&UpQGAxI{=mlLBJ%q%mrUE?pD0&^UsJr&dCL|?Q&Hav6
zuoD;F8>X*LcE9>Y<|7t|a=+}tJSK8IvWwwpqh^RXfB(npl&H)i@;|f_x=wEIa>&9z
ze$<iYn}0WxM!MGKbMfw&jim&URy*knYKoPxjz7VW-@UG7WUic$k}2{6cCvNUKut+W
z>G|`kSPXy1EfhJoKT%Tj6Ya;7=PZRVOsOAtLZ`?>c{z7p5uLI<0BWwISAKpz+dUO@
zl>SR?^>jwY#*|<@9z3!pJ{0@s^k@??hmh+~gPO+uYsPJ*!p*t25aDCaIn=Cf-Z40b
z&B_VM<&0Pyk#<u{c>mtSLJO0;yIxXrbm~lkAImKplEsxB;j_47ds}yN=S1E-b5n<J
z-J^HQu}+uY{8+d%hZ6gJ%@q4tQZ_}Kx3|B(Vt(bODaqya8#rK6nnDnU>rZ#P>^^e-
z1ZC089($Tb8j2t1o$y40yw;Bfde`>Ok3fAd1WvUCv0DM`OuPPP@A^I}Dk@nGjpLvL
zwEw2Pbdl(7paqmMuX!v)udfUxq^5d9j}V2@6!x>rdtOFP?tt4;W3&$Z0QDI0H|YfP
zvO(0NZ_W5Twl;1c@)G>t1-J`)hv5rG5fq2C^cK7?hCP%^)y<2j;0ZOfnB42O@Re}4
z_X0Zl08w0rNe{Z!$=kw<{kRH&US^TS%EQ*M&ONk8JFW}=D(9U~?g<GA&q41XYdA%q
zjj#l(Q;K=toF#q?S@UVRt<HT!IqHLF){8jM;~&2EBJO=K;LE%4DpML4&uKT=&WHIK
z-ICS$mrF}a35kgwVPRn@TFhz2=GES=bQe3BJGO-B;6v+NnN#yeli0mU-&{`k2<HqL
z7>Q4Aq0cSKJ~rdDga;AuxRMLH^x8@ll$6R1<0B83EY_IEASdqO>vo@5V9aGtbNY)S
zOYHiShnnM?+*cwVG)TxQDpJ8?=0o%fTI&Jww>`iqmp8;o5fCV^#k{6?p^T%vztX=C
zG3$Zb%zYrhn3PA_v>yh3itr3PL+4u)!r}P-{YZHn)@iGNnWeBA>cYctmG;+l?jfNQ
zUtG}4^}R<kX9a<9s0_BRgQ(sw@h?|yK3o7^$i-*Tza2*a<TVYPQu^Z;Jea>j^y6N1
zA`$M?6z<RWA$TsoFsa{Q3}3OZ5~JW06bJOSZ9D+$a?Dm@;GcrR<G{a<zG9TbX~LgZ
zESvrhFGy$zGJBo92wg%K<B;{mF3ZH@3my%zsb#Uy*?0eA4_`)1YU(*?tp{<LMo|6?
znC&*+e7x!fk?rEb@9##NLkHY)mk@<poj_ar;3V<F;}KOv&Wv7VD+ZgvtJ3#N*T)NO
zjyNRaup({Z0`IgicX#aU#IN!7K0l>{-d-IRDGnc)982M5qB(f_=5zS#h7KCT3&Es?
zr^XORHr1B6eRt7ckL;K?GN9^5byd~SlrO8qeSjxP2Q|1b$XgN`NvO>soVsEPii%}S
z!5V%=B}kn$TG%}bij-ig!Wt9UhU(!y8lOWxJqAJDJ0>QExa(fD89s=`BSMZ3R(h#R
zo<DyMILiseu|PHQD3^Yz2Xj<Nkyge%i3gMI4nxidiMRZ8u5wqW{yd7{y*~QYVezRr
z4wo}8Uc3Nc3DNbgyxQTlz6$4Z$@Pyk`-u}&qqHCl2S80L8h&gS#U^tur|C-O%qb*=
zqOvK_C}#6ZG+hhjO2(Qn(zY&OR=Vbm0P*4zdO7#+6DIDLKtLP}43MIz(dKrH+iPlS
z1_TA^r_o$8cnf}56sB;1AXwz42%SZ~CA<Ksrw_hgZ=5*VR7GWFYHn_B&bwb8AK}yy
z-P5t@vgoZ_x14(@wV%TQo&A8-`6kBJdNJ+i`Do9jggEt06z&~zBRSG{#o4rr1!-~(
z8}(oIp{#}%nGHvH5gr*Y!k<0#L$i-fJ%<f6!y^sjH6&bw=c{no0?IMK)7D`6!yS3B
z0$;P@aJcI;berl&Fa3<y!63%|{jw~FGFI()6_u0@<LdVB-%Zzre8YlF|F*bTSQt{;
zpy9_&Em}^d@Zs`cE5SuMtV{=&cs|-I%=fI8;*NC(>+kZ}D=upJyVvT5sRzqqbAz)V
zfY$n;e((=ZCIrUwl=fhH_c=k|wQV_jXqW0Yf+!wr(AHH{Q0SM7hy5-162*^Ky)n<{
z<CxlneIsMu|LUWopm?3P(>`1^TG*wx&TY+FRFn<R;FyQJ&t981k<*3)V-}vxlREA7
zoUi}YwQ1u6#D?AQbI%Q>wQIK|X4}O@OF`Vy{B2*yKNKO>1Sqe^gEqiUcsE)E3W~~U
zJL{TpoR^w%P-1Ow)WD%smorCLeA&~q@qz|}ZRT78$fz;W(LQwZ)2Py>&x~$`USOi3
zcUzefP}n%4H=^;8fq{W#QXEAAQYjez6~t&S&>wjEZ*ixIPkME3llfJ&Eu9VQ#Q#zh
z>>~;l{`}W-$p10P{Pzp~i`n?U7wW$k>i?soXSLHFitbSu^PPXTv<%5^JlVxv>>E?J
zOZPuJVlWm~4;=t-$8|ptQQccMA_q`JpJ-t}hJpG6!5UT)4>0ptJRO);ii~Zn_%E>F
zs$}Yp<TcmQ0HUl1pFLhAPUpag*#de{Ngf1jO*d)H5Il$H?VviY<JB-CWAGilI{eb*
zfJ%LUU6tOTDA|gaJ4of28K7NX@L4|swl6D*c$5moi5+=n^)hN|$Cx7@$O)ocrlW>`
zL=DqLLsaW6g0W+wmi_|fAdu-4OrJvz4#aP|D>1dW+sR`n(VOH#a!N<DZ;#1#UGTiE
z=~S#rrBEXe6Bo+iI`wjDwozIfwbMF#BmaF+H_CD6Ex2rHdEELtrzJkB9CZ7>5<EVx
z56y3_w{(;sKirr{07{fKFylXkOXs$eB0iU*;EDcTdtOCV)uRMQRyhCLcnS|&am>`E
zcm8ul18yv0vH5x)AJhS`LZ!3SciQ+piPpqT<|w{7I(Ps@UB{?Ho#4#PjY<quUPjER
z&m7xIyz<7k+dJ*4*;MusRgZWY&IVEiI)ed*-pv^^txOn<+Xt!4$nzNYS%G<!`|>x>
z=#GI}`hC>&-wYquy15fAXc;<8>gd&RgT7bS_IO~n>>N>DpFh8kVOhcpHU-(Z0v44%
zOq+Yb7)SIH?O@%~EqcBTqh^VU{%mS0Bf2_`|GY74i+ipNODQzOmWAfrVk-FceR{q=
zt4K~O4x`1hjobubEKA2DwLZcsPEZ@BA8I%4IKB@~+bS($MA;!{Cvle_)LClY-av~;
zjE`Dk>XINMidxfQjVmX%4$6}2c***jSE|FOO*`)O;n9(U^&4gFlNnR6doE}TS$X+P
zK+>hTm*9pj+~yw$U}0r7wyFWj6I9!Pfxk=#4*W4w(9)uVxkpt4qyOP4pE|U1^oc8=
z_?54*xl`Ah|1{)R8nB?hQ=9VDX9CllnR3-OUQiH@7Z6YC^0~0_{}-=VN<k*apHK6Z
zdfUtqQJ(Z7!VC<MjP?=H@OE$&O|=)U6_ku!@k}HOdyS3M9pX3KJJim3jDp`e(zQBi
zcZ#7G(~gF-g?Qdz1#FbZ_U|XU-Q%e54q2J%gzujxH6h{t=i3{<8x&N1csCk3`iv<&
zl#xb=1f8I|oLJJgfttS~_^o>ZB*g$$`2k3K0Z~1pSNfS{H8neikKwVEp6~#P11g56
z%M)*RVq4zULST>Ta$tq~vxPu@EHtFay+#E+PibNd>Y@lvNxw~Q1y57-g55xjfQXoF
za-p>Qi}?N6)4}d&?$Gg`Y1<BbMb~N%SCd0lhSX9A$(34U;q%@c$HI5-P7{y0!raaa
zVA055M~Pp3m4Ow#m3xHcoSAba_Q|9Wks_$pI$-ka!^z^g6mz{a^vzu%f(}*$?m|x$
z8G;EBB0VuMz!Z^sMA-S`tBurgKLBq9L*%_asCE|}wQ#g})_%qd2a2;6MBo9Q_x6g7
zq1{7pGeaIe1V7UY3`8&&<B(Sn?QwjxtD~ss%?LhDT;|FCjVzXvc+rOek7UyzzRkb@
z{~a~lnMOYgA)pA+5T58dEO_m;y+Q$A=6EtHI+pg{2%-63r`G;F6WK^Pc%FkU(JRR!
zso|hY`zwj^5~LXiK?n>TxKtOx&$WT*bH8RIDlQg*5Fvg<q$jD|FQ+kl*jqSL`%>6t
zsb7xZo;mfZ0yK<#qp`CKlXfLEXbX%-l-wiw5Bveom#F&538vLjFfhls&5<Ho?IF=)
zFRC5T=wwX&%M0Rnb?`G;&<ecm7T4O5PV4bd6Qcj;X{(B1(m+3NiAH=#&AQPg96dnu
zz%!ARH{Isc+-_?t3u)_1X&Oe6Fdl)kc!7&aLld@<6&g$__>uTm<K33x`QYY4Tw`$1
zgGdO$#j|nJ5i>|EWocl^#^*4IFnwPyICJFeK)J~^OFZqO43ZB)aah8<e;wmty;vx{
zmro1fjC_gbT?|gUwa_~bzX6B!qRw?blm7wqyV(1E+OwJ#!@`yp%Q@`ryZ7&(QA&B)
zrmY?@rmb%FevTwgcW9uDy}-i5M}a-nyP`{TGR^2NufNo%0yGrhMl|*lBU5ysN&m0*
z-ZUJ`wS61cyrMazQ3IL6l2XPd4N{`aLn;*^GKNgmYNbLYiA;qu4;fRU!BB*dc`Q?r
zdCL6m$E{~Q{kM1fZQJj||HJ!XwLKr6Rb2OVU)Oma=W*=Ee(XCI0L5!Fh-;o%xTx9y
zRk9hlDmiHT_`jmL(tU`MeYoXgM~@bV^xeYN0>O`QxKW`GO1KfUPsB_B_pr0r4k3O$
zhw80GI6X7E=i*{*$9}xyzs4KW{ezrZYx`_Bh5Mw3NSHXCS4#N2#_B-1fmU&E^};33
zUL*^xak^+LpE9j!Q;Osdx=X0f84r$x?ifG!13E|yxE6cA5hvMga07+GAWYPFKAKwS
zAmrG4FR-aJTS&j8!LH<bu7d|Q)=%u+)dWDexS+qmhX_}_X`F#9e9skZ5EKx&MRhJP
zLa|Fu5NPW`MVzB|Tbdn6c){5msI#WofQ}M`Df3t{YjNpIgCDao4Qbq;1|EbBW*YU-
z*j(JBbixrjeXYHZL}_!M7`oG5e*jPvc2Lb?6yEL-C*k7f=TF`q8Wgl%D7DGMTU1{G
z6}3ODJ}Iq=X8TTyz`Sg1CDnT^US3|=G{FpB2ktsD=0)zYvkWlcP=fIli_FFQGf|NB
z5xN<5{FMX|;%%^R63Tag1KJ35z|>v7%iJ9hxiP6`ZL@X6iaG^c*9?8XmP&TI!?=|O
zgE|EQ{QN=aH`6&iTdlvd(;c%1#!|MuO&t+RN=l2tdffd3h@)*1BPRTqeNgMg<ysxA
zg+`<SZZ5Zz<0_70FX*QM0qY?QB({t$?wm=5Bd*}eA+r8~Cid9HvHs8<`A--heJA~F
zeGuaXIJXpS60jkyN>qNg@IjK8Ua0?Oi%4ncZcSHWvX)PsopwZeK$(uL9#ARHm)rk>
zdm5XQ_hQ4>ECT%3YkmDC<L9>=780<bx;$s0WB1h`Rur)7CpzlCf^6XqSd^EaKeut}
z3^QK;z<CJh^M`CYIKP*K?#JB9nkS4qtGKD1Y(TMBEFD~wYg5;j+$A)v3#fZSkG@Qw
zkJQ1b3~D}(5P*9}#Dw_xJ_K_y?xOmR{A)>Ii^gf7gZ%!3&=^z|3&5Q58t$pj`5U1d
zn2baL_K}MV!8yy(lF0ujGkxH^ZT(lICbwf9I*cg!%2L|DnhgV{xsh8KA2lDz!+Rk5
zLCMKtXe%sTycpygH>96L0cU_w2zmQTZLw1O4Cc_UJW`>27*brpPoJK>HG~nh#RO$H
zGU|6G`$HyLQ&*0&XpX;f5oC2+PsY7Inv3+h8m-y=j0246;p<<LgZ}_>{0{_I$e7>+
z6fygnX@iEH9`5KFln`B9Xt7!sP|E`KxvPr{rt@U6Kr9lc9%6Ow)&`wqV-0}1n<0-F
zpKlRp+v2mmJt|@S`coA8q5C2QNCtl@I_SNF9v1|Tz3;V`t0gQe+J=#voSixwA=141
z+U|9+s`SH5n%D4vcRyYP2>1p%7cMT;aruga)eV`kEc!fGEe^`dH{KM8alvvnqQtq+
zfU(*imC|EEyD{DwqIu~g&a)37da}4_rKDgmatDSk0EX}?@hCY9g4yWfoK-g<BY*-%
zr46DvPMP8`Tkv3<!~(=E&aR23A7M&d@t>pv`@8msx{^|nYHJ524?jVd`Tas9Li0YG
z@UEB@XrUJV_8BSo-OA@NF)>AbNP+LTLB%v+zX0R<(fhDWk-0u_dw_ytc-GAn#~VPS
z^&8RIYAqsn1g4#lcd<ax=P(`v{Ib=q4s%FeZWuu7m(pZBWP`1E*VpH-^m5B_UA`2!
z`@|%R@tIj&7^G`_>T8l)uy_hT!FHQwivDBc{v9Jqva-r*YB{t%(PcZ=U4#D9&+#rN
zP6#3u)DavP93Q{=_OJKihWEmVZT!{yFJk(I;K`o|602$X7a)T@7KASjxj~m7Cyl`*
zbVb6rJywkI4K>|rrq_YQ<}G$!({+us#3fTOy?y;@Zf8@4n+v0rnCr=h$M2yABn*F|
z_nAyHm8JJxW8atm?8KWZ91!@k{83?c%K}i|vSm7!N|YZ_^9ZSPUIJqYII9LHir-vg
z`DvFKR1dNth_Mo{;WpM$SZwU=+}wkgIvC5hDMSOg9MONEdtO!ZVCoTCnb-abbN>5(
zA=P1sDmFMygA{pxT<{Nem*Br{GWCtF<8gq)u=nuc`~~G7HgMs5XJRrC{0|r&rmfmt
z2dQ@@UEPfQKAQ1z8gJJ{($eVyrQp4?nMg{<sSCE|JmY$a{8(e}{+@4CJdA|R0o<sK
zgo&YmQyXi~m@uNP^3R)KuMB#O<IM!~oE%#W6e-<wM<y2*9ew`B)Z6kXJ$0#@osBIE
zgavHKH&<p+PdHI|YQf1F7F~~8ZC!D)(gso-f)$LaW~ZIz7CK$?vLR4>n#G#&pzZ{)
z&$lr$G>q>7Nm4V8fhIfmCmOsSMIm^m5x{)%2_D85_<ru0GcA7?j8}?Y8c&LKh<-A)
zG!Gm-w`MOUOv=I{Bdc3%vDFEfS5Z+B0mtmeI7&A(a9DbO+r+QX*B7fklER0K@)Rg^
z&yfB!|7Rl<ozmJuT_BtmoSBe3Zv1Phf<gGyI`g=n$6SXxaQ|aPgU_kx{uZGIK&I<T
zb(Ihr7fei__)%94ek<DWPhoWH{8R(uwfnC<@_%ED=C<#v@G_U--fth(vO<};)d>9)
zgpbdZ%i4Usfr9Sd{_tqSP9{dIUAr}z+zU_<E8}?MQSjryuhLZWbBM7d49%Ix!3c0O
z7HnTjWe=J)t|ZwT5fKq@fpdT9jM?+v2ZI$$0SYDKP@e9Dc^a6QX3*yXNDDCxP9zYz
zKhUJr^1FmAFbf^7uNX?aiAxY=vr)2sSYZ|9glwk*_9w%p_`O(PD}xXkpJ5*E8$fQf
zAGUIIntVn!fv>>x)go|I8$ym^)K&pm<HK*^YY2UhTVQEn<s$U3gO*n9hum^WO0Bh)
ztZbBK62D`gZ++8$UJ|0!C>m^M8c_?Nz=3*je2>#at5eHwKOl)gUt{g#$Lqe?K6x^k
zF{>Mk{`XZ79UYyYeYjHoB2N3t=cvj4S^wC22#xxUXp4#2)qx1(?}jIO=l5`mL9v7$
z3_`2~Y*gRkN2m_eL+-y?BV%v#dsxT7<ZV=9va+(M=RrGWR6|>yckDiY{`^?aZ6`!4
zyG-!2)~^o&x3ouivRC+@C+cZ3>Uo~}LR4piQo0-+0je@MBrFX;$=DAz;n%o#3vOZY
zQ3G5GH5I}^V7?$9-whv8{e7eq^xLX;b3v1M|3}|#!U~A%HpouVA3;-rmW>VG`$|6x
zq=VU%>Jm^M`D=M>z!@$EH;GG_r4_*2KZQ;c0%?4fIC>vu$b_?(9+9FPgRPUXrHw;t
zQ~@j~E3;CNMy--<idRS7YkG_5ouN~?4;6PX+8SMXj9*EVNS%}Bi){Gjf2#4msf;Z8
zXv}|dkG?HaTQ4W`#?nR*3Ek18p&|*<2XYaW;@~Q{VzBbh^)hxlea}w?`G*^UgQ2@7
z0>Zub<}<lsg$}r1#xizsL9aXuqNlyajL3c><v}(3d{8rQ;Ds2ocUph@bTYD)a*iUb
z0v8wRhp{qWOZ#;ivf(sjxwd=W^37Zkk&!6vfI8d)TC)uVkHuKL^9%R{1>NAOv3|Ww
zRm>OAZ+}0lhp=$+rekz@G@IIQC|j#r(lFql-w5jR_TQJ`+@%{&H)4QrKU&klEgb-T
zDs3=j_RkVQbWi|MZzTo*FDB^i-Md%IKLs28bRz&V@!v0m+Iz#wl=IcrFAbw~Gh}}M
zCp>fgMo<j)6;@+hP^=TL`u7z~HNV*LWaG+~WxRDG+#mo1x?x->@b}#Sk>vOuES$1$
zwzOfzz|SiAed(<hGgcQ{BYO4_%9D{v;kf&3X;cGI`6c=5DEzbq2NXe;)IdZZOh;!m
zv5RO%?2Uzykx?U|Ed8Cel9#&BZFWWG{(EM!VLf%pjX7&EJFpjW6pbZ;6P6TeBwMM!
zO~@H)?D*@?An^VtF$2=7DEKiUtzof|mzUQA!%zek4nJPOh{M>r00?cu2_)K(61@q)
zL>7<#_^*R>Me3}y#q^FD1u?W(Phk##&H=%Ka|9itVJU)1#OKXkT2vzzvNJwN)2+CL
z*Y4A<Ia!o6Q2&lz1J(|;_4ow@I+CV(0QV4kK>FSHSP`99gzkLzUs=S%oHL9IRmdX2
zLMu540c-tw7Q3m`;&|$hH|^`rF@8c)7wH~^EWO>L(O|@%3URDf@ZbF0cAzKu|EWHZ
zB#Xs>2lHE*GK#T58H|rCS-iM@tYup?iN@m^l<RL;zXlP1J5n*~SyO^$1Bx9L8nM0f
zL#P#S6yp$J2m4A%dray07|P{Lv`|+eRumy61u0=hP)NvWUn{zjRMpho({2Kx_X~Is
zm0!oP6e%V83heK{m06153dSc?q?&8Id5QByDwpx!pJrm&;GF*uJdg3;hd(tr4^dkX
za6b;RasbygD;YuNk=esl-2vbtRL&?(X76Uc%=qkwx<Xo8?6viFpJ4pD^`Za5nE&Hx
z{XfwT!irb>jG-dkYu4kn+zbe#SmC+%7<5hB(80KPBEKYS_Zpx!seTDcj}<HKS~LDy
zlkHcG<BIqoU<0|)_mpV4ldd`z=#`Cg(x~jV=x5yT&ZU)8IpkWU>5QLnmYw^H7QsFB
zwhwrMJAps{fBe7`!CI!neMrUjGS(x~%b05~8TX;-;k-=*9Pm>xJCc<>y^GNo`6Tf_
z-rSjmb!U?ybfVo}iav}cBUL&8tlGz_t4{h7uVw^TO^sCTaBDlF>0tiNpp}=ESp>7O
zbaDXw%UNZXxmZa<qY}6pN+vr{m)y})Pqth+)u$&);&-tMxtVFkB?z~S%r<5#5L<tv
zS1lLNd(Oe%)>HR=gZuXNHv-oo^{K6da%Urc(-ndgDV73T8o;fTUuE@KNw9Xd<YniJ
zJQ6_VgP+^vBukszP$YpB+S-(7e$m7r#@S8B)3zhSf4E0K-v~J{!dALk4sU&=9?Qi&
zva+nq&+I1JD>LXI71Rfm^b85T!Lg&Oq=$^li#xiV*rPN#1&j<EF#)x#J9)|Uy0g|O
z9dke&2Xg|7TdqjD^{%(wfAFBIUy!q4d!sA<Cu$x(@T$u}81gnxD=<A_9-bolL-gn8
zimt%F6D?QD$~qiAJa(=k%*zBgzw_Z$>P2D!Qp4}POs-B^6a-H2Otkx-p|4luF35An
z7p)v`w|elXy^I(gmWqx)fYczfi0=V*{wpItad87k3V?favkB<cn#$9s{uav2Cl~-m
z-d4so`(Z70I@-sf?O5PV)VVv>uRkb%ajfw;uDGC_mL-$*!s&JX4X&aE@1s@Cp6zA)
z<?H<+*BJl!4|4Fort<vTJf1o@{(TPrJ_l@}|GT!FI<2}hU|ng+s#2BHqr0T|^vSum
zHpS1pFYU6{WyAB=E|0dqc7EjQB5;%CQ4sIVw6#}VZ?a79408VCO7Nze67OB&4Q1Ka
zIUC2z9ay_)x`t%!(D>DR4;P&NuJEFS@26wIcZ-OUlum~Ti^#~4?-7@#`L3to2F4$;
z|2pm&|JRGM;=gVpasTzOJaOzFW0BWS|FN@lKFqKRVqERt3s0T#co@Gw3YB#g)BL(z
zMUWI9h0F>@d*8l&%gV;~#Kq;0YZ&pAl$v@OOwAl~>o%WtEuwiMU;^JTT32qGF|KM*
z396Jb5X92M+iF9|3h?n`?F)2n;ZK9pfo`wIq+dkdQP6PvrZS9)JtIK$c0fl}Ag}@k
z*4~sFa~8Eh#u<QSW+q44nYSFl=mqS@xxv3BRSR4%K*#c^l!dwnFz-9iRj&&e;!btP
zg455ZK8eZr%1qPcREutfLTI}!8j~c{Nv=NV>3Bj;0T>^796}Nd0wnn7gP4jT6+nz2
z8%0Y(g+h9`>E5mi2BwK?HqW11$25v>IRK))W?>FQ^uTpA1QCL~j4UntHTDSo_19m#
z5)zs~Mn9t%i=cl8Xhk*y6E9F2shzF<b#ssG*S}eL0@~IoUTD3oBVBy>smPQrUa=wq
z75Y9XP(2?=!B}6tsmQO#5XZA5ZQ3A?cdb0qiVkn1L1yMCMt+7)`EdB|xEb5aAq$zM
z83XQZcpJ?LGDmIugqbO%zjhyl@4e*a;gR>isP@se7rD8Cx{kpioT{@V=N<6qnVfkw
z&~YRjvJPt@IWqJ@$^7x-$29a}iKgN3lXTQ1hM0qP3}=~Gip79IC>pNo)$*THoG|df
zw0tyL##7<cS$ExbNr=^v#X-CM^k$e(_@TSo+UIXL3%bzJzXpzW$j)|x1YQPE!>)1(
z&YSg*-~SmS$-i*3_GRCXqg7pE=2jZwW}A4ntsUqTzyCp8UEKVAVe1Lr$phW9z2ALN
zgxD<Chh}rWEs0Inw-(Mc0wNNw*H;GEFA+9I8D-1a*qX~nray*qy$6?mm7I8q!ff#s
zHo2qqKi>g|4#6_cD4jEjs^6`CNg7r}30}_l(Pd*$*ncBDw+;)0#tbo$US+$vWZ~U6
zy1V!6p$W%~&u~LnhuO?r;T;n1GGKvm9|l$=b^9U)z?9**oyW}PB0w->UJd6lQ3b2Z
z@T<!!9m5w+G!|NPK=;i6xK>sEv(%cN^2t;%Qplr8AwY`0<5G6^r<mxQDLK#c?jk+c
zxz>wX;{m*O!7u>hsQ5ja2*1$|rvgRz!Eng|Sowrb#n=)(GpuG{!_6rItM=^P{W;Cn
zBI7fg0SfDsCH=fRNE%lqO1((fYPnvbMXN$ggP=b4^k=}WN5^?v_;`5sqna9&*Xa%f
zjFOd|JrbRcO)-uf*D-S8gc6!7WMOAIfVzup!We%Udt4g+9a*MO98I|`V3Wr%NLX<F
zov_vLsO0Ri4Z`azTVxx!N#+(^&7V(%ejc&3OoZXVx0DeDzwMyqE*OrM`MDp0z8I~J
zK5_l>=G|Aey#{S&5Bet#9w8{R+t51ZFOs_pb4K)vqao5NSB#En@VY&J|J*u-9WyZv
z(yxI+uMBk~6w-1YsJ??S<ve0Js~x0tGB?4SQSe}0vnB?H7+Uizer>_E7Z8dr)9fec
zOCN?(ZVA0OK%xSuhoj79ynFYKoJ{c>5GGQ`L><}F;2GaHt)(Cb&W>>2;a^u$TyVER
zaD%SXcoG_NDiI=2v0Ao5VT>egZ{KB<IOvHAOny9m^%N$(_kcxK1V**}nycHSq_okG
z#B|1z4?4fD#vao!e|l(1I0z*q=0wI6ptV}Tt`%Po^o-qrsE&b?La$i|0=#e>NUc8`
z$*8R1JKM<^24q}IENjuPu*>xCaY)0kj6eU6JPJBznYwl0@<L<zh*Z$EQ=vl_Ars)y
zWAwGvFaq3t$rn>}FeQqG4p<bn01@=bxM*MmEM<lufEMg#fho~kD+YK;1=$dDLuf}F
z#mqkj+d~lC+R=(uLW7ZY@!~I5u5g3G*g1LsK)b|{WSKE%j@7CLlowFDFd4?t*;;go
z$x~UQD}ly_X^h%xSixW79QYfKZqw>|%Jl_uLwBy}JHZKej2D=&vxIJcyD8w<V?ZIV
za<Cn|YN2q6xnHE5BN#B0A#B!0pxZ?u=-Tz`kvKwLfNBKszir`wt0UB(1?>=<vkL-O
zNtk_waSe?V)0aZaHyH5<27tV<69%#7DhA1;Ar8c@v8<J)n`OppRY#ZsqB(t%i*1BZ
zBv%N&Y5B6SZ{m%YmTQ4_(eY9ui=1lDy(GJLuMe6omsGlNfkV`rj~3ms<uf^0#C9!I
z^gQt+0jKhi-Hv;waSAl0B!7{1a!d}gXZ|d*aBwr|QwbCGh!D)y>b&a;#5?#t<<#J`
z_pYd@I92@(?gyMH%x^wF-ZLlmb`NCC?u*0h;jxujI+N20m)WoPkxwDmfeL69?)AC^
zM+PfUz;Zc`?Ylb*(y$C2+{1p`pS?FnKvu;|v;s<Ss@?Ks?F#U*Aeni_>DpY@Hv4M*
zX`X&5IZ_pQkhI!r)ut?W)W*i<PVlaCW(7B{0Os6}BdQpX@Rilfx#2YT4=5ALrhHa9
ze!`FbL}u)J00Y7pH`~^3i;tl-!;fPCveWo(<Ukr#4zwd0t8(~BM_k;WI`C^)0n-I`
zA?+}5^mU+IV+gyoLMwOxQSOCDR*oDe0$S}D+|6q?hZ%A^z;#j-Cb_g|Q83^j$HJ=F
z3Ka<<NJhxrbaD9vggOjLIgtgR2pD3Tdid*V=rABZ`D!udoN^_#&`uKqajqhJWgrvM
zJY=mTHT5ns@h-ktN|2qTTrp;g*x;Dc<f5qQXHlj0$UT+THePykE0ilf0RZvz^D`c}
zg`wi}_31if-ho6xwd(LL@giW<<UOPbQwVI5P|QNNI|V?Xf?_Y`k5q>d|H;^RR$12Y
z^s)8o4;IX@j>GyT7|RFGb+#m{D9lOQlU<SXem;HX44b+M`tz!(NQzfH$YYE1#sXd%
zSM36(>p2{L2BqXz#;)FpXESV~K`wQVty-Y#M+2$+q)M5QJ<o=@MW$U`c8}8Ng~4=S
zp;KIdnb>Qz5PJu`=Uf7*$o1}N(o2C>&SCJlmIuAb-rg#;?S6~5ufP9!=wL++R3{nf
zBgdW28ty>40kp)SU@}|M^U+T*eC~B61jlvFtZT5Jw)YG3@rHR&!JrX%2yATFdahU&
zb3?p?gKazW^7HdAvSee_f@QVeBt%%BZJcx9(4o(i!*3KB(SphWxl?KsE)zbkeIgYi
zbXs``CBnUGKfAjxxIzELuHd}#AD(??fwL6N>nL21h%(qjN92kTfmqqu*{9y!*F*Gf
zAb!T}pB@A^&~f3V?QCns#Wm3PQbR<s0;|jbIVkp}a@;$9QT!E&I1Hq1dAH?4x-<FA
za*=R8Qgk)YQ%FUFTw{k7GOtL>Hy8LzMsrypi(-QeyFulrPm0oTIw<P{Mn6+3eP=4j
zOwrA0_d-RX316zYV7}nQ20<>aOwDv~&EyxaR(#%P#rOiN`c5o_q0fqkCjr&NAN1Uv
z4OeztD42UBn}cl9>|`(mWbZI@a_REr=LBPsd7z2mOOy53j)n-G<`Vw9Tw{!t!xZ0W
z#y}P)yzQ&~v}^0$-0D+BxTZi>i`NjL9PWV`+EA=9%~-TrR7pPrk7fYWJ#Lq~2SJ)h
z_Cg{ucq;E=ds)8b1e8W*EIFppoo4<5ozGcb&`?*xm?M`QvcPiWQq0l9+qS7u9WpRR
zZqvs?b~?7U%dk9ZN)vB+vj!@*QOM*XF}#a?ZW;IPav*&t%)^$V&llZ_l<Z>n6~0!I
zng=K5fN5IK-<ae#9d`g!IRavK#J6t-B)^VZsumaj(hcA~D!mwi5Lx0A<pHyF=eKtn
zvTU<Bf)OqasAzI`S0!P3jA?1a=0NfYkCJq*K|hEkit>BiQ@WQrwj#h}NCVElKE1jU
zk|as?7-?mH=?^aI$CMbIg`S8;uafMm&!@0ynt<q07JVCT#!qBMe~7N$;aF4EiLMEy
ze`u0Klkv1%F*wXY5K5T!r=4G6Zi&n&nhIeU?23R6c2ICI7Dp)6nIt6(;e+wA1<u7i
zgWlJB&qGJm4s&G;nJGrJ#cM~jl>+-M-U}j6Q8;O5iahL%1tW=~^<Y<hEQJxQ64fA>
zI2j@ilK&sFT|pwF!tB`TMipOVS8En5Z((fq87IEJ&L(!`si;vBWe03&VK9IFnX%JH
z96DP*@FoohA0vHQ0k;pD7Cva@`63S;)$W4)eL+O*mfJ9KSXQBc26ohDbY+h{GfS=Q
zv>$jH8akSGzV44E*`3fqCqct~9&=e(L?P<5*Q*|xMJnvBZaLhJR1QByhBg`5%zk_o
zqfxC~Mth~v5B>-`ym5`m#qg@DP9h(whI7jG*5vX){}J34eJ&p?8UF!^dr|%?5r9%W
z`@JR2zRDWC!Y|cuSlF4r!fES^XX1ke0+XisCGfZ<3k`T-zu9^I%6Z5>lE+aW(i-3H
z?(T%a$2gcDBEWeglw8u$*KpXeqXf*L!#LqCSFig3a>)nbR!f{?yxMPWS(L%Ks~;4D
zNU-op3LQGL;W&ll$dy&^wlw&UVtnw?{bf6`s>y|A2$Xltynq>r%QkXx$s*}W2nY=g
zox>HgQzY8}@?B-on;>bWh%Eb-HV@QQ(3CHSC=ZL^QmhSpN;rmp9o?2~zo#=;i30;U
z+5rS8;d_Hje$iYxQl3XhsEI^ZO5r7pC}|$|ZkIDQlN_1%Ce=Vue6_f_EX3T(K;L`}
z4m-cJv<}_{qPY*<J+{3O_6OW4=AZi9EN@^CMw<LEzB&eL19JE!0o3*Ztm-yoQ>u{H
zumn-@8;)>QYisL88-)De!d>!x(*>z7n65uSx&zy!_R1kbe#H(HCmUgSsT4tnG91W@
zmQw~gF;KYTr_c#>K@Isp-(ly5NYXvb=E#sH_0kiP0gXRwE=B4pD|;pxr!2hzp{sLf
zLU@EgKl&Uvs#!6jIK1Gztb-a=Ad!?QNl+Y1I;AFHRYT399}dZ&pi>S(it&*5QHH>l
zM9(3td%Ro~=#WK@L1NYW+Oj`9JXZB7PH=H^pM%YqM+oWLep}kV{=)XwzdR>%e&QV0
zv93ImwLqX7qtNY8hI)DadLc^)P8%y2QvgXi27CaewrAJN9+cvi;2ML9dJu9&yomwv
zBaWR!2GxS;<_OlDyvo8>7TyJOkNe&0jrp8k@<e_acI_eL*3SqgGG&*Sys&*$S$s-@
ztKCNLABnF}uEodLfzSzs=5N8L?sdbLy9g#yo=6)2k%2>e38}Y7Ub6?3UeNCE2iG<N
z%f=%Fzi<FBQ@qaCm4l1%Je(#cV9RiYL<bQ&!ggO{W}Z7&=^8VeGM)yRha;0N0ZYjs
zn&eQim5(N|yxztw-tu_t!^;TRl^TJ9{sO87S5_~X{+ES9Q#exSq%kNi@QR2i;ggE7
z`lxLTcnewCFZaOYTp^8kuKHDfZr8%gM8Wz5QG;B^Z@Rf99k+N{D}n91C|IBZefX#l
z=&h+j=88h6H2Ux!3QnBQaZ2}-hHsc-!Lo+?&hy5YW>yjnvF!P_#fuk{0Kr*gB=AC-
zB`F)&|D&>`${mU~sTIBY?ya_ng3g)Eg=Xt(O;T(z)DSg-^{$UB=9W$uc3GLkmoHyP
zv-+AB@{X+}rjtuY%9ESRc@Npv>KA%K%^O1GrJcyv@<Mc2-9&5(9k``i9@~?9`Q6hv
zX^nxWXc&lRHzaK<5HCE8e{{$EPJOBthD~pdxl>9W37Nl5eVnZ8czAL!fLqg#iJI3v
z#*K}QS62refk?<{l<?6%9hTqr>6`WQihzxo0;veXS~dchoGv!6m*q&?b9D2=5MW5u
zi|jv9uL!)qYsX`{l8aA7<XJ^;fZFtf!=~dxw}H=)3Ho8&m<L(4xA;DJ&I=ynGcSS>
zX>LMOY}2Mgga-z|jkE8G%L-mU#24T(wV-jA^<lSr$-R6%9JK`zW(R;N_;cL}0Z^_M
zq0IMw@j69pj!@B7Q(G){wiTK-c3FM7`M_ZB=S3=BMKW%LWC_jU>#VC+M}tDt^s+b=
zHP;AUBOYiBaZ6n8j>KS@(heQ4$4PoTI%jygJrMU+I@t^mt)X%lO0^iy9j$w-A&_W@
zSqBn(#JxNsPDp*ofjT>I8KH?eHb}fxX5&zl5M}0YIDKYj>plrX#RPMQ(S1mCD7it9
zKOo_7DG#~jEva3-RErv=B3@;Ak$pxIWOq)Iog1rg!+gn(1c+WGc-;n2dbVSFYjE)z
z#0Y3vD?t9yBLu2N?6v`|wkHve=0{~Xfsg!#nNz00Zz&ntpAx)|dJ|{RUa#A(uF5#E
zqgttkQ#ZCg=~{$^v=!9}%FAyc>V5*iq&MHx8iI!35h9f!DFik0Xi&pgFD;hEVKhXr
z_G!UMaNo1MTJ5KC@9KJO`vu&NVn90ZzX}2lq(YVh19_w~IsghRx!K~tz7Kn-?^Yh~
zERqj7NimneWyfe3vWI+PG1yTBnw{mbfoj!D=AoD-5lm>{ul?SCzZ|u9|M%C;;%|1z
zd7N^+@%PTS5}B7ML5xyy$um`A7i4;JL>4yt<~2hlr!ZktV_@}+R=@5hpQr&<+w^Zw
zH^E#>muyeS*PKjNAb<NA5(3<ED$p|noQD)ssG~ArKS<0)vzBQ$Sk;~x7_U(idJy@#
z`3g=AkD%)fX-j}h!yix^DQ7Z7;Yp6P7F^e|c3|c&;5ndzlU)a6d?@&KrQb_E0mF#!
zt>+*PJqih`!QFW;YE2G5-15P$4l;etIciH#K)!%H3RyJB6=UBIfP6k||FzL};PJMM
zxB&5&f+<JWFZvN*cov#+II+t5kQI1oRKFh1)XkA%dh<@4M+$FD-Qn$bOMX7S@b|qa
zsjK2nUL6>NvfVrb`{sP;>GxxfF%qROLR%?Fc2-zWa-kW)(CH^cPr`BRIa%S*^u+tc
zqvha_M>iu?X4iD@o8@^hZqBsXxmWSDyumTeOvLi3S<p0r!cU_I<0xe?24z+61j`^f
z7deE$qouj`EstKIA4h_v(T*ZEK6B}OdnhKWO2bP2y_`H+Dc|v8RnoD<xeb?g@3XDZ
zmlpR|z^><v?7-U;Ik!jr4VO_XyA!G;Q<6#;O?ERYur=Y&7r6-Zr0fNBA%uGq9Kf1W
zt;DTA5Hr@Y1-FuA%)J&8ec1c;-cT?+ah*evD3K|(ILig%R^fmXT$1*BIod4-WK@gp
z!0PsQRwzc^EXaeJw>K($fv4C9zLXHm^}$!O=UL$Kk@jU&9}0Fc1m%rVQZ-UwFv#R6
zdn^sYYkY_lU$Y&P1r{<X?R=u5B|zcT2cW@L336W^oKHVWtc3#lL$nn>5C^t?v=124
zgNXBwc;8g%FB8%>2yh%Z2a$PmGOxS`J^c<A6jpRU(5~<X9LuX)jTqU}wbFUXhBucw
zyN6KrmpwPrixg(Pze;vEQ@k}bd`pftByOS77d?P-$Ix-KV_W<Fao8UvV2_AmrqzD@
zBodX&6`tlsp!%03=fE@(z`qZ&%Q=!!M}46DOx3go<oV<d9^8!GSJvtb>C;dJ|IJA2
zw=9(E-kCn>fQvI9sxk+V1ALYBEzB6uMCij=>y4CrmgFkELle3;Ze8j}5mli(hP3nS
zeTqUXg00psqeDDe-zB_?i;GJ*t_yuu4J+H@rRo)S*Q8ONGrM-77QS8HC12ObIr;Ot
zsi}<O^fwjy@DEctF^(q8wPXkMduE>MQ=0c*^keUp@`>%OiLpCZTU>-BJx;{(@h_O<
z5Dpd;+Cid}eTYxKST1uUSu^;4L^K5zq+m&$1JcYKbsJ~e4888@*Zx4hf$qluL@mOw
zDBdjC@9`O!3Pye|GA~>x9A5(@h@78?t)kZGZe;mzi9_#ZbjtI&a%sz((lOdYxC!+2
zT1u0pfTE0Gxak!?i|4*Shbl$cw%j1V|LjNa$H<lDMCq^!Dh5XL29BA1oUup>K#kT~
z_f(8T-vFlmgn^y~{(17PZ6zmiS{a}QN0C?mVa+>Dts=w+F})ZNxC$B(v29-va+Mg^
z>0vPB?mv7OfdYdB)-)j$i#`Cztf8<?&_M4^6}j4#)n|QZ-jX_fG`T}ZUOx~5BOnAQ
z#Us>W15kJdABP6uR26tO?p>B`NYqdzIYEQMa|_VZ6M&)Q3SEM`xbNll^!@t-urm*b
z_GlaOz?fHqn$%x0JwJo#LQJFIQhh2!=%hp?{vDIv46R0VDSsU?id}WDN@I0*jJy*+
zjbjz^!wF?EI*}L|QE#mV{Tix|ie#7r-dY5vP+s8fr&=VgeLG#gY+m#W$ByIvdy2M=
z|Ngy!`)`x{U%tT968Yb)ir3=YXjwzE6tmlv;<X!d1EFyU*oC0oj_PvL0rt|2D@7Zf
z`wE9geBdes_jI1??;b;yZI&cvv0=@?uNuXRzd<I9K*$ug6|EL$XC(Uf?mI)Zk}T74
z^p&>*myoC*!3SZ0o<A`S(y=Aqm5~bWcsq3P&nnp-snI&fALNGQ@9e+!wQb%$-)xTd
zR~@)aeU-GX-*&UzI1DffAr*u(Is(V#P2_Ue;S{l60i+wjS!_QNC5s^<N5x|A!t%x%
z6wSfdRtG#FIQwDk{-vwX_&~V64{QK<?dkDa&YTJuc}e$u6h$l`H!&pY8E<Dh_n{zU
z+PSm2rA1SB9=wU&Id{aMhN)~H;5icDXX+4I!l!qLX+w7E+k~zn{jo0l!#_Ru!C;#l
zA#p(}-Y{(GMaK2$T%d1v4w6u$w2rA=akP+kA?bpc+N&pietsveyYH?r+YzVt@lAty
zDk&_>dC<v-^bDE(tQ;gh&?4H1jv#`RhSN~Fh&4(qj}V+R?I`+%tkRe+q!USo*Md+v
zwPut*;ZBpI_0!yEGfg)IJ{O_$GWkg0IbaNSO?UTi!JsqKzS)n~lFB_Mh`HrJ6FqPz
zcy2&iVN~vYfk>Q=j<Ff23}2w|;+8|FwweDp6Yn~Dt(!{_xa5kV3XO57@Kbrh$I~h_
zJJHHlJCCg4Jx4GY5FWEMroS;*+PZKgaXjB&QVj`U{<fyKsEi}=wfTX@Oi3u?k)tP3
zgfyZbhZW`LyIfcN4D9O=eS?CfBJLz3ua7{>X_q_ic2|)pm3NBk1_mdJ=RnuNm5cFQ
zUs#^oS;gdRv6^0*k1gQn=w`?^L{#)LtRB#EeJ9qqa=LRU+Pms%p>ju&79~OZ_Hdw#
z4)iZ|N!b}zNqm5V*!YzR`6-2OIvqkFI)4VOQw5B}wI<UpOlZ8aOG4A1TaKjK>5*aj
ztPPV89wCq-o*CtjvmzX`03IPwnVT84nrZt3;v0GTASDb(*5?sIgH?OIfZD~vDx6=A
zB!|n-vu-Q7sG#7!mG1ynNpwc6ZpLxqf1q*+!bwBQ?*N#}Vb`)IP7D^lPtZ0|N8kMD
z>C+_n`h>2DF+<5ncf2aHwtE3A8?Y<)R)bGFk-pG`;qlYP&^)+aItViQty(W=nAGr3
zBBA$;Jl~Uo{dUDOSw>esc3bv0T>KM88CX}Yj09pwg7xG?3hyWR(zC!-kZHVq_bxgE
z{kg!ci-WL}Fk+)>V2?*yLX?+0p_hk>ii!wMCC|je{t_x!cUjqL6_cF+-pVlF@%Z`k
z?R)p_%l&eJ7swarCH^WCs6&pwnuEukSk^PR;K~)7jeF6gd5S%!K}}G@THy6ScT(SH
z9$Z_0#HoWN=Qd|Kv^uO%Op}Khbq`5N8XQ(tV0}t3<5gRlORB}liIs8SQa1n}N{ui$
z3c8@C)A<oyJ5g2O(K#o5Q0oX9pvd+<BXbCM8f)YvIb3+T5~@vZpi~<{@|@XW;lY<(
zBfa9vRWcf?f%$t0ljY(=6Cay#NW3gwX5(3XeIpE2yud)B3e0N|Z4P6NltFbO1W1fr
zF$fz`>UfFGDz9uW9>uB)#~|YIoMTID)ecd&0GJPpffmyR1q`jsR792P%C+IcDsl5n
zR9oB1`jF8rdr^m{<;F$6I9N60eV$Z@MhdfzFjDjbn}M%y>K=eqSY!aoVsxR-5cJS)
zI!k(^f}eVm*htk=xWr>q3MRe+zK{TkV54#J-FpAC4(ao5y=sW`shIROeb{SqT_pQs
z;EsBJPEJnUnB*+A00&d#O<5-L=SFw09q|&`I}|Hg{qe&G5#mF{=Oc35f1Zy_l1(F}
zH5kKN`lXj(v1|d!ZMK)4csFMeU(36a@cDQsLUA$Z`?ZYL5NL6$)=|&Z78I~(E0lYU
zr4ss8D3H_D;V*Mg`N+xX1CAq+T`;&4HL2MiJCX;)`(_kRm$%~QU}Rw}P+gx^|DRV0
zzDa+?D{9D%5ryTJ_z|<5RH=z?_b#{HuIsgr?ZoW;`aG}edS6lU9L7dsjt<5?I*V1(
zf-R9ak$ftPIkxT=xHueg<eR4dO0`C$Of8^QfW%<J+h;iU&1aks{yq))1qEVYZte3R
z9SCM^9ykIhqXaszdBZ-}KeN4^xopsLv9rK3wHvs05wdKKMhWo7%}T}^*m}>$=Nv*q
zvx+^|-ln*Yof~cP?6mBg<*$@;I;>mdkjK%rGz}OSpIEBz&`&}uKc7A4K?5WkH*U;s
zAHaUmHn7(>p;<<C18EQivf<c-m%8Bt&B?t#9V!yK<0{%3Zd?StH=3v3+@$LbeKsLo
zzX{f`p%Pt(ZIY7Jk+QmV!ErNV@mk8YE!@fnez`Twv6LLY+c5C7-mX{djlhS@%uH|e
zLo+h{a(rPhG;;cpj68ZT!{(6%m;hd;Ay$!-iD$3gs*JWlaBx0U529M@xNH`3${63D
zL|$KDS6e?9E}Ulu5<m)j@Ir=Zdp-H*%>3*_W>L!}EW-x4Lmy>+fJ}R|6;AoHu5%Av
z+190mmPvw5&nb(qnR6ShU%KHwfmh}|@FN3qBj0Dwp0xmf+y;0YUTwZ`9qS{OoE*1Y
z*@G&?jXuoyc%vtPuYU;XMkTGQpUm=WW^I0>RaX5~KzB*n#5b19-?XxA0vqx#p^Rlz
z{Dz`<G#IR@BLSb`TsEsGdS(t)&E^^dBwYOdr<({qt+l!Z#d9CN+(T3t_FZ{Ca#7@}
z@Op%~suMX1!zv@>=~H&^*Q-%ws#v1|xi`Drr@<CD+0EMYx0zX4w*I`mdo|JmpLDzg
zZge7j#3W<fI^kT&MmVdV#D+n8s0IDvvmh(9K%ewa90ZP+2cUlNHev&o0cKz3Y!neG
zg5fhB&SB69G{Cf@gE3uJOT#!cc668A$oT-A^uB0~WzjdH;vC1ddKZm@<s&40#DIWt
z=_o{*Fq9>g<*@N*!jai+37@qBZhXT2V$%@w&XI)$BlRd^g#|Se-}_0~7C)~wp|Ty?
z9uMqC_tm|_s?eV<AuT-~RX*<Dur<4B^lmTC8^`daOa;q8I$)ZnqIhKpb(Fy78{R`%
zq39fyEvwtfZG+XX{q2DZ@=k&#B7Xok8!skby~EIvy?h2IS588@3#g4xUdN+_HJtt@
zd*bTL3f*4K$v<<;XPW+sM(Ny`Dq7DREr3mk@yK`lqZr5V3_Gl+z{B3#1`EqQj|ZB1
z#)>v>+7$KaG!^-D%&H_K!<aSkhh>X(dHAu`C;|3DOOUN1$G}6=IjvDBAOOoL%^!no
znWA?$^3|WOe8To^C?U~d2uN_DT0N$E<rDqUC{1d6j<#Mt`cce+?dGYy16@E<=GaR*
z)Gj<&Z0c|qZFx=5TTdS?DEIDT9r9@?lvy5Dc+@lr#&QwDqM`}!<KIYaw3}F@f*}<P
zv<;`XqX)DVz-?Z6%(l7pv0tH_z#1zjyGywacf4HgDL!;o`Wly+v8|uBXN@nK!}R{P
zTp1J7nHZcpaC(U00t$C-__!qc7?`vZ{@(wwbltjj)7+X-lY+2nc{vt593y;ESs#Yw
zMxNxO@2HG?c~f^1>@xSE=uHmTfx;gAR)IKUS=qlp-!znl_Ed)MSD2e73Qlygy!obu
zj?Xdha+&P~0bx_)WWXLnxw!WM`IlM4SW{8Wz#Fv^o&-{cg`Pw_HU_sGHG8qgRgK31
zaVi5tyS3>U#GR2>%6V+T8J@85S?)dHsYJK)pe9ZvMEbLmb??xjap^b!nI)yi?(EE<
zeM7_nM&~08w3V!6jXS^`wDM4A9EIlsv*1dgmt>S_H-TYKb}gqr2bGT0^=s*FU$p?E
z-dbgS0KSK#JHO71KjPIq`GF%C0RKUfcOkk|$;cVoL;W>72+F{Xv#G18t9!%dvqNRf
zmQrmHrsO>cwFoQ|bVJ)oJ+IDQbsE#eb=Va>`UuLj0a??A;A|w2%&vou7%$kDFZ;9|
zUH+p#TpQ3gNbp(+o2UoS_cm1d){eK-2E)|>nt0n3FH>0g3J>Do>OkRwr1L%cx_|7e
z_Xw#rc^Un_96SJ%{Qge!)I@NmG7`1?z<kuq%Nn@K%*Ou>$W2m!ux@(V`(EHkZD1#<
znT^#?jt3^CVR~wM9*9CYngyeN{5M4JwF0BewDRY>(-pd7Bt}2J3r|WYJ|?J%`=$}@
zze)da0NTCerREWWCBmv9rao%0Mt3Aym|O@2;VRdKqT$cWZTHTMJN1rzX$2zQd#)B4
zQOh{T8a#ib_iP&F0GJ=4$Ya;YF2UY25Cm90a6DE`6L0;Q7pxYw0Pep|B`e^yytC(V
zoDgi)5#*60gFJ@qHFvssfflt{2ARKrb*qsVaO2y~<nO7qB%OQrjCAY-7<BwP7i1*r
zld~SAFLF(%)ZN~Sy#=}w@m`p0Rco`pMR9d}M>}3zlZv-3!8b<36qVwQ!M#Iv`|4(M
ztkZZT-anTd<o9+I+SPIdV_zTi0IvqdVEbd+1P`E3*DGE4;RBzUPQdhWN3Y~AfSvq;
zf`>hnv43?SD1)T;4$?5<TuV5pSOE<qg2D3T;YjKUFS5h(Yc~UDPOcbu;mxQW9HU`8
zx+CY;=((Z;6@m|J15-m0=vP6NW1&D6@Trb+Z<eL+Wi-krc?uD1<BL{eZ5}#uBt_;J
z>`}T@blbqzcy^}O9yO3h2(A)_GLD{aK((K@xB71n7c2Qpt<X5ou!9o*#vqyA;Uc>G
zwA*idPkU!vcj<nb|LN1@>VU#SOZ@ph?NMiKwy$Q_{mQbhzBkQ0mKXesM6bNBEQzg(
zvjS4;*}1z0&xijM=tV22!D<s5zw)PJN2IysXe?PH#eymthC_!N^fYuQ2ky5<S9nC7
zK67r?$oQu7_4)Fh2Se}e;kE)--o8+D^X4eoQ{Y9y7Aop`$@j!Hwm0SbXX$YcG|6Y&
z4?%nE7+FXXYKJdtgyB&Mo9+gU>MrxtC@b_P##UQjo?gk5H!|5|+x#l_ov3HCNDq#o
zGIIo~S1v-6`c6tPP8-0HcfbP^l<Q*4dX^OqW!CSAV0xWOCSz+2dQF_%VekRlTl8%B
zzW00EU4CxGw*7&vuWSFI6&!lg*%U5MU#y2fa71L@8mS7+!BqmP9(6X2^NogKHQgIt
zCwlGgzaxPEmG$8ico32PwyJyIpOdZJXC7>q&wb$N3ltF<>Xx+*@9Tfm@klRqJ>$S5
z_sDiM<HqgVDP9h#ZRMO&OMl$GdlxMprV2)7`>E!_yZL3y+=&W6<t^8D%!Br~+uYxt
z-(kH>Yony(%X#Z}ttC&>Nb`Vu13&Fp%;jv3mnMS~kMEdPRa!2v`qnWpx7!E1(V5mv
z5f7BG%6<4(3=R_RHJYzW>L({I8V#fE#b@PkbokPa!Y12Gj%M$6v1VCF#=;hAxt_h<
zPoo2_y$u*BC`RtUEr;Z51k=>fC`{V%kj+!IVUAR09SV<7Tl?l$M@HUSY)(mw9M0QN
zI8;-8qdCn#ZHwuuUbO!r(G^RdqsAPd*4cVEn}w;Hfw_EA#?E;0uoH<+oJj}y%KrII
zBGkq`4~Fy4PUW@cuURk(w`HgFo((Js=t3D)mdpLce6(ia98{fU3&oHUf4nGp@g(_*
z34-wY!g3n>2~hbw6mH*oX<WHku9(_9<rv0ao{`unexsPk`kTXbZ0&bQqdwG>t3zV6
zglAQ7aB%cVA(V;!ra!OszW3$)bdcY)7+OPrAPu4Ulv~vGM0tq!-12gTnDF8s^PRG^
z>qbL_d$YfJg~0cBgUel3K`25=q*Jp{|8Sf7qQc<?%t%9Vyv>s<hE|bw1c&@v(eOH?
z%9~9&nSQv^>I*9vo2~?~%sypnuqEL2vw}|0jN9vFCE;&}|1$&KeqPg>%(qA@+wjIx
z&<1W7J69Yc+hMcOGi^Cfk;Tz0l(}pgWk^;V&E=1RX63Ljjss_Wa?IyE-wHEe1Re^y
zm+c_iF#5zF!H1mG%lfccN1Ahsdj}l@K3H(L5@#xN01Yo`4+Wm}tuS9`dp?$5KK_Uc
zaGq6CJ2?3|Keor(s_C+CR1|qIB=bEQ*|yOSgTfDuxxRPqEF!~o4}~sHFldD1$1p*X
zcCZ_q8};fMm`@bXY1>dJsg$-_Z4J|f6;w_sCc){v{<HuvJ?6I4TCET9bdAb7p});4
z5&1%79|?7(&-FO5W1)2a9jM_m+hg6gqj8uNQ}q%;TCX13zWNj3%{|Kz7F#p5>2@2(
zfGs@*V8pHo4fAIsfc?4Ua5-gdZS5O+n+_p__e1ARUgDMRM-U`m<PVd_ysdWqTcB7?
z^48=Zh=la`5fgpaBIHJ=xtseuQ-=Bu1zbEy%7yhRjp@+O2urdDh+(^Rb~LQ8U{;oh
z9Art-cLCkOs~&&MpPw|MhyM3nwaum#al7DgF{x(kf7vB9ZAebnva7CEQ^xX};-U?F
z4_hxe;xcS@&6aig8QX}#CKu}T%@Eb__pALyKtrOMJtmmuGPMd25ci0<B9I{3>iDR2
znVskH0|#6%1;4A^7WH`&>Q@1|21|+iux5e;g#l{$H_S^NJ<#e$vr`tt=(xX)E~ILc
z$=3_Z??LFdsh{CF<gFNy4ART#(n)lZmf3D?z#BfV^Wh<wEvSVJAoH%e8=WsBXd=9T
zMt78eA@_G+KD~CQ*6P}B+~1i#YGNeb6`|xrUg|W-(LM|wtR)I#Lm-w!<wd_MO75wv
z2;iy`sI3Fq+Cn~HkXwjM#PMct<&`s3atv{L0GYdbAz08csO)qhJ(Lo2LM)qi!-hR*
zJCy?Vj6pu-uW|%^l74j9<s@ngkz7Zk$T0#EHJr^-`0?XsP(HW9njA(w`!O8Gn;>H2
zP`U8ndL*F;p$Q=+_oA&js#HKP@f}!>6pFHbBz_8{2m9%iP?tmTG9=##UT~t}%sg<j
z4Ada9J@fGN_6|eywH;Y!Ld<K>R7wHSeuf1k>Y}iU5m%8i^)Fa-LVcXoZXzS#CkcG-
zPuHy}ZDVpC%PlWrWn%hS3mELAPPmVsUlh^7fr%sK16Gbx`93U(wMxU3-o1!eJXnIO
zLbiV|O53*T6tX`H!M;)nQzXAKYIvzw;~Xqgu_vr=t&#1wPmiJV5I^EMh0C3NwPwkZ
zAWXJv>P1i^9Yn2&qfc(alNPMor_}eZKmQYQ>eugAF#m;D6<}rb6Qy%3GQH7P(ZquU
z<o@Bod$I+@--RL=X*P!ajgt*GimIRl{Xyo{GZLlJ1N9j{lVWNrJ&BB;e9tJwsVc)B
zMyrf$;f6QX_HF_3PX{UAaGM)u=1@`4t>6{`SrE(#hEy0hHY>W%_ci4?DjuceE4mr!
z=C}Afp#+(C0?J{Ju%+7o>pW<xUAXPCOXUKGVy%F85u3niqHw!qi!yXqp2?^Iuq=(%
z+J=zMkN1uK^$Vy7CYd)M+$$?f^wY8zv$#zse>N^On(SF+{%$2s>6DQpX1B>~Mm-0S
zFp5*C6NPqQ)f^_mC>s0-uo*{-vy5x|EO=R$0zAT4)XUAT^CpxrkLUnd03u`E+%$w@
zpbg$Rd{&n*qNRupSvc~N(e02jDh|YBHbg)k_Hevr3v$3#JYi?uU0&NNH3N{&%!!I7
z_z`r_e!j;9Aijd|@vOQ^#WnRuj$oOfhg*cqN+rUMAI}2hK|@H99oP9z=Inyn&*MIt
z2oG89;Jty(WrQLu%S#JQ2enb_M~wBXg=*+1s#z}oH6<0`XNd>BrN@r)TNy;W$7hJ9
zj0e#=8n}Poz5ta@0*JYOVU#jiU(m^(I93xJH`Ip>nCt~+ao4d?cxYg<#%~!kQvmIA
ze@9xS3=oqI3k=IO3{VLfYrz{W93gDB<RMRDW}+B-1YArLwBi)>5rToCBpFv81*#rJ
zOlJF(f(QFRe5CO?DECH!DF+INpx87uptwMu+c6kcyl0_w2w)@u6rHG4RnZI{z<eh^
z_~HoFmOeGf9X|77F<poJzREdS4Hy!JrPQe70PQAA9Hau6CV@&Id{L=<wS;+#Ax;TR
z3<aV~P8N9r5K?+Ql3P7$`xN9t@&%)sm8jAPsx%;ostO=6R(@Lu*d{c=V28w;C7K7z
z5I|1}Qur;PMG{4neB5Y|7W^wrrC~-Tpcp%904!NzAD{8szUhOb;u4StW5Lo0!%D#2
z6^!h_zv+;X7}@Ir&9zIaz3fUyhiP+dK9+be3fEcU4})~<zCQtv@D2_`Y1&^1CE!<=
z0Tv7cvYWFa{UqR^GKl~S&L#p|x#dvqyu=DpJloUigU!tqj^-VCYx<-tWU^j%s(1D{
zO`R5O098LOrr!_Rz&m3bW}V<f0}Ur^3F0iOC*j!aIKeJxRv5aO`QmKBE^bf4JO>3_
zkAA=>;gH)qvjSLM^=Fv5%N48XI;aR;?__fBjTxITroq~opRkln1TQHh&TbfEU$Mea
zN9hHSJ}e|G&SFsY;_lZV;X0Gv6vGAc&Ci-b20z_*Uc$!Vmcx`mIk;HLEgdtaN=DqU
zBwWDb&bktnFr3GK#sw21YFeon)pgIZZnBi1c7bLg6vW>o<fehP<Pn07e&GGF`H28F
zK`@gq{yvl{wXk*?Q}gn`0NmepQw}{k7cdc3JyMN~oi)>i$#Xvt-w}j4F8}nmTco9>
z-!JwT6cs%NrP@d+y$7My4}Z@C664|*fmqV215@r97Beb|=M^AV)N2etzv^H%2L+8Y
zD>C{so?Rr{!VGvsovD*y@)O{=N^`xfX~^>r0#lW0?;_7fJjh(*qe4uBCta1mPf4`y
z&?JvQP+1mQ9~g$0+=yjX2LLISu~qZD@QrYc?7<r&<5Z!HvECEcXEG(L43_B8yKUZy
z>IHYZ8=mKv5rz{{+Ml?tWQZMsfm0=)BLS)?897q5V@_P3#?(5KK{j}8`vf2iQ6Uli
z7{sZHFHAdc$Rf&uataNfGO$L8fq|t!1rSnv>Z+2(9w@(wHQW~gjQl>8sQvG7Ki&oX
z`QJ6`r+)VTMV*78$?B^!meBp}n$%6%pvV||eL9`he@nmUUnhL&ALRBb$j0nGapnI2
DH5tcN

literal 46360
zcmeFZcTiR7wmph%YPA(bF#{?fA_5HxNH(A(k(`r~gXEmmZWJU*&R_tMELpM%kSriM
z2?$8eY%*^w`rLZwR=xV&TlMNyy*~~`H(S_Yt@X`s&N0Rub9qYL72d!1<X$o|vi+hW
zLNa7zJMGEHwrl;q3%}_Mc{z<AyR^iGh42$!%Qp+%@MDj;h_V$K8P!wbzioblGrDAC
zXUIf_uFKg+jdwdm)eLTK&J5Q@w5xlK2Pg<tG8&05ONks|7LAwuyNV?1azS)=^bwa=
z&z)r&m)}}_eJQ8pFPkgpk#f-Te1iH@b*HfKG1AlC8vWKfC)>NmKGdX66H~69sWC^*
z^s$I=lG<E^aqrY|ZSO-{2ZhfbZL8w_*JHA41|rkH{qv7&LFYd1``7QKpY34%*Fzyj
zilTo#JQ)9<C;#Va{QoO9?mD(=IHjIGAnYluqN3vPRKfJgA1C^)?%+2LPq8l_9)5en
zVK))LLFFUXN$=jh`(mrvxxu2w(%M_FiC<rRLb(;+=S+J`Ttb+<o0^)cdHL`{*<DQb
z+lbfgNv13>4?BE%4;k5qM6Z9Ijo<&b-Ox|5pLnm4+8F-AqMLX~c2|s!c=^GD+TKT*
zRpPjMon_~SYGv=<^<^oVzOgXbt-48a+e{D(zPOx{W!`tAczv-mLeQ-wGc(hAGJkk9
zDLJh%+O8+@`}gmMJD&cvo7`x!E5GXN*Kf0f)j5s}MpWFELZYIg1@n#KHVe&)V=H6n
zinS3Ok_Kwj<;R(oGlgPZ7Q^*wBjVKyZ4>cx^xMn7OiR~o)g4FTpLu%jDfHRC`+&jv
z%7RLvZK^`LMrw|6tI_J>L`ShxUS?L7{L33V=@}Tt*5>LJjf|4gN>+^2ZQFH|lrpsb
zc61yqN2V};Rd#&R9H%;+*IMG@gwOmkyf{B^J^1tIuMXq%=EpntIk))v`L#xITUjp;
zhC1a<bQdZb8XBr(Xu0baa&=n=3T!NCmz9+*`%Dop!1FE*FxBRobXt?T?Tm+N!sA1N
z<4n5?M%<5Sd~4T_rIK0}X~XgHSpRxaQ*)=9Jyg>*zhq^UDcZKf@Fbu8yBMcQ?%2UK
ziJ4xfDgJJU;pnqvSFL|Z@y~oYEG8l{o$ogKJ#n--Ih3w)!nS(Qa`}>eR{N1tr^c*$
zBRGuZN?q3vQy}ksNPK8aWW{Ul?(QLeMMZo$M$J|1`Anh?4h}}0xv8!j%le`f0fqZd
zan46}1;;VUzIm%%;cHpg?OM$peYbjPjji0^`&;QG*@U|vD%C|J1Y8PEay~e2zHFYV
zns;|N#wo4$XBr)|Mv>BRtXs(eYCikN=a@{tcpNhN_TtgvWcQd=Y3IbE0INb}_dqq(
zrpM2fz{dWah%d_LKk(yWJdSC7E_U;Kl6>-S7kl%q^r^0zUt?Cym9w?Ay=HTiRU_rZ
zWxc--zlkrLDp9@p<PXL`ZQ-hyH=llgb!*??(9kY9SFCiw+HCbgtEOA9g-*#tTgFXX
zOov3#<-l9nWmw&Vm$vf$yZO)Lf;)0%Z8kU7lQc_9HV_amI`TI+R{z?cDu)wnRy8Z8
zoEf;?ag&@s?&i}2JLQM-dR?1Vr%GuQ3Y(J^Tfh3#E;LCB8rH|~U%YT(T0^1l+sm6O
z*#`b9xerFNCJSuF=CQQy%^Qi-#I^Ul@%R{GD&DBOAcylo+nLa6;%t3Ran)r$P*4b=
zW8~yiXiAV&)X<1gV+nO#Ur>}!lqu7X#+AKoeQVU8R``3Nomr{wZSUhRYa_Xw4!dL3
zR7zco%e_xneKM`f(XKd9JXgmXvT9Z|b9;SxIMy;>&5|ctCC@ZEtzb0iT}O)a>nDv(
zO~j=c@nnekCb%&}9__j^lG!<djpJXdCp%abY=eMiqNTk_#bZ6~5Ox3a6L-pr#FJYm
zP%hDe6L`UC(y>%j89~>auBmC<lH%WO%9>kj*z`svOV4MJ?bs!y7ffmIU$y0m2A)sU
zua6O^W>tGHWzw0uke`mrDq!}e1)ItR8-YG|wUA9Q_@aEaQS-&-RMl4Y#jY+j{<)gV
zj*IR3%+*4lyjV-#UjJ*?a#!nXVRDJ6tI}+2Y-PEH-KOd;3(XN+W-)^nwA^Ky_}~am
zlToYQ$?ig%@)P<?T_l_%BRzfDa7lXUhKhQDwWpHzEqCHHu4QZO#1FEylY*|!o`_bP
ziH_#XyIFd*Vsv)&%Uwemy44}yew+WOsb$-dZRi?U7$BFSRmLtkDb^TiR$`cMwzf1w
zA5a*elhr<t+!U&-R2JnlnIE#cu{1zl?UIp^adu*#;@cVQGa;s}P@AqclAqunj?z}f
z4w;<EFILGh3bFaEm{HYm@7}%H_doB7U6qlMu^tRoyd4*9?!c1&qk88twI6ozhJWqa
zzvin;w=6d4w8JTN@bK9VV!QmV=stS@=Rn4g9v4SPfByVR*D&kHwiM;dv7PIwUDk!&
zA9w2CZ%tDVS#_NM)n_IDz~QR-kB5ULwi6w}Dy1%~ixKR)VqYh4AyZXy#7>+zp^~ZN
z$!Xg4R&aAo_UQqtfa<}E3UyUTST{@sl^TxzTl|Kcykc-KzrN30X_9w+zRAVZPmZEB
z7HM2%l6R_TuBvGL8Z!77%U)&uXnCXcYgJ4AwuK9eoo2?<KR(`1j}UO2H&9yGe#nHl
zKv4!;wd7u+R@t+V)d!qo$u30J>~cLvQRH^)Wr~n(VRu2_lT-7}ikiXKh5V0gy((yT
z+7_S_XQ&?h<FQ4DVS@5xR>6>o!&|w;fWeYzUb_$#!Jz8>MJuDp(!rN}a*29XwSA8U
zu2>W<w9F-v%f|9BdwJ9cgA~*P)ydV#!YQ%TQuDq~FFLFWyB+5ngqcZx)ch)uTxJUQ
z@4xIa&GTksFaJ7Xy{q|doRBI}SO?v=pyXXf3k!=R#q^kZ7hc=(Z?A57-8B~~k$)?7
zePOJXlyBCYB;S!|7OUGW5y?rUit9Of*r<bpgUel9dNs%S7u&RxRP)j<%Dt6(FqkVJ
zZN4KwM=*RVDTezKN$~@tKCWEID)Px2Dqh>AR81wNw+JMb#{0qMt?G8llTJVVg`G{g
z$_;*ecyv84$8FQK+6B+d?#k1t40zEQK!<hCH>(a|j&Bic__w&cI@skrSNqJzXCa@J
ziAmgMtfhG$Ytai_KS#5*A!{BYqez7PdEI98dqbe4fWwXc?AeXgsbtAmfsTBu1k&tw
z)!YXS`?<PagkRR*)g4l5yrHL~v()9fG=0C@w$tQ#9=)iir)S72GSq7%@ulLC9#3B+
z!80oVIx_+#tSk-qF_Q|_Sor6^-9+9G(bCqYJbak8usf|I$9T+_ck&yywWLUtezZ-<
z%KV6S{^n~x0T~1?b|Aj3kt>Yx31@TU6Yf&AKPXAqB<GucShBHVOvUdg7Z4O1o1Skq
zoP<<%U32fJ*EihvhJ;ov&D9Iq;FV0sx|A2?o`3Gc_qT`JwpTGDOdcBC+Dg_5aoF<h
zX0!7;GmYY`%jy%O;;(P}SdXRV?UJwPGyhexIysl0{_dR=u!wxwGfEuy>!l@ooAEa3
zLc6J!!;*Z5<alqbul8=T<ak#P${>_TdWM51h&*&<i<LZ-mAP}r`~00S^BXKV2Yqq=
zqZKr6L7)46f9vdXk|SHEk^&LL^eZ>UWl^~~O`Z40Y_a1)<GcHxADdQae|WgfHN8wV
z;xN^}zhg+PUK0vaDk5$KXlw6#4HcCLAR+Z9{*-nIeB-7!5=P(O`uAEUCMH(Z)W`t_
z+%RGg5YQ-HUySU?HBmKc-%aBzMdLE>KbYgaT{>QjQddXkEf(u+^S>hK_1-}$A_Gaa
z)Nv1=u8rnZ+<oBmHvpX=fB%=rpoR;h%{-PrJpuv(zGv!++x+@=ovX+G^=M0~(<ki|
ztg`Fox*anL!xoyWi%R@2G}o5#+BARgXpUKL&ul^Vqa>A_q@yfqZ}FBR1Ac-nMGkY>
zdbKB!B}R(o>SU4QniC{xqOIz<1AdZj8$2@TDav0QZ+{J#U{DprNFXv!v!0YspFRb$
zZ!PR$ZEv<gsvX3!<LivQ+A9JJ6JM{6Y-I@Ip@+;?ULqcz5!;GY;^D&!@-K_F6OUe9
zzjNo#7vC}$Ujhj;rV#s-_<DHZpSU3&|F^eO`-`akzmv7r5<9xm<Nq0K|F3xJwG+rt
zM7~DO65udyxq|{KV`-VmV>22zGf-g+v@bA*+#`A5>CJsdFI~;pCj78^u<`Fbhpk8A
zLz86U#VoI$rl;Oqst~N=tvSrn5hI(|nfmwNJ7Vj5XZ*f=5z6nLwDg?AMi2emC*|nq
zn4hf~@s!$81n-9``Rwb=rxCL_ZSE5e<@$9|+-12>J4huis~69ny}p~A`ckgT&#(U5
zin&sH=7yu~Voo1;TCzM8DWm;<`qREa^Q-fNp_(codls^W?8jQuN#)(8ZkrEBMH(C9
z#hXjr+&E0Tl=ke|lcZ5xfa3caTR{!yAm!>>l9y6FxYvH%*KK~RmGy-^*aY!bNp71P
zViFSaxCTK{Q7PHkS6rq)?k?-k2nY>LP}Fd^MPSDpHy)#Cz4-XoZet{1-IhsGubbxR
zaW(rs_iaAc-%-2FOLLz-VAA&PdO)_#m_juhIcZ_j&SoN~wW`nD0NZbns;c)>CHvIg
zp<<iQ`?)S~b1UcP=QHr!A(KwqB4G)cAQ?&Gp)5FP*^CKpZf-G2NkvD;g2~cNSD@)T
zfU45&dpCKRk>@Cn9*z0+oVLGrb0e?EZPTSxH|p-N=bj-t3X}Sgo?@rq(9mO2?JcRQ
z)p|^^y*{|eiJv~*z?FHg*1=l)$$g(Z3c!>7r*8kW@0;gp%!u;l8?fqe7^du`7VEuy
z`SL;?@07vPbRW+|cGI(oeWdkqYaYDhg7%#@-OtM@+&!q%0~4))xA7JO<%}#Wb(zlB
zuRlsFoGhRay!vx+(6BOqo(Qnpe$=Trj4?o7(j>XfxEhOMqOLDBf6~vNI<c!@F|WC;
zhJJnAP4it+a6N8iVQlqMo_;;Gy7Np~M~3!OyG|VBe3w=INa^N!I)U94QdMphscYX!
z)Rt9<jg4u|9<~|sENcx5Z5?hm$?JXt#Aw*?>J~x$B<)xGW{W~!U(fc-v7W6deC%LW
zj0oZ(by;yZFPZb>Cj*ZhnY1@{lGJS?Ljd|pMsk|S1fG|eujT5!fQrTvDsGym+TPwy
z&`Te#p0}t0hG3h6RF*<I`ua|Rg~^KPA=QHcY~`y;g|;TkyF4B`#3X}A9dkP1!ar0W
ztI5JPG(7C2_$A6=D14COFG0K?3TYr6k(9>=+?#quDlFMEPsU2E3Yh=6CfZm`>M>S+
zW7b;|Um}R|b?k=OZ-*=EPbM@af`upt$YtqC<ae98tWM;)cGCQL?;-HGe1_I70^1^i
zKF6_OuLA1_g@-31e&dz2_&GUSEK>k>Swx9a=`!gC=)C=8C=u%`BMBYvEnZ_yE@BTq
ze*7E4{SGLF0tf||NS{@36spcxODa*yk>$luu>CtHTCf#348EPgk>r?kD!74b2z4?i
z3HwopXyb!Vd^;ZXJHyHXO$|Bi@8sI*0=OUvixZv3HDPR3b#*LL=43*LfNZ699XNgU
zMRHn!SYrmOV6sALBS)*+Ym~4my)4G_=Wi!O+eWYyj<ZWd^T?NOtR$lrJfj-uw(Dh{
z`*Ka0sKE516CF9SC`aNcqnFa<V;KH2aJuWZJa|l0rZd;1nw!FyIAA&sqwgZNg~d^?
z87uX&90E_z%*@=UVU60j%@Y#nukVaAec9HgG_@$T5`)XOJU2{0l#pb0dP?JAA+Im`
z64GABSQS95WMpL*fZ4?ZfETot1$cQ?0a<<Hv^|GV=ar#4WVS!Rx7eLKatNa<_dbwe
zJ)O2KRL-3^RHuIniA1kHCRL-@F%kbg^Yc?g?H;!+WGPwF0v48pi0}%D>56Vu5XAzq
zZ?W|+Ffxi-4cEy>^Vl2#I=CpGWH8>AQ84l*@~36~JYFQ6t*$v>p2<|-DrlZ`lEWy7
zF5~gBYf`VYhsemJhh9FVMnuSf2h5kBG7DPS`Rmg@Ryl;Aq?EO8^&G?c2E{p#171g&
z1Lz1DWAL;mN4?D-{Gw^H-My)$A7{NKD}1Rw3$%c&(o+?_nX0_l7|X$0vh<2><k4<w
zDPVm%D)AKntXBPH6b*5nke`J=1H^BP+{k~cmY+FUG<R2Y*1_biq|9JqLX6Cf8#g@H
zW4=tDGAnxd`0-<poPA`C88nQ^a*40lw99umCte~u18jcCcK(<26#ZTe*X6<IihWCk
zY(fo@)~EUGr9MB|FALd)f`TF_A|feN!?AMqHp{IsY94EmdV$pxQ0K%iU%pVZ9$o{1
zwZS$?hD_3<Ex7zM5CV>!=fInUgz7%?x4<?5aUh+Pg_Tv1IDVUS`f~#E#V~3c0mcXE
z+AfDcnzG86KoSsKoBoU1X`GG7Og)i()_`X;u1oi?wVHJ17>C~WIT?@4L|K^Fz!2*!
zb1vpuY!kslH`nHjfF?-g0+IsDaR+Dw)QtH2ubB1liSAu~B7o}E`s3qY#azx}Vq!8-
z9TuvX(v{A8$7v`3rs=XEZ!_7Y43$7JUM%=~fsJwTVuvxksdWzU92AysP_mTXUCZmT
z^a=<Jw81t`Mj@-Js+v7D>`TQvUvs(st$eZq;_&+k{iv4$E-SyFJ!GZKO@AhLGHXMH
zNFa1KMKud|io=KHfzPI5vmL8yqqr}Rmptk0ZPaSd)b-MEn&41(n#kb+qYi%l`~}kS
zDB|g&Emfn`j!sEYg0K^pg~Oyn4n=n>x7ttND@~7nH6SZz=pxwD@LG5Q8V00^+!|8@
z$}|y|7JFh9ae~2giN>vI#7+SQqeteJm{qQ@@|{-;I2$3CtRNv%Io5vk=ut;aVepAX
z<vf%cFpXfyKj-s5n~<jHg6az?nH0XF!uEgh42XlOa3oSY8?aAbwa|8=kpQqmwUJD0
zY|;QZa_Jhy*`Q}K+Ds<CbUV2;xi#L+aWSqrh@Y_vIn2=_^J9R@b2*}vZ4alZwl|V$
zGXw*`WmS+fp4IUzo4Hypf+XD6B(>^gji5pX;YjMr$X>|pB0DGz27EifU&qqY@`gYi
zm0j0;x^QHX(6-Q!5Iwr^V;c4!<x*9eJ2e`Fy9;b;H`Z6zTO`E9E-DNMh_kSjA0M#H
zuPNPFV2!N^)_K4g8O~{<k}*&h!BL%AM3)6g6Oa?(!WB?+>zKOSxm>9Zj`FZh)52O2
z_U=ME)(kVChT8#&%2{tJYipTv&AQ%OxN4_?6joMMWjgzo`_WA0ZG3pN-7A><CpUx-
zMG24}XX<pw2<LfuJK1AIh{(xZh32+PeX~KBW`UP;|H&)U%2TO%J?s!9LKYwcNT)bs
zk-X_H+fAxjb=$NqrvwHBXwA;eiDwVu_`y~BxatsPo%&HRw!O}C60)E=S~h9<LlG2%
zz|f~{H9t?JmnwxYs}9+nrVB@WE}!;lL?9(J8Lp6~%#;OCsV-@jbm^-qxXicOX+j>>
zp$lhGFHj0OA>jPpUuP10>7lPf5um~;(V^t@l8ZSh3>za&2~K&pMzhKX)=9lw0e7G#
z7kBE_MH$kC;|x#ab*jIrOH(f_V&lV(6sX>je9P<T?SN&Z&d&lNg2&XY{Yg=(-vLy%
zpKPsWDXbA;$9X;zDWr~R)j-y*kyljLy{MS>0OjWnh|n_jkOXSMU<PTb*9_S^qjN$J
zCFpvYt~VR<EPFr=j?ag!{6SAqy9m2omxZurW?#|9&E+DdiPO!X;S>`^fV8e-UG@V$
z(B4<PYkN;uhJ71m>Z|GX-ecB7@hfUj$j9c-0V<=?_1eN4KAjV`kw|09sa&94S~kEk
z4mIJID@53fok+Qtwv*ig#d!F;6Y9DToh-`qJKw`1>{2`-7gX~t<1Kii@gWh&B~F3c
zApEh;xEC69V{1f0DV9}IQc9_LEB)G=PCKu&_Ge|FgsEwoMPWDU6#o#RHnl(<lkjW<
z{CYqaP8`H|Xz32Kw-bOhk&X+aCq#!(;^s_y3v80PGO{5MQB1h3%~T8lLS2FS!MVJ=
zT#myBwgC7)X@%&+(iM!Q&9(b^9%gVHIKgB6wjFAKMZQ}3pk?^_Dk&1><x>&BTG{B1
zm8e|f*18ncyt=E=cZqEROeBH0@}`^nu$_F#o1qaE;+PrV2F2bIpo`C|?#2LsL(_eq
z@u8;>Sm1Kn0;}VfFYDEWQ7ptb&x+DkUOjza4#_qQn4+5ZjT32-gT{IKQ8=GNW*z}#
zxytb&k;ZBH<-DeM6Pk2%bdEp$j2%5cKTk2SFwxm6!j68z<$cFkt^lYLC-?a&c_ecD
zm$nC-w3Xu>Imt@JuO`IUCpz=EAaF9y2wYT|Typui$kDa2;#GEhz@>Nt^r(jv-86E=
zZDTnhf2RDD4_#nHgwc$*>b~4qeClcspk<75k$ncY<NRA<LBPx2XqLM6%#F>6K1db_
zX|dBR_oXtX3qM4ATPcKbYKK{zfH5E6aG0OK%GW|>F0NKy+wkykfiatr#xm76s8V_W
z^?H4u+=;h3TV?@`Og!Y$Ou4gjRCOpTX>u;~9qM?Vzb}0*ZA02qhL6SzZxvD_ma(f`
zTEMeP^Sa7?PHp#PI^r)f{bbgG&{SzFFKHCDnVr&fU5+QM&y*e03>zPRFr~kSW=t(K
z$a{3*39+sn?3~Hm0c<bp6+eZSo;bWxL?6U0uI%@35xxqJfUOG}Rue!kUS#zYj3vv7
zWI9*L5E}-%)jJioQwy7{hr~y=<1vIYp|D|b$p(3;m%r1UI8H-jhF*b^)@I-5rxK7+
zeCXyN&M&2?zP`Ob*0T`H<HXPj9yooXb0V*Ia$U=ouRbXg7^Fd8J$Z-O`w7$b%(BSm
zs!+NaFI@N&x$n<_g^PFGqV6UnB8}Fw_9KdWgj5=IL=1m(xO<ArbbPK_LQn4viQDhX
z#r(!1w5WQ9X_3APFV?gUEK!yKmS){aQVoa1?5~3oTT7&uq%4bp+h*QCgz5Db4iMcC
z#XytCIwzO4P$`D2<o(&oy-#yDim*e1f1+FHvNE6HEWkJD>z4YovDJLlm{R-<5^nJn
zp!(y7WA2UhD6mcge6D51Y!wQ%4hm~jn*y`*8Om9D0(rZeNHP3QCq)Gme>m9JEyU3I
zl|D^xReHat2UYmE>{^b^TGhu$(}GI&cD<SmI&+j^m-DoUI@2cysEn|04x3-njsC%J
zKmEck{>ReHfcUuPyL*pF!h76++YRW#&)$3@6sPVN>$+0ued2QYgRb`tM~)mhp4Vw&
zX=PQrwmesy9u6@pHkq=T_T#ClF~O*M-g>9Yw6veubCC`L!@>;clw+KHPjhSa4-EL!
z>RkqbU_KPte44#>fC<XUmKUHhY<h@DjAGgxW_xVvWLmUM?%W$tKj}8dk?f#&)uI$+
zPhfbLe@I~9fJ^l93g3>00~Y%=$UOd>+e|NZI5+ul{VS~>p*_*(DkjN^q7xHLClSNf
zuHU`6HZ1te%Zn+a+iK$DuKg!}J!49nRwjk($M{>1pJx;HJ-vr<Q6x_lvf$K0e_GM3
z*uqGYu-n?qQzY@B;zWr*AvM}mGv|o}uwTCHHBtTbs}%BwQFGED^I=8;sk-l_6nlVr
zoDrwZl~G+=>thgELTs2-Gjwkd;?=^a#Lt?$0k-H2u`9Rb5Zv5tV=guz&a7nlHY7`h
zYYTi_-^D~l8;E8`SXdZ^ZjwUkMbWYzhMhZi7A&-=28V^cMGaK#2}^<m8xV*8QFcz|
zbDGJ>1oXJBn#4{VWwt}!b;@(^P-L9nP${FhP}n_5MO(j|dgbN(9H9M4b{&sA-}Fe;
z_6M9cQ$6YdVrr}3M|T;&oL?vUV06)7uiJu2q>bN6D&7j`mX$Bx|FlE2B2C?SZ9n@|
z!5E8Zqj7riP!=m-U<8}?6GEKZe}Y|TILgY`4(GLcMeED&@o{m4q;|jJMB3V#v%14z
zFkpua!p>%@nDoT?QvE9HbCS@X6B`3Go8M^t_+FvBRGQ{7feGSmjat*9T~{Z#niFM(
z(YWe4RZJNi6?Mt#!8SjFZ(H_0rW_qBO%a$1VNp+tiaNb8-rh9Zg&=zis)erRYLW26
z=F_6jYWNtVmLn;X9mJLEl+UrX1Z>W*_>?ZID1V6#2skGS0--E2vn%PB{=FA-jAU+R
z5c1A^;;T#(+*o>D)0tV&;7&(y-o^~iV%B4t&KdO+F*;wNVc&BY2imCYGZ&F*<I;Sl
zQwV6*ifoexC7nR1Nq}bp%RdiS?}(y9GfRS2*jEn38t0%ke)}9s+H8BvGfE~pQGUny
zX{T|iD+b>_4BJN54oPJ0w6u!J&d%0ync*uzYw}_L651j3qM#rzx$fUvc-J{mHtHB~
z%%mf`0ckHq(`~(ZDs*k<zM~gFP!V96YnkI-!#V3<|EqT>L>i&C&?PRtuZtDbd`eEE
zfX+K8PZ|_FdOErbEG&0{d3!PnW~-R!sa8L!2Mt%RL%kny;a}-zRGh!f_HvOU3PB_z
z2c&TRZWM8S6CsQcePrLix=j@!QUflH=at?<f`YPNHE5Zrn6BY^I2m|7h_0-n0vYcF
zjigr3>+F)%{``-!XZAcrjD)OEXRI8$zW37gU$%wf54^tX`#{S;)L#%Sm?~Kn8!yGl
z>t?mfNlE=6y}1dQqQ&D7ZMI?4d30`#(0X(n&#2JJ>m0N#YzEbX9(OiH>2seoPc!<!
zgs_36-1I$B)+MHtNiprxNE`X}jhIL@`$c3t|F(ZSvFjWZ?DXQr2)YrpILViGhh`qB
z8xxd?wX2wOzAYKUr%W^>hVARgPj%**v0D6rnsy|7S?uau-o0UFU2c8PFG}JY6`iy}
zL^O5BiyxCuRgpI<UC$+q4aL~01YttQ?l&V|savthnJX_3en=#`KtgTk$TNsyJ2WDp
zS7)cj#l^{xCfc(qhFv8Ce%h~+rb6dSDfcQE0ZoX~Pg+wYiR5&m{7#i(>uAI#lkuYi
z@B#|1!LM&GAy!F2zp0lOu5kM}pAz?0y)d^|>E`|5_koX96ZLZfE<XSJ13m|mBlazQ
zs2YWNBsICf(hGr=U$n#~g}#6f3WxMsU^g`>aqTDvAiroMRJf@Z9iozwp>%j@-LR{+
zH<xtxyZbk%7O^~at5YDo=u0uOvPvQ|5iM=sV1~pY2T3P;Um!gF(iw*;b@PuqdrV#~
z%I_^MRmiXhWV;C-AP;tS#iCzmeWrq@s=9j4_b=#J*5kr|U2|`gl%%S!(qxLER6)<m
zG-D!Wh8r;6%Y@Ww#}q>sTUyxev?SiMG9bFKW0t#5d7IMw+QG#72pYFFX`r(J=h8O=
z{r%sw^d&_b+cLDb^XNf@fsDg}Hlj&)LGvo@H<Y%UzL!sf=c9+vjJnkfGXUXN`9dyB
z4fIk#>P5l{sp!f!45V9DkEXs;_-K~y)9mbQQN60e-h~C$Ta$B>_Gs9ISdTwF<Th+i
zt||CJsn$R4YmMTK=u&rfGsbFeak_GqS-~EeUvoK`9=u?sKoQ?xT>py@>Y$v8Ly(YH
zQ;XuUn@j;e*?Huq;j_BdPyA+NOHThNA`Q2WIc!cSb1Nvog~Cjt0*wxkBLL27s)B{R
z0_{42*0pnST+r1<`|Y`gNw7>W`lm4cXyq4}kS4ne27GzxMAJ)Fl5)*@(_kHddN-By
z8jxu<1zCba)L*q&?I;))Z!A;dTI$u=wjzftQt!*Pa5Jb>ro{^i6J7bTkky*7<*<zy
zB*NJVdHg$cIL(wbfHc-b9j!W=gr<@8z_l$k*XqZIZP=R^Az?wwQ}J9xnG{!d(DRnY
zf<Ma{Tb^5g<@RinNkB6H)t(npD<@6eQnmbj*TY9~F04=_!JMxXLJ1BM9J6R0(q1UN
zD69p)U+s}v$#-716qNy^X08T1045g?_>N=K>f|4g&Gy?^nUsW5L}xf$7rm`@Pl*1)
ztKoq23TVaJErc=Lr@J+o^~Rtv2T5B%al;J~N<dtDmj3E`*9<*9{jKf0{&-GT%Ji`M
znf}7`czaeb)Fx!qCG~I@7zFG$i%mK?V?p><AT!agPg(xfm+SR)MlDGX8*p3nfQt*u
zit5No&t<U-b9qw#mK}JbkQ~aQ(QC-iuDFP;f*R2D#q%(cv1-FF3lowI;MH+CzLF#B
zeQ79x_i4yKB>E9qLP<;Ol_P1AS@h&p^B03g?jqB9VjlwU8A7X(s+gzK0mZqmtcRuU
z36`kPbmNfg%N?`K4+;r+gPrMf;_~fSw~hQb?bd;XoW0dnKJAE*F;F~dl!zn8jwz0d
zKVj&zE`lXWG~msha7&pr&j)c16uKzlcRdCFBEO9=Kow2}2{dd;QSKSGZF_gWtja-w
zVMUeMj!*Ja^4(~j5GFUi)*4<{d9AChK8w!R(_oG1)$vJC19<mJE!q>GE@Qu*^XwLn
zEtQBU`s?ZQKmH<5f=43>y?46>$jyyb_52JYZ8_JsQ;G@lPw~6iytx~l1i(mmHhNfp
zHExy<FA1!S6$(QAOQciQU}dM^3k?W^m#EkBmYX@_%Ih0+0>*%qGUGh43ay<iMld&B
z&l?bxi~c2V00Ewm&E81HrhyVM0*y{-+K5yrC^!jl4cCMZWYr*b^idJ2-mSRqYpH7a
zji>arw6uhLPx!34EIKN1hc?^9(y~eJ)!jHcT14N)E$-l(bEL<)RxGYRP3q-i7@FP^
zYH%QfWDB%7!sY?8`L|2AT0Qv=$o^h!%iBLB`d~qW9zoQCB5jDm<oM&!Zn5?Lb?_i3
z#qB!>@`q#QmKh?@Ch9rmY;P)Z<Shg)k${#obz_HhuKHSa#O>g^?2x&8=Op@?Y3Oez
z!k6K=)c4e;NrGzx2%!~{JDQuZ6cw{6-tWX3O+a#H9doeS0o|spAS5@%Y@^0q*Jgx8
z<24_jQHmK$qAtDBltsZ7cB(2xqgW-tx|X9=DMY!zIx#Mwm1jPi1Z`+%SIpDl4zGA0
zpJt!p8zad_G~Cv^b!z6y@}c3;FP_kz|Ml9>F)%@)wR)aD$TioX;YK66*XBj=A&qKo
zu7t*E54XKS$7xNM?nZIG8q^y4b+bFwH}Xuo=|l;ol>m>`mN8Zi_>;KW6h~Km1hN)-
z1YgEbwbs+_&80j)#qVe>wQkK5?T7+MSLviacKGA**Jw=19%i`v9bTE&pe2ky{{E%y
z$A4b*B-Eq&YHNGfxKUJY&-&-)9n2Ew3EFX3!`gPvmA~2GM?RY}il#2Kw+=#6#FA{&
zv=cb)AI9L$?zYdShhj8pQ0KTYW6^R%aON{!c!PLb_i%kI1f>(DH#@zTEaVTe7k6qP
z+KE5`f>5UeiADba70=IZH~1Oms##0J&@yWlVTTTKQDGClgg*mnP;JCd^D;BnI*ot-
zE|+E6%`;$I2)&1s(EE_l<|fgs6&OoH6tXWuT?REo^I~W$y_6F*w*0s@YC$dR45KEU
zt!(V<?A~-%13p|Ue2d7x#o82!wn%=E2;lOun*MQpY7xL&w$#;ywz3E;v}_cs+#$lw
z8Ce^bkPwN#L1+XA<G8F}cLim6A(zzmlqSSu;V*K5=}DT)dfx4DqS&R7Q}Y=hOXzA~
zLu%Q85U=yI!e}GHj!s#K?zxwc)o%xcU$xMZS_rwMtVQiSeSHow8UgC%P%!|yG1O^R
z$^k(Nil%<7i$Y2d9FaxZ%d^$2POHPVg%VhZaDJ!U6C6fz89cBCaR$_&4jY}QhmFUC
zE}Vdo9!*U>Kz}u$xJ4Pzi6apF;jn2$5J1v?lMlv59K#jEfZmMhph&ot+FbVM0dgGI
zzO$ubHUT{a1_vX96XF<@uqITrz@Q)qjzK|3O4s={F08Ae`JY#(sOd83vPmQ0+~y2j
ztGv(rxTqc!){p@!XPWhe?pWkj+R88G<>=9kWYs`<@}aYW61UrC{FUS4I7G;*V5Uge
z3Bo{1v}-afh}LF43`51*nXs+JR{TDkb)JI*aRKe{B1a48f_>*QE*FkWM^BG9p9t{z
zaEM7x^{>m12Zn~~E2OCz!e#**3AVjVC(-jvOkZexkAmI?(YkZB<A5Acc%p2AufGn&
zEPdO_E<<m&^9&3Xs}TV@sQ=UrwtnE<h!TBQqztX$Z&-a|ksN!|4?O)m4jo8n9a`Ke
zSbrdKwxcaAWwM(os@3gktQ~<N{B_Xp<+1wt^-%Q+F6c$um|pl#?f9baCZLM?LEkjH
zgB|_YxAtGc=BMzyzuEN}$1)CB7kwVdD|JwOYvD)5+foEvtT#~ZbDov8zK|bsG@&J|
zwp&1Ot`^v-_3g!VXtjup&pZbnmXZ@)!zaY)qYzC*UsK^H`VUi~+x@NuJbEqc#~I9|
zxafdQXdFR^dzopamD$kPK*dO>=7ecnerB0o-P0r0(Tzj&^z%dfW$IRoowh<htXwba
zgs2|CMA@Q408<Gy+O7E{uY&X)>Cj|Oa#We6fGJ#35I9Lu1ovytk_l%dm-4*@!gZTB
ziI^65NfkuU33M_?e4SmehgITPuo>Dv{yNCnV{`VVd7Zo(pj#{%rN54uCszRBXugU`
z=pN7%R~T$b*QEKEJdUQZ*@+6GhtLD7?o{btsDk278U%HWHE~$^CCay}k<@5kM^0#V
z`MrTZ0^~+lb>@FH2>AIUG{6CV=G8;9*CWh_+WQBy^nfsWCV)2oFu224sZzgc52_TO
zJ2LVaux7gvEybQ5bXblW_x4&f6**YNRsbeHO@!4`H`Y120<9LJ_17`u?CL;`oRG5?
z)dru%w|c|3pB&bo&N<{kKcyIecr1agi`Z#opPmZ~Ifi+ie{C(j=znS2<5BS`6+B@x
z2XcBhhSXn{^PB(pATvg2wq|Z(P<D$vjqAzX$fR(6$)w7myeUI$8fi_BHEfLYgv5TH
zjje&`?hxStiM3k4_*&p2w9PJ)^Upswggw~P$A<%sCwA>}Z#I-o0l!nfbUKb}muzl0
zHNp5wG%L_sF@zZ70DB%`roJ@xci@lxx$2OKSqgrgqpe&cm2T$n^*{xOj*fn`)<8cb
zXQU`SR9ju_gG976Ma9K010rNVSMOoHsjx>w+q)e|`2<|n`9B`-yYt{dN+L{0`7o;2
z5H4e_GVv>P_FQOyNPQ}w)2$!0bQl{N91KT!3xBkIcf>xH_aEd^lp3H)6ACZ@yNuB%
z<XzW4^SW&#6Jd4AXn*hq`SuOWuzJwt$`qt|qVJmhaZ9oO2*KfKD`BbroLP+6kARW1
zf=~{iM9bz|>Jo2Av{p(WP*PMJh=XgIQoZ507&<X#XEN5%0y&S`gHM(P0U)kYmi>&D
zcFm?jqVoC+*@$~9BN_NbQ>rSLEP8|k=2!3Fsu1mhXX{}HMQFB<6bi=3YoqB?SigSj
zuv$F7b7~cf(MV(b5X?oK#A=|n(49XYfvX(>utUiEyN{T?i{*%+(E$tFe(Ioh4PK5C
z1?>YF)DZBTxSGpAg?C~FT<!oiN&xl}mjJy5qH%B;WYaW*vMip_Ye#zN)6)7^NUWD_
z$Ca$WkiyZ&he?=f4zG7qoDaEG2*Pq19^QhH?}>rvx)<P`&ZBs%*>&3tp+~r|s=|`K
z!|Yx9rn%r0Fp)kSg0kbnK6tpwR|hvuEw)1~oI<8haecZ?xuC9bAfIp%<~Ec=&2Jf$
zl;c~P5?f!r>f`XN<FdKhE^GEnhmA_b#iyT8*a2vS^V+55qvA>swdZr+pF|CR<;B8I
zG=_V*Enh&hGK%}KQSciXpO!cG&Zz_2$r9cJO*8WIt3#`p@0p+?JE%<fIglRGk%-_5
zNG$rijcjedHJot(N=>K}=rQKZ9@u>?=*M|u!c0a!P~jI!M|6${F{ANg>K>j)n4TeZ
z3R%J;@XyeaKonXKE3Ks)@d+`GVuS??{tSFPN|Yo74@WSgYThGc(ocX`$;j^A|Md4B
zxWWl@P!)dtfzcFgQNpQ*>+^5V!&AwG7)>*Y2{7VI`q}>r%i2G0@t--Y|2|ste{lPq
z>0eo#NQR;ZmEha(M!a|^VRSP>?t^hcuGrBg$FS+PpWw#(qj1}!^2aWizVF)wD>D-p
z7uWdln?BoK0)WOs0m2icw0d(|HJF}$eu?~lYySNO8inD9uo%JI7GzJyz>o|%)3ML}
zm^IjbX@&0>hcgrwQ5T9zwvk;kBtq<=2Rx$Rfz7w<c!Us;;R5gqQWnTkJTFs><`*$z
z06ire)?;Eq2bEj_sokboUU8Xkk?<6!q+HrhBf$4_>66d462cn{pT-K*BIfG%TZT9o
z*sXb(Nx|j478d=>yu0mVk_Tv%m6cV{K%;j2b(R=YAVw<&XJ{>`J%mm(h|y{GJ}Q!|
zuC6?N3O;yV!f1cy6__`~Mr>5^@l*e^x#|`%=i)F9j!saolfcJ7<2RqNb{+o_$#C7+
zn{i4?s%|ZMJ0BK<N!yzwEhY5=N%|rOhdfv)fSw$r*ZKngtK>rGd=0GGOC=?T+Az%0
zzU3G_6!?F8k;LxaWyxjzm)(fY5IwvCAgth^AiBuf^O3c0;JV~6Y!rfM@y%(fSiij-
zDVk2So}Z-lZRXa+U4IY3G!@Kt8>EH_$8;OV^bBSS=0!J{q`^CgVTu6X)a+O!2i<k^
zy6yhn142JsU{w{9{l~HT(uybgB%9XX1a!>M)_`_DiX<pvgB}T^XaR;^#K%=JN)o5N
zCs>>%pYG=p;i)3LN+|G-qlpPeXlQ86yG6>#qAsBnyn)j|Kr8u<wzhUNQYZ&JF>xy!
zb=w{h{YF@rh!zH604|s;7;_HUH_Ugi@+xw`-Mz>rLaC6)PKX|I`BGNqencD^w7(A8
zFg{Hqmohd9r(v$NlG1U7QnYlh(^fh|6}#TNkLwBE^*FHX)(nvwUIau@Zkl%r=70yW
zpj%n`^_)ajNAsK=`1d=8NdT!nJ40`J^Ww#a%x*xW2*i8@VGtk+8W>d|%pJs>mK6b2
zdC+9!3RSc8OoWFEMld#hr^PF1Ilg<409z+MDv~JA=#9>Omz4}BYW|msib&$8Hzs&s
znxst5f}8~$RXkvn)n251?;k`}q>GJU4CoOq=;rE~+tk?T9rvPR@jb*mZ@Sou{rY^b
zJ`(*RkJ#-6)*}=$m*S(hd$SRp-rE5L%V73vdMiy!Tge9#i)-h;1-^rcS8q5-xLZ=c
zbL`z=m2$5q;h!FN7~t{uE5<D~a%pPqboBJ$psrz1g+EN?C;j5aHm@Mi5eIRK1agMg
ziwk^?0|u~*3JhTg+lOX^jrq(oNWh{27h42m^)*_##|KR8C)5Xrho8!kfT;cHFbk0Q
zC6-^j5dz29I!T<hI1b_u+<xcdatZAdEfr}{_eA1k%!|#nr@K57v)L;ym;Z|0TuXpz
zqw!!B4w7u$>Z54lDWh-F2-c$UY7+c91?QXImJ2u#pOC<W(uphI40YFQ!VOf(8nX_R
zogtBt$?zQ*p(9g(#KYk*`;($RaQI{xQA2?T)W=ue5H5CV`ybnim-@X_N}Tga^;14<
zWh+<&v=&@^h0kz#?R_(G&7Ft3;e*wI_qhrjHgCg^v}CkURW*-|**W^1NNGec11FaP
zMlgsPHNEla&3qZN``jVn3+ahc_1jB&xIR)dg^@;>(u-d0rnY|}6bquB4E{PQxVh}N
zHN1slE_9-v`zK<$mGDIp#E?XojA?Ise}e#!h6aeE*@t6y9>5XKMNG7OVEo`86&G}1
z;*;y&1K46ATb4cnQbJsuec+$uf@|+EyFyq736DevP`s20F@qHl6ca-&S1eL~(A(Sl
z4~bX-b@?Q@2DIUW0t0Cw!lF+((NnA%>pbgO$2V6)v2b1@;-|zU;zN$tZgRfopeaV+
zR{FhItzqRql6+aa{14cJ)CuQ($x{D5U48xP3ESisFRp>Hw89hc0{VbM`u)*rsNdE=
z7slWtKos~^DR#_>xMKJUs`3Rw6QPYm_eZJx_`<J-n*rJOGyPgzsVi_!{B<(<UdI6;
zx^mi+YEf#UdC^w4mHd1e`{+Hyd3P^?Ob`}-Vu&I@4p@*F>~tOb+mZTrE?+54S*(Ne
zo<*gPMUv=srx7+dVn~N@h?~Kz(Ey1d6`%iWb7N|At(*%MPB>k!fkOp0jRZlR1f6ci
zj+*E#)kKGPA0sCj*^g6%@&DkVn4fon?=Dq4!$&v@7YH3OuR~-%>oQ8kw<r@lFnKQg
z43spQ>M4%TB__>8cyg;Ie>J?mUUnk!_~VQR?d+nBVQku%Uu2R`Q6k3Gk{~J8T^;xX
zgRzA|pW<*C;R^7la{-5O917Pb48c?T`v?~xQr#HL)blNjmoCj~2s%J(EZA5Xv%!25
z;ik1MREMC{gfMu4t~^Rtjb*%^vvUz)poxF;<{}1JKpTxZvJ;68D&Y7iHf#fY^<K>x
z?Y<IBpVfDs66;hr$3gx3oioE^ei+BN2}?h|G5;ckPB*l7*;J*B8^j<hd`B1MrZ+2|
z^hNEy;X@nMDtBRc8`Dc_rst#)=De;~uInp_(2-HadrC0O>kz?h^#-#Y$<Rrb)}>QG
z6;_~NHlw*zreY`hUtWN+@^V;%!A);tTra||%Ww1Ld70sZWMmt@{{W38uxk3sslC~N
zKDFpAm2Pen5`^l(!U*v3zcry<JJGJZpul?E|Jm8&jEsx{8=*magl^w{g7zHThs@oU
z)y&(P3FQ->KB9XRZPTJGP>sxwR;dOCT8UO(J-Z*@tOtZ^87(K+G_PQwR<sf1ar?Na
z`MGx6xbp3f_WV386*L^cz!F+r$c#1!(O#?<+!WNfI{Zj#;P+t;$|{EsVsw6#-h=^p
z`NHMPO_^O7&T&5f3yd8-%J^F_Q&gW9!8tzp=Nzv(FTJCK>pty!=KrDv`Z3eBVQlD$
zqf5ED_V2etS=2GCBTtM}7r<Zz>BY<tL4jV~yOb=gvb~}*7+U+S<nFtKI-Cb#EcowT
z;oxV7&)<1YXVP2JJ#2xoG_&^G;8*li;@3jmMRKVUXRh6Q%)NUa9;sD^C14zA1I;kG
z1_uYn!(N}>mZO>~)X#VD!RfxDH#fM+l{|lDIJf7TMBes2orqM)#LeB_$@=tjU-A6k
zrNeJg7zFY<A8=0X1w}vMuY_5dt&MgTr8Fe&g;`?=OsRk`J{YuvcPF^pG&GKa>i|>I
zuh>P$s;9I;#~=IS6mXR=K75@3q3U+s@oyv|FQUnfg5H8*JF)LGDIzIo{C$`hN0MvI
zh&)1ctk9T2&kxrHhK}o=kzXi_{iUTvMO#|67REaf4j(Lb(gv6a8}S_syH~gE*5)6A
z*kQy_Z&tlPGGtzP0^mZePHa^n0CC&ZPyf_hib`!NGcYJjK>NaGlZ1q;tE=m<DxYn(
zL6N<|lHQkp1hC8F^yaZ#%r{D()gQA>Jw<ZNFMo~(6xhBI>cm+Z+J8D!-`-mcz}0%A
z+VWO<o-*dTo_Fr!*p>Vxuyn_LO!UAWmW-z9T}(AJVn1K88I>cf^uRhT@a!dHd$+5W
zK-mabOAp|U8LqEHF;CKuaXA0Ov7)-JF1O1Lnz5)1X#5R<4NoIpnSn$5-<WkK^pZaz
zF-#TCeNtUN;c4}Os728J(Mq`qA9*9CqS}4s+)MS_6)gT<jo7=$Xa34}aAvcuaPCZM
z(q-}wX6a`ngb$wm@nqj^-QONddtP{A`SIZH%$f^chmQpqT+yO8V1MEruV+ocp;Uga
z>X|CAt;LB-gB@kJKm0Q2r#Sb=b-6Aj9YdYGP_qs5_uCsqxVqkO&(F!(IFwBF%=P36
z7EI9yO2!r%G`u<v0a-|>3wwEHkkyTQ5sKOa)*cTJ8VoO4U|N=Q;?!=kh~Q0^y<~gF
zy7H}rguctAdy^724WE{t%N4xPz7)4i)m>q&ZBG(qnuP`O^dTDe7m<^n!$VUS-dVW!
zw=DX0wY4%ZGBf+sI}crEd(igoJ-{$Aqu|ru-+x@tbxm*81AQ2-bLW649+{-+bp3k!
z+P7+G+(S}jJ#WTy5jPqzp0?L^GVwKbQ`3m8NP95Ae@|f{B5bK;m3N*)yRxd*h*O@L
z^iYDN(lfv9@qWX))ekKzU&r*5GDwexl5%o-n~*hygudWj0LS5Gl^%!c)PN|j&HZc-
zM_%N2P1%WG{5!~0XmQ_$Gxvq59dzX6<p&Gwez8@Y&QhQAMc?0J>DO7I&g9%&PB`}K
zJUp(B#0BO$_MkmMd#)ddwR_UoM3NjV$0x7HkqPG76F|$oT9c^rtv|;w0?mP0$XI(!
zY-vILQU1__u`Eo`coENr{{L}l*llCjq=l#N@58Uqdfvc48K_}_Tbd0m?fU6@PGCg<
zT(I%&+qZ4w>j-nb<fHXh2fS;2O`QMiK<ws@Metfqq*jj2wFMI{e2cGVpMHVN3ulRp
z3<Wr4hiz@`0QJE`Y;Y>ShjnEjK2+lwBAgp~PSX#ES_hgo6`I<G%Q-o#*Lret7n}+#
z<mX!!r8VB&yUsWJmA13Hlc92q`ZuyvnQdfecEg&^EF|<2J`5>U)xxqFGy!s^Q_WnG
zrz-?EGN$4GK7twi=Tsm)E`7m@8jMl){hsa~7lefFe|)@CwYUXEeD5J?dzkzpz7O~=
zPJg>ePI>N?6e#J^6rjZob#?WZQWuV()J801&m@<W2t;yWLhDny>q7D;T=sq7-}OD|
zX=yBK7_Vs`&PBDXO|t`0(_ct~w*3i(Ijey1v8>Jbxm_Y+JhC<)(pV;UtD2R>eIUH{
zsE&?~Prz||;RrS8OV(T;JsMkYm=GOOi~CL3-Nzu4`^w774Hp-ezA3j&r<a&IYR`};
zExqwl>iuAdDvtj+kF~*l5V8HP8$j9@aYd4nF18xG$#hdK^BF{#bZ_75exnavToxgr
zzRuo_MTVA@#k^8=506g(ce##ri#@w-v;8L4!#jFbuiX^v?Nl{ZElqG+?d-+7!)wHH
zCx(x^P?#{QPq%6NQQ`&`&t0ZaWZJYg%6kW(c<Cm`8se&*J-4^HxmjX#KUo{kHdeCd
zk+1|DJNIfDu+!9H94pX%iLARr5zMO(vOw=B$LQ#2=JWd~ZW5zr!cK2fQ<+Z#GwrWK
z<z(rCk!=62BFGFqLmUhe5#R6CZ_dzc&UnsYWUaU?3JKgMvXzO6sZ*<`+<YiOaNY1F
z=5jtdpgq6@|DL^9J~CZL{~SV`>5tP_|Kv?z+cveRwi-A(`E~eulS?E23n>HVcPpr`
zx|^JH!}Y!WOTJyZXMbrsxxUFI34HrjPg-m-s+k%ocl-RLWY-_ZpS$-s>@M;d*-vH=
z#&5svVb_DMtjw3YSLa8YnR+l~O~`Qr<5~5-Zc9(yJf1y!hKuKmGR}%Ba+2_vrzmCg
zAKnyNt9RS5l2cTyKmfi%S=%~$sD++_>m!nEu4_xbP^CDhFa+cc07r|$+y2AGZ80mh
z3?8o&U|$yV<L#GW!g&o<rvcsL_x;b9`r%{qh28VYRnk+zwfls7-2%*57%q-iAi`L*
zgXm3Kc3D(V%>>4->3DG;Q!~F_giOeWm_GjJy=!uEaza=|>!}`ofLZVNC`(#UF;v&1
zc9Bz`CT=*P29$2`>*dqiSi;k`ZTBqzXDhG~PC0*V#{!Im@!FY2xh%G4^t!IzLdfFw
zFG3O$wF>EhtvPwR!h+-{rvfLpNo3$d^-B*cs@pUlt+4wk@LZUtbMA5uE$NY8XOD`{
zGXMI7ncJz-)$XZG6RnF(Oas|XcfESohPb5V<tcZcHveGj9MBokN~FuzuWo!~StPsW
zdY5M;?rl=iv%%_6VN63=rMp!zCVYVfMjN@V0bRDPu{=G^wf<w;vp*|m(CilizE>@v
zqG;|SJ^Y=tjqIU>GU(aQQ8dMTJv=lwW<&E^T`^Ij4KmDzA^w*K#$QFuQ6KCRz&&Fu
z6rh>qLoS=^hdIL&9lkRB3|H;OZA!{zCHW~ai{^^}=o+0p#AIJ7Zq>d0To-QSBXIY_
zKC){<zvE^FXKv*hY-y$<LH|-+Ju|oF(aFw8{|2f8vM#iTxTygd83p}6v&SMq4~Yrm
z|HBjH48^&=bvUD2nBlxUYXDa#+A$>`tuQ-z90T*$2*<v(qT(^o6Hgo_2NG{qVBywa
zv#ste_Zu(2HA-af0tfVip!X*RTQ|mw;XtVX6gh=-RNu4OUhjIecXNYuD#Zd$zH%VY
z*N_-$dkEc`?A_Sm>B${an1?-W@#PShQYN!6=9nsgKB%!b%<hE!c^3RLN;0Jxa;H6p
zZ;4U5{En>yptw)o6a9n8fO>tV09?6yNpMPfL(n0-{sWP{YkIbI5c<(OIza>iR1VR_
z4Wv#^C*t-+WZ4=D)0|nDRuuxH%W5U^=^xa5SFsBHsJb3dAOwtzjI<yb&3I|9ojZ3<
z12yVbXWo>a4NN(Q7-H<T79BAa+W>|iJtslDC0QXIlYL}6e69gLZu75c%0f%#<1bvi
z_{_sY+n4+NJ{ztL66XFlj`o=feZhSNI92;rzZ{mlqTflp_}XtfifYGUj;|?4dus7$
z1)y6&`<R*Yz$w*K8#F?62cYL%c{)iv`C(A|tC!)>)R-|*bL7w=kXbLNaHh6JC@*5-
z;#sZxqq7=NO<$qFA3D?kC!0OcQAFZcZ8t_#EZ`j$c5zuh(3+H->=h9a5%%Z(8{Ws+
z&f(q9yn6HIe95#s>z5SeER_OEfj7`xW<YVvukWV%-k1t$!ZgvkGvOU=2&-m{PiMAa
zR@n>&X=*jNtm_Cpvbx-DbG6s%SDFP>ouh<km&UO<pCE|v{8|fJKtEuG$q1*x2bg>Z
z@R$;t<J#pzSPe;+QP~XZkwy=X3rF_0ZxlviHxoza;jzol4Eg2=X8ff!HED=Ry}2u0
z4`EQ|1R{>C-rEDMh|hJoTC*H<IqIf9*}MEnN)zps7Xr-PyEgUb_swZF@>Z)9VCmaZ
z_h6AQ=@_=N=oIGz58`$kg~pV7-7o2M!>435lAdw#;zi3uSqub;Q;`{nSV#-4HU^l)
ze!VNLFm6FkM)s`>E0uzI(wSkwP408&Q1MSf(%C#Z+yxmM8z!$-<&@&`ZK2baU(YUc
z;9go}WOSk*I%{AMdH)_6p7xv;DmBU#;lp}u1Va-0DR{hiV|Ni7_@T~nVZNR%_KV&C
zbd?FIRP+^f2M*u8djF}>)(#)ZdYl(dg^b#eP%ljGw2U&Hdou?HuK*u(0G6ndwsuII
zBt8-b)PCTms`wW4AF0tj^7HVZ=6C!lbC@_Pk<f=+XCZT%jT|NZ`B2>hg^GCezt186
zW0LvL6Sh|4f6m7LxlsSPQ2!roz5E?T7*6medNiYBV{;d_ZW4Hn_9w-(!1Rah4e6St
zzo69s?v#1}5e-ZKlMN)Fj~(5Qc`{F;{{t7w5zXZ)MIw9WBy9nU7vXq=I*cEt0Z|%Y
z>SM77wT}XZ06$E4egSNqQ^M>8btq&HNUEE7wk^=2>)HTK1sqfaRI&i<(y1WoMDO~f
zoi?0*zHVz3Zr+$NP-(`U*~rMA|D~2^0O{B#@GcKy3@DjWrj95vW|@JWo_+;-_6-CY
z9S7zhkg5IVI%%#5_cTO7O%5>rP?%U3&09e#Ar&hX*;^3fqHJ1UJjUBVK>IVRS-gk?
zJyyC@W)Ic+by`|lzRFhqYh&h6{Sc}C;{8=$?xC>v_^1Im<~(3_Y_-7MMD!~dBx6pa
zY443zJQH!745e%XX{)@gd&s;~HCTLTCkutl0_f!niqug|0;hBFE}}Mlf$xACoWl$0
z{49DO)b2O#>*sE*$Mc}*lhZBVzw0pBqRrQp8biX&_m^WR#RR}FLTiIJ{W@`C5C0wy
zdPssU>PJ*PXm&JPNEPU;J%hk4C<GKlWdp<Ifaf)s$_eFu0Cd&Iec!Q3Z_ceV3}}3?
zZ3;tA{ji67)w?ccZSilA|6@dT6%xvZ4F&U2Ra*i8ZtP(J(fc+8G=fV^qF1E^mOYP}
zb?zK!Sw9f+gS3CWaj@|R)eA@Z)7{pMoySyrpFu0BfQN1XGJLHs25beXF>j>=D~lSs
z!5QGUoJzwFw;%9;;G~<55AWma+`5i!%t1raaRmiDFrJjWABr&UhpgN_t^|2<fLJ=1
z)CCuN-8OHx^8I+YJ#z;1dCp*~tli5C5dY8#%=k7jv3<N4%5)j%<cWkROR=EfV2*q}
zX=!Qd)UC@fo@=?so(tljAKHMISl<75T&wWIlvVXIaiPf`sIzRFf~0a7w><QLc4^XT
z)SZe=P!gcZO#J;}w*;PWxt=dj_yqB9vWOS&<I#M^*S*!BnUC{;#xSc*bLbEZ?jE=!
zQG)cGE0}UQjuk2lZ}0Nmppc;g`ag+Rd@yAW6<WZ&rT3I8sqoMt3s`lpIQI0Hc@5xB
zQ$8LZFop8?qQ3KWw5O&jXPrN#C?}VFkAZmYHSua)uP1_QedO)-xHXthj2&78x&yeR
zgAG+ICb%ijjE|W!E!uIXZ{50O0S%*E(sefQZCaYCwGS-Kx6zV(4X9Y##z?%~^T%qx
z^#FV54gf3Q7=ZkOeC$ZObGpqx?{9$G_#WDCmI>nqOeW<3*{=zR2xwd4&bzgAGJ)bB
z&`1K~4KmpdeC79m&uMX-Po<q6yS&tkX6?srRelXw*~4gjc|iLI`&+*|{s-~VBFea;
zZ&d#{a*V4)2kXSCfk>fF9k+xybFg=%B`>peiyJ^>AaEDq93prEk)946f&)nL58RdE
z>sIQxBF3`K4ElKH3~qC9l0O}|_LSSGY;4u*VD-8nM%m2WuQ5nVkKjHGqvkW1bILGR
ze3;ne0|Y%r?~wo8Im|;H$6+3v-O6H}auLG*=+v?hzdm#bEk-X4OK}+WVD!}A2c5q9
zVO;QG+*6^d97>t7oPvU>MI9`ShuoGv(`=<2Jd=&!N<>nFxhp}G=~ZMk!5|4iz-mu4
z?h<lh3(<G>sbFOz2;xEfiAYcJs`n3Lmcat|_PGTwm1QCqymVpk!m{LimBh+AlL~u%
zpeyBAGhMrj$d=?^_<rd}G47YA1&P`xf)J!0@ELr2fwdSU=pFRXz`Grz4tOn*J_%Xj
zl<E7klSroqFlrI}Khi|Efr1dI2p!ZaHGia}7Kb%9`<Z4#YC6vgH*$4dYjs;!WXY*R
z+QLm!Z{c7RVIADc3L~5kqmcMFngrKn30o548rkg&kr2c+R~i}W9FSQ06-!s-7aeg|
zP>1Zy>UQg3OYPj3?_m|tLaHPrj`w3}g|9GAGlL72dFy5mx=CfY{ejhT=@`s{QV>7O
z^aWSjPxC-&m&u-CU17Ou9eee?OXtzaCmtRS$t`6Q>C80?>C9X$D<oR-XS4kw>hHe@
zCmmI+7?@%vDdxP3tfc?Zja&_FB+bJO_p1d^CIWy3BWmx*GpjRqdzfT{CBKJKG5~q3
zuBQ-Vs;{9c5{Ha_lVRgBv9+K95XEhPAo>uUIAH2M1zASh%e@G<F3}|JFqQwExMn!!
zTZV=#f{wVDpEfLd?>3aqO)m3=e7~b9LzP#W`%c;D|7!2cqp@D!cQx(iLGwhDsZ5b%
z)}(qVQJINCl&Q!(rrN0tg{aI5nPr}b287IBqL7(45y{NCp4Z;r-9Nu|&ROTIb%wRA
z?^@rs;e9{v=kq+zec#u8-Ph$I^3oug`|5cA;`_=PYMVUr(z3&v7)*Vdn0}F~)b<b;
zw4JUAnh_u{cmt}&%h>xj5Xp*whHZk-K_l1a>CfE~n<U3SoE^HR?VEJ<dQR`LP6-M&
z))e-xI{=6i$KRbf^kqFxI3u4KvICuNc5WQ>dGh2vc$t^ML-flbDu`BKO1Hl*Vt#1Z
zVsDwG4OsXhI>!g(LF`uAmgNu9_LX)taRhBHV%AV>to1e@*q|<B9Q*Sy5@KduNk1PG
zY>P)sSO7&~2Yq(|tGI~Fs%_Y?LCycXygVbR(V>FCP5^7N`U1JXnM#aiROq%7J|e|T
zMn<L`P@o4If4FLhICSn!B3FDkTt%=zxXoox8wxUOFyKWXZO4RU;v(V1f1-hB(0v0a
z$DyJyOW~sJW~T+wA@%hW%fpI-MvbcwWCn)~>1Rg6N`Xn9Zd_3nh8svybeq%0(vkq|
zf`MYzLl$+wvt2O5v<tn=yzEB$nP9OXjQdOe_c*MD8+g+b?@p>I8^&WV9JmMsYz!EP
zj}l?;F&u6qh2yJN91v`MEE9`8Ch9Oz6V!E%{??~7lT50}uQ41R*7w<v4K)H+RDSP)
z8?6I$Z1OW3C*{GDqV!+M3R7Ru40hi>60!(1l4_7U2loX3Fl`FOhBtO00*zU3HR!+p
zoXvMbHmS?o7fX&E`ISiyY?IkvCO6P@J_-0_{e}&lH|AoP;A5G5TZ};Kw3EOIto;Sx
zeUEDT%NR=Ws0k2&cUueQ8{g1h+bLkDuahM(@=s$2g2qoXv(9Bue<Fkc++*M7>+Rhk
zzn1*DlTk5iD<Yx3AkIwl-+wWwT!eEQDr#{L&$;(GhA4p16ecnuc>K8CuwRQSdI(+r
z$xLPPw=v$phAOJh{gpzJukGfw@_gv_XG_!N_$r;M#U8BKCdhToz(5<2F(V@%;!zJ!
zDM<bBxufXEgVete08zvJ9v1ZXRK1HU21!>4xKFB;BSZ)IKqV35p?{qGqK;H4`YSVt
zD)DeyDaEQj`8($0<ELRIS$oreGkB@t+*5qS0aP1bheJ(2g??>^{00*ySzIypAOh;|
z1_If*xFECB>*i8U*eNkJ_}0Y*yn&N=6bDao(l0417EhVLg&=HeW6-)ujEu71CwB{h
z>CE%>5Rv<kw1NDt)0d0JY64s;i7aTByjDqX!q$!rbOfK^M1*X>?%f2*lIK`Ibd6qQ
z1uNi5aIas+r&Ih0NdO?s8d*_poFX~o{3c0~Pz2P(NMi3Yrl0jEsT@2M>DQ#{hTDY4
z!n0f-Ny9b*oZX~Rjr@iI`}(`l^S8MiTK^yd5c}z;kKBro0wHR-Jx?Q0Zab3ut}5az
zfE2ynCvC^yTmY;)QA|7=eoixK`RI;4Xk^}u$obd}QWTwHzr84=Xg(T#2Hw>l^%`sR
z_a9*xD9DZ0*SA&N1YC|!>1bD5C)0On<u!yMX5i|dtT0{Yrx|QT^L>hQSnzvGo+C40
zEqo<!MWuvXprp`4{Fm~JZbD1^GzNN2#f!O{thfhD9W!#D$einI@IPkr@)Z>a%LBzl
zjUnLmZTnx3yoS^|-#-gG00xvge%##LoW4F0+W)ACjg569m?#0|zU7c?05I3E{@in^
z!*g+SNe9zB(f(%lN54%Vow=TMoTzyXuJkwm^RmLMB%&Z8DP}Gd#1WegM$_;$`pOKh
zE9P$HMpl8$?LAgf(kNzi5<dxpJ^j)7i;K%co=gr>8{kn`r_k3b?#af%6UXtq-$UGG
zJ4n?wu1unWA{O7$-wOlEdr1C-<VTpVlfiFwexl#X!_o4M+oe{E^aQ7aiQEo7b2pI3
zPU2J6*4N`S3Cppdzr1NR7jijry=Yq)eJ`E6$08ZVa~mYTe9vD<^#z<N*$Agtpcd)n
z@+X;|96Ln+<yf2pCK%`fCVAx^t%Gqb{evcN{2L6vfUP(H-r1}8_?9kfoRS`-)I!o?
z`3|CUyLY!CDRlsO;gE+Q{q<CzVDVzI{b27DP-Y2W!|Mnph60XrW<+!LAks+hzxH12
ziHC+&n7ZCbG{aVG72qK0W)ZWkVJ(%KdVFqwez^8p-0I<j2bVED#K`yq${$4wR*O}h
zn_EpRky1MnfzsX6Z3jOsbuLq9=)GFylm_zaHX>lg-9SeN58J2;w8ln8ekjBVcC|p3
zey!Ctq4NfSNcy^ApEWrL(7*XI;{E()T+so-+xj*_PCuWyExnTxX1zWG{14=b#(v!Z
zG?jDhtVw2s0ougTQUqP+<vhi|E#y&1Reds){1Q&GKJ+{ap$_)spHFX81@ZEGV+E@n
z){y=L3f7RYM*2mZQp9b?=mHa30P@{FzVsf-i^N2JpyxyBe-+=}D8bN<6Dy(rN##QB
z|D2yE(AB`#Kj-5@Fm>^Dzoc`Q0b#hVUv^ha+NchXu|8&mzLH2mVcT|}{lu9wXPCoM
zqcRrgkiT%MZJ5()-6@|D(;9&JH2kR*`qu4u6cx=-Q#`z43qQ*$p;jk?!_!;Ww%=Z(
z^HWle4*Tg9oA>YheP!@Ej+g#GWG@29!NkZ2tx>zr$ahGQYJB6nuCK;M5|qjD8x<AR
zhE|~4fL*sJK?J)0KF}VQZUhm_&;>b4A(mh$xJ76`)M=$>$zym5A0g1C!v4D%+0H%C
zb_d4J_WQw#JfD}qA&iU|6;Z>MGcuD!`-}j~jEt|LLo)W!#KG%74+&B7*lKZaw@HNQ
z9&6A=N(yJkgJz%o{tNg~(hXGZFS?)j%*<}ghi=mEs~`;wfo+F$dB0!_>$L-I|NS_H
zOhJ$v;zwhTH6$i(3Nqu4{(e>hRVphaF&ZLYc7A3U<Jv+5PB64O`1SX57gBj*g#XFN
zh?Xy6oCk`bnabAG<tZsCKhS?CJ$^=vY#}0|8ZFG5D$VQo`;N+I_McCUMGg`O$&wx<
zjp!4;1AcQEbJ_Ch>f1rLc=&deC>ItVfz^LNUX*kb1=G;SB(w%}JwN`o>JRM>#Xuw<
z2Dya5-6N<3N^3OD>C1++Ca#yGdfQ3@07B-T_`ePgH}zEghF1tDB*`GHLv)(Z*!-}u
z+uPgw9isA<vtmDvmqGP7oxZvg0!-BkvXE!XlWsDZ|IQo#XmS~;2ziR=Z^)~tY{3Me
zM`&nhHZT28D*HN^2aThU9}-LlKQk#WC99kvS^A$NvxaMK>;3mqiLst}MyW>hKi7Z$
z|9ckkZ|1;&;Q#+q<^TW>2tp(F2_qx+(CbgHk?x%U#yp%(hlv>c@NxSQpa^N;xXuxJ
zrp@q?(^uR|oMk0h_FCPgtgYgJx07D~)iD=6iQ^L7#iSp|`X8MH2NhqbyL_Dp&{|fg
zprBywO^2_vwjpyRSWeNSUB{3_pqU)5Fc+glk02pA{tjU9W&$U2siksZBzOyOmJ7%W
zx)hknYdU%C{rI97oX=34tq&ebmOO01JcbbB{R^B)(0gD4E#WZE4a1~zywcOZYP#5?
zxIQ$ow;w!sP%T>%jdxxQ(~!K#TAe<0<#gtMya;)|eQ*Z69XFh8E-quJ^#g5>k!xcR
zko8*74ET=MHn@>G|Kct>_IP-h;D;Utr<c(0Zod0o<KDSBuLg<#X?lS|<{mFih>UXZ
zH1qF?i;iyU5?(0`M8NVTT_4^_QTN{bW`r#PUo*jd>z9dE(~T<*M_+z8_bHDbv|cpu
z_$2cd1c#4R^rMmCOl61DC>rzn?jTg)OMkbT0R0~<(*IR9v6lGSp!52_{tHpbVcUYQ
z0@2B!ug4oe#Zs=*6V$^pYX{l7(8PD8x2d^$=vllf`+s?H-wK+_K(Baekb?)KPNOF`
zy=&3?1{Yj!wUms4k&#h0M3FM?l!A{`67nM8g&fB_jP;Ttmix=H9cJ$sPaa3XE|Z48
zt?Yxbjt~aADyxkK`G}_p($9pjCM|Zx!NfBt+8jOu(a)gzi`!bnjXZw~RFj!}S0?Sq
z0(YS{7Z!&<afdAQ2!#WGxgSHzE!DA=PI*(Eyf<p)Po~`5_HE((=71guWO}r<F*W^4
zXFVDVspule`iCOVyk|f}kT6l&)&thXs(^#>5ElbzS~A+VxzpC%@T;+li_6hniWQD~
zCdmZ{cXFwxlegJnB>mt;cVNG2Ceus>Et*<X^1KmEokI(=WA8Yjxs5ge3A8RQgzpHT
z>sLdF4aQJJ?Mv?+C>Pp87)R>Y><4UH9zySKFRGAu^}hZUlPe?+{+f)~g{D8Fyyp3J
zj#~wzfSBPhShrX)*^T|IL}FM|>#YB9#O(c98%q_Lv;x^=?NZ98aE$F<p`%QlTj|fl
zLUexf6<lYYp%{v`jo;=v5?_{B`Kf>+mH2}|O22=XPAG5#xvJUJjjTF`ET+{e23LY6
zY9rb(-T*MMx|(S=y&kXl_8|GW)0f*$mhAW#2TY?C)D5fX-yCGTx{LhqaOmGD@&CR>
z{J*{p{(Xi2T?fj)ck=(xot!Og4mf#IKFogmEbFc_8+{Urcgx6qy1m3%$a%Tzk_QV`
zEGcnG4^3y-_aL-*Ie+o1^qs9d%UpH}m4v>!?aC2-LWgmFF`M6=h4XhkN~y7LkrayT
zJ?!)SrD%ZjK)1g{gor(@IYJ~YGb$)96D{(Ff9yjN{xMV3I{zOhk^Jzvfo*agocWKb
z2!r20bHIZCxQ7`2V^sO?3)3gp$x-?Ht%zJ!u&UKg&y_SKpqv9W{q-9+hNGSW1joU`
z!qV`Sezr3(a1@;y^x@NX1->6aL^+9y7Fs50M@tD}4@IGPpm}T>H{NepwzAXNfV>aB
zW{)|it*}SufG){|L5lbiRFNu}HKU>z9gk-EHDI)v;8~|9;^~twCziri?sbKm39}4z
zH>HpdU(g(a;(}_FdWPw(cy>%5InK^(#boklW6Pay>FEOrS1eYg`DE|}D1~wbtv2!n
zn)wRETM0N#heg&CD1afA3=0c`4kmtl9<xuCU{@-n8EY7PflxUOM8Xws<`7$aUXxRU
ze>C7zMuHApWg}tyS%`?u0Y#L9KwapI7ZqDgcd@V>ud1rL_9-!p*q@M}qsB~z7Su>R
ztaozxo8}Ti*j%k!+RWewajujpkP5CsTX5O(<-?Kgm6dYh#HkIPqS(9~K)ntR|1x5A
z5`WyfG6C>nqpAZ8AEg!Q(KA1<l{0sf7|PFXaAwNSFa`iXHAUMBKgUp^oL0^)K?5om
zh6rRFo_*$q#fs-mILVx=S5Tap8rsG>ov^Rr(qT{6S@z9D_u?P~Of%GZ^6K3@m#<t|
z2f}I?aJ^FA5jQ4LMG&?}Wi$qZuowW<p8=WpNlTyDqrliayR2rDk&v5f5137<wt#|e
z-ei=f(!GvD64M?;+COOE0%tLjn}e7IgXPiKF8;Cen2tQ?FlCiT9haM0CH3cxFY?xp
zzApQ$(_HV6_Bgt<<i56W#=J<&ipbOD1tpJ<IY=x%Hh$9iP(G&bAw<tgfiPi62&-g_
zHJkFD-Mgik{L-Ml_5vNJiIj3&VIFnU5^mMxM=ZiMvL(+f_=~IZ&o|E&?!d%5I|Mz)
zVkO2Z!0nv!Y1K$Ie1-w;@4lI>nov}ApbSzWrivLuIN;Qkdp&b-SuwMA>((gDj!cBb
zfqHutBZLm)Ra<7rBp5W3Fc%tGYYy2&1zNoq3x@}=r>?YxCdfULO*^HT%8Gx<*bnY-
z3^YiC>KAaWN@Mqro$h%v6&N9)djk%2Q1BU_B_!;}xH?P2rC`@P5M)ZYE#x~rJ>Xc6
zc`OzR{!R`POVa8}P-?_<5-SCRRQCW*xA|^<2z4xUc6jnMzHVN-HWUh5lVNd(n=okm
zB>3d`4P<}OaDsD)EZzJ9^IfKkOoZ2APeZlZx9=q1S?EDFLas-%&w2K^loU(}s3s%W
z6ulV8`>AF>NOWYQQARpM^I}pDMDJnpO)}jN@nDB&tZIAp0<~2drXN@_w}>}sY2j<#
zVZAiu0Q-F2NQ`z9!A@TD0!M5SGP#&nXW8~{DLPoiCL;xsP;L*wr&%Pr!W-Tv^L~M0
z*#|a_7hO$Oa{A}_`?3$9dPDp~p^z%$iKaahBy``!zoth&5TG~V&(LWN10u8+<}{wQ
z;b*qNIIBK_Q`z!cLkN=6YiNLbz8oC9j(N_;%TMPzPz(&W$Werj(ds@hNpkZvZdOSV
z1wqjEwcNICW@e6qgcbgx4{dgMlGI}m3imk9jz$i-K1iUb82@z%PNpskO}2~!F2(5-
zf6k3>16B*Vj*-wMcW|96wZRJ=*ZZ|~eKc@0A`1f4ynT3c_Sdgpi8l$Tzo)+c{eiA8
zGFb!RMq;svLk`{`&R~4S5_J=NJVr)FV#Gnlf$^AWXre2EKQS#h$ECqxX||XQ1Jb_|
z_Wn7?cgKJI8xH5%B>&gk3KC}-oCb)m4P<0-Qk^0X8$lOGW-V0MzMzjt>|I-$PRq#D
zV7aAO4`0C+prN~32^=S;eip`<WWhDqxbnd)r5fiG^d#b;bF6@|PX)+aV@8$?Wh3%j
zB;t+;uHh~&OX9WRWJw&{h{_3GzyNz1Q|8326>X+yw3Q<*2bxK2z2Ceb_+^PrPyoh|
z!M1UTFSYEerJ&FqHCQp|o+qIuFR^Io>Eg-a@^UJq{ayl-R&^xZL(D91d-qCitG`*}
z`CyNX!p*T7S&D%DYtaaZz!9`hOiUdiqz;931ZqzT5&b}~c>1;Q5`K6(;XgSbI*i>`
zhYytu^DCT3WLO)t2;y5w99vT`>QJ01r0Jx&nIUxulsz!qm+XnGEJDoEg<MigqdM4i
zkNYY7i&t$QjEX}%-=wD0yl3CO5~$-fMcbqqe!AR;TGB8eBqZbtk`4!ZN2kz*+Cc$`
z%Jq}aScvppUdqaW@!_Nmo#%tytrL9F^$Hl7l|U3rczbl|jq<B!Z%K3!m3#=@ZEPZQ
z#8c@COTwW6U}f)`N2IP04420~99}fG;Fth|VB*c*a~QTY2cvvn;%B1GK(rYPpYlK8
z+K*)GCVFl}6kE!t2?sLNUt*#1w^1zu)>1fxMj-b#$$2_huDeNMd2mOzcvrziVlIko
zM%weu+qbv3uatghCc9n-Of?*aPtfq%^i57qmfU+7Tqt3UMAF*q=H1;@u)N_oG++s~
zrBZ>l5=+($!T_9Y$)p*WURQD?Y=0SIRTlFa-Mf3Y_qjn_6}q7*n5vydDNeMM(R;U#
zBc4IXy@+EmQD-1hIgn$SGYDgs^{>RJ0?`^U2tdDrbJwnrN)ZS@TR>u$a_;!?JLuOR
zLnBqi9JG*g7}_h_GysJb<R^?l?TfQFl-W~jAjPNax_1b8|GvDmhi!AuVke%(YOE9N
z3K>tfvw<-U4GlX_-l=Z$ugRTnUZ#PyO|<yM<001unm`zg)uJ__<!FE=pbcgP>(DW(
zHeOb8pIG;xT~UVsfK4KS)I@o97=1-@_JY&$x+DVUKgJw55_rltwQefNytz5yHqksm
zyQUoD(Si*jPhk$ImZnSQwAeT~qw`HMrI%1bY<JVu<DA|j8u>YWIbnwoUxVNmJ%b0H
zly8cAQ*2pUf*&r6Jpd6Ab@0;^KOts}AH0%(e*dUS#jdRn8rkKrzp(hc(u%|yN-?_T
z%2ET@M=w7=gRO^*%hs$EEEMj}h!iOLj4-=y-8${q7OjQ-AT!Q+1i;o3Vk{ejPxTXT
zY_i0m7RT2RvhY2TMzITGx@*rq_(%70j%7-N^Yu>2%Ay&U69%?xBsh=HG0pNiO=+>J
zv9WQk+WxNc0JWahsS2@S*Mq``Aw5ReKm7NrTA*h068wc?n_K``^Glf|9X_i<-PYl8
z-kW>(?inE0q?#GOI2!ElG0ElRIs6O91yRzQ8Lx1Z_9Q0|EY|0q-8wz;Y@jH-ulMJM
zFHqHXe5M@F@ZrM;qEkv#5a54&6gg-;7Q8c);<H|AtREC;W4gn(gx?xov>uY-JBczF
zDMZkHe}#OL1_bnj<?fB&RQ7?na+UQNvZz<->FGyH|NQe$aOMIN19`#rX#KIMglL&@
zcL#_CL}KqyP4)GE?6|sX*DmT108`}$Jx*@|;^`lt>*-?K>ly0Q$`xRHDS%*gdpqOQ
zEi+jw{z83N7*mIru4C(<?HLOyE<R;ICL=TZQ=2Y;e+i2eB^;f;HN7h?-_#|3sZ>+Q
zBS<T3!V_4r^rC+nj_VN|WPNxH@Sb{78?Pyey-T%$sB-EAhKGo?7eN(|xL#0&BuI)K
z5|K@6x!AzeAs~{>kDit|cR#6tOb1s2j5J+w1K24LG|5A_P}H}F`kxKzkl5}+pReBz
z+P!E<RC82?fwlW1-|Aoct%r0VU!Z}uYc2NqZKhRIckr1Svn=D`f_F_k4?We}n@$Ul
z!ZZRc!(%pp882YSmo@+~pGvSjm84FdG(f|00`O@0ho$!p88&E*Ji$RoEGELDJn(#=
zlvd7JxEXr8Qlx0Qc{7<P+rXZz%m!wBinx_EI4x5grft3;#gdv?I|)P*&H-cnKLF^j
zZzxBl8QTeIn8b#DOq5^BHSf0xp2BGq+X>gF*h*6*LP^H<;9GMNcdcGX+)yp_bak(i
zhX8bQ1oK5Qo)Br;fc%})sjA&hG4R(XsBD~sUyvf8;SEeovFYhTq|PJ~%#a}OO|xL|
zcE|4XHbED+9%Qh+6rz_!KW!PO?wiSWKm*h(1=Iy?5@}tkydBNq_lwh-_yyCCks|k$
zwUGZj4+cpcy5Hf*c6&ikuEmg_Os%Yny(F(YoanHlz#I~%U4D%`l^77RMpdlC!nm-e
zXm(La8M4^2mlUtlM9OaEb)F9p<M`;hL$Vp-3{BlOnAN?hXdh;c26A@31yXa}C*!>l
zK@Z%ZFw-4<NL>6&x6$y4o$T`=_8<V;F9FZf%F0jC65pFRMYQ}t>{j_^s}3#0VO-hR
zLB-b71<iWm>?)jnj2kxS5;Z4O7&3LtQx7TBa>-ogVL1s@i8VN2_Iv<A>|0FzGoAj=
z`8bTiUKV`@QA3p`4&Uy=r!`(QNX9pT-1PDI$&-G_b)Uj>>N(DrX9#V7Tw7;Y3U?!P
z&Ha$pG~Bs&FDPX-B6~Fvz}$|bgeFqjH#z<cye}i%^W~pcQNnQ_9fTv=?dC~+U3Sqw
zN!DK|1Or>jDEt(`IubDLIE5%A<B2knh@gTCMFFvtsF1-<ux;l_^>oSEsT$Q^+k<oV
zV}HXm<oSr0xVZSv8;c(Boq$wWg0b#1cy$m#lMWF`zYwV-OcSf>Kf~I<yU1da^M^rp
z{<Ck174T&S5BLZUD6415i(3s@g}XxRCQwq0fEg2o&|`yB5}Rp0Hq)tU@H=BV0bBHf
ziAF@{FaofOTO;#AZ*Q+Oj7*@pO0J%050U+Wb9c=P9?hf2j@6|aspWt&3-i-@7zmj|
zwMjMJ1mz~OsWk8-!ofB^f)JhpoweJWZ+u1e<1edst9_{?IGL)MH?QV?-7D>k9e58r
zkOG}$;*Cr!2#sLHH8BZMRU%<Wj!vKpnM8EXWd1@;akSd_3&;A&aOV7`AKUecn$)Jz
zXphm&3OEJnS83F@o-8m0I)&1N%OZdjJXm^=pivFcg`OVKy&*|#=dTWi?mx8#lE7@G
z;%pfK&O^ihBju#thlF@29&Ri+L&}{IXZ#AevJXG<?s$4{h#kcyn0b)&LHT+lD0tJY
zx5Df%rz8s_A|hxQUEs7(zJ)%C2H|5GiP~M<dH3GEXgER=B}d=`DbTsFYjN}CRtqPp
z<7j_2BK(Goc-M`ZX%b_i2lww+Va+K=*$8PKzHw@>&EMNH%s3FUEIo)%#1a&iDiL-`
z%8j?)eogSn3DB)QP@ogh&xCT#yiNwhaj-sjZ1B4i#IO4Rlj=l^4-i=o2&w0hdaLvJ
z;xT{@9|loWc`O?rx;7C}_v>HVlHh^+ff=8A*az2!99xXDgDw|z>XZu{%ju34FdZib
z=f;=;HweIxd2zpmZ<Gc@?%of4t2@s&D-f+btasuKy6)SfH9P&ycArHG9ovbi+M^Jt
zB=3Y6y$NkDz*{6M1GWKmx-<m~Ox%ulITd`u!>o-~;^o%NRmVKYc__4wJV&aD?d!Z*
zgE;@_u-^S*oCbFSa&*#gqWIjLn9N5THUbdX>*FJ4xeW0Oby^qiEN*t3olYvux$ok#
zpD4aTq(^|qm$PBl#7j_|s1{RG!xis+B+bMsuzMG=@Ho1!>$S-Gh@RAyI;7x|$Y|8Q
z*<e^Vk-BvC>O(kdd6NwxM~6Z3hYB+YDLe{ghcA`TBy7Wf{=5mn)ffx#8!xi;hw8f)
z*na2i#XW&a@31Qik#{x2y!p{mzCYq~Zj@Ua@9X8W1Ot1#{0q@A?XV;%xtcCC_MXiK
zFG13KWqhbJ969VFcfD<p<NLP8J`vt2>$Yya_I{w$s?47^f0KH_L$hi$z0DzMM=&|E
zd0*Bj6%nfk95C{bg87M0h<Ziih<mN5b<<7?p1^yb(d@NyC5|*pYoLw9&F2~}%=0B-
zw6}1*mjZ>;Jw*&KB9yd(D-$nWx<u0G5#rFvD^+{=E6$e_Qc}cJF*y*sJ>_)cqH?`3
zoG?=q08<c>U<t@I&x7&w5%(px-Uzdc1qeHqVzEb7R=%m>3{*1y4h&ZP;@z#Mu~d+)
z*PvbevZqI%%xknfDMyi2i^mv(8%jXhBd)cUSf*r$#&#o;4qp>T%FDSnTS$+rPMp?M
zOo64K7IQ<~dH#(9a*fcZJ`ZUx_;oBGa+Tw3QbSbG|Jfi_lvV^qEjcYwln@C%?d|Ok
z-Ac`-B5)!;p*0;Mbt#@Yk)o>ZZBiq-Wyey_2-Ko#rD(wJO|^rpMocGG5+{rZBCO__
zG+Yfbg7->_9e`4PgH1v^p8UcYp@+y`^5Mf{7PuNE6%UJ5EME>sYOU#M5CWDcjt$Q1
z_8+W$Nm*wgjCvDsnLE)=N9QFJptZ#%QN!h5PFk+*3g|D6R3|7eiOU25m<+6vK-xS-
zOl+YbmIA9uI9x?EJlt8*H<>|)wGGB0qOvzt3=w*%&EoRq#4Zt#&I^d7PXh<C0h=vW
zGZ*e_ufTRZjrgX7>R!OC>vX)=_P`|FiFWy?;Ap9qLOqW1`UVl2q?&@Fnce84g<@I}
zEVpE>g87t)`0PN`-e(u{R4iR3?YUn2w7^2=fM1_bf~c0_%;v61y)}Ga(%qV)1qV)j
zw{@WImf6qDLfv=RD|BMhN`|El>0SlUYJ<7;o6sVSf=J|Zp&OyHfns|p@GO5ow2;6n
zC5mjs><UEq`SCQK=z;EB)Pjq6Hr*Ls<h@>eVfPc@(i%8UY>;w3ffYUG!ia1`>cz9b
z%pvO&i^$%Cbgd2r-%vo=A{k_Ju@pa)pb_9;ZBnK7TNqToq)>-33$;)z*RvST(L_=X
zlaex?MDYnT1{K}wc2q>K&KbWuQufIx<H_1vTE6yzz`PK#5(81LCzdt-QO-Ui(lu`h
zbGh(W00M=5>yTL?k&*JLfJ+d{xtMMY7F;^q&S?Uti%{Z7PD)=KZA4283ra?0n#mp$
z9t6=t<p%q2A%a{Uac{^2r9huM4Y_uusXuS<1!wUk`{kJZg>JmD8~VT=j^)#7v2&CZ
zeh(t>OHhrE$T#K9n@UuOLrk9+AQ$)2Yc2V8q86!YiNc39P`?#QeF=Rxgtkk`szNlI
zXurn{ktHtg=X9u~U4r%jGW+nMRW`x`aieT2S<0p&nl?6!A|nf=<WFfvu4d(C=dZeF
z06j^jLSE1DaZo=PgUKZ*{nL{#HI)!C?N-Zg;67mQj~D9b>Mjy}=L8|PGr9d2(aN~h
zi2!#Mjj{6UXtxX_v3*XW?T$DUBdaZxiR$y6yLVOiPyja*Z%*lAs9J)M`ACQCOPv7X
z)I<(tK$TrUXMYKYd-|_o61S-pFl?w)CB)(342`p}RAk$|`%P55X=lk50P$T2qSSeO
z5N;!Fg>aze<IO>s@6Wwpv_NVpRU!*W!Z3c~hZR6KibVJ{&_rQHt_NKHe09LF<Bfqh
zBOO~9yf-gxHoKSSVV#f$)LP9x<W<Mc683W8iZeJ5q58dU+ctyPmJ|b}VN8^$NcMGi
zbv-9#`n&~ybkJ5KQCapb+*=JtRbr|*jM<4D1+q)AhD%RMprwLyNV^Pq)M>=+4-oj0
zSd7pu3>NdJ^cyd%TW>8MnjV0ov65D`4*_zPUJPCX*?RQCo+8%1iBV12*YI_-_Ry@f
z`sWvb!{5)e9WrVZh@QeJq^vIt<3H9XVmku+p^qOhGJ)1rMO5i<RN)&c=eNf`K8jj)
zAW1o9J7^9uLw`%s&UX0L+9ib&qF`>!r>$POk~_H{q#5=#ejb;{=tvYnKX}(>|0)uW
zuwT^oGz-8#B4YOU)fn)x-C}fO{0C-apW=M_^sOaNvLR&b%q1n(P3E~8SQ3zXKc{7n
zn6_i{?M)oVk#7)dXy^$^p=GqpLdf$a>H!*-)Ojl_tH+(#P~oINi`O0*<5xM={C4ws
z!<_eLPPKj9If}El2Dk~#ybi{vb`lf?RNrq3D!~HI85Mz%!4x|H{s*CY3F%C6Ekx>D
z6NXab9Uj`uPOV@4YntcZD9eE*HkpxyfZ@ib8RSCcr8Cz-^SX-7L$v7<jx9}p!}f8z
zfc_%_fuj*&tFRhJ?tMCTYLaQu9|fH|6c}nCR}-5!aDBr_1&7&&tq`8ap|t+n{?gCz
zp$kT*ZyHLibtL2gAy5&u`1Yu#7oyK2q+x(gjLctE;B6+J@;$ma6)<6!1C?1b8PF5d
zCC(A~Q*sp;>5w{cf@tM|+<zW<;7v>pMUnoB!8X9}Ox^xM=aHBZ)Do5WX~>W~gU-Af
zD;wLszd{ViYq1!)sM=A!3t?3e(sd~o{i@K2d?V5#aii@HN*99fLj?8$T<<E$)ze!f
zIuMOq;d^Ti+-Gp&<~#m(E93VD?!Qg)fBGLpzMB5^FJIulz7^$r(XvMCE)x@)<-LOP
zGaVfr@cP03Ug0!zh)#PovjGF|{*LAK6$`apiNT5R_EnIN<Z1ZoZw9*p1&ll4JII9h
zHhg7piX|kBg@AnnVitP8{VIpOMO?}*I^rMWR7;`lKv3jEI)RCxv4>P}nlV?&xr*&U
z_oq>`85P)!{s`q=ucWuXQJ_$Hzz8ohMg2YwRD9iY1Ouq!F%qLmBtHts<*>u)Cl)}u
zO2p!}8a>vMK&H{#o`rU~%-y-;UE7HCs^?FjXMYGkZ@r%Nh3M~MgMp*KN*kCFDlB~W
zu7_Bg*7VjwP6&zm^aeo&e@ntCnZFNi!4sEzZi<*sjop|=hJP_$660)kG|>RrE!y)p
z^ObK1wD*u`ckDKJ6CnT<;aaE%zkl~mAH|yus`O;IAd$`mau^`bHJCyl0kJ+3!7vKu
zgUvQH?#_;mg`zjtzj2?u#iYIJ57?gqXgljk)QF?$nLUS4s^O<loH@b)vbcYx6Iprg
zuaU?2617nc6#eFr?Teg-H=yZv_?azGx$J$Gz?!Eqv$N{D0K*z9;B#^~sO%?B%K&45
zwnXUO^Wh8k^D`_`NxvR~nF20~4My3Wx1Sm8u)m@Zr>+7dY}j@h$vE-p<e_X8xyhmQ
zWB%c#<gt1`!@))IBz6m^<Tj`|{AhbmHARM*b8Qbh`^m!1Xsvs56|Y@#!cWMtGNRuE
z!vw@!DtFf=j6+`}tq7noB_BV+vEB#Aue9_7%%le+Sg9bvT6wuPf7ah5XekO7OrCj>
zy#73-v6q@2FSz7dh1d?0H=OH7k1g<$u)<g#3x(WQM4<)Me=zvd$U`eB!-)SiZb!&9
zy!Q!0uFDdMmTT&kmNg7wOhVW5GeypLlFkaMZvzyB6BvdLMPT9N;yO*>Ajk?6*H748
z=_3e<z~vVTO>yW#EWWYaX}AKviKagX#Rl^+w{gqh2&9CUf5Ng7Q!rZnh!xUjo(nu?
zfvp^yRzE|2hAT)m!DUDZPb2Gl%rZ^WoZXiQ)Xp}=oTf;rhF4Rz@r(3lxn`!OF_a@v
z#5b6>$1n!rf7GFJL8OVoBpN}$;r})2l#+pHB#x#v`sR;!@7Y6;O!AuNR8<>Q%(si&
zJcUuLdSKacfL$Y@wm=Njk|9d4TYD1Fa!e|=lj^rrBE_sYPTZ;0jUMJL!hU<1JTfj~
zo5Od4SdBp&I26LWfOP352KZ&-#~LMAQ&ZD<U1&Wsv+*>ygv3nD{WVOh?ipwGrygww
z2pvEuFB%q~bRW386F8L^u3ZHT0c>lpVD6h4O8{?4P#;+e1**OL{O2H%4CIT5*~bhK
zT0x(<5N>yhdz$5%_3sYst&UMSK=vGIf-2E~*GB=}kz!MvKkhJLpef`ql}^m+P)sWT
zgOUUEp@8`~4N#^D)(7Y0oab^p(1S%z98Ll*z;I5yDXM{b5Ym%@R9!ad|5b0{b5n9K
zrNstlR3oxIXbPU0hS9DZaz-KvOl|>=8d4i6LU_8zR<6;$-nSy8`qziV2}7O|V6rR}
zWX9K8a&szP`;74M0ce3wSS|d1UZFMe3W1w|F2q9=NDRf3IDfs*#6yhl`<Ugm533Hf
z#E3|sXK~hL8>Cdgd^8U?&37{MgkGH!;UciWOCEqBs;%7Dfdeghd6grm+6-8>z<nJm
z%w=FK#f}g^iXIzW$O%v4dw45ePft&61Ue%%FoG}x^q}g<*~53E?cMIQs(L{jy}j6!
zA^jM(Ck|R_v^<d6r3yzewzX+%6H19#Q~31pn2NgcU7490R~#Q38#7Je&K>$@i@b@$
zLQT49)BLJ5*S(pJ0iUkGuAvtz`ms^@^Mldvi~>c>qlz=dcVN|tM>nHZc^Vy;8P#A8
zI{QJu$T<%2<oz*4e9JsQ%$mQYyPP0&-+pb=E(0`Z5{q(gYdlrB1_koad(TIY<U(zh
zt$Q_EqiJ7{VhO4R)^(bg+r6M8Ze4UIlo^NH0T@WF8vFZE_I*l<Q0gc0=3R6OOPTcp
z(eln8Cxcd8aQx}hZEKFX`;988V%ygNLo&ujlGkU#K01K8q=RHjjHJOy&1&SLz}4z^
zbo((8T1uPy>)atRO>3MgG8#J={J{l7eCR7%XkuZJx^(&S1D<7&?~`j4L6apMCC~}a
zEwF{)D_qD@V2hrMAC_rdG;cO0#z)lrkaO-!%|V;#8OTEiz|M+qYeECzmeFGV0ySz=
z8>i;l?3teBw|dkHt%6$nalF0$@Fly5pp~J5GF~ib<np7DhhPMqlB4aSW?4{*EIdjh
z7EEw00EuS{B^&}4Qf#7b!qZ#UGcmy(4v})RZ>fUL_#3g&&t~IoKO+w31kLni!JO_Q
z>%<WAT~;eRmJCS5WXDC|@L&Tp7Tnb9u`vG7G}S9@=|u|62nt_@hflC}i8ZrWP1mt6
z7*XjX6}*}`Jd^W^6AL8RzJu!{60xt35$}mcqOSNTTY)Wn{-URVRa;VNGqQu3>O9dw
z@V3aV9hsLuPV94b2A7{6+^SuMzEUi&@FG@OC=VFLCc#Qn`?S{DY-<l}qG#_PZt??{
zj`*k}ZGbwqT5iX2)b*N8u5h@5giQ`Ccn_g2Bkpj7B`3X)l9*eIbK^OrBi^E>-R4`W
zi*(~7eO)Oj4{<zN+ML+DQFGk0b>yVxlH)D>g_8?Snn5O`SNw{8xHVUB7I#6Ir%WmC
z6(`d}S`8G-qav`fr3y`4`Ha&<TLjS_e})fN4^i9>Tg~#*m+c{6v52ZvX@QddBl^0V
z;A5APzwkS%%$P(pAUXIiRxGRlPNw+n*9JC}qqO6Xc}v=+xr|!ufg26iSpsD713lsy
zWUz_vVQD8n`o;S(nR|#gd(hb$fna%z9)vy=nXnAHP-gB2+z7+It++X$5tQMqJA=SD
z%-UFTS=9c^YUyf|VMw}sCap30Cqi*fT<>glc<higCPxx_BbTF_G161X%h$d4`+<TW
zdw#i~u;!uDcfLciAJ0~dE%S>py3eI{_QY7P3&&1jzl9&lcH-gK(R65t8LL8kT_w(R
zy`1j@Fo<Jo@$g2x8IlQLxSmVgdY8O%UYm_NO6@V_T{f=-nvKc1gMaKR!0K;5ns*#|
z=Tibr=)y^{$5#+c&8witEaM`PD{w^05Y)y+J|D}<%0}<L4(?xa(>aYR?Y&Yio0ZJm
zY4n4;U>hc#^fkyPL{wJ%ME8&|+G-~9`jOIEz{|^G**&^F1Oc_)Wm|wE-<r@Y6Om!;
z9XuI)AT0}cy`IKvt8jEQlshr7`h9n)%|#V!%rIU~i{BY|Uw|@hT*?!BI4>xyKPwLw
zYPl1Tzg7?J|BObdLJ^v0hUiDh>#O*dK8bh48W(PD>ZLizc{<P@qD5Z=2F`9T)7(P;
zi1dnuj=w$}w)e4##*<dG2Yw>uv$Bh?YWUtO&=Q}cxx7JHi9q1!dgfZ>PzEjfYCoLf
z$Fa#fIC2<w`d;DQ@ArhD!+IKSQXFRJ3=+>@Rtk`}($PlrE(Ef~sxig2-i~to$OXq4
zJ4%FJ+$uBy^tnh)isF2^9XD`Myi-cxz~_t_UL$ZLBcdQ)a4TNJ?BhW&fD%WhP}swO
zS^btS_63phr;Vd=IlVTBw>-?~ho$C{6D{cYJV#!n)M|kHN*X7z-5AOx*RI*fU5+)S
z#SNG6PtUohNrpu_Vg$LQRFh^eg5PCY5Fk$U;Z${=A<v3NUg`M~lwJRW_Z0$xr`lsT
zc)lbd;^4Jfj?`&qe-bo?vBrI01v)RBpzj+1sB@hUjQVq>esqRO+85P}=+qJ$0{u@w
zFYTdSLLJ5cZgRuK?bjYQL*XqGZ@ymdiA`%x42)MxD>pIU#Qw-Wk!$uWdeooO<vpPx
z5e80C5S6!7JG6TSA}1?w;j#IdZ{EBS06QkWtpc3}N-W(H7O2H|vhmeq{i-*rzq*o^
zF$_u)hPo~f7{LIuJz0<t$>1SV4M>Pd`HUGBr$Tvj`7i4&G^vjZNU<X}QOTbGLmkyz
zy>zKOR%=W*n$voZN36@g2Y7p5=o_=U5oh#Ja`Nc@2_F_Bt00w2G(Zf(Em1cB&L0c=
z(uU#LdR3md9T#579RYF^GXlAtPAMPYND5#lWj|;q1|Bh;z=1a?W3X44YTDd=f#Uy6
z40Rc69PRWiJIU!POK~rIGOGO8d;=@5ygIIbx1_;PZJdT0n#bNOD5*kmA~c>H9;-I7
zuYx<G!8nlCQQPUeOD_a*(Pq86S4$E^{49-RL<2>Gxc^A+V~aBhzzkXRlw$rs;;?H#
zNRy*BIn_k?KP4NqGl2UH<%`IzJHn@x&tM=ta7~y(Y_wP?z^S=^JTYsA$EC(=r6o#H
z7e1)|I(>X`;+cy6T*xpz<f2)RC@Cr`_Bsz&ji++w{=BR8GZss#J349qp)WVRQnFFc
zo=a2n$GJ+IB{N97<KL8-0lrZ!rJqW=@I*&;`(1&{5lJ<~Ggv7TL=A^ZE8Khr``UB;
zx^*uQK5P_Bj-XHXXuw)lR`xz^XnoIUQnLM_0|(B-<iqnN_HQ3#0yqS7opto|;NGB8
z-5VYC;>8O>FaRxtB=x|HsBgbsSM~sBPTCXY#s!_}f`*gg<2b4}YeQ{-jl3aYYM`TW
zo%+l6;@(`_QRBQq^{0oCd(KE&vssCIxixc?YG1ao$sBoBoojC!KS7Kt9&megqXzP1
zA#P^am*oBqeeQbq?%i)UR~}oCX3+~YOuo8T=R8QJEWL#8ZndJB<?WRC@jHi%{`_-h
zV9@T0XV2+d%x^+Dx|>qR)@owubw9C{y4sKslA^v*Gg$oIzQOG2R1WJj6Pfp#kL%G2
zir0=r6%}aHx0h0l20%q-fGwh^2=V8*ij#DFB0gTs<h_p$E2j)+<$&JRN#l#AN+JQ<
z_eCPUci09#etd~_ZBk+)e0H?O5$i{a&#Q;>Zk~L_t~n9QGL7~aK`IDpM;tB?6lyR`
zSJCKz@E+^+`0>|)gyrjtB~+-h>=m2?_Dq2xTpsrkh7x^1pYD^oIW9T*&@&()mN$0{
zzyQei)+z3JR=MmmGxCcV%FXFZ&&zVs3?4A>?mLK{4JD$ecKN&5==_YbCY_gh)%ly(
zy}G_^z02meZ{FBFxP)#3HL+Xywdc>mZ6?a4p!fNn9SPhkAaDWrA6j>CJH0Tnf%@km
z=W$8iy;<*6&gK4WLPbw9)Oo$fX0D7%^gh$#qKQ)Ge{7mPgZEAOR;rLU)A~%y!_}3m
zCUsu^cam;8cR`RSA@@4b8Mi?q%1VI`Rj_7J^t-FZX;}@#W>|O4()pJV`7b^h_Kzv5
zS9>J$W;iMpZ9SV5_wKs5+>5=+{-}IZ((auN5UI=jIF6|YD$7k0RDM*>51g49%~LBy
z+e<c*=2g-%Y0XyAH2iSes!)!=CTl3^6>n~@d8>KsviD*P)q1+`kmRAjFRd<bcG`p(
z|KKKjmUenJ^{1x72s*5+9k;)FQ=nHyr^ZK3X6xMUW?8Q8{*Ex~_D5*?YN9JPDxQ9B
zFxynpg#RLg6CHDL4ktUK?j}ie%nb%msyT0=3coi~&m|F2O~T~Y^@a*WpkcQiDo@dc
zQZ3Du-F@Lvn}d*xyL+lbg0R(~R&G<q@+6d41{pYX!j>m6fXesyrj7b%r~pwsNt-8U
z2Gh!8VN4YiZ$j4hrSzAyPxhiHt(G1_V&p6Ibu$v!m1abp#_lbz_sQldC&hEtUQ~4W
z^|9i}d<yA$qCDgj5D;joOR&DLWirOuHPp;*|M<{}G?r;-Y#niZsSn}-^~W@ETrfCS
z<ZM-LDTgdP4B_pRCo|?V&%IY(8%P-;3X|583|e~h)o0$d$pvrRnH9Swj5v@QjHCU|
zn-~L#3jf&A^JvXs>vpz{NGlZ}fs@A?kgJgfMh)w=q5~lvABFA*dhILsI}~4>h-7uE
zubL-lR^M!$-uHaYNHPz**!<3&7+~I<SXLVypWDdWFMz`bbo_+CQ5e+lD*5=NjSim<
ze5;iW&J=4L8eZQY-xOgKcAS|ySJY{e`+YI%SJRA`Xbt!s_gyZs{+Kn9xc}CJjO<a0
z$=yHyRMkFdE6c3ZeCN)c9v?Mh-1k|cq4KyBuEt#o&WCpGDroFN$IDwnZijXA{kHz}
zAqJ-!`udK-;~HmEBmUNM>`fx|U<|1xS;VU(g;%Q7xzP>thR!@%IB5+%d<=eHXf*&%
zgvMdKd0jJPEqm+AXm=w)j(=IBS^O|-ZRLTlV4>~D5Kcm6B34fwV1INy@p7P8OK;b{
zM5q=}l2WbioxTi$B-N;#&>Jh-CpNO7xucl~!s-#UMTTrlMYUbY+z991por|8AibgN
z<=Oxw$K$q+z9&UXCz+9n=F`{U@dYVA0y&8Ht23J8i95WH>+8R&+d=x@*`C&bv?lUq
zC-W}TRva(u%sD#|ijtE$1c4am&6Fy!mSMb1bR}oRu*77}59D1Gk?CVfsD`C?y!1dz
zO`F^I=i*ZgLYj1ZRRO&lj19#6SRkHP`Qqo%qep+j+*P##_4zB*ugaA9Ajra|h?s<-
zmS3g#bkK{m`qAuEg@y1z_1kdmLT(9J_)XmCx9t<X^ybdF6p&unqi2XzTygX~JmG6J
zX)1DjVxwr*RR*6-+;YfJRvD#zxuPM@Ng;l(_3IXlmmCl_MG~e~YOUlpA%l$JCwhgd
z74;YnBZV;#%X&m&j9gtg!>{Wqud4bS)*S@e>V<$#6=dkb(0=KPP7=!v3PeH~h0HzQ
z2B3oF7cfg2bM3Rt7bWqX*s^6yW2SjD=Bdn)Ptjs*NS}ms*sFUTsF~&lFvC;_67})W
zMXM`U!XX|N39$1OvU&`M9e(CkKr3~STZ<%=*hI1h1RBPIvOyS&F%{RbE0Oi<gUOeP
z(ec|G&8!E!av@&lmy!+0bLWY3$)E<k0{Y<jlGsWbe^y4y7ht{!G_5!S(SjU7{NvtJ
z^;};UF54kyb^Y0FgRyHB_(__Sh|%e`IK{;b9ZI?G;ZP|ZATStB`Xh+Rgbohyec95b
zkAamVzx;{oiNb+ERd7oP!mCCDGywBU33E0Ik>^<N-nsJ%+|dUQAJ(AZ6_bc`KPj$_
zlVE)+r9hSyE?n@givYq6TuzWS^61eTZuRuat>+H{gvJNF@MNFDddvu6)`%>HapSjn
z&=HJzr??a5j-xSZZ&5ni5VQ0FBf^6O<Sv_goQg1k?}?(<SGV=#K}0qJzhmkR{XxZ^
z&B2{Nrp0Q=?;r=EjU(d^hNAu}a*(H<zzK;~8PVE0)aw(0W2%?P3MrZ3uVDy4E(Mne
z94ZoP!3LBnaBQlaO#Ik2f8F*Z$=6lxcp&(`8Wzt+wp<K3y6B)`gB)O;Y?c9s^rgqk
zEPA|}hqf!~g40BfTTuB`6Ls#7WO(}f#{dE$I3u3-vem2Wq2L|`3fjKiyN}{(5~$o9
z)|2R1Do=WJKibx;k0@Q|_`nvnlX3YXNL%!#uirqSJy|Qk;6w%`yR!k<^x_Ya*$Vca
z0`Ne1Bj{H=xui1~fu=4E=yV;(Sm$*zfCebR0_{{}6AdF;pdwpQTj<@6ZWXT?+-4=n
zx|aF=<SYX@;1yUve@rb)%>F<fa%C15(K4dLkD$e!T^b7jv4?of4wnBpH0EG~WkUSb
zkXc2Zt2>W-LCAyW!%zR{ldiy%xCZACT?^Zc_{k%bWaBTYD8hJCKcnf8)0nnk16j|_
zsD?bD611!L=hH&)vx*rv#NoCR;1fjZW!!{31x}!F%d8kb|4@u6DOFftn@7he_pSoE
zFcQ?pd^abEkPTBlquCMExR~J)`U0)l*WpSFXrF?#Dik1QJQf(1s}!J;I_MlEn{~^A
zb$_7YQm8l9CL-Trd*EW3=yoVzJ^-!pNCanss*ixl+?8dXD*)nS3dZLk&Y%pe9uyA4
z*Gtn0ii^n*42F3T|60IE>L@x%rAnH?WWE!8aT}Der5&k86*|Pz-5mM-AIUj{c8hp-
z4jl)0PlO<lYGRrMdPnC#g+=)q0TDTQ5+#tmV;(CMPg)(rRseFEn=1~0Tu8$LA~h?#
zF?GnH3g~4Ssw!BcV&${DZ5JjJ47EtSRrSTO47UmzJ|)~#&>~^Oek2oYjtv;PBm65k
zFhc9Zn;NGP4JG1ZIQV#y-d&<#!4r{ebFef>VvDPz&SoG&*x&<@nFusPYNGpB>5$N2
z!#QB=14mD!c09#Z>-!;YT!%RF6C7f)zkG3&fL~3>gE>HUse>z#6edxB_)qSvKqU=t
zS}-6LLXO_$e<)dj%V(t!8XHdSl5Bg1gse4QhkD5H?RDl)pz524b)z*u-)0dn!z5{-
zA;O|<1cgu=>w|w9S=WOZVc^<?*n(ZG5|4R~NF2DHF9Dy(l9H{a0rc~5q*>CQNEo6`
zg>Noq@V4w6)jN-O*y%*ha)VE1p$8ed(@-YT9#jMA<HSlTW_(hP+a23MMp}niEm^OE
z4M;UT^44-;BQ_2Pg$yha!9aeK9e<UK4A+~5ueUlK)V4$QEG^!<-N}p)HDjVxhyUbF
z*n@yba9Eoe1j;}Ky7@1Q`9Sk@OovG@2K}xf#(K);RdibStYYA(82bsmihS$0n_uAA
ze1+1K+Cm1Kcb-@nEQVR#8XR*wF{ls@yz7X2k0EONOvreo=zLg9TK#B-Rrgk8prYv^
zs}4*#vY1gxywAmrDUZ?v;>=&zLt0ujV_~yyIZdS90TUk1;a~Gw)eAP0&b3gtJ@S0u
z+1)CRCZN9&9{&|D(|HN2wOs*}y~I4?H87>ON;=pj94lc5*(QS1coP7r)^4o?K(!={
zz?5+UGUw)iT^5V7FeJn#1~C(XZ;r))F_Lk$o>>gb$T5u4exa!AIVkZ}W8k#JZYa48
zC1Y`?DP}VngxL4f$p+<|0AVUYg(TxLB!CpGTFfBLf>Ra<<a2S`RIo;0f`NghKnftF
z`1R<j{seWj55&Swo{Z%TgS@{@CAKa5w^@&efv^9UDI8Odq85kA`0CD{S(?Q{kz-oY
ds8{iIdeL2Jp_vC<v@-Hv6e-!`aYwbB{~MdtJW>Dv

diff --git a/reference/as.mic-3.png b/reference/as.mic-3.png
index 37ba619cab0624d97ea3b05cd31f618b6f2b118f..9fc3045c137cda7cf2d1bc3bb9b028fb3558ca50 100644
GIT binary patch
literal 52205
zcmeFZXHZpZv@M7^%P}AZ5EW1a1wjEN8j($qoRf+m86{^pCKOO)la#1{<RDoxiiji;
z5ReQKwqzt{dMw4hw_f#+_p17Kz1MZA;}LN0wb%N>oMVnL=J!PU+SP5F_iv`6qS{6h
zy(~*bwa$i$YR%1!>+zdrzt^MqYyC~}tC#UNzGg4wIODHPcSKdpsi^2(i9f46dw%Iq
zQ5~WpUA`c16ExUrYq48lZuyr~O+@Oddu!L;xOI2Kj=ei{6h5wUI`zTjK4Ub?W0uDU
z-#<<IarW7%F0NNU)*oTH_v01g5%<k38@FywS*PPKnc)(@>9Baz{L<3rzJTF~h6wL#
zuG0fSLQ&*w%Yhg*4UNpud<B}@9-OOx-xn3t$DkR#4J+SMvFzKKyYl@%;i97}uQ~5=
z<o%YFUvs*x<@ozfmjB8Z`+ofF#i*0njQ=JpdD}1Z2XT4(``<Q>YBllaJlb@4)t|eN
zkz;OJb%-nIS`^)OS0;tIh$wshKmX)nPS0qw@~T53ULET`oU$3cJ}~tUn^K~O)!9F9
zKU?C}k-&8HS`dr2hX-f&Y;RyV{k1m=($a@qiw?UM$@G~%T)CQ?=l{fmt8H%0woE<v
zE?vL&DCyy}UNFCP;&9%yCb!Xd>C)2D?3o|#lO6Y|4a)sa3Jo+SYrBTn_U=nJX;oE-
zQ&dn@4Op6p64qZ@m^I5%KU~aZ)-B5BXPQ5IG(u-;urb_uaX_oTH7Aojcl09j(W9&<
zPf9juSO*_;7`;##%&&CpTF}M>&LbV8okey_vlPpr^afULZUudPed0|=B?BUAqon-b
zY5JGHNjGfhe|bAZChA(SMVl?<I9{ftVd=Y``e6L*IE9Uuw_#-LT2!q;^S;x%%F6}6
zJ{?F{w$E2h)05FnUYY!mA6uo|Sd#-yvPt6p?7mEIqM`;C#;cT?GmI@e3Re}BdmI#0
zU7jfs-c3t;%(dwC>r1Zvi_`7XYD?JziM3>AartzEI+tXDh0!9r#mNR{k~=NO_L*1d
z_cu_-IxjD&Cf~eL$k&QFjg^ntDceXs_37tBTFtL=Qi4615)KZzy%jIR6E$*J&z)<W
zD=6=gRaXzH(!nawtqMsfVQ^O8Kz(rQ-b)4su|jh{87KSe%5MvH8adZSN~YV6_i{a1
z_vbN2KW=Q>sFG`w%wDiC=2EIbvg>?Ed&aU~{#@|2#b2JzTVJ&JM%2YA#oew7+2L;9
zn4)9w_0@&XrLAM9Zhd}^H^iLsYR<7X&BMYu+%VsGJ5;~WWz~gUv1Fg%;Dok3`+>aa
zwk=spcjP0K|9qmf?emVO&r1&4OW=|U^HW3Vx|REb1??5t{l&AgvQ)Fo-t0f4ciop>
z$l=|i?ewu%-1iXEgQ;ss)-LI`;OnvAOLty&YPD?8P@L^4_cz4Dy?J)GDnziqB`dXI
zImG72CgbJ|$#dt<VHKJ21@oErdRPs&#JoIxI~G&*M$`0=d2dB^ntpA3fm()9j4zv#
z>X5&;cR2B!l7T$r&CTc3@poOt%hT!BBbq(Ey=6USF|S^o#|rz}pyiz4cT!DN$93zz
zu&xqM`;(@rjki3!I7O`6Y@;TZ--!FGE>Anq(B~Z}U3p|GDJC06y^oJ~U{W6@=1r+G
zA3Mgz&VKF5lP3o4`FZt8TBg3{XXyfXj05`X;-VJkrwuy_|BY3M^ZU`&MZ>_5w0_%u
zy}5}#O-5@hSk>6?9-RHnnMsq@l>yvX$?SR9RoM$;<-R^X5%1oeEiNfx!-)B-n>`tR
z*R}nmN=ih9Nma+4vli`+(<;u>!>wwD4T;3iCrpWpiOB}?7*Akj+A}L%l8IA1c~UJy
zLU?&0m3S|)ZE=@w?(W`|x^noqx^zRO1hvdBvCTbZeF>RuV`@>9p+iPIYVz7Ekw$b>
zL=-V#vWzWhCXc~rs43mDN^sg{aimsCSOHgX^z(Fgul=5^olqb=KbR_8>>m=6`1Am;
zs<ZR_P^Ljm1SzKfL;?+)qB5hrH<>(9eU)KWGT>85$v~@hy8`C=QsQ!Cph?X(-j)vQ
zP@DS2sb*6(Xa6g*=|_tHglm_w`)f@f2uyv~zHl|$u5I|0$kY7>*p`K3{+f0%+>Q$~
zcWHL-_BoqREi_XYFkGJy*pNUK*3;!FoDs?3ym0qTM8w(?p)X!U7c35$>g*J+i&aQ?
zU@ao@Xl!h(?3Q5io|RO<nvs$<wM5sQf7R%aW&gM2NPerqy%uL~o0+9Fv~PC}|ClMR
zoNa**Twa{^kA5aP?(ntwWM<3G8ZL~_7JETkTU*r(qnG(hbA|~TIf~7hrVTN2QMWvP
zu~P1wjqlra>{_&Dp52WkHou#H#`gRm<NE`LU$^ib5?XRz6IokRQ^rNd@o8^T^J#Ub
z*`A&Z6K4<3rVQi2$xO<npR2P*KWr&dE#V)@4R>X5Ql6ciy-`eSGOO&iviE&AWa>SB
zem(rIxLW=hw`bcE6cbdl5}HH9IBDn;2BmJ^y!m;+ruXITiNZD1@{iZ*U-^$WZfY|>
zUwz9=QBl$7$SmH_)7||bO+9*34dT5)%e%Yv?ZJGOH6I>snH)$e=*K?7HpFJ+`lOuH
zTN&t@zv@P`=t>}cW!AZ88^s0dHr=SPCR?)T89o0u?9J#Bi`gE3L#$GA#F`D;A6SGo
z7P(Tp$}dm!)h6_<TC-jc5%9uQNd`U(mWb>k1+Tw@)bn9uoB3tRm*9jx{o2SYoaAMF
zY%=b}9)GPzX%#<;-7m3bI?S3G&MhyEEZ;jSFBQ!92K(4mK2xo_S>p2PJ%8d<P@w2&
z2;=(gbb69ifxJ=(6i;rRd1z9wXk|E8OsgetVq#J_w%zqomC(GAsAZ^-V^csz^U#HI
zsi3o*5q5HNatVE@x2r_BS1#wWcH~?bVp;ZFe_TRAjzwP>0=)?5k-kR<Or)`@nQ4xS
zBV?cOFYif>=M=%xe042EV4rMjNb}rq&dB-`IX1t3Jl|FFbU$}WWJ8h`L*3utvNM<R
z7^AmH5nfJS`tten*DJId5tLA8P5bF#-=fa9y*)iW7y-w*iCQT{I1Xa%lO(KiG`x>V
zWh{ko8~Qb+8%80Hs8Y)z3W-TcH9X~Qi#{$F`9OWzII~q(5~-nlKevI;)JVH2^K<&`
zt{KM7k@h2bN*Xy<+p^jWlk(~VoPHJ45=lQPgRSa6-Pv<-_N>cVj+4HVndLn-TFY}v
z+$Jr``0%@T?;@(m$;y&(<p`(6IsLX=Tb=#2T1#WJNow5jnt7@Xn)V4hckQA<{>*7j
zBx3G#GCjYQk?7>q&+1E+fxMYZPCdR#7S&g1OLbFKCN*t)eCrn<yKXxWsaqMaE+G@Q
zCnhFFX428sCDKSr^H55o5%K@#A%p6$D_I{`;N9~M!4ivsddVE?5yd#ggfM!yh!0-H
z3{EqzKY8ril{Of!k~;A--1CuqQl)OKb-N?QS9y~1#$U50&@?~h!Gi~{bcjIJ7Zti^
z9+{Y2)cL%qlZEF;R{YA6q>8=FPvuka>FEJO?EI!|%QzxQ6R8W)vFytiMa;h?#xD*a
zXs(E1>D2+#Tp5K}pP^<ZAtB8w;pN=nf@LSk5CN5ON>u|k5E1CDhMHp3GEK6_zwj&M
zSQ%rIAF7)Y3E^&+2txklk-X^;#dzh{*fen%4kFQ*<o*(Ab($ZFRZ7xS{slxOw{PFR
z08Z^kdrm073U!(zm3T6Eik<kg{?BF>@6(n@yZ`4WDyj#bYG+oy|DS`yM{Wi3nkuTR
ztH)^3^I1Heid=cO@9IsOE8jkrVfqh%`agc$j{jYN_{z-^^?>4`f~C2*L8~16$79^I
zd+1J?2iA2<mN~JrH151#SI;wVCmAXv*wp#yfq75ft~isNA)dw|t5%2c%IfWJE}P^{
zD&oh<!N$~z`W-Pmte(o+UOA3fdc)>U`pw43e^{P&qwhC}?>b5q<jrIB{rY6r_Jaa@
zhwl6nS=K_W1%QN4Z^|^~!1NTYqFQ_Y9`C(tp+X73H~nq)BXzz?nlazL$txtNDj-$Y
zBef@C4XHOaHahw9e)`;b2mkqKf9omV8-7sG?x&RVoHy1~RQOd-)#kwgz^ib2Gl^)A
zkziz?wGvD7_Q7ZG9%*__n|i17;yJqQ8qSN8)!UhkKJ8^&0{V@qsNeO3hc$_K3=KXY
zM<Y%B=Amyfa{D=NJ^*}OTAD7P4Gi`5RS46bMMYEGAAp*Gdl@Nd<MDjJI<;~Sx^rCJ
zI%4KR)0F9g<vg15udgo^X=;))Oj=`!Kt|+}SxRV9clRv}vlLd-*CJ}+c<1H$b__%4
z<dv2_3%}?^_x!o3p#xU&*P`TzT#7uwZShl@C@xR}h+Vr@uj8)~nKPU%uI2FSiZX>A
zb-=?dv<ASd*&X+`_yh#RB3WrJFHnRp%`I@azYs9~{`P{W;M5D?{?{1Lx<m~%?BCjt
zPj;o7w&(Ax+n1<a@=RrZ2w<ju86P<^T{13uFv=^%ao);M5WnC^os?f2viPoye3@Tq
zTI-4;xeAb$FB-u}HQm6sw<=UCq;oaZ2OVjH+h2k>r(3N<y>?INq&8N(;MA6|va(9H
zn;LF4^c9zq^8DcEllQw6vN9`(ycWEF=(+Yq9fuJIfQuV>N-Z4z<upTI^MV9yYut>#
z1f8qie#{8FTX6vajn&)oa_rMG#(L%M#(Z(V6UTW9(uStGy`}b(bVobh3sG+C>iYdu
zM($uyYzR7M{^8jq=C7WMT5v+TFvW{6bUwv?+9au`tE;QBG4=K()%q77tOfz@KMzd<
zp6%22IL^YtA~R3x*lJdO@^DE%kIiVu^ZrDc@JA~74z^$Ct_7XF0d%|nZK9{}(mQo+
zGa#iGNY0X9?WRZC8O(y2C!0+RR0aS5+vAsWy2k4=-Ma7YKaTj8UY}|?P|u|%b>*!|
zYqpuAr;n?-{&KOHa4u8mwoeNq^J<H8lTT~=P9)t~MRg<gh))^tg9TCgoj!d!0!5r0
z<_Kx<>lTjO4(_BIMUQ-YmF%6D#zU8tYf%Wx1O56uf8L>RR9ILGP`8I(RU!^+A3%_E
zPzU%d=H0t@T#qBWQ9<ZSY9YnQctqS{f7fx3%h~kGpHbZ%?<iht^77?NJ0KQjl9bTw
zt<u%;hmP0^P3!c3iy<>1eJw0FWT~^CRDOG&`0V@afuW&Eh#-2vrH7067+wPi!5@7D
z@a(B3Lq|Up%QEA=mG?FC5wJ7MO)}%8LWOh=dN*U(E$bANeD&mcspKtq+ib#XYHBP-
zJ1#g*)+zN@hhI&*w3=$B@Z^56PV6>=x>(-^|My;uR}H#8JuR!K@Iit?wRr8?GpwvQ
z%w`;FB^i&ibJ%RGF{84triPkn#fQaY9Ry6pMNy`wMtaioAJvxl+VE)GfiT*)3<C{G
znUT)ZIqiT}Ztgs+Y9T|Ir`E^yi*o}><tUU;I%N;0l;87X5OS~)ElJ@Np;f<g;j;F&
zi1;eXx^?U9khGadz)kVlRzs|${k$gXqUBNnXG+C}k1{d+tW(me!$T%qPOj~fS5))^
zvZZyLYP`K)z~(KPOlBhS1fIOk513W0S_L4o;5Yxno#SGgW@cL2nWuE;WVg_=f5ZEI
zgM&{-)gH$tkB>iraW5PYY>bj(z$AoP3Zn2(G|L3KCa{%{zyC43?2_wt{m;)2D>h;&
zwwk7JlQ~JUCMJo%(}oF2C?SYMiM6FW6et&UO~2TUW<Q^W-oyDFHU4gPL8~7>o0+kB
zO3$xIp7?r+`j<8zmAte^$H~Lm9z+5l>RYl!F^!U5DVaG|tH3Eag+wA5e1H3TKaWu~
z&`%%YTs;V?GXCz(hp`gLGZ$T6?cvZoL5fvO2*51T^yrD<Uh}<~P>zTnKYm>1S>(;I
zr)7RQj?L+YwABn>H*ek?Z$B)wG}CqXq;_iKk&GqL<DTQQV?E^wa~rnPMH8zHsHf@O
z-Ehot6lQb1y3>aTo9ZX<x!-ba&68#U%3@X1WATx(?i~4N<E!IBMxKZ+7tUdX=Yo~e
z4HPDUyfE7eMUS@mzI+)23~MmbmWQhCi4xXQmBGTyFY@N;3wCzd1`UbEl}SoTA(0X<
z!&nt!^^n=hs;U~UGB`%e59cIR+%&VtLh$kOIvg`<5HLB=K+q?dy(PuPeYxXb<XpGY
ze|vptL%~3zDC>{An-66ZnNx7Ia7|O5eI`ogB*Vn4-z=Eh_2^rhh#E^Z-ytjF!`g2F
z+=dQL`zCr~;}UC7GinSjzYi(wAJ~+Gy;d776aFn)hH>BmBeL68yO*z$vI%M_D%438
zdruCvTa~!&G=6hC#8!l0mt^JS6jF615ria7^Cta}Xot)-Pz@y4Pqr^FDUm0@dC=HP
zUnL!kRwUb4jkG0v{CF7|ezAwcd6V)os2HPSN`7ueG*X>m=ZA*`kOttUOuqFaAT)N^
zmI43apddQOvC?Dx?F9t{9>yg!Y&sv#IWLba_W_NM+S(eB+W1i*d_x(XP|ltsfdByz
z`w*Zq3hVJ9ouSG(%YL7floTdXYmPOCr6Zz0K`hnf*;^CW5|fblwvJZ))t6xY0VGo;
zJ3G6=9jc%95~Zh<@M0QLcLcDcR7^|^5i|%EB|$T<X=IE*?@Te~lrM@Jh?n2M=fq*B
z1v@Xz_M;B@ETzHD!t$FHAs8-H{qh(?FgUL+++Y9DLd_k|is+@rxM6&3Y~uX}hG;Aw
zVvzyEIL-A%-RxPze1%o)z&iK3z2UfVf-kDYtR=)H<*RZV*2{yzBJ%I@e8F<<aBI$*
z#Be6DTAttZl1i#>Ut-R14S2C=U;_=r#r>ysB}ApvtTRph*)<%#P+Kz4f@WhKxS9j3
zelA{zjhu2el(xsD8LLNR+x|0OK_gs$`qmL>c{RJ5wDfhspg2r*F*zqW5qsVaaVMd`
zQSh-*U(K6(PA-#{vq{~FQQ#3uDHbXpnP{H1(Vy1!n4AVHH00YNsN|bbb+`NT4$MF9
zy<$!)RkzY@@&K^4egS6?f&fue5DS^WF$5p_!;S5X!_4R_O4-;T;|AFpq5R#g`TF|P
zTDBuOqL~V(-ZTpFf;>ED-Wv^4kl1Iah%7-_#-LU}0Ez~3qy44!DdNo=6-p==sAFN4
zYp9MeU7Q{hq-@=LsxX_hh_$`ni|>BxtM>6#TM7JXO9{4K5Sj?Ho9ypJ+?mQr46_7g
z%~Pfa50g>GAAD_mrpt4K!&i}u7w^piC%7dH;C0*kF3=-<f7+`JST`x`%sbB^De!6U
zX<)v%mJJLJ9oEhtOG*xqB0=m4F|_&m`_tBBXjr#e_5zAIO}jP&CQG6q`#J}FB6p%*
zx}AT1dW07>&9s`en3x;LMe(o7<u%y9@iuKpdpjGtEchys#V$2n1#vg2QiAv^fgN+7
zUD$bP;bys=P?|0x&e3DXN?L%god%TO-MLXXG>bqf0i?F(6DJ7o0_wt1hwtBjYbp@;
zBokEA-Rka+b(h}kDVXg&P;gh_0ncXU`cm&>t`nLs&fdLQxcJYrnzW~!pBCoZmwBvm
z1Uphj^5+xVC+#zmk}|efGR%*G5ZOzL1eRD;Zu{w<!Na%T`xIZQFZ<yz+y^WuG+-?p
z#LmrK$G1HD!-6lN2S||N*G!vD*S5GN6tI_bm!waqzx(QT1NT_m>$#Wn!vNhLQ4p93
zDJm)|I(xi1Kb_FX{>EC1qI_pk`Ce_%^LjgX?vx;=V`+XwTtP{nAw{vND=p1&d({Tv
z^>%`oC7}jk)3)4KjxlN`S;ZrlwwI@R4w?qP>Fc_hW2zdksMI#kE^AEFf2m$9$MMr%
z^PgW|zjD0bOmQa*-Krc4U0#Utx;1FUPp!7bW%J{;rkiY>8r?iSc|pnUh~W)lYW-Oq
zem~^<uAMt8u+JS5%Tp7hLhQ;YV<B2iBUzM?=X~eM6)0-*>J|2EYODFE?ZF9vjfpQ|
zO(no1*r(ZEvN$^@SpqY#;6&P*uFX=KW>8mloBX|UT-+);STFNV8$Zz6HdSXJevhKg
z(F2AmfoJr|H06Me%0KK{HbqNoVgVZ__t2hH-90u2VnRH*hu5S<uX1^`i2A<JjXdCL
zr(J>}#ybbOofd3DEp76ti3%j}!GpD-p$CSiV{XqPY0br_hNa1{ByVRB66jWD{Pl69
zCZiIV`=aI&vj611`?u$Z!LWW`kZ!6B#d-u#{{HsHs&a+ywWcb;Rf2g-a|88!0tIO!
zEm^g5%PBhLtLr;w8UIaMRNhZ>`2Bpv=_+N;Teol12DT%yGM0Wf%6LUuS2fg#pI#Q<
z^5B#b`1L@c7fF`oSGEUdFEG!x`Me>iD`KO55mhn)YhP2SXWnZ9noZ6+u~rGCBw6}p
zcrpy->yxIn&P-`UG_m@uHD$`E>M?s6DH-@k{;CR-O~L#yzu_!Mk98-uP_Z~O*@zd8
zckeB&KGVt67x96E4{3rM{4p2irMsu+CBgV;Jz#nXSUsz*RGlp=D_h~Q?{o!rg1e<=
z{_>K2QVM2+`>N+bZfGHA>9(h8mu#;E*>9NNYQhV+E7Z`OsKL)zO3bn;|61`;5!R5w
zL8AfMQDmjS+*|>}HdJy6J-kNWJ9z8yvw8W+%om7dFF<hzBIR|NWubiL!lKs&1rmu*
zQ`B(Zb8<|j3Xwi9BL<N7sGwkLY|^V&g>=GBEe?Rfz2JK}6z(ap(k=cPab9k=8zJrt
zq=$Lm8-G<Df=w-G)~F|lI<{xhBK|XGz{W{m7W}oG^q(CRG$3G-v5?(F^z2wUhot90
zK?x_P{Dv`b6;lSOA%gY+2+e^N6%xd~)%Kks28>NH{uHW=(@+$OZ@vIaue6mXuu|g1
zsrR>T-P#*ftB-3+0P^U!yh~Ov0b^O*uYxL_y8ysW7c8aj^3q~`#w}gl0Ehzt0ABlJ
zPRaDJg@9tSF_wdtV~bmlw^{8w&0TOLUFNOwQ%+r|EWJqlr~3N(dQpri&i7C#fr9o^
zFJ!_+R4fI6@`MI9D(E+VI(_`b^XJ!z2mz8n4|hV`HFAIbMrl$ca<EW=jU56PgYiXu
zUM&Id$oC?RN`F>yt2(=X3;>$fE$9pKMoS<_O(H(*Q2W;bT$JXB>#<OWns{*iraw68
zs;`ZPoHPFv5gECk)Qg&LQstANTOLZd3j^Z|H;UVR_jx@o-Kz~iZ;-&o$XN7Fojuj&
z*G*s^2Dt=PZaL@*wFzpx;{=sSFG*Lr)|BL<a4+)=;#XC*G<gyL^=(;0v`mpis8A~%
zpT%cPDrP_eb&5)+NpK&O9fe^q^xOA4+fH~fHkKr@IM&{oBK87PGpn+&fNZn%&##9K
zolrAX0&+;AaG){AyBl+?lU{Oai+p9!68~V%zvijv2CB;&Hnr{io~G|@X=Xpu>B^{R
z`i_*1s%19*n6PlWItnSpb6SkM-0KxA*2W#H`tqn?2P-zs)_q(bS*LpgP3KND<U879
z-48W4jLh9*wqe}oN%{HX{rwFGv^^T$JmAP3z1M#B5||W8K+ZKLzgg4-b71WoNsK|$
z&#-$iK|%xP%(@>dn9PiJ-YD5|eAw&XVUBad<%(<a+>R!Jk-J`Zcj9OD+xk#%Z*68B
zrk7df6hA$FOx3MALZ&HTWKv2{)$vusN^8hPjU$(5XUSN4`$$u5XOZigqZ@~_2iOgr
zfPU^h%fI7qiaSZRrHOfZuXz766h8Y%k%$M(iQ#F+U9;;FQF{sr7qt>}x9_B7Uv`e8
zTDn1x`7Al38Q}0%0`K<(dVyV6$rt%TOi|B-T3+FMuck;b&)jx^M|pBSyJGo1wb0w%
zP%uT;H9Q5z9xL%@Yhh2H26cbtv~I;l``sCw)smxp!PnSGss&Dtp^VX6HgCRnG)({i
zl;`?AreJATx4&M1ot#;9Nm}iyN}8G>4MRe1`KbFU?ycLhP_N*%Gxv?)HO4y1chIQZ
z!ai}VEsXkx_3`?x2A^rG934=BZ}2F{o%`%H*yS1~Fc;Z5SfDqUBmJ;O@%>z<SCdc`
zn{XKCJz)OS`neL1eR9JC8>rTb+{;|+wD9ZdK=;&OYL!TQ+a0n+zR2oX_v(hleS!l7
zW^cDkNli^KL;l|S?#t=hUzDfg^T6dh`W-jE$6NDjubfRgzco_BbdY7E9iqk&E9V$b
zp}EhZ4;eSPl~q=z*S8~0xcHaN?)qYXO!-)A>l5RKM2+uvFJG+Yc=<Y)J^N?a%}E<g
zkv+pY*#xzfpwsTWytvcU{Wf_75N=Fu7%5mWD=ahOj@HfZxwhlaO#*MEHhM6fhMIYE
z97Kb50)=4JRQ+>uldd^jF$lk&{HSP=dEwIm(-U{;-xwdLx_tgE#~tB?(fbPZ4UYV+
zL-QYZNzJI|M+{BDVenv~IFG3$t-$<p#I9T&OCjq6sJOjufnIQM%COI<j39a6t4F2J
zmn0LOuZe*;!*4yj_1q^tW*ZH5f6D{G5fMzN0S|`ujE#>c%&gW}?CO1)7K+XH@?$r&
zC2mHVqm6*Veb3vPmlsEzi`-&zFOQvlDj&)iwDty~a2;ifg_ap_6`Qu(Gl8cf4Cly>
z3(~%p?PtC%(mr*hO+0U`Bhlex!<5MZfxe%DdM&Q|fc)lR<17>|;VDj3F3!I$eg{BK
z=pzfz@b1KF-g{>WNy6UH4)J?cd7Irpf)fS&;pYISj(<0-uJ;D%2e@>F48bYVMd~3(
zOv>Zi5Ni9I(&L!=P}zYwl12s6`z1JTX6Ea5uXd+-N$;bQvM74%B1pR+<k|}!pZUT+
z;v+xPtv)SBaWt+4V1;HuTf-+_mY1*uh$BX}z$WK<S`@0~G|N1wgZQL0=seV%*+8SD
zj_S9sa=OhvDSvTFjSw?e4X~o10*+)RK~1YiEkti6AlsR5m3ady4#EA*o(%Nzx*^$+
zpw<vzb(ZcA>x2YW4`3gKLTJDj;w4JR0Y}9*Vl+_lNvu;&RbRf;gB@ZfA&Gp0c20ZB
zscMV>7y(LNO)SdsSGqJIMjo^u<h1<x^#T~v;*kDDgljP}d)`FNPGdR!=A#&Pw;LE9
zLZvMnLug5fba&FUMS9U@`errW(_QLaZ((L;rd+Pbq+=^oRa#1@>`Ww3%Tu$Bnpgs@
zR?Wub2nhM>9cAZ<nQ=skT2@w8gS|0<gd7KHLQGOJy)0fi`640L=3|d-G?Bao-e%iA
zuFJ&OLo)&^PN=%GCk7f#P;G2e&4kbu32<7*bd+~`o`RhMS}7>;-H*))xX>RfKv{XY
z9I`YD-CHLCV@A087!>4t>L_O&X5Q8%g3*vOFfb?_e?t*E2YRyIF1-5cGkFGK#kt7p
z@77m*BNNKZ=drlBwLfho$s(l_29y5u2F+TC_Le9^-u_^X!MEaL!~UzNSl92&W$t*X
z{{7uuZTXw;eulZP{^IHB*}&|teuP9UfWj0|9@G3)r}ym<`%u&><G;C}MMPEQ<1Sj-
zC~Dz_uLI7Z&P!Pa-=cTON)Qqd_IEfcjy_<<uYf5&fq`tUMK|&U_<_KMnESBk>eKiS
ztN69hpLQl_vQn|#kBE6HChLSGNf&&zb5emo@Jyo9cl|1&EM-;ngrtx0Aov+DKn6`|
z`u#O;+=<UYlKBZ0;n&NrjalYVb+*gR?Mr(U57;yznQ{xFUUks{rn@d_@033X0Bl!)
zbWc!RC>HA3z+M6C*Uwj&hk`M0Hl(+o8cdF4updl*^~>JRv_Af2L$2F55!nvqR-xqu
zbArwy*7?k@uHS?TG^lC5Yl5DY^$BXOsmJ|lG9+=6+=52m-@fV*+?9Z&G9Ex_%!mHR
zkzvF#v_~Hb7j@r@r7Gv8E_2%|rb`ztTo4_Y5MXyZdc17RLCCaCz;Nyv|L~}qN%v>3
z-(s>JP{QFl4e(j5cZ#;z4JMbIu^v{}(b3UIg{e96Qh4c?r{;*KTNpea2pqLo#6Dzl
z*u=zy3nd?1)@PGUaaN=7>jbYYNr?6mH_gnKsZgydAhi*)0b-0a*6EKQKW=3<TY{N2
zBnSl06S)33-xs#9nuAdxWwBK<KDY0E@4T~CP|I$Lw3>M^3`_1ZgRtN4B^M&rtk{$1
z2&~)y@zVmSMGrS)*X?!H0-J^n?kDV0VwpEAt)U9y7ajF;p*)U(bK=3GxCzsPF>$--
zf{bRPjG9N<n=C&X+HT?w$!vFO9vI=spE(lI6Dbv%Sg<sibfcuF)cm8Oif7x&a?7*9
zUv8FiX+253?#H2JBDvv!&VG+plZNMqFCm28(7APsATSBufs2dljKMdSx@eh8NI$<+
zKb`jaIjeI*J)|^j&q>v_C!lc4k{*(ZF<LY6jOtgehS=8koSQ3Qs2aOcz@!ktvw2S(
zljMt27obba=<4czPWC<XUacu(7BXslAL@q<CzpZuRBOQ<|Jxu?Wi{J6;-qBMcztM(
zC<1>%-yNq4wxQWba8>mdue{Vk1g7T^{wUl@C#opJUM=KruP&@95OzW^d(S#uuV(72
zM`+I36E)(K_(^5Jk}o(w(B7(#=g0>$bMv}4;=f5|f^9{HI;LUOsB^(T2f{Zq3CL*+
zUzshYuHK?r`v`d9G1lo8^D33nvM?BQCO>T9P<FO=x+Z_wYmnCOYJmu=<Gt^pdJ|sa
z%_W}c`TA$3HJF-MU!;7`XG_YJC3IQj$8;o0LJfe%@*JPfty{6TE<sHRfZ21#?#*(r
zocq%E?NpER-F%<A@A&oWS3R>Yv<xlhMa!&`QRr0bgGS7<(#$E>NSp1Rm>$APsGmU5
zbl-1UVy{oJPL9rwDiqCnmcuPtQ^dO<2{T=9g~y8cK%jh<k%HxXLIMDCM20|kHS{UJ
z9qQPdd9aG(6&MTZY)P6rfV#bRBBY|Vj9UC@5Sj(Uf=jlrzdNsyZBdP257*1_ft~O2
z9p_n*8dxc|?i;JhLyFSPdc;VwV04srmiog_Cr-|WygBJ?eS#-Y@><mCh#d;UO4U1f
zQCB^ex7oVxfJ~1{K3r+VJ7a$XRJ>YKaPDU~d9&vTs!_v%`h@zQ8dY82f-n1tIk`VV
zt&We3*RN{cFmuzR8l!q7X4LARVVP$p!&7;n)EqQp4@S4%`$e};B_z{a|Ld!Nx#<na
z2uSaCJv0HbX@_d4lp^$%`g(}g(lM!!!AV>BotRQj?ja{?`L!r*4O+9)u>%r;{C)?E
zX{i>{ov7MA%f5FUA@g4ws1JC#k;vFTc7}Y)vfs_+b>FJ3JM0h=N`l8qLzz-ec53ri
zV8}Y-xS%{3D5Bj?@-mFmGYLh=4HtR(E&M9AWYAd|d{BKt-f$M>U=o|<k@t@C`(kF!
zuckUb;ni{S^$tc6Wx{Qc3EWw3xp>9&xb!#F`tf}=9&g9#>U#1yB7_le2{kq1!-ESd
z9=%U31c)mxc0y~5#iZBm=e9$|y*4+r4jI?S*O!?TaLzn(IDg)RFm@4^OBA0Ck6po4
zK1h>Hf-~)FHOcoSMeqWs?s~2R+_DIff*6?k_7MLR+h;u6dz?I%-tDRbQA_=fp7=1)
zkKp9&D#z(0m76l|922yg__;%IR(PS4y14hxE}u`W(M{C{)Fr|Ok&y}NI9B$JTRP#y
zB&>?Eo&L!L=d2ef*31*~<ok6-Z6tMLW)8<ztD@HYrQv_~5wj_g=0~BH3n8Tdt39+B
z@CRtB3YfBta|5NjfnRtQ^`e;Lh<cTpl27l9M+D>5XVGAYn{sVa0b$d0%KcuIDoKS1
z4?2K$b}A1>Ih(yYisXHCm1kGYCngdhrE${_F8vD0^xrsHzhfr!dPz3rHaV%8$M<1M
zKcj!7r<Tlo<iAAG8N53yV{@cHCI|c(n9r1@C1@9nss%Zo?CT1~Hd9G2AsS0V!ib-b
z2^O%GC8~y5vugYWABhla-CPusF2L7pkdn0YtHYNbDLZelFT8RHx=y`l3A4DL9>`Fq
zav{)q^`a3V-27~UduTj4MKas$;!vwG2UbQFyVJ5UGhf-V=LC^yh!}=dRS+y&b@^FA
zITy1&5XydGr`+~gsG4BvLz(p9HVF{0O=(Z@4W?{-A-&7%3cY}hG;BcIZJe)Zdq7n-
zSagJQR;_k;zKK*rOikEcnBL-LcD*Ox4k=9zquyuk$z#D6JO`Y5KhYYK3cgJtd70AN
ztIBvuaM#Wy8^7tv(FEl8_ct~2?9wAX%-8P86KJpOv*-tN*#P9jOe6FlF#<D<iaR}$
zmP2zevjtwqGuI2LNDs9>x<50TGHNGONHrnloOReP+XjSsLP{T{_yq+S1=oV*_-RQu
zk412Fz#-7br+Zwp$V(`ccK2>Q6xig=S7#n_%?a`IH;c`99N=Y-u$=G8THtO_my69l
zas%E+f^xTjK^Fz47G#{`Rs}z=n`HMLHJpoy3K`3;N{m9W)f8am*}@U`BH}}NL~A**
z0{|Y!RldOVh*za7C2pK&-V+fKp<EmCgjox4E53RL&@?4cnnhfv?kc+^L&1?r$xE%y
zK#sEA2>zlb?Q@d@aJZ$oY_hImm^!j}=uB0d2lVBA)!D14c3hXf332C)RZgoY7n!j4
z!g%a~HQ;{Eekxvp9kc{Nic|#hR$27b6pL~Z8gud-VGgMC4GGaSS^|QLpCuz#^D;P2
zc!6W{;QaLB-o4eS7^m87OT#z`LJ;{htkSTwIKRe(Qs&E+S3lomnDi3!zhB$qZkD<(
z$_rh%A?g=EmYUB^=!aUu=g=m~<v2eznIi<WS;vit&*e@5=uItifHtBz4vo^N(jMPB
zetHRax-WDIKZyQW>FuZq2^?(;R|8moH>KR+#hyN}aKBhjW2#ei%J+DOhMLw{<AYL>
zFiyiWaMSX^c-y9of~!yWgYa-?&t|!vm2wIQ;d$4@Z2%|{GO*S&LcXZ@cg+Tg3m5*y
zL$<W2dxwOWz#prf5Cxe^vmC`)v!T|)fYvgXD>VZT$V*h`K>#l=I0_bOCPv!Zo34gr
zn6{goECBiG@(Y~dfCxFc(WsuU1q+WdIm>n9!`h^wyL`dDfTg<7P$Qw)ijZf2l`yRN
z)HSfUBYFWZbgxVjHQs%q-hMc%gzXDBLv4vpPRp@w(rKVc^HOI27bpkR2%vQ^?digC
z<7PTRyKe)hm&U7vdEv&XPsy<wB1{&~8~9MrNT1kVW!0ErtX4Ri-*j^KZ!^d(z&pCP
z>bkm->4~lf?V>LajHNj(+9eG^T7TD=Zs>paEZwIUAG(f!a?3@fbW}*FjddEEb3WlT
znPNVD`#IC;8y_A#&n#~Z$roA%#Mjnzn$<~#{}BSfVQ)}NAOSfeNArSSzSOUeSJAec
z8tkj%K{2^KyA2Vsh_wK$?DMW|R{+B662bPIfeD)B?r)BV=Jx&d+bX8polS?vQQ`%F
zcd`$jZY{A>`2>m^97$TeJ)mzO(u;D5C1#6Q(0wSal?I0$Df&M?J~?{$@OvgErWXVl
zk>~Wi%;Z@sI(ZKAkak@ybW3woRW6pcQxBP5UOj00(Wp72vKx^`2P`K+Qv(MYR>0SB
z9Vph>mvu>WlEhe7k|g>+GJ_PM0(J9BZe2JGdx3ycg``>>TLuzyzNl7#FWLKc+lSv6
zZbaK!Yd4kj-RB)A-=Mk(gykp6+lnQr=BUlpXLS24=t24}z~dm)wLNML9uUBs+O}Eu
zOHf~Ch$tN1JE{n(tdil3-t#I;!q>0(5?u29iE+q9Yc&d5O{SZ)^7$S?F>_j&d7c@Q
za?}PM@*k5+md=gaCWsydCHjyj^VgHWqnN{&bMx*y?>Fx?p;C@!(T6&WJyAHy#>Upc
zGYvDpC>L+LLu%D5CSdbGY7gq&;{F$c_8Hvm!6&wUOwFbEQ%ljj0ogYPX<^;dWT2~F
zFbU~P2=AfyGh`0EF%Asd)N(#)-IhHw@kObQ=4NIeOfsbjhFy_<_`xHNkSC0!!}JZC
zHf_>HKZer)9p}x<$|YBT#S(745{4<rdZev2z#1jh^XAha=~Ybzzb9*se|SnF?-Q`O
zBRX)he61<8x}vseVs@*tiCOKhPdHGMQ3c{g{U%rB=!S>LWe;<;U`^;w4N=l^tYb|D
z5E$LhxB7@}kVr~ZHE6Dz#y>Tu(e|Jazc4>iz)*je3q`SPv8lwZ-z1-sPksz%=MX{i
ziKZ*Ob+U=bs2bn!@p=+2^za*Hi|hP&ZM*d`s`D0i-5<%K%8emPmpdJW&&x_+Dt~e;
z<ST?9vGg{0Wco2!ll%q9X{wnf8sDeA$8W;{T7Q4z0)oRF6ei0Odh5%#f^}%B;C3Kt
z2GT>Rm{3SmRXwO%O*PnCL2@S@OU^-M^PVC|--^_b25lm#TzqjKNJJPhd&X~wQZ`rF
zORcwK@uI~2WWEVKs(zQ0zzz!y!m^)X)EI^}{q{SN0)B#R-mdC8UsDm*l1YjNS&ssx
z-`ZB&14R~7%&1^*Ibe8#`21=@d+=k|h(&^(e;NhhLDOGiu8X}L^g{vlTr3L_r_e6a
zk19E}eGZn9D6CC;jT+^E4RT^{Oap&)l??c)nQVGz1ntcyBxHD6@#wIXJ{&4l;!>9y
zOWs?ckg|IlNLkZ=Z&S}Z&`zs3F2EQVW_jSjb?^ld=%QHf_*|Xo3k3n<txyS{^)Ow1
zo+2WNN$d0&+_J27-VM-_5{Nd5kLCWp(o;DFL)RoF>%eZ%O}xIu;4u0xRGTTYCnQz}
zh7+2($_V_M-h~hl93;W2`K>f0rf0RHFSvBv+P^yt`NIvP1~;1w!a(^Mb}6r6M*j>?
zEw8_nuV{wCDX;JOfTsiva$(*KxvLuD%f<fjhyC#I)!$#uVAJvM<GL+Wk6-=l^=I>k
z3p^0m@+ERh0NRCKAPs6~HcJwc0^AIQy1A&yr6*A;a>L~N+xJ@!@Kk(@Q>yxI#Dn0{
zV59M9Q0iU5otz;sBIx~TBD78X8?3=MF&0Le_Cx8<+08w^ZEPcd0#waquWBb~pgC%~
zv)7Gy0=+h0rJl=<Pl41`fd{e}ZfOL-*qhU8LJ(F*C0<<Dc*IKxyx~kOT&GW0f|HO)
z(#(@U(-aox(UT`D2??B#!(lEKEcT1p%4mac4%B~MKRw_rCG<<B9m%r-%S93#t^~+C
zLQY1^f4Psx=!Hs#kxH`oqN55h8}YL~_6c!WsMu#<WY|j2_w9sg+UJqaC0N4yNV+ge
zts0olrE`W4YE`*OTW+Jk<TtrUSSOA$GZ*8rYoT<WzWH(EIHJzFmJk#!5RUTahqq)`
zhV%d!?@u#IYi99L21+1kDd^_m$<0HAal1FfewY&~V9K*TX;a>Ro{=-2HiI3M0G^eE
zVE(jH_cUw@JmBk26V?IS<}FggQ<Dwsor7KHm!>ic_K|wgVKuH6`SWw3v=%0BOZE~m
zvsiZ}D3P1Lfi{ItArR~81-nM}3+II{23-I{=B7k)NL9PTxFp*W44Mz~+6cCUGQWuS
zg<j-|Q%MC&+51jichN_w5(97J6UgImaYdrYh=e&q7olR+Rk?ZD5JsCzw(Iyu07+k9
zZMRGeG*rQJR74~?(BLmAA@*M=G+TRicsBzRR=&MaBmwLgZ*Gn0tN`eyo3KgJW3&-B
z4-(0)N=ARrY4pK?gOc-x&{sD!U~o1QS}NhjJ$<L+Jb^Qm9Y11W2N3EdVNDsZ+Ryy7
zT~7aZd^{k>ITvZtIb1N-X6>aHCoM86a&x`~BrWk#Mg(dyfO-NRgW$C*Tvn~AfKB86
z)DE$mWj@F2llO};>_<8C!{c~YXxk1>!u)rzA{qTxNl_`QsifQBhcXs4GDf?FCiTlT
zR8+~3q+_5j@j+oFSaW=Pg`bJag}NmSO)Ng20p4!6?(9K4a5ICS{7?;1Wdl6K0*Un_
zs1lCmnG5%5@!IdmYVg9I(J9;g+kxCkMdh+_zo1<j6VZ7@uGDoWuHZ~`X}au;Q%Q}S
zJpZaj==^RfDtS7>sRZy<2jsihC*|yhc1IVgcN<K%b{_m|D;MA-KIQk<&E5a0QSv|k
z`v2Lfj#kP)?{nFE<v(5Hf9n@3Jh7rmKFZIpw%wJn>4wj7SW=-7kYu5-fsG2MtIk60
zNkX<KM?k|V>$4C!7iJDZJoZP|7UwPHWo4KyN+NP9i44RDN+O)DG7D`N$5DckyYHL@
zAAO+b@fXRUaJKbds%h3xe!6w4^IwIe%h+_7ib{IxrnXbynb3T4ncss;0lGw^5f6#X
z8Chd$dZo9Gn%&=h@gHU|boEZx87_O;Gl&kl>WvBP`A%K^{#^Et4mx_rKbNMWy3CNN
zw=!}62Tj2L(xM?|%M0G2bjtz71eH_~n3QY40?1?7G@#CdqxUv>*SWrNXiCp@)5=)v
zkkj9p3sd8_nm6L^i^76}8t@K)2?{{w;jW93JGQy{Pa7H4`EG@PwWeSLCV@-|GkUB>
zP6qr%Xs#q$SM$*B+Jx3z5hQD*3|4k__9nR0e}A2iQ3$Xfh5sxVR%2Jt3LIES=sr@2
zk-dV}q?&hkyLO{t5j8_!$NT%$+i6yA?nqb-lg%2EgoHd0D-#LTkIXZoQJnZX(iJ2+
z%15`|uzPsKX*!4HD#FO`FE1JW;r9dXoFahV)o5d5jH-=MGtE=LO0C}hw;%h+kuQ6-
z!{{$F4YlSdf%Ea<6amZmoBl=WaWp{9Axf=m|KrKAcpZ1bUm3t_da(Kh+y21Hqxg?R
zbf)nI%RKwpLX2*43GMb2>$7yRw_FV>L`6m43i1Bl9+g=zF^aP;bbjf)bNO6=xg6SU
zF=9+4d=@-$#M?if%f8t`r@?vWS>oO=>E>zn_N%C(MOk|`wuNa~!Fdu3z9$B`;&AYD
z|C4IHyziUQonhV|F+6)^XLZ-L*hAT0-e?zup({#TSe^=$@1W~u7jui^LgKookI$XO
zxcnpN%l^I@d&&_O4f5t)dB~(Su#raLy81n3z5&qRwH{HOuX)nUcbWfz*w8{FTR8pi
zx$B^l?lY<Gz-WROerGlK{WYAp^1Ll~E)|YJq4~wn!Ofjs<M~ZgLLzNg!C`7p1uaEa
zR)PTc<|Axu?&Yt;Bj6dV_q+(s)WhtIm(FkjbJJmYgS+08EBp^06QmxPoTIRj{~R0~
zWVvc#@?&K{SjW%t`F)F5k(2H02&ky2V7V$c)zZ9$>iiYiK9SM6oe;eU(Iw#2jeCHp
zLff0J{q+JIIP<=l0I}l$J#34D`2wa=H#|C*oMe7vF{rcC&L0*Na9$H<G=E5_X_dU0
z@6h58TWb3++p3FJrbE8h+#>#_FcsB5^puKed*|tIe}lKO<uxXor=0bUwn^FjvHyA5
z9p9OYC;UeA{}P$5`54?N#PT8<(9_{&V`gT?#<(Wqfn4+Z>qwMr%l(Ev3j_EHpekgv
zbHPSy2Um|zP>}jFufO}QF=qFsHkfB61I~~L6`rsh3^k@+g+57aK?tp~U|cj|Ce1_F
z_wK;IYn;qVx~D`Y+TJIJnw3DuJhft3`DAH!)?&fGO;jD~m;X=6NB>LV@V{UDpBv@=
zdo=z(7>y-i`{{!WUBS!C%jaI+B5&NGV@Y4D>L4l>voSz1$Sow=C(*b(R&L<Cs^E@h
z&%`~=tl2_kVH;ZL)GVW$63l(0MfHnc-&2@nS9K+yW!iaqe7?vuav$jySzVjUyJXR-
zJi$LJabVG@l3Pi)hLW2!y^c!A&E+p3b=bY??;#^IEUW*vOODE{{R>_@!Z-fi^o3V<
z{5_|{#q-EtXiCL!rSNa~_<#ArG(U${J3KADMQ${jvf6i$=ATiuVXcE9rYgSEmK!&2
z?64f&>0R2bK9$)}I6Sm^A*djj!#0#UbX!}|ZHvZ2{OPC)t<HCAKvWz#1*iNHL&4re
zt%AhD^JaIc@<$q?4vt!FavFNp)10UAJ9WLHI}~#w5@#0l0n)dz7lohL<9_kt#osWZ
zthDr(*_9qSJ-z6A_wF%~loHjw>I^1{U!gP&W=u!g$W!0u@C0{(CgB@5Zjd9u7(?r~
z%?cZPQuQ<C-<3ay1q9T|w^AD|X2*0ml)7x6QIMWgE*7duD8|)|EZ=4w(Q)nRob^-K
z<6b-~?1|n7CA0_mv$2MvdLOs`(C$S0;z4Wb!jMC${iIu^?syJ`!Zzc<et`J1FnhX*
z7SF1QlV)-sEEoJeaOS^mmj278|GzK10wDeix7dG=@&E6}SpHS!mQ!UAZ70#Y{1e<|
zEebk|&JXJp64g}z2xXwpeFM-n_20Mx?H-M}yYQYqEeE_;IXwez1Sj|C8n@-DBqt}M
z&&i`gH<gxk?aGV0X0H?)a=pZ1Ls3ws2B@89?jJdFWcNS+yn@djCz|Mi%^`ZAQ5;U9
zJHaMLedUd(9%xm(SBsHl&O_g++ta5C;97Nf0(EdLI=Xn2b|BlXk<*|UsU#?JDE-YT
zpGMtXGFd>qdNU!c!4FbeUbk{Z7tS)=OKM|K`TO_pHRJ!@p+^_3`RJY=uueWqL@V{{
z*RQXbz}zhNlMi*6cj+x<W1Z^Cs;c%-Q<dTYX`XJu;oS8s+nxEfY@}EZ*wB})*L3|I
ztX==_%#oAnJ{p1NgG3@q%dY+vH6qmb{WMupMn>`F(e1g!p-<4wKL6xe)sZnj8M7f*
z<DOQI_N<ku|L>b+*|1=@mN?Y`e6S_vLJ+=slZQF@x6$qSHe)BO3v7N^j-JS;!b6CR
zH@h^LWEx^1n^JFk!rBED;e6(_F|7Kp8EuL_e6U!YvkWgg;k|nG>fQg`(YDhKtW^A&
z>~g!ukv?8AZo%QL<4cTeu>XO%`4J(H9#e|@?<DGH(RI4sAl>eFKGO4fRFKCp%j#@T
zzj}@70*8+6tkE3-Eh?(AodpXPI2s^;&oUO;W#aem%6VgDY{dc8#90;(6U!?qzF~De
zWl62rylImRk{>e(jTP`#j;$m^nw>k3kg^?SQ{WZIQ<s_Dy<<n`!lkx$r|I%y4W7Ku
z?O*&03(sG<d|5P`bFmt&3b}Yu_ef}UE{CmO&WL#K_K+UaP-?6XZ;LMRW6t&_>+Y`H
z+5CLvj$tRb(%harsfL^q#Hg{d7z#sY6vkfiwqV_6!8{r4@4dn#xD@;fJiZ@YfH<;1
z5T&ss;ejQ3q(1z8t5YS1$Y}32YqS7`L7vz(yz<Ubdne9&(;%{mqi&c8p94W0zHVOX
zVpx`jdSRlZzw+T7oK8DNdx<mD(p62f4zB!m;a{z_x#)hWhkTf;@t1{YQFP+m@E3IX
zT>akyY5gyyfkzv1QAdjK{^f&MTsl{og68*u8JN)cTS1oo{yIcmw5APxI)noW!=MNb
zA<ej%2Yg(3&Pt`~VpcWkVvY8L6y+1-2%HGT0;3Bd+(7M&fzTbEv%=B1n3dy&&{wi8
z`pEe+KeiNq`Xok1k7*Rd;5f6MGCR1Ni0<_8oWEtaS;?r25*ZMV@EU`J5(iC1xENXG
zqYshh&~3Pzo<8B{PrU^7EOKDV-_m*0I=k%qP(lck$6WjJq81SdiH6*KH1QEO7EqU1
z_k<ZN41Stugn<zD-zdw)tP_lO8~f|a;3j&9c2X5a+1y%ddSUgNHFa6$w~3`k6#F2S
z-iZ0K9tTCb>!^e@A{(La8Mo(aD8@}%`TosELgihIHd|!T5sVY)h_fU5p<I|>YlE5B
z5bjKr?PTZxgj4spfI!Ou=0DsEt)0WTsi}X5pD(r5q}3*>4sVm@jhY+4o%#6e7F?XD
zjfI|2zO8{c%5L4-wLcN1_w!rD<7#10Zd-?Ut_(xrv6c*%X`Ep+hePz_aT9Qq$U+12
zVj@oaAWoYjG79lX{v2BMXn8$O!jU)V#(fSqt#wY>-&h>lS?$uGo7#tFHwCCb#ODy+
zVl;XBF<B0Nmw|aK9eQmzJZLOOj$9<~-oHN<Zh%X$XIo{AXBI40dh7h%$5LaT>2fJm
zp$%xzn1J<QU}1LrOUb2+7boB@=_6W=K@6HSenQ$CR7Yce=CS{{4PBeUX6XE&I6w6y
zLnAW4?AoCv2Q+cFBEM~BYNOGk`oH;bsc_U~8b=8Eo7+NuBG{F0&`x%y6XN||g_U!b
zsAlM~y0K7xqI*gj0vOGnJ&Lgz(3Nzg6;?Jthx1ly8+3lLBI#J9uKdy^aP8jKL!Im^
zKeilv<k{gH0e2+D47J6L=9R~#a?+mJ*oOTSd-37sSn1dIAmJ!=PvP(YOB3fGA2)@U
zuS^wHfsRdKj@_gIWek1~t?sEc>$l!vhxLsj;{TW6bi(GDF6St)VCO{(%jY4`y#4B$
z=y$5_`F$HMW@WmmF?YK@p%ati&LY+rVXb6lVv5G|Y~Hp_;nuB)5Qi}mPCv{nWP3Vf
zl>_Pe4O)WBbyI!cWsoOe04Odly_x(IzMHHbB29Z0->mMdjnX)13c(ng5MsDntMv`z
z)tTO%=A&?sHe{)1ne`mWOu|YwpM~Pin@#uoW~8s3)X0_>UYZGq_UvQYihiWs2M)wR
zTFVg#!5MB76BZPOPY5Qm$iYDal1IG>hcPaog=edVz%4VFE!M=l*$P<_N9yg#(!dc~
z|2AjkINxnrYjUjU>Zs<sJDr)I*0`Cp-QuEo_a_#gCjoX~0f`~UOGC`ls0Z92IuxL{
zD?zbJLr<bcmf00JOJRoOgIfw_f(Uq=XkQqo;pi74&ciaVJSda<X6OKwi7sXjRU{ke
zak9lw6ZgXh4_eITbKA`>U%tFoWBczXWpTxBiGqKHIAV<bemT=|c&$O`As9Bn5C7rA
zhoAvO4{SMZ;!fc8W_fGuT^jLZ*Rfa}3_~~$u>iZRH1LVcnE-7-8#WI*wbtP*nx?EE
zKR?CpDY%Kv*@*_9zpJ6_HKE7UFnS7*O<UnbU?LG`fQc8X(!p%$&jb{fs66i*X$q|5
zUVOy8SoS9mgc?6gCmv@!AyqYjI7|)=c(MG$?=GRvC9Dpbj*|+wz38tzP?=xhs)#cp
z#KOt5n>=Im{S<molD<0PT(2a6(O778__sRP-NNB6ks~^7U(a_3Z<$6j3K2sf6vm8>
z-mx5M(?I)#RihJBQ;Z2<r5|xBMY*j57F4-o7}Iobxn)%Q57yFTDz~Ch7hbr0vIO8m
zI+BS7u`u(-U%h|!w6tuLRH!0ECb$-&Hq)?nt7+lbOOh=5FrJwD>^XQa@x_b1M2bLo
zv9>R$nbP<cl%yD^fSCponmvey3MH7m;4#wb!(nsTc9XF<u3-{gE3Ej^>d=FF2<^1h
zyh<<tr+1*+Hy(M9Uf4;UFdN`p(l!TPp48?cLR1U@$^eVr2g4VR<f?}U;0zjw34c4}
zhIRGBFSc0Y^ah;Wkxv|!1fTW*g0yO??$evv+LORAJ^TlGg{@1fDob8PYbymgwaNr&
zuiEX}xoQM9_TeDE&eSTQ+U3Re<(~P6W-nmc-NUZVLV}Y?7P7C$pHxNVa~fuIZwtn7
z7E!clFp+R7P&JM-H9Z$Lt_WxCVNz4RV@~t@-a6~MM3(`M(UF#y_kkrc8YmbET<7-f
z0q8Dx9*g{#6Od`>(barukNa<zC{8d0Qvv1I$ImYk9J64%z<adjeMNgI4Gqm3G-0r^
zv58|Np*b-Cnmk@fXgTHn9JHzfk9ROaIOhet62mKC1+RlOhlvD3T?)}EOp=Aw2SAHv
z*Dgj97QYXG-8dz=<RDu;r&*?!^}f3&sI2!M994{#zJP;Ht(NT3Mucjk4rk&`K&R11
zq*hJ2^#s0~1oTnzXU^jU0-A#dO)Sp+-jc6^2)7&4aX!B6!pR*wb`aCaL>Sg$q5I;f
z5#mjTzkU?+-Tm=EZSjnL&1Lcg4in1O2$XT8_16yg7YH#9ffVCSF1;mt=gwO|j(9ZS
zMkD8c89EJ15FGd<S)5$~Njw~@{H4TE2s<(8pvB4{LziklH=PCW3}EpFK!O#zC-fUd
zQPIZ|N4-B36>;l*Jp|Aoj-jzEeP*%;AO@D0SiGF;r3A69Ag!OVpE4rV;0O}+4C@CK
zZ}N_7+?~&(34gY(W4mX|vt+nq0)!m1$J?>uh?6HUm_)4oiIxbf{6;a}{2g{Uj!{5{
zICGhbisd%Z=0o!G@_J};+F|AndeP#byOAT1oD7CrvWVAO-~<zlnJNUHEFEFOOdj!L
zU9QNahB~*wx91URUjhRg&}+d=LZ@OhaZYdM6yedsG9g66hmRiZc~=SV$Z--Dy5#F2
ziGVXPg>N(9g(OGd;jvuG69U|dK07_-+vCD7uya(b2C+68D%`t@Qu|c+XXu3-l#_DD
z+@i{U-!oND1$vtfk#GP=|H(|l#*{ZaCN0q(9$TTP^x>c~B{WVlk>G@thXI7JY+syC
zLPrJ@&3ug`;~aY;u82v|M>ieOsw6Z&czUs5d3t$s@P_X@PVrw9wLUAd31Mr1otM9S
zzH4Iu^+5q;J^p9<CrtLBm<7NPBReh4-p(8_^Y>cZZ;3T&a{^f&IouEh6VZo;7CGXy
zW#U{WF>!G@v=I}B=)qlKm+}WZNq<3Kzj*fD0tV{`uCBy+vHQ=NMGy^X@SdK#+AxK1
z{Pmx2)k`R##MBK*^X!R4Kqk@^4v8e(o9JK?hfzjBS@{J46_ID&89765Bh>_3xAj>u
zJR7amP0eZ<JTc-~XW+|3ao!>uBm3rJLmlKZvH+K9!rxmz(_y(0ke6X;bOUiP4smE)
z9lBm9Prv^eY>)2Gbg1>j)0`2VgLxkcJ1;rB=Dld1<{WqZtDGZkui}jxIE*3f`uo*H
z?-L>^(H;O_Oa#o8#G!$6L{F8h>xA0Zf$b%9`G^G8S&b?egfjySXA}>|GM?SGWs7+Z
zyY;@tB$<-ccS?*mt&q|tv?W2w2-+NX57?R>w89gw&OB#59E4*ChIq4033@mmBk}Ki
zWMt%?Mkj0{)MAmyLBwf7#NI}|jAqS~6du9`%cPGBm^8G8UD-maL8@qNi#qhMa#xVI
zcURE%E*u%>7&A9&Q6NIUrI3E5ZYxZJKT3ow#?57hD}K=_QIFxB$39{r;elE23K#b^
z-{K;6hV1+C3|+J}!Q)swoCK<c907rjqD|OxnFvXh&*JBEwISHCRLI0Y!NMQ^-SRA~
z<%xwc$Nf&I93c_sSU%iL6Xbanr8Dbd+P31MX+;lWN33x4E?Q5XKJ}HK(W^&{?dNcw
zbtg`?L-x-0c!Zi+ivV>Lfp=1ZlRm6iZP)pqO}XzH^~)Fmj1eaj@d((8#M^7zioO-X
znfNnpw`sv*24X|RG7h)+B4o@HSW{cejnhs@1rM`po_?J$b)FB5IKcZr4Mz@}pGmGW
zr~^7V16#BIaXJt~XKcrAk$6R9IJELxbew(=S&`2|6p=#_?Uk=f^e|{d{0K6pbaxXi
zUw;}1;2&mh<`<E!3KcH+SZn4J(XPhXuS_+(aYDWbX&EQ`)M0vv)}~+~M^&qwyw8iz
z=+6C!A^%>F=g)nGyO~sj=t;DCQq-J*zp#H2J{Km!gfNGQzeQsi1%o*GpiRfBOhY!~
z_DhepR{I>6OEYa3x*{Ud+x+|3O`JC|K4gu4Gy)WTT_WynM431c9H0&mQ4YCeOH0*`
z?fir#nt+4^#Xy{9eIl&@4(8q2Cg5<0uGw^$=^X~zVEH1>p6y8%UY@P8gS(s<C!#kE
zg2Ad)tB5114?0d%Uz|T~TyTZ+2OfCz^F~6)g{$H!GGYyGC><3v{W-J$i@o=Nsxs@g
zM2}TkmH`z7MG2M!MG+7sgP0Hs5S3&gDxe@yat@Y>jDm_16%<gC<O~LqQe??df*?_{
z<evLr)$O|X_1`_-=<avN8<(NOAso*6zWwdJ!d!FBB?%kOJ+_SQKjjBq<^>!8=_<^^
zGtQetRbLd{rbPY|rVMw4R^Q*@o)r`ni12m_=pHcR+w5hWLHWj$_=GJVAY$RE*pzqT
z#EFOS+i2t=RH=hOWd=Z0+FX{Lz&BJvX2AQp9jt$SL`&3^8|S9fNRSK38@WKFX6Sji
z;V86e-LJn^A{~B+c1G~fP9r>i)M#`LygC7ZSwn5PY9z}qmDuesqZD~c0pvocs?rO<
zpJFW@?o&}bb;^sl2I6dx^W0{MK%is*2*w^wH7e)@xwwC;)licP8p!IQVtU_nE;^c%
zl*@_g6X*dr*RV*fJM=FEI(uptBvM)~CvBTH;ysSw1gq6E_Dd6PIaR;vIIzQ$!%My{
zt+v$_e{lik-<O!L4}k6%q8-zK&kDPC?JAc$8n2!ijy#R`yt0H!?1d`3-g+-DFGY>3
zfB1R2xt+b#;qA%HBy{%MwiPGBNMWgL>g_($fJ@Q9x_Vo#qJ_mGGiQCeZ@!DvcwYC#
z;XK|^QQJrPP7=y7=j5xsxrBMuGdg+<#4AP}oo;uH)U&kDH<v!l(CfLW!Li*Y7#a*O
zprT3ob?p0JMy<bgC;@w!w2s%Jxsn%aQTuJGl-f}XI$M_QX!ySK@q<I=l(5U+>1bg4
zE$?K*y48TDDsHZKf_hL~-w}Ne(uxSg3^ZL{#3JvTpe{@>0kTRtPqtEQJwGe)?^jFv
zGjkpvM!O7-xi*&@2^!*<68atK4$*Ih$`q0G#TKRC^k!jTg>As+k>h9=Ebjq0%Frsl
z{E2Erc%Sh0h-&9$<E9~N(rt}xDf|2H2VylSoO|C#=|_X3Fn;yg)#S#$FUwhOi?(18
z@B+RQ&HPVJ5mfY<@lQvuF-ZK8js~vsD<*G#WX(2AI2zX3A&jvr3UzJYh(VXLcMN>*
zE0*KSu8QKi6b85odlj_VeKOSuVy)m3BM1~r{VMs{;#(+;3b1c`aMVeMJ6c})5jv{i
zbg5*TUwLvW5_L$l3q{ENm8<9DvlzE;e~E%$Z+>!evZqzLEC{uhGC$t5BVc_Pp(Rqk
zt~=nmZSZFQ4njj<>us```jQ8gA6IAFXRoBVuI4-WR}%k^0_~kMRcG&EGs4iHMwa47
z_%f|NCV#;<33mHCQk#c}4t$aC&IE{KbgT7#Lu1qco{!&iba%<!xRK6bK?NnBs{bl>
z=wmZSMvv^|wKkp=6h}Yl>Q6A$XzIL3c&hiC@xWAwRs^-HUm0g}kL=&~-gRHZ781}y
z>uqot6F^>7U9n=74LSj(d&iL99#&XRb}5wa96(GUadjH#&LeghvU7|=Cdvqa09LPS
z$pbJ{e&z2P^mRO@5ip0k)k8(C44$#sFvDf_ski03<o^IIz|w3#DBjVEEZ9OsRJ1A6
z=-`vJEfOR0wdJ9Q4S&S*6iP=rKo}Ra+V+}XzkWS&D%W}_@a^9vgeAO#x0~B_9<{i-
zcF}#hukPT;_nHIm_~)k>*F<_-G=}WmHs<r)+tc&V53B<Cy&CXPV1ng6@G$h53oz|x
zdPywc{Ug<)Q05<D#{mYSBe*yT;(&#iSSr7vqXDaz!0hZVksJ_w@1LKEpr;18ABPM|
z4rhV+2_UQjpdp$rBP&~tJV`xL7rO7)5=}q;g)R47e7a``jBEDdOodB7JX}4%lTQg+
zM*=2=DpH}Mp^it|xaGx<orv{wT$%75X8^rj@o36Tt274L%n}EUhDo?m=?e9A|2;TV
zksc2QGIDW9<=rpsg1$Dw97Xs-@MmRPrvDXibe`JJ)7&EuMjO(1sBH$QnbZUNge8X;
zZ|WIEf>5fRC>%x0?enf_;!)DMjURvU_3E&SMlTkU*l0xbXA!qoBWMK9ZUz5IJQPx%
zN!@Acl|E%sgAP8(PQ{M9;w{-+%kZ_WGw{@Ih|X!CeJCG!T*RJG+wg{kP@EeaaZ%^_
zjM6Ru!^Cs}mE@5jVHhG)<-w^^#$rR22Q4ivKc!pPEOn-Q<-QWf@_>eg#+Dh^PgHNn
zXo&O(G3sZZE&nHe<e6%U78atIO{ONGA4TnkkPk2V=FS7TvczZr;_DEaokRW&)N@}<
z?JMM~P|tQE(?1fMR=K`wdGv#)(P52XEQH{sps;@gW@V`LA5oww$oXA^q{TxZHNeFI
zM}AS?#=sB_JN^<Lv>ysti3Z231Wnrphc=7Hi;GLs?bM=QHW>N-j~{c&kdA-Z6f(Dg
zLk1$QTy@UiL*8dU{JrBQ&*ykCBx|_u{afXpHUAlUSPjtx&T)Bqxj`!7J`yDpGRfig
z?b|QW+h7l@1en#c<IUpNJ6xrFm|h}2*~`zbOneZ~R0LXi$EO={n#t@97%%cO(iu&H
zBqH#7d)VKGrv-T?x~h+n<Qu6kk(k8pZoV=Hs0v$!Q$*yVAKWK*?`YzM{j-SmG}3JJ
zoK<aRx#RtqJpIh|LO+8(cMZKm9$sF`$b%r`oIvc@$uy1N@!w2cuqP{Vl9bVLj%{e%
zl=9(TuWE3Ys9re}2{8IU$v~H{eHQ$GQe#-VVM85SuarB+zZGPfWfL=w_NgS*IF7a@
zpw9fScPwv(wqQ6AqHkFrAA)Mb*>FKzJV~;lnf4W^HIb!Mn?nqt;0HD6eW>0IUSseG
z)T%W|MSr`HmK(M=8OMPfAVWM9(lO`|%Y~MysLNswS>s+5G9y92mjSABy|EWa5`pQ7
z=w%=Fa2?6+)b%jU2Mb~d3NOzblkoMUP`;`}^)VGVW??}=cT6kawqamd0_dFxup-DQ
zG9yBP_hvbq^``4`s;b7ps36~C3gb0fqqJ-ue7W#ISz&yA!i7XuEx~lekH)Q8Due}$
zD%{wRn&0@Fs&-&31ndh~ko8|D%OMsI3T`!IVToLS8I%~IpJ8L?j1W)>K_@u-0|###
z$&`OcD)~m6L)y+TKqg}I5_JhF4~ihU%Ps>7sqM?Aub=?4UxVJ6$w*D?#X~aHI0i(`
zQq5<#Ks8ckg3X>hd6F=JLDRX9-gj&3Gy+y3$?gq$)rkeEg5sQR;st67s;gT9KKY(K
z(l{_gxpaKhr~lpXRLHS55H}&o5po2=-WL*m?q@G#mAdI%P9Xy&uxVx?f(8x{dgWhG
zg$s&&m}7AMzcfd&_uhDq1467eNp1jw!OFtT^VC{!elQbwa*8;0s9iiKH4}8>WD<Ch
z%r`(~EFAAn*AP|JTQo%QXQKNG`Vg;WE-KHs9we6{y*dcC(sSmY?q35)@X}M4GaA9u
zGXOj29pYIT*hU660l;|r^f%sfO3pnCo4CFTEnQJbOJDcRV$nLUdqLwsP?_`eyyNY^
z!q~;OF%rh+xxmckJDGfwN3W?L`$=i(fL9?1{C@W%aznijXimDjxmDsJ@MFIb_zGrE
z5x!%hgv}S>o;AsBA#(S!f1g{I;@A%mt-Sc=&6~C0D#$-MSa@X)@J+9NIdq3wabxA^
z^E`$bK{xOr-ANS~asZ@>lT@bwYQZO1#jo4Au^#PIx~ZxHx+R;q(dUH*IG)#a%O$_+
z8KJAFxBRl6;VF7e2FS=G;AMb<w)Rf>49PkuWpz$Da3R%?AblOxM0RxE2KWJ_-=P>g
zD~pF!hgh1-YY?pu=oT-Dfu+F)_FX@hox)#?RQn@QGyVkO!oyH%CKwM%a)6WHzI)dY
zoxZp0u61XArn$4{;c&UU*_S`JBV#-j<}~$$h$=uYepd4O4hDw4Emk`?I62)eRmqLz
zeO<YFwL_xc828A)z3H2UJHH+IhDv#_oaT)iH;|~c@kF$Y7gy-F1&EinPIG9kt{AJY
zxa;alp*|PH8h*<CzY);-ktJIPw+|_t5^+~BJV+_y2bxEfd0_mxl{j1?pR7FDqk>ph
zrW#5Z6R<K{GZ+2_^5mjzxX{{;16PCD9OwE*=7Hh8L{(HDPx$toK$K1P9f%!5+N^2&
zc@;4jAPU^cPhcQ0&O3b=ckXYaC<RdgRU{InT^u4C$B3A~vzr@a9n_%%PaY})D|rAW
zRz6>rV9@~9YU<~=iSF_4OnsgN&q3sv(fAe%91L3QN}%s?kFzO2p!flBo1uf^``FnF
zMD!|=-#mQyu&2l4W0VIy7rrU!_u$Esi{0X<zInO1{n{HK3LI(LT%f3vCy2VLmo7a8
zfWa<<%&q2MlN5CF3Lyq=o4KRHLR{;C6JcDlXC5{+xy+PcC&N==@&kTEJ)0SZ7$uFm
zZCZ}c04nsuVi9p=IOSNdX#!qJ-9@@i!z`){TUk#GGQeJx)@AW`-+>I0_&jI4{3M&{
z=By^PR(j<JO^_r}fz16W%*Fg$h1PA@aE{F00*<i&sfcpdR!*rY!%v9^i0bq@#~cKj
zekSuYPtMDf-^@X+<!t!ETAczjCj?WdVu^BV<*EDe+fV2doG*Q_Uaj}JLeA`T&<EXW
z6xeuWNE||{@1~EIvy%Cv)>GaCw6YGVo;pj_j+x9TrC>AZ!{au+zI>C^=W$46{qUH2
z*2l;WKpv?Q6pLEOHO6V>BdeHHgg-#663M4i)CV3sPjeWNFjqGTR(TNSvUsuD+qKLr
zIU&e}NvI*K);kS`Pq|N2`si18J45fm`e<0xckwA)Mn|uZ8}bS@uXXFfv57_>UBk>s
zkm*n7H<^a`OO4KMo51<9<Z*%cbsN_*!uowxaqYbqxtpsKm*U=qbrP>kY9(Kbq8B^c
zZVmk}gO+c4HxzSL!UAQt48}eUgHxnyDv$f)p!Az<2*Rv2h7TrbMfluKe+Vm4+Q&8O
zEgX+zc^QGvb(rQE^Q5C*qy3v88;NGb&<=^qX<)}jCJXmR)~a;HG@a|R9kZWPs{;Y!
zng_##_HzyXGKCo9WZKTno5O*jUPH7+bhEDh`FIzCNu+qCncg~!?b!F(8a9Br*=2Av
ztQ^Ar7(_AdO)(m=gKI9&1J>hJ*%>;FrTlD+<0t+yrFarfo5XX^8Eejvc{RA&S!fhH
zmoDU3o!(J6up*%=X$=`4@)zmq`%OIb-xXg<pI*f9AHV15K75$Qz71KS6_1#S&+gV=
zZ6hKgIOxUm^?|>TaTJ4#Oyl#BFJ6f3bm)6_mtBVR(E*liF(Aqce$UY@-iKmfVf_2c
zEg5F3e4^D+vti$hS!VS6l&?z+XKa(a#(SUFBtKpIQ{uNYzu?uO%7I-5>CLr}jn&Aw
zevBZDNJ{|lu#%P`m>R3{GL21a6*Q*b$U3*RVn4TgK3tAATsAQ>a(&3Hicjxs$QNEQ
zf_*y~kUxKt0FCfP8d9CW`V$B~XR)D;$PwH9taA6?fu?N#2AXd97oe%#zXna^rrG`m
zO=bSygQm(gCUoiTYJ1BPg<)5zVSA}@NLc!Bc)~4w$RkN~3!#gK$p;e|&Nve!c&?3<
zXCzcFKa-X>i*Ry&mTclYgS!hkM1*8#nGV1GMyMS0GZv_;6A?CofFjQgnS;98_}|s#
zCy3i*{jdR4URe{_HJR$4H;Q*mNf0XvsQeQIO;r*!HQ>BauEHO3>PXJ{wVH#Vabzx9
z-U1nUha^lN*$@Kv2UPZ29T9|o{rUhz0_9dsIRKR<(-mGJH%va0+!$L@@;ib5(2!05
zSB)vOfPH#%<7ca$kMx*<ql7v&DUYpR{|Q3jFF-M2YmY7hFr<Q(&^px5CW?<NDt!L@
zxx9B9C@8=Zy|*7Ky3+3+gwW$8G{MP0xF1wSBH`~hfrj~4s2lM#1Ih)Ng`l{|h~S8k
z9FxWLbUr3qWvU=+zn@en?_9oe3<fIvLR{VEBgKA9^<)YXbREtkq9FEk)yny;cIe1g
zMBY_{=r;JqP?@Z`$%8K<JIYYkhO@ewJoD%XRt?4TEVRLQiys3q5CcUn{av^uiYTO}
zLd1Wdy24?=25*R9h&Y(i;LMX~Bd&+f7eH+g%nr_j2Nm&lxLOYnk7@`3JSBxT5s}O{
za{rqkVE48E-$KBLE^rMihZPQ`b8;Ns>Z1_O$H#{tsc^VnpK9hZiUpu0cIDNYV(%_$
z%t7KV81VrNJ}66X>$B*xKGaAP`n^s&k&Y{K1MY=P6(i_BCud2CqBtv77d$x9CV(D+
z-~cz!Szc6r9{3iE@IrKCKJfm1h243y`+N~Z1Pk4?Y`OGSYvp>Ucg-B%1)5jCVB}V;
zTlvc`qP-Fbm;+0%C}ud#FB}S-=BO~Ac5<(O3x5CjGq7y@OuV$Su7Ca`AZAp&czlxH
zCtvG*x!0IE$8e_NLJ>!$6mu_vxR)pg5L!kkuwm_yd{{klIA-hf7khH9ZIO*ab(tWw
zJeoPt*cuMmObJgwkO1mSYLIk>mcm}WyuG?lt7u^P(o1GefbvVYT4ab3!jviZOUn%-
z-+hQy6N-FF+S)|bp92N9sXXK-u&)TcQ-g(^e)1Xv?i7O$L`Xkwz4zM|;A1{^3d@Ez
zr*IiI?yrgRC8BVMFe`?fAP++TD5Tb(uJD|BngacZNP-grK;fzj*zhLq8_zN=ZoWEf
zabgcV+8H(}uj>vw!D~ab$+>Tzhr_D3*Ma1dkyfB}<!Y>*cl-QTul2{DU>|UW^oBbD
zn?RP-Hky@kfaR~w7x7_eS_1aG{+YLzUFk3KqN^{kF;i4hsbt%rS`1QMZ@OjqE+~#q
z08T<H0L{pTmdSrpIInL3zzHTZKsvZjLs=OaGYJ+ty64C^fUJ|)4;!Z3id!}1EY5w^
z-!PokA;6d@hm-pTJOvsY_)bKdbNjHYA5;<H7)c-q`?eQ#7I<-v?&bBMxN08|??_dR
zvxmwoQI15VP9Mnf+Vz%0MW{RO+b0WnRSADd4i3s>KltEEXV2cN;`o6SyJ`Ud)gZMy
zgF9dV_N=oR#~~p}KzKyNLqHGE2#W?*BNaf6nT}>!y_n@Eq~>o=DG`k7KmiH%npHBi
z)a$ZXoS6eH?tjNj160sE7AG|#`nc?B?-=MH#{Yz7$IG7ukvMz`OhRiOwf$TF```c0
zlmm123GoPr3{2)rDDB#o4xtv(leA3RI&k_;<sOi&)r@w=?z3m39F+i_j`^Ujo5c)C
z=|BTq*J@3eyJ*NAZzoy~|3q$4C<8VZ#Qwn`wI8YxHDu}uN$&{#jL>)xG?LpV12Irf
z;*deAssaG-FCGmQ+*RU#d}_B7>Qbat89?728Nx6@$yTvXf)vG2htxgz<R8DnX8VFs
zNKP%=I*!P&z+2L1X#iCx)qTW&T*AT){|=<R2{H)`1>u_XV>Jl#h0H6GQG{P2V`C5&
ze^6@uQ7Uk4AHVP>=scJPwXZLqfCS$+Ys<eHfqMRsj@19LjVZQm#@pWp0fRu$wO2^!
zydQwD+~z9oA3y&t;JYdZryKf-l>nL0vwg#HfQi%s2{Pd~0e#E82fn50mj8Ht$GEs(
z<W)Vr7`)vq9Hd7JAt{j1kw*s9=_pM46jxXdZBY$i_Wkp1Gr~2!jAjG{M4xx<ubde%
z$QMKdpd8ZgZvNwK-|%i{`R0s5qbfv0*k6KmN@fdzl+BggsNOL}jqA7k-I_KBxc>-7
z5%-RPZ?uj%bKoqfUcF<8*8W1|A1DD-fmu7}=;)Yd1uq;>sBJd02H+lv4ahtm@FUGL
z@1E8CC%&z&b<H3n1TYI&ah*AL6=nX7^T-!{u<JojlWRDrM?|C~lZlymNL}#BsZ}On
z(~$-!QVIMAb|Y9Kk4#(fxE}@u4UEACMj&(02e*iH-Gg5TNI1}x0KK454j@`3`Jn9b
zH87<<eAG4b=;W15!Ka+CuSXUp{4GR;g)=V9X=YoObr?`r?x-EXK9E3zGIW&4*ji>o
z&JE=;4gA3pKvt1x4ROc-0I|tb6iL9|jlsA_d-QzE33#OQ3s79UZ@3DvvcAg<o@R`E
z7im!P;e#2Ew3O72|G;2`$kuI5mHnAt=uy%o1za4uN%$WXzX_;T(`AGqg#`QvJ3nkL
zU?KA$<xcYzM36Apgpz!IfO7T#j3?3v;eggB=DSAR+F?llG6g+n;cwW#-j`<CTeS%6
zH-McPOu9<iEFWWl5$D4tyrM7T^N8>xHe6I?<yk_-vmY-LB6DH4X5@mF0CW8bIykLn
z#msBhty4mhJlP+UKw$Az!%7WIIm2nB;~H@>O3reAr22Vq<QwR$U#meMjVC7)*s3Nr
z8^MvGgI1gG;<A9{yUmiYT)5z5V>?006GWC9wLpZbq{o`@CdP-9TAEyeb1pL!bAXSt
zrY~WR>Q{B3AL&1;KCb3uehm<O6b*)ypB-Q2JGtc_%*5#nM^-_*X2<`GM94FDA?_T8
zGsi$V3&ey3Le<tl0gtqb;}n5|r*i3ldL>g%p)uFUBAO1bw0#aTWfwx)Pbz+7W;Ga`
zmXrM|WY#!Xg``FSB1iX6zV13Ktq}f=M%{(5XTSxq!pjJ<19$ZrP#myvi*&)K`{7lF
zU=69=lb~rSOGy=Z`>cH&z6;_X0LmV+ldKG;o&T?6Q4Y~HdA|v8GXgTa;o;@{;6cy#
zrTABSGfDcP5k<2zPge0gK@c$q2x#v$NWp+e1$h=Fl2c+zIVyL!>j9X@awqb<@b(A|
zWC_a)0~%1ifSQOES_FV_&pxWT*sT(rhM0*clz{yyQw@ML*kVKTkoDmy-3m>(yWc1>
zlE;)Aba;%Rwc1L;E5hj_6}Yf^*mSyO)B+f6TxAo%5kU<cz=k3CGw58%a(QJ)Ass<i
zUrSm>>WVA(Q3u54fqd3J84}ZhP?7-jH`|fX4}(^L=VqMx@EVzrcKZVw>Iv?+`U6c}
zav5xO2-X<S75X+3s<!*dE&V$;E2D4iX06_I{6u9IQ~8=>U#nh;s+^XaR4(6Daw0Wa
zuGPoG-rPgcN-jqBZ2vj-U9=vnkFockW7RbeVn6icV#Q9oG85KA{!jjFOV%5*%hyWC
z@w%8kqB)RWuR7kCzo2%aIoHV8*ti8!_GWKaZIhHNK>5G5e;z&*bO%_;$kyhjh8<9h
z-inOK9^ym15LC)+z`=`1N;-&a%P8r?ZnJ8cJ%wN*l}5+Kc{iJ6b7!|;$}KBvC-P}u
z#BP!pP7UV>%7Qe;Ua*tt@C`=EWlhRmMX@n^pPO(W@O2YL-$K`89Upg>*(ete0DFT2
zqENl-LcIgX9jbxp8S`L(GJ=DsVU$?7_5KIla9n{8eE9bwkQr%daoE*NpQP3OqM@Lv
zI`sMO&QNCi%V61>y<4*<cFQ-2W{6^3deh(%#-J^lGFet0o8cr8R^L^ksYq+=@OTc2
zjA6{CsUYLLdiAPPt$p^Kva)gkC_{pe&pUozr{(76vnppO?lWHJTU1o^_`v1k6A<!h
zv|_RPq(Dn+207-dF7*@lQc$<K7GYRcoYka*(tw+rzO{Jk?%rUF)5-Z-4ySZDciYWf
z=tOsl4+t`QfR|-#?G+g-Ve5hvkq412nb}9YeBaeTmI6qN<_ng!^SAXkZ9FIjDu)ih
z5=Qm3tSnJh)<s1BCXz20&!12lX-qB`H4It(N8CcfURN@|F}al4uKT`%rY6gg?{7DD
z0@w9vUl_I-1vs4coswSHZLU#fhu3xGV;-6gXpmJvEe8j1>mF`yp#P*~48r-h4vqxb
z)7972eR(d`w{NUz#Ie~p-MfAMi%=r$=i?(T&f<7<qd-zPa6Y%BrlyV}7LZ88a0ACj
zWP@8C0`7xn2<=yz@;T^eii)-M!-DI8R>}t;>w9g2GriVaQ@!B#dvTG*7*=H&F<@*;
zgXw0MB_;U<1>?t$zD`{d;OCc=)Lmkv9nGw8;=#e&**;sB-ihbz0~K6R38d(H#i<&v
zFC7aqEbqyZ7}#@UMg~%2{7?z@utk4|Ht_hky!eWJ+}y@f)5gqN4Ar}PSB&sv4{pW-
z&>4LFenVrs3Z6Hn3Ty*n-~+U>U|at8!mato$$eDP%5QYha>yuo6nprK0m@42nS>7z
zrc2>DHDh`r{M7~Sg{jp{q%lmq9`zpN4=ap7Kg^2d*SeN`G68;Ie{;UeQbx}sHEl$0
zqi8lMz$6T96pPFty;XqqW`@Hwv}ny#KkrWvjPfH(^U<-fUPJ^r@zUErj4Hmc%Y?_r
z$F~mL(heARokniw1%iEz?QUG-(PQf|go>4wX#IMt<{>081HVODvS7`g;7zFHnwYhr
z>L4Xq5Rf<V!n>)i=+kSQ*OQV32&07T7l56QzTkD*ds?LD0jB(I>%{G!<mcxvK$v}@
z((3SN!4~Xt42>v+G><ksZ-s<DH)|*2Y2#_pXAM2bG8{^7(>QsP#N)Sm^nfO~xlP(9
zq!pup*eRzqtLO+As_|*62*5LINl7n284>BVZ94*4vaBI4U4Xu+hyKPx`AdtmiIJ;~
z^Xh8TP21hvE<jMuvs6&t@S3eRSA0hJ`$>T)?$l%FAC9})486?{*niP)pq8AN6a(sU
zbAyGpi>QZ<=)~&7l7ZEFmwUr>Ws0}s${g<6O1x`Ex1SuVw!CQ%@?XOcK3DYmZzrPF
z>gFFf_#hTIIKqn|D&L1pT^Mn!HPfW8>*(lUmZX>&ZUHNLV>L@dWRu`k4f)()Q}m5(
zoz|;K6zlRj)S2M2U^w;67}ZXhV5_=|qnHkxBR`pXUd`ZU{66eBs6;+qushN92^UQ1
zZo<;QRKl!&t+XdA)_^hT;gONMoyUXP`Nb+gN@Av^MKR3gZW>mqTzve`?+Ht@2^TO7
z*AWsjzVd>N>@dW{zyih`OsP3-2D-O2%)0dxLd+-Tr2%_70y=Ma9r*f1V2^8q3CgEm
z`Sd%C;fP>uD&N2?<nHiEWV|Y@o+PR`_$StXr@-O-YiJ7P(=Kp>8}vT4drNI?tr-qf
z5q7R<l9<}3M@>&-K9+96^uy~XBqf6_t7S$J4tCp9Gih#QWiIPk#Dx(GZw2Xhq%tee
zzH+fo`iSbt3N5soxq~{$gX>FgfaIW9O2|~*Jv=v{YrfR|FWlwDAZT;}mo0@vT^mIQ
zJ~V$|@Yhwx9xkm9@p_oP$A=>R_i2}<>F@8h<!yTL;zbo6uyBX#&z(@AbU&|Y#{r|(
zq+C-JYZw(`?SWXk`0`!mtwF|V7qPn~otzd#PdHvZ_{4UiN?Hf~hkVed<lMX09r;8t
zIXS%0(wQ%InU|Kf(MxVpWVBRy!d}chNk)#a%WOsk%p+`JP>(k8i_(h-AJKhjO$ITX
zTwI1$GjVB6`vQ8pTL3J0EV_H+d=VRq4ULC~p(NpN=&jD6I#4b#V}+a`k5%zE(w`lg
z9>@}U7OgPb(?36H(D$ylicSChJc&1$1B?L73^=a3SFSWzuiyJ(-eAD)gIP&}cD97_
z`SaimgV_n*PV}4FZmpUDdC$nX`jni6pthZvO%-5XoMAF6pfy7ssEDta$=~0~xenCc
zW?}FRI*FroS?qNwFBPN+KA%jnV#CD8OS!-GCzbMeVn%4JeCeDn!3X-HK^v8_va&iA
zEX?PFdVY!SK@klXKX$WnkzPqe=*b%o|IB$Scw-gW-)HslIH)EAMA0tTk&>BNG@@)D
z$r(RQhGQuxvTCkayQlZCZ4^?a0TseHOKB#ao=7-#VK<jv)4b0v;|M~BZ-{l%ULWzX
zlHj;)mvp*;ryyjr$d$#fxLRX`g*WOUT)hKjx(7#57VCA)r7*s?S#Azee0AcmZOp4z
zNgI`8Vq(-xXW@XB5}zdn+ia!ss`~0gA7s_l*X#Y<_GO~KmP_ogjGvDYwKu}G;(#PI
z=RPX?gORQ%yR3$CPjQ*a=K7$&@<biEiukzEEQhra8nJu6-2Qu1_Ul{H<$f|cD=Vv#
zgHpN1eCxMR424ioOftFKF*`eZE=s7^gDbv7Wtm5Kl3Q=Z2wIR@pM918fjJrLtfz{$
z;A75iYy(?D_`DU~5+3O^^IBV>R?8aoS}M|WRBZb)0r9sNKYn#D$FhXW?|YYluzzt2
zo0pU8=MR?oNdHIP;$_nDZTGlj{3PY&<#T4f1o45A@>s&j{!?9D5g0n1Ft1#ecGP<l
zInTdh1Yzbj*rT`h`KCrj`;Q7xe=>ugn8N)+7F85{BYLp9-O0R%!fjgWeM!`pj794I
z)P_7?z#8nW!6g@<g{xwz&-u3{ab0TI{crcD!heFlyBhr>J7xU%#f*u8fKScw=jvC7
zXjx+z<O;)qysnCkoI~hPwy2JPii1PKckiv#X@|tzZT;&sj^5`=n@XAzc?pr#K20rE
zx;cR+yS@2MO`1%1=l7*e8~dNyt(1~LL&*|dVS31U%s)&L&Lp{p2W5c<%qA7f41Y)X
zFN~=?Pto#oo9BjGADY6R$(6i3^VhqlA%3#@LuzdVLqb)#+)QoVxL?;jtwMVz7^=NZ
z^}kRwLR{0g42|DaTc>ec!J*%+i|j*+WkXc)phn+jkEY&Xd$I$Mo?c@cWcG1yREn_V
zd!(l`#1`#2FR4b?Y=&!)e(*5P&J!%?gFANYSgWou{R#ZF!2>jfbw#i;hP=QhtMDC|
zFiePxMO}xOFsu^@Cy2pe6%@2aN+(h@5<>#2Kbmpo_%Pjs?PWUm6D4z3hj9_CX=P^$
z@WuiHpeHai#WwiJ;b97PV1UlUBc1D>W2qZm(;J!|D};>4G&IS<4+(Y{>+5r7)dy^q
z@zede4TmONYy))-raFbY&#U>|)VZg{EMl|Pc152@%Q98(f4q;;1zpkvfV`_g$G2?J
z1rI_}QXJJSSVn1Gmm`qVZU9SCG*^ObC0BK>KvyB{GNoLhi8*!|(HLs`s%y@^K-YAn
zAB2{390Qv0Re8;edeSNXW)=Q#9I5{t2m8OSg7Tlt)c#+6BFYz^t@}L)Kuz?kSNklt
z^Xnv+336Gk5m8Yb^R3WAq`5`LkM4Egu;EbGStDa3vuEo#%?s-^5sgmuqB0ro;B+l<
z%8Z1s%ID5)eI3|hq4_Z(Ezgws?z};%+4c2fr2^|+wb?q1qmXs$!xi8&BJ%R`Dml89
zfh~~OP_h6XJvI9$V#20+wGDN;&nKn^ps6uBI@--mp#GgUK7_QOEOfkl_G}l`xY1tg
zbZQn5-f+AAzD}j3%La;uyK8z#e}6y8uPU!pdZG49pLHv^A86#%FXl+t78yA20h{3D
zQnPrqKTYteS18Q;lp-QC8e14{4a)>xZZtBIP@A=`#eX@(>v=S;=$ty~H1Kb>D)SC~
zv(O$2=Z0ZsVmm1RF{1b{+wos^^#9lUVjq{~ip+CLN?XuKY=flsP@;ZSI0MLPOwiF!
zL}geCVZpOfYUEw=Bz&!HFVH2u5UX=Qgs!?wf8<IifIQ1);LP4=69xmOPvOm4swXy&
z(!ZlmnkIssrW&gn8W;$;)ES>W>_JirK49DpCfP&UfS=5I9-iNtb&8xo*WkT@u22mc
z@xF8C4haA{fl~Xzq#?UW1YA>uS&N&I$^aDdx&V;rnH;q`TjC!6tF1q~J3!GrtgJpF
zUmj0JVx$Jw29fT2Zf>?{;u1|2q`tr7UJuuFr1hi@NK4ynlq{b-4*X*uD{Ck&^K=YV
z3+uNq57v$a0E4Wo;Q;tRC=CkHi-}7EAcqjwN_APyXh!*5-%sY3(Md@=>bogj1l4Zf
zYe+Ek@x}M6kK6ap8(kPkG&_V@i`Ik4;FzNyIX3G0%dgcqe){3Vg|4ASpg~)k*=JIx
zGQ%618W5PD?e>Vv1&T0OfpG5R^lY{EkcA>zc^?D>Z2KRXWF@*4rcO>yl9EvOi72$I
zTf7;KhKpL)=_h)j?y%KYqnNE5E+aNfy#LVeOrfK?$I!;_Df_+%N)6LnI3RG{+mEOY
z%No~K@kY<C-I~Vd#AlITD0D$s)*yRPLGSm?!FV8p6&xJ5w?FB8$>zgVV!a}8JTp6#
z$8rs2;JRl24yL>BEY?$8r#L-aZEEC&(CI_!6oq!^ex;=~eAhuUX^olk4ywWD5V?aR
z*W|XZ2KXLJ6_&uw4VbmDfbbp{M5#%+>j2yDz_)p>pKPt!9c1KpSdVVbA)gD6tBh5<
z?5>sk`?1PQ?22$q6Q@nQnh^mq$+nE};ST~?hS$A^cc@2X-x;>{HnGp8R6e9T`KB4@
zt()6->?JiOt!V(2c#<gZI^P^<2Ij67oTmH1FFGcsxkR?+^3dnKe(V>crVoYa4RuvE
zH1rA6l{D$>6#GTvX4hE;L*KUpO=pGUt2AyJTGn^$Xq^<^Ksn2Bdwa}p#o#Lk4V@fC
z3J<^t1WPtnZ47uEOvxfUk23a>^QShzHeg3!Z6H$+E93-UX12624IB$wzV&4)_26{N
zK@*gg7W5=fyc|>IC0mf3G+w3yW0C=NOD~jcic$H}0aUmD`ZBX2Q-MzBn^de_WfO9H
z>Wd%)beN3Zu!`KsaNswBSN)_yEll5YIJxDUlq5!7?8l6($PDm8aG17_qLaD^9PZAi
zH#c}BI8VluNjNU2XmK9<(6`kGc00k8NR@#;iz<>#;%~m??(i(e{}h?+|2*9K$c`8&
z>({JDVAqHPaPh&m0D8}&HS_U2$+Ij0rxpV^W@GJyq@EW#VYgymeT_P@a4lzPagLUj
z?^^Y9ph{fWnrDFW1e<@{OG{e?G+7u}3V8>94D`qVaSl%(K&Ho*)56bQud-75d&g+l
z##d1)1v1uYA0`Yu^!JFdzT4@uis&rq`MyU<ZJoOOG%1)C0jptSeb;;WHjtO8+_Oqb
zN*xAS3E1m+9nfwS{ExT3Fa9lc*Yk+i>r?u6tf%5V|10T_3d~oZJq*L$AEg_Dzu$=Y
znm2_(m?ZI)lmwWyEhBJvpz_2<Zz^IfDdS#Iu=W|I89AID)8q^W2k?sT`_p1W%KuN-
za!|&P{WcG^d(m}jTtSE&gMWd25MN}O7Z?~w_GA~aU1+;4BzqE?_Fe#)gkXuAbMt__
z!-AuGsqC?U;W<o~KWt!Vr~~m4GpM5&zkUS9Hy_%unF)>z6pm96*bD(LnH;~p<<l*>
zM`PlE?zB;4-69aD^Cp=$sbwVsgD-q`mt}{VajHtTRz=arN#~)GJUe)gPWU+^s|C#R
zk#QXL)H1Tsxb|p3NB2nY8R>Ga?$gp0RoxZn$mzuBZ7*CMiov5n?eme99Q3*ImK6$r
znp-Vu!CQ%g=}o{E;<=0fR`bDK3gde^p4@3AU0fZ>h=)5dh|LqU#3DJ~TslbF97Eqq
zA=s5Ve?I1;`eW2%lS{KUtT@`N3#pK`8Y@Ep<cXNoUDP|Nqtj(y1I8j9R)7qekI)zh
z#tH$tSp`{Q)a<+=Ta{nf1HQ~=Og&PM8E8XctP|tWO#~fd5)ypZY}s9aO{b>5=+Hi=
z$z<R6EY5^&n|ZF5Se7Y7sXk<2c&eJlBEce2flbehOevLaP7fQ`)2W~?!-?)Q%K#)b
zD4?YUsOp1NjeDa)pH3EHP}F`AuW$y6Sj?T?Qr#&|!j1<IzxGyNjE7*mE&2)7f;ClC
z=$FQiEG27x8x~zj!61@I#*6<xkRU}$G-(&0Z<X%ITw}#wfkY80oyJc-0=|v~(7})v
z^2i?xnQE$I$^xT0kN<}P@&lM%Uz~0!@LnUZosn*I!aaFHxl0^^c-w7S%%mLw{i~bK
z5KD>{Dn>BqJuJ#a_S{*&eKQ<#B7DYU^vkwjaDo~57sUu|c3|-Mm26EVhi;vGYs+^2
z888xd-eofXok#QPtDcx4p~Nr?Q|em9m!Ifv!vrjPD5=Pjp@z`Z3q2lC!)^J{!Dsks
zMDG$jL;(tsJMdAX5jz(+tx*{#B`9M3(IT@6Ay=8sB)=XEmhXtuhyx$Gv<P-jvL3RJ
zfQfjbRYZ_%ap8g3<jy;cCPddpqulCON>e#QPHPEX!bn3ylUN}!SAb&bP5|R5)@Z}8
zc**f(vg5Q7&p_&3)^Rpu`;h$sU$kv$;>;2q*2AF295otu@@**p(V}tI6LUEct0DdK
zWq@MQeAv>s3+gH)>_Y%C`N#$AIaXF}j5JCFn*F0B-C$WG--QEHwBEw+FD}4UQZ!_(
zn^^fF%5kvXXE+E$h}t@7XAI}$2YXwZ8^+gW`p1lK$|Um_GeEuQa{YOO8~D$!D|;*%
zHF`oL#QI8RTu9-0ATAwwDH)HByK%=r9jV>^?tt-ts~-&piPL_>I;qP?jAsLyhx$+@
zA!Qf50tqGwP&>mtc|4H7UdXt9nRtMK{k>#Q?s>@hx~Zwj7FDRO^ZBzXn(6-RGHC%7
z0Q8gFCeUqh#o;#zj8C$Qdl82sAMeS6z$U1{W|gPFKBT1yva*6-*DyE+T{RCk0hjf?
za?hp=4d?Dyy+|B7u|s$xeG$-SW`uyG&XrJ8<30a%-!zj^1FGOyPIPh&S|5H1tbVJ@
z_xC%sahtb!UTBa(tt6zCl-#eCm!m<f#G50(+OB(=mnT6CB3L!f^UWX}sDsc3YWjSR
zN%CK@@cmr(+1SV<r%4!`Q&)Y?(D&hNW1_;LC#SraL=Lis7di<+amdZB0o#3C`SRy~
zT&-0e-dcj38@*sNDS{qk1)D^~v{+PTvCDK;N$*7b@F=$#GcvXUC|7dq6>E1_IxWJ%
zg37q^t<cHI$;QxZ7z*R;M^?-~xw?E?cz(JXDT8UwsFXN*Vo~utBUzI?bZ6sE77{;!
zTb+>pC;C8{^5=Van{(qZ+nIv^y0PPgcg4=i`U>R*$6t@t)P(hx1=SB5e|aA)Vu3;<
zXFXuk$;dF<PIo@sPe%W%m`=DmZv@D@u-_x_Xdu}5))u@h9dyGsCdhv|@oZ|~&Xl}A
zL}xjvKSLoh97IJ@o+8yPZ4`2b1rO(ob}=+oSV|io-guvp)Y@Ud`K7!V?$a=S71#J2
zdb19Fal)`O*#6{%k+K@*v~R}bZf#{1l`A8eYW=rEtXH$xUNTB=wH}4fErfO6TCZ+_
z2TD%E2C>1{3>euLbcEq!Py27&@UEnf^Rc*{IjIgSNHf<Ce}1ffm(sCwWscngb{SG9
z9Yvp95zfWE+^<YX>xijAi*RGV_bESiMuAW=QK^2e6_qj8&Yj23Sp=GR5#$9zzE96Y
z#Kpu=4I(S6Gj^Gv*cp_Sx<E9uYJp8LgO*JEp*TQIr$xU$7e?dVxTu7|t|>z`tW|2*
zR4&X0adbrYf)A74zeB8r34|!-R~$6UOC>ZUf~7)n)F~D~H^dXP`V_NX#9yyCHUPCa
z1p2G9pkbx2jwx%6*T{+%vpDRBok<iXB#m2JPII1pID>Y~&06!F+qyip=Cw&QHj3hH
zA#QjRm?)m4=*Y^7sW;4cdita)8`n0_J!X0@HFsgE*$hNdX+QSHwsdl8=DYVC`LH3q
z@?880%4?n#rY!p}y#9^q^^mqCeXbU4Hrhgha>(r!Mh2NQMNX1{!VC&cz0V_ohP&x6
z49FR__X!9JZr$HuY-Hp`%8}H3TFlxAwbzV7yLMENuR3V(Xyu6$mjWFM!|}y7hLBvX
z<}6dNyy*!?gj82a=@fQUK~0Sjj4%&k$T8)!2P6tE;;-BKRI6FTic6d$#SAJ$0$Uy*
z(mO3a)u3aBVCBnXpwz%xC#+)N9i3S;33XvbydjiUh=a&XTrybfg<6Ya0gw5wDYhW4
zBCdmMtQ%bAVK93nRwC&E@rfwsc!8}|gnkljXpjK9+p(J2l8O%SVc_Cqp7Ddy{9_UW
z$!|v?NTZENgd7V&m*0rz9@z5jO9N3qT#!{pO(K{aI@qY__;?<D4f!+cOtNN-%bSGM
zZ};CoC_{`AsTdZ+J$GfdFPM0aOJG-#fV)B4le?2d9mHd!6hSIgWV|AD!WP?6xtBT>
zDlS6OuK;^7i~KabcK+$fR-}>*AUJ5_7?VOv0r+g4Fd6%2@80VkCr5R8|H1f}Rh`^c
zh-y5^efC+3w4OVk(fia&erLI$pkNVNRXfGnXHHwI!V{Axp6EC;W^`tdY`WX~Qk4i-
z1za8$(7heVb%BZ0<?Ax9L$zCA`xKG5fLPwBPf4xT&4tA2(i#ruO2DpVe2on1MBMKS
zT9;^i=9fSk=Mu7TW#fmFnA99zFX0|YBp$#pk^fTq1L?Hu6bD5ZQ0k2fyX;4H%WTFD
zze1=#sMR_Y!2DKqet$vE3Wi{VP=c9kJJ5>j19wMu6A7%wc$YSVY_P;aUIjfLK2rgk
zI%ngGyvBRRX^p!XPYHT!ocnWa?NoNNbL97)F>%ReT()td?P#YkxKo28KM_xqV&X3^
z_+ilz*@J*s1sFFwX=zczZcl3e_VqN$%wN4S2ysf~JHgjYlxd8zhtkXt;uL`f!2ndr
zgj{kQPZ#c$yXK})@dkv(#Itk}P8Xto-uS%Pem6G;Oda)N784}A1i>Rme+$?sO!81k
zNk;^V+&+A>*wMI4tYG`Fv9)pyO*7fn3?k;b1ayj<dOi>2Wh<>=QGuboaabyVrDA!Z
zRys0iIT+PnyUZ1XUJFfaPBmL0+u}tS5E8hq4RL#D);3OM*EmOJ^mO6=bH2S>2gVIH
zQLIqh*AqPeqzh@KnNVpvuVJM^taZpaEt^V}VG;e-ruRCI!xmwN)}eTIgB7F{hk0z%
zS!?5fccUk{_Ipj(A{}(Wl)<Aq_~iS?^Ld+><|~$%kbQO8ms%E`s0$?DuXkCf&p?M*
z7l}%7M$;Q-VA-Eq{nW-(3M_20POVrdf2NF@x`C_YiM=7r;{5&dcl1cH(B60QAe5@=
z{u(2T8P}U=D3(Ir@Ts=8kc5u#v_tmee+G*jVr3=Cp0#N*TV38|MwkGw3CwQhat7IJ
zq)e?=u1QICQ0Z08n;s|{3`!#`GfBzx?>nyTYIe41s-R1747sZxM$@{H?$tKU<@?uw
z_)0i*OGdFJq)}hSWM-FKJLG5ePx3FoG8RF=c)QEucvu%0#vjs3NqLy+*I;vEK3nIp
zB-N?r#+e}qpn>sFKpci6Uj#k41!0h>x)2nVNt8_ytK{Ye8X*<oV}Ou|y^w0A<C|l6
zJ!la{poGjlK6vG${h802prp4zlNC&+ZL)fBnN%Vgf+|9_BMD>b*E@07#A~oOc;R&d
zX(|arhL#r6z9njB0v(6zy<3GC$3Sqq`g7Uvx3eC{Qx}HQ!uFn?5#3m2E#JP<pd2Tk
z5uJ(#@ZxBJYHxE_vEoGpdXq+s_$fl(Iu#-+0P&5iwuwlVSV%Q|^r_O?@5k;AMrtw8
zs2xzIJBx>dAhBN5q$PuF;Gq1Ik1OuRI-P@mGP46gvG;0JHsZNEGn#UHAYSVY4WGhW
zYqpS)j)d}20CqKr*2yhdeSA*?qVzU&!i2)+X28`Y3pt~2+6#hlMez7K@GxZ(>-%9e
zJlTANS)D<f>x~UfHEn>z!&YLff=n9_LM3ZOg@Ij}gWc8``U^1_s8m;&y{8cZN0o3_
zk^_VMeHWVUJ0-(BWMIf#7ZyOX_pLU0Er#6|5H5>UL7*lRIAxPXd4tLyiusbl_F6NG
zY^)Lq{6q4FwzJg>hYhOf1ZqZ$qYj)5iP*0eHzXh-B`D1zC`Cf7+99i7(^Gf3^F+kX
zLY#<gggE3l;?VAitcxQ)XY3=xp{u8Y-nXi&LDq$kX$i;j>PS9o9g{!6J~6PNa!4YG
z__PR4qwZoI$%J?ixGVOtW+kKXya<A>jF45bCwYNgdmFMrCLnG`)=k7a05GsielG>)
z3!53H!xlg~f@BA(djG6r^9#hJn!ZCgvlD$`XQq~j&mVmJ2ehne%~FVwpUhL$0^$ye
zgDOViW)${JfnCOM#M!ZJ>3bO!a{ztZ9c1vlT6-|6nFtq5!R7F1vbmGjVDEer$$e_7
zEcj>YExqighnZo2)Si{@HPHAP8qr`iF~0-^vH(pa_1k?e8<RX=;g?Zj^5z#tTzsjf
zWMk~QE65ob*M9;Thd5TX5z$VP)|^*wmzRAe;WS&YVl~sI)lAoqMj4qlyuNG(M7NM|
z;Go{&hUPJTf-;amz;QB0tF`Y;q1uip!=d){sf+LK6wMl#G{WK(L9LsC7&>YMXfxbG
zc*)#p4XoH>b)7fa#&&7V34|}qMUq$=<pAQxiA^G;QnGyj5FE6|Zf?No)xl!*Tf4Y^
znT6w?sjtEcB=hy^bM7YhOwIJLXMBQ8vi1&xwfMbMYjHF2GDc~QSE;ZLj<06Qt`0qi
zd~15bn<M%9p$hRWB(@@l5Htuvr1T|e0Ere+Na+3L?w{9Thw7H8LqODu{*SPDo-x`Y
zfd~%|XNA6TCmE_7Xk0Y|6^Gk{qfS66#8TpEQXi@t%LUz<=;s+}N0)^JdF3aiGu)PY
zUrr#vlZI_4JRCpvy`<qQ<n)_$tI|MjAKaNBzXZ+AI6?00shxT9OT@cPev$KI?;jXI
z<yNA;XPc#3Y@#)zD1I=W6_@I3D!t^^c2?~}ZCX?HZb-&Y4oWy;v4rf^3XQ;xBS*6c
z%t;19_aVUvYO*9hT<kis$VMOx0;WAH9jvRa^l4VpvB`-1^yyQ<M(1xgqj8$iQ5bcb
zXU~X_Xg}(~(QY7-vd(4uXckWa{$`MHv?W+x<mr&WQu7rQ#ba+kx~U<z05n=F^;#w#
z@3q`3Uqb_ZT!6ejlaqO&{!4w~RS=4)WKbYEU4$%7k`q2)Vr07kD=kJqrUP~&A(j*%
zZr=enZ-PK=Yu2F2UYa3c8UgDxf_4zhgv5DZ*C$l=bc5g*(+T_GgUFuhjIAQACPb}4
zxCEF${1FP^gV*CIlxvE>QC(e7bN3*hCQz@wg&f!i4^!v2f-qAu<$O&wo&)ZrFXhN{
zF$=ZlYI>>k#^zmQBxfQ*onqu(P5k7J)bY#}w6t~-m@zaaLX2~2dIUeD+8s&BQ;!ck
z1D~*+T38^3kHq&I#JVk8!7SDSPFsw&rJXLbHDR4d9Lv7WuApQcJZ$@Hoe11!1d=qk
z;4VP?CRT0eC)hprP)cWNMdlRZr$SJ^>ekrcP)~dZEqn*zf-cwhz0iJA0Q8I5rq$~F
zAaKc5u?*F{R5CIgIRShKV*IT1LpJ_JFa2rp(E`rBABMtqfu3Xr;xbn1T2#onPdnFB
zD2`Cr%DM+impHMEh@23&#*CAIh?aIVY-uKpgfzXmf=}mu_hTm&yuq{UNaRZVGS#+Y
zdjOZ;v&^w2Ko|sg3P?tS_}CXrV-etTiXG=E8trg!$vVTKW<}dq#qVC)!N^F>StTWz
zEdJ!PYb-*ZjM5*8nFwgX+YBzH$I6__LMkfZ=0>7V5(tFop|UrMJcNgpHE*tU#N>Ji
zqy5?$v~S-FStQYoWC2-nQjlS`Y2mY<8r%*g5noT9tmwi((WE%Y!4)Bfb16i0x|3vG
zgvgFpCbluyL(#@3CO&H)71P7U0hn5R1`m&vOFbv&K>;o^F+I^Wi}o2&ob{yQr<JL_
zvOK<~7Gt&NpyOR0Oxy(tJV{6oW2L8#dF62%6snu72_!%c7dlz5x(Fc|n`F@xHtQ_7
zT7MXbk1*(`1QaE|NBk!>g#|sY5CbUGoVd%F1Bf|9_m~beE(pbp;h^sCVAql-4PdNb
z*IlOS$OTIrbrMiw_O=)*skM<;>I4yd5HyTUyX^c+LM=tJpJ`1JT&{&9@&Xex`}paL
zJWXT7(vpy6FtNA@Vg0tl_7iS^IYmjSHUq@#<YogIkfzBRc>l%XC6pAxT_%Kh0{ORT
z)fA<4rKRPk5=aHYvNy<bIL?%6`5<Sd@~=_ZG3#{SL$bsw?Sv2BP6?^K;#Ks`=L|`k
z38Heu^KVwHPKik?&zi#hkun>V$Bj3j!jb4h@WjO*a*!vYY!NWed5e<?=~?mhnhxAJ
zOawG0KuY9L`gyz^$(LDKcb^Fj4loAYPiD>8vp7gHtgP;C-FipnE+W4@h-bmh>c?o3
z@vQNR3E+SH2hoxQV$w_in8^d*QE{#dTEh3rPrCqsst=L?L^U`8j9lmmkmjkSBXbGh
zw|szLL{sO$wUIQF+{wDF=~jRs_MlvP8Xuwwko!4u_{JFsU<V*uU0qgZ0k}!G*HHDm
z91sFue5$F_fLht<k-?^BgCRl7rfX5guZMk@+K;C`B#kgnfG2r2H=#`JNAhc}?DTQC
z&$Nv4)FntSTn_1hrSv;gE*w#N<zs27KXB@lYg&1Lni{7ko0jsv-R5PNNiq@B1oq=O
z0F>!vOiXE7I=pRit)1GKx2Yprb}s3FVNCU@_&6yspg(6g21y9MuRx-HX?}y|!9a~g
zGzd3$i~;MD$6Ak11qwzor$;St$oLVmqkJ<1WCN2Bat42T%+4rr2FgLkYK&vKBTl^T
zZn~J@5?6jc+OPujLVuT;0GDfKYG`8r9hK<&g9r~~B-y1|>~v!WvXR&MyZuhs)02_L
zeWG<Nq;RsCRt8(Uy0WtJnbiu)^V=*rm8(Jk{A0%eClC<Jz2=qq$e!N1fbdh>{Nw7+
z0i+>TI2L*l@0$a$d`u`GaG!R8+)5`pa;{JVFOsdCi&t+PbR;ba$ZFHxPo_w#8dmg-
z4*i*CPR`(mJz*`K6NHvYXt;#eemA{#E85hxr{4a~{SqFO^w<D2OnN)10pDCUWpCW?
zZSzS%`bu#OVe+bJ)DyVH*p$FXf*C_!((I5qBdy@$Rud~4x<BCb$a6{vfQm4hx{^;Q
zq|}ob4XfPRF@|<UEfURXB-r%mS$%OZFlIDx85#xHR0PPs{$*E~bzxfVR_qWxNy%)M
zU+ON_hXUM1Tc$7UV1A(;30W9`ba^&^k0n70h!|)K6D-S5%mYXZQoM$SMh;RDyVk9g
zqX7zix3*_xf3g1tP@I1*o1lOpGf+S+8%#k3kX^>S`KA#1LQ2RPL^v!1Gwu&p+)dg#
zlHmDtd+o5iflh~qTF>G99YpVeF0>J4KqO5<Q;#le3}m=u(xN`0RE~#C(!OrQ)Thbr
zC2xd6`R~+rrTR(WV{z%Zj*}fjUQNxf4j;A^vv*wAcn)~5KThke>^J~s94O_h9|VqR
zWuK60BZfmuDmT`l@MAAhTSHKt(+SDKINx`=Z~s`;s54i@Xv&V9+}7G2n<)vkBAUEB
zlm$4Dvzz*%uF2u;?LAQDg2Tr_d!NLqaZ|E$V*&ZWl9EZN$E3`Ps*V8+(KAF3>V#BW
zSMpeDg=qC6234e&XZZ+sx^*K7K1H@Pm^i!1=_lPr-N@+V7KhpwjdNLYNW+XZiNtrK
zGs$8MSphpi+Q;7_B1+C>WMj=l*<)-ru&KtUxp@(G{2{?wX5Q~yyq5zn*tqbiq2Vza
z!T9aa$>I+{Wlwe<ZYkrv!0r!s+VeFMjZ;q|#kW38KzOx~^iB1l1fdl>V`n!b+S>*u
zOgE(WP9vVqJ*^Qp*`YDFP_4dkM1875BfBi6&XCb{sl6?C^+}aHGs@C1&;HUs)TNF;
ze=v4OF+4Kj@|#-+g?m<tJc-Z__xIM;e79HkRJPY6Z3B;MqP9YXRZ=xf@7`6uHVa?B
zTJD&Vztr1x9;$BpvwNpk=Q}kQUf~_o$Pe3owcNbzaIc77duxbOxkG4x8_Vuf-!^AH
zdATxyU8WkUM;sk*)nd`z%C+Jiri>IWF+J%}+4oS<*f{RP1@!0dYl56<t1hG3)QfX5
zkP$F>+)|F#a4$eD5{?bJ*&jd3RzVL+U}LP!xj*XZ6V*x|txU*GNXVXDOL-X{{;t~^
zd-*xWx>dzzWi>@EAhZb)u_)4hccS9JWgE<8_cyi_4IxsH$qA+dUD;?<ZCt=Op|J2F
zz!;~}_)dl6pl-aHUjN9$V{M}M#pJ80hKz9{UBQjbOGx(Fn!s&*_eF<{vsjtJ-eTIC
zReMz|?i?4U1O84SVi-{@{@e=<b&Gm5_%530pU6)&ZjNBT=)7dF-JVngXm`J}^ka`Q
zmG;B4^;Ipsk>_F_LaQWB_S=`<Ub&-kYc?ujO%TU!Y7RW&lBdxOi51qdt^2Evc0WT&
ziH1^ATDm3uhM<s;4kBiXD;gGsujIq^9YcTiDIyFgt**{Q>A+~W4UOlammwc7CnvY1
z6f&uW$e&N84b;YL!<1JF#bti<ZY$r#Qe+L?0|OuP4noeJ&+N1z2&N6tAh4ZB`q`M9
zpN3M$)924uQtsWmSNVmz{NR)INEYd?(AOnsnObL~qxvn%s#h?3Zn%~2(i;lp4Rn3w
z)2hPmqE(%J_wK+}O||uVuB@Y>F|HR}FES9^ShF<Tp6`o9=4Z<6^oTEzg66E7Ge^9o
zZbJTG1qC^i(yd#!QX0?k1azT4VKoIf&y$c%l@CYuo~WBRVp!5+j<j_P1!G%ur>FLh
z7UW%tgK&s@4|I}Z!g@VMLXp63!?1|e6jWa}fSI*Boh_jBepr~PO3SSE7ug|UkNo_6
z+qjG2H{9IZSm?1u?V=G9vaz$Tgq6@1oU5)@#3^U}?Kd(*{&b_MtgJ`l<m^g+HiHl-
zXXKPw-8piptn5#2{}125TA>_Rd^>2=wj-NOOY8g;y_^6ev<@#O&Lfm33kdO?ll#vE
z36>c(ySh^DUw;)HeL$^Z0?=Bj!4g2Cl@uo7>l7i=Hh$ImmX`gS^U(sji*D_0m1ZN1
zay+vic~-VY^MUSIi>qgr4tee6;#zm`$)AI1sxdEL(k5QHdX-$~;^JawMMcF%XJ_ZL
z`yS$t)Q2gYAK{+IgO`n$es)EYr2{#--{s^^K!BoSWQ5m8>7}yA>}%Ac^$iTn^@HQ=
zut6b{kY134)v2wpD75kYY)7;!%8F`|_0B}s8YCN=wC8!F0f6!b4)f16D>|p2veVM)
zIOdRzu$l|)wsjYOpw3eafNmWHnW+fn5?lmDb@S#S`L+w;OA4R1K9pTWsWeEn9wE~A
z#_=`2c`IBYCy?A+wdZ-$p<QPk><kBe9Gx^8&qF4{z&cl*2b8tL6bb|k(;ZxlGo2T*
zE(}9&qi||gaucNmqHtx_=ncwHnL8sRL;K+Y8siz_#GnVnz-(afZolD4NlCXW(q42{
zbt1`8OB#?0*pH3ctbHnO`|c_J9W?Mx;GA(T!fsT4`n1wp>Su2$ory)kfC<YUhmZGC
z7fgZM{EAa`_3G{oOv0|nB*GID6`1q}bZYhaH+UxtoEcOr|Kc&i^4@b37=KsObsq0G
z@myrJf+|?tupvfbN$N6^g?a4Ued_Y%U8jSEZ@hbVoWh+RBjy>$)~KGyd%jRt&abvc
zJN*$`*Jw&!=e6D)2To@^))`vGsHLUV-Q7*0K>SAclOEi=4&@C%NC=r4={#TJV_J1V
zRkeRY;c?tWhw?$YTn?EeL$Pw%!OWPAYBfukkg-oz-WCdA+=km99pMWwGAW~PKYV9o
zqx7I5N?{aNn4>fy_8`n5TWvXc4_wT3Cy6eA>*y*>Jzx#LyM0TJBugwb!n6w%%*_u{
ze%rnK7wjSny$hO!-|j}eSUHRoJcM~es*;seYU8A6$OhQ<pD9s!N7hRhLaXkrw!?ec
z*J&+xjLU&TuX);2*AI+?{%EOj$*k)0#>Pf#V=bNlLbbsrc>?j7BtwVL>*cD4ViQzR
zq8%T9|Ned9SXG4duGCYihP7b=Z1RV_Pe*M@wNlwf4|$nCFsNo7*gv<=#oWfXi_>jJ
zGy@8I+?`5Q?>LoIaR?1wvDM^un)>O@Nd8jWmn;<DtM-s-40AV=-yugVm|lRa=T|?c
z&8RJ8GLpN6#EBinb#~T1qF9&ty@Fz#;iDZuX2&yjHco`q_57+D6CJ&&^iKNa^t+ks
zR@_P72Dt9+pf$p!M3*IJ%2AxwIF`fuGLn+FqIF*KHiz%rwT+p%^^2}$8bX#k7s^XY
z4v6tR=D=<KSxAKXgQWLMpx&;X`Sj_V%Vr{eY^8Z<b^jT6wTj{hy|<E*lB3GXbQqSl
zE1=Yy=lNH|xGYvF?7F&xgC~YEOFB;7@z28miyEV5XgLQhI96)if;^f2d65TG2V%Ke
zh(!9JKMY+->*EfNvFqsS^sCZ&e=+I9!S_!-PY*TgC3&;UNUh->6Q7xxL88x}8K0TC
z9iuB~eYxfD>3V!-KlWvJj#5mm_Pf~5PHl`KcwUwU865ibF){lu-=Swnp-c@n-V6-f
z0eF?+jf?;5MlJ~n798+Zl?S&gV>n{thqvpYt5?Ulw|j5zpZCJTc9H=Y6z(<A(1>ZC
zaC|7sAtjQamc9X;*bTmkhhv9|(+<YIh)FnN__5t(iQAwkz3@IC@t_zM^(&M&C=6Op
z$5uj;4%F#QluOW07IvCV`Cu&?Qr_8Z4P}X+Diu{fs>n=Y@4EM(p*34Kj2y+`qLsY&
z@8Vvh(x-p<<(Dim_JnE-hfvTOLr(k-B2_R3zdq&QyKwQMJ8~0+`CmCIAVqM5j*iZ)
zN?SE<E4=J+I9QzG6;H3+v6J)v>529Q8@S{8LH!YczLNX*aB%G6<vru|I)Hr*pwHjW
zoRJ0r*Y#0WCZLNHk=+&$w=3XogYaaAMel|OvK$D6n3J5IoVo)-^U;^eKT(k7RlQW&
zgK{_pi9O$|?XRlzK}Ng@c!pI(WP4Rr)kgMM@z24jk!L)9J_^GGtrDWLd;iY|>}!Dg
zz6G{)3v`FB8wwt{fBI5)clVNyACCiqfam31OsF*g?B%QFJhKY(6}I|^O(nh9+1!ax
zc1tPdmZ9C5-sz|xI|?M1QGW;Im|o~!%fuY9XNueKEAK%%diqQezt!7A>wySe!h!ER
z{Iurlb&Q%oAK=rBjEpklK1)%frj#|51J;8VdVewM060!j)iiwXnL{4J#zU}&eb2sh
zb=?Ht;Mb$2zGbMEzin^diQod^2P&`|H!zFd!ntP?6s#+&QdC2R4fA{p`l@UP4s629
zBqSu<yuInuDO_}GjWESUqj}@6zixU#gT9(djAuacmGhx2{^S793LgRu&lexzUJQUm
z3Qcvo2e)^divR=ml6s8;za46ULmn~Q=9x@j0Is08Rat>tx?z5Po+-^2Q3bf*Z1Ay1
zOXu{^67J^ienU0x4!FX-P#WBf@ofhY6d0MS5z94z2?Yx8tgtHNWr{E9%vP;l&4$UZ
z>@U|NF>$YEpuENy8vr?s`yR>$Gw$5E^VXd^L<s@<LvNwh7;JwkZ9+#4m(Hh{93Q^{
z&n|o;LY`Z<Z(l}^rEg*)g}xg(oe6|J+)gdqcs1!{uAR9b9P9;vgu-oQSyNL}sF!g3
z*-=YNeq5IqMj}FfWaXQi{tYTBD(=r;J4?P6IG3QwJ$v)T5v7T3Mte>@zBIY=5qUCg
zK5H~t?fWnS&$HQ99_btw=0>BM?}uDG09^M+!Frp%$`z27KMHbHQ?4(TX!T-LmHyKz
z{erkwdrZmL=6^c%<g>Gv5PD+ko7$ZE0wDEm-zcy|<~(1h(EtioJ>03l6Tl`W#t4h$
zaw%j_aB>|~G;aR!$4}p9XVV5|$S&mJ5qvc{WI`5$1l>kXdJko9L;F-4<q;m=sx5Pm
z1UkFAPWmYxkqM7N?>y)J{rqZUUx2wvDJa~JzT7Hm7N1}z4vnZFUWu=BH(%t};Zg71
zU6ZUV@dwOd9|jch(jK00baGNqRQv<pfR%$|6=oHkjj2VL^d5QKH$X%0ii?X|FZ*rB
zo+F#b&Q9dup+i*|ddo?-7E&0S;78xX2@Zvx(!)emVV6a5EY+qhTXY1!MxEun7Z7k4
zrgGPwJ*$C8yB>e$sv0K+1`U$G+ax3dFVDJA_w?Dbn?SYN0RL$DeoYk9UhHw`v!2w@
zV1{bcEff*M@!xNgleZOLO2WaQdZRnomdl9jvZSm`;G%5NmhvZi0V~iKKMD-=Ks<$u
z!-m-fYXR+nV$8HI{QXNEKEkJ|NfqKg+K{vY>*KC)Jmf%8PuL7Iaq{BD?I5alPIM*0
z8oa}41RIW%lk+Gp_mhDD3>ET}MD4=0>bdsxU?G~xd4)Em?;o9<q~8+t<;$0>|2E56
z>?=dGfThDj;P}LG;4%&Y5fK((oB<F2NdO+xXHoe{B}8kg#>q>-#^mDXpwiyqbgMx4
z&E4ht3=4n_c(Yz9HBe`#%;@B`m5V!p71mo|ttu!X!Lc^1d(tE!(5irUe4QORCBMJr
z8r}q6Bl`TpVt0OX_Y~kBJg<p2>?=Mf07nQp8CI-Z>6ntD!T?-`CkH$@(XZci`Q?Sc
zSlChaRtk7e=lcz_o`4g3gK`DXmOU4M+g{k#hH-C=>II%qUEc2O@)p>>>H%I7!*ERa
zdu8*pXKBDo`#f#xfP=6{Hq|}a0h}S<rLvQo0oWW<238quz$3ONW`LYt6=HDE+r{OH
z>#W(c10y0d^4^|1dGeu)lS`b>f4Ot#&mRY#RCZUkFCZqS2N)%ffms5$bEQGWbAk#d
za3?N5@Sd+GV5)lr942RDSh95KLST$O+9_?8!@vNX(7u}b@foNocx_$m>GLii+n#K2
zVHOmeC=MK=6$57IzX$%umi{&tv^)<qpbxmD8F-ARFz8(5atnqA;3TUQaP8x!8-5D|
z9sql2eyf@DdV%HxuYY0$PLMkRBOka5;&zfE(BLBWb6UUvda@LBe5+b{ryLV-7V-da
zdijoQ+gads55Vm5=-LxKh9k$1Hz$XIvQpqNAzq-4I2T}J4wwsm01wDB$h~C(3QPW#
zz#ATbYpN50?W&IMZf9Wq4J>+rwip1<<f;Ll!vkEM<OVz+aJMsX;TX_Q8$o`8f{D`~
zal`>dp+NsAFvG&Y#OX;*(}8wFzzJ_dP{>2Ulcm6x4osKQryyVl52j79QWIGDz_fMj
p5dpUO;2^FGSp2~O+1CAMHe9YNcg1=(aH@lW!PC{xWt~$(69DFEgfRdB

literal 52101
zcmeFZcTiPZvptGg@u<gun1G{_1O)++Ai)T1f*?_{ihxLzoWXoVK-m%m1VnO{xXG9h
z0Rbh7<eYQPZ!8af_j|A2AHREF-COmlE+s0kS$nNHdv=c=J-VOBT^8R)eSn&ZifS84
z;-Wki)dpKCs&zLuZ^U;Rd_za^&&C^4;urBRKISguxZs~HW)i9vR8(}2iO)69y2f;=
zsQ#iNT|B2~`)aVs&T@~^{K}YYWq9hEU0XJnd}+UTZ>QW|U4;ibH;L^t8{Hbc`R~nt
z)4%t)vtMtIzQ#sHv+FzeoV)XFr|QKGd)8~5&3HYSQoQ#$6XS#9LBk6R_p7D`81tC=
z!mHYr1fwcq!cCg&`;}GdhN4WBF74NG|8-;dYbT3f<C@=JNIqK6x%&T$th;ho|NCdC
z#OT_8{(tttk@s6yzrEA#zwyPUOkB6CS?h<a@yBUts;+H&)Ys1LZnXvjN`tQZ78{Ax
z`}v``#fED0wy3IOk3SwJ`H1xOHDCVcN3D)Uo3&PN^=~;w+q*aR3E952a`?L@PUZ2L
zL;w8bRgc7|@~+)1m%X{fKJT;Yt7K|yQ&gLqn=|J>gg-vZ%KQF#Vf5_($r?m_OE***
zxT_w>XX<M?OrJ2(Q&HzM(-bv7HNY++qUEP)?N9GGdd|2hyT(xXjLmR$YK2Ig?+NwT
z+cmM0moL|9FOSonP)n2G@MDj@D&}!Ow{U!_PJ2`O*XBHjsgRXLabbt)>OxxW_#Z#6
zGO@74$poIZAAP@x*Jar;NXU*m^YiArN5wsR=Xyd^;*=A-U%rg)?7TTOSg-JcMYguD
zDoRQtskEyy+iGBPFts99r^qwA_1;$EWrm4aV)r-gsC{$ksrQQ)9Ts*`RR-xp@v5ou
zD=m%_Wwk59+GPQ}?5S5*7gYAjBbG}(KTc2@-*lDwNs;9h6s+1F()NEoXj=XL{w605
z9=)&omIky}<P{aY4{d+^Xggi(OtV9U{@iKfpSS8$bYs=hV_UA$JI`L12{=U}r&;#N
z7wk|wW7+#0YZavwr#zQXRn}$}E$PE{&gaAy9d|9qu}i{J)e0h|7sbU5n{(~5r)t${
z7#K{KTDr`Sv9Xm5a9@s6u;?kT>3AlZc;WH(Igi6!Tvr&JXG85Ld)v~3+l^daFw3Or
zmilr(+3?R}jDFhO{HJQRWy}FSlR>^Lb`od)?3+m05RRy-7}1rv3g;I&<TSmq16Cu=
z!Z+_EUQIqf)nBt!FiV~O(I5NU@e4sxozqxd)BHKTZ&S|meNp`_1upL%#4_sY>c;3-
z1l!Lv+1yVo;AfLRzG_B75~Gj4=sXjSOx3T5)y%P0%dt)<4;E(kD~)*d>QI7Ko*LdF
zwZwBD*Lgfc4Vg)b*dBi#{r=gp4s*dE{1G&3bsf&?p^sZE@nKKbD+`b>%Cs5Lvg)sn
zdAAa5+rGuPC110?zTP}bgLt(?x4ZSw&xra|{Wz>ngjSO1M0Z)0`+lDI0+?wcPJ{Z8
zUr<m2uVHPp)j%z|Jl*0BuR-NS++c0K(*n%lC~j_Xk+3j%ZKo-p06tR_A3E-ve_wvZ
zf90B8U>UQHyE|9*!f;N)3a55{<9tC++-Pr;+~-xFVSD8L!SgW7>R6>Xe6kl76|u9i
zNhT*J->ypxI&JjhnvVtlp#UzONBy-4aqBj1zxB>_O{{8a<eRWC8alcJ`>B3|?yvqE
z#D*`2h~z0I@7Jl$u`wMO2@hu+YR*&V%$p=*|Kc+<`7d3%bWBiC?a7lT*^A?)R&|;-
z1~4^UYln@GKZY)h6tv9eU{lm6CP6>b4fWHtH8ft~iv+?(&YJV?!wOWp(XdaJau)O^
z<_ya(%}>!BJQx=p&024Cnu&?2uU6f(2IiTNt;ylnY(H=!#LB*T`v<+$hrE0L*<RQ6
zrhiw*D2ONJ&&O6QyswQ_lEU*GA1#m-nY&0Lk+e$1FI_Td%)C?E65>2>5YsLtBU2M8
z6Bu7mFxP#M_jYx(qLnXxD=vO#?43Jz=0`v7aAKAT3k#bnKQj`Ig*aE|QhI{Y8yRRa
zo+T?Z;Jh$INhl~i5~JpI;~yt}w(HzIzKiq@gUPN(HHA%W<if<ZHQ9D}IG1YQDWs{L
ze6pLxJ0wKAeYV+U#mO++ur6_f$%a2U7@Q`(c$a27p0OW3{N8j9?q#WiVTJX@)mY_(
z+f2Dtm6hIsf$GcyPtsOBfLyXqS^7-R;Tho@OEH=`8N5xQ7aqHY33POHY+W2O<Ck>I
zc>vF#UbRDL^z4)V&Ab(x@|tkF=T20m8`j-OV&UUcVONg-rlRc>0jo18@}!fLmG$F_
zJS*_{<8_%3*c!flVmkZCvDLM`D6%W}@UE{3>)wQ|thn}dc6O%x5k;jVeYb(<lu2V|
zW9`sWF0lrRDP?)uadVI;t+wNx<XSGPensKM(T^pirR>U%g(nzD$^Y!s>+#mT+Yax#
zb;`t`)K9GKduR<TlVY_X&mZ|A%*W}8hsQR1x(bnn_($6gDj(hzPV@UV6zLglE7m=H
zQS9&Uf8DKfh5e9%wY9Ze>4w0+n$ivZv~1fp42*cvow+^MUN}EQX|e47x?dpZa+U_i
zew}y~NlD4kgK~fT$JIC*-?Rz+NkbFST^6WLG5C>X5fyOCVAu3Z!ldcWSWA$%(+lmZ
zcG7!xNMM)Z5|4g)TI9maND_|orbE0=v!iXV`#BQb_N)eFHd?XKU=~5E{+lutFS(Ao
zdo8*Q{Y+1dESPP7`q~$+&Ook9IZ?wvW@X6KW$Q~h8Clsnn8dx<hJ;aL<`4T<FH<gy
zhupnx;~#G$X*o2a6Vxe>xB@KZr-uw>3MMP1N{Wle)SKJPZVmoOK3C&3KWSk2(}c3=
zxaghsPp|uBq@~j$D}sd&*8YwbyK;M;z)$u4G)zig9&XG^-A*UC=kwp;fhO4`_#Zz@
z4pl+h(Q8<vBwY_KBBBw_>~;TiW35fIU6E;hgp}XLAbyi?ukZ5aUH|y#?Qhreyj58C
z;-yP{E-MQmQ#NX90UUXg^1>^N6F(`YAqYFXoG>#iR~<`;;~RQmdsb1=0_htm4MPFk
zx^7c5uLLZrGmO>oc;)sl13tFN-M$@b0$+}>dZIUbBzNMn;k=KE*7x4;VOFj0*0A3l
zG~-WmTCi@iX>lUL&;3LSB313A6lY#|Ss)+nt(<Z9)zI?Sdk6X~IH9R7KW#Oa91V`8
zr4bjEkB_$LQW|Km-Eb;}g@rNa?r-d`ih8z}L*r^B*HX*MlJ;G7UW8q-1hsT|Bcu2?
zZ{FObG}PqUSqz9|bbR*M8ry8rlzohesc?RwMn$_O!cU7WuuQMUVX8(&edZ{=h+}5J
zY2yQLn=_0X*f=;YlfAvXLb3G4CX`aWRN`+FN}Ot{Ue~VGoj!YSMhGWTWvD(?9LQs{
z4J*0a<M?vx{T-8Ec`DW)KcioMNO-<C>|BjuYW*bad9OtL{P=h&=Rg@>i=wo&^t%+o
zQFXqMbz4LrE^agX(q^`2|ComI>OrGY`anljqKzj{cV4nLZpe@!Vl)xCOqv9VFbS`g
zJ(yBj{pQlvrLku&)wpgvn^MWN@h<rOo)8x;co5e}X@5YIy#}SeC)}PsRcOdCuE9+=
z0b9XY`kGr<+)v~?c8nBw+PE@Bw{&tiX9S2!NzlCWZ!(!&ov3-H2`Hw&fs%v}qaJUY
zV>6PNmUaq|Mk>T*Im>x@PCtnM&XMD*_uRU;SJ$1ZZTo5fqmpxMeDfP4AKA0z-%;i2
zxBoit)w;U#uA492qdnJ<qWct^C%JUHCEqENZ}n%<d;Z^1BwNWooey;D|8Y%JuV?rD
z&w%Xz6xKK0Fy3HV@Q(=@0zwdoJX3?CEJRdW*naZcC0fm!#;KILul_tA=}a#2Yd4?q
z>POV_ZZc8v<Iwy-C;6oDP7xi>UO&LBf5K5kV@3L8u_HDM&DIUZT0MRlP0X^v$8(wz
zH!(QAJ#~HUJ39jyyt3%<x6li1+cy;|`Y*J_sU-R0dO6lZH<1JIQ&EWmPJIKg<#m`g
z`gJPj`{R57m|zvLKzjDAcQ;Me>xUd;XD{s;|GZD&&~|}Cp62e^jsOt}>U>LGoG#x#
zJltwE_=C$ZFfZ@bW&O+xo|}Ef@+`(XNd?6&+DSmpkIqaU*~_VQ93bMLN#^0k&^>`%
zpWRk`)lH72PCa<zQNms;(P`obr@z-<<)^h2eCijkqg`hFlZ_S?H2xv}{;F?u=HNsw
z^#_Q$<nyi+F}VD}mR}Vmt6u7UfS0XTSJFacrYn0OG4;lNLCagoetzLND18KsM_eR;
zH5;-A#6zWp>7glrf`NjSrKIVR7E`C4HiAJ+w^u$SVNq$%C<C}6Xxsu^Iv{8nt(IXF
zg9HG8YoLTZsaklZF>J%uy?X{4yUerFY{za)jkIXfYFc{j+P&NA<2JtDmX&22xsa7m
z&ltG1bCkBv9tZC?msj#TFJ`8fcN9HSUoiz@t6-?OVE5`#37$883K1aeYpudg+vyHA
zsa->kO)fO5B$0#gze$A02k5H9!7bs@pgPN?gjCJvoU*bnGMfm4sz|$_0=R?(?E)=@
zsLMWOdQ~mU(|k(^ObX}EpBE56;9Tm*SqFeXGko&THP*w8s&72a<>lq~UsN#f>+4fK
z5{(_c?io3Y8;JyXCdtDsl-{HZy&X3GH}5XH3{$uRx38SWIeCbFfWilm|J|;Q?@O1C
z&Y#RKxR?`lze|hx+p|Zyb|Ni+ly}#+O!iex%?~6YSrdsi{_^!}b&ySS3}?Y&%9mXD
zi-?GbzMPT#s&LW^MiPM<0R~x)of--Oq8ijCa-97<dbU9n!#WN`T`3@FWsd{AY1iJb
zwd(!$-qb1Ta*#ZBFdaL&c11f?&!aY8H7qLFUXp-c%OfkxNsTv3Dk^qlJC*X>={dn{
z6QA#S-_7?GTi=+c+ubD<E}zcSHn@EGp7J1G$5}JvC7R#AyYF1*>h||~(_=%8Sqenl
z5EB!V>k7IYh3#X3%>oG}zstp~s?2Zywz51UY6zEGbGs=!{l<+O)ZWFVr3ywyMs|<)
zerM}&=!pt(W}D_lG*eMjR3w%fhb<)%fVTgnm^?SE<%)j+<$R4;*G@x5>gxOm1B$!*
zA9>>??Bs9+*_4}Wl>ZDB3UT0Znztm8aaOgof;Bk&L{=6pmZp+iwq+XO8wBVcYM^YQ
zQ4c4{$`Ur7Zat)ye!Hf`(0_2yC?Y(3eXe7kX-hugEdUVwi`G;1+z&L(S1m3s7DSGi
zzc?;Mz{AGFYp8Ntdnoe!_LI?SX}7MlmbOM;2}?7mV%EKR^9$k;a>Fxc)UoJQjae2}
z9Ugp-xY|cyCxPJ>erth56D7=5b`?-xAgA3Zq&A#KlEwXby`xWES5jf}^^Y43=Xbcw
zUf6duCi7NUN>_b8aLE>fCghRi(k}Ud+61dEAC-;AMQ?oi`?aU8jyp$o@0;hJ`(;%_
zDkdf-ruyTOB*~vW>EhH)^OVSwAGUI?PhadTev!~=A}#H%<uJsHRj82Mb0+AruAW|h
zowiF2mOmB=G&>QyZ>H8SW=wo~vO8hQs3pHiKMRL<eO{gk7U2NzZEv`wc&CMF_%<nI
zz8rp1K&11F6BS!?SsbSNnfyw-(i4+)iqwjmkns1zcPp8gBw{bNGl;|=zVPU(E>>k=
zV()=a_u?w}PP$QHrzWeq4K*fh%2%E#P_^wu{JqohnM9_y?>+1+y~&l@ZD%giP51A_
znSgCek`uH0*-ofuNc(A+le`EV5UX8~-(Q!MB;qvR>!<Df9Y$Arrjz<GC#NiV_PndB
zFNY=@2`NQDMQQ%g_mmcAb`lc3ZaX`5-)rB*bW5A^;rF)n?YIR7rdHU7!DVsmwQq90
z(P4F$Xz!vq$F33|<t4yUIV^qp&Ej3gKhsEncPhx#mN-POe^_s5kN--NNXJf!BE^Ik
zQvwXIs@L_SF`SI;aX3;f`ZgZ`R-{KMK}`wkQU#o(Sm5jgYw1OtAz&kxR`K;9@HMaV
zqAjUs`W!$Zz=UpDk~$?3xmqNfQtYkq&SIn#RgW2*qv7HTzTRMqf1@cZe}HC;f5V?z
zHjQ^4BX5WVTXPG*CwqB*;3M5Gs@H!$lJxzyLv-=A54(z_pr0#|{MT{bZ`QCV<IM&=
z@^n%3+wQA*!q;uEH3x+4(+-@vbxruz&Gt`E)-Wu$CnV-M%=Gs~g(z1=%7FS9nUaUs
zpXo<{Q-Z4_hyvuqRzp9PO!KCEkt`2cX{u99(rc%%y(F^8(qz?<9sR7u>uMx-0iQeU
zIe3sgr)hXb#ECrlU7SI6EQ>Sg#2{RtTCQ!f*faVBEY4ortEB{kMZ>PVXTWb5r_*V1
ztO$D?f_r<7JW<netZ=?6WI3F#+4kc=R}7Qg$RR;X30cvlw8Y$TNyHukZ`vb<c?Sp6
zTgK}$2@7k&Qpw>BCOHY!Q}C$<mEol9p^OI0u|it*)2Ee*kc1Q_oB)3@F)_~KxAyC#
z0WAvS0s0YdI5Jz;GBGp90ub7_KVcylnvl|*5x@Ev1(vu(_=|!3g<%DA^AwKU(eqP%
zRV=+x96dcf193_DmDpq}U}b`hgA=TJeeV9f?1W43nt<5}UiY)Ivg}uuW(aUeScr9w
zrYJm@*Z4B|2u*~?+QQrJ-?4B6zU*&y7^z9G(~85A6E}m0oNs7ZCiZ+*Q=H@-X&i1b
z^Du}<-;>~Kh*ffX_N<P#P9sb|*p4|mDj}zV0wk=}vnl7<)`jJTkpzaJY_MSQy6of>
z{t()3lZJt$f?qc&!`F1v<1Kc<W{D#(BqV8RVMa>O=2`!T;wA|d<o6zQXKLpg@)Cl5
zIkipbj&kCu?{+3e;Q-bTSgL+n-y+%2LpaDm>l`Epx0jL-doRs<5L;BS59Cwa4w2cj
zgv}EC%j~SJrd5s70j?Vt-&yF|O?xdJGhooBHf>2uTS&^C(Tr|jdtPZ268N$0Tdv(i
zb&|FyXbTCDIRuqRfcR~6f{I&dIgWq7e|Cv<`Eo|ND5Co|gC;81Ke<@FmX{U|lElb!
zNEpt`_kdrD7gSJCc=}blz&Ve11s;J1uTEd)Sd7)m%br8><d_&|rirxoxV$)yQo{J<
zs4Ai5*$$C9mf}yJKD~S<x}5nX+j*{wwxBdi8*bzCJ{=@}Qw0Ep4ju)k#`fuag+(Wr
zj})xrS1iG&88iA1H{~4kD^&`YHZd`gYp9KsIcR|#He}(W@$%vv^WnpXuQ}<LzdE+d
z@a;$t_?wq7w7K{*U`C9ZvU#t?>lz@sD+`$xELlGpxFZ;(R~>!j+)x<k4u=FCgyu-Q
ziS9Li+6YHpx;)(6@pFJqd?4f^rTjQV2Cm|8wG7QoH<-!<30f_F=0fJ%VJVo$5fU71
z;sZ)9xIS6uaSZIqOYm}#pi=lE;=&M5qT4sI_n!oHOT1q<Zv|mJnZw`~cFI`CoofY|
zrAL#=OwQn$k=zc8rQo4~grR#)Ma_R4JpEOIdupI=M!lTp(PMi1=&J*)MxaiWHCw>`
z$d%ffgi)sa3g;TD#yX1fYFDr+2T06ZT;By(>~Kp7T@C4mwBxhQwjJBzmV?gNJjz|Z
zc3dm>hud{{*-PD^BvRf9d=0^Js_XLb@RS~B=9?LFst}&>w$=Q+kLOPN#ofDi>i}hZ
zh0~LZ&30Z{vSFXbdpFIyz=L~q=9$uzbfl#@d8VbMy%vcJaU3Tl4QOYYU4NHfja<_N
z#(D7Ma?0@01vPzx`PsJNKwrHTpPBrvO6nW>A3wgm;Lg=O+V*kH!oB=*TBbRp(a8~)
zl?DlJ>zpQi?cG#=iZI$ry_+aiwzNz`(A+}GD<oBV?B`)_eIm@v{P~cG<Bx%Cp#l5;
zn5bNik+}$`)^~T$S-CR$XIb>@y{e*$-`@R<>oc;PsyG$SxUV?+)L$z~OL=g#vb=5*
zSaL$@##_1zq)3>E){9Rj!P+VJhc4#O^yKk?lX9J^OVn)OKeRn0**CrT1&ey};$)R9
zQ({q&D|Po2A~KDtb1|9e9Onv-`d(FMxb@ma9L9J3XBX@dyvp?76s5|n&HMa}VI+Nf
z#msw)3SoULXRfnJW=m9X*A6<t&h&D(O2RM*2%^&jU{fdP7M5l_L1gcFi+nAP9lRSW
zrke^}T)gJqrv-9?g%l(22T#yqP9yMMUAf0X7H}q|whfPuyRBVOiND%L*<Qi0C3mQ(
zGJ5ltX8jPSTDQaO>~UWfy}kDwE&gGY;Y!+2F$8K=%D=F)yO|GYk?*LO`$<17`<N$B
zpYnJd<U5UXb4uHJPFJp{s!q!x;m3%vHk<rC3Zs)}CF5pcmv=iRv&TLk%*zicNqshG
z927Cs@i@m+t#XOh(}^}VgPQsMLAN1`ER9Ig3+8h*SN3jc#&N4vbDkM)axPs<Rl=~P
zdDp0rz$5chGIz+9m06sENT>La7JTk9_it>}NJYFDc>0`?;5L#5*fdnmpTFnNYv?Ng
zLeQ(cl(5IwgPC_az5*e+SM{CR{`liyV^-DVV0~49DWyS1OzctJ6yjg41b3eO)Oh{&
zySs8j-B^%E&Tq&C1;xzAR~Nu%*(+x_ho_x)=f&5J;5YSfyt?1rUB`UpOattu!#qn`
zPcIUO*`x1U=zXO+5c;{b08hbd8>(SbF9HH?*Z75mn1V~co(~SVielO#&tw~65hl94
z(6XX7LI*k&HIti(neEhZUy%)US>%+efmBG~zqenry$rM~wPiQ>y{#5VVqf4=#uIp^
zuR#6Rf&28v$H%FU7a&twYh0V>V3Ueq`NGTVI&dI77qhT%Q@mPw2|Q%cO?`dZC)Yo_
z@859aZM~7+hX-4jPn;;@54ucT6ZIV#!u^_`u^wcVuK*}dm;>s2;xFuwA%J>B`icGf
z_v_7#cSSlc&5H^8MUU^T01BrzQozx(gC9?@UG$kbU2r7*%Im8hTzcPLpX>JEYd(qa
zPTa%og4|r8R1`6I>?d!<c_Ke<G^BgaX53)QyaE2>D=;wepwiCH`NUo0z7DKmE5-s=
z4A9C}Oi%gVq>gOL9g_~&ctBU%Yj>`$m52>tJmAV;?5A$Yc@evGx-x60`ttFsZ(qM#
zXe(w3IW<t1G!tn1hjQlbT=;t~)D6VQc7Q^8zIUG8Fa;`kH!tLJb<9dvjP-{3R=o$#
zK#c2_ukJ5dZ%Xo3x<@(Xw7sI@`!({^rXBQYC3VqPK7M^AP(`>EoOxpFt*tXu5!m{w
zV_ql?hdmRa-sfUB>2;yLD2dgns(rA)Y%oVIL+Q1%ZFI&6{8%k<zzEBI;qPxy_$nyK
zczUQoA9*y*Xi*(`wDGdb(aJScZRhS$)}J<QHVSG){jBYIjd~+v6X@f-+82I)`iXhd
zYH_b9UQZqlunFC(d7-bb^Zwojtx^~x&&@A?#x)|1>Py!^R_D%Gg`_uRV5@iQHeI3M
zu%~zmBX_P1983T!v`(M*A4d_;BzH`#puwpp$VP48)yeDUlk2X$n(=Hh;WIEW&>9c`
zs!%fd^!Ls}&!dWsN7prJn>YF;%sbFr)^b{&>rtjdYR6tXpPHJQ5bn;%<FdTC%eV-b
zD_)TBofZ!|XIflLebn>pt?t?Z6GkF26(iSOOp8LfXjbM=&?myRivZsn4mq`PxFCB2
z!Q%CkRW82pdzko+qs5k>A3j-mXBZ0=ysLq$9njBga9y)5KBbvM(}rUDbnl5=4(&?o
z1u!WIQya6>@9Vcq$jcQ?AcN^kPn2V^E$w$4&bZSd7Uyj0H&?K-yimIc!e>5Vz)PI|
z*f-B%73_E!uJ{$4teY@(!^=@-TV&Q*Ab&k9hl|)vk47WWTgRLxM3Bg)_ZatZ*}-=W
zI1{xLk%1VAEzOnmQK9`7MhzKd0SsT2XokJg;DT!t9_5ZT7QrZ|54zY*31w;>`K<*Y
z%wva`-K5OZ)Rhm(Bll>eS7V(}(&FZ#%|GEh)COF-{q;+nmZ+#!Bu0JT0m<DAYDA)W
zFvb4qi|~olyS}KnHxF0zs@8#Za;kmd<D=^{0RPis6)a%!Ia_}Sz;z&9+F*BXsAthj
zi<vx&y15FM<*IC>JQRfw=M+>Uv$+*+adZoHX>oCKZ3_tK0>6?u`ByWSUtiA7*^Lak
z;YQI;>W2k4H%??Dqk3B1VYgrP4ri4U;BLHbi^E9XF4L#_<Pm`QY1QE$$vVneAHs4Q
z{q{v7ySMUBD%0a3e?^-0^lKc-pmI+hedx-wYG;=}xWO%*zft=GYO3A4>aP6E7?WPV
zetzu?s=8{rc}<k6rhHkUu?KZsQa??!U6!oAX*WulOD_nDKM?#C%_zv850aP#1nLL$
zbMzaegM|dHIpLsF@)sBE2^wbbXF7ZDzK=ewR#_Ug#+L2v?L>7w&$qO+G_`%gX6jj>
zex);r8QonkqHwK1WP*V}+<{=23~zP-D3!rI8NmbU7b*aJC#i5Nt`8Nue4(a?_42)w
zoSYT?6LUG7S%E!1To1*AAB8<TR3hU1wj|s1z~J)MqI`A^7h_%b6=z#k3MUIoQGZXF
zKTlNWK}G6e<1Ca=Kc+ZSxte}IpIrF)vsx9C9h(X3ANx+e8(ADk%qb6OetZ3XO9}zi
zE9@TcV91DkyzO8&CHT{)i$raWOcWs&oY)*mK9_`uf@=b$nT>SdjCDK^F*rU#CU8l7
zlg;0YNH+q6>{9Hf2V=m+9TO4BfA`|vNdAHesVDf=fOCH?#h73iKw#ff(<fz7YW((|
zP?I2g9ukm`yfZsapcMyyB0HSZh9j}8QBolZ&P;aW{$(K-@E~wrfmK&ek0DB(<Zz(a
zK4eQLtc5DGoQ6z3Vz~zb3=_vxPs5Q1Bq~IC@}gom35rsJoMBY|W-CYL*|D*)S|S%j
zVo|#g4;29TJF;TuQm~It1Wc4f&IW~#xH#+4lDddUa`l?lrQ2a=llOW$6uQya4<;8?
z=Q}w-BSC8yI|E#Nl$71>#x9vA6Jbp3B>N+;qvEkw!o-|Q>*7_b0yq}!!0t4AdR=QM
z3q%H@T7?@ZRLeMWtaQQ-UR>|%%fqAtJbLbR71QuXeFU-1h||l_`r>C&&aj{pa>^3W
zg+%!n&k-&Dj9wCDuo47UNfnJd4?$R!{%Im}3ni{?`?)W|$0(!teA=WjdgHbOwkHPa
zO#lhDU8Q_%dmD*>SHj3F3p|4Yc2fk3ONv+pH#awOnVtel7E^Tv%Sr{y^KqcjPLNPF
zty`R%xbGRm&6*@qgvW}XXhtjn3*I~9h*Uz{uparxLOkCgr%t)4v7-^D2Rxlrt{VJ|
z6{2urg@Fjjj7Sn>kpx#_XA@Bd??u2Zbc+j*RY~HAxmNH8l^oae))Q+gIzNB_`LOFF
zILLk*XM}c+f<<#uB@%!o-@Hz;lw<jX^rH<gM$K%hBP_H{E+iapf8yp=2}WP8)g{Df
z+8-6}or=;GqAR(m{U@}2d~Ar|^fSjM$=uw$(~LjfPhY%wqBM$;PT0OWz?y}zl$@i}
zErq3GRDJT{noO`zmPE?e2^ymhEfb|B$UkqEYZ|o9@FIF2nfhULIwCUi_RlnfSeO)c
zEVMl6OdPZic#2>xrzxeREkSTKszEa@iyaJwx7W#nWl4<`ci-1W83b3FU{F!vN4#K!
z7J>)3SvH(c`>w98V>s0IA$G&5peSjs7QuWI`ikfsj$d00?gH<kMws5wVwZT6Ur$&Y
z9|MCoSezZ32TfoJ?q+RKOiwb<a%sDfTSS^Mf%#;1Fo+0Uv#Yphhyb(o>x5B@x3~9^
z(v4Lnp{IY5iG4&?r{y;z&E474vnl;@MaLU6@|)uoJxHz7B1f_ZI6}H`beTvfoW91P
z*`?TogrNphK{#$r8p0zL;7)=xZxx>C5nai8w-EN`OGSlBh=|iEozH(TF*369^45%G
zCE;v=W`*qI%3mz9!D*4;L^YYYXv9%{>@E*7T*|xl{@(Lybzez`SN3diBI4JBx7>LA
zap$OGUp>p1-`lO?3<7(c7A5)vAL+E%u^FrT%uEy31mdX%I5-_7s_^)iquFhb4tl?O
z6_0X6-sp#|8>ShkS{Df*BP1>j!;Ae<(D~^6$%61r3x+vmdhEvhzSqQaef_R=*g@j3
zb&+n6_AMcTL3-zq+%euMa3d~We8jg)5EUD*oBotfs(-PoB&J2K^Wfh0$%JC~<@sTv
z_*Yq3nPybaO;8fRD+Hqk0}MraPIL7$k5})UZhWTDi%U3D6YACgujFzjnmEOn_H@s7
zHlgvasT>vGMe}WaITx8?egRh|1E6Afem`z*?t7jI;Rx;-WiVzV89t*QC$G&x(@`9d
z-}~k%HFnfbbg^y6CEsn;Cd-UWOsZ9db6iPjJ%Ol9sZ}kDnb?gtj?ikDox5v?>VwU*
zPTz2VpSi`cI8eIES(Ik`xQhcg^OZCz8lm{AR4u8h@A&hp@tbi{s<SNgouD=%m{g*6
zscF~cv&Ik3Hkr`?HoZn%U<A2L0EeUW1MbN7Xppi#Uo^mSN(^vp4IQNQ6)zBDbGrA#
z&ur35s-fsvTD}4Qj3(<(w&y87@<EcRArd4aZ%6|mCt#d?Z|GylfC%DB3<UUhl=v>>
zYxS*!C~RH%v7Ksjft!!V(?7p||6a@F111_8A*HOMQKYwXK_e(Mp&CM>wtbQ$iWIzd
z5;^o*-x=wB-i5k3x;rZf=wdb8s6EXh6A+FpWiFwi%e*i2F+JJRWPJ%xL=-`B^YAGA
zqPR;Bbd7`moR2S>*xHM-&sr0OOH-&-&(rno9;7`uqgx2}Z-+t8*qf&uzltQfC3_;G
zqSXD~O$|4x3kV1(3sk6IwAGr{&>%{Qj5q~*B#zjn-uixoRB23UQf^%tzG`$j5LP93
zG`2D6!%-9E1U06<My@@#F8b)t5r=e3ja#+Y-5X7yis_vuuaJ5?M~*2(-U1@3?bWR4
zs1Ca5E9w075iA2-7ko;?CR-i%?^ss0zQ&=y8p94XH4Zr-V%p^?HfiT<Xcyp45i;$O
zPtp=L{K?}#{H#ah4hwZtNxx&h%gXZFVtW@+S3Bpq5N=(`yA@&Nef(yxd54^LD6U7s
zb-O+#0&0#J#Ohn9jGvp4Z6ujRRjIaC-Z2%L38gTcK2M`S@+lmOlN;sf!-kxwol6N1
znbEBg=a69#-L(+e_QOWL_b1z{2L06f>euJip{ODQa!C>Cua#la-F2JxX3DedNdbPZ
zczey{`Z_9BZIB|jI=^_;PUg)t$Hm9Tn`^qXsZ;OCu$#~`%szE=P)OV=Yh-Jm)aA>b
zR;F24G4B0k2m5VtWa1Y-62h{ArRhN4+mj%`W*kK05S!Ssz2s9w1sD5Gln`LovAw;$
zYmd^`CTbq6KAi^weT_Jal3wu4`n(R$GbKjV65#cx2*^6$Fd=`s;``_KjU(S_ZQjgh
zG?+}}&|z_EB|Z@{lb1aL0dLcc+b-K%f^xdrwK7{I`a6plu8<5Yi)_lVF$DRa-5(og
z37R?<4zboA3NLz>#XF>)e0TWOgo_P|1QPwU@xXq_HZ|Do`i3$N4o^>6?T~gE+WWWu
zn{*+Um*csXcF3R4F_ktu&1f3_Y)D`$X?LXWUF>{X+Ql}NXCZ8=c_pBO$J>)$I2M8Q
zHuj8AeL|A3j#*pSZu#v5veMb(HjoSrP``qEpA+_!I;e2x5Wm?w$wr{vDcuy$5{_@l
z!*l+fLm4u<q4D!yBKkU1s`FzC2<C+4VPeACV--VBJw0oI{1Xa97Y0+G*NzN_N!?A#
zT}$OHx+|B707e6$yhJhb@pig<`5KnsED5QZRQfWQVZwuG^$_3<PPDe=F1=ZsEXWhy
z$~y>QYRNYqR-{197S6lN0E@<?rEgaV^QN<D44s^`gih{+X13y%EnA2}6b&tH6tEU-
zs!Ttsn#ZdHrI$cL--p;J(o^*LbF6HL2ss=-Hz@HwCQ_<w9eniKJ(-Jpt$V*6mhtB<
z99a_Z;0h3d)@J4*t=27>oDoA75^AMap4|9SR+cU%vtANhdJ(ng&9A~gzx7%6Be&g>
z*^CVxKvjlweB~Er?}eh|&|CV7@n-sbrC-^jVQsvZ<?wRaL(U2t3&9{lB|y{{NImrD
zRpbE>nPmd5R)MUYQXR&1R92Rkn1U9LXxZLO)nCX!eEc$g_veY{ICWQNj?GA)_D%<B
zKJW^69lEwCnGY0hMmYu5Fs%{ZL;VwWAT5}sU;fqCxVhk(Sc|@{uIiQ$S}ohd(N+uX
zS&o+^n1`XgQPH&Wfzm5liX-bHLgxwdg5I+xSzUV#=VPLR*~~&TWeK{TcZfbqTbXM^
zDU`8b%xha*P<ko3DeQBF*r6f+tK-ZZ9OVZ*MD50J4p2W#QB-#7tehNUmv1@s<6ri%
zrEA*w$J=vI-;D;E%`9H$tln{cBDW+OVexRnL8?F3Ze$`hK!?)c!FaS7YTH0K{?DMk
zYhDRE)Ux@3WIzeg2%4o^f;PiOjQ&L3R|0N&D79ZwM&<;!3)taWN782#N+5W)Z%|o*
zlqa~G`dqtIC^93IB8kd}&P@CO5P~zs0+pBzwF{`b6VMyl^gCG^dRX*GIKbM)moN7b
z?0k|Hs<q`{;~ZwDvqV6O)$l@i#{IMh0%=N#BckDkZrEOR0H5{X)ucP!(2DDVWH2Dq
zZbLSHrMjLBq9)CDJ#;UgKbQMUYi4<Tl1O7%tH6w=S`8=@+)0fM-YC_6>Nbz<XzLNH
zJw185Z@E097yc>1O;DRH=DOFRtT<QHS32HR>cOaxV{Oa>KG9;d^&CNxxpOfCF@{G*
z259Bks}6wmQMlVR1AXu{?L|N^E^*I8Tqs}cvl!-=l9J-lb{u=yheBHVGohg$$sg6g
zoJ~1*1f4P<d)-6~O5aXF+DSX>=nvZE?htsdZlH2Klt7_S7C{LGfpGD2$Iwz+(jr2k
z+t(xs<2|gkgwOt)=jhRoc$=4~qIvs6azZH4WU$H!=BT9n@k1;hlnH)Exs_)b3UnS-
zRn^)QXrfN<5T2B~Yh?r=A#o^pC<Ritf{DCz^^?N|E6zuYPZ|CAW}1a^zo91a!Y8#|
z2H*rYWVnC;(gQL3xy@{!PB|SdpjI~s1|A>+Aek2D2K^vN0&+y}Gx~4Y&AdKOb9j1k
zdaf?p%5Va?(n}OW13o_95s2C%I5T&yp5{`5Ohk<((qU$J!%sc9$u)Hgkd|NVvKemN
zZ<+gELPjS2C-h|V-KeHBB@%2+a(g^r{#@H*hIl7uFrhqv(QA90W|FmhxrhQ;F4$&0
zL;z+Uo+`m|xOXTI_yDF)L7|b-E-4`~`g7CC&o3c{41mQEbqjE7k9QR*%Kwwx^Fv3i
zQ~`{j2dcJ>!cmd`oN?mI(PuAF!Y4AyIKsfeE_<t@sA~rTt;}V4B1FEBAy&j7dVZEB
z##HUqFLJvigSvXhj+*JL3QiPu@>Da;Lg$udS`sYo<~(aaDaufo!Ey9%%W2j`P`Kai
z8FCihP`SF@hrYwOKBbV6nRze2!KMi|<9jwJJFTg^o?8DE)Oa`VaJ!|eJ69y!!a36h
z5Gzi#yWQ5CvbN6=<k#H&joZevJ;CbyU?V8tBwf^}_nIwP=j6Rx9-rzmflEGTs-P<~
zx_v))_`8L=CEdD~IOL=o`bVW3H`zn0=np+Q&6AHo$G1%q302+DEGVu7ZqRnllq}@C
zV&uNch^KYLJF(U3mx6<KtL8$iG|WGv+WSo3u7Z;xm`xJ&&J^_3f9%tdlytKLtr%b6
z0(#ihxKq}kA<}GZUCY2kh3JghWBmm^5YjnK_r~D9uUcj9KG1B-?8&&nN}~v6zh4zO
z3&4;<K@O;#44BqAZK;`CMDS1TM(%j3cUl@I;(L(KMB}bqp$Cb)U&z)>Zs0`edQ(W(
zp5~2!pb}293W96GDP@T^4&l+iob{<1?E8^{>BTFdqXX~`)BEcTlk)U@i1O^yx^IX7
zEa^Dq?c_<Iz@c8P83kEkROf(MRN^~sPWFC}aBF$_?Ki!vpyNg%_`CBp%6I46LVt=>
zF#NeL59oidVn`ByV@ODT{+TsYAD*h8@|H&d#@p97a?QGp>y<<xU?&K!V7qRA`2=E*
z?ZMVLmL~!0*CuH*q%0I8Un#Z!^DgJ<KpDbRh9Mk#9-kWDF5oa7508AjuTh~NsobE|
z9M~##KPej=rFSoWG$9JLP6d0KAT%LKR=8U#<+L9u5nNiw)OCrTtrZTk^A4<DQ13I{
zAeupT%L?r@(<EwL8757!PdW25zvQBl5rfFMX2484K=tLq=`D!fgvP>&!_@sdiW`hU
z4$tg(0J{e&MO+S?Hi|}76!=L^q$3Ob0JR2p-_smNcnv3!-nchuC<Z{PpiC%(rc_-3
zp^0{ewSK33rw>aZ4&(L*2$+~-geUL`2<V?sW*)YV0Ya>klD%JFbT`ekrP=;%V9&b#
zwOhI~t@#f*bDo2c^NrQP2WLU7gd-c+<oH~JwY-N&ZAFUU4;5S61n-82hhLq^bA;hZ
zO?6Ij>3qHgy)lzke*F5>7AIqy8#msdqU`6ogYK6Y07hZ{r1+pI#fl&n5K#6jYQKK7
zx$w>bYE<kd_6Jgy%t!KOfW~#9?`EsY6ndEbOyj4B^QHd4z4|K;by^;#B&^+1I1T#o
z9H^h|Km5RXW`O<Krx?O{mAEzfJ^V&L-afC{O0_w3wA+u}4<P&{#AGjF6E6V-{o#`k
zkY#XaP|kSnf5s-ULTaPOv3l08V4(s)qy(baa{yA{L@+~Z{SGh4H)>}#f&9<~BGrL3
z>N-LSNkZZzYR=qA1<UqwegcnfqmI#mV7q~%q9xCP(lWn;Ug#EH=T+`OZ>hbp>zJr$
z3zEGe%l_(OMn=YcIZY;l)`PcTN7pnTQOw#txP~z{0@!~=H;FXjq%<@aQ0oxnt7Tth
zp*w?U^I%gB<qNmZ_4Om*QJ?arykDA!+sLc+L$Mp8-W%E0L$`4#^ib85#$uL%xheyR
z=BCj<0y8)KimzpGJlsJSqdXG{e5wbSrH87ih`0#&ziJ8Y3y=O7Q!nW0nuVQ>t6L*l
zbOSSSLzr|5K=iX-sz0hKJm#Ge6DTRqHw6RT?IU&LNbkrj3+@60KJeBkvw`*HRRjfp
zl;4R$U2?+^^RZ*ae;nffc3d^(lVIfiyr#2vywi*umE*5ohpb5-2BU+eGWhW}l&Gev
zrrq+YYtXVarz9m=A1fD`?qOJ&ee87;2dyJjy3OnE`+NYVeP&B6mtUO(%Hf4h<P?%=
zE(FO)Y%qa{y0us4{jf~3Pcq`ddnQo3t#Wh0lNM@?Aa@&@T5?8WFaaVw07X%MWS4<p
zWnTh@zU=M2wVRe!pHO!Y_l85%WpgT>uS?(_-%FL(6V3=tbLjYz2Kgh6cn8_GyTSK2
z59feN`lhHKrMMphaB+mdq&ur8m`5|)GTE~xGn2mxat<Ca8>vS1DXw8f9x=8@ZKW(;
zJ<6^~c9=2YL4zKokO-B#b!vu&Zu3)!x+`R*JlEb)S>XJrJAK041cDt5B(x~;nmM%t
z`Ud>-UqS~v4k~cXN17Bixpd`?od2%;-o15O;dGX+zJA~{k@+u^{WYZ^P5kj(Rnb?D
z5*Upr9=SR_Aiq3q9AFi{vFh<gD(?bTos!uon+IPJ%;GmiB29YzPC<1I6{~5KY)A%u
z27%Sr?(knnMdek|WgdfSAk6n=cST4NdI27sVWe`U{Uz-7{<48q<66_MF6d3RTbx2A
zrkY5r!7~$79-&vx{J4f{_Ut`cDk|?EFS&G}%sXZL^Ayo@*Vsk{WeY(KGxmXR2S>Y=
zxPmqz^mg4PB`KLgzgh9;roZu(n+_nD8cM;0F1KK@ixaYDs@6?2tsZ|h-p8eh4_6kk
z|LC>6@ox>5|Mu<wp%%>llsf#s_Tp%^w(Wma-qh7a-@t=2?%YIk1Vm}1lCm--EiJ8=
zM+HTJJdQCli;*p-2UP`v%1?@0I)hnPw4BUp`M}M?^YKvGTpV~=G9x%!un{N4Eu2&8
zjezH#GeYg%)!F$#;LXJDo?f@R7M6wY1hQ}Nx0HW}WNEX_W-6*ZU?5+<x*Rn=G4YX3
z%s*B>!VPDdv3Q?CABA$nVq}wFX`%Dx7iiWn6n(qnLs8xi#_0?EcJx~ZACI;k(!68l
zxm~pUJI%VDTU1mZo~dKse|`Lqb;<tMR{g)+*&F-djH?_Hk)M#6fSHLyxoH3nnpifD
zoI!4==&$fKS-u#w#(7z7W^jETb81U7Q1xx_tCyBT0s>;Is};*$a$P_W%0>}@?osdR
zs{J*|CUcJhtN_^X623nY+e&Obm_Jmes}GvyhC+jM`|HbJlmKc|ALuw%f7M$pB5TtK
zRE`Na<9%c)4lgK=(RmuH81n`=pcm|c9I6#a0g2Aghi4R5e{b^>$rr6tEU1FuWWFG}
zHXjNc`291Fi6id^P?PY=ahd(d@Zr$5)gL?%!<!}XeclJ4sR&o@Q`J{Z@E;EzJTQB_
z+UP-bc;~MUk|W-z;76g(RJ;#eluRT7ITOhguW7ST^rm>>u}`~eQyvn0`LSci4tr$1
zLHLCEk{Qv^996Zy`|omDrC7x)u=aD)+aF)>8I<$b$Hm1}+apFCk1zojv`3SAoHNlt
zdEK*naSu9+fD}lCIvGx%I6rqh6Zi3ptNigQjQ!EX(4nDbbg!_HB?azLM*V`|;Rw2i
zsF}#IbVB1fD?JL#FqJD9<KXOdaW?Y>+vcQ+z8^`^SneM?XwF(%o>~Z93)AN^!*yq+
zsbT(9R1ah$q()EQ`gV5f-s8_LIlep0j$Y40F)#q?N981~1Z@Af?q({+pxjia%nQ-g
z9ItW&8xQ|l&hm9W!+W<i@6(wCEHDHSWe@#@Rh10i+=&9v&mj}2Te2@nctB}7pjC*3
z1R`b=;<=!?R15nH9w6(Gpfr}%WQi3pCFZ2~Znf^a4Ik;wN9^U*y`Fhta}4yl(S(O6
z*Q5^e@u4Bs6pOJD=k|iGh`2Zz0!~uT#=4s~Z$1zRNa<N!AijHbfjIX|sEgM=*s>e^
zP`2xqW(1n~SAJezSNcZAy6haNb^e%{*}A)8sntB|$Bygma|f^LHf;Ldw*56Z&S-?T
z!r_O7$!3OM9-`MRlshEsD9yqeD%Vkd)BKi&?5N-7dodQKX6T+gT<TE9%PB}5@mmW}
z_u${mQPQhb82P1MMQ{R0v^|+l_n^Uqf^u@EU`5kmdhiO$WQcG3K1=*=O0r}t6ei>f
zsN=*z(l&qm1th`<#i}T7cJ150YR}$5xUvj*NaWH}Ko|YcpjRU1`JgEn>(=MSo+w9D
zdC?()c5KPytkvK9D~8Ny%hcEYlv8=6Ij;u%f!X8V9aCLz<o^}YsLI6|ZGYd=|D#W8
z^-}+5O;!K<;(u>3``^|0-_`iPAFI}tWSgEbnVPxfq85XnX%TX6C;8)*HfDaKzIS3n
zy!`1ke9x)3hkf`fFoo^@!BX2ha@Y2(dHnRG>sB*W8r6$>H)%s9VqSY+qW+`ujBCo~
z6W}PxEewlf0|TiS(+^Jd4b0h2wjJ(qteAQ6qAEOpLbwIM8i@7Tk>9P4R1BBi{hkgY
z;^w*vX{j9dtoaR8W?9$%?w%aIvi|pgk=C%yzn|ot_|D(>_dj>x=(DD@t%lOfFTU!f
zQc6doU0qi?m%G~Le3k69AG^9zX>H=<@|P~xb#d4>*v#>+Vy<D1JTo_1-zw}V=C_Ub
zTwdHi6lY6EMK!wpMUzR-%2<=x(!AA%jpV26Mx6>ord%mfqlPxeTZV^r{W^PHRHTT&
zM9rK?loIW8{&<#h^*HsGEnbXBV%U*RmD2dghK7bxQ&W=}HM7hwDaX|i-$IbJ^sI(f
zWYU~>lxf*I|7Drp!-o$^WHhn*`1o{nxs|Ypgq3bw{d_b!YDPj*Q3W0)Ps5`}AQ(%j
zyJbyMV7zi%%Swe}bLsZdj}s^2j_-Xs;X<FJU66<@j8jEX1htr+kp~4!94EKr=>K}!
zewx6tZX0L-M)zx;CO&5;^wT&|{LkG^MP<8X#bw8;Px+tTyZ<($_}>fv_aD6fUE}{B
zuQA~@uX#VE<?Kgk;2XvoL?J)wLq~M1Mpg<2QM@4}RA>Th=GeLF8~*5`U1JJq(fnke
zLhBe*Qnx{<|3qOALdsK6Z~K?&aVjFU{`K*B;;C!hO>PJbwZPz3jX2MoxpeU&>tBDJ
zg%$&Cdf&Z|DG;h4%y;Pb*AE`E{*5iKZ7z6upCTV2Ns!-rP)7zwSYmX#6xZVCzY6$@
z@ffcd4Uki&s3mA6u8s(ya&N=U-9hfiOoCfOI~Cb4ZWVb_>3HK_^il=<?%%(kcXi9^
z9qudQ>~1|#jy57zQY=W>^A|2WZ4zN&iTYv%dY$=2@!OvzZ_spAAlj1RRu^jY#i7w|
zTkCe0GupPYYzJ-WN;YaePPtproAS60Z!~fe`B)C+>1a4ALfa1U%VB!PH>eN8!0^#D
zpf=0V65Wyu0x}%kIA40X*R*CVOvP-<)x4*jqcdl1>i6reST`-&uZKXk3iUp#whtSG
z(eK3ZFb6*y-JWkdeq5!%w%uy<cs><!Y_W+3*E$HEP(X(=_*r{L2QSz+zXoJuufOcf
zy?*_Aw)0Z<6<uG_nl)>vH)nDQr$Syee)V1Ic>Z?fI3;J1ANgOo1Ix-ww=FH%Fnk`T
zOcdVaE;c$Xl|8oKFkLNA<I3D8{Zo=3TblhGeG2ln-@VJX?3a@3c$)uLBzmIlEQn`D
zE0Yptuc#me(X#8Jp>*FTx^cY*ke^wNwO=|~ay%71-HORKE|KKX0G^VPl8XxyUq5{C
zK!VJnogcp%wqPIpE6-;rElcKi{A4(BKTIc2%I(~_lWZdG0#=!ch;4HV`lm*ug1h<`
zb|u|MaO=5%=3&OB*~;RUVD;;VDrl)(Q$CF>J6k-+fodZChK>#|OtVMgHzFBjarSZS
z-eyA#KtiEPkdx(i-tN-Dr*P`WkTt|D4g}3HoHwJDhtlB#V)==W#Q<&h*0O`cr=etl
zc7>&J^*38*7H_N{L6c9qal>g+CD_@TF!5(cC`&|BAnFc{iIx9cfa;yj;*r)e4B{xg
zo!)FNy!zeQbp@Mk!B-M<m~3<YSp9Bh!s3nXzY!Dbv;Xff>3`Z=|FOf?!ra`wnQ8Tb
z&;z?E7xkhlD8j8UV<F7uH?8vJ<ESeidbJ7p5u8O0R4T-@kkf%>y(YhZxsgYxl@7vW
zfE`9+76@p*Z$vjTq=9Ux>-G-+>xJAxtwbfALo+)ZL%q(U<V6k##SXguI^o)a9fk$y
zglxa{nyk8q*Nt34tv-xT3*Qj(Nu;~-_V(Ejg+@`+ut|_b<~ny@5*KGjZ4NTS&Pb!x
z_mMk)H+c9pIO2el*Y7Pa6s!=F-!LUAF9Py)F|byOC?&!02~F^=(bo4+96yRG{q>fw
zHTZ3YUs0r3y`U$y%UMq~dW?Smd-a#^-kn8RfP`9D6^sde2BtA^gC*tV1Ph^<swV@r
zoGOl*U(M}2P2JVIcdZzo-Q4`4I$l))l#UX#6E&e1Hub#9h48%&9K2GDJd+2#uo|4Z
zlC5nfpX4ug?j5J)N_R*z$9pDrhQW5A+IK8X89Q^gqw5uHlszOBN^o3`d>Rgz$V2nz
zpRZB)GXVWY@O|hvvB{BICHbgA%o^4<6H(;;4iP!jZE8?BIH8(yk*t`0TZx$HQ1x&t
zZ5j@SX1=2;mL`(1STEH8-FA>LHx04vUR_SdN8;<WpvXc!TN%|J;(dsr3K-F%O0LEO
z5rY7Ud1jAxFeLu{_hyp(ty|GVb0Ws3{mcp>81>-e|GE}gyt`G{WjS~6@vE;PLQwCi
z2(b~N-?i%v+R<cwDUhq9@02<TVLDWK7bHUtZ=_dmW7GgP3SDj$0?D{=ElQ;_FHfF>
zl;!Qcd-pVc$~F&yBo5_W<vLtNPYSgz6^SmlY0zW9gqD3D6EA9c7Z-@0XLq*W`Ou<g
z+Zt08-zK4BAmriHTeq^;<fBrfE2p&jzO61eEhwY0y(qpp`P(q5__mz1fBY}^W9G0=
z<emx{4)j$ivWrK?zpp>L<D>X!Fve!luqnztq^2QC**7Q*7}I94fFrd}6Bz&3$LxuZ
z>zYv*J>!RUox4F9X(=eMm_yN>FMD+;BGsrm768qA5f)jf_ZFJ8U<rE0QDAiE*!1ff
z-U<kgC_E~|wnGPqqyr)jHjLYY^HRj7965S)3eBXqG3)7}mVpr_7@=1XoTtX=z=Tif
zKH;W&H~<OuKD|@`Vaf^007gRLNTXvtXk-kBuJlGSD-<k4`A>hcn4Q@#vI+c>Lr^K+
zgTs0O@;m`QwCXs7{d170x~eN9qzK~b_V+iJHq?S6zKr88i0=LTqN=JYpWxu(+>%)|
zenb1~Wsz5Wvl8uYR_O9JgryP<<c*1O;Z9*@bxGPPAQzJxy1KjfW(UO$HP!!m_j@zI
zLo4-mXUB5*{G}ge{NwOhkHyu*5={gc;dC2KfB9B8Hqe69p=e!$su(0a7gQ28yr9{~
z*af1?8dIfEx^{l3cM!CiJY3uqsIzQgH%gk*x_4!NFuW)FprBTjA`?mF^XJdiO+seW
zJz?nodeU#$17e_9*((8_mR4?(q?D8b#uH%ep!AM;`}Sl{Hv9(!i!!(q6)?M7n<#i*
z;E0+iSq9_gTvbemvCK-Woc16$0JBk~sDwU@Cfx(g*QIe;N{Zcj0sce456#lf|M8}9
z)l8&kLgNy5tsr6YVicZjy+5~B*#?4288T+C@l$^KM4Dm_;M2k*PYdNcPXiVD7T)*{
zrS#VLRJ8<@yZnL0-kcfEyZ}G~wmF87<I`b6%@-$nezUXa9mSkFk39zt#6kp3=n652
zLEFn16K;|)sUjM3D(Y?9YKZwYD2ghe!fohfJYN3L0XiQ7Wf4{fw}!<b#GE}1M3*SC
zacC=j84+tr?HrHqmC9eZNJ=d88;~p*W-CsnYP@dyE)YEu8o@+YTZ8N?{_k0Xwif?*
zG}ah&U$FD?Dj@<X;V@ChCtXc`!+4CBH~kZz<klTKRG^LrQ62%EeNJOyniDNwPh8Dy
zV!#H9A9ss(@7hIlcM@G8*=B9`61DP(ss}-dL(<LmC;v~Q)8O&X&oo**Bl;Aeequ-D
zD|*IIhgON#P?S*Kd6c1DAFwe3Xz>=>kzmi6(BTqu$UGQCwNSy5gV-Q6{Y>`<O-P7{
zsT&aR^})0W*h>tSK>?RQF&jLK$|{=1EGD>Ehks;MC9z9d9H+9`M?We8SXpkcUu0pB
zXQ^UkQTDDj>tnFQx7$8EB!|C#{TJqjR`r_yI`3x%QVCSU$L;pvlwqwjnXtia2Tu?B
z9u+i=fJloR4tvXK{2ZO%L<s%~+rM(<3elPXwK|HW-k_49D8T`|vLQ0X7P23r2SN4t
z-V;~fo`u*8B@fJ$yMh63S`fLeomh|Ibr(=tQ9=!eu<ZEw<DfGzq~likD*@t_kUIi1
zYTQh~(y5?f0U`4kUZI(1uY`2u1!Erk$~;Q^Oe737dyZld_KT4a<RL964?&3knxNBp
zyC9Lf{VG)={C9#}=snC+8C;w}J&Vw-LSXc3)DPt9X&5vDcqs{Clex*vSP=uekWk})
zEDRxUm$$UE3>`Rn<OuOtq)Idk5|J7miR$>J%J#yiR_&j*_|0R`#S=zChi#R0I&9wB
zPbc6m%Kb!sMX*H0H|5RD-V$^FpeH8=pOz0{dH|7Ak>nw)u%8)D02$;j&Aeg524Zj=
z(lfI2L|_Ylg9f51`n?ok>po=i8<fzFF*06cenDz$Yde6VIHF7hNUH8qPm{eE>H<F+
z3(Mm6m&U0gzydKni&Tl3RTIV|oBgF66a;M+@@T?5H?&eeYxG2|f0z*APP7oHV7gwP
z7>bE16ETjXoKL;)GvE0Np$T^u$$!8|m$bY*neiAmcgh!IluIJf@j>Wb$d*8RWkF|D
zh}S~0!~r~Ih$$qL!5*~9_;zZ&GgNFDCIAv+lX-JvF4Qrsq+i7#NNcjI2@xQy<X1X)
z;DB21X+nd{XaEm>X;>efx(^?vLxJkUh|#)AkTY`BbZ$Soz}t`A9hG?Z&tO+{uaQkJ
zHwU6})Q?@Z$LJm*C1PMR6&0&K#D1Gd@>oFAEKRhHrlBVk=EjPda>U>WlvP-Nb=p9t
zLQIf7(t!E8GUUd5%a*_Mn}~s9I4?L5(g;4a=$DUN0TyI8r@totZgBHq&9;3^i%_@r
z<kYJ+Gl+k41QI+l)A90iyWacv?+JIv*oQVr>nskH{q;##iq@JvELy8YB9!n@n}ovn
ziAp2UScjIoNX(%^ozehZZnvR5VUhav090K>uW|UnnT0!-;0cKVOFNH>5yNL72zzB=
zX^fSA`o}rCg#wHid183Npk+84LVC-^**ipM1Yn{HUZF%W(F7N104*C}mUR9QzQ<0=
zo+v+~Is9>_^G~A;N4_(q3p(j)OvQ689~4nu{bB{@>&^J=tGeOM0x`O+?`Y_^+0qe^
zH>YLkGBLW37<kNk>)SiKqo@D5)uRI3j~g2sccmwx?`I-%6u^vgT<n(TQVZL@NyU~+
zSxQ&0#wnj5TmyEJXb#gWe?{~u8er-UF&B0ja<Q(s3-hwy2B?b;<zq@%g-vSe2WJ!B
zy3vI5isEJm_U`RA*G%M2(I#xztzp+HrQFEjDWFq<fpzUpoq2XY0D`tQbz?3R*)2b<
zr8ghxzQr8S^1}=n$e68HFbD(+Vt>r~eFN3;Z3wAAHrNj&P+m1Of+`^s^0FKa8;EHb
ziHRT_lw;CYCf4_KcJfDkoCWArj};MW`n8`MRtfM?cC-omhRb`nH{!7@>bX?<%P=;W
zg(MI2mTG)<#wk#m83#j(&9S)_LR$>iYZ+R`uv!)()LV#5f4i`QL?*N;K=N5>A;>&P
zWCGwKYG-La{)mAF)Ik9^pcx{ELzAu)E%$!T_Tt3{;gzxtttJJO8`a5F8s}Cy`b9}(
z>)~(2Q-RVH2qAeIWY9sv4yRjg{Xo{NgiOb>{Qg3<f^5u<Lbr#*MaeEUYnv;ln=tc*
zBo9aiWW~|<SttoOLjl?=w^zRHP*@Q&q<@X!sE-2nK^BDqJY%0|XrkrOQ%j}V%SZY?
zZ)<~Hw;hr(N>?KsBhdBXmOa~%;}cD(;RnN_{W!IQO`Y4J2nI-yAi5<n_sy&57T(kz
zozJfp%8QE$wIM*RHmMSW2F8s?_MHRTU)&{IdWGz4S{SXfCiBQQg)<py2|u%~;s~_@
z6j!|nkB9(;8E4QO7A5%)g6}$uCO$?Io}d!SRE=v(5Sl~XlXhcW4!j&O?&wk?Mv7K2
zkqC1xP4~$dL0|AM#sxh<fVx}L?D``7PC<^oc8D0R1%FOcuMIW#)<bb%7uYcH2ti2!
z$e!A`XY*q^0{mc|mEqWeomUoGXzN?xDBU#pAe$rtmm0>j-nAmqB#<axBgvx6W6$h~
zn27;bL?)t_stPhkEz3Lt4M^XQEF3c~DC8mn+31(e&2SGjm_Q7iSB-}y$Ot+C^NUD0
zPE7xU-Cv(V!WlsvCp710n|Ddxoq|kG&~f%HQCUVS@g*@aHda;%pmW4<B8egF;#Vgv
z$r;2Sc4E)&-7ieb8{54zM!tQMBPKWzSs}(_q4t95(23~k*G8L+BC!NRHVE0operKf
zCI)tbY;ybiZ@K@Az4w61GTXKVe{&fSQAClXfC@+uC1(|(FrldAph%9AK}l7XiXfn%
zpkzfsKtOU7tdb~#Ai_^ZK_zF&spkg0_nz1NLXXj}$L${Xj2d;SO8CS6_Fj9fIp>;-
zn7+XnkA-NqXo^;@Tqy*tFr44Ip+Gy2(_|<TO2QG%&VzDbmg`aFKTh^VE=v$YXl2!O
zU5>*!{C=Z_>hlv1;bfIS$~ttI5x-6B6j(?%6?zm#z-5^jIpNDd)m8&B#yILP`UV-e
zgP{$-w<#k5L5v-#Jm9C`wY!31+B<gI@KV$s^$$i26ql8iokg-f`udNOq9QJ6Q4p_-
zGZz8r7#WD)s(AnY0=k?C+jQ^Vmae_Kk?)@ax)pqYCz40?Wq1CVIjs2N_zxc`C#dJa
z;gaIbeoS0bKAwA&o%2=~8qHpMn04~tg-e&B?5xs&{d~*I-<0KF=%FxH@KqzJKw!jC
zL<8{1@{9lp=b%D2nG3jgKKdRI6VT57{LM`2!-%Wf&CVg}VEbHc#lvi)Z#Q%}8J)t^
z5;dPgc4rPnDlxa&)M%`WOYI|Zn<u@my%1`DnHBIS7G40UdXb<IP$a8jh3l;^=Y@!g
z1><0Sf|@eiK8DM}X_hZ`?@>rJh}Md9l%sW=8)a%k0q{-)#%TO!aqE~hls5e-dKv^X
zJAMyj3O~!%&zXlqD<Mt{A&pN6rMq&6kQJcRF$apg;kVBV<COf0VW%h9yIr<K?b)`B
zig}(~7``n_(*IqMSYDn@Zyq2Xj?kjO>&&FVeMQu>O_5KZAQ7($eGcF`+G&}=`n)x*
z@g+hcW3F;w`7@mRow>>sE*ccb6Wuj$bKcYZG$#J+jjXB6D$DMM@SD>pd7&h=;rBq&
zt}w*9d{<G17a3WH>v5nE9s)RNb_x9s4T^B?ud3Tq>fpK|SWS_Xk$?;YeF1VXj+7=I
zA)2h}seQG4&BPm|JK*PQz7fD{VrTHcGiG`SK`v`h6=My2`G0}Za{+h?KYy5FMGAWu
zD7@{~`K7MdfZC-Q5KFYv@^73l!E?{YAHTWr=--TL|AlpZ8*9RK3R@F!ek^vnk_t?1
ztQ50;zQ<>(6vJ@SfMX&Y?ty7i(L=J~rJXZMWCt|FD19V=)|)rY0pd%9?^*u8!Wnx8
zwrblxpAjOEwM;pOsTtA_pq$T0)M~IyM!{2vYdYW=F<llBso%Eu7gE(eQpTK*celNj
zhf`jQ7KlVo&wuiIA-c75L4QUB*K(Kw(i-q(#Soz+aLt|!fJ7-8h(kQ8Xhe{kR_(7Y
zAL}~wZ^UwT)v)Iz99C@kmBS@6%I@cFCPXVgz>W5wsXB%7#v1Ex)t29w!_2}mpe=%8
z9u;<s+0qmJ7wkiJ{zsslxR_W&VkU}<!`Z(yVZ(aZCAg=m3=`^RBK^D{#qR;ro5Re=
zXlgJ1YcaEc;-H0VK-<yq-OYRscUYqP{=`l2rGfwh0Ti@zf!ev)Y7yF<)|?j9ioeQj
z3Z>8xPZw4_OUSsw-JMVF-o4Ajvi;EUV@RxH&V<835x^L1FfaY<d%peWA2LQk=_9bV
z3+VPG&b;umtFnXzvXJZ4u<Q9lyl9Xb2u=O@EaY4my6=QLqKb!qcKbN4H~=wra7nf<
z7#IDJK^h%VSCwyj{_~r8wjXj`o%|O5EwJ)SLYkXdW=X7LNfi!{it~m`Kj&%t&L}Mo
zcObx7u2)GwJWz@gHlUysv4TinfgQq(`eF7E(oS>qGZ8%}68Y^Y|I5mLmxec72=wh_
zx<H3puqenLyub{kxmGzk5QrJ3sM{lKxcZA)wWu@r6pQ=5ko0bf&3ce=?W~Bi!Rq8=
zK-to-emUxf{vFZ)btXcJU^Sp&&XZ;Zz*GD4miO4VhM&k0!*4dvnO0Z;{rO`H_$pJp
zelE;l(2cN*Nc5~GuMf6}Ly6i0f6!@GWq6h%uOXhMN*`fMgsPS!Yf`UGOgEteGfIA9
zN54Li&}WBN>b&UD$g?MY4t~oRwVb$dhNdt?=}3*`prdq3utbEpfQ~X^R*QSd{E4Wa
zfHx{vWLFMI(|?X+Aa)JFNqF#ufVYy%j^qehvuiw`wgmlDTzqy!{vVEOHyXJ3JA*?x
zb@lj8Fd`sU<1h|-iPo>&7MO3GhW!%Owh5;5|NQe$Sl`N3t8iHgXIQuEqMmn3*hf#g
zWdIO&zI$u;*X&gMGOsrkj;!WH0ISQ_`&%=H>Jvjb$w&jM43boF_WZq$?fs6yT#Q91
z*H0<aPodALL^l$iS~{?um3@#cVBkp%fcb7e$-%Sg>W^?S#KYI>B9!<%wvp>LGgo`j
zaga5=dFvKj0Iv}zV_e*72E>MiG^G*|C3rdq7|oI1&QDO1Y8r&*+kIh`bUX!V+|p)Z
zWle%)&lE_|bS7zT07e!N7`RsnmAox08*qNO`W|YZNP4gQ6A|L#R{PE<gZ)B|9QGj!
zAq+NfoPkDOqrae4oOX1=3CSuAn~XLQivr(53-2bEq(Nq?xZQVr(H98*NG{jZN6LEW
zqQ+K5HBV-O9F4razsk3{c$h99Xh1-n8K2E8>5F`0wsc<PTu6H(oGao1HpQQPa`esw
z9X>n+kBE;aQ5>nED%CMlTjI_D_5pitu02RES{T0sIAO<vN8;JD=LjzAvPozB1kAd~
z1=I^$5K`oY_2E|tEDhByhh8WGd>>%?YJxNoWE~Fsv3B9DR#YUvFXPU~emA!R#)P~~
z4zTejY!xI|T2YRr+S%xq`-H-IEK%#HbusCC$Ah}bN}Es@B4C$0y^~&4Hc@gu_o-0n
z(`VkH#?Gix*QDm4=rKcR4?$-RY(;gVES0KODSD8M1gPv-#(~rPTo3!RHv`Edj?Y+D
zAyl6zr+M4Q`jDZ4L=;BjpX>Rups!)PK0r!m(I?%FXwNgUeBsNP!e8lh0MU>Jo5=zL
z4CcfTl-6$|2rGe{=<-rPC7k!oM1_NNzG9)y0$3vLwxDSVuw-o9_xbM|=%l#tM;s4n
z5+wp<<c!d>o<%D>)(<!qNjpi$o}8RCP#(f~B0nZ)2VgwGxZt#pjli{kzasMKT-Rya
z`x&SPw6TYfkjLUD?8kdA;;1VJ{2>1M=qwKA%rL1r3bR7SuZUSE@DI~t4Ojeg9PVll
zP%kPlZ;U1m-2_6yW@QI40w{n)^#CDE*U^EGq+Dn~*t*Sx)j=R2cQw8Y*jPmExC<Yi
zaF*8L+~W}-#SI{w3CXXB&#W>@eSx{pOb+RpL@GowWrcp>a7H<zs{^;PvT=a>=nnq~
zFfhy?GgVqgM{lHZq9pj^j|FK5o3^eU^z>gRw2vQDXrt}{9e?D=5#5(DbMI#NsD89w
zsED_K602)&z_olf?~+L9{NVKT29L$N-`&d7wC7)c19R=+wkY)Yl>2PU=TPKsdzHNX
z{P^qKfoHKR&7j{a{JaSLes=bwm?2b+{RV)67tiq|PVPqzf2pScL5Lmt{rmTy$0r>0
zJ6VqVI}xmbBpdDK&8qN>7luiuYqPO|ftaElI&%BqJ>-zIal-}`tfUYyI9E%;Hxuk0
zl@Q8+bGQ=hbO4*I-OS8|z)Gq+Oz%K;eD+C(0$?iKQB{S4$BrGVLn8{7NCy_He=7Jf
z$DzkaEX&D4tts?lPV-RWP6yt*6SrmOj*zyzv3B4GB;vw4`v9MAzB;yDHTG<;wqC&4
z?qnRSUi{mk{-KW_nW>nE(1!-Qv!MOPQR8zXHlvI78dA~ihy~Do?a+w5-*roLXT*hE
z3DIK2bs=~Ux*^3T@DVzTy0`spiaJ91lj#FMQGXs6D4&hl#?0JbeBxbJe)6$4S_Y3d
zi*K$66^0AAtXaDjT8is=cWpng$ws^AK~c~i?93unp(o3RLTqj#=WkJryHQe!yYUHj
z=UN|qJ*g}>K<AOy6CRzoE~9Df6Osj-OKm05wYhxS*=Nx{q!-s)k$}=N;2FR;aue`6
z&LU~UU4cT?^+{VI8i|f$cO}E5?tbAI!SL47vcAL<re`!e6CxB>{VEf--@l4Z;9QIg
z1^P?CQZ#%!W2#H@fbkdm?C68L!8EHtxywB&u4Eb(`?F1*A@}Y@;h_>SJ6U!+p+!iY
z<A#Ta*=NV=#ZBpx_dY}>Nk!{6&f|XKQ-I!8RHl}X+3p0uRtmAeI{3>uJhdwE8w9e)
zX(M8Ti!as5e++o`{{4IXuFHQK%R{12_(>exVsL^WgHz)VUdTakcW$Sn+oObrwh&xy
zUx|+I*RFTdBYF*wS=Se6;(W$5#;2Qo_3w&0=ZMbfr~R{NS>`PN=3?j5;aqvr*2VD`
z{0K*Iw8uB$?ka%0qh(9>IYKA{Z6a4V&dtMkh1)3CiJuf64k0Uru6~xwuxM1lN#PO7
zCVG%(OqU-gFyEK~tnScty5Gtut&vj+FT-mq>u1Vq#lXz`k{D4Sdd#3rIDAFkxx4+;
z7gsK)<JA~uoFDRBgsOt+P%^@d3o?}``2lbJA{$}{NDLGB0Ko?cp$$xW_|2-UeyUd2
zvvc_~lc6ZniT{EUNkhnIw+>n=94K>gjuXCpbSJK7_(Z#z7PM>zk%D_cSik5u5|@$O
zoktSDsf3En{?^6k4y7zk-FUpc=pjVwYcjC-c--k=PHXY_9niPx+8hZSC1A8wEI|xL
z&1uh=R)lsM>4`3iS-o;dV6sH-1Q1F;&yU;2>UR-n^&gYtI;Lu$Jl~No#3=nOo~~3F
z@)E-Bj<t)nuTDDHCb8eQV_cw{NyMUCdjTY7zS?ruGrZ9+Vb96yd!I$mC;r3cL{J4>
zh!5<qTqw*Fy`1;I3|hYF+EB_>jU!Fq;LEb;2jsGq&D!ved4(R5p$dnbcV+Ir5)5ss
zh!O(P$wi_a*$85!Qm*ot1f|v>ppx%!W><0F3hTCM3y_vW#V3{%Z`rHw_i8qoo?{mE
z66hTr2$-p~cJI`#x?b+u_Uh#eriR#<7>2w>KovM|r%>zGfK?SHJWQhMYX}XhESbj^
zvG1F{<-&rDQwe~CL(b{TB=zd<gkGzv=b-y+b9+!ct@5P#r<CDLtYO53rp{~AqlTEA
zcl@Jo&wlLwc$D^}q4%|+q;+_p!pOBZec2XA1HfkOIIvuJEJPs>54g~KKakW}oN)lu
zpYw4?0vM18W)W2kv|62yuE>B5k$OTL9LGShIpxWgN);j?R+SPjdZmvDm*5ok1W(lB
zBrARVbInFLK?-K|UEPU>?<X8Q!MqymO7PoO19unZFFCm8T+_*~tpk&)cb6CTP2dST
zZB!%3NT1^&5<7QrxH)L2d`8^efo4_Z<ZQh1HRlVBF0J!eRo->f!q-!lb-$l!A$8--
z5osD%Wgci<?~K$WPIkUWnc$4zc|)x^2a%D+BLkG^`s@byB~0|JLpO{bIOCj#+Q^hE
z`ztaZ5g^HwjpJt|M{wntgSwtUEjZ9$Ym~+fz>s8$KOzq*=hB5NU`WY*`_5Ze;n;E2
zZyyj%37d|;(1d$$=;J)tVYs4ceDpo{k>KE>vNkBh;d}E8;*kT~+;L@Bh>Mdn?0~D>
zfJ~bJ8YW|KIH3<Woz8T+8x<kz;T{*$dNr$Ei@P#~*n}ff=4Gg`43Eq@xL2H3TM({+
zVCo<{X&ktA;+nQBv@mYy?j!>wh}KI<)aueAW)Ugn(y{Jv2<!+5W7_NH7jen?4JHP8
z&*wmXM%ZtVlW}Uvx>cD(dQtQ3XQ_zbBNFfo>+sM_7RhK1XU`w&Sg+<(E<><F_`frV
z*=lFc-h;9me-URO#5`bmN@#;3t;8GC*~nNA*m_|_!8)mc_5whPEGHQ?4V)<jwl@u-
zKYE-@JOo}|B~xjX2GI85g9p!m_4lE!tfCshM|9W0OP)#EIZI=rczN+&N`L(E2PxZ#
zVuOBX-4v!d5CRjBsW(Aw2@5zqhdP9ebAladSLn44qw_JRYEV;N1d~sQx^?UN;L;Jq
z`Fi?$C{ZUA3=sRF69IU5yHSFGtH;Wc#Vjt|{k%I%Y_Bu}l0cWYuTrBpyN=krR5ia7
zc}2;u58f}&;C4Y+J>nX&a^=D{mrSINNOo$G3xxeKP<g`E>cMyMU6l|~;irt!rh{aW
zmk}3rWHsGVN1zM@Pi68GGKdPp<_ki?`wT#FH;&WZCdGfncG2(MjpQo?2EVBBw=*)v
zA+NxvMLyVrcDibq7Cj6L)9&8e4jBr_iCVP9UI1VV7>)=%2x~@|TP*R8rXg6sq+`Md
z2z)y-ClJ^!?#d@ffy`k4hk1r_e}u}fS-si>OaxJd!uB;56>x=xNCM(Lc`%McZHXx0
z59=`j&_mh5g#;-%f7F}gjKKOpmU5$s4{1dRiabciX4(B~JXfqr_gHi%G$olfiET|p
z2q<j(;1|jD$_*s|84g9P{^L}N8DHi|*2U({GsHeC{YUVG5MB<K<$${{;_#cm7U?8F
zDbq0_S6jsRlOgd)KqtCpfol#Ks<5)pS4PxIG_dva9cw-YAFXl+IXTY-SiYEJTY=d<
zluGZ9Su+2E6|(~?=C+-ZkV*izQYBevWMJ^%j`d&fqH&<RDtEJpst@m2aV%okalL!x
z#E~8ap9jL&j#W7ypbZHcI>g-~v#`KeIU8V{GgDC1_gQ0MVj4)bu#%{PAmji)lZ%-R
zrR~X=jTNrtY^7?)xp!_giS`?VlJ*nOB{H`|S$h0I^8hA}J_DGeO15U0sO8ZfAwUu!
z4C;_)UCgmHv<~hRCZ!-`Amb>vvxOy?OU8oj4pn!v08Y$mm_7#B9~bS@yusX)$o3}g
zTw2yyP7xz#ZB(yB>{o}rb{vV|X5frS<rGLA-u7et!FOOjlRy!1$;h-dKYybPVS>c>
z<I5MtFaw?~7MjFO!ULkHl?iUfZFm3?k_=ER$dUTvBgwch@IjI|@FohdcxrvoA%l4-
zl&R;$f{&mDD1HWQnJ`-lsXb;-dS74j_f<gosMfCmBzmp0Va^K$(DIwUTe%D#=hT&;
zdIAH=3fSYW;;+UQe}ZyAH#0gCY!|@&3mAN($SCt?7Ct6X+t%cfxt*KZ_b+`4e2zm<
zT;Y=A2HxA<`iqRDyg3b^5a8g$(9i_jwPdK<v@;?d#$Fm8dTfs(9No)e)M79XoSa47
zDnDQCO)^0-kw*iWtc69#9wkgfBa=wFH#zOacrN(-9wVeb_BK5Z8A9mR(O*(ECcI;!
zY67eC=M|t@2%$l0;Y*hmtPt-2s}qS{hH0$=2r(6qgJe}9Hel3QzWDG>_TrlWSQU#k
zdL(MC`^QyL0W22kL>?$30VZjt8r(sma>ZV0>BBzIQj1p}a|B3Dy8$9LB(}Evii(Om
z^5#9}sUG6NI|Ots{uRT79I#irpsrhIU0P$mHf-OL{~PGEP23)n27Fo<kj7UT`V{N`
z$KQ{<k%d~A981ogT4mWfL;$Otd2IO6jAhYQ$@-n6e`TG#dS~Fq#bWE#6s|V}lvzjX
z$X^IkN^CLf`^|&xg@n7aTeuD#l0xuu=1QTsS0J(iWkEUrkP{gbnvLCvL=q*MUJv&9
zC)_ba`+|8RiXf)WK?=l4oKlcmzy5jMp;rnBs`pxiFa-1qfGOaC)W@lGGKiOuncfz)
zaBBtKbON&T{|H(`@Rw_omX0S$9OH=1$o*#61Dhf1*F?Sk=ZzcE=azRoo)90{0*Obb
z_JR3RZFiqdB&9BtG(D(=?sHyD*407scL9`{RNcQRkEQ+B<hzh62awAJyr{LJ)6czj
zmfzXHds!lZ58u@qM3)aro=6JNt+ZDOI9MJ_>#xnFH>Uo^JgYeagOrFu2|ym#tEw-s
zHll(c*{eim(yUx%ee(M+ZL`dW|1Z!6a^i-tM$ERkLcAi?k#5Us@CLccB6=+42Ja7l
zFaeT3J-FvVFu+<oA2O`5(IRszRV`$fRV*ST)Qn<7PcEqZJCMC8{=JxCj!2Xk*aQfM
z9m%1P3_iW@{FCOc*KtkI1pV6e56)u?)uB7#1;XHVbtg2WL7n)07DQ(ax~j<#H_~;F
zeCR%K#cG1{;`|Zi6LHd6{tWvSEuVjLE-*Z&kwn7<73vT+-&gI;n>RZq3}8=fN?Lxv
z4;0Z3KvYCXJwL%(mpyA1)epwvz?1<?@Zj;|IFw0e1JaR*xT^7VA+8@F3Ma^`_2U#q
zf@0QE?n!MKRzPtaJm&uP!lw%~q-gjCDD@Y&@$Hv>@pPD2N?C&U^EsEBP(5Kck~uP@
z)f%Z1)FwAG4?jLd(87<kwPQM!+FSP~esLt`aVR2?f_<rzpwNTw$wC=XWvCXTT_)Kf
zitFRwG+9EhfKwt^k;>BvuyKLJPB^`cF4xZzFp=6*nY%A8L-n)^+E~<6v7oS9k#Srb
zs}vn4mT<YR>&&26t@!l(<c?O1EJVF|9*>wz^8!nC>}Dpn*=Aj}$qZPaARhuTelh?!
z(nIUEFH4ZJyPciglItxr14N;NER-JE6IQJUL7HpSS$K)JI1bqxVJH4C(B>%Lyo?ow
z_x~qE(YN<FRxm}12ObuG^yUWEzWq{C+Hi_S<`i5NDLa(nz5$j&5DIcFaR)|~ACb3^
zrtY5>j6`b%GJiB9MKcjx%~_CkKS(fx+BNsu_%9ThhleM=`cn2Qap%@nwYCY>1mX7l
zx1#O8TOkz&%ovC&JQ};E8!Jhys1XTYV&@U5&P~>BrBb;lTF&AbkUA5DZy$b))Jd$%
zgTLddySmIQ<unZbZ!%s{VU6g`;Ov1IPhdm_76W`rW`NG_*Pb~cYP&_L3B3b%W_gro
z2!aUFAIZ?6%;LeMG=NW7cw$UI5M3ZfsG203q1XN&p~9c|V$;eh!rhk9S{<x$z%#^D
z@h;{}WDxKgA00qeJ5-NN^8-Ta1BBPjhYIgG6uCrpkIMCUeLb*4!XHEO>;pg<ps^4t
zE2WRfo9)pe)0H_`zxKg#L<C4=p#Xs<jI?1v0|vjE$f4$YW+xu~`AZ7`%L4EaQtb~m
zAv`$D{^~~%#k`(iPK>~A8puSgRkw(lf@ZKR4tR$8q}_HFQqtc83g#!YvSxWqX&|zx
zhvx5MhS^0V120g7ZJ74xZ@vCVXY94?@P`PkeUJZo@#Ht(6DI8JG<$?rCsuq3+wwp)
zA^zeSrn>Xuw|C3NAJ^%1yzr@<`$QdIBF~XHt^0q;b8Y_f_fLuPWt{hw4h23QpXK<_
zzwglD$L0O-j*Ou8xs2|--YV0VO4XcwT{xS^bAThTyhwq`l74@Lv;JJKTA_DSQ&aZ0
zAg$C|V7>>~*^^#RH0^|W+k@a>#eIQyz$X_0s_#Ty=X+YD@!4r%tFru%qrLSj$Gp5?
z$R_M3Gt)iQZ!F6M@UU@QqW{&~4n#wLFE13tSz_~orOex?+IFWcFkaw(xxv%a)I*@5
zvZqQ!3&88*m}?n_WY(|MIj8H_^mel(Z}a#+cnqB=H1!UU){_g`5cM`LE@D(~yBJWf
zv89{0x)Rn(((FwW2PZ+e@He-c;gMgsc(FLEU_9}~ix*xfSzd}JPoXAYqhs0V+^qE$
z*zYc1Utht?|NPaBfS)!d1($3N_73c$s)G6-_tIezdijQVWodrX6(FnrUM88ct^16_
z9aPhjlN)0N=>zlK_-sBZ?Jov9za5HJ3!hGAn<6^&Dp?mz7Qo%?A<1X$51*#(XtJ+8
z-7MsO-Xp<WrmR1^)6WM4UXoK&Z*Q-c*A&z&nJXSzsneWJH2xsgc{hXgx6JQ_F_Z~X
z8lQ10qEnQ2adDZ0665ZT%@SOs_AP~mwY6hai)LVji*Ofy&TnxhdC?nlagIZxmDYFh
z;zbmAcHiHd+B79*HpMqmLpABC_4VJMDRlFUHVwLlT4vtCw9l**+i&k40fCSL={rI#
zTo6V$*_M%!F#;5Q58V9nT!Tm|Vt*K6#LLSIrqttpv!U&C`<mN(k=N;?U=+Oeqk9T?
z6N}z_uNrmsUSf<PXm0x(eU{cVM8_^Kk6JEiT<(?dqOg#Vyu8686Wz$;53c)guGrdV
z>a#k4Q{RpDli-n=%=utAo1ydS(veW}s&Dx+1F^F6rkfZKal+ju)fq}CedJz=Nz~Yf
zK|vz3*R*DL+)6KZd6S1Lt8}wu{}!x@+e8K=-VGROdj$b<>9hT_qoBG&c?m?6c-r%2
z$lP&9V}S6iHXk3KFYMilA{Xbn8f+{0I+Z<U&bL7Pop`1_{Vql*T3mfSkoY8SZ!g?s
zQtDUz9Wpx!h{!F`bQVQ5jCRiR>J>;qR+aNe$W&$1E+H;5ezL(VAyFUw2$o5b!DD8l
z7`a^xMHLfT%SX_oA_%eIJ<G;0PNh$Ebs5(q&i31~4i_NL9zm+z_kpP2xxC0@lrK_b
zb4x!`3;WW;RzL^6yu=_Ezk*Aj&o2+oZ`d~-I|{RpR5ab&<%qG7US7m(bnS;i9H@e+
zVu2D!5j*h4K6(qI!8O&@TTte?AL$wgy@l6?sW~0kQr}9EX5QJT3@<M-#;tYiFa6*#
zPp3-$9rcrkNmAme-HeNwgT3DLbrUOuN`3<FBR(S-RcLsl{(C+!6*@XW+plFbx~kXB
zO|Eq}!Tp}z8Ut(21Z5!gJzmtykUkxv25=kaDo|Mln=$4xpF^?@=0Q4S7kp2DF47&3
z@1N8-J&F9=R{A=5Pt^gGJ#=&<XwI-2mV!uH8`Bx_@6l}YFNz0QLxS%6duBb~g<<GS
zWE!gcORGdz0M#$+)(ykBt^@PJ@A&ZNa>1lE!fpP~jr?Bi^Mg(!7#LxowOUj}q=X#T
z{o(d1^771A->k5Vw><W}?$f(z99s*U>mmbrwPz&xa54%F*_tNsRf`#o!{`dJqD>d{
zu4nxG#1U8jS>ISlr7Dx=Ik_a<F%s<T#0PS7r7>9XyU-a3o0*w)WEIX^rggT!XOoUD
z1p+w-6ODnyFPK5*zc}|{@h)o8Vrs!eMuSPTFMD7)6ytY*v6mnq?u6y9(Wm-)qgWRd
zIGuQEzLuGd`!Mqo@me0i?Z;5NEWRQua*4a-?3<m}0Zm}-G22W>X9ETmFwyY`4<F+1
z#hTOSYR8CG9X-VQ{;=dPGdOfkM~4OWrZ%U*`EZ1$9k-05$&Jsquepk?g#B@6f5c8=
z44Jfp#IWk8NS=xzJJAPdnF0!Fb7ex@ngM@E*&JAhF$Xlj8KO{qs4K{ZdU>qE)S3oR
z17^X0bVmDdM|$lUAILNm$j8PsNMu}e+xDIE0&rFmjHa=ER}7wJ#(nNP<k}@Uf-F=9
zcvducs1#^GO39`Yz*u>N^NhF{n#WYKJZKN`KSnDpB+_UQXkudGH8V4lkvsL?;Lr$s
zv`aA`SRXotb1EuZQAzrsHAzMn;bUsjV{y{Ys>*2TF&<L#^Z!KDc=tJ#ungSpu!~hJ
z>a~98hns-JgJ{^9)%9ex*j8u<1=^uV<eu3tqN=K@fDp^UPC`+N>-6YKwNKKJa7)g9
zr2?;+z4QAYKL(mbueX_9b3U5F#VG1H&yn)?uH+td^ZQAJKW-Li1l&iRS-(3xwjsHu
z>g04?{aC>KJ-uQ_w--rCXg9ib>y|p?I)5aT7siaA_KBILrspSzwz1_jRXMdfs4+t-
zZ-b!>rP!R|fiCV%=<3cBn`pSwN$y#X>0poYibIt8*zt6SRoEpS;k$cb$aM$C*3VAY
z&Ki*r)BOULoAM404yVGz1pOp>UtmXwhkFEY+SF?pAIDJWR9fj(Tz`c*!CQ(#Icoxi
zsZH^AwIUFXorozF({mX3!ALfUHYOjOQ(@O#v0;A~pL6W#(4amIQjexLlZ#$<x?H*A
z!TB@grn*?<xzFoly%0(T{lq%F!YX%MI`&oSb1NKuZKa8b-qY~_0y3tUa&(PV;z0s0
z{_a{pVfx2<ng3CVKgQ>r5FejPdm$kqLCbgw_s>F3RBD(g!%_j&T`%z<x1LHhUe)#;
z{)Go5rIZ5vc$eyOPvx59OE`kuiS^4Ulgf!@Jn5dwvLA})gWl?6_2g3|C60vTZGe`~
z<=L7gV*$Anrc2Y{kH5&x&8^-`sa|i(FdP9{=Q)*B#~Yuq^Hgt(cBNMES6p01U5@h^
zuNXoYYJBqL^iPWw%V^rACSttJ*^O-|;|{7h;LUKf&aiB7#&_=2u3JLC<Rp8R1%$hw
z|NK?%z02+{zjH5Z?fwT};U}{7?7^}Q>3_>h#HAkHaqoaqfIKAn`M9?P;pP5F#_bwn
zRSDqg&M><wZhM!d?<TG$v|{M+2dQmfE88TJ5qlY;mhd{yxdS1dSr9{jsosv-<t|Xc
zQdGPh7|_gXud(#YF6Z&fxc0Z==07>Hh?$l1D^-`C;XM!5)TIah@6V1WgnySU8FA#x
zsT9JJi4?HJDAcmPe7ge~qtV}vR1^ug|4P+bH)IY*i~Irt{sCLtOX>d!X@1?%wsHI>
ze^lA_=8@Fz;&HI1?XDN#^Pb-|kpDo>Qd+nF_8d><q$Svo^XYwSDLUbvS&W2kibfgI
zc$s907Fn&1;o9fEpl#!=ujY<wwE7$kmXk-Ui>==K^;7AuSC7Gm$@o)YL-fvnIrrDx
z(B{J3<gm&!>CBtvI};0?l{fjHypXn;O1a68T_Mrm89m8kzyA2ZVJ9h#?yZ#Fv8(ed
z3Df4IBjh@07wLn0#KHD>`tg*3VC3iW8jZbK-M9;%f*E+T-9Z_2?t91DvlgX0r!QKR
zo`m=WV-^pyv!g=VjwS=%tH)c<Bg4eJaWLyTIy#@Ivx3r=Y8GA3(^J_tBy-G0#mDp9
zen^qC`pr4i273G~F$?fmB>GhyxFvERb6y3VV>Hfy)O(J({()uSU>as<7K~Br!qRoZ
z7Lu1~SVTyOzIEpL@c_<7&#Z!ig6@eMV=C?$<IX8;qX~Sof6J65`-Mra$*0&KA7okD
z0{`bT`fGz<sF5<Tgs#Tsy<n-qVqr>(AUk^m#28}eB~DBBXOoqgz-Bm;yd+NAP4(XQ
z*;jr3!qE8Z2u>yAhs(Q2?fAA~1oIN$h&tVemfldpSLVML9e%y@|IVZJpW}f4*QcQT
zCkwg%uRIZ+1NJLS&ueHfqIA5;f5XTkwS3=A{yniLPAp8%pM-BQyHWs&pNTna-UB<e
zw7XY&Yp1XXAkCX~LXugNsHgcdhYei`jHq<hyxcb#7Cf4eIHWbZr?4rNt^dZHEzPQ^
zhToi<<8WGcF)?k_SzGxcIa$Ddy*Qj^S&?BNLxyaoRA(uE%sQp8T=}YocYqKIGCw-H
zgyfsWneL{fM|Hj<?#YuqyLRo`piO7m;npnNKzoyV->ur-V>3nPj%QXl>guOSNlDd)
z)pv=+2|@S*DT_t#0c@JQ93}Ve-MgnREym+g8~g;_ek{EWK`T6+P+lF+!kb_nFn5eD
zWhTM^7B_2>xU&A+uhUy5{IbDae1)9N)uE-}@$a|Mf5nRbS_=y0zkhrE|K<+4pz&m5
zSw=`mNHzeNPI$h1qieeunz>HTRhzwVAMZyUw^3)Ql}E0M{^A=+lnns54nIW<m~Fyf
z#ihdTRJepNfBx`4(3B~zIIv^@P!|5Q=jmn4v#>#7sc_}W71!|uJzwC291A~UWs6~y
zdZpPi%NN9F3BWI17&(zMXd7d)vJHYsNrVP{sA>HO76{OpK%5L(7IXwIfQT6FQit`S
zd$`HJo&47B{od@KPX}<4@*OD4Om{Suu?;Dl7+e;BTc8x~{?tT%kTUw5Yh@e0t~yA0
zd3g(<GL?StwJ-DXat0A8naEFm$kUa_d#Mu!O?HSw5K34&hVf;!9Aalj-v!mwVd<lO
zJx|u|=H8P*@<p=8TD~tQWF&4OXDi+<#@?YQJ9Cax>0|#ZQq!kkft{i>M-8KWMUV-K
zUsRp=kYx<QKvQa8d9v__?Zu9F-BkW#Oh!Jp6q8-fKt_2NiRVhy!0SuJ=42v@P0L2w
zi6ibgw^p3Bz_(9KP6j}W)G=MGDum4o;aQ8uIT9s~iG_uQV*{qa?E-|)q|QBk;r;CM
z2AMap7X{g_eAN|XBjNe@>!q;V)H}b)HDuC~dP$Z(!i^%A!tL#u75DtgdD;9*QxlW2
z1sxTYM-ki+Vsj0D^6rQdkId;TKN?JV#nAOU>2G%~saXoe#Q*7UOVtoo6oM};W@AKO
zx)g~`x_aipP&XtLUq)C?F{yb<^Wu;+a7Q{cGGUzoS*zZ#8;wPp+MIg{+XgpDJSogA
z(`ytO?G#c9C-YK)R&%nedT3BT@zI83a2hX&x@~j`d6H;}(fH#)Z-jPq-dbvR(%-_l
z=G|7*?wIj4o=MN}!~sAEv9rq{w`9Ov7EHTiXV=dg$kZB|%WN`BV7LvV9Zozskyjt>
z)zhwfb1K!F&7bPhu#*Mu*+jc0)u_F6;s{xlk`TAyToHOdb9?INU9G~|3Qp1!t0?pe
zmuGm&QlObJ(mIz9-4r$zkXtV=fIiX^|6x;!VjF|3z`Mh2tZ$QEfvXEaD}N$OW|n04
zQKnVsS6IszLGVF#JzjwU!wbzbnQo#fsRTYG1VI$UXr2arAHEIR+~il}tmu!k<<ljw
zr8{ESU@3m66Rt<Tz{wmEzo6yAA5{Kpx#jxwt8UF|G+=?{_hqum-ZPj#R)vqG;EJL^
z@apF`1d;DNpf`OYjaF|d&Hg>%=>}&Gc9B;5S}`>8bQWz>=CxmXSBlF;A-CneaC^~T
zMfiX6tMj1}j1}zZ?D;Sw!K4KkGhoS#WH-J7I3MlEemd9#5b-XmK1KN=$j(?-t=+_h
z+N$=0`$U>EI0S%3a7sXjs_JL&+(^JYq=u81|ItSks1olABO4a&2?G3(?BeMIc_p-m
zfW?v42miKXc0`y9QS503|5PspnYj~2FMeLbf2Vl1xsFx#yQ`C(oX}ICi|HwkB%Q3}
z<)>s`9t_|tFW3Pza)b8iNvM-k``rn;wGsdJZFv{cB-PyP+C@Xrxxv4zr}<yFyWVZk
zq3C>oa+0kb+zs~RZ5BtatHP~R*6aOr=)}IW6#Z7J)w;3RmhDMdLae#CN5a+jV0w?i
z2c@=+H`97zLX9Th0?t$aY?dqV^XOgm<(HzGP`Y;=!eZa#UlKQXPK;d?UD~Suef)+b
zu=WN2lgp@Cx{y=pX-v#MVsr9H*j$y+MrP*bSEh!)*x(tw%nAZdE`vsF7O2}!plyyz
z1mMh0340S}`|2Zt7)v(Je;wv7BLFV<>RunnAWKfTtP}_pOZMDm-l}DlW0*%ZKKAWe
zo})pt6gIsL^o3axiv*M|7``cxo|hz4F)ouDJ{HT-wcR#0y31tL7}`Xef7b7p58$jp
zxAl^FL3e<+u3Byvmr;(yqJa9V-5{n4$VcYIKZ`V5r0oP5MiA^2;P72GG*ju=P|onw
z&<BMx0wkpfv0(?&TER<iJa<Z8vj?6ggG{=nKRxLfrCQ`Mr&7St9Y?x=!k!7UDPgQ>
zXvnU5h0fCws0;D)KTN1n#+4!4m%*DM;9EABES@RW3Z%XRp~=#LT(#H3Fea(;mi74f
zIAPMrrt_&K-HiUnHj6*2GyHlqDa%|js}c|_D@M4PCe-TLmhTmWl3j%Qz;Rk^!m?|w
zv3hJnPHoNDmgzuFr7(wjjS-NGXxK)|-WjB2#eMZ+apHkiJNi7oh{Zt8J491v1B3bu
zu`1w7jE06yIrc#ZlCs%Jj|0PPHL!kwc|DT1<>zf)A=jLf)}s)_ud|B)>IldsYK1d(
z<dO#-#5w}zsR%<X$H?c_#-SnUMy7cIsu4lx9CnJ^8f;>f62rZ{131r@Yq9XZB!AEV
zgEW0~xYxkr3)sya0D}Yp?;xZoLA8NtGPKWq7o|R4AdwVliURKHj+bdw-hjFkA>qML
z8&0&6?n2M<b!}{;lnVYllB3ilIhgsoT2TG0Lifo|{Y~3}>!zyM3{pqG`F)vogO=Sc
zH(Sc<T)bMYBQxp19B6M)i6!70E_U1I-b}LnP{U&XV@?(wIN8`2fUtSp0dbdF<qa^P
zFeCRO=`+%Ya=_(f#CMC#Mxzl7I+lh10RuQe4Z`xG&jw*#(gwssDaLOx7>C&?Xaji$
zU7K2)L)NtCMivtpmL82Vj36yygV~*g$pu+sky6ZHQ*(UBae)1hadUw0s!p07#P%Wk
zqXD9=&a}vR3jnkUr)#0r+7Bu27P65na(iM>-0ea|NiKHSQF$*;E-vWF%eO!S0tV|<
z)epo_{5!@P$vA@I-~x(wYTq`@rLb{@4bNRTRmm6i2JN1H;6Kn*V_Ey`S&^0$yGN<}
zwr253kstX-2fy}8$y>RNmhZR0IVk~L&bE&Es@#)`9+BL4(uz*i_s13q+5A1!8Zf+h
zQqDef%dr4GyNkC$;!#uRu_y+jG^0&-g4g$#7GS`DkiX1`ay2kwBV;pv8s{!$AhWpy
zb8WUDMI!N!+yK;&Du>@FO=oz{T_Pka!h315$9!Kt|9+(aivyA1q_2g4K~D27Q_dC7
zcU1GFmfMJr-d(S{3;}SeiI)MqT3TAl%VQ>eRAUd^z!>QgWH)u4e3EHy-h3<L`AEZU
zp{uMscMl}z9|Bp_`7H2^X2Nr(>Dr5f;_8K9!R6(_Co|U!XsRfOitsH!a$16~yiw;w
z9)ayL+phI_d6Afw7vsRP($iz>FoT?%o7?*cX~`<6ho@$!g-hr7eWa{xa>dKIxI2*9
zE65vIKb1-Bd0UQ5A)Kn&WL8<ABHJoz20jZeIP&u8*#jh`($Pr{q@R!A;caoWv}}Hr
zDa1N^Z*A4F@S#TI$fa{*8XHb_=}rFF=5C%z=5&6g0B7h!IoNXz`zBDyb6RD8xivND
zRLBJ3wGS*@xwbzs#>dP2Hi(E=n`EkUoANnwP9`ppoOH5x;e_EK1#YC~heaM})nX(o
z`mmtvJ2i%bRg&yJp5Q28ju7V;iNeDCH6i>EdBBYL(C#t0HZulPy6N?M*GCAF@-H`k
z1HO?{HN5SN*dFqIFj)S07|NWK`H5yl?015JLvF_gg}o~#R~?*9D|hAk<fzl0X*&95
z6>Smuv!VR4GlU?5sm)gO=y>#l9BYmFre@sF(foMuMPk<;+baaw!~nxm;OS|XIl^NP
zwAfYWf?QGrHjBCgCv1e!%5dW7K+}+ae0+SrwA0DNSG9wr?n3Ypfxz?+=dbq_JK__P
zkRRh@6p<tz{GavMj$=7<n?43`Ds`X>m8devfoDc9@xY*8Id<oQ(wk64rGO&BlY*(Z
zO00GoL#xQmfUNQgW=$rxm2oPi9+_8yR?;k-8pNxym2PoUYDg`5an#gy(9qDVaoc5y
z537Bx2e8f(bK7V`l<0-imDU|#x=BjumUtOhlMS{xxi<r-3+Fbb=rpHVhP<3kA6m1K
zp$J_i9e5tTpbkrv-A6G6=tcKgKGSN(*)qqNJkt*dg4q*I=4819-RGu`27lypxOsiE
zrrP=Q$m<KMN&k5#L}OK(wa~ju<Q*fJ7fH519aK`Tf5g9!ghqD?@_;RR_`5!Os7K%v
zS_F@j9T1}U;J)H!XD1xRZD!lwiEJaWt?%pT;j$2tZHbM4I?sVq+t-Y#Qxfj5?=i~L
zGC4rqLs1X)6s1Mn+X7PExy6C1(|FYsrbT`vP($x?rPEi`s@8S0M0b=}chn7AmGjua
z^63j>&xNgj5M+#DSOmM5TuX!oM6tRL^6XC?*<|aaCGrRJX)(Y_)t4Y!mCe_W*-toH
z_GR{<O=C$SLJk~Z+(8o~QoM(TCkYLZ&e%_#2*N(#W9)92EBUw%F6}qzE)&};=u}@?
z88r2VQO$QH9{3@>F44T#uLrlb9|mVjl=!hQDY7_R_yL}ijNe1Z(z}9G)&?i1<kjW3
z`beMFB#C(dSJQ`RSJ1w@`b9#54@srSB}Wz$@=0<fFk@rdyjiiX2-4vC>5OyyvNv3t
zVsCVk=Zz)>!rEFc9Bsiitl#^&GKC!R*}xa5uEf6lwM`$24iMKm)wv-N3@!F!&0)gU
z*&FIs?o|rNMx#k52_qQwQ%ux145e<EDopZik{^}s4c6X@bleN7uNR4lzKGbo3tb)y
z`{Dja2YVwwRA1kpw^g+y4K#{W&bwxzlAHiDfN9^C?lOt;lOH2mmKxc=I3xdk`vJi8
z-^ic68-2WN>sXyH;U>w<{f8{xjBO?`4z#E;67@maTc8k~Q8zYwgQ+pp(q9}6F66xs
z7asrgDLbl&tOlIfr<s`|B&ZN0s3pY|qJyj>loDcS+K_x6M2__!lo4L)ZbRd^bBk$2
zTegtej!1WGFwZ=3@}whnpGidf{cjB+;qyp@jsv&Nm5*IK&3B>=1R6uB25Lscv7!w%
z*F>>sbE6fVc<6WWO{LEuHZ#l$=-{XjHk_TElp#COg8NhWg(x#cg=~DP%Bf%*Q3FA$
zDPt|{RPSi{AyXrg90I0OBI7!$?>9K~J7o==8mai^;+2^PDVaW+c?q-J*tX^)?je&_
z=*=F?&!W#3&<J9u06Y7_!epVb$Cui0qFK0ju}-tu>{zaT*-fYw8bIZBAbIs;actPr
z<~}>%j0;>VyaanhGiHso9}CHWA=)S=iY}~`GU22lOhJyh^RUsWe!x1G?w)e|Y*$~Q
z;82h+LgCb)&lZgy;UkEq;O+)=jTD7jUy-IcUmTwzIH5P1oqSigI6p*}lB=8_<1m{J
z72E-G`#7W0?Sv&)Wd+S8V+-npRcPkUgO}u_(BL%!HKdb?jOp33D}|Dl#@<>oRmajR
zQO50{qr-irWvpHs{4UaUREaS7P-zfG9TKZ%({YD&I^QC0)F(Ddml(^8JvJ(hi;sV|
zpo3V7tivTap&Ecz2T^&+E>3?yMWGCy4tJ}7$8^Prz~ZPt3Y2m$51%%cGDuXyfA^Tp
z^6-J1fE1Zw+JM%Q5S9;Qwf5sgAve*o%(%FeFj>2HG6`C@<vYV(xRZ#m^yWJ7SsP=g
zNL`;OQz;TmE7lD=62c7P+!1ghg(y4@S79n8s#$;O36se~lKPcQnNZ&o<bc}jof=nn
z+?*{c<W^#1yaaXhwT`Gkb9ynn5O9qbfB1c)OTSYrcE>xai`Rrk`@Gx}%`ZQ{|2Q%b
za!U*q%vyc=^hq8<gnGu<%uL6`5ub|y0SVu{RCu8Y@kzf;4#}CxwFWf8Qn;mxdaPbE
zAxjw5%`5knZBj7aAf*qIX!k8d?~{++-Wb~m*N`zlCS4KNOYoJM(T1tfrEmaW6dDLY
zoO6sCTiAj&GL0_o7SIL$sG>yKRkM!v@ZwH14Ax;FQGFA<5lG1{()vnx+;|4!BEpBK
zt$;qJmYw}6=4QK?D+PWS$bHgm<VKF3MN}gT>xpwOt`z2BXPhs<&d{k9_#<Qt6?7?%
zATzlNaY;DpUu-?8meX}<o`@u-(0Ry6gfY0lUmnhnTSMk`r@8&u;lrt<zc4qwBz9Rv
zE42j)3th@J9e8>%!OPWTEcv&w>3bQ<Cj&T}1%`04KlNWF7n5wEc@HNkZV;d!!FKi3
z<3oF^B>G<NJY?`YN!H0%I^&Z4_kV*PO_W%}lT^^AqevZE)w??dpElk;B8~gh1~+Ue
zxthc3(!SF)L!8~&V)wyvj7AF|Xrk)}QTY%-NAt%^xTKdJT@qltWt7!U)y{4-MMpB#
z62_m*Fm`YwiZXL)bqjK#Un#je<-a)P@1@@AeI)@J#_GB=4_!%;q))v+wk158`*(V-
z?`kNJqa0@Y)0D~8gl0wt_|w{D`p-j^;fz6Moum?ke(f4XD`jbyLxN|6k0_l|zAv;0
zV!ruo#DosmLHGlF&Ju5_%pedpx~!N{;yF$%9MB(^ae*+M=o;>zh4MHO`?~;26G^HW
zHL#3PJeAafW1JK^(MFJNl#pw5@*A;{Axma-8y*s}(9P)yHCq-zvqX<k^A|U<NC@#~
zfBrM$7CfKW{lvdN>R*IFLZS9@#`n_==()avDy?c^5j}T-1LqG0mZvxQ*I!iA$*5B9
zGl#GYqMAF%2(!dmVIR8<mLeZ!Z?|h(Q~fML0fCTuOf%7`I_e0Kf^8rFuuYbaifgMX
znMOMKo+OL3VxY(A*%xS+vVr?EeQwy(`iFz!-a3jO7KsT33M}`;!JYN?P*yV-ZdoK{
z3h}^O3MKRZ<er7!L3W$mYh052m@4d$#6b`R$KvtkXY}a&SMG;9G?8vOy&Hvn_%6|w
ztH+20Zt0ogwXVQ-+y<9(iCV$vLz)HE{O9hu^{%fohPFbzqh?o&hG$VSMc0{BxFi82
z^)qrA0<(~v%fQBbpLV(_iEf}>1U;v|NMTC}qz~K!y|Q!axWPz{ymTkvy4V5Q;7Zmk
zC8W>IK(b3u@xy_yRky;TpFFaEe%)^{ilb{0yNid!_H4wrPSj)O`M8vpb_jOsE&yBV
zHMcw?t>&99BE2oeWOXJq?p+|M6_K!#AVGALnUFjZOa_a_+Bb0MEs40Xza&IG%kxG5
zAC~0YwEB#D7kXE3Qg#BOcw!QCybFTVuGCpno9zSD`SngOznW?IDgB;2IJ$sK%sd)7
z#~JwP9}NyTffUjJvAyWUxoFV4N6~9l-LpFX>?MfWE8U$fXC{GXrkgei%T9^R&*I5Z
z83mLANYaDjr5&tSZJ5#&Qd$k-CxmL4nByTiv*(&y>4~JEx}Yng=wzt0dJA76ha15c
z-;*Owj%FBylLSS35g+f3?)OqS4Ry3b%H4^TCdtwE-1k;|G^IAz&HFb~A7Cp_eWCT(
z33O=$sKLwXZ(mz6YMv2f1ksQh>h*OySfJ^Y2%n1~x48mXBZqefW%u^g`PFNL+{jnx
z(_73vUE6x~EluC4lars)7n#5t>zv^Eb|{-)1nojTfoCMRiI{XricD$~n8=XSnO7^5
zmn38)J$y?mD@A}nF@&1v%*@PcL#LCbVt%z}uNdcbKlK4=v!`ITb*LmJ)Jn74cGL`p
zB_uaiKxRMJTsYsX`Bvf@OCBNu2&HwhQ%6vqI%ca<JcYP{TE3A*@GnO1!cw&c<VE1!
zJ56^V2xbhl3WZKn12D_NscBtLl{Q09y+*0`72CJuL8d^RT?{a;Nyr@qTo}CM&*|y0
z5soV&AzG4aVseNebvp{DP|%)wbnwZWy02uIGza@r<wzM)vUb_G0mHE-dl~=?6Y7n~
z&U?o;m-o!ApyVFnbAGZ>yyscqQ=D=jq$E$YaA=8*xW+RZsNgoSB4>htXDCsr8=P<)
zJ`ou^14NQ{N=iyV8{LJ$LTRXV0i#okjbcAUgKJ*y{MZH5)R2_sz%p4S`(GV<Qc<3V
zuffO8eg+9X7kBwU={?kBVz{HRQV4R~y#mmB$((+(QKt-fAOj*Dm@4Ep`E@oxXx~8w
zO>PMyx*pYKs&?a4+6vvYeP+T<7&I3ndTvACoeR0H3EKl~2@ur<NI21c)cGRX&l_NU
zDSTgcq6d+Gc$XYC3jmo#WL|8zqbAW`;=4@2#9<p99eGvVARE-w$RLSU4aG(!be5D{
z_7wv5f+WkwCx#gO4mPb(sYa@S(j0PHeApqkq3eC&T{96!7jW|!-Y&$VqbSA_Eb%c2
zFJ46Si!!PMYGsp@7(ZTf$m&NT7pEgrS{<8-qW=oO85<M|iM6-eU>4blk&s^aBR(YM
z`iS!6aPR`;Y|@u5#5PQ=(1Pn5LD2BOei<(Nft-Mf`Q|WJmIIXp?j-<PCVrh9Lg|SH
zj-=e)c-1^EQ%iA@6O({&Z_lyRWEh(mgx}r)AGnl87r6GyR^hH8m?&wi*cWQCbscP9
zh&VgNd89*?`aEa;5W?>xF&lj%*(XvEtg0U}74jAFNeH3ZoE}bIg@h||{Go(x7OD&(
z<rPV*<X<juk7JKU<KtU~IN~XI6ZVsD^M`SfisF=f2+kfIGCaX-_g;{oYe46u^^qHR
z1IQ2~Rc?Q(rizvp6Ip`}l=^oG?Yi_i*3x*x5U&`%;G+d+m~5G|#;3Gu$wH!_@<CTt
zX>h@h=R|!=o&@P6*dKQFD8Y^RGDBLbCpE8EZPOWPFsnq2iB3x5XJ?;)Aknd|UV{on
zSqB2XPqN#9IT2M8G?E$VDN*PeC&!T`A`41X-l|>WfEP$;0R;jWg`+8bZXzCUO0?1P
zMIg1uQa4dN`MFnYFoV2KNuHDL{v0}1l!4U%E((yBw}m=eSh5l#*+=s7sd$2@d^zF7
zYUs$y2Jl;=vk)0n;}_sha}sai$`sDBfc$blGRVq>#n{DhsA65nTyX8k3I0ByoK`j(
z<O8N+(}NB83NT3-g=#2^HQ@Ers4-s~_2nQxO6?S`OxR06+O2fuq@%{@wv*$4Wd?5J
zcigcrvj+Y8+mEswAbQ|KE~8%=f-`CqnD!#`TBHts%SR%>S7le}fn-qKJQpOzS3q9o
z4k6&A4M1dCHU*JioN#;ny^vrYN&zq3n89~M6}#+H3P6{Hp??-3AnR<jMt!YaIr8$`
z7Z)a(g#48&#zp$NN2p&(+r~!__T#LpNOhG~+l~aUFWem&tr8Zyt={yQU*`m~2i6K|
zM~m7+D9a!7>gJ2>7v5Js^I@CPM+g7J@oAjaNO}2>z<5<l4}8inMiyFLxX@Ranf(&Q
z&3;_-%2>=oPWAu}Ke4BE)8UA?ct*fQK1sZ-cVaR3-zboO@Q&9rT(ID~yQ?u>@#E2r
zy4`=06x+)S+1|zwmbOo&+9wk?NOs_A)$S^<H;)G#0mMlZV$8ZPhVT**_rsZFxGf7R
zbtFM=o(GASM-c)GBZ_Vl$9zzaTu?C7e!14fk(kkCyXg2m#kNwITBNi;{8Ps;6a^$G
zcd{)`Dc%mQV;~!O;_u)2;&5w|9-Ej`k5k*GbwD{(W?r*2^L0W*Gn!4vN86HCI2GyX
z1L-z*)Idp2jg@?3pkMBI)wyYAX8JdCP@8#ol(s`#-|_10<_gE-HM%5eN9JYpdTGf=
z9wxgQhSxugtbaTdC!9DmW$uqjwh{zKIWw@Bet=cWlAH=f`SiZam%<$e@H}wTUXiRz
zi@A&Rsvtv5&%UdihuaOo6o8v~?G#h*Nxc~~YhWi7<34#zHC#clXS{jl(UUy$q%}h@
z`$$WEJ=2?D?z@P~+xT|fr%%|+%?u#4wT=<EKna!E$A*SSpQzOR2qx_T@W_^ttU}pT
z-9MA=q)}H_SB@S<^ruX7np#+#3WE1FDU6`WEzf+gOHf}PyB>vKkSnSkC0w;CdU}yk
z02<1>(6H2>4-b}y4ne`m4Ef>bu4`q)uCZ2}wBF<Y5YWX}U=J1i#J;Q?xLY8Se*46F
z^8uYRpk$$bdBD;I0>{kKZa?}Y)f1A?x+trG<|oJY0<1v!<=ZSlEV}2;-3M7@@VbwR
zE&i1>l%zuc@GK?8CVWI${M!TUN79E^r)sJ<^D#KU>vuxPs8XZ%vZ2K@GX{8=Wwn$H
zpI-Azj?#8qT=gMT7+yt4;fgIs4}T!8I0I+`%5lLxAQ)*my1>RAG=~e2h%}Pn)S)fT
zoxbG=2EkZC;}7e=Iag&`-Szqk?4qJiBBM*pYG@=2ePjkWaOK!{rC+haRaUX&m7&F0
zA_e*}38QhE3@%|w5>%>RTo~{!Rn<a~Z_qV{O&(uov(aV%7_?$)C-A0Zhrz^zgp<0i
zBgF>5{LJg>G&i;hw+mEe3|ATApZp)!Yg$4%v2BF_y}I2BYb+=E)SUXQk?P7YGr!~Y
z72r~3K~RNf7EYrJv?QU4<G3Zt{9sy|ZB%OdAr;m`4|%nx7Mt@Xqh7pQr2Rb9degA+
zI6uc8l@l(<xX;zr9K3XtG0Zj~?EN{xnsNnhfiLueF**t-M-pNl#oTZ@&ul4FxrcWX
z4b%R2S6|T!37gVebD8Z)?H?SXb)QZ5$uo9p%zLeO_<h*7Ft@6%FgHi13A>0f7b|rO
zV+3L&S!P-m2?LwF-d?kmO0Z#U>O)DZllSXq1#_&|HP+L!9^X#6h1|<$KuA=SY3tUl
zMUJ41HV>3uI=B;qdMporxoi;fsu>>J#g;#=y}pdpHz3)%xl<ChXkXn?v(csupr+-s
zx)LHk4XSHzb6QM%{E2iT*mumR36iXOoHlO_gB1Nxq-v6`r;z80P!iWq!a7%@^$doe
zqxqYLvI(PntfcoT&ZI=oe_)jeue$f>5!d5>J5Gfge^1O(cgzM!!{60(O!6NUi-?&)
z!2&;($WZcQ0Rj4Ie`dXURZU3`8h%yuaD7`zi9$_1c3_y94_XP!^j^uYy6+Ev8xcxW
zRFquH+NO^m{{)+~l7d36GiaV)H-9Hw8B??Qd3ZKp8WqJ8CMekkdN9mM&*q0Q6)zT$
z9(D<7**aiXw;-*jOo3tv_bb<3*p+ucPfvN`As8>OJ9bSQHf<^b#aYyes=mHwUZb|5
z0Z{NEiX7&8)M<qo9%6(c{+@R{FSWAHq_&~}_zc<Cy_OhE-T=Bsp<Kd!%#bA*aU1S1
zXb|{4)7ZD?nFShF2h83+$g6sMczy^;dP9c!4oZ~A;({}foPNnii?MZPDe!Kmyupnn
z``7K;TCJ-5!JYVw>nPazzn}T7yL|Ei_w|`b>94lp7_zXQ0yfzuS6a(8#kvvBo96oB
z`}UO#cDZ!q0ZU)_8w>)4f)rR0<5!9u@jGaZAMkF@4!;n`qPBkXW`<<plR{hQ=xRLH
zY|EFIF~gjT-)LzS&z}!`R9TRp&x}Y|Z6fshi4(RJ?wHK9m&&y5RMHCvc+X!==sV@{
z=0xRtzQFQfz?&-$F8<wb^=lcoYY8(EyO)$XfW8v1WzAt~!5b8-9Lb-Ps1QxJo(QkX
zuf?GKK2>K{@71LhluJmkvt7nw8gqk!817HaqbuvlS+0Jwv_!ZVrMM!jIA&aar_=TR
z@q+QL^JmU%HaPUyK+6)b_)Y_+>^!M4*}}}syMTFLTj=RmKUZ1*T*WlVqR^)EmX=>R
z<HUq4CEI;o0#gNiFr@)=kZ9ls(INKm#Pb)l&3LxozZ(UYGzJMw@Lfmm`$^t)>(({T
zODVffK8m0ctJ^~nNc4^-s-Cp6o1L&kf`&nkcX#f|Nle(etpRNeBV`NNqF(vF>vh@L
z_6Apw_CX2-zPW2D>bdsZp7nppUk?<`-04BD5v>x37LD+#9yd6m{oO0k+08`px_kG5
zMd_n^W*`2N8~B!-k~ca&ZlKo#E7h;pa<pN>evLwbF-6ypg_p#hOMS30Ew*yN_s(ug
zw$o5V-2jvf=kg{ZG2S778}O^BmebcVIzfp~AOF&rfLA9&Mbb|0-XwUmF2X@AUL8*J
zS(T5P4xR2d&Co=7^)xO{X--&FG&(1TQ8ST2GqJvZp6}t0A78J(d+>VR8q!Ck<3}AG
zMKIsVANFfe_<3gI<|}n(8T`I!e0u#_gWvBAvDW%*A)WREkM{W_3hF)^#K&)S^Cj!T
z{C2g#ecHo*Vch)uB}kt!`F>N>xTAxUjXh`R{)umKkC>HGXEggKYz?If>eXBav{!v!
zzk_>1_tpAMo8%$)rd$G`Xyi5lf@v)UO=xuJx!<fXBT#$J6NtAJ+s($H*Vr4>=1T{~
z>iqJyUT^DtJMp6so=ILR+ZNt!bF0ve`KJ6VpwbdYqx8r87jHKV*J7j`gf-^Gt*@_O
zolQAdcnOuS{EvfI{tPa=O$_qxib0RMic(Zs8jT>=wy7fd(ZX>0!#A%nuqp5D6Gx<C
z54Dr2eKr&Q8kDPjvv2J$v`mk6Sz1|3tgOG^{OUOYpedTxi3`BuDd}yuEM6WD3B6TZ
z-%O!wXjPIwav`+u!mMo$Gg@ocRELyFVgAzjf$4w5%`4Ii%ub*7efz=R+k0yTX!}2&
zIDFL1Tj*yr?KMaAevz1<68Fkw%xDfdc=q*4etQWP{AaNOh!323`SC<14h<Yj;?McQ
zTRUdfm$rj~#6~osFC;Ydc%(CiUxd+CZHCqIw)RQV$*VY_gm3=U^3?Fw>1?29D=8ol
z-m?a}ol;cFNYpTkFDPj1ayO_gYzpEqK}+2U-q5yNt*k0LR-UpJ(1oRqfh0mjLzXog
zB?@hrj{dCadtos2DMcvAQqb?7kB?891Y<Y{%C<d0X{o84``4xw@2Glw;S?EJ;#|}L
z+2Ot*A8&7MhTsD^sr?l&rMfyfs6%;!meW5VNhvBRVdvyrZJX25e>5beK7POckKzJD
zfm)eQ5k8v+4J3M+VNJ%FB@LgOuU$7r*dHiFo2rRFm^hetpan)H{{4a2gk{Z-KJOj1
zAy%-BS86p<%SCD*f594<+c4eu`%+Lfd;58Hbx3f{eEKvsH4i%UUKnYpU#%4M=*(75
z;V<Dh7~71{4c38dSv3n8xKnZBTvCL%J8*T1XKS7l3cby6Oj<cS#A#85QD6T6-d>S@
zW-VOTc*VsZ#T_=TdbIbZ>$kASuo(LXf{T?=!YeZ1%6U5?StYKBs|(&PPxJFzz6oaD
zem&oCE+)g?cifn78X;7^(%D>_F`9&@o40RsNJ%k!POst7+p=}*pMWh^P~a$X3q_ko
z%b8?qb6ATNj5#TqCr`TY#JR(%BBcdR7XPvaW*JTW6Kyb-w7&gS4T;U(-jl#eLmP7J
z_5+Qer0-jcj>!@D%loiB`I-lc<u<Y+LCsUKwO>$m{(kCI5f1T+^s0l_<|?~Sp6aXm
z-qm%|Z-TgQ7TKDa@!$&<{dWDv-=0lPng&KjPottJa^|fqN`d>tnFAld575TP3DO;)
z7OS4C+(F8j^UUq>sasgYV{sQ&QczRYz$X%#5jNZzA_<Ie&OWE6b{oCRyZQKNkYUhr
zzI6Q(mSK3xdzBpG5)7wpV5WTkz0l50*>+u<-RDLW^N|wM-c`|t!<G6OC8Z;{GoWd_
zy13vr;t_u4_N`lM=kNu~K77b}JZB%oG2cLkiFsb?Rqx&%b#ck*UbXhd3c!faeyqYE
zFH1XpVYSk3AH<OopG^?x==yy<64T`XO&7S2+s?Gz<JUk(ukGpSfq*-s>6UJCDXeQ&
zP{8BaS-;tb?YTB;JVWGl*~woa#*5VqLt&=iicLvhXkeCgmx3?Up1|@gJ9m1)OW-q1
zGeAdfLL!&X%%>3;7<dDh6mYo}u(rKdZt&Z0zsccN&t9Yc<m@F7<^yJW(KTKl*W$Bv
zH>7YF9AbQMVlVzeaxa}S04X1VEqqFmj6+|u8h?yz0AqG56<%32rLTvGe89V67w#Hb
znJEgTs5=)zGbZ>E@;57<I<*N81UD=ty}$!Vz83}+y{Iz-{bl2a@mj;^yYIkOXJ{V1
zX;-g`168>-2`*)FuC7uKPCWNIz{|S{9fa&khCHz7dr(60gdbTHsD!g|7dl#2uU@^I
zoqZ*M9|eSYqzV1?S8SiLNgj>6;C(*?58!ttB|0}b{$P$nhqhviA4h`#j9{d8Egc5N
z&H_y9`~AeMH=0AA#l);MNsJDC{Fqzj`t}WLVETC#o});=E<q(gVGS!viiuI+yy?sF
z=KyqVJT+_<^BVg3mn3aE<n#8w;$&xMA9X?mtT`qiDyr5}Vy<-Ungn1dPHX9XLzrRr
zxA*n~FO!C<pRDp@ll6mTaQbyNc+S(#DJRq&O{nwM$|K{x_U#K#Rlp-b#sUjL3#U^m
z`_6=!OiTfTxjHQaQ%9R`@3!YDO1=ALi_rtb_<{E27#6M`+Xu+cUvJ*Lag>%la9|^7
zH=~S#*Om9(`@N8GpR9LMjk_Rb)3F+P>GzSHZpipJFzt+!+c%JNW&=)7M+fFeiIS=m
z!AG8^FY}JwmC8<}^pdV4<qi0<84hFLPYXVdNF1fZCX}b$w$J%a_mdsiZ%A!n`M(ak
z7wO*FggT7Tc>}m@1iaSn-Mim3Uk+G}H-PI&bZY9>#>U3(mYl=%8`i+6(hHNoJ5W=f
zQI0umP_`vZ(rGhHq`dt7gHO$H({G@sr~iysE~}_`3js&eS*|G6g!>^O-bmX!5LUn`
z{&`+dX*~^1F{0}KQQFnMG#N$l$5hBs&X=(iD?>$1#p#D=j%;L4b7rj6k*0l^FNGsY
zR~Zs%HZrG{_Gsmph8ji=b!bHslhU@)%B&^}0@Gz`*#}|Nu#G15yK4Re9rk7Lyq|mS
zJukoeJ06dxHD?4fw_?#qLxxN{3J1i966F&S#A5@U;*pr!C@=GnlTd=z4TILh<#KV;
zUpZeSJt_hm=gUW+Z>m9H70qGMB2gG73tYzlD7#Vo^$AD?8?fMX3=RgNXH5!{fkp*r
z*$U>&OwPk19}p+?gPuzt+DIk?_=nxSy)<@`ft|neXiuj!hG}Y2LKCwHz81h&on7Gg
z@a#l7NW9hjT|%L4%(6#(KeMx|%ga{rYa4QnH$YU?Esa6_a|7H56X?G>GPQKt9k`O3
z<jZIlK;`nTmcPbdio)xZ6<ZS!Au!LIgSXxlXox$h(`tQS?(e^!kB*HsAWQXa@uteW
z4=7S@b00cVaRIxvpQRhLIvuxm8PlT-??P1#4GD}!BSjW*KXg`G%5hvw1_#`AkQU|x
z>J#6SCLzl`o3CuavdFH$W)$24dKXJ1OBeXG)feuSd3@YkwpY<EESAehG3%RVfru5w
zg+w)kfUGdJ=_v&tUHBP6hYB8M?Max=y+14rDV54ChLwWk(9}1DZ6$4DmANt4W`L~_
z4_|NahgXF?8DVXLG8Pzh5`s42=LCF3;k4%i>$U|f!-3R}@NiFrZk%`EZ%?LVsFZK7
z-_7H(seUy1sEiCCQH$?N^y0dLrnmXXNwD3vEWI$0`F#mI>*}O)k%$ZiaCAwHCq>v`
z697_foy4#_K3r}&T{g0)a4cj*L`4-MC5{Yp)uG6rxpBlarbmud<NLd<h@#%k#as5v
zkU;|!@S5IGnj@8RfLj{YeDbaWtyAe67L>N!GC+GmccIMKJc{ER!O(IFQ1PkB89xhY
zW1E4?kAMw<QL9zx32B~3hp*H^<UgD!C1>R2)niUAsX2&SJKA3cY$ngJDwTEN<cqF}
zn}aZIT`KDkZLEvX<i*32tP0a!Ky<q%=EI4jWZhYnxd-rr)=&G9g(>gfY5uOAD+>JI
Z+bxGqWJ;|3Z2QX2jkE(2T9+bI{smK^i>3eo

diff --git a/reference/as.mic-4.png b/reference/as.mic-4.png
index 697386b3d8f55f42bdd0906f8092569517ee5e9e..06b78938e6724680c289da43fd337407e6739606 100644
GIT binary patch
literal 51563
zcmeFZc{G-7_%^C})~ixVs5~fR2xV-LJV=={S7t(F%G^j2Aqk<7c_?G%N|}{e=475{
zGVkNA-fviY|MC0nZ>|09wSHgg9faq3?)$p0>pYM1IF9ptbXoSoj;#l_QczIrAWMqN
zQ&4QMqo7!Kee*_qr{($Uar|%Nb?FP@_&@&4pUZK<|F+zeRJ}z(LFY#NyT-d`LXU#t
z5CvKMjH2Dk;kMgWdz2PdCoa`QroNLp{g1?6+kfs*$?cW<yvF7Dr&ke-F-P5xy3>Dr
zB6qNuN?&86V(aM*=Pw_$64#Ymv*FH}Ga0XjQ%d(f<@+baDtm0q`(={3zyM#{YlU&=
zklH@QXtOr^L1mSNhT6<HUr%m{-<O5|w2)=3{{7lD<?zRCfB(XN{_eiNU*7Oo&-M4q
z?|Zgr{r&Rov0b@;zr3nIvRm`#>km<q<7@wX>3Y%U$A-VZ5q#u7_r}qW4xf8iGGJ9U
zU^N(Qo=>(q*%S5lZB?^ubnP)6necOeKVnyueE7Q4j_=#dvNSl!f+K#R?IY{|eB@Uv
z&;RMu#b0X|I5&(O-pi%+vj66v-?{ma@uNc!4X?hZCpS+~|H4r6C99Lsi9df{$J=FT
zB-O4c)BO3(m|y>a+Y;EQnQirs{(ZWB<pDC&oMDKlQ}$?9A3dL8)#-tO0l~4{sp${v
zb{e*2Tdx^vN;C2cbzU$^H?EiRXH!vDR(`%R9W7?mTM;;ECrtH)N4Ml3w&&*g^UUFT
z8Kx~!E~|?jgVhmkUr+TNd=nML%El(GqILTXz1@#B7sEs~-6-ii61aa}9c$0C$7fo7
zp;kG{%d4QOs!F`5$crvM;)3_{EG_Tih@SF*p@HZyWxPZ&QH@VeUw^PhnoFs`dHKYx
zUK#2=d)8~VkJzZ23K`XqhQ=DT91>@2J5;86E6X|d{#lI=D!!d$IX#;;>qeuMrFq}T
z;o%!0)(xu0wNX!OMw+Ru0<RT590*%oiuU#O?Y7K1arFa5-s;NYnR4yhJ^n!g=Ao=A
zNe6kJyV2WACg;rtk&H%Lvko()WjM^4%?#E{Ki<o+RW&-Gyhr|xl>ZS{^}R(jBCAVN
z_LHS7_nwnwWgF6rYU{FY8N7*(R(F}R6PA*a+WOwJWu&1lR$=D5j<?a=Xxm|(l8TDD
z3k*(?qis2x5?F#p%xfYaH6&@ObH4j?7Zmw4A8A=`^?j{BzfW@yPZk^bo7ie@kv9WZ
zW=o>j%7ph}zZ~B*s{wiIp#}~!3(hNVPtOcBdY{a4V4WW85Yx3(VI_CZ_E(=X&z+F?
zJmWmuWH8v4WBdJn9I2<LC-#Cjz5Q6;+>s=)1JuX<F5F8|$?>An2yfB2-7K;(nmIOV
z88-rDU!FXS$8z`XS`Mw;EBJ`aGRgxdB-d@+UiI?St!IIOv5$7M41Tz?&N8PB|1@Xa
ziXP3Kl8s;b^k7@M)j-V)oz@J~U_qPV{<+Lz1{V!l{u`H_o%4n1y<5#Py%@xjDuV?~
zCc8@qu{sq)JM@~<jDn6|yE~JA{_$S5T)TJm&hzv0YS~t?YMEvnv5_GW^^xS=7ej?r
zTQbd6&YZb}H}ZJ=*t);!u+#EPqj7ck1Ema?)fGXz@mC#_ly2vWX!h$^71P;XaS0Q1
z$;V!4ERC@3+W$9@{CK?H{NN6H;VXEkHPk8^ucxQ2n3$N3@$o5*G^f{=`LiWjat286
zW|p~(bCG_lPj+UY_5z<tgQBHnim#s^_NCLsmnW;uyGMUbbm@3h(nJKCWtZA(M@Z~2
zZAv-Ml{<cyGrRxDn>TNc9Xm!YEiEm>bD!@EOKveQ(8R7~%WUC&uff^oFqYS_NH1b<
zI6v8A+?W(n?`&jbWZagWp1-={P|$5mGHytS-LP$Me_xnO!$@XF(#9PJj^ZlGWU}SS
zgK=^Z4+U*U6R6pguUI<>)920i2A>(4&ZE0u*ePkq{&z=hX+IgO5bdSqJm2$b?p~r&
z{PWTLMYDner-gxNyo1DtNxa(u?(6qwR#Lx-K0cO@gOjM0*KEIv4~(<uD&nr+ACJeP
z%BWadQ!`zCfnmeNAZ8Ypp*GtNrTRD}#-!Ekp`=>AMvdK8VZR!d8`RBJ$I2OF)qJl1
ziN7BP?yWa}DZJ1haqU9(Li^||`<X$U%8MnF`!sIe;d2`QafW)|zJOEtJ4Jte2pX+<
z^SC3CVpmU>w^&9LgTpYlp04hF_OPI!xPsN?v7TMhJ!Srh_ibfmy|!-KR<0*v^Z0K-
zr&gcWaB$f;+0MxStU298y;eor$@+WsON2S+F-=aDK=Xj(E-Q{E3;BzqYzlM}y^F6h
zY0Y!F!}YSQ26oNZ<L%O~eq2jzD7AdYEPk`r7{&`;B{W?sUwbT7YZ02{u^S?^0z&@Y
znCr67k0*YTW^_+qF1f6WN=->A<2@)=L{reht6^1rKKe%6M;e{9YlRz!^2W~fpFP$0
z@>aN7F}6S=5oFGvKQH%XpXqI(FMkq;Ywe~?LwCQM5f(Ze43GUTxGBfV_dH7!df}%d
zcstGVcx-GeRdN@CWW(}YhxXxJk^j>P4qYQF%gi8T!+yqRDa=o&?AteQ!z{_&k--Ay
z4JAH|iF0&<R#n4IsWU^#1%ueMIJ5}qJVjTM^(%wU=dY2Ak^CEieoTMjIPjGMn}Rr2
z*1-=i2J^>~{g}6S4}?GFtSNdz%S6tx8S&^BO?8+XeG;>RNT61m=P=jMUFuip71W+;
za7o<yLi~~cc3;~V?Y{j(CuEZr#Uk_K=?BS`OL%?409U~hPq<$1*AQB{tOwinsnxnH
z4`~-ND|#P16@G8iP6@@##?s6{N!`C2`6RE;50P`z1GU9Lq1-wT8xqw6J{U^1+O(K9
zOmE}LeRcQl-KRa8oB^S?djs7EMeV0!_(rS*3!gLa>dT1F=<DmN)w0OG{2$K+uQ-mP
zb(3Cz>X?xAU?k!s%kd)vK_*FZ*w#$`B<aPOAr|lA-ER}PC3XsryHYZU9+Yd#Z&?`4
z8GFbsWINjGzPoq_Eq_{+N|Huk)s?>oZda~>dt@YOd9GkJy}hryyTA3;xB6S(M50Gp
zGRv`(rihKEQ%p%5z`^#s90am*Cg$kcSe!N0v1pmVaO75FM1+RIIt|W%l+;w~k@UvF
z5Zm@g??=_m^Xh|~2i^pnu<E}&(wbE(btp%J)Aak>GjpxCyb%o!TI8u{SUlic{<MwD
zuri3x+0>R*=PwYF91lJ7RczJKX{KJK!2$8TV0pycxGu)$r7V#ZpFMjPnU;2f@5cAb
znXQ(O^($V;C2=qJaJfw6C>7Sck+voh_}}Ow81j2}FtkuHN{B0(HzsM;C#docEthi@
zB;a0EDBTL<=6t0&-;G`nzWL)cpK0@n8+oQJ8A@tuL8M~>0xC!V0ks3q3Ok?TzqJF3
zcodh&|2<~$$^>v~rdbaur{8GeseUcVx?gpv(~ZIS*Ldf(a@jzh^WMUflHxOh2PvKA
z+H9R4)nC<eoH(C1QA8_6CT~&a=is;)1|$<(fVlVvILR}Hmb3lMd9MJ`KEyW0$T22f
zd3ScGF}V?WDE(&VSq|-djoY_x$El^qeH9uL#)r$h{3>Ly!UKqte>1uKf`q`A)fZZe
zPmRX&BA}64j!j}sO-)^fsk-$*&3W5a3peBXxHq3ZeR3a4M2J>S)=IoR)jN<k*IpZb
z{&AY^m{xs^+&LoCq&I5Cx0vNzL^glI+HTgCeT;?Wf*<q6ngrF<>Do(T13y0A+w$md
zd^5-(>3EW@{`tGjT>C8^6TqJM^B=;!=RX5!#79O(zR<=_yfhv4=d~2k8~&d`GY~m*
z^_joFL=j%R`TrA?{rB_!L-1Yw&JyskrC<pDQA^do7+!cxfZqE;ZS*A-pe<{FAN7`l
z{d^WbKa0DWY%?e`=##M>O3Wkx{BK-+RL^p%QlNamDo#DqtS7_EF1<R|z1}N##G!D9
z!1|XACOJ>&gp_5Y6>$1bvtL{LVZRX~gR;v_y!#`{O>%-Ei&KyHaXrWOMMTrZ!#PQD
zQ|-t{+6w?$^$3U7-$ds6aSG)0^`ihU6O<Fx29SMfk<OEHb8}yn)9L_<;vd;-b<xkc
zC4j!_!&atQDqnD)Tbvuq%s5q5K4QZnsH=W*x2TXF@XqU}Vn^0HAebMmejUK$Fna@=
zThqE;=@BK9aS;vM%1}~HQftF*Z+=0gcg;STnt})u###v@Hr*vu1mXd#S^ZTkCRHhB
zGkhh`tH)_^)<4c<VS1opiNX2T;qYHx^diO_yt*Y%-2)!I(f+4m%w^Sq?fIH@8^!Z-
zNr~D8TDYZ`c-L2{Uj?O+TCsFV&6(!OL`qwo|K^g0$X2l1BC|y^%IW6hP*kv)2dgr`
z>l0c5<DZ`&9XNi~RW054O+o@Ykn#|MR2>3aELZ-oBXMJ=5t5ox4dQLb+65PfQ~d!m
z<CC(bRu>uzjx4Nd({s<`rT+9z({g;~?HYlBfpI`HNZ#SxIz@)XUUYhKylR^$55Apk
zy0dOmLP4fUBWJ(&_=K=*mtI%VlLmXF^ebjVv6~$i??p@R8j)#pp;lF05lA!d&_XzB
z^ktGpwNat4pOfO{sqNQomVQ~>0$M&mzNU?Eww*z=wY#UsKh9urc0@UAczAgI4f6bA
zZ?O3hW0o<KrC$?|D4X_vz5h*C)oFEkPR^+}m&?1@ufJ;fps3?_4^u$gN0cnar%s(x
zUXp&!ek{QHbNmz8^9eTHE%^i_<P&SKarpU&#gkN<tX<$bb?erxaw~S^k7scvc&%Kq
zJszP+;3fvg<GM|DGuzfSWn0I0Oaff?etxu@io-;PEYyCpa0gXp2PzC*4s{I;jo*);
zh}PWmq?V57Kx4AD_za>^8@tB)<2RfDXm~CLo!Fw<2!!q^r86mb^M|VuAkKGtq_+JQ
zA$l{wDyl<^z<~(`4qe;oE<EnDIKYK)nc0x)yu4tke(C(%>t8$+7WSW_{u;S#5U}Ei
z<)oQ%>AQoHiPtQ1QSrex3Ik86voidq&5>+L@6TpsWl{Ot=Cl!j6Ui;qW#x9k?HvbB
zoHTVd-PsF-m&})EH*r1PtW6Ej*;&uS!{b>{kbT^_)O6m?R0U<Rm0vn_<!Of1X8}-p
z{<+v>+Me4Kl;7<uy^Dt2^wMdzsb^*X6BXJJk1HcbH5Q9%%<zf!$d@GYCE*G2rnL!&
zel~G!*2UxUB_ZdAhab5uOpiP%?XofzR>-NYs2B-oVN&>T2h|sSfeT&-<*-g^NJ5$x
zU#QoVclY(htETE-<I*k|$!O`e60A=(_-5%{YJyFXJzXPRej<*Rf;HPDIZqjNZgZYP
zX8yt;oApRDU-jWNAB-NTpZI*WBj3rmDdkNEx%KJcb7}T7#y!2gWnB{`T@y#e#I#Z2
z5ZS0c>SFMEiI;X*?Epo~Ed*qeVzOmAb}G=D>8HWRyBiv&vB`Bkw=CjJDE(YZc^$a8
zVS3DYE@!=jyhXJ{PkE-(P+jcq#%yhe5kA}`v8Ma9?5=&Eyti?ONB<T6qW<C3Z(b$|
zub<f#yn6rs3IJIOX&}%bRIcx92oo9L*VAzRoldb@Y1^}Bd-5jB*qZa5a{Q0l<g}r(
zdx3&tAJ*GourWCd`7fb|j`BiD20fSyB^xZ?nR2IzFZ-y>Q%QPydPXHr4+n`jWMr6k
zAn*xiwVC09010JM^(!YAWoCz)6zIKKu4;Z0p7Qi>O+-vVm=vPkyBF(X_$^dqu%n<r
zX*Q$9Y+KNcCk8UUikC0H!j`%+6t9(+&3rK^a@{7%D~r8Ax@u{LJ{z~wT<&zfzdbUX
zKAK_|<Ec}sj1rztNg}^~+*^7<Nnug6xt#~x3M!R)fL9WEpSI(>-pb%;6ej+x!Ox#Z
zq0EXob8lmI&vW(Zsc&K?Up%Oz1-rMtj){@<?Jwzi7ARz!M2eO2XN|*NxEpaSXDokF
z)>jcJ2*nENWRS-repc=FS>PR04HtJdPR@+ctVNIj=hHk3JKb9rx_T6+x9#QBFs$#0
zzQjO07{s0G!TNXt7lN8O)IAAmBqK^C;mT{^^ZCk4Qd07GzDik^dI*=d<-E0KmNh<4
z@lGOut`AYcx3R^Puvb*@Y@Y=O#{<j~Thh4o{X6X@6!wO7F>=0AvuA8<G5}8WDwDCq
z?YH~rl;RZ0I>lZ}a&kVR3;m2lMcT91uaSUpFJB%cGpY0>Xk^J7gjhf46GJJB^rwKg
zt<QH_d^MCL$@<e`>!EjM`Sbd1F00GU2uR9F8nJk>@bBGz@3pVqG^!Po&QA|~rFLB?
zf6lSZZr8q&Hvw94IiuO}bsdEwr}(P;ECg<RfA#vDTO25whIMC)JooROoy<RNjrF^D
zNo3|(5Wi{M^z^iAzz;LxJ7UXeNx73!Ac^86o*WoN!PxFNb&*cQ{=|=LoLz&&ArMnx
zqydz(Y%{J;QiLxjvQOM-%T_`O1*EW0uD!A=WyM=;<-5l>2i4(Hq`Ww!9TQ|%<CcuX
zj&sTcL&kCC?V&jBn5n6$nNpUp7?or#<L_@@%PS~YgYN2IT`pLSZq#-W`JwklZ+>{V
zJx`suQqJ7*v&d`lz<UQySw?ytJhjUr0cA&(8-sHUNJCX1JtcelY|i{&*Aew%WHKe(
zGjY)RzrWM*jifbuf4FzS($aFe*(7=3A+1>zYQ~7VI>iv2v%&B0B0?QTPw5#LxE*}0
z=UF}3Q$ACta4Ghj8)ckwVh|56Z+(iMw8+Y@E)XY1RXqg=JY;#K#l&n7j0p~-Sr-tJ
z1cwq*t;#tv#h2=OKq?Z|E|HTtv$}T?7mlz#hzKOUm;|hX#cC+|`03MGr}2-Qh;;^r
zVMovevW``pzfAV=sFCQr&R1kO)R0K<N>+`UwgV~UoC;44@DUsl&eTw{%W`~%S=#|i
zIz1}s7D;(6t<WfxI6`B&3aE#@YHDk(5uFKKPbFg7){-A0Xub8MSdEio3X}BnD`G2}
zF3U4=9O^#LE)@LGZO_PCnk*;i7tLFhd<~mh=Gq;&x>LS<`O;9BMZ`hYEEC)Mc$G%p
zZ^AlxJEsq&%un^H7ndL|Ec@o<qeS@PTH8bAr^sV(i%)D=OfFby=E`!2@<<;`G4BvP
z6(WmDrEWnT^n~<`SeX4_>?`iiHQ!G8JB?f}vrjt2l;KS~v?5f$$k}d6{piYKC-4-0
zS0Py|ukO8t4oFax4#q@uM+|zkpI86$@^fyidc)i|<WjoE>@`0;_eDF*hg#UrjheP;
ztN`Rckq+rJOBh@HabMeIxjuJ!w&e_ivK($^3ZZ9{W@D)}xTbfCbXe4svYa-vDFl)S
zj;AH0q&()k{Vqu*4gpSj^{=7DG8ED1Agj(~UKJSdW}?^e+%M*wt2BCVr|9NvF%VZz
zNVSNqt~=XU+1Wh}TZmJ1Yr4Ps)nXw50ht*Y8E-fhgKVTWi3|$~5wZ;m<TcosD8$HE
zn4q4?c_V>WzhX1(&=Y}nn)*VQpP;(*l-bSmW|RYmEOOfP5#y;whOpwB5_GUAQ6P=3
z1%#ctr5~&3#GuA&TzAwjEX+KqU}fQzbw#L%Q1`4OYPTra5W&M;{QxIbo38#6y<rTn
zqYt<ig~0b_@TB9fo3WD}INw$8S<lj*-!=5!qU*>4yXSsh=5A+q33gK*Pi_Ktde#nX
z&l*M`rnOqmAEAvIInq{qrxj62!q=$k)tM5@eD3=WC8{TTCZ48G_V4=zuygvuLf+2k
z@`{SI{0r-F0}Yd?$sRj67ST+hJWwC{o@S(wmB9E6u|a)E``z{PvGd?1W*0fPzd^mA
z+=RI4uP#$W!wXg^UIsa{JeLzojsys7!VUP+yEs<h9h-E8A!YB7#Q~F!FLNKgUuzLK
z<ikvH^Y2}Cb;z?v<8ZZ8>y_D#*mm0q<9I`Q{5Jn+Q!2|1?c?9)&Z{z{^v>WEl}qx-
zM*F!Xt~q_s=Lg5S4!_9mZe4}Tm;VW{k0958hF~AwXNf(5tG)EWdcI)>dt;+U`<(6~
z=nAixt|O%~A%gYhnmr(`h^;YUCmdz)EmS!WJ7S@di<OlJ+bG{h7nI}v>2A&%$`Dd*
zie9-Z`8rp}?k-880<CIC8wpPus*Dw|YqSC7)F+fX*57`w63lP9tKl}SkWB)0F@oxq
zUi;iFF_Kz%%qFoteHDSbCngJ)CZ%J05JF8WSH}x?7K&cWL-IVcTO{9f*C-zt2v_T0
z&Y_^UU0#5MkS~vljJy(N+cBAAJ4SiM;Ji_U<aN3ehL=CTE9!dG@h+osyt9x|YXv82
z2hBb6#Zg4Yx+TeGju!{`jA_XFKR(<!T&~o;-u(8=Hpjf#W|Ia%$4lP@%-e4)I{`Qy
z9vWZvIaKBBsT96Dmq;e*E2zcfr-J!R^hx{O3aMrtN^R8%R^E(zzfJ{sNHhQWpO3l9
zh^Gs!KqY+T#wG=yUAcM#IiGzGd0r6fQ=Cm-m&n_2>w);3MS1q>u6JWU>y>?&?R45C
zyo+^$P8jV%wD$S2j3<%MlX;_QR|-4DAxn~7`G+}aj?jp!;p7@J6U))AVs8R*a?^Vk
z@7cRI2%?BO%W+?V30a#o)Sb=4!&4DS_N(YDbd$Cg{7n(30N5Nyr6^#Q*#bg2)u@)a
zHsZogll<C&69B$z8i7F68B3>!n|KX{?n{psv4sMD4FwD#aRwr=o3y*GS(nhGlBh;~
zq5*%u)%8Rm$f!0dkU0EHOO9O=cAmvu+(;t4(gB=&U{uqU8leEJZAb+-Q(!vSlp0<7
z^=rl;Fb@Bwo%AO<oEH<bfQ+w8jY}~_@B>q?UJ0WMDAz;XVaoab$J+P`WKFu`4JdV0
z_2N{L&6s6h8Up_jaSL0LSxl@W;mW&DR>R+`S?4B-88(>~PFl5?W~y?F^JJ5r0@o~B
z_Y(Ul)n(OLK||w4dfUqKVr77~vr)Fqh%xGgrRUmUWVBmshZ-u`HM8rwdwUPyDL{BQ
zW!den3VfIaTqon~>>NwOEc4>WzI%n8#{swaQJNKv*aRah`h|p;VlV0Xw;-s;+9Q45
zs7zK#4h<B(ozeuYBb@__s}Gqe3Mf&6m8`hIqYt=jq9qDvateDzZQ?#FgQ4?z<A|H@
z4(P}L@mGR)H3OGd>BD#-VU`WY4UdKwxjTK(ZunjC+6JoFD=kF=$6omQUIzfuu^DSO
z1vB`hWrVn{hRv7BQOM0}E(tre2vm8C`J|~I$|u*}j2LFKyqlT3ut5u(rY=#vQIZEG
zJqO<^xLO|hQp3c{`M-W{EBIEp`;zcA<%BC#CnjhT#hLBA8N|$h7@m-(N*KM@vv<*b
zX~))jJ2SuXcGqy3r`=~=Pj2jij0S%{KOLwo1mYdQ!;Y1I;}NTx8Z`hka2wIP(2Lp2
z;BF>+8QVu%X#}`cLsIF2-OR0B)s0?#S!d4=bV;QCJ`YXGJ|w%YcTXH<hu`%=N~vJi
z&Tl;^WK-dB3Xl9oM}C`3(1~Ni-pP8MIU%nlBG*xbpSzp6y&*wW$LW~Jbk#YFc!6e8
zTM(bg+6DzhMP1IEVV-!6S5yyJ8m%WcD{JS|-M`8xjVm1>N`+D6sLfZBu*oERvj(Dq
z?<R3++!Y9&_~pepigJa!=$Gc&UrSTpHa+2$$I*dy$J}kxVLz1EAPDM)ZbmSCe)wdF
zte>CX?zf>>P}Lrk1bg0k+TJH44JSyC|IQcWAws2_;s0{aR`=B$so0^(IHs|*lqe8Y
zt%o}b#NuZ9`ufz#`^ox9uX@d1fX!;wbs$RnH<uFdrUyG~SYQm`FAAt!LjHqzS~8gQ
zhcf@P-tG%&SYlO*yHDrT$<cvgP=1P4p7z0Gz5_S{0=_b+O3O4ZB$#$NtW`m6=-RPC
z%V}ZyUD?KLE1)P2^^EQB9aURKqQjh18fZrwDDxjNlBwvvWwzU!e8~P8@`EGU`A#GF
zlZ1tJn!T$ZH!)n9+DRw4CnX6;^?Nd1UUIhe@dJAg|LX-93KDf%cmWyUyvWuTHn}ZY
z9b>^Lmo^+cqp6{BkpFd$2?*=MyH8KJm!c%IZ^#D8y=*pTG0DckQCShh$7ZNWee5GG
z(qM9a`NGUl;=GTB5>>LZ?2(1$31JoY&$0b~cghiJvif=7A5V(;7qsSm+^Nz4pWil!
zIsO_~$akhVsfpxwkHKZBdO_a4H_+gxviS*e_Gw1DyI*Mf^F8vdchCu*FcblYtDF^|
zoG;idNbK~s)LFpNZC98Z)|=;caYuDKTek~_InAmLSx!;X34R`FSj*rv?c*aQLGd!-
z)vFI`E>H%~YW>_Rb0RF{W{8P-Un**mH@(!<)T*Wj2AxB+@);#A(fi1?%ZiqIc3Y!f
zcpg_g$CF~nRl8g)wsMVQab<BV;I_J>pQG6Fv_h37!RD2PI7)9FV|oa-VcYG+9b9gO
z*GPe-ek=h&c!H)TB4SJ9=e}p>_N=r1$@b?_xBHEQNyw<M{@l!;|H$<w%T4^wJth7s
zC!xHN#a~_Cn>6whMrJDoI>a4+YCYEx{BC<OcXw`2J=Zu<mHX(Xq@=8MzVIuf5?idW
zA@ll|tp#!sceIE&-jsX$mZAmok&i<Yb_p&0k#F7v;vP4!tKe{b**nO3gsUTR88M-Z
zi8&ejkS3N?x`J}!{B+Yw$Lh*HC7Ea`VeeYI8O?C=KSilwe(w1;!r!QmD78DaO3rB?
znbk}?o9@ruxi~e^Tm&6CK1@Kb>{*KW<?XpG7EoqMy2}(d1*P_eKMx8rz8KJBlrd2i
zeJSke6k#e*uVqt7+O9eaa*a~Z9QA(#QARSPgjQ6@wApn%@r^_Tx$hX{pz41?7?@1?
zH(^1L2go7_YkW=%R!l4xY}}V-Tg(ptnb=SFzlL(fCL+={wxxie=p%ij+w8;kG8hIw
z+`c~?thjrFs&c#OjwrqI=f06RgwKOA!PLjofl!RW#}c}JGD<N(e6^Og*XK5wG=X#Y
zY{B+vu_r(~Tq}y$AS*x(LYk;De5FF$9SQOm7^U94V0mv!64J^O8t${cb?<a8z@(rl
zSIp?|sGqy|6BKC;D&hlaH=t?qX-3P^nKbuUqA1exB_(R+D5K`ymeqkrK+0_4Aiwbn
zMg|}0DA4vrxEIg_AUWJMM??tPg4@)wPd<IIw`|?Em%WNm^k+v}*x1<O>lE@joaQvi
zH5>M6T#hpJNH^WOb!!66#+~#DSQIyQZ4ehG3*D;@0M7k1kJ8%Ko^t&4mM<hUl)gTN
zntXe9+vL;~-?dNc$u)1U6=Fjv#>$^ZB#9>(eRik17FM^i*s-dG>LuNaPAH1dt8wx2
zAj!et8u=3$m&p8t>SWOx^b5KpLFW+u52#IvYUxq{uiLLQWVXR|K$T$zuy8RtGV+<U
zj8^-%Z%FQZmfe!Xq7u{&E~IC|PVvf>7|7HGV|5VEpGk|whkLvk+x28}u#Xg;OqYCX
zL(a6t?ssFdd!^Mw%1mW0UW9$Xk3`P1pZP8KWBV%s&eVUrw<*Fao*mUQYiWV@Mhf>G
zTiSWXFK$iH$`d@y{Sp=P;XW1!K1dV+Bvd<0x=lpP3+W5~>_L+29JwmZ#PViBnSO%A
z#57R2Q*3&%g<$r<<6PKNODKK-$|gXg3qS;ErY-#Nv6Mgn<m#Y&KSquqL52AiG|RlJ
z+%NMSwG1JQscsR~&S#NDQHh{;89s*@R#sMdIXSrxBVK8YLN>$S<x6=wR3cf@@>$qW
zV)-4*x_-FZr0m(TH-i=@50-uX+JM43LeP59@YDS*Fjx4&Rgj2qJA^$-`JxJEJ~h3P
zIAM$)r=H^T)oZ~QZB@0w9&1P&Ta5(`t{x@?&C{k}ew1Jq=M!~+QyQkRn-1_hcT7SI
zo(Wd*X_nkd7vD(SED~}Y3L&7SXDd)V3B}5}IA@Hz9l6Dj|I03u7F`1a^;(>j?dt6U
z)$ns@7TnGsX@SBeUoKH&Ho<RL^~&9AU=^=k6EJs?XV1QU7t&-qx_)+(&SU36g}inV
zsB+{?`HuZO;=XAh^>Hfr!?O`05=@e^B)mlzVxlgECE+T7TrWC@1rkOX=P+-NaFCjW
zk_nXe%F}Z@!JI5nCMw4ILhp?9<=@&@_4-_c6^cISuUun0kDFzxgSW25mDlAvIsA2R
zK>i8Pv<d9}7G}O&V)^64nu4y}BOWs+XQ-t+m=5&Re<O=)3(@y&wHfSUzTPqKk)9|!
z!#@kh5J-_)cq9_xq#A^D*`TDNNyr`q8`@ps<Gi?&;_}4rO3p_X*@m^2>+L&_?tSBu
zE=;y3559Y-^T_J+Q0y)vVHDWUI~ECrB)kV;Iff8z<%)aCZ6lR#d$&Karh6B9@_e?J
zpP$~HT?U=t_N#&@1<Fnw1W|*-V*>Y8S!ro??(HeU^3>DaZ3vz#4zwvSMQ^63`H|{5
zU3Rtn(r~afZtOy+WywtBFDTD8BrvM6cneP@mfKEWI-cKiNt7HXX}X6~nS4ORKFxl1
zIJUL5)m?|p<gP$N#ypG(2?MAq9&oIpVp6L$2y@El5bm&<ZyR$~F>bm!vR8^gP6LL{
zdpu_x;w^j18muB!_Wc^21M-=#Wc%iP$Ci{ys!!Gy>-Q!E%FHst&!VTMA}{Ytgb(6x
z4fbtjnIH@fv`Bnb#qq#KkNhUOC<7L=8kJlmd;rIXE%#|!`H+l2L0`LY%Dg$PG)Q#*
zg*!;&r7{tyO3Epdx)4q5SLXW?=kixsSi|jRxh|bwm1HgWjYi&uvVBkV4lZ%p=bhmp
zo|`!V{jM6cXf&h(f{+AbT?0ZT203j9gQ$k}U|luzm#%DCt})xeQn8G66lF=*^}22x
zId!Tjdr!@X%@B~kXb(3bRUYnx91X=n)%TND5Umvab$oeX1mE^JU79ZMvTT`j?}HYT
zCaBl$Hw}~9Md(7?R5Odas_}tGV|BYrKqw?*ZHAD}|2Q}r`k!F|*bPPUS-fZk%(mxT
zeAF%EF#sOqv7xTl9QDAPK|;JNu|Fd6ZbD001J=IxHuQMO4O}=GG)pZ}kCb<qWe+eT
zJYDH=G^grxXu6dKWXeu1D=8V5KC*!a9z0MC0<AyhY|YtWuQJONid(jsbPoo_LuNg-
zx9~~KBu58vq_@<2)PWOhgHS+!yPJy4w90}M6AcHMdW5Z$x2^duRn|q01J_N1!Tw*V
z&ClGq`7=!fsy9{n(vd^C5eM_2zCt(Hl&dJBnDd}(QH-fUIzB=Ul%I)U4JmL;bb@(n
zURk{MTS8~lb&6s5;CN}N_z7*_+-eLv;cPN#UfdtE+49yc#56VzjrW%cJ`jPJakS6Q
z?+3vCSk1&~$GK~-82Eou`;iFow883q<lC{Bikq2R&rZvp7wgmQsc-b^(fH`))G9tK
zbj;b*zr@t)<UxV}Mv)l@x$&rgKx1}#BhL4T?HgHPJ99Bce|kv@ilai{1y0zFUo}}s
z${7XQ*?vrOwKQ|j$tDEKgn=s(Me|-olkMNQUts?bCQ13yN6xoBd!N_}qoizbY6Dpi
zPVj&SMsA}Pf0(<o9x@NAVQz8_At-}kjYZ8Fr;$Y%(Uv7x+0`@H!%gjxTMNBdrAQr-
zlCN6!EAGjkTTdLAa??6V=ms+odep|8xb&vzOb?bW)8Ct5jx&GX`S59rPjIlw6Y<=I
z!T9Cgc`s(qbdFrIH|iz{rInp7zs|+}ffR$wVM8}hrs<XM-9dBwG$EIK6&zy6sVh}W
z#_rVd7GaL<7EeIX&})t&%2+B|Gu>gRSc%<wuUgFPS_Hm}96y(?elmYmLAGb7Mm{-Z
z%Wh_ItDyi8xZi>(t>Qhv$=zQJ-B#2!@!4@qqeETgv!!EEEefVOuy6zn0*gu{kMG^_
zTpbKHqRZ2@uX^AlG}A1t1ts{j*dhT-1Ve?%MYkN6+_4d+BYD>AS1!HR5usXsIXP%j
zY?*XfZt?x=S?%zJ81QV8FXK#Q;M+tFNSq6U4yiFTH(UK?Tt#aQ#gPklGd-bdo40Km
z0oRm`<zdXPxP|Nj7n}EWwN)a^0=2AvsiL8gfGDdzRw(k~$TK7vllwmrYSXTMy!%Qo
z%<ktFll9f0Sjuw0Do}fKO9*s0ra}}r;#T-N>sB8tBjY)Q6M3Y50J6Gtlg3ve<c{?+
zZ_AG{83EEFsVY{@L$x4;C=$6mfU6O=diVLoGyo@)XU&KLi9Qb0PsTRCklgLV(gL*+
zhi%{F%F7~}Ck$fk_AU*o2CB8~i_PR3!i5<{gQ_f1Zg;1zL4N5wKL(y&I@5leoEZqb
z4>iZ0bEv23mio%Oa2-ARR^s6TGwJRG2Sb0S`fpSTnOz<R;%JfiNk_tr3RdwFE+{~8
z@}KM!AWH1p>leR;2niTwp|XvEgzqaQ`}q=m({M{ZGAvuV<9nNJgu>Ra{ME^CM-K;}
z_<~t0F1f?vU<q+J#zt^ku5$;x{-}|JH&~J96PIuG98t}EGC<O#N))2$=z&f-`C`z+
z4aDUjkQFd@j$*Qw2>zN>w;W!WHJUw?Fu)S#STiP?lOJk7c+8|($g&{!x~~+c-z?`G
z&O+SVx5uxZg4=-jEqiUM*~fIcy1EEQkKUZ#RsHQ)a=s0F-&X2aZ`y$sX+;J;Es*_o
zrd=?G!XbF~=@#1#hS{IXhfZ|FdjgbF{igNxFYAM@<cAwvlE+sDM$!GEj_*}7%|cFD
z{JgJ}6cbYd`(1Ix3+_Uz!MajO9)bprU4S5JR_`AYqG`P1LCuyh?+YIL1W}8ga$b7R
zUGxG~19r#(U=p@?nP}ONwMC=qjbB5A&YAW7{PK9YVR0}%IjGQWC+%-SS06-O6qdeW
z34$%b?7LcHQ+<`>5oohgsG5OSBtB`Pt2jViI5~eIPN^3P*;KHA?Wl%HI~0@M$G?IC
zjF&-uS_vO-;_~Q(T?L{~1+s|=$j7ChGo#SGmnI);2e#)q1S4|=A}Pk_<52~DdAu(e
z1eJdrW6(F*_sb&ioiLUX5PD7DVv@A)?O&a4l@E8&${=eiMZJIjoiIfpc2x+&MBR&m
z(ze99s0E3XvAz8&fwf41h}prJ9nLMoz-Iu3xWi*dj~;JoY9eUs27AI>oVf(OZ@GB@
zug`4Cu}ubvU-ZJ4A9#mb+j;)YKz)2bda{#g>-%aoXK1*GyPRO;@+5WLJego^H}d^m
z;n-?je|5xiMlpCl)R95(AqJ_NWqpz4A&dqkc59u!p7rk_NWl3&wG}9@#V>&fnx4l_
z@$Y01y#eHDMtJHJAlSsW;sy#c<c@=)Mo?JJXA@mry5$!TV8D@s*g5s%-p++Y9pt4q
zKgUf25I^p}WQb`yV)5H#5(O{r;c{33)Q0RKx0R=HY6Ia;x2z!C2ZGO`L0yCo<%B#~
z!Iq5O?B|zgNr*31f?Z8q<10ITbtOPuP1xLS;jLONz`_IvXxWz%c#zn5FfP!71@$~O
z&)(PD8-yx15Pq}y^hzQ%s?8DXBnRl@D0dx779pV)<3<o(FF;TFXZ>b`Jl^5q5_(4F
z>^yF*^3|DpOA9;Ob@GIDc#2+t#84l~8%`;&fMSr)m5t{M!RV{iXloOf%~<{vpMC|6
zABatPdHIUD4i^Rm89l0RT_?1h0zi4I&$Pm}(u>03@Q{a!7z>rth+PPqVx*|qiA64|
zMb1!D>Lf9SWYcNq0u6W$^udnyVqc`LgxM{=C;AQ2y>^N%9oMB5AA-d?Q?$4}|0u;F
z8<L$)n$3usUtr+C+<Dqkwubd%uv>geD(t-Z0tuGyYHPKXh9`FvR0%5c7Ub4@uuZKu
z7ykJh%FcuI+wtBDuBH;!R2bS_^+pR;SKbcU3Whi@vR!ujN}~g?OFhBQ#PiX_lY6XS
z)mbrY4jT4D4TId7v5t<hljEVo5AA3As|%AUI~XWF<-sFS0pGv$m(GjNA36{~_lJ!m
z+6R;aQMo*5?ZwY%$-O{{J5LsvcjU{Bq%JSc1;pu~jB9W-PdUD)V=|wGKA%+zEZ_{d
zt*x{=2o1jvXWlCA92@T_HeTtL*2~FYAU7lwW;#K=jxfuVbcBaTnXdi5#GyYlU?apS
zeOMRI3>_4<yQx@wK3+L7LHFwMiNSruvuMc0-Jfp_#aU~xgu*Z$yw6m|R|ee}N3?8j
zGuf#l=FQ|oTbo<gU=5d)0s@nJh7-!rXcDuIl=Ed&80S7O>LHM<86p&u1Rgk^9woi*
zIuu%LB)rIpAF$OwY_}GJfcd7ZIO1RSh*gTA@kReE!5-x{v-;v`WK_>>`h1fhpv3F?
z9zUF0HF$gLIK}Cvn~xvT@EO&JgBu@&-%q>;RP781F%!tT+=;f3BJJ_HcfTfsuO?{k
z8K)n215X(F&QRRBdXUmh6jWOqib@MrgWF$j{rtRzK*RE-wLJ)+v^VE*6jcLG*$&iv
z8QU_bh44mc$0d<WuoW=IkEK*yeMm_ccT6E_y`#I_`CGtbM(w$`2{V28xh*Ag?S8N6
zrMedd=XVi@W&k3_&YUD@x!OcU2t{APnBdy2puD>!7CIR9mgZ)XW01Uv1{AB?I-Yni
zjIrIR2TG9a6UrCP8o{B9keG~ee8ZDyu&d4iG8?-%I%4D^UhQ0nJBpgD0V!eVo6E|r
zss)tm@o%I97Bp*U%GYte`QD-r>qj<>vFA9|K{KKV-jwJ6C{y#m3B!NJYicEDElv{E
z7X5JVqHFfeBd3yJl`oOLTnr7OZR6pWKw!obKfhdKAno&Z{)i2pu&M*-?m4IxkEfVA
z>Oe?iMbmXNM0*W@1n1Ob50mdQ{f!)6UfvnpwVP8+4NPl*fjJ}3K9l?%DPj4J4;68E
zsBsC^b~+%(Qzvf^5<PZC?$lSIGdkPSw2_1#*=h?xQS+!Pexkq1biLzCYT^;9A$~2;
zNMQ7Ce9zYatUx&v=f2?R14H7|nO7eWpTx{&)>4op#*3=K?o{62vRfuh)JX<~&P8aW
z7J?yBI2utnUivszXSil~qi#eThy10tk@BG7U_+t_Hb)jb2Fsibl+4ZAQF;834UxC>
z(G_EapOu!B9LMdSK>joq4`3-WS#PcikxbY*px&Gyh?c>{^S~`A$rQ1&R+CZ{0u}5I
z*O9CYkwJ;%4(}$RHf3;z1#|02e6QZ2MQBN&YocJMXJ%t7KY5VS&);7UI=MZenG?*j
zeEG{ks$8uH4<6`4DnrT<?FA>5Ig8Y=LnhO#t>Q6Pe!p$tK<rIeEMp}2?6kuiC&?cc
z05z`z5gGuzU5`_YCE~9PKx`!%cPj60*e0bp$WQ`fH}Ut2upPskbR4eAD5L@X53XzU
zzrH+m=7K1ER&|m*h($Y93&whWfvW&vgthO5Ery`)c=qq#Uxc6vy*?0Y9t<xOXZP$0
zqngi>Jb?G+-%V#Z#IAmDeXF;-O~U8%AV3B5mWp~6ZBy_tv2aLd0ZdjxRZLjj;nQw*
z=zyLnZ8BKI7uf27DDi1PloM(k@rZCu`)9vTXPCdWd8E(aHVMk9O_B#$K(C62#e2Kw
zG@nk9=i4DMGy>g5(7WhOF9O-yn!sbR;5-IEiOu(kts23Sq82s6YEtk6O3~Y&VY~*i
zbwf@t2d{N*ClmwcU!9w#;KKP0bbyS5K<WiU-1B?>TpxBMV*pt__|EoNp0GY1ZM@!`
zlzem94Pb2wfjF2z5J04Dgx8vQEw~W=AJp5Uk1!{L3<?6I3c^!ScXCC@4~ArZa(F_k
z8e7)#Wl_!;GU#6TZ~v)9#}kn=>*@OA1e32UoO;x6Qaq*c@r6fq@r;MfYRKSkhQjK1
zkfhN8F<J?Xe*?UX5d`&XfCm?eT@U)F5=|53Z&p{}XuncyOmZ@$INj~*d8{w2f=U1o
zBaJ@h9a@|USYp>wTvdVml}?|LaeGR?z^wv(1B+93!i2|ncB~_Lpf)-loAeRo77AIm
z)^Plkq=*xkpdOz4>*wPwUa+HoZXr6rAkEgtDqMh<RGP3vH~((o+-3It?KQM5*+VL|
zLWU4`TSr0h(-7bEjYM6fK<UQ#v6|w;fE&@-Dfu2x{L0St9y4bmDJWk3yn?2%=bW0L
zYSjiVxhyDz7p`%w-8J_kooe*oF3u1882@|6C(Xa#rQrYa|3BmU|8hesE0Z8aPHB0$
zUwMy|6^-02aK9xbPe}myAaO`1k2t`AB1bUFv2WjAMyJshuM#a-*Lti3naJp@W98(O
zy(vEH>*I6St?)2e5VeLUH}N}!Ngcf_Xr6;XR@_a84evv64Wv@=SOB-be@7`U5)E@?
z@X|i0CwCw8$%9l1T|~+kRqTzXRVkv2<V|Fxq%YA%nAsBY!#zB}*EhVPqC(sao91$-
z&yOd*Eh8DGmSw?*a4i`l{3I!~RVK{x7F9XRNnN~{-u$g=g7{KODy8|`h)sFd1aVj3
zxbdBzsVW=6;2q529yb*ur)fV!So<~l<YQ?Eoy`rgj;>AUA^7;8Y>xPU+Z6ntX;=7P
ze(L{2zps*%6~)9)o1Ap#WqT9{GA0cP)ySz3W|#<r=wQ|Bdr4XFAclMuciZy!A}ww;
zlkAY!BVf@ASa5(96n+Fk*2x3E5eKb&Z8%OO@yGR-km;^m9PJv&Zpk2qfe+QtSmT3!
zR#e;50I4R(BM10zyg+YiGUA-L+rM|mEo3_S(E$oyj7eh>3?89>nu~}lBRY#<b|kte
zDG#1}1tFV7Q1Q<vQn){^W&TJjWo#S=<&ukBR$eZB^Tgku{lj1&ezy_I38SscTuukm
z$pins$h)?eKKBl~>|ox@gL4j~Xf|jse;*&8{<nXB=@93iPL|KLki+;8S@-L7PuP*j
z;3ON-lM}y}Lrr|zH66jTRc%%m8j(C;_0I!Su}{$tg*uw-TihjQVPSEXF(m*Q0Ib)f
zgL})!^Oh0f4E?-$vis&q5*g;ZGu~Y5pCe)~k6C7E2v)9`1_(vh8eQB+P0e(C*J5W5
zBfq2V=Z9ln-xXoHEiGl*H`FwfQ%D1YXWid(5%QeT?vm)8<^q=jepq6`&@Y7aZ%QS|
zBo-<(azBdk@?ZzAJlpbAGN0w8d#FIuos<dYmdpH0V{AhCLe~pzFWmSw>i$HtK<Jko
zp8Fx5Xif7hKr=#uBKec-=Z2dikd!YeM9EZxKp+Y;*|!wp-BpPryXnq8uxY6K@`w^=
z6nlWT-N^Rw!_%JJ_VA||47;Ph?ay2Q!Yv^(S;Cmz8)S0!c?TRuRkr~fG7fH#!$Ver
zHYi`pR0h)KZ`4U#6o3sP{?)5PAE}z8B_tkNKk5Ms(PNpl>!6%&g_8iY;Qg%}My;OW
zZvXfo&$7X2Ttq{6%92#w`CST|1%eE7tS+eyUi4jvHrQ@4&<}hgL812a^|27)PFh+4
zwp!9LE-r8N1o30MytN0c!%(J|tKa`ce-5{^c{GjoBdsLFgcbC^7=s%@ljrU4>&+u1
zp4|OfURjymv*qDfp4$`djNxt;-!Tp$VfvjT`<QYvv@OHe#rzmfVaWT{u}`F<!_}yu
ze_o4QeDVCZxtx2mk3+{MOrpoMv|EF4dJgdz$gJGmgn<gb|D0@lNwo#N7uMSC(p-5b
zkl+6NIqmpz@0ND(HbfIN(LLQUvK!JhVUH)|9l}XXw3GpEua_X^IS_v)ZmG3?FB`Ej
z0dfrzv^K8d!J^xPD^GN@{_`6Yu5BTBTZl|V-x6UJa9*0YK!_HI`B=o~gpLA2NLEGD
zntG@4-xu9fJ7vlfN|<p85unYg_TnSTf5V~dquQVJ|Bh6+3A4bzr~H5KD2BgR{vT=*
z`#)FwXSM#b<1YRSukrY5Q_fU>%;4f`S90ln@>xmoyQepEP@g$mqI@J?^2&+#)R$X5
zE}#E#Xmg$N`3;G69(xpCUG~tfR(p5(mEzOzH}0-iUGKlWPje*Y%DBoWuPxFIf%D5g
zygFy~&+7Lw`_YDa-?IFwH@e)q7@EVB+shla?Zuuo|Bf^HFZiXR;oEJ;X&-+%5?_B{
zn8#5$Lq9d&?dsMoTaF1-u1q~qoeSgrzM;-i|CASJ>!PE|Y_s0#yw~zRnpy3u?0X+O
zG|Ln?l(R0<W5@mo`7&VTd+paNAd=UwyMKO2|Iu2QxhdzqT4J>a*FDX(6t5_|#>|l2
z;ySsQ8PH%fh&GCkoP`F;@k#&<zLBWmkW)5g9k~??>~iGD5fXXBh7GV`Y_&Y!yNjNl
zGq{qOob5QD0w8)<gUa)1K)}A?U2!B<R;j&@&%-RRk5gl_&8eteyLN?xLX~9Qp;qy0
zk?Y0TbLWV@g+Hiy>(;v(K3Vr4JUGVAF5~+wEG+rw&!2}>bUCT0s0heJg1u5YrDfzy
zQi-i{yuT}^-n`oS>v8D?v|c^y)M^s*qN8*>)^YB*|8h`_>bE;rEtfYbu<m$Nk+Mn?
znfrU8phH;kZBlP?U|8fjzBD=>Qg3X%DR)?`BWpH9aiKGRznBKcpCzN4|2NwI7u<UP
zrO(~}x%uBo?!U^m{~cz_puZ$Trv`y14SrwHWhECz1wpiypFyn;yO`!%>A&NuD9+VC
zauwj>x`di7VSEAXPr5~y1k^M+5IeQNvn0gp`&)lk3ltO|?5vOcNWa29*p`zC$5}Kc
z;*cS6DN0JZ6HUCKp-Cv7;Hfe~*U$k`N4vM>|Aw7&b&t61BErK@=#}k(rg)K?n>$4<
zG35$7*aZdfSH$oLat-8B-OQGI8XSLt2~C9T`dpP-j9eo7)(+G`xx1^e<KLfk1#PxN
zh;$HSXJ>c!|NC86i^0z{xhhjLjoQ+_&~0D4ySvA8YAY&sTZdu}#h2^c2^m3_dX@T)
zJJTP0xqfYR-hC?BjHkt-yLpDL(d=s3DA!l94vUrjZc{rEkj+v-dl<ZZ93u;Y<p8>V
zzJ`er!b>aww~8szXl0q_TyBpE1J+=?4rnsFs`dZhk`ZbhIm3RwY6dLEp+nXST+FZr
zpoOS^X?`jj<Ei5JjAA^@t**krGR={~{j=IVzitwUHvMAA4!aPH?eOzUCni*lwyA?u
zPO@wPTWdG+k#_(7SYO{=5oHP7$V$j<@&ozre&-X7vuDrl*(EQin_k#CZtwgdHD&Re
zS!TSKi^Y$iYtJ37HMMK&$7b<cjEFhg*3oHfy2D+*lB$+CdToEjLQX(ICO$hZN_Jx|
zG95af8{piDg^oA?+H=mR^&O;tyO4l@fM^I}?e07#iiU<UU<r=KT7CD}wvTf?((0C-
zJBcP$62U`ZOwCRrt?u7HK)<?xoagU#OEXww_odg{T~$XP5F6nNJ1E1b*sP4rTed)8
zc|!7ks0PCPOj3;TdmA>}^dZ+}l~bv$7sA8CTX*iuzu9@$=<YxYhHvPmHr>?(BY8Se
zrEle-?SmX`$B75X%4pI?#~<b2X>F%9<)eMSrF5F1$>xOhpyJ%ye>eZ-#=5}62S8q|
zjJt^$qIH$9Q$l@E`lR`HKUu4V^nX<6Zyf>IqJ<vo|Na9l{9qBy?3dItZupQ0<10ax
zH0t%C$(Uie{{o-VzYK<Auprg=bMSI{nJsJ~*jB&)Sf2^mOsH(HVRK%ev;FUPW8|!_
zZ~u1)$NRlh|81xp`M=1Q4>sofUW%A)P$qT{?^>#XLUuI(-&=cn=f4Yc{Fwdkg>gOe
z&`gtnW;c|=&V1xVl%jF{Z>8*2`St%+wf}p*bag#-kdi3Hp|sANEC5^u#a6R!r|>JV
zZEQ!5oCT>@N7xMEup59yfw~#N#(Jz>6D*JqWSYpYFy9b;=?JCoAq>88ci;S_sA%xc
zCi*JEtk~MBaV|qg86iET=?44|6GrqDhwRSY`?GgHEJ2otLi4K{blKSBV-<nC(7uB6
z2?i}0Q>0`dgVth-1c?kwu`(3JwkeLij|trll8g~_zXLqFlBfANHM12jiOxqNzL(`W
zLq#Rb+{At0f(Z+L9?lxztk&rk-U#4oO!-<A-bwL~@bsT4i0eO_WeznNgejqeunv-?
z<rGfa!rWLg4D-s6$u2{&!$*)15%KB}Q71Lnw6Y+(zj^x9WA*$9h6oZ-9Oi>fb&qYK
zJ`-z!YdHbG_()q$qo!M%StB}F3BHPGY+tA}caDG?a4`=##CVs;AGKi3JSOcx{ym0<
z@6&r9ziG|IfI|sTD_A&U-oX(@#<nS-_j<TMAna>H2%CFv_V`OUqO>7ANzLyqBA`t5
z-*UoXuZ9PbM8>qcDww`lZ!j`5OFVk?NJ>UV5wsWb!`PI~U^YgfY|L3t;kxPHb<jm<
z@r{I6Ci+t@Tqsh$=oV7oY@PW6PXrSgMC(*mB2t_?6(fmE&_itZb3$PvBIB*K`do<U
zf;L}=?Hw2nr35j&5!SLY4ye~mO*i<@U$}soKc9ydKqwvxu8fKfwJ+0I1~pqxj4;At
z4q$ql0%$RG?yJ6`uT)A*XJw_mmx)maaG%yDX12$blt?m>NQO9bXdAAB8Hf$<gXYA=
z+=~<+>Z|Ylp2_(m6Y~PllF!P`EeB>b`FH`uN#96xPGF;Z7arHRXl0d#@QZ04aY!7j
z%*;_`rsz0|g!zH&3n{I8Dx(|?=ftGQ6KE2%Og7NdJBEpp=s6}f0$xfYqe43%Z1<KJ
zGJqsI;3YIV{=OY|8waB|-iKq(9-0IuS*4->-ZB|uRJ4eZ2xrgUC7R&87uy=u;y<;}
z<nH6rQp7jGLH}?z1>%7PCZOG6OawCkV_{u+yQyalMOnnA-xc`>^WQO?m~TMehq)-K
zzF7HVB2yK-^bRh{Utn}#A`@PtOC#vm;~;x@dpE+Q+1Hq%Nl5l+#$^)~)gq=AV*DZW
zWB5{Mpu@#rd2#aV;hJhQ#l*7x<QnL)!b!Y9Taa!aA)66RkN&{|pyvt0FwR^pnky7x
zH$+~??p6_Kw~Ijc{0urQTi>cJql@+^-N~D$u`WvR6{9*Oei!t0$VrRvvnAUpj_>_L
zF?=wGq0l!HT)4x_j<?s&RfdUa`=(*`6){tXLoKZeu0o7(l*c@UG^v&W<TjEK!hvXg
zfWJQzS#(BmrW?euJqCYJ@7^5&AqW<ibDf=?$kZNQUJWm}b%;09%y(2pi-mRO5a8ga
z!oqa49wBtaezM1Uvyp>@Z(C-ySF&6R{k@;a1O=LHJC;;cby+o0nJ{Buv=Bhx0xTWG
zl*e<%GsU2cXS`jO&Jh-UEX5uM2Cn$}IJ^SikcOdUO(FxuP3ymLy?|gned{m~A-P-_
z4@*i~`j)rL@0<()y9TDt8NaY4aX24r=h9|+F(c<$x5EdA&QBZ2@<17A^-XPJU0UkD
zAjX<m0UjP4KLJnAi;LT7d?Vc0WDJ~ovY3vKhtpEaHw_?Yt7*Ia5C^%2%X#9lWwHwl
z=Dv{#qKa75n5razm(jy4@U1EkH-on%`Oost)}32;u5KoW7N>R18!28{I(vW2fqIHT
z1dJv=-OCEvM8Z2g;s>RUtU|YM4kJ)%VMlldhy|J#1K<>h=}2i9GDx%pLBpwsvP^i3
zyhmUMXD2tq6?bVStB7I+4QY9tT}B#BYz!V5(0j=>glWJzrqy3Vr(zThIjuv)1PlFd
zp*ZvQ<#Y*BZ}PM?3pt28(+I|9CHoTg>SXJk2Txum#+5(_+8$r8f=KBb373eyrat=Y
z5iuQ3x2&PC>$CmP0&MPGuzsBq-D_^*HeT89*|SH|7Yx73o1Tb>2#n6TG=s@6#K1Eg
zlo@oQ_QNpJcy6aiBrHX@9sdb7Sx%zQQliGACR3lSN-0|rvsztQrWc~eu0AVoblg7O
z?LpJXtmUd1re|K)(eX!g!ApsGg}#vpQPRF}U&vphgJaNt`rO-*NAW6?$Oy!B!(R*c
zH>OKy1z6;1Q=Fc;>JGFBW~c+(mFf2A26bxS&jqxrGx<LZYN!9ytLCDp`0UcqDg<cO
z*tBRPrBBx`b*4<8bIro$hSDbGl5|kz`}KGI0K);KM9fW*H;NfP5c>K?verHoyP>W2
zA{H}J`6+W&hte0y(i6+<CE-mGd}T^O!HVT_KyL{hT#@4pzc1r95#i-~&UDukmaNeM
z<a-B=qIzkJBmF9xNX(s5*3fuKB0M*<sb^ym(S4omjs_(Y<FUxZ067vF^&L{b96m&N
zw#HgS(F{EiT8&vK;>hyAyW11%_azCkIlO3wK|y)Mn&Lxx#hB|H&VnM6`1aM`h20Cc
zp*3oErq{Qn8hASh^7A)z@n8(63lkaY-JDSystX3k@jIk}2m7?f9oWBPtc$d78YVau
z2(kc=#No08F^Z9rUO1*;WhU7-vM<!(Yu9AbrW#_fEY5$zaWPB-#69_wh#dW}Ves+i
z&*J17hSgseG$HzbT0-?n3>c|bTSuWWL_@d^!1KZMl1*Odyr!-~<Y?!acx@x3D?xyc
zEVlqOF3aK$EZqWO41Bxz+EB$Zv7^ydg>{ECG2McU9T-69mS`aZ1DG8E7ETdrs5APa
z95gOqk@$#)hc|i8F@HzSti%mE6Kqo^@MSe)s%^3L`-eu7aE>EllgJQTql@))baV*!
znKWx#F~;Ng{hn%A2cJhBn(+a92t|vqes`uTD<S+4{Q+ntCGuAl+AlCgst4|RlyQV5
z?N1nU7SsJ*%(@DVzCY(n42km2liRj!8=t|~gO!22(KR#ZTT()mmESl|*o8^+bTlj2
zn8b5EVb*$*Xna7yHJyC}p`}gaM!9|GgMC&D(?-jkJ6)<6y@h|K=Vcz=q9J11fhj=b
z8eoe(R8*bTB1CkAiw6g3kbY}K0@6fI@ibqyvbG}}yo0S-sW2cB({5v1b76BikHxA*
zsha0yzMW$8c3YL-TekyjCNT~X9)Nxnb=19cBP}YMC=XVl8!~Ydz1?YmTSW-1DA5qb
zlZiQscz6iW3d;*KB4&(8f(ZYENXuCh_D<K{T{&StZ5SfvqUEyK(t%d+oyXu`IDGgp
z@{RKK>)~3rd#EvY$q+b|+Wt#+gU`#C2?T~CMkm7<b_iJ_CgvysVSo{dPeBL~X+W@A
z2Y#Yr*<2<0x;c@e(4psq`L@7AIeSn)kB{GEVrDij^<^U3V4Ay5RjD~qQB%JG0A#~R
zDWb6~K{=ing-0Mk@D!uh1d<$S4pMxe*&AIuknm^+G1hjG)l0zN$zGKfv*TiM8Q=AO
zv7b1hh);f|xUj`uDU|*(!+kfmoYk8!Y5Bs%a}Uh0xP(M@vMI0Txx-y<>p@;uPW07(
z<a{l4{rYv?cUO>$;H=HM8lc09MHpqV+lL({ARtget+b=jtS8B4BxRM=;JE{sjb|u?
zN&ccu`K&H(jr`ZHT?0JcYO`PT)U966-{ld{@AAmEdt!}tzFMArI$>-ihH;}|jnd9Z
zMJ+}55xvWj#WET^8{qlft}Pa)g5^sGqz2mfpmURwVzW&8%nxh95CRC(V_q*1XSsfA
zEUb?z%YQ;hIpHEeULurBp6s1Iz_P@EsrT<s&J`A3rN`WeI^;v_2G;Ez6cooL(%0vL
zMZXO17SXbX&EnY}PHe2pZU6_^{TI;uUIVwoc1>G&T!@}iU_hRSCLGq-;Dnh$5Q82T
zY1e_cN6Sda;%hr>ho}T)ljG&<T?Na>JG{VNpfti>@FNlX0tUw(XDTiX|0MRzV($t@
zM9C9{3`A2;PQp(@ad{naZ?Hs2VVc&78=zhkh}j`OySipDKb<B+i>AEuW<RK<#)|@N
zk+6rAUVnEKb)0R7Qzk(S5#yKqST0f81X5f!*iS!hhB?uIg#jdjx<O}W6;5E8ll=e1
z-g^K=nSI})t&XT8h~pSRU>reF6c`m0B$%}^5CobG21K%iCMO3KM@6(1F%VQF)3kt1
zP7W#p0wST2XdpL9a^|gr&hMXI-Fx4w_v+TI`dc+MpwRvG_nouP+H0@9_6W`!XgPG{
z(SVCJIfVY@IGpMN+b;cqTLYHu2G$&mXbG~*uQpHAAz=e8h2`$4D`68D1CiklyDtau
zd=8Nf^4DMGK&UVnlSd29y~a$6n*Tn3qt5_v4Hb~k1U9|`x{U!^Ht(uQB)j`Ws6tG8
z`}y#r-}#ZMXuxWiqZ>UhrubMgK8svL++DNrRLwtHfGS0_dbtM_-xYH7hNg?5QqblK
zU9kW6n}!SS+>$@95t6`C#RhD+kr%H|+o=ZextuwDy1pWg#*)ogOFkC<L?`p|yTE}+
zF-KTXkQ<tV5{r9=RbM9hyuyoT*AdQUJUpLNaD+V_=u{YS1TJl;z(MYy3W33l8n18b
z4*|=bz%`-KXu>R3^c?Qe9T~*Zt*;;ikUM;r8hSd&r!ZXd{f#M=x>put!P@+SYE)EI
zW|SYFU~8!GPMcsnhH$(W@viIP5IwA;+>hT-GrKI1{Wp3bGNYQjXFQ3qCZiI1J>rq)
z23;?GtlxBmD+zSTL8v|b{rA+)Xb-J%9J-9x;63ZY-v}5N`}px5vPhvsNOvWf8~kB6
zD_pgPVwbGVDhru^e|vggN>H(dg^g2nwvZM~k_i*AgIt2N<z^`SxVpSdi$yN14Wgn4
zkTooR6ZzxjJua12_(U2YK%<ILk^H-{+2o&mYB%&(CL_EQNy<C`tAf9ogGXWZ?mkJo
zsapJ&Q|3QzD}^JUFOoD1lkkhtYuLYkq7OAPk>cNy`0*~3frV~)?$eX5BaTSx|J3<M
ze02Zlo-=*I@{UJNL?zc-Ciq2AKj3^^zU+(Key3e)ad5wYeze7_8)Wp)&;D5xX^}rI
z?|V~Fkm*P3dj>?W#I%J__Tt@tUC!Od{N=v|^1LJ&7`D1l7lvNU{>j@hxAP_XaT<T#
zzXRQK>S$VI+y#h^tLjW-zCNvvgNCFp$iwy&{rD9hOO3q!I}8df*ctO05mb1R+<yGa
z9<jMUyC}*5$CStYLl3%`xa0{63R(_s{^x@WS6=gr|K}Tz!+Ep9gN66=KdV6#T$yUy
z^z#6om>6<ru%vh08(=#NF(t88o6wcKNJ@$jsy~6bPn=eq_O+{5)vT=I$tVSAl-!F-
zN@ULNJ{NfRt|)#VnRZyKmLEj8h3AsT=*KK7CZbPV><Z6lML%L-$+-&DG%c+jP4~>y
zIxQJSe35;0oItHA?v~;@r7Z0PPvbR82Yj!C9s%3LMwdi4{Ocg4NB&K-cJBN1vUBt7
zb5lG1gD1+^cU6Ll^cZ5jgr#5fwyZ1(*-azu^l04L0kc>i3mqhPp%5Jd*95vxK`IDR
zDiEr%i1P5m#9WMca6%KC?UQ152wEw;(6Fl!{X)p9>FDFV;qvp70y+i!@;`r5(g>Ms
zm|=IXjlVe%ol$n&cA`%&eb`fL>zrO7sPI>>URiGYgG6K>OMhHHI+)@>c}FAHRAT=-
zMu=;sJn>-PzR8KF9d|dK++kV0h57+5aKMREDzIWzKXBj@$R-k)!BB{y$A4$;m_GnV
z6zTY2S<j)UJz6c?*V@|J8KpcG0~V^;iwP_XOcIA9^+x0D3jOUZN#`IhR)OIH>IdIq
zu(ZnI07e)nQYS&z`=ILtLad!%=Kl&QbZK*3y!Q5Ne#)Eldo0iVf=`CeO)l=Px2}o}
zMB5Lkq0AtKtw4ie!uaeSkPd>kzY2r+73S9RlQ6Uc#gec(`H&N{W)p*TP17m+(zsM~
zXxzPjznwk}?}G?r(wPN)*+bR(grx&oPN=sBZe*04I|-5o)InB)Er1;eFc{!PDOBfT
zg<xfQ602}hEW$!CCvKGEo87c5nb(Tmu(oX8`~g?x2m$rxZQC>!En4(&yBRU)=UXE<
zgk+nPM{tZJ;AkPi65i>9aoWZOpLcxOrII6ZJ?U#Ej2tv^vXaaLKwuCl6isJ(^xIeT
z6*8c`j{yk<T1gd&K-^&Ve0#64I@wze5#W7r>($6PU`>3D(b)I=gP!4yEa8M^uAJT)
z?-3@e+o`916Lt+msZ<T5OjfdwCfe?(D%nX{rq;1N#_VClcm%!a8fVWwgHAsh9;thg
zIe9TFBIE;(>NX}!C2<}qbJXcgGdD~Sx07to<HN%y?LqmY*#J?w3|j{i9yEbPAztj|
z$UhAa54?5jF>!8Gbk{~2sb%9176Xj~#~2XCi{_^EesPo^f-$@~;B<>oSy7P&NE>(^
zJi)mRL~?`y+EE5+0?8tQYb%7D>p$CNBTdq>vrB|^hJMcwTJOk%0CH|IGS2nNu4Wmt
zE?xSGxULG1#Ie}gms7t<NEu~C<1YzTo2o^|PV5s%K*2-)`Mgyn@*_3e^(`Z{*vN>$
z0%R+2a;NEmmf5ums&f@@P75#Qtd0atT#jCfqLSpg?w08(bef!;<=e(d{D4-R7*<PV
z4{BU?n<tk$X)X9R-5y6EVTM2ttf-aLdvOGKYej9EX2Fo!J>|COozp$~-gSZ5E4!TB
z(;eOp#c#=MNC1nlSxhX#pbmSIjDP_VL5KmkrH5~3Rmd2I6tt)`CU|n#tz~r0h7slP
z)s4O*aMiR^b#8zEvb}0{OIX|nU_8Pg?OHz7+tG$d{eU7>$H`12tVbEZYjn7;%-76E
z)*=J{?AHYa#3&V&s31gY8=F~IR0OdY^oV4*e0!Q%g3ieGF@tsSp+N8*SU2i`)#znO
zu^%A55^&5QeowWDXZ&E-rKO?q6y7nNB!`9`(F^`(g4%Jp<fKL{h{h3CR8(Z|CkDDo
z9x&~4-y0fke`T51@OB|(F9V!XK~l!mgkq%<A{1WnjXq8JRX^FUou{}G^GM#q#_I{f
zKR8uTM8rm><(@0{=nlAfhbXve-~~`t8%Lv|D3#dx5|g+9?$F3&f2#FwZABpGh%YC4
z1G#7*)1XrSLOwv~ablt$n8NJgzI^LY+2qMp%|yG-acD?{9t-2T@Wqq^EM%w*rHQWX
zNbAHwYQoZp2D%lbCS>0)Kw3?KiE`r4Jy}Ipk#P@;{n<MqyfbHJ&FenlEW#^7%qU9L
zj;m^~T40EyW4VCd*0RVrZBr3V6Sm&e^w}vrt>OE1R<dCQD>ADCJ>~6mbncrcJo(dP
zm0IzGZl%+SI>%@Z&jYhLmoHtqe{ROETf4`i;5MoL87wgM=3MdfTaZorOL^42SOHRZ
zF)Gj(|9QoPCHsJ`FYtd<gV(n%WBCRC=df(=BxQ$V$8LZ?U4gVWbd``06J7mpQIH@L
zHjuP7WbeZ1%tR7MMg(||6&oWb)V0aRArL5vNi^y8GsOVQ9ZRkvyu?65oYwY(wzR-Z
zA0>2;qJnV*Mc^fA+TLq%4@r0;ZOUjn4L7*j7)O)BeIzTwi)Fl7(HTc&OQSOMKP2R8
zVi_ST?!Z+NALzNYZ>mP!*ZS{TiA7XtJl!9p((4|eIDCJ4vQ0U2Mo3sV0W?CV^2}HO
z>5)JPAyi7w*u`Mu=@h<Z10el!d?Zu09!cwaHd)|{`}d=9afB=ruB(1EWKt>D*_*@H
z?4qK4c3-3L=?(#lFJP9m0bS}@ewQ!DAPG@9aU$V;s|7c{a6(gS%uT53)l`}Im8dO*
z13(2yj7pL=93bV777|*v;?l{+OINN`7xraGR$g{^92q#Z|Mj`#`H9P#mfCA3bV;?>
zzN1g;ZdqATX&{KiuA)mhp#fFyU9;IM_i<ORQL<8dT9Tc#dZyJ6Hn-TPnphO7Z02+E
zv?FA#{epd=F5`k&!;xexNBvAAW>{fKg7*6|r00!B+98y8ECGajq<=@=jeb)O+F?mX
zMC_njYO`<(GM*Vvep%IG<m{hF`up!KwlqNZ33~K4n4{=1ju$BAQ~qqroW5{b8=J7N
z=3k^O+jGJxH}xCHI5*zELecJz+Rh2gT+xQRAiL3bO7Z5Qwb$X~(H$#dL9A<qjYUwu
zz(eZnIp4PI?O2O#-Ja4Fv^v<d)qZ8y!x{>~UmUIRXX-k0gm1_no@z+FxV9|zs=t3A
z@e5Lg#~V<_P8rv**v-bQ@P}z+f8Dh}w?>c82w4EaZtd&BcmASDx;!9SL$1G=k53Da
zNQ{d1u^#0=)nq`{TfBdK@!1Evi~o*qux-cVlLpKjT`fz0hp_8wxGxZJ>+R{px1TSp
zR=VnKxN6xl4Vz#lY+rt(Y04O624<o)dpa&yx5pD6MLj0qAUJnVnd|82q}$GUGCbRo
z685HK=o!{Bqj`Yy&Col_ecXb1J@t<@#r8uc#OR}e-#?QPw{sFr#l_jgV2qrIFyc!s
zn(qs;&e_{@yhxZ%NHx(0L@6V#@U9Dw!Ni4QL9Wq`V;OvX0*;Eq-A0Uz#6Ptohb`db
z|NS?y*&;U#MoJgF7pfUf%8^F_sA#}W!J*~uF@+|EAkFca%A~nJj;t@W=Rj>_r(`2t
zRp7~zu~S@4zd4?1J5MfD>l+!8hPzBW=g2wfzh?U(94N4V2<8Z9&`#bNiHYqWl8^ms
zB21lkMsWJD^7w67UT&ol_puXUO4frLX0ZbMz}~&)O*4DuxzgN?cZa_!C^)JS@#N6Q
zZ|e;A%Nuk6H#1b`E#UaNB~02W-ft^fU_y$-iHV75ia|?NR6Q$Gc%KrS)PAmW@HA=u
zIYrUV^SxW^yEXY1LxJ3R_B6^DEZgIAYY*X+;<zU4iQMp}eXwnpfZdkZ{;h{?oBkfE
z9@u$nptvdJVz5L)O5o6|+|O486>^Mz<@l<%Mdwb)-ukM$0&wU9daUCx-Q_$|CAan`
zeuG~{W^_=1BS5~$kY7vdKYV0<7YBQLVn{|tu#BVDFhqXbd%Pm-Zb%3dyG~-`#;6ZJ
zm~HS~NBirKR<BAJ4xGO!bP_Y>0yS$ZVmE(&p4xamVJ45Illau&x2}#h6p~wNk#3Mt
zYm8@Tp2N-$G&JVs_H(B{@Si$n+QfT-Q0mVAMyW5TO^i!2dADMjq1*-=df)ete&*e`
zJ*86Kbv*V7X|<us-i?;}wl7VO8}J_r37_t%+jG-Q3rUGNcpv})4yYv<c+3SMsJ-2+
zl#HgKWA;K=H4PuRQ{z_xJcRpFFdGJkzq50$q`3HdJUCP-SfI2}M$7u=gQf|4EN@@B
zA))V09qmbWIyzH832uxToU?bDWD?Irgd<zxNQsCso1ticga*#9geQDJc8>vnVBPam
zz8ty@G6@C><g4~u4qc8bMR;cwd!YU{$2xy#Xg~sBCEc&<JlKjob<vxR1I`>5UTpl+
z4}|=>Y8YjnzS?0JO%IK_9bY>yytI7J2vfPBf`&LiC?CRvE4mM#hn*=Tr{nNzYO8Rw
z;IcnoC(-5dsp{E<>&1opr|A6pd0gmPSfVjF9F^F~I$M5V4NN?1I<u}3fQ0c3MNKX+
zzfx*|zrPmBee}V0bs+^8H8S5xj7sK*6tpbhUHz%C5v6;HcV#6dRrTo(Vlnk68~mfI
zR-vlRct$L|gx&uTma{(quVudTf~bN!1iaR*hSh^JRRe4*)U;DRDe77|!UYc%R^}{h
z{*G}}@YkYLk`x#j8C@O&kjKs$s!7>!^Ws0tdsE@mu?^l=<n4rj9mn28(W|R1^H<5(
z&1}E+d5$e=&1k)toSx0(?;l2?L3FB5TEIKKc0!;}CE{}dk`l35D>-}t=ME-eqP8Kn
z68E)UOiKyiqNnl6#Kq4@42f#3h;K{{;|fr0K#%K5fcb&6B^=HK8rI3UG3p2OYjxOt
ztf|o<*6j?Hk<Wm^pm<Rgpray0Ff^7X@cIYXJX*OhwW^*TTuhQEsLnFJ-rVhor3owu
zL`af&Y+Cm{+@NRVfua?@hb52pqYhkFCOMs`ABcBv;}t0nxtlVsTReXGaRLQm-GY%m
zhBqR$5mam1Z62YN2G36yYyDpf@}dbU6ny*buGi?fSLo*cWVb5>1?c@GFPNF|o++E6
zs6eKHoPZFCjLk;#X!>T>*|Hw$WVc)bSq3~=(ylejDq6(+tEj=sUK{rX-f|4l+?o7I
zq}o&ziOZqtAvI*wFy3>M@JSp;-fiKc!1Nvx#34WB$-Nl<bd@vQn8V<9%8j6$euM#I
zYRLH(vbe-;kW`zHdyS~AGG*H~H7c%*FK3T`fkB@pxI(sBnJ{T`X=!b+FWyRYSt!)^
z(mlS$ktvSEwGZAHTK9M2q!lPz<DvK;Zxqy%#^`qjijQ5Ykph+#Jv<y_z6#a)4F!3#
z;2F1R^0k!L6J!M)gb#+bh9pW5w{9&Z@)+b^EYkc2z~ahG2fetWr<bN5rRmP%Gu9jd
zpyK`BBh-iaEx{-^#bLYSo)og^NIy0yDjMS4t0Goh9C>Kp;rPKEXe;B|dQUteCqEwG
zCh&gc<>k<vRKh0YDWsmjm?dYVc0#fO1*RwTh{XG>3Ko_CU06h$)~(x%b}-T|3h_;E
z;uXl&Nmp)<cc$A4_g?`n@d6!qNFNNH8zPX0U-t8pfXV~UULC3y_y~L&n&Q!jlY(f0
zqyZ#_L{0m4m4y~~`W<K9@DjNKjxffgcUlD^Is_}m9caQ%C*_Rfk2^5$!gH)8h<I4d
zOK76~=M9a6og^(lB$;(+kTS}hXy^r%M~;1WPga#D?+t|?Flltu1($kUdE#RkaaSmY
zt`P(Qn0k#4zcm2vRmk3AF!E0wf=Dd)O0>PRQK|%euH|yIzN&gtRU-mHl_vthYh9<Z
zud)68{hFGZ%h8jtQb3?nSR?}Uf{JR;YkpAk4LgfKI&D%`R(`wU!BKDr6TjO2uU2e^
zSN_i`He(-$=ts9Nf&dm5@VvOM5LN5tuALuEg49ie9^UnesHyM`_h6$g2*X=V)P^}&
z-dzq8pcdO<IKe@Xwgs;t{>e=(nMkTY5O?6?3i}Q`bV6UegqYYtVlj!R>T9^9DB8O1
z=cUoL_9rU7i+Psbf|G(Vuq>Hg+F~j4JG=ymM;p2zd;I$I6vzg{D}sI08XdQPe%92K
z%HTBKSa`G6C4q7=`goh8|NJbhMI5HNowK6GJOk7%2yBC;j5$h@O6=oDk5-_eZwE9r
zj{{CEECWblf}GNV0lJ;{`p00#!Sy&OFYiUzyIW<!ckTh1-2w9^Vg(Dk@r1u=Me0-U
z>=P(jruQ5&YOkEXfEpCgKXS2WM3q*we{SXQFYDh84)rIke!5PYw|wd9E9avhz3Z1T
zy>h-!WdDxJ<K*v>>nHHfyAoQ~35XUV0VI`mbb#JvFf<}y=X4SqPV3aEC$N=W<YF0v
z8V(uyV${}zP(g-{sm;5IL@GmMbR(5`ioy$R<qNk2t#i9*6yy6X!3p=8LjO}SOZpdb
zqIT{=P(bvc$<+s{h~#0IBB|s2(o=mJcUB7<i+DW(uZm+ogFzCIcZ^2f9tAkaqga1S
zMLC#E%7hY%nkFcEPLAdiyRBGG$YStkA_~SVzkByKP*si`d5<h+@YS!Xfbd5c_oR#y
zAlNAhRn&LNG|ZiBk*Z3yH4Z=eowVk`5Rz~}<5gYTvf!x_0A}WSv5&<}`rOeX-nJK?
zMQ;D!)~q5vk|H}9)_@Nqp`c&@^<D~LQrGPtRrzfeJ5VT^fuHB}{;TTbbP}%=fwzi6
zWt|R96?#Pv1^q+n)9>MD@lhKpfZs>bj(uDZL)N%P$FJ>;D7O5^V$cY<5(m|t=ilck
zS|{q%SD4Ogynlc7$Y5txtIOtD)d{Ykk_QDIKv!X7AQHN&agN7FMMK$9^ppCPxBR%m
zJt3wpd370d%MnLBZ1)TtWj!6>+tQ=pq2n#S;Z>jgkDq*8`m>DNWzr{%W@XV1WRoC%
z?uZf=k!W#5sie+?^JpEl7Vc)5)<6(HYKRu^A~rbui6$gU+MCslrcUtK=;^=%85xAF
zZhZxDV<a>ja#L8HzM2{bUGw8N@z%42w11VHMjV0i2a6<FM>Y%j62?9Q9vXDy0aOj-
zN<>Pt`ajmU5breMy+x=RkFkFH0pgenZK;;a(mK#<WVysuS^T>K*BT`rmMBn-t4G7>
z#PevEMMiuVqdFo$JCYeG+<tO9Og5lGZQ%Jt@9)_PH5St9$9i)c<3IqbV-NkAX#V4-
zMQ`U7dHND_)b@joS?ILp$6uQW?Byq3^a%)WkOUsWVbAOIPn8Y-xaR2-7#Kjr$3fVB
zf<|eRyFY%D5=lEVhlR;|z|5GW6b=1<kxgpQBe+m*KOQ2_jx7486jKp5?1RjdMhKX}
z%%-Umu()7K&%nI|CA&Kaa2s{E-0S?eg5?cV&$^v5NiQxrFDJhh7zJfQSB`^DO-Ss=
z+wTc6Yu{g;gCSMf)8pI>{8t6{YWvSUc#?xK+bu#B$#{MJ{2xC)Gr!(96(Nnd+zx>p
zJP%mh(n<zDAp%!`8e1VGw3UjEw;1VZ$sfOy=R9YA7UBG$n%Iich*!zEWOFh?4;dv!
zF17kB{#Pw(rCMI*`SRbL)9Rr7%7zyQXy`B?IkO{n|J<%#-Zj3QbIBkcsgQR`eE#QM
zDsTDBZN$J)6$YrlL3D`|ZwN)V!T0EgkH_}h|MTp-RC?jjp=abIMj1%F6U17ulGRTS
zgOA=+^G4-zqNf98k5P(lhN*ZcD6&=&MeqKf#(#e=V4(tiDQI`(Hgk<=!0x8WA07Lf
zsq;2(KVi*WOnJBYv5zxen7H_m;XokWsAO{yXKvsP(##CZ#r_f`N<Piwarnj^BW}|;
zPfngPA}l6Gs7@^h&;`06Q=_5BjfVWx)$_Mh6l9QGuwmuR)J=ZF8lTI25}9VP{ZFnU
zN0!Z&q)5m4_?=I~hyXHZ95b@bk?xYa_w0kJ?JArkFjgYdoXCK1tp1jfC?>fEpIUNK
z{F`=p6{~m(Ls|l7XPIKCDUy#+q9~<)Kr75pQ10Yw%Q{pzh?<*7ANS0#c%Pw+YO#L*
zn@@p6EzkiJTM3B-5h9b?8V2*-79}D#oHyE7BgLKqDmAke#nurpln_#!e26KyfPkEq
zefzvdrJ_;PM9NQ?X1L)ToJ}ZM)=+Jeq5{F?h%R0nfg^k}r|=by(rf<yd=^3!%7FBi
zPg}WU*c9;>g@_wY=a$el3kO}lew}E0=pbY|#b=|l+B}%=Zl-2H#5HLFj~x@LcL`PI
zA1%NKFua?)7dGqJ;28F@F1RW{X5SHcB!I65DsDD#t0SJLK;Z*vS*YHjPD!SnLA!bc
z;h9XhGIIGmA6hG#PEOJvE^!$NC{7h&)nc5hM#oHc@lC}^?AxCvb3_RtNu=#a9#PJM
z6__X))=FLl4-cmY&BoQcb1uce5MmNZsMH8-CN@+ce=X2m37xKUnKGOi$?!PbcPO+r
zJytz68#832FohL$3nJUbYKWuj6Fhz7h?<3kg}?K10z>eunHU^!9)r!sA<@u6eg`=w
znKgskiUD74>9ROsiNY7SId%p#EoropG|q`fX@eBr@cyi&kKF`)IUIT*5voh=9KP_e
zt$B1H$H3rB2br5v39;)LqRvHis{)!FQfDC)80jdI$jXhaoKKkv%ihg@CoX<q{xq}4
z(ae1A#h<QdEmga>`j@LeZJ4`l?wU2Hbe11n<9HzZntRsjdvW3Oe%}0B{!`xdPp>|e
z_U#hi{F}bC)$c)C3*S1e<4JOU*y9*Bu|PFwQO96oj8aM4fWnlhp_!|98&keb({qC9
z(4M`H&xKZ9S$TK;&0W9qD~*~UtNd#%{Pe2?lf_s@+;+oWH%{$l)MtJ6Uci(wQR)(f
zzC171SDaMG7+C`$y#_7Iem0bAzO|nrn%dx`pIgUO<%9gtsdU%Z8(nE%Z$40TcLGic
zy?OKI7QGkZuo(B!)7MW%+GK{uR%Pln@TjR7x4aDEx%(*AiZhwaj`sE=M~@yw0`$bA
z<EU}xFk__zw>YD5dN?&o{2Kh9WT^e{%c8M%8!SKAI1oC*dp;A_8Xi!(QR&-X#JdQu
z@D_`40HoC}s{P-KHlD?k^-Ngo)2MGbr?)5t!rox}qD{I<XQ|`@7CK>}sB{vCT*g^A
zICvVRq^HZl7uW8De8)4<LLl&_uiKDRQ5j^Aho=oIR|cbKb`Y9*JI2x0<1v23f6%ty
z*W4T!57p!tPNz`h=@aHQHl?TsC3o68H_&N}W_Y3%FWKF7>&lfY_|Y4}it@X=p6@@g
zyZc2vMl5B=CM$D0d1E=tAC5TVLtR~e^X*8^NVe6B@<TD2o1siQc2mAH+M~}`<QStK
z@<Pwp#XdPP9p#SDn0!P{cK{V)S;EW=h|GKwVQ(RiPKode3{mL&Oalgl>6PkL7>vT<
zM8(8xn(3FCVZ3?s#=z;L=|}IGDR+Yc!KTqSqEq}X6DRW_eY%SWN9KJX<aFC-`w2Pe
zFq&iI5@MCAUBh1}Pj#qH#nMfE(-TfiH6(E4KVSMa!^5M6D=<&m@k&WpF?QqKGS40d
zwj|<>k5U>s;O>Z`Le^C^8N$&w96NOGun=8yiPGpNqpiy3A8@Oo6D?5EuALE(KU^k^
zg&0@A+^Qw4lrsFpPdHZ68N_AelPBxK#@?B2gEQFVi1&;$nGkMc`z2)qF5{vN$I?2Z
zBhpZ*QSNCP8q1nw=Dtrp^($#1Qd8Qxbt{#D8!y~8RUY7_ncdh4KBpf-Pcv5ba1p;(
zpKsPkc5ipp@f7(wvNm!%yH)w5FawbBEIj;7;G;j8lNF7Pp`umZch36q$-YJY`M`TD
z$h!~;{4M;Zr)$1o<E_ZZ$hF>+-yT3_#o`LTqw_gt8pY-0<P;aUyL+CZ@Ejsil0CWf
zMuki)_5xR0POF8dr)SE?bB`uFX}Luk9$7Jv>Tg4x!8(B3Ze<3ZdMY+mS;q0^0n&m)
zOW&kJQzj)WZC$7264_!*t+|VU(gyfajA7P~Q0P%YUx<Y)c#(G@yHh!A{?-hh3_}X9
z$XwD^HEtah;-tdJ!fQ?Gd4b?b$GlaBsL0sc!%3L`YSR{`?Cr&9wzhTG&#lFN#&Wh~
zG-Hr@hqEAVdSPATaLQVTcYmaVShojp8I_%_2<Kh<l4_aNb@TUhFCv{d?Wu~xHS4K7
zJN|YcH<$bldBdv5^yBdG#q<%>c*Yxyj4j)<zSWXXurbu-v|4Q)f(Jts#ju)NOiPG^
zs0`o^r}TO?E1K<~<|>NkdeUt4xCwLOQ$-8WVD-M2j(z0O>)v#f;nCv|#vQij59#K0
z%BwTv1KN5U6BYWfx$2i<n5TAZ=1^?R%?puQ2cJ|`l)>^kJoL@h<E!8pq_)J?Ek%BF
zT6p++C;=T2NmNCth)lUgRh%$7{iZ#cXI5_-Htd|q6C0I5X&0Prz?e$Ga}uK_q<y(I
zhiQfje+x+kF`jMRs619E(3XiZ(H+rVmxA3qmH4!y{Xx0GQl1@0byKW#8-X9qQ1v|?
zp+Sw%C`6}5GInY!7Njc11=AmZO5Sl;*!65m&FSkqcI<ej5%Vl3M~Up?9)wma6s^aa
zK-Z1LrcB3k^F^jFFq)s;IiUjeGH^p6wzXEm_WH1Hf#}A{`FnbQJeCsKx-Ixro;JBt
z!$4kEd$^rz_fA}v@>qw}7<b$_%f$|j0X<#N&3=SZeL<zRv1PR8X1VSc75x}h*n<B`
zpuy2FHV(r{Z3gJ_K*mxV*zJz@sGoPVqyyNfHY}FH+-YuZtG}(snNBWu`>DS#k!gPE
z?N6`wqnsUyrWG1}$jlJb;TiH_);hl5s|)o$*<UFsDa#N3@%W$X*82JIdnH|5R*>zE
zE1BrK&|*1|R4KlnE$AkTkQ<NL)l>#(K2r=Wl1Yd*c=+()HVoGgZK?I^yeXGfEyimp
z)FfCV9>O*S;6@xJ=L00G23&iUh=c@5L96F`8MI!Vob%;R1!$GKhZ}l^Ui5b6_5`-n
z?DU!(B~hB1bm8;g!nS%cYyI&ZDj+QS8qaOs(~}zA`$Jf5sM7Gc7}5;v4lcoIh;t$L
zEi|`EpN5!)@VBd2>)L!f9a+Udz|3gC{^})^yMO(Xg{{c@79D<M4pR$~`n5^w_YbN!
zU;6dL+jEbswX@|`Q+^|>-NXlXZ~#R9PM8b2pe&lR&io82nXcm<Q4T0zMJALU)}^#J
z$1jAS)JMqf)i0#tHt?~`%jrGGaQQ){p%_(DIC#B743%%^F7VkVsKq7Jt$6PE__)Hi
zSHJF0>QRYcpvdfeq?(UnYDO&k5TmHGO9n@y%6Ijfn#OGWp!hJBeQ#F1dzW}wU_U<l
z(WfIO6I)G^q#MhHnlhhOi%}@7?T7yP+1XF*Yx3b4m5u&Q7olx`{-<9SBcB$Rwds3n
z)Bl_I|KIWwmC<^uq;;-6eG9Y10WhI*<ftdBddJS4W@r{KrR9!S=>^RSkEPoW9m{iv
zKBEm=Rj>OS&Q}4=Su`#^h=0+?wgN3~2FU&Kl%LQx&}jszuq9`c1(UZo?)x}nen}zb
zrD;q}fkcl!1;CC!`^%1huk8HW!&=|EjL)|Nu9wHvmm8iSW15mt8%$`q#*={KXnZCk
zBLgct<4V=tGH?dkW7x2d0*$@-`1r6zWa1-7YAp=&q-iNrk2PZMCba75yBcq;NYBry
z%MJ}aJjKaQ>RLdjdkYqn*VLpHrKfEv(%DYgvvr|MW*_jhqL7e~;fdWXcTXk(AG7eL
zwEg?{3kV2U7#=dm7RuNm(sLyojA3=gB_sFr>iN75vzuy>r$&sX3T@y50*vv)>EvD~
zR#cn%44t)Q;$;z#J&n6;+!T$nWC=Z9{!`X|t1@FF1MadbY<+&YB(mao9|rMzA7&n1
zT`ik7n4%X13HldY)P;9{6vTg9#%Jr2FPLQYF^O$Z{#NT=j=@+GF9M&r<-q*vob%9V
z-W0GkH>bM0yZcL=mcDB`Bec`TU~{0#wWmiAlbOYv0#zb3gvL0CQ}^!O6QI2^5iic!
zZP1Z>vE%4WRaF(!{=pUsC8Jg7<SM29+X3-*wcyE;!O^g3?-tVT<*WsSllf$AX(@5M
zA^)JEp&`DpwmxoYY3VP~Ddha5%Sd<Fx6~&|{Mv^~1%t|}Dy<0?nyYq9nKgAAsg{LL
zb3>;E@8_&NY_M!G<*{?tg8$i;S>L+B62M39%hmO<xz3J`qSPKJ#@5=uT~}3LRvP?3
zairdX$@#uEYp?<ziFS8)D=HZ+e?1HQ5q^&NW6{CsKD{$G&VuydBh2W16(I48LJ|Al
zvg7_s-1+aT__rAR-}mDG-+SR7OP^y(a=jfgGF2HjemR5U6pOwn8-Xi!2JQA%u(Us!
zZ&4JL&|~X;R1eeEHI^Ubi|fcf$d)v@FHtwGPovQuKJ*I*mI;iU>B?;2cDPo0H&l4f
zs|fmf#NB;jsrFoowEaStiD;lv1X8x-nOEm6E#t_WAT082+AS|npt=A}Q<8*h7E6^u
z#;hvs*oTP4jEg%8M5(?!BE~fh(5=doHsilGwBTa7_q^~K3WX=kCp7?Bctvfk9(UWJ
z8$j432$SRz@tGmY!W?Pj>_%U&6-6LNMCx~(fmt4R&xzRcJ?aTWNK|xlWYFdnCH*Tx
zWoKvq*9e7bX1D%H3MKoKqBsc^|Hqu?{~cZa2MF)Kqs#x3=n@VHWul*U;glo>tq}4^
z_qoa5lm@4|E=W5*0&$<je*Rv3q41Pk{n<qXnF3+pkfKB@4I@=*#W2@*G8}_DCr`+U
z5mTU3m&s<L_?o>kczO!$jB?PKRFs$BCOlC(QfvoIN+5pnW!n1IfuQ{r%!2I>F^gw;
z|J6IzZ}^mrbNmDF3r_y+gnvP}x&!zR=k#5KHX!L592?#}+R3Vpm{oZ2Ui;;jzLf`W
zOC+TIPPIqlC`;C}KF!V*=Di`J>40|}3p73B&wkSbKV_j$l}t2Yh<@}KD9H>aP?pM2
zp8U*j$(*fH_&nM1``kw4<D014!1+{iIL>lqg!B-7fJOqnxbH|;oJ3jQQ;={`r&oS)
zG6hXRWmH#Jzer7G{ju-_gV0Kwu01U_7lEPAKy_*kol=#Q1i?~jwb-DFVMEjO%55Y>
z@7PiK{9(VYt2g@R4Za6vH(PV&;?=E1Ni*7;14UUq1*V9T?OmD8Ra0qO{tM2k9`ssE
z@zL_X>XXW3Zl!L+>`|H0Wc$2Iu*lYV?tu4^z-Ptg3xpii1Ox>qbT_fI-sHrySiQqT
z`$v$7|Kca4Q96}+Lxz79olYOOz0{|$<OacTgH52Ht~_5x@wt8Gfaul`D4OUlnRqfr
zQ!_>3fB4lh{nn;e*UshP@B}q#bC>yeJ?|yIxq4~=C9hT%Hxaj9irWA8VySq$P%uCn
zU1fNC%m-Um&<qmanB!m|i%mH;o{59T6f6?eDEruJ7}8r9sHc;h7L|je7^M{h8?QGj
z0*j&3iCy1?&JjH!x@zwY5#^k5zj%~5nBN3>9IZjdAT8K*?RPxic)DDK1`aXBf&`t!
z-=Q3du{+rE;r;tt^lIIWROqcVJf-&aqH`wF?Jp)0^9VMZjdwVD^5jYSi!K0S+L|u4
zl@h)CDU|q+R~NcKyKrB0jB7lT@rKKVxyN-X1I+>%1w(|(vkXpg`SwM_D^F)k{@OwH
zyZy(#wldd7(;Xe#bCo`L&r9x?Sy)$BH$Q8txrXB`kvlwS+{B#pIxsWTP*fm4g}>^}
zHB}tRi2s$cr#C*^as}@bOe@noEKX(>8J0p47%W;yvg&FS81QGc%KG0wF~NBB<;}Yz
zie&4fMFnL1p_Z&{S!(}H=d3f#>RAvht$FAG;4;b(7my&38lHiDp;%S1_`5J=WkP46
z0qizJp64KOPOyt0uTAki^U9#c0wsfD6h49>|NkS%z@91z22Lx|7K6;kzz-ROch3GS
zPt(;!E_cqN%Q?O8@5K(#)R>`m<BI<$V<h`I^ktT1HV!37+UCq&j+*xR&7Y1l{`z%e
zD|l}gCGb_8jOFB&eAdaFPWbNi+vhe*p#2|^WFvC!`ADdAw&W9ILKzYonz{|$ULJ$t
zB1|kednjMpFc@8hvDT^P6rryzv9M>k7sN6wDAZ}f&}oxM7B{MFp#{S3Td4irw%)r5
z<Kr)}IS6&?b1<;e1xB+6o5INm)*yRknlm$QOl9CMOJaG%<GuPJ7;X-BD5Ww8jpf=j
z(MSV4YC&SJ<pm~o162tDuB~@wx|dvo!G)Le@zN(4&7gJO2{!g!5up7<$y58KFXsd}
z0o2=isEo;mrYS@JxJ_a3Z>LSzqNz?MA<`q%YrMl^hIov;L0*n>(?c8*JE<S4tF^yc
z6t$5e5@tCDV+B`c-2Gq<Pza#_J!i0jhEiC<Fd;^1<Oc~gFx=#h@`wQKq!N@5%wc0B
zu>Ns#C??`#FTSss|2016xs%oNmpo&i7AW5r{fL@_rNQwrD=guv={isp7Wj^kg|i^k
zDyeV-`4q$GFYELo6K=`7_j>laSA6)uKuZR>=rw@ILp7<dSL#=$J?#H@_RjIxsnlZ0
z%-Qe2Qp8QAk~0PW_CU$g4Z4~8%~c~8K`I#pJ{7;Fw`#Vkx2Gxnz$|U@KR}fNpt)AB
zCFc=J_@Nl`w;e*#xA0tf1ZONMLU-Y;n_!nd6({80<XD+^DKv3`;3U_Vl$3nLX+2QI
z@?sabk?tdOcPWywXT-ie9yRv|+e}q(z}yycs(Dh7(u+GV*}5~g5Q3q5go+IJmn|Yp
z@Vq6vetTq<L=EWXKj+PR)*VID>R`J!YZ?+}ppGxW<KnbsSez0!vRuy$;Ia5^LU^9?
z^z#hNOKC<$>xBApvNro+Zu6{KjL&kOqM!d+U%Cf+5{&Tb8TB~uNTER%rXrY(qlg`0
zEL(d%d|myYw<AEyL(6l4P_v{`;|gLH6KJBXP&4?5V3vd;TvTGB9lK?%*&NE1AQkoH
z2btGROfcy49|WRfT}$rP59HA^;6^@Xu;T}6oMH|hShJ<^M6E!OKDgPN3jJ?wIN6Ye
zwt&9w-L}-q(y|z?C8WB-vKv$N>c1oR$!A_hux!oLAMd*n>GbVu&7<g<lc})4vH};K
zoe-marIRho7(XvP=-hPX(}YBv#I@fy24C1G?9um9v{0TKe<y6J%S<N0VpO1A&gz+9
z`!}ZewaK!XNma>=_NOwXvmvrl{LE^%uMmdV!2di_=7g<<MUnSpfp`3}hr3JXQh1dc
zr|#7=#E#lS2@-|$iY!hCJXbS_VqDR|FaTSz?SyD0B}`Jt@icNqc?JTTP>4KDQ387l
z1%gA-rl`R*1F-g(#)7WZiL;NaQwq^jhhs4aFol!^31z+wr^_VbP??|7;FGF*xu~?v
z7MuW|<WMb3%3rekEJ}BT-o}83hqJ*8>yDf{V$jHZyERg<CpD@f3LI`0gpxh<%={9y
zoND>N>;Rsl-Xn@Uw%#qaWKAic{Y4J{IlNv$tIP;KW&2y(bB^yt;U+MJNd_3Vy#~`K
zbNVhzH6#AH6UethLc19vk1}A(?U$+o6a;P3PAQEQs-8o2s0adr$bzg5|7Zd3qiP1^
z)dq<~2}WMsA(0e}vH=|E|3vvk^ky=Jl7HK>?_NE|A_oo+4|kyuCD$1pPB0jLz$)w8
z8@Zv%lR&#+P=1<WzLuxa2ri8Q@m)(uuZP)mPw%uO013Cs9z0+fmQE5D(=1<)>=ySK
zT9EA!@lJ-#40tm{0Uyn4>*{Fw(^!#58SjGSw%dAg^(%lu0A&d-5*dH*x6QS`S(J5i
zuAU%SbRC*BT2F(uxUpqOQR89Xh};Qb-_+dxSmeL0@3xn{L)C)>23B>;-M{ygo?<PS
zCzpeQy)r2TGn(C-CX65mVBHYfEgPsJ26Xiig5v>Hj%wQ*ly+f&f<xY%1!u9jj-mhq
zKtO6R%#_;AsHg5Es{&!Z4R<9@^6Rd}6zRz$C$H>5K(@hFm_%q@{lV$l)99O#@{@h}
zv`0#466iet77lRqBbFW4Q?t9RsYXn1p#8XG*c6CPREBlR$H?NAsN;|BHCKK5%r35e
zs+>_5di!ZSOU8xC$)A?LUka-%0O00d!$uF#2Zb%sV!K)q%b}Pdic<S|^FzvH68Bh(
zl=lN%94F(hk{~jB*(Q$x(L%sPx9s4rTYxk-ei9M|M~Q29@5lVbts<j&3&`ee0fbrm
zK^Ahz`_QO}QDbfMjN=A;n+YOc$BdBD&hg?}vN(D%n%kg*5!F32(|{OCWu#`cY>iVe
zikoh?aX)k|DX01q+lYUHYm$zDM9|n;_pU@jMu2R+d@(q`-AH};7^)vZq7eeeb1=Nm
zz~%GhF<5y$JabcS12ND$`m0+Co2_-Y$0qUh%50-jyOk7^?g62cIqj(Pkbq1^Hly9#
zLB5xkS^-iThxt2{+$&q`ch+Cnp92S^k@W1;oFV2I6n{ojQ<!(J!Z?OrW&fRt?O7*B
zu;C}_8`TgP4>Pg^mcvcJiQR$foFke#Lp_iNmC$nf1G74g+o~W`Jbd)X0hCZ1+GffS
zKJ}*_T1M#&9agQY=pengm;^SifXUSlq)+YJpc)#CNU_t_wOIek)Y~+6RjO&v`l2VP
z6I`w#G!VEXTT`SM2|V`(Pk5J|a<nafde9tvF@x+VS4{G-|7aT2f_G8{wjRpnJUn!Q
zQ-p^aL{=WLXd?Y}t*DUU^MoqMktD^b(X~x!YL4mi#{EvvQxLs`9FQ=nydfIJs|J0z
z5ImovGx1ZFr{?m51dmMiIOi7Qq@hhcPXs1vMOIo0#ge<nuMlA5CQwsAMQM4F${{0n
zzNKM@$C-xO+J}e&51UHT*lZaD6g@_>L)e5t(0~={++(P|-zBSrpxvyZ7pRzfOnwz9
zo3mi;^V%Uj%W{$IkD(_dn$$fJC&=+eBKffg+r(yuZD;PGt~sY_+udsIrhDlDtEb14
za&sEVkQ{TAcG0(JX{gdMII{N82xNo+4$3>G$<>oNeIeDrAPA~|pw;2b62-yy9?k1T
zV$=iU@TV9DaS*|K1#2CS31eKC0ctquhz4ZJ=LRZ?{^TSl<;sAz(wA=hV|uVx)65xt
zEfpz#t#e^LWX%f35RAqJ8MN~i=t5Gqv~QR+(IZHtHeZuSh`wTo{uEatb~yG(b}L%q
zj945Q)YHMNpUIO!h9uT8&9#;AR>P`|HqWa=N^c8w3c;g9bwkcb%is}2;BI@-c5Kht
za|9xqxS_Gyo`6Q1GURXl56V0?pb3;r$^#wwp}syCC_w_#Ku*AW;$ko!CZP)^42#tS
zJ9C5<dA{na4*FWgZGf-I?5zo#9*mlBwE1c~?yw}>JtSz68`2GjQn|Kf^3W$5M{-ED
zl?;LGhlh|7LV^upHo9I^oFI6~(%@SsiF+8PNb(k})Dp<M!z>fhH;`5qQgcSWZ$?rV
zvPfq`m~8@YwfozIEZJS5c+>=aV5O$hyiMp>hS5TEY^5fLQ*)VK5jLnC%Auo^90S;#
zF_Cn7qgckkepQ;bSF%xY`92g+aUI1dZ#+T`t?i7+M2$cj5%Pr~?(7t_exaU&XkkW9
zY81T4&A}6qn;8q6d4NNyjc_KoZ?VP9lIiy1VaK7NR;)~-a(YKl5Q#Rhx-2DA>8)%9
zwpV)YUN(O9bDR{}tNQx-Ip6$k&*EXf!)`Q2WjQ9dO*(@!b~qm;KJvtgQ*c}bIe8J>
z&LZomDz6|?DW*y{snuuU(#oLT8UB$V6b90a9+1GrG4}R^JSWJb+tOIya>$BZrA;a^
zj4U@LVoK-$C$LrwwJ)?zZMcVL6IZ8PFAtzod9QcD@ZUu{ub&41LT{7b>*MR?56@&F
zm9z{tL#3Q*#Mf>i<CZFZjo{IAEPit0lKQ^k*C9=PJw1Cww++<U5CmMQit-&!HPqJo
zRc8iO$2i_o9I(R8XyEz0xj2DIZrR{jh}l?I9))n?1#eo6=}8<F`9p!Pb$Z;bFF9;#
z3(Uxh7HtfE95#OHH{6?4Om^0u@qWK|0bLFVs_Tv@GO1~esaEQm8v-($j~_oCXLZI~
zGGAH;Fg+RRLbHVNm`WpHcH0B9Q1W?G-i!$WyIPbjY&5EYP`&?NYL*xoj+_9gVlZ?;
z$l)M{fk&B%6Lc0z4IZbT+uZsCk}c6fvRP$}1_ocRGCsy2>5Qk1t+ZoK2eHEoL)K1Y
z7`;x8ZKOY2lx39v++o6qE7a?9SQ59e9=m!BMSh*BrHQiR;jFp}!8)tt<3u=-1;NKW
zy)w1fAxkDN_Sg316Wk+EW{rqZZ_2gauZpBkCpuu;eizL(P4ze@S83}r+2dC-$zj)6
z6!fCT#FsB482YT3@fl!A9O1mKhEr7t&_p4JS~ANX;bQ|8k7N3?$n-jB3TE!Z@ub91
zGF8?lsX9g@rdhGqRh1xE0z?VVNPAR3jzt$lrF}qCk&kR1@_V-LpUvuEx77;3_m;?*
zdOg~9Q#G>P2lSi9tA%^7DCq2bdmkqis4dhB9zwvUq;Hk@+M*btb|W<jGIboC7xl)D
z&p`4@2#v&o+aV$AZ89eE>g23jZdVn)A35xu615X<GKHdRs*S6dKW@x6O>CTls%_DF
zHzn7W^4KHZfZi;H^x+=DiX=(f@O4V90?<y}JLP&uN5^I|6LnTHh^)bSNai_7LLU1r
zL8v+D#v9?+xxuobs@`zxEFASkl>>K(=&C$APlgo{ai9Y1=BhH+!R2X+${+%zUayhN
z?Ldi=P0{?-eB1EzB-Vb<DS(u!dYs@~)o<Y5&88X&{qaI}#lhQXy;Ou-+)*b$AP+du
zbXPr^F6G8y0VnH%=ncBqh&2}~O3)!~Y^mbisq&`ojzUBYHNHcB10_d(><bUxD(s8*
zV|;-L#L;vNU9%wwH-tj6OpNVc{Z{Tqs1PKOa(G>b5*ZE=CdM7_UAqXfpE_-pkg+Ag
z9T3<%@)0J1TTY;c%%EA4L|{AcmXhaUD{<STVZDRunylgp><m-3`RtAH>s901LsFV!
z4`$(aQn6$)w&g9fZxVuO3?j4)ZJV2R=(dl-N<srosaTMK#?&Wi$X$Y=5Y<gQeGtmw
z+7|y98^91!OCC%0o=DxxG;i5C1)XFeCuf*#l-m)u!(3xXVj8UjMOYc?LNTBQ8BN&0
z>7V{w3=k^fHEL1Je~{$GX!Dtc1jPPAJAJP%zz@7jL-4={aObm=A?Y5r2w`v2WU+5o
z9<FTMGfd0itU2_v7{}@{i6ul)8bYrwB=;UIvT1JJBhV4mqcd=fH8ai<)otOiVmsyY
z?QC9bJi3p>2cowegWCPUb;%5I!jThnuXH)n*ZSq3^V5Nf@Knk)%Q_0<rpAz}x4>)2
z0-o6z^ZMp2ByF)LoN+#__S$?<eK}k5^fMwD1f)@JE<Y?%g4V~5b+)|__q_dUV`xpw
zi>;~k+nUBooinnmUZK0ME*MNHVGzin5igq^5g~SXt=)m45u6o{IR@HZ>y_cjN|LCm
zrZCUpkDWt;5`ikIoYT9x@yXf~88bv_0)dY#LaN?ZdqQPkl<G&*_tHqOZ*`M(NOYny
zrD0j}n}?t@5x8f((UbYah3Wr7Nq~2%VPy5_H$NF}R~=z&Nr#<<Vd-<3_YO5jcE0~w
z2iw*#@K*`;a#sR{a3JSzR>(!h-aj+lG*b*Ad_#-K9!qm{7%N`+j4(Zh^EtaH@dF7k
zqicklj0I1j3ptDcTf~Q6J#*Xt8HYK?KUSxL-l*-Bm6`j?pd&La;a&)Wj@M|uNNcse
zZ3$7Ll2QhtWzL8DZ$rntjja-c*V=oK?hfCUTexCnayX+Qw!is~Y9wwbke*#5PK2|#
zfrXG4>pbKi+h3kaXqMtVBZ}kBlNT?7N9Y<d`K=%oZ?FSSL8lTR`kq8rM;UBl?x5XM
znTQ{!fe>74F8?JF;2~r~G_9CxECs}Ah65}?0Yk5K;rK=<7?J@L5kdeT+u1#RF~NbK
zUw$80>cg<-n>Drn|G2gmbm}v>%@fEu5uyjM@XTMmV5jg!S?fPy*W=u&N&(xLK8G0>
zm9Zds>$nX7h`E*3JD|5|y`Z@=e+1tgFqG@f8u(CCbDv1n*pd;memFa1WzT_=M2)4o
z1>)IdbB)|yV7POqUtwt&$nB@J;)Kb)F9zB`tr=P8JQW8+c@I18rDSfTHPbrZyv|}M
zc*)>AJ5@UWIsHLHvnJvKP#vK*H$Z9p{80S>*sbb}V42RNA^9D<X7ot7H&YsT@Pf^5
zX_}d8vNSBc1!Z(TxhzE7?D3kS-UkG354(mCHDwaX<M34968hqP3+m;6E^_GzEakrw
zqO3gnlHZM84+=D`Hi`0F_HGORHq)5ojikB-(qI7T#}25FQN`Hb36xbx*g;%+R-0n4
zuBl#|!^g(PMi$+htKX!;AV-JF;ll+!mh&kl%|tjS9)vIr<>VH`8*L&GzahYG4N`+*
zh^~3G&E7HzJ0*e5&$diva*~sV9dx-oMj}_Ze~`J`hyXcvM2TS1KW>d1wm6l6I*XF6
zTg4+DdILFox1%Jc07=dmn8!e*942ZUeoEfkGe1dr_Wz~o@jJE~k(2}cRCi~QH8>P^
zE#dV7%6bkmgAjy|E?`wxh}t1;yi!lXr)VJ}Qb<O|OV8bgpdlbymZSC)ai9**IMh;7
zbB)H&A}+qefqqAn#KF`7BB`b_$S;3H0QJj~MLw;Mpg;656U>hlxpt@$X45!PIS>|p
z&-{@(ZlMynT0Mf%{tw`n*ZcVdDNT?(T{Imgp2?tCCEEzmH4W3V-PHcX0MGaW`fzK)
zC#d0!>7nG%r}l$pC0fXLk8n&7ss+OMle0lGF`@BAmDX;;%;gM5NSOiwl@dx28&(2N
zDP^=w*+%#+_7j~XiLe!DYarkcl>AI6`e+Ah77+Z2G?uXbt%Ry4_nN#1NwXYa72AfR
zPPkH?M44GdF!@Y`yM;m5tf-pghGfgnVR>6CMHzPVx{W*djYFX;3fkfwDYs%}bO8g(
zAxdXtZz(L|88>jO3PAhn*%Q!Nk_;SbiW2DmrK7u-ymp{1KS=nWwM4QBt!*;;5?TnH
zA(rDx#>Mv0#!W0(n)MTTJ`r#w0V$e-rzB5h0BP-RlGw2Ws%LQkp&&?}ffYiOwA+zd
z5?ORHZc2uslX&R$i#DoEV|}Td(bI?&1oU*CK|7LBcO==*r&GI!&nXMMP0UoL54Wsl
zrwscN9vsp*Dg%Ms*?*v_bMj%9n+LJI7(j$nM#o}j|0t2+BUH2kHG8LW-9V&PAg_Y7
z5PceKTK7m5n(|1v7A*wVs4R*)vGkwI-}}N;Vion8=xc&nLF%6dxH-u9^5<g7cKZjU
z2jC#%G#;?zwWs2Q#OjoXdOM=3)f?a-wgNWE(~=xlI8SJ{VWFB`LwXrGK4Ixi<bed?
z874$Ur5M$f0@`Q2aRLLW4si_L<tb@ExQ_GNQLYINAJ<7YiofS1(Gn;62YSPrNgGWn
z=l!`I$CXzeR5!q+m)A(DGpxBFjJAN*;iTORjW20)d|qAgD1&B0%%vntm1ibpQrK7*
zD`!S<K-x^0ONU<PR9B|YFeeAz?98!Ks}p*sBz288a&i9>xwHP<8YIfsAs#%9gJ~0E
zIWT?utzmOx17y{TDM8O*z1U$<oRXTlitM%2VwoK~mJ>c$piZQ#?euSTCzt1cWe=g~
zJE-H$I1Qf=!<4$Zsq>EudZsJo5Y0mfiMx_|4Ui+LZp^~YYwNYA=grMGO?QM%$JBi-
zMq`XS-2-ub7f!D0qOVC(Ulqxm4DCRUW;G(j@de)>aYO@8btR;L^Yoz7UH`}@NSMB&
z5A1;QR**bttf9!A*)d0^S5o*PwIBN&n;GUWTN@3L64yarB6T2;<q=WfR0>f11<$?r
zo9`egSG-Z`u|D#CZ0`$FF&`R?6p;ddY?R8z2OXT)-%{&wVu7V%c8q&V3L<-&aGk~Z
z^EzinrFF_)7s-TN_<NC|WUhVRw$<HB&V{Wys7^HFiV0^xCP)n<YyDl<fs&kJ)D!}?
zBG@REqxIYP?EsHwoML0F9m8tr`(>~9q?)B=rSJ&!VX1Gvc2OkLZ}TU^x`~(Y4l)+q
zM0C>h-Nsu>SqN^gQN4DvvP9n2{cZGvIr3U5#&R^Y4_Q?3Z2vTc<!)@qA@$qG^f?si
zB%D3!v^l+~E5rsUf}@CgH$yBD<gL+obWokwEALU3ynO$v+|h%Hh=VW`49BgKm`0b7
zc7BWKYZh8|lv0Okoq#Sh4FLCF!{F;WqWNhg>aR_M47H&IT~Qdf{w;8~p6I3%%2R`1
z@Jp8EPz&J5TtPzUw<|ldo@68dRi_nOyMv;+hW?1>qo8+nNrv$n51zavd2=0r)o;k$
zpVWXEiQ}e27o1_Bs#-UUhJ5WP)%(&<M$zqHKq}-1L2c0M2+`Ro9x3{o914<korV8A
zs|mJs6^FBGmBEF*Y$j;nh%{iI>)?Mh+a6%2S#a09Yx}~Mf%!nfXrZc?#ulCDChR@t
z&ug(K2&Rl3AfF5rrxAM?x$YNI;7kM$!TexEoAa*L!xIl0O)SoV4~ek;3%C_lPp*V^
zyf}#nU(kEIMXB#1fBed;rLg%4Y(c1PJ`L8e>T3arU+u{O<rxRM8^BQ_Gz9D1C3!Lw
z^S{C1+LvFu%@qkwrl-<Gk_cTO{*1G6=h_nmV+a#y-q7X@;0fo}xmwzJ5euZa0VLt^
z_E|R8)>{dYb{fb?QP?=6vnk<_DgU{=%zlT425~P6Woh4s@PxUIcolw+PxBDcz-aVu
z9w>V#6L&;|EZC|7p533Ut*o}7HS)4#8}ZDF8xTS_ji-%eixY`pP!Hr5JC#D6qouTz
zke6Kh9Go%F<je33>RJ@C@yr{)wm%I`VLH6{M3ye@>EpVTVPv(xQxl;r8j5RVj|DHO
zc5^#9Vma>`DgGfOf?;$4q|poMMc6Vj9XC;0#bTPndEC;V$%MW8zGsd-MHcis4ry}K
z59LOBnpo%LTz@LQ1ha=N6bUp43o@27$prfZdIHO6w5C9*y8Dl_&&lCZcEQ715nw=(
z$H$OeSK(E;DqGHJB%<`QW3be<r?_bg+!XkoVqcHZTfV+|Sb7k#<u$C-s^WY`NUO-T
znWo06f&+##b`)>nRn7%M$_s8QFDo+nyh7ak;pJm@PZcxTIcf{-({CsT?@qmD$_>-L
z@@rJ(+T;83f10sR6F9Tj_f_@ZM?P#=cH8{u@=Hs9x$2wQE7H~2<l8gS*5lwj?qOvW
z_I2RvlvmTll<Rh*u#vVYp2(<%=dT~lX)G^Sw__rORQ<rl6uGPIrEe%wa;8#wmTNpC
z%g?{!CLRh`e|LxT;luAYhn##kx_vME`5S<wI-K;XJ7DQib3ET|c>vRK%dri2<hE`5
zaBAt_TDad|M9%214YWRedf$y}v9YoC539jTzGioousf~>(>s~mG=?qrg{*C3moyU)
z;_4Y@u7fS-GCdT9^HU@8jmJ3pO=GZ4cumJ@7xUvJ3b*XqO<C_eAuJ-Ys!d8a=~d4{
zRrmPfY>TSReg!vg+_;(qEzgu$?#|AA7Ory>tsj(xE^rZQI2?MR+Sy$qPh!N=MD`Jx
z(=yn;``*`H?%TIl(@L@EgjyjQEsmhDTCC@~TP}6ko@Xih=%DAyl`B<pR>H;bmxlCx
zdzzm>W3*mgUf}E3ue<1-%PEf$c<}Z64#&5!)Yq+*lapIA0@Lkz6gPKwv4~{&%w|qt
zjK}Mg@D-^mex6TeSy1+%1eiZKJ~5%LtNRz`T5T~%TM8TO?b;erTekcpoxLr?^tC;0
zXn6RVR^d?<mB$qwOINPk;8kfMQ)$6IBC&n@$zb=dZ}?I_^j}Kt)J#a3LxJhdk`ZMb
z0jDQ$qOYvWiNB7LU3rg^afC$6?p(K_*cwEH<a{m;_k{xfZ(5bo>r&}Cd_41(|9rWi
zEf;`hNkCPHqYHu@g@SJ8Ut3<huE@Bh7rMtvUt?EBfYmqCrtT%)g98YM0X0h&LyMyz
zH=U!G%Ef_Db;=7<`<_%;2njn3v>rz=o<l*ya$BE{?O!);{6sOxbUJ=-kgO{4T@7D*
zdDZ&h3-A(^y~~JdPqVVt!XN%6Vi)Duf`xZgBFa9bOy-{n5L*awvDl^%m>^|N?Atdz
z;~^?3S^Ald+d$dH`wj*11ui)F3`-xCpTDFMVL#@=rCi0A<>wv842*e1w`6HW*|Yg5
zM~)o1kftmu`V;(GM?uAxS5&O`>MhQ=uk4-E;F+UBD{^jZYLZG3fitxqM_qh5I&XiS
zv(nN&wHG!G*Sld?lv<W5>5Q@M6<;eVDnOksqU6=otag+SDfz0vTpZJ~=v9i?<?xB~
zvc@9~JqriD8XvCpHfH)(!}x0n>&&8+b)Cjrw(uwax@=j!#rgx}PtKcPvPAzfJ#cLQ
z{&~p9%HO}I<c%Fsh^ZGcY~?yWYi$F8b3tOyr$x34_GFdl(>K%VF34=vFBnadT&t+_
zO)Enq$07M+SKy0go2Kfqd*LOz3$oUJ+aaY<{OeWgqd(I`)QZZTGxJ5JJm3jh1ONH&
z&&w^&J8_rCs5Hd{Ry3jK3a#_=^C>=<o$&VF2C~NIi}1Km8BktarJYSqPM$+?%N9mj
zI%t;i=e5GKf5TOQaxCD`ZoI<u<bY~@27NJVZqg5qNvoCx`J-s<9(=;XBdcZ_l*cO>
z!!bM4OP?FsivlH<j66EF!O_`yUfvD&zm4g?T($lL4rN6hL}gAc@gJ?;p!jOtb0^aZ
zhj>^`PiLq7ga=psFGvskD!xML{VHWQ>t&|O?1mnDXyBQ;ds3ah+T6`OmNzE8ce~k?
z3}q6>fYZqFW5=$#d7vf`VOBaHXWr?vNy$6c&IYs|1T^X}u52y^rTlXq8#quP%!8N7
zT#5%OJmQj)hfbgV9X?3EEL*ni%z@kCw8J6kK+CV43=Kot*7#gqTu7lT%%>jMtGVGb
zO7TlZ!Z4M^N?-UAWjgNq9;<n9)%&$hMn+~yKzC2i8&t4LJne%@#)rBvUn5gd<Nf$#
zY%GaU0Rh)L*1*u!P`HF^?xnCv^|ut}$F;|Ae_doe)S%Jd5#aXxM8zGyc{yhrax1H=
z<rPw*q87kyJtcDnu9|bD6*s1Athn#;x0}&t<PgP-?@w+co?MbysOz~mZ3rpKEuy=0
z%Wj{yowJEDiV_O!8+z>I1^juSZ2y_^I4Nlv(i&mo>ybhVE=w^z>_xh*z5O!uLjDrQ
zTy?#lX86--K?F6ObbB$%Cv;_wf*`OGHrw{#oJUx4p`k2W&mZ<lYw{dFwL$vf!1Z8i
zORP+Toxr}MN3S=WAtPA6bxwhQ`mB2;<a-#QoZIrS#p?D^XV>K3VQr-;b$-Z4uim`L
zBR%j$`?rPs`~|4!Q7CXrdI|V3`)0wCPA*+Fe^4q;s*QbFcYSNMt;`nPqyzVM{52a(
z{>VGZFlX1UVY$L8cVhR^y|2et48h_5MM}ywSKg9y+j)3+`hdOHi;2Bv&Udi-2=|(r
z(s%DJy)@ZFqpg~r8ZrJh0eL?!AKz!B{^Al6cb04B2yQXTS`C@%>1Ix4<#HIR2f(HA
zX?C_y-k`;|<W-~JW^c|Y##+1{{u-cs^Wj5*8#s2d9G#p_V{q3AUoHC}GK1}O=Cfx%
zVHQGrSJ(297_9NWK561!oP{RHnKeSApd|k4hQ|WV&Z|4uy*sx(!65xl_><s!3T5B^
z{V>01w)65dBq11HW2ZCY<9U63eT_0xc23yXwpNG?nYiwHUsEIAA)jO783vP!@RSto
z7lwBVFG175hm#0puOxRqeBaq=LD_?GZMNI3T7Zoy(w@D_;K-9Aj*?jP(r=E@@5(1*
zG*36b&&#9077C&KiJJJ*Wy}7AjUF1s=EK@gdNnWO0}LdVUw=i(gQ4Fo24k-Op?R10
z&AGhqBIvaRuyoSN@sPuq2fLw8Evk8AAurFo4I4H*hZ{5eF|YSZ!Sf=kG){A~9p-Ax
z1any#3t!1ThvApP)L;cA^6)`;h^@zfk>-OePB_k07*^;2hUMMuM%U)UUslI4nU{@N
zeku{mMr`3>hQS~QF1)Qp8}nsA>uY70J#rYqZr9E~{;+#v+2XfEXdgVx3dV-$1O{|C
z%0G*YoO^$X5(<s`o~Z4K(AXQHaSBJBuyNfZ&(xg*WZ%8`3dgIz{FYz*efMrbxGPg4
z+se0!i!YsGYs9=l)AS9n1*PrA=K|h$cXlq@d#d=V2@OS^jZc?^Ox2uTBV(YW)87BL
zH@T~h&Zm8X#3@~Hikoz>y?!Ws@8QD>kgBeiV`7QoXe-ef3syKIz52OrlTzjcKKT2_
z#+wMeHTAu?GcRNxtBI=_8wbE6zE1HF?g(^hZ{oUA-WsMrd-3@HD(%c-nhK&YT*M+2
z!B`q7s70&Du2oP9!9<oKONv+{Ta-l<(G)?Y)CfY=n6L-}T8o4N6*K{*hzJFgRhlRW
zN{|qsD3BtWsu*G_;u8N`!h_GwL;Er_ckbLXXJ*cv`Hoy}DwD|=(oDb->q8`a&?}$-
zaR5Zxce2?Bin2CQZ|Gq4%Xn9-SXV3M8;i2}_;;WC(*ZgKd4}mfs!}-xmB@K^w1k9&
z;vL)pJ`jY4u!<;ELk-qd;qN;K`ueU!)}}gM4BFuF^LAo#a)^`s1AoyF5#*UngY(%d
z_J)VkvE|5ZZS?>z&FlU!PSrNKxR?Q?sYI*m!SAWNtH25f^FMrrOza#Sym>t8%|M&S
zk<L^zv-*tR7e2jhTL;IQ1)Mat-TET+lZC{9_QX!pI)M+#5`H;sCk_N>f(CE=E-dap
zr^K$$9OhIs>Ole3wJ%a2>COaU1@VQvD+f2)+OEO{M0gLNZN)(&MNjyk2Gi;Ey#m25
zgo_kGoKazqQn?A=7i^s7l#kRDkBQ8ILk?mha)wao2Kg;4E88|-A{JkT;;!uIutwOA
zqSF2Dz4|Mo#v|*Gl0id>VbLo_G<!^=#;5z+$H#x%Y+zu>Dp%YG@vKNbV+>83mzTEy
zYg&OsV!J2-7EyNZo&k2%uM=F4nog<JYRlQM&`=0uY2OUarb!||?G=6|W|)NsCjw$q
zh1GmrPdmCLy`|;W3WUPV_VzDcxu1OnrO#pgfl@b5qJ7h9iM<|41SEtnhx5a8`_>yq
zaCPNGM_UJ%vM&LWwcyDmDx#cT-=!PwMaVY=v!DU%oJ<kJa(B<h^?h!7#&ouAPt)<K
zX83~jQdMLTd?;jfb!%XuJ;N555UYbivi?&-w6{dSmV(a+XkJ!VmsjSAeb6-B@*`kM
zb(62<=XdjWKjZI?J9ca(Ze99wxk^|p4N1@Y`#HE=%2w3WP)H92n$XdCoUl_!?Bq$3
zMHu9t$&@7L7!d#SIp7b_02cKL2rvR$a&qnyaA6uvp+qwKjeVDw4Lo2R&R%w^dz%ns
zCT_UqP<RvHa%^l2gXY&Q3!)ARWA#@m(U}|i#H6J3bWa$sWFwm6y}+a6Rlc)2b-f{U
zf_~I$Q{j_Q+0tSul}hOhh99y+y%dy}Ux#~w`KiXScM&$ah8ZsP0MQG+zFs-G4~WW^
z64@Suf>>$j(q-DeIiX^g)18e<()Q(2YY!AaPb`<pvh&BJwp2TQX;t(|-E(zCDZHgO
c`p?HLS{obBwFw?gr4f$t0i0l8xp&Ovzp}zYZ2$lO

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 c1d850424..227723571 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -111,7 +111,7 @@
     </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>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-2026) and CLSI (2011-2026).</p>
 <p>This class for MIC values is a quite a special data type: formally it is an ordered <a href="https://rdrr.io/pkg/data.table/man/fctr.html" class="external-link">factor</a> with valid MIC values as <a href="https://rdrr.io/pkg/data.table/man/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>
diff --git a/reference/as.mic.md b/reference/as.mic.md
index 801b26e18..fa6d42b6d 100644
--- a/reference/as.mic.md
+++ b/reference/as.mic.md
@@ -85,7 +85,7 @@ the outcome of any mathematical operation on MICs will return a
 
 To interpret MIC values as SIR values, use
 [`as.sir()`](https://amr-for-r.org/reference/as.sir.md) on MIC values.
-It supports guidelines from EUCAST (2011-2025) and CLSI (2011-2025).
+It supports guidelines from EUCAST (2011-2026) and CLSI (2011-2026).
 
 This class for MIC values is a quite a special data type: formally it is
 an ordered [factor](https://rdrr.io/pkg/data.table/man/fctr.html) with
diff --git a/reference/as.mo.html b/reference/as.mo.html
index 29027bf23..eb030daf0 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</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 7c88d20df..6ab8729aa 100644
--- a/reference/as.sir.html
+++ b/reference/as.sir.html
@@ -1,7 +1,7 @@
 <!DOCTYPE html>
 <!-- Generated by pkgdown: do not edit by hand --><html lang="en"><head><meta http-equiv="Content-Type" content="text/html; charset=UTF-8"><meta charset="utf-8"><meta http-equiv="X-UA-Compatible" content="IE=edge"><meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no"><title>Interpret MIC and Disk Diffusion as SIR, or Clean Existing SIR Data — as.sir • AMR (for R)</title><!-- favicons --><link rel="icon" type="image/png" sizes="96x96" href="../favicon-96x96.png"><link rel="icon" type="”image/svg+xml”" href="../favicon.svg"><link rel="apple-touch-icon" sizes="180x180" href="../apple-touch-icon.png"><link rel="icon" sizes="any" href="../favicon.ico"><link rel="manifest" href="../site.webmanifest"><script src="../deps/jquery-3.6.0/jquery-3.6.0.min.js"></script><meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no"><link href="../deps/bootstrap-5.3.1/bootstrap.min.css" rel="stylesheet"><script src="../deps/bootstrap-5.3.1/bootstrap.bundle.min.js"></script><link href="../deps/Lato-0.4.10/font.css" rel="stylesheet"><link href="../deps/Fira_Code-0.4.10/font.css" rel="stylesheet"><link href="../deps/font-awesome-6.5.2/css/all.min.css" rel="stylesheet"><link href="../deps/font-awesome-6.5.2/css/v4-shims.min.css" rel="stylesheet"><script src="../deps/headroom-0.11.0/headroom.min.js"></script><script src="../deps/headroom-0.11.0/jQuery.headroom.min.js"></script><script src="../deps/bootstrap-toc-1.0.1/bootstrap-toc.min.js"></script><script src="../deps/clipboard.js-2.0.11/clipboard.min.js"></script><script src="../deps/search-1.0.0/autocomplete.jquery.min.js"></script><script src="../deps/search-1.0.0/fuse.min.js"></script><script src="../deps/search-1.0.0/mark.min.js"></script><!-- pkgdown --><script src="../pkgdown.js"></script><link href="../extra.css" rel="stylesheet"><script src="../extra.js"></script><meta property="og:title" content="Interpret MIC and Disk Diffusion as SIR, or Clean Existing SIR Data — as.sir"><meta name="description" content="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 containing the levels S, SDD, I, R, NI.
-Breakpoints are currently implemented from EUCAST 2011-2025 and CLSI 2011-2025, see Details. All breakpoints used for interpretation are available in our clinical_breakpoints data set."><meta property="og:description" content="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 containing the levels S, SDD, I, R, NI.
-Breakpoints are currently implemented from EUCAST 2011-2025 and CLSI 2011-2025, see Details. All breakpoints used for interpretation are available in our clinical_breakpoints data set."><meta property="og:image" content="https://amr-for-r.org/logo.svg"><link rel="stylesheet" href="https://cdn.jsdelivr.net/npm/katex@0.16.11/dist/katex.min.css" integrity="sha384-nB0miv6/jRmo5UMMR1wu3Gz6NLsoTkbqJghGIsx//Rlm+ZU03BU6SQNC66uf4l5+" crossorigin="anonymous"><script defer src="https://cdn.jsdelivr.net/npm/katex@0.16.11/dist/katex.min.js" integrity="sha384-7zkQWkzuo3B5mTepMUcHkMB5jZaolc2xDwL6VFqjFALcbeS9Ggm/Yr2r3Dy4lfFg" crossorigin="anonymous"></script><script defer src="https://cdn.jsdelivr.net/npm/katex@0.16.11/dist/contrib/auto-render.min.js" integrity="sha384-43gviWU0YVjaDtb/GhzOouOXtZMP/7XUzwPTstBeZFe/+rCMvRwr4yROQP43s0Xk" crossorigin="anonymous" onload="renderMathInElement(document.body);"></script></head><body>
+Breakpoints are currently implemented from EUCAST 2011-2026 and CLSI 2011-2026, see Details. All breakpoints used for interpretation are available in our clinical_breakpoints data set."><meta property="og:description" content="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 containing the levels S, SDD, I, R, NI.
+Breakpoints are currently implemented from EUCAST 2011-2026 and CLSI 2011-2026, see Details. All breakpoints used for interpretation are available in our clinical_breakpoints data set."><meta property="og:image" content="https://amr-for-r.org/logo.svg"><link rel="stylesheet" href="https://cdn.jsdelivr.net/npm/katex@0.16.11/dist/katex.min.css" integrity="sha384-nB0miv6/jRmo5UMMR1wu3Gz6NLsoTkbqJghGIsx//Rlm+ZU03BU6SQNC66uf4l5+" crossorigin="anonymous"><script defer src="https://cdn.jsdelivr.net/npm/katex@0.16.11/dist/katex.min.js" integrity="sha384-7zkQWkzuo3B5mTepMUcHkMB5jZaolc2xDwL6VFqjFALcbeS9Ggm/Yr2r3Dy4lfFg" crossorigin="anonymous"></script><script defer src="https://cdn.jsdelivr.net/npm/katex@0.16.11/dist/contrib/auto-render.min.js" integrity="sha384-43gviWU0YVjaDtb/GhzOouOXtZMP/7XUzwPTstBeZFe/+rCMvRwr4yROQP43s0Xk" crossorigin="anonymous" onload="renderMathInElement(document.body);"></script></head><body>
     <a href="#main" class="visually-hidden-focusable">Skip to contents</a>
 
 
@@ -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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</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">
@@ -53,7 +53,7 @@ Breakpoints are currently implemented from EUCAST 2011-2025 and CLSI 2011-2025,
 
     <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/pkg/data.table/man/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>
+<p>Breakpoints are currently implemented from EUCAST 2011-2026 and CLSI 2011-2026, 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>
 
     <div class="section level2">
@@ -118,11 +118,11 @@ Breakpoints are currently implemented from EUCAST 2011-2025 and CLSI 2011-2025,
 
     <div class="section level2">
     <h2 id="source">Source<a class="anchor" aria-label="anchor" href="#source"></a></h2>
-    <p>For interpretations of minimum inhibitory concentration (MIC) values and disk diffusion diameters:</p><ul><li><p><strong>CLSI M39: Analysis and Presentation of Cumulative Antimicrobial Susceptibility Test Data</strong>, 2011-2025, <em>Clinical and Laboratory Standards Institute</em> (CLSI). <a href="https://clsi.org/standards/products/microbiology/documents/m39/" class="external-link">https://clsi.org/standards/products/microbiology/documents/m39/</a>.</p></li>
-<li><p><strong>CLSI M100: Performance Standard for Antimicrobial Susceptibility Testing</strong>, 2011-2025, <em>Clinical and Laboratory Standards Institute</em> (CLSI). <a href="https://clsi.org/standards/products/microbiology/documents/m100/" class="external-link">https://clsi.org/standards/products/microbiology/documents/m100/</a>.</p></li>
-<li><p><strong>CLSI VET01: Performance Standards for Antimicrobial Disk and Dilution Susceptibility Tests for Bacteria Isolated From Animals</strong>, 2019-2025, <em>Clinical and Laboratory Standards Institute</em> (CLSI). <a href="https://clsi.org/standards/products/veterinary-medicine/documents/vet01/" class="external-link">https://clsi.org/standards/products/veterinary-medicine/documents/vet01/</a>.</p></li>
-<li><p><strong>EUCAST Breakpoint tables for interpretation of MICs and zone diameters</strong>, 2011-2025, <em>European Committee on Antimicrobial Susceptibility Testing</em> (EUCAST). <a href="https://www.eucast.org/bacteria/clinical-breakpoints-and-interpretation/clinical-breakpoint-tables/" class="external-link">https://www.eucast.org/bacteria/clinical-breakpoints-and-interpretation/clinical-breakpoint-tables/</a>.</p></li>
-<li><p><strong>WHONET</strong> as a source for machine-reading the clinical breakpoints (<a href="https://amr-for-r.org/reference/clinical_breakpoints.html#imported-from-whonet">read more here</a>), 1989-2025, <em>WHO Collaborating Centre for Surveillance of Antimicrobial Resistance</em>. <a href="https://whonet.org/" class="external-link">https://whonet.org/</a>.</p></li>
+    <p>For interpretations of minimum inhibitory concentration (MIC) values and disk diffusion diameters:</p><ul><li><p><strong>CLSI M39: Analysis and Presentation of Cumulative Antimicrobial Susceptibility Test Data</strong>, 2011-2026, <em>Clinical and Laboratory Standards Institute</em> (CLSI). <a href="https://clsi.org/standards/products/microbiology/documents/m39/" class="external-link">https://clsi.org/standards/products/microbiology/documents/m39/</a>.</p></li>
+<li><p><strong>CLSI M100: Performance Standard for Antimicrobial Susceptibility Testing</strong>, 2011-2026, <em>Clinical and Laboratory Standards Institute</em> (CLSI). <a href="https://clsi.org/standards/products/microbiology/documents/m100/" class="external-link">https://clsi.org/standards/products/microbiology/documents/m100/</a>.</p></li>
+<li><p><strong>CLSI VET01: Performance Standards for Antimicrobial Disk and Dilution Susceptibility Tests for Bacteria Isolated From Animals</strong>, 2019-2026, <em>Clinical and Laboratory Standards Institute</em> (CLSI). <a href="https://clsi.org/standards/products/veterinary-medicine/documents/vet01/" class="external-link">https://clsi.org/standards/products/veterinary-medicine/documents/vet01/</a>.</p></li>
+<li><p><strong>EUCAST Breakpoint tables for interpretation of MICs and zone diameters</strong>, 2011-2026, <em>European Committee on Antimicrobial Susceptibility Testing</em> (EUCAST). <a href="https://www.eucast.org/bacteria/clinical-breakpoints-and-interpretation/clinical-breakpoint-tables/" class="external-link">https://www.eucast.org/bacteria/clinical-breakpoints-and-interpretation/clinical-breakpoint-tables/</a>.</p></li>
+<li><p><strong>WHONET</strong> as a source for machine-reading the clinical breakpoints (<a href="https://amr-for-r.org/reference/clinical_breakpoints.html#imported-from-whonet">read more here</a>), 1989-2026, <em>WHO Collaborating Centre for Surveillance of Antimicrobial Resistance</em>. <a href="https://whonet.org/" class="external-link">https://whonet.org/</a>.</p></li>
 </ul></div>
     <div class="section level2">
     <h2 id="arguments">Arguments<a class="anchor" aria-label="anchor" href="#arguments"></a></h2>
@@ -158,7 +158,7 @@ Breakpoints are currently implemented from EUCAST 2011-2025 and CLSI 2011-2025,
 
 
 <dt id="arg-guideline">guideline<a class="anchor" aria-label="anchor" href="#arg-guideline"></a></dt>
-<dd><p>A guideline name (or column name) to use for SIR interpretation. Defaults to EUCAST 2025 (the latest implemented EUCAST guideline in the <a href="clinical_breakpoints.html">clinical_breakpoints</a> data set), but can be set with the package option <code><a href="AMR-options.html">AMR_guideline</a></code>. Currently supports EUCAST (2011-2025) and CLSI (2011-2025), see <em>Details</em>. Using a column name allows for straightforward interpretation of historical data, which must be analysed in the context of, for example, different years.</p></dd>
+<dd><p>A guideline name (or column name) to use for SIR interpretation. Defaults to EUCAST 2026 (the latest implemented EUCAST guideline in the <a href="clinical_breakpoints.html">clinical_breakpoints</a> data set), but can be set with the package option <code><a href="AMR-options.html">AMR_guideline</a></code>. Currently supports EUCAST (2011-2026) and CLSI (2011-2026), see <em>Details</em>. Using a column name allows for straightforward interpretation of historical data, which must be analysed in the context of, for example, different years.</p></dd>
 
 
 <dt id="arg-uti">uti<a class="anchor" aria-label="anchor" href="#arg-uti"></a></dt>
@@ -283,10 +283,10 @@ Breakpoints are currently implemented from EUCAST 2011-2025 and CLSI 2011-2025,
 <h3 id="supported-guidelines">Supported Guidelines<a class="anchor" aria-label="anchor" href="#supported-guidelines"></a></h3>
 
 
-<p>For interpreting MIC values as well as disk diffusion diameters, currently implemented guidelines are:</p><ul><li><p>For <strong>clinical microbiology</strong>: EUCAST 2011-2025 and CLSI 2011-2025;</p></li>
-<li><p>For <strong>veterinary microbiology</strong>: EUCAST 2021-2025 and CLSI 2019-2025;</p></li>
-<li><p>For <strong>ECOFFs</strong> (Epidemiological Cut-off Values): EUCAST 2020-2025 and CLSI 2022-2025.</p></li>
-</ul><p>The <code>guideline</code> argument must be set to e.g., <code>"EUCAST 2025"</code> or <code>"CLSI 2025"</code>. By simply using <code>"EUCAST"</code> (the default) or <code>"CLSI"</code> as input, the latest included version of that guideline will automatically be selected. Importantly, using a column name of your data instead, allows for straightforward interpretation of historical data that must be analysed in the context of, for example, different years.</p>
+<p>For interpreting MIC values as well as disk diffusion diameters, currently implemented guidelines are:</p><ul><li><p>For <strong>clinical microbiology</strong>: EUCAST 2011-2026 and CLSI 2011-2026;</p></li>
+<li><p>For <strong>veterinary microbiology</strong>: EUCAST 2021-2026 and CLSI 2019-2026;</p></li>
+<li><p>For <strong>ECOFFs</strong> (Epidemiological Cut-off Values): EUCAST 2020-2026 and CLSI 2022-2026.</p></li>
+</ul><p>The <code>guideline</code> argument must be set to e.g., <code>"EUCAST 2026"</code> or <code>"CLSI 2026"</code>. By simply using <code>"EUCAST"</code> (the default) or <code>"CLSI"</code> as input, the latest included version of that guideline will automatically be selected. Importantly, using a column name of your data instead, allows for straightforward interpretation of historical data that must be analysed in the context of, for example, different years.</p>
 <p>You can set your own data set using the <code>reference_data</code> argument. The <code>guideline</code> argument will then be ignored.</p>
 <p>It is also possible to set the default guideline with the package option <code><a href="AMR-options.html">AMR_guideline</a></code> (e.g. in your <code>.Rprofile</code> file), such as:</p>
 <p></p><div class="sourceCode"><pre><code><span id="cb1-1"><a href="#cb1-1" tabindex="-1"></a>  <span class="fu">options</span>(<span class="at">AMR_guideline =</span> <span class="st">"CLSI"</span>)</span>
@@ -424,10 +424,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> 2026-03-24 <span style="color: #949494;">12:30:17</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-03-24 <span style="color: #949494;">12:30:17</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-03-24 <span style="color: #949494;">12:30:18</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-03-24 <span style="color: #949494;">12:30:18</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-03-30 <span style="color: #949494;">08:14:10</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-03-30 <span style="color: #949494;">08:14:10</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-03-30 <span style="color: #949494;">08:14:10</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-03-30 <span style="color: #949494;">08:14:11</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 50f03a59c..2d13f293b 100644
--- a/reference/as.sir.md
+++ b/reference/as.sir.md
@@ -7,8 +7,8 @@ which is an ordered
 [factor](https://rdrr.io/pkg/data.table/man/fctr.html) containing the
 levels `S`, `SDD`, `I`, `R`, `NI`.
 
-Breakpoints are currently implemented from EUCAST 2011-2025 and CLSI
-2011-2025, see *Details*. All breakpoints used for interpretation are
+Breakpoints are currently implemented from EUCAST 2011-2026 and CLSI
+2011-2026, see *Details*. All breakpoints used for interpretation are
 available in our
 [clinical_breakpoints](https://amr-for-r.org/reference/clinical_breakpoints.md)
 data set.
@@ -80,29 +80,29 @@ For interpretations of minimum inhibitory concentration (MIC) values and
 disk diffusion diameters:
 
 - **CLSI M39: Analysis and Presentation of Cumulative Antimicrobial
-  Susceptibility Test Data**, 2011-2025, *Clinical and Laboratory
+  Susceptibility Test Data**, 2011-2026, *Clinical and Laboratory
   Standards Institute* (CLSI).
   <https://clsi.org/standards/products/microbiology/documents/m39/>.
 
 - **CLSI M100: Performance Standard for Antimicrobial Susceptibility
-  Testing**, 2011-2025, *Clinical and Laboratory Standards Institute*
+  Testing**, 2011-2026, *Clinical and Laboratory Standards Institute*
   (CLSI).
   <https://clsi.org/standards/products/microbiology/documents/m100/>.
 
 - **CLSI VET01: Performance Standards for Antimicrobial Disk and
   Dilution Susceptibility Tests for Bacteria Isolated From Animals**,
-  2019-2025, *Clinical and Laboratory Standards Institute* (CLSI).
+  2019-2026, *Clinical and Laboratory Standards Institute* (CLSI).
   <https://clsi.org/standards/products/veterinary-medicine/documents/vet01/>.
 
 - **EUCAST Breakpoint tables for interpretation of MICs and zone
-  diameters**, 2011-2025, *European Committee on Antimicrobial
+  diameters**, 2011-2026, *European Committee on Antimicrobial
   Susceptibility Testing* (EUCAST).
   <https://www.eucast.org/bacteria/clinical-breakpoints-and-interpretation/clinical-breakpoint-tables/>.
 
 - **WHONET** as a source for machine-reading the clinical breakpoints
   ([read more
   here](https://amr-for-r.org/reference/clinical_breakpoints.html#imported-from-whonet)),
-  1989-2025, *WHO Collaborating Centre for Surveillance of Antimicrobial
+  1989-2026, *WHO Collaborating Centre for Surveillance of Antimicrobial
   Resistance*. <https://whonet.org/>.
 
 ## Arguments
@@ -162,12 +162,12 @@ disk diffusion diameters:
 - guideline:
 
   A guideline name (or column name) to use for SIR interpretation.
-  Defaults to EUCAST 2025 (the latest implemented EUCAST guideline in
+  Defaults to EUCAST 2026 (the latest implemented EUCAST guideline in
   the
   [clinical_breakpoints](https://amr-for-r.org/reference/clinical_breakpoints.md)
   data set), but can be set with the package option
   [`AMR_guideline`](https://amr-for-r.org/reference/AMR-options.md).
-  Currently supports EUCAST (2011-2025) and CLSI (2011-2025), see
+  Currently supports EUCAST (2011-2026) and CLSI (2011-2026), see
   *Details*. Using a column name allows for straightforward
   interpretation of historical data, which must be analysed in the
   context of, for example, different years.
@@ -457,15 +457,15 @@ interpretation, and the exact input and output values.
 For interpreting MIC values as well as disk diffusion diameters,
 currently implemented guidelines are:
 
-- For **clinical microbiology**: EUCAST 2011-2025 and CLSI 2011-2025;
+- For **clinical microbiology**: EUCAST 2011-2026 and CLSI 2011-2026;
 
-- For **veterinary microbiology**: EUCAST 2021-2025 and CLSI 2019-2025;
+- For **veterinary microbiology**: EUCAST 2021-2026 and CLSI 2019-2026;
 
-- For **ECOFFs** (Epidemiological Cut-off Values): EUCAST 2020-2025 and
-  CLSI 2022-2025.
+- For **ECOFFs** (Epidemiological Cut-off Values): EUCAST 2020-2026 and
+  CLSI 2022-2026.
 
-The `guideline` argument must be set to e.g., `"EUCAST 2025"` or
-`"CLSI 2025"`. By simply using `"EUCAST"` (the default) or `"CLSI"` as
+The `guideline` argument must be set to e.g., `"EUCAST 2026"` or
+`"CLSI 2026"`. By simply using `"EUCAST"` (the default) or `"CLSI"` as
 input, the latest included version of that guideline will automatically
 be selected. Importantly, using a column name of your data instead,
 allows for straightforward interpretation of historical data that must
@@ -660,10 +660,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 2026-03-24 12:30:17     1 MIC    amoxicillin Escherich… human      8          
-#> 2 2026-03-24 12:30:17     1 MIC    cipro       Escherich… human      0.256      
-#> 3 2026-03-24 12:30:18     1 DISK   tobra       Escherich… human      16         
-#> 4 2026-03-24 12:30:18     1 DISK   genta       Escherich… human      18         
+#> 1 2026-03-30 08:14:10     1 MIC    amoxicillin Escherich… human      8          
+#> 2 2026-03-30 08:14:10     1 MIC    cipro       Escherich… human      0.256      
+#> 3 2026-03-30 08:14:10     1 DISK   tobra       Escherich… human      16         
+#> 4 2026-03-30 08:14:11     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 d5cdf56ea..90faa39dc 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</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 b35c8ca2b..904fd7e78 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</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 6b06e0872..432a5500b 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</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 935dc6a43..974abc0de 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</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 6386897a9..fb4312b95 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/clinical_breakpoints.html b/reference/clinical_breakpoints.html
index fd02954f9..da23e49f9 100644
--- a/reference/clinical_breakpoints.html
+++ b/reference/clinical_breakpoints.html
@@ -1,16 +1,16 @@
 <!DOCTYPE html>
 <!-- Generated by pkgdown: do not edit by hand --><html lang="en"><head><meta http-equiv="Content-Type" content="text/html; charset=UTF-8"><meta charset="utf-8"><meta http-equiv="X-UA-Compatible" content="IE=edge"><meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no"><title>Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints • AMR (for R)</title><!-- favicons --><link rel="icon" type="image/png" sizes="96x96" href="../favicon-96x96.png"><link rel="icon" type="”image/svg+xml”" href="../favicon.svg"><link rel="apple-touch-icon" sizes="180x180" href="../apple-touch-icon.png"><link rel="icon" sizes="any" href="../favicon.ico"><link rel="manifest" href="../site.webmanifest"><script src="../deps/jquery-3.6.0/jquery-3.6.0.min.js"></script><meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no"><link href="../deps/bootstrap-5.3.1/bootstrap.min.css" rel="stylesheet"><script src="../deps/bootstrap-5.3.1/bootstrap.bundle.min.js"></script><link href="../deps/Lato-0.4.10/font.css" rel="stylesheet"><link href="../deps/Fira_Code-0.4.10/font.css" rel="stylesheet"><link href="../deps/font-awesome-6.5.2/css/all.min.css" rel="stylesheet"><link href="../deps/font-awesome-6.5.2/css/v4-shims.min.css" rel="stylesheet"><script src="../deps/headroom-0.11.0/headroom.min.js"></script><script src="../deps/headroom-0.11.0/jQuery.headroom.min.js"></script><script src="../deps/bootstrap-toc-1.0.1/bootstrap-toc.min.js"></script><script src="../deps/clipboard.js-2.0.11/clipboard.min.js"></script><script src="../deps/search-1.0.0/autocomplete.jquery.min.js"></script><script src="../deps/search-1.0.0/fuse.min.js"></script><script src="../deps/search-1.0.0/mark.min.js"></script><!-- pkgdown --><script src="../pkgdown.js"></script><link href="../extra.css" rel="stylesheet"><script src="../extra.js"></script><meta property="og:title" content="Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints"><meta name="description" content="Data set containing clinical breakpoints to interpret MIC and disk diffusion to SIR values, according to international guidelines. This data set contains breakpoints for humans, 7 different animal groups, and ECOFFs.
 These breakpoints are currently implemented:
-For clinical microbiology: EUCAST 2011-2025 and CLSI 2011-2025;
-For veterinary microbiology: EUCAST 2021-2025 and CLSI 2019-2025;
-For ECOFFs (Epidemiological Cut-off Values): EUCAST 2020-2025 and CLSI 2022-2025.
+For clinical microbiology: EUCAST 2011-2026 and CLSI 2011-2026;
+For veterinary microbiology: EUCAST 2021-2026 and CLSI 2019-2026;
+For ECOFFs (Epidemiological Cut-off Values): EUCAST 2020-2026 and CLSI 2022-2026.
 
 
 Use as.sir() to transform MICs or disks measurements to SIR values."><meta property="og:description" content="Data set containing clinical breakpoints to interpret MIC and disk diffusion to SIR values, according to international guidelines. This data set contains breakpoints for humans, 7 different animal groups, and ECOFFs.
 These breakpoints are currently implemented:
-For clinical microbiology: EUCAST 2011-2025 and CLSI 2011-2025;
-For veterinary microbiology: EUCAST 2021-2025 and CLSI 2019-2025;
-For ECOFFs (Epidemiological Cut-off Values): EUCAST 2020-2025 and CLSI 2022-2025.
+For clinical microbiology: EUCAST 2011-2026 and CLSI 2011-2026;
+For veterinary microbiology: EUCAST 2021-2026 and CLSI 2019-2026;
+For ECOFFs (Epidemiological Cut-off Values): EUCAST 2020-2026 and CLSI 2022-2026.
 
 
 Use as.sir() to transform MICs or disks measurements to SIR values."><meta property="og:image" content="https://amr-for-r.org/logo.svg"><link rel="stylesheet" href="https://cdn.jsdelivr.net/npm/katex@0.16.11/dist/katex.min.css" integrity="sha384-nB0miv6/jRmo5UMMR1wu3Gz6NLsoTkbqJghGIsx//Rlm+ZU03BU6SQNC66uf4l5+" crossorigin="anonymous"><script defer src="https://cdn.jsdelivr.net/npm/katex@0.16.11/dist/katex.min.js" integrity="sha384-7zkQWkzuo3B5mTepMUcHkMB5jZaolc2xDwL6VFqjFALcbeS9Ggm/Yr2r3Dy4lfFg" crossorigin="anonymous"></script><script defer src="https://cdn.jsdelivr.net/npm/katex@0.16.11/dist/contrib/auto-render.min.js" integrity="sha384-43gviWU0YVjaDtb/GhzOouOXtZMP/7XUzwPTstBeZFe/+rCMvRwr4yROQP43s0Xk" crossorigin="anonymous" onload="renderMathInElement(document.body);"></script></head><body>
@@ -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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</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">
@@ -65,9 +65,9 @@ Use as.sir() to transform MICs or disks measurements to SIR values."><meta prope
 
     <div class="ref-description section level2">
     <p>Data set containing clinical breakpoints to interpret MIC and disk diffusion to SIR values, according to international guidelines. This data set contains breakpoints for humans, 7 different animal groups, and ECOFFs.</p>
-<p>These breakpoints are currently implemented:</p><ul><li><p>For <strong>clinical microbiology</strong>: EUCAST 2011-2025 and CLSI 2011-2025;</p></li>
-<li><p>For <strong>veterinary microbiology</strong>: EUCAST 2021-2025 and CLSI 2019-2025;</p></li>
-<li><p>For <strong>ECOFFs</strong> (Epidemiological Cut-off Values): EUCAST 2020-2025 and CLSI 2022-2025.</p></li>
+<p>These breakpoints are currently implemented:</p><ul><li><p>For <strong>clinical microbiology</strong>: EUCAST 2011-2026 and CLSI 2011-2026;</p></li>
+<li><p>For <strong>veterinary microbiology</strong>: EUCAST 2021-2026 and CLSI 2019-2026;</p></li>
+<li><p>For <strong>ECOFFs</strong> (Epidemiological Cut-off Values): EUCAST 2020-2026 and CLSI 2022-2026.</p></li>
 </ul><p>Use <code><a href="as.sir.html">as.sir()</a></code> to transform MICs or disks measurements to SIR values.</p>
     </div>
 
@@ -78,7 +78,7 @@ Use as.sir() to transform MICs or disks measurements to SIR values."><meta prope
 
     <div class="section level2">
     <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 40 217 observations and 14 variables:</p><ul><li><p><code>guideline</code><br> Name of the guideline</p></li>
+    <p>A <a href="https://tibble.tidyverse.org/reference/tibble.html" class="external-link">tibble</a> with 45 797 observations and 14 variables:</p><ul><li><p><code>guideline</code><br> Name of the guideline</p></li>
 <li><p><code>type</code><br> Breakpoint type, either "ECOFF", "animal", or "human"</p></li>
 <li><p><code>host</code><br> Host of infectious agent. This is mostly useful for veterinary breakpoints and is either "ECOFF", "aquatic", "cats", "cattle", "dogs", "horse", "human", "poultry", or "swine"</p></li>
 <li><p><code>method</code><br> Testing method, either "DISK" or "MIC"</p></li>
@@ -91,7 +91,7 @@ Use as.sir() to transform MICs or disks measurements to SIR values."><meta prope
 <li><p><code>breakpoint_S</code><br> Lowest MIC value or highest number of millimetres that leads to "S"</p></li>
 <li><p><code>breakpoint_R</code><br> Highest MIC value or lowest number of millimetres that leads to "R", can be <code>NA</code></p></li>
 <li><p><code>uti</code><br> A <a href="https://rdrr.io/r/base/logical.html" class="external-link">logical</a> value (<code>TRUE</code>/<code>FALSE</code>) to indicate whether the rule applies to a urinary tract infection (UTI)</p></li>
-<li><p><code>is_SDD</code><br> A <a href="https://rdrr.io/r/base/logical.html" class="external-link">logical</a> value (<code>TRUE</code>/<code>FALSE</code>) to indicate whether the intermediate range between "S" and "R" should be interpreted as "SDD", instead of "I". This currently applies to 48 breakpoints.</p></li>
+<li><p><code>is_SDD</code><br> A <a href="https://rdrr.io/r/base/logical.html" class="external-link">logical</a> value (<code>TRUE</code>/<code>FALSE</code>) to indicate whether the intermediate range between "S" and "R" should be interpreted as "SDD", instead of "I". This currently applies to 72 breakpoints.</p></li>
 </ul></div>
     <div class="section level2">
     <h2 id="details">Details<a class="anchor" aria-label="anchor" href="#details"></a></h2>
@@ -143,20 +143,20 @@ Use as.sir() to transform MICs or disks measurements to SIR values."><meta prope
     <div class="section level2">
     <h2 id="ref-examples">Examples<a class="anchor" aria-label="anchor" href="#ref-examples"></a></h2>
     <div class="sourceCode"><pre class="sourceCode r"><code><span class="r-in"><span><span class="va">clinical_breakpoints</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># A tibble: 40,217 × 14</span></span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># A tibble: 45,797 × 14</span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>    guideline   type  host  method site    mo            rank_index ab   ref_tbl </span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>    <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>       <span style="color: #949494; font-style: italic;">&lt;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;mo&gt;</span>               <span style="color: #949494; font-style: italic;">&lt;dbl&gt;</span> <span style="color: #949494; font-style: italic;">&lt;ab&gt;</span> <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>   </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 1</span> EUCAST 2025 human human DISK   <span style="color: #BB0000;">NA</span>      <span style="color: #949494;">B_</span>ACHRMB<span style="color: #949494;">_</span>XYLS          2 MEM  A. xylo…</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> EUCAST 2025 human human MIC    <span style="color: #BB0000;">NA</span>      <span style="color: #949494;">B_</span>ACHRMB<span style="color: #949494;">_</span>XYLS          2 MEM  A. xylo…</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> EUCAST 2025 human human DISK   <span style="color: #BB0000;">NA</span>      <span style="color: #949494;">B_</span>ACHRMB<span style="color: #949494;">_</span>XYLS          2 SXT  A. xylo…</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> EUCAST 2025 human human MIC    <span style="color: #BB0000;">NA</span>      <span style="color: #949494;">B_</span>ACHRMB<span style="color: #949494;">_</span>XYLS          2 SXT  A. xylo…</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> EUCAST 2025 human human DISK   <span style="color: #BB0000;">NA</span>      <span style="color: #949494;">B_</span>ACHRMB<span style="color: #949494;">_</span>XYLS          2 TZP  A. xylo…</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> EUCAST 2025 human human MIC    <span style="color: #BB0000;">NA</span>      <span style="color: #949494;">B_</span>ACHRMB<span style="color: #949494;">_</span>XYLS          2 TZP  A. xylo…</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> EUCAST 2025 human human DISK   <span style="color: #BB0000;">NA</span>      <span style="color: #949494;">B_</span>ACNTB                3 AMK  Acineto…</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> EUCAST 2025 human human DISK   Uncomp… <span style="color: #949494;">B_</span>ACNTB                3 AMK  Acineto…</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> EUCAST 2025 human human MIC    <span style="color: #BB0000;">NA</span>      <span style="color: #949494;">B_</span>ACNTB                3 AMK  Acineto…</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> EUCAST 2025 human human MIC    Uncomp… <span style="color: #949494;">B_</span>ACNTB                3 AMK  Acineto…</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># ℹ 40,207 more rows</span></span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 1</span> EUCAST 2026 human human DISK   <span style="color: #BB0000;">NA</span>      <span style="color: #949494;">B_</span>ACHRMB<span style="color: #949494;">_</span>XYLS          2 MEM  A. xylo…</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> EUCAST 2026 human human MIC    <span style="color: #BB0000;">NA</span>      <span style="color: #949494;">B_</span>ACHRMB<span style="color: #949494;">_</span>XYLS          2 MEM  A. xylo…</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> EUCAST 2026 human human DISK   <span style="color: #BB0000;">NA</span>      <span style="color: #949494;">B_</span>ACHRMB<span style="color: #949494;">_</span>XYLS          2 SXT  A. xylo…</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> EUCAST 2026 human human MIC    <span style="color: #BB0000;">NA</span>      <span style="color: #949494;">B_</span>ACHRMB<span style="color: #949494;">_</span>XYLS          2 SXT  A. xylo…</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> EUCAST 2026 human human DISK   <span style="color: #BB0000;">NA</span>      <span style="color: #949494;">B_</span>ACHRMB<span style="color: #949494;">_</span>XYLS          2 TZP  A. xylo…</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> EUCAST 2026 human human MIC    <span style="color: #BB0000;">NA</span>      <span style="color: #949494;">B_</span>ACHRMB<span style="color: #949494;">_</span>XYLS          2 TZP  A. xylo…</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> EUCAST 2026 human human DISK   <span style="color: #BB0000;">NA</span>      <span style="color: #949494;">B_</span>ACNTB                3 AMK  Acineto…</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> EUCAST 2026 human human DISK   Uncomp… <span style="color: #949494;">B_</span>ACNTB                3 AMK  Acineto…</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> EUCAST 2026 human human MIC    <span style="color: #BB0000;">NA</span>      <span style="color: #949494;">B_</span>ACNTB                3 AMK  Acineto…</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> EUCAST 2026 human human MIC    Uncomp… <span style="color: #949494;">B_</span>ACNTB                3 AMK  Acineto…</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># ℹ 45,787 more rows</span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># ℹ 5 more variables: disk_dose &lt;chr&gt;, breakpoint_S &lt;dbl&gt;, breakpoint_R &lt;dbl&gt;,</span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;">#   uti &lt;lgl&gt;, is_SDD &lt;lgl&gt;</span></span>
 </code></pre></div>
diff --git a/reference/clinical_breakpoints.md b/reference/clinical_breakpoints.md
index bd632457a..2da3559c0 100644
--- a/reference/clinical_breakpoints.md
+++ b/reference/clinical_breakpoints.md
@@ -7,12 +7,12 @@ ECOFFs.
 
 These breakpoints are currently implemented:
 
-- For **clinical microbiology**: EUCAST 2011-2025 and CLSI 2011-2025;
+- For **clinical microbiology**: EUCAST 2011-2026 and CLSI 2011-2026;
 
-- For **veterinary microbiology**: EUCAST 2021-2025 and CLSI 2019-2025;
+- For **veterinary microbiology**: EUCAST 2021-2026 and CLSI 2019-2026;
 
-- For **ECOFFs** (Epidemiological Cut-off Values): EUCAST 2020-2025 and
-  CLSI 2022-2025.
+- For **ECOFFs** (Epidemiological Cut-off Values): EUCAST 2020-2026 and
+  CLSI 2022-2026.
 
 Use [`as.sir()`](https://amr-for-r.org/reference/as.sir.md) to transform
 MICs or disks measurements to SIR values.
@@ -25,8 +25,8 @@ clinical_breakpoints
 
 ## Format
 
-A [tibble](https://tibble.tidyverse.org/reference/tibble.html) with 40
-217 observations and 14 variables:
+A [tibble](https://tibble.tidyverse.org/reference/tibble.html) with 45
+797 observations and 14 variables:
 
 - `guideline`  
   Name of the guideline
@@ -80,7 +80,7 @@ A [tibble](https://tibble.tidyverse.org/reference/tibble.html) with 40
   A [logical](https://rdrr.io/r/base/logical.html) value
   (`TRUE`/`FALSE`) to indicate whether the intermediate range between
   "S" and "R" should be interpreted as "SDD", instead of "I". This
-  currently applies to 48 breakpoints.
+  currently applies to 72 breakpoints.
 
 ## Details
 
@@ -154,20 +154,20 @@ repository](https://github.com/msberends/AMR/tree/main/data-raw/datasets).
 
 ``` r
 clinical_breakpoints
-#> # A tibble: 40,217 × 14
+#> # A tibble: 45,797 × 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
+#>  1 EUCAST 2026 human human DISK   NA      B_ACHRMB_XYLS          2 MEM  A. xylo…
+#>  2 EUCAST 2026 human human MIC    NA      B_ACHRMB_XYLS          2 MEM  A. xylo…
+#>  3 EUCAST 2026 human human DISK   NA      B_ACHRMB_XYLS          2 SXT  A. xylo…
+#>  4 EUCAST 2026 human human MIC    NA      B_ACHRMB_XYLS          2 SXT  A. xylo…
+#>  5 EUCAST 2026 human human DISK   NA      B_ACHRMB_XYLS          2 TZP  A. xylo…
+#>  6 EUCAST 2026 human human MIC    NA      B_ACHRMB_XYLS          2 TZP  A. xylo…
+#>  7 EUCAST 2026 human human DISK   NA      B_ACNTB                3 AMK  Acineto…
+#>  8 EUCAST 2026 human human DISK   Uncomp… B_ACNTB                3 AMK  Acineto…
+#>  9 EUCAST 2026 human human MIC    NA      B_ACNTB                3 AMK  Acineto…
+#> 10 EUCAST 2026 human human MIC    Uncomp… B_ACNTB                3 AMK  Acineto…
+#> # ℹ 45,787 more rows
 #> # ℹ 5 more variables: disk_dose <chr>, breakpoint_S <dbl>, breakpoint_R <dbl>,
 #> #   uti <lgl>, is_SDD <lgl>
 ```
diff --git a/reference/count.html b/reference/count.html
index 10d7a94d1..177f85e92 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</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 b56f83619..0ed47f509 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</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_mdro_guideline.html b/reference/custom_mdro_guideline.html
index 565d2e5b1..153907fc1 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/dosage.html b/reference/dosage.html
index f741755ca..afd18bd1b 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</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 025954901..6846bd278 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</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 90a7c8dd3..8ae61fe89 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</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 164cedbbd..a4a8ab6c8 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</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 d4a01faae..681c69308 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</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 7082e0e98..a63141460 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</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 17e2fecb8..52722fdd5 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</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 6c51a4149..ae6d3d62f 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</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 e1fe748ee..69600491a 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</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 cb6dd1a92..637333054 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</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 344a74364..c1d0bbfb5 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</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 1f9961aca..d3e6d7372 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</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">
@@ -421,7 +421,7 @@
           <code><a href="microorganisms.codes.html">microorganisms.codes</a></code>
 
         </dt>
-        <dd>Data Set with 6 036 Common Microorganism Codes</dd>
+        <dd>Data Set with 6 050 Common Microorganism Codes</dd>
 
         <dt>
 
diff --git a/reference/index.md b/reference/index.md
index 58a18aeda..a7da32a9a 100644
--- a/reference/index.md
+++ b/reference/index.md
@@ -402,7 +402,7 @@ information about how to work with functions in this package.
 - [`esbl_isolates`](https://amr-for-r.org/reference/esbl_isolates.md) :
   Data Set with 500 ESBL Isolates
 - [`microorganisms.codes`](https://amr-for-r.org/reference/microorganisms.codes.md)
-  : Data Set with 6 036 Common Microorganism Codes
+  : Data Set with 6 050 Common Microorganism Codes
 - [`microorganisms.groups`](https://amr-for-r.org/reference/microorganisms.groups.md)
   : Data Set with 534 Microorganisms In Species Groups
 - [`intrinsic_resistant`](https://amr-for-r.org/reference/intrinsic_resistant.md)
diff --git a/reference/interpretive_rules.html b/reference/interpretive_rules.html
index c122caf2e..3e476e11b 100644
--- a/reference/interpretive_rules.html
+++ b/reference/interpretive_rules.html
@@ -9,7 +9,7 @@ To improve the interpretation of the antibiogram before CLSI/EUCAST interpretive
 
     <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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/intrinsic_resistant.html b/reference/intrinsic_resistant.html
index 464339f99..07a3c623b 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</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 30b849baf..757d9453a 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</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 153fae526..ad377da71 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</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 1c960e522..732824d35 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</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 947b4d853..1f38662a0 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</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 940db2c16..f4f004373 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</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 ced5a3c54..b6817b146 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/mean_amr_distance.html b/reference/mean_amr_distance.html
index 4367616b7..eb3dc41c8 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</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 0630b5b33..714035b73 100644
--- a/reference/microorganisms.codes.html
+++ b/reference/microorganisms.codes.html
@@ -1,5 +1,5 @@
 <!DOCTYPE html>
-<!-- Generated by pkgdown: do not edit by hand --><html lang="en"><head><meta http-equiv="Content-Type" content="text/html; charset=UTF-8"><meta charset="utf-8"><meta http-equiv="X-UA-Compatible" content="IE=edge"><meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no"><title>Data Set with 6 036 Common Microorganism Codes — microorganisms.codes • AMR (for R)</title><!-- favicons --><link rel="icon" type="image/png" sizes="96x96" href="../favicon-96x96.png"><link rel="icon" type="”image/svg+xml”" href="../favicon.svg"><link rel="apple-touch-icon" sizes="180x180" href="../apple-touch-icon.png"><link rel="icon" sizes="any" href="../favicon.ico"><link rel="manifest" href="../site.webmanifest"><script src="../deps/jquery-3.6.0/jquery-3.6.0.min.js"></script><meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no"><link href="../deps/bootstrap-5.3.1/bootstrap.min.css" rel="stylesheet"><script src="../deps/bootstrap-5.3.1/bootstrap.bundle.min.js"></script><link href="../deps/Lato-0.4.10/font.css" rel="stylesheet"><link href="../deps/Fira_Code-0.4.10/font.css" rel="stylesheet"><link href="../deps/font-awesome-6.5.2/css/all.min.css" rel="stylesheet"><link href="../deps/font-awesome-6.5.2/css/v4-shims.min.css" rel="stylesheet"><script src="../deps/headroom-0.11.0/headroom.min.js"></script><script src="../deps/headroom-0.11.0/jQuery.headroom.min.js"></script><script src="../deps/bootstrap-toc-1.0.1/bootstrap-toc.min.js"></script><script src="../deps/clipboard.js-2.0.11/clipboard.min.js"></script><script src="../deps/search-1.0.0/autocomplete.jquery.min.js"></script><script src="../deps/search-1.0.0/fuse.min.js"></script><script src="../deps/search-1.0.0/mark.min.js"></script><!-- pkgdown --><script src="../pkgdown.js"></script><link href="../extra.css" rel="stylesheet"><script src="../extra.js"></script><meta property="og:title" content="Data Set with 6 036 Common Microorganism Codes — microorganisms.codes"><meta name="description" content="A data set containing commonly used codes for microorganisms, from laboratory systems and WHONET. Define your own with set_mo_source(). They will all be searched when using as.mo() and consequently all the mo_* functions."><meta property="og:description" content="A data set containing commonly used codes for microorganisms, from laboratory systems and WHONET. Define your own with set_mo_source(). They will all be searched when using as.mo() and consequently all the mo_* functions."><meta property="og:image" content="https://amr-for-r.org/logo.svg"><link rel="stylesheet" href="https://cdn.jsdelivr.net/npm/katex@0.16.11/dist/katex.min.css" integrity="sha384-nB0miv6/jRmo5UMMR1wu3Gz6NLsoTkbqJghGIsx//Rlm+ZU03BU6SQNC66uf4l5+" crossorigin="anonymous"><script defer src="https://cdn.jsdelivr.net/npm/katex@0.16.11/dist/katex.min.js" integrity="sha384-7zkQWkzuo3B5mTepMUcHkMB5jZaolc2xDwL6VFqjFALcbeS9Ggm/Yr2r3Dy4lfFg" crossorigin="anonymous"></script><script defer src="https://cdn.jsdelivr.net/npm/katex@0.16.11/dist/contrib/auto-render.min.js" integrity="sha384-43gviWU0YVjaDtb/GhzOouOXtZMP/7XUzwPTstBeZFe/+rCMvRwr4yROQP43s0Xk" crossorigin="anonymous" onload="renderMathInElement(document.body);"></script></head><body>
+<!-- Generated by pkgdown: do not edit by hand --><html lang="en"><head><meta http-equiv="Content-Type" content="text/html; charset=UTF-8"><meta charset="utf-8"><meta http-equiv="X-UA-Compatible" content="IE=edge"><meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no"><title>Data Set with 6 050 Common Microorganism Codes — microorganisms.codes • AMR (for R)</title><!-- favicons --><link rel="icon" type="image/png" sizes="96x96" href="../favicon-96x96.png"><link rel="icon" type="”image/svg+xml”" href="../favicon.svg"><link rel="apple-touch-icon" sizes="180x180" href="../apple-touch-icon.png"><link rel="icon" sizes="any" href="../favicon.ico"><link rel="manifest" href="../site.webmanifest"><script src="../deps/jquery-3.6.0/jquery-3.6.0.min.js"></script><meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no"><link href="../deps/bootstrap-5.3.1/bootstrap.min.css" rel="stylesheet"><script src="../deps/bootstrap-5.3.1/bootstrap.bundle.min.js"></script><link href="../deps/Lato-0.4.10/font.css" rel="stylesheet"><link href="../deps/Fira_Code-0.4.10/font.css" rel="stylesheet"><link href="../deps/font-awesome-6.5.2/css/all.min.css" rel="stylesheet"><link href="../deps/font-awesome-6.5.2/css/v4-shims.min.css" rel="stylesheet"><script src="../deps/headroom-0.11.0/headroom.min.js"></script><script src="../deps/headroom-0.11.0/jQuery.headroom.min.js"></script><script src="../deps/bootstrap-toc-1.0.1/bootstrap-toc.min.js"></script><script src="../deps/clipboard.js-2.0.11/clipboard.min.js"></script><script src="../deps/search-1.0.0/autocomplete.jquery.min.js"></script><script src="../deps/search-1.0.0/fuse.min.js"></script><script src="../deps/search-1.0.0/mark.min.js"></script><!-- pkgdown --><script src="../pkgdown.js"></script><link href="../extra.css" rel="stylesheet"><script src="../extra.js"></script><meta property="og:title" content="Data Set with 6 050 Common Microorganism Codes — microorganisms.codes"><meta name="description" content="A data set containing commonly used codes for microorganisms, from laboratory systems and WHONET. Define your own with set_mo_source(). They will all be searched when using as.mo() and consequently all the mo_* functions."><meta property="og:description" content="A data set containing commonly used codes for microorganisms, from laboratory systems and WHONET. Define your own with set_mo_source(). They will all be searched when using as.mo() and consequently all the mo_* functions."><meta property="og:image" content="https://amr-for-r.org/logo.svg"><link rel="stylesheet" href="https://cdn.jsdelivr.net/npm/katex@0.16.11/dist/katex.min.css" integrity="sha384-nB0miv6/jRmo5UMMR1wu3Gz6NLsoTkbqJghGIsx//Rlm+ZU03BU6SQNC66uf4l5+" crossorigin="anonymous"><script defer src="https://cdn.jsdelivr.net/npm/katex@0.16.11/dist/katex.min.js" integrity="sha384-7zkQWkzuo3B5mTepMUcHkMB5jZaolc2xDwL6VFqjFALcbeS9Ggm/Yr2r3Dy4lfFg" crossorigin="anonymous"></script><script defer src="https://cdn.jsdelivr.net/npm/katex@0.16.11/dist/contrib/auto-render.min.js" integrity="sha384-43gviWU0YVjaDtb/GhzOouOXtZMP/7XUzwPTstBeZFe/+rCMvRwr4yROQP43s0Xk" crossorigin="anonymous" onload="renderMathInElement(document.body);"></script></head><body>
     <a href="#main" class="visually-hidden-focusable">Skip to contents</a>
 
 
@@ -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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</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">
@@ -44,7 +44,7 @@
 </nav><div class="container template-reference-topic">
 <div class="row">
   <main id="main" class="col-md-9"><div class="page-header">
-      <img src="../logo.svg" class="logo" alt=""><h1>Data Set with 6 036 Common Microorganism Codes</h1>
+      <img src="../logo.svg" class="logo" alt=""><h1>Data Set with 6 050 Common Microorganism Codes</h1>
       <small class="dont-index">Source: <a href="https://github.com/msberends/AMR/blob/main/R/data.R" class="external-link"><code>R/data.R</code></a></small>
       <div class="d-none name"><code>microorganisms.codes.Rd</code></div>
     </div>
@@ -60,7 +60,7 @@
 
     <div class="section level2">
     <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 6 036 observations and 2 variables:</p><ul><li><p><code>code</code><br> Commonly used code of a microorganism. <em><strong>This is a unique identifier.</strong></em></p></li>
+    <p>A <a href="https://tibble.tidyverse.org/reference/tibble.html" class="external-link">tibble</a> with 6 050 observations and 2 variables:</p><ul><li><p><code>code</code><br> Commonly used code of a microorganism. <em><strong>This is a unique identifier.</strong></em></p></li>
 <li><p><code>mo</code><br> ID of the microorganism in the <a href="microorganisms.html">microorganisms</a> data set</p></li>
 </ul></div>
     <div class="section level2">
@@ -79,7 +79,7 @@
     <div class="section level2">
     <h2 id="ref-examples">Examples<a class="anchor" aria-label="anchor" href="#ref-examples"></a></h2>
     <div class="sourceCode"><pre class="sourceCode r"><code><span class="r-in"><span><span class="va">microorganisms.codes</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># A tibble: 6,036 × 2</span></span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># A tibble: 6,050 × 2</span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>    code  mo               </span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>    <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span> <span style="color: #949494; font-style: italic;">&lt;mo&gt;</span>             </span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 1</span> 1011  <span style="color: #949494;">B_</span>GRAMP          </span>
@@ -92,7 +92,7 @@
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> 1100  <span style="color: #949494;">B_</span>STRPT          </span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> 1101  <span style="color: #949494;">B_</span>STRPT<span style="color: #949494;">_</span>VIRI     </span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> 1102  <span style="color: #949494;">B_</span>STRPT<span style="color: #949494;">_</span>HAEM     </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># ℹ 6,026 more rows</span></span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># ℹ 6,040 more rows</span></span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="co"># 'ECO' or 'eco' is the WHONET code for E. coli:</span></span></span>
 <span class="r-in"><span><span class="va">microorganisms.codes</span><span class="op">[</span><span class="va">microorganisms.codes</span><span class="op">$</span><span class="va">code</span> <span class="op">==</span> <span class="st">"ECO"</span>, <span class="op">]</span></span></span>
diff --git a/reference/microorganisms.codes.md b/reference/microorganisms.codes.md
index 322ee452d..885c5319d 100644
--- a/reference/microorganisms.codes.md
+++ b/reference/microorganisms.codes.md
@@ -1,4 +1,4 @@
-# Data Set with 6 036 Common Microorganism Codes
+# Data Set with 6 050 Common Microorganism Codes
 
 A data set containing commonly used codes for microorganisms, from
 laboratory systems and [WHONET](https://whonet.org). Define your own
@@ -17,7 +17,7 @@ microorganisms.codes
 ## Format
 
 A [tibble](https://tibble.tidyverse.org/reference/tibble.html) with 6
-036 observations and 2 variables:
+050 observations and 2 variables:
 
 - `code`  
   Commonly used code of a microorganism. ***This is a unique
@@ -53,7 +53,7 @@ repository](https://github.com/msberends/AMR/tree/main/data-raw/datasets).
 
 ``` r
 microorganisms.codes
-#> # A tibble: 6,036 × 2
+#> # A tibble: 6,050 × 2
 #>    code  mo               
 #>    <chr> <mo>             
 #>  1 1011  B_GRAMP          
@@ -66,7 +66,7 @@ microorganisms.codes
 #>  8 1100  B_STRPT          
 #>  9 1101  B_STRPT_VIRI     
 #> 10 1102  B_STRPT_HAEM     
-#> # ℹ 6,026 more rows
+#> # ℹ 6,040 more rows
 
 # 'ECO' or 'eco' is the WHONET code for E. coli:
 microorganisms.codes[microorganisms.codes$code == "ECO", ]
diff --git a/reference/microorganisms.groups.html b/reference/microorganisms.groups.html
index a433c89e0..a926a7093 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</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 5f0eb4b23..e857085cb 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</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 26e40340e..1c6652668 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</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 1b10eb459..04d079770 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/mo_source.html b/reference/mo_source.html
index cac54bf45..4b39f5451 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</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 de328e3a1..798d8d061 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/plot-15.png b/reference/plot-15.png
index 3b39c32bd20b41536eac17efffd7fd5c5bc567ee..79fa9879be22309b44c04b3c305f343a66929ae6 100644
GIT binary patch
literal 53663
zcmeFZS5#D4+b)W^)mGbp7%_n;QBXvXpsgT<C`y#9A|N23<czefwgiz<KtMprxrmZM
zMM09KM9C<j$f*dD&ok+7?|=X2oQplixj7fxVGq$Rs8wsu`Mytj*OM!kFKk%1YaI&<
z%La<<c|{hMRdy^aD{lU_8voMd_htlttiE~i!g>6OU(@GuUGc}-yRzz*EG&B;lmC`^
zca7?^u<U1{oIk5<_iCWU*6xMM!s4RZ7NH1Pj=!nDt@oF`aOlYT<$v8jbLIT`RjYip
zZ``}FnKi{D{>c7R)pxCR-Z8I_=$?tV_<YN@NNKU<Th422k^Pf;lrgoYFyK;vqY&k=
z{`hoOQufE$=ICa_A*ww+!17N|L7AmXVqv-edaFjmhX4G9<;BKjI{*3lH^r59%l`d(
zzwGArRsVi@f4}s7w*S21uWkS5#sBAS{Qqljl$CA}Y2F`HsoLrL;)Qa<rE`*b3OHUb
zRpJN8p=5DY-uU>OO>X{Y8}p_s_I9BxEN71CtrYmrj$V0mdES4%{3GJGk>&q>edgK0
zckBQ2&u87G>+t1$i&VSOpJis`6$|a;mG@u&uoBBKsy@u8TcEXD#H=Pn!g0LGys)&_
ziu>?knTftyrRRq))#TY*YCH5s8aJdy2A(hqd-?L^mRie^_Os6O6ZMVhM$b>0Hbxw}
z@bvSJaEFP$UYhHCd}D@5bb<41oPN3Ay0vT9_6Y9MOE;+8l|Mh(q>*y-VQOls)pVD?
z$>(PWW}4a-qSo_gy)y}^jaTb$v2Cj@^X2jN^NYI3pMAbw$1(BIrhQ2tKYmoq<PsKE
zS<l9=Y+;c~eg53~*T@ag;LF-p-=uS9`r>ONFS4~*RbPrziC0zMn5(6dA<5_E>G?bP
zWc~HDdT*(Pn7yZMjvPO(l#-H?(-#+ClWS`}G2Et$>tk(98Z+?x)>|E&VMu2mY|OZL
z+GgNul6J0D=jYA%F8SWx-Z<67K;zoD$cqB`%1@p=>1)Z&6tfwK!LKqimuzmjNm|%Y
z23GCN?^vEcUJ9G|J@N7qrpnD}WLre)T61u51w~y7n$b3E$+4~!X>;nB613{CtNi=%
zV>bJVp_Zl{dh!MaQN4AELHf>{H*Yqm3>02fChjtqWz_UGk#5uK(4Tmii>qYVW|v;Y
zThk`_pp&L^LmqA`)&!1^k8i2n{F_R?!tCT=f12|rQKw(Y*$XrM^Dg^V|Gwk83vTt6
zsqn(5>=Jzwb{~q0Dj#jwJ;&WK%?O<el;Y?Aa%#`h<+BBg3$u|q-JAiV9VI~n19u7=
zU%YtHnc+FqlIz&g)@7kSSyZhcHJFxk_Q7iV%KBI(uEIu*)_Mc!W|L(sXRZsb!G4Sx
zJA5fH0vkx%$jGQmv7qS3*W?>THE+(X8Ena|A9gD7-d8_SuS<)F;0Qi#oAiBt&?dKw
zhl}e%u$XlfR*sj+=<JL!sZW|&m>uS%a9w_NCC#969Pc}wVEg5jXkTr-zZSn*im6q$
zRt~P$_vOnNKFzn=atoW-be-OK@aM?(*CjGfE9_UEkhDIv$8V7NX-9bJbFTOsMUQ5>
zgUp?Vg4&w1Eo&3hj~7k}#Qy#F%J~VJ>x6^2dBL<n%CwiD!{{fr{O&^hY}W1Dw<o{7
z{OZ)zOF<`VpKRq?u4>?-Ivii!J03vqdv*8J9!aLk#|-t>DGe5uE0RmciQBY3Nqd)+
zi&M7muthd@qeySjCMjO)ofrN2RTy7_ef|B_;^ss}MRU6RG}BF+P8LoU4(0S)&5Rpa
z_k2BzUFOoIo@<lXO%ENm+^6TcdJ}tsQFYX`iouPBh6b|DeP6xOikov&R+&jpmwCD;
zmMhdLRjZ7jC*G#=m8cSavLw^2tw1~aa`0H-$vfYZg)$S9Yig9Od#gUt1VrLe-Lp=X
z&+4Eslx-q?@JeL<WTS~rruPoPKMUu^JjTYxIxVt0@1C;it2t`glA}T^T*zsBYuc|i
zJ)A!kvYlV+TDQ#t7Q~@1Hd@Ztw&>9Y&RvoAc(Jfi)p`7ci%<Hpar2y`=(wCv*M;o*
zbZq#eoSdJI|9P*iz`3s~(xcwlacU@WU|?WN2H)2>xlq4ie_fYY+g5w7_O8`(^biUC
zv<CM(w%J-UlTGH%-5E0nBhNkF7^hoUpkIK(Vp0`BAywz;KB=MXq2SBW*cjo$CUr4*
zkq&dHHD5E-c`|@*vr2LQg#)?&wM0+3Z6E!H(%05kPt&~>Qi8?ru*i0=bR6%wdfd8C
zIn8C>fz}(X5PI^>n>T(;%H(ic+dxw${nVa~9adtMK8G$;NG*(R3bnj4)K=J*DuEq5
z8IWno_+o(1RorV8`0CXjW?wvQ`)P*$wQDZ}u)#}9O9d}SSKnz!{e%j3ZOC=tyCBW9
z{PX8yH*Va}VQRU~Pv9H3m+ECU@iF3@+uhc<JG(A_!#x!%$Qjx+G0>1!Y>+m6r|sjD
zt(ET|thuD46LK$Gi<ANUuM+uSvD)*}(g7nQBV&DL-uF6+?M;Jd*$>H~O5wYfjFP%)
z{q~of7yaxc7S~yd1xFduLv+f`t0JDz^CANt)c4H?9J}!sJ;w~2pEli?X+CVd=$>=3
zoVm0?*p@bkzWS=Gfg<MY&&G6J=dH{4S3Wy%j(5dwZ}G8z^b7Eo>U9jB9Ssqbt<SNy
zITYem6P;GiswQfvaL^Of(|D(J^Bpqk-;%=bXO9&#vnPdXERgHOiJDiZZNCWVzE<v%
z6pre2JE!a6j=S{o!J17o1KtS<yv*-<-mKLo`kA)FI^{MRd_5WHAhg-Xj~@p$H#gr;
z=fS2*)pq;+<LtT-9Mf-xyD#o)PyELuEpHfg__dRu^a@m@)Ib0HGjCy=)6`H)prmt-
z(DCEt$_q8IN_^E(3ZY5Qp8Y{H+Im?2ik)4SenC~ml&ERr37Y<7e?47Dq3Nxub)|6q
zwuT|opr$wH9_N|4{&>iiXQm)0r-*{ZTb}#VohQ!>8<muJ{Q~zZ4bB?7=u(S$`i*M3
z&XF=+yQVAlv9flhd7d%CP1i`j{X^LF{a>qeGBx==oHVG|L94en(y}P!^fTgAKa;}y
z=eZTLo8u2ARgM+ZqdAW);WT9<ve9zp3ucFuymkp&m2&#`B;^iO@zC<ZA}{)L3k%oM
zSWL{!lJu`9DMepK74_3^{pX+GHtad|)kFh3rt6?$fz@DRZU3Z)K*4t*df~!^0IjLx
z=TBayo#q){5fQaD8~2RlEP9Ew-d6Xsaw+(R_TX?yGt(@Xp4XKqG@E_`Wg*?XO_F9b
zIy&0-E&RfnzO^r07iZgaG971scA}vAG25T+5f!>_nmY4STJZ@(jX&|sYCE2>MqZjD
z9}CM7R|3n=_)dDe&J`KXplO}3?3S1K)&4*Z_wvE&4cm6^jCCB!z96;mD_p-oujHwE
z)bv)_v~}!qRoM3)m7%(K?j(eThv!F4ujAF=GwU?*;WA&gQ`h+iyLN9sfdVx9=g*(>
zmGhbVwnRscq6Mi(ZP<0<v&DIP{oc01!ur9cOmj73V`Deda({uT9CMHDd^PDt)i?Vs
zvb7ph^*vhcIySW2E7?nsfig`;LRv;<yXd~extV_2r@F1bx&1z(+L@uQvsCOC{!{F~
zzCP=+>i$@Hd3km2a6vp)L{Y+F{EDios*kgfkPt6Z<o4Is-^I3U*}_|WIaG2`_uQgu
z!Be{0yRtq;1LuZQGkxp*%Q<sfhM4-Fj5}{g#|%jFZO|P)SMJAGp1(kKcXzJ>9vT!L
zWYVPsMiy!LlY#Z~2{Oxav$goiiE{VwP{Jk^b{N0yJkuL3clmN1nz!%s=SuBbR${?^
z`lQLeJQU}^{eNEw98h7?#`MxLM$spAY~GovVF5k)GfiD4C-f=(c;i%grtq$0z&V{v
zHQ&%nhK7b}8ZE9hl8MGcxx<pQCS8YKPP+B8kdP!+9#y**y79JTs{*=tPVZqavJa}S
zE3ec&Ye11)L1X>Yl%cM&bR_Nm-34lC2A7<tT5L&^7ry!NH|g`|UmRI<XXQzEo}FCY
zbo1s--YJ1OriHoF{Hxabx%^h;Nrhp7ypa!biG||IHlcoxXj3<Eo>{+dS=0u&L1%FB
z8H|mMZA>%t<}g~Ao7Q1&+<mgbaQ_0pMy6JBA~%+Z8BpN5=u%i7*JF|<PLSH`xg~;l
zHe5T`#(@!R`yx0v5j(FJOIbZTTu58PZg+-HBYh-bs-ITKKeC9u?>C#IkrDU(trM=^
z&j_cH`=qPN&v=1?nLeJKdU6wEtSc{EEogl#Q1B~E?y2YRYuA3;sv!PDc(8DBp2pGp
ziA{Gr&`fwnO-#yR%I5-mihQV$zWYXY@gun{{Ql)#qKrKoA1`_dZ~;B}8QJ7&OD)c&
zwdt$WW$gU?zZ|2lK&)5u9VTkBEe$v9J}FPj8*{fAYL4wF@s3AD)?uRGM7~?RaQ^(Y
zFB!QugBqbyYw4Ahwdfi7Q4b$K*8I|;p`t?5X%RYNnsI9TavGM|k6~_X99Ng1uJoR7
zjNbnKLB3fi%H`xhLx=Tw!}*yBK&{*A26&Byg+*S}rC>1?Z^@aMUBbo@0L8335>0)%
zzM|A_V`m={CMd{ndTx5`NMTvQ$rbl#;Ne}~EC7hViei+apLT^^YF#c>AoH6fDuAES
zR<6tGb2}${zJ)t~8P!lxpZJ6&(ER!EIcUNOm$_eOPV_4<QcBp<<aZytekP^*@%KTS
z{E-jq-OT(HfaOU$_Zd`ISI_zJXm?(>J&=jh<?wsJB<1Nk`3~w)iJF;TE?is@Z{1&~
zlPRE`Q`5gE6G&;7;LY<-`eWVe4JiLMj8$#Xn^;&zqJ_`{fGR77A3m8JY+_hD0)x8W
z*)4SIAAQk%F2CLoREB0)%S`KTb6wQdEB5?`2F=IBekh~as0yEZ^!w<pmv5T}cM08+
zO<8||q6lCgB_9y>{rk22(c;}*-zuc?n#^)95fD&aRaI3JbM;XE+*rAo!+4D050S@3
zZvfexfBkrD{5|<i2%whxom7tAACLD<<~R?x=Idm(*)*9-mglzrwVt=Sj;1?oJ=>6G
zXkD*uJIyQdOw78k(>k}jOOd9NFaF*xx;i%0Wrl*&{tZ1$PD?>rJE+TkX-PcDlEhSz
zz0;cS$Rj4Eu{g(&%DDaQ;9g0mYq+B!q7*Mdv3o!NZgrV8EpLy{yy|-I-aXPs^;>XL
z6aoKOckPP%`t{1Ek`j|*&z*j=QX}tHoZa0Vqn;MkYR}k9Gh#C6^^yKMgbMaz2Zp$0
zHVw|;TxQsf-fY1&$6XD7#O^wGuW-frBZPDwH~f+=Zz~qOOT_FImX?;Be2lKV47Hq4
z39EtcDeLYGE&`sGGCn+<-mv4?89=}BZ133|X1CiK_OJE2u8F{86fr6Nvazmmg7o)F
zx#Zp2An-ubJik`R6nokD>uWdcRb>=G?R%eCBXy3@!q9Z{mYS|gV(M<7#P&_OElI$n
zB|=|+Ty%2EbC?|H6&}=Goblhzd+jwEuV1V)Hdft>qe^AUGWxqu-gyah9FuLy*iLE6
zF!6Vo8q!{yIK#{yeA|?cJ38OCIIpWO^2r>F?lAuC!bInDh3&b+=Qc?w4@jO2x`c`n
zs^dISdl2WorT@hr)bWp76>g7pmVOdB#gbz)829(ze{bPC{5{iLw_$K{OPl$B)pRLO
zB6PXl#!ms$&75m+ynQ>SU}46j{9)MKw+s_CPA;x^obgEhaPHqwk_c6D9L~>74H}Ey
zzGX|;CaJk(#VCy<9)<IR=AVYP?%o|ApOjNZ8w+t=urGi3NB&N6yW|l2?wz1a@mP-X
zPuuf*L4Uiy1ovCctmS!s*L1t>(uR8c?-}oF%A{@FD;7cU2E*mYj~_E&3>n}7H>WBE
z`1vn0yDO`KQ?~8ht6kTvx)yhYY$-)W#TsY^TNn!R@-=ASrlM2ab6c^!3`3n&0a3nY
z)a&%y7JxereoqPCqiK-nGC$LYFX_%p`-km-=Rf~^#fh!WFsZ*e1=^k<x$vuF-6npU
z-YRLrz|Noln?5h&x#P{l^=#bY;(0aJDqSYkZA+zfpZqthdR+R>;|4vYT%k1}|LG?6
z{H7pN<h^lptbTr6tFNyQZ3I$)hH+zhEPwvEB0#!Qy_TgHsHs|54$fZ0iZvU1-np#+
zXbu6VcEru^|Lk)}s5l12$hfT_pJ*ey&9ct=>o~+>7nb#Y=1~J|e(~y60xGykDV4J^
z`No5j=B){6-`qSr7oi5^{QBuZwle48!*S?Q#`Q_TKY#w@&h2$Qg4Im%6VOenj#e<~
zt%}qrbjc^*`(Ii|-`6(}uzO>J%nQ^}qT*^Mfx~ssYBS^odJo>l@u|VZXV^0h2!-TP
zP5253n}C0c$C1Se41Kh5Z{J$p9JY{nS#+H$P~mY%2mSH1f~uK`e&2wASR&QT&ra3j
zgf15ov9;F@VqK~*Zmc((k9PxxFa7#!ozjW_eEHwiDY9#pe*HHoD^A6ReCJ3B8vs;t
z>a{~zw|X3*Vo9Bp`F|I={_DrY{!w%utbFO$A1`*i|1Tlzzh3jdp_<{vXQ=5=gc|Og
z#BXx*QiGHZPc>V5-#HmXNKR7MbX;`0k%~I-cXvfVIJA-2tKl+nI{7)c=$d#nfqbl-
z9EIW|7?m2NesHSIwGiLx$E&V*bb?<yC;iX<Re!zzXY(NffIU4ump5@;3hcDM%sR#G
z<Z6mGju#WseP<pNIU9fJt_)&WO8J*ZqM7v)N<c`;`&Dc)xSGD|Xm3bNQO~&)W~}of
zofkk9P0(A6zlA+Kc<7Kyu8pZSDvZP2Xi0`~Eq7OUw;c7=<><C~)nC?hiK$;LA?fKS
zDuYB6!ezV^Z{7?85L1p<<>Tb!><#yp97`|p2g9v=DR^$LnAMeAw;}>hn#Pr|JIX`V
z5vX_IJbL=H=5QYKDXBCsU+$=lRl1PbY~g`&xgQYMR_a$jAdgR_K{XCJ2j%gmeQyUW
z<1Gtq1{?bt(xM6e);BP4NGu7q9q;+(XIffbuJo@Kuta&rd#iP(EKlumfBIClqu8sw
z`K0;u*rK+eS@WsHYbk$1TwykNE0)fTMFp8DCTe5=&1v7sX8A)Ia$NDt$NOBq%L-BD
zQ5eC=V+RiV;*1q}a->;wm09r7)g&S>#mD*aYa8P;i!=VIH9?7z9(%g?bRG1$AZd^7
zDu0$cLwI=Na|>|o+R+JiNvABVU0e>%*$#@qhricKR~?prd1XN2^E{T$TGw*@cHSdz
zH{eQys1;yHd{YhCmeEGdS@%)~?YaXDJzLDC)O9JLh1uEJhmRhO{ho8$cIb|$VDXQ;
zzgo;6>Y}ysye;$;Jbe0e?)TK2dU};;(R}5<=BL^&p@rplZ`iOw7-AQXzk`>c0q)3Q
zZtk*FPiS4UwVOCc+aGM&MKQqrE8d}pE56;pSa>x{WJPcbKl=+$_w;7$1qO;jF_EEW
zV~<|a&<NBI5;1Sp>YU*<ZJNsuDf;lC0u{W6DaK9FC6b4%&=TvnXZgdE9I0ne_pmCQ
z6u?oCD2=yw)HyTPseJnR$)gt1YOtuKjJL$(%l`>)BlGga_ljDax9qO?hEg8Colj$1
zY2nRJ>ly}aP=pe;XqfYfh}0i%WQ2L}&lJ_KU->{#uUM8kls~0Y?u@d1K+lt|mTA^f
zmgp6)MpMNnv2K623|m=_sKU5@Y-TNf|ElWh3`jXGPRvRN+~{<tX^ZkyIp*A635RqX
zys(&<BhXeaLg?|U?tM|+s|<98-g82)_;<R52rq9%YA8xH7bQ^CGOB(YC$??ag(4?c
z6&>mlha%UH#SAh0h=W)gCcQo~GBOsWROiBFvEa+rL(S@-A$>Km&(Z!ka7rOS6PAnH
z)7O|0@3J^Qb-#{>0@RqFl+(wpZ)n&LR96RSNqpXZ?$<rS;@rKxr*ij|DgCgN5)e=z
zFD05gP9D+lhBuc}t%jOK$vXjZTmg$sx9(R(YpAwZ6eyfiq@K9`?*9FZ#JiF}k)$Qy
zqvlL^2X$GAO?*AKDHiL^DRz>_Yqy9h7?dz%ugK_V|7>xV7;Zvp)4>+HIy;XD3SNaG
z8pUCR&*Ix0SLKK+Uoo?+FwS2sBsDF~y2DFEjtZ5M#t3!QL0weDDr^Ik7#X=+OViaQ
z=brQ=h~vwrq0m9EK1?Ar?O|q{KV&)z72Pojy45;bChp$4_3Pu49o*vhIXR_y)RJn@
zZK2}xmCtiCb3~nI(v$KhH7JY~q}Ejv`8ZJ6g!{w^<pT!}<bVd$rs!R8hQv)+JkAMU
zIZrQBL_$KF2$m5{w{C*8K@-+(*r0;r4-ug@PKC#dT|#4@)5zJB5+DqX_QFV36yQ%D
zY$hY^?~R+YQVt$GC{F)}Cn@Vs$W@BU$}a%ZPZ)lAb#S_Hx_dXo1j0Nt3Y@ZcoxBqR
z6$#2!4^VDZVrDBh5H}#p$=4H&gErc>E!Na8YqBB8#-Uj{&ZJ!q7TX0pHH6|VG@<Z%
zo8(kcQBiG@_UT0JTve*o<bb;K>|mygFX^k;MYmCj<N$~O(q4mYT^lm@{04B82!#iT
zO6<BR&np35UU|ZUAgvZafh9i&3g!%U);N}Y+WO9?0C9T|h=*)CzscIOTw(nKc(KP<
zO~;2r0%)C7-w5VDF$GB70hNEUj=-JxY?c|1K1Qh36K3uOO->Gu7}Rw)Go65}74)I&
zm!#{Pa0b^Uvc>d4^5^KC+f%Djn{}_F(@Ly1-AE~aqE7SE>LBb$3kciqh4LflZ4!=?
zvSRyI=8l!|T(tbnHw^OFE>uwt`(W4By|*2)^|1!(94&jlJNGAMzVP>FOLhPOwuICs
zr>0{cIh570v9LVR_-98)EgUIIl^>s`d&^=)z;ObH-kP^10sEPt5~4*+1~9;3fyQ0{
zyl8|8tdwhf`yr`d#&~|JaM728G%*}hPX6#@d=C#;2b43F%a<<)l&`oScOQL!u2lcl
zt=rJ*s1ZP!N5#Y%w|)+iaD1y@K%g6tHra~-#|_5^(&&9-<pOF}R_V~m;{hMHU3+m0
z9#2lk)6>dmxu1%Qjp1{N-EF_G+hus`R!@Lo$W?S#bYx;*z~QPKi+1?LcN1cFp%DN-
zj+~O4^gYSx&aE`p9<`b<(`j!}^j0D&pfEAiZ+FK=hg5;_t*Bb<3SLL4nqK8D_Y)j6
zwc*Z8x$eTjUZ+qt9r;f`?%GXCS@k?y(zfmvZOG{f^B_P2-V$j<l2R2Cz%uxzkWe-O
zoxE%0*z)I%{E5}R4cy@8!A#K1yiBdZ0o$pU4#+?RG9obI62q}Qj`Hy(o=N(^zV?4)
z0YXsk6lR_I=BUt8G%}2F-*RMkPWMlAqfXQTM8wr4YVrsPDf(+!JYjbn5G*XXOHoj$
zhrp85pOkwUz`br2o7U?u!KeEnM;=MNuA*P7Miobg!BzU1irNmnGQ7d=U#`O8jNaxj
zkWwPP{yOe(92|u}K|Pt+!gt)2*&2Qwc0F$%-%4vB%nS9bXE3v^PPkqxyr<_jPU<%G
z@5kUJ0`t5gfF1t`@UDQmREyof=N-#E&IFGeZ!io!ilar4m##f`BmPO;Eeal?zkQ8~
zQAptsBhGQ1+x0DMY+RI8L-SSBdKPVLE#XG%O@OyPeE0w(Mf~hgY8_AMaf#v%Zz-KH
zq4+SA3JSMPO7-}-6?|8jT-#w)e|~M^jnd9ed}v<34ec_kxzV8O>FJ@7m9Me?nTozX
zx+q+*L7@>vLT-CO%Jr5q>qokfRHxb&7wTn&;8`;7%);UF<WMSfafY#x*KH{<GS+B9
z3&_ekMO&|@<v5rDaPblfp(cNb50&~eZ4Mu;p$5Ifq!ouT0B3-;wBKZN8nK+TD)cH|
z3cC2S^+?w>mk=3LlmEn4Ha0`F*ZfI!`?~@QTiMyohzVm`fOax7z$o_G?Ko*I(D<`I
z1J)L8!U_#bRtUZM#ER9wj|7SUpzHxDlhv8}Qw}1mh)AnlczqsZwZkGJnP&>%$Ap>+
z6~CMv%B9N+k@lmX|B%fFn9l&4QIaiidbDI8U%wNiI(hgj`U?QtD#p&7mCt>AZgA`j
zsx+|Q*I3}3>vIc>s?0G6v^i>j88T<h*!P4N-CBJ8_p<2znQbmjH6ZS1w4oH_8%jl2
z8->{YTpMcY2nO!)LRV$R9xYRb+6xZbCHaYOd)LMN+toF}su)?&qvV<&eE^o2$A%I&
zwS!s6*LK`B!@R9kRtPGKQ9#+~1vCtCde+>=eUbxeg*j}?Q8sMO^i@_?PSng|qX$CU
zIS%cA>%M*F#x*fFa%_jq48FYTwY*2e0>I3<OYZB&J*TdO+4vgx2*+D4{u=EF(L3t&
zltFhK>!eh_KD**j>G(iHb!S)CbW1Ca)NV>QP{}eQO$yC$iWvu+N4iR`%HIs6SD0D>
z$7U{WA4{AVc+<PkW+EoXwkzChu`G&;iZTXrmSh5E%#$h#HI)sfIuIFYLg>rYkY#IN
ztrNX%2DR>muP-NdAt**4Hk)6>P1h~cz?yOBYK=M8@z5{v+h*YV8}N}{^l|9>V~*!P
zL-?_7bDpA5i@o>J!Y_C`$ebl*eQ|hkUP{|(^plIPN{Ea%dm`wIF>r~+sXZ2A!6<hA
z1SjCO^rC3SCcn+PpoB}SP1IB)hZRd154Gr5MLi7WoqAT#zbI7IBrWypn|%S)948S^
z(49bWHo<2s`|`!Fyo(CVil+2aRADHO`Q@N>mKHxfhDMwRSiZTq?gLO_A^dc9-a=L3
zM%4x6m37Pej~2_(JM6lci%%F`xOd}YC~pEml>|bw?lf{P=gX9(BA1ZQK8qB^322DK
z5<Mj2nVcZ9`0C^3XeF}YTAi4egw2|-!Q-Cb-EM{DY_X(E;KRaJd0ZdL1yg0Q4pliE
zIt%Gi<gysel91peXL=5`AOzs6s%tcsb)gsGjPm0%@yWx5i#m$mj7}0+Dpn~Pa+-`r
znt|7s5Q%<K8jfcYU2-<zvtx&M)vI`Y(Wi5aa;e2>qQ+<tb$P%h*HbWLvo-aEMW^hg
z5OH<Wrnj}={t{D7X@>N^=L(WnQG1AHf{(c>!P#xV&~~rtp{DrdQ_N)a5$W#T0$x?(
zt{rH~kftb%3$`UCCH*L!wLoc*>0*U4WAhSp3tO4YIUupbGmW4q5{r|<)S7uGqR+2T
zG+$U~OwoHxkQAzG|MwI<F~`XSEM)BI;XEbuk+JL@{<8rc!)*u61oFqJo`OVt;UGkt
zQ|J4aUMpkd9zvLe09iD?fkL|^t-y~81JeZgm3E;^xx!+PjEIO)2$ggPbh2xj`w>F@
z*p!xe!kL(tlqxFcMY)#4EHR4QN0WbNiCGT!cX+4DRXdIWKssZN0Js6~OmwDhS7T%E
zd|Y&uW4<>!bn-?1ty1d2UI4?<i0H^jb-#U^H{XEu;~o(z;aCTAb|=LEOm0<Gp4T%}
z0O6BCm9j$nT<22i^->kT9kSDeC20NeikzH#v_hGfak(x^y!dqIbDay_+BOaP-C%nn
zaQ^+Kv0qF%0-%(?h+AlG)&giX=D@DAf_JT;3HN4rLR>5B?i-(5f1W$Heq4RQa<SEM
zc%m_M=v(>23qQVuN`bvWnBt|DbXf!dj_;!ATqw-x$7-9p4Jt*+3sQ+Mn>QJac!Osj
zzf)_%wUiICLf^i9>mK=0Bt7P!^lifTFdZ6_5k~;b&0334EKaqoP#ZS1+aU1HacTuL
zv$;5)KN7ywrtZ10z_jZ5`o^z*KF^-%$?+Unk_oY6#V;w(5AURO6PTQwA2-fK9W~<!
zpcTxNS?rtoM~V`1^|>nT!~7rrY|a~+VR~orC8mnIrlqA_Ds-98YxO6$0VQO3N`RmH
z=1OxJnMX?@n+iC2?h!PNjI!hI&HiAGJ1E@{@qU-h2dN$(M{79luWb`B4cW@8y7vSW
z)}<Z!dq0?3eg7~3SBMZ<aJ5{yqNZ%!U-f@LlO&{Cl9{8+r4Yh<bzawL^kG*|Z`Iqx
zh(mTQ;Z2-7qpQ`!CLN#q`gR?q*S86>{J~3DvFlA@5kxQ#MXjS<TcEoxC{f3Ycbji}
zc`-A2$ueaNAlfMhft39>6@`s!2#Mo}{rper9J|Y}8w8#-xIodlJ@;#rIv3<k1nV+r
zA^0PH?oV#IIMWjlO!Zc7ZXv7~B6A!t1wJAcgf%uf$#cMw@#Qkbp&<AgN3cWv6mKCa
zWlv}6b9j4W6>irQp~{9Z%eU>?3(Un&QG_(Q1UMN#YSnc4dgpGp%~^KmH0|EEj|S}h
zssHmQ9A`O2ALg(-Ptr3hmt{F0Oap<3U1oZ@HtZEs#zx{(jLKY92ZNnR+j3%3C2uk}
z-vJTXb?WYG4%U~hRc4uvGTQ{Svc4W?qzJHTqm0RpCA@7daCR(rCUP~U3Jgl)`Yg0o
z4%R(8ueC01q{oh}&BQnXEYP7>Lqlk>X9NS{*AY>LZN9HLJB`B#J!92dHD4DS@6<ei
z+_}a!3FE3h753&~6Lm(bZ`tG=vS2lH)65J@#$^c{uvISh7AU@#z<B^b0*@PB4ro$W
zg%(5VFtKE4x>79=$s_sWIha{9O6CjG5$DdGBf>()od!jGERqK!0WdglvSN!Oe`ne!
znAFB~P3y~H-&}OO&G}QZ1k@KqlH{L=3@Bzl7C~P%kDLYV*DpJYqBpyQ)0acKFCB+^
zf6BD`y*2ecu$V?W7|P0WMF(X3T`0tf@r2gFkhl8_p%oqh<+ZoB*Fc~`Uvwz6h_!p8
zJIZ+Dm|@}2rd<W99}#`Y)z^Uc#u>cWuJVewKGYMpzwR%eRAyCm-nDC2-`Z9?P2S?5
zh=_=T9zjqvA@<SEo4R{>)xwXBe(_=(AwAP$T|`ObI11?*cJ`6fU)0mjNER%Oj)MrL
zhIa!bFn}Z_Xn@hd*hr~OgT%$Tb5hgIX(-ePO{djjVt7tUs&d~6+tA~P-euKa&lxXV
z)xEB8ADgz74{i#8gi8Cl8_-?|unns0R?mt)W}82BJ;+M(%7B%au-(Y@(D!^(3Llt@
z;x?e{ataD+V9{1cWL)d6q=ohKTw<qa<k_V}EIOxLz2@MM!!WFV=v}n8A{#j=B6b)-
zAzHR}#uw19{9ab{e&P(ezgjdS5(C(iudi<;AO@i$K0ZD~vW-)t4H@ZTSvZ0hEqDv#
zs^~+jI6!lC1`5!}j~wgr$n;lv-4xpXI`d&?#Nws+RNLX!o8=>%SLkg}vu=Ze5t;{q
zBm<(1#7s~4x=owl>sG-I07fhj%E;gactCnX%(OL69YwPm2)uVf{YtpZ1`1<w`^dz?
zD@kV!s{6{17d6cn7{xCI_1v{~S51eG+QP$7to?P=^@rsmc79{ly>Q@d#<XHp8LOJs
z8z5S4I4daUO4tB=Z1I)A*J?x;Lv?X-QP=c)JKX_?mHH)A!0i{6b5ZoFj_$f;XQW9=
z)KwALPi0kAKaSyeReW4+AgkO6re%<N%DSi7i+3l53xlNG>b`&fezTf*2X{n=&S)XE
z;og#&sy-2`Jm#aP8s0Rw*5Vq1kxSYh6w_W{0ADK?{-UDCo7le7_uiin{%HtrJ`T<x
zaZuIM42)oAmX($sJ+=<Q00;k_t}<V0r@D1(5V2LOrl%xa?^n#9ZIKYUexrB?99elP
z$V%FBBO?63>*a`j_fHa(-D~KO#K6ycDn{2eU+{Sba^XK-nC+a1jV?>&&+eoiv|k+c
zcKuZmq`Sl?;ja^jL6Qc;%Z4^Lqr~a^TyF*Pm;lG%k(AUSI0Jm12lx(Y6^G?hoGO8q
z83`pnB-iA(gts&wx*N${)&o_JsAbUUa4<tAvmZc`c>DXc+2sxNq5Yv!%edm(69tC)
z+d{8;1Ox<7-CI3coc;a$RKvb`KU~!}9i)pBv}Nm7Vg0gga9qDL2ZB$UYQ#3FZwFdL
zy{|?Rwie})PbcsD*svRDjom`<^XGc%-MA)>QU;Ah4&ceM009O+{hSqfL(|DTN=9Gi
z=lbdr<DpT-1E3KZh?k*Gr_b~56E;@Pew%oTglsrg-Ql>qQ21aj*kcDvoDdSkBV4|V
z=XABSUe#X>LFtG^3(IrjJEj=oR2$^ubD(!_jo;6#3&9alQLCeFoc#&0VnQru5Ni86
z*=g*BvANv4*NgXlPn$XB2PbP`ezv^JqPNRmw+?8Ss9K;E3a48R-EhR$`)Pv3TiYjC
z({0x%x2(TTP-Awq++BfG#qU6Xz7P*k@wM%KJe00N0MUU`h311Z*}hn(X&wvbBjjP%
zx^gTv%fs1oCU7fwy^DU_y$z&C{o?Izi%v1j!8+fY_ivNQihg+4d&^Yu-Z@?;Gg-!i
z5xBb1$il|K!&lLDp75O+?+q8V?6z|e(%KR!p;m5zGg@@q)Q$FOU(0+Dm8v)pqq>yE
z-1BUb;x@?m`0+etad#x!?IE9ELq?nlAQ42@roMRg?8^Q`q(wtqb1$g*%h*d1SWMD6
zlrhoeS$SC(HW8HtX9UuSFWsjB5FVh|c$u)Cr{Mv~_;1~uiJ2hcAp+Z-oPTK5x=tu5
zqO)Tg27xHPndq<QIeN5|@mn2^4u#6_s4Q!@$cB}?k1{s@P>s^LNR5J-vh3(q7VfRc
z?)}<YR#Cxw%sjEWm)B-v5ok|pSkTd4*JUTno830J%2;MG&IOakCqoN+J@@|QoEttR
zSC)p|%7iA8TBT?tUw12hx;GxAtnaV&{3D)<He$gJh`@1BT<80B*LO;wp)vMYd%xnX
zFw5-6$?@kv`ll+bWpADlk_(2r{`$~-C?i2q7R2gm)pRyRo8O=7>pW1H=F?Q0`lcM~
z{^j8ho8Pa{JycJW%dW1jSX9(iE`5FMMm;>{H<myGZksLaeiH{|*>qf{^+RW68QvKn
z|GSP|zmKvTG0kLL6qBM`Q(jCiRr*3tV>mVR{l2-b7sI(Hm?~=8oUwB<l$>a363V2{
zLu2Wgw*B$W0ixZb-*+DDol}@ejItPs41=m8Aj#u!D-1<@uWj=iXg+cF%x+?;*4q~_
z(;$^GepN+Y%pXd#9oA7OJYn7{zJKD;-+%XDXZmuWsyA2^0#V6v|I$}Wo`n_{Mk+Hm
zw;UW^MS@{3&v$N2C@wCZnG1`}s|=B7I^HL-$X2fZW8tBKmX=luV;#%N6-&o4{rdam
z6o%9<xWHc+w`ps)9+ssdMWT4r)ER3a?pnj}$3bC)I9{fTdz_uFLLwXCo_@e}-|Yzt
z;iV89D&C9UZGX3%xzj*j-+sA+YBg(?)Cq=eR%PXm@C)qrAGdDf6W?UE@Gz{|ZQ;Xo
ziP!FEIDjOSvC72{DZGu?<`4V5X1QWjEzjge^L@{=Pg`JyE*^nSkG%i51MkCrKJk{n
z9q;kPPw(BdPci{Hr(tRY_(8^*K*#fMq}FdxRdtRmwS;v}X?@^dyn|q>kgHw<jkk5>
zFrG~aJ2V7Ug@BoEoEqQv$xGF8YPe*d>p*=<r<(6f!~9nJsSLK;(2t&Rn0`+_3pk(N
zOrO^>f>u$Vt%K96^6=3kC>PoeBs{xeY^XWA`uLb~+)D-xRDaDrr~Q<WY=54=1ZB{M
z>d`%{pxKyIM_uw`hO<rfgnP?TVcWG^2X375Uqzby*ux9zeb!P%NQVwhn0q0O>QHcd
za-!ll8Dg{(xC`9Gr=EHq5q?V_0eRcO#z>^)y><wORmliJMwtrHE%rn*?7EWaU|XRs
zHIIMg?<{9aF>+yrQt!pVgj}*cm!z$HZgB+UJ5D*g<>KT7PlTDL!$h>9NLC0-{+2fv
znx>zAR=NKzd|xGE_+I5*Lg0tcQc92=uY2BYk-e^SFM=mNx0Y0o*$exeJC9ld@OJ~~
zhve<txzhkOu^S{?plW+Ou(ton#4JhS;+GJa4wXhkM{5pk{S7|lF>rff;GC17Iww&3
zcIbKHt;o0k`0y|aG+T!H#KYq_y5_1eBmo^~X0SxOW9&Qi<gu+iIgSHlD!4o@x&a$a
z9<ecbgf)F`L8tfVB*u&vhf=1Qwh~f*X*Y^iBTG#_2>joZXdCck|NQf>(y}t{XH$rH
zfkeV)Gq#_@eK|?3P>`Cxm8}5OCtk9Hl~o^_hDpnt={{1m+y<rQ$Dc>PA_-@Z0zFSb
zs9wS#IVYAlHW;O`kC0lTMpx-+=NT)y{SS+5d02$%0E}=$EF$aF0>z<loTSRj%X?BN
z6hYkCQ^A+h5Ob}DkWrm{<D5dk(By8t3RI~IAcIQ4tx72V;tXwoR`s`c0%Emu-}>B=
zoE<nGI;?U7o#Ue8p5h%$<aXc)BRMD8^cD_{!cMUE6Y$8V_GGr0iI7`N#80x<EcU8K
zy4bWGhgd8=74!ic@j6EU%s>o@xDW{DbBhRsWEdb@1Wo37V4yKF|GlEEU|Z^bY0$Rm
zF3|r4k=Z!5Bta0-VQ!>oQ}>tC!zZW}VbUJrM*7YRQ4tX@Hy@ID2~-w<bNdnk0(}AQ
zFWGWYpwuBwk2mfeQ@;Sl=#jr~rl`xpeujnuD;=`-Q%V!071S`ZZlFh)$<RQ>>;K}g
z?ELI=zYgJ9aaRv5`z~LD#fABh{&t|TV`y12R2ZgXfr}v4hsDL4iH8pH;YG|4^+<WP
zu2w6U1`u;*t3&)fvEY#OB~8EphjN*Dkcy;#xjqv8dXUm8;hw3qo4<ec>eZIoALS1=
zN#5oNKsjEOAkPvbk1%Pw0#PSIr2M7`d1s$`{D~{X?n7E)*z!E0X@Fdhq>C={960cP
z4p~#_v6*#AmqWxGOw@<!fvo5FhrRc-6JqH+`Fxhxh?ekRY5G|YB8Jou2*;jhM$ojf
zt5TaWJ`%7=^4B}&@CUQJQJF)fPB`dMBy3rJ8(Ng8&A>IEJZSL$iXeG!o5(F}Q2T0w
z!x)kS7^b4-@6cDdDE*}Akhl2Hv`{IyJLMM4HIaGwIuPdNXtW4>Q0GhNNcGO<cnc<y
zzdI>W06VM3vL9?N(3u|ATi_nd)@bZF*6qqDM?LT`)x9?y%~4(Gx_EFpPD3hpMKXbQ
z^;WiLK08Z|P6P_+%lVLL6Vx(E$)>&Aw;Ld+8h?}YT~(;a4{px>0D72MS+Zhu4rIh6
z#X84ZZ}jJ<Pk#GiScZ}FUSBiZpTAUVg%p*PF5xwN-la{<6Msw?AgYlhVopQmx#||a
zu5`pF-BK7Gc{OC2j-F=&yx6tt*W-3Td=@|3ibQ!}a&q!P-7~AgOk0x-ZFi3qLaC~Z
zpgeba`z8X$eJp5!k8<b5>ny*iF0E|w{Cjah!EeLjU~$K*rmwmW`KYk6w&NP&MS(kZ
zA|7ajTTk8vG*$#6u`qamPWc3@7AhR-b|A7T6<Scy4#U$YE(dWyh@v(%b6|+RqrI}M
zOsLIeHqrj)6E1ng3gq#lFTq%N;_fblgv&7n@zKA@=b#IL&{ZC%i|av*Hp5j*oDHAD
z$lEO{mFfv)35iGp7<>j;ew+`)HIHI@AY&t4_7pz}SN;%lJqGaG4r3pZqW~`dl5D2$
zgOdlRfi)TD!fRz;<5DVR85h>f3b`&g(I2~-A9|74S1I+ApWunWWh+)=>~4o%T7x{w
zVFl`Y{_5EEO$dr*!#I-%S-1q9mLe;Aj1&%1<+^Tvc2B~t0@5{x*nN5H)~$LlzbnB-
zD^vB$Nri{Cj1@v{Ti;10RY(~@m{pK8XL1uzNI4E44kRN+^2=VLNk@uqbp2BO0aeX-
z0b^4E0EU6ceky^zK1Vzl&{ZD<$UyzFN}u7BWd~sRWMGKYe&y!)k(iM=a-b1}lbDKv
z;Z}`UA{mwm#JWwl=%9B%SJfZNX0Rg}$U__uT<aysI+ds)mF9)>s@E6Kh`RznirS65
zo<`%YfV*%B1&kb-waCICA$p8BO7=LJ>phQ5M&>QgE6_oCOyT9?;VI7>ueylqJxMmh
zi96rFdLr9%JS;P>4`X5m$UR2^cpg4@@B^%-BBWYMDuPdEzWb-{!@?2l=Pzv?&GbG}
z1W-Ov+z}G!syb<2Z;5+OIwJ^}Fu8LV{diM;Px6<>grd*fZptQ>_Xj`jPz_whqAcM&
zGyV-4Gf8XE`}*#4kl+YDGC``7LoJ#|O^+4F;PMFA$KT^&sw>N#zAqKXF5z$+yjTn|
z2!tDWaz)>T)}hMA;9`2A#vZldAGuzgW~e|yQ0Ohnz>xYPYgm^5MMgf)T)DT#I&u4%
z_}_>q3E4L)MXzK_^Qz@2T1M0ea=WOS%jdH5r&=AU5eW3<P&Kz)TeFG12DZ;QfC^qa
z^7v0OJiXGF2<yZPE?Gxw0^0(WC-Nd<ZYMC@vd(<P$OW6;NdG?Kkc7YrgOsFfV|iaH
z5hbj2M>w(z$~H>N`$%RDD;DBB*-&N%th+Rh{fDwDO^1)dDrQ}Ry2ko%kc7-;Qqz$S
z!YGF7wcYonJdlC7f=O659lIO)BCFo*tAL<KViG+)J^$;^LXL}@f)K~Ohqco%yDm~8
zH=VfKeun7(h%~aQN|9jTwHrRd|0V=kep6gZ(2~FXpHXp^{||%n44DW2GYjy)GjYHC
z&c}Z?yL);nL&&cmhv|kWksM|&NV*W9J`p=ogQ$l%D3O@?I%sc(0TXC}7g6c;&2)|W
zE;JDP4A}rMY89XK|H@{pzn#s({g}phhYo`rzzK)(o`Xis{STT#dnI*Qn^r0dtJ0TG
zS-u_tfYl(`EW#{<C7l}$8{F)4R)+0medxH6WgCVT{y1~==uroRiN=3*c=vx;FTnfE
z&)+{<(s`yQE<ULWq4LO<Tw5~4io#rl)_MYJj`eV>Hj*8tJ{G$8xj5@aNC-xnX{z@<
zHb)}JA4$%WX3e*=y^%me5HPU&?kV1C_l|fi7FK$_<(Zi_VL&VQh<h|zP8OX_nOrbu
zLCC71{^$`NKE6x9Y$R->9DR9jqIz0!>f9M|f#u(xx^MaH_*80&S*GaQwEA`5p?B+7
zeg)3qpx}6$`=q0xlXNi|D<VV)W&t!A{6_4O8;lO7G?}(_?=(gJ39fV!+(d2(iF{>K
zo{RG%mGkdgb|^JmT6U$>Nn(wAQGP++PsvTMIp*xQdt!LBcn6&aG8k~83bHLo;gJ+5
zhWKdqD@OBvJAeAGt11PdYF%%a#mqq3UWV2g=F6jI42OuA8E)ywL;PEW$PoD3CNm{a
z2((%<U4U*uGJbH4>%iyQGv;6*UZm<k9omw~_s2x|omSUH=bd`Q)JGM#Z}GEVv|V6m
z;(b5eDs=JqUY;w83zF*rvDeMH0@Q&^O~7=L6I=A~M3&-Ow?H}b;IqM)-<mC1Ufb1j
z=Po;A6d4uO2b0trfNX`L4j=&;K}R&ipL-G83AeM&)zv2*c_zEQERtqYaRG8>-MTd#
zcdQS#peo#yHv1J<rC5}ufnKV?*jA|Oz{n(-{urP^&M*D{UL?yEq2e8v0)(Vzr-nCO
z3qY8(27vaWZ)O7hudJ+7!iZxcB2tGSsud!44lOiZy2qKfD_E{b@7OO(!aFjGXLP}p
z_*FCkQoJ~}0^{x3c)@3UxM22+(&H90feArxbUIlfh+WoC##V(bV21{R{}D<~>%}?x
z4?y3IP|f~In1cwx1wmd6L|Sb(j5E~jTdOzhx`n)>A;tjn{OrlNtWgz5HSqG*y?ag3
zl`bhNQUj2dB=H=5P3Y&wgvuo4jmd2VYXc9gBsL!oT9@@AELrmQY3PH`Lqg2ZDHipH
zzl4X!RpomxQso~0{l}%3@++TwJ^O5E|NCWU&;GH>^yAJeSCoe`?k!(tB>ix;>7K8v
zH@`RW2;&=Ezij0bH4g5BpE(Zx_VO5gzux|5ZqMF)nO!3i{UpHnlyBLag3t`(L~ZLY
zt+TP`^oMJTzDS09VSwNe8ojKXoY3LRuWolT82+)D$UPQegtz`A=2G)kV`jGpzLNbA
zB1^_#g#;AqH}=9`IZ)cMu%YM}8LOA&&eS%it+~#Hg-vzhe|ge0u;iYy@TM1bXoJ5~
ziuJrDRDX!N?do44_+|GaTfKadjzAGTi4Lb}ZbuqJhXEGWfvDXHa-WtiNM8N~=$#QV
zNpV$^64Uapn%c0{y@=bI)g5T!3A181RNc(Zc?Sz;!^%K?Tv<4>I;<`(7n5|MrI+tv
zPTEqhzXi)KXSe~G9m1q=$F=5w_00imFnxMMR%nTA%rb2Xl7%)Zl<YI__9!dfW81{M
zB`)%N(GhNLA=QLyH^gTL(qw>PHe-1|78malX|Z}fN*?R*!M-v`@N4yVme=AOb~lz1
zX$MMUY%ggZ8hx@j*88pJsnl+&C$b>+tmRP2Hc*i1kSLRI!LuSPKP;3;EnMyPNXaE$
z-#O|xux#%>^>3~?=?7w~1Qs}*Uo{l~m0}=1NzV0&%S5eOdAbO&g<SvdyH3P3pIVrv
zyQ*po16J}g*V~q|4MP&!At)%=Rd*4%7l-v??JTrKp22?ngyZzYf%Q3=^J=w8ne{7@
zpX1c+L~=kOQ?S*!S0j|YUbpt^vs-x}f9xe!YsIg82o|WpTE#oQ68U|&*ulI+*t}Sy
zczP_GsS_<9aPtJ1c=JmHBMfip>-#pnjShWcNi!`q%<8<?<*PO`r<0#u08Ib-Kxq#u
zSimG^V@za)u=Tz2^74dAoTn33#^ZnB?p!pk7dout+rtd^J5=-R)~i$ZJ}fO!T;LiU
zbAtuVMG$!3Nyebl4V6713r=>Yb(K$a+f{{db!6YzQ4E`xM?&hrfj7<ce?;_NN2e@1
zWB>gD+gmlprpj%$N`|5A)-<`vqmPLDSJfcJ;D)OB3f=Djg`hPIjf{^W5Q9Mxh{IO7
zp+w78gf4PnRK2!P1dIO${JIxv?^g^@`342?Anfzu!=K<ovcweNFZlIS(VC>CVb4*j
z0Ou!Q1O$kz#ZRk2#xDsF+pm`g;X3erWhg6>2yl|2nJ$ai*RRi@Z>gYGkef54KIw>L
zgc3BMbeO8FtgNvyF|vgVGx2EUk*KXPkiR0$9KOCa)!g~$4Z`misV*3aQxu842JPiS
zeOdKF{LlUgmVwSz&8_1j`A;MzG#1`7O?S%S4BCA#Bj+uzv*nukr>ySMYvreg^Fd@3
zK^5!4QIwUHBYyt8NnAJrHz4R>cugtlX(qGKYO-<R$0pY+Fcj^dhr#arHO`)wUx2W%
z8(fGe7>E6+3PQSVndYHra-2&ZB*L6L15JH&xnnVE<*{pmbUK;gs<;2C7yKo}wvCOA
z=g^^Z&<oQzVj*?pz@g_!?7;d;?`fS|THlY)C&l;DF}y`{g}&OD@0dvxkb+FaDS@6Z
z!7}+q2E}gN3GsAOr3<tCrEG2Rd>M~#Li?qxMV*eB>}qERj`{gJnypFg`6&IUKJW;6
z#JL0n=smdN>_r|V*qrqs+7v@y;vVEe&^|$_HO{;2S7Tu&PcE77J4YQwW+a=H0g=lS
zCHfpy5XxC*o9@}OZktiZWrYY)8G@c5DuV{M8M)~``r(TU(GsYpr|idW1vsFc$bbfK
zpcKQoD&He8J*As+Q~Kd(c3NX;&;pNfy?_6*@08MYt-5TjH##Gw+N(PXXSEDuTNB%@
z4cU+VKBYRc+Bkuhbg%VT-tK<qz4cBzO?EOaS~BwAVy3k@@lS*gD^2bVF+Mj<7e*99
zRnW+>cB9qXA`B{XyQjhTwdUJ9g6r0;^F+JCSwlZoop#Ba59Zi`du6&+v*h!Dbuis~
z{i}`VbdvC%{6_-Ta0IyiHGKD!oL4<?oNc_TZuffKpCgluqM+#y$GF)o^Ni@hqj}uY
z($X@JDi4&Ng4h$Q*ZR~=_0#J8b}4_cCBK8Wa**P?;B5)q3ZaBNQHL1*k*co|c$9~_
zs)9p^`5+~u-Hf`?zgg!U55cUZj)R@#S}%ZWDPOtr8uU395qYyICc>iJaBs;-ATcj3
z=wRbj5H19kCJH=-N)~783yCFjgz1179f@vH2&8L%TB@WvY5r+~rCrjtdzo#6X~LA%
zD}UU|#9j5vMeEj7pOQlI@Zm$>{7_2(6HdzX^fa<1$91P{76e8!3+FEZX^ly?w~bEB
zoJ4vJa_S3?7P}6wK8(;4`j|VEQ=S-PyK2UEi(N@|_Uq*2D-Rz&g!6n-*8?d6%<bZl
zHj>T(0!~kgnnE{`_HwNyge2xfFOxw7$EVSH`&oXuuN1iM2GyKm(eFVJk}z)RU~{$-
zi8sJ%330?O3%-mgcQ|AhF}N>~X(s#Gb>UV*a`M;sYtFrGyUCnA%1abt^(3T^5L^Lb
zSGbK=hNdA3Jm<h8b#iNF6XhuRaLbOufPu$Pm<F0P8ES%4!UJV;PN@`0L4TugBqdqj
zw!uQ77#7~2@$jA3yeGkuMSpJpn%ib~zr<b!Cz?WhamJaa6Yo!a!I(^5b3O7PU3X7$
zP_Q$)`&+*(a)P|~OTS=E`#Cd->n6i8h;hEgapH!fOv<O`u)x>C=kHF3RIDP?)6-nP
z`28<l@Mf>Y1Q;1FB-89j5S;Nfy(Xw@xAk$R)V|gVHs6$-{5IT$P#ya&Rx(f!r<s{F
zT|ge>lgPzAV>@Q``$`sFpY~O}f9&1MM-j8^_Pj8Gic||pFCUKqYRt8zL1E)SE2VUW
zn7>M^*C@>{7)f_EM?lS}<mp}{?_T0$3FDpTVUv@4WQ7R6F}g(L7XfwWuUYr>yk|s_
zB<DaOKMI^r_6?n`hRT4$R^hvr6Hny{I7tMGJB6L!$vlgD`PToj70nrLW8eRuTT!>Q
zEMv=?H~NKt*_~eWkAax3Ho<+fc7m@#Nr_6Pp5>-mB-CEJa=F=x2dtN)I#o5CCt;`w
zWSV<1>U#z6PNr<TB+FGR*jhjS7^FWIVM^;Km<?;~a~}60V>7rC<4^9aWQ2LT;ES_4
zE2ojf-WAK<sj+&C-M_R)b2NNx<6O7W?uY7J&T(zHU!)@x&UZWSfvV>)R>~!O@8@~A
zJrT{8cz}bcA4>GFwQlRAK<o$I6Fjp&uff>xLLvf@pK65G$wUT(4MUQYO~3o&Pl<^d
zC6Y|wpkO0ER~}t_q!!UhFCh=^Ax;^4EuRl!Fh5eBbJ1O7unIjYO|>nBtOTzxisuu0
zj<iwVNSTf-&@~fZu8~{mkT5lMO2A&EPE$B(l|_Q#E85FUrt4aB)p^xo_x>O#AxN^8
zI4%725I~eghc#*7G`W8%;S$-?4g)2Ll9|udI_F&<T@z%Rqc6^RqmL7Pg-<(2S)}>y
zxrdAy%Yqo*jk+$9;=uxOxe~p1mOH+?zl<7jR4J+lf%Gf5`>Z7NElkX0V7tMqxh(Ap
zbM>3=#KSJ2Ml?&zT3Pk33uRZ|U3D>|H<o(3d?u$*yHuc$b$-*_kD|w%!Sh=>ht~ZO
zKO>;-bLE@PRn8O@D01>dawIl9&T20NO3doiLgK9SJq=xw8bQo?E88BbROPt7ZfV(q
ze_`iP2Kr3=$R35C6Bia4sXrZ9Y_15Ixn|oH8Y~R+hq9lZH1IdB-l|%;Lb1Jgrf=7O
z&abd8KpnCmHVad1x-|29_m+q*{39}#Px5RLX|to<42GI|TN%A<I*B92KJ2w@+7$c5
z^wnECy5Ft{NxjK`$~LqM88uahBq@eR+0W#gbN6fuM${aAy^c%GjXdD!g%e(n=RUk4
z6`e>I3x|wwwd^H5NrA^!FHhd5I`ZKynSQ{W#StKM>Llvp(ldDabgXMts9##|zSBfe
z!F*+4L|WmTzah>jwbS}l!FVX56`*@~5}Ur9tn3j>C#YQPQ#;w%qA{s=4J5K2`kXRa
zJ$alILL|UYwU|YUg6mqJ_%;by3KTvv+!!e3T0jPBygP`HPKLYjhQ1CG01R5eU*QD`
zO~{%3Wr3RHJ)0i3ICc%?@bt^$hEFj;ceBC&4Ok?ZxnQqPyUBiJb4*G>PO&{j$7@2>
z%cRva!;`td7@QjxD9~vm17aj-oMY7+h7G{O!Ev4xMv`WRz*ktdJ3@V0U9=4`eP!5U
z^*BU)CQM`uM~oG$<GcUDwlcyvs0JQJL$c}UtWnL(IZ<8Z?T@93L*2XA$2VCTiVLXk
z)c$689Vmc&E`?FwlDO>EXPybM{Nlw2dUgwsa0<sPTE!@2h7MRB!sLM+da$gDQJgFE
zP|b=#cfCMdc2a?zkXR`jH2j`?;}M4*WKQ-^hSH08rhqWVPUK;WAxPZ@rrZ7K#ty8@
z@eXc#cynp32<dx~VL{00k9|Tz%?m<&ef9IOt-7t@K&IOdkY@)p)a^FUy8%#8afgWw
zUJP!hFCQQjDeno9$siw#w+mLBP(R@CP7G-Zl2k+o@?zX7G~8{2e3JDi5C;Ma3{6i+
z9=mWtx>GFMG@sy*?x1=Cj<<Y9rfRAUgMiEM0SI+{I$h<eKj`2n!D5#bXaD*mo?&-O
zRtQ@#WgUHO%{ATNj=URoB6YJuNz+1gA>JKM0K|AQ;06pw41fnWPbqJ<ZSBV`;z=0B
zKT~Azh@05@{AqdR+BWzNCIxgVJv|pFnfNIOO8>!w@8Gi;6}WU)>^uY$=h-c!ixZnA
zL4$sc>D<_0+r1q4r0AF@v1p#%!gKHvKUn4k3nctg6a>`3@Nh5QW8R2`U4(ayw}Z^?
z<L77aC7L{)3qkkmc$(JB;d!LfkE+!B3w{j-BR$Arx6Gs2w#^xz8K+JEX(ApNR>Rie
z&JIWWTGrhg*@J9sY(a(co!#9I+k#l<*>I25w5?ULCm=L=5%Sh7umCy|m)cfSQzJB=
zPad~cxAVm9E7|u7prENtGOWZd)*hXf9>7(Jz@I2jBtsl~z^j@iHz5Su?LZhgc1pMC
zkkih|sKv6ziAe{Rk<0qbGf(0QuB@?0pbh<tZS$9~ExqKP<niOx;^c`(7EMY26mH3T
z^kdpEEN-CyQ-*0tA{dUM4Wo(S$p*gxp93%Y8<{VG-P<t-O24P-UkvCda8h-0rX|a$
zSi0ptsYP{AojKlD{@>YSb;xP3$2mq@O5O!*+RBfazH4=C^;X;;OI{;z-G?d>SJw1V
z>gZ7lQJV_!fG8rqyUums=~b+e5E9790x^~(=SI#2pSl<JL282zh78C9TJC&5<~_X4
zRC*E0Jb8Ekwl$t&d8^KujF}@_JORm~*<tZliPSh$AVe@j6rs7|IWb9Ogb_1P$Zu6a
z6{>+7FEl|OIWdSwxWOL30;Y(<h>%_l%p&qQ6o<i#`m#au_IGaNNhxHM1dN%4Yf$On
zI)k12lZSf2`}5PBLLdiImAT^;$LTTPv=}KNbMRyojyyi%Lr{Pgo*YSLMv<PU!P`e%
z%{RL!>2%&;p-_R=CYF%cJM4GW_Lt1`u`e|bU7`pyGVi?-$bO;*{sSs}(|dM;&79%t
zI@&q2osBIX>L*Z9JqgJVDLEv;!?_L6PyJ%{++yfb>X$BW`ntHstd?#Z+IZ$y_jgf)
zikFZE0t6D=i>gOU{HMdjThkdsb_<XYjloB|Ck0V&`k*>3%n!So;2;yX=&@R=v1%na
zpwd4#k{^g%_eDjy>cJ*J9{t3+d$);E6On63E()6}z&7xauvvE3b|OKedmF>!d|kBc
zx?aJT6`m6dMb~s2VRqFPy1J4iG~yOkuZ!L<{;+g#8DZG|wWWfM<-R3hIA51^PcX}*
z$U*XiJ%mcDFhKun)kYTMW4hhTiXD`rG1o-$M*^<X7hj)S_T}`#%;hV8O)vky*n1D4
zD6{Wd6w{b>PyqvBM1o{N1wjcas12e7$w>iGvScKWj*6h54FVDbF`@*K90VOfL?kIW
zE0RGnNWSYdF#q|zy07Zps#o>u-TS9%re?J1?(h4~IeYK5)?S-#z!f`l?M&Bc&o7Xb
z#R7%y!5RrlIS2>=L5FArQ)3nByhh#buiV<BtcSA=HPk4`L0+WvW#8yJSUlaicfWI6
zLibBD_2Q~M@Am{oMkXL=GcYj~eY^A=qBrz(D4jTQBI^CJD@#2$tfuRb{@_xxBvKVV
zF1KIFto+?#-TN|B?;{YmcO{ideMRNSdq@oH9p^=w)tgauVvMk6{rPtbl#til*%j9N
zCy_|eY*-K}SgUXQ`&Z*O*rRRm)$0X2VK0tN*_D6qSx0<m(AHsdtwZ+saiS>3L8b2K
z=y<IIb%+j-^|SjIJua+XtFsXBTBWcN2ro$<3FrYSKl%lU>msq<0h2(5fzPQ^ek3hN
z3JQCjFb6<>PY^;^w&*SJR?kf}-}PL8J&6+X&*BbZL<B?zHA#aNG#sSGlc@DRS3CAM
z#i6@S!Dzt``K(ZE%V-kVv@(7O23ohHG5&a=9))CGIAIcy+k_^-;i>ZV)&(!+n$3L9
zGrh>WD-ry5clDYz5o?#8RHCB9t(2#N+f4z4s$jT${;Qom&EY%~i+K8}xcD9ip3{_@
zT{7u?q@v#*d3)*L!aKhbO1(IcL;ztBm%XYwP~q^yxawC0<H9vg?ZPFZ$Q3C9i!PNy
zO6#NsK+lnN3r4qRJ@HY!Xr2`-B5j5)I@f?#;dw+gI4*p~a_%u)?)0=9Y3Y)dHlS8K
zRop?Et0303&$^8uN?OxN(-gA5en{nFu%bL}ZkzuGUXpiO;(mi7`3+JSmF^TET;%1M
zKxB~xJOe3@QWeJ}k;@}?f59mPE_fY`W8R!;gwYI1lPV_`FQ-C=!}(?5l@)94(O)-Z
z|0o5AD|pFHATKF<L>8{uF`qTN@&|fHlE@8){)z{s>Z44YayS;tummVS7cPEJ;uSGE
zwCNGOIT1+X9+6fma23yRy)agLj^8$G%Fcj0LkyY^_3@&S13d7=AU`eB$FD5<Vq5U?
zmo15E4}&43KD^yfdq>uzu2(;I?jdOmX@s(kQFdk2)5|~Z9w&|PGB>`ZlJ;~c#NhDD
zV`qUqLORg#XIs2J9%5o-e2RWIJ-~qL?01t7^D;Yfg-MOzgg|BZE$vX2aX9}ud<MNw
zD6LpJ_cV+lto8ukM0sm<-v~Kq6|Q61@At-`fI2<@MX#({t$(Hqt?T7$g|g2ANP?`X
z6G|C15Lf)(>tqzGtm=%fRlQ*7+`~Ki)!>1;vX%b5j><Q@S_0Rll-JW=?#~n2kvviC
zw3LPBtQ-}3w<YC17^oQI`XBf-4V_$NW#ypc_r>46TE2PTI&(2@`|MtWlGJr=585w%
zq~G?f<E&fj^KXUrv`g~5gWtv~j{y!s&6^n{e~2q>Vcgz1|DX7G)6ReFXGG=x>vsD{
zV%4HYJt(!qHiO?1#$)8i%l$5vD)#E|(~I+eLU)!kb@4yx!VGaL5gX<sN8O8J&`hqm
zWzhvai|i9T-3o*<P6`29fkmC}!-<^KwrIdZu_$kGg0>JAuw#8|b^loSgpz|~vqHmQ
za+zqbZY}KLw-eWwCq%;i<$fDb(B*qJExf#A$EIu#LiLBX!3OI$!QU7EoW<&O`voT5
zOMeoEi?U|z@QiIoN5@nH?M~y`hL^2wGDB@4R8)tfwtVrZP5Q{Vu$sLT0b(q?TNwNQ
z{I>mLdtI|-^`h(hE1pe@4%lZ^5p3q);_cHDi#|dB`@As&V<(-`FdWTv5rPpThBD%C
ze#uigEqA8J>1L?luvu@v)e3?bHT0FE5}dL1hayuO^k2%*@bF7<k$x~bFR(t45dFD<
zcDKEva15vsM_=NBqEL^x@#sn4&U6b{3jp|EWxth`xR{N=zA(_W7a_C~HO@<M_U6y<
zi-N9Ywf$Dw9bYcFDf>C;b>XDs=jT85Z<t&31&~S`EfUJTh&11<D)xS<<xXdsVE#w;
zAKFY@DQhn6yT|vbM7ip^J%V5Q-*)nTl@mu*<?{B&#+PMNlkC!lHnPT#%+Nl>tNSRv
zENTC+f4^Q#^Gg+EK;-n3JAPc}3+ok~z7Mx6hVDOG%5v<<>$E;4yk}a;?W_#n@0kvR
zcCtCO6YuP290z)2Zp^Qe*^Odai`(PBm)!q{yU%)k5Ry7H)NH#>->I~42+*RXGKx{a
z`OhF1RX~-Do;%I^cCbDr<~5`)A;2z7p+M7<L>FMzK04)vNBTVG@1-m<uR;*i0CC(G
zNyvq3Dsf-oAZ!$2+Yzl5BH)$~2*Y`3--%hzBy=7O+vTlT=fA`%N8{Bm-w{VjD_adJ
zQ8qyyAWwbZHdH85*w`Ef=Q<!^mX~iWeCOU9I5p7~1nbws?ZY_A6+`z?h%XkD2b`3R
zk|TGB-y+IQ8Je*Mq`ZpQEeN%Q<tLR+(rv&1ynFX1xiqhue^0ON<UNZcrO_U&Kt(Iw
zW9)gD7#=2jHt_D<hsak*`av37E|(yseFj<&x_DxeL;Cc<?-7zYsgbIdyYMZqFs;^?
z4g*-C^#I;51WN8edO^M>hbfXtDiU2T9{$+gs*k9i4~>uaEgaFSP9auUpo%a74V3YD
z5FJ)3r4U<puc?<vo6Y#Imz@vx`CA2mlvt4il3Ke%?CjAM!(gyAYN{aeJ8<dkmClAF
zbU5Jd6gHUs%>-2AE(e&xiH4wD7@x_J0?^9JD(a|>0--oy^93=)p|Xc`bcgI=_bWLw
z@>RlP+L`=4R2@Ltp5P{|kl2Fj`=b*<bT3?ZkOEPt=eCmk#Gzr&Es;`B&r_E>B$zk&
z?ux6qwQVmRx`}BRVqsFUq-O{oB-qMfBsO=U?(DSooYIMUPe<q6={Yy<d5=on)Vb%-
zm#D+bXt73Sz08&BQo*cVk(ue?QtIQ+pHJ?`6R#MAGeVGyev^1xL_Ml=@<C9NoR)+t
z8;^J_BMv~qY2a^PBWFjr*Rl^MP{&=%Z%0(LOqwraR&4X**NWez5cCorRpe5$l|(x7
zQr{f8ZPmlta*;PUWvAYh^c+=uC9d-M&JzQZTKMwC%liQ%JweA+utW};pj1j#Q9c>W
zjT*G2j-t2<Z8MM0`0)J%pE}%V9AE@ZO(pOb<;A6Ywu)P}u{{eBrKm-2m3fwGwb33c
zZf(U2jkFJ?;w!jMuaKbS0v#<}<{plydqUbE{MSX2*-j+kW;AS=IKWXs2e;UcS4(2>
z0P$iRo*=%(33nDEam{ipHqvViF$o6+gcI%RkyM-n9jk#rM(Q3tyW;(!*r-^Gu*rXh
z9D)=ua0QAa{{N=vhR%e96TM*q6d!aMDvC93`IxqlEkylx*7r9wo2;)yW(^}ne%LBg
zh<(K6hHsZhw+hY(vaN|l0mGIp7oj?1NCm2V5~+J`!G`%g5oKb8?CN4;W(pqvV+fmH
zf9^pK1o>1>BKgUkCEQ5ODJ(Yv%Q^JxCt2q#Y>OzDS69+PiP)Hw5r9SPp(G~_Yy^kD
zKTPmd+!1$Ta|!nODWo5S>LI<$#F_Eq$B%Tf3mIS(7yCP%Vt^i7Hg8t#5+|O6_Pz@l
z6y2Sg=!IKKXW{#Qcqa7kT>8ImMIh&DG?Y)7fp3B7n)*JnQ^?PytN05%anMYTa9FE`
zdBG#NZR(Ws&;LDL)TSV-@=F-^L7JQK+g~G`nqnYPd;MauLYmH_F7F2k3Mt5LAWQXb
zmcWLIxh65L063<D7Eg8i#r*Y`bP$L0=1rT3+=Ad8kl)-T>cwGAgfldqMFUMGLbtEb
zVry0|8dNgAviH3X>kq=Yl6e(m{)l48p2O(<6Z7{(FAecKC9b#tdwS52q3*b_Z0HW>
ze_7t2v3=jgD3tHr5Rs8S@t?VK9>X;-?A+(}>(YLU8YP-B8$9r!eek@tuy*M>ICD9j
zi#HrO>Hx`2&)iJz+%sai0v1{wW!2|a^!<>PN}5X1@jzT%W&yFx|CFrtI6d%ySO=5H
zMohSfUb7+*Z(vHaow(Jg>Jm^WeA;uXd)?x<wRobvIUCGzyH6v;%;|p*6Sp{`-b5!3
z2@<0#7D6AL=q7cR2!PP4gyO{z6anntKnX`QsS#d)<biMvcO)<hYL@^GkjyWE_Myi<
z65^YeyUql@-?NV8z$F;~3mvJ@$O(9_YPtl=cR*fI?=R^9?}a1Qw$45Cmt(dMw*uV~
zaR9Ss0J>?oxVXd^0miHXdapq`x}gKQJK+KZa|DgGX7~!kJ`IyLqHs%zsT}#5xkuy}
zNTTp&xa43^Y6h}Xh5DnFM1=2-?z2BPytgEF#-KXX0QAV*n12pRMp~gQ`_~;MV|d8w
z1k-U(Yp@pH0dVE@BwgJMjOsSkh?mOf9V6DWlrON>I5F@W0ZPgL6PTp|$b1kk(*eMb
z_V3#cC4!Nps5o2PI>PKncU(2&N-H<<3_%)Xo!R@kXerD5;U{zZJmrcQQV1ki+YdTg
z+?QVB4>MgXqtW2pX*puoRc{GJKpsCExC@^>-=3h?><r<sIW39(16rIa<e2n~DXs$z
z46PrYtIxRnx#5wDwDg2Vgp~8{vUBsdx562l0=|XMA;(lnz->K6RGm1=Ip8~D6NbKS
z^}iO+x()$_w2P}YZmh<a05knoh40cEk^-!aURbwY!vWaSL?R4t_$wf!+AGZ(eH!2n
z5tOpH3p;iwY{~|&loq{!=FoYqJhF^sVe!(vJs1?*B7oEj8<dj*DVYmw!x~<UBj{kG
z8Bre-$<VoTK~}355EHtN{R$$ada6WU3kL-Vt3y^30GUys%qOVC(~<D=>VGYk6o=nY
z1-3&owKmBOgnFhPjl~hi$OfOq6!(vdn$(sVbSD+tLO5GL3ewLkC_|Z8P?I0$4>)uX
zGCteFgRq{k`o*>oOEVxjp#8{{z2bNmcJJP3<ZnkCtwlIE^7tbUUH<Z)Z;#H&hgwpQ
z1=NoMD=Hp>#oAf9-3#yV`#yfk05)zDzjb|Tai0qe<3)<d+@=5g4A<dev9LCXn7;P8
z;NTQ1LJpY3PSP#%vuZmYY(Emaq(jgQVfIMWCkgmHMG$H3@C2kQ*8ll=;ITA-`-?=5
zca|R|6EmRRD++f-(7e5E?=jL&Vc-hyP5^8d{`HH0$C?peI(Y?!ugKduDd-K))Q7GW
z=x7fpLnY8e@MKCLt!6KrAj|89&1e$u;-kZNjBUAxl@>!f8Gse;9-YK+i4^ek<O`p)
zC6@f<kiEexGj7e|6TEW${Azs)d>pDt*98PwBt8HmI$uIWIRJ17B8kQgqMUgxvH+cs
z`(asrDIP_yE_zo|iM$GSyJ(S8r9Q^6tEh&@Li0C{?ya2%1qUcEug_z_g+KcB=M$Yp
zqhz`l8~^7phez$zaeO+hU!=b|0jX|U4^YpyY~L2&_;Mj40x1UmT(*)pB<WXj{{yM~
zOtSF3j)$p=TRkd~u^4^^ZgKKCqZNu+ZdbWAp$8KE+$tc+?t$$>TZW;W*uuMe*<sm6
zV0wX;6<Tr8aq$8eE??;4<~{Qk>mD{LpNHVgb7B##l-ZBPngu`QB)8i0!CK`U3vU*+
z2CE15hK5PKmkz{UTm+hwR$%iI)=8_RurM*2vhZpd1}s=Ip@pA#`TKA!W<+XubJt2W
z4PulZ#4$7OIhO{(a_q%L=v8So-i|u*ZY5hMB&1aclNHbwLhN4t;_2dhw5>{tz6)tT
z$l?<)gP}eKqV^mTJYtbT`~#7fr`1hB-4VO0Bl{8zWC&V+{oHP-xky(^)X{~rN$EYg
zJ#YZWek;oM0F4d;Myp&-Y0tW&;0G(gLA(SI7bH;y4_Ol6iSBRNmW6}KEA+!_f$d5;
z#Ih$y$EsW)tsxpjxSF#*1PhSI3X(4B^VF;_wQA)MLX{oeC<(LKw$gv{?Z5CC;nfm%
zu{}H4woTrSVVHDMe!EO|8o*S8?i9!pctFLIRNg$&ZRjS!he6dhNiSJg_^;M0s1H=V
zP%EMqOb{PTlZop)taguwV{>&9)pDftVBTh+`)bfhdd!S!pm*OCU2yG#xDSVs3C*tE
zKL5PD1YXHqjf93KkDrKn8|+|qXBq@aV+;su!rio+BRhw&SsJm+9!^1$_G{;&dAH*c
zR9U3oENIuRT}6@?fHs><5cA+yam1F0-*a}N1F-b`C%rA<$EFwuX|&IE%!2f2lUNEv
z2~G-%)pl`wrZTt(4j#DMBGk;T;%p(u;p=l-+j2_rkngtvX3(giB|Sr6i}-zBnZXfR
z9SAk2n3E31q&!X%i(I%rEjtu8XX84F*F6NyJ-nrQaDzos$4!w}R8#{;8@KMshhOj6
zW}|2hL9Xt|&6L{1u~Cy?Z^LH+<|?EOaZ_{a`8HyG2kDDeT|3x?f56~X$AUPW{b6GU
zGH*9p*xUrTxSm!F+Yw3$9H%-GNhtFl!&R*>TQ{F}K(B5hAO=ib&zG2jfXJB{)1jyw
zK79C^7=|tFzl1pkY|#SEIF@3ef~VyRRexVwi=&Gd|9ragap94*m{6`%?^y?L`>!Y4
z!5--mJr(jPh=25Xg-soq8A(?-dER8?3VOHV@Eo=1Pu;eK2OlZbsE<h&iZ0|cDBk5G
zhOtENuWllym%uw3QlaKF49Y^pe&$_7SXm-_r|4kd1hl{RPyh;;E+mSpOoAGWEz$8q
zvRMuuad9p5(>&4PJ82EhF6j``0lp(KHWK!oQ6O7SP=TO41?LOjzN`uu2ahNN%HWJp
zT)N}B@>7=gdq@^Md>LagrnfG(ejUW2F$JrzkTyu|gX{QGMM$orr4NZQ!^4ULSSEx7
z{M-RHLLGOH9OQQSNng7vus#U=gT(d)ItL|C_-b_^At!$MIQKXxu*8h7VpxQw&A4#(
z5DrNTCbNPLv9H}7u%L^FprbOB+r3`}$fyG6J3BkO{l*`E2TesRWvj^{fyYUXU|=(_
z%~pnr6d3^F<iWZTikMo$bu}2NbD5IDY}dm1SQEnOIslTko)BrymB&0ha&Re{MBsp#
z8nMJv4{0X^%y4tSqySy3h-QNTum-R#m1_@L%+RldaTdvxzA@FrkyAfP<j6s&W@1-8
zIo1P~hnVX@eNRRjSXINj`#v$hM=a@jT_iYc^w+{S>CK}uWP|<}8^2!+-iIWJtS>G2
z{sizA(gvbPlV1L|2E>>ogT&C3ay-5ff)gW?Cq|y2g`h+<<AHdRpjbdnF#RqTiQaD#
z77L%S{|-_>43@y+f)PL`0=Uh~Cekr#i^hZ4Rr#VAun-8BUFby?^K81ePx))3A0o*&
zxeSR9{D&q^uVjdADgOAe4CGU>-4%g<!eq{Cj(7Ede2AEr`WWp@Sib7;$>SYwh>m6_
z;}QUah#C;m3;{B3)neLt<vJ&lhV6SzZe{rYM9Elzo>nrbl4xy9GrFFJZK0=sh#5o8
z+1qsBO$n9YX)T7u*tvXt(WY$p&rOo?NN`pdPC?UYpu`0{9uq?#kZ>y{gExWSt6y7;
zTZiAjUY@`KG=qSRFv+L@Jr)JOCXo&dvd|%&%mmZGf%~z`UVGbO;kW$u9?yN~1XX>5
zE+!WwOoUg*Rf7BjoSsy@n2>1Z39W9j1Dl9ASJK?LaPMWx68{UCkQx0K&2_$zaXk^?
zp4%#w_7yR9?ILR7)pC|{B@OF@m!E$mgN2WpxA0!S^ZyIk_=Hsh>vBZ27em=NFNyI7
z>0d=z!%1_V!7{Lro97(p;P6k<0d(v>8g7QTgA7Ch23Ljp<T3F^K`H<5G<8XB^g9?v
zLJ5m<HjJDX0LP9&hVbV<56^<{tm^<QU1$b;j}fKKu=@X8v-oT+c%sC#h{dlKWMYnV
zyA~h8)ar{@s?kE!hJ;Vl>+ZsZdCe@}_fAJs^I{M-_p+^vWpmAGna$ZKB1MWI-};Af
zqwD29ySfP~^p`kN+J}KTA5?m{_(lTPw8}ps?mr`gKT7wmJ4%LW!fSsN*>zX~rsA1H
z7o+~y;<G*c9)$xEM1{U*J*(jb5ATN<Y?Ob!VAolleb^VB#H$k}j04ux%72pOR{{wC
zCdS4e_pD1RS-)|k#{B#>S`IkA_|O7z=efAJw96M$?6=F7)Gt13x)$(+3$OgYW977L
z15!Y~7VcTc7y3d8IqFQE)WWaS+{VtHr&h~+p7Q?aU%tqW*R201JN8o4dVR$SRvRMg
zjuKZlBCgA6f;xaqWg(UFi4)$Wn;K`sMaXB`#Yx8r^iOfC{z>nB@G%E}rXR(JtAfJj
zq#%MtKp2ZU<B>=QOni0G4o!HpWXvlfEs8`HOh&Qr9a(ttUQy?;-a&~gqh$(f6zZqP
zXrc=aYY?D^eIksEj}iNF<f24(fHFXvo($h6Kg&sy1$PcIm6o~>e1>>L32zV7ie$bP
zBBh$6V=7JiLwmH#d}*JLeF~|Fn-xKosE=WUJJG;M_jWJoQbqs#w1?4|mk?zs!QVXd
z2UTGy3qI`mLnvxUXo(QF<0^ZY{sb!_6jn$uG++hU5`G*H5^zK{f12sn4}C5GVN6Kp
zH1|85qeKu57(Xq!7<zq$`ek%yFc3rzsT5d0D`*&+M<D8X4s$yinOLDjW^W=H00G}X
z49&?jwO#MlzEwen4?@x`2xj+<{fBy`8%diJR-?2tGQW`qyHfHb;W#~suJe%3bbokl
zVq=TS)X1D;d;RCD)*1hM87`Itj;9kHln;BF`N(EQ=7w@iuxM{p@0;VxSbp;wCZPbQ
za#DC$*h^TYrK<@^OE>e^x0T9WCF=m`i-2iSW9e^nZ#~1y%hx3A*a49MgZ4}HsH5a<
zH?^))b$dLuwq)r;$B<oRJLwLbCd(6HDx?jYCqvH~y|X46DEa@jhsY+&aBU^<K4By7
zIY9Op1H<_HrTrL__wOY_xiU^#-?0EWDM)mPr9TXXlz*nK#o+^`VFC$LU=b)P*lDcJ
zEld9W%Z04juvsMI21s)h^excf9U+wwl#75O4`O835u_?a&4$EYt=mKoVm$O!s6waq
zpJhBB1@>d4XhcicL*!!=aL8ZKtdl|pq4dDcN*8`WN<bpi&XEO*A0Q0IzSlPqBQo&9
zj6(Xcz*j$g+wFSe1dbK-W%WSsRt|{bpEA!Ym|y3e4m-*V9G>bVzQGef2jvv;U_Q5%
zkafrkF)qT;A#MIM=zh27Com#@1#FQr{&xDG@$SnxfdehPjP49u?tG+1OKpmA;U-jX
z%4CoS2MD*24*cQq6)RRiKpl14auGp!yEll-dGFr61p6m(Q|&<(CV~J^JxvV^4Sj(_
zTzlK%eheSyuaEu)4HX^_|GkFWH*dxaOyd$?BF~{dMhS+K>g9j!djzxjELjy#l=>JQ
zCp~y5UxBw`3<AWV(7+%~rbuMzy$4?LpXosp&b|Aq>(KK~ERukeCcJJUPQyVRXtezo
z=7F8*ffL8%GA08c<Xcr{VN-t|0%{!lPsAeWMiYR?CVp;i?qCVb^inzZ=Htf`Nz=%t
zH2;0tY|4hfQ?v+!VDwXnNclfMs47OafFB~+EWLhARWK2UU&;RkNJ34aRRUMJ#={r$
z^)QR=J--viJN)O1`Vd&P^x+*>KZ^DovmngZH9hK#>irKoitOPt=l=6EN#y3=h@g!U
zZLTZo3PU#F*icAJFK_q<_y8=ix(TIDCs7~}k}w8mBgtDbIv5!kOp$v+*O)R<_t)yp
zm?>uYuMe1&b{%KEQ0><5KPS2Oexc&e!@t|ath(9r@M4Oj?Wve<|CXqVa@FoLFVFC(
z$t#rF@WchYh-M1TRCil#YTA|XWR;w^4#%q1n=(#(l-ygJG(I_7Zar4`QFrWfucT|j
z{f^<m8vlaO+Q=EL{*<u`38lT&O-bs?OEG^Hv#57_vNpnEV;4O1c3_WOMu!$xb9++c
zj0H58+~}uBpU$t@aG=HOKwt7#A2nM3C*!Z2?3D)6Xb=`BAAmzXm}^9k4@;hammGDY
z<1Y47Xex1r81@m&+cnSAHpa+SxwX!_*v-t%TXB&1fhgxIf#!azi1Ei`mMBS?o;`3e
zgIHs)$Dpr)tfi%;umbJ(I)z>CMSq2~Ly)wYrDI`5=j2FXD>EVkM2mBaZWirzaw>sd
zPDsJ;a!_PtN1)m-bVqS@6WXgSM)QS~Mbz#kB-_{(P$(<=<LbOHNB-sRjuwZzG$_j}
zUIXt@Z<$ssH1!(|`;w{NE&p~3Exl5?*@pQ(hW51FNM?u6rU6#F&%zUJFsOUHRgad>
zlwFTro{eB*zzl$vp56u<Vv2G8U6}ALJLqjdPUc;Zo~qT%v^Rydi|8ym<c=8`86{@Y
zz=4)sE)0(XgmC@kH8oo+E9XA?c9cf4%}plEZQs9te<Et=d<6Vx+|yzYM9~L^fwT;v
zY}XdfmI(NT8H?P%?GagQVuUUgv_*~>#y%~W04~1+ZgA}ErzE-_i)he(<4h>NYTyUY
z*$&V4t9DChUvfZMZnd)pjOlM#(eCHP8+Z-r+CL`N_ys0i64Nyhy&7Q89G+z^=&^+O
zo8>3%{5p~AxRO9%u2Rm2zWue?M_<V)38PiSTs^*z)!7yah)wEIIU;`2D5?_)crE;|
z45eOK@U$>2rG1@1eTv{~^%JWazE)IKePGnFD333I^ZmhzHmJ(2?0sm9F6sgw<!#X%
zcq~nR-Sj;o_fLk~m5AFwT)@a&QB_&lc6Es8WCPEq5?&3s&*^>Q+?S3QM;sJm57%Ex
z7sU*&?GUP%L_A2_V3j+FfcdCi*xtBYu0L`aNDK$@d$A2xeg$vtJmduiKSk&|*=JRF
z6Uk!D8II`BgX<s@yx&}=yESrs(3UNv7SPA@EPNBWdgUoM9Fo3uY;<&%S-AdIK7$GQ
zjG~LdU};54;J{`Ze0ZZ18~{I{?os+FvZe|_K{NTH@;c@NuNt1vm91Ew%~_RZ-JFiz
z+t$Ycr+kpK9D?OX+pn4eDMsnZa{uqRD+>8(^s^Y$C`q<JtwrircPx57bSv+uw@6Z?
z=Uqk@B?<Tp9`Ej=&HE;;YIDBca7dZV?=PsESUa@;sCXRPjmSC+rIGjn)egx-=gSq<
z)dhf!cekwQ+{r7g*UL2qohQ0zPEEJ0l=jBqe8^+qDq9}mvWcfeFZ$No1QXO?b8(5;
zZQz|;R}XlFTZktg;MV2y1()9^Hmy39pIX4C`cp)EKZFTB;$jTrxgVpFtZJ-JuIty+
z!Jns0E&FQN6nfn@c!><ti(Y@$towC!b?M-H41pO4BlMH+&<pl)Frwd$d;9j2Z^^op
znOfysbQY(&FtCPn%p={!{v8%4K9*^XqNE>BM1!_k9^dpzJBdlk-;uQ423nVgJ`#F3
z4c|KLF%)0}Gp!E@c13zL`OKZA5fUr=5tkoj-rxM$+F3Y0sBYf{?BxEF;xWlMc|O3t
zg$WG@39YDsZ{w5{$GESibUgoE!A1A74w3H_b;W_V1=G9imFr@IIVcxCQR2G0yAQMl
zs(yd<euFQ%u_X{_wnt7ibbQjIp}k7q!lNHvu}I8k90coMfGm|YCFP#`d3D;`P1nt=
zZvq`JxqZhD1?9E$%4%v129sZcza#bZyYS%h(}p(kIy#2f#wGm#VRU>Xet84W`T*!y
z7Yi3ZUTfMHl$Si5^P;H}Jo9^9Mt=3Y08vFA&dT_?qq3BC9C`(AnwKL!4xG2f`Qyp*
z`TFR8<F^>)by{*J2PZiPnwT;_w%JDf>_HGmI}50F$4ntQmsAjV5~LG}oDR!29@=wC
zye$w5w~Q058n=HX;E2|Qb7Y1B&qpW=TaQamD&Jxjf8FpTP#68T;b?diMl&usbg(9V
zeGto`2RkL?#6!oR@Kzzr13t9{c+`3oQq6#vqsLatl&TmQur<$)rR}0n@oTRDimY<}
zleJYWcS5lNuW1u}q~};?`s~+Fr(A3%`JX@sZ$-}ZULb#g?l<<96&J601&ivzP0j}H
zyT?Vt`s@ve8|We6u8DACV|*w==kh{VkcmQ-RZ~>FCEinE8~ins!?5bK2kZTlPaE#h
z+20>6$ZqAfV7tMrRNL(Hrsq#_;kG%?v;yX5)z%&9hi6)Q6Lo?!LaW~77%J+DwnnfH
zH_+J!;$uNS9q>Ew-8*^&`nL-2Uj@0fbTSvzDl75^PWO^SAvoH4+p;b7@kZD4=vUt6
zb=nr^V$;4-n6pX1X`7zaSE&@6nvdsjEo!F)Vs3{h|Kz3PjSQrzi2qMmkpC}iPO_$x
zOL4{x7om4t$cU5da+!>Y->jK1GSI|r^rgXVoap;rym(=V7JmOC!7P3R6!lANz&LLz
ziq>+7)*1(FQl}LikN@;aqZw!l!y`Ez-GWA_GU@3DzbFXh!^?y%%raGL8Y_{{?i%f5
z>Q*^ty@fPoTl36MC!K8RfWkb?<YMBEuvY;nAQ($SVovN`VtsS}zI}PLEX1?P>}A~d
zhc{S#I2D5OV42nmPU$B6<K$#%kp}{<*gLcgVz;+fS{^H0Hm0wYiz4KO;BuJl%MJ@$
z)V!)ew$b|6=2PCt1jKR%t_jJ?=3!&86tFmj&;RyC)dX9nvPQy9O|+rcKnfY;E9Ed$
ziyu(`O&x%#Oe+Z|P!`Goga3{Ot=rw*pFXx|#A+%BmSte3!m3I-x_j}Oo(Ju(A%&3B
z)6?@E7ZVlz0FS85SJ5S;7w?Rk+P$oGbP|6A7omfI?~~rKcfW05t}(MJFDv^U#C+f1
zJ`(Xr<7z*f5J>2jg=oDTgTtxj9QQ{6)!GEF3bMBdB$D}jxzj>(LqY<nFJHXyfg10b
zva0H4Vg%oS8(NMsDIMC9PqQm0$8*Nt{DSmL7iS1&O5zNmJL88GN=PtwdWf7_Adw5u
zQMm<HV57&z$$f`6m&#~b5r{}uV3C4O+vx1yqCd114!3+x+g8*g=oz7YDZZYK)*x?)
zF@)6EsQMU1ZBruNvCp-cGgx;Mg!G4*G%9RBRC_}Ul8<^p^QTJZ(xpwC!VtYZE&~&?
zOeMDV%((2^fHAqCFM8Su_>dS~o?n0Y_^qw<fQJM=Jv%cxI!f*j5?7uh=jmiPLnR!{
zWMwNxx>(dI_n(h{>QFm530oDdY#<TEzhy&`_vuE~8<Y;+Lv@@K+q-%?YygpEGZdCY
zU9Dn!zp|oA_Q{;k2cMIoXt-k~pAY$=wf!8q4S+R$^wreL6Ex0GJJ~8!wNam!wtvSd
zYLQqxIW<{z=D4N9dFg}Z+wBqoIyfV-TahjK7gnB`S>5>4r!QXcVo+bVW{%rsava;B
zWIqlCJIO?Nbv{lZ=RTMNMGVuE1XyzJg@e;p9m^Co<;i7qywx>pOZ*NSInfTiw&NOk
zubK3%lJxq&z5m{t8(Oo1!9mv~|C941-?JbrA)l7w)l<h5uSHs2`0?g+ew{`AGb0I$
zAFqCmdKhI!Mf<s)o&EA_C?IK#nQJSzqtDgUtt#JrBs!!Ygfn=C<R&+qFT2J&wJXr-
zEObs2Z6~=@%Z#w)zeBa<_kP1ces*^9-N31OP`YWU_!ot@I);FciiLy>a<W?r)HE~-
zVBxiSCG#a2Sy^2qqc%_nJ!?0dKTx_>J1bZuyczo>l#6Vr&&7i5nbV$=s=X*rPy?0A
zF+FKFyG=V4$ZLCB+2))*CNSjj;&?0C09YWza=yhXnHh4P22?hB;TAhWlrcR7zPRF{
z6#5?7FdNE(gj3Ch*T~SeFwCsk(H!pQ?fv}a%brWp5J~xfMlB!-p5eXuBrqKBMlKgG
z<C8alxwb#j+3el!w9o45`0woKe<96#p^>pRYKW9mT&Eu}XXwU%btm3#^z?TNjU^g!
zG)vZ-C%j?YcxXU|gQD_NWzB0Wuson0+Szj`v;5)k<8)4rMFV;44QAUDy~$rswF$1E
zb2+p`$Wj7tWCXfHuFnp+zg*u&I<E&Eq<or&yiLeyTi+0-6Xk6<*!!xypB!%o0A&^_
zDHk+iBFrFia&p*q4ld75?t;$Q-!iq93vP?grpO5URs^VViZmTvM5^1wkhgb@#q_gB
zj&HfhdE(3F&Mv~I-flkod^DF$D*3cqS6N@?>tx5Nvsy<R9OrZrVd!HUyp--Qui&M<
zKt>a>$QSlBdVnW7K>(3G?REEt=gvvXH)^Q%Du*;oj$s3f)?21r&P|`ra&<T?$0CN5
z&8B|FntaigIh%P?&;KKn?f>Vwjmy0(uLpt@>hpvIf5@<9MZ<1~hK6=x+ABe(u&qDM
zmv2h%mS^knQ>gH^)1F48xrKC_8|{Hl80(2kn+<vaKXgFf{tMmRtd*5HmuPw9w9pc3
zrb#R>HX81P8ADNHAi8a{QBsm4t^hCuJtXT6)AhMCVb)_bh==|gbG9Bkg?a$+LMzHT
zbKwS-J!fSsQfp0w;bdUaZvb?J*?pwk217rO2?q0>&!8QB@+2W5nG(ssXFGsN<>8S0
z>I{~|5W0c8MQy+&7!sk2*Mt=nawJVSg@R|;MT;C3iE^`v0bGhcDD$$`>Cg_ZGux3p
zq1i&3#P{h^%qvp<9401IBGD7ORm@5k_?PD+RYBw-a^Q=MP%hhi*mfZgQq1p2+KQX!
zr00gE2Z3=o)ryjDNOzBdbD#LDcueeQ{&j46;D+=q+-=8EWj#F>n8WCYqcvrsc?O7;
zp!WQEE<w(7RGXiL3@*J}5z*ZPaKb#*fV^AOg>JQ<OEa^Osc_~VGR*TnHJSoKS+w3d
zrV%OHAfiC}ZYHFL&Ni~L<amhq`SRuGxfwR2@<*owvu>%MSC8GD-d7}@zVC$@@6;26
z-1Jw2iMC@pgAH9BLFu6-g^=c5s!#KDI*s3ol-E@3fT=TIdf!ODn{@Px*V4x=bl*IU
zaxBt!doom@?e6~0vU$2#KzMvCO98Kqn`*gwrLGN9;a?qG>^$jh)R@x+LmCEr=L8~x
z^;BzmxY)ms-mE?jgH+Dgr^DNW_<5c;W^R;<{goK><MoO(y<cU!5=Z(=@4X5wG1tv_
z-IAK1Kl$}}x0=r1W)cbC=4MzLg0!p!{Uzsec{t;r+HDuPmMiqD(Ap$V(J5CMudyCn
zd9C!}%DK@eouhYEd(}c$n6I6h8t&rcGt8BiH27{NaltZmAklHK$hsg;tJt6-TZR9H
z(Da*k+-#w&_awip@$_KTA2^rqpQ3gfZ*)OY?4W2@WzO8^pJx3G&dgC$&wB%(?Lb`g
zg`FP+7T7x7-F`P%cKjBL?5fM&@){usThS#aU>1pvdp<MIC$Eq#;-xscKF02zUVltH
zE+ON|6vReMqiff?+9_Khz?#|q`EI=>`jeD3G?+l1`=$&x_k8~(@ie8w1ZxbjKr8i-
zNKufJ8YSZO*HZ^moSPx9VTPj1E!N%o9Fuy54atMnq4BwP3VI?Iz?ygC68ag9EV0J?
zpl&I^ZNBBbF)RN0h8OYie(1v&b0w~kMp=ESzQA$peLG-CAWYDZ+c*=94lb>*H8YQu
zM2C3!D`Qjg2`MQlgNgp`v9(ihL}evGA0>soZ({1~uf}vUwSDp0m1>+0@;XMAz~q&4
zce5C<l0yaKFkawG-QLcC8{&%tC(qn&&D=mvc%6$CJA06u5}QIDeN>RDPW>>#SwXm3
zS4|M=ll>D{%C1X|CHl(&vW_h_{(k$Oc~<&sKOW;)fp`NZU)6yT?81CF+-hfgl8eOf
z<-Fd&Lt;R4Eqy2QkTC=5txS9&TyOcI4$}iP2X5?cQ&&~}`n~y!y|fyIx@9(HQ(Yg3
zNPmbiq}ka?G7Bi;_>CztOc;2XAQG*QJ8$Fxm{1DbUJtU&5Nz|^V#e8<>gG5nwb$R^
zErg;bU}Gm=BUhNkCe#29^EJy3>oa3%+@i^q>N@#AE_AXzVW%}={g+1O=uS0rwgE6K
z+}-tq>p$BPVVFfmTaZ9gGjepIY{I=3hdkB?Np+g@9Podmt}pg~oq6Lj>ciq#bMBF^
zQ#^pMY|M2>hLDL{vQ5JNq6J`Mfu>wE&YaP+x5q;@A6-@l<~#4Tqnkobc-6{Yf!isD
zbA3u?VOE)@>)52S^QQnxZyRn`8%z6JG#NPsxPhW(6X+K8V=W5OjEaaKU1G6leX_GB
z);Zxaz6=GKAm0@>{&<J6-vAW@Kcus3`MT3_Gp1KQ6u1m*&qz^TDjCChWJqS2KehM%
z$<GfYv+$yDV9u$(mN?4h!3kYu*x(+4-tn=?ztZff9KxW`FJ8RZiA7Hg)&)H7a<UUX
z0!!)ZH3o+gRHR?KnbIMK+rqZxSEN>3>g=-Ss@WhS!`LS(>S%MGWiKgIEs}~q>HVfB
zOHSP;XCqoY?(L0)YVYjqc<yl&m044T#v+3;r`>r;SD?3dI`n(3fvTr?%;LxqE0ej(
zSs@mmj5ZDGoJkYGH_=*mAuH$IB<3I&z}|@s5+z@6Pq!DzNMp`~x07F^+s%Tw=ZwV2
z2nskwkF-X|`h4<Q6uzh7k<5;%XUy0^gn<Az>kDsy4=7<a<E=Z6&8-=ECOyL=HJ(xG
z(8fi3JBAZ)>*ZJh10U#p^<Kh3FcSb*I^d=6&mZ~m8lESwk<m_Z%V+cHzH@ZLO#sN!
z7~cK2W8~Ge)KpOvt^N7n7XG49I5H2c2Z9cB1>8hWz9bYxH?e7sk@YhODeN(KcXtx^
zQ|ruLZUxLr@<-a;Au!kmy%1VZ?`&E`E8G4%xBp+r?f-=Wt31J)A~ib6v5kHWd`m3k
z3d=+8y8}u98)8KpqwVx$Y`ngCRus>AO%A$RavD<{xjz_x!}LZ&Oc=Hh@qqnNS(k^a
zPqKf?Nv_QVKfre8$r(#Y$R}?__V&on#)G0r=6?lyP6QL!|2x8wWl{nM#SjA8L5MN)
zJ!h&t^9eoy7Sagzy1Pj=2(_f|+%Nw*Z(yRbSQHn;A{p)5LiqFTta5tN;g(H|qqY!2
zCLB2r$=JneHHJG%g`94#=%N%*_m#c_amb1!?Lh0Ty@v2i_k;HQ7_b*3G|Jd~7B0vG
zm%s>EhTrLa<CToeLp}~C1xBUDwf|ZZEF(XS+Fk)MG(c9?H?7}eJc}Y2{PLHBhOH;b
zo?gzljie%<VLD^vWPCEU6x?WzawI-O|Hf1gCG)*zJwTl`Qt@uzH%Fde6x6LTG(cj<
zo1Oq9i4%KKC(%j4zq-=s^_J3%iFhMaS`F<vE&%9?^h^%Bd`aYpvl{@NL?wq-amTaF
zObIeaQbA<n7)N_|yvAoEGoJB`YW6cyON3$ua0?j@Y0XUK&bcac2O1`1eVH1*p0?+M
z@f7ACNj4ux!154ZZ!K69mvt*;EZg*!w=s@1Kzj<IeJ>@g&sH@P#x=Sx_(44L;x}?J
zdmGknMA7bOK|RNfz}4sCF%L0Cn2~P~@0BJw)nHEl<?vgD{3!&juxa5;ggQ=epSrK1
z=-~(}=ED7GI@T;70?JY@9^XoV`qbJv5(U+U{;Z#$LoAw8V|CI5w_zB=Ci+6i9Rm<g
zcJ3!%^x*B3M}88#;%I>l0B3c8oa6zB)f`|r;rd9ydKkj#$4zwZ0keLGhCZ51Wx^4N
zO8A!yU}aRu?F2D-#O6y`*`0oCj1et_LMZ?l`M$1xSa$Gy%IPZnv|r!y3zFP<EdZCo
zV0c)+gvqBso<badT|Y4W+QSwY1t)+H?birp#&~k(PFt0&B)@4=+r^#Vze<F1vk<W;
zgkL*(_uO=>ZidKZSWSi9dgFZp>J;6dUsQ{98%KREpA@JhE6e`(0hK|Ikw<K8+&7_u
z-yf5ZV4Vs(lX1_EdP^`w6w$D_bO#L=Ps*2(_5H-x#xU!_{GIaLwFju|<HST^wS_x$
z#C@dxp+H>P?^wg1SMH#{>jqx_=NZdDr<07)l4N0}kJT9YSFFgsCO=GDQs^fM`@ACV
z&9Uk@onQ;(cN3}T5Yk{$uiJb7r9whrLB&|FU4q<+jZ1_W1Of{8i5D1{M+%xG)f&Hy
zOZ}8KgFB+H+!H@CTZIMYfCZM?2K{@HbUXg7K;@tmhZWiOoHB}ggXj|8Z;h5jlncaz
zDJKEAq*G?<gV=`FXr*gX9qn1)yGxc>Qy&l0?j$CqO-R6FuGVA<K}E2679BL5SJnt?
z1gppR$6WhKzLbBr*P1cl13wZ5#L@Uh${%0LmoHzoW;M@P&30fWc2sngUe}B==0dg2
zO7Vsje*h}M&i?&|^z^x2Ktq;N*XJrDK4`mwH|ERD#(8J|BEfU=ndc`VA)VA%RrgW*
zHddx<L*c4xOm}FQMqXXHetV!ne7x0^fVrBQn#X0FdHfW`edps(r5z#L@9_<<U>{L1
zAJap@IU`R*>)C)$Pqd*fefIBfVun$y!q6pe#X@((Om*udNkxZeiB+tC6-dqs@EWY~
zW;8SOp7HEiR_N`Go_og^2@eDXhW$FiRZi5W%TF;MLRWJQkQZDKAorW_3QVm@#cBYz
zKg&Hg3=dMxp-C4BJBLYz%+fcEJ0+KApGihxyFWJ@8zZ&W10q62)-VoAek``4c?mip
z**0^X^oH8<IH?`c-%R66*=7fBXrehg%)j67R$<UoeHl{9%{a~+Wn~*+yrZn6Q*Sc2
zkK9Ndpf5<d{_p_Hknb_o$3#z0l5#wcc)gi@9WZG(_n7cCm^OSi)l>LMoU8uPF04ww
z)W=<#U-a5rK*I5Xx@G^)RuE3)rSNlmKb`m(aS4qFjFA(cFMP+k^7ZzPoc_U`SZfk?
zFRuOPXWhm($rmDB1&+uEc6|O_DFi87tX@Yy9Mcp}EzN}qwvU$6lkv2s>m3{xedxf-
z{Q+!W5t@Loo}Z^~6{e<f;$#9Qt${O#9NXnHrs8u38F(OL%H(8L(a{NmJVDgetrl17
zYnzjS)<7<l7pK|TA!DSVy{N8B%JsFaU*VCI4so$&1`Q{vmDZttoQ;+n9vpPCdQEQk
zgarCL&)VVy49aS-%GcG?e{$%lqcQp3ZNuyJdFw!Z3>Tqs!YaufYir#$5stZG&^UZ1
zjrW=iT+x8Rb?U&kzkXGv<y6LaeEAS!;i`jSUmu*I2Qfsn20X8kTq{(J-PZRA7Y9km
zM`Mv4jpMhi-F6YyWUIKX@j>1uO)3Y$DB9<)jSwst#IfUx(g*Pk!>4rQN5jV}Cj2~4
z)F(d9Dt<>)1vp1{*&xqKsUahxgfXuO<le5#SFeAT>NZL`*weoL<^h#*(L-WN59jpB
z?VYxTvW2#$bga>XKM1Hr8vUkSny-y1_*T<w&Jgi=BQyvcyS4SMwI@a<=LPbpuF>{%
zI(srTM*#4?kLoFLPIh)ewiBrB@XYJPpZlunT7l~L5<UY5Y|S?*c6M4C3578<58UCG
zjxc*p4@PwR5Bd2XNgl_8Q1;%(qLA6j>;~0rJ{p5tL(St&6N}-kU<hL9R=_C<9%L?=
zuQDGL=|<?YG<N9w-dTEnW_C~VIYh0`b6EutMXho93@^DMe-b<9cZ&b@>(_sPjV~GB
z4}=48%`rW9pD>rsPdH$661*G>X*G9vnIW6$)OeX~7tX)^$UL;Lhlb!%#)(K|72r9X
zh15sl%-r=EW}7^E3hvpB$%ipmM5%$@;{Aogdae!ys{6>!VCiTf4DW>Y6tWK@K#@n4
z5s0}lXshA`pCJ#rIF}P8l}=70CMev)O|}hg>I-?9rO)FRGk;kdmSTy4WebhuAkRXy
z-gCsw6TkZ+gantq6l{~n@$vDE)?;5wLM$?J$yU7SZH(tv2>qo_FSjCMObnv%m@_c4
z03?8J255QU`;~|*o51Hsc=jqEXK7n+M1Rk<$<&nPiARZRw_CM-BTtKBD{VcIWGJTu
zQjZ@vu1pgxam6AY)4$xv0Uy7XukZfn$|od|xiCgMNmchLm7|)xF+Bv=ggT4dZ@K=*
z_RUn6*^+d|oa9aUX#Q=RF5RK8_vYYUuCRV<_|Dq=y_#D#PkQ#6d4Qs*X_B;dH96mD
zViK|r=V+~FWw2Dy4Y&V75w`iB=k0x<J;W$fcl3S<-+1=0vL0<0#6OeAw?0_%&Z)uX
zxW`1aub>a~kD2+YC<<+0?eoJEeY3s_+B@32_jUD>NIrr{Uhar$X?h5C(^r!zR8HKv
zhX7hUNA*d&%`C$Bzv&?eXv(@~zq}2x$jK$#8G1%=h9haaotc@*Xbq>y5@{>wj!Wid
z3GE-Ye}tpaG&ZH0V42fHzyj+{rZA)RK=<=UG(N}MGhFp2;Feq6W}fX^R5J?luV+q*
z_um}WI~`bML~#ngijJC416FAdx3E5(X!X-WXsa@Udg#e+-}NCc`3!{TZ}}r0hQ5Hv
zX=9HG0EE^_Gm&%CxEefGHCl|9_>O(|QD`H^UF>#Ommop4s>md1;-#RNlX;A#V6b`8
z^#_m18u?_BR4gd=?BT<m8zefTNV+F08xBjFK@<;FJ3egMJ)W+az+8Iyba=l@=ucbz
zE<w8i8fDEgap`#llS7`aUYAb_30iWW-2GNvEXFMg4Ij5cu`Q5VY?4$6HQbOTu1cHs
z#p=vqsY(G2H{@OtBK+v9`_n&#Yu!9a*J4<>dD5;lgV~{AmS*urC8zD?eWOHG)ZF|e
zSijCN3oscsC}F3ZKGSCrK>%P+B}BI0bJgXbTz)Y8K%zNCBee8g*ck0D!hmwb&GMRV
zo;k7;#ngiQ-xW%A^|T|zpEBB!gV1G_bBr?~Mm?_7fI|&H)8792pGaIjrr|6t_7S<i
z#g!c94<TW*&7(j5V~SbC_=JDvfh)qb8J4w(m#RCK+Na>8TQmA2;I!yvqdhoqP3i><
zat;AJI+@cb-Vxrq-iT>;M+kp`UDMZ&tg#d3Z|lGMahl%0N^)zr2nPp;IQ`!-v7T!s
zi@j3L40zqFS6?0!>gu_$NIqqB{pWkaQeF|Uc4%`xL|+jE{GJfggi+@yaJ=DMp2nn8
zU0@8!U^OQ~I0YqxEfjZ-U737u2;(Ot4(29+NN2QQUJKDm<lNOi@Tuf&QM`m(V4W#W
zX1Dqs)Nb@|ye(X7>v`=&5kofLVW(~8sC?uJ81UmJ_k$DUEZetl-w%HQaz+CF9>NqW
z4uh$>>d=uibb9ZfdTNZ)L@|fO<=qOVEy>bd*|xU}4W&uOs9^NAezQNhdg;mH2}~j6
zfQ5v@5U}YV1~0+;DiTbEn;;wk)m`vNs20(PJk{R)>C0WzOY>{qEBH)0;&bRp#<)gO
zHmFNK$%c92kR_3QIngdx$13AVEg?kHYC7<ZYucrHkqG%I6onPZm$Q7RLq1#N$fg6(
z@d3YHW^(PU=rp6LEC)`Ci94_2>Y)QzQ$Lve9HmqZ$-&9tlQfkP*U<s^MaZdZN7qdh
zr^WAJQK9s%AapbhH!Z&5{IeiZf&Nn`TvE4FIfpS_gE$4mp{3Qabb|ZLyn2Ywfr+-T
z>_W2!jv;kxC6OI|6%QL{99Dkd(0hVC>2KB*Ek%MP!BvFqJIk(2n)XB=5zss9?HBWx
z(Xp5ZcEft->g)#NN7LYfbH?%;vjT6?;gu{~;KX?e>B!@#F+vv;)|)f_MF%o*{TRQP
z{5ldeH@x|zN4KS$h==)gQu)#HnHqxeo`+CvC_~RgDt95bZ)=G%wg9@mFdqjEGf$ZH
zxb>o3CyLEH*m<yGs=W&Nc0{MyiHQQYc8Cc=5t%?zj_-RTCr$!6$ZFZ1wabVaPaR8i
zB=5FlCG+p6B}dPYkD4$lLOt^+K3<R@%!pv-%(fqQ+7RKTNtmTN)$*b97mv?-nh#4b
zJGcBvNS9xbEpI~CjP)THHVvYFJPr^lF13!Alt~2GGQ=GhcKbD88ysfVZl>Luvg%#}
zFXer~d^e*-9?yIm@qer7=>GqtEcCK^;yE`<s0>sYu4($*_b$LMg8V;@PeL0q#x+-c
z&=9X$J#t8LG~^BkWqMe8&aR@eG9O){XMWmdMqpB-9M}o6*!0~7^KFBd-7$lbQr-;n
zJxf<A;eE&+`)HE1LfQky3W}@-cz2?r_3Z=Vj129fg$4hyi4{Br5~lUnjjVy&>%A^f
zxpggdlD|MAfTOU#9(gTH3Hx|pKEq0~5Vzs5=34|PMz6sZ_o=blMEQzQX1}8+m_mkP
z^+~9I8U6B0qVr<0q{D+LaBW-tCC4-odLeHH?R^Lb4*}DVynV;CE1TKz{17Abk1-RP
z4`1m3Ry}mB3@<IbSdYJ5D?`~YD%#$>)kNg}FW@<?sEq`F4WcL9V(1sJJqk7Om0_mu
z`ho|-s&10|2fA*d+xP?Q>se65_+dXw#lIP=gUJ*Vp*YDgfYw7t*vWGWrng+FLH%e5
z(++<Wu%g6o<L4LC!`ls3n#N`@qljF9#Sulth#XBs;|yy8JmO+C6WI|wnUNPxG&7m|
z&7c}$pr<Eu0g+U_`Z~IF<P4rdW<#mRSkjd`SWb$}md;H`bH@J`HA2)2q|qVE&lFMW
zwzbD_m<=q2f?tV5i34aeAmVbA6cfePK^dV#TArV2B*C`5PdjH|pS}<Eybv^LNE6z1
zvguejT2@3AF*{T!)6)yXIDqiBVSSjzMK!?ifJbY!3rJQ6ZW>5-flsfOZEV1U_aUcp
zQ9AD>VTS9O?t!ky0pDRb?t}YAngNh}pkhn3@A?9>Hy2$LbijXf0u#-C8A$ep+$n1N
z4y!Tv-asF-50#U0yU!<xMAJcaBYQ-?;Md*#C2u8pmY`Ol+8V?|3pQq<YmD$>@)EQI
z4g4c`4)iVp6sX|ac%u#C9Q!-Ome-VF8-&d{YRl%~<Yt7;-l>L5@7E{7E}v9QXyxES
z1{;mG53;6lGD?1j0{<qAjPfxqdK3D8`CA!fO7{Zy&;$*R^#()_>&=a5(=l}RrnfhK
zC)KzIwi<edz*<3DVOa!ONYXXlC*KV)amZF=r_dR}qbx2JjagPi>xI`<X<cB*_DhW)
zc>@S>TJA8pchmg@GCVN+c`pHOF{!P&2BNrDo#sjPY{Uyroeqq*peO9U1p*Q6@A1Lk
z!I$|0CAO$2K*GmFQ`JY#c10SZP`HWQUV;Wvqu|qyvqVengaeXaX=^(j(r@85h2@$W
zo%*CkUYIfTYwc{E>*yp0<vUjUZBnX21`yWSoa;%%Pc#hyNU?({C4_?op#$)s-E$mT
zc?<iUc}VepeP_z8F?1&+&EAp&yNK$E{4zMNLsD}Sr3J879wwb4VWTM{4a7>2rh`Wh
zJQLaVcmvHhE)KL4DQ5=DUa3qf1f1Bc@U_{MhwVhy$w5i8nV6+pycw-pA(;xSn6&Yz
zU%jXDv()enBSBS&dhmOQkss~CF{XxvYz(*dy^%N3qOgbXPFDnXr(r4n$`|sWC#Voy
zH4aUV_3b#=m#i9Y`-w*wPg`^@B}=ouw!HeVYeC<2Y)s^IYth6r%?@%iy#^Vi5o{pK
zF#)`WJOFT5H;J4x-@UB1+RD}MXaq}uo`Z!|G2qv2G^8jIu{bTOD*nOd9ox5m$HXT~
z(r6$Ie<gGaoj4h?XD1;jh%Ut28}QyA20eJv%1XICa{(`~O2?r2ztYp?J=z@d0Gbf8
z2{`qbWYPlZWLEc~ZlcI?(BCDhgF-eq{!f>ZmG0|5g?VZrva%`~8o>m8zJI{RaMlLG
zNUK4@DC2jainAP>MbYmjeS_8IBDL5gfItUxS?yNA`Yxs~>uZ`Ea7h06xXa(d#vLTG
z0-)i0p3?x-n$6sSJ?QzSyg^<w;Ybcohl9XH;Rg|DJ%=T6rXn@D`npj+UW>IRagb47
zIF<T%ba1rXAs%05qM<{ox?92;{Og7UJ19ot#@>AE!v{4yZzh!5L>{+PdAm_UX7>w#
z0Sws*2reQ>6HTVHGi=WXw3d*jBGEKy3iSt!B1)v&A#~*L6lNPmt|Jz69xH{V`x)nx
zy2$+PS@%zJWpqaSuGua`bfzz7Vk0+eXJMv+ej%zwg`5Z$ca~(Q2CGgKssb0?NqU7@
z;M38S+4?%e4KDdx1D<U6zgBn2z#X8oRf;9&=bJc}<zWR;Wk|He6r2WO)5yn5=YA5U
z=|uy`|0HgD|A1__rZXqCy=JU#p#L7xx<>rm81;;PV5yP{+j?iL1S$k69PCsD!HmbX
z1t3$opgKLl&Mw{)n}mBQziD8$CwJD|77Wgok?Z5&jRfl?HbOHdS}g`9*cioOAxvsi
zl-yy(btI`r@ci5Q%K9(*eXE^)h39YhfR__kQOoODJ=TPky-`(r{|@p)xk7Y}t@W73
zU28COXKVZknm#?>1A_?fB3?cQ|BU6K1DVdta~G)7ty?Rw)bT~34&X$CPUV<DM$478
zp%q#u=kM_P_3KxxaPP4eSdopJJpoQt?~*i7-jjqG_|nIJ?5)nn^hTwJORQx%5JXQA
zU3Oq-H6KTdKvf8TWn!`thSQwLDTPKkr7pF>?mPJWdvjqgQgo2?2lTu5yG}%|UG2;y
zs2gHEhdSZ%qbXmO0igBM2kH^GBpTUdPVYk8dMvelfQv#62ZK5xCSJUP8<rcz(k7^`
z5!AU_^gKzqN(Ifv0dum`$Qr1H##G?TqN};dNf#Y&2jMq`G_i5PdE^vc@ET3kKZqpg
zhCKaUPgNZ~y@=`F3(^X>uy6oXgrv9(sccw9wTknZPhM#+)1JJk+dRN%#2;vA!AbeH
zq<>Ne^*a?k*^;>>1Yd(_>hu^S++2OyQ%{X_j3mN}+ox)Aa_hulHDj^wuWiS&_yG*)
z{A(OkTvKh2c2<#nZ8BwUm30H;cmrNth*s3l^_TGA|8}c~N;FNo|N4?rH4VMW_OTRW
zV45pd%Jr2qOeG~5jrSPLxdhCTIL}G!o(RE15H>JOT9Eq=L1D;EQmrApF0<ByD6ZVt
z$YVkx(aZr%^8`*nXfUXRmLfIDYn*0ctLrii57tjfbbd_N>n9;<2nY+uWjF%`!1Lq}
zEsW^$kS3!e3!&n;L!)3kNa+dr>}Z_?*A}~zLEW0#&(~iq1Mikrml|$o2%B9rZPpv}
zgD09H@LT};^U%!2P4uz>)gLBxb}qqHjsQ^+%gn6-sluTs^;j1fit^<0P98AjfoJTN
z^n)#}FoU|_b}2zqteq7Y27W@?CXjPe6JJUM(572GVm!n72poWl-90^FmQ&<Nek5i{
za<L>!nEuuOSZ`!kuiWjG#z&s$jsZu<`6oKHv<XI4$u$~CY*2*V_)+iCXKv6_CK2$1
z?cLv#9vDLw$vCBD{eGh*PzddH%dm)S;i=YM@3&Prx_0BAQkjh~*{$i^;mbA(6+nBv
zXB(e^X-ePq=2%?-$zk=?;p?v^dtV%~u8mOZo~f-(oI<I%zsnkI9ZOwFhFwSdR1F}N
zfVQIGv>MT{V$p5QMCMnRmh>j!s^6{pF{n9CIHKoM{b<Hm6%Mh2zYP5fRag|(rXWcD
zn9>1U`_i&VoZITxVKVlZJg%tP9CT#`T-_k?ywC+Z4M#B9@1^cP?TVWWe7v0AtF|VO
z9%iOf%=oySPR|O1!)^+s)?mVWd`5dH*EkGgcyaV^p`S~)bpXmwG0y;&@(9I9ag&CQ
z&JOA6ZySfDbJ1uar`16?W}=r*8h4-k8tDgg<A*1)05)ovv+QrW`Y5*KfZv>>7=NMQ
z@;$3A{{3Xd($`ncY&GGy_)s=FvBF2KbH(6Nf#j&T)F=`C?rVQK%JMotT(P2C$uwfk
zsts3@)yq1S<loRgKPhL`uJX$3FFKo~nO#ZG`l-hKX<}~Ddk@+*^=5S(>d)$Ej5y@l
zWapN{I9^;_TnS}R@fe76>LvsJIuO%YLdMb7#LfzanF3N67cc@+u*m`{a$PcAT&3=|
zF>u+Z*%!;%le8x@Ff)g+Lot}5Kz-cZZH93=2MuRHSYljw#NR(vG5Qo{#*{BWO+p0>
z8HgPuKrjl`9!L~yvHvif5|}_JJCceX2v!YA0m|sa$>e@Pc&!Bzhd+oCqzuCZuwgTJ
z5_Hl|VR%;D&mMb;QS9EZK7?x?!<qZ($Ks;9(h@IaHM(HQeIA3+3RT^SBc?Z?%Pn&0
zpI$)3Bq`K_R%KW`pG-L2;S@bO34P`@jM(^MsE6%Gj)yaYD~VsG3y5e=3aQUdCMf2i
zHNx;yxtsbDx><kNzW&jN%LR*}Px*o-kuwGc)(>1!awtw5Y@RqJ-}<q%)IXj57wCnP
z69_aE(_tj$mZO*9TmW7=qz}Lor-ge}<r{M|vrT?NjFx?x)LJHy@-z-pFo@?Oa}ixW
z%lCWa8j$HOxYIv2dj7h~bG&;c+SN0W=M;~@bA;Z}6Rv`2ZIxvxK>WJ+3Hm*An@A+5
zVYUNyysRBurHxij4Gs}}_d51&bFU8VB^?|!nSZb5@>#oP&EFnX%gMlay)4Ij9F~ol
z`+IZlXCAw1h#R=|z@;djIUI-bE;Dg(X+AkVWjynZrr*ZR7<V!pD7b`=hAr#0I5M05
zjH#(<jeBg9+pwZ4D||dF5){tB3F+hnER+>>vgpbf@1R}LI1l#TC&dqFpP~}CW{L`a
zt6^71G#p}IdGGq`pnd1rPgSz^y!FYf<LK67b~NbeOaM#7&8T~;B+cmN6S5%TLUpa8
zHWbxmRp5AkbL6G0yWtWJpRyydO3xiX_nRI@**%>`#QLkTx??y77pI&*1gh*PtN(H8
z2)f%vU8SP@6E48PXPo!~{J!d9Q}$)*WB8DmV@|DdWj!@KJp4`{!1@n*!D=r`FGRbi
z<>csdp9;Uj0UK*IB1FjhrEQBDW0h4^@@CuB`bJ&aMqP+|G=>AEz|!(igH_sPW^r3t
z>Ij5|H{zr>S3g(dpAp^t`>IY9|J4xf+GDl6yiod}*sobaWx9E8)=9<4N|ATUIJ24C
z{7QAG#jRr!xtn{syFXv}gfr?<w*s8*=*L%+$vPYqwAWO^P4oBBo=xW^+fl<Mr>v#3
zTmt6;nPZr0R@@*c={f60Q7n9l>!(mXfR{fzbp0arT;T(D_E6D?k~vSw$S@8GjTg^e
zt?F<)7^L~VNVfU4U&GpGC<dQ~`*}visWNC<=dR~=o=V+vSyms$a*zBtxw((yz65df
z!F;y1uK|uvXB-?-I7|VX@0<}+uhL26yl;FyTE$&zb6?iGAMq7|%s$od3_hBAIzr<7
zrkiMwu0pgce)RC+yF*vlIVVMIZfoa%vF7Z;H4<akefFJ7Xh_h2Eqgf_%utrx=6<mR
zaah#6es85be|vg9PH8^7aH7NMJJh9$8R_W<d^(RvPrZkh^wum&I|VALPWno7YQD=U
z>dd1xbjc26ILEfl*)x}6w}ZPyoJTnK7smwq=xF?z%3o*vc)#iItCp)Uobpwne^k`w
z!*d<OVnSa##A{L}i>*D3KB+!Ec{8TT4o+9F(EVuPiLk!9vRZpb`NtowtU_6N+Y&S<
z`-tH&sQbW?hsH^+k;z<Jzq)f%UdT-~Sv2P~1{!S}4O>^W+*My+U%UP{It)%(OZPDZ
zZK!qA?*{<@^Z<dr!=VTrPt34dG@%Xi+)=IuTt9JV4Sa8Ino0K<N+vd4VcyvDJoVG3
zPtWy@So*g2oG3U!+ywi+0pb@;6DKaL{6{p@)fvYtma3C}Q^g6?t_tZ=JX0kd8L?>{
z$3r);Gxyl&Uv9g%X8BTKN$P&iW1=YU|D46~E>A_x7#D2dp@s2IWw^g><5QJ2H5dJ+
zU@~XwFH}Ee%pdEUvEumfg<U=3{*LD|E;0$NFFC4@(>*#my5_2am%|T_OTt))_GAo-
z$Wv6dCi@zJ8d+KO&6N9l1Qx!k+tQQmhD!f(-ptjPH{N?-TJ7&5p2p^Ig|qmSD9Bzx
zJt58P{6>HHYBAQp5vvZXV&uc;KapC4|1Bfwccq55=QqN3hJ#GFY@Z;!1y7$QlQOJm
z6jT^fiardRVn1G>W~0!v;bwlLpK!nZJNmIV-1peILvDDPcJ>wDDq@Wa710-vU(d<x
z#h%emUG~>+U0=_2<<Z^Pkfb-KKd>J-p2h(yIiag}|LPcY{ydI*G&^qME0LO)*>u=^
z+9MYw!%oU1niRs7ZVkTTsw7nI*w~V{CA7=$Zt(mAkLReB`7uKT8N*MW=nQ`Uv%ah>
zigZ%OY*@{+C0s0VKg^-NqLGO|rpvJr>f3@!zx@xl6d$@-CC5-5`#;({^RK3_G>k_{
zk6n&f?1;)xs3mobNEIO}>!2W8Sq2ahBZAnng-sS^iD;!Am$GQA)COfIKvF=#0%dbL
zjG!!vfh3Zs*vcjtr65$njPty7{)#zsj)z}7IfVPY-+SNtywCkS{vR9;ygnE+GMrNa
z_jHFr5EJ;~Ek-jZ-m|hr8($!FEXdO1tY@o12IRpd8<Glf+hw)CFluyqpFDgMTxqM0
z*r0EdTOx88qDuO!$F6mIs?(ERYSPS<iLi_4j3zJ5YK?Rk2j8BxU2TE@#*wVLPYu3{
z!Zrspf}@MOqGMslc?0LSwV3%FxWjJKL5NAGm*^QyTwZtgw(&AX7^0RKXT9*8-tmtd
z#%9|y7R-&xR7`Lrhy8Z#y4EO8`RM&#T+6rDbv~hi>DwNy6cby;y?f=9ADN+S8qVPs
z?M-gsU@;d6|Gg&Le0i^MGMB^40S~Evyp>?zU}J4?8Al2$-!|~RY28|^N#F*Y>rV)P
zCrf&Ngb&r_hIMrePhZ=~xdy$Wfc0$l>6AlFb{`es5~+eUoL-~m=XIs5Y{xph!!ffX
z80RCA^%tGrmX8$7%xegxkL;=Q4ayAP4T|m7$S{7AjjqKqE5R!?PRqy}dn!@%@kr$J
z^H%}LG#f^Fz5x>?)MgaxM0ny*!es4V^>7;`pT*Jia&V30U+EcMJ9mD~?wHqNF)mdv
zOpQ)N$caSl-G*VBlLn{bx9Jn5f55;Zu7tp&0w&Is6eR$5A23TrZeO2fRY)X0Fg4C}
z8dqO@qKCP+-q@IfU~R(ag$$y$-B4KP>gwvIq2t26yT^%iY~)W^aZD*5tWay$zyw_G
zY5U3ndWE@B#3xU1ZSPddfr35$=Z!$bkg%6HWv=}U=d~9LRTY4VV<^ewXzN!%x*Laa
zFXUVW#t|Pcuc`5d1n7k?ln95)7<T%l6=r|FQ|5c<(ABh;ZH7X1P0eN^6l3u+HM*$v
z<#AxuN;^AUZ7{arN%_{MPy`~$0s`UO0KnD>kT}Ko(C4j_b8{)`2TguBY<)|_D4dH+
zqqHCHsY*}Urmqb<U7|p!%QZGJkwGR4vTf6(UDr0SE{A_`57w^a_Jvve4a$@6r?9V^
zt#V01NSzmGYAhEN=LE~#4}P=R;@|Pk^%JrW?-dW70-cHXn2STICb9a9G##_}OJPLV
zC=ga@oQq|P7=<+xDxjxX4<Obbbc~S8<>Pc@#BPt*1V4#}PBkrHP$9dFo`yoiBp4%P
zdGiDRWKuRR_*kgmre5)tjfs+hBZT()Q(!X$?8r_EJ@0sIdbCr0n1>>8go;J@k%Sh$
z^aSZDGeRD}Yx@Oyu{Q?YKDzDA&&$$+mUAm&aVL}0#Np$<22vYSrK&~{F0R4&an?Z&
zy%OcsCTM!Mx{JpXEM>?Vf5o?jML;66u&e!zpGN_YddNQ-AowWkq06a)(U&MDF5DUI
z!#VxKnz0-i8N4#Vw<+15f2RyF5*GT}_?K*Luwvy(xICUoVX^m4i`;#6-;&?xj-Gom
zYEjzIyF-%@Cy4J-O09Z9(fluKSD2~_JsrC&D?6cl(z5|&6vSNfd}A!uK!sicvTi7L
z8wiqC1ie<(MfpTWS3PT;kDgZM2<owgn<=srJ2S&TS?PU|@0^Xt-f+Wm_W58;S_54f
zb5m<E=oRZ7Nqi#R2@syhpIP<^z&CQN@?g|mF?am?=agvh-@uK{Pt(vhkkK{MuT;hx
zH!48l%GI<K7H-Eo*rTf<@$4FIai1*-<blId4Tgk>&-9PI`eOl3qoN-w=|G3F;tad+
z0!WrH*w-b6+HcA8G_F@wo;mYwPo9lcVG5!auO&~1P&T($=8LBY4V6~~<kqRW4z_6j
zii-{JlN;dIG(>%8k1IWVy9XZrrC0_GKlZWDB7}YSp8p=Ytw>Je4L^Vn@MhcxWjMdj
zp&4NRaJsp<Ib@!qV@W|Ntv;&encl$59yaG$;=~)BhS+B|OonaI>>>tLL)$h|A3|JF
zaToS94gj_2(GQP~^00Fd^Oop^SmHx0-B>r(hbIt9lM4e9=K*@e<9CZsLY5!|FmA5|
zo?K?A{Zpc?4jv+&R3GkcC-%8-t-x^Ud=QI6t^)CPbj~MitR9XP_$Z>3%B50o8}x_8
zm6ftf7V*+JRUKzF5frI>XGh_H7p=T<Af0juq3nm@(mLLmsU&K2f#KOtOl&B&&NvKE
zBrAGC`RuJ*>u=1_$}U08yBGD0SR%p7`7y>%0`_&B<z>nV#QOLGI`$6wu2@H85jObZ
zkTa#IQhyBT(R0tU_7BvI`whqaG&GaKi5qgp)8kS=5rrEPULfjpTN2ix`;Z_206q)x
z(>VW5=)+MgTqgS({sx`@m^s`}<ylr2OhZ%iGj>l#=b&hgz!twcYi%=JZWB<f`!J+j
zyivQO>$&@@{S^D+GxJiPS(qJd!&=?L`+;Z3qy~YYgv39<VqLhex1++#VG*<zH@;j_
z=NUmqvg~4|gnD{pJq61_?zuc_3%WW@F20i8-tM?US6AHFxOZ?)USA|^+oHOVlOwc<
z#+hOWl}tRgUV4<QCs3&Ua1z^lP}P!JkH^Y#!O+|9_IR*}G4N^Xu`O@m7kH0BDK-CM
zVh4|LJI14|FJoQ6^|TfUJe&2sf-%tUaYxV)Sc5cACGfuNdh?@BVhWBD>_TBkoj|o(
z%Z_WekV80n8QPj~#ba;+&P^7@Gn6@SH2j<qvD70l$O&&;BNX+XS=<cCRo5c=(#0E;
zyV{``F?J(27~2H>33;{2<JydyA^a5F;e6Dr^ENYK^3nEyW15+f7|3-ugB%z&xPd8!
zM9AV~ZmN_>x?&xAWD3Ou{1bAlI@knC@l0GJ<}O*Ky>6f!4cN}YF)669Y=uulD4T|v
zl#SCNx;f#Qfpc%}H$j~4g>S3pTKzIc)LZd{)hXyvVVWWmc<||S`fvCc`s&uLWX!+K
zT#T~gF1mun=x5lGyeqPQmzt%0r&OQ-*1xp4$i|fL0T~?1(@gfU*Y>n^iGXrfxxSgY
zh(Wj0rNoeiLq@j(7$$)5iOb7xCaijAI>{Qj<N?Z+p5K&UVo%L$zSq`bD47e<jsHk4
zMZ_3nUm4~R*n@*^C$$)dZgq9}0APWJ_D-7Mw)vho4P)Yi0Vy;O7f|vhlJQs*f+oiC
wq2NF0T=)W4*p7d&gFqhoe@5c}$WY7~e(9mZ<?}x*#1m$??DTM`+7Wc(KPAzJ)c^nh

literal 53534
zcmeFZXH-;K+ct<fYuk#5Ie>vEARyU@6hTCiNGO#gNKkSS4Q)n|B8ea%IU`xJih#rt
zkPJl<N-|R9IM=bC_xs+NS+i!%n)xw5K36}heQ2Q0*=O(jzS4c3UA}a2)B0WOSy)&$
zk>t)_VPRS2z{0ZP=GxWxN{jFNQT%K5O@)i+@o)T@IhW&xf33SCr)AB;viAw`zhxdh
zzYSSf4zQ5UpHXuN9Bi|9@K#@3TGIU6Sk6;!E!S4*JI`!RK1exmVC{pI7f!2PzTBjH
z_3G907Y4hy)<2D3wJf<jJM_WChNm_rS003>$z44CKu%#fNlvh5ez8MTzpT}ZBzQcG
zR$^PpNoPp+NL%|=I8_C1GjbPL{^y!lSpEqdEwlK~-&sOz){g$?Kb(Gg=+lP(eEr~a
z7XJVG_G8O)|MS<sLjTt{|F6~f|JUBQe90nz#;9p%@=#KEczBt`uCY!RZ0Prcx&LnR
z(ThDc;yrgxJvW<5-{kXTY8?)MpzQyXJ%80;6ZZeHqc3*w#tt6AUpuzEB2LFzc0NCa
z-J%vhQVh$}ZWOK_qUUKBEY8O1@cG@;*SGy$#1?m>@Udx4_%ptOc`M=D^@^Kzi>R5I
znLX<lyVG$mf3~07y!E3B@f$h|pBTDV7qOA!3+8+HP1~~59VZ84j4IzA=i%XrF1h7i
z-Cq|s(HmfCIy2T&R#sNyqp25jf5n>qB)5gQDw!qcV2Vb<wTR4iS8Z;M_{-O>z2(ap
z6to>`RzLT6qsq;jH)C47-oA}pwPD9GF)^*u(o%7oU$1eUd|5yL)^!?6?{7>Fv&ib%
zQ5Ub3%JW1wG4@)pudJ->V_#nFNZWz>z9;)#zfTUe`1t$BeEfJy*Sb=;pPrX9JKh)e
z&p-dHH`k;H761AXquQM3lxa8I8Z*?Ad7Dx7PTYC=!>fH#vE$=5@9gQ6Sgq7ZVkJ0_
z9Eo+B8a8c6d>0xP#+@_M6Dyfi`8>N}Im^8R0$AUJ*Cz*?j_~nS$#MO@UG$uFS)FHK
zpxG{A)9rV%*mP|?XJ!YIR!BdtdMB|vpi<*!U7nM@zPo_Gzkj4Pqsn*Uf~@S@x;Ra?
zW6Z{6{YdpV4c8XR+)!pfU|`_A787>??Mw?{UhRyHANgk|28?TJYZcTko=}^R9%@RB
zYM*3fe1CtgH!{Ft{j|%kmdvD?8Ah-|tH*tDtDjG4-N{X6MhmkO%Y1&%Gih@b`}gm+
z47_A~-=*DUs_lv{lUjj~RI;<PJ8dp6FF&Rw>&K_-JUn8T!#mg67Zp6It+}+g;L>}$
zJ>TWDIq%5r)I-DR=mj6&JY-{GQKM`-qWB#v6_b{hW_7&1&&G7L<Fjc?Mgo>&+ns#<
zl2?7Wt}9orP^*HZv<DYAKPepZ@$w48leyhf=HokKZDob0a1_^KPYv%b@rb+IT|E1{
zWdB0_T$6Ed-{ajDuUm%rGG1C_YEQMh75u$zTRMf=dvj`Pdc0QIwv^NF)=+c$GRC^c
zvGk}*QMD;9i#zpC-t9V%)l??CEu^=*Fz3d~`RhL3?Y=j~AM?*YD;IkB-F{OflL{6c
zlV@HEIAYVg^cE~F&arOYx-~81)qWYhm%D^(es`BV)G%_@7>O(I84IBG2i_5X=gL(7
znyy8ky2iqCS(@l8_qfclX?982nPvH4$!yDcGjH`)_($;Rmr^<VzrTMtHZ~^jBXjiV
z#mqLlfDDVaUEdc)=?-C+-ib$Kn743ANlArB-mZ_Y&ZRKthxOg7?=4$#(zgG{y)qsi
z2?^~6J*Nb!mzRQ%%$r#GVBh-D&ccbGUdp}-O@@YbiCU>f$B!N@v80=~Wc2+k^^&e#
zy=9+HZw9L`&dsa660661WYsmcHW*RbZ!cpxJ#&y~m9c4>WS2U|<ok0^`WeA)8hUy`
ztrnSqm!d8ONycD{{Yr1pQ;pL|SkASC$6Ebh)rPXxs{L;BD#}t5YB6Jp<bwS3VJDUG
z&5t+jCVm5-iWKo++Q)G@eO}7azy0g8tc@eW!yPUj8*a<d+$&)>o@F^T+~)J{oo;Bx
zDsA<?+L~!>#ff@t%T;-;*Zb-d0tW4zJcsaz+nt#&+jBL@;c4bA8d!(q3e7kTUZpoD
z&JZOhS-&K=A+Nlrrmr?C-EqP+-MppVn68^+*VpYKGue`OeSPmS1CQq)Mat*&aI0l1
zJym}#L+vBK6SsX{!F==j_4QT@`(%p89<iH8l!MIb6SNsZ3)p@~Bqdv|q)Vk;X5ZvF
zP3?-RH9?^fLn)Xkky-4t-(2Q0H>s5ob?(V#SEk*s@1F<TavDDB@OgQ8=|?L1Ul|Pa
z!`A67=Px)ZCMH(gW945NAR5rvc(r`NW1m!isyRD5`;kM3z8D7uSY(%e)JZ%<*|Ygc
zk52j)$<fovBg!Y#dZdLTe_H1RiCGsn4%rn9?Ur%PB?@k7dAX29X3Ni?Ki{<F*awt)
z9S!*P>z00MQ(0V2Ua>oScdGef?+&|Ddwfeo+!j$%duhRzJNWemne*HgxDJc9>=~W{
zlyq07uhC|`xGCe-k9S=Mva$9!(zTH<X$#!_%{(+GUUUocN(XEcA4AsjCN<%t%Vlmu
z=?y#&Pp(+AIc=kv<k+{vzBBkpeXZbv>js67H!11q>3K@xPN#McYG+v)dP=4m(=uA!
z>SEQUTP9KXul0)A4Zi6SK*y*y4jLW3V?8;jRqp)xiqG7SH`Fzo7kIgL?B0EQ^PW>3
znKCIUDHZx2QW}a$K5ao#PCP9p=^+j1ATGm}sZEL&78aMAeW=u%O^Mf6cP*@PDDl`o
zlKGNz)2PP(IFR{oLh-QGv~JwEA?>z4|8@hPQh<mON~|H5+t|-iUz6HMCDp4}-_X)f
zVoHrtwR*WLor6`QE=_0|CF$kyFw;!y<QsJDbv=jjGbno`9lkRr+4LMfGbY2sIdmO5
zANls^+SaK{XXdn7BwS7YB1pavJt)ol5@&!eIP`))|1zrVLa)cGSCiVZA5NMzUdHE7
z`2Tq>EeShr>=rilrVZqtB-&hg8kHyH>W<FN&kIl0|K|z)17>5>Ht!XmZgoX{j&Ypm
z&mK%Ex1mW*{X+k&rgAEHzkR#w@;zZu(FVa24f!rk=zq0>mIeml=nM=YUVeU>)z;%~
z;<o)it>+^A^i2I3<fU0Z+R*RczkMmrya#*(0^%0trsi4;>__Onh9pMs?gY)GAX-}b
z?S|P(Z8}$~vch40er2?~34e_oJ9AyPg^4pUN3Sj}jJVCU4iCKW!gIb>^-#ijdNd@x
zwEqPgi8F|tmG*$WBjMZa)Lf!Hgv@X4SjEDk-Ym2DdrLvz+|)<|+VptG!!2CLkCV`z
z)z#FzQ9vU1yH0-=Y_ATx$XmO7UAWe&Eu4Ly?yo57rSbFeT@nxwkglCywIgAN=vd}A
zucUkK1^J`yiQ`iQ6rkk-6ZrP{W|j@3o=h~5d245<Ml8ibb5q9qYD*ZCsEWshh0{M}
z7?%6av}WS*oBoJaNw&>uvoNRUY6%%teAl&ai@2SbCCf&3P7VzXeIDqc;X2dfcXMFf
z<Lj#(xW}4#lKz|ww|`GYeSzE3z2&E8dU|^LhBDjh>omy;14#vXT3T8cCQHA4`%pp7
zv}n6IASWmHK~ciCU+wy)g{2t@X}4wEalyuZCp&&6@uS${?6>=|#(6$reV;Oyc5*&%
zOXXW(?x|S?E^+Z|ZcB6RE|D%{rAJpSF5v?vvV!Z5UEh+~k|5gdtcr(dS{Lgh`)W^&
zhxDu*fr@a%tgNio2fpC*D^H2XquF77US0WuUO<m+5*|U12Z8&dYpNthB#DDK#waY(
zO1}9BK<Kc(;^mee%aewrf#<JYWhgR5cYU~)ZYrIr=@YDEY;3G~t<CL+bb{${&WLny
z3)!)cbHw&_P*7q|x!+tX&2;+*n?#x=5ZI>u(vr7oudA(eJ7Yw0U6I6E)R3;FK0<5*
zhkqANGfZ}q3-HV=e$`2vUzY)Qe2*=S^^~K6XDn|4^yHo5pJ!T;=NAI$?els0YLm(%
z{2x0W$R`v?s@VnmJ}#KL(U7Ri+DQGROX=~6#i{iiiiwFK&>M#dJ(nWQ+`Lb+(el6|
z+E=R1hXk(j@^WTCzGZv<z4F*!w^Jqm+patqh7IUAkdW#9?p;FIMUVa#%YwR`k^Hzd
z`y5UaXEtCeE-9aDbO|RSqtzZTr6{8Z-;=HwM=o$po{9V0%>|%={B5UdtY5)_Q_shy
zq@8E`qSUPn3{YQ!9J<y8n=Ik9aFY1*r$cEran%JiS=Binl4DN|XTwQeHXWaqiS5~p
zjW{C4un}Kj=`2Q4P)Jp@KD7tGCU`ktTuNf)b^4#CeVAz4XD{LR^5sw8wEgw{%)>QX
z>baA0L(y1&0lJxf54lg13=p;C8(s4B^z^kJ0x&2ZQT}3WZ7pnEwI|p_B%so2Uqfsx
zo~`d0lenVfznoE{QzhM0RaMbO``25jTwlF$XNUD%nn`V%)09Q<Vex?<F=1c7o-Y@~
z_W-YT3z?&YI*wOgR4;IKA&~JZ+1uJZ>oPukIMHM#5^N%2Kb%&<_Ra6&jQV6cyZiq<
zHJ|nuKVs9nm37N2>61sn)(2apr$Y>zr+;_zx;>V%`YBgnovWd);qrU3#nR8AGdw<?
z=jC1rk)4&ZwUoi+5}w-G$sz5*@q?S6oa4_OJ^LY`M^i^95Erd(;H079OYo>*N|0m!
z@q*f0fs&LO!66{V4~p73b_v10t2M!YoGr*H2G3|>7C@TVd*A<VP-RW3r2f0Q>+_WN
z10X0H_Wy{vmThD5X~VW5^mfK%@yp$8O(J(XPM2F5RRzW@Te13=AKCTyV*CsUOKr4D
z*h$xUhjQn`vhHi6->FxkX1T16+`IY7>dkwu4t`OgdV_Y5yp9}46+@vp=3%th*><;N
z@AIcmNBw<$eIrq<2YUR-^`3_>=58nudv_@!GSU>tF&3p5w-fW+EQO=5^U40nEEigk
zlyqi0e%Q5KVribqTT8$e>p6cRW1=lg^NPM{&a@n{&S@E{-z3`Fv8gymhi_rJ+rzXe
zB?5=yYL_F||FOkq=$CA^9ii)@z|JycmSP@lU;|h^2bMNgMKX1-2KFVG+qKnXmzT3I
zJUkk(F?a^hmNU?iqtMA8J$VvmH`M%A+9kVZkw7uuR*Ry#zR#pPmK!$%%-W!g-tMc3
z5V!7i&uquSpsup<UQ3gkYPI&jO(vG?ca!X3+4}tX%a?x`T&*sjAJ9b@8rLyEB?<M@
zZP~WM4x`uiN;#%2*PhD(W0=$Zc%mTRWiD3s<u2E$-#YgBlB1ti%=X76*#KFP7?Fxv
z8D{>wL@naMJAC3h4ey}lXh$Y!XI>&&4$cr!1&Jmep?54PG_i6lmmqLswt9x5;BW{2
z!Y;GSoA5OZDGY8-za0nGC0)BXk>qBwI6reO#en4B+z@(UgVNiRF^Yz28J{1nx&8UU
zs#(yB7vV##S*n0&N&jdp%(UWRUHf?F{o+)?lDeJh@*P{ZzQ4HNMNL_H#vpl4di?vj
zqGA2a7F%?9lQQq)7i!QEXvYt7^gTNo^!@9zZ7(eE{AJVsgS2klI?ii~AB<^1R;TuG
z=C`Z;OxM!;Lq1%0enweX{61)xgWX^}lRAZm;xbXE>AT^=s!&u%`Ae5H(t&4mW!3-M
zu_IDhW<hO=?qq2w+M~?N!=or<Tovyfv!kpFWc+sW+}EO_zPGm%*G1<NV8-g;c{1uj
zh;b0*NXJ4s7aoUI@&$6X{YWBz!F<ig_%@BRoy|PMe=zozWqK?uqfhEmjg|LGI$ZYC
zbBt+UFcS%op8a(=K{qF((S=EDpw=wwbgLfuqOV`Q)3emio<ILjq*6enxA*pR^yRNJ
z+qP}{v*D`po`3r1$&&$4zq-YRxjIzfdrVGFPLsLGp`J#;+n@w0Id((y!%S@OHMwhV
z0QZ1LMS@SU=8XKR4x9MAX1|)l9WaGgcwo;C9X`A;EQ*f9d-cO<k${9Bw(32%g}(nO
zPx}?C@z7(_KqdxCj|Tq$H&3@_TtY`uBJc{HuI>EvT|+~|(jF^9*TDYvB(wl*B_+Vb
zcc{l*f7jIkf(^A7kcl6`O-{7gw;zXI@np+>Ux7ckqB+eZ49{o)=cyhiKJmkc4_4x1
zWp%j}YtExb2T;MU<vJwSCy|rTdQ3`Q?Zqj)g4^QD8^0oK(R%gSvuA|ta4pj!VS0MH
z%wl$b8DL#3KusT*3vrY9?NP+fVvWiwD%4OPn={Pg0R8*Gu+#xcxzqEo9_lD0ytNA1
zYp;Rc0_$>_H>Z(OjVf!<hbL;4Wn$1DOzY$QQCuU=JX}p#@gnFEgR2HLB?P>D0MxD;
zIO#oZ|G1Els-Lc%KOv@Inbz1^43A}taE}oi;sJMsgHgpAtSs^8pY4&i{{0)vy}vHp
zgJSUK&)Mz7uKDw4tqK7V{`@&`{+(tMp<8|0PlkN_z3k@84(j_6{MW_CKl}a9cl}>U
zd0#eeGx^UiIxTl|<^KyQm{bGaYM9xAe}r#-eOhL5$$#T+5k<QkU2e@po`$jcI@RX1
zSRPSP&0v>Fe}K*;RP#8jp1hpgcVfA)Oe)8Z9~UfEvlCMIxi~lC*JjbsRrG>8g3hVn
zt9C2z^s$}dHqk(w-kzQ+*XRCOw=I_z)1~)lBne2+3*QXd{XAi*j62C2{|DP@VVGf;
zlWsS34cp6wK!AjRhPtUL<v9Kw+rYN#>$7{WGSg`7KYtp$+$nGt`+<Pi_|}NqNqHI`
zGK(KI5_Mu)TXjg(@}Bh{+t(KWe($*BR8v!P(tcQn_!;apRAY5qf{(X%I7oea%RV<?
z%abm%HUMfGDk>_(8QAAEC;;pcuhYMPru|~*A;5@WhxD;$7xz)lW061{d^q-s+k8u*
zB~&e7Sz=H}-wNnI78DY4sqZe8K-VwN_}SA#d_ARQ=nui^|8YEc4s8$xA{v{|&>|qo
zd1fhbr;w4mFF!dEuy%InVvK<c1qw?v4r5tW6<>x9%i7~`G4v}6x5$`ru#*TH52~zY
z=Ou3r8A_H4pnD<9myr}y6REDQ;L9VBoSaOz{@PCzokNt19{bEuskA=cxxty%O035&
zQZG8W&y^9VBV1{EA+as_E;*hC00WvF0MB=e=no~6zD#M-ghkyJ=Wn)r$00sk>Wp6J
zJ2%*vTzK-<_mD<ANoIvmap#@sgrsm<J67Dw+gr`74J&e@cxN}@-f-rZBpe&I7IN`U
zFNh*$T6gc>HNxriHJrza62(lK`S{6`093!#d2}dQYykxjy_QX!AxTYlJd~w20rm<M
zzX3D9I!QUea7DRj%B7?l(jm&unO(ee>6HmehNl5hL%e)_jhcF~A6T=b6<RV*Co!Hr
zUCZox!9Sb#O1{PqMMH>Mao9uhrq(`|e-05U^G_RbVe{sbq$_97J^)?u<<q@Zns8P<
z`BwEI0yIP^2iJqCN8;1Jb>8_lWXBD*h<aCV9PARAsGAdu#l0}bPtMmtJAJuZH1VH$
z?efaXiC2?ZKdB0fqZ7;DUk4GRhC7YqHCP2>smpeDPt|2vGpufR$EwHuh}RM#Dk_u(
z;v9JU`X2Es=L7+QCQGz(V2rpRN-sOas*05O8cDZ{U_(VO*to%-uutk^RHJ@cW#JzJ
zgQ3GH1xvR%(Oy1%`e85%rBZ>4?b9Q)fRnW8BbiF20@Us|fx0Q~G#Nj|o@`Qk1b44y
zVq#)S=p&w9P|We{E}NRh0%s)weV5^u4<9~9AXzLA084ng>l|<NgyZ-~dwYrp#Lnfz
z563j7TWRIxwK%U)*jZeV0C8wG-U?4EX-YM&dw*_C0=YmBkEITRwHo+Q`GU;Syfx_x
zuH<2T#+MmFl7mW!r$2x)?gQ29+!m>DfG(e3jq%uMr**S!s-gP%1O@5!j<JNq9spDL
z{#N+5H{?}7_q@f~0ctoDBTcI~`4Qr7``66J>giE%bTmfjd7LC>Z)Gi$CPP%Ofm~)4
zp^e};011b+SmY>``|_&V*x1~k$Nl4=`f$`?VZXGD(6DtmNx(p!l}2%+jxA_!PoF+r
zAIBEmk2_DhS+suBu9I@G4$@ka1d{@QMPhC@BvPwZMMD0Jg#bnpHvMtg!QtbVFJEjv
zuVRaaem4s_5VEdOQBjeWuVxLy($O)SPGRgNF_u@_x88ly)z!6q-@Zg(9HKtpDC`om
z3a4ZL-1ImqDVh7pO@W(>OCDgq2KwobkTWYlFdc)pYU<khh*-2nLo$nqi0DhDNpn+|
zK-lZ)c}}csY*FZ;F?xB9>o;srH8YFX1Ho-`og1>s(s7(@GJbf?vePxXe|_+rNPrUd
zT|JhTgJfJ4SPde+?XnhxB|_&GF>emXYP&2gOvUQu0Sy=L%$w;Ac<%15hU<AiJjp|c
z4sFM$L6PmpayQ`j5H~YYu%x#|YW(u)5{<xT+m6ap^&l~Yc&}kmKXXg66vVwBf{!PM
z6cBDd6w+|({o)>wru{3=vW`OSDDS)z?Yb}vJg)hS=_ISo$-xngTKm~T&);D=E$F(^
zg$Ad>O`=4zQ5U`OWhHc;=)_nc?8AQL5x~!VFGcCcL>irYd^BSLd3^ggT^5Jo2GwL8
zXoT#b`}SP)cKq&!*9XsWlrrX-L8n`Q5fY-KqYw23eHz|vnfpFBH#eki?jiu0xv)vi
zd1~4pVP3{%HjMx)_@yz}-pwCwJcOAu-%H4ugvN~O?sM#bUQGt89rVTif~AEd4ig{=
zc_k&@yX=opnq^U?-%3(a(0a;r_OYm~0z&9e=EIR=GH8Ar6a94xATIRN^guCd9%h>}
zvl3mTIomewQm}Laijan;9wh>w`6E`H8;4&Po<q(O@VqThTMRs>=PzE=qRgkeEiK+F
zqka4KU5F-0oR|w2E*uvSP)W+4jqOpMc&`0*uz~DW2RsgpH@Eynm-BSz6X~VzNzoTt
z#`as=*=6WC|GtoJ(bk;vy+T!4DgvN-WyGfY%^&ZEg<Egf?(-Ei3K(L-ZE4DlS~WrG
zEK<XvwqHUCF~x((#x@}gjAPikD3kSX1oY=!-#86tF$^+W@?`k+(r$TL<P3@E-ub+W
zKo(E89_C?VXo1;s#Nf;b7T<z0kv))@qn2u<MCg;d1aAI=cE0{6q^Qx1_VzFQO-)UN
zgN3zt?(JEiM|Pd<J1RB%E6lVy^byd9O_QNtUvkO54Zk+{p}6KvHs8+vUA!Ci6Yo2>
z#TmlCFsgW?V(>Y(EH;UQ^7r3=<I3s^umAk7EC6qd6^Pf!7fFlE9JyJbrin&<4+`5S
ztgtF<Bmjr;D{lAI-&&{hl>GjFZcC{}=IzcekIG6*s{<_aV{q++#s|>BoATiX3T%+m
zuvoffyB@xnJ>B&}_}2FW*hZCOZ(`5N1WP$-z=uf2X(}^UiAy2MwdnVg0I`A|vpki|
z2Byx0V(DM<UESTBF`x3t;`WL`b6wcwzl1EI{KDKhnAtM4$;vOCF7p<$1&PZpxfXYw
zZq{@Kl;R4IH{mG+pPBd~xncX}ohL$Cn~i!BbB4!OhsezQ^t$5XNk-LrypjD7dJ!}*
zzbr|X=)cQMEXXXUpH7dsE#2nuM}Kk3bXk~akfowpzPg*!Ce5VmaG-#hDLFgm(jEz9
z+YOmw7qA0B^>ncVCAyZo0Y4}KlRNjKCFF}y#tb}j7k3B*h}*`t7fIr*vfiP5)-$NI
zu1Lz8eA{zY2rA$aDXBK&V4pR#E*Z!>dnD|5I-GZln2om3P<=;-2ei_P+HVikCrA(U
z!6)@J*uiu4I;4~VAxj&ZG%?5VTb{W=kG#=(j2x$ihlDI)qA5XSzwZpr>Dpr8E&x9+
z*waAIZNawOaRdKguZ?&mHsCzpNhZM7)%qFqB!2*j@_A^<Nk3-g-yS`DxKK{eE~jlw
z8s?42;nFmSZ*t8*7F|<;1a9m});eC9b*;X8G?3pie<m{PSLloNKWuB2L@86&SvtKS
zzoRV~kXLf#X4E5srC#Vx3^vtT1$XUuF?Mw4i+I%FDkmLit(+F;ZbVQP(chBjBDvTn
zz9U*8pjrAH{t!i@6?;~OqO#MCbzGlp-n%}UEVbc&rN7Y8V-vfWa}>=aJ*nFC+nTC*
zj<(y_*o*-HDwaUhZ?fe|P{zVxmKGbO`s1ejqIDy*3@ZCuWuUNTZrKprJ;Mw-b@$7U
z1nmYnL5LGV6bfZoX6A(#J7lS1PLpPrn>A_%nwYt$*4mzF)bWTCsP*m~LU%eo-Roa-
zFZR{eT$a(JQ)qPxT+?1xX{{d!0W(?uN&7rupb<4Q*lke@?H0I+Fv76Y)0}6lYzG@v
zpnW}%UYyn^*yxbm0BRCp;c&j&?bAtnxJ5d81Ap#i?F=)|+CJ~vz8{cE2zp8IaT1BN
z%wsLIqF029OR53gwEg*Q>&UTaucONSOA7@{Q40KdCqq)oYQK3Nu8USVjGdrxDM}TW
z0ZmWM>xh!g*iVuaAT4YC4%#iQCx!1{@MX(AT)n9VeK4#xN_nobA;VmoU7t{+<ft0)
zS5>ZW^?_kVnOXqf9fvw{n_#t7RlY4lzPLJ?%+jEg@^Jp#@FClekU*o8;7|1tvKp=%
zsfV9;PI(6g#>2EXG&Uaaytwc9>xRxdzoLR&sT>PKmTq3PedCjv_(j>a1E@!~<G-p8
z9Zs-Br6gUkvPz-pw*wsmM8^Vlng06z-glxm*sHO}iZG&U(ESrvZ`ySWB!^z~;8NhJ
z_xNxS{61`^sTt-^LVn*RV)h1WPtYEM;n1z;AXhq~!P`Pk(!AypQQFNOVUOnOaM6u*
z63B|gC0<!PKf@Hp(XC4&ljAg#>apaxj5_EL<1n+?D3;4r{!~HFCFdDJaofRr?av(*
zcD@!UmI%E>eY|CVB47aUuLjz<&y=fEZw0#xI?nnnTN<Fv5w{tV&i`g%Fs9Jdz)8J>
zvacR8<TvN;2$i=C;`|a442dCY51m|_COsFgk))S^hwPiB)MJS4N)KibBI2qV+;rzc
zW`SpT5Q7Ol=WlOErUd*Hf@YzE9pmLydcnqDA9CiQTGXYzkhN+p_XZhX3UPbkkUL(Z
zAXtn~m8BAHlb^#434jSyXbO$6CCg2o<S#8c=|buwViZIi1j6EK$)$PJLT@THbf1*t
zF+oAWU*;SBF_!<EOrzI~8^TEBB;f=3Yy((A<YU4=39^K&Z_Km|wpY8*>G^>u2c8D|
z96FW-Q>4O_Aah$Fyx=*G-O#K(2~PbYJXqSLIUoouM~mP==zYhiu2{Qmd-s}i_)iQp
zu*orn&x*h=gR=^<Hu`yuv`4A@1&<E2j+ncr_FNbv%<8%D_^^!SJ$5;j5IXv-4d|?z
zIydMpQ@UVi=KckM4LIe{d}I1)m6gJsot?5*JUwMWJ$`3IC<jYR(+ZJP*-22)+|$85
zGE*aYQ+mM*ee8KU4%>$zh`MvsCXovcQNS2Xz~4Q8T93y?(eZ0p8>LNZI8ZLlnre*Q
zvUT`IqKCgQDj~|e<bW)u4>M4WBZ;3?muxbYi<&1(^%pdJ-XjfSk?CoWkFP9m!AUja
z@P8*^zgkW6#MO6khGMVg8GU$!JV|rlRl7(>jvp^&*j{%RKwRSlwF2l(<+_u4A46g!
zw^mM&?EL#tk95#hH)?L!kp#U*a|d@Gc95E2?7yph&5*KaWNaJ&m^_oq-w>-_?hbjr
zgRG<WbuHc9eIrpqIsEZ_caX?gRuT5wvt+_#UkXwyu!`*7jxPm_x{F^L!8<SluQ>v9
z5+|NmQIv^JDPzcUE{pGOR%C6>4a#rNv?QM%;@U)JxOS4yoj-s64YEhml>?M_r|yQH
zpKyaU;u{tP3QK*}G2w3EXQ0EU`K)<F0X9IUq?=m_%jxLrkbUN#RR)Tw)?{r}eWb~=
zgtK;>1o1)kewNLKIq0!N)}H<VDhgD9B4@rM>SzN5-J?EtKUO{h!CeDkC(j|sp!vnG
z_HrNpFw;oLYq`0S1pR4LDfAigHx8<%Fy3hz<U|z!qQXSdJ!rme!-iT^3Fwo@^B_o@
z(sQ#!aWKqx2^u`*gK;tP<;KiAX_sq9F9lvk2e#k*m73CIMrW39-?g`gU7eMkJ!Xr{
z{C5V$0ial3T(ntqDKIN&vL0tSDR=BS&GQ9V)9dg<jCOTRUCzGN<u;F6PQu+Gg#KM8
zZ@os%P!CrmZ-_TEGU|t#>1|{2>KyrS<CnrhR3sS^*NLU@!p_lG$Mim2zi(fq@5Ys#
zU-Q%Rr>=P(K)UaoGY|?j90`WpPm{o>@?56`Kjdl=J83g5Hw*fNBWj;ZP!xJz_S|p|
z>$YuSgcfX7orL`<M+GfaCpMHZ?O3@2UlvEmf)ufndOkDreQk$zW6Wsn(b31i=#?ex
z2ESu(Xm$7<#aevFnyG_7xPWjOS{Q5f^!E0n5^Ew2M#zw0c$q&8eGK+BoE}&xCohH~
z)O8gA=XIqK!Bzobe;{jubyfl?P=)Ma@0s}p8fM>up*%X2yo(uUr&tM`1#GlBG^sp*
z1@XIG|Fo}KAY@r^0tIR!azF*lZ*0B(PT3!~evB~JHvG0U828P16^l0;Vx*%-d#ti@
z<LsRxdA}t=Mnyf=L}&&l*HG&fgK_5(<-tuD8z1JIk{Ayk7qBMh*!11>hYE3&#CVWd
zG=uWbNdlh8G*ec;Q5S{ELGMrsc~Qi{$;qnKS^-2n+?vH{stVbbXwj%e$G~(5_KoZa
z2MKs58)y6lPyWw!_z}*TA?DzqStY_$D^_p3jKjss%GzTdRcYi^*m)VN0K&21Cv#rW
z8hVs(oEu|l#$+)hixEhf|6Ss;x;CPn?G5+5tBzGECqYp)G&JsSc?2p;>{FNt5aoMQ
z6_xXXt_RrgT^_W`I(hvQOTlMen(`OslB697hrF_~CNv}4HrocR-pZuV0dA#zq-&rm
z;q3*D$9SZqbo=`HsLxlglKLD-D374HuSG2Bd%Q!)CRKGQd!87tr$z-i#(tX_NrqPN
zPRv>sw}`gqi>JArl{EsAC80#qCyCqvwaP`zmrU%d<y3f<+;;7di*~#jD{3g``o350
z&i971Ry8BFv4hCLH44tJt7j5E|1P9wCP&(nuu$erDHjM(2w?-27fmY)0UzI(1j9}n
zaog^fqR@Dh`dhP7rJ=n9(;k3MD~L~J-Yb}5KvkuxaU9TVc6_l7r;}aCNRA3PJaL8p
zuN{hyXbX^<Owqh{L7|*dAaN5~Lxx#X==8LMd0VzR5=SXI@gfC~{|M^=XKZ55&|Ir|
z$J4_XU&)Ev=dbKm@SSIzr??zn$-?>!9{oJYyz#>stOeCM>6&iBHQ_cC8ERFfxls|<
zsot5wruKQj^A1oeZjm9txFX-~bzkcMiW^<H1Jr}%Irobh31=tp>{rv**N1VU$*c46
zyF@Gz3`1Pv^8E$LWmnw}yY^NFL?M=V>(jkuZ{g=5rWb~g;qtJ1;nrumzMw20B+=Cw
zE;GnCaJ+MBXRi4sX+2EoUCmRmGb}>EPo4^UP3HjNAp!oShPPk5D$kG&Kw1EPI(<y6
zU(zja=HgjC?F_}55$m~Yz@MHRx^_*57seL5_b-hGh!*_elHjQ}XwpT+#n<R7BoBWC
z>Fz)DITt~Y0pQuofHM;{3j8rZL*VxP4N1YGcgR;F#5Btt_XJsgZ;)y(6k4t+&UUY=
zv{VJ>9x*#_KR<?f@X=dM2%7v0l-7-{`uk4Gdird4*5V5G^f&(g$76owHP+fg+vD7|
zaP{hkpn{qIkbdCY8f>jx8XaZcH~XDor&ZREI8A;8ea-?WREJ)8!LzjQ<LH+Sc}w`r
zWFBjzBB?*8G+8)fME?pRn?ZMWXiqIuduuIIKmcUaepPU~@r9{&?W)wEV1|}7yaX$A
z?Ypkiooh(zo8>y@-PZW@>{)g%_Q9XW-?Q|cZU6oeYi|a;LXN)HwfwZTiO+kJh&D@N
zNPpN~BGk_zEG&F#(}t}CJ)l*aXSP}?TrL}FFDRI5f3!j<=u=SLlVmsm6MeN8k)}h1
zPO%%ICji!c>#?G=^s%pN!G>8*c_~0=Nh%1*I~vlj#iAfCnq4lW{=nGN=L?}Y;?zKg
z>wB<)4?qg+j6?;J<RuZwgz@6tmeC+Q^hZ7G%gL6DERPuHZo^>W^(aL06U?4k_44`D
zG(a;a>q1|y%pcI=5cz1-{qL!wZSy?N7IKUSqXcq!wMQ(J>^gISfF6$Hzup6|R?K;I
zQjZN~UGwcm)RJzpVV-yKS6{ogxA)D9>AUn%iSC7@DX+JXIeO%X{H%+&-Uo_oms6zA
zhb{y!r$=uPdiB}+Y2dVuOGE6sy1RN7<_QN9VVUD3*NZHEY_wmUxOhV2fsr#VAvgyW
zd~&hHbeXWeyZu4wxawZcgee-=!GmWYc&ekALfjE2YVO|8P#erhW3I_s>?k92w<Q<S
zV!<favw3n2p)wsaTz=Y+2yeNaMJ-*`n_!!zQ&e?h8aZ4|8zIhxeW#g4+ZxvzoP1&|
z{e!^f^79pA9*5jc9B~V&+u6M-amT)81HVTLw<u5%;7h_Ohy%zLhufbQ=8g6RX>b(;
zJW|C7m>=Exhmcju2@o-O=sMJs&eL~B?370%0nz9tYuC@=IdN#Yy*7gb5N>VlmEC4x
z88U~Ko4m(xD2AY`t7JD&WK-sLXHDYz2=N}iHUFrpCQa^~8)ZY>uUUDo5+TQrpm5T)
z%&{?o!OgW@6t|BjOmx7w^gEqriB?{dMM+c$O=Fm9y((lHs-YMztd5af(B7pU6P%RQ
zyNgsncKY1wzoQ4RVmzlE+3(yXzCBkxo;|CE{KiQFP)rFd`yBk-anUh<I{ugEGwfOW
zHe0{^`7s4TQG|ZM6r<U@LR6UB^C!jOf_l|G<ab2r?aB!HX|tx3q88b>n0sfdmloQW
zOwcqDWU4Ro;f8X_AFL`vSsn-I;#zQv%hI~H;`ghNs-+?;EeF@mZAd|TTd!i_+6^Oe
zdfQtWw|oe!^T;R<*rzohE6joLhEl9|Mm|owwA&7UB!w73PM4^;FV4)=!tzDv1*SlB
z&4W6(lUZ3=bg@%&69bwZg_c00q9Mk@x}OQTIOfwA^L@oTrI4MZhurF<++p%>?^!p_
zRwZLpv6GObA$T1hO&v%0Tw&H_dm?{OaQL;#WkdcM*U^_|X>N;QFffp>YGovEPs|*(
z*%nlkAi3=K7l5wt0+3;9_;J<9?Q%@_V;c?Le@10JNkM*@uhf3DW@i}TuSmrHe$Jh^
z_M;AMPs*Y!|J;>kLW}G4Ukv+LZ5p(=fJEMMao_paD>6u~U8@;s(EBhk)S^jEb6s#m
zmnpQ8p;<@Zxl1z~-+^`jP7)qDAxammrq~ZQcJ8HcsaG%?`fU31rs!TABdz7EpLd2G
zJooq(9#u97V>;57_a254O_;+39-4Gi->9?J2_$h2ksZ7v^xUkht@94Qf3j(}Mh|0z
zKL&Dyn#|&K7|;lUtnu2GdFkKSA_*-5itFRed#{<4EP-=V+}MRsP(zf`As9-N#<Ko8
z!SWBs3YO_wlA_{CY6ZH;)xmryEV5Kj17g>-1$lcLaQMSDny$!nnFAHXC45d9<kQW*
z>f3poOeKB}LZBe>wje2~$U)WOXj{HT{QR~3|F9G94?(!k&#WM#xZ93ia$p)67`y?^
zeM@Au<+S6=Qk(Uf)4FDV?9>P5@H9YHpLc5A;~6F+0LMB24b2}vwi6L!cY)#|y8smT
z)a##@t0Go)xb$mDNdSWM%V$zkQ}bLFptNnLc(@BhLRgoj_Myy+7S#5gglHHE@AA*I
zfgn6WKI#;N77=R21vXs+C~Y?oCa^?+8R}y%l!Hj<+_F@XoZJb3i&bONla2ba)R|vl
z9y}fe@M`gQKvdo-SYUZmJHx`lpp_ZNOPnO<!QIxnKSVr>%s}G$L4q)|00%?>sR2Ui
zlM_^pR6KsA7Y8nnf(Syd6cKMkluZcMhahe<9>Sm(en3o?`t0RPVO%(FdADD=;pA}J
zZRi6gz*`L7+FDnAcS6@@N7SbYet{S)gsI%}ii(p8etg1+v4Bsa)(uYOamAzDn0OTK
z)F)DQhf6E`g-R@2z>)@d_2;L5_W~EuyAg-(MV&NiN-;Eo{&OL*F!l#6$VnEVlPOo#
zMx1V_atN>9E3X_uAm}7j5v9Ho96fhxb!LnC6;;(r1nu)ma%=}Q%B^<r>HKO-f}m)G
zIhI~TOX=h2r*E(e=&hJqfXR%ck7z<X4V`Mc5Rg_X%A+;<kyk*#KpUd}B}AD*oToHk
zq~r5L*MVC&+R0Oer?JT_mk0p&P3Zk8coa_gw!^JWd&I21?$lRA8JW8F+F<j3={;$V
zLPA27A8r&@0KRSrEJ3+3Lan6_&@D0pkj$9l=?2DwYRMi@X$06y4%O#-mJ&Eu)T2Zq
z{a!S`3+9G3?@<akapQrf0SvL7;~82#*4Q1mn<HXkO|8~6sa1<RDoRU_tL$Br{9`fu
zOW0d{FI#!9>^xE%iv}n-KNs{VsQ$}(emh@v?s|4Kw}p%AlLWL2LQ1s^U>3k1sIV+p
z(BMca=;+4-aPjS-00MD!j4gg!Mu*We;yPE#B*H92E}SMPdFBeO9AYaVv*qk_R&Jhh
zD3%{6P)^V%;*n0q)&wO|1e0_2t%fvdO-Owd^kxV<5IbhgAm~p{rWS+@VFB`NL5gxd
z@=eqSEWP;K17U=(mNIS-(0qG(x5&>p613b$k4$137#Y2N^JZu895!K#GZsgdY65(B
z-#O^|KLwhLb5}#;of3T~Pr1)5I5z=DCl7HCFL)ckqEh7`s}C3}vrK}9j`|O;TT2-}
zx~PXn!9^vWGp?@CGUxE2Llr~-#7sNWtm!5p2Aj!9!gHZ_IGhM7fJl2h;}Y#I&$YDZ
z#<7R29YhB5{_H}YC^o{RmMlyVLKo-pC~aV-@k|&Q8SRKUOjw*t4bduvBSJH{Q%+Z9
zg)qq#xy3tE;hApRy7dN!KbouK!(8lRAxt7%$iKH<w#8YO79_IWRr!eGn~uy)oM5qv
zcpC2EhseuUoR0p3Rs@5#^dj}KjG>in6XRL+^2)e-d~7t!2ryIy#K;O*Qi|x(ia0qK
z33%oYQ?9hCYEmn)pd(hGc+aUjpCnODdeLD{;A10URYbz;?L~PO1`b;0H+6CIsF9(e
zKji*m$=_eM5yMWsp)dFZ@!dzn#hYOi)DvGff)(vr{;jG?geJ*!Cq8QGoHab^4TGt7
zyJeA|FhDnW=HVfV%)v>F%Lo+jWd2Z9W+(Nc%pbdA2So)}&!woWEUI7ZE&vaM5b<HS
zzD4Mbc52V7Lxi0^buO$<E(AkCb#e^ZHFH9ibjib|I!Mh)Up%H=7vT0)*OmC)z&*ln
zAd7LjAV>#b9cDLPVaq^6#4(wA1Hb<bjA$<mlMLrFFQp<CQC|HTNSDMU&Mr|Cj);iV
zfBpLP4g6VuaHd@-D!o<jU=N`Kuze$@Mj*CYV6_YrKX$Drgi72V(SC@4p#Sm{5mK58
z)_d*;Mm++3Et(%7FA3tw2|_xEger1GK%m-vr@$8;-RvJJfkbIz6t^!e+6VW|tT<bg
zx87qtjUR`4BT$2r<@0CH1i(d!LM?DqIcVd@JPb+2>txj+(NuBLlHS^ACPJu;*$^#=
zkr-EaSIg(tbk7Vx3B{(Wm>VgugkWv}ihl!=nIbGO<aQGK+Hx`}@Q60JADfKIU7owB
zhsK)5bCjFAoKT4)Q7?&!7f>jg`#z~=iBQqTiA4a(URc+n2rZo;sycB)P>v#T)O*7`
zq*HRqPV*|ubBhCWN+>~fkfB5nD?wj_sb3aho}b9Tx&ygc;t?1StM_NnWh5m9VMmcG
z*AMqCJD~Otd!f7#%e~krG)N*>2TI<htGoAgcv{*?A}<9=@dt9OToId!cM{GYib);*
z{|}T`d6PAx7p-ys#QYvU!W*drt{kyX!S(1eL=u(o^@^%i?K6e(5D5d2uwkBicq9$>
zvYfvB;oB~ZR~`=vNvvCbi}ePgyo4hy>#<Mi4%^yLkV<(f;iZ=HE?aE<6K$wLQeC^0
zcU>a(^ewa&M+npFhL=yD`!l9>whW#SKMBQB_ff+T0y)^Mo7e@<V{5-XapUZx%w^Mu
zbLPj&Co&5bl#uRBgRcJX#X{6FbXP$o;LbUIhKQIRKXODCoWsmebQQ~kKQq#6k7K}#
z8ovHrwmyD8;tyWX(;%aBkjnk|HPzJA9;GjvPJJV09f?!JhZugD#rk_PZ-7FG<R8pg
zpSJBRYq^LS>jU9DS}EtL$Xq;JAIJRT(I9&fi=4bXiKGIYz!mRG#P&XXIduC^e2<0Y
zuh9SdFyH^0+5Z1%W_x855FjMN2;j`%KFo^{A%V9d=CP1tA*d-3sCA#){M`hdtSbN(
z7sgtx%6W;*KuT(Ad24>n504bs%5PAg5Fgay7($BG7m-ACwTIXE?rF2n{QX~9fU?dJ
zu@eZIG!5Ck+#{AEw`*$l`=oI;O|wX3nflAR)KAPk$L5LOOa!KorPo5dX-wPhL=fBO
zTNf{M2CZNz!mPte6?ysR#QBg~obJx<c(7r8IHql4aGJAw-`*zlhg;aPM1TMQoCriB
zh(tmXN(Eni;Z00>a>KxaEXr-$Qg%gVJ_oD~CSf{eoy%Q-iHW53Nq}#EjXiEX%cC6@
zgI0j_!~^3~i}UjPyQImN)y=kD_L+9t;gA^oB?)CCK`T`jU8Ndh4AJ0~+P?eU85d48
ztEfDn(ANEQ)zgZ#YGF}xS?O^90E9Jfjy?pFc&Q@j>%4loSF5Y537rkX3MW!*u*)hc
z6ru6n0-P`f8}iJBoPC+dO29jeh>G%yH8+gezeth(xLcnq=Qs<Oe*xq4-H#2Lx~+_5
z-sca{9{ih^bHS<*d{<sk(fi-ve+Wh=f+-Jw=dP8NIIE(bAFSDvu`GHPC+Q44?od{4
z4TKZV-~kxjPb0z}%qj_LIOs^<D~aLD5T8NqSP@GCGD5A<flB!U{E?A5kN)>>HtFw7
z-klR+W`rlkt`FUvK~x2+t`V`njtx(|AE4O;FA44CzI^4r^ai-6>*otlRBql3&7bMr
zO=7ruCd0}upEsoFtxVm^df#a?%k~js-2L)3aI`;6x1ypV#G4IKd636w2&NHbGDL2v
z1_~OP!yE&obn!%}gjampBb9bTI5Z_DQlLt~J7K>=zy4zji+XiUgaT$>0z-T>k%^H4
zvWSI_@{Bp_w0Y%oCn*+hcL7;K=|i69frb&t-bsURudnp*4x}ECme#{osz!b>4dieF
z(2(K!@5N%s_Y2Fx{wzk25cR<<hRB^_nyIj`IEefM@|-Wi-2fu#;(In<jPalV1Om2V
zBthPrf9C|*ruqT_MF^O#NCUn>SOXom+b(BAIL3bn@Bmv-1|hk<7zj{;l%@n-u@Z@2
zOjicc1piE`D!#dnqHaudUpyz0yu2X6zc3Y$ZZ?4VkqQu+3PiTdF`2Fe;j|LtIVL!*
zeb!6pY`Z`T&;)OShgKrMW&Q_ou(O*G{}wVV+YU6M%Fzz*={o3Yre$GaVV=u%Ok85D
zId2ZA{|7EN^=8rYLp^XG*h!p;?K|}`W^BeW!;_h|u<Rcy1m!ggTBF$XJ|FiMNv)AY
zS{9ZdlBn9ls#;UCWgls~RkNL3OoneqWHnd^PgS-j_l_`@Jn|$wUd75!NiQmJvHpGb
z<PE{C9B0>@$$q$U&B|40{z@|mTz20=Z8-fd%gS(8)?LlT%gq1UnwxPdJ&k|mRt`PS
zkZ%XPo*ugXMe?Eh{nM+@J{BL@-x_$tD7I6L>&dKZeQdg2U6WIA)MlSN)h!ZpKYM$3
z5$Tz`u-A40ead2I3P6PEMsN3-94R&K`oe@i*X+<2;pe{F;^Sw;5;LkH^eE7ijyBkX
z!afG`M&Z2H$;kXU3xPGNLcr4P=sKeS5%U!1eQP&u5{4Nl`Kst$)~9!r5XfwgIl76w
z|F|=~icO=qvv0b)(pjbHO}B+xkUQh?jh#@Qi@|?i5>~bx5DXsQOUw+10g@CKVCrN&
zL)fzTw6gw+dt<LV9+^u)4SdWIM&D%q@@vUbdDO+Q99K&@K~&S9>O6RZ!U+y`DW^%E
zscEcy<+{23OVbzq`HP1M5OlEg7qo+mL-D8FkaIj3Q^UW=$@uue4Md!vem;wTFF<Vf
z>9a)k(<g&n+~!u+-Fas4QhZt)L>=v3wqYti9Z>=iY{4>fKOkRlC|}bl=o4y=iNs8E
zymk|tjU|n&UO?B|^63(^FC#g@Vwt95hXG5`+3}Av*^jXtghO!ZRc!D5zlWXQZ~k$W
z+}53Y!$Gv(Ng|OVR4-WNM|(FVj?_gM4sB1d8j?DPxw+$7^Q9IPbsWqUqzgGcU@6rz
zrur)<7HWeR4deuoUeb*u!qMzhckoCIt|nF7B};RE#tSKI@sZD))7_6ZaL&$0_pBA>
zU?+OcsU7yc4{#CCC*Ca8Bf4uI!C>0uf8g4z>?WQ2j-P9nwPYX7>v!vkjry3*@u^pq
zlRGvg)K$6jmx&q6<$aSKkA~`Il!S_G2L@}yhHXowi$+nS6vUSpIz7*jd_$7^kGOdS
zr<G7{2@e5u$RhYClxHgP%)Khk8t>Y76EP8_M*h6S0KK@ZvJxrZD>rVuC&Y0i_OGH#
zQes4)nh=Q;4inI^S?s8afR%*Fi!`e$l!Wp?Zed|{U}X(OMR)1BL81Q)tb~M|CX^eL
zexQ6wYg!6<H!`!ZibIe!ME94&_M3(NOSo!~AC-a0kJ;8f#4t_SiH(GRKplq#<eN<@
zg1RG>tq~Mdz?Dxt+u?%4XSTEj|Edk^v6O80eScn^dGF|;NWGI#l>+_cgogX=Aop~4
zCfx}V!4IU62zM5r#l^>057bbH`6*nzDa0DXW(SES1xC`4r7LqcT3>+Z@oNRHdCDW7
zTLxe;j}WbD7H>Nk$4Jkcr2VJvoF=S04qn}CHOx7(2DS9l<WEFvmdD5l=T$H+CVc-Z
zNq^Lk?-(DS23`X~BqvE%Q0#5s@@X^|x6FKbekylnX4Eb}`svXHig-{1k~&NC44HKM
z5k060RnC@ZB*Z&H!1|)r?05d~rBRZ7MMBVRmX$I66-QQRaA|!G_&(y=-AfU2apYK7
za3<3eJ6t;Muh~c{hI+&m@8#!bJdPvXy5vJ7`To=wC{jK_N0B};Q>DjxlubLjT58(m
zA!Uipi3PUft^y}!2NQbCp%2nvQBd&U!ScggTxG8f261Rx#qmY~Lb=+yYuB}Y+7X4t
zC@Ju&Q#d95c8GV%qTp{L7308_?ctx9B14LK^gAoHxio;O`6G$HVZ{e8Dr>F`e|Gsd
zg{3fMkELNJpM#Xl2MzBipH8%Df8HIPoS$7xDIB$kpR(0q8paz2@>jl_YR3CvtTNY=
zK&X?79t9t^WGqpc!e))%YZ5j%=j9Va182|Cl2*25m<Om_zI>fvlCKT0LBq<Xx`#$M
zK1Um@vJ7Yxmo*v*aCX({ve`LiwJJ%%`b??hfztVH&QA(eOml~;!=7j}rVR5(IX7G4
z==t++4C@jo30Q1pr^Q`SQ#0V;;MhrZ$2s*D?;YBCOWlm+0UNi&vJLZi^#@h0Z|T%U
zSy?XZeuyg7NLG_gSCs*+oCIosfn@?)-DmRdjor#u@48xI!i_{FoVUz=%=%wjwQ3a+
zNhGFTCn-pxNf5z<`)l@nN9sq#;vK*-f<wy4z+p=mzFNW?L#jFbbguMHpxoZVZBoO<
ztb0H1^@@s@EMRR|ac{2Ge@&}lW-`6@uHKkMe5R?+hM!mWD|Ta>ceC!$m~^cIJ@)44
zVKCsg(45;^W(vMyEMF6+uYB&FTT#P6OE_s8;p$UuV5FLMe7a901Ca&ZmuW#~{nbwD
z*sIKV@a4-{)*U-yKYna<<`ogqAZ8V{Md!x<+X`~&+qw;7TCn#NF&AL5SGnXg%P8wQ
zy-&-rS*Snj*<L`~G5zw-x@Lsr;F{uH2(m=D&r19qa_{|M^>`VMmPO0!*Gu!IS5b>J
zlV`15Eyo9&2;N6b@g&08A;4qVw{MrvoH>&<A!^omfYgs5V9b=Z57iDviwY)>khma1
zEpYOQ$Tbm~fO0SsMP0LHA5ZN?0A8-a0>B<>mD{ojHg1|_(F99}v~utL*hcgCDVspQ
z+}#5SyBd~@)vu{N)sE9;Mc%S$lMmu@9AGp4Nlp?=ezy?6XH(Ircs|gQV{a)nKUzq<
z7XX7a7?g8xLEgb4ui*63rR5_If^5X=D|&-FFdDm8##IMH-^7@R4MHyi;796{H;SA)
zmG;mVogIY8YQ_DFu0wFBh&RI!@zfZM()G^a7DO|HqJOoQ)(ZT^;(Xx&+lSN8onX{v
zS?^1KfiMN^stJs2-2#Hca#F(yCt17w<MpI;YIgqU_&ojT^XD}Hm?uFEQ15QTQ<z1b
zk(eAKK=^k^pz?M6S}xx|-qrW0vPMjknAN%hAUMWk`UD3jp)#;;-~NVsn>^kjBIxq9
zxLBjnt(2H`q-^&)`d?cy_uZN@{r~e;bf$1O$p7=$cVT_k&^$R5x{F?V+*9?2Oao;l
z65=0n5p%<O$G#VMeUb>OSj9<_?sE=>=r!wzbn*mVgQ9{nLp)`lIUa2Rvct9~nKJw7
z6>L7q*##S1pj{9zjUonkL6I;#uG%}7J({QP9X?^RaU}~`U9z7=<nGN0`!b2~7s@W%
zjowYhxM01~A+axvy_mX7OrR3euinR1k$D}n8VHnfs^>w8ZXd9wIJuHo7elq0*h-+h
z;B!cCkq9G<ZKyfF0BY+1p<;o!OuoH7=*X-T<s?D=@KXD|^jI_eC#{6IDnfnUm(J_y
z<D=f0TpLAmlSNPcrQTlW;>w-4=K4{Z;{2Ivm3+=~1?@i<f-|oPZ1G+@esyHzza3}V
zDY5|S;NSH4*#vji22n^ML`ZsOo^W{~R&wh!*}unryLoZWiaGJizQtwuXwtX2rH#oq
z`KE)HX7&@b4;OX~Z(qQRt9;iF%v$G1^K2%&N=v@ukIj+kb6)NQibf45CQ=bRzXCb{
zN@np&n27%ZRx?xzFsnY_u+=OMQxw$jR+lw4&PArd`?LaT6ejv&s1oI~*#)|#{Qay8
zTjn7)a=u&o`{(fbzv8OMDTm&N=7q}Nj8jB#DlxmCi?I1{R;$4$x9{3T3~l*y+v8<J
zoFp`)iC@FtIo;m&mFH7^7Wmyt+itf&3BR#dxoe_ihTi~(buh%Bb@683naag>DQPLY
zAsSy@)Y162Yr;RhoTwB27Ye+*olii4#qOc`5&nF=_O7m*6Thm@Aw%YflQ)5wnw)sS
zeoI$ZSD&GT`FNc{`M(3A);}LFUF?>YdA_l*)$Wt3M#U<&;Z#Xjee(ZVFYe;~_KXc~
z6Pit@nCPJLRAL~JkPC>4j`WavzYNuN{`W->eH%@sohz0#ZsB&gp-uRYFeoq_rB8B0
zz?yg;lcsr6&agO%VR@<}AvE+*9^L^(ty&r*2VuN|L~Xb`Yqf|l1u=_;ynq_g1^(S=
zM&r|gFqN|*zS)j;oIyD8EP90|qUM;J!%T^*3pi;uepOpPG4rc|vPTR)AszaQ7$!Is
zgcj8w6BUF8rxw!yf4!n^9e@pAZQ{=(#|V5n9jFmlAgQ6V<<n-U#&HlDwI>auQG@!?
zFH45v->i{eX&RrDcvp|Ash_9b{Z>?;w>x)<BC$00BB^1D7@Y>43xThB3uAWc*R87t
zPLId5+G!|_@nfq^G+Z_K>_D)wRB^=X9?EBPp{?XLtG2~vU58<YgioM|Sz}1B>nsV`
zm*bg1GK?2xU85z_s@2Xn&|lmcoZMmDvl|D28#nCW89kmqc2&56W$l&KEWywv*r^+z
z6y89V%SS9ID9C~+y~TjCCd4asPT3C!Qg~!!+F`?mRU;&Kj(V^ZabI#4gB|$vVChxl
z6EFVOy1V!<rbn!}8?WXNLhNZ%;Ryl@yt(Tm2_dJ+0(GDm`BnYF=JfJ!G@2-xR#qmc
z=Q5$r%zlUBAvuZJ_VU32Fk@jvo^MQ2X2(ssiFY(bDhKNwDTZ5@+J?zncSs#?hMqrv
z?v6UjPUKPULgx22Z3w%#B~=$S>Lm~?UYl2bCrhUo(C{U;1hetcNWxdRXMkP=+eY}u
zd(QF%##PQylWqEH1WTO7+zb~SAvriC#!^DQwl7YKo}>PT>8f${=w*Eu+gHrToo!b~
z%0Kp&Uv(0A#RNYf2qyH_WO%Yx?Wz}ADM@(eRs4rMe3^qC)@_8|RIiXq-3%hXx0x=!
z&XH|BLlX-~OKu{`g4W%|?J*|^FbPKo;1ZOCe=0EFS;Lu<^x?6D^?eEEy&F4=p|hLH
z31XIC@5WwB#s==L(OyPj%S>qKe}EU}evHpifi_LUBO?5neHd1J3441Nx___J5^g{~
zeZp{~%~27S=(T_qhw$=;dk0IWVIi0AX+h(P;V)*Dg35+z(NL>7yv0Yv&Ho#wKaYuU
zSCN6~bP(|9$=Cq83?Zq_s$hD{Uh%XtW@KcfuUI?b{hI`!BKhuS;Dsx?J+N(zV?;O$
zp5~2}am!*HG0PnDJulI}eVwZC;JmZ;!O!@G0H0RLJN`m?U_pv&Ufw>IT-7GY%b~IS
zKkn}th;s@Q-8fS0XjvjmE^dBtH;@Kn*<++R9n6xuD`{oY4TnYl=zeFi%Y;u;eL#3r
zRKpZdI{~_JV~7Nojb|caaQNiOAFmC}fI0pU%=~=Kt6{NOpW43m<3$DB3+xky|2qnq
z+edo`3c1J}xk?Yi&NAw1DO;J8lf3LSrST!#2f5OH>OJON!5Fm0;qND2(S%orL}Q<1
zVk=&`bt@XDFdo}m6?SM4)I;^o;ME9_6Ym-#h967ppJ#N<qmB_I5^v`~O3EO^1#e7A
zGp6mEKq9QwZfUwiW*m0QZFEIqWSkKApsrzH@fNb7;uyyxUZWD(1|k`UYcPd!g%<!)
z5hDeY#F$bnyfbA)$gHv$yWz_sSCWWOObqS?S4gexLqU81`kjEdKtKHQo{YTiR}#d>
zOHKSxB?8dc1#pet<9&08_zuO68XX~C8bG|R0mf1+Vj)1BhQl8QHbXdICnv69p{a>%
z`N;hm$HRk3wb#!}B5K=E(WxrG*00=$4xL32$tqz?uvs$P+<yO@-ND8dhr?1vqcuPl
zFd9~Me2-udkvpMQS$bJ@Dy8uK^q{SeeZp#epF{U<5o>QF68zJGB`*H_@y`ouf0y{p
zgi6xK8N&{X*uU`pw0b86AlMRxmU!D0@d6V9);!TnG1aIPW_h6c^u~vWqSt*8N>N8N
zp$-}}E8bvc(hjkq7Sld9U0>HRFV%i1Mqf&Vbc~sC75KWFZBDV6RWwlUCDYw@4k!e`
zSRo!ZqC3CP12@{7nwD|C#J_oQ{?g?KGs{`-9Ml+HzT+*%zc~6JnWUs)pk>MwFBHUs
z=P3BJ?DVGIa>-9uJ^Jw~uvl1P3o|sg%{IqAT__>9uaiGPW?^xCxsw0-`}Y5hz4rjB
zYTLF&(XHDYP!S|50*VAhQ4}Po7!XlJ$w>uKvSd)w)~%u>T?7$C6amRdj)Do0oO2W;
zOOhn{x3PqM&$;zp{r9VW)vNdJrRwbR=whuk=NzMt-dk(E_1OWd+ug4p3K}&YCfHV-
zJw!GksBPXu)Z{(3iss$Ry(2VQqT$ZSGC@3(23U|ce+o0V2DZlxF5~opi9%M+)^$sC
z7#@%m^x3nwIKq!GudjkE9UvOcmR07~60)r&JC?Mz<tl9uX*Gk-a0czxZkoHUR~bk-
zPqbX*M1<b@(tQgL3dI}?x|gK8Seh}VvRl>u_{|Ib+MqC`@CMC6YQ(Gn#x>n04annV
zu=J5;vGLqlFn2h^{!x{0?PnxP_eP0cUuhTmz5xi3en5~GJdrhTFR-D#$GK|J0yrg4
z#ljk;)LBle_O>=bC>CbXgar=aDVnOWdd)|>FA^Ox$~_d@5IEN$3*7>qG07i&Q>6dS
z(Q4ttUxi#<9uolN*BPKFhXP1LE~tU0pTFHo-vDf%9PI=r)<i)PgKUG>mG1Y&Ilg~)
zx26Obsc8HRS|o`Mij~uflUq>mGLZwGa$&fdc}Oc~ZNar=zklJ%g~-;ic+#f<2G2ie
zB*KR5#F%Me`<WDEuDhkcc~;{_-IQ`!pw)gnS{4(4CWX_WaVSA}P65VlTQ_ZDmqIPF
zXZP-*BVr3L9M9gm&VDQMN^fUpXS?14*aUU}$qtxW@KnCyz+pWbiP}u(2$~GvW)k$+
z8?ycGOITUdpC9h{C?ZeRvB6`|FpiK_QVJz~y$uVl8;-4CSTpRsQL+HgMA0ivA#!`*
zIbq<1jV5A&u&-m-C(&0E^UU0Sz6s0)R#d}YfrX{;ZpEgIsw<H1^a9Tht08n1F<^qT
z6Co-9LL$?Gy9F_eVmV?;WP%kC{U+e-lQV?LP!RfzE_bOed|BB)p0-ADt)b_y#7W&#
z;aYwC#0fYF27=gb`Sf++MYVKyh7>%&qEC<;jLwe;>?`+rVgK{4tfDGlpEy(DZ9;xN
zd|BO0vzwQfG}#eH8&b%Ddm`Z!TZ9ByESNAPFT{Sy2=-K9nakUQ_Wk~CM`yNGi_RzS
z!rn=&aP&0>jWN~GG6$1`4l_*v7klvLPyh#^_EO%+;^^CnRbGuE^ADB>4JdF4w9L)H
z5mXop&@UWO2rjQ@XxK;8kk@P2bkMD1J$ktGHTC1dSFO^xOekAWBC!c2sLVWCm-EX3
zP$Y8JSD$Y+pn;0CtPmAaVJu{Rx`6$cIOX3#R=1rv4AIaW`+M2m@KFe5$-<7;UQRXH
zLGx!Ap5|7`KVNa_Ps|D4uMVf{-nVCLHXz{gMI#Nbv0ja5kz04N#yoJ!u<Cs)Q$JPj
z_t$#r)0HhcGgMy)K0`jv&=fdQM1KZ+MZ8Bp7qvOIesglUd^3u1?to@-(%KFMv%}w=
zT!zf{WtvnDX$zBY^FbWHeGXajWhJHEQf+f^GABP0x7MsP|NTe&ckl`E9;E*GvH!jb
z{GUVFSdx~|Wl2w?+thn}!J_6v=9!@>WgKNTmjoAn>D?yP#XmaA#NJJ2Btn7LuQNL;
z5A5I1`<VEq<Hxb-DRwA9Qy^ZU1QCl=L?N*;dREqA?+w3SL&Fh!@?Hy(b@2kf+<xn?
zg}+YeeuCdc3I4nTxX`kFAW^A5^h}$uZE%!(qw;0@aAx7J)eP_*>tF|<>#Z26M4KY9
z`1j^1dA<Sa=;iQ5pyJ@>Eu1Lu4+t1EgQpqwhkreXb;L2$rhI)of}SU97XG?;r|Qau
zKOO>(vG7NO$N!k-)Nc8YRm#0-F^*oj#Ib1A^C9HSq8+uP%+vqj?f$>zjV~*``a`0~
z3Qe$lP&%Lv=*mnoZsC{m9=+e1q*KI*@=(0=Y6>SpIpLvEvlockqbr_}zmt=bRm{(=
z;BQD8GLA62Nj#(mS&7n}AD#CQJqMV)xP%g@sa5OQ?t;%%twi=K@$lPI@tJQMh%H8e
z=s36;T_AQ<%ukI8xCQd^PvN!Hhjy108(bGS((iyjjdM1D(3f!EDD2AIm;nV8mz1f-
zrYLC-mF0(h^Xaa4?bg4P27_yrtNs)%3;T-8v?l8!cm!j<|7ebw`FxtkPMrG2ucn@~
zp7bL2+D*^{c#pydX{BLHraF=%@6m^?3h5?06K(a*y!sq^dE8Aszut2|LF(KZkwq;)
zQ%XbH?&v%8;-|m+H4PS5?tMtVV&N+fIi%!4DMS7F?`8JCbI0kwo0+lg`2PLtK9_}M
z3B%4mkzKjMsOccwgo%R;R6J$KYVs@LWLWL8?LZ|;JmiSPsT4lDY3Pqm1UXD2No>3D
z^D1QZ8grVD*9bKakRv~1jwm*2-(95y0lXxg>^Q7><a0Yrxgpa)AI=nLydc08vaer%
z@BE!)IbJ#K{f;pM{p}rGR-8S^kS`-SrJCdI_Gp|<M8-yx6W+NCG3<jqiQs4gf;e1H
z3}hWK#3F8TdkEb|JZJSF9=MGpl2Zy6JeAlK@JNe9h6L_J8c@%{X&)$KanTVIuD>sX
zCe(yPT(}RxMu-DFOj7kQg2MZULz_U_^YELOAkjq=yHR{G>4S%T$o&To_8<r#^}K}k
z#pw6rD)B88`K*O^yi31ILtGW$hVsiphQ6r9in`EcPkazKbg2gj(BeJ3kw2=xLJAx?
z-Dkg$aW311BOwX$m3XvisdZYzV<)T&z9e?{?bK`MKK=8uw{g-ZuZAHd@a-VlwIi&w
zv=@7A@I85c^nFSLIu*BFc!F0gMHY$O!DQc|Y}8@Y?n1GN4r4ScRlq#Y%g>LgTeeXS
zY6O`Vhc6;3Z7|<WL$d)EjKsSz2=*=8@b8--69MQPj$8NFdUDdPyp4>pu*ZClxVR=o
zo8bYFva>8gYu^-(Xx4DYM1TJF?r`~I+!tv)aPM&&xSvW-k31xGBWlkz<_xR=A6@6B
zYO+XNb9^{A;V`d=B;~L5pLaqX^E(l#q`_zW2#<&^$7<OwMU3u9hbIf{X3WF7I;yy1
zj1WHg+!C%4PHzlmBe4Ci?aFKhzgrX_u9-F6G|1~zn02;!@OrYP+&w?zwYLPlM3QX1
z-1szu(R)btz|ir$7n>W#84pgKaHlzaDK%22NBCDAec=&Yq{O;oNa0}tWz1!rg`#F1
z^Wk@u!|-$Sy!{e&*!)z?{GQ|(7`}euZMpS%-PY48vB+{FkQ{oCj)As4D|bJ_Q$O(Q
zufy31QsHUWX#DFk50vhpq2ZN{&}d>5@7nT0Y;*TUvRu?0{URsp0FT`8W&^fKxX}_o
z5Yb4nr6{a+qZg&hp;ydr(wx9UyN#m1unV<%OxE#*)a1(Mg$$k`q8!}l@F7=Ee6@(Q
z2hFObr0Riz!A<Pbg??5rh#{nWL0Vh`>0t~?{T`4Rr0If#C<syEuKC`uP$J0w@$Tfk
z04#XY^My*pyP$)@fmsB(M+acufaLn?*E7Vspcf40>eZ_S(c!gv8i;-p@U0fDh0IGf
zp5#^uXgeYN9Z^GejzOhH{Cz1T`RySRhWoR`4w9H_yR#mg?&Kl22S4E}c&sDx&<Y(4
z?3IUyM;hAJN@9x$NW&{^0@~mn!sbETL2`6L?m>~GfaI1m29X+f`|aOvM01dKRkPk!
zv@`qo_?+z%#2qW=TRfj6t~oE<QJQyr|Hadw|4ByZ&0!7a%NUdnFwsyhV_CSXAJ*X?
zaJz{~EH|W8B+emv=$=eoc!A?trL>cu5k=sWz7G%O0%-~a0P{I~u{;{uEWIg%bc+Lv
zBQ4@1iGa{UVZpCg`|fqKb^AKV2vkh=EPmj8EXPN`Cr@6%vHcivr~?`Urxu|RB^{j*
z;;n(+iM|aEzwSX8mG{qQymJgz75w}DePWaeoY*cH;Fd1-1oW$!HZx?^!MTJu9ut)z
zEa#JdjxK!O#>>1iLmH&$C4x#aF$A|D46@hGSOi#I0Po~$8fDE|^1%oXRo&d`#hQfw
ztiAM*@2-{Wst5uyKQTWS0C~|HatI<u9&mpf92|yHHXJHzuJbQKfpY#5;aK?Cl-<8X
zKi+u_RGb(A)~A}i6$9-lmrLFNd=C$9HEGKwZM>iNg&#P&@N4h9^kjy%Zr$q3W61_Y
zXmwwdO5#~Gk2*sh0>tiR?;2{{!K)28B8AV#ffOJV?`;U4<z;1MduwHcnt}k>^?0iq
zmBA+!&3PPDwj>BjLK0I}tY?<BwY9bQ`>`p*17xu4u^J{D6%jm^(|%+Eumak5tvQ2{
zKFq4Y4FAFMdtXVob|x<y1jOux2udhAfG>M3BC%+uNVh*RlqAA;O=G~91Uv!ga{m48
zv2wJjlOvpbBNX++ilL#O(BK$`ORp#wL!>m)bqK9T7eW-^q@zgAqwt&v;SGJ$=5E>F
zH${(EdUM8ut2c4@63%dp*mNon*TI-?7LLF2sOdr64~O{)>IPO;Uj7}G&;{kuy6zR3
z2Y@IANy~U@3_u9tQ-dTuar=JjYv|0O1P#?P+&|2`#4W^h`K}8+&;StKj(L^5;&NeT
z>Zdz07EqRvUO^n^&@24C-(e{Z?AOpe^`Pl5o{003rwsr-DvQCcfbQxiX<{DEYV(~|
zdWtMKOq~cU;7>24%(bTKbGa!-O^q#OITdVg-L_Zw&M)NUzppWLm{)2DRF3TZ`}c!2
za1{B2MSKe?DX+);cH@mRXPoF>FXR~?P8J~WAuoZ?#BN{+DV3|$jB#+b+ztKxUNo(3
z+ERBXz&F%DGxio98g~*^lG(|=y>7SoCfPZZWrLuVBD)s@XX{_35{quIG(&EjJk~&+
ze%ng|W@fb=I+k2dxO!sCK+W-Fm3)F#mo6YdA5IogTzY|Xg+kRPO(Cr;mg&T@9RwPM
z1NQwEX|VN)T)FrOckgnl3fj(1cIiw4V!V~E4iAMwQ>2e{uNSUDqVyfd$8>|b{qZk+
ze7dQQ2fo*hDi^=*ON5bh*jL3f!&bpE9p_m5i>FVoo<tf%{n;ppJBpT;*|(o%C(_rh
zS|w0`Xp_XgW#QjfG9vInF@4j!#9suStx#;l+rs2ciIxmtBR|X5A+AAjB~*amb}O9>
zyD0n#o3fk#{u#}d4Td_CI2F;S1<UwCQ{=EwD;HzP-3Oejnjw-Z;VpsL3Baw$xFV8<
z!k9hRwi$|2p5qIT#PQWtsk`XyOv8|x$jJ<Bc4BVm_58VV$N=E$gRr#0%%v*ZenLqC
zUHg|CwK6{Z4I=a&Wa`M;Jvayla~pnvfJS4;)P&csUlXr8h(s@kH{qK`0H3c5-}n16
zX|~@~io2^w!HJ(aJFbd6F0`_bxP+pUKH=84Py6$lh?xgzM5yRV*z>!dMJmbY&1uca
zee|dr;XTmQK+Xrq$GpNeL&OfRCL($!UQAFf^YNTm_$*vx-PU#VX=w2pL&4FF+bL^g
z6pg63Qz{Lnqxmw6;3mz{u4l^ziTT}`-i2hwkqt-D!g`}2h411`{#Wp*<C&=S1~#!s
z6cF9$;sfVkmEHshdWLrW!go;f#ED>!NWuuR1R|Oq`8)rl46R}XNjHhJOC?}{7?1RY
zU!f_%EwTa#Mr6!IU8FY!9arYC*5F2cwPVK)g%^wK^41cp8mKRX3XsxQKq&$XNuz%N
z9mmy5aVJlp>QJ`Ft&tj7xH5@@WUYg{inm4VQ7+?L_}o{ku}BG?9RK6i;mGbq^htI(
zJ_9T0tuk>q2$WuUwFDiOJpAxJ@Wx>3$z%S7g+(KeH@}1L+VlD$E1bEIv=c#5WcSvE
z-;-U1x1)?g$=8e6T?M6bB`jDldZR8pdhtCvR>lW<0MH<UL@I6#t~CrNDJ%i2h?6qN
zisY$D$i1Rgb_L!7!%0e!2Unr-I}fLE-B%|T6VlI0lvaOnhfFlH6lB-~(nNQ)vdQCD
zR~Q};#|sEVRMM>m`7I)Wo)T|Kd-!~<*e$&9RS&veR~39^i-e_uFgJvH#2FU#PQ%0`
zmT0h=9Oh@QQ_{;P<;$S4tt3rnKx<2$EL=wI-w11H*^TP%3`_tdWJWh4I?;IP>U&~F
z2`F{<m<rbUmQ9-iaa@ihLW*z(uwNyLpS}Rc#rJrC_t38jzn<5A4f_L815U@Ds${a)
zZ7iI^F2ahSRT{FcXkrrw5e1`|ZHmndVA)H^apvzXER`#349Z$>ppi$Y09gxnaxuJ7
zicBGTBYtKCX1C?rzh4g1uhKx?8D<`W`Lnp>BDj5?l)XT<i!jPUJJkX%W!m1bY3Nuz
zO~g<|KXE}i$IKV*+K)ntsI>zh%HaUppO1)t7%Ij-d>kd{#S7;6Vmw!jg4`~J9)-&|
zYQ&GPg6He;cmsx0se@)XCv{Q*lhci(E$cvh2HNYK*(2*A5hY`O@`{>}4DRfiDe7AI
zuwOal%ZzcI#BLjAzlzFMkS{RqyW+@!Aun)o8jIWS$=EKGHR%e1lcQ&5Oc&I|b73HG
zI(0qf3boHZf7@38;5cqyem+SfAbkNOj>n)>zkrr*bm5gAVimDGhXP3!NAsl0xpU{j
zy67Q#a)*^%2pTumA=Eki`pm|kFP}jKB+pxAq@^oRr{wOpAm+fht11*+v+TEZUHoe6
zm|^Gf@Mgipr!{+bW9$vGK(UELNdDnU0Zm+D-1hyyFK&B^GNtw4+7q~n{T``M;+8^w
z`U>RN{f7^qojvEfYyFxEWWfjF^gyJ#2*#H{s79`QdkPQ#4k5Ip%3;oE4u~UyIC%7u
z7G9mZLNMdOe&S1x!GE83;KZKhZi^$7tbkUIQn@0o5uMY7>5!gUh<|sVa|$Vw;Td=i
zyQmx!T3NqUudWaoNcqfLf^^`qtlkSm{7}?~lpx44LXlMvGj92}uzLh96B{%lb>;KE
z{82522c$<&Y!I44wl|B5a|I%gI7S1+ABD0+?oPG>wRyAv`kDlGPsUvw9Fkbvsgt%S
zH_=*G0|M-7w6&$MKcN!Qk4Nl<i8vXI%)tg`DEWv965<|57;?d?v_&jiq6n#q73u#5
zp_f`2n?GLV>f$0;AU-?lLHD}y4CoGiuVpZDs{(Ni1~&rpUQ|dI9c*a?(G>tA@*;l`
zMaX=JNfOkIpxi=1ct{Bctkr-!-|-WClW!Mp*%dACA0H80G~$_QX}`&{VZ|x@EvGfx
zbHPCleMlB~D1E3yJNrnhA#Q7d;Ygo;Ibbxv$zK|OE^L2^Tk+c4y6+3E<KgE=XFa-W
z3Qa*u;LF}5KF_33BIbf<r|h>xl~4gbC=paUnPp+`vXHzx`r|l(wZV9&SUmJ3#8<sg
z%gd1S9V`Ok8<E)Z91j~Nj_|ZQPu=`A^bPRDGvWwKJd)tAP>DR8oT}Nmxe>Tl!r(&=
zCXd`f;^88^_h%f(#|F$UJn%6cF^WhojS~GJ3RNC}0TbQp+Edu)7}4j2E~3Reo2J$i
zIT<W2YIxDjB8LYuf8^M59&2zZg6KbqKmU&NA67w;Bu|j2!+uSJ;_2l@X5{JN!0)K$
z+q0(}k)<llLVqL?c?-<G>mM&<@+8%uw0Z@>Zr5+Rd!RP<1U6Us^=IlKa4d*Fj|<p>
z+!~0&b0MuhNJU`bdQF~TA+8{ylOB3-|Gq9(3nLsoCZW5{JzJ%WxeCu~y@H6v3fu|3
zfnoip90e(~9_k5FRuJ1-G$eV4VOts!B^u<@&QKZgqtWd80!m4<QSj4D8GtUCF+!$c
ze9&ck`%Fwd1H!n4g{4SiF)6r0n}x%fd}BCZIs_~x0C(L`sxEwIn(z((!p}%25rFmH
z+RsC&0k~f(8y6lH&9W6F(*#lp8E?s~(o>Fw_j0`QaqHr1u3YktYz6rp0y90YF)*0$
zU*<y7#~tF=$w5XXUWBJ6-PMIpmXJk$+yJ?jdv6w!Euut0Efzw=Wu$W(+V>m(lEyBL
zJ9!U2oq%J>yi1~#6KcG559*Pn|763p3LnN>*FmF(9G621+lb0^(k&*-wQ>^1aYz~0
z#LoZ+{tu$;U4SE(wg36I%7Cb2{$Rj>RO(Od1&PfWsC9IX2nh)}K3(`*$Ju3q9}zHB
z2!zV~53BaUeyMjWtZ!n_il-%(g=_xfUq07|&OZa_Hfp@+xR+NMgy9VfBYZM;<9W=(
zhYyK(SK;r4?1SdmXOumpg}DE1-zpgM02L&Hy?=SZ&MT^dXbJBIK~s%F-2!>yihmZ=
zJ3eWJA^3=V-M2Qm7smfQ&~}4qfxIHN?H|Cw6ImD+7ne%e;-mZU$C3sz@s9e_3g&R(
zkN-28PTABW5pE%9@8C%bmqpe&TmPHvp`odDMLB_!BkbL~(#O$zz7H;2IGJc_*Zs5V
z9A%W_?oOc2ehOtrypAhXYBvTn9pij7h)f2sZvym>@EwySz8!ro*zU-e6WISr?)PAS
z52p3;v!Iy+Vnk1lCi4mz(kKj*f&5AqbWg(YA`)ExO(<`O<KWnr%@;`E{g*rWnZm~i
z2;wbdc&NL1aIWIR_=Hkb*#UkK4HrS)NzW)0j%cY#{MXVfvK5vX7m-D9=t2|>VT61V
z3_yJmz{tcD7+=j!x6D@~zmHnEV(T69`Pi%Z1j?v^CYMu+*nOt%rE$E0vVFAhK*_J!
zoKOW_06p*wvB;)VTqcY<Q1%3w<%IYujMVDY2@`3YWu$$Z{13!@iW5myg^XV+8v*rh
z=m!K-Nb;&vcatBGmT@RwZt4a=txqWGP!+VpA|Ipg-q$z|?P51lQ+epi|6sum34JX#
zJ9-JQ>n=bX{V2YOGyRFX^p3$;D$&T*d9hH_9e%!>e=&#O!=3o`k@(+Yu1^k{LeP^~
z18HS}_MbFMJb%@0uX<lSJO5<e-|B<5p@kOWRF3h==DkU};pvPu8_XHJrW!)tPifB&
zOFUfC%8mmzIW+VuZ&zn$I985PVgV$W1(uU$Wmia|i{wRm%5)-r3C$4O4fBLgeK~&$
zyPT!!1aMk8x_&wQc?(<5+}(JIP?pY><|}FV<-8lUqmXs$*g)w7BdAQ<RAt2SH~&(Q
zl7iz~vo*041emCN-46wkK8)--M=-hV!@nN~q%Q|u{U@a4kmle>8iPvvS$hBRix-~~
zNfHM7?tw6ZvIU1fW)!;r+X54{MjIpy3igl*N(d)}P$6Cq0K5t5LEO{HS_e!({KYDZ
z(x7xB(^a6N`S-e8kwWIxV%Qd(tS=E?L=K3AK+Y2T;f^HCtxJWwOenach))Zf7nN+@
z)^(iF4#7=dhx9rTE9%b|$JalF*bjc{Wdx=~KKHb7u}s~ooOCx?5(h8VTO@WyA7m`a
zq*Czr=li@5XG;{m|85SBFTE9ubzy1jQJ{!Vo@^v~AqYT*yL1;mfBSCbe=UZ8U0-gD
zW-77C@0$sZ3H#k@WC@&7IK_4Rk!ggX&8&QqDIwNyv4FPzf6vpgN2ot3-O5Q+4A|4h
zM`=$g)8@^WuFhfxYbcz|C_z9G5vn5o1IM@`b+-nsX>k9C29iQVK4c^tG{kQq2P!b!
zj4@Z_=oZdW|BN<)$bZL55cqso)gxw*$$iAMA+CwVs`09KS4n{JznoauIQEzaqGJQS
z61r%N64Tor^A!F>3*3LgUdTBB?)1A{E>^-G1A27Sdc&c1*S|l17+bv8If8zz2r(S3
z|LHC8RD3$XLMAtm?lWHGzW*bT2#H+qg^eo1+yF(dd&8*t%D;bIv_UlS?uFH3za<9E
z?JGcin((h75BU6ezrHt_k%H52{>7`ibQx%B@`ag~^22}VXKUbg#^BRNi90z3SqZgN
zhk~gw4d4rDV23?9ibdq0Cr_VN{pa|mf>{(Y3(t(L39&vD2_*7PP2DDsMJ+%9j2UlK
zlOez83a<n-HKJpH3$DgsiOAK9tLE;5>#Le!%8z>N9AdyhO<-e6VZvl&&*pT>C`@kk
zhugC8L=^7h#2cEgOCQ;nn!n$8#>(og2vgmOl^Z{??|AZV{mR|FKF^oXI&8c`bL`L4
zPiRkWJht)CtJby7ug*y>yZkBhjP;I<%a=RsT)Ax7(yMD$Z9KDbmGYVGchW93Su~5=
zUh?32f7wdWqN-=kHaa4@&%EYRNoq;h+v19`s9rOy*)-R?%QI+ctE#F@iVoI%fjoCJ
z43(XLE*n-O-xD(dj*|;1TAO0ll>B8yMfy0ZoX^qd&1nJQCb)06115GQhU<Fz`dY9V
z!3>o*APtHWsRg*~_T{UrYob)?r6{mJhSw5PQw{XJ3}Uv{I~1t5>I2v6O+y%%yKnz<
znDX#<Q)9rZl+~u|HRz?NujsbLdsx+8eb^Xh{9B@9?sj)shUQEgy;%WJh&__esGBb#
zaQl)$e4}To_8<^fFJMDayU%>MgUFc!%^3h`V$^CpOpO}mckwQ?w5Vn@X9}`rq<J+n
zkKzp7>@ZoN8JL-wDceN-_#pw&)n$3lFcLmACdNHKKdUPn=%kCoT$h7eczAd%pkuA?
zU!Pu-m#@+jCvUbRpPIsSZ^eb3f4-k{|MNnfEaRIuonW~71%iXsvA#xKpl4hkJb2*b
zbhyLw(pfcX1|(~Q-;iUTA7-0>x~6zJHT(IHOUKcwjvmMzY1DUpwGOX=9yoqulerWY
zlkS98e4T-j4eXv$&6tf7suWZc(~Zgf*gjj&JOtkf|J2suAdmBVtdFS|0fDXgKKZCY
z&(AQa?uV5W#XLom`r7w+?MvIAd8r@bQXLgnQqvn*+moqZRm67Ovbv<M&H{n3g&*qy
z42f#|iOT$t$ZvqL^gSJCYlj1bKOFF`VSav&3;tsnhi6ACM%L@;>*<*un}q3tV&Q((
z1Z;O}pxli9n^WEc!J?-<zjq0Z>}vQ9V)oH<CD=WON#{w!w59FUz4eb-MKcUv6YI;Z
zU_5NY3cfag8P<C1Z@I@}8;$uU2X4ALvRGTDn<v_kF}q{p$pQNjzm_k5Y&iNPJa0Uq
z;=D6n5dX>!4hs>>`!~=yR+Cvc!-+9=QI*#d2-QjltidR(;FX^U(1mu8t$1&nK9r<z
zfZ+fvquDD*)4gnIGkYJBY9jMD$>)Ci1^)fpVD74C+qOBtDPZRNE)&fB32JLtIX`YZ
zzZHG!PI$2ECl1~j|KTHKtYMHfJH9*=Du5&<jOCJ)9Ie+Y=zcHLaGtHYPVbrh#y)!f
z{HnFV2`0?;I<=17%AIeE@96d9hek!Y5?JlSno=20hqT(0KVTd$U^USAtIXYgi=vvz
z$(ioc;*T+O<OnE-kC5Pso>kXyUN1UYdKlvv*Ob?wZH5JKh6|F<EkVeO>y5f^tao8K
ze>57GfAibm{1!7~{vQrckDZngzGc3)Us=6(ze+;Qi3+WcX=!rLmPqW{Gw9Bm?$g`b
zn}XIL(#tCVGT8?<YCnL|48I?=+uPfF?gLps5)CV@rLUlkQ~;Xu6r3>Z>}}wu-B>JZ
zcaW#MNs(Hq1wC?1mc*uMLr``HB9H?Zl?BD9+XaWI3KL8S&P4?;t<Fl`^2t&b;T3}z
zh!Yt1Xmg?QZGq^{dco^h0KI39ge81lFY*N=A~q7s$abKq?y5$qoC8_&b1A5LcKQ{0
zr%{>0S1uO2TakrdK2~qw$su(*Un&a22oLusRJ1wmbaTQ@JA`U)tLCpy^k>znFt2Rq
zi@?_|2JgqJhta7`dSSLzRdv{1S0LZ%)oA_9x@Jt3;py$`bH2ES7D7*2&B=VlHmEaP
zv6`YQJIL#3u16Lv86*w7F2cWjFkUJbh_XsAwFGh8-?`;?!Nbk@8<;=Cy@aYVmN>iW
zH*O$zmW;^7Es$GE<&GUaH~kKLL7u+{4sH)#_PaLvzxXZ2c3Uj*%*tiG!wWz2sjoWm
zECXb|tecY)HmFs~UYfLIP&Qm}O?)Kx>}fI(?8E0p`V+8lOSzjd3;9>c{7i{bvXMH8
zDkw18cZp9*!DTG4GI)zReqNw2DE7+7yK>Jc&#)$bRVQcCQC)VpX|79ukdCmQZfMCN
zW)Y=gEr_Cb$5%*9$f>F_ksgGdQWX4JG7`1b)_)nbgP?IiIr5%_6?DWg64kY|`l&Ke
zgu!8F&6z;*59mL~L*v^xR3462NPaib@!Fd=Z+73(B$mfVv1Ku~=+2f``)Sf53=T2j
zygVr{?;_SUD)+1+j^o;RiT$?c=RzvIXv}?Gb2B#Q4sLm9mzj}8cc<ipnO5)oyhieo
z^Tv(Ev42eEq-rJcm>lH0V^)=xV%s@mG}1_u@XYa<0`xum+=P2W?~a14OmO-&omEF8
zaa#Vee0J%DeobtC??B^ie{88|eX}C_;zJi+i*0<jZK@v%9Bk&X*ye9kpiyP=#c4+{
z|C^H~yb*3b%DsDN@&i1nYx%#zg8ctsbCNZkP=pv~R)A82?<$qPk_emp(|8xuN(#2K
zeVXok$&LH>?Adb--Y$<(A0LJC;i(lHGTFy`Nww@rwbz{46{uiR&|i+p9%_I~;mY8X
z0@C;z06$vVVQ8GbpbPLCAhhB1mf7epbkuZ5cV}z=GH}~gwjhd($LG#*ZQk|b*6|mn
z`P|6aL}IDIX?xMKjFSpT^QcM4v`vFyvMV$T9ON7(Sr5kO@d0eyL`#dp+>F^_X81TY
zLT%rRQ}Pb#3^V#u;EI(BG5&r1k?&6!(1mRfUv$W%TxwS~5&?S6sq$wy8xZ$hH=jRz
z>?<|SC4`?2ThrZ3!gu3OkYpPnIc|uQL8;M>`4)CBFhR@&?X|gZiUd>6O6)&RU%zgn
zJw&p<Gu>*6ii(bUG>)c<p;;`#Cy+q|qWP|Fy05QK3uURl(#71h4Ewg@rk+**lcpb|
z7PP>$1oQ7SMkQ)2kQ^Ej;SAB0)wPrTipb)$b>hPiVoskpablNzr2smW+`wpir>zyn
z>Gky`!bamy@!1OTgALJWv9+HY2{<h;FHatX3C6LVgjb3d8aX-V|Cn7N{_EJx=v#5V
zn*neUwLCWc2TgwNa(cCm<oG5j4O;TsA%cI@pVVL!KaGR-8v5A6rW!iF?sRuSGnHrB
zTAKQ+kcPtd>4ImPOGZB!HUZSkTql|#c*}tz%qM(<6y|B<A0EsY@y!?{**MO{cOE=?
zS-^+0(b1`e9yM+YZu6x}jGux75K3;$a+p_Wn8z1$#bxJ$=Vl^L6OIT65WUhU4>CSK
z+~7{;d49hXUSD5N?hguBI>e?|%)p@d*x8{<b9tN}zDcnn?m>OM5{8nJK`t_XW*{Za
zyPqx!0P@GrdJd_$vUiz>$n<ZyXG<kS439pTh=_h{I<M&>|NH@n;Zu>CSz;LCm0mZC
zYdDKKgX{L?%aQ@C9m6eoMRiYP0+V(yfyFS7H$2o_lODc5oTp&APFXR)6%QzvjI?j<
z=OQaszA8!RAZ!$<MGR`&b{Mw1!}Mqe)N^#e7cBCQHxJrRqz^X@+9z+f^T%`!0h6{b
zwMdB9l(W&uX6C3_8?9xC*AFYWS*9<Zx?dq<R4=0c_Ij300W(Ek&WDE1?vGH&jn@=G
zkf)KQF?JW<9-cpAF0ymLfvZ|5!Cp9I=c%=iT38RKZQi4o^>8b{dyJT<NKBHDonFmh
z?Y?6tqeHdkW_#*}AKovJR{zsKG(-G&&r-;^UaA&r@3#>R!BQeE^oNm`u(Myo@LK_h
zXaXy#GLWEWSa>K+JXAGOO|Lh*M?^-tKq|3UY<{xjwB#2!e9%5qGnLZgSD^0nEdh8r
znc~#=6I-q(BzL^KZ08&vcQ)K~V6F-R%tSA`nhN7nUn@45ccIf;^L9`0A@NM;DX5tb
zh9a$2rlv%t%U4=E8z3I#^NFMLxxe=fh_PX$aJeW1R?9EE24*`;)SJLQwPO)Ic5?Fd
z^|hQh0E>I_oM(RA5a+o}g=8f1S6Mqp;&RU){`NPHB6wDlgmHB_wQJ*v{dqFO`oDPY
z^S^%7-1bbP$tP|i*I?{K;&@{XNsDP|kt}?Mh^h2FapobD3Qtlvg84c3q9!tPVH3}+
zn`T4V;B(-{`CST?_GIgz!p_E{Q$f-5s$nzI6y&esa8Ok%6+^d`a_JlmO}BmKcw$U8
z>FJewR>lRl7KI;}v+6fH2a$mr2IIvoqf2Z-(!>Pr<Xl(*jib>8q*4$$ZA5-#CnzXr
zo)QBB>L{5r88G?>P3cweq%KZQSKGyys%DdRBW+Qg`gQ54a-y)}NUq_`Z0X1MZ9ESL
zYo7-v);;9uZF5`E@(9L%o@rZXwlB;0ewCb($j2jo@9ANH+ovE5SdBeR<8t_?blHt`
zLu6vk3Ymv^uz{27jT)k+zR<O_B$I7gHyG(6!fN{#TbgFx-8qt4VgFakvH#cC*<!s>
z^`>&UIe-I6Lqo$zaL$a3jDg|ddl2t8gX;$o_E_#2HD-AVEHU0CP2m8D1UJrhw)V{F
z0cSGCv@Yq+kJ!`9cB5s(*?a8;NbEUvJ$Uc$rrCMv4-Joqk|h_k5-WrzUn6D_<{3%7
zO(y)rqK6{)V2#>lB2Mr1dru;Tgyi8B#&6G1IL-sqCGpdDofSqG&_j>mj3e-%%{&BJ
zZ77gk+ug;*Fr!MKfC@6n9skg<iY!f%fDd#*j+YCi;s_BnT|?S{%|z0KSnWIt!6vlh
z>y+TYSoq?|0ccnm2plpH3kNwj;6KUBRH;kHlL<#G$fA8vJ3ekKA#s*h>D~6?BV8{T
zL@W)!7+b|(;s^UqkT5M&%O=&zH?q-_(H2+0U(ht)f|(D)P#0O&A0ih<(;@XiRU3w1
z`Fsw2sx6O+DucjGA!2)Yc-k?|#0lAe$V58Xj>{ux$#0z5g>OJe?9>jD1)Q)WqgG|c
zsacl!1t0_xiWBwvF&*B}tu?>SOoBHm*EAopk90nJG_Gv@-ev^u36rJCDCp027T))>
z=CycjW^jI&1r~<O+a%kKoql%mq`XbmsQ$A~Au)v#n_U`*M`qX+D+KD+G5s`}9vB>O
z#&2Dsjp#`!d`xGP>_7aT?bKz@i7uxx{hE#{qwInhuX&}2sG{`#2BGGyBLf-9PF3cO
z4>pJwMyOkUeh}wi#7@aj<@Xymh_sz`Wv?zbS=aaTPLrf$#*yI%p}@ZIa<!(o>o$oE
zL*Gtc7q6xmoM<+r7yqfmJKwP8WMoKtuVPGbdVk-u*`s@IU#5@sb&HsGa9EM7Gv2_X
z6)<nC_cWr%C+*za;2L|&_QI6O=H$mpGP!)S`{s{~mS$ya5*4$2{N6PFrk%ZmgIKzO
zJoB%&^v-HBxsk?S9U|3#_NEJ%SXR&<+)FR5H{xJC)N@)#(#AbuCLrK6z1`(;EkhZ*
zIkWB~dkY`&-A?Eij~8i}wqae-Eu1gX(X&)fPmgrz(9)KbmTvU&>fa!8Xr0m>Z~))x
ze~tmj$OWIJQ7SeKZ}!r;$5)}radvVl46k~s>^0BiB3G|uW;TKOOWXD6yCymVE8+K5
z+P(CiU%l>Ie`LK}kj4U0%52H=O1vOlQiQV?7<K%$>)HyDKO!l@+Q?81$1|HO8~6}{
zvz6xO+RjIY&L-h6y3wHNF+tqz0nh}#PD+w?NhGg>Fn1G^*vxKrvEGcp`mngT{Sd)a
zeYXQF?*hU>0FEvVoG-~Jh|>VpD`QmY#|&4>N{1!JjsrkB)fCr(1bkXvQ89Oy*zhB+
zK_-|nu4NGxL`hN2nNy$BZZ+$B@M4yZ%nh%~9Z{}{;6_jOQ_O8`UIBg<F#Y}&zjDM>
z8;R^LXieyi3ybDIPs{1`r#^C08oz4DtAD~#<!qE;2?RzP&1!<QR8gOlcdt3_H}z$g
z7y-6p#XKG*E5r<b&#&JV5Sx@>d4gBwW5p#PHz+2I#^=aI>J-1&W+wNu@yEN*>x()!
zr~inP#w4*E->C=u2dY`&vX&t($(@KBqciUv(ietcGautss)N!<n<$fLX`w%IsYSNc
z&{P9yj23WUcPA%+RJ^QEr{Art^+in&f!3o34`#&6^rUd7oWIE)c`oi?&;M$#m8wDP
zNdr9UqGnA^O*U9DG`GC0t;DuuA{EN`92|4HGHEpi4n4TcXZPU%P{2^b&qDj8bwL%z
z79DC3yyE~w11GTvDR#h8??+PI@MD(j<&J_1S~-{$?X(0KT*Tj;dXd60jP&?4mq!n7
z$qmr{u|SOv-kAr-Bxg}phKCxPz2PR>&bRQ?5AjXP)ib;k5~^N3n|vbH5GkqvGB%w-
z;>*XYB-`Awx}g$~FLPB@k%OPb$Ggj8)7G`P@dbnR`hrhs`7yh0-MV4G-6vI=%i-XD
z6xQpNKV}I`3gMy!skuO4PH#^*GKki*Na?(X3aI{^A?U$Had|v~E1mhZlPqL1ijMdP
zHz%be17*Frh&UWN<bv=#&QmzB2AM1@Ed14!r`Mv1scvtaq-14vbq+K|BC&yPb-;a9
zXO`BWgQD&8(fI=rm51zG8_HYC$rG8HnmQjHX-BGBoEShl%r_y15*mLPs(DxwLR=j1
z3+?P%F{#RMV3$YUmm6Xu&x!p43R!gUJ5`()iF%btO}%^ATlwNpGBF6=lpXN1!Gf?N
z_W6cWfA#^X-L~tc^|f;WVxsJGb7AF>yvmvQQaOfK*2^;dTjAK@4$;@asU|4B8OUpY
zpduE)Tn~oBx2}MEIc;ZW7pWA>PLOsu`lyk&_M7D?4M1`a1T(YrxgR+MXgqh|?6pC+
zQaeD-?$Xq5a$Z2v^GM6>NQk2s^{mpZnxS*p9ZHs{7*=o!Ml{shu5U&S`s?Ec`;DmM
zXn%`tk7RyST?$;k8B@s#et!)(Fj+sjxH$U6#Kbc2Ii!x#LWf8!kgXhYcWN=2yusos
z^%#4lzj+b8TxdxD?-YyX{~M$$<%Knsg6Zn*1Q-C1oU>KcfOZA*EeVno4FgRH)@$mh
zZ-KW8BUY(R3z{NoI#tp)Y3+BwzMzH(MsbX=>AjWJbh18I1sjXt2T<5ExBSWxYIFQ!
zy%PbRFu`V<s$ru1OojODB{j%ohrz8R*DF#uVy%bUtiL}!-6lRiB2N7pn1RQM<7Xp~
zELYIfIa%}5S-DU~y-7++dgFKDfUw!Qt?fsIS`u5(KG8;C4%8k8iiP_kYhiA~*dGBC
zChxQ_8Rl=bq<p(t5g;K5wtitztsDyr+mnE7-+*l<l*8eHl=e3434;7SODp96sHV<%
zUpQpzoq#)h$Dd1Y=Omq$T*yDqvIo{R05Y2800S_aR*;$nQD<UpNv`n<7IRsRgO(?A
zv>RT4kMJ9tM0ZSbde%S?k4qwqrNjr@^WTb%g=vG7EgHwz<L?>M#2e5wm&Iz!?PT*i
z{-RvY!!P^>>u;dYiW-O@?TMAwJA*}7q|1d@WMR;J9;#s#JA3Rk4*=64yGO2AU5g&D
zy?-=hs~P#ClbeSqtI_mwrrDz^YqlYa&ipv{Xj;L0abxQdt#e65paxCtu*<u=D~3Ab
zD%0|n^b7oQoX)^l$A?!nDKam!{^y@M?frmw_-gHY2F?mBe51GNe`e^4c?Vgne~EHV
zPFcAwq^k=POm<t;h3ViM1h2Mkh%0%&bqC9`4A1w(Hm;2A4KTGEKOy7g09<zlSv&<T
zk`D34oadhJ59X~=ADHEoY8T2t^XIkn33WxCa}c^Cw|GL%mPbz7z$fw$^<Vf3Jqxb(
z%BdH~W%fAdvu}qDAV3d*j6%u)-pfl%pCD}xN=iCp19g}Oh6sjUbbt|vxrZH@x0MIP
z+wU9{-8SFu(^D{3gbQmmbq>0d=lB+!+dvY(nbWw_pLq9&-$3MLtvH5~)X8W&48r!c
z9gh!?v4?J%3vOK!KLNmVKtn7&4)f<j4{3v|S==~vU)~d1$Arwvs}Zpr3LI(Ek`l=I
zJaz@x#+B7NJ846a70fT1SXkvB^CY+OTEAJ$$uldK?7conm;xgTq0}hYcU%p#H4d|i
z(M>qS{87Ss{v64G;A1<Dl;p9?O?ZG=9J(_P$iOP2Bz3FbcPf*X;egILIZe%g@ZWbx
zB~xs!zqGU3&mC*H>#nQQnaruG7|YN@XGOS1%DlT8Z55TsY0<m1**17miBf&U8ly>F
zJMVgHydh7>5(%DK10LGj%{=`t3#+mf3$^rA$5U(AgC06Qi}TLYX7q253BEwjghy$Z
z+;pgB+}L4SRXHlXak}9vQ?vIr55op;p=Rry6F%g>QWTDZ#{AMzJg$jJj5uAQv#=X2
zLu2MA1LpI_4r0Rl`kHEguiI+hd0MDnPW?!$48@#Py8P&h5<j86id|&28)ABBO;^1p
zTF3llcXal)?HLz1*kU)3xU%QsHrX6P!!*)~L8-9~ZHR_RhH!Ew=yS>J3;+qQDzf;0
zYMndO(vo{nQ1A=7%6781!I;woI$!=Mu?O>2UO6hNBzH;9$lj`I9vb8D>!HI}K6Gsa
zp0Km93TCCB{Q2V2T3seZ-GF;5)-pU%jgB;!<<m!cWn=@6oBOPcpicDpWZQ|w8wDwS
zLgP=x%%5Hg4Q!@gccgXzNQ;TA#)5y!rWH3iCuT&jH*mKMNIGYR9*P?zin>|^$5wBJ
z7{v)9nUj)V5IWe9m<`H0F#VC|<b>Q0Uu}S&Z^W(Z#kDgHDQBmdkKzv2Vk7Kizcx2B
zNmx;xhU%J{T!;Ayhc0_^;yP<+THS~~pY<Q#Z5*+-%X`D&R!4;f2#e#&v^+St{Vbl{
zaga&<_JHXctanN7)eW^O8CgxrUF?9ljW8WD9vfDFDo|(Z;D^C~_5?5o5dfcnQ`k`v
zvlU8;jQUZ!kRTxC%7!_$-(hUOo$P^WX~F<STN1+pLS`V0&Eq55hk;uTP0HN4+Nud%
zh~8zsf-KT$`OLORI3$5{OU}&tn4yy?2m9Dl#G7PUNX^^L0;bh6fHdJ_;{#@S(OsYr
z=bOIY%%Y~;o2&=!i@pa=NZ7lfK0oB2wb!rcknpM*5FrIRO&!fGr~F=eybD$Za!&zH
zB$}ra9~GU>BfzEF;teic8-`Ib?CeKi>MN8k&et{1lNc>nEjEA?;Y@f$ga>jKF8948
z!XGOZN=C`A4a-L<Ne+D5JPaKdX}n>jkT38&Ch2HbXZok!{H|7+irAotqK{~llwMD6
zx8_?s&I^QpkbBk;>=Pj!;gefA{sRGFw?pPfX=PO~_eSXQ|0^mfCNz|&V>;|Lpp34I
z#P-sUKzmQN)Gq%mEtADo!j%{589btl3(#P?1umz@Nv#tNfL>ubSXW&)(oXG=pDVbR
z=jU|dr!&W*jI-fi$hh;A%gqzne!xrI;BnrV^`sdlB?8t%t?S3?n!Ii|>&nEw92pR9
z8Me|D@itF9Vhsw!op7VYhud9r8pv`WK+9<si_5zds>hy3q=$?TP{00Cjr{tMu0Jt+
zrvM<0hiY_8%wFo6VgmNRmxRz9pa@Kmq&uJE@|ga^7)la|Xso^f$u;W-yjG9-P<k4D
zgR5QgypyjZj+!78VH4ocWW$l0AE9}uhHO(c!~y}Vdcs82HvyL3U_W%v8aBGv)6kzh
z-hAO`?1|Zn^(If<lf=3@MSeaF(UMYpac>Y>0*0g3x6}~mi;|unG1DQtpC~OPQPb>F
zsIhw<Q4#Tex>282?p06=+XICk_`<0U6F#DMEH&J>fngdDAc9%yRT*AXRD8yankzMv
zfa?g?3F%pa0$hHBSaVzfa8mGaI&)sQCrD@dOheW~@3Yt$d{}RJ=%)4{f$_-v%m~x0
zUkk!{bM%x@e^=-mx3ggT8>%+AdYPU}3Q;Ptv3faJAI|eKaEDATCHnA+`8N8juT}NP
zgTJF&M<x!4QPAtxJIK3&)uUu#@<AT5@8|l-C~>$5iyLfpq_ekJ(M3z|4mC2}LkPD-
zzTU<42)fy%s&O{)mKOYOKG_|bs?cN}!b}m}5x?1l1Gtnyyqgp|dk-r1I1n5<(^3_F
z1#-P-wW9bmkh2A$Mz5&>tn||!6EI{l;grzHdZ$nz*ZQ-PMDR;1U)9sG0c15L$}6t6
zuCV6q(K8!@OF}?IJOTo#N#hN{oq3=Z>8QtWu`z!o-3jez{><a7mqe(Egy@UFzv7Zm
zZgzR2Osv$KmYKH`3>?mS;C-9=h0)Nmi=1zr_RXWcz3R^e>dYNT#piKem>advUNuti
zM$DGQVIS9DLu7Gbn;UwV8bH=U2J5pTop#Sl=O4km;gsYTEXJDd@Dg*iur7c1zR0eO
z^kS<fc}90mb(8g(s5eXt2+l^Wo|B@&!yhB#>#)y6i{xV!rp{i$o^G)TmA^+f4#`!c
zNJ(z|3B0aGZyJ5iUEbglS%7?Bj~_4{j1k3TD}U8FjI0%D)MRAvkeLty(FPLrgrp=h
z5P*x9E>-+6L<44OF3wlW)Rq?OcGsxtQh#$C4hp~3Xhf<M(T{uA?xW@Qh)7b{=j_j?
zLX#}AhiCTrr879O{Ca<MWr*M!E~-$k0p=+xMmFI1qLNy!K4dX1AbJ=?6uLLOhptBR
zJKV4B(r|vl>K5XeNK`VZ9YobsH4daQz^ovb+3XzkjMsNhZobWvd=z}k-BINMm%PsD
zhEOa*tE!F=qoTwjMAXHvih5jzUnn>_nx8PVKKrkqm6Ut|ip~T!?YBQGEyH(Y@@hLW
z=r*EmRUz-jseXMuiFHP)qHOEwrUTu4A_~-BQ!|e<VI{On_%Pq{#G8?3K&BCONqF<T
zuTOWH8De;*f<hnv#9X}|>Uk-E@}_pUdGVj^LjEGlfqZ`^fBksTWH^P^^tT*Qm&H~z
z93!ftnijOWR2!s2;>v|Ury1S9?Z%6zNF~?D1cV?b;gHg$M#DsT-;$4h<J2$$!l6*j
za8m7yeshM6Yf^6ZM&}YWbv2eFAzMvJ_I-P$HTNA@DO@$WTZ=tLL2IgD-2k}q!bCz?
zALH^k9)n<BpvdJRMMM&60ifJ_73fdz;}S{YgRtb1-U-KI<hm-EFVSLj%6KgTZnJi}
z7mp$raHQfyJeHA+t3Q?nGkXME7pG6#)@;>XXPw><%fV+xrfFbzftAi)^9iXA$3te*
zGtsjtChfwp<pX(Y>bCu&AzN?%^F7h)cmZIO>E>)87tb;vU`rKJLX49k;<{4~+NAI=
z8n;67wF>~36b^Y)=rpZ*NiquI_;wP+Jjn5&oMCMO(Td;ny;oQa%9*w{`>*GFY9qcI
zRCb}+ysFLqhaOoh1*cV_Th-U2=<qvgV`^G<lAiN|=-6dyEW=8%GFXgeXj0{#%n`~g
z3(dlpNX`@D#L=NY+FuI1d0)(|RIZoaxvf)39OyI{|7aet=9Ma7o*6bSp1^673Z9z+
zSBQNRD(bMH_=!nxe069<WqN;p{^zqS&y*?i{ff_?jWb_zjwSVq=(3EUPtfy~-i*81
zV~Nrt`4@Kw=xRUx=^|tM_)DZr0eWXBBNh#TZ=Dz%eZDJ9TvgOQm!zrEtmf?;y|3CH
znu_Gf+WknJv@w%TW<0qk`OHrCu<-Ew`+r9@p=;5r#qF(fFoVZ^`{E+2egq%C#*!#e
zalDy!m~_iItE1jQy6f#x`u-HFHpuY5^=VZwzX+;^;EP|i^kS(S;a<G2$7*yRxQm04
zy{N9<bS<6e5eLA8-PH(7FD3iHx4iPc5MVhbLN}o52`ielSf0b-AB+^-U4I}@Y?r^e
z9BI%Y$9~3?ZhzqMBK0dy<J=FmPQ|`78&S8fHyw_4P3Dj~d)aV~SvtR9$3x~#sOE02
zWfa^UGfrf?M1=HJ-a;IiI8U`eqAWQy%U?rW;b=QcB(4NJLM`n^j&w4m@*?z1$jn{$
z+Vx1A0Ncq~FY@EbV~c0{4g`H-wr>4v7{)W%=#be)_<8c}V$p8b4LKx9IS9vmxHt4o
z8_E8Nd|;3<on4DkOc{^0B=6RR+hN`L{08Qxy!^_dio$Li&<Rq}liI2cSgSLUZINWr
z)A04Ja{I!4EyskJ!Ala>g*eOyq`-E(9RQpw6bc6*5jIHgPl`qDolAR~nU>sffFa&#
zjh7E7R%{~K8l4oQ*m)`eb>+Z+Gs*u)DhkcH38Dn~0D+0pMuoY>5uk~jAT%uO5t8M!
zE3-+0nP+3qznboe&i$K1s*Me5r8giy_%naCK`z%pmN`MPu-Jw%Kkr!@v*Tr8kg}Ia
zjll01j`xAOg$R6_-2-s^zR9hrto(wdSZgp%P0hKG@U6LMuYnIyN$#oj1FZ5kGM+)}
zb)uMbY%zxvY(Ak;-cx%!-5K#e2Z5B1kZ@W7cH@sAx0Qr)N$Vktr4#x$b0I5cBzb|K
zo0oZ}VCMRIRWmF9t~pp)=O879=P(f=KZ@XX1ptQLUvi<p&}r*CZMUPd7PitkL@)&W
zl@tb0LEhiP^s0fDT+G<mSgOzi{EHZ7@md3=9<iUn{7xoOF^@b+3dhMvpXh59u{R30
zXjrYY6~2bxX98V(4$&MzP2_^qi68#R!Gzo-RUDEOCK&w?_0YcY7Kiy-y@;r`w7zI(
zoRpqv=DtsJYK}4L^P^+v!7spV(9)x))!raBdn;#js33u9s5I&R=Y)ba&DvYZJncVd
zyNjJ24v#Dd`nMkTE$@y7k8GYsk|mo&RWJxM0rMjckJZ*m49fuVNvhY2IK)zczI#@3
zJKKHrqq(nLm$<}=K%|6|Oj6PoqD+31gTe8`K2`7zXAr$@{&AWO)q`yZkLDvMrvt@@
zKPOu+sh9e&M&j*}P9Lye#JMk4r^r{K;ex;L!DL(9gU&=ZTomq+00@9_y1MnjO1qjK
z3i#U-c^qM;UC*c9B2sSz@y$4k-N6yy)<4bDCU=ogJt;5_(L%n&f3<2TE3H9bhhI_7
z^BXU>(bB>K#2Pe5#uqxTQxpyp9MLF+;6%dc<(2(t0~tN)<YWzcsJ-ko8(+RKO`0&o
zzy6((@x}Rk^WQc&+)SKB^0O6h#A2zWS8TlUT^PdM-iiJMCns1i9Ox_wU;`!m7{}s1
zOs!)^kxN9#Xt8%9I%6WJ?((<NAiOiCNW?M-T$5atOp_LXKHY5a;J6<!-sFr9F((py
zQuR4Gffmoa*+<;j2!>BfYl73C&QO#_{kbE(<M{)yI%5zrQj?S<crafQ8vQhg*bA=%
zvHktMTXpp4d)SyXo;>D;mDo6lfdkoxr+>tgH!DN`Yb~y)O{8V=Ji!M}s&-wvAW8@K
zira*1qy9TSxE<Tn9i29Y)ww7{*u)_UXk(lE#&*q_FUbj61ApeQtMM05zp9ajn1YmQ
zLGlFy3ssQinQGHmh?$W|!KIG{w)&Qr&DGx?n?h6|bPA{$z9gW@1T!IJqX~>_zQBT6
zB%v6|<tZ5%83MT4PXISGwA}H9>^;13qk$cuU-$T8VIJVRG31v?6`%PldvDHOKqN}Y
zqawx*PBe<*GO0Rv_$xCJp&;Hs3Ayr2yZD?|^eonbPmLJnKO7qnn4DX2?9!oiCsAdv
zklD4QV6hQRLa9bnT*(ZPTg)7`_9hNtS!APgxDBVYGr90ZMBaA5EWjBE>TcA2sTusc
zlQC1~S5=HX9XSM}lIr)s`+^1PJ^dGe3I%|2Da<FP%Qn<C*Bn#L?GM4xNv0SNM`+IO
zA;PO#)G*h;9+tsds+K$e(l3ESKd{cOw5-NR)$Ifei-*63ff2P&g4!TNQ2E5v>f)E1
z`+9rZNCV4>4Wfc*lc0)INvI=q0vI7+K!Eo;^z4uW{Oq-AcaXy(CE7C&E7AVgVWtXl
zbFtNuL;IF?Q#R4;4kQ5lBPR}a3S<Y{C)?TPeWq;yn-z%-5HxTTtrQ+q9M%}Yol|oW
zDuU~B!6@&deG1S#BySpD$aIzzX;O&k5VXGiZeLT`4;Vq;gsCB|7{CVE)kV=Upp^5l
zip<=z0H~=%4gzsAPD(;&g-8v-{rHSdQ#kS<Gd1fEz-^AJ_fD!e|M4EgOO%oH>D=Q2
zISQ17qnTov#fTpqq-#J$tqXUudcYzYb6~SGh2FE^gZ##(G2x9PV5;)1iro*`u=%5Q
z$(XP}X_4d3)}pNmsKCg)aT1TOs&{;s6os%jskuiX7q=1ZY$r_HsYEDE;?-vb-zrVV
z%W4UE<Z+NPSEIcHhLL))0j_4prIYd8gh+;8mK^^+=3bIpgA5DqflZXLyXg2C^kFK!
z^A*xFeAy7XQ7cZVT|m=sAR@+oEP^kI@8J;>G!f;YW6if;3$`M8P>@ktAX`su5k+2T
z)9;K1W=`6tFU-rO{F-X&nHv=R=HCCr1jUTcvrEi{(3kMIw|$8*5E?vOFG)#LOqo11
z>4QKSgzhhZZ(T3UK+H;AT-r=JrOpGZOUY;+B1hG7)h;A&WxZ2if<1`<l#~TO!v}Ft
z>X|lWueBDrqgo%%x5Riy4)unAXB%>35{j<6W!2sv;%B5+BP_CM6RajUwgI<pb{EHN
z2EVAm_69o)1~}AE0<wvM2Tt??ASw`}jRbz2qhzt&L+<S-DY+l>QGw39&K@sH#n1qz
zD&;fT^#S)8(@{j(EVpAaE?S;}Gj$SzML#QX0t=!^UZt|1SMq~jNlMe@%q7N>9O(2u
z2VM5XC%!`YyIT1weR!*51vPQkm7+^v<&a#PRB6_RQq5!9FFaTkVjmB-nbsAl0VAud
z>Gx{9(4R+UY!g4dhGpoGpy2nMI>_$ozs=F4G2tvYIX3JlBt`k|a-jI@`#jw}ho2)u
z84!T2@>xpI;U$AP4QR`!p!I+Y(z$bxGg0!iDG*H@T)m4#y1UV4D48$JA&har$V3J&
zhyx`09qn($_s`Nky>m%bS@}5*;H)#aFkb*<97rVcz)shNW_EshbM4Oz|Mz@`Ro;%t
z8?|0DXz@t>++Z!#Ok5}%Ni&&6byXE7p@mF8ELkC_S5q#;qRLc(vOm=xq;S^Oz6;nv
zI`OVasbJ_Q!Jzx2uP&p^e$v{B%-o92oAa$70D#I#_@+2G?Q;FmNWxl;B?PW~)#<t)
z%pmnnPO~f82FX<Ov5TtaIdea{YiB!!vg$&!VsOysK^Fglh|lmjWW&dqcI1DD{lq!`
z_oL<CQB)dw%)T%yK9VX%sIx}EG<i7r$fCeD)JE@m9?o?S(of}jH>tR`I0;GF0VAQQ
zVyjFKB2<+o(wOfUF?5bFUJdSS@F)F=h{j1!fan&2pDz!yc~kAS>OQkawy<}ne#Lfk
zU>n$19WQ)}bUctD2r^0|mR%w69Joj>M8!PFDO<V|V~4#jd`Q=&d5?CuqJh2UAN)9^
z-fZBm!6f%5VoTE2kQGpM`NK4ji3A3ABir@^kiaxDHD6nvfdyq2Z_G}<6cJL?SVC>F
zT)7JxpWieUa7KrwAFd>AuGVe<yeoA3b8V&N7LnHeLPOn%q(3uQSk`1Ss7jS5IVQv5
zplDnk1QoMo?bXyI!UESP7IRGAdG{_h0P#4h&i+vS=m|ffdHL)J9PtG-)2T^Nh8zDp
z@ygwJ0{F1dbWU3?YTP@i<C@d;H7W+_JwiOspzG-!KX|=jJ0Cmatg7W{x;qY*=07rV
z_`6Q|q3}#kG6O`DDn=+RZIE0=Nrq^I5zK_sK~<pf4OPt*{o9hMI4)^3<9lFg81-*A
z8{|Xr7=ih>Hh7z!ZydcBiW-oM&HmR_54)<Gnq352c{A3zd5G1#^cW%$3DdqASqw`C
zL*C}-_TM{9!)W&OAdPSnk_T3z<3nbH?A3KZ75ct&FOMDpX4laRC1YT<DL(5Iwy$4C
z453OOW9+iGM@U&6S4`S~%HnU7a1Bml$uJR<^x313Y!jiMhaqT3x*IP{P7QPcXrvFy
zOzJ+{AlDr$`#9DD^1>V_dm6sm;Z!883|;mw1$E^rYij7V-$$k5HklQmZLd(BZ?+vR
z3vE~kE;#ytxMQ?|7CfY)#vSk#avYcZp<+N}F^9Wf-GdSZMwWFy*cF)2)qa$Sy-&`x
zj1L?=oX_ss{>xbB)00ApW%urKF|S^xz3k%d@MY%5*vodaT02HNt=Jvembzw7M=a}>
zO7HH+^e-ipck6L)SK1O7{i^Kv7Y`>n9`-9|meD`ixLxG=?9PMl2cKvU^sQ^TP<46C
z&*ts4O-qke$j@_GO%$M0M={P%(jbc)ogt^cTEc6zJ^U?qm{`E0apC~v`xE_iVK`b&
z8pLxWhy-%)g#$hOg^C9H%!S9mY(MYE{C2);v(HmbMFsXG$HGpKY9%)gaS}zriX-fY
zM~`j5(!U(h)yX48$!))AWMp(M=0cZM;Mf$}EnmX4szqBJ{+tA`xIDaK7HJ@vxym6$
zET+%J$b11)qn%%7tFVM-&K>RI+xy{lFaQe=sd7N(msM5uU*16meQpxpMn;zzUyfFB
z85?Z5xQ(0A4ssikHrXPv!CQv~F&rx%YgX}LR7qNz6`tm&;q1U*7U})d$GN7wIb63L
z;QBEFnk+%Nr)hAa54z`bXVae&G%tiXj18^!-N@wx8pz76orU!a2n$wuX4D1&<hBIm
z+2IJkng6jQ%$oV-QJC|Y)L5ikep#YDs;(brjCTI3eXDo*?B?ISd*!t9=E_*D(-z&O
z$0!L1Iq#-*dKuR}4sOW_goGkw2C<Ce{aj~I_=S*ZySTX_vrnsbeHpDcci8o(!&)n0
zf4JUg*QU80>16Qo^!&Riw-;sh{tjrcBxlnkEqW{SJkj;im4KdZz9sPKkvIkPr`q%0
zn+}d1bi+R7z;AsKHRV?!_3Po|Dd-UiF_4jb8z<9ef+-TiS0@tP<}go0;@ZdT?lU6Z
zN>jK&3MgC7_!k{P?k!`3LS$7kQy%6{6-_HEDKS`X(J4herJLVkJ0eqSXD1ebk&<-s
zyf^$UypOWFa}b9<y;0lk8%vP@a!5f?SpkoeH{r?L@NwAD@NhlL<8=Or%K;^l(?*7d
zQR4$mJW{=-ukYa!eVm35cHqU~(b3+O`@-w{#`62d_P|jZ{&RXwX^A!|O-3WN@S)}C
zffRGSssmT_#R#P-Ls@(nmQWPBxVuqG5bI?omaIE|H4t2Fv?N*pi=bbSo(u-%G`_ez
zo@btQp?X=&!8!(4bNgM@m6bjvo~Y(eRgq>x_JPf#sCc9)#QP2RTDZ4{Gyis>mzS5W
zK0S@fQaIl@x*Q&_)hg;QKX9Yiv+{{SJq(dJdN2S^KVQp<Yn%5EZuUUkik_MInvri(
zfuDnKuXeuWmZ0^BGxOXiU*FgFx6;geuI2aqT2U`7|JT@f!>zl?#?ntuf5+&KBfUx(
z>@8@~ds(U+LLsK6;`i{X>xat}1&(^7Pv)3-`l4zn=i>HX{JnFpm@4X>S)Z+s)}|c|
z;Jt+&eL)5UlJ!I<=(ZcI$DVGoBOCTwPcnrJYw$-3PK>gFkVm7a(}fwkt6R(9gkKE?
z0E^dM72@`?+ut<kVe#EAvf@C{h=>VdY>1kg8uLl>*8#KNn2%b^l1Z=}#JTw5doJb3
zE{;0!a2g5e)9^!kBJi;x0A{uk`T1vw54zmv7q`PwEa-0L1<IUK@%ZyEiS6>=1i9%1
z($u1Tt`Q@AZq=^GUO|L$2sw&zSw6j@FEH#2Y;)l_k^nzhyP`x|*K?U&!*S9thOukl
zE2jtyN=Az9?4k4tDgC<wO;(g3m4rdkx+inQ`(jq!6`6Nk9UZ}mhBWU)s88z%O2Hy=
zW`O3Nzx~Wn#8HGbIT;byPd9d9!Rb0J3wsAnEp$Adzj|{Y-`C-HZh8@*lY0+Vmqo|A
znY#qRtf-L{-4@Jdek1T2EMzx_>7&U7zAF|e$)Ep30qb|mPHx=4<g>DIiMt?+<l*Y}
zqwOvSwya!s?KX%0Sr>zS`qjL%$S$99zynpDm{g-^rzakJ_F0-p^g2_l`s=;Mf5pAO
zkn<_cNA;GV!=bpBBRA>2oh^sUTaSK+bONW&W6_jlN~Z@_(6=wAktC)X+qH;Y#;FQX
zGIh4P87_7L9#<20SKCYye@>_A6^a`k&Z0|v?~akvhi>3h4`J?OKQ8lV^z&aeeFw#B
zF=dYLyX8QqEsSwP8UfvWS!(bJsRK{gRgFfh5h)5pjRr5XpvLehce9`k#@}&XznE@t
zG(Z6xlPgaZ9t2jO%KFB9b@>7Fdpzl(kGm)+{wkX%<)%8EQPEx?LgvQw!VWD%BL-9U
zzTT|8!hV=B@9~j_X>H!SX6Dl6z&s8xNLjPG=h|kGh~~Q0!r-yR`+J@LPkHD474?~g
z@u3}Y4GKx5i;@{cEFirEfz=?4p+p900yfIflof%{S&0z3O9?$luQDzjDIOyMMCmxx
z0ItXgBbo?kfDG*Oy65D#{Rei>@%S4s^DXzi_qq3ep5J-lAU#^9tb+5PP$2o@l6hqy
zmwjw`Ss*fxn8CP=KHoO_TwFYQnw`*De{FUq%@89T_coCXFRpX)E&WYR3+CEl`zF9n
zL-}S-7ir?6z*4UXsNPw^T%gx0S2n{w@ZRPIFI-)viH7p==z9uP5-#Xc6%vl)zoA}C
z8$HgC2wp(<C~I!EL-$E-3XLU;-kxFaFY{ySETYI%N;9_wl7xaL?F-VF{qDt?Mmtv2
zxA^$#ljLW`I6)#w9o`m|m;2uvNF4*MZ6T>qSuVo|XPk1&{HJu0v2Lgmk^$RL_)b&`
zzJ>PwRFx<;u{)%x+`L0W{YUmtm`3C^BgQYg?7d&2IO%<L`TVg&+{mhcjEoHJ*2-W6
zLyY>J5;wicL&{{2!_VBn_QC}gRK@;;$yS_kMGisjx<C!3NN>p}YkWGG{c8>gEx@_4
zUw0t)fAG<AhQ#DhgA3EDT8fH_CP2xhj`})11(b1mAruE;w?6BdpX_cE(^@ag<`PTa
z(fBDLem<n4?gy3jr}=PJeA%tXvHvQj=BY1^9zmTF9Lx+Vb(y^I2Vi{`!|_w8M(fJn
zC;p;)a5Xkw;0=D1<g$e))gNOe#?|V3Roz4K6O27PDwMV%2S_E*^trnG4Z}n0sAW<4
zydjhi+BD5S1~IqA>WoS_8x+){)V(P{qsUee#~`)d=f34=COzHH<i*Iv`T@SB;gK>S
z2V|}d%h@MI5OpPq-H7@G`r>}rj0QC$5q6a|h&@wgV{;!iq2Lu@{e+7pDy>a|Ki}D)
z>Cz+0*e3d8fW{mGZJ#L{A-5dMc@E9K1$0wH6)r@yVI==gzjvS$OXDJE$wM~m`5vst
zT<Lvyw&?LNXz{3szIF>i&7%j1pFaSsOx)E;AmZ#@4vPviAyflYJ4jID2zp%XAB;h(
zmbG%%`q8oqB%fd4`{34EUvG_!bQEVrpYVdwfjg**s|pKGqTbCEKWaBv{v-Bdmypw@
zjt&lBj-m{WZ)5b;<yUTvvDu!utHJ01;c-z+MAOK}@7J#D`#NDT_X-2+siXJC9q9Df
zj`anZ6{$BLHi>^S84lC~qd`sFukpiUJIovor(xD1|DowmG9bi4kd&uaR##gCg}n;F
zGfS))$8N+Lx=|pPU2>>(p?7W|Ma()93a!&)`=2L7g<qkh$r$xrHj%!&n<AX<G+T-Z
zzD0t-Qn$j?g9AG2`SSs-FMW0JzduM6USQe4WbSy8^d&<)dm|`!&M_DSNneHZ2HYOv
zwl}~T!9-zS2eA^7`dNa7=$`csD%jEF?kgK<Q_E~}dscwCLQh}IuTl<>IC2WX`C29B
zkvzy*xacv{(Gg%7XLZ^fmJOW#TjEub{lKB?1-#B&Z6x3~vQI?&hb9gMVlamZpR_EK
zXNxz`c1udZ--oeZcAkKS%mC*(2D6KhVq`B9#{hH_Q%J~8dWHmtvqJ2+h3#)VS;7)g
z49xk&tXKma2I3|H1O6eWii?l;M_u8Gyhh1TtIDn>>RYfxPL;L=uX&OKeL-CxuP8xx
zLMIBO5Al3c<1&{A6^mT+Y+NCWlNYCKqyno7IRoiSOP+~f<sow8N)fA0h%Z&ZgdNh>
zw#Ao>3G!h)o<hXU;dbl2Jgq^vy&IOr-K5v+vJd7Ns)mkcxjL$)@A+Vo!bf5LMp(4y
zb@m*+Ig$p$aZivMfXX$Jrk+x3@R_o~aLFKM1jGU!pvqW+N_3{V9nvbHz7Nep9fZm|
z#vICrou@^Pmd{`48=CI8T4YwP*W|X4#Q9y>24TUyllQTRYHe>X#W;Dy(C`APyQ}Z|
zqsb8jdK&<IFtGGIxrW4@i35&2(}mKD6D40uz!*!%rzxX5cwZ-B9}%!H^-U98bIWU%
zt$)s44pVc0AbS?NOL4SrA}>55n(9eF%%p~a3|%u3Mqqtd5!aeOG4SMxSN$wXeJUMh
zqIwXwuEZ5}bj+;gn<g*xbD(#7^<tsh-fUTbLgJ6_S2~al5r0cC(Cvv4HT)Fu4+Sl!
z0YFpyT{_Gidv0W!-p2EYStONqoU!*|k4#?37Dr_QpG6LyjCd?}og4Z^u0<J&%p#2A
zE<r$LAkm^8oWtW-j!#P5ZAKuEK7%_wew18!1qFp*bmq@FIo(Bzq2y(wkC$2-Xl{C#
z)?-Z0V8piyLz5o(HQA`nusU}re?T$0n~H}Y=;S=eH22ZsJ?HF<yBe?v3CR`(UFw?a
z)VjVS*84S(&ydWNu%Zz{M{AtE1j@GI+N|@b=ud{wCDOiYUw0a_FJ5(PI(Zh5hK+Gb
zVumgLqem#<Ah;gyg4+qg9D~D^SSGh7%(q(-&Y6v!m-NT}s*m$c4<FbZs&vKxNBylI
zjsoIJ1~JVX6vw!wW`-1rLrkH!Zn`&K-NqJD#&hOR+^Hs3IB(4sO&LF8U@(2P33&%v
zBC@0_;I<JB@>k}V-I#$e@r|O<$?hZ4?qTtW!CYNG8XZB@79iK*83W3A9#u4Vl`QG$
z-24NFgj+EO6<hAGSR3Uv?!7ZkQ7~L%Nb{(C;a*<=uDM&%RCcy>kiOiCBlK5**J$)$
zh!xgWRw?Z9j_s`wa$8gCy(em`bMFgKYMtJ1c@t_x@gO?yZoTYVY>MmzZne}|)CokN
zchxEE1bpBTEfA|`pQTKv7o)S8eVs89SUic1CIzyxq=&CMg3nto_|Z1cw{rq?M|;(9
z2*^8C^mg2FZTbCQ@qOj&xmBS6ym4jF>88CcG3qd60Q--0TKW$^Xr0+AokY}YxcHEt
zF2d2xDSJbS^zJHC#Ai#A{JW76VG85sFt@ZYGyBPD!2>dQ(1^WjiuCDBlu<4^g<U|6
z`QyOzLe#-AK>X!snxXx`Mw+0GWZ+aF$a1>K%4L!xB`&SwlI|521Zg?0zDtD{@#YuM
z3>LA!ZW*#k8MHdSgV1*z+Q?&ymQ~``3><aBkkxvePumq4Cdki6Z0(RpRA8RNnYff>
z?N%cDuV&P%8OlzR^PG#NuV>oN3keBTvRGq~=?h5PX+)kc(x)UM$PB;yz^-OTWe795
z^U9G2b!B(Mch+4m;XB+uqGK<|ml+S^!CvQWnZ@u?j`4q7lbQS8>YH!w?ELH?6JKg+
zrah$e5np8UJTRcOwN?-};&2=*{^wmn*u_3Q4p$q@Yi5JgpXLA9iDGnJ^-mLk@z1G$
oB8mThj1K>c!_WVU=Ob@V*AA{s>}G5<9x)2t*y5|2lNWFP8=aVx!2kdN

diff --git a/reference/plot-17.png b/reference/plot-17.png
index 0ed53135dc6685c2a03f1c0774686a82159518a6..a2a73656d9d4d988b1ecf96d16be1b3f29726760 100644
GIT binary patch
literal 52917
zcmeFZc{r8(|30eSu6CLSse}q8LP$cWU1X)mJX4{}W9DJ)MkSI}NJtqnlR1{5kywVz
z!!nh5p6BV@Py6#d=X1_K=Umr0f1E#l`_jcOto6K~*Koh?`+hx-uPR*J!nmK2fq`KQ
zN$!F&1H(FJ28Oja{#uW}p$EPl!>9E(<S$;pXZ$yRo=V22jW%*x_6!WHUc{d@e%<57
z3=9VuNEgnjI)@Imy4>Eawy-*`C>}+6ba0K4ppQ=)<KA=IjhJ4@eDnBo-Nl<<&&hn%
z+x{sf;_mlHo8EBn@N@8p^Q`^O^Vg$9Z||L_)~snVlHZ=@G`qa)Z!l{VHz3KGG}<8M
zu~oG$X|aW_rdOxf-r_A>w0F(#_r$<(<7s5x+W&mbaNp}sf&YB{m3wF2f4<xvDL3}V
zzh9sAIs9qUfBss~`+t4&|2mETU&Tg;lWA?NlAU;1pa3~JZ{iY7DBo>XO2%Jf$a%%2
z57~FMN{wffh~IzGIvlBLSFdij6APjlYw?GA$efpX((CtdWdj2P6Dx=FfAZs?tbfP4
ze*^xXy)t*1{}cN+c5l@G&zFys&KPaM*W5Qg-CftsN+inmlSJ;k`D{yV)y}pG+asW#
zC}Li3LeH`kx9Rw&#VR{qE#aNG!$7Q3q^wzUMx1t*MVx)5q=xT)5#>y?y1(OZH6-gT
z45e3QShb2L>0~Ro&5i^J$~p|xRy|<WkIk~A$18?QiO;s!GchwWXU^<1oazoTFdL|i
z(@ryboR*e$du6`Y{Nq1s7U=CO?`jkz%G1gwx@pr3gDK|y)zPKjzhC|GaEn8KbkIN+
z-AYAUTf1?5h@P!z-&;}FoN1ovIIKO~lz!1FTj$nmmv`b$BZ>TaxqZ#%DQb9!hfN(-
z_Znu{bzkxr`?TSeG`V2wfzxkXrw8IL`myCs*XuY`$uP@I=QGyDi90GeA3q@Bco|n-
z6Ue8NVcRKd*_0-O%c=WxZ$m(EaNMN;o;X?G{bo&R(bd(}wFw#m4t+n)sl}@v8y%ym
zYQ3&G(8<7{dKMM+%^$&nh7U<3k|5=8Pd>feld<CU$$IAdMXe4@d73vQTlSQPFxM7P
z9R_di+`02oKHibBk6=$%$@6zQ*;ZK&Tt|+)5-40sYn0l?DsF`PGAvreV)fxuS5MEw
z+6L*Rv3sU<@oGPoe`H%5JP!`ur_5S)yW``Unh2Rqg@TU#)!&#qAMN0<$exVB*?YF1
zmoRo1ni*-Or(K>MX|<#o-MSTW%CcEAi{sFtPd;pt&DJ`fQ^~8I^ab@4eb!p3*DgK#
zXcGv7ll(ymjafDCu53z3;R>#bycjYxH1y^MW9F(Po1dlhnU%Rt&%uF)lyKvmr>qj|
znas7qYhr#)?qguM|5OZNdG>*z<B(?S?V2mNkKE6fsk;1I_Mem+re`-ON-yueopau6
zYri*d^3~C{{D9}rJDuov@BTs8u(C=PcN~f}rUf<yR+g8mA;PAo8w}(rTiK-&k6d}x
zM;$Gg)EO;iCnvs^bSv!~|I@;+xU(vMwk;te<D|#x^6Z-I*@a5-N~Cb*85LfQ<juL4
zGb~zj)wZylQgwCBZ68)o)O?GZJTN!jdA*_AF2{m6BafknhmRh;$SUDjyD&Y-M?Z11
zY_H^Wt%_1gwtl{A?%3x|e1l63g)2<&^8{rpC1*p8=iNs0HO9xsm7YxZ$AqhQ7Wq2N
zjs1)rPUog}77sfv^4)S8%F*R7>{j?Drsx0E7D;`8NXDy&ED&0e7ybCtm)*{=>A4MO
zx(+5~e{L&|ka<!Yr*gErx7SPel&Gi%d7fr4^<|s%pP9=@n`Fb{r*R&OGo@u^o8!y8
znRrjS%~%xD_Zrp~lF3(Iojexn5%?l3EU6+)!hE<n^LoIxV(Y@?caFo&$0Q^qVux|}
z6NvO^Fd*}FerF7rPG#{94LyKlEjd*pYFxV8_kdVh*#NtU*^BOp{+bwGQPBqLCU)|Y
z67nTeSJdRkn@5JcrtJkD1J%*;SEapGjbeU<Cd(C{MosZ0T5Rlgeb;_2TKByT+v+Q&
zR}+_(++EJF;S5+MT~%35S^S_06eiXu>1@bc6>W1qk1X~*T`^j)sNg3#qxroX@t5Q>
z*|RQx8NpT;tHiOqG+BA5&VDq1c0o_tW8t>PRMo}6!CZ&IcT-ch+vUC>loI5F_yg%P
z19iN8_syf&+{ex>&(N(81<a2Zvrprzpetv&Uf@a-TUvA-kQ<H}vxTe6)>~M`PsTe0
z)<$03CKgtqOhZH$%>CL_Xguucjw{SpR#CB}A<N`(=5=_%+kHO{8IY;1R>W^#n4k&N
z6?nMO(vYup8`#}DM3YUtd$^5KRBRPAUKk!=U})s-J$4uc)<>`?>fO7*SLvw;q9VlV
zaVk<x`1<ER)6MF5Xw$_{S%tTHeQ~t<Zl0V|WYJ#G`aze!(~(-<mhV<By)wS7aFR6A
znEE9xSs_e(p05GXk?yhRi0`<9JaHNS#=N#dZy!6m_05V<Q#*TmU;6N=cJgX|oO;r$
z;h7EF*fM;E5#~pvq}tNTm^5^+w^%vF39VbVE^BhN&8gjEO?!yka4WUJx?PvNJl)e9
zPCjLoO~-pkcNkQ+N8MdNq(c5X%s%tDU+cBbl9CcZOL|tO<!GW-`X5C*`L;>Ty)oXr
z(sP2JoBM=9Oifx#sF?k6T3N7g@p0V`KPEo#l?*$Eut~aVjufJWc+wsUZ%AofByy|J
zK@YDO*o`uND`z=QJchQg7ah(2IuS_RPDOihb5m+3%<AHg@$>Uvn@5%G|LMi9?zNTm
zcmo*)J&XKM^4dp+@=!4qBD3Ay^A2qF!hQSQJdlW44h0jXylXmn;_%Aaxwqr?pR(Zg
z`tr6kfOoLXZB%Wtr+hh32W==he@0s^SyyYT*Lhrjfxg?Y2z@x)s?{vVy~t-@mi<2k
zxaoGMFSYMik5?tB#3*DQ7dEYq`iJbuevIn>m{OZ!Anma<Uc4|FzIq%lFgNEcVp@IS
z$sWGy=pcRVceXA>s`=#Qok0M~w7XCGb}w+r2lfplq-=FteVaR3A;A|Upq=sE(W<L1
zK|@EugYxXz8^nuNU=FSTe<eWc%;NO=a$SPaVR2?S#zNfB#IHk=srR<b>7q3Z|ByL}
zYMb-q$&>V@^bxdSvx%+}ahD0B3ya|=uHPNbEqQ*Fe&iS~Ci4FMKk0UFD_X@&t2t@Q
zdJc7JS;puvNlyd{KGfPJ80%A=MzeHR(9yN|M_Z}c6{kBl)0g#ZKCKHRawL#n&rFAZ
z|Ikh)<?Ceae5b8m9I;-mGUv6}sdu`%yW`N^0!#F82529B6nXw*HG40a)yDe25;4D-
zV^t9<7DyXzOS%5#q1KG`Y1|JJD*p>Fe%Zq>jc#)jRkDq!C4c$+TT6gDjB=J<yNxIz
z5$oPxKi_Ic<8%G_fH}jY>M){1Aofplef`&#pVN_~@k)^oEt|f6y)ZpYZ?Mzz^eh-&
z`*!H|aC4pAeABIPOP!u%>PVWde)`QTbRqR^#xxqO28EI@d)vueVJRv7TVW1?-MIn0
z8Vh_Z8v(Q=_Rr@{R;YxDJ6O<8S+z7;v&*Pxu~P3GIBj#5*}y#&RZPPytfs#fNpwqM
z)<SEsaCK3d)~zm`)z#J2SaHu>bpPoCj?(pVj4sK8HZsDW+;}ScC&Y2T&e{-D%0G-h
z*;nVh+NUL)Mrx<}Yo<T0-4^RK+7@q6SU{mrZZ8gJ57Mm*Gx?mxI?mA@KKWQ=$d_KK
zPS&IT5jcB^L{hS|OY0UVKbE6<?Vev$u}=8vUFbRXlrlBjoPNvCxGB@Tp?O4983iU?
zuK_XfPd9EY+c%S;fVxzc?`VI=7p29-v{*!~R0&wM__S7}LDw*634QhWbnnU&W`V4h
zEUomLW-T9VKjxl6eOz5}%SSxs&i8~6$SDpL>C&Z3JPrrw^XN{0)bH9-b$RS{seNu9
z(d)J!_zf-p?rTUfxLOh#F)=wwWM;yZkW;x`6!{kc0cvI}R559;IM3yUHG{DlDX)jc
z$s4~@mNLr?ewB<=CZ1<y?M-3FD>E`OE)@(l`X2OIPbM!c$4D<9yEcC<>+!=hamO#2
zH_Kl=>wKKWqZZ#+uVbC5t6`^aOwF+!mR;k9=5r-XTn)jfI#{11a=Y(p{_4u2Hq|j{
zE30@^OH0d*;`gn(naV%8e`(s|_INw`tY!G;*T1*tt#b4w0u&F2|FI$McE7ToeYuEG
z(FGBH^0pm}(aCtd#^g!S_!PVD(m)z-X}I*QTepIo{>r-R!k~ImHN$Y$|03IXNZA>+
zk(^#OTKBG_3R9UP!on)@fyYx@Dy(+DS9M-8K=1#Z|1q3#v47+Xtn5sQ@valotNJgr
za9uS;U(di}I-p=>!F&tb8O_I!A0G-ZK;iO4(YZkbM88SRuY3Mep1|xl!^zpe+wl}%
zM+NESDZ3=;12JKauZDA%7iTvdC&#Z0>GOmbis}*w`if|)>WK6oq2!hMOINP&WxAua
zH)mOfaGK5xH3b@P*s{NC_M(4~foIdq9ZM!H<P@USap*5sgP4W?>HANA=c)~UETKW)
z?MhQqleqKPn}US_Ufk#_v#n0y$o-z|p<Ce|>O-pzgY}uMj!kLCYYgX6{wx|qOnw}^
zHt+q}K-ztwKSrqN{`5o;gWrq7KNpZ>JKis07>L}ba5chZXnl2_i+!dgz22^sfPRI`
z!`9v6H-z~475t<YV!Ly*+dXwCQ!VzDTFKcg%e+ia+gPRCKMXI7cNU{6>G5!LKP&DW
zXHDP_;+^ZD$;rw-9L@#av~12e*5?rb;(^ES|A^Yp-cOzoxlf=m0<#L_jom$E-Ihoo
z)=>M3)Z>%Ov+c}_<Qq34hIOgD>WO2Ey{#@TE(>E{w(&J^adI|R`04CGQ)xPN$a3~s
z!i0L9GM9*1?RUG@ZPH6`I4(YI3~bG@k3kr!s=r;g+t*O^8Ooi>{6se~W_2$BehmU?
z2sCh7udXcf1u4EhqlMWd{XkXlt5*ZFYi!X6RDb}wb2sifV)FIT4znL`?jR&pExPjb
zf=$p0RQ~?^Zg(!9PF7>!rk)Kk5v7ZvQcS<g>sA7UZnytk+Bclg;<8=xopI~9v%#W4
za(SvIi>xe(L@BiIRlnf4Jcg9@T4IPwOg!$(CMmxE`n*Fit5ajL+uTntz91IElNOEd
z(-@B(e#=I^qZ+3ygQLz2Wjse|bMD;I3Vhrh*mZ?Os#4R?Q!{f>R}cJm)&<;q*?#QG
zQ#MI6YVxhh*I9$=$-4bVtNYBVA|7;4$UNDjRbd+v5|V(~%S%^L=1fea2a%Z{Zw%^e
zWMG(UeRa~5BDK0S`G#F618|7eO~Btw3k;H3i!Q*@1R`DrN-L07TEXlfV$pcw_qBCD
z+`Mn6YA935KWo+=e_jn7wEx7lvsbtEpj$>2`LU<Gc(I$PamG7t3Id@<4*w3TwHvn9
zt}HKljJA%nQXPgf8_e4BT#VU5G_=^LpHAb<GCh}F)l&3Z?UpgbO@HU`yPr8~@?QSy
z>Qs$lAZ<Cnm$I4@tdXQ`oU`=x@vhwNK%J!#(N~yqOmbQ}$768<1@nciR@nuMBN7;^
zFQHOz&3Ucjpb#`GxRrrniG!fBc<z^nh$d*H=wDJ$sAqL*c{@MZYhL+Uvb3~x!dL2K
zQQz3lFR#QM;w>lY%>Fbee<dOU1VGQdRrd02dWE<=&<#G2fORj9saRwe0(RdJQc}uy
zb;zG-HV+)US@}AN7>Xt<r5hgaI_mDBfA#7c1J8MxO?!_2;LC1_K%Ft``tE=3sO#Zr
zlwcB0B|~p@ggVM2B2qWowme@+&hoI)&^ksl6xAdcfZ2Ak^<qZ?0<`b((bs>ut@`&h
zrbf1VvF>qbb!cch5}%*f8y~PZLRAd+m<hJCv*Tn^NKbPfzX9~r^+KV^_RAL0#$=sL
zvj7a4DIY$ZMtGB$b#3lsS+(w0my8(*P5z4r==U0NzllNa_&0CPrsU7OvaJ3b4$K~p
zu_bVDBzKU%JXrW5;Fvde!5%(slcl-w9mA1lh`c7MAi%185<SiM2@s~*R;BsbYI%YF
z=ZaDr`xPrND93LS$h%q-qbTs@yEktFE)75TL$uvJ5(m|8*VXe<(D22J7g0MnWG|>H
z#{TN;6uI&BFR%|h9a-BXr>=gq3{{9BIzay1uP4#<OuKh$Dr`JNB5GEVFAMYO4(`6@
z%!Glu1m^1Ve=Sb+N8Y`A_nCC0Lic~b(EFmlkga3Xj@#mh44!Yr#X8AOrw<UEiv|0_
zZXe(QGYot2x;b`@i`>?>wzj`VU(CqVyz?8irw8iLAopX&d6Si*N6kW>nMw#)%IxZE
z+=4XY%ee84kv{ErX5vwM)sS(wHF;6zqouO4@@+Kub(w`=Rf=YQK2~3t9VK77c%rzt
zm@f6E>Qah+{z?0u%Y`+HjgKGLi@*9mCcsB79t%@dM4HSr-CAtrKXmBaXyIxBUUr`i
zJ;JO$F%FQz6b%4D{Pbjt9Wy(73eYL9q@*6MVpER0w)U%c3SnjvUS?V*pjsS9TH@Ya
z30Y|6=i|H5-`^jvmELpA`?%02HtO5HA8+rqi#-~};iA{@nN6?b5D`&h6~8@3E&uM%
zanIA{I_fi;<VA<!W|598#A9Kb$84+0Yu%yhXk5Iuk%Z;LhK^77M4U!+QMB*tX~;;$
z(0&nf$TvY5kj=5%-(3!l!2DoJ3*>7?j1a$VxFtsg8Cw7Ii&sEE09Q6WX}^eBtZioz
z!40`i^}Pj{CK6y{TrzkOv)+oZW|Vrsl<1Vg6>U_=It+KlK1xJ?N!F7<PgB>>cZnvr
zwGSUY2${Leo3`cUfHF!zyD|Ow`GI!6Yi50lK??GpmzP%_{a<`>D7`L<v@1F~Iu74t
zhSre7rKqB!lIb#elh2?)m)(8r4rrzrBxx)riGil{7^{N$n+~IGl6{=lGeS!d$Y|_2
zI1fGgh9}FN?5kG;c+?K>uVRbG@SOnWC~NS%$6vn#$bH@}$)HdlNzg#ylFu-$IYNv}
zy|3MplXC}nwj4P9BS>?~`OJ=Q>`%eS44@7z^hNqjffT{?rbd)jK>b(@xU%=wZ}A>*
zZ!>mK(D+J>$xDi%;}zc9{)eDEcDd?5Uo!kZ;Oyg7+X(KnWA+dRM6<<TVjqqDW>F|R
zX7B9yzf%NwDo$MA^PkuH$|?K*LNzch>l`=fE)B@VdDP}Qn1?wwn-aqaKXph5U5Rw@
z>4DVaPC)at{@Vx;<Cs$&+&0u!g7G1etUseh;dxE}@o9o#qDhpg@YlDg_!UP+MRC$*
zQ@VHo(b@cBbbsZ|wz+kq2H5=kY!@f}45Y(Vg&38|-b%mHmBXgi8HRC>@|M$0sv>UC
zzF00IrUOuvI*a|7b)+1J8sAiGq1vwi90g!vY00r)TVw;`m3T+>iCS6o`)*0cOc6r`
zAH0bExQ|3YWVFf%1nse7$4IC=$_Qf-yDm8Zipu~x1(vN=PCq;}CLC~O8<-RUr-%SQ
zbp9bX5*2q{1tqYS>SUdd>Gs>N)aPjC$5h_Mg1*AcpbV~zXp_j`^TygK8jg-x#MC`K
z)TDwRt=V@g^ljl%x4<jmTTg-g@3twvf4GgEKc*%QQ=dEq;M9=b>(91IRweQV_0<z-
zWMXUgwzm;2P7my?2u6*#1!?K&iViOsZiKC2coB@`39+vbE0&vBbp7@C=;d?g&ZVXy
z9)&1nV6$jP=l)t+9wl#U>`_nB4sd!Iqnnr?1O8<5oRq6UYpw%t_GuOoGb7GmJ*s1X
z&gK<lL6MvgJ=^;KbpGh%IDgYcly+ZE;hSYIl?O3(@0yyw?oi>@87h2B;p6F7qSjWN
z!NJ0}w3Ge1v{kCX?+wx0e%ibQLsdxc?d}dndDxIh1<_C-1hm>$z&pSHq{-EfE2R|`
zTR(&YqD<B(N;i#kg2)qzi;D|1X5H$gm1AcdTsue<dzI)*O!Q?R7E%5VslSP_axdv7
zZf?<DLr{UnzfbPx!l1#b8QAACbe_npN|h3~WFWb>Xc^q~i_I^+?c143b21H!w{nzh
zW|vx0_1bu_ND!hz>31M<2lO+dtN{k)^i+f;`1owjX|=+zWqk7{k@2}J3xm^NcPW~T
z|N7R=YNu*+^X9;Cc6%VFWy=R8aP>ud+s#o=yIBt2?eRz<equ;6!xc<<hVG3r8g0_|
zk=SIJFpX<H8N(k6p8yHtiLW!+KSQ)RRTZdomlfS>3(FBwF2I9j_P#UDHXkP=!NpzA
zIC8owuO9T(72stG1}90pD-VRa=ODZI?btp1y0HMsCb%a6UoW9=;6vf{nK;miSAvCP
zkgwwbkNy0zhZ7)OT%x>F47bYhY|bz}H!Tm6dU|DX)EonKX-SEHai<dIA)+c1Il{ql
z9_=gr09UUgwGJ}_;#84flF<me$DMC4&DlzheOx=?d}aX6-g9}nA+~;yAhic0p71Lp
z`q@0^t`js|Lk#Gx>c!E*6yTTjb=!=GRoPehgX95JF?w2tzn3)#@<S9~Y^6Fi+~2tC
zMR2fI+fRl^hrj^6*-Qu+LHe$7QJ)2*37H`I!!Jg_Qa#{4-~w>~)w;LmH+W2x99_Vb
z1W+i-7VMz+c_+V~)tZ~{4d)^u&{fbFyKHtB*1lL;WhWsC2*Qe!V0O9>JkH1K%2Qqe
z72Uso-|p$VlU`qb%G+@sIU<`^DA&v~tjTlOdNsqmK>@UQLHExLN%VCPv~?fvtW}GY
z-9jJsuD6eu>C{%K1%3SjH35wMGD4BUdFADaPmYUaWta2Ei&!X(yUGdp4It8Ga~dBn
zLPHbL&dgCTTqny#@0mTH-M^zG^Dt@?;OSM2NDdWZz1)I=O1RKVa&kY`G3&ko)+JOM
zhz~z7G3v%I<+)4}(?WDq6cL%?gNf<8nVDk{f2O~_KF<C5kfqC!I^FeLQ8rVbgn97?
zSPlNT6D5*hYop)2TUeO#5w7_CTBzL*TcxX1Ul&V{xrtb{oF-MLS4!zr_%l4>BDYvK
zF<gB}FwsZ~{G(<{!GhUGfwKg+*qm)m_Kx7y$;ru~bcr6i+c<{TxI_`hz*XVjI9XxX
zcg1eGZMmwMg~xhzYN$#0mxnK_gu3$2&;lm4j1&=K4(05}n4sdvCdtWk#A6$~lts=m
zf))QWk3ij}u&Y!C3FSby%qCH~TSD8SN<00elcS=dln3)4w`v%8sLjvMD<x=9q!#)(
z2wol&a8<cz`+=!~HA|kvy(3C6V#|HDj$!*>m=zzTK_zJ4z3%x@#jS3;DTN!(moxl@
zvE*Mbz-|w@V$9e?z7wS%vezYf`5JkFe51vKK@rB}#bHrNWV0Dab;|SSb*YBMH|RtL
z5CUA?n{#X13)tO;1X<5GzpwRV=GWy$l?N{;Pmw~n-q@zqlwqp!!*W}6+v-xUH1tyO
z-cWlB>$~|LE}g!jdvrz|shO_RX1;p`|0X7b(d(xr-DYaR@Q=P>yI~Ji%$G$}0hxGw
z=4vE5Xo~8YPX#d`DO^#)YO^eL+V6R=;pM|l+aA7lrYggzWGCqX>8*_gJ?jbqibwA#
zqW=xF<x_zJZ-ktnFkW0&urxu-#UHf<bv~lmL(F`x@6sKhye(Hd$1XbRGiQdNEXrFA
z4mA<Tun$r5<JqC}FZ}&~idLWj_Q%D%CV0631T``AcYM6F0JXxBc4q3w`GO6O-90^o
zLYj+#f%q20=ln`k9kmtVd)Uf6YIw_T8tTe)DQ`+2{?rEFdL0L}Kv2#E9X~Tn@6Fz}
zc4KB3g+OY=$?$1sTvb-45FqR#o6FbHRFw>}H)HJ#1vA&wrw#1fQc_YworQ@qgW8=A
zs8z(cM7dq3rg04DLqpFYfU_S>D&u(Pvd@$P`*wMNhGTJKl|P;!Nyb<&w)tmpfnvLi
zoJWN#;B<<bc6EvQzE{l7NN&-W>!&V8%@GN)Fop7$g6Ao<IrhCbX7{3yWG4=yF1Vr`
z)!|NX9X*;rAl3H5!axB7wi8)rXXTVlW_h_DxUL?N@oe8&CP|AMFh4f8^0a9ARiV^I
z5i3I<qM(C5Bq&5oKxr$8k-;Js>)N5FbPmtIBEJ0mVVT`}1o9x2dF?;{L`XynFkC};
z7i@T9WNiE(pPjtz;h0oZCu*N4X!dOPSP~FH836EdAR_sgI!2FE=$q&g?Hi)S4s4wS
zrrkpyU7DX<mNGI1iori3`EGI!dL=$kNf9h+0YxoK=?5-|a|ribi1Rl>gS`bH@+8R(
zV$E_<3qt<6zyI|`HZ+?O>v?eDOmwN2vxF|5<?&t-bNiK>H{V&FsUqSfVHQ<mYt9lN
z_43RWydEEonAQn7Crh``bJ^Q+)MKvp*S9C-bs7eiTJNk{bB_oJq^Rma#5n^H?%C;%
zRO9QMs+VvWP*tHi4&N|FSMXM*Ye{bBtId*a)+eVX8Wc)(+@k<QZJ-tW#aZi^tIIEJ
z^nE*hxU;jf9K4#jR*)Xca%O8OCI(Z^U@4D<MypPb@3mo0ZTo7a<h`d3nOEi3JLf|t
zk);4fCRsNjR(&|1zj|eMhD|X}Xv5Y6W8cOIZq8~~JV3}kQV;kuKWBrL470k@*<hVo
z%nf%38bF8bCG{ZId@kh|?Us69p)(61{02h$*266<HwWsI%;VLQ%yOMZt%%mV_$Ci3
z>MLj(&!0WJhEZ{!vTo7+*=LzHPgiY{o$g3QdP{w+G)FFZ(g=C0sM}7fsArU|<mK3?
z#^D^Y@R78|z-yyg3Tg&k)$KpCBz~N)|NNNVIsS4mnOb3;L)mt2b9c*xc7}<+ztQ^5
zd#_QqFzhC*6%iIFwX&2r#OsB{jYsxzGaV^CWzl#|mp{lhNB1V~Q-RT0KrVTYpZwa0
zkE|n-lKHhk-!LQYBOQV4?hYaIh=c^)`3##qltudnJ*W9nYcPMR79bN(P|6${^lmlr
zlQ*{643+~CNuFClHJRdT2emJdngMNGdHPDYRO{t1@w%brOd7P8eSXD;;MmI%vX?QR
z`*7M%*J<cv83OARILrF6S<Z~MTO*KR_2}uVitIs+OmP7+dJ?d4Msm15DWoaaAp!5c
z2!b6z{!9Fx{iGgbZo1FW=7RYi7K1bBT89F{B;B$`H#HEUpb&ccIuIIus0Tp4=iWA{
z6T6OF=2ja?EoKv@_|){DRC#w<uyAD|Aw`jBRBbN3tdmt2+2^w=D=TNeX%>2V*neZv
zm|H0CwhKl%-4|1X@OrR`IWXROtm6}6sWmrKtH3>{q_k9s&96B0wC!hN4l4R-gD^qu
z_*Tl4q(SLNc_!LK++=K@BUi(N=6X5$puiqOpHXMj%=FPbd%QtH*#utB_cwxj!=laB
z?QK>~x7~b2J~0y{YNmdMYO@zd`1F9-4XeUs$M#<H63#3=mbD0baCW|&li>1TL229A
zW};`FmlrOGs+Mf61@M+KT3u7aN1N`iDbBtE7>F`wNVr(a{W&gv_U=^Wbk+d7`6S0E
zwB2(t$vUj?{xs-EAJvzQPi6Cq_NGG+ZeIYIM_)Nn{lV6dW>k*?<Ut>5Oy%hN@Og*t
zpVp@vsHkxJNH@QEGkFfa6fqARU78yuubK-93wt!oLFKOxb!u~wrMRG&S{kNPFA5!5
zS`3gIY4_Q<TEG?R7MM0Ncy&Rd#c`23$|yPlL{cgzghD6`d&E?$#O~d@UqZ8gg|n^9
zLl%239^VUD>ZI~dKURkAn<3<EH*OP<l(~5B0mn<DYhYExJeQo~rjIIwo&YH)NFl}u
zJ{l+sx{$5Yudf^1%V*MzX~zwzX!0HgWtS$N@=!4p@X?yNoH>%5;6y06-vSBk3NW;3
z%ZF6|p^MiSI_+{Uqx>E(e1surey6F-^Fw$3oP2%CyuNILb_LFjQAxid?wqsw<YkBU
z#U1SIqby7}r+LIaXA`y=l7j@46+y~n=weOjw-m1$WA6R=WE=!#)=-cayJw@E(CR`%
zp*P>GXX+rN&F<L4hCcfw925PG^gX84=&q<zCX1fV*}N`^UNwjzb7uJy6B85ez3QHx
zo<F)joAyFU_pl8-U~7H(XRO%hqe4orf3`2QwJcq>OLXhp{v#YEc7MJOnoVyD=^CF+
z6E8Y^WlVNZ+wk(ZVM5pUPlSo*RMXAN*LTjvCnTp`zEB^pMk5?J2gGl4_i2`je{w_j
zZI}B*dVVB8yU?OZsNHYp%4U{RWpYB1vcBFZihI*R@EEkCnc5?pg3+G#Wz#J&B$t7n
zy_}?->BCtAh@~99rrW<`OYfXtmus)2C_z25=-{kL3JRwv7Se8*c}#ci+U5J@=Ls<}
zvFIDWBPQ*4#Qc#;wca@UIyw<!V8?>QcJi#b<E)<l*JaS6T5T*Bbim?|o=(qY`{OLB
z47{|`&6U-b5dR9Vy*@Z(O#~Hh<`PJa8Wb5WCaL$|N>`WLSL2|PMF+a|vRUA6^B2tB
zprt8FPQQry?DaMDjEhiWW2D}w)~&Ga5P=cM##PAeY0S9&xr51*lC?*66XV2&mZ+E*
zW{BH$JTS=ciin5|Z2RPbQ69QOv@$J3#QaFy*da%NJEf$WQp^|btB%xGK$Q0$K<|5a
zscy4Yq-x~k-S`9$#e}zplSB}};VV-yZ%SR*W7V>)^zuQ&K>Xp&yaMW!E3VOn5*`lP
zZaRfv-9Z&wvR@_!JW@5H_X*!@MR^E?5`n_fn${LU$B)pmkGEu9`kCFpA9xLv;@rab
z#rZvQr-#pg1%rL8o7ZsKh8F^Pfyd${<+vQhVYc^s6zGM}R!P-Ba{Fp$Rx14DdT(Ux
zDmO3JvCij;vl;nC+4eoJ^Qi<UDJ5^h+gJzkFk$_%Y|GO^SX4va9@cT{`o4pZIO27(
zlcnIyderHo3UQo2r)#INkx?Jwt-95zopq)luh-y2?}hi%u4mZV3qc%!?uaHVeHao!
z04iht%mAP!J!p7KnY`Z+t91UI4TB$st5BPeJ!v+6t7*AyNqSUuEiJ9w{&yjWB?8q$
zZo!~UyY**dD+j46N71`$rTl5DhrCu>`i008uGMAMM}>=-X^*G?D3qw_!3HlT>-XOJ
zYwzWU|1nl9OSIIokRd35;iY-})D3!a%8=~1nA#e3ayssAIv(U!cmf1bX4ay@l`EjI
zUPL`&FW6n~3K1*;XQYPDH9q@<iFqG3Ft@CYr%4OIQzv0R0}o4r@WwrJ&>!7bt9}}%
zK%&6m)$7#$(*(iTZAZ+oX-$%$F|i<Cn9ZNe0?a19`85ag5f^E7Wwy{`<65f5-+%v|
zn%34O1Kwl$$N6pj7}94KxyWGj;Kx!0oVP4It~1U?hqjk-d8b@826#@U(S~UGpaJv`
zh&0N`PC_XFRww9FSPf>T>$rk+566vda#Cs&m?c!PQRj?bt;v1&ZhW>h=N!&_5*<4<
zWI^C&$hR8Lk6gho=o<6_;(?G5i^;%~uA_Q-I8@a7HCj7Z`cctTZO}g?<r_C{q;|Kh
zj34RA|0A>2dv=ZDC(Z-wx3L`<JCM4#;~XRZIn9&fy-Z2wa17N$;y6em2+T`KqhQA2
zqXCjwmbx7avfdSUCDXoF!T8oKb9gcL3*NX7-l%Kbxfb?A%k~1v2u+Tkb~(4<0We=)
zm<C1*k(%$?MXMY|MY_bZbm)7#oBdFuAc-en`?hTTxD#)?AjiE|4wt0B0n0&HVw8V=
zxkA(7EGB0pJ8`+BRIz(Z`6H?<r91PbErw94Yo&%p{G<9>QZCr7?iu*6uo`BnSk~71
z+8U$CP7obP)Z7Z`Rd)g-1ED>~Rosi0(3ELUNLzTj{p0AS-_tA+?G&Kvx1ph-LP@+_
zTwEQwAknpwXOECBiMvk4My>i@eXoLGBJoT|!Ml;rhVDDR0_ng>=jk6)zp2}Lty`v3
zeO1~}r-X!rj$dRASi0NKN>T!*DNKF%h2Qq*gHy_tR-9@lN}@16v%)q)sRgEbGdPtC
z55hFsQaqC3)oI%Zm<;$Z^`asy?0hD}r=O=unernqaYVW1mH6U&w30=O=62Q*<P_iP
zuO|ZTs}&U$>JWe7_X<FDg3Hdpz~#AFn|(8lS_z9?i?w^(aD~L^nf5drI?sc4eX3?2
zA@89{Cy-ZHUcsH}xzK+UbLPUrr(s8Vo~5dTnm;pYbc!S<8lF1cSI2!uZJSZV6pPOd
zjuLI0;e|0xZu9bO3!PV1{<IGpd&+QpVSam(Ip!5}csaOA7G5S}0<%IBBvm8e?=|1T
z$O)`<5=a3a-Qrn}A5o;|pPvfv1OrG6mGBY~vw$hg$kCoJC&W8_gmGo%<(aKWF$u1c
z(Y~px0|DL!H2~7))G*OcaMVnwGS1EgML6a2_JiW4Fp~F<&+Z#Fo?h$SDoNQLwisYD
z+WtAm`WVeE&}1sJtFSP7Y_y^D@JLse(Qsqx`E6&${sC4aB<xtIU&P4BU$|uFf!ICw
zZM$66q6j&hg`wj&#7_huEg-vHd>Rk{R*LRW?8hF&SqFq;m*2|0b<`xvfV^C1-P$&-
z&fx=)<_bba`?%Oilp1=KC5YqNH|Oqgk_aC!ytfJ9c2OYPV<QC(i!=k1w9?;2_4(@a
zZ!&Nnf6y(*L*{szhqLHjbUID$VF4*cbe!fwa-rvZH?s#aFn1`8HU*L(0sH~MU3gor
zV&Wt5guR?B28><dB<yv8bb<jy1B5-O3bj-}zF=x<>K~3uA3==O<W$#ua)H5=VpY<w
zNh^($Yj!K>a9F139asJt9;Xj;3x;=B3<S`lPJs{k8zW@H3bZ+S3N)=9xAT5xOu~;8
zzzNI7M@N<*S~MW5JO#s%l0{B7**mMsfWAzUmw(PV++HZ%C-ipWss5CL=?$1J=4Aa`
zcF8JFC5y;BPeyUgI53YC7?r2&Ij-3;n`;=2Am0yqmUEtUjjnoLq!;sX%{O2MF@}_l
zejfryGPkmfxYoqPUq!fA`^hyMFKDNz&V9K%TfC0U!51mXI5}G+p;iviac{vVJC}c9
zu+yX^<-Yyuo{|5m7px^H7vJ<iMP3O#t%P}|8AA_fdZHb}dmuw_E<|;D_A6C+%8QEZ
zmdTT5C?pJa2TM_sL|`~1Js{sO71chpf5~^}*bz-odhFFw`5S`)I_XySFl)7ce@B^2
zdB|Js3Q6B}b|eWU9Q5Y7RVd_~OcllEB8)VN;vrB%w=wq}gJy|dz(2$FCB%j&4x}X|
z%1?Ubbe|Z>@Uf_pBXrcD1>w1?U%!1LXpUUy*(b>>?(J@iVBB`oD<s6L+D&pOc^gxp
z^3xo<{G4v<lqfy+FJl>AzT1KdTUfGx)DaXA_o;~^p;?#wGaLB##M!XPkqCKZq;S=f
z;3x@?ko8n3dI5+`UJ@Zj-Fqq;>gZZ2Nj4_xIUpC|Jtz?9t6p7*F(T-I@F)Daa>`9l
zpG_%n2@-NJooV?~be|t%)rWe3y0peK;f|A*%+n=D!|&_*i7Gk7Uwn%sXmy_~e<f!B
zj$o0IWAn=iTjOkuGG}vhVC$n<5|zoI@T6t)NuKFT4|+dt5p6kGvbyxTZBV0%U2Mf<
zNzW~xJYt|eDRr?^>R9Mvw#}%{;rv_2DhmP+Qw`F0C4Jyki;p6F;sg<Nk=-K-DO2*(
z#-#Mcu^p8mgUff`fU!U4;fVz&eFpBe0tIssXn0u`O%YHN1Ui^Up%g93u6^(exN3UY
z)KUovRj|R`nO$yo;%{aW-+Du0l@5!*u{awA`B9TdIT`IyD9(fp1PZGjbpK~oAAYVU
zM80OKQ_A|S2Q<wL+WdDol5)X&(JM6QsfHJU4ozU+xXvZPlZ&K~V?49&Tx{NCeBgn%
z{j87omaa91?~t36`^%fxB3lcBTvW9^tLvZ}y3oDkN}9y%jW-3UZtpctTLv69Pbu{B
zaVb14YTcGsD{klmxokxKb#r-;DOadt7C2qXa$bbn%urSP>WUNTL3pZ+%VJE|$(=u?
zbSoBn$J?a%HX#(lI8A|In=vyFJGNC$fVc>JH7ZhV4vVcl_+@>2JG-T)*CwAnW0CfB
zmm9vFqf3zSTqU9@({a~)sz9~9+b4Xp57vZwpdasY+rdgKB5;zxL8OMh`?APUhoUX7
zcm8mk#zOmn9`MOoc?F}OFM<wC&AN=ab$gu9B79k=!X%smAymSSa`&~9)b6Seij2K0
zd@YNCHltcRe;dgAx27~5OZWg!-ypT&@ySnA2vwwL_5+LzS(_Q&TrLZjZkH3HTux9=
zDuZBMhWWThhm5fl@3#FVQCejw!O~>U)QSIH|C1kvqTg2F5fdF9jDc=Hm;f*vO)$d|
z9E5dPacAmr>h&+{>5T+i%~1l$<5i{9Vp&&jFN>j1Nm<#+FJ9Yb>nt<<2p)sf1KU(~
z%PdaN-D78xE3<&U1!pjXJ9}cjn}8Fz28qd0k_Rj0w^EEmRdPabffJT#g2}-zgwY!Q
zWMPn!vvu%ZtWs4INAo71S}%i`FT)Ju?%{!7C5%Ea37Zo$@2)bpfl&{VoZJb@WzdJi
zr>cHn9fYH#?4=+_lpUu0lZ5*LaL#ugN}T($?L-%860~OsN*vxUs2gr|D`44z0wQx$
zJixXX85zA?w`tEyz-A`iNvO5pT)^68`^KOS$WrEkU@m>@PZ~v|IfbcV;+yu>tJetn
z1Y1NFK$^M(OD>?fz?{Igy)e9K)Df!$wqGrMGx8l%_ZnWt_4#tvz&lOQq43Fr1A+`^
z-((y_oD@e%ZIVudwVOO+Ojx_eY*<Peg3!Hp71pFOxMh7oE>X&0v@oGdbJ6=!hF7rG
z!a^d5QK)}3OR!#soWT;KdBRa1%nmhIME8;20WRN!c6@}Fm$p}>Q4vFfFi4Y_6vf}n
zr^f}mB(yJKO4-_NXSScHN7a}gn8(Et7XFx+5LnSd(D6dBr?nt;(O2*Ywj<CfJ`omU
z4J$AjYX(g*w0ty_+z!5Zkctsw@#*k2;PjV7VU`nuwkEtdJ1SbV_jy1-x5PWnVEigb
zO`}o-pUD}Fot&3YDhLt^SRRpKeHp7knCB6h%Eo{fgkF0YuD+%m`&-`~ybe=3r7450
z=!=N0gp`72+_~zkC1MC4vR^@_6;#^8$P7-^2qLXH?9aK+42A#03mwj}-q=eF`QnW$
zPor8_MyQ{C-JpW?WH#sv!{d1Zy|JJ>I5_y`=ldHA%rC;NV;ORH{9iE{o`D_18$Pmc
zAPVSt>~);LL^s=dwmDzcXYbENyAGzyLN;(&5hotFm<VU@JhV<r+5$D$F-P~Eb$fxQ
zp(n~1A5E6hu_dMr;5!)3ZH^K!(FL_qNJL9iWPc<0ytFOCM00LTW8vh<=#yNvyA68{
zp{@6d*8j_!@7b9LX|!MtbF6^YwOPV?ngZU;a4p*);jl8!m)WJIo<eA%jWeKOMJQ#2
z@p-m)+}VBE0hg;h_{4KfwwoT%PjsovAfL<eCd+Jm<0JZhQ@7=BgzcApdi|FDMs4ns
zSK15DGbu={%@@Ev%4=i2wo|UV{61w!ZXfOaLXhM+Z6O_$-D79=NqgpXO97jg8wct2
zWS4`x=mD28&0>DK;T6=Wxxi5{d$CgEN6hnk$H8m=QQvR*<?gyocjGzsZ*0S$$DGjK
z?p6a$gyw-|w@R3VAV;Z(cUHwVy!_1mEw4Daj<8V&Zp;S#{c!2^L*9Qw0U`Qi`oXMt
z9V(deqBHp4wQM09H*P#seDm_$EXlv6aNn*b5Bb>H<HoHGZ>O9-49_^VGg-9&?r+j0
zQp1zJ>k)l;hATN=dTGtsgM_H;gYBJkFj4mKd4xcM4I$X}&`=8^W{+Hcc?~Od*R=Q>
zjXF@2%1}m3u;yj~7u*#H%jGCmmqCzrd)~_rK2`LRpdB~wJ@Jvq?9&If)+A~P3%k$R
zOd^CE10QpKVlm6-526v00H``hIhM1tV2i<+i-=@u7Jg{8nuJ*O5}qo8@>j_;Q$uQ4
z3u7+`%%Qu%!=asd;K$4x_=#fma<W3A@@sK%2!@^zsFAgoLrx{tGLLD>jg2&C^2Xlx
zou$3TwFZ=zmx~a@Ar3*fH_YiZ$RuxD@vtL&eC0lH@m>3T9X+upP{&FTRtqrCFJTi5
z4zbEDIj;HsO(XZEAX@j6w|#xV5yVMw24kItUZ0IlL2&xPh*cKsZ4jabMxio5zA_Ne
z`eyB)YIW?W5ghx!m=c2CkwCyc!uG)e1{~^|DIqpsOYOSPd^@)YmHqY~8>7SY31xuj
z(!_2L-r+lJJ=|>hVEfJU@?Y<KKV`JCkH)5g4XLy9sQOdmO;BCzPz14eIFdK1Py>3r
z)8;h6jrPNVK<o{bgJizvEm~{tJG&t`BO{|j{Oew#Be0O(K{Q7-CIkh{B*p}5FKp9s
zme?;O?mSX64tbihFpy9Vh0)uWdu!D3op~$zE6Flog>E9P-k}K+r8v}~UaJR4f7Z8;
zFTvIKn7cIGsMm3T#vmUFmk^O6H?g{;HDsS1J8^03q3hB`*L*ra`M%RO*HYO<e(!*U
zqql~j@V~<L+DnXbgxUi~%(aD?VROR3W)EBHGecgU+Qle>@_xKj!1cmyk6~$6iu{b1
zG<2P-cSS=#OioOc5lR^dAWOo71K$wo^5v6YWrTkFk=?qkf!L~-`?Tz^j=}lczDWsp
z@y!fN6?%?M#@Zij-a_E%aBG%eIG9V2YJ7UR1nHv!H<OFkT86o`m^{1!k84GM|A_^_
z>}K8i&)!ex>j{t9CJ;9iPQq8*ePAO)hu<~y31a`1&ADR@h01`EPHgMG|B+@azYGsj
z10mSMx)tPfn&F@J9Ji62i@*bfPD+#5%^>)YaNILo>rBdSqtLpmi8-(BEdzsRFEQc+
zQ}Kw2<>Z}Tv)%B&cHw^=GAG^${@Wh8_y60y_&fU#1^<s1;J;q+f9;$9U-r!}G@&K`
zw<%APSUgN2tfTPO5QDb^ShB*!0&rJ^R|b5W7puX^U#HawISPb7rr|`~*MHtL>1~Kw
z^;nPP;EdW_6ZaxFf{#7_aI;eS&2oZZ1f+`tuf1Q)E(+c5U0z<^qrtPbE6G~_<(7*b
z$<9;#`tl#|qV~+QjH~vq%w;SVIrMlLLbW-a?{HsIRBT|e&U=fZJ^<ZIAgf~75v2K>
zT3$GvP=|h?(#Hx{oIVeOc=Yf}IC;edEVBvF=Jn#ezNZzKtP`tjXnfh<;V=Y4q|{_^
zQmw0z;eJuO!`X%Q-dDw)$1?f%hmXUGLNFV@jga6o>OiUoz!ikHW(G^;esogwnPimj
zlSASwkM7Qg&N!9Z<>+2FsElyo^9l6cyX&g|9Cgoy1+ntXh+n_7*StA{E%*qN#`o7L
zQSd<19SPh<+uP}e`IVqA;Z1oC>lWrNSa*%JX0Xhm1nedPix13evb)VWZNDBK-SS-U
zUEcX)(T9uIA3XU<cf-(yPGL`YkBBl5uNoIYOgTUqcGOmU5dKz>N+MXGg$IK(ad}l~
zTx`q1-7CrK{5=)ylVU%7P-oy)B#xDYV};pJ1l1JltzR6eb8~YyRu$#suEO?A?4Obz
z6vhf@rG3p>`e571Ny3C-aba9`e{tLi%)|Q((Kxg1eAhDE-7)0wF<efnQ&?Dd8e^^;
z1(u0q+%P4$RqRe5zz5_Cbs+5DJ5Rup*S~FWBS)Fnv&SW!ja|~)6funxJM1_<zwu3?
zDjqcOj}2j2Bbu%Qb_ZjJ1h5j9-Rc;EcE+qe4@Kz`Wdzjv`_hI)Efru7;!b5^NnX!m
zx-O88U9<mj4Nc8;`tb@13MMWb#vA3ii#1?fcDUPWXEYGhlJF$NLpA?y%#puU&flZR
z8puZZ=X4@|<@I6)hSaZnBZ-9_R8}SWEld@+;bVHBR^Og^P&>RvmzRMddhbD5Vl7)%
zS=9jWn2|RS><UK-Iz1>U;~YYJh4hU^-aHaxTJsK)XixC1rFti<g|m=)KyGXjt2g;d
z?7PFBxfdXXg|JJiK>4x9ln_j8osZPO0YFSXAcbDl)~a^i7Qcc)@iP1tW!QVY3^g!L
z2y*EuK&zX0O2PF}Vo^^7|5q^E2!H@^(w+cGvcOW0KS&D%@jfgf5o2VWc4j>BSO7`a
zsT0IBXY8X7x4a<nYY>{mT(X1}Qcxcmg7A311EY5n6mt*2C9nFC7mW;>=GZ%_O<89R
zC--;TKkZph9Qjb$VI$pHh;=Ii7N~%K^O*Yx;%*Rctp}!&z`^wNbdPXFScn^QZKOK$
z2@^okQ&w|0&aQ#ax^n4~cRvVrcsg>?V^aBc4LHR1_1?w^>4N35@>RppiZ79|)sjzF
zt4Ut>w{K2(eDJUJ8%_4EVLJEe!=25{El2iVzi?gFW-XV{R&L!NJD7K``?F|=?s{F#
zKi942-1_Lk9vSsR*DnU1u-M3X_HVgrz1eM6W;@fJG-7H>W+%@qpNXNyx49;m4BRfn
z29~&Z^IwdNLJ^UXzK}rofp~e475CjCH%f|jVl#>Y+rucvVTpDytD8yRiX3{~KSX92
zIz&q!A8{^Se9ir#5Kh!iVuB%P=tzJUSy0J*Vr|}`?bs{d2RRT1X_?2P?Mssl+1Blc
zX}T`q^|uR`CZ2RJ|5JWbxFTHI;HPfsz^0ab1?CF|=M0ptstxfnsPZ%BjcEzwPf-q)
z^ts4*7*=obw~~Bq+WPgG(e1(d@@QSanJpw)*e)*V#v}?%11a`+-9^~HtzGs2aDK=c
zX;A3NR8iM@W@X%u{9@tG+?@?<+!J@|`)}{ZU`~#s6Ox6@j9SZv0PiA57b<asZLkvc
z<N`YIIJ5$Iv)rl(JvNiqO+JXFlvh>Y(r;v2W9iHP_3II3D+ccdpojAm!I7px-+qDi
zq595xmi;UgA1sn-oc5cTTKiC`;E$AqhB=_d;08a$6!kmvU>crdQTa@DAZTW3Zk-|3
z)mL=$mzP4um*VJHkk9yjDtYSs!}0dPDGbtv_a8h6a1K+%h@4H_lMI1|<RR)A+g365
z5$?)V^(g7%u@R$>@AjTrl?+`aHht*D1EupGUH%t0lVmL{Ec~4}G4r3~+_z)L4q0_|
zb^q>>JPosWtZwh6_-Om?-|w%uTr%u6yt>JO%cF<)ik8P6YD53sKHffF#&~a!b^nxp
zJCHZ#GCbH&#lgq#G*~4W@mfc02_hYZe>pUP;P4R84j3z8P!%zM7h+wIQ)_vcgM*8N
zWMFCwmvA`_X@%&Mnwl?(UCQW~7&zd0@X&`4QET<vw=>`-GpX1VXpKo7;5J1SMS*Co
zn1W$EEG;juBYciv1&N1NaBI9~@+IuF`yT$*atZsC*WaQ+I-po`tdP#rkZ{fuI>5Il
z%;kpiD97kCcx1>Sq6S9y%%ZI(046u*yJf><0FNuIm;9NScuh@BF++vQ=d9swWp_Q*
zU`T#+dvJ$?!?zgY@4X7rV>-$DonO9uA=bi4)!^55v#}+kv&*1lpu5>iq)<M%`i4t5
zC1bQaLfS9snz4ea@=|mj>_!dP^CT?3>~1cq^Nf8%Y^s~p%0XaJfmV#SkpUu&*hfL-
zRR-fw#?qzf5tjVDfcC|E^5-$8{%w;v6R*D$OFJMOv{B1?t~>=x*;g<4!POH18VA5(
zwz4$8fG$wp;CDbQqOnnvR1KbY_kjbtzY3B(Q)>U5$$iUM$Xhh*Rc_@Z=9RYa2X9Kv
z6w?$_w_3m=Bg3BfGBcrT(Mvn>1oRuq<eubzODg{La&U9W^o~53dmnNdVk3qt`MI>2
zJZ0XVl}uj!n=CerVJ1g*6O87s=(|N1B2Omw_&<Mc2$M2`3)2HL%OX5`vRAJ@yPn>}
zxU5Pn$Uo%l1f7*~HTl~zS96`_{HiSY#DpJ?^Ed||BH<`LwY9Z}X_KqJ*qE5qhALa3
zyCamZUcKt?zjLH#eXY?vhqKf1!iMjc79w^0q@{2B9?Cg&H~Y-;Ki6Ma|Cu7uFo(6t
zNYEMIo>rK`T`%Z5WzvZa!EaWB1F^?7l4;-tPyVrX?G{oI42!f(Uy0>s*Oz9+S$FRS
z`DV1cX$GqrvTzjP8$c&*;^VD!$UPI8rrYF1vTc?8H}5i}Z+A;7*^ps$&AL7Chg0R~
z+w)$VL&|T;2|0pDA#6>=h{FlYQpP>$tm~3etBUtMsN4GagTqgYZ1y#)WKX?)pLAXq
zd<+}BeQt{BTVx9NfrgOZDfgHD$3M`@0;25v{>G%N2GtRXHjj;@>67SPcCC#u9gqBQ
zPK-APwb`(6{2Z1fJnJWhHzhBv(fQD!L$1gREUv)GYEi((#>P(~gjrgS>tS`7xy407
zkEHOovgUBYG^cX*Y}KNMtc(na0>>l(T6Zw#8s{rAi+8F&*!ynVy0sqj8=*z#PgTo5
zkQITgV*sd8&Dr?_Ou6#elV!c74lc-E81$7;ILpk<wOabU7#C;;D-mF%_qgO^XPw9h
zPHb4Ybf2Mkr`olvhiy}gGa>htx<$MptSV|aE?vbr(H6-<K-U_A`zATH*m_|me*?yD
z0Q0OsLpe2XUh2VMX$`ZcL)g0%ZZ;2@>uUKa4A)p0^Zr=}ncyg?d*Q}7(jY{-0mC}x
z*cY--55x)Is)z;Ffy!(WEV#6^ROW~il^4@E=?8c(mpgU+Fem4QPoF+9ZruuFMy4t}
z#_QIv=Q(lW$I`JIXx2HFXfnI^?D<W!I~6X5NzHYvg>{zq=+T(ZE;{=XPGjGw3O*$V
zpl`w&+hdELe<iKMGu$4Fa`UagD!r*|bX0&;N~5K7YA~o>lv%iwrfKWz=j~mMq>jhN
z7&n&8P!nnlRu?pyhKbqZTTu}V+#XiFJUNbf6{9Mcymk7V<vSImReyj_*8e4i<2}-^
ztn_JDVoSDK?-v!GX7=2P*W9t-_V|sogm^2gEi4itgv1iq9uI=>e)Q-Eu@j!$IoY$g
zJ2^qlpku`0RYAm*Wgjnp+<?bAhQX^H>yB^Vzn_Pci=EKm!5(s)KflKbb0iYs09!^Q
zRRt|cyp^8NOY4H@dZ9-XBU}zhd+JiU5O4tj(SU{+qi{AC;d1IR>2Sv*N-W@>Fu}rr
zx1XN|6l!A2$vh=romg=qrh=C*HAnK2e5Q3kR;Lnu1eL`cAti3#<Kv>c&MztB4@=v~
zfQcpxUAsF2@rResY9)RsVn%sO1m5WP6>a;0y}<I9a6Z~fWOX$=h><h205fU%>`n`B
z@8UT%E^W(8#zz%jA9vDcy53!oB+mX?xoYJ{!0d%{KyHqvREnm9=VWi!izwomR<$lp
zn<j`8vd<K-=@!3Ypmb)z`*Xaj!J3caT;z#A+`mR}m^Qo3+|?0O(7!#L(l!ss9)l&N
ze(BYDKbqhQ{43@oEjh%K41iLIy?}rZBM&yMO17at<mOd+clk>je*t?jon5$`^x1Y0
zySCt31|XHx-dVc=Uei5%n(xnI&Ef~~WUeyd%0A*zOH-QjPuZoD&)r*3qQKVhj(8Rl
z@fenC*WQTT=m^lzufl-D>)64-^Ua{WCF;la*@BLhr6+?bZJJfvx+c3sq|Tht#bcl{
zpwva7moZZnNMxhq!}10)DKxCuK2u!~IP6Jl_2f2ib#;AAgUN!Egc|24=4m`kkDpXh
z`+)HJ9-veho%(C(U37FmxWSX*g{TbPzP^06x9!ihxrZ;r5ABM{aI0=_ecEZ$xy?a+
zYF&4Zg8UQ{*V`2C#N25nhD${@LUW05W|1fqAt8~~v18e635rq7-dajn@=fQ=5xJ%G
zNh|<@n*Km8{Ep9V_n%jExp?<O$i)>!_SUc`yax}SZP2y%WpnL21m#c>C^ew`W(}Sk
zz<Y-Lk~j6z!ifbqn&l|3-6u%I<YHDG^%%ssTHmHlbQ#_k1~LI6b}VO=<{O5i6O>Q(
z8WiSEH<IUc-@atJE+hS{@_B=Ef1v>*S>hKjxl4;QdB3+;?bU>S5Ip7r{mS9WZRX)>
z%U4Ycr@j}~xWp)gdFzdgI5dZOtOly}M#kH8Oa3H{yf%R443FU<G8-1%A83YLdawLM
zB_yb2!%6Nbs!sFY%JU|B9e8ZR=-c25B$w(dsZX!t(u>&?@o#mjOG;t5DkMAh`IhAP
z*ImTw7tpdb=?s}nZiO?3-_i~1+H$!kALmOv+{zk{k<kqH5kg;2h6DIU108M#&YaK`
zUY8cgqKun2gVv@JPjVq16A(DWi*V4;wS9n<pBH$-LH%F%t8a9-$9BMS_suFqnlU0u
ztOim>6l@zgp*p6erCZLH5Jf*pKfgKc?o~LC>QGr2t#7GGA9R`7A08AG0|h{?I{I&w
za~N$Kkd(x3oCpNc?^(nE^<Y+`+93zaNon+9are3R@FKjCUi!JsxF{{2ozOL>0WEns
zIir3Ig4OKld)L_5_%|&vSAm)~N^y=inAxMzw(E7*$UG~amj&%63NxS{hpf-D@bGY=
z&OyW1T)TcV_vCt#dVxkf6{yPut(<s9hp`}emfD_kGA5VF<DBVlkn4TXKuObKkeA`b
zXNHa}z=rdbpQEGJPy?B$6@<hiC-mC+*JEWv;_xv};K6iU$-D5}CpjVfV%49zttE!Y
z@`s$~DdT{y`{7m*1;KfJ??eBfpj(78q=_dW*<uQ2_7<`Ib)gdk&Iw`|B%TJB5)%`{
zg0MJI*$VSDqa~j7b?`hT6-LW!Lo}=MXGT!micdpq^zUp<HS{`E^1jJJ7PO`9_%E3+
zCpLF}ez2(seqW#W?@vrN-YS2kX0(W41N4HF65y;b>_|OSBB!XBa@C3<zTn?k#QZ&G
z5m@0mVQLX2?ByI>T;KAZ?t6Hh5c1G{gwauM>eFz~RZSN0w)Rtee*C!F858a)1O!4{
z7`6*~UaWpEoMCx5*w9S|%DtI~hYjq-^mVg^m;^Bb2%<Kro3Lms9{Msj>Yz=j!osy7
zfcQh`hd7_qTa|2)Q2Kh(?iSzL+f7wqZn&kDI$HfJ*Io*Q{boGyt8v(|ldzhzsgO$T
z6O*UBlJkz1Hn+oHTGm-cRtySC=yifE8}|gfhAiak`2`?;-|ye$a4R5RFi{nq+IU9}
z@Fps$6Fn~X-~!`<_XIJ$GK{hAc3$%Y&W?Q)AJh(JYF^%hI)dzG9mDe`o*c)b|IJiE
zVd3=8F1aDaa2y)+-P5t%Ms3ySu7~5E)^ZbjY%+G-Blo-$Qc;feO;`c^@Qyi-94XR0
zy4wE!!$ok-<q_F+>)Ix|*1s9xO<+Iala}&nM7I+<mwL~%;OeF+)b%G8$e3F#Hea@U
zvocI?^1*uQp2g_ay1}&Tdy9zvIN*p*&X?xP`!7UY2J5u<?c2BCteAJ~xDI1}#P_WK
zjk`Aw=W=h~g}=3GwVIbogA64q2@T2=8kAH*hRRqpk|aZBTCGY7g-8-nkuhY-xK<*`
zJSRhB3Yn)&`@Ftbzvp@P-p8@`@$UV5f5+>O=U9)v?(hA%@6YEN&g;C+3zpTZ`EU~d
zh@e1(MDscUf$)<2)i1hLu9t7wH2!p>0YbgOv|K|iJ}b4p(Wlswl<V`XLOQ!?Nhg+b
z3mG`iDpWfKqrdnLIwfVzGw>)|kznncCyP|PTjS|>e#X$ECPW2p(nf~+jehiN5TXf&
zjes07Cd~(pBxVGjILc1~X?muXJuA1JaYV%T0{$!nAnUxjb01V+J`Pxnb@l2{@O9eY
zqi*U_-->#a?oARtq~z!N_3MCAicqqQ1Y4^G#Ez!akM;UtIEI?k_Yd-Z2{LrRx7^p9
z$G~>zd%r^Gk@TGT3m2*)X`1ePM;*s|{`u%jjoAx#m!97*U6;2*N?cr>QbM?9g@r4(
z?1o}aIC!OJVk+r^XdsX!%mC4ma=Y-d@$qqT+E7CXX=%A&lC;6k<{0%-AQL#=ZdaX{
z>B_d_5M2#7$jZSX07HE9=FL{{{z^~-4yI-YW&%H(+N$Xfp8};NbrD=xA7~V+cm7mt
zv~FMvjVMMgzd7Qm>!{Drtl6_E!42-RlYIYh@XrmZ-$upR7ZI-ocnonLKP3vyr^PjW
z@?O_kq)<D*W@G3Yh2-OkVu#uYIcW}z^p6bQcrAa9Lr8x9mXLI<1rGZ4E)qWqkO!Ln
z?7IkepTBM-0Zld}&WR}g@iouc43&jH27b|OkOU3&hZ2kn$P=VpXeq%F>4TmV3cmpg
zwGu1GTztqrSs`?eg8c^n$S(Hr#WTB9?_pmE1A~<-g0YfZG6A%m+VQX#hPTXNsNR<t
zW0YH{yu{h$-?Bv!@ZEs<rrog(*`2fcSfTku!KNu>Nm|jnQjBf!5TpdlQB;}v5Ren?
zx-n`7<A+HQR~?({$9gp4BPJ!x27&s3x%j_aXbb5^FhV5l%;)Q*k1XpFWZvD3nxhO>
zh;?3!+qZXb@*{}YFn^5nW*PC4Iz)}#h#@gQVY~FpBYf-Y>-*4%x@q&~FwL#V5Ob5R
z^e8};f__RaEwkXyMxpP;3T=yL6=%(pv;h1c)6~@THr_ZbWbi@udi)X_l=&c?qT}5L
zjRr-e9v-=BJt>|4@uA~ad09LYEV=_Y!OZBjM9Sm=<vBo})E7z@1?<TqN0BgY2r+fa
zL&3>=U~v8YoAzQ7&->Zex=s!nVNqz(3Mwcl*xRO=aAi+aR1_)h@w`H<|0gJ`P8``e
zq+`PT8D9BU+iAjrsvr$w_n<z4XZD;q2H9@B2+6&8D277o<!|dOr-W@ioMuMeCMC#o
zBiKV5jU}a}rHQ>aN#IB6A(7htwjY{Oyxo20QNUmCaH@!vDhJ>OBw&6s+jm<aRkVfF
zz})(%H68ceWd4ub#2T)37LuQ8Yt#0&jSLT81XaumxD}7q<Fd6<QcrcKR_(yOvCHZN
zvdzjoE=!H&xDV>3Zpy8s7#4a}h3kf=?zu~AnT2E+yx%#Ab?XAZR8?NuNkKGlakuBB
zd<k0UHWBS9HS1FW>20UM{1C1}?)Iu6ZpMrm>S%fbu~3NY+7r0D7yowQb{JpbDx~G%
zT?07KMI<SOZ1JS`l%j=$z5_k7AJ@{hR{{GHeE-|rxrL<131_JO@ShK@Nw1o#a_#Ha
zuRobgcbGlFtVC2}DC8%bsP=;7!SR!xH4MLOAu+vccfW@ez*#GR?0p~~0YiJsk@NM+
zMhKQ-&yb$Mr9I}8f2faml&Jh>eJx5xLArO~A}_+c)g1k$>$iEy8zJcXIPa;X!NpIg
ze=AMO7yCPX1_2GwMMsD5=Isz>nU@?Kx3MeW2r8oGMEJ@6tp;T&eY`-@Tbb=W`N$RK
z-Mt*TbKPxgiG}5>Zk0_KzmAV#?84S@B_+^@(uP+71@jxG0g>>`Fm65oVRQWWyA6-z
zNQ-``I+@_2q44Zi|MWIJ#2qg|*Ogl`m^Jl+^mqEiFJ*on|C4ZQCe>f*XK3TRX`PX}
zz(+UA-+`KN?&2=g@GtI~`~)NQF5U!!&M(P)Y*W8Fap#}^OqbpINBolg`}b#`Gl_ip
z6cCBh&Z$q?aLm?Td>1)6&K0j50hCv+yw>Q3E%5G{+GGwqFE4Z@JbJV;#um*VoxD@Z
z=l-9cVLt(J*j9xeu0GxMQ&$XGJujJaIR}SfoCpxR_eZ9Fts;W0+K&E^ZB;-JYYxwv
z{Qd6Ock*Ss!ib`d<^mqRHR)r;zP`R4<_o6&uJo7LHHUs*z1ra9W*_H0<x{^Ee5U@}
z)PG7j{f{5iKjz25H6R^wEzF<);vb%w?8^v|dbfp?8~}&J>-kFC*ZgsB^4`N5uZYq=
z7zLfagUz!^Sh%F>qQ9GB-F|PRjS-+wYp|I>KEg9|az9<kLgVZ!I6>^y!|=8j5s>H?
zzjTgQ-oxvkes^2!#o_}L*x=k(MIrBn$V0Zy1Lk+_ei)6OZn<NpD$cs)UOT@dSK``H
zcx4p(UZ!j8V}2v>45+Z2SYiMPRFX;i``tT%JCm;C)C-s58c+Kx_v4GNROZcfe>l)^
zz$obYp>Ij{E|W`PIIy|=zj$kc-b0|(u3^pyn7m+J;QxoOJD6d#L9rMBJ>fuS&w>Q}
zp|(~BAd4D+V1RGQzMPYH>9FbEOe5ay3-%#^EFo<#RR3Dg;mT)RjnIpvJD37W$=wGk
zFD*!zvWi_g@WX}Rm-dw?EAa91zR+xgx6?veUXDmH%+c{Tk`zHp{+e~xQz!PI?xLDQ
zNL?sDL>INki7yKgGXnW!Wn)us??GvXZ|6=mpxkg<PmfGFGzVAzbd9;%Hr@M~-ln&!
z>k7F)kn{?`M+CHLHqd^O2>TG9A$cGCl4u5qmH4>1|NdeQq?4L<R=7-0Mo`^%9j1y?
zG6bIJosAUaE1-x04FK(_aMbBYVqJ4{(Ea<rQ#6bkbQqHIK8UJ&=YWZ+1%a*LBA2NZ
z?JkwU#iT~N_Qi}LV9^Kpu4iyCQV{?&)h{n%6E+zDd49cFc4~*E-ho9VX8$F`%Adne
zpo4AG&S?kxnEnx+8t*RMzI{81H58Y4pE;#!uee>QuK#s<`tF#HE23YVu<%@Syhn|w
zsS6KD!M>p^EfV94CMmTrkcc050AqN|I%Q-WIs;)Csp49NxaJtJ!^6g)>7k#&U$<fE
z;RJh=i>FF&>oTH*BYPlLC#w@>iqxwFw&Q&sfTEH;AJ%y`(?kvYq{q*)khuOGBFG0x
zErkdh%m%?yl$T>K6z)ZsT@JC$=XiAp(X%hd^9u<nK+R0tZZrY3B7bnu_kxbfzsv+t
zPzYq&L>5g2d%IcpB9P0-$hd$)^Y`K)SIfXyG@huErpV3uic33leI<^gp4=t#c=A>l
zHVc%6RouYy9wf{eJlMeW^z?a#2JuxS-$eVwe&`+7E|0ZSpVxW!Tg@S6=N$M+Y}?P>
z0}n6|eDsabRsmhL9KM!B#r^%)kirBo>0>G?9+y-4)!?>N6E;q{1OK0RwzCn6(jFo~
zWuu^Df{^nlK(>N6RqX<4^wV-~r&nIiVm@h$d=w^0tc;8%C02!ng@_6mntQLWILihx
z5XgThAJ!x3>mm!fQ-_ZPU8;t5nxi?d5PF359l{t~K!E|y3vn<kZ-`z)8AX-=aNv&@
z_nc#{&<Itk2RvG3I}h2-7}w6rH1odgvQeZV%yJi_&Vc?LrHo?$)i>YS0WKmbcAY+b
z+B1V`sx6NDJjmzsKk7&ZGvbc&!?yz)jDlt`1hH5>J4nHqjDH5!Z!NZZ>S5O4G-RP9
zED!puTY?g#@aadfxDx(j>L+~%a{kHxPM4jEdGLR^P~GH2$MV+04RA1r8>T)o8Azgd
z-6TIPjh24spRko7<;0TwaO0*;hj#i{@8}0L?r!wdAJ(<eM#ig(Gpa?+1tHZRH*Qor
ztysD8gU7Vq8qe1KH?rPmWIXBsY0W~2W$F$~7a{a$gQ`ho4KkAz+o!ImSgnZj2YVQk
z0^*0zx#@7@ErlD@&{cW#$dNv6?y0MUa9oaVI*qul6j~5Gax-T9@cRKf9IrR^@4=iK
zyVU+bc`!#8M)mEKQN1#^bnny$x|IIM4{HDQDZ|LHSvGq*r}!`aVb;2iS&ID}VpnBA
zHGNRrYAR8N^p-~sN@|k_!Xf1EEej|C#P01j-{hG<BFg|&EhH8)c8if?2etYc_Q6Ru
z6Od!3LJ1?1Bm@s%3a7|BM=<FKCO&xPW-hj$;U5x+NP?P~=Ph3B_3rBxi82&3-k`M$
zCFak6e4=OUuP=(C1`pqBJINg_C51Va3C$HE{Ai3^`)*6J?>vS-I~@-sCLlVN+3Y43
z3+3c>b*B#3)1KI^dMruq&j`Cwg!W%O^>U6MT6S$l`uQ%6>7efa=1cKhW--#=7KD-m
zIA-cBi>5Y>;v)P52pxy1?-xu1D{!?5a^U}aYP&KHoo-#W5apMW*Qej1NADNVL2cF3
z>?8xNruKRIzRi4H5ZF16wiP9kb0`PG`W)0#l6ZWK?g#*bVHK=XUsyMB@>m@@u@fNy
z#7Z1Ek^%&>@#!q;_)L`{2$zrLPmH>PHUBPndcVGQc%dvjYu2n5f<<T`f$uKMW5fv}
zQFK8a<j!x+J3>&Q(FdKD4Ee*PDUaa5_P%JQ(H_X_6@lOb68l`kir0IP0=`ac2Ut$7
z9!X;uu}0Cb<@xSwm&&H;ha+GamTvGP{ai81RKdi|LdZ}GTqyu$`^Py;mn>PfbZH<g
zb{iFcKz5MyT{88jD)Tvox|T0vV+%n?l?wG+6C8D+5+EA6mHjd@B)+W*Wrzjuf<N_5
z{Z)F9ivD#GG)kc7xI)kMVL}axQ)I{a0E7XOGHB%eCtG-aY+f=H7z%)9sRkY8s79CW
zA<%QZNc8<Dq>#;kHKSGcVuAmjrf2}igk<3)gx(XLes4h*Vd>Ui|DH`Qk$BP(@R2Dv
zM<mxqotqknuT)V(#fu08H&6o!FN8D0DR@Cla}clEod+5}5Zo$LzBsjA9P*>zq#LZf
zMSYl(XsZuV4srn&0-EI+L28vI-W{N36sC^Cb@1&xiVXM-prPJjC~ciRJMEMe1!kRK
z;ei+$=?zeo6&Ki>1F2VGh{ckoH{$)XiFzb;aVhBKOZ5lSNt+5k_A{bVjIa2zH<C6r
z7E!8ot(q4g@YhG6qNzQfGM$W4Pu|%zHdqzy0n{~*U6>US`snf0<6#^+CwF}i$UzB`
z=wR&cBw_V<9?)g{&Q3>A{%@n6r$Zx1o&WEt7s%L@-qbOb5i%GNQD<gFLQ@H~Enf1H
zR%q|ZiLFK%_a!hRxgvBqggY<}2hAF=L{fqRv+}`%zlr!xWzmX%@~*Q$gIX8>zN0ii
z1ySY4lxkqJpE{`NkN?;!oUEcgRP<YMC`-Y8$gMZu16=~dkBTUvvZBU{62NSn8iEM1
z*H%PNtzA(Sr%(%UROJus$i(<Ikg+SZlP#iHU#Xm&I#$7RI4yRg8H1#~5p)t(XyQxr
zPY~4s4kXc)+;ZQeLFlp}*5O5nNh1ue5uIMX>ODMOAXYV(WDgwhw5Ed2qmJ)3fpMhO
z4dT3zc_rwD2Fv52`*aa!@>$7=nDhB%z!C-Wr(CN;Cp}>3P{eR7S#s=02V8QlIXL;a
zOR?sBzjA=!xy=B;$|2F*hZz;#@4M)@(XqhM=9NQPm$YM%ZxUY!9L8$PX5Vx7NYoA1
z=ArePsn-_5et2Fo;>(GJ7x?Wz{2{U^=fj8B+z&UM2m7tbV;*8Hnh`){I+U0XfcQrm
zX4Dvs_};tC2Ajg^-aU`pbMCq4lu^Wc2vCr^E{sD*Jf_ei#z*X?co@WUBj98-)(BEJ
z6vhmcJE?>`L5<G4<CSs{(H3mbM%<63$hk2Ck;mK4I?bFp(<!5Sa8RUt%usXcj&~>*
z9txOG1Due)K;jcE(=9D6R}BZ-BGVpsppa8Z7e?Cfr~`n=ij(72CT0+T^IREPH!!=w
z>NAk7K8*Y+cJoO>bM*l?Q`mucJ=*%gZ>ekuRR{&_$(p0@4H2Z`b*rK5Ku(Ua|HQGn
z6m)*(&g>*i6)kcP4U(`aA9vu4XgoOd(A~{VHxA*D@)=7|f1WiXe-zxR_LmuTWbH9;
zq**R_W%)&qW;Ywsc2pcY0`W;w2Z}F#{Rvm<!{$J$&tN#cex5#3cVn?W#EsmZW25pz
zy`Hq{4p%q9AQeN@^^}x7_%h)KUwn+J>S)plTlj9HaOahAgEZUmDl;dI^4i+k`Xh&T
zqJoFG?ZekA2^<C_5Dbzj`n$yEZ=<uOsM<K8ANf_l*Yu=M88hOYv$$=@sdJc>o8kX4
z`gytrL<*c&Z9iZ?QdP?%hxoS$Mweu(DHSSsiy)$mHXyJ)pGZlltRsYo$L?u<Y!Fe1
z2hAgg&4#HSO3xb8QW7<d+m^*&MxgoL+cOM|Tk2B~xD$)biCiJ1!txfq1Qls7t*Qeo
zgI`)Zgf%?}iVtw;bf?4@BL<Q2{BlO#jnWkAsj(S{feHrdPF=4hQ1L<U&0&-vRgtjG
zW4(r)m+BhTA;KX~5O@1@ppg6WLl4@gms_P;bk{G@Lt944r4_rT;VAv}IrEb7!buGi
zZColX{V<;wp|TIL<&zIA^>DI+@jgF7lHlQihrM_=k2}b*5wooqy;_f&+aO(jp9f(^
zSjDiJ0`l$)%Q}8pysPe&$CO<i`VC*<wru6fVEAA~oF#bhM}VK5!r)H>u#}4c9!U?G
zxIFyI!B+`i1Yms7jmDp$;_wQbWAFhUqSzA-gYo^P&*dWUEs?hE253S5%B)61ZoCb>
zLuJrbz|@xGtuT*n&rxv26|`!0ZN@{UA5{n0^?MBgCaqU^8b-p}7&t+=01x$qRRkEB
zor|e_gLbZ1qgrj~2fOvr`N|m^8zTv9!0>J8YKDfzn1{Q2ATmGCl_r2|ORY+_PhQ@k
zC(3k|kujFHjD_WyqoX6+@h`c^k0nSG8<FDX9xIqLQiYZy95{?<rWvAeNmLDhjKJ4y
z(|;bD>%F@DO2nK1fiM`IpT1JI>Rwvr-lTPVCWYFhkl3MNE{^;)Bp3)51AzV=bY<Ah
zl>3rXw-n+C>}LM_`N}6woOsnHjLAGD{{XDJL;n2dzZp-zK43{k$WROu3h~nbOf$P`
zM73^(=Tk0<QR?;rHXZ}1Koczl{af?%(|_PF55Kd@!pRV{qJbS+f<LAM%1xPWEXmYc
z4HcDBQbs6+Ky57?T2FgWA4TyYMptC=P8kj}5m_EZLH*J-IC7w^U_rd$7M}W7|5=_#
z3h$$}DNY*7oK8tozgC=!KjIWO{cuSKU5aXdPP-$Izuaba(nO~?yuI+>rm^{rH{hj!
zEj{XhHnaxIbo{3HD?9>V2oVB#{~s4YhrNFmr}YuHzGmqOa2-yn{W%4>fQ{fbGm?i!
zERl2u5q@AyFChF=yEz?oEL)fEw1zs~L7N0p$tOpQR^lL`%?koSmyaDhcrdXZ&2s5Z
zrqe4uK!y;0o=-$1{zDshqg3x>onA3x^cJ4<)Mpu+ybw0z`%0YOzjEqVyJy2>hpUEq
zvYwv)5NrA}nruiv|Ash5pK-cXOUg|kypT>P^lG$#O5Eom{8qCW{+1aW?muwgBP8jT
zzM8xQV|VP?i`PY<W(rzKG4`-V(_55}RlyqLmBU~hHGsL{N2Z@qh-A*o3!(rZz%`!F
zdhOlce;?9J0}@CRIe0FjYh>GkcOfcMSN5l+Bc3E#2<&+|V%hfjO^nLoA)q!bWbWhO
zz#!XP^r97pq~g^6e}Z>Cta=Q!jNF-qcmc6!O-0o0k*EdMTJ8WvoB#e%U#P@YKE*tU
z(XlZEX@rQxp?O2^-#;}5He;?it~Xzx7j-h@BxH9nDVY7me{AZYI<URNMne}36Ky-Z
z70k@=gVSr*zsKPJ1FkV^a{+3^vuAk-wWGkAYYs#kAL8tav>!W+mNYc;Bjd%f<IPT9
z%f);Ysiy#YvPqa<ie2e{4j}^6#Ykhg=ICsP+1T(9b393@G7l8)Tj7XAyecp8E?!at
z5>e$3#NDi~(tjc8X;yx<6KuV3UsD-zx;wfF$!1zgEX)C89RN$nTx@;FE{M!eMl4ed
zE(ab5)S^C_1N8}`y99HrMZx~3I}>nc66T;uLqZ#yKQQ4fhmQ{?d=un4tyLl$`pKcL
zl1nl@GhXg#lQl<i2VRS9%d^|U(D0QzhACvadU}+=$nm<?$z$gMi2Y;+s6z{^PNzF}
zqIk;E#`}fjUeww!VHk&yO$n{6^9-(q17kW_GknA-h>@-frx*_G(+UIFP=wTo1@{6~
z;`32$O^uCIK%*M*@MrQ82#EjvRYme38OeJh3)*oCr8gvS13%*3_63fDcnwsa8(+2t
zn$7vUdhe-ToZj=!r%zrN0hz59<Kx6sZ}1=^jV=&}biiietQ=(p$rq4OPy=^B?Zwp2
zVC=YccDA-0_)`?s(QHlBK$YOJ`J;~_nF7^KfqWlyJ|4H5Cq3l*k1xuWFS83plt>L;
zG<5~I&=eV8SlA=ceCqn?+?;&KIhQRX+*F}++TiH39}c=ObuESp=f9NTHhTx0#w*5o
z>kvgo_j=7VEEl|rwiIkGV7bd#Q2__1P)o*++5Z?C2iNE`vpNAF0<O%_6q1n8puP}F
z4gn+|b?fs=8{H2gSv>c&p$S&PMWrCw%c^dVCV3RE%W)F=aYEa$?L(<S^<U1K#aX9c
zld2;~10UQi=$V%iAPgl4qvz9(L@LL?r0XZj&q(>*o`Z+m0${XHZQ20TxhGq>#{%H?
z=|GHZy>+@G*(Iqh(Dk{)JSGLRJpO^@7^zvIvujYtjPdpMZvCg)mp*6_n?8aDQ%nc!
zsQR~y@ON?UvQPvWYKNaRDjqe5rVqKzF$dN?HTDy>V(c#4%26eu01;G<KG5fVBIo@2
ztNw@kYt{Z)#*SO?K-8Z9SRtMp#wQjWkJ3n;TBm<(U}o3nWeX{P#4I;c02ri`Qgdk9
z2ithU;JdrKpIvz%v25Xj1u6(o0X%F%xt-s98oJ!!hA#of>R&TegMZ#7<IBGP00}*K
zm4(x-R;^kkZe0K8f_I9j-_vXcqo65I>hE-VmJzG&%3H($L~gE*J0pHfKtKQyt%HL%
zQnjLrZ|XG#@7=uWFM5I>w=Ce_`!E<8J*RUgAE^8#;KlOGQ7DIeCq=j1M3mhMwgm-%
z09`MfMh%LzK^`I<r<`+vJEzuCVu}<W!(gfCj0=7!o_$8)WSU(H@=zW*Y7V;72CygO
zpfL#(Af8YLYkBxH8qt=qvc7<kuv|aw2BmJC_UBZ)qJFdLa#DDO8I^eAYpil?#;HJs
zKoC*wXVCW$cha0J?;IV}lwe;i1*dI*)L#f?5I1<8UI|Dnh5GwbYhn$K_y4HY02kgJ
z)J7V@3iC=6Xq&{5O_QKK>qQkgU`;!#@ELw{Uon%WM;$QsB*Avma}I(^O6QSY?*M~P
zt_XFtSEx{0tkIh~#Hk1}0Mpfk0)@VStlRCm#^uEQc&@4-q&S61ATdE`d4!56wCmup
z+R*f@hLcWt64EHw%0-J737Y#h=6LyZ5br7D1jqug_o$TYn1+b`Z^a-OfcFl;7DuA_
z1YKspkV16tCJl3QbN4}HMT4+T8d8-uZiQ}8btHevS1#APHL=tHXRW-9HQ$MvxBM^E
z&o4|d92g86Z){hXIfJ~p5_*{nDmw<Y#Ur^bhleRadk`590t8~&A6P+<p$)5NI<;4L
zbNkD(^YV69z3`O)cPqxW>C>wDF`KJN{U6vHlU70Pwr*5gMlKut2pSn<tqS(XaEtNE
z#y)9jY1($fXKDUQ)hous^?1W@bLDW=DZWm;5CH50R|<X*k2$@W@DX&cR-*B#Ehj|_
z-A<Je5z33cfVz9`x(LSf*pD`F-3=>-mkB=+wbzXj0Hl?yt3&H9)S;HS_>4v};0M$>
z-xoc?a$|%!9ijzJM#~^}=rw2a90rGkuPfjHsR+YHHG{lCY65NGnJOMU=oqg|M&0Hy
zPAygu!?AMZiE-aKqt^y0Gb8we<Z0F)eX>!G4KOo7+ECdHDi9|XkCSz1QzT(ZC+Aqg
zPO4L^uPr{SS%Q=~6uval^IjbXXfh-t@LgpYV;6s_yz;`gZ+pfMo{2RJ+9o^{BzZRS
zHx=cM$nePF&i8=S<2B1o9z+X?C;KuJb^*9>s4Q=<LZ{dMd5?JcM0f1@tMFB+oR^?h
z2}CL|NREhE6!*u%#@@Vj>v0=twWD|210a?#>P9qnn21KpvbHRM<oe$>oU2!BT+Bip
z^?aq{*Pc`nhQ(1WYX|N>awf78LSF6(j}DqKGbBdc++NGr(h&Ih@+u>#W;zg8e0fDq
zwjso+)W%4U#CTYZ*h)xNgwj(2-bca#!!~FzqYer*6Fq$TRIs%uIf=NBFm2%YmqM5k
zb-us9G{GN1_$`fTNsvW{m;5sqCuBY413&w>SCRI?Q9miIrkya6^y%SUf`WNKTb_e_
zcM-W)Q!kP)NsRCgfshN1bRcMFdq69qJ{tISB4OXWeVboY^aQvy!~|nDGJ9<*OCO%*
z0yzDJ&<?ElY-tW!B7V5e$vxZx^aHVqCl7o-|F&(%5byDsf4&KyXbbu^5GV|$e9S{4
z+wW^^!o)4X$m)Y7c?C|&P3_uP1FssZHUa9UvqFpSJl`1Pb9=8Pk%~6zXwRU*psHRo
z`E864!NW~;@FgWkOh{}V(ud!Hs8K=n(oP@X>(8-gbMo^Qh~G)f?Ur*|#J@x{A3)l$
zgD(yxfe?k(XgR2EYcY+>m$MjS^@2#0F!u2U&aG2lRdUHwb^f|_>te5UY7=?^qwB^4
zc}Ga(kUr-7%f(R0g-1E^;K2j67fOvVDu+S&EeGBm1QTa~CNv@h5}ghlxnS_R@S+uA
z?C?Q;O4~_m$Ncm3!qyzVeFKvTHHmfrsgoTrL4<!Vx*b>`junst>PHt+8)%^(Itx?o
zM#F|9Q87?4o(hf}VmD8uq~W(P7zF>LCqo72fGi}O<%J8uzy_7|?!KM+!c)AiM_ayw
z9)O1yjOzH)FVpc*$-$jQ8>T+RxZ*5(plkhx4F+fir14b%|01xQgKpF`5J8&fjo-c<
zd~14R=S#z>zj1JidXw(s>G={}ORXT&3z$>`nhBu>vFAuCLJ`oay_}AfN}nP{1g-rT
zp5jfXq|*~wH7QvqRm(>j?DH3F|HAs`Z})xXZS>#h-Son!Rm>@#v0WfmFKF`)NnP2T
z<ohqqeJ|X$>2P=huh7@VwN4!Jd^w6dGmO@9f7FWL{%E%Hk#~xn{gB?AzrPGVm7M=H
zKTD6(bw`YJTTHD%jlnso<O=I>%qU}@XcV#+du!UdgoOpY2QEBvS5*Nh!rBV1-7v$*
zjc2QFhT{ng*prcAM*~@uX=~9C=0gU)d1HEe1S&V1fRltc4z*leh*3Ye`zPb$q<c?h
zB~J`xNk`A<K!vIv;(1Vrwkk=iox9=5{c5}RsI03>Q{S>~!wmA9KGmr}B``7Sxi)k~
zt0j`g{+=)NEnpelii6gHqcdxOxC<spLaoY>lYi5u5aTq|@y^B5@KH?<<`aFL^Fb~>
z>C|6;w3`DLW!oW(;=bS^W*lB|_8U)K2Qp>zq_=P1){M}=%%o~`Pyg$m(m2TT@sOF0
z?O3|3d~_L{ckX2_;|!L>jm#+Wl-C1yhif2%RCWYCwF;>jA#!5QWk1s*xqtn{AivJ=
zA@dO^K;OYGpJ<z_Z!x<Q;O{D+cDXJrljK(6BUq7wP5siX5N>p2K46>g%6?8jZac1A
zQdL#mHB@(FD+YGAmtRh7^dzB%e_e{RV*;9cW6BF{!C%w`65E}vV7HCB;q+X@njT$1
zq2Y;f=Bi4cC=Rm{C1ZrBO(Bz6pw@xBnKd|%?{QRD;DzVeb>Qh&o%;mX-)EuuI&Q&)
zx<4L?8tals@4x<yqa*4XL)a{<kQd)YXXG}VuH@=RFtG12sOERnjGWMGSFQwmmotgj
zn6C=&+1d)tV^-<mY=!y_(!+8pDk>Q`;p^P9WdLGn88EBhYh<r3>GJgQl6B)@VIjoI
zkkbGwFvXm=6$;FVI$aH)K<>l0iJyNRck~`1+7^uAhwcVlZ{^tNzjycM$fZ|B>ZG;D
z9iMu{uGoYdo?O{$ZjD4P@e%W$9K^8^#(KQco>Y%l)sB1K<zw!T;C*-<?-ogHMu8dy
z*V><D@ySlid-Gp~KX7)mK$WQBk)F#PYCi-ky8+pefr_eXqrMe=J45QFs^I$JkH=G&
z;N2-{jw)#<pUHL`8nmAn1PA2~x>*nSN!bQqd*@klVgkIT$39MM<+a<qkGMBu(1gjN
zkn3MgqF4Lb;SYBZ+g?Do-m@GAL;nGf90`gQoc$&PqZ$|%7FKW;1I7a#2Ep;Z3q|IR
zRBbIS4x-W|V@o7ju+2LI1ruXT%xE^vL#@5hRO-ULiP8LtdrT9L>!3JRpV<8L?!HB0
z&kJ5K7&}Cf<?2D|?55zl4Hzl45^aBX5Zo?%yNprM*vM0Nwz&)n&=rWX0&#k>P3ZLC
zMWhtnUw*piIV#kJanD7a?mErWly5K$$&&#gAQ?QInc9pCf5nAKI%#<AS5nH0@GNiN
z<|C2?=(ry821~nU?w)@i2kN}#U5K@1^Lk}KN7~Ij5yI;AD}kxB;~vGl7hgTyWBe|_
zXk_P2!N5X6Pz^@yYI^p1&0v%iuf2B9xu{xv`P+L3e8zgKbQ^nxmcL!VsGIO|cPJ0t
z%6zkrb#DApgQD3Q>zHsz*zq^dX8u}Hdf_6Av~FjkGe*H`%IW;Gn2Gs^v}9lwQfs#`
z->JNNjYd4vvb5LFn&imx@lNu45Aw}mZo%D$=1%fpjvbn0f!;rcRpZCOL%-C+xA~Lz
z()aJH&S#XCmYTU#KEO#!;%j7Hy#3hYWnGI_ZdtQIFYch*^M8J;8Nj^1H80pk=hXnC
z-x3lM(xWs<Mp#%-=Wq?d%WyFBP&oX0^$zp49XysyZu#dP4wDD!#sB{O{!cGa8d5M@
zF^0HUO4w*DEU1*4Uk_#8r8?UTqxt60RhI!cBl8>cQ8;uY$}n$l_aV#KMo$rk2NaH+
z+veR)!xRD%EUI>myZeov32bKGdXYl9&v`T?=V_mN#%DFqo>*P(#&fZU`LuUi{p*#s
z^9cxGdasr61wVi;XXCB=zsFYdGS9w)mXCu-KKZa5FCkZ)i3BuIHvBPPF!-7xDgCD;
zzeAYqlfTUXhm#e<RX^`6pLID5nO3tuH^aeK!Hoy=x{NX)bT(h>kUJ8pO^bGQrQ_hf
zGW&wcpdM&zxhkr5NK&>SVo+(>2A6anUy0Vo6}9jJ4RKYM?;<zMGD0=V0-7UwaA|_3
z7yHeja-4~9&$n0%oVwg6d2<-|&EW@}4+|zf$C>`Le}&evw4wJx`ZhKQG78h|C!Qob
z`t!DcSW7~hNk144=Qh;k#=zHQ8rk*wh+<}D12~E<=!DOZ8fjk&s+ysu@q5-nOkptk
z3+|O^h`)dTzCNFF_7hRM`^k>Zc{qd7zKiacg(W=6{7%u)q!kH|GebYWUc1RN`~#<g
zJSxG<ypOCu^!d%5xRkiGXICDF`E3`13?@68kPC5W_j>)pXxCM@dz;`s)E6YpL1P=a
z#=CACql5{z&d|FA6d?5gA{nR8n6vC{vO3L`GX8uqsPRk$s`a8!Y*}sH9wmFU=@&*t
zWxHk1ox<LXuXL)V9u4RxTfP(M=d3;5X=j{nrq^>qX<UB1M}+%T$R^WOh($h*+<vTt
ziXAm~L8kZ9N=!V4LaH>%zijjd^x!XU3NpcngR5p3%~-&>OBBH~E7+lWGBPyKs1Uw^
zR6(xuGk0f^OuEJzP%(@l)%hO4dV~LsMNZfeSuC>bEVV<KBD%;<rmr|-hS7ESav@}@
zjR}aM0}~QN@n)a4Aa6f{zOkUhK&HvK&o#4Vxj+69fok%JWD8?<#QRb3kfJ{l8UkQD
z3npPlfkzJUvs<xYcA+pydXzF)+OwR=GnJrrQ_#VXm6i29jZ(nSHyaGdi7l8k8}yeq
zKkK<l)*~Jk!lS{@?)gniCga!t4fFIrJ?{VO7Vbaw60w_1XS}fikb4i+{`E|^2`-qL
zjEu_h<06)Vj5r!9Iy6!{q203WY5+Q7jd2WRk+(SOAuMXZv@$2ucFu)umL@=eo+^S+
z&YOZS_Md!xYR{3!!mr51q6*lM(BKl<|KwMOL+0;Y$ATaay%A&Z{(6!(3={FqREoi!
ziu0OD7#qHclts5*{q}*4iwiCbaLLP6{2xignxB-W_Iect++!Eph8Rx?A8w*Jc&Wm!
zD01Pi-C1yXl-stDmW2E9YUHnyv}JL^6&7v!<&*&}*3nU@y^{BH?4i!kSwZ3It9#3j
zpK%RZuffT+^Nj1tHwr;b8wG?sBR0A=YpZKFcmHsTvr#xI6{qmVz^CSH+ug|I74w%z
zmg_MXJ=`h$XCLQ2kmX#3@o8s{HjzrW9x~%X#3oNZ%}F1KkiHOE5u=53UU*@Jyx&rM
zRf+Xzt4;;~0eeG5PAuzAzK}D0Ps=v-HyWAjOE5h!uHdZjXR+g{EAchV?b!bO%Ngco
zT=Rd@2mKe_l+(^XMD^Kx|I?^+-LJk3g^3yb%#%DXm*2vt5Ey5@PwnVA#QJ`YfMZ1g
zOE=tFec2HvzTDac3;<c6LIEg_ScWmPorAy3Fxs97%9kGEdSh_F-UCeIVqqa&vj)t{
zy9emtJrJoAb@S+J9Nw^W?YsdJ%lkpFFxa>v!@@ADPjp=#yu*hx+j37ZZN&X^Gi!EL
zp+6H^ablJE07CLD065gs1T)^lo*CGztF_*m-f?t<r<6D<J!ZO=8Q>@i;qQEq4h&>c
zNO~9f$$K#N0&&0!QRf%M_{n<sH)r>w;vnjC!rX~s1j3(_{@Yib^{s<%HH183s!)Km
zHf^skPTC3p*jXA1Qr#(?wnCKLSRn5TL|knQ;?90!<FDI?(72lk?YOH;#1)?I662P#
zI=g+h6tCP8C>@{w<RcPU@Zwv>d8uCSl{@rRC`xAd-(=}(!uYJ>=&FeUqY1T!1U%`X
z%6z-!Wa0tDWRa($6?_5NNJ&Mdg#ATX3%UWE(Pb(cWReHWH>h`p%@^P)@rg1=KR@*J
z%!GXjz|GzioQ<cvTn2#(Twea=PB?ormkGa#VZVw5V?7cAFb3I37U6k=NZPRco_#fb
zqu(}kzf!Q>6cQThv#T6*gjHb2>ylG~BQCj=(`an<M&Pc|kK(}eQsG>ABSEL!hYzE`
zBxi<|Rlj#NorLMSk+}k1KnOj8Ct}XYe*wqS7&=_CNN(#P<;r*B1LO!M642~+bzAwz
zhx`rb;Jt_30jF8fi_<WtzJ5>2Jgo!nm_1it@#Nx9d!kjp?&TYut$pn(K-T=r$JNxz
z4E*q@5|CW$LV%QoWh-E(1O)HB$CxF~``WZ`ejb|z!uqR0yZ7(kcY_6zsU*w6%ECg<
zRTK4mvBW~=CVOpy8?Qtm@<}x*Bd>mA1o85Ez}zmVr0kc;K(XA{y{(QJQcKL4Vf2*a
z>W8(J9mKZ(Yb5@1wK$r4hsm=G<}g2FJ`-Oqf%6hmg(}~Xz@`g0T#&#Ou<AcFDE|lf
zK8G**sx33k&9NL;5<XyIQNo&9EX}c(NISS8NP6sI#AI3K*ipPfU;;>t&wo1;fv$>7
zP)HxSCo(V8XY!vBO#jy~WE9dD^hm<fbi*`FdDE?W2V`Wz(6^Co(pUvzPJ^uUPbK82
z&k9}$({3Csw;wysj@)&JOZJ&<%(w}%LXV@ON5$G-zpIbV5#*nYM=W{kUL2*PdXGz5
zD#%3e#OpOdy^Zfsn;5aEyFLe7GLOEd%wZ6Z-;oAa<(^QoBVuZIhmpMmy}G?#v;ppm
z%+&r)G{*PXL!8K=<e!3+{KIKtByHj@ESL10hmFT6^N@K`*1U9Uz;Umc$BQkDBKTZa
zpBMaym^N-#O}wqoQ1|t*$IqfihX+co1tf=vBcqz9Md;IR?YS1Oih<K}qG<CeTazj^
zj*jSB)*QD?tFC%4XZ=#7t~%w-Y3ZgUuh>KV-3Mge2tHlfcvFz>&VSYO4QH9L<f+xu
zN#B2JNHpzz{=3xk|KMGygzjDOI`ps`&!$bA0sv~mpwU!!AkZs-0^EV=*z3jQbiX+@
zv*w&9kK7SNF?gfW?*m<>*vMrWuv;S^$lwclvV_1Gb{u&n&Gy;lbm-F4euIbP0#XRj
zX}&IWAo|&)!B~g><pDA*h>%^Gkdw~OBCq6VW^U{FTX~(~ayhpQk<@Ny8qezd^)jF&
znw(t-y%r9s)Jv7oq8)FF>mg3(dStzO{#B-%^!Ocal3*(e+}oSUVEB!-pJyh1V2cBh
z%D}4hpn^dGJ3MC;Alye{Cg<*PNbCgb>p}G(MgX{U+ICvc7G+|W{x8Vspm(kwk>Mvh
zJD8g+WQz@i`~g0pqEdX)x4lYAN^gv6rD$wb?Qq^TS|y<~=ecN<3McU7OL2(L@T0yS
zCXvXnl^x*8N!#@Wa_uKC(6mud(1kxDft!$#_HsMOt~7=npubq-J1g080EN-B@%CLe
zxP&i8;A6VCdzscV=_L}0Q|E~-eI_0yftu%uQr&kH+OO2uB!NlVU_ah$fAy+KJpNmV
zn_DeHv+`Tw;~b+JZMMaN7LkbS)Gf{4{oH9SZ^=H;$8Q<((lYE-n0~>K^0?IYLwE0f
z=d9Qp9$fLozdJrpd&%NYIuC;MdyMv}n%&6E*Yq7Xv9dk;&c(8%w$@Q?f2(AWmq^!>
z)ZuH}8zOGkW-IR)j!#WKoff0*)4ylI$lpup>K@01+aI}#8R&Y%9qJTIxzw2XtF!&!
zgSk=d3i(a19*>6BRJ?A`5;?D(yz6K5F4f{)ZXvgPF?zvRei^GsyOym$b`zA_3x@VD
zmR^3?@5v+FPUN%ZzR#5=$Lx>Fx(QzxYV*?KP<m2R?rNxA`r5?mYl5s^_ELprT-%^a
zOwz#oV}9!`-+UI9NZZa3t?y6PkKyS;<Z(IL<-ig|PQCH+-$IVzzm!2KM>sL=rxm0L
z8qj6%sr3mE#++80;Vs~v0?mzmwN1@1Wb>6B^6`xp`bD4`TtH^w;pLSj(Z)6~Cyf`K
znCIION5s0U0#OjWvNg*u1z&g>(i4PA{Qv?g^{h)`b82c;R&{pHY&Hd#ks^^OM0vjT
zPeAFth8>k!wiR?xCsY-(M*EX0#K!jQPoCKG(={=|#0nUP6N*8y?_bJqwI2U`E@YEE
zDQ+}dokQnAl+AF@qro3<>9^pK>tS?rtV`w9MJf>|S3fi;s%?0i*NS*h0zir`u-+)+
z>>~OoX88DFICi+%CrFppqb%y`bhdTOwM>A`^k}5^(ubkt!m=kVRm;Uv8rg%t$mO*{
zc&lu<vmEML@4>{?ZHR6Jh%ydbIRpFweU6x%r^P<zE+%gy8mhOQLlTtqNh~)n5XI9W
z9TVXX$d%Y3=Yt0iTG)<7;w}CM@^>KfudtsOTgP1w`Gb2Pxo+FAql_0v7oG_D_36kp
zp>jBH?T9wTy!mT^X?QGbDZZ2=G~ilW(AfYY%)1k*yT<H4a7)b#Yn%5DuAtucTG2>I
zS~%Jg_;AdXniHVYa{v(Lb`=kuyjG4X@4Qw7>E&&{LJ~P*)hOP#U<{RSb03J#zw<*e
zbfuGH3kp}h6JIq>o?L}Hy!g_oCp5LW57Q8I^?uPgS-PZj@QF5*{s%a;FUB`YFE@zU
z?psVyh)s{XUzo`kzz=}|++!1SkE^S*!700%{M17^j2#6CL%J3P+hD$mXLaZ|_aPbZ
z3%OQTb`I}2q*vPO+Iy47zBd3yf$9}8)FhGyZBjrNcc~Oku~3~QpxTBQzp+bz5q5BM
zqpx#76x{?@)%nSU+!sWQ6&f7uh&7&{xZO!G2)5ad7S=FOrOa*mLv@_d8z7q@J5d}5
zHl&JX6a5+E0~fLs3)s?n#Dg_W1}MWEXMT9!Vo71>U2~#$-w73i;E)g}WI9=p=g~tE
zZtLYQ2^}?={jkkh##tQYPi`}>_GUM{M-L3yd$8bqOgXC1o?-z$T0MT1dm7m?oV9wX
z-Qgowo9M-ZE1ju&T&uLspvx11I;JFYLeKm6NjB?A?Y}e_z^uB_Z<B@m`gdrC+{3)?
zOk_5z0jm)Ey8_h@J+L&QFwFM-dFheL3M`h*OphsCaH@IzG|KBW$<g{>fP4QB`rQ8;
zAnt!^+({w%nhuO@SPj8FM?xx5eQltU1JcK{Tz=B_b_DJ_Kb4kqBS>x+g?^yzieXBF
zFHDRxEJr5(|FG!SKbO`!u5)oDGDiKCit9FgqB!heBi2*(1Jv*=)L1zPpagYi<<3hd
z2yKB59xF&NpZdSPe#j%I3y<E7Nk&<857;R#XpP^Fu@o%8f(a93Vwn_Q=%TVmd*jz!
z9VI0e5IgTehbx0N5H`)$Gapi8ZlOVMQWxO9C=|>Zpqk_YicoXw2geTz_Pw@w1zU2f
zUBOX!Pc<*ng&8n_f2Y!?aKB>k9+SQb_0TIl)jDnAp3kDAw?Qwb<B_<T{t@qOyikMe
ze<Wh0jmUT>Fy>|8Zr=gSx04owPLIn4U&_=4_6b^F3ZL!l!EhcxCmJt{Qd<@_bydr7
ztwn?LbGQUEsVt~<`MwL(H5hK`hL-w+K2+QCEbrdE>#j52<0ZG=J-fKD8wK3*%G&~5
z@LGp4JZ;=6e+=M(BpM&&!%gfaMrzAzcYTz#@3qV;xPlcS3^Nizqu5~+Q{nc5skjH#
z6T|J1{c1VJIHP4r`ADKIqTyAnat*>uuYQZpDpM~I6)a>3lu+7D7Mt{LZwlUIe=KqB
z@&XQVVc^P|%@s%1FI}N!s`SOQSUy*Al^LIqkn6;d>x3it{Hb|SOE(<7hjy4=7<8q!
z1awyLr4GbK?swx!+~j^h|DgSRu?^1UC3eXWFzOD~8Qa9oP13<9*~E$pI5iAj9NzcS
zAmyPp6|(@@3Zdqy+9qlc-WOuz+V)O;{`mg%`SOa#jxCw!oES@6x&7P`+J;-ff!~PR
z04TQeVh!X6-XBl<S=!!A*a+%pB1DP{j)-u<ol{f*W*R@BU6%^v<~~*%OV*T2O7(u)
zPUTG*8OqZsT>-uK%*b1yHWrwV5br$!Ca^0kSkpI)3YtLsgkW-%aWg@bWJldV8*|zD
zs$9{%o`DUpoD%gPXdZh+v8c02gm#K}YS&GnGtyk*rWcY&dvX99G|?@gM3)H#%ota2
zU&pqd{`=2S_Bug9uCd&#C&Jn${ejqUw3%2~sQ!Q=Yg3<S@X1uGOW~#4zJ;chX$Txf
zg|eOiCbauxLJcnv@qQK5TbwL_Iy69B<)aJK>dl^@D|1KQ`S8-7$rpX_rrq4F?f1w-
zw^tot`#CU%6Tl1e|M7=Ch#MQgn#omuA*`lnl?-^(u;y4FPGh+!(W|rZIDI)rFp0J?
z#FXtc;2AmGL-g3t=kipwh6+fw?UeZ8@XMlu$Ue+P$-(8gpes)Hn3k4rWY4R8`+jPC
z5WATCa)9pc5I6U#T^3i4sj5Eg>#VKiWmA823kQzhmaPZ}u8;UNajjbN1{?ol55zUH
zCKvqu1&$~Rt_>^();XjUv0A#FheCyRB3J9%vR(l?uL&A+Wqyk7o7YgC{~fRU+CcAy
zrxv=m8xTXpS>6Q{)S#ctmyc$K2PtB;sCDTgq!9~ybSv1%e!e7js)rp-CGT$Fnh*t2
z2KSHpQnsb7u+~1jgNITJTXCSQ7II1L!twVQvynCW8eeuO{%2o8YFO+kjhWgP_PFuf
zp+_<@3=;GT9DM5;{M=q~Kh7E(SEt$GMMYPk+vn3^`I6coss2~(1D>bq8px!!$JRk;
zXems}E8|pn)*(pP`HhVt!uq82Lim8~&#EO&&%4=*T@m88zgR_y$9pi$dylP7RPv*v
zblledR(O07+7;9)JJ39FX)qyH?PqCe!>!k4f7r8h?VTSD+Jyz^V=;dAV{JM@np?kV
zLN%!#y+|&Oj;PnY2Mnsuu7UC!%zA!|9|q7xSw^~kHnhd~sT*@TuY3XvET#(B{yAS0
z&@*=>jUles`AqzAh}4+jT$3UT=hiHcAZTEW6FNgOkRtY|vWXr0*ZXS&z?3^~0}<0_
zQDBc6ie#$uSAQ@5kGt%_&O09uK?p9KXTDQAzP&@V;$dsuNnoM{s9E*km4B+Kj1LIl
zeyQNc={NGFSr<|gEG*r{e&fO@f~mcJJp6%Z4($WSQ+pnAxL5*QjH&V){&fEPlNbd*
zsj7CLgm)%?l?0^;oIc7H`E2Y2W{cW%TG!rnbc8>lLQjqUI+5?idf0~gAM#)0rK5zA
zg$+{=?OH>2^NQ0f-Gwi<Q_+FL1zW)H)<D8qYytk8$&4-SVQkj!v9OO)Nwt9cp73PL
zir6P$5UD$~K{wF&3zR|K*iAld%|>GK1Y+@`I=6RoJifXv1#&Pvbf0mFf2F%fnFCfi
zgPOmk_)IokI6FBcDDI92F$u^GZ@J^j7X)H4V<TD8<4VoR-bc>)JT(Gcq5OsN;{Fb!
zXU*6ypJ}^%!y7(|g9r5vbJwJ7^&I6|+Azv`c0uY!u}6scdklmS4^Ph@ueqr35N=>#
z5bhcIN-{#oK%m0&IQGsq$eFeefDy|@6%S}eX4#Ks*=L|fOb>x<6zHu((7s-R0caQD
z&G<36$PH2Drc<TDD!>C9P;=GLwD@{+hs&yMXATnnKn0qedS}}Yy73re?Ckm4qvmMU
z&7d>)E(!#_?8`>Bzub8Y>M;$%j`73Fp4}-eQe4<-w3b#@?20jS{8a2~0VKfmPD<<L
z3+~g(6!h$wD?_OiaW#zU)ub#;YaS)a4Efs3vG7>+)RzMZQg~(7bZX<YuMpFND$2AM
z!be7dinsz3uB>uC_U+kiPAAEMiggepDPzmRe8BC{)mce3cDR98t3n$Z(EHHyXv^un
zK)Eo9s=GAOE;chtLuXD{s!{W0yft$Thk{YIqT0QAat%A)a3K(O1jiF8J(?1@0McYz
zI}6KC+8F0CU;UJaQkaRNVTyEz3@TgJ34<3JwpN;4W$LegnQh&%r9FdfWMB;ZmbS{V
zxa1d&m_v31VUZ`OJ3Lr5P<G{Q$a2o0cd{zEv=IyV*uc_l?A*~UWY>MS-40(VXNRWD
z^|+IRz>D00!GOXdHH_liQ}X>1KWNk7>GfI&mwW?mm^1M8uFj|~EVpXg5TN3-S!v*c
z^;@|>ui(s}C4AylrJemH1>?*0nMVrXOg0echcYr(F~Pc2G!M4k<<<afy%yVuM5z@&
z2kL{-$YRdm>{j)ObGxCD?ey&ttn{#+mF5a;ysa~YzU|R_mj<6}<0EaQGg`mG9ov~L
zO9x|oDx<)zmd7;&KL&BK6*s`MUhZ}M2s2hH8i$=H2D)ZUgHcjPoaV!$l4rJge@g=-
z35o<7Ok%a~X0fb0fZImf%lH0W8WW!oWJ;}QRKA@#5T8iftIG8@r`5(gj?dwUvtd*8
z**DY)Bxln7b3E>$`%j^0@Hy(pRjwRbzf?_HvBxJ2_H=+AqJAIAxwTI|8CqFm<6P;N
zgu|OdG~i|w9Bgvwf#R{Ri|s#L*1=etLI6K(S)RzbA=l+SHj3`oYy-p5!|UDefbb<j
zHF*{miVWiuS6?&4>~+6tZFH6THpJWcoX&_dTFWE-xTv=2iF>BOC26%tZI1K4W@<7v
zePuu32EL`Ju?6u-n;<gPQKn<@f||eeKtHO?=YkRL$ei3;$?MA06-8zUy;%b-;SZO+
zJU!7|D5=j;3s!?@i~o&iKOwER!bY)$rf9RuyNt={g=Q|D(0nwvMwhD+raHJrR~*9b
zcw+Val`)R8OonWEAE~8=PYl(51{@Jx1@>XM$!J-*EtN?EgM))l&n{jg-(h5ui&OD}
zt2ju(6%Ed^G8q^)5daodrYji!X9n94UJbMnpzPz-P_Og&=XL}((T(-jLi*L-`d;~a
zZe<6eV#8^F=NeP?$ItGiGXy@AO*jM#-Sz0J_?ao_-0I`A_ggs*3FQ#o2+dLKh)?Yg
zAHpECTL1SA;1oQlwgdM4oqdAxoFv=tuYz{^tFvudF=pt32u5=N%qnr~Ib9sKCBi%1
zv%h^iQ4ys{=|bbjQt}aRRgWL<ykb2cP9rolOM`BsS9ylOK{#1m;N{MajzDXO>=E7o
za%4R@Lc1Ci=#tB1i!Zer%48tnJ>ERzT3cFGb+b1Jk)6~?WqxMu_&~g)V*(Ub8p!$F
zm^dwZr7j%;+jkvZYd(%Z4Wm>Px06A>WNZ|v_a&Le64{8KKAmD0ca2pHH-;e87f=>t
zh6f#J3CX{_7;$k@R(NbtWCW+tS0f2w#b-h@7f1wV)|?TLbNfc0`C$!KNU7C!SDJ|>
z5eIUtynxTI7mm0>@Y%0A2ydrsbuXOa22hIgUC>AxXre041%lz@Ggxb`T_mR16s@n8
zX`UlJw8uOG7K0bsf;C^6If6t4kl@&wZ?`jZ%<Ox2Y;ZpAXxEMt<2){*@UHPK-S6Ru
z5y}iulB?e-BIAQ_Vo}yfigGBsTDYO^=B^8e(gEgp_jOc>Bu#A1Vt1#RMxO*V5$n03
zvavyItgkqJxIq+AwhjBd9k_M0Q#?Zbaea~wz-V_$6^3EuqUU>p9KN2Yux<!7Ont^d
z^|#M${@NamUZk<-2pB3mdl%bv-B_QW2uBBgAdf^dYF4dh&`n;MG@6Q|UN!4imIwD%
zi$rAS=M3}|*4liMYhVrG0?#^M>b&7s7I`mMc&1qP;TB5CdXU_0fRd4F4+yk8WP^cL
zdUWht?=DvsspCi4QZ|zBBzd7l7`wpsizM7JZ@FY#*&mq*<d(vkJqNcp$u)f93KZBb
z4GsZ|)@e(I#h1eti}MbObKRc5E5_T!qTIcWQySS$|Bp6LSCpIsy<M%!qx$)G>wiBh
z&xNo*+_)xOheNGA3*dh}>s(7W*YT#dC(n%Ml`fuP)SG?W6|VA@O@FynXd`kc3G<;b
zK|#TYs1<0@kY}cA$#_|^5zL&ofi1Z}W?|y+M^9HCIelLfKih#jIKeWA0NQNEQ5F(J
z9Vc}?$1kxtXI*bE=HjI6k%`+SLiqO3nBf7l>JzVCn$$H=5=1)NpfJBFGe(8M1#wA6
zY{p}`|88GLAcHLJDK%C8NQ@4&YBC8-;Ujq3Hu4?a%g5vPjlBUeCEbN6%fzlCJ=c1W
zEbc(!TO5Kk%LxVp(UOP06|7->Oxletcu}+)y~>xuPDF7(wH>HjiAmJSpsW#MC5w6%
zfg{ERd*%=rrUy6s(?>Up-Q-9ZQa{SpA)&rO7raZP#ViC9Q0*PY#%Moa;(1!@(*<+X
z4VurTly0+W)2MX{bP?b5@`(2mDsIuTw_f}4h04iLmVFN#wjSw~BRDBrT@Zz|0B1>Q
zjw{n&)l;eGKknrAR{IcB+h+IOZ~y<N82x9|)Be-3J>iomLxDEDnc~mnPiX)P$h?Cl
zAlm4m+|$D@-w!(BIRhJT#LY!tuB{CMT#<pXPYt4|>guA5pPy&@VeRcpBIdA2#;AB?
z!N<qs16p1VVBSo5F@I!_ZOwDlh<sjiEtKU5w^JFFx^NkYoD0<;0C6OvU+bpe9LD44
zAj*J?)P|Vy9{g%YR}_pBv99!xJGv4~Lq=)nOS9ApWE2+)Owh@804IW&)&bwx{MK>z
z{A8C0Cps>ZM-I1}S{p=d0WMNMTR5Z!x^3+NsArHl<!}j)h=>Sn|3lxUcfIpfOTnlV
z9=QMrxv{VqV>KDbHs@<9jgO)e%?T*aexzlTr16`I2^^xt724sB1`&zt!G!4};APng
z>#?Pb)^9>98SUTT1)@(EWJzOnD~JV2Y!)WTgv!)N!S7MG5Ac9LWoIj*B(TBP^jJzJ
zdPdSRudE2JjQIWjaU^`8isZueg1tf9pV<+?jfpJ*ce%OiDZ{1yg7i|x?gs2hhmOrB
zqj~an^?o9hNe?v9n}X-PD3z5(l>%)U7}^yDvN>TuJaXJ}Zp3?t(F3eCE|g>o$SDi(
z+)7055(CKQjAP0dzgd7=w%Dwbx{I58ye(}!G`;lA5voT#!JI)nAZ&#L>)rXT>}M2+
zqOx6alLR9wyM*N25P2(MMFedU!`m3T9sBY2Vj3X$vjQlQ4zY8}Ea8mVu@yk3>9zgs
zm6~5?F=`>vRkUCF(43qZzc3$!o20RKT;oKjT?SHySSUga5$9%WSwjTgfK0`?xrvOA
z_)O@^et~k}Dj?<)nhJDkc>){b0z0@e?R%v-mn}yg2cij){<b31A}DXOM%?Dhh|k*}
zA?V9$mKsc~0LR|ME9vm(s~x3|RO~1hHwWB_PREX_=J54vw4gP@js_*9=`{5TPvjCR
zE%pn*(B|f*9+#QNe_=SULt!8eRNK&@f%r5IGWO9r5D=FeMJGt8u^+BQ+npUWhuFN7
ztBoHM@ZcK2)O39+X-$*40#VYTdmMt6T0W)iG0$Z5&_}fy1AtazpVO&Ax8Mc$rn^HM
zzokONqyEpOM;)ups|3((!4AbICwMstz+vAd736D!hzZ?R-DCdM(UH0rM*2BysYAXp
z3LTp@O;O=~v|TDAC%zv~3yH~t43n@#>dV!AhJ_wa%LbG047FsQpvbt>rdh%m;pqXg
z6>!|ff6v{J5oy;SdID7|Uz1BU$zs-;K~Jt88fYVDstHZ@t*6o*E?~mN0&t=Q-?jui
zlC(DWHQA|>n*SnPRZWe?Ei6w%umd(&o+Fh2iDm(O!j*U%M2~$WeDPRHji+|;;E$Ut
zv>oRQCagh;as{!&=p&aCzTP^4P6cz5&BzTP#`$@uBuI)C9r2EU+_T^zR~tdUGsRVc
zTNh1b-EBG(;^bqAdKE~uQmX6#`&xmNBBI*@+`QlE`2vd=`;1D!wV{~)hmkhC&G~8j
z<!f_*E%2p|RCi`#xHVN;={+Ehy-+ZC?k-w)#F)@>127=d!0#7bYT`V4^>adfQP-vV
zeb}HKqd=F3k$$uTNTxhD_Z`P?m?w3)Ahr34$x-uKAiumoP;NKS+*ZefAOdJMXo^&u
zDw{{Vl|oLHlA8*s_@mTLbXu|b=^<y8qZrchAd0i@X=5Em3&m?VyaAjSfhf;r0F@dO
zg4@2qNb3z4z^{M)s=33~51rqNot^Tw(s6b!D0iJplLD1X+;teNg*+EOlo^~G9v2mV
zPUYf?$IkqQFfp=MjQDqK`Gq`{<GVs4B90PiP`#PVb=#<2>2Z@Mhc#Aj)s;!HG69E!
z2hho@*a27jPUP<H%16asWQt*Gsu$BbjG=%wpl*=R5m)tnbR0Wiz4XsQ*YCTYf~hEa
zGSz0-d<1!LYE5$+f<d?5=Ex3fF~~1*<Uz{ut$3PHEJt%W;C=C|718kmUy~2H8QRN^
zx1W~|Etg^xxLM2=VkicN*GBvVV!Y$$Edz+_AGATCB472S1Vqq0Rs#7A(}))Y=DHMx
zQFV5-J;^`rC2Arz-&rG-H|uDC>w;C=cyQ3aJa0ba)6{Y?L$<jZF_12#^37aQzPTN)
z2QM<bJh`#4kw{{fdN;LjB*M-$pbTM>(iA3tSjr1XJTvM7K3`&B0}E`^dRWH^z0T$0
zO?al5K<1P{=N8>X=HVv9Xrt;=`H%(j*U_r9F%2TNn3WBp3XlbmRS!~&W-j58Hj)$A
z{(4AH3A*Qyddeer!=U=7>Y&ch-z(VO7_GIcTJkgr12`*>o0kt<W@TJ>g&vRH&d^}t
zfEsYNT}?%Nn0>QEZT4kM6BwSZW1vm}%MWp)m1r7w0btF2RHEa}uldsW5>b@aP&5~Z
zNFy6kMVDU|iTW$WUWRwI`8r?cgSNE=fTFutSr$+*Drvw>Q<zF^X_!sC?+c1f&UO*0
zwj<|^Y-l#^`7|lK3d74zgWax7{3r@B0L+k0tqp&zr1Mbl98~PDQW%T#bm$OG({KdX
zc-H85QP2xlVxyV+(eOHF1kZ2t5)tB8GP$8h=umD`$N(WT&bt>6Ip0MRM~h8$qAaUW
zv$?1YIZfmcTsa$AC*Y=Ys3t<b3Jojt+IJ0qbB{tMg(`M)K5Bs4k(SJhBajY2)vUWb
zZF~o@cRPlaCv>a_Ijc<jCyYl+VbE^QUG-qCi0@4I>^0lAx@f3;+t&4m)2VMS9Sa>-
z1kCv5&Z*?<2mV-7KU?_1lbN>|?o|QY`$~TQW7~a}6?@M7=Cfvt;OcvEwbBD^!)AI0
zNwHcZh0W_uUVZyCU+lb}$;z%D!^!zS``2^z!KVpBg3TGzZy@xAqZ9|ydZT#~=|v(c
zGK&4t3!}BV-2^y3O{3y@h37_1)GnA#`Te`T<t|R@(U%?{3Y3#oR8o2da>8r1)q-A!
zwIh#1yv_zvAW1dS8fMB#G654mVbD)ft2I0lHM@{(C#P%Hy+CLp?5PT--n*AJ=<3+{
z{qu=WhP(O<<Eu#TQZ7X7-kVpiwlWxw-c41T(NCzm_Q|q^+L7guG&^B3219w$$alBv
zUC>G&x7}W_s;Ff=r6!$^4K$21HHQ@x2010n!{lsBR8O3^@YxU&6N3mOBI32p%wn&h
z7$3_ye^GPPPhb<pNB#SL(~gW+v$~Gs^lRIG@%{UFno8Oh+DTK>=TBo%_Jt8Tu2~Jp
zu0md+-L}arsoJZgS4Y+@8H8!yK|~(?ah4=1*SZW=*JsouQ(xd_J%|=H2!)GlLBClY
z)+`+XDvfn$NXYl_BrN?f=fhg4wWXNxqqj}aE2kvXNNQC1(et1nYXx8N(z^Tx^Q07r
zue=<`p9#Hc=(hMYf}?lwb@+vTok4AkZ!7ir`}r$WlFojP2n$=FF70WuIw!S_1aOXw
z;Z%xUuw^jn=SrYYYWHpgHX@BAX7$tR_Pf&`p&=$OlgU%s?gT2!OB%B#w?m>EtH&TQ
zwg&@Vn@{R~1Tgjh22R;11=E>r5sI_47H<mJ5o9);{}+~)D>rC{867F0w7rGV;+4Y`
zH&w`w6$~7Y(7b3qy9}Z*uv(jY-vVaXx-XLVY56hePu4&Vz1IpJXRX#CN(wCiWJ3p2
z0K=DmwiHJvHbf-KG(;ezjY{g)NHnbEAN~%XT;c&Cra-WHe$6@?UuE#3+A(A7p7{hq
zsA7uMYSv7+mbaB+MhLeYw5!x0F%VdFAurK6C^Ztw6v~Sl2f-Wc{*wWk`EMVj8K{I-
zwzNUHGW+HTY<w&FD~_3&nVrz<vDifu08mliAy<Ud19I+hzuqvD|H}0UV!jsXZ;?<J
zBW7lcN^Q^*Zh9ky2c5|03hL>pYCI;)(tej*gWxayC&r2s?<!p!ZggiO1>Iq*4<<*x
zfb^;IBHo3Ep{hzz$FH^Vm6w<*<s6rO*j!x5^C~Q?-3^tD30t{i`uh6mcDA3RS8-lp
zFcvM8li8yZXK3(83l!1!w9Q$XJKkY#Ez?{j9lKju%I4yaL}#y5UNo-ddQ2b+^zWa+
zaNICAiW77eN2Bo>H-J7T%Ng20Y>*U4kXD$Y4h$VX8hb$c;WPodzol>=1o_s+nqfW$
z%7b6NkxqVqr=ZrRB+09O8h(=2W#10x=H;oO_r1V?VrJpsA)_VPV&VA+1CTlK%F)=%
zbS-x&z^_{x!P#^$gM5#GPww*9NAE5dIFiW6b@^bF4%rHrc$(J)_E8ux@K?#n$z@-)
zU>iJuRt@?a-n!a3daXzY+I=(HenJ``H!&YFKC0T<f^sASKm2=^$hnEAk%=Rzi`n;z
zo#MZLVbBlrf)))r&6=n!AD@w<xTE<?rgE)W8<*Hsp2_1d0}YeE7a*vUue`QKS<kG!
zLJ8=%7s@YZQ&7l2SfXZUmkM19d0$it;V4c*?rd&_=ft{i(6jgnl#QG1%R~L6af7Y!
zQwPgUe|!-O&~v=@;7Re%CsMYbJ;u0v7iD+_?3tI^P$q3rb^p{~FBLPc3XmWM>Py8q
z%==QC5LE4H`xDEXII^B+*0_+Y|A-CvO6rmOR{5p9{I$s^bOP$3JFSjf*G#r3^zd<e
z`b?~O=hL4NRoV${XclTZ;Dm<8-|u&RvyfZZB(Y#WY%4~l?DCbgRznzD1cU4kwG?j-
z=h?Gof3J#<1O%>Sa9mRhf}ZOo)8S=zV3d1e^^f(g{ErlGWIb54O=HjVCgDelo#FPo
zv+PCACSS;lRe@<IHp!-h)vmgdu7y8prTxr!hUW0?tBiG;Xy#%!`d++=!N~Y%-)YYc
zvdS5>mK5Qs<+dTpx>^0QxRs<~NLCS9ehb$8In_2PJ3Ik`Akghj_^S=^T+knX%&Z18
z#qBwKOl#`MkGmJ{m)mcsgjZT#v_mbsa^)faewZ6){q0}G!d)lWhdQ|zXAExqZ|$A=
zQ`F}j$CqeI91^_1rjSyVBVyGl1850{w#q3>gg{C#a#*S;f&vD+z=}#MMn(uLh+S}k
z2<U=jF@ne{kTwj42u6f(iVzioTt@H!<ml_cnN0qK{?Pq}W0qa^`99z0bHCmddgEtO
zrTT@XR!|rPqTj1Nxtsgn3wPu^xG&?fj@2nQjMXi_SGN>GpGfQsC>iUj;-Ja2NSx@|
zoD%f?wBgP5^T#RhXO`|Q9PKLVq(}el<hhJu8H@2+gNL@&?g~!8#@vmuM=$~!*nA~S
zO`J@M#B0`4qfy&l9F%~Ey-L*^{1WzKbNgX^-He;)AyRDlOn1R(&)j6^X&Z+b`WLgG
z#gF%76i<YHo7LPCSzhPSO~0C-xuL-b0Z3*fouB6>l1}*+<uM@RQXq4W2U4fOwQIWc
zSLgDN*AP1TT{|N`-2L~5k>yPYm%HA<I4wVTI-q#IT~23w?)Z-t4*R+{yy?8%ep>4Z
z2ikklbF?Jc^WI=s_fU-fk|q75r7hJ+4eF<6<-X<W;j#AJ3%`Ru*>`IltPPSC0=%cl
zot%sl;*<+@Mv@Ur^O8!$c)!-bsq}PJcJ|WcQ%)P%YtnH#q2BT>(`fvJ$Fpf7Y%r@?
zY^e|YE8}EeX@G;0!nIJ#ciG+lQ<U1YtRpPi@&z-EA>obO<;4?8S4b21deu*DrHarx
zG(KabW7@Ji_hpJ1#4i#Wt_AWf%Z||K___Jc;Na?gCK8F2k+^raBy|imQ@*z1vyN5}
z0uRue73vjB61JI$Q*Zx|9nABH>Y>WaW#ORYw<@!)VD4ySW!AU~LX$YMQkOm^B_ovy
zP`GR)xZ>H}@G?=qjE-+$b?Y9D3dGJq&Y+k9S%p6hCQ_QRv^tV{vnFC0&6kcd;O9jW
zC*c#8GmpB#=7P2`Bag~Hm(bzT;Ia;BcniU&cGh{U!$)Ekr&aFMNLQ-6i~+u7J^Int
zI)z*nVv+%mU-HZh@5N0zSCZBlOgT3a6S|LMw01wAF6w8I{?J2R@)rv*{lLyB1&T->
zcBLOn<V8_g$WxA1B4k1ixbDHo3E{{ISq4t57@EI*5IP$$nIQHSs1yyuUQ(k@`fA>N
zn2-<XrUa2sfkaj0@<|ch4hmZDX3z2p{W`Dupm3<jVxPA?Il#+`CN3Krn}~|ozZA4x
z8pF<Hw(v8uYgR8VupNYIo=^yhpPtMfa*Xwm6KCuk8T-)3M@7a2KhyG&0Uv;muIA1Y
zJrve0a)u`(KIz-WMnQ|w;VJbr8iy0Oh{3%bL(v1+VI@%0@as=%ieDyOVLkfj4o>&B
ze2#l%PjRIE+JU`AaSe3ltu!}pAp1iHKt4i*R#!u><8kL#(6+37x7P5)^tsv$jgtaY
zV%y-<)>K>u`tyucJ1P@~Vzebo?^S<S6^Faj1eJb;g+)Ug4i0#8!A*zn5<_;YevON&
zcVGVf``fqCgBtWgcw`v;jrdm?H+vMX_|KSjr1t`K?*PMI_WEz8cnL5cZj61TnaH^w
zLE5sgwVBwMdXH}?90(OKZ0?tBdw4!Y{R}~Vp)?}^Lek+v8#}(5{d$i~R!*@#q<I5g
z6rRJc!tP%6<N_-l<S{N`PEj6tN*l;2rL~9se0=h#`MThN>=?q6DJ?b1<VL?ZFT5tn
z_hKG6t+q7auixW+T6RGt5+rN?m`A3rcgRI8;vRV3o4Hq+pl`Yhm-gGbI&bJ{9~}_L
zYupB*_(;3ss=!#<I4paB^PMjLX)633`<VUS+`V0i%M~S@{-;lT?WSvF7cyP>Q&+@%
z$swNw<g&WgS3h{dCTWkeHh~lh<4Z+g_8;A0!5I{WiWKK<4fj<$G#}6qt$hdKOEN2<
zA~_bIcuHL`gek?K*JX{3jiso|oV=IqK-59iIk_-P{cIO4UAND)5}Py=CN}ZwLt)k}
zS#H+n+cMJ9R@mCwhICTJ32FQCZ=Ut~o!<2or^rl~0GY{tM*nD`=<pt#&RGrGi~q)t
zNnMv~mu(>((Netbs#8={RQk!2QME7RRfYrkvQPKVG&JQn>HtP^E2vcub~vUSEefc*
zmnOHltR*R4^crJ{lZi|Os&M`cPyiCLlr(&~!;gC}^5HS6;i1uSN59^2`4OS%mWYT;
zY)h3OMX{+6yzu5a(;|LWaAx^;R<2%cofv8TPhj#wRGKkv7X{|hRv6D9d$TjCsb@Ke
zLV*W>QT$AyP;io21%I<ZC}fa}5^PT8-Gfn@o>N<~%K5AV3$hhdJljM=w3?3muR^g1
zWUyI?ZN1HTMHA2`0e=+=^$6+C<DP(?eSy$Lynz5o@h72#h!N?^vtRW3ZzfA}jPQrH
zd3U^cW$aqsorLK7ICEvg*GF$%ee+n$jqtJo4$nJ~%1YwKBPmyUaJ)qR@tw%>k8!jb
zu(nSD1@@Dx&@kX{IN1g->q>ZM0bC=&&+f;IxLvxqcKTd>na&JtgV6b$-D?6($&96$
z2zZo8`|i=6BiXRH^}4@$U30>0%lD?EHy(JBZxpI};;aKxCB2xaS4PrHnmh>4WaY3I
z*K5J?vCjLme-L7YkZp7xF2RSao`sR;q|$O{vdQeV6rI1$yhEed)Jz4&{|npC^^qzN
zXU=&$#mqs(xSz+3e449_)%(sIv-QS5s{Sorw>zNbhkYSP7AbZ|t4PzXtua2nzH-|w
zc5WlR0^99COem8@n8M}}TdSYhOHV>pQ4SpVp*o!e<8HhUh2UUDKYmTJ>cqxo@njxf
z<&3?;&hY)J<F8(WZ+-QI-JE?CuMnGZ_7Uhg_h(I=9N{C(J`Oo9eASH3Pf5#vmYQ4Q
m_=@zwZ~y<o{}W3wGiPYDR9k0kWxu#?u8tm?zW8(Ck^chm#E`iF

literal 52862
zcmeFZXHZq!+AfGWZDkvfpn?jBNK!zNY$7aBBqLeL89{<%Gm0P^BuEmFoF!*4AV`)B
zl0`sR0+J=Jex_%Cb-(KBuI~QTx9VPMpCckH<{I-I@B5@NpUKNf?cT|-lZuLJH%a=6
zA{Et^yHr%0^tNxsSGt3uf8md<da_bi@FzZ&E*E>?j~%zA)$dSI9q}aox50OK+K`Is
zC>80-MdiEUKYJZr545dQrXA1y^#A+fM(HzJ1<hN$qqZw<k&w^Sz4)GE(d)r+y;858
z?ld%44(z(Qp~A~+ZKL9rF%<;`W{C?ILUT4Bb8~E*qING9IK~%d$)1uiI+W?Vt*$O)
zR?yhk;Y6gU%ZUa${mp-_h>Gf|;ESw1|9(#OH{-sNe?R{_M*7#r|9pPI`}q4^|9<(5
z*Jhr7Kdm_VzrXo^ug3pWwQ)~8Zt$aL?XazS*~Y@vnOd&exu0Fx0mpgzr&rs)P^hS)
zN>b$8HxLEP`hIBoq`0{FcU!Cc?kuhID_&1#4mRrUUZbX>su7m_|5E#RKQrJ3<=>S!
z&DIDJ`|79(%iRrB7Yc`_@8($b3UO%_$eXvPHU)8M=2-WOIf*c;Bq>Vdnzbp$Ncyzq
zm@4I3bSWCYc8X^>YZiM-CHawZ<BKE0bDwB+O?r#$HS(<@9H#oX^u5j6lH+C@gs)qE
z%~8nEDYY93F+Ro3&22WpS839fWf;nD>VJ?+Bet&YYJ}TD*LX)p<obMu$5?=pTqb9>
z-I(IF5MGJrv^=WL&P5F8EE1n{7fI*$*gjWOQu_G9xbd}UsHjU`d%AW?u6c)9N4oaR
zT@j(Rxt6vhB{uuX9(6Tcx7=ivl!K(~m=AO@fgEb%52?kz^c3F7#e2dxN%a;xcGL^>
zr_MHtiziR1B+8IGKRweQ{Org4HOuh%Im@rHk?zZ+uydBplfA{c9u#*&1B1j%k9Q`k
zriE(cStPZ#D$oCDx;)XHuNEg0SR=H$PsM+fzv?^{)$l*KWhbTLuSZ(>zkKNv`;RW(
z#-8LCxX{o_pF`V9`$Nx~hYH>q*_=C-u3gNK(4zjmEk=r3-}_9JFOz_Fu|sYe$FXDY
zIW_ZAzlc#EK7SL7dgOE^IlZ{y`}gmUT06v7e?2s9OIG=^_NCa-`lX-WUd1C##La4X
zBk}y+8HdT9E~cTkw?10r?}}B+(Am&`S(w%S=fcmfmaMD!R=pOr28M<qcN#@IvX00l
zw0P5<Iet^~L#E@DPWQ5EhR%^zvDfa)rnNI|DQW^%`Nd!IloI52r)02(>}8gGm71Cw
zrMEMeQmT_-DK4_mslS0d-jd*JSh(ki&}JHQQe;cq^wM8cRF|p_qd7<Q(4934uqqhb
z8kdj|{CU0CDu3%=bWsiyU&n%V-FFoA+~2g#uFEhu33s%np<z#frMr9C1P2?N)Da=O
zFaE5u7PX__zbDEDb1yHGGgwL6s2P=Cp13yG>)5{~b@AnOu_n|VXGVvng-eM}#$?%w
zRa|`h_{vl{kAq93ulV|ngh=-y)pRX-yAYGE5~pmUl5%o#?saqNmT7Tm=CwA(NPSGN
zop9(b^K_6|?%XZm;E*R|_akba+@YCw>-%Rv=b37@7#-^fA$z+%r&0CxrSX)EgPMJG
zF{7_t8nRY#A!)yV|4#h0+^Tdv$!4fh=<ctZtqbb^^iE?xZ4Am5Ug)uMd}kYHBNv>Y
zf0&BufaC*ODyo28L}fkQ%PeC-(aBIFs<qE`w*Kv6=FRsT?SFPEI5{~T3$CxOZW3Rg
zre6E?k@}*g$5>qOIO-GC9>L4Y``}cz>ymAKxFFxaxk|eEiEg!_Dqm`|NVeLV8pQ;;
zh#V~P+ZxXytb%-Zo@HQQAWiE+vE!8LXhXz2Rw($k0b9Ua<{_`2KP~VZo6c1W*nGPp
zy87!Qt19K!;76|D>tW}v2?`2ss9pa(<SXR*`|WVihD}?q9PX}0DaABI2ydH@lXg;N
z7`1Z}sze7-_)j1C)hx@S&dqfGc9i?tyxQ>aa5Z_pX2OAt*ZlhS)<YflCBt0wnZ&j7
z^<^@4u|tK8`(m%7^IVhEW$t|Ed9(TuKDHkd)J$Tjl0FP$9l9R7lU^53l?e|lo3_M{
z#rTS4X?5h9tHs5|ElDw0^%ki_2s`HW<VpE5US!i^wx_HulJTauC)MHq6Z89=Qw%l=
zkw{F%?`x{774YsYrCiF<nHYEtq?O4c>Wh=T!?uN9oQuw-%ec84gK}49;;;*4NTf_I
zwHV3WJ`87N$n9w@sMXcAiRrs@RZJd43nOlXVOM>a02#eyJDnQ8#GM0K*G<D)hKK34
zQBj?%x$CtZ{T2I~ot<4`#3EHG;l;Fb>8Bv{o(y_nhg9`kv%ukHW~mo+o*!=s3w&2m
z(>Bbr>NV@J%AdX~VuTADY1g#geLnJgo@F;DdAu`I|DEj-VF!NAe5<pJzE$W3uV{5$
zGdl}8hK7dfM<YF~Y;A45tA@_>dr(S~6yv-m7FHIg^1Ua1G{u|{6YI;WGYr-?5@EdV
z$Gfz&ls8N1Ll^i|CgAtA)Wz{#S>eK0^ZJbPbu$r0Uz_4yquG)AkvGq|Pvu?Tw8Ork
z&0oafp%0s|aCeSrOJ!aupHbb(b3rDBl=T%Z{q6joHrTp0g<3(wM)jeF>PGFU>PG9U
zOF>l=)p)tFzS831^+RXP4!pHEf9KcNQfj>IzixEocIcR^r(1UC1$76v3u-qL4fN?>
z%)~$n!Jt5&mk3hB{IRjI`4p6a1!TNCumL^1&vtDalk3eDzMt-E%VTKbY9F8MreR{@
z@%$Ja5O9DP9@JvLqbwsbN@ip-Z6Z<?Vk9+6?q;F^oW!?y(Qu4U7Eh_-9c~KJ%rWsx
zFIzTKNxh-4$Mdprq+8yJ>#r?}*GB5YunQu^dL8zBK^@8Nk!sTXxRd6TNpmbI$gt9v
zN%v>tB(tFauY&*b+*r(Yv85{>l$HMB+vg83F=d>%7HabT!Iq*QZ=TEWb4U7%IXv_W
z3roSiA%|I)Wonh1G#%G=8V<ZQC9a&`?_NASvt`%8&IX?nY=PRO>)~<<&T~I*sgKOm
z@~HVTigNmPzZ5*Yr&}Qrcb_YFOyrH|gM9vmv6<W6o2c%+Bk=D%URqjO<E89L)TH@`
zM>~YvSMOd~VM3)%6z$l5qVoj1<cq`X2`#3Y+^vPe7&g|0<s9h+AM&oEyzSp_p*^5(
zm0M?wEfQ24=`=!LJ1pw5&}y0xVN_gxr$MmFwy=ZT_U+Si%UX$t+Q(&tnj%%FB0dgo
zACJ~)l5eiEva!8$r!7vFw)T7a$H6a{a(07{X@gAuVl!_|^uu3`3awBTLA4Wo8PS(L
zH5RPT<93)7a|d{GOCEn^V0ThxD4d)8r%U=0!2Kkxki$=t!qxQRNyXusz_z!yF8A8C
zTyw^&=AchbbY-(8ZZ@~FO1J!wec5vlF`6yA9zEJTKiS)DtF5E+dSX-bPrI?^Pqs_+
z#^JX#M_vd|zSYtxb++&3Ri!qpt*>uenCRxp=drRgc6BWoZ%Z*Qw8AgiP%HTXBjJUl
z7&$dtIYpJLJIm*gz@AR2CS^suOZ-g2F7AR0STv5ThGE+=G^gwcm%P}ue#%<pux$#D
zW>$8#<>>p|L%R>}DdsU}c`VXlU+^YmfUEvaQR)jDDyqK^6Ko_(t6;ueb5nYMnOkxE
zwXpb=$>Qr+ab@7Bz*nylFFxEl)@@y$%asrK(QW_U+agD{My45P%ZqF3Wq5dMY%EKy
z{r!D@4%F;B=aj5dDrBPEfBE?THTN~wJlL=cfaB|=fTGlk!<pJ>m>qhxj^uVOucl6p
zB>nvJ7(iJ+DR>E>rt31-uI+Z|_bVDtPT>rupxsNjPnO>vyi{u$cGf%|sD)ND825g$
z-y=g!$4Nq<?`}+kIK>qhME2RUXA&>;h0E6#G&AR~T;|_j66Yir+;#>u?ZM^$%sRK_
zxgDoMl;m+o;;)9hLC;a6)wvtZ%g6WJLSJAsfu$`?Grv=4yfsO`m|K41jKTe{2Tx8L
zEb@`%rK+}!Z_DUNSzTSd$0O{(yglaFm+R$}h5T|FO|e&&Z=z#g^xjTW&pz?}?wd5l
zIGLiQkua`~2$77e-kt)7n0s!31=xtOxVI_x<aYG@r+pq2w>0fy)optY%gf2hMeBE3
zrE82;ocwk}DHNkjm>6ZZ{xiztqc3g2r8O)hy!)h%?vY+Jeu`fI4TD;g=k~{n1n{%y
z*uv1JmZ>LEi$OQqsIIPVc;rFaO-3r3-NO@|Za<<uH=f{=t<`qyH7s=PDX>}3GcqtR
zX?i0O)ZOK?F-Yz(g_!+T<!cVL?4+8MZ+*cRo^>?q*~<mz|2MR7NF_zJ4LxgazC+i1
z;N5*0Y3c1rs{ng*81Dx)RO4i5x+l_J|K*Y8wzANbzKh>us#=Dl%VZRwgsWxwqfHHa
zLT7q6z+&dGEZKNbvHEcFAOWC(%%1R4_6_{ZZd8?#k?|XLS@=mHe-;v-aYGKL@XdGk
z?&*4!fSlw}TW~ba%*<>|@6WT;{IYUt;!cssks%cE=|831gW2qZwh4U5IniIP%b}Y3
zr8P;(zEN~BQ9aveL#_MtC)&sBy2TEb-Il?e>WUVe_?EZYYUS>0dbPo{_m>B=8^vCp
zIgzRswfS!BM%FLon8tdwJlaM4p@W-QL$UEf1+3G7%x|Qxe1Ca;F2iFj<*L-x%1@uh
z{G=E&wH7feN&c^0CIxHf9b!D<_QyCfx&FG?J+EKs-GogO5E;pn(Lokh?X`0J^*;EY
zxjDOTdyK*5rP0WTeQN3vEpbjnD;@Y}U<**Zs+Lwb!C~-|X7BE8_|tT3h9r-izkOjh
z1OHpj*|o)f+GUSRmmW-L71svyQ2(Bt?CH^R`#tCxL`L(TSS=V<_~b=nxxd+gy6}`a
z%_(JhFeuIr0?h$p{$tq%@<4ufe-kT>M&=uvp9d3E(=;@S?2<yyS(+8Pf6Xyv;5U&E
zIpMUjFkxQkihfQoli{Zg0RaK`sGoLc8~b9~b9VR~5mv?UQ(9Y|SBbv#_!9HzM9mdV
zTs<ygxaeBgxvrpHBfAnF)GUW{`w&I7*^_9lPX!Yq96~2Hy-M{ze_wJ1K-Mjf{Mvb(
zy*pBwnx2<spr>%yPh0$I2rujRZAT4_jLa&Y?rqx65!G!~T<_4kiCW}lVGmsl8hMbi
z^xhrwom_I*4?vw7wMl=ojG<CH@S562q`vRp4YX}O(MSXt8ySsbn&orO{)qA28s7XJ
zkT8$TUG`hA+nz%${ja}G?Q%_;KG-fj*s_arw19xWSf0!22_mmsn#72GIju*|*hfY6
zE8#3go7>WG@I`S06ZGMr+Aw}oMFVvdlf~lfNSJl9b${9NM1KFOxWYPa)LFY9@}l#t
zN_oRusTmI|hYyqRot!V5ar?nMb>*o?Fe?ixz3F3cv86LL9IShdjsba=P81P?e{E&4
zqp#FuZK@a3+kU=H&AcI8kd-m)I*GCP{dv4@uKSv^N}5KS?b@Rq`{%w~rhc3|W%5?G
zf`YdjRJ*BkRB@m%L@iCjuy7S1u4pViY~!RrD5?N!NS+`6_MB&-kwQRAELjpZ``5xd
z#-HZ{fQZ@&M6})eKjZM6RZk+LsPjp7c2a(?L)b_|L<)c^J0D+*`0^LJn1|b_%>YgE
zs?}2Vx`MrR;9@Muuf^Po(EivwKOO_}!Dul5R`D#ayB}@%Oh{s)Ms6~Jb_%UV>O#!A
zvf|2CXJmmf>-tBDy@4g<x9$@m#%{7!VHTtN@4=}3qJGQW{p<1TYb)L99)RwF{{G)Q
zrq<UN%e%!2Qep$XXC6w`$Tb@S%gA^8)rNOGkCEb8N|Cnv@#WaS$344>MncUk_P2?Z
z-D#^4UF?bBDf@k?tE<aj?rL@x#?D#O=2+!~p9PaeWQ&e8ja(VDZWUDYDdof{01>G$
z0qZ>}ubYJuYCjTl=BLU@GJrPK&YH%?j_=hkEngnI-<qzi37nm;<ydvZ(FCwV<L%9h
zSEf;4m(UNMnJ^ieVpkJAP>ixVdz?%#ek^UkMdkaYbIr2L7>bvdtDRcnui1n5nPNAx
z(y8A9joz99#JP+Tvs>sg)_l=(SkN|h-~Rn)Ejr&m9p9k>9PwoLp?C;8w8ax1>$8!1
z`2fX5An$Xy%LmniBO|Q^Ss$^8&U|KO5Oubj-XL``m|I&JjO`!BOPwidJj0`-o~!gK
zm__PL=&$b>2sHdI@<HuzGZYOVOY6eE!P`Hc^OU`H`=NBY$ZqTnhI_K!C$C#mF{z)>
z4lxwkBOLqG+oLz9p@nH=8~JE)tI2nFq^c`npXEdZ=asNeg6uv&$dv;U**#A!Iw$|G
z=_l*3E@fFQvzvvDjl4SBNNwhEU3@KP;^Y3bIrJ)Jsnb<eRo!AyO)|ivb7-5}!rec}
zafY`viTn@#S4VD335Eob#Mf}1dB8y~L20U-QU(sL{xffjN`{U$cmu)g(Zvp!78r7i
ziRtV=aaCSJBlK&Y<ssW82rJh@`KulFwE2I@GL*IKFVjX3+g+e-W|rLC+^k&cJg?}*
z$@`wMINAij>7C%ysUkA>wFsfJX7gK^Sy?4;rPKxWAF0I;&pq6=f8Rc0MkYf+_+;fW
zRk}Ei9mX~PT@N5P7Z|eJl+ShRp2LY<*~YbFc2Bg`oWv4jzY+B9@fnFt1Oz=H7oLc_
zX^u)j5xjI?ot7f5N!W3+_5H(bfgvI6zEv?;WrF+@`=`ipDxE-wP|S8Fr9%}lLI3^=
zglAOuDjMWU!@MKC4Vsdnw*o4=6~i>wv_%qXNFgCB6%-WgGjr-P?JFrH#H~%+_LzV~
zX_PwWwrA*O0EM37<5SwPV~5a?H(zTkX+PwSWXyasTwMt3btOf`9Ly*#?ILB2zWdnG
zG5E(Mxd@@6-`}3w5BUfrgFIYh+YuAT@7sG*+j%U`8T;3giPM3cmY)p#wAaUkx(&KS
zD+;lDK3eQQ1%#nQ{CbRdQ$QDDV5$J}L^zFv6n*pJXf5~f@X%`_&r2TgI8Su*BO-U@
zncU|5#8!Ut5xW;mgP>>jZ7OQSrc;P$ERF?nxl2r2$}_$)_31w%CwB0e$LxeUNqiiY
z^dsgl@o|q%f&h|#KJ*Uk(E0b%rwTMRLd55*f)$@WNm%NNY%BOa?T*)46+Hca{R0H7
z`}1*B@)P}ux_>Q$d#@_C|Bn~_Z{PF(d<FRCs7FqvI%!&kijKYZ!I0|Gl;i{@fQ(yM
zgSFmF4^@%BL|+aX-nyHCCAc<@RW>NV>Yc&>T0L6GI5t@adqVi};98aMM4t(?e-+2w
z-lqh_TTyYPc5&*vnxdkAiH>zhg%fTRv|>|~gQ22_&15;ny-<t0K0;XF)XMYN(xw-2
zA~W-in4CMgsPiXKILdl@Z(cBpYM3k~D#Sbx68PD$#MdaI#2qY~ZQRIx?g`+QCjNr$
z__p^%k9mD{o<-L;UzcA4?=J@W#iFH{;Zw8r)DUzx704j=<E<oW@zu9Moa%1?bSQa@
zzHC3rgqO~me2I$sM!J5z!<(LuAMzJblQMy)2s-Ax@H2_vw(=qlz$*L@nDDxCpbTa`
z1(}S_KaK%TMOBPzqna|^Zlj@YYugs>{OkQTC^9+rWK~i#6jF;7k>(*v1_2#{(FAb~
z^6k;9tO3C*>GBO}DH&xNSZyU$RaH~Z9Y-tw%z}YN3+xC?z2H3SejO7hBcu3{#>kAN
z*-<iRe>*xtI`(wRrN<OEP8ShIwA^5a&k8o!1mkJ>eLD+$x+l0JZr1qSaJf#+D3TZ+
z9v+o9(U}=@_(j%I-(3uUOd7RpqxzcI^>3WmZ5Wlr<W*jvCAq{Lk#+h`j>KALf0?=c
z^>t8CJdlJo^p4h~gx4A-+OebA-4m)%OT5qQwLVmxJ7R#gP*kq{lI?msx_Tmj{#UEW
z;NS#~jFPO+w0oezX%yPVp@k-$(XUL@uX>@8srT5!t-x(``mR^+31MMPEI_taKKdEg
zjkgyT`&=^G(=-#Ho~c_o4!qkCftmRgaM7a+U!JeyYy8n=9N9KAT-yfpme^tL&7Nm1
zGrl|~9Pd^Y!gDZ1j3<TMbxoi*mRRcAAg&f{c-`@NsTxP_ss}fw%#&7o93R_SiDGb?
zb-s;;sE|Y$0y&qr{QZ#*<{PWQSaY1vY#m>&+ls?k>pm?M9HHYw2Lc^~c9~<=c1qi2
zBG-9!x+?ef;D@X|f~WB1)#_eCbZ7LHs-&Y34cG9{(FY?g8D_1C3O_`1oVj#L3a;wa
z)z{DaJ{1IQtz~&~0WXNw#6yBw_w25RUyi`n%m68ewf$Dzo_mg*A{9aCv&^SIfBR<U
zs1$61k0#e{zi~=~x)pl*)&mxzHO@fyLuqYl7dQC)cYUO|Zr~}E=DD#J`|qFk!u`O1
zN5tK=OifKg&)eulS2$zBTj~-$+n?X^D}U`gp^hi(5|s{mtP81C2^umk3uGw=u<)#T
z`_-|rF|+QxwBeJ2m=y$}fUY(ECHf)8Bs;cxjFj(q*~;Y04zdcMz#L$cRBqn`NJ{$M
zQuw_W=P#O`oEQ=h;F0{Be!0kk-{i{$NCYjwRe^qf3hjebPmd9OXfvS56<TdOzu5gA
ztI%<&i+*O+D(9N1KsF*^0mz^VX3_juLL?!Pt6@h*yIqYC%B|SHiFFV)8pvWl@l}OO
zBj+S<a(1euQ_!}|h1c%0^#cB}+}cF}HY^Lo1(VFa<|Kv78PiKC1$-R*#U{9K-@fC0
zx-1hu4xGb&86FtpDZhW;rTkm_pPtjEcu>~!Vt83;k`r<yhBTDEp!5P?zKp@BCnQ(@
z*i8K@RJ@;GG_g^dpIw;+d&mG1$A#lRR#w&|r`eG|-2Lv5Pt@1%#gbQS)1<FnZH0-|
zns2R(7IXna(d+s1mn~zhf}`Ov0F2N-Wn|Em*dkpOV^_lk?+^`zm5t4O@WbO|wT#!_
zzI{^$amGxQ>(F+LKykjl`|Vj`yLlV+u(moQ<y~YOWK-5>drPP;?K|YShw5*AqUoX@
z&RX@{$S7UV$n>Bhyeq<fVwX_Maupw=4*2_`#f?0R5SAniUc<xBMEgaal(BR~_UfjU
zMx#H&t~fkhhMmbeRuNt{tdf&)mZ#*`1C}xHRs{&YtP#@7j3Rfx*sj2xkQVa$F1*-t
z=cDPRkVK$wtHR-fq^$6;mSAP4pP5wwuU_3SDCNmq`D&iQ&cnlFHox(n-8b19m~tjR
zJ2Nj{58Oh9x;R<`HEK=iz|~i$kNs3Qf1mL$g<r>xKrL@0+92)$>xmPm&Yo4_DV_75
zc&N2AXboSV1O6qr1w?^UypaRAFKG}h)nSV)POUUaF|`5wJKYW_`>!m(^Pi3wOtytu
z5OH3zjA6EL%>5G>>9H>OBhOQD3W_-=rXPl2XW!<P<r$bcJUKl>(<bxdZO{N;H3*I#
zrhL3jfQM4-*o*bu=-XmGm|pOKPR_~45Is#=<b7EJ6c*>n!qL|FYlkQg-5A~G6hKx|
zJMX?Bkct0+g-vc4V{beeoj+6FC7^^*2-o(r$>m(5Be6+t0lBFy0=y^YS%hs3J0$fO
z9cZw}sf&mf8@r!mqVG)%xI@+@3d9VD_!$qF#~~^zdNZ65N8mXn0n`x`jPOJ$>ud8^
zuCGB$jUMYm9yitG<X#YZ6M+CpBoZK%7lkdYYywbhzl|odrL|4w&z?dhsM22C<*T+4
z?#p8`SFaMDmK}Tx+E7pa!_j$4{_g8b#=8%lyNbOik1<ZzR(MM%2Qro3dh9%vKEYPo
z(9jM6JPO{^K9?w!*f;iR(}K=(iO}9zNdzbZypDyod&z%p(343cXxdG3Io{wYD_CK$
zvYlA>>Z&Wn#tx2>Mvx^&{I{W@;d$pZ(xfzbjbq0s0Sf!80XEQs{A1B0X^N_Tw5Np`
zYNLO&?7uD&4Z1`u0Wg6AKzJ@hRy}==Nk-Dn3HM=x=)Q82Uw{7QJB^AOZd_aX`<n`M
zceS!bS6X^EtuD>BC0u8M;-^N#q1xI{S$EX-Seu6*YE&`1E_8TLuWc<CTJpNf8LE>(
z8>p_}E~I#~FjpHG89gbDgaJiIGMfJONuqroex@{Uqd27`2^_Y(>_NuzJUQ&6C-pYY
zu<&rL#Ja-K*XG`5Du<?D5vqL9N}$2vJ)TRDx^_-DPWBY$b<6UKug$$YQ~3&ejgAx#
z-YucGD?vx!yATB3o23PA*>N%fVwtNUWmUm7rO{Xfi`(j52o88cRJ3<NltJ9x_1z5A
zXRaK#(^F%$JmnUOii(_zYEYTs%-%Y5ogdcc3V97J?J_rI;34(apJ5PGHG{%LoU)$z
z`sQ<WBwUZY)Gc7$*CWlli<X-o3TvEU2#9)EPfyQrdo-Nc&&<A?z3<cnum{;Jk4L~d
zPlBcv%^R%kpzb%}@UwI8pW2GLfl<ixmWd^V$^G~HEFQ1@X2Nh>=|%3oomiNjo*p68
z<kZ@9pZi~}3}IkN`i}u2O`HQX;rFit)n{xKyWXCtz|34-7kW0O)6#9)V|{6K-LR>s
z{dWnZYDs@W<@4x5GxcV9>F=)xWa`I@nwYKn)pMs&-D-a_oGJ#=2qYKZySn!==W8e-
znqL6o9*lQDH$Oxg0WtHIDHSWzM<~FVu$Oq@&Y!EUu8xNXJObK!26!iLMGStUjZj48
zm|Z9co#%nzGnGA%s3iSy-Oq8$u<KC>U=tE~KHq;+k2<UM7%Nx3IP$!e58}Z+!*ulL
zA%|iv{atpx23LPCa`^R>)9>$clYP6$8Q0bkJ?B_3vB$2T#;QjrqeJUX{n-t*Xg5Xj
zA@U7ekuYLV54z><dEHbOF8=AE@p2JnEFq{x$(+cW{`WDYy1?_jyC=>ek+F(yxo&U)
zlDgOGd+oOt_~a@GZFOTKPfk6Ch!4w<olw0Llbb<SR+e`M`7E^O(~dnhp5?2kUoDor
z;o4v<O{jT#rUm3r>w@`_k&#ezOFGhsk3ioqo_+}W;+gQ>;*ZaR4cA`<Lq?1L_<dxA
zA)~__P@@hnWI-54EFpl6%~?lU60R>+@#$4;&xWxNFPg9gJ*k<_QP!qB>S37aCSH9z
zWs1>N51R{k_Z$pGi?2D=05z@ByqG$^h9XT1h)Db%+7TfCmiNxcRSJ_9&>$aHnGcIr
z&}(%E;Bxl;Hl|k?;0M_kq3SV^Du-=Dp6zD~g$3E$p8&(2-@1G)Zwddl+C4fvyriG1
znV((=WU{(8;!s>q?C#oOUjI5YhUcvUw+AjTS0je<6{xxuTb_7#08B=GE>ogIx6gaC
zWJB1yG`zE&quP$#UcU+gCD9P`pgW?3yERYpYu|-TI{nouGB()SXawFAJmwU_*7RX{
z85(Lf`=WbSZUk<a$0Q)bJ5JrQ9s^_JL--wN=>}Nu?-W;2!Dp5omEW*KAlFO!JB=qL
zSmd*lH(TeVpA{=>e1#(HDCgwhsO@(IHVYbdo*y6Xk4N7%LR!EGz;^_E@75;;h8=w<
z>}7p1!3HcqdpWoKhayyzq>x|d3rW=f=8WDH{H)PXrB9F{%<iB4R=|!It7u*zkMpsx
zZ+@($N}87tmTy#nSgnp$p^NFFr3{u=daO+3kECWdVA;@&ZygHj74<(e*q?F5mSTij
z=NjzE4zSbpZ0;Y-6aM0+R$!BHBlCkauS&A=8R$QA{leczN5dd$hGDEW5*vHN3MXB6
zzV%|{EY;tCLC^o&uuR-}=ZgnBrA}ABgQIq5?nl#cvM+7~z=Z)z2*!wJ5Nwxt!*7#-
zq3dB2AhtIu9e@>AD5r%(td+a|IJ@oK?+=-lLMxeL`+m;4&jN*d6>r$bKzt|P-}&8^
z5MQmAJnzE76Zca+O|KY!v#$k9slIOWGAL-oqcP@;O!|4H_^Z?9Oz2<h3b#}<UP}E&
zvZ3u<l9e$gzN9}%MuxZ8VPa=;9a_)o8Ib6RptYHIo2apO+SGKpa(Wg$wSl*}q-f~%
z>p+FQS!My4y4t%TTXZje%<rwPaz1bAlT+%DxtUo&pu@uoR?Ze}?r?_}^n8^}qt(ol
zK7wb=8U(&geV_f@Q3(#E$xR(MA<%RCp`U@^#>T2e^(onz&Ccpa^!-lUjj>NV6aOpI
ze&+LgBC&I>%c$-d%P$%=ty>}9aG{^jpV50Hh%*0@8DRHd5zS%U?*Wn<JX!A5{;caf
ztQ+Zt>=OM9o=`I}20FXpml;>SIAV_XW`xBfdIt~?F#y-~Paq^@o1>?WauHl-F6>)s
zsK*HFstgJaHum@T_h#vCe2rHQ!~Mh7x$5BH;Me(c($D+ZPj^=TmHcm=z4?z^8Wo$}
zEU(^P(+<C|XzsA6?N_lz<Tv^bUC{(-rku|%V%+$y`qe{PsyB73ltKa7p&gynBERk>
zD<>%$EJ3??gH({Tzu58*=GrXEq6Z}b^!1?nWSGla2x3J84|Z|ZiY<MA=`Sb3GV*(R
z=+-C331>)zqmew5A9nF5695WB^9Oq0w0P@@1Gvpa)0Kx<N!VPE+X?juQ5cZBY3u!5
z$a54x0+u&$0`+EzxcgKaq+gkwlLZZvQZCBqJ2N|Lsf)11;~LC&C4Z>R(NW`sC`_bi
zNX<ys&F7b|aV6T8Z8K|wKukby&;TzBC9ovYDZAI-hlj@^DXR%sK0@E@7JHQpy6qne
zL!DM*GAv9$P*5G^n3<YC;2`Qe_lsv&ewyO%iQMO`H;|<2mnv(_|MsY*0jqBQ``6$)
zT;_b+^M}WKi}P7%LRMNQH<%CRtP$ZG76SQQv}F3R`qYkFQn;z4y#&sszg(TR>&zxz
z>*9%Xq-OMSy{;hWKnVFL9TKo=g<WD_NpJkS1E5&?y6AiWm`55?2Q1&tGY2ACu#2Ze
z9#oTne|Do0j!#N?`j=?y1oz66;%~2s<OD&KpvWRkL7+}Fe*(NFV-O=6GcEojEeb+r
zbvWI-81%wNy?OGFT~>oz=dC8b=GN5JweA+^xw+Ey63DX5ZKZ}huOY_#4w%oY!A+56
z(c0nXq^8WwYgPt8zR9U?n~QWgo)tjs<RWR5ySv?(-kLIS_H^e8JC%p!pNZ;Pov!P?
z6jwpca{2O@#eS?=qWRe&7mm^JJ1>T9b$P!di<8&uC?n&g#U0EdvHB~{q@8dudy$hO
z#0=!?(uM5Df0QovWnX(oYDSZdN5~@y_Y2CCM)bC4-i)GOv(l%^R^<F!0kQ6_?2$t6
z;R+T$yvM_z>y_s$5x11rbj_gWGulj31qqg&<cyVC-La`SxMhq}xjne#2j~n$e98~p
zH0s|{>x6I(o{DkNxt?k9$<YE?ypKVojU*!Y82e$Z=<c*0pvl#ckdS0-c1UN0laDPy
z==1AkMZZ4mVvYFyu=r>{)1t4~aw6q!&bRLLfrok@EX`R^M{!Z`Pp?IaX@fqhfE9q_
z{g~R8(2@keu9B`Lc++Lq&V-0NBXxdNLj>~PbV8LwC7Fc;NBCq;PltF}Magv=%lvOH
z@03pO@I+$ipv#L+w`WJU1RtGqE|mz9AZq{%%wgwA`@>yHKTbw-=7cX)Qc`k{`UoNS
z5gs6+aHG!<c`cxv6A3MZOaTYX9A4YrPYgTqyVGQON|nhS8EQlkK~d0fcUObP-~5c{
z!NyVnWDfjdkMEeiP2MdDhZGcxhSUtDj$w|Lo0Z*vNL-_%_~lZ16QL4guUUu>x#?Q`
zL`LYd7&=t!j~-%_9UOO)CG}-riOGn2w>GiAVNHWn(F<J~Mw<#YVG~5GwCa~^WaOSy
zb#!#(?YE^2xTq-V9@zN%&N0YP3J%De%J?_8v;;;(Xuq)s_opqMgrgWlb|d+}JR;_L
zqnRRkvNH*>A{H8_W<)eptRuzTRw-rRpj=WLmWe${NClGKbkS(7>_GgstxeS)H<u+9
zThlZJZl(^tmF*!#`?O{sBGFvEbQDq?(C|x^2$#viiydQk{xuv_uz?^NoJa0W1Cnd0
z%i;pt(Ont^x1(9ch=f<tYbcYl{zVQGW`%upL)VoBOq(mpSFvC-6k!eySs-E}yN3J(
zX27c3ux#>DgDF$L7$|%5z3HVqVdPX+Yd=_~9B_A;(3=hsyc3T-kc?ew1_rl09IPAg
z^5xLfHs31dv5MfW?@>Z!yk&mn4zA2O;FdQ`3Nt+5KB${GMdfu*vo38Et?y%#pE>up
z?hM;2@+0fbH{UmUnrI^ytR92FE~&lB4$ijy$K3+b{zN#WRct>BJv1~K`lJa8Vx8wc
z(oswf;eNmFiV*E62iqdovYW_Tam;)QXaubup*VsoPl)AP_j8jrNF{hGTEBID_BK5H
zFl9wG=!58b+z;(3xjYYwJBh7~ZpR$`l>Yn{F94kb5i5bWr}{q>TC-QX1ewg`9w;b}
z`!&@eb9@qM7DUOefxSk;DzfXg%uj;Hm3$-f4R`6BB3K@0BAu7gFL$oy#@$pNyZ^Ky
z7?s16eCzKwNY$S|ztwh}`=LNmtPefQ)zR(q?U#?_GPum9_6bdonIDz6C1UzOFllA>
z>}C?{aj@%#3Uc=5J1SB$Mp!EBMk2WiXe>T%0x%e4n4*@!&F&l%Ec*c|4?{u!Q(vAk
zN1{FarW|Q#bRGKkZ4Rn|lFQ;`8_~TQ#a6BcYuP@-xZF?3<cLmaMNg=u-Z++IqQ?!m
zG(jP`6A^-ZLEG<7!6X8Z0aCgynk(&wVfpEW2w!C)(DCE(`8C(_f$L3a-)1e<PH#9M
z2i+k<o3r^@WRea%7?5jcu)18s+Ji)=0_^W!M><T}AI=q{UCCh1ENEgNOIwC+zr!JH
z^ujx%GX5GlCJIEA?94kO-@S=+?OGtqL~pUc58mh*ADy{trg~N6`DH2JrG1i$bLnTd
zyi5l|%s;$@Y~YlvKL`fxuOj_8;5I_UW7%?egO;LejOS>5SOWAXF7+&yfzLm2BbF#@
z_}%JO`rb`YoVdn3T6SE~;CWLepi&P{>cO&iei8RphA{>oRKR5ahtmI60nCNE97zQ!
zDk<@R9qhOb@QB-?;<jOA5TZD(*6sUG_8ehQ6j9yjZi85-&(p<i1C2z^?20-(7H9`-
zBnCjQ36sYr+xcbQ1>Ypdk@U(OtASBNxM^`c?)4gTnA~fRvs!-b<mtPu*~Zrm4Gm4f
z!<J!hvqrq~?JzqKWc{KGf)N=}GkMIeQ>v*qe)#^S`(exgL82fQH^hmDzp-UCjmQQ>
z*i_O>xNl|hDkwNl=pmq?KCtx39@b1AtJ9admn7M?GH^Na>V8PUgwA93aJ@4UA#&=B
zzf+8x$58>Z){{50D)Y5r;_mb**^!W@Xn+ACA#{d1mId`IOGsu60#>Q8qdti{Hw;bx
z2r+)`XQyZN<>uoSx&A`h#5$y-lS@iO5M=*I*;X`HzAjh@ZGiDJpbrlzZ&pI`q4lX}
zAeJHn4qM7^v;U5}#Gif^ZXOSRV?wWM_ZGM1v4mqCL$b<&3n%$8AqdqBnqMIjEZ}vj
zTUJ#(?eq+Cr-}+;P1IVtFAdXrloP7?srjwua0J)SLqvF!)p+B;kFVrI!&-{7Vp2n5
z?BOf<x2H6Zmm0IzmIWOz*3I6ZR=@%4AHv!XD2E*&(y_?NeIC4Rf+)k@#xU~AgD7w*
zg_TvRU!z38TIL;$6e8#evP?*;><iRW5PFxTHa-4^Rmfa@W~8bbMA^Vpwr$^*6e#%q
zu|!a&fimJ!APeJQRow7}a_qbqhC9GZX^}lSp0YYBUWAcp2aaP7rFOi(+{4dpNm8<t
zbqun&sj#jke(<}U5VmgmTmK`&y+}N=(1>rjnCLp2{95Evi@?4!0o!T_t-wFFmb<vl
zAq?Ltb4sWqI-?A%QsBq3tLq(}gB=16)C)WR+|J!||D5S(Y5@A=$!egBf#CNgQY1Hw
zr$y%cgar(RSjx5B+gXrl$DpI-$L^2J+_JPh`rVY}gIj?XL<p9(jO(%=&UR=qlL!kL
z@ez~ah^g!nyjO`47oRx|KJ#`?65GBEWG^;Iy<L+0>_g9YBG#d(*QyjC-2Z!IM-e}r
zzFjR>z6k~iVLF4G7e(!VgPZq~#pkeKvu)^}{$OR;jhwc-pT+ilgCemkb(xxh|K#{=
zQsu_}ht-(Bmic4AQNVGK4G+wf%tk-0bW=RPXg%2Xhk-CIYk2*1ua_fz!dtPVl*+~K
z=tCbTomw7{r+SO?W~_R^^OF942IvunI5lE`L^?HP8Bj08x@@U(6#xwa7EX8U3S>Hc
z^PZo<K^`3~gMQS=+?4RyvuzfAC0%z*b%y4h>k)1v(ynV{I5dV`&{#Vw*Z=4i1e<b2
zM(qR-Pa~cFRY}PwPVgbu>@_F!Awf#|6Dk7NVkx?&N92{1zQ?<08AvAt1-lN5I=7aK
zfH(4+wSJc7wJw>KjQ*o5`Vn$th`2{tb$$KWO1hU35tdMa^)Z;oGp3+(vF{_J*-hw*
zJN&$H2e}vzT_(I#U4(E4k+*wXvw8OQR%cy=xcm&@jalSBdxCck%?mf;SfD1<>O$;r
zY;^NFw2Q$hUxMoKl&?0!Ec+<UOGMwIZDoTvrx%A216rM!buJ|o%epXuMgU_7U4%w1
z%}azcEJeU&PW#uP2-R5RblnJQ0g8H0yd9{MxU_6!a`<i!ygNSH$m}bk#}Wc#@bpdH
z-+4q3@3@tDEE>-zI(_8xtXM+C+?HP<TZh;?gqGO2xDZ+H!U`lx4w2$905){HWZnL{
z1bum_79wM<$2#)KbyuNj6=-oYSC=5CkhgZn_RywW(SHDinX4<RsxXBt3+r+8!H4Az
zln>9GsRzW766R{<bgizsaKRQrDAJdkYk4i|LdcktQ!fbt)RxIl%N*y0@KgP6i!_JG
z_~+GmtSwI^oj&kE9iU)6il!cEjJ3!Z+@hB+_0L&!-bAG48&Ce7(FQ%TDKwePDrXy1
zOZn7zdm33h?_nS!JVaKQB?P)=D8L+pzISz9-5isWe;r;bMq>)De|^-&hjsX_U2abZ
zEe|f>??$!YTEjhzA~#}JVLtn`jPZjrTJ)ER#ui<ssh(!4o}UC#JLg{)sHS83f=S#;
za~)zS=bT_UK#+$AHYK6A@wqHmK(6d~bU5r^$>(6To9y{TPS)Oz_Y00J|Eii`I(#sc
z&*A#{03X+f>FMc>FsjzgrC?85hCQ&sn$VMska^oXvF)AiHpD7UUOaTp;xrtS`Th%E
zO9A{xC`0eqUKtF$I-`FTxoECM^#r*iv!FuVLA&kvCLD^dP4$&-s$7Mqt`X$J^8S!q
zDWPn_ij(w57SGMk4g0p`{NX*!)!2fCUxajRKaIB`+eTp;SKR@jogN9OcQ?>CHB44+
zNdFoc9bFl6Jb!rI;C`<;l!5gu%;{4LH$1-kNpX_7UVYATCc;^d^Q<95`x&5{7!-;l
z(>axaRzRb!`-}Q^aR*LOsKkb6^u6?DEuMfGwC`VS96iC}P}RK+o9Zy81}Tn-A54vH
zrfLxiGFA`H@F}a%KW)kLVrq7fP|3BXWN(vBEr@^`dJl`iDXl}AW8d3)LPdwUwTsUD
zd`Bp{)l#r^cOF-w*fgs-+;}XRS6WNQ6S$RIRHXR#l>pjtDSJdMBHev1Xr&Xh6~cYI
zWmu|M6?57m<PeGRY3*{?3{1<fI&6EG#17B6Fr-Vrph%}X;^YQTvp7n`4(#Exm=64M
zJ>P2yE%de)m5)3k4^*#(o$-T&<4j06M`S!ayC*L!Y7bV5LiW(B#kSzP>EZ>lxBASy
zpVos)o`{^wf56!i^(=#D^!z6O5FsN->?hdS|7fY+M}*sdcIP){X}zs}2SXzS_qm_n
zs;3h>Fbr=X6e4dZwq)(vRu?`??=y(+o<`=B4@2zS9?y^b=IwPNzXu+UAn%dQwV(7r
zpw$`X1J0=h`Wd`-TTt&_bHfoI2zDeAdn*rMrz`qvJbn?O@z(@$gkgJzLgA(-fUf>$
z?)NZngdKjKMmFsqK@gm)Fy0BLrw|7!>fpyb_rCk=@#ZP0!w+OSf3J7W-W6HTLa7@;
z7BqtL^G6_sm(R-`TpJr7A4){>!fxNd93<?Ws{m&<=MO{H7aDnT$m%q~O!&Q;CmdGv
zPo8&<j{^UuClRu4-n?b!+xI;-RYwS9Svh$76>+VAt$c{O%woeH>~cIk|GGr`{a&BJ
zoU_dfTld!jFI<J>=mTLJI9PyKB?!3!m8;ePp}n+1pLWDWh!I~P5Fc?&2MIx9A&j81
zJ}$euJ>KVij_BY0iJ7omyKLRwZ&tJ6Nm1z9g4B9@kNe6*JXVRg5YU|#9JiQ-B^65e
zUNqK;9Sr@nyh%w(@9m$S838Hb_rHo%E@4xEmJp6X$=X79JpA~05F_HwV{<CyTWQ}J
z4pa*T5kAPEpcU>f{cEf9mZF0Q{f6Q_hd@pVfupaKp(9E#+GVM^pev;a{D(Oq3R{nj
zp@)RVElj&4?c%&bq-X0<I!wQAaHnjxPOS2X?I;F<2?KtnT~>_2P7PWSy!$JPUcf4R
ztfw%W5O7iDt>7DTIJi-QQxJrNeymDWK5>!s$F^B=lRde}Ss7rV8`;Bj|55kkw|ymp
z6%k=!<_Ed8OeRZa<yuOd?hM%$UWM2|RGbqkZBrlfHgjwp$(@rOG*koojq4(Rjh&|Y
z#pYPe8cd|>2z7&EIz@Hw2O-Pk63Pt%6mX&pkL;lu;EBTK1?};J)<Ya02(~{@rMH<{
z9ic!fPH!f09sju+jtqn%sP2_N0Ffd>{Y4O)q$f9S-|;7-_U;nglKCkQil(pV!Yd+*
zg{TJA`gedxZe$w9p0T|?NtUOopd$kGRQG%Y`dyW*@--7)JDaI{ZlwDCG7LN(b09r7
zHa2U|mJ8m5sPUhVGhUvl|0dZkc<T}2;6ES#{~dDwH2LK1e`Ns><NIIXr1{^5|L2h1
zcN`-uK`W0(TIL5hREHn4)W*pb2$`zL3IyN;rh{wK)0mvU82F_j0|A_|<NhBtap>4E
z<`Mb+@{_;Vv$z=|r^Sef=)n7jZK>*f2xlZCE<(gA5Wc<zu6(7iuyAk3{SO<pvxx`+
zLV(1H0)<{{b#~t~8-}k%ncqLKKFZ(W)w!Tnq)K&Co8|8PlQOchE#!>ybWbMt8$^Lc
z+aqO#)S8421Y?ad*FqxN65;UG6f#iA#5zcv6Krd9s2I1Z=zPx0Jm+aQDL~uATg*XI
zO#I0cT64#O>eBunLPyu8?$nd#531ApH2wyg)V8f=6+$#@9xjV1+A5T*CiLE1+hG~7
z3rQlmBtffvz~P98#Cun{ZAC_fy_0V<jGIahO3FHU?>KpVqxP=jYvCgr3hp*(RPsSM
z*`~mc{647}pcy<IsLjxOx*SSa&aIDI5jKPpO(f`5;a3=TLAWLk$T1)k0@Qrm>#YBI
zJ-?|Z)pSbj(FYV>>u>ry^k(`dhd0yo|1aWRZ*WR|U;8>G`FHr%zr8MWJdhSoC{zv5
z)#9KEVBJ@8Apr2!6kZItU^(u)QL(nGt7|kxI6{s%h79@6-|pL?d34&YAYl6(mN9V8
zXD9olhfeMW=L|d}2?W8_a-Qla-FuyF8=rmW6Jut+OoRbhOkpGz;e2dhcsSHqBDjxc
zPekcZBu&6CdsSWEE~*t7tp$GF`RLS_+@l(iEm|CUw2_fiGBS_xjEwCa7^iaxJB$Nm
zD0Jy!coOj;h;ZjpXMn2wS$f?Tdv688g)buLIyy8NazHbIJqxvg8dZpF6poe<y$cDi
z56L{u=c%GZegi(wBT^!1=|SXUKnLF7oj=h!*G#^5pv!obI6M?l@R|@nZ&guIWmeF|
z5TYPnP@&rx+NeFa<Rg`H|8>PwR1$PYB}HKnNh&Jqf`)A82>QQ){oRuZn0s(!Av$bo
zcf=q<&;T@lyI{LX1#x<v&-T0Y9b|(-5kCDBpEzVy@SamWtHL1?!;c_7#C$<Br2`Hp
zoJTMzeWbE)p_IG=kP(am8X~N<TT=uxJBy)2VT4%#?|v-<P=7h!9*1J_u18>b^Fz)#
z_g~2cOo|ckjy&(C1e~`g@C=CMD=4M2xB;O!XwkvK!tx5+_|Fk~@%7&^$QkHux|s%`
zs8D{e1YG-A)!sV$cdrJ-9)4W&)<wRvd^fh|vB0yHuRtE~kN{IK2a`fE7|)cY@AJ;P
z(sqsV^%(<y8-eh}1FjI$95m~{U{nasb$9bd>v-;TmoqjnSQTHG6cO<{)jRZ?C&Es8
z`}?<{+aKKg=iZaO@_P?>ANqXzz2$?wk_U`73&<ZIy7ytr5u1w&7j7PYZ}{%9g#675
z-|k5pC>YS}b1>NPG3dfZmPahT_LPD66K7l;?S&#-#T#21?-ZpVJnI!Nw;0xv;0>_I
z(A3l<DKG!e-XljWiNM0=h6e7OYZB=#tn=zmZqX5(lSRd(e+gUGK>F0Vbm7sDN8*m8
zaID?3sZ#1&yz+hx&s?BG&@R-b<(dFJfis01CoQU{Rllz`;BLO{o{)t2CF4pNi7bcK
zeNcU*W+f+n1(=L;YMaHmFdGc{oui7Xx&xE;MMsx+E_*#l*3;b(WvejoxDna+;J-+c
zjU3~LURpi1BTru?pLoI&gWkbC?EmVOi8L=1C6#YNhHgpMuU$JUet<|+#!XHUmBB&}
zNSAUueR5>l*JCxNmAV3!=mkIO9F$A}G*8*yN!Z^USsCBN5|#Pe0iI>F7lSmd&U7HV
zqnJd772b0mfr`vgF3P4Z#5%koZ5=3fd$@JCH>h*4?I!sWY$OJMZ<|IP>#H71M){2S
zeP25NF}NBjR{FsyAc5($_YBQl?b1quJ(su>s7|8nMsOU2!Y8qc<vF8OJapY{<|Vi2
zDg)S+WO}Uth$ZrD;+S~7DLM)LPNPSdIXP1+$gYT~6cYC&&aKeFuz&a&xnb$Hl+%mc
z<7>Ar(zsneAd<f{HMlB;%tx=7s#?Po!T+Us_4M_hS7^e&I9C1i>C@BDqP;jBM@toz
z2(0{%L91Eom#41d*R8}YD7uLpV|==%HRHQ_O66#;=w8%SkXQN1L8Z(+g1ca@TmFL4
z)TU6=cXIE1Pt72_oFKcgQ7sxAq9){R9Ie&#Z^axWY`-|G{q*$ggx8h$YrUshA6u2s
zlRtd;Kpc!jMo$~wCK$k1Jn7+0Obn96m+t7ib%os10{uM>sN4*A5Kd-5%a}4U2L!ev
zM0YhU8;Qc1RFhOdz0arrBA%t-KL_f4ps28i&{yn1ixWLohnVnihbV5H5)(#ETiYz+
zpa($v7}AhjXUow$HQ-hgPYVeQ4#r`tX!Q0ZaA{)l7T64F)$G17w*Do%ka6X5tfp^b
z3WpfiWiiL)`~9}_3`~rS>9}(wf5K?`_3Jiq0*x?eadWzz0xR0gS0Pj2gwbhIGXewi
zaHy+Fs;}c;%hs38air<ZmviY0m$!VXs!D+ciU4jHT3P@S<iMqgP|}FwhD0`~?`YLH
z*-m0Xn^85K`g)SI$E(J`#VcjN_S$aqZOD4^TH6u_Nb+C2Z<`fHffCPpnH_EHKz`Gr
z%pHN~PnDH2{@?>~0|Nv57A@yp;!eEn*sbzg`wZ^2LvgKOKpX81r-=BBsEm^t$vtXR
zZ{-bDUvA(S_8oAWE;5qT_{n7@daz2%SUTNzz~}jMJ{EdJ-Z*U{Ruwe;>mtd&S3nYK
zO>w@c=B&n19Bk`}FKA+lvpMSvV~ClBrQ#oh!(y%lot>kNkpd4MJoqcDUiC+UBB6A!
z&_l~|e{9P&$<vfxSwj(kC9C~7uQnKQ2%KT-`Nse(@Syr@3hiQIVxpeMWKckWfiy2(
z#LGM2wtzs?iCU)j#rjL7lB&&2z0Rvk(dK_u=k6^T9^3X;j4Siq-oi>_LqmG#J=_j<
zau7g$@bHjBY}a3NI%uj%85Y`Vm))IyvzLwzt;4ACwRXB?&zR?5L**S~QBg;knVDlg
z=i$&1A3S?YX<h{NbWPNq(p!e<1BYwMWWC6f|JiqM)}lG4o;_GG#{r2rCE5ZPcWOkF
zIxWs!_Rn-#v|?sst1<z>IaUo#Mlz&osKzBOzJ}?&=IHpr%Cud^#cSJtQ)bCE+xuqb
zwoGaz?0S=NlF?0Ku%PeHmcx^R4t5sVr?3RN95BNUz=3^iw7L%Pn}o5JgkW-|*cK^Q
ztdr_#&5oJh@O1-1LU1VQJn^7{PnElN>}Vn+DfrQd*3QnOR7uU~Zdwg(`!i2{=<nA>
zs3_QOZ1OWJ!R|J0^y(|;J#|XPKOiC^4P(8LWyd@7Q(vhADkIEYZ{L0kNhTE!?--8@
z);YzW%#ILpM%i-mhmRlU(Zh=(jK$Q_Yq5KkU=#w0>FH?Jev=bd{-V1+LrWYP|4c^y
zv<W+cl|<0@Q9otxz?Hml*Sj(jE0@*!_HS96qO4~i(lG4&p?q+1iAcIaf@LNZ4ZRTN
zhi?Z9OAVoYk3y@y;rc~(Ew$HW?~=*<ZW7Z!ICiFtyKSK&%MWbfygk_?NIKO)`yAV#
zXSMJJGUlMl{D2z~f_EhGfTJc<Laq1U=%{htojZ55YYN{uS#)JdG{;fzKX&Zc&OLin
z@n&%yanP^XPoI{*fB*i-^}RT)RcGlkKOXn??dkegXD*ko^iItITAW141YL}#p}XeB
zC&KE3mztqzRVab<wSX_j>C<0UyA(|+l4v)l7VN|7Pk4BEkQ8AKvlebl6gt&R9q`G^
z+*MgQK*w!fg*dNFIQi%a>&qSGHCFjJ=XUDcIaOe>JHl$!xnx`S$Yz+Zm#Q=w9G9aX
z;4J#WzQrcE+oWKxov&{Wm!%0Yy;f{m|AJO=5y_L=$7=o6ZQS+s_0J;4bVSry8F2)K
zD_0&NDVuG3BvPP1;kLHK@<zvumN}X@>&v<}B$X)+svDjgd2ZhS@&z~^M*?cK1SqmT
zc4H6Kv61Fs>X3;+3Y`sc{(jz3<x>Sclix&c(bNwCzWTGE;7~q>#>O0Q*s(U?6lbJ1
zjotxX6J}w#0;x<502fIDew^VTPL=?Z1`$UxDk>^$M=cFg`w5GV;8R4VoEQipe8zP{
zr|w$B(U?3xlorrvG~~ZaS&e3FTaDhQvt>~O12=&;<e=t1fhuQF8P03y)t$-OkzTtL
zQxCkXF}YUILQSKbp;J9OIm#pKG-FUWo4lQ4(XwsnSAf@oXL<?S&Sc0TvfY6d$+KbN
zYzZu)I1v-qP^|e6u|g3kZudDlOqadBHK`p?ZClw%)y}^3l6HXk;1N<wUp8%zm(9!@
zbC3B3n2^GlTCx-*%(Y%jFP2lZp-i`7m?0aIh{M=v74|$@zo(|5Tz?sMQ)Tg8Wj`e8
z%a~TaHepTkLK8CVwea%_@JZtL96lcf6P$P|2~NY_58}~H$GIIzAZeYrsv5`D-!?ee
zF8$|NOD|+m;%v{xO`GcXZX)99NTF$FZrUc#zP>zi;_;J$#Vw1Yx>}Jlm0s>gBiS;h
z2L}h8fy{Aqmn99HqSIbxnOWadclngFw$+!Y`?1X)d#5!g7cMWs50cdi^7A`JA`XGo
zPIH*|t48=He;~>$-FunKhh|iOi|ZQk_?D$rbOuEW3yWtlVY_BVR$A2zBhSb6zFePl
zIP7`IBQg68&&fu64fMDjZW6cJ(lV&zd7r#|Z+zCQRoXuwz%OaZ^LpX@4Y%W^@^xOs
zqaj$U(*&RIY)ImF{ryX^L)7NmqgYuc=NjRC6}=)e9?L%_wX`;D*g%|4CJu2!AaxQ#
zs2)%fI-$nk(nqalD$SlvFc&WR&%ydYHuSY3QaX4>NZKV`Iz+g&qE}BPr}}kMdDWC#
z@n{FW5u_})rB$te9NqaTbvwuMeb?6|m9msI#oyg~b(feMWkT6R#50-$7K?hy++0Y(
z%K<YwE2-n2GAnUX>k$pY_T$PwZLyOkf3D=G3NfiX=9t=X-F9&mL3!fwW7yfmIVPNK
z;~8sqErE?^Xk|U@5?55qV>J>Xo}u)N+~ZD%)VtDxS5`95$uS}AzyIxSR&HDF`JZ_}
zD@KM6C6E4TzrN}u`)z4ug*YPTVA>7#bg?;(^t1O2$Tz_RHS;W*kVmvfl%2M?4{{!B
z^{}gU^$-#)DmQNu5A})z)g41rH`hQH<?!bi0{mTQrTLOa0}gUfB)1qhgtI$zuPXe_
zS|8#7X9))!J`eZED5+Xe$t<Aho8dr65X~d7vkaWZR=z8ovb>=>yMxdb2=&;Xn<jLp
zS$|n6Hf1V2l|&FIi99!0vK%Gl{^_;aMRtC@Rvm=g0LOW4klN!UUy#b$7YM0IfR;Mw
z#*cLxYif9<1b}1?Y8bWIe+_gCu25Rb$}gCC{fh<9qC`X#i2Ot^gjNP*HSy#Te)Ksv
z993gDee*(yfOOVOsbVj2kerZd5V7KXzEs@5)(|JymiA+pOfdm+6-1W3J|t^`YaG~0
zm5-DFz5ie6(#$+O8J+gT6R<A(Pgm@}9>72>{%IC^L`QgRB7nm%<pJk*j*iPQVwZzx
z_<IAoww=e*2?p(ic7HtWjg=U}8TZQOI9VUatmX2lNLw=y$9*$l6EWlQOs+Vr()$W!
z;WWvOhxwTlUwpU~uLDEA@Q69iFoWgbp+=R696diw$mf5Np41!hf#ZAQL3IpZX0+T|
zr$IlA9zA{>QYD7e&+%>qRX_e?KzPm-cg*s;catQYot+<pr_2Zb;Ud}(!A00uS?P(4
z<}^~{bckV&*w>x@i@2grOdn#R%xd7CM_=mZ(JJ`zkHMoSPZ)>;7=yRZ|AjY3Na_iz
zQtP?>r?twtDTJpxbnVsY_tIcrLwITmUBBzB&lybHOWg%usp%^{GFtq-QFQb;rg087
zDb~jajxXIrcfLR{jfmLCll}HZ1!A>cZovmTB4+)9f{Z#R96nm*AA(19a^aPX;%j~T
zIB~mSQHAz(#58U(8n3$)m1v2U6V3(;Jt~n85>j0U4-o$qNlCCVBC*%$Ry3<)GkW8e
zPu8Cqx1~w#i&}sH*z2ZyQ&I1B-C*J7ZopE(T<IJh=1OH0bM5?jZ*i($*P!s@;OXZ+
zhz8O$wDgMLIW%jRn0mZiIwuw`Wg?rRF>($!fZPAF4U@8#kNxWJ=}Tk)KjMndoH;Wh
zv_yIGNtDQl9V|`b{uRU~K&7IqzIN|cfZJ||QHFBheBKP-CEciC9$g)S6{1dHY@BpB
z6jpBpHz>Q4XChrE7$rnFNs9T0gzQZGEVcfHsCc5!$L+g!b2$`0eY$<9;@N(QJg!Fj
zA`#uM+Fg#OHobyOh#1AW_nq`f*je&KVS4e3`pODsk);(`rYZZ)=pssz;QGg^JMoA}
zzq_#Xc+ocTS3FtFZ+Nmqtw;3#;O@<%vEJWz@u%8$yK!%AQVJzaR8mngHBf0#$~;yw
zgv?~7+LaWFW~5BX7?OF|J3JfFV9pptrc4<#oa=sKe?Q-IerK(7*7}~$`mUd~|7i0(
z@A37zhwHxX>sC<<d6AV<*I^?~sdz)5lJ1P0^P6W2pS(5ZU?Svb9oLYCyoU%o^6!x`
zd2VP(u?&H?fUKAK2v10nAM@tQy*BM->&c%XyHY-Iz@yVHom63}s?>@fNogWW72@as
z5>r89IcRjH<Y(^u`AWF5*z5^M!XH6R6d6)ptg5FCI?9JkCzc=~V%Wkqo5iUnolyS@
zhZ@CSW8!K?MiEGwo<IVD?E7(Wj<t69=?fh-V?;^|jm|h9+Y5k$Qo;$iX3~gB14V!n
z&5-`Z;W%I<HrXgJ16zcgr=LFQ85*jD)7}P)F1LTbe+^+?qexr9v&ud_)KMbp3LJ-y
zM(wm;z8Jv}3vJkN_<X&?Q_xWMW&#XkCGdg~=#!x@4xsk|d?%H@p&?a7G@_^e`U%22
z*;UIb)ocTi%j;VXIDcx$UAu1G0ZMQ$4|S|ZP$Kz^zqRtCMFb!#2rj~OXX=-@s2{`4
zZ8I!cE`QH;RHtX3I-5gN=EXuq4MI+K^0~0N$jPNTNi&pOT(2myeLc-k`klI0C=W!N
z39*xStC`R^3Iia9R>Ja(#0`wc#umwZjojVh)Jg*5@&d>sLaLIQHv2m8ZizMrod<d3
z-_gmXe@-^LXh_+QO3ZM%+}h*zn|mCJ8YiEuKM{Vw7ewE$w}#P3Qij4C*20^s;*5xk
zwQaLg@<X<uC0Gs7G&fqDl26Qt<T>iP_Hi6k7Ae?#0{*=M!IubKqHf%nU)207TI%2e
z98v7r;In{X5hO9rsI*sFjPMdMX$LTy6A09kOaJviEJ1=}UA>8#!!zrjx}Wc*tDD<n
zH#33&zC@lyi<<HdPt{-Sm#wlFdIyb|fx#Mc6TlPD)lx=t0tXk@Q))v!b?Ve-Ps$MM
zFZ;Q%qzj;*WDt_0DPQl{u`v@>sJu<+4F~3M7qs-k8+$KI$sX*Io||!}5n$&r=++c!
znL`5#9dqHPFMYdR_W$#tEMK8(&vS7nB)8)K29h|z;QkX7jU0&%3PGV2@)QYka&fJF
zTG|$4GgU+y{%v26V-?8FAWHMe9|w7WbW$&0xw2TJ^{>nGJiWZi;cr&U17<9T;-F&Z
z0iAzDXa8pYqVp?ZLDjBkVZ6?9e)aktJJe9zP((;BKrxgf%J)kOrfOG@l{oCBI^m4P
zYOsd(U+VzOc@{LT(IVXme)&->>Va07$p?yQQ_u8ZF2@4i#fugNBLR^2Ep3C0lkT&Q
zWmle@dUfS2$|Am@YaiL~!7|*QtmjEe*7P&7<j;;%6B84h8VzsW93`?aa4Y_{_b(Qr
zfX`t)b=MrbFI2ulwpna9@pnza@W@CTx;sV8OT-YvW`c;qTkz|T!?||{=X9KcEfK8&
zjpB2Ci9zC71ks+?uH6zKqLd?)h*Eo}l`DQ{)A_XnjiuGn$Ph2TT=2^;)bLzR@g3Q<
zPZm2i6#u6Klbl+0eVVPw<>WZzEzsDRje1dG;fo(<XDH30M|M8@dtkM~fddxn_rdT{
zho~r8wIcuHLo@0X9;eOw_18)~+)eT@dp6=F(0dF=$p3}VX+hDc<4Kpi**yPMjr`RA
zG6cQZGuD+#bZ3Ns1FsGYvr7#+h$u7BnxU%GyacLxG8ig|M{mOeMWSQfQG)Z(xAyWw
zNd9{5xZU?3Ym|FHq}#zx^+S5Gn#tZXe^e!v%Rv830(4>i^wa}zNsl+mCCOdj(nsTD
zhK_Tu+@XCv-pj?0;{~dsT)OdZXvgBm{<xZrX3|pe+M2T|C7WMN_*}{iWNTF9uy<jp
zdXAm-18-gH?Dqw8=EMtlOKgAm;{xxzZqS|hb9a5oU$(W5b43|!I((&wJ3hCx9P~|*
z;bk3~aV)VqBk;#RA+ICKF|7%bvtMyqafHE_w>*Ovjg=yYn#BVZ4mD4$m>zAsiD(3!
zEl1u>9U<r7;pu-eq&?X)?yLjgA?EKSIsk~|dcxEf8#~tZII1BhM_=<Mc>*XeUb<B0
z$+cw3-?yjM0z*JV?h-REH}`%Q8ZzyL*{4oWzL3@v>VMVssn$=qwoV=KSlzM4f#+}(
ziJ3s`gbk*&Odh8_!BSP#w!KrWaQN^y9sa4KMDmy=w44GSS&p800r?p-z6O0og&<jP
z>hBS}>v~i!!jBf6t~Q;YHnou~=9KT5`almJ{?w`e(}Tjhoce?_2ivrY%760@b2fJU
zbZlVhl_%iL0S-yy=|K14;xj)~=1*<}c#A(cNh~-7lE3PcCr|1XX5IN?rf?zBMvEhl
zB&*-whx<(0_G3M{OArA8Iq!#>vugbCwqPEsfP9$|I9G56o6hZL;Qmlx1E8(e8-fi_
z;5H^af1E4wHvTB@JM+~hKhrFUsIz#(@X9JyR$JKWxi8WgfoCjOx+T|F4Fr$MP<cNN
zUS2bK$sbQ#$Tnc`<=CZ58G%=d>=f=tzu?>MD6v3^zhT^ZS}?!N;@|()OzzG)J<SF9
zFI^jK_7WE!mTaC+I1subV54B-31k6=i;l+Du5VK-QRx(iz0iYGOFkfg%o=G~Mg;I|
z=$c*Y*tdUw$A#Iv$H2}ZIix}Zy__kl=sp>oqj`;b|4|=5i0tLFh8r+4Qf{JzO-@$U
z2>sWjO|!Im%9ZU}WZk1O_tj>~57DmqG`GnNF(YxV-@bi&`W{L%hvVbpf2dM?J2UOj
zoPT1gKiGqUbvt>RpsQD}k|5iMc)hD7K{CP!MWB|_jtG3G(_l2x8vHU2wO@*r*xA`z
zULsR31sOiWf@A7tBf00oRH1EwJW)$O(chthMSXNX!qMYr3fUkXfBBC;C>nNz$PV<{
zf-7~LinS(?=|hKP?;X1zR+qtuT!VuRqQ3jEivkvqb?#(myInqwJcMMBu?V;8`itmY
z(HEbxH$6vS5dn7U8#sZzWR}M*YOEA*Ib|ry4$~hIl^aM%O4i1x;Shpin|@rk`@?H9
z<F2y({PV+eS6_Wp0j7NR<)w=kYdxn#pK^v2Vc)<ue$a*6Pd?oRCZXwhbbiLDP2IRN
z9~s8dr#{uZV6y=`)bjL07aX!(&SleaQ?V>uJh=Ua3QwPdx=R{Hh{qz2-9V;Dvf{)6
z5-2cB?jQ+CN!6(%XRXeunWJ=m_wL;+p*L_&5BWlvITD1!2tXWE?l((oTXXs9RSMDV
z(zU5a5mF=IeI|jE-~t-)2gs5<xld6Lz`IOKi1@L7B7Z|5w_?qjeK@x=dW~K$ix~&{
z=?Ef~5C;=s1qhSv??SGweLuB>8};r7Kk*%dwq7M+&IYfS;E|~qX{Oi3f?Y!EWb_r^
zMB|hBQ;&R@dtZ-AFiMwgsN}yxk>G{l8(wtk?gQ=aL$+Hsd~Go7J{ud`GkL!?z@+a4
z2M60g_()JtF!C?CQ&ZPjj%O>30xPW{+peTaM~ORDsTLnElGY9aN4sdOghRgbUs*^j
zrf=jpDFjK!fI~n=Qwxcer?>Z@9XF$K(Og6ppt7)9#JH`o6z=A;T(wdxL6;gX$(m57
zBW8m6(-{oTeFzM&UrN!|RlF=WRS(;ACjjtRh&a#N!up>5ArSWj+7ezW_RZ@VvJ#6e
zlC+UcU20ei7p;qUS)Zs{xP5*3XrMqQ5M`P>Z(gDR%T(v2f4JeSFvE5a%U~V}h%8Hz
zagabBuoQ7ZKRO{F_E&<+UtLr^^%Q!r8>GWg5-uz*zLV=!_~X~^4@+9QrVT73_DRk(
zD@)pQD&}D@hS#-V^<w*|bH8b`(cu11@gAPjcJqH?Rh85K{If^#Mq`YuqM~9#b#2tM
zwQJXE-d-?uDZ2ZyknyTsKvGHmJwhtZ<;y!&GIDZug*#7uWW}}h+>)EttjRa!6SvBB
zx;FLe2s;WrpfC7(5SdBl{W(*2(S8N{k5bVtbVfLe{66*Z@&(vc=@0^bZ3pF%p+!^c
z>R6YBpXjeq=-tP;*UHcR#bVON(9kfQ=SSeh*fp^0Lh_>A{CthYMFx6rr;X~Nh{aQe
z!rdqM|NBABCH5QrG={939%S*~{KF9p^R@1g-C(3^fJ+M_T@#N6?KSd+MMc&>HiQ!A
zl~YDY0BQ9mpNP)|A{I?_l$x^`*l~dzJCqr)4&J=K502~eAEAVODNr{X@UpQei?r;j
z^>@0AzAzPY9iGQf=0POUc9~1(n7w@pn3gs1)QbmuP9^5WXISBy@+%ZI1mrIabUfSr
z)LW+{Uy7Nf{sf8d(kmaklptxli?#<6lbv=iT4oiZo0!-@Y_n%;E@CauNZ$`f_-)V;
zj36R;xn|b!;FNg`=}Qe7KVA>x|K&?b2+gU9)0F{zU^ns)PmAeOT0IZVAwowa_)?x8
z9&b^Wc#2d(lbvOD@Tp^S4?Q*7;m{Wf?sYhrBwrw;RSJW@w0wG3@}8Eza2`AvZcw?Y
z_?q<+!t1tZH^#EB0Bm&!z+hhN)Cn1rZ+vH(!^aMQ+_?^HEa)Yak$Ur{L#X3}$@3KF
zX?L4wbps8Kd*8tH;%3_r7`$@Did_VYOh93y0|%yF;xcHKTaO@jF2}?IRPc{Mi-?Mc
z(X~=jXDnNHcd`9E5NL0q<v$jGHbO<r5h}vP`T)z{krrc$rCuFQO)Wfl^-qsaZAo|I
z0zEbz>)B%dW@tKbK~Eor46N=!)9UwHk8a+4eE<Fu;7htx`~lhFYuoLqlRnnyvA>Y~
z7}Yqb(JvwJRYBCFzo)3=kyI4iiXcD#9vYm0_GSGg`}D&hhspYp4m&<C19@SKM;(*b
zDLQw6G%8`oj{pcGNJ>a}_tYnQR^B<@D1{ypLbIq%oAj+<Pf|NUgLwyvcod*cK`01;
z^0MU~DSQFRg4(;9e(02aVo2xdvDJedU<8-QYP^Dv?7%)!LN!?68Gv8n_(5xjUIcO3
z2<HRMjL2ye)8JJH3KXD446Nrz2dAx@^W88uomZQ`fg1g#m&vD!xgG@0Ai}VAfc6@x
zp@MW|1nCdb^NY7c1{@AR#s3Y|sD*?|r>wra@yZ;}6<|(2lsF$tRo1Z3P!5g792}t#
zLokADBE|bfJc$tLF`)h<&uvq$?6F2X7CPQ1GSbD4F<8`e6GRBE?i!rS{MO%}$UmK>
zN4(syzNcm0{P|^A1IPnz?pbA_omVy;sU6#LXl@1}2b4tHcGuU1y-Qo23Ig(m>r)XF
zqugsXTRkv04fbhV<k$=`^R-j2h+*NidX+uT!mFrl36hsA#b^zU*e()00%mm3m!`n5
z{iL>Y_47B7n?j5Aqdj}}q_i#n@qKsx4NLz_cjz~Oey=r2a^3dzJ^r;zAz;TTv!T+X
zGU~SuVrShAM@9c2t|}ItjV6ne=RpqPA>v1(9HPbwgh>#)h6NG+{(I)lX}1ws=sU9;
zaMWu%L;yvZ+Teq{9>nB<m;+&j)7wg_Cuf$YkB=&Jff00u0xP`Vfr%It)e#&BzO`}I
zSDT%8unlO5&iZ-&&C<4S`75VxKjJhVFCkV25?i(;)YhP&^Ovb=>#`*3zDLiab9@nX
zEhMIpK0Y-ohUJr5Fo|(EcuyU}*#{38wHyDgn>TM-nR6{)Zu$~UM0AznZW9^6^o^y>
zQ3xQ_dy-n&a76~&Z6~$`T1wZ;w|_{A8vI%(^n>6D>O@D0ME5qm3~1tkH564lYiiXT
z`>b}n@yOAmljgfLNA@nxuv9~L8s{@5aj@UEJXP}W_O1ZglQ^<eVm_##paO4y`_ZFV
zQ0d=jwSq%+;>?*)!14HxL}mdB(!`e=nsrZKOx?*bF{~ySM6nt!VVw;_cG%<w=?K16
zLXUsmfEu0Y(ZHR`L|d>%;E7u~>iZ)Q0lAFhx8IHlcxPv4r+zhWp0bA#4?I;CX}?9M
z4+$#zz5qKDk;XlfbX~Xca#Iv?is`^e8}dw1@6Y<Xui+6jkH+V!u_X&HsVqgH9ZKTK
zcWZ0Up~cNN6m}qmhb;Q8a$A%QA^PBiM0wCo&<uDfy>8UCn#swn`wJ@v-DT$%+cyAH
z#h0VBYEUqEX9^!s=cyDK0Nvq4Z9E|UBBUF0rQ%RYxE4P*7U_%Pyab^jv_cyJv%H(X
zVTbuvoY1}9u<ug=DWYWtUeU+$euBjTSPHJ^54?T!WFCX=_FVz0KR{Pw6vkh-T?|e<
zP<ps=R{se2GNy8Z%HDNm+b2(-Te9zo!_|J>?_K>3u_tQNkiRZA)JQ-DPY^i)x@fx8
zaHnNpFWA)CR;u4zN*53*IH~Hiz`QNA=);RaR>W(s##D8F6ZhK;hVorp1Kgd->-!=k
z%DqOO;$JelutYRL;&O!)f(TlG!1k)0yFg1<MF>Hwhq_PjpdlV{=+FsJg6D3W>?;23
zsrfX;HY7NBL&=LX04K_kq@I<J#^N*q^EIzzE7_mNqp6)A#5_}470jQ0On4C_);{dn
zof!x#vpV6^8WUeiQ%Ewrr5^@rFSxK}(7$<tH3~5W9g>eEW&4Pfns~kaRM$`mQ~Yd$
zxZBhXg<QG2agaKE+YhUIZ;1(L&<5#^sZ;jr*j9Cw#-y6AQP_B>U_RaxM>#e+X(|)+
zi#%U1lRzR)qaEzh>ms*B22j7OsSF$&G24Q=s}q@$x<@5@{}4D^_54&`Nt_e%?mZz!
zd=N%C8a8EDbM~vLG~NkCTun;;*h>`{q{Xpl(eX2ZH*fw%ntY`EOdZJJ@~A)9bBFLn
zkRD`x!S4^FiUZ(Qsuz_3&kdAvQrTW-;|Eb99;9u804?y>GO9*{VXrPTIhIKB(owN#
z2SE+<6S#c&avO%7^tGIt+W8SPCAY8}15DZmf(ei(brcWD$qPKg-ppI<615ezCjFwj
zq&8`_Gtf7b_LtVz?(R4st%88zgPi-WVR<|Sdk)>Y3Ay(H*FLKVc{FwW+dg5d?5{&4
zI~Zj@KpbT$O=eket!HsLG;ZitCCnK#161XG2?x#u&2)AC9JnNkXfU(vX!ul=m9yXe
z%um9e#GD`kA$kWo(0oq<q-AJ?<nJJ@SW4_r`ALGmMrTnZ78d|?MMP$l%3SW8x+Enz
zU^nV&YWG3wJgEH?NottFKLG3T)&Bvu_RROW(I{otc^@V;3Y!|J&^;%rbvy9$V2#pG
z#N7=WduX^6(L^CX*ZO|&A2{ss*arXLk5K!iwt_Y*%W0(Qn8@85jdkeM)3N`^*6)B)
zh^XT?qdJRM3+66ZfY#3-&h)7(WpJECWC_D#kPb&qd`++*IG;@ab@lTzo>yRM6UV_2
zRji%XvOb6}4Iw@;_)c<f`~p9&l<|1}T@L%Wl%~0fUESU0atEe<y=y7F)F7n5OoL?H
z>OF5x{n~vCJOWkw2;_b7pATY=)>tVFX7de|0cWVNurPst!}LiwaFW$$QIK?OyfE7a
zgdZ5w-4Omt7Th-dktH)!esaLv5~7ci)(0_Kp_L?oMz*80mJtIKavGxgp%OZk`Y}W=
z!U&O{hu4tPk+E*MfqGwb)pQurxE)V=`l%dCMcCj3LY>fGQ)grd<{;z-nJxO4=>tYE
z!i}c?%J(k-^X=6qwv7QDO#tB~4i{tsfG!QFgg_hc+m@XuIv=OtaQ&7o$6Z}rA03#!
zg2;`B=4GIO4O&T17S`~VN*Mi^Q8ZY}(@-eKp|9uk1*cAUtV>-??iBzC&ZSG$BT|+v
zUaZnIitVM0NL4@{gx@=-mZ*eH`8n3DBc3cn(Hd+1kS`UCNhx3_9zv&`Q+&-&KmB9`
z+w8mPNF@x(&qDtM@7%B8sKAymT5N<D5Epjn9-{8x*Ii((oqfrQHvjWSqtz2%4<dE=
z+}*7k+eL^-VkUOd|8zjG8O>kfc)CUpP$#=qgY3?~3sgysTQv5Se#(|$4M5b|h|o4I
z&s%6qm;2}5^?p)gC%sRD3l$$N)~$H#e2T~qFM(*A$qDwjyN!3~K7?!~E90feMZRUh
z2<xalY$Q+xixHK_5JiY^PsdRn&v?L2kg)*^o|>sCRTfweW)~b$YU*nPA%~kiAQ2VY
zA?}Voz{a~71)Uh^)V;rt5`Fv>xc+DxSje!MuYs+v*|6cpOyOfkXz4>LNWD=Ty-E=8
zSBveUE{>O=QtH!Hf;qO!ZL~B9g|=Gn0V2%JTfE_|ZKby1ZUffEDtV7}=N@rv2yx_z
zV?js<K7_66&wlwyLfSp@PrR1Bze<Hd8vCFxbWu5%EsH_|b3oAHCv&Vk5cSW*?!A!Q
zPOQ$uhi|NopTO8kdBO1(rys{w{_{xOF|~9PL<>cIC5Da?Y>dT;aEib_A*_}u(DuGI
zl7<@si@C17U0C=iu_u8^zOE!Mfq?jbdR42>A{l9sOhd&%8R?BJN{s-&i?mv4Di(MR
zWS9G&GQbdVgxpc|!Rb9@Jilme2FPrqkYFi(#x2l>jP!Dada9NF6LB5Vcya-(3GP6$
z;55V(A+kZJ=b$h6Q;6zp&}vRKQ1aNfY)NR0U~%$&AV-~nEX?8Q9c?`SkXgc@CYW4r
z!PTU}EQHVhAmgKU@;Yfc5ntSU068bf(7;Wd9JjL`7ow<UwVgC+f%Wsa4}9CHfAi@V
za4Z1l?AECzX3RFIWwTAga=VIYNx|j<ma~=c=9D`<^_7VA_x~|8&bN`>fGV*O^EF!>
z!HgprBof1I2bbPAG<)o`FcHZ(5y-KAc6k9O7<zJ*H}dT$4WvNv8i`RPcBmRH`|`)T
zXZ`D56FRXCY$BR7hxlI=vndD=hH#+6D$c0`_NeRlU#dj;89DuJ0pj73+*$JUu4V*%
zD)*0uBGd=dH$gHD*B?xM&Aq$V_(G*wvVRx!aqa(s<$9!aHujK`Ko^YiKh-`)7Bh;i
z9{LaOD2}fG*Mn$W7y|CvUXvU*GKPvrkIM8WZ}giP{YxKKMbSr#+o_LEEg_VNs2rfr
z*E>sro{S!|c>d|zz^Yi^vv8SM^jqgN&X0&J!10KL{H;ppKQ{16Ww_BV$RD9U_ZT<(
z1+0<*mFa4DV<HSb1bH{S+FY1q1`kPGa{v!0`>V(Q*fVg{w{Vhu`}X~7rmFKFPNR|c
zUqHeQ4}xb@6#f18TSU!gmRv#o-WC%?9VAvyJwRoQ4~+Wl)n*zIM{NzrY)^n6!^z1>
zL~A)YxwEKN)GJJtS9fuqF8GC>pyHKNYV47+pra2OIUh|0mH#VvvGT_e%6$W+ku&`f
zX4+xUBNYHR)165H29Y*RGo>XWwk*lv$N3+JCnClFQFPY80UvEz;Z%qa40-4Z`7~+{
z(lQ6rN6s@H=pDrqU@gC{L{DW{M8rB6iNdXOrglTm()qIno?k2#thK8-mlq2SPQ^@U
zb++`=PDCJxsFsGoQQS$xNVO(VQxe>W8FTW}2bhCUCJ+iF^IyHi6%a$He*leakw}F|
z=?&CIo8g{QFt3Mkms={KMoe;UF$Y2p64q2r)B55&UO(8%G{x;|LXcnRg(QMXO6QSY
zN3ulAXkHLiC}%C5J}W023~`F7o0_t20g`kkqy!xP<7euSn0$ewpdt#bIugyNDKkh+
z&mvC(0_F7D&cebXzJughO=(Ez>U<&#s5erjWc@TmEE<4dKr6#u5q!T&M7tb3JTbtK
zI5lgFx!BpCkmNIAooG$60bx}Ltt6EEU9|rF-Zq~e;H<ChaL)&CC_n!t3jymi!-3IQ
zgyl-y0&9gTh(G*omV7VO3&|}_Z$W#|7Z?wk4HWg+qYV9>8mKB>XE`-0Z6zo`TBCYX
zS1q_({#}@$rgmSyjmFJ+p<SFss{nh%Hx#wybe?&;@&wkbX+P>V>W53r2=uHO8y_D)
zb0y7pt5;x)*oHUU4mXFkzb{=%8`yvUJp^1S_(57`(m*M@LCh&01nQ>ywF})&#dfxV
zR*fj=iOtJ^0LN%E-=x}^KzJDwNVWNfA^|}D7FDIjwtv=sSy}rPHBH1SN1gL-zU29@
z0b#w2+vlJ_N?2fW>GRj%kSJW>5-kMbm!`E6c>{T`7V%6G0iw2zt7t66u3fWc&BLyo
zoSeRH$;RyTNf_8@z#lXfR21Vr<lmEMC9+|fv~anC`tplsnnQ03ElI~rNixm93jwCn
zy5`_|mm%$O_|l{^KXrp91IPdR_|srUqk8YThsJNq?+oqdkBX7F^W;yNuJulGj~^Pl
zopUL66V3-i<a64i>$hFree9wr*4-E`+#G0Cb;;}38;<8}kpJ`9oVnf#F$y#)2^*~q
zmjq%~IpY3ju(9j5Z7b7ih2eh><}X03VAPE|z^uijCfz4H0OMosSxbLaRn<X>pHW9G
z+Bg5+Q09yr>-G<`IM}r&Wb&0o7Z~4>TJYPk!19Fe9iBxdD1s$dx%P__Z0g>zA+<mQ
zA<pYT(ASDG$!Zkav36NlVQ+tbDWP1gXfQj54hou|hyFkLdo6W!C|$#}k$NOr8>!CM
zA_mZc1m{_n1X=XiFz;z+c}!FtK@p<cYF7*fut8(%mSo7;9mA)KTY*XdZCOqI450aK
z38FD<&_+LjNlGN6PqZ_%)V&2qOh37XI&TCeCAI$i^Ut|+<|rcl8Nkef18GY0br3R}
ziXED0!(GwO@a992f8f}};unB4qV}y@w-DpW$Cqv*8C4{?if7KO6+ejFeFZ~acDGU}
z=s^PVpw$Wuw&;}?fRPmpOQL`R#>Q`>FiYRyH>jJgoW|6A2|yIVl~&^dtCOV1TnMsv
z^!vVP9Kcq6%WQM_62hNRc@f;cT@_%tA_}T!5~~p;uO+2LqyWV4#Kb1%p6wk7bt-}8
za&T~*ftmRLLR75Z+M}e8_`|qtIt2O=nMi7VxNLTK3iEz!kQlA8Wa-jp==-8r2u9ae
z0F<B@-E1AmUkcm#!-$bb@w{>4g`k&U9R8PE+BpSyw>T0sT@(+?u?dMzr=4Q4n`Q>!
zMH32#4^rA5shgdZTsnPYZ0b9gzW~38Xa|_Z9Rm|Y_%~3~%N4!219Cv<Lee5y=$P>r
z?c3vHV;o3SLOg4JycI^Y{z&&Y{T2oT@IOhkk#;LAB%I}*y?d3hinuk)rlTw&2b(>r
zSk^QX9o6yPPi9lcdAu*dL1H?_b2pLPa*@PusTmL}m<GGh?fBZDX}~%VSrJL@y$@UV
zLgd_ZET?oMjII8~i*4vyI@;j+{oI2Nykiw=5ECHQCZ6ZZE&l`=gOrRTLLEh$vQ$ZA
zT0P&SlfnIuu`6WVYn67*kSo|G>~iRhVg}p&v(I=W^q;k{OK7xQ-XMCy=dPl<F^{mr
z9N}LTJB<#iU*Vr)KaXAUs}-kW?5mvDode%r@k#vFk~P$+-s3FI+ixHJU|c<DT&G`W
zYyZc*dXs_f1~-2T3MNIpC;RSYFGmZ(H4hIobnW*QNEKu~rjz$>`nhkH_gx}#S~glI
zb0<GP)csP_(rnH;10zzz(8gCTK!Z5Jx>A;Pwn@E$0#8dY2R%r4?R^R}>#29N+T9MQ
zQ!lzk(3~UHUfcc0?+SmL$skcrT{m@>TYm1qHM@(=fLz8XqO=h=j?^@;&J_c1trS@a
zT+XIdYiD$$7<8|W7Y#pRJ_u{dQ)uc;VhxQX*>sTg%Bu7~2{dYB;vFQK{KdQ;0?*^;
z3S+(5&Mj7pdZ_gxT^m2$<3Ip!*L_9G_^)53G2n?caF8Dc=Xjd9dSdk$B>U`W^3b}?
ziu#@x{Vks(fhL;HK?qPPcaOUcr8np&AKlp&`mdk(ekaa(b-D}mR&o)4Ob+}cnsIRm
zB^>GwH(>tqgHOi226wbpy7$_Wtp<l>Sr1rx;MvhUB)oPzUPeX=@<J$R3E1j`Cdsu{
zhipK~``269C#!`Zue#$4iMEQ^_cRWFS}U^@k$ANTbGh|lYUL=|(R`z`xXOEHdqfJ1
zowYJ+x8YG5&M?P4Ho+KP#|t;i9>mi>x3vYrvc*5Av$I1pa`)kY9U|ECR{#1PSy^BS
zV^}OVuv7EEvsj9#vEJ-3vbd&;^EP>)?30J-q#f%JjOou|J@xb(DkJx8@P<5t#y+j>
z^$Qvk0O8^^jNz?<Gr`~q#QsQ=ZmtraV_#HMv`XIB!vpi}#>IRvYG@65jUQbHK>|M~
zh42aRFgY;Mot?e<F$=eHA1f>nwXYLkrE-r)J`0dD(6y@(`tgV#?#CkhU17({^h|(z
zT8CNJw2KD|!F8lax5R9+%iOIf?>6g7%U0rboVv=hc-6ie=<POl>Cn{4W2JC!=i>|e
zWF=9;uzW4T%tbhH8nv$8%Ipcz$jC@5(H|vEzEVLhKj+Uvy4Uc_b(<#E3G2WsjD63Z
zbiz=QTtHvcenQK;RT2#qMw<#({)(mi+k?a51^sB75T9MX>njZjc)R+OEE=3haqz7^
zgOPN=SAg1PzihDzhR;xh_V<@94EMhkbG}#U`N-+(f40+&i;eY0zl<nqa^+f*3)r?G
zY)e4|X}z-*v`4F*eB1J=cAJm-fhHXX5JfKrSLCg{y8QT;;|zE10LS)cBCcb@d+y!(
z9nI4>P*uuB*TG!vxs1*}+<t;}2cXYR6qyyZwd+2mV)xLC&^deH`ew|Xz&q1CzC2G(
zjx9F4S4`P37+n}7emp~%@#3Ur1#ezVQE<dML)9V^y9dSodeB1Yg-XgC3~yq?hDuM&
z$a}z({>k@HlkcHT1qE85T3bSvOKcF=81Q;_>gJJ@Q}2>p{P)~@XLK(^a=WXHxx<qp
z2BW?0rbPa}HZz`i+WSI^Cq~Z2_l<DP)Bc&!Gg%~`(@}n(^=6CX{+!W0>sQH}nbj5Q
zhJknbFS33e5%lxyjE3R-?FrkJqSiNZ&SV+zPr5p02`WLqEuqi2hs$@zXtI`{o#jjx
z$<zJzq92iX=xuk_5?m4X(+?uY`qe+8k^}2;*ZA3WFv+;E1kv2Jrlzi~P3`UNJDHt-
zW2e>KwxYi??A9NdYd?GblAC@a7(D#`pWkl!0sG!OzQC2O8!7A(Wo6}&2$rpM|JleQ
zM*_V-&Sk8t+BGXxmUY>?4&q_bL60B&!8W;h{Qv%X|F?%QR{k<Gq8f@$-y^WlJUpNT
zm!4Bjr(<mNa!+QHfOvUuLc$jQACDquQ0oUAu_7$v;`TS_F?#pKW$S~(c20;F6tyzW
z@lF;Tbxn9@&ARlqwT;Dz(AYK<PJGJ&dRpyQ6M5fl4y>oWBJ*F4l>FfK-Mi#OxL>@%
z4CsU!1acp~E@JKdoY*5d{)XhkFj8bc8qc(#b76_m?qw1Y8vz^X)PF>Atl02D5;mtN
zNPy@3O=fPd06*RO7&{}UWUag}Mr>_AjkxdfrmzC?YO{ImPh#Vi?KA_QB_5N03?c=y
z0lO_h?Of1iDI;go0h|()iR<0)0+tY6&O<2K459sVlF;dlhfCv1d*MifteTOYl(Yqa
zj$okBI*V~29eyAm`eDbh7ikoXr|wu2m#DO~+r-$HhHN(l9oe^wz%dts%GVd|^Nd}I
zzxTAL!`C%$&mK7vfYDo)kkh5<7^j0=2CtdKWs1e7G<l*w{&R98+$$MkIa^y>zgChj
zj#i83Cp&tn5KE4iuGhn(LOWgd?9;k=T1T3d&sF`#S)_8t=jj@hRXq={`F-`d53)5n
zH4Vph9I1HofD42LZ=mT$*tAcIW-#nTHp*z%$~yyS^hP4g{MBvvRSFoG%~xf{PSt{s
zAad%jKXx>_&zh^P6Qdx}^<qcYi&CpCl{5hi_TCE+{i?P7GZ>wwgOVe;UmTixXjk(c
zb`q`6_;}aRr~CQ&>>Z71A`a2(CfB%)EW4$o%$YWyagyuv_}=0O#8ouA`##1d&0n&4
z1@Le_1YutE2I8TTv*#Wwd=0(fp3I<$$B6qqQC}6|=Lgm9?ict5%ykaSxx?BjXZag9
z-UJGff@;laNTyi6-90-GE27zBmA8kvbMvxzv|3Cb(cL{c2fmyON~2b!MW?8xwH$Bu
zD75sqqL!6XTC2!18Grve!+hQ`{1GG=oeeq}JG>?P{#Jv$>vB+JU^}(Hyr*sBzW8uX
z%|$RrS3Sb0A$wFMf?vFN@%A(Qjj>THY7bY=OHWVFCiHUM06|Y0ketRBmf2u^b5B=1
zlh+afJ{KMhejc+~Ut>A<{~Po4zuoTt=N9hYdI$~9G=@eNV7PoFO23oav__d*h@U?)
zD#~Ayi%|n%`BP)4Lkrt16@Q1q!VYZ15a=G|iy$oO#TY<2@Kv{}+~q^j#gm>Yf>575
z_udC@P<y@t0JjpkMl`otLiMoRQDGKim)<Y-&seHmz}8PHv^v8?z?m}GX}>nplogz5
zE7toGajP?4KA00D23^t88=Rjj;b=Hv0nDEi87ZPHjeO?yI()bvad19*U)A8k8C3;z
zc#zwcz@irvM44e)11~LE?C`a-@633fgqz(bo69xWxu^?>k@Ce-l^Cy)4xt3*3BQd#
zzb;GIKmWti6V|uyavf5=&9oNY7}sxqUQRP>?OMK?wI7m>bSDhtsn%a-yI$EL!eBVu
zs=u?PxCJw{ZXgHUvesG~y1ydGFVUO2SD|IrNvBG_7pk4rvDoKEFRq8bxrS4<OHF(e
z?&J)~7F*|o+sbXdmyh${32*$cQE%b3uR%r#D7d=<gmiD<G_2)lcib$2wHW_Peb9f?
zMLF&K%Ol^iz1<8v1IQVe9qxB%TQV-UaAp+K6z<+)bJwki^^X$EbvgFCC58y(BBSh(
z+K-xZ2#nY}R9+y`PG1YX;GX=T7HkoU>r+r%Z=%6s9v(yuu|yN!zGSnyCMafXu((Vg
z-}T`ad;dRy9W{M#m~{2>QB_gFxRd~P^mN*t+48_3nq?ynY@K2L2n%gJh7JaFwnC`P
zP!hD6ULfL3fH6&oOuQiACo7u^PssyapR}8-04IVA-vg6G#7U1rQp!(GW5^3_urC-N
z9bj9b-V6VhFTXaBgPq++vhP3u1m5?s{P$ypn7P_HC1&X9t?q(?loY6LDRuV&UF7pk
z4l{@AhqAaRxsgQP^$u}$3V@N|l$4&OV?bZ^PyiC269}c5<?MW!2}@T5`3hV^x7JoL
zaaF$@w`$rNG;;U`w`e3q$&9yu{bJvbL0)I8yWGAfyG2=Q;Yp8m8p>QJ6Aul9W_YT-
zxPzT&TPZ=alCk%36B|&x^TAXJC>1v>et4&Jgdt7y;A^z_*LHy&q6ho(4i~%U9<sk(
z^Y{^{z~vbxpNF&G$((#MId;^vHbuk?@N^0|M>Ku2*S}#b{PD`}qpp2^!(~sUIm^q-
zk38xqSQ~T$QLPA^QUDyW@ypMBJET6`&D%cIrr2owuqAvuS6)kDVHFyrD6DiphntCp
z>Dt|V9bVvG_Lx2%`x-pvtQ6F7Ly+8BLQsxl!zW-ZZbX?Ce_#To;$A@E`;a?eH%A=u
zd8u#N`&j4lrVx2o5hqL2l5OKMR7$EE;h2~iCy@&L(J&b`wT`5tcvJ|rr9`Yg{q5ng
zM8eKg3%WNB&sg->1H!a!T-IL%6jkPwjRsA7pqb4PA>JUSl5>qsZFv|_`-Qd0s>E^O
zosE}%Eiuc+6It*f8Q63$fMX`A!2JA85C<$Nu(crn>mGQ?efyh*;-7AI4kCo9XdDM-
z#6t`;^6dBYSw31~22Rd{{ZidUqjnXoUjR@-lkwtA$FT2fcH=ONU1mvwHZvsBaXU=D
ziJq$-9_xgJOuk9tSve7<thY31Vw-9h>u~ES)&!dziSbseEd=^E=PxsVU7*D}(CEJ<
znEvl!$S9;Y8UfR<dKji@%A4L7S;fx}Y_aB3YTr4)Z@nRW<Li*49{Y0qAy%WnL`U|7
zkT+&taWi38SaB0(LKmy4Pb{~qI%SD+6oqPdwHb?gjz6WX3JIT}QgN;gYBx(q`aYs2
z?IH>K;$=V(IE|)B&UZZiToeOJ4Wid&^J4tN@L+N_552l4hv<#{y=;cCZCcmMnkK9v
zALLML-k_j;K5ufoVKNVvE9g>TUle5?{0bfY*Ot7CI&>lGY{vG=+f1*mT>6M<HF>*h
zvW|=m=eQOhQ=f2lYL`&dQRYELb$JtIR4d|s$|ySvri>5hzb$8CLAwDR$kNhr(_}`&
z*RG~esnTUVUv)k_=j*R4(g+*1U&XJ%_2ydN9xl4NxAWioC9oFO^99pM-@i2^n)W{b
zOX~SwcomV#Pv%vXua;i~$PJ@-cwx{0Vk|-x<vLIR@@G$qSc#m*<{9Q&5BUn9ah;cV
z2u;AWy~t&WdP^Z6Xu5qu;TnN4wB^@r8oX$NC&*~j{VAjP3q+9gv@HH)i?{D>a`Xy<
z#22_DtH`h*rP|MeoP=H44(a^pK$HE$q(|(!fPB-khT(lTK<~=8NJeS_rHy1%*qRse
z>0+i&07P9a0Rrz|<5ysqN~hX&klZA}Rus4o_LISQ<2sngO8g*f2t?{M?kXM=t0-W{
z3Ri=O5F{kFg8aG+vW<U#{SI9N=1|s9=FH`^dKhotlhZ-@$P$sEfeh#?QKZgiNys1I
zlVIT7HQH8BP~k*<i4S~9?{4Q-3A#%{XA*sgGUJ1h3Su>g&+xMmc<USTPo0AxEb_^W
zzVittFJKL_HWOSzc0xu5O-M1zN@W#&<0cR;Nhb*MB-F?Z|M}~~ZI$>~{3{1qmG0Un
zkVrgFbi&0Y)S%{M{$49+ICrhx4)ZKR`+H?3`(?yaQ)}>V)DA)UH|^6Z{=D5>*lRXd
zhAQH^n2fYjF8-O}k_(+i??@__N>(VTh#HNpcMDn?mM3TXtLYOJB~!Dv!<vS|*JiiG
z{e41oB>72X+U{n<ScOUP%&de{Ov(0cbJ?iiZ;wigmf0&bjHN%YtbEn|>Dj|EP2KwE
z4eD{lqbshse7r_SFBIaod(8|G6*;IGHWZ-q(n{}Ae)jjj|4<uzYS^!IWJ1~8w5m7O
zf2*(#uZ#Ml$g{li%CAb=D&tbtczP}yjLo`xrXLEWMq|NO`L2f@Rd|idseEhg*wrci
zOy=n-dG2jv14Xgk>lC^>m|}6pRpOZzwIT7Ju05q=iw*}o5|#MeYV)e3)x)DQ>wNhp
zTLnK?JYBfR>mWeN%E}_A=Ggv`E4N~X3Al+5wKQFbD$?8HZ{A{40)+9iO_uW#P&|R=
zeo$H(C8oSM<zaY@m82+|B#*u@soaD{ndU&-1>Y|<EW#Myt*CD&YcL^;yl(LZwcqB6
zDQ!EUJaR%wi36_FJVx(jz^rcb$QwiFFIdwEO^QUS5alUYDxfSaL7jFT_rd$i13_GG
zVpO{`VB#@<{p5;qrdFkRCNK^;l>b9cmxkY$ayz$G`Hl>UcUntr1%Xs8%h}<z(|K+B
zEk>k^V8(?8(^P!6U}dydp=evTrFJV7|9JqU!~^TCN;z|uJ_@0;qrhM)b{f2Wyt@~Y
z1^e?7zD?}!SiE2-1YoZfmYX~biOz`Z2&lJOsPt8!^&2#cJI01OK!rSwCenDz>OO!d
zZorjKLpCJIyITKE+Yt$-xOQc)+0w0uO|@GB3|bX$3oICm6X*VfT*(`>WJIJWIdjkE
zu{jpf3i$_v&g{tvc6Q6AYiskt(tY5^-QkO^3s0n|UH4q|W_c*~8-ysb176=T2c}W@
z^S84vKXZL&ntvIxgof3r4Z4peWX`bju~pb!J_T3MTO!fsQr=Jjx)TSsd4zQ>O3Wdc
z47XIUP`LG*ch})o8wBYc110wYKL?nhp8T!5A-lwS6jdn?PNDaF^W|i}p&VZ_*#ot|
z8{*b2+fK-hC^uL;f-V>ze<3c~_*%P@LL7AKzAub>QPanFJ*oOZNgF{S(jx^&E5ywJ
zKPW2Rnwb1UXyZmNIAx~zxCq#1-Y7tb;aKGqY@;L{*ld?%O_RBfmP=TeB;p;Hj|3H^
zH;EUQ>;@QhzRp(Fx!=D505+hDJWPM|p;)L#5>Rb#^&3|)zzE#z>}W%A3P2@IJcd<=
zIzR!wvXYW4?lE!l)p>$Ju*|r>&8@&EC9+1#<MKgjUDXsac~%qSodq{pljUK2@^QzE
zW!O?n#DnJjNtuHmgjgR&O_>|k#s{TuIaCakl$A04B1&(h@3RO>ZA-SB)!LailW1CV
zO0%~~$zImcG*-ZS(A3$}5Z^wM=6wz&R!OLlS>jhM&yg*|S;rV>uU;c=O)nlr<>tt!
zSmPd1dvqu@gFxVen)WZ}S$1zjT;oP}U{>~^dNm`z_CSMJJ{Szm$ZWg-s~DlU+KK9i
z$jKb{DvTg&N(>q|?ZnM`rHL$~Gd;KdeH!IG^n)S#e*pLX7y8`)7a;DxHSVO4{H7hS
z6few_&LyN0k|nH?1M-*zA27dU2;ATICP+XYklbok=m+Vm<=xN}fQiY6<!HwLI|o?&
zHODfSeZMShnYHDP&Rx=u0od$lQtAbGlZVo2GfLV7P<{b1cK$N44TQFU)$a+4P|K)A
z70TA+(d|Ko(W7g?N@1c#zZ7Cu9>9VL6J%kT6kmv-vPWy<QcGM!ga<mx^DsiFi53tR
z&5|u=4g}aYU9&_d`F^ms`)$t1etMccB5i1NzvU|vNy%xdbAi_*^F0YZosjB>j_b-E
zzyIVIKFtLXcQlPr-ZAnuZa}5zn7aB>EIzx#fjdRfsIUkE=#Eh97Di;e3>dTL%Dq=|
z0rM@Ro55(c?M7xMF?UzqlX_Wkao<7reNJFJ_<BSP(4s!~ZHxvmk)Gwwpk~Z<D*31w
zpXB^)7*n(lke+jE2F!ecu-izHfM3C<wlDT5;C6Jry6Xe4wVI?rGg~JB9y~(XFuX!M
z8^f|Y%y~bDWRFN18l~Xw5QZiDpGQ}M_)cy+fd*WIV6^jKrDN3R9oVBCb*)IECDq|o
zGFy@=jK!_0^-MMzEx%{vzPO#zZnD_%79aoGb8pYW;y{V*G?5Ota;&xK8oz7TH>Iru
zi!j_E;zk<S*G#uDrduxYds?eNb<2k;&Ip8SBW!DrY_H?c{r;hnU*1>ij{GXo(Co_r
ze)%TGGNkM^Tps7j$<7`Y7M8lfYx!9tpO~cgVJpXz>JP?IF$<6_7iyl7wgE{hj^)YB
zfm1PTll+aB*Q{H={@Ucw<b*C3=^9#w_obZd=rRC``ETon^h8sX?zr(_Kd_Np)X$a?
z#Y;(56>;S?L<PA}lHw#mpH3t#N2EB6Z+7qoIkY@LFbP^S<>{2JK$a`PMH{-jlIRDh
zdF=)=D-#yX+Dg(i3i>_-lc%7J+YAzlH&8=iDo%GXLEC7;0=Q0z`VbJr!z5>xFAg>a
zkM8haTnRyt$lV5!hR=WvtZ_+9l<4$;DOWQ=X`Fx(-X7P57F_pyCR+3qxZ_es6|vxG
zF?o2P{;&^IRIMGCmu=9+%QRlvSFYO;b2khXN&=Yj!MoA>_}68``;WRn9h4)XZA<h+
z=rbXlzq16rZ``ek6~+!fUUcZ5>_3*+?IRC8cy84Km+uqU4Zbk{`a?1pjpGLjPRq07
z+)*M@I)FFD%-1_&H<~O*7hTI4JkAnt7ZC5Qly`cO?m;N7q1x5C%S1QIvJ=u&{ygV%
zX3Q2q_93wx4z5z42?fYi&thXsR7c95tQ_C?DPWt<iSKlEtJ!bO=at;?EHd&SNbcQ>
z7HmAc7aQ)5^nx~QI7cbKT{Yig!$oiZ#~P^Vo2z4V>MI-(Cgj-4I)C%L1lX*?i_dNm
zg$j1*c-l!>b5l@wz%0%8ovroK8fxG%d*F3Td>_FW^7vPlh#_h+<NyU(iq_w5^%RQz
zyFS1iwJuWaTds0=Z&`Bo<wsbl2W9H94u>J0z8pxI)Sw#bOP?~NAI7f4J2)70<y)nr
zP$o^l#`Z6C%?e5G(KHFubaB+ut<ZSBafa}V74p8h^hn0XFvIpbHh!i%=dDAULkTG<
zUv;zbo~paRBWwv<)82g|XjIA0>ComLOERg08Wt|2->$)=l<m-kXLSZm@Qv#PBCM8(
z<J=+A<LBmBzqj{l+m8@;@cn#BJWhj<=kUy{HsUC4rKl{KR~4FV6#(fv?a*-W(y3NM
zXuQ4Ma<7`npV`0IKVee`?IHv8x9T_9poVkBF0qOQyTlU0A^T->QLj4<7*y0d2IV*C
zc(+!+!TncdRPOJ3nRSf`#_stY2Ix1d?gF--SR#J)SH4Geu81rAkMSH)4w`uRhxply
z{BL?_YV8GGN)C*t(?}6V1ih9&``7Cm0KjD6CXLxiZ>!EF*S%b(7jwsKpzS}d(g7<k
zu?B1$AM9t2=iGfC5v>$vWeyRTh*Hg}UNHF#x;r%$71<HA`@C`aYAxb4*y-Uh+;-HB
z8$~c7wPNQ_pgEY>eHYRlDO|{;X}Q&1Z=74U+LlxU!ap~7r1oR#$@bEQyPMZ~Rlapa
zBjGyajNNjwx$q|_^lURvy0vVeEgs8I^pjzgqmUFz7<yPRy=Y|<TPV@_+++C5`=uy4
zG%jRf2^`()RQns2z#X8fOYBs<G7CPyJ_glw1MXAs{S@LaQwveW0`U9%(CxDpWl(u<
z@s|6akeDbyYdRoq@8g9>Qg78?WSi$p*I840^5lL#ObOH6f||c1&x{4}aCV_^*YdIg
zXi6@?TejO_hCr-(VjP6Z2<!U8YZ8yV*=|~Ov*Z1<tD}R-Z?Rk!bkTCL!W&-8ehb6(
z9MhR~XJS4-Gp7afOeFh6OtMBe7=<#_{Qx-ie3cIh4+#}XNl7Y2m1Vq@_mUQy771bP
zJlJloW9NjXR3EB%fW6l&Gtn$_8hvV1gHywla?sY@uAz@$8@w4Orp3x5s^olb%pD1^
zy_bfYZ_4QTi<>!r=@u6LKm{8A_$_t<^1eIJ$eL)rHXU5y)3oM3R;@mC_e^qf)&<!k
zaO=Tn(Ws_7dz))~HsZ>+<eRLGK(c<ERP4hPGEwqQE$jT&7#*NHdm8`a&QK~vTn(d|
zTBirvs4G!s$k#ScRA_9}J>jIqhgT*=yH-<p2QfXUqKvf=QQ_hWRD=mkxU*~D`aUS`
z=J7gpvZM3d#7hqyvP&^w=LTx*5^w`$H_Cf0(K+I9`2OaV{QM<5JEDi%RkJmkt7772
zsWc>8CnK#)-?+=jbwQi?%GS_c?hh0Q=Q^|oBBclA)&~dql)3L=_zxSCKcN7Z7=+H?
zjg;<C#^9wFo%B9NS}OKelZ{muE@s*-u{-Sr8xDTUK&Pu_{d+6u*sVcWbO_WP-@|MC
zfU>X0tYw2O=-xk9-%dC1xz}SjC4X?3D|=YZE*qy5AQ@&qT!{eiBKb9b@}RH;QE~1l
zeE&n9^R#I2^c*C)jjezi>VNOa6LuAW<&Lx+15}*QOk6NWsr_J(CVbC;PfT6s?`Uk~
zHcynbr2x)+0s?)IpPxpg882^zt>3@b3ATQd*La|D=ADHP4zH<3!}%8M-E)pS>;)L&
z{`{2-?leq9D)xHP;?Dc-Tz!w@KQ_SUW)<^g3cL1Rm&bDUY8FoW65Lq@_URfNgX{B&
zU%lFT;aQVM_J4*MGhVK#tbAuVRC%j=lk4m>V-G&%-SXgYUjrb?>h4J>BWuLvHKTPM
zmyMZy1CEbk+*%N123_xawpZ_aO)V|2E+$%SZp+HPha)}%n<DD{d(UDWJ-YsdM@H!S
zF?Vso@i=<CyTFmUaPEf{I})Ar*belNjYK2KEN&%38<LXJ!dFT-e0nA#EVV>~BlX51
zZ2-b$&LpEbt^Es9F)uyH$26hK`n9VoW+;A25}R1<SC9+B7Z26sJv=Bftf}=%7lUPd
zV<xQmGP<N!GrM^6>6+x<eEE*FnOm30H;caH!(?ag#FCvt{L+pl=ivtWbcDQ0ZwHAZ
zGL3si+v2?ms)-_?A9c2p5w@FJTlMTF8zcPPxioIhnDz6SWTb46(&J6?#uUMG%WdB7
zu6~0T{V@51Q5rhX43oi+`m&Qb)KMv%p6NW&w+^#O_p6(RffT18HBgp<t<2vPV&aI#
z?br&pG4pePBdWW=KCBRT?dXuEGKr#+QrYv1XK#iNCa1Q9_C9>?0}O_V%F!zR(;zkz
zi>jF!Aa0%TeE?X>_W=Twi;FCKg^!FsKwwjC)hki%C{(Ag<KrKlgNTZ!{ar6p-DLOp
z@HO|vXFA+=mEDs&=xFMqcQ5~2@sX8%CfFpDL)arUN3lb*VN`__jLhFQ^@39X)+4ZQ
zTW^y14XBeIC_Az2*v18Su1|<D5y5Qw4t79b=B#0FX=85xf-_cD8#>iCA$lpd`rJ-F
zq7FXdd`jl!B$d(f^5z)2jFD&Vi$mdL<54!-Co2oI24s)mieAJ@z2pdG(EDqs(-Cs^
z<u@^YqWeWzk1@O3ySn}wIRPX$XuQ*~+1%~BrmU=%{m0AXd|v)Jxq0~xi<4-skjvd~
z{@DczNyf`@IZf~-C9bYWy~Tp9+E=NL7Y_w&d*s?VW>v0-m%siVD?Av4#-?HN)dkC5
z)-_jXw5h84B=;oqa7Vo5nsFsiQO`W#u7G?WeP&1stPtbO2TTZ^Kjf*wq|flXM`mpc
zXToB=`Fa9xr^CwuH|z&ex*?MfyDe2P&<DJhBMG=ygX~H)+MV??3+}(fH?~58S`2-m
zD${L2Il^t8O6vSG@7vq_IW2qSp<lj`tPD{c_e};q{b*H3*Sorsl^GD6>c1=)(g!YA
zn_(NGvM9T{@_Wx7-fgQJ0p=VY9qjV2o4l{*El+B<23(sE>lL7~;TPaK+Ez1W8GtBT
zdf{bmTsk@d52OC*S4UGh3y>=K)1=30wjzv*_aiE70YZ(mBW{zJN6^x5VW&=WJKiH;
z=o}iEEi=5^uT=|<4*Wphz<$)MY_{m--{{nKZNOGPH}jIm0UW0CQ>(ty$QN^IEa|!B
zK4>E}3`%_2;}Kr8AD&6W+ZhpLl)eL!J3lm63p#*6>q|BmXl3ExO1}aDP`8g#w)6?f
zcU?FaI>jx#E<A!e_U+)+G}+yZKyD7K*>P}t>zEa8DS+x;I*kE~j<c-?t|fpaR`dEq
z4HE;sst@na=qRxDp=`%-$hL@ylJmRQ`!hSLMmblA4kU#8AndQ$(OnU@Fsh>&;D4{@
zACd+8-TG}y-tM^Ee$_pB<Wm$Au5xeIs7YqI6^)vd7<1*~;;O8=4$AZzR=TExm$j;r
z-b%jZ0v)5^E49x0MW84rm87CABo{k47!iQ2^d!ncT&Uyd`gvdY@Hv4Aoh~0_kNa4-
zU9GB)L)e5^NSax+QmJ^4B_%=BBn%3(Mn?)N3{1o&O&X_*1^$<Ht%`MGJYt--{xdN;
z5GxRYDWqZ?Pdh7o(0-m<%@bE5rkrGgvdly5D(bN71<4{8Vjw)=)?Y^+L`2I)bXKs2
zMIj`r@#Xm0$9g_eV&KNH<33C=SW#LBlr=)E(7UsRz>yta9$z9bOav3p$B)G8d5f<B
zHJ*pEbxEkGi-32DwAh1S0;;_?j8-HE117$_>GzZO^kb5&6YGtaW(~xc=PB;z;e;0K
zH59k<=(g`moHwI#GC&i;VJ(qf<${y41ll&HHo#fxtu;-O=8trW9CMSC*A`yQQh#|Y
zXZ8PoiqXHLp7w9Y_8vx~3<Za`nBq^JmIi<YWZpp&2(T(#@8IAa?g%<zqG%R4;u6bC
zZ+4dgu4rP)OjuG?Hy*VJ!&d1}H}}3=CIO3-f{KS8e0+5)pylfT=F^^Cy`wrJZT?=c
zvUO2<EXs0(+X=ezZA%6sx1VYdfH-vA#s~J?o5eWt9z+=k726`F%!gmK8&-pHBGy$r
zaz`e?G-Q;Vzgh=fM@F&ji#XIHXh$G2v{JP4dc)4{;NlH=YynL@Ujd2bCmOm*o{9^~
z6yFx|eIL$}0ifOlbNc5(ri!X+rLx^_QKp06zEsJ3RXV-`?;u6);jsgEa~jzuTkJZw
ziEmG3@__PCT1H74XIjAGFiKqWI8}2oLjHF!VH~Ll=y^SJVvf5_AJ=?_ofW)5_2w_l
ze7L*o#DXL?3yWkzWoo40`v8-i1|INN$jk_o1pE|sKGV^|>?U2klzC;Qs=xdl6&2MC
zs)zwxFW4Kz{h6s+)~99jPL7?OGTc1sFK9GoJnqGs%&~($=OPdw3<zZs0Znwzy~IP5
z%A!gk$<Mz~W~@gIWOIV0d<AX^$P@3OI(~A<ZSr27G$5yDz;ibcx$}HSHkVS}F<avb
zx@jaa35A!PeR4o|5~tD#r+P#QI6)pBDOd`t{0cZy_!&maQQ7X?1EKC1)8Tsp@`$|Y
zjtJ%i!~0GOM4agDRriwZ14<-J?3|7aDqaZ4p9Yy`MEVb<s5e6-99`Xo^|BM4{_4#&
zSBP*^H-S+VM5y%yDI=g9A%=f`e`bgn0&l>lJnZP1yx{@(iz_AgZU=A`5c7eo5;`?c
zYXM`MH@Gr(EBSt%3zAGQh$h5IS|VnuMo=DF9T!u4Zuc4&)NCE}T?-uh)YPK7)#p+N
zjb*9WVZxIRxU<s^Y6|@-zu(-1z9?^qiXcr#kyss1<RvOCGH7-Ejh&r(TrNb-aL;E)
zVW0+7TV?0(H4WZm?5pE2om7B2LCRB(;#joY7lP)X(W-;4^IAMOVruS(q7xB>-l3#J
z*ErVdHepC<d-bv4c)D0@QZKYb(yqc{ej(p4=geW%fZ6nxf6ZB&YnI-%7~K}$m~)m#
z{49ic1CO4Dcb5_qdce#f-9k1O-3xceN4=%-N@6>!(0ygzUsdsjmP==)+d!0Vxq2(4
zt{(E}mM$25X>{;thf_V;cJ!htGCrTxAGibIX$UUk9UM2}-rt*4vqzPqF?za09FzM3
zq+(Afh_C)W0B5>-Q`T_P5{v~Qb$jAOb7|WszJ4T?ULw9su%Y#R1vYInfU4`d2zI~*
zGt8wDAki#<PcXsT;3Il0h9f@HF+UX7<}~!zJmFk6F0J2CqP$M*F#5>$T8q8W=u}7-
zzq?7Bn>gFf?I(gf(Tyq#_`Mk((u>5}>X|(3@euSJMh_(q`B<V}v1+AM*+DJ+I#P;C
zdr5HfJm~qNImPuHDghE>)uV-~S-$<P4Z-2vpMfoKG>m^eulM)OmGo_T55RY~eQ`?6
zL+cIzJ3!05z<|;e2e$1u*DQ2M`dnT@5D`{ng_8`!NMsS?<WoB!nQPc@$;$Sj0=eC&
z!Ma3zZMr%5dPtlTUs>W9fLK5Th_#IMH%nVDp{h+eRlPw2pkjT#W$3i>dP8_qC}K!_
zl2H4GiNWNbdAhw{12}I3QQj*FVx8gyxAnnDi+oRlU+=PreVBC=dJhppL*ZF`nlen3
zyApNzK;;T#f?W5jArnegN%@vX+RmP9@bS^a%Cth5SUIws_;+5dM!u$QyvnMoYl$=%
zV@>AT)-}65O1va2#%qa4uui5pI2_;!-YwJk&dffK+`VA^(}3g60n|=Q)}eC(1vIA^
zQR>>Zb)Cct@Z%f*vfq~X4Va1nXliy&A4eXn+uc8aV6b4Mzj82hIVKh@Y^8y9ferUQ
zc=wy=e%A<Wo>yIS*FtA?!OQGbZi9(I<tBU#Bl(PrT#Sf!73QigK#aLvUM214br8rx
zp`tZ1n&;sb{ey)3qD0CC%=H=;%SLK@T2nki)I==4gzbVKZv84Vw)x8ZrHio9&E8vw
z9kKqlttq763^9<1e&Ow%OdX8ywS=Twg-JaI2@*-{r32?TZz99>q70F$V_gxxI_MC%
zysW4T_<Xx)7A$bqw=m&6h(MU|SmT-Q2M$|{ecOxfqVx)JFxtkb`efpqf&6u%t6^dz
z5nFb4IH3xl2aq-1>T}^vW`%0jBR4F65u~Sp?*CfIchooZ&m^<)$nV0=ALoHd_gm(<
zIdAGPHltH0-NY$*F5`s~dORNQLr0;vw9Duj8S_rfitPTt?lZ}B&Z#;E)hU2fAvw7L
zX(=WEYxbvsb{dyjgOIr_M`;adCl7X+7g9y$jM>ZIMrb6%yJq!V7CsXvl>wlL?o1DF
znL4)6Pe)-YwWXO>Jzog{#{7LUswgESZqG`G15eZq+M-`5wmt9rFq4HJRUrm2?^nw*
z&$`q7XrFW0B~<LiDU4-j2hfO+|2*|mC2apCK-5I##u5?!^f!|e-IMtUp0!(RDKutr
zLy^#-^tSdi2$?mnDZepfKEl@WigfE}Hj1@AYl56cbqucDi>woH(@RtnAzy`t6?*ND
zocju@kV&D6-QS8DU|eMe>);5a-=S(Y+@U+kJ*n$7#9L!CFljkfZWm~MdCt;XE3GVR
z*Ibf6b9(t)Ma!I=dHfgIXPC>bia>+^q6>{|s~2^zxcIZziJad~x+i#i`AzhX#|zK=
zA(ydvlmCj%OO|=RY>*l37_qfBNl()L{;qYEx>eevH{ymt)=PT6j$|AKko2G*d8@zk
zTd-WqP|Tz;V%1%CD5aZ3Mnv4K>8gNrfhNfX#~}w$%a06-n^bH#*N~;{TLx{Sjk;M{
zfKimsor{s=^?|{EisZN?bQK(Q8A>!K;uhR1S{+v@lw5Nz>t0}B-It)4E6=p~-?{0*
zz=dOxXpxA(ha?k}<<~n%@^1CU?|(iQ@&wWd_xr$auZuR(6G`rUn+$OjWYz-DzHWYh
zH#{HJOal$`#LWzb$7PG-+w3!Sy5W+G2SBzkexdM~nTP16cmOGwx!t6Wc_YUH^UQ&}
z4#F7E<OC-0;(>R^Kz2Brj8#{Ug_`)z5r}X-)h3)a><D1C_xJZ7k+|@Fm3?NtV;dU`
ziGMU#8^?lM_fN!aA0CH>!qqnBM~iK#u2Q@{=kZj+%`g(QvdeBV<k93#-%nlDiBE?h
zxaIY71W`)mp{K`GR4ST+wyKz{=RgQHWT3DAU;^Rf!{}C-SipRaCdS6xG2elxPc|!#
zU^j_rB&Vf)=&(vXoSEP9O6Ib>qhs0-7!XG$B+Zg*{4rOv9l%N}pDiA`gB!4?BQH5)
zCYIF~p@n1LiTf|g+-J->Tm#&5cL&qTOt1R<UbGKyA8^C6eLOIO;jy-pI>lyS-fHD-
zC=yk5c0i4Cy)Gh7_N9JG$wF43vN!@l5-9J=7232(#n{+b_5<u^>iTQ|p(OGdG61Ei
zZvc>GLytyzR0N29l9>&xFH*cMYbBJ?Xq*KAl4k;Kcvw&yo%3M=w(50k&J`#akszhc
zy}NhC48IKI_G>`Ds|;M3b2{B0l7vD#NJdo~QK(nec`($=Y8)WDW(wIdF^%m|Ed{={
zHEt3Bj$4^JW;L&eG17sQ!V&Kxv*gM{>Fn3OFYTI8jn#T~Xj7^{#_kEexXLKf81bc<
zwji<@B)@xTz3ixqE-Y&J^1^NqjGN}n09E|An{JHgw6wJ9N(>SAn@5#q60tWnF?q%9
z$83H_{oh<V_Pc#aKe!9}76m7@4-L;Yz-(#G=VoZ_wgJa&Uv#%UmzVgt*EF`Z5cBEg
zs%>AnayNA4#p06B)hvGQ3JvYpwDw4MTf{6zg}^WIiJSJihoDapzWg9JCZlqoZ9A@D
z=$x28jc3-G?JuFLF-u-hSa_289fdTAY>A4Bp3Ig;ljOGD-(U|P4_vxtFlm=A72Mwy
zr15w)U)GDk+WbQezF;vJ6k@2P=G##QBiHW_HDXggNG;yZU@WL0U4Y!}lkR__EvhzH
zj3g6*Lu%sKX^=XB9swNVI*6sVLo7{^v=5+Taa<F7y&Pf<haZ)rq-}(%azf3jp;TL#
zk%D^<F=`Z3A0Jnu5VO<hSZ{-Xul0xf04$z`V|Y0A!Mmrgae?<cU5KD!MhAu>9uxE5
zcrp-R{e7!L(zQ2FXWz}xiGx}lb>2dx<p_<JgfGi{m5znJeiBx5cg_6I^&{P(*=U)X
zSuxO%+3s&0gvA{d9J~iJ-*e~muk<#5J)t)=`M{ZP#~)TXDl6W7m4ODy@~@n8CbHwk
zXWe~bT%79lG;3Lf4CLilkLLH8XrNs27=h=5gzjD8E$#2au9I9lm?K|E_ZHS|?%cVU
zWp%RsQ%j36c*z)pIj8FG<f>24o;`!4fV%9Z^y75}gVNZ$3)>!|hAd|@zjqVeKg3Ax
zCrpNvUKl>U?ZBVsYe#3B`!Cv1#o?(I8wUGi0(j*^qT$iMD+46XZ!!uz_BC)asNj!3
zawb3jViSZyw05`cy5|1M_c_ic0}aS741Ct#gi<9Q*!!(7T59u8G%To@cfJlx&<_Ww
zZF6Q{;Bw(-1<qHWpouw?=Dfn^laeYf^8o-nL%VH@7cVwO`!LiOoHMm87eMa8{~Kei
zLcm+p20z)QYf8qR+_Qjp|IWWn*={{7J-H_{d1407WZmuFVA0Cs`ubt0Y&S$Vnn`*N
zNbXB_n{=+Y)yNk*U%ygtBFN1mBkX7tc9YO#=HxXHKyRW_eE?j5bcZ_NjL&Oqb_N3U
zd5>%`8h*J0G2#czRw;-{aU3v45))d`fe!1?zy8`oW2b#Xkp~!~;>y0DZ?s#0L?#bZ
zs;xHETX&&?3|dsNMe7TZ3G2q}>yp1UgnT>x>HNNzO40wLy)*xc@;c-AkZ4U#8ju>&
zQWdNro}dCn*(_US=?I7d0wM+kX(K3tAhM1bg7vsy1c4I`yDUeBge4KBFrb{c)JdRa
zQ8pc@3#p>jA|SE^`nkg|{S*2_-@`dD=M3-6d*Ay$_xpUG=YGH4Lhh>!h~-{+S9b<0
z-C=}++CdjX@yel*L_FMw#*+_G+N+&Te}8UTgqd^Z$EJonGD7dn=KbKPGf7b-@KW?w
zqk~myIQ?IpULZ;R@dL4~HTRM2_02*;rM<*CB`wBgnMQY!6eK%67VT248jS3xu%6G!
z%Uh#({>N$au$#B<ex|35@BPhhNm4Vl7mp4tI4zys;4p`#PVqSH9)GQ!+NUCb#x}HW
z`3LzyvhmW~mrT2Jv5?Rgr_#R&s48bqsYhkXX1P$)Mz<I}m6a^4N_B8_{YA6I%Q8MT
zJ&V!o8aK==q}O#u-+A?!v~D`XVy+1YG_~*N(%ts6S|g&}IBJDNQYR4sue|~&WfIhQ
zyQvU1&LuX>>cb5i`tpmZ$Bq=+4icw%E`_Y}rYt6Z9JHWx?Je7=dp2%|w1k=Ig0FW5
z2UnvNd3<c?yR72YLli65g{b@c1Dj!Nbf467Z^e|_oJ6jw^|VnPWrF)))2s54<BO`A
zzql7w-`6GsmM&`BpIcO9=r8Yxr~c|usg#qCXe;gK2E)!j3j927t^?IG;acW4uCv<Z
z05QRO=+voG|8-Y}W0dN^hS+indwZ`SNwmk4OvCkG%N=9^qF1K9AR0L`znGYB${JU=
z*1j26)+o!yhXL{89HR(WgJ0Vx$GN06fzoP?w<0V?G~ZiS2=sxK`R=({E~C5Q@GNW8
z9WJpm+@3Xse!faLp^%i0{B3gTOqs^wS%sYT>?TRB#wByDBC0;gX0qgis!KgcyID5`
zB|N{Uf1ps9Oxe@N8akoxDOR%~lEY&;+tD-=I<NT9g_OSFojZJjyv%w{2g1h;J&6<6
zLs%2lCC~Yf(`=R-E65$2UoamtBxVxHT#P}6l*g+ZEHQ?BdIkGfNJvg54L*q*ep++Y
zD&q(19$?%U+hTBu^TTGZ1YUi(z(xLJtG)npq$^db(iFh(pJna7PENvZq6XycnN^2*
z2Lh(+o=Fv~R+W5$d!=ow392(ihhKf!H<EDwyM-dW5D`y2RTBkI-yko#-t;$>ipKmi
z4N{QR6!bmb>=%SUKzK?=;kF{a)WD;WDuu$EE5TSSy3;bz&S1G+q8H_tp3%QMMpuhs
z{KMgPWp}WLRbHFyF=cKArFcBCdt2+dHxO2si`xmIvCxTM?q@4@C&=Dd5%mmSF`35-
z<(DhTlO-TQzreuCo?Y@FT0t>wb;?%W#MCabe<y@hOF>h|W5-;XVxLh2J<U}ESM`#b
zgZHZ&{e0B2MR&)wCBJVvQ6!&yLy}s7^qCh*>XYC0MIs9$WX{*EUq8;Z=LKc@sPAtk
zoxnjv+IzSNb86Onf3lLH*an1g_!0U>0L*ho>hibj*|hNwa!hmx2zM|FF>>35l6ddN
zV1QFv+8Y;_Kn!NnsJ#u<LxiJw5{1|q(@My;Z?zxyO`qQTF28eB3uzKL&p_l_W+GRF
zHrx}2PH5sGwxs8i$J|szX_J!fi7oEFefu#LC_ezm4yEWZp6HzcGJ76aAAEhc2|hh7
zIdE8U^e}xniPxDIJCiKsvog0%!EMINJA`)s!P*jy>l(5)z7&aeB&bxXVYRZpF!90L
z%N;+p3rT@sDKg%gXVunv^hJVjkS^_)TTD8<ccu(>;YQ>#|Ce-Q<XttJNx1i>Bt&lk
zk^!%EMiT8RtEwz_dAgzWf6VaH3gn7vk0=4>exae~(Fs~oC-8Ori-9UyW-OG3*hH}v
z>@hlwSw`Ykp?(^=FsZAn>k@L;*#pJqre{51Fiw1xU-NkcH=(_tmlAgu#VU-mTT=I5
z>dtpRbfFIjy4u#(HeAi4v6sDT-fennA0iVmxQ>R+;&ECgiYZB~eKuQS0*pf>ShS5f
z_ZO(~6d)n2R$1mUt@HEq<+4Hce~0Ft-85n7N&YX|*2)@ZzP}PQ7Typ2=h=65J$=1v
ze#0WtA`f8jOzG@^)^H+~Zx^D*1QX%tjf$Uzt;4m@i+yoyud664bHQY_o0g<f`s`I0
zh?|>xQz7p`YRNAkpo0H8_|bL`n`PSUD0V01uQz%E!`UhLqVBLxQ04DruWPCC2-7}r
zvKu2qH0gmx@g;i06JP$zPu)WDTG7<>F}T7PAvLTHr~$@7kgaxf+y!AI0DpUY;K3~)
zDj<c#f_-IfHbod1e1Gd!=C%7?)X=e5_-!-d`y`F+ly)Ahwsdx8EDex&hN+1lp<vcn
zOhmGAQz*aA&WvtV3u01#ar7y2JCd72Q)3b0D#RSZd=%F%mc*Rw>{4RwFsySI4GEP5
z;bv7)TU5PJpcNiMK$;8St%X6hXP!Cs%as3y1BiwzShFguHcN<LX9>S~WcuwdAJJl)
zdSq}-&(fzGK}r(I%4-itDgdbL2|WkBX@#_uL$~wEojk~^q^~&hLsKEZa{l<BiMDuu
z>L+NPf3kfTCkjT-;Gyn~8m5l>{JkVb-Yn%4{`8inal7Rz-C<!s@KtVHX8mrv+}FZE
z^)Ln5tl{V0b{ClXD;CfGOl(|AmFqL5HEaCc@<7^(IJ4oP=|ACA!s(_oH$Y*+L^`kb
zF?$qZNOQw3U-ma^9`pJ7*plrO_{wQzbjx}<I@;I#j-=K?dxvI66emxA5auqvJV)(E
z0_bXv5O4A9X^xhX`ESgNR9D@32@(EIUnu~O=6K(A{<C?p_M}*FG)KUD0!C<#|DX7O
cVkmyn39f0-Jt__PM%)!Q*DWs9P9bUk0scoyxc~qF

diff --git a/reference/plot-18.png b/reference/plot-18.png
index 222a6e1c075f632410e2f5f802a43abce8379dbc..013481353de131427b2d42a375fd1808bd1d6ef3 100644
GIT binary patch
literal 50826
zcmeFZXHZpHv@VKmY9nnx6hvA9B_kk`1lkM&ibxPi3IdW9Bq!S(2(lFr1X0O3=cJN^
zO^}?~DgweL2uM!%n|7ab-l=-8?vGdZ*8OoUx}*`<YtJ?37+)Iek;>WAo7S_eXJBC1
zq#%Dnm4RWkBLl-qgWuQSD;@rCe&DY)28yRo;BWkyJ)Y-*zt&xs*Ro|`V0%FRTjA3?
zX2ihoCxgO?qiT-9LtRccx2w-BkDZeWSNQ$U726MP^c?!_)E}#~Rx_*IDBiMtccAaC
z?I(1uZ{M=O>wWO!$LL$$(a~Yi4>xdp<o*32|Izd3i#Pw4TETL6sLRd6;|Ki}zj{H0
zv;uwJ?ri8vbvwH3w7q)l+(1XxS5M(nzpjdb;ns^D?$LigXJGiU_x*-{|3~=oDxrTr
zE#cmp|L>=NgvtN-?Vr#8^4#}-zxn^J#{W@!V@91t)YvolY*a5b)I6!6IaO)2yMW3)
z{+O-Sdeb5!0|RgFnO-)sfB)EIm8HFU_3FI=wmCZfy&u{%In~k~-Oaz_l&aJT-)8=I
z!y9a0r}yut56^QtuK4HkKTr97Uj5Ifw|15uZ^oy$j_nY*q}IKceDx>?IT^gWvpNzc
z=`H31^%0k{tU@v^J0kC_Wvm>wk8_?JjJ*)$9dyX_ZC~}vI6Hc?)bheaQ@Fx5^&~x+
zaA*6`?u2u)vnS{+NiB1e^bBj7>@GvKsIzRku4AQUw8Db9p95hNwQ~A5Zrs>n9x8k)
z)MF_p@?2=55!IiEk57?V&+*Ng&AX%J76;D7Udo6y3iRXC9Q4!Fs~hj7+I=lqCuY@o
zF+krvXK6g3h+9BFV90T5l$JC*(a$F%qdPD#(4Oaz)M=GfBQvdIH{7n?m221FCEgt!
zBxdd(*|z11XWd{^+~i2!sM(hf_oN(uyvF}V@g-&-bLhPBKrrVU<zb=b8{RlWW)tsw
zJ>@>;9hsKxsYXxSXTGepY)d^kKQ-L&=J<o>fq^k+{CH!GtAotCax?1d>l@=Vh3p0!
z71U$Zct(GO@douDDwkkjV0wymkNykaXQZmC>KXo2pBf;<80-D>=go$6(}vg6E;W+<
zFII2Zu_|M9kBsw+yLazyP0}lH-eu@1={A=>P#5;VQuooLM}1f_q14*q2aGRqGv>U;
z`d(Te&dJHyJ2~k<b2DjAH{Etq?kBya_NuY*eYMk^Y)2eFrJFTXT6<yvCQ2pD8o4`$
z7X})ld}!03&Zc{Jbr-m3`wz6GMOg+84OuiK>Pl1XIXO9Bq!^aZSt?3w-Ys!io7SFT
zey6=$ZfT5>I-X(HBqA6P_c2q{xa#+~B(6YwXVB2l&})PB8Ot(zd@SXTEY0+|(+6oq
zMMgO_A<}D^%+qTJQfKBjGB6w~-;Fx_`om5+_k62@NsSPR8~b?Y9ddM7jyNVu*$+hz
zcVw;A9r^L4IJYmzyfM$gy7$|+nXb&&uis7iy?hymUuRzWm?^W@*4DPEz{SCBwl{zh
z&T-m1S}V<X4r{T{JpX<z`}az|r03;5>st5tl!wia<ef7$HJzL4uwH33I=M7IO7FC-
zZNmM&Be;!6JIhMFr_9UG*Y}G<o_d@{4B5#}<5yela&!bc$Qt={seJqPE!wufrak$}
z9V6B<FV?7{<;Br0Nm;l-xiep%2+$X%i<a4v^My~<9+~honk6qeHa529$z)8_E7gWb
zWxH=5eIE{|9n9+~AGV(tFmV{dZ!hYt{2H7nPqqj5uT~ZPN2W#FTde0P%jG>jr^UM+
z!}L5BCzGdBu2yWd8>l}yJ3G5Kpt`!ciGAtETDR#ghohDrlTDiRnX#V1)|4<2QPDfR
zX=Y8l)gjU?qle3OZrXY9uM3e%>&!w+jZ949%v%!AoIA%D=PKbo+skbC{nOF5wzi{|
zML3&y*UECs3%1WWq&eElt+;J$Y#JjJnL9XX*qw)*e}0c{k~6N_N$nLisZq1CN~ERI
zJeCW**`$qgtbTlcAK{&ly*NJ|ht)jl#-r-%S1PIN>wN=-Xe%i`DtnKhIQUZ^Y~1yh
z-DBZA-p9D(5t|$x-0~NPtvaJ|+K*axWNtEBPAZ&>?W+ydACxGX?PHahYBk&&pq*!*
zu!H~NA3vwcz1c22+pqky$4BnIS}j(f-(j&TP*lui%7SVq<NQ<Q)T#T{;a_lFjS1S~
zR7;o1L8hA@GSc_B{y4fgP8HhgH;el}S;lI8;=pTzw{Amg_{7CEaWvA{h8MAY%w~Rk
z*^-c!O$x!;sI(Fr?4MfM`6_FzJRyCuKN}m>I&3n`Tbi-t8SabDY_hJcEi@G3qJ{A%
zvRFX7q1L+8q2>f_Qd{P{_$d1%*SE#-*9<(i@m$Hkz}kD{<SLX};j$Nvjg4Dv4>!kY
z);b<}b<2nmCvCrS(ADO6EyJ88{Q9yl*IR2gITddbf59egzcYYpgmTuFWgR+8*IyoV
zkgW)jcDU5sgu7JKn|pJ>z<#Lp3cjPFx>~FjMekh>Ur$d@b+DwZ67JWHyso|u>msqH
zIL)lCrB82;`=^8)ajGvVFW2_Z!BO+<7#2JqiDPEJM4KNilKbp(;Sy@xM2EO|*Ue|M
zW995#9m9tO1E>~VxlKCQJ}c%MLsj~9y!ujDEsjV^N=CZPPh}1-&h+@KEZfS%C_D4o
zXya1fK|yZrgJ+`}QakgVCitmUFU4#5_3~TCvju8~?O$S*KiDiQ2OS#IJ{&CRINbf<
zMo-yn0zLAjRVshWo8xP#!_>iG?<wKU3=C%;Y$27SbC+Sd$MVuvYMf?LVs>`+tzJ6n
z_Jcjn@*z@osXEJ8^!BBVE}!519VBYv%_43UKQrSfxqEX&WaO{rQOqc3q22#PsBq`O
z#IK}z^-=@k@TxWvyJK~7Qt{)m85V8z);VZH1K1{Ny_J5w*ClR#xyL-%8=#-r<xX!-
z@TZ!fj!Uoo&T5^%_d(dVgewte{0_Oz-K2_;(>9YfU!Tev$gO}A(Xy7^^)+pIX&Nu^
z*vCgR&A2)phglaZc;1W3hog3Ie0-d2RyQ1Ee|ms`b|gKiNOoxPf!X&@Z~UnN{8|Rm
z;^U~m0#ULG^71O^3j9<Zm*ET)uz=nh+QG$NlG*O%8kT#DysY7<=WwK=sQgZf$`2oc
zf4LpdVg2Rk-MMygk!M3<8=}qym@VTFrRs{?4XSl;mS*4RdH(e2Wo^O69O)>fK!cnj
zdSYHprV?77-9SWu|3#~eD)ZV`GXB(1_c>E)Z-L8nbDK%1WnR$}!Q78FIpsa1CtFfa
z-qziBMyerHV>G1r%kP74^nCvqHWYuFpMS(|w7W|rhkjim-KtAU*S^i@yw{s-Z1(7r
zPj>jzfgenAI!6{+gbnT*E#D8r?Z~7bbNX&zy6Tzd=95~%4ZUtSJGb5usCsMt8^r)Y
zf9hz#v>wW}vKOm(^Kcd|(InJOL(!kVZfSA;&Y9%C-rlzTN2DD_;?eKh{gsuJ)Qa2}
z`CEGX`#WU+s60D8(j^cO>d@_!X*5zeZ$<4zS4$NzoK(rg)eg63P;KV_3X{h9X?lHh
zCDjg_ZAv@ykd9!$@U?Fn1hfA_hffjcNH@Ju<hEU*PRf3zBoKsP!B5o${i4DWsi=k+
z>%!SG`;oS5^F_<^a@1Z8{Y*5G)|xx!;w%!o?e&}G*E=QBub&ioukGJ|(}}GIBuavS
zv%l{BXenB18lBV4vp4Ol3S^PA33r|zNdSi8<Ka=jB}Wx5&6#)DJlM>Zs>@vU@l;-T
zJm+wCf%Ijkr037Ka~(LKoj4KjFx^Gow<y$En@eM1@{Ysv@S+xUdI4%=R8+@ER=PL4
zoK;@pX`ekSsMAAjqPOc>pEReie)Jd6=AW07l+==2_;Ckd=0mrGY1j4QP5#uP<)!(p
za?|>`H)DD;1umtlpsB5F?j3XdiNzl*W!7)B%<76%6wEn+r8y6X^Qfn_=A7K(_T*Rc
z53k<N;;$VTmny^CyZ-M@#34S)WxJkQTie2yl>gR#xP2g%DtJLdL*tR<P~XDyaJ=EQ
z@nPt&ne+v&Kc7sr9QJs0ATLzwfs|B@zMSKcJxtrT&$zXvupZsHZpnRaF^{$=czO16
z=A*mU*z&#rt?GUpJ8{X6SN&!=o5RIKKG~$yuFh=xuv-O3_V^H>c`3sz20e#G)-}7^
zsh=$(DvA!=QCVFrV6(BKTAeRs*U8=HmE*yQ*Z!X!npZtG9EiAMX}iQz)DHT6R;#DN
z``_M}b$O`5ZKociT52CsblweMHB(3Ly!%pcNQiFt-q!VfD^z?{>b$#7?{O-z7D<cm
zbQvx1rye->YRKH&*f<g^Z=4g-#eI38YRsd@OZ?a2zd%t_`@5Uj<55ehf!$fnbi>^Y
z4BJl<V6V1Q%&hSfv%c#ap`r!V<M%h7H!v`e?<Lh^v}n2TV=9V6hn4l@)tRrG_Z+#F
zS3_GUDD_iMt*g;82~kg+d=O^V6q`v0y89#9Rcmob?{Q5EYa+liy;<8@U|MK}VE&I|
zsG0s33q6+Iu}aF6Lk=T4)KsAVsriVH8-(&N&%euj%r7TL8=XTVT2qjeDjUUDPfGRU
zU#yxpcxt$Vj+&`qZ=boDO)6ZdaOM~=<EO=GS`vuHjKF-wfza)<9_YT7S-L3(C*NHx
zocX$;!)_Dn;f)sy-~MP}WOw`N>nVJtV1etMB31vl#k5-44Hw-}l6^NG;PyRYztXfV
zHKIMs+B#?C4x{X+(50VIHf+MXn3<zav%59gbdmb3;M^Bz!r#*2wd7ah+3hy-<$-0(
zxnPO&c@Co*N00uE%`kcqSP!U?>%iIIWL-@amDkEI53epr8kdTqj_+K{!0`T;robDY
zoh{K6bK$gZ?#;T-@9#_wrPZ2E^i@l_&Lp#lnO)T)4OU=$xuoPoM~=N_!lmBn{w^mc
zCufu@{uVAy&ej?q?JeqwI&FvdT24QW8`p?Y<q|WkFR|$YbdL%<?bGhxm0=#RnO$~w
z!l&OJm!z<grj~Bgdq&K<yVHgM9lQPz2Y+*l!@FB6{Hal>=D0Ol-rtp!l_%$K5d;P}
z(_+&VuJG&-kiM8js|pSPuZT@|qEdKiX(`X%z3*+hu-7c8t0(SVxYFx(HlUQ;vfIbW
zt||$}0(VTUP|{G??Gd(k%6qqI-UtwE>Y~CVj>ck5i1wDY$zq(>t>Y`7rlzJI0_Kpv
z+uNe+&}Ec2^5(&wR2?hNx`$gh-ZH7i+;tvWqZ)CB2?tC2?7cq~2(m+eEwoV_j|>n0
zo=Z>UOF06j*P`c=U=&!s$E9lY`F;SrG+l>YKh5?;?E>eFP<f6xRQZ3}pk%ovkj(v!
zySCcMFpUL!|0Gxb+mnQITnr4KHO(uZ^UVEhICsbW<0s%h{s3|F=J=A-zgMnpAL*ZL
z(Qmo6VkQ1rZr1(n0!Wm3$-^zqgE3JSRBSi?XbC<FzVp)lhz;x4AG-ee-RnJ7c5^>X
zm9bHHczB%0N}0p97;nkyw0Sa|3tWEu&YDg2_yO0^u2(WHH_3s0e|z<LpK87!bo3f2
zI=^LW@==`8WF0v)S()*V99M>=w+?L`>&UXs(is_*30SDD&Nr@Rq4wf7)}x4yI28Fd
z=GdB0djb75^_(KCm#o3Q(ML{Mwx`$OWsW6A#n%js%c6|l^7yA$Bs)zQPYyOIR#a4A
zJ@eA9e>pbXm8YqtrBzt>plm0bq|FKR`z+<cOJ1L`kp2JwX4=#7T4{~wYk)=gXiCu5
zL@`h6S^_fmsW@@ci$&}wpt5%2OKFEh)X@Z#aS->A@ku9~7x%e=1E~M<Sv2>&SoOHb
zy0Fu0L%#DQ&=yA=SPor#Iy{%v?W`CR6H_=n0#Z~kd?)WM7ZxRXurVggx@fU^>b)kw
zNBy>QN488YDTaYoxwG3}yhtl_v)tCC*KONWNeTp!4uC2tHA-ozHwRS3a4(gjhO%e-
zURt&!Xr-M(3D(rn2`1GTAVeO#V^iF#RH-Pw4`fpesq_9)1lRL%bAO@=6<NGY{}E-?
zm7DwZF&}?R7kERExb-W4el6A58MJ|jN81kgo3Zzrg2@EQc@(1UUN9iX1Y|zR=3!+~
zf2fBZyZg))c{xez?))6V!WjbqYthHPOiT%e;uo=l8a4IZB2X1S*?j9Gc<TA{@bh7(
z{9<3Jl$Mv9H%6a_s-yJIa(ODNXmw}Vz|FyKm(eEMS{Y3PT`X$v^FJs*zlZsleYm^s
z@0H%SM!NFi(E0Yt+)X|gD$C2w{rjx7n%1j-a1evJCsA&S)}M{KfMq%F>YCr{{Gj*^
zmaJsz&AIpAy9@H_8yeJeY<iQY&v$?Q`t>K_ysunFct%xjYlNNJl%Sn;_H2}B^l+_Y
z|Lz36f_8ho_Q(4_rLaEMNVsI$6sw*|XLtIxr6{Z|toNM9+=X|RXy`X9xB^yX6nQN4
zuxB!!OBcEP?v@DK``zs9*7LVc@fA2v)`My+oRzzBU`Ne>{2l<B*PKLj{j+a!py9O3
z)KHyMe@MSW-rc*a3MOi#FBLf3y|dgvHl^&+jA6pXlw;V$5u36)$%0|CRDS%Z0*rG^
zFx1~a5`slX%^MbS<;{t@d5!r_wnZHg5fMBb9LE9Oc*8!PInZh-z8&>)Tzc(T!E|@r
zE>YtX@r9SeBO{?xopsOJCF6Ya6QiJ#l2YR|%_9j*ytZ@d@3nhAX<HYl_f?c)dze;G
zxH21z9XIU~IWf^+t9k6$u~s|vZ?;k_{~!P!76#z6gO=@wympD6($2J~!yfsG?FwS8
z+n#3P<Gow*ZG1d`PM1|vyw(MD5p}QyyHY02@AZm8>bSULv2jF4K$QpJiSUtIx~T6y
z8-cs^U-}rK<xoLdGFtTFKqL7C1qIIt2+0X(XR0|n=b|~pmp)-O2Sz1o#9{01c)TFj
z{{4gb6EzpWE}mnx&W1?EfR6S0A5m6TZUVf{Ko2Q^C~+zI^54J%(Gc$jAd&pSY$z;i
zLO4C2ryjAtV@Je<gskpVx8zp+<vC5jnFuwG_TysqLl<!u%kABw8IQ)D54*3Cs1t)-
ze+?()Ql>@VVaxXLN<Th23Tum9i*D4>J8NdQKH1|Fr8f4UhrEz4$LT}h=x#sjPG3qh
z_BtCXn*bSwfTvIBq#RPA4(VXXjs)c|KN9WM8v9qJWDveb7X8<s|E5^}LP5X2{NLnF
zze;KH#RaL7($bR_`bXAE%sCd}3+`+?|EEg-*NxkZ|9#oNlnnlVSO<TsKm|wTXeQeb
zDqSqFR;*T9WMb|huX3QsNx<$5eg|~&%7L3^P_v9!udmAPvMN}bqvw93D5_<csY`~`
zY)t}7&CW08w@q1ib^k-p7&i}3#kiZ$(wVbo{mXlJ0whL3RwYBu3h3o$>kKk}1A=+p
zFwpqn-Ug1;qWX04`V_Sj-Ah`jR}~)FeM$HD_;l}?GiT~6o*ht(XO(kzRq21wM0-LM
zSkw{hcE+8>_n7s#L0zydTSx7`=tZpu1AHmeccu9L>dwMsNR_zdN(B6?s#45a5)*I|
z&3=BbyOd&Z4<wc|BqwuKhjpnwIEsl%O0dL@W6*k1?r&m^Oiw=qRah5QTn%dWWa#oj
zIkV!QkS&7_TLuwXB|Mx{%(7k0=g9a&0)HlR)6&u=(S+#OJZflgc2jL8bViSvJJ`%o
zw{PEmJ+<ZW19ta|xO8dzp{JZ^dM%l?inc?`&AOn*Hc}yTfEtz3&uMob+tlu;oV7!X
zj)nSKSyLlOKe$5e<{AbS-k0LmhtcgsC<}$J9KWu+prWD@K7{?~#hK<hJ3hXyaQo6i
zzua02+n0weE2XPMn5m<t+<>y%e=JTHLK8c0b>lGbo4g3Hq+r(01=E(q5Z|l7L|c3p
z{UQr|y(9LGPt}5VDaLQeSR|av_bRr%NsfDG_Kl;V9Hq;8jy=KR)_U(GaEeSh10`+y
zTCFYw(bcXn%KUt4t^J_*ijA%9%Cdlf027cvw&W2(-Q1mqo;PxIj!tWjwcuJ;mOTpz
zVY@B|lwu6Q#(jDMxAY}sD(d*=2gUJv1yW{qN!nR8YJ{1vZ`-f*dn@A`LMnZ)Vrv?E
z3LAq9XS(SH85SK{nkknHLVZp{ae`VI?^NptdhPGPy<(ANF7It;+C3Zh;m(`}c@ajr
zh3i@m*1f)Mh;#D%1J1tP(riB|gJwYF(C?DA9XR`O*q(}QD=JFbRGqSTSNMTfj>o{>
z1xBB8?8BF>^T+OU4&XjM?HKkKE}MqHt~k5qVe~{{IV3j0@owz`e<6K6L1EDO*;B>A
zE+aX;Tkpu>bg>?`c*;rmiL*z9sdczv%)^Dra}vYsP!Ko=(CNnVx}NSm{@W`KXoA0|
zh`oQ(Xjj>5V~Vyy2}kj(=o$MCD7fk3GGJ|n<Cp;o-ANSB`mvt!Ui&<J5b$So_3AYU
z>SoRHft)<DvfY`Xpc+C7L6WwSy>n<UtC|iFDMWfSKMV|r_rQVExH3qaq%dDfzxD=8
z5Pkf?=1h)nkmaDzy(J1MDgWpcpdDvl9f?6*tn3+!c9|ZTo9z$f(3^&%5kpusgjwhB
zZyuyWn$`E%BkOu`G=IW-usMNMP40xY7W=$lfFi6Pk+KsOp~<H`0(?$+vBa3vzJj7f
zfeK8O-p#=DJCxVo8}N?oAd)LeP3-Lh_-+tu(Fp@v`S|5Jx1iuzlMp+9DZ9aN+)ovn
z`+NfW{No|RGS6M-m#?#Ll3SVy<BUPMLILyJ?fo|3+1KS|fk#c#ht%}lCjB^LaNWJT
z9~H>BOvzJ#s1o5?*my^BJ}Ca8Xv4XG|9{<`{6)AWYth-6wV2K3MMXr?U1x1Ju^f^|
zN%)y(IhI?g%9(gUFHR#t6%ZfF!_QHVWo^nK(|XRLNfTq^!6r?8znlB(T&V(C++18I
zH$OOz4*&+T-R?88CxS!>Tz1KC@vql0q);g7*Xs5W@f)XG)xh8_Fc1{3*90lTkJ2Qf
z030N@AMe-t&tF7O#F2di?L<H~R}B}X0$>>nc@d?O4o%p<W4QU*IoVxxx!?vj(IFM3
zo_%|Tg;u?A!EMnAmB}1*EVsv7`ol=5Ja4Tb`;6GjgI8{I4h%$v3iiu0sBso`o%_t7
za)zj)*a|3mu>pF{JfGJF0x_yU+~p7Z{+0;Ql;8Fr{z0F_R#2qiwy4$kwocSs`L29@
zv3;?*ot4*mS;wi@FQU5z@-SCOU_;ivC*SM_p~d-ec6lr>5_roQqA<5d(x$}T1I7Cp
zmJDYy?|P6*9|7w{3%x>=tI|SI;xXe;Y9T1alsH=(Oh*Lhsk*znmka_7WP&_J5;-Qb
z!)k+b5rey~)Xne29W$>FS15F`VfYiB^vcJIiZSK$2O;((pWfCc)A{Dd@xuk54x)el
zlLa7~o1AtSFX%d|mo5dp@>p^zVl?2<S;8K#BVH1u^7FWbgPl3HzLwC>6}xVfvzfIf
zzp-BSk(qjdLaSy_^n_W+zhOWP?}AGKa=>}t2N4$S={(;vAE=H(s1`!M!rpJ|{^&eE
z?yqgdliE3KPtXze_;bPB@B3&gEfe#{&lG?;9F_6xL&Xfjy^(^L@$LNy@Dck*j<=o8
zk#<uhS{n`2RJeBH2wVrU{3<C&X1_fnW+mm>Gh%C!Eybsqxbfm)3XtFa0i|QyI#}ig
z4xb}mT|QqpbLO%0)KH9RLuA{2FC4?k4;zHO55^^F;Cj^2)ro}z6~y4tT3w*-OZ9=A
z>B6V@G~z!I?F>TYAQXk><SWJ4oR4nZ7@-yEdo0h>nm`Jn>cs)o5rS2?yyQY1CPZR(
zPc!kvfQ{({UfS5CV%Lt$OU60m!ANXv*3}r^w4I7u`t$1(p}}_Zq^6wyS8=4(nl~$v
zy$HjUJ(+QFU4)k&I$VA9`LM=Vbv`aGt{6zL&fk1bFYIUCFn#XE`+R0SkTGW%PE73V
z`msH7?fdLPDB;fzoHOgrccO%YdY&Z|bR?I~sQ|g-m8Ik;O>=bnZz*rVC@3`xs|vDj
z-~Nr3@{LVdTj$9Rf$i+<LO$g^iZ-X;T8(bs1?^+AX=n;(uz9aI&6NZ96n35hCD(rV
z(zot#)HQ#*d$uxO&5M41Dx=GlgYE}{m%NSjPrvP2n&W89_7c97@0c<-J(>j3FwUm8
za&B?dBT3sT=On7F*T>_3ux)-oY~qhSV>2V=47VP{ulQ>xe3l-UzvLk}w$7)xWZ#+I
z%ep+*Qlx~E!OyN#pM2%G?NF;Qb#aGaD21XLu9Ig!>?vFZoL0nm##Ul?Uzm?9Zz}EH
z2Ie`pi<PLKm(fbG7fz+Rf4n3y$zoUqPH)8-=)O4TcX7JzH2W@vNKm@{($aY!bNgSp
z)L2&mO&ubVlbcVZQsCFD1?VP^E!e-yxWR0&V6VCmry=kxFwm5h`g5RRvCO7HS$r2v
zAZ=OIv%wNy;wH-3JvN%N<CT+XnTH?|oCw6hYJ;QG;Xgnt^6(ulU<|zky*3B9Qh*AJ
zq2*g|uU6T2`@Cvg`=EFY5gATMS{Fbe5bqDRJ?lH11S@E3N1Mza3H%*&A%9%pDp!?y
zVl21a|Ld4#7`0cV`2MD}E?IO#*Tu;ef4f<8!`IVqlWXOcJLN^(=6;Ulg-jp4fUdVG
zyY}n8v8NgGx>26OeQ@3nQj~yC+^8_}E^`I~p!AG6@>7XF&0H*6d&DqLHyMQn|3oBi
zwfS}7pihNGEv0~V;?eHIjWN%BuYxoeJZuaJ2<VTSjtX@bnV%jN=Q!ng5bmWIXsak1
z(IFU=>2C7fa8Z?x9lH(3<RI?cdY=7;A6#%_%H1VeD*y5b%V+$-$KOdeO&>{$pJE?e
z)Ys}7z1vQ!8=}`|cF>MDe|Xf<Gxnm;ZGKL`Wb%&^l^UTWE=B*H3dV4jGCLS%EQus|
z<%O`}ec!8Qp!czhtIn)BW3pA3Rov<jY_e<}!3lUxGqRtutZCijD{a4wgVc%d+O>;I
z_NVfTgYV@<)~#D-JT=sY9nk?b+ji#16<Zvz`AX~d^q7(*=!Zs}fw+K6nN<DT;+@VD
z<KwR9{`MHoXmO<ive6a)Kn@||gd5)PA#w+SK@UT1EW>3lEV!nbHtcUe6oI2c2M)6T
z@C(EqgkBM=e&yQDJF_}0(T5~qzRsf0nlDWzc`)&8t8!@%JI$D8N7v}F$$=qw7z|gq
z`lYxyr3xI^dKVQtZb-UsX`Z$mR8^&<uT6{y+xM%PcPjKj%1!5IS0Jz;Nr2=L0z#o4
zjUI1-bYg|dWdy(j)Y=EU)d#s#3=$BpYF|qE9#M*C!@wa3P@=G((?$y<Y`#65t@T(k
zG_HL$+#w5nnb~l0Zn7G<rH5{d{ZIT+#AAG~?hw+m*wqi1=gHZSX{ntCj{D5dkGzni
z-QaVl`Qa?D;x7j&RqyYt6`=cFMP)VxPgVQ6z?UDQek_u|gOz*7=#4@sXtdcuo17}p
zo@-XQ1N%8D!XqMPoyrsLwVw*0_DY+uLfl0eGlD1XS>7WIJS0Z;=;&^qS0z&|Wq%C|
zS&e_II7M-SoVZ}6*}bm&*QPHlI%i!l>2IwC{X2;!A|hfzodSo>>XPgaHY79vB-+$_
zj|_{=ZX@5%x==fX^x}3FVNGey9_#2(7g+|B45YW(u}fTkmt}>RN~XRi4tk?VAUdZo
z?J(@EjZ%@<PwacoT9c6qL**1jE5po>CUpk2a%xfCbY!`5&i%lPC2xEEfXpuYX^Ssq
zi?C{TDntSU6Wy?I{yxgG?e|Z6Cy<VK31PE1v*=g~us27@?1z;Mp1*ean7bp-kszMk
ze^dS@36yUY&$ud~WmFPMAuj^ZFObr$y%cO)lcMyFeBGfT-=K6owRI%BXESYW{MUSr
zVzRE(RQq+^_04%EwR`kcEg_8T$IT`0N4}YZXC*dAB#5RzdnDQD>ry@_c>VQTK@`|#
z^1>|&(itwbPdu){E)qwhIYnthy2q#>>RjkyToRn}7s0{7uX{F?L!18U!VcrkE$l<Q
zo(6}j%g^suUOvrAwP+LJsNg(spd+&=8)$vbARk4Tf15BNTE178&@cin_Ag#<LFA<4
zd>s-$*!7A+1y{93Umv|=vF)$!;rPN;JoKr#CtSqQq)7&bhO*zxx!x{u<Le3i;L_8B
zthUCD!44(*V-vL<W#Cr++<>~+0U8_?_N!h6OiO)H{yF2qBv-c2_p?`{UF?q(b=Stv
z)#5aZmlhM?rH3J-hZu>Z0(%(`wWg4xa<p{o@TyVZP&ba%znt0X$4q>#`bsmR1|`39
zRCw+Z-M`Nciey`hHB5G$>+e?^<0O^ATE}e#pJBO>XK%?-adV_Ir-XKET>i&>+o6EI
zO9L|EEjUH2+NMcSb%jN|!;7II*E&a64US%$wmZ0x(Xo^6l38D}2stMpTj-%b6ee1V
zv7Pd&A05TW@BFc5V!8hle|7Nv_m1EwYS8}R$7>|SqP(1un)t*dy*%x)90gJsaB(C=
zE*W?z_h-GL0QJ`@-|Raog!{Hx(w;9OAqz@Tp(IT(Z%Bl&0f^(85Q5zpBiEgTtT}pA
z3<dLKGZB2jtIjAZdwnmqAXFXcs+f{-xJdF+6AXDsAMK+<MDz3Wiy&%V(R|k^|Mbh?
z;P@3Q*P!X&J;ZDyffL+2pVcu;OrK#sF|mvjv%h!?If2QESg*w|j2=%pt3%~znTw@P
z?9uA55M}0v(jGr~!k3~9Sil)mBIzF*ngs0X0}-YfdZz`u5(!`^)I+IrqvlWiayAfB
zONr0=VUKm;P0c^jZqBTDaO>8su8Td3c{}ALERP`21&Y<fXE=G855g@Vf`aNJr*n%k
zmjxQ9JW#kO;gE*KqldX>WlrxCW)Jg2K|vD8PQj#4P;lvTb>2v>B88y3_Dl|#!azAh
z<r70dCj^zL&<-W4>B2dgh+I4RAdE3?_23A<fPg5fV4e~H$0s7uflH&yPQ1GFKA8D^
z<M5cH>$1JXZX(Xr$Su3V7r+uL;564mtmF#Gac2tUfL#$JVzOo$IPp}3=_UCOGE>Dl
z8f!RITN<v>^!=umlCsCMX^-sn*B0yNg>7+wvB#wVrv5u$x61ay&1-DsR)20GnS{IV
zU#7Pgy1A&)Q(O){<U~3^w?2^7R+?G&rf;v!=-MLqc6FH+W@fP{^qhWkd(ZgBXXzKY
z6OM)ShkJF9m?ElI1N=72m-5fT5lc|OiPa1c)K$Z--^aKz5E$P`m*zU*#TkRb=swLB
z8>#&AlAwdc?!psVV-M(#hJm0ufc1V*>H&#i%W1*0oysVE`H*C6Xgi^|=!P@qC!sA!
zL?3pY8;GKW1DrMl987kBnfIJ~R9WvPf`uOQ9W-Ksx4VDRhY$wXPXK!dBUK~6zw~=u
zn834DlyoG86u4;5h+*6qbD^@bQWccIa(*6`_p_UQE3*Qoix&-jWcsAN6CAVnmQ-Gi
zUrW;E*MkZ`@``IV?tG24hs0CSvKFubhJXrG?}f~)<m>I(m*4*e!5P%#owY#*!ibdc
zl9G~r)Pltx<x1uq(PS_G*lzLR3IxCvwcGN9w%k_OyyNTw(~d{<=b*N*{P+}dr@J9i
zjW#E|+`ak1_{79Y+3zXHW)Ooc9o+!oF>{3E2&ckE{x;^=n4~W^+?v8MbWyRm*Jc15
zrx`k5Bj5uuSTjAQq3iD-sA4|4)E$aDqp12Q+%enkz<~qvOELx}5BGUE<dg6XG<OB5
z36;iijUYq0U~{8``|N&ouIy<KrUCZ@?QXgkC5F9EbplwP$E*K@8u%TYsu7k>Jm4XZ
zoSa;A?(y?81&^DV?=cu`Ac{vZ*t3v=)Qzuq(XZcXoCE!QXZL`SJ+rIq<q-EsYl<Od
zNxc5uS)5KB=xuSuOfk;Dk)!j|GSi)gl0mg}n1!0~_h4>bB$bCi^xZOQ3wPc+96A9g
zvRKB#oA>SIRk`|_`4US6#E_fp?d#(Oe@Bt3tgRKQ+mUzIC!k9{_A*5QyosbsIb)FL
zSdo=A{%$4XcPQ+tI2>Y#8D>~^Xh6ioubtr9Ti`FK%d0Slco&N*Tlcq9K6_;NTUZTU
z9}VK}GignO=+7<<ClwVe4lTO;xhOPCGDGuTwRv5unRQgIIyt4c2<}h_0`LMPeS_L}
z4PXfeEe|51o7-pmJg$)0`adszNw3o`lOAvJcDSp7yZVHGdg>h7vEuWw7I(hxRiRza
zhMuG;UY_kyURq`AHs;O1zm&zbwS^=jNivr*DXg1gW7OqLPoRXOH?1w8;Q+ymF$HZU
zsoT*fuX!#+-eoc|1zUnOY<H>9HHU}@*il;U!o5VyonH!h`O-YE3*rQ4#pv&oDuaTq
za-UEWI^3MM<<~87oj&+Ma;o6Nf7O?Jw#%AzBMxu7TJ*kTO0(R+W-{-u2_aG@u+>d8
z&lotxB*c|iIA`VtIr3=fAD$nkEtZyySIi9mQZ24EM0$<Vy6g1oo`P8AjR4A^)YeFr
z+q35R?(E)jl3-BUTme1d)cSiITPOEO+sDgOOsZZ8XL2->3<I#FB1O;f%W8o6bAY)>
zF&5Sx$0DZjYlE&S__7x0uyltu`>;tL{(Ozw(39qSygqQ1u|zMYDL{Ln$AfuM8e#;C
zV?G{@KzPKE9snDwSJ%{y044tmVo)R4P*2Ac)c>bfLtdl-i@VBISl5R?>OEZU!>$Q5
zN!++*EfXfK{sd7D4vy%hJqIt}O41vxo!+p#v5QxB)V}nYoKcsaM@l$CEhM3Wh*r_k
zq!0;mz{#a_3{Pda{SreF!Q1!UvDmbyMc+d}fru|8<)^rTS@1b0N=)oW8|&rm)?r0c
z9SVwy&p6p6uK)S*`|*CZg6|<UCEn#dV_thE_Iu{<yAi@0d_4hXUhl_cw4l?!6u6=m
zerar)CLkFup3mH$<tMy%>!n}wg}#?=Q2O{5M;fYO&-^qD=Bqhg!l#HA7QU>^qtc#>
z`q4LU^Pa{{mG^$PAojR%@=*J<=9}(i^^*CJYttEOx%Q{|Mo=8h0KJjfX+i^rticao
z_#BCWLD7oc!g1>EcAt<B`khUPHSe2W^+yN7M}O@^)fc<|`7Z?%civssO0H%vxHXI_
zQ*HuNe_M3k#)od2(bb2DWMQ3x#zge}u=L5?F009rE^Shdq5E}vEW4o-_hhgr^oH=+
zw<cf7g}3Gx6ch`{!#tb(S$Q{83mAz)J;Hx~{Oo*N_jS?9z^V2;&!V+p1H8|qlG@M5
znUGQ;a)mXm@KW~mH>25(UmqQC?QlGOV2+hXGg$l!iJo=%%5~RSYJ_bq4zX>Y|B|in
zY`^<9vF>4**6Ie0%34`1`uqgJa+*SiasK@G+D2s3)Dtc>i8~`;NrwRG&q)IJN6T5y
zvKI8m7m2{eeuDy!9H<a&?acv?MZ>039>ZC-aChY&kNmDMs<zd(uWBq$_luCuV~-e>
zc6uWOrYBWnrs6dFE5A%|J4dH&>PC|5tD&MpBy0c<B8Dt#W!Y%b(R}pm(cC<Q9I2L>
z*0d4&OF)y;;Un1fU9J<=l!e;Sfr1gHB}z|L8BI*Oy`@3EOaGqpvgWI4X?vr}uiX)c
zhBLRtWb?t=N7);Is8=`CmX?9O4^)DxFR;(H&$);*8mC>wBadNW4ucH04x)J5B4bH1
z`XdOd-C}<wZrwe^TDL78LP7iVMC*stv@|!yfgiGJ+}lx${Ww9NOYJw)4ura@)(1NA
z6olPB6PG>-ICu$|MFn}s$*iJ9WwiV>LS)E+M^oTU5gPrzChuwoWHpQa5V#>}=!oeK
zqut5RcKFt3m}|n3!*AyL?qm~Ygd$J*?cC8nHjj43-aBpTe0uNw@q>X_#G{m(V6?4P
z&tAO}tZ;sH+&Y91g->>8mS4IEtI%d#qBVcr+iu1h7{B}}H9Ny#le7jL$#^N$a7My%
z=+m1!obyg6QB&gNmS<}ru~`aMb;xNn$lsl~B{^E#Q{cw332LSvXM%2?28^!Et{NA%
zYmhQ~b&?`-&VtsTs}Bq}KYP}jw#A}*iw(?*jX4Q8`bh;-L7cOF8QzBtJ&9;WdWaO<
z2Vj`FeYTxzL=Y@es7J<uKWgxYyMox&k59L@gw{6>hZMP@r1(#-ff6yrwPtZqW+r1?
z_W4lBqivZTC+3}5V&>zBde`HAK*b}Vv_R3c-SWVt8!Zr~974A}S~ZGrKbMx=k?rrS
zpRZuJYYD=8isE|}4vZnhR$~%br_I624@8itasdVO5Ty!c=ac8`m>uxFN}QsrPOul<
z=9Lu{MUe;*L;4@eN}6TIVImOFq<qRR>=U$}g{ReCw$y6qvrA#WuyCF0c*OxiMRyu1
zA&BP${NgsLJ!}Y&d5V%V5c!gSx&XgHKlDUwcZ6a9i^6^`uF_y+r?ZX-3Dv@(fd7Xz
zyW}hKkHH53r3E#zf=U%F+xhI-GeaVHp&x&V8wJ<n-$M6Tnqa5R;Uot__MDrWM-wu}
zd+j6ctLpwwE`y^oM75&eYK$M*5j9oFKkAip<!-5)ADN#(f&-X248v9&w>P89gOiMR
z$cq5?uFn~QOkcf{@yKOVLld%K`U`|210Tl#e`G>HbDP%H4`kxgm}!@Rz^zXs$`h=R
zH25W=S3ca`H+ck6B}f@?r!5QzkTCYWT8JDzRbs>R<d@<HZYevqZ-0U74#H9d?LB^f
zyX5j7sPY^Y`9P5F^Y8PzQ1es_bbsw$Y~4c?rRAl?Y6NUNg-yIOJUutsHmPd{!ffHF
zAd;lD3rAfU$;xUPqk<I{v7$YR5J?MsR$heU*dNX1|68MAbXsx-BF~MMXpse>E!g+!
z{mpDFKMObHO*U(Lab8HcBqj=FpU6O-k`3pGJP0Xra<YO*n0cYslP<uII7QhdX>;}6
z#pzMnXq+K5$--W+Ok==favO}nKMRZA<JJM6U^L-cuEXdE9}z8zCT~J0`JA%nA==)g
zE+Cs*xjpy#_3M>T7ob4_{Mvqgx5Cg<n8dFP&rrZ4^iR;I9FIgo!9GPH?r>X<ZPb|K
z5yH^PE=InnR$c@qqTu-{0Mq@5=aJbPl&5>0eJaoUT7{}J#<4G;VgZy|BQ{~FU3lmh
z-MZ(pthr}e`u$Ib^!eQM;mkaf4dNp}V=svaJOq>WTVLOtKdiGL?6lcLHsH`q%k|A4
zeL1{1ClKckaMnjEg7iZk%g*dN0D77O$F*q!@kjU5_*6u$1I<OE&-l+H%J6Cys9L~q
zeP3j2uMN?(XT4@gPJ~}OXqC0ZBn-+{_<bx2#*l}(rgE@aJ=Y~XIiV#s@1y4{Y{k@p
zRhKJ!W`fm%m#{HXPVR<m!UiXNhr|3ni<Q0j<%ZqxM+iM{xgPB1M-zVBwc@ut3;{fN
z{G1(eg?BS>f9keQ?l^l@s{mfo>^_JEv~GD3h?FT756CT<jJXiSpT)DVw{ye}Qxg}P
zwHJ2s*W`6Ui{WnxFmhQeO@-^&v2zXM9t%B}VKG|KaV9fXuXPKr@)xH%{Oz1NE=r8;
zRGMELThg7KqbFHrjqT6L?~f>IK?zfQUW>sBO<g-b+Trr@@|QlcbKIBn-{?h6L5tPS
z1Za3YSMoAiz;&~AXSVR=kZybaOX=K~*?i@H?2)+sx`d{br-{90Ih}?^2FTgpni(@A
z_NS^{sH|JNL+7Oe@NAPn3#1t?ejGK;KJ!bcal#0|KDRFgXD2}<OJqM3ygD_%6nkje
z!^o{@n}x^ev?Rq2t2~#?>pgq0n(st#6_XvWE(3P!kGIeFvNJqIYyACsj*c;6CVe&1
zqld_m1cTf!DcSaOsI5UM=upLONbspT2P@u@V~x}MiD+`L5lG*DNy-%XO^4&{0-nQV
zFW_E%*tlEb6FIsPyEiwyJ-K1xM=|3|RG5lPCDX0>Z<^^gIZAMoJUJ(z;x^cOq?yzn
zrYM=2nfVryArvD1LVr7qiy*rz5}nf+DWbAon_1aUt!|$&7}J&K@RG!&iJr9|P6Ooi
zVlr}K4AF#3R{pf;dvj0W)84y<;XfTlixq_;NRG}Si`GwM^erF7pbra{X{2b526>dr
zJfHn%r<H^6I1syWTdI*UvY&moHwYet#vzPC1HCs;*syFySt?#PuesBGet5r_SQFmg
z1$ch82t);exiIZIIRGdwynT<%g;wwYFHUk7XDmk{<yPZeS;E#eL-CK%NC*N}7R5;r
zCG!%#i)$}fj}5Q)G3NJ~TC<G`%%_Yl<ptFn09yod{2^#(B4rEK&x3T|?t6N<<6<kk
zS|!vWWr!T)`^b7BxxqbVbnKwz#;JnjuWVxWNVOv?B2mHgUEQ_B<_abrjj>xIohJH-
z9Qy6s)dtMRO<>Y35ThZh*=)I6ct!(+QU8vPE`xQ5QIueVyN-rJ(I(abK!isXq)sJV
zj1sKG8xp%CanAd24#bh#<`#L|8hVY>aj{@Qx7brs)W89_8<NUla)S<C`}FR}k9R8z
zw-nUHcA!AOy$gid6^JM_smZ@eKC&&(XY%Okdh5DXd=~5V_)rnd)@))?`?kRgsg{c)
z2ZCY8j3%7{&ugBRE?Y(W<;J9U!2Jl$hA3QBAE8)HI6BG70AwmCDG}RCn0UpsY1!>q
zfm7>8n0GL^OMms`=|518p`q--*tm4$J4lI}F0p6$tMo>jQGn^}c(0WELN<6*C6W^F
ztV@_Qb>5JPAM6^ey@u0+m9KAq-fNEJ*k2D}&h1km31F(^R(x+Ml7ko#67kwCN%<yt
zYaf|sU|`rw#y?3~h>qIYf;vnh81Jm#kq8*>g$#V;UbgkO*5Ch?EBoU<=$0<P7V;N(
zvELYGHoX9AC$Tt8iHvVv{nzSWfo%L@1_p!ej9Qo+BY!Zd`}_ZFmiPZ78TbD_`1`-?
zo1bqitox5Fz|Q|=ukyd~H@in5c>Web2gc@7KaL|-Lq&QI<APk3osK<TB;N;u!LjuY
zs5Xwcn9VnNl5fCfQin5XhwWpI8PGXswvf;EscQ1)fe7~Al*#}Re%gGp0dY@0_}-(1
z^Mc<}nNnoxRD;~-#GobxGz=it2c=Fh%{k02f1l%*;OU<-Z{LqBm6J(ll$i@K)JfnN
z9fXW{vdB26Ys6oClb@fz)hJtzm%S)re%<SIvQK~TJ@@r}gQ&7PYCRN$5cR7e|0v?U
zYae(l()EdKhI*zsxRWGHp|3}ycsN6^A+wG~Mn**cAs*i=w<#_3c4ffCSF+H^Ra=;;
z`J)Qa^tTngHurR`Pg<Nye;yg?o&b1MnSbuBUB3SVsI|I~x}Y>Yd9>(!&$e4Lz3}wV
zgv0VPXzFo^xn}}&Y#!-34{%v_<*K7nli5&>B)tS+$5;TU+=X$f;!wbR*!Y-sZYaZ<
zC*&j*9fSS*l(P$R`CdQ7tbIxT0zHdIR8(|mPHuik6h~E+*b4APCTYt{n&=z8)Lu$?
z&v{TE`;kt_!}ByEAYf9(O1gdxgS%pWg_)s}(hzgB{6g3AMs`^pWKc9vEDu3nV3Tv#
z!L%nn0IW4IZHgKg37YE1O<mk_>#_H*ixL5zB$^khTR0?&`#SDGJd|({QK|SjNJAtD
zpg;k1jRg%O`iu(HU?eM&z>yK<jfK9>B6TyG%(DX-DPVr@O4GEtxMA7GU53zDea1I)
zU0X8nE}dd{xOr*MpA=js#=U=Kq&O3Fa#YEf0&3g0>k{~Q4jTmgiELG8n8*CnwTtIV
zKhPLoNB{F2ffPXqmt+wp5ga^i5lXaH^qyi~Y4-(3g?eP=nKfpieUZ>GQ9t&0EZo3F
z-d7{@0s+`P*nK}C%6|OvW7*9HgOEguyT`<b$wPJ`=;%SDd{~_og3BOdnh<Ch<MNB<
zL!m_}P`+Zq4iaGUR4rC-eKjhaDk|kU&+vzZHP~0l1{LtdC`#~x;1BwDc(RJu$cq5d
zXLQvPn!_20&^u@NTv}?XtK|&DwBx+=TF7cupr=Z({Yi^c0z#+;RyD(!IB(F=*{SpF
z#fxho?NvC#meT`cj!KY%Nmif@^5Y|1Uy?W|TBtHmy%MrxIiGKDr~){zM$hM9NfIvG
zxaUZ#ya>kkg;K0Q8VK^R3Hg-_5k<tAblnS>dbv>K?q-YQ5rp>{2*dChz%5?X!e^~C
z@cv;+6^@xQ;hPI%<<*dHKhvL(R0vS}CI3lg+t*XunPa9!8>dTl8sbR_hU9t)&_HLY
zzPoOl5|Z)1-W=$Xr|`*noJ;D$MCkG%Y$Q=QqLDZQzf451fw7LV`rYPV`~|9SAaYR!
zwMNNj&$3T}i;wr)!g-0Miv2G)2>)^7pbr1-+wcE)zVG$E?Ps)KA9>yS_Tg)TIBs=5
z$K&_b{#X&m{rYwDhK$Ed_ihWkrlhL~?&Gy#`fbIxw|Cb({VSXEuFll-!uyIBPw68y
zBgT|zdT_94o@mjidz$DjW4WrDpZpFMW3sQ`TGj;EooDjMY^hvYdOSNP>mq6e`4ogm
zdo+~Vo7#K_xdZre>Hd?BM+nm<t9=OLPbW^D3c@xHLaL_}$ok{A{{DHjtQSJ`=+x<y
zw@!Y;jAxb>XUDUcqTM*$i9ONb<FWs2@b?Qs>TJsxcqw!Cg2xx?VdCxMN@H&?&|lXy
zwngQ_7F5O0QHV<+!w_rF9MrO37YH&vN{Urszo1}ElpZP&NGGOBHM5oMe(NSh5(E;b
zQ!`0_d?gu$*EHlCCzHZ+SAHNZC}?}#9h{v-p$}|7K6wN;4M-6Q%mC-Y=;)7~@ZOjT
zUxCGw*|vnmxviei9o*du2Y`C-C1H?#h_^WN@%FXGB-4Rs2=q2vBj!<2SveltKX}))
zf5OC#rKdwma#`jYgvS_RSaiG@RdGp$W(Z*FSuG+A2f#igGP&5+ys(R2YmZd(Wp`Y)
zro<FZLF~<!6Lz|4Tq+%LNuy~(J%=q?RR&xdFn?@VmGi^s)9a&tf~e=U&blo$yKhvQ
zn~~wdY{&X<g<Isvys_`qAjTmRLH0@MB6k+Mf--p#^oPlqfLL!27+(o?OXzPb2zE8l
zue*NhD3X5PnY6Q5mcee@3KVO1-p!8I3#I3jtlAG2xo>u}i}Q75bc|AdY0Mdjef`e@
z<8WMJe^qea^<5_-SV?8-SL@!MJVklr<0HNdc%=;a8w8r@H5R~hF!Wg!FyHrzN6d=q
zFQD=ILfwOGl=*2$81PXQWtQ<?SQH4~#&F|H9DZ^Hkh-mci5bthicDiA=<Cb9^JJ55
zmKVX{7sn45Rkx*?D4##?Tk-MZK}<XfPF^W%xur>gk?jTg@Pvn-|IodA_ek8U50(^k
zD5O&^^vPsOf1WgPo69|0<H4Ai)5r46-(RDzDv3fRREu!(?K^e^y?wh6s-IP2_Sf|s
z6-O3+6dMiBrzOmaHir%yFU*WJ%MOysi<lIIF$^ON7qytx*ELQJ(&vY2=W=@ewZW@M
z-g7>0$J&$Ra>-*;z<-3Hb!~?<gW4E~@fI4UL8SFs#L9~7wnyJ;2`EbVYlL+y?CY(p
z#qa~wo7fBbTWTY+XkRtoX@~TLVs~rP3rNX8#M2mXg|Me4cQ$XId|J|Kmm-6W^9+s3
zt1!$n6SIGHKE_RjDZDbp=~64KE0VT4+eRwf7zTt_%dSGQzh70KQE<s=B&YujMyx}v
z4GayTI3Pe2piM`RZNHRMJHk=Wn0L`<za}xC5dr1p79GKGBRJqLg+6fY<_VOwRQJ)x
zg(4CNI`Cajj?>qdeMdyMK|3tEQJK?`J!H=ot?d5({k!Vu`4plHqCw&3;hRKj)T&p<
zJxroEgxVQY`HUVVX`=;ak1-LH#$NYfaRGs9XLd#R7gHwM6DIL;9m*9ckP&!9GjT$1
z;#oJHDNBh@VpkcsOisE@nJn&{=y7*NW$pDQ&l|zJ0VxWQF50KwH0i*$n)mbMlr`U{
z`BMwgSez!wCGrG@m1{O~GmS7U>)fn6X^gagAA}db!p-HUyN6qjrRZN_zm*$19_I{P
zf4VK-DUFi^9^IR8c`1=_{VomPD0{&hz{AU{di3bgKz0b1W;qay&OpUs5xM%1JfFtK
zytJ%r5c>NwAWn?hCiEA7`0x|W^9-dM)|^NW;>noL1~>b&3F40P654wJXNGCRDY^N!
z+Df<TWsIgj`-K+(Wili5^|wzuBhyDh!Bq>%$p=G6f9lr5l-3xO;k8G~>l)q$B^<|S
zeo@MA%+9Sn<LnZ09-8ORpZA+0DVUQdo)>uBK+6obMK!6e&UiI#qMc?KFVs;@LIets
zwbaqKDy#6kmtTB}jWxcAQ94UgpJw9Ge9jKimplap>2p(d>?#*_4c)>e%hk@bhd~ii
z<#NKpze1iQsSO-;DdAE^Y9E`7vl=u24fJk^tSY8n6vNoK#69fy42nLW=rEC@lkpL%
z5NAx~!C2laSFSYQ#Cm3wW1d!rk`7S0K47+(ed$lz5$zKqW#7q&oI?&st%4MDSxH$L
z@BaO#@Vbv5KUP&!d%ll@gK5{U82D&OlyFZ^Pt_hg&IHU5!>W}Fn?2?lLOB%x&IBhH
zpuTb`;JFzWB8m*JUJd6QK<YSilAeGu7zI_xp?o@#`HY9VQBXDSO<;~>??Cxyp{K4|
zq4o*S$PBakR109GO(@oBJtJcPC)17{mummBNZ<fa!U1wLBo0eT=5+SonVi1T|8Iqe
z@y1!^la<vY$ulx<L~_r>0fyyM5Nlg_d9*l|+EJ8nd6@NlnxpLkpineQuQ>z>f`QRs
zf0k@J_s`(QHB3X2hvrb(sAIkk^BF2bnyqVJC+@@W;p-ibo;-QR86xA-oFv6ndkDf#
z(;iLNQ|cNT{x!jp7ZQX^*+11fKrU4vNE=NO^Fhy%KtVDQk6_R?$=oizyfFa15!#|2
zNKOl!vxI(tb{N|FJQz#>KX!{DLMp}m$nnH|xF>!;d)A(jo||k&%7{||4-JXA9!N1^
znT<tiOua@Lu|ZnW1t$IGC|!Cu@U{AsX7{f9r8<eJ4?34D%$GbTP4dP}ERvUGhdTA#
z+(H+%<eIjyvc>^xT!X)RMp3bW98u7y=xA;f)^oVBsaU;~|F&W?&I{YNZ3_b${*EYh
z0}8D*+XN6*T4%4M?6_6Yj>n7ZQ7YA$md)2OFyyDY)6aJ;mh`(feH8jJ`Ysd28PDHo
z0oc|r8hpO+<3`;{W_1@G%seLyV2(evK5Za&E0WO)cy3AXWQLrz%vi}bGF?TU+o2CL
zh7yjK)TbOWu6iND{))`#E7U`k=S$E&vJ5>dIYZxi`vZ0O5XbLP5%!&3l!9f+R3i;m
z7hWlMqOGE1(zHd2$EnO;ci~@n&{NxbdC{#kr(kYQc0SELmQL~&c;?SfgulqPfc^4p
zhoDY0g3i1cykI=?;}+;nuX;5W<~Od3sCwLnUkupv3M-RXa%l4oeUWVCauE0CaIRhx
z_7bPzw>%Ft(B&?$eV%D*MRc6R9n6}`k>__&ZvMEQD7)YosxQYL;jS4QnUx49MPYoN
z#kh3scO*W>2l*egwqESAp$bsKN$#pCw@>Hf<Dwn<Z5cme$ANeW8$;*EgCqQr{Iu)J
zfb08Q3%S`TN;n23H7`!U$!%VH=WCKqdsCA5<08Emh;x4-UFXNV9j`R&br?OA8r^4N
zJM(oz-|HRd{_!78VXPJGBK$*2slJztesc4@kYAWdjvf_0I3&lhZ(k!!C6a<5Bg2@g
z<PM-lkVy3h`W+3mto_RcjvQop9OEgA%0ccI3!0NcgBNK5u>%5m-X4#aS4O{0v;A+o
zCK!?8TcPk95(yn^ZuvBHeMz$?mL6oD=zDV{a>o*P;VGRlEw*kF=0(AKjcM3HB+Hw~
z6v;@-wKyB7-rOQ0s!+l(f8=YGKXxj~9AdBxw7DQel_BUx;hAz8h=-AB0qAI2Bj#sR
zF;<G9TI~^MM<6NA5be{Y`s*^{u$87WohQxE_Y}cl1jJyFb*WXdBkG;M2h+jmKK{<K
zc-(*#s|hNFd(m0DnN-<3IcM{~jAr)HFM4FY{1xwUSoso@gLJ-fF6?vZ%nvm2o%9bi
z!%Z#IZK0DK6}c&O;9+r1CJNXzWYmg;IWSbHYO+&9{XbVxp16`EM9Rd()TTO$y{<xX
zf-L6cW9P11dDHDaZ>iA#+oy5tv&E%@t-tnJ8lE>6Er#fe7w5J;d#u)P*g(}K00*uf
zR2JTNsG2)DDhQW|l11>wj1vicoKQkKu9}#z`jo@TiA+xZ1Zo{blCi`hfh8q7ZxJYk
z$3CPDD!n?=22(Ct%?l48dqKvpH?kax{-B2*b%iq!;>ioR7a#&i;6-1b#k&Nj0QzwS
z<NMcd1ehiKFTowp{W8!lf=iX<dzJ9iNMoak$1NAaPI*<~!8XPT6XX@Jvo99N$6j}d
zmWOF@CZQO*Fu=AU_I(>BiU;rnFtMZ=ho95aF`KPhqU1VM##~gobEk}VA@9veSb^$)
zc9F<zdniZM5If^%NjR$c^hv|v8J9%)*O~vc<61%~I0MmVg1|%q0_8CEJOO?ago613
ze3m{7TR;>ZBAs>%ex0Lw%g*IyUm=faKd-TVYrd!Rry7;Oyoj`ps9`z3Zf@h%t5;vZ
z4Y&j?cf1O%1~gPAe)ub<()gzBBxJ|ki*^hxJ{BHYsUl8jnF@8|E)kfkF#7l%+|^fD
z1CSFMKv9BnQ|o2{`ySS3Y~#_JC*{t`Og;zf63D8-!;|!S9kV)gO@;cW&!5k}QkBEV
z3Jjn4bCOICtS_IhPfB9HT=PoC94Afh3%x2xj2a}!%NzSsMoRxi_Bc_@@n9(%x;Si*
z-7vP|UM+5N^cu4Q@0vfn{rjz!P|NDjlqCysq`e~1zL>m2ByEi&*n_Zsg6IBo{c!Kk
z2=xCGq{o^aD%&~n`3|GT>>fcp0E?bm>Z*HMjOX(vFe@=lqjEXm&lsCL|C-e$i23z4
z_s@KsUc7X0ny)OG@vp8DF+3S4+URkSec$jV`^R|55Qzqo2Soxy^xLwtN!|QJWNFOH
z$jp4cL!Jdk(8``YiR3|MxX}$5l_DdV*YJ=GCOxVZks`l5V26Hwh@>x5Qc`U4y2vaY
zys>yVx#t1{1O2APp{Qs#;K%tUCWk2>ii^cOmRw0B4#z|tpbO7K+PZDqBqqt|@BUuN
za@gYHy`JIkS-E&^GI5Tl&}pKN7vKl|FnvcttFRwPh?7&HuC7kjZIc=WQfU-w^?>i`
zJ?G&X#ZQuFQVqAI9k?cbk+0(AB+qJx5Xa*GSn<*p3lJv8gcP*@I;4sw!LhI5z4$HF
z{H@1qZ=F<FSi2M-3JP!$;rK>2ht4-RhDZQE&uv&B#DHl0Wab|c-I$Lb<xieIO()q!
zjMLe{x+NJ(+!?b$+7t2HDb^>dFSL!FL!l%>9L}aDc{C)33%9ef@}bt_H($dv$Q)IF
z=`Avjad=Y0f84j^X+G>?=6kz(%9{%C&?B#(q*IYeFMyZ$ymgu_LhfT51oR7aNGZlC
z|E+QF?JIDUF$<SQw&g%|)a?Op>5)&^vQf~G$q?ontF^t+k2*G8K9D)qP7Un|jlJ%w
z=7Q~ES>mCNXY6gjBPlM_=diwZGz7*Z`Xl_Z;s?wRM7gXS)!TNJzt6;IhXSwN#DT`$
zVs?2ehCUqD%bRsxxWMG?W5)PD+I!Eas<LfsbYod+si>G06ayv@C`5up1EQ!XC`txP
zM35*^L{e25P?Caz5=2FmjN}ZKB_JZ8<P3s<l7k?b*T)vltJ7|~?Y*zP@5jCOeY;gV
z&7-i_T64`gLLYtf0nZ#ckG9!$bh$>;%R<TN1A(uSr0jCi$SA^U+xb!>?0Vwdky0Vd
zfZR!(N_4RVfwHRzOibC*($a01q2u}y+~aukR>+-1L1}-jVqMF#t~tFw*Vxpxbo8A#
zEh=Tc5?6FdmO%>SbO1pi502pL5$p>nLnNR-kK;|$JGB(^U}SZ=k`A3Qxx3M9xWrm1
zX^(Cii(R(xqEcg8W3xHYf1_riA`QI>6Bk$4QnXtO{q}k`ewa4dZC6+79i&b?G$O~z
z+S|y1xebzdFwi!>(#X<_$7@U&rZH|mS+OH>JLvxxy9`2u542ejK6D@vZU@(fuzwsO
zZ2&T5VQg#GT&(-*eHzL@^eHu-oxZOh7x;qG5C7#y;M4+R+YMd}cgGTDaR@)OUG^3G
zY)-r0-+}t7wU`67{s2-_i}`80mW8usN;=ueb4;BORG$Ht$zw1Xr94pH%b>7g)!VqQ
z;Gy6lL`0rk6X@0{L)#1L2>Z+Un76=S%>A^mo}nIl{uVS-x62uTEtokmqz=iS`)a7J
z3X;60)X3*$a>cw!wNIISsDfAaP#i{|y#j@etS?c~e(URi3^4y%n&)zaxoCKz(3qL?
z83I1`&zn|OetdFvI?E6k3F;+8KH|~f+qv@?0QM4Oi(8reQwIbv7T(i0=QQ8!)(wV>
zo7-t50$k|5-oA5ZL~)Co0ChMMr}wZY>F#9=RU4Lz@}X?R{5)Q**E>hW#wJ-g|K|1U
zOer)eyX0pUK31y*FD(3R=DT;zv-xQ!AXr~MsewdF@oWLQM)<{LpyPn(%d?6(r@ydm
z6CM)%A;rE@NLCYap}@(jk*omQe2<IRV*t08ifBz&+Rkpo52J5MwPfxhj$Q*J8JTN9
z)JtP@4#^b*p*XFiblwm;yUdTji<8JJ>{ugtYQ^a2Lqa?X*s1inJiB<!wA8f1f+f9k
zD#7y9m4EU4`KZ!nVc|2{juQ!p(|%J{pZ+3)-<=gi6l%aO*GI>O=QCKSzz!tvd#O7U
zJ5pbnDw6c!;CsJXXMY`(B$=OASN;ET;g%1S(gf0hjH@s042~sgFT3>$IqIxyjD;<K
zY}U>pG^J6yIXKB@L)2pq!cq*v5!^^+-LPSvjbbobJy75(F84(tX$#5B;8@+LPBsfd
zsbo#Nu#uo?y~Hf7QnlIXA;tH0ocdOJ>O__KoF3rggJ>`%im))G73ec-ht$ZC1a@(;
zQsd#m)%F6N^$M3+W-n)n{@V^93U{VaKcLW6@fB`vZVAEe(jvY;R({{g^-;YKz9?M&
zByJ*kUCha;;x}Z-Pk`OZE&ZN5{dU@gl|$H>SHb@b-*B4V#|)0!|M;UJwhsXI$U($M
zk%QAeExL-u)Co1A;?#fXid5b@x_kOxoer4IF<pY{#=Dk&{!@rB)8y->|LKz0ta`>#
zh{rIKd&DG4$Bwyb55m=@e4f55hMdOJjg8c2CXbe_4VG@xzZznNJsN=pE&qlHcz-2Q
zL;5&X-@v{B88z}N^39tsm;Lx_Mgl8tQPcKoaQQcQ_X8F4e*C?Y+D*TRpH<)_$P3Gz
zl({x#dRa^BQG?L*@0Bis9r_jTwZ<St!{3ti$6q&c6z`w@flJ%}WoiC9|1kuI#L2g4
zbr7Nu7?WX5f)#}=f1HK0(ZE*`4s9<ru6zpq0-ARgSh3GrI!jCGBC-lwY(3-1l&jxO
z)H{A?y$lC|fkJfJkeZhVEiL0ojTRkP*Hc%_W?|tED+O~{(>!krH#c{GS~<MoJuk1n
zr#3Nv*J-UTVj~>W;W?i9Dat~;5>`jhfeE-poW*qAzE>{X;0T;V<Q^Yf4nH!8CT$X6
z^S1r*KCIinwY$vsxV6ZNU8+W4P*>MJMXJ<zgR}ow1Kac)Q^=)2nE7!!@Zar^2d}06
zo(ke>deSGJB{N)rbP2RdgoT70{`Bb+y44>&4GIFfwX%I^`iV==ViR9*r4o7qbic?z
zql-uWdj8gJOfiNtkntpyH0<z8GduhceuYF;;T?~l@>-@w8m-lkJB7mNGXQA@@PMNQ
zrVf8U%$U9kml<pQ<6m?1!2?<=dg<)-PbQFjpoSC*{M$g9GeAa5K&!<16B}x#Wzrj$
z;5xl9cwf<E6|;UDtTe!pYDnaOx50}(5I~Xb2uh(I{R}3D$Q%It$PXEyqgTj!a(u)V
z`bP(PXUu)bMc4(>o3RC09+8XiTnPnb1Z_c}8Blti@_E0C$^!uCR=^nBJsih_kQ{%5
zYf&3OPr?)83g~A|8y_d%Td*cX*i|81Dr@Vp2akJuFGU*wY$x^!u>uBb5%}n;drYr_
zKmCT(#J5w1wt#jW%4|V|&5xY%@h0Rhk@%~YATf6+Gr*6eSp7IN%whn`N`yi3t5&QS
zISrK;l@bJ74rSAuwb2d%LOBSLhGKx)qty^my?hRqQMWSh^tB5Qy<$HL?o<48JcS9u
zzcHm3k00+vlzsW%uOe*uMWMrdK0M$_#Bui@J?cK~1|az>AovP|m|Swef1rk*l%YKH
z%}d$Z=NP1Y`Jzv99w_a4av9gBs{+PALw%$rszTwApg961T~w9P1r1!_en3DZjLAh*
zibs*7Q8$-&SPFI&vE-L$K~Ro9PHV3@iOeH{0aAS#x_6U!5ZtBY0Rx1Kfy@I?;1m+`
zSs%Cl_yxwzPfJ<%^`o6fji|vn9-Pte=+QaoCU9FPeg<iGxhcBG7*^93{?$d%KSi98
zMuq4-x+05|f}}g*(Zxx<HQ=L*U21ef>b!j2x=0{7;lM<Xz#p-S)IJ8!D*C{0(^pO4
zWHFrw)CW2aNF{faMk?h$6x92M#$VDu(Ck1Q>%+B1XFQ6zujd7zf_D)m*e51`uY{mz
z3>?ydx;c#DYfh_9Q(G9Z;0wxqfjY+}tfxzCNOl;C3oHvOvL^L8u(<Z)$8Fs3<8)#m
zfp)HLLm?-s?<9~&s&SPc)-Zoh3A>j|jy39-l8TItb6THf;pMqXmztgpjxn4{mh?V7
z0(~511SH0xLbl)Z>EJ*yIVt$ZMdPd8>{ZxSy+NcB7<}UD!9&th+@;10r=oc_>srwd
z79XX3wa%*Idh$$M@I>ZS$FC#_j($%r6Qv(P38U01N<n0Lp%}faR3Tt~M3?{Lj}_SY
zXmD5WK$&UAPcSa=ApkH$ifnaiCR}*A%twFbyKXiutlxn5aWB6``#Io8YroX#!_sJp
z!{7~|9dO+dPx3Dh9<0u4KPW3}o;RIBFg%lG4!jyfmC#oTohe_|PXDR`5{Nk}*aneb
z(HL~?-$Mja`Yi!lVexO<rf<T49k-Z<b&CXZTlr?xj2lT<B%-?DB}}RzY>?+O=Xp~N
z-N@atW}?ZEb@OcgJPVVTSZ1Cg`gK}x?bV)V*QdX@QGtqo%+G)8Ke9bBVF)!~TavrL
z%gr)GtHwc3B^8w~mzkC+WQQxW%tXSt?PrY4K$vL<{Q8R(JHyFfL*v2wM0TeZ;eQ^8
zYsGLfmXPPTp2}K7;W~g$ul(#)jx3L#Z>HZN#tau%2#Sk6Y9xgP?8_3OfYaxqbRpWh
ze7Fv3RVuipTF*BVnatBjr9NHg3YSJQ7-7HTXrZ&h3j*hD3|&Mq)Z_xaU!zdw_7RfH
zXqC6BlDv$gk#+w0PM>*~SzZYY|2W=wXaBaf|FO&e&mU<+|NH8gvU;OR1;8_Z^|JOe
z%ngqOe=i*WJ@l57_T>zYj!K`m>T?7#RB1yN_XLNU6m~al+7CRdj3W0B(~-H8FZZTW
z*3uRD+6pKIoopQeD@T>twuKH>Z4f`mlO5p&HQ^qb$RLfv3ep(~erfQ<UionokE1qk
zS@;J@<<?$O_9US;gTAJ0)I`QVE!KTqHvpdLRT4JplALzIm)64;h@;b-Mjv#Tp+q8N
z(Rz$Jr*ZKVuCE}2GocbtmgG)?C7pnn7~py+o(LQiMO1zw*HUd2pG%H2hD2x)QWH{t
zh0vKN5zELELwB$gWUR;NkRtjalnlzD^>&^Ykk|Mjx)@+W{6|W%cr@TLd12~y<<o}O
zDV36EKxyaYv-;oh0IrE&pH^o=_vsl=a8)tTixq5&L&a|qF_y=+RZK@?3L<7+2@FWE
zdkNJ6RNFOxR-2=eNSiILCmeC-R~7kyO7dgG6BT01syK1#?s5U9&FN92^)!e=)Nvdw
zGbgpQv_jPT{D9dIQ};*U&tSaU01tp(6~j?f8nz2ci;1O{HUo${trGq@cJAW!@lVp)
zABtJgpbAq%z?_$>)fVGx_ZIX+v(OL`9Gs~z`FGq7Ia7u%?D&J4uEfdQ>eWFnU%os!
z;3lBEJ}~RpmHZnwZ`Raa%qAWoddd(Q!$=S}h$x&W>(?-yr;~5ku=>?iRvlq;x}xTp
ziDc$iO=T?NRnJRW!om<*NjWVViP5)qhYKuCl5Yxb4HPwdTH4(2y~DH$@qwRsqzagN
zmQxeoYfh4yKkAAHQ!3VwUsM>|ec0f|bNj0|;aqj?6SQu6M=pfPV<<Tz<*Y=Wt|!m0
znHv9o91ZL~w&^x~P4f-y5iOQmqUGM`%S?de#RiPS)M0?#a1`7?Wr%(a+Q4~HcjOj1
zXxjvGeFc)p{e3hQYr|)?vJ3DnM~L^dvlE?-$3UaQ0gxhnxF}7)K_Xf;qU<2Tu_2bO
zgzM3u1vpRYw<bAQ&>EtnvnJIDO`%1EXa}hkdvZZ-u47f!@WJhlGeM`2lk%$l)Ut<|
z@24^ssKG3MS^cERJmni2CBqO0p`F+B8Lp~2@HfD2Kpoj{-h4r{{}DCB`(UYJqn%M9
zT_4bK7uodCR>H?XIC@q+8Y@B`Ki;5_QL090JQDrg6uI6o%r3&L7{>}Uq;kupb|uz)
zBNi&KHvJSUfCqz!>JNZ&`HO7Lk1t~wh(^!S8jeEbt(N7G0ZuWAy$HdpAid#^tAzo1
zioUBa*sdkumLeSu!mcIlzqM!rhF94CLGs5pIr+W~cM?I1yn=n{8UU9FrlKt$B63u=
zy)_*TG43Si&B&{YuKZtc2ud;=ZbOuj;zp`yBi^~^=cgWN1`u$8jQI4EDDYIR?R_M1
z<s|xh<F&4|tO(3mHj~co9jsc}iv~At$XCGqC53ZM|I*{7i5h=aKob#tv1gL~P>%=v
z{S~EoFd>q>smxEL-Cve%RVhN?4T69w)D&WaR!skTh@jCgHt6EEupcN8@q7l+kBi9B
z+c7=~HT9i79l1WBvBV&03r8-G&1L2J42R__0?1PIS?M3*nYnkp%B8)NU8at4&oS#G
z7`~f37cwfUcwjFs)CrsfX9j7#I+_^pmwE*H4Oj5#x$YPo28#sc+NF!P95^@qWqZqT
zQ{TI4^yDj|wX;goL9Q_z9d}9sz+3(eT@79O(?*TazEFKuy|eQ?!_@PSc>>b9O=3`6
zyXULiKgS5BHR0bM(@)6og8ZtLE4_Vvz-X1{M6-HnI)E}mF;r#UXS~<r!k1ebGe+CP
zBhklu!pFA)IgOz$V5HzyQf4pN^5@xq-saJI6=THU!L5Tm4Gq2y5P^#jw1V*Aw+{yv
zs}4Yk;_N@yXnk*#O3c&JbfRy|$;o*Z*11MvJ=-gy14$$sWaMHs6ZG#`$4|Q@hLx;L
znTt{+4p}>fP;pUS6Wj_i-42ioz+;2=I0KXzSnCnq0kA5+cpl}8`S-`JGr9cmL*g?k
zzu-oFcj?}SR8%C=rF<w+C})lSAg5ytkGt^ngFQYTv!yZ89dvAc#8JL5+<-=xv#~va
zB|e)WG5u4eV*3`@97P@MiH+*?Uxl2;i-WC-di@$q3+m>MkD2}_1)r*=y@lwag$$=>
z`r?ZdYo-%thSfu!Qr798V%RO~cS;)W)b!!`j8KmGaSFP&`*cBme%y0@(72XZ&#X-0
zvRJ2z)j{O4Y-`b8sgN-9FYccQ<;$rKqIu?tN?tB@?I{%%)Y{wxK-xL2rluBZhD|<@
zxMFr5B)TFfx&R%pM-3UbHy5-!#x$At=5$sS76rh7LVL~I;}AI=M13zDVDJ-@pPg9K
z7ty&H*u`Qhhpjf4dJD;CyW?b=WBU4=jSomJ9Zk4~1;~3Vna+;kv=_DDMBoP{3Q52D
zp)GTk)?@EpvBrd>0HJB34aqseC^1A-!~d!Why#WAtW&_H8<>qUhG@1VX+_omru|>S
zksWx;Z}FG#8v#*^;NZmXdPn^P6(QchK9<sjT65D|>{o2uwX3*V03^yYuwZg9;^F3N
zN;$yLYRCLC-UQMSmpeDX1VlJ?JU=LyefjWwfNMMw0n6G~GAiG9I3=YE8l&%KMK8SW
zSi_9bczh%g$So+;?z?8*8$XVJPIh*c;*6zi{JGm`=Ff``zM6U2i*)n1tS$7x7&wG+
zJWwMC09dyEGMwGqr_3pR_`;C;Myxhd2#2UtNsKD{wI}}d1!a0QTh@}I1Ox_Z+Ahr?
z*^TSe3ma(~1SJn0W?0ePCbgoP76n2;H1YNytmB_Sowxtx?erbAsf6dqxx<k7@nD(U
zi>IH&X?~^ots4lu3`YTLY^|NPG)@~}6(&%2iTH~4$ZEx<(?728GYk+2KB^@Mx2*5Y
z6d06njms!@mIG>i(Y1XV!DfW~!OPNvuQid!RHABk&zWm-WA(IfuQZc@OOA%6L8#L3
z(9E&gy9LK;%SDt8Q$bII;Q7XhZ!e@t!l8?M=HzTYbZy;18W9J0kfe1z<1N~blQud;
z2`LId5mr4?3_2C@LH}CkW%$}DG={?wKYl+zVi}MSTE{;fUob>HjQ{U^eYOv;UhgBQ
zmHqoWmpyp!pYQx%)hNb4-}%42ej%G8$TPn{Q#m)<anRy<%EZJZAqVIT?~<<R1=$;U
z-tg7c{?BrfI4wjNwEMRmp#I7a8wj8ux=U)KJgutXn=GLRxJHLmYhkvorEZ!2CLvee
zibhc5+iQ}dS9F7`LUR3L@QNt1N4AjuJfcw=BT#PfBYOA7n2t{U?2pK6p)x^2TND@F
z=7~}OQ4{SK_W?}6KkqK(owhb1`>=}tUp%N#A=uMp=zSjSs!>L%@$B_{Bo-GzEgywH
z4F|#7`(YMdCL9b&g})$-RekzsH7-e<olc5M5nn-w1^+edod6!F9Q_<za^Td4B<S@z
zpqC1D(bIUhs8nlzGAEW6yn#}C3aWc2;f8`A`C<4MH3>U?qv^Kzyizq1|1(JiXcf0c
z;p$WEeW>_t{#v_b{gE4Q66EsoxyL*8q<Jns1XH9Pfxyf49srZUwk2L54hW)~a1vnf
zodW(_R=t<w$G0MiS=!rOlT_pz1$nB_E5tDUHo{^GBrx(TOnCLjBW^U0&v0~`^oU$a
zz8%B`%D>Sd60i=!z)~!?fc2u3l6sOQlg|G22g7pOw7inTdjQKU;;ZNHQI_4QY1zcA
zG|<Xpe;J7`RrfOn{>Z*mOYj9Pd|sZO=j5lpo^T9%S&p(?#8>KInJM})UghDd{vV<R
z1Aot~<`KPLSN%w-5J}HBOfadd_SJ&VV6B@zLziNm!&Ze>!`eiG)FoF8YfuK7zM&S*
zKS?^vwe8P?eDxb&WeHjCb+aqB`e<4|Bmn`rlSm{(1$|vwpg~$<l9cvZZA+1j6q+#I
zG|zOSlw5(^Mn!u(ie`Jt6@xtkfbx|%SeWHK4&T$%`Zx_>k*EPl)^#;o`x&Rlh!#FZ
zI}Gx4HDpPbMpiyW2yBb&hM8|M8f~zV;3(swHm5mGO`c>iMXUhIp{QIjMbJ|Aqaj#+
zw3;KVkvz{Ua`qKN9B$NMBwt&N#S~i$a#m+9JS1UTq|RPk(*%WD-1Qt2BqWSfUTyH^
zfM^;;UTH7g0hlnP+H=cM!j6H%)VvQ6_i<Wf^$y{-VcC|**1~{rD2bc`(FV>Io9EK*
znpySdzz9(w_Gd2jm4jJA!y6D8QT|3DYbK($lX_3w*9yI(*A1<_i@3DsGcW>ZMqV+g
zJ{dfO{&>lJn-XYdmjq76*Q$Z}693$BFkJiRkmgu0MV~;2`L(y84G^UeoJ?ig9rGE#
z3q99dP-m~&JL&b-#L!Xn$<?gt(}REP<t-EVx_`p{Op!v;C!e8-l{<Qj6hoMqi2*qV
z<fBA$@q9)_b6<p>&worD;}I8EN5@{U3HMexh`P&$9u+CwO4J{Rey_kU0Gumu%Vm&O
zM3!_6?QG?{FeE1YkzKzWX{-a$0?|YFp<me=9h!oo=7AKOBfeqd&YkZQ1#c8BPGXs@
zZGZWiZ;lM1ze2aehEEFb)m+lDNIA}>1E5=0a-n!3?a)SXb(7du>olz8Q`{Lvy}GSQ
z`XBd038DhzgbSLPf3=v0BDJ8Bb~i@IiC2f*ef|11;ej1}Kw(HfCj*^^h(o<CyC>AK
z`AOdeJV@f8(x@k)Rv3a0c+F98s&Z}hMQ0y@x5@lGz7YG5IFtGpLAyS!q7njA;GOD!
zz_<(|=-_eW+WI4H!`IN{7$tb^ZzRSoBt(Nqy#Pi0@$&*Q{Ddgw<b<IwgQ^l-0So>l
zvkd8fb*mrOV;F2#=lj^mo0QgVpJ5G#hQY_D*NG)bC45_{A9HY9+#yB6GnkAPcH#ul
z8<`#duVRV9=Hox{a&s4he|?}%_7xh=kD^2JBiwu$I%Ety43U2m)s%K6Qc{*qRPyNK
z<aO=y!uoSG1eC~^8JL3lE-&w{z}9<Rvk!tS5ACu@dO(`{f-{hyle@?sr57=aR@bLb
zpVBJBxTv9hTM_%;3WCQsQjLFnGebz>!%y|#2^ydg!xzoAz;Tvz`a}!hHCdv3+X0AW
zu@%qs4|8yDXNeY&CCUy6i(xdH>EOYGy51>}qW<IKwDD(@u4Q4hIRQy>3PmVmz(!WS
z;DDmiH^{({YfAm{)MZxHzkXgUac(*=E^2k9QE})GyO;JJ7K&Lu0*TBz>t9*Jn#7;e
z!Iq<OlkhlK;KI{O(@}Z+f}FLynS@)Sd}e|!vHX^zMr3GInG&hJ^d}Pd=fD)a=U+x&
zL>R~u=vzHyl2p?(Gl+yC-T!rAJwnS4C@6nG8{56WKy3pp)HjLaM3R{}O;B{0UXAVf
z2ys!#Lh;iuw2cUR5bL3`C>l!=g=UHkArC58Okuo)>OxO#bK{iO!pjAr<zA%QOr*r!
zRv}~~j=2D&7<u>ZUF*S_U^8TE^iTEJn1-XkZj^{bjPXgZDjlTqBm8ey03#bI!*lSl
z)M--dWm3I{?ss&<c&msSCb|+W!)+$TIWi#D=;rLK0Njz9>!$}-RUBNUdA?u@Hi7a9
zJj`KYAEVRE*m(8yBVTgYu4qJie+=z76aukftq5j`xIzp`q{Otwn5c}H@YO$;m8UV`
zHpZp^3?kc1rCVq?Fq?o2sAud5F9sg=bU>TOI(??xQ>qG|vIQV7lbHv;C9088w8`O^
zg1y%W8$EzN`(uy}D3^sdN=TatW<v&z7TX*pdH&sK;>Ac~eSo*^$oxY`P@$u28F=vv
z@Ox*+&g3K^R<qXju5`J5yO_cS>WV;eLDPjX%OGL|dlUHZ@n6-Z-<Xry=Iuz_fSl22
z0ITs~Gc?E?LBKT6dL~m*;E}o3ejT`08S1hGvmrjNz*N@#Wiz{8^yG)4M&1)hC9N9l
zzr(K1Eb+ay|Kc7n(hvPBb@@+1;(tWP|M8DU9#!9&;R4|6|M?XwP`7Pdh?ol~oI^!k
zQBl$p_E%DX^5$DDNOT5|4<Dv4y8mm=7Z@liSb}N=$e4*$0;CVQL9IbxXh%c}0n#=!
zlzg>{B23i(mw~&a2sICCk48Ybhz!W%Sy>ZZrh{P6<5|@)G3YBeR+w#bGDMw)@wkvm
zH;}`5hWPtO=?1U#^uB#8dTXD8hi#j{wPS1T7G)I`R5I(THhF+(o?zB2OB5S}mrXj0
zm6e{oe(irXLE?l%CWvIgcsGQ8Df~p0PK?<22=Q>E(7~zBx~u-Db?ZbXd*1*0x8m%L
zvu5v;x%cM_nU2DEyYAPg_WOFP4c%MU`MBQ0JM=-)O}qE;uBrK_Ze7@V>%?~7=aveJ
zyV(}cd%JJXZGXkRi+&P}tLRzm*m>c6Vchpl)nSJ$tpVFe$uYHx(J1@KjFjQ`)rOij
zpRNm-)FxMgTWV3v`T2Ex^CB0P0P*Fit{2k2WMA(aI~YD+a}MLf;X}2;d`Hr{6~FBA
zHJ;=*xs`B2TK&r|jA+ufoiYNu9wTO1w*4T99p3Q+J=}Zbmmk2`$s<4Z$(@rwNJmch
zmj1y0p56Pw(b^C^T~pjK%`^M2`W0cCPZm5jA<q#M7RJ446I5UPXDKrcV!Y6-df`sL
zhVcv7n=+`F)0$M?pXQT2yC-NfU<8+1pe5p!ciu-iN@GoSw$Q*Z1{wWb&<%W@!8k0<
zV)_V~ko47u*S){gB=zuR9Yy2H1k)~lZCU!`4DM)ISbqjXG}ZzszE~`Vh%}$?dq;(-
z&-9fzjb_zLbRfoxP)h()iMt7Hxb74-yDc)v2R!O?*#>avfa-+|ZXTXyB0rnSH?|V%
zX%Y7<M&$&T+)_APcR2VJsrOa_{?X(xf4h;!xSFN`^3R3pv|4D`IO_X{E#Z4U=rS0b
zdvQticzs1XP(3}+mAwVJ!Q;sgQffv)$Q7~biqv@7vGSzM6*z)=$H(kYOEs_NWbCa*
zs?3Mc98dTA+!b7<acSQ;NGlNoBcR*nf(&C}zI31Z2jHYCm|b9s#3S<fD?dGyzg_)I
zGxyNq57)LytwQnUHZI1GK3m`9&e;5?&^MEwz0Lp9euUm4VPRovwH2|t`RB0wAAy5$
zfB^7vOa=EVBNN|KwfRU|mujPdZ?t*7_jc_Ru{3EbRdmCg-}P|&*AE-ThH3_HyuKJa
z;&w0wgP?Hwoe?msO66cQ{`9=-g-hBkbP(q>WxF(Ip^35?R1}Y?$(|{9MB;*5Pdwt7
zyUtSKNq%?*stW62k!+8TruM#GpaTX?3@Ugn&!ibnbp`c-;sT?OM8iJl?yjlfPv?l9
z`21Wpsb`n|Sq{stmMan4r=Ht?GQ6vFW@YL^T=(7gn`(-n&yRoJCVdN9I&a{fI3Y~o
zj_wlCOl;0v+~NXFCRyUnu37c7R)daDOA!S{d1vQj2-%$jfYXQeh84+7m}>(%dVj_%
zUJBg}IZWjiT_pMKg9`S99m<>@(e_=2F^F{b`!JpQGbg8{SKt<}ruikcXnIoA(BOcy
ztMa$58WAYu#Maa*GF|f9#Vn@mn4rS}Z*Q_wJ5$14tUaU>@g4`*^NOcWpZ>x`rksS2
zy{fqZE57X!CQ1%Bb55-W%jG&B^J4nV)hkjN2H42A;|j%i+%bpfft0=NlYFMPtNs;N
zfLzMeZ1AnMVUO@}5`MqsM<L^Xj@|hW2Gl_L%Pjpdv}&<KliCJ*b>(-V%iXok&LLr8
z24>of(s=YP+ko>tUsLutlB&(LaF`kw8dm^ltr>pK4F$8rbGjoRf$fS;4mazdt%}=n
zhw(dPuIB)aU+3Gr4Fsn((3aB3$VJ?<`=*o698KtO^}Udu*zv+1Z8PF8CRmo3z1#8P
z4T>fjUv`;afD)7dIJ#nioFd@SL8vQIMbRO^eyGX}QQxXmS7G8T2%rQ@2OcBd4*Nsu
z^g17A{nfeR>q)ZwBl3NJe=BkLMF=68bYi;bo{)u3?ews0Y=L!Yhb#?z>f>f>t7Pq1
zY06jBeL~Y(%CWLH<J=dAI<=tqbd?xeLy3{`usPqq|Eb?**q>6=xhz2J`Q_@-&ZCCs
z^7;#MRx_N^5BD5<c*des@ldwnp>_AYGSNZ#ny!a++p=wf<z;xsqB@bG?$S&;ls^mB
zJ7@dlv)4_!7Im|?IqK@K=Xn>s<3zOcwm|LEUv^c;`|(L{vULp6d6KW6XzFe+?7g!A
z3jz-ypYo%u_CL@Y{)b&T<JOhZ_OIGog08GBX{dU)%{s$$Vat65ZPY*FFPcGvv$gwj
zfb%x;Khe*34m1%YW(2|EkM@>5^^%y6wp26KGEXO%&hy^2^K8`fkn^lYH0pxZxm@Jt
zn>IBe4t7JrBn!By=>#T|{?5ZhsEcJ^)yzj>V+qkAI_xsR0WOpncrS{nHk-Wi;?Kcf
z;X8eQfjb63+XpVF;Ft|mI^0n%k-*tlMe3`yNK)WJJzy*$p3v+nSh%F0`3!EG8Vll}
zXno$)wH$a9Z5UV7VzK4fkU6<QKwTW=jRMiH&%AJpu*)7$a6a{x8F=pwLG(~rhkm6U
zX?9SO%UOT5Gv=rt%ELJ*BXdX(|FyUYP|j^2zOn!Unh+WsSiWkN)SrQZddH7F_;us9
zCj;ol-PDvJ=*QB(L(Vf9?NjF<iE*88%QmUej~+P)BPm*AFpOQDM2b*JxZc@6HL5)o
zUTBR>xDRCq2}qzfp_b-~fKLRFDJLxPq2()9B*=zZrMCJSo`cfko-PY;C-!tLZk#~0
ze5!fro{Om8uLaND75BO_bvZ6jy#%oercH{b)nYu~oSG?s_HKw7vZJAjLTeU;<uF5_
zv1<3{iL9ybQ#psE`tSZQPIT-gAS@z)Hx6H{kQCsP`?VxyXJ)2$;4I~mT_Wj;JFS(J
z-r!=)u&{Ik)*Oh~)&zcd0qu!)<rsis!)PjA0_ez)lsEx&Jpbc*IuKiTK#pA7>;a1k
zLzt>+J1RMHjto}%em;)s=nuN_Z~5E!J=Q(+p1O;G%Bk+eC;r}4zYgTp)+yMIiXB*u
zY$%nl!0UH+cE**m(a|t)lG!?PM+=coxWkS=5Vr{1W+49>#-efrj+VZ_>n7(9<Uwqk
zh!`^@v|fy#7Dty_Ts~w?FL;$3BbuUtVrG@U-8?As1}z}>y*e718!K%t7IdB28@8$z
zY8=k%fTE=o`NK*KbF)xgNxSwX`;y+)s*N`}JT)EAD(Y8u2%_iBfT*1vCW`I7Hqg&(
zNP@p~s?$XB+>9ni<k0~AFMN-K3(kR&<{-fb^V3ZKc*h*KhgPfG*rI~l>_IscqyWMH
z8xx{<7Wl8w^}kt={-2tq|1{eOwZ6{hl-R>LHGHTRr}u8&c|?prST=1s2NnZwH%|lF
z-dE$j=)$H2e+Z6OL1n?N=W2rsfW*W?;fKezk_-p5-$c}6V#h}+bEQ^NB=sbpUddY?
z7JgQ0bv%cTV;n9_7T(jv&q;kzxwvF5xkA8CVIqy__p+wqgJJgV{tgPAi4z=ySNG%4
zIi<7p7C&aj*P_j?KMoUW-5xZ`PXMD7IF!7#QC?wVGaHrSyzMnMxc!n)!T0K%NV5rl
z-KvSu{KB@mmfcIFrOuz_QSz2<cr<Bi6d7?Fq>24Lv<dGh&(c~OPdf!I3Kqo`7*DZz
z)6-;8Ngqe4OGU@citE3!+I-(>TwP;V6l)z?-{9;#lx_N^eE%v6#y-q1_KIajWeR`(
zkKHk4Q6GM``>;iBDQXun0O{}&Zo@Qv!BUYOf;`ClA944G8^747t9o(?AdDHNDGpSH
zX{KUHT-Uz2>y`ryH1NOl`WKw|Lo#MD%c5xIoE(?+CO!p>B$|n_H97q)`Rrv5(A=hg
zDH#BE5CHeSaP0|hDYV*&$1zh(=Xt=qR>*n2smL5kSdGEf0iU|zSlGaJzb!db8C2dz
zxhAC^{$@FAu(kVDnf-Eimd>g_^DFw(lTp}+^+4%=9X0Ujpb{GcGRoWYyJDbm1aQNO
zW-RV{c+99ieGj200H$3~GdW)oAZm7Qym7Ad_E*3;@G*9S(;>Z?WK5Zh^N3Du4^zps
zyF#)z0(Qf_UushZ!2a6~g9CN%T+B9X%9`xRItKwxGqAOF1E;e29oWFfH%_o;eqZ%g
zm_#BDRJHWjwTYXdRw|2g=QWCHrS3o@cT&jK+2eo`VQYje{mO=b+38n?01;mBar_p<
znGh0<AB!k=V6N@r=Q!nOFN*+%?lgyaR4=W#DfR7%+E_sn+RnutAllOUxzz+qeaqPy
zPAxGxy4-x=j}?6{wiqIcjx&xls7@|uNEVVBsyuon?75XuM2OMJu~UJ*%Yw5HvWgf5
zo$=|>KRKpd<j6CbY-9B(EH8`q{%LswX}trZ9$yPq$k((9oG5U&KKNDgxv~%@%Jn5#
zoEv{rF`y(rX<T0&UlgI-nz`<#{m>JM(<New-Xg|<()L65wj2A@>)5tb8_OF^wN7~H
zv}jM=ePPfaZJ=H<^u11GWwuM3w&x22wL>SX;&p6Wb(Ie(nw4ahRd{#WK)g0VTe$Cc
zmA<$4Bu;xd%1b^MDRA68m}|);=jB_J{yEIK>DwdeL>>DQ_piarCOJ$czp2oDZ{;kp
zXnQgKz@)m5gRSq~;wVg`D0vo$_X}fj4wwTQ8}hdm*}TI}A?sgSLu@uXL5Rl3u#^1x
z@v%;vhvQ@UHxbIq%DfrvS`p)L_2BQ}7gGYpPWiwsZ^KB<<)BHqRWuk^OAi~9%3u&t
zO%freroU4)mdo2{hiPzF{|hLvED~*WvaRWqm{V>X?QF&Aq+^TZ^&>*RN>pP_%#K04
zTbhP=n)=~#bZB(?S{GLeOjuuuxGFv|R{KF90~AkLM0-JYV?z(JY)<i<zAp{(iqR!0
zL7ZC3b9dSf)SU_Ab_AnB2SR>>iB(q?DjC%-U%_4?ox{4W1OkA!;Ybk)95T9Uc#ysT
zB@As8>B?(JYqt;dnL{J*zD+){da-p~3A?at_6@g4#WPw$mdAP|=5Skk>Dc0XStqB!
zTX;g5cXs0aZ~{^Q`rd*fR#v?*XQhtqShv|Rk@zg}8f@(aoDXz->kcV;?(REbu{*C#
z>U+uqi7VzZGU+HvnW0}+I4zp8f6R(R@BytJS12WOZ4(ma^2&RI9&EPLr{%@}jNn7)
zXNGYQt<R$Epe&#&{P;v%0B2`U){};@3`A-%2B$}-HoDmGzckstFgzl{wL<$ukE&xC
ztQ#-n220MSp=6bV$XNZ!({b}-6(*O(sDGzE#5A*$FV_;0>N&Ivu&ytm391oV0h4F9
zZ#su5xU7?ZB_a5(hgUokwmoa@)noj4uZco^@52&9VsgKs2O+MZ_effRqe?_kH<k%`
zd>`g+CI4kjSVn*Uw<)$LbWMRIBc1zg3}etX!wXj)S<#{lv52QoTVPEbd%Ug$Ak@(^
zkxLzMc*(-Uxh;#E1PZ$M0Vg8YNZ}~_A>ys<EQmEB95ghShL7yKb;52F$~o)V*eHgi
zangGtnRxqQbcH^`gsekAjpH0YiG%E>0}h3}*q>H^{qb{OFu(l{6jIsPdM1L6k&uKY
zzi0ZqJJK+xy^!3>!5~BR=F8x@n%aFms(l+J=3O+e8?^`*3_A(I0;AIR25KAUu(|>e
z+Skm?8ARzR8<wuZH;rlf;`ia(`eDe(6RTUUt3jlhjOS~LFFBt7+m94Rt<3T0G4ob>
z@32-mkS+fB*|68!+dBvR(zQrVR(3NZOVz?gUMDyv3^(3~L`YCTuh3s5`O<Ic;M*u_
zX{`rE)fo&@@gWrOM4=ATyex27hQp@u_kvUbCNBB%>NHjJ*}eb&goOV)G3*2$OO`v<
z2=Q*Cjs6YdN_z8sv{#S}#})A-jT%C%e&IV*!z9ps-iH!zPQ&C-k_|fWgKz{OIj}Sk
zXkYWSWyhVt5^nwomaRtTqJ+1(tMzt0d?03JK$_bEsG-tZCIA|}kxeiEUgUx-HWz8(
zIVfYl9qd++_vDHJd+-5NN{$6eNorvpj19n8f<_fpRoB2Mx)Pq*hEQO&kbx4c;}f|F
zaGG)<G<pu;P9G*C%YfGgDO`!;5`Awdt$qqp#g%HoP5pwIBT^UieaqK-fd8MHIo8dN
zvzb3>g5vE*=*oF_&$rTd6A-T8_P6th9ywE^ps2{UVC7C{Fh_Es+Pez;R#%j!iU0l-
z&Vho4;rDt{%Me1{g0h!TsHsI{;zl1Gqo|(??lB66Fh7fnO|hp4U~pCEBuX*?3s?X8
z_%CA)<kfp>dBXB@SA$Y2{uNByKPOhMTD2`}v@F{5*jBF>89K;wS>69G3`99*3zqyu
z(3k_zGEc~PmDaRT=H2XfXk>MR-Fm^@nuZ>^7<rI&Gz%P!w;$^j{OmkpQqKI=VqsU1
zRPBxf9{aI*oO7y=GY_YFZCP~6nVP%#c+Njs&2G)nCvHLgYH0F9_a^>B@SOu7s<{$U
zizy}bXKRjaT}Hrn?WMn2BNf)LR-s&L2j+=8qOz#J5>GupcIyP{^f;(mrfKXZ$s05K
z??=mca;0#4T`+hzyfXHLZ**{TACwc`OpO;!$;ik680I^=`H-(z4yHR6-|G`<I1-JR
zo^KJhhzgWwGrHa<6o<#?)UIw->ouLFrT;quSkcihLCvV9dw|&bD_R*i$vNXDlMhZ{
zg@iJ{1@r52eg}@&jn}FYcR^n1^y!0Jy>5ZT@dky%CTI`3{Ip2)ad6uHb>@;eq-73J
z(%BjN=YT7xv=pRM1J+f5&niMW?b-=#^t8u-tnS~rSO}vUvk4w2C?Xx?ff#TOE1|z@
zErABP)leDR`>nf9JgpF_%<G{Q85&na22>B3Y-cmABW+@G%(x|tHsEQ3T3L~lBj$y?
zLCJO??oZB3^di5>4J4G?;Ap(TaX?}R1YY3mD<}W%xmNiVtNjcUSVz`s4@4&F2HFqZ
zLU56T68|~uT#E8LRUlZG3n~Vxwoz{r8$ffi>rih9i<8EN-1cKbDt$TS{M%(qxaA93
z!o{W0Jz$ndeudk#o&dTdQ3crh5qEHkuV4;<l!(6jPtk~3US$o+Lms5|V~u+dglgPB
zE|?C_kq5nFuXP^Lb}c+si5Y-pV!IZJeR=#0GT!CZK)a0-HPKw^iOPoE{S!a=?#jI0
z>D6lZ)kecCdxe|~7u?cO6nDI!Qk*7pfW71%_TrJi=dL(&wvvE)g>s^z_S{Q3V=H9s
z%Ko>;0t53o{P6-wb=K-YWHxT97jJGvUV4*Vx^rtiroVKW!<e*7E=YzY0+YL`Q%9SV
zH-b+y^$p<KhxX&3O_fzgAv(%YenX7nHu)>y7RGiKj9{wm8h$9#E#i5;W371R^={l{
zp3P2`mm3^VS2!f|2E9T{(3`p^+QZxM9bQ84iBmZhc03tSu3Z6#nJ*R9#WRj=T>e17
zWTyphh}^3M#)mz*%rG$NJg4^6t^{Us{Bo0d=%~udRU+ek>fkPDf`w<QW$?5Qh?B>8
zpUZQ8>iG_6Mlbs3B-Df7pe?(jljOA>03luAl*W*oJz@7+_1_OCUYEL<+3I=-m5HI^
zg_Q0?b&88W;V!$|8Xb$sZw8%LEA4pdAYkdE*<Bo*&sT&y);^$9yL|d29q`_%x|D35
z)MUGImRj<;w<*v)%Z8{1;tWL1E&xNzs}f^lcRBRAXrJeFY!wX5yJ}w=Jt{9jBr`)l
zq+Gf_MPeNhbH+Gef2}czVbWqjSWxg<!A#>PIO}_wsa^{XwicKPQf45*w1w|Be}?*T
z)O{^C`^A2y!4<%H{Ouhf%y#!9A_L9p2Zq7wIyuQZ-X}CR%ufGs11g1rX%aTQjR-Cd
zv4n5r1ot<yv*M~WVTg!DIf+j&RG5hzm(o|!)(1N0&@IZw))yBzv6FhAUiw}E`(mW1
zvmaeG*=jZE&}*q`@o@MS#5$CMMJ`nlF}vCJ$HnP2eeRx%`dian>EV4cGLT9mD&@c#
z_7v2;u`{Eer{8p2BBDOS1t>@=rs^tf9$^1h?K*WhU7Wx31yJ1~w0sELp`=v6WIndT
z^E;~;H|kDXn8sRD23e7YpxKM-N>A%zGU=F374i&YP~;FUdIBLXArSci)uFW0_Wq=1
zzBvQ#n2U4b%OS(svyT%4Q3%-za`n5C^&gg_#rY_z9}i_@P!;ox(9X&%w+0|s=-xnK
z<eagB^Sgv{?C?rc_yT10JBL@M;@yNcBPqJi;V}FOhY-WAC;5uf^3-ZdD(NX-wAwxQ
zHBFGGJ45-_mr@6@^@rA3DP>p~!i+=*>(r{WswsF0+B{)ZMRC&l3L<;5k*g(aE-_sK
zaOXFm(VRoWM&I|WDM>nvU*Oy*!-n@(eHC^w43i!a5lXN@`9>?i_{L(+_0YC+K6QLg
z@Cu$FVZa1y^!)Ea3z85{oFC;#;|65xo#un=hfC4gvK@+3kL=S?>|1%}=qVvxy9HI-
z3M%~jR%7fA+2)U^4JUuP!LAl`OzrUw+H_I{6UT%a4E%r)P~36wU^ZWoeVcg0E!-_d
zA?+Fs8sS}rUssFVNLkqlY|i-b;4is&jHWvW7Tv;y%F+s<faOA!+_nzc9p(-8-?K52
zX9X>EhY?}||JA59W2E$+7+}h0BHX`ITeA*=5d`)aN093S?<7`pCTo$3PF5j!OfNcP
z8BYdh?!B~+FboRt+1Law7C$48RB!l9*LN5B$CBD2rGdzAq^8UaIUL4^#cHO{i@^JY
z$18spzr5O7r(j}q673{qownjx#pWm)Z6ULUj=@Lpa_5m*=0WDk6NjaAI4mEv1D{;U
zrU_s1975*eI*8Stf&#S{2>IJ!T;#TT$zi5~zr<kasXV}Z{>GO<2Hu9W<Vr1jI}}EI
z&gXu*cj~wtjChB!Ba#>0nj$}uXvG>ju+{+>Zut4B(b~|^X7vzQtmp2B@P$%?p(nPm
z-StOyZIx(o>qcTwD7_v&=Ic3f6H$*5lp7yPJ36?<xI3eAJR%p_fhRp`k(0a;`%avN
z|MNbJzq8OY7oQ_-`@-M+$VuF*-q-@Z<P9~}Na%3ec?U;!@3+XYfu9wcJe2}86bpam
z%+}oXSB(-UpeN-SUVQNyt~DMwHQ*Q<J$3O#KzT@BGe*MuYqlYXGA*?Z%WA_oK7W_~
zi+e3{lM=?BjrfYMM|DtpDO(<ZtGna?trC~@uGF%~t<>OIr`G?_AoIQ!Ho`Gv=W)%7
zH9{{75{e@QbTn4M1^}ks%f3th!{fCcjst!TGG=CVrX^7RlS)fRDX%iwOsC!;sD)y%
z&VB&yD<CWo9cK(2sg{tXTnxal(lTsr!1kprM#k0IdHD6JOoe8X+QBtAde&E3-rZ+S
zjGh$w+u2upBbT(=uFOa}6}5d(T|Ynz&em72oR((!)$_aB#Yf)hZSNDRGrb*f+=DCd
zdO6U9b7iOx+al>GyG5j>;rrDUIT{PrZf(3Sd>$<2B0e8)Z&^6>cH;&F9-_!N<2;lj
zRPH8K>!&as0)qF-IW>zpM1M_7hs<FmVnnHTPkn*Kh<3%7G)1L#-*)~U^%Xq8YqnDZ
z+I86Carx-*GJR=3*dew4(km84C8g5%KQ4NDyPFygA`&_;K}jsAlFrV~UMHmX;H%ol
zuK>S}?H~rq*jNKPbgoqKPeum!?16RST@@JGs{Ymb^)K7b`)H%Er1?ms;z-twoZ$(a
z60`Kpk6A+}Ih}KM$;o-Ni&$SQOitM$<6w*sh+H|va56G>&Fl@%=y?1t?<+z6zle_-
zG>l$OP^#0}Pg~`h!No8QS5rd-Yc1vyh;L#qGorg*L?r@Y-!`_t%Ul45)>t{J{%_pO
z8Ensv{^K~s6(3eB>qY(S)~3l~d>Fj`Ca0ek;lU{B#o5p3%FoYlM)X)H#f%I(f^@Cj
zjb+~8xvS2OeQzkMsklC%2e-`x1u#+^_@5|TU=xrB(|*T=kak{*PFi}&SK81rsYfw8
zNwN?1-P-o3()Ha%R}DAQOl)M=+-`nloVqgMmVQa2%=;$P@?brJJglY#LovS@>bqX<
zHx=Kl_=JDf!nB~)`t!VUo}aNr-bY=<Q0a=Rf*zoqiPl&HP~qkE+p1r<`UF)AkHffU
zh_r@=g&o0i-ZyrH1YT>HWxXD-*gTfG9Cz#^!Nq7=StrwWNP1K;G5YUC;ybGl5=VBK
zz*-xnf!|(s)r-@YzoOYM8YW}EYc7IL--#Xxd7ln=Cj)hJ$xJNiAcBhW<c-ysCU0P@
zM-jz39SdH4F|rLuXVqgt&%+Q@4N6aZJ+TcU<ObGFCskD+rUUTJgJV%_=FEkJbeoQH
z$N^XhI8ix}Sz|l8fQjURQyD<R)vA8U2X5y{(-ZO_^{A?2hd{!y)#9?$OGL{)6xLK#
zjL>tqjA<ZWAqU)Lfp)1pWX`ddM>LUrxV_r2$rFvA@iu9l+?>srz=mgXBg#-*O$5Kh
z)0TebMmZ#fXfoXRA%JRgh%9h{GkGi)@e5h(Dl<UbdEg^^A<)}00&>!6ot=vy&LZ}c
zBsTn(3cSak3pO`iUx}ZSyLj;{pLE&OC-kURwTu8wPpx-o0J8NgA|gUodT_$us$4ZP
zK9^G>WqmUW$>|@PQwQ3RD;u?BOg4r%%sH&7qgqjf#J0UNX|(D$)(L+I(iI+l>t*L^
zn(4mA_k}|9#ztewk+q036E|u%8)lYS*Fvl<A+sJNQ!Dp_NMyYr4OUUZ%r5DjA-iPN
z(tq;2)=szWgeTYFP)dWtST^B);Ckv`8lyY`C2&Xmk5UR*8t#4IaG!(Z=SMW%$QoY-
zoR*WcLda4lIMx04@9csXj*X)uhY%{;ngDdmn87fmc|&)zY`8V;gl~~e=cKt19lldh
zw5DC*9nbGUj@EjoM)I!+{-SLwL@Er%)WmYcN0Qd9eSu0h!=NI|af)bG<7j&J0P|m(
z3f?N9_k%db>n_^l4E4Ta{?^qODXQ4-b7Yx4;^A9xlDQ=B{9yORlM?7cj6o+1(XI%i
zB3csFIIur+hM!j=ApA-;7;vg&AJUL)z|KKXGoi3&TY%+Brp1B8$I8@WPK$S1MArEM
zb?9|7wcAYIGMg|53=43B4-ldPA62*s<VD4``SG8NZX=EokQ#VcBm;`U+PWm9^>>N{
z=B$n0e({Ua{vRa@uIVna|Eh$=|Mgnv|4!iRzb^mtY*I0DF~Gqt2Nvyl22|!8u@WHc
zaS*1KP|}3Ni*7o`$j+<8j!O=frW@a^mGk718p%5$i=WW2Dm#6h?}dC7HeWmn^;8u>
zZHzc;*6bj;K0dw9s#LM+Rr`cA8nfKMfXqhd)_hZX{I^<wATj1G@3szV1O7tHhsgcm
z3&~3REpndgT!P%i!alStSMubl(gDLmttP%aruD&b9}0#ApqGKz<gdjJ3XKNU-jrGD
z`e?4iSD>(`C$rUShov0jr8?=1Mus8BWLL?UYJ=5vBQ_;5Ovq<Z5%43p1(Y{{Q?l<>
z+5Bs_KG?yP_CZTja?>U%WPbr2{dXRNt9;3ge>gi+vMB+4=;x?83{V>IbOl#IUulYn
zE4&TNXTwT<EsZbc41+;}ErEcc7;&{>Obg{6Ke7y>9T6y`H(?5i#Y%q0XD8H#w?9CI
z@gSZt5S|qGAA@JH`5NrggdcZ<^2LQ3ehkcH0#+~|0ruU%{yn*f>KLEH*UQqX5|oNx
zM26)cBjb;my~OIArCe&QX<enu#ukIP@4+tJBfp2UIDI4N`sY&`8W!A`+prwUUoL0>
zc=OxMbt@?<i_l2fWrE<}$Pc8_Hv+jF%McRjcbT)a(>TFSp}(;K)Unu!;Nvq{mTYXw
z8fK_uO@Fg7nism7Y8oc3$;K5;c1I@F-==UTA+ZP8F7{J4=o%;W0`ZVcj1Gzzexlf3
zI!HqZyO0HgLkD@D8D!sbV7=G}%Rb>&&YK>y1{`_8aSA@<&E>4Iy4BF8qp{@F@g|L3
zNW_G+Z!wq{mkfNUX*1`@VPdY0e(%9R;qs(&n4rsQl9dXVkxSPkOKS(b!=2bhP(5Ca
zYnxy;XJp|7rq~>%jSt*#=rV%F=s{T<?eV5n7MT+P?Y6u~V@HND2Zs|46(0C)+Wy3X
zkc%!DOB%qA-gsQ})3q-EMToiuy_03c@daKck{X!9VaUdYvYs2p*i@K-vT}&(e8}R+
z35j;T{JY6<s%L5)rNmyQTUGq-^C;(_#UVEOQy_-NboO+l#{6b4jh;@7raR)vMIr0d
zp!U>?n;hncp}??*_=!aG1@Jk3f|B&VY&+KW&;(g34U-)Yf|7>-<ae==7Z8RaZ!4*0
zD<ND)bTT$J&`br)Kfe{LSurXY^r5EVVp~-qrOPOI3EN6yw8bxsy*y$7h`gK+Z`z~^
zXx*!PqE#g8p=J`wPsoR=g5|MnNL*0OZtrXZq+d96s-Xx4{(Cfebg(=g4{J0=5jLsm
zkR=gg7DsnM9=3CoN>3R=wdf{e&E&%t$pam`s&SGK1cH*SRUOei>Sl{mxd*8tUdX6c
zJ|&se6##5%8aqz<VHCqwtYuVO4th|wVcNaidi-){52i$@8EU)jDW~{PHY*WwF#5eh
zq50z@171ibHs5l71_bO1#>~eSMMAdWqma^6X#F88ye#?2X6ebGzXnagsZwhQvg%TY
zaWDtj8o)T@UzGJ6#ar5KjBdC0JRyK`Fp>A0p6rvPtP%|1j_Vj7Z<97H6=Uq}0(Wa~
zxPjcOH0+kO`(EQ;FJJV^cM{p;iPK)THoZ$pa_0zMT+w+@LRp8Z@EGS2F;bjZ7qS)_
zA@{|SU?T5wVAii&JrkWlZ9eqlAq1itMp=m!{V1Br6R%ZljL_A9XgN*53f|buLMl2q
zS6)bEcaJ5fu=JoIiG3nfX18=Bk~KXv$a->ZBB-B>LRhypKla{CKniI_hA4x`A%9p~
zmn)Ll=O&ihJkb-tZ}(||Te}59C##`{`OPsqC_^v`ghXRRlJOI1!TA{z0hFoqJOP^d
zGB0`$gHUz2fCR2alv^;N$v(D28ul|yqTzwlcc=&*Ceget{2AX)_9MmE29t9b=_j)7
z`!uR44+RBJOb^(e7C`hLtD)19JF7+nfmMITsn7$E=8Xa`7a>$oAp1xNSCz2%-w`Mg
ze)h>4*Np{y{tWn8Xhg&@8imumFptSn>e2>GRAmiV^(eXl8n*B#M;!yLn(84&b*Vx$
zrO6YupYnND2B&Z<#)3E*wz3<gYofanI?=hc3*gClK+A)VSgY^gmpJTt{}TFxMn!Ew
zY3m3*0q_ut*o3M($1j?^szJ@ih_hj&@UkZ+1#Lq`K^{LeluV?Mene|qh?EjHtDZ^@
zV|Ena(zzQGf`XQ!Fe3|mm&;eAyz)v#`Hmhr;)&tLysAhCJoC<bQXT?|V%j)M3ktl3
zku~AQ=~oBa?@J(c&ch@b!*8ngY1ATa!D)U)LipgI^t|-G9QK*5s!gO4A5A?RE_vGm
z7Gm9y%M51e!TPmyj>1ni^A(9~Z8Ua8A**8E7zEBw>ZP^sqhsy~*+sP)DV)c&**u6_
zqY}E1&KO+dNx065^Oq+j4J_h35;Lpr6LfHJ#4gknq4Ug#XkugIl=A3lk5o^NY3E~A
zE3OV%o;nsFmLS`k1guZ32HkgDxf~Y9Tz;wtpHjC%x;weqSM#zxOAp!cwb4^xzxrkb
zpajANiqDZv^=WVR8viy5VyMBjG^-3p!H37p(L-6jIv1PL_B-z;Pm}>F*7SE_5I|0_
z5Q<KjNBuN7J>-c&aA6GcH|iP23q~G(T$!j{2Yyn3@f7MnB9-eIApw37ER4`yC<=7;
zKRxKupBRAXI2mQ*I1gx!eheAJd?M+C$fXSJyHTrlC&MykgUo^|cWO1Dg=~bhSbAqO
zwrp2%D>Uri@}cu`Pby{;=xHLa5dhq_)+$jcGYMR{DXAgE@!l&&roer2@X=fk$PvTR
z;>xis3Hf=3r;rC~)+2gSuhq5!kV)mBhOzqZsO2Cz>_Znl+WsVc%No%9&`h@jn2hPt
zi3b2?r)KqON7h_7_EpG493v-SZnL46xrBI9&dv}P%7(*ck7y>&F8E0mqZ+X68n8lD
zxsa3^<ujf?=z!7#*(H><;HsIm(T=26Jz4ddNhadrwnr99&Io#)ltR}t@b-A4Ys65O
zjmsZsD*_e+_9yvzD=BS+BH(JAAL>&^InQ>C9Yg4?ufX`ENjTORCmocL!IQMtbsy)P
z?7bQHS1SbuMh$oDOtN6KX_;46B%c~&^gQ!A9+qSb<VY>O3z^$+=?f{a|H!KVcXYgk
zW3qB^4I4OLO~km?K#v9>Q@G(=?3VV0vg{=dp)Ve-rS=)@kz81bGn@UROu%-iYPsQF
zhjpjATAW8944!Sx<*sU>MSDKqv8^HhRMmnWb_<`j1%nQi2q3IeLVt5Gbi5Fs&;{Ov
zcv|}TJkL2bKQR&v(Wt;+_&&9LPz-GA!gnt&xpbWDzPFn_m^d}gpbK6UDw<VvKGM=J
zeR@4-jAr2(N)E)Nw(F_lbtcs(mKAC7^7BXc)#Cr^KoSmN9=a=yUM0n~wkIezya?FX
z40X7UI_m@d855X;bO>+H#h~^gAbMQa-PwlU323U}rGO$BU)CF*tSNvQiRwcXh;4y(
z=3rXq%54i+jtLC6H@k~&qJkT}=AbckWUT&{#d3Y{H(>1&4ou8z2n3I`8TlhT>cei6
zCD;jrpuz_v6R2V+kPH>RimTS0$LTOzj}Y@O$yldeoQUmwSyLY3*X^X0rjCWJR}q#q
zbhr?o-KA`rg}i{dYGjZ?`w<Q6`pjirTN)unv^s=Y%g%uf=%z(r6>DPX`n_erwyUwL
zCQikS{^0{oa=A_IgV8X<uT@1O^$t)u@Y6V@Nl3HidO+ww<!gRDyVoVDhSG8<zKugU
z(48VPbWXA@mL9)Et6n8c3jpzqT~f%wMJlxi^RH3=h)LGO(8}v+sP^zTVf2eTe5lRj
zNLxp`5taneh@WQEWWwlZXS&P*nJ&HBGZhcMA6K`RRyuR$f{&l=l^f;b@AX}3qU*IY
zv+lAm(gZ1QKG}k@Zy{fW74O?oA{o+>Z@r#otT-6A<Z^CTh1EkRZv&$Z)t-&<sR(a!
zAtksR45nMCoaUhEp4m?|w6lrIBIw~*K|!mbzpk1eyx0Z)v6t8%pvek8g&kD2nxF&W
z!k4;z)22y8vm#={?)u|~rzAV`zxSPd`~AS+omc_A$bQqZzx%xHHvhzs`a<!G0g+@V
zpXh9+>UN&}IPu&O;BG^e^yt78sO_t$u7`$Bsv4pg026^s1z~qv#E?d~Lu(ycZ2}@w
zVx-0SRqvE{i6oVyfqb_?fQI(sc+^uDNewp+Bcfb`aKaTGIXNI)#Z`z9wUWZZ!670}
zP%<;#<~XT`;u+vTB7chP`Am~$DER>{$=YUpBWEyla_t#umrN;f{)bEM)(FNLo_gCH
zGdk#@9I00JbYl2%s6(q2Y{h()Ul`B)kcAy~3lQ<X?feBT+g_&n%h~$U8YcKQ)sJz5
z2_DxBUc245AIv%qm};RyvD!7WlMbR`wy?g=0ooILQhryqVhxb@?dfVeiEt~fVjw_3
zM>fcy?n*$79nsq87%_t-V`y5O{<GsgxJk6%h*|QZ4tRV|%e}RF`^(#qH@(wZbPm3w
zFCp4KQnAAd;r-R}KCt-=HDaIe5prief&|l~)Y>=vPOi>i$9C{$lFJg)#6#9Q0~&vM
z={jTYJErj^J`DAx0o_Lp*DLzF3gQ{b@LnP|{aF#1j+5!9rO#8nrcf8;87#HSSoox^
zaI5WulzIoL01y<|`m`dcu`0tDasE1xFfO{qJ_S@nENf?HNXKXf6>{<N^14k$XQZ*l
zglYWEu<IGQ^Vg0Y;~%d*fAa9plX5ao4=z=0Kkuu+{cMZ<yt_mD?kXzC9+X}E<eFpg
zONG^c^lx_C`PWkJXRbT__x}3q;k)_8JL4>K1`cSH?g_1Obq}}DeEBJ$Dt|EZ>X6#J
z?+!x)QL1rUVaen@BeXKauw5iByiEh=g_t-X?-mf(0r|)J3N^GztGW95`FYqHUA=mh
zME=IdFNa+d4^NAtm|!8h@XowIk)Y;EK*lcTYAY)%-FR4>%*p1wh#wjn0#9W(i~zSo
z1@<0l#RJJj*xRSSS=YgBD29(?c!(F_0l8U?Uiz>{*~8xICL`+h*K2BON@{EUVXvoJ
z2GE`=XTIHL&zTiHw;oK%q`+d{?gMTYixeYEA}S+8k{rm3HbX<he6*aotICZ+zEKaS
zNp6v5U~cuB_LsiCzVxgFWO|-Q5U@ttVVvziJt{bD;JX}CS64?id>6sRy6<zjs8lQf
z?7&)0UERZ`6VA*#F)@+rW?0vhTvlguSwKZIh#$B6AVpFaYB3>w1puc@A5idAvn>n-
z6GZHd_liG$yo*K<GOtu9Loyw>M)1P&qKfkJR-`4onS2fs-1m>LIYYYX#2Vm`6c}E+
z)Ya8Bg79M(8t^p0MbYfHJ^l=kPYXC*^5*(otF&x>Bial_*|4JOX0-??Xcn|C2!$8*
z_20tFc&O~Kt<v>b(S|nKkBU53PP`f4_6~^cF66FUH-)#e!*Ww&QPbc$jFSj-7`-U#
z&QZ0cEN$*0j<?21b>0Xi+h9$PA3b_>sJl*GA`4psQ*i~5we#D4(Q=#^%uPs9mzS4E
zS^Xi9b1pe@DHx*N?YO@MeKQx3-;6+dqy)}^P<lu4!;?WE5~P1wlMW^e<s&rax>^WB
zeF#2(2%Gc>7<N+wiF0cvUab3Q**0jCtSjpYqIk-wwoykjR56g0OXWTJ-mTIQ!eF=`
zLm#-MUrtUAJW7y_68C*2W#u+BSG`5}Gypc&^3zUvPvmz#_$iFR__;|=W}nhWH8r(e
zml|I=O0)ruRdj7Y-x8I(vulNfgoxM$O|(9)J>AhSFW*F>l~`%XBL^s#rma1XisHL}
zWDEX-Ld|>B9s^MW-UfjGZ^a@J?9Ou%NGB0s3f?~wY~z8xRrCFA(u#P!;3{b<U7EsT
zTr@D?*3vdMHU>Gv8!BGG_(}-sJNmq*lSl4y4g6|*M~6$6957<4F)U~IF2ioY<)pg@
zl<|0AwdOyQ^YY|EMX7M=S~}$jC{I4(qWTPVrb*XbK4gm+`_l=F)7<wXkc@w^O2d-Z
zLPnajyUlu_K;3(yiw)I-Gj<{7yDTdPZA6EUdm?PI%-b{71rEQW#tX-Ymvb5Jfw1de
zgx9TGSC!@H*eB|F<Hn72Xz5lV%75{??(>HWC%~<hYBhuW{X0+q%0g3)-=Jfrp2P<x
z-mv;<Pml}p!J^s)dPtUCW@u<=<+TovMOlZY>SjF-Z<D?Y*~dHJen=o)mueCi92^`$
z#YU`7FcGR(stAG_Yy((XS*y~opqkp|@3>pp%F2r7z7xSs&XXJ?M6`EwhyHE<V)0nB
z<mLEW?LBA)i^F-)K<PVIgM=tz;c}Zze*U<o&PwtT3Iuo&N6bSmfBzI_<Zc8@kUf0K
z!-&xsNLmyxTvJn1sr4Afv4CptFbKg32|_e00!!vyU0u!hunlvb<Y8)v6ti%h*zU5j
zvOPG&0DB$~<8lO1zXd2H0i|cd1Ysk0QIkM@hIm0i!9#Q#(=)fXx0hB_=pog(()-uk
z0Tk^%<9NIWwBRvZjbDjHrx>-|6UYj~;rRY>1W%jv$F=P2CFSMbfME5o=|jWAkJ{VY
z110kU(NPy(a}TzKnB<AzlX;YTfxSy@7SMxM;KR8pEiZqLX<syUewRh-dwNTek&)T5
zhEqydRbM|p!7Kfrx$>|(&C5<J2i!TcnuvGMvb~3J?pMO$aCw)jq^d;r3^phYL2}!(
z_zT0PSlPmdg4-})vnQ)9$V00A+sI@W9UU&Hm#7p%6RlfwA>*D#3yNxU)2@>2vu-);
zBU(Q`*O+F}<oQ^HtKC|~JHmmZeYrJ(wnG0>;q`z&p8bK=l*e9JmD^#ZNUi8W>(ZZ|
zqF3w51xTzQ*{nJBiV#D=0d|++#P=((h26V%bIDQ9qKQ^P=tV@eS3qv^;uvMOI>f%1
zF`U$wwF8Ztt3slp3Q;6|@LA!0I|ii|7x0J;azvT0N2MN96&eZv%{tB{0gAn=uxs9d
z93KmQDna^n8UCl<f#gGWnkx^H#p#||dsoFwx97@@yrsrQ#^YzxS`=HRwJ5gFR7B*a
z%Na+eiz*5;au%M`eXsYX8_fRCS1=g=FV<pW?z=5oC(bWh%G8XOJ9u0sYX8|k{x48_
BTBQI0

literal 50789
zcmeFZcT|<x_9cp1=0F)x6oFDfk*EYw6fhAED4+z%s7OvqQo;dCMN1TsLlOZ&K*=CT
zkgSD(WF*TGP!W(UIi5q$ZPo4m^&9VvH~POGJ=)<d(R;%8?QiY1=9+V^eP2yQVf~sN
zYgkxV)>9NupJ!oNeuIT&+2vI$@GtbB=Rfhsip$Chr|~C#&7R8h#2>4#D(X0}uyEcZ
z|6AhQJ!-<j@&^m$^a+g{VT0{1j$1V67DrX3VkoQrShD57x`%^H<<)-ES-wr}TJgp$
zJGYzscH;eVg>&yxzpc9c@C}P_TwHYAU-VV!YnG<3kdyNnT=ikE-mS+m{*KcO#=BHE
z#q&*iQpyAKPAU=0G@S-yrkynt=KAQ_-yR;6|8-R?EH|HY@s0fZGYgB~u6Jwy{mVh`
z-$efX@jc(B{C|J^JzDYS(tmzF{&4sIeewTYjsLA;W5!^Iv};C~N^G~l<HVHQiu5z7
zh6NRTW8R##-0K;vEG+!FO5L0!e${py<MLgzX3gKiz0P?;m2&B+=5gku3m@wiSy&>Y
zjQ^Kn|6bA(d}6HjtBWUGu(4TK?mQ&#kGqPmXinCPEqSobYN#!<E#2h7)JUg@Z&`GI
zQ(~e@xRhmm%>Ad5b}4w#z~JjzE&sh|H40oOU-f^=afp?f9~4X0%T^g^PHuQ6?RMqi
zxo{~b$9K!O#Tn!|_qXR|*T~FUmz0#qB~we;sk7a|PY>BV4HDFe8XU9^cN@;xap2-j
z=2Ui3yk%2DkV%k;QOX4)s-|+Vu%@Z$%N>%oNy@@Gr#%<vI|GA)wq85tHa*<*ImaRJ
z*|U_13CE$10zEEY1+!-^FLNFHqEZa<`f~?T)T^ILDAy0h9Vj(#O3-v2DVP@bWV#P^
z78y<UH#NKnHcX(~=AGSUc;k{rXX4esrnCqCWq*H+R>(A|+-lR7L6K$7L?5zgi;;Gl
z`tkP9Wfc__=U*rVYP>c*n`zswYhhv0|LJwCl=EO5zh*+f^_dq5;<Xl!uHmWuu?$b_
z&#JH^4KXn>?37DILBa+*&U5zl^}V!cc)4q2`k`3Of$^T|wHBT2dDkUZuU=hZh%XT@
zWq0`Yesx2E+jV;Grp=qHgN;0N%p+E^a*5l}v(~eBt(W|KQD69iHkHAc?hM7H-TBN)
zou87>(b2iowDIix^oV4#Zsr<x<CYWy#=%EBBr2Tqj=N3|bN-ahP}eQ9MRW;PPW<>-
zoOMP;<<XJFg>fOe-{Z#@OCN6E{7T5LHQO%2hHBNEwAzAuajvCEu(BmVv+_;*@JYH#
zgp71lVbB%4(%9bK{-pQ*&&+Apf-J_*R%74gNr^^99zoqwPW@ZXC%vGm1ebK0v9SCu
z)AMCH3kzH6n`>Q;4QD0yi;2C~m>O};lQ6IQ!|6xe3B7FF^*Nv4-CpU`9e5$(LaJd!
zb@lo;HYZN}IaJwgAFm#(qMKzMV&f8A`NFn6w=XfZkjBF)<*10q+K}Dp!SSktRdzuw
z*uXg?-_WjZ>PCTKyF;zClCpBc^-k(GN4E%8nVI7xCbW`u+3Z8iKjpi;CXw{;;lrEs
zWbL$*h}Y&c<Fef;l|#<-!h6n2^R4R@Y;99;BQcW$EqYm(23ynSdSw^4Pr42?CC085
ze)BfHCfLw*zqyO?!)G3I7L{YupB;R^b#+B=9q?C`iGO)Ew7>58sdMz+_`yfqzGa(V
zg|(+)%PtENc;Jw`o3jhs^#CbPktbU-Ec~&Y>X!3Z$lT%Ffr(NMyVLo;au2q~JM`96
z)Yh`*B~^CU8!^YWQ5PB0yKFp5*e?9|@i7|Ta63Ic{UrbE%Oz{7pGhD6a;TJja-`G9
zf1m0GiwL>y@89FFag<b5edFADJm!ZaGwnJJj~qF&%cjVzmdk0VO|ytOXSH9!`Md>p
z-q#P+)tbFE;Wqy6Sn;M}R#|<^NnbAMHv8F!+r_@y=PV6ke7(o*`2EAiN~hZ^*7IMp
zmK$o%yMS%IzE9cDJ4vvn&)f0gGM1a)NO`%r=Id;4M7F-njh`183*)u8kKmSpK>AR#
z-yVgGOT{Y+e*V4IlAdLwIPW=>*&=>@`17W+*`e&t{*MaW>+?Q8m9P@G>&SncEo=Y%
zuczV`Q4yZZBT25qIla$r4wzLvd9L%?R3~MiqaaUIRCHm_`fMBeOYC=DTl#CW+Q*wy
zc%86T0|<|`iB$-XNXbt3*N#j1qcVKk)pGQOaq~^i8Pj@p1uwo9-&4q}i4rcDIDaI(
z=5l3$VQS&bw+A;(h6>&Lu*B!p)om)9QVjIEN_`q~odz6#emUXk>2{2ZF-5nV8><v)
zdVXqUWqPQjU9;Or!L|b_=H5MgS0d66#|l&&+`z(O9WcISBhqUryD>iMLG>r?R72^m
zN!Qy!?bv7`hp$EH6u4$~&qXWv?zmTc>8RxQ%oandEE~G%XWQ)28^=s*pGo)Nt5^?5
ze4iSk3k~!m;k~sFKYINTmQRe!x9p9+@c3tk+U4PSqB1fa?qlWqO1tg1`<59O&JQ0|
zFK~6D53%k%d~rJ+L4L;FJ>MimAT_`K#<6FYO;Ag$dlw6)JKSy;O7do!)jqpPbzn@k
zgkrfr-8jb8<(yaDQyp5(8?3)6Lv`8e>oraF$DB|3?30vi$*^jv$ts9I_}6Jibu;Hj
zvLEiM+gZAN`SQ{}N8O-MF|$V|Ax9i~o_MX@rpuKr=W>k8q3=bo?r;&sfA5k?dC`@r
z?ehnm2U~AC8F(@#gSy+Y?d)=>I^hj3s3eYPmq<P0yI#tUILmGwL-`R978W+2b)D?*
z`*S6iTG=B`p_U?CdzNf57wU%0?Dx$Qwx6{}M@Q`s?^HT_wh6f+VI{YFT~^IDBlm;m
z`f?H$^`}WO!L#hXdRQaJ-h|`|%TMVhZ|#+X1V1{p7{pct3RHf*`U5N4gmt={$G`#z
z1=k{tJ8!5%9I0<m7}YCQ3gowF%diMC*{k|&=Y-ibuZg7SIojOhKrG2dp3LzGe8CoO
z?o`w2rxqWh<Z{2$l$9ieBkE<GPx%E0$CBbSkXn?bUv#B>lYv9E#KsX>{ZscgWa<~1
zf80&a@oP!aF+MU$IeGGy>(royPESH&%6Wu>kS{%I=Z1Sje2pjufu9_?K61U&+uG|W
zcer#3%khgmH}Kz_2M->+UeKAwg-e)JYzaq<ot}@te}{7StG{gByT9}iXX2eZztQc#
z*0djS8M{)+FrZF0Wtp^P*(5#?&W&rePc)Iqa~?|9XEv&<>IjcCB?ha=G92lQ@ar8e
zL1d4hmRafv?-<;4uD+a^;X1N&gMuRKr1xFi-|h0sO7(2pc0vEV4fjr2wWKtaY%|hN
zIJl)LhO#-+{NvyD?O{h81cT`XMtkHRz8dUQ6u14{>TGbB)j;sR8tvm(J|xL}UzE__
zcdj->4c+B9{P~mpZ2R@jWWa*>Yh9(e-9dU203ViE*|xmvc8aT;^Yf3<@0i7^gp<ll
zPrrZvem^}swL5oV!JWSH<fp#o<k0T1*ELd=Syi|Ri=2FvgDjIIu8JT$4bG#^+P2)*
zj%L^%JH*W|=GX!%EU65-Lm$fG^l`5_(i;cllVyTxyW^E_RD8yx_KQG8saPyUKplas
znm)&Vx?NFbxLZ~RqjQlF(QTh7qG#{mVAK09lVknP)p;UTJYLc*PBBp-UxX@ge*_}@
zzT=-F@CLbLSxRS`@jX+dHe^Ur1`~{m3TZT&_>~X8Q^%_%v${866XyvB`1v?fbSP~(
z4rX;@GW+-MS5i^Q(%;6n(PH{>)N$F#ETyF1`d4=Hl^;(9s?ZBMtE!saZb#vic5QSv
zm>zDw9W(-Pvn4w10-(SF+)(=9;`i@Y7&BeIsF@FLbn-eOA?pe+BHMd2K6{RSD+!`!
znSVTaHuTVXT_o`)l+{@5r*kBy3g`bk*%Ys?K%r1d9vL4kS{PHVbB)^dbahAivDnH1
z_LVFw&wsUN{C7MUb6x>eM>IV=3Js}~n&F<z*<2*r!0>PbYmU4lvb^zl#fgEq3#reB
za*wb65VbT@NbOtsuvzohM~~JvvKppdKyF!L<UA<<yZouh2#>`+RnIlLG66PG&+$AI
zlMV6?4c>@K#?H(g%AyOlu!UdvWNWLRckZnW-rMl<tU6#(W0sBHdTts0k;3_u`i2H4
zWb+*Tl#^wz+VwN*%g?<}dns7k=j}`q(BJ<Qvgd$%y4kkjL#lt?*2#5@Pbrwv-EJJU
z<3i-URbJ{B0{JzqTbA!=x`1R-+0EA7TZ<Cg&3P+Xjf;hCJ=;(#^~dvjOZSRZRv><D
za@^}<D9kKV6BCPa8gCH&lh4v16|Th=gX`gUH*i`W;ibs24N_MJ+z=Ab!lph-Hua@n
zo7(GKwEX&H{haeg)XBgVtXxU&-@kuVA)=FhT6W>*splq5i5IflJNnCi$^qJTIvYgJ
zx;@}eyb>MWpmH=>f57)NBHE^9h@LHCKAS%GsX#-j%r>T{COk3JHaGrr(Qk(VVFI5%
z)wQ1OC~za#mr_6Y>9tVhh8^O3UxIgw<o~=iw2aQ5zOb-xb0FKUlWVN7VlFI2vFtFC
z^uMh`Tc%a)1w$7(tbo+jFE_PP^yB*)Vh1|hMl>I66#|05mR-Xr0*uR|3+rVGnhOeC
zNXam0d3C8cvRlCWIOFGN8FwZ7=8pnuOY>uv^41k0Kq9+?MU1$rub$jgZ7lgDNJuXM
zm?LOF26xREvhx&Z+30`m+BMhjehPvu1+zV&w3yfkk2d>)_8&%l-+#1|{O`=TvwCxe
zL$3<kmMtF!Cg*%Lv+10!KVR^Oi8VMI0BL&6^~FA()->#O)Zqd+`$PPnC1=~VEfy#+
z4nPc9;qf!-l#b2kH|GGwHKOHx1S{RA+pl{uBc41lKiV?v%_gvvnSWG7M0KQSv9LRr
zB-q(&0#T?Z^t~}dT=tqB=n!J|o_(sFGLLfUH1qQkJ^iTjU>&fpvOq>;)V0ACz+Rj}
zMuqy-p_1A9vc{$B)^8V$(f7}1%ufSMA(`8JN-wcLZDwg{`F7=d0>FfWEA89g-`^}@
z*~lkh-KvIo<QKQ^NI8>%Hf#T`UGMDM0Y|MXy~ey6;w$FEgdZ61M6-976xY9wV5xG4
zmOV+L9sW~(-e>2LdgpckSc`f8e&C{&VMnufrw`mi3nnqR@(&X;Gpnj62S2V7h&(#{
zrr5cC8SAl&IiK01H|~)S&{E{xG@Qn9245fW?3wKmwp%;}Q*Bncz0ce#gvvu{v?vtg
z+}1Jlc?M2Rnn5O9)QOKb)t~M>V*lQ`-6Yt+H1Ai=-R+Zt#H=H1lwt1Iy)#=lSo!u!
z)(v^jyl<!|%#(ETuB1736AR1FJP8yoDs#4Xm+TdDAfcejPzft7>rXeAEVG^-2Z)aI
zTx8C52OBNOo?}k77)e}yze;-cyMI>q-Sr$>&xf&<<CTK`^~fn`I*%)|_DEg(c4zOI
zCy@aGTM7_&FE*O)lI*w<J(Np|{<4)D8VjlO3nT5Q+>Y%|EfyX5E-$!3RV}#ko*y2{
zXvpwjxHiR|E4F6@>{p+tJH;xOF=GBo`Mq6xZj-%B<h1^pW0K>*FharHvL5=`pY4_3
zGUV~N!v%xg3JeXLKbbIRi=?@H3mH>-nHCN5D8Fm+o~290R{px}KmC4nQGb{Ea5TL(
zQ{~;aZ{X3<;kt#{@l3aATRfV11@0Zjjz8*lAx~EynzfX;m5POYDr(|w(=KLKqXEqR
z{pw--*2uOsI2$h2<U9|&D!F$v8zQHUAe|iBsliW{?YWsUiwh2%vL2s1d$BlV2{SIf
zTiR}4DU_g<{FKXM=Ii6l(!7(gvJ47VCBtA5=u|*LqG_>%F<a}IMZJ2#Vn4R3hEspz
zN7M?l`7eq0H}C7m*7m)z$oml;-A&e`$222ksMedCWC|UcDgZzeYh~uo<mBYgR8(H4
z-x$3tfd=$U?BJWPcR8$Ek_`)V(TQEq*AF9GXuRgAD)9EBII=tfe-o5FsL4M<NDLKC
zHMK~jpprut8x`Agoty~bOv%GLB+P1d3h8FVogU4!Y*O01_YB`hnTm$U6SvWO=u-ij
zOPWcyj|N=uUffbQ1lA;45wA&qbm*Z2x7G^Rp$}3znEtoYK<j$V;=Ai75mW;}iJ3cd
zjyMl$^YZdqG{&9dP1vUo0J=lMGC<y!i_?+rxzNRZBKw+Dc<%gg-XvbnrguS2?cx#M
zJ3P{3ANK5!^>F`rGddDoFe&=lth)w*b_vJB<j@T2b#&oIK6<-j4{+Vvky{OYjR+w&
zZf?7r4q(*RwKA`%Kh*iqmb?W2p_!t8<Qp|0`^}rf)SvHGg8Rs;I2!O6QAto(U_;+J
zi+Qn{!>1CplGDS3v!Yfz58jQ|Ow`g%yX-YIcaO`J?~D0V{aAJpL+HmLAd6h|Xs6mb
zi<pxl^n3es`#Os}Lmpjx<m;PFJsuqhdZ!<`V)bFhop9~LvC%I7qxpN%0!#+-NZBmh
zN$c&<rcIkBhVw>%-84^ROKYMEPxQq`5Y!FqB5d)dTUbWMQ2phZbMo?c(FAZi&t_zZ
zlQ4GP&{SWS>tr?5nsy2qk@by%E+Se~R0DS)>Ya4uq_lJKM|3qe9e(emPPadmp}IEq
zua&d3OaLFlel_$Sx5we{E4S_4ySE=dssWSUvUS5N`_O0#kAJ@mf&_SUH{C+aomA8u
zhhF|&yLNrc<sUm@u;ZV?wtoi;%W<y*PW>7_T++ILOZCX66KIdk(SD%b1#jS#ia}CC
zchi)lqmHZA1Rx|~*B|vj_&nIJzY`L%&D#L((Ca)`m1Ss<3J&anc8hDfu?8|eY0R-)
z4Vo7WUVv6Zo0AftYv=*qBOZ^H^VkiwwcCUn(G!y-Ln_dxPoI>|oN3fC3x9$BV!x2k
zSs+*qq>Kt7m#0skCirkjTF#Dj|028WI*$E^>_VD-8ERLkBkek|>Ij8h$i!vvZojuc
zN*$o9&HTkQ{9&M(pt1ksUsG3owu{LZxJ_pna1WoVvuuoe-d!1N#h9CXdeHbTA?(oj
zQ33@nG=DOSNJeVcMJkxsx3$2~?*2F5_vDMv%vdxh>C6FGX1Y#Vq6;~R%W6h<n|R{(
z3OOg4k$UXjZ)Eo}_tngpmLR$R`t^RxOY?t!yvZ(iYump+U*1BRfnUG=I!EgBuU~)2
z|GV>l&i}q`+qO*V=*}<oW%FR1e$KyL_5b>YUzwD=`6fG?*^>kR(GD(eBAe{r5B)E%
z`TxHHy!a;HPuBw7Ov}LG!g<?F8@d*@l_nS}Cs3SLW8cfA+-F{y<m@_i_d}l}349Zd
zt6R`t7mSv2kX@#kX{kxrhg5J&k@>}f4rvR|?iLSB^6%eYK1LOp!#)XW84wCSJd)GP
zbtGIxNdL_%{eIRSz=&Yv1XO|O^dee@WLuiX=|ZMXhWWWPC%+8OpI_c7DJj)shj=G*
zNZRTv_TFpie1NQ>rxL3UP_uqVF$fib*oJt7rT7<TKf_oR0{uLzkl)tkGU5@Xz!V3t
zNlpUc19)W-VikKyyD~^f-O%t^jDJgz+I;d4s}GNN?JA*#gpg0tz`ND4Q<2b85VRz(
z&DDA`yL@@sLE<6*Cm=R(VdsI#Cs8T;zP!8r;`}s#((S2txFC-6gI`^dz`7l!u#|@=
z^~3FXHuL#BWlZjNY!O~uFM(M3r)E#Z@l9KQ4KpJ6*|Iq)J}fLOeZ%JC%P+*|1Hfx%
zTQuyQ9B$VG$l}X5cJ!zo*+zeRt#zuEp8kP))B+k!GroS2IpKPY3)nEg>BG5e^F!GK
z)smg--uTdmghMa#Ki2k8Exv}riaz0S*3jpi*E=7L&8oPd{`2$ksR7tlykK4=RQ0V}
zOHsB2`R4^FZqb~|a^D9cu-194xmW2Cetyqe4BgHempy8-hz-}Wrc#(&-?ZBjK+3*3
z&_>xF71=7apvSHOr8o+xNd=p01G^ErrIehWr<aYSK=UATDk1gN1I;#~|0CT1ZTGMw
z2u8=y&!6>?fEw)EqvRfBAgQ6-ppv!)<k{uC2!N>m{PCIwV0%U-$fcLD&s>!jnbSp?
zAP-Tf_a``U7~h&YYhiGmTK0P6@Oa7PrrvHR&V15nBgzIUMT#1|wi#;oOe)+SaeuVD
z=pHlWpS7<&HvW+Csfe=v_}FLs18Pe&E<VJT*rZ+Po<sP4lD>uXvKk3f9}=?Pw`@;p
zOJY)zASvrDMxF&+o(tE64D;XQpL*ntfA+MWF5~tLDC_b&Sh@&~MSXU~U*~(>d{M&;
zeiUT83K`^P=wGg?tQ_~fdt|&ytdjTc@qEM7=2RmQ3RoYZQKnLThk4ogjm!HZ6x(Eh
z`zZAW*W1~y<^gE0lvc>SKEh>cb#hzsKmhnipfw%}lmLHpw!IOaTp3ItU#qWwdnKHI
z;cZ$I77t>sqHFX+*XR$R?1~Q`>KfzK8TTh=W^T|uEL&2-c`U%+1`WijMsS^vnCNd(
zCaq<bU1tiOh)aQCcW*CAn_w!uM8(9K3aM`NjrLF}K;SjwX`p%DM=B*cR1}nk4}N>P
zCtaJ8^&}Z{1F7dy^$4Y8MpxLrefzG-6FPhY#<F1|@@n=I*JsTe<NRDFemn=Z;ujD|
z%r9P|_UB_P`zo~h8o~PZ_hbCIFBdK{-3(m10~5|g-vw>-?b|oUHjCJJgyGzeXx|A0
z$$nnm7j-f(RU-`hxrddDYh@P&DgEG8k<2u$9Zg+)nv+&to|InSf+r<J=|_1wqHx&`
zkAfBhU?i|>*YmLG{WV{&&iL;H=fc}zL}}v~(&pc7w3vaa1}Nm!>_ulje7FveO@rV?
zPQO0&jFj{(J_7-@=$Sw*2LuJZ1f5QyiC_En{^q2aiAf)-gukQcNB1rtNq$~lIq*pM
zU0z;}-1*`zD|ZSmM%vuXy(NgIZw!)z08~PK`|OZ7fBAA0ZZqKV<4A%NQH<3|PlC(@
zVy@1f8*r`x8z2B32_!C3io72@P)7iO8{}!fTD*Sj#xd7#_xD8^UZ>EFf-1&aS9;Wz
z`f`g<5YuXk)}J|9jxTovyIk2d8V4Q66&e1v$KxYtpTPv*6ZKAUob`ChEtvLaXR1ii
z!g*RFHirG9_s{G$oHDvKFg@(s+;Mewt~b3>SYWgeaDHFk_pm}X9r09kK;R^vK6J}X
zP^I|$uGCLMM97+_LxPL(zh5|BD=SOe8;}DW)i>g~n8)*}rm{~t;n-BGF_I~NR!49v
zQPct>BDkA!mqbDmN-!+Q-K!GDKIW*y;;{%i<M?l&q!{X3&V-2ae)}ly%zFLs<Sq^p
zcwN4-DL`F7u>?&Z3f$kWObgRxf<kW~0FWp(SpSlq-xm54Qyu9x+3}Z(@1~7yE<n5d
z%L~9{$ReiD_a9GV2<yL5Ly0lSb@bz*E{v9WaRrSvsLFbMp1Ru4_;Q=|yQ36P=^i?V
zj*(HvjV>RrAQ0-wI<Mu?R@b}qhWC0#Ruc@7-Qg+_lhZ<|w$ZLKf}^~+&P>!C9oh0=
zU%<5ZzI_TPHyMCoy`BeZqkUx(y2^a-ZK>R>dhEILP}}|^M|ALD)fbtJO!wKbNRwzn
zy3jPDR?b;}N|$4mo_M_Yrz(JM|HtTiFIB=VL&c%))vp!Fj}%CGb28JaMGKI%37MAk
zgC$&!=p6Vd`~2%l*^$o95dMo49o(1!sd%QQrgewGuq6`qx4$vopXTqc33Ru9=V3K)
zG`G8_7H7(27gz`EbM%SqDV+ObH~P3l@Y&3W*K=8DX`b1%n>2M?OdCW-5GkCAO3Cf#
z4|nMaA;t2wX*CJEZBK8DZ~B_?u@|j-ecZX|#sp0PJT=0Ky8dFCI8=usqE5PqxZ_bz
zBAE8e$P_kmnX|3`n5#k|SU?<|5T(B9f>APfKSKP{Vx~JiJF~(@MiT9m?rNV))DogJ
zkAK>_Wy_533#`Q7>F%g<AhShMTLx6^6{3e_Zz-k(c6!VwL$yYZ+)wGRf1&)`&7Vu!
zRlAw3d@>_rI5p{x+u{YS>7#xV*Da=;#M?OIWdHV|vqwV?0JZ5s=uQ3$DM_-6v$eT^
zK@x6LgK<@}16L1EOcyO07^b#(%C2A$Wx4qZWui?{ly=71+4=qacJMHMSHM2&n!7;A
ze8__WQ2PY!*35v^WYeolryPhv#dxMGgS@7egFVy9Zv3#U>mWiYvAd9WJ2Vy<=1kYg
z`EXg!!l5Zzm9H$*{NX`U02+B3_Vd}a*4^<f?8de^-COsRPk=CM&BaSv6-5zBVqmts
znx(PVml)f&zIt9>Rh2>YB@)1^g}*lLS!2UJC{6w9we1XAknTckR1+w4*2W=+Y;@mh
zrxY<=A*k3?DkwwDE~+7tRuuKv%$M6s==B*E4VO&}UAoyeqq)<2i3Re?vO}`-yRucp
z&>9e6N2RFKK(mC4i%ZZ!pq23tdwhR;IF6?%q*Zfa1aGg}ZWeaVd>-&2z18{X_2G=9
zB0)L_Ul1DSm4nMDJ@X?)+195He9ihe<Q$5<`^lCYUsX8U!%>;LH1lAq+qDGbt9nII
zp#BYS+FR3%eR#w`C`8T+CP1-~r-g`_snpp}(>&2Edj%;BNSQo5i1)wryFxag(IGS%
zd&*;8zTA=8Vx?n?O~+&>;wXLSB&m9P%Jb0x^R}rTK$|_fSRibPt+H#<3dzTZXB-ei
zA=$PwttIlrGKX^B;3rtS5D+m9i5Eo1oAvCr2UnWpb?#Ak^aQk;Kg4SEQX93-l(LK2
ze^=a7j_q8+Zd_FpeiYYiUKe?p9`wD{_q*=)K|2kInh%;b_x%%-Q{2N0Bc1k<JM_*M
zpIUfrvfHKgVy=OJX+ZtH*^NAJl$3I{MkE6I>voFi+nY<W=qxkFgu>qVM24E{cLlA`
zxhTeO$}5!iZ8qRIWPQLkn+_m1js!X<TbB({Y;4(hd^bJQ$_$<AnG+{YJh#Ee+VO<o
z%EbT={r&xo0auRP_!*gl3dQL51o?P*-Uv;&-<7$EKI2a*$5(eK4pdiGilLr~(yE{n
z4I34L=JC8`jsPv`4@D1#n0iVa7Z6*-uvxzM_J*P*E1wwr)SxKZqVM2iauhqW&lh6p
zLDSAcYH8OfJ2b&ZJC9su&UY?8C5pIOh+0Pjz;!5^YmRKX4XhuZphtt+%JI80Trh1|
zsV&2pP+vSa-MPqYxng26OCJL?e&SGbq)bs%_1NeglUegQ02PMK>HxJ@Vs2B`i}zAU
z6zv3k1SOv6hX7sGV4BQOh_vIXkfbenw#PPDkbLXGn7pv)MzHmG#Nt9()l-SeA}SEC
zY$;GrC?dJOvlq*ogamLnTxCzWp#GaW(HeXp2jwN?FH^L*dygKa<BJ>?X0Bl|N7%8w
zc|yRJ>NN|L6OY5fM1yKcO_6%GKyFGBokMVI=e5FXUGj^w{kSxgIcu^j5w<U0EWc5f
z>_wN)rVq)QaY$HR(Mr<3gcR!2G9Yn}mHW`CyX!_H_Q?6S{@KQ!#E?7tRJ<HZATxXA
z?NG(hcN_qdK&!u)g(;EB^77GXJ+K)zp8)aZvyXN?6sy99svhgEtOmR+eiSXZDIZ9F
ztjvn73w5N+h@0<{^u@O<d&19HD<s+)-D(*|2PyO#ms&~X21i=d4)OQYqy3vcD*lwW
zPabSZjqoFvxbf8^n!c*?JTrl3+S7zuv{}hB*x4vJquqJh+OM?0zFTQexkjpCdy;Nu
zg=eQ4m?t75b-46$j`xJxwM|_(jGgpVc4Wz0c4$$*Z|uAmtgav?w_98Ez`=tbcOG?4
z(#}Cq4F&JUP65{-QPMnL5pk__d(i4P`1g6cr@=ycrrUuB+ItpnY6jR{X$3E4r_(I_
zPOske`cPZ9YJyEi{wETjU`}?FyYiTjEhBE-S~phgh!#?Im$T*hJx?x<SfI!V%0^zf
za%HA-Jc_$*Y<&Ezy?wgh73Yx-8=Vp0+%v#-*ADO8D=8`Y{l=bA0Fk-QG63<#xC4p7
zO{+Q)%JjY8lLd9s-z$m&tz->}Sk6xkG1*6Q2ZSq6R}sRRCj?M4zE!I8UY=or>!(NF
zT#~k7epd`VW=$$xS8mv89?CLiV>ZdFsFN+JCiw1qclT^<IYf`gm2&l^t2ghR=@OJW
z-}%Hpy2pJF)BBlc;US>OEbW}DbWgZjwo|h9{B(D3S#1=xuP*V&!L2^O*=3}t$8zb(
zDXi}Ry38s+6cHA-(_ymdg5F*pv@|xvOtXRO82fp_7vW!|od=(I#(eo+?k|+B1KZ2u
zgZszjAF?B+A=)V<52FNxU?HBOEQLbZgpc4XJUm2}T6{t|b0%YFvNjiz$0G(!Ux3=%
z1G3P@Sb*fdkyItuMYCA(;p?|1uUkwz@h#1yvk$ms(cTk##<n~WJ|U1wOylbQr>nmB
z-aB$*$sbF57HgmDw5g_heED-Fv3OmsM93x_G%i)7AregVn2XGjMTqF#mn*5`D`7;^
z*k<79XYz^QADW8Hk8U(fm&$Bk#7rJCuX`)oONS1e^yjjbmH_4b4Y9t9@5I0U<?Gvm
zlp;t$XT_Iciy8~7$OV*7&rtIlK#rR6=U-f|)XOm6)%ShbAWTPVl9g3eFE~4A+2;1`
zWk3Q<|7?dSnVTK~I^k&6|KO*MOuE>K77OfkR%&Bo<K=F|Auk0S%+<PFP^%NcMGJB?
z!u!&vwspHjYJn)8gfztu-mUcz=<vremwUC5hnTQG@dHFgxR2c*x*acdeOQpv2K$g_
zh@D{vkqPGd6N4t7<r+YkUn?ZyJJnXQ$s1|jb8&_#ykawjLpAL1b3C~DN^R-ZimzAW
z>^ci+8rB^R$62-4W;4J<hV%3RzpS%xqb#ZQGp{N$=hbbAhw5;uz8osPjP^K4{>MB7
zer63Rg35s;mx-J}xJYoTL7wf%CX?U&RTH48&HXH9Ro-Go>F)0C`}ROY3m_w<aLy81
zg#m9{#K_Kd-TA9Bhruu%XFc}wCLmJ`E|rKx`}b2I6}J$d%!>6pK6Km9a*sJDfVrs%
z+xZ!Yd`DoM&DXyseic-2bAw;mCT7}GF0hQD@=qw`iGNGc%TD33K&QL0gyWHV>h0&B
zRhP^#_K?E)lQ%gFR=I@9R%!OrG?3MM`@Z|+gd<<q+UJNozlJOP6m<6NSuoTAF`Hyh
z?|(XpWCuCZIdlqe8n^?EjH_#J_;u^e7PJXa5$2!YT!RmWz;B%&m;OK^%1#;pdl|?B
zv?KDRu(%1dL1p)bd&Loa0&`b6jRb+7&m&CGD+UAv#DHo_wC}E9X3cCm2;8}v{S>g|
zn#n&$CP7T!ZM=)Zpii3s?wH-Y!a4QMojaGispSuZ4RU{QFV5T}z8X5~9HGFpw1OZI
zUYWo2$$KRK#?04yLjJ$eGHlzWC?%c#FO-A(XGXg!YHGC5;@iy6<EaEWjxEdf9Vup@
z5cbPHN}kCQm{WT;W}a#wC<Ac$^oYYtgfelB;IWi<u7oR)uuSMYmS#<B_+?xJ?Su}s
zA6)#~_m=2vc_?VRy@KZF%7O!AHD8f{eybk0`ra?DLv^t5^eWyXKPFv;f)%=?x<_vi
z*Mt%cEamX!0r18A_lln*xka+NT7#f?<~~LtWDPE)?bW5*c=9h0A|Np)@i?HdJviJ<
zyPDUY`^{T`FwssU9R}Rg3BRFE2H+Y+YF17ya=I6s8cjoRzacGm88TAi1Cc^LiYxf=
zlgz(ghzI@y%l?fb{`&bMZ^t6_HYznivCUw|H9$f=B1aM94vaY$QuD{Wq0R0CiE>Zl
z`e7Ans?xxNlPqaoP%lq^!L0=Gn3$UKOG;)p_Jg2YojVLFF^fJ!<CNn(Vt=}RQGQ2j
zJPZXqY;Kofz0kBP@?b117D5;iR2ZMlN84dp7x^bLa5Us|0jR<D6KWq>y$e77jyPgv
zw|X;3v!gK-k9Ka(hUW#@2W$l)EFvOOv1*rX(v)XrT76>H@a}pX8kz{$p-iihU0jHy
z>*at2nt(8th>Zyfjs|ND;aMRe&iOx<d9Y0+h^HN%yh}}KSHGU5oX3p|wQv|O-0#Pe
zXVaZVrkq*ij4Prt2It-WV2I38;rjdSVQqH%k=`(Ma~GG47U8Xwr_yd&gqmkE=B;|F
zLfUej67_|Hi&%l<V*HJE+~KDknyZ+RXSR*{)LCN7Jnt@KS|Hh_iT>GUR}%c?wHu9k
z&Utmxarg2FwG@%UjW^{MvrczOWjYV(LQ+&tmw5?+J_!y1a5EP5F^{K1v3ZC%^W?yZ
zyz3)Vo*Tto#=igcO>i~*!9)ch<|<U&Oz<(4A}`&EX=t&?Ksb2F86526n45bVi<6JC
z8||(_lIhGI+ftr3vbj7{bj!!wXF*d8O<)+dA&=OM`L=!a&cX7ZQN!B`sd@5`cE*E2
zYQI*-i9ib^Z6j&WjZm`{58nCKh%&a&4#NKg#Dd**FVAu;7Ez;%luluH4&{RDqR?s%
zcdet_49Z`gk>5g?wIu`7$+Av&E>liNcc81-qBQmpUPtFUZ75ITFs4#|u>cSQkqyh?
z7*JsK;XK-$ZVd*ON6v1-o-*U1D+{wuWc2fg2bU;ppzPcH#4o@<2CUxPB4=N%d)K#b
z6D>tdvKS2j#8GG=wPEDVA+`m=r4Zi2lMaqoDP5)N)3v;IX2f?%i~9HWq2L?&L2O|A
zOF>p%lRVxO;^(*Vyyx^tXQxr>Nbh_sb6q>XOsBJ)zpP1n$MLk7*w}$KtJFXcm}0fZ
zqCrjkK-NK$U}mX?h|19%vH9-qwBxZ^0OI4JtminC(Ox>_Y{gudrNt0atnTnYM3l|C
zMvtR#Gt*)~9C@)*XWXN=Q5!;9M_mh;AB_v|_^FBm$L!U&LQ{KWY!S?1Adistt3SR-
zRH`7PBv4!_Yoyj3ZgbyrZ=0ZYB%%aYBKYIOAQI%vA_G}l+t&EuN0<qC`#jaxoQ}2)
z(9cMTeL?kPLr*4`-?@LNFi5F+xZXPtdw}d2#4?)7B$EG8ICbF&Ae4y@`@!8wHwMGz
zN(_)yqtjJc(tJod_ydJ{*@|_KdB_WX{8g^FeC}muFb_POr&{MHd9`4qw8^W+^IeGc
zPwF}6bDA<Ri9`x(8}>Dr$J0bJrK!}ESxL|;BrgoYl;Vhz!!IGBiN_>7ap_&~Vg3YQ
zJz5MZ<*U!0{rwz)njH=rN{gYD6G^XY_@~5XuA-h29}|H$J+%=dvciPiUOZIz@&2Fk
z6>QzgH(+~y>-^o<uI5<cx%+-KM~3FFevYB|-@L!0(;3mlf2jW@`V_vPm0UND(+E{V
zh<wYojChFe{oK;MNa670QKXJYn#b+7h#m=BuhD~AavpF6M!~+to5GA#&!jf?IEFJZ
zXHoc@a#E=36k-cql6`b?ZE%zkf53#4)3^8cPdd1_RcBKZd}ZeNlBC?-?<b`1^y-;(
zb%NcD_?XXuD}{8|f3s-CC<JWgz%aB0!R${+Geve70pQBaz5NMwLbmk#_wSoVM6{OY
zng&lzitA2a_}Z};*voii5R(4p`hH5@&}o5T__E^R+Wp1#pbaM86>z$s^n5D9atcLO
zV`sAk7ICv&=7!GqR~^#-J`^Vis)P|;KljxIrcLHX>F2Ic83a8|L;U@_JQeSaJU{vM
zNBxTjJcPQ*a+sOps;>v7zNku5PKcSrZY$O;@+crYIT7M>VJ9Hmr3C=nj>A_krcr0*
zC0lvvAPY^7j#$HuL3m?;A%(Dvzd$nO61ff^ysOq<Pq#V6Kw$sOmf!q-Rwujm^PTPF
zdw-Q{FKPUhXes$)N^~2@WxP7I4nGpdAuw;qQR(w^5Lq!0dYpBVe_(2bcggg-9FxkR
zlIHEk6Cgq7{9~QRO?2<a_yElZPZY&(^=>P0%eF0;)S~QLJQPvUBCFM)czWz+4la)}
zXA}{1SB5&LNCW1HhLYN5+ncw6m~ib=T4?&Q$p3pl8B3ry`m*X!=c*j^DtFqovgyg-
z$_;1><GR6zj2|)~`H)f}HIVcgFeUfZrYHbB8V|{C_6Zw0gEgQO2|F|PTeLfmjg2kr
zd46x*_DxMW8pd8D&##1pgk;eJ{>Kvr{(Hp~e&7~N%b=@Rlo-HSvPe}C-;__!whO+(
z_^HO?skVaU_q5sZUJlAHcFjj8{mOmf^IjP6<(9Pt!nPVmnru=O9q+9b(eS8?JRwg*
zJ7e*@8x6<Uh@_BEwKdvD!X-?)R>S>u1~`N<0IPr68~1KW>(+}L^S?NSkoWITk3)<O
zL0e?}@F0dEdfu(%o@lYl^hIswp!6W?XMdi?CoE7mCA)3|tHwhZCWpb+gNtKuk2b)a
z3X+OBH{eyV0MS~WhE~%QLeO3jky>`+Gnfbn0Ye)PC8em4u!-79pe{WZ2KK3hnQ!2h
z85|iwsR_ZohGLlHxmpN1+Q?}hIIt8&aWy5)1&hpirZ&M?4qx6b@f1WCyz|(Nx~lM_
zEfakWWzLHq>%isiDaXW!*kC%bIKW;Op_AvF{A<BR;o$w-9ln&82nTtZ3kF#hOmI6r
zcGJ+X7O12b1mxFwb@9*bFqJ%a<#PS8>mSxFEA1azh%mM$VX;$_0Edh;@Vifn@3DqL
z1_{MKY?E5#a{0ay@4$5~nSYnvPIO*tgI|3xQn@(o4A9dVe8s_@?`c7PewT!c7VQ0L
zw97mp!1ODu?Zn$=@MPyIt3t%e7O!`q2$=#}!41BH(nEA+t%(0*CS=@)JcQ|l$9>2d
z%O*jqLY_X=F&$6ZI#3pgTGdt0r0G}8%s7lyrigA?jTbPeW0-lN5AUlV(15_~cLm5`
zyLdAg%ejG8q$N)mkS^Pg-FOuOa`)3~Gv7tKR|iX>oW91$K?77Z&rdK9E>DU@jXU8x
zc@aEZ(MW$w>WFMs@i}lK#QVz=LKrc;V7u|d@|v0{Zgm>2#4So|8jW|=<6WmfQ(3KH
zFd#sRp?{x@NL7h#*eT^0r#<`s;3u6!i_g)Fi+EZp5D<t0!pa?i$;@W<AIgTn-?2BH
zt6vl;=cOvQ+2*-rDRw<W;e%jzp$aXKPi6O*NNq)h=;nPY6GlggotVBQ0sdetC{zcb
z(L$C58KU`ZB5*w(jQXN{-7s+iE}kt^eRbsvgyJ)39R#N#!Ap;WN7OCdQgJqoK6D88
zx1N2R_&#*9c)%F+OM{ODUKgiTfqQ!}<N$@Q^y^h{J}3fS&9gKftyDPQ=47q)+GjY7
ztMG7_l}cTH|JO-+u+}Z`<seYHBg=H)S07?3CqzcRHS#U~`g7mfK|_!#d>S5rpC`IJ
z;nMVOa<klB**{5WhqgjI4tW|O9ZimshmlIMLQZu&_uoT?(94re3gmp>MY+>|*&eAn
zS)gP9F*AKGAyM>zXqsL;st-o{$(NDxqa*poI>D(vv3t2rS$O_YSR~NtKJGJgsE{Xk
zB!At+(*u`Irj5ZZsgDa?Lf?ttBRW9j=v}vPl6E~m5rVCMvr*Jkqr(m8IVT1tGL7He
zT7F{SFZo;7!Jw8fP1_1Ub(`fyAmE<DNmZP6RxWi3Z}L2dj*|YL2Gj1TXscTd3Cp@^
z%56tHZRb31juzM9tC8A^JUl#45Lw&k3NbAW^@T<J<zS*aNA9%!S0>sQ*u^{qk-O4b
zl@Bmp)@5jZjFp8*cU!<RzqbA)Dh5M%L%NAFVZos=oyCw&6~4b3O@L6P7j4}!SWR-U
zh0mgHorRyBu(@Q+1Xw!FXJ2FJW#flBIrcBMV`3s6Jv)-zOOV|pS&GBH{lF%K#&e@M
zxdkEt7#(&>52)YlAtoVwctSv?oTPS*-l!skE@^yW?IHn2CKjvUk9$ZTn(~ZHn}3T8
z3<*M<NNi|W9LU%SNt`*Df~Z2Wd*GwHzxub-gQeIvAI^YEb;Ljp&%S-3Xg3=m;xuI2
z8I7ZR3PpaR2MNUkR^JUs8l~2a-#F$~k%#?^sR=PC`(UDbpAc>mjB<T_eHEI|WqUbM
zA%E#N{!gD;LiHvcU{2r5(5hR@*RJu2as=3BSK*X)NI=7e!hkWnRjnO>#ZM4I4dOO!
zjfZz`fLC0?KPbo)W>Hi4A;(Y7v%ctvqK8X8O*_`cp(F?jOAHlC6nh^ET;)3U18<YG
z)Ba{3FFI%GeBb-xNt>>C!XOhu9|jm(2xWbc1W9I26WM&y!Z>cki>)&*4YP;U&Y|l5
z`tJ<o6a*vqrKQ`~aY{8}_~|pQ!app`8oAZ<ncMIY2wQ%SjW_g4b<d0L6%rEq&VYly
zSDprf%zKeB?pk09rK1OOn(ubRn+5tLii*l1P#}$|MxFYYFfqloc*$>Bd49+0j^nAv
zTMihjJZcR`x&d_Zx$o;MxqgTE0a9{2Pupb-FyZ^GQWhz=LbAMip0iEY)x&21^s6OW
z^o={<w!2w&&4u?yvGkO(Yw~B1V))jJ&qc&Rl3C|ODE<QWnzZ?%^uo@AdncH})rG>8
zyk)#M_S}a>x>nFIzx6YSsh7Y*C=gFkyb-P(<1i(xa33l5gM~Pz&g0UOFTQ(fp4fZX
zuVaaPf(}BT7<lkV7F4ZQvS{qY6hazMS^{aAAosxn!Lo2dA7q0rPzFjeNN>x)>xWtR
zS8=723HLh|uwv0-$lJp9;I-!lKj)~ExgXdrD8ozn?hsQn%kMAAXe-E{CSzaemncr;
zBW}vx%o{1x!zLo;fQqAASlHJ6@}vE+)GmMYF6x-d(V>j74a-@6t~>x8gxKBi;%?40
zH`n~~TK_VZz32PqLdahZdT;zcYCxUyaX8<9ya2y$7I*k-J;`7Gx0=RZP+8A)OdEU=
zT%y{~yU|zp!$kM<Yw?4?986%60U``fp5|Qvn-U0j3v4_xY>5UeAwe^-pLl^0FqzO+
zTnakk8rdrEuG_vF<PKulD>Fr$_}lHJ!snoA77Ocbq^s*H)vFdM%+Ai@U-28AxrvsY
z1!w9i1D;-Ks&D<p>x*6f7-5De8;?{>#C~+PO)r$UNt6BsG60~sci>lMocn^`@V=Wg
za)!a%5j9{PL$@Ib@}hsKf*Z#`7QR~e@)M*opO~0Bf>-F;I#~ZSpsh4wP*Hk*@HKIT
zrN4fS!JFjNBBm~Jo#Z+XC15s6*~ooV?*707lfr49&rUDOhnyAk?c}UgE%sAn8HU6l
z=MoXnJgUn@#BtaV$;i##se#SqE=C{cxY9)G7^-MPNy0F=@zsksV=`UFO)+mt$hiL)
z*P<0z4eZN#OQtFr=VoX2w5zi45{u={&gYmTP^94jq`ayChEaq|wGM?XFffqq8Ut76
zMf|WB)=faZnu7r*5iUYpVkK;nl9CtDa<m{_@xWn-8S(edG3!|t{AOrPrB9x;im3Vh
zmb<uJ#{JD!VSO^EZBAMs*NHe(So~H2OAmSprg&o66wnHq-^0SjNp`mf(Qq>y`_2;&
z2fTgj@)iJmcqyvVlNzTdxp7yZhyr-lb4qDoksFD(6#zj1c4myEz@baVM8q9`sF7wD
zEKoX(NxKt9rfrdlMN8u_z242K^kHeq&IdzF)TCzIZkn%gT=WkNd_k;&v<&xI`*xUP
zlqeLx;;)a3zp8=2CTjrBe*oAg`?Kt{0^3?o*_(g!2VN(eObRzo#FshzztLH>0L_W2
z5i%PCIU#ZJ^r48{k8=khrHPr)vtftN`ASbc!GL)&zbASLc--O;e6DaWe82h|Qzi#v
zPq|%>j_&qmV_^yKO)Z>LO2y<;V-H<LMWq=^S|o6yf`&{TqZUmF4+TyyDb&e5ZMY~F
zesRpcD}9IiQH&NfC&id(*y9bW3q)hQ4BV5Rtr)i6o^n#^oMlPP@w<Yf175%CuLa`H
z{tDX$YohfZxK=UJ9Ke@XNXi_+E58bPx=E$C4SY025Tqz79#HV*%50B?QcFA<pv+BC
zo=cij^|EU|yACA3JaK!)UZ|O2KnvjP4w}N7aLxyq6>7&7o)FOVTlFL{s7w%5P7S*;
zLLx-MDu|2>{`ywn>g}Re{(^1y0a4rW`FqjTP2G4!+zBurw7z-=Z9Jrm%dLuh1+(x5
z=9C{+cBcz+@bz3A+Rv{$V)ka_{=w3T;dVNKfdp&dzCz$>3I*yU;_8z}oJV&UubEbd
zvNa0>j172XcYjP4JzbEU8kUywo*V9(*%xXp{Qmgw@2;NvZOQFjd~(O-_yV$yyBtrG
z+jycx>s*4?&%0|_zbw-_cl<>1HcK{vHOqw}H|g?iTf&y}*YB(T*v2b<^S8fwcYRMU
z>Sa|ay`z8qy0fHzzESV@u+HJCk?hX!5KdFss+tT-6HJI&sXRNT^VMy_Om93hRhI4p
z4-L2HLRug6tPtvhsU_Vu4uwe%DrR06Xidxtd>gQzdf5qu7Z5NjC;~U%d>d^B_VBA7
z&}@5oc}v#q5dT2X)oFS8r?3u&>e=R$5JjIztm3vCjhfHNRi@=zunn<#<A8=)>*bc6
ze?`E6(=yc+L4;QgWs@>ljD@5b?va)4?47O}^&6Q#l{YQ$TuNqXg1}Pj*9CI4!=7^e
zrm2(TZSUc`44u>1x2ODlNy)56C8$0ho`zJTBKzKWrML5`o{UOGQ6lU2Pd@PcvjUoZ
zf}IO-qpc}g*Wo^1{bEB6_JtuDVoa5FKgxrdcu#o-XsY+)US3{3DS5;E)05yRX8~HQ
zlUsr>zGpW^qW*Py2Nh;EQ_US&fw6pK#_}oPm59Rvx$CN`GpUv-N>7|+Jey+=7AE_T
z2cLjyraaLHgTQ?kG8)+cH;-tU9h8akiVA*-LRtD#St{d`Ed=puJCE^D`}xAjW<54r
zhr*Nx6~9@!O*$Q!ueU=PV-pTVkG8|O#!CcF%cQFvW)alpfolu{g+ljXf&Q*qGl9qR
z@(VGT^9CCu6`5)wF*fbNkoaNm<3|p4=u#I7<XnURuRX8;1wtId<*_YaXFg<mUcZ%N
zbnq^f#d6=TW!Bj8vty=G`K(I6S`l*t)hW@>o%IITGfSQjScL+Qs%kDp@|o5(dRB1G
z@vVN52Q_sr&<tFPJdFU&#f4tkvmoa&-cHCB>$Z$?fPX;o5VL3dKiWZ9(~4B@2!12G
z@Rb!z2OQbT#}=XX?4Tfbgu0CPgg`<kZ3tT7DwN`6k>8O1vy%;tir%6NDOLPsl_K`$
zYP3>kFI{?0QB{>BrxuKwl(yWwK!XU9Nw)KTKE4A`iA}*N^;8I?qWJ~7Rkz$u=lnVM
zT83({uUF)@RZ31NTunhz<B2oJ5YGolV}m!neD$ghwviBGkW&-|C44o0l<}!~p>Lqp
zS<LqHVJq%QgjnL~P7b^Lw7(0P*em}&tJfa?n9B&6V^Y`>6&VL6&J-p8mzm`lmw!Zr
z9mYzoba*aOiK*p=bjm?ya`f@#`GxLTOLOert9mc(aNZmtF6ln;%*Zpi-Q$7L5<AUD
zp2RDhJPq0Imq!2wk`N$cty!nTGGiV^TL&552M3p_9o>lY8NS5!Z}|z=L91fI&vgw6
zzvY*BD*dPq*(+y^lNfS7yD-Osivng`u72z!GTh}t@MD`fIIMU=xIJc`SEb<~5Sysz
zXz&xFW;J1H&qU^2p7Xp$N;}V}2|HqpP2qP1RrQjzC#>ZI)Zl6VcPLtVf8I8joEux-
z1ABv3GS*z6skUqM3857@f66N;1Z&I7Va(bD-brJg5aNGSlDKdv`B-6!s%P{4gR(+I
zkqn$4XGXc8Y*j9NvV%_`bLRukkSQdoSR|>lqlJ1|*87{X@oX?Oo>NuGBwOV2uPyT0
z<Ke7@Y$4WKbiQz5tP+uhqYf&=44+k$PG09+&i`d{>NVRB>K>2t;Y&Lbc4930`xA84
z!K<ddnM8RYHH&m%YmDx7?HQS}dfuA)iuJgS=BQ@D5|*3MNEwneGT%8Pp>pQT!zLNm
z3G=}D?Z*7!v9DgK0sg&U9^+EIKU+B0FF<A~F`Yq91*q65aOjX05xY@$;2XD<=H9yX
z<-Q2_^S>16!2WFD4~!QP2m&;k`OFB6AWuAgoCE!6*ki>c^X5Dj-4%gS)VU0y$+@Vw
zW>7tb0Jtw+-t+RBb&nnS#^pAcwy84i!}4wVk??>j(U6OJrw26Nw@g~JNX_CSjO66x
zG_|`x8Ex5kZjM<3S(#ST{_r5mwrfX(P4%O~LTgFXRev6*zIr)O)*=$^-S&OR6N0bp
zUdeDf+ol!@n|U^?YNEs`(hk{v{-Ie^@tYgBmS&+x*3tsI)05`|yD%)vjxjt%GWQA!
zD|xGsu6DyCE@@&h#I))O(7>rzAAX}IBxG@MdtEO2TZSc*Z3)^ki4PbY;fb$5kRW>L
z(j~2<va&@L4A^M-DQ%dC%o$%8_4N!mGA*!syRjq2I|7b$;tqMk*BW0oHfGzrIU3)K
z8{E&&ujJ?F=l$?uV<&S;l5*bF)%89ToOcjU!B~aBi;iL#(ab2sSgUlb$Z0@}Qh!#m
zUE`}8PKycP!6a5)mTLjVr1>de4UKZf113vK^~lWNbzMlfyo@ai%V{D54Jl4zuOk>q
z^>e`520i1LV*UE{D=h{CA_Fd-SrVRebFbU2=~-uK;uqiEw4dL*Z(s1N`~S3t69X-(
zz)C<b*^W(`7y96lX#`XV3=ZyXI^4T<N+u~GpJBb+s`Ib@lF+UQ^v`glQGh5l;RnjH
z{uH(E*^QI7+2lMV<h^=mNEb|v9{J|eQ~#$$Rm4aoPaj+*9zN;|XEtZk4Z1z#%rqdX
z_k+dN>{p*y&TzlCfs@9A2t-rF2c(TD%?h0G0PB{Msj}aA?NtjnVWB<6BS~N+rQTI$
z&z@6c#tmrK5j!mShd-u1`eMbtS2Vo2W=xT#KF^3Yw8O;O85+!#(e}OjJzn~yk_GL{
z0EIfkkO~|%p|)kJAQ7lrP)))wX}|C0r+yf!&FWD#^33A!oLez4eyMk=AE3jGp&@5&
zorKZVXdn~Jp=#n#3AOX*X;D#8ji8Z;dpL2_`&S%xcx2tmL>zt_7*)j%#jIf}nY1D1
zY^N$Q<I;zsy}dIZ@)){&Qv%48dV!0nyci^_xSOotG`-o1v15-&XVEe`o`V2P@{5cS
zPsWbenP6XXW<~`=%JIj=Oi*Z*YieI662^<i0tW{**D~`b-)~kmFY#t0)3_d!iAEF}
zN$r$+uvN-b7cv0GOM%BQ<?83CzHRzf|4g2Ajpj?5Bg63F<fxUA76JsWw}F7>(OlrI
zQ0Yif&1<HNie(Lc`~O&zCJgJuVaN327@ii?V$z5~u06hXtDu^ak~i0lFH5R%q)Fnz
z+Xbv^11=76jQUS3f8cmymcOX<!|b~vG0CCBOhD^87+w?#ChC=SGZO}<i%0#g&u6L)
zUT9qzne}ZQL0pZX>nQc_ijU0w^rw0-s2LOUn~Yt53DP`8sh6}IZ+5`bn_6T4myb`A
zQ1<8Dl(~iorp61an!wl}W}|EdYg0vwW=cf9JLhGB-9+S}6VYxl;E-{@5kCtX?LG>W
z-*Y*}T%Zc)E~`!WE9do3%73g~tA74`MYtLK!yZK{a%Rg?Fg{S9W0k(*cJ_c+>%e;s
zrnMDwV$v*cfB!sOJwf#BAF*k@YnyXlIs97=yb~*!V!L;rgdzE3a&|`ofCU*vgFW9B
z1bjt-jJZpfR&VVCNd(P%)iQpa&X@gVO#=&al^u(x?jI~LX&F`h=*bdz-C4Lyp<}4!
zWSY?>?wf7iVwfZRNlrkSK$l9N+y0cZX3;`l(*PVCGHT=B+;S~{2}mUtb6_r;%<g3(
z&q!l-g7jV$3)^i>Y~OrcAtx`-k02w2mycw}k4biHX5!nzq)rM3Rr{g%HzD8y!@`n~
z=z?dT(#RMMszP86*E5%%?Udf;b01Yt4kfg3$YqjAE4Y2m1Bxo0ku24g3>+&%kCm#x
z<#IYLEsghCEy&@TQev*}OjTzqOsc(@ve|AXFL}1DC1U6$WDZ>TTd<DRbLH1Y3$au7
zPcv2+8?@#W%;knLbYy8s92^)K&sTEV8Vm&$MUYQg+5l~t(6zglO#b^S-kHE<gNe00
z4@@T1WpMS~a-x*0QW0#xVq^|gs863ocPlbgC-(}sU+F&xQ<)O-NNavq{w^*)3rBUx
z_?fW79~Fr{W|Y%KoEwUwSg48kN4&~G>_lnoEG$6zBPt;AJsUqHKo2uiJy^;ESR=?y
zWD3$U3@fSIMF?mj;Jjy7c(n5%T-5P|%go8d?k!dn1tlPcF5w`p3P(w(4KDy^i_y+F
zI%eQ70o60ef(J{VU}|j~lA+!tF`{R=!uw;pryP86RO1u2vjV!Rgjt2%KPR)s7yfGu
zFxfWkj{iLL{1`y8aM}i7E(;WYa@rGQ7cx29oDntsV`M&lja^HuEM4uRD4&&qo0u;;
zD%u$>Ev@^#|3RAS;?C$Es=-So^&y31H7mGKhh~li?^B~ErdEE6m>h>ocE>L#dk={B
z7cW&YXh<3wa;_ANv@NbO0s@to2P&D9{DPEk=wtQJbKpa8Eme-XfF8^q1tvbdE26Pc
z14wZC2^RPXW|AGI26e1-A&C+c-G_0pOapfer<fFOz)l!xxmECAx&_N8zZ~19Ab3qw
zQU$*V2?~m%w8_(mx|Z_@(&7`KfPlk)36G3mfKU|fGm}T-kZUirbq+aS(5{?y3fN}L
z?l4?gigA5@cXC`+>StzQ<G{eSCphlwDG*)Yyc9N5MjIM4HsR=THZK8OY}ow=4+I<*
zFk?k@1UJpsMN3i-b|kAByLaAQN)UeXYy-lZv>?z&Uw<wXGp&mIsr;HVqBs4&Lv;Xg
zjmt6^KLEvx-uE7!Hsat_y~!I4S*Df=eH)NUP+4O4$FxseA-@z8>!JLDp6Mw3hYE$V
z-@*NnuX|_ea)+YJ>*iS+RrGIz=-Tn}hnZPN$HmwWV6p?i_Fx;6gB4|3K4MOS9AXHR
z)o`0tCJx`tCn|a#*nwE?2$4iI<X`7hs6Nvl&K!g__&J*Lb8t~;BHwJ`;1Gb|k9=SS
zeT+<h2l)A&yCg)+Moq|{=J64B+qQ9Wr6AK;Ag*_S)qsLS9BogY#9`=CA6i`<bk@ot
zJB0#Gw(Z;FVSTX#q|b#c&W1NapCNuya<~@f_0PK~-j5zl^_fM|NTmfNRP{YJ_7^aZ
zO>z-VnleX-oydEqd#xi$b^n|Hnvru&yC5!`PugIH5sUEBu85(9vK{wRdZnvDYr(%s
zh4A#w!=K}E+Q=zft$$h9{%f(b<me%Ehz*2-!id0m0_Pq*Y9{kcn1SlU5sffM7PWM3
zjZcZ#X7`&h0ys9RD+04lWDK4RXAZyV+CT=~0K0+A@W~B03gnkttIU`C!bnF!<<5w%
zJ)P55?>c?~{4J&rxi3sZKxnEL@fcl8&J0A=c|E*WU$bbTTLiOZ_GIP~n|zg;*DBo4
zp*TDcGAijM8L{RixqLi|XRunmfB<+ecW1zJDO<^#;jN`s!k&*j`HM%-Rlk#Ak=VGX
ziQ|6Oi{scAO0VtBZ$8kctT5xSL)ul`$Z%)Pmb|Z;a%MYM((%c>@$ai6)TkOQLn~gb
zrQfLT0i-cGER%2qmHFjvoD~wef()mEO%?XxmNkS&A<n)CM?5GZ-8Y9nK34#j@PBLX
zy@RSuzb?_EwxNxUiUCj*K|uu@l_1f80Wgq3qKb%sfaD+o-L{I76hsh3L`9J(AUWC!
z2q-9$qY{-MNphOCkJ#Vuo0_VbxpnK#{e3m3`VSfp?|IMjKF<zouf4X>Yd03s_e5Qp
zM;0dsfwZ?-dhY=ep!x9OLs{bjNbYu2#8jX|VS_AbZMkg;&$#!Zj*)qSJto6Ra`M^2
zyn{s)qO<r@%l`Q=gn)>${lq23#55z+W7L2N{HdX81QwwRHbYb%L5@!j-&y+ibz_mI
z=R{m%Ds%s+_5`l5q3DxM0CW^OmM|ElW_YHM^@>5?Obl?b&A1qTgB~+?UHi|o4Njj{
ziP*M{N->Czze7^va_TM3cSbdfKJh17Jh0V=4|dyOe~A<t9D8$ClEec&AMDQxxOY+p
z1VWoBrw<@X(=OGZY`W_|fqjPgjdTQKj^Lda-fM+KB?>tx6(pBf%=;+~uzdZeMSqf_
zBwWHX>r7;|K%|aarW9mZ&Y?7gUanl)mqfCQ?n_2M(KOGo7F=X%euXzIgC(Skf&{kP
z=R1Tpj!^26*YvAu%8x%~aQwBye%3jNZb6jBl^ZqF1EY}6SiW+l`l<V{aOiE?Gm4fL
z9$6^JxJ#jTY<qEY3k71#*M3oau+-?64G~0g^q+6X!?$tc0kBQW5o+?tQtvBhZKA%@
znhLuw&$FM^iCi(UnnJLGplw^X9>&(C!q-OGKq&Z4_FR=de_P<k)m<$uu3cfcdwNoi
z!JXgK%e!@J<liHng4B5U9ry{*`?PK;(*04B7WgoIPY>o9_RP_+w@+5@M>0yy(rm)#
z0v=oW+pNOAKKb+7O1PD+fK`oG203WmdH($O3_u^{@2Yeizw$^9lq%17hMhq#S1XpD
zIhB6ux<(10*DJO-;|x<&i#j;BELnXt8olwX`0-|j1}+;3U_xyShCz40)6I>-Uxe!G
zWWfmdbN+$_rcwWTVGZoq$U$n!v6%`B<0XM1lEeuznBF8|Gib>m#urx&BEo=?M`b01
zSO+S=M8Bi+A8+E?tF!wEMM4ljJmkZ*VZ+6>Pr+fQ<^f&QSkmNxkJIbZ`IEV;mbG*J
z_&)}tzG<PZ3fO)|fvDIcBxulQU9n=bw6q@lTseAd&g`>czBSv7WNAtF1smu}>T)g0
z7lF;33@c>J{L^)%U%}hArTM;_OxIYUX8X&JLZgZ@>6f5MZlBH-Q%HZwXS=hx<Gq0r
z4srJ#+xfJLKCRht#)E1~2*pdT6fi$(_qv=-de0K|4_r=N*s%K1wk!4Q?VDX)xo}=l
z(oov(e<TxD=Fh=YSe8VOree?5AAfe^^3^R88^uahhrP6pg{)YI_rv;a!FNH=N$-y@
z>{|VfwS8Keo59FjPZ~$e*HtoM(?2${rOzO`QHMS7$nxpGWQeYuVeTq~GI=UVv@l<l
z*W`Cj|LD5UVvhN5JR3I_fI*`S@<!T`vgv<1FE+EDArEFcSy5T6h!Rpky(Yxlmia#=
zNPLoI_GJ&Ceax6s^!z&O%hP`v20Jh-63<=j0&L6r$X|Z^e)o}m+3Y7^kJK)JH}c>8
znuKY~@aS#6%%9#u3QgyI6BrSwWx!EylD+QM<6_a)+BzypC2G7}1OIRpnMbvW8V!M!
zn{=kPis;oBzx{XvgX6mEPgRtE=N~t7mCk-Jx+C`sA`TQqoxN>FzZ<b{{;?mPt0P4~
z0JOY)`#D9RC?M8i1OD>sjBT5V;FN(pJJBlzO_5r8KNhIxAV??#&nx(!bpP_@EV4RT
zuyq&N@Xeb!Q&)wUy9BqXXlQ&H(ttlyu(cJQa{uuN!~H<0l=I<g>W~#^(=B`Psg$p!
zwUv6ueo0UGg+3Bo6Yz@vz8y<V5hPZCDo~=wkNtAusaH&9SWmzg1^>_SYm{}>TK(Dg
z>dg7`P0G}o>1WPJ;P~ks7^2Jn&3;so30n}><sk@RX0rUSnG_0w{=*B$3@|Q4VA_K2
z7CMm4emZxRsXAw?(N8Ww<?}s6u>kkxJJ^A@#i?7%EOX=x^^`y!$)_;q*Pq7Pd2cqm
z40$VH`q1>&4IM#H8;+8%G1$szV2CAoOyG7&_o}8<dv-6a__S!gz6WVS%$POj7W=nc
z5U}AjA?mQj$`KWEoTJC^x=?HQB~E+#{4Cy+&Hf8&xVNYevcm$LHFTrW2KkB<2|H2D
zq3<!#N1&t(Fyae-NdYga%a4&uXkBc3clYT*&Wk&L>HaxYz=jL}WC2T&BN<BGhhrh-
z9N@n{!py`{o|S+9{Wrq%2#Q!;fPg?GFPf?|(5xD@CSm727p51H5xxlqYOF(V$~XZs
zH_jBkAp_9${A`)>9VsU@AeUR2XAImn6`KD1^Bd_eP#}pML=kC%ts{R^@K&pz-!@?x
zEG53&JL65<+`~d@uu+8^)AnO`mkjP4!IfGXAoG}5xSTRC#PlXxr<bbeApRYM=%ngr
z&z?DZCg|raj;I5XGAnobvp+fgl0HNDL^dM=oFKa`$fcfIpipIl|MB1T)45k)a}~)3
zOX8Hy(US;5D3SwPE1iub$|<!-KsS-B57bx?ot%q7!I@sJ@iKp<x&{hhlVJlXB7WqN
zB}yM!X(Es?egQvB9h4_Ocv<v-rZB~Hc(-hk2V7Z#O2_~hZC}9I*&^85nBxv1h9HG>
zriwl;T{drq`EO_s-bcy)oQ11S)SWejlc1&p^(N3o-vx=QBQ;+vbBB2+3<k#)`JKPy
zqxi;7LaC6uxd)$~(cXa=@yy#*Yowesvc~GVXR559e*e?Y3+vaB!~sDuuq{V{zLbDB
zdJE!QfQy+z@;FUE5ddL_!xL>06jT(cJ%0&>jf};Yr>#aQ)^`0T+cZCP-QcC*uf&6L
z%LimY>%H@uhBOGc<j!A(pXg&<-$REk0Hi%KnHC6qw;+=)HDI_Nn`f{142(T>63$0N
zfXYjv7t?gjiw4}?Ce)r*hkGl9;Dv(!42JH8Py0hj4-HtXhKO5#9w{Dzu}rKDVHKv6
zn&$@$KvpSZ%QDs#ENdH$o%|;zX0!y08f9=Y&a;uVg@6G7-C%xww6M!<%lPgCb#&9!
z%q{+#rfHr;q}zg12t$fXo@73JWRf-CW;Nr}j+wewN1&)3)ls2qS7)<6dfFlG=4I&-
zI}Cgs(k9!kvHMN0PD0R@(w{*B!)agkPa&_x`~Ty|93e!N8#cTu@5RoJYMTDb^8z?8
zCg4TdDE|x?o-bo&FwDnywGj^w?2TK6EqYJTv1NNVeEJVRS!1)`My?E-B<F*revGn0
zR<65;N3+k*<I9a8*|h^mL75b^Q2xd1|AsKwUqB~v5Gl=GjbDH46xYBjI2zz_Mhzly
z{O^7(kk+|90xZM!_pH;W?LqG6jV3eH;1AKVf6Qk&%jc=aqId5GE-d_UIfl?I>};yE
zC&p?E98H~G!Sjoa)=$6T-_HB|kG&=Nq}>B{*p^U^(m-I?9gC_5mn`^CJr|h9D@?#c
zka~vD@BUl6(m4yL8n*|UME{DN=DK+uwm1|>6|suN<$_R;KhuFhIN<)tk&rt|K6HkZ
zL7Jv2g}_Sb@!78JUI>*bH6(-c_uqT7@-*Ymcv7i_D!@O2<p++U&g044e0_h98ov+K
zcZ=vfmg{3cfQ^S>h`?-y!t7tt!&DGEmc>4joXZP#PzlI0%a<+FFJykaLQttuwT6F#
zm0?(6kNklG%WLOXGB_?ZXih&o*L_sHWxoFJkN>lEP}4`Hib|qC)}HzH-9qqpGU#I=
zSwbPWUb6HAQwtqK98>Su!4H<#VL?Gb5`~hH`3poXY7M>m!1%|fG0Ida7~%)f<q5#^
z$EE#5>!MBzStUThl#row)IT7vsrT&Hl2A=F<`cdJ)%1e`E2|`aTtuPf=F&MYq4uVB
zCV7i2MFS+*CR>71OP<o_ZzJe;l7!c<A7q<0JEBYA!GokOY65t8Fpv!Nj#L;)oD7(f
ztk1Xf{-eY&Lyxl$H_+`PXw6i^*Fm608k68e6|(6=cN#h2!f));*Hq|&J*tEl9-4x=
zWs$sqxaPmssb`O5PxdTox+JAP;M#Q<+EFe+oi3y_1TG)`Lw2ZyEJzg_Im*JlXmr{N
zD_o$=9G8q5M40pN&6`6VXf-GYs>~w`eN#W~cL9R?SXe^0d2*~>YxeHKWb*W)8gDX-
zTX6y>FR^-!m^H7E<gQ&QubTjg`iZOcPUhq-dI1;Ojz+kIBALNFxGHX0_`%*E=e(=}
z>P0bV5(EoSq%?H+U6(CWaT;E3pU!*+Bb4l}qho4W=BGaw$Q|+a@)GDx#<g3#RGsRP
zJy$E}lmY+VkGLe>2F*Bj)naRLU#{&fU_h56_M>c>qCuqcf2G3C$^ioU9cn2P-U)&S
z5dQK!Vb_<FlybQr*ScuQlBAT9K4KDrDWZU9(4Y^U<AbEIiuE<zXF%ULJmR5VmriMd
zdwW6#*Xy!jfeTYh#9o}^$=dr1Lq!W7rW{mglKJ!@*)r^(+X2o9fR}m~20o2+Shj4L
zY4i&xf-TVtV_v9%2KEmSQY%O=`kn4O@Tsnnme9A4TS^UvxAsRY!j%nx3NRjM*PiCj
z25U(yBI9(vkJ3lTYU?)kqNT53O$SQx3Dx-Si6LTihj<-DD1RbrqRTvL5FY~>1(l9o
z3Iq_>$unUd*^+%rBvo1mY?eSyy>V+bghh8L@JuJG=jXx0cAzf6tk8p7rHBBi6xcY;
z%u(02xD0aHGawNrfI3i&S3z1q%tjFXboE>&5~weX7Lk%?JSra9>yU}q<}y;Kkjek!
z_84WZ>MQqlfl?1ahncGGXcXmm9=k6Gj09A6lo10q)4oOq7ysny)vG2TgIvFM?E@J8
zkD$WI3zcpvV%gDf5CyX&@lOfUHy&1>KHokGMjid#yUUdHNt%_o3h4WZWRGT*obq-V
z-$%E_{WY=1>?0y7Ju2N9cr621PEEcPHXf*&zRB=iF*9|CqtV1j4LZ<*vPQQV><JZw
zc!e4^cuPD)Zqk8@#zzVc!N`S}NI2{fLD;8Go!YA)`Qu8i?QbGnMYe6*reIUbhT;j<
zBj)^lSRpn0YtufSaU(hZClVsM;(sH>RFPRX=iR$^Ww;uZ5YZXLw`tQ;xe4S%Y;Km*
z-{ir8IH6CH$cyen(ut@NQUjZQLNu=7@%*3Oy?H}bcQ5qsRNR>UBiH$rmWy=J8jd7K
z<Fgt5nJ{pKmAn!XwSnEp@-W8WDXAk#qW78E%8wp=FN~#Qz8;i6=lO&Np(xVCmQ@0U
z`31BuNOb@Z`>n!(kMdBFQK0HA$-7euQG)bm0LQld?*-dlJX$_|oiL$uzuFTUOsk8`
z#OBT6B~r*d>CHT{z}VaV!B2a9ObvThe8o{s>0hlcCy@zy0C!N@>wUd9R!v__VVBm-
zdaTj$E*SgU0V`IlIFnGk#2z@3af1KW<EIYt{d}WI<<g!5GBO%njekU2e@ji<k2;F-
zDa~H?=ZGGQ{`0pq#Zav>0bX8SL4FWbjX9ya^ZErk86$$A7WJPm35H;q+8FE-&yxX&
zJsF#WeewDQ+N~pWB$#vj=<`*IZo4K8dzL{tPwx~uU?(C6vDr=qJ-Z9(0+a#X1eRyH
zxQNS5I|EnESA(v0U?}iBA@({L=swop&YZ(Cs~|11K`vnedQrI(9^Jn#E7#`WP)qRE
zlu<L`k%b-N6GU<EFk06kSc@{{ZS?s;Xi@3ZeUdaGP0BT))2p*P>ZE)&(kJ=Li8<tQ
zF}11!v@p_7MI9LgGWo2@ff!O{A+cE7ThlknNVv`qs#__J5Co$?pz)Ek7~I_Ep?opB
zqh<PC4|0Fi%+|VB)3rFKa5`Mt?RiQ*TO3-pV6h+aA>jPMz_i<Pt$uskm1u7?q^SAg
zp^jsE(>EFRPCH~eg#}c5_r~1x{f6DC+UvJX|0RQi=kYURR6)x!fh_$KyfZ|Py_u=2
z?}08Eoem46sQXmmhnO!>p9+!V9T*s9bNn(_4kvVJRN+Bd21Rmt(esZKn`abc^3ocm
z-?&M1hE$0_yvfR=4mEB*RBF3pnb(<j8_(t}$ml%Io}DV722hC)8*)Xv5~DJ^!xa}!
z2%TBqh|IFhh6Or|AEw5Or|j#NycC4&4N9(W%LQpD(2uB>@k>eM@%ZoPo(05K^ExkY
zS<g(Nzba<L=#WYbtbRLWXcWMjPRZ948ia~KI~d9t2rnkqcEBpTuRy;)no_G2Rx@wz
zrQ-LXWTPpm@P^*@-_)DZmOV2P>+yD}?pwpTd*G8zwpRHu7NpNnYxbd*f7$=+jmOWQ
zKbLFUGr$6#79<2Kx0i$d#w8m`!zUT88*+A<JRBaB4H0-{IQwb*KAoA2yAEr5ZrePG
z0?l}4eNWH%sfg*v%up$~Ex+^hnKRXbKQp521&P0;gN|>zaN5K(dS==Q|NQx1f#$fD
zrHk4Mq3{Zvnnudi*4AzwN`q?MEXBplFNV_8p~N}q6b$VIAV`46e>Q_%OBd0g3}kFA
zR>?o}(H<{;!=7(YbcB0I9!Lf_#fIZel71w<vvuoRFC^VRUd#36v&T@d*X%;?`B?;R
z@Qp9@f2v{c-gPcT<`t9{qX2zm9r@=2_ME_9!AWa%AtS96<et9RgQfW5V1>n213t1{
zIGu1Z!v5l)(T##<<RE5qbgjZH1?EfPSJ*XNw$2zZYPHw;pSR=(8=TP^XkrbGWmzAp
z2Vtk?d7b?E@2vQDzsF!Zf5pBihXU$%Fy9U%+)FU|=e}2Sb*^egLzOB<ZJ_gnM-~)X
z6}V<q5QA;L)gDLXK$Xo9y_UAOem<9kKXI3+NJqjCD;3ko1O%K3O+3?g%V>+mT2KFv
z>!-Muh4rXgRsH9OuBfQ^uMhoS68wLuF8s@naV>1=ZH52udcp)EZCMZZoLsF>(gN5S
zms5W}pfV5sich3L0SXN3H&Eo!w5KYDfoGt(M2(<_^dTZLV;u5wD-2mwLgzIUgu8fi
zJ|MA0mpAp<<mBabK)_vrL~om#{D4fLoo8z)&-8H!I{?oIj4gr+>^`Lr_b;HZ5^$b6
zK)@EuiSJ9v#KU*(Jo)!8QF>XrK0Cp2B^6mBrFHR!R`0qn7)ePGJopy?YFq6xk@^x9
zmGG_?cHQ+#A7MI4^5QF)$`Eb-^>qI9W8wJww(AfH)t23dsuAdTo4Y<jngLP+xRorI
zDYgr9x&dW{p#Q=cxf06NIw}1$qC+$J{K;!=B&h)S)X$#AQaGXxH%n>D^py=`yB5}S
zAu`~%lhQwYEsv(}p`d8byLM>>ch0tm9>@u%zjXk=IgC259VH+V3C1mv1CbRdBiO_g
zi<2g!%Eu&C^=Da3UscsmK0D34K`H_|26an60<eu79GPJb+Dg=*5088&R^vGO3Cl9U
zhAX_+h8X}asu4X@kXRAGaE;=e*RRiFt!PxtKrMJ(vlM;?tD9nZKB4sZygFx=&evKS
zJ9iAgdh+^3qsR#yl%O@CD&h!_<EoK&8Wd4SeF8D${l&}S5u*mt(s_(MeEMK~I{oud
zgM!ZU1QjmLE|fR@0&aseo?vBZNw>*2xwcsPQpy|Dm!fPzCMjGKf!;J`bxK%ey2h2A
z&-C7qV@UuM%PkB2OEoZwqKp7fmO`fx)LEWwDa}hwG!;3Yo&HVRm-?nhVR(3Ckv{Vj
zofYu8d)FkP&de@FpH;eP1btD$YR6+qYyz-3YTCUQBGI;f$Oko?W&o7w@fZRyfgmh~
zWh!I^>IXO%#=||I0gKEFMB#q|T5IKCTkq4k&QEe3Na~~kUgG72=K>y}dWTpXqJ(WM
zJ%gxq(syPK&}hfF4DduBAy|^c*p+f8Jd&hGw~X7=vqt?`dtgUZ5J2z?71L}ttb(i$
zdNh`^vZ}Uf<P^^_Lt8o{oL>uK0zm9d*YtyN3T*U&B~>9nnq3JP2xWJUnYyK$fjuAb
zOnqF2XZIbpZnLnkaA_#>2G3|^Yn?{)L|uXd!!)T4p)RKVA$gFZnLMPfhJ{vb+**o`
zg=$5)gdKneDZ%mCiCPw=*r}A9zO{njjOGlYwL1^S2m9?RM~W0Rh&F-_hN^ZoVm@M$
zR$9*KM!>rh#Dn?U_Rm=N{6LcFleBG1>Rpyrnbvu4vhG$-+Z@ai79z&26Xx=^lcjz8
zcu92k-j@6P3juy%o`okIMoqMiIBDbiyg)YybGIW>dkB_{fq?<V|F4haaDN3|j@RPr
zmB41O2`Xq*DoV_Ike;YgsSRvRII!dW)MDibc^Pt<aBf6I4>eOW^!Px!9Fl8yo>h2X
zzfVIWz|?SIFsIq9d6}u-<_URS!@WqE{H8h?dd{_aUBQ~@jVmjF%{f~H+1;bPo^6*{
zdm6bs#EthOpmc;_qWlqaRM|-knp&+=oh}u&C}D~Wx@9)j0p7N~rO1yk&<Ny-@+P1#
z5hRIBg4lk3JYQ@3YLJ0}?DPWLkY?G?M2509c$iXDrJ`Yj<iwIBE;-EEMo*N||9nKy
zo6$4$6ilWsNEL|l4F84M7fOwmi-kzpiKrYM7U<X_b5a(gr-v#_87XO#NdtS(61cjw
zOC~-Q5Z@y(1*ol&)2Zi=$5tnMkYu!2&NltYJ_&mQ=YA=v_FMH(e>HW2l2#6=lGc6A
zvK=%KB{VeDuL^A7q}NSo#y0{lC>4fimgYZ3F>J-tKah?XWBo$}HhdyRHsbZO$gm-D
zw#RRbP#e(eD}ZR1BG+T6&HM3Hvt{>M&N079j}~qsk@yKPmKeiTVEHE(`0|8O!q`Pp
z-2zGe2f)`P9RC%#&h_ipmB5EAn@;Qj-n<9zcvXAcbabGyZ_g5Y6mB9w8$1gHsv7+7
z=X#md^A;>nMn5PJr3eN8X<wBc^5@bXHvJc<Fp;jJBc$I^tJN^R54ARdRm_8i``zuy
z^4@g_c5yUMdNKqI2NNVHp-*73HHlj^XE8?@*x0-`{^R}n7qUAbngo6r4Q#~oa0Y!8
zt!+>?PlJe&*-+uMX+=t+m3<e38qhP;L9}VK=gA*70Y!~Ob0wXjJJjiT{KuLx!V<J6
zt&56_E8rQdUo8>|L;nKXjx&d^owvg%4ALAz=O{SM69Oxy|DtDEaM7na#PMh`TLkX4
zGNhb&p3p;qd|?IHDXc438p_|Cez$8$`eJ)DHN_xTylpQaA)$?DSxR+L^aN`CbXl%_
z2!x-6h92+2Lm`DX3MJra&+-3^eia0>qF-Y2=RqBqZ;B=(2;8FAZdUwl?(5eYU0}N?
z0|2BE1=v}ku-cWH96#Q~c;KWvHys9_x{wjP7)TBw(Ck1fsUisO&SNzVV8_^?WSY3*
zXNtp{-{C3(RyFDtCFs+niLt;xj*v8{5UCz2!Oxe05-y2uQHXv%PdG9CQQ5nkbuJ}g
z>m%v7MSvU5a0ft^_$M$)M(Eq5$<r9#5DinG<vx4*uf|`;xK^;eZc##kkL0p~Bpj58
z<cHROgCqEeV)?h=Om=r*%h;y>toD>@!i&Oq<$R?fS`_XB_#n9(M9Ms^tHA}PgO7tk
z!v|m=6ViUJXISsKCHC%VM8^brOl>@%#nDLCYhPidXyhb0BhbR;#{C07Sj=SWS#b?V
z1sN2~m>wUf(Z!gWf&PfduV~Qd27dedKdCs|2HqLw7Fe<}nwSh-W2l13!Kp2={Tab4
zY>@e@{qn0<ugWkZn&1%77AtTI|B_}Zy)XX6FAsli1CdcAb<>M={+97S1q4R=!T+d}
z{Y%O0|KX3UEbTKtErf<FlgZ)h?{BzI$n_$?yNT^541aO~SlgGLV*yYW78XX8M#kn7
z9v_f}0Ac0Fu3Zj>cKdeNUeqgRQ$kAv_q6hA!30F<E;AW~Fj9#peh1>Mv#@j2AQC2z
z3$+Z_bvr*LA+u70N-hC`qtq`BvCqAP04J;kgM+plA#d;yAew-_3{6R^C+ov6<CpS2
zr~cNl#J?o7H3ad0r&Js<F=Yl1*tUobp5MQJ^VYX1>V^HyEfDdTGVHEzirn0h+3R9>
zWwjUAJeGCyxE{DZY!3N$*u70ag6FZ(GlOGQFBi8@oV|11;li7|!-ZjK5`JgT_zeH`
z&`54B>;7fEuCDV66q|YHzd3p0%;4z6XYV?Xw+@4lk!|R%Fwu=kFx2bNY)FVn5Lp>~
z{6dsn6P)i-h`_L~`xLqdEh2lgL7m_AwFCRx8@;iwQ8Ebfom{u_49AYmbF9B9eAyn@
z^=I44obHt|0@kY;yEm+HF8qtPEA?PV;n~F5S;>6mk|Wk3K!qn=zD~po()P%nd+!IU
zXkF+uUyP6E2f}xV?+2Q=Tkh8%G)N`6A3NuU5_N;(f!)Hr(GQPr{r~$C&ulLXxTaDR
z>Kz^)?&c;68MOJ@%slda`8@lY=hR+{w2_77#}_-HK22l1p;YwgT|CgKofqm3Z}ipC
z#dMVAD=XeMQH!cbnmK*>brZj&I{;Rj>NHrP`4EbQY2yO2J}ZWpIKX57X>Qu%TRZHv
zWFfSOXzr<O$5y>eiL_cYCF@LolGF2F?fWAUW5vSU;+(i)9L4XMNVbH<!uSCI>DGTn
zRQAU3&Omr%qz7qP=L-FC*92I>uCRHG6GOh-vM6GR07q8)qNEv#B*_B0hBTlxql@&y
zLB%~68s29D($xp}mc2NJP7Hh`aZY>D(IgE4t|v4Mv<V5jCx!+{gF&P6rG%|Zt6@~F
z7Mi8Iy86Ms%r^o$V<d9&@4u1}y3W@*P;?JfuHHhu$+)660HI4!S}Dqx{l#<-(8p7t
z#b?^gWxNoZVSe8R7&vIgxwQC=R>5Q12qZQUqLJJl9?|F{FK`W5(&TR(cC{9QE|cS7
z;o-&>dWHVmys`W;KpL$8Gi86%$NjRfe8@EP=Iu%}{3F6Bvw&agp;K94=VYk?f}@-H
zryoAvclAr9c?J9Yr}?cFEAvn!ftBGx+n3%KONQ%`fW%;dZyOhjcRtsMJ1sjt<T7Qa
zeW5F%7tN3jGzKaU)}`serNx`A9R|ceL2ZKY;yYPA6e*k!2mHPsG}oAW-{&%(r&Wzv
z<sEEj%3Gf5apuBU%E~6c;M(_J26g5v^0*Y8xzn4qrNLvH6TeSE0du)`k4!3TL3591
z@ObkkL5w+Hwf*!Vh?aAcni=GlhV&6zUj9L<I<$I*`HY2}QW8*;<b*7Qsf<i5WW)u}
zf6BH;yYzf*CggSl1fZGlKi4SsL4>;WDu?AE$mWYlP4;@{Rb&n(R3bzR`4Q<T?atOZ
zf&Oq0d=V)yv08Zr1mFgfH;fK;u_N29G5yBNbQsN7U6U5kKcb={PJ0Ix&(mnu=JVRs
z8i2>L+1iNq{ciS+pG@~5@m)r8_|%8#fsAsmKQpX)VbL{Thatqu%9?}u6f6kb&q3cV
z{(TGmCBrnpHOUjpn9*3N@68WGh1YKO)@fwtzn=a1$B-s$v7YhbB2sgAB9d*tbJ%^1
zB2yU|6;;)Q<ZTRN#9PNDdS5TQEU;k{(qZPpLAkoLili-idtNQc1GK9Z8#jIy;S>j&
zdt<RVSW|Ba8vsfXyg2%Oum8<uh}b>!y>>mR*GFL}a9_6kC15n^!|1=e^-&7A^xcn>
z3^&oQk9`}di`RPft{oT!wo2UgTu|{bY;Xbe{i#LrW)(^Fza{6pK<B{S?HCsjfI%Q3
zg>UZA#7HmjkZDtAn;oFbL+p##oJWgNgM>`f-Udrc)4}FYnX?;p=_q$Mx8iSg8^jXi
zyN~}_9M!N~UfADo=&68sFsIO|m{o~-N#(r!+ti|~*u16FQeRF?tg9Xgbo#bqOy;TA
z*PukHiNC8gQcuMT&S9+ERwAzaq>RI%`KARl<ys%dpq)*c&IqvXd|4MpXM5njLC*~F
zgl*QV-`UnjR_N!q_8mx)?usAFP0?F@JMVg*Nwx2mrd~t!m8l-WU039nc-M2bYmnna
zKdo2j7U7i?HrXnhF{Psz|8~CapS||K@3hOJ-_L%(6P@(=0#p}q^`mpixZJw1UJU{p
z<HLYz)^d)%zxogi`NgQE4CfznUW!>LXRSE_b$A1Fkpa=EPlJ#C?8cm#^=g)&$mc;}
zNgs9WUO1NhGOr=$#evMn8{Fue;K}b#XR0&v(Z`;yNv!C|<8vN<#aTY$gm#j9kN~$R
zKW?~xqpwj;0bSE|=dzww66|Zb+c17+uovOa8U%l5)1iye3v4DABi>h|0`KPLhV3T_
zX|A2?nTh>--kJ3hi0w27bI&3{xem3?yZ}M{hw!%_Fw|NU(}a+B*1Ih`D!QJF3nNhK
zMIl~uIh{Uq_oZsqRM)yX6rJJ<kuzC!#^$X}dqKJ#G{mR(66g3jbZ%Y=kZ`bsE~@}x
z<uVo)pLYy{u#p3eU(2Op#Q}mFxa!5@SFa29;l2j(H-3!w(f*=j+4zWa;;aX|Nc4LH
zeAN5gdG`IC(9A3pn2MPi$Z9{QuA;IWKw$Bs$B(%&vSc(FWr;^9Ls~%1c0VE(lUtfk
zBcf9`V;0dpobBS^V4UrG_!b8tft$Xz01sjThY*etLh<s0MJ!lA<gRgrh!9MlPaFdc
zr83b}YaGwki`I+=v7&0Hzh__l)R@bZxl{87&T9yoRt(X|#vBj^)}X1bc#i?YrpCeH
zp46Jc#*VQ8zVkx-R&`qn^$+gf4*-No%G<pNYrch#&q!$u?svE>#+emjNgfnASwJ%3
zAZqoESJ=&XHQtEZ_k2qJ^3dI~qyn|9Ms)3Zp=J&r`~C)9fBfVG;tcn3%a_+HZyJqo
zR$-+oCzemnj7dvDi?gBsmd%^l5{_auYM~S^2utPW7692t4^C;RZ39e5;wulrxORW8
zN&pd$Dlll(ix#!_*|Ce8xwtUdy*e4CZ7a)1JLrL*7+QySgXOR@Z5#uocN*0pFv&q3
zbtxc`>uzq~eQ|B7c*)E}ZI|FnibIJjz7T9jCEp6fe-|YHW(%Hvb3^+!^F5t&5Fpwj
z8Z-2VZ2pHc10T?SN?Jh=^|GuRxS8AkO%y`Z6LuJ&+f9#n0~a_rkyR747kV*1Ah#I6
zptc{g<p21dt4J{rm`3yi70c?8v4<xW-gNQDH*Nc`??r!Fws4)01rNH$fC#bBmOZ`w
z&Wa(-d%ox9R*Bv#_pyQ`C|l)#7qFJpL9F@s)s&Q$HjLE|odO5gCNcl?c8d@DSLUD*
zs{XoPOL3mmU@UFJ`8u@DyLErHH+qlWn-!=y=Nkp14)xB+Wuyl~lpr9QC%q!o;~oS|
zl{02^BL{CXlpZ_2MeUXz@M{+*;3Hm`78d_Ll=f4zr>p-Q0(&hmgK@vAsw$kmsKqI?
z5V~ALH{<Vf{aVyv?qp={r50apeC;ebU;9XZMx2F-wz#>2txJ1c|HzCW@z>r<)>h8P
zZ6+CJuF%>N@eoI3`ucvjeiwEMZT)-SL2rWr<P|tt+!DN`GG6)Kb34ab^^)>;2ZbBr
zBXz=uM7SPa?Cpq6c)y?S?!}+qAD^Qi7^Um}tL1(F_(F=iIIU%UWB|UMt4kGvL3;>`
z3OHdoz)LsSr@j8n0?CV$@LIQ#OF<Bh#=ztfQQ978a>uy~@Au5j0mGgnZ;hQc2gac*
zYIpu+LJRk);g|F%DwBD1I}fGBp31p?AR!pR5+yh&XBB+Gl(F%4^{nfdhTC7%$utUF
ze+$`b?f2pCO^CV357{j(!{jtX$udCLPXW;k8yJC(PY(K`*`5a3YGP|U-TskK{slit
zmJQvkUY$*_e|dD(0C77r2xjj>NJ)`8dJ~ty-CaMtaT!faCr5<R!9%FRRoQI9*gEOq
zmrLe9XEp=u*4hAT2fwz1>|kdTSvLy$32pFzEG>jR(+hc4!r(l_=wLyo;hy1`snHlr
z+u2X*qE&4!z3zIif%s{fa?)bBCdy{tHH5B>mhFgm!^lypA1Nv+l{}ULx3Y=SJPO&y
z(x{(fR|E_F$)Qb14@u6js)cjn%R&D34!rGI0+WvM>C!Wt^2$08Hbv3^33aa+7zkN%
zF|6FVzY9^V2Za#3Qc`LFt8d^s1yGXzTSP)_@_B=Cqp#I_{Xd-3iU<@oTOe%a=`Go}
z_kOt18ul%l@0LzBZ))9dWTE(KQB9aoi+Et^WW|Dd4{3qpzE6$&%;gPKeXEOWZcOSs
zTJ8Th=uo@N>XDA3qxaXcBN9(yrn=GtL`M=NRDE6UCJA@#=m;G#&qD$B##3X>yz;&$
zUHwms@2v>!D!FhtMl&f&wyPo8&Ny<kL%L7p$fT;NN%dsr*l45uWUV`X(Q#<=UE9OO
znau^fo6V||Myq|+pcwynuy9ku$}OCMw{bf$&+@)MnH}?VGQf-5NU6VSr4EbYz54z<
z+eq_j!Hjby!A<YxuFY2#8mVa3cbxq57U#z!;`cXj>5jfM;0)6b{EnCjf(XZ<QNY8+
zMLR!vHs^0;v&vDSdy$-&>xemYP0Y+b80@G5*tp*zZRh5uk(I$!ZXUx6*PdhrD})NO
z48Yb?l!#QP9T}UO#Sh%m+!~aVdSTR+-BJC>E#Ys8Qc;~mp)CjKtDgDYpuB9Ynk|h{
zOR@zek-SnQ0tFn?B+(}*>T#mb9i8+J-5)qJtg)y2=XM4-r%BX1icgHyz8A~@pnCv0
z@gt}gYCJ!!yhYVd8VT&V^HMu-hZ<<E+v?m@rxw211zSrW3CKWVmBT`nbG6G^**{9>
zE?V;u8aUTsC-I>N&t0%GpbH?u*8|_Jyyi^h^OL=3tT`|e{(UmU=IO>YAK8Tu<XrKL
zQdH9wvOe4`F=w-_uf8L$yJ&LChTaW%&DV*l5n9i}$0_Ruqp-B5b=HN$<_(fwU#|?>
z8QukP?At7>!|`Lhay}a;jl4FF)V4{j1V;g7U=+Ot7w>Amab^hpi|L}^+iu`$1RvR(
z5~@u?!rZ?3ui=Z<s;V9lzZ59|mtc`SV{Y@~7$>bvCkNpN$Kr!HJG-+&8pfzcHrCN*
zbZWi3{kG?3ybCc_*`q=i>6J?v5-xru<sVO^q3W4K*<#4Uam&LMW_DsvaD3{+%riR$
z@~lyKJ_RMJMQcBz_+uM++;{Q>FV`syK3p{UG6`sjuFJ%LS~zbO+l9m1bW(RF3iZAX
zPYjFA`;Hcy_=X<2v>+Fa$l`BUCa7QbeqQ2|{L&WfI@kL8zE82xNLeI+(s|#<5DjiX
z*G{P%Yl}Ksbss{Jd{N@qgEb$~$)pyZ`G;08=rl<$r3GAm^EP5eQ+MGTohCZ;yxrVT
zR?Hzj7}|SGETsV^^j<sW#03KMY8DoX#P3}ktlAaD>>E0SzR>%SNjivrk$9KS;>|bq
zokHd5h}b0?=+E_rZo9~bA_pr=_e7{EHtVzGx6E+qhBWMb4<14uI;Bm<%>bKwZoBwZ
z-r_aOK?0o~p-``=smX?7Vk}A&wC6~tA3`TD3M-N!oPSfaH9%j}ifKw+g%4%d$e}3s
znUZPuXniehZ4N+c$L?7c@a>9Zf-8q2M$NCu7IC<Y_r^lNBDpiJFwkjHJ&==RO#9LY
zz4vb&vWe>oSEtWb03->46Aw)7-i)IDN>CxMBhuM`n&cx?w_~A*kq3rqqwB22ZpWM&
zm(hON*^$e1=h@$m{6uU20W<&2VB3G(_s@Xu|5N;#vf<s;pqcVPYnsif_3bsVNOMu<
zU5jdJu~Zhw)Ribd->q|j7bnYr3K^#hLcd0w2<mfN1?3H=KHp#u$f*htB6kqB%qmvA
zl#5gUUjFG*IHeZYZ#j@IJcT_<_%kXu?zHJ)u=G*ZL!x=1+0ia+qpXhx)QK^VfQEan
zrZLS3E4IX9M~C6$W4KN3$*XHtP^_Ylg4qYqu{I9q>FTZpf9N{YpmM=@VTJO8AcXrx
zp?=?lu{GC0x@a>hc6(Di+&UHzVx)ON0xEQCk$jj_I$hNOw%}GWBqcf_i=zZ{TQx8H
zcJ~T37_);(OZO{?B_S;G6nHwZ_Pvc1b6dmsK%9gnc;v0&DSQD67d8%<MwbaUTY9`p
zcyMRwgDPkRWO8%0PdFgs4y>C(@a&5g&Yj7g&_iiE9}_0PsV@Qe;W1jt77gMA-J{S+
z4uQ@6K`#`3MMM{iyC878MLOc1-^Q+Ox_=0L{R-y6lv#S3uWiwH>UVhi-a1NhEm>oM
ziD>PV?FTRHGwqY4FX2~AUqakVw9)N=cfZSco(ne=E6h}~S~X1%3glI4F9^)zVSC`2
zij`=}p0&gSW|TE`x#d|D`~)qV-%#Ll$#ln^!-RX&47-HA20KraQ$#$!3-rFgIW<S`
z3iC^i<R3eLa5JL|-22qw0`<(LvOdk>hXbGSHEF$(GRnN|m50{S<x~CAQ_IjD5gMAZ
z)sw@hebrr)P<iFt3a2d@Xd=8L`pI?HDQt^@#2poKF}YqA`T-^{vwpP?nGLpXW7s3F
z>$u3yZ&_258qZJcq1YB^a@9j;noF-YTH+t)eE~2cZq*Pq0bzK5E_fL<A2p&N=?N)T
zp1}r}soUS?+q@ZAMe{v@pL20NgmDqXP<GmMw%XXEb@m{7n0$8uBRCH!x@DYnsfwD~
z3fLv%TH6}aUeu%V5P=bZUDZoTb}dLWAK-2}#Zam+dV5zSrbr4?TYd|k=roM?hTal$
z6O(hmEuBJ1&jR`IncyrG{ZFB~H&XR-NwSlNxzy<65ls^b+Hu%TEG&YkJFNQs#O|X*
zmr`3yu%oK4IC;j5sMSz(@)}$ueboA65$Rwmh>7i1*hzitREsJDe}ftjrq^c<M46XW
z1*fRh_!bHZSNwTq^LM`2&&9>yE#mapjoK@QfCk;CU7R)<a&>JW#nQ+8O0?gtZbB<c
z`LNsv2nKbWO9Kt*G{_ZIiDccQ<({r4W&G2@7YFmb^3*f?{KRT>!KbdWox8?b0S!XB
zCTU=ciPc0S0GCAqm|5_2#*x(xdk1Cv6RaiB?ia_+<%8n!Cb*e=XqD(Z4DmE7pq+5+
z$4)@c+6Oj$^$Lyx?JXH>;<=tDqh|~4y0o%7fF7YR7M7(u$O2^B@mHRlw#%rpY@31u
zG;n{mHoO<ua3=?2W4u?W0iSDxXD*ha;hx5(>WB-Qww!{Q2=9L)0j9R>V5<`t8rN}h
z1g^4vT<*E1Veb&`^0Wjbv{y;Ph#_Xd6hU_sS?^UGEEF=pLnwL5*JP6Er;FB#Yw&3X
zoE3wt&Q?*@CT~}X+)i0h%KhoGFt@A^)p_DbQM$bn{n86GSW;9jZgqEOpB(1jytzPN
zsH;X~o6rY)&XG3<;|j$u{V{~1OhsJ9pEYQhhT&qd8B~WqrBfd7%?a%h4plj;ooAeC
z_6G0Nv&wyh!o&rmD}Wazt}I>?=wJQDGuI<FMa@xYQ1V=+pBci`LIJz4B?kU&xZ{`*
zL9_W*{KFzMw!K)7)ZUXu&W{a8=uH@ZzP`SVDAkC{&dSJ8p$_=6o?#7U#6v8_`R2v(
zJH<{Ly9X4r+C_R-L9Q;!6#eNpb)+!um#xzZ_P45q&?WvbuiM6NhZ8U3thajPA^&2Y
zIfN{m2w`{fJK(kR46R;7Z1>6jsPCj%6W?9D!Aq12y6ma)?9(fFIc3H8UDuV>H^5IZ
z^hdWj2M|u)6GF|e05SMZICdYD9{rGvP@oCuXMTNE62y2Y)Io*8dMhTiad8o;Y(Emq
z`D#15N7|&P?&wT5uFTRfxvQ@0z>_xq!Q1)8OQ|8yz}Y%Be(TZx-E(zA;`>eSDoT4b
z5O|J%nkx-J6>j7J%9r)V8${T4z>t0|yEXKDM9mSEiyZKI8mVmPeX&!YrMEtG2a+=B
zvg&#aqYV_xJ#unnMp(d4E<p6`vgLg<v!ACKe>+l6=Cad~Dr-L6-F4%iVJhXI6ypmK
z*IlGI-G@Q1Vkzhp_hsFp)@-u!>~49p#}Gy>X(rs%lYL?7;77DCpDwt?=TJQ>@Dwr&
zS@4d0-7qv&&Id%2ifS_$nX29~nl^PJ>(1dPxdE83&QlTkao+Ua7P66m4e}wp@0wdP
zWQFQl97K+rT);8Iw=BI^tkNHq_?7NVPF~&@eqA%K2~*f3?abiU1{173*bB867+cQ4
zMgn`VNPyG+(;pPtt&*@m?=(`V=LOyR99Uek;=LfyOJY9T-(R45Nws`M9Kh^wqi}e@
z*ZSU)D=;+WXpkwnP;~WO_dP21jCIQ+VOgKoMo)uoPl#1PeTxOhLOse9w8VFvmILgE
zN<#t1gCBGMVme&a3N?9UAp@rcRd{~)dIJzkOMngY0Xj0tkZaL=bXfBNpZ>XMKdE;U
zhv5hB!mp~RsL1T!pCeFwu}!?;8t!&KO1JIW4cZZ1CSO;HTuE8ciNMSB(7>;G<Tx<G
z%&Vo)zap&&s#xyB$Zy&@4)9q*g6FmFg)UZ#*E`Pbpz<c-pL;gt$76w4t3`SZrBQ$j
z<Icijfv_RhKl6L2SdCiNVh#PQqB?A^&NxQMz|VWf-h=a@03TN0px_pjm+DO(8w75r
zr}D9up2~L;g@1?$oqUy8O@K+LmVR!s;M;@;D`tz^t+LgBH!(U1K4@8|qj*+{B??9x
zahKZEu?axsG@Mm_x<kJY0P?co@IpFGd6JD2f#SI&?-k#Hd5!B+5DHOu3OB5_>_%T%
z^qbwI`dmIJS@B(qK|OtpWXb!&J{>3pKkO8}XI&yI3*J&j*Fk6&n@)k$FKo<?1N$aA
z9w@T*ts@(RY@8O9F;CZ<)7$f(N)0@N@y7(m_##_@5ASVv+K^2MO$mP1s`d3o{%IeO
z3wa=P6ed{CaubDP>1Q@;U>S^xR*AgEzT5Qavcy@lVLKR)is6IZkA08IVK=v*bAiT%
zLCxY-zpn$#nZg@<;B3*V810m}T$jz%0LV0FrvZaj4T{uRE5n7cU?=psOcqb&XHGu7
zXDRn+qc^l<PuT{+`X(yYJe$1VknUh50MGSqO+)!N-&T`v_Bbq(vNGH#LmuoySXW+k
zG+WF5-5Pz|-`RY_a9D?T2wC|A1d6;4npR{BSI8yhdRXY-0XZWlF?|DFKVykWh?_6V
z$+5{gf<Xh-oqd3kPJvwL5aD^7nlR!E(KopNdv`-tQ6hNZRQNF9)WfJOhbT{%LO{5v
z5D~b=#nre#Z+Nd~nni^n65Fa4;AcXWnWGg8HyAr#zA=6_e>m|Bd5S!J<bSjS54^sh
z*Yyp374;^e4w`-UcT^aUX^!48h9?8*&V%Brv0+4zRiU0KYN<kJJWTYXXD?dTvzL84
z!2M23SVJOn)DNOr++*M3UEE{#2xREK?+WT4uyw%dE=q)u&<R@y&@^I^m^<CtF9a8F
zQNZ`~HJxOZZk>-N$WjL;+p<!TUK;oVy{<Yj)?RV3)@5qq5qKa*vp;h4W5L_8;Q96h
zO9JF&VPT<X0};Wp5mHPvtmwdC;K3mx=l8|wjcds_SRtI%5|C1UmsHXPq_9vx8lg&>
zgn6`|^CHjQu{$Pvn(PnmW>=b!{>{_C$7gMsd1uKz3oB)}aWny6KuWTa;&eB+;arhS
zmMm!A-reai4%qv?&SVqkRON{=>JhDKQ9imW^w+Wym6TNt<zIYT3tQ~r4-C2)x;4ji
zC`dj!c)7ae6a{M0+8I}IGnl0kUfvS)mg$0{i?kQ86{pRtz5#nlfDtDP3$lF5YaDC*
z{r&UYw`B%gtVK+gUVgB!lcUDX4b0v2mxJ9|5lJx%+KK^hG%X7rmXR2&)Q4F?9r`sC
zU8|d?Rsr1F36IUym=V*5h$F%#@g4RG%8`bgP)_W97j`fAP1$g3+Ofc5`_4&AAy^et
zWr2oQICQp<Wij-}`AsP7hpnl2zpA^r!S?LKy?Vc_vOV}NBVW^pJ0Hnju+9*eAyGqT
z)>3?x*oDANOH=sB`+I`-w;RaW1_5|-G=HnCs_I9}S>ufTkg_>ws0!h69Jq;~dV%Bf
ze80$t5qRKRU0|Fl<`bXO6e1WE1~u3-5%qV+-#ewOZEzZp?PonD0ZLA3r%Rhrs<t;G
zn;M@Eq%v|bPlKIPa~FNUqN$pQTSa|0?nLCc=i{&T>z8OQ?NL)v;l_N_H_=n%OC11Z
z$1n58$}}TOm8aoFY*V73>j`nD?OhYNBNrZ29_iE#9dn@2htOhP)C{6@(NPUBi*AoY
zokor_C$^?Bpw2sj)B68_fi&lV2+grUn@N0+(ncw`wqS4;PLD}+K7Zwd_UY5zeSn*)
z+5Xrg!;MhWxYxEyRVr76^J0n9Wj1eg!Wt$W*Rz)?Y|*EU;^pK)5&d>d7;cU$6p)8R
z*|XEYMe<Sijc+202=#_dRBh{vGQSv+tHFU-&}NP!9-w?QGk*iYk)PfNU#;UDKJ`jf
zNhz+dpI9mx6KFB+kcHFrbZ#Hpg@{el$XnXpQZkpy$dB@D+KN$qtS`7Q@ltVO;f>VX
zxaeS_WLB9E#J^%2-G#zl(9Ij0MpiXAt=X~jSV-=^>>9^D=H}U#iJUE>E4k&imhr_5
zcX#&=4tLBC+z27Xm?S-`sKgBw@Vm3$HL<0?-+Lrwq@XC6TeiK+Dr;iU9o-X>kfVA3
zX^^606u>9nKfL(BIfbK1P(SxIi0%)e@a<VWhy=&ee2ejyTsfOHv${pl#V}mcFu4M`
z<3OS~&UX_E;x_!TYCaLY@9cti2KQD@v>4NxKG9}oN$M3x_`pDYs{v)@PCWmCX!9Q-
zj9s6(_|Btgdsi|_qg|#ZDV-lip=&LoN^^<6HydK1uk{6ojmjQ^_*l`FTgneXki9J6
zw{i5Xq0}-oC0wIPtK_Qf2dfMz?IJ(}0Er!k<(u_Xnpy?<oZcg`RB|RPEg899;~#U^
zy1|AXM50W^hNGgN|6*Dkz`R?n?=UzuS~b%|5PyAUZx}w{)UF(S-SED{Mu;J=g#d%)
zR?Qc@5S(8HhfDQV(Jv1!F#*+Lr`8=Gkkua;VnPpA9)IL+kz*6{V+yIc3g`3uXqf)D
z<um@D1;+l5(L*bvC@+BRq8L=bn(uKXg7)Qj_=><HXf{)nsb-S~vECECFvob8dCht|
z&@GNR_xaL0D2@mzG*YH?8KR)xu+IUK7i>ccXSmi~0fF_bDiPg;pF2(+1G!2c`91C0
zVPM;<D9y)Ixp3JD5Hb)f?+5zPYP7@_lJ2MT8j%fbwca(`k6U(7L(b=Mxp0(C<gO<l
zThPE`ayVE@5*b*}CC=r^fr+6ARxR>*{OJ<+Y^#lcw#?UA%II7H>h10bFgxGQQR|*^
zK!d4%z7J0?zGg0FI&o475EF4kfW5DT0bP1NVdhD$oqC8#r-5?f|3SDz>C^S<`=||U
z<Km)rar@!VR~LZh+PRi4e|Lx&GQ`FMyVC`{!^dFbmA1p{(xlvjGOvd+hcafWe-uX6
ztqUZ`P)6o8cwJ3fbs2AFfC;SdJB*Vt^7sivlytTU!6)5R3y|9nBI}Cp!gO7Zxg6(r
zW6WQ2k(3<*6=W_5u{HHq4l}GG6?HcHUPH);Hi4rEqQ8JN^v4$CGy#l<M7asfx5IaZ
zqq55wyGH@|y8g*05WR~PlN+wXckD;);1nFB1%{gEQo0E-@q)xEJZcU=BbaRARW7jd
z!BHqVztP>{gx<;7(N9dpQDV_YTLvNnAV93iY>Y$F_#*G0AY~NDMEsIRtjo@Bn))-`
zW$vP7GKR*hgYXU<PCYMe29M)QlAjrG70J2==8GgWIaWa1)sVK~Vu_w?QTRQ5V5FX-
z?LF|^aUvVV;UVI)T+lPpnAR|1wva>gcTAgGg{j^rD0aUFXVO)YSKzm$3GHIny}_>e
zfU?;aL~l+VS`F8!E$?NQdJ_67hbb&Z9PGZtW%w0+LqY-@(HQTwddHd46lqWzu3-oB
zLY#fl40FvA>gRR4>y4i(O3G5!iD?0Mlby*a1#m)tjS`AG5Z#?$6C9>&iK6rxT$z<1
z0ePYgA`dMG1PghiNAAGT#{hkPW+}B7?q1AGa<K9X>U=NI)P^i`EpcF`CbFjN2!B12
zdFO;F#2r{E!pOWrL&)N@VmflK3`|G>XSOlhBI^?XM&Njb%Y-^DDp6m)0LUPgZ?814
z&scobIUP|Z>3SF)CyG>+9vIy)GkXMX8GGX8pBppQ@=LD0+m28dRUx=_QA8FXM|~;w
z*lX_cG{{iA7=ba8)ABC^3|CDw+D3hG+u(JGi|d-(X?UU|nnOewv#kT^jOWhbGycMG
znMho~WQvIoUUp1Eu;$oBX#(r|sGC{qBZV4W$FN5!yCbjP(HV~-UOrH~K%FVPCpziM
zU9;3@FDpXvh7^cWveyO^f^Zz{GJy^xzbT3_2W7a?&u&?iq}O1w3r<sW%n=8h-ATtd
z9$@lg)Z%Q)E1?^58r02v=za%G)FGcR>534{tH#<^e5tTSrm`q=qYZ{T?}<Y#fScte
zB!M>}GSe7Lfkd}(>XmlsvN4(?WRp)&_Ri$VMIyBd9T#3iUyKM3mn*`+Z^yB8^l`U$
znm^TE<9$SNLh`#`j8kZR;^oP=yx#}yXv%_Z5S0!*HRm$If|!Po|5tm;5;q(|r0_w&
z)N(ZxElNNe*SwSz6n>RwY9x5-j>j7D#FtXQc<-a2%bx<X!>;-YNs~(3AP8ALkG#af
zKa4Ta89;ABqh~=2aPO)Z)Wp;mv0aGQJ30-)I<}#&2b4)kO|ATdC+fjR1u};lJDXbP
zq@$nI?0d)3596*w2+EEUqT@zT|BZC4x6plav+ObGeRRe}QGSjUFtO%rK=9Dc;XRaP
zm)Uc9+s^P}pc!RVh63JsPwYY4i@ON@nUsINI#Q8>%&UuWur_A3GO~fH&u~>M^Klh{
zRVOSrdJ2Tw?mj2|ne}8;N2-dQZ<E2x2T?AFuxl7Xf^+*oMBv8ETZQe=Y3{To%TiIL
zKJff>TQM5$edtu=V{`hTgMgOG0cP13hQ_d_b74Fx*S>lfyF@xnzPO>sadF#^qY>J3
z2RF!xI&Fj7z_UM>h9}HJ*_{uvS{|fGgheEp)deD$+mVmjkJ^UPXGd@=iSOutig}w2
z#}YDb!@wSc?6wc8<stR)d)R#t6r&TheBL1Qw*a^48zA=TgIy^<8{hvlWrjIgE8{LY
z0Sc0ZzQYZwDBw+1O;n-J2VLpLJ;dYh=G#M~a<a1@?6bpk?m8>Zf|y^$7>68mZOh2v
zjmk~QTlx58G4bm5X#ihzzd-SQK)mekn|q5uq6D*;#NKakJ$<OMaDy5c`N43Y3y8&o
zqKj`@dMlTgO|9#p2Gp9w_ra?#*E`$faabL;4MOxU@>OUqW0LBdFT!unNvHLT?|^{N
zK$=7YsO5qvWa)0`tO55us4ILf503dUlmbjl$IwRGxik`u5=rHW$aErDqDxmeZ$*83
zY#dmG4`KW%(pbiP%wP#Nl}0wMQw^x7v;QE6g-p=J7L&1V7k<RzI^9(tj}YCO?PUY7
zVgTuiiZ{s<@h`TAs@!dzsQ`U1Bip)x+38s$@63(UC&^jHCt)7>mB%Q7%f7zgzbcIX
za4>)Z&+|#qL*`f?jQ$&EYtq2ScW3UG*$z^q*uG3)3#G{~a?!(JYvkL}6w5~pf^&Lw
z^GT-brFT^SJs6ROT3~z^TAy;})XZWeSosPu)~P}o^}dd7y1hkxqB4RXBFGK)Lhget
zp`JK1XTej9Dqdq#sz^n~)0`N<Ed|(7(WC~MGx>eri|I}yeLB@t->GUL^cO)<M`T2D
zvM7|cH69h+E*KglWyw5(NaDDrTxfsB6{3yM19?w*HS|MlcR85i*v1u7RndJc0(~*b
zXkKl)&@iSeBg0`^d9oL}kJ#sufn^Ou>!o@YoOAAngPd#VLLg@8RI9oy+H^SJH&R|t
z$ii<3$Rr*C3k&ti1b{z($)*;G2Kg4vV2tSTq$0rBFv6Ic&?6!BOAv%mrHzFJ{Fdtk
z3>Zz6kH0-@Qo|{HPQx}uFmE11K^%d>jm>4V9sq7@vC*O^#?}GS6pIqOaWXl8>Dox?
zfs9KVVX&8KJdR`NAbAy6h}5U5WrXT5TwI{+D|Xx3jl#d)TO^DcT>Xi$E6rA8XgL(b
zzpbc9Rvut<|F!IBSduBunPz$yoY`>cQz_OTga#%j5LBxb1FKmO8#clLI}*zZ5e&>1
zkntVu3lFe=Y#<sMRiu$S=Yg22wBcT~8E~YkmMdONvMLfq)JTBKIo3cDMu^DTjy04g
zSGCYa@NZi%;7qL{wkgj}I-9thd6Ccs-h_BsI-qst9x_q?g3hkMhmHXy@Wp4Sy@;%C
zFL8hgr>0Pl3W`8Nh(}q~0;Z)<WgBW{njLq%%T%Qc<G_R+NQ`nGG=_cgY@^yT=E;Bt
z161B{R%VcpdQ8TsRM*1QNF#N+6WM*byJ!kJFm^4KrlS<yVC&1gzA!@t@z|vfC)6-Z
zf4_C^4N<&Np7cbhA_^e(5%wcxjjPavOWCOfSbF<GQ(~)YpfC|j?S`nHn~N)Rv@9l<
z=$tt@@1zZz09|^b^HY>6JxGZU2X)ho*)!fR!TnCFkJq;ogS;0=y~r{%OxgSE;iKhk
zM<!fq`I^T<Mh%q)vf~6b`*%FzH_LJyV?vE<e>l%Wpi-f#A^}%$W`Idbr$7r2%jmlp
zqJPupM+O+-0%fm~ZM)ioua~V%KL>&1+@{=8bshO)=c1uO@S+-;1KZ<3+Ux8C>dl@|
z1TUhQUWbA`Gjasq)q=^_#zwIRt+)xy!?%fu3J(+4t{06s=`Sb4^)^1n!Lq=pghbxj
z2^6lF99iHpuW1BMo52<?E-G50gb-6!Vc5pQ#$_zsl$e^EZdctt76LDnR$E%Q<3+3C
z0j*l+fyurJ&xMT2pcI)|I3@(8*rr6A>?tP~PD?JtS8M7X9(*}j+$<})@Rt`V`m;XV
z{^e;I+EgWp98a5#=nG~U1LdOVsfssbIff#+7r=#Kszo(z{a8)*psG+RQZGx2a4Bj4
zQ`3R?n_eSEFQWoQD5U4&%nfW))hbKI`Yxs~@0(DNe0=Wh@rZG)f%EA+4R6rhB}NCC
z4a2z)Yz2W~%pPE#xh1Fc#Mfg~AG_u@R8%tVGSxkm1F;Kzi2o_7s<PfWyb*aKw=9)t
zc11{5ga<p=l`0-IFfr>aE|OpI*k<fq6w!!0H8)jM%)$_MPk7N>5tw!&{gaCXE#po`
z=2vtZHz6|#Px6Lv3IR8b6yt)JhyqnF<byKv*LS0W+yp=5;WlI@nzUnQ^s#}8=cC8J
z4^%ni|K(PD|EA8}y-;J0aY=`9ThWy__sGDG80dZ}XUj3x)lnj6+?gJ$A|r#0>#ozj
zM{aHn6W{DmbyI(a)*f~W<Q@USA!CRhu4s$$&qeE!`KeWT@Y^8eNBN7=!%e=ND{(TH
z_6NE1UdH`yato>*MIE)R@@N>OW7LbrECUnjcV^R$0h^1-g+<2%7Z;W1ElOlJm5DBk
zlQM^(_n_r()Xx!fvCG6$GX@;ds(3H;NDaj%pG7tfNQB}Ffu^4;wGE88k*7b<!MhEa
zXIWyJc-UGuNKrjMf0?nnfFduI0I7?PwMfOP^8EFj9eiVk;0paDBhWxUEOV(MI2}&p
zuI||_)vJpPw%?(Jhew%o6mE44NU3+03PM=I(yJRqKwgGv1qiSoC$k2>3B3-FTQsXD
zqix+KWu@UqzaH7QV{X?vmTN0yPe1cD+WYLrZR_8-x^~}GR5-Bzz^ahHTuPoRtopO>
z#sTF&c~lOqJ}&yli9<X5cpe`=^VOqaiG^~5|5b|vd1ZDw&p!uM6%J%x7}T6M<UH6f
zEEIIzAQZMN1q^Z@ZYUi|M9Y=5x3^<$HzGYf;zNCT@M#if-lXAe)Z2$Z;vIGjLbzh<
zvr)(|_`TWL*}WalX=!PJ?xj9CVjupOctl!s9!~l~cHyo04I+=4Dha~uOU}&9WLKZb
z$k_<e_E8g4Q`6(A)<#gNSDn;>XW0&evp6^c-m<pF23h36sJ=0fH2SgetesvyeUG~;
zXhIk}kvuv-DIp;=HdYWJ#aLb&cA9UqLXTzS=6YYjseDUhEdF`4ZQ#x)dy^9r6Dc4F
zx*wB}AOybOt}{GeF-<&>AlY5k7uT9Bi+F`7HV%82`W0n;;LXn<9Y46x0cI^2Lsd6M
zMMbR^JS9U><L4!Z;LD@?>_H(yHDy<0ELj#!EiGS;@I>jG&Q)v5f-0J@?FyQxw_mw!
z)TIxhfnOeYo$a}PjNP%caX!jjxNyO?yFLi{?di$!k*~<6QIS`4&P+`egY3qhk&ebS
ziktlk{-}gG_d!|N5a+(-x9F%S{s!kU8i{eYP#`T*Ubi@ZC(Jey`&qJ!qb5K?&WDBc
z$7P$L;l;~21mMIFOdm?e@MO26Yi@(ubzRh=TKX~E@=KUs`X>EJUjyJ27#w}bXCM2m
zMJT`#8)IZ(4JJw;MB7jF9G<eYxr;f-mE8e>yA9NRc`GZN&pIt<XB_J)%+^Erru!}A
z!p9>bHfODpu%wY-F)iD8_>d2sgVn%(r~WDc8Q?A2lKN1(55<{xz_=kV@k5gl=m-k0
z-C>Uq52M`_ZX=U3t9V~ue;=_8@L4_w0JMcu-@pLsiaXNb^+Y@-?-l<JpVP4AL1GnC
z?r7mXgM3PMafV&q=z-ac^QS=^d{9$bQSlTmrRCr=6*+)zlv`qu_f8stn==3RT`%}F
z@g<<dVgI+46uPHcdf{IK5O}?iutQ7>?8={bj7M2tIx`rvGh}7<sK|<qvkrbkMz!sh
zNS&O|<pnFxpw0_9JXw4M{=-^WVK`nZFsfoCOx})}z>59zP#ULyQpO|gCN03D?c<x|
zpQ#j}U{c6hizwQPjg74!CI*im33MUE`<0cIeZl7llW(oV)KD6Vx^VS&?u3MdmMmEi
zBP@Yn`HO6gh>kA8{g!_2R|mX@(VK74y#-<dGM%Zv(y`m~wahd8xT{bgE5g|FtU9}c
zj__8K=2m`kp^+H-R@-5VHK&>}Muf-oWr&0EoRx48;_R9u`}~wcaFSoWwDZB?dm>*n
zVxEM;c%RK^#rzA52Tf$zlZ?#Gi{a)Ay*E6Ih$sXZ_&$OX+s(B{7Ml*f04T4&HVH^P
z1-n6k9V+mUa`<LQ)6Q$F`oMP;B2A#Y!Nn;vBqSvL*9yHg&fb%0vv;c(yKJYei1D1N
zjzixrzScK3G3iHVjBTpnIaK>gN=vP^W8$Nu1<*B6-~c(Iy;iDN18O<PI^5$v4(V~~
zKkJjUN$&oB(j}wKYjAiISVCr$g;JOl&;eByT~H;fKdb!~^g*Yh2~gwBD_5>?Uv;$O
zj4o(>Qy#6OwU+bS%|(oRtKg*1SBK$2W4$n6w~{*PjspSI)YR-lY0VHcu4mEF-+UaX
z%>gQx%}B_K5ez9GKYj<bavIv1PsKq9`ST&7ZQ@(>MC=iu81Nj50BC)ztPH?bF$ACa
zS!Cp4SVtVYI}`|__-BFM=ew9B*y|P(g+D<9;~RvE&<09+j6;;SuprfP(l;tIQwo;q
zI1;D>-fM#b0|QIT%VAXnj}u<fS$T7TK=Ol+{kP;owNb7!GBYcJwoV^Lg117K?U0R)
z4Z{7KxI<CMNFByQ!WS!Gj|vI{dc9Lv_)K4OzAW)m+Rz0p$rtrIb<iRZ6omStESPZj
zan}61L&#LYppD?m<1+V@O9DS<*;EXO;%DxB3>LgYY8fBf#*(yv82Fq9MST|#v@|<G
zhQj$!oZ_{e->AoD`EeLXz?8nw`dJSf@&@>0+6CFCQLU}5md84wh%<I8v6tcMvVoO4
z9)nbX?ncY$K<fZs^uxO?Vi#fFx5<{E4oj_ychzSxayC(~(3hD&qvdpTbbOkzm%g=@
z-MbI0)(<Vo{P`hSigqvPqU=+5kxE$qfp1QvRoTU=&nAI2)}=rESp0c&8<qdyAnMZD
z7{hkIk)DJ#?HZ~EArdY|vq(c-;jXC8>Vz$bEspqrkfl8!z_4by8_8sFFTdq|nEAu}
zX?C!J!Zghpx<X8KisjSl6b~NYjL~cMbOnQ#7uyi8-Fx6h=!gG%iT{<gD8=m4!BfZA
Twuvzt_ht7Vm5JVa;?MsEt<gL6

diff --git a/reference/plot-2.png b/reference/plot-2.png
index fb8eea404e88c88c185acd5d0a87109dc704e4e0..3e19206002358fc47648182d42e369f8c17cb758 100644
GIT binary patch
literal 61925
zcmeFZcT`mCw=Gy0!GM5(iUbh}B0-QG6$v6)0m%r6B*{4=qGS*RO0t4jWF%)$GL(Qw
zl8gk&nIea`w#RdR_r5=FkJsJzy&ku34bKn{RlD~7_WIVEbFR6zzoNX<*;5p!P$<+{
z>3iZ2P^jZhDAZAX{1fnh2BO|C!(S)#Wu(O6Z+LCrE%$`K2(0d@+oDiZzQ})gp_40y
zDAW~{wD=umr?~kcXQ%VsJ13Vd&&Mo&6ML?zc#M}Edlmm`plZqI<9OCTPca|4ddfTW
z-H}rVCCpk@cx1c|;)*4yxBDX8$(~@Yl;2iAl|s%m6l>VF6e_~+`2A@#kMx^}r77oC
zyYKwAzv6F2PfWB%M_-}!K@tD+I!+m%bM(s9zh6mtdfsTizh6wZIljn<|NSC;_jZ*2
z?>AmOr6{{h@~^`%F*y1E{V~5Iq~|OC{*<^lUI2m4KOaj%)gNR3=VMA<`v3R8uIW87
zo#f}oH{s9Y@rK|kLX4RH<@0|XJ4}#yTL5)+RhK;QIKvwP)D@p)Yc8_$18@JF<KP$K
z|M(2~xy<{y@M*93+-?k^a;GBv`;^IQ{})a_>m8}YmyLyim0z)zNh%qte*XS<?%l)J
zH!$ePRKF#(IcWQq!{CH`f)D|%4|eC&>C<5m5kAk4o*YYXUA&{Fb}?NwD}YVAY&1Dk
zq^3Ub0(X6Psjbn)Gbi8=rHI=_)MK7l<P&He7Xtg)F60x7Wpiv58~tW{4)bq^T;$^g
zUTzM%o@3Q0xc%hGHTd3@y7LN;yVF$^NhMtGl4Y#bo)Z<HYKvDYG*$6=`SRzm>ry?I
zy*eoPGH=Z@9(3Ap-ZI*Of<xaY$N*M2W?a;9ky2!T{o(q2-}&Mphgi3TLeuV3Ih7j}
z;o;#{`#binxX1?Ec40<?gj+`PX;JR;xs4Nf($dm|*y{n_?z<a5D>sMl?rtn7rQ9cj
z2pK)tU26RN{AjLeH!~?IX-WC@a3Zk=!<!dhCnhf0L=O&X#Tpi@PFRo5Y|{P-p}f0_
zFV}i?J^ck2OYWk+t*hld@$cM$uNOBqPQ|(;cpf;1#m3GRWY^V+tBdgSt7}y_DRpIQ
z513RMGz1X`B;nKg+@uIj@;p3{#}=D*-+y9cWM+}m)ur4~W^aZbc$A^a8WtCqS*qi>
zB_nv2Mno%0x7wo;Tf(kgcCEkA46|Km#2GF0UB|Tg@Sr@i+G40I23_ugOV^Uebo%e@
z?U5LMeVV_u(nuqbrBSG5p(!rzbMO9rn^GNC^Gv1yxglp~XSTW4=H^`W1~LVjlL;O)
ze{YUmKJQ}hQilZ!3SNt#(-+vBK2%wcH@r7$Pl%DEW78@jI!nRzxiyxTySvh3-(}Eo
z#J$9BCcM+;4WmLs9KY@3T(#w`@zC+|r7BwukIluQ>7K0Ej~5*l2mJ>utEtKz7Hrgc
zxVg#XVz|D1l#Au+UbuenO<v<!U*7RTv)%@XQ(;vj^#Zt|kvATlP~-~V>PmYU6Qx<<
zlpD7=QY|WW_pVHYdYRqzosES+ST8hg^4G5<IJ>vJmI)0_?v0&|&oLvue|A_C2ZPg%
zx6*GIXxZ7%p@_)HUeb7M;i1{Iy*rG3l9&`pk8f{pm$+?n@>mS|@eVs3{rU5!!<<IB
z11p1k98+R%y2|N{M>&$Js^p{+&pV9k{LeFf!zj?G|EhU;db+<b<6~#mh|3)7#N_0A
zxmcbb`9|kfS6AOLor2dVgGNHQ<C;-a0(ML%&QS;1&-Fm~99f%cmy(n`!9so-{;=s(
z_+8L(x)U{0WPaIUX?VeIA5KmTR%s&Tl)k?HO~*wotx}ugPxCJYBwgX<y)aN@eit^u
zq)ohl{c8W@@%a^dK@;o6LH=tD4E=kSU8zcZ)?>$3*Vf)Mor2@r*w|R@teddFZG+RW
za;@B$#<^5%|B7ARp6|=oW~1}@{6YH7#F}31D}L6IPkMKecV54Kor#IbD~ai5Y-@?f
zzCcg5b|BoUmb@1y&ep(9YWYMzS$nzhIpe>U`MB;mT88#?&EjmK$?fHzwT9V^##{kE
zeyFKGTKm-+pFl3+zGD~LndP~UdsIHzg{DSbd3E+O1N#j{Ef*IT|IU)}@$q`xT<=2E
zBT@;wxgNPF_w7kERYL|-fN|%?V3ytG+H-<KB7yZ+6FhcI)ICN&KPSYxcvly^>A{|a
zB&i$~=<iQ#)E0MrU()s4_S%%8(1{m!E(S|tCf~eyW4KMhZOZp-4iZWLt7Z{joTXu|
zTHRW^DEr*r=!<idQMgHZiVAy5r&;&EtB2M&{_rUVK|xLV5y&Kl*;AV%o^ab<xm7`u
zfF#Awa@cYs=bc$^_UiUY8n;m!Dr;-&t@-?RB2v;Pjvlz#?v83t&)CELy|s2oxVf4l
zOicLa8Dw9#!~LDL8e&vPs9UN&Bt+p85;o*iAI#eA+6hoq9Uizk_a6+F+6udzXEk!`
zlh?S$$T<G({oU1VxC4qgI>N=XcD+=NgS1ky6v2{cbnsgd_p&(ZTTg>(i##CDEjQ7H
z!u6$e&MYq!kF-pUxUB{Ee8WZ-ha6R?Jol%5gqg`MtKJM1-gp~#urXkXbu-$b@!V6A
zuU@V>?H3qmTl#gP`OV~dws!gJ$jHfpJx$BXm-i!?`B{@if<*-cD6%w*9W->}Wy>H-
zK$;n{5#3vU5$CbHP&~=48BcKfbnWPu7n5r*PM#~%YB-Nvh1=o&rcIgcR2vVPaXAHY
z#v^%!XwG`Q(wZ8vuW|ejMV1DNbEJA`E?v5Qe#pecgo%Y^{a$6lMArD{hf8<=RPhOl
z^A%)YU6(2uF;XFv{^g5hr{6Hh)l|9fYB6YaXD08UMs*K&&>s!qZa-NY?3VkYQS@vk
zuMPg$G~=+)UrNcZ?zaBE`AMFp1?(Xk4dK-vk-pR}_v91#ti{%B7MBeLO>&*rp7QU*
zy^ScPR+t;EERWO4e|pwputcwT5JDEx8wzFKUvQ^2hFiNwTTRUmHiZ5}Q<(8cm9S|~
zrvK~LL{J!G8~gH&COIdahn{BrPl08Cq}RiP-CTzS4Y)8AQ`vSmB+EdEA|jP^<vX&n
zXLOt=$si%t|4fymJr+VG$dG6zJfwr^eDATpv$_q@9Us-psiBD39g*SU;Zc1^sR5f=
zN?vs1hXKUzZE^8qH8nLv<m9j5WVRI<=aF($8ke!KMygx%=7t!4EcO<Xw<n7%9@W&=
znp-e!Lb?6Hy4fK`(>&ui?A&M)FNXj1Eyqzv!IBWK%Y8<PdQdO#DJb|t-h>5oPQ4T?
z$y?MQh+N#*Kf9(t&%5}@Y**TO2%T4n9y<g>W%l{f2Zm3d>i_y0eNR?a94hrEx9wFD
z>;=(y0Zz^bYh{pM*)VIXt8r2G+$~*0t07DQSEZgEk?=3Bs1QOD>$`WT<HwIfwOoBK
z|KobVRrHM<v*n%i_yVQ_4gY`u=3;v@4!12U{{6(mJxtx+`nsL7yH2G}C@h>n))JKZ
z+Kim4S#)#%_tg#S(ZyY&KfA!B_L${yG7=JROri%xhH92~^OKqs8T2O?oavd1H&HH?
z)F=r5mpYX$KVf+a)Qg<Fzo{gtE<pLU5fBm@3}#(USe5lswW}X^;BL$6`K`j));Yfv
zg8V0xES|Ls>^dwMUAUD#K0bVzbL%smZ~3f~+=i>%T{G45Ph4Qrx-BnH2uT`B3z3)z
z2?>c%g+za8*`m2K<;lg0e>N+R?DFstNDijm=`Uej^%n<Ao7&qO;jEdbst<PNN}Sg|
zx=};gu}ymkUv8oin#9C|b|@JS5fmb-oPxFM(_-I(9nB-npLGr=H))}A=gu7-UX>dO
zw{hI@^1dC(QrM|{qxPsyF?`t=E@=@O&L@7IWxv`J*)ed}10iLO!rC%gRPQ@L#NNhq
zM&66jsdDQZlKUismBVTU-(+7Je^>C&M*VR1d`0oQ(b309r7<3^DBT+wu5>kTDKH;U
zl@}~?FtM(;EK)9aFy~EL&u*l4m6f*~C~EZ$J5~j7iC-9M9*v}a;*LOtuG`AX3ZBI<
zI;q!DQ72HTfL{G$kC9_M;w#qL1lgoMKYjYNKgifoN>PyrfWf3KD_x30g3wG}5PRrR
z)_=|iNgTzW8iFrlXCOLao!xiV!#d%Ddm>U@AV4PUuu-fC7Ca|DLv{4Tnb)056>Ee5
zgxxR7J)Y~$NsQAewMl7ZvhcJTFfV>@h>b!8WZyEY{Iv-8)bJ83fhKPH!HX}WHkF+p
z<!;E75T=Db!UZo-Duv2B)X{_-HTriaLUvD2j~31abNy0mVqz#9t$C`R9rG<)TTnSe
zRZe87FCWu+S%wt~u?(6mvc0=m$Fr-z<e{_4^Pr$J>(d=~*W@|@kNYSkOFG}G@cRBi
z`h4s)ZC^sF*D*1(wSM<qrs5qZ)+4SzRD|pleaoojP<VGfpKVUjGI{60xs6QSYU=UE
zQ1-hYLI9D-$ye`h4Dj&YyI}!wrB>-uh!v=`rgU2UXHRP(2`ie<`YJ*g${j5;HH!%!
z<><WZdv-$6Zm2CYljYfP#U)6Gcb`6GKwaVDA_buTDUFej@5is0WPqoF6kNt$fR37D
zvjKibM3A1L7W(mvYb%OXv;SK1o)X+U)l4<K`0QySwPFjZvGMU0T(2%2J$*exv^f_=
zSWHX+*$vfq5ZWbhs=1H99MOHb=;-b3{fuoqEGp_1K=7l0>S!N4crZav?3FYz0vU1z
zs(Z3jDD`ULjJbB1UD&P*oZ(w8lW^JB4)Z@cel?zva@kyD#fWZCoDZVpCxOihco2np
z)9iDeQGPT9ts{n!j~A*s3v?l}6UxmUU|`m(6Vjzrz~tcPyNM$1%im?#P0~9x0dWrh
zjX3Wey+bB>=gxDK;%sBON(N;QYyr!t^z5xIC+mfNZeJWd14Bz*b8|CWvB~}pE^iNr
zhjvu48Vk<~Bs+fAYS&E*VoFM_S)M?s#FqjE_fq0tougsH!hIVyiHEzTnKsbzgtIiL
z`{9YR6i;|xK>;$=7=FeR=;L#&b%5td6H!O165X~CETBbYipe;FFV}W3a<Na>1}`a4
zpB#4j2kSQi);~f(K=38e^T3}m(e1&*?dfS_xWjET#sdnX`=p}#>u)}qg={PiU54cl
z1J1_XIBy0CLEO}o*=1us%{ltcixYb73Bo!-%s1^92QL8<m&kwG>P8iy4U9~~|L_u2
z!`M3h<lebl`#IHX*RGYY>;f+tpUbJ1w6d~F8@GGf7RS#Py0pA(H9uT=`RGZ)F0CBK
z(4&_BN`VHEZd52|)nv)wWk|(W=;)4`^<;hl*c6~$?(lQ0J`n%(>ASF+2zf$SVW`Ls
z6SIoVK8e%L3}yxBhyk3rTCV=_BJ+V)u&Zc=geZ}V(AU3;)J90x7|Nn=Yw3@2LME~3
z@s`LNYDLd36<G`gh#qVmO-oAylqL!2_gj+0X}j4j0s!A)lP!_%RCyzSdD%9WMnYjr
z88nB}{{S2h9L5(&qjI*^CC4HA3o+bguRQn0X<~Fe6OheXS6@%d$|`qY`Qwvb%Ke&#
zy1G#Sc<_&-zglB`7Y2%v??*^_ERXr}baLnzR9^`<w+db!yf0tAY)ztdKRGVxd`%F(
z3~#7`dZSosV+inn3|3WYX}A)~+w;M}!3W(7&Euah|C4*3=)NWr+Y-S4o9A7<$}Fst
z^!#tY>-WDXvkY3TPb(cee!O(wc%UdNhqvD7$E!a$P28~YKaeMmgUpcg;@^lp-^cO)
zQ<Ry1uIxWa2nv4)CEV-FWBBv=XRWV0RY)&WfcJ+F*C0n9<u>by7<jhC;d$Vu>wB5V
zBC=Qh-Rw{~@0k-v1svw5=M-D!(=Z9%Umo8swiv2-P>tzt8n8aWY_{t#^Syr2&2hkd
zXMN`8#WPL|g}s9WZ~UgC?3PFG^o7dE$>HqzluwYAvR47Y1gKeH(s@D*U)T4p_{4>`
zqm{=8E1b^*ZLgDIuk?Wg0SkR3EG*2pBk4E-D_L}_C`(IA9nfTApPz7kdBPcK+chbL
z{~UnDm_K8}X9&Hpgao$YzTsN^+%16#FGXTq!QLEQ$Cy3Gbs&RfId|FhAeG*XmUWtb
z@9Rc&KN_EQf=39Tr;fTWV}Gj9*cs&>2a}O1cYo)_B2B0XfSON0T0JMS_1PkNetw>l
zsvYV_VH)H0>(Xtz<DsHl^^R-5<VwH#5z}#5q6HJDLWGt-ALWet^5P`gR6PTB);OXN
zA%e|c3K6Y{2(|e@Q9Y!Pki&z`YCg|{idM8$VEu!S8|(*8tIdouWEu7PUz*=AA~yi)
z%|%3fdiIP3aIqCs{IQo8bUs5>xxe3+!gQ)9Q~d>yh@_{jF%UDK@17I(0mYzn@658Q
ztm?^g)O85|VUUYKma;qJkrYT(9H7g^iF#Ja+DEAZD;zYsbm`LSA@Bn0t?^P!h?0VU
z^Xdn!b~u5`B5Kcfi;XG~$NIAh4!u542cjn{@lgFm=7Dg?$8an)xG3kBGU5{>$5hn#
z`T56Shm)hUMAls@FY;Q%HMO=Dra?87h?16<-{^>P>ILw?T^NSrFlwXJ^`#_Y9y2rQ
z&DKtF$x@>UNZJyxyUc4b_&OKz+t=Qo5z-nOF@vw-1sz=~JQNDUipS3=&u$C>)A!$A
zEE<^ZNIs6@uo}JXYnYdp*J3AxNlEGJ$_MiCpfM&o`a1fOh+7GEHDODrcnUZM4|dj0
zAPkMhm|XT@GOYy^Vr)^4P)9a1o>*+xK|Re-xnnP74w2XyN<PJhl^q=&`k+|E%vM0;
z82|Y6zH^71T}LaMgMd~Xmd&^?F9qwuu2Yd(+LpJoyHq{7b8xV0x$SA@wy~p{ARs9`
zv$ZmABitBDv)S*m_vK)J7mMS5Ky8t-&nW(Qy&k(d{Mc}x5E0Ata@AVsw60#QRwYoT
zh4g$1!tDxN5?3UY*0(qHj>s~cXHZCBIn;$Zc4{r7lCFAhH85^C*We_OM1R1lv7D00
z#I&@ulT;eFGyHPmD_u9ET%v(>Uu9xyI^7X5G}DQhw1Xnxc2T;oJ5#+gBZvLZf@b&k
z#yenJT56z#9zk6ccCqU_vQC$<BUB8E1V0M(;tMLd17AW3p%y~>>z!=923!;!d4@7^
zz&jsmJ!iOe>pbNB#sp#4WzZu8SkM3rp_-#HpF{z=K^mCu&OrAX9PtA5H0XJ_pF-Us
zCr-*l?Y^#5*U)ek<TStqmw}GY&b{{Ya|=Klr+Q`UR0cpq_qko7<j_AxNG0F{P>m_z
zh=dZznxSwY7WKSiz~ndd>Z<JbwyaSSm?MQIogc+*E}-lLsF{yJ5J<=yJ$Z5)|L3YT
zB%hJv^MF-OPOO8luvmL<@4`S+dDp__3m2w3%3v{NAo&5L8w2&WyWlHSG;XSPG5juA
zsN@xa@z!?R{Jx-ek=-+>n;v^kND)Qdv>p?e!zv_-Xfrszc=2Lodnyr$bA|v`^3!?w
z`75BW>dkylxyWaA1p)V~E|tS3f(o%ba#6z8V?MPuH&ipfk>;qtww4UK_#86s6?*#P
zkla40v4F7G*Vl)@*;cbW$To_k^?L4*NYKqg0K}dRm65%C`4ZlQX4h?acjv_uD6#H6
z7B$_S9Au=V?*JFuXhZC(eR_<?$;mlU)%^8q9aMD=r{%}hyTsqAJ%uIxn;e0YG046}
zp)QKJ@p&pTCTUVjfvh5izYb^#^i`DC4sOn%_SM<nv?cHT`}e62F@(U5Ul=7gpYS}`
zW(3@zJ50M9*I|4N<w1J|-IJqx4&@gRAO<YijZ&`99L^J^n5Dt(<LkT2M{!ukv&v?+
zE3&s-OTCZR`iuu_wpay_I0oH0hocVs@~~pxxypQiN8Pd7WB(h37XsCR7t{bAR>H_r
zVXzAE0xI%LBh@s3`FPe|czY9Fy5!%~bZ^kUS38BeG~GknX_b2wWB~rS3-BAHD8L3p
zP8+ro(2D>Fn=T;i;@iN@WurNd-|i5(CoeAva@XV@EbP}9?$eRXDmB21^tdQiAh#pQ
zY(qm9g-8g1dd}YN=;Jy`NO>FZ*yP^3cUP3t9vp{ME&*ABDtjPtYn<c0c-3atLxrE+
zk96xnM6n+IjK^g;JlIQ1OuT)@mtOTIh@&-t<4~mZ?>FZA3^uXvgh8AW)p1*qh&?PV
z+fA<&oKN7hK0+rIQWx(yeBF|h6S6fLL(rcw2g=$-K?fF4gnT}Ix>=4{O%QY>gn~e=
zQE2+o&kw(@t_~p@TY%ZEpeB{iL9u?T)%#niQ!BGG@xN>zfqP|Y=syG55TAhHIn@5@
z0~|XB2U$$5!C1InbpcSE8c0TxAW`|!c>MVFl$E`5ouuel--C4B(zUg<l}-iG_Yn0Z
zKw*hNei*PQKYO@0CAtDv+$YRk$dVHex^@tiAUSkR*r8&51JEcN$449;9UWtUi~9Oi
z7P<vTQDt^BV-D^hmTj$K**j8XE(|&hn8P_C(p1>nw|?hD_lSUJ$V(aHNf5jP9-}w^
zBNvgW(v{P^;aa)Odd>i%u2~!^U+7r@aUKsva{j!bu%N^IX9PTedaInJLDnv`7W7My
zEw=S(rgk|wXnF_`M#Lr1K@2{7;l;3-DOI}I0}|o4`Sj@%(TL}vuz=%Y5QG)dA>y~G
zTjXpbp*#2{sWC<>HVW$oN<B4lx40|@FLH2jAd(g6c*|{qOUQ5Kdmm~TnqSBO1kIvR
zfX`mBe8i%Bfd^>}A$^(>>v66j^P&DK(6c`Y>dqaoT0jk5l`03hC(2aab9|<KZ7kD#
z0K^zj-!F#>t@=^w30e*dVX!f+Pn~VE$yqfb?k%1u1ELc|BdR0fXh)X^?F{Vrld(E~
zo@VXBP|<@Qiv_&;%uGz5;oBzGfME4sbF@@h+~9|#dg{d&FUeqv=0k4Nu2k`AYgkl5
zgC;B%Aj+N>Cc)*@%F4<gI>KQ$t%y#Hoa~cw_?YSL_PN--^Y)-;f(84d!9EcbKq!P|
z0M2{if}5qicI_A<{{eTp327!%tMvN~bdY~=aAe}0TSjf`PW#ZqtiRj4N-x?`Y^m$~
zeg`;P-@=ZTcAT#J(N}=@5Uwv!F(U!Qq#k}ZW2Id`7bEKF;V&@TlXU~D$wIyYVy|Fj
z2hgrhTQiu%`<Zj?qK92}$%OfREIvdvPdJ+o`OAM)3qpCWgI3OyQi%KEpCTPIc1OIR
zjic#**@=vt+_b+)HA}-kme*2XkURtME-^LrVqR5TTpWqDsrv%b>B`h7Y|$HnUdq^y
zTmv=(+(%*8jV31~S8?_lfb@<ay@h00b-~OjAYVyPcG%_s2Sv8p%*OUWVv(4bnhHb&
zJS`81X8B^Hxt^@6Y;0{NXMi5sIjx<>wSI(R!vI~&>%g*AlR^OW{Lp?1vaZK~q{et0
zhrz3ly|sXi;}%Y}w)C^99_}xBzWnmos%#!&j4E4qsA{8M-mJWDZ8jt46e<atlx*1a
z@ozTCx1=iU-*78<CS({sdGaG`z{R!<Hp}+5QE0t>7`E7?vmrTG-5uBc$c74_#A=H`
zoO=G#V68&{Cks)Rc%Hp&oqBr<bk8@2`T6;k<eiWX45Q)jktV{Xpbwn~4tJH0Pi-E$
zM_+Lzu5Y*<LzHL-muyol_onALT-J@t=X61C!d59m^NebE;*-#BQ%KK@Jk3ZigwKFy
zf+>3zuez<{E}L%Ed>;Gs^jb}PY^FN&)1*;ECtf_~)uc<(M3i#BozrM}%z4oNEPB;r
zt_?w#SIgtm$&)7ov1s-IZFE^SXu!RTtF!D2`@5UHUE6q9uooU_{_O>bVo}%6XS1Yt
z8uFLMrzMpju5`hL8@43~o820L-VR9CnkXVj<N3SvN@f@$FJpkw{>O4-c1{=d$QP)X
z=m<i)!%E#Vn1UM=W1EW^#d1*T8}b~Nh9L;#Zksr3l~{eTpn^Nwsnw|Kxo?<1|NgG;
zL<ML$UnZ$~l9Q4s8C<%|$7VSUTS&|8Q*}WhUw#fuylA)Ty+?dHS{k^}0MB<448Tn)
z0cG3F#bMk)yaTbAA2cjYbUa|S9SjtUm!SN~eC_SG*nsSgkJ4{?P0NPevGwk~oH%8w
z>#?1Zsk{GjA4=Bhp=QxDYYpEWsUxnt9okj$%T<tpZT1nqgazROA0?L4TQ19-T08}~
zStrm0x@~!1fkw0xP#3~Zs_4qGbltoDMKemoSCBvq7rL2E4FIcXSA)4-B(KuGY@l(|
zeuV4WMk1zPM#j5$XyGBL1lO}4ik+*&_m`oCtI}ir>+2=-q`x0CGxRNqa3?=tB)cLQ
zq)(E%H^c4@Y5Mw=G$6?jnkKoHBO=@M_+Hb4rTIhlWH~p4gtS=HKHVNHu}&6mGz31t
zW5_7`_R9Cp&X@K2#0+nw;{@#QgEsQ8jrZc2t2b_77hPbX_3&=5&vs+=1dXMaU6?;Y
z&fUJ@1i>qzr}sXN7xGZ)9<Z>51|>B$rZUGRHe}C1&yoomj4zXz#FR+G;^SGNZ^;V9
zfN@T}*dl(&1qqRSVTcwIs6KfjkXrypFz}f7UrTV`P%kE_xZN=wiqN*zLIcj|I=JU`
z!kdG1SST+&KSfrH0E($Lyf?J-7Y5;lhiV%_L*)Yoa~cj*%r7jgy|*)$lLU>o8e^`g
z)N!~IJPVMUcymEG3yX}The#z4lz8&=X#ha#K!943kV^(wz%-y0dl5L*TLJs@donWT
z;Z1K_pF)$J<#&3F7jn)Mr-a(~dd;jmot~UciwU{VV)`35WI*6lhcqRHl8{ax%f+Xy
z1O5J4krZ^=p;o9h7=*f9ay8sb3D&AN;ePxXg%ooCiHRp+K%fS`!CnDG;SU;ii_5Ub
zuDLI+WXz&G^^G?q0{#916F~1Oa3Vlp#DS_&;+?vU_yiWw^7gy^yB(5d<zyK77}HCJ
zOYH<YmTn1}&;bF76j<Bi&t4>JOXW)<c%;ESHc#sV$ar!PEk6);v!JX{R22L93ZRpq
z_lTj0EUUIZ*4p%h&7Zx@W2cVUX(Tf;GAg<J5K`EL%lGf!LHyJQ0WArz@>OQ$`-l>4
zw>YQ{DwAgCJ$(gwCv1%-fsW%2<?N;stN#vYXw9n#yF1w19$THnLhT@sP!jj>sQOXu
zSq+Vzh)E!N^PC5(({!$Rp-b$Lx_)>jJY#?4ZmsZa1VpyU3LrR06eAG?^q~C$w4L?8
zcps1PaAQ4<a}c;3DKD<v!SO}&Ik-&JJW48|)j^$>Um#sp>w9h>3+XQ-ioVT;Bm;R)
z#@4h7x4l$t2R@mEQXPWmOF<p%w<v|M!$*xZGbY-Vh_DjqC^USa))NB0OY8HAKi+C}
zqM6X3yGB3P4<bl#Xc4*;Se#tEKw;M$Q>$6y<C}g31zhDgtx6Y_sLKL&#%bfrq;pNT
z=g^dM*E8Cv>)$*AFdStM(TNs#wYTRM{TA;Em_Y7pH+tb6omhqJXv-&N1NbCw5Q^Ee
zUxr3TfuOLQMiHLxP<@oGWgSE5^z-F~iM`ZRCOJCxOl$#UfjS{i6S_y%QL3TT!pBe@
zpiFSGE<wapf9_6Is{J`_L+djQO$ipWr2>1iT^_TZuZydO=EVSan{cM31uq1gkKOL%
z03yCbf^(w#G8f!#n*p$`rEDSo7qnqVu-k~9qtScWvO=%(RgV-%i^%bS?A%F{($m~#
z{$iG^_9VOjiaeo|0^mNhG;1NiM}9e!^Hl~~AD}Z)S_+ULT2n*<5I;u!Y<EU{_JA%)
z#Uf?0m{WGUHPA_ZUF;>Yp0EM{csytdX8FocBvdgg=tnetZ`|EjTaqm)@OKq%ur5rd
zvoHEDJWSmFnbDCCyovJ_r0?x(C$3)g{0tpBC>T21KY4&OhIT<2i?0m39Ws{h=q_om
z4VP@EreI-_%>wyO5Ht6+xjC#i!+fwLcZf6L-m;4T18qRIt5Mb(Ts0b#U2HirOxKIv
z0iE=?B3Hn>5^wJ#rHjDu1%y@F!oF8HXxV?yqWS@#y`;<9No<8ZT7%kg&|1phr3>>q
za*}iiG=<x2heM7dktUj5(pB*Fd@N{C%dlkC*Iwe*YapWK(5>I*a7Vn<O04w!odF`g
zp4&zwF7p@mmt5nW{<^bKxWFxNQ)zsh95TOPfAw?sg%Z%2??x3mw#u9BhEQ;~{Jx`L
zSBRPobX5;Ab4@%y4A(QhHfRdYha+Bo!NG;Q!`T*S&?L$;EdhJ*Bug#`BS}~uiflTc
zd)TN7sf3OsBNvx)oS<Wyo_cZz)3~j}iPw<=Ce_eF$*H^ML!_jnbcE@CUMQ8IYUkVz
zkf>ft1?SZ+4rZUJ9m*7GB5)Y=jo3P9+uXoKbJR;E>?DQGH;YuM4ll;;>>k`;HCmwe
zS*t3+6y>~ocY9+EkoCmyiPA4+tVl6z*S~Ugm76NH1}I5br(x->>~i44Q+5YO&k0?@
zoTKC$Etr3(AUtU`jAVm#q(@tj07%PjX_yLSwY98=aeV3M%d1bp^X#I4{p>N+MNtnS
zP;nriy^e@D7T<<@zYC{q0Qh;jFP{-&&=)9Otl)9c!@V_Bz+#M9<y=MO!X*$tpjV`o
z-A>iBVD|yA8p`X&qiiQ`LMccnIS<&^z*>Ud(giJDvD(8OCE;l4F_VJ+WYWp72VuiD
zcPq9P(T`A9I5>#etG4vh3|g?*H|ARtZxqIWkT|OGfS51eSYO|40xGA1$o4T5B8?-&
zR!>iF6=8Tt8(ttoIgJFGy{HJMtf^nWt_llNp}s-c0;f~UBu^^ZWT>pL^{<^zZp0It
zYltPU!1ZW?xXucVH<`gcS0KA6FW1FVOxM7KML8JNnsDbX^PB<hZL3iQ{MDvx%Qdph
zeSwND#iV!)91FCV+M1gCg_+eWJyXse9wNWm;!mS4f>mT_a|03%B2%Dl>eU=WJDPZo
zK0o;h3<*Fi4WJo{T->*0sdFIcH*pRWTQ)+0elg;)+iEZ{W)hI}_}jZX;5!k3y^jb(
zgU(a&gxHJ$Hg@)Q!+n4n@&Gbj=@~{nbK;@jicnXu_B4Wk5|)^FPC^OkOG0@pupH50
zgEp)}4lZ<0$r;C=tyOw;z#iZkFhZ*x=d@u)P*n-%a1u0q58d}}&&KZPACgVUyGHhI
zy!7#T47CE~1-_!uFDGg0F6g>Fhm<!CTOcK%nF{faJs#ktyIR(L6DmmR`7@w{FmK{U
ztQ)E1r{?Sg2HiJ@P+mZ+_*gYTKJ;DdYQD+ZOlT%W#k6BHcXrqhEKvA}t)=xaid{DZ
z$RZl&x%JaGRVn$zt239pp(8m8VgllmYJL)a&R$Aqzy3T5=pi#Ei$K~k&!L5q;OyDs
zsA#4xQ;1M{62n>F9`=G+_8YLgFPH>&zswkPBuUWEcFf^GL1_R)L3H7QFLZN~?)nlU
z-(uRE9SnNeS3S-tz@~X?2TPuZ<;n|>Bg4b5V&H0K3+4fuO&07_P9oS9m&9}myl0Av
zidSer$dpW0s%q=n%>-u2Gsow+7#HU;msJdD$R!%cYv0#3G>;7#rXNbT66j0NJ<@N9
zxV{Aek2EP`4OHCSii|tN=04tAERwOY$%~@~O8|CtR@@A#MXQkgF2l8J5o)St<<9-T
zmA+m?0Q5KPmOhc+muccYJ6@v`UZa^f1v@RGvt4*IuGWT5G6;pzDzhViu57omBRD~+
zohOKq7zbmbn1cfka3sUE80Wo}MsppS18{zhM;j%4fkg&>83OTwPIL!t30fv7#V+}5
zt!fW#`Ccf9H#qQKi+)yPA@2gS9;o%=ASDq~Py~Ru1o{J_F#uDI63u%8Y>sm3pef#<
zfX@=gAMlXTPmbXYwq3?Pu}(d&?SlIgh4q!AS(dYb`<P!Au8~t4xS7tANT(OlE22VG
ztTbFkdLBfVF9(7)0%6_p^pKc1%<*@GNy(XyR8@9WPn5}E*=IC7&3or?i?8TRE-h#b
z7c?N6X}^$euKr7`A^0jn4|l5%Z#>jeoh8;Brl$SbYOlr;MdHutDt+q_NLvh;!XQrj
z25=O^Mk}$IJOu#llV0r!q>%x7&qaQlYe~t;xggMzVAJ0C&$2&Bc`r}OZSuX&qz_2-
zQKtJ$s_Dwj7E~!JZWGaEY`AF}qb@AzVfX~Q`2@3k2DCd7px4yW@|{vw9m;kQ7U1cG
z9RPprsF8BVoVaZD{Eu*(%Ll>KMIY7u-690IQ`5}%gSS&{M)FUde28=4F_n?4Y=^A&
zK)<S3q&<tS6z?6FtOz~#Orasjvf0Wz5@DhZPLq<U1lMKwR})Tyg&aiZy2{|?Pf&X8
zroZ6<j+9VVCJmwF_Xc0rqt3j|Ax9e2DEKVdqy!RyvB+N#WfQverfd+p1MF`i>u2l)
zWD|tcMIKcvY|$xfoW>^W9xX|{;!p?o&vAF_`43*)<iVP_Yw6g`g4wrsc)-3-CU^J&
z0@s5?i72&T&Ae$b$Om0mJpixN+L#!eZQ<6rMRD<Bl0&SUQZ#&pvqlQEk06&|?f0R{
zXC<JkL>edJPJz-&7@L!Q_AE0_#C0PR_Jhy!V)+4_q^#@aVr0DF9D1L<dXMBX&oe8v
zoFpdX+q{y9nMT|<slc4@IzIkvU_I#X6HI9E83|-c?N6?OEr+eRQMVG@((+O}#{2pP
z!dY;~Tc{WKfKQ(Xk?V8NrCYCoNho-_LSqZu5|1CMx<}*V(%MsUp#zAz?c`J<cceK1
zR1iEw6V&G=tkgLdSf6Af9*I+Ot80b4i$_W&nk}hJrprJ}`(FG(w{CxvO5E*^dp*1(
zZs%`ztOy%4oS_u;&<Yt=p~>hG=Tt0`;VKzmn`%!)ch1V3`~fymU}Y!XP1_Ll5QnJt
zY-H(HR}FP`X&1)cnpFy$bmm7Ri)E4}&50AqWgzITSaJ3^*mI73QkhTlxl4D?=<8dh
zvHjG7oy{e7OjZt_C*rIEyzm${t6xY+1JD+kZqZzZ8dmba)|v5*)Xn#mG`vD&ozRTC
zhS8>f*`3T;sKxAeUur+00Oa`x?mAJEmDI~RG=1?R9`82f+;b06?S<%^B88mZaZnP)
z0TCiix+jK)%`&dIrIC?evQ!GWI^HLk_}_Z@O{>-bw7m7~$4&nIu|W2#yu8JOJ=%LV
zN9w77Y{;YS?Wi6Lrej^S?@2+tAb8^)lip}nM@2%&bs&T~blKpTEwTFPP08P1>FVg)
zThP+fbQ_Ww>haH-mrg777ZAZ6dR$_d&b}ZgFb0QyT-b(h(h8AHZ|dqj=02N-so*ia
z#>q(nB3qT4&Ym(4&d-3g*R`NACUx<9N?_*#?9XsI;(<alqgx8X;opXeJ~0SEk4IzH
z@L(m>Gve*k@7+A=xr7F<8g!bzfa_8TFbtyFLZ%F#QzboaS-sEWmBelUP%mYe!Erz$
z-p`(!(*c|coX#dod6#=O?Cs9VK3ez{B+#LeAS#>o<_YYTZo3(@^V+Xw6IXOPO6bse
zaW=o1SVC#A${~B_JDH&{kMIKEE#t0K;t*<K#O4dc`K!rTH#II)5a3sStql;*)iZHW
zefWh!go!%=?J{GuwMBK@O$b=g!B;f1L+o*`;gwh(=NH90O^fR*`-PUXp}XgnwOmUd
z=nP;wXKva|+}j4L;3T!KZ($-~iO6n%U+PuFjAR1&rQ%~hz+=QT)rtv9fPNnUXoKip
zVY40<XsXpL3PHCCoGHyy*%nqmWnqg@&Xhm~MO>A7eTd;L>>h9;wlx9lEe6_S2`;nO
zK`{V%#{ft${<(9FaCt}(LDJMhf44=Wa(t7uodyF6)J@`tA7!oiL_x0wY5WZ8F|@it
zT6<NSM;7mLOxA=X%oKDB<o|Te*`A`k30>Ol3h?gntY!5U9rc0<3gC*M;P9K)sI1Dy
zQ{M1+!!c)kH?ZCtJW{1vOQ7?7f?Ggx$j-#{n(l5l0RiOhALV%H>VmKgKD@`E3WEJi
z$!v+#{atD>;xC*ZC_Z<)BY3){X2`(=nyhg;Fe*@MBj~s&4(EnP>Q2lqlBYgY1?}nU
zxfM|kwhRIS8al~Z@z0iv05We!N5#aL+ENbK0_fgWzf3_fyR1>0uqVU|$XCFg8B&;s
zhU5r<))t?3$jsbXy~Maxs56ckYzlm?8!WTEIiZlq-veQUi4QgZISI3s9|oadB?W!)
zmq59xL1Rc{XHVGfa6lT|6Pr?i?KIGTb3n#15HGOErtdxpK3GvF3k1@hD8L8>rN1Z`
z#+_ez^EzjQ&V%-uxbyL#>h~7Ek<ecSBJg9tQS#>(XK6Mntj}}dq9tMVaKA-z7|nPS
z6T^Jw#0!{e!jG3{1et&l=r;qvqbK~pgFrZCQO(x6E?_r(1?309Fwlj7syXPdv*l)k
zdV<|X`Fwdy1R<5&)Z9!ghOfsHTMrfwi9mAJC(+PK{SmCG-3xaz-eMf#^*y`w7j*qV
zfrhCLm}voHfX@2Dz@xTvgoNb0mcs>_kAPhqL#+U+7SKurylCGVeXB8p!yWQO-q-Ib
zGUmS^q3X0<7WHuRH#~j%^yD4{j6d|nn%%RR0-Bndh`_B#4thFIuEr+19}!C*ezY8^
zLgaOj!CH1KhAXavuZ{KuA*EVU2ts8SmY}4cLXCw8E?Q}{T?WvR!!IwzV>!%%@`Lsl
z(kuvon?~?k`cDG>21fHh@VYkR01Sez1}Ztv?l`on$Uvt+6g7M$yUdi76n{jH1HdV@
z$d~~mA1#KPOCw8M!%+7gpom;5b$TrAk;K0l1t6pU8EEFjkcrPjnm>;;l2BK`N~Wn#
zHS08ADKf9bZVQgOYI9IKPSJ`3%rYPQ+R{QIMoRSvEDS_2u`{+<zC;dSK57!VfV6m_
zA-0*B8J?vTkgzX+E^E^V5Z(`N%|PZjWIy^b#bPYXXvDQSc3EUs?5$#tc%{Nn0ya-w
zUERhVgd_IOolHVXzQ_6d0JF&;X(G}nT$<JgxHO=xTGMs{>Wk0}v)9PM0IFHKgQ^4R
zkJ}PmD7;X4SO{G_Hz>o1s{zryu8NB4f?wH($%V?u(9j>+9DbnS^cA#1RB>nR0;vth
zBEqZf*KAl{EKk-$ObFtl(Zp2(n&fPQsu>6tw&wi=kP%)HQkkxmS_=16Uh0JTl1TxG
zC>CISbfIQ&myies9{l8dvHb`cFO)WL39@*<cu^1P>R>=dfsk{MOL}|Qn>TcG&@>M$
zaaf4yEbDToMU4gX4ihoT#}Pp%ATOxz89B1Hz$S^|_K|~0J56)NHC=QzO{7W`CwElu
z&^fPC3s*0k>)z9j2KW>R%O3zXPR*)BwcQe!CJLVe9z+vo;i--wv8t%7eWj~On#9m?
z=z^=3fJviP-=Zi`z=vTnt|U`8r#BF~Q$K=Bx#DR+y6VJ){#wu|v3g(YA{04_6PE>Z
zW!T!uGZ!B_Qh{by#*z<UieydK9jAhx<GFZ-XBVr3QN*YHC>x#R?8<EF?FgWlCr5Yg
zg0@j8I41hL-pluwyZF3%6##A1@?5p^AG4{UWyh8~4-Up_Q=oGS4*jAQcELv_K_YUP
zI(PBrJLRPt5J&X0$lO+(r5t%#l8)s5<lR=9{(CZU;H8MgUOZ1iQU{x0at#XF!@D>7
zrsT`<Y42aNiWgSR(J?P3wBP+THHA(a(&{TPd6QWi^UX>;Ug*fXnID9(>%mT*rwQ{k
zwfF6{3V=v49Eo44n{oy({lsC8PGx$jFpQ;4+CYcoQ}m;LCzKx;D@=8YK^%uP#)|Ve
zgt({dLBq`)8yn*?KTMJcY@ug>@t6K$%N*xwP(**|X+x8*l%?2qN`B$&0$zfUq;TKV
zy?ghVI$rhISMM&C)3<m6nobdrhfeg2>YkX>$KUEr^}5_k{Gk1*v<;i?3!8NtX`Z+3
za9}$4J~(yb?3`<A@{&A2;Zr(E@4Zcbe4+*F@hwMJRBqB<fC`x7OVH*bo#TPbeV$76
zT(t54^p4mVX6Ksu^FUW}K7T}N-9^}A>*q;ivXELG!;9!8u-T|kq(f;Qz=a*qiJXQ3
zLWaM`K^zTEdO@ZTsQ5^yXm`H{ngP$`S?!;|K!sX?aoA8S?GSTUZ-Sk}!>hRDtr<N?
z{B=N%wX)}6ff@k+B9837ctp{%16!}5a8Kv0?o70_UudWlu#{TEm%ly5UP--Z;ag9?
zzQ*AA9~N6^BaUToayed9fOvi;A8prACJW?;YIq*|I|9H!R0FAR!HNo+x;LS}VQ#CD
zEXa$o!)SXYZN@{#Tu{3RRs)#3gVXi%X629~8W&A48vU)2z~5Rfm#10EV_rrX3_RiF
z7dmSXGXE+kel{{z03C*Jc69uXqU|}l)ode;&~lft&*}#0(0K@pw4SrdvqLZ4Isti&
zWo>mh$uLoHU=d`oJ#fdcS*EW8MIQ$*1uOb3*iXPP5(+t+Ut7V>jtfTYW(wLz6$XVR
zg$;o`5E|qc>mq&jXFopSfefn?EYsTgn<X7|@t*bBpK9K)sUKQ^P72jWg~Y`?_D9K*
zXDNl86m1g~GQjqZjXhqqGn+x373;?|y2Vp1JNXmR6*7L11ha@q@V!VM6F7F*>(^IK
zoVj=f=@@QC+@WpZIkg7K7-_U!6%o;aiL(yq#>YN<O?7=CXFwIBkVuXUK|*8qJQNJ@
zwgiIhA4;LFu|R9b8#*T}#T%Glz)UCd+cuaW^Kc~aHk1S%eqf@82~=X(4B*^N0+@CI
zhP)6NNfvx939pK6Chwz@uVsQ)r4D2R3DD2QfvbTYdljZ+AU>3k&N9fM*>#*`ddDnv
zbac`rxz%V8lk?CH=dD}yK(&xTRG_30&}Srv)+Nc^S7(T!EqL8Jy_yarb#mn2&_f}G
zQv!9&4}!oSWSBtUBz;u-Kfrj6cl!(lSCh%mZ08CH&Wi=}kQD2oTY5vIz?c>=&P$z~
z3t+#|2g9#E^giW_F+e4bcsaqm8@GABOEes<oMjHn^PK_%J(<2d!z3sWHPDK9`}QI-
zQ<iHnB;YKI{uO>yBO*n+3w$M4VN)S_!Uv8F=Rt;?A|xPYYZKqG%!RpB?fdzj@!Ol#
zhpZ?+z-auekKF9u^)x~wBEH8J<Q@*&U$Pyb!x3M&z-T8B4}6Rqcqh@}cDrXCIB>8P
z=7!rshai?3&cg}czzHBG^zxj|xHw9X(mnl<+K=EJFqFuOOG%vu$OX!v1b9ot!6aYj
zef+dm$j2f~h2*lSv+?#Iz)F39^<$v!5JL+I2_oc^6)+R!(5}xE`qqc3%nf4at~m4%
zCyX57Hr9c~n>#pS6GM!&7!nq3!JPn}FAg!JdwT5TNo-kQA^}Dfnv@XtbRaV`E>`VY
z^oeFdxkctrx4;5!&W2Iy+3FsgK^ju*KA!7xSx2DQB~=y#jpFJyz>x^uD>WE1MZ9)k
zza|!lmj|zt0&->7=;=%6=_0`Omp`$RUPvP+uB>#N;OAswX_}az)u>kmM<bv?^Tnq7
z;^NA~2pF?0a)7zZ*x0Y&##X9_iBRa-fw4B^FMDw9Z#NSudk4&FiIYhJS(~6&5&;H7
zBZUmR4Sxa`7c`aV*w_dmEv?z}iHnQ;<*8O-g01shC#Mlk1sQcle81x2)I3kWUPOHc
zHh;8IXKCCRJb<CU$KBHvVTg3%?DN4=XC^q4?L;a;2ZTW&cHji3F@nEr!%k;)Y)<F=
zYsh{=kn)R6@FPyDzr6tP6@R@*-|_vsQF-hC!07$|<*9v8nE!hHzvK-^=KNQKz?qfP
zb(xYf=-W3%)NL5^36e~H)H5CeBuhD6dHq3KYb$ikMM9cXVdmv39UUI(_fT(dBXMNi
z{`@82=%_tM(MRdZ1kgD^foBxy^wUTwKQK0C0;GqBg6<fY8%07=KY+Um%=dTjpTj29
z^?m5AlOyHi#D@Y;H_Xd@h69q4kQ@QuDGEl#eEXhlSc}tJi<Yw!ZP>zepj}zg3L*F-
zMM6GagZVG0E-0_QXOa;Ap>)j6k8fT9Zi@mX8Kz+-#{KS}I(N=jC+8$;VqyZkpyPhe
z(l+z!_3!BDB*5GKceg!3jI4YB&r=8!d^?(Tr2?0d_8{ecUh*{`nAR`?1&~uRuzt*u
zfY#pap#K#l&IWv^CENs?SrFKj4TBDbUkSvwEg2kpY%8>D5CmEVe8gi{K)HJAtt>-z
z5C<1m*V1ObJm!TwW^G{8eAKfs0Impo@vfNI-hsR3e${m7N}6cmK2D9};u*Z+#C?u0
zb4%tIDJkbS_xr|12==UR!m}pAikC^w{vF5QrTR~L9>m{)^}p%y6aUY@PG!{|m2lPP
zHaPX6cNh$|XMHGvU}(DwR<vc$!%feaS@50I0Zm1+{V1^M5<r)rK<ym`cO5=hDl}J|
z^DX|FD=7m%!?7i3TQ37mh}x=7Vv30pg`xC@pi2f155TX%=d#WOb?7BBmVfQq2ie?z
z_i1~Tw=!IS8IZXK=&&MQ3&a{|tivNHco`YYgQr;lHVdYgiMn$AIsxD$#O3J^laQyu
z&A|FlYdACZpH;CiCu8`s`}yd($1s%PwB8}5l>bx?5QmwL1NbFiFBt>+fqLN!I~Mj6
zEhJoEMXw;g0;_tRkf1YLQlZZKXJC|=c&MLQ*1I^<he)l;jUV+6tW5O3e0_b#6Ja_M
z^%w>eJRbh*%^j?Xqpe@RibEbiA<DP|7I~@x>J#`>s?+{;iqlaF%R1!_XHn2sI9;h@
zSuE@3CWJzqkpK2zO7yxXN6mo6q7Kl;g^VmLAUttVfN6x1!K_k!v%+}|X*!m#A!c^Q
z1SheFvMDK@`%AoD$b~^S&QN$URe8pfeH;=8KCRouU|ZN{!0a~cFVd%O+TOe8Cl|YO
z+Flke)uS@eULbyC$>_zGciWYjLdR=72v3~~_dKd63fptG7jVxpQi&Bku8r+okD`W?
zC@`{kTuOEkg_WR#z3SWX10$ldmwUE*w-oZgU%z_!5^i-J@~aRIX66>(upgM=_JjUM
z%Efw++(4^2mz=9G<O@7x6)SQK*{xf;<e0c<Sq79<|0NYiV^WEZIMS6TL%<fl0K}ee
z%Yf%1l-lJ%_~|nEbnS8AWs#GTPN1puxfhK#twmi=Z05sAef&t{bf_p3+0>GG6Qo$k
zHG}O5KmY!RFN}1oavdJpZE%{Mtar)Ma%CY8j8hF=Up5>PfBs=8?`0L?d!L2MgkooE
ze2%{#G(+ZyWpskZ#}O3xh-}puL`7+CE7cTn(G3f!Z$f+{)5zs(kl%qToo%&_l!T|P
z0Pw>jt=CXg9F4@4(81vI!F^9K7*`8+^FpH$U=S*RWT!{QaqB$TOOb?pP@X8<s@WLC
z=q%6x(+MCYA3=c>J+T`q3XiyXO@{`DJjhb+luFX@Y5Y^Cypx!aN#LB?>+fOJS4k(J
zcECj8HeXUWqOA3?B9d&-1yA@T8HgPCw9r(TnX|gDxMT!{2Ap3=p;1$NTfy?8dT|QC
zA@%?*>cN(((90Vw3o_UWl#rLNUbV=CzymixblQOfckS}uy4ATPKh!&8x9SR?Gr~D~
zS5ydLj;guQgN=yr)5<SLZvd`2UGM~-i4aYZFPhM9M12O6@WL`h2{fUOqX1;J8`<~5
zpuo&tP*Bi=`j3%i1|OILTKx<>-!FbZVs0*-fOd~f<g<h5u31n5IsU-(%*F1dI|pTn
z-8m9aThJWo+Xim4`FHm0MKeZ<OB1mSL?W7d`)j3qo}r<;rSk#RQ(Kze#ZE#H0MGLh
z_szeZgc#!;TJ1dsa5pNs9yGyc#o%^wMWN0KufHDYlKZDr*umWftNb_6`B9%iQc%|S
zfMz;~0B2Fi=-dDNR=iQzfVZK*12Xpp#jx4T7mTEj!6pok(?D<+Aocq!<=`&>=iO<T
zN!WB6`scgE+mzp$Ekhu`1B3W#DK16^G0THuFmVWh?+;m|k3|!1pzPb5cpzpVROpj&
z$JN+vc=FB{Ajb3Ay)I{&rFf6nVE&bmuNpztx?tsY_XzHgYDgJoT=3wb9JP?pb3rD7
zMk>`|`*3`tl*;h_p{GK4^po({$5X{_n_PD~ig%14@O08`VzcKYk^N;6>5A%+Wk-hD
zB%W&=XHiK@&04-2p&4|=bjZuw>jX0^@oW6!57f^D`q1xwbvqp8Z6t`6e#&X|mVW~0
zCgfz*6lbeVlWoQsT`?6mS76pF4@UCuV3gV$zQU>&_U!WSXH=nXkK4B$s{rj!qsq-$
z%^aZyz$CuI#d(W71@{XDpVedWe&hjH@bW7Abb|e_A5m(gc>nz)ti^w?!(RdMf4vUM
zVg;vB`a{cwo}mr|g%da`t?`ju)$wQ?-tQw^;pBU9;ZJa}1bF?Q|B;!t|M+K0=q?eP
z@QR2G|B#oJ&0JYh3wyo1-^m9LnW7G54Cs!d3X8GKuXAyKFrLZ5wz%8AKJVZv8}fX}
zg0~0}9UaP()q*{FVq3Qa$s50!uFcyCL_&tHH{HwsF2o2$`blt=XkxrPhLTW<G-IXR
zk<!5WOlAAsnRVAZwagC3gg4>grf!~%r$(IRrKSD#=?~QP6599TKRXT^ytE7k7iaL8
z;}I09LVt<z7R9v(mU(U?L|~7qpNQoj;jIVhBY3P;i>2*Fj#`d_X&m>CM~>RhU49Xf
zss=N~%-p_b9HOsOQ#n+pw!bE_<~E!fX*a6!UC!bsuOGX}+5XE9w`8Q7yHmCx*bajh
z9HQ;HP7mPucVVQiOVr=4fL$Z-UO6O>2K8fxhK9^HZUo*F{Rw6IR@*57kG&Etwnq^+
z0xIsc7OU%5ilkZhOk43qL`5-3r>CZV107P<eB=zQ@BRDt!>`4|a9($Jw^DX$5zNsw
zKh1AmaA=%ZYqBW50WRclWp(v5z>1QkN&Rk9+t9~PPfri9ktpPbrxC%kfL5J^IQZM)
zYN0Xw+Ri0G0bEd%0j4t2(qWx55!XOrydN1Ei5whQBOQJ~y>m!t=%c4kKVC~qPrnZn
zkD+iZdPc?@a9_ifH8j!#0s@#GDQm*mBymhsL`2<SGYY=Ow7($jT3T6|20cAJ9E=Ck
zX%e@u1#gFD7xH!&mon=U+biRZbPi;SkoD=lv!PHw{VE?m{S(-zJG7(6|NI<y^}l~a
zmg2w2I^6ej!1K%eX?94xKw{c7C&<@Nk20>)U*J|6vnNKblZd+Q{~tFTS&0r+6_pg|
zNF6J*1jn#NC9danzizoh7VK@6DG{KNU59(^hdy1fKYqWscDx>iL%vYl)wb)9pe<fl
zahf$B8DH@k{5S9DwJ0_NEfbH1osF#r88(b<{RrIw-jYNPgNEsTvmEo~l|RR`V(1yo
zLVN}E(%?LZs{LtfC1`DZhWpR2ZNmh5zKpL-XB7{JUu&!Svn7da@tx+7C&@)dMWusx
z6`3F^!2VU9P+k-i`|#K@^`d9d*JfT_ws_t8^mIlRVp2vdB~{zME(7pnf@hdP*F+gO
zeXYem5KH{?<=ZAEY2bQilrCFsxlwCj32$g{u(r+(2n>YrQ)c^_?-KAB4dcqWU3qv?
zSL&2(ueM|SA~XU&nF(EnXIeaUiLJtOhIBNu(3o^DC^;Gusy_wP4KTo8?eVy~?IDW6
zV5D-x^BKd};vynGfP>7ha73|cEiNjGy#D@?wI1XAKK%pSRp?D*?j92lSQ6qj`F<@R
z^4Kp;gUt5)+Mj;g6b~OhjEsq)Sl~2WiJt<iwq$PjPT#`D+r%jtMNRqeLA*Rj!)*#!
z$gO}#6v}FYc=-e}YAPKL(<;<G?DQ~#LLur=0nfpU2n(ZyyYv0~12Bjyc^<4KswgVH
zL*_#ui)ZJ@udX7`)MFksP~|_(_uXE@kg|qs?ywz-R8m8JheruqUjEJYT<t{h;HQ4L
zool9CcQbn#m69*PFPbU1kDwki92rIpJB^=}eqdo?p|${WS=Wxn{rdsgWwXrCkdz0&
z-VF~!Kpx~!2%!D3Ab9!kL|YZ)<RS+a2s7I9=}GMS!S*N@r_w;Hm3wd)gxmShpq{+6
z8PGT$);P{l=zeQ?pHd{F)i$%|;)Tt9^Hch`(&;P?)yCJ(JSW#EMSk(Sea%1gK%xA|
zj#YSoFGK<8!|U3gig0u3dK5stk9_kc8Cr}p(3wuZHHthLbN1OBJg|@9(S=K3%;c_Y
zg^7pp?_J^HB&Awxox6VAVHc%t)&E8l9Y3uuqHBBYRc>>oeEdiuBZXMTepg7Q)vpOg
z<wF)MmY`w2hxLr<ue#J0Hw7gTDMApmWYAj(Z9M<xckiPiPaJBW0E~Y}+(>7Ik#Bj-
z!*IK?Isz3{RivImD~61QhW$E^CtF=(<7ITrBNY|oNdQQ-1S2R^MVWAz{7d^+NhBeW
zKkQ!vXMVjF-=zx|j993Yw6(J!65;D(J7>6}4EgM5BcKtPtfgcQo!`8Hh42q>KO|Tt
z%!ezS#ruz=u28z|O*g`f*%fIDFuSgN6n)?UPi>J2Xw_x@vq$TAjtt)d43VXlD;CaW
z{Oz6JW-+Ka(!o=|9{+jE*SnuxUwIzxj-+R2t3nf|E6)(?w_y*rd~#|^CLAm$L>*Os
z-W%tN@6`UuZsvjXcNmED?)QYrO$vD40*v){XoN;aL`+9M(&+$BYMLpfs-u$)ZKr8y
zdq!Q;wrQqsX=&kn@ABtJ!34bOYf29uB!OQ^`T;auyagH-9I%r%+m*zx8^=4q&yZC-
z;vqP?0*#$-fK@K5-u&yMFv{xH+X&nFn)D+r>zCHOQ&wP<orY#y7ldj=Vqy-ssxvAo
zwBP|6NEF$_;9~~pY<Ydp^fvz_sdp>1qc{$D?$FswoYy`WfCnWN+Sw=EDuDeW*8`6)
zqPB4UbE=9*&6WWjA}=oq;{U=w(u<d)xGZXW4}|;ayTW@NtqNrRx@?qp&83PzKR#AE
z_TN9kTKpGW2Z9bZ)GrXugB%F%<ch_2U99?x??8q(5QInH5c<}3ZL|_W8lMV*LI8Y0
zDf8F7--Hk&JRr=XI2JOf+f*rN<Uk{aDa?5^Wvg_y+K{T)OyNGo&&|!vFa@k>_(w=R
z$GTzhfI%L3^z@<JghPr4hF8^I4{92d>Vs-{{vgy#NSyrfZA_};iAzGi3o{7{)h2Re
z*j5~fQh^M90NLz^hULF9JqH{Y-(H&y4GA2fL~yS7TJZA(kVh@0iD=<=pdR;O%8#^s
z?OE|a<ZG)P)_a+4whtbJ6C2l!&AnU_Dj!;Wi?GFvjEqT}(j-W`xgzbrI-TT#x}D|k
z-Mi^ss1`p3jsO3_-g`zxnRQ#E*tVfnq_x`sC>TmHf|5akwy{(|kQ`M&lqfj|LmOHF
zEkz`&<X8fdqX`5gC`mFlNkRbv1p*d)a~Jxae#aT_z4yl%cZ_e0<LDnP7FAC@&)#dz
zHP>8om%U3Z?zlz1Q$v>xDjDh0RkhvwD%I4~R!pDTzWS8~2ggY+r=2@@8jd79vuz>T
zb-h1MC7covyDn7Mf1k(18&~J#o`mYFWbZI*O9pICwt8L`4Qd!YlhNeePRCo~PKk-t
zE}lUGFciKvzHk95<*mhgz=U=8NNw2?StL_@?n2k}6O~;)XEES_yg><BUVARN2sf?c
z_~pO;TB4?^dI*_mz#(Ua;=_jzi<%ocaSKp>Dn_Rk$@u&GA0>6*!OxJ(+;n$3R=AYo
z=HV#%3t~fnc|tX`21If$e&6(7T-Ebi0XN7zH0FcVA$&^%3VoD2hDXBwlTb0{h0)_7
zF~NEIn2JY(A{u^n24s-JhhN^(!SVa+sxAcZ4Ocwcdl2%js(nMb;Sgm|Y0LTL5>WAx
zDz#v;+zPIX;;A{`W3|_j;xR7`Y4=xug|P-qrr=JCZx(Tb-$N5fi55}7Vpx?{RH!>R
zq@#d5H*)<uV&pip;Fo)Y?N^oxR-rF523ImuBr6wKMm>ih8A3$`i1AQ0e}FuN4(J;L
zTf=*Ti^yeq9r*-&@m}!Bfk5~^FjjIDs%)}ZNS8-x3}e8%XxN8ixUd(b=_$BCs3On7
z4S<NO>ve6tiOqMGZc?h+>hIrJQ~h;iJ5vDvj3iVGBitwR<}X}pHUh!XjVVlW)xs-7
z0kSk00i4#>))qbfGx^2#;5}}Pws5SQk*VcA4!>}mp_(w3=?nQ5v%!!?!IU2wCt4lX
z&2TAdy1K!N!IDq5pN`rlB61q$9UmG5+4U0MY1gNO1-W1us_{JNSZPd5RNr1B^pFDk
znUkJV)nQ`*Ar~QSAqG%<p5Lsgv?fL!$jdQ2&X7dm@6f$acoWZXc8jI^c!No4dAS<u
ze)QF%Q5YPjK}z$O_{Hr&NpbC$-w1A{+DM1EblyAq+`K_JJfsc7)Ax4$_Wh3R+P=wb
zm`}>)(9+ers_rYv#iD7p)<6l*;wqP1Oxw(OhABiOAr`u>jI^S0e9C6!t>1rDGq88w
z5JYOvA+zQ&=qG;G3PDk3^gMNk9N8ELw+Y*vmZ-YL930F37Dk;icSZpFcYA)q5{8Vo
z?IW=s9?a_DBSjLYX@64Apm6-I@9!_!^9U0COD`6XYqxvFDX|SKMMAp1)29XZ<9>hu
zTVGs6MaVwm)P{GKKOXa?>yoLwl;$6cHucq*h|`wXgoJk=9i&5|7)!r@z}L`Tli@+Y
zTrA$>ii&k_?``gH@dVXgGy@T#SkAg17h-~aA_zmQk24G_Po1F|jCI~fX4UCf1?VmR
z{+i%agc*!#=o#kdWLPo>+tSQ545wiqEAstqs*Yu~SlUBH1c~_Qw3EGk8n(!TprCjx
z1E~;2cqbi!V^JQ2szVdU4Y9N^O&pKQu*qrROiJA7{;B}pg}Tdc9K;}<MaZ<CZMm3@
z<T_~#BYV>w@wWIE+@6gS>tht!&4t}LTOqOLZ30-uwO~~nP7`zEhA#HydL8M5M`pc-
zfqNuCR;|kbwirrFe@NBzI{FVEKD=Yc4&fx>)_nIIK+ZEVmZ=S*5TffjG#G<c&+<U^
zb3<3-;PiD*;CBS}ILCsxxE%%43tZi{S^Q*jAGg&5;=wivJ`K-NMD3yExx2)PST2ep
zEe)b807LqhN5vh=Bz^$~lZug;IUqtKPau9rLiN{+75SbRMoBag<)?OrWg@gt`#Mvd
zUNLw%DvYMMb75B+3M5aVu3EJUAtcV$vrS0~woC8k;s=N5A28?%MOn&hwyms{%sNSf
zH7jbj4L4pr0VKwndgHWf<HiHHT^hKQT4<ySESk*4Nq8m413>B>OYo?kMy7lCC;W|@
zvC`}29#;5c3=ghtf)JfKSb#=|;dDxw;J+UBViLA#W7T0Z&+81Kc}}CmLU1kiQ{Aa$
zyy7QmV~903>~tmFQT0fzTQ0TE$7}jskc1K*B82Jj%tvKiA24A31Zu8$#Ixg6sxoxY
zOmw0zAQ#MQYR<NghsAsh#N=;#?cxwYVYeTQmeI=LM?_DB+C&W+<1RaCa@vCI%-0TS
zSc4QAy4AmINi*|@>?{(?4ti_|{?9gMS{r(^AnV<RTY@okstPKPJ726N*NF}Owq-$v
zzU3a)^|+0O^RB%d^OBH|sQ(x$ZlRqwjUH3W$MJm0xveN#gS(`Pnm9fw`#3gK8Xu`l
zDKNwm{dxol<zi_`$$N-ClMrBjcGt~xug~a?FY8iKQ}dJIQ%a;y^w%p%wAkI3``SJq
z)0K`pcJGGK@a37W#qx0o)@eT-&1g!5I6Ds04S^8hL9hM<S&-41r$gq21@piDtt}xw
z>Linm)K?2XqdeG=W4a~-Svw8Zp|bE8L@0~INPlOB!;p3+RK+k6W{kmwwHMB0s3)&s
zRueOrF1^r}#ftHn%(UfsR;;@^RV4Vp<LZhEO^zpfWZT!Hx=Y^mD#$87RvsF+wEQQz
zL|p#o(ly6v$nTc9Uyh`Hr&zpUXk|tLYWmg-6&WQqGgA`{JNoFIitJ@LlYuq{7oCOf
zceLDZ^kKr~L$-ZCgrEW>9iqO)zTY7vRF7u09Tsq%cIn@6eEa}mV%H_f=Mb!-z<bMZ
zh)+pT!4h=AV4-Q^Z!&PHK=L>NCgKC?FI9E*t+;6@#`C`ZeLF58K^4wkc5p55N>hBa
z=K%IsEo^5%>8pY9#Q_{tnjIooF9{TsSU9l)RN|rCqcGYE4ETJDzmBGcv35o5U6S5*
zCSdRC{d*Ac&=O#Rr{bOs-E;N|=5<Is>4lyl8joY?ZkSrZEcrc}+TN_0srmvu)A9iu
zb}ZPxc@&b=6EyUpS#qKG?mfZm>Tw#0?ZA_<&>`~3x;)o+Wr#7rhsAhcGHnxe3I_RC
zlFAeE4|eIDKZC-%?_+W}?zy>m5OlD$$%aQ|VUJh(?w#nk(Dv=`QK)XA;(&&142gmO
z+Zt59HK!#B^K53&l1#ne@;I}O3=k0O8{9Oo3_&$GoB=@;Wc_wbWs|<)QlZ?(0A)N4
z?*nk9e()}Yhe;{O{9e00%tpYpdz1o@tq_-7AYrt8BFgT`xXzl?qMsHYIb>NZiB3Kl
z)%ZGr_qHqBov}?o;Ha$2SQXuaxwGSqx-{!n6($?k-NMN`__Kd=DvrdUs$kmVr$G@o
z7NF)ggGClC0<hvDrVX=U2F!fLKXVG=t0_!_^$qkKm7ls7QT3C4>eO;IM2;=775297
z?ihllMIf0fVy@ZxR5ARNj$3BvfZBT;tQg(qo>Va7Lj8dGgZb$q7~Ly4%RuJaLWLQH
zIwT^e#QuEw&ZC@X>4vo{esS8;3(lYpnMu!3p;ZLEdsD!dY=|v4tIai0FBr|h8|efM
zOI^Lk10xJIkohEF&5@ZDOduzqpx;J?VP%lZ*ykr0Gh85(kKr)d?<0}Z=f~E^K|0XD
zaPWqg7C~&SZlek;XiYgYmp_v@Gk*Q<i{a2M->MFB)n+yX4Dnl4<zjnyF`WF9B~L@d
zi+Q#kRB0H^RM{^m`*G1rk?SFP)y}qy1<mms3im|49CcX!D#LYx`~;i{!5jB>&A};A
z;jXSOnqu3K02z<XMnDh)w*(gDsI=SHXVwl3OhByN^D{Hu6Bb_!>l>@`57xp_n?#<B
zR+o4f>K$xx>hR7+yul#QQ@D1<XJ%#=%|Nt{LI6&E2PQso%C}fLdIyC}&RA#Z(u}?_
zl(1-il6wfp8R`nHjJhA!&gqng@?orle^!$aDmbMi9t)ON;@o`p64`TK!Zs!@&a~<a
zR;-BS5>F`Iy(In^O*hckvo<z=e(cU&=CyHtt9NNWPDv34H>E{DKXUkE4D6ttb%LmJ
zO=~u~^N%fjm2-WFw&jFr^T4~du<SaXq@9PD3!~A1J5axBm&ml3*)Fd$!G7QSmhI+W
zlDJ**X$vzxxsE;q4O%cwj8#<HPfV8&HsOGgCO`oX-`(4`#bmG`Q^gKeAdDqOK*SK0
zzy`|V+@2yie_fkfl#76r2kKj35kUO_1Eec*MPd8<f7Vb}=P5gjd5292a+_M{T88s}
zzWV*+gHH?Qjj2$V^uK${hBd8eDwWSoD*31?a4hC+R@&x{j17B~6C(wdW@szw!(r?0
zbPn|ATc`++MfDyd_rs3SfViGxFFkJLM(IGg2nzs6(ly@NJITTn(ZfHA=yxf-@Wa!<
z(E1l94AZHfgqnUeEwJB9?#8cke3O^$aY!mC3*>_AVb3_#GUO4BX@Gt*$zE|C+dBpy
zbI1PD(K~COV5Fpg;nc*nrJXZl2sD}=%?@+)=oTLP&}*-sVczf*AmV4;hs0v025O8k
zgoCy2K=uGL7oj<$<#X9bRzK;*@V+ZG+G=qImTrgnIsdXq2<_0kyD0YX66U+A-UWzk
z36Z<)g27C&IsrH-)MM3%L70tADA&H0ECi@~Q{Oun8%M%fCjrA<$7$y)L-h<jhq!C#
z`BSD>{ktw4`~E#ChvLrSBk-lnAaf&;#tsAQ&N87czSGcgZ&sTtG%x&|lsj^q`hn1c
zko3{(I&js2vaSw!m-V2!9;+{y5o_<T%40sH^!~LoX>oS?rD=lq$r&sba0kUeVXXZ-
zcteEaWUm@&O9U1d)M4|-0d;b;4aMyHRPlyz)6oCGDbd_MA!#K!Kp@a(+-aBY0F$xX
z2H!TF@#Ke%X<;#WQy@-v7Z$VLOm-ZK?RaD`vHbCVgIR4QS>^*$n~>5FBLyhE0Sc<&
zTDj&~*rn-2Uv4b5&6`YySFc{(M~YOy0Wsj+M6J{#1iN80LTiYhy#c*0L4|jm(4ffH
zupy1r_9eiDjAbAd5I7HffgW$!r%Uj?RLn*Yeh%AKMDj(slv$9_cxLwz2$c=Xo2RZd
zWmNa7A}EpJBxIUXXi4|s%n)L9W%2RZ0h|>v+B9@qC_e^%5uYUrCcQnz!uiQJfU^aJ
zERV@P2L(`<eOVJ#CxIb^oF^|NNEwcrdhiFzhEZgib;l7BiNt)+A$NhRxtgYC3})gD
zU~aDr$|6wo;!{Y0WxuvxEv>91IC#F#do-kC379OHs-?q-RRlnllTSvI%zVLn;hy%i
zV_yvwlOFYW9)1`x$C5!Q@K{lFS#;afBLWc2Lr;Y<nA^5*R|cXq&Gj0`@dMZ(L{*+w
zJlm_}DV!R7<W<hI>458W*0feqgr&3lqWZ6n3AH~uBY|SqaVxhW8`FShx+lCXpOfZ+
zql_FzMGJY4imDnuLhB$2Mj_N_q3I=#>r;*mhx8zZJ`)VTO&&VxU`6mX2|=lcj{ot;
zmE<~I)HmK`taFD!b|D=`R2Og{^8B-LFzgz8;V)lbiNQiWbm;-v2s;B_%zO9~23WCs
zZ=$(QnqwP3js1BW%Bo)`{aMFgxPKZTVha_u%Z}~aZ{anl>o$)`p_Kpk)`6nI--A}1
z3L-EjmD$8N^4CP#?$vGcCp+8?jOrvY9nnN+Z_*0#Uc2|@195kd=f^UdZEm-E&bo8*
znGd>V7sVlrHD=jHW32CdZuEjv^40zqoKQ&Lsd|hAiKnl3XwV#`H~#!eh9PRcGf6n4
zDjaa>qJ^srp902NFu){i8MT1p{kf@?oL0GCt|zl#Ub=FSjp@Bo1+mu1Nf#)v({QrQ
z>81*-4rS$gIF2PeQ*zLNYeV))&s95i?GjDTfp>tzDEkvR4or3ldBy^|n!ddDOH^9#
z7bj6n7(ir31<w<ewv>a@7$1j~D{lF)Td#T<`?uQ7Z~OX^t$)&@`h03Hmi?YI1&+lx
zP)xR7dc|4fu&Z@=E(>xb_rSaRVR6T&g=YJ20)--Sn3;PHzgTo$f@|&yIKIxJW@nQJ
zI9F&36^A*H>9BWmUktB#yg1>7E20`~9ZtY?Cn8EQB#vxBLY)v7w#ew{vh%66&Tc?e
z<$}L_f7c3X)S_I(EoD?KUxpCp?+&Wt+r9he3xwW(e=&#TzLWA-9WjD&UgF0a48I!l
z%0OWH@e`hH^r7|({%E;vczEH*@BLFiAnbl?p(j9#9j2?Xu&6X3DOd6AAJm4e_UoVY
zK^DLfqA$6auNo~`Gudt?fN~##7%hT`c`*XM#g+}$9xET)9{M|D<rSO0+=lmp^Ekl%
zTr_od&Vti>1bU2hIaX-v&J5p>KSs06{IsyEv-8kX%J<8X>^Wq_*&1Y-U9#AbWDFKS
z$|>F8*(5MdXUvfirB}|e3mhDUQYBy@Nf|&K|JW^JCe+{kI2TD3(WZ?hl>K>=VbH%c
zQCCb{3a9apYnvb%U*goAq+x0rm&}6sZ{WWZEEp!fXpWIg-X_8-%;Za`?X&xQ_dBaW
zKDTVl%Mr&(6geQo94l5=Rehw(`ThEXbFflGgoW=|_?I!=kIs8&8k3M9n%?yMqM-v^
zw%LC!RS3(rgRwi|%{cQ=cUZP#0$@Pm--)2^?rxr@Ft-tE-t;V%`QCJ^?B1<EN<I!R
z+lL^ez^9--qfi5JWDiIQMaNE)Ti4-Y1Q4o4i-2T@bM2nO@0AeY7mZyCg8&@~%%%|v
zkl<Gr^vdwWjR#0opzvtVlOozOOt`wdl`#Ik4ZMnWZCvTS9E5`BWSPNOQ`?OC4K98{
zW0}c#bZh6}thjoZ*=<rLCw!7WAgSc9)|&xXfZ+MCJEM8!r7+-c<e3vVx5*@;ba5#F
zk(k@pVd+`WV4D-<5MQD+^qmir{R0>r18{2w>eePpcPnd7F6kwN5)&_r!&F}yUk;)d
zDNvzQ<uRCWlId&7$so>;8BHzi`5^O21%*#UjfV;<4%sRjHd<nyGj1sJGG16ni2ECO
zWUX6%gP6TaPvmq5nsr{11p2tlV=#nb5C4*U=fbw1(ztggt8<+@c&MVCnGIg~`K3>P
z<Y8XB5%z&VJ_1NZgz?7NB~OACO(;2BfyEuM5*L_GGMtvPXkLFf$R(@VvFH`H3*iPx
zM;7y)XPoD5)X8z6oPN^dUiJ6!==mR!)wDMzm7lN1+?ZX1vHwMAHl_fi`D_Yszaiz#
zdk&(G$3SSu4iyB)RvhU^{ea7;MZ~$=WM!Ufs}}ZO{MeBb3AI;0{`%gl9+~a)4f$_R
zJifl-5A`18F~^}<*|2g^uoy+2352C&vt<U^hsXne+`4sZ3I@DlFg9Q`XPw4I`G5jf
zfx*@ldKJCvvbl)kK}_KyM6?SZl2LdogHN*um0||O<YBdr|K`85ZP0UJnzg0VP8zfv
z<{S4CPzH~JC9!%Oi?3;{<iF>1Ru6QauAo1uLtr$m0BIarx2Er({)tmpVgWD+Oo2Er
zYJ$DX_8T(6Qxl$}I$FsedXipEXeQt?7Z1b>GpA*}A0aCTCG_^wr3=8$*#jwM4`88*
z7h!@`%&JwFSjmFtOt>wWy)7bLIRi5Wr5#^LKj6LKmUBF>W>-Af-0r;r5f2S%9h&I5
z*Eh9&1q1|mO_tI1a>f(t*m15f%N)>*77;cx7R@Q`0gj7CniP@|9r-g;W>gjUTA)%}
z`5_rqF(|j?H#WD+;cnc2^$EV`Wu~&-Hd$juyjB;6+g}ic9Nc$mP$$UZScyg)zf~xX
zyB0^NC@?6X)`?*eq2F<2!p}0@xcVCSD%7T1=pg;$OdBnX<z~X@glBkdTiPW@Mq?z7
zULqX|6q|6TdxWziH4SHBM^Xx)1495BoTzphx?!oef(PT7UX&_lF-O3?KlLI(B-eA+
zLm^mFnPefN4k3{k1vou}aVm6CJ`4Lu19Rc02>W+Qatw9FqY+O|V_lqub(jFSb&^#>
z!tuZ?%Fy<KHAzDiRWR#&Oh%$&H82D@eLz!Uxhuv=6%w{)lkJc86;%Z*i8WY_^P9+4
zA(P|a5T;VK_}F2kCjt_o7??n4=-K-LC-K%Cffp%6Gh?85`Vo$BvYpncVgR?}G%|$X
zkaI9!J2RiDHrFCF{ZmuW{{(39YG7(pw>-QNyauL_UShx%#sIVz8R9`<9^4lmbUGc6
zKppqvo$E;x1wD^Gw4o&U2=h0TKMlcm0#C8ikeDbo3J``O<`&XSCzAfmL5N^SQA3zN
z)PwwBj#cA?KGz}UK0ZPJ_#@qR-D_(y<Se$a7H$qsz7R82$E^>`_C#|_Km=_Z1wf{p
z9dA`#m*L7~5k!U_QM|RTWY*)FXV&Y*Odnu=`6-aZAyRP{`SKfd%u2w(dp$%hh{N>c
zYvu<-?<c=SUbOO@*3rBzdsL*Ih2t8=-~!kWHc=T`C{RpdAoQ_lq&mx_BC5ldA5+1)
zgqmf@k$-4AlT_~z+!V~R=n$~<P9%?wjV+ullx|wNvZ6Gl^6Zlz9oY91_S*yn1-BL#
zPLx~is$28Ry<n3eW3S|*2@_K{H#bcQVOidD*2@wlE0gsNch#Bv={)Y<l3prP+-T-A
z1f49WW4BD0bM-D!Io!^B6r#*XaDWgaiPRSupAxJ1oT!9dK%rvu6NS{wgy-x;g0A8$
z-2dT42&fl(pKv)uxP(?6xW^i3rua#WPD}BI&-roCxPI7gu!@hs1amA%G-zJxAXga!
z5U5!a1GPvzBx`5~D7s)Z*23%%XJ7RpFuHVjONfHbMm|+SGbC|^L)b;&Ode^w7_be|
z@P&$j;snP>1rFwpDw3j*XU`cgtgR@#JBcR1U!)9!@c@6F=E5ecXYbZ7O>Kd<9}lWi
zKG%W0toB9nrw$+flRQ$eq4j}q8~|q+j*d7_v1q4ryBI9Myw^#oAZb)#CAK~OHgJ-Y
zTLW>705MWRqV)!e&j!O^9uSQfsglI%b;EJk*ek2B^YRiE;?<tQ*pqMYrI&xrM3WCp
ztUWMZhZ)G*xY3cTsmA|7QukJj4{M6n=k~=~I)oNcT6!EUPOk&Q82R$%KV?F011Zn$
zn%;gWVsPl(in&I23}kZ3$RR7t+LoF0bDny>w=!849rfMa210!~cSKfSb8$8meLW@9
z1bG~NFLq70k~B_igtXoMIOe-1ozXfg8rqW#4tICsmJJKtW+r=R5jc?NStBtFq4cI!
z$}N>{F9#a|l3EPLkc5DDfj=#YXRNVk`C2s%y-3o;Lg@M>UeGhwpH_*U2WE;z^Ftp!
zib1gH10$Z4><I?PTHFK!rC{~Xb?p5w)>h1iR8u(lCITIA1O^2$eJ;?mqNX+5kfyx3
zMUIfie#DoLkx@4=U=Ci7`^l5)-Wt;B?dvmbLCKF&mxl2{<AI?Tp=MWsKO3#|-tjC=
zWsUe3)F7Z(eIx1$()b~b2x6>;Vk!iEN$HL+*!pe=pr`1$BY$mwk@S0OW>j=^Kg#6y
z<eP<k>l8pGMCy4yr}lZIxdJ+7UccyQ)(TFP4KI=uly!9zFxAxymPZwpPTHkUFJs(S
z2IHh=(r^bkjJh8A6}Pw+35D4sKdXgENVtw~p+)*@h63K%vuqf=pR-#Ay)dmZRz5uo
zH3O&FjkcBOjC1s4hHp-~iCF|uy^)L13;lWxTjYew#{+%79%GxS(eqnRkuwWG9n}Fk
zFp(Q@o`X9~{_{Z{2=$KLvP4g$W{bb>N_F@ATmgTA2T*4wI?fWKYMLExU+rRMUkdb{
z=w%YJV4nOy76EXm?sgmG%bbak`WK&!TkUuep%bj52y6ZpHlg@V9A4}N2K>l+p!U;v
z1SF1gy7GN>fsXLxQpd>Q;xvFr@_;~1B?51hOKOc^|0a&kFT5ZtP`)zF%nY-fGP|`>
z4w2y>6oE;o&Iw5sCAa-bm(}hEkag<W*Q&w&GNj07eLT^;!Ak;w<!}|lWxm;vbneX8
zq!TJoUV@0E7K&`bSrfV@{K>DE*sB<Rg%<M`Px-I6rf{0(9j<KPKAtySe&>A+!LFds
z5K%2}*q0r*RXbr%B~gtit-RfK8-<9ZnZL88<j(R`=rGN=pC9{@r&|Eo$bi^HLg7Hq
zl2P;JX!CuOQ`6GoPL7m3$0}XxHiRyG24z8>rR4??n*J0PXsRWX9}%GX;P+dH<v?&L
zk(y#=)rZXXleQ4)9bmMMsOWB}g=;{FOui&uOjN|MWqN=^2@|onC(C(B|Ao4w*JFR{
z{V6_|&l@|oI+%>iylVq2DRlTrua9gv)Y_&fZ^55GUhypG4V!~b1vH;zxv(b*o<DzH
zRL?siGhB;t+=c7c+~n?<!r3al=xSGkIi^t2X`?4)J{{!p4rd07o={z*gw^W;QG#Dc
zNFx4GiCjE<iFnFsro^EZkYKUlp_w0A0BAwBlA{ndF34>?QMerTl$XLlTT{h6e;Mg{
zsM9BRy27#Kwx$DU_Y3}~giMzi%t>Z9DI1_Z{G#oIEc0kt;=A+Xl8p?9jvghHONGp)
z@Dj(+6DLj>3ctGm@CLR6{l$|WLhu}2d-;^Tz5U6$M>N{G;7_O2)uT{Z6NxFl?ibxV
zZ}#5t_4S=}R#a3JzfyoJ8I^x7oF-=bNR|tfVG*Y<^xP*aQXvTK&O(MkbRm*bP*0l+
zq1P~aEvLGvJ#G2WXwCEs$AiwkTs^KLAg<6@izVze0d2rt?}a?REOmzoR5mP}AQo9S
z{$c)y-U%VNgOFW`nDB=?SWudx!BbB_i3<Sr(zuOxSX}F+DO54bU^RZL{7()!{Vcio
z{#TC?3x9Uo1vCklky~%4HRtx(>TNnp?EWx52t@c!f5*E!)(XdtRi)MI$0OJtQ%MXe
zoct}ZCqnD#OlV0?d$QfsLW|_j#qu*CztOAPxW0!KF$_{~UYH%puasD<y|b!wY!X}D
zw0(e!mRDTAYUUbIl@m9nh-wKFc|ezA`046&P^6HPoYK+?fMZw!3_KMHV+xWQeNDBF
zg+uuPho9w|To%MW=JSoNkVo~z`B72tK!8O1?bkdr=f}<JG!N;puRece+Z}88yVs-k
zy5reqSFOOj{^q@lV&Im(dGw*|oK_|ObLG&?Z~4<>)Ek6-$Nf8~A*Ndd*hm^?F?)8f
zH9Q>pt!amR*Ga8Z-`5&%JYO%r<&^x_7hHEN+D>%4ze?G!k&3dUrpW^uG=dc14P*-B
zMH<a0e~8zGA^*@+0d~vM>_NCe9i!pU(G_ERXNV=>P(Acz-d%hC$hsoU!wM8z{l4yQ
z&jHGx`;u@@cMUNX3(@yDhawEzYCS*b6=~nwb+#XNDRViw3k}_>k*0o<Bzy3s!{@4v
z5r!7xLGTDhyR!g3uiC!;etx|Of_@P$^*_xutX^b+q1dv0Ktx~y_Fh!f*p8W7YM+6i
zGi-9T745b2fm!J8lG&-JXl4=`;ox9pPK6Z`)0Z@orDzctvW4F)L^>dTC{*odXD(wl
zbd}9|eHa!!YZKW)4j-mw1FV@f-+1f#QZLj0?G1LKynVs!?dS&DOKuI6VBmtNXc&i(
zS`d%G3{e)%*BYE1dnYZ6wU^{Qe8o2Bp7m^T#J+x(|36j9-2YT1+fDt(>A6&muA8L-
zpS61Q!}~JGk<2}aC<J|@Yhj)s?+AoMlojYTp)-A}S848sJfjii+LA%@`fMj(G+S^$
z-Bpi?oHmkw(EK{(En<y^L>#^~c$fX8YFvzBq)w6?U+zz7ap_M4A40Qpk^O)gE(W@W
zdHx~f96+M8cONa6I1+~X1GF*eNk<I5lIgX(Fg4vatN)>w_vLQA>>A0Sk0`&<iVB1<
z!u!MoSSC?4U#QWQH2oAKsyFji8AJ%~(+=gqQm26hxg?LkRk#i?!2CI(nBo3nhTa-2
z0)9F5AKP3PGC@A@)TQvEo9ut7h&U=h>x2K43#`eee(}|FpvC!tuJL8@;ppsrA(6kW
zR6lU{+0WNrzg@jQf6oRU^#zv?G_Uwo^{cM$lAnM5QpjPdS#!_&sn3=0v)p^PwZ9bD
z@b=u|r~8f6?sBi#bl1IK(b3)WjH$GpKyRe9ngnY)q*}l)$+c~|Ca<=(MXAkY2mr?q
z#Me3q4e~0g>seEIL+(OoDcRx<7Pt-ChMgEGWy*Vexotpkj+D{2-<_b*UuGLl_qE=j
z%GzWm8}KeaJbW{DR2f*LN4{>IoBb*s^Yii_ly%_%cM;6b=ynL_45XX@58KFaU%!66
z8SHxyjBEiQyMt{jN?@+EqkMJ;dWz-TCc*C~*y_N9Zm;>vkI~3m5JBR!Oa(eccOx8!
zvh|YB9TtSGwEe?BfiyJor(1>`Ccj;b4tWUJ*!AQFUnz?8oP^O>C3n-b$-^4NINBBj
zdXlv(3cLOkp$e&<U>O{rH#weB5Q4+7lbV?7ey`$#t&6xP@$5rUxQGt9)aTS?=HY-x
zd+!O9M!U&HK$ul;mo<du)VXn#m$h;ekQ(eUm>Kc6eX(FoCyIk(hK7bbJUk<)a3!r=
zo0{q}LuM=;^`^3gO1o_I^e$uyRbI8fXl13OqoWhXXJRnkFH$LUA5thOa3*C+&<WNG
z>SiLp_CV59j>9M){iY<dw_e}X!asRxr1^8DVM2Ob*o%E|?!p1@NlZg@02<ES-faWd
zSoI~Jz~S}4U^CGn*d7JXNz}EW_Z6kLgEe@IL4preRd?(2$J3-b?;f;)tya$ogDI7Q
zq=(SQymrH$D!+G>FQ8n!X%{CaX9KL;N0WWsccE8(*m#8KN*~XrgZ~1rBbbGrV5(6G
zP0l+RI2Xh5`|u#@O>MiA$}TVBdjyq$Oxw3^30r`_^B^0!g^i8{1_eR)@YM}nu5v*3
zdq^(!(+`JW(AWck=UYtXgji&>h<kf`HyHZLj?~gU#Bdj^fR*bR4v6)kh)CN7LhMx1
zk+<;G&x2445H>yzlB5sWC%WwLQ*z%Et=xB_t5HD}2zg+U-msOt9}YjWE!`g7iE6yk
zOn)@6wr;!M@c?XR#Qs}kftR83tp51%5y%^3<YcMQcOoJvj&r+qTWNL3Nq0RsJ@R(5
zZzuMJm3WI?wWx$d&$Cy{%d9*`gMvY>>OJI#Jtr1e=sNov<p$^lcD~WJik=!^IMhed
zr_a@DJ%u9RI93KdL&w71nQvJ{>tKC)dU|bCpr-w&%!&&6*>AaDysh2=Sl2T|<7z!D
z6RaX_`~>nXEG-AsY+LZ$Dp6x&+1d&ly}fICgj-cz;oFR9aWiw28EnMx_@;CtaeUUL
z%>S(>Co@#&UNVn<2%QJ^ep-{^_1`8(>%R`(%#X`(f28UuzZ?}mIA6t)(kB0@eM$}c
zKf495*`;}EjprASGzIYn3Z6b1eyn`Svi%nT#@-#yIQQnS+SYV+A?Rj>!5~xU->&4E
z2FAIh0Ox3U#A;Vps-)Gx>^F;MXJ%%G6LK^=4(Wl}e5#^|liDt%ZLf@b@@XtQURqzw
zPB*LDafW&L;K7694Mz9LTV=zrKhDR16Ul-8;16hK^%>GTnCC!c`?U$+7^W`1ywvAH
z;!WnM^SB)!C%9Oc1x)wy2=oSQ(aE(bGD{mD#R9N>x3{<xa;0)KBij0zp2Ju9JHefK
zdW@%rsR=e7njLsvt>}zhBJ4Tyt+X=X>iffM^d8t&ND1I1W`8r`+K<;qf)l2G=WLs*
z%czs`d>hBFo`E`L0Da!S^vLRuQ_s6SPQul`w#kYI$0PaZI)eVTK*T2K`zPs+{Sw!O
zQM<Q_`xp<f4eO<s@ZOADlgt0DeNntDX|(L8W7&42=}@^yZuqhcN~{LkN?F(3LHO8=
zpsUjjX4=3)Q0X%rE#Xe=qqku3Kg7#R7dATik*1yau_5P5*OXVw_jMw?IQiD&DM>M&
zR|{ib1?uj+$=L*8cN*6Oj7dKJE&>J7!=B>e;pH8TmS@Fk^y9j}4LTO^K0d@z8{JM?
zO=k*aCp+(_`EbNHoC>`kHP@-y7K7iNzRcye0n~27__Kh$hDU0P*=TE93ceKyNR5q+
zak2?l*d%qkTAcnccq=Ij3kxlTXQDrt{D$VF@Y$Ew@R@i(0*Q%<e&}qP(IJyeXjH~W
z<11ZI6LNwR^>~72@}{Hw?shbzF!%8i$NbTd<5@wJE*mK_X{ad6tU)-G<wi)eL`P-|
zyFIaANHwqB!pf==`#KES)dc)NDbQ3%R8+0R=^cLLwvYoTq}sjakHj0Wb|B&_p?tr*
zj9WOO@!s6$AH(N+A||Oto&Sn#&=T3qNJviJOBMmSbQy?8$ahzi{B+IqC?0~>0ke|T
z{`Jy7am<f-(l~zxY*I`!1adE>{XJ3W8Dy~_;(FF-J@@XKc=w^q4xds+T1Z|Fi2z;W
zbiB^Am<?_|o>9wdXUN<bgr{qL);Cz$?aT;*&R{(|0iL<4#*}g*SJI6&c!H+u$zn<&
z7S&~c!|l}2AvZoI^m?^#lKnNl-b|bB>@`0<zK!SR+ITTq&60epatOUMi;Vff83n_f
z)^B#UZFbu8AMbx<0-}p|%177xQIM1>LtO_0Ch{lpCf^8o+$-jD-34;Mi44RBUwZjV
zfTZ;~JaZc5#(D?M){%!9s{7aq>B5EaeWyk7kl7d5{m9S;aySYV0s0;uSb}v3<nl)7
zDkJFD`mozu&tAkq-CMGA&54}es3043aZQN4y2A!xvJ_*kfh41H1KsUE^y5CUmbI!K
zk5p+zR_V!~9xTJX8pV?6LWVp>Gf#fA+L>Wy5QG5ES<}t_9dW1m>cbA=Hl1$=az`sj
zHmfi0W<QmMf6fbd%6^U4<qZ9bc0K6(VTSqUd0N^Qs>8>#H<-y<<b__Gjb5vAu>|F(
z-uv2s5+g_U>J932VJ(?LJYTSdDwsR`QdBI_zk-|m!sFqE5en$4I4?(nB?qVW>*CDr
z$jJ}>`41>kgP9$|XyaVI$=*fJUU1*V!(|ORYLvEIT`s+?V1`MruBu{1wc>%RTax2Q
z=CAm^4pf;}CP+LW_=>__&a*RZvt{!Zt-D)PRAlK77#^}SW7XWen5+g~EkDyCzav8k
zs7ov~E2k7Z{mu-s3g#Bx!dM?49}?K4(Duk_b_5)b&dPF5^F>qZd=4YMY`S$K|689%
zfi{EZj}X7It^p{sNm~8@L!llwR>?ED^+1akK~m@*jHToB<X`|u+>51Z$JJ$-!JKuG
zeG7(=&egMIv586<DzP<;kr1J{amfGj*qg)aKwqF)QVHJkA!x(gGIzw8lR7$0ru+yK
z=y=Z1NHIkc{PKMR&z@&wIBI36?&yNn=q&_O)2MXhdu{V)j5Nd4jr-|pz8QSAw&I%p
z2u(1PKG`*nNa&h22mxALFligDz0=s#GzwLU^ghP((~t}MiV02-oQubc|A0xga4Zv|
z&Jcy_fsaobSL~{29gC7M4zfru5s;rO@d$a-6t;|`gyZ*I_$<aY4}Mz{C8khY)!3+=
zB@4mw_dEMU$1-aR`0sLLm*+)}s|4aFRz<38hu*XloLn%;;#8Utdb%x18aw=Kkc7Gb
zee@VD@7&+lFY7PEO?zmQ6`Yvf7#AhwHHi4og7CN_!&SKJj~)>Z6rH*ZNqnKg4R%1W
z6snKp-#6tFXMG%VH&aJI;3R%o)}mGxjKhH38;^(y%K*4YK{%U=q+#@R_>=Q1-qyQd
zDQ-K1chAww&&!h~p`6@f^OTaUXj_%=wtX!kNZ1)7$s9cs1>50qy9DTo<jc#;10V#Y
z86n;2TeN;cW5YSkx~Z|z20!TD%s+X|q1Cwu#F7yppA>S+C>o$=y{FB<7An}<+CtHE
z7kq(W*w@zr!nk92W#{9o%S*{U5$qom=dB6H<3rRjN09Vj#@h?d4$aOC`85rp-kXbA
zYmLah>w<e+MGyccd_K<=rl-C?!b@P=BnCKwz{p%IOs@{XJ*;%=79lZfhS4^&8}3YY
zkbs9mj@F5uQl+|%g&%STJzde&)pa>emCr>LQ9<quwE9A@KQG6rt-*A+uASV#b{TIj
zIpRJzBvkZgWMt6Ahlb;YC=&sdZd-4xvpGgkHqQ4JCcg!yJcwLx1NwWmC0qRMa+K7|
z!>7afS=#_6Eb_6-d+@-^VX<Ueyxy@B!vd8UscmL-^j{Q@If{JYE7ko78FCkO<d%}#
zCU7lI#s^zYzP|**s1wlp1kD`B%{ce#v}u1|2(}oL*h=-mqn7ivM*n0hl|)Ipbz@1V
zA0L+UXi(djvyOYoFq7^n>#ygag$`C2&Qy^A<8k8X(WB(KppP4!mL|4{&*=;~hFz-%
z12E+zmx6%ofuEnDwvJBq`}g;7AQ$_ua-#v23HH*rD_lhCPzaIRjV{j?DiTOmY49s-
zDRjb`G<aPR+bcm%1z|cs4%oo27|O+WWQ~B|bH<QZ-6O_9{;5-P-#&5mkXVlEfv)5s
z1`T#lZ3wo4HrmhFHHfoMxprwQ=IeA(gHdTv85`q3%dEb*c=c(sw-6fM$5nR3E0kP9
zi8eO%)SLul`Z#nG;#88z_302XefZYnIb$N2*?xsm0y%zt_BR0k`xLa%4d@xQ^~(S~
zD*%&v&9i%>0w8u|2LN=Kk+~W!gnN@3tGf-$DTTZhlr#wmjyN_?fSQk4y7O4&<p4Y?
z03JBMhD29VVu(ZQ#b-QFrWt>{FKtyfb%ewq)JJZpL+T@7C^M4T`o#wt68UK@ni1@J
z&2(pFhn$rlzbqwb4Ihn@V>Jo>$VI?XppoOL^y+%aVwpdZ;9k71RXM=r6PD0Blu?=5
zFZMZ)bbjkEm@(^`CD6g<?Zz9+4*iasapo=x6j$2Vz_~$z;7flP=hq^4kUcn`|LcBK
zXSPsR(o^Xlajwt(F?u`0;yTKISwu#5IRw;iSxjzU52Zv2irdm2bv+6LwRWFv-Q~6M
z5_nW$lwJq97PShw=>bc5SO6J*yu0jU*cSGqB}*Qa^^BMxsR_GL=blysmbv^F$-~Qp
z;{{)*0SSy>m{c20bjZKk@QXn3UGPLMA^n!=4d<ye{OW}JvBr#L@i;@YKOt2;XM<*s
zuiAnE{@Jg^r7k3BfLEjWx(^sija3~SHJD`@Op@p!reA1b5htbYNQO<iG2~#5YB1x@
zI;oVAOjI*8iZ6yoc<SAO9-0_E8X?NLc(!py*If2K?g=Rvw5OLLWw8i4B@u+|rA}yH
z?a@h0-ldl<N}vG&<jagmRzGuB3)!EB3T<P*?l?FWecWZp9J(>yQA)Bk*%Sl_)H&Zv
zRBM8dxpLU(xcDpdrf~B<f7WDNITIp}Om#nE#EM1&vNQCYqXdQ*eCrY#t#Hg2AyLFw
zzX>B1<C3;w#V%<iW(Djy`v-XF4>I`fS}8^)+WhtLV&dWs)03eULdy=H1|smbax*0H
znUq0(m0}VSCM3~=m9{OMx2O}LfyLAI2fhPG6@R?oOsjMDTd`i59#cS8hi2>IZ#adV
z9Wybxv=`jasCK<Unm6DUQ_9LpBtiN&Cf2(SF2BVc7wV~H(E=DJjUhC9vYTO@um@R1
z0^uvClXgO|#LQs2@f#Z6gVuwlK53<(IPT#d$P)^LY~yz!`!a0K+h*x1qMD=^U*pun
z-X{^3sQD&O;v&5QKO$4oC>X(139I9mb8{kalOhEjdMeIH5)+(;vUw}j0kBfeB3_7_
zlpT~31&NlLo-a2zc^@LQ$wr5HxbV3Rzi<O?S3(vbU@p+d9#NS>CG^rdj0rTjjh63R
zqkV!#v`h7dFRv%{EwJj@zNU^TPGE(XDfS497E#s^pJ$ExXoOHw3HC^JI}}>)L@FuN
zaeR`TReT1wx}F^a2TE5E-AbH!KN8>Zky7sG^Tq0LAPkK{s@{(5_(7fOF&>h`3P$at
z1sWdfvkQdD2^0wNvNHI@LTv_843!4SOJ=1Z0o~4BepH&0+uy&L1rMIB6<_$YUGMaD
z4BC<#O&uw1C`DjuF}39oLKBY^Q-WEYG*V3YRnC?bd^_Pm3T13-&mAT|JKEWGlAVgY
z{fSb7!}FTM&E2`pYPBk${;1`d=!r9&$f|S~#Eux+xyHg3`fZy!Et9UD29w8qN0{nL
zDF^c6TwY8+;c}0$an&2G!3A@uHj$N236QcqUr^M5+m!;uVT`aoiGzOI7{U_Gmk!d5
z5J!jV(_Ml--4UsHYl8HG<G?6{gG)hnk5t`(|BQiONHPYE7>HK9dL7~QM)4-{bk~-C
z!i(T`5M~JQgM>O^9CYZ0>Yt&Ulz)dwh&rkbSh|R;EGY#A1%OxmM0ss{Rusu4hysMU
zLxn+T2Djc52Bi}DU%Y1qD#ZGz;xQWYg%7_XMJc5OTR9LXUZpn%kuRqiPS!agH(@J2
zh-;28Fie!bI(|BAO4Wa<+iu;=J%o)yN7N6DaIQg9uf=th*aw8CB&=7D+(Z^mi`xs9
zid)Q76%C&UpaVr904vo&g;gpEtyLvf?E^yMVX3*JkcTee5!~vxkj;gv>OOKJpK)Iq
z89xI=XucorBfSH=)EZ%=x~?w0@%J#`Ponc4K?v9kCh!=j7eeF(gZ*;GaM{Q`U$=;Y
zoKzjzl7-B;SQNDYQe|gvtbd4=wr`D|oiaL+K_V5Bn~4n)fu=hY6wKN>0io0w$8Zx0
zH`o#~@sXiV3BF`7nw<G%EOL2-o3r=9yG$n}cTOYo1ybCzA8DoulOQySu6!^-!u{(^
zkYk;jnpz)b<S{JrN}Um*)hrSq6BL4`xkKCkqN!;q)B~YVr{pzF*FP5uMKPP^v(LEn
zLE7qca@jGcHwfwbPVGbWn!wk8HsG?nX7&O7rZ$`p>iP$31ET5QSes>!SI5a6CS~dV
zM1)K>KZC<Z{SdRB^>tJRitWVZn<r)d{g<d{jD}ZZEGk#XP8`#2kcj^|Z6dcvcJk$#
z{JSJ@sWEnf<^==v9L;z+l9g(U7JR-9SPQ)MuU|pl{f3(nH<d}A3~*<hoZx-~CoXnP
zy8i&Pe;ENfr3-2Sx^kKe5YJ{?PMxk*TD_3t^Hb1h)3Qb1Dms|1&m%fY1Ju_3`LuV)
zHaWPn3qLb^uHhv36NkCeRBd*8TAJFD)<J;er#7Bhx`UNbxL^(rr&Xs#+5hwVgE{Wz
z@#Ej;D#rzpY(j`*Ta1UE5fS~xSgqHnNU;BzW8qy9C-&7XDP<d!Je${Oo?33Yex4We
zvFU;#f|*1`6FmO7gbGf3Xs7~n9omUxX>f4xK95_KOE~0$L4(6=I*Ox8r2AhV6!K!4
z)P&k|D&5bK9;<S}O(v<&&0f32n%WMl=*VVy>B(;ULy>!$-a5KPSpC)h&Ygb8<Gl@r
zrXTafvDWVMMJ?6m!7p9G;-~BT+P=>Z?Uyx3Q=PV6&5+c1wckUQ>-E>#s!7Q;U1Ezk
z7XG$iXyLj03gWTgO}78@U3;2<@)p{CbJ=@$+8RAQLP2<W8*rj}i<^3c6RKa&@V@P6
zhRAh-z6ScW1p90DJU87XKZf3hat6gyY~Q1+7W^PsBL)jX7yT`%(S+cR+r&|~lYAx)
zfJ^hK+I;x!cEj0P*Zf08rfYAyf%U8eZlqC8JlsV^8mi4uwu;N+4+;zvh60j8MG8dW
zqF?(Z{w%f$!j>Y9AP>UJSwFq3!RTlP@w#0T%uEUzmV`$QnJqj;FLp-P$xnpU#}doX
zj$=vg<L`meG7{BwTt|Jl>Cmg|aO~wjfT8CA5=`yCnO?B8tiZ@WjRFy!5<b=YH~ZQT
zA81&uloHG@sR;TnGTL{wi>r#`_uE$-=PUcl8`(!MmNFhFaH%A`^Za{si~y(%W8Kvn
zr%t@B{GkQdsA^H$>Ko$ugz@=vOj*zSI2#G)E=i4?U*n1;y49y8Ma5V{zL%IT!5Z$n
z1?UgdnU9i3>&y0c@|st^xhz?6^(?<bsN!Q?!TPTH(zw4xW83IGXd7tQ;DaK=!^4Yi
zahzer7Ka6}*W2fL3+C9t1KYnZ+2eDo?$oIz`s5W}S5)R^z5et1-}b+6@vm6$-|j_R
zY~4JLk9*eH)>oRXe{!3Dw)!l{<7Ib2L=H}@T`KKcKlGmFv(rTV>;q<e!L;?Hyxa~F
zn9dCz<nYqAoipX#|9{KVQ9YeFzvk-XXipE9=huUTJ(ijJ93CKHr4J=q2!z7j7+@`j
zhODtCc?cL-7d{GRdff!%LiRHyXT>Hw*9I?ie*u;1OTwe-$;~3<$wG&wV+jln=3g#A
z+TIkY-Bs2DnAg>HTH2o-Z9gX-Fc^M#JQAmANiAA$cZwi!^h&p)L37c<q8zF~5$NqO
ziM|u_wF=<uCYa9qqC*_Cm*afm9b4J#;li8)@{5LGGhzd&*?B^)M+I31Vp9VwEn6=w
z3QM*Mprs&6)?jvjo%7bgMp4maQ+jO8w`xG0^?HJ#DfE-!&xr0nntfeg4VJXpf5v8R
z=99L&z<Hm&@e(YnDqrLX0!eAoj0kInK?yW%NqO>Zz(l@`fCnSev_q|ep*WgE?k7${
z3ID~m>{zyGNo(2#d?^TrXcR&bO^MYZ536O#Iu16YAdrA4+!ekEkA&PlEhXTse~SEM
z2FK;*G)<#T=-=YdlxQ$n=RfnHv;X!Tmd4QJO78e4NElZ|0PPIB9N-wJH+Z#z8^gPS
zQBi#}k||H)!qtwZ`5x@aV)63w_K!$9$|Zs3ieEory6vU)!{muRSpyXoy{AIJRTTd9
zUG<}g)H?`A-#_xRUj_X(DwY$FXrATa&@A{p*Q^Q@36ZyxW;p4k!c`+usRJ2!6aVzb
zVnY9t$A_#>s3I8Rgn6>+J=shXX*oj<tJg1yT&hGU9S7Go!pqN&dd?_?p|6PyljieG
zQFz=SujhnO!gUgKKVk@#Ir6*_h5+i!z5U6*+5|7^`F`EP&kQPoEA40V;=%2P2t?O3
zq6N%OM)6ZK7LShrsbGfgA>p6{WSnhCJuc^qqk<y@!_2?~vI#a`2|-dO4MG+sgTvDs
zK<!We#&-T$YxH|A9XY`kLla#XOH?2X0BNT3KFio(ky<VuAbL>+ZJ-c>f)W=D<+L)B
z)?xd!v}Q2Uo6djv`^|h>a^qijPZ!O^Pq^K>Q+sM?lJ+7Xd9;ZMN-^c!VOGejIEa+e
zCU<|7kmKXyJOVsU^PPh+Clml0N&^||v)jWqsJ%(WNB;5Z7qRF@_7l4ksS;~bXNhcz
z@>89pPL$++OBLy;<H16SDc00tb?!X<0*KwHFzN!%P44u%vy_ANq@7`;mNkv7D@}S4
zAc-`B$}VmgKo5ryLi%V%rU_<1i=M=s!2o`8VDiF~vNJzTnf~*!EUUPKgO*}{_hc{_
z_E}tkIC64<6%uOg?JJjA6)h6Aa?3+{G?MB&nw=|J>gwvAr>7(TZdzx;?Mm=X?W~I>
z4!Zn37u<{eBvW^XAATKj0lo9<u-m%qO`wScS+MplW1G{wn4`?EBBvGX1RW<pY6Is=
zsTHg}<{0WR)k`S>_*m$sLw0B3^*7wP&XLVz{)sHE^N2oW=o)0`m$ndU4i(37nw-IF
z_O@S}yO7158&cLn!W+oaA+;=5K=LjE@Ym!I|0y`JTl3k5*)ROF_aJ~ipC<LIKbTd*
zC=vzIeF`{06aDGN`tjKp?8tDn^s)Ta2`~(15N%gbN;dn-(4e}o^e*!N?NZjSKapK4
zSC6fOhioad4vR_zBq4+!w%&$=;0#D~<gaE2(yI-Rg`D>7^e;2Zqd8j9UrUo>C`?Y4
zNChAp_QPV827IY}sACyG0*ut>$5%-o5W#Nd$Xq;pf|zQF^*IS1>q8GS8leacs)R2y
z=(Y+Mud_Yr0|NGY+<v_8s>kv<)bRBGHq;<iE6u?%T;P+{--EajNb<CvT)pr_HH#-z
zMnY@cx2b&g>u29BI=ZcuD>$Z-<_e3lkmCM{3)Esi5shh2Pm!dr#Yc^EJ-pRfZq$^|
zYO{2QBOEa%-@Spi{WomzzfkLc6xa}`72|^uidyMEe1G2<{m-N(tbP!AAp5*|qOwm~
z?6`-yxw$UGL6$GNf*a|ny6RNR=#sxK1sf0K&7pIsLbex8$a82Oevxw-@y;l5^VqQ!
zHl-gu=ky|oo0|;9?EI~?IBgQj<3;jy!`GRK+%3)mM?DyJbiVR~-#<x~eRTcTt5s&(
z!sa~|L0$7V%DuRMucgSfAx904c*h*@NprR@Qt`G)P)PH&MGhvwi9$pIq|-oR^Xr={
zxWVAjj36?+XpuN5<#JfELU>&NUwJNJ(%!XNK|-&R%5kRU_gvnam{IIsEUR)Y_@7~S
zPWsXtn9O(kis?|XhOfp@aV%uLvW6>sQt#yb7am~FW-s9g$$HB}qSOEA1N)EbpTI~E
z-Qt|l{4I3mK3Z<GGj`Ru?_PRvR^#k+kafd%l$<n)3Pt1l=>q?~GXLKl$MK&llmB@4
z|0B`yKX5x^qO=#q2w)7XlE@RGixVQ?FVnii1~cnDP*<D;_H6NCC)Q<(OIkgh&;TK<
zDJfk?ve1t-f~+8m=paC%nSgb$mk=ilbB|NN(~YF?7RJPt9hg~QkTQr0{0Rk5ctJEW
z{4s5{gS7Noyyrf^a!D%%&1$6&t*xP+Q_-HKq>+LELg-VdGTvbTgcS76NY(-S94+;J
z{Myz0_TBzvgrlW(!e3*^W)@h{209`ED$0VSY;HE@J5#kLmwZ#S)oB#)qzV~jL>Ykg
z4BE2xBJ9g9M1nSO>5Zh6oDZ^ih|jY0Z!nEdq*2i24eLM8?#p?RdzJ=Ut*w)7Pt*2+
z0a2m>1V!cLxqBNk_WQ_Uz?CR(fE6M3>%tfBSB}yq<c#V1vmr)52#2{)lwDS@Z&F=U
zAl>mdPnRa|502=21VZqunVm4<_-u}A2lS)Tpm9jD4ycGUL#xquX{)IZ3&5!hO-#mk
zKIlss;D6atRkMGPG%;*^TBVn7EcP~8oSDz{+gx2S7lP-Y`0txHb0i3VUfLQJrQz@*
zF3TpTy0uk53(CDwt=$W4212v@A5CbuzcY>d0d~I^C&KDw!(ZCy_Se!HJG0wrq+d#x
z{Ch~Qah2nUal`{!kNHhnCq~i?I)uv}=Gi2vAej1AwkD2$1lw&1lBktI4zjL<TZv0>
zyaa|b0^w>;ao*A&C|vUa8W0h1<dhPex(OYJa>t=~kZ43wMblWqQakNfa~~oOGz2NJ
zZ5_>U0g}2;2&;IOb%Z`?IaBqecs*gOBc@ngiz-MM${I=u(DzQdJTqd{S|80UkV#rZ
z_{XksVlC&Qy*H0vr=R>DLA~tfMYpnf_MSV`)v_Dyj-=d<$k01{veI*M!vJ|tkHikU
z_mh$t>FMW*+07hC7lG21!gLLmXuJ?!T4^w!nX2jul3%@bYinKI!#B74hr9<+g~gwg
zN{1j7tEf&=StG=E6rx8+;mm?B*yH{E+Iahzl8!SWXQ0P1lf4|N4x2nRsTb!rcnWAT
zNBKBv?h{mqwl9@Nnj2=p^C#HKq5<eU#duvo7HajggfOv2PhqO|@ZXV^mhMYY?f-Vr
zMfUtIzvF&Q7_%N6*%Hs+<5I3URGgLS(sCoj;A)?kVNcIFlp%WO2NL*3?L8!p<?;1Y
z7*zV$w*CIe^~62>jQdkE6(Ld;?h}3W!7e+U3__w?C(bJS*ye?d&EuFKJ7xRR?<krL
zcbMD;xo_JdNQ9}Bk|4CE|FJ1iQ6A-UHllSxLWsSKL1!CC+XblOI8EyxFQeK((-93B
z4eZU{64ABo4dNb0WTh#np-u*hZijru*x%j?yu>;vDhaWDikZwV`s>c4z7NW^K^-NO
zy9d9b_(S34FbnG4wusxrE@v=KDyGhE<Kvk-?0ED{90BhUG#Esq-A&YyC?tc>OOt{S
zyKLi)b+n9pW@3x}hD5$1(of@9D73&z07~DBMDiEx(ibbMZ&LbTJ9I#$UO(RQ2YLKI
z5WN3?c?;7xdyY6mR2;l_tugIW0YNA{IM%^vR0<kUaH^~?X>|A9D0!%~Z)nMtc`<J1
zn}P~CDmQYEQi6umeIk(|`++D$Lx$W0s5Y=o?M9o%6(lWe1I8d=nNOv`4M>PBSpUu5
z9vVPon9W3_LmHdf#l3$M28-wlC?)9I2SR$4jt!X&355+BM-*y>%;-DzddCMv%Q0hj
z>7?)CwRo<aKjKHPkyczon4JpAjyseRqVXm&L2^kLeZ5bF0@M-IQ^IIM(XF2*k+*sm
zCNGa6`f?&TC!dZ6P6f;t11Jq>pV&fjR*#J;Kl8<RbTn*MhC1@z*FzLt^`rPk_UKd3
zDf_;G-f{J=wj&0gT?wfb@L@!sjfh@NgJa@})(RaWLt5wS-;~}#xS)aPL+sz!0<uoO
zFkVnS+6Z)H=6$F9PLj$dYog`U@G`JP7FlQu-=`2!?MSyoL00<ZY-_YMyV03DMuYOl
zpyUXzg=)tkj%PF5oV4Oey{{6t{!-yQgupzsqf=<fX=!Oi7qfTxm-)HDT_MgoaFC2a
z``rO~K>h+M$1~1I7Xm|khaucHqHlqqAxQgZZyn<Bj_FI7ZYFPsLOP0O4OWEwh4jnO
z4Jg?fWUkV`tpy5dWn+Fzl<aAosS8Ovs--{>)^x8(3diKOK6wr1*^T-0yT$0S<a5!_
zPc#ZfNX6$`0blt2P3OZDXKo7DQ3SpY(H2+e8FzB~O83R^MEABrY7q$attb_^LBB&(
z4_`}d{49VAxoiZ&7^7e)@yK7GuC65dCJKGvG{@SLC+7@t{y%W*wW|FbH5r(Y?IJRI
znh{V7xzhD^RR<b~<b(o#3*TK0%}IP$+#_-$Fsh|4od1c_Dh4lQ6wJ=}?R<l2pKRRo
z38<L&QH2qMpagG)TuD!=0$7ABmLUZzm(yLxzc8nmBSbQRo(DJ5PGY!SzZl(Fp-Zv=
zTKfdNBkUo!D=5&vEl%lrs8c7YFySLN^?8?mZYC|Ym8dW5XIaj;>+wd-z%r)6QLaS4
zA!5~<t6i)aj>Ee(#y<h*k$*s2HO5GnIjWf_g)Ni<&Wl3T^HAX8m%}Z`TQrfoObFrQ
zMIjE2vABK-G%rj0KcV4b3WZ`FT?IqV_0nu@C`X>jU+if3|In&X^Yp*B<^KhBDikrw
zv+4Q{2<DiXJV9JK&!g`y+c*eCfFHCN2~E>TWVBqHRh^i0&N}LQRv~~WxWwc_A?PBc
zH#Cdy2v3P03J}f`x|e&1GFF8X)=I(^*x{aEU-6Fs<#xgxpd7$M7zSvhqkV(V<$?o-
ziszMmh2q_$CPrB+%f^^slz3}Q^80hSe?AELIyVZ@d?Z|rErtf;XGcnt^I<<}OZ0@K
zJ&r-tlsBt&jEJy%#nE;5h$^yevTn@Hg~%A;9h_fmSWc+nW}6d(SRI5WCIOEKQlWg7
z)G<#!Tp*mDk<ml0js#DT^<7}QPhe@|l<<2X-_rPcm@M6aTp@U2<`W4kIB8s11N67H
zuU8yRuniWI<(eKzGw^0zf;7YkHxRGz^VJ|qmJ!_2{621VttPXfK;dPtClc~IKhtN{
zO)w+ni__KXm@WoO^W4k%Zz3{f)m0BIa(~}4aWyI`iV%uK$ZOMnc~KO)W=-~HUt|)C
z@;{f^+PixeI5E>*M`ZNd+J4iw*bo-o(yP?1&8Nii`Nt}m?S~;$nU+b2+V;KscqJ@#
ziA65he7iiKrXc(JbaSh8SHkka3ZZ{pxPT#3teQN<rGlA{%Y+F%M<!16Eu!V8ofHgV
z`>}~=YU{HHAl<qTR|fUt51IF@^*S)Y6$~G8_)99%jL=S;{KVz?F`TjNwY8<0Ss4lD
zs6R}-%h*zLJfQb<H!~MGCdF{1)MFa)`~gPYT)g|6Vey3)exGd-q`oqQwWp6l8F493
zZjEb-P@PysW9W@MR--{=<Mfk#MEaeIwW%t0&_vdm!3aM4INyXRepGCXnMoI7$)=}0
zORAsN{>(6&+5dUSHc_IDYsyrwjSFHfGBlKS;y^}zSafaU8h7`kq{^W+A<Qvna)3O&
ze(0BwMBko^j#Kxu)Qf-Ph<m}EYfmT#LN8()*r2)6h1#bQ(&5pUONBb0-WDt+N&sBU
zE<(*)b&Q{H(GYUQs_2B$Rspb%P#FuBt~SB|Lm4KHYC4K-k$1a@s1t>o&C6c|BJ%R`
zG<=^31Q0D@SLc1DL19HKKC(g~<deu5%r={WwyFnmCB9+z=IT4_MgcT@>qub4A|!GT
z^d2Ih&Lm0_v`2)20Er6Hxox^tBkj)7_4cZkIMN9k=^paIL=i_cSS4hyLfeu!n%Ro7
zkvv2a-axCS?wC%NFLs9O1$!O_U1su>8}Op)nwkeF%ev7bDkZ8-GT}sqRH|Xb(BuBK
zuZP$q*}Pe$L81B<Wy2i+se3Yv$TJ9F7y!5<VnxzZMnxhB%jeStVYkVSl!H!=%{e39
z*<cn6w?!6N?o#OFEThHQ?sv5*iD4^8+E(6QJr3PDaMFnLMB#=M`pZI&`8OADzVf(m
zTl`7kSHc@Ccm1^F52N2GyEfg%QJ;sZo?TU5-Eidcv!Q*Ic`5eU{jAMa{<R@}gK>j>
zTX1rqK#$!AwT#egW=-N4LnlK}w-7p4<s@CH2fKCZ;?{*I_N3`Ps5`uWKgZ7pel6>5
z&D%HFns*z%CVxYoyS&W$!41<2_wA1TPcZ-VNY+&x^31C+O+Zz&6tmm6;=~OsmW^vR
z>K~P{FIVBcp{^@C*!r|KnYs07PXImU;%NBOr!p(A=43^UxwJ3uW&Sw+_2kyyl614K
zp!DA$E4v<3k8d!|kT@tl>=0_IwkD}NE+c78`h#w3ZyvE+2Zd){-ZJ*D{T{j7%iwt5
z=Y>*EthZ=)ofQtKdU|;2SbseiPFb$%wZj3)FVU}9@$0W%IH(CO;$>!Caa#2b4RFf&
ztH2ZF!rv)4Vg1VtPSDO6KR`VRiQ8@SldzE}MtuR#OEVd0wik19GLNs{>AhD#U=eig
z2T)omL(};4&p+>vu708#t8$?(fg9#UdK`t20nWc)5}|bmhh_ZTzwzMpGYB_}7cVYE
zbN&n1{<5=D$bUGcTh2yh(+@2`YE_cnKC(RDC-AjMRbW(hAqQp4mM4}i+2o{R#pr|Z
zk9`lX=9(lu-u<6qmOJ)UiHG^DllqBcn?_P_b;@9K)>X_$ad04u+(36{6HcU;4q1+a
z;cwo$^#aT5*R^XutKY$6IvlMSatbsfR1t@FnSf+`By7B7%tdyvt-u#kd&P0Vc*?H3
z*F@TXfuwWQ`Bbf4(GY*$^!9#(cIoTf2Rn<k_~N7{BAXL$Jbt`^WB;K;*UBvN8`lmb
zKhN`V>I;k%U!Iuh(wuiV-mrgnMTLlga&@=sU;DD6y4jDr@XQ|EvyFT9{F<Dc{7A-G
zn0z*_9$w7ai9O{qwQ+*YC2CfBLgw4cJLG4+zA~%-dAn6t?B*n0dAIKmd%3>+#>H18
z&ppO@$cJ0GI5}4p{Mnjn;;T`rmO6;J?8Jv@di4(bOvj6B-Jj_xl|6cXv$A@x94f`X
z#ZyvJL~kX-5a)2|y(CwhGj)SF3opf;azcXr>zz>F?T%cy^Bb9%%;$*1qcsZRsESeE
z%<*UVsx;}N3l0>*8iHfL!?i~iT4wc03pjECZI>T?aIx0st>5W5)$KAEEa2GS)9Rq^
z^QU^&;{6G?aYdVPoJyq4x~?Yz7qz&wU&Cf=zJJ-58nN5D(Y497f6*&Mj{bb$RCBky
z+t(^H>)0pQ8q^Q{FCh9+O^i1t8(`*9yiXssOvZufgmcQcc*V^NL-siuwN2cRVG7LD
z$^EwC|Md3V;aI=_+iy{5p-{<6krCmevPo7dD<UgGA<4*|Q4t{}4K$4GnUPucii{*=
z7G;mJO8TAeKHu+iJkLMRU(fN}NB`8}&V66+>w1mzbzbMG)liLviHL}}hHKvh{U7TB
z%aw~$P}o~gE3)};>cokc250Pyd#8B&IP{h(Tx0~z+qq;l>Ud+f|8wMs-o2ewRaKTv
z5t)~=VgN5~`L#4thX+p2%4%fst6aPVe^-G72{c#UJ$=wO3cQFQ@B|;n#zVqIm?f0p
zG~7{O3EhM(L`>L$_EfeAfjTR(;Jx|$x~U1{Ms55%)*q#xh(oC>bpP`KI+^2X9<BTv
z^hRs*XaBnl{s-UvqXG-^;lr=hV<k;OPViap{???`R?tOxD6jE!#(3p9r%o*y>qm8&
z?BUR%I}bc$r?4pjNGBL0-<;3w=jPu(T|WKmq@p7Cj<16Y+hI7ro`4m2PpsF#yx1q)
zKygnrIy7OhR*`o=pfGdFC35l|6!B`b&QnlOsH&?gLmpo<Nu4cCi`mh#yY`vx$%4Fe
zb3t=y_xXK(l`T7(Xm-1rzlA}mph__UCQ6ithcB~0JEfYAyTB+z#dX4dak5(+re&xZ
z{vl1LJ5zO!A(BGpY7SQ?264YT*&v@EUgyTa@7l`OWlI^<Yk$C%i<*|f<YeB2q$G1_
z6N-EM;H|8z)XXxG!O>f<o2t{6&K40B-!*~d+j79@6+O>AT1cbFV<4L9q?Bg#_U&6m
zcx)3v6D*rI{J?%wHLkxOzYnWyEo0kP%mm^CC4wsq*flijaCspl&vUw#e%rS5t`gRp
zVPT(aTvDLhJCSlJsz>~rhFW+=(#lV1C(=DSxW}tWaC!{}(vl_YZvLD!@JzoDF>#H>
zU?hdvdFWlyc>0sPMsvL^T9_bKLixdA^zAO&fpRt&A`pJiR*c7%NDXVomAN34&S{zP
z5StjrQs}V0Jeb9?*8X?n){-0d{{8iX@93%>5B#D3^7U(#g(#oL#xyBJ>%wQx-q@Ti
za=u&`Z{eGuL4EkqNkA*qxGZxGf_!8dBfN97%TmSR4H@Ti6D`>;F_}Y2X_;yW@l56A
z&Z+x*jk_FACX5`=&nEE5RMpgSOT6{WuNH1aDkA;l5)u+jaj*7F@1{+gs?dDXLFbqj
z?tadEvMRsEgAxy%_-bciu@CaDH<6x#n!b#Vo`);N$8v8e%)Tw(XBgu6Kty57v+Vdn
zn4u6G<s!WR6Axd$skWrsWEAOBk&Tezu&byT*PxFCN0N_5>6FYzS*AX?Tdgk7DfP&>
zn%gU~R3R<dPkazeE9g4ibs*p2mB9|~(8uNz*5%UgB9rxV;^GbuM1PkP;J!>5YfMKf
z=AJ5WAF5oxkB29iE{`hMgf6mOR3krmlW(&w_d<dadx__%k3~-Vhd+PLaU4;Lk?~|k
za;ZfKo5kfNN?z8KVy_iPfQd(q^rk=3_z$+1=0&|@w>iI9vrzT4=OPyufA`0ViTwv+
z#l!4+BYeam{u3;FpyYIBk8@&EW5xupPwxPlQxUIad#HaAa9<(w2~I@oi&MLCA(I-;
zyd*oPI_YK8eaqbeB_iGNctQ;E-L|!m&9MKo=1p#KsLc!uwolhuT{)LHp{Anru=zra
ztT#(<;gvchFHJxNCB3fs?D@%6VEEOCiF*C`#()Ms08zlkBg~-DvD&2%nkr`aH#dM4
ztuHTXI27N8rl=Wmi~eh$vYpW-A_lTzwEmoHQ#kSBIM9$x+7eLlESWXKsZEso4Md`{
zAsS8G_})Xx(I}0_L1F_D@TPtXCjN{F-Mksp)+IX_7_LD$8ix#tSk<!E<z3&-FCS~4
zb&NrRBowlM`uSxfBpR`Nxv2d~YG~E{VqWV=cEc<9l?m@!{y7wxx3aeLb>5b%E;7k_
zS?pLUvF^;vU!$iM<Y_a$zwaxa?K09mtug&2C#vf@BEx5xZqVWRMLc~P4&|i1+}!Kk
z-Q7WYq`WH025sCBsECm;QZ1SI!cGC(L8(sN#s9YEVVU#q*`&osK|yM=F0(&rn@(E@
z{>g5PSPRIwYH<rE%UG{C{Zny4uS1?(yWz+Iji`gXyz&q})XKNfMc>2-?j}0<4RLXC
z7EQUK6@3pU+j7JDLbd3ryl?|!8Leh3RI)d-h^cn`J!N`5d{&~5gh^$f>gs1GHe3p)
z)NfCJFtf4Yhu~KDMkan!REx>li5u5ZQbu6Ckit;om&+R%umG}|*7gcp>}2S5YO*~X
zk82bN?taUKgM+4Eyifq)s6=T}BQf(SR76seg`nr)2nTha2D)NZ=!vr-(lyyvvIBuf
zy=hKS$Uu^&`NBUo?~|{gO{uUDJ(|?PloA5DEYQT2j9gKb1<z|<vKg;fWHuX%@kU4S
z2GgB%@*v*X>l*E-udg3bK;qrJ+g=Om^_<RkNX`hktK6KkAQs=2{Hkmz5oh&0wwHSE
zD!KzMF0RV1A%lp5Yb}}7@Dx}EMWnC)f~{@(@{Pw07I(|o#edD$Zg(G7H(tJ!nVPcS
zb^hb_E~*oTw!%BpM}I?>nje)Ah8Gc!9|yz0>@!;RR%wmCTivHuQ@nY&;_3qa^!YA6
z%=N1BK@uowf?X=XJGoO+a$94pV`uuMv+r{MK1{7*xdKbl7GzlNN|Z##m&RPO0%EP%
zuVT$svOS)Y=AncW&*F4n2<TDgfj|sf8DyN#(+j(5+$8w@+O=!?FE4C?p{NK1|B}AP
z7O}*aI9okh0;A44C?w>VrY1eM9g<TkY<5av&r#ppT!S5GM5Z&z^PYAT@^~JW4=#7S
z*y2~IrE5^ln^EQGN9d&L&;kyUhdzzN%Dg2WRF|2=lg1iA*g;v4?i4T#OB50^Ddm-&
zRm$oTXgMZ`LJ10fe*>fDiJnD+(ZSB2WN~@OS*zX3-8MfP@$6~LMH@00<0%j^g)3Ng
z*{}j$R1K3J_H)BZO0FTvW-}gxK}qxPV~c0&{&TL9GHKfj^gV3huV%MUG7=)EF`BZs
zzu0HlkgOcSsl!k?fJ;S9d@A?uoi@60<Vrskp_6IUEr4Wn<nUo;RF6y#?i-@SR9jNX
zOh<(?h|KrOb>>N5u5DL`D9^>YZf%3Q%v!4z6-O)woKGn*=li1{`mlpvxrvv)*D+y2
z?Hn%X>?DM-x4C*>-d4w5vOT15@S5@E+tcsOu3i<xaOgUQiop}zHvOd%kY?nX4q^V9
zeATd>;hm$U3@+{uOFRC74(0w5TYde9oio$5yn2Bs`+>&|2t$sCRoYGSc1;1R#%Nrg
zxik-tasjKgvHp{Jc1FhQs1a-2m%&ckbNKKFyWhM+w>+{hFMSHFV2av#pu^3|o9x}%
z5xb-vZ2J-m%DRT7PfwsDBc3HU50rTxfs*R))YHm68~BUZk*-5rk6Je@dbC3MuzN)M
zQPTAL8?Q%FdpsNuh0C~~%Fe6dxp&-4o|gbgn-QN75t55U-s0e(L!^f{qh&GrsZi5>
z>_cR2`XOK2r?-N>&AmwreHs)LME_L;W!d9NQIw$6un7J1k$et?xGi!98R$|8TjH<1
zdLK|+)GSTjw=8)QB_a{>E~;J9g<E+{?k==Acj9_XL<@7q`L``CQU6wMJoi%S!>4q%
z;!~~8Ch{n|j%R}?MGVeTmX650>`w2NU}0d`Go4mu_$l%08Boh8R#!B48N!BU_>$oH
zyaxx{`6$0M&RrFX;@4G6-*m5GpJ7;@5ZRESgt@Esz18?hD)ryoU}Scy!cide@p68`
z3n4WY4K~9Jw+U&d8<q*r+7Ay5sP@WpcTuW1S(G%L{p}|CH+9$R>Ww$tmtOpFXb<{L
zOhAqz_F-<$5j67}Cr-c6j%^Ls#JHgIKlv?^J^IZX`EK)}$vUiFOwHu2iNM!|?-Uhv
za&rQ@G`?MxB=akg4Y@0>8JJoQBJWdcE@zY;L9=8Bcs~7qHA@BQ0L_BfsF93an*K%&
zqm2C*ozo91AEg(D%;98D{wAE?DvZhZ{|ZkyBa&%Yn5in!?z~&f%2c-nNFtd)yE&Ss
zZkU;w4G$bBJezu}Emks5ns*!`elBvHu%4rn9}3dSXwiyQ-|ynl&^K&n_yPFWX5u6C
zNp0Od7bht+#k*peMH)v!IBABZZy$ovrFPg6M+QIr9hlpd*-AteCmR)s!oZN4c!Snn
zcjUR$-h63Yx`L@E%p%F$q0jLo*^4fugnoALG!0D(%V2(Au+-09wn;wb%4zH98I5>X
z!S_aVk#Co#H;ygHOAe&|@V@dTCCz#0V9~gZOiHsk@tA||D7`(z@^b`D5DtA-=Tvb1
zcj3C_>pAE@Q4;MP9hNE)C&Eubh<}QmPDKuc;WKQ7`%%$;LPgv5`5IfP&lfO&(7RW`
zOCSfy$w8<?%5~Zl)gCX>EP5#m4w`I8WL=%<XCn>BU;GP9;HN`g)9n&fG&(FSoLyhs
zz6`VOh`V?FAypX^zdO;=&@LqnCMTOW1XOuvhmvx!!REP^yS7*r8TX%dP8X}i5M~>h
z&QK6AAV)$TaR|o95zQ2W=3>#!!xIqSGRHMx@>BE`J4Zl_Q(QxkBPNmKnQ>@arzD=^
z3%6g(fIra8oK1M~A`X?+Lt(RZU{CJH9AGEWnx=QKaJ=;l_>lyoEXAj@XOX@X+}y+=
z0Un4O&$pbd#8@z;*b12&8ba9g4e`JnD$cS{kh=yR;$Atqfm9MmH^-Pq+;y5&?LPkv
zG;nE-2RLj>BSH{$czNlYK!#dR{>mI7*bXp`3<G2%#Mx;RBQML~ej@c&xlhL@%+Lbj
z!YBjOq5RN|-&)Xo?c<FJ4?F3(rulJNNkygi^7qbKPVTP7bvM4tyhu!Bx>fPFw3Zh7
zBvDY#)7Ae=0S?X)hX+Iz&<7W)M$d#NTpmQ+tuD$O$)wKAEo0Z;8LA9qmSU!Ci5-t8
z5ETiWCEIO`uZ*VbAFnhl8dsM|Y4{8+OOG#)vtd;Rte-)CDE1h%nrlG@5J4=)8@7?6
z_0mt0Y|IzGEX0fdJ*1A`s64mJ-_?LMI4j1454;cZ@N9tAKCOR1KuGBW)B><ng{gOw
zPyCckkxiF#UV6N9;#@e(p^eawKCN@}uDAW67r1+ag4EFKo$cX}!s+9GtWT(^Dd22N
zpQ&4HEOz=D_OUyoV+=KFwc(uYpOlm6bQ9I?mu`!1mu3^SpdlOR*;)H^NYS;qNIS$p
z%}p4JaTXUY^ca`JzzQ7`_OX+MtjbD4LORxY4<BE{c!6>X`iNk*ZJE_>Ut8F8Ir0)l
zjEWp<(u%&N3q?knH`Kskaj%R_A3t5^lV8jQ3xifIGTaNM0zyJtx9?YHl<FSo@zOh=
z4LcwEo<%itLfWa>k$bBk2_DtNnonGc`gpn5^PFbysHZ>BLcm8Gxw`_gvxPxzEmM8s
zE~Sy5xhcPBym{hAWV`fqXW9-_G^6b<k$E+^U0e%H*rNBm#@7^9*DQ{5$tQ}6iUxzn
zKCGVf@{&d_^#{baS5R=v(sbW3H0f=SIfwD<hmk7*eSCV&#g0uN>BJ#)zVcW|jhj+d
zR5S&^se0l>6=aJY)>hq7c5w0YZ^Y^-9X(2cc)&ChASKcr?Rn~_Ym=OhL08UWkL^^?
z>q{L9W<0rSK|ZLo662DRGQ214ykA*wLYRwd9qN^jFE7%OjV$5^*TI8yfT65lXVrP^
z=%<Wh+)gW)_n!u4pc0WA7ayNv(Xb7wV!JV=_{Xo3+F1tN^KbCk>kM44cOFX3)tH^m
zBAB9Wrxf>HlZN=HCQ!<qn>R?i%@W8Vjs^&%ZQ5iUl|eqZfwLI$y<!xmYj;C{=}P!>
zic9x9E@ZpTnBYioii_*VoD;^E1l8&&JlZtV&IszVsjHc1+rMAz38~oLbwF>pHMpd%
z&+t9F;m>=QqkYl*12~IUxUn%PJp5q$U*M0YYeSTPp86u5pJ!J9{5jT<pa^0|D{L5(
zPRqOP)sQjXq2@N>u_sY1JdsZNd+nj4jXUa;LnZ<bhV5ryh+r1?e}F>Z-&gX(Vb)SS
z%>TS<7^U2R0RQI|%;z$@4S>eKFQ(IzgWM?0|9$bl_*ik`zi(62IhhmizyGJ_sSp15
zZ46o>HCs*o`!=q)^TBNY_g@&n|3Jvtzrxh7!t@QoUhr?1dRLeVA7K9sRI}J9?4?ng
zjg(q}lH%H!gM=$o#fX3kKk(01BqPsXf`}sE3lc!4Iy&ntPJY1P?0^T!*WG3ZuPqOC
z&O0FrD@~}$EgSeCqVF$B=cEDNhCc>3XI@UVK24B_eE9I&+|=>#94U^t*pc8fy;`{$
zNDH@|p%=?nSfHzIdEo-UdZwM?_MA|rzlAe&Juoo-Xut+HC{fHoMqmea$Gr2y@ciMs
zbvDCZteJd3^>)g7iQiV<i}A?bbAg|k0639fkZk5(7kLU^LQRST9tdsxUDzD$qDJJ3
zg_}_y)S^AVGHbK4f)OWEMj`k|Todh|8yr_p@!ZQg#ut@0c~Zz4ilW!yCASG{?)H13
zi_CB25s;GFP4;;}7qcM?OJ+t~&#Qs7IGXFJiENG&HQeDLCt~`+{?mDQl4tWyVFH!<
zlCwBFETsc+q^qpNhB1$h?)02CX~IR04a80axVINx_U4fL!rkCm79}Uw6fDw)aI66N
z)k5roVW-s}og<G<4%hE!@(4rk>NXOPS6FbY=IIfq8}4I|A$Uv9K<gVDwew0FEGiR@
z-!m0s5y5Am16wZOuFv!ZOUoh16;cpbo!YuKw>m@#3IbOMl>v*136{VdE(iw{24gvv
zP0WCoj(5zHyEd<up;VE(74(!FcqlkJ=GYEfAN+<9Om*)riHjTz)>DA=RaI59$3LAq
zd9oTlW_JLTz3krnviml02r?}}cwh@Oq=&15ZUsMuH7G00>7WCxh+55?Ele-nq>P0S
zhE(mhg&v=Twuyy@V%FOTQ$YXRKbt7<%=mZVVCbwP?dlNe*AW<obqwX=fUYBMLq8Vk
zM(p9CLF^p<oFw2rtg{IP;w#6IjZi_oh5G$Dq9i6Q_(QXGtMbW{n>`jMZ;`tK(2okR
zb?;JY#kDMW9K<-eqTiGatCf0t;h!iW<Bh~OSn#S8;6cz4Z=l^U3(AbU#cuKl82sHw
zq%RTi2F#d12;FvD0=v()>ysqjz~hDS{>0?*FTj782VQ$D@DqdBizxJ^Q}wdK?%bh&
zpQcBL4OOuFL0T^`yUkFT@qG?97Y!Yq3KU*)@VU9Zf5o{N#znI#aJT%h{?#=#Lm+)r
zB5kuy{{nI@XxGtQ>VxkPP+>|R9w1kpwLT*(OXf*ElLRz}6t%Utoi{gUU}nCF(bHZD
ziS98*?!^M<@1v&>b1|whTr~um8zNn5kD|||Nft4g=j1~_u<Z66IItP6GGGF+3BwZ$
znO5@liRo8l<$@|e1@B_mw#^?7lM3`yI$0)c8v-aGWUQmDOV(kVH&9kqRYky9#)>Tj
zQ>{rj0?H3veosR5IOR+khJdht%nS?+i5hf0Dk+M&cP{|ryEvfX7~?3VXeZLMv4x^(
zKM%NU*oC#BrKJ{MHWX)a5EuCsR8?t)hlkOaYO;#kzls0##fDv=SuO=8KDPa(yWofd
zm1#ae*yKmVs+%L<0Aoz*)4G>go$?}fwy@N36xU~zNksY?Fu2su-)r+#=&2?@6>Y~v
zeSl%tu3N~5aVR7JHiWv#Otn6z#Ftt_c`YS4g9BOL(sI)zi<~#a2+ai7*Q=req9mZ8
z_$}fxJ&v)pGH2YjJ<xzAI0<@Oo8zMK=Oovg;6#0@?-GlkK}%dm&#?)JH8%3LrdOUz
znUj(`gpBAPNWe)UVu=)&F82i#VFpqC;h6%t=g*&4a`>)3Z*W1GYUU~h-T*zkJ1_&i
zjxo$ej1zO4?&HewEA*m$k|wZ;d6k|h?FmB@UV`4l_qTKRk~hQaf7)3==DZ&F%2=k{
zAS#hZ4^8|&Aoi`(E@15KT?M7!<?fedm-}8hRM|ahe+o$oM!pUUQCi%lc6?=`sd)#T
znt_tD`&c{o+^48DQjpajsxET?n<k_9X#DRyeR^=T7c~K!kib_=qqi64<4AN)^u{~K
z7DYGV`(k>NLC?Z6E=J8R>t$7V8~3tWtalj~UuD1)LMB%ub2R7i>UOH5^-WEu^J1|X
zX&*g$q_o&^UpzK{yZ_)*_rz+T8S4p!lP7O?Sb955H8eLfK{ejiRSM0tg1UMbiS1JO
z%_6=_^@XF}$6BNIWp>wS$Um6^q+g%l!~p>2R;0^}rxmf^feJ|hwlCtu8)&Oo4ivsU
z_|;11xfFR1?MuT4ZS>VveZ_~c+@E?{Fh_1HymGE&<_abkAoJ8Athd3?8x>b0E_6*B
zBi__x=o@JneeRlH_JEKKW}e6;P1C<%=891H25;!=31a~m%g7OC5#DB{2#2g3tZUK;
z?r6!od`YtuGeMrIUg5_ry3y=(G#?@ZBmjA}x1iUs$dTKxa^(OU+qwL_%zs?JUje*C
z)>-0AHw55}(+aEQBug)dnpgq2ifFrEQ0lDS?HJ{2vkIaqzDIu7sN6zfskRLQ2l4FZ
zQPcici!}az80HS4`7SJp1sypaydjsS2QSeq5b`i7X3Y8=jC8e*nE(FW0f2tET?o=c
zy<qvY84uUx`p`jdvKlBvRzEA~`}2qOTp1$bQTjZNicO4RK}I-6ci?*u*u26@Y$HV1
z8B%rAc!XX;Qopcp`>tJlwmo^r-Iiycn;wq7fwW<U2;*;(wL?YikX5TZ!3i?$u~*)|
z3QR>GQN_3Ml18U)xEWiWs~#i1r)1^{OT|RSa;%n=e^>11G|RI#PTZWF^7=3jeH9BJ
zX$bp80XAoy^@k){3KsAsL!dJBYbGq!ke=!&isqNWmmx(~i9K9x9{uEr&{cS)dJUKg
z)8K)rFNuhW=`2G9<~jn{rVB5N>gV?=-=-&M5Fnkz`7;3YtRtSor%8RO=EGEPVT~K&
z;tLONPiftYnWF>98|jT;DU{g5WD<ahig0wZ0(`XXu~W=2rKtqnhF{8m3DIEqCw5~c
zLeF)C9$MviEn7PHiSG-ur{YAC>@ok9a5%hk^qh&w6Y?3OK-*G@>Y}DtG`gA03D;qb
zsf+u*H}w0l$$3kR4>?Fmx&9W+ifpW}r*8sRyS!th%zLW4+`DAi2S-`AHyWoEt(_6d
zyGObwTa;(j-t8!2=r;%(ygwQmAJI#uy7JnsjUDw+pI{I<u6R_(ByO8RW`G_&)ljG2
zIVQijLcMUfd=Q*hr+Rc(qd%~fZU{IERQ{%|1aL{l2fN{ZV%STI88~+7-jY}>hk>{K
zC%6w!IwD6gJ^&pub5iul_~62s)t2O`LFcc_HfN)Hw)TT!(O^fa#wP>DdG!g!iq4e@
z1mCSvQntsXCUIPOOKx}DGD9)_%j|N`^k@9ntaeKn>I~-s5x8%x+;b}z_(jsM^AniI
z4gVy)55^a!<`iR#?)gH@dfUKL38xn)ev!^nH1cMFzo1h;C3I2r(RJVin~3Z1Z*a4H
z`hGO0XZ3U?LLi8T4j+e-c+@X`&3rv_UmNv<tA}^?j;BX5WunZjvijFQpVfzjthNL7
z42VQj&+IqSNf@}yUbuKM#Ig*ROziF}VLiVbkBPgMe0{fs<355@LgH-cmb_=r2+)N7
zaw^<ydvS<rP^|I&GP$vlsTGlhc!RR)Q$NI4Ml1&~|A<~L#-?)vImGfo8f^X$xhaWd
zaK-w9RWgQIV8qyESTqmY$Y8qW9H{7D2ci=4`VVMQc9)wT!G;A|JCp=TL@6m0pSUWC
zyXYrk&J1DDVXtq8qJgwK4Qv9pU_AmV;RpInlaP5z2+EV^$Xr{S?(OyFL=+m)$vRkf
z+IiGw4aN(kupk8?4GzOHTvAfJF0RSNw*_H)QWCN&U$*0We>6Um)%6){BT6Dh(z$Wy
z7)2T4lJ;F+HE>&S+j<?5joP!Y$*Fo^UM&=3%3E2uY@?eoF?Q)4GTfc0C@87Gdwl#u
zhJYc`ZynZ{vF`HO4{cYa4Ddl2!jB|baiU)I#ke+ZTPDs2LX<q@E|<lA!3LZ2$dMhu
z{jB;+i|Pvc&`$@>7)n0;6gz{yy1-@No{yXJ4-30k^*~AIagc}KOm3+;<RciKRp?mL
z?G=icz2n>;fNSIu;&|T5qNZb?wC_e)meVnY{k8S$KT~b-fpJqB09ObSY5Y{;`fj|;
z-+x`s=Os)_<mKi4;zWUK@N<{9ynU-vR?e!?`6z8=f9QS@5eCWF7BdOQ%yX}WY7bk~
z(_g=FW6!>QimQCOsf>8X`hW`bWTu_nK0q>>ml}-KzS9wQ1LdLMu|305k%*&$f<pCg
zv7MWTSF@3?>fvl4rq1WvByb4SnS<q9X=%0cGn2Ap+C99{(6H5NXBZs1e)FcJ(FR`I
z6L4OlBXEl;pkpN8bnHzz&aYm93b|P~qG7#n?@`8%0sy7=LlH`17Sp_SypwnA6F)2S
zH3f2c0t=!bc<wc1OhpPA_e^_6MI0gMckLR>W<3!YDL_Z*sNxWMuIckchLJmhHfwoS
z*91AjBi>+q*w+*FPvMmT=5u;!XPU?6qgptL`i6#_5+kxwy!;wNy7PgJsQxZ5^k*8E
zRJT2Mq<gCkWJAp>qmx(b?*h7_pq+DuBTR?e7gebxw1g-mBBG-O)&Tqi%;QjwXHbrB
z8((#KKQ@-()EL#i8ZGX?#jlg>NAjO=so^gg;p9~FJFia<!!zp`?X@Vq{^7Ap;XgJ7
zJ$$$`&{9<@m@UUk>o?@Vcv}u(lf~6hps{DCjEeY&oLG|`A(#imjlwj~y8`ju(nV}n
zYABN@EEejP@3)Gw`!+K9rd`}*9T>7#?R6gQ#*LNOG86<D=edpD5T2$a;OG~E(4Trc
z@6J`KLDVbKlIuFy6P-uLMRrhCOo>W&7JW^VK6BR>?ZNh>$Gl<Ev3fSDNpcSFyARZL
zbg_@EJnwY*+qIBQvoUQ0H<A~T{yGmImTUe9kOq&<m~tIwbwDL51>Gcrd`*yh&)w9W
zRF(6RoOpwXn3`0zXNOVo)rO&8=+U6xzJUmT%F(Xn0KWsL;?k>(={<%yQ!6kgp?Eg?
zVH`PU9dGHDZcz@>rNmgsFsmyb9T>4uN(5G9;}`PQv@UA5ujp#TN{(pnV&d1KKQ{x6
zUSWvRp6NI5uFK<B(D;fM+S%I+<AVnSKt`gb7JhURDROuXPTBneA}fX_DSMhZGLm}j
zALN<D=9l4i^q=4FhJLNAtejUb#m)HX^+}p2`rOLGLqiuD50h=HQ3WDET{Y4WK>#Q?
z^ZK4+dxUm@Q<Pd?nP=CGtkvl~y(u)dXjx8r36^c?Wojv>y3=p6indnL=rH00YE(gj
z6JEP>Gzu3nU#@mPAb7e^U%9?BS*vQAax9WG1YR!o{j;`}W8;hKa_=9Nxseu09@Sg~
zNw6B80PtqL?Lk!Dllc)qvcO6x2vcn7Zv(I8;Dk!g&c3zG<jR85W6Mlkjk>Wb?uj?W
ze2sqJtvH=P=Z)B!SY?Tta3aq;+l!WonR#?RlGo<=SEfw8tS5Q}$NzgUWq1&)EEY<B
z&~_)>{?RZC*3}(jWqPVKb;0?Az*j4=vn&S$czMZ=w0a;`hVyvXk3C0Q*j;w8u<*+Y
z3miJc1k69LWD;n4wc$#>kK-!941z#_t3kw@!^Hv0<?nlJrx7(J;H9zg*{qo+y!Pyu
zO@&k7b;lK}u%>;H89_|}AD4pBMb;ZxDYXfmHnWQ4K@eInF=-Q1)=O?M&rfg~GZ=k#
z-w92PL%*A6UT_B)=!1f2@O2Py{Tn&{gZdDDu(RFhyE+#*>3HE~_gK{wVG6K-*qHQS
z{!HCZWV4zsTz-l9KUPBF*s%<|sV#JLOU|k_>iF@R6>f+I-UOzx7f)2)?CT&_qb<i=
zW$qa7N)j4uGvIu~RwDNruA`@oN1s3vqx>q9nxs5=@34-QzC`EcB;LN8AUn8nJ4}pW
zrC6i2=+8NbLI1aoBs%<^g0UsKH|v~Sr-KAa$nA57XMkLy_1lD&7`>%)i7he;y4y-q
zVS)hYcAK1jVAA{sq>c2^&4*Y*U-|r&gh%;xyze=>om{pvYnm6eqqaKyg@#D>D$wX4
zwnzS)ocM21F;)RTwN&9#e=2M2)t75|0_2)u44Tj{ZU18@`Ur*gHMABauTx!0uJ1W&
zMrg+EukJ#5Q-`=xElp2FfnJ;BuQKe|@%2ZAjX~|-9XN90ChS(0#qY)?EIht*#}6=d
z@K?WXTV)Rq$)3V1;b=nwM^M9qk3<kA-V3_#*4vU8wfxXrlurYRU4FSjVwee<rly>-
ztFy<58ytsGiiHC3z@U$6{d#it^|9Dlz{Guo3ACiHy0*J9)zylK)1T2R9>a(R(|d3)
zv<mHv=N1Prn1|L!b>e(gWo5PXmIB*ue~c@RC3RGo3WKOg&Z^Ed9l7*jGsrQ_z8t8i
zP(@S6s#BMlgd=RHX{F;r&QaV$GYW2I$G<HN_;L`{3@+rLObcAdQ;p$aVYOhs0wdY*
zZ1xk>Pqx`~rrv06)x_t`2?MCzhDzJEx1ib1oqQ^wy5)@98lwZlk0B{@*6M)!1KV(;
z$!EDt+qdsk52YZ`&?~@33R$t{C++6Vil~%Yv(1j(W|LyZu>Jc-S&Z-wVLT>o@Ew4u
zRd;UULuw>gFe7)0S&=>c9pI(;;waqTXIFaz%g;I8b1v^v*H(}mFntWPdn)T)U2uex
zlfdxt4On0BNIe0^JsQ8&W0PPea=UCcR9-JIhfAj+D}$3NVI!M*F$v-K@#7}D-Ge}H
zgH&$-)e0$`Z?qmLm%#*XWcGvkd@LRXYC$xrD7MLzrkSG6{h%-hJq4HVKYuaZ;fy}*
zbKVR0ms|Nf*R5MOyU=wm9?UYKx)D`4*JVJ>?P~Iik*-wTO-JlLX-W@kWp$Z@y5@#%
z)Dm1!$$Kzgu0-!g&&c@2aTj)^3cM;hjRwle)&|Uv7gZ~<0RaIHU+Ni3ammpnl#CH6
z=%7Q`BBQAH{oI7p1eTFh%=`<SmyfxYA>x7gMs-D&{hzUxX>0Qhcj;PuZ2L-FHN2iZ
zxy!c?*&xX47738^WB-|99tygZ47r<0l=<e(I8;w0S&5w2Qf=7qQ}Sdk_Lmv%O^ACf
z3qzjPAGakof_~|SyH|6le1-uj*~zIUf&U}!xp)9P11-!Ql45=SrD)coS{8Ac)Ze#n
zA19s=P#Y@*4&;VVkj2PN?j#_jf`UB&&ke~_#`tF|Uk2iyIT+LcfrQ8g9^r%>=VI6b
z<Q;>GI@H#;u9UBAKrREJ^KoB_#p?4G+p?eIX~X5t@QK3K0fk#096&G{193Ze5Ep5O
zRWC@OvaNxUEm@k7oO2{4rX>MP@W5-T{V~>&<NL?wWUOQ-q^`02G_<r8I1A(~7{jRz
z_~<0?-<``%0;wo+;&6CP!aF#=tK9;#dafb`@$tKZn9_P`YI77N%UGP&GEY~~<~9J0
zLN!T=n?qrkbpD;x+)Xsdw^3@;&o-s-t30SsYKi$E;YWILb|#yVHOjeG+Dz$ru)%`V
zZew7GH37$xd|)JGk#&rViwU%!n!t=$5by9s7914EW2D`+C*Kd`S#JmabD-Sy_fKa<
z6%|TCR8*AY<b~InAC8{Gt&bs4>XuQvA9{2z2LFHky}tvSZz4<JmjDLZBPPa(q()9R
z614FgM1a5%ALyn8w&F0(qB{(Fjotil+`Fmj^Aq1S_pGba>&WS~1DKGCN=j#)4{yi8
zS`qj=+mU&JH<1fIw>XVq%luIV#hS>GRbxzn@s_U>_KMKvSVk{~-0I7Tfr3A$JUx}P
z*D^gau_A_lKED_A2zeAx<Zvu)0fhe(#2X;bQ~3|E7@LTPN3O8<Dq_L-nZ=bT85r8k
zM{y6V0*I!`mzn<J-;aW%%>kT3Wu1!LzPL=XBFRd;0kU}x1B<>fM{LwrZgX)eql6v_
z=i_v*XA!gV!(qhEUlC&`9|rgGKC+dn#6IdSI-&D+3x_N#V4)@FovFIXniNtlle6w$
zg$P7GR@OfXi2OBM{x)A8C&v~%$XEpZF}4lpkS6SdlBvdf@&(XhK<K>oIr1zXfgj*g
z9UVq852PCwZpC~`0R^cS8$T9OE2oB!1wZqjS1@1L|CcEle)GSt|5szV@jnz7TUvit
SdBy(~)jY1Gu9&G{>i<8|F{;1-

literal 61843
zcmeFZcT`mAwl7*JA|@08QOQvxDw4BE5P<?DX93AM=b)k_0m&*!LCHBvR>>eD5=t@>
zg(Bz7ovT}WpL71W<K1({yYG(kE~EEuTB}yATI>7f{H3{q6w%V>PG3EZLZQyd+?BYG
zLY;6!p^h8k<H4T{#=c#Kf8iO*N=v}M;b-Sgl`s73l-*rTM-+-80QnzI_|%Fq3Pp{Q
zk+`kmmM}l;?nczRdve*9==I{adr#F~oVLMN%cO3}B4MXy3Oqx4f$)OT1utAuv6beU
z)1*3LCrDi+6szBe^+!{*ne?A|%vz+(6!YH6HkQ9mba!${Cf;~}p8oo1=i21#JICoS
zf~K6Ut?{>R-4@5kq5bFQG@pR}Nim6ken{$ZISBv!DES#ajtl(r!z6a|lk7h)B!2U9
zjNxC0QIuQ0_~&heCzu%Bg8sZM@E9>s^*?WuzzII3_s`o>P>uijkBhid|Lok8PY?V)
zJ@~l0f%T?9zi;4S{C#X!l@(`{#AF@or89DjL?|)*pA%-x*UE1GKF5kDbpP`+bTC_;
zY`q{ZhX2TAVPHpq{Ld*fKmA`geQlZR!H?Or%f@ocN5qRwIxY|qJ$dosLPJv%?e*)Y
zII5SArOC%XOO*~6$NyPWJ3ems?%lgLzDI{2_7<xMFI{@3ZBucALeQn5nacOM<IGp{
z;OsjA1UD|9g@5?$#!#q_Ry=eJ3@141_Bk(Jym$fLA-GgclwWr!KtLs8Ri0$j9QO0c
zc@eQFM)?a@t_1z~p&@jz-mOt+c!F56Yeez=-2SiB@NaMLoE&m!XTv{pre1h!=!v?X
z`w1*2KcL?#PqBvNC&vPp)sGujn&Ap_H~Y@@T=&}SH~lqG%3@Qsz_T-8*_U%g&-cI?
z&U|dHH~Te~C7e{x?RJw8{DlMC-u6UzyRq{9`{c38#3!m;mzqvedHL~J54_PTwSWck
z@nCB-{P1AUs4<v?iJ95KRhgc~|9Sg^8*d5<zD;rN?CkKgn@zP&eC%Gj^Lq(B40v;I
z2EO7&=eZt26qoQNcAZ}(wb9YUgjcW56(x<-c!uond!;)wT)Wo3Iy*Z%K2+hD0{0M&
zrQmmXr${V`PvhTZM(n+}>8w?&S!_bf%d76_Y5eeE;B-fP)le;*SkU^qQ^!VSz5amt
zuWxUQ_6JHWb(_2o_uacHoh>`^g`-+0BR203mRZN=)Y%MIzK*MMnvK*!r*{W^{`{HK
z_=`#L_DVCAWUf}Jj*Yg2g#TR`8T$%7HtQUwVEN$_Cr+?qJKEceHJeBjs7@yNQ2kk2
zdwh?}BP$%HPE)##;Uoxq_R(#GQVL(yt#aw*x@v#8zw=?KcF*o$*IC{<U$^Sg)`%y^
z*JRP9k|F<7L^mw^ST$HL3GGZqZ7)_WCB!Po%HEmzn#kQ);JxQE<g>T%qtGazz39r7
zD{jl5P8J%}<H<XF28)(NU5e+i7GD@BEi`Vw6yB>z*zubCPH&bfPV{qn5tsRwX;VJC
zv)A~C%Wd`jpFNAcUhKAFxIWi=1`foIZSU-q#^mYVH2q2*8nG9a9)4V*?)>i^7GWf}
ztj0Of94>wPHV%rKnfbKn{_=4+;q$3o_>xL*m`<NQbH@JX=My>lb(FTXJB**}>lgY;
zJvJ<!lkuWO@>R1hspaVeB_xnD1s_Z83Z#<`dt=&}RP?34*t9EC`I>yXcHP0|AQKal
zSbHp6q2mmin3z~hiI|v#!~oluo1t4(#wzHx{NOA(-vwBUw<RQSr@tnKw8wGO8y0>v
zEF6P%;kMF9YP{3aqw?<kdw$)cowXU{4!dVQe);n9mn2~_QVu=;eye9GOfB$5Ei9Ok
z8&jdPx4BT`;*R6#HH_9u5O6--+S<x<<heEMYCqXRNPOv%xDqkkipi;|pW7=FFGYPt
z2Fk3ln;r{Y*bO&qZu#Wet6Qd(I#T$LRwkO;XYM>ZYp+#%`w1TMN_4VFXi5q#eB<K&
z=h^D{h8uIeW<41Ztbz|dqI4=8-XGI;FmjvVTb|sz@TZcEVQCsBHJ!12G3i27e0Fa>
zZ(I(QA|xYY!CDM`DD3Y3oQ_VkaID;bJ!4Uxu>1Wus^JCAok`;p_uAXqm>sXWdU;iU
z@Yu*2UJXtO{F*4(UX)+G8eH#2B1s6PE81AQ#O$Zj9_ytLx5bK?hdZ!a1zEAD4!@(d
zIH<m5DA8%MGcrmg@Y$#AlP%mf{hAQ5a``Nt0oT>USOo=zxGBq?jGqO$n0$Q>*!Gil
zwK0u`gf*U9vCcl*KLZHbcULc-8xbH7+7S8EBJ%8UZ5g8C<5|*Sxi6l^6k8AS=+t^?
zis(b#f(=F<>$}mbjx2$l{rdBwP8DGvKJa-R?#$qyK3ybu)TeDLIa=#&eYmyODN4u4
z*krTw<_-083PCjy{c5+udS@zO4`SH6$5FT^PflR;eVr@41riBHeUEB{tbI4<`zdRJ
zVsF)2U1R&+-CgK=<g?=iZ6-rKKS|rUG8>&J;82p;W#;7GADF3}-ZmRSCoN!wg#t|;
zF0z|ZzoUj6%V#gw>#&1&)a=~Bv(-NPvCJ)+-<#Ya^wh|`X{Ziy-S8^wr%Q526XBw5
zv!wc7g!cCK>~XJd7(7lGDKt9i;NXxD>$|s5uJryMNxE@Q`iiu)bgKK>G`c-IN=7|T
z=TW~^nf77;mCuXrrRue?YLo0+1_lO~VFh^A+K!6EwYxp$7?cTFsyos{yZ-w2X?hj6
zc74QisdYAp=$Zhlx{l8C+3xiAnHrCc)s|g4Iy&PN!CSY88XFraGci%s&g5=$-hX<y
zjuDimov|n9C)byM*4xh{x*G0pul%U-EN}PEe(kJ6h1y?BKI$ovgG*(dR8@IhqdQGr
zw@))w>Ky+tY^gZ9YqH@YT(9I@+H>{m^w8PTlvS%Obm1+tu&vGXzEU99o5yB|DP7-t
zqxUps!dyXkBRWB^)Pf{Wx5}h^sL~nxpil#af)yzN6-u{H7f!!7Tis}T`KMWT+Bu89
zoFM3|u=3)YTcfT`aq_NKc4)a{`IdYBwNsj4VL2WhY#G6>f^UXWbXd!VDti9B=>Cl?
z)$C`m>#KL?vVWAAN7XCEi{q1vcxi}WJSuC@>30rxH>TEZnSSMC%Qr50gWjr(GqbYF
zN#iT|QQ?@L;IqHd4Eym>U?9H#)2B47tY>LxXjb2%e{3ucYqQT-><Kl-EldVq_&mLO
z7Cv$5oOU_O&!0bec%%2G;`HZZkv=)Ko}rYQ(0AScV~KgUVyT6y)BF#@WZy&nGOPZ_
zIXSGbt6$17#s|EH)n{Z`U9a8z=-NoY?>lstjM0td?dHPZL|Y7tMu{1rfa{`F)PDQd
zuTAT--4O{1&!IUR&3=Dx9LwP?;Qa96yJ_c94{WYO<(oGj%{A3i<%Zdo0#leA8W<HL
z-B_TgLe&lq4pvlA!A<RAqMGwhgukpHb3Ui1UmA7ky*`VQk`k}gu+~`$0TuMojOfwz
zTcRv1vU<tt`IuB_S!nDYESKd0%lsYVqO$60Z}Ja&|7`Jr8=tggp8ETbRm>#S2a~Wo
z;Cy8V?KMZI;v!t<CwloOQInICZ?wy8UUC`-cND!R^3S_iY5|Krq8l!ojn$*Ap%z>-
zWA#e5US7=V$xt%hSl)O+=Q-jq3PF=wN9oBvk=^;VyUgO^;^ckK``h+^^%PrJC~CP{
zPm4`EX*oE~UkW)9oFax#LlqPhL^(pcprgCBDMfyAvHG7D#v`{pg6kweVbPoQ6n4G=
zR0k$j)&|pLZ^oIrl_s(eJ_nUvl*Ggj9W$RQr=!ia!c&-d;#@M6)5A`tY*j<uiN~IR
zdeg&rJ$>VCZRSu1GZRzGbehF`qKw+K?%5lL4fs1=(_daWX#MU6Pw>t;Xknl=O*!T3
z)fAX_GYYLV5Pg6~2g?g55v|T>?g2g1mG=`n8!ww9_vd{ns*_XR|6mB~mt!@jPC#Kp
z5a&cw=+qHFA7kY-)oe9~fv!?nSr+f&_kd@r2;aL3A8t=L2yk=v21MZ2PEJ1L7xvt=
zqLMO9-W90U_t|-0&9nIF$;pUUuTG&d;Qg=Sabweb5}#k?ZkxjYF+Xn=Pq?rMHCNos
zEW<0$_}zL}s<dwG%9Q<^sefBHwiq`*9zWkQ3oAI@9X=tt8+K7objB`HO`M=iDCKH#
zpO=`WfIA=6ohlV7Zf{?BKJ}E9_wIT`H?-^WD~${15wOW+JwPnh>THsW8A=pz&SFhv
zFvzCVwYYIvC(jkYI>{*v&BjVrZDAtaTvuz@cD?=B{J%Ys@{8Bm*_(cKrE)VEojG%+
z@L}u4o$B=|Vy$wUP}m&pGq7r%J&ZB|1sJW2H?CF)^kc)Xa$C@Iu-Wab8avH?mt2$Y
z1^^T8I_iyy|9K)Bu<SQR8BCeA_QQt{w{N5rNrhfzNWX?o2m~lEmn@=tm@gep$&OXD
zP2IhJelrI^n^DvAOtE)i&Wl5u=(@G9f;_x;S*&4MX+Upp7pSo(cU%2;=Nx&3*M{8C
z$f&Ev(=|u47%z@p_i?`!o}$C>S3pKqLmvobWMo>te#JupI!lp>V&vI?wl=8a=maee
z!HWfe^xV6-C6(-U*UbS7eVgXm2GTJ=pSrK4sCXfkO&c#UZ}NghvB|mdiHVgBjQ#`^
z44zgifLza?pJml9gB|YlaiM%P40_KFvr`=rvfi(RfB7QUlc{`?%6pv<PzxJJ5GtDf
z=xYN16DV0%bSs@A^5t!@KMGTaFxhIkp8*LOKQ4hQ%p+>T_Z_|r|G{i}vLRG&KG#KZ
zVo4kn)HZT{2V8{943yh0tyur+&5lbDaa*Q_<r)ASscqrLD>*)|?HeAO^FeX?KAOsj
z{~kD8#n0k`l7;K%AgY$5@w4D-`G`lhj&oyka|nxi9$yXzKfh+Iyn=#jg}fyuFJ@|Q
zYiX&dy3w#OC><$+J0&GtgyiHpi##DAA&yr<1oz)3J|m!DZioBUXPyXPQ@diY>mg^w
z^Im1VvzH(6K7;;asWoE76VlKi(J{zl_Kmu$z~Ii#K3qT-ESmyZ-S&9MYmBJ->cjY%
zuWqY+%T53EBK{`A>X^HC@8ZKAJTJ8N<<{#qXzxbQ+R)O2KESY`hDW4XhPf<_P&9{8
z)U%ZjrSO~RTMm?5=j7!4R%)r<(SG*w4V0kk;<};AqfFq1eD16Ck&%&J6v4Ux^*ml3
zU4dp8-@u=W!4|r&nb0#bR<iE3UP~Us=GRHt+1XW0IGOb2XtIYdEic;v0DcR^^EGy3
z(ta%TUvMQSIR7|xr^Sx~8lRmhQh;Gskh=-T4+dU}Kxkl%NN?<_c6W4I7$6B3-n^Wp
zVt;TE0gKC%Q3{5@>@>=(uH08v1`6Zu9}tjg-ko+Ajh0#(sfl>;!tQw4w>6uZ4K-HX
zN@Bp<4Ur781#r6ihkHvcEiGbpb~k{}h;W&I$6XjKmj>*u1g%j&V7`2=FE<40$ylf8
zQN!n_XChv|4j!&@r4tpUf@0N}=sFVg?j8O91l7^E{oOTWuU-Iv)$-*_^br~7!@Cuc
z1vhWr{88sC+Lx;x!0$Ny09eEaw-s7LL&I-H#<D`2Ka8MOoP<qLQ+NuWfS?Ih=3`jE
z22iel6c`+be()4P11&%Q6$OzU`byWOFzEi1Gc$47HVTv{N8J9Y$$O9eFMP(_{sY(v
z36*wME}r`XcP0K86_LqjaIa~gjVwsRt?;V3E>h1!{~KLq@%>M97v{V8G+q?Azi9*f
zD~3w?f4gS$&!_)aB%%ZX&rQ~|c*o%%0&>1FtX;K~5-}p3$i}f}XcngpnRtd*IL_<}
z4Efm=SGycj-C7(rxN-Sgp01#Nz<q;Gkv-(yfRN^6c7=PTM#63>Y7UlzSmH8MHE08k
z{3$3(uuB%vFC`>+--A@p>Z2ni^(?>s?dgm!-YdD<<)1;KFm8{%Aij-ALv<f<m*mGl
zAwf8tp3jc)5VQzDW?~N?(!b_1f2^+WO#<g8>Ely7Z2a^B)G_#nmv4?t8vhZjqn}U;
zn^vdVBVuA0%KJxvpKc3G`YB$~7gW#JbAG+=x{mO({5u>*K+NHtZj%wxUKID9;?qp>
z2tfhS(+s#a@Jp)UN=DAYcPQ?hYeUxM(4fy=;lyQ(Iz{EP{dSnMqN0LCAc;e_@}aWA
zy?en4TYF1&mcdJK(hjc->Ytg9u)B(MQn>$m8}N|z_(=j*Op%)J;m$RY-CuNoNAb#s
z9L@mwx<Ex04iM^RDDTKe-=jVK1b)Y+Y1t2rhM9_caXv^Pn+om)at&MOrJyT29szkE
zqx@@X9-d3UO+L&dc`lEKa2WO%8BZO~-zPo+D_9(Gj$*NiJnV<D2x-bs&?$6%@Z1E_
zfZ1p`?!l(d*BR7QisR6a#a4Um6z%)MMx{7(Tg)`-i3+0>X2v+K|5D1&ZKlfDvyWkT
z<Z^34l={Z*IElM0$`3i!PbaAw02miSB_bnXCyda~9>=0uJXhD&Zi2A&<>k%##eJwF
z4?2^CUy67Ota}JU8-J>lDn%nCw2vn}r%lFd(*OX$n*#5IA1o5pj3{y<qKT(w%<O`K
z+Ki9j29JZb$jHKSMp9A|<#&lq%dOf+p){g=;;hQtrZv>qS38SkgP_s?h51(J>#LHl
zH*CPK;5A$7^Qa7MX{;;N9{y}(S4h-(E?WMvExciSwVeY5z%+9*2S-Pw_wR2G+8R$A
zo0!l7MT6E}AAMaJg%Um7rh{&Hz1=P4pu@zmqU}709e{4j1ef44^7-uZO?M`T|N3Qy
zv~gIqE}Ao?mY8o@sw_ZleoP;ko15R2m96(&stHK;**$f%KO<^;SI(qZ({XU5r6IBA
zWlo`h0Kq=nP1UZ6#Qo!2$-Y@Fp2tyMz;?_A%h>SFUG)dS;7<C)4{qAZikkrHp(~t4
z=oGM5u9$KS*2{t}tf0R#%DtpMN`CP|aaK^QZhti-VWiTT<u#9W@YvXccuuKQLZC~$
z0wsQGu;!~=7MQm<L$7j+D=NMqP09QK8dCc#D59MK5h^;+A!~MbS5?T|1;2_-WqA*q
zmje*;+MP{D`4Q4dsj!NPj%Ri{dYW{+K7m4{(yO70#3!KtH#l|*&o~IfXUWI&Gy-ks
zY9ui$DlYCylP8-Wsvv^1E~s~S`t<2tIXNfy)1Kj!!VjQk<ZAQgH%mx3-Ex~RY`#E7
z76PCMxf#EDGNbbE(9*76Km4M43h>S;0Af7)cme0go*nFM(OtWC637L}QI{@_10K-$
zU`O+s*LJZ!&>IU43s=#BSrOK8JH0E;GO58al+{3q3|b%Bt2lmKIGOXVrThGFl{y+U
zf(4Q14Zek;)w092(7z~iJ=>zM!#6^{1gN#C=C1&wTM8sSy?|6c=?Uki_~aRr;wuPo
zL_L7jZ8lmfjCwHi!Txn@GN5L;MLb{!Asn?If&3e%{4gw}=H(^zJ=h?<#G&^b#2q>=
zE*18C3^uWBZL&4WxE}~QA8WZ)Kd1bPR%26>A@n{Cpyh~C1v)DTT};7`hlX^3yM3SL
z?uX086g*x~d()_?WzxpWONhsI<T;>Wc+nYB_6HyRaEh$p%FgSF*LUC41a>?)h241@
zK>5ALrgl2NnTc>G44qyNS|tt&+T7InISHrk3H*_Jpq4ETSEasrgF-3R`FQ7OmlKp)
z^fD{+aB&fzI&}(=)JKqe!eK)k_uQPX=%U$6=rY4a`Or|u_2ucFK?Mc}J9rF~*9}&?
z-$K3d*qGxTX3#7#By*1|^+p7)E~;-J+g496f`Fdt&R?UqRCrmaaWHu%Gc&VjQN(-q
z4WJeTByTQ_h6912rlI*Xy9&B`WH)@?Z9~J9j(wne5>isMoSYY3N8C*-r1P@$Nt3)n
zk=;TtBPk`70-a?W&Js|MAFNs63}dh|Kv~jzwF;{6OFnyAzew*FNl9Vawl%6>!^6Xy
zpI^D92=b3yq5ugjTx7fJxlfVgH@=&;H4XnzPZh32yIKQu^iqD!=2di(P!K3<DfSah
zwFE(dEv9^|g^~RrB?0!riKc(+vN&YE)&53!Yt&a%&tsM${-~mIFRMmyo)U0(eZcu<
z3fCbTTTV{Et8u(Oh3Xg(xRwEir9yiEm{;t{yoCG-)YCVhn<MQ_PVTIL(=R_zZ}C9j
zE3e9fqqI9)50;%n6}YX8bMnq*{5sdme6brO8N!Pfk3IP`wk+VSCVH?Q^}Nd?ICo$J
ziz$TLc$P|poK35wphB~~oulqKtnC=A`r_x$;;dRF_)wc0;LIL@yffr7Xzey0bZxm;
zUB6$LyOcIR5w>IX(cvD_S`hyOfq6iC@3^>>O>5LJ2nv!x-$VI<EKsSdZ(_ojCim(w
z{Kt6Npv@gX--v7k%-3tZOZqMl1AcK?{6_#HC%~4F23=ecs44U%YA|bnO0j?c{(ZjB
zphnNc!J#O}6hvmXovAobT0;<@26lDzv><zYhe?iJ%~j~24c=SB0R;s&dh&G103mlf
zX@<akCBb`gJB*wam?+$aZ~_VeYFICLPjF72r!1*@Ufd8US`rb<_w)jS<^gFwiPQ5q
zbzW#01+WwV<Rj$!0Z0A}7c?<1y_$J|T@6eUje-X_dR{A%$n`;N9K=-tHf~utSXt@~
z-NMqfw(mfD0J`8*IOqYTESRFhrtajK_nL!cuv$PX=b`joSK|Nd0t5~n#~t6n=Qw@V
zFVa#a4!ww12@M1mqLfIvjios>!|3ML5B3vQkyRGSUaLXF=C%zIn-zmIADm_{0<5~q
zW5slY0ouuVfPBSKgR`)<LF%Pio-gjC6%nBXAdsP7CxUmLa(=aVRcbRLG1H8SYT0^}
z>%vxY`d~YWYuS0Gim*i>0^f>F6?(GO&qH^}P|Ljv?B<5um>8>mZS@c@PA@GFkD3pj
ze6q;!#0C-J3F6x^_W(=aqHx6a_t!dYFs{IOHT69_JYMa<9*tOo2G5eFkj$PO=cAIV
zr3%}UiU6ZpnFmlYHZv8B9E1!KB3f$w2F`^~pFSCOrAQk0ZGgDTr~7sHMtp}jK8+k>
z)cz<iadMj{f;UgmG{CP9D?no%`6<#h>vYWT*HA^VB5|XM52zSv)?hrmLPVl^>%x07
zGK8RAfoam-&O(&lhxrPh+W_Jhc^?HOB|8{)^PFn71E3~8pBc2R%e51}6e4++j7P3p
zWZ;8+YP|<6TSky0CX2#ISk!*7#zjTZ&B!P4DM5z`hMUT-;{)grU2eKI-9gLF{?+^}
zv?0<<A&rZx{r&w#LvT48U`<GZ_SxQJzc9dE)eg?fi0$BA%LGtiy4O8k3b_{*>%P^L
z9BiDcJ37dR?um{|<abP~-^d=s=na}%^LpxeE^y<B(bLm^V9gFQ0(WdmD|`SB{ZM$Y
z+!j;v+=GlFcMw*V1>m(Z?X5sUI$RWBej3rE`9cj=haJ!xJh*tWL7TgmHvwfHpzAFF
zfsxqJV$<+pPB23XcgP*n!0artva!j-7+w@_nb>P2)zA3`Dw;wP>*FU+B<<`9;H}b6
zu{(fajpu!j4$Aj^;X9moP-i=pX{3U`wMYKy)vMPd>C(?H8@L{Th~(NI=P{R=E^+(z
zqxS8ZVQH5VwCnD6?P5IMz~P#TXT@BIr^Oz-&WEugj$gmlQfQaXy$_`l)k9std-BP^
zH!AR#$wv^6Qw~4B@1B)VQi>RKj=d(s>o9pYj%prO$~X{E7tH%SY|Yk4aaHxMtS49y
z+|E9zz^7+O2XflAPwBbBR{`HkqTFWq;j5@?3IktwuZE82RV`jbNx(fJtt6%XlLc7t
zk?9$@j!O;ey^TJww@1IA)FmaiZEfI+pi55sE;uU4GOX9Av7YP6<ctMUs``P_^4Puh
ziTVCw7c8`?&}o6gT`Whu@z&BP$IQWU{rRHf3%>|SNTzOdrP>gwhl2$$kbCDqU>p7l
zxt_yY=Qgk^HFCgmM$7&xK!(d>pI#dsK)<5sOMNQ1K<j@2M3}zn{b%RM=9}Kwj6xTT
zewAN3JP-0IA*$ic?I$|18#B21yds^wP-bbd>b?e|KKmc`kARXS^u0Zd_&DO@6qip_
zP35)xNXHi;L!9v5V}9ST8|+c1=N9;#e!YM@KJL4h2Jjm>ffQgzv;atk0HUVYj@FKs
zkNR})yYIq+h~C?<4i{x`WBEQ~ckOn@;mSxa;*PlJ%kmb5TiGTqZmxI_^PVd?n91Dy
z9y#Xhx<@QYc<w6Kx034ei`DVGwz1A&T75Qlr%h=K22)1j0B1Inkb6qzI}U@s1HeZH
z0EbUgm{LA`(3l^o(e^oYj2fEV16SSm*wg3FlfpJ50`HTh+a6kMfIR$Pb1-O}289~_
ztq(7PW<vz`C1&j$-jkNr*21b0pauA-6p*wD25-wg#wg#Mnwe?W{{&rxB{(Exs`}CK
zlWkL53xlS-VStxbdXyD{7-VAuVJCpAEdG`$7_95b>FHolsSuM=v-35#<$Ryx>ZDBk
z!fan|JoK-)jaMBe_ET*nh`kGY{XBe8vDRPVM~7Q=tEEPquNnZ~H4eLuvb95x8u%%)
zT1F}C(ZW~qoW1ZG9bJ7I-4U?fzrF=e{1lI=v2l>T?}4h*T#wA<&?Zi2asj87v|-@Q
ztk4N1(C9EYB>;dCiHU6BQP3v&9=a=OXqXl6!!oosgu80^{hbUD7G-#m0Z+W7heu_G
zc6lDF>-w)QPJ652O4YAm^Tq;ct_2k^VJH?*QK9{W6aXY@zesx3Sq=XShE30}@C>GQ
z&o*33_M)9Al&*PR!+H2!DsQ}G4wIj}J(ry?0mlUiG}hXT>uMt)lm@V<jD`QI;~qNp
z<+?pGpMYlE1XvRh5kUhmuRwzpIjb<#32F;Wp7oY&dZqUQ!>f`qZS%QznXyWnhY4dF
zO*0iSDNN9?pa?+wX1R3)z72_3s~MXq6fu)EkIOd={eM8!>TWP{-{$-j9~XBGWEfo3
z3OJDbtfmyLBX4dWk8{rQ)v<SRc~%9@f-CeJfI7^&(fjm^)g(W2aq|Ve2{!gJVkHhh
zbT;0BK6}%3Q3o-_4LD!<!`dq-P=sqKO%GWH2Lv^>Z`(>x^+$Po`Oe1UeLh@!_*dmJ
zL@F2c3<D!0qJV_}8oy#|VDOgDd$;5zuWeEql|GAjP2yLn_e6xMF5t@3o+KcDL1klG
zz4A<Yj@34D@#CZ8F4&t;jvk$)d@(g2D#xm;KHHUTF&EZUWZXU<t3)gbVxw5>-YzzO
zA=a|L=sk)$$$k1t0Jb}FY~!Ka9AOjEY{c>7yH8z{dpUMPjSc)_vytkG?uEsXnkt>q
zcQR3JHDRmOE@xpseECwM-T7WN?qLORmpDNJg~G72B|fc%Nkwz>N&@bs4pa9urPb8b
zDvZEwi4MAgqGe!sKjgfQ#VD}r*LXMw(9xIMj<UB~4_Ee@=s}yv&??PBjol!$c3v5m
zOmBSzZmQDP@ZjL@T&tfe<zT0_e_4y;aUd~ucLo(7b-{X|B=g(qVp+)U866;+<YDZj
z;(-A2TZ%T(+T~@o_wPpzPq7Tx04R&b_BxoKbY8{xOEaqU+*&lATakK<AxoZ711U1f
zc~G$92%1pb8X%9kl04o~FYuUh!?(BHy3!S>ZrYAiJA{8OTUC9GF)R!O{B`EdWHXC&
zYI=uBar?X20pK)=jDA9dQ8BT&`5P;6B*ENv{fpI$<f-Crd7UdW$-ZqnT3<5?!rp}j
z1r=8GD4NfCdo9&$34|U=ZA1w7H)F=7*5!{I9GSm=U!$|pC|u}0cT3cZ+oSBw8?mMv
z9_wbw4Pp|L=U<NHN&rY;5FLX3G!Y@t9`&x6_hO5Z*JfU4MxG_;@C4Y_&d#_ga6=ZH
z65ZY1S3ODrclr%;Cf!~35MZRam*;7kyEb}sST5vT0|=e6qP7S47L#A367G8v5|UPD
zUW=ZV*-VG9=$X=qtSFm>k7Z_EDMR*d;<FsDv?w92b6q)nm$)c6A!QHXVB1t3aQf5M
zAp)(g%VW0#rizM+9#(u$t<Fg&Wn^Tu5a<9W@eIlkaxccyy%|b(98=z|b8ZT({I&U6
zIk2QF&6J)w;_X#~>~j)+*&KFtM~79cmP@Y_`!)f3yDqTnce!W-S*)o2pg#GbY>WSA
z=wIC_cXw-v0~H8qsH&xfIhR+!iraU=gQ2V27W62w8P*~f^{Lje-=+PO%@kby91Z>!
zA1E{RMN+9sO*8Xnsac%A`;1h(>jkxDfo6`J;rN$Vw^A}P?uJ<*5*4D|Bl(l(3<3fJ
zi~S^rAC;RkE+k<cqp#hD8fEO;+3(z%+hf`kP3b-tB2sj1Z(GZ~%64vPFTXmWH15LJ
zz44@hTF8O)cWM_rc;rboiH9v)2d->-^8(?{YXTK>e}Dg$+2Elo7+rA5>;;a1K?4!p
zT6ER|>mb>gZwc^-!)_@?&rwSOf-gxPbJtO@$xkMXkc?1_1e&+Jp!r)D0D%AmMTE=U
zyLZ}2028nXL5NT&qA6gJ05zoq&ChC)c&N(N7RBJ&Q99y0GO`J%^z7~1x7jf>1Xve=
z$mnQX6e#B@>JxU8;0%Cx16+=2tq#g$iqF9=>fYkWKImCSkPX;|6|UQ7$`gOnWnKd%
z=HS2yMD)Ewvx=f3_2BX=)1*&8U6u;0Oia=e!a_o#x<S4KW$HR=3{q+c1%T6;q@$<D
zMeKEFHK4}OT2M@DTAdKkQB%8wdISB^3_y3gwIWA1coOmMe=nB~D;^_2h;ERl=mPl*
z5_qu{#anRKa8MxCx>l684!c}uW{$*CaX!Qcv2Uit3qaYF)9e<r^WK1<R9m;rd+6u#
z=zynBV=Og&CvrR2pe-XIA=C|kfv}Rm5dSq&BZzu1|D%w7>HFcgJLe7H7%d$gjR1g_
zLE}vU4Hz!<3uDC5uUe`l15YWwxva69Sn`t}&hZ=0b1LBC83J_tFcBt59;;rii{RB=
zdB&&&0s?}~dva<JBK&-YquNivd5#(`1Kb5@vl)6d0!f~W{QKbEnSn!uq6Xf3{rdIS
z<C&~BD#;V$jUlU!w%^{|h7Y&fb?*not73ktJ&vLe3#%`Ecl%Kf??&SxOGn~nrP3hj
z#fy&tNa3ImpAAIV%iskwK*P72YKw7boD2ig<5<B$JR#w*6;f4tP9b{N=<){01<kWw
ziRgf;#mX}%yYYro>Bg45SyOgN0$0))`VAH`jx*@n)O;el34{;|fKS2B==b-sgcKAD
zMTZcc!RNN<`3NYo0JJ6~Rs~`zEX~!oi!Ir8ZpS`CznCoHrkR!RL%*VX`}Qr0n&_#P
ze4;?9T#DSmx7W++zM7gv4^K(7_Mb;now>xyq#Ul7FYVzWVDjbVBS;7#w+fUANvQXV
zRW8;@V2B`!zd4*LE^*8E0INS`aWcC*U7>vzdXgYp6(nf*bA4?20l<3IfO_@#@i9o2
zwFY#VL3%Jc|JH^`)kdGTb)P+yHGZ(?Z7m1zHaO3b@szxp;jo@$Mwh|~r-0A|R##I)
z5K$qLVybXxoYqjKN|t{O818yx)k0)a5_|f|b5|#ess*~PQc>C7QW&lUOl%z6J7AN<
z1MxNa<_$2O?we>jM}D&6vD8Z5{ZJ71Zn<w}2MmL$byy2y1w+8LQK*^D<mR_`0=Rl9
zAnGYi<xOl`cffQ1{{0v6@gX2v_g9-Fd9BLCV*=`c$-2SUzX^6f_;GZ?!oyRh`Z3I^
zpm(C8OQKjnk&5YtyRm#vP76{R4}N}ry1D~EK<IuxZ-wLY*y&smY4bVU!q$flJMNi_
zQGBv}J1ODwK_WhHHsrkvk9vlz^T{f_5#i=%eLxpP2SLmvMKXSr?vsQ_`W5^DP-%+$
zeI+C&DG)?5r=+Z1W_5jwqhj&<s%&MS{@{j3P1Vo4T2fUbW?DwOaDlCpEO##Q06y9u
zJvz{TI$m@?{Kx7h{wdo$FifIlqWfiES46&k&75BPoYT4K!3{)gL<~L7Tek{rh6Ruu
zAdte#B3^tcsj1-pM{>4jMg`4rJe+!qCKlcvdxCDa0Y6<#M!fJ|46_TCDgQfNXODBH
z^budGUfOyby{|c)y1f?MyHgNpx&!ccdYc)DMY%2kr4Um(0C{ZDKBSc<oj{|up3WSc
zf|KSb&WUw#1n*S}9k<mi<SODwOGh_VQmmwHG3TuZ2~p0qnhkdwiq>-|Q085>C)9xr
zKdgXjl_rioefsogK<lCKUs6DY3xCjGI=HQ*L<o7pkj4;FI>=N4LTUI*2JQ!jM2fP5
z1Y#UrVmL?z>9SO$NzY}n{rz!YwG07HmBw!3DQupxm8iqB6TLkj$g$f39O-zW?Ogl8
zOwgu7WA`AG!Yu=kfIu{djz^5-FJVPNW5WmPC#9o94hc$Zmvfe;sJiUY7#dXZmAWsa
zsxQ&$QR%8$te1dQ>^{po0?3M<VF`W=!u@f-c4e=`pwQ5m?rRE3PMUg&H<tU%tDpq|
zcPer;Jtz`2ZX*Uc_p3ooaLNM^6j1l1-grU#2K34W<_GYpH%!6gQ$>(F4cN%2^8&`w
zGqt&$4avRX*}GJ^`c^sVB<i_Zy{Qz<K#5XdkH6%xz6#`RYSy+>XzeUS0<7AyIEdbg
zY*Yx9*$kgX;h#TWE<@d4Y}j}jB?e4wq3JCK3m?Q4no%TjFZ=`8Q)m1lCz^W$v%a^(
zy^EE}+La}%2qt2>(z*-i9*2p)HXVZ7qDTA6VI!(k*?kh6iiNUV9|qZx{A2f=?8zT=
z{vQFn5xkjnxX?!!rq;I!xwqQk?jGIJ_*-*I5xlDo>~O<lyXPKO-kS3^l)sqeKC!kB
z4T-1K!&KBSvu;}<o+tOqo|5~<!k{`@TmSeWHFyfJ`ffuI6;`l4Tq}nSg`6O}kVZqt
z-4DWZ-eyb9=M)-M2uCWtdOOeuNhMIm9lZ6_CTl2{^{Dz2VSjES`xDh!8kb+DkdJ{b
zvnU4f&>O&wAaK<p>j@u*nU<qaxDLR3$w-Uc=#GSnCKx-d;3Z0+>(;-^LKL>n0L$*p
z|L8lIuhi)*0+j>>6urhZ?C<EHWUmf5K>gAq>%h*w1QTeId;BVwnICvkZ4s$Rrmx;o
zOBZa8zf@TuJrnQa^dO{l40gra?pZ4-q4}W-<?c-{5LVfx8C6Z@EFX*P%@^yDabJY0
z29D$Cs{5>Re-B+)sm@XtrDaMbls0rZ*e%jw62K@+JA^jwin|Vee!UD1jdDfYPP6Et
zl1WlsNklf^qoW%AxeX7X{l`F`l>k;}-_BP426nr{aB#{PL<VpaSB+VjnX`rlCvB=S
zhzj$hnt)m<GIA{Fy3`NUhUGn)%^FTnx~642d0u%=ISvBJxz{y$Apgv7y>y?%Z$`9J
z*PDkwg(-Lt^Ho*9G9{%sEgdn3pfNPSRzeIU(8vYls|QjK?Pp+xxM;9*a3~}_QqI>C
z4rngCX83&$QWc!`qaW;z@^ey)9G!ErN2BI-%Ua2*d!=2{!<X{Cm3@bN{bmN*W5`O8
z=qemAt`mYmb1Tjod$WGn;{3os=39^ld<FJrD;Y+o%H<rGe|=tUzd)o|hP<ho+wd)u
zFCW1KoBw(%zT@(Z2Yz0Qb9kg*p&hhGgh45*2gpJmO92#@Jc!F~?BnVDHK`_g|BuC;
zA|c=`|Jv|C(oCRdLU4&e{LURE6%~KbYWf#mW)boCDRV6FL#&4po$$-f2V{0c89;pm
zvUAgVfGfb5MQ{WE<tjaGFGN{xz@MaJW{AZffbF@u134GNTcaM<f~ai(Ol=f*Kt?6!
z{>ki~h7OCVZGGun^0v|N6G%`xd0Ws`f7E(=zB(d>#vJh$q9-rgJ??QBE#c|>1^RIP
zKr2BpU@}TwgGCg-Hz9#Q$kUvAGb!an^3$e@%j}yN8j|#V1{L5kr$X05-K!0ZqwLSI
z83pVbtEnej#ZN>*!IrO-hvsq9*3fvlFW27EQotX!z;8F^x1V$F+&O2rTmuE4B#`~(
zpfQNG;)}ASF0HMt8GklKJhwh<pohEfUB)CK_lsb5G{cft%2s0o`}M<@jg(S15TU2m
zp>&%%ChC@gT&|DSmR|H^VPpf-6mfQwMIrvDr>S5}3>tBIuMC4HT<od4`+(5fZV^|v
zYI{Ef9rF<I+t$HJx4asim7dK7XtrQpIJ~w~KPs3BjenEb$z=f{@@DKc+S8XGGb5e}
z#32x&{Fjr!P2h<3+sg)!2BU7j5-NqL4~1Sk4qXsy!x4La`R3=eJOmecKpeU~#}Y(z
z2N4v!y#XPAtE;R27sOwJ>NNHdr|X>zk!BjyUzZ6r3?$t6(+58|W7Xm}AUYH`4k<2>
z&q0HO5=jV|<H)rqPo6ZwHCgEEg}e=p7!n>Jz?gErdZ-I1chy1;$sn>K^9J$mNM36V
zn5(i$KZs-eb%3jAxw%yr9VL|-0LV5%-IR25`yijwckq4_IzxZ-ETqREELH%mtf&^o
zSwdh31cUq)mzgS*Poci&36%GkAClDUb{M$<sG`GOpa`@l9I+nYnn-vrLDW|dz8Q`G
z1t@E@!os>v*gpBZYyA8baum?ZO8Tjiy*FPW#0T^w@xVwUHqeyzK_N+js^B21Ng?c^
z!d_+CNtwQae#Hr@gGY^CpRM!smn-pGv5?g3w+aWl0Wz(G;4zNx%p{Yd8UQ}D<=mkN
zufYTe&ly9yVXhp(k~IFmAO<0yz|YSQA2cxs*AgTV$suQqZVF^mi-w?NaF<4<4>GW@
zv`-8BK+cy|R8*hc6F~S)r(cTk&hzkoIr2Fdeuv4x?wzoKju;s8fpdbf0cTAfsGfPY
z&`(ITl6zr*#=6WGwAXRiU!Naxo}#%I76M^E7?se+Pefm9_XZAy#%}b?RBQ<2`@Q5c
zkDOj8Dod}~s)L#ltRQ-z@-8hc7~I~#zjezCDU;3#U{-+rcpXV4ck=`gP<$_0L_7d?
z$N3*OJ8o7XICzkYhUT_TjYn_p?ugf#{1sC$sv5!cnDpsvYrFX5<oU9lp>j&>NU%AO
z)^V^9E(V;Zx&)16l~0{m@}a3|2&{w<SQ)J^kx`OOoSgsY7ffW~D^R8;%{jtsMyrQ_
z%REz_PQ`c$yR$yNpW9joFOmvC#C=vHp7=)S&J7T5XoT1X68N1~+fSMc_s9xgQt<8;
z`{A2p#i8zPuV9tDvGyJ;G(&*n<6r~DCZFgNv4QnFDFE{gC({S@2_gLOBH!53HyTWY
z1~3tve|@6?OT=L9ZSK@h^kY{r)Y-8Z?8Z1E-W#zi%t+(Yz}C-nuY&N#QURp`gPSm6
zH?WeaePGl5y3J&^)imu8*o%2}1o7$$o$^l)3i|cKYKIUvXl+xa4|fUJq?KM>A4la^
zN?@&}nRgOPTsQE~og;y<9T%fQMmb$!P(F1{`XxgyweG+*M3+|pIX&iQhRI7D-a+(E
z%-%ha;9d#9d==A-cGT0nj5sCV9mTZ(p6?fDfLcs*HbLz1rsK5S&OVfaZ{O~1R&=wA
z2Xda$F%6GlQ3rcrxEA6RBo@5tJXSxbu?37=<Vx4VQDy>V$j%4nYrc>7Vap2#3Q|Bd
z5kX?6LM!et`5?V>1gBzd(+N{p6+>Y3SWn0BQle5oYI%)W$i=k<|Ff-T6x1WZfQ_lC
zsURSC@`H5`J{`+%?g5<2iB&zyP~0u_Iq*nd*nm~rQiOO@Bi|^;S|Kvz9oEp$z`0<i
zy9H%eJ#8N_uX^6ZLnsF}jU4`_yDdrc6MM3wDuEy2CR_Zz$-5^d)Wb6}m^!>`R|{$b
z1a=o85>h<IaFsa|LNL^j$pIavOGPie`zHYQMo2%gRDT8A{3ir0?D#|hsDlH!@?&EX
zX3VbHijM{A<u^m%#1BU0KG9*<P2_+QBZ(TnNWor(M1kJLRibO?=ybWi<~D5RQ8&!L
z(+6OjaPOg82kLz5Ix^pfA)YzV+yc*A@8X~C4n%#mx%bW|T0}Spu9F+!XWcw3m`k65
zfY}dPm-i=%+Kvd7SYo~!3-@*3>dlFh2@DUHhB<(G2&5sw2ERy5oG?fvQRy4}%H=k?
zNVXUW(AK*_g)w$)dv~kP7$TS0WfT3wZ&F(0R*)+}M27$@sC*|tAFx7OI?YJQE|#28
zT&-OL|AJq)43bocukLo8$g&Dd!ym#6Dza4--$8+KH{#vsm@WC{U==UN7?A!J!V8*u
zc%Ncmi6i4%uWjgO7H4)KVLP>_0d{*wsI!iYoLn@fW*<VOLzURwmI%6=aM4e5EU{^A
zRunHl`tl={@BYu#w0j_7345&nvcF@<+%dwCI6gl9;`QsSOpY;*Az>+DW9TCUM#bg&
zNCpB4l0XhrFI2Xp8(Qfe(n`<yAI!7@9~xe;9IoU}LnqD^aj3&23)D~r$7F?Un9FL5
zKT*3mU`d%9AILPe%~L1G`x%ye1MFbQWD#!(Xm1i=s)2z@d-J9eqFb}-eE7C_{fW4W
z74dYf_a5SwNx<9{h&M=FgD0I@@cxK?d2Se$D7#b``E_vq{Pprl0bfDBR1-nNuhEX{
zllUXSP4Ae3JFf3S$lOi~8CZJ?F9Xyej?Gk5gWwjcMu8Z(1tAdWg&r*dFrWdX_epa%
z!~^BO_n8?=Jt!gCNSYmp_~{xw4oH_vLguOg%01$qw6Q8*ky^e)OdM^g@?@jXtc$j4
z!x)My<X?gyt`G>j08-Mdh|Ld6pB{#~RHjvYrC|a5^`&5d0XcIha4E3<4aYt{G6Xv8
zA}tCvKoND}INn)1t@2%`eHi57WAlVkxB|9H5M%@c;go@fNkWw7GUvm<AJy)~-3#X5
z-aJB4BbgWZ!5lpkI2wEVZc%7SQzlceM$y9{GeG>vRR(^&4m1hOcqz*6sftOzOC;u`
zrJzy=B?)^5LxDh!46MBot~=tnx9JSL<+9upu!vio*Ec=f$oD;kN`X)dx;=)HB4Y!=
zKj|BK6%LXJ5P)2>YC~h=DQJGcyCfk`(dc`)Mr98(2d8bdB}F>x4tFiD>;d^~tN99*
zv2PJ84458CFdITxD+PchjQh$+NK2oALjZo01SM1wfK+3(`<hNzTG@<L=veRSx77+;
z=sO^ZHG=8NfqWFKp}Y6)T}1r5g`~!@+?T**8_KK)8$dl{0uXR5y!YET#fa!=dc>DU
zR1W#n=BLZ~gouHVwCD&-M;wU|AV?R+0@^EOlTW3q>FBTmF<{tTpQT%@#IpB`%H6$t
zAyLrv5)$V?#+in<?(453<^t(w(cLt)M+HYhU3ywl%N~Y%{udBWYJa_30kJZX>kbf7
z3AjsFwmL^dWaM~JxS|qpix<t=eLh@-O2#Dg{&Bw3Y4@xl?!Ef#I*g<iSJ1H#5_W~U
zz$B}CaVdxdgF_Et_XaYblvG0UrQo9e4)gvMV@h`m!UJP1iwlHDMvkCWh_G+-U4=hc
zeFl@84~>m!*x3o-^f#UPBqT(d|C%RPWro-qtV1L~Ww$X0d2wWXn34ySTGU4{X^um{
zYr-rr&@23}Y3?i)h}TS>do)zx&IBuWCmFyZEgRc8=u4lv6+{=Xc7cKW$MQeP+Wh4H
z*VwpMz`vg%|MzL?u>bsYJd3S*-=8eN?_@Xae`!)4zSG}7|CQ7=+@ZgJ{?pF^P$7Xw
z4J3hGyb$975C8_YPotRF*`IZpt+#m$Ap`Hss`vETAkYK}nr6a&(7(hXL5+eKCFJV&
z_)>~KBnu;|m*3Ii46|w$HO$$e9&lY%($Sfp2y8oj?i}ox8>lys5`^4KGhqzCoghf%
z;nTc`i<`mPwL!TB?dK#iYXV~K4jd4)2SoKm0Z;)|R3t2eb<uR|#AhE^kA7%%&Jh}3
zUQBaWG^9QteT9R9*MKFtZZBaB!xdn{pir<QVS3GrTuBp(H5?!1S6wXxL3{EDwhf;$
z4OW;>UWS+3iykRBIhCl-!6OqKP7+ne_?Opmsb=1nbcy!A0Q?AEcelx`P-CB+=3Q8)
z{-9z$ru{O`Qccp3aj23KaozK-(Lu%Z?j7&vD6242-{(sC7&@2%u+<Nk+aiZ~^thYP
zo;}+=@ada%`Znw2vsZg=e@WwJe232!qq}zlN9$~}M@bKEifqgj*HN<IJ)s%fEEZ*S
zJE%Da_u-&cRC`zOkthKkHEgO&dMPl*_+P!%|1UlA;m<n$-}Houe|=mAb1lI~W&aD1
zGiZXb?LtcoI{+XGfNfBqKOY^89+_v+f$I`N%FzTgAPflWPXvC69<H1h+WnOZE5oL7
zrlazor(*n?Rx!U=jXV(nq<WR<qu>-XtwX>xm*F7=@;i`y{Rxg2@}!2QaH{YZFJ7E(
zoc?$3RyAkudV|4s0d+=@AR_0$_$U`gJgEH;p1G|=EVMP`h{TS;0=VJ5>ojEFOtB5|
z4uF#HPB%{dyMw90shk&HzaaJe@*^-+&vIM#NdTRmHjabwu#m>bFd~zxkSqcOLK0@i
z08ia8_>2o05I9}OH8nM-!rJ4ViT+%yu8!RA^lmKo@E?H#atsB7F?uFGZf<-@ZsVs=
zA3<2zPqX<`)o4@VMLxwRCWZp5M~MO9TZlD>2TGu*+1NU4=l(p)gO;{(mZ%z-G7btb
zi+Da}kd26n>O2ZElJ7=)kja6+e^eSVINMriG=bj{gVw^SGiQ#YU}zQ`!hlvS+dg4X
z>5v4=Vm0v8aZs1~h?U)EosRa-QA3CrLR@;9;euHzJEQG<5XltBr;?gT00#*|b>0+G
zSLP1LFJ3h4PCFE*P=-f3=r5TjqGz`D`XAgd^Wmt9IA$Pv^2CYOx<>`c2REfQEIDXt
zj|Hb}-?+NB?=7l5aoi6QD0R=3YLe^g>yZal)SJyKQ*j*rcs6&S11{#@e+A<e7cY(@
zf7N^$qFVKL=arXCeHU1=25-O_LJ}>Y>qq+H9SKRv9b>A;fq^aB`y3&TPhQC}qU;8)
zsJfcLQ#}%hR~`<7D<ENEku~fNlTbA@iLB7=;!e?U`^t%B!;0N84$uhQ>-Qe&1iN)!
z1o<8}cPGx@d%xpJ<{;|%tgf79tJrk=_kV2BKrImJI1){)`7&_3P>%&e8PZ6b-b*L!
zrOB&AZC>-RHvbNjk!<-0Pv>zOso!@t<-5%;t}R5gQ7AB72-+c}c#KKrN33Z>{534)
zO+#Fmtg~>{gX#{FM;d?LD*mZcw_%a^MQVfu2UizSx<Zt?O@B6Dzi!breHZV<2^s-`
ztKiLyddw2|8s4~!l;e-STgB<_*q1Bx3eA_v$)C5h+=X7D6ybHWat&6a!{mJ%8+OS1
zgwrvzz`MaLh2T5{mA9Pvj8&laCOy`HDROZ3sH9cYV7&`fF(6v(%D4hR4ZKA3Ng7<R
z5#YHpaQCgau0|v$FClH_%$cY-<7Lc&4h*98AFVcbp4gb(1)~~56VO0%0Fk-37D6^2
z)*c)<)<e|P)O2q+b59@<?PCk?%Q-|VDk_dSp+fTER<`2sjO?S~$uJW!9#9>I?7OeI
z0mC3bAznF!-tjE}geX6dHFk0q0b&Xy`hwKp(3loeX@pRLKqKF`i|_V~p3h;kPSNbM
zi+pqu-Lrh2bP0d(*X-rqrQ3&<$-ViKA&uj4H?ww(yyl8;?>mcTkCs;?voKx|(cV8;
ztKjkt58ta8zgIW2t^K&%N$7Co*`uQ51M6=m2?-;3hu1N<fni~>sf{3oKPdkKq6iKu
zTxd1$-)=o8IO`{mA1?##!$CpRO~u5=z<>q}q*Exf-mIAa_)?rP*nd(`OMpK3pEz@=
z#WDbK1)y?@d@;F&j7)v_@PV`4=0^bzp!WKgH;sh!c>fd_!iZZj(^soOmHX9SobF{)
zGyNSzt1cKl*f|2an+lp1PrF*S+BvWW8sQ>_!v{S0^!NnN8qvjz%P>tipqsyORVB;@
zcM?7Pr*=q4d{udk%Q3e740rBGurgEJ(2y3%UxUvEhoOK0EM^2Om)MR{g2Gwq`GhOC
zTJvA0G+fOr|CpC+{iwfcZ9Ai_>gZ@mhBHd;Vi8IepNZ{+EwvxDfimHVV2v|(RV=Xg
zb>0*)JD;f54L(+SS|jVeQugwlXzl0J7WO!&k6q2sprs}}{jTWprBkw-uXYYU*@h8u
z%9wDPzT}_W@Dg&fYe{g_rOLD9d{sS@fTcGByNae15nn^e`R@bnJ-hu9=Qy4j*q;XG
zWbn`_<j11^YW3g0p&lsV{@-8WTKwPZ@b`lFe{db_BiK=aF7<tfbl(|NqPk5LV|=Bx
zLrwcm{&fVu<*~DRzZX{l)3N{Wf6e%CmlWj)GDyJtVMuuy35tl+w$-Id>I{V|On_+V
zE|i3?=IG*YS=(`OVMFFzans9}RHEI*g9}RhcrI1LKhU5w4K9Q|;6CiP;+a@7Bfpc~
zQQSSN;^pOqo4wL`Z;hOklr)BW_t48lAkl%3oG_<JbkzQN)6I2}^Y6QtT2l(8M%~eO
z?`EtXP_TK;@Iw~oam=>qQ+JUy*JGpZ;g@Q;85tP314mDxP|Lx!$zL+!>}pz9z3;$a
zAyJI&wAUzcb7LcSAg^N=-}%~<8j(zczF&JahEJDfe*E~soPWEk$)s5F;Ih`+CbPtu
zTfSuyWGr5y$vc#v%csqVLycO5;^_wJlD#Fd*s>*|=B6g810m@Nnd>N&zw&yGr&tX+
zjODQ|Fw)asHYJRXj?Q@Zj-K_vA3TLdK9*lFI_OZLLzu_3|CxK#BxrN@-80S9`k#t0
zHA<hElOqR)F=wgwEx5icpx8$`fytn%rY7|vWey5AZF~n~`5;A1CtcNW9`JLS`|j=)
zAnslH8JxA2I0M1=EC{xJCQ-$J!P(f*&@!<iF(m}w_BtDz{P$UR5&Llof0itE5KPeN
z%8`&gz8(`7Ck+P&|0$H3>FNwWjD5g!y&~TQ2cM=8^$~(&#l3u)0ryqrKDdQ#ZEdtV
zO3pCaC}pOlqC)I^?KlX&8KAO7zH4i{2T4UqI9LKY-G0*%UVcwjmJVJH7EIHXNk{{o
zA5;|s-RPWb6<jRZUGyuQ-zyu}-;eb7udKoU_gCan{5QD{%<SJ!P**?8J&=AUn?al2
z`Q~mM>J3gv8Ac)qBZ+)ZF*Cj=|G&8R$d!=Ll9YV<>^v3aw_2DRs)Uf+6ANEpX0Q1j
zO>+0Zdb@M9CVE7q0{i2ypKoKw^<<!4;4HXyNs^uzE^D61EcOm>CUW|>uYh6z<MO@R
zZjej=OLVm2afXAA96YBK*23sG%GZSd-Aqt^w+iuWDb(`y*km9%@`9W|x@Isa$ROkQ
zK71L{Q+SCoTpEe@)7x*d{e2RC8FxNvhrsZ0225*!Y6l*BF0C%X?^9Ii8pDj`b^wrO
zkl`J&dt$|-eb+iyqfi`~jE8583BG^-{yLbqAWka+*1Kc#8#Rg5OMKLR0@M`bKy;*2
zBZ<2I&<Mca&;@WdNiJOiV?-4uaH1$Z=L-ceTZu3~rPTQ<uVzzAc=_XT8jKqcJhq}?
zoyYt5DkKrQ2g9X)UY5Qk>FIru8@K=iJ-vVK!S3pT4_aP6^Z|pZ0^bZj6x5ZK6$8t<
zT4);#3=EHBdcJ6<c9?|hVnVjJw_hw0U0|<W8v?42uXg{|=+#v3BnkrQ9?Z*xgd9ll
z+>KKTT@vE88RCOCcG#3l9|&DzV1V{>{kyTsgkUGsO~M>plwWbUUpXF(2v^W&f>J?q
za6b|%D3r+S@CYZUoJIXs%<SxaO`&8Pn7Tt%AT}P5E9M5}Kx+`{bT8Nh7G7VNO>qLM
z(Am%LWTYG%U4cg0<Hj>^UbO^cdTE-!5*wA#b+$_{St8UVaC4X5g6mER<{CT@42AlF
zTvf1^WFw;!6DjTsf`ZUn8yg+{jwQePK1B1o0PdH-1Pg_bn<97z*@cPFqOOW|D4@}?
zg9`+iUyB*Yod=*X%O|Kd(WrDC9zFlNM=fmyH%~+~Puzs=w0uA=klo=}(s!9?ZNmC=
z%0|Vn+?!g>FWh-fu8|8&^E-VhKJr1K0x#iK`yj>+G7<qj4sL&ap8`x~$Hc_EhdwYH
zZ(EzmJ?0HL4NGe*43;pelTyM%eYk5n;E|IP-+Q2$Rp_vH?*;PwzPI=5bGm-oU5=~A
zxTuQJ!&4~9WThcct^)@|TI!c1)2d+`R$C=CwKQmkuLo+cd`*}E6%k)uMHe!WBt%4X
zuz6zgNnzT%sYn70PJ#c>5~1Jzt0j`agZ{1y__BjAay9O?x{3<Yz6tX(Dxn|3K*+sF
z=)IW`tw#>8rS*Dz9DOvf29M2?(B->AL}bKDp`@vqnUazMf1lVr%N1*kMBV?@6pIEI
zBHsZ4ddfBlcg9>}-~@`A*lYh+Gngp!GGNN{jI0N=clsVW%5?3>p7^~Re@T7x#EWZx
z4~D#KBs>G+^5!7~Z`d+_4w0Yz{StS4x6b7y-y?0fE*4!WPhmKovac4Blo>F-B6A-M
zsm}wyYp$Q;d7Pyyv8<Z3GFL^s+{E_sbt>+Ih0<*lF08gt2zQ_cp4v75v!XE@EpY0k
zuy%%F+CTE0EPI6nINppZ=l}lHH#9#PEk)pBN5im=48*+E#hO11+rSO1<2|<OCgcIW
z=>`zQJ~uBo0oc6nc1eDp@SEFoV;hAg9am+(!xP(VhBo+#VWU8JJq}r_Q`6HH@Q@K^
zHa1o8{(Hd0)^+Yxo%{9{sWmO$ziXG78@`+OSxO-dxNZb<e@Gg)$ViUnEeMDq56?SO
zD)hT(Wjy9~`~AL;Dfs`5e;udQMO`g3uskB1y_nTHdyDBi!|zLg^Yi~KUh#hdxA|{(
z4u6xicj@WUmHvJjZ_yTKb)ivkf4OSS6JMAJlYjyB1{QlJfk8Vfj?GYW|ByGwq=|_M
z<MKgy>(R4+cf^bYQ`=CUcs6Ez4zHR1pLP<)p|xuXFjE+_Mova%X(c^zc^B%Ll4k0X
z<4xcfkW>AOxXl=9X=&lIWNL#N*wg6<26O`26ybTUNy^H~bQ(a?OsQ~|_*1~y`Objb
zaN7C4(XYQr*=0Dce<gdIEYOOyGFv=2S6p`Z-Jxpu?_xg#&y<7*kjVy*xR(ts1cwM7
zT%y-P+WaScu9TIH&#p<sHm)jtzXUs>4*tcuGAhlIO(9NL%_xOMc+r(lS|wi{AuC`!
z-49#|`A+i=6)KvVzZn%&vjXo7;?V!W-g^K=oo?HsI0j~nGvhc4DyBAp0)pgZ*2aJ$
zL9z~#ljI!6>?op55{V8uXOL_dL9zl(OID#lvV<mwx4uTtJ@;S#``)X1^?y~j>Yh6H
z)SUskf8qP~-fQi(*Y`=3gCmMFANk^fqsoVz0jOUe^KaX#664K%bUhp8p1{@R%OXV_
zV{Vw3qiHBA{_0zF=xJr2V@gy1iLa{oNMG{2OqaN$AiBVH#QDY#Bo*my0NQ1Z1o`+V
z>4k(J$QYhIzn8m25HJkR8?<wGjNf0<#Y3}<Jfx-;@C|+eMgO=PK5F3uro&HATZ9@!
z*Q)7-oL)d%h1+b9-9E@lQ$8-`IJTpf@sUjAVQBbocr69A9Q?NbU)<?lWMO0!3%))I
zeS<iiA~$t71u4N2;oEPh7&yIfhG?D3pCeg4Qyza!hmbBAx>{{uIk7ycZ@*`la%PP~
zv_fbSWHnzfqkRz`Bor$2WA$({@PRl46ZcwZ><i~<eE*AU_>0I|v4jbFvRkA;;lvRz
z=T0zQ@_F)P57ntZli?E(5DQ%#v!mk}bCuZlOJ4r@Rm;nz>ovnrBlV<~@YKSOlLg6&
zF{)kY_5(pE`#yRU#>wMw2wEi-%qG76R;R8aTAdwQM+)F`cn~qrBl0G5rM5e|EfC-y
zN`$ll6Nk0l3bL_K)x>6GD8Wud8S~mng;U0^D9^BZ4C42FyN;BEl+c&G3ivU3sxURV
zh#?)Z`i@x`e#7iyODuXsK<l*PhnwS3U7hmzk^JEci7Ou(-H%}-c8qfU*8MBT3tCkp
zSH3ptZ74}<EZnCxL@?4=wu%AqKsc6mFa!puVpK4J3)?GZy4Ln@-+$?q+6o7ZAw&@~
zaHQZKOo4(HrcjM*BJRx%`xkwIgy9|dY#R(P%Ru8wqhvQFLVwo-zjAR6y&o1n$3yR?
z$Vc0}mMIuI_yz|jLK5Z)Ctos`Nns7P=@7>v<x7`h(30Z=e?aT7k!0ZxjUj+MA>|J9
zx7TXBzF(2zrTULDkUv6ImmD49B!BYZrUQi`co%ngoKC^-V2}<uhI-TU&Zj01`r#;g
zJN(SIKTSDUySNqVZDTO4%7yhg)&`h6QU+@A?6Y$|)ITxMWtVq0@t1GEU9}Y3kRXdx
zh>#3hpfbz-^7s87dOeh3W-4mme(PG*0hx~lAFr<%#r5{w-e`UveY#U-1+Wa<rTndq
z;^^Y3-F5Gv>vt`{;#SBU%JkC%TE4&Lk1G%8i=BGD;@gKB-03#>Dz8YT-b?Mbkv!Y<
z9khPkQCs~H7T%%1f?mRIgi%sm&OFNO2eYVJOzb57bx}exA0bzdO`V-?n=h=I1<E?7
zI}Ks{fxJ!Men;FOfahx=ELV!{h~~Vx2orb3WAG)p{Ox1H{zUXMZYwO98td;J9|Grs
zEwTqzSy%>ElEDB?zDe*WtPB*Z9`r57(!!jO62yp1yS!d44cDpL?*3YK0h?CeAzz|C
zo`>3wc}?5~+8<sWSO65@Cy0612lAps|4c6(6>$)=Xf-vBj*6<!afdYUK|h40Wqnrc
z%RRK1)fs5fgChPtCL-fy>>zYzeR+Qreb=O67CJxce*0~MDi=Oh3;R=;C%eJ)sf=?L
zf5E6C1WIQZTJ~D+Z0Xq+69|s6_*TjB_?Vclc{*VwoVB~Ii3YeW8-$GSt8V)NTQQ6D
zh8doPH*sDEDFLBI2_c0JAt|qyqcjhs&I<Tm70_oGGL?jdsl0i%29gC_1s=)Hj$Uj*
zht@6KQ@g+^7FanKjyBh2?~BzHF8X*TD)gmut7BIzhI(mAKn{=|sE?1&`s_fT^k26+
z3TK`esB_>%<KpXGPT30yFrXXw$;Ol`Hy|l{P=a7mmtk~~TnaRvBTZSA`n7O(vw=d;
z2;+U+f|n1yu)WnN)?<Nxdd$D*#}&15%TXu$rv`_H>U7PaDi+ETz|%=DU#Lx2y@L@M
zg<3Sj6o{7@gG;D94WZ%U&daNc(ZAkFMW5)@`I1{T*-ia^uRj4{#aM>I_oVF8HAC!C
zI*)aZCR~WKAyC>XV%~fS9$FZGNau0+de{uFx>yu$8F4?Y-GymdJF<2l_aYGs@21Y7
z0y^(R_)Nv1--Dm^z-yGWm?68)DAsjhylTlb@rRZ!7Hap%hzLW-n;Stn`pyC!@455(
z85?HY|9$_1AxrU1$^&b6F3r+5-#WW2URHO}lGmdiVp38~A3`K;jf1B#iBtJutWbO*
zDAh4ANDBZFP2ehO2s#e|rW7Pz`t%7SKy9SJ8cd)+Ln~&9i)M@~BeOHUoT&&}MVdz;
zGZ`Kas$wlR-tZ`WhA?p$hTCQ3<+Y*nGX{_bKU4qs#V$_-{dL>E4;OH3$9qVimDJVa
zFxlUGYrXb62wFA!i}kT@09N4W)e}Lc-O0j2ro?zt9PDZ|vAGz?nltqSS}W|)`ZBJK
z@+7{5o5imkf^-lDm*tSku93lL4ZXO%Vm@!YIzab4<HOQgi>*hvR&3pX5JteApB|Z*
zB_u#*qnHl^0Wt$RTPm%^oB;<w!+-5~Nas8wYPoL75#v`1p++$LkQwq`Ef69=DvgZr
zcz7L%AG}O}G)ByWvF5|jM~ltR*Tg13xj}LxkXNDcX*F_2#ZzH}huG*ORuhEXVh+U1
zhxLrzb}iHPdRIk2I9&AOppzhLTV7ti!!A!*Nhtz$NmRUv9?0E^qEt5#@-hbO?lWNI
zj!#*)etj?Cn;)eGrZEUC$rLJ{tA9y5;J6>fXnt-MD6lwGXSPT6u;+!a*=1!9QaOIO
z;`AaAQB$nd;q}Bg;58kOZa>C?=BF4%qxd-B*W+Z9ATR6njgJ@2Yhe}W`!8mPAnqrm
zc%Y$L=pG*e4OAH*e3CW_7ewA2JC2ft3@&H1c%y|O1aga5wXn6P)}Vgjxn`!%+PrU2
zXffieGBQ6(UA^>%-?nT?hK)ckMx`$x>884)-3{?1g<4iwNr&fi94ch=EE@XlGR>M)
zFt@=_a2sCR{sc+d7=nJ1ebI7_K#bW7s!25PEUuIrk`ryXN8#b9mOg~3OF%4&W+Zw|
z{2U}a+{~ge_{T?mDsK6Q?`**~>lm@f6<KYKPegt{wDpyhR54z%5eDdsi^TBRFvB_y
zN(WluK)30pHg18enr?-g=7p1;*L)Us5cd-Vpwl#*w4vNC3(n&rEF8#8J{88lp-@Oi
zBVMb?&2}sJ;!-gEnpW@THkKYrUC#ee1Z#*~8O>NrjKLt5Ak<t4acwc3z-d!~wmsGX
z3zOHS-8NG#T^Ppjr{EbU6x+f0X+SK23^Y-UFqO><ORt!y%TF4T)v(>S?^~2iA(R1`
zGmTFub&kS}6Hd%H3I~Kk&&w7v->M1}2^LgEn7$deBxBfq3T2%V)*No87e?l_5ZzO#
zi1<)Xw`3sAaeG;ys--M-?JneU<>W&Kw96wDPc7Wb5@BScftthJM3eKwMnUJJZx1<C
z|4NQTh;Qzz821u0Y{mSIXTO7gs`y0||HO2KDv5dE7q&~wD%>i$S8V<H$_j^_vEZoG
zA%w*a$iNX8iCTFo@SM5;ZyoY)U~#Qw^Zxj!eG9?*pddCH?Ofa7?w|46ds_0c;ma5X
z@%|-L!lG441+X+XS$VjiKNP1qv}V?4<5?ppBev9&rG**oQ`iIH{P|yxfSLq5Lgn4J
zFClFnr4faSHS6}m)#0^5c9RxU-=NT4li#1h<vv}D_07EnV^fbJQW7*w^o#U8m;QV=
zWm&#9(8JVZwR;jQ-!!4*zJN#PxiNL&QlFFtO5oYn^-f@QZxFjB2j!-x*pZPe9Sy+^
zNrfhg8kau&eSAe_sGJTir4eFbGGm5Rdk#vd^C)}ga2|nD?9r(MUsm0;U)6>-zG_ZG
zK#^Q#qKKx(-JVtFylJ!_lK9T+kD1h8;`mdXZ;=4|HNR;1tR*}KAr{O0^?2tM1ZTH#
z3Cs~iJQe5{%d-G5GgVblnUWC|5J;{XgP@=;^7ML7xTC>Qs2*;p9acG`SQp&WnpUMd
zX%Ub>Ez`8ef}l{Lz+N-4!QEJW_w)Sx=1Z%?5j3~4ei>MJncsTyAA@ROwLo3oUGWw%
zd}C8<rebvlW{9YY&<pprC<wYXnTo;&RDQU~+yr|cNAIx0rt^B@;we<<CW{$vL-%z~
z(J*<L0Wjpz$c5t|C`NFofLd7fovnimPF-;Gk0K5gl<u^0{)+%^Lo9?P>NA0+pG}K0
z518!pIP~*Z_D1!vmM1ug?jqWYiM!D|ax;gaOsU7~jtg4l4A)f@b{l#>!n#ZoXP~$>
z4P|XP^J1fMn|-t89ZEL_WtCxH5K-HkZ{Co09GdtzOSQj9<&D{(I*eTyjCLbvpFbZ4
zEJB?+Q0IH@P86xxcLo=3BX(sE((h^U`;QH@!~;vIsJ+^T3ZF=eZKn41koTz;`Wz^T
z%yvNKn}NXr?h-@bsocrVK+i0=tYt#G?z!Q>5!yj)3EpYv>M*xi7NfUd-$~c0L{Ij<
z=hs}7r^%nFU7(J)!+@!HECxf-lB{!V#s=M(MEh1nUIX`kiq`5nu0;|DokxI=uNGqS
zo|Sz#m?8>sVNgVNu1ad~6pbJDrXD6MG6&(mM56S20M|OiCF2s}VTIz-F0<XP@58f`
zJdP2?bD&f&nk5j3hFY`$E*ZI>Zf~67=~{KCfYd;6UOxr5;siJN6EHrsk<8w%i<#yJ
z14Z+01-MT-k2CBL>)`sxt25m)=oXEW57dDR=|KNrhT{Rz@Q%J<Oeirm^!#+<eJ*yi
zGx*xs)zy1_1^+w5tb?!tAn1~uT7nrZwXQAfoAx-LVfdaL3{;C-L>o5N*o#yyQg(gs
zFl|P_7@00L&o2LTEe2^g7iKQx@E$Os^$yfI0J2ORUVzdpvFvG%?N6B&(Y3MAM4d%a
z1|)ojp#v1gsu*3jCJ7wRp*_2eByaK_P(~(&&h{Dn<>{#m&KhRxVVHC<!DrFUxBk9%
zE%EunIKtUn_%4vyLD-V^z!jrT%f2NNz^w;hG1=+?N?YM->2Q20>Bf*g4f#?WSfi(>
z*A2rIh{KZLeyrNQp#^hvQ^*yprnWg1GK=*36U;JhjKWH#8(29p%N-MISYS@8Fa(Vj
z3XpajX5zmbdwqUt;gP=T{AsK~`wmJKEV{qTRv2Q(*Flg3>WAStqcb<WUbx&yFn>i}
zs1X2m5L4dR|C@>ey`ZPt8hgDH)O2G|@Bjo-sEBB8ZC_5PWA4SWq#f)#-J$*Nl<|)v
zrrAxta5(55)zf*FboBStg(I5iaM$SBe5(0ZH~prKwcoXS_wNhWKjq`&i?_<r$$&(a
zR@?1kGqwIB1~y420Hp&S#!mW-HZKkTkEhf%e}Dhp|L7d-a1poseDgnA=^(CLKYa!~
zzdolY*9@_I9lnoBN?L#-(r(A$S3kOvRs-fh$QM9;*k_j)QS1MFTH|Q#%7u>lr_Zit
z_lw65%{jEK4-lz>rDhW1N)%}YVTM^O@~jSt48-alW#0K4%L1lDlAakiWszkWi^sq<
zXtb!Va&#v*iS;`UlHm_1Q`h@RZTwc5U&Yv>@i!(3Q*swX11mGKWO%$V2$%r&VS`xh
z4<4ruxZb;suPpxnZ{6&l?AiI|h1z=T76fD?3@DIn5^L7g*%=48g~@f5Gb_iFIe%7*
zDq0TDwvA0dZbEsE3!B7arc<ow0#>Go+l)hP<EVo)H}D6kZc#zhHZJv;62jLZ25^g=
z9!WAHhXZnOT+70WCG&StSw`s%q=J0fxQpZFt5IPGi|3z~=}K{1Oe~~9k1r$G3}x*@
z*KUYxJ%yqi=SLjKQcbvY#cqWCQ5+l|^P$~~1_|RtCfR71^xcE7@wSiu+s`?cL;8j8
z)_H{TQONU*Fp`q{_0<X%&TLTwDWr;5g(gK}31D<{-$KCS;P@DH)#*hO=Cn{$Z<y!D
zEJTmFFOOHrzyHG2udBXaL;7o6J0nrUz|Q;o*UEuEL*-!p?caojSWT_`%jPEz55Yg~
zEj$Jej{l?<s`WSg8XXaF47G>~78WHI!NVZ@J0B+=eQW<mmV-1Yc6i)pEaCl?*{G{s
zEi)cOYzU}Mm<w6A-d;t>fPDenHzQu%Bm8G{Rp2@{k@boe<>%*T3>rZl_AkNHzXJ*=
zxKDXgx(WG$QAct4g;m7iVSNr%Q9*Z9;Dc-9aq&qta`Tf4Z~mDWByLZ|W2p3BU-;fy
z4)Vrr&SQSa2ym7b!I$*>2$`Zudj5Gi-tkn+{NMNag|dG7-oDv-4et>AL|m#2pdEL0
zGfV#5IngXKK=d6^<LmwKLO~mP_Jdy3ZPHJlY-t;hGDZv%`p+!PKtp=ThlgHXYkEGU
zr3rb*FRU4SfIoOs1kTics~oq!nA?%u0GOWrh}QxC>WK%X<HAwInwfH@bzC3hDk7vy
z1M}P4dm&N&4FS(#)Tg(39@Jl8s%!08vH#^0V0R5NVhObdW3s5%Y;t$VojwR(QElQ5
zNr{Y(j>j|m4u#-Rvky!f#6~1{(IN=?CH-Eg(vu+O(G5i<Z89@4r0jQ<jN{%Y-21H&
z&vEdo<tIZMpyMfo=%_XfL`kA1gIxUrb4Zxc7z~#?(q??9`0e^X2I)<Kw*(!eh!Vs+
zhv~;XURqTJE9g8MkUF>GA9%pOKm`rAcvdw4_K_Z9M(Tuf#bA50r^TV&laQm3ukQ6P
z*Q=RdSQr!k!E0&sr%DYxKf3zPQADhSVOy_~a15Hop_h)|K?gA{O%b!&WmQ!wC`F+)
z0@R7bU23B|sfAXxx5e(Lb%UON>8ER7AW%)VEy6gnIzA2iG-j9ufQPKQq5ST$@F*Pc
z*w}N}=Eri}&U(#jfBwGjQWzQC#^EIl3=*Q;w1JgRFVde+ZTCup@kJvJ(zeSIdAy=q
z``z&nod~3ux%?s5HlC0J=*XIYpxFnNF8<?DN+zvc@oV%Wn%y=W8t|~%|4-)sh6J1C
z!C6?~GvC3)A>O3`fsxSRI0p=fC)+|5ywG*?qGv-@%38d<yfXvqzYM+1;M)6MWzFA5
zFD=#<0N)ZiHyS<Ft>Eq?nj4=@ile6{Ne413!IBvQNZ_%N(&wPd#5Ls1UOW^AcqsyD
zDuX000&)pu>agD}w-EZua4(GmdqC#k&zE3Bo+db&*x+nCdV8Y4(&el)j~7yVG_ZX<
zs-dS+_DQ)m-P@yU@j4@sNQ}_nSATx(%K82u4xM$_IrPiJ_4T0KN|{!%7<0(&&ua2P
z<0-H*3O1ld7#Bq$LPw@jg1Mzr8~ZX2DiIS?NWn!w*5e?yu!rQSiJCpd%u<FGvn=dk
zWp%Zxwsr_|Iwl{(P74$$fh&Tr0%o5VQM=HSb>s?$%lHU4eBF3srUniG!c~(tc(>xK
zsBJS_ev$s6Rq$I=dM6bLGI`8_v{{P3;<l@e&DhrwRF2|tJ9UaF;I5Y3ju631B~6O!
zk^|^y_)=KiwI{);9p2n)mj@EH<C?f}v%x@f4md&eTpOdz5`eT;r{4YWMLmVeNd?A-
zK$;0)bI;?oCZ|?H`C|O)=1)jg!DJa{n<v6T#2AlHgl7b9V<yl85mF96!#I7+?huC~
z5Jw~qZD`B9X5Zf!iHd>H9E4<$w28q1Z<qAu@jamb_Tbn}S{)#qt_vPfE2?VVY0flR
zvjqn3g3g}_!ujBA&OQ-543{L7MYN>c9^P3T=Mt0Ne>sG+a27Tfs$h3ik$iD$qY#uo
z9d=)(uc?EvUWrYsS8Wh{F(?!dmj41W9FB3x1dJ-0_qrx6R`ok_%?1%;rBh<7oteI>
zXA*X$AqYevh*A}CZ?gln5EJazDb&<)8M+0sdMaIwhyA#_B7hI}U`PO4FcM^XFZ~2m
zk&su6f|mON)ChuwdZ+}dkJB`iS|B5C6skW@Vkra2U}MDHx&&gFbg58N$GMOxQ4q9K
zfT{@~3yA=ySQm5{PKZl}_WUCA$#>EZHeX@j<49#I#)BQ63u;^h8HBgQVNithi-<yr
z=xB_`lWygKqJw#HVVN%Or504*XoYa~7wDWuq<HxK<K;VTIycm1%9;tzF5B*t8k3w`
z&!wGqm6~a44q`;Tz$p{VVW<7QcT>`9@@EOpg&mV<rMV|3OsU9{9HNSo0uqSN1F<}Z
zMo5)8k2(IIp~cihe2Y)JY3dr{{r>H!$2bfKR~V&som!U9r;_jv9iJG~eCME>D66Qb
z1N4AUq9jb9>(M!P$*ok>h{`xpugx_-x{e$u7n_+#245w~kWUFL?0aVy_nO|nFU40b
zd*|lAdYWyFXQaQlX>pra(fdm};y0~B3j7zH*w_{to0^)st>x{g>D}T38K0$3I(xpq
z6uPdnVcfQfcVv@UvP2<tvW&KX5tq)h>F>Uh*<sp2hp!(WHFAlX!a}Ms0??~MJUpBK
z-$~7>HVk{ETS?3Uj3uB#Atx_6p^&7*R1ahUAvEVfYK)fgB`cMShPX``5yB6lo$y!~
zdWj>=JERBr0lX(ce}7mAs80Q=pjZr7e}OB<1$0#i%SSquU|niJpVYxY%@yYsp7`Jz
z1z=?Y_eK)Z&^?Q)sZk`XO)h5rZSWf;+xFB%-p9}tKXMX+wFzPkECbw6>2ets{VAlo
zufh&d+ZYbKPM~60-k~$cfQQs^GN#*jUYikSnn?kRDn4%0#n7%l8AyvFIHe9Q>so~2
zDHu){rW<IQi3UQC^Y;q==Z6Tv3TsKvo##Vb$JEH_jyUZma{!H_BG;$0&EidG=1W~b
z&&6Yx6qmG^XX6BgWJI%#I=$!+B>Ha&+K)r54rbv<Hqyz%#1hc{IVYU9aXo1Wh=iup
zd*2J_g#re+oM}bhumsM><r9l+qY&)B0G_Ri%Q_`7a-70_f!&qA#|>S;x-DC_WQ|o`
z%WCB~&ONfJWyCbS;qN)t-$~`-;fGWFqfZ>ks7`M&_nP8{;5vLR;znIv-6{X`@t8Vc
zx2lb1R<BJ&(Alo_!{0B!uWzGb#jcDEhQ$%s?D?4ykHxLuxLk7oaCwL!EIfQK-wC)+
zp4M_?`sVhfl@s9qsAssudG91JGaY6{?Y)rqk>(iea|3v%;atRJVBOi-*#kmYlm`lQ
z0(ZbwYBT>A%2tWV+6v1TgbAN=W(^D`ScEeMdF*CVSy7<`H@aWAAu4Qf><W%cNT@@v
zF%emkC=`q5T4#?G*ej;Y))yzF3N~4|jchCc04Od3d&Tbjz>CAF-BXNorL>&;GmG0<
zjyx0S1$k(@vXn1g*V>z5dG_pCI`|8A&!cGKjet*RXfi?8u+4+9{d+h}nk3X#be*6)
z;rY5OSM)e!o}^JjSWfgT>#r|ev3-ns4e1N<A{qnUAR<fk(_^95#DM~JI`dPiVC}mB
zxLMBJ&Sv=rLX5HUOp7q2Et8cFi^3GD=GQ|VbV;hu58_-7@siD(-5jCTjT-t~jd$e1
zK}t^Ak=2UsgeR8V{B@Zw8W24g4+4D{L1Go@ouhqm5H1+hXayVMtID6#L3`9Q!j#D|
zMWE~fSspy?4j4g;Fi9@Rl8;dh#9}P%x9bI25I6KXgcNYZ0v!?6c%=x`1m6hdfx>BX
zLLmXRN4bYxB@E}S20+ff@m>T6Isu~0juWwN)r)n&wLUlcl=R!wbJTdM*y42vJLDa3
z?LJM~otbVN8)Ca6)VAB1RpL!XgXS^;VsS!+MozIrN@}j#eLQR?@fKWH{|mk3isxDu
zm;1HuFt)VWQjMo6J+#yOu|p5;BE!`;o;;X(B)D!vu3@sm-zS7`h8Mycq5TG`@4uE=
zIz~3MZ-D$TuZ6#RwE9V7Qrx}Y_$tz0e-do<KGr_|ccs2?Rij==FXkVB?T@N2+pp;&
zz(`I=Sm{_P!zVbM^GZ7KwR!f&A_Z*KJ7#+y8WssHlbb?6WIuILa-fDc@`^mI5N($*
zuYTwOWG6e;lB5A60XmVI!U&=p@&*`BH4*M45h_1bEnDSNB2Mt1Ae9EUn0XMObQG$J
zICv}(*<f4#C(y?}5n%(I9Wt?luoV?G|HFRQVD${@L;8nvXZ>?aN=o9<LupLYyAOGx
z;gUZ61L->H#ji}!k9I2xf%6a*Vpp_-k?&m4HObO0q5t#1(iKMvvCvU9#95HE2(ViU
z{yN&zcZwf7oqM|T@B6#aWg+Yp$z&*(!jQ8SaC*VLt5kZ1X@eqiF*q%6G(7^te$XD=
zc^Q(01j|qw?N_R@`%lANej3Jd7pv?`?;F~oErZardqMYfA)M>g1sxDSL+TEotYTIs
zR_Kq3H}>1LcPSiqO1T~RT?=shxMy$nN!p+^v^gjBp1cPigDY~B4vCr3egO98hi71K
zViKTpDiweI46qvei^xKuplHw8;HeAc(ne@{o;)#J;*N#e>29cJY|<&{%mZ@g!A71O
z%_PXFqHB#RtkG8d4?XA!4_l-N2#$`uFxlMN6+3=oaB7%mOWC+S>L91_fkdDi6BLY+
z5Lyt{vKRIVbhHX%VBGu2pXbrJBKHQI8ccR2rt%<tkfqs7{W?pmc*t(Rnm6ckhbss*
z&Z<2j*I{H8x(Qw5YGzxO0hq-Um%uSD1C@G8zL&_tOBB&NEfRcQ4XH{X-G8~Tu4en^
z&o-4J3_~b+X-fUOuFW0mkudVRTVycI@31ep@UX@~(sbabN<y4*zQj>(uQUv@JQZ>=
zd#FvTLtXYW?-F*cNBR@A--bC$TiZ=mxL>DZz-~X>Rcg8e({ar9))@TT6*xNR8K}v4
zJYT~9!?z<DF53h$l)Zf$V|By6tz!H6*7QR-*l?d$$;IAKFtzm`&Y2w!5c{~IgnN$N
zeK@A>ih8!9@Yl8nmX&DZ!9~W?z0IcftnKYL?A7*pQSxAJUaNxt-<8PdJD0kTcp~|<
zdp`huGu^VAT}gwO|JQ}LW*+m}B=M`FRBODRNv=y?q1&)`=!T|3|BC6`dLmkte*XTd
z2Gh7bQYzqD!_jImf$b-FO+ur1y5{%Jqv$#KF*nb)cNbN?(8cjZ$wWF1h%eF+5D*aa
zd;MeQ@}5(p=$x>x{nKwf&tY(<2=5n~jnm{kBxX|HyHC}I8q4r2R#VfDNq=M&<nPw(
zrQG`b@#T#ZKQ;l0voRC5v_lG|dwy<kK2AnkQSoo$fk*4nT(R&DmPFYPw&EoOc#{)c
zD6GB);W}Cz@rFt5FOYa@BYBb>=-A=z`kttOapc9}@h+_{F*&)miADjpp%qj`B*rYv
zY@U}w;qF5r{UTu1<+-bqLBRhr$mI(K0F9z$*Py37aI{0_6Mx<5jvM{iqWYf4Bj{a@
zKc9Q{Aikvi{aLXVHd{fOOW^G?uYEcKZo>pyp}4Vm?#X2H-J5qg^Wn=LlIjXca0qJ-
zQ_Q32FB_w6qg=ld;v@nfZ9rF@lAOJFyXaON#@S=hH|>T-Y@}%p4D@c`O(>F0&`d6#
zvL@OzNGqW8!^l-a%-nD6HOax({XYCo#EUAsM9=Yw%RjV2HvDCc`@{{*OC%!MC`+sz
zM{Q76T6zJ!Y&L3CMK8#=eeikvYHAJX;-S$%jb`j<K{&)vv2uIbT4KuymoHMASAD7N
zw~Gh52XjIj)qS!%c=g%&i4r+^N!O##aU8`4gSF_F5afj#Ezzpm4J;G<mA7?|s@1^y
zASq4OlBf_Y+LE}0^$j605qbC?4P9I0uZ?D)n90p?vwN^`dsH494>>#w-u+HS-w9MF
zyL?iK`wZY9hCcqW(8Q)bycG>DTc9~D91DJ!ak0(P70SC&IP1h?VK{yKlamr$I8Vgr
z5%VRj!6!?V*BiFG$K}<kNp8EcZplxlKm58~<Ad9kO9%IaZN2jIx^;^V|H)YDwS39>
zp%)z610{u4_lSSq)3jpQQcZ`YOVm~#{_V%S>lJtV8nOp$7=vrhoV_zZDNu^;iINMo
zo{Ffk9UPanwXn4vugxwLv+yY?Prk*{cXc!$WgS?3GfwAf;%@H-dmEdp=!NHiJ{&Gp
za7!DWtjcEiSmgxayfp(*FML}1fD6@NH*yP-!^3rbVX`jcWP|2WevoawS`N}9U*)_N
zFju8fba4GRdn_j5GDMDNX>cQw(V2L)eoDFuG4)A={a`Mzi4lKZUmD%-R$hOWhTGR0
zTWlt0;E@xAqEwv7B~XVo=>=a@kg>frdEDO_8{8Ud!DJg}w4!^{1ga!^6QohmPPUF0
z`tR_PPHSTM`M)j?wrey(6|0IarhmucEfX)~v+Yr*B#su6&m|XOg(z#2GZ?QkYix(B
zTPHi7>gBp`y_U^|DkR1r=Ybp}Q`0j?j~;bH9O#r8bgY)ou5Ig2I;S&!9O)%~#j0_p
zV~S*df4`B5NpEd?U%8tr4vn<}EHQv5-Xx-QAw*lmlQ;<aMhR%qtbhtS(ah=>Qqc+7
zIP3U;uEG*_00-$;TwJW|29H|GMzf3y=Wu4W{5EOF;f_s~|NKIKn63`mycF0f0EV~x
z@Z)=nbBSu+y?c~h$Vzl%<hA+&$ZXY_Ze&c^X4au>?&Or4IJ{bB^qpzS%VkD}hHr6P
zSfGMy&&3?H==i*gh_Yig8*iBXDsi{oIOb=}=mGjtdI0VXX4x$&PlWAlp(ZGjp6u|R
ztg<ik-tka;J9(>6qtrAv2LZ@+MR=bpgSajLo5g0@ZxH&=uGr|1GPDf?D#hBQJv}`^
z5^4>5TDa_h*hdFN5~JTPIe)mU*=3|sV&Hju8q-fBDm4`<s0XEp7FKj+RXyx1E&g9&
z4E1ObkS+jYTX6Y(ZkpAgkM~glIb6uvbK={GvY~a@FFPUST&z+V*oz=^W_fjHKCc(H
z{QS>BQBi$hi-3bhisx|d2x_k#gAOH9D!E?g#6R66h9(mDzjOrL=$sr0&doOG33_Cf
z>&#jCGoic<MM4+5v)S%aJ$iETsr5~<vd(!e^zPomOKyH&;7C@3Io95O6%Cyb&c(6W
z)0v5hX18K@`RRx!rCV1?>;~Q3WR13*t(2#6X6Qx}^;k{jJqvi7IMX%74j$|{tuv)a
z7B1d+#M2AQe3@&DiW=(j+;eVwCp0R|cZaQ;)3KQRl`H;P>&Q+amDhnI%CEuB@VSpd
zSX3q7w)wp(D{GB+&tM61)m4CDYOBMvqI=igjXwr^jR33leimr8$O1JM`Rv&?rd3Yc
zdIPQ>0fKyUzW5<EzG|xPISw&1=Hx;;Jar!VD_m4oAop4(pv*U|7U#!}u^d&JxtUod
zK!<TqOguT8vg{seg=9gdn#jQ*D+lG0_}dTpROYIR3JtNuAcOPAN1aClN`pQWe+7nw
zzKVv>Zt-cJjMT=MT<-962OvmmxV_)ln`IkK1-G`Z_F*QQ?H6!QDyBN=e>!0iG^Cz5
zD-A8hnP5o~hPJcWL&=^P?c{l|X5w2W-<}-4uQT(v)%#sj27zW-rRa`&<KSZ@H~q~I
zs^sQp*x?6-u9kOfalK#HReH4H#DINKUgP9ZzxkBhH@|CK#VbAEN7!)X%o(i=gJ4^g
zR&X@YO1vzG7KAu_qHv&jt`YNZh4cF%7170_3p^7dol}3|(rKlFkFy_2WL5gN5$@S3
z63Z4n2Q}HL_g<YqSY=6h1C8yr1{F^pgJ_V2xNmm3wc`=@{U}7%$WC0w8PWCHv+ozF
zyoo2dFhynR-5pt<#H>bM!Yn)IpUcs#B4H2viqWBdIH3h(%Trtv^u*8c_4k!#*~26r
zPVYW^c!G{jb%8prn~CK4nq%h=F|te9`j5o};1QE-mt1<;I2?5FI9tMX=&<ta%2qG8
z(QvgaQ?<-HmC)~Ku@0~q^uH2%mJWjE3e3vNGF}r8IXnL2;2pO<ABwAU8X6i{El;6T
zQ<0T})#aHdg4-e$_hLjy-o(U&S=eINw4d}K?AY1eBU7Eeq7{2}2mCK90cAoc4Z2=3
z!%ztoDGuzS;s)W}9I{qH`T)>|1qwHBB9tm+Yfj&-P!@1#YHET(^YqnkF~|z#MntU9
zn@S(~$Ol{GWbIpQRmZ>#ke+2Jh87<KxCjEY#M)8FWqV{Q;`=w6KYu19@_M{*ynvr+
zZh#mxiA4|y5hi$Lo>JU<u<k>NsK&?mi_7oSpTF13e8};F!#HNl17=5FeAzevD5a5^
z-DI9u)*m|4v77#o{S;H`<D6bPgL_gjPwwe!VUit^jcwkhBE@c|y-<(uS!&TGVbfI^
znBB-+zwgrdoEC^Q`^Cw%ahN2=Rll4@92F*_Tv`XphU%Yo2c?uT0mKVm<>FTkvB<Vc
z+%bBpWL>Rl(a#)Oc;~G^lsQ(@B+?#TBa>01hXd>1Z*rd*@|~X#ogZ<J+ssa|mlKs)
z*X?m0NBNaIo1p}>u&Bm*d<uLbSu{mY9{y*oLI+k?1tPm2ZhsfR${D;}T1VK8)n!tx
zLl2Eh*z4hviL&cow-sZ3uv2AGBUPg0dP*Tl-5SlMWSii<7o)DC3fSu_{~yl<t*X+E
z>rdwaEL!6b&Z~HBn%!1tdX$l`13ALrLPz<~vG3o2yJE^mDvq_e&o_fOS4+8kSli*#
zt$et%Q)!-}je9Iydo_fCm;P*IPm{e+w|KF<wF+X`0DPb*-c0|~4{Sa6i!i~h7Z=7Y
z;LHD(D<4H%6==z)Sk9DE6%Dh@U83yem7=mS<$AUze;1miZzZ~dywNMS&9TU_aB1H-
z39Wbth2-a&x{MQ&>;|mItBsFDZA)o8+36L!PUp;Wew+$Jk}Qpa+WRUX;K85CBI4kv
zms~8wIf$J5Qa;D|#Ujp*?4nsSZtmQ+I;pnFs<M8RM%G(Dvwt<gH%|MjELbN}U(qOt
zRu*$@^V9APC=+UtQ~HN-cV^72>ul+JSQmbKuEc%jBy$W#^SL#`_Wm0stgbT0@M6{3
zE9=Ep`uq2fH`{&KhN?`*fBGQ~Sv@Ewmi!gI$?r^4-~2xL^^RN+*)n{ZM`O|vP>}A0
zQE;7>l$4wbN|xiQkFYPAZZU$IMDu8DGI*aL@Ok82D9fwJu!2^pL?c9?i?5v{bLG{|
zvVO(by8hu{fw(b35wq96;3+NZN)bmWd90A{@mMiufSO3-Q+Q^k2sxW%1T-z>V$_+^
z!<?Ia#>U3@d;R1iH8F58iOBwhNM&5B7@;doYKBc`GiQeC!=0*@#b0DyABQY4zL`hT
z#xS{_6pFsJ<RRX;;Oy)yJDyXmN3sAZ9&4C$nCTW~T1nu)n>TL`5VO!Ogs5pZm0<Yf
zujiOm5LqUZ8e+1~K&~k{-C^2$(N->x>-H!Oe4B#jUuC4la;s}-@MQycYkYgMHc)nV
zLfue>nVg~;`*pkd#?~SH0b7*e?9EUC*KVxW`~0~vO)M;Dl7dJf%9kIQBQW*!%Gn&q
zdoJ?(r<d*utUJj0t^h$5WraP{P9aM3i%an!jwg<1@7@hJNi9Gr-F9bFO*E?wp=&3V
z@T<Nd&+=RX5E1hfnqp4ehSA!==pZZktVZK_c&14s(&`psb9bVVHE1`9=c)<zQ{qe5
zjWm+@BO`aR%aBH+XeKUq&@R}w@?}$PDv!g*Ke0j#5PzvO07IKwj(053VP02kW@1uK
zb}S^f-VHd4wYH{)h7L#PM7vitNm9N8$z-7c;|ECDo0Bc;(kUET3W}Zl=Hk`jTZxW7
zFQK-{^t=~VE)S|#-=?C;N(+^|nWFjWB2{yD)b|N?Wba;n#NKz<N)&WU-O&p_aJfkh
zDOm`@%o#LJs=;E4UT*3pi4pCT$umLX2j<5t=KbJiEqdB-Un!_Zt15}EtKMftOJSg{
zdMUb~K!)rB*@>5HI#r9Nl=Z7ag5eO&B!M3qa2AqCVbdSa^CTRcrBu3DNH?la>?bPM
z)21<p6KY@3tCfS6<_IJM1^{}FXiSgX*fO(~>|cmRUzv}W4m;XF;&R&*#MoqgcA+mx
z^?=~)Dws_Epv8SS+bcP`A&f`4;3Jea#(>R!l*tMMS#Qh@6sA5ik1~9Y^k)s2y^Bgp
zuKbbU!S9bG2YnD41p_^Xp(W23A_RCH`RL#?tzQn)I<Qf-LbK`qE8C{(v#sz6`cNC>
z0Qcf_k<T^&ZfK2?JE(1Je2T><0Dt9}1Z%(^W{C4ZDVh-@A9TGUu_>`faM%!)4F0=7
zX{y7t`8}AWpMcydgB^s(El<P!uJDz(gO)|>bnAGM;FzC=c>sAOkc0ox*x1PHMH=zw
zg_Qyd4nvrec(4g)RSda&UK{!r?P8yY4<GK+&KH-P`LxEHVi4k}Pg;U%S=kGZ#teTb
z!qD`l1VB;<VBo)H?&}@C8IcaKsFl$WPp^x*N=BKSTrXfSki$c48f8Q%B|z{B{PVOj
z3@^;}7R~Wt#>AX<6-;HkrW<%jDh*4ih|$zzavSVihjr+*W<Bb#iXaJL><m@%Dv;WM
zQg@@%`^Q{=+uVNg^2mBGb0Ua>)`5t9&hEpNI|PeiuY;4QTrJi2h=4}C8*?wAF}(!l
zPFCFV5z1t9m#lyILrGo>$8wDtc*Qts4m!6@lOlCH)e6`%$!2zq>zAWBpa0@Zdw*hM
zq!O<lfT2X^6J0CJu<fP-Er#&-jvm}t7rw}`zHrcWF#b%zSFkRfcuiW*KEjZ}YL2Bd
zpE*2Fpb$w#B0pasPvdYW9@E*H^!qtmtSb)qPO5+nC3}z*d5GjyhzLcEg@535kTW$!
z*R!*^fVCcCfplPLSHlG$Z!>zflcC-ex#@;#-cSv<#~J8uKCf2e{3D?iUyj-Hrb!!r
zDI95#Hwz~R&nsp^m)-p){@E?du5L*&u992v%gIfTNhvDv>E_yHyhIfx_;z2>&kPhd
zZQ)G+>g>kJBl;zqtk0~*kP$s8@8z<M6zUxKn6Yg}Z9@CxoW~vrS6%va{c^CJ-})3B
zfN@E$fWS=DbfwX<tk`^LLaXLyi{{0MLuEnDisy;)A|*XlxIjMvmrpAiz%U3|b-XQW
zH#Rb&(g2&+@@b7HTDY2Ihw8YU82bD8{W#h$J#Rch?B}ww3--&QR!@U<v^3^9CLuTV
zZ<`y-CV4B3ob-3?^{NKr_{3#G1R&r>)Y2$aAymC|{%P{C@RVUE>4%lPi==JTmxIi=
zJG?aek7xN==t83GTGiCFlI#vz1bC5KE3Vtl8CqB<(8`LaBp@@<9jZKuOPImfMHOm}
zITA&D9nEk~1e3=gsq>P>7-ls^2)^IxuSvrT5r;ZQliBW+4tl^`uB~?R)-yxIRcHq+
zstKew%W8-k&Oy2+i9P_Ug;d9;*)4W_t}95fb;x~R(S&nX_jc8&k)U`2$AQvDfO3Tb
zP1C66x!qCCR^|KSHQgsg(blDR<rh?@%$%ts3!Pm4_z;4o?JZm6h+0kf0jT9WSn@c1
zdFFzuw+h@qDBAjhq*fd8FPe!g$%&V!w*ncbgrFP*+va^_1Y%^kTtKzTl;6MH$jq#t
z^&}-L-s$BumSGowifAYqggw7jsz2i*tphNmw{{Ax)oN0tQzXVd=%$-Cr1|nsV@vF!
z+F^i9)+}Ct3z;dKQVN2hxoe1UCtx5XNM2-LTCYZ%Jjw$?M?HOLi*kJzl~f3uFq+VS
z7tFU_{WJ~Otbn2WsxgTa?0eU%jEj<`>tWo4^z0o`-Vk4qikPa8KdwT+Q`xJYH_~if
zy^}hI|CP0f&*t*evFV4ft_(9zU2&$p9*b9>8ZPF_SS(VHnM4`|VfRvZZuy`_!zj1E
zrWLhl#5Q_&Lzp%)LcjFnI1qK53@L11@b-f}rP7F&x>^??N7M4nIx4LiS(Pt%;L4=v
zvcErSsoe%U(gA(cnc?DwGJuDc<<=YmSexj@IgqSGblJYu^W{Y|r`@1F?{c5(a_2Qz
z0v@jebxZYb*`a%sQXGu>A>7oJ%VbimibQ19Tsi+Od7zl@lM?Jwj$sq-)K9odd<QAl
zoqdwCooK6il!2$bAZhn)iVut?&nT>stT0OHXm{<jNEKpGFoA#&a+H$DWA2}WUcNU4
zyGx-ci{7*{I@nHK7V*IVC$LSv;FNttLNB5!{!3mn5|S|VbNkdYV$!OBa{|0vI(9fV
zHMRPI)re5yB@ml1P8fI&gtmmaLTBQLmlaDd!OOKzmrBFDix_GVBV%KEYwMBav+sv{
z#VSK&q)2fKbas)~Hw^)&!$fCVo$Q!#1N$T;g|x#3+>iEhFI0zwXd@*Xy_L}QFXYXz
zBN`y9#V3zn#Wl}zn@n<LfLJp2U*Uo#g8;~v3ZM_aRbtI4I!)bX1Syf!KvsPr+RFM!
zLWHG)=z)|mL2gss0S9zX0AJZF6_d<t4JNq@vACRMQ|xLe|96qXSXoue7mx%+Tja@r
zDWQ5i8f(z;ohh$ZmqQ#8h~h3IGc!@}jRDv$bif1Idk~^ULIa|RI|$obQywgG7qm+H
z1_%07$ekL;jd{4^%qi=4hdG%L(NthTgp!IbqxM|69DI-rP&-jC*2anDph#7c`V~(>
z@U7;xmrDasxe(dmCfm9TS_4Ix&mi1fqFs;-c4g$wHaMn?P`Yd1{1fMUg;e3k*K7Hp
z5;n|iCmSDJsq=8icz(311pMU3;yg1^@pMH6nyWK~Ktf3{eJ)y+?Txl^o-Z4FgAQ9k
znPv2ufV8q#S=c6|aDo$(seg{V)6@~~=Ym8;`OcjbMWP=r-ykfHBkn0wF;<B_gz}^c
z2k)5T#rfV3SyXofqz`_bBPJ6MR}*a!l+gym7^qTqodHY9-VvziLvAl)Ek7@%EO%oZ
zl~L^2Bl0%|W6##O?$MbnQyqrRFE`E=H1Bsxrt9vGhcS)MIb1IQW`oO2{`M#J-^du{
zE!hiX%u#yD(l09pw~-Iz*c0Ox{IUremz*$l5GMZ9NFZZH8;#?pN?&nsXc4$yRPv<O
zG2hM0&qnh=!Se9)2WMUR{k-#A@$WpxmQ^1ItD#V&&H$d3f7ujFShxWJ|MJ;}g?@^~
zAAgZ;$>DKbabe`;H=l3FG3>W|@&k^g^yK>qBp0v}+yCljQyo^z*i_M>!xC&)u=*n#
zO;Zjh?%+sSrj+<`mJ~I&Z?9AM(HsblIokq}!RfelY{P=fi7J`b#}Uv68MEbk7c{|6
z#hd>1MZyj`pxlj_>@N=UpHlvc6M%Bn7pAknM8;LVJZ;A6_`!}9_M?PeUy)O_|JzHe
z7C%l_;!PBED;T^14o0_6T02%LZrb&W__%w%lT6j|X{V%d7rJ79iCRXx=BmY$Ea{)y
zRgZSHYx*!YacnsATfWIXczh+-|Kb$!@1GiM5o}w}^=_#5&7lEutfW4~w~IyHL>_R9
z#P#SFYO{Wsw%F=rjsLV1X+PK`kyihUipkcoPnVtfvobPpI!$Dp?&>U8apeEpc_*H`
z?V4sFsbg)Ia9j!}-wCRmE_uZ3w{6i6W>p6XReNRY@G77()GkySj>`~4V?ep>L_zGB
zo2jvJ85nySB{4CPl-<fD$+yuuiv;ydC6&iMGU0b`nRcd^wXUvi<Yi#zawt;bCEY}9
z<`y3<;OT;5K&5Ilew@*496Q$D=Msd5Y!KE&+(R9&xPmnsxw(1Wmk@T3Sl5DmeTI()
zF?X6qiWq#W$hkUY(7lL?-jtE9YK0t4o=5#F{p1cUKEH1{+O0BkkLbbMJA6{-dt`LB
z>x!&AR*0$sE3Up?#sAj%Ol4;|ySZCg;o;%@p(o4BTRJ@3HT#dm@U%VA=x={lH(Dh3
zir#CfJ(n4je?gtDTU@0hu=ue>ip+Y>&*E!tyMAz#{1eSte;vN^`?V1eE!<h7w5Q4Q
zyB1)Jc4<R>y&nJr_wFA&M51}z^+^fF5yts_5l1c%lY90ou$+eue_MUa<zKSto%83H
zYm>kDzu5=>^ATbHiV5GJMNE`BC&%S}LDqmyz2uSga<kDlj5jaZuys}Rrq;m&opwAZ
z<9BXWJ(K)ukBN%=cstGAMX9)#Vfd!`4hKhO=YqS@f177c?ly*#6f1<xkOm3oh+dsA
zI`imGNP-cq$ZMM&=tIhN<w1o%SVbteGCfjbk(%1Il^tpY#aB&Tx5x3>1jpsN%%Lq;
z3U(|6tuh(F>5~u%k#3&07d#YdTU!eo^~l2Ha58zfJ|A@tX!WW^oSPnjSCvFSp`yPC
z+DRB!r3sZGDHf7)I-j~syxuY}Vs{P_qfIVfUn-wrQ_L&vZn&*(#k3)lz&JvH1Lw)1
ztOpwlhSiX8cVLU8s8(n_C61kGRyH!+Fq+3rzCT7NvE8^Yf24}q`sBnFpcRpGY+Czk
z(Qo<j@87?_kRt=akbBnxNBcf3^oG4H><Cag>Ia(np|dyc7(~X(C*KITJq8+@FGZ;<
z1VZpkfY46DM1cXz{LJ3AH|}1yUx%BrhH7#*RdytxdekHVuqn!FnviMGI|Y#@0eRr6
zg~Pstt+bjY|Av6PmVQ_Cb<595_17i4n8>@!4~rZxo{JxMx%Ys6esGfZG61sJRI5A~
zp7M_$?s@=#e)i%;TlY<B>h$+<;f*EFMw;jFNNgR0q_!{+#MV7@7WwUyc=-osR)|3C
z9K*WHTZS7B_QSo7(4qP^p@Ot^ye{9xctb+6CO<=P6-R>F@>bt3U%tF0^-@E+K^F>$
zN&ud=XiM-^k4Yz$v=&JR0|g*qm{4E8EdnLcNvI}*-Z0;nXca^N0^xLW3kFFgH$Of<
z>+V{X9hI4pQ78Gzxb%ZNF6wbAH#_RWtchM;YrIj^^b)-!q2$P0OP-(-wc=LXeCZ1}
z88K1O`q}X$+!8$`NYP}+i3c(4Y}7NI{U<jD19D)!GJ+Y`ZDfg|weYSh6&!UP(|Z5@
z{SBbmg>gD?5XvsX7Y#$MsSnBIfPyJm9G4$m_*zK%Gg$FYu?OtgeH*-K%NMQJGtdLm
zgDjkMV#$h7{yiV<bj~!)TiQCek$x<=mX)W9jroq8<C;!pH!P19be&#iP+Vofus|-W
ziDcQ&H9;-QXECk?4B6P!WD;cfaaD(<Hc}RZxQZlYji|X1R*$F?$q$PeLB_aqDoYq#
zahX~k(ka28BzFQGDDjII0LY^zri))tCBp@0mZo3(^lDMy-&Z=`K3*)u&oO%EdbT%{
zIY3BIoNc)mLSl_8{Lz1=pj<Ej7v+dyTGgCp)PFf;(>l;+7#DL3vL;r13H<lhA|x)n
z8ckZonau2L22<7$TKwPgkx`WemM<HVvTswG7Pkq}$<g+*?vk)aM+MZII(_K=wIIE|
z0u(q(^SwDZ>|61xosCT$lVOe8=C^z^Gc(%&a{jF^BNzkLQD6%WWrcrS8pcC!uRbI4
zKBu__ZF8%7H3Q|@Keo0wLhj&AL9pQZYR2B4ChIW(>uEI(VPq-rpf9uzdoiQw&p4Gc
zO<pWvc5AxsKWG2)4Mv#Ujcn^2DYV6d(3>vcwI?+>>9CSgH@8{LexP}V^ccvKSl4+-
z6BP<^vT%VE^(?Iq=))19x^bS99WPe$-k4k2S_C|`z*S<X-teLH@LQntN((n(3+JXL
zl?lz0Cr{!f=M`K#g+&FhD2$%2??Xa}8-T2HJ+p?ax|RAj3P1KIX!0iy%eNL3{Mw6%
zLTIy2Nd3zJjE4KttM$=>X}~yBI+PEcz}asBi~#JWHf|=Lu;J!1*Oz%%pG*U}X|+&B
zsF0pK=1J0OrqR4@C%1?eR{sbg5IHz<g}-!tD<gRSo0Snt7ZdUD=S_NAiV|#ZuA3PR
zUEMRB<L58ONIp<5u>1bJW!~hLEwicD!po;5emK-7!Uh%&1tSi#Jo~$!|1q_Ee$b*g
za(*J_0VDZ+T&MuGv#5KXUiBjftAguW`To5o_@5GsW9k2iXCXqD<e(og{g9%5^2_6Y
zE4AyK3y&2W#~{)%9wdsCrSj5Sy^z27nv+V}>m+mmP`J6{oV5@C@-Y2D!2;4CqL4Qe
zbDSIiVT@lPsmG$=+54ZP@709c1H=214nI_Ov@T|t_~<Gx8x|K65uwkH7;gQGwtbTU
zm-Bzb>Yn*&VGf(9k6Nem(J0G&_-@DXw|jNx>EEvn$@iUB;V&X@Q+X|_F2!AVs2n?H
zX%1Kev7R@DwELluj{{yo7iT-7u>!3kR8B52kuGyG`NwZL>{|l&Eiz9g^P=KEaU_IX
zx8Hw(-``~Ovy*>4y7+Ht{+seeOSoS5!ukH$iO!*(S#jTTW}LykSC)RM;|nMSk1k?P
zM|Dw{@Om|NaQgoT9~j5k0%^RA`sDK(g7=d&hLjg})!czjbnPeH-G%w*N>1tlzSoPu
ziQwxpgZ~Pd|DRZ8|AUMEzpMeeQZEPVDwM>8$F#;gk^z*ETw>;$tEIob=)*7wxV?lX
zw#AFbOX|z%H44&0$Ew8JAE33OBr67+j*6!ud^n%an*aI7>nk@)W(*XwLBleEiw7wI
za_(*f9RTNUa_o4V10QiKOe8bWN3Zx@!}KxfEWkp-sKt{#m%h?`c`Lg=Q`6cS;yxAa
zUUr~llQ$_+(MLk<Rs}b$CqNp_kPbNFgw0;#g<9^~#?hq~3u)Jza&oh+lK=Ec6s@E?
zNworX#i;zi&WA|8!NLaTh`@)^V47Z;tECUx^9+sjUXugaH_3tYI*rEpPAXyEAgZ&=
ztJoE2N~27ohoC5?%ieSc>5_*M2{~Fi|9fH!7aWdh5oj@@UgO(u!fDk9n=v6`qn171
z4<c6r1}@G%vGpi!g4Iu6+W+qrBRghgG8!_5EUKP|osdxZ_saiUNMOy+a&btKTO{(8
zt0<!Qw4$uL8v$Y3uV+8iCFhNk3OBdF;`J)AGYFqvLUi?CtjhjVsV!pTZ(+I0DnY(r
z@byCUU5HNKzU0l@A34ea^Ri>RJ+)F?l9~rHva?mqaXyZV%Kbk#<wXyKOg)bCQak%^
z)w{?-Am@^uJDK?~MZQ;SJnw&Ve@@k$94vD{K@8%YqvfMyhn{xmvsjg~v9WQ_P(vP_
z2kd!u73^bh2hh-w_NbRNi@4DV|MAaVip5oQ1k_=9b@ld2E*gb2;vwWf#e5v#k^su#
z6VHlVdLB9vjV25OC@kk74Rv*11H}p`{BOxUth*1bwpi&#gZAoRsqA8-TyCMOr--zM
zLZ~SwD>}qRwhA0kHM<axiAVPVR6M<(9qz$v)AENnivf8^-Ayn^ex4pge!lkkb>5hY
zj%LdZp~|a>wGHBz+|pHFUk@@YrTAVh@xCS<*a$bT5y%}bPEMMHx%u^YVF{Nt{nOOg
zn0EQ_Y{6q!v`BsTmO#+`1b@rDyC-hM5+jD^%9vK3YZGHoOb<H~O024AEgA=gzPnTE
z%5Yh{yFaY#7+g~B-n!VsN$AUpRsxNwVBC`vY*sg8TkWN$(N#3)rhO>?Equp|AZaQn
ztG^iRF4*(sOH8?9;>enA){|5vUS)I4>E)LDCpZN4is%+>>8k3n-D2mqDvt3WIP^Z2
zwQWFZx>E&XvSlmFDM-p)Myks7;?2SR$DLZv^^AzycZ!d<1nOA#Bz|<Y4smL`b6lc|
zWmm(=u`;5k`ls`PghdS6KZb^mO<o16TpES6rduAc_q-r39EcK1uY*)8;1l~CcZ~0V
zhu45s2wjzb`!$Nh%-7c_g{{!0>O_MqsbcdOX&on|SC!$_k@kaW{!p=2eF3U&VcVWM
z7bc%h?9{^Ej~7BMe75!ZqcTja_@`G%@?q%F7EY`^>jt)fdk6f^FlT7Va?;EAm(+zW
z1Ot`hh<F6GuYpRt8AUl8Nut+lfLS%RPRhP;B)CO;Ya-A0sJGN&H-uzvq|Xur=qRIY
z0QZgnA-yt>h5Jq6?fh@X?2+Ujr+Z_S=!Qp@gTO{J=w_dzk$5fvmmbcmQnNz@2N8)R
zZ3aELa*zJ|g~rg)?v|S@T_974ZU}@doj@Fj8sw-}U!L9REEsgP@LX$aO8^kYw$9L8
z5M--J&!qjBR<O%(X*c)?sMns1R7oY*TjoyGhR*rGuVXuP82U!3lbbA$;m=vGx6BC=
zbtR46>W2bOnf$p^Pb>k?B<Q*jMHKcXf$~8R$x~@WDFSVg4f%Fx;yWO>K1CzwuM%L(
z1lnJ8Xo%fMDPqtFZY~|)?f^_`jR~{e?4~HuBa%B(z{t!D%yG}qf^2H2MEgyo!<Z;7
zcZ67lMj>M|+U*Cm$oQs2`va_fBCR1T7xsA%_GKknSw0J$U)%%(A%+a?&Y@wx%dx$y
z7(9Nx`1`+zX;@kHUs8Q3N6*Qy>d4=MoT(-<R>~w%)y|H$6=nUIYe}^K5Twh~$W2$1
zpwoVgBc*eXgIXjR@>PuM2hJ5aS6cwvsa#rWW@aYhA+LYAuL}ZTvgOkOGLqx_0D71>
z{KG6Ud%LQM=jd5$Gf3VMV6JGBX}bE!?s{mh`KGU7a*TW&WGP8BON2%84`^KNK_9;Y
zt#{SlJuOdB1?X)tN5ejIRr;^Q>$IhaUlv)B<Zxk^iLd0-AY9;`{<`17@ih4=Fc=y;
z+hNXT92Dh@l@<4!JIfHj*w<AYB1!J(?pE|5FO@n#wn7&_I}Ur9A?dk^b}9{BL;N%j
zbVb@4C`3%~=fwPUXFIg^<g*lHC$B<wBS&%64gKN8<^Shq()W^;P^n>sa6;fG3x{?U
zsw?uiHeY+Or~!%sZwfdk+`BT^P24Mn5Xgf-<55M32vNvCU?L*gDsloTgMmvXimhE#
z@D>-_DJ@MH9pfuOV6sobXJTGP+n4VRqnA-mG!q$FS^EFn{U!4uhJo^#`+eJI#<GhF
z@Y=)>@D7R;4DEP}!D7w!gDp~skLfr!Prk}29r6qM?06T5l31E$dZlPQdAAU7RAN@m
zWV3GM2`?V4hC3i0$q(S!@Qh|TS*^?JB<fhm2WS-ANf8;mn=)B4xj>#HGzeNd+wt}<
z;;RC|J1|+-khut}YN8SgTMCoSY%<iNRrtFK`@gKs<BH1P(vUMdaOD+PyM%HiF_lD=
zbkJ<*gQxClAJcCU6Uc*#9nGnoM0hM@P!+^uHvWyNZtQo3s*BqCeEBe>Ax+^WDQRZ}
zKwZmkLAM7bt@SVwT@ap<w9}Emu{-TbA>3dtYAcZ`6~~9opzT?PI`Ij-0i<CZRRwfM
zrYYDm9H^iKFLOan#X<{>7X!!Ts8O6ms_+CyhP>RRp&J7dtspvpxT}5TvS(Vw>xrZa
z?eZ*XR^3H4_?3t@8ix1b>LfZI9Zf^Wc~q*cEJT5@$5{}f@OZJ%TkIlXVDTF1NB%l)
z5)gA=A*?q3S&&S|6bWTzXLmu(SWSZG*Vk*hPz0Ys(~QuvC>NA@x<qC*`|<@~FgHgu
ztYF4LjS|_5_1kTC66}I}W!6j&XX<#)Uc>r=ZGi-S!`DkJ4-qLHS_WmA*H-aP{iw12
zoCu-&Z<?itwiiZ?c73QX>(L%Gd6u0#xj1#!SeoH9H5(?7JMH$auFi*W`9u;##$~`}
z+vl0@4~eFKSnukXl+-=A-lEk`A*94)%K25`s*aHiso7G^^7fxNW|a|XnCf>vx)c9!
z5)OHH>KhR98)jIK5bBcNTRNu?#QF7C+L277iT*(R=J4IRERkCBd>~TDE*Huh$TcB)
z8*Q^_xoHPIT{3RKR%hk(kp=;1Xk~dnk;j&{?U=g{LN`1>#6*R56&&d#rn_pw`&a&B
ziB4}h)HoqTq!(EpiqK77(3G!*UUhWH)ibRhEO6@3QTUg@`Pv%DBMRhuHJ1Q%7UWRg
zf+{#~<%>*d_LUZ1Y7vij;u#w=anCUxyfdH)^G>3th=2MlJtTk3u1fHHTe?$VIQNuO
zGs9<&r%C-%ORwwx(J>MCt)t^P^?`$&u9>-moQNKi#bSl;Bf~Umt80ysL1k4L9pm?_
zoTj8(A^)uZGJdnF{-1?s8INa4|G2VMQpkO7=1idIeryARGOX(^oYVt8AgRX+QqC@n
zC6y9_n^5zq<k1HD%iun(p#O@3augML6{2`Lkt!fa^$xX5VD!oQ>q|}pv`a|02SBVf
zzT}<v8B(zkp*4Ry88pHaWdmMD`s>wF9mG9>U_Y{_DkowUTzUWBH++)Ri}4ZrvYV|=
zgFGc)+y!}1IT7T*i-8|VV9eO77y6rEC`Fi9{MBGq<I}cGTL;0Cs|PX&VXgyz93y%N
z(!_!;rVLUeE2207hN~pS8DVoF+3X&Xbr~7KNyTbpAj~`Bq^=hB^<?t=RPsR)5hlc(
zm53@Kz?yoHayx#ywVr&+_;e1WuNynbECLEdAN-hkbM3iPkXsRaOwMa|L`jeiT&s_f
zB)$izPU}Bdr;ZdFVvr6aa}P)vN(iQ$xp|Ahs_^ibnxa45^Slo>czoUQ$C3kYx&1s|
zzAaq7c=5`u+aLUR{fF=bp{uv`4mDq*?D_HW*+(gN_r3b_mtPLQUVUQmThZk=UE8+(
z^eC}bYjBHWUc!Kqy{fIMz)x+}5)#qgNx7`L#Ax$Ki?-ZM^Uaue>PXpi(lMs9+21Og
z2S=~pM7RxuZTg2IcR3sj>j7LIXFNhLzU&p*Z~M<h#=cBT!#DKyf&J>6H7u-bLMH!u
zDk{gzTejoC^FR~%WX^#{+G~hg_mZVcUtSgZ1h=y%Quh2f;_m=_^w4zwr^kG;MOUnf
z?I+_Tr(UNkr;T_RamwW;j3pYaZ!ezIyw{*w;(hn-sTDyt7+$8089(9tU6?=}!_@09
zn>MWsK6fW3W)H?CH!oVW=+xP>Z{UxUuaflC*37>JM$;41#M6U6p3%E*&`Uen-eil<
zKcncYy)CXwxpMTuMzPh9RlS6w>K+dBO|DC=*<fvDC5ThC;I8*0EVND@I>cckxmn(q
z_ZFsG+p(mUav-mX2?m^b`ewtgziuyt=6(<Sfqwb<XAjVM?O22UudU#rbr-2A90ouW
zAOQYWlgYIX$~JBIf#cMvQ-?4u`^#^?Ey1M&e*BGR8>5lU@A2xw=7G9rX0q_zS;BEX
zNmC+PuO-KtlTS5i2?sdBEigwqLNC+@Be9i(dhD>$sZ&4V%C29({`2O|p5#CYLBV&4
z8>U&kcW`i7xMHL{aRR$kg<-e@unoc)-pxhsTgYK*$`WX$jH&a>_kK=xpXI}`$(PQ-
z)9wOJr$(+gQE@uQDv0^)skKg7i_?$Gm;b<llXIUpcgB0Z<T>5cdp9~s&A9#DU-2a^
z8X1yVt)Kg(N7jj$6-GbzHZe|OzwVXG7URl(SiG2gBzg<$oC<i*I(dni=fwIE{Sag2
z^#dJo*-7iOd^(4=xX*mbG`a4RJzV#TYSNZM$q;;<`en}K(4Uta-gMv{oCUWJ-no7I
zueKwDEqM$+W}KQmMy*xK8<R}(Hj7NR_sD)oiq<=${!dr;hEV4L3CoSJWO(||2h7QD
zXP#onID8FzJpp~YXIR+Qd_daco$Fa|EL+nJ*5HJWMI7)=;Y&NqVc7iqfXA!%f2jwD
zU*CEei;H8c)RBrTV*Im+gBYsc*-@5Ze6pi#uX5aP#O#OT=aUvvd?iQXHJ5CyKMu>q
zM>N`JMTv*Q@4Pb-IQRbnf1y9inGQWqk0;gkd@z2a+7+<l`qn+>BU@x$zGObHJMSd(
zmD0`nh`KJWo-U-28Mnf{Lir>sLXRiUNgCEUUMLzr<5i{&P9F`KTI+5Sdhc$`)j#lH
z-oAZ%NL!nS<L>;yrnH&#F#t!WNKKL6sHiCQ{e0O;{dPVBUh&hH^FsU%82u6&t?N^D
zFCZ{5p8DX^r%!2kCYk?NZ(kmb<r+u(iV!knOr}VN5DhX94V21IO6Dm;GJb|k;Y682
zDw0qcQj{`>C^A%{RHjV%MCqeY86w^NcJ8_B-oNf2cdcu+)>)l%KHob$&u`ej{p@Yl
zj>*<JNDJVFGr|ykPsO+R5r81)=H~;6Cpf$4R2c+q20|xA_Q*DM{jFQJ*liP})2UE!
zZ+%~PTAff4HqSkxE^e0C;mV`$cBIJ4yt69%hyu$QJPPyxR<bSTBEc7r{=9L7t>|UK
z$>BRE`Kk;H9Sc|5X1OGO_ET%}2!l%SBfcw#-YCDml9TOmpUKTNCEud+?BlV5oZvTG
zlB_jFI7GD?;pC?TPZUt)*dQ(D(31D~;~nkk{MoB9F$N0l^)#ukgSD(g%=z<W>I-$F
zCm!NV<#&TBx32P~$P?yAJ+1pDrF*YK=_59$am9)i7cO6pf*eZ@MA47t$bEcKlAv3d
z=6=Gw#iBV7?j*$7%+0A>%3qt)l9Sh4Ci+=dQ7FE?$!TdZ&`z1&6)SH>>ljeW*y_R#
z1*a$+zhlF_?o1He&WX(r6;PDX94f&-qzlaMC&Hop3e~slJ~5HVS8~~ZcEY@PtBR~F
z3q)m)ReB18?iKgofg;=x2pAshfqnY6llr-%<Su>aLl3I`ndirMVwuB1zTk^hhb;fr
zty|$r&OuPC86)X1Ba}JBPZ^bdzRT#41qbA`;q$f>flxsZh^#(1>mWXvRigy+h#qT0
z!Ckv|GeD&MWan(~m-IYk_FtFYIMPnkX}!u=3*W_T<snLZjdpUyKkY?KSz^p9JO>|{
ze+<5H?r2cK9_xAEBDF%Pdow+qCwJnIh9cy@P$4ry99RdgLc|TvfofMs#uYez$B9J;
zG;#&B+Yo4;$D`nFnP{a&KQ4Q<d$(yxab&mAaVICb`S0|_Lao{ikg!G!jmv8IVu;rz
zFD?DR;(xv_(ebzc9NfqaCD>R93W+N#^O0uZY>bfuryu;U_tlhk{rYAt-FYyYJLL32
z$Tcm*eL@x8<8C;?uUWHZ!gHuoVBp?UBnObj*q~Z1pdN6ya~A3(Qy}Wn<5xFh>siOW
z>Znt5kZFBWwQlX&*vY<1N1P0yZmFuO!eJdI=r{j^>Uu5YD!Vr{LpO+Cdg3z_ZPX(g
zI3!8um%wW`-<<B;!k=fWi1J?FO0P%(^V9_KzpuvRFh_;ao*mcP(jcdw9PnyDKq$G{
zo7N@YU+v#oF!}S{_Wd40MO}OL<&5<Nr*D3>RTB9&_jcRd*wQP5eSJDE-I18i?z-e*
z^U#|PMHio_>nfgF5$QaqEH@MW<@7>>FZ<#(0_M^moa`oT0UZ#_R6=IuD%^X|Krmzk
z3L8wuDu?```qcB#C+A^Ne=!$BeO}NB`RkhR8Ykju(c0zz>*X9%^AQ@TkofKGu6&L6
z^s#_^t8$vbl@!ZvlckEsh`)eTxnh!%^n-)dPy(F8jwti!<AdBz6VBl(`Hmf!9-p8%
z^)`R-JTU8u9o6Wne2q*zWY!^<_<;lG1LMnTl-~E5jaR=h;c_lri}Re2EKpa36y#-j
z%dW4p*7x+~zf7S-D9K?H)eMdTiTDFDTY6SbYKc&>^&BK;$l}2Ux_>{Q1(~7X2veIh
z2q{8%QLK5)^L#4D!82kp;Se+7gG6yGG+r9)6s2YLX;x(iR(XFL)FcZCo#96Tcz5>6
z)vm8^&_Os$GSwGOi+h4TuQH(NzW=&s_iiyMDJE<(Iy}AJiUHppjH(q%2wTTpTt=XP
zcGTk=2_tL>vn(phcN_7}Q!o(BYw22tuN*J^eqgnvN1b-_W)J#IYYrHjM&MB$tT@@X
z;2ff9ypyKkU#YOP-K_K7CH0`YqucG#Sj~eY90~jCkDoq~LVkM<4fPP-p`pl(5&<eR
zH!+(JM7>xHUBg1hx9}YFo9O8%XYo~X_OjMqx^sG?c=p94;YVQ&Gd$+4+IK0rf9y61
zn^Uo~x>FSXCIq3$q#s9BTQ7~Wvaq~{fSu`m8)48Mce%OAg6#4Sc1drEyQBAxjUi=s
z9Zxy(Fwk8O`z3>hWCwJ#gdj-Rwe9aNO9@~}Kd_O^=@=uRWr!T`sNv43@lU&W5pzwx
z8#~XkfSbSwHMDb2p6K9tIYLAQ*!|`U>FIIc<UZuNo^#s2akhWUwKg*4Ld#WpSzbj&
z06gYKEb#~Ky<2?R)lWIzJytAEh+*^N6fakib<H`{EDlgD?5Xq;g~3fm>PW0rnIC6*
zn=_=>SmCsTfO*C+f72m;Y;|b*r9bq923fYoyY%$n2eo^Ssksc{<eL)A1q#WH`0?4m
zEg?R>qq&o(QM1Q2dbOs^ntBMi(Xw+*eBCwMT(`-3emi{vkrm4;>#cG)PPxUz#7y}=
zJeuoqqm-sgp=^OVoNr~NIcl6~*6o*`ZwS%!o*hk)nt7L5J=JY><gn4#kHu0&t5Pd^
z>=ci+En3zF`y;;R=H^1)Z6)Mf8c8*&psZ@{(){_uiwAb^PGb5~^JhZIY2n;&obw8}
zf;*uz?oqnox8brn%AW3$EGP3Se~-!>zi{`~U@VBH@Ig6Wi{~j$WTsb*GfI4;79gdk
z%c*#>OKzgCk^`x!0k5O6qs*eo^}f(}b*kkUJw1JKz@)`-XJ-dsaE71MeYfkKqP^bo
z&C<a^9FkC+|5m0*PGAkK^r~Cfh#Xi9dDg$_EU_ocl6Vcxu3jfR8`c}%rYU?%1~f%6
zF(PG?Su^w=j7yylTGfTFg$$eTvBZ2zF=%g88dmZ1RL48<ICUJy5!ylf8TZ|IzeU$B
zj067$#&;JhYExAM%j=x)B<wn9eR-ROh^72pi}DvzpRNib7?Ycv_~a1=y{x1hd4u<i
zYBeIj7fm__#NB#oL{zAEH2m`wmX!Y8R}*(mo+*=06}bkI@3G&W3)EMag1*F57Ktu*
zX>oIPjQk@J_<Q%l%qSgE=`~cLZZ?de9324-xSwS0aPLqaOM8~)rhj)1N-0z~1xKFN
zM>6>!g48(mlI3PQwKT6R(K?}HCg~%jnz%$olSqrQqY`6faUEM&8Y}R$-*iLUhmk<>
za`)M+Tn;xXzZfXM#Dtrz%Tf0~R_w6Hs@iWAN~|^ArJWE+m9wrk?dO+oHyN+UmB<=>
zL0a)P1$_h*ylfQEi#Jj@G>~9Y#O|*qjMG?;?a`I0pt==^_fXAxx#vVnpr2ovyXu?j
z2O6WA($dTj9F6-v1)Ae7e8ogp(weN>Onv0yx3Z6|-;xmBMfPse_u?-$bGLL^<4liy
z`_^&=n@7w<-1{Z8&~|7|!#ZUoJm^!bIA*?oZ>qUbc05Fr6l0&DWW79m>Py2A<%ox7
zReDR-qm9SjJ75oJiSZB+Zev8?LgU3n9%(kgf*`tDoT1*TaQY^7V*N=2$F6kk3S^!i
zfgd`XjZp8$d{0A;I2dphB`KkUs_M}pv~bt9pL8z2+h1MLXHu<Aamv&Vw+Ve^V_rc!
zvG!8wyt~XjM>B`Z%Mxq(`J*A_!Z+^TA=`{Hte28Ydy(R}<!angkKw4@maB~%wr&o7
z`RovFUQMuTKd~I#daW%zGlz?di(2=-rpY?k^GJc|swdYuQi@@BAYa!dt{1W(p1DP*
zNXY1u!<|EUjnybtP&w16Xs3wfC9yl(I0i=V1V8YY>rbfXO%;%<q!z^5?sxl=ojd)m
zxHGP@9j9#dSY$oE|4t}dZA#Jf-lktslhK)!|J^jcdMet=KQGJbxucOSH$<BhPkpue
zG11FS3JuRML+K$F^~MMoky6-?jfsZi#jDuZE^G3&hh=CUZ!>?H^)PHcgbWyx>(m2(
zM;YetLXf2+@PIeXgc%yLLtik2I6L$rBnM3aih(z7=6z(?a7Ngu_8B?X<HHF<;7Yl^
zpJnHtcLr0Awz!cIAKA7MOS$8QF8w1wJ0*Yiy77)cTsi)-g!K+Bt-*o}w6u;O2bO53
z_OU)~XlQ(F?pbQejkW9=Wc&{Me<Dl=>0Udcfhz}n6htZ~eq5|+8mPES)=<QQpzqGT
zGjRDp*eFt$cevcjuglpOBybYDD_6+tqc~BlKwf$;Mb6&@jzMHOO+-LUsqn?FQ+jSe
z1tRW!n(_|D`vrHwtU{C0c4%G8$m|nABVkMV+aBL)HG}yhREBQ7Q69Rk_s!yVm5B7!
zZv(t<X#e=t9T{H)m|#Y0u%&c%1|PcCLTu9(IU@$aMS2IzM+k>YIJte>qFi<vW2O<1
zlo<*5l(r^{UlF+mCD2|?k;JfDhM5Iwo<=s>OI2jTZK21rCy(!veLNPgJ(3gE>K57O
zHpX(B7#l~Rm+EC&G0{^@4>|28IB$FZ1lgHbSAYdX{RTQN@0HbTY;q+<+m<2!zClWA
z1R_Y(&w3|%Q!T#;D!VgB)_?F8b$29v(x_?f=6duNo>%5fg*PQkL!hD&>5ME0Q1@k{
zNe#p_?6|K^t3aD`>3lFo9%+j9D<DyA{5b6N1{j04A8uuG8E0}ebMz}GH-h}2mKI=+
z49yTeG**DGnLvS!LegIaYAGG@<Lf}*J+(3zCHfL)jfhi6k79LkiHIbku5`p?(m_}-
zL2shJiW>nP5l%?u^{BwNp~p#B1k{<))@QF?Rm!@c8%W!BVhwuOXuuKcB_*2*gj%Bo
zy*_4_Dd5r?DUe-{#aHgT8xO<PJyj~$2SlR&P8lal4stI%<v8^w_*k`{3}lGUqqP43
zIcx{bZSFmspI%*W!6=*HsR-fSbhNAw;DoM0(d0^&Pay{m9+Y1b`4^-Jw0h|4e)?ch
z?c7<k%;Fw(PEpRDo}S6dL!$fop5RjBe63rpIjo#QG#@AmCOq^WUV(#pni=Y+*wGWa
z!oIMxdhq38qjzU3DV>?Yhc30CX`Okt-5v+t(lmm$L^P;JgIjP0mtcojj1TaVhL?dF
zMxD(Q&uRKTo@C4Z@%5_NjS(BJtAs77Y&6V}UbOM^+eRv4GB7dm2W>_z0Nw7GgoKpe
zdVQUg&LWztxjxNcM0Be&8?3VK-)56s{NQ!~Iq>t_{G|D;UUxpPflJG8Q!iYIK%@=6
zn>d-`|EXQLxYRQLt#1C?*h*^e^5LuKbWul#Nb2PUK~cn*Y@pHnA1ilD$({_Ps<<3K
zZU<x=ntEk5p?I~)7cLN)hMy>*i8K55nIoL++PU*gr$@peU{&1e8?0id@fHiTT=%tB
zQAXp;d^^morDa+!#&18_wHp>AM??xV=j7dK^&J@@24Cur9yq{;VT4>jNo)B+QKMaQ
za`JH5WJ)s;IF>$YAY|eF^I=H5dJ7UzabLw;-HnR2Ifhfd2itx=;Wa2?vbVQK(V~~E
z@jW2R&6?lMxAR&zt4v-{Km3xQ=Fp!vDSaZo@aVlb7@zl6^t=s{Z5g0N-%pg{;!5V5
zzp!1Kd)>NtvRp)gOCo|$Vl+nW1=2np;)d@+pWUe!M@ozOOAz#R0etyD9B)rwLQKpP
z3=_#Z6-g*VJ6r^hJSHw~C-ybDn<1y!wD`gB!0edKrR9N{r0ZS&cW(_c=t^(#%9vct
ziYdkcTr8qz@E+J;G!Wa-sdhdlMh9gg0$x12O)5kzp0&2_GB)OfxVpzrW6o1F<L6dk
zI1tGb40s^-F0}0&a5-tf7s8eoT!^zAUxI<gchrWQD&$}-Y7{_&3iUB6f@wXB3B8w>
zf<Auycq4RSMp1wba1$MBi;rapq}h3Y<LJa-?Yb+QZTUV$LZQBU1Ak}6B85TMJMhuy
z7yF^Q(<F-I?fpRIu^pUcV094<HP&ndy8^Y0%guJfw<pW_Bc+PWiyCk8o=U2zyscUB
zL#j{t55f-aQSU4ZFXy^-mbq<nJf|oJi&o2-6=h7|{mm9Jf$GITO40x@&DnQpqhWr;
zlwMYFwZi48uAe&%PKfLm4IE1V;<q_5fv=mxR>(+PTwLCpVKdV4zdt5QO{#&hD7XLp
ziIWMKTJzt3<KjI$@j()w`1eQlR!{wY6cGRZm>wvOyz<}2Vs587F#R9Dl-=gPkBMhH
z#0fw8?_;}nH}R<dU%v1Nka32{dLptu0tan*7bh=#6M|8KMzh&{8~-XHm#XZ}fXnXj
zF-vbpC|`k-a{{IT9z5qS-P8s520KN8*NCOeXFkxp$qVGMXWDGCYWhPx{q)nq(NDk*
z;<{48rplMF$c+Nbbvc2z*>4jpXB%?qyQ#g;*A=yx$WYb~ftv5@-<ub?mJ3Vv!4dNE
zv1qhDl#`Z{N1UBElHpW0lJO>rZDv;1U4elr5W}CwtZn4+pWmCw)j?AfJ=r9g)Y-V8
zVs#h_tBMf(7D&(wg~&o3d&?%Q!&SIJs942?`_5TlxXwx<RFG@gs_Zp**Xbeo#6+I5
z+hnh4oEh$%`HoX6vKC%gw0pYpS}u*wUpuhTHu{j<iQcPLZ#05`FniVh<ij(c0`)~g
zRdubDQP%E&0A*ZB6w;qPdMYyUyhxRg$2wUL8_sTf?bNvaBK%iWYMr2&fuc(Q0<15t
zZ2m^`)==2InFB{YB05|fp+>NyaIU{LRdVCT6$JFZSW0^*0`8KRm&Ny)M#St5K@<u6
z@tF&~qGHg@aR$cs+MNeCUQ(H9D#?;S?`pFkHhFK-c=}VDmAy^%Momp&jDS}_xtvGd
zYs*zdrx!eUE*L8eJOy3uM(*_*fXef*dm{+U9l!f*8%$13WhA6AL&Q?Qd7>9%1l{Au
zHx${_#$f`H4O}EWm8@)Yw<ms(l>G-|b@`~XXK|0~$j0d51VrM+2iu>iF2?LViK*aj
zE31qnpT6R8_<VfE1)!|nUHPfIvIKAl2pc>BQ8E&!%P&QTZ0aXy&qnvU>p@(H?6qv8
zM|eS}q$Ah_w=oCTR*0VX5v&Pn{|Z6?)VJ7WN(7dh0VB3hiVnFmfsGLas1cNh6IgY0
z1b)p<07RN1>$o(v7<6@DPT6#a4~3`q=nGzuG+E&op@TPk^X>SJx8s~bLgzn!b_M#v
zO0J4TQSC$|<;6gbm?c~Iuc&<biqIV@lyEAo&6&jA2;lc#N$xoiafVyXr}kk`L%%;$
zCbvLY1G$b!n;s$pG(>iYG?%pE&h3$MKpKu@+9ccEd+8ZaV7a<*glOUk<_AhX)ZI|h
z=3c*kJqg~RCUe`NU{(pv&DtfJ?Vp_}CCMrU1~~R@>D%{=y=r~=vJrF8bFd<#!;*-J
zjjaa}BMKtTD*bbyS6lSoDh>J#GY<C1dNC2E@EBWG3t`(3jpR)f5<!CFjp?03EAdHq
zm#iXz2SXDFFH5|!sCqk{folJz$DMfJ&z`cvY}K`L0&EyZoB$%B4Iqu=6bDcZ7yhlj
zv-7Q|4?iZh0$l%l6R@+wO~CF}84n%TYL5s3OHj!pXR#OR?G(i{G=#_wuB({LVep(G
zcn0+{0nuX?C1X(u2wMQU?N6P`ingBeRmD0%7T<MU>$EZOh|97^SWuMgMr<H^3m^4F
z61l>dKo5}eG=`SzH*8=~Qc@C7b{BxB(ua=Il<i3=W7ka)L`d)ucMT^!Hl%IlRjYJy
zaY}IQop@i~`t|lcGpgxZ!+A>^)$dq`6586L#Ou1#A)V7fBkv`cS0MD9MX>n>M1D60
zq8&gANc){fSwK>`5E98V_L-@t0Jq_acHQrmKwmLFQ$+sn?(TAg9YTUgFC&6|vNMCY
zEEo181F?dz$5EIwV$3`7yjKzpU{f6LHm?h<B6Lu)7l<*RQ4E=NFFub+(TgJA;f9qy
zS4prm=nq&})I~A_B6!IydoFV0@Gs6Wil)1}!1Oqvl0?#OLIM|qCcyT$v9{%EtN;s~
zMSa|RZv;;;rq$v_X+F*ot{{d%le}_zh<{pLqU|Q>b`sauIa26k?nW8KkfH&l!-OY}
z=5J|$Ormy;QeR&e<~I|mGQUYybn+I&9!2Mu0?{<M>8!%5I&69c_77`bd5ph8hrWsV
zjK9bbP+`xjxKCi?4s~!p?;0+l*n~`O_pzjP-#4qR)3oTmT2m#*d}azA3Jdt1hQ1^`
z8qhkA8FWT!2W<ApAS$u=(M_cAxwbB66j@gHo#=m9eBtU<^W)mqv2V@Q*E26)H8X%}
z&u&6&x4yo*br*kk7UcJCqAdxi<mTs>LRG<xnF%k!Oj=pI{hhYODUQ(jjO~{^ciF1-
z@-H+?D~U7pcAN(`Ub1u|Q*+Q7eFPXgD6$X)(7_|Kr(2gOiF&-%j(DDXvfSm-S0}(}
z<Hn5}Pwq{Ej>?Q(Ub?u9n&SaXOspP<3Bwg+52V#5DA4=eg9>yYu8Fs4dzgIE{Yr|{
z^3p;eG{z?CuBW7&1)z!#4BVT%O|Hx7;k~nn)nrJ*bM>_tL>J|xUuU5=0ukxM8TTo;
z0`^vT7jS*|0ETT?=}}V)sE1BE<JFsv=_C7TYQ8)EpjL@S?;C&E<e@kc75X`Ui)PTp
zN%)m_t@Vjk%TJf(T^9125i;U%AAugrhr?Sp<-uo)l_(HpKtYov#{3zR0kVUw>4TA|
zVs*fzTV*IYlVBizd>gWzRx5Jty1SMT!=^z{pZZ)uhQWR+O~hIJ&AEQ&K?J3kaCKz$
z&KW@Cd_%BO#nN2ldZaTP^9+usEC`WjQ2(FT%kf5*xCtd1>K4Foz9H(^stve@vjCh}
zoJ-B0J%7#x!#pYAjXt@iaFr!=(o}tKc`wd-U<kiTFULd$u3A$Nx`=VgRPosvFr>Nt
zOt<B<dQJetef1Wz){=K)20A(s58x~7qmD4tfOvcs5OrblNlJzX4U+}_A+Y|3gpX8W
z|DkAh<Lv`gE(!|&u`SA)n$~y}HS={?BG|$iUmaatZ%;w1X4TxcA^w-nzR9Edi9#|2
zCt8$G-li5vM-0SHK;M~P<L|+aD1I8Kv(?XEvw;QeR&Av3ym`u7STPSHKkkIix1I8}
zvrxAl#v5zE03iw##UlX>-_X%D{*(|GkHX-d6)T7v52{B*2-ccH!^}Fz;9T7@yU#<U
zu<bGS#Z7GT2EeRm;X@hk?}Xoo$Ip!OHihua-e3F(b7_-+8aJw6z}H`vHZmy~38sQ1
zw<5naWbu8eV+;HAZw!<RD<DB`i`MQTS>6?<Wh8t^$=XbjcvLP_zo~7VzC<Ni$A%`L
z*p!U2V!AKJ+yK!<Sz?dZeGzyZU{}FBd49(|^}yAPk=`TCt9vOJzsV@<aPLv9tRMpx
zh&K8G>ag1>{q^DD>BWHFQRF2Vg{@xy6b$AP1m_UR1sK%mb<*gpr`?;+H0i6SwNH1J
z$dwB}f<oV=0Yg{>lPG{s6*l;t!7e~$LID9i7Xx}wv+N64TiPqfCZf?ZJY7D}f+wxo
z{}uILqZ2GZrE1QXaXaCc7|u0yfs@$yb13MOa3`&ABv#E=>JLl+<m<EnHD8$>he$PN
zL<9RA%*y(#+p)ypOvp(vW3D;Vqjjgvv3wyv>iO|C>B=5o9y~QVn9<&DO>Q654_|-$
zvfHfXWfdaV^4g}Bb?0!gCmL@m`yd=KSapVZL?~qwAKKd6`C5Z<Bx67}9?$dHC6zt&
zCaZS9!HvKe@?zjRS6y8?oK&SJ`4v+=71%zBu#7%5Tg$>Ldjm8kA_A1Vhqal&CR*#d
z(NRtNW6@1vF!4gc3{@1?E+a7ojHZS+$>P7LGYaJ-9?^8iO#oAYig1PhLGl=QpSrcT
zx3{OtSBkg+gMt7rpRRGgG|i9-m3s}qJcl3jBYl#(S?pKt9K9z<rBVrkG_$pCKE#i-
zvkRT8P^y&vFP#dwhuyKUP0auDvU3S8wog&z(G!8tI-9~k=<q`OQn+3Y7yOh60;Fas
z-1mc;yEgY*pkl;Cs31%{jb0H<%P7g)@aOVt+E0{w8wfjuK+h|mVjhpC2*R0kjV&A`
zO**Ty>SoDu9BecqLhJM|*yH{xaYAr_?A$S*{!}O7gOxcc7cOv42l~b_qF|qKL6apr
zEV$h*Dkg^c<Jef7QRz_4sm&M#aPje-1FRnC-iKH0Jztj>`Fvo(u&?~2%bezTw3)uq
z7#_!MNSzZjj+cYRRwLar^TC_UGTOR9`rI}B6U2kDu8NGRfXVdvV4N#wzp|Q@m0LX%
z`*_S->n#c$+4sxnmFb9U${r2q-R}<K`E#m=Y0rP4XJBBEmOWg6l8j0NX4Xk-oi@#^
zN)LY%2wv)H02mL1RJ-rn@;j~rD+dJ_Cm1@*WHpp$kb-;_QE&I)i#y^;;@ILxg}enO
z68~>Tz94&S(|Z=YsK}^cf^3XFVLbqnF^@Ybn17jkmSo(rjgE@CZPER<TjWG-9q7*N
zj(1FQ7<ca4C9FWtQy~eq7!iTHP_wpSO=X{e+fATT2-%So*^#|oem6}C1px5`4Ky7=
zPS>zsR+*`JUM>lhE|J0ri~v;K|DL4cOxC%q4WcIy)Y)5${q|PPD2kop>7Fmws2hBd
z0`6h+@FFNR$j3|s0KBey9;&{G?9=|3_hcw|jkB$YfUSE?EAWkd9kc3wpTz=hhvJOH
z(Qg=CTM7xw&OMQn%+Ahk?6yc)^YiZmL_y1A+tS#mlAxbh=KIQZn>acZ03cMOurMuP
z|L8^W=U%&)erDF7TE4qX+vDe#q;fFs6Tp*3LX1L<D*-ErexttA+XWNSn`K75f=1=B
z@b*5Ah)GNgICicqr-!SRzms$|rdlCPiw6rmh`jPy$!@JG={SKn&1_lWPG=lgQ!Q1s
zCB5xZ-}F(9h-$;5;pc5v$&XCuTTNF6S6m2qsFM9-|1|_(h*XLYWUE$~0cwIQal`g;
zm^2h(UhHMvr%xa`bmvGYPMTP_6p8ria`r1cJ)9W=uQbVp%FqRhPeCm8+1sGJbAG?L
z^)uTj8mA|dvqUXCTu`<W5olBTQZ86sOi5Y!<k$X9ByJE+_Ps4S*uqU*`XCB05wKon
zB8Ns!$C?s<Jk2j<?+527SWSph5A;c>&P(~4&#xaRh^hI7^}@UWhE?-h_v_ae)bjRa
zk?z+7i`PA^z$vkahQ15(-;=R)x<*TW25Ta&uD<br+ZUPLQ;#O<zfm&N_9wneA;sk8
z&Xv<YabxRwv<S0~q>CN5mYdy`<9%t2OiYfra1z24(Fi0iJ!e2z|2l+IM32^7A{X$R
zrH<h0)u;B+I?el72~^>KgzBz?LowC}2>YXrHw)aOW4aeXKnQfY_TQ@Qa3p7hM8x^?
zY=uMnRLA$q^r`O81LcNxO0?|Gg-KI}3S9NZy41mQlPoT_EB1PAUIsB)SONO&@!05m
z1Tdn)K!%%JVK+(DNKL(CDJSs}6L+V%fBXzc$L>%~yC+06$I8PEqF-LxXrPZX(RAP<
zNP^WgfVaZ!vHSO17%fl$aB2ijK@6NSYQQF-NT7pf=HQ67xnKE9ylqQ&LH@{(%14KG
zrE3?3J^vu{Cb|x6xfjDFXgmGiYaOeLf`6lLkO5D5?st|QuCJeL>f3-fN?8fiM}!;T
zT*WWzUs3Ld^nM+mN7ep9L4x_rk$k>|E6713h(#seczJm2U^z_v)-G~kgZ{4zVlEst
ztgBb^il(Jt@{Mw_*E#^q9qPR$3vJafbbv$zK>1-zPv%i9(=9D<DxZSO_6qb;^v3gw
zw}ITMg({|*1_uWx8?Fz(vo#(F`AuL+1dIChx_K&VrxW1ec!^9DiZKX+Zh|?R-hC{#
zcvIyk@B8{iRp>&Aiq|7ei>7g}pgcYBdvH6%v2fi{j)tdCF^uFO=5fSn3iR}63NFgm
zGPU~I2|(2JH@t&oy!`LlVssk%8zOx{|NF}p-?r`Dm#)F7DR0|o(+RZMhcj#`I9Z3v
zX*D809Zvu|%wN`EudUIJx)|<;1{`iA@`-#~uO1-LZDjX2;5u~Dq1BH{qgOmnZdbpS
zmiE~@cLxEs@xf3KGA%KSh|QT;srv+5<Tc#x@OM<=J1WEfEEkMWa*?X39)s9j`bUrQ
zfky}i$5=qGS|&U4T4cQ)K>&0Uz+sFH<g@}Otd6y<b=xNB^ZS>-`{1Ls<md3>kE`EZ
zy4jv9Crl+2fqnm&?Bhpw&Z)j-rLGQsEy=9|O!hqSP==D@x%p~rVFAtHZGb+{qAr~N
z27)OHZ58hi1bCg90b$j<P&0yfZWME$iA^8^ZzC=UG%0L@co?OKZQR&A9@$xT{_W6=
z!Rpp4Y$$<$`fS*<kG5SwfgQ<y%`3Xn-t&NuNdOwN7WP)9Yi;0oFcOb&vM!6YM-L>7
zh=vjQ-xo>j^4SoAV$9x~pihLt(UoA)cAp)8%Y@AIdfX3mOwy>m*rQJw-VmE^+di&K
z%8^t>yQ_ydP4<dW(b2o|->z3w<ire--|Nq6X67g8PpxIO<>U@zbdmLev~8UR_?dXR
z_=AarYk4Tj%Z_{_(djv~x;L$=DEKN=6bRcDf=%#KJ%sY8Ij?5|bNfJ4{d77)_H*CD
z|Exn+g#s~fYbumd0Xfne2Yy8hyb|PPT~}9WKefzb`Xmm4TD%ygYt87wuFQRS+-(J=
z{y=JOAI@h7uS?)Ci4*{9ERK9}6eDbv?Tp0BEX{QQD45yV`DjwO8M1H!Ql$vauvJY!
zo8w}xa#AN?Z>nn>+Wu_(P6rXxGrRTl9I#ELrKO*sRjB35CqrNA!&ld}HwPFj#*^GX
zG`0lGr`K32_j_g;85nK=E9wEK5yrh|(GJjG2#*<nFJWV%ed}#INs{BCB%1O2S#hX+
zAB<d^I3AFZV`e1@N#9Wnm^e0l)J7GR&=UkJ;lbbobz9*!g{$xTx`-7{p2IS(qBvct
zEQao|c=%Sq1k4Di_XZ9@MkQtbwM+<DiBmupa=-#sXc^u6IPCY`Fj2Tt-Wu&jcG=<C
zZ>&Kzx!>)GF=8O<U#FqDXthfQd-syx2NLl|%369xHXT@Uby^M8kq;$p`^nU&3z?CT
zktC8xo}0BvAeZJH6m2oWms6QG{9?t#5)^8cjG0@Y?~ycNmFRM-mMW*g5kRxImuH?|
z<Y*6bhb5^|=#8w4G8?cgV?tv|z+4tIZhMd{QOnU|t`q@MLe#l)*|3)e!%PCIicAcQ
zjK9<llwc9s!&d}trXt|kI4DE1fS?_SdB!vjP*8F8p4xl!p;bu|)=<190L@mJ{K3l1
zO!5j1uWKcMRwjWRgikTAUcCp&P|2lTsK4&?y8E@W>6SjKhi)BMTXwRWU1xZ5{7tms
z2}uBE=;c~)*~u9h=a+vk<{;Bx$Dr`j0k}jOAd}Q>a_#|Y(7>JJ2omnK*n`wM#Ol=~
z+J$cii2J_MD+xUib!p){b+5B3Hr!KWg$Jln(8i0R?Bbu>q^2flUF}y7{_F){au`yF
z_=Ue4D;C5)CGQz=F#*^HA}SA1FT|t<XmERfA3ON2$hwc_^UKjj25)bJmdbV|rH+;k
z9$w(8z!9l9UbhomVq@GJ;(rcC4WNmvOcYW*^WlS?k3lLbavm8+%pVDs$IR2IU=a}n
z1kl$W$vOA8(bScCIP=T}D^ymAtkp$C*e^YgLW0W%x>Cm;8)J%zACG870O}G@zy?~l
z?)ZZET6{Ph5#TdC!sZ7NHcY@wA$0Wg7=g^wrUPF(Z_Nt+A_LMQD~?#*+vt0d`#;2o
zi%WA%YjI+0+JTMaGC(_2#~vMHDr;FG2WB7ZlV3MaH|e4^11ECz^c-ULv0AU7z<wZy
z-%{GGi5`%!u>#M6epcA-jH?z8Zz6{@*)68{5Rgdm!9h)Id9A$|=9FYS#;~~=;Wtz`
zQ5s`Ybm&SryvIQziJT0~XCeT8I3Uzumf8fEhJ_&E7|ag5%9k-RTSWxo>|HJ2cO2EE
zBT%inT-%E}r)fpLs~Aermk|6?pNH#i{L+ABr8al6%gao4el(4ZKoOO~mqTr%>4|v+
zy?AU96>9|$o}euF<C)M0H<D>Zo=6A{)qtBSK=M#Q4idp!6S{^I|Fp*#e4<}cb_^%4
z{s9GUUX86&*7SA+-pa2>zWfA^X455xug6_e&mG=|PiWo(f)5A8^CT(`k;G|#mEEQ*
z$R&yvgB<IVc@}LM8SnP&8HTJ{J?adf@i&qv5?i`&lCv^i%Z%)Q$Zh-g=XM&E`Tt?|
oMZOsF=l|QV?cc8>zi?UfQQb_b;O|pfq!PovJ%+oBcG{i!A0U#5)Bpeg

diff --git a/reference/plot-3.png b/reference/plot-3.png
index 99fb70645e24442381258d3653c6d015702742ca..a6ab952f8ad9fe90df32e2fd01db95087401dfe4 100644
GIT binary patch
literal 60670
zcmeFZ2{e{{_%8Z3s;@y4Dk4RLLXt#=M!beH&qI;9%=6r+km@ajqKug{&y);B$n?q_
zLI{~>&h=E^-v7PMK5PBgI&1H<&pG>DedQ~!_j!KL{k!k$zOL*3J&?U5zUiOc|By(e
zO=O7+@+8t42NG$O?z*-3n->4qzwpOeT`BPk_!F<$^SSQ$W4(ohnl*{E$CLPP#iO24
zeG+LeiG1O#qQi@yZH^8*lnRzdFAGMH*Ga8h@&46D-wn6kY}|PNsNS6wVmsD~XBDmc
zXP;M*=KD1adDi0k-*RYuc|Gp$%j(>?Zsk88_r>k~c;Mr{(<?6cZ~53<F}wIg$0X-z
zJH@8X*r6~ank6<yA-X_GOG#jHNFln*hez!9m61pu&-J|R{(epJ7-N0E;qU+Oc&+CC
z`(^Q=ZFzsc+!8MFYvrG>&-m>7ANkGilD6&_`)HO~VU}q++Er4sx$jo72(i8-5}h1-
z^9s_NJWZ|urp=ygpLTBVG2)W`srUOIWw%azTl4!XlE==Aw;29>Nz&c1UYq3hkVRCx
zbmuO;`fTeyBhOX8|IK6Df994L4rR6^&>d0!kzB^C5Pb5+v!I~ZSfw})PEHw4^|UW6
z%QNCKFHXswwjX}RbHK=T&6+hq!p<3MH|>syOU#iZlgY7KxfwaOgHg-#h0ArX&wHNp
ziZg9YOlcXyujUkeZ?;eUHYQU)n{t+y<{RF~?Pq6a?+++kh-7yBzV${&L7Sm)uH8_r
zb+vG`a)Nq{)8v4plvLe_`?7Q8%hM`mnWrcAD1}uqXgi$M%C%D(YEJii_ADYUsX(1p
z=$8jQxAxKKI<-Wnitv=5(O6ei%cI(Pr@qfj54A+AXggjMcAlz_4A3^&<9wqzt!Dot
zp|GY@!@>F(1=dCtdiRBHmW1aWj(snWb2<+uWU5zGg$TEp3t&Me2O9^o`$81TeD^5D
zDRZ(PJUEy$m{|Af?Clfw!<s#PeJVBzM@x4e;mU1G%*)GrRq_4%cL&bxu@)gTodug$
z{9b>Sja;WhmuAAV7se_cMm*N$HTb+vwc}?~s*J9#?iZ)w>^|nFPoHjoo9N@SF>ax^
zGPn|}C;j2xrd8DWdWFloGFxu=@I<|R`=!;s!*xYPrg2^A3t{Jz-xvJ?1C5(AZZO)+
z*Vffl;*IAMGxu>+xa}5k$x?Ew3A=c<Tf}ANZU2|o=RcN(eCS+Pu{4%u(!de7RQiz7
zGq3fs=;Ad_!_+2eZEfwC<CmiATxL2w4+skj|H#0N24jV2w9F69e;u-OZg?3S%$U}0
z-B;zvxm`M|`nH7*b~#=i<`duY-@OoWlyB5=&)>`}w9|i1>=AQ9h_Lg$dPd8+iT<3a
zW>eeV&w-Bzw9|~9Bxd*S-Xr32>Pog{cWM7i`}QXlJ+(ub9f{NJ&fHgK(@h&=ou`Lc
zOWrz7nrPWI>8qz2$b3l&3=GWayvLY!?Gxqkz~+GRx1r~fuQwg%yZ%-7h;sZojh8(&
zQ8J7T@oEb4a+kXhAa~PR%UIm6%XDDLB&DT~DjDDk1{#w>kMr{0rUpEH8jcGbXtVFw
z#549|{j}qj;lVAx@8{Q})gx;Retu0ZudMWAL!6#xart#~GmA)kQPH{VHZ%O{>FMeJ
z_+-C&o<lOT>x3NQqS8=n1O3r2&w2FXr~CW+gZRxuQc_cU>~fV<Rp0D6ZTH5!qd+<E
zHVy4SMvK{oe!D?jn`U-)wn<~+OKO5fbZe_7@pJq7Onb`xOuoK-tu)o?$wGb1dOppf
z^BkUq=|Fvqpk>z`Bn150yhku%X>neoCxBZg5i7P<bGh?_XT$6BG^THE)z>S^1RlRA
z{)pMHuK!ufkn*KVzW(^W!KA`=^+c%vuC0vP?*fcQqGf-!WM1C2YnS%&^!KNiO%UPb
z6%|ighWznBkUi3zr_E$SMYLWD+Q$BJa((dVQKQ}?VT1foAxEn(`aV3nPus;$x_y0n
zbwvgLjb_EV=*x|`Ccn^7?#vd>=sINMOUCbSt;rcJWlTuHty4ceJy?;<-Y3phb=yMw
zPw<@CQZszc=a)%qR<doyxId>xxz^>YS6`E*q*4b=no{)NwG<tce*VoicalNJr8D(K
z-<MUC&u_1Oh`+i<QqXO|A*LmZ@r2QpOD_d`QuA7dPPXORXO@fndbi50+cvi?3UQ#^
z6l`7~@NFtvlgqkM%U-RAX4CHPnb%J#`Y-Mn__cz+-633wi;u4XyD|DF;~p`Z%}j5*
zl3Rwb-Hu(EtqkVZ=oxH?>$BJ4*3SESR3qc_$bv3cKt(Ikl=91J(dE33lp3ZmR{6fO
zS&8R=2hiSAPQSFTAc2_5=-4(W^&}cL#3~WbZqjYIHCs|ra!h0CJq=6!jm$QKeD|f<
zzT1i6Zi{nHi<6CX3=DnNZf!ZXwjHk1j*A_IOOxD@QBiY8Sr{0iu>v(tqSn3Ag@f(c
z)<lkECre65e8JyuwV1ztGPvD+*>x~u@vuVFok>>pn-{D_@9K{CRyL;@Kb>^@L}AbA
z@;btyXn0Y}ZMH|*ysoII=+y@?>F3AZ2e}QzL@x{vYMAFM70y<gFH~_Gq&7`dyD!x_
zEkAN!*kAvpI!@vxO=r%Zgy!*00(WSZKdEdw7rMM)m>nv;jBr)2Tb!R(S)7}^&Bbfh
zddk$PGKjCds%o?9(r6iriXVs4O8?QkhobE47jLv=Y*KCK4YV2iP8N81DYQpq=G!XM
zxd#VB-j-h9#CG^F`TV_&$?fK?Sv)_EcW$X%+~GCd;ocE6+?*cQ_-l2|#An`W)w-mD
zx!4XXq7I!frc4&-6uMnibDtb&NVqVatXHNeE4#(t>BHgw=E-c!V|d;d;#?KPEMOJk
zHd~=%f{m_T=;r$6PF!@Cwku^qXL(YGm9s8hjW=ofJ@Y?Q6tq{i)Hs#upkZXuFCkCa
zomm8#Hi!10;#`+;o)X&J8x?Gp5@rAM>(((Vx~;^uMoI;!*U^g1T*)3>pLu#X>qAh8
zsC&VsP?4e3Ruvsr_J9g@GO_cyvcFSa*)r_dVT66M8&@P~_w$VuSM~*D6u&mJX{VvK
z+(z|Y7vC19*#Fb=C*}?da;m;P^XbzkiWjrnB$nhyW8qS|NkeQTQh@Nxx7+F&*8@AW
zgG+Z3)zyh*U})-Ou#8O5iR5;cQx<!#%*r}#XuiHIaG|cY_MF%L9fQ<_)F^X2Rpgr^
z0s?9%>4;W&L~lZXVbO4i^Ki2Nh78xvZMa7to>EhXd!|U{c?qYV<1-zFWrsVKmolrZ
zmZ#m94P`_ZC+b!Vo+vfyDt-{FmKsF>0~81?Wa}@Z-DSv&hde)YPL3(6s;b^hc;G|a
zU)JC7`ttZ&KFPMf_Ts_IA@$LrZn48{xz6m%DJdx@jBDBSuU&hC4L|oYwOW!>XUuM3
zpdrpPZx|n-UWb&rqGIi!zIx5rQdXN;Tv?RjGlz=GN+mP1#If;lB&Q@~@xh+Jx7N9B
zRI5JIjqOH5(X!8kluhd2ShiF5cp;B!)VVJX>PS_Jx-De!iI}^%<O$jjGrcW9;9Q~=
zo{)`{rur*IRNwacH;EZxJG_cjPKeDN&XGce^!w2H1wV(+yj^G$(<#}}(NRjo&!5*3
zno{Nkvr&yH?A!0W-<BS7DMZLvMkP);VWq|vfj-_9POpz-a|^R1D(y<U-c;-KwY9)?
zKFzd|D`}R+eIc1|@!M_MSS+>MU~|56W~t9Ez5J1{$>F`#p-Dt#Y0b8_%GR{XZ9877
znglH1>F9lq;d*P!xFxgVcfr-abJMx=x2E@9No{%-5|Y?rmMfzWB`v3|9ir{nLua}a
zx-@a{rGRy*6S7SoUwsii{ha!vmZ7QL&7ETv+_dK>IvI$6(f(ES@^n7M>UDt-3x|EO
zm$&!0(;M|qt4-3HuAh9ko3GqS)N$;ZY4gr-Y(w=C&&_*wzfD9rKz^8;tV_|an8@u|
zycD2i7f5;fR6n&zl3nHzlYo4U%&)`GJpI=UUUe&|zMb+P7x&J#ZQCZk>OG3lukfcX
zyUq_~YU?*=nw!haGv=m6P-rz!GOw-)^NB|WYY5UVaB<wR|A8w?8+GE@VTG`r56nZl
ze=QA}yQh|xBD==<?m2ycEP44d_vGVu6ro2?5o3Zzv|r=nk0vn>(QQStEiS$==z2&v
z(tfygSDN&R>f5saCA%YsBonnXNCffGn1@wTuX}p%^5(;Glc)-6bqN}o$j#|RTlBAO
zWIFXF$Zf7aS_#Rh#7MWrW5ufYepHRtI0k!ti~h)fSldA=#j7-sliAw7=+1iOK-p~>
zA^B1OTwf-ASwstjI_G*E3!Fs0R<TsKe_B$!H@^3a?YiI3a<%xa>6P-bvaf2w#XX<-
zR8~|VYo*3dvwJH1`11NT00ZI!5bhm~6j8=`4Xe`Hoewx431>9VtJ$sot@y$A0lf7i
zt;}g)#1NOUPZIYS6wI<Z*Cw%PMPGXPEHH3a$$d#@Tz*17(w5S{nbsYU%KnR>P-czw
z8yX#YPW1@U<=N_<`}Kv`ry6yag+}i*uBw#`I<D`9Fl0!pl6XPWnfD({2VyroE$zf)
zf1UUS2CjO*P`2p0!!bs!RoEt+S~-enIAoQT{n-xl@W^2;$6^n%vc5O{T!X~e-)x%H
zKw+1P_e=z28tN$2L9H0g*;Ig))c*9Q{16w{CF|bLPb!sd{yD0dCA(?&i7yC?NYo~0
z_S6j<HUKoo2w3;NL2r`tGo|7L`T?W6+Wo~PC61fAEq{LHA?l-3=Us+0_hmOziPbTO
zX6?VdTY;3YEdPjEI9`vp7P-d2l{(&6-S{<GFJZNDU)9Tex6i+#FNcayCn~rL<Dcvo
zA3(XlW~8ures~Q8_+x2)L?wVrtEgZTc0p=XrdeAowvj2`O0_%1v>7Q{%XNOLVR5>H
zMgHXzLE0kQJ%8Fz)?-;$zW4PplJ(ut2sN6&d?Y-j8aQC`<<(6A$FYcxx#P!=$EO7I
zn{UpM@uufYDW~0i;*gPJKt&JTWivCgcVoCwzV++Z>$e-CnW5b+brIO-gv*RY+~=^1
z-YcoIJpnrYj-rB0zORz+ReXDY+qLxVmG`$E``Zh?jB*_BWi@ZXt;nPrRK`!wPmfHi
znX64%E-x*f*Iu3(?aptf*;X~acUvRt@1Xp~BJ9Au7muj{1v}~VNFHy**x|#6)w3+F
zzH84&${X_%L1B1Y$~06L{m5>pIkGw3)RW0NE#0h59T<NA@%pi1BeReyijnsf#pD=V
zd~>dSl6soa)*)FJr|(b1B^N`9+9;v97m0OlZZN4K&vE>fzK&Brd;TO<1CZ#D^^2Q%
z<5j26R*xWE8lzR*eZolg<K(?@q5H*uch8IpI_$l9L42lB?#uHX1U@4YDR;rlIa6wU
z4H~d#XfF@Q1ib-R!DU68W%tl4#cW&Hk~Nr^Yl9SI3N#nQYxo;mfAFM@Q%^TBY0F8+
z)3B))o_-@2F4lK-!-piZwj82V*-ZS910IsnabHX?nC)fMH!$E}Wj))d?Tq*~iR9AC
zc>`#UN@<XGJ~3@Kzghey#*;rhS=_$(?BY#xnYBvLDbyAa5FlzP0bF7)dehG#qcM(+
zGH~&?THHo&lcZPXtG3L4{p;J~>{k^O6w;0B4!BM>s5nix*{AE4{If^cNiilShJYT#
z-L$z*w;_tovYkAO@R*w}Tuv}ATvSFbqhf!hnRkc~{S>lj&f-){L-b`90v8-S7%gq<
z`5zaO-q44qX7gXlgd}UXvF3Lq;J5!A!J_ys<3`I41_qT*mHDZm@chGaA4L9Ct3#sy
zeOAVcxAeIY&7a<yL^^cZ>3<So^Y^~~Q@7<kUcNINyC=r5Iwa>iMe15+i+*NHL!tY!
zk*8hz9wCP>%}bmb8P6O=_L5!aCZ4pJsUQ`E@9~OQE+$Hdk>|=+w+=`@-wR$roY|4B
z`8A0l?;#_<`cT2=&!4Rt&(HIuC?{$j#y?{lfgl>PAd%hzIIVjjU@b;8W5^^)rb+qA
z0En^L`8h<C(XhD4hPqA#T3K0DNgc(<))0+1lHm{RWUEt5#4o{@l!%w7?bRRF;`fk%
z=V2u~^=`O3_J)5<)XJRz4j8mAoPUW8_3AG<g!rvpMJx2Gzb@LeqrlaTu@iYLL2-R;
zN)S*l=qt0F{wO2Qef^@NHps5HkvATwv<PqM&7S8`3|&4}C`D9SPW@Di+jLB~`2IiU
zA817vUJ*<W5~t!{rUyjR8~ot8y3nPF%ObNE(5U^Ioo3Zc&eG%>YRy(ayV-z#xjt6u
zNMvLrat;|aD}8QyBnkKTY}P!#Wr(^kJKm6_BdTTfiCyy2C8`X6TLd5qDy4#)w-kq@
zqR7%rH$gKzd+{P3IX)K2XSb+Z-e!Qf-nsH_R7`50eOK}N!R3~8(}P%g0@W<{S!Ktk
z&^fk&KBDt#N^MhlQhZh4R8(wCHSUM~ixj4VCBQ04jAmJ9<5ZHUfN2#>yd=_AJ&X6i
zl`kB>-K6n}c$G9W<G|}QVMGu?$qqz@C>$)DAI^QqQ@Zf$11)uV5x;Nsjy(Rg(7iA{
z0qLG=e8Icz{cRc<F)=ZTvP`yAs~*YFN!&}B#PMp8`JayMx4cff&ZVWhB6WM&ozfn4
zK`yA-Omk+94?vp4@!M-R{S)JIs+p;&sYy8yfHmOs6zVS#eUF#H8+Ce$46YMDN_^Yl
zd(WQjNOhSVdpsayJMhdHJ>|POVztJZ8y{>xD2;4=o9YPI@pvHaeyICWlX?dp?Da)=
zOP7(nao<VzOVPaF_1M1*`ko$sBm0^0<n?tGBC*$p$|RUfJLh~A{JV?mx=OqsvONt6
zG1KHynYG(UB3)I!n6(#AUkYt-lHbdhd*o5nBGK;3A#S=$A9_njFE33OCiMFqQ6X>?
zGXMRLIb5p&LA$8jqSPdvq+qigGFQNn@A`>31F`bU0RaKgNN<u9bVj=}W~u_f7iiQW
z2jAGS|FC>h*9ut?tc4RQB0D);?BPG^1;^6`{@JjhA;;Eq=xg%+_(?H!z!IWO!{_xA
z?N*1Cqoboqd!FMLjhT^xd9$V=JK+4myyA4A2QB+H+rA;+W10@<gsB`KCVTxg%;eP7
zgTO&eqU!!8gQW6FB*oR|PiT4oC>~5Vsws-=<kc-+2UtSJ#Q;L!7l@fUkSlz8r5n?4
zw4Cg+q<gfAny7Ue+>h^fuJWF~P<LhE?D+3y75<#RfAsfHPqCGWcb{Ss#3L)1A3jZR
z!vwNYS67e80f%%=rcC$TSnfzcY7}?w&y+)A^2NL%bCZMOJljZgqrJiA<wJIHxY3-s
zfw)!v3D<A<uHSw@^;6rOJFD}->NFz~u{dD4daSZ-uzeS2x*r7zSVs|@aB*?*{gS8t
z{!!p!jg}T>iEl>Q`EHf{-7eP_-wbM{deEsUPK6sVu5fa3w%R>|l1rd9w229~Zmq;$
z?-8)NfYv6Xyd9;=ZF^#;&k<2k9Tenrsvm_CW?UE5PwYvN>hkhhFS;Wqu6^86Qc`la
zU{&>PY^Pm%3k9W*Sj_#}lJz`0tN;ohbSW!pcM4HCDke(}Qu|97be^$oVi9?<c^Ao}
zob{jldt1+%Wwszo)#S9jAwNCP`>XQ<D`&3lpz?UT^T@@c8A!Fe$h}pkM<z7xvF_gT
z`8=)gwV_Ph;?B$#t>GMl>W~`^w!j6)#2nowhFTgWj@u5@Kd?Jg`h2<Adc2Zf{PYe|
z&v%PcK5b_Fl+S28cE7!z)xy-dlm0dEg7O}XjO&M0_H=r&D*{WN<TItFQ8NvznL~T9
zbUu{^ycB6&-7o?49o1GL?gtOb1nn5jTAFJtRM+3lXL1ewq}s6UJt;@?{OKML=ebIa
z$l3e0Ci3(a?FnPu@tVo>$&9bUlkQ^cCO|>Y9W*4;lMA%%8$JUD5g3CkkG+#-)+QJk
z9qpO+)3#A7+Ib|uabyAfr0cKuG;<$VmR{lM9zu2nk5Gd=9S_Jr?K|F*X`acf{TAFZ
zx%P7)uaxlfE-<7Z{!OUyf$7(gfh7H$r<x4&2f$$Y5J-!F$Oy41C!-HUr9x-7W>KlF
zQNf#F><vR*m4TKN<mD+H?Joff>Ihlj<c;P-;3WWI20#QYjXrY!fzMje$SD0bdhfi~
zX<l9hB)<5>f;kgHTe!z)MliC^{QT&~oGQizLb=T{HE_8Z5n<i)*nV6pmtTPdE;q}J
zLy@K~gXoB>A5|7|InSf#Gd0{6hdxIItaMUh;gS<*I1YR^fwV&0=8VD2@c)=|2N1*C
zO=o^}Qtb#b1_esV#3U97D?xOjla}DF-#Ha5j7gE@#l-H>b(H%Zv0YxAJ_1bzTUU9c
zJ%5$R#avLe#7d!u{gTDrkJShO8o(2ep_$!LMi8kUwony*gg+9I2ky2-+sJ_j05<a_
zh<2^0gPx3fX>N;7!t*~<2S5lA4AA%Q*N{rip-@I3PcXhcsF|g^UYw~XMh_uDP2T;}
zZi2|F_*g=<={OGZw+=*U4A5$StrWKs*24A^d%&Un`_FUd{knD1yq(GB^sO6u7pp@p
z%&pNw1I+LleBMcxKYR8jK|I<HH7hm5so=^RL1;^H_Sp!gUwOZB)2`ze2#iaiQ0m`a
zJr6qM*bm#36n8U}LS-<$Y-?O+uCcW+^>o?@CU`o4y^=&?pfz25f_H=weI?b|opzr_
zj!n#@n(r=NF{GnOwP7eZV*+~~WP#J+L(v>uytQV-O6DYnSc^1q*CuRtF<+(_orNw2
z>g@@n0G5o`$2g>dxu5AJq-dGf*4D<GevTkNEmG$vk$Se}w;td38tfr8>C-ayQjziq
z(y1AOfqtTM8yF?+3RgTcR$&q=FE4L|6$(Sj0N0^I>x=^tkk8Rq&$OMaX5LOi%X|VL
zgi}czwJG1<GF!73gyy=e_B(g(c;tt2%so!02n+XCy&UBC$0G_HYRQ~`7^&(g+BaU3
znpq4wSb5k9ToyxZa<`3OzJKs3OI?Wy<m~p5obj=-cq@WC`czrT$KT<S+L41tKa|Q`
z-L6m2pr0x#cmda@G^zn{(3xUmsq3$Nd9Y;g=x`JN)uPpfqca)-Jf&#z4=V3j(kA$d
zot`|UKbzAlS{=F{o)z^5<1co?-=bKqT~K7<*LhQIH#fI;r&=;@n6d>j3p+gv0?he*
zf9w8pf*ELIcUuVGywkm~zVRfZo-|6LQX{yB&uC~9Jh_~HQ=RFp$m2KAm9SVaB4vD^
zet+6;(fY{nViQ`USNb2?dfyl&sRdN%b9Nv}y(yJfMn9cN&Aj?yZK(deO^gP9>!}}7
zAq6R;C#)7bnn<v!<GD8d^23um7=g;j5)#MIw-_K#^d$DVOnrN(=xkFPL3SG?dZbzO
z+pg5@CbaG4)ZPtt@fW*JU%L3{Dd662a;aJ7_**{GnffQ+@;w~fl9QXRpDjFfZvbM{
z`j}3RPiZ$=sBt$Hc5Ta}NTZ`(XfGdWdgay|Xz0SFGv+;vTEsAxWBB=br*(d(^sj=M
zF7LD5Z&Z>(EKf0QoqbUqu>IgARi225h}Esk?o6A-C0d?`glL;Ip_x1N-SxZq{U?C6
zs`^nf!3Mxl+tU&O>-}R5>!M_+3t)}+{&-qpTK`6l<0@1?Mt-xj@_4P>livy$g&f{K
zxdz5HNItaCP>8_4*$Y2v!q2z6OZguiWh^VYyWxCdACx5@)uWyF!}r<l5IviRD&{ur
z$J1W6K=cA81${%U@3j%C8?zG66j?6aF%5n=T5wNfd13qjE9+}TCakEo`)M>DTgFc2
zq3&;OyC>mlhLkHt*(GRW^v>#uk@cPZF$1%D4+>3dX1yYhf)^Grbwz6`QgOn(y;b5k
z+VZo@Yn>0UXWnR`PtF3fL^e%*oB!ZnFTfHyl=A!#UGu!rdrBRM_zJDd`qIB7UuTMk
zIt|3UvSnvud%j=X_gU=0XRFQiuaB=0r0$#C6CGCei3lmq5%YE1Nu(+U5OG_o#Uw8}
zC+;8^EG0upNv}YNRRUJu@8eOF4%r3g<q4%Cpq@T?a@B7h=){$()GC#%lBDg{h>Od3
zT=;m$jvdbliXJ7ff=STk<M*B(LT_y~%M@^)idW0EOMrTMTd4z!>q_lzdgbrslzS=o
zWaSGH*Ji{0E(kvD9vzp_i`EM>mfcp_J|8-dLB&1}xjC)3WytR7%a>ZQAr=Q5BE#C5
zLS4old@3(L4vYcDCl%efb%T<Mnm+we)o<1;cgC%K*)m&(8mtomY<jyNiE=eMxNr9S
zu)E^zHFHJxwVRoYmVkGIksyQ7Kp{yygyePi?p*`4T?XGjK2g3-aBtOuBD3GO$4NUm
z<sh(oAM&>!LxD;6eT^Fqgv6%a1Hm~&eo{K{cu7zPbolKoEauwILwwfg&WKy6>py|^
z;v}Lnqa2-8s-iHGAawy!*@uw~=a68HOtVcpA0-v%8eZ-M6y${t_Y^|(i%Zc&&I2Q6
zfap~Y#2%g#S{CYld@aX*#0*u)6p|=$#gNag>FWo=YVf>0-x<#+?|$(%-%}jw;%GH|
z*v3Kh&Mvn4@DR5}6@+v-%vU{LmM->icOdAQA|_F{R>6!tn>`5}G~4CP{h3hG07O?M
z9(io>LbUU1uP#yL8<#S1`=}HtRj(;%mHTanA;Gi}54qVFeNHM;iRnhw;L6@{>!i=2
z!G=k_?n~pLD=NgoD!2MZ3?NGLszw0I0@13@$OMTU_m@SEtztWPkVcrxYvhy>cJCKK
zVRs=8^Xhrou7TP}@AME*Fhu--6}<)rgFa-1s{|99V>e`S;Bp9){N*kSc83p#5!h_a
z;n*p?NIJ>Qw%}F`zzZse=}`JXiN!eGN@qEu7tH-Nnf}3`%qfTA!7F<Ht4Ldn*+8!W
zB_{9Q<&IXkNZ!!$azlN6y?kbj6WD*{{mVh7iKA)<cGId^XKPY96PKtODQENTN7_AX
zolZI|PAXgGwkey7lY0{~+c}gDyjZWD+hztnyqDKM)NSq)$28i^`J>ybss(CM#|_yH
zgmoZj_g;3Nd#aXZBqyQseR{Z!@z_;0ZDFU0V-#rs2iGe1i5l^Q$*8EPAON7*qae)%
zo<4tW6cN^*$&Ql$B^GqD-~nFVIzwU9{fzPi&FoskKqSE3<S0awNFS~tPUS_Rwrj~~
zno&(yeIB;IDo;I{gDd7mD^{&l)t73&^&%j^kiCp85cOa_p)AzmPtcU%e{XAhdR4v<
zsN<NgyDaL6{b3%$SKYBHxGMTg-{q`~Y*oOfgyVcB_3OUQ4?yXquJX9WE)6nwfd8yg
zlV~P7UiC>X_(iTXNu&uB`6*83RXG)a<G8YR<IXF%&fe*uUBjxkMi+8}LPCZ!4a4gC
zH$JaFVvI*dCs}oOw+c2}dI*}9q?R921>3f7uLLK#GLfHtd*16qm!0c7&aVXXTshgO
zWA1lk*8ZsKd~!<q>^TAIKFj>|G}SDh7B|JLA-$U|I#1==i&&uAn3$N{9kf2h<OJx!
zPUbFLNRgM9U+_<Fx(>;8mW5o4TKi$@m#0@s({<|YcrO+b-A5qqhAd0H!f|VB>vTjn
zSsp#1P1zp%nWGSHqOpO`pVX*1eA2S3IOU%90l<_x_5jT;Ywdie$@+{N8su8ss$}J(
z^y*onwMA4!MTa;^+U2&*Er0$jO|*}Ni$ms0;bNPF$3E^~!NLU=ThMeaHZJiW4HvY%
zPuT`jxsBmFp-zB7obc9JC^F0j6m0`~r$nHPm-kpXR!$3r1aN9ZNpa`b8w$gl6UnEQ
zZlV;bPwbbH-odNV2*embt82nvs{*<l+~!+4{DV|nK1*DrC1-=NccHS9K@h#=bDjBh
zHOY}!8((H&4zklo{&an~IBntN%ywVZqOIZ=2WOx>C-j4QVZG9X4uedAkR&Pmj4&5b
zC%{l>M(y0k`ek-|;tj40pjA^RTst9?FHrgIeyZvl8peUbBWzB1--16V*n+O^ZuXe^
z^W7ZteRfFsrp+CEk*Y)sHvuNv6rLR-4KyyZfNC8nTrME^r-=z0TeOseyaF9QJOqRN
z+tYF2fC;=FZb@|^jlF<_YZ6+<N5VgJ-dEK`*H4K6Wco4N7upEW@FTN*VZp_Aq+JV}
zXG){D5C$uKFTq!;Hv%@CRci@fMYDNg{_#7aD+lRKoxi(*;U1H?zUlZ~r+6jmpbVO*
z$!Qa8ftpQgNftHx-#f1uy}kuXUsTZ~DB=3Kb38UbWC?Qj@ZnERN(t&p;P2Bz*0v|>
ziJLY7%qTi6zMjLy@Bv6p{%lfE(X_k^cpm@!r(Lce8|2mWkd4FDEK9#UJ;tHr>B@*s
zd^x|O;=sX!8tcD-<W&68KmPvN!Zr<gpeeRbl7}3<{HmK2&_(cJm3zK_H^RDs@_qr1
zQoqt3;Z`QP^cwX8-He{d;Gv~+Hr)^T=N7xvDRuqzgn)=r9*0x|gV?wr6<2}Odi0Zh
z?bl8VBOq2v1nSCQDWmzuERpIv3YwZP_~2eLb@jJzcZ?=<^Fmt(Gk5G=SO5O{n5S%?
zdaV2e#jLEY`Ha5oCD*1I*MR`kG;yqUFe{ifNOGK=ou!KGI(c379a|7v0|>UDDd{oz
z7V?4oC=otBK32k;PBSIn+3#yn-#NSL;@jx^gs+1VF*VfUyhof;52l9Cxb_029=3uu
z_vJ<PlxyS*lzcj2_oDPl%Co0W_1JlH?MD(3^fL(+offL1*RQu^$e<hg$KheTe5BXp
zZRt;gZu-lus9-l_4zjbaIm$SEQao#MK&7x2y$`{@V4<anz2G$QqtkYiMzZc*g7kX4
z&8)N6E|<^Y*A<!P$Id=@@Sr)%GQ5LjA)?lO)vZzKfwgmI!@?}-SZK-~u{5Gxu8$yZ
zPf$%h2U-j45yzoJUm)V;H*W@_@i7WMq+Zm-yyw`JGw)^#=NgjY`@wl}ecyRRAvo!1
znYw;KJ8n^dvXH^Qf^<p;viKRHr~Cy@CjNegVP%~bhxqwbh{cS1`&JgX<qzYm{c!Ti
zrbY`#C~k^L+QOUm2r7cAse!KgEHu=-MDcjym3-A(uANg0V@#4s)m_E0Y%pN0;ndMC
zc_`(MT+1G#$SvEy;8L~yfb=21kE1Sr)85*!n@q&%EJ~tVtIh0iivtpL9W7x%J$@1q
z#^!6tEqxiJ1VwS;BJU1@5=W5^hy5-ekQY(t2P&oCHr|n0CuDt}E`%xS1n?NM%}Y=b
zPuWmNJ|1c6Z;~qRn4)XJa`FvvzjuazN23m<c{GS0Eh(b<&3VtwZq9*Dr3xu!HCV)i
zeyB=oeU!#79YdhK3qp`)+U6~eEH9aVadKHN4$!`z$riRnRr#8it4s1Px}vR1^~GiR
z$d7k-cc(j!8{|WZiA5TUk`4?*O^re7ChTI`?u(OeT>>|k5vk07$=ZzkzPf}UH<Pp5
zhF>*GR1aSN6q1=dmAz&g!X^UitVI}oh<#)VN2Va4E~u>@+f7;c`T14T64rt*2ikHo
ziH{*9G}wrgi`qjulwwu$t)$x9zEyygi0|(T8GUj;ZpQOCcv)n*8?9M#=xSBKQFV27
zLGiG~nwa+2Mp9`#4qkfkD~DNUT~QlzK5USyssPTYd+@<O*9%mY*Jf}JCet5jWF(Qo
z9>9NBoSNALLXV?$%eddhc<HE1F9&RMZBMP9E7D?KGOMHI*AcEiXDcFN7*L_a@ud3*
z2z*5L05u`l|EQYoVh5VhYd)hK_5<~Y2P+mhGh4T%wS$I`L7_`AySV9Y(rP8k5iPO_
z!DIJ4<RLOV8zD7nj|&yHuFkE@b&z;Mm{2ACI7BK4N<F7%6q<j=l6!TCFyYi<C$qTC
zyzc1!%o{>E&wRZtry*$bi3M^p!G;A*G1(RK$_>qaAgkTkkCu9?uOOPl4P<$g%a#5u
zpeOi-k^*8ul|XH^g)oSIP+G@z((m5JU10!_#=!EDWOB0Gmcx%MUW#_M8dU31Qx9ss
zP0?3M;a5i*5Hfe&JQaQob*E1X=?xp5W3iiM`K?oJt|nLIbDr+Jcu_E=u<j9T98s`u
zwB;y45V4i0(6+ARqj>o~qPRCo0%`{E4VkZtwkYmV>*aQz^`5+KMTScV*dVptS(`>r
z3o!L{+F*IzRNTfJ^J7e=ezQ&r3z?N2kA9FyFSrRfif<<rEX8_{aVDL&LPE|iE?6Pz
zbEDUJMFLSVVBK1FR~&_skNO-kHPT`JP-(y}H$l~)>cy^%$*9OkwL11P<%tqro-IG^
z8jS>4LdW6H-S#%b;$V@~l*{4SyQQfCv4$f`I(TzZ8MCvrd<}ySWQPG1$G1)_PRyny
zpA<jY(~f{4DGi$9tG^jdC}o+C1AYqRLKPuj>^|n?)<3EbW|ng6;4`nXPEIa!pBlo_
zOs*wz9;m6p3i`4-kV5jAE8&iM7qt20j(a?%l7|ehU2}NI+Ana);H_)l<x>QUMwify
zRV6kJ+w!MEUE;R*_WTrI6LV-QV&x#=l2%hwqYh;g^#&AG1(Ru36?n68gfttSR^9Ek
z6><xXC1qt5C_MeU`<wQ2(u?p{7t$2mn;6}J4SIqw`ciF1ZI4pWGl7dc!l_fB2~7)T
zUyU!Xb%oN+JGA9%mZq4FmorpX@BgCOP4{r{w-4<$d%w`~NtJs%g&$buhibr{uhklX
zFM~Zsx=c2$WvT~4#NcF<!=Y_46SPivgywjJ$54M$qi`SX{|Ik+&-;43Mw~_IP~zA+
zo0cW4b3AuBAt>UX<Isc=;0d5pJAb!OnNa+pYE~w%GOvk)qM{uGH=6)^$Em@Y@nMSs
z;<pU<C0+e+FVZP7Q9WH!zUB)(IM2<hjZh)?#vIB99AqZwK@iDuP<fOhCFurLVasyr
zdT@}9&h=(2TCbQKFY{{ul^p{=5HQ8(33^aCE8ZdRBY4U+Ki{LfzVR@y5oy(<MXgoJ
z0kxkfSh$EZyCHRu*cvT8mo0?~N^ea`&#WEXdJ6i<kwE3K49Dt__SZh5{ZfCQ=l*({
zt8}6cZ=d%)W_bMuYU$EgK%wf0JG?K)Il1qSEUceC$#9UyEO#j5Rm(TWMCI>h4^(Gb
zg_fCrwr2Ah&01s#guU;#QLpO}4n04KCL{(zJ|0#uxW+U9l~)fMDMIdV<^ijFGNAzW
zoiMCoB47L@s^k8sh%TT{>)3l{)jol=3vWJ%DcU_Tc|@;sdU15&b<R=yTNhF*RciDS
zj%%9>B@MnGezTIax0b`ObbSxCz}4B*Cl!w-4wZ&gbjMY2yV{pUFG)+Mxp9UbyLzjk
z`!Gc)bmLHy5yvOqvt1*0XUKv!KOSqt6!2?xbl8lSvl!tIpej_k?&33f)?jV(@iFUF
zZ`RhZQ2}vz_=cUPhi~Lhr;m7hO0J9KDZrwVFOvOHAZL$)DVTsE%>*zC{=;TP3iMUT
z2=UV)pV}!sgfH6k)J>wH))rRV@XtT-$pTUb+@!{&zpQrJ63hm_M{|%i3M~LKcg&%h
zT|ZU`hm6APmRRpn-R=pTIHpkzYKV|)$rnW<p8d4c6r#Rjb6prMyLqxC>2LGrY53@K
z7qcciVOu*gTAQLTmBeZUb&b!m>q63M6>{m$q=V@+^E|}?L>~QWP@UuDzWN{i`~F=m
zU0PfLjlZ~;&<=_dxH`LC*Kg8VicFRRjTBMaZ8^WK3Of<*i_#!7SdojVsrDn<1dQ{f
zWl=`Imw`RlTb$3<<}{c<o#3q&>gKCTB$Nwk5ZCZomYA%>{3&(Qz`}(dZUp5owW=Yz
z!9c^1<aTi@_t49D#s#Rg+UL_9pwsOJw>K&B^|qbx#kfia-#<_L^p4fe7F<w@4K3b(
z`uzC>`Y?&(6ha0H7k_jTiVHt@8Rcvk8m+&7+&T_`9t=pZi%ifj+O}{;b;OEO9MPIr
zqLY($b1P6P?Y9X+xCDbl4}|+Z5Y1PKp(ZvTFXc0Mh<^SlxEIw1i8@MHi>e88t#UTx
z!{<E}0U9m9k(EdXpP?-h*fg(86eAEZIVZ1wy;3QPxLV#bzf83DaaBZ{*gMf*N6n#S
zI&}q-qG9D_(6xqDFAgg`>MLl=bF>cZ3t%6H2(+8r3sb?gfar@*Yc`^gwn9hmy-h1}
zjJQMOQCzh8IMF>r>#l^8OCODJ{E!5h%mdYiQ%MIRN`iGaO2IJ{nvtB5+!2wu0^-iD
z85%O`d5H`XcMOss_()P-E#PS#2R}qP`AH@LtKuNg{;mX70eEIO)QvW493ug0eGk~`
zU`mls2K`kRREQ+zF+Wtv-*JK>4L2xQt`!wInp^~L#-`RML#Q}h3dciG#h(Sa6HQ?O
z<UImZ!g|3|x?_(5P!10)LeqjvC(T+_V?*+tr=9#9d;C;B!+@7Cga9CDvtDoRf@4S)
ze1OJVAFwl7DyI43UCw)?FpZPqUkT<Ax55wfd5q|ql@h<Fy8>K^QDVS72f_m_02b8t
z5~c`#Q-pwqY89wn&zgN@?+h-iFFVOFE@a@Ur6DC~@y(;LgV4PzP2CA&JZ#ty_pJt-
z$KVGMyT({m);INT741%P6rzOHkJd1F|LM~$v4+sO^nKfQ>Zxa%-OzTM)hFIW#NJad
zGg{(pW|^O=s!qZSzzgU(El5l7zf-Cp@&F&HOU8iS0=5H+*@MSRpNq4&)_cWaVF~)a
zw9{gzo>!tJ(bTKVhtIt5zNU#g&7?X4M-aiP)`)=uV{ACH9Gm_wy3E4D-0reR{NSoV
zTE7R_i)!V$TL=5G{gEkn{v9j56`j*&M(Pn1Mt-(}FAboIN1>@z4#WoWi;X@yR54!D
zyP+?cz6#`;4<mn-V53k=B#Crk)%x}gph8-tt*la1R&hNGNGh#{1ga7x2t}!%H%fL}
zUg^#{6c~A1dj6?U$KG9Wtq_5CoS+AVCFZkptJQ76XRDKVN}>Mpe_!NrowEtGRgA*l
zbk4un|2jSy`Lmp&Q|v_u=#k}RWn}?^r9M2pFb!_ZNkkL|V@g5;%)!#U{GcWVOz2cB
zDF?p9;bBr~X+mJ0Q;73P`ko#QNd}Jx+m&^w55>^&rF8+7<xmLPoKStq12U`f@w58u
zwMssvUP&UD*o6JR8&t3QPP<$J2Cw9@FQHR;jzv)$5uN|Zn<Th2m05T<j|B~tjDbN^
z$Bp%Dn!r05*<X<Y<BylDU%CPYS~Y608usn|DVzGbtu<1vJx~%q)JW1RYV7?b9V@v!
z+rsj*Cnlcfx4DEPU8Ym=S3Be-{q`v6sMY4KusHD&CPd?0k+~n?<J(|TJdSO%(b3(!
zDW$|*GsHa<<oupFU*A_})@$qSt7D!#IygdyjfTM@Y@91Y;(Ar)!Q8EVXHFG%D=Lm=
z5Q^eY+f^i4<&8BKHv#Bl2-*si;T^?xNc^7;hSozPk*dta1)$XFI0|c>rnI}w56Lh0
zS)76tpU3P!2}@}Vh#t2=vb1zPIIui3<Bb6z;nipxejOAM(IzH<CSS#t54*Tm>B~_)
zJCNGMA)-vopLu-t_FA<}RtB)GXlEmtjp`$%7}}tmyEWQE@Ha(r)$Zn>bGjli`qg=l
zpv@OFBVl;YY(grEb~7lJn4RounQr_>U(P^3o!0Q=5rZf8*+l55?d@z-h=hKaE@m_f
z3mqWwf1jSJC#<;kt(M~N2(d64WG4;Nc3U(ugaQ1^b1zT12a12>A2?e3pI#Oj%_T&v
z3FI}$wq_lx`@Z;eVqG@oEFmMxBg@jBGPu6CQ_#IAxw6FTQ4>13q^mbq2A;AEv(>QP
z3n)#kjg(SC^CCa4+hYxrS3ciSpT658E7uzae^40hSh|wr<$w_qxbq|aX^^9Tef{z$
zn%ho<#R@J^mWi7x1Qj+63ksfir9mBRr}3V)b5Ei0;+AQy=az&?q=}3B?0o%OV_3kA
z5{!^Ob6K|Pi53?+VVZrm`G?~muBy>0xczwT`B%6d+Q_?a1jWdp{MliHcOENxy^bUj
zk|6ZGU}7uXTtySKi`QT#|8BJcWa>cJ(RLlX;*mX8enbX&JVrSoh)7EP?fJQm5Y_X{
zDvlhkXT}C6pef<OsY^3fc>4J9x9LWE<R66WenLrtGHd|OsUK3i<4}5I{MD_5eD>H`
z`cCuh%&)-Ol?s=I_2F2(I`jyX!gyxkBIgfIBfkV1^JFi#swc8SF7NNG-~Jh9aKbnx
zgDx#Tgjq$))~_EecOY!jP_QH<Y(pS12~D?JM?u4*epyZV3`?4%ALg12sPSr1h#ulT
zG3sHBVWB{fe(ITlYjYE_fuY1Gj^LjX1Tl1|R|oP*FSA7kI86o|U?qszm790ffQj1w
z2}avf-=-Wli@((^@p?S<iKwn@fk??~_SC+<CIn;kdUZQspD2v4MPWwifQU%@3A5I(
z8}|s-e|~v7Q@X4U9b_e84~BY4tSR}@rIX0$ym%`Q!gwO5@&tt-#=PoB;cEyMah-b(
zkQf9`7zv(**L}%lFm*idM$W5O?+o{#*c)J6Bno#Bg+_zO?I%pBpNUVy<kivd-FtuQ
zJFUIgqJRxIX_ya<XMiZH6dM1`OXT+`Ak*L12pw`G<H^rNAIdtE1f;%%p%l1rV5&Mi
zo<e7A{p{y^#(|1DAo0(T)Aib2#%1aNH4&N{5SF@_ra~$>LEH&Zka2SxzMdD57j`)B
zNN}uY2T@ddQ>#UIQOQrDFC#7$!bK6Vp8IIi?FE;TN$j^kG$uhu60?em%gTb`cdr9E
zJq||N(?-Up1aWpDQ8>r4TZ|X%D+Wqe5qJW|w0^$Uhup6xzH!=#G`l<zr24GyuzxY;
z0LO7chV7{(<&`8^Im^<W+a>qyB*}`D?qol3AQpTYO2OppmKY;q+6Bz2UvO|7xR^nt
zwug2Sq_FSkSe0p)P?(*CcWxnZ*})4#n5~e^`JAV&PyVRc-^{v#wD+D7$z$DV7{(x|
zv6CA$t!18tAFhNC3?YDtNTouzMTy~+4B1#|wex55CTgYReAkjV0ss)fws(V@a*JH3
zVJ2BvhS6}7E_}t)wm}}0;uts_3=d(?eXpH*gcq8ye}aIMN6dh{AFy7KB{2jbCgM=c
zAY=&we!@kwXXr8Mm3&rzR4~!dLE_>4@wJZN9WVjyu}-7VEuZZ$Cuf2@n|<c>rm(E6
zQ<y+O+Xn}?8k&-LF)IcSHaK_GX&wKW{_udbR~hhB9^r*pNtl@LSQcsSB$2MfY#Snx
zzMaeb?SO)t^4b2wDZrNU%Z;gqmkGXB?*7^{`j|C6hO0i>e3f)267;0A<*K8kSI7U{
zCXzCH%n$#9@+)8nDG}h}VZIh4JgHcBjP)_}eEjVmKBLC7_P-9D|F39V{=YpP|AwPx
zGpX|lTvr)6zXyEidX~VNF=jYDV0VdCNlM(C`O^GfF906dE<GFQg}SW%9w28~$%NbS
z(<fGX-O(eM<RC0XY=Edey}jF{*u6^(QV+w0Mfq+c=ob(mezdqt1p$PFe1MGVTV7p#
z(0^SSq={`AIauy<7cn6NW6=j?6_8|5Za!$6JAS=>Qg?K_ccsBoo_nf7*qOw~Ad#vH
z;a}h$Jj}(#HITd`^t}8;b$IzU?>;{M<~}+7hwROLPx>Z9RhRZ733`?ESZ%FXRsm;`
zG<8lto2nG03a3Y8cEN?y^q7gZxN`r`AU}z8UyjY;uT_1o*pvUu!Tmqp^8fdIv!b67
z%@(fGo%;Iv#!!UkrdrI?F|m#3^m{S^8fEC?fsgQIBK{}QI{g4-%0c0sZ0T51Cb;Jv
zEG#;&XZESVf<?SMyzACH{icN-t?kfxSAKcKF892;8`NbuLZb7^%^`<?-Khh{Av7b1
zROy<@7gNmsyqUz1w87y1J$OFBFkOOnT;F0|m_ST*eb-0m#o;S;<U6==0}MVte~o6)
z6h@)B5^lHGn5>gaLZhDD<#ny??@!}0W01Zztx`DWhbk1QVU~R{K-200VF(*bAx4WT
zdI(|l#Fcj><X#Sh4<K!0mSs0?DG8oU!c4F4dxQd1`umlYrFCq5``Gc)AE+2l*)a7K
zUB3WUy`M1Bvl*9o(fLLFdm~vtw&$S?f-rc@hJ^FQknosEP~e`>Fdq0DQXbwS@14=I
zk>z0}MpV1{8)FuT%@}>?fBivkkki6APoLJPb>Egyz{bu_rVw6TtL%jXru)^VVfu}O
zA7u7LBdpDfaFx&=j*@jKl|@Q^+n~XGvc=u)_Fn(x``+HEOYHu&$zQK$NN$(XZ|3%6
z_1E?5<mFHf)Wt;jL3);0#h7gks$SKv%ju=kM8nH-bT|}_0)!QJ?MF{^=_r=qs!h#7
z2N*WkVsO`P6%Gf4+RW@fu5Y)X=EGVGYO}R34|M`gO3xh%Y8PYM$M({9+%L&2-v)A<
zDS771(Sohs=EYsXl?MCiS?-tc>y9QIFTuo#tTuz|txQS3FfCaj<wR~6OM<3;mh7s`
zxoI(Y%+#r#njh9EtUYo>fw&61{F*L?eoIh_^JfEi({rnU*@w&_`So72Gk>e?quqRx
zM3XL%1cFl#joU}dH3~3r9`U!JG7ctVu%JS+NW~xhY<YRPm&wu2Ekld_hc%O7^de@?
z5MQ7-)=RzY@e2y#AQyKXq=&g}Q_S{FmX?-a^I82#$){dkdWnM@Ot73M2hE-Iy-GSQ
zejuca_l<ONVA;_4|IU4M>9&LetY7!=p+mBm;rcqjwbX+9wGh#oSl<plMuOtDG;3I>
z_ibsS?lL6;7-OG_tq#T-R`i7ewo50k(e+7=5_aAxu92p9weZ3v{pNcT#oLC4cuQ5g
zH;JA0*DZZ6x!rq5+hUgh{k62|4aqaTj*Cgs$r3N>kiz`SZGI|KRa?#M74=5*Ou3rp
zao)&YCayW26$JTWnd!?U(3MKyQ8qGvn~g$b41}BCFRr=O=E$|fS>2n-wZyhFansfg
z0T@3>Hi4bzzxl=_HX`td)C^Zr)FY8O3EV%$>z=R!jKV!Of&}jk{;#k;1^za<B<=i(
zKG9_XqS^cXI<uGI^UgfTi32T}Nt5kEc2X3=<PIA`#oRK8rC1<j?FwqFk`!D+VIi(l
zYOdhI&~`q`>*Y78mms{c)sys(SbJ>*U8|BL{@wjsJ|YqMEr=Qwk1tD!yogW*doekj
zJ7R(ZBw*-$2nr#RXq>ciY~<i;aS_?esrV%R?*hCl8N5aQbpYai)e8Z-*l>Ka69zmc
zz^2^ElScd70LXd2e$$^@Al*FnAJD*mf7t1N=n*u3FXKNo(exjI!LQ}7x#KfYu?x%H
zBPVVc9hQ3SbMCC*zALXi_UX&5-m&xDnq3^neOt0_-tsu!RWxRC{-)dxrVBgYZ4x`{
zrn_R7LF=nqvNt*Q(>-2!+wNWoMhiG)o-QnX3;y~g;zlhaWkXV5ca3Lbt8?{iYn?`O
zfwL88P~vq(e)YfS^!)EH|DRcsnocg#sm8U5iz;8|s(w(b2bcH90P+y8=d`^4LY;RJ
z>;4z`GVFsE$wv;y_IzkgQBPns=HDqNSGcrkUu*hKR!ZVcbr;@Pdhe31S@WzUZi<Pe
zx0hEKJxjc@X>t9wVN1)7O!=9zyXqWC?1F-Vx+YgO-IS*K-blov=-*Sv?QXpA&N<}1
z@8-(r<BCIT_ft&PE3;{>N}n;X;iUIw*G<Had{Q-1?QDBNlJkj8p{%!gXJX{_$Ggbs
z7cO3ule*KmjXW)tWeRY3Y^7-Bi-YKcOjI>cIzw1&9$x3)iA*;B`Os#2PO<wDrmyHb
zd}7%lqSAX`#4y#*Mh0^F32;V~H<25?OTsX(PNsb5d_~Wa{><MW{ot|d#HYldX|K1U
zk86lUO(RplT7VrB;}jeh4?>GVmM4=RV9NXwr-+FF6qBze5Ygq(Jf4^Lo_EH6f0tdn
z`+x5@JnH{%CmUi*zvi_VDlDSfi)Ff99b`Q7V|3(CzJGFa*Z)5v0E@7<6&qwNEwg5%
zUR_<CEvBYv>X$%p5&W={!)F{NVS~{?n)<)Rh@|;zMG~6;lP|}fMwrq(TI{kl{W3<Z
zvR9h@dnOy#j0gXL17Z~c+|#*)Ap`dQS4Zi+F%QaOBMOSMZWDj&mWf#+dE#YplKL&-
z0?2o^7|<xt*w1Eerz?^Di+7IE$LOuW;ZGR5)FbOoasGLa$Nlr~G;V@J{{ia(4!Tmr
z+)!4<zq8TY3=6yS=+tly3>$icvni@a8%zcvPdA7z&t6`{h?v5;bGPIb6dH2v%|Td1
zHQ)HRXF0a@*PJEnGqA>9qSS-tGRe%uQ6$xN&=Fy2AbLGaA}V9v>U!khye}jah3Y0u
z`W_G-E#BUcSR;W{axYEc<ig3=N(-+)`K!P_JS?op&Gm_*_g0^RwQ&u*dAhgl*(1X#
zf@winZ(96)r9n773wQvz1jAE14^vDYJbb8xnY1FUdl4UF2@tBfI?v4ogwk(wT^vkH
zXEO<q{%|MHIb&mEjDS8a(XD|w2`0V+gvJ6qT@#m75R1VN<*%14Et3gnm%UCz<;u+$
zg`e0xeE%o6R!uweBZ1S0hFg28yM)tsyeZ)~8GT5kd7ty|2Fsu%9U@K)Nm4$IkLl6&
z#%Wl@cpQ)|G5v*(pcZWNZy(7J;TIaY{tOHm4!l#2yA-}l>9S&dQpE-FW<Hb&qVAk#
z8EKP<Em`N{d(K<k#k*Mj_qkpS>9QNrFUWH0FDKx0PpPbPaQ%w258!&?4z7$sBX}o1
z6ekiK!t@wCqH|ypk8E@Zbso<Cr$x}=*Q@spO4XR+-DDgMwFvd@UdFCVPi!{TcLmF(
zvmH24uABU^-{#)p+`bt4{X1<pf&F`o=-rGV%i_l;Z(mJT6>@)v$+QM&k}*B;>evhD
z7(XaWDJniA#&|4=%5pFL-(n)j%Z2Vdoc^U+I~xu%peV}Ahe4E6s8CDCY=k=eUh6bC
zd3bnYVepnPv2-^_Or8pu*`7*E*n8Px+?SU^EO->Ta(^BtKcTbu8?nb|R<@^NID&8>
zQtB}T`FNTbfFzH7Hu@9qB#+pA--IiO(<N$a<@q3|B0T;v*1<T;7aVHGP6ivxI`kK-
zzMJ**m_CZ`;R)L&W}z&}vLqN$V3(~&Bd%elgZVQkK{s$9#bxw+X?>GjUAo{i`r&@@
zW7ERfT{!;e_$!!Xe!m#DF{dbt;XT-4Y-FJSm|B5L(F&MF#=LnCaljaHatRJ`m~?i7
zg`m`T52NP$zwhNTTAim4ol=Zq1H}N8L1Oa|rd*8BBoLv43s1*gf+r*-QIoo;hs4Ms
zaV7@6cVx5c-?hp5wdI$8O`*H{<Vc6;D{FW&5?~>mZ|nFoSSO1ci#K!p`-$J~^8GIW
z!2TzIKmy}&ZCus3bmY3Lq0JyeM!}!u@{ra2FTK_C9V`ANUH|u&e*)zHBkQ1OleNKv
z2SO;r@V2}Q^1}69i~!(@0N@uXJLu@>rUtzu)P1f@@Tn$H@9$zT8RZld3{rQwAEAz;
zH{bLuXD#E9$KXmaAmA9e@O#8xqRPD6yE?D$0eEDKfN$)Sf!DvwLAc2SZ||odqZ8li
z=&&{Dt`-qz5F<WFInGaATHd>^Kf-@`I~`pl<V#s^vI$1eFkX8veQ1e)2jm6K<3is!
z4<CL4`%aFUVi#n~POkS-Yz^l*3*@}b#TvFTG9K|R*%wgp?={!+Wx21%89Z0_FnE`o
z<8&ixp`XnGkM)L}a&mI@UAG%dBI#Me!o!6-uNoU4PM>*G0s<}F|M~Ohj~{Lz0)8FM
zhsJL=zzt#qHVGwsciV}-+2Pg353Aad?clv52D#-xlBOF}?uMs5Joj(5@z@a3xncya
z=V7(5t7t`VR+J}K!Hh0M7~(Kg-kj5ae^%C&UCh6T(R0E;elXO9@FkNe(Cgn|F8&SV
zoE&(>F;aOlJQqt#ygWAeb^<v;t7$_iZ+?6A_So3i2@Dqy=gm+iz_oDj@hM^Eu>9l4
zb@O#af3N6WeAxN6_n24-BfOtYhM~m3_5=pNOdzuVHrv(J(J?Z{9Sm_e2W+JP>-RaW
z&BO<uF>E(B7DK^XXTKgMk7tiRf15;8r%s%J0^%_Z#xBCkPmDt2G&90HhWYUrC|<<z
zLOm9zs+81-AA{Ewb=J`LgHjl&Al8(I+2IVl6l3w9=5aaws45D$6oQ~8=3`<Z|D2K}
zj<WICQ1mW+`5*iBN|c%eoh&Kfn0+r(cjcLJ1xTTi=XCp?2ISeFM3V@!iwvGF&bG`#
zQHVy@W{k5X`f~oBvrIa6*P8wpydR3hFfanN9tHwVoN`5Z_Wb#qLQHfEV)zm2S2)Ht
zi20EKHat_pWqCv;QAkDq?<qYV#&=G9gM>MUIbq@`IDAb16LIDmKo~YMZm1S=RwT?&
z4{<CT`cX;*WEx>;ti*wW(Jyf@3+uE0@}myly|$?xRGTpld2oV?Zu8>{YxQ7qaxy{O
zV-AEC`$~*1!}7x>euoSk6uQIf_`lDyej}{|&BmRtpdC8r6USK)&RJr@9@{Xs{!&vn
zMhai^{k`UQv+sU+Oyju8XhUaA$~*l`E+a-kUNt-6ppu6ie=9zz>hwLDJc6zdfj0+F
zTmmz84JL#jxK`<J_>uZp5dH88ebP<d+4h$jCVe|9C&n+4_3zK=yVuF<z#jAF&BxR|
z3=D=}lYc*cJW8EiBDXP4mro2C<8Xr*xPvllyWt5O7FfdE_{kimzu$Sv9Q%R`Cx)gj
zVilB}7H~+;w<esK^5`KK4qo{Es?xyKF3*&S3bnw}r5{-aj9rzQ56^P=9}NHQAWl*x
zoah+g6qye2_vgSwJ_hoLgBd}bLSM7RdBr9$Hj8xJ9k9yAvCoEtIT#edkLFwbj7!8^
zJ`CE03uE3LdUI1lM}Q=WqtNo(!LDKl($UkeZA~gXx#FF~y`=ZK7%`}}0|RhG7-rAr
zkRjr1EU|#!O@YT{*hp$0i7veX_$q8IfVG&2@a9y*M~#D+7Qq=M<9VxWp?`wy9{riA
zdNfGHHHSFvmoP6EE-#K?K=W%sr;f34%uhS#yJa|5IJ8W$r}a$BYSMnJ>NMup3QsaC
zIgW#r>C67TKzF=wmLd#14G`vWU+t!$5MPLF1-L}?AMj7q!7&B47zYyIl)YD&fRQJz
zue!q-v*KZZ%Rd0;HaXCn+s>~gX*z5SeeYazk>M~m_hpLB+=OvSX{oY<OH<)Bz_Fcw
zvIVIp9x5@2W#TN8#^U{CLidIl7N!6kK?#v(q={kAo&-#2y@5(hoDEi;fjWSXiU1ZD
zhqNq@_=wX~v7HzDg=a@Myp6Q?(7omCB!I(^q1M(`$wwWS{V<%ztR~Ojcq!k7k#@Fz
z3@shaGzU*ii6C5EYvOP2gky!x7-s{nc&YNT;N_)gTn2u1=;5#tP7JS3df4#eh&g!Y
zWMT18z<;nyCE?-y_C8?(X)z-kDhp7uB%m?U8``DHiI4jq8Nn3iRy~V@TZzNqpj$~p
zs35Rsi2ITwPH6r*BB0+`)P@Ts#u6eTh{-4MRckkXf%~HTB{98>@F7M%DD@aRtlo+L
zOX^#vq@Uj!JH>eaO6f{cIZB?)<;&C8FTXgIT-%M~O1?MQxv%<txYu4q!p#5T1ru>b
z4sq;R_985$6gJGwtX_PT291Mgb8t`)%q5<&F50&9iPtMtJU_7Jwn64m8lFTF`~lIi
z5h6n@6hET<C3?O8gT40vsw(TYMo+iec5AC`RunK`A}R_>Hnivg0Y!3D0a2ooGq$!_
zKo0_v4WMKc1SE?I0RcgRNL0yDa)vkN(Z2V)x8D8Vtyh25|6bL#+WxBf4*TrA_F6NH
zIp&x^=I^6%)o<=<EESdSkT#uy-XNG(m+|nlZ!$-l1F6X`U#jd~lT{niD0P$;u>kyC
z-~yur{0S0~)YT5A<w2NdX;b_7i|J?&grKJmiUFj=V+)!mZENbVKziA3eW)nQZTLXd
z*$A`FpSx0o%U8~2Y%chAE``z@qm@J*qHMG&>+Ca9Gly98O`g}UUbR9Fdi#$ZkU{xD
zseiq`D-o17FtGtSww?I%;&yR9;WG`pnWZG3+GKsBUE(klmQqPJ8h=fR^Nz6MLz@bc
zTQC<NLI5D6MtK>vf}z;C7UzAmzlA!kkgUM1VKbKl0noJwZU8r`HK|hXC=QX2k5Bmh
z`|IE=U=XNwfomQ?gRBkIuCkL*?om#uvAT}kMD_@$p1cw(Y@5Lw2dU?oXjuVe1I>8e
zJfNH?;r;ZVMT)NOc;n}`6y6&v<}z;X{o@-<@KGYtwM-v?I0u3RQaahc)T#R)E<h#q
zX(3in1aU|O8WTIfizz-!`cc$DZ6n4u2o6;U7kIWnvAJam5GHzE_OU<`;wOg<o)m|;
zO$3PvPfqj~tF}KviIWvZt};JqWx4&`nu6cog-B_mc&vQr&<y}FKpO7hgr3G1fSC}|
zG6FKS2d9J@>nV6Sq>l#+=ZVk3A(g=bDIm(B+O=d$(5|z4!NOKUs}pr-fb$1Kf()CK
zX*q-quYf}pj%9Lenqw@lpr8uz7es|T0BXsTLZ6!5addj1wWO)&?CipF$E~_sC&vuR
zG#KZWoIj^7-mjjIDzWpF3<|hZwMH938PvUN&*pN5SVolkXOEHE*uBl)J(^HQWxO8`
z8aT(LPQJRbkQ)5p(Kj$jI1zdy(U4(0N{nn2CZn*vaWC8iGY6EJf6dB}9psF_Az><C
z>}d8KgdWmC7GXHLXJ0Q>6*orI2Wm3;ame$v^xpwJOqE4CLD^l0LL{q<55xBj%dx<>
zS5;9_2@m-BxM8-e$1KLdwR0RcP!?TILa`N%Qre))+jV}thsbQ5iV^!gHZ+a*WaFkc
zZd7y7K|D!c9)V4YN2x@oRU9%~c@}MF=v1A;jkpzCQjvSsM1|}6vH2>vAl}IiaP$Vd
zs@1t&2X0M)&NHSv`y=Pp^nGum&J-^q-PKGk8?~XAoI5}tD72L5HsUW*LoXDO1Xwl=
z&;R1BR8^H7GG#COi*xEM=(fjgkoS#<h&V{22mt+2R7{)({Dg{-Fq!)_zXv3GuqGRV
z9hV(ah2=SbfQbYO!l|d2h@tP|GP{ziCobLX9`fQw<6vyg5N8B<@TTxxX^?drq<9gB
z|0t+sWUm2F@uGvKV+1|q%u=j{PLp)a=SLsf2Atk&RxN<tV}?wRDW}_+XOAQ7<JrQ~
zQNd9af5hM?hVqpedMO`2YLHkyN$r=%YVRZ&vHmrp-(!po!#xk|(xoE$7cX8cwcvMR
z>etV{ms%aadByLl^;0TKmJur*>MQC;j@%Nptc&sAZp;gnZW0GZpo<ocX@~N)lN<wT
z7oF$TzrMcQS*rD2<$?XC^VFBzPrLA8WMt%D7ShJ^XFc}!uDj@5_z{8OtXkQs%a>s&
z^INuIX>K=8$4<%)n*(mD25=%>T$q;^`E-&V0E~E=TtK$~)ASa#aV*5ZY7)s{vQQ&d
zYf6)_X<ftAdU9gFPjT<-dhr|_`;exs9O%uBmEK#+UXMlJbNz;&t-<$|S57)9Yf+a`
zmDr`nH)sY`YHyxMQ04XvFFsh0+zm+v%O$>A3o`vQf1qKCfET7R<f2=W>L<JHslE4i
zXtQR@brI*6wF8XBuDVQ#2Jsqbq%>Hcz6Ro@91HReQAi}5y5s>ss$_<*I^R~w{QxeI
z=lfzjpY;&dfHhHk5-k2w(oBc`XB0?}rlOsI?0jzB`m8zI{#!#1G8*4vyPB@qi@vF)
z^x%l-vuuDv^C4U*^|#d{mK&r(M|6F^K-i)b|9?E<D)$g+I6KOrU@@85m(oi8pATGI
zu6NU>`L8pi4fAdzBxczi+|(DdVKuthcNpa_VH%%2LbCRzu4vahK?<~Z<t5mqlb+PC
zYTFWQ@AOG<%a#&|pV+dGI$Xb6_v&H(c3P~~aIt@T%q`+7Xn~%Or!oPbWeh1CspleB
zmMgACNE#u>J~X>QKlI}vn9ShKjV&qDSkeGdbFJ{dbit<?fUMd`?KIr6JPWNepLi?P
zYO^lSTlEnB#smisbYemKA_Fg}hcJzP5|%I;0qAk6pTeotvxuR54D5ICp_L#b(&rc=
zvD(fVaz_*t;&iIIkG$lb7#c=SG+v7a5ET!INg<%+P3ggp)N!$b%&A8*lWeJljfz1L
z$T9Oxl6ZM}<wyY)48(~c)mk^c6R*fd-(Q)5-W$^OECX^*^2#I{3u_0{5+^6a-v7Ub
zBZK3^Ir<T!7IgI>g(foy{t=&)lrFkMu3fzfK!6<ZAapnQAYcZ;pMi1T3AofPu>By6
zf79BIaH2~B6cc<Ub;)DNcu~=VGwy((ggVrhumatQ_0YLIg~g|I+Xjgk-93O=<o%?3
znS{*JYQY~Uah8H`0yV{0SRp0k{<q3aRAGb$sh11?n}$3%v*-zecPQzgC4TVLVkMHm
z1)falF&xnVMv|OHe<%gM_1l~v3pWTIxK=1T9)>qWXo?N=C_Z~it5~xCMzJ+|Mc6}B
zNcs?|B^dW;436HhFjjn0?bQ{eRm_BEKaW<%%mLU;>J{;pEIjpLYzP%3@N&h|&|Nk$
z6kGoL@Rv!Wc{=0qTUD%NQKizGRuV8qP4$+J{A2Vi7(LMdDbN;*5c@ve2-7OMTzmxE
zfG5~7HxFEp-%oE}fuy2;NjpGeXdc|wDvAPHf~e>})k)hOe|DgvC{;;WgspT)5)Hef
zE4j?-p)Zb!N$g*my8jAmZ<{;Z^T+3jEUsUNiy5*W{h-Q=AY5}rR!Uu6Yt4NJAw>nv
z;O<f?x}X*6U9r&eGzi3;Lc5;0(?CQ^#|p+D=QnVmAGYl``#>lX<6T{BZ1Z7nqnXhN
zAxZ3+HaKav<2fEDqj`<+0sM95dN_-*J7PuFpD$6QXswz8!R1$bc8a|)*CdHroZ-j(
zU{uXcRbzLlfRFP~DKsu(bBOtT#;*b|vp+O8H#;RGjs#Pe{go@eVCcgG*t3V!pH=Y?
z^FT0jqYO+jaBEjpp!_w3uiNLnQ9*Kne4<vY?9K)Bd*{~1s72fL)R~_Ogk=ROJ@}qE
z$jS>}8h@M5u>*N@(d_Rr+`0Z-92IcU9G-J9f?j_+XO9v}NEc+l%UYX%fCG%_T%`Lf
zdBGAa=msYIh$<-jCA#bz#J`rD7jYOy20?KonL=>x%E8vpMCc4O&<`zaK+}{zk0S38
zPUHFUTf2mil0%jP6PKK)vJr~i-NZs8*8}-~aFKr2XZe3HGDgun+<BaKN>S^^e{M>8
z1=ly6;F2FdS^E#1!zh2g=pRncf2b8-5-Mqshg$_4wi%fV6No`oYU>Za1f$4w?OX@E
zN;IwCr|AMHl?bF1ci~jiC>6-QfVg!3K{2x#YN!mx&4J<boSy~n$#stvHhmWSiE-}A
z64s8SXU{YU$HGhIlNv%SGFG5JwT=n#nwvPRdyg#o@$5nNdlP=?L4Q~GZ}vEyPSp5$
z?OI>0Du`8*)sQ&2xB1^t33;Fr^={*_@VOhA?P!mn_H_~<QHw5b>4nh5fZ5`I(_Ajc
zno=ucNEbDf^}N$fLFLOa*?r{m>>nTowno1%z(hDV$!d7q5Oa_&`bQELsPb*zy!Af<
zCPZip=|ZqP)217CeqP)^JlZ0C+!T=`%rC#}H9g?wYXTL@Ub9V`Hm&-Rwu2X*0z?UV
zcqYYms=hj#CB6bqiTeRxU>RBjfcv1krFh6s-%Ycv*B#0-lGVsM(o33ttkQEwByEs;
z|LYpSRvt>4!AUa~?|bs+OPDn(1T$IGc7qDr%K!MaB+ziGWF4~<XQmAOjp&wk2L2mj
zKsvPenUg@?V@MmF<Iex*iIyj{9^N4i7AZn=_YeCPNQKcD2MCQ0esUkuN=KBU8Y=C&
z_XrJPqd#~$V2`5k@ic%42BpuLM80t1V$o8)RmDgp51RnS=lL8NY|<mK(qNQC;qkO_
zddeY^^$<}e7?`S{O8=tEP94_#fuxYqA*6aP-9iEal&N5r6phxx@jyz^QK4;F4v#U|
zUo0~&*#lFC4xaw8D_&me@SX%70=U|bjq6j;6!lno{U>xsq7x|*C2k=M<QmM`c8b42
z8<q}(9!MI0M2eb8P}?R!*vbxkHw)L}zq;~Qck@fsSZ9dO0h73te*5vW_wm`h>(1VY
z>JxDhylD7Kd^Lf;v*s>qg?Lpd4aWd*iwdT$OYdvy{DOJjTjlCQQOAXf{H$KJM&!a}
zNOrph3vJ+IDX&+H(YOb|C{dFA{6Pl)kC@g6T!WwaDa$n-)W-}@v>Oa+Jv>ZQ8elBp
zKoPe9ks~f4IXXhQz;nzj9=mZW_r#M^H2tbMfUT`cT*r8qW52JSJJQ@??JSyJ+ueUB
zDrnWIz|U}8K(C?)XaBlA{hvqfw_P!3ZD5YJFZ!h{-N&^F$3yf~3EfhzZJ#YPi9FEP
zRN(41b6lYv#*d~k0WJk76^01i6iqv%O;6fMXrs^#nO(>>VMX%*6`{Tx4fXh@^G6`t
z0RdDK<Rm85$+3heKp4_#?<FK5u3$RQpf*?O!!=##Wx?xZ;UB;ZaE}N*9wF`}K~y4T
ztE%gUL(NS^!_>AK4XM{LkLNxbJa;sldldl(|M&dqG2eyPEQto;_ww^$G?I}*{$^28
zHTVg%RFr{PVVI;v7z9A)m%!=pXCxUYC{4ryQyaVmy>SF1KHlEzfoDMcPS?6ngb-Nd
z=J3+x=$;{AA`Gwbr4E`DuY_y^E&gRdSV)JT^y`x_&5CgFQvas83pmA>B-r6s39>`X
zh)oz}GQ;qj#+ow#@9>z)h&*2C&N=t%f#<9C0;30R=fkcb*G$1HwnJF<rp-ytV|1I(
zQ@26?j#&zsJq?R`xU~&Tz^6xDTwD&0rD(<C<Gz$^Llzo+ULs*#zpvQ3n}u4(-{(HX
z7ioYHT>L3#ia-f~v<PzfQi_rGAf8e|qYeJLLM0*^o6HH3Y?AA^UA8%3LFjpSD5J!T
z{Z5KPRBNF5diB<Bu({AP)<NGAsUE@gKL8}H2XK1GS+OeVOzj?LBy=Qog9gb{i1wO_
zsxTc2F&i?#%}g4@RmoAn#-nr9{td{xFKm~t3z<_D?0BNMqmwCfYOI4O(%~&|pH!<S
zO;VabK&t6fH$f0GQFL&@P~C5@ljO_Or;fGHX|9X02sIu~$6Nujs}%i$L;+tHPvdsn
zilr(ImY8M!<uWf+9!NA2z4s<kyE<{wg&zleW5-FdW~E_Qiw&Tf9)s;hErMwn_)u)*
zNH5~do*xp^Ht4>L1pd-AR0-}csVl92^kHQ}_-sTcdKeNxAWFbCgG<F#uVj;um2n~q
zJ&kLTG6Dk0=rTLo-1`Y4ydbOtrcQ0C104bFQTt#(`kkaUZ8{((Cgz0RZ7Otto?M?;
z+-B2`nTa3JC!0}(*xrk}$p~bmK5HtO6-(ow0V}($EnYHN69ky*H1-JaGCuWm=Xpgi
zXs4j~qBmYsAcb&76%hNg`fVs5>aCO`Kryps_jv3f+c)>ufo`k}U<{A+)v*gL4&^ZJ
z(I6DllDie7x_AT}Ys@!k8ytfU!9$R94uP!#Nu&6TEYAz6_Iqu+$}^{qb<7#6i%|?U
z8rOvmRjSKYq#f}8G)0R@3q#wY6f;#PIi&r5pB5zIb31~D`D5#YsQFlG=%WFJ7F;gh
z_9z63Dqt=4xLeg&dQb}j7P#1;#xiLHlf#Z4*QU&r_G~COY63@XY;01!&fH&SBBpQh
z+tB(Y=D&;|8M-`vSf@VKPTI}0rpD4XY?;ZneF8@A$-mhP+!7Z=9c<xI`DeM|oh_SL
zZ(g@*9pgflb&Ch|hx!(F?<xxlQ8YwTW!Hs-G^k7pGO2G2iNwB7MbH15v4M$c8@4{x
zQho+UDsT{}x)zDQR4YUQ1!h-OM<)i!4Pn4S%TJ(4Qb0Qc=YbTefdv)^yhhUH1SF|o
zRvE@NzK4kFL)b|^K0f*V`}YGK<K^csgHj~1UkH(g9J!k*7&T!uV1vL=_*cBOQaCmq
zCX(I~cnHhlCnOb6(A4+00#>F!CcYE;>Hh&R)hEau;5Z@9G85k}V6Uj+8_*5aK^M4K
zyn%G&Frg=sRMH^aO!Fg9SDC_+caVOwon10<@Z+t||MS+{E0(^KLiQ>N^pQ|f47piO
zaPQKkZ3tDodC=yoh$556oo#cT>aEYd<Y73Xw3d|K@ZA7H#Dn3{LlMTdI>urNmu4A#
z)u}>WVJrb!8=z{fOed<rMq}TJHgI^+fTg8zeqY@_>cC%M2t@rF2biM}?!85J1p+Cp
z5W@H^BKa`j5|m`QzE|ySsII-x8uT!E+ZC?!)S^XBytxQ=l&9yzW!&o`QP^H#(z}*r
z64@zG+OjBV%_0ms*~7w^(spZi(AcQ62XPi6Y)!Jd$dqF+>F5Z_WD`7tmeYMEv`dYh
z(FVI`I{k=`9d4M9Nkvdec~O;S9nbxm-6=QW4GAIc%g`gJ5b;ut@)87rA)0o`p30W0
z>wK<SzIgEiO5pk$^Ys1`6r9QRi#}`$xf(Eo$V($OyNepeSd0jY+Q1S*zU@LTPeV(w
zvXu6l0tTk#s}$=th~6$CdB<&Xn+bnWG5{13T}S3kC3546m~xYH;+z3vaB_{yA44c0
zdAt#jOh(;GS2Xi)24JvU*X9;=Q@~|VM|+4tcvQW_y|kfrz3hdyvz)wEh_Hv94&s@e
zrexrO(O>LE2b;bL5lk=*>$tMw!R`**?O#kk9z@Kos@t&v@7PPS?+TSM2s}mk;@4{Z
zOq|9@oIWblATWoMra=R!w}g?>Bw0zM7zGM>aW|av?O^gJxQ>dxN7dPFh92W{iNM#M
z;~maj&(mL2>}2c~mmK-@cu?2<Y`JmePrue6*4_~L;+PfCYzih}mZGV!2Q_GlMMWSx
z!ZhB<ON#4gn^sLC-g2**x@~OUvFcQ`q;3fQ&0)sbxHtFthyRR3x)MS0Dc3a6#P9fa
z_VM>sYVmqBr4j;{`FtyQ*<mh{TsFG>`90Vfu9qYc!N+sCjT|Se4uxP#?i}F+{ReMe
zsHd}bpcyoN!@?Q_+>hW7p%m#?J&YG3$Fj(tv<ofJL)5PiH%(%KPZ7wF$5U<?R*Z<N
ztxaB1Gq~!A`rY9xM+~-MP-1BO0t5wA8mXLFaK`J%-9g!?$C+NO_pb|<Vkibp-oey{
zgMg?$KtSremSsemOYF;q@WenB6ajcuVoU)APauFrfIp^cQOT*HKA@1+DbBexe2N;&
zi<9p0M8aN|kL_8rWL+c|Q5!)*G(9_g3*v{7VPRkZzHD<@z1(C=@rfr6C(Ffxi{vVM
z9xOAtdRyzpiC5XSw|0;{4*8b%`Haelr_A<B<&szP|MW#;zaEQM_i{1-t1(b9Xu=Cg
zjX|-bl(-<sVD}<KJPJ662G8n3r*2QB@{nnw`0!!XPiKq!<_*M-m!__~o`9@F1a(Lv
zaw1Nwq){#a4ngqy*wRx(U;@vq0kc)ZGm}v8`_%tFGclF>3(dmF?t13;WS2G;m}C~s
zs}lB;GWN_)*=_W$zL<5-u10A1p=TR~D8=83T;s++4`dB=*J>mF`2Yvn;VAIld6P<|
z-Vn$6RJZl*a|XC@`~b4MWa&YVkZD{|V>@?v#Vjq$usI!jiGPpuISr)QB)nHw#ARts
zzS=J|mBj$2^-hF0AYb@>a|3v@aXf8sLT+ALczIc2Rvmu@cg3aihUBT+<y}8`W@4ll
z<f1)n@=uF_0HQx!7^6z=#|df3>RuRM&W)g@;w*r;5UthoXD8i`d_5^||IG9%a`tx{
z@A~R%#;PefXlQ9U=~XN$+F7&m?7Whal900)U3z?SwU4gyD~pubNtf;&L77BS=FuwM
zxj)4_qKqTo7c!`I3kS6oQ9%U+F=7!Q(|}<1YzI1IDYbTiVEA5e3$&=JZ{pReE52e^
zQ>h*7zF@D|G9yGh`jE3JLH``-`@5o5i&d0iJ4OKz>h!j#tvh-OQTt;2><HC2lj&)w
zVf?*&N@ZZ{C=SbbtshcL9Lc{M>!sF@i@?s=0kdQFiEaPTwKIFvqqwp_y7DczeY#Q4
z^zNSEb{%Kzdnxy=ywP{>?uO%utr%R@EA|`SQM>dvKg-d8vX$N2SU*SaRKDnX?+Q$x
zQ!+M7?YE`Me-#L(A1aOCsjHgmzD)oMOwQ{kp)|w_Lu{z}U@ygtyH!!OlT&`by&9zv
zdK{+l-iUTd2Q#pE@Ko2!CUY+zPWqZvcWrOzZdH4J-Z{GDR;Zqef)HeeE709alSnXg
z6=+0W$MGg3_vtv^;m!<pnS>{=G8Yx0&XnM5dsXZiDD>zzrA6hxb@Sku>)wSKq_29m
zO>K-xogriYzT^7%XLaM^Hwzl;B8!s1^guhL-}u%qV;&<xGo8HtZkLWY_$;^8W#Q1d
zl+LvD?(C>PQA8X%IA<b9nqU#l#S}|8z5^t<fz3{py-1IEF3KvtMC-^I75{|o`R857
z<6eILmJ#cKcymwjvS<^D?whabtCKG@S@P#se6|#W@M(}-wU>uSxsSSDBuW#eD0ov$
z1Q)Icne*ap-GlB>@BPoEn8{`Ri2w~8d|&?BSo{2QYh}cfU4i2{Zlr2hZvgde&CjXb
zgFddBko@9_gr<V@uzC|cs3mGM#&=q$*2~+*)n6%Q-W@&|(S70C-_AFRmLFf>P;2RN
zt0-o8`Dx5xYWVFq27>%7UWqa*Fi}?6^zihQe(EFwF%pbj%S83-o75{dSw)bCDsnuk
zrm~f&WJp!#@W(dTh|{cyNi-1x^Dc+%-}$KZH|=QZ4pSM7iwo@q-0lXTK_jBz%^M!`
zgVQHT;h(#UGm9+$yA`4SuFoXj!h?K0sb;%v&EmIFi8lMb7k7gSCsT=20(4o;Vj4+w
z5)C_O8A8Y6QSb5EVk4@(12SM0N$LpQbjq(I&z&$i%X(6_Y-y|1qWmY{Hq{s`;a{J1
z$z#dTxnUA_G1EsT+>$YkV3o8%5vhh|aGgAYxE5Km6!I`u(S*qR%KHV#Y)fH|1~H3n
z%xoIN-ZGH@qjZ~u0n^1ZOo^`tEr{r+PgRgItQ|GwqTO>h0|^PUPsVu%0$vhxLvj&G
zGS^j)NCgdG(Iyu{xd~MYcSFWBXU?3bP@WDC3nS76D-6|Cm9ghL0SoC{uKCH*Huno5
zNIX<pr(x4J8*kSkb0t+Ld;h0gT)<)1FqnVtQMuu#=fot{7@#K8j$=0B!88I1W@^JE
zN4uQy3tyTJhKkq`KYq<G{tBIEb`1caGKG4Gp8PHzFsmU6!zy~$t_KOF$}uS6ye0&P
z<V?}4J<j<6UbBP7_&n7`SPdwHU^gEgc*xiqv2M*Wymr0!@)u`*h?kM|cwI$@9;!Kc
z7AYN|>`<Kt;5E_*dVjD<g*~ZoKYfy35s39E69*6jLO(FL&#CU<Ty-Q(7;ha`+#Hvg
zR%!XC?q7B5@2#He{z6JNN0=RB$r#2a?Dwe6g(BIXzyJseY;?@*97_FSl}f9Lf>~M5
zHn4XH<SBMle3ba&Q4g{Zb;5_KEPw}anv(nCi?L;Jy22yhNo+I25HGR9FgIf?sMiTx
zCwjcnb1^^zolx4F=*|Y_Or5C*#TN^QOpf;<eu+ae8UbIvbjUzOf~L-fJ+IrNRr_Rx
zsM#H;utvdhV+2oXjTnYd-Z5TwQd7dN^F73DCWb1J;#h^IV-HcWl4vq__gruZX_-G#
zLlYpDE?LqFZ&MDH=-Jtmu8^m38wMhxN;whqfbzSX@gr9^y{UmmGHtk#3S?45#Dtr}
z`3A=JAV2ZQg|?J+vNtXY5ho;TddeA*MmgUVpD@JYt$3Sd`qN|Tp*YGC>Js+dWk`)A
z<)d#C>jBNhZ#$BXbq62TO;^e6h_}$qsrmjA#Qu2+#SI>Se9KK@zpY2d4#m;P!M=>X
zDN8a{r?Q8xVmOseq1y;F%vBDg4xlW^p0L%arT+ksvkHC4Mw&=1q|p+z!e!v<L+N)n
z0w)YJ4~IP1Jz{k%8({<Of9s)$M$Q8}s0{&U)6g(b23k)@68ZpGMaBXE>+Q)z%2|o!
zNQVz;n%dYhhv9vG$hJZM!$d)M1Rl(K_vuVhBy9R4F0E@d^khL?!U)m}^_xn^m201%
zk^d-67}bo3zGadW1shC4wiGwQLXLOZgY<*K`b8xC(z+mWBJDso&0#RvL{Rg_N+;FK
zcy<5&{T&Ft5$<-N*ZL?bK)~&&?jkiZU6tOyH8uZd-3CirTXBh*KfisrXSeU)Z<j6J
zmat`w@cKo6F4^-ff8E`N%`X@2etzVqmB}lYa;`optMkGt=iIZLrGN13W@x_H_~%~{
zzy8GfWACEUwz%=x-U<7nycO+jqm=r_rIfg?#fjHD7Dsw}cc&=1wnRLzf~#*bw{)&n
zF1Rfht^?r+N03#l5R(}rr`qCIKqE_FhrA)kB!aV9I9vMLUy8#eM-FiM5I`9^R`y8P
zW#rq_r%w%Wslpz&;q)Ne3QZBem10(guof&(lw>+$5*0sv`c(Sq6QVwKJLAlPqh78@
z3J{?RLr+Kt;ByruAdd?AZ3msm1z1)w@H?I0HxGP)vKhh<r2;JjH+b9-1%3!n?FNS8
zH38CR5k8mkPW5Z8n4ObpwR75}RAG6rLD<gW{l*-rUTM)>?w30vRU-QXw6(O<+DjWT
zV8Nw{Pd{&^anLO^c9w6?=LoOhoVBTDH2N1F#}7*Owf2$IeoYDqWgF$qEelI^A!ncz
zsUqj>>`XC_-!}EjlL>WB9UC0`dG9pUK1oXPkqd7>uw}WBo=)cC$NcWac*X#7oX0f-
zaBA$&`Zo1IvVXAXHDK~6F=MTg#2uXOyLI2Rc@7nbPupm!i$Kx4<+3y6*?q^}eu=8s
zRsgQRDsg>Xz?V@wvm@<&H%uoldCdx4>o!oz%@Gu4I$ztpgJ-b180V!3hQkUuVhd`|
zaRql=t5A0Qy4vpJ@lnVq`MVCs77rgaO|#GJ(Dj#gbwd07QK|Ud`VAj-`paCeT|)QT
z_-Rv9?QT<Fm&I9CCj*VD%~Mo6;X)qE35@>TM5{y>+~OnW;aO(N>m#QK`iEIU-p2C4
zML#_ri*U|yezovGne#z7x`=42)F6yr=Lv-Y>c{<@d=zYFViTsf9a@p^?rd9++Ln1h
z0Eb(=Eu;ONKPLh!k<zu7SF<2(BDpE(%-#nN1_I>5SzvMtf{keQ*42{H>S~*Po;m@q
z-PI9n!L1lPFc^qZj=Wuuv4tL<KkXJ$W*5<7!jRIWl`OowF}FD&cggoU;w;r+J_nh}
zHYMZUFRur=L~+!j#_y0%X6#oRK0l1;UD4FkH1o3R_d;C8{@S^9FusqHl0-0AN47hA
zdaAv0e6Yh0@qM@oZxaIa0vOt;;x3HFrCpf$fPJ-?igvwkb#~R}j(CYy&wl~~9O-r-
zBqi=^b#G*bE9Wg%lDvi4W8xr(<RL}2`k=6LizB<7ptcuZnw*@R0jRGSM<o;@qGI5y
zsRso5=_y32<b%;`jrkLX$SDde-TDJ>a7u^*`Phy8UcHCboxz9>Pg|Y=kVe<m<kIv+
zF-9`fbVXpjK<9D;qsj+eiAE>^h+zt52PfG3=M+~bPgQt$G8hB9k7mxEz!W$gS4o__
zrCDwrvC~t9uaw;Syq$8{H>hD=p4mWgQM8wz{b2VZxb3kK=&_k+e*OON$#{6XpnaHF
zlFH{Y2^SXSg~Qg)$+pnPl2nJq9Arjv7NCX`$7Ja^cO{9nM?CNyA43UAD2b@!(TX2>
zXYUZ->-SV&)bX{@&*wxA*Ty$U0ep+{f{*+tInr<;IBN)GxI$x@@v8P|ilXA}*(C9E
z<!V?zxDzQ5dE8lHv9SUYT~Cin4@N3AK`Gc4elrhK<lNsvGmr&aAqmDIy>u4aSdlIJ
z_s7J6z|I0ZDGC+*w?b~c*Lm`wW-Sa!K1IJO{9M?vuMtM_-+yCrPF-VRV0f*~2ZdB{
z)r2i-o+;|@1d3K;RUnWG`1%8e)z)2Mm&PA|iW*;<A&=h&?VbzcgPesCxJyFz&Jm*e
z-aM<!9`6x_(j%nWo~Ed=*#M6}btIind9ZfhCBx|0<a{-4^CVt1_Od>fZS~p0!CwDX
z*XYJMb%;3{;qt#f8gNkkrP1u_oJQ=RR*rV0iWLz3rXcI0Jdl5q-&xB~RA*0WlU(Hn
zW)@l=9;G_^*c7p^cd?Ssyd4&ZtZgGA0-evMEyb83fUU=5U6?Pv8R15o$B&H{tml7W
z*gJH>FsX(Hl=MTHNK`=~NqsP9f!pJ;5s-^}Ja(}!%ig23Z!sPH5>Fmvpnci72Tn~2
zaNL0SdXwnbD6gg8JEe8iaXz!BI<lj@5TJcgjIYr>0bS+tTtp$K*c)%RLRVK;6@EJr
zBpjjs8rm7~LHvV{kk?e1B^Fvi<ggj(aG~<BUt5H7q+!jovsI{De5k9d>vECGd(7+F
zx{n+9q5R;Kc&&)r#0Y-95%^Zj(S)(Kf+_}`X*i|wTwqX9(t<v6BKq~c4^4zniu!Q}
z1f0<Z(}8MCfn<t9@0X{^$%2E%h{hZ-AgT`w!-M^<K7{@GG$~0S(G2GqOpAcaTuz$-
z@EN4^5AwW>ddj1%Bv4hC6(M9i0~Qq{2#eLYLCkOu_jQFqX%C`eo^N?Yg|Cono4jLX
zdYuoaea({(m6OHO6G|}3_~%n~^>&;<9k5QBEP&aLkxEbO2I_{hc4B_(>8z30LPM>*
zbs>g~V}*x@&)cK>qdb?>{rbl$m3icsq`5$oW<S+)VeET-LwE`?;F=PXuTCcn6eol$
zZ$Ze*K7QmragNXA%o6eA^O2)ZZO4`fmu~ySSzGuxss?Koslr=z>VXGGz>H%Gs`xrT
zUAsu>?)=+xIpaq-W!zkTd{fb`uQzz|AS7BD+axnq;<b?pR!v>o(lmKJYmADsGvyq7
z`weBVW;A>h18xmLbInQUhZjIssvOhCqMJLaKYb$iXH20-T1Q+U1ddy3d)(|5#hPwQ
zqK#U_ugz?JU7V*aK7b<C21GClEOKD-g%T5BWx7P3)z;Rw2A<w%9XhU){K+Jm6dl*g
z-grwpN)jeBxH}$&e^CJe0Y`jOKUmQ%Aav0jKVgS&4V^g2qvi2#N$-UD0_WXbh+V_w
z(C}AzE|HwoM#iQ`yrv_hry4iOX!g)aczl~^#E_)Yq7deHjvWz|6^RvErbh6PsX$Bn
z^ZDWjJ~^3S3B}sNyoE7}#AP_Wz7XQr-pEm!$p?wG1bKUie%g#CjcMfq>?|Yj8;du|
zjOI;X_+k-aU#LP(910W_m>!Ft4gjKG!GFoLFeg31z*Z+KHr71S@p8S>`c!X4@h#YG
zN`k1`NTP)o>Yi>eUbm*FdZvr!OLX2uKA7Dsttsr)4ba@rKI1FrXhlkv516HfXjLL<
z)qdF4U5L~53cET?M9;}$|4N`TixTY`rWI7^n~|`%TJINmc<PR@ksK;{UwHDwJ7T;S
zxP7}Y=t($(d@3A1i-&vk?SV9@H)!U+$x{U*g&Epg9s7+Nc}DR%E4yrMH@!^B8jPh-
zkpfFnLgm+Zyaq;q-ikF!?R4y_kQ8r+S#1{v*IvFGJL1M_F=12#9gyGL9vT|r*Lk*;
z{!>xBEv!k=xTGZi#$d>B#wH)R4cNp?7TM!+vCG)lQ@z~NXCt4~j~3ZCBT^`uE0l4w
zqN1YR4h(iNuuO`OUG;;<XB*IkPLOxoa#wp}uJShAkmloKd+>PNJWPs~0B=1S`{Yyj
z%llt#g&e@%4T_FS<7Em10W?c(@*O2hS!S6*k@8~2UB@H0tfZMUK3Q8x4k;!E{P3Mj
zVfbbrJv*%VXo;8G?ReKNQzi@SO2Oel@@K3X*j~QOxbBm8z~jss2p2K}8!Q#ngMP9A
zXgE0t!=q&y>q9XJadK&YOkht&3L+81aICE1%pQvU6cBSN^ZJy+ZJFVqrG9%cH?c^(
z!)A+t{TnT1Wuf@3N-Q!$VsOd*$tjrvg=mH78f!fu6F`X@lLdN8#)qZ_VvRR-z@@G_
zc3~baCw%Prxz#AFkCr`>_Tfnd<nF8aFuIDtaZkPI5cg#3f#{<`87Lf%zB86iRLPNm
zEp`FxB5sN>mPwdH>CA=X&3uK8@^AC#rk4zZ-J%z4nWQ6VjC^1e`EIbUuP?<Gd=r{O
z!96a<tdOM{e1V@q50^*it|&EF_WSBxkDKpskAKW%@sRBuG?lkt4dK<<NSIpQND`)q
zjYp*AgYFm5r{YHkJ*_!rEMdk^wzu6e@XSMD+UnzRDDDQJ1#K%rVs7iQBL@c6h*hSM
z&sudBoPiAaczxk|liXGQoOoEVhI2F2o^`?+`tdlz7p2{L>b%ldN6Pur=|=*#`yP9`
z`!0D*ThTU^E{Ue2g5_D?F1o-e<xfv$Pw%8CM<VmD>b^4T7%eXMiQb8RnQ7}}kjj2v
zDIAuji#@2wk{oUH4i-#DUrgo17>n;3T(!R64MwzFyjyYuI8n}S;Ox=>!?$EW=+%$n
zr-1}<fURCk#~R^x#?JM4j_1nD1a<E4v{lB}&(R;3neLY<A5}wQ6NHT0n8Hu@sTTL<
zyBFqbeO5^Jjroecmkzr+pF(UBAs!|?kYCzbja(UXb91Khq$MjRy*tejX1uRW$z2?k
z18ZrF8*bt3aX4VBR}Fr=otU*$u2Xcp+h8;%C#VRfwceKm4TA*B{nB+URR#S_-7=&5
z=gt@q!NH+hH>M~ky>2kBy%O`c6DVIn4WJ6vIRPXF`>|~c@f58J@)p0>o#o9bvI(-L
z9dcbD`7M2k+0zo)R7|GtBeS1cAf%ZKEG#|P-e^02>Y_nJr<(1TjwMZzT(G=Adfvvs
zMwsGvm<-j2T&7u~epE3T-x!3kR8`R9?g!C1vLLlXtYVRp)SyZcY%&==N;kGc;IQ4N
z5GDn#RjX~=PuJqQXZ3(X6-;%PAQ9Z;029;$S5_ks;<k!D6rE_6E{i7=Cm;b~grfd9
zVD?Q+<Z+iRVxuKi+SNI>@Z>4%tS#&6MZ4!sPP>n5Q6zBzhaktLL%UuMPK@HXoi;JJ
zuoM#kiC^Qn8S~$w`Bp!(M2kh^sl#(;Zcam{!1+i=qvU`pZsVA0wUM7L%g{esUHuJ(
zWOUv5j6S)fQ?X5GuTWq?*gdYgL#yg{d5bhVFgBVg2h*)cLioDTv475|Iu29B5=<5f
zrM79EtQPS=y{{;`wV%z>N@LBtdxV`EG`J!+7~~>2)XA{(;}a$e8Hug)4Mf{0Fz~Y-
zg`IfqOP1|`Y)-Z2B^2PA;AWNjn#=PcpIfMG%@Bg!#$?Vvi)5xJFm*G0Y|zr>>#9*?
zE<rRMqMYx1H6kFG@YUAuwlP^K$EV9zrERZZMF+XV6x*c9_+{8**IRKpwccx2sMbTH
zM3CL5)1#H{la+!^+M2p~zr5d!eTEwC+xD+Z3-?otUGyhf6dr#`M=P&4RamM7C>KMb
zP;3-#PorN1?PPd~APl&BRU{>>q@W|nrj$urxc{n>%R1B8BsIBkW&8u(_dD>zq|HoT
z*4AGJS&3NZ<ClGi!KHBc<pDCJ>J(8_0VBuu3@tcsf=%s38V6RN{gc&bsy~ihuT@%8
z69i)yo_2A=@Q}Zhvz=Yd*<3`>NGxJf>YPRq^ZNI=v`9!*1qZjw!6mmLQ;2)^<r+^O
zGN@qq?lR}4c((WEfo2Iz+R`<!0(8sHJ1SUwr>5INr%wB?azT&XP6Qb4wDn@Lr^ckT
zit|ry_K_o>Kz^^O(Oanq<thSgz~g~|+=xQ32@uYJ1uhLU%Fj|%QG?8ARA#zmx{-`B
za1a2BzGzI~qgGum=gubxww}rR<3%CO-Hr$EM9!^g9Bf;PXcyi#{GmI)j~pT?H*b0-
zvJ*g65WWRAZVw$j#O2s{%ca{ow4<#%CXx>hB|Nom#uN-(0m6eooH!}$Q<^Do>!_mG
z2D1GLC9<o+QyoX6YY?BdQ!>o(wZan`p*wVRwAeiaQ!^a=TW|*Qb+ASFRvTl#2K%}o
z7A$6kY42Pdt$vBnl+=dvbFFe_Esr@91ca)Qd+IZH--79H3;2Bc!S;-;)=2M6kf&6q
zDeGZssu-PBPe_Re6x$~YVfcAllV>{M5P_7(UG$15YC7@iic#}}wsx6~S63w>^L{@r
z-FM5&Fmte?;9p=ETh46d$VPam;*Ei3%9(8|83UKnluGaz3|C$3AFw-FFxM?Pv$<o&
zM+mPY&jot-!^k|ZI>taqntqNmpn~%6kWKo&`C>fao7gGt`uum=6hCE(*iJ^MZHa;8
z(jh9yC{so%Ce`DplzACP;#?Y^U%@EmWN8eal@C{TLvM4Xs}3XLb<3Z04~#ic2h_iz
z5c14vUlItC0{s&xzfWh~Z%)(a|D9oT;ze+_$;UMJw2rKK+B<7M*i8Jymw9MIUW})K
zjdg98pF(#t3pK^km*-QGl9IH(RS2JYf499K7~7_3b{5?raESe|jKhcLuzRG=o&Syi
zF_zqB14WFxcb#m!$;MubolMAMgB<7hzU#Qm$!DjRrgz~j;!74X&WT58=ZuF7xo%NV
zkk|jC2Iyo>i)kuY1MN#`XE2T>simAB1{tWUq+fpX_lu;xS^YgnomKvT&p{tBuTv9!
zmT_#uU_^s1Vvr6Wifb9?d{k1z98Sl?)jYRQZI^d6j8yRbq?XGct{mBIAgXL>wr~Bg
zeD3fg6<$ZLDRuo%LY$SgehFn`)9a#gML!DhaXk>?O!p`%^(%r7#o*lrT?O)}9-fbH
zXWc&F`^hlU+_tC`b88<Z$EUYv&I2w}-07EfJA4!V17Vr#$?Sn}epr@hZC_2>mEq3q
znKHm-I{i4>Q}vyqkR`X(XS+Wz;Azv=WH8d?bJ7FuNZ4CESkE6W)O0IcRMSM8GchKq
zLW{{l-25(ZXS|?+XleU1eP2UBh6QLatb5Ntc-U(=LWS3;_5D32N4EZ$vM&HugeN>q
za%1m8WwMWJwuf`&UY}If#_q(dHgBHT*jS2?y>fMG6Zo~BZbq#yruw6NQ48!X>%6_l
z6HvTm4`|5g=dYJHPbf<kKZ#tZ-0Q(mcvnZ9ljXi}<<qThZ6ilM%Nj@eIhpOtoh(I4
z|9-Nx_iMH57I`TzKUufknOxO}1^uGEI!3vcx@Pa#IX$U8Da)PCnTTvjWQROKt6r-z
z^%;!zoWGCK+hWWL|1K=OdGjo+H#Xs(EkAaRTn@V!^uO3~OMdK#|GC87yZ_}{i0l++
zFm$(nF47k<tCgv>t-lnzN=;oMm-~He(@ERa4+1+Zvdye^`gOY2RtfpUOp#!&_}BmP
zl>e9C^MCZUMKsIKZk-GC#2cMNy9n<Jarkl-<YWophjy}FT)_(fI}vV`E;R(G*B=9m
z98%-Okai|g4C@S79FcgyX%8U>RN(>vS-SYgXM>QHivQahLKP?BkT6%|M1E7BoR@y2
z3Or@<i%R+}WQ!tM4FW!LD*>?#Aty9@@_HG~TqT!@LsjEGJxSi1@OT|abBRG(Bt0{P
z@OG3GFL&HwBdQu7VtcK>p=EdnxpT^jKw&^F7IrEeMuV<hgkcdpc_NiMi7)uh`aOy~
z?NMJ&-@iNfG^hHp%ba!x`<i#mAxZEHm^6St6T#>0XCXm|_8JGS_56D;k-YZTmImEh
zl!`DD&>VOYEhDvDEri;-jTY$BC`EY+7XZE+;ad4vGe6}>mH20L#pfJ<=A^HNgULse
z<{cg}Ks^Xw&<q*vh4{=L=|wYgzXHT3)}Yrs3J*6*EvUy8MiKn$^rr$17N!W?tFK&J
zDgT?3H`zPy@Z@qa#9{5*t1DqwjS~j`luEw$RY(Sg!ile76&caGw0Q{`kwV68o}R<!
zHv1LKn{+PQCXZp!`w|g@Nqf&?+~r!55q!$hvKYV+&CF_9&pmpO!Ym7q?Qmu;pXcho
z1#v<c%u9r9Fp)9<Z}hVO3K@glNzO+Y!=;-%`x8Sa`DsW^VapJ3o{S#Xo({FFI>MY}
z4@9v3{f3VoJsMh-^~3Og_X18QPa8VU4m80+edhv<RG8mvQg9WMS3<SvQEIBCONY>0
z#%|Y9i-(s`asjrn6`6Jq=FpF<wk<nS%Vi2Us=&n@*)@SN37}`OK{x=JZ0#D1gFdcw
zg6-x^SIp|sR^jy_WQMRBKXk}6BR1?#60?G^HBq`ZQXEM@Y16Wd(2-Z05&+p&x^z=2
zh`MPd-^%ppA1;Sp!8R%jvNA@mdVnNUY4omqt-Ms(S1Ev;<$NoE_az+5InU*lDsC9*
zSKixWBNbyol{N|#c=8ZzB%b;Fg3GH)m-Eq;Q|9J{t1NePkG0mlOK5bN&v?wc#X&+t
zxtoA*$Q~HbN{2Vk?U<)+_GCYmdnipxjR#4!#wyeum{P~e=v<D`8LzbSlmq#b@|3IF
z?-=DR_>6euUbQ-}k1wyocxhI59C;z-q>}OQuVpI--<77<ALp;vPTAwTbFhiOwxp&;
zN5BC$&M`I|@l_`UE**;8dIk64Z#eGVs!ti(!dXxYM0cBU(AhW2JCC&rpzZSz%MgiG
zW)?aH5n2p>nNydc*{x?&vY+6x1R!rMF^NT58=ATamqL5*MrMlT7k1Z2OlrjlpM!*N
zI-ns+OB0owy3qm<fEh@Qz*6*@Qvu0|Ob_Z$`%vT;nVLyyKh*3c^e4Wc5JB}5Dnx`>
zvRmdJ%W8g&Z$L?QIzXcP*?MLl0kQxA+6R&dCk#O;s7u~8HZxNSiN9usL$7dryb3R+
zOqeKL({`uYEKvc?z#j_-=t-Ujn8C71M5*wy>yG_=26)O;U_aJ41;%KrAjBX6uh0y!
za}~0$1Vr#B5ssn+DdjPrE)nxr#mISkRL}|mYkcf#8b(K1C$NZM>1<^8ClSc|Z#}*@
zrIKB}I$XdZgCQ#Tv-`;ZQOEHABB}^j1!v&&FCnx1q`Q9p&oR;go-%i}3z9bZm!A!?
zh|5Np8?EY_toQb3#`}YD{}aXh*CELN#vKrqTJlqb7jnNH;xClPl)1=#uzd*r6@9=L
zj>@$LPUL-8M=byKc44{U4BJ(Pjz{$iOW&@(${*Y&-=d3J%tJ)=gyxkj^ey%4d;8tU
zuq};tCflJTx(>b*juw1iQ~ceYl=FMMyY;rzKg&uFeZk-2HWHBWFVQks3vBAb;9KCX
z2>`%1GM53tBSJ#1ft@;hMFrAp9wthlkTucvJ1fuU#*BCDaONop95eBiZ9Zt&b|}`m
z7If%UH)k?5K5TJNUkr2ie|v+l`j;%~wJUYw`91g_eRqxVCr{hl+9Gf6+Lkew5mQxT
z$gaizFT%qA&F_S9uDseyZ*1T2vY@JdTW-|32lM()OeVqtlwJ5I5B#5q{{QpYjfsWL
zxhz9KZN&URd1KfRL)NQMR!>Bc%oxr>DOIOC(cpUsvT;_=G`06x16vQz%*-51!iZ~r
za0fJ~7bD2N&XIE6&{gaS6B^e3_t)kj9QQ>9<stmmY)+fQ&{zwoIrDNJxuQe_YewLZ
zrb5SIyyhc0kLLjjIf0E(7CQu>)eg0EDrXP_1kj!+eveRLaHUca*bw?FEyC7~d3;j)
z>)blTSD-p<V$O%Cl2Hivj#G!Ff&Fb_c7sGBy`BBR=N$Uqiu|{4BGw7Z5UwqDGyr2m
zH!!;aWd6%%ve25(WFZj{LY&uZD*EZv1D-sh+x+;<ZtDj#c6>s6hxbJ0saPWf)Jzso
zm~f=r9}<#x=4RpPwu5jLP~4SJASl*)_d?q3)2f<)DLFXr$q}Xih=Tnu-@HC$11la^
ziGqw@n#d;nC&QKeW_bp#%4DI*-hM2=Gu#wq7QeZ5PM(v9{hGmmiyN&0_#6tTQqV|C
z^*>q2f47y0n2%|OV;N7|T#=<YAAKmMicsjXGppAlAfCnpQYn8U({1cSs9kD9Y|BR~
zH4!JK%*A4Qa<~`<tvvh?`!%&2cx0cq$FC@|GLY#6XPwMBKa0s~Zf+LzOCRJKf49B(
z9k>mq(mT=OjjSxaAXUvUHmM@&WMs>;{ly8;{&|G%dL<)34#*)q`KJlqM(p9rOLZig
z`h4jm;ghUCeH9acC8$0sJN-9sY(Um|2|@hVmkSkPXH`7rS5QzWcmFW1Oep5Nz{+O}
zB8S8Ii92(4H0!nzF$93P8s!DncOcbziUv$n`h`)IOY_KVtY5}Br%D+h2*M#eG*?kP
zc*ZcO35Qr_S)<MKRyosj%<g`)8uZB-X@__&w*_2QZe9~&VzX@A==GSKuUvSkaRQG=
zy%4Gp0GyNzHD5Rn*vr=ihV_o`_x&UuGL2h%Ro|w?5gZPf$yJ0NZ(kz+=tbAkkx96g
z1qys_dF|$S`ts34$k~ks#QTfeny?x(dt5C;SF%siG29|RK*A|`n4~vj6rxYHPZX{;
zG3&t48uov}j=~VI?PSj1)o>0OPYvq*n6#@*1=+^J(+h|Mz^|8qx#BnS&=vgbT>?;S
zQz!%7MBOjF`}+y!FGd(=+1IRapQ;=!H?|kO{lUx$58(!Nfsprr0zv<MW}tf6a(}-&
z$0Zrl)EG9}gFsaWZ8PlSiH<8m*HPVY?W5Xj^Ssir7e5ZUd`@)^JfAg&+_WIf?d}t1
z(>D-c>iu|P$9Mlf1B1$IS{Y@zs6wizJeg|JpV~m3!rnYo)<z}a*~><x5%~Zi?(mGF
zR*VF@>@mM_h~r7L`GzB-r7G^cf?GVG@@YXWk;<%8Z!$UM3+B8S^c4z0h_}WL72Q$b
zhe}Kato2G^!-G`KyL6J$@_txNL!8K>S<7|azvqW=Q%fSS!QZ*1B?+A0m$({b03wW_
zR@|2q?;3kt3`jwLYO$*zGXZtY7UV1z8gz_Id{F?~p+B0h&f#l>b6w6)G!3xz>mKui
zEFFEa>cn*ctNbmGcJLQKP*AHdp<GS7Da>2ZM8g;Ah^mRi1)v;fm9G&HnsR;=ymblq
zzGO5C;*wfn!pr#*jnBS%nriq`QAupD>?qQqo(yYGvF1CMjEK_{rAdg$dN0X@<C?^?
zR!yYDykOyh)g_PlsSr3Alz{qn^W&HEO*L?goeqCXxB>KE5_1`qSQIdwbOisa59o}@
zj+cwjKUDz6btP6>_COvk%YxN;2$;pglSKd$bSCqW4RdgASRgfU7!g|_42_7m996Lh
zU5(3jX^SJ}3PM6;SDBZ!ZgzwXMf6E^rOc8eec-0^F!APU->*g(7tn-6$@G*j5M2{r
zaK?7*kcUGPkw-YVFA?M=wZt7`^{?SFR1<gfEq~1H!^=}iL}BypJxyeZ8im3r^}qt+
zl#3LA$MNAkKMA3T6u{KizyI+TP#qmV<V$Rkd4*(29)8!I|8D@RCY@b=ZQfvwWfL8M
z$$I$k&D8t`?&)6cRc@EZH?VOKv|_XAsH_?Dcdfx|Hyz<D^KQgrzJo;52k5o5ZYIY@
zIpn4KLMbLyor%$ja=C@gZI>^LLl5GSU-s~a@?2hRb&#EA&r@W%v>y$XV_{cj+!G_>
zt|rPjnU_wY7_Ki;P+d2aeCZ^bIwDVg=QWXQE$1g{)xJdH@B|p4&2nC$u;JUACccHD
z)iL)pEA*VZOnd<}CEU{ljD_8W-6*o70Gt%<!UTL~$BqIzmW4#_z>>l~MQZ}HO22gS
zCq~3&WmxSU;;6Xb4`1;=jMo1WV5W4$;RCv;t>9L0uDbKU0!jpIa}s?RMR3O<R;e{N
z&zcGlxgrCB4RMY9B<k|xh_pV6(XPYP)r@n9#VwcN45l(SaTm05p)7&0BR&ieAc7@u
z5LJPwg*I6jfY*vI>_aiC1?9E^e2yGgCk_yudv&MKL7oEo0Qz%VFlhEIkzfIc8Iv&p
zFh^h$I7;R|Mv+E{?Zi;~KN_i`Ea;a=yqyHp{WcIXhAwblNt{ITmx(#QtTF^Ig*GiX
z_!Uk37&BZ1Phf?oJc%MRZvHf&HwbCnA@5NzZh(V6iXnx!h$RRChIcUURIUWj!w2it
zrR<AJ<OcL;@265ap>d$P5f=lmKbUBxz(t%<brr9DlzBFTcsBkbrfT48#Xe0*X@T-W
zF$Fmw4I9%s|FX*LefZ>dxR}+bOfp#@L?b>@pSB1FBfda4c~i9=xKhn%^3>}d;VkCn
z)2hELJ#dexHo=}r_Xm?wQjFo+3qhiFa*^&SN{+qJ6udxvAOt97oww?}ucK$cf~4Z}
zv;2zMs?jsJS`qxIAJ||K79Ekfz27RVjqHmy0g7=1`$`x{FPl?=#*h!F8w(_VT!-({
zPAT@0lJaeTV$LV->(nPbU{h_%X^MHndFVHxgF}OfEn4!!Ok3ieI{TeYnl_GOJh*%$
z><S0x358(_@t%HAM9eTQTx^aPB!+epA`PjEclY_mhJSV714&V{5+?tqd2-c5`2v2+
zRXtcrmo8I%?dA>~EnBLB`g}5$$`b}}kr?a2f+-1K2W_%5RI#yO)k6@&oB0@@28f3i
z;{a4O<F^{CCj>!EGtxF~72;?jS;d@jC-4!BX_9<(7AROm+^p=$>TH4jeWvR@{Wd_3
zaBRm;p=tZ`*ipnY2gU8lJ8Ocu2p&`P>uO7`1<i_}ali3T8(O^L;w*oF?1joh*h?Cp
z$HWWL5?cD>Vxqq$$Ho*DUFLHtZjXJ`!?bkn`2J4vl-v^JDr$ZDKZBtc2z)L+x1+tS
z_q~s`k$Tal?}QAT?v8=ckRZNvYyNW6>NG2U+hNz%wq*O3`nr%1K0o`ZsFq%pVlxjX
zcXsKc?iYj~l>}1KW&`GykFqZ9s20S6?+9O}QZIHBanaPPo+bI}K0S5BbJv$Eh)g#y
z(W&Bx8n~-}FL*^lF=b8?ai$=_(#f}m4<dSgK3xQnkSNO41<GO)f*;Dth$iRKX~128
z`uwfyf@zzJF`x#bI8STL`Oyvn{GTpNlt_0(<WxLwTHrpik7eT+I=BPyc|N3c5(%{<
z;tj~|s8QagLw11ERwc;+HF#-XYT8gwEVH7+faN0YL%1>%R9v@#2i${WZcG*gJ}3oS
ziMPydIl!)k)5%fJJ<giQb)PtZ_;yYrUc4FdJA(VDvO<3FA99;umlxu2QDT)6VZwdv
zk$XOtKhVHaY$Faw72Y?D4b{3qYSC*`_9gt4cow2nhTdcxC^mr^O{HQcyiCFAN5Q@z
z^q+`~{^;D{K*%Hkp;X%^(vB4<*T(3QS-I0f2gJ$8#CzbARP$Xe1jUQDaH2ub&X9(h
zUjFjzk=K-v^64Z$suqO_<jDgm*$*rDvR1Di-33-iX<ERjdIudclI?7Q@_Cm{kS7}b
zkqM!N=@Ig-xR!pcj;Kf2h|yY^b>4MAw;j-TU<fsZXq(!kqRS`%`=gpm>8}ow7IthG
zZ1-sk0ry@N<sZI&j%~>w&S;UMB$f~&++S8fi#HGXA@=UTuxz$%LzfKlM*(+~Wct9Y
zkU)@ACKt@-?DQYDaQ2`^HJ-U2To@VjWEG$iV~vbvBa;dnEf6!YPAT%?dk~U)R4P%V
zeex$p>kTo7Rh|Fsj9OLHBG$-#C^3}orN_B`9Dc$YCbt=MYORwQ*e<c`{S9h^LSOUF
z!h(WSLw^cE$Q?lED`36nu5}0(BLs>1xI;w5HqC=905JoJkMCGrUFVDbMAcAjf7gl+
z{KR%9tAk?3NpLBV+rzbt4#v9&<8<8M5aG=WRDXn1IXvdpb_znyB$?1(WS^Djlyq8N
zzJRw%h}m~te_|c84}Cad)D(r;=-KUOpCLF@8!kknM}0Uy%K4@k-jmRYEWZliLn6Xm
zb^XNqlf7VnwH%NcJHl#2o?bvCByhS@#k+so6m%1AbQ?TWhm|j}+Nv=Afw~Nc-Nxqr
zz~_LBMeQo+2PmT8Qcp&Yf>v~EJxw#GHVMIJ4d>hI`@yDeMmcO^PQ0g<RR%%mVqb4;
zXYn9)m7lED3JI~O29yxp(U~_kHrzu_t_At?Ar=@}BJz`aKgWv4#itatBvq&?6-aQ$
z$qhOwIql2+ila5G7v7<061o7%A%#J!5v`VIbCWmssx0^ZdaokYiUO$9r$Egq3GdHa
zgqooSg?+@#MwrEfK|oDS6tx4eyy_1gJ^F#RoE3Y^IsLGj*m5N794+Q4-X78ZWC&q~
z{kTq*>Y#K;yMOGFo&}g$u_R-jN~B7Zy2WaE_X0^7Vv{VLh2z)4yE3IBfiv6g?b^%y
ziDtRISW10c$IRNis<ZxRj6LpeBq5k+SoAcmGu@NhuV=2N?+s^=d{wdm5yZ!q@}s%-
zG+u%qotqDp18T^)S*TZSVkUn)aoy;R6bQ20(GJ36IrX^4hd-&Vvayiwm5EVnD}G&p
zwHg$0dgIP6opGo9vGNkkJ_Hi>0jIBqa0$sb$Ll1R2MZ*wllSz4#X9MqnwV~Cl-!lK
zY1-X+n3HRN()5Cf%vA|IRg9~DieFOPd~fseusJVw>daLT{Pp}Ag`f5u%F@r@a3b~G
zoH-{p%iiQw_`GLUn6CJ#HF5{mtl9r-@a{!x%o8QDW%>fo+HFsis9x-l9kQv|yR#^$
zU(8tAnI$FW+<fCe`w|iKz8rSdG8k-hP;|E*3UFZU?9=88?|tvv<<KgWY!JTFhhKA%
zYLv=Pcg<sNTW|1_EEjceUUV$GE3Pr%L6)TRP)vDm(KjRMrAwz)w_Le$CBotB%y@1z
zgRbAXb2%ey=a%GGGGPlKiQ{eMQ<UU-s7<H$2?Wdv2h$cknh1ih*lTO^dY4me5~G3p
z+;i6nsk?nxJ(?9<=h=in?x3RL8xZEgtjZnMFAG+@j1Ik@7=n5k8WA<Ts!<J~cQVc)
z^ftM+zboz1#fw|stXVYkCv=B07^jnb(o;KHgP>%{*p0^PrC#3FJN3~E8vE&?ou|}^
zEOc2d+p}lSe6PxU|75X5{jg<yu2+*f{X1fNgQl80MS7Q5Hl?V^eZ41u#i+dfM$S^$
z|4?bZu7E*!P-1FhWb&wlA7k9yenaKzK_f-Q`HW*wbz323#e)XZxY5v)S??a*f1&?%
z^}>Y<m%7(nsPsbO!eHRPqIN3(u}MTw=UKzQt;lHO^$Mr*FEtn`0SVF@Wo0V21$8+X
zXQn0`@v?&#FI#pA&+$6#mH4aj2U=r->(|fNons;!>)ITv(Ku;^$?%L>i)C|ia-^?9
zjc_({&VBeBel_abw=*^A_Da1Dmamby{IOcx=2v}}-dT`z<8l2v!K^A_1fou7AxDD2
z&GKW<A~H2Po5DtZk&BfP78VY>+CFC~Zv)Z{jReEr&Ykc26IrGQl$Dogbv2stpI@Wl
z`tB))I|NAgwJBy%FUB+H;W*W5XbW9HcQmslRK~r|VzSR=;ig|CU;8Itt>${0>jgDg
zjO1iM>YC=y1ZxRwiu*M=w%AuA)WIP2?%g#(;<j>6q}AV8ho{w;Yo84tq%GNBy)yah
zai|4^$6Ao`^)9ZlfKrVuo||MJETm@N)qKGle*GB|)>m;tUz&-Ua`80<6>d;^8XM8b
zdXOv;XzG~{iKI8sN<SQ>vL)={!*y%d{<J%%{#P^~t%DxhLx&KpP;P0L6&t;O6AxA#
zE4>d=!U+8Tl2AT5gJ_vIV(ZqebJ}s{e5Kbbsr60X53sAdAtrrHG*G1WNM-OpdwZ1o
z-jKBHCK+{|@KdWExooHlmau0mi7CSv@B^3t|I>t&V?>$kllk6xVIO5Td^xbFE7te1
zdCEtj5YPSmDK4XZrM1EJjxC&_uUU8QT!FY1y7HOc&Lo}KJ~KY$M5IotFoaOgBY{7T
zNU!uOY^g@Noxr6_e_1H~!v&bP>Jl0iN=$krlQcRrm%S1%AKUlt!<8$)BIca|@cLHB
z_Q1lAsn(n9x@)c?aGM2G`qI%SI%zh)VI<8TGjmMJ=QA*x;Or*-d|!d<>GnOm$qG8Q
zM#BD&9ePh78$S5N%`wX%V7vKZ8L2hgGEm#Q2=Sof&``XBMMjji#+-Rv2^zX4uE}QV
z^IIAl*GNn2vEOP^nhxG-(>sw~9?RyG?PYKFF}8AeT>E-2zG@YpwUw1huAIQ_H~DnB
z(aOM*E{*fyOKrTGy!4_@X{nvDm4dwEmzj}WQMEV_m_V`!BYQ{=fc)tL1Tv-1PQ@4h
zb^fZ`=#ZA@mF)Gmm-sv>|9%RkICkZ99Qe}co5|ciI`bSRAnsV(pqMJx@=5xkP29vb
zXZK$VycVmUywY^(@4t^>)X=Gln3XSHytw<J?IvdWq3>u00~4IKyj~Y)qhj(vnOm$~
zqE~j=P~Gb4<ZA6FSDHYKTZfaWn`W~I(*TuDKx+DTT4BiNtOD`%R(`pYf>f;#(C2H>
zoY-quz;s>=%Xo7rI%)a!3NJC<*K6E5r@Cv??`$`o52ZFwD7+p+dg}neijo8)c_eMi
zA?~sd;a3UT$se6Kl73YV4eJkA<vOg>Z#3_~gs;8(_MPpilRAC>3(%$AXow9<zG~M0
z`a_U;H4N$d`}^mfo_L#||H3kR@)B;a0eJ;z62FipT6OG)6Hgj2%<2u~u$Oc!uJTle
z{@@5&v!F?BtCQ)Z`r};E8>Dj?kkVhRS>$;+>){TyYhRfb7J|s~AM8>yF_KWLOS7E|
zo(=-8c{`Mzrv}J(C&zAXWNkOEWSNG``B<HfS&|zMRRGWq7eE>9pq$)ZW#vUb|NQeG
zix*#*9u1wowb77sP>kUMq*k%TJM-hjw&XF>p!Mt4-9IpUlf&e}Ae|>Exsem|JSu#|
zx^G9@#B~|Swd8Xz-ekd9zG}saQ>t;L2bP&{dI>>N#zf|#eUTn=i%)uvDZ13zEe+R7
zb;{IhU#^t9PI1i8(C{v_16DxpP3goo|3i1gZF%t?7cO2rqoKz%elWl(K|k4|_8KGv
z@9U&m-H~<`hjH8rb@Z}$eQu~2yaq|!gB~SRM*q_Rb%ABh@v}zftO++=uead(>+^uY
zkAY=V%JnyF3(UbAG@OSoRRXS2v05I|X^-6|o!UkKRWSJ;B8s~X07W8brp+e(SHGz^
zR{!~><0y}1phKKF4qT%7^{ZE(v<p2bxdLI72N=ph4hJesXTH9fSFW`3*YoF~q_dh-
zM`D!>CG@UNF6H3324r+gMN7UzoQfZxIbU2*>c)`9>l1dDx*Rkx6!iAyBR^|uYJS8B
zn=cNnrg8@1n>TMhXd6@Z!Y(Gmu8RYy!wuDFwd2r(J9zNmnO$mW-tyf~f4s{8Q&?ZS
z(=jvWydjb4wY<D@(AYhb@%t*#-_ib*1M<%kOiMa_{==%##?7MoUa?ag6eP5kya<dL
zz4h$czM9J_OglT#bLX#$#ztq>Y*BC1sm{G!w3K_sIY<YYMD3K6tcl#!<bLJ4b2D!+
zU&#7555s$I$gXFMFa9gJYuWf~?<aU_+{MqEHALX~HC|8FXDlqp_u;#B>(*bW|H;{2
zYr3Xww7FN7A8Ko*`9bJRp!+l`@SVk|$#PwVcF#pfe*cEC1zGj&asDBzLqTQg>7rkx
z-!tAr*n)9Ue=*e7L2?5cR2mkU_+;kHnGIJrg`hlts{+otvp!p2#Nzp+%fjJ$pA>~Q
z7=)klN53%Rk`<UfysBZn`)cYBM`i)|J%Lq3GLdTH`hWHI-SJqr|Jxr@x6xh7sJpBd
zWrVVKqC_EOWJkkZku8ZxMkOSxl8}}AHnX>=?5spaLS{DUcYJ)m_v?9{f1bad*K@u4
zOI+9WInVd`9>@EA9*4zHhjuy{=1ym4r{_B?KFzP}S)SOMI3pk+Kra!y?Nq{fC#gB%
z#H^Nx7M;;FZ*SrvM3Qix<q<jUhU=NmnI=jW45{|4#j1SF?v2uygt%!>rpoeCctpgt
z_Qu&`#ZhXyCO^M*jy2kcV9D9|^x^(yX?Sve?XG^;0@t$iQa|yAHTwk#ZJCtR9K-8_
z(AMGf`u)q9c(8CsQ$kxR$)q|^30<x>=YgT1;$lJT9=@8X6rC#B+3oByywxvqOJhV$
z#2tpH38hr?p{jdjxcl}D^oWEvqADeluAj=hC^mO_`xFz^vsOP7!L6cG<RZ8**?S*S
z7T+Bu+L3QO$(Oh^(OoC2%A;D=9l^7HM~;_YK%gm6r|L$1B!4JIwfZq#RtsP*X?G;o
ztfEXgPwt0>7!XXWh>9`vZ0T&=W#6&}_q>GqfI{atL){MN?pLQ+WQVMC(``XiNcwTo
zzeyHHrcBIhzHSVk(Wi6ANszKX_xZVSsdep1TlGELt&aq6c(QJdJv;`9t)tTjDI~b~
zv_{$4;azO*^6|(R>%s(m1}X|ju5M9p`i)EEcFRuYBGIG<@aUE(_~tvRNtL)$8A@L5
z3J40SLYIQJ>}?~+PVRzo`?b0&Tx+ggd~tMI%FIIN*wlZwW{syJ6rtv&=U|3G;VYN3
z4i3kNeqgZkXa0>(OHcB<)l`Z<*0|0LD5gqOiK^v}1dasooXDPwT?>x-BokIUWy3p*
zd|$+RY;OMN72a$Abd9M@xZ2k2&!~E+rqTKB{!)yG-k<JS$@7UW2X^JGAHMYWL2m5~
zE2lK;f`M}@Rf7h>ic+=B2H&Kk_@OqJXAwOiKI{2s_`<Q=54-;9vJ(C)HMjOn-p1Nm
z$(GpY8F_dVsiaz3XJ%@6W(1AsCg-H*&$bEAQ1LBKScOQcm`i0R3T<R+<|^iCj{XS?
zZrqVl%_2r4k9e%}A}vi^!9w@I>t-%LA2S{Nv;cTx=6-ZBK#eZnWBC|C+7g-EeDPc~
zfKK~9F)^L2#?2?x*Y+x=+!{7ou=)E{O|+@y`Tx3<G8#kKmQly=Es1m(ym>0@7uWdl
zV+|bQ)@Q~}A^i0)>Ge*S4P7h`e<m(YJRNu9{D|C7IqU$aMyb@_th6rZFN+U&73;33
zu3tN48UJq3nTz=Zy?|-WR%F3{z{}L2x}L)FD)6FlQ-Si3&XeR+mZ&ikQV!Kl)%swW
z72w{R`0ACi?GLM;sL#D92!&Ip<da&(gA`NvZ~HJsDht+;1pEYt^<Tz%lOX6O2t)z-
zdpi&52P%4nEZxmR2gonvr(;Qgt$uZGSKNUTk*eH#ZL?Q_3ACK{2tIWHb9Y+_>TTPO
zGDeGbzZwEs*Rr&))IJ#7P*NVTI10%>+V+t#m&pL#o<JToLk4HF54OuL-}%ULre~(f
z$f{OZ54D{n)rkiS!|f8JPtVBxz+Nz9(bMj5&d?AMnlNh=K0yztcr$L{5-{5uu-RpS
zOAwh+rA1~J2!wX&HmA3ZAf!dCSfGte(5~pGhgN4|R#75I^CP)4fBo0lV`s)82;(Th
z3L^Gkgp)JuyGn12Y#SIHd>9`ein5OBZ9yg8613afQON(n#-}}jLJ|Bs`($O=A$lOh
zeKA=*xd<s9lZ1AV6Lh-$#=<+md?*$p>AVg6vs%NbI~YK}K|zo=oxk^$%7PF}h=%i%
z)2|h$QI>>e>VLZQlY>K6&Kbr<$S`1QBXCP}6X>559UX;a)}~Lwt>-)blG<@!qcmWc
za&xM?$BqWTn=fg~fs72I`6LkiLF*Ubb9rJjdqdmK`_@K*?o@O>&sKElSFeHui2Bbz
ztI@Le!Ra|5DcSS-Ga7IN0kQNn@rbG_1u2(lxv>Vsr2Tj%FizEk^JvpEGWvoe-BsEM
z2f$ch_sd+;ct$Q}8nWWvZfu(f-!kQz^pPL$6~dP8c7*4mUZ=tlufU(DEi@y`;vo}7
z5R4Lscgt42qsdvxuB)pn1I$R<z6g*}E~)h^E@cq3TC&=&FP>@5PyLi+;RFFWjw45C
z(2+mVmOD@%YdN5jF_b5X8t0|8^w8iw^#^~D#Kh?}CvUl-CrTR}E>}JkVo-SVQgC<(
zD$4C(pRC2VPqUdbKNe*-+H$A}caih4GS9PiPOBbu{o8uK?a(7hYwh|R6#FSf$mf;f
zUo}0l1h*@IlkL-JSec;yqu#!~7Il6WXa(oS+Ua<-(uij=Uakp^!&%FwR(wbQQ$Nc}
zoUk@MIU5DNPO^}gDX6Pc@<5M@nwIu&HxE$yAv2M4bj%)mO{HDm?vRl%8<VbWX#h&8
zCsMA*lp}akMp+WyR(V;1*|z=Mad5hgvBfXcx9%w|)=`j%{b(@-Q@<$dHI}Z^HfxTl
z{3qbXRWnV|&SZl><~&zr@zsKN76p;Ly%{**HF?1z=>qt42ShLD1@*N}x=L@!g4w`k
zQ6H%pAo~Pxy|tLG*Y6@=ho$Y&uI|f#9`49^t|(<8?2YCmerl8}4-~WyRleS{09v&(
zJOyoawcAh6cY#mp&0A)uSCX2By(?`dntPqwS1zg;<XYd*0?t6nQ~u&*-#%e*T<yll
z)1^ndubY`226^CUm_%!9t036>3J1R;TKYqqAdic#_k%z59lBU~tZNy-3H#Yz%sxp-
zi}FjuA+?+jBC3h{4)YTEJvaFZUTJ0Um?kF7G_-n7rgW}3c_L{DXq)D=RK(H>k!c{Z
z<bALj2zx4m`<G1ALDKhjE#A|)UQ;p;r#c@;8XSbrbmLkInD1|ffz%+Upl#=2D}^8$
zi<ljO#KG4v)1QMnStn~h6sZC*8}p2;+xBX^vSQeU4%Lr8lAR|Xu7Rmk@50`kA5IYX
zVu={Jr{i6^7=9t4W1Q7cR;}7375OGXyU@mW;Z@KpeFxEqorjc-F?G|KXUmQQ<wq7*
z$ZHR4XT&fzVoQW;$%+~`9e6$+nsUy$x2_z{eHpVPOHek-g5V)i`^{g!eg%F=G3O?Y
zLNDb=1ZaB6Jg*G?)D9qvd1IwUqVhfoi9MLGDo6Wqe0s1U?qehfw3*07F*fEn%gKQ2
zAT+o>as2zI^ypSwf#I+$i`AL#RsTR9>uA|qGRW2+#KZ()j%Yui8XV(OZf+825Z^{#
znxg6<{<=}*6EKqM6*xQ++Zq51bUDV$q>sf(zHYc_<ruEJnq!E)UwA4thMeJIZRPjx
zW+c<a;~GUZJ1+LN8s+P?VW{>YXFq`1jU_OX+aYPVa{c<?JFa*IpeW5ysR<1V|2Xt0
zsryxUVWx_9w@tJqpd3EOu(LT1v8+5fK}KK3Zm3m#3mreHprG*bE|1GS(jGQmfk!6G
zRq)gQye^)#_lf-XzXFn<3{dd{<@(R-ykIqrA-u|eUN1}n8H)b>GX;feMy~(kO;x9N
z{`+@3m@dThANu$2_H(}y`@etS!@Wn1O19o9C+?Jc57vgt9&>s)1%h#fw<X${hEA!x
zrwaxe-UcL_x#=4gf(BV&_g3=w{$f?m%DMI1YxmYI**3j<d^naQS;)`SKqldKrML8!
zk=svhuUOezhOGs&q9p?z(3YTM<)Ws<E}!KLOR8M7G`J`icM_n9VY-T!XRqg`iNo3+
zm$V@}(B=;+LYwyaWXLm@L4!gN@LOA|_I3bP&!0ahQ&LdR@U5Y^c3GN!URvpq#^f(`
zQ>3Q$tFtl;0;Eox!`}H~lty-aTkW{p!Vele8m{&#g}M$b>L3C%<=dOC0a5ORkYQ5A
z##(L1(o45giDnLT;5L53D9Nw7OCpj@ZD3wB`osFRM4j28E3*mTa0pz`&e{Q35v40D
zCQB+%n>+{)_e14408sS_>=d*lw{cO~7_?Hr3uc`=LlXxc)K>31WweTUfXgD$f-cj>
zkNNaI^?h~GMClKz#Xs<kk@0kmiL0%#;VbSTj4?FvMu*p?TAAGTIPHo)3i@TAX0s~P
zzz-ih@P=I{DA3He;p?@G?V6DiM$snYeqf^EZL*80A+sk;vRZb1X8RRLrb&FU5-|l)
zoIupsC47To7FOwPZ1Wv9*RFBOto}Gol%Xs6izRpw2<RpPhuaTKy6#15D3k#jP{IzX
zL3}%nUaDKsHgcC8Shc5HOuvF0!ME8=K}(AnTC28;ow%y6#BM$m=czDcE^7Nl0YGXx
zr?aW4sr}sd^Y|VWCRt@BSsap*dm%DVfyyKlZ@VIB@?zjR&<{K;>N{~<a~PbmE3$zm
zBNU%b-j&N-T#H|HD`wlsPlDK_S01j9kYMn6`zqKPFG=zM_Q6fW`xx=o$t>iSlmxET
zY(e!n>t>}ew?t1xffOtvS2rLqP~O6V8!}k;koF~9Owni>b;Lh}LisCK4noq>k90>|
zsxhSK_S$F47cclhOx}IN8Q`B+NX;rQGaUd#O5%HOVP41BXxBenL_Y>5#XOeYbd2pI
z7iI+KnQbqc>{|$2VWL1N3arJ0o4|1p-XLk0;B9R-s0(Eg-!FY@eoT`n1LHo3wnM>}
z%poSWo6M5Y+0-<3NXj6c@bA^q-}g~&atH}A;w>u4416L!64g0bC6YQC#zK2`FfsX&
z#-4xccS-LP=+EqHA2qWrg;7-+3n+Dz_hq>Ua%E=m*$xLj!jK2Y(WBc?U*3Tw!42Ps
z#;L#PqDJaC@CKZ1`0(3vIzXOidy51};PErOtqBYnSL8MWJE*9vYzA#M2|XblxoN8L
zmJ=ix3LYL(P;Kz;?>8n7st?CAL>SUjeD&KUG~bFD6r^YLz*BJB=iEpgL=`V1<s)ci
zlw;w~0XSGnkeT~#F+1F6j+;ELHe?TAg9O8o<G+C1(?-3e`PvuFCkhgU9n%QIk%LIb
zGnhFU4}I?3A=d#c0t3Jdf4W8MzcWo=<|3C0mGeG4Gs3RCf&vwO@jUqR(YdAqIICqK
zI67weA<F*6;cpSrn1$d0FinsMy92j~(XYuJR22BF8kC}ehzc0u*@8r_8niH6zhovp
z7aZTZWfR6;H4CrC%6RTU$ZQ&)hkuHCwPFARy^Y{Plp*&m*4j>b=K?tnHwAFL(-Krf
z1;*ZZ(VzgHFGp~Ict?FE1_6zh@WpoH=hU#{NA*gO@Niti&tHx}@j&bQGCHqk8jT7Z
z6iL@L_s@j3l2U*jD(LnFF})7BO3iVS&i+AsJU`xpWa)%$Ye;3FTTuaC{fnlgz`A3a
zPTW)MHXY#$7gnrPmEkAlj}d`%m!PDKtWt+zyiWzbwdOdt!P{)R*`YH@<8SQ;?^;C7
zW+Iu_3%@QB?T6NHw=|c4fI4unV2iW46AVTjvzerQ`WVMnLV-tv?*cv5J}|Y`=V4g8
zOB&@}W-(`b-pvW!$oe<KqcS%{e=Cr3ne;n%4ha0gCgt+XWgRh_C9V%*xBGZ_8Z50H
z4u!_PlRZK2OPY;Swpp`0^7Cn>AfJAh7<%6q(Rv{mNz*4dP$hOte>5s}cW`j<C5e4=
zGB5x|3x-m8|81;TY=}0S<Q0KLo0{;2vKEt@YQvP^b=<k*q9n?V1*lQ)Pt1~WxbAp9
z4loarWh&w<*kfm0?Qe<aX!=d+ymd5xE~(dW_3G8<sI2N58=VU?&@f5BIO6L@+upZK
zV4`NqFe(j!OG9>YdL|#V{f?t8)e|l;=VMG4+k_XcW{}5*R0|&a2|X0E?(8G@gUOo)
zy0Autw}OxMAPC^=T}A=EtwH7N*^Bz~+!;0F&_T>L8iq{WL<A{!a-<ItZupH&qJ(ya
zKFu>@Srzw=&c8NJO&?m)&5&m`=b^n0N`GqL>Gm6|+Jya*Pvx;*o)tbca`<<Q{dE6{
zY{;D_xyLhCe{LDT^wB0F$%g7%YM(StFFF!rZl@VaB2*wxexd81jv|aG^QPD&#5xrM
z^pt|YNg=D3%#PD!fZDU{emAO4@3GeO7c%%mFS&Yb1DS0^Ka<X<zl*5|eYd(P$S*6Y
zsqI1?VSFsg7o+U7FwBUMuD4F9ChjrmJp1>{leP`icT>4Z7B%*;0@n_yiVgYGA47U0
zijV{5e%Eew!MfZ^gpM=pjF`hvz%(c~&X8wNSCG>-t$$wghpt$mPe-ifk4AkOYHE5+
zXC7`3kB;V913R=ls-5;RVePRM;Po#@elHDfckkspc<9ijYGH_$eud*~$pQ0uS`$`s
z)b&m|2Ryihl@X5GH1a`O^r9GenN^+-0%GAK=;0A3GL$UaUxyQNWQEgvGr7QXHJ6bT
z-8A5?jL2JgAG=m)_ti)9lC;|#J<@(oq?2@D<A)LLLTA$#C;%-K_Ksxxh(f_bLX?;H
zEX*y%ZlYVb{K~O2gXIVuFWZ9&Ujz&HoO2(Cvi@0)#KXY46fyF`?u$l_(yuF7I=;9-
zOa~y5k<=Xt2XH2mXUa%bo7wx~iJtDuq$HJL572?#44to?io=I0*HUfSq8nW7>grm7
z%GwtXu2+54c5~+1{EO_0o>m^0VOLYzVG+`IEi-euj6O^hD(9j0X@Xz`#o@Ib<M0M>
zA}I5eLtPzwI&hG1H&i`n9?qr39$@xGshX&_^78V&U`sw60SZ3-RM8Ls&FWH<ApU9*
z1aPk@RkN3&s3g#U?mCxCZ$Zs^JrhxZ_ho8$*U-QKUwDw!d3p9~5~&82T}iY3p+|)c
zu$;hJ9bV?kAXd1UnQ6U>hOlwo7X-`;5;uVo2iDecok#b`JWoovHk3WG-UXvn`q&E5
zmG`}C;|Si4@A3JuHm%Ta*@yP;B)0T|^hekegf}UP=V;0qT8ABX{b99kj%>{jN4h)q
z#|_R?C+ya``2q_PtFc@x>mllaAGAx|tHzT*P5G$X756}^!`#Oi!`GDRZ~Xjss;Nz1
zyL$D^Fa}uMZ6Y^LNnAPKp6^*0d)iINK~iQ;un8r;2kz1m-Y7XU+g35!_X4fVz(y2+
z+dzg*MX*S_wH<H@2POVY0lwIozC4R|S|D>p1NInTJb}(R1p)pm{~kee&CjNbRivLG
z`;2eRL(<F2<jByn;tGijn~o$-9v(VqY*7-~);(JD2R;HTC&Nsx<`R<OiHN<scKO4D
z_ej42s6=`v!WdI#fwcj@=-JppP#AXcsRggSvO=kMG<@Gky37r(-w;ik!Mx5U0_sja
zh>O~Krt7kBV`vdj5M*xY>*trkmfA5sgOj(308sPe3w={$<`Hqe<s?7D%v#L4QV@E%
zR`!KbrvpuF%uy)wjjkdGHJ54JRqD=$ULX2HgdBvYnv>5TsCGbw$;_+s?1;^bn7iJD
zi-w)u8^_`T#Z55M^UdYR2!9CKeqp(M`EuR6cMm78l|l||XlSU+Oy~s?0mBqgPR^Ri
zp9553TniEtommNEH)ciOEKI&nZyjxVbNM9k$@WQcx>)UGisg?6ef#X|gBTLz^SlKO
ziM;U(H*h3JS5X7>NPhxq$)F1J$}5aF2U0HFF6%mbg(w5AX}>sWkU9d1i^O|<+hy12
zDJUqO)@N%%3u|;0YR{4N4}NOJ7lhrKePUv2`n+}YN5s`}{F#OoMzFk*PveQ^$lrd9
z>5(mWD7M@wxA^-P06s(WFv;w1>>HgIRAMNS_magglCG54Eq6|Ivx{JVahTbHTeZ%=
z=Sv43z~#x#!jiTuWwbW=aB&>8BsQXP$n6gtJXkd;hy)HpB3lT@$<JMrS#bwdP5Scf
zE3Z3|rQ}1;nEu4t5Nr^jO9}!OOAsCylqG0659-Gj*(-RQe93wEFg1ZLes4x9a_QHN
z_jqgxj{W;9Y{UnAAM=P(IcVC4^j_%bj4YUif9~=$%<LfhZV>AnX)H8|f7+90tI~(Y
zchA?E0R?&jUNMzTyTIY<x%t|vDy6U^K(yYt*<fv3#?%w{UNhHxF28xyT`i4qeq;Gi
zVLUDg4GeVH9mcm@75DCnJPHwH053_I=Aq$X_)h%0R9rG~&TR#8FG=_}z~3N;;rh!c
zt#nGgq%jRc&IzQ%=2{C!o!wYA7IkAAg4n7|Y6QIJv;A2;#kMTF4?WF^hy(GwS_js{
zRxtV25@Simyg4(nYK*7~KTg7m@X~M0TRDMmYA-Tl7I*o@QKOodPA_r}*JOkznQ&Va
zXfUqo%6v5m{dB7np4SAIu?cS^B|5|7Nct&=U#p9!qmEsT37WH=)$}ISHdeUL>gle&
zj~(Zu_R$-5u{3Ek5>GqyJL0GTx3%zj{pJ06*^g{*nb`i_6~XVdSZBl@mu&g&(ILVc
zw}cwnALu`dilQl7iPs{(?2r+;qZ&y46PZpU!KEa~9;~oM+w^sv>X5Y$NeMKcQ?)bQ
zBv~BF0m4qm*k<XF$PF<)Hh!{%dlH4tw$R8-Z>MjjoeN}>Qm*_oq=V7&+RT1}d2v50
zl%w^A$LHN3eY01tT;UtSNiTQi;khWj<@ML7=vCv5GW5kqR}os}4(I=s_KKg6=iL20
z_pA3$r0)fk3n_<wBsnN!WZqvRfyTBHID=*03^IDXyHVGwXOpk;B{QVPkPw3k+t>}5
zx`wLb)R*30{X+F0KSp@<kzIuA^Z(0!Ns@mG0#%rnY}n1&aE;v6h<Xs6G8Kq+Uo5*R
zNvTJMhmy!!TYH!m)@e9?yUd{YH_eNIQLLd(CcKfse@Oj<HAVfoPj+ZxzV-cl`3yMW
z*P;nGYM}i1atd7-v&9<Y5Jo?le|EK^f*+j=tR@lLzD(VmdQ*GXM_hTHXn${;>?_?)
z=#+SfgX}B-7_9HzyYiVGdcPRXeYR}hB}isr%5f(%*1~X=Qq)tgz#*~Mv@u@R*4cyp
zH_cU{JqF#|sx@be{m|3<@sAq`DAmcRq6i<yv~%{#C9g=UmQ!BNOYB}tCuVk^pikq>
zNjAe!Fa<6!BrNHBdCA<}#>)Nc$M-E~l!ruV{&ub`eDHvN^zJ1b!df^A%}`L!7R{aa
zQtK1<Lb(U}am!Er@JdS<XD8M?8AP0O%v-mhh@w=tJD!YTpzdPvC!f)9Pv`UtRE~c~
zj=G_0rc@W8m`ATy(#cC*{XurUxS-$;(vn?*GMb*&eta~Q$TKOMI)sw1C2qz->Mv8$
zQ2~mhXJ+0~w!(f<@dOZABz#*4k{_9D4ptAs6e^>8(hZCE$d!N6D2ciF8;<PdRJ4%!
z!2iAyJaB4bgT;V|*0-f}qLUJmT|0!a$zY^S2Y?sKl@Ij;tHB^Uzmly&iW$@>1>uek
zr88rsN6dbJ3dPYq6j&68^DB!IqA8C&oRXBZ?iMQKDF!*2>F6r(Rt^ZB>t5!krUYgd
z1nhO+#wb)t0a!%sBsksi4o5tz3eg~|d;i|I+*l6YO<JP_jZHifN??LG9l~;Ad3IRP
zyyajFbiXYc)e$VmJ2Fi%nDV_Xg#o(KdS(@`$x~ym!9rjJ^fo@`D<+0puDs%)#@kkr
zT@v6TjJk<pP{<rzMPS}1BEpOlR`=mUI2-UFB-pj&kP2W?@t8HoNMtfWV3N^T@xov!
zK;HPrn|wGp`1t+=yOaXvZ7TPsx=PfL$L!wkE1l36i9c}U?3YZ$%W7;?Vh09(%CXZJ
z>$n5S!PE$7*t~%hF(C)};G(^6$N>&wbBEr#+6G=Z%MUd2VT1DH!?!_5O)Xcx_amzK
z{eU-+Z`{6pI~lD3awvqnYiHJ${4hS@&>_Hpbqx)bC=u^AHK_yUCr2xwdGbhxl7*h$
z8(>`F#gb;T$GIZ-dUTkqqKj4i<3E_?(vr()Csr*18kH@LXv>^%aS=ne40!_FcDmLZ
zc=_EZp>G~JDhw0}GH4X&xsQXLV|_bZ&YTV_kfI6z2Y^y27>jO#Yt{#Lj}S?PX|}Nh
zq$1Cu&x$bUZ*ocTd81W(+ND;D3a8=v@MNP>nXOyyFlxhVH@!Ny*Zh(4(PPIny7z1%
zkU{w+Cm*KTy!njhg%=7mzW)9Rm^^+WaG4VM^0#&o@vz#DKuB7YKcG&`hUQ&8MX_Nh
zKn75pGh(VIAUJs5JV;S6FMH=;iOb9jp(6$t9mm>e$Y~1oH=#Bl>3W$Z%E3XvM^>Y#
zXv#2<M1@Q#_cgi`k|9cA6$63BeAj?W58p}P7aowcLUE9}%o(u}3lQB8?au>$rRvJz
zOo02l)8MTpYeV1NLP{cN`H8oEL<KM)PQ!DwV~%#9$>bv+8g-WQ$yv_Pgx(jhF0Hqt
zkDsF5kfxJGiH!V)IHx-Xp>5}Xf~-*5@HBpey8q7)JZ$rB(tz9ikpyQp-5?hbVmX%)
zhN!o0bsSy8oV5uYgx0FZYBXu5IHBFWed0(hP+nDI9$@O{?)%6Kn>W^1qv(vud8ABa
zpe@w<LQX>>cYL_;CO1}W*P_&9bAo^CZ;zcn%bOz~0k}~XZM%`}NA+(3bFYpM_SczX
zxeNB<kEh-pe9G6?cca`z9rXs|Hn6*jzRQnjF)#~3)qXt7Zb1_&ZmqNcJSy3mSOWK^
zJ)pZh+n24F2#b-u#RlVrC6x4@DaG$V8>k;uIJwbJMXUqy6Y>+VkV}|}ut(Wigc)g@
z>MLqU+?%sZPa}Gsi|n(j55x3X7PNR?CMI4+D+V1bf=up^!2@DfIDOg_ZQCW}&=2F{
zLU68+*c`gRxN`OkPT<R2XhAXI8L6qM<$!PjOY{ZW-4D8-7UgSt=+9RHS0q;qR~5;A
z`J-;8zy7)hoP-AVE>B}#g4Acs%&U!(x_QdZP9TIu+y@OQq%+&7X=rZ4i=k!^xbf}m
z=OR}Ipt3(zf)s`GSZKCxeQXmW0S762`ht$SI(@EHmk+Krmm;J8Lpkzj@Uv$e$SnWD
zgkdFG(>oX$4_d#|D7<N%`V(Sk6pU*Jsv@xse-JK^REg0QKT8_smn4Rm;%ea?JDLyh
z!ezskqi;-Z7{o!RrXB>;ok7yt^5GM*VSm7a%i{Y-aEb2J(@tcr2T1W<q73>==TkHe
z5prk+0P-FTa{+8iZXiI7ui%)S?JODEI0Jv_lZ}ysKM_F7tVGE3j)Am!XEB8#9}>LB
zh$xX}`&pZ1Xk-MJHNHIX@<Q7*ajJT6tu*XFCi?ScZ{W%Uc!p%82SQyN51@zvI|OHS
zft0_o;5aH6bm>3m8xSZsBV2?|?dM|mj=rx-7<3N7U@8@)Tgj}I>V!83HMpxN$QD0x
z4i+gFdV+)>&?L~3Sj6=P3Ze+i1~S2}8%ZNPiM{?o;LY4V`DEoI{Ru<+tmKvbrooc6
zrQ<tXYq2Z>=w}A)7No=touAHPgg4}tb^wB~bJ3TRBXAX&KXYPJMmugyHRoFE30Z#H
zijhUY;a<W1BoszF7z=k4U`0X(F`o~)QQ=|-E!h5Nop-AOa9}~$8D4y6KtSgC&wMst
z{A#k<AoHJCS^}<DH{0wsl(&s>J!E~Ge*oKg;HHW&HIN;VB6|CIdAGtDGjU%mD_x)G
zPctZFj^sBw1*h?gm76@SObnl2+$O)q#tWS>+W#NDF!GZ(UjNUUZ|m$=efwWom@Pdc
P@2Z|rR8`23H}?4-sasKk

literal 60611
zcmeFZbySu6zb%a2x^0xw4HyWRfFNO_l!SCDNOvsh5L*#+DIg%BbW3*`pdg^cS|BaW
zqPw~CQTI5%_rB+k`;KwW9p}CGFxXp^wbt`I-}rpyXU_TgK9ae5dDHs6>*?s|Hi=!i
zC`U)P%8rh1h4$Lj_?HHsH^ca2wYJ3Ni}({?GZ%7P@y9xgD=OA>bW9J3|CV`mj_A_S
z?V}UBcuwB#b$^q+-42BxQzKg2s&3v8quWn^>dq1OsI4o#bv=$1K78N0*6Y|?clWo)
z5?c>(pRQ;>ahjvA^|bqj$3O3H4&Y24+P8N3-#Ps&|57=Bo^o}{e(CcI|G}^fwkDgs
z1;MnwCq{iW(K#`(F-L5J1rC<d>#Y2BUvzX2Pk(RQ{O4yn8GbgqWxxNj@BH)DRlk39
zTYJfU_n(*iy<?r`pC2E}{HMOyj>l=*qTYlT-(2dM#~RySzo;wub?Fceqq}G5=xTjG
zv^{Gw^JUwk^PaIh>yh)uU%!oU-<A944*z;{WqA4TpU>X?yJ$mUY?4k%DLt!>hk)%M
z<DkXwU&*ZgUwEV`#!ef7G^ZIWq1m2LqlWZ&@{1P=DSA>o2H(#1_V&(J2QP+=w3ir{
zcru+Ro{mp^_fDodQkq(Ldj+XC+?PXGSaYJU_F9Hn)3}%G{Dn1Jm^U6uNYKbB)l2!J
zm(u%y#pM~>&fU9>XUBW9hw|rM`uIdlPupoYjeK&LZhMeMqA7Y!^fzW*s}vmbP|Yxl
zS4}gDK6hvJ><5;`5Wkc9rM)(*^FvE(X6DB#V~wc^F-nO+Kik_$^}4=>-$Kr*W?H;?
z{N%|I1#?|_--S~c*CU?yHtb%_xYV5IIMElI7^7bqB(O9;7O#_N+K^6MlE-=0CQ#7+
zMC&ZaPifcL7dyx1h6=Ra=$hxx=o#1dR!2H=bz?xxngoQ#zMkx>OA76y#K(U8cu~W?
z(|hk}ix9nv*U|3o?lESMKhf)a(oLy<85}%h>(|(*o}s&Z=hv})b=3X8#=rG;5r21N
zu*-?vns#rV@Azgs+VMr079i}L{piV)F||q!+a_HrYinnU_w(mByjxNYU+~)vhZt6c
zJ*spFw)?rR-A3T)@!}mjcltRF<x%x#(oGxuU%!6sHl?Je7m?L=pJCoi%g89EKGpDA
z;e_HPQoZzt`<qfqD}zN^%o`tUW;($nV6%3*E~R1MT)kF;VuHG1EiO{+<~ujj9UR~J
zHZ)Yq#l<D-#HUZ6x~io`c%q}DT{5_iAO9{HEZj8Yu%f=?YGif%U~aBp!9)<hb+PFl
zS9fRTm2(2WcbH)4sv-WakB_!z_r=88v=-hDso^uKIW*B<e=>yf@WlbCs+~&eZ?IO@
z$WP7BjFDzKeQDp`To5kH8?TaZSX!9sv^Z@;i_hr$utj8C#iiVzrw@~M_IR9Xn)q&Y
zi`$Bcngbaoc+`aaStBmh)I%ZJcftkwBhPZGBwv*BKlOdIv+RzdzHX{%gCeP~=DB<o
z*{-`Ha2eMW9#5@$s@XB|=g*&|-hL-^AJ0zEBENo>ESTu*>LQlJZ0nsZ%RL00{`Gls
zS&JM!_Xs(pj*gD9iKQ7+DF=g{-d=dHIXWup%GJng_@0@W5pbG*w~Jdn>N2za#dYh}
zG1L6d*d}N?ja;HRV=nZ{{lokFP51+^?%cW4aBgy-uOTB*p$nTOyVFN)xkKaZQP-I#
zxIj&U#+i7H97TJ3dn<uJjzfpOJ>GewCQNL5Z2yHVLSaRB))+VE+KWp{)?k21^V636
zjGOVzBxonIFgKM^dQ>f4(wGuAlC?<OApTQSTJ`127yn~7+&vlj-~RlmjeEeu8r3K3
z67v(+nQha%EqQR2;JPW7^&c_NSafZZu3jRGnd#;&3G?$#cmu8w$Zsv0b8Da~OzcHX
z^tDKiMCyxIujq-`K$*jkRt}vgrhm#T^us~Krbi~YGl0)LLF~l=!<Kw!JjAo=UU^H)
zq^m)K(OK5reg4J?Nu|xMOA7*)KQFSUcl59QWdGM!+F!qR$1rQ7)WfanQUSba%=U|I
z4_G)fq-ABFV^`l+P>NNIcM{$uY}R->qa?ojt6zK4Yh&sP@>i^%c(YZd0=N2=vq~}<
z_{>ajt=^>E>fTdLIkp+4oA;jjY@CZ_n`%t0;Bahz$~W66{NTfl!OZr}vGbUQJfBVX
z`;vo~4+yvZx;yrR2Ltd<C8y9k21|<zih{fW<=AmEoCSu}2V$MDq4EZ4h$#N-5<Yf;
zTBU6kuW|;n%VNf|x`W14d0%Usy4xqXmO@(l>zSr6Z)mobyn5A>#~HCvF+0fnh*ID5
zNIPW?p$wt2*?49Rv)$Q@Myn?ii^M17c)onOBX4n*_W1GR(bG%0V-?kTQ_ZwVS1soW
zZv<i?AFs!ct2P|Xy`C40WlSXv)g@gxqLlEG?Nf2FQN?S1;f$jK0;(*|<IgAR7Voax
z?k@1q=V)7_^zAx?6JE1MgFLNNgXi4YJ#RT`RTPLoRQn?}D(bU&#@6=YrzsIcoJpLU
z?Fulbn7huYC5}m4x_p^7kkOLfyfoLcwE5I{3Wt36xpxT{em!8J$hO?>R{`ev_5Ln%
z0~tqzPAnk68A(kIwP+naeAva;9?u=uTN|r%<jk1{{h5OK&Z9B1q4z6KBzTP+WM}Wa
z&tNvJ(#+#$^Yi06qy<OLsV@hEm8-pkCSTR+#~vLS8QCjn_in-k1MlLy?!Luf<XNZj
z@0Tey)C7&D?1O6~BZC}D{h3edc~GtH-Mi<|9cUXjwJ<xep>)=`Hb$2{+lyH!=KcHk
zAvFw=Zv?iulbC*|$;IcbLM4I-=#=q?TUl*JKJ7Lh@A-~|6WDS$HnvL9nLIACG$yi)
ztNQJw4H;95t5+FUM?7s2VBj?|kh1OhR%BlGB{_b}z^$ATs|~xkQzJCgnCGk)Ca7xF
z4H@QJ?6P9kc4J@t{PZNg7gHQkHL<e6G^0sRsxnAOE%IvMsIpm+`zou`jO4Ie13#i=
zLq%O^+?<>>jak+_+8@`F`s-w$?&Xm~5JW<0)O4KePx9dpSm0gr{~rA#iMevt-4zPj
z+Hb?iMTtQUeTR`rNHJ;|30N@`g)6ogd?B-Is+sQ9Nkw|4Ifr;PT)uocRwYG`GKb(X
z$H{WVxTvRRiTUlOy{Fb5@;n=-kwfv%pXmzle)TE}neJ0b$r0pr9%D+XX2QB0V!^9c
zv`ns&I6d`3q?kTqa1VFE{AfzLnd`P~+ZtEDoU3$QY)@(wSsdA7Jd61pSBX3>+Fs(N
z6evKdiC5zz7PxA@Q<f*wnTWS<|E?dnmEjxv_U&5^6Db2?`xO7#J}d999O93X@a0Cl
zxSKyeDnS}*ZsMBp_4W?8ZMMI>XV0D(t%CdrsQ^W@nPjhP)EI>$t)yW5iejUw8C03P
zsOqPfmdl6jZ<KV{o2?mf_NA|Hq`Uj_ojZ0!Vbwci9q503H8QQSzV8m7`rP5abiKTP
zq!|aNk=AI}y}LmfZ&_NLvKsSZI-@sH$*_HUXhq<exws)e{h;r6wg@Y8y-3@+vu`XU
z=1+qEiypfn%Ad!$&-2XSx37LDbu$`BJ>T|Y7A01!-Y6p}>A`mR%o(*jhlwiencj4h
z`ju}AF2=`hKX_HS8regk&ixyIz`AeN8uiY-0-1`WZ+Il*cUgIkQ$|Q-W@92t^VY_*
zx7RSs;4||mNJ`v!(?6e3<}j2-ll}Dq7OifG0;~@{?2oKItm833#QSF%hb$In^Mn|>
z&nf)bxBHH<*}1Ml#`pI3k5Mzry0ra(q>PJ8zNYhpg7IST(!744u=5WGmYq90DYfsB
z9agA%RrlJ^ezd*caCGDO@uJ<tZ?uMS*+#O}?R@n$-g9Y)Syl}4@g~c88u7_IRvlMp
z3qUIRQVcq$9L5c33(xjnaH8-a_8Vtw6}YG--+bhPph9!sz%7Hti}#eVOKo8hR<D&B
zKJ@Hd*?ihDk%sPbmlA)+nqT*PPg_T4q9@cVMj=*_vgAC~WNW7TBg5QW%8{0n8kc;B
ziwAgVz3hETIbVy36tW_x$McK%9v&Nw9p2wvcf;f3Nvez8(oChRs&l(pbFRu|FJ^DH
z@Q4T>2DW#c)b<WywKgp0J#wTh{*t4@#Y>kCb8}ZXuw0SoWjb?fnrnN-*uH1~BrLC$
zLy2_?N*cOSEN5<gHPuAUi|<8FJQ{Mb_GG1?j#P$WwJ3>3*>wKpo8#9D>3;16`5QNG
z(1$)Uv2AhA;6c35%1Qf~u(?8H$tex5mJ<_633nd!WZ<jd*nZ_bC5;qat~Zv`3^cEJ
zKs`~tQi*zdAlK3~uwROFdW(|=$}4=ixw6?+?nn6B%VQ*e_Dda-w^X1&t%FwjnR}a=
z1fpCPW+`()LXNYH%0@`!{>U5?%{=vLOd8hZJc`uiC0;B_h?C2iPYocUI?RuhT-c*|
zF>AIjwux+mJu9cDr$^7qF@(WMjVSTh6Z-!B`Mj};GnAz!`|dy&nnjZ+HGx^sPsBAp
z$a%6}{9>QR)L>J5Zwa&GS5vpt<O7ngLJ)0c;!p1AK6mWTbpB2qyS1ET5p`sOg`H2C
zHw!KR)^l)k`^Z<B>)*PSzU!!F-1xYSuCA^a8Q85Rn`E5ffECa*%czlM6`qj!b3K6I
z=e;)Ny*5S|ej-;i=nR|wNVSv@Rk$oGE9-w;=l<JJiL1Bm$GV~|+lw6lFjLK2gfnj5
z0=PJF@+6N=@kY|X4+R2Y3NKE#Tinwez_e$P+AYU>WHs#C?l~;Zbf@7hu@Wnz*=90a
zmt34DYL)uFhdv;g+(*V}imP<M*4qoD=)G^CF)O9PYftldZ*_^kOQ*NeDMWJur2#FH
zZ)P;4InUi{!rb>&g-d+Pc!O;~8Sg3&sLit0AE-<E@MCjMQ$oC2MvQq&K2aVmk2(1-
z*>)e@>TVB2FV^Vyi2x7|@nhdFv&742JZ0eHJ$Uu?u&S1*=zWD-)e%xI8HS7VGm0~}
zSFD-k8nQUu`14Cy+1M{oeSnuY{rwy#JNqYdP6b(w$?A7EKE$0E>#m$q>E>&3y4JQ}
zkkPPEyq9yT#kHV>zN;dT;oB%mf(YF*pJnC^*u#=fc5%f`0nCmmn_rr=1Wa0?xm1^=
z)6_h-4du>`f65&uF04u<jT(T;s0Q-_p^#BAF)@EW^PoyfdSd=;3_^OD+brWib)?s=
z!NzEZiM~~g)|tdU@bmNQt54A{ENcW>RL!|%x;FH&q(;uITCC!iK|#!eGJ-_yR<;ma
zu4m1_R^baw%B7Jl&!v_=t~S}}t3^>W&kL`st6N{vTZVdWXlnlIl`G#6non7@7P`?k
zb=m**_@8~8Aey=2tVNo^_wz(xumQL(N0PSg`ue@EHkLHpdJg%I$d=hCv1(HErJHQ3
zrD9}1EbX@_VY2PPm1+^{iFJglOQOz_JAdB&N2*~cqD~Wusv#~Rab|-Wy%V5G5OP%n
z>t#;^P!y`!HqrSDlWMwpdK|pGic0F1_lSCzTO*sucrn)^uV!9INcZP8jhUcPjT_QU
z{RQoleYn&j5K#{E@hPFi`Tl9Q7O_7T25k#AOiyp{iA~H`1?&=V7>}B8MG+7$vyGRZ
zUj?|h#(mX>@uD>>1~a3b0#+RlfedO<auAP_jh$SZY1uAg;!Xrt1pmt|&QpQSjzdD&
zTvr^Y1{DwkUOs>R24kw=JUcFnV2wKUh`jBw$~!XZe`1inY%%@z!F|6168^XI^6pK4
ze*T}yi9i3m_3_H1e}24pXj|^tohJ3km#}3OT!`J)7_g1E|99YbD`hR(@bA1S>X44d
zI@{mX1A^e=&{hBXdH<g-{-5{a)3F}MvFv;hBBDi~?ga;e?`YSh#kS1@ac7XO(-uVL
zhcDdgUO}#jlx6`3L>g@5Z+vrQ)?BbDo3z395M7KxW2R+ty$P}6KQOJgsAzb1;|{6C
z*UwL-*CEq&WBkq|il6bJ*dHf~@19|#qvIs9`_*9Kc$8wj`E!HSMCA=2R~w@sf#^b6
zu|+V%usQ<EXe#bw6)xL^xJZOb<nseLP231Vs2Ihn@YlG2DrCOb-ml(+-7t04?F#(}
z5HwMGB(Z0zU@31epIICpF9sBiQB!u>>P>r5C>}5zYR=O%e~%EM7QZcQCy(Q#2|%8P
z>%v6a=1Wzs?Y)Q=nHQGHtWr@?*(+cZ)qg7|$Z;^s%{R7G=rYPB(w1XR)59F*A3$-8
z6HJdziRT}t2P;(v>qFCZaV&TO>z}C7m<w3kcRu;h_6_%Y3h-hRv!F5_Q}NE~O*>dv
z63e)AB!P3O9(zu5%xetU2oU#!O(jhrY^>#kf<*_Eu&M{8g9KwO3G7VCAD#N~?#6|C
z=_$#cEFxy{V?@!mlwnN0${QdBw3fP9*=Dhlu^^F((nvG>mB!Fq4Ec1N*_78Cfi+<<
zOHZ#oZx55l^OKM&P>3k_^IPlP(^*Zo@8-q|75$3W$8m2b$n*Ky+S*^EWJ4v*%*;Oj
zoSAGe&r4XUI5Tvrm_Eg{ftR*~0oawS9COEcZc?Qo8*{e4aw&~iHeWt}UfVP6b5k)+
zxh*LOd<KJ9S8rsnaG9D63H3#Cx;bJ@+vXCkpj8`o5sO0M7yudTmyL|4kA;jDWp;nA
zs7No}$iN#{m87q)A7Iv$y=s187$4yf$4Z~{>t*z0GWlz=ZrSpfv5qe<B9KCbX>*v4
zN>z2Ly0ui{oC7MYWkWeJ(}=inq{Y#)qZlN^>f$RWh6<MQCtQ&>mX!?ANGN?24tHV5
z)kw&N@2V!`Gv-QUUau&cWr+N{<WVdN>b+tIcz9}0GkTT|(9_Ym$KAKM`XkFaG9hPB
zKv!RXjeK*PMbEw6nxH|c5=ZlPkY8c`mz1lID8|VI@S5&mU|=AV0yk7uRoRV~Jwb@<
zouws$HeGAyhnJ@|E_HTy(?Fe&!xZCHS8?U1=%Rq6jALJHExsZypJ7KQe-(g3)4p@3
zSk>p}tP4JgSEm>+UAkn1vJZp^bB)6Vt|Lbzuor4jA&?N*?YVq|gA);vXPxg7bM~@a
z?^>c}UWK^&S%p;&aS9J;<x+f2Vb~IfPM*Bh;xzWuEUVKeq-F!%S%q(xKJfQ+2fHdd
zIAk|GtsHLqkY?E~iU%$0wE@M+AtIuM#Z!$@Cw<t&cULf>%B2vOjYO^Zyzx>v^5)UL
zZ*T5+H=5SQc%xEd2s~|h9-|HJD7j%kz<x9=e`(S2DbpE6P_{-OMzgXvGYc9>UDiH7
zigcI}aWu2l{g|lSd!C?|FJB%LT^_>G>@+3?%7@6lz8bguDwAsmf^-mg6s`D>p3HMc
z?oSRhM50{#%?ovQbo8LquX=g-8dB<6T>Bnp5T4awdbrJB$T6LGF(^=irULQQ(P2P|
zQ!%5KY34b6>9ui)AF9_6P9x_4xln+F6qJ<@MOH_Dc(8@GI5(70+6-8!$s)bwmO9yn
zs$u(uzI}`|kVajd+ENjLOdot46&Zyi2UsexQ}64mt;O+C`R?{{3cfTc8=F*3yS7zg
zRe&`H&z8|e?J@w3cf2@CI#{^0tn39F0Ey&=U7RvTMn+l5mX?-C&(~B{{T-$T<5^ti
zWogvJEh;A1q0iZPz+T>@6=n@3x-P`7U%#HsyRpV=&q-0_C^KE7ny5D&9XG)j9T5`J
z06j6L>}$LsvG3Ww_^5CRUvY9DH8Jt--MhywkG0sD<&KD6x;!?w|F1`2r{jffSseS1
z2kXYR3zZlr=IKc#Y87Y#JlF)F;0h-gZ!FSm)OE3q?`wly=i6B{yNS?E@I(j*5vi%C
zuvCs<RS}Ei(ryj;1Sb@{#U6WDqi?#J{YVufum(>7fp<|MDTIn{!a!feYMvdhmIjd@
z@~l`Prr&lX>;1%>$58s?4U{CsrUX9XN)up0jX+Y&Vj@^a#g5SxX5GtqY5f&YD9xn)
zgqYmGkF>N~1FBwp!a?d_z_Yu99CIrw%gU+=b`&MQmr-M85-9oFIF*w^<KHgK4(1FA
za;JcKFdlXX|0Pb2ko1!?yZ#unU52c6>B%liGC}7m4I=p5id_P9CKiyW2mKoc^W5*I
z-|o*1=15EUaE{EyW=G0CL1__-m8XjL$T&IWQYnFeC`7>(im~B1eq0v3XWx&s*u{k*
zR~kM{m`d|1kbNffDbUX^ns_6zya~+!p_zsZBCn{ZSV)Wi+U=BnI`C>9E=Csj98%J>
z50`V50kFS@kT2vonYx&W7}@EWQ8maQzDFljzmnN`xM&UW{5G`;N{4~79zA-LjiPCy
z<ApRagf3K9@Je__l}Gwm-C#foSTBC{sv-!0@e+|m*;u8-NtH^VZdS3<&!6A@R7=vn
zhv5<?v=%}|K^k@TeA^Uyc?)m>D%+3djbyN2EPxP)j~`EJJS!YNV$)aiMV~1vD{Hnt
zrLv~L)iuy{aptj?7u8!yli-yU3_2`yJSg#Mk;Jnje#rw?5X26EqYw%n)fBy_ExYuK
z9<tM0%13wxp0QOei76=g4(6kPm>=v|%`!$I2YCo05!obK#8{<>7B-Q5sOVDy6e5ag
zA_9-*FfFDh#dJ%*%a{Re`J!B}`pMD!Lt-2twJx(bhd~00!Kwy~`H^dHoz;nbz+*e8
zPNZrA`VtEUZ1*PmV}(Pc<ZM?nFuroA(AZ{}oKC!)V)T|(SC2yymmmWqYj9_&X|RJm
zB!Wn@uh|8aC%ccP3zwmo{LYm{>q9o0Jk1o7`Pb_?S!sgJ-pVT4!&fl#l;>G9kjEX~
z(^jOc?hPHvv1Zf&#4Kg%E09J9qev_0WDdU>?AWcZRN%4@SF}7Ivl&u5hbleb?%kCI
zcO*JGJF~c^+Py?ppQ1aDs`zZDs3)Ugt%kBP{kIbklz1YggD1016Yi)op0+5Ie0@4e
zoe7LKNv#+}F;Nb8JLu@>l>2JA^pf%vm~O`RUuQh2UopN{0yRT@HYt{>EUqwVEv%-#
z=0heF0&w66Eh_|WVYr%n7(`s0&XysnQ)t;^V`K4F#FU`0JIU8<7fQ_ryzES3rY>_s
zAkY~d8<PTMlt(!Uu;Vq63pP)2k5;!>uYf6U!1J5MPZ_#-n9XS?ieDYgpMD?np@9aX
zd2G*v<Hb<lPKMlehOD)xO4)tuWnJ1dqDH*^s#U9m+jCI^d9YQ7UiPvYW8C~;kFb;7
z*^)`noX!a)zSm!i6#dZC@%U0&n%w6vK#HkP(s{ts^Oi<~bYND70<9)2ENr^*KFU%D
zCc8*X^A_Rhkmom%w&#5|O$uFBSi@_5nvpV!AhW@k^A~V5c5Yt%Hv>STLUGGJ^<S)h
zS4YR)QwdcxC1AfJc|meOhdfD1NvLcoahiGAfETxhIi(jT5?xhDL_yv-FVp0ek1|J-
zhPujgW~78gh_bzBpD|KgWlPeo#|4%#4zE3+Vq7`F8}PJ<LPvMwvilU{&)Ek=K4}qQ
zTrq)gxW=ZP<4dE(hfQXDr)&2Y9r+R#8Oab?-D^3gZXOj3+SRMfci{pEprK86O)m~g
zPi8h>KVYYYY*b)*%B1dF-N58CrwaWtsHgD+v~n`@;=7e26k;kVCB>CN=sY`yg@2@*
z29!)7PBd|h;XVTp(`Mt1u?RZ*>N71vd6r&C3nwkok4(k@?q}UiJ6>#3_pXQ|MX!8s
z@Z2Eol8^iq>tAzl%=W21fsK7xKnfMknSXzKNwfVGpSfn?#60G6{}W=rhkI6S{TRSw
z+(pvb)9&)MVDg7?XP57R@#XeRSijxbPV0(iw#S+B7BB3bZM3fRLq%<6`LVb-+u7EG
zfseb@l>Vfi<duy5^1*6WR>{wA-ru<AXNvlvL4Nn=@}z~Nj}2)(CZFWC5@K#zKHz|t
zuB!j`6_NjV0n$wj+5C{u3tEa2#J(T{64UDJQqDtt^?=#ovpU$91K{7(U1mDFFswWP
zQBs91R052o<%0oK5E$%x)#|;xfW`Ueql5F5oeT`dn?WEZ1fAWMTRRd|Nln@n^J{WB
zvG!D5kUGviT1V$r`gf7zX3IRWXrnT3IaKV)eUjqhCxGiuJ=ns+dn>02iQq+WusJ1B
z%lyQN6LD6-u8UbE+2U%4C;Mv4XtN-0w+*wffpP0fZ!kNFTAc?%_bJGM#l1FrBdZOq
ztgODGEF#!|xLNQ!-Po55M$utuv=SCqldFLOog)XF5aG=_iREG4Uw6FS;<QJT8Q&S(
z!Ba%C>1r_HeGwR_kr0F>6i%ivYB`PE!@fEJGP`czRtnIfHKY|)UGOtBOO};m)|=U}
z6e(5-K<Qlw(R?6;qAWD<EEg|dW{7q&mN#F$k^VZdDf|$T{Nmy`uc@n>fc-wq!Epi^
zl!sN+<DIr+e^QAc1!+r5Sy%4bHDdYOLpA&Qob_^?jzO6ZR|JM#F$)qvthx|L<9A(=
z;o-y-j{PuB^g~$K3v~^_svJy*B#5YZt24Ly4=G6lp71O^<!c_!9!Ti!!iYE*xA$(b
zr~16d#?|YuOFD4!Wc7~SyBY9yPi7$_BCL87(s#*NCC_HD2;3mFRGtG+kuWzHEJ;O0
z9~Ec_y-hh8Un(oNh;bG@42>b3GHa~6a>7e^Hi}wVPOmdL*kl~90}kA5Ox;yoLPFvs
zXr1G*E~I#x<}{h1UexRQ>Zb!>zU!L2e22A0{>t|Gb;Z2C1a4}YbR`}iI(58tR2+)z
z%)lJT*e5X6sp+h^6Hd+Cy0GwYl?nUV#@Mm$t{*WoC<iB1cy~-O7F~&{cy;{4z&ta*
zRhUYFOCGi3<{_PRHQ?<eQFFGmza4*c2jegoUp-M0TAH4_<y6AiptC6TlV$(`<`YgT
zuWP=(o~?-C@!WS}e6h9Frbt+FddT03Z?(w1C<w9~=9@$mOB{t=OH>af@D;UYCprtI
zt)VNdKa2P^3ME~cZx2x_-;vWdl&J0K=&<sN&W7w10gg$O!?3Aa4C1Z_n>EBc$9R3P
zOcY)_<06Hvn;(2|_*mQEP}VFnRG(6!ADF<Gds6S~ure07YCIFWUq-V-thyf-C(;Q&
z_@)wNm&F<V*hWOLjwH!rBHc1-Ik)1yUy+=_uKSCCS<?d}xoly70f1BRy0TJ&Kz)7_
z%59J3BCD66c03<He|>*b4pk=$8SzzS=4n>%)O;@ELbqj#LMR>izzH(bRML#R70f<8
z-pO1BzPRzq2@J;A=@#6SYoViYt<qj;2M32Ndu-!$ZG*aZZz?Hw38q~ky`S|nwx^<%
zB-sy!3#vozI?>-N24gavx7nK@#T6z2W^M)W8B;ion?bpA<T4d?(dO4tczyd?3JMe=
zP<{!kX`z~VB|z$<7jxMjaoLk`#6KivFt`D88Sk*0TfHa6gouCM@}#^9AE^_~&?ve9
z7$zOcH{Rl0%ydbNh=_17^;1???>`x>L;<3TdHH(7DQ=zR62m_E1S1$sd-`#u`92P7
zky%Wj9jB7K{LO^yK8{%R`k~{lQ(nkgN1y3%?Vtu+w^(@IsOGCmNB5d*WAd%dhdDV@
zBVN3C5vv}IIvKEwP0RrtG)laVG!v}l#aU{BIQdq8-PY71mKY8JfggK6$Jo#v(jve%
zcC15SF!ZrcPj*X?1#Egk8q9Lab+V$O4&{v$Gf)i5AmJq%^z0n1k~m5rOXhAKlR6o`
zMvFUah7gZCyDtCec0ys?+w(ot0rB`|N`2f?<=3w@z+4kKEelr(4+Wm6-`XMzKdM&y
zYC0Hx`)Q16VjE&LC44IWnoy@*#sXUGI6>(~A<RgSU%q$&J*$nkWx`Gqk`W=5culBV
zePO5AAR-9)9A>)Yf~Cd0MrRgfF;PbwUq2%)-agYb<f3Gz*?XMTdn4JZXw`1JxC>-v
zho1e$vrswA#)w*<iQnoXc^qbg7zja{w2=e!Nh?`BV<;o=zo=9zX*s7=CZqCrPRQ#%
z3@?egj52<-U|#MG{rMs)ks7%P6l?5&8|V}@vE_lzh0-h*T)97%8TiyZA1N_0Swi{q
zW;m4q#6tw1h&+vJ;;ZI@SYK(nE|B6;{b^*|Sk5hh8iuwdEQh>J2y+Ne+0F;_1CEPs
z5t)C71r~{25wD!|o<{mH@#FQgXRR4#)S=5cP0Y!eY`qA;fY2{eAy7cx{M>63lbNXu
zX@^RnP2Pw4P%7kQWLnb_mZp{#gC)gQ?4UJws>^(z`@U?&YC9&jV<_`~(Kaq{nk*}k
zZ5o_eE<}l;O&owxVKyHso0i?3Wpw-EdUaQN(-IrJ1V^uU(;5m~3ly|WOyb0@Tsekv
znu3~PPe8feru%I_VyvLaboOmf*w74!=9kgp(g2bD!zt4rH6K5HQaSGZH1^%Qca5V7
zTnFGr>a_-<8AvX58U1q5MaOy|=1o6qL6J!j%{1hxT)4BA4-;p_t5(+v{TIlSDAW0l
z=8cmLvH!Dt&ZF|`0&BzU3)m9!Tzqz8+~-+{M<&e9<FeJ@xvv$tIA`dTr){YOQR%Ig
z5AD~#CCAphfHntL!{EsDm-6zo#TM$!O^-QJQA3CzB#z`#Mgg18rkZAE2@`c4FiHt>
z5ABt%Kap^!bQ6<6%@A)+kWPa0@`iz1w2=;Q{RI<t+dK%se5}uc>D||BEu{(KIlaTF
z1eIEiVmLMdu-6|{*ZnXabA`&_>!vBk*||C-Xs|iuRAxgxjjMwOx}eFbqpcm6Edq<p
zGm{HZ!WocCI9h3r?}qq2)=9<Izkbb_a`Vf!F;K9tn1vjasVAw_*ZkHM;+zRU<P$>3
zqTN$LC27)KXH|!@n_1<<R+(RFUw`r3x!Y<YBW*oDqdAtF7BPIClXYz}%A6Eao9yM(
zLR9GuO8onG79qcUd6Uf#H1C5mJLn1%83`Q+vH~SF(#L<N!jEi8j+sv)M~_OQBA~>=
z3<Y8VtP{S?;wA7HF}aIp1>vzX!o~(5e7onQo&hRZ_<`POb1?W8D00GCCfuEq{&Ia-
ztv(nqo<KO}GMsd4qpy{8&tr{?aZuOG3!DiagDin4lAAA>ws+G-(6u&Tfs8snKPN~9
z*z6Mdt-B6!aY>P11_aP3>#J)~XRwO_KW#M70Qk5DdJ?v#H^+5~4LVD`2^T>_QkR1h
z%zWAEOvopcajnJC-37G99NR>;!(3eD@s~o4k8Cw>P%;AIrlit%-lMdKz`Hd3VT;)q
z3aoH|SV;Os#z(GE?Ml;6L+5$HBXslgU%^S@Rq#i}^`f#;t0oq*XGX!ofVm58gzZ;Q
zxn7fG(RN;pU3%Ng^j#BdA|fpUp1_u+<z9~-eMjsa$0KpDv;R`!LEzSaen!QAF|lAV
z8%(}NG`+?uKobhD#F9`3+fw&W6x4BbfNw3vVKh>@Nm;{{xkjgTsG*{2Kot>}p71T0
zzXZRX5*T&pYrVHNWlm7knkuGbj&O4;Vn%pwykE)A#%6$_GNQ!!RT8AujkHp(Ih#8N
zL58PBNT?M*_&ecjO`OU#)HCVLm9LJ6mXZ|tit<_VhTm^+uJH2oOb_~2pXX>>XsPJy
zIQN*@__<Xcg2d}9!$B87ftgDk)ymH;<<kx#->&@v0=9`cWAkb)R|}>4871R)xHvds
zs>*_%R@S#!yp-s$6YrB(P*;CV&<x;(RF?Qiee!#B8cSi&teVwXj0i9rRT~0j76DcQ
zPKq<F%7W}sK;zm{d_V);qs8=67%Os3nz2%beS&M_wBy&DREg(cKVmU?%w;u+S}hJ8
zmc3QslqC#+8Zo+Ty$JRb4zII{ucepWDG%UNtIp3BIXnTGR;4<j$usjnjE3v!=!e%o
zZu2<pE?a`V#^x<J*k1;UGrkw~nFFUzO1%vXj5LHGLVMfAsT=~w9u0YL?{V$BDD~o4
zE^@FccS|43sGoS1hbqgNqU3$^d_A{v%v^WZY)?u73;P}CO3QRe&%H>mwFOHH=EM+_
z#q&eew?BJ>$Q^>R!Lan@VHAGpyyneukTp0%bdij##MnzN*AJy7W0DPFgm`~g*>ct2
zSk1FZ_SgaEVlxERep)ctH%0Q!nu^^#HR;Vyi5Z)S7|$th@aiG317RQd{{4F&gxD}L
z!)fZ`sv{rLK9zu(jTipD+<sMx^fhTLwOU^lOpY+*s)2@#%D&hdz^)`ozZ2{RG*j60
zcr?<@FG;I!Ujf(FxhJfzDvG=3v2W($4%R&yPUg}oT|C$RL%cR^BIY2$TO!eMM0afQ
zAk4%7o{F>!RGs)!ejN5@Z3}?Ws?`YU!ql7_A6CbTd`;%kSBg{KA05UbN)>Ss^y9aV
zU|U)jUgcsZQO2M%9x1XQMjrq9<Y@N98)Zd9K>&jzRKDKDg}Hb`E$7od2`Q)EyoSM%
z@*vDu#BXsjkncC&mF9{4apd5^%jBsJt!QM~Z~l{0q3-hJwNOu96nn8GqD~^rSY#U@
z<hg#n>VWHkB1O$zon^if99a=_j?3SUk3D|$==q1XsBb(~X_r*loXiqh)+BH(2ojs|
zbR!%v6q{ZW=gZ`jlv)@V2$2{v_>W}WCzbiZWw0&eg^?GWr-yF@>uQK>(Q<yehBe`F
zO#ihrwX#uzm$xvUZne!rJRygzcUEl6&q(Y~Qq)M~1DK_Z^qWe;xn8l0FyXzq@IbYC
zs?l27d-X*NsUD}vdVPh*u_v4smRUg2rfumYv_PnAvLL&SYGcBCdJHlYHznLLRPZ+5
zy?H2a3Wg~Jbj1x{A!!7qQF3?g9IWKup}yT7-rB=dD-t3oSv)&E3Xbc_Y~h)X?PBa-
z0>Q@^54RQ(;R6hDBn&9ZCH~dDH9B5G2Qax&s8M`lW5-8KzD$LBqIMM*WMgA{$&eXm
z<K}}XJY!OXDmNa$Qi8*tt<kqi@x5BQiR_IVZwTisSjIyTg?@0Gi?<&>6Y`ub<8ETX
zuG>T?A{*+m1lXGP2KxGTr!bqlZ<RRqGs=kR_U5|^0>jr2Q@M{WmyK2AS{PbdOq^H*
ztWWqhDmPpaeBIpI(5lr(&1@uRQ$n|qLXgkHyOre=bJqdOT*}sr1+g*`41I5DQ047e
z_=am?|1*Uy4Uft<M3IF9nq^iCZw4W>kE#wr_E+RvyIaHNdC5@d_2Qim@2uIPD#Dv;
zRLjvb@jwEzCy^M~oVh5Y@%-Sq_x6=awL0+vn&#?>w8fyP<#hXMV)TpGc~kP89h>ah
zpOVFAz4{4Jr*%Xh%pF11$4?Q6DzTHWW~vI_Bhx;AOW>2z%{p*JoMmRLqqXSHUhpp#
z?$^Ye!nr~bcCJ6Q8vKGN6z>y?d)chIv1pfPCI3sP^|e4dw7f`Xtse^K_wlvEEBsuZ
zd@~v*!IBf3A6(cXIP8Y!J19nYuCu^0Tmv_q-kfv5vCPM@<N4*d!IjM}bEX+Sai~BQ
zTVCsKFTiaWB;<~Y2kSPZ8tO<Ts%Oc8p!Jm}_i#3FP`!->LE;_ZYe}1EgWEfgl7dko
zL|3^lTMp~0G5SvO91<gFl|-o#jz6fo?Z@9KsjHM!K%(BFxrBjfFw^*UQ%}!metN`g
zT|%<QaWmGmxw+#XUl5zHPLG-`?z(b)*b|?slAlbQAE-?oZSF@<2X#D}*(_H(VJ#sp
zE+;2P4jWytblmpU(bK{X%tm~#%mJpU{`ycXv0hXH;!;wzc=RK$GkwE;J6ZdpBO7Py
zNfVd>wd!!Lo(p??MQ-J2K!Z(dCTQ_3vjXqg<)=bn&`D5J;!41ZAtC&$4GAq|_DN+9
z&bV8~DU{Hj8sBj@PRKgYGXY+CzXD^}rdk=;*Llw8ESlF0p@8y(NbL_heXKf|Zhjca
zXCPWiA^Cf-orGAMk*$9DXYJBcbwcR6CL?p*8)h_K{Q3kMA9x7#YYz!SsF*NvuzqQT
z0asJUmZ?5hEyIkk;WL-*+_g)!lSsnY(R!u<Fh!#r;3Kv=z`DhgC9L1hJ}aiQX)L5>
z+x{gL$Pa3POY_|#<ph)=4Yd@sjMJ!<rZ0aYO!~%_P!E;d{+f8D5meDJ@>j^QJ(ey+
zsb80CpOUpO*-#D*NITuE$tXEFxluIaD43-+n;DOp=S}$V_$RTw0ImcxR$5CX7Gq-_
zs7_0PKuxMMZb@|_4`e&R@6cZxRS6a#l@eVCM41<Xyr-D;X!}8**lq}=lzCXBx9{Gq
zkLlALXonqYY+<TJt@{z1HKfv)PfW3sDf3uqbB*Q%KmPnCG<J^<ZNn-QaPVMKSicCE
zL+u-|_DdcyLG*2$M{%Mu1|GwY*VG?{08jBt#%npYL%hI%)@K%ZQRF7TcQl#lO^kOr
zL4^&#q{fSqk%yp@ur7E2f%iWm7}YdS_-?Y8B;dJ8^(hBoM=(aHc6oi(tsW^P^rtzG
z{QM+JHUu_?$Z7i(VLQ$`CM2ZL<VWh4aj=W3!mO;Jjki|*O~8fpte3RowB8@8KD4MY
zWazFms-|^=7TB5Br!C)es-=I;PIm%TwZHy;%19Q1)aNTF!0v5|aymA|kAxHNaDNkn
zVq4wQ<3O0aU66#1gTp&Xu$)8!At8hNqdy@9f?hR1T*jCMetpghRu5j&A2$brp)^{f
zOGTWj>v0_Q-ou?rcpO3te2N;Z_@#O~QBP;gc~x0+%UcS~^`~@cEzSB8LIy;*Bu_(7
zp;!uEsame4@SOjBBmy#u*OYd6u_u!;ieo9%jVgH#q;T!^>8=YjEya28pEd!zW9GhB
z4Mj_fEYxtQfuwYqZd+50)EO&@#a~)`?fG0;ie=^Quh#osfdjE4Eaukb6Zt#n+${D%
z>?KmGn53jl&g~5yoxNS%pd8|4n6PGt>96fur>Wy%2tqJRK*D^IAnjutVdd@N+l89-
z{uUPI;Z3Apujz%2yKqhic1dPh)K$F8eTx6V`Aa%S7Fd(}S+v8O5wWd0QK^+O=@iqC
z!EQROp@hLJCmgSNOQ7z{;;q}>-&0f%7u&0qh-pw2Vay~Liue;jWNL!Lc+ZVrHP)Kc
z;2aXI>sE!mYC)nMWE(IV0jDM=2-6Ui<b9xWKF|M@;m<VBU-&ad?g6&(CI;T|tVRgG
zH;FEuykM+bH6~);u4vwZj6razwDjq1abpMR8`O<3fr@@rD+@&6L5})1(G5E0_j-YX
z`Z<R6nX%jPqMU9EsTlF4g~6#QD~0d$Y<{R!eHtRJv)d(Rb@{J1uSVlmPg*{~%z;gE
zOQ)q&3U9Dihis;wH6eQWvg1=jJgo4PFKucJ-rVIa-}iSMDKeHc7`&`e=HU40<HuJk
z)@*(mThg)+dR%`h=xAN{*<(w^(J@t~49BjY{YG0&7xK2}Z5v}P)IlbwjbQC;&vu4}
zhE7bkdl}b6$#!-%Syu|FzPo<Aq36dNqFVBq6Zz#;8st@`5H$g!oJ0IUZtkntdp3??
z$Ccsd)G?OXWR3tZPP7%QP*AYdpR-PQ_;|Am0vZdUanRiM;l@&#FL0y%2nNlvO$IgL
z61$r$OPDmNBv9W*z>;PQd=7h$g{2PV!A{$QDx`{N9ih~}xv<6*5k%dC9Cx_@S4FFm
zk$wCJ`cRPYVzcH;*^7-ZR#C=L#tJ61s0k*phWYa7eWh=@)nF=2BVquySx1UA;gD2@
z@;b?I&5)1d&EwzF42U;p<SR{IF==Tk+?Yd?2Cnto0;@MOMnOer9GX3v)v?XADZ5rb
zI4OT6cuMfr971~6u3dwdXH*wSlcH0e54J@f@+bw-25eZElNqpkM)o~Rrs)db>&@1g
z9K@W*JU$p?cYY{$?5cNP)Wfssk^O}s3EQ@Bp8#_?%QV~vtX>s}$)^0Y>NMPV4-ptJ
zmXmGjX4@{%(`_Ff&<Ji{pa2A^DyWw5If>2PLRt!5X)+q-9DT5{P_CCk>bovO%(LA4
zz#F1HaICzSe08j-kswIlKH)wAA)r_<#SgRS4?^nImlp>eo$ppE01NuT4v+<1zMS1x
z9doHI39(cRTt2`jAL^fE6)?>um&s4p<*rJEe%YMYu#rW$k>H0RRXHq7<Yi{o5qS6j
zE9(cqPkL;1@XiLBjsrZgYJilB0<F8Y-%fAkLY(Fv`?y{D6|`|<*PAzQz9P7D7nXCe
zW?Xg>3KQ0w?^O+MK!vYAm_KKRvYCM(mSV$8!hJQ3kW)<IbiNJ&icuzzNYjMuWe8+k
z%X6CzA@+xrZs65OKj@->9e0xIO%8zZCh7w{5N?#vf<<QILHHJ)-vmnMkFBT_S!yKO
zmg=Ack;&S#Q$yyvxKuk*${ykmda*7D0#jMe2~Ar$wekf+oJV0q-6KYn%`Q1MhZri6
z(-(X+K$s$uC8FRsj;{z9$n-ux+fRrdI|YJZ$<YBpqYX>088NKTB@Dm6y|)JzEkC$)
z8+0Pxc>G?9aK?NmEY09oO4tq@0Jk~&3jSQR;3hDRaXKOI-hI<yf|*Ybi!K7_gkZ`E
zIX2bc`}>W1PJBd*9$RaB;V*@_k&u5F#Pr}w+S!cRPJc!8@T8hG{lMH13A#F2SK=hP
z$x>{3tK24)P*AzfHMBr=My<X6sG7H<XEK-F3g;{V>n;z%GFJ}NW(WtIepPj~6yV+?
zPfuP%L1HK(Af*0c-|Nrw%i~S<c}t6PE;KG=Z_M6F^i}X;Xox$7mK(6N(6Tg9=PoF3
z2?F&Myej@McU0I6Hr8iH6o2~UhgC5KdyGFEb;?awrnf)hvU|F&X`u(f{VU;%227U%
z(`yJ%mYOYJ(8?<JjGFq)?hUp4*CmG+i=#ad)Tr4Rn~QDP>F5-8BB$PFb6-a1t>XcA
z!)q{Sr>wgqz3yDOrv|wUjxxc{&Q3!bB|iJ-<0J2xwz(bScb-kHb$5kz&1}Vr<%NlX
z=&!>?QJ@|tcn=|m@wK*B(CN&*mu}xjqU#QJEwL)d!OUF-rPcz0ME4=lY?!DeLe42n
zR0nw)pRi98^6Ih6E9h#=;Ptb?XN8A_$(OMVETb#9n%cU`?JqQ}q!AV-F?KH9_V)G<
zjI!%=JczbJfES|M8ujmYpd!IZmi4XFPOK3DM3N44bE2sWtzSnQ_b)q}W`Sl0W5iNI
zXo1svC()Gr?BWJZy0uxb>xq%~o-&Z(BIm#idk3vRJD8Z_Yii`t#-JegrO=4YcG(p<
zD9k*cuf1DyaJk!+H0@98<5f~bfuJcYi^C5r9;~2q3x|=L&ds_BkHIE}?w}i<VIK#Z
za>^F8;Km`r)O>IMUb@;^V16E(o^KWpmeJLUf{FOF;vJn^-$OK0|D_FQ*faUjD_W#?
zFf5750iQsSj|KQN0`r0yT5o;xmsc3c>dwD)igW#!=_UVdWd09nX_tR$vBs_Sb7|>%
zRSi%vk3G4+EOd8ttc=&xUKfN!2i;h_m>&J1_mv-hibSC=K?X;JQuEP0<y;Jv9D29e
z#86wJr}d*;xi+??A|ec1G-L^Y&yVLhH8&0~s{G>x07N*nfB!k6NkTzJ<}BxaPj+z5
z1|)RpuY8O?u(#la4M@P*hYuV;Nu?-iV{<CW?h!lM9gFF;Ew`dO3kefuL;Q@zgP-x*
zdqO@{)>qaq*~@EaTjq7$pA(EpNV+>GXqC6Pz04JtR8Bh0xLJEf1YSRj9IYsBYIfg_
zCrxIFyi{L{60{2bwbADLA9Fa}|72MI&-0A`@BQSMt%G##pXfuubfIFGAiV#Oxx!JG
zhDS!y;C(bcOS-A6OHhxqh_>iEIIMxPY!>obWXs}Y26lh6oYR{)hTpecm{`sKqE!Q(
zltD0}SuMeDy+YLm+l-I|8%xbWrhwx4PP9xwEQ3ohMK0-Hve}<!F3{|j+`S2@%7~f}
zNT`wsnM%^aGdBy%;QHwSihBumiOII{4e$YRhyc;?IUdk5FDkMy{sI|2P5jf&((FG+
zJIrSXo?O=qY^Vrjt%h*pf(1UjfB*hgUHz}G_CNUWhQM=xl8T7Gh&nIH<hKwdiCn3Q
zm<Rn$u`Tnw3g7RWbJNPOK2W5l0+Km^SBkLf2V0G8-?nWW5|So4)oEtb=-Qu`(#`j6
z&qY3j`|TwgVcgU4L-G<QBja8(?ITXkz?Ykrv-{L9Pcq>VK5(E|#}Cj#f=qZ0|LsM4
z+cxiOL@CF<!1ujR42DNGqW>Hfpm8$qOOh)rh(x_pVvnY$??fbY(_Vkqcq3+Moob%<
zR;GoPmVFO93-EApu8+c<I8j8_9`NZ))rz^m86NXNUp_|Q6M)_YPG(?i*0`jXK^JPd
zd@Ni=Ye@z2k;*929(}sN30IUd?%2IYDY!MQ0bC@i69=w#|6v<}z-0&R?x;*5rxX5A
zuQB8U)`0R|GLk!Y#yA|gqb$g}t1?D{6Q<dZKbIxhiE;*QeWH)M_~&m5k;Er+(D2Fe
zvY|J3znt`@J^Il04jr|Y_fyRF)d@%j?noyc9U}QQ%=PW~-3W4)G#M*B4Aw@8Y=btf
zL|xQP?A~l9D@^kk`m-U*N8k8x-~P1{C_wbCaI|L5gV6BYDRGSUbX*zdHyE?G#Y%7%
z)1$NO9*@uUwNr~WJL8l=)T7rMKALD$2W!GBO5xS?VbdPjhTejA*){7PAgI80xb=yb
zGAJMK7caJ_D?_o19~%D^G^p@)JiIj6q=0cl{DUSX!O4+DMO*)^v?t*>Cj)`-Tx`yG
z4mjIZliAvXc2F^oip?TF=T6?9gK0;COmt?yt8Kzm1dn;Kh-kj4b2?tET%Ew>@qw!`
z>7Ca3NCDFehqTvCP43Z&TU`BtN#d}MWZI)k>xWz{2R58&oV%wiXq~sH6sgQsVJQ8c
zNrEJBE7q9vYUIhdq)cI+-Gd9if?C0>@G?S{aLE8#?N9oO=*=#MD&09P`p-6|bD3Dz
zjOQgv6>=DXvK!~oSBL~IL9WSnp8J0;b@KQFk@<6&W1^{3c&`5>jyn+J=$&kZrB@Lr
z01%x`s2i=yxY1EWw7;T!WElTvn-=<7M{H>ZlQS{UKy^UCU>9p~UBb)ybQhM;o?U}F
zD?=ARC>9Ot=Rgaj5|==yp}yHzbyd|kDnv(hb3+zwxX_uqmBRlCCc~Yt#fHV3*X*@i
zSW3S0;w744!-c0?S4jDtxCDBWf)GOb!tP7-TM=}B$+D{D{}MYKh}eOoQx4HfoCM6I
zg`SP7kaKsIYet~ox(}_|SN_?`bXxxk2mTjMS@}2Y@c)k&4=>f{j7>+y%q_JKePO$B
zUU~VO^~=P<-EPx8zI$n_Oo*F8*u^kPJhz*>o1EnhdjqcZ^0M!Cyg928vVL^?iYtaq
z``rIpC(E(*8QrDo<X7+RaqWNMH?vS=TfEUv?8J*RU)Ak|SiA&tEApmZR|;kA|8hpZ
z;-1*nf6laV`|lr#ghBToJPwy0<j}RAXUJ{Sx<NY=T0)n&<P`=l5%G0h`0GE1BGJA0
z`@g`Ck2l*cJ0^-?zR|eMDD8e&)Afs&7RLD=T2Qs`Uddi<G*TX=%DL-FcR^cz{*{<d
z5SAaSI=xek-+E0Vv*eR=i+CH$ZlmaIpPrtchtc;eXT)ZLL;sHULAhxJuyE|JWkZ+#
z77#cUTq={s;Bh5}UHQ4qrkbAt-_w*ieI91vBQIrViVX2=J)Cy2YT-Or{=FQZ(Q|ri
zwcB>?yu`ItQ-ZDOXj=jTd*RyoQ`XN<yUb_aFom{m=kkpwx#{{TgKvc=Lr*uR(eEcG
z+*Wlu8RLU?JQdDe{DBqkw6xf2s}S+U-uhVK5s;190h{lrI@QQ2D&l|yBm`U~995=V
znSGpMEGngaVnmyd<<FIAJ&i1eICX(dEId3MeLrkz(@{hPb|aSkzyVRP;9JDF28XyX
zqr0~m|MzynIQ$3iq5onrirCV3D_S=#tygQ=BeeQ%ygA*Ql7ioTu@_hC{ok<yFbHlI
zIOYnir3Pu9QeaQf+rS_*hr?UG5iQca$ARytF!t<}$svLrzAV11$t8obh#{#1XRI)5
z=(JL(&oAp-pQ-Wt1$3DmE1D54P}G(VEdr~6gO}X(<PsWcHf9Hd{piD)Ih$vl{=E7$
zi}A4HespM&PvPW;dXw~!hDVRJqyE$-^iOJ%wsHGPus99hW;;H&>-U?^e%#+0{}H|(
zo35{WuzflB`S}|=|9qgEuY}8{=F&K*tmISh8>w*m>`j|MFHkQUwj&`*E}^bD2V)h%
z@c_;#wWt5Nn7aR3yM@!>%5eP8Au*z@{%J!)ioTbAPDsdEDE`1^fiU+ag6m2sop6S4
zyeGQbiRd*8avJ@zmue7(P<7$QVHOvLTD{Yks(56cn2WaL0PNi;AVTe0QLQ_*Mo(W^
zqQH;X#R4KR>eB=KyIzXylPzhm8hk&==&?gA4O}eI0o2BQLGETPfkHW#Yl`3q00}WU
zNOlUaCx$ejhdEu;i#Z;;6N2Yw?W7*mi9~&~IO<z)2wm@qxucIkvdS2q0T34e9oFLf
zoOi?N9TOLS@T_M26<c%ahMI@~?&QhMXf*Ov)hTpWOVlU6UtxapvP2d_|71HXB$OvQ
z0Q0tj9T$$aAsT2@(@h9h>tS?x5>5Qz)fUpx&?!`qB1_aXk<}`p0#Ehig=A$#xVAGH
zQt3T@<(&cTTwB)YU97|W>$!|ZxV9NvW~p0csn?w6s@Zlf?d4Ji9<}xS{?>^baCHjc
zKsOWK0L;(sWEa#>L@OWBNtrX0AA72G0f*el7^)HKTxPaE;i}$0fXs1LF}C&_?}x+x
ze&*0#8Jh40_f2L)ISVCoPnF&=A`xz}LvbVEGJiVlwGtQ&CCpcy(Ie0@P&HW-d?3rc
zqiCn8)`py0A=X{oi8{3At#w%dIM^#>^hA<IJH(9m6Ma(jEAjOIZa#6<o@|3KKxW&-
zc>3FR?)#-jT}C#DJ>O~ZXW<=Nv%Gl>^h&&Do+=smx!~DU20Hu2M!y>Tv#9(2ZWSW>
z-$Ij<Pw+sffYoH3p%yXxXvSqbj5!W-{_|;>(|-*I>ErkUau{ewMcOpTdLvj*90s$x
zIr@)qa8#jN@C^*CnmEsGB3DyR?kyM%p~*TOau~q?fahH;zvcIZTjkzgpp=5Zl7qRE
z4JHV)T7eRD-nLmp#l^+F7xpa+huz-*HglIsX)&?y#6em|(3VVm6|z5d%Xp2<DnT~O
zY+H?zqc$@SvSxX(h!!gT(uxWgI_BhYc@*=psQt2gBLZsDP1T4UI|YP5e6?0xC{(L}
zh{Qu2M^Qmg^s|!#G+S4!Iv%^>>u8J1jOhIH<Zinu{{;Zp{{|39V7$yz8=Hp{-%SL5
z*Ew4^`-dqx|7g!YCtY5bTlwEVVg>ylI1b<2xao?~oO~`*VtAX_1kwxuxGVtpE-^WI
zdHK4;qhzDw?%%1`(^OgY)T2ISz`|xUvY%`OcKVIaQu`vG64`{80SGu8c?PuP8zQmZ
z`D<8{4FT<ghP&^Tm<PYofkzBGWMXoMRn~hK=jZZIwoWr@>?JOw60c}<T#V~#<O|hB
zX?gjV$X=JY4n%)yv-oV5!9Yo$Ymoth-0)@CEh9Bm9%lpg=*iv#n0S!0^5}E<EosxD
zT={zxBp@3g1gmo^{kdmZYU?6<W3SD9k~-(E4QbQS?C{!GWzijYod&}v(xhUnx2n@a
zPtVD_4-mC$eunOXsh^^XTza0Dn^^Gs7&mI&$v~Kg7l1rD)M9Q^O~es=xmj)8Vh5ws
zDOhER-ganO6o_Fs#P#XmpY21(ZGV4FuC(CDUHwP*A+|&-C2D5l3;`bf3PwVP?HT<2
zQFN_jUAw|Fraw->Z!5>*GW`aJME)&C9C1k`Wqc|PM~@MwY<LX*!7Oy#{P<`xOxncJ
zokn9_<)xLCR0zHbIJ8Hsia3P_G7egRI9OR(`=vLm`E#X|$D2uOh{j(ugTDpxxC+s*
z7Uvp<09F|Q4v0%jD`6CYK*XLh^2-r<fyDpoy@8IA;d_YI{6=<Q2-))|?ofTP5D04-
z=rk%UpA$HvEDGjAj>Ct)<9Gt_PGR_08rqSceQ3*+(fuc^8s2kS4gL*B5@AdUBg+I7
z&XfZ~5ZB`fK^`Mji^xAt95)8PaoeG-#0_w-yTdnsq>)`-Ley(n8}~9gw}&=Gdc)aS
z>fA&o$AJ}c@W|vcXHw9%4GE$bgW-SL@-3>i5Safpd$#?#e&G&o<w8ezGl}Ey#Nkwf
z=`Rh&elg-ql0}#~XfSF(P0xe>DV*rCCU@ZI5*%p@-K*=o_qsnL8L_p>joNF|S9Y{O
z9$tFlGHCpfM-C;k;ejp_9y=Ufa0<2qK&mUmIa=fB6gPsMGw9ahbcx9QWXV4tbu9c@
zT#;kP=dCb?TtQp#TWEYg?S-&b3C@k#W%>rF?64|cGaQXuISJ|ZyzGHLZ++$8wrmL8
z7~y?Pq!P_Thp$ES01_)oN=l~vIPCfwwv|-TKd;WDr)M4}4)7Q^@xts9hmHb;GRdnE
z9wXU*CaCaI$*|kh<0A>*z!t{tzi|JMuyDSpX?froYDmnVPip<CV^^4imNL}Rp#gug
zE8XjZr9G?H+5Q>m*7wIS(Zs34j_K_`e{MYU&)OZ{{y~3uu%$o?P(l&f2Vvq<vY*F!
zEP^G3<6qQw#h=UU=K8Rr8G^7wI(9`HhnH*5n+Jjo1bqMg4?r)xREE1{S(<*JKZm14
zqerKqE!d?~p|RWiUb)klzgl<((Dzx^y$Hmkd-LWY93Fuc2s-&1<V~}Jg<D+8?+Uwf
zWHh*avu_O$EkMMP#~NzKoIey0S|-j=#`+w0lmwc@(U3Mco+^<F1130kf+}!Bv-$x#
z`Y*#gb^z3U^$9p(%)5jduSQM5aR^HdJyyS-XxI=Ic%q4795S<foh{tQq~5AaP-(^-
zgmCx>^tmA0kU^Zo3=J-50d)=<jH}QGp9oWCFSTHiR7hIYfPHY}2)c0+$LVvL2FG6Y
zy=E{7pu5h7QDsKkXJm0`j9IgG(zM_&w$n|<@-!pP3wjOhFdWb2Fkqdf-iP*0;;0b(
zXAJB^AbN<1I1gz3h7A*F@9)K#RpT>`=6D!%A)F-O+_K7_@rEsQZW3N?C+&{r^q;`d
zE)wL5AfZ@vCyRR>UGj|s91AV`HTxm%h>1}sbYRpQ@wa0W0|#GPUha*vTF^j>QwN0R
zz~I+{eVG_+QbX*VtWW=>{T+yx(2EVRC{RzCr_o{zTh=xMwtvuAPPg*Yu*ejGLwO3^
z$4Z?e=uMq4(Zb<If7Z*{RR{oNwuL^Wf|z&a=s6~bp-;zdRord*QwGo24B^LG7O3<h
zA7&8L0{CvxfqHT<puB6s&4v#s9xde3#CefG>N|0M5us5<M+Q})A!i{y3tmv-To=p>
zv1rhzM8qeY({1WfNthvs$VePz1_J~kp+SSQhn=csh`*Ei9)6ibc-#`g!q_0oOA~Z9
zHZjNR6y362IA8*eYZ7D}IM%lZi>YgZ@l9WxuUeDKimhLj>CO@v1ZT+v4Pal(+s|Ww
zgc=6T-F~g6yQS!M@D2!w1p=4FUP^dZfS5%NYiw)`VR?yjn}tA586r2}<gqJhm9d5`
z3h^_2zwB0>R#_am&F}~iCkdkC$&2tG5N8hKKnn+S-qsSHkK3Wp{16NYqbqSV8{F`6
zVq%Yobpy>p18sVwdk_2(fQ3drZYK=&Xo`-7D>FJQ>>_553R!Fo(MyARTG-e&@m`MI
zh&IG3IUL+tgF7cm9hCLr=)wDr!&HA-OI8%POkJL_j56w9K9Iq|vu6X{p~_)5TbyYf
zq`L<P7&|X?9(9c#e)_=_hq$Wd+9k0;loqvZw0!VC*n97ws?Tq098ENdB_=WUu18Ut
z6_jq*11g9h9aNfhrARNa#{zobfKn}>6ancS><EXV-~s6>y(3lnyY|6+@BO~Nxxe@K
z$8X-5J9C{(GEqF`^E}Uf_Fil4wZDghPX=hbU=@yyw{k?wwAL`m&>7tzf`RYV@8TWh
zSy^y*F$vaFuKjBmZXpS1T1<p(H4crUv2i#~0PceXy_{d^3(fP1BZ=cSGSPxVJVG;W
z6*7qy7FK~yB*>xh?u@n{p>WV7Pd$<=pzcAigOyMOm_j)Fsp2(3ri7wTeJIK{|IX&L
zj-*OBbWZ_WPR|<8!JBb&g=|gRluoG7d^inCXcAzwpgut*8{~;wJh4LW&x6_AldshH
z-2Xi9o(z2twMa`($l_k1&;iAV2kbHgT_E!y5{O!OV7p=O;RJ1@3bw%a0|_3tz<({1
zI=}|`(R&24lNADM6aj5t{^EbM02?+iK{S<s`XQZPE3}7U$7P{g^JTcuo`^08%le@~
z$M6JnQ{>NtG)X^JO&Me#xfh{LSrJ=XDhD2=#xVV4g+Sq24Ve`=h#@V*PoqOhkT_h~
zk@6y`rT__BImDi0xOSmVCWBgZd*+>r4a23sSjIVpb`yk;_6;+d<PRTKfyW{ehSk?!
zlOll}ZphJ)VGOIJd4*?xDiC$pq`hfuSntE+lTwu!RLz5Vpu@N<+Dy=&;R&+~oF0C%
z1`M(cD^ATGu7(8e{`$$wYa_f=SPa+-jYu1!SrX;sad=}gm?MK-W$^H`!9#CrlATCJ
zbACVKv1&yTM7<j}JasR_Ga(BVW`s?3RgcVA-!W#faB|fH0A6VtO;0qFk3iH<_c#&&
z=jGODXOU+iO>RgIgeYuimI*3nS0<c3A0eznsvKK+qrEIFmXB}4-YGE*3cD4VPRV6{
z8BOwl(|}R+VcTAgm>fiq;fytA0VaAS=h+6o4SI9(JBP%|5e<7E&^gNUlB2H;!A@b<
z5L)?IA?~$lmV0aeqErv6DatS@O@o-b%xz*sH@l55{Rcz4pVgOjs=pv5UD<`gJhzk!
zjX>PKndfBQcs)dIEC`MVS@@T7M_L5ut?SLjGx=`qUf3<C1T8L2F~C7E#o2(H+Xc8e
z#6Z<RzXKQnc6GMv<$3YznLMINh;`BVa1R`lmbA9$5^7n7*q|AL^PuuXI@z_qeW)G>
zV|XE2^dp`$+Vij>6%eXpNM=fUQIndCRNN@kRR{f;{W4v+S}`flj;y{SISQs+XO4v6
z#OE_R7`eT=x?rK(>~tYlV_ed&)>tzlY9hq9bH>?cZS$8biPRnavVdndi5wCTT3+u;
zG2SN?VGMRXgl9-t@7%d_rRU6&g_UFNPxn(RV}usYQmGwRo<ARoQf1r<N?=`~#E+m3
zNpuyWMp4CkQO;%0T{ZS+-|;I>vun|&>>%BoUv|L2bhhgJ2Wb~dzJ2><Ql_H4f54RX
zugzamCud-+zT{N!5gLjgtM?CGxq_JSrfD-^Dxdm^sImQn=CNv0m8e@}iV6w}qT<Fr
zepJ(jvn-l{yy+tVapX+8w{<VI#(t1vLA9*jktS)|%3wlgVVhX=^>wYpb6gTZ4V#c5
zXg!qKT^(~&ZwlWZQ+Uwzr$4N5T$oBX4fi9j=f-#F2=+S@Ma&4tZL@1|?!j85D2OR6
z=a@<jW#tgG8cTi}w@7PQ$5cX$Y)V9*r!Ol6UAp84qtSt`1_c(xiK{!R)3<+;s9L8G
z)NXBj4W{k~S!s4%(YWcII^+)?yrmo;y5xLI*@}m6rt&c+AI7t_WS+npEi#0>zZglC
z6D&L<pnx<LYk&Xn0Qu;v{{)Nh`{XrKbgru7r$4$&6S{s{;jGBA0r*JfZpEp#I>~VI
zq82D^pD(c6_#oMp@o)k;T96F#0>~N22AnB-DXlp5Ssx~8JPfg(b5Rq97e->Sa5_Y*
z8fDn_!k=&5x^)jzD&!@$Uw4GAU8ilXuebMU)DqNyPV!>A8?*>O7%NN8;Ue%6Qhz`b
zE?5v7=FezKF*=%!&W&9g3w}S8J-$$MKHo~_`}-yzKc6AjI%3Ij#YUl-C=ZCZLk&{U
zJt}|j_9Bqv#|&d&WQ$=-bZHEz8y8@0<g9jhBZL6cE9n}C<aZ~_25lM2=}CSA(zyLW
zrtd+nf@Ig~lJ#=8(X)v2kuMx@qZgx28XG8sc5j9rE^7v|I#Wo>7jMzOTGU(h`Dx`b
z1?f;S9`4B#94@eQtxL{^F6dQP7PS{cb_zdL<4Z0O&1PWaiPq=-TDYP*(!FVr_a_nl
z$0Jn$fx>3%9irlw<QTsJ%|&alsv*A>d@6u_8ChhKt^pDqD!R^f)kLA^LwSgoM($is
z=p=Hk3V85PJMKw0Sp7krD}sJe1>{BK>V+Ui*e)($8U}&(Vg&Dj5uZ``%B)B12Y1<{
zu@&h=ha|uU<e^j*;_eWM<Wid7iq;OwNdZH*#Mch>HkqPMaQyVwPd0FH$TLY40KAW!
z1`TP~6Y$>|bAG#yQ2@9S;E(VS7V|stB)zyMDoC?n%dm->*3kH$S|*N@L02NB3aF;Z
zI}?ur>8lFv_#oF|WAZDo>#A|hfnUZ+p27>3d$1Qf3g0tiq3__Tb>Ar1rL;*L23M$G
z{B2<8NHbYrBLWtZ>v#3Im#d&2Wd;m&t-nT1kIzPeVp5S1Uba0Kc_5TGN64<5-9+}f
zVsQcTmz}<j_e{6^rn*o-oS(-#KlZT(o^vpIts1bLI5i=pH`GYG%6z|)@Pe03sL1xS
z3N!2K5tc6}ESh!w^%sX3w(9D4Va|C(xQTlTnn7jdKa(_20a4?$iMS`%q+e=E20$9{
z8TaNhAvg-MU5<;Ot^b^+iMT2vKJ#YjvnS!8bhwbiG7?j=lkZ#_vAcT4Rd>$C5hK2b
zZyacELkmq#xYY4~ON`?LwV6$k^k6fQF4JdiYHaeA*G9h?xxp=yb*<{PoyGU_^FL-&
zwQ(^Wx!OB`z<YZ7<aj6MJkZ{qNYD?WJ}8EUZPoSHr_?IJ17U|K<Fb^VQ-ZEQ<ypE9
zK9d=jSvJJV7kLbo`&GR}4Ky1a>L`yt0JvH-p#w<`9T9BTYuCP%H}bi^+cGM77^`fA
zcCmr|+j&s8`zlvRrz4<*Mx)@3ljdn!A_S*kAyt4Coa~s&_sR3K{I+eTrTM*2w?%SI
zY<hX0bm0q=L=!YfUrsWPRqI2Zv7`c(K6|tC^ezaUr7Ax=-<m9qQ|zhZPQ>^6Pfw;i
za{v-`048MR<4ELhSS;tg6dzx=8-70qUfr;+*v%qCY&51VuKuT3-?>Wd!XVV@u*AMj
zgHwR@FmbBN0BAgc&YaxKu_M?)wMcFr%7aazU+&jgpQl)&WJamjGy(W)s^jW#PQ#Wo
z#^j&#rL13+wfCR$oreH)VJU7}OvWxC@E7p+5hcI>&Tp%UEltNH8^s@l{-yX_x9{0M
z#>49jzWp&f3*HKCNC~j*Ss_s2YhAVY2V;0JKhC|Z!O9q!1#eank^|L`P3ZKFX~B16
zg^+UT{rd$BYaS+daM<Z{^ci18;la`Nh%>%?d^`8fVESo*G{CntM%|~f+zBM$Sc`%i
z=#@oV_8J=--(UX^<Rc=nO8vqhD)+vN>D#MqyksyHVBfx>&Iov126g1;=PP>u^UW8m
z1#p47K#n&g1haUK1-lN1!;E-CB)7Hq8x(X-Nx%G~UcNVsg{rl$n_V=3tg+RuF<KKr
zORBQgbtLNFaSl5a#z7rG_KHv~e|2ykx)MQas{PM=Ev*E+61J~X(K%FBQzg)D89!b1
zUmt2CJ``&7qNJCfzlE=nl^4YrD90oi*W48O2Ot#DK*5PX6ljz#Aur+`{IwGOY2RxI
zT7DlaAGWa32w_7#-?CwB71V({wB$R&ffas0U?#{EWb<+?bez$M3F~D;Y7b6QVv1J2
zwao9<^EdweZPC9@?%WKrDJIPrb-u#CxM(wS^Wr<3^)h_))o|N9n`7|(8@bD?+pJ%_
z4Anh3?6ks9rW8Ff1SdIl$ht*UqhTNnK+HcmK0ri`%SE4Tm%tnVH@z(a$~WnCK!V7~
z627IoRrV*s)omAU-RM3&WZR;xbub`yL^l$h9?CUouuo~Uwjk`X-l_1m{M66?AJL_q
zB(X2*UGChy3-x4-C&q6f#gxM(Mg=z+)Te4i%e8HNunaU9GW`gUiipSD6-zI?nVN+W
z9NM@TWXHcftkpwL%0}Q$_?(WJH9)rTdPS@|e|47`?!Y87Mf@D{9i0^UU#`oK4M(o|
zBPUEk_vHemgMdr5&%T~Vl`{my*;Hs&z()r5B^V@PC2Cot1^D8AdsYP?boMS&m0Ekj
zUf40TVDQG*VZ$_hM6_LLQ*r`Z7PTN=Ob~er+tpU2IVIQy$4=H_0k~-7!Z|Ez>xXg?
z!LkjVezzFN014I7$?;~h9fXgqXQH(i^HtuX#gqIj(TpNT7hUbdxE&fR-W$2>Ptc21
zLx>b218aa+Y*(}@s!DH~?lH}|w?9=HUQ2@xhinUHCls8SG~g8-{^8<X?bb5gWw&?i
z7afwAb?H{YC*dMscT~Djf{8c76sG8Fcg`edKs<m-Mny*U{Mb6eA`ai#v<tP`p3Ae|
zBO6MvYLFvtku0<lam^H6XymQ;g3Cw)(O8CBHgd-EFx2db*W{c|H#~aLJ|HQSUbP49
zQzVv@{`TpD%!>7$1LzXUZLp$$01x1LM1Sr()>?V*fPg0`teVM02<@GMQHhT_Y}!f>
zQyGq4{`qHio<c#uxBH5l3+I>D+aKaS&jnkG7FZfn0Q+S@)WZm{B*~7`h|0^$Q-a^j
zXBXZ9an^*#C}Gf`D1g((xcnOkNA}x5b~KTv;Fg93$!+rDB?A+36t9)ZoAAIT^e6QF
z>kj)hBkFxXi#p-p%qE|WQphRaR>Z0ak=-QD60B(}T4&#SuJ_k78mEQ3m8b)|4ScJY
zPO<zM5Yglvg!YdaBPboB&^n}!WZaz>#uvOnHxq-IJ<N>}Xh*zBW`yGl!b^1ya{@UN
zM4wzLw&9MBobzHrAaWok3#G$S#Svgcu-{Xc{1}YZKiIPx174pu0QX~D<W7q>op4_)
zW)_B%2Je_%3ex@F<j0a+fX!(N?>jj-L_vVAk#PDxLHEdydz}hV!bBqNA%9!~`j8=$
z6FPZ{xE5{5o*ylFS^=B^M6yr_tVFgK`a&GK`r80Di8>EQ@vUPjG*P!=qI;=kV82yl
zrRB==i>^n&Jh0&I)&m#?N9MV}BKqixLU>jQYO_jBaO^iBFL<)<Ap_&@1^J-l8tIQt
z{C}2-aNCD3gbUtrihtx1RNI9n(QO#LMJC83qQF%|{(?i&gS$PCKJB00BkH_rQP%V>
z;5a6IpPtf^PCq_Z2TkaMRaddIdL0fSxFzB}%`u7vUwGt_5HD>JVZvii8QeT|9bs>z
zzZgeRagc@P67X7klKR}aCS342JcBSO6b8ioKZczn0}ALV=(V5#$CQFoi51Z;YRZZG
zLwWNPW4fzgFL)oQ4%wCI#K4D80Fn~YHd8Yb^mUE{K*Y!tmkfx@!~utww8dmc6UYcY
zg&L_k%bToHx4Djfn<3Ai7VN(jJKDS|<tVP_c_wx-&r^Xc-dwcxjcKq`Y7RC@^WXeI
z-ID8|))(BfLH1XbDBmTgvsJ=#)s)eJw-pe8KfaQ53=I@P_j^pjiRV-MyJ~B@Qc(+&
z<s1f-Wa>;n-`tOeVnH|^5t~z1c6QU?k+A5@M`bI_w4c}bi?+l&XLEcv#@w0%Pg()g
zZAiI^x_TkAUo<>94KbJXxi+-Mu}zqq+;+KLEWtht0gs?XK?XMtHJ)KQ-1M>Bv)Q7L
zu<dY$WjxPjbH5<$D1@4iL0`lL{_NrkU)!BHrt@T8{H+nza4LN5M^D9sMePTMR&?$;
z>$0HY^*3=V>um0Ajj-3VpnfS|SCzQ8H3cl^zC*&Fm;3evKRmd2!9&x(9G<}Sj78Sr
z!6RrfUd*I;0SrjHWmcXaue5AI!=ZqHzzkza+%G;1YK7%m4DR;W=Me1N^EbpyVZeq>
zz!d@rWup-e7!I86?xT_Q!S1VLFwrpvwg|sr9IM-q<4c*&Z)#|uD<u3k#s5FhQXR5_
zkj}wLRu}Q*%oU?<;`ppMPD622a*amE<{2Tit(#5>Im072g$y{*)#w7$O+Zla7|L*D
zUXSSo*fPG&P;sdMc%xYg*o;cJj{v3&<B><vY%ieJK%~+$3V&&=`GuQU);Dabp}J}C
z>hF4A-|d-W{OaoO!`K`+7jRB`f<vUqq8SLNMx;)?S^v)Q=ICNE)@RvETG(WG@7{En
zCAQ+iC04g75s&cru+Pnz26!St9gwvFxjGGGj8JsmNCs0WxMnd_(sVpVPFiDEqUdwI
z@QJ3+xc)3&i;-rJP#cQftJp1!wwkK7_LHprd*ZeC<@fJX5*9t#C#n`zdUeqPsG}q#
z{J?XE5V6e@iG@ZaAJjeg;rzj;4!wp<B}_~#8p9kcI({%Qeh6IH1SAyIlCJ%cx-D;(
zSSo{0VFv`59TWzJ*kiUr%6?O`+xCc(BRH&UnYyk+p+>ovBedSet}hy!--BQr4xl%v
z3^N!)2^mwn_5j{*TR9>a!$tOfM!KlliI76PbO^LYZxcDCqX^B*&Hd`Q(3#>Zt{Mb#
zs+-9015HVv<4ckHg1xhUQTH7K#*;09i{%4Yu9GF5PE(3!RBn6siQ)d7u-F~7!2J7x
zWTT8Hiaba?9@hzJ&fqQasXtYKDCfS5w-LX;IvVwHRdu6a@}_;R+&}|Uj<Aa#f~Ilw
zU`M!hU2Lr|bsXFOVP3N|F62=pPh3Q(&Y=llZZubjC=|lXO%UN|#N_HzH>O6F6<m!u
zxn|Mw?&Ee*zF1?L-be#Cx#+79*2&mm=GKoG`+pSP$z9q|u5wnPJX$5vr&cfTr!@Ha
zSU#J%Qp!<(RNBnNa-p*VDRvGXxKi_5Qq~fY$nkawzQ4dtdNEWMAA+l^2GmeIMjgbS
zG5AYr=7(v`%9g6Vp)j3n!%Y-*6az;$2X(YYi!L&gBop=!>nWBiMLwu`HwCQ+M<Ujb
z8!)d9-CmRU_LuFmBx*r6fLkTM7N==@8mi%hvKX$bgl=zN3PQ`T=vEWDrORl6F!d7v
z@JPoRH6F(K%|w+2ui2JF#(7PIcp66=5D+k9gmNY(wY;}jmveA4nBbbm439@Bw;#e8
zRBpy7oyGJ@pY!RiYg%XYE#GV+v<}M2-hLznEm(<uzY~i(H_u3@IXEwA@OR!?CYjxZ
zgyJ!!sZiSy@Tu4~o9i88yMx^5k=#cBk0sC)+B_sEt3)lTQYt#qerU_fV*2Vnei-**
z0#B$vRm__~B-?)3pD*raaQ6sj9ldV3Ku@?+b_?<wwvW%^V#6KUH|ll^&qK0R^h5&6
z#fD)Q2oi5AT|au`Te1l2%~}D0yty*sOFiUjzZx}a2>5^e>unD_EDkEM+ul(`qbl)8
zz>fQrp#VuA1{>awULFd!)GCA0Bhud@Z9}t0o|}1T{ql$-lAY>Ve`VR~rft$Ys)NFe
zyz+pC((DuBP>9P0bTm9#J%s)06XG6ZUKez4Ab)F-{qi(BnZZ37h~1x)mkn;2-xP`c
zMG69B;pEQ~<X*j=w^ji~V<*y)`;AC9B8%-`RFhg{D;rSbOQ;>LQ@TK<Vx~FL8R6*e
z*;Hn^SNpG;HT!Sw1Mpo`wgjsAmMXt=i_gm+?rgiMd{TQoIG$!g-4J$YU4f}8CRd-+
z+#w%9<H~}v|0HXbDbq5bE%9X_V|v@Q8FD|C@=58Zz17wV4O@ruHah(N3mUB#b^akm
z8q=>Gr=CFgntLktZG+Xm5B<|PVWwv$zF>0iO9_$r*Iyq)C)qt8tHczymS63Jfky_F
z|M;P2E^6^#=5X@zMDjFV3|*F76TJ%7tXo9@^gjuH*du=p&f)h;H*LfC*BebuHV;i#
zeG>I#vHoDz#Onx>M3rXNq;;mXQ8GrBrrARUmVLyYV-BI>u3fv{S(XS-q-z;)Mi#yI
z7;!Z1>DskE=RpSTYdCaLElHEsNb^#hntTMcT^;fCBH-4GzQXT`Ro~B-7?I+pY9|pG
z^xNCuyyfe3;liIif)+AN+fBMPnr@_@z5nLxAsli6ri_tc+E}}hZ10fcP}Aa}I*a7d
zu@%jk$Gl9t0KPZP+1~)HAOb*#XqxL98Gc%$>Yv7Ygmt|nUP|v*I?=yB;_1de-^1{w
zXaLmXysX^<U$5(q?k-l?u5Fv@wpmz6sLyH57_uTB2=n3IZYqd&+ESgb^lob<sF6hE
zVa%r8VSZBfW<XPb9bW%1mUBfhu`a77Z+Gxcu8okuOl^b)g2t#JnIxbv_M-++)J=jL
zHsrRQY-n(sh!z=a&*0G{jNGyu?2u2%fqA=??f5{<>;8*!a_fNJA-`+$__`;lKgim>
zYr8)3S+%L?&7At0@Z3bqtIV}XR{gf=%ka%_0Y5r=UTl>KJCu^seCqcB_vF#E^v>*v
zy?y}gm@`J7%i#J8QlE>mtlQxbFOw&@FN`<kN>RI0R6}s4M}(5=e)Xr8wYEE!1|`qK
zNRoBU<)^sjIm=kzoGQ;f9lg14NMcm@3d`SL(_jR)8flGwrrV$kfLDkLvSl9>j*wb?
z5`U99-j&A|jMTP+TLpuOdOCVQJS(O4lxtRTu~L!M!oM<>>{vRsSag1qwd}_(G$;-_
zk*&FabXjIr+(yJ8HiJs!rt#J)Nzv2+aC^hE=2pAuhv)V$`6~WP-|}C$E{b>0c)owV
zx_wH_NYv)y)c*0+1<>zGtuh0}y|W2DJ5UcRvic^*YbPR~W@9NPph;pdw^#j^b;X_*
z_E~5>@*l5|#Rbh3FcvbByc0SP3^|I;$7FefOqB=-McW^X3t^J7k%`$Kriv~@b(TUP
zdqI<~9nzVI0}*Zsam}-_)UqL<{k<6j9Nlpx78U$pypKl)VmmTffb>G30hz9Kr4np}
zOO~`VCa1DOKzgX!Kk{&zs(#qV;^#-YZZ{TR?@g6e1<Ly#)&K(SwU|@{OUCxzDgc)D
zCRW)asTr_dK#3z?oO-2gnv%kh6TfnqPFD7b=-R7kQ!@|j7N0+U(dou{gI8rwZ@*aH
z4OP*Vpbmt_@$-YaAh3`e>>+}y?4=N%6Of8fOpiDOvUvKihK&QzHv*=~CnUII0+5r>
z>r+ROL4w=);&7q>&<8OnY&IL7ros%j0$vraOujbEaU)Md1A`VMmzgLoFnFg~bOb!}
zLl7g~7Zu=LMZ?}AxG^t3D*`&ebgBC=dm+&UufbVh#W%yflAUd{8K0tB)T96^utLDB
zt3oftD!f!o%np<~qat2k;l<dB>yyTa$SMQ_&cKh58D>cEZtWJWk3BU01cmoe-;KJR
zcMrFp+0h4^rqk##*OA}Bu#)~2Z5J!~n0t3ALn8o8fmK-0s)Gx(Z1@#K;WQcQkwS1Z
zQoEsL53%i9k@5^AXlrOhfWm9WUGK{%2oR5dA>OI}f!6(<{G}gDVq_^q(V>Ty40_Hs
zxUH38ZJ|Ly_K=7S6uHIAu2difU!^>$D->LgKen2dh%aD;hEzA;U0sQzMyS5lQ}s1@
z!Q5Xu)9r=y{^wiZWPR|mtbSC)zMIuKOC`@80_OSw->Tgqb9CU+7gX0|S^@j!uFb%o
zDC!ou9C;jH{J0CuwC=`??(+aRLTIq`xZD>X05X801inoI&_9NNUt@(pmHsW@E8tso
z`g(cpPf+MNf_xwA%tmesEy5h8#DXnB6C*w7ZlRni5}*ZpKu=kcv}z&GYIbRq#4bc`
zgsDmQ5xFt7CiR6l>F<o@8~$%BTyQ!ZBR7DoB$*6Qf9Ig4U%yq+cwvO^RsbRIEnRz;
zWRJO!U-KXld$4gVgJ-B<yAwucy144N4x-qAH4bk`6lgf8Yf%+!fWKKq{Lu?7$y@f{
zxU`Wx+Gv6m5WQ-_t8B{JTCkd>U|5WTn?%%}?t~RvDMTaE@{!)YaK*+UuWd^_(HW?y
zovs|;7GtdaylM?^5ybylgrZM3Z{B2cO``hNK$k=Fejt159D4Hs7&1%^mS`Vgqi1fL
z+qkoI_p={h0H}f!1;ql4PZ%U51wLF7Jl^+svGniBh|BbZ|DkShXA>+%Y6Vht%>Tv%
ztS{=|uds1>pn7OU-8yezu$3!MtY(HoF9uddV^kE}CTL0@p1LCp6}>TxsJ*>ipmu7P
zYcmVH9k>i~b^=@03Q+1jitWf{FSrST|A{>u+3TolA~7G>C?;8zAcrKgEId>)D2>S+
z@I&7C0aa%3SRwF2LPvkVoIffdQElK_q0S(RaLDOY?cLQNZziK!R2uXU$iWl6h2SHj
z(K>I8oG%T^h0H>N)-V_lt}&$eh``f8z@^#J1RWva#$0cnY)*1N?%5Iot;n>USiEvG
z!o47LnmOh+&?$8&I&SBJZ<^JCg)@Gf`u5STojw=enylWRw0Y&0HGk~=^Z6(CzMapH
z?qBKdt~yQsqoK0RnLCTl{=%8|!<Xr*J8wOmrv75x-oL_rp2GTVw^55t+1Q0jgDcAX
zft{_&!S#bqK~jHe+h+9!9pmS(whSIFMDn9;dlx{40UVmeo9|tSgUI%ARFrU3R8-_P
zTLXpC^wo(U7jQ8EPYCSjTR2OxAc_*fzF8#gXp;pTtLgTE<>80wjut@Hx&`hEH2I|*
z<49pm^lsMTZR_E7r{Ic-S@d)2oe^JymP)!Lc4StM*EF`~ZZ7s6c_7$dbwFC>diKji
zWq~q#Xd?<DZH%q<?Aepm!;Yy(?wjvE<p+~R22n~K9_QzF4XZ3;WwbnYTK+VDg4453
zJ;EzAE!nUo95Sj9Wr5JlOle#=;kkEAU$~azvv_4V%*(&l`LUu*E>x-Ep*P}HRMjtP
zKG{ab=H>;|@{%kxd-iO0`VLNy9i0cs1sm1lLRtfi_Z1bN`SM(J(PRFKja|bf2Gv}Y
zvv*fmz?qQatbf+FEx-WNVr&CrEHHe5?O*#rLOv&3c;EZ4TVHwVjPD8bvMIW~#N0RJ
z+=v5;fxA1-o{EM^+|qL&Pl_&zmmT@)=@x)eYYPo~w|+Jyamdxgd@$NBQxGDme4Gb?
zrg_bCmin6p`zgHdhT=ii+}vEy`Ebtm&zMAQfLHnHwFvJ0NR=FZAqao+o!j+R$cHOO
z*oDX(6Y;fvv&cvv2QsG0`)7C20|hf{9(qVbl<oluu=B8}m{=o_pMu9S{ozswhvg7i
zwJi%TqA{{}MNN-Got?IA+lMioHogycwo2k%OhXZ&r8LbGRgOrsgg72(+1g+w&L41Q
zHwqXP-;o-=cY`LbyuqS>?!xFM5=@s$?hh7V%MIb9>vk>V>s!V9<7WbnjdzV&mraSV
zGK+ROG|3?<DvD;GA3PR3tn4GAt<iRJt3jT(pC^yUQ`8sT$TQbVNJ=VoRGXY#`b_gf
z#wS2G&KjDU@%CT8zymY0ryq7``naPvu;m;un;GWstUT-VjwDUkhA6kKryPmTG{J8{
z22P(768Qko96Oj>P*Bl;Hn!DvCbS#i{&SaNx(hrmH4qGg2>8zB-7QaNnCNsTB_=lD
z`?%p&4T9x^Fxl_<`T1xc4p+_t`)&o^+Ylip4<X<G#xhAUGIPT`8O1i(P0`zj;O)sj
z!ocM6#AwlkR&-Uzli1kJAW;Ul!s-y3!!^eq9m)m1Zn6wt-(6&B>icv39(;U#yZ1!>
zG>R>w<sgM0WM{dicZ`o0yi#!O@zTiQ!SZT)+>B3|bsmxeo~kze7FXUtomWTBGl?F&
z#OCRn2#4pD4!>4IG!fI+4-2O-Da_N1wp~ge&0X|(LDQ$PXFti@!kG|bT0u$Fa7WKW
z{c{_#-n9HU{LB-X+5F43x_+)Mb{+b_&i<LNbT_Tr#kohqq@eDq>&3-tJ5+%bOelCL
z-$-C$BDKgRy7Vl)K3}OC77{3b*HW8zyO^w`q@;G_t3&ntvUg#IS>^yY*&euKtir?;
zQ(W-gaH9`NOcZ5WJ)81V{fhC=D@>O0?vN8VReCop##yFKiqT=4v%kIG$YRiALl;Au
zmLar^cO`61@DovWymx*Qi>+zd(^yapMSde0z%GJ#$~UGGdO~ZoV>H6&I2Tag$m$vN
z^UoGXHmY`?ThEq5bab%-HD?I<s>A0?3uvOpTBaC0EzOe34b_bTZHG<zd2eBwAtPun
ziN;yABy0;a?7B!j+sQw<By;xxZ++aek~N|~X{VeyiIEy?Z0B{%qzaQrZY<ABz+F@$
zcwPn$6>X0~>A@-~JW!5w+2`8vj@ll0<O?%<KpIFNJ{%c3Nsh12kTE{CKv=^YQb1W$
zwq<g<mBqy@+ImdZo;lLnK=L{1?&Yz5YIS|NOEZGMz2X;WfG1z4KkW<S(_vW=bDTf@
zz|Mhk?||;B$!)X-+lWT?Sp#ZW$0TZgw02^|Ext_0DHK&wYa5FH$~?WvlelvbKRp&R
zF&vXuCohs3!V$ESq-m)=-(qu?NAk8-SOh|{Wc$-S16cfqppkqd8L!61MuTx0o=Tz2
zW5<`PqmA3M)f>mR1hP2|G%_o_Jx;!&veGFaX8WS!kLS2{Uogg2t<rt`7;fXi`0E*c
z#qy$Z$0f(am+VAv!wi<F9($aAc21~Lcx#(vt#Su=h{??z)(Xs{5W*-nhMd}@HX+FP
zm6nzojFaCUq)^T{M8W#lH{ze%e<&_3O{$6uRoZ}jNPRg9jw%d)mM$#wpA~uRKvGTX
z$C~jlS)(7q9G;J0)R)R~IFFxU`)Fs_pS?-FM$dXGDk^$jZ*<+<<ye*;2lsiKp|pvi
z;0b1`))D;U<mA*?6da6nV++%YBb+SMyP>qOW~64&@Vao)+XY$OmvppWSNhN5d$J7i
z2DUR9Jt@7Gzo+{}oJ5hu&Vjn{3GcD06{3&ydVY|!B!Z5PZ}5)8K4a=h$^r&~wxzj7
zGQD@58w7QkEE*1`;w#9O6NmJ83v@6BGA$Kzr3;>>Rl%}mgD<BXU$4#YhZE*1z31&b
zr3b>KIt#sL2F84&_{uv$&#Ve@y)bgo)b#OTgKW=jPX-fX@5&qIr7epQZ+jB&nBbwI
zZ;z2!R`9MejEqXkgO(#6k*G0JcZ@J6XmD|P;qo)3)2x4Cw%A)BR=t?VEs5mago17a
z$42xgOS>GBauruq1weZz%Z$S~zKvVEx{Kg1Y48RwQ2@@sugG;Ez8oK(GK?Eb#kWwb
z>3O@x(<U_=x8jv;+qX9XuHv9}zlAAq;&@{Dc(-_D{*9_2Ev-0DOvKzBv4Bo*S6xwF
zK0#ZrrEQ{4cKl(_x4FUJ_D+85EyTGS0AHstutopvEg8)sL@a-xmeK&cbalWK$Y?5v
z;><n{u#&?MdUYX{cYxnc{OR`(==_R9$Q+NpRzs9#9HElZQXlY~l5`Av+H@x*P;?x|
zuq_lBx826d+zN1mM9hE5ZTzIojg{C~i;b9{@zOH$cGZT*0W3P@=mgtGLiU7&1bskp
zL$Gb{YR4GK)KBMUMs#|4IM|>v9?qy+*7Y_yt3L`L1jsPqRIEhL{W&h{(H-T=?P#-@
z{PvP(zr3OZjcJ9-gr1m_^*)tHr|;nA6G^RSF>+D&1ygvKygxW8y@irq4D!x$l6nIl
z(>n}$Flhm-O%A<A^$eOLREBAxjF<G*<VcP7Gi7ug2MKAVZ0hLfaDb-O>h(NT+{<gr
zQ4PnRcz!-_3x#`%NH-RX3ZV6FFKTnvz`%eICY{p%9uaTwo_ECPeR;%<{-D7Oemran
zYpi;>YKP^EqvY&WnCMgB+!!mg%i2ogmZ6P$jo^Ab$rMS~B3K)Mc@Dr#&oqu1*gP9R
zeJK<>j4dsTUR;{ldtt@sN~RShOHj$P%c8$;4N2@RqJo$#kSm7%=1I8}gA82jAaG0w
zuqkG84&|N!9U0SexE!bcgbJ|=OctQrn4UO1^P%^iuHG>&9i~hc#LzL_{d#Y1Fj?ec
z8krFtWT^J^#I7vdTZW*eFlft>7XZ-GiQGjUq1+m0sS%@~EHpGU5Sm6q;;K-i++qyX
z3}*Q*JNI!F1cwKaa^TX6fBCCqJ$zyFuv)cIH>4LuJ`B-0dNPPX+GuMWhX!*?Crv*;
zKY_~r+n&x0$~L_iw2^!{)TEV)@+BT@=VL?;e1N;#jFn`DauwDwX;B({T4=L0du=T_
zAk%X@@54+O3&_bpZ?*AQH$;Upbd3m3kRDeS2i8q@FRl=GgG2se!puR7K54YU<vB-E
zv4C|zuBi~3nko*pQnj3$k4uwe?cET&X<ZS9DNxpy)YJr(9FY_zF^@#!0omdAj9fU;
zDGzDn94^LuqW8;<I<Chae+{jXS4gXK+OonObvGh(yQCg(-g&#PJSK=1mNq;@rTV@x
z;`O)o5O}gVXQ}le-Pc$mcLSTMtEPC~)s8MX&XIwZ`eOKaOP#x)3u>Q(_Vy4<3S&5=
z4_3s_TBceA#b*nr>bEDo!5&iwz)pt=*&$fyBheoMm=;W%VMunOX`&vX$=Y}O8O_@o
z9x4TM6{K#v4f(p|9+B+uMt!J~WD0>ZlZ7A`!7<ogX%>%9obn(A1mU_xQ;z$}jF~;J
z#4{Z2z9O5C>7c#nIBc}b9?>Q_Vk4TF(2y$+;m5F9BKNq<BD$Y_Vi8*yxu}Sa4_DB=
z5}u!o_S5400P(G`^-~@1m7Um%sgTWbmT}xz4`dUWIS#6#FChcC!@#E3ZM=LUa3Ucw
zaV@hUn;G|f`jUDaV_qdth5KmeV~&iE9U=(Z!5mOZbw_^U(zd89NIj^{A{Fg8y`at-
zas1UjpUYH1s?UwFvvWP^KK`h2S{Jr#CnY})W$864LmJlB)=7BL8`voH(J%utT|{;r
zB_uB4b#FceKK`R!u1Q=KL&@VYai<BvSw*bcrlbm<;X}~CX1!>TER8LcXzSa7P12n5
zM?Z2AZG3+2IL%Gs2&LnCXo5T_j}9_&&j!ibp(9DqM`)dSKCRp=zMuyKPr@rxO~sF2
zK?IOM1FZ#$0dK-AV3vHYA+OOYH2_G`lb$<#`&4_+4}$j2#fW6R!o~QI!=ZuaDmE~C
zkUR{W9s)OM1l*0uQg9nCQHQS0H^v2$V-^ECDr?VDuGcK8HCXj%=ER^Zbk^iSgA;%q
zv3ZVkpCUq{Whm-uN_E>LN}+1K%}7NUvPPn1^zf!wMAd0wCT`03JiV!ZY9pa3JSOs_
z{h<Ip#?!P8<WkJIDsE)tDJm}Lb%~T!N;uw&6l5(E7%w7kl*wfe|7dMnuF4SPENWi1
z9f*|7nvC;FF>k;v*|YSK#%haHe$`SfG1Wqp%q&zrY!^4>gFL<6+zbqs%PxJ1QekHd
zl`hOJ2wBTLj|#A@pm*bE9>FXVk;hKWY6o=x%+NMih*uQBbaaNLPLwkuyU5m`x}mx5
z0s7H+ex}G<D9!|QC*Ew&x{Y4XoFRgdQ&*=T6GVq(9+Y{$jB+53Y3wL|JzK4YQH0@p
zoU!t+H7@wkLe!dCsm7I1SNfGG$Vwx-oT!L$j*O5j=W7kcK7$fK+aV(^^(r3E3EN5(
zEGPgTAL-!kK<Rb>sX=nS|Mrctqo3zQW;I@3VsVg_ff&`rO*=075~s@V*b(uyn2x$%
z26MQLkU67#lS4Q~*0L4CszX6i;t1hv16*~o^++u8>5R@=xM?M_LJDT$R{9|6e9V)|
z*G=?noG6acl3vsn_RvF)<=kPaE01lDc#9+^<52RuvzEbhgCLn?;;^775d%QtjM07h
zc3HiFHSL8Ww){(WX7=U&IU6*t0jvI_o@W8vK20*I7-^0L+bC6One9U1I0JDyb8%$d
zj0(5$CO4hV>AL7zD*}!dkCSD9T?8fkanU{aCh)xXrX5fH9KdbvY!eeRq`VM_Auq}T
z9CSlTHGY3fAq4%mQRRwHw7HGNWb_7h9m40N()X9S>+0!n!P`6tRKz*KV+wCTyDHOH
zzwoQXdZ6&G$aRY=D$?@%Jn?9VPU{Kma^}Z;(<6Xy#4v}}dAKCF5bh_uq%E^LP=)tx
zw{abxk<5wmZMu8wk;8B>kHs2AVB^CTW2Y$$Y!i*LXM;U8j#`7j_iPI$8je!EM+!f>
z*dPi9ddrTCPBRIu!;Veju)2(7N7Pw;&4#BE^STL2ft>iHNJjSyw#QaDCX6D*(;NS~
zV&W{@ss_76bcrbv-nR&5DKE;liHbJB(>x!+Uafy9df+wUK>Uld{D<y5eeoiRcHVvL
zJbXxBf6qth6L%OE`OqlutR2B737EaTYLiirgQ3hotY@gQ0M}*|fn{sqjx~6)4h@ft
z_}(ork=aLOcpqU*bn<D$Dq%08D<EI*D#DUml^ghm-hb{{!`Bz+r~BLqNoJWN0S95J
z1imx{SRWzq#cx~)N^<KLzwqnBi<B-p6EP7!<zon6(p?S;QCFbOcK0(iGs~xw=jW*@
z!0s8Toq)mj)SaR-{JeTlQ86>^JT>32mqZAw$LXgw`HE-{56%<ij-EQncW)-4Y}KV>
zCDL=kD$`o-UY<Kgr@<hP*=V!;;gvRvY-f`>zIYdw&io7jh3xamexM4JgEsndGS%nd
z1M~4&p1j6WaJ!#Znl#h;)B8NHz4_j~KPQbzrg0<vpI~7X%{qJ)qU?U;ySG5=IS*-3
zRE#Dg7qyw@DW5MB`0-(9!HgQJc8pJ}4V?dk(ruoMZUMT1v?9ObDhYn`GN@jQ3F^8x
zX#&%{-1_?)E5}5CqJBtIHa&knca;y3=j}54OCwb#W!T4$7Bqee%}TTWA)Om8+i*Kn
zLOnurZoIc#sGq00f=le|{;G|EwZTf^_0q!=!zHdQ8J*+ap%oJgjtVC|cU2!+IM(tp
z%Fbup#&rr`*tBU~i%+4x3A4Ls(Dzs>PMKfc*3`=9^5x5}i7wJAZRV%V%-Xk)gvuJU
z+|;n#gCPXj<r~K~a0ub_F*tH~f6HBsuA;_9!;#Qy8lAp1i+7wk0lZtSYaw%3bv~ba
zkWzQ_Din~qT|aZ06&&=#kNC8fz7m4)$$}Mv=t`(g?w$UGb)CK*LMWJMDsih{=zNo}
z%h__FPvQ$Dn625m!^h|o5va?IL+*fb;)Ae!)Q2zjvAPkoaZoOKF|e}g04rj0v`XTr
zP)4_0MES>MP1bzwT;}ui%W84@%*-`H5C796<22;u933ec=vR(PzON-xW}9s@9(E=(
z{)3!w(*0gnq#rSDt}UZqJMaK~a^$6D@9A8pC-Oupy1_}gZ>;!3-=JlGn@jt-LX_dh
z%Y<kYhg9?+@5#<RLirEh|8paSPOkX+_1__hT^lBq`ZMJI*-tZg?Roz%d+~o>;y;~B
z<t{!xo1$0gt}4m46E;OZv?f`o9TN?(KjZ1+U*d3Md35?%Pq?&JTvxw-ws(AE7tVF_
zHNpR8&)lzd**#gB^S<1n{x&hR4yb~++I3bvK}8Bl>LHnL&*vCkS$3}Z>qk^%s#Frs
z%i^UrxH*t+(O%>;eVmx}DNxqU6^La*RT*@34Fs#Cf+HbdnKB84`$#EQAU~R#m2$eg
z5cD*nbohKS3NG~Hm7{K??APd9_h;kNr{6+kzQtv@Ps`^0zEoTc)~GR?uCDQD{_1#S
z$LEXA&3jfvoV231K4G3*TJ$^}>2ZBR$q^3fqOGT1UByNJ2rrBl{6&Co@P|(rxhU<^
ziv`cBhTK0HRm-KnyYr^;GSySSjgIs*Zkqwjz%g*rCucP9yxm&hZi1drR;cAnb_sDb
z+L}IT-zA!r8TWd=ratV%q?b35y@e~XwZ@HZL-Ld`p!hWch*pm5?wA1EWF9Zxt6g7j
zuX+L{e`@oC>nsK)Us=Vxfke!(;VabCThUR#17z{Q3&ooPfZfEL8A84zO%p{TWs(cT
zD)k=+o@-Uf(r7!pNXL{HP~()7*BPNy9y1(Sym;~OVV|0?*J3u~4Mv%R^124<T3$yT
z8>1>$a{Py_eS(^u=UfF8o;EJs8W4)!*J$;{OO}irMl97(>^^rNF_Z8!G_U*5ar^eN
z9O$sqwnFf@J*Yrr2y39PrW6jzn~xL-z#)J_f!H7QVD1Z{eo);}NO)8gd>K@NCBdNe
zWDRD<92gqTLlA9Sc7L}|>tv9wCzc7H7_qk|tX~WZHQ+y{#1ZNjnp2xLJ1!$!)~F>4
zL$9}q_Ip~6!Q3TGxVAv~C~o@q`xZ1nh~PrVr=ExSqa3{sB!e6mbKKtq!NlPq)wAzQ
zU|}b<0F=f6LH0sR;%0xdIHu((-nKJcG_6b1o6|tp452l?Q0O%xF}DgXxSdYxiiCr*
z$=(mg6r!Gf8Uu$D1iUJ})w;_*M=}m@jZE&xV`CdUg}Av&fkND<zttg)@~JOSFrynp
zKVNi}yzqxF(ja}<f(t7vD&o$3exc);x=ufwE&8>~M)--bI@XJzG)686a6-v+Jj;&-
zKE8Sy(B7BV{pm7k8{=&Pil*=#=bvWDzpSCt5;INO@on!)IrMDlz0`jR0H6fAw2PoZ
zI{qyUI?|}_A<{qk#5zU=$?nWx|Hp@uaQzt>iEVY3Qh36l=as<&whG)+OC)?F`fD}@
zJ}wM1@W~qcRqu7pKTrQ}Jbk(6m2~lB9|&wp!=(;NsZV`A?iIy3{i9ilx-D9roxpU(
zd-J#YrcT+TOJJWD<K>k(UA;7c0RdsYYIkFS)gbK-=sNCF1&JjZFxg<Ii;{~7HfC|1
zf6C+!$0Ux=s3~mdM6;9?kg{l{R43Ff247zNjk93w<J3twCP9M@fYCG!En*<UYJi+2
zmvCZ6E*KC$to@V0CA{^0qEb36XiqwqMwE!aGhjy`jtn#1xg&dGB)h2t4|9vIsimcY
zrluw^@U*HnPJ<QZ#`%FwKPTP@Ta;jcRfC(P>6<(i(`-Xs2u=)1{_$_45mfO-r+m4F
zl2e*O6M+?mAVACYy$;6#Vl;#k3_+Mm0&K@6%jhN4W=8c->zc1=b{lDYcn(M5&Zbp!
z*Bxr^89FRh&H!Vd4|3iqgO`T6o0JZVPu?Nd{=41VT)HveE%}e6S*>wm<k<WZ1@FNh
zOKU_+=LQtk^_>|*qO1KdE}?%Hf{&xs|70uE{;#B6hx>osX%3(}tmb#0_rX1HDRlAT
zSFVz_a2(S7ygDSqX%@P;I+Xt7>M-?jY&@vnBIhR2HI>hFJLUCg{O<R7dSl%C!1tie
zi|i(WM2pp$=?cd~cCcQ$x77Sr!{ISed1-4#oK0wU0Qy${%rL!5kj;Pf5zL-GM~@UF
z&osHPt^bZR_uac&=qHwCqP+G4VOyqORh*|=Y*aJ6Jh$i3xL;_H_#f(NN*!9;ap_Ai
zrtp=Xn^7aW7cGhZsqpxIS*o@PLAw=QIaq32CLk}(2~W1TAY|DZqu#2mpQoh#{R?ha
z=LM1fJ6W_zgdH-Nf`Ny=6Yt`u84bEtAFxQ!Hjm3t9uY#|Nc{9a8T)^m>V=m{V-T7S
zd|odT!*N&A&I0_ne>;R0MD&!vaLh7?2M3fMnNc&*1qdz=D)}JrJb7hsxA;n2St`I>
zYY5_ukh_jqn9==lqQl_YWd^0E#NptlmpV4zPX!}Q)N~^p@7{vBzl$cDMwYxti=EzN
zma~1DC5uG&sD8_FRc!^zPc#<*D$0cjvqbLINVg~w&=KxOdZ%X<=208%zu$%o@%E=L
zeVkk|0dDBs6&Y_vD$48O0^SeunYuiew5-VxLO%#E8CG^FKzAvNL5yJbBHmPx6L=|I
za7T<>K#zBjdq%_%$?C-ba2)*4>mVvAS^~aP=ox&F=m&6_pGnjgWDz2qimat0^zCje
z+8QB~3^_$T!0nFXkGKZFDx>T!&LGVbPzv6^G(|X^{@mMrT|zTkz1Q3h75rD^kqxw)
z;+|Nkq1%mDUB?8B@Ug*E!Z#XRT(yY3srUdf;!d5Zk6W#mm?s?d^Y>3@8{4*gM-_On
z?ce@|TdRSMd?2-ERVx|J<rABV&$zDk+nenXS&fKSMZX_ddYdtXe*B7#^T|GXZY}b<
zdB}s*`%?)rL?(1DdCO$(<3YI(3ZIS49wbZWhWz0AxQ+?nG)=p+)Uh2%g&-jg!&QXJ
zqAs&&(zpwmQZg&lr*6J92i=#xgsQMZwM2|S-NlW%Aq`UqS8i2RM*-6ds(>rXAqo>g
z_%@*Ts4byKq!H~g^H9rYo<1S?I%rf*GeFf9HtJs!90%4AN{?ZegPF1h#sDRpwX$Rl
z0FE&s_?WHU(>Rz0uKP$fCk~1uN_frMJ=`?;_>NNzxNP&Oy{vlbe6;$t3bT<mFypw#
zHM!>Pv&BB1xKxx4H<n0m^L-M!AF7dG#-DYHtWj_GWw&iq#{<pIWqokVMrMwW=XyKz
z!eDckM2&yQ_{ct=R*7Jw5<ahLTTEI5LuHqxV|5`R(2lnmeIXM*LBPnR%j|6Z0x{=r
z-Fc(xkjL)kmhsX|)*vd8F+<)-a>qv$h8BykN=7PLAh5mR8bd5g5W`_&q_)=b4ex-e
zA?IU=qZ~#BXO*+eP9Ky9Jp$JD$I?5H_0q6G%Eu|`^U)jtrNcoEXN}tJgY)D&%~Nk{
z`gFJ^gZTjkVt)YG>bqME<ltW#m)}cNJPyBxZMlc|E0TKk#_~49@x9MSCeRSNjz$Xx
zF0n{iMHAXVhj<ajPRycA_g{0AGk0mYE#w_BHKz^sl8f-nJ>a=TdaY_5p6+MU$=$&>
zX48p&y1Mbd87xG1qKO`u$S37$(A!LOjY98pnB@$flzHsf*sor&aFE0}Yb92_Q|*Wj
zsD$dc0NYY^2Vk2Bv3Fnul3^jvs)yRN2t#*DAfm8zY16bV=z$BLI57n{N!GxaaV~tb
z`a+3KSOmqA2(+hZhT=o@UL>U>_#?IZ#mqLp2J7GvEt1MWSV;hVq^S?602wgw@Gm@@
zHINv?6+VEyC<Ax6bxbjkn*rDdwj5+E8o7iM)C=kk$yLXJ{(s6csDFD~yza)<Rv!bf
zP;4PItk@or?*EWxK(YV<b&^d5SmkZ7<!mu343P7IB(-6t?zi35aZtFVvkb5m^O^jC
z%E>}B<WfNWT#Z9hz?m1n*mB@_Ke`qWfd)q6RiEPkd{9jmB2mv;!bGh5-XACv<`Cm2
z=QEhu<s#l1_OR8b0oPA-z_9_;GE0H~*m9=wDbAds<3m$T^|9}mEI9g=2|@8~AB6F2
zX@<?4z=rV_1nfxW!+J1K1%zL~m)!9{E@Yf6IEd-<5=0h!_;%3ah6765vbAW2IRhHs
zWSHX{gzM`{9P|%nFgx$}V8QEZ6CNkkxb%b23bORk$7x%Ds$Wo@7o7|VGu0;?Ry!V~
ztqKLHQc-zRQ`5EbnG@PtIGStarQN3ZGcde1T7MCyLu$uEJQ2ns9Z<Nb52EVvxF?{H
zu@9&(G|nvH{eIg5s^;Z<sCcZ^cgT^fIa(%!wClwG5w!m&V-FjyalPx>^6ZB>`H(WP
z7|@b+b@7e21doSz+NE@zdAIAQ2Bfk)J*qd6?CMZFRCnDAVq95jbr8=3^q5xHdMZx|
z21u(dkY@786G;BhT@hvH?F`K@6{^);Lct6?Qt+36$ZU_WoS}#~#JaI?^Mhz{zzG8C
z#HghiF2a1|wVcYDfuuA;(u(O%3Y!c7R$;rD#qQIN$B5Ms-cGbF*aG7aIUiVD#YL;5
zOD<E6*t|#4>HvFma^nEsm5OqvFELZhje|C!Oq7G0TrGDCl$U9S<)<Is#0IQ7o0Dcp
z;a3Umgk_STL+~rI@K0X!;rp*kn~3n5DfT7M_gdko*FzFlfWsP3I2R1YIQaiSLaT0Q
znwNjA%V|PeKptd@$uGVhx6MRPEQeRg<MKTOL=j@&(Ux{%TX~eH1Tk}{GDHD6lDq}M
z*&nJQw@a03BEDOZv_QqR)dBh{l4;|YJ{Xf+xc6n`jXc?|j@AKRXeSu74M~udA1JvU
z;z%9RHQ|#O;lGi>@}kfz6=3rRg5SdDq`C#ao2pev`V>4zQCKJ1(9mx)gcm{rN%RD`
z%tn%fuSvSzDgd5$ftVtG;hv6%K&~Efqh(<H4j6fGJi7JJnZ2d6h02Bq3*>i4z<AU~
z3BjPpBs!xfk7zSk2{1u)f;Wjn=rDjvvyh%0lz}3H#=1*4LTPGA7YI^@?Ib=z#u)d0
z{}LYL3gS5q!OzZg0`3C*qzYn%K!u9|*H1>PB_LQ=O);}f>Hxfw2f=&Xi?5Qwvd5FM
zNc2&D^2)NbrKSdLfKiIDL2kjbrf=A}#>-rDo}k2v=yvJI#F`BL$URNHpJ5o#gHaV{
z5~I>1dp}#Gclh8TZ6Zdqp!C@Fy3bKfc|idRBo`#ooJc?-N<mq!I(+zWIT9R_T=sv{
zDzDTFpI@02rx(7xYma4eW<@Oep`T(i6D5;3I@D`=F8WZK-FU=nnHYm4$1GVsKCbs<
zo>qDeE*i>5&<324oV;<c3Q^h%{b{oJs#;NX(WlEzBs`NN+O*lW+RzCS_?e!Ve=X@N
zEkPMVd_z_io^AtV5$d5XrT#(`)}Z4rZ?KA#(6JokXhN<TaQ4k25?re~`GA=VI9FkO
z7qL*z`W!#U_;H|*$>Vg8gY`ejetRxAcmO*EX<{%)+lZn#n}v`CLEbuUp1MM#?QDh(
z3Wz1e9}>RQ{sMDVQdvQaUTRg;0off%>C&~5k}J;vW@>=oN#nDrWZ{Zx?OH;<9eU~`
zLfesOrWW_xvTaq0nyS@Ro6I#;v;*g;4g_&EENi{821+N_1cEC4#3$*JO)u#_gD2dH
zm@;l<-F?ZXyv_gxRy`@>JCbW_8hSIuRR`+TBDhJmO=_(zBkwBByK=LE7^_A%kE(F$
z!hOnH`^Q0+yq=d~JAho%2%g1s^6p<*?gw3#5FT?rB&Xg`&TS-BKebPg94zT<q;NX!
zfu*(|jvAX{A}mQ>jqo6?>Rf<(>xTB9(<wt)VMX5+4V*=U^wEpJ0!a&~o~MD;Ih{xM
z@2|qn9%?=y>xUtK{6Krpk{1CshW@2W)LeJy*urm>_ADu3Hjw_0Gz|=9@}RmUF`OjL
z!NhROB$!?xF_r>E?EuEXI)8JH^0j17*S?1&2n#k0Z=}OON&q0?IQlqdqj=xe-myvL
zHO|piz`C>*=-mkTHSl=J81kI>=83mq8<NoU)OF!4&>T|5z>~y`RChgs5=wKV4(rRI
zHzN){7@{Vgs4b<=Lmu%Ts3fJvblKBKOJ^HU*gAS(8JnaLAklLHz5C*;$)K}_1EW8y
z;g-iud4e%ojRFH%5;_#92?;eeG0DS2Xd#so^*BH@<4f%quwd+!^JII}89-6V6Ai%^
zAKzuw(2E6Gw{Te8LOBEHDhYgNh=0B~mz0!YIc=J_d8rHFx=7l3Qd303)pzOHSHEj}
zlsLHXN>*stQFr+T6-7ox`lKN?SR^_s49n#Vbz?YoAxvIX+tMNf=lJ{iZE+hPt#a-y
zAc1TTa+HlwwwsC}#ny?6OwM_!S;X#gD012Y1%r@w+BQn@lZ*J76wY{?gT!Vx#VXd5
zC=d^fW&qVgv2u<yY$_6}0|WoIgWcL<lPEcZB*2xP0hP~>{4JneL1I;icCx1Bfr6_0
zggqZ?7)F+j{J{5ao^^L=Ikb56b=m<$)0Q9^6}AH5xC^w->;k2NQhQJzCJd40RVJKq
z^flAsL9aLnbZj$EFAH+4;f?<mgFJz#<lZ#Oy%?6RB^eI_mT^e3dJwrJFCoLBAc>8^
zT~IFDwr#UXy-Cjl-!cJ+vy4M!WsMI{ZlK9_DXkQunvDL8G)rst-#9p_vLWxO$2h4Z
zMd@keZoolt$<me3L>5BYa?-gx(K4@qMn_{no&~97_Cc026{{p+gVg7q)l!nKvR$@<
zjI%HxAi)}Wwh`UY>-^1FlsWbIu{%7$J*<UT(UZl1jidvq<!OVl&niHv5rAuy(vswO
zXV`KS9M?2w!wSf-<nZ=_?GVe5C<n<f^{YTg)`M~>vB;B0%8+*6ta8^+%e*0Ce%dqW
zj3j2Ls!1lfIP#%{hc78}&=z%wg{LFbYiGL8G2I-IIp#_H_O>Mu4A5Ss`k84(!mQqz
zmy%mEva%$CRW((Gqne#lB)F~8Ei(f>yO7&hCPqt!yUGYbcxsv1Z}sZ;1IpvBM0929
zs9JhlF=-;xa@9xoX+@F?`ImV}^}Jnb|LL!C>{lu=un9n$n58!O43XFiB{^-mM&6bi
z{2nxE%Ry+UY_$}Dg{{|t8>HoHYFxUBixhW@W@gO_KKJPL_HALXF^jI+@h|X&EjR;}
zYBYC?MWTVETL-)qbS=sY>&P&^b->Yy72mrB(-*#2aS#jj3KKfp(+gMlcFj?jcq84J
zQYWD61dnZ1Qy*j)q$7BXNBOS7bXWk{$`QyaS^AXSSX5D*h6{*%Pvaa;b*@r}3u@Qh
zPc$wUBI2bna#vkh%EB%WDa+~1^Pxw?Vvuso_pU_WfPKrI>^Qy3Gz~)otO_U)i`3M3
zCli&V4ivc&xe}73&E`bKq^p}c$TW2w@0Sh_&DxQb9$7Ke9aZBf^TanfNN}W>RJ=Hm
zjFy_zxcH!@@`)8mj?3k9uO(;l=TzhkG(ZBEnct@Rx>YJ@__||I6QBF3W8J0ikwOv@
z!3ZC{)pLAV?ZH|kR*?ocd|CabT%V3_6~&<wF`1HcEFV-%{4{<<ZcpW(r$ggR%QwjH
z@}3zt<3+O80<qMUKc6?7@$;#Xu{f>Yd}oH;Tj}$9MqJ*b?t4??w9mcU&0hA`d7<6q
z8xp3WKX6O7?6Ch?Rw2VH^U`3O!?2Y37VE;MfT8*XacOa{m{c9RFW$jkzP^v`qsRQ`
z2)ppRSubo>t8d7&^jlM#Tv8UhRKn(GwDc|%GrOZ4y;%3vgOZkaaI55dh9YGKTQgK{
z-cl+1-}oRy{^4+Jn0DFKt3SV9xcB_Z6ELmeTN#zqv&}9r(ChZ?DSY;5H2Blgt9Kim
zp_R-k9-Z@8b1Lh`a_Plz*E!-@md8#?jnfU8-{bOkV*A~;$gct8jjf_z=j%2kAD64U
zFCF^zU9I;UIo&P(1;u&V!g`?rk*W1jNz){J`Etzd_{#$NLv!_~@<H|TBS57bxc_XM
zD9H~VQda)aBw)?z)epXSI(1K1baa&9TZ!@R{rhKp33&sQeoQI4ICa2tL!e-=^LvdL
zjR08HJV#c3%g5(32+tq*(60K^uHQneSFc`u3qAE}zG_!e9F^s3VU0X>y;?z7Vv+N_
z>lwP3(lGPhi5Kh9gSRpE&Y^XO0ww05W!7h1#OgI`&JK2Jzpitc$3es88O*f+t+?P0
zJaYSf&w~%%7kK2n0uz5U-tcfs-2;zPXT80?ELop8{x(0~dtHQ}a+o_ZkrU`)<eQN+
z7Z>4tScWN|PV|b5{rUWf-pwWG^fn!S`<Q>I2YJS4d|)wi%}hs8vaASn>#P#L($DGL
z7qGB<zG}rf3#XMUWbs`Tvt3;vn4bcl$TP-?0V%6LX3036a`|$zVfXIcXW-TMdbny)
z5xcb~!TdG5)bz{Ytb9w=kDgaxsK`o6D~I*X7yD*QIla&wK?`s0hX=#KvrlZ;D}P1`
zG#z!xPcY4Mc;am>>YMRC=>bc=u%go>T3m3WnAm){KI{uu3Z(~(@q2vJ+}313qudOS
z)GrPuF0QbLxl>@+Y$MSke;r))7bMt9&e7{{M*X$0>FU+1&7YtBQp5Mh;0<pDkBYey
zDI5;x0>)a{9MD$CQ;{ee-yCY);C4}BcwykE)>-xgmw+C&J!Z2_SA42ON{8l(L_zm#
z{yFT5^`$4p{O47M?HxV%;34;qfsXkjuPbA(Hu!AR)k#b5g+#b6ndWAn*m4&})GH5n
zl6zXj+>ESip;irfY8m#M=Zk1vMa$bk&&Q7+>%kFW;THX$$>!BRv-iWPvwa%BwJEpF
z*{tvoV@~1g2v9`RvG7#v2^h^F|NRLaW%CHn5qWL(^~*j_u@o3#eAfcx<m~zFM}HMb
zzHPNyuf3c%XeJ2(V|e&c>@1gEZuSP6-AyN+@x2~y82Vx!op5-x&)s=6#i4hdMNP)v
z@O)T}hfGcJ32QH{fgfQ+e|fyFxY?Gwn_%D0TUBnWRWeppu<Vt;^WEBL#U*p5JUhKj
zz~jnz<LM{c?jDNJ3!N{gXTTOv=|<hiTwz?67pT><zw+8{5o6<Y!PG~gQfJS9aOGO;
z-#;Bb3V)$@{~r9P>~Y&3g=dSgmd%HzozM4XJ39#*y{i3P?pof*#bIYXuzJgX4fr&B
z<ykAv`;Z6DQ=h>!%I~-C5Uo(_jupowRLAc;l)c!H^S9vES5_}yyx0Us&~3)WKmPvv
z@9$b{4k{?*AnZ=zgYEIHQ@^W92qYd2_YCL{v|lsxfTc%AWk;miD=Q4mzIFHR-!Nxh
zg|YJ+V*_Md7Gw6rGi0PUk;WWsFv)yW)9DK{z1LiiIm@M<!FKL%OdyaS;YwWF*Os%C
zed;&ab8bzA%dlQc;OevwUe#FSSyE$tC8ujL#8IGLfJe~-pk1e{Qex#}!>aeLh1Xum
zO}&iU8+(#qwD7~{&!1DA2BWtf{R$E2CtNJ7igj^C3oNY@&5`i#ft)(z>l#T(I1CId
zF)RwY33mZKv>SbcVx;5gkx1?}fLIG*T&?m%L0?t}t^1#l#_z|;JJXOi@B6vrtsu^&
zc~+sNYO2KYVgF*a4Ica$F7grfj$hQm*<)&0lf(1?(D+{_HKoZy#GxYT!7cgd1a0|f
zEN)&@tkTkKmY3IN*oxOTHLVdBUzD4h`}2$$yS22ILasc1!0(oAX%ipqg46&7k5e;W
z{c9nYPcG!^_sbvmY~QA#+Gzi;K<aiVAjS5$<(V^252wnlP)`V+h2av@x(DTEg^CFr
zz9Zfy`PE@W#oMHzwcjyZH)GlL9W7p1GdO{rLek{=_iHmTJz&@v8nz#w!#z7Dv(&V;
zz!etoGwJE$^qs`jhT!<hd&4nBY`6rA>cyB+BT8SzvPQ~yg?6Ia(#-kwg6`hYH|?dL
z92bPO%Vp$oa!$Yb6&PX=%kNnFTgRoy#>83(j-RjLvlUVYr#Qi=JBy_qw;2}rHQ4;|
z&dd3Ce#Hj!xqrtf+|Drnk~%;KE=gEKr0`Mpjs0t2qH!Isd<r1f!6QfB;4!Pn8m#<z
zD!CTp;yjorb9>Bw?SQJi{SGwWg{uWi)}<<GcP2!oST*?Bd&%}x&KsyZ3AZ=J2YY|f
zH!>na+-r6Bvp3viKe%=4H*T!b%#qk0m_Mo|oc<k?1^$Ld!K%%h-?yl>Fhv}Szptff
zG>o_3M#cWIeqlDurQG5Bjk<6t-zLmbg@yGJSo^-fg%<M55nbTLA4jE=rcd68S7utq
z&ENS&;McP&l-9zFk8j4hiiGHao`0Q3=UIF(>bf6Z^Y-mQ-!I-1t3*2QM%qN%do1+#
z$=bU3Cf`zpA1jhI+ZR~AS^e`=ARK)6PH@{{xiW9it#_Z0;PEFr4Gq^JwcW_w;3H_k
zzW-_gU5&;DR7(9mckTsTepC4{Dc}<5mtT<Zx##M?Kx0VYn=k8gUNKz~P1kh(Fq;n{
zZMxz&(f85Xl6=pw&T9|*r7f0MRQzqZQ~PGVX)BD;k@u1&Q`SwFDq3)MLffIzyD-*r
z$-RJ$HT4#i-pb)h`xeW-8k@~-_1~;F9m935;CV!pKHl%@!fmxSlCs+`UwKVXA?9y>
z=RkzR#d9uPxNyIu<;1qdDmi=Hjx84Kz=}k}=Jf@7L;iv<&I6dHq&N@7J&G;%(&`B@
z|EqAVYDK49^fDMF)|G`ik7Dvia*L6}-K>0m;n<=7)!UbcW4XRv-$Y5fGN!>0Wu{aJ
znVNRyip-K|l6gvmY!Q(pp)!Zqi6_4zB=eZckSQc%k}}JfzIC;~{T|=<&wIRoy^cC|
zwRxWVx$o;b&vmZzyw-BIT{|Fm<j|o*>$$QJ{^tE7JA7{Tov}t}`G4R?bBhTr!>Kj>
z_=@6R%ljy`#Zs|2@p!##%fm2pwf?%#$+@br`yTRC|Ez&TAKyGg-R@W(?>zO6E1O%{
zYa^A?BJJFFsORV6Y$J?bs1lG1e?dWaVS5y)<Ta|L=DwC5KjxcY5CgKA2~&Lgy}T6R
z-EmRkma~>w+>=Xo1AJ+m!WQ4_IDhTm8pXxU{SEIUKUf!Cjg>utmQFv)E4`a_Tjm84
zdN@1JUDZKIO4$;7!)^ulP>7th&#z@~FR1-cw!c;n+!VIc+jfg@Qns`0#g$om632-s
z<jL;3=H&&kmZ5i-vjUQHISsq>gyI_>eEQL!v{NKB@W<V%|GMF$O~bAvrI6^WZIvpV
zKcL=8e_t~z_oH#vYCm5b9-$NY@(bf+`9BMu8%fA{Os2SAdxO|~Ankqc{7^zQP8}RQ
zbmT}sR0kO?I){KeDnYgCrx!w^Sm8;1qjqcaoTu&D>Hqs^mN{8fk!qTXoM0lTuP7ua
z$ViQ&d|gQWH$Qo4nSD=7H8<=pbnNxh=IM(OUUaE+sfgTavY@kErDc;)+dnJ4VV-Xu
z!0*!hg2x`{qFGL*{wUmO#cJ4BBP{xD>adqiQRekzqvi$O!tfB2t9K=g+2FpGE8kjV
zHX-EQH!)fz5a0i8$5i*5=*hvl&gXBJx#x?nYh2mXIfNI>zJF7{)2iL@_r3kWcj^Vr
z0ieb{Gb^XKNMj~{PrOZ1Yi{3b)3%B&&j(&)$d8HvH^(>qgVdB#vzyr8b&O<^T)q^i
zIr{wL@vIwz-(eHC@S&yXxk;v)wss|G+(wAWXx)>d!vO<&3R=l)aR#{*bCn?oE&kW9
zi~T?i5_~mTWQMj>_xmn7+e&KmbK~YIam$r%QB{ar2dO1`>WTTQf`%zXmN`5QI*upr
zCXVE5487(v&AF(b<T5x&B!gXEWmOob>F`)Pry#mf%m!CG62w)GbkPhoKh=JEbK(0Q
zkEQqugcmS3w_x*?jKq5x3Xdm?e7b|qA|Dt*uPuoN2&`ERAUZrjmb}CUC)!Ko_~Fnv
zZ}>3R?WBBRqzFuzmMt<Pc<gDPuIS2q&;X27isXuKb$HpGR3c)&$nl5%rr9<1te?hZ
zLESVsb-&}92+e4hU395vyWTDvZc;?-h8BWojTb7Q_&`xfNl5{gQ-?e6nicz;+^jON
zH|zN0`j30tCzVg4Tb;Df#Zw=5+{V;t@U2bX>dbjbzV+URtref2SK(b5{L{#~-sj1*
z|5m1^qC%5ujib)BA9EQ6qPy%~nq<}1Wt{k%jryK1#6%C#n=q6r$vEA&5y=UrC&5Sx
zo!?|SF%Eh_ydZL+5K88{ry!@#pt?UHV<vk}2BJi1*{>0LB*p%DGG=%(763E>I%(z5
z#C!_z?cx4DK;tUN>E2FA2*W%yM?ro$3_BVSKhXbKWiDy>-E1Nox?ut;Dtu@YNQ<3F
zKbBqyDKHKN!<%k6S{d*)vP}j?S+Po2HUN9b4wCp4A$)WtMF7*6&KEloVWd|JwYq)p
zkQwGqZe$9n)J+e4x1envAEnIRKf65&f?z91G_tjoP+l58$iT>$@Ak8hHAJ^KXpo*U
z<H{0i9cFt|R+r+#_Ms#3)JQ`1Cz@gO2>o@<Y$4vKg0C>F@k?AVVOb<%uT1OLS3_*p
z588J8!ot;$x^U}OP(*=9J_;&GT{!dlwGKS%Hhd<GZ&e|{v9huGK|^&;@f1|mPD^b}
z$py)&J_O&bwV-q3nq?*D>6es5zr8*bF?YQ!E*D);z4kn(Z9B{hFFXq)evu9ECCA~6
zKU7QS_;qyBThb0A^Pxa6N-sipfDStX)7jLqrwjSIsTvQePUa}<XVjh9%@4?x{AZ|G
zGd696P2bVcffvHi@=vi-8tCUgc6${$rfXMKu1c(+nL{I0OUG^@8+P1`eAo5r3Kyh|
z%5n8}_S4p~F;1u=3Nhm;2kob%Y_@Uj9Ujl@1Wpay5w<gYodcQpzYE3mAFCxiYPe$q
z2N%o>tRKhOGE3OG1>L+^fzjt(_(_}?T>-u2Rf)<z^AGC>vl%UIC3pN@K%6QH`|Yd_
zPR0<lil7r*e;Bb9?A}2&wV=2C5J)>{X(?c7Wu<Q@n5UN&<q{V;bn%tR2;6E*u~m+N
zeAONjX%YNkig&cLe{ed-M1OY9^+bH@98aYHV!iAY+G;$-3B6O552KC}&<=|F=Vnca
z&N|I})wdQfSmSOLUYxI?rltxfdppY;p`n!o*TZiiCakxBy$%>a3Kp+{Lz_eY)QXW^
zOMGFcjS?prDOgb3Or7gKUIh3t4gIR%!)fo;X_7fUE13;$-neq2pd%OEr=updsedZ_
z$Ys=<!!hk`PEAdXYO&8x?$)#o869~Ut!XA-|Kkvop(Vr)9e2r}5`61<PVRA-8h9`l
zvGF`W9%`Z9XoWqycS}LLJ+QwQ3}hfKE=+ih(%V3&Rw;0cf3Iej!JfOM;FKn9KwnfR
z=#cYPStr%Zc~;?a$0f=9M+RB@tWuv%)OC7~X13G2d823wY91G|IjoBP0gWqvBsc-A
z8jRQM2YhAa;tB+ydHFNJ8};wL7nnBA^InvNk1ow5zA4`zgA>`M3O901i#Ttw?T6jp
zJ{9u;{Q8>H0=F`y8)XZ?R@E19hKPqZZ87xVDPEdfGur(sBr$O-Y=fb}uc@~s=bIZe
z;A5kPLXCWjXCw8J+eYHdRU9fUY4}Ns`A4&)-lLn3%qFFy*aS5!Fs0IthzhaQ8#w>R
z{^7$15yPxlj(UtNOIP2yd)FUF6UABu$J}#nENeuHoyI^iNf6n931&rJo5I7xVJV?J
z?Wsg$T1BHEo7M|<wH$1W6XfBn>&vl)_)+7+f1?cRZ)Cc^uKQgyfFUQjDUOa(Z_e!@
z(2(>_39V4)AT=0~eQ|L@VIeShpIyve2VPVP;dk!%LI17f%<d!%$dE@(Dm@S@EjM<a
zpZQR|nUyuk=u`kRC*iipOUXel+OW#yyxWJc&{18R;#Ql_c3I{TfhP|g^8b2y<CZNU
z<N!od-j}uU1J^o?hQD5B<KzrL#38qwlzKbN@_eC5rU)J(T|Z+3u|tZ?Zi+OUH0XRj
zIqf#A)A`-yJ04Yl{hhxJvNEhvqbBMMy+=da>7D*r29At7kz@b)I=-t?>GBP-I(~lz
zi|UNC{rmq|IrU<D1VQrr^Ck93u2d7~^PjI1T26k^|NdA|`n^7e|L;XtoB#V`0uL>N
z*$e;uu|tO{IfVcFH=Ha%IJJ=4h+mEn6%Kr~W3m`roMziBq&Rsa2PF)bjJa4jwZmT9
z>=hMVz496z5im?VD4L5Eyy{x1FXHF{7Jt>igXB$_anb8D;TxjvU|vZ>58E09L6zZB
zfy<CiQa{6f-w(FeKiK}bG)I>i!d&A52i@*8w^|x4%^@*vFj!>-+INu)QZh0v$pyRy
z2zW-hwwurb@kgasc0pP|QIQ*Jh^6R%2k>28BK07X>%Fk&eYdN#s^&zNbZTpAN}%p<
zAsaJ+28(b*@0=O*xse;Bycb-DcR4KaLI9W(him=G!h?*^xIrGd?196vJ*j~Y=058$
zE#O?ableNfN*ow!N>(pi-Vh?#ki?<c9joQju6TKzf<T}U?)Es^kXG0<a^4Hl|9SRo
zqNj8PAyqLta1fG{#~x{I!WmjtY@@%{Ery@qp3IZ0_~HN=V^KJ6BdrCYidw0_odEOK
zN(h94)tUg}=~NsF{bU7@%t(>EWRTI4Y($nz&7uZ_0wr)&YIEr2@g6!hcJ^Hm)VwQ_
z6u$tQ3X`7#@o7Sk=yh;N`Dx6>>F}oR;TV=A&Xp|x1@leqYEy{~I3l&_+_OzYNI5Jy
z`ABK`atHk4$}lOolG?cMlC5v@#4AW^QmSD2j={Q;7X2yL&J?ogy;ukBg&undNk(hi
zPj1&}KeM^#_CgGj;(}`4y{keD=jMHR^_S1^w$QF;VL^r8(eWZo%i95a)GM$v@WXW&
zWg6huz`#HcBpBw<hbPoJ^{3W}CFn`4LDYkO=3yuwuHd;<k1)YZNx@3u%S`vLDRWwz
z6<WTOFT6>Vn}2a{#RCw#g|!yu4;q#mVuF+}h9Be<F9BOpzCfEv2sg@Mp+USnep?d(
z!I})#K*(DSH7DAl4e7_X-4)YkMuNvLP}zjF2;)^6$5HFPxrzRCR2{yiswbvl(xQ1~
z6qKw&N#k66%f(7uI2{EawrOJ};LlZ5tjbkhlysBEO23zpg3fr;HY*I)Qog9ZU@?Ah
z;vPOY&K$3#q+tD%c2?o#ntAA<rVi1}^64p13d}-U_k6Jewn<BKfK(_0J95HmG9`-y
zVH_s;6#~$>4eK7GB&Eb!<$FRjXczQj=!q~bs$Ei&6XDrB_p$i$dmuu0v<%xi6k}VK
zSxBk1@i$~&3E4}_Rys8pd<O@5w(;}RfjbER7DgBj0hyb&cUCuJ1P@GV;~$9OMbk#e
z^=m#BIug7vXrAXthZ7`+z<-f9+qCHhu%;!LO;9<m8zY)z@*R8W$!CC;IQa~4atlC?
zI{8xekCiLTFZVKP|0MeV8~<489~iieaBlL>;H%o7onP<k7p9w*l9C8+=)pU?hD18(
znbH;tUo5`a;t?AWaSf)x$sp9yO>)FEq9kr0>p&aKyacsQYC$t$USMwZrTf)BF@q;T
z4GqWO_h|uAXAUC;Ufn|OlSVenwcz_L(R5M+`oIha3qm`-u{rDH7U)Kl0Z^YX)GAms
zaXA|+5}ZF+gLZOoVWA?WibrY|{PtAw6^8vK_^xp%QwYHN0aG>m;n6h#4I1@g0(O`X
z|4^N_oJKJeci_?`S>!*Mu|E9U#~nL|q&rFq+*U%%@8D?962z-(Y-~(V(fN+UBVmo-
zRwgVHE{X}KiH|9s$KgGCDhZaK`1dmG-_+er@87TCxeAOpJdXzJ2G3<o7B)>mqjm#$
zo2@@>e?j_GC|1!!H%BR}6&Av~TM85|eG>sKNM0LeF`VcNaD<7Q=00%*8f&?SF+(vP
z@u;*%@E4$`dNCrhlP%kZzdi{YON_Ta(}p|UEZ=qb4!P=<0*&Y$lCg45WrGFq?anfJ
zv_#xtWCtPRej1Q-UH$5H>o&knIdgM__hLm`&Qb=P3;edWe;$WlntmMz!~UAOx`;_T
zsO_x_(<hU{>N8L&t;*c}&EsXg;#-wQR43d00|MmV{slHyJRY#kGi}KIYqL6n$`9k1
zu39U@$)hX`{8%=6JOEDY#DIh?d8-_sFhkOp&ry3Y!p2E4!2o1k*qY`s-iX@mM04n|
z8?@?;YHDj)v9W|H7Q)&G4r<3M8dF<w;mHjyCO%>LeGsi;rI=P;+mGUeH=0mAhq_BS
z3#Zj^q*IZy0Gk<HAF^2Ycc$2M1&)g{fBawqpN1_^Og-%5Q&jDSPq`lDufDerF#R0X
zh$G4+X@_oZp$PSfyy<CI*RRdB{g=&-$6C#{%KSK=g;6gqq>o2mr?3hT9(Q4FeReu&
zg0XqEf?anuKl^~znx_RIjZPgr<aEtu#ImYJx?jC~ergaGz#T;l2Sh&+%ZKOosS1Wq
zjOY?AR5XvYwR3il?r|9Sgu{9bP*t`TXEuc46$|QlXU}D9%ti$00~zAq=ci-@ha`TP
zIl*ihO6je%D+wDayPEny6Re=3?HNAPJ}DtyLb{V+JN+<uuQ@4VpJ@{K3Xq5*xLTTL
z>;@1mML~kq5i2vH?e~q_%;<UjevRQ>gYoW{?ngZ(kitLDLEKxT9=;Szemx&K3sp-m
z)<7Ff2dIq&(ymC-0hm)}BE6|wpov2)ub5?uqsxck&TEcfrAja6FoT9DLjYuaWxg}>
z?!~5*8<grj_=q}=v`Us*W;308W-JHaka5g)X`IEU)z~F;>PgRx;Wv}K0>8Eh8}1sj
z)y&Ln#MGe$hT!5$NIC~FasKwJjQiIG@bf7{aI;x|<fG(vVd2gS8IQ>`z378A<v`l>
zCb^Tt9@k2@o;iC~-VW}$_r?)gm=TdUpBUIA^&h##ElRPVQOJ{}X4CjEfKr81Nly8t
z^nACGC=NZWiH~CC@wA0E5lj27E*EMWqb6b}?LA~bCP?7c)Yo%ig9q^JyTk-v53%Qd
zd*P^~uvb9f0FM0MARD&SR#vmW6oUb&EuoY@!uI@g?W}?9jQMDM7_2UJ5O;k3DE%~l
zp2;x@0Pb3iij~FWg}r3t3%3!2Fe?s*A=<}>_e@RBoH?U5=!L<abzy5O#^Uj&YSj#@
zR(0Ndg>F+BD(e7bjE;)I3yid-nTOBIa5nk!phy3OL0JM&=edM04=1Hcmx?p_HNYO7
zPGpI71f@MQ<&Vy#W|)VIUz>##QycA+;msMOk|rl$NJGV{$bz!6GJlw!i$|dw${n-!
z7XECgIEvG+O}j8tbX>8Di@k6;_~aTx;mb<-Re!zaq{{HR9CfvIb?lpEZAEz8hnobW
zN3aU-zF)mQ+^Y=Cvs-XAfW&F^9oErk-iu&b#-4T~Vd^Pdf`348b&c?G918D!swjiD
zUBv6lIC$KJN3nC^&HJSh*u=WN0SGX&e~<ZUeu|NOlyq&B(B)%-lrbVO`cTSt5#k=-
zE-qW2&NlMLir5$X%|-Cf{f^5WlEL|@mAGAT%eRjGP7xI&>8)da#~fe5StQxo&wY7m
zp8nX=fIv2fqvPjbVLwPLxBe@<NN)ZT4(%HeN)^TG^sWY!_+Fq(DPNSF3C)WbmwxCq
zKN(z)0&pGT%PNXn-nl~DEmG3dU?Lw!N!309n$lzJy0Fg)MdhEvO{sJgPWA*=@3PkK
zvYM?TaRzfWss+}!UiI`?NI<Z9!2^{yZ(EuWg4aIxQ3eXF7n7N7?|^;qQ10gH&jHKw
zM8({`?F-{KdBsQ2nkCVRvOvcsxH{-33$i|#7CDKdp-Yc!QR>-8@(*PwPi_ANBcTb5
zzOJB%4tF6Y+&VT-{ks459OkDusBs*c=ErKDF?wYlhS@DX>h^;NU&pWeE_-R$TGy&b
zB3r`jWHkkN`K)?SUXQ~?GXsU5#wWwaC)B4rmghcB0ajycuAor6hoZ487KJL7P#)S&
zA=UC77pr3q96Xph@>X&)DUO2I5&V^g+=joPEpcb`T(SF@Ip_nBjL+d)Ej&|ISt;*j
z9&0gKWu8War@eKSSGG3B<+~~Hpr)oueyn{);~Z*#<rez$zWBQzwq6)=OC4L!qcGs)
zeKE`Ym6*4R>z8AJ)gUXZ%ZMT4y4gM75uqO~2x~uJpulVL02^6NnIS_+Pb^}43W$iP
z>D~VU1S9I5aR2_W!6xUTuX~P89_7{hhsrPi&o?l9+QD`Re8AI8&`2&Kcn1+52(H9J
zs$DA=%eqt8ZqmPXX@xJqDL*PPP?h_UDOfR?o%0?@Z?PP!ZQIVB^%+hb;#j0D0H~>B
zkOz`U7z+EOH0k4wF&&;NJz#s1autR4>|w`{2;~brr=ZvxQ=$HCq>Z+isY6Oh=bP+>
z(>0AFGlaUNEYRnqe6i@bRZIQ-Uq<YG7vvDs?C<YSQSdaVc0*fIV@BR-a4iMYBQJ3z
z_O|oTb=6U^ciC4)HZSfm#F(>sAZ!mko1Yl7Q;ryJ2piFJK@1;W1Y(d^GLL1VCq;Hk
zznEdxlfRc?Vr0GhEYO{7J?^ck3D0BKa*0gPm|MNa&}I95`-pvN(=0H(j@5sJ6WaI0
zyai^sj%Qwk#B@74deyTJe?0qOJGF30dU&|L?QU%AQjD}U8;Y4g2*#a85Xl2@)e?$m
z)>+I&f00&YO%wSXMVs$;4_iuLA&{aj{OE=Z)?eyBkzOvolOgxTQx0`FuX^9>`{)+*
z0gVwt5jZwu(bw~@3X1w;J@E(#&Jh2wbUa$cs!5^Igu|-swdpR-95c~iZ^;Blr$Zwu
zwtm;H?XvHZqe>ubU^nRoq(S*2ML*QKzkA1@3w!6qN<iN(cyT^b%JlwRJF|hIG}+lp
zCYvjryY<dh%_xcR+y^3AOW~#_wJ%hhq(9i!^A%qipsjakCPpJv3F_lPdo}yo*RSa<
z7LSUP3ul%fTVoiaOScWULE+O;qz8Kfzi*%B+&8&5;hm5pN|L@2$C|b1AUMwzqS}E|
zI$cQ`ZT<Y?JdC~VQ!+22Z;cE)y${L)EZ}i7m$CKfIJ_8)yFy$6@^~X@Z6l4(&L2fg
zy-&=e(hDCpoc}Sfn1RW)0xzF@=fRXQ#M-q<J?EZ2D0==xTJj=*!1EXOYHCanioS`X
z6@4(&0UUd3lBv50SD%p=dBK+U)`Io?4i5Rfq8`NxTdvUc;3U-J`oY0Lb@@gxxb@fG
z6F=((?^Ebd6u0~)O>U9LWDL@C6@|ptzNFPrYpC&I%v3BoKHhww`+^?b;&-NRNP=1m
z=F7Wm-Q^a9eV6(xF`^n;?hL9B6P>~o$h#+>TdutWeZIe=TDL3ruo=H0x*jbtjro|F
zXKk8A+s^&6mDKs*0}1lM!#Eh^>QQNl-H<Y7m}NGclUG<9(^=G2<h=zf#0pBnH1`ku
z#1U6l>9X?jq_z>e<r_kyIbXvzhWzsx-Ir^7G$&(<h$%yFHYyDlIpv^V{<}Aa+S>*8
z?U?T_BPL^}uYT8>8<CO2XK<viV@aY|Q`UN0@xCRTfl0i4b1Rc<gvp8LZxU4a(vBt=
zc<lgZPCV;;E?v5|U2rmnLB62(B;br|`4eE-)97D6MxNYfupm<WVvJh_)f!a-(B%X)
zi@{1^YPo22Od2+70Kt7Cd7Dlko$z#XYmK5tk&QTTIJJI&#4A8oN(6NvlF3O0mF?RP
znGD8)H^fRtn0LSM*2=JUwuy5#LEm|P@~n0JWtr}q+1POgfENhYl*Quu#}Bvu!|>2i
zUa+Pk&A~n=kRZcvzk^R?Oti2Oy{hy07pj(~S>jsx>FaO4teOx3Po6%NiV2&&9vHYv
zA;mHc6lW7}1gI)m@{<v@42c%b<3JslzUNBW`|yM`+V4!ngxDYi<qWrq4>z)HHINn^
zN7w1@588j-t(lDjqI_H)*$t{Gd)gcB3AgXv6Ulta#Xx#&2NIOM@pq;~i%(rJYsu%1
z*oIe#R_^-<7c(HnQVXd>@L%Slr_$b^Mw~`*P5A;8B_q9KicA0?<LtBZ>6i>c8pjES
zm1M5V4Tf*hr}a4&-o(p^uA|7@3EsvL|7yKkkA(p*+l%SfQVgUqXX?hnNo?91g90pk
zd|^<`ANc%PBMeLr7JLs*1ec>-AE)Ev`8rbZQYE174)0IJSFe79cg$<L{VccR<8R?e
z#a7JQ42QN9@>m^zBbixob+;|1WlF+1gvQzsU#;Lc-eiM;pFTY4ppcMq4CtMx!`?K?
zbL6KI(Qz$W+pgp6yxZ4rMDmyLZ%UGJ0|>_&J3)=RB{=ZGkl3^KJd9wGrI_P%0s%;x
zGflb3v|jP@%uZ<-!<RJPxdS88fx*FEoMSo&Lf%z@N8_%@U&!_ve01y3zsKlQm)NHZ
z(i)~)aCw{1B0@XtTB(I^sYMCeU@2C3y&H%dnkr$NWtag^FnH83G6Pa4*SNIcLZiUl
z9Va_7^P0cRc#;MgCLFUstSqXajoW17cH;4g)q(5zt~Xv_I5yq^{gd5T`+-<Z=sf-%
zhVF|$9@S|~Mh2hd3{ZY%nEdD3nAL4$dJ5z_o~o`Hp#@;No}w<6kA|hS%^%b~c^4sg
z3bL@V3Cw8UU=t(&3eyXgI3$qgIrI2v=YR(9OG3|x%e;U8z7bZ%qN@Og&_p6E5t-@%
zF-qG-YBP<Six{qGN^w2jh=ujsrfr>Ssd52^rNgVb!S>@JuL7h#f@RR~#CQ)C;9v<;
z5;1M&5OKepdongrch|owY7YAK6kvz;ImU?4&EaE&Ojg{D4&ZQdp+;X{AL%Ow@~J#3
zxe*ptjc2W&uv7mr$2wlcAlO%yeODktXkT{y&ZrXJ&rPRM2Wjk$(`D!2@JA~v89v|k
z)dOk(DRw@*a93*^NjIeN63)P*GTEF~4cV1(92(;E%o3Tt{|ZR=iCI2dX=$l_99fdK
zow;w%C5)-M2!@>`V*`PU`_O>tfdb%V98>?vOO~c2!jGV~Ztz}p2{Eh>xNUxMgzV7F
zh!qIeCf?Q`>_dI=)kx|t^9e^SmE{(7oiPnIeBJY1?rlOA3j89BxyN=nxs5=;6`%#s
zgISf_7=-7HMgk)|s8;~t`lA!VprECTIT9&=bTXkq_8_(aD?TcO2UlY9Og;;Faw61~
zj3;4-^D8U!Vt>2H4Rhgpz^9R}DmbTu_)UHa??9d!B&!6;&<u_my-mKyEs6sM9WNZ#
zC-x){Pj1oi(8I#VxpY6U1`?>;!N46P;EtR74^T`nQv{@^V8Eob8+|IYJ1R5JAm@k<
zw`4>&=b{4J26hU@YC*xl2f$qsw%aVvalc8eEy|-Gc|JcCaL0lWrjpPv*M0dgIe7wy
zZ^%HFn!0)^1T4Q!{m8phodxV!33f6Y%Yj_;>C>Rj|G4n}(OO7b{sj}~M0^6e8`<e#
zUhw#uLcvtWZSJ|iyk_<4QdCJ3pMEWK;UOGERYJP6gek-y<(vnYz(b`-8l${8>*AxU
z%jWBM)qn0i9s?b9RCzu{Q#|lD%{}Ytm+>MG^txxzeJvpnhUFN&L>|0=MrGnb0Rb-X
zc^Z37_g(oR0fU%LJwawJ3)9xtmRIqVF2mY~qL9oErfNh|)TT|FM9|+l)t7CONjhd^
z%o5~xt<B;ccCrWDfA?j=-(cW|E~L_rJSF>&3Jtw1;adR5u3;fkPhUBmaw1K3;(oO-
zk7_2eh|7U{7Doc+?3}qM9KyJUa^>NH0OqDMd+?&HoIJl<I0s5oUL$;_hFuEVviH_r
zRspf9inehaAalZJQ4QSoA=hpTR9@M^+_9lUz`{W1x3ve}#_c&aT<FCTc7{?#jyaZV
zYdqWq#%Luqj>D7lGM_OxLq|bFtIjDLIWwK9Z^PO{ho;r8pu&~HyvKpC#i{=KLjzmD
zyi{QW?LvSh=L;KpDavPQ;t0k<-VQrqq0E8l_R3wKXMnhN5b3-T<KZbODXMAj8Krs2
zei6Iru8jZuX9{yTPR`L^_{m%+&VmXwoX*4Ub#BjhIbR~|PL~K$qQ{d3-}>-jsHrpy
zD=QsB?*%*@m`H`8XNV?;fTx<<XxAn(kq%-FmOdCNWkN6puA(C<N>9(d-E3Cix*7|9
zjcYmqHz%|lLspW@`2B^JmiT|)#QOI;1^&0XX8*%CT)5i4lYgRXVM>P_T2()+b13V8
Hh2Q@H<yW#2

diff --git a/reference/plot.html b/reference/plot.html
index ce04d6a53..a74001524 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</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">
@@ -291,7 +291,7 @@ Especially the scale_*_mic() functions are relevant wrappers to plot MIC values
 <li><p><code>theme_sir()</code> is a <a href="https://ggplot2.tidyverse.org/reference/theme.html" class="external-link">ggplot2 theme</a> with minimal distraction.</p></li>
 <li><p><code>labels_sir_count()</code> print datalabels on the bars with percentage and number of isolates, using <code><a href="https://ggplot2.tidyverse.org/reference/geom_text.html" class="external-link">ggplot2::geom_text()</a></code>.</p></li>
 </ul><p>The interpretation of "I" will be named "Increased exposure" for all EUCAST guidelines since 2019, and will be named "Intermediate" in all other cases.</p>
-<p>For interpreting MIC values as well as disk diffusion diameters, the default guideline is EUCAST 2025, unless the package option <code><a href="AMR-options.html">AMR_guideline</a></code> is set. See <code><a href="as.sir.html">as.sir()</a></code> for more information.</p>
+<p>For interpreting MIC values as well as disk diffusion diameters, the default guideline is EUCAST 2026, unless the package option <code><a href="AMR-options.html">AMR_guideline</a></code> is set. See <code><a href="as.sir.html">as.sir()</a></code> for more information.</p>
 </div>
 
     </div>
diff --git a/reference/plot.md b/reference/plot.md
index 2df8b65ba..8ef38c0cf 100644
--- a/reference/plot.md
+++ b/reference/plot.md
@@ -336,7 +336,7 @@ EUCAST guidelines since 2019, and will be named "Intermediate" in all
 other cases.
 
 For interpreting MIC values as well as disk diffusion diameters, the
-default guideline is EUCAST 2025, unless the package option
+default guideline is EUCAST 2026, unless the package option
 [`AMR_guideline`](https://amr-for-r.org/reference/AMR-options.md) is
 set. See [`as.sir()`](https://amr-for-r.org/reference/as.sir.md) for
 more information.
diff --git a/reference/proportion.html b/reference/proportion.html
index b39bd38d8..fdeb5ecfc 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</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 9e4cb8dc0..7064218ce 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/resistance_predict.html b/reference/resistance_predict.html
index d8ffa9048..6f4a7dfc4 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</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 1232dab37..7c4b71748 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</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/top_n_microorganisms.html b/reference/top_n_microorganisms.html
index 357441d3c..c61e08fca 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</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 b432abdd4..57f4623ea 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.9040</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">3.0.1.9041</small>
 
 
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/search.json b/search.json
index 4b4cc4d81..239edfcaa 100644
--- a/search.json
+++ b/search.json
@@ -1 +1 @@
-[{"path":"https://amr-for-r.org/CLAUDE.html","id":null,"dir":"","previous_headings":"","what":"CLAUDE.md — AMR R Package","title":"CLAUDE.md — AMR R Package","text":"file provides context Claude Code working repository.","code":""},{"path":"https://amr-for-r.org/CLAUDE.html","id":"project-overview","dir":"","previous_headings":"","what":"Project Overview","title":"CLAUDE.md — AMR R Package","text":"AMR zero-dependency R package antimicrobial resistance (AMR) data analysis using One Health approach. peer-reviewed, used 175+ countries, supports 28 languages. Key capabilities: - SIR (Susceptible/Intermediate/Resistant) classification using EUCAST 2011–2025 CLSI 2011–2025 breakpoints - Antibiogram generation: traditional, combined, syndromic, WISCA - Microorganism taxonomy database (~79,000 species) - Antimicrobial drug database (~620 drugs) - Multi-drug resistant organism (MDRO) classification - First-isolate identification - Minimum Inhibitory Concentration (MIC) disk diffusion handling - Multilingual output (28 languages)","code":""},{"path":"https://amr-for-r.org/CLAUDE.html","id":"common-commands","dir":"","previous_headings":"","what":"Common Commands","title":"CLAUDE.md — AMR R Package","text":"commands run inside R session: shell:","code":"# Rebuild documentation (roxygen2 → .Rd files + NAMESPACE) devtools::document()  # Run all tests devtools::test()  # Full package check (CRAN-level: docs + tests + checks) devtools::check()  # Build pkgdown website locally pkgdown::build_site()  # Code coverage report covr::package_coverage() # CRAN check from parent directory R CMD check AMR"},{"path":"https://amr-for-r.org/CLAUDE.html","id":"repository-structure","dir":"","previous_headings":"","what":"Repository Structure","title":"CLAUDE.md — AMR R Package","text":"","code":"R/              # All R source files (62 files, ~28,000 lines) man/            # Auto-generated .Rd documentation (do not edit manually) tests/testthat/ # testthat test files (test-*.R) and helper-functions.R data/           # Pre-compiled .rda datasets data-raw/       # Scripts used to generate data/ files vignettes/      # Rmd vignette articles inst/           # Installed files (translations, etc.) _pkgdown.yml    # pkgdown website configuration"},{"path":"https://amr-for-r.org/CLAUDE.html","id":"r-source-file-conventions","dir":"","previous_headings":"","what":"R Source File Conventions","title":"CLAUDE.md — AMR R Package","text":"Naming conventions R/: Key source files: aa_helper_functions.R / aa_helper_pm_functions.R — internal utility functions (large; ~63 KB ~37 KB) aa_globals.R — global constants breakpoint lookup structures aa_options.R — amr_options() / get_AMR_option() system mo.R / mo_property.R — microorganism lookup properties ab.R / ab_property.R — antimicrobial drug functions av.R / av_property.R — antiviral drug functions sir.R / sir_calc.R / sir_df.R — SIR classification engine mic.R / disk.R — MIC disk diffusion classes antibiogram.R — antibiogram generation (traditional, combined, syndromic, WISCA) first_isolate.R — first-isolate identification algorithms mdro.R — MDRO classification (EUCAST, CLSI, CDC, custom guidelines) amr_selectors.R — tidyselect helpers selecting AMR columns interpretive_rules.R / custom_eucast_rules.R — clinical interpretation rules translate.R — 28-language translation system ggplot_sir.R / ggplot_pca.R / plotting.R — visualisation functions","code":""},{"path":"https://amr-for-r.org/CLAUDE.html","id":"custom-s3-classes","dir":"","previous_headings":"","what":"Custom S3 Classes","title":"CLAUDE.md — AMR R Package","text":"package defines five S3 classes full print/format/plot/vctrs support:","code":""},{"path":"https://amr-for-r.org/CLAUDE.html","id":"data-files","dir":"","previous_headings":"","what":"Data Files","title":"CLAUDE.md — AMR R Package","text":"Pre-compiled data/ (edit directly; regenerate via data-raw/ scripts):","code":""},{"path":"https://amr-for-r.org/CLAUDE.html","id":"zero-dependency-design","dir":"","previous_headings":"","what":"Zero-Dependency Design","title":"CLAUDE.md — AMR R Package","text":"package Imports DESCRIPTION. optional integrations (ggplot2, dplyr, data.table, tidymodels, cli, crayon, etc.) listed Suggests guarded : Never add packages Imports. new functionality requires external package, add Suggests guard usage appropriately.","code":"if (requireNamespace(\"pkg\", quietly = TRUE)) { ... }"},{"path":"https://amr-for-r.org/CLAUDE.html","id":"testing","dir":"","previous_headings":"","what":"Testing","title":"CLAUDE.md — AMR R Package","text":"Framework: testthat (R ≥ 3.1); legacy tinytest used R 3.0–3.6 CI Test files: tests/testthat/test-*.R Helpers: tests/testthat/helper-functions.R CI matrix: GitHub Actions across Windows / macOS / Linux × R devel / release / oldrel-1 oldrel-4 Coverage: covr (files excluded: atc_online.R, mo_source.R, translate.R, resistance_predict.R, zz_deprecated.R, helper files, zzz.R)","code":""},{"path":"https://amr-for-r.org/CLAUDE.html","id":"documentation","dir":"","previous_headings":"","what":"Documentation","title":"CLAUDE.md — AMR R Package","text":"exported functions use roxygen2 blocks (RoxygenNote: 7.3.3, markdown enabled) Run devtools::document() change roxygen comments Never edit files man/ directly — auto-generated Vignettes live vignettes/ .Rmd files pkgdown website configured _pkgdown.yml","code":""},{"path":"https://amr-for-r.org/CLAUDE.html","id":"versioning","dir":"","previous_headings":"","what":"Versioning","title":"CLAUDE.md — AMR R Package","text":"Version format: major.minor.patch.dev (e.g., 3.0.1.9021) Development versions use .9xxx suffix Stable CRAN releases drop dev suffix (e.g., 3.0.1) NEWS.md uses sections New, Fixes, Updates GitHub issue references (#NNN)","code":""},{"path":"https://amr-for-r.org/CLAUDE.html","id":"version-and-date-bump-required-for-every-pr","dir":"","previous_headings":"Versioning","what":"Version and date bump required for every PR","title":"CLAUDE.md — AMR R Package","text":"PRs squash-merged, PR lands exactly one commit default branch. Version numbers kept sync cumulative commit count since last released tag. Therefore exactly one version bump allowed per PR, regardless many intermediate commits made branch.","code":""},{"path":"https://amr-for-r.org/CLAUDE.html","id":"computing-the-correct-version-number","dir":"","previous_headings":"Versioning > Version and date bump required for every PR","what":"Computing the correct version number","title":"CLAUDE.md — AMR R Package","text":"Run following repo root determine version string use: + 1 accounts fact PR’s squash commit yet default branch. Set files resulting version string (per PR, even across multiple commits): DESCRIPTION — Version: field NEWS.md — replace line 1 (# AMR <version> heading) new version number; create new section. NEWS.md continuous log entire current x.y.z.9nnn development series: changes since last stable release accumulate single heading. updating line 1, append new change bullet appropriate sub-heading (### New, ### Fixes, ### Updates). Style rules NEWS.md entries: extremely concise — one short line per item end full stop (period) verbose explanations; just essential fact git describe fails (e.g. tags exist environment), fall back reading current version DESCRIPTION adding 1 last numeric component — bump already made PR.","code":"currenttag=$(git describe --tags --abbrev=0 | sed 's/v//') currenttagfull=$(git describe --tags --abbrev=0) defaultbranch=$(git branch | cut -c 3- | grep -E '^master$|^main$') currentcommit=$(git rev-list --count ${currenttagfull}..${defaultbranch}) currentversion=\"${currenttag}.$((currentcommit + 9001 + 1))\" echo \"$currentversion\""},{"path":"https://amr-for-r.org/CLAUDE.html","id":"date-field","dir":"","previous_headings":"Versioning > Version and date bump required for every PR","what":"Date field","title":"CLAUDE.md — AMR R Package","text":"Date: field DESCRIPTION must reflect date last commit PR (first), ISO format. Update every commit always current:","code":"Date: 2026-03-07"},{"path":"https://amr-for-r.org/CLAUDE.html","id":"internal-state","dir":"","previous_headings":"","what":"Internal State","title":"CLAUDE.md — AMR R Package","text":"package uses private AMR_env environment (created aa_globals.R) caching expensive lookups (e.g., microorganism matching scores, breakpoint tables). avoids re-computation within session.","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 724 isolates analysis. Now data looks like: Time analysis.","code":"our_data <- our_data %>%   mutate(first = first_isolate(info = TRUE)) #> ℹ Determining first isolates using an episode length of 365 days #> ℹ Using column bacteria as input for `col_mo`. #> ℹ Column first is SIR eligible (despite only having empty values), since it #>   seems to be cefozopran (ZOP) #> ℹ Using column date as input for `col_date`. #> ℹ Using column patient_id as input for `col_patient_id`. #> ℹ Basing inclusion on all antimicrobial results, using a points threshold of 2 #> => Found 2,724 'phenotype-based' first isolates (90.8% of total where a #> microbial ID was available) our_data_1st <- our_data %>%   filter(first == TRUE) our_data_1st <- our_data %>%   filter_first_isolate() our_data_1st #> # A tibble: 2,724 × 9 #>    patient_id hospital date       bacteria     AMX   AMC   CIP   GEN   first #>    <chr>      <chr>    <date>     <mo>         <sir> <sir> <sir> <sir> <lgl> #>  1 J3         A        2012-11-21 B_ESCHR_COLI   R     I     S     S   TRUE  #>  2 R7         A        2018-04-03 B_KLBSL_PNMN   R     I     S     S   TRUE  #>  3 P3         A        2014-09-19 B_ESCHR_COLI   R     S     S     S   TRUE  #>  4 P10        A        2015-12-10 B_ESCHR_COLI   S     I     S     S   TRUE  #>  5 B7         A        2015-03-02 B_ESCHR_COLI   S     S     S     S   TRUE  #>  6 W3         A        2018-03-31 B_STPHY_AURS   R     S     R     S   TRUE  #>  7 M3         A        2015-10-25 B_ESCHR_COLI   R     S     S     S   TRUE  #>  8 J3         A        2019-06-19 B_ESCHR_COLI   S     S     S     S   TRUE  #>  9 G6         A        2015-04-27 B_STPHY_AURS   S     S     S     S   TRUE  #> 10 P4         A        2011-06-21 B_ESCHR_COLI   S     S     S     S   TRUE  #> # ℹ 2,714 more rows"},{"path":"https://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:2724        Length:2724        Min.   :2011-01-01   #>  Class :character   Class :character   1st Qu.:2013-04-07   #>  Mode  :character   Mode  :character   Median :2015-06-03   #>                                        Mean   :2015-06-09   #>                                        3rd Qu.:2017-08-11   #>                                        Max.   :2019-12-27   #>    bacteria               AMX                    AMC                 #>  Class :mo             Class:sir              Class:sir              #>  <NA>  :0              %S   :41.6% (n=1133)   %S   :52.6% (n=1432)   #>  Unique:4              %SDD : 0.0% (n=0)      %SDD : 0.0% (n=0)      #>  #1    :B_ESCHR_COLI   %I   :16.4% (n=446)    %I   :12.2% (n=333)    #>  #2    :B_STPHY_AURS   %R   :42.0% (n=1145)   %R   :35.2% (n=959)    #>  #3    :B_STRPT_PNMN   %NI  : 0.0% (n=0)      %NI  : 0.0% (n=0)      #>     CIP                    GEN                  first         #>  Class:sir              Class:sir              Mode:logical   #>  %S   :52.5% (n=1431)   %S   :61.0% (n=1661)   TRUE:2724      #>  %SDD : 0.0% (n=0)      %SDD : 0.0% (n=0)                     #>  %I   : 6.5% (n=176)    %I   : 3.0% (n=82)                    #>  %R   :41.0% (n=1117)   %R   :36.0% (n=981)                   #>  %NI  : 0.0% (n=0)      %NI  : 0.0% (n=0)  glimpse(our_data_1st) #> Rows: 2,724 #> Columns: 9 #> $ patient_id <chr> \"J3\", \"R7\", \"P3\", \"P10\", \"B7\", \"W3\", \"M3\", \"J3\", \"G6\", \"P4\"… #> $ hospital   <chr> \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\",… #> $ date       <date> 2012-11-21, 2018-04-03, 2014-09-19, 2015-12-10, 2015-03-02… #> $ bacteria   <mo> \"B_ESCHR_COLI\", \"B_KLBSL_PNMN\", \"B_ESCHR_COLI\", \"B_ESCHR_COL… #> $ AMX        <sir> R, R, R, S, S, R, R, S, S, S, S, R, S, S, R, R, R, R, S, R,… #> $ AMC        <sir> I, I, S, I, S, S, S, S, S, S, S, S, S, S, S, S, S, R, S, S,… #> $ CIP        <sir> S, S, S, S, S, R, S, S, S, S, S, S, S, S, S, S, S, S, S, S,… #> $ GEN        <sir> S, S, S, S, S, S, S, S, S, S, S, R, S, S, S, S, S, S, S, S,… #> $ first      <lgl> TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE,…  # number of unique values per column: sapply(our_data_1st, n_distinct) #> patient_id   hospital       date   bacteria        AMX        AMC        CIP  #>        260          3       1854          4          3          3          3  #>        GEN      first  #>          3          1"},{"path":"https://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          1321 #> 2 Staphylococcus aureus      682 #> 3 Streptococcus pneumoniae   402 #> 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,724 × 2 #>    date       GEN   #>    <date>     <sir> #>  1 2012-11-21   S   #>  2 2018-04-03   S   #>  3 2014-09-19   S   #>  4 2015-12-10   S   #>  5 2015-03-02   S   #>  6 2018-03-31   S   #>  7 2015-10-25   S   #>  8 2019-06-19   S   #>  9 2015-04-27   S   #> 10 2011-06-21   S   #> # ℹ 2,714 more rows  our_data_1st %>%   select(bacteria, betalactams()) #> ℹ For `betalactams()` using columns AMX (amoxicillin) and AMC #>   (amoxicillin/clavulanic acid) #> # A tibble: 2,724 × 3 #>    bacteria     AMX   AMC   #>    <mo>         <sir> <sir> #>  1 B_ESCHR_COLI   R     I   #>  2 B_KLBSL_PNMN   R     I   #>  3 B_ESCHR_COLI   R     S   #>  4 B_ESCHR_COLI   S     I   #>  5 B_ESCHR_COLI   S     S   #>  6 B_STPHY_AURS   R     S   #>  7 B_ESCHR_COLI   R     S   #>  8 B_ESCHR_COLI   S     S   #>  9 B_STPHY_AURS   S     S   #> 10 B_ESCHR_COLI   S     S   #> # ℹ 2,714 more rows  our_data_1st %>%   select(bacteria, where(is.sir)) #> # A tibble: 2,724 × 5 #>    bacteria     AMX   AMC   CIP   GEN   #>    <mo>         <sir> <sir> <sir> <sir> #>  1 B_ESCHR_COLI   R     I     S     S   #>  2 B_KLBSL_PNMN   R     I     S     S   #>  3 B_ESCHR_COLI   R     S     S     S   #>  4 B_ESCHR_COLI   S     I     S     S   #>  5 B_ESCHR_COLI   S     S     S     S   #>  6 B_STPHY_AURS   R     S     R     S   #>  7 B_ESCHR_COLI   R     S     S     S   #>  8 B_ESCHR_COLI   S     S     S     S   #>  9 B_STPHY_AURS   S     S     S     S   #> 10 B_ESCHR_COLI   S     S     S     S   #> # ℹ 2,714 more rows  # filtering using AB selectors is also possible: our_data_1st %>%   filter(any(aminoglycosides() == \"R\")) #> ℹ For `aminoglycosides()` using column GEN #> (gentamicin) #> # A tibble: 981 × 9 #>    patient_id hospital date       bacteria     AMX   AMC   CIP   GEN   first #>    <chr>      <chr>    <date>     <mo>         <sir> <sir> <sir> <sir> <lgl> #>  1 J5         A        2017-12-25 B_STRPT_PNMN   R     S     S     R   TRUE  #>  2 X1         A        2017-07-04 B_STPHY_AURS   R     S     S     R   TRUE  #>  3 B3         A        2016-07-24 B_ESCHR_COLI   S     S     S     R   TRUE  #>  4 V7         A        2012-04-03 B_ESCHR_COLI   S     S     S     R   TRUE  #>  5 C9         A        2017-03-23 B_ESCHR_COLI   S     S     S     R   TRUE  #>  6 R1         A        2018-06-10 B_STPHY_AURS   S     S     S     R   TRUE  #>  7 S2         A        2013-07-19 B_STRPT_PNMN   S     S     S     R   TRUE  #>  8 P5         A        2019-03-09 B_STPHY_AURS   S     S     S     R   TRUE  #>  9 Q8         A        2019-08-10 B_STPHY_AURS   S     S     S     R   TRUE  #> 10 K5         A        2013-03-15 B_STRPT_PNMN   S     S     S     R   TRUE  #> # ℹ 971 more rows  our_data_1st %>%   filter(all(betalactams() == \"R\")) #> ℹ For `betalactams()` using columns AMX (amoxicillin) and AMC #>   (amoxicillin/clavulanic acid) #> # A tibble: 462 × 9 #>    patient_id hospital date       bacteria     AMX   AMC   CIP   GEN   first #>    <chr>      <chr>    <date>     <mo>         <sir> <sir> <sir> <sir> <lgl> #>  1 M7         A        2013-07-22 B_STRPT_PNMN   R     R     S     S   TRUE  #>  2 R10        A        2013-12-20 B_STPHY_AURS   R     R     S     S   TRUE  #>  3 R7         A        2015-10-25 B_STPHY_AURS   R     R     S     S   TRUE  #>  4 R8         A        2019-10-25 B_STPHY_AURS   R     R     S     S   TRUE  #>  5 B6         A        2016-11-20 B_ESCHR_COLI   R     R     R     R   TRUE  #>  6 I7         A        2015-08-19 B_ESCHR_COLI   R     R     S     S   TRUE  #>  7 N3         A        2014-12-29 B_STRPT_PNMN   R     R     R     S   TRUE  #>  8 Q2         A        2019-09-22 B_ESCHR_COLI   R     R     S     S   TRUE  #>  9 X7         A        2011-03-20 B_ESCHR_COLI   R     R     S     R   TRUE  #> 10 V1         A        2018-08-07 B_STPHY_AURS   R     R     S     S   TRUE  #> # ℹ 452 more rows  # even works in base R (since R 3.0): our_data_1st[all(betalactams() == \"R\"), ] #> ℹ For `betalactams()` using columns AMX (amoxicillin) and AMC #>   (amoxicillin/clavulanic acid) #> # A tibble: 462 × 9 #>    patient_id hospital date       bacteria     AMX   AMC   CIP   GEN   first #>    <chr>      <chr>    <date>     <mo>         <sir> <sir> <sir> <sir> <lgl> #>  1 M7         A        2013-07-22 B_STRPT_PNMN   R     R     S     S   TRUE  #>  2 R10        A        2013-12-20 B_STPHY_AURS   R     R     S     S   TRUE  #>  3 R7         A        2015-10-25 B_STPHY_AURS   R     R     S     S   TRUE  #>  4 R8         A        2019-10-25 B_STPHY_AURS   R     R     S     S   TRUE  #>  5 B6         A        2016-11-20 B_ESCHR_COLI   R     R     R     R   TRUE  #>  6 I7         A        2015-08-19 B_ESCHR_COLI   R     R     S     S   TRUE  #>  7 N3         A        2014-12-29 B_STRPT_PNMN   R     R     R     S   TRUE  #>  8 Q2         A        2019-09-22 B_ESCHR_COLI   R     R     S     S   TRUE  #>  9 X7         A        2011-03-20 B_ESCHR_COLI   R     R     S     R   TRUE  #> 10 V1         A        2018-08-07 B_STPHY_AURS   R     R     S     S   TRUE  #> # ℹ 452 more rows"},{"path":"https://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) #> ℹ `resistance()` assumes the EUCAST guideline and thus considers the 'I' #>   category susceptible. Set the `guideline` argument or the `AMR_guideline` #>   option to either \"CLSI\" or \"EUCAST\", see `?AMR-options`. #> ℹ This message will be shown once per session. #> [1] 0.4203377 our_data_1st %>%   group_by(hospital) %>%   summarise(amoxicillin = resistance(AMX)) #> # A tibble: 3 × 2 #>   hospital amoxicillin #>   <chr>          <dbl> #> 1 A              0.340 #> 2 B              0.551 #> 3 C              0.370"},{"path":"https://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`. #> ℹ `resistance()` assumes the EUCAST guideline and thus considers the 'I' #>   category susceptible. Set the `guideline` argument or the `AMR_guideline` #>   option to either \"CLSI\" or \"EUCAST\", see `?AMR-options`. #> ℹ This message will be shown once per session.  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 #> ℹ `resistance()` assumes the EUCAST guideline and thus considers the 'I' #>   category susceptible. Set the `guideline` argument or the `AMR_guideline` #>   option to either \"CLSI\" or \"EUCAST\", see `?AMR-options`. #> ℹ This message will be shown once per session.  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: 8: S < SDD < < R < NI < WT < NWT < NS 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) #> ℹ `susceptibility()` assumes the EUCAST guideline and thus considers the 'I' #>   category susceptible. Set the `guideline` argument or the `AMR_guideline` #>   option to either \"CLSI\" or \"EUCAST\", see `?AMR-options`. #> ℹ This message will be shown once per session."},{"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 505 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 23 March 2026 09:38:28 UTC. Find info contents, (scientific) source, structure data set . Direct download links: Download original R Data Structure (RDS) file (44 kB) Download tab-separated text file (0.1 MB) Download Microsoft Excel workbook (79 kB) Download Apache Feather file (0.1 MB) Download Apache Parquet file (94 kB) 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 9 February 2026 12:16:36 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 = \"-\")))) #> ℹ `resistance()` assumes the EUCAST guideline and thus considers the 'I' #>   category susceptible. Set the `guideline` argument or the `AMR_guideline` #>   option to either \"CLSI\" or \"EUCAST\", see `?AMR-options`. #> ℹ This message will be shown once per session. #> # 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. Set using options() function, e.g.: options(AMR_guideline = \"CLSI\")","code":""},{"path":"https://amr-for-r.org/reference/AMR-options.html","id":"options-alphabetical-order-","dir":"Reference","previous_headings":"","what":"Options (alphabetical order)","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 used throughout AMR package wherever guideline argument available. option used default e.g. .sir(), resistance(), susceptibility(), interpretive_rules() many plotting functions. unset, AMR package uses latest implemented EUCAST guideline (currently EUCAST 2025). .sir(), determines clinical breakpoint guideline used interpret MIC values disk diffusion diameters. can either guideline name (e.g., \"CLSI\" \"EUCAST\") name including year (e.g., \"CLSI 2019\"). Supported guidelines EUCAST 2011 2025, CLSI 2011 2025. resistance() susceptibility(), setting determines \"\" (Intermediate / Increased exposure) category handled calculations. CLSI, \"\" considered resistant susceptibility calculations; EUCAST, \"\" considered susceptible susceptibility calculations. Explicitly setting option ensures reproducible AMR proportion estimates. interpretive_rules(), determines guideline-specific interpretive (expert) rules applied antimicrobial test results, either EUCAST CLSI. many plotting functions (e.g., MIC disk diffusion values), supplying mo ab enables automatic SIR-based interpretative colouring. colours derived .sir() background therefore depend active guideline setting, uses EUCAST 2025 set explicitly. 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":"collaborative 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(). all_groups logical indicate whether antimicrobial groups must return vector input value. example, antibiotic \"aminopenicillins\" group, also \"penicillins\" \"beta-lactams\" groups. Setting all_groups = TRUE return three antibiotic, all_groups = FALSE (default) returns specific group name. 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://health.ec.europa.eu/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_group(\"AMX\", all_groups = TRUE) # most specific to most general #> [1] \"Aminopenicillins\" \"Penicillins\"      \"Beta-lactams\"     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\" \"Penicillins\"      \"Beta-lactams\"     #>  #> $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  1999-06-30  26  26.73151          0 #> 2  1968-01-29  58  58.14795         31 #> 3  1965-12-05  60  60.29863         34 #> 4  1980-03-01  46  46.06301         19 #> 5  1949-11-01  76  76.39178         50 #> 6  1947-02-14  79  79.10411         52 #> 7  1940-02-19  86  86.09041         59 #> 8  1988-01-10  38  38.20000         11 #> 9  1997-08-27  28  28.57260          2 #> 10 1978-01-26  48  48.15616         21"},{"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.12     ✔ rsample      1.3.2  #> ✔ 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.1      ✔ workflows    1.3.0  #> ✔ purrr        1.2.1      ✔ 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.912 #> 2 recall      binary         0.902 #> 3 precision   binary         0.917 #> 4 sensitivity binary         0.902 #> 5 specificity binary         0.922 #> 6 ppv         binary         0.917 #> 7 npv         binary         0.908"},{"path":"https://amr-for-r.org/reference/amr_course.html","id":null,"dir":"Reference","previous_headings":"","what":"Download and Unpack an AMR Course Repository — amr_course","title":"Download and Unpack an AMR Course Repository — amr_course","text":"Downloads unpacks GitHub repository containing course materials, using usethis::use_course(). convenience wrapper intended use educational settings, workshops tutorials associated AMR package.","code":""},{"path":"https://amr-for-r.org/reference/amr_course.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Download and Unpack an AMR Course Repository — amr_course","text":"","code":"amr_course(github_repo, branch = \"main\", ...)"},{"path":"https://amr-for-r.org/reference/amr_course.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Download and Unpack an AMR Course Repository — amr_course","text":"github_repo character string specifying GitHub repository username repo name, e.g. \"https://github.com/username/repo\". branch character string specifying branch download. Defaults \"main\". ... Additional arguments passed usethis::use_course().","code":""},{"path":"https://amr-for-r.org/reference/amr_course.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Download and Unpack an AMR Course Repository — amr_course","text":"Called side effect. usethis::use_course() prompt user choose destination open extracted project. Returns invisibly whatever usethis::use_course() returns.","code":""},{"path":"https://amr-for-r.org/reference/amr_course.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Download and Unpack an AMR Course Repository — amr_course","text":"function constructs ZIP archive URL provided github_repo branch, delegates usethis::use_course() handle download extraction. function designed interactive use course workshop settings intended use non-interactive automated pipelines.","code":""},{"path":[]},{"path":"https://amr-for-r.org/reference/amr_course.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Download and Unpack an AMR Course Repository — amr_course","text":"","code":"if (FALSE) { # \\dontrun{  # Let this run by users, e.g., webinar participants amr_course(\"https://github.com/my_user_name/our_AMR_course\") } # }"},{"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.4% (68.3-78.6%)        92.3% (90.7-93.7%)                 #> 2 ICU               57.4% (49.7-65.4%)        84.9% (82.1-87.6%)                 #> 3 Outpatient        57% (47.4-66.7%)          74.6% (68.8-79.8%)                 #> # ℹ 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.5% (68-79%)          | #> |ICU             |57.7% (49.9-65.3%)      | #> |Outpatient      |56.9% (46.5-66.8%)      |   # 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, ...)  ionophores(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, ...)  peptides(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), kasugamycin (KAS), 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), ceftibuten/avibactam (CTA), 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), ceftibuten/avibactam (CTA), 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), ceftibuten/avibactam (CTA), 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), ceftibuten/avibactam (CTA), 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), zorbamycin (ZOR) ionophores() can select:  lasalocid (LAS), monensin sodium (MON), narasin (NAR), nystatin (NYS), salinomycin (SAL) 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) peptides() can select:  avoparcin (AVO), bacitracin (BAC), bleomycin (BLM), dalbavancin (DAL), daptomycin (DAP), norvancomycin (NVA), oritavancin (ORI), ramoplanin (RAM), teicoplanin (TEC), teicoplanin-macromethod (TCM), telavancin (TLV), thiostrepton (THS), vancomycin (VAN), vancomycin-macromethod (VAM), zorbamycin (ZOR) 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:  ostreogrycin (OST), pristinamycin (PRI), quinupristin/dalfopristin (QDA), virginiamycine (VIR) sulfonamides() can select:  isoniazid/sulfamethoxazole/trimethoprim/pyridoxine (IST), ormetroprim/sulfamethoxazole (ORS), sulfachlorpyridazine (SUP), 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), sulfamethazine (SUM), 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), sulfasuccinamide (SNA), sulfathiazole (SUT), sulfathiourea (SLF13), sulfisoxazole (SOX), sulfonamide (SSS), trimethoprim/sulfamethoxazole (SXT) 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), tetracycline/oleandomycin (TOL), tigecycline (TGC) trimethoprims() can select:  brodimoprim (BDP), iclaprim (ICL), isoniazid/sulfamethoxazole/trimethoprim/pyridoxine (IST), ormetroprim/sulfamethoxazole (ORS), 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 625 Antimicrobial Drugs — antimicrobials","title":"Data Sets with 625 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 625 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 625 Antimicrobial Drugs — antimicrobials","text":"object class deprecated_amr_dataset (inherits tbl_df, tbl, data.frame) 505 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 505 observations and 14 variables:","title":"Data Sets with 625 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 625 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 625 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 625 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 625 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 625 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 625 Antimicrobial Drugs — antimicrobials","text":"","code":"antimicrobials #> # A tibble: 505 × 14 #>    ab        cid name   group atc   atc_group1 atc_group2 abbreviations synonyms #>    <ab>    <dbl> <chr>  <lis> <lis> <chr>      <chr>      <list>        <list>   #>  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>    #> # ℹ 495 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()  NA_ab_"},{"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(). NA_ab_ missing value new ab class, analogous e.g. base R's NA_character_.","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://health.ec.europa.eu/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://health.ec.europa.eu/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\",   round_to_next_log2 = FALSE)  is.mic(x)  NA_mic_  rescale_mic(x, mic_range, keep_operators = \"edges\", as.mic = TRUE,   round_to_next_log2 = FALSE)  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. round_to_next_log2 logical round values next log2 level, either 0.0001, 0.0002, 0.0005, 0.001, 0.002, 0.004, 0.008, 0.016, 0.032, 0.064, 0.125, 0.25, 0.5, 1, 2, 4, 8, 16, 32, 64, 128, 256, 512, 1024, 2048, 4096. Values already list (without operators), left unchanged (including operators). 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, and returns, 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  # round up to nearest log2 level, e.g. for CLSI breakpoint interpretation: c(1:8) #> [1] 1 2 3 4 5 6 7 8 as.mic(c(1:8), round_to_next_log2 = TRUE) #> Class <mic> #> [1] 1 2 4 4 8 8 8 8  # 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()  NA_mo_"},{"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 outdated, previously valid taxonomic names must preserved corrected currently accepted names. note term \"synonym\" case jargon field microbial taxonomy - place denote e.g. \"Streptococcus Group \" synonym S. pyogenes. Though practically case, taxonomically \"Streptococcus Group \" even valid taxonomic name. default FALSE, return note outdated 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 outdated 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. NA_mo_ missing value new mo class, analogous e.g. base R's NA_character_.","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 outdated, 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)+$\",   WT = \"^(WT|6)+$\", NWT = \"^(NWT|7)+$\", NS = \"^(NS|8)+$\",   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\"),   as_wt_nwt = identical(breakpoint_type, \"ECOFF\"),   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,   as_wt_nwt = identical(breakpoint_type, \"ECOFF\"),   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\"),   as_wt_nwt = identical(breakpoint_type, \"ECOFF\"),   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/bacteria/clinical-breakpoints--interpretation/clinical-breakpoint-tables/. 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, WT, NWT, NS 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. as_wt_nwt logical return \"WT\"/\"NWT\" instead \"S\"/\"R\". Defaults TRUE using ECOFFs, .e., breakpoint_type set \"ECOFF\". 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 interpretive_rules() (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 detecting 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/bacteria/clinical-breakpoints--interpretation/definition--s---r/). 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-03-24 12:30:17     1 MIC    amoxicillin Escherich… human      8           #> 2 2026-03-24 12:30:17     1 MIC    cipro       Escherich… human      0.256       #> 3 2026-03-24 12:30:18     1 DISK   tobra       Escherich… human      16          #> 4 2026-03-24 12:30:18     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) #> ℹ Run `sir_interpretation_history()` afterwards to retrieve a logbook with all #>   details of the breakpoint interpretations. #>  #> Processing columns: #>  #> ­ONE #>  #> ℹ 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. #> 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 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\" #> Class <sir> #> [1] S  as.sir(c(1, 2, 3)) #> ℹ `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) #> ℹ `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 #> ℹ `atc_online_property()`: no properties found for ATC QG51AA03. Please check #>   <https://atcddd.fhi.no/atcvet/atcvet_index/?code=QG51AA03&showdescription=no #>   this WHOCC webpage>. #> ℹ `atc_online_property()`: no properties found for ATC QJ01CA04. Please check #>   <https://atcddd.fhi.no/atcvet/atcvet_index/?code=QJ01CA04&showdescription=no #>   this WHOCC webpage>. #> [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://health.ec.europa.eu/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) #> ℹ `resistance()` assumes the EUCAST guideline and thus considers the 'I' #>   category susceptible. Set the `guideline` argument or the `AMR_guideline` #>   option to either \"CLSI\" or \"EUCAST\", see `?AMR-options`. #> ℹ This message will be shown once per session. #>         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\", \"WT, \"NWT\", \"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 × 11 #>   mo                ab        S   SDD     I     R    NI    WT   NWT    NS total #>   <chr>             <chr> <int> <int> <int> <int> <int> <int> <int> <int> <int> #> 1 (unknown species) AMC      15     0     0     0     0     0     0     0    15 #> 2 (unknown species) AMK       0     0     0     0     0     0     0     0     0 #> 3 (unknown species) AMP      15     0     0     1     0     0     0     0    16 #> 4 (unknown species) AMX      15     0     0     1     0     0     0     0    16 #> 5 (unknown species) AZM       3     0     0     3     0     0     0     0     6 #> 6 (unknown species) CAZ       0     0     0     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… \" 16… \"  2.0% … \"100.0% (39/… \" 10.3% (6/58)\" \" 10.0% (3/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… \" 28.9% … \"\"            \" 15.5% (9/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… \"  3.7% … \"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 × 11 #>    mo            ab        S   SDD     I     R    NI    WT   NWT    NS total #>    <chr>         <chr> <int> <int> <int> <int> <int> <int> <int> <int> <int> #>  1 Gram-negative AMC     463     0    89   174     0     0     0     0   726 #>  2 Gram-negative AMK     251     0     0     5     0     0     0     0   256 #>  3 Gram-negative AMP     226     0     0   405     0     0     0     0   631 #>  4 Gram-negative AMX     226     0     0   405     0     0     0     0   631 #>  5 Gram-negative AZM       1     0     2   696     0     0     0     0   699 #>  6 Gram-negative CAZ     607     0     0    27     0     0     0     0   634 #>  7 Gram-negative CHL       1     0     0    30     0     0     0     0    31 #>  8 Gram-negative CIP     610     0    11    63     0     0     0     0   684 #>  9 Gram-negative CLI      18     0     1   709     0     0     0     0   728 #> 10 Gram-negative COL     309     0     0    78     0     0     0     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 × 11 #>    mo      ab        S   SDD     I     R    NI    WT   NWT    NS total #>    <chr>   <chr> <int> <int> <int> <int> <int> <int> <int> <int> <int> #>  1 E. coli AMC     332     0    74    61     0     0     0     0   467 #>  2 E. coli AMK     171     0     0     0     0     0     0     0   171 #>  3 E. coli AMP     196     0     0   196     0     0     0     0   392 #>  4 E. coli AMX     196     0     0   196     0     0     0     0   392 #>  5 E. coli AZM       0     0     0   467     0     0     0     0   467 #>  6 E. coli CAZ     449     0     0    11     0     0     0     0   460 #>  7 E. coli CHL       0     0     0     0     0     0     0     0     0 #>  8 E. coli CIP     398     0     1    57     0     0     0     0   456 #>  9 E. coli CLI       0     0     0   467     0     0     0     0   467 #> 10 E. coli COL     240     0     0     0     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,   guideline = getOption(\"AMR_guideline\", \"EUCAST\"))  count_susceptible(..., only_all_tested = FALSE,   guideline = getOption(\"AMR_guideline\", \"EUCAST\"))  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 . guideline Either \"EUCAST\" (default) \"CLSI\". EUCAST, '' category considered susceptible (see EUCAST website), CLSI, considered resistant. Therefore: EUCAST: count_susceptible() \\(= N_{S} + N_{}\\), count_resistant() \\(= N_{R}\\) CLSI: count_susceptible() \\(= N_{S} + N_{SDD}\\), count_resistant() \\(= N_{} + N_{R}\\) can also use e.g. count_R() count_S() instead, explicit. 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 n_sir() alias count_all(). can used count available isolates, .e. input antimicrobials available result (S, R). use equal dplyr's 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/bacteria/clinical-breakpoints--interpretation/definition--s---r/). 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\" #> ℹ `count_resistant()` assumes the EUCAST guideline and thus considers the 'I' #>   category susceptible. Set the `guideline` argument or the `AMR_guideline` #>   option to either \"CLSI\" or \"EUCAST\", see `?AMR-options`. #> ℹ This message will be shown once per session. #> [1] 804 count_susceptible(example_isolates$AMX) # counts \"S\" and \"I\" #> ℹ `count_susceptible()` assumes the EUCAST guideline and thus considers the 'I' #>   category susceptible. Set the `guideline` argument or the `AMR_guideline` #>   option to either \"CLSI\" or \"EUCAST\", see `?AMR-options`. #> ℹ This message will be shown once per session. #> [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) #> ℹ `susceptibility()` assumes the EUCAST guideline and thus considers the 'I' #>   category susceptible. Set the `guideline` argument or the `AMR_guideline` #>   option to either \"CLSI\" or \"EUCAST\", see `?AMR-options`. #> ℹ This message will be shown once per session. #> [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\":   43 antimicrobial groups allowed rules (case-insensitive) can used combination: aminocoumarins(clorobiocin, novobiocin, penicillin/novobiocin) aminoglycosides(amikacin, amikacin/fosfomycin, apramycin, arbekacin, astromicin, bekanamycin, dibekacin, framycetin, gentamicin, gentamicin-high, habekacin, hygromycin, isepamicin, kanamycin, kanamycin-high, kanamycin/cephalexin, kasugamycin, 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, ceftibuten/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, xeruborbactam, 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, ceftibuten/avibactam, 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, ceftibuten/avibactam, 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, ceftibuten/avibactam, 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, ceftibuten/avibactam, 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, ceftibuten/avibactam, 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) fusidanes(fusidic acid) glycopeptides(avoparcin, bleomycin, dalbavancin, norvancomycin, oritavancin, ramoplanin, teicoplanin, teicoplanin-macromethod, telavancin, vancomycin, vancomycin-macromethod, zorbamycin) glycopeptides_except_lipo(avoparcin, bleomycin, norvancomycin, ramoplanin, teicoplanin, teicoplanin-macromethod, vancomycin, vancomycin-macromethod, zorbamycin) ionophores(lasalocid, monensin sodium, narasin, nystatin, salinomycin) 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) peptides(avoparcin, bacitracin, bleomycin, dalbavancin, daptomycin, norvancomycin, oritavancin, ramoplanin, teicoplanin, teicoplanin-macromethod, telavancin, thiostrepton, vancomycin, vancomycin-macromethod, zorbamycin) phenicols(chloramphenicol, florfenicol, thiamphenicol) phosphonics(amikacin/fosfomycin fosfomycin) pleuromutilins(retapamulin tiamulin) 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(ostreogrycin, pristinamycin, quinupristin/dalfopristin, virginiamycine) sulfonamides(isoniazid/sulfamethoxazole/trimethoprim/pyridoxine, ormetroprim/sulfamethoxazole, sulfachlorpyridazine, sulfadiazine, sulfadiazine/tetroxoprim, sulfadiazine/trimethoprim, sulfadimethoxine, sulfadimidine, sulfadimidine/trimethoprim, sulfafurazole, sulfaisodimidine, sulfalene, sulfamazone, sulfamerazine, sulfamerazine/trimethoprim, sulfamethazine, sulfamethizole, sulfamethoxazole, sulfamethoxypyridazine, sulfametomidine, sulfametoxydiazine, sulfametrole/trimethoprim, sulfamoxole, sulfamoxole/trimethoprim, sulfanilamide, sulfaperin, sulfaphenazole, sulfapyridine, sulfasuccinamide, sulfathiazole, sulfathiourea, sulfisoxazole, sulfonamide, trimethoprim/sulfamethoxazole) tetracyclines(cetocycline, chlortetracycline, clomocycline, demeclocycline, doxycycline, eravacycline, lymecycline, metacycline, minocycline, omadacycline, oxytetracycline, penimepicycline, rolitetracycline, sarecycline, tetracycline, tetracycline screening test, tetracycline/oleandomycin, tigecycline) tetracyclines_except_tgc(cetocycline, chlortetracycline, clomocycline, demeclocycline, doxycycline, eravacycline, lymecycline, metacycline, minocycline, omadacycline, oxytetracycline, penimepicycline, rolitetracycline, sarecycline, tetracycline, tetracycline screening test, tetracycline/oleandomycin) trimethoprims(brodimoprim, iclaprim, isoniazid/sulfamethoxazole/trimethoprim/pyridoxine, ormetroprim/sulfamethoxazole, 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:   43 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, kasugamycin, 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, ceftibuten/avibactam, 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, ceftibuten/avibactam, 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, ceftibuten/avibactam, 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, ceftibuten/avibactam, 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, zorbamycin ionophores() can select:  lasalocid, monensin sodium, narasin, nystatin, salinomycin 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 peptides() can select:  avoparcin, bacitracin, bleomycin, dalbavancin, daptomycin, norvancomycin, oritavancin, ramoplanin, teicoplanin, teicoplanin-macromethod, telavancin, thiostrepton, vancomycin, vancomycin-macromethod, zorbamycin 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:  ostreogrycin, pristinamycin, quinupristin/dalfopristin, virginiamycine sulfonamides() can select:  isoniazid/sulfamethoxazole/trimethoprim/pyridoxine, ormetroprim/sulfamethoxazole, sulfachlorpyridazine, sulfadiazine, sulfadiazine/tetroxoprim, sulfadiazine/trimethoprim, sulfadimethoxine, sulfadimidine, sulfadimidine/trimethoprim, sulfafurazole, sulfaisodimidine, sulfalene, sulfamazone, sulfamerazine, sulfamerazine/trimethoprim, sulfamethazine, sulfamethizole, sulfamethoxazole, sulfamethoxypyridazine, sulfametomidine, sulfametoxydiazine, sulfametrole/trimethoprim, sulfamoxole, sulfamoxole/trimethoprim, sulfanilamide, sulfaperin, sulfaphenazole, sulfapyridine, sulfasuccinamide, sulfathiazole, sulfathiourea, sulfisoxazole, sulfonamide, trimethoprim/sulfamethoxazole tetracyclines() can select:  cetocycline, chlortetracycline, clomocycline, demeclocycline, doxycycline, eravacycline, lymecycline, metacycline, minocycline, omadacycline, oxytetracycline, penimepicycline, rolitetracycline, sarecycline, tetracycline, tetracycline screening test, tetracycline/oleandomycin, tigecycline trimethoprims() can select:  brodimoprim, iclaprim, isoniazid/sulfamethoxazole/trimethoprim/pyridoxine, ormetroprim/sulfamethoxazole, 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) #> ℹ 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\", NA 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/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] 21  7  4 46 15  6 11 27 44 25 20  8 30 25 43 33 13 46  2 44 40 15 33 46  2 #>  [26] 32  4 19 22 45 23 45  9 44 39 16  7 46 10 34 37 45  4 20 11 14  5 19  7 40 #>  [51]  6 47 31  4 31 42  7 13 29 38 31 18 28  9 43 17 23 41 12  8 35 13  2 45  4 #>  [76]  3 34 36 15 23 24 15  9 41 12  1 44 17 18 37 32 23 35 38 44 37 38 10 24 26 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 FALSE  TRUE  TRUE  TRUE FALSE  TRUE FALSE  TRUE FALSE FALSE FALSE #>  [25] FALSE  TRUE FALSE  TRUE  TRUE  TRUE  TRUE FALSE  TRUE FALSE  TRUE  TRUE #>  [37] FALSE FALSE  TRUE  TRUE  TRUE FALSE FALSE FALSE FALSE  TRUE  TRUE FALSE #>  [49] FALSE FALSE FALSE  TRUE  TRUE FALSE FALSE  TRUE FALSE FALSE  TRUE  TRUE #>  [61] FALSE  TRUE  TRUE FALSE FALSE  TRUE FALSE  TRUE  TRUE FALSE  TRUE FALSE #>  [73] FALSE FALSE FALSE  TRUE FALSE  TRUE FALSE FALSE  TRUE FALSE FALSE FALSE #>  [85] FALSE  TRUE FALSE FALSE FALSE FALSE FALSE FALSE 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: 1 × 46 #>   date       patient   age gender ward  mo           PEN   OXA   FLC   AMX   #>   <date>     <chr>   <dbl> <chr>  <chr> <mo>         <sir> <sir> <sir> <sir> #> 1 2003-01-06 894506     83 M      ICU   B_STRPT_PNMN   S     NA    NA    S   #> # ℹ 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 [94] #>    patient date       condition new_episode #>    <chr>   <date>     <chr>     <lgl>       #>  1 060287  2007-03-11 A         TRUE        #>  2 0E2483  2007-11-10 A         TRUE        #>  3 101305  2006-12-13 A         TRUE        #>  4 141061  2014-10-22 A         TRUE        #>  5 151041  2006-02-10 A         TRUE        #>  6 15D386  2004-08-01 B         TRUE        #>  7 187841  2008-04-22 A         TRUE        #>  8 189363  2004-06-22 C         TRUE        #>  9 208305  2015-09-14 A         TRUE        #> 10 257844  2011-05-22 A         TRUE        #> # ℹ 90 more rows  if (require(\"dplyr\")) {   df %>%     group_by(ward, patient) %>%     transmute(date,       patient,       new_index = get_episode(date, 60),       new_logical = is_new_episode(date, 60)     ) %>%     arrange(patient, ward, date) } #> # A tibble: 100 × 5 #> # Groups:   ward, patient [89] #>    ward     date       patient new_index new_logical #>    <chr>    <date>     <chr>       <int> <lgl>       #>  1 Clinical 2007-03-11 060287          1 TRUE        #>  2 Clinical 2007-11-10 0E2483          1 TRUE        #>  3 Clinical 2006-12-13 101305          1 TRUE        #>  4 Clinical 2014-10-22 141061          1 TRUE        #>  5 Clinical 2006-02-10 151041          1 TRUE        #>  6 ICU      2004-08-01 15D386          1 TRUE        #>  7 Clinical 2008-04-22 187841          1 TRUE        #>  8 Clinical 2004-06-22 189363          1 TRUE        #>  9 Clinical 2015-09-14 208305          1 TRUE        #> 10 Clinical 2011-05-22 257844          1 TRUE        #> # ℹ 90 more rows  if (require(\"dplyr\")) {   df %>%     group_by(ward) %>%     summarise(       n_patients = n_distinct(patient),       n_episodes_365 = sum(is_new_episode(date, episode_days = 365)),       n_episodes_60 = sum(is_new_episode(date, episode_days = 60)),       n_episodes_30 = sum(is_new_episode(date, episode_days = 30))     ) } #> # A tibble: 3 × 5 #>   ward       n_patients n_episodes_365 n_episodes_60 n_episodes_30 #>   <chr>           <int>          <int>         <int>         <int> #> 1 Clinical           55             12            34            39 #> 2 ICU                28             10            25            26 #> 3 Outpatient          6              5             6             6  # grouping on patients and microorganisms leads to the same # results as first_isolate() when using 'episode-based': if (require(\"dplyr\")) {   x <- df %>%     filter_first_isolate(       include_unknown = TRUE,       method = \"episode-based\"     )    y <- df %>%     group_by(patient, mo) %>%     filter(is_new_episode(date, 365)) %>%     ungroup()    identical(x, y) } #> [1] 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 [93] #>    patient mo            ward       flag_episode #>    <chr>   <mo>          <chr>      <lgl>        #>  1 0E2483  B_ESCHR_COLI  Clinical   TRUE         #>  2 F24801  B_STRPT_AGLC  ICU        TRUE         #>  3 A26548  B_STPHY_CONS  ICU        TRUE         #>  4 422833  B_ENTRC_FCLS  Clinical   TRUE         #>  5 AFD3B1    UNKNOWN     Clinical   TRUE         #>  6 F35553  B_ENTRBC_CLOC ICU        TRUE         #>  7 316893  B_STPHY_CONS  Clinical   TRUE         #>  8 B54813  B_ENTRC       ICU        TRUE         #>  9 E06844  B_STPHY_AURS  Outpatient TRUE         #> 10 B65162  B_STRPT_PNMN  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\" (whilst `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) #> 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/interpretive_rules.html","id":null,"dir":"Reference","previous_headings":"","what":"Apply Interpretive Rules — interpretive_rules","title":"Apply Interpretive Rules — interpretive_rules","text":"Apply rules clinical breakpoints notes expected resistant phenotypes defined e.g. 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 CLSI/EUCAST interpretive rules applied, AMR-specific rules can applied default, see Details.","code":""},{"path":"https://amr-for-r.org/reference/interpretive_rules.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Apply Interpretive Rules — interpretive_rules","text":"","code":"interpretive_rules(x, col_mo = NULL, info = interactive(),   rules = getOption(\"AMR_interpretive_rules\", default = c(\"breakpoints\",   \"expected_phenotypes\")), guideline = getOption(\"AMR_guideline\", \"EUCAST\"),   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_rules(x, col_mo = NULL, info = interactive(),   rules = getOption(\"AMR_interpretive_rules\", default = c(\"breakpoints\",   \"expected_phenotypes\")), ...)  clsi_rules(x, col_mo = NULL, info = interactive(),   rules = getOption(\"AMR_interpretive_rules\", default = c(\"breakpoints\",   \"expected_phenotypes\")), ...)  eucast_dosage(ab, administration = \"iv\", version_breakpoints = 15)"},{"path":"https://amr-for-r.org/reference/interpretive_rules.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Apply Interpretive Rules — interpretive_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/interpretive_rules.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Apply Interpretive Rules — interpretive_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_interpretive_rules: options(AMR_interpretive_rules = \"\"). using \"custom\", sure fill argument custom_rules . Custom rules can created custom_eucast_rules(). guideline guideline name, either \"EUCAST\" (default) \"CLSI\". can set package option AMR_guideline. 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\", NA.","code":""},{"path":"https://amr-for-r.org/reference/interpretive_rules.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Apply Interpretive Rules — interpretive_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/interpretive_rules.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Apply Interpretive Rules — interpretive_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/interpretive_rules.html","id":"custom-rules","dir":"Reference","previous_headings":"","what":"Custom Rules","title":"Apply Interpretive Rules — interpretive_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/interpretive_rules.html","id":"-other-rules","dir":"Reference","previous_headings":"","what":"'Other' Rules","title":"Apply Interpretive Rules — interpretive_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_interpretive_rules, .e. run options(AMR_interpretive_rules = \"\").","code":""},{"path":"https://amr-for-r.org/reference/interpretive_rules.html","id":"download-our-reference-data","dir":"Reference","previous_headings":"","what":"Download Our Reference Data","title":"Apply Interpretive Rules — interpretive_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/interpretive_rules.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Apply Interpretive Rules — interpretive_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, e.g.: - x %>% as.sir(CXM:AMX) - x %>% #> mutate_if(is_sir_eligible, as.sir) - x %>% #> 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, e.g.: - x %>% as.sir(CXM:AMX) - x %>% #> mutate_if(is_sir_eligible, as.sir) - x %>% #> 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/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] 2.985614 kurtosis(rnorm(10000), excess = TRUE) #> [1] 0.01547453"},{"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)),   infer_from_combinations = TRUE, ...)  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. infer_from_combinations logical indicate whether resistance missing base beta-lactam drug inferred available drug+inhibitor combination (e.g., piperacillin piperacillin/tazobactam). clinical basis resistance combination always implies resistance base drug, since enzyme inhibitor provides benefit organism truly resistant. resistance inferred; susceptibility combination imply susceptibility base drug (inhibitor may responsible). Defaults TRUE. ... 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/bacteria/clinical-breakpoints--interpretation/definition--s---r/). 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] S R S R I I R R R S mean_amr_distance(sir) #>  [1] -0.9486833  0.9486833 -0.9486833  0.9486833 -0.9486833 -0.9486833 #>  [7]  0.9486833  0.9486833  0.9486833 -0.9486833  mic <- random_mic(10) mic #> Class <mic> #>  [1] 0.5      <=0.0001 0.25     0.0005   0.001    0.0002   8        <=0.0001 #>  [9] <=0.0001 0.004    mean_amr_distance(mic) #>  [1]  1.18999891 -0.86809178  1.02250714 -0.47918793 -0.31169616 -0.70060001 #>  [7]  1.85996599 -0.86809178 -0.86809178  0.02328738 # equal to the Z-score of their log2: (log2(mic) - mean(log2(mic))) / sd(log2(mic)) #>  [1]  1.18999891 -0.86809178  1.02250714 -0.47918793 -0.31169616 -0.70060001 #>  [7]  1.85996599 -0.86809178 -0.86809178  0.02328738  disk <- random_disk(10) disk #> Class <disk> #>  [1] 20 45 31 26 23 38 44 41 20 49 mean_amr_distance(disk) #>  [1] -1.2414143  1.0239402 -0.2446583 -0.6977292 -0.9695717  0.3896410 #>  [7]  0.9333261  0.6614835 -1.2414143  1.3863970  y <- data.frame(   id = LETTERS[1:10],   amox = random_sir(10, ab = \"amox\", mo = \"Escherichia coli\"),   cipr = random_disk(10, ab = \"cipr\", mo = \"Escherichia coli\"),   gent = random_mic(10, ab = \"gent\", mo = \"Escherichia coli\"),   tobr = random_mic(10, ab = \"tobr\", mo = \"Escherichia coli\") ) y #>    id amox cipr gent tobr #> 1   A    R   33   16  <=1 #> 2   B    S   32  <=8   32 #> 3   C    S   27   16   32 #> 4   D    I   33  <=8    8 #> 5   E    I   22  <=8    2 #> 6   F    R   32  <=8    4 #> 7   G    S   31   16    8 #> 8   H    I   31  <=8  <=1 #> 9   I    R   28   16    2 #> 10  J    S   22   16    4 mean_amr_distance(y) #> ℹ Calculating mean AMR distance based on columns \"amox\", \"cipr\", \"gent\", and #>   \"tobr\" #>  [1]  0.52677313  0.16501937  0.34372779 -0.05155946 -0.97765805  0.26901032 #>  [7]  0.30452889 -0.58337098  0.36899264 -0.36546366 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 #> 8   H    I   31  <=8  <=1   -1.0808937 #> 5   E    I   22  <=8    2   -0.8051882 #> 6   F    R   32  <=8    4   -0.5294827 #> 4   D    I   33  <=8    8   -0.2537773 #> 1   A    R   33   16  <=1   -0.1322104 #> 9   I    R   28   16    2    0.1434951 #> 2   B    S   32  <=8   32    0.2976337 #> 10  J    S   22   16    4    0.4192006 #> 7   G    S   31   16    8    0.6949060 #> 3   C    S   27   16   32    1.2463170  if (require(\"dplyr\")) {   y %>%     mutate(       amr_distance = mean_amr_distance(y),       check_id_C = amr_distance_from_row(amr_distance, id == \"C\")     ) %>%     arrange(check_id_C) } #> ℹ Calculating mean AMR distance based on columns \"amox\", \"cipr\", \"gent\", and #>   \"tobr\" #>    id amox cipr gent tobr amr_distance check_id_C #> 1   C    S   27   16   32   0.34372779 0.00000000 #> 2   I    R   28   16    2   0.36899264 0.02526485 #> 3   G    S   31   16    8   0.30452889 0.03919890 #> 4   F    R   32  <=8    4   0.26901032 0.07471748 #> 5   B    S   32  <=8   32   0.16501937 0.17870842 #> 6   A    R   33   16  <=1   0.52677313 0.18304534 #> 7   D    I   33  <=8    8  -0.05155946 0.39528726 #> 8   J    S   22   16    4  -0.36546366 0.70919145 #> 9   H    I   31  <=8  <=1  -0.58337098 0.92709877 #> 10  E    I   22  <=8    2  -0.97765805 1.32138584 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\", NA. 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 outdated, previously valid taxonomic names must preserved corrected currently accepted names. note term \"synonym\" case jargon field microbial taxonomy - place denote e.g. \"Streptococcus Group \" synonym S. pyogenes. Though practically case, taxonomically \"Streptococcus Group \" even valid taxonomic name. default FALSE, return note outdated 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: `as.mo()` returned one outdated taxonomic name. Use `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\" (whilst `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 < WT < NWT < NS). 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, guideline = getOption(\"AMR_guideline\",   \"EUCAST\"))  susceptibility(..., minimum = 30, as_percent = FALSE,   only_all_tested = FALSE, guideline = getOption(\"AMR_guideline\",   \"EUCAST\"))  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 . guideline Either \"EUCAST\" (default) \"CLSI\". EUCAST, '' category considered susceptible (see EUCAST website), CLSI, considered resistant. Therefore: EUCAST: susceptibility() \\(= \\%S + \\%\\), resistance() \\(= \\%R\\) CLSI: susceptibility() \\(= \\%S + \\%SDD\\), resistance() \\(= \\%+ \\%R\\) can also use e.g. proportion_R() proportion_S() instead, explicit. 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/bacteria/clinical-breakpoints--interpretation/definition--s---r/). 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\" #> (whilst `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.008    0.125    4        32       1        0.004    0.008    0.0002   #>  [9] 0.125    2        0.008    0.008    0.016    0.125    0.064    <=0.0001 #> [17] 0.0005   0.0002   0.5      0.002    0.002    0.25     16       <=0.0001 #> [25] 0.002    random_disk(25) #> Class <disk> #>  [1] 25 47 24 47 38 28 36 33 31 50 41 29 40 31 44 45 37 40 44 49  9 48 20 37 47 random_sir(25) #> Class <sir> #>  [1] S S R R S S I S I S S I S R I I I I S I R I I I I  # 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] 2      0.001  4      0.008  0.0005 0.0005 0.0005 0.0002 0.0002 >=64   #> [11] 0.0002 1      0.5    0.002  0.5    0.002  0.001  0.032  0.008  0.004  #> [21] 0.032  0.0002 0.0005 0.002  0.001  random_mic(25, \"Klebsiella pneumoniae\", \"meropenem\") # range 0.0625-16 #> Class <mic> #>  [1] <=0.5 <=0.5 2     <=0.5 1     <=0.5 <=0.5 <=0.5 <=0.5 1     <=0.5 <=0.5 #> [13] <=0.5 1     <=0.5 1     <=0.5 <=0.5 <=0.5 <=0.5 <=0.5 <=0.5 2     1     #> [25] 2     random_mic(25, \"Streptococcus pneumoniae\", \"meropenem\") # range 0.0625-4 #> Class <mic> #>  [1] 0.125 0.125 1     0.25  0.5   0.125 0.125 0.125 0.125 0.125 0.125 0.125 #> [13] 1     0.125 0.5   1     0.125 0.25  0.5   0.25  0.5   0.5   0.5   0.125 #> [25] 0.25   random_disk(25, \"Klebsiella pneumoniae\") # range 8-50 #> Class <disk> #>  [1] 32 21 23 21 14 22 25 29 29 28 34 34 34 33 13 28 33 34 32 25 18 26 13 21 33 random_disk(25, \"Klebsiella pneumoniae\", \"ampicillin\") # range 11-17 #> Class <disk> #>  [1] 20 21 15 22 16 22 16 14 21 17 15 19 20 17 18 21 16 20 11 22 19 18 19 11 21 random_disk(25, \"Streptococcus pneumoniae\", \"ampicillin\") # range 12-27 #> Class <disk> #>  [1] 29 25 31 17 29 21 31 34 33 31 29 30 23 20 33 20 34 32 35 26 26 26 34 30 33 # }"},{"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/bacteria/clinical-breakpoints--interpretation/definition--s---r/). 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.08600633"},{"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-9040","dir":"Changelog","previous_headings":"","what":"New","title":"AMR 3.0.1.9040","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 ionophores(), peptides(), phosphonics() spiropyrimidinetriones() .sir() gained argument as_wt_nwt, defaults TRUE breakpoint_type = \"ECOFF\" (#254) transforms output S/R WT/NWT Functions susceptibility() count WT S NWT R eucast_rules() become wrapper around function Function amr_course(), allows automated download unpacking GitHub repository e.g. webinar use","code":""},{"path":"https://amr-for-r.org/news/index.html","id":"fixes-3-0-1-9040","dir":"Changelog","previous_headings":"","what":"Fixes","title":"AMR 3.0.1.9040","text":"Fixed bug .sir() values purely numeric (e.g., \"1\") matched broad SIR-matching regex incorrectly stripped content Unicode letter filter Fixed bug .mic() MIC values scientific notation (e.g., \"1e-3\") incorrectly handled letter e removed along Unicode letters; scientific notation e now preserved Fixed bug .ab() certain AB codes containing “PH” “TH” (ETH, MTH, PHE, PHN, STH, THA, THI1) incorrectly return NA combined vector untranslatable value (#245) Fixed bug antibiogram() antimicrobials set Fixed bug .sir() numeric input arguments S, , R considered (#244) Fixed bug plotting MIC values keep_operators = \"\" Fixed foreign translations antimicrobial drugs Fixed bug printing column names console using mutate_at(vars(...), .mic) (#249) Fixed bug disregard NI susceptibility proportion functions Fixed Italian translation CoNS Stafilococco coagulasi-negativo CoPS Stafilococco coagulasi-positivo (#256) Fixed SIR MIC coercion combined values, e.g. .sir(\"<= 0.002; S\") .mic(\"S; 0.002\") (#252)","code":""},{"path":"https://amr-for-r.org/news/index.html","id":"updates-3-0-1-9040","dir":"Changelog","previous_headings":"","what":"Updates","title":"AMR 3.0.1.9040","text":"Extensive cli integration better message handling clickable links messages warnings (#191, #265) mdro() now infers resistance missing base drug column available corresponding drug+inhibitor combination showing resistance (e.g., piperacillin absent required, piperacillin/tazobactam available resistant). Can set new argument infer_from_combinations, defaults TRUE (#209). Note can yield higher MDRO detection (good thing become reliable). susceptibility() resistance() gained argument guideline, defaults EUCAST, interpreting ‘’ category correctly. Added antimicrobials data set: cefepime/taniborbactam (FTA), ceftibuten/avibactam (CTA), clorobiocin (CLB), kasugamycin (KAS), ostreogrycin (OST), taniborbactam (TAN), thiostrepton (THS), xeruborbactam (XER), zorbamycin (ZOR) .mic() rescale_mic() gained argument round_to_next_log2, can set TRUE round values nearest next log2 level (#255) antimicrobials$group now list instead character, contain group drug (#246) ab_group() gained argument all_groups return groups antimicrobial drug (#246) 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 ab_group() now returns values consist AMR selectors (#246) Added two new NA objects, NA_ab_ NA_mo_, analogous base R’s NA_character_ NA_integer_, use pipelines require typed missing values","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/CLAUDE.html","id":null,"dir":"","previous_headings":"","what":"CLAUDE.md — AMR R Package","title":"CLAUDE.md — AMR R Package","text":"file provides context Claude Code working repository.","code":""},{"path":"https://amr-for-r.org/CLAUDE.html","id":"project-overview","dir":"","previous_headings":"","what":"Project Overview","title":"CLAUDE.md — AMR R Package","text":"AMR zero-dependency R package antimicrobial resistance (AMR) data analysis using One Health approach. peer-reviewed, used 175+ countries, supports 28 languages. Key capabilities: - SIR (Susceptible/Intermediate/Resistant) classification using EUCAST 2011–2025 CLSI 2011–2025 breakpoints - Antibiogram generation: traditional, combined, syndromic, WISCA - Microorganism taxonomy database (~79,000 species) - Antimicrobial drug database (~620 drugs) - Multi-drug resistant organism (MDRO) classification - First-isolate identification - Minimum Inhibitory Concentration (MIC) disk diffusion handling - Multilingual output (28 languages)","code":""},{"path":"https://amr-for-r.org/CLAUDE.html","id":"common-commands","dir":"","previous_headings":"","what":"Common Commands","title":"CLAUDE.md — AMR R Package","text":"commands run inside R session: shell:","code":"# Rebuild documentation (roxygen2 → .Rd files + NAMESPACE) devtools::document()  # Run all tests devtools::test()  # Full package check (CRAN-level: docs + tests + checks) devtools::check()  # Build pkgdown website locally pkgdown::build_site()  # Code coverage report covr::package_coverage() # CRAN check from parent directory R CMD check AMR"},{"path":"https://amr-for-r.org/CLAUDE.html","id":"repository-structure","dir":"","previous_headings":"","what":"Repository Structure","title":"CLAUDE.md — AMR R Package","text":"","code":"R/              # All R source files (62 files, ~28,000 lines) man/            # Auto-generated .Rd documentation (do not edit manually) tests/testthat/ # testthat test files (test-*.R) and helper-functions.R data/           # Pre-compiled .rda datasets data-raw/       # Scripts used to generate data/ files vignettes/      # Rmd vignette articles inst/           # Installed files (translations, etc.) _pkgdown.yml    # pkgdown website configuration"},{"path":"https://amr-for-r.org/CLAUDE.html","id":"r-source-file-conventions","dir":"","previous_headings":"","what":"R Source File Conventions","title":"CLAUDE.md — AMR R Package","text":"Naming conventions R/: Key source files: aa_helper_functions.R / aa_helper_pm_functions.R — internal utility functions (large; ~63 KB ~37 KB) aa_globals.R — global constants breakpoint lookup structures aa_options.R — amr_options() / get_AMR_option() system mo.R / mo_property.R — microorganism lookup properties ab.R / ab_property.R — antimicrobial drug functions av.R / av_property.R — antiviral drug functions sir.R / sir_calc.R / sir_df.R — SIR classification engine mic.R / disk.R — MIC disk diffusion classes antibiogram.R — antibiogram generation (traditional, combined, syndromic, WISCA) first_isolate.R — first-isolate identification algorithms mdro.R — MDRO classification (EUCAST, CLSI, CDC, custom guidelines) amr_selectors.R — tidyselect helpers selecting AMR columns interpretive_rules.R / custom_eucast_rules.R — clinical interpretation rules translate.R — 28-language translation system ggplot_sir.R / ggplot_pca.R / plotting.R — visualisation functions","code":""},{"path":"https://amr-for-r.org/CLAUDE.html","id":"custom-s3-classes","dir":"","previous_headings":"","what":"Custom S3 Classes","title":"CLAUDE.md — AMR R Package","text":"package defines five S3 classes full print/format/plot/vctrs support:","code":""},{"path":"https://amr-for-r.org/CLAUDE.html","id":"data-files","dir":"","previous_headings":"","what":"Data Files","title":"CLAUDE.md — AMR R Package","text":"Pre-compiled data/ (edit directly; regenerate via data-raw/ scripts):","code":""},{"path":"https://amr-for-r.org/CLAUDE.html","id":"zero-dependency-design","dir":"","previous_headings":"","what":"Zero-Dependency Design","title":"CLAUDE.md — AMR R Package","text":"package Imports DESCRIPTION. optional integrations (ggplot2, dplyr, data.table, tidymodels, cli, crayon, etc.) listed Suggests guarded : Never add packages Imports. new functionality requires external package, add Suggests guard usage appropriately.","code":"if (requireNamespace(\"pkg\", quietly = TRUE)) { ... }"},{"path":"https://amr-for-r.org/CLAUDE.html","id":"testing","dir":"","previous_headings":"","what":"Testing","title":"CLAUDE.md — AMR R Package","text":"Framework: testthat (R ≥ 3.1); legacy tinytest used R 3.0–3.6 CI Test files: tests/testthat/test-*.R Helpers: tests/testthat/helper-functions.R CI matrix: GitHub Actions across Windows / macOS / Linux × R devel / release / oldrel-1 oldrel-4 Coverage: covr (files excluded: atc_online.R, mo_source.R, translate.R, resistance_predict.R, zz_deprecated.R, helper files, zzz.R)","code":""},{"path":"https://amr-for-r.org/CLAUDE.html","id":"documentation","dir":"","previous_headings":"","what":"Documentation","title":"CLAUDE.md — AMR R Package","text":"exported functions use roxygen2 blocks (RoxygenNote: 7.3.3, markdown enabled) Run devtools::document() change roxygen comments Never edit files man/ directly — auto-generated Vignettes live vignettes/ .Rmd files pkgdown website configured _pkgdown.yml","code":""},{"path":"https://amr-for-r.org/CLAUDE.html","id":"versioning","dir":"","previous_headings":"","what":"Versioning","title":"CLAUDE.md — AMR R Package","text":"Version format: major.minor.patch.dev (e.g., 3.0.1.9021) Development versions use .9xxx suffix Stable CRAN releases drop dev suffix (e.g., 3.0.1) NEWS.md uses sections New, Fixes, Updates GitHub issue references (#NNN)","code":""},{"path":"https://amr-for-r.org/CLAUDE.html","id":"version-and-date-bump-required-for-every-pr","dir":"","previous_headings":"Versioning","what":"Version and date bump required for every PR","title":"CLAUDE.md — AMR R Package","text":"PRs squash-merged, PR lands exactly one commit default branch. Version numbers kept sync cumulative commit count since last released tag. Therefore exactly one version bump allowed per PR, regardless many intermediate commits made branch.","code":""},{"path":"https://amr-for-r.org/CLAUDE.html","id":"computing-the-correct-version-number","dir":"","previous_headings":"Versioning > Version and date bump required for every PR","what":"Computing the correct version number","title":"CLAUDE.md — AMR R Package","text":"Run following repo root determine version string use: + 1 accounts fact PR’s squash commit yet default branch. Set files resulting version string (per PR, even across multiple commits): DESCRIPTION — Version: field NEWS.md — replace line 1 (# AMR <version> heading) new version number; create new section. NEWS.md continuous log entire current x.y.z.9nnn development series: changes since last stable release accumulate single heading. updating line 1, append new change bullet appropriate sub-heading (### New, ### Fixes, ### Updates). Style rules NEWS.md entries: extremely concise — one short line per item end full stop (period) verbose explanations; just essential fact git describe fails (e.g. tags exist environment), fall back reading current version DESCRIPTION adding 1 last numeric component — bump already made PR.","code":"currenttag=$(git describe --tags --abbrev=0 | sed 's/v//') currenttagfull=$(git describe --tags --abbrev=0) defaultbranch=$(git branch | cut -c 3- | grep -E '^master$|^main$') currentcommit=$(git rev-list --count ${currenttagfull}..${defaultbranch}) currentversion=\"${currenttag}.$((currentcommit + 9001 + 1))\" echo \"$currentversion\""},{"path":"https://amr-for-r.org/CLAUDE.html","id":"date-field","dir":"","previous_headings":"Versioning > Version and date bump required for every PR","what":"Date field","title":"CLAUDE.md — AMR R Package","text":"Date: field DESCRIPTION must reflect date last commit PR (first), ISO format. Update every commit always current:","code":"Date: 2026-03-07"},{"path":"https://amr-for-r.org/CLAUDE.html","id":"internal-state","dir":"","previous_headings":"","what":"Internal State","title":"CLAUDE.md — AMR R Package","text":"package uses private AMR_env environment (created aa_globals.R) caching expensive lookups (e.g., microorganism matching scores, breakpoint tables). avoids re-computation within session.","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 724 isolates analysis. Now data looks like: Time analysis.","code":"our_data <- our_data %>%   mutate(first = first_isolate(info = TRUE)) #> ℹ Determining first isolates using an episode length of 365 days #> ℹ Using column bacteria as input for `col_mo`. #> ℹ Column first is SIR eligible (despite only having empty values), since it #>   seems to be cefozopran (ZOP) #> ℹ Using column date as input for `col_date`. #> ℹ Using column patient_id as input for `col_patient_id`. #> ℹ Basing inclusion on all antimicrobial results, using a points threshold of 2 #> => Found 2,724 'phenotype-based' first isolates (90.8% of total where a #> microbial ID was available) our_data_1st <- our_data %>%   filter(first == TRUE) our_data_1st <- our_data %>%   filter_first_isolate() our_data_1st #> # A tibble: 2,724 × 9 #>    patient_id hospital date       bacteria     AMX   AMC   CIP   GEN   first #>    <chr>      <chr>    <date>     <mo>         <sir> <sir> <sir> <sir> <lgl> #>  1 J3         A        2012-11-21 B_ESCHR_COLI   R     I     S     S   TRUE  #>  2 R7         A        2018-04-03 B_KLBSL_PNMN   R     I     S     S   TRUE  #>  3 P3         A        2014-09-19 B_ESCHR_COLI   R     S     S     S   TRUE  #>  4 P10        A        2015-12-10 B_ESCHR_COLI   S     I     S     S   TRUE  #>  5 B7         A        2015-03-02 B_ESCHR_COLI   S     S     S     S   TRUE  #>  6 W3         A        2018-03-31 B_STPHY_AURS   R     S     R     S   TRUE  #>  7 M3         A        2015-10-25 B_ESCHR_COLI   R     S     S     S   TRUE  #>  8 J3         A        2019-06-19 B_ESCHR_COLI   S     S     S     S   TRUE  #>  9 G6         A        2015-04-27 B_STPHY_AURS   S     S     S     S   TRUE  #> 10 P4         A        2011-06-21 B_ESCHR_COLI   S     S     S     S   TRUE  #> # ℹ 2,714 more rows"},{"path":"https://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:2724        Length:2724        Min.   :2011-01-01   #>  Class :character   Class :character   1st Qu.:2013-04-07   #>  Mode  :character   Mode  :character   Median :2015-06-03   #>                                        Mean   :2015-06-09   #>                                        3rd Qu.:2017-08-11   #>                                        Max.   :2019-12-27   #>    bacteria               AMX                    AMC                 #>  Class :mo             Class:sir              Class:sir              #>  <NA>  :0              %S   :41.6% (n=1133)   %S   :52.6% (n=1432)   #>  Unique:4              %SDD : 0.0% (n=0)      %SDD : 0.0% (n=0)      #>  #1    :B_ESCHR_COLI   %I   :16.4% (n=446)    %I   :12.2% (n=333)    #>  #2    :B_STPHY_AURS   %R   :42.0% (n=1145)   %R   :35.2% (n=959)    #>  #3    :B_STRPT_PNMN   %NI  : 0.0% (n=0)      %NI  : 0.0% (n=0)      #>     CIP                    GEN                  first         #>  Class:sir              Class:sir              Mode:logical   #>  %S   :52.5% (n=1431)   %S   :61.0% (n=1661)   TRUE:2724      #>  %SDD : 0.0% (n=0)      %SDD : 0.0% (n=0)                     #>  %I   : 6.5% (n=176)    %I   : 3.0% (n=82)                    #>  %R   :41.0% (n=1117)   %R   :36.0% (n=981)                   #>  %NI  : 0.0% (n=0)      %NI  : 0.0% (n=0)  glimpse(our_data_1st) #> Rows: 2,724 #> Columns: 9 #> $ patient_id <chr> \"J3\", \"R7\", \"P3\", \"P10\", \"B7\", \"W3\", \"M3\", \"J3\", \"G6\", \"P4\"… #> $ hospital   <chr> \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\",… #> $ date       <date> 2012-11-21, 2018-04-03, 2014-09-19, 2015-12-10, 2015-03-02… #> $ bacteria   <mo> \"B_ESCHR_COLI\", \"B_KLBSL_PNMN\", \"B_ESCHR_COLI\", \"B_ESCHR_COL… #> $ AMX        <sir> R, R, R, S, S, R, R, S, S, S, S, R, S, S, R, R, R, R, S, R,… #> $ AMC        <sir> I, I, S, I, S, S, S, S, S, S, S, S, S, S, S, S, S, R, S, S,… #> $ CIP        <sir> S, S, S, S, S, R, S, S, S, S, S, S, S, S, S, S, S, S, S, S,… #> $ GEN        <sir> S, S, S, S, S, S, S, S, S, S, S, R, S, S, S, S, S, S, S, S,… #> $ first      <lgl> TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE,…  # number of unique values per column: sapply(our_data_1st, n_distinct) #> patient_id   hospital       date   bacteria        AMX        AMC        CIP  #>        260          3       1854          4          3          3          3  #>        GEN      first  #>          3          1"},{"path":"https://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          1321 #> 2 Staphylococcus aureus      682 #> 3 Streptococcus pneumoniae   402 #> 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,724 × 2 #>    date       GEN   #>    <date>     <sir> #>  1 2012-11-21   S   #>  2 2018-04-03   S   #>  3 2014-09-19   S   #>  4 2015-12-10   S   #>  5 2015-03-02   S   #>  6 2018-03-31   S   #>  7 2015-10-25   S   #>  8 2019-06-19   S   #>  9 2015-04-27   S   #> 10 2011-06-21   S   #> # ℹ 2,714 more rows  our_data_1st %>%   select(bacteria, betalactams()) #> ℹ For `betalactams()` using columns AMX (amoxicillin) and AMC #>   (amoxicillin/clavulanic acid) #> # A tibble: 2,724 × 3 #>    bacteria     AMX   AMC   #>    <mo>         <sir> <sir> #>  1 B_ESCHR_COLI   R     I   #>  2 B_KLBSL_PNMN   R     I   #>  3 B_ESCHR_COLI   R     S   #>  4 B_ESCHR_COLI   S     I   #>  5 B_ESCHR_COLI   S     S   #>  6 B_STPHY_AURS   R     S   #>  7 B_ESCHR_COLI   R     S   #>  8 B_ESCHR_COLI   S     S   #>  9 B_STPHY_AURS   S     S   #> 10 B_ESCHR_COLI   S     S   #> # ℹ 2,714 more rows  our_data_1st %>%   select(bacteria, where(is.sir)) #> # A tibble: 2,724 × 5 #>    bacteria     AMX   AMC   CIP   GEN   #>    <mo>         <sir> <sir> <sir> <sir> #>  1 B_ESCHR_COLI   R     I     S     S   #>  2 B_KLBSL_PNMN   R     I     S     S   #>  3 B_ESCHR_COLI   R     S     S     S   #>  4 B_ESCHR_COLI   S     I     S     S   #>  5 B_ESCHR_COLI   S     S     S     S   #>  6 B_STPHY_AURS   R     S     R     S   #>  7 B_ESCHR_COLI   R     S     S     S   #>  8 B_ESCHR_COLI   S     S     S     S   #>  9 B_STPHY_AURS   S     S     S     S   #> 10 B_ESCHR_COLI   S     S     S     S   #> # ℹ 2,714 more rows  # filtering using AB selectors is also possible: our_data_1st %>%   filter(any(aminoglycosides() == \"R\")) #> ℹ For `aminoglycosides()` using column GEN #> (gentamicin) #> # A tibble: 981 × 9 #>    patient_id hospital date       bacteria     AMX   AMC   CIP   GEN   first #>    <chr>      <chr>    <date>     <mo>         <sir> <sir> <sir> <sir> <lgl> #>  1 J5         A        2017-12-25 B_STRPT_PNMN   R     S     S     R   TRUE  #>  2 X1         A        2017-07-04 B_STPHY_AURS   R     S     S     R   TRUE  #>  3 B3         A        2016-07-24 B_ESCHR_COLI   S     S     S     R   TRUE  #>  4 V7         A        2012-04-03 B_ESCHR_COLI   S     S     S     R   TRUE  #>  5 C9         A        2017-03-23 B_ESCHR_COLI   S     S     S     R   TRUE  #>  6 R1         A        2018-06-10 B_STPHY_AURS   S     S     S     R   TRUE  #>  7 S2         A        2013-07-19 B_STRPT_PNMN   S     S     S     R   TRUE  #>  8 P5         A        2019-03-09 B_STPHY_AURS   S     S     S     R   TRUE  #>  9 Q8         A        2019-08-10 B_STPHY_AURS   S     S     S     R   TRUE  #> 10 K5         A        2013-03-15 B_STRPT_PNMN   S     S     S     R   TRUE  #> # ℹ 971 more rows  our_data_1st %>%   filter(all(betalactams() == \"R\")) #> ℹ For `betalactams()` using columns AMX (amoxicillin) and AMC #>   (amoxicillin/clavulanic acid) #> # A tibble: 462 × 9 #>    patient_id hospital date       bacteria     AMX   AMC   CIP   GEN   first #>    <chr>      <chr>    <date>     <mo>         <sir> <sir> <sir> <sir> <lgl> #>  1 M7         A        2013-07-22 B_STRPT_PNMN   R     R     S     S   TRUE  #>  2 R10        A        2013-12-20 B_STPHY_AURS   R     R     S     S   TRUE  #>  3 R7         A        2015-10-25 B_STPHY_AURS   R     R     S     S   TRUE  #>  4 R8         A        2019-10-25 B_STPHY_AURS   R     R     S     S   TRUE  #>  5 B6         A        2016-11-20 B_ESCHR_COLI   R     R     R     R   TRUE  #>  6 I7         A        2015-08-19 B_ESCHR_COLI   R     R     S     S   TRUE  #>  7 N3         A        2014-12-29 B_STRPT_PNMN   R     R     R     S   TRUE  #>  8 Q2         A        2019-09-22 B_ESCHR_COLI   R     R     S     S   TRUE  #>  9 X7         A        2011-03-20 B_ESCHR_COLI   R     R     S     R   TRUE  #> 10 V1         A        2018-08-07 B_STPHY_AURS   R     R     S     S   TRUE  #> # ℹ 452 more rows  # even works in base R (since R 3.0): our_data_1st[all(betalactams() == \"R\"), ] #> ℹ For `betalactams()` using columns AMX (amoxicillin) and AMC #>   (amoxicillin/clavulanic acid) #> # A tibble: 462 × 9 #>    patient_id hospital date       bacteria     AMX   AMC   CIP   GEN   first #>    <chr>      <chr>    <date>     <mo>         <sir> <sir> <sir> <sir> <lgl> #>  1 M7         A        2013-07-22 B_STRPT_PNMN   R     R     S     S   TRUE  #>  2 R10        A        2013-12-20 B_STPHY_AURS   R     R     S     S   TRUE  #>  3 R7         A        2015-10-25 B_STPHY_AURS   R     R     S     S   TRUE  #>  4 R8         A        2019-10-25 B_STPHY_AURS   R     R     S     S   TRUE  #>  5 B6         A        2016-11-20 B_ESCHR_COLI   R     R     R     R   TRUE  #>  6 I7         A        2015-08-19 B_ESCHR_COLI   R     R     S     S   TRUE  #>  7 N3         A        2014-12-29 B_STRPT_PNMN   R     R     R     S   TRUE  #>  8 Q2         A        2019-09-22 B_ESCHR_COLI   R     R     S     S   TRUE  #>  9 X7         A        2011-03-20 B_ESCHR_COLI   R     R     S     R   TRUE  #> 10 V1         A        2018-08-07 B_STPHY_AURS   R     R     S     S   TRUE  #> # ℹ 452 more rows"},{"path":"https://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) #> ℹ `resistance()` assumes the EUCAST guideline and thus considers the 'I' #>   category susceptible. Set the `guideline` argument or the `AMR_guideline` #>   option to either \"CLSI\" or \"EUCAST\", see `?AMR-options`. #> ℹ This message will be shown once per session. #> [1] 0.4203377 our_data_1st %>%   group_by(hospital) %>%   summarise(amoxicillin = resistance(AMX)) #> # A tibble: 3 × 2 #>   hospital amoxicillin #>   <chr>          <dbl> #> 1 A              0.340 #> 2 B              0.551 #> 3 C              0.370"},{"path":"https://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`. #> ℹ `resistance()` assumes the EUCAST guideline and thus considers the 'I' #>   category susceptible. Set the `guideline` argument or the `AMR_guideline` #>   option to either \"CLSI\" or \"EUCAST\", see `?AMR-options`. #> ℹ This message will be shown once per session.  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 #> ℹ `resistance()` assumes the EUCAST guideline and thus considers the 'I' #>   category susceptible. Set the `guideline` argument or the `AMR_guideline` #>   option to either \"CLSI\" or \"EUCAST\", see `?AMR-options`. #> ℹ This message will be shown once per session.  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: 8: S < SDD < < R < NI < WT < NWT < NS 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) #> ℹ `susceptibility()` assumes the EUCAST guideline and thus considers the 'I' #>   category susceptible. Set the `guideline` argument or the `AMR_guideline` #>   option to either \"CLSI\" or \"EUCAST\", see `?AMR-options`. #> ℹ This message will be shown once per session."},{"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 505 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 23 March 2026 09:38:28 UTC. Find info contents, (scientific) source, structure data set . Direct download links: Download original R Data Structure (RDS) file (44 kB) Download tab-separated text file (0.1 MB) Download Microsoft Excel workbook (79 kB) Download Apache Feather file (0.1 MB) Download Apache Parquet file (94 kB) 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 45 797 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 30 March 2026 08:01:49 UTC. Find info contents, (scientific) source, structure data set . Direct download links: Download original R Data Structure (RDS) file (92 kB) Download tab-separated text file (4.2 MB) Download Microsoft Excel workbook (2.7 MB) Download Apache Feather file (2 MB) Download Apache Parquet file (0.1 MB) Download IBM SPSS Statistics data file (7.5 MB) Download Stata DTA file (12.6 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 9 February 2026 12:16:36 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 050 rows 2 columns, containing following column names:code mo. data set R available microorganisms.codes, load AMR package. last updated 30 March 2026 08:01:49 UTC. Find info contents, (scientific) source, structure data set . Direct download links: Download original R Data Structure (RDS) file (28 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 (69 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-2026 EUCAST 2011-2026 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-2026 EUCAST 2011-2026 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 = \"-\")))) #> ℹ `resistance()` assumes the EUCAST guideline and thus considers the 'I' #>   category susceptible. Set the `guideline` argument or the `AMR_guideline` #>   option to either \"CLSI\" or \"EUCAST\", see `?AMR-options`. #> ℹ This message will be shown once per session. #> # 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\" #> (whilst `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. Set using options() function, e.g.: options(AMR_guideline = \"CLSI\")","code":""},{"path":"https://amr-for-r.org/reference/AMR-options.html","id":"options-alphabetical-order-","dir":"Reference","previous_headings":"","what":"Options (alphabetical order)","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 used throughout AMR package wherever guideline argument available. option used default e.g. .sir(), resistance(), susceptibility(), interpretive_rules() many plotting functions. unset, AMR package uses latest implemented EUCAST guideline (currently EUCAST 2026). .sir(), determines clinical breakpoint guideline used interpret MIC values disk diffusion diameters. can either guideline name (e.g., \"CLSI\" \"EUCAST\") name including year (e.g., \"CLSI 2019\"). Supported guidelines EUCAST 2011 2026, CLSI 2011 2026. resistance() susceptibility(), setting determines \"\" (Intermediate / Increased exposure) category handled calculations. CLSI, \"\" considered resistant susceptibility calculations; EUCAST, \"\" considered susceptible susceptibility calculations. Explicitly setting option ensures reproducible AMR proportion estimates. interpretive_rules(), determines guideline-specific interpretive (expert) rules applied antimicrobial test results, either EUCAST CLSI. many plotting functions (e.g., MIC disk diffusion values), supplying mo ab enables automatic SIR-based interpretative colouring. colours derived .sir() background therefore depend active guideline setting, uses EUCAST 2026 set explicitly. 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 2026\". Supported guideline currently EUCAST (2011-2026) CLSI (2011-2026). 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":"collaborative 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-2026 EUCAST 2011-2026 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(). all_groups logical indicate whether antimicrobial groups must return vector input value. example, antibiotic \"aminopenicillins\" group, also \"penicillins\" \"beta-lactams\" groups. Setting all_groups = TRUE return three antibiotic, all_groups = FALSE (default) returns specific group name. 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://health.ec.europa.eu/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_group(\"AMX\", all_groups = TRUE) # most specific to most general #> [1] \"Aminopenicillins\" \"Penicillins\"      \"Beta-lactams\"     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\" \"Penicillins\"      \"Beta-lactams\"     #>  #> $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  1999-06-30  26  26.74795          0 #> 2  1968-01-29  58  58.16438         31 #> 3  1965-12-05  60  60.31507         34 #> 4  1980-03-01  46  46.07945         19 #> 5  1949-11-01  76  76.40822         50 #> 6  1947-02-14  79  79.12055         52 #> 7  1940-02-19  86  86.10685         59 #> 8  1988-01-10  38  38.21644         11 #> 9  1997-08-27  28  28.58904          2 #> 10 1978-01-26  48  48.17260         21"},{"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.12     ✔ rsample      1.3.2  #> ✔ 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.1      ✔ workflows    1.3.0  #> ✔ purrr        1.2.1      ✔ 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.912 #> 2 recall      binary         0.902 #> 3 precision   binary         0.917 #> 4 sensitivity binary         0.902 #> 5 specificity binary         0.922 #> 6 ppv         binary         0.917 #> 7 npv         binary         0.908"},{"path":"https://amr-for-r.org/reference/amr_course.html","id":null,"dir":"Reference","previous_headings":"","what":"Download and Unpack an AMR Course Repository — amr_course","title":"Download and Unpack an AMR Course Repository — amr_course","text":"Downloads unpacks GitHub repository containing course materials, using usethis::use_course(). convenience wrapper intended use educational settings, workshops tutorials associated AMR package.","code":""},{"path":"https://amr-for-r.org/reference/amr_course.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Download and Unpack an AMR Course Repository — amr_course","text":"","code":"amr_course(github_repo, branch = \"main\", ...)"},{"path":"https://amr-for-r.org/reference/amr_course.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Download and Unpack an AMR Course Repository — amr_course","text":"github_repo character string specifying GitHub repository username repo name, e.g. \"https://github.com/username/repo\". branch character string specifying branch download. Defaults \"main\". ... Additional arguments passed usethis::use_course().","code":""},{"path":"https://amr-for-r.org/reference/amr_course.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Download and Unpack an AMR Course Repository — amr_course","text":"Called side effect. usethis::use_course() prompt user choose destination open extracted project. Returns invisibly whatever usethis::use_course() returns.","code":""},{"path":"https://amr-for-r.org/reference/amr_course.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Download and Unpack an AMR Course Repository — amr_course","text":"function constructs ZIP archive URL provided github_repo branch, delegates usethis::use_course() handle download extraction. function designed interactive use course workshop settings intended use non-interactive automated pipelines.","code":""},{"path":[]},{"path":"https://amr-for-r.org/reference/amr_course.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Download and Unpack an AMR Course Repository — amr_course","text":"","code":"if (FALSE) { # \\dontrun{  # Let this run by users, e.g., webinar participants amr_course(\"https://github.com/my_user_name/our_AMR_course\") } # }"},{"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.4% (68.3-78.6%)        92.3% (90.7-93.7%)                 #> 2 ICU               57.4% (49.7-65.4%)        84.9% (82.1-87.6%)                 #> 3 Outpatient        57% (47.4-66.7%)          74.6% (68.8-79.8%)                 #> # ℹ 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.5% (68-79%)          | #> |ICU             |57.7% (49.9-65.3%)      | #> |Outpatient      |56.9% (46.5-66.8%)      |   # 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, ...)  ionophores(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, ...)  peptides(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), kasugamycin (KAS), 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), ceftibuten/avibactam (CTA), 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), ceftibuten/avibactam (CTA), 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), ceftibuten/avibactam (CTA), 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), ceftibuten/avibactam (CTA), 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), zorbamycin (ZOR) ionophores() can select:  lasalocid (LAS), monensin sodium (MON), narasin (NAR), nystatin (NYS), salinomycin (SAL) 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) peptides() can select:  avoparcin (AVO), bacitracin (BAC), bleomycin (BLM), dalbavancin (DAL), daptomycin (DAP), norvancomycin (NVA), oritavancin (ORI), ramoplanin (RAM), teicoplanin (TEC), teicoplanin-macromethod (TCM), telavancin (TLV), thiostrepton (THS), vancomycin (VAN), vancomycin-macromethod (VAM), zorbamycin (ZOR) 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:  ostreogrycin (OST), pristinamycin (PRI), quinupristin/dalfopristin (QDA), virginiamycine (VIR) sulfonamides() can select:  isoniazid/sulfamethoxazole/trimethoprim/pyridoxine (IST), ormetroprim/sulfamethoxazole (ORS), sulfachlorpyridazine (SUP), 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), sulfamethazine (SUM), 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), sulfasuccinamide (SNA), sulfathiazole (SUT), sulfathiourea (SLF13), sulfisoxazole (SOX), sulfonamide (SSS), trimethoprim/sulfamethoxazole (SXT) 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), tetracycline/oleandomycin (TOL), tigecycline (TGC) trimethoprims() can select:  brodimoprim (BDP), iclaprim (ICL), isoniazid/sulfamethoxazole/trimethoprim/pyridoxine (IST), ormetroprim/sulfamethoxazole (ORS), 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 625 Antimicrobial Drugs — antimicrobials","title":"Data Sets with 625 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 625 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 625 Antimicrobial Drugs — antimicrobials","text":"object class deprecated_amr_dataset (inherits tbl_df, tbl, data.frame) 505 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 505 observations and 14 variables:","title":"Data Sets with 625 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 625 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 625 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 625 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 625 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 625 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 625 Antimicrobial Drugs — antimicrobials","text":"","code":"antimicrobials #> # A tibble: 505 × 14 #>    ab        cid name   group atc   atc_group1 atc_group2 abbreviations synonyms #>    <ab>    <dbl> <chr>  <lis> <lis> <chr>      <chr>      <list>        <list>   #>  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>    #> # ℹ 495 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()  NA_ab_"},{"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(). NA_ab_ missing value new ab class, analogous e.g. base R's NA_character_.","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://health.ec.europa.eu/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://health.ec.europa.eu/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\",   round_to_next_log2 = FALSE)  is.mic(x)  NA_mic_  rescale_mic(x, mic_range, keep_operators = \"edges\", as.mic = TRUE,   round_to_next_log2 = FALSE)  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. round_to_next_log2 logical round values next log2 level, either 0.0001, 0.0002, 0.0005, 0.001, 0.002, 0.004, 0.008, 0.016, 0.032, 0.064, 0.125, 0.25, 0.5, 1, 2, 4, 8, 16, 32, 64, 128, 256, 512, 1024, 2048, 4096. Values already list (without operators), left unchanged (including operators). 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-2026) CLSI (2011-2026). 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, and returns, 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  # round up to nearest log2 level, e.g. for CLSI breakpoint interpretation: c(1:8) #> [1] 1 2 3 4 5 6 7 8 as.mic(c(1:8), round_to_next_log2 = TRUE) #> Class <mic> #> [1] 1 2 4 4 8 8 8 8  # 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()  NA_mo_"},{"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 outdated, previously valid taxonomic names must preserved corrected currently accepted names. note term \"synonym\" case jargon field microbial taxonomy - place denote e.g. \"Streptococcus Group \" synonym S. pyogenes. Though practically case, taxonomically \"Streptococcus Group \" even valid taxonomic name. default FALSE, return note outdated 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 outdated 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. NA_mo_ missing value new mo class, analogous e.g. base R's NA_character_.","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 outdated, 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-2026 CLSI 2011-2026, 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)+$\",   WT = \"^(WT|6)+$\", NWT = \"^(NWT|7)+$\", NS = \"^(NS|8)+$\",   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\"),   as_wt_nwt = identical(breakpoint_type, \"ECOFF\"),   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,   as_wt_nwt = identical(breakpoint_type, \"ECOFF\"),   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\"),   as_wt_nwt = identical(breakpoint_type, \"ECOFF\"),   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-2026, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/microbiology/documents/m39/. CLSI M100: Performance Standard Antimicrobial Susceptibility Testing, 2011-2026, 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-2026, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/veterinary-medicine/documents/vet01/. EUCAST Breakpoint tables interpretation MICs zone diameters, 2011-2026, European Committee Antimicrobial Susceptibility Testing (EUCAST). https://www.eucast.org/bacteria/clinical-breakpoints--interpretation/clinical-breakpoint-tables/. WHONET source machine-reading clinical breakpoints (read ), 1989-2026, 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, WT, NWT, NS 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 2026 (latest implemented EUCAST guideline clinical_breakpoints data set), can set package option AMR_guideline. Currently supports EUCAST (2011-2026) CLSI (2011-2026), 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. as_wt_nwt logical return \"WT\"/\"NWT\" instead \"S\"/\"R\". Defaults TRUE using ECOFFs, .e., breakpoint_type set \"ECOFF\". 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-2026 CLSI 2011-2026; veterinary microbiology: EUCAST 2021-2026 CLSI 2019-2026; ECOFFs (Epidemiological Cut-Values): EUCAST 2020-2026 CLSI 2022-2026. guideline argument must set e.g., \"EUCAST 2026\" \"CLSI 2026\". 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 interpretive_rules() (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 detecting 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/bacteria/clinical-breakpoints--interpretation/definition--s---r/). 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-03-30 08:14:10     1 MIC    amoxicillin Escherich… human      8           #> 2 2026-03-30 08:14:10     1 MIC    cipro       Escherich… human      0.256       #> 3 2026-03-30 08:14:10     1 DISK   tobra       Escherich… human      16          #> 4 2026-03-30 08:14:11     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) #> ℹ Run `sir_interpretation_history()` afterwards to retrieve a logbook with all #>   details of the breakpoint interpretations. #>  #> Processing columns: #>  #> ­ONE #>  #> ℹ 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. #> 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 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\" #> Class <sir> #> [1] S  as.sir(c(1, 2, 3)) #> ℹ `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) #> ℹ `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 #> ℹ `atc_online_property()`: no properties found for ATC QG51AA03. Please check #>   <https://atcddd.fhi.no/atcvet/atcvet_index/?code=QG51AA03&showdescription=no #>   this WHOCC webpage>. #> ℹ `atc_online_property()`: no properties found for ATC QJ01CA04. Please check #>   <https://atcddd.fhi.no/atcvet/atcvet_index/?code=QJ01CA04&showdescription=no #>   this WHOCC webpage>. #> [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://health.ec.europa.eu/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) #> ℹ `resistance()` assumes the EUCAST guideline and thus considers the 'I' #>   category susceptible. Set the `guideline` argument or the `AMR_guideline` #>   option to either \"CLSI\" or \"EUCAST\", see `?AMR-options`. #> ℹ This message will be shown once per session. #>         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\", \"WT, \"NWT\", \"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 × 11 #>   mo                ab        S   SDD     I     R    NI    WT   NWT    NS total #>   <chr>             <chr> <int> <int> <int> <int> <int> <int> <int> <int> <int> #> 1 (unknown species) AMC      15     0     0     0     0     0     0     0    15 #> 2 (unknown species) AMK       0     0     0     0     0     0     0     0     0 #> 3 (unknown species) AMP      15     0     0     1     0     0     0     0    16 #> 4 (unknown species) AMX      15     0     0     1     0     0     0     0    16 #> 5 (unknown species) AZM       3     0     0     3     0     0     0     0     6 #> 6 (unknown species) CAZ       0     0     0     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… \" 16… \"  2.0% … \"100.0% (39/… \" 10.3% (6/58)\" \" 10.0% (3/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… \" 28.9% … \"\"            \" 15.5% (9/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… \"  3.7% … \"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 × 11 #>    mo            ab        S   SDD     I     R    NI    WT   NWT    NS total #>    <chr>         <chr> <int> <int> <int> <int> <int> <int> <int> <int> <int> #>  1 Gram-negative AMC     463     0    89   174     0     0     0     0   726 #>  2 Gram-negative AMK     251     0     0     5     0     0     0     0   256 #>  3 Gram-negative AMP     226     0     0   405     0     0     0     0   631 #>  4 Gram-negative AMX     226     0     0   405     0     0     0     0   631 #>  5 Gram-negative AZM       1     0     2   696     0     0     0     0   699 #>  6 Gram-negative CAZ     607     0     0    27     0     0     0     0   634 #>  7 Gram-negative CHL       1     0     0    30     0     0     0     0    31 #>  8 Gram-negative CIP     610     0    11    63     0     0     0     0   684 #>  9 Gram-negative CLI      18     0     1   709     0     0     0     0   728 #> 10 Gram-negative COL     309     0     0    78     0     0     0     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 × 11 #>    mo      ab        S   SDD     I     R    NI    WT   NWT    NS total #>    <chr>   <chr> <int> <int> <int> <int> <int> <int> <int> <int> <int> #>  1 E. coli AMC     332     0    74    61     0     0     0     0   467 #>  2 E. coli AMK     171     0     0     0     0     0     0     0   171 #>  3 E. coli AMP     196     0     0   196     0     0     0     0   392 #>  4 E. coli AMX     196     0     0   196     0     0     0     0   392 #>  5 E. coli AZM       0     0     0   467     0     0     0     0   467 #>  6 E. coli CAZ     449     0     0    11     0     0     0     0   460 #>  7 E. coli CHL       0     0     0     0     0     0     0     0     0 #>  8 E. coli CIP     398     0     1    57     0     0     0     0   456 #>  9 E. coli CLI       0     0     0   467     0     0     0     0   467 #> 10 E. coli COL     240     0     0     0     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-2026 CLSI 2011-2026; veterinary microbiology: EUCAST 2021-2026 CLSI 2019-2026; ECOFFs (Epidemiological Cut-Values): EUCAST 2020-2026 CLSI 2022-2026. 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 45 797 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 72 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: 45,797 × 14 #>    guideline   type  host  method site    mo            rank_index ab   ref_tbl  #>    <chr>       <chr> <chr> <chr>  <chr>   <mo>               <dbl> <ab> <chr>    #>  1 EUCAST 2026 human human DISK   NA      B_ACHRMB_XYLS          2 MEM  A. xylo… #>  2 EUCAST 2026 human human MIC    NA      B_ACHRMB_XYLS          2 MEM  A. xylo… #>  3 EUCAST 2026 human human DISK   NA      B_ACHRMB_XYLS          2 SXT  A. xylo… #>  4 EUCAST 2026 human human MIC    NA      B_ACHRMB_XYLS          2 SXT  A. xylo… #>  5 EUCAST 2026 human human DISK   NA      B_ACHRMB_XYLS          2 TZP  A. xylo… #>  6 EUCAST 2026 human human MIC    NA      B_ACHRMB_XYLS          2 TZP  A. xylo… #>  7 EUCAST 2026 human human DISK   NA      B_ACNTB                3 AMK  Acineto… #>  8 EUCAST 2026 human human DISK   Uncomp… B_ACNTB                3 AMK  Acineto… #>  9 EUCAST 2026 human human MIC    NA      B_ACNTB                3 AMK  Acineto… #> 10 EUCAST 2026 human human MIC    Uncomp… B_ACNTB                3 AMK  Acineto… #> # ℹ 45,787 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,   guideline = getOption(\"AMR_guideline\", \"EUCAST\"))  count_susceptible(..., only_all_tested = FALSE,   guideline = getOption(\"AMR_guideline\", \"EUCAST\"))  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 . guideline Either \"EUCAST\" (default) \"CLSI\". EUCAST, '' category considered susceptible (see EUCAST website), CLSI, considered resistant. Therefore: EUCAST: count_susceptible() \\(= N_{S} + N_{}\\), count_resistant() \\(= N_{R}\\) CLSI: count_susceptible() \\(= N_{S} + N_{SDD}\\), count_resistant() \\(= N_{} + N_{R}\\) can also use e.g. count_R() count_S() instead, explicit. 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 n_sir() alias count_all(). can used count available isolates, .e. input antimicrobials available result (S, R). use equal dplyr's 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/bacteria/clinical-breakpoints--interpretation/definition--s---r/). 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\" #> ℹ `count_resistant()` assumes the EUCAST guideline and thus considers the 'I' #>   category susceptible. Set the `guideline` argument or the `AMR_guideline` #>   option to either \"CLSI\" or \"EUCAST\", see `?AMR-options`. #> ℹ This message will be shown once per session. #> [1] 804 count_susceptible(example_isolates$AMX) # counts \"S\" and \"I\" #> ℹ `count_susceptible()` assumes the EUCAST guideline and thus considers the 'I' #>   category susceptible. Set the `guideline` argument or the `AMR_guideline` #>   option to either \"CLSI\" or \"EUCAST\", see `?AMR-options`. #> ℹ This message will be shown once per session. #> [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) #> ℹ `susceptibility()` assumes the EUCAST guideline and thus considers the 'I' #>   category susceptible. Set the `guideline` argument or the `AMR_guideline` #>   option to either \"CLSI\" or \"EUCAST\", see `?AMR-options`. #> ℹ This message will be shown once per session. #> [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\":   43 antimicrobial groups allowed rules (case-insensitive) can used combination: aminocoumarins(clorobiocin, novobiocin, penicillin/novobiocin) aminoglycosides(amikacin, amikacin/fosfomycin, apramycin, arbekacin, astromicin, bekanamycin, dibekacin, framycetin, gentamicin, gentamicin-high, habekacin, hygromycin, isepamicin, kanamycin, kanamycin-high, kanamycin/cephalexin, kasugamycin, 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, ceftibuten/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, xeruborbactam, 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, ceftibuten/avibactam, 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, ceftibuten/avibactam, 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, ceftibuten/avibactam, 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, ceftibuten/avibactam, 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, ceftibuten/avibactam, 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) fusidanes(fusidic acid) glycopeptides(avoparcin, bleomycin, dalbavancin, norvancomycin, oritavancin, ramoplanin, teicoplanin, teicoplanin-macromethod, telavancin, vancomycin, vancomycin-macromethod, zorbamycin) glycopeptides_except_lipo(avoparcin, bleomycin, norvancomycin, ramoplanin, teicoplanin, teicoplanin-macromethod, vancomycin, vancomycin-macromethod, zorbamycin) ionophores(lasalocid, monensin sodium, narasin, nystatin, salinomycin) 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) peptides(avoparcin, bacitracin, bleomycin, dalbavancin, daptomycin, norvancomycin, oritavancin, ramoplanin, teicoplanin, teicoplanin-macromethod, telavancin, thiostrepton, vancomycin, vancomycin-macromethod, zorbamycin) phenicols(chloramphenicol, florfenicol, thiamphenicol) phosphonics(amikacin/fosfomycin fosfomycin) pleuromutilins(retapamulin tiamulin) 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(ostreogrycin, pristinamycin, quinupristin/dalfopristin, virginiamycine) sulfonamides(isoniazid/sulfamethoxazole/trimethoprim/pyridoxine, ormetroprim/sulfamethoxazole, sulfachlorpyridazine, sulfadiazine, sulfadiazine/tetroxoprim, sulfadiazine/trimethoprim, sulfadimethoxine, sulfadimidine, sulfadimidine/trimethoprim, sulfafurazole, sulfaisodimidine, sulfalene, sulfamazone, sulfamerazine, sulfamerazine/trimethoprim, sulfamethazine, sulfamethizole, sulfamethoxazole, sulfamethoxypyridazine, sulfametomidine, sulfametoxydiazine, sulfametrole/trimethoprim, sulfamoxole, sulfamoxole/trimethoprim, sulfanilamide, sulfaperin, sulfaphenazole, sulfapyridine, sulfasuccinamide, sulfathiazole, sulfathiourea, sulfisoxazole, sulfonamide, trimethoprim/sulfamethoxazole) tetracyclines(cetocycline, chlortetracycline, clomocycline, demeclocycline, doxycycline, eravacycline, lymecycline, metacycline, minocycline, omadacycline, oxytetracycline, penimepicycline, rolitetracycline, sarecycline, tetracycline, tetracycline screening test, tetracycline/oleandomycin, tigecycline) tetracyclines_except_tgc(cetocycline, chlortetracycline, clomocycline, demeclocycline, doxycycline, eravacycline, lymecycline, metacycline, minocycline, omadacycline, oxytetracycline, penimepicycline, rolitetracycline, sarecycline, tetracycline, tetracycline screening test, tetracycline/oleandomycin) trimethoprims(brodimoprim, iclaprim, isoniazid/sulfamethoxazole/trimethoprim/pyridoxine, ormetroprim/sulfamethoxazole, 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:   43 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, kasugamycin, 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, ceftibuten/avibactam, 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, ceftibuten/avibactam, 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, ceftibuten/avibactam, 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, ceftibuten/avibactam, 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, zorbamycin ionophores() can select:  lasalocid, monensin sodium, narasin, nystatin, salinomycin 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 peptides() can select:  avoparcin, bacitracin, bleomycin, dalbavancin, daptomycin, norvancomycin, oritavancin, ramoplanin, teicoplanin, teicoplanin-macromethod, telavancin, thiostrepton, vancomycin, vancomycin-macromethod, zorbamycin 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:  ostreogrycin, pristinamycin, quinupristin/dalfopristin, virginiamycine sulfonamides() can select:  isoniazid/sulfamethoxazole/trimethoprim/pyridoxine, ormetroprim/sulfamethoxazole, sulfachlorpyridazine, sulfadiazine, sulfadiazine/tetroxoprim, sulfadiazine/trimethoprim, sulfadimethoxine, sulfadimidine, sulfadimidine/trimethoprim, sulfafurazole, sulfaisodimidine, sulfalene, sulfamazone, sulfamerazine, sulfamerazine/trimethoprim, sulfamethazine, sulfamethizole, sulfamethoxazole, sulfamethoxypyridazine, sulfametomidine, sulfametoxydiazine, sulfametrole/trimethoprim, sulfamoxole, sulfamoxole/trimethoprim, sulfanilamide, sulfaperin, sulfaphenazole, sulfapyridine, sulfasuccinamide, sulfathiazole, sulfathiourea, sulfisoxazole, sulfonamide, trimethoprim/sulfamethoxazole tetracyclines() can select:  cetocycline, chlortetracycline, clomocycline, demeclocycline, doxycycline, eravacycline, lymecycline, metacycline, minocycline, omadacycline, oxytetracycline, penimepicycline, rolitetracycline, sarecycline, tetracycline, tetracycline screening test, tetracycline/oleandomycin, tigecycline trimethoprims() can select:  brodimoprim, iclaprim, isoniazid/sulfamethoxazole/trimethoprim/pyridoxine, ormetroprim/sulfamethoxazole, 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) #> ℹ 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\", NA 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/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] 21  7  4 46 15  6 11 27 44 25 20  8 30 25 43 33 13 46  2 44 40 15 33 46  2 #>  [26] 32  4 19 22 45 23 45  9 44 39 16  7 46 10 34 37 45  4 20 11 14  5 19  7 40 #>  [51]  6 47 31  4 31 42  7 13 29 38 31 18 28  9 43 17 23 41 12  8 35 13  2 45  4 #>  [76]  3 34 36 15 23 24 15  9 41 12  1 44 17 18 37 32 23 35 38 44 37 38 10 24 26 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 FALSE  TRUE  TRUE  TRUE FALSE  TRUE FALSE  TRUE FALSE FALSE FALSE #>  [25] FALSE  TRUE FALSE  TRUE  TRUE  TRUE  TRUE FALSE  TRUE FALSE  TRUE  TRUE #>  [37] FALSE FALSE  TRUE  TRUE  TRUE FALSE FALSE FALSE FALSE  TRUE  TRUE FALSE #>  [49] FALSE FALSE FALSE  TRUE  TRUE FALSE FALSE  TRUE FALSE FALSE  TRUE  TRUE #>  [61] FALSE  TRUE  TRUE FALSE FALSE  TRUE FALSE  TRUE  TRUE FALSE  TRUE FALSE #>  [73] FALSE FALSE FALSE  TRUE FALSE  TRUE FALSE FALSE  TRUE FALSE FALSE FALSE #>  [85] FALSE  TRUE FALSE FALSE FALSE FALSE FALSE FALSE 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: 1 × 46 #>   date       patient   age gender ward  mo           PEN   OXA   FLC   AMX   #>   <date>     <chr>   <dbl> <chr>  <chr> <mo>         <sir> <sir> <sir> <sir> #> 1 2003-01-06 894506     83 M      ICU   B_STRPT_PNMN   S     NA    NA    S   #> # ℹ 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 [94] #>    patient date       condition new_episode #>    <chr>   <date>     <chr>     <lgl>       #>  1 060287  2007-03-11 A         TRUE        #>  2 0E2483  2007-11-10 A         TRUE        #>  3 101305  2006-12-13 A         TRUE        #>  4 141061  2014-10-22 A         TRUE        #>  5 151041  2006-02-10 A         TRUE        #>  6 15D386  2004-08-01 B         TRUE        #>  7 187841  2008-04-22 A         TRUE        #>  8 189363  2004-06-22 C         TRUE        #>  9 208305  2015-09-14 A         TRUE        #> 10 257844  2011-05-22 A         TRUE        #> # ℹ 90 more rows  if (require(\"dplyr\")) {   df %>%     group_by(ward, patient) %>%     transmute(date,       patient,       new_index = get_episode(date, 60),       new_logical = is_new_episode(date, 60)     ) %>%     arrange(patient, ward, date) } #> # A tibble: 100 × 5 #> # Groups:   ward, patient [89] #>    ward     date       patient new_index new_logical #>    <chr>    <date>     <chr>       <int> <lgl>       #>  1 Clinical 2007-03-11 060287          1 TRUE        #>  2 Clinical 2007-11-10 0E2483          1 TRUE        #>  3 Clinical 2006-12-13 101305          1 TRUE        #>  4 Clinical 2014-10-22 141061          1 TRUE        #>  5 Clinical 2006-02-10 151041          1 TRUE        #>  6 ICU      2004-08-01 15D386          1 TRUE        #>  7 Clinical 2008-04-22 187841          1 TRUE        #>  8 Clinical 2004-06-22 189363          1 TRUE        #>  9 Clinical 2015-09-14 208305          1 TRUE        #> 10 Clinical 2011-05-22 257844          1 TRUE        #> # ℹ 90 more rows  if (require(\"dplyr\")) {   df %>%     group_by(ward) %>%     summarise(       n_patients = n_distinct(patient),       n_episodes_365 = sum(is_new_episode(date, episode_days = 365)),       n_episodes_60 = sum(is_new_episode(date, episode_days = 60)),       n_episodes_30 = sum(is_new_episode(date, episode_days = 30))     ) } #> # A tibble: 3 × 5 #>   ward       n_patients n_episodes_365 n_episodes_60 n_episodes_30 #>   <chr>           <int>          <int>         <int>         <int> #> 1 Clinical           55             12            34            39 #> 2 ICU                28             10            25            26 #> 3 Outpatient          6              5             6             6  # grouping on patients and microorganisms leads to the same # results as first_isolate() when using 'episode-based': if (require(\"dplyr\")) {   x <- df %>%     filter_first_isolate(       include_unknown = TRUE,       method = \"episode-based\"     )    y <- df %>%     group_by(patient, mo) %>%     filter(is_new_episode(date, 365)) %>%     ungroup()    identical(x, y) } #> [1] 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 [93] #>    patient mo            ward       flag_episode #>    <chr>   <mo>          <chr>      <lgl>        #>  1 0E2483  B_ESCHR_COLI  Clinical   TRUE         #>  2 F24801  B_STRPT_AGLC  ICU        TRUE         #>  3 A26548  B_STPHY_CONS  ICU        TRUE         #>  4 422833  B_ENTRC_FCLS  Clinical   TRUE         #>  5 AFD3B1    UNKNOWN     Clinical   TRUE         #>  6 F35553  B_ENTRBC_CLOC ICU        TRUE         #>  7 316893  B_STPHY_CONS  Clinical   TRUE         #>  8 B54813  B_ENTRC       ICU        TRUE         #>  9 E06844  B_STPHY_AURS  Outpatient TRUE         #> 10 B65162  B_STRPT_PNMN  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\" (whilst `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) #> 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/interpretive_rules.html","id":null,"dir":"Reference","previous_headings":"","what":"Apply Interpretive Rules — interpretive_rules","title":"Apply Interpretive Rules — interpretive_rules","text":"Apply rules clinical breakpoints notes expected resistant phenotypes defined e.g. 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 CLSI/EUCAST interpretive rules applied, AMR-specific rules can applied default, see Details.","code":""},{"path":"https://amr-for-r.org/reference/interpretive_rules.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Apply Interpretive Rules — interpretive_rules","text":"","code":"interpretive_rules(x, col_mo = NULL, info = interactive(),   rules = getOption(\"AMR_interpretive_rules\", default = c(\"breakpoints\",   \"expected_phenotypes\")), guideline = getOption(\"AMR_guideline\", \"EUCAST\"),   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_rules(x, col_mo = NULL, info = interactive(),   rules = getOption(\"AMR_interpretive_rules\", default = c(\"breakpoints\",   \"expected_phenotypes\")), ...)  clsi_rules(x, col_mo = NULL, info = interactive(),   rules = getOption(\"AMR_interpretive_rules\", default = c(\"breakpoints\",   \"expected_phenotypes\")), ...)  eucast_dosage(ab, administration = \"iv\", version_breakpoints = 15)"},{"path":"https://amr-for-r.org/reference/interpretive_rules.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Apply Interpretive Rules — interpretive_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/interpretive_rules.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Apply Interpretive Rules — interpretive_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_interpretive_rules: options(AMR_interpretive_rules = \"\"). using \"custom\", sure fill argument custom_rules . Custom rules can created custom_eucast_rules(). guideline guideline name, either \"EUCAST\" (default) \"CLSI\". can set package option AMR_guideline. 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\", NA.","code":""},{"path":"https://amr-for-r.org/reference/interpretive_rules.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Apply Interpretive Rules — interpretive_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/interpretive_rules.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Apply Interpretive Rules — interpretive_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/interpretive_rules.html","id":"custom-rules","dir":"Reference","previous_headings":"","what":"Custom Rules","title":"Apply Interpretive Rules — interpretive_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/interpretive_rules.html","id":"-other-rules","dir":"Reference","previous_headings":"","what":"'Other' Rules","title":"Apply Interpretive Rules — interpretive_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_interpretive_rules, .e. run options(AMR_interpretive_rules = \"\").","code":""},{"path":"https://amr-for-r.org/reference/interpretive_rules.html","id":"download-our-reference-data","dir":"Reference","previous_headings":"","what":"Download Our Reference Data","title":"Apply Interpretive Rules — interpretive_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/interpretive_rules.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Apply Interpretive Rules — interpretive_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, e.g.: - x %>% as.sir(CXM:AMX) - x %>% #> mutate_if(is_sir_eligible, as.sir) - x %>% #> 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, e.g.: - x %>% as.sir(CXM:AMX) - x %>% #> mutate_if(is_sir_eligible, as.sir) - x %>% #> 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/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] 2.985614 kurtosis(rnorm(10000), excess = TRUE) #> [1] 0.01547453"},{"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)),   infer_from_combinations = TRUE, ...)  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. infer_from_combinations logical indicate whether resistance missing base beta-lactam drug inferred available drug+inhibitor combination (e.g., piperacillin piperacillin/tazobactam). clinical basis resistance combination always implies resistance base drug, since enzyme inhibitor provides benefit organism truly resistant. resistance inferred; susceptibility combination imply susceptibility base drug (inhibitor may responsible). Defaults TRUE. ... 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/bacteria/clinical-breakpoints--interpretation/definition--s---r/). 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] S R S R I I R R R S mean_amr_distance(sir) #>  [1] -0.9486833  0.9486833 -0.9486833  0.9486833 -0.9486833 -0.9486833 #>  [7]  0.9486833  0.9486833  0.9486833 -0.9486833  mic <- random_mic(10) mic #> Class <mic> #>  [1] 0.5      <=0.0001 0.25     0.0005   0.001    0.0002   8        <=0.0001 #>  [9] <=0.0001 0.004    mean_amr_distance(mic) #>  [1]  1.18999891 -0.86809178  1.02250714 -0.47918793 -0.31169616 -0.70060001 #>  [7]  1.85996599 -0.86809178 -0.86809178  0.02328738 # equal to the Z-score of their log2: (log2(mic) - mean(log2(mic))) / sd(log2(mic)) #>  [1]  1.18999891 -0.86809178  1.02250714 -0.47918793 -0.31169616 -0.70060001 #>  [7]  1.85996599 -0.86809178 -0.86809178  0.02328738  disk <- random_disk(10) disk #> Class <disk> #>  [1] 20 45 31 26 23 38 44 41 20 49 mean_amr_distance(disk) #>  [1] -1.2414143  1.0239402 -0.2446583 -0.6977292 -0.9695717  0.3896410 #>  [7]  0.9333261  0.6614835 -1.2414143  1.3863970  y <- data.frame(   id = LETTERS[1:10],   amox = random_sir(10, ab = \"amox\", mo = \"Escherichia coli\"),   cipr = random_disk(10, ab = \"cipr\", mo = \"Escherichia coli\"),   gent = random_mic(10, ab = \"gent\", mo = \"Escherichia coli\"),   tobr = random_mic(10, ab = \"tobr\", mo = \"Escherichia coli\") ) y #>    id amox cipr gent tobr #> 1   A    R   33   16  <=1 #> 2   B    S   32  <=8   32 #> 3   C    S   27   16   32 #> 4   D    I   33  <=8    8 #> 5   E    I   22  <=8    2 #> 6   F    R   32  <=8    4 #> 7   G    S   31   16    8 #> 8   H    I   31  <=8  <=1 #> 9   I    R   28   16    2 #> 10  J    S   22   16    4 mean_amr_distance(y) #> ℹ Calculating mean AMR distance based on columns \"amox\", \"cipr\", \"gent\", and #>   \"tobr\" #>  [1]  0.52677313  0.16501937  0.34372779 -0.05155946 -0.97765805  0.26901032 #>  [7]  0.30452889 -0.58337098  0.36899264 -0.36546366 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 #> 8   H    I   31  <=8  <=1   -1.0808937 #> 5   E    I   22  <=8    2   -0.8051882 #> 6   F    R   32  <=8    4   -0.5294827 #> 4   D    I   33  <=8    8   -0.2537773 #> 1   A    R   33   16  <=1   -0.1322104 #> 9   I    R   28   16    2    0.1434951 #> 2   B    S   32  <=8   32    0.2976337 #> 10  J    S   22   16    4    0.4192006 #> 7   G    S   31   16    8    0.6949060 #> 3   C    S   27   16   32    1.2463170  if (require(\"dplyr\")) {   y %>%     mutate(       amr_distance = mean_amr_distance(y),       check_id_C = amr_distance_from_row(amr_distance, id == \"C\")     ) %>%     arrange(check_id_C) } #> ℹ Calculating mean AMR distance based on columns \"amox\", \"cipr\", \"gent\", and #>   \"tobr\" #>    id amox cipr gent tobr amr_distance check_id_C #> 1   C    S   27   16   32   0.34372779 0.00000000 #> 2   I    R   28   16    2   0.36899264 0.02526485 #> 3   G    S   31   16    8   0.30452889 0.03919890 #> 4   F    R   32  <=8    4   0.26901032 0.07471748 #> 5   B    S   32  <=8   32   0.16501937 0.17870842 #> 6   A    R   33   16  <=1   0.52677313 0.18304534 #> 7   D    I   33  <=8    8  -0.05155946 0.39528726 #> 8   J    S   22   16    4  -0.36546366 0.70919145 #> 9   H    I   31  <=8  <=1  -0.58337098 0.92709877 #> 10  E    I   22  <=8    2  -0.97765805 1.32138584 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 050 Common Microorganism Codes — microorganisms.codes","title":"Data Set with 6 050 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 050 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 050 Common Microorganism Codes — microorganisms.codes","text":"tibble 6 050 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 050 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 050 Common Microorganism Codes — microorganisms.codes","text":"","code":"microorganisms.codes #> # A tibble: 6,050 × 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,040 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\", NA. 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 outdated, previously valid taxonomic names must preserved corrected currently accepted names. note term \"synonym\" case jargon field microbial taxonomy - place denote e.g. \"Streptococcus Group \" synonym S. pyogenes. Though practically case, taxonomically \"Streptococcus Group \" even valid taxonomic name. default FALSE, return note outdated 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: `as.mo()` returned one outdated taxonomic name. Use `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\" (whilst `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 < WT < NWT < NS). 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 2026, 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, guideline = getOption(\"AMR_guideline\",   \"EUCAST\"))  susceptibility(..., minimum = 30, as_percent = FALSE,   only_all_tested = FALSE, guideline = getOption(\"AMR_guideline\",   \"EUCAST\"))  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 . guideline Either \"EUCAST\" (default) \"CLSI\". EUCAST, '' category considered susceptible (see EUCAST website), CLSI, considered resistant. Therefore: EUCAST: susceptibility() \\(= \\%S + \\%\\), resistance() \\(= \\%R\\) CLSI: susceptibility() \\(= \\%S + \\%SDD\\), resistance() \\(= \\%+ \\%R\\) can also use e.g. proportion_R() proportion_S() instead, explicit. 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/bacteria/clinical-breakpoints--interpretation/definition--s---r/). 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\" #> (whilst `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.008    0.125    4        32       1        0.004    0.008    0.0002   #>  [9] 0.125    2        0.008    0.008    0.016    0.125    0.064    <=0.0001 #> [17] 0.0005   0.0002   0.5      0.002    0.002    0.25     16       <=0.0001 #> [25] 0.002    random_disk(25) #> Class <disk> #>  [1] 25 47 24 47 38 28 36 33 31 50 41 29 40 31 44 45 37 40 44 49  9 48 20 37 47 random_sir(25) #> Class <sir> #>  [1] S S R R S S I S I S S I S R I I I I S I R I I I I  # 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] 2      0.001  4      0.008  0.0005 0.0005 0.0005 0.0002 0.0002 >=64   #> [11] 0.0002 1      0.5    0.002  0.5    0.002  0.001  0.032  0.008  0.004  #> [21] 0.032  0.0002 0.0005 0.002  0.001  random_mic(25, \"Klebsiella pneumoniae\", \"meropenem\") # range 0.0625-16 #> Class <mic> #>  [1] <=0.5 <=0.5 2     <=0.5 1     <=0.5 <=0.5 <=0.5 <=0.5 1     <=0.5 <=0.5 #> [13] <=0.5 1     <=0.5 1     <=0.5 <=0.5 <=0.5 <=0.5 <=0.5 <=0.5 2     1     #> [25] 2     random_mic(25, \"Streptococcus pneumoniae\", \"meropenem\") # range 0.0625-4 #> Class <mic> #>  [1] 0.125 0.125 1     0.25  0.5   0.125 0.125 0.125 0.125 0.125 0.125 0.125 #> [13] 1     0.125 0.5   1     0.125 0.25  0.5   0.25  0.5   0.5   0.5   0.125 #> [25] 0.25   random_disk(25, \"Klebsiella pneumoniae\") # range 8-50 #> Class <disk> #>  [1] 32 21 23 21 14 22 25 29 29 28 34 34 34 33 13 28 33 34 32 25 18 26 13 21 33 random_disk(25, \"Klebsiella pneumoniae\", \"ampicillin\") # range 11-17 #> Class <disk> #>  [1] 20 21 15 22 16 22 16 14 21 17 15 19 20 17 18 21 16 20 11 22 19 18 19 11 21 random_disk(25, \"Streptococcus pneumoniae\", \"ampicillin\") # range 12-27 #> Class <disk> #>  [1] 29 25 31 17 29 21 31 34 33 31 29 30 23 20 33 20 34 32 35 26 26 26 34 30 33 # }"},{"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/bacteria/clinical-breakpoints--interpretation/definition--s---r/). 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.08600633"},{"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-9041","dir":"Changelog","previous_headings":"","what":"New","title":"AMR 3.0.1.9041","text":"Support clinical breakpoints 2026 CLSI EUCAST, adding 5,700 new clinical breakpoints clinical_breakpoints data set usage .sir(). EUCAST 2026 now new default guideline MIC disk diffusion interpretations. 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 ionophores(), peptides(), phosphonics() spiropyrimidinetriones() .sir() gained argument as_wt_nwt, defaults TRUE breakpoint_type = \"ECOFF\" (#254) transforms output S/R WT/NWT Functions susceptibility() count WT S NWT R eucast_rules() become wrapper around function Function amr_course(), allows automated download unpacking GitHub repository e.g. webinar use","code":""},{"path":"https://amr-for-r.org/news/index.html","id":"fixes-3-0-1-9041","dir":"Changelog","previous_headings":"","what":"Fixes","title":"AMR 3.0.1.9041","text":"Fixed bug .sir() values purely numeric (e.g., \"1\") matched broad SIR-matching regex incorrectly stripped content Unicode letter filter Fixed bug .mic() MIC values scientific notation (e.g., \"1e-3\") incorrectly handled letter e removed along Unicode letters; scientific notation e now preserved Fixed bug .ab() certain AB codes containing “PH” “TH” (ETH, MTH, PHE, PHN, STH, THA, THI1) incorrectly return NA combined vector untranslatable value (#245) Fixed bug antibiogram() antimicrobials set Fixed bug .sir() numeric input arguments S, , R considered (#244) Fixed bug plotting MIC values keep_operators = \"\" Fixed foreign translations antimicrobial drugs Fixed bug printing column names console using mutate_at(vars(...), .mic) (#249) Fixed bug disregard NI susceptibility proportion functions Fixed Italian translation CoNS Stafilococco coagulasi-negativo CoPS Stafilococco coagulasi-positivo (#256) Fixed SIR MIC coercion combined values, e.g. .sir(\"<= 0.002; S\") .mic(\"S; 0.002\") (#252)","code":""},{"path":"https://amr-for-r.org/news/index.html","id":"updates-3-0-1-9041","dir":"Changelog","previous_headings":"","what":"Updates","title":"AMR 3.0.1.9041","text":"Extensive cli integration better message handling clickable links messages warnings (#191, #265) mdro() now infers resistance missing base drug column available corresponding drug+inhibitor combination showing resistance (e.g., piperacillin absent required, piperacillin/tazobactam available resistant). Can set new argument infer_from_combinations, defaults TRUE (#209). Note can yield higher MDRO detection (good thing become reliable). susceptibility() resistance() gained argument guideline, defaults EUCAST, interpreting ‘’ category correctly. Added antimicrobials data set: cefepime/taniborbactam (FTA), ceftibuten/avibactam (CTA), clorobiocin (CLB), kasugamycin (KAS), ostreogrycin (OST), taniborbactam (TAN), thiostrepton (THS), xeruborbactam (XER), zorbamycin (ZOR) .mic() rescale_mic() gained argument round_to_next_log2, can set TRUE round values nearest next log2 level (#255) antimicrobials$group now list instead character, contain group drug (#246) ab_group() gained argument all_groups return groups antimicrobial drug (#246) 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 ab_group() now returns values consist AMR selectors (#246) Added two new NA objects, NA_ab_ NA_mo_, analogous base R’s NA_character_ NA_integer_, use pipelines require typed missing values","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":""}]