From 09881c5781ce8bf907b92b370646c9a195a9c932 Mon Sep 17 00:00:00 2001
From: github-actions <41898282+github-actions[bot]@users.noreply.github.com>
Date: Sun, 3 Dec 2023 10:41:04 +0000
Subject: [PATCH] Built site for AMR: 2.1.1.9002@c746176

---
 404.html                                  |   2 +-
 LICENSE-text.html                         |   2 +-
 articles/AMR.html                         |   2 +-
 articles/EUCAST.html                      |   2 +-
 articles/MDR.html                         |  58 +++---
 articles/PCA.html                         |   2 +-
 articles/WHONET.html                      |   2 +-
 articles/datasets.html                    |   2 +-
 articles/index.html                       |   2 +-
 articles/other_pkg.html                   |   2 +-
 articles/resistance_predict.html          |   2 +-
 articles/welcome_to_AMR.html              |   2 +-
 authors.html                              |   2 +-
 index.html                                |   2 +-
 news/index.html                           |  14 +-
 pkgdown.yml                               |   2 +-
 reference/AMR-deprecated.html             | 223 ----------------------
 reference/AMR-options.html                |   2 +-
 reference/AMR.html                        |   2 +-
 reference/Rplot005.png                    | Bin 13647 -> 13425 bytes
 reference/Rplot006.png                    | Bin 13317 -> 13094 bytes
 reference/Rplot007.png                    | Bin 12961 -> 8840 bytes
 reference/Rplot008.png                    | Bin 21154 -> 8151 bytes
 reference/Rplot009.png                    | Bin 8453 -> 9553 bytes
 reference/Rplot010.png                    | Bin 8840 -> 8467 bytes
 reference/Rplot011.png                    | Bin 9362 -> 12989 bytes
 reference/Rplot012.png                    | Bin 10271 -> 20243 bytes
 reference/Rplot013.png                    | Bin 9577 -> 8534 bytes
 reference/WHOCC.html                      |   2 +-
 reference/WHONET.html                     |   2 +-
 reference/ab_from_text.html               |   2 +-
 reference/ab_property.html                |   2 +-
 reference/add_custom_antimicrobials.html  |   2 +-
 reference/add_custom_microorganisms.html  |   2 +-
 reference/age.html                        |  22 +--
 reference/age_groups.html                 |   2 +-
 reference/antibiogram.html                |   2 +-
 reference/antibiotic_class_selectors.html |  10 +-
 reference/antibiotics.html                |   2 +-
 reference/as.ab.html                      |   2 +-
 reference/as.av.html                      |   2 +-
 reference/as.disk.html                    |   2 +-
 reference/as.mic.html                     |  16 +-
 reference/as.mo.html                      |   2 +-
 reference/as.sir.html                     |  28 +--
 reference/atc_online.html                 |   2 +-
 reference/av_from_text.html               |   2 +-
 reference/av_property.html                |   2 +-
 reference/availability.html               |   2 +-
 reference/bug_drug_combinations.html      |   2 +-
 reference/clinical_breakpoints.html       |   2 +-
 reference/count.html                      |   2 +-
 reference/custom_eucast_rules.html        |   2 +-
 reference/dosage.html                     |   2 +-
 reference/eucast_rules.html               |   2 +-
 reference/example_isolates.html           |   2 +-
 reference/example_isolates_unclean.html   |   2 +-
 reference/first_isolate.html              |   2 +-
 reference/g.test.html                     |   2 +-
 reference/get_episode.html                | 120 ++++++------
 reference/ggplot_pca-1.png                | Bin 47751 -> 48123 bytes
 reference/ggplot_pca-2.png                | Bin 89714 -> 90569 bytes
 reference/ggplot_pca.html                 |  12 +-
 reference/ggplot_sir.html                 |   2 +-
 reference/guess_ab_col.html               |   2 +-
 reference/index.html                      |  65 +++----
 reference/intrinsic_resistant.html        |   2 +-
 reference/italicise_taxonomy.html         |   2 +-
 reference/join.html                       |   2 +-
 reference/key_antimicrobials.html         |   2 +-
 reference/kurtosis.html                   |   6 +-
 reference/like.html                       |   2 +-
 reference/mdro.html                       |   2 +-
 reference/mean_amr_distance.html          |  73 ++++---
 reference/microorganisms.codes.html       |   2 +-
 reference/microorganisms.groups.html      |   2 +-
 reference/microorganisms.html             |   2 +-
 reference/mo_matching_score.html          |   2 +-
 reference/mo_property.html                |   2 +-
 reference/mo_source.html                  |   2 +-
 reference/pca.html                        |   2 +-
 reference/plot-1.png                      | Bin 26277 -> 26875 bytes
 reference/plot-10.png                     | Bin 26057 -> 25381 bytes
 reference/plot-11.png                     | Bin 27081 -> 35507 bytes
 reference/plot-12.png                     | Bin 30546 -> 60264 bytes
 reference/plot-13.png                     | Bin 27660 -> 26123 bytes
 reference/plot-2.png                      | Bin 27072 -> 26396 bytes
 reference/plot-3.png                      | Bin 28311 -> 27742 bytes
 reference/plot-4.png                      | Bin 40292 -> 40843 bytes
 reference/plot-5.png                      | Bin 40830 -> 40160 bytes
 reference/plot-6.png                      | Bin 39181 -> 38474 bytes
 reference/plot-7.png                      | Bin 37596 -> 26057 bytes
 reference/plot-8.png                      | Bin 62144 -> 25035 bytes
 reference/plot-9.png                      | Bin 26091 -> 28236 bytes
 reference/plot.html                       |  91 ++++-----
 reference/proportion.html                 |   2 +-
 reference/random.html                     |  34 ++--
 reference/resistance_predict.html         |   2 +-
 reference/skewness.html                   |   4 +-
 reference/translate.html                  |   2 +-
 search.json                               |   2 +-
 sitemap.xml                               |   3 -
 102 files changed, 340 insertions(+), 563 deletions(-)
 delete mode 100644 reference/AMR-deprecated.html

diff --git a/404.html b/404.html
index ff67f8a7..1f2050ec 100644
--- a/404.html
+++ b/404.html
@@ -36,7 +36,7 @@
     
     <a class="navbar-brand me-2" href="https://msberends.github.io/AMR/index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/LICENSE-text.html b/LICENSE-text.html
index b4ffc178..ec68dae0 100644
--- a/LICENSE-text.html
+++ b/LICENSE-text.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <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 d65589de..16d7cb8d 100644
--- a/articles/AMR.html
+++ b/articles/AMR.html
@@ -38,7 +38,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <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 a382a7df..90f2c512 100644
--- a/articles/EUCAST.html
+++ b/articles/EUCAST.html
@@ -38,7 +38,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/articles/MDR.html b/articles/MDR.html
index f671b7ec..685067ac 100644
--- a/articles/MDR.html
+++ b/articles/MDR.html
@@ -38,7 +38,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -401,19 +401,19 @@ names or codes, this would have worked exactly the same way:</p>
 <div class="sourceCode" id="cb8"><pre class="downlit sourceCode r">
 <code class="sourceCode R"><span><span class="fu"><a href="https://rdrr.io/r/utils/head.html" class="external-link">head</a></span><span class="op">(</span><span class="va">my_TB_data</span><span class="op">)</span></span>
 <span><span class="co">#&gt;   rifampicin isoniazid gatifloxacin ethambutol pyrazinamide moxifloxacin</span></span>
-<span><span class="co">#&gt; 1          S         I            R          I            S            I</span></span>
-<span><span class="co">#&gt; 2          S         R            I          I            R            I</span></span>
-<span><span class="co">#&gt; 3          S         I            R          R            S            I</span></span>
-<span><span class="co">#&gt; 4          S         S            I          R            S            I</span></span>
-<span><span class="co">#&gt; 5          S         R            S          I            S            S</span></span>
-<span><span class="co">#&gt; 6          S         I            R          I            R            R</span></span>
+<span><span class="co">#&gt; 1          S         S            S          R            R            I</span></span>
+<span><span class="co">#&gt; 2          I         S            S          S            I            S</span></span>
+<span><span class="co">#&gt; 3          S         R            I          I            S            S</span></span>
+<span><span class="co">#&gt; 4          I         I            I          S            R            R</span></span>
+<span><span class="co">#&gt; 5          R         S            R          I            I            R</span></span>
+<span><span class="co">#&gt; 6          I         R            S          S            S            R</span></span>
 <span><span class="co">#&gt;   kanamycin</span></span>
 <span><span class="co">#&gt; 1         S</span></span>
-<span><span class="co">#&gt; 2         S</span></span>
-<span><span class="co">#&gt; 3         I</span></span>
-<span><span class="co">#&gt; 4         I</span></span>
+<span><span class="co">#&gt; 2         R</span></span>
+<span><span class="co">#&gt; 3         S</span></span>
+<span><span class="co">#&gt; 4         R</span></span>
 <span><span class="co">#&gt; 5         S</span></span>
-<span><span class="co">#&gt; 6         R</span></span></code></pre></div>
+<span><span class="co">#&gt; 6         I</span></span></code></pre></div>
 <p>We can now add the interpretation of MDR-TB to our data set. You can
 use:</p>
 <div class="sourceCode" id="cb9"><pre class="downlit sourceCode r">
@@ -454,40 +454,40 @@ Unique: 5</p>
 <tr class="odd">
 <td align="left">1</td>
 <td align="left">Mono-resistant</td>
-<td align="right">3233</td>
-<td align="right">64.66%</td>
-<td align="right">3233</td>
-<td align="right">64.66%</td>
+<td align="right">3206</td>
+<td align="right">64.12%</td>
+<td align="right">3206</td>
+<td align="right">64.12%</td>
 </tr>
 <tr class="even">
 <td align="left">2</td>
 <td align="left">Negative</td>
-<td align="right">945</td>
-<td align="right">18.90%</td>
-<td align="right">4178</td>
-<td align="right">83.56%</td>
+<td align="right">1005</td>
+<td align="right">20.10%</td>
+<td align="right">4211</td>
+<td align="right">84.22%</td>
 </tr>
 <tr class="odd">
 <td align="left">3</td>
 <td align="left">Multi-drug-resistant</td>
-<td align="right">446</td>
-<td align="right">8.92%</td>
-<td align="right">4624</td>
-<td align="right">92.48%</td>
+<td align="right">427</td>
+<td align="right">8.54%</td>
+<td align="right">4638</td>
+<td align="right">92.76%</td>
 </tr>
 <tr class="even">
 <td align="left">4</td>
 <td align="left">Poly-resistant</td>
-<td align="right">275</td>
-<td align="right">5.50%</td>
-<td align="right">4899</td>
-<td align="right">97.98%</td>
+<td align="right">260</td>
+<td align="right">5.20%</td>
+<td align="right">4898</td>
+<td align="right">97.96%</td>
 </tr>
 <tr class="odd">
 <td align="left">5</td>
 <td align="left">Extensively drug-resistant</td>
-<td align="right">101</td>
-<td align="right">2.02%</td>
+<td align="right">102</td>
+<td align="right">2.04%</td>
 <td align="right">5000</td>
 <td align="right">100.00%</td>
 </tr>
diff --git a/articles/PCA.html b/articles/PCA.html
index b94fd2b6..73bf7b75 100644
--- a/articles/PCA.html
+++ b/articles/PCA.html
@@ -38,7 +38,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <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 ef94a4dd..9115bc60 100644
--- a/articles/WHONET.html
+++ b/articles/WHONET.html
@@ -38,7 +38,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <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 6d615cdd..c474d318 100644
--- a/articles/datasets.html
+++ b/articles/datasets.html
@@ -38,7 +38,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/articles/index.html b/articles/index.html
index c1940d65..de46b1c3 100644
--- a/articles/index.html
+++ b/articles/index.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <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/other_pkg.html b/articles/other_pkg.html
index c3b97ee3..2d8b842e 100644
--- a/articles/other_pkg.html
+++ b/articles/other_pkg.html
@@ -38,7 +38,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/articles/resistance_predict.html b/articles/resistance_predict.html
index 4d882a63..e162f8d1 100644
--- a/articles/resistance_predict.html
+++ b/articles/resistance_predict.html
@@ -38,7 +38,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/articles/welcome_to_AMR.html b/articles/welcome_to_AMR.html
index bddacf93..5c536d0a 100644
--- a/articles/welcome_to_AMR.html
+++ b/articles/welcome_to_AMR.html
@@ -38,7 +38,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <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 9021c853..613daca5 100644
--- a/authors.html
+++ b/authors.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <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 72e10b3f..ea336816 100644
--- a/index.html
+++ b/index.html
@@ -42,7 +42,7 @@
     
     <a class="navbar-brand me-2" href="index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/news/index.html b/news/index.html
index f9214a5b..2334442d 100644
--- a/news/index.html
+++ b/news/index.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -159,12 +159,12 @@
     </div>
 
     <div class="section level2">
-<h2 class="pkg-version" data-toc-text="2.1.1.9001" id="amr-2119001">AMR 2.1.1.9001<a class="anchor" aria-label="anchor" href="#amr-2119001"></a></h2>
+<h2 class="pkg-version" data-toc-text="2.1.1.9002" id="amr-2119002">AMR 2.1.1.9002<a class="anchor" aria-label="anchor" href="#amr-2119002"></a></h2>
 <div class="section level3">
-<h3 id="new-2-1-1-9001">New<a class="anchor" aria-label="anchor" href="#new-2-1-1-9001"></a></h3>
+<h3 id="new-2-1-1-9002">New<a class="anchor" aria-label="anchor" href="#new-2-1-1-9002"></a></h3>
 <ul><li>Function <code><a href="../reference/plot.html">scale_x_mic()</a></code>, an advanced function to use in ggplot, to allow plotting of MIC values on the x axis. It allow for manual range definition and plotting missing intermediate log2 levels.</li>
 </ul><div class="section level4">
-<h4 id="changed-2-1-1-9001">Changed<a class="anchor" aria-label="anchor" href="#changed-2-1-1-9001"></a></h4>
+<h4 id="changed-2-1-1-9002">Changed<a class="anchor" aria-label="anchor" href="#changed-2-1-1-9002"></a></h4>
 <ul><li>For MICs:
 <ul><li>Added 4096 and 5 powers of 192 as valid levels (192, 384, 576, 768, 960)</li>
 <li>Added new argument <code>keep_operators</code> to <code><a href="../reference/as.mic.html">as.mic()</a></code>. This can be <code>"all"</code> (default), <code>"none"</code>, or <code>"edges"</code>.</li>
@@ -242,7 +242,7 @@
 <h2 class="pkg-version" data-toc-text="2.0.0" id="amr-200">AMR 2.0.0<a class="anchor" aria-label="anchor" href="#amr-200"></a></h2><p class="text-muted">CRAN release: 2023-03-12</p>
 <p>This is a new major release of the AMR package, with great new additions but also some breaking changes for current users. These are all listed below.</p>
 <p><strong><a href="https://en.wikipedia.org/wiki/TL;DR" class="external-link">TL;DR</a></strong></p>
-<ul><li>All functions and arguments with ‘rsi’ were replaced with ‘sir’, such as the interpretation of MIC values (now <code><a href="../reference/as.sir.html">as.sir()</a></code> instead of <code><a href="../reference/AMR-deprecated.html">as.rsi()</a></code>) - all old functions still work for now</li>
+<ul><li>All functions and arguments with ‘rsi’ were replaced with ‘sir’, such as the interpretation of MIC values (now <code><a href="../reference/as.sir.html">as.sir()</a></code> instead of <code>as.rsi()</code>) - all old functions still work for now</li>
 <li>Many new interesting functions, such as <code><a href="../reference/antibiogram.html">antibiogram()</a></code> (for generating traditional/combined/syndromic/WISCA antibiograms), <code><a href="../reference/proportion.html">sir_confidence_interval()</a></code> and <code><a href="../reference/mean_amr_distance.html">mean_amr_distance()</a></code>, and <code><a href="../reference/add_custom_microorganisms.html">add_custom_microorganisms()</a></code> to add custom microorganisms to this package</li>
 <li>Clinical breakpoints added for EUCAST 2022 and CLSI 2022</li>
 <li>Microbiological taxonomy (<code>microorganisms</code> data set) updated to 2022 and now based on LPSN and GBIF</li>
@@ -256,7 +256,7 @@
 <div class="section level4">
 <h4 id="sir-vs-rsi-2-0-0">SIR vs. RSI<a class="anchor" aria-label="anchor" href="#sir-vs-rsi-2-0-0"></a></h4>
 <p>For this milestone version, we replaced all mentions of RSI with SIR, to comply with what is actually being commonly used in the field of clinical microbiology when it comes to this tri-form regarding AMR.</p>
-<p>While existing functions such as <code><a href="../reference/AMR-deprecated.html">as.rsi()</a></code>, <code><a href="../reference/AMR-deprecated.html">rsi_df()</a></code> and <code><a href="../reference/AMR-deprecated.html">ggplot_rsi()</a></code> still work, their replacements <code><a href="../reference/as.sir.html">as.sir()</a></code>, <code><a href="../reference/proportion.html">sir_df()</a></code>, <code><a href="../reference/ggplot_sir.html">ggplot_sir()</a></code> are now the current functions for AMR data analysis. A warning will be thrown once a session to remind users about this. The data set <code>rsi_translation</code> is now called <code>clinical_breakpoints</code> to better reflect its content.</p>
+<p>While existing functions such as <code>as.rsi()</code>, <code>rsi_df()</code> and <code>ggplot_rsi()</code> still work, their replacements <code><a href="../reference/as.sir.html">as.sir()</a></code>, <code><a href="../reference/proportion.html">sir_df()</a></code>, <code><a href="../reference/ggplot_sir.html">ggplot_sir()</a></code> are now the current functions for AMR data analysis. A warning will be thrown once a session to remind users about this. The data set <code>rsi_translation</code> is now called <code>clinical_breakpoints</code> to better reflect its content.</p>
 <p>The ‘RSI functions’ will be removed in a future version, but not before late 2023 / early 2024.</p>
 </div>
 <div class="section level4">
@@ -329,7 +329,7 @@
 <h4 id="other-new-functions-2-0-0">Other new functions<a class="anchor" aria-label="anchor" href="#other-new-functions-2-0-0"></a></h4>
 <ul><li>Function <code><a href="../reference/proportion.html">sir_confidence_interval()</a></code> to add confidence intervals in AMR calculation. This is now also included in <code><a href="../reference/proportion.html">sir_df()</a></code> and <code><a href="../reference/proportion.html">proportion_df()</a></code>.</li>
 <li>Function <code><a href="../reference/mean_amr_distance.html">mean_amr_distance()</a></code> to calculate the mean AMR distance. The mean AMR distance is a normalised numeric value to compare AMR test results and can help to identify similar isolates, without comparing antibiograms by hand.</li>
-<li>Function <code><a href="../reference/as.sir.html">sir_interpretation_history()</a></code> to view the history of previous runs of <code><a href="../reference/as.sir.html">as.sir()</a></code> (previously <code><a href="../reference/AMR-deprecated.html">as.rsi()</a></code>). This returns a ‘logbook’ with the selected guideline, reference table and specific interpretation of each row in a data set on which <code><a href="../reference/as.sir.html">as.sir()</a></code> was run.</li>
+<li>Function <code><a href="../reference/as.sir.html">sir_interpretation_history()</a></code> to view the history of previous runs of <code><a href="../reference/as.sir.html">as.sir()</a></code> (previously <code>as.rsi()</code>). This returns a ‘logbook’ with the selected guideline, reference table and specific interpretation of each row in a data set on which <code><a href="../reference/as.sir.html">as.sir()</a></code> was run.</li>
 </ul></div>
 </div>
 <div class="section level3">
diff --git a/pkgdown.yml b/pkgdown.yml
index 2cb81160..da263654 100644
--- a/pkgdown.yml
+++ b/pkgdown.yml
@@ -11,7 +11,7 @@ articles:
   other_pkg: other_pkg.html
   resistance_predict: resistance_predict.html
   welcome_to_AMR: welcome_to_AMR.html
-last_built: 2023-12-03T00:11Z
+last_built: 2023-12-03T10:38Z
 urls:
   reference: https://msberends.github.io/AMR/reference
   article: https://msberends.github.io/AMR/articles
diff --git a/reference/AMR-deprecated.html b/reference/AMR-deprecated.html
deleted file mode 100644
index fdb18a9b..00000000
--- a/reference/AMR-deprecated.html
+++ /dev/null
@@ -1,223 +0,0 @@
-<!DOCTYPE html>
-<!-- Generated by pkgdown: do not edit by hand --><html lang="en"><head><meta http-equiv="Content-Type" content="text/html; charset=UTF-8"><meta charset="utf-8"><meta http-equiv="X-UA-Compatible" content="IE=edge"><meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no"><meta name="description" content="These functions are so-called 'Deprecated'. They will be removed in a future release. Using the functions will give a warning with the name of the function it has been replaced by (if there is one)."><title>Deprecated Functions — AMR-deprecated • AMR (for R)</title><!-- favicons --><link rel="icon" type="image/png" sizes="16x16" href="../favicon-16x16.png"><link rel="icon" type="image/png" sizes="32x32" href="../favicon-32x32.png"><link rel="apple-touch-icon" type="image/png" sizes="180x180" href="../apple-touch-icon.png"><link rel="apple-touch-icon" type="image/png" sizes="120x120" href="../apple-touch-icon-120x120.png"><link rel="apple-touch-icon" type="image/png" sizes="76x76" href="../apple-touch-icon-76x76.png"><link rel="apple-touch-icon" type="image/png" sizes="60x60" href="../apple-touch-icon-60x60.png"><script src="../deps/jquery-3.6.0/jquery-3.6.0.min.js"></script><meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no"><link href="../deps/bootstrap-5.3.1/bootstrap.min.css" rel="stylesheet"><script src="../deps/bootstrap-5.3.1/bootstrap.bundle.min.js"></script><link href="../deps/Fira_Code-0.4.7/font.css" rel="stylesheet"><!-- Font Awesome icons --><link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/5.12.1/css/all.min.css" integrity="sha256-mmgLkCYLUQbXn0B1SRqzHar6dCnv9oZFPEC1g1cwlkk=" crossorigin="anonymous"><link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/5.12.1/css/v4-shims.min.css" integrity="sha256-wZjR52fzng1pJHwx4aV2AO3yyTOXrcDW7jBpJtTwVxw=" crossorigin="anonymous"><!-- bootstrap-toc --><script src="https://cdn.jsdelivr.net/gh/afeld/bootstrap-toc@v1.0.1/dist/bootstrap-toc.min.js" integrity="sha256-4veVQbu7//Lk5TSmc7YV48MxtMy98e26cf5MrgZYnwo=" crossorigin="anonymous"></script><!-- headroom.js --><script src="https://cdnjs.cloudflare.com/ajax/libs/headroom/0.11.0/headroom.min.js" integrity="sha256-AsUX4SJE1+yuDu5+mAVzJbuYNPHj/WroHuZ8Ir/CkE0=" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/headroom/0.11.0/jQuery.headroom.min.js" integrity="sha256-ZX/yNShbjqsohH1k95liqY9Gd8uOiE1S4vZc+9KQ1K4=" crossorigin="anonymous"></script><!-- clipboard.js --><script src="https://cdnjs.cloudflare.com/ajax/libs/clipboard.js/2.0.6/clipboard.min.js" integrity="sha256-inc5kl9MA1hkeYUt+EC3BhlIgyp/2jDIyBLS6k3UxPI=" crossorigin="anonymous"></script><!-- search --><script src="https://cdnjs.cloudflare.com/ajax/libs/fuse.js/6.4.6/fuse.js" integrity="sha512-zv6Ywkjyktsohkbp9bb45V6tEMoWhzFzXis+LrMehmJZZSys19Yxf1dopHx7WzIKxr5tK2dVcYmaCk2uqdjF4A==" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/autocomplete.js/0.38.0/autocomplete.jquery.min.js" integrity="sha512-GU9ayf+66Xx2TmpxqJpliWbT5PiGYxpaG8rfnBEk1LL8l1KGkRShhngwdXK1UgqhAzWpZHSiYPc09/NwDQIGyg==" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/mark.js/8.11.1/mark.min.js" integrity="sha512-5CYOlHXGh6QpOFA/TeTylKLWfB3ftPsde7AnmhuitiTX4K5SqCLBeKro6sPS8ilsz1Q4NRx3v8Ko2IBiszzdww==" crossorigin="anonymous"></script><!-- pkgdown --><script src="../pkgdown.js"></script><link href="../extra.css" rel="stylesheet"><script src="../extra.js"></script><meta property="og:title" content="Deprecated Functions — AMR-deprecated"><meta property="og:description" content="These functions are so-called 'Deprecated'. They will be removed in a future release. Using the functions will give a warning with the name of the function it has been replaced by (if there is one)."><meta property="og:image" content="https://msberends.github.io/AMR/logo.svg"><meta name="twitter:card" content="summary_large_image"><meta name="twitter:creator" content="@msberends"><meta name="twitter:site" content="@msberends"><!-- mathjax --><script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.5/MathJax.js" integrity="sha256-nvJJv9wWKEm88qvoQl9ekL2J+k/RWIsaSScxxlsrv8k=" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.5/config/TeX-AMS-MML_HTMLorMML.js" integrity="sha256-84DKXVJXs0/F8OTMzX4UR909+jtl4G7SPypPavF+GfA=" crossorigin="anonymous"></script><!--[if lt IE 9]>
-<script src="https://oss.maxcdn.com/html5shiv/3.7.3/html5shiv.min.js"></script>
-<script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script>
-<![endif]--></head><body>
-    <a href="#main" class="visually-hidden-focusable">Skip to contents</a>
-    
-
-    <nav class="navbar fixed-top navbar-dark navbar-expand-lg bg-primary"><div class="container">
-    
-    <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
-
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
-
-    
-    <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
-      <span class="navbar-toggler-icon"></span>
-    </button>
-
-    <div id="navbar" class="collapse navbar-collapse ms-3">
-      <ul class="navbar-nav me-auto"><li class="nav-item dropdown">
-  <a href="#" class="nav-link dropdown-toggle" data-bs-toggle="dropdown" role="button" aria-expanded="false" aria-haspopup="true" id="dropdown--how-to">
-    <span class="fa fa-question-circle"></span>
-     
-    How to
-  </a>
-  <div class="dropdown-menu" aria-labelledby="dropdown--how-to">
-    <a class="dropdown-item" href="../articles/AMR.html">
-      <span class="fa fa-directions"></span>
-       
-      Conduct AMR Analysis
-    </a>
-    <a class="dropdown-item" href="../reference/antibiogram.html">
-      <span class="fa fa-file-prescription"></span>
-       
-      Generate Antibiogram (Trad./Syndromic/WISCA)
-    </a>
-    <a class="dropdown-item" href="../articles/resistance_predict.html">
-      <span class="fa fa-dice"></span>
-       
-      Predict Antimicrobial Resistance
-    </a>
-    <a class="dropdown-item" href="../articles/datasets.html">
-      <span class="fa fa-database"></span>
-       
-      Download Data Sets for Own Use
-    </a>
-    <a class="dropdown-item" href="../reference/AMR-options.html">
-      <span class="fa fa-gear"></span>
-       
-      Set User- Or Team-specific Package Settings
-    </a>
-    <a class="dropdown-item" href="../articles/PCA.html">
-      <span class="fa fa-compress"></span>
-       
-      Conduct Principal Component Analysis for AMR
-    </a>
-    <a class="dropdown-item" href="../articles/MDR.html">
-      <span class="fa fa-skull-crossbones"></span>
-       
-      Determine Multi-Drug Resistance (MDR)
-    </a>
-    <a class="dropdown-item" href="../articles/WHONET.html">
-      <span class="fa fa-globe-americas"></span>
-       
-      Work with WHONET Data
-    </a>
-    <a class="dropdown-item" href="../articles/EUCAST.html">
-      <span class="fa fa-exchange-alt"></span>
-       
-      Apply Eucast Rules
-    </a>
-    <a class="dropdown-item" href="../reference/mo_property.html">
-      <span class="fa fa-bug"></span>
-       
-      Get Taxonomy of a Microorganism
-    </a>
-    <a class="dropdown-item" href="../reference/ab_property.html">
-      <span class="fa fa-capsules"></span>
-       
-      Get Properties of an Antibiotic Drug
-    </a>
-    <a class="dropdown-item" href="../reference/av_property.html">
-      <span class="fa fa-capsules"></span>
-       
-      Get Properties of an Antiviral Drug
-    </a>
-  </div>
-</li>
-<li class="nav-item dropdown">
-  <a href="#" class="nav-link dropdown-toggle" data-bs-toggle="dropdown" role="button" aria-expanded="false" aria-haspopup="true" id="dropdown--with-other-pkgs">
-    <span class="fa fa-layer-group"></span>
-     
-    With other pkgs
-  </a>
-  <div class="dropdown-menu" aria-labelledby="dropdown--with-other-pkgs">
-    <a class="dropdown-item" href="../articles/other_pkg.html">
-      <span class="fa fa-layer-group"></span>
-       
-      AMR &amp; dplyr/tidyverse
-    </a>
-    <a class="dropdown-item" href="../articles/other_pkg.html">
-      <span class="fa fa-layer-group"></span>
-       
-      AMR &amp; data.table
-    </a>
-    <a class="dropdown-item" href="../articles/other_pkg.html">
-      <span class="fa fa-layer-group"></span>
-       
-      AMR &amp; tidymodels
-    </a>
-    <a class="dropdown-item" href="../articles/other_pkg.html">
-      <span class="fa fa-layer-group"></span>
-       
-      AMR &amp; base R
-    </a>
-  </div>
-</li>
-<li class="active nav-item">
-  <a class="nav-link" href="../reference/index.html">
-    <span class="fa fa-book-open"></span>
-     
-    Manual
-  </a>
-</li>
-<li class="nav-item">
-  <a class="nav-link" href="../authors.html">
-    <span class="fa fa-users"></span>
-     
-    Authors
-  </a>
-</li>
-      </ul><form class="form-inline my-2 my-lg-0" role="search">
-        <input type="search" class="form-control me-sm-2" aria-label="Toggle navigation" name="search-input" data-search-index="../search.json" id="search-input" placeholder="Search for" autocomplete="off"></form>
-
-      <ul class="navbar-nav"><li class="nav-item">
-  <a class="nav-link" href="../news/index.html">
-    <span class="far fa far fa-newspaper"></span>
-     
-    Changelog
-  </a>
-</li>
-<li class="nav-item">
-  <a class="external-link nav-link" href="https://github.com/msberends/AMR">
-    <span class="fab fa fab fa-github"></span>
-     
-    Source Code
-  </a>
-</li>
-      </ul></div>
-
-    
-  </div>
-</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>Deprecated Functions</h1>
-      <small class="dont-index">Source: <a href="https://github.com/msberends/AMR/blob/HEAD/R/zz_deprecated.R" class="external-link"><code>R/zz_deprecated.R</code></a></small>
-      <div class="d-none name"><code>AMR-deprecated.Rd</code></div>
-    </div>
-
-    <div class="ref-description section level2">
-    <p>These functions are so-called '<a href="https://rdrr.io/r/base/Deprecated.html" class="external-link">Deprecated</a>'. <strong>They will be removed in a future release.</strong> Using the functions will give a warning with the name of the function it has been replaced by (if there is one).</p>
-    </div>
-
-    <div class="section level2">
-    <h2 id="ref-usage">Usage<a class="anchor" aria-label="anchor" href="#ref-usage"></a></h2>
-    <div class="sourceCode"><pre class="sourceCode r"><code><span><span class="va">NA_rsi_</span></span>
-<span></span>
-<span><span class="fu">as.rsi</span><span class="op">(</span><span class="va">x</span>, <span class="va">...</span><span class="op">)</span></span>
-<span></span>
-<span><span class="fu">facet_rsi</span><span class="op">(</span><span class="va">...</span><span class="op">)</span></span>
-<span></span>
-<span><span class="fu">geom_rsi</span><span class="op">(</span><span class="va">...</span><span class="op">)</span></span>
-<span></span>
-<span><span class="fu">ggplot_rsi</span><span class="op">(</span><span class="va">...</span><span class="op">)</span></span>
-<span></span>
-<span><span class="fu">ggplot_rsi_predict</span><span class="op">(</span><span class="va">...</span><span class="op">)</span></span>
-<span></span>
-<span><span class="fu">is.rsi</span><span class="op">(</span><span class="va">...</span><span class="op">)</span></span>
-<span></span>
-<span><span class="fu">is.rsi.eligible</span><span class="op">(</span><span class="va">...</span><span class="op">)</span></span>
-<span></span>
-<span><span class="fu">labels_rsi_count</span><span class="op">(</span><span class="va">...</span><span class="op">)</span></span>
-<span></span>
-<span><span class="fu">n_rsi</span><span class="op">(</span><span class="va">...</span><span class="op">)</span></span>
-<span></span>
-<span><span class="fu">random_rsi</span><span class="op">(</span><span class="va">...</span><span class="op">)</span></span>
-<span></span>
-<span><span class="fu">rsi_df</span><span class="op">(</span><span class="va">...</span><span class="op">)</span></span>
-<span></span>
-<span><span class="fu">rsi_predict</span><span class="op">(</span><span class="va">...</span><span class="op">)</span></span>
-<span></span>
-<span><span class="fu">scale_rsi_colours</span><span class="op">(</span><span class="va">...</span><span class="op">)</span></span>
-<span></span>
-<span><span class="fu">theme_rsi</span><span class="op">(</span><span class="va">...</span><span class="op">)</span></span></code></pre></div>
-    </div>
-
-    <div class="section level2">
-    <h2 id="format">Format<a class="anchor" aria-label="anchor" href="#format"></a></h2>
-    <p>An object of class <code>rsi</code> (inherits from <code>ordered</code>, <code>factor</code>) of length 1.</p>
-    </div>
-
-  </main><aside class="col-md-3"><nav id="toc"><h2>On this page</h2>
-    </nav></aside></div>
-
-
-    <footer><div class="pkgdown-footer-left">
-  <p></p><p><code>AMR</code> (for R). Free and open-source, licenced under the <a target="_blank" href="https://github.com/msberends/AMR/blob/main/LICENSE" class="external-link">GNU General Public License version 2.0 (GPL-2)</a>.<br>Developed at the <a target="_blank" href="https://www.rug.nl" class="external-link">University of Groningen</a> and <a target="_blank" href="https://www.umcg.nl" class="external-link">University Medical Center Groningen</a> in The Netherlands.</p>
-</div>
-
-<div class="pkgdown-footer-right">
-  <p></p><p><a target="_blank" href="https://www.rug.nl" class="external-link"><img src="https://github.com/msberends/AMR/raw/main/pkgdown/logos/logo_rug.svg" style="max-width: 150px;"></a><a target="_blank" href="https://www.umcg.nl" class="external-link"><img src="https://github.com/msberends/AMR/raw/main/pkgdown/logos/logo_umcg.svg" style="max-width: 150px;"></a></p>
-</div>
-
-    </footer></div>
-
-  
-
-  
-
-  </body></html>
-
diff --git a/reference/AMR-options.html b/reference/AMR-options.html
index 8d3f3a07..422ef1ea 100644
--- a/reference/AMR-options.html
+++ b/reference/AMR-options.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/AMR.html b/reference/AMR.html
index b68ccf39..279f1556 100644
--- a/reference/AMR.html
+++ b/reference/AMR.html
@@ -24,7 +24,7 @@ The AMR package is available in English, Chinese, Czech, Danish, Dutch, Finnish,
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/Rplot005.png b/reference/Rplot005.png
index 62fdfee5462210292d2af20ababee7099b75af7a..cf84930f4f7a82277428b652d0ff85e3102d66fb 100644
GIT binary patch
literal 13425
zcmc(`cUTi|*e03+gouEEfYOoPdy}T1VCd3&73oDOp#_3~h%`l-R1xW2kzOJSC{+Xk
z(h@{^3%$b*zu&dH-=06twY%qB-^WFg$;>eGl>51#`+esnMo&kb{0hSr5C}w$cyLc2
z1OnqPU!)|!9@I!%3h+T<uc>|y_ym5ARGY(q54iUOGanF$jQa8g{xuzX3Ief#5clpH
z24t;I2Zk{DogHqCak~uH@+msI@aYK)sOK>i^f=1h(;-e~lp`9dy7HZzPVdfN*vn^h
zS4aaukSj0VvqiIwSG_~)^*%hL>m@Hhx)@9pBK8luol>>xnlrVVe*fmITAZs%oX(z;
z*nFG)_8>$_LLQpLiTMBgn=<(J4hJEieDdqV`kmXR#!lU<{3&#ahEI(UFt(E6Qnb>L
z0LM;i{-po^I3jg<<ioz!Z4jb!Ye`>mnkRfR{Ag&E+twW`dICy>kYn8OYPN=0(L|bz
zdtpSD*T@fqy(y|$yafpCge%^r39|c~l4Zi+8CW6ctGp=dC<YlGh_S%@4(u8n^|j~|
z|1J#*;NxHAW*Z$K;1Zsrc*{<V9v(2}Z_23Q7{gOAWf(_{`Fb*?-EV0KPiK=AlV7up
z+qiuy(kV5TvxF1{mp>x0y*7*Xx$ey;D$1}Re}|!gvY1#prppDQ*4=ZgE;*%P3$<Ne
z3T809H{R$)y-LS=5LY}I|4@sOCaLRVahCn5AphJ9?|_iQ@UgmkL;L+{Za>?bj}pfy
z)9Fwm+((eOxK0V)6=SGiVv|R%Lly%*viL&4Z1_hGC3@_=r%kM1v*gNtk!d|(R88;w
zq!D;NT>j5Irm%eGkAbe+uW@edSy%Dorv0=y{IJfn{^((S?zbi>wduBNDAsG4T|qUo
z8!wws?JtgAq}5oJpPbd^q9-j#e$QD^D$t%-YHjxih%;<{UpmnlItV20i5avweOI6d
zId?6$@P`Qd2hulNeh{A1D9Uk{u70MMe<Jcz>jAYoHFZb&c=hHtr3?8WWl{CFRb5J9
z>G>A7gQ^l{=7s}eu?u5b5_^aHkDt9_d)j%VMKxDffAu3O;+5<LBqSDl#MebTbh12j
zf~eVe`&0>0Y}Br5O2PWe)%*1@-*tnU-sb$?`}}e=)j=PPB7K5ns0N53Ygeb>YwDBC
z9=8V<-G$_oWV)LiH(Ta#W89Lc{rILLH1vv=K$`trpR?D^M;1)2n^5<mFXJrif^T%8
zxuAr^CLBvE<t<66+<Ol;K3~uEo%_=(d7|>mJ`Jg!7HjyF+jh^l3Tnf%b_xR<<ZsAR
zWk^a$zd#L0?#$RcTfUIl5A4-R-3nUUIj$L$_q9C@>1CTt438z1I&=yrm%p~CfnQkK
zIeU0h7tDHZS_!eLw8-88{`Q?BIaluIGV7|euv>b9;AVm#eaT-f%*u}yxCxY!V<c4R
z)<_7Oq>M0^<$W@5_SvwaRVv}Du6dF&;ie2J<f3n}3^-f7vr0voB6(y61Li2w9LMv0
z`d&^&tK+MRC~xaMHI?@#l%nrnEI+cOZ}p;UwV_&-k=PHk=m@dIhJR#@nW4P3)?7!l
zKgduxK0iG)e=8*mZmMVoovq?k1}{)oKC8I3_Cg{o?MR9Jb$s0OT#8e=@fUScgHlg!
z=9&435m;th7S|&mZTY@-3=!aW!WGBOk%n!#=!*5SSuh-O6P#53WT<UvcZ&QppYte`
za#2a&R3t^5Av&Ur+l4<`lE&;A+tPO&O`nm{zjPFM9Eg0}_~0L|Df!wmWnFqTs?xbK
za=rG~+#7&{J|rALW|d#ZN0J!^y>CS`%gb#j)wa?YiOth76n)x%zbEqG_k0z3NaMF*
zgXOCQ;w&|?udrbtUt{vl=^xsG0kpmc;#uCo-?%V1_{ET5=kw$z45E?VbI&S27H)+`
zV4E4GsO>jic)*c&SK^}KCPc^&Qz~=5*t*Cvv`<PHx3}(YV`^P*>1*%L$kQril*>uj
zqUEY-mkXxK9%m3~aesiray09vbZ|y|d8pp2TM8IEb^=?)f%8lRfe=~ba&}_SW(THV
z7d$AbZQXlR2aa^~0nN_*Y)sW|%=jhX*lsa>&gSt*<STav?SiT%lS$P>K7nTwCaU8<
z&R!AHUWtHcTuyATQlFn;Gnsw=(nT`Y6mIEouBA&LWsl8Z-4~M8w&aC28&7@SzH&0>
z>*yCY?rJ&<$2yLt5t<)w2DsU8HezeEes_abuX*A~XLZbSIXT-}T~OEUADhciv3UPX
z!#3MF#&I*rUgbEYUHawRP)2(3MCmz}hj*TVPK8>V%2Q`s3ZKE$%USsnD{p^y!|}}^
zTZch)QmQZ0?_L7f_(G&^WKN4sp^?X;MNKZ5(EdG|G_fc1#%d_DokQbGy*F=li)SCP
zG$TdqU?Zd>L&rAX*X+g${M2Q_^*Excp}h+B8wa&B6-%<_n?ITz5(28&6=If9D%5U+
zeG1d<EGa{zYb<_~k%SvxQZOR#JvX5+8dvQ%`JNV#i<b)$=e%D|NagpVhEAuo$G5Iq
z2-iFjj<?U$eqh}AmmkSQP!NsA!W6z;6lL(Ss;qWW+Ml_?>y6_W?@neq?8c|0c`-xB
znGRV9_szW)8~8j}Q(t+AcaA1Jr()S@;PQ4YKWR5@O?q`xdXfY)m_PXGW%}bvN9fVm
zk4cwlC242^m%GETbL;X0vB}?h9pU%)rOns&-!Q}E?0+P1nEZyiD8Bk(q^3w1bIx*<
zOEu^+$BYsmYbthpiOdvz6zlas6;4TV<IXs`kj7PB6@GwczBB&XTD5rH{lRME%yo~<
zTde$|Yk85(^PAsMn{(^%m{pp{d-@h^Gs_Pxq42@KLLZbX<a5<JD4;48c)AJf8ur%O
zp*ZsPt(Oir?O+Dl<6p{|`_)k+>y^%-29b})E1VVowAVxDvERC4%HofmdW|;pI>cEY
zjK?Tx%F6aIfgID6lk4P1%_oGbmapqzj<90ypVV=49<_HiZK^c*%^#5VCq3!p#Ph3Y
z2kIGO^J+qo!{(C%EYc3Vd3?U`S$wrAfbGH-%hkWv%qf{<*qN3_u3<A__5j~!&rhmJ
zOiYIUdGa@wi$&eCW$n;Ey(|tz3bR<3>ZSa!4lcTl;a=L9L#c>64_ZY&`guq8B`dXG
zyTnSH+^naHb|lAY-%+ik2dm_raJ!2;<F+FCpMO`1c*F8yj^6TOE6|M2lbjhMGX=G%
z;xC9uW{1;vwvu^ALc@>J8%4IMJ9O5^YOw?RMW0EMV#ExBFWQ~W1;PiZ{3Ult6AR_z
zs#PsB^<o3~7{WX{Q1P)s^?cGgLbKt7o&2Ld>w%*`(`nuV9xk<l3p4|>k8`lee98`D
z6`$Y7HQV>PW%5=AKvp$n_drKuHLe{TAg60Ns21sp)zLQ?uE^{ok)`oHs8Qs+Kh><|
zpIZ|%j6u+jkVOV*2liRI_YR~;(bX4gjx?J&tvYo-kDKG61M$ZqoTvV8IVWcP=|q&<
z;^~^tzRmGo*W{+yPS%!pJQc~?zhLYLH&a^u)udD!p@o_5mQ;~gHSKul5{7@l^c59T
z{dE%-l2dIEfjyZTi0dl5mDOyKWOYZY&8}UwfpxQ>b|b)_B!_L}uM%yiY=pPX{2CAT
zTPKox%g0-W#-AxS(QlGJL#<BIJ5aJBHh+1v=J>vx1G@YD;AmvFHZwc?plGi|P5>Sw
zXw89(!!kIF&3ARn<y7ZerBzD=M~=?(*JpUYdVNc>Y>;i_<>N;wxkHeayOW&h*=zLF
z!oCa)DZ!+(9o*mB6SUbz`qF5q|HyW%%h$6h%!o*=HPu#B&?c4ipTBr@$S%p8dn2WW
zeO3XfnPbP!xfBm?52LZ0UVUK+Q~5nDvHD1&f<CIBt^DL|YRvVDn5Oh~!LiFaq)E)z
z6D+g;`j=l`*yJWFRo#vQ>EyBZ)5$dKo;vd*$cB<J)d0Pf+PExB!TNyA+|3S(b0NI@
z1eTxO-JOi|b3rhiF+i#D`E<A*H1HPxMUwM)7)?eU9Vj=Zsh@M|;6TxQ(5@l|9?7wz
z^~rAG36fF`ccE#jq#e1?>!qHXM&-{xM=E7b8neFT+~5Q6t$+P<S4}ckq`R;cnwM(j
z-njMToW4OQ2=}_~Gd9k0eugYdwV01tXPi9&I@8CmywP2&n26%^sM=j;OxYu~Q=E8>
z70BGFaKLe9<@S%zMPGAWm4M6RJ2A155$_7*7KG9&NPp~0nP2SJC3)){d8i2Vj*(p@
zvuiyju?w7rG12;oEHH_dx4B<oR*<}wq_^O@d_dZ+O4C^XRb|qw(xY~Kork6S@sQ|x
zXHwZ(gQX)Am9~S6WdD&|R~b9g)xO>#-4(y*`iJjtAoQcENd*62#|R^CwFl+hEL_<-
ztoJ6Jyfl)6>W@kcU0tbZgm=>$a*7#fsyR!H?B%{hi#<q61_9p?a8a=4|J+1&)Vd6l
z<al?$bNM8-R8>{?Je$}3?={-%AI+OnHqC7+p^kTtQTx9a->q$YdfZ<+i8`33)Vx)=
z@uBrBd^K`=*~8@SqVG<>Ok$2a((}UdEJ1#wK?Z9Rc9yc`i96q~SH6f=KAmMjAMGq2
z+!V9_RslLYImiwB6T>sJ{VDfs4Y#+q*AKi{wR4qPLo+?<T)xL;dL7z3WJ|djPn)zK
zj}9tteWO7lA6uu`<n7_p9TEZ^c9({T$0A~ActRbz;%<)pJ)Q<<WM&$itk>hd7!>K8
zoxZypF>^655+-+qhEk-D`S~Q<><1<56#1~k)z{YgF0r-pl;^sAWchm%AG~ur?^Fwe
z;d06ioTVRQo#1Ic*&$;noeAD-T`kmlyX{+O;p5}85<#hCiX5-DD-)lVp7tGfdOVO7
zxHsw5Zq+=WYGLiyNo%5DV`4J)bazNyIc(I(!~@wYRDbH#G8OWbo@TW$)3ZqdH?Tfx
zVzVCB!&kI+vXq}VV{tlFb=08Pc_4Cou|xHMv2`MdFcrH~HWRp*y;|9Re*A3pE^u$!
zJ8if#nf9appw0G+^QKQugXg&gnrX(m8ImrGPzqW6R%KRE!=aa@v!XeTm64}hw%;r<
zJ;n6=a9IUR(<amCY=6?r2Kkj-=2T!<C|L3P0pr1fpUP1nC-mxu$)xXA>MG^;P*ms$
zJ|i`?F7OEu(=+u1rlZgn3;q;W@Di>)Ow-87$iUCfkHNMh5>DpSmtKR|-`yq;JKgHm
zWfHZ;kh@j2?k8?E%q2Vod9`e*wUbMa<C{lEN0B2VBU5x<ke&@B;R`HxcibV7+04oc
zwaAQ|5_27Te_!hIBx4g3T+MP}X3pM5^Cnj35(=k>TRfg0e{e7EZ{jW%m5+Ytc7Yxx
zT5Ly6kzc(zQnmb1qMQ7CD09QuG3wW{Z)PU;uQ{do_Spu2r82d62C3lhuh_No)f24)
z0az$2`K^qwN3#SiEsB42uN_jug^z|!YF*4F$a~fwA0MxlmX&R`Z1)IsV^&uCcbA7(
z>nA;%tKwM{kDq~|BvanY1!<mOkFYtwP5-$7gFjhvKG+{DO2T7JZ#6^C`syp^GZJ|h
z-bhb4=Oc2@cZ(7Sjr{$u0$5}g2RxwxSGFCmXiM~p;ZEtxyilm&<8CG;wiBsG-OR2N
z7L-rVx_&l~!RMXG8zRij&GkzR`I$GReHQwxN=r-qHHwCf=xsu_xKJni+E7CilSTK+
zA5y2R7l++cRRBne<$M;h6uf3yl!Di4x^JqpqITzHro6vChOq?TzrNwoJ--WNE(lw0
z=J!_o(@E>$pIE4l;@-&bt^DzYg@ydf(isCPR?R8f4_mpI8+JYnq_B(b;%G2T*z&Wh
z(dZ>9?3)3Hm#2}qv)HvKDK?dRY#g}F(C_TgeQ$yL$0;66?TE6WCR~cNnZ+M{FV*Uo
z<F98hzVHBVG%n`69xl|L-0qjbDF_+N^?aV0LgG+kE$7Fp4uD^sJC_#Bbtks(u6-I*
z5;<oa%#bSEsBGRi4ruafJ6fRo{nhDs-a>{<Ff*~Y|MO+6mxqhS+PAtG9c%(-qc$JO
zY%Rpj0+(+I0pKY?p>&8pdkkRoNT8}^d$^C#xX?asT$u3P`ZCfmX5XJvGi^G&GBn;W
zkD5-p-p7ME(+kdCed%HsKwcL{+b_;G)w6;(8oRB1hwh6&6;9SZMRX@Hp9J~eY<wOD
zRJgkG-iQH=oJHY~Y}vP|w4k6M=xBT1XfexYATEO9_7b7Sp?jlY%sTjNCr)A@fX_h3
zzuiDbZhjufXCjg$mQJYjw@XpBPL7ltmZHDEAJvt}dLc^K1?u!-uun(WfN^uUNcXl<
z<(1ygERX)4OoO?#Gj_w?aBCm811TF>8p>}+0<5dc?youC7g)cB+n;c&LhZ-!<c#CL
z(ddS7&a7p-wVE|PbsVjm^gP+}YT3hDT%63O*|6x@*x<4@Wd@{9U$LuZY->AQTHeW7
zYq@G(dGz8rO59{y==xWHsLuKT8V!|l>`C5qOww;V`fV4@oLWckr4F=)k708F{aP>F
z&a-rXw(+hFby65j$*P0|3YwL*<&nQ&G}F`XS-?Fvvw=7|abkdSuUY3S$`Ti9j<fu_
z*|b`@xdB*qAZXok*l>x$U(36*08E9xJ}0->`};<B=6t(X#AXL@Mk@fQK9a{hKQ;~k
zC&^7)0=C|1UHo{%<0b7m)sU7ZWZ^&c7x?O!F+9g;$xmCiGchrddf31(I2QEk^(L}?
zy>1fQypZ80?c(XF(|Rxyi~{~fx}mbNaz4ex`geI_qugG%^7)f{s;XbFnV!|77T!8x
zC;Y~&aIJs`2hPsUhlkj}Mr`Kgb?L1GW({^02R9|02C|eyT6cf#J9H;l87~154asx4
z-kkprLMhQ185s*9^M7M!$!rcgzR+8Ge@PT>Ki%d?6|p(rIxqiunykMc^lDYcy20Cy
z6)1jt2#J!$C;R%6D&g;;(}d%e#OIW(Z4=K=h5<qubjk@_&}r;x0^DF}Aasx=0#+4U
z*E$d3bx|t@npd>tB~D+fv&aR1dqG8}9(O~mptN+Q{%bU4I}_f`=44{vl4kc;$2PHm
z6SNlYHJ#li4<8>)hFzR3idZ%IR`dl<U9ur|E>ZdXH$aItO55K#hzBD)04fmpGe=kd
zHz?Jyceqy>wUkfx(PnJwc;ch|ScFRZNnSL|?US~Xjmf&o%8fA~7-v7iVJwH;09T-9
zZ?Bf`-1YESuP`Xo`rX*p7D`oqKAFI(9J>6EwLr~zQ7}rcJ?}ee3t8<CTCF(1J(=sW
zYM6b_XpP+d!Gi-@!x;5NJZlKy%j>Q2r{uZIX<iJV2omyRKIUXMCGoRM@=%SYXcZrm
z{Vk@IqYyY84uypRg-hQW0(9l6Iw0Y!*3O~ZDcM4!4X#H5i=ke3_uV#fS<jt;eop@T
zYxh`$W&73(Dh`I=;oEtC_Uek*QE=9-cPyUAyUTl*MZL%p`1iH4@4T-yYH##B&GPAw
zqRp0_fsa<7E#jW`havxn^Erp|r)WH4t|JjFF_6ZE>?HCF9cfI*NZBIvy&jXBCViOs
zMkI*PhiGAvIJq$YYz9qcSI>0C0;;Uy%1qhae`aVZN;HmH38Z*$TPNEa)z<>9G%$WY
z8ka#NHI->JlDhHWY2PV((}=<wz)R2;kd~IPBqAxOG7UWxcw9l&C+HxU#JR_?6W$hh
zY&2)&n)HFCQ2#th;+pK000vWv5AemJF>ol60$d@()E78Y5170qm712U77y|QwQ0^X
z@jgg0q)zdr_3gUzj+GrgxhsfRdCe~du8M(%5AW<UlAbc8>(@DR8f7U(z!V=ES+(kv
z^ticrTDQ4wMF(Fqy5Sm4u9z)pBVu#}S~k+YsCx1v377m)i>s=6>g6^m9(n)jffN2*
z;f#XgwB1x+1Y6X0{$}!GZQD=NXr?#q>@ec~V7urmUT{%q8FJ>2ypy|_?d~xbU)WZx
zM8Nt4V>gr=f9VozDrfQ~lQ4Ph-@t<Wv=1|a#2@szg6Cb;v{F8vmgZpfO5!w1z+n*`
z^yYhfCTvNZDXIk{XddY2Na!<55g=sA8XBG^v`a|G-|t^>mR#j8Aeov;`N5OSbp?^s
z^Fg1QaC3dPy;blb5D)H@Bs3Rd#ppj|?muDEHHm`lu@L^wB@PH+f(icaJH9UsoCy9#
zz%eg)3xzvO5|j&F0INeJ;6KcOOy}#nVq~DXw>a(4xnLOx43rD2Bxy6hCkI9EZSPvp
zKd3TGPiiu?vCXGWYrK|j^GCcu%9sxxAb_tJKR5_Sy&nt%Z@g<DYT@v{mlK)^8uXRE
zgK&J}e8$aaWh3+S+qVAoR8JR#P@vyJW_+yjsV`s88;uemRGa8Iw2eBB62|gEX$&lK
z-E6>NNFePid@+^FsIv6+NoZZ@U+d<yzqJOM4jhBoK{IRm$y_Ps1)O*vbURq)9u7ys
zt(JQLqR_m>3jkdMIM9jN$9Q){+4<O?ZRm2|0`}?wd*cFuhZhKaIl~^@E6)G)jQl^7
z{w|4{kbsdvljm>3z({BjND4vBh0r%CP9_S05Cq<_9C8qpF(%=w=ok#~k0@@0{<4uq
z|5IuLpRJg;;?Fw|x_Z$?Xfq7g{bUKML;IZ2T%y8?Cm-~ADkN(CbDKh?x>G;)rNnC^
zLq)^pp+jTG4>^u6YIXfeZGQB4xdvWDH1-Y(83nGexJFYb${QJc_P8uXM7`vIjW?J8
z)a4qSp9`D_N>$5MemP@uZ!;b<aX)oOr98_$H?}8<dZ?;$Fm2!hi?v~?|NSZ{S!S-C
z_300(3zuh!G=vvojFo-_+C@*Bwf$d}`8t`mVWQvzX`>LIogE$A2g6Pj;im&DiZIq4
z76EUF*Fa#9U?)gDB$~>#)CRNx-6vrY{+QMIw`x8C{Jg>}{a41(Up2RyemYf6ePbWZ
zpwFHWussicfF@9GWtker=}n1-Mw(|`jCIPEua7BiPFa5J2zsR<2MeLA79iZN23JcE
z6yFgal6(6<%|j#^2BqjjtyLOU<UE6Iy+^7F)~FCkBT<0Ai=SkdK>#?er2HZhLg-i7
zLsB{Uz}&WoBx>9L)J;7;_~AX<=?@VAzgPl>;Xo}{PRV3%ETy^2CUN>z03idpL5slA
zU~-HIdOh4Q=`P>`?Pc8;!UGr%#R-0RkP5Xm>mfT~?pBZNHCYMW_E`+njpgw&c}0a>
zbC};KlEiSVT=0Hi{Bmjrt@g5Vzje*FTLEv?4UX008Rd6{K_TQNsrt$FA4*C*H@3Sj
zT%I>;KC~8lezg>Z`c^$Lp`RiXys_OxnN~T$67b2;QA6>rUwde`3FT6lk+#+JOa0_D
zPtQtM>&8E<@nrO@#xJ*f3X-V3r^NA<OP`gz-Cxh0@deF4l@)dGR~2YgDk;q~No4)B
zpThx5`_N*hndY;kY;9e{8AV&7Tk87FA$R)mUyRZy7vE;R*TDSbV4HL`aLi@==S0Th
zg)hEXKjk20Cnqa-?96K<rBtD$=s}Twg!EC*L)GZ@j}C|)i@jOu!d&Fm_oVB_YAGW`
z*@MlPc?66dq0eWe0TDL)l*@^jz6%hA?=LVw+&ce15cfMhh!WKe^U6B_q_nSa;lY?*
z3=Vy^^*S8rDO!0%A>^W0WSI{k)kF<c<89enoCtmS3C#~Kcw&4e<}t<^<AVvoYn9V#
zCXMi|bKx0mk$5FM9RJjolz^~hBk0k00lbiC#0$OvnSw&#=|t{Vr-%f(N6;edoK659
z?n)6KD-v5?DPQ}0n8eAKr~=;=xgUqKEdAFYsk>ezOu3`$4{XaS$<zUnk*7y~SdSSn
zo8BPK>E;wf{9@oUgj(m0W~N)9hpgxmI1#O?fYpq%7wsjc^>0X}91uyhB!FXNXjL>N
z`Xu}ye2!EG&-?j$h1BYGZ&`xv?(N7r7#KioaMS=;1jY^F2=_w=V%CIT&bfEQE6s3^
zG_@01YBkV|MPW$sO~M&<oCrq~po62C(d%d>v$Miv*@T_&+<Un^U<(lW(18f#q5$YJ
zH>({0%7e^UMBLy)@V`}o9|mI<(YesrCfS5EI6bOWyEw4w<(?bKF|C=-%hUc9X$Q?D
zel@`O+ttF=@2@_|(vclJrNvuz7^H>XaekIVWNG$Du1c-SG8Oz4%d3G%()geU$uX+q
z#p5tFk&hSp!V(jqGhCd17<+HTaw4oM^&oB6)3q9IxVjj(uW?Yg0c!}Z6JM?c*enob
z9*^>FYfSK_Tv0j5OXVz?<WELdy*%E0laG6DMMH6I;G)tMdD*RMRNw)_AMXPg6fsy*
zV@l#IiLFgT%Rt-6rmmxK@TJLuOJ*Xwu7Np$)Pr=vJZjUaRGt~^h$QSCz!#}mNO`w2
zivL$E=7$w?GABaODvwCvnciHKx9U~&N+tQfNrkjUc{}lw4uW;4a<q1Pg%g11b}Ust
zaj&?kJSmT?I$F~&R2#tEi#^xUfJ>O?5w$?ZV+p(+uQ8C244_wXJ>&(ms+@DLG&i%+
z0rDqaWf2`s<J$gq3>z7JON&?45>SKAQGkH>yR=W%;q#0OK+e)q1uqVgu=es_tc{{S
zofy$<BuG`PcD&{+LGmV}m2W9z%H-b+xFK7r$pN@d59~uNJp+RKt(!_CDH*LIh3DWE
zzKb(^ZweHU)D^DrittJFba)=7GV(;#3wAZG6{r{(Z7DbrQU|ks;dgS=8}99CLIN~W
zU6W#x5MF}5as3!t#Lo&K%{_`JYJxHxA?q22xB2g2=3dGV?+zCrmBEeEnG&xVKL<q8
z$`F8PVvKA@KIs^E0sN_#>bmIFao7W(8~XH0S^*O8eQWzo50Vga*_2ly$oFoZKg9(0
z0|oHRw(1>k(q<ra%g<Z@`_qBs+H~L&av(Z!O+wIt&1bT}^XYT3YI^qNT#_}&X*F3P
zA41>$iqu^j?c%7=2Mv^xm{^Phrqk-iaAhPJM!fLhY2YF>TmsO}6bjWOPZ0WCH>Q!_
z-$fgYN^v#6v1=-rkMD|#-3J;uzs|pzCw`#5IcjyImq_Kk4W#y4)7Z81bHh00`&E_{
zJXsd0A2!_A^XBRq_hY<JpC6rkTGUZ0sxx#f2>@avgfT&9!r@}XOpw!$WPciBu#Y!R
zJ{~hevu22glR5dsfO9zUq4?%I%6MgrKHkUbTK5m)<Fn_410Dbsae%wTv-ZV)q+$2X
zK`kZ;?>?r7a3K@{!%i7QpA%RuFQNqy`f%E&mm8|@!Wtm}3}pC#!T^O*xD%B}C9)-R
zmOKK2aUr^LalmvYy_Vq(B!l@W7d{W8VmmC}eGBNwugl=a5#^f)X&l#pd%m&vbgV<B
zssB?zAA@5wl0N*IZzgq<H)qA@W$!WLqbjcg`*MU$AfeO^-1}#_W;k|*8sK@hpME7#
zi~8?;pueVVF#)5f|8;KrKTLD~?{60G5-ITfs~;L!)YBu&!dIB4$H0Z4eoTEY!)pN8
z#em?g!9-v-KQ-lERiKchH5;(C%~v>+hA_xeF=Dzf?{pF}H5me8ylwOTj6f`s8~TVb
z@?63ONiX#Qu`Nk(u!Rs%wvHpMHyete^KsC&<RaV+TXUypjK-4(n<sG$`eSdO_#7>^
za7k6k2;vw6faLB&f)g3_!zQs2uyTH*@WcUYN#wxGu9^aV-K5*^0gKcz^`vlLes3y*
z9#79(hSsNYOgFG^@g!J7DczY_nrsG{G@ruOHvHa&ux?6ei}fu(0*Tv!qQ|E_O)Rz8
z#(9{CppjY9$iozWDl8dhAhNJaJzVL>a}I?5SaC9gx244F`*L~SGdX2M62A%;H$G18
zPzESmN+TETpFmw+`7h8{|3S^^A>aW-)jXoS$8Cz<;Oby~FhIFRfaVG#Nhb~=4!9``
zI+PNHHPFd&mS6xtUI7+CU29|-zY_39kLDb71MvV8MzR43wYeu342fP`uID4HWspp0
z?^)E_;B0m)5PKp<;qlsn>8<wj2q5Ous_Q@VoD2*;X)bGM6`2fVBb5lQ%RR|W(SWF%
zL)X6_^g+|vdaj)$0DAi>Av7oS1l*rZUY%*-W_U5tS`^~iSFKMQFrxgp52l4_)qYu(
z&`K!pHz@gaU1o7BtUTyoMj00lH*LKf^eBV!(FgB0i=fL(KCHHCujeISg{iW@k_Ewj
zGEmpjjIOKY0%n1qjf}Lp1hl3#F7~id)Q<SJ2w1@+tH#P({&^-sAV#cabL^WED@E4B
znahea2h{U9=+G`F6bUZt`L`PaqsOR!s~!0On4{Q}{V&UDN-}yCkPctuj@PYc^!_n7
z30)6TBC3SVKnK3BTs-)F*=)!F&3DdDxM{0y%PUHee)U7rB~euBzwrgVo(_-59~20u
z2^R=w46j1I%lhvW{PV{lForGx@}x^Wa3&nrRuujzyccZ)9R*TVw3O02i>V%n<^{%T
zh8i@xf#sny^mvFZT?$RnWfSF#StrIPDV()Yj--hJeYDB4fYTOT2sukl5xSf>0EUDB
z54Apr1M@vZ>A<Xk2Kv8X(>IMM<la9DSYsL(ccl7)0IjO8{R@1r4Qxoige&^~v<s5^
zW7tc9V66TOh-8_e26=$Eo~A6@_dR~>7278{W8&``ec1ug8VDeTq@naqyFjd<gYj-p
z0r3rN-U}cnw}1mVzjQ8WdZ?oS!3S{LVVwUl&N`JBi0>O9z5s;y|H~ls&yDo}B#3dK
zzlLXr+hJ7je0Wd%8POcz?_XfLr-g=a<tJ+cptz?%yI^Y&H#dC-C!)ZFPYR!j_6V>4
z)TB%?MRCe}_^2`B-w;7q;32Pya8t!$ViZIJeZyX)gl38^V$83?1ul7|-P7jmn=)xp
z@nx>z&-)IHmUpuxa!xj<npR4?^po59vnxGa7g|k=QZCF!^o)7}(?5Nz(OyLuG|guZ
zD&0mI8odMtYPg>xzbH+aR(EH~C2%(Wi;O<>$?rqZg}$1Z28?9%6_z#Yix-w39VNYH
zUz+3d`wnOYG9QP{XYnkKV2!Kz?;pj-_oIxZ3g>pJPd9Z3OZc}GYRz~oehF<V9IWq<
zK$d}9><(>*VxntwVsS_7tz@|7O%VZ&he|H`%Y}u=KiS5@mLt1UC5x%<H!I9f?Su$V
zTKdb3TV>|9%ak6Bj!34wKiw@gLS>prbsr>>@8q5%kH4CnS3TPKS?g}5dK#>0Fg&%W
zqga1AM`4PkG)+3n(I}#Cd(!K**t$0vY?As2(l0bBWY+%aC6bRo))9#BOHd>(hg!l;
zMf3hqZl&Ry*Aia+!t^Y)f)71MYyhFlk>U%IyGnFSl|)GLf1dKcw{UhPCzME1t;)b>
z*Q;;qIOz9#0iC?S8$_pB1j*7cutkbY?RyX6Dcu)4p|-uI?faqm8hX5;q=Vh(w6o!R
zx{&5HiH2LBWhhOC{pE|lMHkk~P)^$g3rk+UdwN-IQcQm8Su@1f`adrrp#!h_p=7g@
z+*oo*bZ&iXqY`DkVL4MhVMK08Qci9Nra^PR3&VPMo~j{uxz9g^@4*wvr(ae3Fc{5<
zlJP%g;fBhmD%ZZJZD#3=uBu&cYz<tZnDnVx4Jz;))WH0xZ5P)9om)LOy)6*T@|;?F
zrqr}v08P_#(~w7-*#G;Aai5nV-_uUk12Wr9@y=gnzjs96R+IbkM1@9c;Bq9ycYa#c
zFNUlJAt!PsjYiMe%vEu>$_dl=A7?-4Zjyq^^IX$Z-zBaiw${D<O2<{?+>ccLgHsRP
z!|wUa=o2&vz6#Uu6gGNy{fq+eJz-E4IhE7=wW;#T&zT`p=BUh1{C6vXWq`67KbdNU
ztFIk8yq#Nlaeem1Q5Mr#(^o2=yu<dp<93DN5rDxk+6)+J48YiOb});WiOlGYYQ@Ej
z=#7tx^q(q`(d&)QSadV?9J7v5N5FpFZ3ahE`%AY&LLq%RlJ7f&Va5<;9l%Kb>lfsA
z$k|=2wC1H3>kb%euL*;iSjOuu@A~Nl@BC!0TeJk6u3OyrSeX_FZ*W7w8l;!mZrf21
zxH|4Lo<MRzEWq_n+jJYAZ9kfj{^UpB`7M`Z0jx|+!E0d2JoFm(E~?tvD8qgs?-vld
zouAotiyAg#nmt5Qern)M$RHQ<1D-X?t8C@0Cy-zeB`3o}&o`vKhh@Hle=T^=8Stj>
zbazqAc&(03sgw_`fwD2)I^x9c&=8t{;w&&-Uiw}!a9x!hz2!+Cq}iAedji`js}OT5
zL%4_&xetY1ez9THf*q0FycZ}GamZ>{P{Q$TT5IycDO7sJrq3(+!~P#wI;n!LvwqeU
zChLV8lLmbXYZO{MStn-#)u=#KcN4K4P)e)fzn}%+3aoE2`@dRkUP9dpxw`VVp&M#5
zFzf~LX04_khZRFN653dQ{a8*h$O~MBQ$Y6xhHE`xSmEK?5vU;-GkPQ;I=pLXPl>&8
z{k2rzCrq_}Pl;K?jZ&B9if={8>jd7PA}{weF||u4n`5>aoqYy;*E8y$W&nef3KC&r
z7QQEqN0t;>CWS5~z^r50uRX9o_!yEOz6nVKE59I@0H@n@rT-b8WD1~oppKK_;H>dY
z*t#tr|5U@Z$?YjRd2l1r+y$V{?A~6CSY(6<VrBoF#65S^gN^+Qd170)n}<5IiaO~#
zC$MC|CjT=$NH(wQ^OGDG3St(bR8al3q_diu^S8^|F@Ky3Kc})>C|xyGlMVPT3zxmM
zuV~ZqTWaVo#^a9ah?hz^P5?unzrhN@!Svl^y+8+QJ2h7iX+&?8m79=iw_E_!;B^1V
zxzbCYD|vKR^vEn}`xnbF;F_nx9D?<Q&Oy!f5+NZIgAlLzw_~f}%<?zAoSwrPo_k|>
z5!2R{L|Myiy1Ri4>@HV1*2-bj)W3;r^PSVRAlA8h24+<l$s($Z)G~AhDPnfK{QNDa
zpH#J5InJ@B;YC+G557v>aagBi%LSxBnRRD;)=T99DTl+(zGlbKVkl;=R$C!EyFQLz
zML&eA?8FUN_US@FGy^WA9*DqRbIm<b|EffEsyl)b!Xp5FG^_e4{iR;!)D6RY=R#oz
zUUo6S98)jx6&gZ*XdIsYA@Mg+#l{M`vF>#jJcljuPnBZk)|;!!uf22pW$>*E^OdT_
z?6{jLThxRd$dlTibukhr!R+gunPN$=9)!}SoZTj<;@^#n(t~^RKY9{%E%FxS@1zbv
z6z&$oDF;@NPbB*bFq@=O7~;r@HIeXaQn;JtbrYJreH7UH5mr*Xw<3KOEX*m`9)eA@
z-*9em6F<FWZt?iTGho?wrSzjcpA<6m8@N<Hj*8l_g>T=ygQE7Q+<+hH=l%xzG2UON
z6R|Q59xDBk8(b68c_J|=Yn=_BQs(UXR#K_9`N)jz02L2O;oznndmJNtkuVl-%}P~C
z;YGy4ar(URy8LMeqz2m3yCU`1{*Tq0S=gICIbT0jZd*TfD0=W?kUr#)XSQW}DAMQ2
z*1~Aa(81bH%#$6o$Hyj*q2&j5v>t;r34JRzyfbl8a`qEU0nHILzK>?G5Km$XF2T*V
z$ocHesi*8@q}uCe@J0U<>eL@wW?u_#%Z3EgH=RZ3kqH+)!H_xT6gKhER5!ih?>HK4
zzm{RU_;`<1Ro28zdt6S2dSKd7kYu0J646T8*w1ch`=%s5!LEN``78yy6UhiFLbA=o
zQIaB-i+Kyl(L3-9<&75!eHJzyUsP4EPv&6!nX|0B+&dJQ?iar;LRYv1*Zj(?#d^oy
zY`cNH|0Hdg9!~FpSQiJE$p@sq$^sU+$F(MVcY4>EMYe-mX@Hgb4Sa6tDUlxzpejPQ
z(-hIeq>Jam9G1?bW<2VSLL8RaAr7#)s8=8!2#h+zk@bbrqI{y&gPI*_)`ld#-W<(_
zJ8NO`Vy$s!qzGT>Jno#vCfT{>$g&m*le_gYA!0dfwY<r0%Jp2{lzAoQNgu4&Nqdky
n<?;^}xVit&Nw37><f0`&;dvO(qtBQBIfS^cbFWgx_St^}+kaY)

literal 13647
zcmcJ01z1#lx9<csQc6oBrL-U+EeJ?UBOxFnAT^XU3_6M;p`&yu-Q78YfP!=j3<F4a
z!w_>e@AsVVdG9&*p6A^Aoy#+^*?aas*7~irerwH|cMo;c$geP70f9i|>JRSggFs;H
z<&%U6I1@D790R-&J<(LV54;0^C&~>Wz#9zy;E^W?L`rq}1P@LJpMgN^AoctA41JR~
zrv2iXjp`6PKCw?le<IhpoNeAAY+#yi3nd9uCTJdBy?X8G!26fwoM4)(eu{eiNJWDC
zU@+nRhcx$SB3?q2$TYD;6{W}zEaj-D&u|y+`3Z?SKDvFG4F&d#=W@CV)0R27VUsnJ
zoc#JLT<WNQ`N5aw8Cr#=E_01moo*iKt(V3%=;u}XW~LYDNQ2Z_jLG-kK6YH$+OVvV
z`R5gF;EKw@PA2q&A;Xc-$cPK^6rn));~J36vwhF2+ft>Fc;YEC=fr_NYNT?y0!Zi`
zE`X^PG)`6v^=0#=Jr0bOlGl+ctS9p&jwc{<?DQQ5%@EN++(1i9$3fM~HLtZ^X$2wT
zGU{Ey`M;O(NqQ|IUCY6i!{>|3r#%BlRcJ=6IF`>kLt-^d#AOVU(_U}M>K(wIF{702
zqn7=iD-R?GV>+Q#RA{AG%0|a1&g7=ON6>6veMsy~eV%=dfwf?bO)ta=A&9s)a70u3
zxzv4zXH@WF(lgyvQth^j_5()#4F4-TpK_y!)1`dglCQCqU0g7FGtERfemH4(j2>PN
z;P^>zZ7Pr&tXE@Z?LF*rB+!yas1wy?)x)5(=nHCO^*+@ooQ%<{nQ5=56>TC-5kh5B
zFzAe5Eg@1Zy||V}WQOVxD%+G)n+|4Ki`7B<bkqxm*Pq`Ub#WQq5F0p>FSBu`Tie3q
zPWq5CMEkNdwAU+WO~Pu6E*Fr5$gxc$Rd06GRcVnC!ZrKs2ic_h&&|`#IR1=7=tg>X
zYoTB3Y$@fuHxw1}TJ2f{vt2dw!V@NvsLx3$DUC~vZkd<$;iE8=efmpIWqn)rE3x4i
zr}U#^5zLo`Z6}<_!E&|g%Ma}3?I+IQ78fVRr_w1Or0^txDX}}ZzKai>P7ItnmTj*1
zS94b8&)m=oJ8~RoLC^kqpVz-Kjaj)tn*uYnoRDt4+hk6%1OXp{H^CHN58g<`%zI`p
z3Zx}HnHH7A>}<Uv36l>{oi0GM?UL~)Da~s+0W<jv`zw$zO!SVka%z2&3ylWxs!VT%
zV@|J8h^MJO*z~4J^_rg>y0fP=sFdRq0Bq5V$J*Pw0#QOGadD2grFYZ>3%fH^{WeI4
zZ84~pqz&)3zDL1QXluN_w^-H}P&t28mwhjr4H9?FY`YI^Ud`DnjxHKl3d@jACBj73
zyQp<bEa@Uy-r8*BDl}yb$&9)fsw!+GU^Wtj^am0UBQfGvi-}mZ9L@`GR0gs$yISbf
zhSOp7Tk$%QoE8kjTJElpGTD44Ylxs=^96bbX>4L{eAVnZh@RRkh>hcvV^_;X`;}G?
zaxY(!nrb=(@s*H_ccWuD=ydr!(R3nWe900v?`|Zs8Z6+i@UnE{H(2UUM%v%DYR69!
zqH=Pr6alAo7PnDOzG(R61AFIeI*h-AH9;F!y85}kEg%UKpMfq?^#)*69?<pCn0Ah3
z_)|o!N`2g>PphU8B^S*?lz>}!xr*~>f^&~m%*-0KE4j2u=7T^Sc?v4E{j2nZqof>V
z81TBLR7(KKtWufQYpty)E&6{roT{X_NzE9J8QPwh(o|#rz)LSQET6`4#_J(C3yCRS
zR<tgmxHx1tn|YW2!GG^OJA)!~LHI$!0VSl_^v`UbFOmNBXw!AgZUvBZer)UJpKRvF
zEA^h&m1^bYM6qs2yaS!BiiQj+gJP}wy*y`!#+)G!pNuMG{G_c(tK|pjIlWfeZyR}%
zGj7t)O<Il66RQgJwF)>3wKd18Sa_AsS&4$2<9W!EbGPa5N9aD=nF5lUaEk}E`FE$?
z7DdL&FLdtF&Vng45o!)~YI|U07_Y2y_e`3{0V$lure62!K@qRm0f$yn8_Cg|UI~{j
z@0(5f)eYh<M}r!RcbvH_Y~)LSxO+3jl(Xl$R3Rg$j$k3M6Ecz5QM}#sL$-d8idTnI
zFH7Yl?qJH0<eoSRH3i3|ts??DH}rP5rJIDU2U$TlyyCrhnQKdyo!J4`ud!d`ZZ7L`
zlcKT3rv%ovts6`nQ@5OCl;%!p1f!L-DA(v(p%ngu9+HKXvq+Y(Z^#yi<@Ey}mRW^f
z-u_*JEa!8j2kA!0q)&l_@$q(v-;IVm)C7LWyLhaq`Cc&|L`89WGG2rp;NJ^+-?b&t
z-TX=8rboebCcLYQR9lFQ^ltfBT5h4{@KfMMC44Y?Isj1$HX|J#+O_)eD_HWYowDSc
z{u{4L!I}zBHYF>kik9!2ZT@U9iS^~BO1-~N!SSxjPBm)NDst77G~#`|i?VM7mJw^O
zSL1`=gcW7O^lDfTAu99NLq21bk>sZ+hqFyiXWuJDapP{q5l@oT9vDwNE%2e)hKQua
z63c$a=Oh-hwGO=BYVTSlsWFaV(pXEf-H#ZFbGi;azPZhUt*D&pbtfodi~ZmTd0iDn
zM9sQa3*C-1Jqjrc=H!@m%N9hWsixV}iTrXNBJvRa<TFqn>`WQ>t~5$JYayHSb)h{J
zCPSC7=J0h*_Zjokcidu8&fZ5^c4|E4Ead34jG4k;qA7zCkm5cAA#a!(m22yVTg^Af
zxnvo>P}&eCsyb|taZSCdp|nw!{@DL}0u}4oWK=0nbCM%_&Z<5B@FH>jNFI~&p;lh$
z0hhPmTnb(LNZhs-CeVMVeCLtoxV54K?Uc@1?6fM9+zO|ocHg~_%h~!l2~+&N0pC0K
zr#B-zYQo_RFL=!kkJ%j5nySiXzK^IZB$SWHd=Tk5rIJYRyY?b#P(~53r_2M@s;JQ+
zC&m+Mc(Gl?vZM?(>deY^`iOg~epd$BhH`(+g?+B1S!ZQ9Hc(c6>fq>Nf0!ik0e;i#
zy3JDQ!-;I|`ex_uKOnOg%rzYA%fnQ$NebVCCrABbomjM;oX+2Me&mn!Wp>}GpI@`7
zmZrF|?p)<<+ALh;BQ-+7`f^hi!@>2cdP?&F5kE=54m5r9=>D{VMs3nVPMbdIAbCNR
zHDdA)IWsd<#^VJJcb&(mYm?w_PbO}TrXYS+%5x?1V-_ldbH6zv$!!C3tfgkR&2b-W
zaLqruNtmjv`Uj<DKF88MknZqWJIANn6oKW{$NL4iWD_^{kmPghO8j#R%SW$Bj>Ls3
zF&*P>t0a_2E1F3AMXz4kt#3$A*X|6*vbS&w$@9u=uXD$(fk8fv21$vg7w_i6c}r7~
z29zHHt`~5~Lg3P~6P>Rd9u=oTirJlig{Ynuv*q$=)pV0AQN<17F#YCNJ7mmT95qR5
zu1?3oi7O6&BungUCUid)6Wnv5f!i21BSp3b)hmk*1RjS3vIu%z3QjoIi}_D(lEmt<
z%+~|FW^2?Vp``wD+58kObV{dTtIa42EFh~X)V5;(=x!@f3;niZt17wKrl$-i&Qg4K
zYP$T_l_wqt0oP`O8%+kwXD5h#QT?b>Q<{0N)}R=%G*fE&nfUL0-=;Oj;epblE;$Yi
z3Hs=ffl{I9Hzs{J`UPjwGj5!P^7!~LH45%#mYP`c=EILU!QBl<$51+bw=+rJYZ8@7
zS0$cBmo+;dj9z^qnoklol0$8#G9<RD>qPWyNE-Hx=ad^snnI*{z^YPP3iA-QwIvbU
z8$lwa!r`aAACaA>S*O#;(W0ur!J-Mat5ga|<<6Y@-p=Y$ebdPqRwOWgr`9t!E`flJ
zk1lFAD+2rzoYNQ5OIMI~3PDfP!(;DT{_u}=`KQ3V%Yw^CSmKJJjF1Os1g-V*$aRWr
zyAwT`1cXeqH*!zK<eG6*r(@HOc0g=tXb4m)ZL~;(gn#mhlG6&f^-8K{b?^~;rDAHt
zYRiq)qZy>K`TJ1(yZRpXsUsgD!KG4(?+mS}ez;N_oV!o-{TaMwynH0GEp8@4zJ$x!
zQ1zNw<yERlYP}G8s_ZSZ)~}N3JAvF1>vAMT>q={p_{A-B%E0O4O4q7vyMiMy7NVrN
z!q7_OP9wsbaZ$@Qh?6~ZuWTNyu{RvEMJ_l9n-x3vRz(Cw!h<EI&6pJ(iu%}{5i`)o
zH`WOR`$SzQ*6%;4E*aXbsS!tdcDYeSl?RIJwp@)Z7=jJ0abQXHj+A=AZMY$xnclW5
zN>mzFf^u;pY>YpfSr^Uw%8N2y7c1;YRY&6-`D2~EJM9YQ#~m2DGi-#qb{ouEd(o`|
zcKS79AI|98AE5Y<g4X|KvXJSTQDiUo;#QvFDv6mwfB|Z_NiaV@KN0mEu_wn<%%A^_
zKtTQZM^l|`8!{9ZHyZd)AEJf++aZgH_v&ynZ(86k{?D3ydpNE5=~fHAY$05IA<pIQ
za>QQH?@C8<VivFdYYEf#y~&RhT&HULc&{1Q4~`z9?Ud@gY6`wo)E|tRhY6dOe(|X;
zr`DBqKU_?5Yv#dhB+Z;H=7gM1&R{4@9R|`_mBT2SpkI8pFz<ElE_|L0+5MDu*6{V~
z*SxP^ZAK~`hZtW>*u~MV%q*_9^qXGJ7P6X`6O8-Go7PyuIiEkZD@e?n3~ybZZ3|nn
zr09rZ3Bc{I4Dmio+5%~7Ya4|zd;Iulkgav%)e?M;soSWY<Y9g>ZbPamsaj_zq?TvM
zx7O?H>FL?<Vz8lgw~nLxUa{X)N*rwA8HA`<3O}W(&~SogO_;VaZA|yyoT`)5NxZX?
z;8l~Iot^J96Xf&h+biM{O&_M)Prg@(J^NLA(IYuiIB65cQrxhZ==3<Zq{L1B;&|Sw
zcC&u%MZ@{wB%ZZI(ggqdyY!RqZ%67RTuYh`&9=n)WcRS0Y$0c%t)0PbA(KXdN9CkK
za<~t(Yl6gmEtR>rq8d#7PIi)OR|E4Mad9K)pTw<}vjt(vfTa{4i3CYE3|`2px$)WA
z@y_Yx{&YWkB+t$5NzHgva%dR2-A(aX;f|x2^65K>eYH^1SLnCbBk7hb>$lr7I4v6Y
z%3`lpMwq&*NACKUkdpe2ZlCc+-Nm(`q{9*ySJxE!9Njcbz<8<6*7pV@BO`I>{^oQ;
zU44ChS#~xLp~$me@!Uf>x-&eUzI8Z-mCR2ahbu$&yI=0T3Wgs|`?y^Z2{>GTZ0=mv
zUgPxq`DSrZQIl9O$<2!OADq#$8^R$c-R|Pz;zv_KN7G3{mi3j@+1ZP!iHV5~Y7q?X
zm`S%5OG%gCm2U<z)Y8g(BqlA!8+^9XE|%34e$%n<)u^QXNI@fln;1)^eGJonjm;9f
zVmM<os_GrJs~6Y>#{%6P987CgvXgq5M64C(w`beNro6{2b+r;i?a%{iZ0A3{6wF<!
zMpQ~K8nxrneCOVsO5V9MWolsH*;h68xIwV6WlAeaqR6IZ`o(D%aJ%rzP)^?;{*p!y
zuFBL-$tif-=#KKcy`{bxsS13pbN4feodvP6@>mzy^myIL=LJO_TXjpRymkdLVsCC4
zWRo$-`S0HXjah}9zuouxC4TXGb)vt&_5{|s|1*$$+$s8Zb?htWJ%;)t(XUg^;2Hw}
zoPf}c_%JRV5!X+RO-!~@G_vxATh4a*{SVg@Ah~&YKmBWY%<+`+$JqWy70+CxLoUw5
z=!7iB=Mhi}siouj=obIoKR+kgf{$mTb>c;40|0sFC5YLN=B)h^2w2IA!v)SW&BW8s
zymxv29H(SpU@)RBIbAv8x0C|pz4TURzt$%z)Gn43@O56(_1+_w{@?@v9wr9R?@XU)
zNWoOOAhBcJ;;Eh*i+BjI&LM@1o#+tO2Pxj8j|_;&7)phvJ)%~NLJyV%(dS1q3eKy;
zc{0Be#Fh%Z-t$j-?DZ>CYA1_3jYbJK?GM%f%FkDgW(`_6SxUnf9m}TP^?Y{Tbc8vb
zg)ad&iB{mf9u?b(^;MpfVw}6ps(0cgT+G^lHTneZw9^ZB$$n4be{<J!(LxTu=877t
z-yaSDp!ns2l4jhz7k;9nr9VS!<6|B3)1*!{X7}$eH=DI?%22~)BAM@cEHwJ<nQd&i
zG;CDklW*I09JHMDxV?GoJNw$Ie!aZ=G1zyrZV9(lJ0Ddcy7prfKOe0if3}j7CZ8UH
zzerQh(jV#R=@Bn5DJgEoz9h|NbN_y=a~=3}0E;g+6fe7!?D<${?9-zciwXA4`j(dG
zvmMqegIQGpTTMsT#q4{hGV=2BI+q7B*a%Z60F%HcV18to&jX-&&>m87_76GBppSRv
z@os>%<Hv@F4aEbGx3{MJ*NQ&9ou-lq!U%d|Fz`0=KDm=WpUjgzx^6|cQwG?ZyN(t<
zGH6;WZU~l&_QCiqg|zH;@dq(7GA4TT%sZb`GKhS+JtksY^4QYyfl_yMp&e6n?o3WO
z_e|hzi;(k!zQeV#t))*q+BhBQTMLY7a);x#e&##XCV-uJvPQGW9P-7%?B+R^U#w14
z*gyaAfrB(w$Pzc(tLfk7F|4Q7Gvi#*gQ>?~oQ8ofjlCh&Z!y6@>{5ooryECy7pGex
zct8w3PYeu(==Jl4Zyy{S^t>Xbe0(%)pgVog#b2Toxcig0v+-=VJ80<OX>8L4ZY>A{
z+!DO93!~<7R(L*~Yhqk%;WvkbQFr7}=5(6W=I58Dj*X0ncm7j&rvPy4CceL;u5o<+
zJU>y!$F(np-{i0aaMi&FBPKO&z*+z8Z^U86re#k+g$izIL5CBOhkzrhxzsw;xX^TG
zwrH<hP}1AmyGOYBc&?L9&}`WD;_O83aq!8)w9k}#XUxf>d-cU0c}73EOSPTgq%UZA
zbW~y?pVx#e?c|qzRO26%W-uI>j;+D}V3o4Q{-h%(9`MA@d%izW+;SE?pCe%mrZID`
z&T|^8rS`=AMq7=P-;h0WYd;4J>+ICCPtIq{*;_kVYKJoJvHwaLzj0yiqk1n#e00#d
zZTBv@%rxG;lSR^Px&N!?8wwWby!v{a2{1w(BbMLlq)YzN<?gSJtVIESoKiK4`DE7U
zbAnwMtN(KPLU)|oXZh%Wxp%z1fxwIWKz~1c(l%Ny_DFVo)ZFd--dW9S?Yd&Sh1KCz
zx#-|P_eG~UmXZ<yue(1aXQJhC%YKw{`~Ag$`dY?;MTB@A&xR>T0W5)=$*pmx0T7#y
zR^lDUv^Q_wWC3oM1pxQ%e3XnUrh3v<#(o?7?bFcGsfVCsl1ueOh*~70_e!j}tKa-}
z`($_fpr9bnKvsp_ADnG-Wp--{ma$F@pmW^8>FtfrF0zAmmq8y&OwlMY=_YC$FJjaB
zwmImu_%F+?10wR~*>H}$w^sAcPa~h~{HitM7XMivI{Rk2vx@<vORRmI2noFVLn1ni
zf~CG%Mv$7%!Y6=na0y^bt8>}fNu%&@g!F;CWu2_2F1Nz=emj*MG|z?eA2u$f26Vj`
zapmX|zessE#8sjK`0RHAZPf^F?;mOkxB;V>*ubpb?{uYHc`_A*0O|610*U3i1?B<h
z9F_H7htnH6rfzd8rl?FhzpWAWzi3`P%HLY@OGs?F`vSQNDs$6@tCa4TzLZLeHzUwx
zf)mA+$8^k6YQJAcaeP-KG*-qt0l}@#7iw2|p=n6Ft&ELbu7CjpQuz`v#Alrvp*IwJ
zmyjB$%qS*8i-e4I8AU#|1TOX8iYKmD26LSC9-s_~EH~VdVNm;}n`@+Jka)vthx(5_
zYiq&%7VSCjA1%E!a%vtW3E_X1f-<}%-CcAunlRW>F{Fi<wO8-Z&l)~(L!TemI`P@O
zK|{p4xp}h6s)?Hbc75qFTPVy_pMK;KYX{su^gIi($Xr5`swtHBJU_QMU8*EgO%<h4
zsBebO`Gn_y$#v1b<x*dGc#Av|hGc>dFZu$NsVqZ%j|L&#i7LDIN~lcH+|P7ya}%C4
zi`bi7>U^Ix)X@o)RzJK<9;JWa%G2WG25X{*i{b%!Xdo_SK=40*sOT~XrkT(|k2Bjf
zKs~$Y!@1P!ysHQrub6($aK77b+F{D2-j!FtjeRu0ANOtH%6(L3pe*r!V%&ct-~a02
z^G_7)&u+rWN-0GcOd+!5Q^bv*tSwMnw3b<wh$EuMg#OSP(0u4mMM|uSwX?@pb(CRX
z%pjzhaGcgxEaQ|KZHb;iY;>`F<^m$wEkUdey5VjY-Teg=m-qD;6v8e1v9ja4yes1j
z@eDD5M(hkVAkECaa{l6AC&V*rIuXiRsj?q{HbOP-5>F9WP&eTqO(g2Rk7U+XVEcV~
zqtRUxvmZVuUm#sn%I<*Qzc;lq&nLmt<ncX8Ve7xxD3W-X#f7b17%1SB2PY?IIFq)v
zTcGO85-|rAjH=ER*`^0Y$>KRa^Ib8M;Jx=o_DnBU2i!7Rj#!)9SDzTwdK@NqbkOqG
z+%yj2)8gjAI!FD5&glCk&QToe;u@<Rt3>2y)=T_CzcWn_wDFj#Eg`?zb`MugC*sJ7
zplP+{;O7HEIzbl^q!<T_vU1arJjIlS59=xF#O&(&w~aJNkG;O|==w!_5Z+MNziX&L
z>I-?OHqP<m5U@neyv#o@EK|#!y6IkXsoOmS#Ha4^d8xkq5h_zBPoHZ0uFK~cqkn=G
z5GnuPtp8s>tWqbwT5%07b*Xz_`eU(elK%LA>fQ(R4BP<bN9aOGL+26Kk$(Ub#_0h|
zG!Kowh7v*RB9cPe5W3JYXbul`BA0r*$t{>KFE(=g$OrK%y)T4dGrN=^PzvrERnCEC
zlV-HOMZWxK?=>#*cXt81Q3Ou^p^EqF(pI5GfcEWG19xZ9+9SO2m~o1^kx}MJaysA0
zu<TCC>jJl%szIo(0zeogq12&P_h+KNaz7e{3e%bPZKaz?bYAThG)Yb!5tqR~jgEFc
z+Oau*uRrr^q2Ml#tz_NubC=;Axz&81mUH4$*P5kb<#7EO(h`BiW6$h$z0X}-F_r*&
zND(cNPZ?Wo5ZjDCVo;jyjhpHyjVxfs0Q4rZ?fVG&%ygpd-F+@~eVCC3M8`bd3xwi|
zQO-IeS4U;Kw*TjZ_+Pcj|0TNy2K$1d+J1~)LB|dpaUxC;Vxhk?Ujp!<0X$Y3*%`9~
zh?U@iUW&H%8Uv{X%EAFKUaPE1fleqJ6a#gI7+*#0XkZ<!dEhGGg9r%454~!0!{|(k
z{FUibF(Ywt8JddTj)m?J*e}6nDf;#g0X5z%mBlsk`QzFBtw_oEN>lC7Nq4)d->#yD
z?^PW%1(){ZS>bLPwdc9*cp5O#pLus_VK3%}Z+f!=7QaQ<OSlP=r_>^phsqKJUh%C&
z`!53K<PUl!$@M^8#G!BCp;0nf<FnbhMM9N4_0>SW1?Fu(bTC>#Nz<DRE2Aj3t%*JR
zqx6X@@0c%(urUHY;yJach|evoTfYXlA0=QCPe0)m5a2alYuqIeRM)RT34_xhWCAAa
zfQ|5;P{G--wAd2#S4GQ5H!dUIk2nM`Bne_qeL+=8R+|8K{~T7#t^OP2!aYc{ePdhP
zIsmJP^|QV<8`4l6&aJ+RsHTDoibTPcBX~m#Lc!=4idI-%?g(vErVzgs<bt)7;h1^$
zagRB)=IRAw<y*MhqC0n#E^zhM3?7k2R7^1HwS9!*x)l}(+m9wZYtAzbeSjKH`6ENn
zBnQ`5t(ixpXwXM-sZT36(`}cKP^!EQ0QrJHm2#;waaoc2dX6f5pCTg@wv+<4LwQ2A
zor1*UJJ`<r7{A&HsG}qlo0a?HK+zC-Xy3I>ggEiB;Yu5@O{eZSgbCC()CS#wR<eG4
z_Yxxoz_|j19AX;5dfo1m2Hi(sQpIM1GZyS8v~FnD0!$6y2pm=rd8ToK<1boez%pI_
zG+gn2Hj$1nAo=+i061{9nJQk<mj^x*VN#||^cZ?U$PC-(`zFGrp3iVXanFiAhV65f
zb2rs@Q4$97K<Zky+7x)%m|?5uJ5oJjvR*xj57lffH`VnY{n12ocG0QylgL5?uO0Kj
z8Meh*S?Zc8&q@)}9bn$Yn@kk4Rp0b9P=*9CIH_+j=%xWDPpl^4#pb|rOwa8<t}L1;
zLt_^f)HLg{1YC1J$nA^0I;YvpBznY-HJeMFJ4P7HrX@vrdS{l;jzn<iz2;RlOW5jX
zuDmA;n&>fVAvBIuP*=qtCY3?pPUHVEhD+U2shL3bbN}4ySb|3ezu{c!tE{`+*vU{~
zwX`JI(Hr?IwME}=1A%K{0g#I9w#e*_!pG<k!~*hESre5>{y`WV0%CsPOVeL0n+pQb
z%wP5b%!*jw7O7#r2i!IS%&YeC^y)zn_gjFDxpL0j#d07=-EdW6a50f=GWScCvfu>P
z?H$~(M=lXuj@ge1qizH<n}jO@tI^r5LWp%gC-Lb_G^_vj<ryhPk00^0zM^P;I0&$w
zRU%-?9tvLffC<`&hc!{35rKkO+gk$nW(+a`MzJcf%RQbFDii9CR<u@VJ^$(h#dSOe
z(2)WRE=l-;_;G~yDGW{sx4HG|FU*WV<QaYMW=yW3m;N261ZTQRR8cZC$0jSSAGz`Z
ze)y2!e6cVrV{4D(3&K(GX&i@;I;y@h5axSZBz*g3Yh>tabR$)}9-%Y1@p{mOEZoEJ
z1^+ha1K&U?KsXz!FP>G(ZPQ|zkbfE^v+C}3o}l}e_r?$<5EJkWROfyDC0PLQLQH+}
zV*d_YW7vfo?hc!)W$=~9$+AjO9TRWUY)?>;8=x}319lZ8S4zJvKP%r40u%xk682y&
z0VPpW+$-TpcG7Wz_|uy9&7$k>cD(_GEIS}pac{_r@tQ8tt3B_HX6mc7BlqY-wqe-m
zCnLAK3B|p=!$u_ToW=7czBja^?a3n^6L>V3cX1<07);4s>HBrz%t`y*oD`EU!?EbB
zLWd+Zg+dOA;G7d_;gZh)f08ZY8xu`dePwe{fV0fTY}+Ndu(}vEAl(e|Jp^f?_4)Hw
zSFf3eoYY2>VSGx`hif*^?X*ru7Xs+B%0;^X!M;#ZB5>fbVD_ego5SXgCAYb)Z)}@m
z?^_ei@~zv4vVFFW2f_jm;3{Ol8sS`8Ik0$8cc^ac%~(ftGg6Ix6zY^72Vh$Vuyin-
zeOCBE8%c;}qWPQn(E%JY;AZ~1B3&w2%I*)uup2*pD2{`^_|!oF&B_3s1SR0$E6#+@
z$Y^%JbR2eBUS0$nUepNKnaA=l14<5ahWWCW5-{j3{spdbmY2Paj_9@p5`eC5W)_9r
z1_kE-0aAnE9vT$Dru9EA)RQ<#nz5oEe%fKdw(AoC=S<=R!N3>Jyq>=m#G0Y&Cgp$O
zxSSgc?P3MU&~(Jo{{;{K6Tk{b5kZN;Mrd2~%cpI?Hfn*;AuD$1$BPxT7PcnaCMwmW
z0u0iS4<N6Y8;2)h=ul*UK6HvAkWH!<;r{|E|1rav9(xc)l>6O9wAOyZB)7Pj&-nFP
zVp4WXOZ7_glMxf}D)IiBpN_V+ck~mZ@!|1G_)59ABwax>#CfCwugXhX(VCszk*D2l
za$X$ot<esIQYlx3Rw(;mHsqB4c(NVsbhnEL%I2(Sp)ne->nyrG$63u_Xi|8kFC=($
zZEGltYCD^4!XtxJNIGcgqCJ1RkUve(2ZC|y$FMaxqg^w?%QHqAi$6}Z)CMHNOk;8Z
zV!+VKNf`(3Dch`~!FU9T`P&U8eL#+=yUdg{pM23KqAO}9jgR3ov!i`7^tEY>xg7sY
zrNHfs(rJvYs2p-I;om)smV3dk19{vK3k=)9V5F`BFu7wo?C0e@<?D95Ap1B;K<OHn
z6zsZRS1_!Q|1!)1{KtYYCHkic;2OQ&Tymf|+y9uK{_70&ZzIH{B9?er5I~yoFv$z_
zaV<1aU|N!h2ds^j>}CYQ8n+>^Y9PL#-9+otz_Q>wbf&s;B6rj#u1aI(*dY5WShosw
zu$$`ELiyeHlo=<4pGu*w{sIHRzMw~n+cidma3D2dr8v9F01b>Qbq^D%*mP5qI|W<)
z(yON3?u#OjEG_PAIbt5JDdueHS!_Qt9`3QMI#k4-JQ<mIbMHK0w7L8U8)-~m&>AA(
z+cLJ>kqu}Nm|+>nH*zF?2T!IK%@kn#3tSHx3Duw>w~SLP?*Z)72t5|6ho-@bVs%+^
zm-_zUKUiSJRxa9m!bdC#1$NV}^jaxZ$JO}W?iW9r44<nWY*nnroklSm7hX9E@>*>u
z5i~a{T;($Qu$n68r25$F#Xz;6+r?_=f*a;^(!+I6`n5&_$(o8an>E+AR6pkg5JvbS
zH5|d6;@5<_>XSaa1t^aP-)(SCPiG4UVBfhKGJmnEe^eR%ri1^{!<f&AFbEqlPG!c2
zSP0y~P5a@m6cTnEf=EEeg_<DR5LTeQP$onM>WUUBQ$JT*8u4QUt%GJ((mb}bX5awh
zS!?N!we`ONX6+1+LN&14{j?=$5BlZ!QPY*eB{+79*-jau;B`k)o$r3%J!prCkx`n4
zkx~9l+U&%Fq%m>Jrp@ysH$jb{d<NkD5K`wWzapE{$TR6Ntmu8n+KJ_U*CK;8Tn+j;
zQ^{~_bhEnc*i&tvwb@T^H2}Y`@+*FOh~>S00-r`!GW3EDuC#voeSFCl;n~Fmkh?4+
zAX)MW-CDZYKyPYtnc4Hz0YYE0-HqY$zMH~vS#4POpD!`|r_zO?KBSoV1r%q0i^&A@
z5LiVKQ25{sJqk@i)S>TQUx<#8y8+mDuEYxH#tiWVu`f|Blm|+Us6ZIXtX?M%6jhtJ
ziN#B>tE!{IvjHa{h5fO-$B3oDnqi+|3pR4?<+szA?U=v?(hO-_>MBNn8QyBGo8bl;
z?BMcn+HKM=*=T=E)Z+<f0<ultw?KBH`<J-Z(vApg3F6fkzTZ;U*E7_35^$~dhT4Qr
z=o`@vAXokg<XS`yzYMC&|50TE-~zx@;y>m_|C{e4|KHQEFBM!^+fNjVsLUs;0<hy=
zpwE#jFaEMb;vxO;Q%<8==)pc%;-{WOq2<44BD^4aur`xv9|r9Xq)0@m(`Xz(Z^8i)
zgT@waHB_UeS)(6MFhj{)P3{9;^8v8+)M3?=pLXvqD^hu%2?BMP7JOp3uc)KCGWDr|
z*gPHn|Ec)&H)LGap}vz5MgbjqL{LpcPUtDZhbjUfpXmjk>9#TG0!240owcmU^<{7)
zNrbl09YFUbK&h<;)BtgN<`n{|B|T;;wXD0Oi-tfNN(sgE=vA}x34i~KWf6f|T<tAD
z0&dP`)njRoeH#Fe`RwO!Z*O$?{*iay@R?^Se(NPJakZ*FH^h?9XlVTVlxdDQ{!x8;
zef+#gNY8I$HC;x79=D*m9mgbNlL3neoXH)DBM9cbw|~fPgpV;sEa2PRlVQsK_~)+P
z&uxDWinFcbR%Ym37zHhM@3EBfou9uFkKAhx{ARGXw)%XOHshkoDapUkJSjZ7ZM8*C
ztfl_PeE;(VXC3jDgEPsN5&8$fM>>oO0>E3H(oILBC9I~RM_(0!A4cHR^<tho2l8Va
zdr(=CeIfI$>Dn3ITTNEPfeda#_1>O2RzcGZMpadj?YRn7u9kh--r74G^WiFeXEFyD
z1$dK6cL$3)50$e3PuuyIOD*m;CFvtAPwa%PAK?Ow_^O^BZnT&kcK{O_d<NeUAG>4!
z%bs>q18a}mL$8nr(3akYb8ep_=KxV_7J!9rtaD@`fKJRS*h#%QfXS&E4T7Hz&@Zbz
zXzl*JZ1Ugh3(oVzflDR)gE%!$ehZY8#0u88{$UCWM(e_KGjQ~!27b!?<2vXzq!b&`
zi?=aV;?aEfnvXeT*-n>`#G?v?5&ZUW!skxR#W@H558qL0yE!pSx8aiAE?=ic%Q4qS
z?PDe+5f#6ebBIi@I2+^O(p-~Lve0DJw?X{Y*ZNx;ZL0E!YOgR57(#6ks$YCmLtg*N
z;G&_zpP(0!oo`&#$E94%Fd}<=Pnmf@0Wk`dFKO$U+fPd>59*5Cm&w*Vzjpg)758bN
zuU9sSM1U_W-<V4Cc`_4G8DmyWYn%|Dy004&Yl9DeEF1rj&8L}|i$1-+ohRBpsFyG=
z5?V^(#dET#oK@22xZ=KCxaL`G*CbZd=aTQ*K=1OUgqrTS_ePUe=9B3}L=e^6EIEHj
z1Ec~)k@@O(c!+H)(aJ=*%5ZR9$1I06;kLcCVco0eIn|5G_NHm`^ZnPymU>GI3m}zM
zlE%6hZI5EuC#4#Rn02L?D`BMszNNq1tJG+1qEB85*rnJ+-?ci+p_Yihg?;NmG@^6T
z0am&(PHL(>jy6uO?)WNJ*f-JfwW6@^wZK}6O^{H$Aa+oirk2z+#*2NUQUQL)#&*vW
ztA=j8&)K#0+?ss5Efc!(C2&WV=s8S%&4cd<?rOgGB>@iZ*G2=y<ouN1jA6Z{^7c$&
zz2)*gv35-kTIekAYjEYkdtT^3tS9ol1O<^iL^jdkeqB%;oN(cKrTnkaM>JF+S4>IH
z7^DidfW-$a-V?K_%fItF;!=Qhz$%OSVwwx-V_>yj5`?OtK3<jw#LQRrIRw~<p~Rq&
z2Y1rfJE*gF^1OQgBne-bVKo(_mrpy;b;$QleCp=&aK_o>r?jP{+u~T=1+r4mYXP;G
zX89$iFb%6TneOu9EA9fbc!#{@D!St*stWX1jl(r!+?d}`(OuA@U6A-|#)<w)Q`(gm
zA&b1}yGo0CsNdmi)&kp**$;Cx*m%*-@mQq}8)lJ6_~ua`dUJuiO#5{N)bJ3%sg&0n
z08VyIgJbspWrxiFsnb4FW1p|T<W-9t?D$Dkxjb4K=uT(<!dfeg3pOMUGXd0D#D6Rc
ze~|FTn_eVWt4*K&VTu<>pNW-lRJFv1<mUz=A~+RFRHLW6LG=Bh@|ride4{WZ8rqa@
zsz9t2*^GY%ee>vt6s>ZzJAaNNH-jrVoO|2!<66(cbF8@?V{AQ$x|Gk7(%R|^uLv_x
z524*|GF7lesMtl^l5dQL^g;8MPY;n?u|QW)6h%fdigEMJI{SiXR6m~!-@WOHMo6;a
z_z6&H-YP+FUZ2KMQB8eV4rm;CA-m1U@h&3Aj(5-7jN%?8M`dkw@9kfq0JRpyzECR1
z>lez(HLB||Ygbkd&d(4-`C&4Yjyd4Yj^?Fs$qMe@l(p2R*J2{y#WY<Blvurx-?sen
z9NI~a4Rw$;hO|K6JR3gXo4vZ#5}Jkf(@So7H<x_h;WcC!Jf<>#!U#7lOf4W8D!R>x
zsg=M*Q=Z<%Ml#R)Q<s_$&u=`ygQ#IL5vbu6J5BV;Cb3Fd4i&1yy0xQTnB!w4xH=rC
z&Wr7V3C8s7l6msY_IrqzQghr2yp<uFl37fA_&&yx_Wk?injM0(kzCi`Zzbi)5cG&o
zFs3sX5}1vt^OP%Ra>yp3?7g+`Lj&%b1w35sCSvt16lVgA&#Ztv^2)5NgW%T#KZoJ1
zGz31f-i<((aQ$k*nvograWyW4rIu+q#a7nl{A4QCS7uNFZGtFSdZ&*25cXx{QO~pU
z`yV03U^Y+>a&#cs^u)B)@Ar9V-QCsc_<p5k-u!txY>wZYL-qkj@2{<sN?NzyB1$(-
z{0xr-u&3y2Wx+yFV>Rz-vWQ-N-GENPqU%6QAk}7?-V47wzZTFXFhO)Xa&+AVjX@&C
z`N9i6_T!ofq=al4R#uDwsl`!cTL~qp-L8?ukgtT?5>$JZ*{FqHEv$Ze?iuqwRE$J0
z!-|^9@a*9_Ig;F=*)y4m+APUk*yUknT@|nrcBSq+n|5YwN>+5Ijfv|^hLbX`#8hU1
z1u(&d0pzHI#Uh-(qq&4Txow8azvzYqOEcXusSWEh0|&h3?stl9iM5&!r0;x`aa+2g
zOZ_7-pqu{s0a*SUP926#L+-ukr0#8Rr!0wzY_?C;jW8!!M-8|<4dZ<6T`8|CC6FO&
z)##{M{(WB$+w-DhFx7pMq!ucbDAE)_mF-jP*?l6w!~A?pTdHRAlZduX*K$dI%6X0V
z*GUDEBCH1^VWa7yP5viQaDiAJPcr_DbN1@`%ZObU*b<);3DZ&)($mLr3(UrAp&oQ~
zqKDVQ`jcy<YxkR!p;IxzC0Grp*Hx|2af=EyNS_{G4HDux!`I6F7IT#YK+m5(E>E#O
z+B=)o!x_;=541<}S=*ag72XMprE}#tr=P>z-1NW+%%%(GX#>AiAnLn@8iKUOl$lT!
zGxXm1v@Q9iCO!BRQuA~l=+E45R&!9X_XNS|W~XM1kfcS@s}Z@yG01{XZm#x?SE;b3
zSa_?=gu?wa&y>#IoPKw60t-zCJ7IPU_QN9zGU1J@N>nLo4)1bGgmg|NX8E@Ejrv^<
ztlsj%)M&b@QYOK*Y4BV#phCD|+U3Jr*r2}1!}H%G3x9Wxc?PE;kM*6#x%J-|U;Zvi
NT}9`9v6A)6e*?Lo{mlRX

diff --git a/reference/Rplot006.png b/reference/Rplot006.png
index 3859203cb29f13fcec8ce7d582a4c1ee867347fc..cf2bf0d7defe00d8ae1b38ceeaa665c39dcc2ae0 100644
GIT binary patch
literal 13094
zcmc(G2UHZzx97}|MKY*lkt84>A~`8YP7;S4L~_n?nBj8-1&K1`C`oe842<{z5+vt1
zh=Amr(>C9}-Tm)7XZP%$J^LPqnXc}x>Z-c;cYpWZs-BOpH55ti(A@!nKqSgaue3oR
zF!uICh!0$WjkcnI1O6LT#aF-)_&bwph64v8Hzh+)5Qv!a_5&WC3%&$_9)gr#z0~zf
z+nVzaV(`8?-J9UBAHGl`=Edt_e@uNR-j(9z9bH@sT-_JFdK7!bS$_pJhMV)pFmrqS
z$R_;qP@9}uezEw`>k<apmroR5R>T({=Gv;HKJUK1KJ82C_VKM&7LiE(eH0{lT-ody
zv?7(6o_rEyV`KXwj!pUh^*?uCjNT4n)7f+-w(b+m*}J~(H<vg3D^{h9dkw_qZAdf7
zA7K5q)z@ck`@i4e0Pdhh<8yIhbQw<g#%8u~XYrpzn2A7^szb%7{Xll0dk_(jRdr~x
zvMAd*4C^@L<_cbg7(?1X`e1%Y*UAU0JBt<T4p?WbxJ9)_pQ6yNw*}X(xSK}Co+o1y
zZ$4=i2_z%Br-?$z`{^b0i{(xH*j4z~3zDG|`Y$``FIaae-H4vnyxV6Pb*9>FG^lr#
zpWE)It4liHRzWMpg}+vv{2>DRPAHLP6%rA`GW7I5$R5j-MLH=>S3vvVKF>z1U4w#!
zqs7}pDUy<hPP6sV-VxCkV_#=TwA5xO;yS0lroFj*%DuGxxZm{6NC2DgtejT;TKd;_
zn|tRt1Fse$lv_boZ}#p+G>w5azPM0%e$v57qdbBOIEqglfOl0!w`vUPBXV5YqP=<Y
zTO&&ED{J5X#Om~60xVInN0IrhhCOo5YR>gT(-rqP?`MQ-q_^=s?`FyIQm*ym%0Cxb
zlh5luk@(t<Zhd*Q!fMu;QMr9G><-!fN?O%*A+T$(=_$}HvNUAZqN%tbLk=@H%1S$J
z>F_nW!;aOlnyaF6t2{DwLMzR6zSlrc$y!Kd%b&Pry^mp&R#zgF=nRDk9-kHdx%$Ci
z-AaAY!mU{Eb!f(j?kd<5cMdZb3@bcYx8oordIU|=yeHtI=pC~~jQslyj#;busVUG(
zkItk)!}-Rgbow=r`bVkA00a5dMR|>a*J>T(zP20k++tJ}0o5c(&j1n1emuw~@hmBW
z!Uc)5_`s@DshD*A-%Zx8ElUfEl%%k6g*hF}B3?d9wbI?jOP63uUtuQ<BH{b2?t;jB
zKNu^8srh>0JaqB2J$q$<A})}zgLAIIFWtsm$;b)jTW6LVCkQUC52QJjv|N(8n?&P%
z16qu+=^U>dNdDe(l3;Ou69t>ki?D8?yJ*qdJb-(@xeNlPLx2$>;ys<h2&aFjrZ}}f
zJe&XesS6>mRiAD*vvT>d0!JX9YT4Gu3%|2T{RdsX;L%)iK&(nXZppmU(?tiY7IJ)`
z8JR$a{2u8@2pxi4@-M;*j4Ao<I^;bU2{E8Tk+=yt^R_Nx_K^BeMLI%WAp|i|Y3oVM
z1-XA+)cQkXp2e1R66C8BO$#rIk?vEi!|VA!SIw2d{9V#JFO#BG#kG#FhAy;_&J%nX
z#p+P5x>gBee(mmL#8|2j`E|I5SOwCJ#)-yKF72$jPagS7n1e2u)QzBmcgr{<^%rHk
z<xdm_((XSnL)iW6<D*_tDehHPEm}^h>t7?WZ-D;kP9N<O$o>il{Y6G2qiP&c|GqAl
z$g-8}5!;a>(S4&iledlJlpFkrE5cP@GFFqv38nvLSGQzSIMOm}R&@7$nOzz3sAhQS
zGjK6C3ifGN<_AZ+JQu9{8%Emn!OrXHh1jA=4+*+*9#W1=MlR?SYY3H!q!da+3bohJ
z!BTTYpH=Mec)QFce2@E2Pd)8o!iVCJw&CNpKJAj{AX^A4p$N|(zPxaunfrFlBU)6J
zX5v<4?ToSF8v{t5cM`@fic8)dOh}%;JW(*=UB`A3{*)>+uJ(n9UvQkFyeoL-0dFAr
z`uS?*4p+M~Ya(TtTmRiusX3169qL>{G7kgN%h=<SPU#Q358rdzUGV6(F3Ko>Jus|k
z!?WglN9gS-x+pz#wqC%%ZB1`7xA$=C?S!S^qQk*CW!G4-UQcxStOFr^^$x`~{=R^P
z$0+|b^SF9tMjbta*Gk>Hbgd$TYIP2$Btc(^b4$)HxXi9b;k)%t56|RyTO+RaNPfDU
zowmHv42P-Hgk)Nw%9Eg8vpb>`lWA@|iiEyDr$5GAl4fsJen?)MQ}Ua9$?NRf`InpK
ziY?(y7dma1`FEcml>B-p=#jIgPLEKKDfNgxl0eAhbB=VC-jI*)lON_XjdxikDR}Ia
zyJAhlPAd0qs`8i|DHrXf8s8eBj*vI9*B^KNTKW{KGTd~K7liaxf<$Cwr##Nl)6J<B
z+4d0p!Q-1QlkYAsXF{DRvyTi_XRMZk<t`+s)756seg%UGh>aYNZI&9Bd1m_6Tsx+W
z>@5Y-_bq7!7ppl{sR*1Lml-N1u1UgKYVSaL(Ud`tCh_$;;$7eN%PwXfKQhau*0iVP
z$&nhB%aB=`NMCpA8Clt?9`@#0B8&{8qekivcsjURZHkr^vGXc(gRtJ9PdMdRq~~iS
z3TihM$h=E}U8<Rzb|;vY5oMVf^O_Z>llPltMJ_D%RtCdum+<9+PCu1~Wd7YcuwjuB
z(-yqXTU<X>H{X&t+v_Z_VJ>Ca^{93GUbDv5NQbBgN(NcS$m|g>_~2CadH*!SQM>?k
zL)8m-p`uud+tPcJXFTdsi<Y2wggiYAvc>rsZVPiSkt8cZNd2F}HR&7bL)S4&nRo6I
zyWO?SIpvvl-PA#L{j_GHI$@F>{@NRkdR!)^Wg<s7u=qa4t(8jM_o?MOtsgI@g{9Sz
zB=|`EZ@e|GQzYz8r_X$)9)&yeTH@%aPhviOT5)z8-RggwLB05Nvkb}R=F8dpGd}jJ
zZ@TF#yl&HDgQ)F0c{{$B549rWVttREkCd~wS)v})^UL;oO1Et5oo0*+lI`Yo$we@7
z#vu5eo58cP99$E5J9b+p>jq{^|K5g(x^bVf#SNmcmryF7dlIbXSHF$*6$k6&l3g2l
zZLWIjw`IFFbfLdKL?kks%Xp$ZA6wcM=X~FnvupcaNa{z}RE1Wb{Nwvuqg|mbq@rH>
z(Ry&;=oJhpK`2CZoF%yWbGQcH0KyA>@0PSJfjkJcZ^sYBUnD>HTxsBoS5~mKYuoBK
zG3av|2yrtTbrxHEt#4y>DApb-&|3X8%I%cb^T$)q=-*?=$myRowf)j6#>8x%b^;?`
zZlKh1th<)&p*CEL0^VH;0-xAw9%XPk4Ki)KZTzW48%-gcH6g!LV!3oaptr3^xH>cb
z>L_Nd6>qUyJ-KR0fB5=wdwOM4k7Ph)aviS1s4MJHY@rIO?#F;NY4?m#9Ik7Tx)YRI
zA<*{mS2@quN260B_JQKVccvFO10361R_TMq7WKbKP;S2+H*8$z9FYn%bk5uI<*AwV
zsk!dx9Vlte;R;S)cVdWvr~mw+*S|nmdSg!M)3@LKB$_*psG&+qPBcwCqvAx2{8Tq;
zQTpX%#R);wL#LLkt@%2B#U(w8{-M%-zK8jP75B-vzXu9fF3;chOB#GLlUgVByAgT8
zWh+z2!J6Uq?4u)}Gnw3gB$}i8+lBq;)`v;IW`&Xd1bn{8{F~Cpp<t&V%l;_LyP;Kw
z_D&lR3lZ6;jzJ}*x5?uJfkeEo#kE|5TI`V|TlbKWQ&&z;nr9u_NfpA~lwdB;GbI!<
zmjtY9AP4rUe>GBGd9=URIMSNRWHXt>JxfF@BNNWVWo6S|G@w@dk&0K=p>uy7m(~V7
z<DJ@}iVN<P#8zw3&XD(e*00b8JIY2#s4IEMMI^b@nH+tdld3MM8}!jK$X>2XI^qwU
zgE4oM>!e5G?3Y*5Hum@@R%~Y~8Qh4l)<+N4U4A9x!1mOIxS9Q-Y**O@(YxBQY<ACU
zPBu%29Y=S)tI$Tv+0o3Y8^j)Ti)_LvjOfV}M^1$;T~BK4POq%2ThtmBb|CEv0onuy
z$+WiMT{=tF6i4YL4vOPG!7viR=++CX!>a{kfFlP(>!r$}Kd)uZvyj0r?_*|d6uze`
zem&u6&#v!lX(PW#^S^ejT<+|;pm%dTY$c<wH}OPW7-LOjdDcXy`+sUY9ED2eH!u(S
zFkOt)wDpL1P9BN2R~@)eYp(RH1oh6}Ct9@?EbX8`j-U4;Np@ARV(l7(DGUPEGpHCl
z^Xx10MLMF@_=OKEHwSp3<}VsJEO{+gZ5&E2-}Hm!w$Hl@LSm55psKz#v-gZ{swU<*
zxm?nx3y9rcTzd;kr*C>l)2LgiKmTbh)>+K5dH2arLDNELQNeBpe_ZaJx5Nhj+f1Qw
z;Lo44D71=rx^(#Qz(*9@k#nzh;b;jPN7|0NJ6cbO!$Mg*^>2^A$gE=6xWK?!9Hj*$
z;eQnMGxz%h2kwe3$LkzN`#Rd$eU-){aHLVXYVHRsKk41DAp}e_Q+q3Y$%3bYa%56P
z5^ttQ*Ouw)iVuwLB-?Y+%JDTO3^b@1>9b5NREYd>guX1kZ|~rsV(LAnCm}2%;#$LM
zsG~CyFm7mz);2ayjq<(efwp@5?Fzq`G3Pg~D_Qv6{kiR_@Aj-CJ{i;OGrwJ|?<&xn
z-^rY>>j$!%leQb!WR3lZv>^QY^5Z)KGPC_We%M+<1Ygsiv+cC<@$qqPLi&0gO{t>~
zVa&m&Wp6rF3r4oqS)_w)d)Ipoo1Qt@n0<~(_JM9RKY*WpXBH0JZd_GZS+BpjzTlsR
z-&{dEo2?Tx5eW$iqn2TeK8GcS)lm<GohD~wE~W;`q%U{BC$1RlvotQ(O01Xh|Iy*a
za_Qs;Rq-sL4~JE8$fQrPn(^XH&MC=)w&UjTxxA4?^m*|?wfThk$=sTtZGTBL*~0K}
zoKcP4(7ham$Z2xe&A>kVa<A)VDV(QlQc(JGeXO{cOzd||M8D)g--5{V=RqqS_sv^&
z8&@-CJm#9btqom$CN0CfQ>$J^M7I@M>xI7=?<gxPpVLw-$PC<u2JfFP@HOnMwPiBH
zO)nB<G-Ng$@7FnY+wf<$T`u$22VHE{*BdmrEy4#fq%I@`ZTco@Jot-aHutBE6Usd{
zbcp-_1$RNA&;@C$&QFyi`Rb{Xc7s_Pict(_SG0mQpWeHDbt*?6pKl(|xWeZ#Avkc4
zv*pAcLbt;qMfmnN0_ICEo7uOkvhGy##%+sn)tq;Gg14?)&q+#4OSfE}3j*p50iNtH
z0Tuhqp>8A%oNq17xiqciJD<$Bwh?H`Tpga(*4C~K<tVzIZUNv}1>@k?Kz<vA=4+$}
z3^Mx8R^lN^*6U_mBp9(jSfelPOikz1t-7MFjsdVJzRiy<{`Bc|5&e&9>gtXYfC5AF
z)$vSbq9fBiezTUd2KS{_;oC{^x1Rn=Us_rf*G=LdH*x<7=xsM6aQm#$xqi;){9@te
z+8(5u$j696m;L_CXzX(nbjy8#rfD+p;G5F=`SXpju`xjh2M3q;krNZL-f6|H2hIfH
zSB%qzDtggZqg@0p-oM=6{VE?~zS>22HC^3kRwoX8dq?2<K*DFUoq|>2c{II9*&Z;L
zRHDX2y+4=xMt@EQjsmHhOMD75&c8~d5S*GBLAI)@y`v#G1a&Rv>%~_0`OShlZ&4me
z%-`Z>WRrAuu(|_alkDaeCK4MxJmr_qF{ZwA-XmZF1~=$!<E3aB=~a9aRC#T!5K1L)
zxba*M3U&1o^_p+-KWg5po1q8s=$CvgEGuh8H#MCf8&=yyp3dzAi-=D=^ZJH&zpr(>
zX@eB^bZQ`2cpLkUEW>-ox!$?a;@e*WJ1qzOtFA43osOE)XTL|l`>0qN&oSQm*{ZQ7
z?+yGCquTZO+tF6i@aTW)79s<{Gu<C8x&MPK1Acv0UDmSSGaxK1tlzQ96?pB@Vf45R
zm``-3kmERwrsUq=yrA;7>vN5%4HfCB$_``evvp4B$)@+-`9?W>CsvW^Y&AbWpDHCa
zRr9ao4aaP6sYEr#<!Mst3kfg1<NdR4&0vqcmjsN@eS6}$x-^oXEhhn1Z|nI3T_U@h
zI1$taFAL!JG2~U0I^uw>Gq`c19Ps=As_T?Gp0rXVVV1tMTJvfu0stvq{W3|^{nye`
zXQbmNvW0T<HZMIry?&DVfT(oedH=2U_r#uc2phnzf-X<@$~&8HLBzux@F)8Oe8V8{
z=9TBIBKpjNTdnPG8O@-=;+y`)cxmzZUNk&t*ERScb%w9)a(_+(m~|T|lVrm(pi}dv
z;Hz_%vmQGqr&+u2;(^DTyc&R*74h#r7z}79;(Q`{b9n&$oe~C&cS)vq+ogHyc(ld;
z0RLW5v`OW?aK~SNe~h;237h>#e(2qH;&%$49t_>xJza{9{;4O^*koHCu?m2GHYZAa
zy<u;uYsYi<8-YylR_#Q86q$~lDL>mp3(c)G%a%RQ57%x|q+#c6Mn*>3fFLe90m|m@
zuKh=r=|0nIb0)U}-BFYB@x2vj5nhYOa?c`&`4UU8AP%^bU^H<4+1SV^KYwIx=~<Zl
zFCJfRnkb9$v9a1RlSU7NM=y)tIygFxq&nA4#Q}(Ms#y{P=t8RXFppn~YR6~Vz5sn*
z-*&b2U1TBXV4Rniw-C_(XgCdz!iz=gKa*C`=$p;zfsDiL<{i>$KpNwkDbMW}Z&|}t
zM@MHJAgGe^(o)mJ@=r}oO_7vSe}AO9|1(LzD)W~0cY;rvha4x$7-OaGVyXwEn@_5&
zd(U~zS{fD(24rO10jJ<spCjHKRr}gRNJxlx&)u_>=j?5laPZ}6ZF2CxVbgu|s}?;I
z>~Ltt%y03%BUA9{qVlb644yuHA6y{o@zc1nO%7_!pIJX2u#qrf;`#IVb{=@d_eRT1
zn|)6AmwPXkjr6k}dmYObWT0r@e5U5+jDXJo8_?6yh3W(3JU>01LMIh)xDT+TIaE*2
zyUQlk*~dQnmP(qB9LGy&*Tt|s&pdwr$md*rvUJrYxvO!!@e$5v_4`Mx`qYvM;FIB^
z7n{{G<U8YogRjwVI>HwNchD#6eka*-VRf@Wd7<U>S44Diaq&gRk6707dDzL^P3=PP
zMd{^XfeiZT!au~&vOAJ_eW=Qr8MJ=|0=z|_<79;;$vb?KCja%(!qr)~?<6vi$GQr$
zfa9K5$<tl~q;78FGi6Oc#whM(ShiR<>(L9>OnSNqub;9>WlneRq^<A#?60b-TBao&
zUMuKs?PzbWJT@_5uCL~_7wOx2-aQ6Tu;f<F$Z_c{UBPdz+rAbT8@ElE1(tp!8=3M(
z$Gm}uHCVnQ;P*eHPvnE|wYauW!O=cjn$S;xJI~o$>RlD+VyM35`Y9_60xS~EEOWij
z3Xqa-j$*V+4}j+hKrjD5x$oH!Dqy|%e0n5CI)u#XHJJ}!87{tnAKkh5lM_8Zp1cP{
z5g9*S8x}*+JIy<-fz3R1t+~Z*a^@p)>-L7+sFdWtkr$(47KH_L;$DBoZk1DgG;Tc5
z2!tKwn|%!ccPh;7buq(-=6n~fYPZA7%O~R(viU1B!mWUyZ#0p89I~ymieOhRqW<?`
z+u%gmU%@#1?Qv|iQ-5T}{)rF^<GI)1n4FL$1S~`g<AD{x@?kj1mE!_XDvg92IG6~`
z3#@{LxSP}<ncuynG!wfxwj;9voTdH48Hiuwr%I)`QQIdt4hM(DoyDVU%4oH`OLkkr
zr!;;L1A<(l)dCTMRx-&uk}(EeKtt^@3?4GUh0gBNJUyaZM@-^Q92@EtyD46}0PY`6
zrFN!(1hyj;R1!j@BNk)me@+5+!7t-6ejdlI(YE-VsjR4MzD0MrwyvgRrov<F<tviV
zCaoje*p-7kZsv#R?6Vu8QnRaG?S#VLNAbp5!FNveD865T8$>kQtcY&-6Gp?1=q3FM
zKFYLsMQEc=+Sz3cYJM>fkg}*?3fI?RzOC3|2{O8RJ>?$rvsn|f#^X>lh{}y$hwBDs
z`$wrfX(GPSLCf%vs<wFoM7uB!?ZK#^hN`+On)k`lrbP`yt|9OFYu2G<FW8j1!&L0S
z<|LyOK7<}<Hsy6aZmvdCt*ixW>j>Gn+-G0o@3|>LIWn~q9s_kht0-g4x3X@Wtv}x0
zER4r}qO6_y=3nFOe+j++{}f+;_5umWg|LR)!r&2>AHy87g1ZE)0RHCA!)qbl<*wiy
z1O+`XxD!O@mmHJEuDmV;+_==SaFwORKV@;laT9gJbz^sPpjf^Osp}hYC4Pvuw^UiT
zsm0W>^LdI@l>BY2l3Jooxm$+WsN8YI2~)_tAxnDcPUOdo)$u=fCX<{R1F@qz1m4vz
z9CzV#elmlGw-1+=7LM_wFO5ce^mh2={k6IDR3O(hZqM9253fYAt$z+c*r`Xo{!asz
zJs1{et8#nvgjQIY=_FUMII14gg|&qr3)+IN+qL7_QAT-eSkI6!U@dFM74$i0fB@XZ
zK@rcUJeLOyO2y()1?^&cMMq`u2?u2?aP_M;rCaAPu<5~8$iThqsszB7>)#vH|CAE_
z|Iy38bn#mGR#wCq;h~cpL^FaPEToLbuB`3*H6AzU&aS7$(_IN{TZm2wGx&2zIs5$-
zHsw4h7jN$xW*(!0?RtU3LR*f<gtG!(;QNx+jp;f#oFVeF`OJ!HvO73$k|Q`Q7b}dn
z78Vv-Xtgt3f(=c4vr;5$DKhsif_L}0y1)X5;=ET;MUqE%y^oGoa~+C~AM5#-madKG
zTkiys_*Ls#ALFCq5Q;dCUj}v*b~bWOI4s`AE=$t$aL$C~ROP-pWFFk1x}VWHLqs(%
z@r7;q=hX>!E9|FC>Y@yh-(l3uU8(ctRrM!6u(iQaL0evYH4IFh#yn`@%+}ew=-0ig
zwQs)nudG-21;F(>TtufDSSRd#OeHd5y$cbDkVDAaH|$s0ulMl9Rd6;+8qS}xpUK{A
z^@J(+IM}PZjyj)KOs{C8$X**m=S-^FM?G_kj0jxo)w{ma6#D$Vn-E7c9--SKhP?qx
z6SmxOBH1Jk!m+~(CQAE!%XuiXycz_Qsw^NXmGEx#d2NE!BjvazEdWwM`W%c10593v
zq%T$DMhlVv>QzAy8N}t{{>K(|0n2z&AwT?5DNdIUP((R_8RVLjf#gtAm;o3oG>^>!
z5sOL2RKCD*qk2lA#7=t){%l}(?@dYwCxQwwfD=X)x2umiK`>Kmb;e?*0IS5GtzWZD
zFoT)?6vHVl=6j%PI${vMpE6u3w2?Z}X5P@cSEC&d{Um_nu*0aUgNBk6j%&x)H#PcW
z;=I*w<{-YPFD-9AJ<vZ{|D)yYoyYCE80U?nUpn=a!mm`<S_S>m`{sJ2h=8Q!iwy>G
zl=ql_ZdiM4xZyfBf0-wmSKfbFTbW4Ih1bpYaQcpD;g7vwX0(SG>4Vy}Y?N7>uHF?Y
za7)yqCuxzL%XL1*o8jOGacW|2#iJuty~yBQx#nov;qoT7<+;6S%GPHWC>D0E5~ZB=
z4TtN!3)ZfLqLzWQn?G?9JLxi6y35LFd2tk7-IZ<rc=WVuW?X!|<(R`t+D)kd(CQQS
z8o8IWD>#vZ5ee9pE*DY5+psHu*onB=!3Cd5U&Q5l6#ZxL_P_AMe=Q0bE^I_FxcYxw
zQUV*}xW3Aa#?$zCens6tuaxMQ6352QApsuf8{$peV~<*5z*@>et{?3ZVU3Zw7i}0j
ztRj0xKAZB#ZjHKTPD(rzLK7xf2I=PA=dTuINH2l?rrp307~uQq4JwEPRN{1>b=3HT
zLF5R-LIvl!-5K~n#uP@F4FpMLFz<_-N4?6iH!VKgn!d_$J!P*U^9+6u&s*qOl%oik
z2#$H(8EnBPkW6qtjti(&P83&)v7zLLhgrB;V+o#uvvxdSbxPT|K{zY|(zwsT%@AgM
z4lg+dO)w_~si1A#MK?0x*!PP8paUUbE0m0iFZ3_B2MytakFMFBR~=RDNh_EK$sT~7
zEARu+Ou8%)uvA9}3#NOZ-0-x>T%@Ze<oGs9TK5JTUsz@GLo!$x!moYm71)%unO{E!
zGgDjy$t*%jt}(w{B9-EDrLzW0AIl^i!Dv{{Y<v^hjMK2d`vH_qx9<Wdr|Uij%Zzq!
z1O8H}k@ThQHi4=9>4KAE$$}_$Y@1XiE_a>}3JHF`Zbl;c@&fmgd-0|zj?JFxw+co=
zac6;Z7Nr8r)*!n$Yk+_Q99XpnhnH{EeE{Z$0}RiVd^_}r%0k}1J(jJ|^>I9608$4U
zPvp9%9C!Xn7A}_ptpmb{bt|B1L`ZQ+C2|$qWq$j3YH?hc{OHXf!&Ti{h8s|Y9;m|D
zbMHNyGE6O7ZV(u5DzyXH_AYzciF!v9dQ55&i04G8RWPYIWUn%Pam*e{#_hUWEVx9e
z#^suozJ|1h?3!c45F8fJ_DC^~cosfDwzaaW2${Q*3^13Ep)k-68L#p%2TwfWV(6GH
zw;&|;1zfn5zXs?$S2iqbCmPmD=ojkt_<UxL4sf%u7l4LeZ5~`9i7U==BASH&T0KYf
zUz45YU{vQQ013d96#>;f#cQ~4K*T`EF!56W{0X7~(qOw}1jK5_4uxodo5{EF=3X?c
zpK&6ItMb7EK5`6uocvpNT8K7r)F5UAK0BfIDsk~iCaZ{5uxiK-&I0cEt2yH)fv8fe
zOgM<)t|T3-4eyj`H`XPsl}*_i#RHasFpva+{P6rT>e^UQ-wB9(XL|hbMYDdmN8|SQ
zkGKkATh%|P#&LgZn5OuComN!FHHE$$DJ?xnO(?I3)v;-$-0j9Z#JXW^+I3>f@QR4S
z3P$Frd)Z`p0)@7yf=MhDvmUfXn>8{hiq=0-mYVu;jy`5M${5k)ojTrJ6YMYL(KF;W
zYnA$1i%G}4YCppYVYsmi809(gu1Jh+$Os~^>O5VkfgLbbw1R-9oDnD}(M`io6YGT?
zr|fc92nlY(6^{1{01UoJaFyJMs6JP+HuX(+*KZyG^C~`+06=I4ZUaq-8V0C@`A;Zv
zOM&?{#6f^_l2acBzbeBm^7L9@Xdtx%w`z~yf?ok}W15g_!b^_g3tEg?R^tzkP@I{S
zwR+yc(f5;}I-F2%_gRx+%mI>-n5KYqvhi>0R-6{YU(eVJ9|KLhz%n2X@O^Nk*2z8W
zMEYY}$nHnUD<9m9H5Ip<b%&dPKa&(VP0w8TqWMit4;;QX$swllxU0!T-?o4FR=+JA
zG#IK)bBbxFQN360N@rfQ&sHc1(0v<mnubzVHNq7FUzZiD{sQIe0_QYQ&c>t^B^2Lm
zNSV@!Bzk80AEiTY(0qDD`{y4<hm503qz=%=s7<B6k%5^;W<^zOh1J|!k4kJqU_@bb
z%%F32`Y6C1=V%*Y+<B1^RW`5BJ%i)e^pGlQ7}|(EApXoXD;oYM#NhmojVu0rZ!g%{
zu|pVY3xh-0qg^2^CKm$GNHY+9%rhqu1mXLEMHw1s4epu{2R$pq07@hkQYIj8q@JYl
ziyWjh!~Mj<hLr*NLfW{#q;X-~{m-{Ree<I)0>54xAC{vF>o|lebn%3R4*J`VA~SjP
z{MTvM*Ea^T^KIIOQArvie1-umyV`3#@d2Sg)<lJv$Qg(T(YH|EypWbpIAGiL$p{Vu
z^O}-Wgwc!pSj@3ZY@wIFYSV}w#WwZ=$(;G;U!!|B7cx7lc`7=yzmlV!{5G~_`Y^a9
z(m=q!>l#vt`RmVx;S2HeS+XSKw_+r}&0{%1?5Z!MerBZ<tuTh&eQfCOt*7^sokvZo
z2g6&BptQzLFMc0pBx66)KzWd!24Vl6JaK%J8I99wG=IyvW<X|Wh8x7M*(MP}V*N=z
zF4qMJ%dxU*t$<1kIN5-`l>kPn3N~e;r(o5%c+h`n5uu`j!9hrcEQ*~o8qB}`XSi_)
zUwnPA4E{Zk`OkGYe2Nv&Fa2%a#Z)0vLH3$V4OE7&t&D%0dK4;)BYuQnhK5!Zu+<oA
z3<+jcLaYD3g^m*)r$BaF2<R!Avj2)Ny0sw06QPPo4OxHGdj>n~Sr)a>osf%XEA--C
zCO<rL3Yx!<b;L+=b80BZseI9<oT<jt9~?FlJ}~LLb@M)eNrO{}4~>m)-5vKkVCX<n
zM*E+elnv@o?iR$|#(&!DKvFXPPr?}Q5J&oOA1|xv#Z9n$f*{kRjAk1eF(E<qU(-z^
z3>3#3$@rH^`I}M#{T2UGJR_C+Rcy+p04^*LJa-P8OMX0CkuNtf3eidr2Q1%38vx9P
z_#e26;TIquRRc%}Ui<F49>snKh^%t8DFO7r!v7O;j(_2XQ8vaGeRfz;3v&zV3I@Ns
z4a9yD-x>ftH3BOkaF8Fx1HxHCHG(pNbMOG<^Jil9xZL65_<OsN7$yw8;hZg`9t_9x
z;r4wU$L5^~K*kCo?|;tw@%;Xh5_VJaN&(ci{?-IkV((&z9>~1j(}#BcwDunf70+Th
zfXRuYPm48g0=p6GMfuwCZ7k_!E-scYOLUfGpwD$t9!&Q{gli=NhSOYN2XbV6w8p3}
zwbaWZ&+Cr~^gG2%o35AZC+4N$-4c0^nX|;^rng5s_h}+GPDFo^u@~p$^-fHHcWheA
zU7gHMlRcSDO`uS8Hqc(E_Hbq}K5F25Q=4>UL($&{gD%NV>h-N>htPgzNUo|@@Imv&
zIZpALbp2NUuDRa(vj^}ERV`_I?X{H^k)?FH#B#gf^WIfdNtAGji5|fv=X?SQ{k=Z)
zVYqx@O3I3MeCB*bcAd4HYS6`G#pcI?;bOB(X!lCC|JHQq>B;!Y3cDu!tmT@Wr_ItC
zZsENW$enH`eUl)O&>Gw|7s;OdLe<gRaeSxbm+9TvSE6KTQxye>pTPRSg6iXc0yhUN
zq@79o-<IPPuWlE0w3P{BzLRIkun?7RTNwPGy>FVEv3Bu7=kVMk>RMgQER)~ZtApz~
z*>^-Hd4|G~uf@cEsD6!UNFb5>Jn<&w#>9}TF43J1vc<DW8BWQHYb`9s10R|jwX&!(
zT~2^H9XyO$$>uB>c>m8gBkzWkB}_jVMk`wV&ax<k29q$ytdR)pVQ?Y_DBdjGGr+&g
z?`ptUgwF?7faqb^vS=S937H7AX;FrMykW55X}6NAXK_mFOc3e&D?B-@I0V+iY%~;Z
z8ujZtbozXDNb(SQ)HrF4)}F9s$KDk;d%ywKM6o24^<;zvwD%a(Y#f_n<2~@l<f{=k
zJ?r{?uDV<v9n8K|Zc52-)`~X$8&WDr582)ahpCun3O+j+)R|Zf>J88|%9PL@+j}_u
zs(|X=X~v^!wOp$?BLs}<L!O{Rh!g_)nKU;-JRI)Xj=$DjB|qwawz9~S1wJKynmzl{
zTU)VBPSYTB>0pp*Vl|_pq!{8=BO;7w53A;WS?2FYB%0wSYDa7#w%h!yYmAnwo#~)a
z?EDBRwIaI*52^U3hNFlQ{HnqIoQ$0En>0qe9lws!`#BjP$9^F)DQg&?jo}W_hUbtI
z*ta|yu)7@&MkP*05QE(0<RwD`gF%wrtM{gNo<n4m#AEolsc(*6kg(XpB6_6KW`<k`
zRT@Blx-g18G`gJs`p|8z-hl2TMDqk5rdF9?2rnW;lbmn*lyH{`JMd8<enB3|^LQZZ
z%CauwOVa5GMjOkG-F?<EMw@;{Vno!dm&awp#0`V>i;zj#!^#e=(Yb1vIol@{IJ;iM
zAzt4ULtY}6msl|`F)-j^GhVWcnJNQnt?z%8gEb)M@(Usa{TwDHI?CcHVFMKX%K3=7
z5Pk@p+ZG}J*hZ}A@ThT6Quq9PRwuz*?}H}Ab#y|MnL38Z@Ozr70T;Jkw*LclgHw7$
zCdIX)fjvI?FPH4A8$lWBBmNZ;6>Y^m95wvwm!i3%#G++=0zSD({-Weba-t^}_buM|
z%Wb|EH~^v0(!T#lc-zjf{P4)|fBW{u|I(_uQ}ELUyWP!jL%rpm<as=CGf2+&rhi(c
zHlod}kMaU(i<}A$Qlsbbw;`lGbT-0Ii~8KbeO%wYitUZ-Bhm*_wux;&>*3tTIZ3n+
zNQA5=+8f1<7E9u)g-cI>c5s+*T0a}SayHAlpxU(!`7AEh&!g)?d@6^T=oLj%TXvPg
zX$uOaf847GC{Fl;rUh_DeM(nhI4U*&tR;2O$c*@s=|Q^Qcmz@|OB2k4xM5){UI39`
zypj5JFBskMDxRclFIIZ+fqlUD<VPebKDa*{$slRTur=EVk%1J47$df<uBwbNU5X<H
z_-dRd!WM$EsxS!)h_fQqvvPC!?<6=bk?R)1&Jt3|4KhsL=6EKrl$>bauZYbEV9cwU
zyjMilHh0&)UYOy%iDO&dC4VZQc_NoHFi_#HS`!{aZQi$jeaDR|TmCt&A61gPsHTCO
zsO{;H-J}fohS8h(j--lG6D@z0`(OOe`*|>TEiASTuLfGwB7ZHQV%Rjpk9zx7AInzJ
zQ<6v!O$rOATVnK)`sWE^`8x8GFU207Uz1^}Wq(a)#7uVn-E%?v6!F?sFa#E!w(8XQ
zYpu_97`3R0qcK1g&BhfSM0CnA&8N|WLI`F+Lc3bqAWn=I*Eq6{+)Hvu&v;g%Fuo;T
zG!9W|+ow&rLB_~~J6pyzQ^ExEJ?lOsja0izvcsE+IcZQt^zsM(ZF&qeXTS>4VR*&=
zkZnxOe@{I1P8vl-PEJ6$vHZmXEA;Fv_;VR4{O;~g$vq|ZMHagw_8D?ge;bLUK{_Kv
zJE?7XJ5)z$6wHj^NhHkm5nC<qmx<;VR-;$n?3&J~1^f3QORgG9MeYO3w8xCHlxZ(T
zKLt^5ea6-zf2S8mk+P<#wsD_J$HmMpWpFao_5UcV?t5>RURqH91BRQGw2)i;os830
zN{L;k8!D}m_x!_PkC=4v#cN=7mI+DX!o!lC_ou~|FwD=FB~7u9)67R;iJIGyt0GXp
zK7C4*%T`ju?o5xW?3hs@36AJS{=VdJGj~ecB3dn9V2-f%k6LRb^UHZrLfbK})5(gI
zTXMZG;8dvg&_s&go8B0+zEwm>^!o;}16Hj%pMcO4-v5;w!iC8&O&gbO$J5s#lBnmh
z5V2^Rd|E!#ng{I@eg7ot%|MNfFWXIHFC$S{Krzw5^ea*3l*+iLH|7OfCTHZbbFie>
znzRvwAH5u&&y|J{hXjUyXskX6vZaQK!P4BgW!Hr{EROW6iHK~779D0Hh@e+C#`q=*
zc8$C&CP|0&>Pg#{$hTE7gW^9;{8RV5+fm<v-+@Tb6|fS3Z6O;(ykk5EcSXqj__N<P
zBV$Zl`{?oo!Z#$4toY2~orX#m#aScBdk3*dx$YDB%=^@|p0+DzmhEC&9?s=H;9zx8
zHC|wU=$Na=m$QVH&GR#`4)lNf%aBpdE4Znh3TrTD#Wb*t1yYvRcvU8A@z;L=-S@`Z

literal 13317
zcmcJ01yodDyY~bkT>>H{GJpb-f;5WMkkUvaDj?lG41W=nlu<xhq@=qU7(r0!?ii%I
zq#5Qr{NEez{noecx@+C{V=?FKGlz5be(Lx9p1n8ko@l91klrK(fj|^+RYhG82#me@
zTq6R$2^wyW2TnxK)KwILGw^fzxG@+wk+`Zp^#Fm$Xs<rt!5PE_2y_bsSA3-Jo4PgQ
z_lf02ec4{4EqBtUGy#Mp<+CIBuQ*Kz!F3t}Sp@?9+qc;W<Cor2UnmmRKbiQbL__dM
z<KYvAH(9r-qX<HgHxiImv^CTf@4YHCb8VaDXV*o=(zesn;XX!v-MGe*=7xrZ+I0WM
zf^<Y-LE%Fb4F13U&F++Bv?Iv<afahs_dyVMt#5iR={oJHav6Q_1fisgiB{>+A|e^m
z4NgAZ4et3hzS*ckbtw>>OH6nT1f&09nYg~~4bFwAXN_rMwx2GrkjRkV2a$y^hv+<A
z(BNUA#R>0j*)`RM93Y*LmQcQs#1K07@4|7e#$NQhl&-R6O2i3S3@4Oj1isLdm+5OB
ztPS^aDJu?%EuuObNK~suFCTny!>5km3%=r`2UeJ~`l2yJSbD6k)f4HZ$6u$EvFhcB
zxyZAb4`R;3hcik3aWMMK2i81uAad>tEDNC-ggmOF9%KjJCSDI=&9YBM3YS-~#db`A
zqKLv&GE9+6p=swa<%m7|zISIcH`=S99QH-;I`4L9XNhdT`#pV6y!407g6z%1l)(_G
zpXnu3yJmmtKP{4#8Stln(`k{iG9Pv^i?Lrv>SfIf+V=1SNP;XP&(hd7eBi@7RON{F
zVW0BD+wk>J;ZW8+DJvdv+25kb(d=@gB7C$?%Us9V3)<bSa)f#o!l>g+Oc^If6SU2q
z@<Y6QZ#&}5-0Zvi_pWiCQ9O838?!a?=*Ux^IQ^{`<A*@em&!wFH-hADoi$}Yl-zp}
ziMPA^5vd({*rkPOAHC``KAJDBq4EvJUm<c^{$cWam=+8cnr5@mOuvEP_Lmn|Nh<x`
zV6?nCMvER(-r4hOdbBY=)@{8WG-Y~C;jf?cD?>^eQx>ex&q+DlE(KkQio5ip*p+u|
zRdy^R4*Nb<l4Tm;7&6%m2Vbei9o)UHSAIA%;2)>fOHj1!$T^=ns~PGM0wRX^fK&#&
zRi;pR(xx6U+nz<1N4?UQeiHNjwmV;gNhKOEP40Kad!vrlZ%sw4;#951C_9d*GqsMO
zv&0%PXWG%T#B`Km!SCKrZ`_qz>uBG&f37h2Y@;y?5HOX*cxFZh+ZCFIx3W?m#)Dcp
zdZGr(x4W%piPePg`0ouq8_$^zp3O{kG{}#KtR0Lzs^LTK(3<R4BDbWdSBS8QI>%5Q
zCT-A;GR`~GE91bnmFjJ=)Dy&VxK@jCOZn3U&+KMtT|wPnNyw2jid$wBGJo}-Jyo|m
zeJC+qm+VS^4}<5t*zsg;ee<a2<1#mOVO9mWB(u8x0f9tP|N1L!Xl4$PD@W$Yv79^m
z?Y>b!n-1KmM(DWrtCxgP{Lkc=<RfS2*wJ_)@y!wA<Jr)qx+>@k`RizQm2safqCgpk
z)PEB7DRjQ{ju9l1#OT{7wfFa=mM$|5)#s*43w=b}1T}e1T^=50Y7#~D5aWjuJCgD5
z`O|qTqC~&A%Q3{ek<JUsZQTU|s~TiUc&Vyt)~9ok`Fq9QX)o7aGnqQ!Tu4DT176p^
zK6<<B&3ofu3Km6)mVoQ?3gwP~2ivYI{R3xMmzR!oz3zA_d5AgYjj&~0;ZOArT`2yM
zIIV!%8axJcwDa9lW$-9Qzdd1U)-%nGV17rnzLSkIu;%-L-Wqw96kDyt`_W*iry*<m
z%!sD21)({v=GHW=8~yGB6MW*+h-e}#ztx@jmxN2Y1;&*@Z$_nA#b^_9IFGoeY4Wo!
z73xIlvX*KdnA>h@*4>scnplCfa8B=j5#ETueSyAn`QY<x6>i6)*^5fS9M5|ssZ{5*
zNZU%^o8(rxGNn4jPI$NVHA@0G_{$c$oQhLMb^fjio;2R&LYr<qkjTm9QIdMF!VHUM
zowjH5S$^oN3F5IDc{Sz<uW`k?$w1?G3+tl=OI=3JUZH6dvDbp3rvySAHyQ9$8_UMp
z8x)jM?o;1l?idtJa8rACCpEI-s$LK65H}gEf9^DP7Famw=2NQMYY$sJKv#|Gxrn1*
zyi_*dl$~oxgvb#)!t3HWLmOXiDX1dYa}LYjCY{bG`i?(xG1-YCoKNrWqq&R?;F_2J
znY31N`(p0Yqe@Qm?%2tpj>Z%%+pw!s%-K)F#~U-{w}NqtBA<2@i?X>`RlHf{e&*u4
z5*mv3Lh}w6QT7IuoEMDyeW5=VUU;M0u02rleP6~Y9l5)UY#BKFiVnCYovi#>uoxfQ
zEw(*cwLRWJXOe-o4=S48u@4CUqGyL@+)*^4+b#Q=dQMWDf_pX;C}$G3Vuy}<%u%|$
zhF|)+sf_LaIu{eFLh1~1jyXd^15y3%4czOs%)3;r`#;$EeC4fInxo2!lG3!wmmt%u
znm+LBQwj<dom`F6<rw)8r7F2qut`g$#st&j5O&3x!%$QHm(1`f<`;ir;*IQP&Oxp;
zyLU}ow(97d*i+wc-JEn`jlLzbP1Ab3dpKSeTxS28Lk`hlhh;49^O#EFSuD*6+*sE)
zsZBZl5P-h-@|;=u#F}Q#J8~xXXy-XgeJ8u>1{J&eM^Vs;!~LFQmcx(2*XkNDuKDVx
zu=x(M`sd=w)}i6xKRk|iDoKig_WAY^&!$i*SJkVUtV1)Gh?;N~yqT35a)Cs;eQwa(
zHsiL8v%tZpx?>uYa*$z>qFYbQ@0+T=l!Bq52e0j#q1U9N6wU@34(wr@Lbs|&owJ;}
zoT;sUB-U@x=r}rDlm2AVO8L^a$`Sen;iI&deJ$Mj_!cZAK+4!TH)_*%bX29S@<pO_
z)UGT!Z1bV5lG`v{bD`M_s;uhXjmq^`-oq_VAOcm}IO_2a?-$vl59QywGIvE@3+Gyx
zRL6*g8oDp*gb~w>)<!kjJ2|b~48Achw94BW+aB}NNd9zmB(v)Bb9e15LnUr$$~zP1
zR3Pg1y}c{eC8NGm618hnh;G}5+MmDH+uEh}^a=<s8*=G04^2Zr=f}?azv5YS@Kn^>
zw}ur@2-758Mir*Q$(~r5T?=1BJd|)5R~Wa}=45$>kYd<i!%$SQU3N3>yfUE*jwNiS
zKQvXA_!vLI6!fmlCJJwS<FUj=g5>j0^(y<kty)`#CZ@LRdDVm{$*NEG19<5OYv?Xb
zYs^cMd0{UeMPYKDs@oQ@&HnUNt9nfU(5byYkEsk5y&O90GuZxdZDq<(<?#Jli`e`x
z&7_J2!~UZ?t>)zooihIA??wrf?>hz!r@71&a>-D-QqD{MY_m6?dkLB2+3a@7J=q|A
zb<OL@+$1BWDz)bL9h;`{QQ(3g=d_xqZEIS$6t5BP`I&8LVNVsp<<02SQB8~QX_Au<
ztldSAH5$6_Qpr@`c`BWGh-Yr4stgp_$clIlDRJ(jq0HOXIys!6I?;&PyNoQe*@3b=
z9`}2+fp)Tt&Mo9f%`%NQf2fh^CU|Q){Ft`2Bk0!djm-8V4wGPxK8|T^$#b|E(_Z!m
zxS5At&<+3PHL)btS-~vCkMFrtoXI{l4A=_0%elyBt6jN_%bVmfv|eMh-r_+d@H$KW
zFp5yc1bbXlMn5D6y3~=EqA@<;tT~<}`#ra!tC;Hoqe?@W-}f%TW96$fo1U_$P{t_i
z6W@R!r`hU#e%|w;P_mR;_=X4R{UVkss&8#bYWJt(cfYoD*O?C0R3~WXa-G{K4EB8@
z3l!$Hk#6<dUY1#i<*uqTy#{xFLUYiQP>85Fw;dh1U(EQ1-ozzx;<BQ4hU&?M_{f07
zExdS2Tw!W;s1x2JbSs$5{rpDpMr?!?pfYBXl{W%hjs#SdYcUM1f)nA_T1r~rQ$H3S
zjenixtcuv?aQu0?$b9@dbhN`}K&Dyyq&mR={^hrF5eu&A9UrhYk8E?=QnyAW$TzKw
zuBSTHZGohvTQr<PG`9I%@6V}xsK3K)mgWoPVRTrT9+SG=fP$*?P}W|v(${0<*38=O
zik9mey)yXParcEG9BZAd|6GQqX-R!2no%OQUoBa2qkf`1^ep1Xbsxgwm2&OuEraHy
zwvrFmHhL%Tq<6>noQ|SPX?y!#nnXS(DLynJk;c+v$U@m46?%OC=tQOPB`CTk_|4Qq
ziM)%KRTq{5LYI(MF%pMs^3GZj@s{0^RzJ<<Pw!Kso-DswI~tu*n6f;oIltfTq<8Lf
zoAPH%Pshp!^IqF8enm0M_4j{xdWEt>)%UxN))T^XPJT1Ob?GYz`TyH$Vc4eXIPiya
zPEO8}#H1XLA!@kto@S1&DC(12^N)5fqv}scE_g9*7l~ZdBUCoQ)s-5O#Q2|@vYj4%
zvJZBL^|WOrW=k_OGmqXsraaZq6>jfIldj##3}^FKP{~V?4LCw_#>(v1xqq*!Kj?bk
zY@1kpUF1MZB+SgcIKyqEszjk;&f2GcsN^rh2ZQ6|pU!@1BPu-f^oF?QVH@k~$$fI?
zn`8dR+cUH~_-L2Fg--!H=wl!CM1d_a>(<cH?j+HbNidWso0$AYnfKA=1oUXqp)~B|
z1b^~Fo=7`g=9KJUrH}oA6$aUEc|JMj+<5Xk(vpA0UF^Ywv4`XJY2K6eKV*)^ZG0F-
z&DGV_Q~cj*&ka;aiMI4cr92&lJzt)gI1}h#2VQs2!gv17e0>;e;O@5_HsHYb8z-{C
z^H3^Hi`8pbCnHtZrbGBOF%@DZ!PL2ac{MB60_9@<W^r`Peb`*PKg$F|$D?)OX`36c
z6mN9K>h_%mZ?NuL<(I3SA-5T}A(&F(IqTBbhnR82QRQi5$ORb(UU*8S`5({t)UpXb
z``)p7fG@`LWCZTZmo}^y1pQtpHK{H*%3{Z@w%ew8jk4dod9!(Uze~{aq?Jt2vC?^_
zA;R&2^j6hSL(fEJd*0l1MS+s=)HB;!U_b**D{05kmNKWuWX}Fa>?=Pk$8d+*dcBuN
zZ=6gjCN@@F5C<tvvwkaS#f$=GCv%lAd(OU9*$*8dr#E<Ejm_SPhlPXw`jB+FptE1q
z)zv;4DdJAUi@!eb{Mnhqht0Qz<9#Qq?6YpM@J{*61+~;I#7H9wEn5&Rb^D!sK13&r
zJo2YGDr|m>-@B`R3B38;(HuP9q29+jC4XK$MjYnk=<Mw5k(DIrvHWN1Rblb$FN5Bb
zy@kY{BvIQRzAY&(&3@;vDWz89M0+J{5IeJIQ{@<z`n}nJ9h~}Hb5IJ{z4$Rtn&+Uk
z4<G};pubMJwBW8IZDM7Q77h;&AH?1iTR$Jl(`HXjQYjG;`5k`Dt(AJRHj56J6L<Ul
zoz8pO?T5>fNtjY3gOlXT?oTeqS7NCP)IT3P`BP6xzZ@xMWL9b0$5sY7XrTT1R&7Sb
z9O7J)$hhM9ueX~{Tp63=72zv|8Jm|AQ@<}x56+|5WY44lO%1KDuRDip){ZH7r4}|H
zY!OG`*e1WiM`F&p^Uj>k>*2VC(l~a!>RduX4PL&-LjKCL-G;yFkcCsSPTmK`LZO$Z
zl}1@VX0Up4X0m$TcNlcNvBbL|-Ty0FJd#J_ldF+bnp{4h>ovcF<!F;CyMd%WnS*X6
zM!<m=yCr~lm^&>0!FIkzCfMY9G-6~KbQ?1R80ml`oW<P-cy?{^gLZE{)acN`*;y+`
zH$TCw?UjSW14$MspY3VufbIH~6i`>9U}<4-F*>WJ<|u|q^d&iZr}<oY*(6+`4*S>B
zG0R|FCa8AWz3UTajKs5!;e5T?r)5^(41wUCO>}8k%iYkDTmop=etaCgM~_qOOwCq<
z*Tz|iS^fU-ke2k;yQQu~mv{#zi(uTLIeYNM9-l?vUVCL}^Vzzf^LSY%ceBPsS0dl2
zf?H39eDE<a0JB2?i)M&+JD6QIQRw2u53Ht51_`AI_rtzf2A8_|uw(Xs&GKM-N5>0C
z0A5xyw~kEgO#8U>RO*kQ?Fg#0cr*fWHk4uEIc^=^lO*Bxn*@kgnaj)bojF?f(!&0|
zL$SHzjKbMSb0a<-?HPEi6mhCrPBNGcaWXHgEwlIC?Qt0SsUiR(njRh=PA|iSoTuw}
zenc@<0u;5>0&Vi@)hqYyx)HC<hK&*j1_85Am4x>lMvFKa0nIh}wy=7STeoM$%AJ9+
zmXE_Joz(J%cwQiuR!qbHhBQJl2FFGqrjs-97b_|km&Yv`{s53{pVs#UZM#5;$W_^c
z{tT#(mRiaSSu!z;JB~m9AqBj?SQ}9EkMpCgsf&p|g!i}8m5dgdF_BHc5ct|{z?SKK
z-2h@+W}f||cgU>kh-Q8uswcNNYq<X_W-BMrVqM;IwVxXa;Eua~$=R<F`2bUyou-3j
z7N2Ri58iV@$GBLD-*0(J8@C&t?zxdVZM<1Dsd?5C-rHG?&`J_nn$yeGI0d{)E1F4k
z`3nghw^_1-`J0&1(#Fk-u1T}G;1d5GRoR5b^o9>?BM^)7XYJHTs^F707k2lb94)56
z_1!hkv+RU~1b9;0{k>@Ecv2Oijg5^IqatHriMY=OBItl)=ZR;L_ZS2%n*%?vrw`?7
zPMtddXz#Iy$jd;SHMQVzJM8s`qoyi(Lu>jrHa4$L_m>`L?n-&KlJLlQ0y>DXZ1i@*
zUs(VLpbX;`?h%WNi{}FP6lV>*-y*Rz>g?=HlXjxcZDBS|+-dT1%~Q$?kUrWBfX4n!
zH&A-;<tf!Y^M<OiFG`XAXdulj0J$ZvdTRvkUG(O6L1Cf#kG!7hE61GL229Q^%5RBV
zT+cw?i@72EYyn7QdCh+Y)yL$3WV8T`dhHRQ%^>an(58hvfM7>XCFr9`)}b}eSKt03
zM2{6c6@5NY@dE8$T-aZKC^mNGpVGRqOC@>R*(zMvu&}U4SKxgA!GpXjd~{s=88<dI
zJUm_B&R}Y0XxH$!#Oou4#D0`@4dm={O?zt->JvLB;d5OG*~8MDtFMFuk~1zAd4gq*
zr#-0N9y{3CeKl_mJbh0UwEDR4H;$O%=0^lJgt$527gwT2L1`)eaCg3~bi$z&eHqmM
zh`3l{?>imivgzNzkcc?#vP5is)YJ02X0^Zg%Y}+frY<uWe_5OEIS8L?+UsBrCVKKU
zst!mbEoo{wChHp;!9k}>iR{95{hxE{JEmTyI9-Z*Z;s<@XS}Cyo86*)O|t3TfI>>(
z;_s?C-Cn5Y4dq+6g_&DuIPRtSH2<5&;{FU#6<xs<kZfB@N=q$UfS@ahi5(hnLca&R
zweA~~h#ztIr7Hn_Q5-oN*<#VMo!Avl$=3Ai&)(s|$wI89FCKTiGgIp_X9{5DF&~gg
z#?JwzPJ9B~xwp8qz8P<JI2-5nMHB#{!>T+E93w!U%*VaP%xl|NfndR2nb`Yz!}(52
za2K;n)81n$xf3jODWaHXZS%N)$TQC0Bv~ydmq&Pk&5P1_y?}_~re_aeoZ6eR{(m+B
zLbbXcqjA2R;xY<wfM1Mr00Em5Fbb4yUk;>_eRrtOVv0d!r}LLHxB}3`57(_00;{7w
zg6PU%aFV~9$aHV|KPkR639$STZhU^i-!sZH29{RrR;n@9;fCVZ;VAzw^AKe$JLV=f
zwP-$NddLU`b840coh!{8VoH$?c4)oCD;_9ftTff4n1kd)rhIX}>fyyMkCk!EWg?^&
zT%VD{4M&N08Dmj0Z2}OJeew@5cuIc1=A$zseo{D!_j99c%&swZQ>KjwQVSU~;!kFK
zKGl2(uwOTgyIp2Y-fc!HSeG1rJyd~`Q9b>VEpm=Qc$Phcc%NJvd_$+=?XWU$ywv7i
z>~{4AreUy1*QdGsQ>87shK}0`KBI5sccX1fDP|0Ef5opFTfbOQz@elWG1!E%xB=&_
zd}R*~e$z??Up2^o2!j`dzOuJ7dt3)rF;7o~!DrOOxM~YY$s3!V>8PUg!6SnZ=bg?)
zJwDnuFgU&LJrarYd9sOIL)euV*(S7r;Ia|_g%|%5MgEsGhq+iEzS{z8{1kO$+4Wyi
zh=bj2*-k)?LDUb(O)2gh2r<A>`|Hjmz7~HvZ54AMaj<;qzW>Ya|KtMy`zEp>8~T=s
zL<2%epbY9l@*o>Sd}yQ8QNUV30>dsC)Adju%WXyK3hgKJW&8Br%nk*Mx2Uc{x<HPI
zX1mwrSwE3pP>kmcK7yn41pxidlKMXAD{CKcg`*mxU%@f*u@;>6(RT?QNz9ljKEU#)
zz9tY{$YQHk<B7yUJs24)4p-}EalpewBkq(E6c<AN6a;6~sNDj}gdye|DBE$Xf)(QM
z>_u{pO+Ga)iYBAh{mBovFZ5srts-MXd$?k8y=oY?Ze*ZPl#*DhN7V8D{4)W#tg%x|
z^8wLj)k2tVeC^BG4P5eQ(FCEfeu2nTxk~A`*O#*{-K$<XyskYLV=2iuN23G`{CKs*
zxUpt((2JV4dzaVI?n#O#BX{zN3)$ryap`j{RvWtU4_1g1TN*br`i$HyO&$bZ)J5+|
zFI1t-Q_nV&R?q{(Wx4w8`Ksni?>D#L#JAwOcMa6ZPWT==h0LRQ>EFWO@lWpE!#W`S
zTdDps69hCA|4Pl-i2jDRU;CH$uzW~C4q;%BblZXX1Q73u`u9jqQoX~pi&d|qU<Rty
zFe@OQum5NK|Er8oz(U4yEebSCcu9IeVy7k~07t2nn3!N1!3W47BoUSqLyJ|!8Ys8}
zKm(YMVOKDOiUuWw(FRtEvO;W-g&{*I5=~V0U||A56Y;L{=7BUOPUjd88M-3?W+zKc
zu^nf?yiTJiOAR|Jk<E8;nmN|(*NxaWxuvApRXY20=%h{eW8UDnzhVo%Bwsx(MJ;|c
zz?owN<=lLf#<fwxr{ss?Ei|FsbqUc!nr8KVu+vNk3R#KdU!fY{ON57dbQ$FNXl|v;
z<FM!6Np&OdQ6C@p97@FmU*tg5bU&%(8U^*#O(6pN1<tq7O7PC}74;preMwO{V^k~5
zzzlGo1Efj_^Orss2;G<MHY6SDni?wGJs*$;azjNz!wkwFK@o5(4zM3@7U0rM>L|*G
zsBE>b2`wCO)Nt1Sqn!SiV8uVZS6>e@%YH&yX8z|?0_%)*cxbMB6>yXzD5N$af{+}v
z4ZUQRpg3U?0-t!hX9BnUM+PfWA%WM7!51ucw_pom7&?p@_FU<sD1!ulUs=!>cbJ#1
zQwt(Pb!2qguu~+(u=J9m?DNMLYUYmsjl^NrzXmw{X_oVMAqZo9+RKaWk!e#_c>!O~
zZfFidG%eU?;6eF=ACG5?R+1UyrECOt8wWq$@nQu=v;*lSL{OxHWQYSHb?hg1b`x)R
z`N{e(4U*j`mwcr5*ZlbwS^nU2EQR{4gM}Fim0gl&(hJ5@?OI#0W#;(ba;51fzaTn!
z`R{T-ER^cjC7oG>U^hq2_Ws=pr$ws3S|+M9(}ePo`oF{q&*drXjpK&y@p;`s!46>)
zB)<MJi26;7Fk={eUAW@Imc=_o4!ACro`!=DwGg#x`x)9i-4(dUM9PJ|7ZRSeEgO<}
zEj&GgfRf+C3<dLYcvJFMGmQlE4Khc9Baj^FMKifuAkBCK`H~t+KOT4}78I*Avt~CP
z9^w+u5yOl$LI#5}2+lrQvjG7gtw2)8*w5l6Pe#rI>#%qc@j}9t!4=XEnkJ9R+NxhU
z8ir0S`cbsuWz|syikTi5s`ds!qIBrZke$T43EbGb*h)-dNEQj)*A%OQp;!9ocE?pM
z-P#73l){<=gL6H(17@e&K)iJY8?syJJmn-E1^FnII)(HxO3qk*F%tNIq)A~<22y=#
zKgR@>ZIA_AwRr;9wdI7ZAnnsbWmoWiM6z#L;d^u}!$i2?1t#^Bk8HPz%^yoVpJHJa
zC;DU*CSlU~Bo_uZ;4^}xGaZ(4nO&#X#vI(a3@n1dJ2{OYvts^u;ic2QQXubIWEOtz
zBkq8nm#qZ{mkOFH0yY4>q1{yqZM4Qgj4hJ>UDK5$$F>%hnSUFF6h~q2{5N)n152oa
z;1aMhO*%14FdUWL^JJC!kHNq$rw92|iOjqzYFPBT8b;dSin93MVDICB>q1DYk)lL2
zz2_a{#=+(w5M9#MUVx0Qb8o*^Ao1GX`G~9~V2f!uCa}0IgW82-F(N;>;JUSjcffP1
zCxW|K4>`+-=Q~(z_^7YQh6!K;b}(CH!_Yt-)dDV)3qI-ihSpWkBqQ_>zYxo6Tki22
zfTXeN0|R?pz8x8|axMHzi{&Wb(d%Hq8*HA<P|*lr)}j2o4u4C}ieumX5n|Ly1N?<7
zJOFS9AsSzhF_?u^gZDAZT`P^E0NUNW)kFKqOX8=fYym+dh!(h!W}9&4Vcq&EV<=e#
zH?%L2BgO^7nYCRCu_O{8M1TVCt^=ai#%-|dnpu(T+F%=jP!Dd1ax=ST#^j|9_U3{G
zBelVJFv76oR2`+SQ%}3QfZ+*&BFB)7_Bd(X`X&NLvL=!usCY+M4hds0{em%eTBfZA
z#J1^(T)(WjIdB};U?Db@P|y?|y_T!AQ!LNoTdV&<ZRU|v5N^N=N^}vb|I1xHVmaYl
zoZoabXIn3h51aw{LmWfo%q2s=CiOYN)wdys+$~j8qVIyRm1BpQBs|0P+P&Xh|Bm^X
zw>=TMGn1GQw0AlVQ=X-6Fw5ARQGZfGyiC<jz+XL}t5-QhX(_Q6#7Q~X0$Xx2tB;si
z3En}Xt{Xl&6=*eqP7_9Prczl@6v0?XF9Vr=`*QOhn_w+kW06K7YnY+Xws|0cncFWY
z?7_Q_6*k;x=har-KT)s{{2?Nuqm+*2HUk;P7}mnz@9r+Ug);Son(C$-<{FEL4<4}q
zG;&5u#pOGY9n>%cKq`l5U{Elw|6k3|0&AfC8(<caY-BjH{Z|+#T-P4p9lp**0aVy~
zR>4*>yF_J1v{wn^ilMQwZZtzAAfK3mnki0bcFS*fP7q7T^p&BJV^YkYX=@MP&U)qP
z>3!fe2w_ec@-P(7-2upv!RMX+Z|J`K;^H-f0?3f&8dsN*)5X*LPQKP7bU1mkStn#@
zEq7(GaO^S@NFq5;0CK(EhWSw5*9Q*2F1Zze;qwcN293HXo2iYSwAHeC&%0%Xk0lmh
zT;!y8s^dKi31oo%3lvg2f0b@ZX6qBCd;J=U*TS%~Au!?1(w-URT&I~MP37-SYqe6G
zAckTExdbw7s?b8@vN2vN!lk~M3GKe7qT0ItWmdk<<si<Kitnl4ig0Pp^EU?XbU4qQ
zB-Y<MsTt0G<XgX~ZfG2Lwo_)_RYtX~mrO7{{`0~#FaFD&{KWz;@Ek#)@Orbn!}toa
zl8-qC246A&h*&qI4FPp5(g#w5fkL$zq50ciMyTN}&o@{0t+jz9!0v*9as@?e^{;P^
zq$3%*SdqX;o+NsL;tE41S#Y%kCB%c62fR1qfMV^6DIQ=lkaM<&@^qgl@6$ikvb1`h
zZf)9s%7ABhh}Y6eQ77Ad`N!h!l<wqC0JN+ubO~O-))o@NC2(+0!A30(pfxr?^|yy<
z4^5K}72NP)y|dDWu{|K4V)LyK{YFu^bJ&e&BOdj6Icb(|Iq;;#%4vZHQ<=kC$=VkF
zrzBtvN%ML%z5w%sv2?St;jV19{#6HPBC2G`Rh)F9<GIE8sOjMbgMb{HZ?^smZ(@Ka
zj6rNcHX%$HpAdPUFR3lcrDoh<PAR%+Y{TU897~l$bAnfR+VOPLvGZwPt6BJTSC04Q
z`%8ylkNy%<psUxH`_ql3MJA>NzhMS($+Kt&A2fCowRJGtbdWycGVA5Sb?j%ZP;DN1
zDC2sojBi({pKk(4BD}Fc&G-XAt{0k|ux9`XPkW_-VT#;!QAK4t7fk-mCOH3zd;RO1
z55>3uf~9EX`p1uD*9qI74MD;3%>dV9C+{X~1~n0|P)w8ZLrS1>Y5G<`z4h395UeNw
zJpx(qRE5qF*4&0+<sm-c7HwV$0AY#&W^9a&{u%(#CjOY9*_NN~F@(K9B}9h()=P8;
z-o7duxcX7QVEH~U^^3YbK4>=7Bpfu+5ziO=6t%A}cIEP9Q4j{jj6Na}J{LhNt+=HN
z4*w+)k{bgPAg=ryVqRY7o8n8;X=l+BHL#`PKsU-#i-X7+b=^+|YSpPwIrbB?&4cRl
zZ8%0Uo<aqcy<Y$n35}T8eey=KapP}5rsiz~bk6u}KOW{KZO#GIv%_2edbR%76)k{*
z1FU(QY!gcUOL()tGwe28*Uvy5GD~kva=~H@O8p>qkr|-^gX=Pl07dzt3g#O|@1d+K
z)Rn@Op?@&M{fJNwC_jy{b15`g0A11pV(ba_gU&G#HWIUhiN+*KKk2=Vwe$<4fQ)*J
z$N`op04$-=T0i$<V1)sjg2}-YKXi&)YGOsZGZ93s2EGMMsdc5V49&iCNFehk^~3LX
z;ks~r^=AQWCx~=wMkti`MkEl=M)yc=e9p&|iP1+Ypt4E7=3aqJto6ShS^f#J%(=k9
z+`zs-IB!k~3hAPKMXuHIfz)!_68wsce8=FqBrc>F0EB|aG(aX%1_HPgEC3ozdD;uc
zyz>j&0?DA0mH@&)3)}&h@Ct42-|q62_=g{5Ua|HMuOx}D%G>`eXt5rXOmfw?ujXce
zat~OQT-W*knkoO0f!9%#w_d`8NF=Clfcc^6plzaA_<t0=#2`T^4w-_yi=lWZi1o8l
z_>U^2nPi;VSF{lCX~nzyz$#IV7@&gn`hY|I+l<HVGnT(=-6z;u)+jRMh~}EXIsP=m
z<q9$r#GH$WZ;E6*sHx(YTA9G}Z=0G98At2`*TdpDPpLPm=PkRKU#ZoTM~dICk@O!N
z9=sTxr|M%f`0%Cv`qG2@V#i>^@BYP2^CLc^)55`f0XcWrKj-Jv_vA;v=z35zcm7E}
zp(rMS-_(+-s3*{(CDVSMu{WjuYjd-=&D~BHM~&mj@o`$qFt6Z%S2~*S5;J?GCZ>Tt
zD(57EZ(SARDWfGD(4weAlfBWjV}4UtJibIw>9p$oEBjaee6tR16-%0Z2%ITbVOBJs
z;V2Z(=;FW7LFggSxIUwAZmtLPF;Q3U<8LF?9PDU(HY|FN&+^jeS3;(JPjcAF%5rXQ
z`_<z?YKDlmWI0Sh_lmxHSH)@VO#NcC^v=W+6jOGJLrP_{E&UEH_GPOdwmU`^m@~Q{
zKhaTe1B&e85eOqSf}<M5`~?U=>3>Ww=?{Vzg{W5_tF{(SG66H2|Lq$2zunDuI1}!_
zfo@K>@wJH=OXOoPcO$*mW`$)8&C|g_$FnLj>7A&sV1-mFP-A;o^)ai#YlXeXzH&#U
z*QkmzNLWmMVIziTMa(p(wm#ovPoA9>@qDvY-~aa!?S<xZ>?<fMh1yn&YTYYi8PC0#
z_f#u+;Y)f#%W<?7l7o5Q88%X40&Ibmcmj<gPDUc0F3=yaa%FxxX(4e`_jO$L4ow^S
z+8OrriEx)IMOpCDV?LAe4V}P?S5xUzreP&zvW$%-MjJ;(1gY?IzBXTM66yEBrxRU5
zQDu9h-_LN=64j_jUW4S=*H3W~r!fUeB_|8cL~<sX#!`F%OeGwSP;+?ZPUd9oN>sOq
z=g5}iT*GX9&5HL(m3)Nw5K}09bK%b-x_jjadn|_F+1lG#%q*rU8@iT#^m`6f_SnDS
z8I6}&^NTumJJ2O*RI%q1*5TRXe)^h~6A{n$t$MzqjRMFP?&gO2eB0BJTVo<kkW>u`
zmMXC_^19MiH!sDA-N@4>mbQjg!DWTL;5TJ$j^LQW=TBJm?U-)C{=$WLg|a$|y>ek{
zXgx}GU~1?*GV5-b1z!JU0wPcv3)Ks$h7%7y3J3k5^A>M`ln^j*-_)^A1T!P~P?Xsp
zNZW&<PgGP*=Cb^$R%(t}@6!o@&Lnrs)d)u(ZQXlpG@kAO94FEnI~y!SxUu^UpgMuI
zTT<3EyOyDm;&MbyR43|RXqJ40=Se$7?E^j)7vAB%WB{rpI_xTG`v?u|DP=OrhC%h+
zmrMmg0ll^4=Jo+4M_%Y`4a|}#={Sk6_}W9M`GtqUt!I0}SRw2;Mb1tq(##m`EC=p6
zg}pIw2C=_VMlC@vmzkNK=A>zuAWbhk7l}reLV`=4BbDyFlr1>A@+STBqiKUtFN1e|
z)R(cNwCI~5eJ`Uu*sQa@8oo)ehFLGUfSfrlV#_A~aD7k9-NK7f#fC8gew2?s0ds@!
zFc#fZuttGv)D|#OO2U_Py|_#I8%7h<QwH5454~La{-KO1)3L&!fPbtT{LiB2KO;;R
zs4X+Lu=fR_ue+$#^HV`A2AO`EgkeT@7VF<$0TX1ruUkOT0~@TsbX8fA+e<JfFAF1P
zleD`wVbrN{e5r`fQX-|8p^m`!tHMDexkQV?0YJZ&bgTl0&4~j+zL1kg&uFUs-|h2Y
z1tA$b*!!hA=zG|<kR5$j#NAe^S~>dEJpWs!nDvsufdIN)QdiinlU3x`;HDS8RGHOH
zL?=)ok;0-xlJJKa-~=fCv8rJU@lE6gN%4K8KbF_Z{{CE+&5{}ECQ%b}&rbjC++W=R
z47<wdFIb5#NQ?=mi8gOAC(J<PB$I#WT9MWtgH5ST)}=u<_Oi+E{cz$pU4&c%^oc9&
za04ISo$Kk~;{oFQJweAVsgjlILafkIrTIfl%pC3ET<t>*R5lA6VaL*1@bh6DOG=HR
z!!`KcQqg58_yL`XA~d8H$rO4J>J{n{#va>&6WyKD!9T)iC=B-aCTY?IX4+dobHO-w
z!FBw-F1XG`05xiH#imW9OY*Pxn?%YBF~l{oJ+?w+_cG&~HDgYPsS%%9XoD_!TzNU%
zwp3LeP1`#g30Kv>)~;bLl>|I$%=SDNrPsPo@}Rbh?^IA9RhkI`MT;4EmeepzeW1tB
zGAyCWKjbVQ*=fFD(UMS+Om$rqnH`k=*nigbQ;uL}_I~L=jZ%t}I(DlFF@}-`Q}Muh
zEF?SqC{7e(PJRnOdfzqFLKt39v>@N>i!QZqY{IbJ#w=SSdedr?2=@BUzT-4c?~8?y
zo#l5byd+eQ3V9}CTz`sA(S(lnO96GZr9vUUvq4b+YZ>gQKJNW+O^k&@2!#$_<;&@^
zUibYjQjHcaj{FYvd)w*bYjD?_^FsS>RhoZ|(V%=vq@*HT1#mnAEAyd?Y{$3f%e<7m
z(_RStS+|o#Yi@Ib+5>sgSc9+CZ#?2ndeywI!<%y%YS{bhDUKN2LUhEv>6$`9a!=_8
zT1Db}BlEn>Gr7Hr$fVpSPt}p=inFcGT)5-{T%oHp!L@qFs&yZ#aSOImizK!g+EkSY
zMqBbHypUWz2V;96<u9+BYBR;sQAW4ueXq+ANpL-E(ig8mj?9cu)BeOm<RJ{U6gw1-
zFtfKq5DkK(wZ$d|T7fdDce@MXgqtKR*O^zmCTspgB;~$W(%DQJ-RxbI_o)}1f8uh_
z`YEuP?y;yLbpl?xDxHsA^=o4+_4?ffbA{WocawMQunO4A+t0RFMds++4d5BKQzPDY
zb^zP@Uomie<L5SW3Lu#;m~&JQ=_0vT+a5~x;j)?OKsMsN1_P~0UJ{>+X!GMbcL@Z&
zXTVU^iV(1yTNap*^-AAchV1ZExiZqBHZ-3uIKKUT2A+TWZGPZBnSB7gCs}5DApiW6
z{nt9jf8Dm({wX4_ERkoPj~j8u>|6`a2Uy*J+~cL~P_gLe&V#rA6GHx{kmH|?r<!i|
Wy8pgM{qpL+dEiP~iX{qGfBhdjUxj7>

diff --git a/reference/Rplot007.png b/reference/Rplot007.png
index d0d4954985c892e327fe6612cffe999a7141aa71..08ff673dd6d914f814d741d15bc11a6f191d5c98 100644
GIT binary patch
literal 8840
zcmeHtXH=70xAlW4D2iACLBOLRHmnrs76hU~q<0Vyq)3qvdMMU|2uM+mw4i{LP^3#}
zHbja90t6vIC_;b$K|-(J%6q<X$GGEu<NfoUA9vhwGm<BLKiPY)HP@VTCG?iI1}~2g
z4}u`PC`~n81mWms-?nnWE4cRRmvF~rb3;Q7?%}d@wIT@awz+GXU=U>c9`=oc+#9%x
zAcqi?+GTy8#K~S?_x8E9y5F7N`90e>Ht*YYBUJzP$F$624~$<PYl!+Y*qG$xQm5c_
zU*RmpFbSWkXXfHECgxHiDiYBm^nPEuDZ$`!3;(sv2cGfRaD+TMBG5I&TKQsq<EGa(
zyCSC6OhD5`+xdzLnzzayG`eNiTp~sr&Yl}U;Y5%Yk=?fuWQS)cVs*cEziF9k(wv}(
z(@4{6KSpj@PTlA&YN<<Ghmn=Y#_|enqneU$<#us5;+d$uyWh4}a!+U`LG@+tfttFZ
zs@AjKQ|4>aPgS1>;W{n6$L6VS%s*R^kLDR$rw41pWbB&+QMz_^>3xAKlf|UlCA8*=
zQ9QL^qN_-QV3bdp9{4hp!F%xHt+~0m<<Zng1t&G+Y}@fo0mYi)<lK3xMUHv7Zl|Tc
z3!yE)VoJfl$Vm9+W<;b>{G+g(Yx@=f^IaQ$_0bYMkFPj6IJ}sxt$M@3$@R5N%=Z|p
zdS$8&zp;8Z{J;hEH@7q|+--i2r&lfXwLL#@LEqRo^Y>64gSN5m9flKC2{6Xcn+<5y
zIP6TlBtt`WIqLI(d%#MjPHHi3WuBkT_xQ>)^;Fb?fAPzcM&pT?W*tk*<ab&L?<^|3
zYRj&r>Z}b4)Z9X$LjC3^vYv_s8W$L!s$R>hn9@DA53XdGW{La2=SK|hUqmiG(VW3S
zn_e%fOLl%f+GjnrCZi3lYQd~taa}Fe5X0%q_4y2)JL6xw-)OX660Z-dH^X9K2ObMJ
zEll+;GpshUcOOyDyh}><n<%I=H6Ll@yDVw;u+u8Y!p_bvcV5xsm*(0UGe~tL0BIS!
z$T{Htb16Wj^XJdeM2zdV=LcM8M_Z@D<@(&4<rh|2qzXl5<%PiYhKB29P8}!ciI_O6
zz;d%HKWrG|<e4+xM>HZlE4(H>S{>Sz7kV(R)BT^MnlE6-^}San%PPKoQ#Z1*V!9H?
zj(Sg)bbc%26P9hl!6N?7Pl%6C6c-3p+cUM`z|AM>+11tMS{EU5nm?>u*?<1ST|7><
zdhPqVle4phv=G*rl5;;n&dn98tZ~|Zs+?Z>lh*1yox}{N!!iA77%UchdQa#FNqhh~
zTtrcJ;GPDRh$S$3E6Nmorc?asN!~q1)ie7$+uJ>x8ehi6RglTL3rlo-g{JtRsNd)x
zM&{-df$J=M#mI=g_jLbdxjWx?Ev&CF%j8)Fl>QzJ3F}rhXGmBJTpW0s7qqcHx!i}O
zTsXJwJ*HXf_4(RdlcI0e4)5;FK#Q>#Ne*Hj7D}$i{ox9gw$880Y~`M*kCCh>aqcYr
zkT)~qu`n2R=37mK+F|WzX9oxOX54NKR9<zpN?>w#cQ-#>-Y}Tj&1@YXA2+wQexvB#
ze~I9tF&{MA@@8Ht0y8xnXXS+%X>u&#f_ZD}5*+3koh01)5`B_5^?17gk=3k7nw#pa
zs9i|B>FZl=R_<Z9%0R2GwJ)s&3WTc<W%LGZtWAYVCOgO!Vd^X&s&VvH`W7iJ{feQ=
z96>yf+LJh}upI_|5K_fhhM|F>VRlZ=&7j3EV*A2s^$iTtTT?Z}I_Hu+$*A8O3rp3D
zr4dS%CVG0Qm6b}vBO~8PZK)c3DDwK+3VPNoN_=>D*l}*WgE$nSC=G$3JoEiXc2-uD
z_$0LqU0z<^Kq8@imaq(p<9K`4i4!N-3Gp>_Z;1=F)R0cC@Xi;{N=Z4i{sIfH=UG$?
zt|-2OU|fSZXMaq_p(VvDD6-0bAz~xwtf0QNwRJ$Q#Bn(}xdF^@o#{hJ1qXU_Qm!_w
z9FuYV#to`6%#h!nLsT`eGTC?JK-KC@W4x?Od|_dszOL@u;l?=U{*NIiPMx~xW8$3{
z6rpEsp0m8{CnF<Mi-wH|7SGDe)QsM@b#r@9&p}!r1(RLZ&3teDWfp+YvhkHv+oNrJ
zr9DS))!Lk!o9NQx<>lRm&rl9neBZ3dR8n4@{?c9MhL2B3n1cu?^@&&<W!5qm2-Ve=
zKYsl9y^)9!Qt%ut5V%U7ETiQy0~abxE4*?kc^1^X#>7n9+)og*w88SRBYi;|xNtGm
z>eM>U;NlD0r$2^pmfR(YvNu*?Wuiy|Rb>BzELGM+9wAsqUYsm$E4KdfWT@K+!l|LL
z5lh1@96z{|P+o4r8u`&?U}Uks#>m{#GA{!kXj))=^C_Pg1-H=aZNAc5>XPtE%8Wm9
zF-qVi%xOPAztj9g7dylNY$fT5ef~^kmtLX)Ss?$ttE;P_j!x93kYM;osxNCqV%5@~
zl$`6&tdd)QTk?>bZ~POt*u75PnDKEZ-1H~z<uP<nwvnapwV0z?&uD^Uny_Jz9m+6+
z+|y;ZKW&20^I8l*UbxzG%qyV*qxAy=tDl91NuX$p-{fXtH3$%M1H)4Qj>^Bk?nPOJ
z_q>9^MF6sK%d<K)forjNSh3(BX4QfdY)?aded}N6Y(0P13W#+EqLt_LVP_rNGj-T+
z^m@~B<!AwVA(t*i&$jEK9RbV~)@Iu}Ae^Nvi24~xUh!#XM5`?;eF~aYHv%BA$INKU
zuK?cOJ)$+npjEOU<_VB1^78V;nTC_tF1xsTR%M#=d)$gwuScWQa--GyVLT}#gp+%`
ztY$6ubj|9FEYl^!v`}W0T9)6e#JY(Ci22P5n(w+hqlA`_kPuN3M$!`K5evV~QyvDa
z{;rEx^v>fyV|i*Utn6*&6p`UM^7^h2nhVL&2<AY}wv6>{+aAiEe=@yfiFTDwx!pQ$
z3vy6(ih~om9qj)RK?D!|=fhUxiP%mY2SN-}bBm6hN1lEeD6X8dKCy4#zGDY>mih2G
zt{TC%3JD9FRX&wnCw%x|{B)<t^+k^Ty%zbFRr+RT39r1Z8TXV(dhm2mtop&L)xer(
z&z^O!aY$1<Fc`A{!Is@hn|YC7j!irMfkQ~_7N3pvwd~BymZsMi3=9ljW)rp`DL1a0
z1pCj9zJdLhGA-5wY=m61%FYu)f=^4f>^6#j`7-_1vG&2@aACRY(O2HQ@Pm4}yFyEz
z#QL?cvVW`R_w!i49JGf9g*$Z1CJu;p#<}wmbl>Q&Ov6nocyuxy8$TyM!&)tj)vmE?
z<p1&df`)*(dk9otvwKjSlEodr{<+()KZIMioVs&}wFD?(+WXf>fdCb}hlfXOQj&}E
zb@iF00LZ`?OtW9?^IyKnGcz+eb(*7D8Oh{N54nHLGkufCYLb$b{l^n%tM;EKS#*+-
zw2;=2nv_XCDVT#(-^8RVk9Cw7^_q;t#l|{x7225=*gTeX=}v<TuPu`@E4>-LZ|743
z*p-G}ufHBV*!1{|H3YdyWONklN&C;AnNZ{yI_Guo-!IrHqL8L3ZUaASyn_(8^Weo7
z1q;EQxn>#h@j{GqO|y(nG?aVa&y&nbmUh{C84hZrh0nm_Nd-4o*SrUxZWG${`1^k(
z$T?5-l=E!fbmHX6Hi<a%=xhQPlG2DW35Gz)hBBsaA%Y+lLP6aB#P<I)LG<5!l#okA
z?@{06!lI(KD(Xfkjaer8M=B7t$5;MX3h0S&4x{@vG&JZQdNFTRq<!S%$s5h`jC0)(
zQFB}0DYO-IKOoVa7na2p)ZeXr?@!djU@%1Q71eG3Vya2@eV&cY&4%K8tZ{q3*VpS@
zJP3~qL?w;@q(Nag$scACNq%>;%KF9Wq%mWcKlsB+{Be7FUtcJ9OwOutw;D;*JH^kC
zX1x<;VD3T6<e=?`?#7t=cS^Q~%Zn;*Mm{1OT>pFcw`*{zVN)fbh=IPo10~1A^n<%~
zb{;=K)p0wH)5nkNV6i3qr;Jk|5j!Z9cjMU{$f(Drtm-RJJ>I@Oynp}xl8ZQyVbS6>
zwEW7-N_}SORi9)@JV~;K<_7s}gNtS<p#y8IAS`swzoIeY=)M%&LmYu+dlhF^diz+V
z66qXX&5pIt_5+T-Aa%|(&;5|2ok9u8d!&i_{)*C{D*fV<oN@bX=ETH37$TZP*R!;=
z{Khqs9%o6e6AQXm8bo3>b&h-!cGEvAcn?D@v}-K(Uzn0c&stF!dwCvve&Ll9?^z$V
zHTE7_STXC3`Wz%eT2@PKl|`dXf>T>F`A?f?0+j>GSlYc#zHtT>{dwTMlarHf33aEz
zty?MX7jxddJIaQtzspZYPtQH&>j{0h1q%>r{uJB4;?LVXyYl8%0=3VVF487^i~=|-
zZPyU{h-zD4ER<2N)ap>&c90;Yb~wr_9}WB@LGF>B*IwoqK2_kcFZ0SrgxKp31Tl-~
zgdoJk*j`SMdmoa6)|dXqEYpR+Xi&sQHVYyM=l_($<j(gP?eOq$5&7*1(yLBJB1IGp
z$pXJcF4#Z6e*Jp!o%-nF9bCvIqgT=&-D=iK#U0z;X|b`Ll52(~DKDhiorT3JOyf8W
zbX|N;tFT+;8_+i=0foeHvpPh3PC$PiajFm41>+Pmw+=#nb@m*i^G0-lie=dr<YVY{
zp?+>rpG#tai*Ewwi}1(KoIytydki=H$7w+hI>CP3H}&=PCA1;P$KUdKbuq%i!mwZM
zIz`}7xD@;HUEIe5aCIYEi4=zKtMGPHUSAv<dksbAbj}Y%%=gcwQmSj)>JqC>VHZsF
zGWlsr=othNIpP>B=h~AAB5?TEuVbpJs_SA1a`7C>YKyY%w;fU@g=%*b@2e9>IFJ-G
zO+P+1*#KVdK(vP!sG36kR%_!%%We2|ak}~c{m}BRS(#4r)F)54P`YOYpW~Z_?<0u2
zO*GdBP<0ky^0eem*MmJI2*Z7FqgDU*{;FWArS)Umr1Z&?j7O*Or-5LETuNzcN^pfo
zpKiaetw^`q!_MUg<vBU09$$GQTV^*-l1f_a)ox-bQ6#tFNu5)3sM+HWP@I*{oq3BJ
zbvEaK3#I=`;SX0wFDj5f$xG7BGhWN}CSsn|+8n4*sq~o+qm`(sicvCH2g6RePu!UD
zp-Ap>P%J@l2Fyy`0VFXgvLB1p({2S5B*M0dayaVyHVYMth*R!&VVv_goK3-Bb6ZCa
zM{UIqB&oeyr~cTNgSKfdhva&z@g{;Hhw03-04gn?9EKplvf@?T0pAYX{kmN&Tzx-q
z5=gmMpAclUA)0G(ZGq<IJF+>_mJ<mciYd<2c+j}_H-e-YlIg*W@o{MoxQiKwEPRJw
zD)>y_{yU@~YUD8^4&*cx*g3bZUVUiaoS3CJ_2Gy`5eL#@C&4@Y`SErv7!3_9CEw%>
zLLTvY7{Ao@&U*;rX@cThoy!lhzz58rRv99SUYR*LIjMIyL8RVTKAf|}qBACnNEDbj
z)KK8pIiO1<{$pHFc*PjHw#(1=mz(94=YQI6qqPDo6k9<^b>>^;1583Ry?pud_&y%T
zwdJ|7cwoDyPdWx`M2hz2{VRS^LjAYT{v6+{x488Jf@qtQ5i8HuYknZJhOFGWi&1gr
z9;l~$TOjM=X0I97tPY=%@tbwfN|4opfPkb+genn}*9FU07|rF=l5)8l6s^i)KPM2?
zA9z(f-yQJpwnUh;T{@Jald7I>%MUpko<;)R9~^O+tqm^y4>`OjL_psY-oCv8We`F;
zi)ac{O^e+EaF9hLnhID2+|SP2!`^@w<0ogAx?Pw1s{A8;lWz|BCI_fkv2y}qS&396
z`pNw0M!<Ov=a_?xzv)ZCv0)DFI}NeNqth;sl=OgpyLH;h-usyX1_kz)@d3BNuc71A
zGPeXOsB!`@-wfZkP3K*@rT6dKS6nW&k0;$XzKQLBfY(-1F11UOnjfSNO0KrHc3YYE
z!s6oEdK#mxcgw?1kTc?Y99gr)Yg~DzCD+-cy#$cK%fkN46J9?MsEQsr&*eNvTOM&Y
zz{$tNHWoGFB^yqGGgiu0E+eI1p7LeD+4S`EVy2&HzI}Mbdm!<K->LDbe7jKf)JYXX
zZ;iUP!k!*;IGbTc#_UncYu6rI`V4FVSv{T_sd9bTfD>s+Pn#8W2eEV_e<!RM!C$qW
z0}0;!j|jE@?i~C7`}c(e*J@vVbE~3RVC!Gc<8(HKT>3mWv$E!xe3Z5M;ipH8A=dqs
z^ZR%t%*9A7vXa(_BeNh=aYiX}4mAkK+gk8F&AquiHaVYQE3yaET%dw_uToziTVJ43
zpXAVZbJM|{PpQ~y2kGulF?Xsp#iQM;jPbu1d&6qkV{Lo-WgBzM!`)>A#`Iu+`5<W-
z&MJ$hpHl$$eiz%q|KG#ES%Wm`k2m5@cjTB9&Ca%=8|C8~*s}Eo$kv5PY6iH_4xb)u
zY54J@V}6pVhwXqOA|Ik}(HbG5C~f_DGiWg|60{R!UC1ey9}ZH5g@nXWV4i{R!cd_4
zSLZdcDjzXEF27f)i@t~ZSQBMyjf+-norB>c1HX5%Dh>HAM~bOhM(Z0IzN4*<$W0QP
z3k%N!ZlpVX)n<E7pvjFAs9?#bs^FH>0B6WGK|#ZGdRh78gYBoGpMYZH0r*@|G^QJd
z3T~(YK*31pd5uH6G#4u*P)6qWAA@bvc2URv__1S}L=~uM={CTO;cJpfp1R~YdDDvr
zU0I%_^wIim@KBwWW`>FD%Zw7wG2NH1UX2&GX*<hY65peP!{JVNbq(<F@BmD8w71^@
ziNW@2ZEaJ*%*@rO*93qA>+;3ns6Xe99mq1ux6IDXouqL8R{Pr)D)wetvQ-3)30{&;
zMmfjpgakrQPY>YIgnU21^GQ`zs|)r`x3sjh!k*$KjtlNM0oPrcT}iG8qL3R)abKPt
zi&w$<oycb+duR>kKPE7P!K@$au?8ah=IT>&dE<r&4p#*(CV0X*Ff+i$1`x}KUXUYS
zPMzN=s+0+kN|6j%TUj8ye}79wY=N`7Nj`)96srA<63H*|`QC7K@JHE7jiJ*mp{QsE
zj$p1f+CNw^2HF=Isp{cmU>fYvY3uW4*trfP#^>#4ia~+1u{nfWwB^s;N7!!<eG6}k
zmblTLZ>0*$rwyFvTclXNj5FmsbHOY!=6<OQ^<9EnwaJ;P+32}rl8+LSfn@d<6o@y=
z(+~0rp8e?e{J9K7>l~9tgNN9$^tfzj4N+|G<UD)E1JcVhGK%fkzC+`izmT?p=jSl<
ztDa(;cvkcQdx7~bgKd~X-QqJwPLG#yew7@!>{x=O*MM~l#TTUGtyBCl;x1i<*WfAp
z10d=IRo$Q_tyUUY;jrD+Pn-Lp&z7;y+*l|1?a<4)Y(r9FJ!dmF;9O-({y%#sXf;;s
zZ_8ueWoKuLOQ=kxq?b~(#}6_(b2nAG(Nrd(9k`wU)GhFwO5JFE<4Vx5>*(kpE)Iqb
zWxR}y&4i-QeqT!~9Qs8=)V!K?KUn^|6MPr<vn?+8AqFQ6a~wLCz6`tvJBm0*kTZGs
zb$+V%B#Bk*(0Vw@Z#--HR}4Bw<9sL7ZuqWq>)UJD1VURiZY5gOn-~vT6bi2)vu2|j
zNb!A((%h1mXtA;j*UJ2MQ~sZb(5>WV7L+i`TG9u_GU!HPbIR=O6R^Kd5XmC4{zQ5D
z>_~!}6Lh_V&focyo#!C6QS6)o*SvRd72MzDdUW7nlpj!9;EDo{9oYtsctySUT%jUs
zWkVsCf(2}FC_}?npn+Ezr4fo2T4x2@OFAtH-QA{DU_f`*1l2&(!$4Q}@Yv6~#3R*}
zUb^=AR%JZXt$bMDWN&jmoIJhQrj`d()z_iKq@-NvAD!S2bNoG6yG#mNPu0_wml(#F
z$$Q+87Ti(#;c|3LOe!p(>=`{XGr}KNpLjBi+zPqs*)1NRB=HK^Y&ab|$V?++cbDGl
zdJBAglnqwk+ozRADq6e-05~fci_va%kPh@Kw2f$=??%0@3G6-bk&|mj%gk`24D{Y|
zfe@vqr%w{irG+|x(;I;6Ig*Pdu?9CBh&&_~8-Gz`aM5SGo%2BfI)fxYxrJBHcRRyQ
zW&neK+nNcnMC=uQ{hq7d1?V*>x+hZ~hIZy!R2Z^b%f9rayUMT1qoen*EmMe&7HHT)
z=cXmCE-6nOhJ*kR0xRHKga~!qa-v|0Bgl9139qnM(~#HEQLmsUvvsQLI$;85DBy==
zC%6(($@HwOEEEV1GOt|Ep|P+U^mFx8uzUSxTQxesc7=vWEuORjA|w}D1tw;t_geV^
zr#S)e9U<l7mHlNG{32#ruJSqdMLpi@j3Ap1vi}QE3BJu=HoT_JPEO>9d@7l|!m^_T
ztF`RF)gduLO3FvSQ+i-NQ+moV`?qdp*Aliwf>wu%sCSF5nX>@T<5}ps+*w`5Rv?_n
zi*4tbmqD8n|10<L+zS|PF^(P%ZjLZwr#*BFE=hX*s%qrkA;^{#W6+2005y#zqa?=w
zuG(P(2I<PnqSMef%FfcuH~}&qQj<Z+jlpPxu)#0SPZDk&ODk$tXdI_*B5v8V!_#KK
z-8f294JdRcP|)mr+@v$xa`IyK<${f%6REoH6UMr3RarzGZB4~O+a^0NPaB$JC#0l0
zpc6IwyH1QzL{b4mvk3k);6iZQKFYuKY)icsUc~~0l5Jgt0kf}4#<k}n6le>NdI{5-
zKpcVP*7HFJx=dsk)T|O?292TFWkx>3yJjUx*0tw5tM(H25tyyF_*<yoK1clUB!P{a
zj8u7gcYy8k=g(Kz%I_f;FPS}kipkyG)+wC3Z>J<2kiGZUt20)4d@7469i>ngEWEnx
z*c)B~^-e}wTJYvpPrl89qxJx?px@X{v07DCY%dY(Hxw?nkLNM;2&8SkZe@1{p)F7(
nDll5OctISPn>*jXb(}W%7&;4;<RtSc1TLs++G=@MZa?@x1f(yP

literal 12961
zcmd6OcT`hpyYEI+99#TU1QCJ-1VunpdQ(vWL3)v{BGRNtkzUks7?qBQ(vjY!L#T>^
zNC`axLQqN|p@)D81n#q)bI<+G`Qv`;+%spb%aR3Tc6RpO@ALkiUwP)4mWJ}4om@K+
z1lgmiazzJ0SVqzB9oyj*zuvlN__6(tn(`I+314)j>Hzrho3o0MD}wCWkAAas5Bskp
z$WcV~$|XI|_}O8vmwFQkn~R!#`8gxi1DCdrCkw`LN%5WD@>W|+?0{`*;JL#Bj;ir(
zf|hM~e#gVgAt&uZWe>1l(!RLW^tI)MC*xUDo(D~~@g<))y@Mq-zrr|)$eWnsCaK?7
zkwaPOIXF*{=EmjDF%|HuBFyYs-zLrz2-2CpUM_$j4Jm&j+mVJXTPjuBUyCU@)icXy
zZ4u<$(Lni5o)4mjUOdZOWl3J!`8DyPm~o|Z%Iqlw!AZ}tup+k}l_CBU(S~jxeiO)g
z`}T5A#*LnGhanxp)5hCoKC@+HVtxHy*_pG$Zap`iUrWuV1S~w^omy<>B~+0TbH9AK
zp5RT+9<1}L-dN65v~7DWM()dvnX6qLkr?|l_JH{v6VUnYc4KdewI;K*e*Fd4kt4G4
z)(Vzo0Xt-*R~EiE_T?Ii4ttRjuJi3TYW8E&2(%}>>&fj_H*VZGEhMC?s~dF>pO~*D
zm<Ip4Qk5xhtP@*|=YNic5jZS-BN+1BdxZ|}JcSLb9#I%rIgA{YG}z*~xxtK;aEMI|
z*zgj+aA7JeU_I3wZl#xY{$86FoKeDQBu`V3sb^Atzl%S{G!mz9=*9FSHf(2Vm_kmi
z&#E1{H=9e^C9S{EqEOtv--bHb?md+fv<!Eh*-!r@>Ys8WPGTAk?(RsC7588FypbSN
z)>t)p-e8SnAzHug0=Mtuy*lhs=1S5?csOV~SZb@=|3E+^J}X+tFsH6g!F`}rv_9|6
zdFz~-8dEs9@OZ?ZAHKgc$Tv=3o3B@-P&=j*4><azW~9#cbSbbR<DYMKc6Q#%$<1va
zsrA8BIuh&ru0`73zprjq?z8H6qUD0P_+iW7H!|)yUa*)tgaG<POw$AI17Xd&F~i=J
z{K=wbtXhabODTLEwr>bznRE(RGwH9IlzAoA6z?-vHJM*AV%LM;V6K&fMs<`C%<Zv$
z%U!+mL`Hu_o6mf0%)<eKxlg;PAFa=pbSqda^;*ceBzVB&)mN_$ooM-ZN6c_YU<kd`
zjxX|~&!6wiH?K7|H1|sHkS1{t`>hUV`*_o6w4AIgEiW%GJ33b0TP1R3W*`cer<tUX
zo%G~=GThz7>Sk@i(vr)kJ7TKn!{t}i*VoSua!^VMhobDC#NInu72G#cU{<YXZeH-^
z%a^^)w)5R;qJ6U!L=ns2y7eVBhhdz)WpijWU%pYvHB!85sGXhN!JSXtCf``w!9q%h
z9jhApt5iJt&9}+h^$N-_emoGF=0Wr`Z02?iE_WgpB+C2b6cuR;3k#nX7LMkd9j-Qv
z)Puqy+?4lOc{wI!cmKZLS<W-+tRggWpBj`Z`oh(#S2ZYDuki?|+a7@=-?yZs0CR#x
zK&`Jr60Ge>_1DR(!~l!NAdKPBeVw_5bvepdFFwosi${}H_#zp#G-|bDg=U6dKci^}
z(!e7WAT0@XI?)=Fx#ifwo!Qyhs?V-m?(6G|g++F(nmBYdRr~7kf0%g;yUT2@Q-{6@
zbzF6KFB7R*xIFAR76Nx2$u~Pxp}9#<+MK5QSVdV{xcBMX+1P}OU2}JLXDs(<n&k&H
z?vb1-sGjSF)1>bbt<mb1#FMTa|3_bMui(BNHqD_txH%l9xF0R7MBgP<{{6oJE)2W0
z3bVC|4Xw14;}N8)WPgLwAG@{H)Lw)tZg@sVM^DGpucwdrQg3YALi~2j0_T<u_s^hF
zGFe!+XB8LgP)Ydt-q&G@8<l$%*PTO-NNQMFSuwi8{L|+B=6#mvzE5pV<yN_p?7qIc
zEyI{f?Mqe02%D6vD+TR!FPkg1?YZDFXNtbfZ*3)dxxMlIE)J32kIxS1Yip;diBw$y
zWO&doBRS%kD&hDIKJZ+E=Z|MH%;laTQ)1W3v`rEV;xcyLoVaZ(g0PLY$RfxYsc}{*
z?!B!fYC6-SnaAVca3vBr_b4ct1$j3bUeC503EZ>wEP@=`*MJ~5FCr*zMr&%1x?3QD
zN>?*5zT_n&6wnd>u;VFl-muWTR>y*S^eMn2fS|afq>m19el^z`pEy`%A0t3Z|1p)4
zlXJc3W?KoCyIDI7E5Db4g%y)yUJlO5ISngYR$A(*Q_tzWW9ycjf`XOOATrtR>hXvt
zbwSQjdCpQZs!S*wICOTTb|{LWL-H0B71dnR{vx+^4-&ZTKV2#d3ta!-^5WL}nuy@b
z`t=FX!O91gL9KLOg{PN~K}i_8YsyUXg>Z@Il=QF$O6<6GFhsQO=Vd6gZH2PFKNlVo
zwj$WazgiS0bk7~P;F%u{gr^($SKs=7c=6qmUjsiszjWakmA+(75N>`jPNmBoX(Um-
zj4hVx*y=aqhVGlMjIOS+@7U^sZG6D3IeB3BcGpC;I{9&(dZAE$%iZ#KyV&L3J{9qK
z1!%B6xr8VCFg-NMrkECoZ;8=JX!DqKVbuMjN$$hvnm%)m4RHF`6MGollJb1}f5SJO
zZBkkCR~+wAa&dh6YToquZADMNn(M>Vn_t|6pVYEVj}kFDtFy=UsqmH=Y>_(jVxmUl
zTp-nmkU!o;vkNXDAB#}o?v>}mESol~@a<1*6G*Z=PQ-q@K2jq48Xt7GfwzsMq~jsS
z>oVbvF~_R4h~expDO!TF6LM%h{w?eIf6DpqtC9cNb6$GCMQZ=EsZiOu&fvr6OFb8V
zT#nv`Bnz^i2~=EPP`dH@>?ORyTHfRL$>om2##!A6axmdy%FYn1ys;$Fw*>1s%97x>
zGQg<cTvOb`Ep^tN`IN(4P*rB~wWS+?;kdj8>_!=Rg8KS~lVjM+moGgf{=kz`gZ4^=
zrrtXH+7(vda}@n$ObqFpQ=NR}1eHF%x>kKx@#U*m-a1LxZx6VYA6*<xo`3&<8<5aT
zr@neMT!pXO-25FP0(}8+mS5GIl;CkNta-?EbAEGUK6?U4k!!&`m9A%ImO#Kc!uw7|
zs0ecJ{R=gUizBfz;Z7Jpizxc<jo;(fghfRS&m7X_+rM~M!>ovRD#bE%EUTs_9xJ1@
zTV793PjLS;L9UR=8pjM-wr#sc(^UB0KHbGZZaU(0-<AGzag1NJ%SO*<b*{b2aVgPE
zp}ksPN9V1l+}r@?@~DQbt*yEIU0n2l5xs*yLdCN@fx9_Etf_|yw;?D0>Uj#AWiX!;
zp3PESdwJiBPja&<vb<{VZ=Ic;fRBPtI(+_K77k||W8q)ry)t9;*9tt|<}7%yyE|QN
zm;PQP@NLuDe{bvmH<9CCy!~<D>~G0FJAxX4@A8O{V1=bZxwyDY`}RD&yz}YhgamA7
zy0NkG!55!oOgkQMtGf6p!0MmgH;OMXX>V_T-aH2Hk_rtLV;lB=r^xEIOYPN}t|6y-
zvjv<YbUC*#r!o)Lh>WIh+jVH_2}VKCbJ(cl-t_MWG~l;8v|e3Jlv<wl91dV)26V%6
z?J}1%{GY(}OUb!x%XD9$WS{NjRlV{l21oaWk4Y`9)mEAP08E`D=0n9BV&32Cgu=U=
z62G=*>z1W8=5R((WMrfW<$ZpE)T>B&sn9W1=G-@>qoeIfO}-s$%@2TX$qiuuE2+#;
zsnF}!ue*#CnA76%(g{wO$a5P!Q%i_MQ&v%t7>Ty-Uw>UqjcQED|4+R#E$w3u)>py8
zT>eU`HURgtD=u?{`BkAqFWlp>AHF-s&_)fG!ir;>Bcb13;L->7Awa8k{cD$uyDGqT
zRpI+F;13OS=k_OwbLeI54PxIL<Z3L64f8pd<l8ar>l2=~w6s(jL)~}bKlJv$1q@k+
z4tOqp;-Jk{&*O~y;nE{iDvej#&f`(4B70t(P(%KnSJKh_`)>zIorns|IgfhRvQRuJ
zitn(cjA?mksUAumb8&)ufj8sk>()$#<64XK^!3y23#u}7U0L^v_p?@}r(gA1nORJ8
zG_<v|TPlUkDL_+GQ`=>JVAw<syE=Z;#V2)t199<x;tu}>%?K9{3=uOE#~{ewQ%0<w
zy;<6^l1_=SadFjl3JAizzj(Vd03LuuwyvhUK42kJ(P5xCJ$G^&a#6dLt06^8Wpe?u
znOs5iH&J9xYr2D`u?K19y*67>ZRZcjp1#-OcdOv8SaEwdYP+Obq+`wEwOR%_7q`CD
zDxbuSAfHZ$&wgpf`ltiDuMnvm-GV9+uCuoS`KHICG+z<t3GvddxVw>XuDCpwZxv1!
zAbOOcU>rnN>Apag7u@c^e=EtuT*C0kEC((y7aB4As_g9SBkenpz~eFEfz4sO^W@?*
zcS`@Xwc^?vJA3;wCt_U(9&qk>H0{{bt+Rrb!BEKL;(o=7{_gI#Yjf3_tKVG1Kql;x
zRYQ>H>ix(DEPgIV;pfG_l#4~Zxpn-5YlBvbo9nKiHH9sIp5(=e2n*}i`!jW7tamPV
zz&_l$wYWUyA&;t8p`lF+)+IqxB(kh_?ihzcQlaizVJCO<bTRfD90!D2n&83R97R{D
zN|Fp68}CyRS@#d9ka>k$@^u#SQunOlg$o=ZMQ|)7s3}nR2{#1nQ5|YA)*MCvx(ywU
zwob)U5<Es!tMAKU386f)Ze3S7Y)2a&;Wii)&}h-PjeZj+Amf?#s5;1QRZ7t+sIAn|
z(doYDD+#+C&`@rEIKni>Luf$h%pq!89iF7-aH7!X^VOxW8wJhR#FoQf^snLbo0_g^
zPX1V3b4`5l(gIVpu*P)ZRz`VVK1rW5`qisR_cIecPfS_@trhPQ-Z1xtHTRe&mQ|k!
zmAY&Zz%1)8Fw4DiJcW(d_w3mA!xwDAN4!Wp?Fq7mynf3OBi<BY(CXsu%t(GUKC}x~
zd(3N?VF48!n?fchCnd%zwT+CjJ>?Rq%1++HjUcw=vz>xf9a85?c_SrdaIO9}c6MZV
zu5eM};^NZy)?C6pzWvYQNs&&Ns;rzGonKg_ra=L1ra2jfFM_6?5Bkm(<G5`Li@u?u
z4~`dvE($~n%Bfvh0#s1(ZT3JTpYTP;#AMcrjeKu^0pxxxOtG$!1w=t_eLw(e>VW#`
z3y~aoP32=jr1b9Y8HJLw?awn}KqU{#dAyvKZ?I1CEALQPoB7bO5328_cwnYxQo*Me
z9QNa%Bh18kVI%%#WI?X5#$$P0+hA*Qz$=H1Sbw742RxCx!P7Z(1aVgR%-FY_XH?SL
z+sl_dYa&<U{q!h;1U=7Vnd$S{4xipz#Zb6aI1;oIjHlD~h|{-9ZOf)$RLAJV?7_-?
zrK++ZS~JDl7uXF=QxrGpc!$KzVep7ZQCpDYuU30T!S%@v*xbk_hKMElzXkz@o?OoA
z%fUVZA=AGwH&@reA^+cw_G4de#3<$s4jO|lGIMF+H?H%o8VT5B7Q`MwkgG!W2nH*6
zQ^>HO7sM6&i%-k2MSU1FJAjze05M<&_4xDXQG(K0kc)G0O{lx2D6s!GVdK(2Ic~#+
zB1WuVLHPMU<W@d!-O=0dh*jK=;f5F3j$9O@EJVFC9x8W;1FxYbb{AY|aNcU5awvE9
z%`+!eq16LNFfO&xj!_3ne&>~Vpd#qi@?C7jB6|_U^h<2kRuKdl`5gNWj05#GiL|so
z{`lju<_=JemtfZyZZbq2hRScC=*F+=O6t(}@~XPm9^1zs#fl`~ga?&dfV&<i>7-G+
zx(YT2y8Th<By)-~6z;t`m!EG^k>O8-%VR80kI~Z*MDU@}JPSTa(Sk_t@VH>#e}>NV
zZ-+lcYnOEl+d&(?jTR3Klbw@t7^yL`Clo}BUE5sb-AsXo{@3HoZCpLP?a8G*M<mpt
zzRkq`Dw-tLk;(_DO~Hp#!M8~hIU?uz?%&r^sG#z4zy>vmefM_V7zbkA@V~D<Sb=@@
z0h_(^O`LV1P?1|cb2aE@sB8QA`H@#~IGMiwes2YEBA=V}bKI6+Uuew9&)2`e)d!y3
zTkt(7%vIuiP8F<BDJ&Z><xRVZFVV);5A*L7y~g_gy#4fY3S4yH6D?>Xb$~;AW2kgr
zaBTElT}yItsmfs@u^f*izyXA9<6L%MRrT4AMNe|>?UGZ##7||$A6GRlxfha4nEA={
zkAC^Gas&gdA`kT>3|o&^=dt*Lm6lUpZUBaWsbM=?!=*W(Yn@<*87|<!h`D;8VQpo$
z=Q+F3PV)-T{Mm^ACUX_GIH`qmtMl!<etUl=`pk8e;1vLoy7Z|m$Y?n9#DJx!BpcYb
zfFPjeXwV+rH2Q;*j~qEtZHI-T)#)B#t^5AR5go-slZt}YldQ1GjyoVk)I&?Er{z1j
z58Opi1n}Dns@e0zm}>)Y`Dma)$0Jmj@jwv%t$fn=jDnqK|MAa%M5fjGt!4OYxKK~}
zAV|2;AhNO4Dq8LR>*GAp)BIl)`DcdJZu1A+0<;o5iF$W;J&|~iTN3RT6t82_F{Y%b
z7k3>By%*@dX63xb0XNl;P57vf_f(reqtPekI)Jo3!`>*J@XeZyDs8rVEk(#jr64Xe
z8ri#bLm@9F;DSlm*uOWi8abn=TJOFmV^Y#i`0+=HcyII16+yoJu0ll1zFhiG-#R@9
z(M_94SI38wPM1>n!=4pLWxn|CEBFUCl9FM`AK3WanM?vH)52MFGp}9BaqE*ypT-vB
z2~=DV&_Pwd>G`#{va>;2f-ec)=Cpkw*Q)c_D!_s<GBWC*)yljI7R#;zaj)4V_=jb-
z5Z<<MMM;6Aq^hcFPGMI9@;Wm5L;7#<F8)b@2oc%7MMFVL-2XaiH_+X!10I_pv2U76
zzhKv!)uAyT{*RDrG(!DGUtclUWB@q@EAV`{#O_?N&J22@BE{XGaU<>*H$1pwt6Q5`
zv)e=OpkQ!i{TS1k1+P%C2tDZn*R1ovt+QDmEpR10vVsTw5J^c%N|!RPu;(y%>qOw6
z+X_wcR_2NGE&kvp5un=}E#Ri=z@!~(De46ejyWk=e+o28nLR;7b44jh!4E<KN%k5?
zkB>^7|JxV)Te$PTV3xlOxc}-0fjk8e&Vv06F+k_rt1ouy9|Anodxy+*r3SqcG0TDW
zX|QL{9%v(mDc4yMEw?S^2Zc|a(iS{u=Q?mha+pt5=Et8WmcurGhGn;cVa=hd1(=eP
zlXEwC5#=+wz=Qbaeg147OYEKhf(1_>B+1*L?(XhhPDcP$>Cn`RM=Nymz*_FIDQ%qC
z|Lk}4;WEAoLec?eij9qRi48L`tKtQ@DVI%*M#VhXfbN(otPg4nWP@oqF)@+YySm0q
zTn)!d^X%9P<P7t<yhG5&<A|hVZ=az>zOIJ!RXEt8;0R<GeA!^HKmT+myA>qVvCPg4
z$1{iQ&l{xh+xxIDnXldoPGRGSlpp`_Aik#Ghn$_cyfWlODh)kSa<9Gn<tbgcYB2#O
z(|3U!4`vvgX1VjxliHv;Zw<CBkM!oNT(|}N+T(?+#C(4`3tQBg3K`^eg3&7umD}si
zVe0&d?-W;v-TX*xc5Ch6GvHgGkL_%2;c1CogI^=ZjVe8dpYVA*AKU*dt;tzv-wr|4
zCo>m|$1H~%8Lo`#BLaA^Ji+fQ_==&&_q@NQ6`{gcSa)9DSnC}!^6vJNg4z{hU{<Id
zjB@6`7H;RE2Gq-kMK#WH0Rk^R^8deOw(p%h3xeGLT5R<KZEl9G3||G+NU@AYD}eX>
zff8$vN^UT6rT73Kz}PPwbqAeiCfxitZ#}aOzXpXQO^`SNNf#U9PW^uQm_ArapqZf%
zdCgY=Gv%|1xS(5Sr&>5$uwaD9Ws9~@u^{sYxl0_kZean+L1$JCH_^y9udhICH42L-
z#TzOA@|PbbgrA0hN0VGJ2Ns!T(}K6+Pv*v3@-e!Pj2X6}iBnucBEvuI)1Aa%DA?Yw
zU$ZhYPNGMra(XYE9<QCd6iJc?7fhl#?}&fBMbS-ls3Xt@eMK*4juGgUee5J9vE|Na
zQmLVbLd^)~*_F3h-r+A7w{u`FfouO?1&x0JMCh80-YNq5E`0M{LtpWuix-<X4J`!C
z4Gc0~h~Too40jGc7RV9<0N<Z)0=xk>=C;D$lGnzL+5Gn{@PBF}TmJ7&{J(f)axzQJ
z{eg4s@zT1Q3iPyKv8QMDfG9t86PX_@Q<Hr-)A@MYE;NDzlmD$2Fl#{>fY-u0#&zI#
z5g@D6RHK#$tdq*B>L9m*fNW<_BgoL~0Q2cDVl@R8XDmI<h`C}li2;Ve@BQceExBiC
z(<xNTtvkhUQi9_B6o@RCOPYytMv)gBze%;fIWOQ&R~1M|g8=EE9oH$Kb_M_{Xx>A`
zE7p(Fc$&50Z+_JSC)GQFzwc6LdM#!t2j2URG;b;Tc$BzJXY%8)2Qx*@IUe&PpuDMR
zP{6Orw|{(m#&zzl%KK)ixyrHLY7Zw+nBLt=f(NhD&f0eK?ctFr9kt~15j=HjF%5OS
z^e|BZn*ESy?^L+9<h$eP<-}zz1A~5%BN@QS_KTyl02x84p)xt>yLN!_w0ag)4G*{q
z+jvjVE5!Hh@a$HCq%aP9Etpe#LF`%xS2~EyR@e&OS$TQtw4<O(FU-0q=q3x;d(3^y
zjxqOE<uG%LcqMF-QDoU%PFISIzX;~9rKM#Djp<+SO(Ul#$a);QgR|8)FgT43%dM&!
zh+@FjfM(YVK`HD`c4Z7mbU^P!8u)SE%To_JS0M*aWiY%o$!f%9*wTI7-9J>Bcc$Qp
zfqOgHgGDv!vnvowL39WI1Zb>}0-@8DLfQ=PNuZ=aa1E`9&D8u|Q1aUHbSn6FH<A?0
zz^g)=<e(|<?(Lum*moS9(U63gE&p-GcZm5jsU5O~;rviA*K06;YsofP2aB0W-#T-s
z2S~50xoCun4TR)mXzgqzjBB6>P^<C!b!e;lU|FVW3629SO{GA2hK_lb^Zr<@1nLve
zxe9=l92?68H#xEj{x%@clr1JCBm{L46EKUOrtmu&$)(j@!8m?|bWdCy+VYpbLO9SK
zMn(gV3|~L_2<dhEGl9gZY0iq_hjCs%o(ah1*88nJJb(McRy_HLWg8l}PqxRAjF_O}
zVpXF~dKnNoEgf;wC#jIl`WS3NM0^gm(_&toSkpR#P%nW78`d;Ph40s`4bOX{heLKN
zQ)1I~98V5d8L*xVKHstM>u|DR{W-9m7xOlnLXNbr)~(9_`b^OPx>^ZrY&_ZN>$~^y
z5QHT5NjANP<`M^?X;%pYB%!$C`ge?cu2Zns=8DtiJ#&Bh#N+<)UvT9Nx$`TN`<fp@
zz+wTTCc$^9B{8H6K>E^??Y0Y}?-P49SI)u>{wk}pcR%mr@&EZ9UgX<v=jhlEJ9r!@
zcpP>+2J5T!>q)051=)d%l-L{AJO&sc^ZoY&P_WF}pvJwjZBYz(+z~1tsn|dE9La#a
z@2R7B=mjtevMiAv3NdQI^f8#+7$R<z3()v&LFvmZeLew_GeDEvd`AqT*AQOCktj5<
z+s&(B%4E=lZnldApn7NFG{A4(RR4c~xpTwXnicAlR+J0EYz7(TJq*Ez081}gh0i4?
zqUQcsQwV6(zP2~#X<+15CR%4uhAc+9yCY-AwsDwhy>r<A?8>>7kvG_Ghp-j-@oEPE
z{mdlhj5Yc$&|v2r*ZRkRSbH6A{!+T<+j2N%#pOIf-QATZ_q_Z02d*`41{n@|HuJTs
ziH_B?5_mE`PEr%4s~|jIFZ#A!Eq5Sp#D6BhfP$WhNiJk9HeGM8M((UvEN&Mk`bD-%
zpJDeWjx#Dg^lhA;Qo|L0t#C>*s&YxE7)H!~tLlLZZ-$yhD~3uZB~=?|(5%3A5U<~4
z&O;p4z>0Yd;t6*RS2VU*={5R@O&zp)Q0qOM!tez2*?ZI7>D!1WRcC!XOeAAwyKq6i
z6bVVmxK@$swi#mmW?)r0R;X$Qavn2>xcfs#burVGJVHIDuHWzF`I2!FwkGU4YYuuU
zu%<Pj*C&B%ih4R&1`iZj2E74qSe0-8B*bxNll)eU-rH3WR|Yzs`2yXcezgpH11Ogv
zBJ^?NvjpMt%mGP~bA}%<gti(lYFiMmzs=h&8}qShy2<y40bbsiubion|0|(82831e
z0Zln=;^xMxE&)VOrlUOHCKGl@Bp*z(7{;EndJfod@<wbL96l4sn0{sJHxPbI>4NiU
zg9KrXxe;%dc4P?h`;3fhu-kb=;-(quF`}lGS{&w{DIoEs4Vjb0>T4sz{q0shrE|C6
zKi=lm#{|bz++pwnpfdI>Va1Zax%$U*A&C7-9RGSW^tqt>uI+k~JQbD`#)J^{p`7q;
zht$hPWp>dgH4{x2aH{F)={vV>iA)1G5MqkQeUA0BB?$)-w82!J^vi$xm3Ls$_)otd
zliVGpP7rwduaEKCcP3wAByG}p!QD~;LGbdWeAu~=6X}Yp-{uN0&drie9(tk5$XHxC
zQUKjXEk@)<b)qdT{1KS3Yx^$atOiA6*5!#@vxM_aHlLoeL)n6{Fz=lBra;rf%honK
z(QEQBEQm1Nyh(+l1NHQvZ-uJz((ExWGYVP{D0U3OYW{)YP1GIslq=woeK_^@g-ADa
zWp|kF%FW3k2Nv<AH<^I*f{uuw<2v9JEQjlsV`WNs&$Wx|4y(ITY@l8qvQ3w3r_7Ah
znke(QzXZqO5~bV#T0W3pO1x`F*ViIT_kJU5FA0MT*W(udq<;9>_dgxveKSd(P_R{8
z4P6NtlLGWU*90V1?MtHao2C}GxvF7{#F39Qx-Yu?_d4RUQ6%ci(Kjx-bCt}vUm>-9
z4_6u_#=1?MwX}W{E~p|FT90rKqZlSprqJQ3OuJHZh>|GNnMwWGnTa_t^JGYEbMq^w
zp>F@Ev#t=q%Ee6J*EWF`kGffS`ytqUs2h!HBXFbh^DOxZ1Hkw}3R3EZm&5V?Q#J)}
z$Qe<s8*S+Y4m=L29mY@)1vv6)aLepq+$ftQv&$Bs3>{E=C2CPHAF#P*T<h)rzFFnE
zhlX1d%+!_n(p^G0#V%6_g`!g%pD!2|uBhUwtOq4QfWhny0sI2Dr4|8u@bkb%_&qIj
zo`tkj@nLp@T+DGBMt`QDjo484xh)-1rUbxzQOqw9nUj~-yFA^aZ(&i0n(f_^n%?*X
zS;?_;`J%gm8o8vLZ;=_$NGOo3*SpVEk;rvxbFTWSw696NOV17o8>d0anGNb2TzdCG
zE7@4fjMga4B@5^G+p?=FUd>BHqzw)Z>dnvcHnmj*xecYdV<6QAlUSONpPj7@;4W_2
zv|AqX(b%)MFAo-_)z_c>VX;ZGn2-vE5y6CqdFn&Sso13f3=djEZr^68P(pk|i#j{r
zKpCmWN!)0CCENqp<le0+U<-!nwtP|5#y|G-9C4~iamC9UzTgn;hcP*maNKmc9}X=k
ziThfB{~2JSV-(l5pbGUattw|!9lDcLDIauxHf~(06FP$I=n4Lk3GIvr=MsDzS2^Zc
zVa(;RBU6G8oK5zB9=!=vbF63U&7GHfYKEHPRE7xkvJ^x?x=zzq7LNvgAB<4OW}_sp
zYNlP1s0WETrLbN^l{`?AnOpI`(yTy;8^+59fu#nuUQO)^CX~%J&$>j)dF|5hY2uWJ
zGci^w>hodX=|-YlRgaV9snQO|pcM)S<0pebDTFZ?Ir@iHm}r~=ViNw6esdjW8MQkx
zMweDEB8_D?&t&}L#I>oy0H!^;Saz;b31&gnn03JT44q0ns!a_AKgz%GUF$g1|I}s3
zp~80Y$0yh=Pr<cV1~(B+ho%iyvt+7y1`92w#wh5FsHXo?)Z;#T2WV30*jid!^AAu4
zZsESJXIw5KCj<zlt|4>voBpcZ5Gh^oT(}i-`20zCKZ*|)!ar17pu14avS|v^kdDf4
zuz0}akMabpFEZdGX`@dtIS{tVKvC$f?f?oGD!24mf;tUlNVcwUFK&^rRxMyeq>&PR
zG+5d8_EtU^D|H;kmA1Ag%A3Gu0J#RA17mft(w(-M2^lbDW%h8u$^pBy`{`xl;=9j)
zspQ!g)*84@wyBzNgj^GM8UM_x&`=K+PQ{3KF7UTZXzO1{RMeU&vBqoo=~*aSW>Dxb
z-`OioicbYpfC(v>MLb#7VQAr(&bzS?gzh9jjYQo0SJ?)*+0Hs5jAz(EMgxbUi(OE&
zbRCAhf+-av9rR_w$cLx9+#!~%sA`*CT=^cvOGd|E0Z_~CwnR#-_J@dhLmQLzoqu?i
zQ}4!&kX%bnwuro>gL_KP0R!v#`qd^wBf$=qsST!2tYE0s$+4DZP~tLi-7;7VbpFW*
z6;8|Gh`T7Z!@y`ekgc|<u2kK!LD32z3g}Dl2=0ApZEd&MSmHqcj?z@H^{2)G0S$ik
z>CU~+;l~^%^|ZAk7y}LoZho_H4~^2KZajpm>Sqp}hj#vEnowv#enK=61)3f@mgXOJ
zEj0tA*ge=kC$V91bSfzhw!g#}5FR{WB-+^l$#f|&(%Fg*ugWG@Kw{tuQ=A#IL$j}E
zeL_Fo$*`#RpB(leI`q5{BhIA4MGee+Eoub+w!~pb;{2VDJK$PN9P9gsj+xcZHs5@A
z>k-g8jV4;ukaW_<pc>!)YdV8;cefhI>Us(-6id9Q_YS=H)OI3F?#|=)w{n^QDBGZ{
z-@tHY(bthr92WP1&&90BaL4bsRVjf!+}_^11_h?JSl@+9t^g~CEg{TxWGX|OJ5BS+
zn1HZ*==T|TQ#)uM>);0*4UXhAO0GL%9qTH>EZxY6PTE{2-J2aOV>@FVY)fsfEGXzO
z^`1`8CLVb9dv;cqN?&B}$zYTVQelpO3r2j;-hK>;q1>;>ao(NWTk2QMQ{sn*NxMnt
z`$;|hYfv2_d@$*zyUF*4!C>SK71AE6*b(O;Ww*K(hIIg{@PND76zV*iGFX`O4XrT+
zo04tL%FQN_q*Re}a&=-Lo0M>6GUo%Fp!0<@<V_F@xU8+t5#Nv5jNk80Q)SQ!1M(rB
z%4xJRQN+afem+0s0?Bi`<e%W@NMLeLDoUB@49@4cn+Oo4NrRe8)?-WCE=?<Jt*7Dg
z3+rc!Tiswn+8#!7Wnlic$NvZ(RQ2+peW8_KXj!V*(CYo*mY=topa2v%7Q;Y`>TH5J
zpSkm!WBrQj8o(K?Qwd`W4H0Am18#YUdzYhK<!qsR5<U|K#dEW>PtCfwZ1(UtHN9pH
zecFHM%+2KQjX~99OL*EcGw&Krg<m{jWeJW4R~8k*3KkWq4?yIW-yewdwsP{Ife35m
zOhr8nJU}Z8p7$hex<?t*Uu0Uu31z#MNdCbZuaaOf?+rT1eb6@Z6zA>?vkE9lFgUv)
z_>5R=(z3EjFQ}U2G6M~TPJX62DY$Kb<*t9`P^*`^Dwnw3OLOmO{(Q6Ql|afh2o>3d
z45nasymeatbAE-A%y;LTVELnS@Q{k}czpYA$Mj{Wk$_pEJ>11uKzidmUM>{~5nO3z
zlD~}m@XG9vI5-Z5F!TTE4$8zp?nh9$JN^FAAeD6nNFnN91hTN=+H<pd7T1_$a1uLY
zC}$vn4EXYsZ4;VyPiKk}`_88@^@Pr&qg@-czG%(D<4Jr{l6yR*pjrd80GFJnbCZ>0
zJ@a9LKVw>EwzNkNrpQ{N1SnIfVK7Ogb(XWus|~0ts2yd3nTHv9?QWFl2Owf-=mz`%
z3voBh?q@@b=eeI>K6GsO1Us5>LvP9g0Up95yAp`0z?b?fFw<S9(_>IMhWDz4tO98F
zB{W9_eUH|K=m&2I>MlS6&DuXbTwQTFMT=|!QwniTb=mMOO<L@#U9{TWaOn$YDsf|_
zB3A0b+mjmcHa;>}=Ofiby5NE5lF8(nevqlgHJ(N2T?b*kRWcL3bIko{`i7WKn!p}_
z9(2$XWpR>QIHh*LOm8kc6%fru8$X*BA5xTA_qxM?e7^tM5b^ZEozpecjvl~~A1!R&
qqoYdbz%UCQ{ogJAvjMrV$>Q0}&8ci>c^rW+)vFp;3NGJz{J#LnmKRL`

diff --git a/reference/Rplot008.png b/reference/Rplot008.png
index 2c3980f91655a4cf339138dda317a581d7ece361..eaa189bfb11c567fcaa09d477bd86a69973e72e8 100644
GIT binary patch
literal 8151
zcmeHMcT`jTmc59gQY?TC1^g65Ktbu<MiuEzs_mmok=_D`0yesUw1BiwgGe=0K}A41
z(whYWBoL{AKwwUsH?!W%d+V)PYi9nKSucy+kaCmXJ->7I*?XU-+L|gXj2w&zg0QHm
zD(WH#-30BvhXGze_14D11H)Z)6-9W2+xoSt0C?EztZM9vAWW>ZJ6-pv|0aTPd#Wj3
z(f3N88})V8Us-Qj=ooAh;(7R3^_<1!9Nts$SEAFEw4doJT?tmap}pIwFoTm|^KmAy
zFIPt9LYb1i`t}>U1(BV1?dx>~3bRB6_E>1o?^B{HK6zlrAA8kS7pc_ufA02IlX!T4
zF>;h_A9BpagPe^2GX_OM*L-kom!?AkH785B5F}7vF^~?q5XnwgJC7rjI*!T^F7l}H
z^72xCHSRBLns%1;obPRu96zx^c^%5tO<5tZ@a+i1W~uM2EXxUQyptlNWtpm3lKdj3
z=EnussT<VA__`M;>Qd^q8F@S)K;;DkqL!<^)2l08i9_7(B~NZnjw&~5Ich<%8NWt)
zV82QlFZ!BqWIx^cy4aFRS<%zb2&>&(Yz^l)h(uqH-}7ss;oF;)J^W7Vi<5~8D4&?g
zicycGmey95Gq8*%p86z7r@s9GYmEc_PSpz`LGRP-?Cp6ueII|Va2g+&2@6%>4%mD^
zopTE4$<fJRXJ#<a)n%3Kz^4Xazkk1LX=!Oo94Mxc0=AEPhD^4`6Lw!(dnh6*DsI`r
zJ~vt=>0!dd+C}mw%T7*C&b$z9?@X3<We-#4<&^E^U}iYP%pmSItsNT|_i0q~2d@3n
zw%_E>pVPG)^Kcm&Bdxvt{e&PUp-$^m)L~Nz&v~;^Z+yxF;r?kH0o&6mTvw2uerjd9
z>za|-gWy`~swpjOy>IR`x_vrkJw0fhD*sKSi90B~Vmo?y%$Jm#mX_A+5xSonyS<6O
z<dAp}(M5|MU<^*~z`LqMaJjcj8=09AmBUZWj0J3?@X4-DH7jwxzuxb@hZhzQaLG3;
zbZM8CwC(1p@L8E<>yy0Guv5}+&AGypWO3xF;z*KH?F?MO=HZH41_qNjPtv>xX>2aN
zD`&Vapw4%$tp6@%+`Zr2k+M94efzds>D0jrt2Peu$0N6r--Lf^HTRjx;``#dS<o)+
zNva{^QmI61EDkpWIYM4+6|TB??^7v7eyA2z)!NqPZeU<A|0Cj($2fJ~(;RO3@%Eek
zKk@h~)W+&NXDOmp2YSxM#bv~`Lmtn;!C_`#5PMw8Ic@mOoogko73JIU7CyNfkfBNU
zJqdk<^YA%`o)<{u?2R47WLL=%=SQX`R$)w`jq|eO>*1zlcCks)uGy~b?_}pI8>t)P
z+u<qXH7T<I>WbssP#Ir=eZ%9u^K%vB;V901p(#8@rl!Nh^8EaKb3?;8S%^_gPhMVL
zGLPra&ruR{O|qowA68#pbrB1`e*LPc8{>?2?=yBBuSFGNt4d3I!?@&!Ca0!woU$IJ
zwp{pd)TKD#TU;9yLQ$QEf8Ds!si=Xsd}yzRn&obFjVZ_0tqS%D;o7x^6x8aV1DXxd
zO&D~ommGDA*;<GQu-RCh6A%#4y>jKDMF7=ZDMKeVHr5u_!B<u*+94;p8jwmFaO4aa
zSoTUtNHD4KDdX~*pwmFh8F$Dnz1YVkcUCPgCr4XZImBmqx{GMpUucSHj^PuOl{I~T
zTifUss?1}4WRU2+|Af>@wb{WEYvLRC3rBm$YJBevKgU3^rutKIv9%Pt71DU!*ClRY
zNlD4o?aL?A3JMAa$V$;7A|i<>g_<&IeCD0T5Zey4yha>puta5jeVtF756KiLK_WP1
z4U1|id1KyqPK^W+rBR%_o`nTEPRKmZpGx5u6wLqFirZP;X8k$x4+>O30k3+T%}C_~
z4l$cZNWXTeAIx9-`Xn~w98jnl<p{1qY1gTo^z^GNEG#}7a}}n{C{4}qP5(MOJG<V_
z&I23x<es!Ek4#b)wl+xpS^*TjLh~v^`+lqgS)oFyn(E{>Xc?dKYtt=*<+y|mR6nOQ
z7sA6*f{+RQS{r0iKbw}^YjvS_iqT>YLt>*S@@QLaLwQ#q9ewG8AD=uNeDUomCU5_I
z3Tes1zq;d%jaXhm!MRbF*7H74YX;`#=kdu3+ncTq<F)4BoNvM^TiV+VO-vGLP-k3X
zRaTku$z6VR;9l{OS5O8sGniDz6-`BN?{^XoLz&~7Q<5gdcZ1JpCg(JU?ys<~8$LC*
zC7F2PPLKr@;hA{zH@6=?d-hDmPZ?2Vu%cU)(*m%b?aBy+a^X=kvhdDYog2pNWjj;q
z^)8g#|E6%wvTlsgmDCqY?Xp_#?(Vqh^ye?pXe{kLZogj-ySux2)Ryoa{p<MDA||2A
z%QZeL-QPbx7r$MPSXx=x0dV7pZ(Cm`B;;~$uQdU3Reg6POvc~pdxuBo2L<iO!e9uW
zjyv_1^;-ybESXe)!J1dOkw-lV0IF4f3aQXCFqfz^T8Uz|y3ZrZ*>ba}PQ4f{?y#d5
zubNgkhMnJ-N^<(?jb2<_l<`x5i$be^STM^>hLpK3YTe$OuJoLTbK`8wuw#|RY2_Ce
z(98&qVFxo3_)v(fcC$IXw$=iT7vFGNB@XVbJAq6rH=MqWAk4q^97PcNo&WJ*d-(XI
z`z>gCUERBd-F*VDz1GI~WqzOej9=pC<5M|w=ulrq+Mya>vLSQ^jNjr>O>@Yty!`w_
zjKKveS56ok8|M`j89^SdoIL}n|1v77>rd&>H0Yq0X>IhseTeKtoW`n+$z#4nj7&_B
z9<iSd=#fbMZq~AN98N}_JmQ)t>xqS0j>`GE1BraedUyhG#-`;Z|M^dzOH*ypnYS<G
zjEsyZI+Uv~tcP<ttE#IHRB&>BSdz=i%Hrn;Gl>W?T%-C+;|rQDpFrcANn{MsAr<f4
zChWPF(mYyf8>6tbcCYYe@m1&`;auK753UdgMLj4#n`3y@8bermVzd+zo@jWe`Pbcw
zQvKk=TpC2kwg0t2eWskje{kZ6h1V6xvc7xCtQ||ZWp^>?k73-Gwq6QzhbbT0vorCW
z*1%{~Eo#HAEm1u2Qb4W5{ed)td_!A6;NqV6bH=CC7=y1uMcwGNs$x&=z$7OpzZ~7h
zW_pswWc=1HL<DNNN=r-UVX=m1+23+yHKHgpn7rKFVy@G?yLQkWVrNfYoD>C6VsUP;
zcpRIOQmBBU<YZ<l7S(Ox06bE1Xz_Go^||cdovB94$x}vqk;}T@QS}IN^yEJe|CJc1
z5{N85Xw3X*mFKFJ784quwY=rYi^k_dJ-f6UM+8a9b?99<`f{99!L>{63yEAo@EFG1
zZxuUYb`MBnLPA2?$B4G?@k_Mx#9wQxcG>j$Fn@>wSkgY5=`3|$o-z8S7>7guoQJyS
z0a^L_Xx%O4^Iyqzg3j%b!Y=0SbYcC6I(3FNMEkm<#L)B%NIgRL&%-~C!Q}?}&1SyT
z>0Au@`m!AzqAIYL#rZ6|uDg5LrhmXGBPQf>x0?FT7DKFA?!u2I`>%Nh8k)oJTroTV
z5`v<lqESh6B7U{^$exvtTqsL&T7Up(JnXjNnxBF{rt>w2)BYjX^(mfn^}ta$q?~U*
zKTc`Z@;{}<q2O1E_MS=rP-<O}(;6Hc?7Nr7;<HM$mEU3VZE0P1YM;C(!`#kC?>$Bx
zRZc}&#q*u37c|25Zmus)dZSN8J!xra(Kj<YAxpirO^MIE7n-}DOYT)pn+Lx_susWj
zf7Q0R8fmP?eY*1xphyIr11f)o+cVDX(u9M$hA0%O%CQ2#f&DiQ-3-LsNJ!_`%T|pB
zx{12#M~BoumHFwQT4L2U`-FzBVqV-AK+x^^|8y8SaT}i;4iq)21VJK2zB71zd37;5
z{G(@Yjt<DGp5so{UHp&ekjO9J8P+l)6ry<?2Hz^}+O>;D-MLW9U7E+B_x^cUvL3dP
zF|^TVn@V=4uJq?a?Nfm0%i2pINVK6zH5=(2o@*2cybq9pGJmR%T69Mfp&UVMiYn>+
z7n}LY+zE!%)rvX;E30fCThMnYBG9dy&p8HGd6KXI5^QlAuP(f97C{ha7tL9(#jXq$
z0Q6Cv-wRJf?K}Yrj4_x;4UPX8ho7371qMS(ZblH*yKM}W3kQ~fx?#MRrrc*QBS>aY
zWoX({VFckk?HDNOG*+;==?BauAB0meX!JDH_gY3=W#vtph-BE$HDbI3(P90rutULZ
zI+B5fqu2N^;aUT+`DlyMU)Lht|CbMO1=X(fnHrdy3aT;g+)+H~cVIVy%&|$<i;Ih=
zh{ON<!F2^7wI5bS1a2(Pux%(7{NR-HdSiZkuCLIvN@(1`8_n0Tq<eS!bd+kmLXfV3
zK^6{&6WXAJE-x>$p(U;xqVfC(_GEszW!w7Yi`=)Ey;ZdCN+d<Q5qtg^cC8xi?yw#~
zNFZ2Ow}FqoeJip~-O}Sq*WqEcCClJWrFQV)&8`!-ftra~x1S(f)a@Jf94~|z5H89j
zyJ~jXi1GSkfI#DxQ--kTPVB27Sf4vzxZeAT<<|na9LROHMiS^JX_b#3KVsybxZStb
z)%j7Ara!Q)UwK6?MJc1}<(hO%IJF?FrM5xYHy}0W{q2%gt=Y;pP!h3dw13Mr2*5pv
zCzqU;a{(nvRS{qxNY=max#ax;=kE!oQsFEJqNzEOF2N9whdod&sO+FKGBV1~%;Z@$
zigc`APzF}y-gh5CcnT}&&=>E8(5UjzkO^pnJm~ZL<$hhZZesu}dv<)HyIWTyRY880
zj+LgT4hxwL7?(h5mqKcT2(0xW4jkO@A<vHroIN`|odCb)^WfHFai=jkbC+gb0U@C{
zythfIO_X85&8~kt(F;_{P>FSfgyYCrd@>p|+u=)H^axUFK60&-&|hS9@_@F#e=Q>;
zBbW`4_LTNS79=q9kYxR7mGJvLzmxepgVcdNV(V<W<|`d{=n!X_r^hD%aS0_I3eQnB
zmaT`)-M<=eDzHN}2+co#<G;NzZV!?#QN;2Y5b80%C5=MklI#*IdgP?-M;7PpEozx{
z2baT8saltfK9Im4`{8FIk-|Q)^XD~=n7ip%f7yXtZh5kC0+4L_=zk)`|F@s+W%^a_
zFsy&`W{z!7c5Z2@m`?sK<Rm}uxq5GJZvkQ9{-9k<Zoek37#JF!vHJ>HlTxZ!)Cqha
z6fhtd-?>Z96ZL!XYD!@nDU2Jbj2m7uOLD@N*hl(9Mgumaj#og9g|ut}Q(R5T?<W8$
zPh$3MWRX;jR(^5xHJ}TxONse2ymw1;b1_#&Bd3Dj%}2ZUmvf!AT$%lvuW`wGWo1P`
zP>}HWX=gH&8%WLq4ZOpQ@(Io&0L(eu=)TZK`2L%Lr=y-+S64UC*Ux<M;>8(EkxAM0
zXm-Y6eI1>szv^?v+oAh7yW`HA7Bs0EXQ)It_H+yaEUv5$J9#!J+Gv7w2j6Hkdr1Z_
z<Hb>$iN#{gD~699I|jg{5ywZYYy-rBP-L4r)ffZ^2SX-nr5m!)I{(1wiPzUcXA3LF
zuJ_JDDcDuJ(EY7~`oEnl|9h(kWy!+u2;(=X%9F0j6J2jB6XB`}+Q08!srtzSk$7(h
z8E#@`R#w>zxgdW_h?l8ud>lJ`&23+5M?aR(Oe4owHAph}26sZ=47h4HCd8zUMJP~m
zC?M!(*N0p=GpNa~4!C`lXyOA-H<r0~XcJt48fe%~{#$Xr#PWu3&PmuhXQ`3BJ!!mA
zs+k)7dcOWgy8In#(6<FS!paFgb~8^-cF@ryw*!%X9{zC*PQIqIsP-zRwLS1ul-l1Z
zVmScDqu(G#`uaA2xF+DkfCEqp#*$(o?X8%&oI`VCHKsp4g~fE>d%z*Vo;NMe3E18$
z?y(0?nug72Jg;5J^q**a*$m}}OnK9a8^xYLVk5eLSb6yd;STsbxKw>6G_5I|Q&0_h
zQYVvewR6kxF_Ax?IO1lq^=jpY@YPH0dPNpBCi1D{B)pG^+qd8&d7zC8(ZcME59E(=
z$hg@gVfoY&<-FfseXYG)>+uxx(F<v9{d%q@xG}l-G(LN<`qHx0<7WXg`oZXlO-(JL
zqh}C1cJjo&{Os&A2a|{{&}G0*0_?dX&uG$B<>>^FA@JKfkfObAZm#i4)AjF~A>IvW
z`u4Uqg9t8pAnXNzg=ptB<LDg^1L3c`n{_qqI1(r%_*y(!#yu}vGbQn}0nNtvpCsCH
z_+-KtmXO9foYF3tqLSW2Pn0vjzSV`Ofrlfwk5eWS47+u|5f%9q_=w`n%nTs!bgG0(
z(AVDHvj_H^J<4nnaW~zUJbztF%js=(4}EeA%~We>xQYUck7f}8^!5RSW{r%P(Zt4s
z2gNj}1T3uvANCImo!9oyv<MdUf?aMc-(nkFMgHwAq@0zPHwVzAi63YrUu%3l2^Tw`
z<rmeOfaO%qMPGPS-lvp8COOG}vJJh~2`5b){H;BlcbooIGPZHvx3RI&zH{d_e9Ix2
zMyL&!JLthvTDF3pH{eZ}oxO{%S)WRhb>P<R;!E{Q$Dn;$Kw>Y<<`>ae5|9M@RZk`i
z=33~!+&6Eu!9#>D71O)uVDa{JJ>R#_QKx^?_WOfxB~t3ZY^52a&`H7YdTn0iAug?T
z;ix`Xmj25b+#lm$IFegkZN_x?T<7~oyA6zukIBwKb{RnjzD|wwC<jqLJ8QR2^(W|b
z2GQ@{_jyU~yji6-KE)Fa6zq<??)AOFSAAf_P<p44A-M5d4DLQ`mcE4rHkj#19u8*$
z#@qv^rRZZ$X!~GSO`2^9vx&lo^t<gqweVF-;itPYaFcPSnw2-eS@x$AZrKB?<B)Vr
zhD;W!+jId9llAe)DKWCY9(YPb;(beN>!!H#CZ#kE3jTU`Z>}C&X}r`}ORS){|E5==
zNm+{zdubZvKrwkM8=SM#ryIS}ds+AF6hl$mpd9QzK071>+F)^MDK<X-2w7rb8zvFM
zdr2&g^Af@d2PY(KszZ-}(0nWcyABa*vzT9Nyo<)C^xhG{CqoO*ZfIy2kf3QDpsAo*
zX{!OIx9!$0jZY@dpA2tlxz2JzO8d9QmV%+w3QQ>M7JoLkbaeEK_nX~=xGio_p|iWR
z^RqrxeHM^3U;~+u2%Ok|t&uwqv`utkU7Nbc&dNh*ye(Mj(V5^W+fTN{g2$F9^&mZS
z4HU`hTt2{o-9-IE6Bv}h^$eG`K^KEXLD<E8JI0o(2lmUe(oUlpc3|!Bu<95aCp>%p
zys)WZy9D?u3zytYAl`v}So3_^G!I4%efP3nz`nx<+QDp(L)7Za-iW)yi+iMmg|*b<
z&UL-DY%Qgo$su-j9+K|6gDNLcIAHzx;qxY$_SkpIo}=#Z@KfgIDL~tEU~Y4*yO^A;
zeCpu3pF&%TtPxz?*8<~`yB$|(V-gzcDRdYvpE**u7L0QzWW%t<qGH5_DWX@VlQ>u+
zZr^tfYV8HhL!~bF3{^hJs3q5sW{m16vA=zY!$T9#g=;&%B#6Q^FB@#_wpSOgK``xC
zC4>hL(hTLyPY*pnnuz`lhfqBT4n(y(i&WSz0h@nyo~Ii)E~!^Ljn~rL_T`oSTlQns
z-ZD#HMBP6gGMfJNt+9BCYkSWcEV2)L)mZS>!L^0H-z<%3;tnuFQI>Up$pHztUuJsw
z`pNpsM-DRvv+oNnv+oz8T|Bs~uR~xE=u}5F^c?fXpaZtn+1dp;H!{njPOHooH*x8K
zs{<2?mjLdxumHw%OOE?xgoH4FgjX@F+LgI;2eaD)J&a~7G^<w^@4ZY)%7>Ap85k-?
z=I*h5MYqO(ZqkOUAD*&_yZrpjrl2-gP}1J*ORB*fx#gz=Z%wV=O?!0kcG`3M7dd$E
z;{E0E;Z)0nPjweja(J^6ZjaR1*sQSQl6lYq6D6I{LbYpmPcgfl+`*jr>W^z7HZ$E>
zL#4KQF+I>m-JtmG=11PiI8Ow^0GH*=PF;FB2HhJlHt8!c&VaGW$1N@bZ0s@&bp($x
z3xKepnb9zgg~^1iyijDR*Kt<xYP@!WJ3&Vq5B$Bu!)^LUA%g_=gTXfuxTz^=Dq^qR
G4*C}p5R7L4

literal 21154
zcmdtK1yojT*EM?6C?OyMf}|)YEge#VfJmtz-AH#zt4N1{f)av=bazQeDJdY`AT8Z}
z*7kefalZJ^`QHDWe~j~w^9+1YxbJ=MeZ^XH%{kW<q^u}IaFOyN3WXw&la+deLZM9|
ze{iwkCtkm5-@!L*LwOk~_zwRa-mCV3Zx`%jH5^eWJQCy&TJN~`2?|Arl9Q5n;+F7d
z{JAIT?y1<uU`JPnt|0COOhHv~K~~Z$*;uU1xWU&XQd1`LlV_y8)UC70*eot-<_@Uk
zK4LqPzEzH{NnBX6l}$F9!qE1`?TuZtKT2@#V`BGugi|Z)uu;^oF>cMr2%Jmff}%<L
zrbXQO<HO@u<#6f6rKF^+AGlPZ7#LEbi80;>27X7wpW-74yZ_0Y(n-g5uPRp0Td>S(
zxc8!}$=>+7H~IO=g4k${9=se4qk^E>urRe%4MTCzSzuG;>*G@r;zWGXbUc9%Y<jh0
zOC)ePdQY5(Qc}NtUC8TK2J>6XYj@cWPQ4#~6uJ8D-Mjf3S;m*N=LfCKY;4W9(i2`D
zuh)q!m8{Rj>V+>P`OrL0dnlo+OLISr@^yag(M8+Z!<$_~E38g`hKTD<S8bz@LRx3t
zPBvTZkCxIuXJp_`9#8BO;bImITqO*!?^EEX=is<xn&idDXEpTG_(My2GIv-u7d_@$
z?Xk_6_wgzx{&nkfDt?<L_`HuiY!vw4R(2UE@X=9gHQS12ao7rdoOV;<tU6UZv+uDl
z(S!yEU);85Bzci$9@sjIDzatCHezHDx>}Nr%FE7f{QV=k(4znLufaj1hL>1!4S$EL
zL7!-DZtmb@ySvcm+<VNfkzn3aXK?d)@|>nyWE<bY!h+M~kNVE~B(1RPT2l<0ma?vH
zczTjI<!G5T_h98}+33cwY0~s;gjma`djWQ9l?#S{h6*(-6Zxzug`AiD8UrrPuKSz|
zld-D96E>OV47a=^3TakWQ}gfbeI&BkbotHPj!*4$W58@~`NTK)-f3<*nAfcOR0k`m
z8wYi;YU>kX#uE(laK3+jM*Goo>qlskT>8<&icP$Phof!F6hVQClquAi`T68nSXe1(
zX=y)dMn*Kz#4*v)97iIr%V462@v&bMNrqAjtL5m`O(fL0uIo-aR7#1^@TZ^dq>EkY
zzPq0=Op78W42V8j?)?&S(Cu>;UDhSV7Af15pr)(KjtW#~eWn<H$0T^D#QbrK{f%Ya
z8n;4$g#^c@I9|)%J&zn@k<5HB{m4b@vmHN4x?XqgJu=5{HALrq&`8Ud$zf3Mi)PsU
z@$USrod7EeS7)%;Cff>`o#B#f*Lv?d+V$FF_S*B)b)()?Ik(@DG99jN0heg~C)fEW
z$I-+C2&qvhnFt!*^mlLHzCX{;x_$BD#i$9nBTv!obV>LvI_merLVUUfufjbO6O&%y
zb|Y$0PYRtXCs+*gCB419WMM4ROk#%@wzjvq48Hm8P%TmvKkNL);d3aDOJ4vZa!tSv
zb<ZE4Yr%H72rK%gf~0`~J&!`;jacoMTU!q8tNbz6S{hfc6ZiZ`9rwa>hvzw{J3kgf
z)z5dv+s}V6oypFxl~hq7Mt_0&Hq9wQa|xB4mWGW|R#zWNsSOSeo^q&!rJtN-Q9O{H
zlOx4S#yyywmDN_ESY>}h_Zlo>QrJSb^Qx9_BY$U)WwE6G>ap)XxYC@bQ(XWHcg$n`
z>l?-k;*AUClV^M7n+-U$$+nZV%A{C6hwXYB0b(cg)*itrbd+In5mY|4mL^&zRDW+*
zhx)Lsy?wKdCI3BrvN`3;20HvkaR~{umT>A299mDJLUsHeGg8O-j)r$nbwBLnRS3f1
z+U@o~HCh|1oF|X9u(af|ou~<|i(q4Bu15wWfW{rSD)0I=!r6}=Yvw%_Bu`YEYo2d&
zIxQ-P(u&pounq33gbCeP(L1NCJKN2-hl|DcIqS&qP)ftFl1fXcs$QAz_z+!~TWHie
z^O{`O*MK5WiotE80Vld8!Tg^Ct%GF;YX;UOm)nNE+gII_MH#VgVrQF|m>)D!9rkBG
zy-pI8?6}ai*!u-<Yip~(tcO9%OZ5C?dvPF_s!R0P3f`k_-+ZNFr&qqyHEJnGv-D!M
z>pHBeR>6gYSGOLgmAGk#jXMwORLlgka9aFg_G_HZ*;Rt*heyud1UoxSF;VD4->J7)
z42NDg?9RsZ{aJr1oBG{By`;k2O2-Am{k8E8_pbu*p<M1ei>Zen%2XX&WTl+$ypc*P
zcYyf)>-I>$us#Iv%UBo{uNfk78RZ@vu0O3i>X&<rK}=kVuOxAqm{`zv-8U#O@LE0U
zCIf>5>K~yV-o}8#`Hx?8r4$vB+zTM&wPojo@ko~!%3G`opZMxAYQsblH1(&r+s0l`
zZJ--VXRs$<uP(=H!hIz-BRku2*M0Gz@8BkDYjH|SN@(ma>mYdY_x#15{*36L@aQ*s
z<v9!%e}00;sMz?1S7_dM6P3H|cLeDqApN8JMOYlp&d%W?l@53FFmMPN#|vfqN^Zu!
zD_Nduc!dN3tHIwc)yR4*so-E)S@_oQ3Wv+EDKONFM#PN>R-~BNWWoT9`_0jsygWjG
z195o!VAB9kXN`?Z+JeZ>jg;hq0?xU+>HM}6p(>y6BWVFr3)i}fvlUyAPbRy}(SF@I
zH9WesoZJQPjaRgcI_RZkWn@pa?Xh6qIju){AgpU?u5WjXwZ7*vQdU;>Wyz~R$GJq)
zQ8Rs>?Q?!6civfIUA%dG8gpdDo;_$@zU-FE-9I@~Hfqx-&+*kbdpugM8gEMPWQJV5
z(&2`#&#5!!D~TMPYO?dA!MfxXq3~;hQM;6#ou!ToiaSevI4FmSGSy0&!LCGMdkCP&
zwmV1iSW21b;qPd^=L^FFUM5-7kXgDbI^ez{R`ROZ&ExV`GIDYrj?4%7Dmv3yiLmuK
z(wN~^ec(2o8LT^V?!_zB=M01)n2zu{xxT!-yaBUn_#^5DN`Js^svd1;v8U1V1g^={
zPmGIM;Jl({HC90knVK1Prq}+sX;%^?o;1b8U`PRP-@Th2vCJ<mnP_{*vbojHF}v9F
zx#H|-h0A&QSLkTTri<0dq}3>2v^I{3rJ(N0!`*TUE<>qa1x;o=nKj8V$=%)EZ*va3
zl}jE-i1jm|ki?~bqI!kpX&z~Mf<rLH9pk{ETCeKLgsiNYFR{8L<JGR@?J;bZC2<Qa
z2idt`J4GfXaXjmcy8$7j8Fm>H3OBa>MoR=O2Sa2a1*g96uws_89}y(2`}mYRvM}KE
zeni=7xg@ZsuSnv;Di-^cl?6-lRmJJvs5B!9*JyS|2GM0EMN-iurHriGq6bs2-p;y1
zc#$r*8E>k8fzjMb>ofLeRls&aq|ko0<?Z&~pW)~yjia`8Y<@%xG!Y?8NuG~j{$$|Y
zZEbCSM3N#qKkv=J`ubY2lol`L?Oj_j8!p^Y=A=UoTQpw^t}6w5ym_WMr1N<Q85_y=
zeCK6Yoy62aPDC8F2Px`x-d-Wcnk8nDm1hv5nP7ynvVujujsp27+^)~5_w8QygBbhp
z<TsNTaiXv*+3C^l<@K8FaE(St9q~KEL;SUy1S(IT#`5Hvc7L3KNxEf;qMO-t>vcjg
zkOUcfb>Y!BRoKrqy}-a}vMwLLS!O-@Oi|2k$`@upc4QX@u&PQEo{4GpPMFtbGx<!E
zJUg)@E|T`U7r2w+{S9!Fx?_t5T2`o60A-Lo)p34zcn~hUMr8YSSFO$Daw%V);CR^;
zhSM{LR%+Mx$7NYr^LvxkuKDjd4PI^>pU%vLaF8W=ZUqg8zccbDBJinpYW+CBcAmNX
z@TpOiP~Yy-{&8oWPE{e5KRu1x6k1QEqbW?B!2Xyc_Zf`)OwD$e{PBLW@#<|~7|%Et
zCNhS@3s~YJ$A5|?2c6-T^#WlZg#gOv@_>JJCbE--1kKDC7JBU45J$8&r$~o%yxKh2
zoRwBpeMcn8h-H@s>t<&1{H*-FkaN~hv1!D?KzZ#ACmp3M)j{V%;~ylOuyf)f0JX95
z*-j*sJWiz??ENAyEkZ+%JP3t=oqlooEPODlu?FA02Yoz_TF4T7qNc`|X)utZG1DVM
zYwci{2m?^DoRux5pb!>#|MLvh<bi)iULKhwE|<ri)#il9`URaqX@P5G<a(Zk0uH|e
zhbNkXE_YHp!zCctrZju;>WVdR;;U$Bu?RUWzHtyvU191OgvInaZv~k)QgU*@ceigo
zeE+6Y38he`2MMq9RYq3Uw}tHs^hG#!Wec9p&ZQMoFY#cldIFd>gcU8fonO5sWIr3m
zAMCs`5ae~d_eHx-5Y6*=wLAoVaDko@-KZ&$SZ+IjfGVaasb%HH!+1Ug6j6GjOI$`~
zW}$XtVXw6o{hf6V02)i{sVh|!d{*z_Q%U>{0^8aiAUki{)_C`Q<kC=I1xNO=&#Vx4
z|NF&i`@|1NR-W2&gKIEf&8367qp4>P^XksrA&(Qbw<mQ#Mv0&n=36~6dX=>qJwKpj
z%c~be<553a<(&PV*D~gCh!cN$|5%!pOkQY;k8tYY3ggKiQ?bj3hlev_=Z6u3t4cmc
z(J(#9%Brdr+U&?PUZnRsSo|E()bW9vEi8MJFfJ)+(m23twREuKRgXUbRn+`de|ixb
zrD$@@3&`f$A9qa}Dl`fhUW4lBR!bOFY*|@Lz6(;4goxA8)gH{?q1ETyQ&mM1|1(*q
zhf9xa@J>#$lxe!G759)Mi<(*@NeKOF+HTXYzs+t!(0X@A|IY6AQhHLbd0*NM1**I5
zCCD<kapT6ki}{$TWEx6QB!aS-r2fOlZKb=rZ{6nJJ?*IVfT{Y8B@OfEwvg!Bv|2vN
zep4at?Gr6W^n=Y-TJpMsW{!?lC_og@-C(*D&<}=oDFG*)9CrKg=}DDHRavu0&7VrE
z_NSVZTaU(U33?oCOh2RMzC-PyS#-{y$Ne}gXp`nx`@x{;?CgUom-hDdX7lvKoAcdC
z9A&nX6ThD)w&iFPQ`D1{W_SB4iJdxG4HYzOnKFcl@xNodwY1Hpp-6L77=dPdI`bIW
zQf}v``#qVDnSKonpqm{yboD8Tg}F|8kw?m6LdA0rN`_dae%&(rFI7ovupK+Qzp=w`
zrao6yRYi~hfZRuAr?7RVQ$pCkeU1<f2F!$k5<NSZeY?+{mzygMBdwyYj*H^N$GCFk
z%EqDRP?<HAuIFZRYWJKU(c(xci{vMwi+FfFpYGwH#F<GY7rGLmSke6Tbaoepz<=SR
z2O$EK0mVYu`%<30GF8rF=?Kl2TG&Ou<2~2Bk<MVD^(Y@K9ef%QiYUe#yTk7p<zPY4
zy=>5rc6n^=s1Y;0=@u0eA;s{<<Z4#dGf#-G8|`{$Bv3j0<RP#rr-C~}qI$0bT(qgc
zpmF11He&XB<n<wlYi;(XTR-nz`czvhy5u+(6-D9+pjF}HHY|m!gO(k04%3inTLJZQ
zNHIh{8|<%0bShfqxUlJV?fkgzeDt@V){`fg$<JFupR|6|{&PNTAySt2&`Z<29AZB*
z7Vf*tuMyM*Xs6R%d#u(=SW$59ZI00=m%SS~H8mn*2wH_qrL3bvkUTwg+QHqOdg8JL
z5ry8bzSip)L37ig++DK6Hs@!jNZS8gQ*%uc7s0;dI!?q-R28)3%bd>+TEzgP5hD}M
zW!}r^*JvQcKn!>pzM6nF5GEs_;6&wr-J^tcWMg{Sq!dzmC?)UhRZmq_`yOfXX;ZP|
ztAw<o_$Y)NXy>RK`;DqJ?WTbOV8XKois?`)enQmGFY@H9>IHNrM61KaII%h|8ojek
z<po;3$aLCHhC6l%;=F$STEJ<M2ynt{gGPVeOnMzL)X!p5C1e-e7om|6xYlyX=iuH6
zFdH(@pI06dEVg*jtUx)_1l&Q4gYIo4&wg}Yz6EI5O(Yx(k8H~4Y{7?4?orFa$w01_
zeFGLb9Zf_$PA3oq9r65^#2b|sW7u^pypP>rhz>RyFGUj$sEzrYpQ3yrgY%nLbuTnN
zUq}q#wHy$~eF6X1|NTAEu6q3HV0M0fYnAhgJ_R;@WBo{}B~q9;el2_S=+R4YI(^Z#
z$vQCvI@X+@9c$dXIeM0~Jk-~FT4$fwnMo|(A{s%hROR9&O3VIr=aI<XkP$q$a+{Zs
z#GvyNRn-q1dACCNJn|E-Ll71_T~adqnJgjM$72tyLNF4%Bm>jZEy&q48G}PYnh~rM
zK<jN*7HKgATk~?GKfz_12pMgU)zbOQE+^npa*H7*Ls4Q@9HS7=_aU8Uy?R}Adi$`+
z7Y(C{_G|;k{&aURe%0%6F4pjy-v!COl2i@@YT>*Vs8(4M$sV}v^vJ{~Sh&N-`w<Z&
z{m9I^EkYCVp2s|D2%te_r_WJeQZOWGgiEONK85tes#~KD;ikpPV|Ao-1_|VqUHRU-
zEcR`;(%&a_->Aheby|9~U1C173Dxq*Of6-;-qWW{5W;Ul$=QT)NrcX(axNy7<K~Uj
zmGsS;moL%nN6gcMAi4JBOhdM@>|H3_TODPxsXN_EHE;D+%*@Jqp2bIcF^KkL3MVBa
zL)K~Wr^J}csP#Pg0m*Kvd)K5xJKL?ghy2Fhi3)8eMGYwY-2g3i?y^@*p%=nlOEoD@
ze3_S*r+7s2CMydW@%fYMGU0)nv#ofls?B~EE_ZZ06z7&Z%suGIe#)VutW1ZbJNw0-
z^p3h|90p&a%txP%=s|hN{@}rbs9HZ&6&3ot+9L~yF@9NDDS%{ejS>U0N`g!pb$UJ|
z)Ytz$ugl4c=J-a=lhs<lwey)P2wMCiAN%Y?3-G)Ot7ZxF?46y`%X=<<tsfn3TFCQ{
z*<pAek4~l}C)Y1M3LNP`$SjAswoubcOP2V5tHcrr@bRyv<)x%ri!bvbC1behzy0Q)
z_2YjjEK}<^m+f!bYlyQvQ3YUR>kz#?|3F)hufOzh{Jkhf=HRI4WB07Ai#mhW=N%7J
zNO9?{A{1gwDzx(wLKXUWAWY0!SQW9R*L0XWn#cK@@mN$-ORIFq3yi>$pp%PQEtHGG
zR8@7nQ>MLE-g#Baa(v?>b9@4p9S>!*Yu&L9svg3Il`fGdB!!COwd!e?Y9tgrOcK3o
z{?$&vN^#pwM7_$%yls!55mG_XlaSHX`|zFmqG(cg%|<PCa7z8EOFX|xLE~Rya75H@
zer}G}GCu8d*6kDTx>Xln|5cr*Pfd?e2}wzpbOzb#^yOPuT^eUMhiKv%<p9}c<mQ&1
z&ZHC+5cQb-8VJMl_4iUxRUI{oHo2;sPtMEBTQ-8`P(9gJWcA!C=rkcCcaGJUSD|sa
zKYR1nW2GAk>!alyYWcbZjhvi5XP(yt9a4WZPnmYSfAJ%lX(5Xgs{UEsE+vWd>Mt>@
z?aZvKJhn`OLtAt0g@(-+AAY!l^*CLTH=WA=#deqQB^1J+bR>yQI#6dGncvDEjE{Dq
zoJ{Ks*PbwMTG*aTP1Fv{HEInPG>2!n&cVUKWIbnL)!f`HXfC6w3jEhXYOeP93+AVz
z%(2J0t+RzC*Ye|J6wRZ%eP0u~!CqHUQyXARzMP&&&{z-mU=IbQ)9T0-@y5(*B)p&~
zzX{k2mstT$^%bXkQ~da6n61VD$=?E=Rwn#fVLu^?^vab_Wn}|<3-R7{Vy5ZIUZQ%6
ziV`kB_yRju>UB{FZVP_wxY_f9QEqXl@H%7&t7CmVD9B+#kGY>lv|>oBDC_CjW>ag#
zAW43E;GGL885!`pBNMh?bvcYR%4#O(m!)Y{9829%t+VzB9R~H*j{_T)O_T5z9A>$w
zj_MyxhFtA9&*}XRyThA~D$SV4cdw1kZ~j!wD^r=>bLbh^+}XDsn+V!-6^<+?R<Uef
z>V5;|UV+WH5Hjp~o|{;{{#5n(>V@co+KvS9E4z&;2}pvh+7(3Njj<*06Hc!qC&-E0
z;~d1qJwdGL>%LF(b;pfIAo6Z5XXo>M5Oth?h|=?s3keKdH2#KXPlV7oXb7E-!sa9<
zj>Mp-2mXgpAN7~t`M>{#FJC1U3GY2^oIBc5x=ks*G#E~Iy{LjmF1{uvR$=Gzjo|Lx
zGNu2z{cPkg=vd;*U1yai=tdJSwPU5Fqy$?Y|NNIf=zsp!{<U`~C$J|AYO}|FnPZfD
z$=V(ht0WU+A{+H9Z53CpsGnTlT39aXZFFHJ1dkF&D-W07TkA;~KWy#>x%d&4jXe0}
zEONIT?RXT|S0loJqHOfXoMTi*X-PaPhVepHmZq+n3h5}$R+B`VMcs!HH2q9!ofw0K
z4WrTt?Jzdt_b#JowP)4C1esFebA}L-7L2V>$;^AM<+IjSK?UvolVaqbKC~||s#sd^
zqp|vl3tTHJ$!VRH06vnHthnElAvI?&K0JjPa(v84<c$5$^I?5w;akDzjhqnjR8=#w
zAhe+%UI0m1Hi?#*6%3_n_0958g4lMGYHGQtH?gq+vW$ku&95Ouv69_mBq{7yd^ukD
zqX-{L@8~)o_I)jl7`DOR`^VP1GQS?3;QyPJ^B)Ml{}Q18FC+K=p1=6b>ifBe8FmiH
z8`zDUQS-SP#n?bLT+wx##=@nK%ZaxZMYhsSQ?wj&N(h@_J)dQm6!P=(?gJkj!>WOv
z)Exle<5?#Y1A`Fptx6l^m}qXV$yzT8K?g=-jg~;->jen?w%p&|>j@zjct2FVhH2t!
zAYwK1=z(Y4t6pkS=TRu`4`-AEbT2I}tr1I5IUYE&C?8`&s<{Yj5|@6;rP_LDfRj%y
ziZ!hBffnG;ve8JS6aal`B#-H-5r!`zwUDvSym&H=-avn9e&%gV)YYWXg;<x@@=<s8
z`VtDg)K6(K4GT-Q=VS|hXyms%5YbH-{$w=Z?NB;-vn4GnE7v7ZQ>zQ(Kt0U$rd(9q
zAMFqG@=<=EpV6YGHr<c_nAr_z9wN?Sl});nn+OdGS(W|a?Q<`?7mA<MMNW&GzBZtU
zIofpp3dIsgF={@+DLgB-(Q-hczijBhab)onrF8;Q-D2Sjesb1r9)){!L<Pu`0~=US
z62`Z7ir&38VUt}KTkCjLg#BrY36H|76lPrPR~n-po-5BhHS|Vj-2GkGf@zbS6$j?v
z-mAuKz88fmGaH*90{GH8B`$rEjbjJ-c@vn#PfAImAOKzV$G>X$ycUWo9y1~o9a+ey
zw40~GuUh<wemYZg#T%q$-DZ?48V@Hzm&BD{mGytov9428+#4~v>JK}+6}x_GD5uPb
z-xrd)2u-=p;~CZ$<1VS^wN(AicUP)~tBr6d&(88#SD}RaUSwr%<uVzm>Gg5Wp$;o&
z6-P?3ZK*uD{Xd3sRB~!6=JV&z-vjvx2`5zdt2_NQLZj(#ugw=A_9iYm91*(hF8AL`
zS4tGRg5+FU4-uM<1VQdqPlTAK_W3J<{%e8mUkc~{>n{bet=*GOV%hb&M3=I>EKq_T
z@x-}Y-R#8k4NuhkTy;5|rHI<$M0w;;$WvL89+&=67kLqF)xy}o?TEk(g~Ty5&x(t^
z^4;l)x##<JkNj^+4L-hFPj+j%Q<*`luWN7xjkod0zc&oh6chf(m;XvETAeqQjbdzA
z-`CPqi!p&EY!(+|FW9&u-SkX{CITmq)fvJcM7@4mRnjKwUq*i;D!t#Fb)2GOi@z_r
zFx8laSa6E?Uq~6_id{eF&@ksPJaPYmXcEWDo#BtgYR8+mKe(<o@fF?S(<s{)(orF8
zKUE*L&D|MHn8k{GJfZ;l1;}cwY}r}2L3T4NRG-JXM?ad5XmD@7uuH2XGY5Y;x}np3
zP(5pvW0MYBj>7+iKBw8|a)0Yphf3Dnr2%IxC4ojxqN1M>tnGo#h6FxTRAV;$u!K))
z<Yl55p&-V5)li~a;&A7mUI6l|a)Hk(7DH4)KE5AAP74nUIf^nKmiKax^Y|mNnEg>!
z*qnf6PFw-RmK|NUxb?4%>3;*+|KA0E-x((~DaD|x*ks;^awCWAv3T&+W5%<3hy3l^
znVfIoxhgcoiBlByPQAUaUkqM)J8JPcd$1LCGlgvWmf648qW+cT@n0WBJX;UX9SF_}
zfV-WoN+O$>AekA65(YHB7xfZC)z5C~FZF)O)gb}!G^=^n7nrmsIl5mdQ5$29-Jd-6
z*A!wta2a9WRQfnJ@&(WqHUG#T8`)_)3IM@x7&Cv=%(cfFH3wgLf5+q^h#(e<{P-Ba
zL4y?Qx;}v@A8fmG4wX~ehjf15E40VfWiqZB$u_U=H>xVXvA-%8Mc01kVi7A2idf-Z
z$Njrej2g=_NYw*K;v;$yYvY`Q#&RES7Exr(zDX&qv<k3Y$>y5#b56oqRWAT<Ke>#k
z(5ANQ1+6x6-@Cg5_}eG@;Z5Fo5X!W60Yp^N)=gdlOtBlAF}OVW`ui<wvif*F>u;{L
z+le>({xdS~PZ0AwutSNrhEsD-#FlcwYF-fnU7%&oFOS~{Gqc%{tEu?cJKS3=yQbO0
z7g<haqcHz&FC>Wo1RIGYz);Zh)-WyA)rbKaojAmVa7caZY*KH~S)SKC?wPsZU72pV
zr!hp2Rr|Lb?~LLNTj4hr{EA3nCOD4n^b+smk&QAwtjvXUb{43arGT!E`(l5>;}Y;l
zDkCO<^Rlw!gsWNGffFF{^?&sMNb)adAbqFwm<?cXG7yhWN`~D3EH02>e-%c{rJA^_
z=o(6Pvtsp4Q7?Q5Cw^mZ(T9wzi>j(@rL*C!)_13K24Ew@E*>yx6udZP1yAG$TNaqK
z9D|q;6f6|qX4hP`vh;D+)J?asf7@ur8vgLGNu%C%lWIOvZ2dPUU*=_G)Pt&QhAb`h
z3Ojm~KBO>a7M4a(Nr;1_q9(uzL!6i~@|)T&U-#=zDD1ZjTW1@9U`9g$na*363b5L#
zXzIV!Wd9%TgBDbm%eEbCD2orFXd?RcsG5VB5Zu?2)~c5PAj#1ip=`&it^j(W;I$wH
z{)Gm3>bl%zc!SU<6MTIzz8HMNJlRe<Z|dZq42`#`x&U=yGw|o#WmyqWjrhIYl~<R<
zwE`={C6NsjN*|Q`1E4rx!b>yzL$1ShRBnBECJLJaF<T&&j>y*c>xhny(jO`?0O-^W
z@_9U|oRm{duoT0=(>ZU<UG<Prih(b}Tc>B&)TCD>T2O1hGA{$SYm|`{$D<R)2pVj;
zg@KgRYBR0axc}YVQa0W5cU|ef3n(o(?tFYHy8G*Kyx+PEtrsS0W4oUc3Y!oU{3*xo
zyMw(v$XI*~Ma#*uhz_xbvLOqL7-k6n4)z9UG@+NoPJVjU0Q3vJ%AM990y!HS@dbg<
z+}Cvp`;~f)n?049v68ej)<C}Ar18<&>2aaUswU2D2gMeY_tp<4`yV%Ar&_3N|Be?P
zM-34KA1ST=`%+H5TBR0O6a~Lb%WGEU%~q}Cy_#GPNHaeG;uN^D0$@FxW;auJAF-{x
zZJEC9C;R-vtW%$o@l}ips0IbxHt1}sSNX<(WkUY0D0aG2mK7Gbn5w3u6DIKr`$NQ}
z_px;-&0R_mQ$auySS{&8p@3j&0uxbOiA|Ns=!4mxt6*0ERdh1#v>Zo+qv;d#Ma0fT
zf6rfB<<6M}P&p16RaGN3XXvPe=kp&BeR{%emf)JG=TO1~ko6#1-OP=*8CDWK!~|iH
z5Ty?q<vfSh-r9HwjKsY@o*K~g0i2ajxU+y>{<F@<2Su=+1&nhT>@F|{k%7RU0edDv
z(D7%rt1XN&Hl#L`9jF$DGfhFj@LD^#AA)vhQRFF^C93%3Dux?GCD0#nYjio_k{v!^
zbT|@n`4b4_e4FQ3spV5vtulOA!4;r;7d+p7hN=gHl(MGg--qr?TxR3oXoZghmFM+U
z?q~YrRn8RrHrGJ%Mi4%#p31i7#o_kCbt2p;SmI6bwzcMErJx3ioNP3z7a3nbO@YeL
zoTZw*(f?GBcj<A=+|72T)a6;JcU->d3i19o<YVYaF9J(HaUvrnm75O$QLEfWA#Q%t
z&F<`QVRk;=wgp6CpwL4!O%v?zNAEsnTiJ9&+*}g4FF^7b)OG=_1&J9zA#V;DMSzM2
z_-3b_ypeMQ$me=ad|Z0F<||K8W(UoojB=nH_#2>5+U!q9gqOZ(ifYj^rG%n+?kuVx
zb7rlI2kFWP#&UjXZg*u6=EN+{AIN5MZqqI)kU5e>z2ZEj-dkv(7Ke+ObiEHvoK^-1
zKz6?qt5=|p28^#gNJ=T-WT^O4)LvjUe5YdEW}9@!Bv!{CsCfpkOvI%bz?`6bkB;1T
z{tRC(HtlYKu_5@&&o^EY8~dI3ylU=p@2)*Vl$3vdB2t`z^#{<f^T~c4{0-Qyn3&a{
zpD@6}WLU^L`0RA+@%M-^>umPfy(F|#Y!mJKDx{F$5G6!oG&)9vV2PS4T|4-Jeuvf@
z=fc0xs^|B1?EE9uE8yq?La4JUr}`QF+wTK8?O%+T$BC8?KIgR0Ei7Co3jus?s?AP1
zXuq3Az?O%DdbYb3v8m$$pAp3fn&{`MDxsBfkwF^f)|cI`BU$E4<*oIz4kp?yvzy|o
zs`5$s<A)7m1x!D;x~FS(da+!0&z}v<v96bE9C(UC)o^H~V{c!WJFCS=(vVY^U+#LV
zt><zNS6y=Rif|_AA&8p~B=rRLFXKNBa<eS+DqBRv`D+<XcqpyMvjPJH745EK2oT|x
zs8YkiCWP7n@2k6sD4tZN$*E2x5qfE9DX@7~A@03Vj6b#r=pYBR&VtwMYAkn+u9Vfl
z+@{-9+oM?4_BSTOk4{yjB}7&pEoqD^0@}qjI8LMNyh??B@sE{V_9=5PItWs24wPy|
z_Qw^N3Vp1$_ma9zGw)UdfUME*zVm+QzM4hsTuz-@$4G3ycg~-3wIj=}&6nSAUES{m
z%Z1U_?;nWTc{r>ZL30<ZY!iI9^0)v8xc<({Vt`>jXT3$*c6M)(^*>?afJCLyT$^-l
zZ|pz+284J2<R9FDT9Y2{6d6Kp{c0qU7s^Lr<`0JGbH3l@p3?TLxr~o(pnifs)Hb;~
zWShwso3|2kR9G|lEb;(<Xn7Ol(xK%`s1~QypvK6K?(&D)QRCN%OJ%M`1Rx7i@BHW~
zEY7}!fdhVXDJdo(h3ureby1q$SEXa44zVsLzK4)sy<Qu?bH#yPYM{>@UUZor^LJao
zi=i{Ja)TXD5?_8-X_e|Xn>DSl5Tn@*%D@H#UYAmL6(GTwszTR&7rK)oii++4M~FB&
z5iJ%pI@%IdYvctvp=e{DWiHk14rqaUMc7HF_2h8daf?j>vP!fLP-$Pjd|8CVc0c@D
z5bzV9<zv}_$Ta%5WHDM{f1Qv<<UQg>HQbzOCRF|9`46=)dZ~5d#*%ULCbiw{sMb~g
z7gt!+HssZr=+~zM&?1ipe?&3T-;~>Uc90poM)l&otCZzC8Kw`x;?y)Fl{Z#Tn$}~u
zPd%4Cyt=>Df7{!9X4s#l>NXR^gyK25Xaei6VlGDOpV`Q$C~u`=vxN#_k>Mf16Ut=m
zO*_@Hw>}vGsglSv(OIo6Y3fTgcl0|xCBI`lQ~arxK^f;tZN$s)6M{3?0do8CKF<bR
z%YQ&sKY!=LGs>D2%DHfMOhW%Zr`~rBx63=Nzf@IGzQVqtXDLc!J46l)a1bcSziL#_
zQ8gf2P~3Ir`RH@@TqbYQ$4bBjq7}sOdr*aU9m$qFXD}PcuVZ0hncm&X-U1WzC%6{a
zG35mFA>hcF-a?xK;j#%aCP7waJbgJAtt8qYyk3KW8mf8DEqb(g9aRt3wjM}T5GcuY
z-OwOAgPTBFSNG%9KUH}~AgzCIZ*PQ|0qYE~Mi&9R;ecbZ1^izfct>NP-@O;GPdVJ~
zZ%KbY2~N1b`Qdt^R6NYrdtq1hE`eEmBr#Xz#amMg`@<E+AnY#==F^ITE#;<l+VVLt
zy@-9;fC3w_rpA;1kmKKr`A$)Pdb}?KtW;0AtzLrn(UJfp-I4wULO?zm5P|!^r}*>J
zJq4TH!T&)TTvFPNiH$YtN)SX$9*}7fP8!ilAq5Xr7EkAC+tzGigMc3)PUp)%>3JDk
z)oH^6Yva|MAXFM5UNB#PP^4g!x?^cGme1O*5Thj9FC!Gh_nHXG*P&8NavQMqSWVVa
zqaKArGE-*uTOBR`4CIZ%$isf0!8{#AwbXWB`ceU4zLSG4oytSrSOn`7ED1~;33Eq9
zQc`b)LC+ql;@xEv;kOwJ1m3Fdhf_rBD=@Or7O~EPlc5D35i~9&VH!Z9bOX}`m&0#a
zRQ<+uBXWHNd#-=or*Yq3BT(pzQq%*L<Eid*tjjkaa;C?|#)AC<$`ysaj_y$%c5=y2
z%5CnC*^)9ZvB18&0MY<BP{4!`2UCNMqTqh^aAckH%Sv5J3Oa;58OA72;^T)#=Hal}
zFAs7mo?K^0DdV-DX}XynckdI?5y1T46*b<c?tfk4c5oktU^hkie!S~317`C3U_!D(
z6ud(ai<2uVDB#9!9PO`1w6j;^gM;nW=qjJmq^`@biF&mQ8^9Z|&4R{(hRVp#mx1~f
z@&0Ig?e?Q6y#=>nR`{QrezZCCd*THOG?h)or{PhSehT0Gx;|1|Ogk7DevO5pvq_(G
zFUX#V`5akP(Rpm%f7Bn9n!jee<B64<k-<Fsx+iyHLx|k4kOF+?tZbHtEfad)7Y`%n
zZA)50M}4q&sNN!l)SINF2tbg=)=HXNJgKg|N!~xQGB8_eur$amyE-XORK?nkZsa^n
zIV%i2Y;DjfCVIfQoBf;x{|l8Qwa;7U%99h%c7CG@_db8JK@3!}`+n;|-Ur*}n{p(8
zGE{VQ5_hSREHAw^YFH4q?l0LHHJU1P<Mw};RC;6VZ_a(=Rq6D9=G>gMa=l-JGXYwB
zr4=-&_Z|b40@WFqC}nMJs}($X@QvJW#wcT#zU3}@K~Fb;EPrwU%*cfZl&9j)>puc1
znd3GK3m53NYAc^_I0){A+FF8{TnsV0!t&=v=>v@iK9P#~I7=&65LezRLYn&t5j?%!
zO!X=T;$ssBTfp-PPw-qVj#YAlcXp9+0BX9O<#&f2-9fiwjk*u6+S%K45ndC}7tI6r
zwVa%sq7c+>LLW>#acaOeoZvd~9Qg!b0La)h{RVYCa&s-NGgy%Oja(>W_vqOh>`0y!
zZ$Z%j<%!(C*RcyO{RR|Z*KEqGkyi?>f!66%d!@5F*|4Z-j(h2M)NZ*n7$bN3lw=GH
z477gTllqm1OHbsrH%O$4Q_PXz@3P<M+Zx@Nm2nqB3fN;?5K$K-`|X9xcinf8=r@`w
zz>u;h{=}28aJ@Z-AJi=ch01r3`2GwRZ-QSGjD~T2y*gxJ09bO`DeA#<ZPR;2!H=kh
znjWevLSy_XXaKl5u41$@kPA@OayKO~Frxt+QT7}9^WCwp8t81__7Or622lHRP7Xex
zKtyW3A3+la9`B6554MyG&Jpl?Ui9^kK=CTT-e^He>spB|Fz=LF#y-!V@^fm}>OXLK
z`PKvG15A1R;5=rtf(jOC`1tEvg&Y2Ru}sycPmO*i|F-NrpXaZW0Bc90>qJo9$sEW0
z4&3St_>HW4?^n&`A`WgSiIN<2<r_bIIx7uDJ2_qVp^aiR0Eu1z0(9pwJqfYON;ZfG
zvFtigY2(l^0$%t_q6c)q4_PU$|H^zEU48S5mS{i0B2@qXt`b7k61G3tMw&<-CI}Ei
zx<~9Mz@CFA-h1bBzU})*Dk?8PQkVf7O+DB#Kdrd;x-(V7EkGGyFkEC(w&p4;CB@bU
zvvsph<T+$%=;^Qn9|cpVFyiP?mM`_pqWTF@?%&0ERDI2+SJv|g(IaNHT+P1?Ghj7>
zHX2dH=NmtH(o(~pPlOIrQ0=n%4Qj1mh}ulKu0=4hgF3F%d6n~&z$0zbM0=7yl={U7
zc7p<E%Plq$6NLYG&uvQR4XqdN`;d6e-6il@jw&-oY0P)xpLL4<e=KKiltx;7Y@d^4
zCPhbqDGUwqqQO&eS`Or-j@p3RnWTvIvtFGys0DH>iGS{3+tCqm>Y+)0R@tTn*Lqmc
zWu`Qd(ge`G)LH$(v<z7WTnyqWy?R=in_HPS;&u8B=z!#Bp;mfW6?xb9?e+tCc_fE@
zE-4{}zL-`pGMO%YZfk+7KRPR219J*u&OsHx7Qm<AOjh_?=6{xn;5)B_cOXltqZI&1
z$>BL{PwQxBZnks45L17<PA-923Hmu6Xx0HsxH$1u7{&7;o%teI#0*8xz%L!YGkGxJ
z1@3j8bbj4+<Crb#jq4F2hG*yeb%&jNEdIcm7&mCyAqp<tDh@W3LO_A|8@xYHf@nK=
zvl$^HG9F>unVa7_+Fij(o-Q{DI#>GcqJa<>ZLB7!g)Ns?Kt%SXE8(Dk2?x=-<i{Nt
z%Z4J8cDto7u`{5bSXVUg5~~Q)$&r*))A|d{-+9wHz2)YpPFzZUbsZ;xh5K2DY?YzB
zQGb6wf(@c>$ZsI_t(25+Cj-}rdo~rJXw<0^(!nmhXH8Py9?Q`he1(P6q>c1pq7bk7
z1em`%Xe}ZrxX_`x;lTi-C720l#T$9$0F+o}iv9Jy6`j#^ZnzVhH@Hy(F>QBvs<8sn
z*BNU&n)nlypId`H1o<twJD-^^`Vqy%NWTkvxiN|HcJdM?>Co_$TKT6G<~JsSE4kb^
z?hb4jp2_#|SdJ1Akav{#e$)|7x-@}bhl5o+0riUQ$!SE4GHJ7enA)C}El`e~vzzK?
z)x@PSYL}*(%uO3P3p@`Uke(ZzYVT8v!p$p>p)JB4A62N{*p;^8ZW-$?$t8Nk&k)h6
zAUxUTY$hV+b@5TYXeG<-r_1M9PwpnUlzowJ-Z{A9JLdIa<720-(aLm8-J`>2_NF3E
zYa0pu_oQ0u_@3k7^Y}rVjRJZZtP3}AjQ&hlqO}?+x$w8u=SNYf@LC0i_&uV*U%%9s
z<yBQdkK?ZCyZGAboRH-jA;t^w786qG7oeFLYY?Isb)aObe+_yA`kQYCvfn0nYXEFW
z(V?o>FQ@b{8@@n|RoSduFr~nje1Uo^OJNiEhsBr(ADdWe-u1hh)MpiF$y&6h_BVU3
zz@;NYNA&&2yLs?2hO(}o-KDwoM74A$p~QpD?X=FQy=B=uKBS$(ztN!hW<;w|_1%;h
zv)xIw^@*=k;8H}`a%d!}a#;<w69|2cM~-e*F<=gzcxk|Vz}DK{)`Q%3tK>*{3KoSS
zR1b1}K+8VsN-!7wDCBGr-R%#glA>`93EBUoP2qpNuJzw|BoJGH^vm5h-x^AaU(;Z}
zl#s3Z=w6Fb9uq9*r541LqsUyS)aLxQ`^LhuFOQw)(wnDmM&km*ukX6!e{x&)B0(|G
zUum!-a*sPDLkU%W%~hd{ygp)rYNr}N+19*u@gDa%XZiAh!`z0VPV3`n9L*82vMbM=
z$ZQ?&muwtVYUHfJ!)mT{USevcvl^dEYEL{TW_GV=w6qz-{w`o(Fx@2O`4>jej9(1=
zR2P60K_zG3HWV~#hb>sB5et+-`?`#J6rEKG?6@a&v_KS$-4~u85}_G2+IIi?=EOU>
zO;<QBO=A1_1?XkcKZ?dSt`XUIV4(pbLV1>r_V5tERoP?P)r3LHfxpJ34d?w>*lx%+
zo+!N{edzA-jJ|zOH=QLos<`m*)Z1;=W$z4|CZe@>C`j{h^#y%;OkjIZ;^D)iXq{z}
z|4`0|aK*`7X2^jt>=8#r<(Zy*wc`sal$$QdbwL5ECV`1w;PF2A{^vj}bi0+RT&4sA
z3S2C7Wd`D*uqj9dbbnso{K;7c^^4nBSNl!yUIL8=4KgEnx1fjf`_@YkdVs`nOloW5
z?A6w9VbB?L<U?K#x^s0R_=Lj8fkm*1$hhHlG45~6>;IQFiQqmgB9%310*q>lh}6V<
zb4qAm<D__4{ZL7dM#yY!fH@)%nzn@Ksl)DX)VIc4m)f^}c(sw(rQ`SnD8G>O<o~9v
z>tB%&a=qCWq3)T5B<T<MD^)HUDEpn%!)d#r1Yk4^oR)eA*x_@&+vn2MgMiTt1~sT!
zktz}@g=8o$%s(J3D^NwbIu}7=u>ah-=FbRn7aktiv4@N&{s*2ku+?Iql%G8DEAA4?
zHmGWUUD4?d!l+-GMEP)dR@R$wo5d(hgU{gO`cyR@Sgp-zRdQYKQRC1PUM8dHu{~QE
zNWjMBRDTyIsAsD#_rkNwEFG%H1F!QNIaZIqG4V*6XKYCWpN<?jY06oLZDdsY6GA)Z
z9Oj&?G@lfYD;io!DOyCM$Rwwr;Z8<FLnAs-(0*i?6Q5PD_8Jc1HSxhby-D;{V2CkM
zQ1jt{1)UH@XTj}znf^+*gsgcScI>Eibz+mmZ9{HfwBJrvMWfco&4@g<?9%wgM2q85
z2RXS)^B!L>4}s7h+V7XqSmpN6Ik?KS{obaT|NOIH+tm`|W^b^MMe%cEOs#QG&zH-0
z$?fMd+O>$*Lh!O8W-<_~R~@1lp{EgdbC+H-#^hwpwGIOX#LTZ>zjz)-+_&y$^b@zX
zW+TD{3QLoY2xVbOk0;#I%ULUH&6a9L>O$xWyQ?8N7yOEaK_i+6)@7H2q=>R}Ukj5J
z@A^R#bw+;fYZAg??{!V!I(Eua%Gs|Geuf6P&5EzFx4>EsbR=#-W0_@EcJ@7;jtNn8
z)F)+TCZmvMLohf(-&CQ_V{2>cMp4tpoD^09*eGUp_Ofvr75S2*@?_W5k=H;~O~qN}
zNoZ(X1$Ha&pGoB)N)3LJrj!&e%NVt@77Hjzs(*Ri7e+qtsh(Hqj~!@SLq9l@*F=c5
z%V&iDKQuKlE0XKK1FtB=Ta=DU@<K9O<E+Bv;t&*y<Ti3HfW)uAW{0BgfIvoxAu|w+
znMG+0gI`vJxpWj(jtgD|=xJ>ekd>wEB`S-C6<AUO8wQjmx(ns2aUh=1%{{XM=u~92
zUTS4%m6bJ;_XEtVX%$xGvo6(+cle}L9QgR46+FUb|HJ9-P+-C@8$^cH=fp+5aTeYj
z&B(PI+PekrN_@;$Z(b)JU?Gkm3cu8qH&!Ll6!D}%Ll!t@6!Ey&)8)g8;7nts@Y5Ou
zr4@RBnJN58g6eHB10?A&9XEC&nhgQ$gD9&e>~BCvfzLn|GMsmd^ddcJG3}#BSw<$K
zKIglpMtIn-2#ymJf(p^jy}0iGM*VN#Yxp0w%l<2I^}kva{&6Y5*9drrHhidc-OwZh
zpLHXiw4M@o)YGR=KZ7Y+K8E#0_rg6;xQgcyk5M4_74}z01E7kPj4=rX6b>fS*K>!G
zxNsl<hOo;Yq@V|758x!DT-nMaQY;9JE|9fZn0SFYkXE5<-#cflq>0!0YhMhqej8GF
z<D<OGjTV=h(^E$XNq5T~clU7|&d0i%T^KBG$(3vgP9khCWPK#$!-jkf72_;)-W2gn
za^eFej)uY}p!9<t?*fCPS`Ok#y^m$xO=#Cwe;Skj`gEOc*&=y;sCUZ+RdGb%udR-G
z`bvSQ&}_s7gna{wrO{if*oVJr1APu}g`QuNtxjNVCz4FfmFpc-_SZ(u%JR-6c_)-n
zvlu<@62gfRqrE@wf$H5c{X{Lda`DGF0mF%))E~Q%Ib)5kiZI4l+9+F;)E^?LgZ7<v
zjSRWHOa6pd=NV(R*@+Wa)IaZX&}wC$zxo_0dvsP5n)_-rtf4uvFu#^CX^^H=wQu8b
z)%9mhoB8>KBNpj;0pZNMhnu>pH=tG?nJWs*jUEg@lWrb*{PfjU)d<-jqg?&#^c`^>
z*5FH7wHEfmsEx4j8;gsZak~pM(s%#bifM(MaFO1YXW-OE+B?3#p%(yknyp(27*wP|
z?w2V@Zvga(+U<T8Kr5a^6eECltySjWmq4F^&$~%Y81=KzNCr4c=wQ@Z{XI7a0wHv;
zYOR8yp>8tbvrJ!rzbY70pes<e<yGYs=x~FJBVl^PzIuGaO(Z7CbqV|p&_Qu>zPENa
zEps~z<DmS@-JfJ3n9Y^H+MC#(JR~bC;0m)@jtS#>OZlv4i5=H?Uq0sjZiIBPRf>Ge
zUV!Yk1mX=6<rX`8C>M-B=$Az{<C}y^bLslp5leh2?_1apu=F7v>2)MjXY6L;irm{d
z7Ul3-x_2pkVP|jewrC4IJ3FCEHFY>qr|2~<F0P*zr4-k$J$d_CEt{B@HezBzS6Z<C
z;A||b-(n1;kDS%ZBqSAR#ewfPbbdm)DsE-P3i4<GG(#b^J6z~^Zxzp7%qWzLuYWvJ
z%=h>2-*ik&t^3XoAL4_kIhVZ8-9lmXnA(T%Jy#1w2+F2Dl&eJ@(+=Yqd}r{b;)HjS
zp^f=oH3}`nox<**Fbb7M@$18TSkWuckoOYT6a4FM^$mWjOMgOWU#V@Nr|)40b--5|
z6&01>mXgs`I)+6jA!)%B<{5Yba1O?$TtiV%Q1~|JD~ptW`b3}6Zy_Zk!_o$mRWQ05
z7#61b76Wy9ddf)|rkwrmRM%~LUcn4H85|uewe1A11uxu}T3lb3(bgWT=ujZSG%MAV
z79<S70FDRym4r$-*h}i`QIJdXm~kpj9kctEl6#n|A7uSX8eQs3zxU<QEy`#v4YP|y
znz;ZQQU%gWO5TDH!QCtf9dN+Su{H}zNnO2q6&75YfGJe;CD3fuEEpCRRss$C$S))A
z?ooh<aI33u*y@RnPOiWLbm;AXyu#d7IJ&w6%u96Rv~t4k(Mo<Fw6|PYfS#ks&S#Gk
z`uh8&A)Kis+><J?pS>^SbyPBwz)^P+<+3&=NO*;duh5O0=kLU{?d?8%1g<Pn*f^gA
zOnXwK?JBi{9cN}|BO@a}3E-gaaB~~*P+nO`O-l=Jx0!8fl7hao2lj+0q@8ke%^M}F
zq!jSO_)&t<oezkJ-7IKPN+~EP80;#Bf%GJBnRZ=k7KFnWq#iyDow=5%h!fJB0@p<t
zGq_l@;IrbZa7w_nfMAMvb=S_xzY8VP&sE~@(y$xk*H7=e5YmheUlFad)nC7U9e1s6
zHf(_A8sj;XI2c57)L4KyBkCf2C9a{Eei`C-fo84%_^i|&EiElyH5*FU*sz2B_qXdL
z(9f^N#<btY#zts7E=W*zjETCErI^XPyT9LPSXggSiZt-Lgg<@!_^%6Qn0I*9WpdvP
zT2O=Mk)f+OTFx#|XN5)eCh@wnbwFEGRT;+Ica70cA5Cvr3af`Fly(kLlmED0-_i$%
ze8`eELk1Zx4uCGJoP@PCo2-lsx`@_$Af$iUUg&PmTH2rVNsneyifWzx1pWP0(33O-
z>$ex)3&I5We%#&N;dFseDV5aaWeW>i+t_!PGZZU%U$@0Rj)wPuH6s{aV!R-bs3`P&
zi_v<r_U<3|`_Bjn2vn@Cb5mP!+HWy4CpR=mNDE$<(-^&8{5EHGTJXWZ-uDHKwGqNH
z-QPLZEo*P9&!`KY7GP-qaS<jVA^CQeF!?><{d<bZ1rlCLf*tp-IdRYrXZL4_D@UuG
z5Oz$3-So@Ugo+A*rsife6uVw+DAPwbbeMRMS{i|QHkrfBdTgWcX>0BmCaR~WhX_-`
zMbXRaE;LoqxUe-8Wo2bS6DBr9T`3nu4-es@;$jo(1F}CJjLy~(9gnKYzQR57O`VIh
z>x^D^^dI~&WXwDF)b!px3>u#k`{4+F3jD?8<!^9Qjos0X`LK-nvXhV}97zPT&e`$I
zafl;M$`AZg4TgmWx)05UYy{suxH6E}C@$!Ll`UuCUC>%mT58Z4$GiCF4}P`*R$HaZ
zDkT}aHuE7S-t}TbLqkML0)rNm;dtN)diU;nFhf;!^(Hi8Hasgfu(MNE>#}<^xc8m4
z($d2?e5{mu@p(*f*_S->mYX5B#(jfueNHxUU=Nv?mXws#Tk(B{Q!>DQ#Y#y<b*2Be
zlaPw4Dpv8Z$b1>ZDv%`A3k_dSUJZG8^D-Pxg2f;S&k4s1(Xq&ci)%P+-Mc$~cDyd5
zqeC4P9o^I0%fOOeTT6o+ufs})2Ul!7@^HwAdvg0qiKewW0ljkg59622!9(S?v|ycz
z@b|}--j&rEeNpr~XH}UO7J>NGg2wU)VNB!Dxc&oA{2zve;-u0L8-dzA_BP|ttqBYd
zCrnLGZ%2a6!S86LpJQX8si}-W|MTWNeh}Vq=fgwTVGuRJFwq1p_^llR9($}-eDUig
z(TM5+(f}F?#AW16n2*oruR<n$?Kwz%n`vlY@qwD2p59N-OkOzcW9HQ*QQ!NY8}41Y
z>jxV_?6=LLvg7vc+qYkKKEu;cD#!sxm_Dp1xS#uKYGiO02j{$SjXp2*@Zv*@^?NZN
zQBg1taSf_uRLUVw2qS(Ye^p%Y!i5V_gDx2h8f_zl?_i&DyQC`w{Y^dN)@eKJW{`BO
zie~<EE>g0e_6~QcP?ovl>f*w{#zydx4w}(s;rNLrcp`&R&3A7F4c^l1-qont8?iL-
zagxgepU$^c7o|mt(8BXsY!Nw-SS5%sA;~ma@ijgx{#0H*Xd8cUaKI%-c74G@v5}VB
zArwxSK!?}a2_^nC<3XfxcI^t^tgPEVW-;4nZ9mQ5iEJs}baiqP|J>u}yz`X=QHy^^
zhjF(2Mn0i(+{Vep<(p0U=giCt5h7c-uuy#Ae5u1SSi^C@FDuCMI)ui=kRe@9^{ew_
zR8-lEMJ}#}gpm}MBJ4&>rEoA(%~l)BYz%n^5ZMLRqh%Lp1GrqM_^0GpZ{NOn``tyz
zsAM5nT4h#HJbqaBUKbW(_yz}5fR4b5`_dN{wC{5OLC`t9kTH6Gw88<IVFr#(kOr^l
zq*vo4FLdlpgT^BJ@Sz_a?$0Hs1JIi3anV5&jC}i+XSon1IlwPcS6Yf3JL1=4CM6;9
zVv_x-1kna)(BF*j7=Q`G%*KXLpw(`{kS`wI3DdgSCA?n0<a89Ks-=Y&{R2V3L?9AL
z!s#)<fd(PfF0lBu)*KLukW+;C_{hLJ#|XYK+8U6=A*aD$6Ja*Ea`}pny0>O$W;TFT
z4Sh`xq2-}Vb;?z%g7?9P5VdS+ZS90f>(IgrJUvYD&$c=eg=3G7k56sjAcjd0+}ig`
z8}yMFo|~Jy1BYltwa-z$!|;Uw4OYAmD76Kaz0>>Tf`Wp6O-v}-l*fZaBA4ACPT9!9
z%^eLvBq;E^P5EO7hdac?Fqd({u6cT8a7BiT8cF<<a}Fw!l86;4k~#Q^hK3wjNV6>s
z;8q3|(#+D*cMyb0yPLK4!6liQlha|F14)5II#Mw~K*Ig&M*w5w@GlTEm!MC7>#hqp
zuYZk?E6_v)2nh?{5)}LZcL~H%U7@5ko-b@ObX^|c?TCC;oCCCsDn_5fo`Q2e7Vh^q
zP*C}d`7&kd69{l~_wARKf6}h=PDJ#a+iYxK!1Z(VRUIQ4#<{Os?EIQt0yy4&g7t3o
zcx2AuwUs8YI=@Cop>LHi;1y`EQc|C&>@tpO4o$lfJ^|LAT!lNr$9|P>9$_Wfm!?3~
z|2DP51p2n$Mny?#=ElGw8yV0QyY4YRZewQl-BuSu@Rx*yYv3ofvAKy#?YHncM?t?$
z(qx5^^~&juTW^#J1QIA4$Gcd>#F7ATy5g?CtPME<ofb`L+mwg02jbWB?fFmO7&JFG
z_r{^R3ocnWMhVXiMM8Y2$dd7vIk@)xQXTe+`tEbAs=&sLRsZwT0go$5k)!_Hu@DXa
z080<J3_u~Q%)M-{1NGbQ+SW18ElNlD`Bg}f1C}5IPl_>Ibn~7sEF*A1!+ZDO_1m|k
zV^z*9Q(i{>%qGH9dzm*|g~FJPtUT>7YVicF5qd(WK4Mq`$_~Tk^WX{~t`|@{?Ck6u
zeAOo>B}EL8aJtrX2Dx_ea41M!Q{b+lV|eo9$@eTS*sGLbEwS8NW+TeG&sU(tX=n~1
zmykLDFbIvr56ntO3M_G5*#WQ$B@)6H<T8Lpy-X*QZj)a7)Nyff_fI9cj9T!=AO_`F
zw{C%`HVc-9cdDOB0pgC2kAo<2<QLIQ0dXhu1|y?55$5~OX9)uK=)gS5%F0rdj_22%
zU6de7?lCKH+eD7ZGy2u4@8IYdnV1+BM#X>hb@VbOn%Kz(#z*fXb7;=F3{aqGB{wgx
z1!-1=GnNj%Y7wN1=BkB&!||`9b!At;eTNxB#f>o9HEo3L+}UvgkU`JOdj$Y(r0DRu
z#Ti&uRJ676zv^C+AVQ)Ns$49O7n*e^CDcEaQOkRKi-J#<CHwv@$fmDzwaOI_1VRf(
z4-D}`$Fbn(m{4TV-v4a>t>t@HR|_0xabwk4KlDfIKdO)ktj_<wMmf1OXq`I5)u-8n
Q95pE?ttgczssHl-0I^_y)&Kwi

diff --git a/reference/Rplot009.png b/reference/Rplot009.png
index b88f3ad83209e8637d4e91d1790a6c007d09d567..0409080c4dddbe04235182e225eaad8528ddc95c 100644
GIT binary patch
literal 9553
zcmeHtcT`hbw{HMJ4=S941r-DvVh0ON0_d^OgeXONu>jJg*94V=97IKf7{QQ;^qQme
z62PN~fD#Evqy}jrM2M6SNGNY^zwf?r@3`Z=cgMKzk2l`<GGM3dWbd`-nrqHq*>M+5
z_18;olSH9V>kSRgnxRl41IYgx3HSutQJVx$5?77&&%!f27S2>h!P74{4Qv8XsI@Z4
zzX-h#w}?XRKpCDrZ4pYG=!*z^!b@$Oq8%^q-5|Qg`eK2nk@&-ujfXu>=MXN69~BYt
z_Wn}V(`R1j%@z+YB?a-k9QsOKR&M0;=rTtNZ$HhfDl79jytyQP#~u02n=-^#$*ie7
zTFzYl)^up+@x-_bquPf3lmN}xj}r^Jbss-QxE@OmZPijnp&ps*azs$5E%(-_!l)(A
z-EyOm3O_y9uuIr!Xj^eJZF!NUXP3~%o%`OE{@kZ({}hi<x9H;CSEV))Hq91Z|JK2I
zf3dO%W#DsaRYkdW-i;G^kqeiCbwAN%u@Bzhm5gT#eX$4OSGBWBePOIrciJ_odgmMM
zpp`;~*sVg5-v*KnT6v6j<l-{~f^h0A-T3{6^}5OwKVPZsCo^Q7A}=NGH8GM8?zC~s
zEi5$gt(iI>^&qrc@H)ZZLC=my+r@U(E61Nt@7%pEjE0`M?^8MQR3SEMI+1K~?OOVq
zvmcavqE7`sTNNsto2VMRcTmQO;z+ekyJ#>mF@f*L-c|GIt#~)(pt8Lm%kLBLC{cyE
z=Gg}}O1gjhJ0`B(tLyc-wVMxJ3=6Bw!jOwrmY6Fh+Ha53(CN}q^KTFA-`}=gqxXf_
zYN<UB;~TCD_)#k%mX?<8^FO{-tt<;SB{V8gg=U`nHk$3*NY5}#?D+ioQLwfHA!xFa
zmG}C!8F^)q^`*1(=^R?wl=ykI?hg^_bo0Tuw+fLzPWJ`(c)QaWE)e(d**1MkCnpM>
zZuW_&WxiTkp(ARE5#>HT+_X(MvO*zzEX{|dwJ_2ZC{!_wS{zceG&gU*RxN9P^EPfp
z$aFiA9$@Mu>}Jfys6?Kg3aw!TjZe&X6}xdB>npVNRt8ww+U6zTX4AW?LwuXDM4gB-
zg{Z};5=QdFhf-KUJNdG^d#;CvM~P40$(Y~Mo`{Tdg3>jR5yR}B2%o)?8aA3NXbq`N
zH`s%p(slFi<5b-bn;Fe5DY39C_c5tf%=L**ZVjIf&X_Gf<NP^5V%Ot8XBHxh($n8+
zv3l=_ukC%Z-@JFNO3eT<VA85ikR%+Gt$U`4#bT*Fe_e?VXszTFRku>-2jlyWP|C_W
z9d5o6pRB(vc4TvWWi~0iIW=Oka(_9KP9Kz9ySA?uE3`)|gv3g1_s8fiTpyh8@vZCY
z^KUs^R9V^8aP?@p-_ZH;09LCHp)IJ^ScO{BgI1=E69ZO$NUsb`Rt!loy1U0;w&g@X
z)cZyVPW_y16aCbl2l86<(vp%2f)lQby0XL#Nli_qk|>@!dHMN$+T5BU_(?UlR%q|y
zk|`{Y5^Bgw#X1-p$HT6f-h4`JO5kMw+zQ=TB`9inh8*F==P{f@t~EY1(PlU;Ps_r$
z`(P^i#H7)WrcUyLBfY%~<+Otfda6SxkXn<By5-V?Dk|JES7q+Cy^Q3_09F+j$FH7z
z7q?+@erjm)y_|0#-hPjaVfAvdqlW2{zyhu@D5O6un=>|c)7#rSj%%DHBsK*h5j1(G
z`etduH!5H%6rH|g5G?ocdZ&4Ld(XtLTfScq{Z0&EI7Lx=D*V!6W%+dET=IE)cfC&&
zUa3`!<wNCN=2tV9j`(#aa&tyMCJ(85cXv#@_VD!VYscuN&Y#@&;G|&@m8!!ov$L~v
zfTg1y{M|ZX$kx`DxF=+Be(L_*P<h=_p<PX=AKeDNlA59LP5!v+{RmcSNI3QT-MbPY
zT`q*m$Gi2b%KO6)riT$DLUc%wWA7NgbxUP4!X=n^B`IM)zm}yCHvCv2!0q))u4qjF
z%QR#(*)1!T!_r%+6n>7?9quf!Nz|+<4{E-?-4n*Q0fTOvn0If_s${M#^L6H4ac0>?
z#~TwAL-6*R@}@*rZa;Oac!hBl=lp95rjv)g;pu5C-`U&S>-|1ZNM!$voer<V9NV2>
z?u+E~crd+B>ULWFcei?t{?K&X%yZ@q{$yVsg<@r5@&GqiOx~}M;Q1xbGUb?y5%~!B
z{_$3WMJ6jEq}&wOHG5r2Nhy4)K{klt5aK@BTPaxP*HN;v_8QXR;w|j$3+Qxu2CJ_o
zta!9FHUHi{$(Y}FIs|-D>n?V~(AyPsBdzfkmoGmJHB{Ls$%X|HH<4)$bz)_Kywaw|
zuuq>FYUGCt5+QYuO|3Yq=1fmdzpFAZ^Ying6U-udq6|~eVXx=7Oy<y!B_Th*s_Nu~
zJyXzG4hPNB3K-oZ#qmx(=FljO`w`t&76b$3Oq4TCwIDtpVSp!GKW-6^e)G=#{DW;t
z!AyaF-<XNHd7_b#5e%KE>Gk!mEBK6b{e-<z#-%iD<zy;$t}DA#@!v)5P<?wgh5@sZ
z#$28&uljaZ&f?<57kPOH3hl~G-BN>|Hn+5xlNc`FtTgtT5_8DQv)Q)Q!G*3LpQZh>
zVedYOEL2(#Utf$MpnHR|>DcR*BkfCkCS|w&!+r8n9CkL@bgQ7b*=S)2S6W)SUtUUi
zS&Mbz%HMxDy4B3IYV#6S<`cS0+!G;#1G|O9xIiIuWVhmiK{*){62|*trG^#EmJpbq
zKfh=>QhgzQ^I@|?n-e>PCta!@RtHavmmz&JBtqr1(>g_6`_)qNV{-u?&%{b)qOndC
zIcjb}frXvj^OM@z8)CO>2VcNjT)OmF^UxPv{zw%o%#q9=8t!q<DkjyW9?A8It-t8J
zd7!xUq%jmOI=_~$<KW+<gwHq^znNW3Uh<-cd=1uO5d%uRd&=6o=SVscCBYN6F>kLJ
z8r6s#Qb@?Jsj=5!Mi$r3H>l*5mRh!Ic|-524&h!tvCUFb{_?qVF`~C`AuTo2n2^<L
z%5cF7dzhv*ZwfLq&++>sd@0hqw#muyx;-iE+p85m2hen~Jt<UmzwAyjeIkm`-EFJ0
zFr28<S{=FI|AoQGrY=H4MR2KB(4t=zRZpHgx9hPZV}E<l;(LwSwCL5+&05*arO6N^
zzDJ;~^Gl>$TwGGrJfA9r4v0V<4hjw)=Qyo|H@EY7Rc+6wr~RQ7j!#x|FYl4Lq$%G?
z&omAidY};;k(KO0W^#g55|=c2>d)8(*+wDStL};xqasMzF>7V>pv@#DCE+uW78VXQ
z1PS_dq|-vP)$E7e3A3THflfq7z47ngJ7Q!Vb6&pOg&jHQ)CSq4EG{ZyNWYe#lLeP+
zr8r-|`h?e4)k2%%^APEWkjN$eBSzTa-HMkC4dZl|*ci@Sk1wXWP+t*i0j1j#miWDU
z_fGisqp{zwDH;pBUbOU6BY0gj++}19?kCf-kr~xno=OPn3u256x9<P49I{m>yyQsL
z*e>d_fD`w2S-_}ko<Rd_a4C5}!SV7_G<->}t;F2c)>epTV$kBaRb3t?a&W_eefvI#
z)Xr>2CN?G}h8wp1GR3hF@*%gP!urdXFL8uViCAub3pD2k4<4NK8~g(nX6Dgr?{i8@
zN*cw;fx<<{qKM@0`mcMO_ZE}#%6oRIehoV!M`2z45H|Bkqx5={Ord?H8NFKZ+(Huu
zXC~_q__zsO?D~nWw=$!ryu{1#>Y_%J7u8G~QF)zqOJxsgKQ!oyjp?B~-bGA9?b7?r
ziQUIESMVzH>Uw!<$BVcP%Hv~g=~Y7ywP#0EqPoHlp`zd267DH@GYD;K8m+>v6HZpE
za9C%ULD)6tAV>F_q-5k5RT+i!`o;3BQ4+s6-jP7nqiDB8P^zc?<HmW~)1ZdC7Nu&D
zA^7o}xLQ*tZg_b2rsA}Mf(wrgGJ4#42UjdDEOOG*cTZiqGgbt63o1QJ`fIl8)pu*u
zG&E+~5)DI1*}v^Rzh^l|q6+#-UQW&y)u@{EiV973<Lhae6M%?+!s7q-=Jn<QsDyb%
zMW$<Ik96c&=D!Ylg+i?}vRV7%uPbjmzJATwbntQxtXutu@=cxR#89eZs{}*8ua%VC
zC>c|=y$mZ1Hbg+=hsV2x*NSaeVWdS|o#<_xO_oRk&yeDYePp}i*NbR{a)sU8P?EA?
zZ<*PTg~(~NZ+!uV!Jo0PNyRaW9BgYsUlmmhN+vyh8m#TZrf1?ani7>cq=?C;QCHyu
z8q0jguVYirqTK0)$O8usm|eM&#@iRx#G1*?$T-`o#kn+%XN3XkeWkEFvr!@9!r{Y*
zU3>Uw+HBSF$oZSt!3|`Cu*KIdEgRz-{53CybaIaS^lCz}a0~3VkUmztZ2&3l4%L@A
z3<~4ncI^{>gYVw?c`}NU_MF@G8_bAXK=D%6&*?i0=&Cb)I1_qaP+%YwbGrmQ;lROz
zL5uT#=h831Na%n5wmb0q*H<-IiJGt(S2Z;?n}jRS8ID#>R&mS}R;F82q}iNcKwz+#
zlH1(l<Ks82lZcQfm7=)4mFC7z4_$(Y!3r*_6^wg1z*I+@c8a2}{Jly|UEP&42$ZN}
zUdI_G>DPa4{wpz9<xf3Lo3XIAe#ZG!tBk8-hW}ABI<o-zJ3KR`d1Nc>gXVr}2TP+^
zB>lyUQ;<(b@zZEp_$qTTc5U|^8mlD~Yu2Yfx=4DXm3>o_h#Urp+AC|X`j5{&q2k>;
zpI(5GgfemO>@IkX<Od!v1F6$6<j1*$Z)U8Ps66&)GXL<qp{e@}<u8d^iLs*#;nCVj
z0j5)-k;qXBFkEZ$tTlP@J%2Ct0(>W0%Taq3R2UJY%=~NfzmCDFPSF}q#u4Z<?rks6
zdEB`1p|e30rMl1Ma6R-c4==Bd>5-N%9UU2?qoe;^PCI&J$7U7)^`t?U^oiwm73<@N
z`9e!GGyKG-xwW*J;h6<^U#Q<?T!0BDv6{I27A-d&qyA~(5|S9}GU~mxON)9!va(I~
z=8FWkx-SWMK(`WUjHM=?o9@h3L%O)E{R?i?im<EKt8NO7dE<N$5(P3t33@LckFQz(
zv6!Zt56Gz9OGsiRQ$Bf@_hmV&KAWv5^<<0>youH#jjh;FFi=|y%llKN=gqlq?{2FD
zNF29u*~zI>8K{O1+Ee6V!&SKEi$F>5#m7g;uY5128R3D)rlh32F73iu0%A7U^Rl(o
z6iSmBG_sQ?Pi~ZoEz~z0PqK1sdwSTepiwnwiN`p&QBp}~5@@A5_SV(HoE!sSTG-~H
zp{Y=*>?S=V*L$t({yd+)m4ZQF`s%-JBL3tHI243K2<990iV%>_tkbiTU5~1Nkyz?h
z5Ap~d!3|yx@=(LNKQHfGjY6IOZ+EQ!mkw}D>aPIP?c296X{|+}&YbT?IpG#Y@cj?C
z9l7R^e3@VJtytF)`Kq`?1jo)K>@ft&iPZLBZhxUKkTR{U>rl7e9P++(@W6qM56<)c
zUaNAWm8gXvDmmYp$N61Q?Mp=24;On`y4f`BWPsqU;_?e%Ax8K}-TrcMR6W~BZUAHk
zeM;SO)iTd%#S*9+KEsU^wpTeCu*tK`^*5ng{{8J{`CDMZ5%M4f3bHU1<&eNYK%6h@
zTt!gM9}EQRG&f4_mx(jLqiM$Sy8gokI*UKvRwl#fP9Ji=Rqc2ck=rOPEl)=Rcc4&r
z@06&V-rxj>((gw3GHV@R^&x%P-Q9gq5rxv!ac7ECo!^KSf~3VFN8yS_;VcFQ!gce2
zx>8iH{9g2r)5;AfF8_!X00i65vj4X)$;>wDE&G+0mmA~nym219sr#oG>Q;NAdOc_b
zl_~IgXG~oI3U%vt3GJ4Cf<o&2*@8sqvZ<Zt0hO3?7Aps#xUX3y@v){7Df8<js<F1V
zx>LfX&fU)r?%Q{9-$tWw`&t~+KdvX(gT#8J>pmY@i<D)j-!8}vAez~-VnSo7$Ctc<
z-rR<(ui9(x+uv+$($a7q{iMbs4o-#k7fJgnMDoj?jtk!k))9rf*7ou<83f)htMJ+C
z-nTHgKfd#Yr8nAkQMp)dJLpIPRaZ>gjoFe`@<E5S=!>JDN+X@fp=ckSJC!$1G&6sg
z?slS7FWli7e$paL2{OVr<zdP{!bo!9q2dNAs9^?HB64|wr7Wo!->@<6Yzd5xxDHx_
z^HcSDO0B?yzacwxyBrENYtsEPSe&5vP7L+P!97Z%x4SzJxX9jRNjjjB4mutGkDQ`Q
zgiZ}MRLymJe(CQonwtwgY+rFPq%X*-$W;vG{27u8<PJofnnq(tEH;QZ9rrdJ^jCvZ
zL|^VkMU9<Nq}%yYljg&jwb;DeTsAiuQgxPI`-^ASYnQ5Fym1N4e;6qnMAY$07OCZn
z7a$f}cQLfz;8~~>PCaGbi2<h4I<ps>F|(jTCmRc8W;+Y*01H_<I25L&Yy(XJQFE<|
zA&qZjuKxjA+_97EeqJJKb@UsBsG~7@S0DszW4VEYlo~S%!2dxG5ZbZve99z04aV~w
z#=}{yH-9_pLh?&FpNiAEWDG`!_e9;N_u2o911LY;by0PW5ff_AuMgXm-PikoLY>+?
zYugS~0n|TL*<ut*^?JtAR#?hoimSGuP-6eTY;4xv1QPDxkUBm-zA>S(_}|d~P0)rx
zr!J}*&+~HFgG~C*rm5sB`1Uq7LdT>QdYUfT7lAGdwYnshO@i|ga-H77tx`k4{VMG|
z!yu<8JXE$nv=(DL!YU!Khtg-fddf_mYxqvmUQPESN>E$6zOs%_dzMLeWq{j5<z^L)
z-kZ_Q&CPfPS;-iGw8`>Tb+2cVl9KR#&G7e8G67992fE%o6dNA7h>PmxZ5@Xq@t(8c
z!TCf5QnB5@-Su*N3?CbuMfl1X8nUb%#J@iBwGk>PGZ{7My&zgG3+q<28#jy)jE_{F
z1x@BccrP$Q<ZSL99!3kN_IyeG`{FmEafH)}4rYr?e8aI?io!hs{q^ABRS=dGV%>N<
z9U*3js+Ln*>xgLo>MGlyRx0JwZpq2X6^HpD*?vYC3$1U<&U)DF_}AwD5Q8<=UMDt6
zx&&68s=r=SBeQ0eSrLKBrA?h!P~NgG%U+S3&`3zTxNk%dN+JxoPh+z9=gvH4g%x17
zVQt73{BwI_0$N>ofzjJJk5U32@(iPSh6z8jksD~|Dl-5cKpXq&D{DOre&uD`jb`3e
zES-WuEBrixOk74}R!geqC~{2X$LT7Z4eKNl6<R$5|2294h1~t%af?x4la8o@Q;mv*
zfFsX;;y`>UN>R)IEFv8O3bzF1m>R)%<-8O@Z3z_Zs(OJH&bhz8zZGbGin@17@b|B2
zAPp-&^!4>6?15q&Mk2JixQ17~`8ZSagi|m0OP6X`t~+p&F4w6{ZFe9Sh|dobh&nXR
zl+5fbyIsi;aDbpK0r#ZMrL&_W=f#U1cDtnvSfq%e^Y^zro~-~2%>!HmEz-Wa``fiI
zXJ%#^CRBs@W?^ZWG!!@8l5;5?aDSpg$R{;MPHyggs1XULc08IcQ!*@eqg~e5*O!74
z1@*_B;nrUhcCT?ri@2|j==XlBJA-xovB4hpH&P2-+EZFlw;+hq$u=hoo`BS!K0fY|
z8qlhxBLM&!P*}_Ry+Q{Yn`D6LAi^RvW7DQh<6~nNHRa0`lvDt-kArjaPbLX6P)=oK
zm;o~`doYXy*OB%%RvJ+qKxhHXCGk=01C*srva)<lw5Oh!f|h@Vk+E?pbYBQYP{e`_
zpr{w{CwjX;hb@6}u5b2O&!Ukj3o|UYnO!guPyTPJ3E<rlTGpRWzqDNshbBCaq;+?9
z0~iB_?W|+u=;7^c31}3CvTVaXoem0bLqh{lXMk~*;KxMjl2#Kzo&`n914Md+Y7uKT
z#5Z&RhylTcbLp6wwKalT6=GTFda)*rx&;%5&~Guee>vX<J&4U+S>^_{n`pR$`-6~h
z@NN4*Kt;?1*zFFAuPrsa6!PsFa5;BhUk2n%DY$MR!*l$mTS2>?O{PVjr|Aj{c>A(r
zVo9*{2TEU^&|Ul{?b%!5*LiKYaO-i`8=&qWFKvol5l0ny3FHT6z%Jo20mST48kyEY
z+y5jf$sMqK=QX1GKg2?n(*UiUKZu8ZN>Q^dx$zjxOh2WFX+^16ODn5vI0R(8A-%|<
z+5+CfO3F=3+v(R0a_c*H-zs(%apLW%AK-DHTbaeIT-Uj~zjH^aGAZ<TM7RTO3*Rpl
zoAMvEygiw<%+n!Fou=Eia5OSRBZoiyw*6$FK?^~}%FplB++<(R&<PMSK$L|xpDz;&
zlqL7ot4qj!@Jmvjzc`-khC;0xLGA^3zM&C2ZcYYJaIGH~UHlCa^d}eLaX>{A0LAR=
z?A*CDX##_S{A`&)7h1pi-HnVb>ksD~<~;tmUQYc2oXGao)fihlyP)9@k4yO4(I$Ij
z+7dCkxmHeC%eEUO7?w#{u$e$O5qUJD|Bq5%rtYU_N6!Fg1Ax$u2y?i_`HXCnx#~Fh
z4Ax8^j_)<noMc<-ku=WXs6{O=;-2d;hymaYFK0k)VS}5}j&Lz+>wSi>z&?M{VD?VT
z!gUG=Q46w$^ck8S1;LJT>RulfdKd1f8B7c_w@a@Qt@(|!QCwUcjIB6IVjp*%IuQ8s
zUjO)%=g)b)0W>!77!XY_L*2;e=LS>}tAfpN6y_tzA5AJjVI)R2p_Uk6TZf|ptdj9N
za_Er7nKRLYQx%ts>~rhD;0$L9`w6_t!ayCF^%Bv23Xe8!+619L$_|4Q1oelp*0V!=
zUrVr)o;(=?Eg(fZqzLo{HP6mNoX69DLyDAyPF;2IYuI$)@ZqE<i#Rt`P>CfaqWxR<
zBNikkguGkHNqhea!`DDO6f)Pg+$XhFn~V1T`qydTYFkrPHpfGHo#yd)hKhv|Btiv!
z-DVOCsm1sVa1huFEV32MO)10i`CQu=5++1fC9&Y}?!frZOh#X@j-EvdHtcf(;y?he
z>gQb%1c%^cp7m&6ULIlu6*|>90_Xkw$1fY`{oHkX0ht}VT<{t0IS5=BA@D;t_w*be
zFlYFH?oRFZWkv7gdm7Y%RfHHEuuP20nYe0zd~R;pmkX@ZfN@yTtLw;H;u}DsnH`9h
z&Pz`}V@x<=vWVvDEf47hg3sy!g0i5SQJZz=j_9Z4<NBbn9H)hw`ZKY7caWAluRXiE
zJ{&P!sQmtXa4Fc_<w@>r9~Wl@g}w7yG9c0Hr-y71p8#0MVaFP4@YIaL>!K&|g$^Lc
zfcx~6&(RnbU57fQ`=L&@0cxn|e^Mn>&w^PgmFJWsCULS~d_C%x2uVat%$ngwNRZPo
zm30hF>&FSb0Tf?wBl_J%d=&`0l4->B@d3DIJMhRY!Q1&g?UA}~{~;D}vR3HxKtTt&
zK?L!&zW9io5fzb;_zM;u+}Hw5b^Oh0#SWl4r;(cwPKN$?;Zr@Kj*$31(}PrDlaG1U
zg*I@vy-Ul=4#-P^r3!}S1pT>hZEoE%k0KfSHXQVcg5b4VWY(yv)_)@FIl&TxdkQMg
zKa|e}XBxzIHt?!WplA_99CFhNa7Q(l<|jVnUUe{Bm!=Y;Ixx8D4c^S!RI;qt(tVVe
zn7!3mXwGw|XLZRcQyPVsQKGTn&Fsj?NOzg{^Y;mgh@ik8j91zF_bI(y_4U6V2Xcs5
ztQ6{;ZNd-;TD(^Y*bCCS^Dm^JqXJ8f{^fSsZIsxV3p;-O{QiMlX&{^aj)_5xXvffR
z;=mZeI5Q!kZTQTnI<UzK8pS0J<JSKIgbgkBzY|jHS48ZDHf>^3$D!Z>-9Be}w&-`~
GJO2Z5itqaX

literal 8453
zcmeHNXIN8fw%!p1MG;3)6cJGARiz673yJ|G3P=y2ND&Avv`_--a5$)d^g|6uZ;8@t
zz{64S&})PcKq&zt2`wNXaKFsVJ-5v~_s6|I=Evkoc7UDi=lj-P>s{~rE+X$4>hf?4
za6=HpgSew(1VOM#_Uj-g_)EwjDG|JJKGN6K0q@|kd9xuDydCnqV}XI7!^hb#SU(l_
z1A;^#gwA!7fb>Obkf#Z2XK$H2@=gAm_%Txs^BL0*7utV*=+=~odvDn%B_}IwbSBht
zx!=gj_uGL5bM!d}+$DQo%e*|+v&t-!^X9j?6zqLT+{1sGCOCYQ;y?d$<kQ!$A1mM|
zgbmk|U%y36iZZ(xtCw31*1s{-nV9lVicbCrO<MX12%5VOqr)IbQfL2Z2;$hU)?@8Y
z^|frqHL*@ZVMmWmy4#(3|M-fO%`jKk7=NXZh%kKb$LjD!2=W$mYJs5B?L`m~)nLkR
z6OjGl<x6GssL}&dQ%8cUo7>=69Y#4|$u49@#<tG`w|Z9Wcw{HbINzYp7zxjtA1Elv
z&DDt)zuW(mgKKS}gy{0^^Si4v3C3&N6MLkgb)%vLp`dS<GqAHMFFril`h>*2sjsh(
z&#am;?qy#j9;sDSLL^y=iHVIiVpqM$o5au^eQ@SURVj&N6MIL8#bU+fHZVz6Up&ph
zla?7oNK&xP^zHVV`uJpnK~3q1ii+ZnXw}Oz%DBoovVH>cJZ>GW7X1A!ol--jH24$s
z3kDdI@1MKR_vfY13k)+Ba9acT`W)RDu#&6(t6i!MXWeVhV|J!L#iOv;y6tZjJ=RxJ
zd{${a{_o5?;ahV#grcHP=d^-9M+vI;qesfcFnHmeIbBAy2E$V~TF~p$<9;}6(3sJ$
zuK=I7C_v&F;~^W=PV1c8QQq6@i<o(ztMtGVk$--9JBLtQEM4LD;l)Wteww=rhBCWo
z6TJMvom%g^=uT0meSCFhY8OP#QC?L^Nev;NV&E5W<mxCAYKiPffrQn)e`7HxCeB^;
zDeUr%;1%|Zvqqs%jwAfG!Cyq{wzdLkW69Z84Swj^EqKs+?VC3jlJ)Ygbl|or6ZI1K
z;42ky1R*;+d#Kt_V^L{i#0j6VRN7s|v-EqSOa+0MSBIh1YwvCLq;$~mp``7}=e*HD
z+hp5NDizZM2kWc*24l>f_Nl}}VJDImk=Ob8`CY-v>sPxqlzkUW<g9D&4Gj&&<t{9^
zoaE=15r}eh*S2ec5Jq?J-gUG9kJ+hvlDWG(+cL+#?=_r`x}9hsE{4E|?$(JG**4=+
z3Vd3>yp@)bQKZ0QEhvg^pWk*1aZ<fI<O08ciI_<r$b<(~dQ4~~CMP=)CThKM@(nYJ
z`}>W;TOXplKAaq_ay2U;PZ;U8WtD6ng61021Nql}xop3-Hh|QR8xP$Ji4suO<2ovM
zPxh2C3Y8%sATU_tVT<U`z8N8k$ji%<s4O#=%?CjPn~>t;-c)hzm{eWWBo5Hw^wJ8x
zNS(DlUEwD)zb9_7h@lyEq4xGU@^#b4(VyR5cfyBMKYO2L6SSzjGmi|t%Gd(GrKYA{
zNwy-9C@J>6i97otADixAerlC#vMJFfBl4D-plL`*Q~!MB)&`UKDPDs9luPK|h1h$>
z#__XVX$7vtrs^RJFS9k~ge|xSO$<;2ooCaJ3Tu@{2n80l?&+qXO|{2@m`#>%?Vg^J
zHP50Go3$!5Qw)lWirCxX=6rrNU?~e+E7=znFM%A66Vp#HEExLyxsXdJKm>yVfoj+|
z0dZS&?+^I=_MwZjb8oHJ6nmem_&sZ8<7)J?_X@~<vog!Pj~{RI2q@ht$nZ<m)6=W;
zneUGuon-@nVz=7OskRt1(c^tXX0~M|g!<xE#o=g2xWz#J-2ufO&79?_HrL6PrztZZ
zK70t=-K4R)JaER~=Tvx5wL58Zwv=AaByCq>Xoj~g{0ZgLcdP!#N{1B+zj)eb1Gn$m
z`BiJ(f*=TL@mI%i9)Yf%Ki{(G?B<q0!!GWoX@}yv31^|+pd~&f0N83AoKOn{`!9!U
zhC8<pjPr6r?W%3tGluFXCPzmtl~q(MWBTYUIvE+MbAyM6XE;Yh_rN~bhewwmJa}Lc
z^Gwjx+FF)oJxd<^`rECXKEF`(736ge$Sw@}|2VYNK;*$eNud~eJ)JP{;-riv%IyCA
z>=Z>OmrrqG-rbv32nY(4o7krbs;A7dO0NgLksd9m9=B;f0oKR9t4VTJ`OZqk)CT|U
zzkImN&cC!0iPr)^7?;}=wBhpgw@B{&`%*7GeCGG<bM}|k2>rO?l9C4&7E%ZR#4mI%
zP%j%^KeT_Jw6wI*rO$GB%ju`rCOhyA*jFNH*F;2Uf-xtA12V}BZ`+t}-5DCbU<q@f
zyR=XfBclt5vP|!FP2$kZ#zd$sQgivwqVt3XMt=>7B{$)S$RF6Eaxu56N#kEX+gnTi
zl(<Hg%ju~Q${{alB6qe}6+#^9rJGz;_aq-{BACgB1r!uR9p7xFL0entP@tFC?i2$U
z%<0kIvvwUW?Tb<!FMRQW8x+0kZ$JMD%`mgFDgo&@F?*-JlCU#j7GfprO;O*mPt|7J
zpkEFQzb2ApE}Mi+Ip~b^@_Lt!DJBwYg!0G$dtcnnK__jm3oNw>hn5Ct63!?(I<L-l
z38;JLiWZfY8h{>@dfEOb5GF;WHV1UCJy@GV>wY?H>ai#17&aZ2qo~HQj;z7MIH0iZ
zi|n>3@~^}H5`%-5yuGrgkNm!>IWe4kry$sh-y2WEE`ZL=I^Fb)h80xskp!pJ+opcw
zdU|b}Ru2l)L^>}&UwmR%H|+3BOgFg=sdae&KJdXp^%hM-L!0~e?>BT{#9O-6^9G*S
zk|TcoN}DP;=Gpi<3e&y8><C{7fPYoCgP<eF{&o0YV(|UcWQK;nv`~!eY-frkDHvNq
z2Y8@_nKh8JDA(y$Z&o=3T_es|h4pA{yRm_&BT3HK*SCuF{p(?b(SrwxM};&C9XgVv
z1fpC36~m#ALt!>Da~s?oPs8-|^&ePTN+U)A0~0q)F9daY=!Cd)Tl6^rt>9YGqUvhX
zzmSDHqHpd=PE!QuD?LhXDBL$Oc?`cnJa#a66QkO8cqAZGqGvTA{d>!5qhIp2fE_K}
z2Dj<(VQRUPAKOuo4)1aG-7Kpa@3)VEiz8As{0ZWBQ>Q7ikv_lI_@3W5@cexzZ^+y)
z>^yrsBpBtX=EjB`y{d_e6Z_Kj@+yNjz3<|+P<_ry6~XPV&s$bFM%|7UEb^ZSF`Jp0
zNulQ(q`Z+b&cEXlqVg>wcZ#p}wP-xTR#<ye_SiwmQ!l+5UqAS7AhW2|N~gHC2#2i2
znwFYpTU0nof$;9_?!@JmmtRRtNN@(=R!kstYwobS*{XGPqg)+`1t77cGKKm6`t?v-
z7CNLIO<Rk3vRiw&tZnXOYEM{6adD~c^`lcqK5O?mR}Lw*c6|^1CkLN)aJQ_HT`=g{
z^-ltmm+e2!0m3=dm!lixA_PI)H-;gP(MrTSa|5<|AmUguAzSkWaAkf7!pgaZ0VYV=
zXktDA4WoW%o#IPD*F0I7{sc5l2(pU{x@NPmbl1FF9X(ciA9SH+(RtD~V*qfbe2RNR
z86|=P60to{f!dsoN4k9ZHGJzmFD@(mF#kg3fML8SDsVmzG)K$E0I!%MAj3&ueL%jr
zfb8ZDzfqPHlv!|5H`<2|@MF576nQ=7^yN2qgH=7oWf9Wy@(fZD1hr!<ID+3F;P-Jk
z1JqY)DeP$Y4K(gd1Px2QdJKZXMO?$0cNRV9t-RWu*5mK&BS@<mOrPz0;ED~U9=~q2
z3h!neman}ASdy{Gv0gyHS>r)W)}R~sKv^kF2$aY=bApJbR7+(T(wEzW%`W}Il82zI
z6IV;0Tsl1nh+5#IQy`4Dhsj|z9utI>6>q?wKz=>mg+XEQ@vI{OAkntkw0E;X$TtQx
zA&BqKrA{r%%E|)DE+)vXebBY{?E;h9yUQ_w%OChDKWxEvJ-y4d4!~W9WrxUQeWMav
z#K_>_V3RQndQB_mtR)Z#1+!ocSw0I)m@p6_5{@t^%kDAH5?~0*e&5V_PG1tKaGUGR
zrfTs4)hzECM(a$;Q5_G+8KO4><~_Hb4MOK{!O`eWy~-n`sfHO*FL?9jjk_>66c(JU
z+;T#~(8Sl*cXlQJZW>=qTSJH>1g)Tk{jV!nR^C|-um)_c!l`F?VW_0)Ve3zssXS0v
zW1@1)&4{BzX&$5^cDPauT>9SJ0z3$=d={jVjB6MduTZJZg+50B7<nKY$qqc84h{~p
zQ$APAPRf}2P}1JMc=2Me04Y2%%>PG=B5C1PQUGoc<-H?ZMNbYBr+MZ&nAu-G-kw4P
zCeaS$;_^rY#beHUi>4MF->^2bQ$RR$rK=kk;Bobioxgmcd-f+Y-x}uqc<J~8;^%Ar
zD`<E&)=TcB2_ve)S%)LzhB?e56Q!0y@you6@9nmWx&$Wef$)|-9{K%B?>it3;t+dU
zGg8UxXw=-fAHhGSD`xQ@)on6p>Jr4MwDZXCJ5^qd8-@-%OLKiWiqCV6q{NONDl>og
zEBQU!3;=Nk;5@9V)%^s}W00k{#A+ePC#Ez!>cgYOUDaGipk9|lL_iu{ABOg36hiMi
zIOMrE@Ax75+0-2nOn_gkc2AI$C8aPDozPI}N+xvf?KI6KSt&X9itIZAwIF`qYCCNR
zXPGQgY7{Va<>f{ox_?Um`kAHvJbhM_NAS%G$1Wp~>EPEY$F9^rZXGSdKhtk<G!NXm
zPwE9+!oja?ZMmQ@-m5=CZ)e}T<CKZb*VEtGq5cB$x4e`HV~*7s+qXpzg~2$kbo_Mm
z-00#>ke$qO&VcT8^}wkpRX*<UD;-A#)q4Lp0VJw`W`O5xIfg*l6+92BQ`9v~0<@%s
zg@w+UyJ;!_q5c0TP0LE>*ssgA$0Psj*ppc{RAT1Z`V-F|xwN;#45fFeP7GF~DG3JR
zRnC2Hrgl*`A*dH?fqzB<N_YmF*{#9Uj1tz){JsyGj4y@Zrek&2#xOmglK;I9VY^>=
zLkmH0iwX<xeDPFU<%OX1bg(`0&=6}-5bQO<uP2Pzv@zb<Myc^&zIzDnC*LAx0Kl@8
z7(k7G2%Y7G!fwQ}*i5Gv9=$EF1Y|7V!TmttDGIC7$wb?jBLF5zE~+ihxp;@wY3Uac
z0&1Rivr~@S8%*ZzCs2s?;DSAwa5$U`f)0d}!(h;*YyaejNvp85)KmZsCu7<Y4GXOP
zfp8K$8d2pkB#pvt&XgsYJ$Nt={2$9|x0E-1g?`NOMY1>ynyY$-BVIb@OkMj2aw%E}
zUJMK(L>vu^W&~YnRB{>(|JVcAsH>JCfQ2PZ`k~(EKXyl#qF28!!&};1HWMmn*fM#x
zk#_i$>}yeK=-y8K*B3Iu6!!}mD`-@E$a}kcz)=c(Wz)K<8EwWt7?AlrmUL<VK3L+`
zkE&P$aSCdD5hiry@z2Ah7CEsObr-1q6A!Rh>}>s$f&3?<l~3YwfqDfJaI>14tM4Ct
zaXRYpm3jJ<1pcq$6<jl5zEX`#{>Z$~=ms$g6!1OCLB~2GZ3KWPv2o=^J`ztrYHjMo
znV6d9$Hg7*`sMOXK*LfB@Gwa7F)0&9w5%$o&XBD!QG~i#0d3U-fB=4MxCH(4r^Y`?
z>K>~U%CfkBKlaxzZ$0R%{ZbRd;bS!HcqANWt(V!q%bU=uiCnS15ppAwB?<4A62aa=
zk!<^A8tosn|8R>HJ+N;PPoFgi%fJ91pk9kF>BMF_{}74rrd7eWRjF>V(0lG>GnW`L
zrOYRHEbz#*TJyG7BWtFUY<D%o^g`?sIs{>6?xY;vt?vIQ25+K=(iXnqk*JrKp!u{d
zl9mo~Ll9SeC+<e}y@n1f&tKf)e;qjfYMcL~K){br0tbTK-1U=WV=)8?wk$HFuS5R>
zS*X;s{g4RlKtm8m&<11Zx5yJG5AIib`0M_~&+l%wM(`$!ip3)U1#{3^*X*fT3|#R5
zjoom1d5UI#w21?c@yRU^x=0n8OhT#$Ws(<G^c9+NBZP70acjVgT_`Rgte_jDXi7nA
zY7@f|V=9uzhl&a^M`yP4F3#xbZuzw8wBHKZ#$O~N$-)vm%X=5egS|W_&XWUTAF<$1
znPMZN$0OHkX6iR@jr@IkB`z0`A`@vb1aM8X8L#IWaXVX5v3ClypL(2fwiP+XwoZZU
zV@b9@1QwomcM*v+9++UGAP^-j5LIn4zDR^6Cngqwk$|FO=RG!)n|GS;@YoMJIe0#W
zJlZ)SzG!!C4o2yJ*l=E)ucAFUUv*CcapUOJ0tluY;1yx8|Lfst`eslISc8j;OF3|#
zN{B?WOQ%iL1gnJ(s7nJ@z4WD3;F4V!do#K*LWzH~B_x|{CP*PCBXve)ds3iQVc-xA
z9N@Rk0#l07K)&fhAcYM8n6m9r_BUg+whBS11O03d*Bk#T<qV96{bgKX&GL;)H+Y1#
z*fshVXxsozcQ~i_7?ze%VE0<bM<VkX+ot@RsYr_io=2NdkOA2ys0@$~Kws?O$GuJN
z-i@-s&YYxQew_n00lJ=Y$d*r6nkurYs%rS+j9lhq&j~;e$UqIORp56FGHDhu&jo>{
zR;GLHXc{nBN!wJW3y@G-ORc=hAPwoUE61H$uwP#(cK2#98*_Nhsw|z535zceSbhYE
z(A|z?1@bL^)ML2e_yzE>1Y^TK1>EvsAS>qP3-H5$=9lU2>(!_FQP9POg}vnFUEiU>
zLGzgSnuDG~hay^mv`8Q{uIK?a*A*xTH36G;MH9*174Q{G+df$}a;8hDxP8t7MDJdl
z5|9i#E6L4DnFp_VkbxJ^E)EryV&G#APfefO6$WjGGk{xwJ<|G5wb}j<_X9;UmlYph
zfK3bSd({|cAP%gC;^tiz5mj&N<>gh<At4~wY@d8b)G*Mh&8p49DI*VP1YehE`<R$;
zLTB$ddh`1Jx}Ttn#6}=4>*w>+D(&7slMktYs~FjWfy|*Dy`B?I6On2oXtDTDh7&3j
z-hJ>q8O2I}O6HF-DC2rqtl24f>q0OwaRI7yloS$FLI-KEyV(=!0*nL!4ZqTAcd9g^
zew)#dct@1)2<OS85p2SeAqU14Y%AsFPe=N|eXDfp5rXf2p90)03wRfU3$o=iJL}&@
za*B)#ife1xBd@cn?wzH~5B#=+z1cTeKURC_Q!(1Z4#}u|FiN2hTX~>YOLS}lz8uKF
zZOsd4<AO^<T<Xez>XQ*XDs$@PJfNc{#>U3UF(|X>p7Ew27T~b9!0coj?JWG>kAk5<
zONOnQpcX?*FvtqANN8v}6J0aW)`0Gq@@=%oHQGZyhq<OB!RX2#C`AogI;Gs<WtyUs
zVF_KVZl)u-!9;pSYxldoKckN3NRW}1_68F#OkHiQ8pa~d>fNJo{X8QEi)`!P=RDX1
z;w_)3S0|>QR6DW5@JBO}4aBKg*PoAVGn*$|n!4yg>myDm=|t~HonJEo7mD0z-5KmJ
z<mo5Z2WXBjRKMg`@B<UKkd;po?!8&p<zw$uro6KN13Mt!G2o=TzpbT!irX(GMMd)~
z%Lws!_FT>vh(I4eih#PR$8@W=<rx*JY?J%IhAD1zt#wQSx|z~|UiE7C>#R7((c-cH
zG<FK8ZvPT9qF=W<s3_{&hppB(Z{C~@M3j-FHt1vpj5;58l_mKd%zgJekYDa#gpxu5
z8mI?_=~6~BYOt%0{sVVat27F74LnuQqtotnGfADkU=d(AR>N(w+SaYUF(thB85B!d
z*Q-!4q#LWFWzuhCzh;N9W<1cfVY}Zb2*&7K9;x>&iJt~ddloNhhC)#t_pXjc*n6a*
zscpFE@<sok8no8Yk!WnSJ@h@QAS;$X9mAfP0g?>TZU{)*#qlO9Al=Zu4M{{8=ktuc
zyQN(ltC~oV1}QU7uVqoS7isCnBA!1Kh)Luse+}|i7ClK3^q|?Q#hvX9dZa{VZ@n*l
z5DbsXtZJka^?V-@M;AJm5qU=SUw%3ZT!Ms6Z~@s<8VoH5N<>o4VrP9?MkmfmV^(78
zG_3vwbWy>LTK@n{D&H9unarLAc3}gn_a?9J!Y+`Dz;j<kX9ADNxhqxq-0uBXAbaWT
zj3=NPrqc(2J>om!kPL=$4(_WP&3mYB^+jrfnL^{zGtzn$vC2{x%;GM@{tTW#x6St8
znG~FoD>nFcj8Iv!EzUwXc<Fk<#N2S7mQqJG!(Ll=WL<+ot59qcoI3>W^cVK-&iRk^
zxr~4c1Le8~z|JpVPggj^<l^mD&aC{5_&*)tWIHrZ#v8E<0|m$u)rVC;X|93ldjiP%
zBWYzYg@;nu{|f-d48UJXW)I0sYruqsUD<3*Y}#5VLEpIi=(mIHDVMaI9ANf!V1O7G
zpSfo)7lQ<xQN?|%P*(`6)8}jg>K^E}?!dk1^=u1CzN?J-m>od}3eyeW(=CX}l2~dx
z4f&L;XR2_uoB=Q?e(+M5`-c&QUah~=HJ|Qrox&xcG^VEJ!6G5VEkhl`4ZCOm1}k8M
A=>Px#

diff --git a/reference/Rplot010.png b/reference/Rplot010.png
index 08ff673dd6d914f814d741d15bc11a6f191d5c98..9e860b0e2a3ad097e0d3e2b739e86f1efa4bb5c3 100644
GIT binary patch
literal 8467
zcmeHtc{J4h-}e_GNv=Y5DU?JKx{73{L_^5Fg-XK6lHD*UZ4$0TYAi!`S;APyk|dRk
zecx3EV;^H1%k!S=d7k^6`<(ln=l<jO$8+xUbIyE*FZ2C;zVG$*e!YZU*VE$K!@mbX
z5H8eJ4MPNB8fCn8v%wW?XH6`;vEA0u(tvmPTE9#ThBprPs}`OJ!g+x4Vrm}>+C-3J
z2uefU*e_vr$ltw_w$-@U<Lg`ecj%+5yxdaa&zM<6u7qb9UkPL06Bd0vuM{mXo7MIF
zJZs+1zZA}Py(>viEJQCJzW!#9B|5#tRO?C|%Wt1k-|f|p?YeXzdS-Ebt4><+vq-%2
zE8l3W%H21|0|IO3=YxvrgIjlt7ZW`75G48XdM-O0<Inv!5oE7dIHI4ZVB*}9Um|!p
z+W5we+$fceub3A;Wp<7GwkEYypJTDBL%z;KmEKQyQYxZ<2k=hLRBD98V?OSFT0eb8
z_50klVuFT_P>e%MQl9P3Mo(cu@OqQ&bfn^(V^o{S{s@ifoRL&DU!D(w$?`V-zhirM
zI5|0G9Y{wLu`7K~c)V2`N51Ix)dtt9Y%W}mIQ*BekLAwxmWhEuN<qzrb|^ddg+y+o
z@}bn?o;ANQ_g>7Sv@(z1+Sa~9-ZZ`1?F~xFy}omyVMsFNFOG!_-T38tq3yFPwDxoz
zzP)TF78c@Dy%M=WTN@3e0_DxM(NOMbw_tkwmxv>oH_v8`kB|4-*Q||m^6~MBpFeNJ
zBYLehc!xexem?g`g`w(N9d}GpQvOs&rt|!8bs<&w<+Gqw;)v5^Yl_0yBOV#IVWlgn
z2B^k;C2XPUtfA^~`b*)5q$7z*{q|gfO6GlieU-DN1I7jh`&SjZy1Ep8zBs?UPR2Lt
z#j6I_xR#GSDerkN>pg9(ygKN4`pg+)P0c4#m6O6)`fS+-S#>A-<q56nM?8A1Jo-uo
zWQ9hd@rbgm=;h&nd2wm!f?<qS1b_O@CRsItB#T*goE@wvCi%cgt_bf(Ev|m^<yL37
zwncR(FqOVJ*_K*4l@TBF@?}a@l~SI0;ibBpXXkjzU(XG650Z5AQnP2#(--bF`^XTi
zTU6+|`IXbB?eE-i1joB1S)nm_!bA<TmlH|t6t9O0zC}P8(<x8BVPNp`h@ww!z|Pic
zq9>^u+%cC=oO^Cv^Wj5lo@L2*dGcV4xY6KKp&)Yy|Mm5C*Ul^hSFokjfv|EjTWl9t
zsl1IA7aLoVq#RH=MD!&(%1p1!kIdTyE;jV8%MJUb66Y!@H=LZZ!!?9mY13VEP13cw
z#V`6Pi2-vJ-V^dcrsM=7t=np7wrphXdsCD3#iKqg%Bu;A^Ho$_RYa-Fz=Vf~#|;aM
zxAb4H^arOh@pCyjIk+mD+1Z!z@syR>0rID@5Alk=`AsB}kG{%!+WYM6`}X$su3!H?
z?z*)><01`puHa#_xzs3?oU&m_tJ3lgJ;l7XiYMGcbER%0g7nIqobM=)G57Ls*rlO?
zl5DJsOTWzOM;7k#>1nj@udn;%?7r+3`}X)!il|%dmz7!Hk_jJIw1BRQS=GRY3d-7?
zOJA!G*O3c9w&sI(Jlh;)j(aNhEUP%pVp%71t})Lfc$(Sxr(0EHN;sd^&!xT6^LTHX
z=TYp?;zN>O?Z9t$ZqY|}BCS`}*k4HGmw(E$D9#`iEm5gM@oqJL(iM*GQ$*z#6&2Na
z$Hm1FfBd-SyS6ZfA;-qX%A@AKzC6*~A6YhxX==vFzOS=rYHCVM!;C4d|9Ul4gQeqc
ztc*8=53Mc!wARzpOJpC)_(diYV<pVK)C`w6$5H89;L6W>0h1|D2a8)&tlZ`%?giU1
zZ7(%R4~b_cv`^B;8%_+X$OqN@EGsO;27xiezIAnWekP4ncsdlb+@KKYD@03AMY)p5
zjG8#B1EXKM+Y*r4jp_FhNh7$5_<k{$>H@_2WnW8(!;d#9!J9vY`b%Bn_i%E?#>HjE
z*<es@j>bB#&$RUx+F22*AXENY3C7R&-W3S$UG|%rn%Y>X=k_Ki`l9;@PMDd(Mz4iY
zb(A3r71rL~4%yH)>fMuX{obh~LtH{ar|#zUSE9P@kphbRRWlD**hNs)7}|4z8cw#*
zexk42J?tXy!GqKApdD$bS2FISA4R2us}d3tdUuQr4P)NE{gY@dA}%SJS65%C>ryKc
zaa7(gU}YxTcLTyZCO&@PoxF3yfLMgnJ$zhD%p?S)skXNE%;qaSh3s#CS{AuEmn{3Z
zk`yeLsuQwi*YcTI*a&`a7bjfNcmfU5@5)`Kq_ejk+W3vJRzu9=RIrtp<;j$k%TLh_
z&-tcDYHQD(KYye;U*}`N^}RwWHyD+8x!<{9>Jz7Q=Z9PMyb+q-pE$&_7{P#7HZe1E
z-dtP6$+;!LDU6MbQsqVhi`&>6XJ+oLZv~kc8)s!?h_1BAXWpuRA}jw>z;`eO5B0{f
z_-;gZu0_X$i)*CcfGuT{+EPHJPFYfV3VI%K@bFjL9Q)(CuCDG3Wj;T(5ZjJ(=_UFW
zTuQk<L)fCPHdgEDthzXh+!oLsdJ@*ZuZ4P`@<+xB%4%Lh&Fs#>(d{j|Gc*7UM3fgv
zo_sa>E-4`!0=c5jx3`;L#_{h9_j+41yytrhFBep=Sk64iUE#V3G4S^7+sX-?vsaI`
zZ+2DH4U#-|vEdLSR3N?4Xmm_$Y`WU9WH^8`DM3CWKhwuzbtE`=hU+fmI%c^|D?ac*
zA+!>g!E%Er)$Q`(Ai9fgl9I(!ZXwqWA33e6*@9R+zTl8;VBxU$AxX=$PoF+%#wEff
zGCtS__J{h8S*T;TBZGq_yWX2gTl@6cV>TBX`NA}eO-#~lx2DbR7j(2^2l&IxwW<cr
z8c-ag{)z7ji0@d75akx5`}YgaojVtkm?(*=TpJHBaT`(jO(x4>s-gU7K~=t2?W<n)
zIfRLYal^J$EeTm!6KEY#Dr=)Gtjvu;l9;hikNK7SK9DZ{+)JAqvTBNx?nzb;Wpptp
zAy?q2HSHZ8-W|GfQ(um_y&&e3lLGWI6Mb+?OG`00T+aLaO6@q?Apb<O!y_f0WWAw4
zYV!sZ7b$#8COC%D61-iUaqVq%tJxh0V!AVJcEHT;%Zs+xl2*4fvD9X{B_;jKPxrZa
zRe*78OI?R@Iy;Rcj>zf7-S9xoRDqjyB&{ork6gHS-O>{0;pyq!z-M;VFtseedBsKN
z<ZXdP*Lsb-RON}+xM8t8hGE{4{V-vsYa5gTS;(Yb_B(@sM=GJw$lm>N_~$o%DDW3_
z6D}GIl)04&vhGA-AKuXlX_I6)f6p#vewD!TeF6$;&iNIZ@LUx^i{ZBBQLhQTVrtgb
zbFV&BhC_w+PwE-1t?(p^ZeqS=tkerbcF5fRyxZF2+sVqUm4UoQZS)LJvXl)I3vx5W
z>?494KK7p%$Dz!lg#Gh$W<(_Xi^{c(dX}Sm9xMDh!KZiv>;~Bs8xvz5^-y$qszWP1
zJzZewo1J4d<8oYF&-x1|FBOR0ocw%KZ|@S?DN#mUdi~mT-fN#aV?*R$u^dZb8YVcs
za;>JB^6~O!<>sDw8P0|zTXBe>)lE!HFiYRWWP`T@q2Y_53lYRihl6tgTB9s>V_EYj
z(WyfeWq9_mF?4`;rUU6~fsOkv?qcR3_O<CLwHQIN%kY;7vg$6-w>(G|Q4cOEwY(ac
z*Y9ssX`%9~44s@*^!@oIVgst(^2&f4rPD~it9o_#y-hWyfrP){f)jE2_4OrYZR{ye
z;diNT^Q#gE!px%{h<?CVvek|hILhF7nSwT^GU1%|%9`)}l6ult+n((|A#;EHv#G5r
zf5hpNC)0<gI06*f3v5;MY^p6e4@q@y&?qJ7uG5e{jilh&k{%IM%Jr*Y{4h(GxN+(_
z<X9qMU?i5|5=ik0K6kOW#KgR%C6C9Kj#CW!haB+OjOWkyQ2vTG)Yg6u>0yc8A`l2{
zED0avZb8Y&b{nZVEhW{hBVC=g__I+A-3De;<WN4QYX6;A_wBipFT;0%fyY-vn2@t-
z|6cw(Huz(5k`I%V3BA&18Li0LLXF1Ii3eJ!ovB*f^5k4C^`l8-@xyz+&#ziVJ#_ss
zzgjkRe}L?~R^s}Uy;nXHhr>nMxMYq}*BPI~T|brPD1%mJ8^5ZnYjTR$@Z!-@LDnI2
z8Ge_JpFVc_e<&(_jE>$`m+UL6m2fAC^G6gFREG3pSqX8aK~b_kA`$q168>M3fB%{+
z{{QnX$Hthpmpk-nUr$7dU>L<if`iK)?CtMgu^ALBe25cKE91HP>(elH)tXVM0lVh-
z4g<szK?T*?0zwPB;Sx7S6$q%Q=ZPV;P?Z3C_$N6i@4<m5%k@*NyHo@Tzc;v0<{>&d
zI<j}Z{;g@YT#Vnk7A=GBJf*zSYsbjxpZ-Zuw{siS&M!}QHDPwi)RCztn|Uxvd;2-q
zLR~O}ks88WNl71&TKXK(vfModDwoKCw&;^O#>U3HiaRj6#--Uk&E^(VdXv@VBd&ti
zhw%+X+_FaDRj^)@t;b>1qZs_5<>ONdV+P-z$GKWgz9f0d{%EM%-tmHE9Z<KUqYdYm
zAF=vvEKf1OnTXTeV1@TMCxT3)<7_YE&O7J@oH>YuxQ33fupu82rvE{US~1H^LI;47
z0ndX760JFi;C+Yvqaz!92g~pCD|ltSma^_Y9?FEYCN^*_GztZuLG@Sp7ei$wKnox8
z9l;8mJB%Ph7K4a`y}kI+eUz=$ksdy?8!3Xyn927AHPcyr2r^m9yhy70{o2Z_NwRD*
z(RaA5(wicJQW2UTU`CSj#@V2a2z3J-SsobKHih7dPJ>~^=PPg>UJmzJ28$i^VfyHl
zmsC})9d-gX#NN_NX&r{+@87?p3oH=iDnC~Z^FFrFJ&!L%i?mR0XOe&Yn#|5jntt;Q
zcK^b^*M0W*#DFVNm-FD6$<_z(0k-?x>O8gx(yuj$xb+iI6%`fQP;oRhHD`nn#4)~n
z{-M<A)9t`Wcz0Vkcy}rxh{)sef)H-NB>=3wJI}y{h;pWFU@nqtw`m0)r2qRzPm>uC
z*TmFRJKE6D@OCCu{V0MEbO#YLV`HyQ_+Er>yNDT>r|}x*IY2-&JcW_I3!`-x@(5Z{
zf-aRoX21QDlv;G2&qiqoTW{>vhA|kX-^v-fkfD(gWwSSn2!KsoTpYD%)(^mt5_s;G
z*|@(=T(vZ+QAMCgGHM_K8~lZ9VYoWLZYN4J)w1YL7$o)kr&)k%`>S5$e<f4D$;a^y
z)B;#+j+bk}yh!r~7$_kp*8?OHIl)MVU-voP_{x<laY2Ryv5)J=E?}crnYl7AxQ0Xp
zm;PR*%X&^+OT<iPpFVvWO*__J7=h9(X?YlZi~eeisqlQbW-4kCD=I*@(RuCiIHGhI
z|FG_6XlB`Dc{7|T7KiJfK8_$C|GIC>ga`8$PHPG8hYl`jQIvL>jRi?o3_mhTqxAGt
zyPs$*WJ1)MK1-rq+}HgD5hRRn)#2ms-@l=YM{e<@F`zH>bphEU5QL_KNDEF@=arbg
zsl9#rX$c7vV8(z_C{Dc#HywC>WV9jt5T%lmAC3+A{Nm5^%P{ZycHV;^v%1f+31hr1
zcq0m19kA*OJCv+mgWm+)A9+-AvyK^v5_x#oXtF=%cdQu$68*;~l>*n?XZwn^03ZMD
zsi&{BsF8}FWI_;}^xW}DZ%ViL$&*(gyrBLVoju$Mk*|QhfFPB5<xGN#KKF|CSP(>#
zNA4pyl(zlI*lf$w9QGBx&!TjHTm!qkPA)8va~sYD$U+!;3h6=&r;Fx}>};>{1Ba8L
zk7uBKU}a3+n-$Fc?_?Wi^Bev6pugB5>VoTFmZMA#E9b!l_CF!&LqwhVckhyc@iX!b
zD-x2nAB+j<g#80DZSVh-MdZv!t1?#;b@c~~ArxFL_8;iDHRUpcd6cvyTxI7LG<I@w
zdUufPpH8>Tj8(xyFM^5FguKkczOS?5+PR#exjVhvcY42&eo(8@`q;k_@;<b6&;JDo
zSxGsC$%ix*Avb(oU0uEURzcO0Hmd#2Uv`9>bq_W2OLZ2N7_F$=jzFw`%1y~FCKU;u
zaDwTMXffgdQzzskiv8N7C%+~p&;X>HEAQEHk2?k{10@JR=i*V<1?Wf@4}>``jyEt!
zMoUY}YN}bD<w+FOxYLmPooFKOKXb}VTJJVYZ%)*S=59NYJb<-w6#5JlM+~I2;!R;0
zk;8kZV~q5iy6qD^XO+14jZ93sG8$(I1ex@-v`$6kTa7NI_xj$Q)OkG#tOLVtD>Hqs
zvaYZot+OICd<%fumtm3<L*IwEbguG*&}P{MMgQN+|I-Fc;jwI?b*8p*2f|Jr2orI~
zMgB}M($$Ti9d?P1juvjA;=JX1Id(BOSK__9=!U*ytMq|ozh{wS)b)M>KCtGAEd{r$
zSH5SOl5b5kZBe3LW6o698HBbw-BV!uD$cn{MRP!&j4R>p)nDmlx4vw(Vr17N%K=CZ
zP4o8u;wo`;pPcg!6!3j-*doF-gq!>IT`HvC&Ekmon-csHrB14{J{o`j8#Dj6Ms}FT
zZE6B57*&NqACW3Fr1$|Ap1j2*B`)3uOiPJln=nkPPGnMIn57JKB)ww>oc+}SWl~iO
zm(~MStljHa8Ssg1-_gU0wM9jS(ZKEf_P2Rw8oqDB-==s)h~6tm&!#%hZE>vh+o_&B
z^RZFLV@0W8`1m9TkLcBCz+KCL+RHG?P*i%Lg;`>;gl3?YI*GpXqSEA5dY}Fi5`+m2
z<d1Jn&{J1lrR+bUDdVh)Y9}~#@a}os?=LKKr!`r<d03yz>0YhBl)7rJvioR=X|8z+
ze)E@@B|ITeJhG0h$rzSL^|ydf6uBL19oa%Q0uT+9BTRHWfRt0)+YSE{xaKeti+lSv
z8>kteD6OJy3rkAsLV=~}>G!sTczSp+M2vUugasHx*O&uJ8-+4}8J+pTqv}Z@HJY>?
zxj;HXTVrWmVK+p;b_Z(N_aY%o%>R<5MV_qS@p#PLTr2YE)K?Q9e&GH9H%t!^%V?(@
zKLHmDJg_)Eiky|$2l@?zRZ}~b65M~3!xS{Fm>6CViYNxxmS_5mva_>kdh-j2STUBq
zlAWBaCKR~vfN>L`+i6fICB(!UF}$A*jE&O*=BpV*TcIH9{eK8BU<Vn(5ye1(FKPH6
zhR8P=s5T&XfI7K*>eQ+0ElJ9GjcPoiy0|nI>;{8Sc_E}~1MP?)nA$P+2gDScAL~CB
z8RP&&oCVvnva&wcOzr-u)}DzE%Fz<^|BTuDc@endtnzYmz`K92FDXPpgJ2xBp`n4%
zcxIOKtjcoW=kpGvPEZQC#AcLsyDMJw`1NeqpDa+l_~l4*Wgvi+BKsz<Zztmj)H{xm
zFqs3<0%IP<p!FG?=qpvJdUL6X|Ln~W&{JHM4{Y0lM#N~ZjLWB`rOkk@7h%Y5mZkUJ
z9t83gWWgK)q0`SWU~}ol!;9qQI(8w))wv=5b9bJBwr57xRRRFqCEIhuh^zo7?s5yF
z#`pGYlAOp3bHsV{_~$Uo5_BxsS_AB4S4%&#dl!&yca`?@x2I}FVQT3V;D~@S2Bs`E
zTY;N7K@B_}&6w|`Gr(<(b2OMcK7h#O`tzJd64@f^;Y9$@G*F=!Lc{mw<}Uj<>$}Pa
zB8$B#rXa28sBVsN$G&{IUvWr26LhW1VC<^VKjt609s>TU8z<`w871StbO+TOz`B{K
zx`iqm^xzzM^W?R(ZT@4<L*J=NpzCd|HL5}wy`-71Me4?1a02N9C*u?iY<%ifk$2Fr
zt)d?P?EJC<nccH6Ru3SZ;J0|2@8Cg?&*MA$NA=!;r(RywfZ>)(Zs{4V3(eEg#(0uR
zT?z7@FgvrraIid?8ilTZ!nHBHT9e5x=%)q>NRc3Cbj{|HPIHp7)dMv(e}8{C@9T$k
z$qZB|?>X^#*lMv+b=x2_!Q=TNp>+3I2(F9W9RF3$iG%_1sZz9mQp4}i|A|4bTP64t
z!@%7|2r63=eP-JqvT}Njhlx$U3zupitAA=2r@YO#0BuVKWVQ6nOo_vL(X;&}9;7Mo
zy75R27L;D^l|Bb6mxF)v?mpZ47>d>7`dgrf8Zn;otwU0_L8|7|fLm=Bm)u}-W)dcc
zWPef|5YbF;Vdc&?-NeQwABW@r4FHPLowos*M{AZF0r5jqD0s85>n;=O0m5QE*kxub
z2{?&LQq-51m#-Xs$oY%9?lqMjhX#?9CRGbGDMK-^YmCgJzU>ji2Nr=+tE^1@aULRq
zM^&1w|4$~i%JTkam?Se9oI46ZkW9w^0+2)Ju`0Hq!M6SKJ)`6Zhr4$f_UFIoo_z3(
zc`}Gi@w-`OpCK%$yP(@y7T$ggRyUuo0@P(4wEi0hQu4l|7n8q#*AC@)@JlV^fe6p;
zT?7mb-Td~v*vhIUL*4>5-WIei@ZAZm$j&N%DkuW3%2KT^i_TYp&mQGtc<djy{a4F2
Z_gd=HETKC{EgTs^UD4CXzjX8A{{jfEkpTbz

literal 8840
zcmeHtXH=70xAlW4D2iACLBOLRHmnrs76hU~q<0Vyq)3qvdMMU|2uM+mw4i{LP^3#}
zHbja90t6vIC_;b$K|-(J%6q<X$GGEu<NfoUA9vhwGm<BLKiPY)HP@VTCG?iI1}~2g
z4}u`PC`~n81mWms-?nnWE4cRRmvF~rb3;Q7?%}d@wIT@awz+GXU=U>c9`=oc+#9%x
zAcqi?+GTy8#K~S?_x8E9y5F7N`90e>Ht*YYBUJzP$F$624~$<PYl!+Y*qG$xQm5c_
zU*RmpFbSWkXXfHECgxHiDiYBm^nPEuDZ$`!3;(sv2cGfRaD+TMBG5I&TKQsq<EGa(
zyCSC6OhD5`+xdzLnzzayG`eNiTp~sr&Yl}U;Y5%Yk=?fuWQS)cVs*cEziF9k(wv}(
z(@4{6KSpj@PTlA&YN<<Ghmn=Y#_|enqneU$<#us5;+d$uyWh4}a!+U`LG@+tfttFZ
zs@AjKQ|4>aPgS1>;W{n6$L6VS%s*R^kLDR$rw41pWbB&+QMz_^>3xAKlf|UlCA8*=
zQ9QL^qN_-QV3bdp9{4hp!F%xHt+~0m<<Zng1t&G+Y}@fo0mYi)<lK3xMUHv7Zl|Tc
z3!yE)VoJfl$Vm9+W<;b>{G+g(Yx@=f^IaQ$_0bYMkFPj6IJ}sxt$M@3$@R5N%=Z|p
zdS$8&zp;8Z{J;hEH@7q|+--i2r&lfXwLL#@LEqRo^Y>64gSN5m9flKC2{6Xcn+<5y
zIP6TlBtt`WIqLI(d%#MjPHHi3WuBkT_xQ>)^;Fb?fAPzcM&pT?W*tk*<ab&L?<^|3
zYRj&r>Z}b4)Z9X$LjC3^vYv_s8W$L!s$R>hn9@DA53XdGW{La2=SK|hUqmiG(VW3S
zn_e%fOLl%f+GjnrCZi3lYQd~taa}Fe5X0%q_4y2)JL6xw-)OX660Z-dH^X9K2ObMJ
zEll+;GpshUcOOyDyh}><n<%I=H6Ll@yDVw;u+u8Y!p_bvcV5xsm*(0UGe~tL0BIS!
z$T{Htb16Wj^XJdeM2zdV=LcM8M_Z@D<@(&4<rh|2qzXl5<%PiYhKB29P8}!ciI_O6
zz;d%HKWrG|<e4+xM>HZlE4(H>S{>Sz7kV(R)BT^MnlE6-^}San%PPKoQ#Z1*V!9H?
zj(Sg)bbc%26P9hl!6N?7Pl%6C6c-3p+cUM`z|AM>+11tMS{EU5nm?>u*?<1ST|7><
zdhPqVle4phv=G*rl5;;n&dn98tZ~|Zs+?Z>lh*1yox}{N!!iA77%UchdQa#FNqhh~
zTtrcJ;GPDRh$S$3E6Nmorc?asN!~q1)ie7$+uJ>x8ehi6RglTL3rlo-g{JtRsNd)x
zM&{-df$J=M#mI=g_jLbdxjWx?Ev&CF%j8)Fl>QzJ3F}rhXGmBJTpW0s7qqcHx!i}O
zTsXJwJ*HXf_4(RdlcI0e4)5;FK#Q>#Ne*Hj7D}$i{ox9gw$880Y~`M*kCCh>aqcYr
zkT)~qu`n2R=37mK+F|WzX9oxOX54NKR9<zpN?>w#cQ-#>-Y}Tj&1@YXA2+wQexvB#
ze~I9tF&{MA@@8Ht0y8xnXXS+%X>u&#f_ZD}5*+3koh01)5`B_5^?17gk=3k7nw#pa
zs9i|B>FZl=R_<Z9%0R2GwJ)s&3WTc<W%LGZtWAYVCOgO!Vd^X&s&VvH`W7iJ{feQ=
z96>yf+LJh}upI_|5K_fhhM|F>VRlZ=&7j3EV*A2s^$iTtTT?Z}I_Hu+$*A8O3rp3D
zr4dS%CVG0Qm6b}vBO~8PZK)c3DDwK+3VPNoN_=>D*l}*WgE$nSC=G$3JoEiXc2-uD
z_$0LqU0z<^Kq8@imaq(p<9K`4i4!N-3Gp>_Z;1=F)R0cC@Xi;{N=Z4i{sIfH=UG$?
zt|-2OU|fSZXMaq_p(VvDD6-0bAz~xwtf0QNwRJ$Q#Bn(}xdF^@o#{hJ1qXU_Qm!_w
z9FuYV#to`6%#h!nLsT`eGTC?JK-KC@W4x?Od|_dszOL@u;l?=U{*NIiPMx~xW8$3{
z6rpEsp0m8{CnF<Mi-wH|7SGDe)QsM@b#r@9&p}!r1(RLZ&3teDWfp+YvhkHv+oNrJ
zr9DS))!Lk!o9NQx<>lRm&rl9neBZ3dR8n4@{?c9MhL2B3n1cu?^@&&<W!5qm2-Ve=
zKYsl9y^)9!Qt%ut5V%U7ETiQy0~abxE4*?kc^1^X#>7n9+)og*w88SRBYi;|xNtGm
z>eM>U;NlD0r$2^pmfR(YvNu*?Wuiy|Rb>BzELGM+9wAsqUYsm$E4KdfWT@K+!l|LL
z5lh1@96z{|P+o4r8u`&?U}Uks#>m{#GA{!kXj))=^C_Pg1-H=aZNAc5>XPtE%8Wm9
zF-qVi%xOPAztj9g7dylNY$fT5ef~^kmtLX)Ss?$ttE;P_j!x93kYM;osxNCqV%5@~
zl$`6&tdd)QTk?>bZ~POt*u75PnDKEZ-1H~z<uP<nwvnapwV0z?&uD^Uny_Jz9m+6+
z+|y;ZKW&20^I8l*UbxzG%qyV*qxAy=tDl91NuX$p-{fXtH3$%M1H)4Qj>^Bk?nPOJ
z_q>9^MF6sK%d<K)forjNSh3(BX4QfdY)?aded}N6Y(0P13W#+EqLt_LVP_rNGj-T+
z^m@~B<!AwVA(t*i&$jEK9RbV~)@Iu}Ae^Nvi24~xUh!#XM5`?;eF~aYHv%BA$INKU
zuK?cOJ)$+npjEOU<_VB1^78V;nTC_tF1xsTR%M#=d)$gwuScWQa--GyVLT}#gp+%`
ztY$6ubj|9FEYl^!v`}W0T9)6e#JY(Ci22P5n(w+hqlA`_kPuN3M$!`K5evV~QyvDa
z{;rEx^v>fyV|i*Utn6*&6p`UM^7^h2nhVL&2<AY}wv6>{+aAiEe=@yfiFTDwx!pQ$
z3vy6(ih~om9qj)RK?D!|=fhUxiP%mY2SN-}bBm6hN1lEeD6X8dKCy4#zGDY>mih2G
zt{TC%3JD9FRX&wnCw%x|{B)<t^+k^Ty%zbFRr+RT39r1Z8TXV(dhm2mtop&L)xer(
z&z^O!aY$1<Fc`A{!Is@hn|YC7j!irMfkQ~_7N3pvwd~BymZsMi3=9ljW)rp`DL1a0
z1pCj9zJdLhGA-5wY=m61%FYu)f=^4f>^6#j`7-_1vG&2@aACRY(O2HQ@Pm4}yFyEz
z#QL?cvVW`R_w!i49JGf9g*$Z1CJu;p#<}wmbl>Q&Ov6nocyuxy8$TyM!&)tj)vmE?
z<p1&df`)*(dk9otvwKjSlEodr{<+()KZIMioVs&}wFD?(+WXf>fdCb}hlfXOQj&}E
zb@iF00LZ`?OtW9?^IyKnGcz+eb(*7D8Oh{N54nHLGkufCYLb$b{l^n%tM;EKS#*+-
zw2;=2nv_XCDVT#(-^8RVk9Cw7^_q;t#l|{x7225=*gTeX=}v<TuPu`@E4>-LZ|743
z*p-G}ufHBV*!1{|H3YdyWONklN&C;AnNZ{yI_Guo-!IrHqL8L3ZUaASyn_(8^Weo7
z1q;EQxn>#h@j{GqO|y(nG?aVa&y&nbmUh{C84hZrh0nm_Nd-4o*SrUxZWG${`1^k(
z$T?5-l=E!fbmHX6Hi<a%=xhQPlG2DW35Gz)hBBsaA%Y+lLP6aB#P<I)LG<5!l#okA
z?@{06!lI(KD(Xfkjaer8M=B7t$5;MX3h0S&4x{@vG&JZQdNFTRq<!S%$s5h`jC0)(
zQFB}0DYO-IKOoVa7na2p)ZeXr?@!djU@%1Q71eG3Vya2@eV&cY&4%K8tZ{q3*VpS@
zJP3~qL?w;@q(Nag$scACNq%>;%KF9Wq%mWcKlsB+{Be7FUtcJ9OwOutw;D;*JH^kC
zX1x<;VD3T6<e=?`?#7t=cS^Q~%Zn;*Mm{1OT>pFcw`*{zVN)fbh=IPo10~1A^n<%~
zb{;=K)p0wH)5nkNV6i3qr;Jk|5j!Z9cjMU{$f(Drtm-RJJ>I@Oynp}xl8ZQyVbS6>
zwEW7-N_}SORi9)@JV~;K<_7s}gNtS<p#y8IAS`swzoIeY=)M%&LmYu+dlhF^diz+V
z66qXX&5pIt_5+T-Aa%|(&;5|2ok9u8d!&i_{)*C{D*fV<oN@bX=ETH37$TZP*R!;=
z{Khqs9%o6e6AQXm8bo3>b&h-!cGEvAcn?D@v}-K(Uzn0c&stF!dwCvve&Ll9?^z$V
zHTE7_STXC3`Wz%eT2@PKl|`dXf>T>F`A?f?0+j>GSlYc#zHtT>{dwTMlarHf33aEz
zty?MX7jxddJIaQtzspZYPtQH&>j{0h1q%>r{uJB4;?LVXyYl8%0=3VVF487^i~=|-
zZPyU{h-zD4ER<2N)ap>&c90;Yb~wr_9}WB@LGF>B*IwoqK2_kcFZ0SrgxKp31Tl-~
zgdoJk*j`SMdmoa6)|dXqEYpR+Xi&sQHVYyM=l_($<j(gP?eOq$5&7*1(yLBJB1IGp
z$pXJcF4#Z6e*Jp!o%-nF9bCvIqgT=&-D=iK#U0z;X|b`Ll52(~DKDhiorT3JOyf8W
zbX|N;tFT+;8_+i=0foeHvpPh3PC$PiajFm41>+Pmw+=#nb@m*i^G0-lie=dr<YVY{
zp?+>rpG#tai*Ewwi}1(KoIytydki=H$7w+hI>CP3H}&=PCA1;P$KUdKbuq%i!mwZM
zIz`}7xD@;HUEIe5aCIYEi4=zKtMGPHUSAv<dksbAbj}Y%%=gcwQmSj)>JqC>VHZsF
zGWlsr=othNIpP>B=h~AAB5?TEuVbpJs_SA1a`7C>YKyY%w;fU@g=%*b@2e9>IFJ-G
zO+P+1*#KVdK(vP!sG36kR%_!%%We2|ak}~c{m}BRS(#4r)F)54P`YOYpW~Z_?<0u2
zO*GdBP<0ky^0eem*MmJI2*Z7FqgDU*{;FWArS)Umr1Z&?j7O*Or-5LETuNzcN^pfo
zpKiaetw^`q!_MUg<vBU09$$GQTV^*-l1f_a)ox-bQ6#tFNu5)3sM+HWP@I*{oq3BJ
zbvEaK3#I=`;SX0wFDj5f$xG7BGhWN}CSsn|+8n4*sq~o+qm`(sicvCH2g6RePu!UD
zp-Ap>P%J@l2Fyy`0VFXgvLB1p({2S5B*M0dayaVyHVYMth*R!&VVv_goK3-Bb6ZCa
zM{UIqB&oeyr~cTNgSKfdhva&z@g{;Hhw03-04gn?9EKplvf@?T0pAYX{kmN&Tzx-q
z5=gmMpAclUA)0G(ZGq<IJF+>_mJ<mciYd<2c+j}_H-e-YlIg*W@o{MoxQiKwEPRJw
zD)>y_{yU@~YUD8^4&*cx*g3bZUVUiaoS3CJ_2Gy`5eL#@C&4@Y`SErv7!3_9CEw%>
zLLTvY7{Ao@&U*;rX@cThoy!lhzz58rRv99SUYR*LIjMIyL8RVTKAf|}qBACnNEDbj
z)KK8pIiO1<{$pHFc*PjHw#(1=mz(94=YQI6qqPDo6k9<^b>>^;1583Ry?pud_&y%T
zwdJ|7cwoDyPdWx`M2hz2{VRS^LjAYT{v6+{x488Jf@qtQ5i8HuYknZJhOFGWi&1gr
z9;l~$TOjM=X0I97tPY=%@tbwfN|4opfPkb+genn}*9FU07|rF=l5)8l6s^i)KPM2?
zA9z(f-yQJpwnUh;T{@Jald7I>%MUpko<;)R9~^O+tqm^y4>`OjL_psY-oCv8We`F;
zi)ac{O^e+EaF9hLnhID2+|SP2!`^@w<0ogAx?Pw1s{A8;lWz|BCI_fkv2y}qS&396
z`pNw0M!<Ov=a_?xzv)ZCv0)DFI}NeNqth;sl=OgpyLH;h-usyX1_kz)@d3BNuc71A
zGPeXOsB!`@-wfZkP3K*@rT6dKS6nW&k0;$XzKQLBfY(-1F11UOnjfSNO0KrHc3YYE
z!s6oEdK#mxcgw?1kTc?Y99gr)Yg~DzCD+-cy#$cK%fkN46J9?MsEQsr&*eNvTOM&Y
zz{$tNHWoGFB^yqGGgiu0E+eI1p7LeD+4S`EVy2&HzI}Mbdm!<K->LDbe7jKf)JYXX
zZ;iUP!k!*;IGbTc#_UncYu6rI`V4FVSv{T_sd9bTfD>s+Pn#8W2eEV_e<!RM!C$qW
z0}0;!j|jE@?i~C7`}c(e*J@vVbE~3RVC!Gc<8(HKT>3mWv$E!xe3Z5M;ipH8A=dqs
z^ZR%t%*9A7vXa(_BeNh=aYiX}4mAkK+gk8F&AquiHaVYQE3yaET%dw_uToziTVJ43
zpXAVZbJM|{PpQ~y2kGulF?Xsp#iQM;jPbu1d&6qkV{Lo-WgBzM!`)>A#`Iu+`5<W-
z&MJ$hpHl$$eiz%q|KG#ES%Wm`k2m5@cjTB9&Ca%=8|C8~*s}Eo$kv5PY6iH_4xb)u
zY54J@V}6pVhwXqOA|Ik}(HbG5C~f_DGiWg|60{R!UC1ey9}ZH5g@nXWV4i{R!cd_4
zSLZdcDjzXEF27f)i@t~ZSQBMyjf+-norB>c1HX5%Dh>HAM~bOhM(Z0IzN4*<$W0QP
z3k%N!ZlpVX)n<E7pvjFAs9?#bs^FH>0B6WGK|#ZGdRh78gYBoGpMYZH0r*@|G^QJd
z3T~(YK*31pd5uH6G#4u*P)6qWAA@bvc2URv__1S}L=~uM={CTO;cJpfp1R~YdDDvr
zU0I%_^wIim@KBwWW`>FD%Zw7wG2NH1UX2&GX*<hY65peP!{JVNbq(<F@BmD8w71^@
ziNW@2ZEaJ*%*@rO*93qA>+;3ns6Xe99mq1ux6IDXouqL8R{Pr)D)wetvQ-3)30{&;
zMmfjpgakrQPY>YIgnU21^GQ`zs|)r`x3sjh!k*$KjtlNM0oPrcT}iG8qL3R)abKPt
zi&w$<oycb+duR>kKPE7P!K@$au?8ah=IT>&dE<r&4p#*(CV0X*Ff+i$1`x}KUXUYS
zPMzN=s+0+kN|6j%TUj8ye}79wY=N`7Nj`)96srA<63H*|`QC7K@JHE7jiJ*mp{QsE
zj$p1f+CNw^2HF=Isp{cmU>fYvY3uW4*trfP#^>#4ia~+1u{nfWwB^s;N7!!<eG6}k
zmblTLZ>0*$rwyFvTclXNj5FmsbHOY!=6<OQ^<9EnwaJ;P+32}rl8+LSfn@d<6o@y=
z(+~0rp8e?e{J9K7>l~9tgNN9$^tfzj4N+|G<UD)E1JcVhGK%fkzC+`izmT?p=jSl<
ztDa(;cvkcQdx7~bgKd~X-QqJwPLG#yew7@!>{x=O*MM~l#TTUGtyBCl;x1i<*WfAp
z10d=IRo$Q_tyUUY;jrD+Pn-Lp&z7;y+*l|1?a<4)Y(r9FJ!dmF;9O-({y%#sXf;;s
zZ_8ueWoKuLOQ=kxq?b~(#}6_(b2nAG(Nrd(9k`wU)GhFwO5JFE<4Vx5>*(kpE)Iqb
zWxR}y&4i-QeqT!~9Qs8=)V!K?KUn^|6MPr<vn?+8AqFQ6a~wLCz6`tvJBm0*kTZGs
zb$+V%B#Bk*(0Vw@Z#--HR}4Bw<9sL7ZuqWq>)UJD1VURiZY5gOn-~vT6bi2)vu2|j
zNb!A((%h1mXtA;j*UJ2MQ~sZb(5>WV7L+i`TG9u_GU!HPbIR=O6R^Kd5XmC4{zQ5D
z>_~!}6Lh_V&focyo#!C6QS6)o*SvRd72MzDdUW7nlpj!9;EDo{9oYtsctySUT%jUs
zWkVsCf(2}FC_}?npn+Ezr4fo2T4x2@OFAtH-QA{DU_f`*1l2&(!$4Q}@Yv6~#3R*}
zUb^=AR%JZXt$bMDWN&jmoIJhQrj`d()z_iKq@-NvAD!S2bNoG6yG#mNPu0_wml(#F
z$$Q+87Ti(#;c|3LOe!p(>=`{XGr}KNpLjBi+zPqs*)1NRB=HK^Y&ab|$V?++cbDGl
zdJBAglnqwk+ozRADq6e-05~fci_va%kPh@Kw2f$=??%0@3G6-bk&|mj%gk`24D{Y|
zfe@vqr%w{irG+|x(;I;6Ig*Pdu?9CBh&&_~8-Gz`aM5SGo%2BfI)fxYxrJBHcRRyQ
zW&neK+nNcnMC=uQ{hq7d1?V*>x+hZ~hIZy!R2Z^b%f9rayUMT1qoen*EmMe&7HHT)
z=cXmCE-6nOhJ*kR0xRHKga~!qa-v|0Bgl9139qnM(~#HEQLmsUvvsQLI$;85DBy==
zC%6(($@HwOEEEV1GOt|Ep|P+U^mFx8uzUSxTQxesc7=vWEuORjA|w}D1tw;t_geV^
zr#S)e9U<l7mHlNG{32#ruJSqdMLpi@j3Ap1vi}QE3BJu=HoT_JPEO>9d@7l|!m^_T
ztF`RF)gduLO3FvSQ+i-NQ+moV`?qdp*Aliwf>wu%sCSF5nX>@T<5}ps+*w`5Rv?_n
zi*4tbmqD8n|10<L+zS|PF^(P%ZjLZwr#*BFE=hX*s%qrkA;^{#W6+2005y#zqa?=w
zuG(P(2I<PnqSMef%FfcuH~}&qQj<Z+jlpPxu)#0SPZDk&ODk$tXdI_*B5v8V!_#KK
z-8f294JdRcP|)mr+@v$xa`IyK<${f%6REoH6UMr3RarzGZB4~O+a^0NPaB$JC#0l0
zpc6IwyH1QzL{b4mvk3k);6iZQKFYuKY)icsUc~~0l5Jgt0kf}4#<k}n6le>NdI{5-
zKpcVP*7HFJx=dsk)T|O?292TFWkx>3yJjUx*0tw5tM(H25tyyF_*<yoK1clUB!P{a
zj8u7gcYy8k=g(Kz%I_f;FPS}kipkyG)+wC3Z>J<2kiGZUt20)4d@7469i>ngEWEnx
z*c)B~^-e}wTJYvpPrl89qxJx?px@X{v07DCY%dY(Hxw?nkLNM;2&8SkZe@1{p)F7(
nDll5OctISPn>*jXb(}W%7&;4;<RtSc1TLs++G=@MZa?@x1f(yP

diff --git a/reference/Rplot011.png b/reference/Rplot011.png
index 7ac9eb770da6a0292b1ef97a19a95e31ab2b9908..d4414a5ac82d1a39360698652fa9ced304940ad9 100644
GIT binary patch
literal 12989
zcmdse2UJtr*6v2^^&Uk9q#Oaef(Qsw6$>Cun)INAj`Us<EJry~4=5mAr9`?21ZfG%
z0Yn6(ml%T56GNl~Bp7&ed&?XD|Gzi>@y5M(yf+>r2<~L>z4lsj&H0td!)tmPJGKgL
zMG$0%mgXfx1mPJ$zc+7$Be)(?0{qx$tF3Vfe!|!C#hNhqvBgu<+y_Cn?MA<Ox~TXc
z2=XhUb?Jg}U>cJe^w@Yjy=j)vH<RxYY;Pd;`_bdJm##IZUl4y|=lfK^E>5QTQlpO0
z<nN<Tyjq@jcCL4PE+hH-p6J^VzrH`C8Dp@i<>B+$&CkVlZ;m(``L)hCposP3jd9L_
z{QQD^#v-MD$!BMHaehb`D})uoQ1$aT)o&jqy$(UF-@DcDB8X7*<{Jod^4Ht3XZ9S?
z>rrCWVrvc{o;~8XYpw-sCI>1@4liy(R%(e#p0dgE9vMtY1gYK<bDIZw`P6d5w}KK<
zzE6jW>9cE^*yfntMJA;?_OjS7RQw8)-c5*&QCT$OE)djAPVUoI!#D0Voth?O_PzER
zH8wDKrY%`@Ny-1~M;3lbDIL$5&MzwJy|_!Ir?~Et*t4}C9cw-HcX&;VjIzRhG=~}c
z`1oLOr*i9vgr`Psy98x5D=I2DjZ*k$c4v~y+T>}WMy6I?muptuetx;`&TaTtVmi^%
zJ&wjoqOtn_ICxPuVCGYrT=-7md@0g*F`UxwhwoTRC*m~6Dq_5&1(08B-1pQ+M@I`P
z`4?jF%l2||a?}0f)e1})m%T6wQ)8?k)Hl(V%AQnPGq=I96N+nQsuxCQ1Fd3JIWHXA
z)AG10ORfu3or21NFZ+rt3B3iTuJaRZ!9Ql3*|W`}gvqMu+|+Wf(JQ!xPK}`o*Q9pU
zm0QswDvBkm`?@idB^!^|pEuU6t*!*K>Xyn~`z5V|r*np0dtuwpN>xvZow6ZWg)Dy6
zqAk5YQR38<t+jRIz4+{KkzmbEC*wHHODC=ueiV;Yj-SU(>aey{;%+{2750;LKyC}^
z$anVi*d0G{qHUGCvMZ?Y*|RsAXWH7@rdJkcsIC&po(i|3q#a=76TPN3x@si*)_w3;
zI%08}w15tkr6+`p;N#Q`iSD7Hq2eNJ%(<peF1ufNvGU_0oc8Ip*95bYrYEJ3#bU#m
zLSGjt9`Z7d?K(8o`42K}D=c!RAE)0YjQS~<Q53##aJ;-*PbM>LHHhQy>RJ$I_hmLP
zoN=`O2@m4UIIB?)VRXW@xCfTAP#W7b^=6Z(j_5RVuuS9GwWGMlN3?o-d*iclD~mZS
z#$cHv$0M_Y@c#YPDr%VdpEpjwfMC@^XI3IlBUWVEh=?cKP%1q<0)9)@KFF-72w8I9
zaPNYNvGG{1o+XT_Zic*u7r>Uo1G`bHO&T8T&{iV_vt6PEWUiQ)n9QwkIg6F#qPA4|
z{hwlbW)<Jd!E}DA?j=0cS7OR?C*;X-5_L<%A&TRVjmojjJ9~S2UQ|_?7Znv9my$}7
zVA9Ao@y2i=V@n98xj<zXclX4O$rEks#`1{7>z_T%U=g<7SKrVU^5x-?<A2#a)vd4A
z+bTsagiUB9nWWuyXURkA^~ky+i;AoFHtvY;XY{(3)a4$@2o!TwDd{h8l1(8|7rE5X
zJ_Dk(>x%k%#PfxFS<<K4pt5~Zn6#a|WLk-*LZRK6JeVVhG>ZTluF|&j$@9(^Gp|Q?
zTKn~yFk>RN8JL^r!8W!~TW-<s620N#<n)ourI639stg)ax^s1njEo*dNn4aTM6dps
zRGXArvksu<Om`DpISbR(9C|_bQuC<S<tzhu(iR5WWwJfJdNfAKyH8LhxZI&FB?s=W
zDe=69MOyg-?_jA>)wCV?!?JSA2t;E+MTN=5@SP^V{^cY2M=N=%sB$>IKV;-r+~>FV
zBQA;2sWp``=O*}J$(-8L&ZWD|quE2AG`nMmsH)YS^XJ2s0>TKa&`G6f@vBEvAm9WQ
zJfG^RF58)yn!0vAzbttA#(B(qjIh%64(0i%2fIXzF?GQ?tX=ojQy`T|!nV4veh?nV
zuX=IF)u)fsqK|*R<G|UYuokuR?cMfC)_pUxR*V-}(!7Y><QYBD86M>JMc-6$NSQH*
z*L!Y+jVGCOVwAi|Byi++w*$yWKZOlDklP!CczBT;JUrXs*Y&3nWZz%v5yb3c5nlRE
z$2}e-Ms^VYDUY(=6N}A)ZT4o~<ofmFg3<XE6}@*b!mpp+Z5@BVqWI=MMBvu->!xW$
zNx9hOEIQqVIb27H<HQ@Ani9}WP;$`91!mpF+1Yt1wKs=v>wUW@t+h`Mc?n5Lt*oU2
z*y(W`Oo^#V@WRL8x)9+!DdE@O-px>JghS%2Ag|`;=K3eSJ((k-5`0u7wjd{`F^&VX
zDiW)qtE(H+v$Pxv;mMR#HM;6vX$k3edfQ8dXArt8ORRufYG~YON*Ef)jES>rxQ%uf
zPV;~GUe=O!cOz22ZXG`qyT4TyC>6Jnf7L-KL<n;JFeE*ni4QHV7LWlTz%Ge(elCXu
z-2cKLOOaBiCl2+AYA6=>F-6YxDn@=^q+cX5!6*Col{k<5FP7)OJ4mJ5ZkJ4IeP6rW
z<DZYuFMh;jMR4>g-|&wWGsZa1l$dVzu6}#Z;O%L{S8C?YUDG_E$1<w+Ch1h`A|Z8{
zAmxm^lk<Vfu&CZO>F1un?0Q#O!TQ2P!_h$Hm|lIilX|`S#~^t~H^mL*NlQAcybJGV
zBuF=v`aK>ZrsuQ#YlNv+jG(?@v0uHb#+Fvb*@|V_=*b)HOurua<i2#XF4MEh3KEd%
znPlI>=+M3Mp*n7<jfGjaR*Ip*LA{F8%pO^;#gsrAu&}fgo=V``zH!{Uif?DQa9(Ec
z?1(WAf^BZjyP2-N>Fm3{zP{Sx2J`JO&#;S~Wa*l?q}D^&C@kYeZLJlaOe;krOf|Ek
zQ+nsddt1XBVm5f1n<tCK{SKK%oUI}f`(^gEg@uJsp6KTFW3z!m2Y53(CY`v(ua&BH
zK%7F<<viv7W;B|hDX|sPckQTz*5#tC8>gSl;)i+vRYCLb2*m&Yu6cD|J!~sBo1I@$
z0?~78Y2f+gNLlADiMA9u?WQM&a$Au4n+0|}Uzb)YJU^>j`w!YPXJ~aHmHsoI@+LFG
zFmG;Lvk9HOoR_j58F@K=%I`vD4K6oqc|1w*oOkvo_ex39ciSS%O1);$uv&>}KpVYL
z0x}X>P-D6q_uE(*hd?CVIsbG%y`z5Iy9HjXB_#`TZf;W?C+}=pv5mR;v>C3FQWO!f
zwYfbbn>hID)fo-Cl1dX4OZQ4jr*vXAB*|u%8mc>cs<WX}dT}`vc0xcl-X#jBnwiB;
z7r`E3z`Kw%_sTZusT{$n+PrB^8Pex_v|&@`UcF;Mh-e}6y?>Pz(>>Ft{T#i&Br}_r
zmo_k9=E=QwG~4WCu9NK0a=XJd3<gp`PGaId4f;x`YC=LnUS3`c3{%)rnsL?!P0H@>
z?bUI9*Dqhb|M$JXd*^nPw2PaYUp5I)X~(3Ik5Adp9ism1k1VW}wRKT$?&0QjuK>J2
zN;gmzfq|dqHx`S#Cb8Qq8xOlmStJ&KtvK6glYm}yY3sP5iAh2h<(j>HPD*MjY@oS}
z<~**uvWQfmxzeKz_V)GyHfiTX>YIfF(h?=D^B?IcYI%^k#0NVLB;pGpkwZ?8&u(gJ
zdY&QF#DD0KR&&Pd7CS?DvQiFY{3iZpdWf=!mUkiks#x67sfQ+;u~EAp{+5OPI>sMZ
zhtXhYd)JbDZyfNRlM&L3DeYd_0$Y0uFXs2{%NSnM8?W|DZ1c7ueT6C&J_`!J(E`7n
zl8fXt;VFZ`U{h$T*GHS8VeL~Tv{XVCjbWk=>pXc1zh>*J@gknGC#HY-_V)fZnPD~j
zkHBbAHPT~U9>mjZGz6`s|6Q{FpH=tY@yU@2Di4y3189!|^ziN~s{1k*UqK{Jm<0U!
z`!7Ibn75V?-`zaheT@#tyZ5ZEvepu7XObN=v=Ck@LU{TwEs6h%O!RGN1{ryrEaP}w
zXlH;zdh=+U#G%~}cM^*7@;aADOLgu3JCMycgsN26e)!1A%O{mP<S}>@g1xp1{xfy{
zuDg%)#-!E+(sA8q^HtQD=M&7GY^r-eXKRKBPAjHY?X~a`KBbKika4SgL$S8a11+oj
z%TxlDMFg-yQ=L3|YO(3~jC1C+(OCrxwThy1b(u%YNsn4Bzs{Eqq`l9ktba*iqL@37
z)Dv;iVK_AVY$$;a#aM$uxZ9b>Ii{Ma-(uGlHv|a;<FPbg94Sy>TX~S+uZk(De8GG(
zIe%_neV(*G{j$dKPwAl<duw*JhIg+#>j@6<R*MrHRmT(p_SN7RelW|y*zHX<N*?=E
z07DB=7djcId35(fKIKdr%k<<vBOp7xb)43#0r}|Ohm#6P&7%gt{>8J9Bmo%ovRGVg
zF~Kql5*i@s%UPXwCw#<CMoC{TYPBVz<3Woy$=KNV1z^NdWas*I5m&Mz8f|}qw20=>
z7?oXyo7U;|0;rf<4vm?aL{rMj!yBi~zTw~ItxD{Ec-NJH`OE%p0$N#D)1)rz0flMH
zP_aC9>eL4L%?R?URiNIruh2kOH(Ii4Y&VxdUM(O2x-X{hM-YwjG&Jk`jVGAW(*uS(
zcj3SBQau}Xpb&pJXfnN+E(#yY-bvdb-{i!m_i_e1@Q1a2!s&iYh_3u6&wHckyvT@V
z!u&-ueHHd&k<f1!bTgFAcd34ViXwciuKW8jM<KNz$qap^tq6rC?yw`WMDNuW1-g7t
zv<6bLi;IhQITjR)7VnI^BByWEAN;)XIb8Ir;<w&C2y!hgjVE+*&~efahH_M=9cf=^
zmA7U$2>m=^<F`r@`xNfmn@!UcMqg1kz(gSyAB?#=P4sQ>Se%A0oa*{@pwzpD8Vm)C
zJyXN-H=!Yjg6;VBk<nN+429^{4csz8=P-K!8|#-U+PDcB@$9>q5?qJbA*@(_g0l{(
zHxPG3!sc3zq@1yjP~|Rk`zKu)RjR)&i*4G@oz@RK9z+G+q=aAAL>A$)TlO5Dg1Xl;
z^5$MmzFPfF@njuE|1DP#4N_X>-Qh})OucjCkBjNsV3^TqJU^zgV(B?a81JuQpWvB_
zU=lLmHmJ~15uy+DL6LF-Sc&I3-q%%CRRtU#7|x**1`mryCjVn_9s@5g5Hj)A`2|4R
z*o^*;Sv|<9*|7HV!+}}Dfuqs>thJee(uRK=2Rd$?sfz2WjFx8N{{X>=?}#H3D|F8A
zrx<|&R!C<sg#R{|nRhd!u@B(D-pEE@s$akJ?3YH13KtVoHjpCm>+Q%46x2j1o8k)B
z{^KICu1!$_0Eex6<ze7vFmU}$RS4?vPqf8y!0Jb>+L2)rE`-AZgugsLIe+jZf?WO8
z5vj2%UZ4R>d30FUkVeAE-F&;gSqZRWTw#OFTNl@rMJB*%J@y9VcGi`4ahTpsCq!bk
z<Dql`CY|WWq#Y7QgE3L&wi;(DYjIDAkKRrMnR_f_u*C{N(&A)py1KZW!S6Vh166%Y
zcpWn0^oPvtwH5N3CFlwLX!L7!$#f_KOnq_8DA!kO5(32#R@AvW*BLaQY1S$#8v%Wl
z2MT!p$oLOILu>1FqB}K(REJyfXMY{+{@Vlxtygwz7vlEXa1(NMlEq*Lob#D*n(oT^
z$E19Zl4<`4!c&Dm(?S623*u0IVPRnb2cGwrf(Dkra;WMKA%$xIIjlP&^kcT3qwx;E
zym?Pgjq3|En80GdoR6l%Lue++-1exQy;3*ZbO5r%^osx2fzN>i7<<>a@`gI^@vH3V
z?jtw~f5Z6Z`EpQ8?l*kiNtg!=b>c+piiR$Tc>|Km_g?|(VGdQCC~-a@DA+SF@WSrQ
z;OBC<KaA@ul)a}CL^nzzY2t!p-nL&V%FBHfiXhd&Iw_?|PG*FTy^9+vbJXW70yQ(X
zv7y~G(2U$K)wfAB^x9mt+S+mlrS8zk;||po9ew55ODzmc(0GENoQrV_W8Haa(Afqh
zC$B!s&%X-7i${1jOuB%K!wV7#Q);HuZyk^h%15C|!S#f~M?W{o#&4o)-!)M2%(cJR
zL|LRC5GT;4ntTs<yVM)MnK6;-k=Q!kCE%F$>~ll-9uk5))@(;sdrR;+`!RtBOLp}m
z$n76+A6D4f3c9fYg#EyWabT{e($ZKw^78TlCTcK=`F6_dNQ~l|t}rwOSoaCQV(b&(
z{f>%QYq*JIM}Koi_?X35=q@0~3gV2AdLYtC6z26a$vSK4U0E8jlGBi`H1eZ(J`waq
z(}U@G@!6<gv8FdjbW5FAfuP--D1E!~)?imJ7ePi|y#1G9p$ko|za$z$l{&1SaZ(FF
zbN{C*pLF-#$ZhwIStK#rwYcgE2)xXQTp0REUoE5~RbGF7vZEigTv_~&?+aXX5y`Me
zwBzxd?o9ftR>>2uiLK-DfOC)X9d{yC4hL(4;1yJPGiusX5u~X&agD3-@87@QO4lbr
zZa22HEI?QNz}Z{xTr)yfq_i5scbRr%sPw|bwEM~wod5M{b+saZEcz084TqWM>snLA
zah#?;K8u&AtXW{a1Xuw2pjLdSs!a<++tAIe=m(w*Tv?o5ke`ogCT<ksbXKhDd)Ey0
zrW@Zz-T=I}xqt%}4v~A(DMOvH!o_d6_vY?|WtDf1;DH14?&6t#WBxUf!~HqLx=^>_
zT65S;9W{6oR@ryz8tfLrQ_^cIN!VulW%U(=B%L^+%iPt4YF}Hm&;B)(Xb89th4fLL
zG(~2b&S5!^VP#Zk1nDM0B3e-H>STIAMmDb!u`Xn3pB4G}b9IPeDD+R4_nkC*T0&l}
z9$8eRYr9N}MqkmkP_kcJ<-%AwqoQjs4rwPot_5<?1HyJsPml53P}iMG3D9#3;Ns4G
zh31D!)NT!&X0vEE@pHq;e4sLAS9Y77ygtW?FZZCSLehYVR5T=)mKuaC&Gd$g;$MKE
znpC^`=fgcF1_lNnmH*CRvgn1tw;D%h@AglBX^gC}Z%vF}Y-F(Mg=Ou>okTzvfQ5PR
z-~r59g-ZgA{Mtw5<=3F6jW4ZiOCeNOTY##5RbqEgM|W43p;Q0d?#RZjj#0Za=5w4D
zyI0m38`j;4k{YNP+ib>ZjdP)-+n(mvA&a@)x^+_Fl2Md&OyQsH3k?s`$-XykJZj0t
zvW;3td~t-Pf`X=cExlN;e7tGY1=9~n9!y($K$6>0Ib6VWSSi+I%D<mV>{Kr=%5)PF
zTH{*)(gW$Hq~+0(6T2T~$KrVqg_Lvn^~z2ke?4XO`s1_%1a{#!6;SrT4Eeu_&jE^`
zKMXpJ&t!Ysf6%v@g?yr}L<{x~&hWfz06nk5ce<-Km%YLT0C@HABVoM|$UBTrJ{>6e
zU{u>92e1pnA*_VjnPY@Bb%fVC8^B}Sq?ft508f<oy8lO62tb>}ljhG+WY{omC7A@T
z_!c{ipGWod;oiPJe`1IyKUCF3*|TR|`ird(l^lp|*2e6~X+GxkPc2<_TO&Vc6rrFK
zxV^S2_B{ZsqZ4SbOo<yDgBKPRv*0J>e_-IFUwh0dsWEAwDA2XrV@vxPe!fvglt20z
zA7*l%;O<kHk}jkMKebL1tknzkN>_s9@y@+L-9$W*`2v(*y0@iuXZvR>wcZCt%xo7W
zYnoPg2-o;Pl-JDJh-AWvCP~peyihUrnhw`Cad6t+^OZk^Lsh-K=izUl+esYT7kRGh
zf%IYO1L>wt&N8O5>>A__P;VYydK<@q;OTVgDK*W=^YV9zdemZ<6kWQ9okPC0rWfty
za=_aqDt-9DP>dG|vhNTRJ2$>?c5H!P3CPoL(pO5&3ZJU(9lAn_7<{m`(?9Bvy~=?<
z|H(Szn;I#NoPP!)#e7OT(;v_n$bN@PoO$n@cdYR@)|A){vIqn_RE3F&iCW2~k@;n)
z(n^#%_gG}3=Roy*yOK7(@i`Cg#;MG;<xFjhc}@19W9Bq@l|jCW3FvuYP(Anlgf^zK
z=JP+P^8R~;gMWt@@qc*D3rXw0{RdsI*a@xjZL<iZl>a2<-S5_2hkRs$gk*zX&bbmJ
zbPND$q!h_4^{m@fwSBS8dv}JTuh?b~kh|8>zSwbz+<@vGgwq?BD?dMOz(u9cgqfDV
z;U91t^`z~pD9S9@QGzX6BNGW}){>?*6z#;5o!ljwlvXvsId(cLR3rYeri5>=iD^Qu
zR9!F|h0PMv9;*``XqD^Y;K^#%VW6-mPG>*5YGD)4S!ANP0DxOTZEfusd(#fVYyb&6
z1ZCgFNh>hRyV0_L<Mfm!mxNo%ZNBm0i8K)BLq#?Q264q}MIJb9$26}iS`6(?L?ckW
z!O51VUO$%Z`F0CxMniEG61XSRu5i)M&kyC*J!+qS+tbCc|M7kHP>BurV#TPs=?aDU
zP!VYJ-E67aZ|Xp+O0wC9@@&ZX{1-1ietdRu+&^hm;RIXxY?H#7CPJEb1f5Rji)<9i
zYhS;phakHR&|Ux<K|gbW-^#0TFNlA~oVjyzbN(Gvvy+Klib-DIbqB3${GEXpR8OS1
zmOFKdflZ~uyK(y;5+K_h+Py`~P(i4DsKpAP`rha(y+cD5@7)RDc2-$Qf?T6yNCU6?
zFPk6#(8>VE)fl8kYE6KWp-nuD1n>Z9!7R}Nv_#P9uZrXz0~fZ5|9-<w4SLf5&PYNf
zyB^d@TG<X}QFKa5O2p8nF+ge}P>c@II&;^r;{nGbp8P_8_NR?B1bkK;w4F*9S65(v
zk{a}%2yKx?V-4V+zj|c|R$83qpK%<xd3?nCyFjgOoDO`)jmf+_GgwAAe*CyB&^*)%
z2KD%djbK2{IOK@=Wuc&ijmY_c@$bi+rt6)>j_B<LLi_s5OOOQqb^cR5v`i3{4r&2@
zh48uDHVMWH+<GdZXK3g+HtHwF90i-h(h{)KXH72f)dvqY0xU$Q7<wZ9YErk?W&p1=
z3<|2M#W+gZP`kRsKtl$nMT6dKD-F622tgY3BfGc2)T8=!9H)t&NvYHaPz$&(ro0ol
z){WCgW1B}cxt<CqAzpv#-x^s45C9rWdqB#GiS{~^+yl-kv`vg^;<Uiby>^t(`&Lwq
z&%Vb=NsbvELKE(F?CWKLv$oCjj<j>#I+?1}Qci1<l)Mo^&#!RR)COmNC5r#E84epI
zAZ`2GGQFTgs6fq+Zd?|+44x2Bbm|8<uapCT|15y|0xY|~$kMU6cJ693I(VNxbH`*<
z$R2uf`sUrBHSUsd!5U!Jf!c3xx5e~ks)P`$CNn~W3f9_{SWkdHD_jo)ls}Q?(+;AT
zbdwc+dE5b%;h5evLKx>r*{#7d&2*HfPk`7X>8z`F0ld3AlOWKLDE>zjv-0w^csK1t
zH433TT36Te43!Z2pL_Iuv+=Tm2_2K&K<xgyB4CBjcc{_8KP?YnVbVips$$aLx`ErB
zN65&Bq@h6%hk0jGOu<J4<y~U8!BM_05D$d&L?O||Hv6@on^Z8Q@n->Cr@!4M<@?p`
zHmovkK9vS8e}XtWH6=y%Mm++T=#S$-IK#RL$~yfa&c>EL0b~IHbV3tm750kn=llB=
z4Q&*^UGFt_OdlVxltw#G;IqL?GfYh`5Nr_9w2!2Ds<*iKr!D~;RY>vtDYfowMKI+~
zaffwNvdzmJj&<{d5}S>dXny_HDYDM-8F-F!Z-0LQ&|!eq4T8xt6i@;{kC8)NoOGp1
zJDd)cHZ+tnGdkAtNSmnoywj=AUW({I^oz52038=jkRZ)n9ST-jj$}@Wu6`CpAv1vc
z`0@njWu^RNx9y4+rpfdPnd0T*OkzY)s;&k_%hBF)GG}phg~cGP%=lz4ejO~6^ZIfL
z)B>z|B}3ibl9imXt#JSn06G$Qr!7;>#&Eh>%+w}QAodnR!j!yCI8{BfAYCLj9-m#X
zdB=_&4$E`n6A7l67FP}=zGRREyCimRkqKK3onM~JoMZ>mSAif6ee$QcIe>>S-3&UR
z!6Qux@4l%Q)JtMFMc}_>jvX0#OQlRMYzznJC^%#zdTf(a$T1h9_5LP)U?a8}xW&P=
z`7w*tJR?F1_#jcOHn%LR64i{_Zec%mR=>MmndNngSY%6|5bq8?o^!81=ooC%d5{cJ
zptFTMRslUl&JG<JZt*SI=CAA?4wgF`X)!9TS;8v&BjR)pw;AcH*!wew5=bR{*tmj{
zbm7=rlrL|%Gam-V=B-XO2AZ8)ceZJ2SJ?M^n842)ifqUjloOIxs4S2*uLRJ0uh40+
z_=T*6+W%UBT}+iIqj@Wp?$ms*(WYsLZGAQTw<S}V-l-SXP^a_rj{}GEtB&17Qv>E{
zjbry(yu9(|Amh~lacGh9FeT3~?v-83Zd49JHBXuLM@2JW;}w@;n;p0rzNK#C7OOgP
zWziQj7-FVWtI-rKlG|Pjc~L!FbB!ApCL^!VtW;h6O4QLHYb_=zbA}zfcl$<d3o<j9
zHC1)35V8}nVShJ&|C8SAin7r-H%sN$v~+>g(2Rl{{#}l$T~ET%mK~_9%<E3j0|IVO
zS-ay<+7)oH!_%(6TMVSE87(=cs98o^F$J;ZkP0BWTbcd=)v<0YslSR8pveA>SXWSw
zoQrfjk<{L!9B8e%DPwcMC$DhG&DV=8av)d~S?ml=iE^JwJ!_vfIXb1XWCof%7Gi(#
z%`LKO&B${gO1}%>idey#w_VT5B1Yu7TITv;j-&io>qz?8z^>naQ$NTYD7}bnit2oM
zv%wc8O{ps;JFVls?JW>i(PX&FDOpn#7RwQgyoK{~Q9i@287OU8s<Mcfed)a(EPGk+
zF-_eRSuH5tA0zgjKp#m<Sd>Q;h6)W*m3C2`6c2LI9o|jEf^_C=51016NxmEw356sA
zlO5N^Eg`y}LH^WBvhvpAjIz_2*xY5{NTI5<gGy9e%KMywl;pn4l%VUyR>z=82(+-h
z<-<T5GJ+-qP{|z(K!2^F_Y$VM$L9IR%J4qDZD)&<`OYNX@2SYk@*6fsJITtOyV0GW
zaKbc~#yXkc$LMngy~Lt6uoR6=m+|)rhl*&|iIeK38v$`OM($_y80q&``!TL6?i=LL
z{|vNa1W03z-uYDUjo##5G=o4yH9QWVFMacCCK-ei0)h2k%6csnQ1%Cz4m(^elZy({
zpx8q2i#kJns2)$WT==_b*sx12t>Ox?Iup;y13k9{st76pf=18q6{QSka<0`we%t%-
z(#~@!$B3u2z|hv03ZZl-4^C+Hp0b1Bz&PutE1GC0N%q3NDY+!(rP+3idELY$59(Wr
zg4c7%4CdCJZ#EoqKG8il`M1P3$QkN<?GUeT+1SI>Br>!4UKPz73P8i)zEc+2_qXk*
z|CsOS|82{js}^A+^>;W8qN`8Qor!Av^5o^V_+Hh(I>!)6J}j4mdhF;&7oe!ovmfal
zpEk2&xH>kAcN3o!(Hf(44|en#Ms1?~Y=K~CfaUp*M$Nx!6A>R5LmuTk*%_WBy812L
z<<_n8u0_z|x@<=O{2Yy3G0;<<{qth+hq*pW53tc0&{6kT0vgoD*m6%o35>1KMD`r8
z7wxleso6;e)-CA>Z91)5{lgpR^m=*Y4wO2f4eNNK`K6zC+c+MpXfKYuHz~zltZ<{8
z4XPW~!)=mJg$73kJXUn}SIQS%d8%=jsQDe0^`|3tL#d?a5$O7193u`1I-|~maHvZg
zt_kqK*u3rts4l)1As%U)sAPIAsSCG6CG58eHE2ydWdseDCrWCcqg`s2!Ulf+)<Vi*
zd6gyLS6I;2R+qG|mlS~ufc99%zw(HLvr2c)7rgtj_DlWIA-76uu7*g^rFe9I0|M8F
zvw}IZL=6#W0$iI{Tg!r;G(FV%P+k2#TG$Pe&o$H*e*pcUr!0w6rOhHnC73$jmP1L|
zv72{4{PSSHQ!zk`wRDekD{r>BA*NMaYumn)*HFJ9^t&exq?T}<fYwu$NB2cS+uM8A
z5+Te94+~qp(4}nxtx-@?a`l5aTznlIKpP1_!zX}vHVvg!r$4&U78*sr9o(<)<nG?5
zvh*nn<hKIT5)2?cdS_O+d)0X2g8t&TiwtGXeel&~NI3vU;-Qt5-dk`;`1|w+v`5bb
zOmoSaudn>2`d;<6mP_u$V6@QwQ_wv@QT3f~lRqIC?T}7p2HIJYLYtKAhiiirm&YDa
z+LBnrMF>3?P*2fJh=E>He+@<xe;o*S!uSBn<a{2~j}kY2s+9rx*XS$^a2#FeR}cWl
zZ%cTC1N8nmP^<kWGD2pgQSjKrzh~=xoioX@P5k05AJUcjp<0*Wxxq4a@BZ*Dx<^P=
z3nOVs?4Drv+sMDU@$tv%5?LO!iVrDrtv{fv5IsM(Sr=|XVISk$nzPnksh2wroWUj>
zCutXy5jv*@@3%p-fDUW8PWR+KB|F8~=0~d(ek@ozc?AVBARC`XFPJRT+|%DraBa^}
zQR3cP03BqzpzKkVHHa+R3{ccBCb~g8%LHT+|EBSFLYq!2=tsJ6(Y6p)U4QY~Y~UxW
zz|Z#`ppEfxvQ7%%?^Gz_a@0vH25ZF6>)RX=pkNy$4G$PpOW{1B&!>2t@k0L?_{f@y
z*<s7KT;ZMzGgQj0;o8AJN4@3&jPhr8Bo&uI@9%u1%?~kL4U-u75?VR?;0i|sL>oTe
zgAL1BVtIg>XHE*O3i?{w`~hH&N0c;}VobdPw4IeQnCl9Se*0fpR=UfLHpj|0jqR^r
z?rABva^qF7%-m+4VLT#;{Qy|vVi`b=i@B~f;%6t$o1sqBGzCTn#cNMwV^sFVw^M-A
zWWY$ukZyXiP4acUth~JFt6SjyN~2Qy>rcz&$<9G)KfYa@uVdj@e^>zFDvh%PS)G%a
zy^!GIT|~aue>ry?z>{MeaO9|tNg0vYW}S3JIqtxlf6R#6WD8$COb2>hfN0uk`yv~M
z*le}cQMC^oHlw@JXTvuL2Yp18M`1&>Ue)(6k!;`zX7E{t=Ma(AkfRqgk<vcyT~X8Z
zJB8^UU?B%8_FB7d(NHLZk20yAbc9{mGS7P<8NXdkj`b#17cx338=mzTE(F0yYBa%S
z<4&O$(CMo(8B$m^^r5`A=}FW)L?)L@TdM=?%gL0^rBc=}7nAR;ps7s-a)SkE|Io36
zrU`$FI>~P*h7`&fgUW69?k`}7U7XS9X1ZC*tcCGB(Q(u2Ld(a6dmG0qgur0xg*1}d
zUp__Je8U%ba3^q)tE&fUmdhFJU^etS<){r(tYNeJoN1bZM&F*h8@3JAg+1v4KMYtp
z!DE+*vYAxfLOeXdNo*9_hK@FY13nU<OhGR!lt;hOXn6;mG}=B-aj*I5toyTuPfgc1
z>Z3jAfyx-q)Og<^X9B7fSk(Bt)vRpVB~pmy9aLxezUSShlE{0|p%2*|UX8ZWD&OjP
zgW7C9%-MT`?BWc}YeU;3m#~>nRYRrN@F?lvnX1XISQPe%Ys7qDG}wZ=s1z_`43fwj
z-1#MSWb~yRz;Y-R>L5_-R4()R9fsy15O2E1lWdA<+?fD@fbYB1e!Seco&S&3kw1Ww
z0rHWxf6oW{#3}Pvm(WJe!FJ(*PtQ=|!|0b{$S%>s$dK61ppOrdM)&W(i2K4`X=SkY
z_2xn!G?2dnrJ2{_IO{<uL#>nZ&S=*G>e&H71{D#Ep|J|mPR#yI2TtF(4MY>QGn@xr
z-VFb-8Bbh}G$-j4lUIXPz@y*L0c^ekAXYS(+Nk6tE2tZ`nSpkvffuqXnNVD;2eK1a
zDozvaPwwi#FP7b<Xe>1}^4}J}Eq#UjV_eFw^YZ@b=aG`HsOjRvz{Ln?Up_R2U2e;S
zet|EMQZ9`Vd(poH@Pqm?Rnd=Od^4`~9f?qfKSi*8qcJmu-+W`_bU(0HkUbzVTqm!x
zOKRAIx3j3wTwiRnI+p}Kxu6=pHY4!M77hGI-tbL7J8T0{EAc<;9Cz1v*E!UcZ=u~$
QM&L{9vfia)^&5Bp2jeE6qW}N^

literal 9362
zcmeHtcT`hb+vh=4Y>_J#6a>7AAR<L+(!~ZSUAjOlAWc98L;?Y<hzKa4TqyxTdXp|C
z0Sh9agdSP|rG%O&Aw&`qz9;uxGhdlC@2pufe|_uCN>0{EIcM*Ep7JXv!puY;wMk?X
zf*>eEgVPoW!Z*r$ZCDSVV7mz~;BEbt^ZKXZ9UjZ4YD3{|;|&8lUj*4K#C!2|l0#My
zWFKO9TF>%M@;o`{hJ*id(=VcW(D~9o4X>uzUVPH`IDXTcT?J;|>6X<M8#Cn;!_v1L
zZ`n~eR(|+^#^I-Kc=J`W_qX<(yKjHO+iI=GmDlUeU|c<3pD1}a9II@YG&jL!XT)(T
zj7yEHq$$(hBgK2JO?j7&xH6N!1u^HYjj2<T5#&Tp@GKvK92eSl2|>2RpAJ)~9v8y1
zX7YQl8pLK9CuJo#VVW^d^_aaEeWqJvi@$Q%q9eZ_y;MMZAK!-TNJ!uC^KSY}lWhNY
zb@ABa-)<>xUAp_Rz^-hOObbzC(uzYlvo*_;Ndi}ukwb=OwvDdayvuFn_pjJDSy@u}
zm4(*N+h5@DK4bj-r7n?9!N1O=1TQpKcb$E@`*n2mR{XEeqW4wyBk}QYn&Hmra>fSz
zx-*fxrV~Ajru|tJB&Ym`n}tP;)*_8fk`4Jb#l6)OToRl4QBb$wj#g1yn~7l%?lMY3
zM=KzN_`PG$yVf{#xfQJ(vT~<!?51&&svJ|L7{8R5Ws;JYmv=bDw@sZz3tdeLc*HwN
zT<Xf3*ycA<rnrJ{Notg~R_9}^35C#H77NqU+dC7jNi|bVdQna>^VAZz(Gn*$OQ#kr
z(<v0kY)Yxg@$YL<dybt(b7pLMIy#;+gKBDO7CT}>ELWF_p|`TXy;9Ogulx|EhoEE5
z%U7Rf4*A9;CMH_i+2zuSx@a1niQ}?J^&VgUI+|Bl*h38E(y;_r+Nt*CqIyZrn8a#(
zU&+;=!k`wJ>?xSDX!}#-#wXwP7P;|s?8y8;MXNexs5|!p`Q6R2q0I_)qshM1k|uHA
zs-auwsk2Fmi9@jm&nNq~IR^h~q&5nphbRkDCdpGK>JvMv0_oQhnw^JIS65sEK5Ud;
ztPQz%F-cZd)>l-`+pqt6uUCI*BRO=HQ%x_f=VAiBsgT}@Y2JQkBsKO@-f_k$l*7Qv
zXHeKWj9k-sCE{?I24%=tjXX|Rswl2rTDqNJl1<iT4vn>G%ogwupPeNY2l)H@7ZnzM
z!!NYRQa?&?-wxt~n0)oclqEMew;QzjRl@n~F6z>tPr#{1TW;3>Zd7mx2&nS(^z_X*
z8+A+8x?swe%I~;pik-PY%}j8bsh|#2c#^|)7GLvy+koh6#37oLA(sTlN#6J%h%_hv
zy2_jX5QHhL0rvZ5^o`I}_J}XKHejzje$k@pdVeWa-t)(&2<mipY8yv0#YEGvsI07v
zSTQ&_=xAm2!qdxZ-rot<C2ssSbx1vJ_SaV>;=5N$u1o5kK|!@~-LlC|;z0#Ls~o1_
zoqjrn7~qNv%*xNt_Z3yWzPnwkZN6H2mz;e(o2f~w8{7Z<F~nAN7h#n{tF5IGYDq)<
z)m+ZH-wYBuKw@Q7KtM|x+1vcpiJ$P}iR@zc1ygqpi{atn(FsAoXy6w-l=LmHy4r5+
zbChOIt0rqI!*`X&4l3#$4mW1LG?HTch*a?S{B%#EvU@DGj&9;LLU4>N_Zn2Svb4-8
zEiEO|u#6rX757d_D;pbG@tD~Un-#h*`rvygByVz!RjgmPx&Fk~i%nxUy@u=5tDJO<
zjg48%`qe^+EVBdp(ORP<T47O<Jae_g*2v1rs(SED?BT<QS;5+z6C`vjoH+w>jiG_<
z$};wFb32}+&Nph{vTGF5O`k~)NW}$C?lHz`*+rZ_$zU)rE5Djlu6)`62V$`C@?mKD
z9&JoH_h-27RENGqPaq{Fd%LNYdH;3mii(Pvxw$#I{{WmkC2;ap%~-T1Z(jZZ0kd%B
zsA`K4G3Js&=KA{KHMO<AtLhZL9}&{xH$Er%5bV&)EjH!X`;W<8teksROg}MR%hi@L
z`s*!mwoBW(!1gr^&sDLBKP>k0uF-7=&bqa}lw)z3^~FkU$4|v7V_AOW8y`_v!pF*{
zUriFlFJx`RI|qF5jF;lrMRORzc?&A)5{we&Q8Sa5@7F3<m4nASwyEQn20ZQSL+}ua
zFeocW$3i#dJQ#%A(p*2MsLR)`Y8c~5MP2jq@?t^7@M{p*wpm!dJI^YAu`88pNz`E%
z$k$Bmuc)jP?_`KS4kpz%eTvxb53$B%4GTyFo5AI|uX6y2UsHwz;j-PkvT{pHEnp>{
zOJZ4Fsl9AkeR0Hg=_NLHWMxv#AFcosBfR+jIQ89Fc@Wb(1v8U-SV4iLR=;e_p{K4|
zDvP|3gaT+PoqXe-4vZ)-E9-2G*23dxUGANOafWiXZ%=HOGBP{%syl(Oc+e3FKp?4x
zf(u%FEr>O^+7xXS7+5V|zj6!9rKcuP0y!bXL7)0UQSWzprdq!q1dos&Z#%G9JHjy$
zMhD-lCsy9?9%0aq`c0Xo+#YbZuf6R>Ee{yM+TbX;1VTtVg+I(<w0d7O<;P?CWRj0Z
zZ-Jft+e>%fXiJ<4oUb6wly{jZ;kF=8`1#f&4JSIVLe{xcGc&Q2KrA<aJzpij#Uf!J
zHxtA75XA;1UeEjEKW|RU?V7-%k+1`2LM7^UV8SlsS{{<feOCqj0qRt4e!gtC|9zpz
z#&{#Cp3crI+UMRwB6fFlytX{-qJ2(JDB=M;2L=WT^kr<lybA3vUVPE)3_Av}3Xtdn
zgM)?ejiX~qrPrW!x#>yhFp^?FeG(;#f=6uNl2ZjI9%QDcpWL}~C!Vs=A3(;w2!tQG
zbdR?Q`+wN%Ye$Nm@b+qCzc>+5(MT38YYn2<m#*j7P9@heBGD@+eJ8(~ySTWR32#PD
z7;ZY!0JW-pyg7~?MVsl#KWO;tjsvWKo}A`B97RSb;*bbxZsyTpp@=W^y7Uw@Yt?Hs
zxlBBBU*=nsq>M;Z3temW=%ycRLhy(}gqK+XlYfLckt{pl)m}ym*A5M3suS0hOBdKz
zoGY$dc!I+&*`Y*LjYhajRsOtk)0PUwO41$rAM3qf$RD3#`FqQ{cFda40&!Zz3#v&K
z;+dDO^9MaQIQ`1#Gv?{N64cx>7iS~)v2Q)Jr5Y%%JAO}KaB7Ei!=bM#2mk)5Lu|cP
z_N4I&-b8Tja>LK>A1nN(EqHMa9i$!Ff%45CpN5uWbXYl(GB3`#H${u_rV80RGc#jh
zV`GyuyZ+#=NSRkgd6}7wnD~1=-Q77E8K-hBTVO|0XyZYli1ZMjQ*h1U>OWCMCMG7H
zoZj!@<5LAgg@yBQcb6FuNN;wwh=p)DI^~JyEDd6oClUm(DQQn7baevQbH(ZD=|n_e
zNvdFG#sej$VF?wpi(gPHO^K+bloPogNgH2_*|!4qycfFm-tjYQ5VP3d+W$F%|4Tss
zYxh6q`00;M?R2ddFJ3&Xxdx5l$gVg_;OipMcmv7(Bg|9v<a^_6!jE6?AX6EK)<vAn
zfJ=A=kAjff{~XXBMBTm)xAG~PK&+*;wG<_pv3uQg_3EP%)RmIHwBl`V?r06u=6|rU
zx+Ii#Lz_CZf$*AZ@K=qLtypr}rz=Mr$9_Sw#J04yzA(vtaW0crCM1PqX1vVI&7p*3
z8cAJ+DuM}lypyi_Z0ReyfG_$iQ}V!5uV*IN0@$d16P`w)rdlTj-@a*=xT{GShm6wa
z_Fu2ep(Mm7)!P=IDxsay?pwcvp%NQ&T&aqcdL`tu%hZb;M`0&^sE7!!EdFcrPuAeX
zC?A(p&&`wo$f1Wmf*=PEwj<dVG8I)-vO*DS14|GjKH2S=aOIs}R~&D=UuR$HY*<Vm
z#>~nYT0le{d$r|OKmUT3DS;+D&(AA*fleK53MHtm!i`$>H1-+1Amj1r{kPieV$A;_
z(j_03Ni2ul#Gg#`8JVjlFA3X*1<dumHqSWAsBKTEUvV+)l*vv`2bido<09~hu5~8E
z{6#`Sc#XH277=1Muc)XJ>I;FE4?u1z^k@7B)kD_25}cct*MfO)k8%C}9W9+HPk?$`
zSR#6P1qE{fBVV15VR7QNVZsVd1%dR*X1bQku{|nkYMwLQxz+U5rK)<v0pGtc?4|kt
z+Y-1DFqvJ9#oK`ad%!14?2n^2Y@D2m3?$P5`p=qgvbM3w2DY$cp1%W^ksu}}cAsEf
z;zg;ftPB~nh77Ph(mT7@utqCz!I_5$WBs6I)3&1#<ZZE@`WKy`rMdU-Y!T$#*_-$l
z6mlYBUju^d{_nEceIqQz7q|=QQrjA&VcP+pFrvon5yPM#nm|~4NTk{C;SyV26k+;y
z!$>`l=h!zYp1p2!eI-0NNua0D9vs_^Ael#e!hmW(ePIBQpXxlXV732wyQojyw%+Ry
zy9I6pC7-%qXUTWQqA=WLN=5MUEyGwEogjxGTdjtX)lmW6b{GYtER|!#>sIA%9qDH4
z`H{5v3DgZcyH@~Ond)A^j_@Y@2qHj9i<YJhRGjbW>AA168A0@)>ZI}kSID%GF$CCE
z-8DNivzU+O98PXVkVBWT>)%oSpxe~5tiGjas&(JxX%FMtYmI~XkllL&`RgzY4;5wQ
zoVq#(DALud2-5JnnJqt+dm(!Urr&EQowB1>3qkg7ThQV6c6aZHkjCxqg)H5BbYcDP
zqFQQaDtA#@o$?`305IIi;ZyB4Xl#XsrshGz65AsI8WNxQct;c+jgF3fJBc8pk3XQT
z;Up)9T^mk?Z~cbd-#c9CGZJDDDJ2wfip9M@!RG3Ow?`UF3O%Q>Uypd}&GfHtWRc1-
z*AynbMgwusEK2+5(u#Zf`*Zy?#HL&{DC2=RVEb$E4n#VSI<3RJT9yQGfJO5TvZIao
z)Aoq!q57qnz~QtZZi#Kd$Y5rDY7opFa&c(YwagAuk)qo0`it|i@ZdcHAJwz3tBSH}
z^rrhSKk*OA{avLeDRfzM?}HHzHNYN^VWbsre~_3c!uj2#yVVPCBz2*j?{?e6+qz$_
zl>z*aSoFUaOC#)zT1pwH;~QrCrX6_xILkD(=<>%$?vU`|idkzyorCvjYZ~><uFsTi
zXw;~;Tp8TQLwHfU=2x^kr~TY?wIU7w8dOO!5%vlTs`T7lWmBTv_l-%H6OUmAvh>6R
zhw1{$ps5Ll9D`hqsUwD&YD~Xz=ump~6f}v%q@+`Owjf~^FVz|VZS^rD+3L|K2se}A
z^rf{`ebJ5l$c=ZcY>^v4o<Vea$(A)pK!;QVkou5_Lc(HSs5L0LwsoHoc6<Y(j{oi3
z9s}j>iAS%VwJqaA%t{y5-{Gz-*GwjQ!qRIIyLQ?*ybc$~94hFCh_egiUx_dcJ_%^{
z3nvITvWVvGxl6>g$cg4wwp2m2FJ<PbQd>KyB@=<TT}N!wTvM^C|Kp!pm_;|QfpSAx
zo1%DM6I~E**qqaX2%>l+P*6_+O>h9li$bB`kOdG3po)qABgg9a#MQiq!v0PWX`isG
zCAP(as1dfHGJ=GC7)SkFC+v{6x<b*d4lTATJDbXxa}~fIg2Z+lR=dmr;ingb8)Ybh
z%Y<UyN$qR=-2dlP$G<#>*~eKI+Gk!@&4=+X2<$<S4GnyrB2j1kXL7S29sN5E>x%jK
zk+AoAJgRfzzscqg+b~k$#q7_Y&l;!dID)VuICF&$l*PO2-Vq2+Jequ8P$y@8u*#E%
z-yLDO4@!$Hu45630Z@awLGxwx7G7j7Cn^Twq>1#CXthJorx`1;x9GyN{)d*ZIpH++
ztu_=(14ltYzue?o`=|o7{uJ>xYHaE7XKYSA<m#-D8x(5HLbG&FUtgc+vsU?9qgcNI
z_iT6SP_>?X&<Ws2B2kB589l1;eg@(A?9WpLO^5!1W?fKFE<W}QdUQ@+-X@nq$iRoC
zCV#ZFv|zkQAdyVJa>X4@oEkO$OHq#pKY$tFo<Zr*L+AH}IN4ZRFR|%=rkF4TF_-w-
zoR1~yh7x$9p}Bd-?8?FOFAZWL*ML^;>MrHCu(HYoRRnm)Lx2ibO8x?#X>V`OgPX?2
zQ5qT=@qc4a1Hh*61SJdLZhm2*m8WO^u~%QyiW$^eng<Ap_X#F{0Kvs@j4<?XYK+A$
zQ&D5TpV8V&eP-egjMF6<8CTm$e^(imd)>Xgy*`7W{OpKq#H5J#-FyJOj3-R-N-%KF
z3Xmew<V7H#xA!TH#+mBa#b__tnh6U4-IS#U#3P8=n+?$3*8gkse_Dg|U6G&1euWTc
zsno5(_`i9>b{^l&wmq`z_XJge$G_|9ss_IoQ7RX-h`>-!XP7S&&_cYrzJ+B^Kx@U!
zvuk`F-mKqhp)7)O8F|XXqz_B2l|5p!?=@a23GqqbQU#?*?dl|2pwhLkUxK*bok6*;
zq1Mc<hqxTfu=P&h9;ZB6(s+wHXM?UX1fp@-i=;>s$Sg;(G|7?;K#i~TH@KAbw--hF
z7UlS;QIesTbT|nB(;^Swf9)!|<#R_G2Y#T3K48H1A^B-|DH~os_R8oG`x;THPO*2>
zRb7+?A=QT?W-fyp13xAHk2TOo`2Mx|-><>l6Z|V*4#c>z7N={N!$A|tn-|idM9SP<
zcW1EDYXE!}@!+3&zz3%0t46lY@V-;;NRxMi&Zt4FqXYkK(_vpPgti3I?$?x&{(c$5
zmTP4TS_(NX#(_BD7XN9xj6R>Lx8B9?+m(V!+C~n{VJmItbbXGtNlbp7JB8m_idwVz
z=WuwkHgVQ}0}C|v=aNxkn%4E4c^@`DS>{64T9wW;P0$+`?+OO*D`$Lg@Km(4va*Z0
z@#P6tw7a|eL1|mIF2_A;kCIe;#a1gjJG<g}4Ug_ajyD^3p4~217iXd&(~T{ws|#)?
z?bgQlnS0%j2_8Sd@xE_)xQ8;0+dS1cP<XLw283CXKgls$Up(+Mv}q0Q@39~hFln%4
zwt=Js+U!3sk}UEz!2pn@;R(`QZ^n*-%1Z0P!on8kW3clEKq?4O^Yin(Z;FacV0~o=
zm|rC03=KDNT<@6ut>_h2dXq(FYCzA+%gLG2HZ|Ma-P6NUWG`f!^eoK}GSyd(%tsg;
z*>yo#q%Y1JL7rHrsU#nBIcF|*61e)NdV&9c5l;kQ?4X!p;z?;sxh$Ux7903rknCn8
z)H#im-Xh0Z9$@7WxD?HRJeXdGTUzKn4dq<Rb7V64oKzfdq7@ZZ&CaE6ReCly3CCVN
zg?bNNr7v1c)AGWF14KIPe1QW25`(@5I|iyrysq+S%O0Vb8ju%3Tc%+jX|5RxrhlX6
zX5&i5GcKJ^koUK7^nbzF9X<{wqaR4^W$>}7&hndDa1RTcj!OzV-FbZxXbvbYL8EsC
zhP<lC*R((Xxkt@A+0)&<1b$t=GNC{Q!_gCTN9cm80iXA{+QvNp_@^7FygMi*Iro(>
ze^@IPFm$u`>W;a;u10sb>d^Ph9^Kl^dl&QldX)G1yRqo52OGB+z$p_PZbg7E2))}D
zi^W41<b8M{%SdJ*;e+Hfm~eMG#B~yu_HH5o7b|S~vXP?#N?b#28UQZyQofM!=lXx!
z1VJ?Xz^Y*gm{!mP0W#!VS54Byl56}uu3zt7obFNy<pvvef(q-44w`sj^GGLu!r@^{
z0Cp>-n%y}<urOi`gg)u0=Q0#H;DVIHRC%rm&zuGDw-l(WJ2XDXv?+EfO!BTVjEai#
z@bpwl{MlY!UY=7@Vh$4G1z%rZ>Y^D<;Ux_b&8e(Z1-p@0EseW#<pjFkf7Y5gIKu4(
z34k;-G^cvKubo07L)OU0H7{yt$2GsJrPj29XGG@tigFI`em<KNywdxYa=80$5%IeQ
z^X_6*@s2n=GxbUrnLLjR<pwfgZTg_+fRENl2JK!x>01r>VPAQEZtnq9AD7LA2pK}D
z4UK|*=6<|K9HNU#U{ift6BGh+E%VY^fxA!vg517X<xQq6DpD1~=ab$h`?4sytGQ94
zY98G=<|4Ww!PEfa?fHSs{Gu9<)M9v$OhXp78+Lw<67?Srq%<?JDcGfc`?70MXQTJ_
zd!j~YY$S}v2GPXY-@gKgY{jMbYk+O#=jIy1h26M_+3NTA%uc|}j{k?5mHoTe69Gs`
zMpm|!!}V7dk;@x#84ev8d3*Uj&nIqaIhPT^MIYJKr9yJZ0HI^5-!;|h{P{=`5fMu?
zT4B1OaO$~%<c^porn=lycI#!)OYTI0HsN2<2(ng+cQ1gML6G-2KH%QM!Yx?pw<9#)
zAhF?JTC}vS%;S{B@i@~wxTK)=6ciW%`n6F_>bbXW^J4uf$MoYPl<erh-hqP4M5`Qr
z$JCGhREw%r?ggXU|Im|mGHQL|n%@iu(X@>dl?|aBvW6%+uG$vwA&D!m_ovSm)tbOT
zx~l3qUUb2YpnQT_eydF;u6f)<*Gv|0b2d1fGY~pt3f~!9X2M6+1{`I&j@}kmPT3y3
z3&bP<B9Y)tg~fP05|k)vk_dGGi?$QQ_3rj|#WWRQgOkM6;;gJJrx-JBVyoBaK9sX{
zWc4PM_CfBAq}uq2!O$n~e>6s__zY_W;<AmTGA1Xl8K-FUU<&S+Ui&7J;@4>iwC~YN
zxr<rg7Mb&0Rfg@lJvzbfz}(FP{_NiPWG5(c5nyM#9Xo&cMdv9&?KeEA>6+qiUF=#S
z;Bf|WnP<^yFOSFl9T_p=Vl$jf=TOviOz27mj{y>~RNopdYZfGpOyH3Q=-(fNC3%?z
zb$<bi2A`y3qjYkbRlc=5cy_Q*v2S=*8o*#u6@ejlP-vqgW;&DS`mG6-B&-(TDDF%u
zxjL|L@~|agFa$C`e13>C?TMC=!p`gR9Nwtx!(X8t7xkC9UW~cfew#L2D8ZT1x39jH
zsk87rW-4fejax4Je0R!cBorJ>Ke$0)=J!|(sjzC;eh0}Vl;?R|`<9pqPGZT`CXdOl
zubwoGy&guNQw4!+Z`+gE#(lsp*Zwc!Z}cDF3w|dN!ai=G-Qy|4#IU>jcf~YS-1vSH
z?wfGP#$oaxk;Fi&vC)^nmbdAy27|CSNw`gOZ2+_oEoGee#`#z-+-(6M->OZWe0$JK
zM8hu!*szH%$1gvB-QH~*6wN*XGXcMIIE3xRyY)eW-Ph#DyLSQ49PSdX|9u8-lc*n{
zcxGy+K2`A^I!?yS7Q$-U@JgnLNVzvz0}pKg17)v=OfCdzpnt}LPk-&2Ejy|KO?-hg
z_wTjK%g^tEbdwulGWv-j)=)}l3<mF}5T0ysbL{gxUB;Q`%5#6kgie8djkhj#`Zn9x
zu<t;_iRZHsIg~(la9SOWjpd@QQXEnx6wv?=z}EEu!kwrYP{f<h{w-Vfui3Kq^4S>i
zLSA_1TNlpwJDoZ6PzPALXIrxRK#hMss7)xTwb5JF?mqqjV7HuOjb)iDv5h0v&08ad
zx}W!8b<#U>c*Z!Opi|AxofwBS=U<)%AZCv4`KJtsEBH_{k1i(X?2f?0@QlgnqLY{I
F{Tm0)e`Wvx

diff --git a/reference/Rplot012.png b/reference/Rplot012.png
index 21c3a434fffba306efdfcc7cf4c5f019d881e515..60203d382a56740b107364f928884b95cf08f8ab 100644
GIT binary patch
literal 20243
zcmd_S1yojHw=TLs1r($^1(i@rrKCY5L_m~oq#GnfN<}(E6cnTtkOt{)L<FRyTS{7*
zk2rJv|2}u0eeOPIpEJ(gcib_qW2o@uTJL)2oX>ooXRhD}%5oPk&|W|g<f4MS%tHjh
znnM5L;lLx_{k8AlKb*&kax(Bg{5iN&<qQ9vca+z5Mi6{b^e<NLxX%%STtXCNq|`h<
zu8cqZNVan<u`zhxoORe##qGBLIW@`K*T^Zdv3;Z@)y`_mRO_fV;CpKwmyV<kj5PhK
zGAxNnU8MRncEM7rWrWGgCc88<=wk?O)tElz(B<JP(LWaU+TxZ1I!i=`j|(<D#Tmt~
zI9E#~b(`MIH@z9J>Q9U<BO}wFt~ShYiG@X&<c42xP|y`4q%6u&h@gp=I9MjGX3Z>C
zKj0#rK(TcG!>T`7*&EY=Or=k&WMtT|aUAJxD&1OhO2?uKmbo;W?Ww&=N|J!bH_RXu
z#id;&<3<$}Bv0yt&C0^^CVBkaMjXG*M$Ni6k$4gj8JlwR$uVa2Y03jUiQ^@eo(gA+
zk1o9m9*Ze~Gs+kPw_!7ngSprnR=rn#&(A;p{Vht!aSEAuy1?MIATlWxNXW2JHF?aP
zS7XT+Vv+b1CnM4GT1ZHUV;h5e{rX<Uss%4~GgsNzi?K1ik5A`6c<hb4$8+}Wle=U&
z@w58Zd+&`0R;^Xy$CzEU^Bu2rEng|>m`Oi}jrIHY?@PpZ2(nhOz(^f{)x^tdRF81#
z6tmC0$GJ%B9};o_<HSz>!k9WpHVx@@$iCkuFXO^usfnehs~Z|j#`gH&?_6efcGJh(
z&NDAov$FG~FA+;VeR{k0@Xz&?;jg%T=}KQ0<XA|KPWI~B-~m;A{qRDQwp7D9pP^Da
zIsw}uzrTN<98DAX*3Wmwuez>PZz+4hLJSpKkr6VA27T=or!#4bP#PWNc$A(DKMA=k
z5})jr)fsnvysZ=y?A;b;uXiKeDm5pEAVI{v6<&|8u5_{u7m&baFs~)$PT-1Fwq}0o
zfTrQa{6TzVe|+61&`~Jt0lWVxrtY-KxmzsuugH?j<at4#m(kX`X2P;8sbm3`a)18(
zk@4}V&CJWQznPz&E{hQR)J-P3?Qa-kNuI^VV)iG7qoJ_*l~cH|K2oAsuE$LhF1u<~
zx8K6ktjJSiT81lm_GLqPX{E~&%gOP&FWag`4o}L1Z;2WP2HXf<AK$7~G^-Nndflnd
zcc+%a8lwhmr(fC@!SAkXvfAxgqMM`z7HqX`@_5a?rH#q=qsxK&q_^hLqMU?vZ{2&?
zO`&kcBatr~l95X+QSu{p@9e{1o5s2AoF7`)ntn+nUQgt^e@D;fV9sMEm~BPH1GdqN
z?uD-s<5-f$#>~jnx2Vgz#c$q_VkRr|E=x#AtVMqsTrN3PTbycmiTG7li(=Grjj4y~
ze0|5*I?@<~UGVfPU7j0L?-q9@h?H6C-H^ZxcfXE}4cwe<W1Eze`ylQu?6Va=DT()7
zzsk*ceWHe1)T2Pmw<+La`O)7F)dvrdCSJ#$yHqLg*|Ue?pGP%5ghd4{%Ji<~y;z&9
zlQ`M)J*7ele2zUo`W!ByApo0vY7av~fHS@6fgl3|1Bl;?7cVGF)Ya6^#&(>mn<Ua7
zj4zph)i91ruQ4z)GyCrPCj9#Dyirf;U60vtLC2i|O%wRpu|m%Z)03^q16$q*v%9KQ
z>vek#7N0!?J9!#2y45Ygl;rjI{NeV}8Ku6B*t(;0zDKi6(ZBlmE>1fR`Hbyj#_yM^
zSKfe#mme93%CD}b&#ybFWWWwEh6t)J;{3g^V6rk)=&?T?XdK7dIL&L`^)dK*e)Y|@
zM^4W0<m`w|ehXX_OT%)tM~`00F+ROAH`z81Po#!&H>O33hsa-fVZ<Ahbo85zi&ir%
zZ`tE_lpL?=H{vil!MyfKa<;AdGelFHZA@*mkrEL$`8B^18G~hr2?Nn}RqA`7tsVT~
zmPL9FzuSt|k9a|%7&B(_3)7IkBIum6?B2Cg2L~x%S-s}>Y<uxJe2>&i9A-8)T#1v-
z$jwOKqcd^8Hl%!7LMZTFNiX()A%lI3W|JRD5|gU&JatDmD_xfZZgq>2-M)Rhd?w_&
zWBb+Ep`<I(+OUppD??aG-GN`bgz;fdTW^-rR_#qZb84Z`G=fZqhx5`3BjGe7^CLlo
z3X&JAu-l5I%HDyOR*~s>NVPcdR;#}B>GXK}d)mtlxJ=Cv3?i?iqhCU7Ql-g7M#Lvs
z>+)NmdmH=ir$cr*$l<xE`rc@s6*l1Y(`6^WAf@`&|MVF0f|&84q>Kz#)1#m8D$)%y
zUJ{b1vjj#gEG*}#>(PgJ|0U;>k&r0VBg!VHC&$z`O@q9hpTmN*ul3%zN*bK3nQsuW
z>@UrX=29;E>(M)3nc-1~$y%$?>f_x}RbAcDKgTI1Dzotg^c}E8AD(=&SG*s`*IxVK
z;^)CNY%RR!nugvKcLE5cl$8m&%crobPfsw2jz!>M(&+({=;_fGUSLyZZtlAxXR~K|
z&-T{Bt4yMdsg-;*Za#v|*`#feFjuZ(Uq%OeQXzEoyXmp*P?-Z$01;DSQKvU%SE`Ti
z_uSlYpXbh>0n_-wU%wiQIH?1AehU^}Y%1^-6d4dF;;ZIhXJ?o9=w8}c9yEdL@U646
z<&#46N|iptc<hjGuusIcgD-|IfPm%&<bWdxJ@+w{<X`>$Qz6&$B<=0F)9-(HQCV3T
z_6zeTJD=D52Q|8j;ko)+Z_Go7eFyklp0(32rFO#NNjzx+@z?t%t-AXQN4jOYTN2zS
zf?){;RL98_s_>@_PY(yRN^NN-ytb4ed*&F_(4HPGNRR}}IPPyu7uWTS>5Z1!-GPjO
zb!oZe*1J_FyV25%5(n)nu)kMNC!l~)4jdkBb&vjzw$LqmmqoOY_{{#hnSsxN*%*Ym
zQy)td-tPJ&Q(318R>Gp>kcUo|H=`w9C7pdaR;0v<#~59S<R!nT%W^X<RE9Ekc3cJ?
z)8{z#%88K`@s;r^s_`oKGNw96QclMknB$>xr^~-`bpwwvdyp5Ih(tI1#C*TM<#;dp
z^rp47^#cu!faUx;@wA;7F5Q4ZgJ&1zBIp~G1jqf`quDaX(!<M4W=}IlOTU<ku<LgG
zb3rzyn`Z5MrLE*E@SX4>kDZV082FvOe&f}vS8(m1oK)t8nsvkkM=J{}5HN~r*$x-A
z7$^_AZo=A!^!7e1^w@k1uNp0Lpt>v<LH_jV)5nmjQlT=T=a20N`R(yoxf2Wdg<wdA
zqpqa6m;H(1dmc~KKW8Dv!(;Y`j91~Y(SZAkSbBSPRCBSC`vN|Gi@y8#Rq2%1`uVA;
z()Zu<N_o^6q%2qN|BhB6jaUvBoFE3cKz0U)fH+>j&U)9)3vyC3qyo~eQGhUdOcT%6
z#o(}dEY(E!#+*~#*C(V0T~#$SSpA7-dgPcW>Q0Z>TL77`{Qdj4dE9-{ZZJfKWu~m|
zICt?^Zag~|7X>~gXTd^el7yk?-*1;6_kL1HEhu<U{rCIz$DMKfT=q66M+duyOy1j3
zKV9|Vm_7H_xF&ostNtcRzaogG-=}l<?0!uOR!$HOhHV*wexDoDuYAMFPo1q@LbC)A
zt8{|7a*>QPQ0>lR5J{P|p7JF`hMoLgRX09!Gi(RW-L>)SDDo(Lx@G?CaH8f}3lzZU
zJT`w~b#-<0oH$~wR^WnDQt7)y5laV2Ub<9mkYD4V6LYoNz@f2Lz+l}H&;|u;_>$xO
zwW@VW_)V$YHYYzE^U-$nLe$aD6F_96`F8q)tE+W3gWNZKjy$Hf4w^Gn)0!8OeC-F@
zf4^szX>yKT8R{Dw^iB0)T{bE5VYTU7*c$HEFDlfHx$1MWl@to6d0v08W!NGq;co>T
ziF4O&wxunp%@K9PVXXYdQm9tYKEnk+kLg!bGFM1R41JGFAel$=D)lAqeZQVR#3S6t
zch||OaH!BE5Fp)Sba5LzVBe$`6+Ogbp1~Fx5SGT<%=bN3yq_qly)stu$ZP%CBw3XF
zmAw2Yc^Qb92h|&m_`9>{f<ppmt6?V%w}JY~LK_~^Epe(xK+T&xJnGb+sVc3mF7k<>
zsi3T-{`r{}*p%_x#;|2)+S!t9pExo|_*9o4{>i@U>RJN1a3<_l7rNTgc+BQM-ZP6I
zE?$P@Aj3;do+cYk8c4)cx~%k`x4|bxIZ0e!O--%1JhyeZO)KUqgrkhHv2o+->zo8F
zUD!;-aF}Z9>cKNJk4XpvTlP0+`%2Fzx9=|Zqy>5t54h^X4ri7*M3l?AHQ{AjT_P%Y
z%+2Xa@y%g0w`S%iA)039;~gj+YIb6VYM!|_?!=STyN|oZdMxLb`4eA!e#2{jqx|4b
zAfeKb^6buI$dW8b&?DvBchxjCEye=Vu8x*UfAXm**UKwk;2;eS0t_1R{rf#*?HE8(
zb&I2A`N#BTo<HPWSFFY~((_MSkM9q(X^n<sK4f*aw!JfTEwdYC&8s^(WIa}ygQ7^P
zTV~(saX_XGc@(fSYl5%K1O5ps`?_N{Ou}LhZgn`FV8~Km#%Ls02dQ|H%KLO0_j)_}
z`Y*qN59WA$Inc<1uyA-bl611ob^`!D1URINf1D*;Y}ib}kS3YaocMj7&(F>AKW)g<
zDfuo=U4vPxa@ykTAZ3iqXs3Je9*r+tMh{8b@ydZbOsC*vP$*BWkkuq@-KZE;v{#es
zROp67jP~vfx?)KJdX>Xtma($>!q6(sM=x_ZN<MVNy1JHF8q&Xxo@2wg#@S80*p7F+
zMh{E2AP$27<2NhOiFp=hW@V9Hy?S-m&1%g2eijn3Di>}>TK{GD0Aj_U`s8rgZB)#2
z+wyNfYF5_0BS6<w=mkPC=Ir6GkBHCw2a9Id!!{Tv$dl0sqqvtxG$QU<)5;PRw7->f
zYFig<8EiVL5!9bgr9U_uGhY4FxzT&~XUd&UVe?PIyT!kECd-q)98%M*_h23t3D7ZV
zz8T=+;i1a-_$1^#zfH_gk(pxjv2YYD`z^m){du)##CQ51Z9?dqA0^1ot}9X84aWG~
zSDy{^*)~C}c)aeFL=a;$`5xT>@DmglM~hsfTKGrXgUjUQ2hB)lyx?Wp@R1I-tXO-!
z;I#}9`!OL*Re@@nY)fZ$PEIobf^)D`1-lkW-U0YL)x;{|2Uk$=gg~qGs1ZXm*x#RA
zTugrM+&Kj4D0-l(ij_YY3ZFXrPSYS5W1x)pJWszWwYHWKUct`Ec^2s(987zZp$r>=
z%Q}1WFkaB175Wx`!3mEu&m|FP&Fb$`>Gyv!C~`xLmVf0^-!cz779tHc+M4f#_fYd$
z5|iHzw)uMFt}5Cyp2dF7>Plwktga3~eI|zJmGlF3ipso<v4vN}`<)IxFN=z9LW5a0
z8V)^Wj`mkp`wBt^VWY*LDIRdK00bD@j+Sywmp^*C-6N-}sY$gbX0M=dUi{#9G%LnS
zK|$gB4y|*A9@@BWbo-u=r98+SKDO3l`{0rv`yQHNrlTobrQPAwR2HOD#QcizuIcPf
zQeLFo-gWi(5B;k>X}AIo6Jd#B&t_l`wY_G()5}OzW;^@>$}PvLR%U{}|GW73&}Zv4
zRApmN@UybA5I*{9i|)jPjX%H7;Zs6K0|;Rjy2uu*jD(m1`#PWF4FL4e$k0pUaT?ar
zQyF+LyXdQo#JVh3@6Uu%i+c%)pX{5U-4_600M*~x+fguhzb~xHL={kHq4mHuw8*!!
z-m?M7M}7N=Y41U0-fSa2Pcx72fg(M$TgXo+vemmIHcEuAMcmh#%bjLd+MeyMG(fZv
zAd9`9@#lYhh~^D)TN?|8i^sR-v~q1Frg*^Pm`k^GD(7pLw3HMU+DF4aHG#EOI((hO
zfGomloB;ZQ4aY)FFe4{%NaC}TZ3yQwR*PNf6fai=)pv6)){ymM>^BJWFo-(FDEYHJ
zmgLU!KN|MxPQBSf-aJW~1eDYzvMwr<riw|{R#kltJ<VCkrlg--I>p~=4?VgQ#rC)R
zRAvc(eL#5*1lgN}PSOSTC6q1P>zaAM$H2eMK_r)_+^QbsX=-W)mQ8p9OVLooi9*De
zI2VfsZLUKm08F+!>vMcK4TsZ=Hp2p@y)`Ff49|294;{w3=eJ2DzY9b%suWck<Wt4!
zJvpD~b7(~`>cKm0Bg_iWy{M?y$63j$c-Uf<vyfBqXi3GF^b9T`d4MrWG3XxEo$j6b
z6Dz3<bO8_{r=kkQI)f9WB5~ZG7iBpFp+O1ho`Nw_PS5vvXZK5&X-4v++^??78aE&d
zRq;R*U+aBu>p3nXu|dA(_WGpZ5wuj~g5xgH`s?uywIs7`kyHW3&HDbX+vT*^uU-4T
zSp48ew2JufZ?!(SZdd#*_mu(bLFhEYvU9twj+i-Y86M40rIwd#0kzOm=3odY3$1Rj
zV8u51kU-IMC>lIib@08eEWC6DgQ*y5c@Rp;RiqN%%2>DAO2=gnVO>&E@)#~Wi-d&X
z5nOVrvT--vu~!N=+DEKJdEmj1Prh@^K#C~D6j%>rvDz`(?X8W^<W;SO#Jg?py{*g}
z&9GixUT*O{-SZ8F=u*|vVn?A82D?_vmvnUt{k+D|B^)9~PPg?5E+`fb)tdn|z+5G;
zY2;{;l-X83`U!R2i3)3}k{gGR-m+W5YrlY6(EcOfxiBV)i4$(YanFtzE;6xayW|H4
z2Qz5N!zE%YUie&zcRfmNRA6A)to_Z^)K8zTtg+-k`fyq;8N3kLcG*RrDnZ!wo|atD
z@BCA>w#1m~lgKrTB5~Gbiz0!@TD<G3<Isk7i@QSTIuu&=q`vKL0qEL%bg=b^`_8G;
z*hIv};-fAZJFAgmtA7wfM@L@6`pnk1P`a+jtm9##*r!t?1Z@?6LW;L14B#OlVd#h$
zMbOqW=D*U1|7<1Up*Mb5_hn?RV4ZmnMBt0x5@DWU!N;6NtS<U;e6)5?qPONlj%#gG
zCzb68@2VzS>1eDie_0lWnlvl%wU_UrG+vv@BXtVy*z4C#ZV{YGw_<z*zw=Lbe-wx{
zrUsA{v1}P<e(Ik_#vO|vk}AX)pUVEzRqVP+$NX~XZ4;YZx(Tw+efHQxMVye_EsAqS
zS7p7uYi1v8c-HI^t&5~s(T>@dc|XEod-CK7G2U5vCLw2M=lBw(=pI)F@uY4ihGgSs
z&`S!7BMWnL(D9lc1#r=njb4mwoAs~_Nv&VlN=Z*|-HZ=?@dDew$yiR18$lx5&gc&^
zL@KGP1F@1^SvjK0aH%R^S6%%Uqwb2Ua{n)n3vsX-*f{?|C;s0r-+%Ci*ChyHU=#cG
z>vy!ZwWCMdbM-1n0e<rXix|7%X1g>G7lpy0h_XJw*a%1sYB5ijvF)s^Yib%AkEa`7
z!HQ&NW?KI8Vqr<0jfz=)kwu%dROP<j3b`mb>l*ag5zv69KmnlXEaSw7Ou&aEL!17d
z*I2sMd&5JNm!PRf%S9g-+4mBcb5&D+m6a8-j9e6S?{05*^6K+c>bvAGG~YVE<H?Y8
zu7~epR#xNOliOLdPb#LKR21D5NS<z8Uy^wx$=BjccP`nIcAH%A^<W)C8BI8=zHASl
zRtWa^tU_g2de(!!u}lM1a!9!E?B3=M=B8U|FO#X-eD_3{ayJ{)RNu1V4!Uf?A1nlz
znNDF|d}ey4Z?A~YWBT6+ho7#i3AFwy|5d2LMpsg_b5yod>XUY)_+#YcLz<gLM4TV(
zt+3_O-O@B+2^yiZREhm!X=Yy!26_rhRY*%>G>E34^UTpHxlr?LuNAXi7uoO<*Fw}#
zU486H2N#0$@d2Nkpc)Sp82N<;J|#KtJ<pm4<maAC)~hlo^(8M?&I%(_n;ygjH~{A9
z2UOK5V$5!@MdvL8g3zYXg>v|3d6~ht(!D~DSBb2_=%*?JY&UgvhDfg6_S)K7aXWUQ
zaSN<ufGs=bLrw_~*x$OX6sqJ7dz@TslH{fS@f|jPH+)V++HR1}wQNnP*mv)ybIT?g
zf#}%S88keD+`D)0HB@$hmQw)l7KgvGy=b^J-<1&WB2Gfmv&o&E<foaV73FyNyFL2G
z)4!&e!nWCli-KdX|M`4`FYdpF^nb7?>(R9EZ*su@r{3_Kwd#ya+si<KWBm9Cdh5+Y
z3v$ZYSPO#o$B{vcT5T%-4n6iiJ)e<IA}3%^le%MjieP)sZr1Y>$l3j=Bt&S+;<F^O
zvV`-_@Yx1_{7A1AGnW~WZbd9j?`*Q=Swk!>l$B;h3qjK{_e8C2?n%Sk6EnV2+v2&c
z1N!x^$kdJ}$&G}%;&FTTk;3aCy*Y#C*M>dEt>a=!#7Roh-N@>t@%E2T!eRzo85)d;
z)2)Q9`<8d4Ro{k<D#`ZoS;ozm6aI93kdvP;cZJkRjZILH3b;^WJowgSVLfh5jn;YC
zlaT-FDgdOWTLB0X&YE?ry5)0{){~i5n%cvD<Rj5IU63Y>z{`kv69&(}lD2Bg%eppZ
z@2-(}YFlfsuHIR$!Wh}6`b>ta<)38ZzhxHxr%U(mQIY?7Z}@5I?x#$@7AMg_am2ZF
zWb_$3l2~B@zlQEls1F|3{`s)D7KPZa*C@&nk4ODkJc;M0uYJ#)e9O?`=KV_ZdhI=7
zLsjx1^6n4mnOcq~i@z3WqsR%2tVLL`&zXlD_`R`qCD9$cr;97EA39>tTtr-&Lz(Ze
z>BYccQLgy!m&X6Iu+TYn^GCt3*xs0lgwO7<MGti87$;D`_y_gQAdsB3iY--b+(Fxu
zuY?o^IE&`GMh=2hZ}%z!<78L#qyNjJ8%{ILzt%254!Dsva7KugngFmCbx7~Fz>;DN
zXG8C2MO2If5@a~hUYoK@;?xVNhqhs3%(>fa%s@)&`IfTpbv8D(>#mStiXLVZ6!2bm
zMe3J#%s(r$n&9J(2L<R%1f*NBb8tu%3lmMp#SCKkLCYiA6M9QWAi8j=axGJ$GB54Z
zr?a(xUPk;uB%PdY6c@a_c$`~ZT^+VJd_QJOW6f#gvw2N`D5HvO$9ZO*5e62y5l+8J
z-&60SLEmG|=%vEGt{5|8Ku1GW?mU%ls}~SRzYetrtbPGh?La)-w9ZaWMttg+qU4)Z
zlboMCNoK!*{oF52I4+$T!UAYZCpBD4yvdOf9YFDNu3q9yoE_2t8q$P85(0UEpMQz0
z2QP5?$xjVFT2xM(%F2H^olJ<(-+pqoabUaC$RxnHe$_3lv{b-OtdEajr;SeuT9<E|
zwKxdSHnQO~Zh9GcdEBcu%IfOm<m6L8gjy}%9v?(ZT?j1KmP<1;zgd+9>3mW`S@THo
zLp<oDjC;+<?>^64c3PLExQnWv(2XT$WoO^ASHZ*TD5Bq^^P3fpF*ExtabuWPSKv?c
zukKF~eJZqtCt2G2&5yMy{ohn}4||^6q8L>vQe~s_w(mOWq3rf`9#JL#+?gnt8e<)u
zoeV%6NC>JSkkHVIfR6wxhWq{dcgIftK`3a$Nj|WJA}s9wo-YR=0Hq`2cxZNWDuB)&
zLAICr+G^!PgFw7$s5|qY5xd3ht9X&x6oyjXYtx^;zMMRf7^ot5>QG@mB>1Ki`&QF1
z;BR+{!h+`Y3;x6km@5~AC687<<m})g)woPAUi=mmjAXyy#bIB{*hO=`Pw-l{cPiPS
zvM(3o$Tp80zmLn|C4y_$+8;&+>C871PFa#~3<_UkPVM1zo!6Z<`YwJovH~Y$TDj`J
zGY7C+zi01HCVuE#`+2^L6uTt-tM|2ze4SLvX%5T(k+AX~t_bI4k+c8R3-I5oGXLS5
z|F_-%`uw-IsqBy!Xt=Vot`Ri(b<EwX_~=+=EW84^`a$2eqWVA>hRLbI==P#Y`YQBW
znOSk00<O}1eC48ynXX@wB3&LItEX1ZidT%=ODc-FDfQi)kj?tDQe&ILpyYh=X4^v)
z?@P!m#7qW5RVq8py7Mq?JPDz2UUd6VkdAKEc_Zetjnj^@9rM3`*YhdKutfFa$0^TJ
zU9|hOq`6Wbt$NDEwi$om*6YduySmsmB8?FXy6q@O>HxC_g|ls~^C2=uLMzc$al{&j
zg;jcaVWm-X8&5;UsCq2>RROk3-1=JVkU>|KmGzJB)*Tsi#i5PtT-dsuC)ZE9%If$0
z2hkI0Pyu>*9JC|48+2pd3Gi`se9w_U$eE|Mzbdk>npTGwT>?s-<+`g{psSxl64}+A
zA(LafP&;y)wk3g(fp*!X_^-aEmEE_mn%K(ZzM91P&&cloZE2LJsUI$XE<i#;!vF53
zA7*boQq$n+xt*OIy8$Ku?qt&6kqO`+K!D?Y@>?EsQ;7y(ct)}eLFj8Md5dLBjnf**
z6iFm;L=3#bb^D4r$}k2IN+zFuW8Ixdh~4tHyDXf{XHgqM66jHgAFy%6z6TwKjvZWO
z#hwd65dWGwSs!?6wn-B`X3pz5ck-iJ`p?gbR7gGG$&{>XASAsKSh_;eQ+N&J)+Ef{
zCE^>pdM1{!4}TwcX|GU};BuTP2d@BXX>iexjL&1g0Nw(f5)&Dj)s|30+t#kiILiD}
z&y47zAv$ZGhlwvx(ktG79hg2GWMgxjmV`t#^fSQ}5EUY6R&Z+lq8w+m26tE`T2t8X
zWxK&aF3P;V=_eOX`wFEje5&n61%S&=9}u}KBXbeeu|P4rn!tp2w!o<2g}_SGEeZ+>
zt*_=v(Mu?o^k*RZ>b891TdX6fZPTb2jdDJ^4mA{1dX89$-n+x4f9Obh&O3nDLulz!
zKxi>&ZT8ihve5ca2Rw&rg9D@s2vgAHhU@b56czCiYBI|-Cf!yRIQEFS=?7mD3`Z~x
zTv4-K*?0i@bN?e1yX;yLl7yeYwedPmNn$pEd<*PJlS|9XBb;`m2B!4_Vg%d}kZC+K
zzm!UCb*<<tL5ykw5^SXSc=ysOk&|Uy0I0Uc8&eHGi{JW|z}jd7^>221f{maCf`2HE
zJ{UW+9wkl`n#iqy$H0Evw8Q7*U|}CKc}j?A)%nyM$8uG<tx5x>XGDzy4P+n)@uLoP
z3>6g>i-Y-0egP^2x6FT_ifC&DLnxF=&>xI|cv~FErfLnNc`11bLCQgo<TY+Q>#{ah
z(Y`cSVlyb9EzYV+*OvVjs~U(Rko2gbKLZW6<n%I2>aW3+JGk^hj`cocB{rIz2G!Je
z@7^s3wxSTc4@f<<S>O;_D0hwKieFK407DIGCIAuPeu6Ls2osdtwfm3zfBkw4qAB86
zHt9q6)x7h?<a(RPdi6{9iKlIOB_?fzqPs&TTIG&l^Z?1F`R`nZ6KH{~c3D{?rU&n3
z?CA3!;%vO-cvRpxEsc`Fd3jwY5EMFwz`F|Ak5LPDLa~D_(E|Nc2pk%bWYa61j088G
z=p8by<xP(bpsJ+to)d}h*BiJE6&OP^-qadSw+WPA6RJj&?8WlLm`y_$7HFnTERCwl
z$j=R`TR<f65@^MoL!b#%SpO7jdEjD49|^|->a648Qbw7&A?#>&GS>SADm?kxUvU6n
z@Dhyqo*tJ^2hcq*G>im=PVgXvx2FjCnI=bs@}nRo(gDwD$s=LWMGySlEQnn)a6uiH
zKF2=ZoM~~a8sFtu1gec3%s{emB?+49AuzBIS65e*4h7BWIXEgP|3SE->!u|BflXJO
zRhzCY?XBUT6V$#0&j*0MyS45c9CQT;h2rCNkYiZr2?e$150~>DZgLGnAM|)2OI;~l
zB}ts2FGD3V9$05lFk^K4<XF*~cPEAqf3+Cx``*#v1TL8ArHrHqUCll|+o6I6A3YtN
z3(3<n6B$W9mF<5&fBw9CQ?AUZ`W{XFpuT&;@wun7NuTa-e<Fo!F#iyzU~=6d+lQD$
zRiyu`h06BI@FO?Dk<VdkxO)2f<CNaaz)u-}Iyzeo+u;63Arg>~N_dz-UKaswaey`9
zGK)1)tIO*1J1It?gYFzw68Jq%>}E*!`x|F`kCzQ042hoU%+@JfW)be;2zhbcbNlSi
zze%btR(UI~K_lUiD^Q<?zBISLUq=hWs~~n+JS^8!6Tga#7XBQ@Zme(Z1{s<9@=qsB
zAcCDFj7yznW#7JgSK^t0rc`$h39RloetdB2K-&)<u_h2#BS6vkq<!)1ODQzVBD6lw
z%|KREiqWoka+Q+DAWV_F;_RTIuh{84uxk;|AgKZ$qgCa`RSGmdM6C8#^9J59bHSUg
zf7IZVZ%kMJE8XJ(j3G!O4T>Ydko043`a%Cd(8m{l-@!{qnC#!;{oD2vYvWZn9yjA<
zW`#^Q1)4yNxgokSuOv<ny5X?idO^CODak;QggnN(#IdT!#ii4P8b>XX&CVBKD_iFi
zgc!iYXZ>px_eY&7^d6}5r<o-H!N(nmYn||Q85ac;o`<jcU|0IZc&@~yn^lLa4GgR2
z6uK2TwcUtpd-?j$5$Bt{W#~EC@3ms|N?XnSb$v>l?z5VRXyoXY5u%&KTg3>$JBzJV
z`1l;~wZg$-9eQ`~o-4H*4S;Rgsx<l4f=K*$yN_&F;}wS?Nw|Z9nKoq%xBkdVXu;!*
z1g?(8H&+!4+}90UU`HfQ?i134r1DiL%B_@Y*LdzU?$z$qgpH_?f1XZGO3znSa;C4Z
z%xii#pCh?)>0SHqnQ2}>EYtpoj=2}aENNzGR<ZJvG1k-tY6A_fsRd;zcvi#1vO0eX
z+a`p}io!qo*pb?>(J_Bs7ABC>t$dzt#Y=ETLif~NZQte%ckH6;=+JEjmBxfKI2Lo*
z%1yj8KJW5ByXZUg42#ml@EArwDWsHaGEB+QD#QlHnXc4fGQyINwoLyrRHE7gb58wA
z@^q^iFmX9-VGuz|{GoO5O`hM2GIclq{%L-bc!a}nHJs=g@TMq92#rz*5JG%a%s|5~
zdq#)r>*$22XKSQ@)bDY6yf-U8mz5R5mgs?v7{!^lO5i=z(gM-{^+w+_`Z|eYo~TdL
zdzj~Ozj4`;rzK;+{}#vBf#pX^*wmh)hZm(P0)?Z1GrPS;h-~xrA`t>cqWAp#j`8My
z7`VehtE!BnwQTS#XW0ExT1wgYu2K+uK8%rUX{$8h!q4JK!(~;$A7=FPAfpOuO@CaM
zFLx;rVEp|2LksyWjJ_S~FWfF=P{Qw^Dn($xOcwpla1sA3_U@LBp598ifz217V?cAC
zO>fyPA-OC&1u|`c!&?Mdui0aijbsduHT2Q`Ucx6AXi{cB{xers@NI0YMQ*rO=d9G%
zzZRfPeQURx`21JIZADUBn<lSfo)%64wh0BWEzS#F=YBd?<$^ct{)e0Apf{V@tCNwL
zgfcE2%dJn^wG3U<nD#wH2=-o~?eI<1Fy&-OftK9e;byQ5%mR=(gRG2{;2$6EyfmhM
zFX+ICA_~y6!TUPW0H!uxlU4%M2Mc~WFiAmaJcrglgBnlcAMbDM(j7cotH4F;!>N}m
zh)h~Fp8SZ>>PU%FOr%1;?9IYBz&EJV#c9MU!+3kKCrF0HEjO(VG5|<49thx%7FdGe
zPv)t+pmv0!hFU08ff7e4-bDVUCJw=GvBvTZC7{Q{^*-Eg_>z$rf+|)ZzgTLVK_3aB
zxLyE$96eB-clYiV>Y8BH1AT~|?frOxa7{@v67OtKj1+v2P%EX9{m$UOQ{~%Lc3|(A
z0FcN8ffp!=&0o3>(|~ql!JY(RjDvV!R?BYK{Nmg{_NfM+g2zIF`-%=+m3os%v4B_j
zRM<!&*uy}599wgqbyHWjEAqOZD)1(FfLt274BN?C27m@4kRP#;^KF;>CB41H&}500
z&o3V`k3kTA{4-gq{P!D0N7(hFhT2!?o+*A3#VrFn-u|nv8^`1%BxdQrP|yk5-xqQK
z@P+DlargH;M1{cZ1K=06{}9mJJj)n~Yv^-u6$I%3zyru-*)Rkl01qxGc#ZJj23Ubo
zz*NUeaCz<JYcp++<DEg&0`trhppA=uS-yTjPC)ieJ#H%CgUNOUd;WeI`6jc1Jpq=3
z5kn5Gm;qA)1RQAZKMgWpv8hW<#fJK*R4cB)A2Tn1a9*pgxcoFIDANusA}Q@(<_`}&
zw;_kOJ3R#p5oDSG<EazOdRaH$?qbiG{F+@_)XVr1muRG;`@=2VmX?-s5IlR}itBkU
zeb%b>xPi(fhr7LsJS_l@qvGT7n|KQV#37RU`V5|6pQO2EJ_YLUxt|-cw<5)MwW3w#
z+yAlmu8=kqTlK}&)R2Z_?RWDl0rLXJAH$Jd3DAPUv4`50QNepAPfW;@GuYZ(nuLQ}
z3W$h%PnjR->v!<{u*{n`@Soem^cni^bW%M?vOJNs`BAwXD>?a`BQ_WmMAR?0^Y)dm
z-`~C88HT;ru07xR_OUpWf0-rcJJXreIVzf0-X_L}+yPad+{F)O+_ydy6x(O6Z<ts%
zL{8;dO=vR9;gd_8oxXOj;{FOt&i&o0e=@>+>)l(lB54KGb)qJC8tYtbAM;B~$_Wup
zVP694AH4SZr@j$?#=H+Dk2EvD*%Iw*lp%58{$%N+Veh%UT?{wnyY>3skbE6Ixku`p
zbe<%&dD#t-0@af<!pO#ydspj+yH^of?#3s72Q<M^uD<CkCvlg<Qxw<1-Z*s7!Deo5
z4t0bBu$|GcF&WI$2eXU>coTcA?TTdt+7kbotU?+K0!Q8~gvmJsHIo|TmyI8-(vXmp
zsDQ*L2eEACo~911Qq_7b9em*K(=8CbQI`WaKvT)IAXlgi)oHcQ4?Xh1)zi}p16gAv
za&LVy^39t!Ieb9$yRax8oc91%l+eOQXUB2ZK`C{0u)s29Yvfv^?Mey0^!nl=uFJ>V
z`>X2T5k?`$O918y%{nOYm^ZQwkF%x)U4nz~>dQ0--73d>B7KFAxty$%dQa@4@|K0b
zA_89BpOnYUEY_O-#CUZZLNar;l!Lr$&j>8p1Ot;-6lm(v_-+m+D}?=q8I-7WUylGU
zH4r^PK_h2WHz}Ie9CQro8zOH%z`Xlg-3EQ$#$eqE|JvH+b|1=cKvy>b-bn0Ey(~B6
zBat?pi+K!P5nJV3EYZi!LFFRWwqxZafV*-hI9OP$3+%^*S4LwGF>{iaey-5Xz4qcb
z<MAs;8=(A4tGM?9cC=`@kYn;L&OMZsacR^Avo9((BNq*^X#e5nz~?TnKk@s$<5>t<
zm38m4a;aB3?WFSSA|5m3blLE<aiqki5WwG<QyT-yQ9|_eXm|sxOaW2Yc&dJXGS2tU
zmkdydoVvyKroi|RD(3w!U0+<ke5n^J8mmsTtyez|_Bxtpp2~ekPGDRB4{RsUHKGRH
z-DBe5pv)ckycES)Zl}Jr%4Ke73<H^bs6odq&Txk+(ykx<hAU|iXZznYdbm>(#vd#v
zfJlCMo{TjaN}G_!#wCI#Ngp3^A8>z<+G(n(O`%8^OdkONiZ7D}H|M&iD$>-WiXfoU
zl|`RGXvlAZH{SAZEL*oYhVy=3GmMZ>3a&%uKYxd-=WnpRq@jU91bDN-WJd~{@f?C_
z-3y)<gEk*^p%c;zA>fNa-Oixad%$X}Jlnd!Y!t_e!W^^_)h)FR)?Jr@3k%}9ELwG-
zb=nnUJ>Yl`N$>63w??zA`??-kSr^pRZ#d827ln<syY0ICYr42k+2-Npp1*~3KXqfy
zF`vyVpSghMW!M3z#}!->OXak|^A&pB&;g!7z-Oy}bU0WS02d#;{IrvEZg4F?B!P>2
z_Y!f?KM&&Ar|y`Lot|*?6nc?SR1$4`)B%_Wusk@2fSy?#uM*_rI&iqoZy?@tadF|t
zhnL{S(|bDi&PlKc_qC(JLRZ4(kV#|;tT?rREj5q{tzorUw$&5C+|yroP@8*{93vJ2
zMl%Wsc!xe^_@bAv{-dYRUf)_PpC!a>GM#MTVkV&@@Q!wU#3k`;*Y-!E*r?AKOe@?^
z5*M>S2I=x`OboVU^wYR>V;Di$oz1U3%u>LFJB$m0W9gaa?2fYOc?m3u&1SOQx;o7G
zda1Sr1duX$^*LPBHm*>|3*#RFSy=^~9VhPh4Gaw8T_T`0^?1jNHV|P@oUkqTM~jB)
zOnQ$wfu<q(9K-APv`UI4^#=%Jv$buPA`WT3%{xAQQZ#fKsGSKSXk8wHv@aW*S5zgn
zO3c#;{OSLiVrUubi<^_9d+unKM`2;GLa%@m|6ba&hpo8|<;LR}4;$C@_sL!r6k0b$
zmX4A;;8K%!+^Y<GziX1Lxc6(35%`;YZyd)?5+jwTy$6Nzs&BZA%D;|(Hc`oB42iZo
zi=+oPI~WHAed9=c@xM&JS_;B30n04Tgj`Bp=KcDh<9oZ*H{&`{Mk2k*-Rm?Eky%;e
zr)rIH0hupPhD^3R=p(s6R0!$DRTIvJmWd#VXv4;_m*W}Tg$3WX)g4bPuAQyve`w@4
zJty?IW7AHWM{W=_p%kYrN#B9u=&D=O!j_bJLXFBGAD4~E)`8czVBx1bf+)KymM@e0
zW&CUbF*cN4Bss3jz|SrB(6cQA0m*m6uI>%!@NwzG$0~P&Wgeai$<h`Uax^4^$OoJP
z(ez%^lJPZq!lrG^bc783s$+~<%EWpg<%I^Tv$)t;c$$B%0Zb1`HQlbho2EP=z@M`Y
zb18&@3<FrSt(5<i2*IUP@bE}ShZV+geznf;VN?wb*UOc8sf&{|!9!8bsH(U@&i6l`
zNcdk~{D1mV{-4&I(P1_N_U=>Cd&%6>qABc|kJK}JEPHoarc#L0cpP%qRI!<_hXji2
zCb`t6vO{L*A@3gb?~T4u{7KQqB{C?&nP7@j^;#{Cb>x+gY{(S}f8Q#fZgFDmb&AiA
z&p+pRBWm$Mn3T}$i=d24>i>y;@IRISq_QU?9NQuo%GYZ#;45>2akAMso4nw7CIXyQ
zD?qAXlCoaqhHzCF{DU=?p~8f=l^~-*;S=)O=LI@>Cgy{%>or#8k3%E+D3xMf?1{7i
z9RR);kg)hZl$o}ZqCF=}yEFpuUtNNC|LOmN_@NfHTFlxR#DC0QsN!N}Dm!>BW%ziA
zd~jWnOQ5*v7&HG-qlkGa45Zd0tsu`Pzoq1etgLT5oHES|cj~1WkZ&CwFLku=zV>P}
zfValbm^pO^hZ9%jW5=8{3~lAm@}%;29llLUBGPYn*ElN)9tyDWr&x6v+>1+3DJUSm
z9eBE0t^zJk$)Wb^pPmmc--WlKp#)!<49_Q?VQllh21k|1LO-~9-~|Whq8IorSO66%
z(D@ADX{6L=>)av|+)6p|QE~(th8}2Okc(1JVc-z46r$cgzUahppN(YTClicdsT!_l
zg5rKbe-p#(|MjKx71HOE>wy%(LRlu-8cjnlq~u%?)WflXF&4@(iDP}?BT+2h+;bPV
zu<%RD>sf{}c<wpp$_WfdLgb>7MuH{Zg}TYe2j8AL;$UO-#~Zh~J~sKv$>zXy`qd$x
z(69`FsW7@-#lRO0$=;&v-R>u{VVPHT#Qf5F*eSVm{1u{E8<uxi^_5l07b_X5OhZyp
zCKDQ0;{3ck93+#F2(Qr7ks433so`Au`2l0#cg}V2rD#!-2YTOBBD=@;r(7A%f>)^x
zi#}Wy=DE~5o)p)-B8C#D!}rIdjbDi@J<a*zMb3^FR&f!Nel4x@d@FtqZ85J3Ld6`E
z+bBn6l_x(T7fnKiyrM50S=h?lEICyF2_$(ND9cU&EK^`&5p17#K(-#MaK_@(`=kz2
zB{q2#I4~r5vaJYMRMciir5;8v>ggP+drS|(l!8o2P+7soO_1Mr|KGK1{I|l&e@^cB
zf9o48i$s3XSLQ*GWi@`6=1Q?beQ`K<2aP!{_`ehe?&I?^@KCA@Q=^5b&4{jcd|nwu
zJ;}k8tgeZ5ju349!IU`eHg8bdgg>IrwZ%&C<IxWkw#_@zVHFnM9uK8WEVB*cDh=1m
zTM>1Ln?EX`prebr55sdNxY!GUF%CAjMGKn$2#HDZ=e;Wt)<!kxp^_psFj)Zs_`+oU
zpnGH}B1O1RXE@6_Cp<j!GYn`1HW?#+*0+ys_w2a(T)YS;_>?Zu2VDDD!v(b*q`nZd
z+Yzr|5cw*plOBlZL5@S43(XJ*x99^#i|FkfPzjN@SpKZCgyO3vV}BAit<T1`pp-OD
zZ!yv7^3l4EWx!x-!IGCPOlw?+Xt|zka!aYtDPd?R$aLoa$NQyN0m=VYdmt{e%-4l~
zxC0?wWM^febCbZOG%oL?!XND|RP&e1Wvu_VZa|pz6rMeh#zP?~km)VJog`b)@+rMc
zWsksowxWduJ1dMjH@zQ{pNmTegd%Zum@)oQR+hP$ZK2)U@WPhes~L|?M1FyND2z)N
z<5rsJdkKSa6DTE9Rpdy0*L?t3JY(a)Yq2kb2wDO^)WHp2@E?}7W@tZl1|gsqA_ghb
zv1xmJ@=|4ns8xL78QI>HFWifF0`Bx{TrP6G)3J;=?l7D!Nydv(nF!=<QdkBY+EMgo
zaB1w~pLTEJ<9U3o(}{SO+v@7f{_-PiEsl5Syclzu)PsBqIjj=yx2Ah9aI)8mYLzfy
z$@d!IxRR$`CwCVNn$jemPx;jGB`fX;9S1iPxq~m>)+L#Z_}?97KiLKZ@klK9+fKwH
z{%n8ek+HI86wo-Plao&Qz51C(H)S+jswJVIDv#1|fZnM;!<g+|V{z*K!gFtUIoFC`
zmjRQw_uz*R1R;z^?+cJMMpS3Ts?R+>Bs}lYQ<q6CVw0_EpxZYi&T+x9L1A3gCSX%x
z?l~p6X>JL>O@7JNw&p7^(ND&&nT@*vx*2M#M^!S^SPmVS)8BSB3sH$yJ|%QIr{5fE
zA$YrfkmH8mhdCfvow~_&)SCuXw+YC8Ky#=`CpkSG2X)LO0L!Tr^Gfp4RAxlpGF%*?
zCs&?Ynr4Ah2)r%IPkFm#3=A0W_raW!i&`6C)7eea>dC8V>=!~pLsiw)=k{p>0W*N6
z;s4Ozn-y>|Sb^>Aa?>D7rDkU0LC*@#pJDHDpqtT2%NQPRZgV7>JlE$!CD3lrQ@y`w
zb^#8^A9QW7sXd1FN8ulvcYWkH{%cU9O#c3E-!%cn0G;4j`iGsB;gk^dAOD}3tp4x0
zJQ**;9nax%x|O-t%T*wzVfi4b%Gu$(l)__%aoyQWWj<PH5+w}`5>ZV3=+T*^?gbB9
z=m!BN+Lw*0Cj4{28P*i=06KjBt-CugOZb`L;vOc&DsHy$LwfK7_TL`1(s-!52q26$
zO}sJnPuFo(aDMvBUjeV-LS}@ScIKBaQpUz9X~L3C%L33(#Lcg8f9dodr=+BmRwb9S
zBP|IMBGh*sP@jQGX*WF!0CqD#;y%%{fI*hWNBf%*%P{hFHCB%WCYPtnyI}bG8qlz_
z<z1lvU-H>_$t08q)005ACc+FlSdDI3bddwM;HqZ<gyKwu$eN=b8#O@)3_L3WGu~E$
zj;z6#zz2Y)(){DYEr!9{@J1n+ieeZfkq%n-J;ls45lOh{Ex_akIZ7E)ddl=y{);!-
zV!<;))uc5{N<krbRv0?oKmZlX<P;RsZxp$m^l%Z7RRh7B-sTEE`;YJXTEX_-2&04a
z5Cnj9Zi|l-A)r5V-&0g%806sMY5|WG!yveAquEs4ybfs)bOPCBePY}x0iYagQlY$P
zn6HMBoHkd)2uAhL8A14BpyMakyQRSsq*--<ZlXnx#(#Pni!uLdx2ECjD9TtLtLRHK
z0K|flQ<;PaI<Q%e-Y(;4>$I+BE7EGlXLi5pC*wnM**}q1S$CZ9DWdO^ef+R#alfDA
zUZ=oMJ6e(;))SqW_nU30H?I9*T4YK+uX;K8&5N+-#=4ZT?Kh2kqFS`>nyQ9L)RSYm
z#(!SjIXIaf;o%xw9;Z0lxphx|Wqe^GX|L~Dbs%P=qMJgh-S7F^7(mG|@^bUmEmdvp
zFYKkieragsYM7dtp?4fGnuHrD1m@&$0%PL8Lw-+=+nitLiTHr$pQWYe1J-xV%~`Kq
zyT-S?Z)t7a2n)sk?1^x~$+{(6bCMRft$8Kek>c|j*%Uw{_T{7rl+6|Q&zHW9h#89!
z>9&3%g8pRwUbE{#7eXf=!6<ewmHpnDh||p3r!@vj!i0e@;qtUE?>q!{f4st3E;<9G
zXaIw;-{3J<SAH?C{Rf2+>>)1Oi>hD{0e?$Zm-01kZdO(DFR7_7Mn*>XmgEom|0pOM
zhO*@kDzd30eu7tYLe&Z7)~}QSdyM7^o7QqmD3zMNe(s<B2f~m)wqe*I$mNA<^k{=l
z)NeP#1o<Z-`=U0Ts}BxRua?owt8b1>Vqx(38(NlJ8clC<_;m4TSpesAvOv1yDHbN1
z#;Wq=%NO((A0Rn~BqlPB)jZRDrz|avO-c$kbs=IDt$%S2pO}K;75Eiq;I<HPE}y)t
zcdlgQw~!&t&CQa;XFG)<1%Swt_?Rc9*j9k<SDt?8)<U<<FDo0HJF>C?>A?;uwU<jO
z7;-4A>@hAZ?RJ+o&?7WTs1>I%FaO(WVR7fqnfdOd{Db}Sav@QlBWj>y8)4`s?`e#=
ztt}^-AHf@;#Yx#hrNkl)9DR;P_UU73?|?ZM;e^zbI~)wT{(nDdNc7*x&CS&+v8E6f
z7AB|Q<VaXsvxi!tzJrb5paYr(dgl@#=+6Kf2Lr=ay(D*`!9TM+m@fx}V4{R?o<atX
zwX=wpqK!T7vSp{;m#v(uWdrm0O$1aEi`e&N_95N8e*ZpGJFTLEhBEXVNOb#)X^}sN
zhNz?1;BFQ1oj9Q_q@}s+Awth~IVrjIs0$uP4coTPb;L@^SXx@vgBycy$x`Z`VrcEy
z4QOAvVY>D8n>R1!=gpPSRYVPnIU3h#>F6kq#k9Mkl`~#87(GxU{^at*{FaPrGqBx-
z=AE>Be0(y$<?QSgt*qMZZmU>7p?fXf4F~>~u&J7`nk150J69tpH7GNaot%>L@U(BD
z%AII+b@jd2vr==0j6T$?(_mkA`SxuZpi3VXe=;qI8Mc*$@R*sMjRLvzw)4FI0N8MF
z{%&m@cPKN8xDmjF6E5;m!k1AX{vu?`yKZi!EBb*Sl{43s!!=;AOWwOAQAbAy_2l2l
zA4Em3eHd&v4NRGPyak-NA7nReiIn1#6O0249h2R-aYJ53r47jAritlSf1!2<!aWME
zT)jFC<5cJ4<(?FN>9pg>ZEltssNni+a`S`QLh0C3jp)%Q!q(35#s>TjGFax+0mknK
z!v#I@;*8<Pfa`jGGy%rc=6F-sKVW==_YOieB}o6dyJz>VJ*%^v9ByxK?<G8JDAIt$
z*kCk?@xzA?QA6~6ED1YedPCJuzs|_T78iN$SbK;jO0B*$et+6@&g1=?j~@x7h>6L_
z&V;tSfYT6t`u9q*(&NXEhuR(&S9g9{ztP~0mNQT>fwld)yn_<2YZEp2@tx_FOdQA0
zWw~P-OfTX4K6@sz?OBsLycbmfdcr_xI4?mO19yEBIaK$E2tuI*Wj=m>l%zm0L1k6d
zu^s%Q&cl}yGbJ7uAAbXU4+u}_DAd)<p1I@MLB{Ndv_XSfheED@$id;pYvh^oUc{Xn
z#<av1k9i5UNa3^JFD_axx(HK;%R-t&7aqj0ljB+uVU|YJ1OY>+crW~li}@648XKiy
zo~~eW7s3Hb6%Ek7*r54h@9xyt{OIaJHA`?u;loPM(S-s+mLfh2L;~~e+ZB_Ai0Sdp
zfP<A)L+ag7VkV}@v9U2fW=$z#$LYp%?>o(bu4Qnm(!VMDxe#I)z7Q@eDqaGdPR{@H
z#~NOO-aez;_f#CU`oWDT&>J^^#b&3>dt(YqBTp|FtV5{Hr`#JOP<!-Ov3%TqamN$y
z#gs3NpPH_rFW{{ALQbi_<zIA~H=#qG1xjD!_zS5CaIRdra@N*_+MJkXr6rxl4({O*
z?CI%=U8-O4<W+B9-*M9H%nX{K6&3Mwb;}~a|1ZISTnS;Z8?Sr^*>2FGu4670{1y-4
zHUm#Z8HIh0glGr?e7yHjX8$%lAqxxCkhgE%NXy7DMh3Df#gQj7P*KUrTv_hUSa+*x
zH@&H9V{<(?RUR05(-NICGweJ(Y>@Fke}47w(WA=|EejZ+2h{ZR=znU03=S`(;xV|A
z)*}z|;pp37HnP~FoAI;|CNr4>o1_f#V<EY*U%mQDM)lL;;-X*e?-A@|pu*c@aR9Ml
z|LiV%7<q5>;9FN$I?OfhZZ+`!s7JRkX%@l*Lh|Xb=7U6W?|Xn8(jlh%V745a`xjz4
z_x;^=2Tz^+uJh^$|46A_{OQ-x)fg_FrKP3q-|b{9EPqy4KZ9&c66J*zv$fDy=e9~a
z_xtyL*|Qo0z`|Qpt5Ym|*8Q12cNLU4ExJCY^!KaXq$VI|U{Hc8g*Evhe>{|m2YUwe
zArkMS%{Cbs)3VX?2n_+wDG>tY@WP^?p6(=%!ozPAMpqf%m2O2vM>m~&Z)`v!diI!h
z6PzE4+*?#kOhi@V5nzDBg=mw9Yxdr@_;JgH{{DV>Wl0v6)1ntqEFr0<lirgJv|UL=
zUt)!}?FRSO%WBK^&z7l^Dnbaty=MYiTV=O*cN^`?a6Q&XW0f=TwWcIsXp<?PJp^?l
z!UWfmgv^x+ap&^V6a%A_zNOc3aUtMO(|lqm6lpzz#S<GxP!`7C#Czrp)zqNh#Du}o
zMiUV#Xu>T1l~IT`PTf)hxbw&2$_hcb(Zc-v4BQw9fU`jzeqPJt1~7?jZcN`HCIQ62
z|1>NjBETSjZ~1I@`n#=#EoduVf%EBk(8g-n<YTZ%@d6SRV-NpaRz_7=SQr!@{tD*)
zU_jx}?{s+`hPLD$J$h7U$c`#`z9$EAs-uox&=l>1<%;jA+RL`t=S|b~;P&KS^aiH=
zoQD=<Q%HlHl=$2R)j<HD-rrC6S%o`p2;#j!Y78Qw#>|4b<e2eg`}gnCva&ehfO7q+
z#H5Hfp!_|CSp*mrCxHCNhsn*%tgn8$wXr+ufIF6ZZ4>TNhT8W)B_ohcBLT4s`r1bW
zb-h|3zw&~B1HotnsbwD)YXBFMv><VML<XzGOB+sn7HhUO{LIE*r(75VJ-xzNQ92C+
z)eT=BWxz=^K>;m<TW(0L2O7VR-RPjEp63TiEF5KXp=9CaMuvqEz~o;Rt*a5WtjPaW
z2be9P9t6-}mm{~J9{eD#hYf{R3WU2JekZtf*72W3gn7zW=vq2|`FQpKdT%?0yUH?o
I(nc@-3lfkwegFUf

literal 10271
zcmdsdc|6qn|L@SDBI-DmO46bfp_F8AQOH)=vR6pROc`PrLv_@Vq$m=`k$un3Fh<8g
zwi)|iY-Jft6l07rhTm(>`98jndw=)d$M62`<9Gk~{yZ!*<1?RmFR$gfyu+@V>Whi&
z5kVjjVul8K*AWPTQU1>+VR$8|yXGzY5x#AtuLpnOi*vCm82)U&Z(xH)AVekjKLVXY
zxK#vVKf+M&yoG<l>`?IiZdPLBJk_tb%J9sAlY3cm&wYQhxY@1u?bvpqyaxF<vVzI8
z{diWwQhGpH+VCyP(!GpQQ$~LkzI71OBR?Bfn;?*8Rgl-)d;1gPz;7Y?=k>O~O4|IZ
zOR=sFdt<bA)Hft<c8+VbfNec-v8JDgbsCXL3Yz`yPga*hAg*2&V89Sx=xsj%Lw|Zn
zfbw3|h(RqVe|f;r!^5LfX6?sD#x4w-toeP)JZZ&ZhF*YU<qT9jaPDO+PoK4!!XRI~
zK?|J=$j}pD`(E4;**Fm!Tf}?gx?k8<IDDsKCy_lIzrs;);yj<LW|DKMg~MvSp;R<C
zkG&CL2X9igD>JsXe-J90RakhffVlMj!G|yO@u0z29+%DNv3BZ7HH^OALe^&6mzI{g
zH@=kSJU{EQq5rZ=!``2~$KD(rjjkViz}R$XSX8<CcROTd8g+q!TPpTIBF`B7df~RX
zVCAjrwef1GUbt7{3a0+~4v}Yd8o1Sp)L$Y$HoTOMUkRd`KVuL1CE<gXY#bic^ZySs
zzv6JG?y1;&-QXH|d3m26OY3Q~;1%=UEy~qD9<QxZ*6m$gU9$@csKdlSbCQv)#0oul
z&CSx<+H-NLBVhE=#y7@C4k!9&tL_z7*emYYnQCZD@Nw^D`9%1B5|Yf!&c5Qb(iz*`
z+Z)5u=(uYk>FA&A7|dgJ7d_h-U{F3B;MvRYjZ^iE*%$cjr0SV7+11tdr`*WhH9_1(
zr*)Rodo4`S<;Z<`uszR)^3e-j#r<VYQ8;$hNLE={88tw;X8AU8vD1jxJeANjvNk(1
zgIb$J!I-#%W<fk$Z>~+iVu!w}8+q^B*jUDU&-{*jhbk51SguX+;-9~mxoEo$&}hCi
zuktMTU|4utVnFF1U+y;u?wP9Wh`oC{`%?JM=@+NS?KW<SX(${s{(1dv-tgpFLZE~5
zAePxCudGaMh>$8q>ZhysjpWJ|=r`+ZeRPYm`?vbrO4~M7EG<2xC!m>hil2G9@q>cu
zh39B;r5hg85X5P5GIgjaEbPd$DQ-}w51ObAjXMUhdXQs1Jw27-$~AqnLsitn5}VnJ
zU1n9HN)`LZR_yHT91IP^XvDyBqa)GC^)=pHhAz*2hMly&N*_`zAN(pVqw`H7>{q+0
zhk1dFymCTBhc8i~pt{HoA6=|LACx35U-D~|_N#Did|BzQHOF6dHLrmZ9d^gkEN$rB
zNoRXc&m8Xe^)(dx%hupNUmu@E3^AW~&D?xUXL)pkWMtzIyN0c8ZD~2NHl4KA<ooa;
zp|{sc4Y%sgZjeHywhd92oG=q_=e7nfUo2oDhX_51XtKHunl~RA?30+7h$JVd&wbh`
z^No$0VX%FDediL;<Ofv`XT8Jp{?O)rE6)G$;R8)a6C=e%lUw6XHS+3oSD%DmPMMqP
zNI?!)V@#vM>u=kzgM%p%cwP2s*jYb%q8|YknhHUtp~M^F?+)A;`NyxD=XmT9zb2O=
zC)#VI_>!C_g|(=<_0bn{YDgk_E;?y7mA_Eojbn4L#(ti?xep+dy~*nA*kDfV9F?@@
zJ5wY#a<vVwP0O<@&!^qskC#JFGUM%yY)q8(TV0+nVdy;k_AVzg^S+{@A`wR&7?_c*
zOwo^A^3;U-;ZzwaDw*CE@U8EpT$c3%JZ3U(?#Wi2DfG8AqgX<gc?RL6b3;X<rr(l6
zBwB8%5pw(03TMb~#P`yrOG>W|Qe%P`b|c=AIxBYz26_E!#zL#TcBsl?vW9|Z{`zv{
z`u$jkhjDh5-mV@PCvKK5w=h4StY}k|O8cH+mNe%WFrDT|>+|K@qqlaX=qJij`}^Yv
zt&jpMmbDH=iBi)z9UJO{yPlp#ikjHv`{ghC%PL89M+b+*z?JEYjV03B^qaxOOZH}E
zm`yK!x>F!PiB~ftE!QiT1aTko)3vP3N|)PDfrKl?a=cCAR9w%E1x;O)xx&-kcDB$)
zPS-1-sHjMVxH6MNVB}Zvw~IHrQMWz$;xk#pja&Cw$VyzpU@!xWd?%74db0JJt83aH
zUq0rO)&hu3vZlLo;ApLYVQ1#Gl<Q{Gp>?+)C)7%7?(LD1V(G3kbqQ-L3{~V{g^qG?
z5v*kDnv6)O#kFg%2b80>hv{|dyd9t}8Fh{~MVGo!@Qy9)Z~ZCn-@nhToFlRwBlf6X
zDR!fnDl$BES$?{>@k27xW%(`2B>V3*Tx7%XesbKCjaz40Pf;w6ZolF%2_Zrucx_Nu
zTk)Q1Kk)YL+hY=8sWFKU2i&7l59z;5jd2~Ae3TFf!8rV?EQMqfm@h}u`suP@v0%+i
zc20>)lLT+ZnshxVi1<7_+|t1zuP4WvF^HyE!d5ph2z#+U&R_owTWK=GeXz{2a&LIC
z`~8VqkE5DW`SowCF)|}4@ywnGkD2Z)e%bZ;F?t@7Zw8`~a%0ib(h{oobvwIw4NXn+
z^#nA$^+M9_@6}9G9?NOHv^UQ#!<W%3hKc7MqAmGx`Wkh5XIaxqsOtHr`GlG5+%aVb
zf`xg8Y0qOJ(KiONvMgfKN|j8x7p>RJ0lMV(CCA5)c4-HcEX@tkW_??sXSr3co})z6
zSXf$S<>i@3OG{_DLIy;oHa9nS7a7yEUZE+>Y5`PZ6Z#{`#>~+y)|k0%*XCA{Wtei$
z8js7$Lj@Vh@TT++8;b5c-acDCf?tv@b0F)kW1%3q8!&LNk|iEJ@-WLQ*Js3THo08i
zv17-|Vuo&>axkYw1JW)5J@E0?lQPsuzQ0yJnQUrlWhK9BiwD$20v#WylAqz3i^7gc
zWvRU@Ei0R;8sQ<6{0_d4k7rHBqh_E8bwioWltNXX^i7E|>n|f2LEz(7x{{U%bJ1ox
zSq%*hxns{R90-DT(=!q4lpl{I7#7~hrSQ5(c+0GUU<dBfY&6=Gw8knZMGk2=K;e5b
zur=j!M5mbA;O`q{uvf$MF2K^PRFSw<FJfi*J>~gx5h(D}HQYJ#<2%jW+%o1W>HFH^
z)e2~b+F;rG&;`1*4z&1^nx|R+<be|s?{<8oW1vr8$6zY6v$JIlsrKjyel3Q(xK<BS
zYnD{CSEf>k!$R8IV8!qn8X7)LhhsBKN-UhX1Jp(C$hzaFn^&V2m&YO*k42T*LnR$E
zyG%7r6s+^RA$kfRJrx0)$Z-1_Ev&54X~-%Qemg17XB0N>>r$sDqznw$zKw~Qfko?;
z)0qz|i4-P$8z?m@AHh}O)|g2O+cr({H<h%`B{9<Dk@BA-%+qJTdpGQMo9Z-D?t$Pl
zZy65!u8qNG%*@Q-^2X+>zW27NjpW9ia?4IhNrClD;`swKVJNSCRkpCV&*gVo{?=Z(
zaz&UZW0iX&*(Cl9<XdKX`Vm$MhTyFB4xOUh*4Fm?a*76TvCDTd&JCbLHB~z49!={V
ze+~aG_+~+E7jITD?UnG9`rnvKG?Zt@hfB6)_u^82ak|9mr{Jt&9Rsoq@lwc&^X!q}
z;DJc}iDqbpzO$uN4>~y!W7l|Y`|Wsv@vVNUCy(+`i1~y<;&Q^m{o-47!a`5Zn<SjQ
zrvGwphqT{dG9NMa79zI%k};@uOH2~r4xXOIV-vpzDbuNSwZ1`{FF|=bV)8yUGI({2
zF!oY2*I8iK5r2_A2*d_0L19EKLTC#jL_lO0JpT))8tXj$lUsv89J-XQOgiQ-(0IGB
z8khDJT47ITXVeP*mhR@C1R*LqKRwx)my)_e{F$Y#t?jFV>b)-vWDio9E31LcR!|wX
zM_k?!aT%_tAKaxi+0g!CvGQlAk2pmIv-2AeH$(n+pMCTu0<q<4EdsIY_YeWZiE{$~
z@r9pl1Z32`^~A))_>g*Gq6Mvb9D%62P8L}%=`uA(ql@tYGsmPgAGVeU-;hEebT>^p
zw}1V5JGAZ#vgHhF__!fp(mki{80%Om7%pg;LEPf$6JF9!c5F(hApNps(zSf6&9!US
zJk~ka_HX;)t3zR0SXhkHuu)iTwN>oBIH`-LI_a0wAD{_pWnQ#&XudNuIR#eGVai8_
z&=l>c)TU@T25n^Rp^`N%f{uBvcMu~LoT)|Wf)11GoH~KQ7ce<IapV2lu0k7uLd{>*
zO+UfyWjRZOOzz-Rb1b8>qoX5Pe;>x>^O!$gjz0LRaku8fT<A&Wy5Au$AhGr?R8%%w
zo13RhcV)0`@y18G9Cb4Ea|i_69IL!e7)S=B++8U5StEJ2rB|Z1hu8Zo|M+5`UltF2
zI;XVMGEDCvim@yA-2UHTd#jP_SAVU$1xc8lmR7HE#rCy<9-a<$w+$XcQG_gj@7`;j
zw~<?h4HBiiyu1P+fW0*)ukO{s-T**t%v*&F<j6Zg6**#tAN0gP<2|~4rc}%AFG%4I
zX(1x~Bs(v!$Cv65o0BYn*!9rcs`i&7##hm3bpBJ={2OEF|5P;mUx&?q=L^q$Y*$#+
zGCO?uFh-hGQE{WmMFsZtIEA@T!@KzN7GZvHB~mC{<!zgeZWn1{YB7$wpHve@rII7`
z4!-W1f0|7{x#?NmQ}+N-;V15q=l8!_D@1-0?NiSnlgZT)GGTfUJ6ON326EyTYRZE%
zAAkBC#e|T6JB>^#C@EPTeEq{qheQ!GtQqnnSN^Q7wpvEiM(K{tSKN9(tkSj)aJwW{
z*<Zk@nXCQ7MP<4rkmIoWUNO$NS)ES9lGP2@hM>=p3pldD6fsg#AdVt8fkQ5P1qSZh
zK%#46FdEgu|8vp$e<&RPog?7i*L27#TA7#m#fwjN9>4KB@PJ8=8wkYHw1ge^eSJ&$
z=wv+FYz7dr1|ahMr^1MveVZo(YM~M|H(vpS^U!V$L<)nb=g*%*zm8$_JT$kkctf4v
zsIcwqgWyIAM~iZ3WIy!UbNfeWSPA;@O^&ux4OyGyg`zl*vaxc?W^x%q-x9j`W$5YC
zrxyJ_oE*}Mf?;R9q*JcU>gdKwdoQ&|=gv(`O#EFO8NT#Cm9;3$ARR-I&<hQQoy@;V
zb6Q#&l$>Vjpg)gA1^h!e5IKgyC!jCxqw|UO^8A>&?)pM3shfr(X{Vm7A`|V$Jv}^{
zIeS~EgFoy(2|f9Q<SLD9ofOWls5m=YXd)}&uAEdXXeuiK8bTJ-(;Z=Y0lc+X(rTLQ
zv7O=5uqKtZUdq6(tc;9|8pO)BZ~6)F=UeKm%=7zab2~e)mzI>=&^J_&2>Z;`0yb}>
zZ<zDp!v$!>9e2B-RC3-+p@^&)9G5mS>C>8AG5T2abim?NH>H5IMmTe?@8-MAs+@uv
z4SM5#Cv+VOo#z%@QdYJneL62C<<RVGpsa*pApNLYfdFcVVA&F@Om)*??p8g0`Yr{p
zUAbouBIK5wTV#kFG<cx+N383hZRXCa|L6PYzd|}p`3Y#!yN8GI6ln1;cG-yf18R>l
zee->XwSDr;j7Q#$!VmjD0eT=8?fl_cKs;hNP~;l!;ptfl)RD&<Sr0n@7}h7jRdE#J
z8ni9qLbJkq?Z7f<x}_jbTyTY!(<gF=J0V%~Ln!Ers8c(jLMgAoifd8ZH~pwlgq)H0
z6bOdB>;;6$iUc|=ub>buOZ@SNsL*BrQ}<&^LyWFm>F)3E_p)(ta42v^Aa33iUc`C_
z23EnP%(p^_ke?6D9vX$<xpDjmAP(hHZ0oy|D;<$Ii+3&nf1KS#D;UQnm4l{@Y^(hr
zoZkQ=mT(CYdA}fp*slu{n{11>gf<VM2l`URngAjsxoJgdio>LPf&xdF`VcPib|ZYs
z0mh+GAc=QDlL&1VMAZKFx->)vw|t8SYFb7DI<$EMy!MK9Y>I-NJjGY-WRGnZNsD1#
z+6$vF=@mqJdMa3mBM_IjuN4V`fLWv?s5AEB)b)|ye2XqV6Blz&tFN!WNWh)J(~p4?
z7iT;Ps0q-F7Nv!;wDr=7T^4`grDG&I<?2s@kC4he%O*9GmjO$eHcDmRJkdA1cb?{S
zU-Vg>y6&^^=g$|sX%dl*XpP~ktm+^DWzc^V<mImfZc#~m0$crkn3%OL7j3BMRHG#q
zt@zqt3+BbWs3w<T>d9SDImqfxccNF5l%a|6+Yp)z*eQA;mV!cce#3}!6`c;g{!Bah
znN@+)j1AmpN1`)2S)<9+g?mpDSGC)L58Hmc`G~B;z1Nnc8*FfZi79AS&j7iqYQrJk
zI&nW~DCb+JWi76a`qwX2&gy%!>yDF8NAO-Vm@TU}YAbd07gW_&A1bk{gBEDBSd}>A
zDvFBsb(wbbsX+FerMvs|XcX+#o7~6{W!NN(csYs9^|w#LbgKUuv%m{Gcz^81H-hH9
zA-eQhl?W9@Dc*p%pWU*u=SQJ)V|RD=n-v8EwGnKwt(~3dTQSIg1y2EG`--b-!~Q8R
zWpwj_w&!GJ8Tt+RS|=Al?A(KBhl)QFV}~>hdh};ChPl{nZni@nuyCDKuVBr$qLvag
zo!m{S^80QDD6Zxdyy=^3&@a7T>%&?6ummYFmX6^w7)R`U{ohH_Y+L(_oM|^+JFvvP
z>xepiu})^K-EV}r8Bv>clwsa3rG^9v<GP7S1f(Bugwh9N4gY*6=#tY^6$IkM2^-O~
z+eKI_2bt09=Qcp%CgciX0Y%QRs7_|QYS)&X4lobQRw2l&SeD6+^#$ei568^YGiz!b
zVb9HUc_qF14tAOMAY$zxMg}V$3>3RX4r7@nhaplNtKaE<Mj+0KFZQPcu8+0%Hat)S
zAA8#+NDTPS_{M)neg5@P#3ShF!0-3$+0)(L{=17xT+S^()iKcjzudn8+;wHSQ5T<c
z0A4G5T)FSWHiMDrjpBQ!m@1X6qX{hx4dE2eDkhN!<mabx3?9YA;OSiKqjR<8oYd7;
zF$&WgvXjHv`}$2RT9)6gxP|mHE7~JXEnQ6*0k;JZlCDSjOsB<q%zv#X;?@EGPeX@4
zZjqqFC#@hH+K?MrT4tafsmrKYuO<{QWR;YZ&X`8w=@{Swz>U<Uso&8lsi}XSFhPM0
zFhu@x|LnbY>E!@Ds#{OO2z1mgBwzhU1@Rhz5-0_|GBs6pwlJb`%w5^(qo8B)oru4h
z_voi5L>$SvQCxd{l^OcH3-URiNzv8Ka26I6fH9;E;dBA$$}1{b8X1NAz9~8Q`Zq0#
zIY?UY_@5LOtuaSV)C^KpyIpvrys~3>7%6!q0=k87yfcW)P^C1z#|_BgivO;C6N%dY
zXy2{qm1Sab@_D|9+1=Nd31oEK`!4j7w+T9eNF<Uxai1T*YXL%1P_`fc7ZKxsg@*oL
zFvj!YZ=cqEacp^fKKkfxAR%dO>f7=3CT4X)WV`|-{a?Wg!Gk5P3qA?~s*-^IJH#?G
zKSPLpy7|!#DE*eM#hoId-Z*i(C-TqRg$Xa!EVNNc7m{D`2@C5op8@4JwVL{Ec*~H=
zOZFyDXhqX8nB8izpVdxtKGVx*XDcIc6uKHmL!W?j^488zO30==rY9T`N|<xBJox&A
zL6nV3Tq}o2$`3q`tFrE|XKICBI509P8hT+ti&D-3%~c{ykIdu*A!VZt>rN9{TEe)h
z*Do8#)OGb?958AbDxgF9nTD|k@Nd_d2;<0Z48M&1E!+I-*RKCTgZlq8nembk>wNnx
zA<>;vVRHCaXr<VT8vrhk=Z0+Er<KV!MVsW3z#iZmcHXL|p+TCSu--5`Otd?7r}gUo
zZS9NGU8T^JBBa!mSX^kdMp3YDfOmR4nDSKhss<)wDG(pKLe~ez+QjB~*HdUyZ0A=6
zSk5kLBzJz?7}uiK?)<7)P=|BOjlvAj777CQ(=ZBpB<u5`$VI~1ubY24jT)}Duisq+
zfR@*v#Itd1AX6(Uzp}AF=zD)w0b~RYAZ7X;h_N+zDWDuR8b>4@e6E#aVU&ES^)65f
zzzUPAd#9rqV^<v==W@^}z?efX^F}5cfFpGc;~H)kmc+8{UpnS$-yaRJDsarB1kIss
zE4|Y|M)O(Y(Agr}A{%?a-U_!&R}EOa3pD5GYlHE>gfTt?N&}<97I@EI@f?tSL52rj
z2IU*@YysdskjReiiICqD0hfeVp7d{xNZvh-J|q!#R3dEA7GF#aX?(FeWnsY^(3aCP
zap{?*#bQ}V2>2Fyq8`{ThNwNJkl}UKZ_d6gQBy7Uq9EeL@&6pHdF!)u2Z7jF%s&h8
zA8CqsG<k=2=)AwZe&oJ3+A_=ru)6t)cU`)^3BP~|ke8RIF<a7=3&LD@JqVkYj*dv_
z!+9@XimTHtY;8T@aaq|J{`l)|{Vk>_?+njMNx2BRe9_COooMH~0M~#>r-SrS{le+`
z^{BPJid&Q5PoXs*e*5_Hb#F}&cd$FlJkQx>aiK-I3MBD1jmwwUR|?i=_F;dVXYATN
z1S;7aU3b0G_r(joSyc|ChOx_ic7!y-cL91&s;tbSf*D96%L=aM(MY^_?i!nfl0KAD
zfSpj7>vu~kefhcrY=Y4>a5Q#ciCRK{9|hL6B~|snm0FtZ(gS|&arZ8ar-N@k?>=?s
zM&oC`X2_TNPO7{=<MkeN04=zE8ysbTYTJ9VQ~ubodEVeVb#yw6>xgMWCfK5Ifk~o<
z<yb>RG29AlW)~GTk+nT=3}V!w9f5dv_OOWmMDtrd<i`7d-OR$)4)^zGJ$)(+#P(>M
zae54jR%QZ{F8_iUC5QL6!yO&339A`8tgOd(N}Er&Cs@U)H2J*X9qf9b{dN_6-fq7d
zX5!CD2NDk(#bg5f4VP3l)wC8-q+$E2F~v2|d9$Gd!#*D2yxgn)f&Wpes_vYHiL8l?
zKeUedFFhvBdWMMaJv+J&GyZd|f$Shi$wSchyBz1fJd=4CruTumpm*@gJ|Iwj;KhN%
zK07;`Us>6I+Vj9Eu`_PTr&#*w&fg@pBXdH*oo0gzAvQJC2MA$Kjl_wlT3_Qb-?gsq
z?(8Q8lkAFI!oW?Ri*v)z_sAU&AU}ge^W)BzSAo#5Cw(Qj$)%I;u*}sy+AtI&c^mHo
zo;S>_0xA#T#_=<w3`zN_?<2pK2C|WD?@nF>EZmi0MvYOl>#TVvvne(Bgbc_OHa1y*
zIb*IZG5nc&+`HF3Scx_%+9}_4)qAIkd9aH{1Mc-)#m>jzC$00o^Y0cRqwB~&G6F8h
zbrK4NqJr5!jihGf=l8Nn>p_N{U{>Y=wYCE1`q<sMXwHF)8c>(AC?*@9oWFGN=P|wY
z0y?&@5}h%_U<9$$*S>!J>X^h+{8MXl=mo+=j2&psw}{JM!!^9ee}htE;ovYt#~yWg
zI3oE`bNZMJg(<wa{T14jqRmbK6nkCH6Am9h2xPmcWWhY9!Ca?8AUk}_4JDuMO9&<V
zWE=U}iyqq-X{7O>t_#iMM=%m;8c3{rw$&5NawtgOcb}TS_|zEIq69Uf(-wD1ANHQ`
z<*8KeAy+USOM=&NQ2Ua);J$eU!92#Dq)q*0UhzAX>@z``A<(2BU!X*P_;3*NTb<5#
zDqWMdhLY#Fg8M*%=a<g;u|`iwi0rJaX(|hjLh#26MqUZqR-0lZ{qBNm>F3k$5_ZO!
zx&}#8u}m#x)_h@1%ueF!LJOSjAj~&N9d-@=37#o4<{M>zYh3|3ss>v*Nl9{QU&VcX
z)dV~1({V|1I=^bJli<r(1c!m|%Jvp^?tw7?2g+%b3AX23t8n}zg+S1VJ`U}{w$$S-
zK5$OmtH0<Hu(jh;T4D9K17@-^PP=!?g1ePRJJesZPeAf?peg<{xp;?yRYfJ5PLNq&
zZd8gh)}WhK56{Dig+JBl_Fy5$gHRHG%FT2p9(TrTVEhgRKMQ;80RIVG=dt0)1rN?}
z6yy{X_?eiP%(>}uZ9J;6uG;Dumg#HbKKWdo($8;92#_LiFBw@4TMI}l2kM&OD9jKX
zV`9LahW-c@b%3KFzOr=tNzTUrmWLW@Sj!JQx_H+if^QE0&OlUs!80Sl;S6%6xifyd
zhGx<R&|N}EBRwE-oVfJAI7Yh;fSIv;cK7I^YSDjqUZ%JHCPVzCQ>q-7AadubKx!$}
zSxnyQKG_=Q;qGqeur#h;3#NQNJWm0;5(;}B92X#~!$FB44Uj>$i$C+_OvKuG?L2Yt
zYHjVY<2%D42tBF!4gpii&lX=tV)Z1Qu!Z33W!RyJmbxJD5FD&D=Gz>A{dTC;%!>gH
zFoyB~QPTm&(IOay3|I-iJ?j`atD4g$c=;!hU1#f||5@|%JKdxU&dQt)TJaGQ6yVch
z{z0*V761!2eCnTW9M?I^jiqQYjd^o^q%N@goV|vt<EY_}v{FJIncG{31>mW(En^!V
zof{w}eM>Onx-LKk2L&w}P7`I+hf6Xb05g7lr1c@>(a(3F=<^RI0hMlZB!%l8T=`Q@
zCz*eM3ix6>1iYAp;GqpdTV9+1j19By(Pj@uuf%77aZiQAKOaEex_Kg#?|ePlxbLcs
vO`Na&&AzYB2Eg%0f94;D`#(aw+I0cHqmSL^Q>A+l@MU<(R4@O+&By-+ic5<4

diff --git a/reference/Rplot013.png b/reference/Rplot013.png
index b3e0b9b5216cd7ec8f3d507916c41666a9377243..7d384ac5d104638cecadafc459d783c4deb62713 100644
GIT binary patch
literal 8534
zcmeHtcQl-PyY@2#*(oGa>?DGSBtozwQAYF-A%f_2Bti5#>Zp-dydnsKMARUHVC&sT
z5kwh%^b%1A6Lm1kxo7YFo^{@HzHhDXkMpi|*0+u|o>^m_`OUA~_jO;_bqmo@Q#yR$
z^Z^7x4lCbQ&_oc_80~jIBmBj;yEX=%7$4qIQh;ap*}Pfh4^O{1-8R4?$U#=xFRF9c
zZyQ0l5M>29ZO?>-VQ(kxwVk~sBD#P0_o~N7Ccg&_suviWe-SU`i#?iqBC+$+Tke=8
zJ${U#jqO?QNQu(Y?JuWZ=l590#P%NS4Ah)_c<QX98Oev?!}&&&=I5iV+-z4PjpRkE
zyroBF2Ihs%Jveqhn(}DHr{%ZknjZ-ibpOv5bXC7+8~PH0v}gE`PzW*;vi~=j`F^L!
zit(psirp6sNmmhMfvYaDPB?JZ)lf2*1ql)|my*4T+ufYbRYH*C;^6@(<Tnisl;2v9
zo?C|^+hvXj+ix!~4-{Fdua}w&XL*xr^yrzGyJs_#^OE<rr&TgE`v))GjZe=^!l`Iw
zs_7UQycWc7yDSV>>E+j~$A5i(Doslbt%%=U%QyNU6x}pa(7@4UV40Zl?AZZdviGQ#
ziOH}sVPO0CYPxdt>W^skxdGdJ+9;w9L!K=by9<u~UGR>fv7V`EzSZ^Ytu35#=dj0U
z?rom8@W2wJ^zOu7X+lr;6`1Mh=)}|{s9rn~qVTfGT%wr8#r_g9##2t`{Bul>n4>48
zXJWDt$mK*`U%-Z*6!<nG?X_%9*&+Lno<+NS>FMdIFmkA<A9n4!3u{tKnBn8+AI?nn
zo9mn{_MS-%Hda&&@?PywGBGntyW#mW<&3mX`CzfN);hL!C6QcygIwKpR@$d8qsyAo
zt)*UZN2q2s-7-<aE!(ID=jNVw^!%-IlPdQLuKg~8VlgTe`d6lGY-|dN0w$H+!#*pm
zxr>9vBX<NVzT_Gdy=!&5F+DWXkv2@*xcSMaPZ=*YWpvHDQ{=n{e?i2Z8IFy84rZy6
z_T4In<0!6N82k7{Eh;A`rx`=poKC)>oL5^rf~Jt$YqsWc`UgE0hh|k&RE#f1H(@Bv
zrn{X|n?Iua*OXljA3iM5>o#DWS)neov-&qnw>-CiI02(rtXJzWob@6FzvsKY3?q_9
z{P%XuM)tzQMw}=^SoJp~cR`PU!9k`4+8%#7(Q<jlQ!-D)ws$74YO(W2Q?!WVh-6Q1
zuS%4St?h}3h7+Ong%t8&Sw4^T-tJC6X={xXw<FHZoTHvBy}YxB4=K=Bg_w+5?YB%;
zj>1tE6QwfFgeVkS5|ZX|>gK(rhfWEnr&Y<7jo@;o+7kJv6WkYvvS2^63JZn3sW6-f
z9A->h96xKwOm<FQXZYD064l#N1A|NrRf$MIIRAS+xd;v^Ls(}q&uk54r0efT&lh`;
zF*@4X@ALB1U?=8!a^iSq>mJibr7tfpA2Za01BYGH*3-*$5>F^Ic*BGbnf5x1S%f*}
zLM*b#Y-=>f3Um?t){Ew+FGVYdoe@(b_2zb=rxVgNc+-id{w8?pFgd)U8eV<<`gMMC
zia>TZ=VT|i(;*Uh_jlQb3(SIb^Ne4IDe|!1^YyI><kCo%_Py@>T|w$+9X({1jh$Wh
ze1DPK&Kj{yoKKp=cWbo+&fq<jjF+L(Wj<kInfu7ZX-A=0VO!%_D8nAf9DW-Qq_%&4
zu3Y+hrihr?Wi28qnq6IOoT_mf0>29e!wTAd{}N(Y?vx5&C;Ymbo<;ISO>T{Edq2dM
zl)=Y+o{cZg*;rY%Lr$FtyS0|axpSLby%H{;>d%=jWLj(7WUfiic&ObvGw~hlzJOuz
zOnUDo#Qbc_H9|K7n{f(kj%|L8F3}i!w@T^5LMyKDo$BkimPuZ>*o>VXZ&Ap}HPRdr
zB#0|w9DduPe!{sm0j*Uw<Z`FYVi*E#pw_qQZO41T+Kq=MUXw8b4uldG3GW-IluIkd
z-of60wB!R*`+r3OlKzI2oqMhNZKYatPinROCPS4SB1`#r*$P1pIqf@y1fb~t>GC)b
zr^J9^VMKUE8*tdnz+Zl*-VA=JdNH?QW*veqSDP;ba*cFPBgJQwcKnc`AC%-!p$!u*
zZ5E^NPF@l`8CtSg+LRE;h}0pdf5Anz5f{)F#Z0$D3_kOrVa8?LNnh>=Z*-G>L}vzL
z{kQ98edt~@L^k+@eZZu$t?jy@`eQ+1;T|g~I)t4~O^zP9AAtN%yl^?9M)3Z4){wtB
zl#eq4=oQ!7^Xq<SU!CnLaT=FLPcN6KAV_6yHAA`MXsuzbPeqdVA{qcyUqnPCDm^~_
z^ul17dMKNa?v;~Tfb{Fw1nhx8S-B%e9wD+3taHzUVq;_ZSVL|{W#{CGJovP4vo?Qe
zqQQ2s)c&-D>w6yS&E?7X8y<N))@=#s%BgtUWzm~_jX&%Sczqx<cDB}vIMR$B_@|zK
zSnz6X|1gFx#%5)!n$Z(-rgA#T+qK^!F6+Yw)hI*ueq0jq`!W<I*B%``3nn`Wo3`NM
zgUh8?j@P<MBoZ6cudeu-`cl_*?Co>cczN&N9na0r7fVW~hTcj$5d1kek6;@>Ku@#h
z8dqov;kOG*?FZj=q$%09r^p$W*u*?#;mqsF(aWLX+TLxRC@D>8*O?blP39wy#$UP<
zJ`=0W;@6K+4=y;jEs4)6czH8#q(w+;a!0loTXz*ZPux1pDQ(<|SI5T0#8?j$TW9Cy
zwkG*8BDCCjyzLoHK0j7`&~?WjA6qt=`g_>CR%-B9jJedUvN38cA0MB%MMT2)rSb%9
zLSWky{VTmw*x7B4KX}CdUKr(j>8~$Is@EptlbNdPChZMoIF>gzE<d_U4cQ4YmLx=f
znMl8OLN(wHR1HJJ__E1Oxr>g?^5ZMMGWik752w76Bnf8z=Q5+BSe3s!M=>>QoqKnm
zE<r6bM)l%KnIzjE;V5@xrZMt-ubJz?S~CCXutNNcXfo9W4!h}(^H@tTLjFbA^DhCk
zfAOHQBXrfiRQC(4zuZlhHUTbZ?L7GG1pjs4Emr~Ka*ehMpIlZXz=7WpB|V*hE%w=T
z5x`XImz0!jZLbh6C<C|*lsP7!6vBMazw$0SJNvKOUy>QNYV((uU4T;D`M*I*YrF_<
zJcx})xhqqh2*q+mROv5Bxp3jaTvukq+ONZb(_YJx5j#N%z$AE-Q#D4eJ>F|1CAqcD
zPR5z)a!0-(Q~OEro-|0Ik?Ll_D%B|0Z<jOQ7ZhA|EIKllbYXvBwY1-}*VA4A9`iy!
zAh7tR*(0JQ#d}$<dL4AS7~K(d;m&opIqmv~1@mi97!P-5>*QSb*>K9m)EEK?^bbBg
zeCFMQ&rg-3n9oY2KYjYtCoJtxz>=Oe#&F8iw@`fRA6{K&bK$#ud7R3p9xql<Q7y%^
zJs!+yGuxRFf7R?M;I=z?L_m3tn4kRZ+qdiX1J{AwJyMsUN7|#k@?<fwJ~Qp-E<`s~
z3kWUHne2_`PuhF&+MTCr&!iTx8ANmlY}Doh=kMw6){h9JI~mb1nV<!PXN`9lbLFJ%
z3h%2?`v13TD%*yzHF~=uh=!{Rqvz^O2X4LJ((OlMWL`WI62NiJGC<6(F9p8J#BXzQ
zYgXMqTU~lHJ!gszNqIkc$ccxwgNWaC%QdOe^%!yvcEInr-%Sv|XG_dm$lgQ{UX_K~
z{mtmiH4>4;hTjO{ncbz5iKKjd-k>ACrYo2pNztF&_O7FiIo0|m)6s9`O}v<6lG=@h
z>&l%OaTvZ)O3D3?fr6(X>K;a4tJ|Sci0|&cInEqxWK8x-V&;?{%6fuAG+JDe0y#wO
z^m8^GhRW}C;`elU5Jdbcn%)N@%6&!xL7aSC7=a;|;jS?gRwUfG5Cj*PfZF}0SNoPl
zdV|Z`3rgG8oF0B)_9l!s?^3&;B!=G%6RiFzfA_VpVlCOWzt92)l(5Q16hWTpwjnHM
zCA6zN$i1-wM#uL(=J4Nk4w6U9Fd&GlY?a92Ao<fb-0k#Q=%AiPuAs+qjmokM3pG2e
zv@I+w`a$!K{rDkCmn3Q*zq=fVx9Wa>&qRa;L8Ro{&X2(=ZNL2esENoy_`|I>WN*C;
z-xDfS+c)R&7=_d|HF+Jtffmfp&yPz#>8RY_*Vk8}1+)I)!dRY{mzOhzASp_-?W6S4
zPGhovP2pPIV3{NF)m5|ZGRM(*H=w$UtEq58?r3^R+ukcRn^SKDlJ<tHJRCDw7!cWl
z=2K&!Kdi>;9``r5p<`aYbluVbO<R?KO8V_VAjpuSI9g;VaCiJ;!w%qfw>MRISb=B9
zqp|ORh-bNxdfj^L;A6Q7C=N-_-$!sH0sH<!MbIWI(*!*p*4gZSn1dnA0cM(^nWak<
zlMy(KAmOHM2)V!L64m+0KEq1a%R-;%5H1!M#=e#6`38W4cxm6tHt~r=ci)KSb}>O1
zy(*!q>9;QQ7b$gE6&F21At?=wUi&0%x_LoCDr;VhzQ-5S*_m;t${Y&sGlMq7aiBPB
zGVvyw%#0usyq5QV5k!#0^Og_z`S=F5Mba+@vv9UiWf5d`ADVtUSY}(!dwss+tjEwf
zW!%(j%j2Q-*Ui2@7d*ubaT#;1PG)<YrNpcue4e}uYs@|U+kF~PkMT^xP+ICzI#uoq
z-!LOZmJuMWh<|Mu2TI7W__pa*XB-T52nd#9=t=9IY#kGkGYF!{Zy7+iL6%(TE4XP?
zY8Q!B!%nr_v$nR@Yh^@aJ8USF=by%ZZ<8Qh0Z8?zmxPJ#M<>&d0M)0t1hu}@NBL(Y
zJ)QpjFb#?x&9;h-YKybCVahznBWj!nVCr$#>TG*Ibbv}Lic7?9qva7~naeWZlIp9J
zfq{Yf$-`$vc_VNC<LHGx#mo5D0(fa=y?oS`kQKwPXER*s_U{wkTZ-_X$t@e{gp_!x
zmMP-D>!ZjWsdkEooq2jKLMA;>btE?E(=@dfDA9ie^LPw(!YgTsXE>Q$=39uiTw1Io
z2|^7@^ce9<6xPOOX{$7u3p+O7sp6v5|AT?DZf<UWmh_zB;+Iek{@_@U4`mz~gQ4{g
z?J>!aa!MRt3Ir)iLSVov6!JnH&Jp|%qic^^G?bM?xFc_`a{@-7(du&8XRsG-9aBet
z`cj7Dc056Knus2P+*5pmN)mI#tWT^EWbn;TA*wPPH`yVAX4o5im^WbCmVHg-j+o0h
zbOI9m84W#;0+^WD-$$NTQi-Bzvz_v$#o?+O{=yJ<`fpGp6<A9>0t!&!6SfXPer+6m
zBSbG7xjeNelT~Y3BP72p<B#iYUj0Dnp=_<{I1Q>-nVanU6&YBO*?Z}+k+OE&BzyMo
z-@S*DAHJU<TI75`ew}7Z{r^NKmrss;{dx<|A07;H?cYmJ@atM_t<KUkb^><O@B)Gi
z>yFT|gP{Qg<PS-km!Fl@0YP8vx%3c<FDRNxTW}g(jZ%Gt+9^h&HI<cy$1bV@Jvc4n
zS54Chpj1_&fS~}*zo^^^6j9`UUBGthQFEH~kS44EF|eW0crOkrNjyW6fZOL9*|sqv
zUKx6KnPV(XL}qf{3lrK5J{N8xOpHgFR++#yS}DcQ4Ha$Fs%uCzQq@)aOwY!xOD_E|
zAav-Ao=M~wlY7EQ%kk6TcIoD0a-sOo+fRHA>neAi;86}{KHK^63DZjHNb$h|{IO@Z
zz+oayWWEAyfC{`$bp9DA%T7-@)K*dL@A&26RY)#f;`EwMdx(O3e)aORcWQ~*5i+~_
zQQi5bGXF)eG?R}0T%K$mtlq68<#o9cP2vbTD5O1i$(t63T>pFda}V|#u(b0WKhQ*3
zp{&UMML_?M4u(LxJd-XFR{BgE&dqxDo=*vN{Yv>-FrfPzs?A&&yrq`G<^4_s)_sqo
zn$iK^<hxk-=Y>*4rj1ANV&NxN1AqA)t0s5khnv@o0SKMhUm!ZB(U-y>dx!h@JF@2}
zNizMDz4D*jmjA|=k6)}I0T~+0^g-d<pK;FxC%uw1gFnyp^jS%%#NDaKXRB`P=|`Y$
zbJxv`SFc*~Sr0vux)s;Vlfg<lcPKp#7${=yeBd;K&;v64&$^hfj{Or{m=u5!a=<W?
zsr=o$TQtk=dwnR_r`kF?J^eZRkd(0?32z3-;&@;+KBL5qrHK;zLD9p&?V_NB_4M_<
z+5ys0olDf(jSX5HSKyG@^l3@;9<vQ!ckMAt@1h^tepxi_B_N1j?Y#5PmPqNyb8I}?
z#%?4w_>(Bt>8>oW^@oz#6!=dl+_~|9`}kXo@2zkAQo9YxH^1+F6A^X&q`-R}b3G4p
z>8HQ4V3v0Ff?I`}pXPcILAnb>$ZD>m?;S9CG%PGKK!aRV2E*pH>a8ekQ&azza~;k#
z-V|NF7|omXdj=`?wd9<)Z{<Oc^`@l+fFp>WhT9yaRLa;w>w&x&nvBj8P!tkT9oT3*
zkWd<-%S_Jj-%~om9DIT~c#>Mpbp~n2x^5kHQaUT)db`QI6ZhO9;{5&M;Pdxg_bJtF
znz@4|h!~##ZvhV8S9m64u!aHnNmnatpfM37e@>D6D9t<!<Z1_0>?w0Jg;#aq>}YPn
zN;fnhNcSphFg3W#r^8AsYwy!N-+m?KT}mVDCf*Arux?r3t=UW<q`2us51Q{tYd1hQ
z<2uk?(!FOVGgF{DbEJ?1*`)PmtY_L&d(Bb;6w~fO*&$uk7;6Li6(rB|_S&D3{+CH9
z$O?NNA+`Q055J3pJE1p2#PJ+|5BN`t(ZdvQ&@<S8Cl6m656y~4grwY?!OR8`+Qs4@
zO?gTkhO-OI8s?Z}HXch7ia3}U1ozXCj%w7=*i^pnf~{edd#?1x7=0M0%m^<1?U$oY
zk>V>Y*VbSzR=~8jzZ@7#zoP%UtkyeKnof0Hs%JBb&?<(ml=$RJt<?$6J$*P(9IU$p
zWIQPnan&jt^{dkTpr0z_w-h=6p5dCfVkp8E3GE)}q0G$X<kJMqhXz#pT`wBAxq>%t
zTmS4t@5FI|Bzi$snggGJ#_}iw-R)5KTRt`sg1CCr;MO!H5_N@NYg=1q!HB_s>dim4
zRF>BD`s?zTE;a&BGQM~39A*x6oP+N9+bFe69SkN<W_Kx~Va;pFv$}rrSeS0DS)59S
z8qTD_@GGqy09_bYtMD{RM9{?R)LiQFll=z{qi)^vqArxVt+a}fKuSyJ?b$_ycTXq#
z`^h`bdc95d;8t@tnRTuFOle(vBCCf^IyF$~sOM)N5YAP{%eOMs+68TjoRDLeY+y+O
z4xtL%TO`xHY+6BXd3AN5+N+3XcCm^~OCjFln$SQvvQHp9mOJwAu|lSKw7cf}3I-~$
znKYrdMjkbdGxhTdO>3M=F2hc%-A$4-Sn@QEysbbY<`V?T^=ziyzy{X96(ND2*m*+F
zI2GDUGo^zLwrjd?g{prB(&USY(?<q@(yYzOTVba&;6$Lx4?|&wQX;wN>mf<a1llsX
z@l{M)SN9!%ezhj_2xW|}WNxlQ<u`Nq+(C)yo+=!SAJ-rB{Xi8RHEkG}ZWv&a&2*BD
ze4mx&9B1qjf^Dk+kyHWnzogtG%Bavhq}g0}5$5CqKCHufDVS$$`{dSLBsmC}*dMWi
zCUe5CpL+wPF}`vV>xkbeh1(s*KLsu7;kR^h2zN5O9O?p4i?Elr1w-#9rKs~og3(Ro
z+I*90Qft~}5Or})=0k54Lyfs3t(-?04xTJ`l~|D8-7pioUx&ac8@BfGB&t=_hq6_{
zo5d9Zt%pwue_0sC@0C;3B@*4^Ft{v`s>uff>p;#mgt4PLEreg|4iZO1*?mWio29pG
zU)oj;Ryub1HI@*t3-ny0`+s}(bs|D$5hUkq0v1wA%)IdkvAz98jfrOH-b-)jf7P&q
zWpITwgNXV1{AfH1H@ukNabFmiga%usZgLqoy&e!*W$4UwJ10@QzA=ZIwcdGqxg+JC
zk|W$2cR8Vh=z*u2lvy;#>R#IgBZRhpc?W|(=cT8A8FnAEw|BUMwPz?lPql<tQ;ULk
z`u(Gf?d|Pz7Hl2Qgx5OeS#a)%d@C8YA1<?&`7tnEv5tD-m=JjDo>QCk;!p)3#xn(O
zJ^=w*;}zq()^n0#yUTu`w|mLsq5YO5Fj8IJ*qRZ_j_6)-GFGkDf8H^Fs;tCKhB&`T
zn!4tlM4YPtF!CUUTuN$>7qNvtOo`XZBiK7;J007z{W5@CV#BV{r_Y=z+DpJ@zke@2
zB|16qbc(XjSokKP#eI5U`qI{~sBkvOv_41&!HOTO@acK~A(#>F=SQX+tDE5LLyy^H
zWa^X@u2?tMuxF98{#Oy3ml&TVMVeG?Lkk#{s_Gd#2YniMT9@|UT}cLK%FV3=<2laY
zJATmAs^B>^zM-Q94`>esbKrO#2RqU?cTdqq@!Pbh+1sU_^-DGK9&G0!7DnuvJ+F5}
z5M++_zW}Ev2NsP@3E}hD6#gUkj|W{!@{|XOXc<akWa0P#!_j=CVS+#4yog=j?<a)@
z(5IjsL9V6d(SW$Kv-70TCmTU_W)j(duj*0Dt5k3)A>Ndse{JK;IZEll`}>=~*5ejR
zh=xHA`+k2=x$!-ehF9OdsX#w+F@0LbaAikJQ}Zp&(u!2#xCi|cFu_0xV*UJRb7p7e
z#P%!shq>5$<mFo`t)tsdY?vKFBy@~2TTy>B(SD&jl%nOldayX`|Ik_*^GE$^6Xjbu
SYt;p-MwAuR6!PTn2mTv?8>4do

literal 9577
zcmeHtXH-<(mhC|lR6rC36%@P(sDPjnB=e~R36dn|ppt`<3kpy_11caHC5dE7l5<iK
z5uwN>85Jm?fKpOP6-D(r-+kR<^t=7WyFdC@_jSO*s$F%?K6|Y_*PL^ma6KJ$w!PeY
z5d>k=xT<1+APiIJ?`|e|2RqOd4}X~KwbWJMFZ|oQQXdL`_IO=2^F|OB4)m9yZ#-lR
zK~5kVDwhlcQkKSpyexe;+kfF?gE|zGhpry5Xc^ISK6;{5by~>$#2<I1v$HsvIK@v!
zo)GT-`sR2~@7)81kB5{E-&$trsqOt_bYSW611`=v&KzSc1`DU;3TLr#BALwGyeN6C
z%z31o`n;d)nj_KWQ8r0fl&vR?Un~2S;;n-qud;%P3<x4~?0_wTu>Q&4a@fiz+8Q%2
zNIWl~;XV7Mmqon6R#C0DahpP<tmP`F(tjsUZsi!4Si8#{*f;R)&a)jP-;?|;SH|sb
zTsYcj(iBg#etA>oVNkAu=Y#^56g1fxx)tFWd<AbE<bGZ)Rz>ojq(PMa3AfinjK>}`
z^9G!t)6L3nId5-mzLfKQ^G)SjImuTcZfUfdxJgLIPj|$w=0@;b)UmR%qToWeGk^VP
zPwr+$PPRS{U}`AQ7IIL0XGfaPO&^Lku^uL^;eux+%&Xj9w5lNIR+4rG&?xJa52uu(
z>Azc<`3x0!P5k|<v;5QTB96;ThlY?kqb^PaWN!a_q&zopUDrr~7oQ^Qy^_BAS)?Sd
zveKxsvQmy%SiVLIrPoif>MGMJlr~DE^54AClyK}GsB#}&A>1rCqb)irU%ztYzFHJ-
zQL<-~S*@i`U%hzc#~-)be%!v6reLO(AbO@ohjcT7PuV(CEuzn)nPTMY>&v<I^2UYy
zACdAp;>}xkwksa69A0=+P%Ql0w^6Kaj(<Fmkor=}HQ`M`!Fq>oh=FG_t!n#syYj-H
z2X%VpdNbGi)3+;d_(dv*XU0-uRx@qM)5XPQp?W#|R9as1){OZ5Zr?tQQ_h_UXR%ch
zyip>_U7ErTx*MT;D6gN2^;!9kOU)^f=I474H~rjYWMWc~pRW<6xRLbzS3oPX*Zc8m
zW^YCI%8z=ZQUksL=SI)>_>JFgKVG-ir)6YiRWw*&!nZQk*F&AQ^$=-!Jj<HZ?@XXJ
z5$ES`cgx~OMiz3kUwlssT9zfGct<Hw@~9Mia~gdMLS4%#Vk|>QNmjzv1#NE<sFv2=
z-sSSYJ{%l}1+|n;_GMRGd(NXAvh|AS@8eUmvT}z!o9tO<DMqOBoLpY6C8TX_rqj0w
z;}G%rk<n2r_=<>0u}?|khIxAD9IY-Ybn6FpcG%yTkWx=sC>WQ*TmF!fm$wp%z3o2{
zm@7|P>wnY`DeXQoy+9;dsjEMtwkvOcQ(DVluWbw>@7wfk#H%|vWCjsZ{Vm};7sq{K
zd8Az8>X)iUErsLn96x^C<K3ToJi1;=F?K5sY{1p{{KXr7UT*fa!LA#TTiHXrdTNEP
zy_}ZzoJgSukR}>+VmfbJxUw8eE5T=MY(6_GF~)XrY$~QBYqZ=ks(!JoGesa#C-+gq
zHq&S|RX&Lrm?!mcr1&!a+uh<)y02`H-?bE(UK(Vfcdez^^V(D%O!~1!_gzQwwRbG0
zcqdxk3Ad=dlMUBceta_0OT@U)Yjw8EyIYoAi^F!)HgTcdq03GFM-JNrms(W17^Qc*
zczF2fDy|!D|IiltAyB)#yv%@KUR?Bng!dpXkJGw|b8}uXV`+*(`<&#{0%wo<)7J6q
zGOmt}xv>M{DeAm|S?KaSY*-Z3N~r1Ak?$JB<H@!C$2B3AL6rI2Rleq5A9=($!fV{5
zla-gKlk}!~$aG2<_Qa^NX_!sWk`(zad$4U!iO8X-%hVf_n;YXFTQ@f0im(=%*((Ik
z;j)=9#xYkqw!Zm(ZQ3JqhdhTs83tar2*y1>udpjh&TTSFkoBn3dY&RJS8r@6PIZda
zYwId)W<g}LAkXq4pUD$JC3k9562z?DoVlLEN?e(sZ<7gh5|!jJ)Fhs~TmV}cr%Z1s
zu3whxN;-d~dhE{Ak&zJr4SD}%!<#p=Vec_-jU-xQG$d|)(c_QS1B8HWnTxjx#kSza
zOC25w<mcoF(O0Zs0L23$=LOdxQ5w;P-iLn9AyW3%C)}h77K`1cmzrwB`fd_cV}wOS
zn1f~g@?hH@)RDPlQSGthPZ=t*82tKGrcgGBbL7<hqi*S>vD)kCO52y3Zf~88l(GMG
z^kKPY5E~hz^jzwpw<vSvajHCJF7pxg#e-R1m-J%`kP_ivb_5TZInFQFlZGU43Yjk?
z9N!ccYO}GiVHQi<B|XMu28V|BQ7Xm4Y%-E0onu0%qmv8K>b$+fj_F0=2Tutnb~>-k
z^)4(g^ZpFd?YLo(o9g${qiOTj63iywP!qCd;FW(Qz?gvmhrWqPqCvjlcDlFD!BaZN
z?tFADX*9Ok{A^O;GALYRUb*nRdh?G%Biq)FDYw<qNxEe7@>>zz0I8Rn#keDc<27fL
zCqg4yH#%C~-oxs}>Ey2Fx=%JWPT^VoCwZTp7&@{b$Lb=lfMZ#^@Mz@JBa8)u8h<$w
z1@&OG+7nN1rejm@d_EJCRqIVy(6XWQg(=&O62Ce`4USa0vO6z9n5?1{R<3SG7Lu7;
zAQ4<#U41ua5{VF>I)H?klzx$thS%4UrO(86oQ~H#6MgkGcZ3UdW9g-G==Lk(n)T4V
zT`VigwnM$W8GN)k^(#t`O`*C#sB$el8;x*E)Iu@X`AZXx)aO;yzizdwtE-NX7DT}=
zVaemUkcVuTVe~y>aeZ9pOq{lm?~jO!vpA6o-G>D^IckLT&?b+@bz`U_OXKw>liM5B
zEFoQ9<fYc#_7Ruyc6zRd9F{XSIx@zL!=gWnwxki9yHjM}6c-QW>1PUPq*DfR*Sh6N
zd9}5HJtfqk>ZWY@<(kY%-AnB4z3O~L0B8$Yu{s8-st=mhi#+GiO7^<fKlCi-*Y`GV
z<&cI*`DK~G!NK`&kNAd4+j(I_2rK?<VU+vvOv2E}C|f-E8w+KNplst+Bu{F%&bKwi
zJUB3r_2kK3E6jX$-PAo6io*M^lL==n*0RO18d1vIHNlhkn%h6tV2RE9b9LF*jt<*0
zjc!{ze0<j1aVovg#0D!BIs&UFh+7@#={YwyBWC*c51xx2hA>ARz@$_FuFchlBd6Z4
zPu*vCSsJN?1U3Xf7Hj%#ufe^BQBK0jTV5*EpM%_pu>W$Ftx<R1Y}JluH`0E56WsSM
zluotjO1>ygXF58$HG6UW1uj_aRC;jPuN#b`70$6a*OGH!*dpp4y<MsGTO@Ka&N^_0
zQ#Din+Dl1|dcUQ<nM9jn7O|Q?Y^WpnLUnn!Qr)m7wJ~|S2dWod#1R4+x9jI~l6TPS
z-d`gns|s-JK}$STxya($S#DzKKG(&Auf)?B7!lhr#}))Ra^gQ9WNQ3nWmLAt4kJ@u
z=f5U*#3{7Q`_u_|=F22q6?m<}f8g`QfRciO>n0{9>Euzi`>@oi{0Dsf{LG^`PEV4h
zFl%#LeEhp(M@GyAV>RH1sK3L=*f^)G?1Hb4k7*P~4TXY%%_`xe`yBW{T*r-p{(cAP
zD}ZJIJJi%}t)73J)c-ZdfA-~W$rd8M1V3nEQ<RX9pts$qjUe|p*cR?>ERPqAdemQI
zIV@%fOh@l93-ZV5U0hSJ@UF98Ufloa55z1cD?p)`LZQ4$I9_#CfM4T@8sq31nH9Hs
zC|qSarJPq#uZh%2ru8gI;8q15teUQ2ZKAIV_>6MFaG>>ERe^~lH`_Sv5g~Av%-2}G
z9+F!hR=ng(9Gd5&|9+H)-7q`uJD^YL_HW93`SRt~CP4UefmE+|dniz%_kW0C&h~e_
zQEpa#^hp~TD@(W>$he}QTWi^kiEDusk8DHSCmPIvyEy6Ne=3yZjY{4At|E2u;^Czg
z=J%zh3PAHpO$#UI?<xu$k@qV!F1E~XdwSRvXn}dDy=waXIY8BDf$V<g%Ia$7%Eh;E
zPC<@6{YRf<7Z;;+Rx`JMD0AnV*RL-}UsXv>O@$Yq$=C>9MY*_kdw2IDpa(G>H#G2A
zVo~+l_ow0sK3%V52|l0C<i-V$qcI+-6!Br7a{W&+o(W^vxA^ESNBEx~pB>GV^`4!Z
z2qFzS=caNEs4^n^<?c3}R>D$zuB9s}etNnSIT80;5#{~+|8@9h)<8w8@f9IZSX^9u
zy)3Yal#J68Z6b*PwdM$ijhE*nDLhHOQjJr<#b))mCkjBs+w4oXq!TnnxkTnMZTrJj
zzC?xtp_L_Q4~ZpAP_Gb|S+k}Y{JPJ?YsO=S8z%0L-g#)BpO>d66ss?nS_NC6k=gU>
z#tTB=n>TOvj{9jCn3=t}@It$z`fO}RoKK_ur<psq+Es+(_gaNHlqQu87Y6z>8LS{$
zBwkx%3}3WGx1MOX?983o9`|H#v1WI>K57fU+o<61Qu(<L?^jH5Gj}p-_K_X2^z&bR
zKa;~4kaK_h>+t_sgZ%+vbl}trkCeCUdQfD`+sQrUBUjYjt)t2xeL|cI3F`@G3bgA?
z6vtOM_gC1rJqaP8`Z*>G5FP?~BJp^_1T(W;@bjs_wBSkh@v6-xzRyd5J{;}#&x1p!
zLruC?70Mm>Il@25I+ppB2BbM+Qa8HKJ#X1DHZf7W=b#X4UC-g>->MpYsMxdcs1?k+
z$^L{y)fC{!kvMdpL<NGdZ-(uv!D;e~L*3|^dz}n9IXMNb@GGrYJ^Rw6;q&?y7OrI;
z=L6GnO+|AcDa((R4KIe}GILGMbSAn2J%DcwyBTXGiW#}Ox^8bN)8=(!Ca^E+ii*zW
z-F$SGBm8vq)g(wT0QiN41%tomD_rD>3jf05V#Qzh?Fw8nLxBrU5U(u+KU#ImK=C!}
ztj}i|oQZXK-PB~gw6v5FgxFlao~bRAnU=;|eiZ5y=hHSyDz9mnV|PkEP*}|vkGlCB
zrC+<iUg4bK5n3hS#6Py}K=yN=q@Ut~dUkjBIj~&*ryTalv~<g^udN;OhI`w`vx_kp
zB$XECVpDD!<_$MD_ZkqRgd1?j?+R_hY=VD59z0~@831AiRCd08lIEeo#E6{uvX@B)
z7;S9F9Ej%rw!=1sKoV#KW%`*xHw5|9xT5EU&Gt&-`iyv}Stw|hO3b>8Mht1y+X6w3
zy}8G*4R!Jr@HHdl%?@2)gMu0ubRHLuAc&puxt5uk8O>}1td6UP$Fe^+1R>3?F>S2B
zKU0NYzt9XkB{$aJtTKR(sXAIQ3b@X6Ya5%AQP1W^$yf$tzda*U4OwuuBxJq7yuwLe
zgLwxKBE6r2PTyfi-9E(nld?_(J(LIh2h0fqodF5Ea{XuSD+>z?lou}i{t+cUr~nh?
z+N;DkQR$i}q?2O$=C8}bm&HSVvCy{3&57Q{hN}qTWqSHI#~P=JWybQdhlYVDS7&-R
z&uw_$X)jYvK|z5b_;OyR-^4`_#P-#c#MF6*kJFO}Ty5Ol-5*srnVAj$4NJ@TiM2^1
zynuuU%;$O<za?&*ZEyxid$m&{DJ7N=s3{byYLQu3SUBCTLaP7rVAE8z(n->M%_e>g
z=!5cMhufmd^?qMNX4}bFpqs0J{kCD%?xP9xP_e}RzHBYdaFu<5Np8|XpAv7MPVt_F
zo$ResYgs%!x&ifn0VJK+{L4$p((W(C8rS+_iidfo&hb8t(T-Flq=1^ys=L)=kRLaE
zKDz7HmBY3L)Hb*bV{Vmg7#Yhq2hfA6q`b^X16Nn#-`HY1ZtR;Uva6C>Z^~XNT~m5{
zdc6t?MNF{?D|$)11u648oW0RMAbX<foI=v=?ia@ozR(t`V5n+HZTs<yL6>jHHGZ_p
z{kp2E>Ip^$#7joxH|uW*3r^YP)2(u#H|BLd&i|f>0l<r}%7M@Er3^^R&qJavo?h>N
zVmT3HLThgbdrf)ybub${=$u(v;*Ex2v1Gqw0~i%PGDR$DwmxhfkWp7(KR7;Kgi;#N
zQX+rP;8sN3tW3qkIxrh*E+McEtP~$QjhyHrjUbl`Y{Qf(y-_aUg=|Jm2CrU|l9J*K
z5`vMEDR#TF<`q|SQ|>%5x3HKAOydohVo;<mmjB0PHDZOFi9<!^^?pSu-jsRWP`NpI
z41$C)n*0=;1M>?qAiuO!|Jt={PuhQ&H)4GAZ^4eM*vk~~IqnRz&tKc&9z$fCJ#8W>
zXi^zCH?mKs712$WzV?^f_k)c`dTz`ccb1|DThXeO?;QndN-?+;PC$@Xur{a*2AtCD
z%`k%OF1p8{G@Im5;Y&0wvZ#if(0R&r_B;Cp1lb?<H&^ZmHPq>gxBoj@G&8dz$dmgB
zszCmS98SDNJjZJE&z?Q|Qr^EfLDY<607ZYzySr*KGA@C`*^i3tsw!!eYy0-Xit0$t
zv4CI*SGgRn@)|cU@3%O&Dr=0vSEXc_Lavagf|Js?RkRSTS^H;OU*AhAbqY+4yupRH
z5T7K^q)3?6CyAEyPpmU@IEAHpW4?!<8tCim^K=leo#xQ!LzS%RQ?6aLi*KQT>Sw9}
zF0iH%^6TpArinrvdya>0{Svgfcy)b!off%=kh0uJw$2Q{rw>AHXlN*=gcz9ix;GEF
zfM#8B+b_O~00j>}x}k}Q<6jl|6d^@eSoq7WPd6?wra=`fA1;J@evO)1Wo2cPo8a(0
zN0kLC^Zuh0=M@!oxdD6pOFJg^&HHHJ#{m|l-M;GeN!|CGj#l507xS)7Ny99hL8k&H
zu5*7*eDL_cE6I+S;(AA18j1iNH~OZP%Ahy{0A>U+S^ihW`K$K|S{r~L45GlAkig|W
zUMH3JlnFWEvm=N}A#mk}BDhnRtd1c_23J%1Hel<{e^y!kFaO+Qb5ZW7c4kGKY_5--
zRYfI)4Scp<v1XGDcTp}-$WPlq0&CzSRQLt0N{;YHUv0)Fbk01>*%L_!6l#A>qCQc}
zywe@;Gww7nEp`@!bn>Fa{5ZA9fK+b3iVbZU_0M-a^0=ed+=&_dX$yczk#CZ%@=zWs
zY+HB4R;GGq)HB4t`vY%bTC85M^j3yz*zr-5hiUP9>&8)sTC4j-?i^E>ab8b17pvn$
ztKQ4zY71RosVpCM)4+>7v=qaWFf8vSrtF(vOD0*0<+@3CmImx+lH<}6Ox1ZLhEfNi
z_U}#hrC-BxSO29z|0w|uBI6NXh^aTBdk}gzf&|OwhuKi=!8MgC?~i(xb)+V$p_y6!
zS&OQj{|5u}STL(y7kxK|9XrX`)WF#nBX8~QN6OA7ZEcQ^kH=(Lik-r(GBu`LCPWAr
zkA4fZb}D{vz&(dy>0EazJ>H0Sgn%2AH_&$%kiS=fe}lETv!PHjsnz3{>YE^dI_%Aq
z!4fzD*oIbq!#6KQ+<XnDCUpI%+C#-46gFSRp3>$0MRkLY32ozrx5o!h69wLj@?4-+
z!Ccp>oBa@eP<=~@2ON}PB_2ggMMqtmF`y)zuzbCLel09FNbHs8(DK*PD`;~{i8_p1
z0I$**{J==Xjjth$&~*d>va59ZQn(5~=pV3nC6Y5tL6Hm$4ob~+^X3DTf}=DrJnXEf
z`3l@g=$%zMwC@Ao%*4W?09tT2E}$cyKYuoa3r9x&H3C!>mi6H>!T-N9(Rja-!-zy8
z+6WsOG6q+FJ#f<uL+<qw<+?7({WaDDLDUNWaFq$#aO+A_l>hIyS^~OdO+N3Ec=2pw
zarpXYK`Ia~RD*$SG|bvo=7{4pGBiBR&9;V9NY)aH{d}t&JXBPX0duJLC!yYPq52+6
zXy?FP1DL=IL%CFA;dlchqxkjHcU?U_O{}a^6>z8v2bltr4n!HOYeR!2C_I{ucwktO
z`$&Zb-qJfFEqDbrA^lNfooDj*!yKJd7g)~_a{c7|Bz?QuqvjhEj1Pixot?b}ZGq3=
zuvrByRo2bDemXEV<^~@|&!M<E9a~4+7%fuYGd7Taef^6B4iqM8tnhf$T!IF}064QA
zikiv|JAoVC^=dQ@L?GHy;AaufKlz^G-Q9aY{g|Di+7w76w3fpE;PxaT2<SMRZUBtw
z!uH)`s536nE%P4p>~)f2kl$R>%@d8(FCkx&&JQ`T&b<xV!;OTIcUa$JLRt`p?NDfY
z0P}EhcGee5Ea!DJmG&6RgL2oEDsKX<-BR9DUeJzIUVqQG-Gh17G7eParG#T7*IDzd
z=&j3!8Kd1GWqj8MO$xHJRe{>79pr7Ws`tx>S7?JBh=1mU&;o+&q@m9O2tFWe7&}e=
zIWK*&=a-oiU&4yt(Gi3+T&|8vwDk`Mb&vHB+JD@JU9JtTvrhCW7Heoeg9D#KU9Q)K
zg6-nzS<QRq+`NxDxQY-tFcw|fBaefeCr^epM}naV#^x|4>%R0?cSk_~I%sVAfXV1G
zTz2#1iU}POslsje!gwg120DJAJ5~P5?I4i~&xxniwP14uE!V2M4i)MP#U35P@AC=X
zSH-S{t!Eu%x05BTK}*KUvuQI&NIU7(bzMax0Q$|<APj~=JB@)^hCr{Bpu9ngrY3zL
zV+A?F^=RC!D>I!^?jw>#rls#Naeu@oCK5tz<hdgre)mryH!rz?2@BnJu#qc!Razkn
zuPgB4LKR{>Js)gz1^tpf{ItzyCf?*tW1|(?j`3R>$^Q6JO-fSos@!kt290c&@0pmf
z_iffzW~Qm=5NU5oUS3bx%}&ve!g7R^w1Dq>Dl00U%`qRK!m{E2+;i|U`6Cj8wmzyS
zLoCp)A0SP)GCi0Wy(6*fRwb6|hutVoAJkVro=plS$iK<YFXeUpilzjrRMLNcIJMHs
zJzrhj3bUh09}ZVRYjw(X>Ey2TkaOfE#-;ZLlVVpmZE>qU0Lxl2ex!*aFkC<+6W_6j
z$NAVs#i+e@lP-Y9s?$)RSw?`+pzG$!jCn&qsR9m8GYI)II5Og*XnX>w-K!r_%GP)*
z|5W25^K9rPS)=W`b<?}t|KLcsJq~t=eE5(_apluVl+9Myy=Q{9^6d|k6HKEQNrR)7
za;ZZ!@?=Rz>?z_}zb<K2^H0ew>PG9b1cY}Q|9qpjuMZ|BGD)uV`gR$fWthNZF_w9Z
z%XOtIE7KK|Q7eJc!mMPgVDuK;8X<Ul61Kx4bhS_!R^hi~j{W_fZwOl7=lIi)Z*VVG
zt%6#FzSwdf+IiZ=!u71iJ$R`SF9}bMfItShHcugz;6Fz2Kmzi(pnIa4{%g3uUt&s0
zbbToX6*soi*wr0K*#3VYj4gKd19|!<DQCs+zWtW_3Y^Ur30vEpL~QzKsY5&36zk*h
zY{&o-KM$StW+kvVT%h&6i5n*${fUkomAC~2UGrCfrFi37Op13MG_<8|eK~?Y)R8JT
z=u#f`eg^}S+FRHXU|hj=bo%!00p*jr((8k|3i{~N8pU-B!s8*-C9IMOhHMoEPei<i
zo6G~P3y2aC5iwG8J98Ua;|oRA69&TZeNV-koGQ&)?Cv6rC&w0t%V(%fI?6O3Xsr_g
zyy8eyIr5k{m^2F^>CGWDj8(w52QM$&)J!LDp+Q}*Zl+yp-t6+MfUzbU)<Z{Ob~O`^
zF==>0$>{GU<*CUkzizhQ%sT-zD<K-ky}z6X>m?fSTJz7l{QNB~cDMSnG|)bAg~xbZ
z2m#tk3-?&Wdfq)?K?|m@zdw)m?qj^W&v_+<t7V$QBL}m%^mIB;HM&6PvmUTC5I3~N
zQnxvqY-D6~Q&DWc`4%@k@x&Cs#EOJ5?D&5i?$Q}&6n7pJl~+s$rHp8(>ZlZ7w!Qan
D_|X2r

diff --git a/reference/WHOCC.html b/reference/WHOCC.html
index aa57037a..3a58a540 100644
--- a/reference/WHOCC.html
+++ b/reference/WHOCC.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <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 a0017d78..1133d7a5 100644
--- a/reference/WHONET.html
+++ b/reference/WHONET.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <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 d4381264..81c91232 100644
--- a/reference/ab_from_text.html
+++ b/reference/ab_from_text.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <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 73a77ecc..200fb3c9 100644
--- a/reference/ab_property.html
+++ b/reference/ab_property.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <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 63daee96..fc436d8e 100644
--- a/reference/add_custom_antimicrobials.html
+++ b/reference/add_custom_antimicrobials.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <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 e45d1d18..3c0200f7 100644
--- a/reference/add_custom_microorganisms.html
+++ b/reference/add_custom_microorganisms.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <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 f918976a..6cea4cb1 100644
--- a/reference/age.html
+++ b/reference/age.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -222,16 +222,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  1968-10-06  55  55.15890         31</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 2  1954-09-27  69  69.18356         45</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 3  1984-09-22  39  39.19726         15</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 4  1939-07-03  84  84.41918         60</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 5  1984-07-23  39  39.36438         15</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 6  1998-04-21  25  25.61918          1</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 7  1940-12-19  82  82.95616         59</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 8  1993-02-19  30  30.78630          6</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 9  1968-03-29  55  55.68219         31</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 10 1969-09-11  54  54.22740         30</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 1  1996-05-18  27  27.54521          3</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 2  1993-07-19  30  30.37534          6</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 3  1988-03-07  35  35.74247         11</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 4  1967-08-23  56  56.27945         32</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 5  1997-05-21  26  26.53699          2</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 6  1991-09-02  32  32.25205          8</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 7  1994-03-18  29  29.71233          5</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 8  1985-08-18  38  38.29315         14</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 9  1952-01-29  71  71.84384         47</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 10 1988-05-05  35  35.58082         11</span>
 </code></pre></div>
     </div>
   </main><aside class="col-md-3"><nav id="toc"><h2>On this page</h2>
diff --git a/reference/age_groups.html b/reference/age_groups.html
index 223e4603..2b17e038 100644
--- a/reference/age_groups.html
+++ b/reference/age_groups.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <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 5487c965..34ce5723 100644
--- a/reference/antibiogram.html
+++ b/reference/antibiogram.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/antibiotic_class_selectors.html b/reference/antibiotic_class_selectors.html
index 3bda475d..22125702 100644
--- a/reference/antibiotic_class_selectors.html
+++ b/reference/antibiotic_class_selectors.html
@@ -12,7 +12,7 @@ In short, if you have a column name that resembles an antimicrobial drug, it wil
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -626,11 +626,11 @@ In short, if you have a column name that resembles an antimicrobial drug, it wil
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># A tibble: 5 × 1</span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   kefzol</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   <span style="color: #949494; font-style: italic;">&lt;sir&gt;</span> </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">1</span> I     </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">2</span> S     </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">3</span> R     </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">1</span> R     </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">2</span> R     </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">3</span> I     </span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">4</span> I     </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">5</span> S     </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">5</span> I     </span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="kw">if</span> <span class="op">(</span><span class="kw"><a href="https://rdrr.io/r/base/library.html" class="external-link">require</a></span><span class="op">(</span><span class="st"><a href="https://dplyr.tidyverse.org" class="external-link">"dplyr"</a></span><span class="op">)</span><span class="op">)</span> <span class="op">{</span></span></span>
 <span class="r-in"><span>  <span class="co"># get AMR for all aminoglycosides e.g., per ward:</span></span></span>
diff --git a/reference/antibiotics.html b/reference/antibiotics.html
index 657653ac..84a824bb 100644
--- a/reference/antibiotics.html
+++ b/reference/antibiotics.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <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 5df52c2a..cbe82e18 100644
--- a/reference/as.ab.html
+++ b/reference/as.ab.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <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 7daa7d57..30b6906c 100644
--- a/reference/as.av.html
+++ b/reference/as.av.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <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 725daf5d..ff3e6c4c 100644
--- a/reference/as.disk.html
+++ b/reference/as.disk.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/as.mic.html b/reference/as.mic.html
index 07938b15..cee05c38 100644
--- a/reference/as.mic.html
+++ b/reference/as.mic.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -167,9 +167,11 @@
     <h2 id="ref-usage">Usage<a class="anchor" aria-label="anchor" href="#ref-usage"></a></h2>
     <div class="sourceCode"><pre class="sourceCode r"><code><span><span class="fu">as.mic</span><span class="op">(</span><span class="va">x</span>, na.rm <span class="op">=</span> <span class="cn">FALSE</span>, keep_operators <span class="op">=</span> <span class="st">"all"</span><span class="op">)</span></span>
 <span></span>
+<span><span class="fu">is.mic</span><span class="op">(</span><span class="va">x</span><span class="op">)</span></span>
+<span></span>
 <span><span class="va">NA_mic_</span></span>
 <span></span>
-<span><span class="fu">is.mic</span><span class="op">(</span><span class="va">x</span><span class="op">)</span></span>
+<span><span class="fu">rescale_mic</span><span class="op">(</span><span class="va">x</span>, <span class="va">mic_range</span>, keep_operators <span class="op">=</span> <span class="st">"edges"</span>, as.mic <span class="op">=</span> <span class="cn">TRUE</span><span class="op">)</span></span>
 <span></span>
 <span><span class="co"># S3 method for mic</span></span>
 <span><span class="fu"><a href="https://rdrr.io/r/base/droplevels.html" class="external-link">droplevels</a></span><span class="op">(</span><span class="va">x</span>, as.mic <span class="op">=</span> <span class="cn">FALSE</span>, <span class="va">...</span><span class="op">)</span></span></code></pre></div>
@@ -189,6 +191,10 @@
 <dd><p>a <a href="https://rdrr.io/r/base/character.html" class="external-link">character</a> specifying how to handle operators (such as <code>&gt;</code> and <code>&lt;=</code>) in the input. Accepts one of three values: <code>"all"</code> (or <code>TRUE</code>) to keep all operators, <code>"none"</code> (or <code>FALSE</code>) to remove all operators, or <code>"edges"</code> to keep operators only at both ends of the range.</p></dd>
 
 
+<dt>mic_range</dt>
+<dd><p>a manual range to plot the MIC values, e.g., <code>mic_range = c(0.001, 32)</code>. Use <code>NA</code> to set no limit on one side, e.g., <code>mic_range = c(NA, 32)</code>.</p></dd>
+
+
 <dt>as.mic</dt>
 <dd><p>a <a href="https://rdrr.io/r/base/logical.html" class="external-link">logical</a> to indicate whether the <code>mic</code> class should be kept - the default is <code>FALSE</code></p></dd>
 
@@ -237,6 +243,7 @@
 <p>The following <a href="https://rdrr.io/r/base/groupGeneric.html" class="external-link">generic functions</a> are implemented for the MIC class: <code>!</code>, <code>!=</code>, <code>%%</code>, <code>%/%</code>, <code>&amp;</code>, <code>*</code>, <code>+</code>, <code>-</code>, <code>/</code>, <code>&lt;</code>, <code>&lt;=</code>, <code>==</code>, <code>&gt;</code>, <code>&gt;=</code>, <code>^</code>, <code>|</code>, <code><a href="https://rdrr.io/r/base/MathFun.html" class="external-link">abs()</a></code>, <code><a href="https://rdrr.io/r/base/Trig.html" class="external-link">acos()</a></code>, <code><a href="https://rdrr.io/r/base/Hyperbolic.html" class="external-link">acosh()</a></code>, <code><a href="https://rdrr.io/r/base/all.html" class="external-link">all()</a></code>, <code><a href="https://rdrr.io/r/base/any.html" class="external-link">any()</a></code>, <code><a href="https://rdrr.io/r/base/Trig.html" class="external-link">asin()</a></code>, <code><a href="https://rdrr.io/r/base/Hyperbolic.html" class="external-link">asinh()</a></code>, <code><a href="https://rdrr.io/r/base/Trig.html" class="external-link">atan()</a></code>, <code><a href="https://rdrr.io/r/base/Hyperbolic.html" class="external-link">atanh()</a></code>, <code><a href="https://rdrr.io/r/base/Round.html" class="external-link">ceiling()</a></code>, <code><a href="https://rdrr.io/r/base/Trig.html" class="external-link">cos()</a></code>, <code><a href="https://rdrr.io/r/base/Hyperbolic.html" class="external-link">cosh()</a></code>, <code><a href="https://rdrr.io/r/base/Trig.html" class="external-link">cospi()</a></code>, <code><a href="https://rdrr.io/r/base/cumsum.html" class="external-link">cummax()</a></code>, <code><a href="https://rdrr.io/r/base/cumsum.html" class="external-link">cummin()</a></code>, <code><a href="https://rdrr.io/r/base/cumsum.html" class="external-link">cumprod()</a></code>, <code><a href="https://rdrr.io/r/base/cumsum.html" class="external-link">cumsum()</a></code>, <code><a href="https://rdrr.io/r/base/Special.html" class="external-link">digamma()</a></code>, <code><a href="https://rdrr.io/r/base/Log.html" class="external-link">exp()</a></code>, <code><a href="https://rdrr.io/r/base/Log.html" class="external-link">expm1()</a></code>, <code><a href="https://rdrr.io/r/base/Round.html" class="external-link">floor()</a></code>, <code><a href="https://rdrr.io/r/base/Special.html" class="external-link">gamma()</a></code>, <code><a href="https://rdrr.io/r/base/Special.html" class="external-link">lgamma()</a></code>, <code><a href="https://rdrr.io/r/base/Log.html" class="external-link">log()</a></code>, <code><a href="https://rdrr.io/r/base/Log.html" class="external-link">log1p()</a></code>, <code><a href="https://rdrr.io/r/base/Log.html" class="external-link">log2()</a></code>, <code><a href="https://rdrr.io/r/base/Log.html" class="external-link">log10()</a></code>, <code><a href="https://rdrr.io/r/base/Extremes.html" class="external-link">max()</a></code>, <code><a href="https://rdrr.io/r/base/mean.html" class="external-link">mean()</a></code>, <code><a href="https://rdrr.io/r/base/Extremes.html" class="external-link">min()</a></code>, <code><a href="https://rdrr.io/r/base/prod.html" class="external-link">prod()</a></code>, <code><a href="https://rdrr.io/r/base/range.html" class="external-link">range()</a></code>, <code><a href="https://rdrr.io/r/base/Round.html" class="external-link">round()</a></code>, <code><a href="https://rdrr.io/r/base/sign.html" class="external-link">sign()</a></code>, <code><a href="https://rdrr.io/r/base/Round.html" class="external-link">signif()</a></code>, <code><a href="https://rdrr.io/r/base/Trig.html" class="external-link">sin()</a></code>, <code><a href="https://rdrr.io/r/base/Hyperbolic.html" class="external-link">sinh()</a></code>, <code><a href="https://rdrr.io/r/base/Trig.html" class="external-link">sinpi()</a></code>, <code><a href="https://rdrr.io/r/base/MathFun.html" class="external-link">sqrt()</a></code>, <code><a href="https://rdrr.io/r/base/sum.html" class="external-link">sum()</a></code>, <code><a href="https://rdrr.io/r/base/Trig.html" class="external-link">tan()</a></code>, <code><a href="https://rdrr.io/r/base/Hyperbolic.html" class="external-link">tanh()</a></code>, <code><a href="https://rdrr.io/r/base/Trig.html" class="external-link">tanpi()</a></code>, <code><a href="https://rdrr.io/r/base/Special.html" class="external-link">trigamma()</a></code> and <code><a href="https://rdrr.io/r/base/Round.html" class="external-link">trunc()</a></code>. Some functions of the <code>stats</code> package are also implemented: <code><a href="https://rdrr.io/r/stats/median.html" class="external-link">median()</a></code>, <code><a href="https://rdrr.io/r/stats/quantile.html" class="external-link">quantile()</a></code>, <code><a href="https://rdrr.io/r/stats/mad.html" class="external-link">mad()</a></code>, <code><a href="https://rdrr.io/r/stats/IQR.html" class="external-link">IQR()</a></code>, <code><a href="https://rdrr.io/r/stats/fivenum.html" class="external-link">fivenum()</a></code>. Also, <code><a href="https://rdrr.io/r/grDevices/boxplot.stats.html" class="external-link">boxplot.stats()</a></code> is supported. Since <code><a href="https://rdrr.io/r/stats/sd.html" class="external-link">sd()</a></code> and <code><a href="https://rdrr.io/r/stats/cor.html" class="external-link">var()</a></code> are non-generic functions, these could not be extended. Use <code><a href="https://rdrr.io/r/stats/mad.html" class="external-link">mad()</a></code> as an alternative, or use e.g. <code>sd(as.numeric(x))</code> where <code>x</code> is your vector of MIC values.</p>
 <p>Using <code><a href="https://rdrr.io/r/base/double.html" class="external-link">as.double()</a></code> or <code><a href="https://rdrr.io/r/base/numeric.html" class="external-link">as.numeric()</a></code> on MIC values will remove the operators and return a numeric vector. Do <strong>not</strong> use <code><a href="https://rdrr.io/r/base/integer.html" class="external-link">as.integer()</a></code> on MIC values as by the <span style="R">R</span> convention on <a href="https://rdrr.io/r/base/factor.html" class="external-link">factor</a>s, it will return the index of the factor levels (which is often useless for regular users).</p>
 <p>Use <code><a href="https://rdrr.io/r/base/droplevels.html" class="external-link">droplevels()</a></code> to drop unused levels. At default, it will return a plain factor. Use <code>droplevels(..., as.mic = TRUE)</code> to maintain the <code>mic</code> class.</p>
+<p>With <code>rescale_mic()</code>, existing MIC ranges can be rescaled to a defined range of MIC values. This can be useful to better compare MIC distributions.</p>
 <p><code>NA_mic_</code> is a missing value of the new <code>mic</code> class, analogous to e.g. base <span style="R">R</span>'s <code><a href="https://rdrr.io/r/base/NA.html" class="external-link">NA_character_</a></code>.</p>
     </div>
     <div class="section level2">
@@ -267,6 +274,11 @@
 <span class="r-in"><span><span class="fu"><a href="https://rdrr.io/r/base/all.html" class="external-link">all</a></span><span class="op">(</span><span class="va">mic_data</span> <span class="op">&lt;</span> <span class="fl">512</span><span class="op">)</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> [1] TRUE</span>
 <span class="r-in"><span></span></span>
+<span class="r-in"><span><span class="co"># rescale MICs using rescale_mic()</span></span></span>
+<span class="r-in"><span><span class="fu">rescale_mic</span><span class="op">(</span><span class="va">mic_data</span>, mic_range <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/c.html" class="external-link">c</a></span><span class="op">(</span><span class="fl">4</span>, <span class="fl">16</span><span class="op">)</span><span class="op">)</span></span></span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> Class 'mic'</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [1] &gt;=16 &lt;=4  &lt;=4  &lt;=4  8    &lt;=4  8    &gt;=16 &gt;=16</span>
+<span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="co"># interpret MIC values</span></span></span>
 <span class="r-in"><span><span class="fu"><a href="as.sir.html">as.sir</a></span><span class="op">(</span></span></span>
 <span class="r-in"><span>  x <span class="op">=</span> <span class="fu">as.mic</span><span class="op">(</span><span class="fl">2</span><span class="op">)</span>,</span></span>
diff --git a/reference/as.mo.html b/reference/as.mo.html
index e0f19944..ed623df5 100644
--- a/reference/as.mo.html
+++ b/reference/as.mo.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <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 b66e653e..b923a7c4 100644
--- a/reference/as.sir.html
+++ b/reference/as.sir.html
@@ -14,7 +14,7 @@ All breakpoints used for interpretation are publicly available in the clinical_b
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -567,19 +567,19 @@ A microorganism is categorised as "Resistant" when there is a high likelihood of
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># A tibble: 13 × 13</span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>    datetime            index ab_user    mo_user    ab   mo                input</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;ab&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>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 1</span> 2023-12-03 <span style="color: #949494;">00:12:21</span>     1 TOB        Escherich… TOB  B_[ORD]_ENTRBCTR 16    </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> 2023-12-03 <span style="color: #949494;">00:12:21</span>     1 GEN        Escherich… GEN  B_[ORD]_ENTRBCTR 18    </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> 2023-12-03 <span style="color: #949494;">00:12:21</span>     1 CIP        Escherich… CIP  B_[ORD]_ENTRBCTR  0.256</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> 2023-12-03 <span style="color: #949494;">00:12:21</span>     1 AMP        Escherich… AMP  B_[ORD]_ENTRBCTR  8    </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> 2023-12-03 <span style="color: #949494;">00:12:17</span>     1 AMX        B_STRPT_P… AMX  B_STRPT_PNMN      0.01 </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> 2023-12-03 <span style="color: #949494;">00:12:17</span>     2 AMX        B_STRPT_P… AMX  B_STRPT_PNMN      2    </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> 2023-12-03 <span style="color: #949494;">00:12:17</span>     3 AMX        B_STRPT_P… AMX  B_STRPT_PNMN      4    </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> 2023-12-03 <span style="color: #949494;">00:12:17</span>     4 AMX        B_STRPT_P… AMX  B_STRPT_PNMN      8    </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> 2023-12-03 <span style="color: #949494;">00:12:17</span>     1 AMX        B_STRPT_P… AMX  B_STRPT_PNMN      2    </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> 2023-12-03 <span style="color: #949494;">00:12:16</span>     1 TOB        Escherich… TOB  B_[ORD]_ENTRBCTR 16    </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">11</span> 2023-12-03 <span style="color: #949494;">00:12:16</span>     1 GEN        Escherich… GEN  B_[ORD]_ENTRBCTR 18    </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">12</span> 2023-12-03 <span style="color: #949494;">00:12:16</span>     1 AMP        Escherich… AMP  B_[ORD]_ENTRBCTR 20    </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">13</span> 2023-12-03 <span style="color: #949494;">00:12:16</span>     1 ampicillin Strep pneu AMP  B_STRPT_PNMN     18    </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 1</span> 2023-12-03 <span style="color: #949494;">10:39:01</span>     1 TOB        Escherich… TOB  B_[ORD]_ENTRBCTR 16    </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> 2023-12-03 <span style="color: #949494;">10:39:01</span>     1 GEN        Escherich… GEN  B_[ORD]_ENTRBCTR 18    </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> 2023-12-03 <span style="color: #949494;">10:39:01</span>     1 CIP        Escherich… CIP  B_[ORD]_ENTRBCTR  0.256</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> 2023-12-03 <span style="color: #949494;">10:39:01</span>     1 AMP        Escherich… AMP  B_[ORD]_ENTRBCTR  8    </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> 2023-12-03 <span style="color: #949494;">10:38:56</span>     1 AMX        B_STRPT_P… AMX  B_STRPT_PNMN      0.01 </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> 2023-12-03 <span style="color: #949494;">10:38:56</span>     2 AMX        B_STRPT_P… AMX  B_STRPT_PNMN      2    </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> 2023-12-03 <span style="color: #949494;">10:38:56</span>     3 AMX        B_STRPT_P… AMX  B_STRPT_PNMN      4    </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> 2023-12-03 <span style="color: #949494;">10:38:56</span>     4 AMX        B_STRPT_P… AMX  B_STRPT_PNMN      8    </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> 2023-12-03 <span style="color: #949494;">10:38:56</span>     1 AMX        B_STRPT_P… AMX  B_STRPT_PNMN      2    </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> 2023-12-03 <span style="color: #949494;">10:38:56</span>     1 TOB        Escherich… TOB  B_[ORD]_ENTRBCTR 16    </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">11</span> 2023-12-03 <span style="color: #949494;">10:38:56</span>     1 GEN        Escherich… GEN  B_[ORD]_ENTRBCTR 18    </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">12</span> 2023-12-03 <span style="color: #949494;">10:38:56</span>     1 AMP        Escherich… AMP  B_[ORD]_ENTRBCTR 20    </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">13</span> 2023-12-03 <span style="color: #949494;">10:38:56</span>     1 ampicillin Strep pneu AMP  B_STRPT_PNMN     18    </span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># ℹ 6 more variables: outcome &lt;sir&gt;, method &lt;chr&gt;, breakpoint_S_R &lt;chr&gt;,</span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;">#   guideline &lt;chr&gt;, ref_table &lt;chr&gt;, uti &lt;lgl&gt;</span></span>
 <span class="r-in"><span></span></span>
diff --git a/reference/atc_online.html b/reference/atc_online.html
index 5e1c76b0..fd9296ce 100644
--- a/reference/atc_online.html
+++ b/reference/atc_online.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <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 16aae058..01947582 100644
--- a/reference/av_from_text.html
+++ b/reference/av_from_text.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <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 fa8a2fb5..1478168d 100644
--- a/reference/av_property.html
+++ b/reference/av_property.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <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 a8045977..b44f6efc 100644
--- a/reference/availability.html
+++ b/reference/availability.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <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 8b6e4ca5..7ca4bdd0 100644
--- a/reference/bug_drug_combinations.html
+++ b/reference/bug_drug_combinations.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <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 19afa6f8..ecf299f3 100644
--- a/reference/clinical_breakpoints.html
+++ b/reference/clinical_breakpoints.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/count.html b/reference/count.html
index e9ab79f4..a3c183fd 100644
--- a/reference/count.html
+++ b/reference/count.html
@@ -12,7 +12,7 @@ count_resistant() should be used to count resistant isolates, count_susceptible(
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <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 58353cd4..192e577e 100644
--- a/reference/custom_eucast_rules.html
+++ b/reference/custom_eucast_rules.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <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 84a16cd9..81d66473 100644
--- a/reference/dosage.html
+++ b/reference/dosage.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/eucast_rules.html b/reference/eucast_rules.html
index 0363c376..c8cc019a 100644
--- a/reference/eucast_rules.html
+++ b/reference/eucast_rules.html
@@ -12,7 +12,7 @@ To improve the interpretation of the antibiogram before EUCAST rules are applied
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <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 f6ab5432..33f5c145 100644
--- a/reference/example_isolates.html
+++ b/reference/example_isolates.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <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 fc337e91..aad83e5c 100644
--- a/reference/example_isolates_unclean.html
+++ b/reference/example_isolates_unclean.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <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 3cb3c794..42c6e066 100644
--- a/reference/first_isolate.html
+++ b/reference/first_isolate.html
@@ -12,7 +12,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <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 68c24ff0..cdc28a27 100644
--- a/reference/g.test.html
+++ b/reference/g.test.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <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 b5e6f7c6..b1914385 100644
--- a/reference/get_episode.html
+++ b/reference/get_episode.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -263,28 +263,30 @@
 <span class="r-in"><span><span class="va">df</span> <span class="op">&lt;-</span> <span class="va">example_isolates</span><span class="op">[</span><span class="fu"><a href="https://rdrr.io/r/base/sample.html" class="external-link">sample</a></span><span class="op">(</span><span class="fu"><a href="https://rdrr.io/r/base/seq.html" class="external-link">seq_len</a></span><span class="op">(</span><span class="fl">2000</span><span class="op">)</span>, size <span class="op">=</span> <span class="fl">100</span><span class="op">)</span>, <span class="op">]</span></span></span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="fu">get_episode</span><span class="op">(</span><span class="va">df</span><span class="op">$</span><span class="va">date</span>, episode_days <span class="op">=</span> <span class="fl">60</span><span class="op">)</span> <span class="co"># indices</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>   [1]  8 23 24 26  5  8 42 39 25 48 36 19  7 26  4 37 29 15 40  5 16 29  3 34 44</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [26] 16  3 48  1  9 10 26 38 13 20 30 31  7 18  5 16 22  2  2 41  2  4 18 37 43</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [51] 33 28 10 16 41 15 43 28 12 12  9 47 21  8 46  7 10  8  9 27 30 30 28  8 26</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [76] 13 44 10 16 35 38 42 17 32 10 39 34 35 25 13 12 19 26 14 13  6 11 45  7 27</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>   [1] 47 43 22 23 10 50 15 34 13 20 19 47 16  2 26 37  8 44  7 14 10 10 34 29  4</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [26] 52  3 48  3 24 48 28 28 14 17  1 50  6 51 53 42 17 45  1  1 30  9 27 39 12</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [51] 21 33 45  3 18 24 35 52 25 37 40 35 52 49 48 37 44 42 31 24 50 52 19  8 16</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [76] 31 22 46 21 14 16 14 10  5 41  3 13 52 33 19 11 38 45 43 41 32  2 12 36 52</span>
 <span class="r-in"><span><span class="fu">is_new_episode</span><span class="op">(</span><span class="va">df</span><span class="op">$</span><span class="va">date</span>, episode_days <span class="op">=</span> <span class="fl">60</span><span class="op">)</span> <span class="co"># TRUE/FALSE</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>   [1]  TRUE  TRUE  TRUE  TRUE  TRUE FALSE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [13]  TRUE FALSE  TRUE  TRUE  TRUE  TRUE  TRUE FALSE  TRUE FALSE  TRUE  TRUE</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [25]  TRUE FALSE FALSE FALSE  TRUE  TRUE  TRUE FALSE  TRUE  TRUE  TRUE  TRUE</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [37]  TRUE FALSE  TRUE FALSE FALSE  TRUE  TRUE FALSE  TRUE FALSE FALSE FALSE</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [49] FALSE  TRUE  TRUE  TRUE FALSE FALSE FALSE FALSE FALSE FALSE  TRUE FALSE</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [61] FALSE  TRUE  TRUE FALSE  TRUE FALSE FALSE FALSE FALSE  TRUE FALSE FALSE</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [73] FALSE FALSE FALSE FALSE FALSE FALSE FALSE  TRUE FALSE FALSE  TRUE  TRUE</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [85] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE  TRUE FALSE  TRUE</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [97]  TRUE  TRUE FALSE FALSE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>   [1]  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE FALSE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [13]  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE FALSE FALSE FALSE  TRUE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [25]  TRUE  TRUE  TRUE  TRUE FALSE  TRUE FALSE  TRUE FALSE FALSE  TRUE  TRUE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [37] FALSE  TRUE  TRUE  TRUE  TRUE FALSE  TRUE FALSE FALSE  TRUE  TRUE  TRUE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [49]  TRUE  TRUE  TRUE  TRUE FALSE FALSE  TRUE FALSE  TRUE FALSE  TRUE FALSE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [61]  TRUE FALSE FALSE  TRUE FALSE FALSE FALSE FALSE  TRUE FALSE FALSE FALSE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [73] FALSE FALSE FALSE FALSE FALSE  TRUE FALSE FALSE FALSE FALSE FALSE  TRUE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [85]  TRUE FALSE FALSE FALSE FALSE FALSE  TRUE  TRUE FALSE FALSE FALSE  TRUE</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [97] FALSE FALSE  TRUE FALSE</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="co"># filter on results from the third 60-day episode only, using base R</span></span></span>
 <span class="r-in"><span><span class="va">df</span><span class="op">[</span><span class="fu"><a href="https://rdrr.io/r/base/which.html" class="external-link">which</a></span><span class="op">(</span><span class="fu">get_episode</span><span class="op">(</span><span class="va">df</span><span class="op">$</span><span class="va">date</span>, <span class="fl">60</span><span class="op">)</span> <span class="op">==</span> <span class="fl">3</span><span class="op">)</span>, <span class="op">]</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># A tibble: 2 × 46</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>   date       patient   age gender ward     mo           PEN   OXA   FLC   AMX  </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>   <span style="color: #949494; font-style: italic;">&lt;date&gt;</span>     <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>   <span style="color: #949494; font-style: italic;">&lt;dbl&gt;</span> <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>  <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>    <span style="color: #949494; font-style: italic;">&lt;mo&gt;</span>         <span style="color: #949494; font-style: italic;">&lt;sir&gt;</span> <span style="color: #949494; font-style: italic;">&lt;sir&gt;</span> <span style="color: #949494; font-style: italic;">&lt;sir&gt;</span> <span style="color: #949494; font-style: italic;">&lt;sir&gt;</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">1</span> 2002-10-14 FCC668     54 F      ICU      B_ACNTB      R     NA    NA    NA   </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">2</span> 2002-11-18 956065     89 F      Clinical B_ESCHR_COLI R     NA    NA    NA   </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># A tibble: 4 × 46</span></span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>   date       patient   age gender ward      mo           PEN   OXA   FLC   AMX  </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>   <span style="color: #949494; font-style: italic;">&lt;date&gt;</span>     <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>   <span style="color: #949494; font-style: italic;">&lt;dbl&gt;</span> <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>  <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>     <span style="color: #949494; font-style: italic;">&lt;mo&gt;</span>         <span style="color: #949494; font-style: italic;">&lt;sir&gt;</span> <span style="color: #949494; font-style: italic;">&lt;sir&gt;</span> <span style="color: #949494; font-style: italic;">&lt;sir&gt;</span> <span style="color: #949494; font-style: italic;">&lt;sir&gt;</span></span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">1</span> 2002-10-22 718963     82 M      ICU       B_STPHY_EPDR R     NA    R     R    </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">2</span> 2002-10-11 974319     78 M      Outpatie… B_STPHY_EPDR S     NA    S     NA   </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">3</span> 2002-10-20 F35553     51 M      ICU       B_STPHY_AURS S     NA    S     NA   </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">4</span> 2002-10-20 F35553     51 M      ICU       B_STPHY_AURS S     NA    S     NA   </span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># ℹ 36 more variables: AMC &lt;sir&gt;, AMP &lt;sir&gt;, TZP &lt;sir&gt;, CZO &lt;sir&gt;, FEP &lt;sir&gt;,</span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;">#   CXM &lt;sir&gt;, FOX &lt;sir&gt;, CTX &lt;sir&gt;, CAZ &lt;sir&gt;, CRO &lt;sir&gt;, GEN &lt;sir&gt;,</span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;">#   TOB &lt;sir&gt;, AMK &lt;sir&gt;, KAN &lt;sir&gt;, TMP &lt;sir&gt;, SXT &lt;sir&gt;, NIT &lt;sir&gt;,</span></span>
@@ -318,19 +320,19 @@
 <span class="r-in"><span>    <span class="fu"><a href="https://dplyr.tidyverse.org/reference/arrange.html" class="external-link">arrange</a></span><span class="op">(</span><span class="va">patient</span>, <span class="va">condition</span>, <span class="va">date</span><span class="op">)</span></span></span>
 <span class="r-in"><span><span class="op">}</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># A tibble: 100 × 4</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># Groups:   patient, condition [98]</span></span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># Groups:   patient, condition [96]</span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>    patient date       condition new_episode</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>    <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>   <span style="color: #949494; font-style: italic;">&lt;date&gt;</span>     <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>     <span style="color: #949494; font-style: italic;">&lt;lgl&gt;</span>      </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 1</span> 077552  2002-05-14 B         TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> 080086  2010-08-08 A         TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> 0DBB93  2009-05-08 C         TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> 0DBB93  2009-05-08 C         FALSE      </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> 101305  2006-12-13 A         TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> 114570  2003-04-08 A         TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> 124128  2006-10-02 A         TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> 136315  2004-02-02 B         TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> 138869  2009-05-20 A         TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> 1435C8  2004-03-03 B         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 1</span> 006827  2009-07-24 A         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> 008268  2007-02-20 A         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> 023456  2002-02-05 B         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> 074321  2015-09-20 C         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> 09B453  2010-03-21 A         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> 105248  2005-06-16 A         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> 1435C8  2004-03-03 B         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> 1710B8  2008-01-22 A         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> 197007  2012-07-17 C         TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> 207325  2011-05-08 B         TRUE       </span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># ℹ 90 more rows</span></span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="kw">if</span> <span class="op">(</span><span class="kw"><a href="https://rdrr.io/r/base/library.html" class="external-link">require</a></span><span class="op">(</span><span class="st"><a href="https://dplyr.tidyverse.org" class="external-link">"dplyr"</a></span><span class="op">)</span><span class="op">)</span> <span class="op">{</span></span></span>
@@ -344,19 +346,19 @@
 <span class="r-in"><span>    <span class="fu"><a href="https://dplyr.tidyverse.org/reference/arrange.html" class="external-link">arrange</a></span><span class="op">(</span><span class="va">patient</span>, <span class="va">ward</span>, <span class="va">date</span><span class="op">)</span></span></span>
 <span class="r-in"><span><span class="op">}</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># A tibble: 100 × 5</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># Groups:   ward, patient [97]</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>    ward       date       patient new_index new_logical</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>    <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>      <span style="color: #949494; font-style: italic;">&lt;date&gt;</span>     <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>       <span style="color: #949494; font-style: italic;">&lt;int&gt;</span> <span style="color: #949494; font-style: italic;">&lt;lgl&gt;</span>      </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 1</span> Clinical   2002-05-14 077552          1 TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> Clinical   2010-08-08 080086          1 TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> Clinical   2009-05-08 0DBB93          1 TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> ICU        2009-05-08 0DBB93          1 TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> Clinical   2006-12-13 101305          1 TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> ICU        2003-04-08 114570          1 TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> Clinical   2006-10-02 124128          1 TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> Clinical   2004-02-02 136315          1 TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> Outpatient 2009-05-20 138869          1 TRUE       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> Clinical   2004-03-03 1435C8          1 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># Groups:   ward, patient [92]</span></span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>    ward     date       patient new_index new_logical</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>    <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>    <span style="color: #949494; font-style: italic;">&lt;date&gt;</span>     <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>       <span style="color: #949494; font-style: italic;">&lt;int&gt;</span> <span style="color: #949494; font-style: italic;">&lt;lgl&gt;</span>      </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 1</span> Clinical 2009-07-24 006827          1 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> ICU      2007-02-20 008268          1 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> Clinical 2002-02-05 023456          1 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> ICU      2015-09-20 074321          1 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> Clinical 2010-03-21 09B453          1 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> Clinical 2005-06-16 105248          1 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> Clinical 2004-03-03 1435C8          1 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> Clinical 2008-01-22 1710B8          1 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> Clinical 2012-07-17 197007          1 TRUE       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> ICU      2011-05-08 207325          1 TRUE       </span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># ℹ 90 more rows</span></span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="kw">if</span> <span class="op">(</span><span class="kw"><a href="https://rdrr.io/r/base/library.html" class="external-link">require</a></span><span class="op">(</span><span class="st"><a href="https://dplyr.tidyverse.org" class="external-link">"dplyr"</a></span><span class="op">)</span><span class="op">)</span> <span class="op">{</span></span></span>
@@ -372,9 +374,9 @@
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># A tibble: 3 × 5</span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   ward       n_patients n_episodes_365 n_episodes_60 n_episodes_30</span>
 <span class="r-out co"><span class="r-pr">#&gt;</span>   <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>           <span style="color: #949494; font-style: italic;">&lt;int&gt;</span>          <span style="color: #949494; font-style: italic;">&lt;int&gt;</span>         <span style="color: #949494; font-style: italic;">&lt;int&gt;</span>         <span style="color: #949494; font-style: italic;">&lt;int&gt;</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">1</span> Clinical           57             13            36            46</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">2</span> ICU                33              8            20            22</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">3</span> Outpatient          7              6             7             7</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">1</span> Clinical           54             12            36            44</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">2</span> ICU                28              9            21            22</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">3</span> Outpatient         10              7            10            10</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="co"># grouping on patients and microorganisms leads to the same</span></span></span>
 <span class="r-in"><span><span class="co"># results as first_isolate() when using 'episode-based':</span></span></span>
@@ -403,19 +405,19 @@
 <span class="r-in"><span>    <span class="fu"><a href="https://dplyr.tidyverse.org/reference/select.html" class="external-link">select</a></span><span class="op">(</span><span class="fu"><a href="https://dplyr.tidyverse.org/reference/group_data.html" class="external-link">group_vars</a></span><span class="op">(</span><span class="va">.</span><span class="op">)</span>, <span class="va">flag_episode</span><span class="op">)</span></span></span>
 <span class="r-in"><span><span class="op">}</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># A tibble: 100 × 4</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># Groups:   patient, mo, ward [98]</span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>    patient mo           ward     flag_episode</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>    <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>   <span style="color: #949494; font-style: italic;">&lt;mo&gt;</span>         <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>    <span style="color: #949494; font-style: italic;">&lt;lgl&gt;</span>       </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 1</span> 1435C8  B_ESCHR_COLI Clinical TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> 493589  B_STRPT_PNMN Clinical TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> B93C54  B_KLBSL_PNMN Clinical TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> 889500  B_ESCHR_COLI Clinical TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> 501429  B_HMPHL_PRNF ICU      TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> E72482  B_STPHY_CONS ICU      TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> 917895  B_STPHY_CPTS ICU      TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> 534091  B_ESCHR_COLI Clinical TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> F79032  B_ESCHR_COLI Clinical TRUE        </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> 527306  B_STPHY_EPDR ICU      TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># Groups:   patient, mo, ward [96]</span></span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>    patient mo           ward       flag_episode</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>    <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>   <span style="color: #949494; font-style: italic;">&lt;mo&gt;</span>         <span style="color: #949494; font-style: italic;">&lt;chr&gt;</span>      <span style="color: #949494; font-style: italic;">&lt;lgl&gt;</span>       </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 1</span> 557266  B_STPHY_HMLY Clinical   TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 2</span> 280834  B_STPHY_EPDR Clinical   TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 3</span> 1710B8  B_PROTS_MRBL Clinical   TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 4</span> 800264  B_ESCHR_COLI Outpatient TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 5</span> 696587  B_PROTS_PNNR ICU        TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 6</span> B46416  B_STRPT_AGLC Clinical   TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 7</span> 904485  F_CANDD_ALBC Outpatient TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 8</span> 807228  B_KLBSL_PNMN ICU        TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;"> 9</span> 838434  B_STPHY_CONS Clinical   TRUE        </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #BCBCBC;">10</span> 008268  B_ESCHR_COLI ICU        TRUE        </span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> <span style="color: #949494;"># ℹ 90 more rows</span></span>
 <span class="r-in"><span><span class="co"># }</span></span></span>
 </code></pre></div>
diff --git a/reference/ggplot_pca-1.png b/reference/ggplot_pca-1.png
index 50186dc13acbcd629434f809da83044d79f27fb5..ad128f88d6714c1c6c1840e90bf3651ff9a2e85b 100644
GIT binary patch
literal 48123
zcmeFZ2T+sS`z{*5?pC&21OWlX1VoVD5wOrgl_t_rnv@WF3!N>BH2FgBAVq=@=~9CQ
zF!bJ=5PAuO5(w>l=-$6`&YijUo;mZsGxyHiZwAA_x7K>s+n(or*TT>z>WY^xFkOH^
zAeZ1ua#|3`X-^1*=Eb=);7>;5GS|V6GcQyW<-kwy*?U~$4}P3?RMK~WKv-U%d{ITs
zZdgJfHz9DjhdQ1qE8|`XMwW?UQ<M2?>R<2v;3$Dz`BUDB=HSmJCuVD-KX1t?T92_P
zoL`#>vb(_|-+bj7wIA>2OAFUU$(9FwPR|uIZ^#=xfIqXiRC4D}z%`W^rLCs-NY72r
z!%a_*>}xuB%NjMgxwV*uq2yPliBbKM>;M1f|I-@C(D0GKhX}+WxAw|83fNwpf+PT6
zOwK|e{IBl|;jKA59TEwVP(2QPG{G8PpHBD+^-qdhNcgDkhlM*^0|meVFJ2yg#Ep+)
z-p?B~12P46qRO%9MI!o#f8K^P#3-#(LtHiPrNScVp~JWE58;uvBmPf;L1<MGDpTNe
z>XFH7;KtB11wZUIluea10QFz9b=@jRMH}@_4@C>KT!$oN7+`52kSW%*R9g$;!@A3V
z7v;mebb)fX`y%2_8~fvXaar*XsUU~)K@1QxcP3@$hrlX|<(zT3Hb89LcZ5KyzcZ^q
z0*399p?s@uf4YuS!C8BkZ$cmm%ur7%h*eXvw(qL9MLtYFhR|(eYDfOONE^X5L?TNj
zSad>>H}b}X@+689*Tseptl9Kg2U{~BkU3`bM=D5LIE8-H5~u-uWbtU=;G=v^PJWAs
zy}eVdk~0yypU1>V$!Nl%II1)-@G()?o;hI3u_q58IrfN957p`U>q^cq0Z!<iY{c@~
z#E`!su#5)PiDVw!cQfCwxQs1T1oEI>7Ush>P7!v%!OebODcpw3c268`@F&z?iL|DJ
ztE{YiNgi7K!<Kq2ogkmTw$THvgzh~BT+lvT{pPvxR)#)d==&o5=Eq$+$NtyyS&0lB
zdvE}o?Ohu$bc6ZCca2FOb?~XhaaTvn3d(KtIEE|KMj0Y|E5=EYP(!!%O=%(BM{a_H
z-fgF_8&f*?wa}gYJt%o;$~qw&e`FG0X5+Ce+(_A`AKZ7J*$slG+g{a6v@iyOIUNi6
zIEVS0ND*9Ri&j4PU9$Q8*Bn)@DV|C3%i6wXy)7l-M{UU?TS6(t#NH6-zB<1<#4PPe
z78N9e+{C=$F(_<IZin-#l(e4e@YM!7VZ%;IFY;k~W|%8Yw5u88B%Sx(wCRx<xeIZk
z%?=60cN8wc_SAv-NS6uqe1#lV=?<^p2$^OBj^5nS4YfuyKnOUvgZE=88x_IpX~RA?
zQ`WQNy3^e<)MVS|5mj_7-)SIiG=J4XAa&#h(PqEcfmz1t=TSPdmq+UO?%%{q<q3qa
z<E_!PKEP_Fx^BhKXydRCQX{Z${`}^eI`kY8-1zsBFI^k}nmo=FRD#+@zgFzA=NCGP
z=L>)>mnr%W2!G*;$9Y@x_v^LeM&?pHR6k+e@)d?zlWggJ2I&yD&j9x6wt|&x<u6gk
zI+o`QyyU|U+0=AH%m@a-`3ib6Q2g7nBJSE8oCYbJzPUd6Zm5{xw9}-{`Nd)%A>9&>
zikBW5ohik4?nWs)uRupqQxh2lB$KC6PM8s#_Vy>$gJaVZlUoJ4mm9R&n<%<?rno3B
z{T)dTJkZvTpilX6mRt@!9-cOcFSqg7zCLe?4uuW4Ymi2uugk^jeGLZL50#sas?MN|
z`m);bSKs7or}j<V(~7P2lus7L;kPc8z0`Gax2O`v-^vF_@<6IK?AB=cUcqH-e^LFa
zYLi&vbr043W3f&RXPge3XrER@!103k#y!N6|DO1~y2WC)#i<hkS+4Va8O4(_%dnP`
z`n2{g?c+`2xR*|A$ZEPyC&aXk9`o)ydPE4CXGzQcHb>HDq?paX4`(&Zm4V(IW9n^8
zS(*-US9G<0=w~@c^3<xk4?47X+^s`(nO0<?H+OvBplrBME!iRb<_XwlJRVnGKa#}X
z&gE))g(yPFg^7BUiyvFUD^g$F$057PgUvQ#U0KG71h{s%jmkKs&QBOGY8;7BS^ew7
zDiBf*6|1nR`4nuYCi-P`b(iDn%!ugVXOHAv`W$6aRR3C0xbzFuyyze$S#*#ZG8E1P
zdRS>E72FT7aI2PuYuB6~jVl{E{zktq8$-~@2g=gnB#h21`_7N=6V|+KbEc-q0S6r`
zt%$z5lE&h1oQ|uBTX{O=(Z{#&tJ2}`ji<}g2)7ZD#EIEwO+CxI^c=%^jl~y%gJQMO
z?ffHumewGh@_Z^t?yFOLkcJgEd(8PE4z1;iI6`KA{R=-U;27@g3rLlEtxjG-P=*Q`
zkD?-6R&(+>lu`ZwG8;3Dvc~*9_HDGRMkCogkC5hstXdh*TD{#I>XD0xUm|Y+tWA!_
zm`S*ltb@x(-RV+8tH(a8tWm2#=k5BzxuNNfM^umm@$)8-fW(bCozRgv%bU6^9SnKf
zKSr84y}XnC?BGWNcs00RoP{o6ou}-)mb6qb^H{C*L2|u8zwDvUh{jjZxYPLxACH7}
zo$WvNoFd!y*2lHau-e(=^naK#!N4S>@yXt<hpn8B9TAAg)vm$^1__ro%2D@Cqyu*b
zD<lSrYH9vKqqcDGFkdm~o+n1mftzSsjEf^2K-oIBIHp8%?h15abiR4ACKE0u4k-~F
zhP*?H(DrGcP2UkRppyufBPsL^@x$k8%ENO*s)uVMSJ)s8*MEV?Ya(Y=PGd2R;EshA
zH*iA&aRsp!r-S~)0@#*(+GeTn_W{l#i-`lg-}~*_L-!-#yy~RCbwmseCHRDnWqjCS
zf4JMYeC#*>rM${=iHhb^Bb5a-V?}<T&3>V18!HasV&4i+vV~8K&K-zlWA-Kb#62ux
z7N_W@RWSI;NEH#~9hrQfo==$+2*okxt!h^e)fcr_H51Zc_c*HCzW;5u`bXZ~0)esV
zT|anaQk5g1bG}7>CdEZ5*<8<6Ag;JAWOqcGl}#vcN3l#obev2JNofAHy{P?4iHh0%
z3itEHgD@`*Om<JM{ZaqM2JrH#Zf?@|)z|P2B@zZotE5Y=)Rpdk?NIEiXTVvX*7fQ-
zYOx85M7kV2PTV6;`w!1OyQh0^;c3yLGmrVAo6mA@^}w2Gwl8DMD|p)Q^iWe7mhC=0
zj0F;K9zAs$lE4zFw1286&U9nKSq@oxZ11wNeqK>nLX2Z?p1!$BnYWVZ)d4Ld>P3Zn
z1zdN=y<*oa*&LPYJ3hPU=#7yhJWE5{%I!R>PrJ(~JAUGp3XM2id$Cv^=F9y!UB;R-
z9tEM-(4ny(ArK|@FBc(QD)Jb)RTtm@Cpte4pau#KU6ME1`d=Ko!)1hiE-2L9$D8Kd
zCG%g|uNd-QyuRPjGK9xwHWde+H$sl;z_=XLoe$)wQ*Kq}_-d`wBo0R>sQ?GU_{W0Y
zro`B#3EvX68d^2vGmqp;8>#(sLl*%bQM?J`y|X2TfVLLQ(@>(W@o03k%*z-9#o`7}
zGNDyhsa7oS%X0gd2BHxz4x1#5KvDTk-H5@bgI=~kA=5mssxE12#HnaAl3sRjQSI<(
z5~`tG;(@tRdi#6}dq4Eq@lftD&Y}A_Y@}?@4MQNgs|_+K$6D+s>zrSn+src;EO5sS
zUTwCiF-)$o1QgvR2Cz{sb?Wi0J(BpLC4<Q{*oK;D)79$hlXyfC8j4GQz?LjXsV%lm
zIXV$AA!y^TTC{#q$IC2t6;6#ToWG5WeeEftPMlq@x3EJrVT^YiI~+Hq253~;90&6@
zkF1_rdd%Teh=+ReDUn|BHj52kw}aOUgg&b<@=F|maVn$?Jx?!GprL_mCSVUBkTw%B
zP6-}->b=PHgaP!Uh}ly3Q+0t{{Lnj${ddQ(8B1UmuAW-_#%iENwE40Ise$p$&mbtL
z+tA!F+)w6Gak!-~U=7`apGD+y*L!2Gtf!|wVw+SEkwn#wG!*pI(}N-Q`InogN8|%e
zD9$QOyVo-MzPPTS&3(>1%=YMAyrgkGfQeg3a_V4KCzU|Ya_ntDi#Ee_W^e5z%Z)C&
zdtt6*7S^K9y!g!Bf0kMU9_xsluh3!RQH6bxVDy0Ph3UMn8cht{70p$?$(FXkR@3gF
z?5qPcXZuEsU#ZNYtj|<jo}qz!9yL25y9x6S8YQCrrz~XENU2S@nTP{sClvsvN_qqJ
zPbX~TEBrkXi}72H*NQ!N9j>J|M{{&lE7n~+qxil!zDFl?)L5&3nng*M^=FBWsoL>V
z;8@w&_w^t}7ZV*-lM5#FXEWBQ2Q!k(%(AUH`9Sq?s%_uA8hW?Ns%N>U`pibJ)_5zo
z)y+sO$FP9zU!+htYqCYB&iN)JR03PPWvjDDfwlrSVlbkcXl>~MhgD4<2H_%{aKE$^
zw138>Qzu8hNMk$jy9VGR(Ql4hS!a@kZ+rS10OsiXJosr<AFanHjuXHrkeKut0x8Rs
z1Gfx;JV*z?hzFkq?Gp|LKEBEzr3ar34LDdvfX@~eh$7$<AOiz~^?&*4GJShe(sa?t
z1LMGbC_WR;8chg{@C}9!oRDD`z()vANt2VPM5J3d0cZ0lEcZF^G)a+saMEkWC|d`E
z7=k`LQrTI~d>??CsyQnF1>OuJDYF~WoA*!5)o{P$K3w9<><-j_Fqwb;W1jWFe!X>P
zR<a>$DxsqcH%JT(WE&@Jj5DVVQYBQ{)?J1`%;H8R@i<N|b1Y5ZWoZGte-2aeXvZ?(
zBMH>Dv4QV_+wNqEC2Yb?5(q!x?(mYE{jVqGF<3oWX?*#xPv2l*-8uKml7e_LP%G3=
zd~pmlgzb5SJFdjB0QNr?4iCIA&6FpY=DjtzOiVl5qy`b5?Gn}Of%H7l1!V2{C{)iv
z_{w_zM2OJ*A<tiC<D|IoiB?mn{?K%-m`JLJn$I_+q?b?U<zK>>rFj`CT%{5ti^o-|
zQ-72?Q|dK7?tYuj4qoISNsjJi9X|l|fdVHtQ{Ol*4S9fK5Gf>fmEJL%-f4X~KF*Cc
z>X{q!2FRiaS<C96ApP%~k`R}-ASHQ#YQL&;h_Tje_|7s><~MMv<JhW~Qo`FzT^c>_
z2AQKfVGcX2gJnl-(qYsbYk_LZvPlhldJf$c3l8G^%fI#$;PpZiVAk%p8H*uI)LpXf
z(0*SgRsXKTc8OkXJ|13?R^K%z5=9*Ta<XdV70|!Txd9(ud`HCUJm;QyXI5b7=zE*P
zxbrEvSvl=dSFsxjBLCQylolRYvG3}G@a4GvbBG1kw%}_d`9)MutbEuvX*!8`zaG^I
z&I;zKtDKg?=N%n@Kv1Pfr2w~PdB(aZa=KZvn;ODBG57PFR1|T7R0~=kQrb6zwtrbV
zHu2C@9zY8voqEOs4{)#cB3?cJ$zkt>0&ynus<?kEQ?0VFDlIr_z4mfLirCOHI5hWz
zl3?E}KU=s=8ivCh@R7ln0(~`IWTXB<l!nJ)k&Q3=EImD<*jJIkJkSJOuA$Zp5P<|N
zJtmfd3+<{xsTNFe4hHEz&P~)M5BMkB#@ybL>O7g6UxP=Lv>NW`OMWk~p^n|XfbzJJ
z(7pfJoq9gK%k@YqkME;b=L~A@UzIOI8LYq^D?_Qg;h;~10AsP;D6a>}E}&Pulq75Z
z;}t^xXtLNBn6wZ+zdoTvy#?-=TzmUHnUqyl6nij|yIB<VmqRap21W5Y@lVj6dG<24
z8!UB~UY|MtX|2iwP-Co1XW;O90t7Z~7;C|BExEHuYne8$#u=3NKV!1JT+I{jUa5E<
z)aow%#-oT!aHo!i=;18K7qn`wXt{|Ragg9tkaQ3G9R_9-Oe=0D#%Oq;peQORWDxtu
zb%6n*9CeA1sS-&KUZ1o>-j9J|Rb%PiOZ{W!%@ELKA#KK!$|a8huna4MMyZ$F!NcJ7
z0KptSuya=&obdlGPr%-MOJ1tu<RqKR!L7PTa~WqMs=1EHLaz51LqX=Me|1(CUj59Z
z%-hOu$i~aAUaQ%bjN7yF{BU4jc<0Evois!2U4Ayld@^Ex!ih+gunZz)fEQ*61}_x-
zv@uZ^X~BwF^F1@RpEy53jzmpLtw}>%l1`NLzn9Xx@=l-_d?+#h6_fP+0@Ugk{P?TD
zA6t^|{5HapkwfmwUow3bTU65b2-0yTgUg<CXwwOwnaHp+XE$dH_)v3b@-uG)b|z8d
z*RE04gbDwtLD{2Ls7h{EKiHI5(0T^x5|Ka2{?*fi@XHHse?s`14^hDUmgG6eODj<H
zwo7EhK@AtYE<SK8Y`kK`%5ga`bHq`fuhrzNQ0E_X@|xLiP_mo<ERb>MtsocnV6%`p
z&yjdmJ68PuCqpMt4-ZNW(J}C+Tatf55`sH4wk1)TSQ@H;dx;j8PL%Y24voL`m=Ki~
zPk0q!DI*ERhroHU#D^!yTE>5pNHWgKBw2hY_EX@aS<KAb&|vJnWE=s)Yyg)42)hg4
zy-r{X5}>KDPThrdPkuByM=S23p*1<ZyRE%Y!)BC_oiJ4urAm^G*mgmW3EsN`_TVg%
zbGJuP^dO9P4T?g!@@y6rD|6ra%E#{?+A9!SpBt|+Lnw`V`6d_nmfUU{uLnTcG@Q*b
z>5KDlb=8u`XMKfnw4h28=*~~Ht0@MNO&IGqm$S;QLN*7D;Oq6Gg_FnjN~FrGD~dr3
zX7rj_Q~`dK0{C*4is2fY!=<rOIht5&(L$Wm+EvI_sWr?CnLP72zrJeoJCrYS&=*AA
zB;(}n=-ZsxrQJC$PJQr7#dZ38VDdKEW{`LLBINMHq~bcSDrr8vzQ{E7Zgh<{u+QP8
zjzKPm-#GRe!Br-O5pzJDFjnXSy@HhHMm~Ti)oiqCR}o%$wU)MXL7MV3o^mR{ub+5+
z;<gZ_+RqnQZ4$RGfSNi;5@kU`EyXaY0$Nqt*-@0uh7uQU8uXI)NV8}46fu#pPBDt8
zl@95`Ql!7^hk_!ojnCDx<8dOXD61xQQb!|M3*uX_0A{SN(~sdt5_o2&Q9Iy9EMb~{
z9{I8iKG$LQvk+dPp<DE#pKgDozS|TSi?%H(SJPg(3ZV=fjS_bcRgg7%Z_Ib9j#G(J
zyXUplN%UOH^7<*YyJNcZZnx{t?^*&h%*#?1TW<BS<lLlp_ws>nd@XbMv8r8@3mHhz
z>jJ9G%z>+DACCTW$%k68_MZNL7)MosN9K0U9KQeP9#8{mbD^yv`|eb4RV0^w>&hy8
zOIXh*Kg(7v=D@4MJmZB6Cq)A{P17+J-_FBL-YwPjZ3w(zFnbEpKQrDvUEnNqFAvHI
z^Kt{MIVCvo{$&0lKP{-2Ved|}_qB77HhQrMx8`(!fRRGh<d|?rrP%t@aD^Z{J7iP6
zEv|}={oJzz;`1o<oi0Ev6i?A17DBzKK%*6l<2wZn*w(JXD{O8ghq=vE>jsmbGuDa8
zCfYuM@H5<ZAp7#FYq1uOrVWxM<KWf8@3F*-k}vgCNUw4$hz=|1C)TGtEnpO&%9t!v
zBfZhNt-b_LOD7~jHNppR?k3}9N1Y%?fh^>jiWE*31iNp8MA@gZ_%K9ga%;l`JnKo&
ztl`{ysGyi6%;zF6rm*f1-@RYLh5yR?{WQcEc{zN_S4F{ehD|1P=OWrDrt0uS>3e;b
z0`{gxp#ISWqL$i^rlGX%GCyTi^|KI{##d^~w5f9YHClD?)gPsPLb}vI?%c*;36uh3
zoOpB+{atyWQWTLsQSbl~P_*yWOEJ|bi5f-U00>L@uW25LUD^SuOTu%1RnoS}S%Hfz
zF&4xo3Q}9Gi5g5`V6E?N?)#07QYF&=_s3)5**A~{CXkNZ9QJW8_t@gO05Ow{fy<2M
z)DPq&*<T9Ke-wHKVm1oxM2yJb^a8>3(ZvY9ZU!#Psog&WMs@}*cp}hn@bs5C&!Rwc
zLLjNy!3+=pjs8Ozf%6F|+E0LjabOz8bnH&~iAc0?ihlvVWEKL}01ryo@lSepKqr!o
zBlsDwZ8q?dL9)=m!vU59b(^)&sAVlvZtaMPx>A)xFwDBnf>?6XOU+w5{^)f?4zt42
zLY(muEf~QvH^C8ju3sq*!ttKreJr>JSb9+Z9}0}Fygtw?i|ztE$|Y_<AoLr2O{qkN
zgB{$8S>(HuU)=$2q!8fnIGDtT_9_NW2{HU20Om%S)oxIL2H}%;c*O<rHt?O4sXbZ;
z9;Avh0*L1XdB_f!Y`d(%`7_e5!DXTeVK%8_huQ!$({ZFF8Crn$;Wc3Z=U5OrdI!Ez
z$Bo}iuE460lAyH8B?!!5)hc>rV7GE$$lnam%VnyQnr4Jgh^<}$MT0=zNo&RGT-Tq7
zvlT2??*mdk%ggS&3N$5_ap@iqiEcL`{Dc3qyVFC40FV}M6@auoJ&mvm50P4VpGFvm
zt2>O4X|=;o$}OvK5Y`Tt@M_D%lozH%hwc-QZ?gqGZmZy|NTI1%W4(j@|M<g8YRjnu
z6XRN&%RebxJ151RkU|hcfZujq?lw){&>&6H08X~C9{jmk6X+LR*!rO|KLy}4dd2!f
zx8FxUaQ9|U!9GxiX=-e@^95QJ(tGGx*P-SkI4^i~VvaHgI$dEW)H{JH_{5YPHogES
zcm`m;p9%L%wNL|u&<EoE1iQ*?<*~~g;Q5oU7R)t0)?)G=<-Q=ErI+P|tht7r>}sV3
zo(5n(e*Gb5rvlVgee(kYJCVR_9QFtJidDd0mmpg;U_A`OO9A!^pH`c|1T}mQKWrR%
zqL|!NP<3sm#W=m}Fi_$VJW|Qo4A_SabK|pgU@S-P2qjP)oD|%IOXYZVvZsMxUNM|N
z0KhPVKwQ$m=}(^j`-1nsm>vC>P^|xlC$ar>QVc`d1pcq9_w$gp^S}BA<8JmqXQjkZ
zLlbEX>H(GD#U~2=$pGO$%he4|(<NodxkrW~SHKu};Qy=Ruuyaf{*=>86GQr=hC@HW
z;%5J(8Cluc6<AIhIZy#;tVLD9fo2s$G1;o5Ba^e#4Syq&32${eCoKVuZP6PBUSn(f
zMk(3%UsOtCiEccQPq5o36xMsD6K>K~c35U|ni{gjcXDEg*5Wml`BYKATn!x+c0csP
zOBAqn!P)HM3U{9akCWUFy_{A<jNkSbyyomVdTXvOUTYFFIc#qoJ*(1Tvi&Nw?D&v0
zvnIk{JH@q4SkJn{7HeSxoQ4-^M5o99q*nj;E&zk&#>~%>qxKvcF%#kL1c;=oW-sOP
zFJv+V>D&X$<lI;1pBb+0FysSQ9!Jauw8rDMj#%8ZtUl!*J^@&;cRaiZe<u&NfJL_7
z9ZSvd!L_CLdMjl+L)QxIwlfV|vhJ7OX_-Oa7sl_v>0!g1mT6COeXI-b_|<}Y+qR36
zKH61@!y0vUcb?_1mseZHE$P!i9!&m1c+Uqw6laxy?xk<(oDu@55r0=p^y^t3k8Ll^
zVM=_y#nrqm*#YuB3~OJo&mYd&@QoGmxY*|%Vx_GbyP55(>c3S;#ab5I7C4W$O4YG8
zi2vIefGilEWTKkET&9h!uTUwm9hMk^G28*<i_&lH)N3dU*Q8*3%T05PaK9KRSLutA
z_eNpt)?!c7o$#cYN*3aQ{6+e4<ARb8Rt0Q>NtVsB1w76Un8X#ul;{$_Av44m^)NfJ
zKX_%VbrGv-HGf<hpkIkG*!v{tWvpd1+D%KtFAxU!e6ZPXhl@go>%@LSAcsnqOdyou
zQlPf7eIpZ^u0{fhsJd2qXvSRdCHajNc1s{z^)T2{bF}8^oC-XIK2}Ud03R>4>hk%H
z>@)5#bF{^BiKi{lSuTa+2@?~2iZjUFeXhle^f)3$O8Q~5#S3f(`9j2EHO9#o^Nii1
z(6}0BZ9rBu?)aWw(LrT7&WOCgKI<#F8x0xZ(vt36?JGlmP%H*BP1`w8vi`47HpIx$
zW6YHtDbC^Bc#y~UiSGpI_{*WjmxBbk-e%o^7acvvOXQi>)(_1l!$mpZg=u0H4&w&W
zG`N%Aq`bPl$68Vz?xb%9{_e*<XU}niS$7Km5u&2zFxs5Mqxs24BYjino%~5-=N(K1
z+&bWLN(|vc?rKEcg;S6P<WU!x-lYZJU(FhShq+7?(}uZW;iN<;3bv;_lQNsHu<5;;
zoW&ifzwrqg5&f}IDlGfH<95p>xRY%;_iN+w0~pG61nIk8B)IKtA-D6e|IH}<nX~DW
z&qf_*>csqzwe|kEmDzomSKkl!!lzPJcuv`>`rhkQ)r4#))^5bl4dC{s13Ulo2hkTF
z;3RWx4q@;k;U)<W4hg|3)Zg<$S}?!5BejQ#x$v%#vqaWz18h87J<3C3y%xXa+dNe?
zsV<lT4Sw9{(o}mynx)}t)zd2`^aab3qMa1$F427h$<RTEOo4`gwshA;u-SvIt+$!P
zmUyv%ZLP>%8W0ZMlzJ(ZqbYhEUTT0p!d_Mi->h{Qt@gSI)gg;OXMF^6<m*2Z4rs>&
zomc$k3#*0kNOU&OCdGM=6j+S1S#9X&7Ng@*M{aFs%(ldmJ+aR6Rjs$t_Ij_L__(&t
zm~*w>@Fja|ZqxFAv(4wo@tLLHk5Zorz6S}wgFuvFde6oHhoGLv$>8%Nwi%!j_kda!
zL;rae4K{r~ZPa93b6A#-qPg3CYia9qbXAk%JvN(<Yo2?24xZoRnp;V0SHA1<%FOpo
zMh=?ZhWkvteD@8PplSrs=1(B3Ks%B4lOwz2RXFde`~yhC*sU+1nwMP5v=a%l`O3mj
zUH#W&MWFJwrG9NrvG*u2U460Qe*MdW!cI1QY=4-4QkzIzk<4~H+zA2nX-Q@74Z&KY
zCPj7gBeL&I>gwPID|m5)q}8O#u!xJ;bZ}X88NY7CZZz^Q@UXuQFiIqtdS9bc?LLM(
zKQpJwI62Q+&>Ivfq*eQ*mT0@x$G|*_RV5YiHVNm6aNMo&2k7J{v_G2oMnU&|Wj5<a
zwdvCx>{-j_7O`WQy~{fAQBt<;d!IGkR@3tSAH{{s63!OBFF%W;*bncG2@8K7-dSg1
zmW()W22`k%f}v3ed;h!m+sw;~FviLd@iwhV73YWl5u+V#G5$YR2~cF%;CH8Mjq9?J
zA8F~nrQ3R$w9rn}34B^)L{|+s`tGjbM?+qV9jIv&k+w!NhN!g4rQFahx523<wPXaX
zeVv)00F~>@eJBG=;&bs~J(Sk=BUmW;qpr|F_{qEG^dR->&E2k(w6Ed9PeS+f%~6&>
zB<HDQ4PO0v=ZBhevv5H0xNdNX_BgY@YColB$=W9T6R%c%PKq33xNqnF`Xx)!w<Tw<
z$AFPv+gsnB4>?j#4=10-v3gF*iXaEWB5K^3Xdk?GS9W${n)Fs8b?Bg<$gtz9q1a_j
zBS^yyVeum_2tT*+P}xzJ&iiahCp`eC6iXP#8a`~-9qmK<Jd)75@czeh5D;JL&zT{%
zJD&hC__TOF*`E*feU}<jO-gy3wKV5cxSSV8%p*tZcu2KPnGqg+?nfPR`&>_pK4SGN
zruE>g2~e8y=`RBLSNQ8p5-o_it5=0652r6PqMV=jCxbXVt#%4zvh!-o{;7m;_?8n2
zcnll};?u^@*%sYJiy?~bvfQGy3*tGUd(BQ7V~-AZM*IgViU!erON~=+*}e2ZH<9s~
zT8d@q@4nZXVoIkQB$khZ;w4g>X!uXJPyV$bcD?QsDt><xVHTkO9W4m1Rt@cR;7Lz^
zBwNYh^$Z{j-xJnHwK>&rdiBv&dpd2(*<3B398|C3#y11mA8d&Z=}`H^<58zmG~3ak
zlUli+Ux`sB#s1B{kO#-r?06AlqnHZn1bH9tKOW%jqJ1h<d<#|HcW{$+=z}|%jrr0m
zw^n*(#@7z6*hLy|P+}yw;E0)ZV-2{od-Gt?pgOnh_6$fko)cZ39%3wm>Ek}i9QKqq
zf82F?dm{;2ZqQL@vDfn2L-McdW<e7@&)k*3O9H3iX(<Fd#E4Ox#Uyx13O|Gq{d^O?
zGcji(Wm3QLflaj>$8K47Ck)MyUb9r2uXwh>hZC%`%5;j1^bJuP5m>fiUeSBI({iJi
zkvyGD*Ll>Hfvh_dF>t77e2Pa4-vF<n(__FGovrGnr3oWTX+dX`DC<H({GW1*mm3gE
zVn>dv0?pEhjViV(_u3sxt&h@kIZ-^?D^*)#y^==~0ba}C4W)7Do)+Mp?2@c9Y1Hq!
zwqfIw{5&WGSV<>zL0`kXlz^Q4`qSWf8hA8o4e&u1cWFxZY)4ODr02kAjZ8g>z9F;C
z8WzJf09}+1B8%A^KTCOY*8TRMkm|=^U+m>#i|I!x9(i{qfPJ=-KK(e*kYmJsk}t)*
zKgp8Y4^0Sw($*a$T-)c7_UONsYJ^j2Nh!6h?8ssr1vX`C-P?;fYxym`6hOEB!WB}a
zk6L-Ft<}jX=AgSjUT>X7%46qh&E6fKth28<&0I1M#=MiAcC92Hplh_NxpI-8?~=u|
zsU1?LvbV%rRw;IjrL`zxwirGUOTeLTq}s*^AjZm$B4uHCU5^QOmAa>_68%SKwEmb(
zOZAuB{=u;#24@|6=I;qe<qb`SxIT$u3s^ikODogC#$u~bwf6dc8NEC5B&;QA1DfAY
zn$|JZUrU5pr&B^jS|d%<>5kJBdO++cq4OG^qIiP_ixvS-(HM<PHKgIuS+B3qs1|(F
zf*tLsIcrCmC-y6Z)J#;_%!KS0${<=`Ox{y9jB4v^v4oz9SJV$GPnww5dx`OE9@rQO
zZ;P6-qmJW28#bEq)AN(#^=$>X&4gI#V@EHLfcUz9mZ?SQ)0r-23?txsOD{%c(<Kps
zR4(0>0Nqt1UZicMUhh$qt7kh{|9AMl0DJ-aR9j)kdteDR%RJHTdUP56`OM+GBG@ol
z0LiFoSlV&)X-J#8yze@r2R843+?akqps4Q;*=^(fjY{ns$-sR{{D6u(NTHyUYcCSe
zB}6Z_`dfHyticfmg~TAmOO%{E6G@uzIH-OCp_;BroXby#ZdPny>~rg@sKd1uwYmtV
zgqb9}tjiji>9dH)@mTO~S7q+q+4YE~BXccj^0>&WWx*Qbu`)kL3{xAV?Ml7NIS3v<
zT+2J%YQ0eX7{0TnWr|bV7D`DW^cyc-4M=p+$7r30J5NGq)FH#C#qyZGBtucqDyuU^
z!||+@`!Wpv`y<?}uHPL{6YIgt*fnLuE@Oo+V92~YsX~g^UcpwK!PZhgh+;fxf4sGq
z(fk26Q*h~oXyY}PQLvfPFxG$2{<kcd=YrK&1YDs$u{Q#l&9n4~4dNOKmdRTkWb{f;
zPJNu{(e}0hgk$<S+}+{hvA8bvyDEem!#*a;{{lql<R&ICm@RfSs=lJw^;@nEj7iiz
zUlw9D;3wo55eTgTsTH0p!j~C+u=<A)GbDinB<}naMP5i7%s-xRHDWtcAo7@B*O|P;
z7<LY_P;C<a6s(iYDE(S6_h#j_v@}9!^w{ZudTUUm2A(HiO|@P#Hb3z=ImCmNwN1U;
z8!_)~8$U)&p*0>@9tx0H%z>Mv5Mc0*1t%Uz1KqDnsl(6kBPDk{cw3z3*@yF0i(R5u
zjN*p5<f~k?R%$EKSk7qkwHQPjNW)wD1P@*d4i_l3m>jD<Fr}!P!vS{uS15|p>p3u(
z$27dZq2uPIu_PY=Y3Ku+RQ!6^PHG~_{%pbD-6FtJHJEtcYBsBpT<?T<`=Ysg+xcay
z1wxYp?nDm87E6%Qqm9Kx;@r4Ocr7=s;f*s?T6D01@f;w`mI4Pnx{R+q@{~^<XIg_T
zB{bOTYB17-N{EA3PI*+EpCr5RsXIFWSXdQ5+;`-?dB-TSnYnT}!Ff<vu)?w>LjLWt
z*4)xv{bV=!XgAB~<hS0%MIU3AZMR<-*Zojqrni4qd7PV!<b8@|UE7GFYGcDGk@(;f
zJwxElFfy6<2E?ocq)Z7HBUPOZ0BKIoqhRLNQNSpfFbnSpjRsV|q=AgoroEV3T{RI6
z#K^zR)S10jbZ2?iCahCxm04kiy0mRjFlkCUJ3bHsLF+Ap{cHZy@_+_(?}Y)U$8iiH
zqzPv}ERA1+riTs6=f2z+E|^HBn^e^e``H5(i<gg7D%>3z0ds4K`|$bJmRN4-j)378
z8I6*VF2#dDst2+tJz!o8VH!^mfwRU~jOt)rMmdKIH;{$J#|_}&ort%`cOjq_Ida=d
zof~l0)~~&TFXSrm*X#uASWg6|dG1?lj5W4yw@HOpc4v3~i12wP#QO$sLoawZI#7BC
zJP?UKVacn}wm`xaFuP3q`h(apmWJ|UskdJ_)&*!qJN(UiH}qh`*4|$&>xYPA+C{u?
zo#lb-IP_b!<c<#aN<N#F8g@LDyuOcZUUCSpap}t6@gKd8HW{{s&CKd0dHP>x-L4-#
zY0~EZTCDDa&EXalsnN4|N_SgF=ym#78IdjbI)g=esfJX6Y6lk@q0M|im~IRc<B{1f
z>vb5hneoe4NIe$CPiNnk_8-|Hl{eowPEv_u!yz<+&&&nQo}3tf7YWo#ZbpQ%F&{gi
z3Af-!NZ?}9$e}P^UWkF?ck_6wfK#jx=knIKu0|fm&n2&QdC-<m&H3?L65pVS&o^#>
zFcsxvF$1_f^|b|?6*R3SMrj0pv@^Nn&P1hK-RBqWCD)L3)5Cn@#g*MOzV^*J=-k7b
z_-*)_^7ivN$C*i4&b>)!vq-sqJRwxzJQT8Z5A3;8`h$}Ou*ok>#VQsUI1sr0ys>9-
z^5$}$8*Al?Y{vo7=8a4J-&8uKS63S6KYDvc--q=pRf8dj^3q#v5ou;UPHRoyc{}d?
zmpDH|Ii-du1Ye6ML<wC7D?7_y4N9;Vshzr4v$ySdNVgwUb5EMw$Cum23Gk>E?rz0h
zEw~1++D*|lHTLPi+}0|P<&ZxrRjp9duPwShQno{~<W@gCB<Zb;zh4hL+AM~WHFPh`
zg+pcG&Muhlnq{<63gIJoH^-K`XP%>~kRgy7GJgA{(4m<0QUbMCmZ{X1C(~b;eo9m`
z>^Dgyv<OOg=D7tUZ!D*<bH#(q3m2DCw-mZva$lIMQ={aA($hcs#18%11-LtQ54*W{
z(uaQp%IIh~+W;Cl7+rrQ4D#$B(BZq_eflG?y#;qz&<uw>hzFC;KP^;Ds0D}luNLa_
zmK~|hn9;W-K7Jr&-I(K!!);wz?Z8b|<r#k_r1VCz7SYOn=5et~?9(EgE;sNiwHkhV
z{P|!ZUfM!|8f>mpf_^o9KZeI?dp-l$U=kVMWOg)k_qV#5cA9jy&t(?Sr=vzZ08+4}
z;4|!?j7vXB4<TZbd{Qm&#i!LQ5zmI$?K5zJhmG2RHC;L7*u-z;ys1fzPvi4mHVH5p
zjQ)~)fYVE>cjqzsKoUO-pNJ;>0Ix2M^WmqV`y61d(?%b-0Ik45MKSVwG<+>#?sH<^
z8M})bs@n;uh9*jghkDug#C$qwzi~drdn~u4LRenr9ibzOCtYj6<qOEn>U|rFxmis)
z8p}?Djp8=jqwA22NofgP{a5*_WluFoZBT0uSk}Z)%o6Jf*h)vfqUSX|DtR2{eHa8S
z?^}v8E}?84FO@~L#^LPa11am=Z|V3{N_>Irwy0LR;}SwfD$WS(bP%0~Ae$32?vwM=
zNK;f}aO4o8liAPlupc~FXZ?LJe7IHs-scgq^?3XmA;uxW)vr2zm@<~5!DH;(5*5Zy
zRM*Nj*(V^=cD}Aku9}~O!so4&-U%ZtVyxy4DL1RFnogqZP79xr(?)eVR^R=gv}Lw6
zj}!<Rt4r}$u69rd|B_<#<gP?KR05_;B2VkgUguROZ8sfVgR}OCAAg4~Tgh0=6^w=%
zPejMas+4$snR<#$u$Ltp9!487q}MGOUles1<KzN;mDaN5EUZyqug~MKeYUyCa|70@
zr|wRAcyjoB2W+Xj1pjr(m+*F$4`o(oBAdq()*F|GTH+dC*ev0!v;Wy3x;;;4Iq{C*
z2iJn?#p7|jW1lw6$%j3Peeq`!pfDy#LOUq5nZvs&7@U;a{PBj7GtsT{P8cZye%XGd
zUcgelh}Qo8s$YSuvmM_I&4MBr&TUr8!k`sz{bE^RozmMM8)+wIGw8g$fs5!BfSrix
ze_gbDyfTjRG19GC-<T|&`^$T#N42#Oj;5p22>VLasHgc*{z1-&YF1X(8-rVD15I%g
zam66T^*0ZqMY*2RPM=2FXg!F^O1u4|`+d+GElh^6P-={!ROXWfn2Ubre)B}Hx(Xj0
z?LM-#=O^=RrOs-#JUvmpwN1!Qwt#PVr%|ypJ^6!sO4D`oaDk?T?&s%CetjdLBq`}L
z)6*fv<SnVO`MERz74Yp;6?<A#p)%(vasgSlJ9PK84LAfG$9PL+o#|v$_;YH>_troC
z#dciNxU#Ui(Z|$H!6pV<(e<u^+vO`#^X>nAC28}2RtlE;)>CwBXHdPcDlV;`!Tg5G
zMdivdxqhzCLl34c<RKRFYY_pf;}`#qP&M}$OlS6%oXqLK{qb41A#7cSmNw5&tBxDJ
zn)g&n;Y60}=51Zif(B2vHFvYWuWq-yDXoLnYgYV~y4jzWk&lTQoTL6}4t0b}7qnKz
zBYv+TW&Q6GM%u`EOm13-dy42y@4|+Q8OSd+s2+UZv6aC{XSp2q_xt;t|LpuagsG+`
z&DLmSd+|+}hGIF*GtPAb-9sCW;hhJjE{0(h6$%)Zyni;r{m-BTM4ua<XKr!jGUm(I
z+{L@j66<t7@a#RQ8`^B@oZ4&$Gh<c7w$1-&x%kxYMTbMLuGP-&<>rJHnfHV!WL$c7
zIt4OjAob@yN;0t;>ihH6YaKD=-zvE55H}_A%d|Cpp38;F%qU3)+CKV7y>43SD9EJ;
z44oQE<nl7pogXV<9J>D*rT*`z$IeRt>{V`#@uY*JomIXq_d;-kW)>wjY3Q@=;#>vy
zz9C<#(ZAZ0NcczJO@D;Bdc-Gr*Tji#xu&wSBXxK0Ii6x?fu)<qI@s(xSC_AT_;*`v
zUmE_Z{UxDQ)VY`6dgNv8Ru+9y?;;_4ufEFZ9G&J{thcb$G<C7{E}s$p{UT54KdNB7
zLWNjbt*tD!?jAPT);-r6@c5LLx+hPns&6TF8;E}@rT$wFP3-@wTvO<M<?>NePHOvQ
zt9<9=GwEV{bi|`Lc&=ZJ141f)MBtYrUl)q|cQ4`9i_)pwN#0VEY+P0G5S4(SN8Bc?
zD|R-=@Z6kLk^ac;-;q=NpM7BSalSuWKyQnZH_ktALG?*fXEOILPK{IB1FPDBDh<;4
zSFFoA|0)_~4E_yKl-Ldr#iG0Fj6C*C8cm1euBla$Hcq25dm@vCWoNkW_d?H0XuE&w
zAzh*#^>ZXQt;m17h@WNFrNQ8Dz09$CTdy^~#JL^vgs*~P*@)Bc4Y_1|`qzKvtz7xM
zii#^YRYdk4(eRs^m1mXeY*mDelt*pBMr9~bF7y5W5pl=kUlDa(+M?p^?N=6SZGw{p
zAHRyC<_=^G;t7o;bNAwR_B2w&JbeCRB7e)@fplHlO{hkSq^2T;i)Ku4rd~ju_PQ=k
zzt!Z!Q*pN!pp3N)RK3>yS06iK|1P#4Aw*ofBf8`2>rV*{)%(yQ^<+)^R%T0oM{|j9
zdw#)jw<J>ezpr+y|8m2LcHU>5lgsKD-z9sPl&H#0gf10aF*$RC`Xj>+YX8jz-z-YA
z(^U>0*(Iq##E@TxtIKHY8>1_0ex=2Eo92(t-%PcarP|6g({OH#aDL=k+ZoYPN^`0T
z0~R#>??uui`0prHz_t~zMpP+`qDZ-CT3c(B85BcNk(EzVLhv`{sI>Y6J&mFyH%fHx
zz`@*Nzv5FVR#2*3p#4`AHoeidi<%3p^xwVBe!#S)_4o1F8|v?-QZbI0ucw1}<i?1i
zh_S6l{>wQt6>OZFZG8oSemBpwt=c7$tH)DO@^*?hwu;sht}mqYC)<iSjI-^jb^kbL
z!s-(6SJ$G7)NvlTjfiQ_h_?p}{H(KAH8*?{E%t%`DedZn!92lSmmrX}A8vIyqLDMw
zHRVLpLA8aod`rZkady2K<*L&Su8?a*$d$!|Z%Q-#R;Wwkskna<G~@1-KXtd>=e#*S
z$u_IS5)7Rf_wZl-*tBBTZF|=21V%I~6=GX&ygKfH{YWjbfJaAO)~}ncVj2>zdh)jI
zfw<bus!}Q@6uorMV9$=1<{q`<cQc;)>$_8tlpT>g6TU12ggWYyDz6WHOX#$5d@u+(
z{+B8A5G)15SZ7Qo{&W#N8{M>4Buhgyk>K1$s_%xMW4Kc*HqA~{;~aG$w}|YR2>z1k
z?8SmFb|=VmsnJ#NnwOPhZ)r2DfY(T*?egV#FewZAEnS$(fn-sdLMDo8xcBc1?q|V8
zik%7qA5$r-N68k|EEi{{-A+{<Kb^u7-pO^TF4dpOW^8V%cQ7R>(y^*RF@Op3w<-J4
zQpj2(`NB)L+rmvZ7CxQ<Q+2{&V(d$PP>QB^r~T`QYu!p~)Jh&6Tw2bC$|4_rtZEoL
z4*%UEBeLN%2~%C8-h7Q76R|22-gYmtU0SqnwxP)yyign9Og}M>2D20RHGvT={_-ma
zglqnelcsly>8QD??i<*nombq~j$mWbuDu~@lXqm}931?`TI?Y)lOieNmfbJYMiYM8
zuB>@uoNNa3a+(Hd^r$-_Sj}Cms^E5BecaAd1fsl=@*6f2e&ejw9}*jH^3jT@HigQ$
zGiDNyuPBPa$V87A>L~in1id>K-R(7&p6;KD`(sTjp^KA-wMC%+U1UyGXXtMY$O}Nr
zZ7VX$y2(o>Ql{AEJ0kuQ<qE<7_#mMqF)wxdncb+<dx=~SF?1x5t@X;-?{7V*u0V8s
zi5ue=2P5Ys$kvGx2tF0iu&R}19y(I=rFKF!H6||?R;$zC%uIozHy=OIrVNY(4#^7M
zLm&<d<0A`f-~D#U@OS;}LMJu|c_EoN;=EXO=j{hY`Top1=bUvPcV-o|`hu8_4AgrX
zzVRs7P)NSIMny{Uq2#a(+g208urb(Sm9I>cceQq=vAKT1=vG9~xqvrE2K|SSc_b24
zr|nA()MQuW<;tbZyiVOvpBr2EAXx+^Z>c;TDN!L;{}d@P(Y?fly)2Uc)G5f{dAe0H
zrbDiq=RGD!J}0iSg0+tp0W-wDQ1Wj#eR%f``;}{1cLZ+czB3vIy!Wrpx3jRhvS0XO
z{&V$>uH<Z4YQ(VPix;;Rg0Icr38+RiJsIAJYUY#C^Bf&9)t!J;U+2@vMX!pDfyv)h
zj_>OoPm3LSG$m<t-ZBpBCD(WeRb6v<v}XWk$L72HSb3@&mt=R9l`W56;#5!MQo6Vh
zd`Izuk>OS5%Ddw|6Wx>Eiyz`8{^2c1426O71W;GFy-T$H?q84E15+r&pRucabDFVx
z4achs3un_j*|k(wK9TBAh0fGnTh6&uZkHV3u~z4@VziUGX%)ks<8_lEQ2l~w-p8-o
z%58=J-UY}?2s^emCI?w#uEaC4Jg-||eKpaRQc)^TxNuEfak~YWlZ}Pv(iikH?^Grd
zep`3t&A*A&;{cNkBJSzLKrR7Ib<OBjT>>s3V${v;jcY*LU9mTxgvWda-wsrSN-^Pf
z5{Jqk^zN)ukADl*PL<6p&eLW>NuJ*IY7}S7txYi8jp@Pfl)e_)QM&U36W5mvdPpjm
z@6P`4G5gCA`-Ve^M%zkw+tsfTs4;&XAj-R3U65J1>4vGL+O7I3_o{URShRB>uGp!o
zVgKdTD{uc1^c?m=Ln7IgE>QMW<uc@HC%k`7-h_L>`p+X%&mVD(Im%h4Zg=lNW^^Ym
zA7nVM=(ew7w=wB=h}7Dx&8Q*ql&qsAbH8TV_4zg-?W3wp_jcc#oM+W2NF8V(IfSz#
zS;~)})!+Zjp?FK%Cka{~4M#DNEgm07z2@ZN%>2qtlc|YV{El|&!u*rDH!qVL##{y6
zn1A>S@9=nM|H~9grGNY4jZ?YzmT$aVGIq5#N6y<lkgYnLN&E4>VH|QNz0k*A-fmQm
zkAf!E@Ak;+Kwq=e`j<`L-%N{S#~=(lPGkEA27VMp4r_B8&JX4pj?{zBQh4T&iT^4A
zu6tBSP;rZpPG!5x>7iFvp{B|?+G)}~a%GaaIN`84JWbx;-e_ca#VjskvOhzn`Rv2v
zBpbM!HL$5(^e@!tl$@}cgkt4$z`OEOrD}HH4u7hOvY?r~s~t{xm6WtAp1p=045{Js
zUtvMG%{Dio$oHlkA=j#mZg&sToTH<nQxKtAzMX^9U9&b1eXQtm;A%H20m7x$e3<Wt
zgNu%*T70ue^%1<?U45f_jWcoMwP!ML+dcS2i>1w(x{uU#c8_e@YrDf6S8%yx*P@pT
zi`5N3O@l}x85zo9)5kIDxkq-oF8g)`Ebo6uj~R^V1cz9tQ!b=jga*bFvxv?a47-eu
zvY%!ED)X3tTzUT}!MqY*bJrzo(|$SZ=3f!`(+wiN?TC9B?T|ZUk%2i}662dof4?3(
zbs*%}B=d*AoZ!8D!@kX1@>KG=&eXJT*R7+{?-#{LagL9~#j*!a6CT6Tai`AN{>6>c
zCZaHuQ*AP0b=FR7j!yo|jmIWi-5P;@e|Q!!_}W!h9S&l=-DXNUj_JE>n{9s~!R6m|
zfDnDkSy!swkfG!6>+Z01=(<zJ>tN`^_cs}5V^&A4-8~3G_?^bL6$Q@vAhV~h_2KjR
zoZYyvqT9K^eV(56aWr;*X3t1XW~VPszxM9yC}Ek*xtv%DGUbuOp;9xCHa6;9*4=aG
z*r5TXbR8Fx=xQ?@mXjZvHH00R#O#MEbQ<*oE%YKlM9q(->b29!3f!Wl{sqhRdrnj6
zs5Dt}Qqm*)`n#Kd`Uamv{(x$e^P=sT)K$m0SXj>X(<=N*6uA_hlk__GfTQ7F!>gKw
z&HJB1Gwy%OX1VVt+;!>ToOpV$nJBVaV%sl}!Xo|Dna3&3ed^rCTKwB4$P+Kq-c(ax
zNst22xwngM@p$Vz=)JdEnMt97$jKJ27fPqLe<&=B4kwEt5K|sK<HjTCV)tyYs2hoG
zM|eohD!vguXTP=Heoku(Gatkn^+VM1KAo-nEaDvU@ikg;WjfzbSHW_6=*4<AC^tr*
zX!O)4UsfyJV);m7BL;TR6c_L355K%y8C&Rrb&>Ht|ARA7FNn95$FzpMw`V8E)nSSD
zTjS;51?=$hKO1$wG|J(TPF+uZaN`Grd04djPJ^eJq$B;h4cI1Ys0nBeWVrXhJ;QT5
z#ypWOOylT_ereP*sp74#Tq<#Nr*$5t)lZddB#YU5bA9Ec;~g5lt~MUV+5sI+KP7F@
zt^a(JC893O?{ii;f<4WH>ZW&l9JFZg>=kfs??;luJ6F7`>t)7v>wd_B|6vR7RM|a5
zq+N(q$66Z*+5VQxV`z4!{gAu&sJS#g$Ixs2wY48~pxAxw>El|N>2mdGZ@FdpZ-@^J
z3Ay~IT`&CLg4_-I5G1ZF04w!D+)7oIzHD*29it?BSN~xtjPvkaXUBpGY3!w}Vk!BR
zzr*pycP|$tQ+TrsyJOW?Roy*@$EzcJ+2~bMUWXVY%W>(e;Qq+|-z*Ao_VCdOIk^0+
znYw^`M=F4i`di}a;yIu;7XJN=S^qinf)m=nH1NWjI>*`Ol}{}{EG1FNv}83b$moi@
zq3p9E;nlyTkX|yW_EKy?z$F2V7b7JdQ~|CfzA_6D*B<YG;O>7NUq<uJLH&^Gr|xX?
zFljzp^IfVBYqY8G7LTMgvQPAc-AjJ)zdW1rcFwwQGcDIL6?dcM`p5{=BHMk^4=wP-
zb9yP&HuY^^@IY|E#kEAizcUAD4m0$1N~V8!YvAO3p1!dVd*|t6<)P@Ok(M{?@wCkS
zJ7<hD!%Yg~tC_EJ&6-8bV$a70qbMD2%owH&0V}x)&#kRloVRoT$KI%via9Y2tW3$s
z#)(p5?SD~Mn*P_^6$~_bt6#3O?*8@gueF{}tM40dkvwHI0gmw)_0!-V?99n_q%xa7
z;2j!KE0X@%VVFisE;=`|h0D9Q%w#ri)U8PDij34-&AuOa5xFv5IcF$Z{T=o`aZLB!
zKd`Rr?>$ueFjH^JHAC}8D<w%g9wfhh)*dsja&D)cL*gbi(~kyJnrD4&40M#YS@WCs
zy{|3FWwYk6exSL0+A63m`~Iu}g!m+8<72;T$st$Q$8(1!_zS?bjYF85{&wR^xTP4j
zT)rN|t@`zNe%#vCr{Gp`#c8lk4n22K6glK7&oS)xJ}xUYqH=QAzTEtGqs07og>>V?
zghBCP<CVy5SOtgYWD8Z&RNc<cNtfv>+H0~NBjHq<k=h9tR8NW0a0lYfAJk^7F*K8T
zj95A_;|i+}RwVB(ZDN+}r<TArma7>@z;w~5&7WU=?_jB=VTVt6PxIU$U42qTyCJ*I
zJ0SFazhL+lTV>62DM=$rW;wC-jmZUP=Y-R~^q;xrs%$`)3RJW*70%}nU9+01WA~9t
zRjqRx+jUyKo$AKO`*kO3eP?>;0c$!s$;h>6qF~@w{lu+pOy8}(i+$WTXuO3T%kJjE
zJ+m=WPaLlZ;`_|bP;`G}S;*&1{x`C|I~>mL342++Wf9T)643=wgXpUhy$caU)M(Lm
zMK8gMPLzn=g&@ijT|)HU6N2c`+xIN*@4K$=`u@ou@B8d?&diy)XXc(c4~ZW^wq_Am
z#M);7iZ}Bk*Pey4mo}e+xBi@HpXJQXU^mN#7$5@Tm6t4rd5Q*d>#@7N_)JZ<3~$ip
z`{Zp*qboEAu?NqPDz=Ck`y5$ggvYv+I&ch#`>Fg|dNILk8SW9x)z7Y*WCt<?GTN_C
z1BjT6MHShOw1bR>Lt>ozI{J_pGf8%FVlj`SoEF9!Mo-Dp8Y!h4y9ZyV0L$WPYhXg!
zN|16!5r0N<kx#pgwcR2aL1NUuo@L`KY3p5==YQzDvsGf~^=n&DJooVFI6XMzOu2Wg
zWJLT>XGeZhI0eJ>4xK=7&IgP$M5(NPaDZ-&hFP7~{?yf4zLY&7@bMMw-nzW`KZ#s$
z!EdYT*{YE=4cjO4AthcOO#tn9E9Kw8|6D`w!;tE3W8~HkR;m}@cWGz&=Dc?>*4Wa>
zQgE5tf3TL}mPkDswz=3HD46E!fwes%Nr~jAz@m`ppYs1QhiKAu30!{(dwgHzUJw4S
zyKaC$Lm7p?nhwO)*bE}&-B%tt_t77$u+b_BUh%J|5j#tK22gf6n8jnmw0U_mvr(La
zhY!b~;0c+xo40QW*5DmT6GwdEPpz-x1qnsn6xF%^R)n}XjVgxuNV8&e5;Dh|Ei)5?
zs2DJw+pk@Nt`qFlFQp~3o_b64Toj(vskv{MbcP3<)^C@07t@#Aq$*<kMrhvjJ7U9p
zk$&k&ZE=v5YV$e8%(X<2YghD2V4Vv;K(K*ROsW=Xa{bC8t+wI;4r(fOb(D^x1xJn4
z`$<TM@&292sL^5vS$XneB!n3Q39*VieiMzStxW>f2rf%ir<il&qk%?d@;#)Ajn~M3
zgdz5mjzvt@jV0|V+x=Xz3Z%Qa+kB$ikStWhFb;uU)CD>yz}>q0W%r0>dT41l&{#y_
zW5`+fM~&uDRvo@vkBuUwLfm(l8(13<8EkC%yG>e9P4?93lu&ME{k_W|8|@#FjgGwy
z0V4MPfh%QSremQJLqF$EB^H}n#171v%l{e0c@^!(hbKn?=|5wV-(DJ!^<B99k7UBV
zcS9kHY0dSHW9{&uO7LwDNes9pTij;B$b?J-a}|*<W)Y6C(OWj@E3IbpCfVAWzEGmW
z2aBw!CljX>N<07uxJf&k_F##{=4)+n!)2}czwK8vA>#la=|%MWBnPNzO^+rsq5^4M
z<JkyyWKK)vXRC92y5H@Xe;zR|<VrZ;b=#n1iB|H#j1P$neA2<DE6i*s8y_qawD<^{
z3U?GSicM{$@a=nLF;>IV0=#!RY7t%U0rFikj#Z6_5c#w(!m2moB;yzvC2v};#r^AS
zg8uNkOW%XwsJX}V^V<OA0yS#|yHtyJX|i(jn=*Hn!$=(9TM`<UjX1)YnxMx|`Vw2@
zwY2HjyaO=TZ5)V|rE{(JlLLUPMYkq5<nO;^#)E$v_ZB4Vgm_F&C>I}dt>sDW1P_M0
zAad7~On+Sf1xJ{;m-^G=_VfP{;$r-U#OS62Zm}HPW9c!Lp!Xmy19cY_ABGcHgZP*b
zwS+1(f7Tj%moe>fNcp(9^=jiWpV;Q?RzC;2%Ke<<x%E+o93JW0>>W5a;IJzjw;L66
zOe@5JKopxVjLvvW9o^qn&DV!@wmX7Y&Za{@nOz&qSCqDGMl{(d4yv2nqwoKm*QjSd
z<vB_}u}}X1yBGSD5#)qPf<4aS_xjvszxdePP2OH>K5WDSGu%rW%N*mE_Nk2ZPA=oN
z<3(#-ojR4pE<R%fd&V)o2QPCmK81R?ifl-5Arzv{1l1x7uGr%*1CL{h1=Fd#<H5J;
zEjr6^M{=Di^BO<x8EgI3v!;kN1j3?(v};N%#U{%qo#x0ArNXD0&Eey3NAcB0<}{f&
zKqcC}ktYEa$i!?q`M{y%YH_Kg$5(YBo5w-};Gw?p(?e2=M$@5K$W=P~pTLs(651r*
zv)aT?{`|B5(NQ<F3ti6uXnVe#M?LOy^Br#j?<A(2yKKty4A@PPOw@j}p4}h77k)b-
zUkxZmdUfN%DH@vW*K;@PcH%VZvOvZy!GW1572<>$36<R=;V)j1b|(Dn6CylYe%fx7
zo*9eS0i%;6r`tSh^RS@f_$f;D;)s};Cl8%>px*uZbpsV%#uw~;wBPbgnz{U*&5=50
zNJ1`Cm<&iqOD^@THP=Gc3Hc<0*Y3}POoMhy0IzVSDKq^1@!RvOi@!Oa45dgP*tbh0
zyO@)6K2(q=FVtlZ>i^Q~>rza{k4j2yN4_ol#H!1thIeiXU3N>y6<IZZv&O?mbiV<e
zppT6*=yAi$;y_7n!p2J+=#`r}4mqKr{G)H4R7cuspLNC`(!77`Lb|>nv%D8S9yHH*
z_~S!hUPojy<|`BwVAAlfHrAV?0v#gEt&6*FnifYd^m745?mOZy!{RHf=M;T{OtgqV
z`c+W|ZxLK4H%hq2+jOzq)woQl`N^6;@hwSpgHe5ya8|8XmiM320~t>R-+eD^2HF(U
zlfPQeAScox6QCXAq3NTg%13`S=*gsQJRAHFGGAmjwFU%r1RGn^#@@ZFdDuTu2e!cB
zeJyn~K8^7RW8|CDvFHUQsJ*fJRqC&%3QE<GZY9Aa7yYf8rB}*?ujbHH(DZu*>$6Us
zb|n`4HUIV<yU<E9XxQ7l-5k{DuA-O$RTDNAsg_;_-UiUy0j`1RN;N<CbaAO@e6@~u
zh;$$L9oeblBrMzj6kxI7STK;A{Y4Z07x{LMGy`K2L*h*pN_h-9B%eMkb_dB(WMY4p
zm7%~Q*5^Lx^B#9-WIKeaw91SV8fmXnj+M&$)oG1hQTIEU`)0Grr*B_ujG$iVHy<PU
zlJ|#sIkRL=0wd31?5Ss}jHV-h#{Uu3UPRnRCefR&%y-0g0hWg*AGQ>6N0_T41~75=
z+jGRL)oaN)@VhEW$<|e0k+W%YjZ{qaQChTyKjW?r#nh5oA3BMG1v4feM`;W`_UJ{n
zYdzCiy3bL8K~=HuxrqDqZ^eFt%Rxcp#l6>AP;V>MXNUP}n@x${f$2`_eo|}U17$l6
zMZV`)R&s;wxW{^aU&+Q7%xLFBZ2)H8Pj)?GS_k?e{Jmehvw=8f5caAJ*9(GJB{3Y)
z{0o(EyUu1NlDnEv&b$5}fO0Q>%N8FjrZ*m`?Bw3?TE1xauJ-Y+Os=Tb>6K1g_gWr1
zWoC)N-r>fl`H1lc#<42Rcpfwz?nExp?e;q59^BdUq^@zW{6_^t0rF?s)iV0J)$^wT
z+R5}HS8-P#TioYD<FAbV5|6Zg@uuJ1;WD1Nr^c}-Kym!wrvcst|4M;Wnv>IcEJA*-
zF6XLQs4ImT5=17jf*&BnNBX{W`a8yvb*exYU397ZTQtc6Rn#&#2C`Uwa3SkSdv&U%
z{*pA_#=k4}CPuDgAIcZ>Qf&LXH7_YaS+jcG=yn5#!o?#&1uj*gJQE$S?C&IuX$zAh
zJ|pE_CEP>V%TgR0d{_fm3=Tk}5BqPuyxdtPr3fS<4<lpOw&Ee-zb?zsW|LeD%fk%a
zS3|I{+++~x`zNj)x~?cz^Fy%Uo3EbrOjB*k5eKX97XIYc4%tDMnl-~mf{Rtd?PT@H
zbc~cl>$7Bck6r3Nu&NQ1C~N4ta|RzH$rCfYq}H1He*<Jh6Z>^gd6r9_;%8nR0`j(v
zjSRcy>gV@%m*hlu1ZD0qm#DNB+PJ29n4b}{Wo-pIZ6tg%`tIb6uM(`*1o<~2BR82r
zQU7Rp`3um%oz!jq6D=kh-9|<%tChcQ%7owKN9msoZbl8_-P@2Xr0fF}d>Mbsc~|8q
z^RL)`!8eDu*lf5VUSenk{G6Qek&*!jn7QyPCdX^DZ~X-sEnh<#I1|2{dRwXZx&PD6
zxFE{b9X(sw{<E>L<jS)}Uucg13)g{={3Y)4t8<pNuer6XQZ1kBh?i7?pxL-B`meY9
zL_6Q?%z43+Nxz#nzR9lJRY-pzCPc75dA_P1>CDTn!rS=ib#Ms>eNHaE?zgFSDBKuD
ze61@9269qNF$MP^EPP<(dgJxmLixuJNnY#7LvzeGNXuB2K@(Ny)Yoi_t|0+Ws<Vv{
z0kO7w@s8XyTUkJ+IoHC8z1Q8~Zk^y>bsWBH6m-mir@8Vwv~9Vo^Zu+)|G_y6i8YC$
zHFujY!%u9rnYY$iSW+baECqdI1Z-PxXAf*0sq}*kOiWm*r4OGh%7Z8#r~CcoBjb`{
zc=wb;-0LsU74R~_v^>XhuJZnVwimFa$i&i4L98lKG1YrIfst_6$!=r)LKooh1D)Bu
zDWI8-zF$#?Ox?HzOUa*f))TsUzMd|*wK}@ba7D4qRoC9z$;xo2RNFB>nHY-h#sZ>E
znfV@YIs2IuX@p(7Z?X%8V6eyL-^J{5mpCe^XZ35O9L4-_q#Rq=0oeOENJ*7Mo=)H}
zy4#gX1@pIZa1PY<5y%M70pwd?wD&Kn(NSQdCLW*GAWS$zDaP}4y<We&``tk7o?fd1
zaZ9W3?jxU{XM#WaNLhbRf$b8w5V|b!o=M(u#O%^G|LfWvAYW-&_G48Tups#VEa)WN
zT^i!^sMY6p>9>M_n!GDY_4wLAPQI?!$JF#gKpU5q>kdRgw{CoeQbDiI?-55;6yK{L
z)3Kj5e;fd6;+1eu)e_T!6ELgLrdI8rle>j#3?(ms)@5O5*xUQY6kj}&bk<fF=WMj>
zFJ0Ew*e!Q_B`vUgNgUZE=6LqC@cP%k`A%t`!4^MsXJNU@l^*i|q0Il1{EnKEccaz#
zduvaT^r^qJURgt=WfIFpy;XMH+MK7sGcB*N(zNPQ*)l9AA|f-VxZ9S!_?X21=rw`Y
zLTGgFi~n*VRzdw8ph1+f80`WHd$WVS{Fwsb)H<K^>iT0J=LgER8Z%QYZXpB(VLxcG
z%%bl(+x;=y|K-vRG*Tw1V7meMCu*HnPf-SV_fmgAMrX@161lL1eG0%YNJ~9jUU#m@
zooP=2;d=gd%EQ)?BR`?2$MY4K<?NLB;UVqI@nu?viFdZC2rghyq80cyL`I`#ut5@|
zmTQH<(2LB8Fi_J*NnOSBbbyX78P*y4=MZNQdqgzfy=p2c%o5MX<o7<C2qhj@g5z*t
z_Pd&p0O@4!O!}`2I8#2^f_v6kd>S05J+^^tL63O0njG`?QZ`Pz8x9;Co*A1&Cz1^)
zk<G7<r?&Up)gvbBP?lxNX<LpF{wAI9i<Bq4n3IfI8ML!4=!IbzqoOZgW4=yVVAS?p
zK{#Ey<B&0Mrv30MO?Jie`Azvt3e=R<2$Kupr{P+F+sL54I^gfpr2*s5TO;}u3;~{t
z>>^u2_Z?HOiO+KlaHT_V6*Vx$lk;c$E1CmZ1?iP=X0G(agmuLDZbD}!7%2|DqAglm
zoJR7#eZYD=y)=!ulf-B-H2p~Xa{O000XqM?kQ1M}+8By_;NKMzX7{Z9zQU=H3x^ij
zYi&u3ri~Ov+^AlRQni4K6QY3l!WK5i#s#s!-hbPjcXWx4i-scmbqDvPO+@h|NrBq{
zx9lUWh@*-;i`0@olzExUmf)qVJXtXm3&ugi9xD8fY+~uh$8e08@JF0Xn1$IK1o9%j
z0JT9_ESZyQq^%!RsuK@X`OB(Ph~BrY(m<?t*Jq#6^w>4}X}d_q65p`CdNc!R8AWGh
zRxOS|j9d9eF%yL-IkF_u<R|ndaIv2}(q6Psx|aq7!1!uv^oYv$Nv-JcC^})M<>iH@
ztxMI>exo2$f;XQdP3J$q9`cY7{{u`;bUENYiv_7CZb_thd=*R-_Wq)E`Y87f$O1dO
z@#F-}UxR>tk{)WUKMWYeF@J-euNf+BONZsV(Qwb#3Vv90kAqw&>2YM=ZSR(RvOFEN
ztfz$)i*uaoP0Yx5OtEY1YWkDie5g|0-^HV~n3I7twzzoFOpC#~-;m}z%TXamE<<NY
zcx17XmJpSywg)6bjxC({kg0g)F|NGs+m+_x!h~H>-8LVJL*D2D$)w^p_sKd+Xx<^b
zNGcdQm-ccub~VOc`fzu$N{NPv$DZuF>ld`un{?~MdKGK<KhIiBiLBCn%)4CsOOMri
zEIc;S;BaHCVNohq%Gj-#^l)Qpm_hq6{OQhKeeRnIse3U#JV~QUV<oXZ9ttr&hb?*L
zX7c{9W<?g`r@9u!d*-;-#>IO9rbE6lUA2Z<78zRmpVmbFEQP5bT}>Sti`!&6trkX*
z&e|xsR^L^vomX&B5YAa9YikaT`VkLd%aP^z_%GFT3Hu3-mcOyWc$7;t$9;~C_G7(@
zZ)S5pYj)d)M6(2N69o9*9v`FZmyW84_PWb6Q!q>Mzc6B5`CwV2?H>ElTlAP1zC({*
zlE}%4l=#kbl!T%^w}H;!3he|XFxYiPbYUbRUOp(9;oF?8wDmW8`o*(}YBPXh-SCKY
z_(33<??RW$2>I<vJfi<e=Zem9inWF>O}<kt3pw)Ty((LDby<`#cJI@~$Y9>K=lK+7
zkoTgHg@EjR_sNHvMqW*hC+}wJ_?}bM^(57>B(4?yp?*F4=Am|(s5XC+qgaKbkF7+S
zSTV&K7*Z6?O{e<Jn(IRW(|b)?H7??9-7j?a?zxwTgNeT;#f~wJnVr6_qgLg(1Nnz<
zJ+jrsnKg-@%jDhUM68U}fjf2Vc4)WPvV3?L4t9~J^WJ$|)x`83MaY0qhA2Tf;RScW
zO-xlR+IO&VPbB4;8mV)uTpg$D@s|a5pGJiGyult-XrHhM!fMTCYP*9Ie(dd0A5&<M
zfmP$Fpdd-sWW%|L1)<1z>Os?#=#>Jwmx3owYSkFb=h-Qtg@ud+8q*IPXh~At{v1xM
zc?!J~SnVW<kY52El9NcVj9k3CreF7Ni+xjV`I++WT!<0HjAo2WX&<)Xi>=SefE)UE
z-4tC!d3e0>yfX&)^Mr`hkCLk=`-=5;BabCE>u(5^L-OBdKfgU80q<%b+b$w9>Awn+
zh_wdK-^p$-%WlQ>sl|zE<SvPb-F)%|YCy?2F?TrWGAM9&WG-!;I`CK6lZq#W#82NY
z;II>BP<o!1P)cpHJDt3G{f(4N0=oRcf18>zRp?1BEekIV`Tfo&$4GHX>em_$1Z1<6
z&-r&UqQc27$S6q-T$VeO6inM1az!H)^R&2ue-$E^Grr}RtFUNfi0+wpEagGVsrFdd
zTy<K!mLmaL`&V9YLO8i!uMcUMIB8picbNEIkesmH!Lo~a6XkuA=}x^P{CCF#Tqa$Z
zJ6NQA%N;8&oZcCt9lmwZAy_MCE~a<G3d5J1!owrMJ2LW+HH!PWLCZl`oSdR}pSWPY
zvn<{nuYyqKn|+eJx2W3ztHjEd>tyCE{w)CE>~f2IswA(=3PhMcl-kT>O~+7K{*Pl1
z<mDmSEXD#!cp4OxHuc}UDKJPY=9yW@GBj;e-<SvW5kx|uKc8==g*+MXo?*mj|M=}g
zBEJ9JY9+r%i#nPAuklZ~e9!uGL%UMufF{!fh;BKzDpG-1NwF7n&e@iZizbadtKv2w
zx>w4Lccrqj|2GTZQ_zf_G7v;hxujIt%XS`x7AshJuDxFD(5BgR3gUAdyz}V*-Oiui
z)a*OoxR_d=`+=ecEuSuLh!r`jnT(6^XD~hLJV-T^I^rXPz9Yfz1v52q&PncA7fN%9
z=5U5-%)R7tR`v42Hyj3L9EOALU70nt%F73dqxzUMq@?-9S}pm0Ffb(C{e@_7|2Xo9
zo`#Y8Rd}*_cz5&N<&L6=rDby!S2i*Ol|5zcWnS4BSyP4OpxBanQ5E7`tMsnKY;}bd
z5=sLhUI=asmkzljIptWr?Cb;K-!xxjT}CXKKZ`0?GD6+Hq{ft*T-E&Os;i0Q$|`Z1
z@K9wW9;t5|s`hwaHuq`2%8awn;YpmNta)${r_ax(LaxFSOit{Orto_x3M~uW_@Ji*
zoH{ZO!tJ!<bBp;RwIGSlU>pQGclQ+bbadl$laZo3=I?eH;AeWRCY9%q7=h>DbP=gL
zKU>#NU+B&Ljeobsk@%?oK_H!vjhrW+Nd-+B{sn-G&85$LJ8Dt^o<BMRop;(^A3O|F
zJ$?bkUu0gy#UgwrDbXP?Uge=!JZ7@ctXVb3c7EPdqq`n8<h|2E@qH2-;EjrW_dWs?
zVdX_V!BEi8vfcbGO6{3UV3;U0I_nL_ll`;9;<opi6s_K>wcz{LQ?Flkn`a#+yx7fR
z*)XrrafN-=db@F&kX3X_f8I;^bnA~x?4=cxe&nlg&FJW;bL8lIQ-N(Z<rGEW6#O#q
zgpFUj-j^cbEmt<ptiXtn5Gprc4t_-v!A0};e9;xE78lu($kZFD117_b=})q*t0QGM
z5`<LH%RH(A{#Zq+G8V=iDQ<hZyJC=0z4u9Ygp|$+hCInullhh3>YQt~u9v1gu{ht&
z=RC30dfz0z&*8(wr)+Ko8Ix3IDDY9(4_e(LB6IQuKAUjB@irHEY-b+Fbh;rF>-F~c
zqbCQ82W$}}k!MYd2SNRmweKled`NNVL;Q5DPbpQ>_v71xFI=TfQW&=vN``&{BXMT<
z`MAly5V(K4iLFC(B<DPy3S>DOH@dW*1a|ZPfBds4khAI8qUSBAT1^L{_)`6SyuT8h
zfSy!OM3;w*kyu)6ymWer@d`(#p<=J2gP42HYC>@2N73=f%xUIQG~e9ZC!kB^!(!8(
zL<UKW%rKL0a2?ELObh%xkWO}ZWh_aF6Cnqa_$SCV24iufa6uNfiex%ory8tB=MFlE
z_UrDszE87MEQ%$s!>&>KB>7cn8(M#dEDuXijjdiO=+U0Z(YHK%!!?8O<d;_jqc%wu
zF^b)C?_KXQaWKe0FUFY3Y%%G*Axa8~gluY)*f8CxX?-8D>nMlqP=&BBoCPKpv-+^?
z!Y8s!YAIw;HLmF(>H?D)tbH1GLv5VS_+u*xWrm8kPjtq9cb-bt13I1;#N%azs++ak
zJ@io_id5Wxr!#L4&6)uI<>u4Cd8tBs5Gxg^b`|X_t}>?lfdNnc_ZWz?w8WDe2r}Eg
zGWT8ZTpsS?F8VFTTSf1YEk0Ttb!i0=Z3+efQK<PFIttZXi)NWk$VFo;;Lc<E1;>wR
z2;vr@%K$z37Rv3U&s3T8;~R6K910Y<EPgf4M;8`CbEjhkVeTLD=LhuGZO-q@IN$Xd
zT8ru4^cBBuEEu%%y84h2Xgo?8NGRW~hXTF&w=3r}G_CulocytfH%1>}GAso=_G+4Q
zGuO#%nTT_zt^%|2a@pST_{1}v0)ND^&dw!4lH!#t|E7?4^b@NY>U^NGp_%oyii<QV
zV1x3p;jqy_wXn1J$a)DsHQjy9zx?r3oqXSC&0&9N^58TyH1y)#Jl87Rja#PU>k{;J
zw1D+D+eOnLqz33dMj&_?3pR6(chAB%iOH1~n*?aIm@Djx9oBDkN#2>P{{j{PbmDu1
z*Ozj{yN8jN-H0f>dkw`H^H|&<2gDr=a>TJE%>3yS_!kC=l|LZ`nRCOVGl#ii4L~yo
zU^M4p4Sr#L=blORdMA=D#E^KyDubneO9PRPq5@U?HGV&EpJ>c`I$p*$i+y{zA*M?o
z@8&=1@}u}kU8cRbGDHqjlv`Bi5h4)FrZzPBV23+`vprjBpUiy2qNP+?xm=%J+iX(5
zPlDwX^HUR~UxL7ga-=P-C-`E+b@QNr+eqiLQGu<qiiP(Qv*aK%XanGXJSDqQitBN`
zX`dK{C{K>#U2O7q@1edTvSN*GfNDUo<HimGy$MYy6;0%{!oIjwmF|F45l%sOR?Dz@
zvw_=J75JBD8H9!DE`NM=e<A1}e=usXmFlry+P)p1sHw_0Zrvq4##wY+6kfNPQTnrf
zb~bRf(*xF&BrRg|G*lR|RjK-z?$qj9SetjOJW^e8wO=(}x5CPH>J@w(976c0q-X5m
zUWh`>m-$BZtpz=vA`ze8>^}oB#i*C;J1piWfol)V)CB_PI`$*=g8fr;luPBsIM&fc
z`B|7x;i?Et^7kY(#h5Ps-u*EFc7Rkzy2AI~16=FDvmX>Qlr^v1zBrP%eR2^AKHp(c
zzL;+PEy0cw4Kf;h`t95`dP!kzgPpE%q+5Rg){K>RF>eG+M7(Y*@6uTt9XmO|=UtbN
zO9!q9NO_9xjY^S!y=PZ!Cmw9Kbl!O9is;?u_M1{*2;Fb(q6n`QlZ0}tV)r6g={)Tz
zrJYiDQme>Fvgg&H%&R4+rPMB6pV+|HuybRbiN~(<vwOZ0`qoDw%0taHP0g+&wp>G&
z-`if%w<U^`BaE=J9#fJ*1Cznmcsn};Gfz=m?N?dAs2*US3sre=Agy3DH>$cUG5hy)
z5ugg%FOM-7EQ#*(ggwDC?;ZpPGN(*6#V@M%j4WMtRbDb@gMqst|E}9934B^+zFbV8
zwVk+y9_(D59jEp!&hTo_{POpYQt&Ia>-l95rnRuI<$peU>9Q+&Jx9-fX-jF(vl)KJ
ze(yfqtGlVyMMXUFl~Vd=<>!MR-j9<P`yHC`76!O2&Se%dMvZ<46!049*a0K<MSo`Z
zg8a;wS^5h0g{w6G`n|R$p(Aj{+rbUnKVG16*Wv(i!7DHr@7JsR{f!k>)SQuRyVH%}
z4I0!q-3SJ5jM#d0eNQ&Fjut}+>pNC3%3f=Ne?#ZP@T9yMzr*Ga;M{GP%m$=>52g~y
z5nPA`a0%jG7i!aMIQBXr(06xU`jtgcwkMM({gSU*oPv6D<}r!K_pT2LUsz|U|E@n+
z4|6M;qptxv)47zFFdvIdY1)DvER`ojeqI1;yQO7K^#J3Q>9~i%TNC$(E;(3%tM?;T
zDA$ul`G(70-A_DcSZH>61<c<z44fJit0aei^|$D>|33dqz5pD)u`>3q^L9X|9DLPZ
z3Zx*Un+VuaowZ#Q5B@GswqMa@4C?+j>x1`{!!$G3<Anc_W|~^_&*)4nR_ISjaXr;n
zSlWUf5aP|_eoNBG-)1Rnh~g*^`saCNKiFlz0|Y~@`2O@H-bP-!>$j*ft1n;C*NJpv
zLORb(_~;F|DOQ=!#DcKLbr-*ypMF7O_PIEN^--PL!R$x9XPQ{PXCJ#hlzSP7uvn8w
zI!nGe+qZb!;4r?fq+xQ9USPmzwB-$Cuqi4xrRC8bO+CkM&*_&YDshuUFAVna7t^$(
z*JWI8hO}5XtOTO6H8OyimUl!uW|LA0i-&KjmnXe2Cbka4yX#w4>yq5uD1Wzf8AZ6w
zSpfI3TGcCqL{O>gtE1<~{=r%k&6ZDrUgS&b57bPA@St{V7RfYNo&WPOUp}#18dvI?
zFYj6Q1ix%IT$h+b0Urm9!};bi$X~`Q<0}72{&xp5$TC>XAmlxRDAkp}bkgE!k_Tu6
z?_Q1xhT~#qjhwLKHP`M~<@FjTL+jm?7O!^tbB1*HJzdgM^LmrvXRqsCzjjO|<;gzv
z&PmK(WxS1e#Xo}5>Pp?Sfy+7fJA3g_$8Z`2-h;PJ&n;BXpQHPHdB#=Lf@yhq&OFY(
zHVVSlw{wyocPy1b=$_glB66$IiopbH0E2<(SOSlCjB!)Sw5mBJ`^d>Y#oBvO73(>1
zpOkoe{Shrdw6**iYb%{@_A7r!Lg^YW@nBHK;C6EF&3ORd<rR{y9k+chyd$#N`1eB=
z;<>0{U;uT;eIP4xmunGE`;uT#)BCmFL*be<U{jpIBYo+{+>ecaXx$7#e*bfG<LEEr
zcEzNWeL=IQ69nk1#17%F!FR_axA@+<l=5xa%z`69PrG7bD;zS9HT`?*j?^C3lDW2i
zYY1)j-~PTYd|;(Yw*IbbUO{@+Xd(1drZiRn!*&aMrsH|f{5xlkd@sI$Y%BY<^u0H{
zm2`!CIlzFnX;*YGa7!UWMXpjVpsV-ktD9+Y;QGc*DO?kHqS|>h<ty5SvzUn5h!1m@
zNztpi9M$k8{xO{y?JKjcnqR+D#;D@6V}Mr;v74n_GXt(mkj1%`%^kiCQK$S{+zM}`
z36!c7n@qk1YUggTyO`7UrJLnAUsi3_W&xisch;3)w^n2UK24)1L;$yItagmNIVx(}
zn_<KAumbpT=oiKq%ZxR60)o$AwyW5$^GI1$NB8R5<p8gHI;#}-GEdFVYG_`(4Sf?p
ztlR9jzutfZdT4B6&h@5C)pNR3&UN;OetM{C!H+k7dwclbc1U0%<%H{_Rrs<?1()+?
zoizK+U8WQP7UL}ta4?`JWb5Z2h4kOOqGY5k*~XqHbsEIFk_@Uc*RQ&4Wu+=8{xJO+
z@q#d2@IGDANmBTgWV2`A<%{_d?b-CTQu=T+CDEsbaSFgF<2L<96?*yzxNEg7pGy2j
z<t)dPz_9+yGvQUsUrQN03gsbTCDc*377DnK+NUTyvK4|0{P3M6QGvxf6xRNZy16sQ
zkyv{Rm0#Zhw}F&^F-Upw)Zy0;Kl%5Lel4bt1?C$>7#{nJWfw4tZ7C3jqh%SZTQDU6
z(0cW{#%ssQQ}1x;df{bOYHy4x6V#2c7m5}1gbDZzgltu<c|VWUX9vBGN3vvhi!X~7
zj5Eho&&%{XOn=duIDQJ>ii2yb4(S(`(KJEb@YzFca4_+LUGSk+ye}#i7<~u7_xf+I
zWuzW&`jEURYo0JaclZ8~k$RfpA*I^<Prb4K!FP7m;eo%u=?Xy77z6$1Tc{skvP@{A
z(ZQ#QcVRB3$MLV_PIJWyS>b|kFR(~lBGQh_M^`?^35Lv5c^-iS)2V$!?M>+7H7`wg
zBK(tR7V{#yv~KUfCSr!hQqqOnNcK1r)$9AihqUr#B{(@R2O@XgkdtSU9zCzyVn^~v
zXYoib8b3^w4~7)VO<hdP>(j<H&HR!DN;~84{)Bqp<j?w39OSB3?F;{cQL;X7SH^H+
z!?y-Qc!9i#4Q-IRwgMdnVcWBRJ|?7>FPIH@LxC5Gs_m-i{PvdK{oQow>z}b=-)JDK
zu*h{uTug8w!B1LGazfQy(m6wN;eX|AyC|2Cw~vol*xBw3>!a*_Lecx^%LVDKd$sd3
zN9^&q#8+`p*f4VndTVi@to|8I%<H*sp8x_$*}BN%3ixxIK*>8^gBV$uQgZqR$F(SK
zOL2Z`Ds}zgC09%GN{o|*i-t0yJ(c0?NJtuf&DU6HqH*A{#HqFOx)v@A45?d&-t2Qx
z+LX92t!fL`l`%FY+O4ws&PS%zdRnXs5|vVc%ERHchr=)Pv4_7kk_5lDrv4TW?1@RG
zj~))ihl?bAZe18`2rwKDcq+YygzDvd&KLEH1vBe!5SYV|(8C0Lb67EvyUKLzk$ZW!
z%JkZyJ1<N}k2Aw!I;zZr-J1=D41GY}gw&-T;I?o5IoMz>iE2XTk+LAowTAs$0uG5a
zlX<9sHxYB*JY}vuyuFie_vz3#c5BTPna5dEyVNLvVLs&#b;L7@@kBo<2fViE;pgPf
z=jZcuB>WXndn}Hw@hJhFKT>3Kmg-2TJ(XY^7c4QSA<y4NdQH43ulZA!I}BN@7VSIg
zfjfKii0I8DOWkZ+)R!4A-@wlAUuLKxbv@c=AD>46LLu|4fIs>M)e9ZQ+R6IoUe2X5
z4J>P)7twT&>Ggz-2(SQBDEh{#cAJq$S)hb-(Lq;Kn95nnIbA%oXyfyD6Bjzf3I+=l
zL%dGYZpL)G9&JC~H%H>lP~V)_N<%f)FXnKZwz7cOx{L-^S9n%9^YO|l_{UnQ;ZkTi
z5(@j4f>tmcA^h3A6rmyE_rFWE_rb03@)!@D#XgJ}4Wusi@`pn&Fm3<caNzZ!;Wv*D
zf_AvqTggs@T_|0sr&eDofvoq}5)i6AeG-nC0~`%U{-~#K8LOd1?cb+rXv<pBvV0$V
zF9CuLGo-<R<dsA0sOw_rDIq+Nx+fb7OWfHeq<y)#e!v95qmMTP|EHh<3gBRUoN)3n
zr8j?jY{J)36FA~bFrDA&Zlgy=kS^QilZP^R<%@|>7|r&L+;6Z_RQ2B;J1@b7?}}hp
zfNU{Z!H(3(KTsIOeP~sQq#VIV41!U;H^lRx&s%G*`n@Shml=Uuaf%NBYi{EnVuB@d
zA=x~o<E05uOENq^G5%)zK79lmR;FArl^rLV+BuzJ7cskbG_u}EotDes`xUEW755CV
z=wflS(Y(2fSnH<`h8D?UuWtLG_K5%uvm($cGsT~ZG=ozjK1Ww6BRLIk5b9_I^o)p}
zxg$-Bp0-rMGzQSpDBn2RSr5)pch=3T&i&@ENOx^7<P4FYlc}Z$w;XYok1p(lp=h%o
z)kLr8HVRTl1!7h#3<7OrFU*DCKMx7mV5~4^&*T?)Rjkf{0RhUvxB-<Dlf`|8XkV_%
z*KyYIP`yMOjTc;GT^Lw8fM)>vgroOKQ~{FG84iRyc5V-$v{5Api=+$-kQzfZT7_J)
zcvZgG&hR~%O<1pB?0W%jw7ZbrI2P{%`wH9u+!KpMv1*zoY3x;yG#9mqb5CvpRIl_0
zF<}9i9E4ew@;FRAr>Mwq9EG-3=&h}qz<im1wqyw?Sh~Wl@8Alv01jRl@fr|d$rTht
zTM8@^bN9w4GmM6>I-hjSSqy)8tPCi!7^c=JVyNoF`=6Z5H!l<|&uczsS}{flIcrii
zxj<oKAHQDlB2pO9E{PP9y}?6>%Jd$@x~zx;hH3fon};>LM*JM(9f+d~_>+)9fI5cb
z9-^Oy>J>e6%%sm@hp<9eGw^=SxAX&E3me9>3NiqmD%KbHjvXEh$)+v@Gh{WK<x}?4
zrl9>qMZEzW2i;n+Y25s~t(ik<jZybc0uW3glE0vY{+qsR#=To8krzNi$%_$CEO8hE
z3#?d&jkdIt-sitno&iw`2`wV1MLWBTPLId}k=ep-IG_v|QW0W+M&J573khtnW{BJz
zU3kZUvjf&U7EF7Wx55CzkapMv0SM#X4`6N4bjQFx5&lmy*8AYRBCeYkkf{nO144{(
zgf`6msANdN`<o%<JG}CnPzCs}azD_5rn<7-ffd_%Sxg$rg|EE^0$wI;E+(f+faj?p
z@DL{$IQ+b&MWIDT#48zSiTwq>r61p_H;MOyKxG|;8$Y#SRBk4cu`~$iyY+`?z|M4P
z&)or1R%J2eVv-uQhA2Qtb3Qdi3fal#Od5U20YM&&|MnL#OaN@x3OG|_@stFjRifwA
zcu{|m{UY_gy(sKkMw1?)BsE6{9>nbCT$fL}%b`WaF_<m-!+~_(<WrpU<N(&p9Jue`
zwuDF@Ly0L74Q$P|^0u}=MsE*sg|QKt=WwXlC?fBhR!XvS+>30~1c`tX5IeuEX?pYz
z&T2Gu^j^07o8Cj&V?=_mwh8%(!)ts0s6QvxK<j8g+Kml1=3ovx=UnW(jGiJk#qxWw
z)0)Y>w>c;c)8h&~a>saf)shSepv}RtOPzgvxm}HOA2=H3HO6{iX%8pZc^ED=B_bAN
z(R03od4+-Z_HHtixLo!x_aHw3Q_N@EIXfS~2J%RIfGrmpk0pQh`e%934gchGeu;8Z
z+gB-;Wey#{+M!w$d*&+Z$>PXuqJ=&fTJ*s<=>7eDg69`rDi5}KPTvv?Gl%IxZFh{^
z8%eOnNs&(vYHq<3aiin01h%bd26LdchL8DN8!sM!sS=>X#kbB2&jc}d)k3PVocV9G
zO@>Amy^=7MX{Dp(#=9wZW)qI3N&IL6*;R@$VQDtMsbyQLY@#=r2C%~a3)G5C*D2`V
zSR{SEf4o0UviJkl*tCFm7l(-*MxzUR;S<_J1(#VOwUpfTyWF7tz-w)XmW2F9lEVY!
zk&%CW3xzj*rM+c)Jdlk^h!{$cO;W!cZft55uz7BWhLm=|xq&6lRi>RcR_G)U?uhO)
z#&>{1%ZMjpn9pUnke6!)0>9s1eEv-hJg-=o=7tMI6voH+O<c}j4y`{>!lzJ5=k)PV
z;#{=j;|tsD1a`9rdyv}NzPR<+JTx#A>yy@dz*padI@SmS=nkL&UL_Z%KxGmYEfeTA
ze3AB%5d-_z@kk+rEb+q)iC!}Q;_~JJVhmD9=LVON#WKNSKJH{c_32av`GsY=kMLim
z_fw?-8|y<KHxQGS7@EEJ_E0cX`Cn!4>|M8RT_*WSw}D8Ct=~~-3;b<!i$gB<>fiNu
z6dAyHmG_XPl5&-jZvm82US)rYgti^Z<m6rFxM8!v&dKG>KQQMc;>Fj$gJ`nhFr_Uf
z3XQHJw|4P%N8E5&U})LMP%PPXdCoxwI?p4lc$vwbiL#JkjE7R~9~XCERpjLyu{H*J
z5#Z8tz-at{D-ggoIVa~RAB{tn8$j`*)Ewhbk7KYPhO7%V8Yz`m(V5&L>q$;Q9)a-h
z!mS#36>0^Ak2)iNK|eLUkE%-rVQ)N25|jdvE-@JZ2c#to0M9%ye#r7{={T<@=suR=
zSD(3&`*$7M4J~JW<!@&3I0vIm<33;-fQH$ktelS2a50|Qyg~-2p2GSCl{X?*aJ;2j
zPl2cf>>1FLJI!tyMp{3yM&8m(5*ebULYZLM#&<$Z1ek5a<IuzJtbZGFN`cG{4aYjC
zr8pW4i(<f?RX=23;py<pZn<-N851TAu=0Z|POX`^nEzyZ0cc;y6x&j0s!JX_8}Bcs
zInFcc70yG~MINxwM50ZFPdDht{UXecw7LUXBAIH8VL?nu$!7abLX%a#K2;%0K*`Rp
zK*Iq8dwmEzd880O+7m;gKpApL{F!$$T;r<lfJ)#Jh^&!oX}2?n=T}sC261fF{fEX-
z;&)Awa%Z~X5Gx)Tcq#}cFl9Kf2-S-rMwRRzO`)~}1|~w;7@<Ya45`eJLUg8Bk^~n-
zCtM^SW<&no$<PG9gm=UHt3u222=49^kIVkO*kv!DaoI}@1K$U|N_d&&_`t*kS={@W
zZL9Y;f$VK%f-E)ywP@(~A9aAEeMr5<1Lw0=;OvVgC+^xh*b!5{vl&f~F_>`1-%$&1
z+=a`WsM|SkCJD&H##ZK$NA}O7fY)$b$mt_>e@JQSr)7^M0N)}QL44~87@)^!VhPmP
zU#Wq=L@Xqko_j7vy=AC^9{yYn4H-e;Gw<s5kU#9yGNiQb+1SAWLc^%_o%f#yADG-l
z<~^|@Mu!w}gkwUrMhxmj@1v&@ad>~R82T7h;j!^-kr?G*ClCYmq9I$+1X3uKFdlCc
zu|T*x8J*8IW6bOIR@lBUhIe!nBSUDr=cDne*}n8;CLfLt-o!+O=^Lf%kDKvH$RljI
z*P5_l2--l3^%*(r0~1S+oSZ+Q7C_{^z#nD_B=D;a%z+Kdgu7!XuRM}v3Uz!d3@CP(
z3MdF@Si&a8V=$>QM@PF*FL7;#l?nNE@#pDn7W6UyP{B_X@1W?Ac^J<CbJ8uFHy*xn
zlwLcdZ6t4U?gTuJAPxmYxqWq}krXy>>y*@rzaH2XLh^O3O`8hvvac3?QlY<=uLhE}
zxVP2VuX3;B4^>7$1BoPyrpUa2TeK=j{+#u9&2$D`&Lnn@hi-P=9jUA7IWkVig22W*
zLqla%X<mRnf7x+EzgfH{^{d46bpBjj-U85pfzc>CRkH(9zhc{xm0sh#^f_?@s<pfT
z)u^o(-HrlXZ&9frh4yKs5$k-=M|k&(@|N{Zw=NDKZ1n*a4u}+>JN#j6ut9^%{wt@F
z&QvF4&4zd!tb{S6VP5-dPx+ysgd;l2L7(3Sq7CGcx{Mj)TG5Y+g$1An;C07fS(+-P
z9mfv;MO%8CdWqeJg&Q6KXZw@H-q6$kmj^hM`%d1(9FfUpS4}*QH+61GG`^51H2DE+
z-p7c{BS1qV5c?nQ-do&m3cR=bGMl;{`vhIh3?{HSy@c<fs%-G*yfE+Y2(Kxi%G*dx
zktC}_QIw1pPz@YU$O;S+4tzpNaX1yiqzEKpG&}K?ivODha9rtWSqHL17j&XFh90!H
zc}^j2&@cwh`ukh*!7j;SIYyKk@{FUbcVkEK#E0oSj<Q@MuLP|Iw(`>(OzShueS*~8
zx}s0P^TV;*{9U_+TEMITIngfGLyI(@k=5)Ib>Q~4cvM=SmBLKw9+`Rx@#9a5`5)zV
z_fvmFLvk28$NSdijw<LuHWh#>ux&9$5WOh7Y9vW4IKAi5{WGAt{{pju(U{sl41+L3
z2gzAGDtUz-<?|3nY5Y)fB#Mc#H?n>Y;A<y3<kM(OBMwjHki`QxSYMY(7^kSn27;O5
zLabBpNpCVvs7H-F5O<Ke%=vV+{`dIrO(Ja;l$r9Ua9+j@eE)D$2<AE6WUqMyqy(J}
zKJLUFH5ddrf^D?6m>s1}(ZG+f(4qs%qZ9arKfep=@WSA8o{|#a>V@>a+|37mOdJvg
z*V<-+!oqCP@Qakh9bMh})<+!<rAN`hAycF^pZokPS_`UHC<*V4hHk0FLS7~erT5X~
z<i#(SqvQPsHQIRMZRqCEH4n#+WOE6IX-%-PH5ti$MJBF6ek<R(f6Ap8Y4=6UTEAwv
z0{L)Jwc*>Fj2~2$ztvPqF;2RY3aTo(;ss<w#QY8iXaQK_P1X)@5vw4`GEF!j7_(V&
zrpk*|>r!+Hoc9==oB&57(<5TYr5J#nL6iM)>r)!;LCq=7%b}Zqe}wiIAhOk@Z0Snl
zW<To6lnLKmjFw3LY|AQZp4)c&&~4D?thr6i@Fex147f5jW=HaHQF5lb@tfpgm;voe
zP}uXNyk1if%S+5&M>y58F?=;jS`we?PLo#aS!hB3y*%`WbZ)8@dptAwBVjvOF@Kd{
zn=c<gQ$Z26AS>M&wP7qvIk;gR1gJW6<I%5GM1DmRI9r;S?ktdzlm0x&mALFIbv+|I
zWnuvvh`#_y!g!k-^x55(S8&6p<X+v5q+MM`>irg&OzZ`=tTzc2?EJRUO4K$6KF_bY
zAvHPFZ0z-_H~hj7jfYU!`Ax<NP1GiGC6Qq&#dq=a<SyN0u)3*@=+OiQa6C;wA;=22
zQREcCe3Rcd-RycUF<aFJOtk&}{@(%sAlP$U&;d${eozj!)3o@2fn|A6n%`AdjSVmW
zd6Ca=wV$BGXYMD-Pd$n83iJ_?^kCs)!yObXTi0fMlUE^+25+-7c6)XGK#}&rh~Ctx
zp~@`c@!XruY~5rr&?2>GWNWKs!pyyo3<-ZGE)rL{zpcH=MvzDUSqiT`vTTvqidaB(
zSJu?v;WKs_ra94HRcL`YZ;hpI5lxNY?U};0Ob*-^x#1}twV<jh0cOqJ@w;#TpXG@1
zHT=$ATXI*jZP`iFiDI@pZ>A?n<5!|nr(bJdGQH2Mx1JN}0UD)1Q%}HIlEjPoyi`Yq
z)?hs2C~7r%Dk{uqcWDN!P9JxxRk~+@sjke+q!7owA6+26dvNyEsgfPg6!@l=h9-8K
z!c(9xnHDU0w#?fIt!$6}-tcz+or-<9u*I7#?`q;v<0w8?i|{>1`1@fj=ejl;0S|PA
z`oDGT!#jZlsaoH#n~J>)C4h22EJ=DiEyfN20JO{%okk)_ZWCgm4%ru%bC8L<JwUc=
zNXvxjSbx&@4M7gC>#fzSd(Wi-yi`x>2118_rh{c@#)F|Ht?BRIzn~Iy7<~Xj?56)5
z)#X-2r;o)1w@Ac%mpRV4QgPaquVZRzufF`H+IJB{!dp4t-pWaw!*d}0`k{*uq9A|X
zb%mALmdo3kO!bjrKUtG~^nZ`uS{ZSUOj_cL@KT@pr8H}n464OXXGRs1x(~Tc+EkZs
zmGk~ax%SGPK%)L@UY2_RM|r8`=VXfKonHN2#T#qSd;5RimXiLsTR8JKHS%Y3o3W!E
zhx{@T{OHK+#=C}}+!hj{J?M~*wVWz*=GNWciWgjZ<uq*;cs%qk<pGLgaWA#R`AwBt
z4jRW)ZtW^m8SQPd#FYW78|miJKv?Z;ZyXSa@3<+_Hw11~2;6Y-@d>T8b^jK`iddJK
zsUbIE<fKk|ReA62P5ty*`BsHFWbGNHq!ZA)1DJR&*J51ypOcBwQbkOGxPi=*`%jd3
zyi)@6ZMGj9JF<pf)>6D3#&3y?|Gk8H_fKb3EG|1(LgUR?hXroCBOLGLF^xDmle#(@
z%GQ70BAOgiS%f<XbMFN}Lu^f3^5C1{&jaNhJ+T_5r$*M}^}T(0PGDJwTlAp86o_!g
z(5XL;h`JYztpSd#9hLkkmajZhboyr@xU1_k-3`1q{-+jMBKMkt%KX~$BRv^1yw(rs
zlD(Yy#&d5qgQmNHvWDsFd3zVlA{|@^dOU3OfqC03P~-=B6Odv6fHQdeGMuT=2+b^#
zXzaT0cE;5_9o%iIlU!}I--<w_H<A=7-3s)UM|~B*36MbW6iA@U!#C!;!A+n8NIuqE
z{XU^w19ec1mpa>(zCGcDFQ@!6$Yc$uvV8IizAjU$uISA9G#hQv4{slDOD<dF3HI&Y
z|Hp+84^Ow9t+r8GgX7O^<|`FqFg%#^Mn@}gs{bT;^UKVDQ9=Jrj)w?&fP$Lsix=%z
z{eoDVJ7{xR`)`YdllKO&nW{bYpIXmg0Pe9j+H?z+kI_LGND<|kLjiMcZwAGCKa%0z
zPF#%11X#_RCH`kk*^x#;BE&DB$;n}el4twBJ~wBh`M*K!&A<&N2`RH+E!KkUmB;Jy
zDpD|_!F3<rY(~B~qN6;ZXtJ`VmPP9~vG{=(2z?4Jwa>4@G&DFENFaae`8#Z05P^J?
zUf8vqd`rNjUqMjjKjH~=_`{0+O)Zew0yrY14EWoYLxO24yV0fDv)PZ5a#UkU74y&K
z;G(Zd(GpKL+zP~v5c4UaSe}hbbYu!`eq^XhSg`6d_jY_??xFLLFW#OP<CN5T@x;Q&
zqyQDOD)7U``r98u5&R;)tGFQf0n9@6;aZ@vX|T)S{kAsgG-{p(^O_Eiu}~WLK;T<a
z^nQwCZ@~cK_^RGXjp+k^o<MNx;GI~^y3EPfE9AcKG!C$ws~50#R{QT|k}ajngfj;?
zY!p+p(wEkw!?D?a=flKPmqlNLw7a9x{AxWA*Bc9tS~(w|A_nU4G^bhL59&KDtKrZk
zl0{|AFB4f(>+WwEn$XLK{<pmRFi=g_i^!<4w)Se$nTtE!MC~FO*B3wXe)xVLnoJpO
z$_N095*sc|*PZ(Vu16nvg5CiAe;Z&1QdwEk1P^Nf-PLA<cGAct!fJ;C9s&t<`U_#<
zx<rj3x9gEWd{azG3$^7>f(8r!mVaUay|X-r+k}221Ss`h)SA|v9Fqw1Dz1Wpp+;Z`
zegPN@4||wPygMYtx$@p5(7rgh=u9S)WsQ?P0UBpX(vn&g=zQ^8*loz7luetZOE`I(
z6xw-+O9Qlbipk-<sCNmr>XSboI=8u^st}drOjza7F)^n*%Ycn`mSgR(5>GTegg6h7
zglUcfCEvti6Ae0$NZgpO4qpcqBNo}P_Y|V*t~Ii3p6!aeB-KPz;_IVJ>|GA6>pyR2
z%<n*+wX_)%(PE_WHGBH0jW{cb5-qoCnAQFxe0u?G52@REtEgs3LL~uHhz~BEoc;#{
zWZcF&VaiC_NEOclSK0bRMoN-z2qMxE8j2ZG=d377UGMyTvWgK8g1i0+om5fX=0b<<
z+i~;wpK-iB+`qM3A4_o9(w0&znZx7a$`(Uv1!61)(_H71`YD^@n{b@f1sokC5~RRO
zJSfk|PSx1v(<q6sWpwy0dV>xhMNJMkf0*sVzdIOTks-dqWqu)>2N(RUtchJnWN47S
z7~w`iU*dvmNA!7ogMntlN7>TmD3qb4iAnno`6-qbk-fL?CA~-;(GcJTFdYhX$kaKV
zCHZ{k=f}7~G21`w$%>Ud#ec=73e>*+hlq~`0YrQS*q9RdDSYn!-Y-RXoLk_!Fmtsq
zYT{sCDSy7@U)WokR_NhiJu(bh^c}4{U8yn|S2#mv>DU8eL|WdqgiJhSp|aL$Dg9V9
zmEHYdycuNg*uSwuwoRz6-pO-t&kO>NQss+4P@@c=opg;Rs<u9y+*73)(g0tPPAVSx
ze)C7&hwn9~tcWdsx?qNJ3Zl<Dagb5Kg^fl$p^5K~*~xH^aKrl9i;*507MK9>myWJ3
z<U+}cDV(Z?csvq_jZ{WopI?o=2u3+r>IUPg<V#AT_#6mo4H}Bl@}B%#L&>2MQ39t`
zg787GX2PWt!0`Wv(NY}2|McN_N+Qzrm%?lXtG~eLGPMRn7Ey-y#k<%8sW0P=*x71g
zf_&Kd6Mg`+omzc+%;9<QtC^?;`d@xLE?h3;s|3)Z;*)$H;4BZH44c<Cmyoacf*5=z
z#*{Dw5#w`eCwc+<j-W_aW*2T3uk(Rlv6_y?S0z*{f*^bDrk!8Td<)|50gY%YVpwpk
zOOrH3I8yB3qkIutrwzy8g?2v#RF8O}67cgpDN*~w;rmQ8+&qv4*W-{FVf&X$l0aR7
z_U$rfLvJb<f_P=ihaDdD9}`qx%r@jvFy(m&PLG`QLBu~ed}#f1wR%dpU{ps5wHNhe
zoukcttgat+d~O4qyAMwX3e)3#0b-jHpC8o9IuyG<i~&p9_=tCn6p2l78?Bp=``#xA
z1xhWYj$d>@lMuB!X?~tW{e^pK$jASZ-Xb92HTUO`9xsFeX+p2u1sODk=s;!K0E2J)
z#doJgmPJ*c>n)oIivt{hQT6+n1i0f_VSY;KhGST;mzPteBF#8(uz9R8fmvDeW*qF!
zX>~wxq*4+1w_1TbGGsYZz=a5LZRc~8!p95)@5~~P?%a9Ei^+)55_i0SeF28xJm7^5
zgZ}f)A($8U6rClj43jAdvq@XJ=j?e8cyLx`(Gec(@(ukzP2apapfHHu#+${k!f~;9
zIkWwx_3A^{yPN=Gq+;+H^5`A--NuoCrTu(>bR}H^z<^ZUg2yGqx`~2`tQ$j#+?x{`
zBK@wT)23u8ocVHqVM6E;`(LW#Ln?2cU2k<AznSl2B3nCLBS;}gWHTKj;!b>`9lW&k
zTQYwy7mT9!CfJVNvCsLc1_s41bfI3rshF^r{|H#`aM2I%qXe^9ca>04@&C#a(w+SL
z{;(toVLmn*F5g-bCauRb%sj5ZmXd}Gz>qlTmM{P%jQPSm{&7@{>*5fgGJddht;hkQ
zeTT-H|I^-gMm5zvdj}A~0$AzAg4n16(u-h26jUTgZz58IV5B9K2L&5NkRk}k15y%t
z3nh>!3ep78&_gKFLJ2((Qr;c>ul26`u6M2b>3+NCOHR%?nLT^<?Ai01ne3xws@7$X
zg^ag^JMCXyaXXI-V#V>ux#a}rgZ#Ndv2pkoUMG+>fzMM)K4x_Eo0`iGInK+6m{r^Q
zykGlM^!-8}*iIJ!dxqm4_YFJH#FIy?rf(aH73CZxCxiH81GbtgK$%E!iGCmjm^pWO
z2hSRr&m!@CK}yUP{2b3&!Gd`MUjMJ(S;_0;C(SJ6SaV5R`;rZheXSAvSnD`unX^m^
zGms7`4k46>$~u3K4|05xmCHYx^Z1%1;Q}R|HA_J##TnEzhD`Qo(WGo+>DU~kU}<%7
zABMB!r18oR;e3$D=4xWgmHe7hr)2D!Ldy+v*S5l!R9zarI?7C4<jZ4gQ9<#yN16t<
zo?iA)>#U!;>_ltejp85`+Sk$*+QrIpM$SAt0J(ZvwQ6hX1w+V<Bl6s5Ybzf5E&MHH
zit}k7`K4n%<NCW!8Ho!2_4GpaMn|7j%noG!TOYp9$Yc7jI@iZ+@3kh?g(A{PU+tyr
z7~9sw<3rf%cM~@kd!s`6IyRXwj3@1nr4ZsHZuQiW*IEfLal&EUL1d#*+rauFsa3E8
z{BGSr3P|^JHShGMq~dIW(z$5QG3W~+!O=F}?2~1mx<@ty@FMtTV1>(RS|u<!|9A00
zr>CUaw5wOYCI2UI*mjH)!{2Sw73WnAqK60AF~oQp`u-v$=f+QHU-dctYtL5eW1H1D
zhYs~%OuXxu1LfT8<e1}M?Nre>X@GxIe!I!FLaN|$JXfkE(<)_RxkZq3+0S-hoBo5N
zAm8wqjhU+>Iz?`+U2THwghZt3&dS{bITv$o_)-TM-Yl%E11FRZwM!&OuY;hNF^FW{
z`^=tHIn27fn->Ri&ufLR<NLz(b~V3Kk}r_m@tMO+uYBooLnnpg4liH7D;0enyx<B@
z-)+e=z&~Iw`tP>wdlKb#Y&u?w%kjlHSe_M!FKzgFdDU`>7<fHlX(vmYD}vZye9mVT
z!5Wdx8?{`ZQ~=~lcd#t^wNQ8$hhLa;m{mFHynFb>cj$ty<%JL>pXCEBAa)9#lr}PV
z%r{n9yDZ^znrKg<%Z1d)8lg<s(9c|!^&Q-g_{5izsmCS0uj7opI{POo^d0OG;U=^c
z9nU=9eiV!&NYY<Zo#fXCpTT0rgV&Pf_5x@jCd837eCc{T|4yP;)bo>zh}{_wPM0oF
zTRaEc>zs@-b}&!$W_CC=X-(>!#jzdw;yZ{l;?wR;8OwN~QH>4RK9JD@N`IQ2P0ksq
z+odkGDKOfHU)2{o(5kB~DPRLZ?8#TC^*(r8yyrStN~GOVc2ITD9Pg;}R`$KNaGb;%
ze6;uTe&BwCoZN{WLgD2&()p*H77!`n!Q1RUxINfOx{!;k!&LDe;e8ygkYBCPjm6!)
zT)17{JR!R(lTP1cb0W&z8P|~;;kULX=3HW~>`+zto9qVXcN70Yfvc4ueikEpWNsws
zi-*CBlHIu+aJ(7F@hZ^^!JD&8&wE;nrKY~pNmsk5a>S~~s0%Wo2{Xs}4!G&mKAq4K
z5;yCEZeK33?+E!V4ZjBTH-xI+!CorcoOgi0$sXrqxzz4Eqs=M4f&1T<QsT~D&b>VT
z&4@SC%jmQhtQIkr_cYRorHC#lTe!W7`D%gXAK#2ORK}>-Ajy@vCEoLnFRFCJ*;C?R
z$4)X)^s&{HTwS5gSb=aYRw((_3nf{x!<k#RW3RSsE;k4~Pq87q-sXG8clw8BPc%Q^
zB~pp4f6{K3-7;`X=?5EY`^M5<%=WqO%?|ZD5!;||W){@-Jo<UU=|-Q+JVmF!sn9PS
zv*B5;$rzp}YZturC`t|9$yX7kaaphk_K4n}1%+g?;h00{>sJEaeoaxPH+o`jJvb%v
z^mi`yB8VL~q+bIPChVBO_^WTC6fD(64BULFOs8w~rUYCAVoo=L;x-S-=#;{}ijEE?
zt&A!Q?HVtOsx!6brR=>7IWfzp1m6GrmIA5Do~TyiBuTvJGb6WB5l@B}ZR=T4vbDxa
za*esn4Ka+s8WQNmJ<FY?(e3M*-_Kx)Pt<%je`uU${nBd~PViVwETxLO+dS(&G|p<R
zkL@d=leq*`RlJ48FjZVtMr|y|u*2B0tgP;G4=Rr9G{>{=*aR4E`Exin3Q#_mpbA3h
z@hT@gGgw(7c(m5GQG5rQ;^>P}lYEbPbTO`Eg)fuuKt=q1N4KXhRxuZC;9vAdDo&+W
z?y7+t`?~bL0G&kCjay}7L*KtK*%!BYzfqH(P%?Td|73lxF_lKtpv?+rt&~3GE;ko9
zl`S=f*O9=w#5z)=NeKyVLw(AW%&!GZ+}rxw%gZm`w$}|FN5B;qm;VIoYQ`L>xa{iy
zXS+a+tHWzU$&B6oDJ?5y{oS``C=4rk`%SX`{kQ&7gNZj0!N(Ms?0C$<zft7KhW`E(
zNCl|M8)rm3&P?{F)K$)9NZSu@BY2mU16N<j-PFeEQ3u&j&UwH8G*P1Jtk8o`Anp!g
z?mI@NrxfGDI2@I{0XB`y+dZMH6p8Cd(;_z|=nZVs*`CCV=V`aiNA{FeHmk)KbM&~$
z0Jdwez78dOQRWapQ&4t0>zK-XG&#R$AlrUeb@aUL>aAfDZr*Sfd-es#YHUm?EJ{bh
z{t%6KuoaAQSWI+pz5ha;@|Ty8UGfrzL0{OE5UT6~8i3j|*7^1ch^5KEUVQE2@Z-cD
z66V1QI~s<qzg^P%x~W(6d}BJHvU+Z?_e;N~gT*YOb5)2Ttd0@LqSu8?mMa^c2`R0h
zc^yB(3e4PcqT4V~lc7gns9pX}UK7+D;V(Rs?)e|ZkK*7(V3^e|t2eqZIfs)C0&I0%
zof&PDq(#FHz>%oT-}o1*2QgbU0TRBn=6)3{@A3vDRB%)kf9JueeKLO-+~EO!yp_^!
z3#mOCJ>9x)nJ-VO>U&8^s?Ldt&KdkM+|t%dAAT}1vE3nLFu^t`iY|n5I6eUqzL|W`
zz)d)-|6pD5%V7EMj~WqUJjZPkV{KI7gcaOkJIfGAgHLKl!1q+EJFF2(&o}Z;V)K%d
zf5<KziC;o-?0@}uwpuOjl*@6SkX8B>uLD#|zTvme@&L2$+%eoQe8vHc&ZGX3OcN7q
zOcM6)s27;O5fkY8(XX=<=)u)<J4UtO94JPl7YmQeeQMzx7B{RZxIZ5-v-NV;4_D!I
zg(o_C41+^Btrh1yGywT|qeJpBU%CH?#k=&N!xDMwEN=F^|CQQUSC&^cIVpUDaOjKf
z#0e$Gk}HBnqC#9!+Wm9^`*I)O_()b;eOI3}T<C|pyZDmk&Y0`|?cDN3HN<94%F}n!
z{u6a71r1Mve(}XFD%X@L#S{97+@9ParHxt3C!Kq|LPZ_U>PurCS6yD4ybswfC(Tnr
zl!|Tzi(0p1xm&ITz)S49GnfwmFzwqh=uDGhfNky{=hHi7dOJ#`F=(Z2E_0!U!JY(f
z{wAu9${AdLC2{Lilw^P6&D46*pGA%icXv;;eXXa)+f2Bm@gXR%orPNcaGh5Qzp*9t
z5+n<puVub{t?avz^VNOg`-X=Ir*#tWEn0?d3e}BXp?*BP&OJ*~_&o#g<?#ZH0t+7M
z3@}U2(%(SIQLlEF*AEY<msDilO(7+(?BY1#wk&Zf>S44ohEd}(^3Oz&FY;NpHicYk
zJtc?5&fRx*<{WdjrOxDAH{d*mS{CGUjW&N3KUUhZD$@z6KudkGpJ!!^y+JgoJH5zE
zt@hpW4?2Wqk1zj@8-;pwe5o;h(e{@`h>My1GzvG-END<uULiI1LD)U>Q7z)9#j%+4
z5@N?agQ%+4w0nFy&tp35YieAW|8_q6lPBH!`-f8O2&-cY9}uQb@1kin(&^!gIt^~K
zT)WD5`HW%>Y(MPw{BD|A<udZ`*=@U{rkuRtLu8mWb3nJzldZ(gpezzB+*kI68{epd
zJ<7o4ho-&$c0J7Ljr1;qkeSq;TR#uI!nwW2y+}<qyE`ME^zHD3y=s>|o##O4heHao
z@2TxkjsEH!P8Us;YSZ*ZwWj$z!HSsA)nA<%H(k|X|9fyaD%tpB7MRVX#r97-_T;Z_
zl{q;(13Xl1c`9n}R(9wrr}P-*M8{sGMGSM{(wpa-S4X3RI|9EhvNYGCoy(Lh#48FP
zgUvF(U%ad3sAnOwwm#%vChZ3hdX8fYSi=E+zdm|o^fy+n;2$qb*4MF!i-B*n0G?SB
z@QAP5gFia&I_U{}CM2+J08Q8ltZK4rw4!%$r0~!s6unCP#KQHsn8^Hy_$QCDHQhZ1
zjqm1W4-U3Su+op#^Q$zvFvq1XkBjkNbWN>{%^ay5fBu8XE}7wG)&`FJ`+S$ohHCG1
zn_*v8^<#Wul(@~guV}WUS>+nM0&0k*%GAn-jFF~8>d3Y>mu>N6pmyKc5#D=6S2@yE
zPpNVAi96VE+}{)Ydr204Zb@fU48I-z1mgVew`q~;f`pOP5P_tVIvBD4bfoZ09<j#`
z99I|Mvkj_7MC;XEOCerC?W)=CExGoumogCXR9GY8Cu$ZWx4n2ACTw{Ac+81N1--{V
z|4EBw{di@|F`neq`Qyh0{^LtFZ^XF|I3tundNdB{6R7KRc8LeS|D(hv-x3L*jyDbK
z_2mXWb7YMDaZqrIUJX~9jO7uyun6l{tKB}ZEn_sY58;XbH$mlC?((p4u=w?BrkXR{
zW!r|S2e#5_iR}iAHW!Wn=4kRkr_n$0hSpC{9ad1k?<?fcoNjEDS7@`*2)UKs692uk
z)51oH_VF?2v!yMpY8^-uWN!<|K3PB~#m_VNc17Q;2zxl%^3oS80D*|v8(qG151+~9
z$}s`T2?Dpuq~cEno&v?Ae~Tj6bsiM1HyYvd0z{McRwi!-_Xm(HxZ&Tx(pGfb5h<vZ
z<@KDIKb^JNrfUN4hBtKbS!5b)Fyn|q#qSBf`+Kv6k5|W<FrRsHpTci0jXOpS*AzA6
zcJK1+st>IKrR~{NzB;XWecBV#@t>s|^5p`mdGE9i0DnS*?N6Wxl%z^29ej%3Ik!-r
z`@7!tE)MhATx)I98eQRdY0{%lmTfVRrq6yHKF&uuyC8VhliWF}>}^?o^6L`D_SeA@
zt>3E8V=7M`(Cr_fTp!Y{&vZ1?5_{|84|D1%_2cj{HVV}mz?jOsO+0zyyKYX(9z<MW
zGYC8H6eNSz&z@Q!@(8a^#c!PEztCs@u2Nya?{fU^E7vFV{HvT1*2YcaG!7h37KycC
zcpQNa*0no4TbL8<U}gvJSimP?gV&pqWj}~}h?rl<@iV6|)?IJXNzCSal=-z*9tpfc
zc+luW2Qf>==Jk!^Q&%0heb#r7RU11ATVR#wUHRmrblZIV#%Jh+*IBpBU(+w7`CgsH
zD3Bm@RE5;9CzA?-vg$JrJsJ**i5)KQkz>T){$(>La9r|<;l#7?$RwWX25~3#g4O$3
zGTNz6<||fKNMN`8RdRR#j7;3gKAu+hc~0zpy6%$G))#>M692aACGRGc@9jM+b8Ue~
znCrHzn-pQEVTjW4bbH?i8_!(bS=;PN6Vhw9y*!#_Y#)ny5-ZRCmk8ez!UA7#$bl-o
zJ-5XKl6Yf0!J>ocDpL!6JgxsVA9W<mG;vLD5B7HMePA!S*_k&KRPT%%ZWiJkV%1Zu
z_1)%^Q3`28<AhPf!?v~(@0VY>ZFxASg*+xE*nSW$De}rR%&TT`264)p8W$%{L~Q+Q
zT-{;6hQlA^Ne#YtZQ+u|;KtoPRNM6#7G*H}z4I@xp;WPACecu!S5ft-dTtKObaIa&
z@WW8ybQfrRPSz8xrMFn5jt|dLkDW79B*1VagS$`%Z<7c9{GoT7<A&({Ur>3L)hhkD
z!lg~2I-zs2FV61Me3U&I?iKvT)F>36@!ZG%QUG-=_h@ioh-Z--<$8~f(2&d#HI**=
zdpS`(IY=j6SfBf-{>_O?ZA;D4=^90|XxmBQ)M*7PKAXzStZQ*HRN$g)27|bde|FW|
z>5lk~rUz+gu(ZJ0>E!||#;yPrm=qUX=+w)^VH{`d<igxQXwe7+QI<ne2~)Zu>ac!3
znPioA;q2NX$zAkirWm1Dw~QSN+R)YT>RsMOyQIbyEmCG9*oCH!U9f%Pg(~}%iip{{
z-l@N3N4iQgpF|5d67+i|p#=4!97a05Rxm)#M`$1_tt$>$F`13uV<?&qDnHmchaC5#
z1Ad=|0v}8s)xAl*s<QAPEmvoc4TLVX^eWy%h7;3mJ3giayi0TJVVHe2lHBG3qX?&q
zi;PJeFWprm)Gty_-3>XhEM*q2H@cKQky~WLY@GnkSRZq$T}@%An^f~kqR7m6+ikx@
zLv0A#TjD&wp@~gj<eO?X4X9pJMe^S!xLX-*Un<YE72slVVh;*mgT7|+;f213Bq8_U
ziq0DKyciQe8r@Z`mkLl=ipJ{kZ~8L(^{abkFO60_I3J+UC8fZ1R<Zg)@zYV&t;a^@
z4$X4LPl54Xg{8NEk)a8!2zbQ{Cz;w-{n7tqxv}BpAfx|`1-y>|F@B{GDWHwW8ua0<
z*-G<vJK~TA*+PE%*wW`7XE~szw$Cb7UQR=(YftUWs~!heQMh8XzN+?d<i#Nmhzck{
zf%a*zfiDVdu|na{+R)TJyy;i2i8UVZJ6ZK}{{1j=zk2#&yg>X_P_3`2cjg410%DZf
z6>5DY>`?ZSP&z|+a|IIFcj~gt{$?!dQPHUd+-c)Qrm%YQ{In(Kn-geN)<S$4j7v1~
z%vE4cud<zmrq4vY^k~-%aZ1_xJ9G`iB}AUpNSnW8;TnPkde>3=w3x){_{;LgpYIXk
z_M14w`%y7WIJ_VwD0}S0)i+_;_X-Tpw1s^SC^%TyeLc%YS&lzF>7TvQz6J0ws24}N
zexyeNgd_fXc=t23zGABej1@o%$fy`_&1|S3HIUkwh=&;ibAi;LUaPL4UhK9ut|DU{
zK}oX@yb_gUkbf06I1_})wyItDEI;2(s}IG6b}3QrQ&KvGRW;{s2Tl6@I+y(X@xrkN
z+_LdiDRbLF^-V35ccFZVq<w=^9P6K6yHH8U{S#nMbO%ei;e-qL+b!H`qUAlsnpi<A
zZl&P5)$@a0*0ad%%5G;B{h{tp%+F8v&b(^9CQ$P$d4thqnz_1GVH&&|N*{b1Q@=KA
zN(${vjtN}P|7o`S6N9cZLN6D~{aFkidvooH&*UZ6=I0swsb6Q3pRc?(-=3~w`WkeV
zWT+Zt-Xmtw$QLX3K~fHLVj;3=cP5g%5bnKv9D?m<g&N2cnOn22Oj_HcwWtYGsATQ*
zD6<PW^>UhFmp$^NGuf0rEWlddQj7he7usbmMQ?i<98)`6*jTwTekZ$L;8oy6D<I<K
z0WH0h?e}9KxHCM|cN)5psioO3#UBD+XcfS=Z`TK$|5OoHES>{%r)MV4)n+YwuC>;6
zBK-kFrN4Ita6lZ!e`B!ZQx-bQB0TPspAurd>+cFx_Hdsj&DIqMjR)E?%I2&F?6ZH4
znKqWZp=BpX28`ouY9Bc(R1N+LkF{U_y2@Wj3!o5qhAMgu*MrH0iK|`I6W@u`P1m|s
zB(V4SAWsi^EOA2cc+lx7muwv#@J@v4&xXaeBGHn_m2V}?$y>V}s48}5@S37^%4*kq
z!FJ}8pJ;`l%LB5pCD6>29IA!C#tr5KiidAQ4<`}L37Lu#!9pOVU@zLnrNaa+J@^mh
z#ajQ$m9ONE#E5hatJxTW8rs<6>UoMz_h<hPLCYTUw(l3;w3b+~@)CarYpK&J5)>Mj
z;?E{`jc-MhixSq(qff*CC@ueUiDqV*!2y9l1iy4f!#3=LD&Ih4KOhN&Xx#KQLOq&C
zCF7@c6=vD^3M(Ma^`6etJh8g3BZD=jdg^nL5WM@tB~JZ@!sX6oxeR#D8;By8nuXq7
zTRRD}baUj|nHFqW(Dp^lK0tr!OSFXUgxkUQpZAs07k`c^2gX)1pd*+IUVwxmrel;F
z0=d6Gv&h6tJA(Rw+=8xGwR5F%5r$BhdwpG~a0vd#;Zg3eAd`oh9HqkiP)e#N1Oi62
zdo%hEAYba!!G2*npm7_}!_U)g))UOmd32#N!L@l#@SvjBv;{TQ_kD1ljU>3{=jqbR
z2MO~kzbj!u%zfOws=r=D9wI!7ToBbPqJ2J_xIWlCt>unbT=k7<zs~YjVAM0#mN$BE
zLmr=&Ur%|Di~&>?a%0Mn5aD0r4Y{8TQGm2NeG0n1ewc6=%~PB}btZfx*x!?SgvhR$
zDb6>^gr9^sv@-h01r^@AAp7?$ahC4?QEX>MWI)BYpOY;KSL8O{ppk@ZG{&L@inAiB
z{}PnT^Fv=V553DM5y7~Kq}wpA!f&mQ4_tI{V|c^+$lTF5R!Xr{QO50t`sGmR3$~aN
z`TRzxPT=nK&`-29k>5b@rIk<=>$kdMaL&RULFlwzUpqBVu4P|aBViNatvnYgThOPn
zNOJ9{J8n#NjNYa)D!jiRs>eQ-BEfq3Ebn%C4C91$Zpwq3uPeNHAsq=WHE+2csI&;O
z(C+O%Xjj3aJ+XM1R68L?Iv}YxfU|{PUH6dC4PJ0XC3^<H2HNHD3QWEG_ef?sp{1cA
z6Q@M&tZbpk3W|-dqskV2g*=%+$7yUbD$ohld9`406p?HLf(li-ZhxO)2X{zt5ihj6
z*WkG{pa3hg1rL-u?-10}xXxk<wg>$@*ap-mtX2lU5C3l+>lkuDu)S`PcM@m>-Ug_R
z!yTgfbqdkRvI!SO8ga7xzZ6)(ak|d0U5Ng1Azgy);Q26#lWZbE+s7Dn<P>YmAI#Qe
zk3_Zx``ro?3cIr2%rBR>^pPA-Ub~g_m_ml3zz%~jl$~B;FX$+qzh7-`Hw0g_wm?3O
z!lllKhQhDF&DSHzjA;AD4MKDH5R$NmU@OM+q^oGL7S&OKhI#onu|;IX?$Lu#Tb<nH
z^1T@BqlI^5jGE<-&txNlR$lJ~z(79-+sOZ9P|07(&k50K+8ep#Zv<Nu=4S1VOcuZ-
zau7j$qV+{bV5!BDchc{qLy6g%#mn*hndss|UAqSV6~Bs0j(}E*7+b;#X{dG?G4NGZ
z#~8d_n0<1F!;bwK29V1>Nc&_Rc`iB`?LaHGUQd{<3t2H^d1ua{A_&Q@#JE$FT28^p
z?B!G%O$c-#nRa6$tqBH{WoV|dSs}$acsQ3fhHY`s(!tiP7K)X9U4-g9>5abcw2i)|
z7E*h9Xkr_c@Q}z0ntM3W?5;8ZP8`N8{{_+jCzrqsVW0e0j=+V|k8C>*4#9U|&Vd8}
z&)|;G`8DgU-h)~8KYcj#X%y4Gk&6iH1T~Z~id3{%#<gB@&lM_kPb&2{E73?yK0l;J
z^C{2Z=kdW-CG1^d6|IcyF9Q!Lr&+CclFP|@7P0A-9zQ$C+YY@XL#=Q3iFT_hF)>BD
z_C)pm#p)(6&;<vffO~L5RV&wROf(nw(AXO?Is3OBis_q1c3oar6V{zR1LwoQpr#pj
z8?+puB%TVU<lxz6@<uA=@!Bg@vJl&%I-o)-qe*mJ<1Fb2Ygh(cbdjqNZc5veN-Sqg
z9U&9FD`>hY>(p)&B`Bs38=Xy&`t3h)Ob(1a1poU(_n2C`RDq<;Ldk|o;~ra`?U`k>
zLe?F0TVrF8JA6EcnMl4!K%(+2giOl3lbQ;fmnKkZ=B8=C{hi=9qna0%6M`B`QH#pC
zx2aFxo7?}O1wYCYMh|(6H2-9hQ;l?RR<;`X7GXep!V0$1`H4Oul_yIcZ(BzoGGT}c
zta*!yoijDbSE0yT@44@Q?L&=7wehDCdsp6wmcTVj9uksQL-_JsM!NjoHj}NUibCxb
z3nt3lVL-JZ5YGstM5D=AP({_oJ(hnQl_&Q$3n%){-w+;k_Fe1Zg*hecomk1=+ldl|
z{>p&VYhON$`<)+t2mg|y=$v7VBy{blT1wsa)0u~>seFGzdyld9Ro|!HfD=Drr#;KG
zpXOP{jCHCz-lja_nIpcjT%Y{crm4v4-Kx#Avbv-|GO2-ZG@-mp3L*bjq>Q^!-WTmF
z!|8bfEB4jj>P%;sj(th5zAst-OSWa{;V>|r-pz$H-#f))P`S21`7ifv+qKszews%f
zjp%LK01Nb~?9to<4*Z3B(lKP~?iCgh<&0U`Sf+^O=$Rwk_PLY=clz#!HD~k8>JhUv
z)jXic+B1DVXu(NsA;-dE7dsj?7@d5xCl>9Udbbv$XaRcY5c1*T^-xEyE!h1kmaTRE
zc4NevmW&=1yn%Ma5}94s805b`Ob)KTE!6Ij<Q$M4gSOK(lFGNM;)0KeR*>7T)I|O&
z<(;lQ;|!Nu?ZyS8UZ0+|fJ$W;ya(e@T5PPfRx^XV7|@Z-)AFI_d7Zu1nQ6C#@<<rW
z-XquzZ03WPV~;FYJm)?(=6U)dt(DM?AE+Mca;qU3uT`LZ7X%o=?H3OAsq!b4Jbbwu
zk`xKtAw|7NwU1)RH*3}rYtVm+Ft&-z>l4?k`&Q?hIbK`|lulbvYgfV^RPd&!JSEJb
z)&75U=a>z~>ryhanW)BwZz~XoVqkOd^qR+UBcWeyqQpinld#Y0SdMW_|7cg`hLWI}
zoERNK89{_Fv^!ABEWP4+kfnTuc+<7jadKe7TBbR!KVWJEn+i02RrNz|pl;U{F|@~f
z7gq7T(4I|7?;M)ynI#Kk^0ZdU4Uqtr<TUgOuE8+&wXP@EWXb-OSWSfB;=_hV=9WSj
zX6P;)B92P#7`KJKR*CFGPq;*Aj@T>^BZG3iph%6_J|C@)i9mTW&=A>es;i6(qM?qc
zxh4A(g6~m`5Q0>9-I#c9Jm+PYDVn3^TTvTy>octAy@#`Ig*yvN9@X5+)VmIRcE^2i
zWt^bf{t_3{^*VB&%r*>_@q6>R`KmW)1lH$M-!T*@zXBR5q*0$WS3LC?4kgtjPD1bo
z2Z2Af_4wPdhPNW7O{%_nKYJy|8hqm#3$k(R^ho~DlUx3<EbpWipxEx)z>UKx4um4%
z-gB&$Z`y2Y@Jn^rWc5kLYh5tHXeRPHyhEB1(;Lb;mJu<btF=i__I4oxVReg0G|qqi
zsqGiXqGIk-_e7L?Yu^~LM)>%2FskqCwL1cpoarYk@VMZrzgb^>0N7RlY<IQ?$~XOG
zyYP|*=4miZkjw)tV)77a)5R4t{2-&zWJHIc8i92+$zsL|wAHuYS&{4;Q~P@QW>$zG
zsj$U|;Dr*{--dK~EuxqP_-#@h-m~hH(SBiv-=jPBb;_<kE3HG|=^soii*}48l=h?C
zI9BZ4R&K9=ijCs;;7QG`ek9QDSjrMBzvkmN{*+FXf@>h3e|%Y8!xT~+8FU-$t)Fkg
zR*G;fsG9#w?kX37p|vKneppMpMiUjXamIytBdS*rv97tbp&IgTBgvO!tMk!NZ8BJ_
z#B#F*O%9#k-4#uA90W6Sf@&h6yKm_^hPHpI1(*@7#;B>cprwafRL_&e;=k+P3VjA^
zCq9zTwMWvcK0mvQrU{E<eaZf#Q`97d)*0N0yp=9e|4pT3>1qqbr+PI1v4dNKkSrf&
z2*y0(-yuu$9bEsR><ka?T%ip7<ONQwir|9MIY>X>2$WGl&dvT4>;gBLNc-is^<=`b
zuFvxr1!iHI?nIQ01%}dk-b;HMadJre{}rbIV;{sAMk)lpNa1X#O332@Gf{=`rTk`v
zi}i)HRdVcLe_AUnx(k|jF~qV{gAl8hL0ls=$M!cC1sTH`7YSXyDU-r>7lAP%`ttd=
z2mW})1k2z59{;Tb!k(9303Is@{~^GBz568H`<|^evWE5=fJ8=To#A>4ISQqWHbXn3
z6rfTCBlZnwngiS+-8ZJhq*(H{P9ZIifaJmHeWDE)J(6O#hBv6od3?-2d&n4#6qDUH
zA*89@*;pqii}Hk81k-oN;I^-tin1Sc5b?Z-*K*fRpgzjDO+=h;lQi$L&DLi7pUj^b
zmTKUUsqWe6WaWC7Av0oi(1Z1|ON}k&detTx(@-IcV4lo|V%q2CiXiH(wh_I7(A(=+
z^1iuufggiR*I}YO!4xxME^Q|A$Nrth_VBqbjd-LZwna<c1{;r1C6AMIG!f8+YciQ$
zUo)EL$jtfOs}{&J$~(Sgn5}y@#|SFQKVa!8MKo|kZIjW0p2+R(sbYJj^9H~XhlF+3
zI}w=6=naZ_x<)^%fIKubcmho0Q|un3G-gWWuuydfC?AM9)UtntpCY;vn0*!tdX908
zK50YXiaY=;5J*}DCg__33x?*3VCWD;A{eoYm$QMppU!qZ9GqhcBzra|-SiYU=>pKn
zdIpN2;O)x3Pu%FN1Cv=XN_S+e!k1dT@#lrVd1xcKg1~BSeEe#G6B5>x@)<Nhax<+8
zEd{}bsXlX8i)`~u64srSQh?!yKxEj!J1lzZ?)q4>@>2yAbCGw88A4#Dqf5M<>p>&m
z*i4LSrQ0FLp_0L+b=W%60~QD2bl%T10Bm<2;)6hz()qoYH!=J@xbko15Xk6@9lmMI
z_G3sWoMNfE3lcWD)6rklRx%@k@p`pf6#}UaXM68AN%=uN4y-q1B!PG_fPQ0riJX@=
zEDwPsy<y+>j76jK_%@{OA{&FQtdEj6o5P1?^kQLjr)pPdW-+r`Gtf14FMEJX`{muV
zSD)S^dc2y<u$B;h*YJL!*5e)KF0rQhqW0pHY6$Da*^I;NNAWfT#Sj=F9nI=(=Bl?x
zXV^+$u3DZ?JL6iT<J&g93xXHlL2+PwmRP7zJ7Sq;JuQpeL4HT>Cl8XHqa!*fg}U7V
kf`HBcJ^qUX6qA{HQo*_#GtQ$2**A=?m|QM4aQNr{0MVcU@Bjb+

literal 47751
zcmeFYXH-+`+cy|Q<tQpgQR$!<K%`0UL=PfFN|fG%(!2B)2+C2EDhY%RiWH?vFQJNn
zp%>{Tbfg6cH3X8`@&7#UtoiV+H6NZ2GqdJi3pecSedoHb`n!tnpX#VzzQ}$N1Oi=#
zYCO^ffzJ7ZK=d#EIuG2L#C+NYF6Uopsy_m*z#^$)k-+7`OAQk*5Qr<B_CpuDv||eb
z-2y=$J=FJ4+n5eWv+xOqP)2Jd(a{E~4;o!0Z{K@udYEHSP*quVGhU0=pdicjnZ!en
zuT{qe)|GB*&v0ke+TP^53NXK_aw-z3f)_y&>Ozh6e`<}rnZ0<yWH|%RbNIIQhp;4W
zF{4(pZ)L$FsZajUOJzmb%S(QxerpAxa^Vks|NlS#-{e3A?3oX6GV)gqPkj_#gIEKO
z)$#Q7GV?<XfQ|Usbci|NL;Y(@8$J%G88DOP!fAjLD!ih8CUJ4ON?ls9N0V3&?$aS=
zFCR-oRWcXn!Lo)d6NO8=;-_+Xz`hSsMPRx*FKZQXjQJP53<GrzC>fk)Cf?;;dMKCP
z41A=YI>QHFA}J{&O%L>2t}>q<1akO%4oVTlapYe)JMo(hN|B7_#s(4Vz?l(XF|Bwn
znnh{7vKJtAfW@?lU%-*5Zs<bf25+?b$4vC%$W-;pu%N+N#jdoJ#U@m}a`fTqL+G*q
z$#U<hOJXb9rRNAw4st~31P&fWai%YZ)o$4@$R|8fARi&LV7-FC=J&O^(ri@Q-P<81
zu5#rQe!Q=SMcq4(@W=UJFF(DlXpw!l_X4N+i@O7C0MQ`O$1||Lqn@L_doi{$=w_!_
z!j#|CwDSJ_LcZFsIfMl!fA5W$KJ}HCI&@a1+dWF4`>6<Q4#MB|*@GaZ`wI(%nGcI8
z%D;*P0$^Ro<yZ8d-VXy<cV9$f`wXZYx(?QZd=b9r5Q}#bMB1I%Z~CQ6$ecH};`gL&
z_hI%N$PS%X9Z&sKcK4&Qj+-FT`pmxjm?Qp$Q|l|X4*7EceG?9rD8)fmA&(#w*@&aJ
z&@O7=phg(Yp;ztj70z$+a`qo<CWMMY7{J+~x7_uhW|ya65*e&6HQJ{|9O}$^bs(3U
zbFzEk7d{~COIWT9XOj4T&fPPUzQgU28KK@+kQ@FY2mx6@uCy^vt>j{YV^kh^l-jHC
z3}yb2SH%EUBIHh^DAcHO?(YkQz9ipvYA;j9tO|$Ofr)qM{EI$>O0Mk6b%5HjFg&!(
zhpB5C?NFfM8Pe|lBYgfb0;#nWbm!GDccT5t)=3SGluMSXQu?hc)`2ueOso|vfIy))
z)leCN4tbbGYsaX_Brr8;F#x)z*MHz5ZLoED)5}6LfVWkod(ts@=z9B^^ltfcp^iOZ
zXHc`&P`ZsP@J(XxIXvw0sIG#rY=*5JktLqo0nMv+iht;G_*@I6+*ye24*~NxCC4be
zp5e~3IoVQDcy%mfw$^mo{HDzkP$8Z_D%Ag&5rq(1kez4w5q;#%2N13dt+F|B4<6)R
z8$r1^d?lwcC@J`M0OSK|0Z=ZZAcd=BYr2YrO}&HJUo+m^t%{-+HKk9-em-Fl*$=s<
zT5Et?`5gG)yL;g?!rcpGIQbu(DF`NH+61*zXYfym{a}lpQI?#z`g>*=h#NAgVw>~@
z^B)PAI5V|LMB9vvTo4V{|9i_t*Jc!X*w6rn<@1iQZH(7$;SsQ|mwWmyESa&ZIDj=V
zLl!j8pjRlg(7^n4hVb_6*mI+;#Ip;(>V$Dyd?dudNr?G}#VIM2X+?Nn$KFcXndS<C
z7Df<A5}%0X%vgk>(lCpH&}F__eq0ln<bWE;e+`)T|C827^mPLU5a?UeW6b3f4--t&
zq!D((wynS4czCD(DSz8rTY8=^iA%$g;iHJ`HGfvW>2f2^(P4`;qxb;7t-2O>BQB<e
zVz|t<x`l1PV<T6BNyp{%rdr_1>PBSSq_b_v2-dA9s37JX$aFaW3J7G?lt7B)ZOe@L
z6)Tss_7vD~&?`o;D@`xkUv;?jC473i%@LYmc5^8*KjsZNpReSu-U)7O3?rb=#kk;R
zPRS>!MaW{*b};$YbfM``z(q(tEZWH=6z9`FH!muvS}+|VOZ5Ee%EExvoMuuTbA>sm
z5DuZbdf6e3zIstAgx+cb1vm|0{eF6_{*NrUp1fwE{qj+jwjZ#(?_RK^T|=+%(ZmS?
z^?w5U16m3KDa4-@qg@|_|Bq~PkH!+aQdvIvhP7LEua_E_<Vhb0@?P#^dy$zll2yS$
zfEfDqynXh$5J%rPZRM*d#hEiEK1xwoc;Csn$Yl|^BbG_R_z60QKrtBJxlgD$7tW>9
zR1nmwor>Jw)t;<&D^lQQcT#&MEPq6aY}dtP))Vr#bRMGj!N}A_p4^WjAUk>Bv|n_T
zd)q+w&8CwV-{psaKJNM$ae+YHFBDN&xJFjuNQfM%UrjyDv*}JugV#F0^3}ZLH(tv;
z^*Jh4o5h=E)im+cMP$jnn0c*=4D4IRRweA0<}W;-syFrPyRGcCg0Ed7z()$Myd}#a
zdh5g78p%eG)An{Vw~4;on*ssGfaCfL;C1N5gdVjmE>M#4`9V1<HEZnwD2Yw0jD{Ki
zZ%aX;!y4@}-LbTP;|H)~Gu;Tyj_*Gd(-|BVhMU{oy0Jdqaq5;ic$c;*i2u1Ws;svA
zx?)J?9e!hKsR&uiR~~VXo&j_){(yaD8LrRu7f3SfHaqB}7eWXs-m-K-gj}Ra+^u?i
z5p-Xip;8#ML9Z$W>eo@<>}V{4KjBW#ZX8;NjK@~lXL*@*t{B`r2fB||2IHL3X_$6q
zs1Y9!Tv+Vp;i6RG1=XiF^tf&T<W-u6n<TB}Fl+n1d;4CYFlRG*=f@S0mVl(~ySGh0
z2_;=s{G^2oRg%o%b7w%IY?`kR8?WfUJ}ksk!6n;V=|N<Bez1RL;(Losi?jyhfN%@r
zx6Dfepa(aq_-cJnWKO(pqhOQDBl^o~DB0>lxURu1P;-=&EKc2Y#9fCt2&N7pHvLd(
znKsW+iC}rT=$ZQBX~101*GMlYOBvdEsxox{nBii`V%Yj@I&n(8Ud0H~iq_d`336&L
zkq$vEez5qJoVl23wsxxOi=38aF4+OzZcoXy(QX%;FL_et|C-$UBa%uVH+$->iEWa6
zvv~%j_j!o9o~Q4qvVAq^ixD`$U2_^{KMI{m_K#-hH?;e5_T$A^sHY>!I%OT8u@^jf
z_^ofGyPgf>H}zBaiM2$<sgFau`%T##@$rcaN-hAlxWo@Xj=D^F9tJQeBc7dRhS-xv
zbF+G~x@{ZQN9z6VO{9cw3CQP|s3--&^qT~tFN~uedmh2O@HPak`gVE;A?xikPu~ck
z_xMQbVC47-2?c;VPoFm)K6R3&om<h1q985BCO?-gXl4T?rF)%F%-4p_%jzlnc{(I_
zSgi`zBqcI`p&m<R%$p{+@6TYsLRlT6&GB)w=RV$>M4cG0qeCrH7GF7D8sBaNyK5}W
zXTBFg)#uorel|FF2DCBLM;Ip-fNSl^2c>1*L%_~iGhV~`6_O9F(S>mS05x{l&4&B9
zF7y<7aX4=A9H0rGg`#J;6x-ogX&kd(z9e&peQKw;KhOB!OoCoNH|QluX*Y>)OH(()
zd+fVT@ZhpKThnrq<oi=6sHpS!VS3M|<PJL%;Dw52z<At|8l?lx`3vF7Z+QZ<eSL_+
z9O$IJJ^+Q%Tb&2{i}f5ycVs~clj(~Qm{UBe{e!OL=AV}<O;L$CJ4g5!w%p9P<bWNB
z!G#%B(}{@;8$w7G1BmmM<gFHRZWP>4$%*G6Gj(xN#I-^cv=L@HOb2S#S%a#iEslZV
znw}0Qq_#CHgYRao$P(j=lNX@bW|E;M=_>gf6$6Ip5Es5)U;qK`D!0IFsOAXyke#`#
z)cHReZA{bX!tDkOacj$(!%rZ<1(kXL;RMwc06zBMqZTn44A&yoL|7*mb7w3b*^$B>
zwGd}OFF#IU7D+wCkyD2i7DugX<cZUmzkpc4t0#VbOTcU*phf@eIS{9uq}3(hYuNxp
zf3Tt;hl?~F5i7d)H{d_=Zv!zR-8n#$#OxSl4+PU@VP4vuuNp)QW}iv_2Cy4wSRBU=
z^3Iijx(`1D{(LF|oIzoj1g$e2fe+*^sNBIpT@`KupKQbd0Vdt)78KSMsCcdZP?K1~
z@Nqh$!H5Qu;52l>d{_<^LMhoqOep4&hDfZy{owhx*FtsnQ}iWGe!tNh8<7txp~W#Q
z@c4tgx{qtX@1T!P27AD9fn{}(hOB}0e}*|*+S$;&xOy-n%A1c(vrG`D4DGzQ06Z4z
z2z|{GdhZ658@<Sc+7k#k;$E{%x3NHpfk}p_W4c&?yTDTx3evb}$Gz_K4Npy!tt0rI
z;&=>xr6!-A4m7cl+#wtQM-j7IZ@QHLr?fi{SXsZD8Y)(xRtZ;%{kmHKu9ig-ItQR{
zQ76G^UBHG(ZBy6j``xxQJng!UU7?of#ZS;HItx?Y4yey55a*uFJg~ehu1JKeB8v-P
zP<lZl0_3ShQ2h1XY%od7Rl*5Mamw@6N&3z@iTnF9=zbS#7G3DqTm~`F=3XA4T<Cgf
z+!%QBi$H)qYS*mlloZlVLj_#4)A}B_Vu+K6<wbskTnpf4k~9$h9rD7f;@v0vst9A+
zSm5S;XMm0UI%Z~_Xs#eX`=XU^K?mg`zz4rI09;WqgshB*jrUb?59(5o<Z+s8y}^Lg
zCsv6VVjFaM!&*_f=hSal6!@T<{m&cr5-Mrm@1PNYGN4@+9zrRKxP_GUNtC$+-vA)~
z2jQzUkZ+d|ggSYM5=vQ*)gU%OAEOWoIN6~j#O8`4*bPg=opg?1@61FSoQ`Woip|ig
zE1bYr<ldou_ofguBcc7<MMZwobxk5tU|dHT2PBw2oxA`p4ZULh?mQ@en*?N(^&+?t
zC;=;i!=gA7Y&NfV{NarnlO-shSPpjAxq~Br1jC+qK0z^~ITLLx*;N&$(iS_Q#oEN-
z<vtw$8-QM`#{fq9=mgL|WDZae3cdg65BmKd!cPAq0PO$WoBVNYAgh}~fRGktQA(n?
z&*-$NsgZOWDO>{dEgAusal)euAT6^$NO#x-v&eI}eT?f_QiICy$qV7~CjVvu_1^|?
z0)VdAZh}czu=^K<zd=^Vw8R?prFR6Z3Z+Oz&#}d5NytKt*bkk<`Q(*xt|H_UZIs>w
z2S4!QxAL-DP9vXNAgv$<f$<MJUL67jm&1eiyR9+xV$guW=Zw`xT#NvO0#a)bXb5is
zwHz!9F*SGv{1Him(+}*Ad^JhiomqgICJ<;9kbFH+_>8nE#M2rTmXcb$#lemEX*0pP
z%5!9j>Zo$5E2#D*XT5N6aN#Ap8`lx5*VF>qf@N-+%vAesm%ZOWo)XKith1-?76uZ{
z)Sgl7P=LXKNze#H$=yizn1p>X5klR<By;oytCW;cUCKk-X8<h`0Dbo(qcQ5r^3j%7
z$~{Zj`(1q@+u7`bL(^qQ7>ewAmqj_`J9f0w%WtAd!1mdOYg4KYkFi{xi`5syEmD9<
ze5PoGry5EfEH4!e{&_*r%QTs|S($aT>~Q)sGfLE~bUtONU|DPJkUmKzV@8(}{^!Uy
zXt7}Yp$H>6OPK1pqOE2UM54%=)qC>p7b|b(gvZ-rw5v`Ba_IBi3zh`XQ-04)Ziel4
zMVBOP?0|A#wW7=i%P2@Rr^Pd2P_q;edmb2YqZX~91PyDMZ6HrA&~npi$;=U7?Y7Y4
zo)&&Nv`Wv2J_+&Kp9kYLQ1NVIqn5>Lag{yuUL_`t^Ro@ZnX>jX4d}BsaQ%;B#0Q(^
z18n1bfJh|+Pb;JRAWWpaX{emU28A;?fA$kyTP^M}Nirq<lnAiUol^J;KW}w>caRlX
zy-z91%Q6PSM>}ghNPkWYRd1i?%H%HUu1(AWBk_cfcBw^bJ14xhsBEoMdfR7;jfTsa
zsJ(8XE&s<TWQI$swHoP_sfn;A>YVM4`gj-F7}Lg)($<$K*ocYmI@G7u*_X(P3aSj1
zt>%|*F7b%ey7WXh8Iptwssu=mUL?0#r{N&=rluW1wN3`Dd80E)S44HJ5j)_o>grse
zk8c?10e2Wc+Fx`l$N*<*FW8L)tbqj4S$8|RaKowOw_^3j87~GBQ7)P&Q)TzD(;2K0
zY?KLYKA`jyzWJ5#)5~%ub#W2=^+o{x(Ztr8s3~(hr2DoXBqR|xZE@GIDF3j?;xwVL
zGOSSvq<{-TrHu>26KsNgJ^`8*$6*heaCAe(RutmX+W)2l6ox-K1M4RP4}!8cK++4Y
zgkIKU;7-mSM_2j>#l`1cDw;^SUciw`{K1jfbdrRtGTWNb&9x+G%tGo17JOyvuzfC=
zsu>TeE48w^s$>h<Mvp#Oj@dUYs;byx&aAO76F=kqju%IARN6;@o3w~yYv1WWxk9o%
zK%kP8P`N#^=@`{Y&XGdZRcDI_bbCN4IVSc2><t0wCAr4Q7-)Zc-PY!SX-OhaouAkE
z{(P`wkltY&HO@vDS{D?-LLeS>CHmzE!>8Zz74Ucss7)S>xEYBbWMPJdbXe<V8OYao
z9x!~#*#UReicE56+Bi$k0end2umkwus7YFahEzr>q@vSOrpP}jUPBru3ijG@la@yl
zVY>0rHjZ&!WYJ)1pI^Q2{K|P`{9-s%7ZVU%iwGDkHXCoydu!+_qH8|pvQW8{Z_sow
zLo-wr-0kSUBVspBj*H`Mb(*Tpr6w4XUe%!sdyc+cf)Yoe#YJFtkky1&`K1Snl`5vk
zJU|M<AE1qDaxI2HaOy+;<_V|XeaqT?<IhC(6x~-wBeM`@<^I2qg#+gsIjsvZktuED
zqNcS2^{taYlbOk|qqj42!;mSnpdRp!;KIWgi%KyMIxR1+A^)<aJ&da?I3S32>huRR
zgt6u<NcB9k56`smDL+Ahoq2Isd}o=zUind1<9ro$hO{5B%VJ*l*}Q<IWIEAWnA`O9
zG`mI`>h!h9C3rJsN$85sXM11W_^rF_7fzK;kv$^e6~!!*%M=^<{F$V7z?D0p@-{0@
z#~pP-FG&7kMk$rng1#~R!7-)K5ixW<Z}e?;RQtCpTan-`6=xm&gITa(L_L<3{kZaQ
zkuEXK&#!Y{uV>gkR%vCbRUjzs@n99g$T|lx5ZwirMs_$euF3nT*V-2vE5;oxyKSvD
z_8pJ$FFZXXiTea?OkWi5+2?}4u=ucuO?Y&6a~BS!VE-2Zlct@@%u{(<)|}tFQrB1b
z13Ip^OBGyi8|(6o$3~RG2vwGyOjFpw%F|l1XJP5_SOdB`I@&eZPIKMeg?pi^BgAdH
z_kBfWPSE55xzJA}sa#B)PD_;$ZJxfI=<cW`6{wGjhFTgKJO#iy5XnBKhxF^JxLhL-
zqxS?zPrOcn<MZ`eqdj|w23`>oC4d(s9eb$q)CKtYz>H;&(xsS*YMrtP<bLNs+=_~K
zP%@&(qvpgGRR~vj`A>@VD#7UlKW&2Oq}KNRi`aiL8HbK$uu4&o#qEf!_c>9Nl%nUN
zst6TnW4ed4zGwdeX}M3+Ai3T$a*$Q?J~T$tvjcoEow1k<ZOmAVgBof(+LSjx+*b^#
zo*M9~`^l_+%;2lo-QuvI4nxJ`O4k!h5Dsq*;mYII7_}LLcv9Z=fT`bu<uRg>^);ly
zD(%WU#Yql|ZTSZKag<j)V0n3Hol{#Y>cpXJ2ju<tp%bY2-x>$d$MnWw-H=D@3zv1;
z|726?V5YSEk9Ls~0Sh{*{0dr+o%TI#QHh(C^EzvOqm-hmkCrgq0+wldHBTMXbu|_5
z&i;I8^k*|nZ3UoqGuad(xD_}#Xv|$5<`I<f^UN6R50E`H?Q8;CA;As{1aPc2@f6&l
zqxQ7C<qySZ{8TJIWutwmMB%XJ)2=McE{`E(?zPCBQ+gh4Ps0JuAX#XH1W$(dS&MyG
zj%AQ4Dqb+;@OX%U+Z(X`{rPhW)2XO>+35GfKtyi^!^c!lc?3)bh4DUCstXV9>Ds{g
zC8iT*H1X8P_Op4erMJ;XDArJV7|rPFL~y&QOVIt9DV*3KYwlbnnQK7!+0AJ&Zm~o$
z%X;6QJpMBL&$3sedEHpluc~O*07FzITE(}aD)-B9pVPSa?oMkMWNh;ac0ks9F7|Qa
z6@;W3cOtmbbi|?@G5nc-l9|<tJy44sHw`A`NwsI-(?@<xM2q+sfl0rAg}3V~R@nEx
z2FriR%M-Gg43W9v8Y9YaR9(o0XxFbe_h5xqB}nfCXQpRW$>hp=uml+vn;LL59LJ1q
z8H-i*)grRUF|I<8p<#=9A!tOFzxBcGmdV3f#$xtOo*HFb98@<KG1|B%aS!F0t>XK*
zuI_P4s*e1ZkdD#Ei5WhoTXm6c(~}fi-6&CI@{VnUHA{(^<SL&2qjp_Nm(6-$cY~^n
zSVuc*Lynp9;@*UC7xC>^2YVj#RAuCC@v8zbwOgR_WB{;rzmzqv+<7nP>5sZD*fbTi
zN=B*-1SgtTEw=;e2UNM@7q6}-UP=4rKRx>v$JwOOd5MWzy7r4-(bgbSbd0bWX)u1N
z4XVo@3mx$4`d#*lQMXT^s;9)FdU1&5BwwRbLa;cfMLxWHJjJ?W%^Jp|y|V@m7K~_0
ziZBM*eaHYaJptNuFfAen^rnEk6s`|#j$Xv0%rQ2DFsqmF)T&rlC<<HU&b7|Lorb#2
zKCv+YW^%^xB-rS-%5HuiVI|U8H37+6^ChE_gp%6oCKr=NWEq(ShsWSLP}zoE09dlL
zu{|CsrW|QdBZ5%#TZ0>=h8TGPwcgdnyo>?Lt0*v=_Fynfd0(ns{%lfvW17|xQhzir
z4xx=&Kut-V>!3OTN?;*hR;wg}Q$!(@ajT9|Y~34s2~h(6v6?TG5TOwPQ4AovZ|jMf
zKE|DCjn)lH-n&h(s_5d0G|jE)rtX3g|F!(irdtFK%iVFn2M*XiJLv-Zl5KSx>*S7#
zhZ%(LhtikqdmNQsjG_LJ3VbPAI6J1rgm(~xWS89q)g;m+Wu?|Yu06!)Q7rHRDjt0{
zlX7mqPcr#QCCh8C8_BMSPW`rO2nIn=troMy9>>->d)?%hFW1<Klj6QJ6aRQ{Vfi}g
zMZ|oOnn;s;;7Zn;;8y2ed}0$_^Cdr3_6D!axW#|LjDxI`)fgZLY?ZAq%Aw3bMV-8&
zw0MlF<9YN<XdSJg2jk{31wdM%&>kxpLXoTM=?Hn;RoVsinnawi&HZ1h1DIfMhj!}a
zla=cg)s;EQpo51?vBqbbRTLoQbB^BsJqvJ{ZhLaWRn88ELPmF7rAtb0jBn3&R^&f#
zmb8dj`~HcyNvmw(!l$nqx_zmyWk7b)f66Tn2#O1yKvBgDorY?+k<`OovI1%Sq8CyL
zasFqkxHIdcld9gBVepm#Xp9+nA*lvPelr&-dcS63EMeTxvmcq2Byd-Ih_XY!aTh@P
zT7XOWuc8YETy6N$9Q5TMBX(FZ(06^kT;&R-)Resgg_3FUN6+Hh;XP0@xZxJABXudm
zqMlMIg~G~KitvK0V)K8K&H`1VJ$=nPrPzW+!W(GDRh$JV$#4(I!IJ*5)jip+NaR+k
zma%`{P(XfX+7R-{q=4%gn6ax&DO<RXGWTPSiBhvBM|aRN4y6bK#X)m(4`I*)G@t;@
z+*6)wCX7|y!!c9xCT7={uG*S#Kg%{Ymf`18;8nXBgOPvXCLsWI5=5KEWy!}{J_F+p
zW~8oxK|=$4J$%pzu-8zM)m{$NGV^iYOl*$0=oU8rufIVxVgQ5wt70^m^vhNlmkT}w
z_grGD7}!6xZ$fA~vG6x#6pD0#4~wOvOI)6miR0R@*Gk%!mfr1*-VbzxMQEPsXX}*e
zZGk)?CPG!vi;9ky7Pfn(uC>S--Q)s&cm#0Q>3?5!iZLm<>+F~3U?N5=4{WH<H~dvB
z+I8HXbyo(XMkq|IjINv*Yu~iC;8^kT!3RwBlTr&J*=Iv*@8R&^06nkMDDYN+C@1I^
z&E+cO@tdF*$1aQ@jlBXiQDy)(!oA$vSOS^WyKST5a_C{2af#P)#wN=lYR^u5lR3?Q
z5o4IS>wXWu7`_LW0hQxeBr;}$T@rwd_A;%5Z#5!_LMY*u#)CZ%ji7Gsl&OTz=u1G^
zUoO!jv<Koqk%tzGakRcQk6S#*MtGatZ2fG6-#OjaWU%ya(=#Fsawdt?`Rbhq-J8#4
z4fPFDM@gEExN8zqz)aenFWFaeRneToCnnBr5I$V3<KE2lTrIR$arUZYf$}VBmr$J0
z7CH1=gfb}@A=w$f0<IOusYdW-u37kZ#6HFp`H%lhw(l*FF%6|B$crp(=>z?Vmo#}!
ztR_kEJB~j$U~llpCoZOd{Z>Z9&F`j8B0ntB_Z+)B1e_W`b>!~P{nL73-4H3FMyiH7
zshNb>w7fpYgV#5!0ITf`W}kSV8spo-i3MS!u?I}`$5kwi2OsmT&&z=_lG+o?6cJzZ
zAAmwV{s4u{s(3Li;s_Y%*L==s@19<%b|LScMll{Zk*6)(MRgHPS{Rp!3eq$!1DdGz
z-R}r;_EXAs(URJ0$X2S;n!yGPEni+wEb<?EyOJ5)l)rF(EOH4-QNX$L$xGnU7H3xZ
zBEbxNq-ZdY4iPUxK82y&tHrcHR(=scNi|e(m&zA_C`V|a%nm*msX0asrAl#M4gM8U
zVUWPpkPr)7@IdC)#w`hP#|7^6fR$~P`;1R&Tac4GrpedW6E7<j7~XW(>J*TYrQXA(
zc$yuOBE_i9uzMHSt@?VO+zG&z2m0b~J6NL_1W2o|E;{iCEsJZ;9JZyF1Pw#OML4ks
zEPm{*T%o7`sY~`_h_2-E5iYDF%ax?YPttf1-Fj(ggsF-OG0lq!zhfE~FHp>NvI688
zO(yY6LtTq_G$(3tU#;(8U;yaU))U5sVhZm0hC(N%8|L|-I#INK1;-y&k6?(D-umgl
zD_DET<m(F@wY%^91W1oj))B?7JX557UcsQzqS_Zb+p}Bz0slmpXV_SpET<I{=8u7x
z9&3T8Mle(<x`j?3Ij}c)^l5o|poGvT!qMFIhu~TToIUCU%Fg_;@h(oR;IHeTG3h@I
zu|)m=-|~~6VElA!l@646YDe0IW>oUH8npd=nQM)P>GTVhu+U`|wQ)Swx2H~d1l~w|
zUKvQaC)lU4(Dgo0_ez2wzSRHdd%?stDbUbspb3}c6i6$(CRWFb=~(k71`iBPA&oY_
z)A`XdLw!u!IvTt`-?|P9T6z{#2&p(;Yn&VIE6H2WmRRaQMe((<sX5^}R(Wa=Hml>X
zu^|c&pRjj;nu%gC|3a&vl0<aJ6fDJtgXxL&&8-gU(dry=?pqZG_|{lftvKr4NX}<_
zF4ULuuLM5pa8hPtS(r*l<v{u2Jya#h#tWsV_p4E*%w-m@4ug~S-d6yntZ!i)e*u+-
zuh8N#$4LzoOn_v^jxIS>ivHp1hiXMD-HQH~u!|BNcf{NClSb)T2y{Th?~30k(TE#f
z;NGNw`y|+vxL0Jh`yRJ}oL&`!lob@LPsOuocsh9P%67&hhh*!QGb4A9cR<~LzjXjv
z<pWLZr*9xy*2Zs6lO2jO7Nfw<dEhK3jqP3#0J6n&i0{Eog`;&mzVrPIZb{x8z`Wab
zS(U5pv&AVeV`^&2lQ_SFo7GG=R8_6@SS3I=fEuY)J{wRyzlTu4Wr5u_%Yc5On<lYX
z%8p1_Tojdjw6#5(2f(kze$(311t0}SH#V+e_f8>jz<+M;vUEdk3&PWRtHA;Ooe1BG
z#@|SFGJ|CxkbIF9?4*H8de|x;fZ@PFR-;2GR0rz$0sv9nn%4C*spu0qTqU$|;zWKt
zd)qsQVe68|e|Rvme+rI_STt#94a>x59)z4QtaNW$K5di}1X5}buia={lM`2%QJ;D&
zhXQgpgyHf7J|LX_Va@{|u)qC>xFvh4@3WEyU-E%x8>(wW3r7wBe6P<Tmj{{6)};P6
z4%gFDEwDtIT=6Lin9UPATGHoa2t5D-#{b$S`Ge<h{>0k?g1@iHb-)j(%gR#g??y6K
zbx$9+Fdz@Iq7%;l)%-6Yko&_x=KWFOTD{hj<m-333{Nbd0gi(hzr3t%OZ-G|Z3~KR
zLhOqev@<l%{CS+#^6tMKk!=oSC5gvx8IV{@q0F>+xJKDW4NK(_y_hIruA~0n#Drjj
z4q!mBA{Get4;U0Y9D0n%Z%0p_KU*FEYI@K>-9=m5hLar!YIB~9Fl1%1K?dmQcq;+k
zKJ*GOnz23E;LMQ7vQLZ$XKJA&0-iTmQYjkL&biA#>2uFA1+Wf<BpQym)K9LJrcTN#
z`P;Pv$z$z(+(@>$X~}3YCs34~Kek;_s$FBH1BHI2wW#ig?O7au8fctrxuI5DRH6}J
ziNXRE$7dr{XYbW!Du;Y<o1`W)&;V|ZqBYO%)9)8!e~-+}Nh1gJ`Ys4YRP&QeOctSE
zZ@^iB#KyA%X^X6NN^pJ%^j2PquF(Og*%~72Z;ziCE~s*uMEuh^zb{BcgJbXM6>|aE
z(pCvvVf(vKpF%+%fQo?j7+~L^`;2Mcq_(Ctv+85z>9({+UX$d-w_qm02!zvIx-x`)
z6;2|?N%o}~`J@40Y?0O?>*oD4%;M+&a=Z7<Bqm!Jj#^ZQ2BL}IPu6DlKWiG*FVhM!
z#d2Cev*R^wLd5P<hq?DaRilry%77X6bWuY74(<>|{9Sgp*X*g7Ow=AzeL(AOUn6|j
z0}w+HKaH+PnxRF8Gf+$Y{I}!OOsJpZNr5P`K!9_wrfaJPwHZ5-dC>VeKZY5Y4Wj{B
zkS^GEtB#SH<2OC)o^v<DF#E(4rHZO={5`IsFwsPOy`I=aJj!1HKqWyFm~06Rx&a*r
zVy97H_~?nHNdZtAvxP1v2pahgSHmG?-m~-TFdqM>e@MDaYZPn@&VOQT9G6u(N((IV
z_eb@`Lq*gqbqkh|>c>VWr^l3X9!sAnz-}jL^D^Jm1+Ek|*17v{pR=wcwx}h?^0R41
zNJji>l%0TV!|rJIh5R!t4#?VtHcZp}uP~dbmjy671i@R5+!R=1K)HybAy1x>kAb5i
zU5sV66>W9(xdec&7(a~|txoz;i<f%%?G&%-Q73_T+nKn<L}-Sg*zOXLhn1AT>xfeC
z0j4-G(O7eUqYoFYvEHd`k+mya`IoniD$?nqMLf#7E5@<Ob2I}a_Yl!Uv8{Xs9iXj;
zqseScEI6@|y3){EK((8BxErLmYyfrBA%2S|ZM;2>8;udQAmxn;!=?Y|k`+I#V`TM2
ziH5TXX0k_=%~U4=j9}lBvPLaTyc%gBY|YOcG6>m@Fw;?Xen?|#vlgu%+#DY`%OW~f
z=I`I5{&>rLZ#GNV5}13Gke9(RRCTYiajn945=X@#>)&XS3rz;9gh1DQ-Vtt6+2A+5
z*0-nPGSG^i-{Y;7z-49o+ZWB0KldJQo(wsvFOT^`JI-$#JK6K0Yw<mq9Rjtboew^8
zb!M~52haLN0+oUYVs&b&EMHqVwrZ(<K@1+OnL~G`qD3;+gxDxHgP1PRQE-_Xt8A(%
z$FBK<ej|V&3+lhArYlOBnr+%IGCTccYN8~FTR{tJbQ(qP$KSc5$)Hm4iMrAD$N!`Q
za2*s{rTBb$tz`c)lS+Zc<})>k_-p|+OGDVE`sY(2(eZxB%O^BNcpyM)E`5|}Xk|g<
z0Xkm`_3%W&_@T-3ur=JFI_7fW<hPRzbt6t*K>E%!9ndd!_usD!ZVj`yb8&&1+;m2{
zK$C~o_a_p7fCe{j@}3nm=m6U6Lvhd%&_{*CWSb)M%6u8mVJ_Ich<SOzE`jWysz5{`
zcJbEU#!*M~Ldx%U39ayW_YX7GEY@TF++NzOMpS3tof$Jf^~Z0|cJW{P33x#?ikRPS
zTIxa0ozEtm+m9xb83|9b{hhbA*P4>^50Xf<vWj;^h7q4UR_lrmDy!Q_PiV&D`@}F@
zxE%rkakT-%m0Hru{&ZICW8b`&+@mdnJ1(omQMEdaa()7x(~QTj4}s2!R&xC}4UdNr
z6Qi>36Nu421=bbc$H>4%JOJLIFjV=7nBod9Nbx|r%cuw1DJFBc3hf+npQwL1baYG+
zv+XQCJ=(p`_+M_cWz=VQIqgH4dBUQ-ZJa=YEr|q}ijX?l=peDcuoeR-@QBy5OQ0KO
zhrcL!qmje{Xv{diD&ru*U=lrVqBs&+7BVi9mr-d2BX{#m`iG#HQQ5-88Ni>rZ@6>b
zH;Ca-pymYw12sNfRXqanxOLq{0VuaYuDN31KG$d=ylP&}D8t7PM$`TW2DI+tuprZB
za_Uz4f&G3Iay2l>WVy1^g-mR}Q?@g}Vo{-7V0c5;VmGoDw@h~DSXU5N<A#Gzrz_=Q
zia@=h2kYd2T6V+zUgvxXhq|E3aJAchq@RiVYO@}D!&@|Ot=qzPR{_X!R%Den_$ZE&
zKuwA7(?A89s1SbmI5$e;@I3sRK*2EuV(1nCs85OJZsdFLXXp%Cl|b>Q6-Hn_19Thd
zf6yhMZ%@;SZ2~Gv1>6IyYM(TUQ>(2gcYLL*2-zH#jrGnIA&b&b?liEPi3(ttDMF^}
z=0OvhOv#gy)Ld{lKhC%aF^l>nJ*vIOO4Cj)B02hC_xFrX7=8v{^E|6qX}vJxjo*P1
z1P9L{Z7B)5iF6(ZZ4o-dVSr;aO4y;>hyenwUJo#|@bnWtq<QBM(-j!ds}J@=XS1@i
zud^3SE9$G7Tu+=i_&&=0%haBbMnWdqdCKC1fac(vd}SIR02>S`1Dd3Qw$GGgaenCk
zO$cg!MGHYUjv>2Djn(F`(vW+TDwILSVlninv=P%Z;&3^Z;O}a)+9|2KTmgnAmmC6K
zXzi<#OogVnlvI`f=Gv#3xfb;sxN_8q-=COOo8#O1v+Tx}C2~S2HlG$5<*aDX=O0;j
zZe&FL-3WAU-D%^*=9Z?X&jN_Fu-|2<WPR#bqI6G<v}%{&I*E1a69u|wu>I0c=@Ho*
zT-+xJ0A8YX3n0>Jlp?^&OzMk)Kv&m@wA$bAf(M+;m;v)}y)+kl<G9oH^C8Ar5aK&c
zyrG#}b_%qJ3x&Pb8rE$~ftM(4U<;sev_$QjY3LX=7$#AX!6UWVBBK)(p%u3U&kdYe
z`|>W4?fFT}>x&b)1JAc#S6@_CE1dsp%^~fo_w}>6+RvNCvO*Zd98H_q#N;5)Il0t-
z4A3cjk3Yy3$T3WLZ61ij$*=E{t+&8=Iiu#Od#4DcEB2d}qn2c^!G8YC@?QJXVd$o&
zEYpf|N9wRh<Q4ezU<%K=oQ*%LzaBZ7I#Q9fd3oUU(zaqK^!yvG!a|W=v8g&=%elqU
z7`;cpvZ--EOJBVjSGwT5Z1GR~8N*$%GWnQ*A3e&ma;yin?J>4Sbk|cEAq<w!B>T#v
z=XO>{W-O<Nq9b}D#ps(tRxBfDang@9ha##J{g9hpgi)3djFhJ&RrYY(^`H9BUxP`x
zrvW?GxR#OX>%Duw6JLpdu;pK^O?Hht`0gwW1h8bX3wym`WBDNb^5w^A>zcrW{2Z!s
z``r7Vw;!h#zJK@g<<Lb-fIji~%ZdVibW`^`B;0H~JRkIa3fO%8-ApE<`sGEPn<&bj
zxK9HNximu<@;5!z-NtWt=Ji9ux7gJ-zpYG(1z$2>a4Vs2igRcZlM$nID%)3b$2WZ|
zmOmV<^XZAi*EZI^%v7h)Z*YNX@R0UTxW7`$*K)({N?d~MbJ=xdHg0}AQ$PLB$!6WT
zNNR0)&USuj%(Fl2`xZZY<LXs5mXn+ok|j*#@X~SzWTkM@HVAt>${}ml9K&9F<QriJ
zU8v|0dc0yuwx1>?a_OZt{VpGGoeyknTHW@vic~Z*Qj(G>av^^=?znrWWG*JhnL`mH
zQs|!)?V<c_dJ4Y*WQsB@A!Q*C=k|+XHSgcOd-qfB^Vt&M^6*w&=D@E3yL7YMmF|G#
z)ZnQe%DJ(su71!+=B)H*vAE*{nqJ_CPKGjm246^O(982^&bhAiLoY>PqVVhIo=~34
zT5aUj$!?LIkr%u3vfRH<T3v&?_{7#-L=ml?3D@k3<T^l1to0BMVmZJO@-L`Rq8sbF
zoUM0yh3D$q+#9Z%_im@n9vL(bHIEOFMtezbsOGZB9n#E1ekNLtrex-FcOfc*yu6-Y
za8?GP<y)>rAZmh2G2PhxlKVw22kfmS&10*d7Y%kfUQeD06?Ai_YiwAbT3-<h(e|cl
z1deIyzMxC9W|Gp0t*s$5pH%I>UqueeZSIhpEmOQn_^0Tz+#-i!=1D;_m?@>Ot{02L
zj(%sG=ow|Dij5E4F~6)5RL$#JX7fg?gik!%z0UD!PRX@yD~>|OPM?+r3=Bs<-}O5*
z#GC#RX`!R-YZ_zSmh-Db%8f*^1&+3p1uYQMpx*7CW@V6^5g~AM4WkyWzKbkg?ab-J
z!hT(889%Htd<mEOo1<h0gXw;Ww};7e3uy`UikX`<@m2TEDmE9q%A2YgdEMi<W~@@;
z*j5&lFqL4DJ{Gd87cDeV+<SPC0Xn!kE8YP+hYb!++u5!=_lBv^&9NueCykf3u>TRb
z+~8R0Ng&K{?#$m)%hygdSLaq^8+`@}CwBB+94Wk%3gv+4V7t!q6mr=UT6O)T?DCrm
zltq`;VmV_14((jK=7$tkSlm`GyENBKJm=rO|INW{JGtDb!eVBuv2aW_q~}c{H|gg&
z#&vZCQ8r`-wIQ`y+D91ssZ1p8cRRzY$}3*owM*Y>0$fXLx96f)MA9TiJR$&veD_QD
zwGkj|PVtwL8Jmi}NsS_k3jz;r+)6F?+fO%>MGl<VCgC1X6Xfl4M}-wXecp7w5_=F`
zl+xf<VcGi91bE=}3$N!E?<k=hJRpAg5ZN*L=sfMr$zKD$3sVP6r|^PeOk^z0exLZN
zp9D9inR)e@6x}o6!}<&|VGg=22M&gNMTTJF)r_x(S2-AD_ZGd<+emMO0I754Xfx6@
z@zH_K1;CxiC$ZjVOFG}Jkty)mVv{V-+WY*p!wuH!>Mp|JYwg*+G&8}@o$j}DNfN8f
zWf<*-WaOl?8WTAmvs2j^a3*B6ZdXjv?#m9FkJuMwx8Iu~fnU4`JC=5%^xBGe{0xY)
z*~=hH%`LCpZU9b1s#{iri}s40WV4s2&uWGWzNPM(*k48_UraXcZLF>wtnnP*1WpR!
zT5xSH30-A13Qsa?Dh?P}sbn{&(cGS5SPUqnvBd0BbL|7km&cavDt{H84S9gFkq4u_
zfFt^`?~R_>?<XsUI?XQsZE{I#6Y+9aNaD5^{b}mg@i({q@trfe)*WT)pl(-ZZTShS
z+Ri88qgSdP7gbl-C|I9_zq%44o|USnMg_6Cb-3R1AMTdHN+x83+Xga1AZ!@nU~Yet
zfzonCp0Shi7rR-ghemr(%Vzm@p8^2eJN=|6wfc);$zJKm$X`>dFGuT^HQ_w(GSBo%
zZ0M0Z-Jqqw{H~qq(uB#Ttg_5VDNS2`ep06if=y_Jt_!MiP!G}3<jFi2!h~S`ZIuO{
ziz-)G5t(p92M;Z`7W6f4ET;;cCs-l<N0;<`U8X5#qGILh3l7SjVDR+aZt#Pr_Pg`=
zFdqAF-RK|k&FPa8JMi2`WM5C7ra-axT}CXaEWx2MOVykXM*|yb=^pK#vk9lcuL_vF
zGw25@oJdTg=KhY>zCkDI-IT#}>sMwtJ3^K&>F!u2oz)|+5k;kFajq4)S^ubo7R#m3
z<ghSiT%wn^3`-TuCma7nYrZK>yAcDv_;;o8!2eUQtAtkvgW;K+h)ZcPIn;|M&MU9g
zN@D(nrI1rw67^r?K6MeD!hC%zCOuW^y=mNWk7nE9SArJ}9zA-TN>_b`Wz)7>ve_3!
zyrjNiJLUI^k+rEHpkd6Mb@1#GVr!2DvA*mU`oe3jwfVAiUM696TBTf6c2(p<yz@`B
zHTz;<J~9f9U_06eU1`7+9z~Bob^T)T-Z%|@#MjQY`W#$z$e3|%vbFD;uOFZhUXQJB
z6o&c8z=;ok3ZLs6O`CY$E@IGS>GgtqIj6CASfq&5`ddZCF!-k3<(B%EY5P~wtRu5W
z!d99420g33pU*;xvbpbP|Nh<iRHVnIEBC5Ji!j5R7hPG2#uYFH;aeoKNZoEx)Xp1b
zg$cu09|W)Gw*1PGJe)LV9V;ro^u=*FJaZyT&4`y*!sfUGQ1-`@!y9Q+(`SJbT<yQ$
zV!e|6kxnm^IkX9+LdThy5u~`yx;+qg>FCzpbu9D&Mz!(|kL2kEOTS*lrDC&8K^Yd6
zb5=)9z2=pOE&{*QhUvCY=+pP(iVc<fQG3>_*o%9k+xP|Yk7_r@{luszp4FAo*Li-2
zM9ys$XcH9lyK9O6##C|mMq9fDIkVl(jh!}~EZe?Y@~_FbmM?~xL+OC;b*peUM`*I!
zFZz8e<h-MY4Jh{M?bbj${fM479nG2qLy2<HZB&4;+UKr(pPY8ZV&s#YTkX}k2TM)o
zW*Uo^P%Ormj9BZL7ry_+a+Bq{p;~nTY{S@>YTN+?NM2s%#B22cGg4w0ioeLaol}8P
zBl@R3t%SBAtJZ>0RQ1*ZRa3*TsF-KjSUuU|LWop*WKZ$}j^8VsUNN+?dFxWhuk|^C
zaOr0|HP<FY_lXbH#SZDPW_&Q@v&$#|@}f(7*<*PI&;<**m9VD5qX&Mk7M&ZAQ-s#}
zYU`gqzlt$jf`@6tDXwV;{$0lmScv0t-aq(=iEo@I;8wBbnqs-8ZDP34q?kO7-|`<w
zFqbBhAnMVvDpql;sOb4AJx8oZmvoJZ>dVX}e|o#i%iW$18q`ZLkm7BVl{EfP5%AX?
zEwS{TH}(-vzyJO&$YvOE6C3sPqNPYewJne0DuZUwd1?Y`KmvQ(t{!?=oC<enJF016
zc)5HIVF`GW>3`RTqc>$K`WJ$)0*lS<$#%rMpALaYZSvz;udt*$XW&315$s2&@)sh|
z;ZwATR}<F5b`rVSH#UDVo#^AR=74npuw!i4uCgB_*NgIfVagvCSm$T<rODoXSEk4z
zXuXlJc{>BeU)KI3#Y?QHOY3Xn<k-oDZ_Go{L)`RaVD6khcz?{@vi!!!G4rFV-=?A%
z*FDj_cdLX0gX#u7jk60<k(nwXwOH}CNYNDiX$4!ms%z|1^ACulg>?0F4z~m!O0aBc
zepg(6tb1ARL;5v9ZDr=-r+$}B1U7SP8sZXCC^l=$%7s-J@%urxlYv$qrM3er9+;#_
z-VXeOOYSr<IOFI$d_f3v`t&{EM*%*F{udwgw8^`wY3q!a!2b9ja<J_yi8azEa$4`N
z{xwi`E=-fIyGBq%`#zZ4%NnDB*b{>&2n|h^pDz^MoFHs}XgT#)3hX#=-7*<9|9xek
z?#?iNc5W)Pvex5X9CgF|+wac;g~lNZ4tygiZdg}_ZHHt3D-4tUWj0Q4GS0_#Uo;L&
zm7RT#S-6Y=hh{QyMtT&su;C1#ymCnoi~m^(OAP{y<nn_HcasNhOlv;A`^L(mPgkVJ
z6;9c3sJCP5|J8_K-hN+<;X}gTFSRw>o-gq@-13tVJMK|fS<4-=FVy$6q(#KHPyPfC
z?Yxl+*~=cqJwZu_AAD&b07zBf=Wened~FQzqIg_tWxt88cFol7eT&du#pBMGfGl6J
zLAlJgXIVc%u3p?b<3ku388<&lb-}T7{P!#X?}2;sW63SwYPa$+uFpR95}&ZugOk(y
zi>0u%V0UNRY<TRep^$0jX69x$BNn`up|kJEvsj+Qu7BS;h(jr+NTT0O-0p5D^N{+n
zkA@MQy8Xq+09FF`+dhqO<0~Jt<$f}(CH$~he?rM;!J&Rxb)ayu@5r4;g&I7%w5z9L
zL*Stg`pUMM&g2$S1L)U0#<8Kg>0~)Is6)Z<kEk<gNk`m({`o7KlWZtY#;_Ys6N+!|
z_x-ydE?oUL%ZRt~NdLeA#QJ9ceR)bT2hVESVO*`w)~L88UFa_Q-oa;=?K@KqGu>;`
zUu6qtb^^l!!_9l7I$k%?qaNLrBfMq%!HWC$QuL5a-i2pd?L{1)Ir1i>q;79a4-_f>
zJ7!U2>Zg*rl_7ul1rqb)Nw?JMM1o34BUU_h#)tHLvU)RV=_bc5L3%nVE2&u(#zMNJ
zi&{Q%)7^BfJr@Q-F9O?k^e%sY9DdC|@p+Dh?#1s)@nzze82IqPznvE^S(-8&r_8Id
zh%6+x&S>gto?M@;ay0WSYFqxEDEDH0bT9!=bCbMe?f<9%<lOOEeXlK3!Og=VM&}8t
z%D(~pX}JcPJilE;m2}E*EHOxrEbubBkp)%J-7&yGy!Yr!%ZfNfDNNR|2k$i>u>_g)
zsShi1Hu1M9t}bqrT@br)gr^r^*B2-7>3Z)5dKLJ6o=FRo&85?8$$gP_HoMD}PIKgJ
zD&PCLzdv5<@>Z#lznRKt7V5U`)?L?AG}(jgS&dnqZYffH+n@eEfk4c5IZQ*E9(TVy
zsm=BY=h5Nmo3nCWu~3@+r|R~CN>>j%r~6;v)E2%AR*;eB{P&rK1EN<WeR&(`6jB){
zhc3@Ok+Y~t{Oi;8ZQYzFMgZeehC`+gJ~d{%7uBAf@uz-&0}q~I9%t;{e1dwk<(VPB
zA-R52xX~Bema1>4O0$-O#LXZY<oXuCvyB`&a1WJ)8t!v{;oO#-joLeU!J5eTSN&L;
zOA@BVa-hF-gJQvOeMRh8cm(b==d8`;%5x9EuGcgzgXHmwr|0l>wPg8GX)%>^C$AQN
z)~$Cg$@fubdM16@%CFQ5Di@xC$-eE#GYbmxSz$d-V8Nv!UUWbT>5L)B9p@}kFGn?-
zh_=uKL8-Z<^<$x{3BvRpMSHd_)S9x?Inr&fbKEkRp=?pUJf*o_rZ=A$%0!<;UWyh<
zgqtb0o0&?)8rX4K^tK;sN$c^1jha;iGFiG4_G5B{!ir|L1H%Jne?P4M*YX?q_ND3b
z(^saOmm3GKasx`+Z}C+hyH50(zLW640w|F{q6iD=PGKG0g;q1Oap$8<9;5y~A2SvE
zRfgVTmhT%X)o0F9A~wgR9cx!+J5-E^hby={;;t7Att9V2za{2Q!)7T=<66^$6+gn>
zY28}kgsccb5E}!0d7RQk$J=^l6~CVVZc6JvI*JYz7_!$e+_r4yHsmI>;F=+HVzAgC
zD9U;Az`w1f0Mf#!WV@U><s{i?ie;MssuOk`d9ER6lP=HRq;$Wiw{yQRLqlSM9=p^t
z0@)V!GCmcjo};NH&Z31d=h_3w-BBRXrSMb+2R+&L6}?-5Ew@@RakbRzC{w($y?)=J
zz|3?PU62ZKZol#1{>E*l9SiNvF0xU0iDRvIVE2Ll=IGb4`XkrbOs~VH)CNyd#HV%-
zK(T5afniDmp;8qzZX_sb-|mx&AjjN3!O;D&vazziGF12ITW}AS1L#6GPgmmRY;wN&
zU`_nqm10vaOeZ_l201U2%-&jiDTh{yFvb#}Bqdx<KHtGUr3^hQz<0~eq>R_U<o(64
zh}QGlqJBaqAOAJO)lV4o*gSbE`X?=Jy}ISUV71O7tRhf{?3|Sbo$sq7c}A@dYEM40
zIrEg3ZN5$YgO(<G&k)9QfU(<(hFF{3N(c(<Ru0BZT0;%jEkWJmOA}t9JkjPgck*Rg
zQoWOc5eE^rqrVPv3OtaB+$xUWMuyHF60X&+FN?WJ?yBJs=88dTlS^1E3Aowpm#Q!^
zQ#y3&hn@{SIyvNemY907=Vi||ebzm*7xTS9>3Fn7=S*Oa!?fiRj{t+p+)K7?V?FiB
zje!_v_c~LI*37datuDL#eQ~?Bur{gNY5Z^5j77AFNmmvbJPPt|f4!6Ti<$c_*PL|D
zoqsAPrc-;o`<@Rmhnd)}i-;r_XIRI4T}Da#eY^d<tljgGP&0bmz1dZ=_^>3nGE~zF
zs%&+LI=2p>CuNS9@%!e`^|0YO(i@0mIqX%_?ahg~ZKOw|5`ZC&#V_mpw?ex87t(HM
zPJM;dkTIoqIHM9Ay8CFBD+<3z&_UU7>|+&2f0b^``7quLZl9vuOo|A)Q$;>>K>v7(
znv(YS?%EA3nJOW-BIWAY{mDQvWD9R}+6N^;SFnfhNkV@a<d97;degOOY_GTrUgtV_
z&?I}e#%nk`s<JLfG}_~5fp@r>soQha<1qmSawbqr(O!+-7e^N{iH`*R1s#8vzV?@y
z^720GzT7@I=SIvAl)-G0z}B{zuKnoc?mOI3E>YeRt!VA#!G!N4iJS-CX!&*D*y-EG
ze$sYz<vtD5mj!rs<14ESUq!Dj$P2aKhB_r$``C@-Ulu<W9t>=LoRq*H$`N`ewARWC
zJ-Ugj#wx}&$JdNU_Pl}2#tT1<(7~mNGFs*b-ZgR0Em$q);O6P`$+HKlUxM31mAfnr
zyl1i3>@yy=L^0h+Wu*40p3H9?aPY9L%h9R~i?bhZ&_KLl?io!DUlinn!TW~hN`R0`
z`;O$sv-)AxRVpK-r-zxZcqV}Y?PMR@*dS^(O45*C40Qhx;%;7x$V=#7&7ZiOU8!5p
z0!tZcJQ+})25#22P^BLIA7s3BSXAv7Hag6}&`3x(45);3r+~m9h($@abeFUsppt`x
zq=6#cT|<MEbi*JB(j{Hr-uV8$bIx`AL#_+<equc<?sc#A><6NGLU$(&iKGmt4Rnd?
z@s4FDW-;TptUIi5oH7px35sI+c@a)@5T!^yvBDR1uF|*8;XV5LiYrc6-WDP{g#*tT
zWWydYe;%)!bQdb>ED$A|Ir5%kan!;Y(pZN7P!VseDRK{OPcFP!=<d|>dW*V(Z@zXt
z^G%4u3q8RK1<ep0MMeJ1-^;{GcIX!nE38hKDf8}M8g~hIEDksB`|k{uZ|g;VEzqm&
z80NHEPbG9?Y-%YXRGp)73!!8>Uz>78unEe(zya7xA~6o{`$`u1zg5@P8mW>A(^OGy
zAFwwdOt7)ok<|;mQ|ZUD8MB!f4y4ki)~Z8NhHhV5W9a5^e71VPWyyTKmEHWwuU9SU
z;w#zVNg{w#Y@J)q)7a5gNRErzl|oOVVL<%in_Kj7s;iDu|At2zc||e%kZ~P*d&=i^
zyds7UQ(vA(SWmH`8DD(t!Vz`^GMWJei8AkJL0Gr^m-ne#f~|kA#hPN|fr}S+XgWed
z{fcV=HmaCH>iI{sewtR7)!u4$P|*u-bW2TSI9+D%!`8QH$7vUUnwkt-)s&UfFX(?u
zMbB^NY_0v=F^dnsUJki-E13L|YZahiEe$tehOyiUqMEbbhYbY@_v#DD${J5llW{xv
z7`7p?j+qVPS0`GaCD9CHlq{MUq4-AZClZbX-KkHsP;`4z;@I={lw`ETAo`DpOoyrM
zK=bYH`psY-td7n*KA-f&l6SfM<z;fYS$;(wm8}_AP*K^@(5ID(;a%~~Uh%Rpept*5
zdB#1*ztaD^E-I(m#D#k+6X%Eiw*w|whX(<Jx*Xo)SEC$H%{7;uh?+)N?RN4PbzIsi
z*HeKEKm{OPtU9mAl9fy23>QKvdz|EM>g-2nUGoOH^x0ZMCqS$o>oinTLA!}2=iNGK
zzmj+O>iN2O*rD!ybTMgdPr{GNZoRzqC<Yr=2I|iu)jqHe9ydB^By@ap(P+@*iz0ru
zg|bfD1Mk~7Wrg;UUl(;MWCW<@9~kmdGaJ8|j0p~m2rgP|h;ts@0O*#?#-{rujuiaO
zb_ics8lf;Od)sm&1g(a_MHi{6IRXU*(mT!EfNgq`h&QJu+8z@-(*>nA#kp=Z@#^?Q
zS|q4DafB{v+8WpT7`ttzU<#gPT>X7t?L!|cuz1bW&b3}-Vn;h4|JaDGjG;`WHWr=2
zpY!dv?Gx3QK4%Rdh(kEd?&|aItO5yt>gl3`12MhM)k4-BO`(hT1G>fV6v@O{=^=q1
za}Lr@3-29RrFc{OMmlNMdA%Eazl-g^^vbIWmTVceL$%i2n_0Vas!fpUk?LDTJ3HvF
zf-PvJ=f$aCO5j7+FOb{^m2;F^o`b*VubpYI(8Vt+3`*k4xbs`lO7Xd!k5WDu+xr*8
zXKQYX6F^pEp*mt2k{7;bFXL5|Iy$f)>}25b;98OVnwp0(!zF*xKV@T66r8&f05S}T
zEL{M<&7QaTSh+)!r`22&M6&3|YR-%|HC?^DmMg0grBbQq{~Vin-8~u`<J(GMdA>bt
zj4Z{c3Y!(oq83tZ_j%XPYTq~(Pltvak^6OT7}~}aW;Pv*06C43V<`3gUp-LMgx22=
z&o5{~dF#9{j~wTeQ7p4fVq$2fhMghyJt?k((b!EsMlxG9m1-ZEtyNpoH6-dv<!cND
z?=0<4nMsqo!(uL*QAD_b(5kEUUqaEF=mu1Y$zZp+%Ug4mX*Ac;Q|E^zje0Y0<Ugu$
zXoDGcNCJyza6)gx&A!@R^E*$w-&<WEFTOQ%nhjr#UjfW`i=Bc<6`nbM2d%hQeqiz0
zr~Z?7O^^IOU)JI3=irllASJ3!$g=3okcQdga>ie76u(;x^2F4kabAcNMRa|%0X<sR
z#BTV!r@#l37)!<DikexS1Mj1a-sP*(!$U3vw-x~F<|@};!<&b*95sypX7$f9(f;2m
z8?^&ON>*ZF{>Af>a~V5*s!XcSauCwl0dbe#d&Z+i#y~v=*Sk()OBpABdUyS_M>!Hh
zFxT(%&gf6DU30%i-PkLD!!OzBpNh$nb8T)p^^-U{LZ1y4dW`D&kEUsf$;gtsbT<Q$
zpfzk%lhLs7{kjlsQH;PycnW39oQ}!_a*g2Dn}r<Qm&_r#t=f@HY=babx3ymJUjIz`
zmIKrX9UrZcYuViywXmez=Gu=2k|h_**@w5H!6Lv={D40ivnX4f;#fd$obO0HFAXv|
zB!4U3bnT?FaC<jF3?94H;~xv|uz!qSA_jn7jq={N34FA1tbM8e8S>3~P)xKzH9&w}
zLpnC|P9PS~9ykf?57<}G8vFYRmAFhT&zaV*SOb9UlF9^7Pk*cW&vG<`fn()ns{@j$
z)N=3u21h`AH5)SiD>_v?l74FC)}9}>)r*BxN|jo}d|ulmm=r`CE1*UKrur@mYey5u
zIP>d43UKON*6lLGBEG;#=u&om`0TZN#rH1R>nJcbqA}28>2@$`n}4G&F&e#|erd7e
z4&=<OH_jhY4bOBolA|%wA$rtp2h|C^`P{WhJQNR<zm+GPb^@ky=p_4LL}@F4dRa%j
z7g@&)J99Ox@q2d}NJ^_u!P4w2{ix2yhI_~7aF=ucE)*d6DjA-!7Y9U?yoq2ybu7wp
zf}G&2u$Nt``q9nrO#xYsrR&P-%e(#anN`l5$JD{}{DEFNJ*anQwh<5Cr0Gb_McG*w
zy*RT3sIm|2l;$p%pPTN|>(FL!=!w)fV;;8}XQq>1`OUs+ADm%#RsuK~%_>C6JE<7`
z9b?~e37L}_-t}c_X_~?Km_SL=zBkD=bt=8HGHoVV4l$&k7nyecD7W<qd{&Xh{+vC&
z$Ta)rlT)EQBE^>_jAk|pkM&jEq5#d{EW`e##4CyhtHR4h49rb}?A;dAsX5UW8R6F8
z7wd>;eL}RKRbrS>0SY_nfB(?N7)5P;u>bo<fIfFifZiNI&c*bl)1a$bB}QO<kh@uC
zU4UBVWtVsU%Sf%5jBankcJtmu8Ewu^Tf<0!>BXm9;q7WgoypV74KfM31*uC<y`Gs3
zl)L7iFW?2*YHRvU#%n4s_j^3ozc87_<Kea5@jjj41DUz^vywK?oj7zdyW37_&b0A-
z8}w8&8|F$*g;}K;{ftxViTR@;fn*c!P**ODLM(6wYl2jOi1()3aEXj+>r0Q@`7V*^
z`Ob~V_m(rk@xgC{t>JV+f^n^aDu+NF_`8UWUl$^q^vJaZ=I^Sd1m2Rxh|M#Woz+jT
zIoVuaTvy9F^42G6l$yg;RvU|;519(Pt-Q(w%!eMAZOd)@Yij+m*?AFYI)Q2=&KR;7
zc9V5^YVfF<WQD!%(6{3B$E4Sc`#ekQhpG6UdEKal7;A-Pc#v&{A4xHngoDljvG6~f
z&amWvm^mqxzr8})%5ySt(u)vz@ptr@|CVJhdUK|+C~cE7^$#3|qs!Yp`ppoTedD}p
z+e~w1P3|z|q+wf-zms9c9@DaPS7iK~mcERPz7VxHx$&mK#XVoTO5$E-A~zO<hvexi
zVVE>|)RK-3p>8A%sX2s=3IhEQOC?7XcK^ZY7qa1B%vQ18oD^Da5D6X~R{CJqXadVF
z`3Q+MSBZ$9@dM355~WYshAWr;Siq&LX;TPq#wRV=*pO+mM~e7gbbF&h{ZKq&3{`kc
z!*Xvg*HP9n2;->q!ucA9j7a(yQq>D_!oksGeKH#LH+t)y*4zA=&p6O^`TROp<;LJ{
z@;UOB6FFp>J^#i-Yt+usA1l4jD}DClkHQ~^Pa{moj}bzgbwafEr3+8_Q#ZDJpKscs
zA7fM&(y;6Mc@6^y4sNJ5h8>9OyiPtluU%Hq?9!Q^IW9;IC=K_yZ-M<=p%|#f$ec0N
zI0@{%qtL0i*mmx%V4iz6e0ff~atejv&xw5kYV}<oZ-dBVQ46bUlp#j>l^55JTUbe3
z94v5R_nC+GnTIAs6Vh}rHfATqyml$n8Z$d9@~;HG{a~vQSB`GuHl)X@9}WN)yPfZ?
z488N|95Yl4EAXP-tj4+A1E-6h@7RP7qKdHPj(&^HOQ(Hh_v8+nldDSBCoqWRd|6d@
zwn@4rxUUo9PkQcCUH9SQoy2?rd^))90~ybA7NvKC(B?k2=3b~H6)#)}%GApf_Q&5r
zVg6t+zexj;1+;wC@Dq;7=?L;sg-Ecbe5k?cCB8*NWrji#i?jCK!4-o>n_|!O^1wS4
zP+y~(i({8cdF9p5@DnXKVIt#o6utbY+M-~KNf&<p;vipD!GOAcOID3L;Y-uOv12}4
z>x77qVedZv8{U0(-)X0rr~CIu55LZPUieE*8cxl5{YW@t>fD^a%D7CcJh&LIZ}QDv
z3Xn9*_Wf3J{Loxl<9NK+(jWgM*kvp!V&1awQjuAFLCT9LW&8bRI}xXk#J;&_&I&IZ
zyPfjv(if~X!AZ!BD1%!V#*U^#?BmhGNXp?i)_$!zfsGtr1`akh->=v06_;o1J4npy
zR^j=&;g$3U9OaeDn7LWQ;#$kW1%Xq!BSzl{r*axcXg{>LYelS=+s^~+8o(u2Mc@7Y
zs|o5{CWW_f(RNH1DI~eVCw(`p_eYA-xXMa-mCQ?){Tte+WP4sobDpa!xs%6~Y5RQ}
z7s~bMk~^#9<5!5qB;m@c3r}G))Te!*rC>YzVS(>ncPppf>{xC0z{8w<15HEOHsmzd
zBr=|7nVX8!=lhuDj~YLb_4rph>ny3AzUwokCzz4@?>x2=Z!G(`^{DJi$4QpOx=B05
zc1m08$|}sIrQN%0hHQ$54Fvy2yGE}-mp;b}(d)?F(rM0xYl+2}Xw8_TbGzSeMfet*
zghp5s4FqXm?fgkS5~zwGD%;wN&c@;rkaV19$k5w7YZV#@xC0CSx=FN(D-X{()M#W>
zOjc1^iWSWWa0a?$at;Izt=&E^{6<rUyEJ-j`*!tzYuh=nXun%M*=b!hf2>+k!(Tj@
z9JeVl#b^}BBJ!|mr6;|{b*qTD5u3qApfdKng(}T}zMpXDQ!1TiUQ=*1EXwZ%-Ii``
zWu9fXv9|fP&g?0w4st2qyO%-HROVMMoA~mPTe0teZC^bmBI+cg_kF!e(YvwK0ew#9
zf|MAGJ;zaL+BLz1STD0V-X+#$#gF~SDJDf((*5Y)_}aJ`UR}6dzKEE|xJ!LqQcFnY
ztr5LGfmpHc`{^<J>2W;zCIprf86oO?RImntSXeF-KkhqPX(fdxQm>Zu1w(4GN4Zab
z80cQP7|*`D{F>{(0&i5-4KyV3lpHpuY&{)#CXKXsA6$BG@>6(<tmaus*8Infj0~@r
zJddLN&5KJHEI%J9DNHKxDBh+oVPKab{jpqPAL=SX-=q9Z{dI<X1%vd{yS~8xI+Z3e
z9-|JwRWf`6PV#;A^Fng0XKFq^^0*a>-o$-b5J9A&ZrfS*<@uY6)DO|@ayWA-l`Bw1
zpOA_}jr~C87HOaYEqtAd*FTpW!-}l**r(=&WZnpJGaj}%Fg9&>49_r3Gxom4Jx%gL
z>(Nv1b8euDUKcbRR234)yrDs}f7%fm>wwguiOB`H{Zy`!dZI6HvZ6Qrn>X&0WQP;n
zph~3<wA7E#xvur7wqs0UGJI_sQ>Ihoq=h7mOXmC#NnSlmGKuS@iAeHqq4oM**7Z+t
zS+{lPcKy(Mjv1Xf=Hs$o`oH{!WgxV6rLBC#)`$iua8FU8Ik)hivOC4q)BAiZq}YqH
zuViwS=SvJGQWm*`e(<Da45e1lJlrV!d(xQgV-b@}%I}RlVs#B4Gf&A;C$Dz0jHhSb
zANAt-D+Iky|Ja2y?Eq5W-u}{A?Aq3ocu1?=@n>~=e@TK4K$OIMI>XjN+a<y|&sm>}
z=31^FWT^KhRxxYe4S%H5znpPL%yD+gZgUg2l>NNAWVz*m^=UK>gtHTA%)IWcWHD3o
zE*N{e0Q~{s^pf$r!At*5kR!qa6L$t_k~|wH#<JT>AOHTTe`lSnH?LNgt5dqNeRt6I
zVS7|Qt+Bq>rKQ(E<9e9f#<om;Lqn}&z=E`p<Zwor-GG$z;Lm{80o*Gtk{R|sLd|ad
z!oGAlTz*~L@|qL68LOZs!m{yTV*v?Q<jSiSIp4^<cx>Cf!Hdh#JBeP|cmEbiYV_l1
z>LgF035NexlQ8T0OySq?#PP%<-`-e3v6Vh!wHRu%R6S#J^e5~+(+(pUG53F%DOB98
z-xuxZ&tZT|*XY(VVrM%{^8HC!OZl=uaf^FWqXng{M$7w@&^s{vr*7NEuj$VE^-%5_
zsPEkbz;_0*1%DgmTC(eq{7ozyNpOo7l%eO8GYpvQ6Vrj0tvw4<nONA~up8*|lo3uW
ziRh|!m--1;hZ+%_lUGB$k0HzAw8ytFzgJ!O_|<=NDJhZ2fN~^?p@t^GR$vEc7`iGL
zKwgzwF}G+ZgzYCpcTu~|&5|p|dup9l{YC)6=1~JQ`A9O)_)+`MGdogm-Emppp~cv;
zm|yqCFsZUR9R8?0XkTt;#%f|puJ75%WbDgI%k<Fpl&J}y!4(a1O(r%-wb#`;Yxd>e
zxb1Zpp^^V>+VCI~XQ;2pwh&W;|0M9C`K^WxA=8w6agkHhr}xdiaP3cr9IEkcF9M;I
zeDt4)G76=Mf2;1f_(w9aC+0DsD6=ho1lvkrZ%^JUWcYJuMIv81p7{5hT0kH%kNqD!
zU-+gn&j%=tRFGS+@6cirqzU#Gft)^56*WF%?`}%f!@R)gVu(-{J86c?(l;hVhl1Zl
zs6V@w&1@%fEpbdz#@{bGtADLZMd~&!^Fzr!pP9W}F~bp`<Hy@LDg0;0h31mXe&>S4
zI^V**L<<ZK(`EXo&FZDBTGoTaphb6qVl0HQ$4MeK8SucyQzw|kZ7g4#se?|3X6q=6
zlaSfkqdD6&xvHMXj`Hlz5;Hs(*r2EPsmnRSl+O2y-k0XQAdCIm)$@4sK;~X=Z?r!c
z@Fm-`J?HD2XF@NzEPgDHT8!qb{Lr*)z_ogBJTf<xr<E;8Mzip`TPU?dl8TJBY71vh
z{fYLc?WhS(%rLIFCiWcG`HKlQ3Ni_7klGOxrrw!Zax7rj;l&W6acQRRwuVF5Ppao{
zqKv6>5qT1x{P!sAysp}DAc1w+`*tgo58;g{CfV8Hx(h?!)B(kvN7Q@~GN$bO-NmW3
z&+lGd<{zdqP0uF>G`N^s(basht>x5M?Ta}bAcAjkPg{BQ>;F}L<&Q7kxARnbiX`Uz
zU_+}XpnhEh$l#eQGtN>m2Jm`@UkqMny{EUn&AWm$-(UbS8!kOiQF7Pz=du#NTrY_R
zNSTUl*l;ih`j)C1-DZ&yX6o;t%=srE4ScTbd*nhE_a=+vyCLlfO?PhhON=)vp-z9u
zZJR@{J+H~j%L>h{`h(zH3<>q4@4j&wsG3>z_2LGk0L}d&*|;;iS<W_Gt}ef5@$xmH
z8|zMMqxpaRGLz#<w`Kws<4vfu!atFhdA+n-4+!l0CKGo?j=U2p8{c&p(9`+RJtA1F
z;Q3{1$IkHsm%yTCIEI6&x(=uqskA5F=gVOXG&}3l>@ynltTE3Ho+V~*SibssT;G?w
zehYeYaeu`uag1kSOMnE}V$&^TK(rKtIAwLR1^di4>;}|sXodOP1rDZt^_csytB#U|
zu6mns?0qHW9(tMynoSp!WW85B!b1#Ye^Y?)ILTd|u-n$?Vm4L$#_hNfn==L^@?C=j
z@iEU%CIZ=rqaO6UUF>{IXXeb?#%LvRbr_)AjK|%l9i&eCHKtK@VM~kAG?n&%WoK?}
z*K08LY@ts*zZ@n}GXJ@|G2j8hZQ=+j-pc>=0`#k#k|0GNVy&c^xqY$>+?JaGT<=u5
z>xsjMSUK870?eHqG1AQ@pi(=pE7s(!uzCC~+VX~&Cy!L;>>R;4)#7f+8-pd5#RjKM
zJLMbC0rhPCO07$L&c0)c+9S@6xBuoTiR_!Z0qa4|mGi}DBm>F*aP?KYu95|jKXLVK
zhXGveP17{2aR{?Uj1%r$yIYUQdkJAtJt2%X9H{Z`6BVah#22w23U1XQECoC4R^K(2
zQV`3Jo7@5zuK?B3mke%3W7VabO>m(BuxC~C&Di}?G6JSwcfw@umlGp6gkHMEEm{Fx
zW2NJ7l$$|{q@h_Br!jfyDwU}<>3O<wdcFx&-0YpZy6${H3-xz(0+sZ?nh!FW){~V;
zME?JU&u5}QV|18$UYC**e4A2aGjqc-4aN*>Ok=vD+|lCnB=>SEv|3r(;zSh<<RF;G
z3DI$AfmJuvvlS>aRsg`cP9sq(f<yo?^Z=lo6?5inz#=<PtrWxB)(l^I3EMP(oNKBh
zq*LJl^wAzZCOm`|J7IZ58#4K}OaXkItakmM&q#B|FI~;u4{`Y?zAXW*lM!8QAHf6+
zBQjckw34)>3GqMBnt!lIRw1DIKB{yvnA<j5KllS8HKG7sxi`}{BE5OVj0tl;zh&3Y
zhxJfC%wqQZJ|TJqhM5_6xAmXza1{0|_YbkCvJWbIw@<juaDnGlRN}8!l4Cw;{F>C5
zWCo`0QD*18T&yxC!WXa-Ji<iv;SUqg;Gu$1$8la91kD}z7Zx6{3Uuz&uVF=dp{C6J
zQ)LX*Q4`YdQT5wJHuI`ae2?UtqREb-&W0NExZyP8teZf?`~ZL1^l&Q(4)pEp0w)P!
zd@H{Cs%z_}9phu^fs+E}Wa}AeKLZwv=%uENoUEJ#H&{P5?>KqN9v@%WrSe_KnKNc~
zHDh*a?_6X`zlpn-;0pGX#D&CwmDG@`oNwvVi{H~FkUp>6_qk;io|Ix9?S4x+TnQH+
zr#|H0u3j-|KS@gake|!A;9F4{rrtGkfBvX=`gPfM?ZS<^Xy4{4$E^-;ub0Us2A02@
zALV{Z3>E{rutO+Xn2lbY`385Qjp!oewhSH}*Of$TTI46>&0TqYHNCE1M5vQqhpM@&
zk@6VHpmnyNy=axWB8Y6yr(LhT9Fa{8Uxtc6(QVT?7i+<Z6hb~3SO1=`e9y=0U$|Ji
znetKv+{24v_uuZvWo{z!wtVSrJ^aIResXxCgVJFhE8sm-W9>x!9~e91ya~W?SJ?dC
zn=WMyBtK3-FN%AZGbVK<3mJ{idj@(Fv0n?tG>cK{KA^|rX#L?s9?ys3TMux=agT9!
zo`9cde<kRwJJlbHsKd<@Wo<Oa+mFmKbHg%`kzyk&er#~F4!CAvff8heXdeA_3>=^9
zpg%sX^}e@(Palj7n;jW--956dnEyKwfh&bqHdQoD;wRuA!7#*NFH>J!)Kz0$787YB
z54O4p+LOE<HDhCA|E(jknMCyKlnJ95EYeERU%fM&ayY}<f6$V0*mT3CFr;r7!(7pt
zX;``aDZ~vd;FBJk&X-87q`Qt63~a2|QaCmN?F)oMtzb)JMcjw3=AwNE>P!sGsraBb
zL&~Ey8IAyFY*lWGeG@@67dT!%FWx0l2`z$<Bp8=(=i1B@Ea6IM-fal*+K=Ye^2*&x
z<qwFMT;bVS16r@MfkyGB!qv)YWqZrLa^4!dAWleYVxQ6E;jq8KP!V7qjJosVGsfC}
zAM5zp?!E2WDe3(nq7pOam~|VR7Q7%Jh<WvQP`a&VjrREViPEL`3Bp9G+scjP94`JF
zvLgP$;=p~L!P4Xhe}{O=sZncw35k*tXC-inqw%@@UGF_zzcbxVcGufdV3R4<`TH;5
zv_RBA_JQVE2oPL$7>>vI`$jcNC#RIEVB*x(w`2nFccebzol`h7cQ4xoV!uRQrc2U^
zQ;CNlKFC@pNesX$quen7ZS%pjh*5k9ZU-)t;?2LdgMUzjHU3ZpD^nKj!?r_$QE8?6
z5YdHQ4tB7xkkm^oiyDdQN|C?7e#q_<zs=)W*ffXD@IF-<Y=VyDyw16J{FswTc(7!f
zgGYaD;uLBy&$cqB06q&Pkw#5%Hvgz~wxg9`t_myfP@qGZo%GsT)2|nxoq;V2J7+{1
z&W=Off+>);Ll4>RtnSbh!@X&a^-c|#LV)sW2gkb-&k&K!XRCTbR?Wb)Kqt^spn1aL
z#U7f&#+Uu4Y=p!dJT11;3HmaOwQx6!S~p!5Xyl(bS+}LCD+~mRGfX!;dh*asFgcD%
z-F+{4>YYsVsyR&(IMh9`k2~&@51+ID)aCxY{#|hxv!VxvIgIW-@YkT7+@(xvG|i3Q
zw2;OmSx-t8sekJ?q*;dmo$VzMgM>;ktSiwjp8%|U&FM^YlSKi*8?ovQyRN$LEZWv~
zJOKMVfF`E+YyWg~3te9BFB4*{wS=G#!(t$=H;Zrq?!!Pxr5jzdNvc#jZr=n=mzMRP
zBcZpQ@&YU)a|BT2wi;j@pujHVwe=IcR0KdOWpMG$d4`l)biWLMXRV1`?gGCL-JeR2
z=H&wEIyS*(khT-_<}0+36KSi-m}~|7BwNTYpgF@tTmNt+r{nN<AWc~ixJV17f6sP~
zl;<g?<y8i3mnfz^P*MtglIHTZ^?gcVIB(9`-D?esxZcjV{xH+pe0C*3Bm(iWeYSt*
z>x194;82__pl-m6bcbbaBitAt4;zVHuOIE1OL?Q8-TWqa2`D1+-&5NwBAfAH;^S{b
zHm_)Y82}StE`fr2&~-^FqAN7(I{J-rddu;*)!fas;Rbi6xVLk%E!7f5&7qR`{?bL~
zTFw?wke9aDx%~R=0?TBKWkrJI*tu`lFeF-4NeMgoefnS5)Ac%Ertgk@{kl?#0@qiO
zy1-r>;2pgDT!}`)?^0+9*Sg+af0G{4MRKw@#kBo2;;}LCazzZ1AKbj)XRv{hHs!Uv
zh(i<hF(2mrMZG79v)o^&R}{fV#CGn0BX~iuk%Afh&)nXF!crV2HhAQA&W7<q#{~Hx
zQi~Yz)gNZAK%6-4Y!}1D8<wYzAb~U|0Cu!sbK^fsr>LJY(EtzS*N<oq2w=4GQag?q
zdJ%soRpv80)}5;`q1!;MQ`n<%^A`n?6+-2bXoBpTqGb~_1tr(DbIkb@Z^kQV`~ogc
zR&7}g19$UGRH*pn_;<vB>>PPL{Jqz{H?l9ee>N>}^Sd(G!R<;4Dp%Y>8Iw4LIBj)A
zmQpLBr;sDDGp;i|QUaGbeFta|A>I9PnK*3<naqvqq^qy-PaDXJc`m9@0-h;D`L%S6
z9+t-SC9JZ;81C&ou*LCC3D%edb`zF4{Xt}#aXGjT#6YyI5umbI{L6ewbJ5J5l6c^z
z@`0;uk`a6bn?lyog>xR|bf6JgG<}DI+af?eUR4b21lp#*|6u5U7c2=8%22QC)W0wU
zO-BNvCJVG?#Eiq_OikLin1>HFgWY~|ApoPop)$XM+im%0ve0_b1Gn=43&*-X`xm8v
zaEs8BbrM(E=o>+SR`aRtz+Z_*(QrHO=Mg$!9~@wAU_V^krxUhf6S<BCd|lBNaKnF#
zFd~bpL8N8>K>(9~mMehnw2fv)=#`vFn{e&eV#Y;QsG()bypmvj8Z2&0^4B^2F031c
z{no3|NH?cT2F8krynSsp+XW(<qv)QXOe{^*2<8H(Tg7rak5(*j<TC|uglap<iPro=
z8*j>eqbjO&I(Yy+0Cwl{Z{k$DsdqthvynN_cXrY9f}hENrUBL-Ami6<6+;Ysmkt4@
z>B7#wHmQc{Z~j+C9WsxG16J|cfzuC{&O`3(sZU*3ca$t%T|3&HXn@_B@2O^D`L=1p
zP8|)Lac=!r4s&Pa`4XS`fs=dx#DfpsO^RzSOR3y8&tGE(jwj+yJ8d>ZCHd>sT(aDa
zXP@r@hq&|z#IoQT#8)!jTRY!^N#l&+k=~lTiZ*<9ZC!NNcM^dOZAa>iF~|^&nA%IP
zW+uwYXtQ1)*`Ka|_Rz)vU)$JvxD4rl=F__>0jk^OTpt)B5*cN)z>;7MI%)~*YlkL1
zMzpUxeFXl-8|;C@N+Z}ZSuXB_#C*G6OBbs=2OX%0fJaA8BKdHME&~s@q}2;^A08hc
z&8$6CppsW;p+h|k67G1d#NuN9*WcgcCl+hEcC*g?5t^ZUmLobU)@hy{mR1Ij$}nxT
z7D{a&IPqJ0KbCd>`Tpibiy6NFV%9XARJ-iJb>OVCVb)NucJ-l-jz@M==E|M*G~WT4
zBb@<utsLXb)AXP4SoHVv_xMIgR2CVUvL5Aryw!2^82RM&eFbZuu*c{On#DJyEXox1
zC<Kx{=nXzn(r-mu5`sjjCMS*0;Iz!5)q`}kDr(FGkSIisJ<lKu@RRtdK;EQmRUY#s
zo;uu9GxOkcI2Tni0*U(3fn5ar5LT}+sDHr~M-k)?!Qb88P@iF-qaP*+;{;YADA3Fe
z4xyv<+6Th=lY}&)VDe4dX&pF!D7a39&2b7LDZ6=aB@Im`BM_~Dm*QIfjcd@(&*y{_
z(ex%%2*Q?(NkAa!Sk-sbP+?^*_irHS9#<MTkG_a-tBnaImgj}ol-3A72A4epKEw5!
z2eTc_D384bzr+@=WOkD#K9>zt9g28DGtd+Km@K33#w?==oV2rid-_T9PhcC*lsUaQ
zkO@037+DMf=J<S~Cx{QIOKpFDWPlR34;Ahc)eX5Bgpg(WL@*Js=fLfyBPa??mk<MN
z<4KJn!MO(CN?vek(E5&>8tUbsUZ5BQEX&a8L-W7gzA;YYK>ik{JJx=DWs1?T$n)03
znj_xm9cZ9FmJQHGKDqI0=3D|xlwz^`{8}<uWNmzXs4Ul)?6dTrW$tN*AI*26YGWW`
zkf%X`-JK)x1<MEfYN)p}f!&|G(SKE6;6%h7wE2Zp(9D=<0CL6NB`ibaq%BidP-6`+
zoAokb6fk){R}L0$jOEG@cajj@27v1^mO%s`kd|T>anJ!WP`=p&d?xzG>dfcEzyra%
zP-dLQ_eXrNOA@@0n@I>_F(02W;lQ<OLbD8vh6W&IL=+1swBOI3jsz6mSd_!!>6zZf
z(KbQpp#Dsm@ZxvE+!4F?0Ag;^MuVHF$ixIVcP=47{jyxw{;VA1`9<U_!7MBp8{Z<0
zknFnoMSR%eeCv;h?FmcPvd;g0i*4`%Cb0?S2egPQyYubTsDC{tKy+3uU&KI+Z=0&4
zg!83i9~R<phT4ayvDxFX7B#&)@Ztb=LU%n&ZP9msb-BU^!IGHh`YR-6VAoB32=Au3
zb_OeX=Bs|<u`cp@AlST92Nsrqp*BZ8k+`V+F7q{Wyb>0OXWw-eCI1Oq06D}@v4RzP
zF2nEHb`U$Z+-U%6wQvillL^D=_czOKES~zK?Sgr~;;W#-GHH?tN%3!CwMDNHlUiBb
z`tr{pL2JoL+q!Gpw93CSfs;lkExhB5u<@RBAEcxRN{V%O?sGF(rNw1HmT&~ZSeMJ`
zRPZ7Q6j)uZ8ZHZ<?@X|}J<|oS<P|*=(VY_DTi3|euH=>pH+BKi$%iH{Bl5Q=L@pyk
zX@UyMQs{8^=C}Y`GVQvamCgC-o8^}%`!W$Eoq$<{8<qm*Lo(w8saa$5^Ww`w1ae5#
z;td=$$7;Y8h_u`eqWLpt!dqJ78Vs7$6VRl9>EuJ@d&%qX>^=(;zLS4LU}RbGpCq6k
zK<h+>1t-3v*1+MU@RmfEpq~z>HeRxXet?9&c%=g>q~JeafUEVoURrSmP8zYkAHXZG
zrBbXE0xSS;iPH|1wXjC_@zKcDqp#4otkMV<ChUj>pRTp-Ik~Icr@5+~SW*vx@55TZ
zW`B=BKEVOyPpm^M@9}sZyC{p@K#-aZ{TPzfeTu-q?NDKLKJs1DP2Vk8P{IcPEwGxG
z+CYSENCFb){G0{VQOz3qH_FEdbVy-&nLjU7&VEkIBZoeLPZR4fw?E%QDMz$;8$JB-
zU3G#y!W#Sd;%|~>ZPUpd<4F<qKRe3;w?$W&2>Ma3q}Xr!5U7n%s1Tcr;tP9q{WYqA
zNbGCrMHv+O0Ww5|)${ZDnrY6>$I6XE5jF|`l;a2BtpOp#Qm;S}2=ih4FBJ!=cWccQ
zLZ1eY-5HIkcqS-`WdDKW$QXESjS`jzt!}Lj>MZ1}{S_7`?E23MxSQyxL}uf%XtbPu
zQI3%n(!iP^Pf3yFqWzLZW+^qB`WcuV0@}qV1jIb3#G-qI#6+x^x|G9?Qk3M_7(K|5
zG0ymf<KQ+DRRa+St5b+5f*;CUd>+&2l+!v84Z=&bjs=`>^R<J$16hGkLp;zuFKK=G
zis`But0`1*WokoYaMiIM-W~L7>dOpQ*n2+oQ-qoYn+ak>Jmc2?Bf)`pKdBd?1c>el
zj)NKIiqqHS4sg_Qy`Y*txr?nGI~ud`E@?SN4wnf>7CZm*dH3MTUN|BFS=szNVj~JG
zB7cCSb85rS?3K<F2?w?_F<LakpPBRB;tI2FTqGUoyAOZ^<Auz_9lru(+di7&WdBnd
zwlLOw=YSwmrC8V47|)qWo`?Y^Pc8;g`relb_%W_*skc*4xhO*sIjP2P0e^OggW3Ch
zX^vJ2PJ%3U%ce%dA9iKNpC9vJ*e&wBq#B5i_dcrdASw6cC2OdXA<~e^x3j{Q{(%32
zSVPMzHs=hQNjajV*WXS#N^>I>gTN3Wkq-4M{XVZ+`SvIet!zS#n`97ivU?U(w6Z9t
z<$h^vvW5xeMkY|28)dMD8pjn(Y^p}j`ESEkcb^6iVl(A59Mon6Y_cFj7Un)5N>IK7
zdb!%^Ku`M8`0?3uOj)>q3V|P4vQpv<&M{;s8%C&s3i~Y17Z{Li@6ypAGH%>d^|cW2
zk9IzAn`)$jDx~9PE@~NvIPZagb;S98xmHgRce{cA&nF|YP3lMQ5eHxt&Pkgy7`dE*
ztempV0^J<uuXKjUZo`+C3&!$8eSi}|^oPo;hu|C8B>N10AEbcfq7bAtSvTF3y#*c>
zVsE=ySe8Pj9`Mg6llQVB*;B6N(2({0Vgj-<HP{LO6r~B!`*qFDPni)>?6<C$Wn&0{
z(WYvgw#y*C)6>JGX8w1U?VT3;pY#sj(BMep=3M~dF&k*12~WBC?>bS_OvwFtx8AkQ
zh?YhPBckp^%7~FG2Gz0e{w7t8Prl{dO<pgMf=LL=IZW=b5i7cl1RUK^*D~mBTu+gY
zea9dxTyqsC*|4++sIW93iwshAy%m}SDRG#etJ@#0fRyCgx_$i>518jq6Tp)_dsszP
zQ3O+FT$Uc)Ft*+r%Yds56({iDV6mXj*MjNWIyG#aY$h3=u$c%J`<~`g%RK8Q1wzs@
zpX*rpSEjb-PA`0H@I+{_QHtVN!r5rf3Fdek>5dXsQo?KFX{I+<-w#>G8fxh6RdFDR
ziW(~fydB*_{&f&+K;xie_Ae*VPQg|fWlWMqYLSd$Vs!yD8s{P6!5<@nv;cG(HM9;_
z${7fmpg-o&|5_&me~1qWC7zrFLLT}0wi?~t49+tSDEe3p&W2QByN;E0FmFOVz1Io>
z`S9c6fc|)>6K=q>(k_I}_wQW2><UDt4yua`&@5J9m#_P=i|F%_bfO)D>EJ;mgXkdv
z$b%3VzTmL{qiOg#r8Cso?ad<KYgjw#FCEX)vHRgP>EBKW=KMlLz<7>A=zutF*#;wI
zft(Wx9*2|#(V}mf5a}Vq!-IJ(-b7w?XP%|rOw2On{6H9&OvOYJ{3QtY+W!X#>Nlry
zrgBqdfDV-iT)vteOmrDQg}c|NP;~_oM+(DcDa1V<ZFxOvdP|6{O<?n^@|oxpU}9pN
z#20`gLxsiWmaI;qZ<{<_39}U_X2Miw6AqhKs+ym5R~5L2Ac05!iyO%`5T!AAa=b_@
zJcu+tUs~}xXrctc6GdgQa`g6OEJ~V)%6r)9W@hGJI~5cHzZhPGu=(Rl_q~65k()LG
zk)V=>OB!+Gev1G$Q>N>BsY=<?bo@CWIu1Fzvg+M)K@PEilA&9>7Hby!)I}0c3egCp
zZVG>qaB_hd%WRCOLQiPY;1emws`L5xAuQFQxL$H%FmjN_A-ZSkeXJF{Y30?+h{xEl
zBYcSGMy|sO^k4W^RN2UH>Zy$d4v>R2uc__;bw57HJlHy0q`<pgfeb`i5&z+J%HSFZ
zYiV>chc}Fo9)fxVpt*uN3m{CRlqCUagY%KDuM=YR!@jGT3-Qx>AC_y4i^4)lYsu>=
z2_6FvD8_<;4Pk>fF(tdpV*=elH|9Fq26+1q+Rg$h?gAoxgvWo=VQGEJbqlGeKmxum
z%s!+-{W&4&HL}QJ(@G$bM`ckvvyyT#h9Za?lbwpG#-S^UEUb=yWSOn3vaiwAzme$H
z0-mix5IH;w$+&T(y42>!co4=(g1O}$KIYc_|A8utWMFx8&;KPiS`**i6(*CuDGREs
z9DI!nG<M8B&GS4bVVM=VBq}u)vQHl!nRwp(2smcpw(A@O#bvK<x=|yK=j>(b^^yt_
zSEu;&DXx6P3Eb`<)St?{-g(XtLHdDL>lA5={U6hiimv57+*^RId;%jK;0#R3mZ79W
z6`}4V@(NzB#M&OEiW!1dk#+IkEVmU{1aEwlDJDsdPe+Qn#}EjWWnTj+<k>%|Y5hDr
z<rog?M)%8~k>FWF9O_VS=vg%(6n0p-lCQ4ud^z*=VLicVr&)ovk&cClpIV+Q_*#pI
zR6=J!NEPIQj($4MGq3lFAKanRKXvE2<LOwOSV$<)j}_5YxJQI!xegn^fieEK`p2vf
zc05BXNUdRrPcK45ByF)2%B4Z|Ah80m9x^xf8fYaGx9N@^KG-83Gou^#iXkWjoCWep
z%s+Lcd?F$$Lr;TaPuE_pjcJ#ctSwl~=oi3uu^PKZidiB5t%j3tfK+dKs$`o(9&5rK
zOueY1a&T0KxUM%R8Szitu7EsSrV!mfgs^LSgzRhoyu~Mbi1R%AncUcuI6QE7S^pca
z9~NPwt3u>fYHq5yGI<S^oE-5rG#D*!Xo9Mn@oz-vR+Gh`#Ygx=#l`9y`fgEu_OPE7
zuf#e4^T+NHQbi$FWB=Pp?6vK!gbFd^qkAAPifZ%h9;H+_rvL(ZY57kep@8DT*Q2NP
z#0hDL?F(vt+YPu!;g^WoA+CLhyXrqzqJ{_PQD{Z5g{VB9{cR@l=4<O-yGDtKoL)13
ze^xY*NmmxamLYBL58BOxgs`TjJe>-a(m<^~{kI^?$_oEqdT4A+uuYzhES*^*=Ie`)
z3f!T^Z0Hw!=_kJH9s@d@*PhVh-?V~x1X}6z`2|r?QTV}SSdv4Bh2+F>i2oh?!GFi@
zDKKxsTR7`^6g|uyiOVGG-zS#&hwfe)KIt$R84*aCe;7YOA8)_()))r>^kK6HUi<g1
z4}OU7zrPOtUz<~)Y50_PdDmXt<V7MTYVg`LURqoa#q~wtb;$}8tJ+R&Sj3m5AI`#1
z{Yvb?&bOTF)A`?$9=^`MbY#hYN6KbOBCn#qp|<1LwDE%)D?WHu$VxMyS}+*&YvTVR
zPQv5R8c3+S!~S{LaL{5<x==vzuTT8~t43DKU&O*YI?AD@;M2+fJ&g>Nw_uVVGSa12
z_`@|o%HkQbF=N78a;@n9ohw)T=D~w+Sn-NW-FK>ZX2&X;pG$wdbo`^f^E?m~NQ2OI
zs7pXby4;md3H87-OL6D)ZViKljX{;Jr^zz<r<OlBtmyOOIw~N+;`A)U-KQ{RD{k*$
z3pd&?AoAe<PbjIe9Nz5fDeKgks!JA_lT|($N4u2>V_pN@|I224k_VMt{hu58VbX)6
z69u<|320Yb2(}@nO`^PYfW$<qlkv#i^kpcQ2^i~U4C73|m+b$0>7(t<gd>yx^#a(x
z6y+y4-i-W~Fn~(34!RK2B@_V748Re94ZQwu`Jd~gVe)i9<T1niJn)(YIS8cxBQ3xm
zBiFthL0;GU8*;$nvRZ|ygGd2~P>Ss|6}Od%iTW1-frt6PRMn>XnCek_6#&ZV!hT5y
zsdi3*Nb0jYvj}<)H&b>uNXha0Yv9&+5AzqmxWeck2m^MA4B5DRK&1h<4Kftzj;CLo
za~6ff`5FbPnES3&<6)T@g@}3JfL_-qmK&ri+*=@pyq8~=kn%6lC!M(bRS4o-1af(~
zPYQ75Dm~}zZV)_|radBkK0V<aNGEjQq22R^Gtioiz^L{_LPpi=!|P!0CDKj>{N;qK
zX0q1$4MVQHCVEAHPe9PW4d?ju6VQaNwd>V2l!6H^O1Mj*rM|xAZeRv+Y)b&Qw<4Y)
z{+!@zkR~(j2jX;=+6x%d=88x*Wd-vu3}E-di1yP{g$F-?P+VE)yJ5&oUuAuiF$LM|
z4xPVR4qDKACH4!*a{>8MfC$KS3O`L%``f|;G{I@ccZaWa^{wxR!a0#4=5}XoWd!&X
zL7T(cMSkU$&A)W+;gN0S)m)x7oW(q}WBo7I%7W|6N&5yHU*7zRHarnPN}6%JZn^wT
zYnGgTG|nt7+1uNpbnSHiHzSM(-jBlsHzKgdxg-kIVq3*a$m;ETE--CE4EQIS!v{N}
z#sMcZAK`x{v_yRDe7*okcE}lYiO=wx*dCajYt3B|V!SNyjggY2p#X$Nm^uU?9_&yJ
z5x2Jv87>Y$pv4~APtEQ0%)vK{uiw1mfX)QKBCiGhyl+qu<O?@V5+b2D(aXrg9nlY+
z`c-X6e+>dlj~XT_owjG&%@unAogJG8gU>vuu3A(6Xg&0;{Yz#TFPfX1G8U1bcCh75
zGMPJ5XIt15;B@eKm8X=LJx~X9mD_TX1vq$deZQlh0>W-h0#sn=(NC;%kx8z(x*&?+
zOxQfULyP||k}g@H7qE*lXckgCBe*LJ79K`pyZ;T;In;<X=xG&^ggXQ#WU&B;6$5c<
z8{k2<K8oz^(Jz|t91PcFAuhu*Gr4H~(%QRm2S{0f<z}8(>Y;>3ve5I;Y^WS88Xkas
zlZzI}&UAX!gnDrz1nS?e9bQo@RKBWmmVYHiPyhb}|Nmwj{Q?kEUMPnyPGswke~5uK
z%o;)v=cVW;Ay2Nnsq=Z^@<b<HK^tY&nPZo@&Eu61Y?H1rmy0n7a9|PWqabGJik3JP
zaxE$O+dfMy=Q)qkx39r^Cpnu>Qwn`@z3s`n*0&FhGECQBg~_S0Z96fJ9$tPBEAVrD
z1Wf{u4M^5e!VJ>)6PFUQ7A)>UYzzp`af9t3;z}2@@+!R83L7=jtz)$uD+qx(qDZD$
zql<AcXGS6PKHme^!e9!d?A=pigAVhrW1($b7vVJ1>jZNS)c(hzP#0o;I$enZn-f0x
zEi2$1VzGZQjeOd*S?f#iq&#BM%i8E6YhFQWM?48bCaJYmK?p^C)AQ<L$!Ap}?e_cK
znN`~lWrZU?Jpi5mKXjF#J38^#-sI-aG_3}ACKwk5qG5PQaXC>@rk(8_dmJZ}HsgDY
zjHC5|2&vHnOdRPnRhrA$kblS(0ch+7x*@=x4Gdv7-<}q}h!+kG^_i57%g6EFDNGl+
zNkjjUy~SpFJ7CWP9f)-eR!-Jtu9=>j14Dv=-DhkiST8sP1E<y!ViFH50VikE1%?v3
zLb{-}&y9d^6jdVk@gSy*^1fPW6l_^-%kttfoV)%@_;den?ng5FMUIoVrTQWPL_znN
z+kUBsWdJ28Qusgod+>PwRhU=#2=C<+fW7!D$<I&CGE^eE-Z2TmKaaJyahg5sDfA<g
zkJR%C!!!I%%T)cMyIX)bFX%CAaryGH<vdg5I6L6M76w2Mwy^f)I9v_+J2C9Ozz#0&
zX8dJ5kDhPr8Q@20zhilhA~YSbSp;!|&@sUulrA-Ak__NHw=}HC*#PX}P=m=GWE^#&
zY>SUrXv$2RI2~*bGzFJhcy7i6GHg&|zL%;)m<QD`7DV?sQ~1Ax=Y{QB1nEbi=2UwY
z;=miEZ?=1)+o#TdXpkwG+IPA}><8ga5q`Q%OW>Y{ue5`pP4ypCS^GjGr43X1)h?50
z6JcsJhG&PxlxyrR$dB)BWjkD&cqp?#g}H-QroSxK`{t+C=TBb?O&_z=-<Y6hOG+Co
zcklez1n^`CVmmOG%n3AtrafL|L1-!W<=SmK<k(FR^uE|iKDWi(!i~nq-;a=wu)~@f
zvUpfIPqz+Jax|_jvTR1tn@8$=6$lUrb>@^;A6`@>ZzKyQ{dJaI@VunauLvZiTd$Gd
z>6R|$?#H9Pgj2rv-m=ILguH$5D48siLfQZp{v5z*y+BHc(KC!&YWA|qhY~}`S`KMq
zaPW}cu-LY)#n%YGTMAl4eqWcDDa8`^J%Cl)9AC4RYEXVS&4WaxO^7GVx7#zlsN6cZ
z39FxL(2sg$Kyjf0h}<;8qoGTSq{}MRk~c5J>OoxjIusv$nDUJ>1`Eh-f)K>(SkI}1
z&*j***~sw?Ifgr+6wqC{=NW0|-FuB}$lUKP_cskezA8)r3{z?ZXbCiqJmXHOQO6u%
zKHL#^3w!8Z%$5n+@v}E8@xs08zLWS(_9uPODiP|Fp50nW#a63p{cgxlu?f~J+yk+x
zFjClhDm9M}pTH$0sd>wMc-I-0f(i7eK|+{U{bh8=p<p8ek}jewC<cofxTAjrna3@}
z$yi-v(1eZpOdE?JhfJO0MUYRv8sJGo&dHB?8h{V10u9y@#Z=ySx<STJgqA!2k<95F
zv2KSR$4oDasc%Xr0dXyL9U^L6yW?#_P@GC?O}<zKVcS&{DEH@)&*&vCi2M8NI+f~3
zVnf1quggfKOLr}<GR~ko*gMe#?How<Xb?Ws;9#cF1?U`^NS}<2cg_1UX>#~4*z{R{
zS%1hX<wm%O$P<-tA?_n1Ntdxg5&1aZ=k#Ty<Vq5{j)E2N{2WhnDSNDh3;YuE3&jL>
zR#)>18?y8H6i_7dUo9;2UOpk7!8QoL(vHu%w?bb4l*1Y!21X-+M8~&x$W5dtt%nEE
z_$O{C;G=_n*xu!TrmC=vnf^v_tU{!s?aq*hOQs-UU(M;g{=DeuHa&TLhAKOl{B4Wh
zw9s936Ll6pyS2U^xnYTck#u_F50OkF=BIr<ethx529fYat&u<)ZweqPJ`M7Mr8g;i
z^IhIELc!CWN&$2tiF12S`g@!`<+e_6lm)#VgKm=Oa_2UzF(ZbrFvM4cpAyOS#Z9}=
zKBO2PB=6uhi<(-S-DM~>zB8lcc5&c~rLZIdAyZbY|LU`{`|h2XC85{MV8GN-q0O9V
zV7JyZ6;FT{j?r7h!8rZu9L*+vsbu|?a^i?Tc6D&Ra9`7s`C7O3eoA0$*1cc!`5>{W
zGt!utf9R+px1t)%2OYo3c!q`md{rxHYHjN3^qn>!%`@S(IPfx0#KY1Z2%Sx0vV~P_
zdOVP&R5(|TSSb4)@f-zz5%AcTEc|XxMYw&_>!Rh0syL2-zI&=eEIWN#08{96*EY~G
z$j!eb+=nBFrzLduip0ff41fD=oDU?+bhG2MeNm-C`+}4PN5C^n#qeiMZk2A&tM={4
zwgD^wrOWEH-3LRal2zX?j2j}~Sy)#8SB?|wPRK%m;eabU>1G8pJqGw*c(M-a$LHnK
z^&>cHdT%R|v?UK~NMT{zeArniRL3H_r6IfMWRC*ZXx<?3H**_JA&h0Ob6A_t_-RHL
zhmE}L+o^#A)AL(FmOf_<Xae;;wI@grDJ49$dtAqlu6ZlhO7fiY7V<YKdtUAIZZ)Y7
zD*8|kHg^-R4x+G>gljZzP?eP^tOtvPHa;$Uc{2WksvJSA9@t}dAERi&LC3<qzM}<>
z+6|@{3B#Iir^?{s<9hcuGfAB9A|-h?RbEfymwPbcNmE0&u|3IZU@Y)4YU8ra&o?q5
zyPlZ)=o{ZSG<8$%4LLtK=gwb~HKGXa3D)1gR0-mH&(DdZ8w69|AFE@Z4?Qfn$4OK?
z0xmuQ*t}F?vE%Ci+3`_-K<KKxzIsh4dgR<$=haahA$2sd)@BuSI7ljn&UXaF{((BJ
z$R`}LIwP{*n8&}$Gg<_mLuK*LC6+l5HfTR~aN$RP?q>7T>*9_ax<v~C&~N4Ug=lTy
z-Yujh_0X0e@g&xqp`plHAlohv3*+pRC!ahJRyXLiJlKQxgAymSJr>@G`T6MJC?sYD
zAA3CZRg)`nz`Z1$h&`gG^_~PE<nA@>vQe5OG=Q9oZ)XypQ@wyYVh11(%bKja$g8w~
z%Gw(X{MiS=!#9%m6-<sya05bpZtN5UL|)PEoZfqTpYHH5%C@eewxYHyd1-&Rg+ik*
z?f7jh2d`*`-}H}J2=8iEk$g3cH)qyvpGZ}}#qN*$yg5%gv~*&yXpBX2e;SNG`b>FV
zl4CXc*6Y1hA+@{p<1_n-CL#^y4Vck`#3h+8&+Y;BLXhZr=I8}+V&%^JS!4F)|3exp
zM??LKKB&lbs<HR?rfSR9G!!lrJw0Y|-Z+d#u7s0XLqnx^2Mwy0T1n-I%E?+dhR1lW
z95~DqpGou$Z2Cd}%$Vg1H{}v9IQJMaM%TTYax%Lr)$^|)6sHD0Tw#0X70@LBauPY@
zmz2ra2E=}^E=PYkz#36<89e?kP$Pj)b$G9qDr?&}gLhVGTBM+%cuK#*fNF;mM~5AR
zZQ<>z7+>9&(m}P{tOHG%5*TJ&Q}%SGeCf@int=5OJ0Cf?L1L9YF8@H81xKB%C?*0Z
zLWA~}`#w8(01}AQ);SVE^O(T(WU2%#I2f7Wm5|gRfUm~gvs5@sRrF$%M#5shtsW5~
z7lzSLg(-EStk>1IR`JBJSd}mBPuDEx3*6ICVPUG16lGt@gHzRn$Kx$h3y>%{8r;>;
zR8Z83;%_mACS5hfp;f!alhozfuqZUokh3rrD!Rp3UYek~(CT1sKu1y;2<MDGYEQRS
z0JuON>`Wm~^z6PFeH$|Pm|5ypB`?8bt{Cu0PS!tah+`-t>uO?>B-9o&7oFwbEWxc)
zsm0F&4su=BLm)X^Uk<-Ldm~Lkx^NPGc$^60-vW07fU?wtH4QMMvdFK2=-Rmge>D}B
z9Lw~Q1+^aUk`pWtn?b9&I?I$B;Ro~PM7*v_zYL+gp)JXTq=R-)$^fVs5yf9%;lUl#
zHkFWGWT*CF+xPxpgRk!f^pcPC2Lo`CL8TO4IxrbmUVEi_d6b6GN&|DJC;z9t@BV7C
zY5EUfK@qTnRM7x8f*=B-v>+%DdKKv?DAIc`2_o1idIf`0RXPYrfFLb!E5!&1Qlt}*
z-a82``EKwz=lT8v?=SCpa}FUV*JgKic4l_wGjm<5*T^UfBjxy<2Q!2+RO!Qad|y*o
z4zv~bP|(-ebbstL0>_zD#hr<<VYD=!<OJ~+eKcN%*zvS=le}B1Hqnf3+47C*E9~Du
z$;Li7DmcLbAZVX|3Y4v=$2=~0s7-u*z5k;Z^vI(NGgRmQVq2on_&<Z@=lQ^Z-=r~M
z*`-u?-#`O6yYnjNjpdk;a)xw6$?6*>kn`ye?%2iLJMTf#K84?eURVR%*JG-I7#Xx=
z9be^GDIEx4l07MFhJmwQa0Uh|Lp7I?ppG2}Wo~=TGIT5hq-g1&hBU7FOn~6B>PUH=
zl(J}_=Enn|G?$-pN#DrFimBb;x5j_w=*XOZ>v@#_nW1vZuV3F*m@Q2kDR87*2R(8!
zHr&s1cub>C%`=K09yT4;r_T@>`hcG6SHp6Lm(@9=dl)5{9>UZyt~vM<6q(P5C`UdQ
zU8Un-^rju{cb?NB$XpyfUbrOk7jL0oxbhd+q&JHa*#`yaAEmV`h;*Ptt+Zf+B~HXA
zI!Nni5t{(v=v%gEMm}K=|7W8Kypnt6Gm*S=bg;!{DrRFN66>>ysr&NNqWhD1*d3d~
zp^%xc^nDT0vBcrcY(mVj%aXP#$v*83C~}<MkIynr%zV(|62fy(9%`E%SB3K^*k5{`
z`#Qkj<ku<l4x+rpSutu$;gzkWhXCs)wC`SCdD5ezfS=Z1z;BB>=(<<>dGo7&S{%C$
zx{R^iXH&<s&a1Vf5dKM%o&8OOcoL`G-7w>jRn<@~-Z5czh12(OIs9bNNS*ATau03Z
zErDm!W?Yr4S2+m4d?87c5^KO`C|u(r(tGHSmO#i7`diP5PIr?tjk}A+d_mZ(to7I)
znX|fS>+`=B=H)MEjnWQ$?LMyeLLejrcu<7F0Y$#bjC=PjzGAGrzlqt3x8vpCNfRVQ
z(d<pXx7pLM84DKQHMJE?Q?BlH$u#@3HP*m+@rP{BE%SJ2N7}sxvc4bCWt<qJmW!u)
zDSMGqf%2+n(`+05McG%R7xM;OLJgkb=C18nO%iTnuRmootyCajd3LpS^j1ev)2n3c
zEjOmTrg~oY1JsJsMcKV}OWVC)6syR)@nRKP>isLTi83VV3Xr1k**Art#4KI^48f*r
zsO5>3w_Ys(lR_)5NngvV<CTyWS9x?~#VC+GnrPB99BdOhmR0Pj&aI!45%S`saDZKC
z=!Xa7RFvS(ZJ5AS+PVyBS4U(?05J3e5u~(%&YZyi4xK(WVv@24aJim!$qH~=Jh;pJ
z(5eYx)SKb{9Y{c|nQi6A;W>^J!ym!;3`_#!6w?z<s#pK)gtO+2TDnk*?+Yc@iK8FJ
zhHek>>$#c-k!%NrPbv*|&*aRSOD1QnBw0PR8&%A#B!QiRA6D2>g?L*T)R&gv<Oalo
zHFO_GkiJm=UC?Ubcp-0eu)=0xT+GFKvDZ9b$|kWzik*ROjfoSrOxLE0LoWR8;W!jj
zi#_<#<_xpw+G1!G2I<Z+#C@HPC?EI>^<K1ganVMbSshksQjG9Ss|ohA8T8eIB=`fA
zo=_43*QQ;ygC>+0%N|fovKu+WlKs>2b#EX<57Jrlx*qHdNGLX7;F{9a4`2BE)euUY
z<mZyRX2T(cLJFH}Ol@&DoaQg5EWla$<p+26Y0YPwkw6;&J5;?&mm0ps5IT1W`&+@x
zGug_TN~hYerbVd8r&ZQ7>Bw<L6fY<kVdL@s!)h~p`xuE><?c$LTx{ATD-{z6pB>1H
z0~eEzDv$j6H%}Ps85tki{zKGGUVlG%j-xU5(uShSG{x4T>bM;BLz8EHk-zWJ1^2n7
zQ1cFC^ZDwtXijctH*0DH^(TE&7uCC2*y(0BDmG^0WmB9EM)uYp=kN*!>toSOsd1l0
z>KZjDB9c^}?b(R|hO9QZtu1V@zfbGyC_J%F3fAh&ieUPw7_A>>QR1}KT=JGnJ<_M?
zDeQs*DfMh((i|7gKr)Q*aN|XrpS85_#wzP&U)DGV;X{AYZd2}{zm!qGWeYm)?7@J<
zPfkv(u~*+)d)&YekGgFp@hKG_v}MDiHV7Cd_jn%{@A%vvvZ5Z#8i{wWkN3Yxw>kIG
zrc6a_^^pf26*~9c8Y%G~{I|7J$cx|X>RXkQAf#kNYn%z6{l=U-N9q{s;B|jy?|q=R
zXjno(8s8-oA~!jNozIo4lF4?<w^==zh#lgV>sK}9Ss6iPyBFB(a&;`XR)Z65#wl7%
z^-N84>t|oQk0nP{yRIcz-ukfcoOx+>DzogCTjI49qUil`?BchXkA{sLqn#2Sgv335
zD@a;A@Wa*;YVMB+l8Y*}q-69aI%w!qRwLAN0t?Le^4L*2(8lTr3Ue&as#X_M?xMNx
zGxzxVl#<9T8S68qpDg=y?d$^9d*Y(|QjB%9A^jxy=tm7pX8R34mKlEyj2^?SuiSX+
z4v)!bnP!x!g1dG{|BOzL+oDYfi{6XnJcjCeGU6_3L%m;)Ev0DaZf!t_0Bh}e6t6%`
zQ6g?OG5e4Q0+7Iab6+eSzxSKdMmz8KTgMN^aCc;E|2d~)gBp4NZ%oXI-V_Ai0cxmS
z=$Lv_mLB0oJ!h7T)lL<5i?tRGs(PT$LEsXPT&43`W2xMNd$go+O?DM8=~PF1dmuYw
z8hq7sYi7Xd&gI%1Zx?`j>5Wf8_}EbQaF3~*-aS1WiJf4-J&o3=&Ux7Sg0v~S?^;#-
zwW|UmDjIVANiW!js^s4(EWIKQ@wGTPxfGa{&0`(&6N-);N6HUdhXh$xjyVX_D|M4%
zjwepp+;AV*ZD6U4mANK#T<KRI`$D?g&{E>>yt#1SK=M~tUsJ-THA{7iUF#lS0Ulia
zx6Sn@&TExl>yIO(Lc3oKY@f`h@1<;iEg6Kj>hMtO(Y$*;Q(v~dvP7mlq$Kiq;q<)v
zb>Wi_{Ye*N<Lr0JZ!=pA2X_A&m@5ie0cK6he3lD;60&&(@04poc(h@P4#Xa0uBYYD
zGmxiAMXrOXvC>EQr{|x(4aqMF-Dba|!0hs)%0U>ZkV)wW){H~_&taI#$Yf%YX^7kT
zA}gQ|>O%W&fTPCIaPnzil(b#9EI$7JaAHzIXjO&ViZwH70)3F(BxBBEmg~_Wb97#f
zh{$nV^3u%?cv$>f|NFcB9~xU8nftkeHL!SYd26J4a$A)4K5M3*c8Ga7lNps3b8Kmv
zaEXWeVzYd(<keaLz1ggdR*xu$wzf8-Jgz6uZR)i5eoiMU<9L9xsr+hrW^xq>S(4;B
zVlnrbX&rIRsS%W>d%H^s3@!yW0moiz$>}wwlXo5TIQ&W*1g%n}E5t<?V3GD+m#uo#
zhe@Hg6(-RlC*N;>=9A=+lfO*2PLKDYd+G7|#>R|^VcrtCor2;ZBX6s3=pRz2S)R1%
zT9nPN)$z-;xl?4qZ@^Ae{+^A}&=&B?QoqQ<d!M2i5H^@#J}L2BGRtNmRU*v4f1_t<
zVJ0jxZ+Q>q*mAP0(_(SxSHES?D|~jr@#kA7N7E}OSw389?CtacY&PWhyY60i*AROZ
z74on{an0ul1J}_0V+9fyiuJo(mt0Ou_{N0qVF^+5D3vFS0xHLrVgzoWwp+DO{ZF~?
zG<+r%O&#5eP&Gk4lO$Yk{Ct1Ms0l^c@R!E(E2w}We%##$*j0Z{Z_e(Wy#QY*5VWYV
zP{F8ZqdE-B?HwJ6k%mVF#8ZKBS&9#$8wy@CdSM0^TP%a_d5ft{&SjSe-(E}iZkm*p
z2|JP>583Y$^gBy&P3AZY@h?t3-MytvCy&4!JN)KB{xCF@_UNDz>2>{51BruAVQ(|D
zz`we%*ke1RNq2fWXZsuHpDFYyh6|p^W<~i%2Ge!V#n8G(woB8$@y~@xcrX7a9;m&;
zZF!pc*A@}d)|DWtTmz9FDIn)L(3AawqNqGr7lTE(1G=>?tGeb$fcJz7M!Gj^ZGDL>
z|0?#~-~dGmfUoQn0|&${Yl9M}!1KXv(<a}cf(CGsMY?XDS=p|HuDiJ>?OeIU5XX4}
z9ZwX|A%z6=&ptqr2=edFjzoP#4p;f!{KmgAn#n-qSZ#b8nx2QiHXUc-HL0r1Vo@0C
zi<P9_BTa$?4ydc8$H}_s;rx?vnKjX(FlTg9_{`Jmh*K1f5&q>8ZMh4PSy^m2#3bz1
zlUNS^N#mMD<Ff+wbu+i0;umy<QV^LliP=F_i_rrKi%FGETfvOdz73oeAGTJTo2vDd
zT}>i|Y#oO8<|8&t`Tad?KU9>wgLq~`^=IQ?)ki7ZwoJ>xBaXIKVe=b2yHDBZ9y%rS
zE}*FBz;HYwth4!x1f#p+NN;FeIKm)IcKJDUTi7vY>!!oSlS)@OWgivRu4>y_Iw0yy
zKvD6I@sg~v3pb{k|4}nLFLx?G4a-qk*q(|%{PnQ>&Vu9I6dTW}m#ZD&>(2@G7dLFr
zwjbL)M!D{Bt&cVpckpL(+#ZKVa3&*2<uQR$LO?{rgEQ2sr;^#PLi^@RAJ4y>78?<)
zyF221d#V<uEp{&&ihA~{5jE}9M8RUW1!V+lkzB(jgA4CJXCe~PJjXhwRF0v#Wq4O+
z36`=OnN39u_=zFW{mt(1v3I}wo;~3w3k&6be_)T&PcffS2J10G4<9aNBmQwhw10c+
zf4a<_i3>e+yJ-_<YP4SR$o3}kBStzy+p6ULDGyTzMAl3mJ-I&AEVy@;nS(tbR)rEq
z4yl%V2+r8rOKfb6hcEQU7wDhCHqP#aT_Bm^M^h6MbhgvN8*@&~gp4$Pr0U{q2--rT
zk@2tg7|PC4&YKm0=U+=7+XvS=-`!qNRE!oG)}Gc2dN<d3dx1gt5u8<#;l7HwsgM0;
zy>LElC;TNgc`(lLsA9@9kcH|iVmbu>kXP}AU**$mXh>5Q00!=KjFVnENmk1^BL4Yz
zQ%^lcan|HRu_W)KXf97R1LHpjC^Gu0c*zmA^Md($HA!N{RVTmTS|maAdGaqe{=D&5
zEbvIO>RMdL?ihH{KgHvB3yLbu%`Y4}`<&&tTAV%%c5V)N>!xuP+X3r7173c&LTAbV
zc00;c32f}1fgk-4yx~2r`OXynk?GXQVf@PLBbm=U>6IJk!pfR^G;*aX@_VE4sh|Lf
zXqWyJ?Vz5098BbX*R!>oIIb#Ka5#-s!KT6kERpT3uWvZOA@FAc%!X4z!R)khgM52A
z@1KzD*pHhp4{;`B2)F<goa9t!u^Y@x$_x(w`t>dDbIKj_#i5(PI*0YZm*0F`bYoru
ziJH~EKa%MK`T6~98mv?K&hpdg(vC^-Z958qipv_DlnXDE7kYh~V!;k1k>^;6&rY1^
z_;6rE>h>PuVCurXPr&<Q{IV~rH0!P~BX+wmgD$@AX3GZAaX!WQXK+>)nfyD0#wk~C
z%-f)LA~Rl7wtf}3Vt|uTHBpD5yT$CDI^@}Yf})&n!6CMKYpqN5@B-jADEKIKWaMSD
zevTE=S$y=ama<XPD$Hxk<q={)+y3zcc*j2)=vYwl@6%;P42|Fp4#erQ;QW{yB{_TU
zOh+_3mOW+@C*(n{h>G8oBubtb=3~?f_pKAhC4RKZryAV_VcA$#k@-qC-ExvYOeQJK
zjYGTkd;f0d$K9tPG&VNpnC_d`*f0jDb@uR|&kr}BpRyWLy=yhwI^lCGIM84x4A<HX
z*5d@d#1PcV-dKitaP`f8q#YQpqxv$?PEam*TrxXJ@og_VVvr3BsmLLvoe71aDx};j
zw|SQJw$io0Vz3iYy!y{RCHVmiKR8Jk1c<<EPePlcncdR}PFsi#zt#_>mN<$Sv}jn_
zDleQy-j?TLFO&PCE|ZT%z53+lL{{)+<wlo;+X*Yl%y!rD?#1X_>;TB|!0MFKh-+O{
zxGAQ4VhFa&{N+f%mt+PY)*W8JHONiA;Bn7@rhr>L%AXZ1_4XQ02OMJZQ&?*xS>LA>
zKB88srJ(Qx?C`t<{?la~o7eL=B#&$i@rL~(jl1c64SV4FXV9=E_r$#*gB@A>v?MYU
z>EJMP^u>IRy+b2f_G#%h4GrLd>#P>^Fmb|<z3=Ep-7$0#13<|RQlrEIcW&V9ml(kx
zA1>`4g26J;W<U*pGPfrv0ia9ZnH`;dY|FJtbJ(uUscm}j!<4o--&EJ5$!VQ%yo7Zy
zLy6O0dB+WB^K*UDY2+-<<~zWg?(N@1a?%Y(1<!h6XmSpZ!*q{YHBz}bV;CCGZtyc&
ztK3<=39&Uh>S&=@2D?MyR3n?YAvNYP!@|re>f%~AF=rsCDhqL8g>`6QL~pv=bmv9C
z4TCOY*r8;tO|wK;I&pT8qsSJ;q8|q$ML)Vrerckq&VD3rhIHu4!1p^FzhSl9PriU#
ze*~I4t<8O=Gf(;7*_-;k9oe+*H&k?1{L`>?`MCSVQQFzo%|#KNo_UemmKJjywTHgW
z7cv#wS&2+`KU=<QP?hKs(YY3G^I8yfvHj@aVapbp`_j({m)u!-G-|2(-~qEP6-(ti
zW+6^pUJaR+8iS8>o@rWsRErUOAu0aA@?^BoNomf5nTA~X$1>HPWIu{FFmk#bb5l(A
z@yCB&s@0(%vpil}8E)kdP3x3uNvT*{ObM=ZM=6<Dd2j!$m`dK6lTz$-&`r}FHfu&X
zwfs4V{$2d@BusGcT6aVjRe&gv%O~Vx52<1XotF3V4OwTcq1o^&2#F3u+lRb9i|06O
zw&N43^LmzQ%Yrh=?G+2$VO}$y!UV~^<j{sT@)q$T!DF>`52Ke_H9yz0AXV-;_iM{+
zDL!m_r~Ad$NcdE$=P-08ItR78GFRB^mo$)FKKg{ZSzWeSkk4K{MX+g|^wi8&6}Kuy
z-N)Men3h56a%He<;7p;pp7&O;IxfjN7UfgxMvAb>!<pQSKArzgC9mL{V}n=l8UFnv
znM1+E+?k0kCU<`warwo1%dk<I8CQ+%y~tBM!F$zYbnxO@c8zx@e`aBYOBDq-raOqA
zp72d@ZyPl97M_CAgN4&v3Ov<(k(X;^x)GWQ-gbEpG#6!hYmJUAGb-ob{m1}=K|DT-
zRixpxfv{T;i+V_NcTE`W^<lTL9+o>dVDbsGzqhvWU8ISGpMw5~kwJf}(igbVBvFTo
z$k)^x3@~ZTIdCHJ6^~{0pS#vjFm;5&!CzTOk{2f$)GXY{BQ?8X248_An!=W}25@_)
z4!ehudx9{$oI4L78nTF%>9T}cuWNNkMU1Y_M9pDBB#5KA)WFZ~P?|Uf)dMFNF4$D~
z=`g`y=)Mkqmz@MRW|-7OZwoE<hI}*P`a+lauojlsG@ktS(s1oRL&w1Z?TvP54s_XP
zCE~<8n&Mg?oU9>}E{pt~8T5YUsZ-!KGWE(rlwUl9HB9KoNmf{C_kfYr`$dnA&(W}U
zNm=1QV`vH9_jY_5PO=_V<kwzZk#XYyz3%?RiY5DYsXbg~{EXdf`}(f>8@{K3=}R{8
z7`-R(1}Iz~gCEXL{5LoRYJykT<sB}zdNp1RpMqE5jhPtGE9XWIzAvyoQ4#~Q6&%2X
zJp9Z6lll&mfVuhx%^U(_C_6q>0t*6;ucwm-UT7@t785MmO`Ny`@t9Q#fUjP0jvRb%
z7KHTE!C64QNW9>d4wM9~v*4YdDnbe}!~!A9MeLD;!=N|ybxm0qT6a#c!X0W7x*<+f
zOdtl|gIbYFZ^j=R>m8IBWka&P)i<LlQu_7Iyc9Zi-~V-QLdlrB!HR?`Ndi2oD?ed2
z?fbydZbX6;u3G{#Z<50bYdOwT4U6~EhWv&5+=YjOO&|=EoaAT2Lwe<ezY1$t<Y>a_
z!L-p}23Z9OPP_wCVwfpYq?>lx>92gv<MQ&vBO<a%{+7W)fdSB(VQAE;m-wtCJ}?q1
zEp_(#6{{r;oFp+#aLaWR@6&qG@bZndNI1XvK)kM;V0TMvt%g@9{Xzt!AWxivlJ9)x
zwK(khrNR~*fCTgVVPV)>IaF-*X1opKqKON3+iGhX9@(f83^ap8IcjRh8~Wg%v^H*N
z4hi-97U`X#$tJjIs1LomM6CiJ4%bMV%<D-Ey^8H$shZc#<nFkMO1`wYBmv~=ZG1%s
zE9|||V)D35*&fE|@-Gi_=;c*JuTc+wH8sV!WDitG1N6)$m00kc1<+D(ABdsjHU=D>
z19xu$C)>H{$*@r9hu>a#SOu=Xe*;wTicVa9W>bwI^|I=ZgJ8XXUa4cLlOC$U5`tQA
zh35>#K|`M?Ix8KuF4wrV;AU&Txp9?<fv+D4f_2dDME&kaY80FMZod7}4xD5S#<kxc
zH{kLf0nY7@OJ<EAOPKt(pP7hvHoBw3$e(&%^_QBjixE+R6*OCvGgKnfAxH1_-9{!i
zOgVcne!Li|gy^j`g_eXW#E6HX5Si|8J%xHQ9#u-jVdUZ~CuQ;z_*3yqYj5GTW^++M
zMU_th3AgPhyc%E0#hUc4yf2G@s>9w)xah5x!qZakHiQ1(KM?x`Q$9k&+NZ(YHE|E#
zEDa@&$HRAoZa92hU<53<BN@SgHZ0UyO~^eI$gZ{e3Z4Y<K=w3vRhD_js4!9->E#JY
zuo4RW^f^I)4<W!E&4I-6kN?tD=o82afqyWV`46C2;H9huXrh03B;vfx*zVIK*mp&P
zRB5mJTLVFCGb*^<vTju}E!yd;0}a$ioYHD1H&+S~T`{|PKB{sWB%nucahG!s-Q3CK
z#zn<yc-@^*^XY1Y$7$oVW}<w$1d!L>xZP4O&|7^5uX;n5B|&11rtHV`Nk~DVWJ}Ku
z%t&qa>pm^>rvU|YQvR#nSL^7a0&6!s6tJ)O|E0P>Vh9Gi`>!N2D3g2t620C3?5mxv
zN+{3`iW983Ml8Z4r;Qgu^N7gpU}UVOmlNcEY_`^|J<159aDgap^hjMKbFB88II>V1
zmx&+pe6f*mrL~s~4GIv`G1d3<r^uMy3q)3=xaKMquE$yGjE$ck)7jd(<Y+EA?ZwZZ
zh1@H8ITZl7qZ@D+;>N5e^ijpTBX`Vu<HuLe%q|IU4RUqcn9oppYP_FUI&A$x^%o<;
zA}ePHSdpocAA+<*`<jy0*Gzs$+qHKqDQS0Z+w}Zg0sKi>K74NP{_ZDj>V@?<aF@0i
z+cGv5HB{r|>zbSCu<@t%*1V|{rOYmP;lS+WTzh`^jy6+~&e)qAJCrLrb0{nMCLqW@
zUx&>CUXu&pWF$_2Xqoqt&`=VZdi~#RetgcnGe$v_s1yPC;-}>m0C5Q2@P6zodlQiA
zs^Qh}J~lzH0$vijVsmK|7+rbd+M$gFjJ@6D&Q5AXP@%aoIqOK5l?qX5I3umdP_zEM
zb7;uhtc}{jlrgZ(a$~ITYU_6VqKZ6sD$NO^MpntO&USe+e*W=0W$<9__k-6&&e0mE
zLHg9&$lnh(C8$ZKcQOa%)*>YLjGeJ~1LAerJx)DUjNKJcdcO?>=f6z8n-)38C@vf9
zBu=FLURAPX+^8+RGaQ55OjLg7YA8qbecJs)$z{1;%w|_sWV1QYzF>GR>+VuUe6+Vk
z?25UQ>aqUerl*eP^HqMaKqsc7FG`_2{TrCK^ztTXbCPq5f)!bJhD962iefYyYu&7%
zCAJ@m6`R}i{scEg`>O7^qh4(2Y7(!PPjD7xUaNn<0O%8HAp8}Ap8;W$5{tuERj3!8
zwj{Vp79()WAE|zJ*d8^(F&pxW7IqbvoEoKO4w}yMJ<Ub^oMEKMxhXu)SXoyTCpa~U
zy)&cNe}#u#`DIH-|6Q2=*CD5wHTCbb^xI3kQ;wusQ!UzgVq4=s`30JdsHau%z=89j
zE>OX#e@a*rkM9^L;IP!?_}SzP$kVM^(pt;)+06mEJUkCIZCinrJ_9C(vrV9E-Q?nU
zt>-UlL1WGiFu128int+#i^Ocqt{kxpsgyMS2Dzx9W~F0tm5SUb@0z^1y$&bwlvH06
z;oUKqPaNlsSjWR1v_Jerik_Rg28jQ?&e@^@l;KG6(&`O9U>v0g*sTF6cK#JbL{W`H
zn&fPlUP1B{>yJEyPH65zsWE%uyEB4gX)Pp`5S_emY{SE?&7qEB8>9rW$!SB;J7&&8
zRB&u?-A;j3C-&b@>nr!b?8MW?7#^LF3Sh8R*kB<T04!VQvf@wMxy6?qBu!t@887Qp
zCuQ5SZYjDy8c`%T?Yaiy22sZ@zFSSu4)Masa7Z@=?jX2T$JJAQN3*eFrYV3cktf1z
zX6##hY-rDa`GYkN`qpmA(k)@`&X>MO`rUy_bJ}cAzzn+UH(5efkc+05_2s283=cxB
zM#u0HwFXXuE;WLl|L9^n9}4bJHFc4zvp2WXk*P^eQC8e<qP;P3E2Yvhhf2Ddo{F3c
z-k0RF!Nz$nf7}~jeYuKKSSxoJMm<>#F5BG`OOC8EcQ-TsJt;<O8}RR1wN9OE{bS`i
zkMUYT&5rEVYJ1H+SS_2`9J;o#H!&L!To4-vH!DB1p=|_oW`$GFqVxWhmp~?=;<N^D
z1(=k}S+^ucG;;RA`a2cmYJ_=E{L88aXUg6~qGfu8&oAn8BwhkT`~MvJrW{nq9qyeB
z?On32Ou8sC6+3&+ujIW>C`!Z|NfjY_AKGycz9G;|(=NRUhFsuGXwTqmaRSS4Jnyi<
z!(Ml+gzoH3Rh6y(BNaXCJRT-7He?t~cilx14|W^HLKrD2jX6~!n)NgS@)}!5+V|BG
zYxaVgrKYl;wAxb}*K~-4+TLyWlzrI9+^3eGb*5mL8P0@`c+M8O$u*w;YhxZ7ofQxM
z3?+1})&{mzk_+FIJ&3H952@Kqt%@;2or-@(`(+luz5LTfVvtywlwnUQ8W1E-IX$Qq
zZnX%r=K%s1Z)a(E>i(5Ez%IjL|9yk-mNl2p4?p&C@!5mbpMn)1vE-a1T`13j>QK|~
zRnBLv(Tj@V+ghS0P#m;39ia%i?Yvnq*eMmvWCJ>UVrOYS!|C%Oj@{_e=Dr>0UC(N<
z=?Yc+)*~5ea+#zj^)3^NEqD{?hpk;klwrvbSWF!vrD*(VnH)JuCA9O-)y?3CqloLe
zt@CUlblE`>vNDa2RRY;@45B4%fHj3FI}BbUw!W+VUUi;0Bt^4d3&nYOl%<W&h{kVy
zY$=)`7d}`m(DR*}jrBq#jq|;$WwuUmim7A2oJTuyF${n0t<SD{%-%l__m0eEZc`U<
z9{AxTzwJ|{szfEi*`_b9n)S7Ga}L$os7ucMHN3fP8CH(+vZ8HY<%+SimNTn-P-J;=
zVQHwXN!lk~p>wqE`Y=JOFBFMi<hhdV?c76XZ18cz&;h#*{^Apwn=45Ev1^HbyH&kF
z1-5p41+A_(F|{+6_{^P##rs%8Bt4vOWJtE~4W;gek&N9d-C{$cYTtLZ;cbbwLplam
zsa8EtdW*DVoI~RafbFX|()6XYLvosKbbRI+-mm;laD%~GUePo*MsN;U=8U8Fa`{~R
z3?MzBKzFs^la!wnPbk7jk!O+uk3-5NO>Y~Qm!>9+C&POR4fb^OLI1*=od#Eb#ujtN
z!#DqD{geMKy<d^30igs89Yyhic38Kp5yWmJ;oZ0qQt4W+O+gK$phS$o@VprxfpcSa
zrHSRh^Cmh#A&Nx&gCBiT#Bk)|>v1ZQFLnHTKbc)~6_fIapUxU((Udf&^Zs26rSLg*
zu^m6867B`ANN4qraYXG)Mb9VXCE3}hbRQY^_Fz8m$U=4^u?i9vtOykTu_zokadLw0
zD3AD0f}jxw<C=bE-285#cM_UU9sht7|1=?gjhLPwGW7(Wg!z<Tvq^xnYs%#N@4cUA
zjo1qo4)lfcu_E3Ukc7}yl5s@MQ{leL#B%j*d-`}VsT`#Ua$)nhMVeF0Aa7u;G@L{=
zyPm&k5z(V2nc!qKlpXgLfh5p3DbN}n%jJufMe@Ckj3}SOeqWpDCrjw!=IYHWr9sF8
z;|0$+0j_b)l6XJK`xn&;!(%dl@`93nm)-`R8$BF=y{&fW=}6OCO)+F;fZ5{d6GL~)
zhy0>Sa4aBlu}a=C1B@``r+>dUOBhcn+be?i-5E&J!sX&=3y#u9VQ9B~-#i^a0fbz>
z)J=5%9IEOc65q>BR3$cs5%zvyUv*&8?G0wvMg6U?sXQz1;AxiY{eNnU%e6mS!C;@!
zbZEpw%Nu#E3!h1K3$uajpmmO#u(gkSF{j*lVX$Lw{{{Yk`j#2wo|RY}><00(63O|u
zcgpp=_PFpYFf^MKJwPb;xdkmPj0cwsZ|Oo+teZ=($9FJ~PQzeg59zG<lDS|<pxKqJ
zzibo(t)un{$B^5~)_)<{M7sed@-XQySAbjX<cjiEaAAd^Wo*#^*AOa78+R<*(?JrF
z$73%NY7@r8k*QZl{TN_Z>_B`9tLy)wKwNX$A?tWOfc%9j^dLne*71kSzHP?r4?zlq
zUua7cV#@9`rY|$vPae_TG7tt;>3$wO1-azEsYzUTqZQwyg?sS4fJ#V8piotXDDUWP
zVO$Ri4h3MwH<47CboP1b1!6O1zVen?jY+%_iBE2{?Ep-f=@UH&f=#1oTB}cyZb{>B
z;q1Cz#!v(_4~@^lIkLFysXh>kVe8lZ2yegJ|9kt(0j?PugNn~#{fEC!0e>9^L*CZC
KRj6Y7`2PU{v=KJ|

diff --git a/reference/ggplot_pca-2.png b/reference/ggplot_pca-2.png
index fe3104e84115113424ff0babdcc950239efee539..f5d0f6d45bdaa15c3176dd14b839156da84ba1c4 100644
GIT binary patch
literal 90569
zcmd?QbySpH6gN7|NViCL2qGX1EiI^Ys&o$_42_iJD5Z2GDX)Y|cf-&irF1upbmtJ?
zgTC)~V|{DgzwTY@TbBhqYo3|soPBou_HXZV=7WZsJRu$p9tZ>?R8)AX1p;Auf<O>+
z94z3@bYj*XaKSQHmVXLdfuD1^dVk=8>!hIP3IfrG-2P!it?pZbKujRTr%zsbrfto7
zdm6n;zu7;XLbI($Bql1qz{44;2r^gv_RoVz&z4`BRt*Fjp0rezgb$J^@WqzZ4~L%w
z$^Llu`6Ye2rhG@Q=syCH2ee!tKWgdY1sT_vq&V3iWF31Zy|1oCaV1sNQ?ga#GET1E
zW*n}hHID0}>rcI=P%Ck6V_1r@Z2zzSPBq)#nL>z%)I~R{@Z@X`5nXx)bkco?Z+mkC
zb8kNh%6cRNT*qz27~k)IVgnh7XWmeIsxqR(vDH9oU@LH!n*$e!7^4~@4feyeqei}k
zi}@3cR8sfBC0};UCY<X2UBu8MTWppRbCO7Mu_$uH^u+`!yiBT5QW(rg^;sX@+j+GP
zig=tn{`PBRJ=bn2u<n<mv45tvVT6Lug!iK4j6#9C*;gSL#cYaNgHs4b5Mx$_L|c{&
zeYDmEoe-8M$4~7s)Lql5g~UmY%6O}qorubR)%RT%{bT%89)mb3;-<L%@mz-PKW1OI
z{>}poI>O<GoQE`ngh7L#8{9NZf=#<aVWk#5ai<?l;W`FYH(lw|V5f&pkQ^sh){=W?
zbUB}je1B!`@q&1<i@-Zu5_7{ye+UYUef-nW0_FVCuGz}LJE-dvt?O~$@c}LR(<~MC
zL+pln??w?Vu`Y2B7nOO~U&(AlRI={9K7PYme2i2Ms7|u?-ew9Pmvkz~x<|FUl?!9s
zXgfa<x)i56^X2UdL((ZRo7Kkn{vJO*(`2;W=|RkPPSJZWy*+g=^o_dzXUObXCqeN6
znSvuvj5Dpt%?$7yg05KN5^eI9__~h4`q*W_7x#uJN07Cu7-LSS{+O{~ueixBZPqB#
zRNZj*`c6Yr*I$EaN#9Yz(AB}IWH^H>!RxV<dbu0u&IH7<v=hLS2!`S++4_DY8u2R~
zHU<_5kamZQ_;H|S4bCVh{Isn}lQF|LXLLZhS}D%@etp$1skk_&Z&2wY75Q@}!q?Uw
zt_70LjcBsH3kK!C(_J||oPPH$FQ8PiLK$&mhW?zd#U%c7*^T%{7((X3zc$!AHTP3a
z{I}$#x6m}UKcQp=zKpWow6>C&$*Hgr8v6pvu<d~nsz|JBd(HD!B_a#Ql8Jxg=i;}4
z9e(cInDVsTgj8t$y>6l-&)K%-s3ZP0(JJC?Jjsepo=bF6nX}ZdUMN12%yK)=ZMr$H
zwHb7oZMQ{CgiQXw5BQoZN8{m_H?H|}mmkxy%OH}*r+bbs89OgE_0Y?2Uk@9cRoB{u
z|MC@GJ3peM*!i}%J5=U;6G86?s^U6nKi+XfZvKg{SBM=GcpRJJdq=h$C&C5y&tHgr
zui+$Jn>$b?5v$F9|0GF&Md{96{&zz|*q|r~?Zr=2Vi{`KV=?*a*mB{Y0o2Wt^<bED
zKonGW-1|YK9^s$ZsnFS6&wmrkX0sPR7;iY+B^5=m<T+b769nZrf?Ynsj+bn%j`Gdm
z_V#OkL|0y1H}<~q^WiZu;#4yQD)|#@^DS`)^mOe{=zhn;YKUcfmFI)gwF#d-_*76|
zZ`YzhSI&XE=eE!{FfIc2??N_n7@Z_-Hi|Uf`i|Bp-$DYL&F=(%@}{gP-$=Ul{kqgT
zd|1^nF!d_x*YHKrEWQ58<u4;qD@VL|@T`Y>(=|oTXAkwDdOpwFRn&_7aYC(E&V<H_
zvB7ifRfTbAyo(d;iR#;R&@0-c&(Af~Zk@lsqH6Aat|amsESk36JTM>k;ztJWykfo4
zIl)Wp%UJuxo$-KX>%rjv#;yJ%ARyz=qw_~O#ToJo6~<GMTyR>%I8m!-<?NKt*CZ%$
zb_Ij|)}`LCT>Z&_FxT6On_|nZ%h$YJDx9-)1^HLK4=dKEJUn<|ZX)0_SG^nfM0qb{
z>%->kbmiRq{|xM;#u)pS5&gFrJ;@+xGc;4tf9`Ay>fE*HV@#^NdQQCk`E+l$(sJ1@
zSFpF7<Hm68g!AFx!WJHOnB-Qmg<wu<q+5h9wYT5)_-(Y%?(L}mF)!fN6$W=r38!20
zIUe*k(2vzNgXoB7T2Gh_)e&1VQR9-An|Pr4o~q)5y!bKAE7fXuG7p!z#vp%;nuu)(
z^0b_%L@gi*JiqJSSAEK7>{TBHY4gycMLt2cS^75pR7NApIEp;{A#+!&|HTkiyG51n
zs;_laKa$+CSpA#e1Sm>};rfc^Y+fpSn!IFN#c`1ldB;?aF^ZCN_N*X}y2^1kOWhl_
zjGmqH&oZbt*PEVW@YPeV;<ybaj)mFGx&J^A*+AeKobkSp5XrVMYdLKN*kW~YUR~To
zC*{iEI(anYa9jBdJ0}PHV;s4??hF;b(f0$-)Wuy(Z;Um0Bd0UFWH1{bZnt>ye`rYX
zb1;Mv;(%49b&+!E4=JBKd39cEhhGp$6}Vp);;(@>G^b>9HL9&tZlD870)-s!8=`5h
zpV)M+aUnJXyv3ucG0t9DUxgg)C*wMaIkE1MOb@!u89?TW>O4@l@IoI7J6Ww+4PN@6
zDw^#F#(z%G>Y30gy=~xgi^$mzSJH#-D}I+cM$(FB&O_{`dOLx5k7Xmg3juulyE0);
zak__IO;QBMzqtyXvl!nxR*gaSz}J#NX)`twV~$9oud4W0b@|~cHI|D+b5rx~;eT_w
zw>e#SkQEPOJ4>`R`)2;loI!^FJc-TTD905gtg+#xSHDGAK?OWHqX0I=x4*2ElsOwn
z&y*LQF1$9SDxo-|-y>5h=Mo`q@%#(L|6l*lW+o4=11V0$X&2~fX6CMYV+;viy^@n_
zlaw=xV|(>}G+!q(73CGn*7LC^j$>Y8<XAyVNVnEybskJ6hcl@1iGOuIxQ;<_=sJsU
z1XE!s<K=^Uk#~yjghDegsrHn#7~81~WO0J1md8PW&Nouk14)dr3+@nj-dB9jLcIb0
zn<Us2>pKH<{$2a`_*<6o=fx||TSNVM@m=c{3;(=$nREO2pBLYhsP~lq-quRs2cYlI
z?d*q^NUndMd-dagkAYuNZGbCwLt~KT@)46|kE!X0ve~WloOOklyogNp?QmA)j57bO
zuA&&aFd7i5PAAz^Bm9^>nlU~)Qt1O{X|#ReWF1uM?UBI#dJ1-HOa3_6`78Wim7I`c
zHB1>XOC1jd7e1qjC5Z~n?htGzB&m+pco5B)Hl7_~4VC7rQWJ~5K<~H-|7!q2J_655
z1M|(1B)k5PFW?KIk;#&=>=KL^2R|p7ydE-B$5f-_Ne@z%roM#jEqu=^(EDqPDIL!^
zq3yDolM>Pnw#=7gajXZ)bD8Yxhvd^Sj(9;O?12`tG_hZnFOnjuxAgxdPrfl2#qN`1
zb`$L~Qc}TNHnLTgc@c*bn%ryl%zRD0aF;Wtga?1Ex;+fY)f=1g#?W{LX`WcHtBjTi
zv<9zZ;L;HUN*ZSTtEfSNh0!8B<~3FYbA`BxUr9tkf-7u#@)Xon<{cF&l188ZQz-B`
zhi{5<Tk2@;_xD5{h(}rfokty*C*QoUbxq>EZ0x;@p)8G1W}a-JAet(tnU7Na7yoK^
zL;zxZ`~YtMdT@#+W8KDItx4*6M(=@-p-CrvHxvd-Z2Xzg;l}*4_*3)0KJ0FR%uoNu
zJhZG|J4hicl`+O{Z<9i&rSNrnQYI)Ro5Y+S!}Fi2N8WZwuKz432UyVZ_*mVJZ5dI(
z>d!s+I5(P|^`UV1dWl3>T&(PCW%v+w+eAnP{fgFqD%HvyQ%iXJ=Jy76`B-qBpoN}%
zr*dqxW50PBf+~ztF(u?OAVrWihTKb{w;X%8jnPnY<o>^;5RC^h-cB6SuY>Q*o^{8g
zY&Sm+lEl5oF?-1r*%zy;B9OroyoE5wAtn^RY>_we{x^JSM6nuP{WCGPck<>kCDVgg
zVfjl4@gRO%CcYD#->iSL{xmEmx?0E%GeeQ1fV#QuT0SqL7vJC}hGb6O;!QvY!t+_O
z)4Zd*wz|*J-lA9kUQ}l{HbjMEWwSfZ<i5>WlAv;8oRyHlfoy5wnMBCUjfyH$uRiTm
zxwhC4F8sNB1;gP*{7Ng1KZcoPdohQB*jmUJ#;LokieqByyEtar0Z9<z=dG4DR~wGo
z+)Q(&>|><oma%L)!Tb4%9*&un!WDAgGA6{%vlSXdTT_|rSlTn$v(6^@u3I?XifJbj
z-Q<(BdgJU1JtYD&fc!G<wY^#l9gWi28W;Ap$Z$*{mlI`0?%ydRX&a(CH;yGht9><T
za<(2f`fK-x)<}c<vMae0V@@x^;d7*5uj*MLuTaT30>ZC|lD6v!;nm*~Rr8o;7CLq`
zi$@Bgl5n_abKV0XDKRf|<IvtvIy&Q-?xzcV5@FV|CzD4%v70n%iDCyzi)Vy=BtU0A
z+B)dO8uO`5m;u^DZo$a%Di?F9d95%mDrhuw$6D2T)yq$NY-(@vO>4@IP{M}ZG@m%f
zBW_xI!5BR+ZXZzq0QgmEcE8a_>QG%@f%4?Cx5VhN>5?dy8qV6G#kkA6H&^by8EL`~
z2dfI0124*GKD3XMdHOO`r-6NHhR**5-2~6L%7>)j=5VLCbHe9o2rAy^u@Y+{5LSdE
zTf1D`g^=Ri;3yU+shIq?TRNdP#G;}|^*D1;iEk!xYzAV%T_khZD@fGxR8QWK)9?6h
zOK5wuTGbl@^^I{h#Y8p4o)gag=y}bFI7@>Bb6Wg}dV%7`_`TTf&46$cX>vv>mo3nE
z{M{P%yYq2@i(g`a>0;egaGc2axT6*Y$crJ|y|C-CY~RhAY(Ld0uZGeXPps%w=($&T
z_Nwne!xeYvF^Pl9P$VwzNqz+EAW%fEAwLAp{&#J!RtV-El6I>57}$9?kS|ffR_gG|
zJ<+Hh#o{~0G_W&YF|%X&DjwewA66%~F)=T?_CcUB#Vg?-DfZIAvB;q(w#R5Pu}hD~
zZjI0jO~NQHdh=Vs(>lwq-`{?^%*Cy=aFLAJg^Z7<=a99n9nBb2gf1<ty$?_KdE6cr
z*0y0xbZN^3|H#}_ui-zhI$b3(Lcy5sZpB?u%(~cyJfB5pla2YfcL{j^)>{bCo6a62
zX-j&YDoDO#py|Fu2vTJ3!wr!bsVbcJr4<{rK_C8$M{gHzm({w&vPZZ8Vn~%R^XTez
zRpTP0Yu2?fnr2(C@w2`%$LXJbH)20@(RKsr2B*=Dt9;KFe6H`0Bzj_{AKojLS@a;N
zemZO~RjYQt8&SkbFTF-NTOGuzU4Wgz=3;vKsfKs#2=JnTF|`ZZv8fVvxc!8_KCC7y
zo$3)rH;%mhxKywSWToSh6*@388B6n5G_6dkJ?#$zwD0;MOzm>+-bkukaJFJi_0qK*
z<BZwt<n~2O;n#}#dr!N(K~yhh%pPMh;hQOT5gEYCBDHQP^R^xQbr1SM%<Aq01|G$^
zKaS(=9$bkEy_t`x6q<=f^%Mr~X`0^EP_|K>r>VO(>Hzq@8b`r3XCN(N5M@s*j4C9&
z`BW*C#+aGRFZtYEH281Q7@>vCZItqGt1SI&c7z@|;R^>0_?mg<{B%JnE4ODjY*%&J
zZk%dSI&VV-KJ<YZ6l2devLA`_0WO|PHWmoP9|?r<tL_sfWsU+rM=gR7vbM)E;xW7{
zUVhedV|$)<sYl<h$5{S2UG`Nf9MA#q%nt#Hupk8tu$e{2RTRBc!BRb4t8J*o;}-$g
z?h`ldP;4DK-u71{-3z*=A=Ks2*fo0<$iiggal)Wg0HKSj7mg!XfrSxoc^BOlxyt93
zx5`j@;cQA;^58kxJ}$Cf(Jx8fA;NxGKICGR)}#9Qzgdtm*pL0I`=BPVJtjX(M8a57
zKVI9M@i&9m5EBfx_OORM#L;nn73R&!m(l?wt<tYHk|d$)#Q}n?nX+xZ01)xlTkXM>
zf+5kJ^oj1FaAMjgL8)cOY<J87q?e5LhbVMcGt{Gx|ITLPZw6rGQk#6_wyyX(Z+TTP
z?T_jZ88#PI89$jCu_FI<s(`Zv&9;w)aRWGkyV`VnC9nJg_M8G=999Lxm*30N<B$NJ
z**m6|@hm*)<(7!q@h$=#D!5iiI3HOUM}!f&KOzf6**0@9BgWIE4#=C0M%tAWmP=fw
zsKvUPlN|X@h0qwbB70F`_2+YV;YB07@bt^orKz6XaQiMg8rb^0akv0{X-bhp_Vq(T
zV;^%S+xR~|F?8J$P_495>9!e1;`d~QaQ5`RMdm+(VIJB|LcYRq`_S`}lzxO0Yv9Ln
zML8z*p(Pt6#ln`4ZohyYT&_<(h$qk!!t7Vq<yU&f4j#Pg>96L=4?N{Hy-W`vf`(kU
zNx>(l`6UdAt8|*J6d(-!a0}Rml0%Lb8w!~Rr)kP0oQPwbk(T6}Y{J1L{%Kt+AAmQw
zMr*PpiOq2Nz)L!<0HDx^()?uy75;n+g?BL=J_ZWJ@z57fn9Z9JOT@Ns<&ZQzThKFo
z5s(_o)+F}L#MdYa#&Cg5VGCvrH6)b4tqAGv_v)KZ32)vVVnEZMEVSXa5px9NBXVT0
zBvf(c)y&gAF}Tl5Z(mcN4w{bLYh5zen(<+2w_1o9DqS)nkxmL+?0UAeoq#6v_h4%h
zK@u}pU{E8v5RUBaFNSeX)5SG}{&ISo8;$c$qu7cl-Adb0MWj85Ik22vJ>#-Jt56~K
zd)xO{`C<=dqfg;4a#hYJG{#vKM@?6MB!tP~6hpMtKJj;;;R>->K?46z#lkK1KDlq5
z=KQ?QvNsWHL2%(ck|5xdfHe`^!C@ezLiDd=Dx&Eia~KtFn`6BJwQ@!we{mrD>b<fc
z!Dp)Fx28|R_m4Zwo%?Pj`GZ|H^J@fi7;lDEMU1qrFOG)Q8NX}&eTr=xJFVq^S)wQl
zzWneiU%OE#(5YQxocUEMNvoz;280AA;dZ<+S}A7;G=zevVB=2%zUAu_X9#6?C}<^g
zANt6mh9OtYu6q$QLL1W|^zIY6Sw(WOSg9C}$D+KQXNg&lWWNhTI}eil8DW>`tnbfa
zzmIT2J6{CX;V6E`Vh$|IJBD`B2A3sX{Sp|IIDCN&&>8aUx=-`3yx)`_zpqweQ#|-U
zwTuBQ{-ynagtS!P9uH8~N>Rct*EN9D{A%fh3Wj$nkF$6vXA}-pj}n8;6tc<GFdu-o
zdl0!vqEq`*MT%)RXxMBX+@gALa4<Tg4(l6Dp?>8?hmZ#>JW3@)!fR4v46vp7==WDf
z@R@?c8#SPCOyJUK0+Gm0EZwBXX16TeCHyyW{a=c~+NW(Gv8$tD6U>>R^Mj5(pPtzJ
z+j*IOZ;41?K8J&TC*>V-8vj-Y*}mZzyP%KIU=mr?AR`-;+`j{2-QK>K1U`(-MBqmM
z@7)vPqW`tM{{L93{_j^^|8FVrv26>&>AXeGDClnxj-+E0SG+hR4q6%|X~s`7!Rc=c
zuKUXn*uI5f6pwsK{6JES6$!#4nI~Gd4XJzh7lv-%d-?0~3v)e9t7mAnj1Pu+plc@M
z#*cpy>=9PO5YeM_upwqR#32}ZL(rqJ@EFJW^=)(f*8QtE3EVJ-<}9z@EGQ#!LZw4g
zd7>F`pfa9Cr`Ji0*qIHKd^kY2e+oilZ89p;&7nO-`62bA;(iSIc)xe6be}S?a}<P8
zeDsg9I#`N$1mgzdu!!@@+-Xu52h@0{AxS;Rlc&!FvN-Lu=y=s33$)G`(teKclRgZo
z2O;?WVK4qPHSuQkrLGLy?7b?B{3Ku3f%5lyc|a%G6lnQ?YA$)1t{IhX*qg8qDOwr^
zoT~UJ_?b=)!k%0s2AFCvmTrQ2=kX<KIr49X%)BEjcQa+pO7$ED8wP_|ocq)9QAHh&
z20*{iHx$07WO$tvEds#|oqrfqzsh(KwyY%WQT4P9P+!{6xw-Fp*KcdAChgnZFddax
z^YcwX#{E1?eAFd-zdZMS_Ndb_X%ZTmREmb8Qk#}<#iFRG3n>QSw5b`x2RxHN;;lG!
z#wtE>O=^ZLou>;pV$6Y(DqC_*WL?L3Nnpy-?qcsxuhOM&KqGPmL6h{}|Cry-G&<p(
zalTysqU+6-W;*xeo1q?8eFt>gyU9UKeKj~C@>_p@&~a3R1PkXq<Dp?)dN1@yXD;Ro
zj4}-ml+k!*`F7MHH270_aRD#8m*it?sdC|wzU0~1j>{i}Syg*0$#NNfKF+SLrFo@*
zgjjJH#V4>NKhToA^58O0v>=EK;l;P1Qgi98fp&e(Xpr(V^@wE8_$^htNTTf0o_#kj
z;%D#HEMVQ8ps-BFujMg-p2vBNXAIMvk4Cx7jf4x~(`)^U3B?kp8{!W2YYl|FRa`;E
z#O_j}>&qsOze;W<<Bhze5s5HRe{H8PlTpr`Yrvo~VEi*WXR(B2Sk4@$jcGGfkvYOb
zuWxF+*x&rkW<^v*f$sis?dItoC(y7s{&AnCLK=_n1{VD$sD3^uEM>8q7$Zr>2WN?y
zWH5+l{{30XfP*CWujp&~K#((ML&@D(C{hhPcfK34qNUJ8d}!VF4uZWi0=WB$y>hej
z+zX`K>U5R61;;>|+h~mB@%eCNrf#*}Vwyn`Pg;4+7uH9Ea(xdg@fAhc+NX$PLOepK
z^493RXiGgkaLn#QO-L8BNT?XhT@3B*7u#(ZZKy>`tbsQ3h(FN9A?6XK@qDrFb*WSH
zJ6|U7)Pir<D*2R{L>l6JKM;awQ??Hy2hZ^`fcJTFQ0vv79aK;kb_rIlcar@n_MoAp
zR74HL2Xfdamw%+~r5Nyf(69HZiAVV$NlhC4QRjHfqhlOZWa4)<Gyljy)Y|#0qRt!p
zC@+S9FW~jS=<E&&Yj|uh4BX?48zdIM7Rb}S=LA+qc{yv@XPuncSPPC5o#6r$?D#$4
z339Fs0TGO#fsnAK9wHA-BGN~7<d4L#mx7SF1KWU@DW_Wc8!N^&PSm_b<MnL>fI|;r
zNfDHi>yFi44LU7u%t{06&c5o6edelPUa~rHV6UhWEF{b$>b6!u`~1i<JZC)ZbfhfE
zm4Y|le<x8l&hev{p9WY6>P7lP>c6u9gPBBuMT4P2Ud9rMX`N}hjE53Wm&9UID9e8O
zO_Y=_M^f#@0dTc}4K%ItQo{Hgy?7&73@h#_DD#HRjx88DG3}iU9d1qMoCu|3IG)oq
zK#`Y+%uSS@*%i-uhs8boyhYS*k*C>x{5aDOh~=3nU++Xav2V^NuLyk^zSchG$e*Q>
zol04mdEPCeW1F~=B^8}UBFis?a8qO;`eEL6HY<t=taH{1$+bN~*oLSZIy`X@@GNiU
z*$yK{=3Q${QHYHX_lra3*6yqgLawoD81YbY2kbbUB@M*P<$x*O&3pctqzBBYN2geQ
zQ$TU>Awm^jE&a{TsGBb}N5nZsbkv5zQXNUF(%r-$BrIX7lbeyEeCb}S6G70Me|iNK
zVzaYe0$et`aasV|Lv3M}pnrS1%0wJbxQPr*B5u74wpdo09y<PM7!Z?*HK(CJC}Mo4
z6wA}#oBeOIlby?Tk{dixEK!grR%|`f9QaVXq%HO?kO1mj7rm78e6uYLRaKLXn|xo&
zySprJ<ujPLx1Gb?rDVT;V8+K)oU6Q#mBGFz2ptJzqa!Q#nQ%8^>7eqm5py`A1rmeX
zO&RS#GqH3&pra?ZI(kVpd0sw!K#)3zVRmPa%I;cqGIHQP%>kupJ1XEsz$)L`FrPPB
zUnXG|){<?q2l@nNY=mv_=#Cm!P&+RTvGYSGtiER21Legfpq#o51Z%D)DG$m1{^~wY
z^CLKnU|LEe!Rk;=<&e~0zwGr%?vF;8e5j&|EOQU%+VnPFDQjm9e{4u{;JzZmhVnFL
zpiIU+IcRPUEKt{z`9r10BR#=-SXBB~U{jSk>2<XG#*%l|8ELm)lfA(qU#N9_Mu>mN
z+JOm3Ea`P9N>&teX<NfXlXIr=2&AMeBxAEZTQ*7GUs-b8OQN>9)qE$`KiG*hkXP=K
zxt$QXAI<%aOKpNR4=4d%Zl|Ok=8O+ssmc$PmZ6Jo;T>01r|<K$$uP!&><p*}-)l?s
zb6%EQY<u9(=dJv*2TV|Q3+ERqobHt$vP2&$3peKe$u$7F{(`t00~V8X!YUrgSC<A!
zlx!b|4l{>iWdu_CRr*fz6&<43LYqUN{Xd1gS$!$n7fBf3c{RTe`*9I*fgKu=&f7#t
z>Dy>PdIRCP0Z-a3I5ORUE7EXX$BDZ+0YrFJO0CMXEz>m=<SOrOZ{R%p%wAALdU8T|
z&Ej(|+?$Ddc%ov#t;4+Lbf?&8@9Fpn8>hr4O&>AUAzVFEx$eXCN0lUUQYmbgS&!}|
zR&_;^t{D0Mp0|Q~JFkZ4CdyT<EOvWS_S?|^cHIi=%uPf?=t?X6+V}ts&3OavZ3{zk
z9UE-({Dfw`ajjfiIzdkrzneM*x0wz5)O>aIKg0>$eI!XdkI*>52QoI|^i9*5dh#i6
zLX^0NfYbdxM~Ib2aH9#$*K$Bf8~wnPCXnLwLL&vyoyg6#IT4)uZr{GuRMtK=!K&8Q
zPp#Gn?Ggrn>Le)Ti1^gVb#Ckys*XNbn^X#O(8@CqMR^_QD!3DP!D0iWJ?JP7`Ks7C
zXA;~-Bx>w_afpF({f|<<#L4d8=M^T(mdUD$R<XC!=fm`TJ=yx0nDF=G6P9>C)O1c$
zEZa9RV6*JXy@d=pns9pcg3D<&a$5dc$O+W0ExIv2y&JZR32t}e+j{%95!%(T+jhCE
zybN$N!tXQ}Bou3Ub!~TX<ZNy+ADcqmv2Nom@N(h6_lsCr9IbTK!lb21<HA5)9_38=
zzUgx|Cj!N^_^t^Gb020l#c(~UgnO-v%u&2OiqG%cWK||x!iL}U9(^jOC@?Df{jO@&
z1fLj8oN=^YOgEC@)=(hJDSwOI53TmUiE}vAj8j(vsL2FK?>#f>R#FKM-f3?0F0)6c
z;3MJ6gKbejZ^D;~Pu2zU^mZ#xkWE%Wt!DWGKatpt{;JYv@!UgQ>~y0}lYX*idRyUf
zN$L8JammbfH1SvbYR5U6DvfZmIJPlV&>PRKP*_}`9INw7HVVboVXxBVAYc=T2%Bta
zaoF1E{I&Z;gh%mfKXr6w(N(*c>3*M{2wnR9R5d)WYVWF?#puo|Xh?f*er9Szk>5G7
zpT_mMlPQmp=;{5&YQPsp`vP>PmaCdDsqiHTVb|7Z-!JS>=rrFNpZU&rHSGODd{+aE
z)Lh0k4@0bExX%lr>@g`AZ+>xgQR3}S9QX!FJhnQtic~yYR5lxi=_Q7%vkt>rYXX02
zvdt0pe6i8?dC0D~PGeza5t~Z}V<1)-mojv<bv=yj=+CiiNaRjw{Gj#I;Dw4X(9$AZ
z?ZUT!jnN&Q!Se>|TwDp;c6H0XZqD6SyuQ`|a%%QthWhK&X}Vs{RnZo?^$<_GlcC;J
zJ2Wr@^s+kTI_sPjpLJM|bO6W6C)@%fF*b0Q+~k3u^?CK0{Y=&iS6BY!4^V%_@EcGX
zI2>yyJjM}~TIOFkfi0T#Z8e+C2^u4Uk!rq@*TH>mcTPA85;Ku@Ztc>~)r@0M%4p<A
zu46<F#;IbOH*hGnR_b*Q+t56Z>yT!%nZb*px+@#n{1Ix!)^L9?Zc(vY8f(3Du##Q_
zyOct9tFC1-_F~LTP~_&r+M31N>51jL2k&9Acgj4q?jBULBa$r5mb(Go3U@guE`#2@
zRY#3yx(24tTWqg9=4q?8i}WYQ-NntROdtj`;KXEFBl33)MNjvQ=M4eJTDd*3HdP(*
z_)aTD=wNF}=5~$rHlB}2o7eVx{S=^9U`lo$sQfY%v+hf(9}ve%C$oU0^7IYg4}N3u
z);C8=VCwn&^Y9zYOCAm4aF7}i0zMq0n1g0!;}AB2iX)~&8^W}h3>m@Yws_}q0t1Z~
z(MreUt=-sh5@>U<3Etj@R<r0kWH0MJts?WI-wOCqYc?}}oQ1k|UV3+zshKTwz`PuM
zcV*4i3ZAuPwGs{hkhY3H*zE1<jgE~*>2NUL@bA@;EY*PA5S~6tH4o|aT$eSig^6iH
zU1ug$$ExfW(IkFUN+Or(I0TT$FoYMb#F*y*d2!JQaKvESh`=*P(pHVj=YTsDrEP3d
zeWr_wTXb3ve8Qs&#3#v!)wVUpF{uMLTL-T4rbxCj<$$6s91mvRH%|xgu%BlQp7PmL
z2lmE1f})!nd}o8}a_~`X+lsRoflf4m-Vf;>Mg+pmLw9?Gt-d5aN{hP}yL1OEg3<Q-
zfnTncFVwDq)RP>M8Y|Jq)+w^8c!6bppveLcb=Jz7*k6=blXu^x#Ze3_XI+ey={NYu
zd?llHF;^HwNwjhPv7PUqsx@iwzUM*_NqI9ne%`9rMX))JKc)}=T}COViDaEyxH%pX
zXx3yn+8KI$VyI+D!Q#jhT)12}mn6y^em__sfZJjb1@!M=Q^nBxibJ1WKVaEJ;gfn6
z95jV7hV(K9oM|asGo100V3z{Dylg*Z{=~u8w%;0v94(fIXxAcV$3z{Ouw=7f1DVY(
z&IUFxfoh{RtOcF)D9UutlUKZ9F(Tk7X_FV8&rm6~G6Gyh%a{vm16@S2E3?X!#sHHa
zmALkyw;z@oa<Q@}+zj=h67{c#rI#;EBzIL~RP)j|FVY(+Q}v})n#w}?gb};XTRG$w
z>=8#EE6zYa5AJ%vQJrpb#vhaF`Y}*Kig>-HlI_deI(PAm`I$lxhhU|O3hZ@g;C*Cl
z(a9i@_sJ`O7aBLzTuFAN>(%YG4mvdFe6rLz;NEKkvU4W$Ue0KUlrXvOukl-LEVyD7
z3s$gL7?~*h2pIYaPgAS{JIYfA_v4#RnwME8{T>I9v=w7K81u6L`1r#|<Qk6#%d6c^
zE|035svTwN&ck-5wS9bd-YzJDvE4HxQmh*YnL5vE4~}h;xKoCeLaUz*9V2Q8%#FI2
ze{1=ko2>}CUp;F|Mm2A4P=3%0^_tQQmsHDMU%&hltw5>Ft>&uzYKIzu9IMzFzk1v?
zCz#>dk#8+%v_A^S54RGmv`harG9>loTMm8A9j2AVuh-!~34xU<;F-hhvA^wfKF;KK
zZ;9Gzl9U7}__0Ik_yMab{g+uzbGD(IL^tax?-}Z$B+{82w9+D9Y+43k;Ww#lJ;l2<
z*O&ET&D$@9-9;IgdX~%l5)*jzMy`UZc&9*g7b6wkVCe_a+G%rMeVKi)ZP!2FGxSh>
zha1R^F@zJ%|1lh8yj5TLD-2;v6Q@6v%}V0kP%Z0-s<!x*rv3St9A#)QA5*Q)Gf(-!
zOLgx00Dv=k8>uDr*@5b%$2%&^TZy!?0|mw@$232Hwn!Gxm)a(mI;XGkk!(L?YQXa(
z@AJQ-iwk|vM--dc8q_>5(B-IR`i4GG?7^6<FhQ)?gArLNf{&*yc^R9&bO78-cgHpy
z91xISE@1EW1e|67eG?JFMSE!Ha4eG2ypK5fSH)+cK(0Bru4Bq;XM-pzrk^p{S4LG2
zcN=?%Y=8KjP+4Fx^~9me<Kww`;gn@;E-EOn0sJ63N-gXh-%Y5^{h;=nBkB~jDK&>x
zp(>6lyGUuUvbCo7vd&B4o;*q+ODUQYbYHy?r{HyXbn-TLHqG;7RRCr|v4;a~;Qe5*
ztLHM2h^n{Z7s;4CxF$JQ^X~%O@BJW<Z{a=%&5L2xa*J2MnIJm7w|4^M7tf`)r)qQ>
zXby-IJ3p!?SoO4<k=Sz1a@G<(kU8JAF(T8ftIEj)J4{zD17&|gA`^%rfdSf=?AuWq
zc;o?f**qfdXKcJQI1~oAlk5<Y-aQ}-s6Vw(MR<C!k;qDTp`&ZF_hI-nu-HC@?#w~i
zYe7<$Qel$FX|s|*8{8hVQsHyUIZfU1VJO<$kE^KuE8*+ZUn5#s*LLkd`z6h#b%g8U
zD&$N72zteXtQ--;y%74&NaycdApn!72T-{2hqM%?A*LZ=(uiC?&I2j@o0<%xrgQyk
zYSX(;3aF5y2$Bp)2Ikw#i-i-}*&=!afLFwlB+Vfu1qO`w2w7Z*N!Lq}+c`#y&7u3T
zGM8fjNp-Z_logL54?J6D+tjVG__gC-|KR<N(n97T)uVT3J3GD4MhKM|C#EtO@8S|N
z|73v8ki`BZ;$|(`9@e9=J&;gSh~2a3qe{4+YAmqI_{gZN4WnARS=nl!Zm~0+n@dx%
zK+$%0w|hEj(m^2>8Y9{u?Q9oHz?;D6A$kq)sPOK|2~;X@o;y2hRdp=8@kOA&ZBW=w
zh`(XiBcMgM_{dacGB}2W2$Cx+fk#DDfITK-h%tk)c#1S%phWu1zMeh?jFo*g89s^M
z<YWG#S3FOoUpjtm?T#scIJQ;;`c5oRVT^l2XHRv|mg7cF)&ZyoSC((5`=?o05pki5
zy<S@N4r>LydD^0e%`>%5JNyf4pxv}z6$|s~XA|Uc>h=zgRNvV+s0ovc<l5XNVqS41
zhTga{&8aBJcS_*qcxQAZXZN_a^Fi6n=%GdTd8IJ<8mfRzb6*2n@!q2P1vRD2a^qMI
zT7Qq$E`waRS*kybLtUbNwNk)}SF}1W<;G{Wi_xgcX<&(aPa)@Ou##b~Zh5eFDRgc?
zGU|<=IJdEg>)0!KSpq>34vq`}`6cWc$f;(hsetUeyFg%UlX=>TGJQ%PSp9?!0#vjV
zp~O!nh9+Or?Mdv(hc*X!ot7G8l>xY%bf3D{TCj4<f`0DI1IR9CtRUGrDqPCE?7r8u
zgsMC%cHEAa3DPDWi(jUVgK>CH!NpUGxHcJVBEvI27UL<U_3Z6-%a<P6tivW4yUIg*
zO{l5o0$;viirqA%$C0uSyBBFk$98?l9w9|2bh}ms3tkrdWEgYH-bY4nol$QDa&$En
z@on~c#9Psa=o+{l&sTWd^T$q$x0vyre-Z`#@-2ubwf@JCo1E$&yLEm85F|vv+DJf1
z`Qz~_8qdo`1vdN+HY8DBpBLu35Qy?WH=O>RaEInFT2kVR4Ms%-`(5Te1vX;}9LnQ;
zS*6%)=9OFJj5lCDssq)4bg>FBgk?N&+abL)O?O&Dn7H5dHbIg^T9Wb-9PR+U?uzul
zgUQNS2B;lcl65+{Ssdw&VAT4kDzLCGbH<K%k@P67zRhm*Y$*b?bbiN=RLMVd4s52_
z7Z>(mR>OYjsH#-FC}>)}w^_(>87N|n$#5J4&x}4-mUjw+MLLk5oIORMcRzx>`W%Tn
z%*PM#q4#GJE!>)$uQpLUjjq4Wn+IfP(-R`&?z;&9P2RMNvhrrZlPdVYbV-Gu94x?N
z+sQ8mU$~Nz_c#1XnIgU3MeoYBIuK9fQ*Z3i*%0><{f$F&O>M2HohZk1S%EzT)Z_VQ
zE3T8BTcWb4SZcsoimjbkw{?JS{Njx))qJg)XuA-Ji;{?2{)){)b@U}gq%P6!`k_(z
zDOSFAp%`#3qCJRYAVtFKKqRD!Me#ckaChVLk$rKoDsVItCTA3N!Yh!X?}y#MuKxIX
z0FEm9T5_X<Of|>ZHFUp9%Z#^o#1;b>ow!Tq7T3+Y=uBnK8v4pNi)nR5LhkAr!~8zI
zxqF(jmrQ*0x|FQVDzPg+#EY6uz0OMk^tg<dP`pmk@+8b*I_lu71Zblsm*3BZ?Ix`L
ze#K=n*c{El87{auSc9q4n`OTXN^wmUD*?{-azBlImg#fxm({O5UKj(&W|Lo6K51Kc
zE~Wv(`c|GMpTS!w*Q5G0@X_gcz%q>O{T_(<QY`GeU(s`aT0gLROmUOrdL3K(Ytf*~
zsMY^@<9Br;t4Kb!!XM~@RG8Fyk`tt2Ue>y{S>c4ds9T&mM~-v$@9}u>?WuJeEG#m%
zSY`$)tG}~K@&x+UaxCpy$dq>aCYzU#k$xbp7|LGLE;uqrS{jJ<;;QnHRoktR$~Mr5
zei#y~C6ikypgI({7UVgTUWIfD;;vpH;<v52n_u5{Hi3A(swY_<#A(2!B6PlkND3io
zq8i%D1S*~f{Y5}0z{%FT)KfR7)Lo*uWcJzyWhnlT{?i;~7N+RqR*XADZ0%&s^?ZoO
z)9Lb`9r~X{HM_4Bz}>yKfgOPg59mU|i8#tWAR-fdU1+!bW}zI(pDcnuHBW3f?=@WM
z0#kyYvnRE7XCf_caFQA+ii&6pHUKtw{Ri1#3#y>Nm1{gzE!kv7Tt=0H7*-%~;<$}O
zMPxz&1mnDvUNFUx?qA%yEdyXxc0ecFhcR02^0H4aDRW3@f*$BsZ3FQGiLu5=9CK6v
zo~Es1SS|N}O?a|8@gq_XxYej%G-p}aTm=huzHte-A&k-C@H&Y+Fb|`zj1%+Tb&{(}
z|JFY>2;N|w(N*|JrsUTDw;~C5WM5np9NgKN;{`C~PY3kz=D~Zks|2v_Qx~j^3KQD_
zgd_6Oo5>HW^}zyDs7|Zpc-u2+EC+7MCKnPrFP;^D3_;o7DVzd#TWydwC2m}OH>^(h
z;n%EvbAo~>V2k6#2->ieme^M9umq1EJM+Cr&LcK(mhY%q>;w3zPu`KwNtl6kMWmM{
zfiqr-%TV2i-G@9ndpDEyhi6~Eqi>drT{&>0Wn?tk@pe9b1d~3)z|}R_HqWo>ur;`{
zwP$vC4aTT!9xL^0e#OsBY6yaFn^Qj9)Phsylee<7+|l5yVb!O2rpSa~6F9xR7WL>R
zDN_S8FJAdb3@odyWq9v?3RPSa$V8v7KzBv9zzmFUXWz{03XGpNfK692@&qZk19wYE
z<~BcC8=ClhJl-Bhj4KiIHnWwUPb+zP+ll&^P3HDRnEJhz+@)Sdd*AD<^fU@yyBAdn
zMfZGX?Y$YcI20X}CWZ5H3f1=RWYSaw;+G#u{XqC*LQLn@$H^Hf%e)hp@%Te0V`%gb
z27Jl#X&MtlLqq9)#<y^}X!M%keOqp6T5b|%<`a=!xp|@~ayk=XV0IwDcc1uDx#hW&
zko^~2jty`)h9BPQpzI2z#vXa{r&<$}NMMjR4~@e|^&USPb-0JtocDQ6NC|=#TxrQ2
zTX5y)XMWrDDlx(08w=hPuNq&R&g>kWpm%On<*AqJiQ0DqG)aGqX^jeM(}bN1P3)YN
zR#$C5^zOJYuGo<v;}0R69TD)}JM$i75PXz2_VYMgh!;YlTJJt__BbNJW8qk@cDFFi
zt=DJJb9!@U)0m9bxzp{G$e~mD9w})IB%a^%8PVHXTC=r?l1(c<6T*y3miC8ELbG>g
z^sz4cBNVXsz}=mr#bM33O3s6+q#CPoPdF#;Dj4B-Wo}35u(7bPqz89pD00FHPCmqI
zB%zIc7di_G=___(zIkKvWAL3=@I6)iVH`1y#55~+`8Wp3W4t@<hEwvb7GJ27$lc&j
zMO#f%HNBD+L_0Dml<|1${d}M_7DZ$Vf1$kP`P{zVVEJr=l%zZnwRHJh=R}v|_DxbX
z+DCBQ)PKjD+{0q^p0s1(RW-_sw>a7DaC1M{<paJUMz8z|h1+!Pa9VmzZ*|pa^rm$h
zYWl}<#<te#=ozQ+gO}-vX4O2L1Jjc;y9mHQ6~vgH&+a7aVm|$BN|>D5;zN`rPb1CV
z4EFpL;iU6hY9_&%k2T=PG#1+`nf97T;|xm!%!$8{*pEIS{}39g&}AJiV$o4xpk2LJ
zlEOYn`*HHQy8%c#Mc>i1lJpzy^m74QxnEPCD^22PF!?6RsIt^0FW<tK^%bavo6bU4
ziB}!&;P6K`i?iiD;I-%*FRU~<A@I=KJnjC$IrqBn$gwb4Xg#40g$u4a#4<AZ$vdhp
zIeC!*W%mAh{6!x4QWDO4#qw`i)xOHFR@EHQ(P^Iyv@U;~CQ847>)|&u0!Av!e1PO)
zai++<B+qRmWQNpEr})42q|{jIOnW&2B`}{f9l(5hCr<>q?l3X~ig9yjG6BDkw%w#;
z1s<k1={wxyX^G|zs~#}j|7Y!<X)*Vl^YU8o+~SufAWI`zp1Q+s)A<sr@KV+d`~u<Z
zUev0)&bUg6ML~w^AuUKxWX8WDVw4U)z}h3pCe(|7F6D&;U#Z&e_en2C2yv~M>R8}<
zo~bN;q2;dyF4j-^jQz!5ck3LbL@kFWN*C3u(?>S7HU)mNj$jYIq=k7*CQG)Q_GxcU
zx5)~-Tl8(d{T-e5k5EhH)2B~YKwoGYShTuE-1xlg54zO9A{2{}@nF#lt&+F^Yeb!6
zEEZTAYgaQ=0*t96x9@zXn(yPS{VSsxy?Z3fq;aKu=Gy8Tr7vhmz{a!n`^mGIe8N7~
zUz=RJ45_(%;JG6nJHdVEe)?B31Z_V(XXl5o9SoaY+;<v)0oq7tHBXa0)90AS2Sq)A
z09?oQwp&l@f%9F`?8&ZYy`ZT-vF2cODLeLo@vJ6Ju>1IbiI^Nj@Gno_d%tZf>yGWj
z;+bb@Byd==*7S&!lyuS`03R0gPfMt25Uo4bJtA-%eY}gPgxON5X=Kpv8=00a8C=i%
zd|vb|_OXDWSPCmI@x>{u?SJ@SxBV<gTbhp(J4_rxv-|N2)2VUJk1TUhToaf=U!00f
zl;HJ}P7AwB6K{pN!Dot6(yRHo^3I+?lB`zm-TaDDZC;LMt!@_KrHi~v<elfZGbAwT
zPP=1pW59)4QB@Ev4O(|?G5pmiCgwVE=AFy!|9h;gR41g~0sqrsxX{gDfBDw_;~L8b
z6#C{v&_iN+m#c7o1N%9(<2t+GAH%+ISCE!$RZFbydsh};!V{{nb+R(|h~tK@j&{<6
zB3HI1Wu;Anlm(Tmo+rA^so$tX9CoY;g{sK_%sR;e6^Cwdbb=l4z$jFtN$rFupfWds
zUh-g_fJQKjK>(%<?#l)YZ;xyWK!r9{P7|o$R$kI$ZSyk*p<la}tM@b$e=7AOd6leD
z1Jj$ja7L^{a##apnafASKU51kjy${9Yh;VIe8SqKwQTXE7nDx5l>A9a_CMIT@?Lx7
z3x`EP8(y4_WMsPJ?{+*A2;Of}q|Hot@sxU}m;=@qF*b!JWY?c6F0kn4_>`BN{Fq=l
z6SRg0Ynh<R4p5H|WZJvxWk{>Y%5r@6QIU4Rz&o(=gq4<G6GU9zqbpSzJbV{LBbN)E
zTWr5npWistl$Ob%0X&<C>ESOXmhG0->}u14wrGFyY(vP&II`Yt?HIF(urDB-gE<!a
znYFAgquMPZX(=%#H%MtyZ$?$d5yXR`3oqd3ji^*JE-Tbk_S~`+O45>W9y<|K@03G#
z@;bNb;@9QJp~>1W1ZzGe{$OD&)O_ILV|dM!yO8y$<mo|(!}ZTYxh{+-^GU3i=AK0G
z=S9hGz3=Neg4?dYV;{^B{17oT<MRL?77AtR?IF~mYm8$qVI7y}1)Ge&bx!p`?>mEr
zedbR(V>hVFC7m+~NjqRUD6bn;A1N#Q+76;>P4UnByCpy<ZaIE;<7B~3{)d%Wn5G+x
z<~waQ{g(OoXZvwDNs+^EyUnpeS|V;tzD`5eAw`a>-2NnPmLc3igX$tIkLvL@2sY8B
zvv;xl(+v^3%d{iiA4OSbe)@8*+*SO(T*bUzERGz=Ns<1(89jP>Si{e(&Wl}<H)$VY
z?hdXAF-vT^#&;AQOCGjvmb=Wu(K^HXg+}%68Bi;N688lpB4SJi@F^RvAMeOwAS!cR
zNSMRZi+7L5f$WgSA;`Usu_lXSghMT!wMSlZpF|&TCn5}3QFn{!xg6O;L`T5mtGXqa
zT;i9F0ci43y057BYc(jdbVU}w{{E*d{LYJr6R{HJe~?PBe$CDy2QKP^|IPw*(Y!zQ
zB`c#7I_f$-(L3)oNZkICbRP(Kp3guq&>;`1LF%>6r_9m9KZIVFTL*mbDA~a}kywxj
zeI;k{3IAm3KA)R+8|pS7)?eC1ze3Ob(E)V?(f-y>bCP?QS1E>ZLGM2MO1hoIV0q~T
zwra-21aTo$ys%O}IQ(0cF3x0l*5eMC&cHx=RLT;7nH5|>%FKRWv+cT2?4YuV5f17E
zStCA-H!DM)Bd9UknaY;dQcY&xj2r1$SmloS>jQJgxC;vA{WgL?l+Xzt_h&AG%Wg^0
zsL-#J(egunkbq#`+3SVm_Q#z9qhqJl)5-pKJH@AU4J;)c8(VG~vJUk#9~t*OI(^ZQ
z{GrRW@Cv4__RB2i>PLM=#}qBVhmKDbo<7Yk*9_2kD)#x?G=g&G!3I`oxpT{$Ye11h
zBrb+Ek6xM3VJEGL<pL7e6&E1z+n1QRR`f131OiMfvmouCB!s4}|La@K-q>Lj_EW3d
zebt8@9B^fC)4WZ#giu<Zi>qAa`1Ju*#$}E21Nk_$stVL+>vUjwF?<3sti6!7AnI^Q
z7FvTXqvav;5UMu$rsFCa-Uo{$2Sch6^8)d)2Uf>pg<*0bRvFuRWUVA%tzf&y7Ap^R
zC#Hf#jv6Ph=UD+gsXfCmCS6}Ra0egGBu`@61|y`gwiNhgF$#hz;k}b3SqI9|Z)u)h
zL*i@L?O)tXclSI4R*=F<u5kRKp)p05nATriee)GJCYC;Y$LKMK2yveuug%^qtqmaG
z7a9#5!t(ZPY;lJS4=y;CCQ}7e9*LY??YDHDG24CL{p2>Pi5>vHxR{T?l<OQ69rr9f
zTYsV6ywf6QoayHKo*D^wUfJ#~qe$;=e`pvN(?Oz!=*xm&y{YFH5I7D$I7n&#kXN&)
z8qi%|WaVg!yHX@Cv;s(&9bqvmc*xhxUI+diwHle=>f%pSyWPlr%T%aK76MbPno^97
z+%lN$@30GkmUm0Ww#q1^EiUiPrx29bGzq1KmrANCZ3VWBlhdctD9>sy?_NxJa?V!<
z?E8jKy3v$;PB%#bBJPRet^TrGH5V$SZ@kh`X!oUQM@Q?ig6c%anHny_Ei+uQC~Q}W
zr^SeFEXpmy1Y~x#W{D0UA+TSY_glgCA1;Jksg?P9+6;QiTh*=6b-w+3>Ed2kroEc?
zd>g@@uVVo8dS6$oaQ~mq2^T&~U9`!90BA5pqc7}azad`g0}2l@{)kr=7*Wh8Km<Ys
zP9q}dvRrk;b_c-`I*4&Zg3L4VLd~aBpHS3TM12;W;pN7c=y~-Eo_j=h#Id@unxgsK
zK*_uBZ+t`Tz~!KZ^XU3qNr#+U)*fjyarSPRCtm-z8B|*LF~=#fV)_HRlVFFP^H(rx
zV)uB2Ah$B#NfUYbVTR+zZd?KG@SsStA;BbtR9A|$SJlQ2(|gJQuSKVOx*mZ4O8*8_
z9$)&6BPF^KwDn<(X1@Hoo@zHI`Pk$re6q3&v*79rly1#C3*Yv;dH%G^cE1oy_1Ed5
z^b<IR>nDV!4C8_%%uC8DxzyHuuFKw;9uN_tCr_~V7D<WdK?X(i(P9|J?Hw!2+&QEC
zJdn?V&5Iv5z9e<$EzZZNpx;y_lctf1$>YRZqM;G*TMJ3_e!pvkXt!CGUZ`;cj^=V(
zubdP%6DX8-8dkVy?;Q4|S>KYY>)el&Es>$p)))ko0kuq<bxSBEVq%lKj$_&(B5!2(
zEy5$%o@#oVZoQn(Hu4xd9#%IvS;!{*fc@q}kXD2uC&o0dA8}mEJF^F8a*{CgCz=}$
zcAjI6`3uQ+xXk#R?%v1wj#4Sj;#s)~aK{*<dQZAOk&S!OQlm6#$4vgekB8+8eVm4t
z#*F0w-YGK{<M0I+BMG$W{A9}0sTxZcZ-!U}gB@!c{T{U(Br=G7jp2jiBQBa5N;kv3
z(u9599LzZ$;6Z*y{N6Wzpg{`Ru|U~^t^TCtUT7Mj>qx&I;5zOC(4xvQUQ8{CdB$`*
zCrV_>$66!~!QeSmyu`ZsU}VT|l^HI_LEVe5+vMDt+qX$8DgmsT3dZi~_x$<#mSHjb
z#<4&$M?l|KM`KXEyow-?wlCq&!Pc33yl<b{G#_XHpW)>Z%E_y|#-u9$exwsOep^Nz
zB$T_N3e(cX2a%5;1yW7s*0e>9LGuslhjg20gkCi+!>f$?nRNw-LO&&Y`OVbSzTM>j
z3PFAOo&`y4Pdd?uXKzU#1&A|FJY9C<C;UlCMQBKzhAn~XL*OGKniPt|X9L;87TJ-c
z`(EBcOPHpOX79EDo49=`xQmwvI?US4e-bAGq>IN2pQeaxt9kriAGBHwx^^CS<mt})
z(R&si?Hx$+8|k!8!`c>$0b(|TbNSBctmT5=tWfAYr`(m%#YA->B4koU)W>VAv+o6z
zfadL0xPXpSciAkq=k*8O_ln<ojNETVRCjv#ly|?-C7B);UsawYK1i2bxAvAIvs!Jm
zgJksm;Joms+VRWZmFIvsR;`Hv-iTcm8QWq2KEnR!{AA7*(G?IOID4lDoa+2!mKO{4
ziHHt^?Mgl=^o@J9T`;FQa^-`DBvB2eZVSVGV->OF!<I|B?-@begJu`!Bt5V5o&o$o
z0sWSHVop*p&+}y&$3D!59;xpw?~Cyhh|dvSKl`k%Xw^^hBOZ|z@gpX?#}=Ynv~7bJ
z;k*BXtM346s`=hdA%xz0ZvxVLkuFsQfftn)AksUbBQ>ETBA_T$z=j2ZfC8Z>NK=}K
zK<EJkL|POnO8Z}4-`~tP-%c`_fn@K!yQe(oIcImv%5eR5fYTg#=a-gcc_R0`!7k<s
zeOvsWzBeUn9l)(eYe~O&DFwVQ0B@cHJ<w9I+tlK}&+z)}89?UHhDJh@ZqL{@J+!f&
z@Z0FwXiJ<l`3<kK^5bZ>10W=PwzuldiBvgwijg#Wm{iC((rq=}2gs$-1$n)$(^S`i
zdU75?4v6Mrw?0lb$+o+F;?g1p0E>Gxja6}7B~c-F!Pp!cq;@FRmd=pCztq6)BdyEc
z7U^7+$_hVzFE#F+_D{#@7WrZI_S<f20T8^bar|U@r#0Vpp!xUiikh)sW_@GVCu-x+
zJHrR!6|dd^oJ^Q6|GA|7(-AeotdSPF?A;Gd<7cDAb`1AV8EgWR1~Lh!F4%MWuD4Rz
zNd8zGp<irlYzALl4~)wq9NwJ)ObGx3>jY#qu?bQA6u<wWxCm<jZ-)2~%q)nOl0`Ey
z7yS0Lw=yK;G64<PcM|-=>sAeS+~nS>8+Uo|z~<-&_k@Mss=j^94EF>(0|5W=X?Dt=
zcPe9=F0|gN2#YAKP2Fx>IRa#b-xyE`c4keG#Y+n35I0XwqAH)c8Zoyz777w5kP)K&
z9GIG@iu<!bi~Lxz=g@R^b6V0~%eu<HnisER)muv3|KNuWvZL!EGD~|}M4u~ErE6|@
zxnJDz@$k*oj_`Wf9dM?T?R;>h=V~0C_SaNZd)A7wL~7Z04~>&*?zmUSt8}=!)U-9p
ztX$c`M0%{1I6mB{=kT*+xR(mxg$wn77)XnRpo{HbHXQmVrv}U2_$vH7{^7(>E#-ia
z!bH+<RwIGL&h7U)rmA5#&cI{AjiHZmJq~i1hh9H>NI{@>RU2R4wgz*D*T;mpVF&1*
z1Ze!H>!_DvL)g$)RjzpYsK>uPowwj0;qVKRb6Z;xm@H~OOwB60&#<x*cPsA9Q=|YC
zl+hGIgGMIYEs)uti>}rmsZ!9TL@$x3!+cRMu`e3gF1@d?tWy*ybpA{OaSuX&mhxYC
z{Efves^VN>EAaGHfV{_#;Gf%Tb|?ID8{O9U+PAqqNSpRF`Tg8lamz3B`q|XO@ze2-
znzvZL>tz<^0`qulcf785K2`*w^KI(MoX@N7eTX5Z(RNolK{hyIJb5wZPVJSaT^v<g
zwm;4<V7H5^u9t2(7DIDb>WcS=r;2+UTYVAN=izBtWx+pwrilj%#lFyVyE2T4f3uja
z@98%rFCy~UIt*A2b&Z577nFJ}FS5B($7L>+a$Z>|fv+o&LW}dIW9fo7NlJmy@asNP
zA!zjK<U}FxGm*NWs*?NrGCj_8vLC*x0&!>yg&hR3l`_y=XHlpMXqTFwji*d^#P5N{
z)AwBML_D=CGM;iT(kD)-63`)k2PsF4wBj|p0a)_;lhXWOX%10RM&6<06$5rRuIBEx
z-S(Y-+aFvXw(WA}5D#x|4vw#<Z_0!G6zO)`h=1Ocxat8H82A%GpE}3k_-V=ykjyZO
zM~e7q-UEKCEZTB^IsrWfzVW;3EV)UgwW#%C1rLs|35*+2q<wr^xOhAm$JYvfjFMxU
zqZm!o$0?r-0HMd)ughK*e==)hS&Ia}Ivsn*8?SB5SW|}T67?45Cc4lTT%~VQD+6pp
zZ$Q%y0V}>uQ~jG|>-duiZTHw1Up+vwz{45SuOG~-k)24FW)5F+k!uM@l<$G0;w^R6
z{oMutnWzDLMZ{(gHwSCau?{=bxi`f0jYx!4>I9Eo5@2dqKTRsVkA?_>+CYL6eSPpA
zh;TVXgN9f+iB1o@dKOyVmCi>it`yzBdSOj{v*k%Dn*hCg5<h*3-6>xSeQSz7^@b$<
zWdlG_S%Gg?5+3YCM*)GMUf}lb*%0|nR6p{%!wr4IuYp3|SIq>pZ0e#{B_RebhtuLM
zpz6xpd;wx6ageT-PnPLsrf&$|pMYjJTgOs-aZma{d9~`1TQsJP3P<%hQs2F{a&mfC
zb>geVnZ*SfgBt&NJa6Z0$Y?=-Qh;tf!3iyi;+4b4Xwr~x_km?2MXTQoELlZ)=ZqE8
zM^F`zhG<9mai9U1RXwdp4cY~wm46XecRVf!NZ46Bv@xY2w^Jj)d1^`$qQvq14>$Pz
zN2f!qfq#vEwZy!bmE3}jSj)YgC^gs|CRgL_$UPUM>DlC<mxUU*DguMDub+jtK<hgh
z$%VA)VA%2Rapp6(qgRetx!^~jgYZXj`LOAP%}Utq^bN<RY4qxBRJqm$A2?pEU_rmA
z*zF&}T?&)L41;HEl9+E7ahp34j?I6&1O^y*+88==D3V6*{{A7}1yroC`T_^q7A2g#
zNIIUUkfU2U@;{ZaHF9@pz6sxgRwfwWq@R`Xf7##%hlPfkQ)!H5eL<wRZu#yN!E!pD
zx83;Pg9p42g+*1OU*T)e5*RNu3j({}K`05wdn1thN64;#_Z~m0=PcLRnI|nfThPA)
zlShTzxN_+4K%#M)<Deu09c5s0Vm;{rE_XjzOZF^wJZlcGfL@p8AgPcEP$)VZK)!Sc
z<@ywTJ(4>~0}m1e`6V6$AjuBLW4CCc0c&O?r~>J2zJIiaOX&98)3ee#_t7l*v&E<2
zm^p6Yzf&Xv$KK^4!N|ddt;3{`ifj;d&^%#mEo-5uu5HqpmW|mbVL=i*lSQWcc7dvO
zqdd=We(Khq#thum*6^!nImHo6!5<Eqy)%jvXndb8_@dPVrBR9~0R>LZz9<SDH*o||
zVrETzavW(FsZBL{HH6??hdH5UJ%r9fw_}(l7we*rS%|xyC<eg(pEXT%*e_7fOh2yN
zsFiv;64)4T_{oMcb8fSYxl>xD<B5XNUFy2%w@LnUxOQYa^zpWSkCzpWNfN_fnYe-c
z+Xu6c7r!dr4}FIe43kSQCMIuEBc9ebTM&(m+$}kN&co;6@wB6V482tjCabS*2euL7
zSr5eB{nPqH$|;mwlBj{LRzm*kY7GURqa%6YjmrJV2vsr&1;_GFB+Js`c%rC)PeB|f
z;1-#EI=^J2^_rO1){EX2`YXIhQYAbSz}wD9)+F~ySLYcn|3kIy+xYxHf#yrT@DEy@
z-|k94RbM2kutfsWgnxh&H<%8#APPKgpmwCdl}?HK0~Y?-ku1J!7I(;GrpamBBTQ>9
zS&+vN%RIm-{FH~r8CFBlEQ{g2M(gxfM%)G0&A@ZhD8lRuv>*B>={Ft8fFwn_DkQ&9
zFpR!}uEo{S{}A_|*ve<mOb_E}jAPJV?Rh6a%A%+v=+T<{Dx9YuXhIIBe3WFXMisW5
z&lHMuJgoY!^JhEXfzG9qHtWAoMiRzIZD3AP+ie|aYw!+=u%Hzj9?cG*kxNrwHt~A1
zR4)u0-xB&MhaNY?UZo)};88CNDRQstQy0J#evd{t;Qoq?*^5y?v(qT2H+MHGsT$H$
zLSorb(sD^as61taV~Lu~Ds)0l6jpo6KPAr6jdCGh@<xaljpGL9zOeMo5}l<v|IX4H
z9WbE#^LTZ14J4uJ?e-DU@$;RX*0G0~EX=vMjO%z2_0IF3bZBjR77z+;EaIg!E7#Ij
z^a)x(&j7z2*CONicLbk7&qh!|4u8l;Rv>Fvf0&v;{~(l<HS~W3=!LsLNV{T!<BBd}
zP@B%0jdTaCP+%oMddYoh`WgLOk6419ok57Rmh}zjhaLYMUxpThiB?krYKc2N<J7Wf
z5Ajm!8^>0ty2?qvUbLpj%|&ZGBmM|Pqn-%t(Z^EIOnE1<?Qbt4yFfS2XfL!geiEO7
z2G4;XLbRrXodC&@>4BV5_ZV8C5LRy^=}=*t+A$Ob{X${fMhzDU5UK}w^cc$ijnl*b
ztWpT*yEoVwHTXF(It%zU#=hXE99fR+hg+32<K9$?(X5RqT7x1WC+D#3bRwB(mX~${
zd5KJahgZ`(ybB-#)59(|##0>;vJ&I*-blIv1M2(Hi@r4p^q-}L>xg3;n}2*i{m-3z
zE&n_P3Zg+Nk}b*wv6N9fcKV}(!E^L?^_nwo0a5p-!aC}x&aA^j{7`68QJW!Xcu;W-
zpO25Fe*L-}`HFUL&jG?JH6671-#{E%`axRTFx_~3@~Rvtkh=6#4f`s02@ZNyg^PFl
z2W=DlXi6O%1a8i<HF{>)9DEjN?Egy6%QfImyZPlrV13c|cagtj_C<mp>4E-~NP*p4
z;FbTRXR`MmJ(-8(;hWUrhgL^h<8$$5$T+Oi+(*@MRW2MYr}-S^5ep8U?&bFgdPJ`w
zwotH%XT(TMN67+U%4HTvWzGVr%&1kg9wiq;7`6Cwv?hE*6G&#dpR<BIhUM(r|K$Jy
z8FP0rQ^RX<aC%o!4#6It+t7mARxC)8t|REXyFbVWGjc+Q#bRd}56+`tC<pTHz398^
zn3l19Us7YhyEAgw_BT8JN?>x!#Xt7AqPBmNhG~awVU!2zhF>iJ3sFT8I5~5b_P;0d
zQT{*~RYTV>f%QUhB4H>NatuieFGA8rI^UbP-A_?UBhbM(&<QI@preC`lM)9(*`S*w
z8xj>MkW@$dErGdxqZ$Ai43Y~@xIf#p$g5I$Wz2cOTrly`!CFcU`T-xSP#w0`<;1pu
zv{!=l)1QGapEU>JNznE;<Y7MLp6vqUH6uh57sBAu>EUp0JqBm~#ux|ed}uLyh%%Ti
zTlC!m%KM5@GcovO+|W8FB%jp$E;HTih00?}yYD?SO#WPadBGZ--)sO+_LWjEF_96U
zr~fgwFRrYDH|2k>hY6U$J;sJCk4^_tG*Tjmwv{RtcHnhy;wS>!maD^C@mpV)e3iUw
z$!phd30U;ZGZy!&P_R9nWcd3b^rDRuc4C+^G-^{jlnzB_RFjyPO^^X83yRkm5}ePJ
zU~MLPiRVkwy4SOoQsWB+?$Fk0)NbG?YO<NW7B7a-R}(ydlfx0L?;i5-_@CMgw==Q`
zbl42Xqt%lFZm>*nFy}H1+s$kzs$=XGj*Zei060b|HlW3V<J(xaI-ou<z&0+@Qyp&B
zg`Hh3H%_{~jZ;YE!xc6Bp*VoSw6PT#O&kS~FQ7)~@KT+(qtu+ji{{ceMTB?_C*p-}
zOX6njB?Mr^E^yM`pM%Un;$bPKO#{yNvkqrD$|AT5g23~MzXB8jgr5zi{d~Z5cRa!O
z>_Wh$jwOJ(x=4y8C7@poYOhG(^fxRqUiWb;;v@~BuF`Wni>^3OkWJ%fwTHm~VFnij
z*fnTJsM{1LzMrxVW8?dx&>1P0NHorAhl*qpiW#R}l2CDiy8lhhMkpYHE|gm!acJby
zWi^%FVH9_Rp5<au%>tw~4n4TLkx<g(Vi`N1_V4{O@YtNvYOk0)lRsFcENn|6aH;o(
z!R0`wkUk=H?sI%Bm267uqs@kYhY3In-^6%HP9_28lgps2j;IYM{c~2tPQMdc937X@
zG2pI>HBNGnEzeRW*qL*aZk%wC&a2;!F|c6TsP{rs!|peO-DcCr^$AKyUE*01<M7RY
zj(~x~`Cjk!MV>d$N9ss{GhyX^3PtP7$QU1%iKHp<fCS5*QNYz-E(a!^Pe?gBkCcbS
zsAJQ0eBT#eQxGN0P_Fn$rsIEQB2ac``ryu3h_}GUmh(xzKiBAVB|z}WpCgKWb?;zu
zxFtyqsah?wd^#37076n?1&EmS>@a4e19pyye4S*8r$kCrn~v&ijJ(5Hj7y8i=J-<v
zIePoZ&g`Ru#DWns*@>H1E(ri}9pE|mqX=0~0-3b5`Zjdn`6E|y7GlH?ye`Txiqru7
z$`~za&vNRoNeuyUWnR&*EI!zKj%1?@y)hQ*Pi02mU<v`Yd`dok6~2-Hk9sl`>O$Ki
zimw{9+Xf-Dm%A<um+{<rg{L4rR<o-~e`gf~EOq<{NeJlvkq>|R>I|>|x7Wy8uxg?~
z-(0#@^sX>hpHaP+3#mXP<V3Twy$L5ccZj|GEq!Lx;o0|Jwq5ys4uSj?hfv!*kAI45
z$;k(sE))$-teTP7N%=ULDcKGF9WL_#RHU2&^?|$`F`9!cW;N0k9kZYm9s_z#h_+p-
z3yC3J_MBrJAe>umBi`P<ZN>tCfyVk@hK5E)d$lN4EHMj36UO^Ju`NQSAX$li#hv6%
z7T5pkgguwz0BKqu*_J-jgQ2Z#LWCj;Op@4$fokv`FjkKoCE*)+G=>||5X7FpVLYpU
znaA)mbv@k48V()gCeQ^7ae<kDN0Q@~@ld=3ehDv#7X98@@$ikU(Y;SapdfjKtP`s2
zK;=cl=5PFdVy_LlstVT*1T<h7KA3Z;Xso<@38g#qDW?7Z$rmV`3p9`Bg~gni(hJ3+
z=$nM4^_O}~4*VO364i{>k%-xuKQm)p^>vB8O<ztMmv4|(@uzC2yXK_Zq#yMg+%p!x
zDCC%CI5oKK?sr8Si(RUsCeH!kl5N4EAfVs#`V7@4R~SikHxMoWq)DPW#7z@#KpFKH
z^vQ2A{tBkz=6s;N!$3BF%9<{Z{j2e;|Dh57`B&80^WN@ri^;vcHVLwG6W$u+;;5?2
zq$HCS9n<&VIRbSyFU?dUtw2X|=1$2tex?GD*Grex@Y8~vGqUiWks~@$UcP*OzDSko
zq@@#-ZvCt<?`t?v15#IGU(m{7M|;GwrOR<~vicHl@Ay^av?PA`outlTp*lP)CfgpC
z-#z8Eb|yNXFPp-qcfXXi@#b?;ZCV0)K2eMtA0b5WXY~f~y#7I3ZEiHPhg=_<>~WL*
z0hG+~YS`MWv*(JP<0WNz&8<MS9Hac%bKpk;`6~&Q_x!wHb=Vxf?@>{+22@qA7BwA%
z^JMG5_#8V80?`VFdM6snnbgEJ9+Z}t!X$;+>c4r>LhG-kxW}4ps=_f7@U5V^$oDSC
z#Fu&=+7t1ftk1=_bZRiG#VyXvK92!!u?nAFdFc6aeV%%C(gnyK0nF6Qmu!@U`U%y(
z0K>=#4!P}vTuLDBgLbZyJ7|_4Sm7vun5O1pl<j}mp=kL%GDb#@Y08SMD!TB)6mY)Z
z1HT{CU-fZy?l9SlWAbl=q^T|yWm$hv%#9NRj5-;47<{j{cl31F{O5r?-|R0o9~iVl
zgY6&sYq1<EoB%X_He1I%(e>++<ac`2)n+9I@yw|=>0#Ja=&GR!yOA^OGWuLj4ITBF
zdO(L0SOnC^?`&)&_ii`*bXZey7TH<PDiL+Q@tCpNXFB0N0w5d=0b}0+pME&=Pmbit
zD+|wiy%KIq@vY+q?o;{-dXP}5mY@l<Y=f_|Na5rYFi_-m%UlDtmHz5xPP$p>avbGR
zcUEB`*3aGQ?Y@j}LVhIJ1TIRGyIk#A(?Jy|>sJ<j7D1Wu3oh|&Gf;YhII)qQeo|z8
z^1&@%zj^V{Ds_y3e)1pQ*?q{C_gB6$QV})|dcZEnRpKvWX0(@^`u&N@IRTkL@30&1
zo5wY?!^~h3iII8*%E9*T4{+0J+B333da2*s6gH1^vahUD=XPBDYH1br)%gYBK1|GI
z($1fvkEVrpTuE|B-Rhn=1Pw~9AeLO3nkXXKO0l&)DtF~937%_YOEE1EwuC}a;SuyG
zk*%PX`@xtm)K#tHV}uAkvLlI1T4z$Av!m9Yx)bUTZ->ZGnt*0m_Fh0-K<(7pyd{oC
zdr#e!qw-1LyGtnEm@OVearPKra&}>$Q(rovKZYNjro19l@hqr(Q>5D9#K<STvPnPQ
ztFk)aBW_>ZkRomUv2;0*#m-ag2t2b0ZItM}i03eyrSm9z$(9Uch{UfgexEw!^^Cwc
zy~m6opA>j({I3?kr0&qr&J8Vtwa4ywN=C7oQ(u!umwih*<7ab^gXrb#{_vrK6~0g1
zU3bj$_Zh%Vpexbyu<6S08>g&fR#I<P$&xaHWnw<~xhO|th=s`K9srx2upS8H&>{-E
zey9VC&AD4~K9R<4!fJgwcW0rE;$If1ZK2Nt*-mMm_{0bbM$<jvOgdJY*@5GB-|Osi
zdP3D9iVDg|S9YUnNNC=)AgtLjJ(eMYwqOw10CL37Z<Ovd;sd6wgd>?XCC%SJIB?8Y
zF@atbsxiZ`=<y-tB(y<J1i#T7<z=B8b^F6Nfk$DUOgo|e1*?X&XZ2TPEkf!NAn}YF
z-cS8>Xk;jUVy>We!#IJ104zaiDocEVP{ZJ5d_0rCB`5;Si}t{Q$eH?Yvc_da2HlHF
z|EVd(H;{gK&oJIz;YmHjz_!vpdSwk*q!PyVHW{vgJS6drjOOc%&M02fm5C&oIu5A=
z=7MeLY3fmnZ<#y~MXiVs{l=`qatiW<kw6Cu<@&^VWSBJY&V-nvu>3;Sr8tb^|1V34
zvlXlB7^Ekp5=hyU#q<@AmFU-<2IulvfYsi|TiW0LEm+B?Ba`tMC~yCFVCwKw^?s||
zZapABI0IkQ<+B<VBL;>Kp5%w%$VHmq;rDS<zc_gkl)cfk!Mk>#ijfAwtP0`-dOFy+
zb4dzy4n#BgR`>C{k3**ydm_r=c`nooF7>U5#5g`2TkDR{&zQc1dDz{j9iaP^E6jZf
zk0Va<O!u_o1F6PcC}tqB3@2p-+Qg2Q-WMM_OaNy~s^e<eevREHyt5JZP|2a+OHa-)
zO=@CswY^9%Azwzb6#NoY?FQ1(K+{B>D<;rZr|<dUhO$Y%eFI%%u9FnkmJ+MepsT=M
zDx<6`p0Lm&KjxO=o{i_~)g0uJEWQp!yGlrWfOv>z3vK)KAnBOjmjfTLJ-RVa(+O~3
z_5D0oWK)aa1U~TItpcUCwVe&;_m}&IXJZnGN!Saq0$o6D+-D&uOoHUQ=Q&E={$vSE
z>}uGu@3FZ~lqA4VJX=1io)g&=o}_a|^B`8cUSMd^HkipljX(i1y#vP#OoNv5T6I6k
zccN>);DqHs6bs8IXfoggG$042C;<<V`i!IAn^O{`EO;o6_DcnVK9?R}w(zZkvd}FH
zYYCZ;Af$X7k;C~pr`(S5nM-)lPKda2+_E1oB(h=9h{5gzsK&D9GW2xjHDVeursZUB
ztbwPzg!q6K8;)(@c}_b$4d+FF@CM>>S<IQ&1n#v)6<`xCBPLU5(JrL#>uT=js+E`K
zeWpR{-lPH24;13&Hcl0X{>g_(-Bv)T{kW&rdO{fJ{F0Acx%g6(^GFeQN(n_flHLb(
zwl%(&E#}oVj)xfuybs^d=858sn3+s0H(&+N#XTllkz}y%gHJ1>^?L^K-;Wz9nR6S|
zZs}kJ4s_TA!6QO%Cm3G;Wusd&g`PraI9mQ;@aaz!5Bhtjb-=!{c;5Ys3V%So3m49N
zlD^Nk)3!3kem0qSy`GS`S#^eU-tpL$?Z=a7*hm3xK;=pP3{_;xmJ9ThhotfHH#f>q
z6wZr?u$!q7p1GGAV1S<R6HA|Q08FMD*ML19h3);Kye7j&V$Z!Q8Y!wUk=1F42_+0u
zri!aH4uEz%ur8^urP5m=dHUVbvPYW#@hDZFZh+@-RRnLzPtEe~@acIq#cf3dI&z@h
zX^0@#N*hH}(ZLwcjFK|?b1@#u-2iMK_?+4@HjM*D+FXz`;S1=ebB3mvE+jU1VfZ0o
zKFC0}jdfBSF?E6ypgzq{*rIx}7M-n>m0nJ2-I?kTZ6?Kc+{OIjkwj3QK(Lv}?|c6v
z&-x4=S3z4hA17b~r11OpSe;vf)z6b?B2!T80S*`34yC>Y5_qWijoVJ+DjvZRa3jLu
z`GenhZiP51bBD2Cs(|r-ZN9Hj^#DAlxrTL<A&%l1pwo@H9|RY4yX+_*Kgel(8x91n
zYmy<2;Dpd6%oaA($f_|?qeYKO`4!SMk(;_p=pO)8zoHf1eoJWya3N>yl1~6yo&A7@
zY)mpkijtM8hqg{$cQ+QMY9&bAhRcr~$H>nnz+r8KJg^6{e^%`zd~v6O&Xp3!G~lM-
zVRO7XpwSPD1ixOVZa1NXHo{%ZlYkoAcY5eZ)&o6?z{elZp%xdJ)Y{m=bBXa*y1ZN|
zhY2Dacf1uMAlpg584DgT#mvVEnsXP(DKs{(d4>R-_#nL&I-!Yqi)J<rI*Bv|t^Hf9
zl^7|0(5U}4T!9w<P$kwY?Jpzw&IsU{ps2>rg7&MwGjRTcxwt<q0afrAN}qfnVCB|#
zYsB=ptf$6dD;S0<D1tg;T5f*ds@c)VW8kCNb4_mrH|P<aNCDs=_AV*(HhkyG!uW;x
zozAC(Q$2<ABt1GCm$2dOBk8aXz71r78eK*E_(Aj2v?Mr@U*R$Pu0R_retUTws^3TN
zn045Q09Qy8Wz-kv1v4{GtKlNklcHQ(6Vy4qrWWLxJbvU<-DG*XnHJ49<nj#F3xgho
z{7Ju|?&CS}gHJ)&L+)XEE9^Kd<`|&qty^UO^0?2E08XJ8A_Kc?78U5$IT06(nTXd9
z|6Ez=atk_K25Ft@3r?eORJEJFa?&VN0!iCTE-JMemB!WYO&h3fcM#kYH>rPh!4l_b
z1j;DsAo636`scwb{QJbfBrC-jqjXUlLdP7;W;3MVPw!ORf^WeI#eofe2C|T$ubKRG
zw?-?hK&yV@qYRe6Mt^@5FF^Zj;Uq2%9|k{!A!&(q;*dI>8LYvFoGziJ=X;JM*mQbI
zVzLlwmV|OeYFwjS^H8`cVd1Honf|U3rMeZl$wI|xurCbId?UDdL2#%NN-0V&wR0cA
zon}Wpv#0yV9;h7w+Gl?Nn#y;=LgPp*2%UB=xoF_X5lw`CI3GD}T>h<n_2VC)?Lxxd
z?_=yk21&l>4VMI}KNP@-ARA8=lsQe<Fyzot2>M3QeOV3^M1PQwcHX0YC-ZJH(E_Q2
zAQ2DIZS!3TbSsi1iargPWLhFWQY|qK_PI38QLW`w{3qmKkOx|w4_5JBJ|60mpO{cf
zyTw9N7j1)3tFedd1z^{Zi-fI%Z|oGw>lJ$Hc&<pgHs7+$1nKXTX-{#(sv_1A@c82k
zgqs~#%ZYgg`AP-2j?2%})4z!F!5+3Smr^^y4L*8f-B5y*@Qq;P-K4xzOrI%|6KxB*
zKk*m|khf>R`6&R!;?;@HNwh0HzwvsQZ2;ideu@Ck$*a_Myi!N&F*L|G5F8jNb&>+?
z-`jLrQ*}^t8{i*EV7Ae>sDG|*>&!DIS-{>-(zgU`Yu0Wd)xc2vF9t~AEQXa(LN%s`
z?xX8VcsNVIjC+!MX4~1LxNe_-Mry!Ics_<}FpH!*jEsV%;Yax-PebaJRML_F)B0N7
zqb2U)28rbFvHXm5#lJXY6ky+=4a0LDDy`8Kw%}YT;K>6nGHEEf5v7y9BNM{y-*b-w
z#puj?n297s+KNXMkE5`S37uUh$ZAjw%%}lG3((h5q8k6Hv>3p+#zbJ_nlZ;eWG3I<
z(@u!f4Osp$?|c6`pNhXSq!qMQNPr5q=Huhx``b^iqSfz#PdM>1kR1_XumQTZx)i^v
zFGU>0Kgy}2@udXop&EZp6${t#_%o5R>Vuz_wm!m_-P}^f#?zrRQLfmxa1{F&1bFm>
zTHD!C>t`JoR+ej!?JDM7shp@rmBhg=1!m1&!VPzY*4dmBA=J7(XRx4AHYEsqrEhR9
z28OZV?)v^pnolaJE(GRe^ehEPe8Jy9<6*gOiAoG^2=VQ}I80DW?hj2Pj^?5^E!*$!
zCI5v<%m9%W)LJ`rmvV2r%Q)+g8rFp&)&Si&C*%*A9)&RkG_^cXtD_%4B}%Z0$BXve
zIEJ?PsUFh9qGXABhTnv-&N=5>s5<+FkN1&(D6(Q0BGaOZ*EKD9aWa(3oCeEsW;$#~
zxf>^__s<fWs0IM3V!k$4h`>G$^trPFl##yv?oK_*+M3+k5QxITPHT$8gdXYm`aA9o
zvE0qi{uU@)m(*65%$h_PxiI|dLrMCEr|@YUDUK9rpjigsfszu1Z6*>gDGsXCU`TM~
z+?d^Uu-ZQ>ngr_K%Jclu>ZLS9JG8j-ecKDqqDT#|=;pfgv9(rMHXPIKyJ@ZElMWj6
zT<`{#fw#yPl)dAjTL<BTHwxa}9FALXVzQ@+rQZ-rpQU=0W@y0+kIIZO@TVYJTZM}!
zH|uZQDhQD_x(kzowkKB(`XR8937+>X-ar~Co@&x1w;1?Ze*4D~NgQY8Q!7+CJazFS
z&bkl%s`1iedcA{q%m`bKnP9G-4jaldxX%40&%n-N#fX6hSbLIvmJrna^wteuQfjr@
z3NN4)4ik3YNbX}nf|DOoM&A7EbNEyMwY<DKF+ewGH7vBkG4S@vZ1GmnTZ|CCI3E0o
zcfc*j1)S2hr!Ag4VdO)_8s1yPHRCW&Zsky{e#IwB5QNp*><2#dG@&HS>|=aTr|+$P
z2Pn)_Z2wTRd*ALZjG(>-;Vr(Ej!E3w$fYm&Y{kEDup}UBcOPDH^?uWz#Sa{2v?gK>
z38~nkfs8Qc-;U@PGiNDBURbRnF8bRK%e&2BmoU*A^spKTt&p4I%%@L}O#U^hB9Bb`
zpsh~c8c&D(dic<B!Hym@z|mroSn4R+Nckp}Vor*{b-(0>v}W++1m1z13Qa&`(<*QB
zrW8rcvQ3+jiJr}LbALXnC)?mlSz~K&ZXe4ks#EY@4YhARF~b^6<~Bb#M}*0Q)+cS#
z)gI1|WI1Be%D-9nO^-F#^QGT`HNcmiuJDiE6AyJhTIWzJRE|UI#%%lIKFoX@kx%Zq
zt5YJN^H0>_=H@)wZ2ylRP1?uuRz$dtF~c<=`FS*!<)ee=rH)raJ#4uTLBA_c9&WPY
zPU&PP$)mrd#HjcDjX&1-9C%3qSCN&kH0i_Refy9kIT8e+T<HSYC)KfnhrlPPm1CTZ
z{0G8hciNh8tWp;ICTsU<H?+<M*o%P|X_*9XHe4>m=ORyN8hh6V)FQSH+H+!{df{;7
zY(O(2$&bU6pzShTYXPK9|Jcj%Mjlf|c$IAJTB4+}Ty_-f&$A{XzEt7s@A)XHOR)PY
zJr?&?Se>ATY>%O;IprQTHZ@<n-mRo}fIs&mfM|6~>Ql=}QD^Px@LXZ<CF@6i2b$M)
zwCJeh(2KXxB3lF;b4E+gIqN$`%dan~SU<G}XHAM1GgGPxXZG;sZ&=?)(DT$}^uY4H
z*=l&$W*$gVB@WQNjj(-m*c<8FT=62N!mBy0l)HU(U;66UE1U4Ew)-k$L2;|cXrA)+
z!Xa<coOX&2x<TAR>4ju*QGYS|(EU|q>T4*zIAaESt=WVctK7w@d+YocJqg#EQ>uaU
zD#4XcBya!w`dEJRrM*fC#SHhf06Z3|0VTc<(92!M<>LAA_IP=CL^`kyAk771l^RaW
z#Fq>G$#yNIOXP}7oZm2L_#(-l?t5!kUSQ0_&|))^j>|(BxFDk0BzkUiwyaT|V}Np-
zm+7uyUaNvr5va4C)JCzOWY$Xg%9H%DJetvt2zkZ9HA1)D*xBfyYG7BZA%Dr>(h5th
z_kw?WXGGo=o(WFh871Mvofqbo3(OoGD&h5a`otNEDSyYj27=}yYrUJs=UKvK@kw<u
zuh9+1gaL{erUK^AJzU5j@*d@($IAp}J4i;_!aeOOKQ?3Qzb{IOWA-S$tMj5kw9h$y
zEI>cJi_>x4Cc}_CC;?RZbb_)Kyp{0|JRU99)6AW*7%+D&NucPC0PIqubFLRf&<yRw
z5$l0Az(Q>jbSd&%d`{d<^ji)$#FU2vzTF|!ucM_ThOQ@BB-(>l42V$@aXrQK4V@NC
zSrtDi@iDH3H!t9~s60(y-F?IJ<TKoXd3KwJcDKsxOH}3+fr-S}YKP}4wSTa%Rt|+h
zq~r59-k7@_UfbmtUCO>W-fQX=bcxVc@;PY=cDwCWYJXapDStAd_t_QIAi3Z@`}H@!
zSJsuwwzTHv6J7#=xx+VTw+O~=TU0koQjFd`^8Pe@`^ne$#+!Jzx-aLDUAjyIY}1si
zJ4c?8_W!IB5^XW(NIG<(b5b9$?Ef1qn(_`vkX}VE=Rjd!$@gCLd$XADCtS<{9hj)C
z6Yc}V25y3xk!Xz{!GFL9seedMlQ9sRN|pPJm8hd?-EmHXtsBk2$nj-!`FEyXl*_%J
zBfU`lw74=@ymPMUsuRRls{DDIe$bcsjDTe7OT&Zvn5x;m3!h&{$lE0uv9<JlLRgnt
zb7uf2z<qlz|Bk7l0_Iw5EOeK)ZzO)+m|eo5ybUIGU1rEYBo~`OaqaqVzL<^V>zppy
z`yb}AZ%Y(P_p_WU8N2v|@zTm2Mt`tp=GNhpMuk9OW)ST?r>DslGEE2s-yTnS75D;A
zbOWb#-ojNUnuC0q@CicSn#f*sTH>tK?2tJ`9HYbgeV(#~B8qFJ?RNYNslU2&TZw|}
zG6($&+|P^6;^wrNCVXY!A+P=2di(?vW?$?YX*1=Ew}hPPr^D=N|M+H(jcxn}qbEON
zFC^NQ%lMn8=6=tVU7&7cdo!Eyr5yFutGGV~W_<8iz6}jLd<nCQ3BgL^5A)ypy`*%M
zW$yZMk4MZchF*kxgH27&@3Zws|H<nzYTO>NI-g$|iV10gI5d`tejL^Xbh*HXqUMyK
zF{i1k;vmzzi>At7>fhSa@^)WV$}dDz=ZJ+?(A`R}f9`L}$hc@^-DzDO9p`xAvW5-c
zkhxO+6ll|;$o(pJ>6a9IXdST(pZIF%ZKSw@@Hi?)p$wu6+pQ$v`sS`UU-J|ApP*1m
z8(t#KPCt<MnB4dDKOU1g1V3yFDRZUwK3L2SVSdp@R0e6XRydt_eSXNJxFIQVc{c}{
z6`?-Z(1#cS9SH<>@Xu*e)$(M-2@DJ&BPn-i$a+>kvgdk(TNwQ+%b)YGjD2#3E?>`i
z&77<8W=o1AO_g;05;tddrZ5LDr@g=1lbZ;!yQZwH(|6&jG3g38{B00l#`|AL1Lg<f
z4SHh`57|$|y5H&D-B*>oOh%2l_Dl>krl{L~|3h8DLagu$Zx9QmZj>RK-7qM)lYX-X
z{E>&$Zy^<X-jLQUHzp$=&3ltD1dKuj@mH7<!-hYVr{VDhI}*z~i`cp2HtGKa;t3s1
z>ODMf#*N7eKGREYwL>i528AwPH5Qmqcy>H*wFmw2e3SV;hyUAi=KYsBuB4@RN#5dp
zd%MH<>pPI0$d%)(>7QcQd@$j**q!ptOsfQSR6f!8tM-IRBU|65ZmYE{L_w8FV?=``
z!;sU!f93?i+*5ITF}+(A=~uViX#Ww{vnrhM5ZF+E5vOlXE5$LIEf#8WPw1||nCd?o
za**ERWUX%3j@8kKHCGA+2vN<6)9Gha7mDf~beH2h@7jo3r;7f^fEap(#*~}8x>AN*
zv^&mFXJ{bCPyF^L-XRKQ&DnuFu&b$L_ozzncR{ECX6pIYw%vc0mF>AZ-8oF8Dpq;1
zxF~=o82$2cTLvYRiTlFL!IYHH@SDXwnT!kO)q^!{t51@YMdO8IIvX&aTfF#sh0_iK
zA9Th2!i)7H2a-9~3*T8rDA8lsu)9iYHVt7j6XUSGW?07)E5S5fpkKo6RN`YW!tI1`
zCfbSA7J%6@-~MLrKiQ7opVuml{%-X8HB0Mh{2>Qwlgmuyy)i$XPVUG>C*Gg<?`_)I
zidHU<?lN3;|G_%MmS$14Q#7>t%Q~d%TTshkPKz;}JXNy^l^1K;)9xTNJ^g#j8Cyz;
z{3;{=l6YF$9&p;_u$n@S!(uKNpTreI+An$xd(1CmeUYAJ|2fp#Pks$pu|$=bP|Vf3
zbE*YCU7cXvjA`jxnkuP9{Z8nce#(Yia#C0fCfB9^ihvfpz_;7HV_q3tw!rfvPpKvZ
zKnoIR#t*t~LJtOc+?j05YjJYm>(@m%8prjG*~R=mF9OGQiM#~sWx~4kGrK2`Zl`o-
z+K#s$)oCl+HPtO6sIIaRaJn0EbgOkwsT}cs82kh4&K4}UuLEV1o&U{1<)1}!gWEY5
z7<=xRIhuAEBbA;cYZ)&v|7QGffahv_mNvP3oSD49bgN}uE5wxQ{=)eUReT?1)|+cI
zZgajQ2K#CrT8}iL(zck<-(8*8pr&X|$kg;r!hP2zg+*$On&;O<ZU1w&9y=n#R8<Cq
zRm>?R1N>wpd#MpJ4r&CgvIQePVwa0Dm`dn2D0bxB$TU%g>1Hx&_A-)n#!UNcH%rPm
zH(y$N)Z0{i*`mdUc=Z3gUg==Vh^Osm%6ys}QPI?r&evc@5nRXqvB+5E>O1|IekP{O
zm~uHVyXa#jahiR$a|4oJ+xW~JK5z^3WwZTj<Rg5p1zmq0SuFs|NGi#Cf8w5iD}fxU
zL}ly$c0*Y&RS0+}+SR%mv)qd7C{XhF$az@@FmHK}@jsXQ1(kYYDeQDTKIYB-`&TxP
z9i*f&S@+w=>`^_8`sL3NLBXj{=@R4|sgDY(3qRx~zPw`nrEgJj?9&Z;kFlJOQcT-*
z{pqt_gFKBvj*g%=adBg>$8FcPZqDR)c}$W&&(;4(j&MJ(BPKN#`P@L{Hmio^bj};<
z%|2fPVdm~1R7=S_3VV*~Rd$Gch%V|%dvD(R^r`9(%SUw9xN@=3>w(-8Z{v*85vPrP
zdLIxtgYngXFJhs^ytXPr`z-qx<LILVQ<35YP_x4_34AQqM%rVY<Ugl?0)Ksq@@Oxe
z{+|Jpyrq~Y5=D>Feu6$~6YQO*EJ?M~ej~q#V>9ONdIJm(C0Pupr`|X_NpY&}x)_K0
zn0`3>yNPFUnM*g=Cbe(37;`Z`fqSX-m3GP174(^ha8h@V#81;L%PuNA<Ujkxc%e?L
z&`rf2cGCotG2SLHWG^&+FJFl7H?^%g{#I4qiG!4}mo@C&Ak(mOOwQY&KD-^azw2%O
zxgko|PfwUzfg6o86^#NAO5Q&Tc@%ROGn^|=Uf#$XOh2NSbN#uabWrXfBl)q!j4z{G
zT%0LpY?gI4MU~X8eFt7?$7gR9H8}e;Gl2GBFvpi&`ZgAJ#9`Ku2Z$bdl*fD6m4C#T
z;x2X9T;I|Cf!$0tCx20;?gj5lO?6KU?nlzA#yeAH9YT}|0*m(|JPGYGY78sP>Ok)F
zF{I{+<mGv5jIDJZL=vtBiG-F({;<1!2~L(Lk^W(H*HBLHN&=gvI2l{3fmhG1v8~gb
zW66|$EnFzf)GM0SCIbm+q=<yY&+`g$QG2>iZ3&&!^E5u8y5wk$wzG;#ueOJNdGXED
zfVuIBLM_!24rVOI!RuvhJzHWbqDsr@ZxopK)0||tYOri}!Fb*%h`ICWw}%HcrYykd
zxrI)f=tsL~S<PSl6Z(Mp9G|7!s;a&{G*8v{UeiAz&MddEzr<$ZW#7z<PHOPo9uNyD
z_<)p1I@XqnvPpJ6q#B6fZwva@#6S0HH7wLo1G@=bUt6#@dk2eJ7hK$5=Zf8D(Y=S=
zQ^pJ9jlQZA`tk4aWz5V91L28-$x5kZH`MuDM#~N5u}>sFmOm%D24}LOtFDA_W{WU9
z>P`+m{BYCYX5}NIBNa9BnaoI>*U^b`yMSlj4?gcKx;u6V&d;ms&iUx6se*8$0UM&H
z5mn^v_YZ!TmC+#m8b3KvP&Szei#%(D?8?qQO<wZIxhYs1a9_NTm+C68KZQqaCaHN=
zSk>kYA6I^$R|G`_#g6^U1kNamPE*p)Wx94j?|(%<FXw5Yj<`?(T?DU~OG-bK>0N&A
z42tbV>%_(B{_GG-!Jlq)l3I{cTJsMtYbY2{{o25GMK$VceQX{Dp9C?DMEhaK%vfCj
z4n5~xJ%^zWJWl})_fUAvbD@MDn5!4QLe?+?3zJ_c2HM*MNe-_a>7L)rrk$v2;B>ph
zU2J#4&&*P%YhYf#$4Z`pxrKIeatz8v?Z+MbPD?*#YfQD*N{o#b8qt5mLrkc8H%0GN
zUj+n|-VNgs*aYS<hv+VL&1KZ4vZ6-`TKpW<DJbfLZ2eK%EpYO`QC{(R)18bTmo~x}
z6HK#(%m~p*9X+n}1(yYb)|px?RLAPmLVI=?$%p%wwZ8^n*wc^kZg@TttQ^)PTm^~H
z50O)S=zZt5($}?Y{4_e*mNRqk100teo1lGdgJwak53v^ccmswL%Ool%&_vl_C<_j)
zwnB&I844irS_8N4TwNx?9rY(wsH$Z0^+w);uqY`a#R12F)@1K9$&W&Wi%#&xr`OzT
zi8v}(-{wQsX}jd$YO%;}rc4W2tLfv8ioSayfyTK_dMUu6ftlTf@!db%BLZX>ZAxxa
zeD$On|JeR4Qz6hVwfS1}eLrbocGmb~z$_|XjC%K`*x}DZcR7~+#`Tj6OMA>C=htOr
z`jkH)T3A!pRX&s;Z_Y{MrSbB}1qQr1l~-aRn_mNafu;Td^~*WXjv#w&<kH*P;ncr_
z2sTxSVJq-SMNTm7$VCbEITeOS1~iOy!tq2<i(evMpue_iKP2c?vJG@5BfTXPUGqtY
z=P7s8h%5jKSnIvH_7Gb1iSm$`Fm?&hJr0f;#tdH4=iU8gOPT-G0<8TZ#VM4*l_AwW
zN&P2<%dOXQnt28qm`?7<xqQy}fb5Wt`;G6+#H_x}4mzR0PPD{>--2+B^YVb<d2E#1
zy=c75q>-6%O{U3dCQ)ScX#pKrb823~T7~zjOhdiX@$IFP?jPGr-a4OO_B&0k+4C7w
zX$5O2ClXZ*aV!J3!}5ZOkTKa$B!dTx4Sb2rx1wmW2TnbBl8iXAuTFTp&Bg*JF1Ad#
zy`}05w$_lN3zECEveKGje(9+GX#U$E1p_R?vQhCVA(n2Vw>(<(i=JF*+XKrWfeEuS
z`=J)3U63bIpLDKvj>){Yz#cC^=_?!YKyf8QK_x+n+zyi$BI=e$^Sg3hr-^{?!N-Mi
zTjJvSTxfxV8CeQ2-gd*le!U%rA~K6z_wydn9C4CwAzjLW^lp@36qCjU)3P+sDM$_y
z*hg%XMV&{9VEM^BC|(g~uc?;qUZv@*CGD<?#d&=A77;Pg1@Z!MLSmZQIl$`oXJ6oQ
z{K78_{`u~w*JcfkWzb+PxNFpZ#E;`R=#bfLgvuF+v_}dZ$IpSZ37&jrpUb{Y%Ek~^
zp)RJn@8;nrkT)iBWR0)%2jb)_wiP+*hTKeN+{cwQfAXG(f;?so)S~*cSDDfqa(V^j
zBLf}*l2gu@Ry{Am%u4mDb5!9G{vEJ}x4+rs+qfVV0;Yyy4o^sF+STldVgQyA)QhkI
zMf_f@G_4bxbgx8(XQ=W|BSv>C{iT2tj}@VpB9i}e$PQD?=M6y;9O^9;k-2syZ!mRI
zwNLu)$f=Eq$V9#^e_4U5#ibM7BQi70^cfuS@1A$u*MZ(F9H=Wt9L@Tlb3J9cV&wH2
z9!07Z3k?p|kYkFW|Fp0dsX|xwZM?Dpa%x3pfVJeajw$;<PtKRNRastix}q5Ee1@5t
zd``Rb&fBzG-3bMvW4g$P@-8PiiYub{pXY5VHg0_XA^AQnNi*18)gvvjkc;P}ACGC8
za`2O<IDB$Wu^T!6>lNasdi-oj<uOPJ{u16!i5SaX${$(28Od1+VR%xx?VuSle;|Zq
zV7?{Ve)roob?~at#hVRc1N+c4Q3FO^w_Q_6LciieHDplNZINj^HIU$N$jqsb>#ISH
z6)?$3OxQ_WT{O{K{J8B#+-7CXF}k(=1yjwk#(m6-5Bx|aI8MBwO<Czsc4E8oL*S|B
zr38_vQ0h8L>j6unQr|a&#10<o`5JhsAxlrmSoR5AH9S0g?(_32me8Tb@vXF@$1^L3
zC!Jc`t)Z+Aj9&ynCEM*15B15kxW&yoBhgl>w5_!Gz)Sh^jhYEbDS|L9=m6*1Pt$rb
zlf+hF@)ySDY56D<fu9BHxv$#O2v3XwjPhNZd^dRRL6EQuOEKP&{JN@q1EpYk(br3T
zWfyfQs6xnjB8d*4x83YxYrL4A(e0cHGd|ztYGZQ2K|RTzgY9NdM1IYom<W?P+KK)d
zK9yuYG1M0oz#T=MAym=nlqB_4Kn(Th*WNQ7z(7vCUCa3uV8M+oPYD!3X*VIXFB5~%
zsXc_XpqOO`vC3a%3(X@r+FcoKhxg(M5AZih{FGyt?8x$D0SqY^*ZNBA{f#rw|J?Sj
z=UxE=QL3y#HzJlsi~Y?md5*Tq>DyA9r=lzvEO5<!K%lgCmDi2KZoMoBJI0}<ddYEJ
z#<OPVh2WK+ZE2E45w&H~W#3nSFoIS^c>Ylik=F(vFg%fX1U?e)4}Ocb&F!1z{Kj)V
zT2+J`Pt6>+WUk*eYaGTNX_{N=bL2s~p<XJR(?^nTsogT$ry93UAFtC}OaHQlcS`@J
z#f#HfDtON<94_D0+zC0v=?;ObDU{kC9L7}rnX*kd{O}C&!@a>w;oDPv){q1(ZfZKG
zbi3HrmAg${yXuSwO@7<pX<U5TCA8_OWX0)bFkYuGtkX2c=TP`7W2_pvSLE*FX9J}=
z(?NcIhqNKGN<I`7^3JUXn=*&D%^$%<<Dn7SWU+zYzQY2ziLBIXngdRw_3iO~Bo23)
z9lnAcI)o|*i+cZ;C9)Rkchc-|BMGT6Z&+FaEVRE6Go2y`X#wGAH|`?$AcxR`{PkCM
z;4c$qEX8Cq^4?Wb)n013Wa)?O9YN3YyeVpw?tC+lxjStg_O`fh(bnAJuGuGxjI<g2
zZx%(qjJ8LoF1PB4$yB2~zi%W97wC7nvr>0~e`j`UD%=o2c$!f6c9X7|IGw*ga2!UV
zB1pkU<4Nh`lFg+CDuwM(JrhW&*;~V;n2-To|HYq0y8frrx<p0snSXxllml@*$>+vT
zP5+I@YYSYusr5Tm#Hj1h1qqG=uVepEE7lw(Y1J7w?4@-;O@(+qjT&E&c*g3Yy)Y!m
zZ2UY?40~*Ocj+`Ey+D+?1(&`Jng=z&Z}fa0Hm2wf5={&g--q;q(!h*f-2K(*Bt9<*
zQn=XnNZ*HUJ&<+fyT3(PRBov>J<U-5u<F46v<7jkzehD^2}uBXLax-61ZlG<*ry>P
z(WfSF<fPo(Z27u>k#y!CSgwpjypry~E3ia4Iy!cE-_c~S6G&b7u|E?!%qvkEwMgZ+
zxzBX^@Q}IV0r*7GuD*sf5<`ACmk_&h*;g%+{>wZFK@-97C63|aYQ_t(eJ{>POjxo#
z)!e+$kxG=Qs12*DokVile&VXGUPbzdO*l1|rlFBjjDpqp7%eOM0rG_5<XAzy=9CQR
z(B&?W(HUN}r_b=Ea=jR=*0G2S3T`|;X3jLc5cKk`z}AVLLUk7Gjr_QtI9LpSLrDF8
z;I!CRca94%S5{BvB+*=r8(xOYgPTOVX<`D`!*`}3U7buEDiQn4L*^IMnJ%r!5z}Y<
zfvuW;Btdi1HsB)L^h4r43HBf5Fn>6^-cHD@omknPIqW>boiuvGH?ZNp8iy8O%MhgE
zeS9EuanLe19kK@<pcwTy*mCrWz8H^Zq0U22k94Mk^I|-anRnu1RyDTRLo!>0tY0w-
zDSr~Rc+FRkIpb0_;H}sHpm9ZGUNs#bBjkfoUkqr@YykxcLAKe%id5z7bT35`*h$>B
zfsZ^~5^Aoy9DWbdE96`Hh>PO$xg_4uZtH(a5ByZw^|+R=w%1Cs8Xr?2y;Ha-P+vIa
zRw-=c<n(BNKzSGeW1=9u={VV~sRW<=%<oVEyJ#*Xvoe4fG=Psim)58s9h4C&&cEPT
z9=U`jZ0KMU?{_cEB>Z)PRBpo?%y+@vPaTKB0kVh&mhUbQT?##-2*1v|mmE`!;GO0>
z!H>0iq<@|ALw85J;t4~ED0i>$B1UwA{y}79oSGwRAb@oo7hQuJc$?di<<$`1%2C%~
zG0?OOB)EpTM<>0z$N2kHY4U<y8zG~UI)kEtnp`5}-;ci$&VJ{8GOMxZMSFjefWBu2
zpBlGoEhlG=TW{X<-2H)CVJ9GRbA;aU-p~P<w<^40-IoW3%P04q4e}Yicu}Z|FGcQA
z$R)%2yL$*R&nn>^e}OAa*<DrP<*eWJs+H(u;Wso{zi|NDHsWOYr&O}da{_&9*tJ+z
z8|v)L7%5G(Gbi|;NAa)_4)q1ItMvUr6~8`JD4E6u>AqnU&X{jEbs*^sJ(3@70Cy#V
zLgv*?_y3u8pKNSR3vNw5_;_RFI%#m%+1SBh#R4Tf@mfBP{j;UG*6O5gwWBW799pd}
zlGx7#KIZ6h)U+v>e<N9eZ(;cTSgmx!WGwiJ1Ze#>G2zm!KWi@{6??uwvW*r4=`s&m
zj~G!91w5o?cJ7$|q&TtrirdYTiwf#VlhzG`*X2SaZBMr@UGY-cio*vk#_-17ir~Y<
zo@_l(Of9{mxv?6x&SG`QO(ma0wIuhVHeLOzG}4)3?w;V>iq%WKu5+v*a64&{&~G2T
zUC{o##qkF|vX7WOf4C`4o9vFXztm-U`(7q4`o@Oa;%?KQUsZND|J3dn?K=CrT!S+a
z!<^o2IZ{_#>H7YpVI-yyn^R}yxolwHSut(8dp;6TnDUI>`e}DSe#`$c^%hW3b>IK+
z1l=K>qJVU#l#)tGBi)E}cY}bmARP+QT|>jr4I<qGDBU$Q|3RPc?|oT!&05Tzdr#~<
z`|R`CO@(d023cd?V(!~fn2GK<hlCPi))8wyHO~#@BA(VIwKx9y(#{=|L+3Kd)gR2f
z%rXcy{a%iJrTXHFww?jFjW8g0Ypp@cF=Z%M(6pV;WnLiV;sD;6y4=Zd-ABSj%6RD&
zaR%AEn8RSix}l@9Y-H6RcuGu27@2#AgctITSi&3aoXtoe;C<}k%bpOJg0gWtkUTr6
zsqfE2Z*i;iUR_ua8I||GT8C07Oi%kr_^2{+&zENb_IE3YNer>BIfJ%pS@1O1;q!2X
z3jKm|8O>-9xnnJ-i{;aA-Lmad#h|z2Frf3Vsz5%9*4c}7MGpXdm>L^M#$U6)zE!_j
zi@#=)lDj3MYbuv6*Ko-`5o_$}SO(!rx{p!>isJ46_Llo$%g+)aw>}5D0;UfLYFQA<
zyYCxQCg{)24|#a!##w6=`{h^*1Fybkb8vvNk?%1{gD=SpF?=G+iOJHbdY*V3zK+V<
zjTdMwph4AYKH-qwYoAm=Aj>Ug+gg%-8uQLVb?ArU=JBL^##fs`$^+Bf12bv$aKDO*
z27Zq1@<m~$4!OYWpbkZALFruY_(6N_KEuzGt4vcQL>x2*Oud(;h^OhomQ(!>Hm`Dt
zKB9xznbMb^ne3VgvHK}lETou9&lFZuUt^i}^*A$|@A5nswH1t_GIca@meJ*&&NT(s
z+nM&6UC=a`s{Lpe%X!GXi*l6pEs)cdlz~4nKe#Qk6Lr{(%x0l`i?R|fB8j0lcQ9B;
z4P&cs!@FV*BI7wI%M`97HpQ}UUlJkN5vR9(8G3g~LDghUL<nEEZKgDxu;mGT@L0I?
z45y-~JAVzI>(5n2e0jRfGjr*+%X9xK3O+Y+nS)B$Nd3v|BK0buYh%u`iUum>Yd46>
zNef!Z_W=-|H!{&c0qP;XJ^)iw6UXnQ4G@C);_o@+s$47>Ce*!+bWzQF6*;Gvv-!#^
zc@_N(barI;=-vFL3+nw{KW*^)Tczp2nI?{;{VSS_!Gc)ddLue{fzbq9Hp{N@BBmWS
znCh=mkW`Hrf|rm5DRv&f8^&l!+SXk3^&kKGkjOBcgRPXFy|3tdQjs0n<)9iY)>pTX
zLCpGO#pb-gWZEmYh;IEjB+D_dH)sX9Z9dHOS^Kp77PS;7@Hm=H>hzM0`;R~M5%@Xx
z8KGIbtS?@K)IIOf9qSE;+aK|oy#@4H;8hj5C7qT1^6NV@)N37VDe;F$y$R=jKSl2@
zI-M~|xoQZ`Z(or@noV-zCu%VLaI_Xn+Rr1D)&2pS&HN4L#(`WGIl3dlL{Ru$on~#w
zz}yAAcZj3?wu%#r@nV@^R1{vcWawMx*m=+#E4Ifd{@$SS_^iI|{5DWNsWjp~j?rgJ
z($p?f-2duX<NS)tgteOA&4K_!6pi7Cy?^tqyqyA7Mce#k{GqS?z)Zrx&xeb8LqW4&
zKjyXUS{!>*9k?wsj%TS4TW5q1YO<HMyK6>umN(6i{I4hc-7b$~lVf$;+nzleh+4|Y
z=`1NMWu?&2obD0PpHnC-JYp$Bwq|=K^SoCf<(<axp{RLHUXGk?&F>!OLfgrFR!tJa
zivC~xb`eS6CfbMs=2?CF#w_)3o>%6TEO0}_4cdFl9-dsjvBVt5{Sz3%MYll_%rZfJ
z(woBBv~tnXP~TFg6jEE|%m2|@Av$^#^=YpMzt`pXsi#DUO(d7t^d|<iQj$;K?aR1~
zKeTez8sKTK=tR|3<9NIZu(aJm2DVME>r!}4lZ#^=>yb?BL`jiR5Pq7LT9_u+>YZ7~
zus1V}SM(XVRWt#tQ(L+a<^5S4Z#D|2_9E>fgVn&7;a+`|Jb_oI@MYU8r>h4&gd4N{
z^#e2f!`;E++2r)}y;ElhI$LW!Wg2gF&u(t3D;oihF$D7N!1WD*1xsZH1`126)k<}#
zcdpB`UJ&C`x(%Xm%UvS5Cl)_6)Ike$#OM`3f7kQz1`crf>yR#|=k3tL&zulqSeV?|
z=IFt#`{oC43MaxF(dQ>;^>PxOa@}L_=f5rB<CJ|5;M9@3FAG_3g<;3Kp)F{A5{4y#
zTbukao!@B;anIcjpJt~zNj(uq*2ZE*pwos8<M|V$juYRJ3Qg>fF^t;tKT+HApb(@Q
z2y!phO^Xv>#PcLqrLcYw>VDVsuKXF*fx8O+{5htn!dC<&knQx(>(8G*tLy4gxU`~p
znwGUfNu3oA*;bFb>c5w<No#x+AQLQ#+e+6muv!}t5U8F|dM5aAJD}%($5Lvr#D7&c
z!=EK)^{c<MPa&N@Z68u%u`{WX5X}_^^f``fKIx)q>mK~dwz9v4HfPuTk-f#?#LRT~
z7@$@#t*U8}!f$)_n=_GS+LsJoRG?&5(JJG3vu|HxGl!z1+dSM~2!za=L^|aw(~O*L
z=N6T*J-hzSa+scY@=Wl?P1)AmuvWa4L;p3Yn>~xmK97Nn%OTIl<mHv@W7n1BJCRgd
zFABr0peO5_yMDHg``lwIE5~^iZ!8wJe01&g`9^hKvWvCp9ZJHFi7tc?Yf?Pc=_VJt
zq^R@D6`suV?WV0mPQQ%gWBrdjG130nfFIoVZOwihQoHzBjJ|KS<K?>hX!~@n(e#U-
zyiZOgGTv%*_SB|u+h*~NIkSFan0{He<F$X%*mmHRdTDKCEsqF)fT10|DZ!_L@d$tG
zi$w<4hGiag_eL)&jn9$zj{*SB%dFMj->a)k?xvTNy;-T1`Fyl`f7GUl36!9-9P1Wm
z<il@=!Z)eclzpqDNzs<2&c59Q<Su@R9P6F72ek#G6>3@3HWR-&<4fxdM_LY!r|r>;
zAElukZ*>Q?JIH4|cQA`tr+M8CGk<?^M>PHu!(2_T!~{MOB()%hKG{f5as1o{6==A<
znvwix4qo|VHr}Ql$bu&xv)w-t1?HY-m2Kh9Vph#2iNj&sdDAdbuiqXXqHn680lC}X
z-yg3#=xBxrDr5?O_CD|ogD+dJXS(YksJ=tJfEsANKhHnEAo<aHh*Y!*%M`1ujLEKH
zm8djS6iz8=YWig$!P@h8{FKjW`k3>{zydJt?R(XtpKM7phV~nX*Ay1TC*LkQ)40TJ
zj?2y<Zqilp(P6P2wk-^5XtAw_KkIc|4Hfltv$UMix4xR6xu8wO^1PVC^*9^n6M-+H
zW}29ClU2KHdnK{!k4+Zk3ZDHen=?<2udU0QHBa6%smpm1Y4f^r(w!*c_bUna)t9;p
zdY%5Y9H%M6r`<PbU6tAEL+ss_-ap4rXPsj?mMtw7^l;_YI=v3phc@SlZ+y3WeHvF#
z<?;II4)ts0R$kE_TB<XeZ_Uro()CH>npf9FcXt<No{^y^9N$4|6kD>-?l~{W6*jde
zOw4&>&VsW%d^gUAWn66ao`0mal~=sx!BXk2B$38x_I+RK%QN=n^fYlf=APyW{@kzg
z8ih?SR->jGzn;%1Vt3npmm~J-D;j@SViM4%W<s0BMWg&rpAN}II$gv{>qu{2mI@Ji
z+&#5pv*@gStqoKF;mArY2FH^vk3fg|pWKLpl)GczM{09U18HPI^+|vku>b2I3`}$S
z9L14u%^%VS^r11~cs__wDS@L81;M)%77}SfIvm5OS$u_8r7Y#rbb&WkYIC8Aj%6r0
z*~xL;F4?b24d9Y4&06@zaCc};)rBmG@mV>5#_g^hWiePvyL}v<%<DrcXIf_)U%>ma
z!Eae6OZ&;ok|oq1p$quZA7(g|M2@=&%j(>LhKO~TqrgKPp^~66<8za%?>&(uV>`Q7
z$sC4l33dDxjunP08#Mm6lIO3CWTL5b@6XnH!j|LWj=n3Y79}>G4Ei57yKG;-kB;6~
z>-zazWDE(=W>3zjRO;um-upWRzH*qNqMPnfRm4;mS*ISrS60?>F|GPl&SQ6QsI@Nj
zjxk}i(2SeX@cnlC$=O6-#?(ByM<2}t?9c8DBQDAd4*2qdRY97!UGsjNxNIM#2h2Az
zElu@CL({8*U9SP2jQi5Y#~@Y8d;NQu<`iO?X-{=@y{m{?50N1znSP$&W=8rcHz=U^
zGsa=&dMwSuU4@_Pb#*awJE>v$AZ;i7PPDYH9n9J5^9(Jh`K>5Jo<}VN#XwDMaG{}U
z$=(j9Wm<E$zP8qTe}CHEPU*TRag#oQsl9c{Yv9NE!U9+v?R7<~=uy|tQ(<A@Th6l<
zGj7B`UIS)ZVc$1HjbR0<2qU}s#;WzqEv}M3EzQ1_v%7}a5F#l)kFuEPyB=!X#HKyd
z%TU@=Gu>o$<D@{ULld5Va`OwtaMVilo!VsJcX?7)<7@xmsNE%c9sVKj__EO<ReQFS
zpQq1P)40}3tfSDQt42*{Lb5iIN1KJtL^zNrybOMK?1uJ+XvRdueD$&-)Zv^aCG^NT
zvs9=Z)86jW89RM#+QNxu)2XxW?&31pa$~n^H9a5SONt}zv$!jMJ?_W2>Cc8(bnqKS
zaS2eEUZ5_cbshasjkR>nZEW<sy1zLzWNx2R><t_)FYXxaa=@u%n@z4-UivesxA1C0
zA*yji=jIsoaw0R2dY86<;DbcallFJNos*yOKZ(SDrLBVU<St(OdCbd$hJm)j3IMep
zA{HRa1MfqE9X^KYcERE~$TUDT#@!1sxg{hmVJ=7;$|d<1hf?BMoIO>}Lt2#?-Dk$<
z3xU4CmI>P1L^FI`H3XcGH^VH(b9oc6hk!&JNF03+`62;Y!wIL{KD}B0zUD4RkW3F7
z3zlDr_Z6oCj*JD*fo!OTZ^of|3D>a*7^xJ=t&iO3v&rB0uo`}lLY@xNn)G}o;)%1O
zAvGP%LX^fS%cB|(FowC|8n~cm75lt^f1e8DrV;j$yM#5<ZwGG@rw2gGD8yUs^j{bL
zR8F4T$?a+SGTWqRRuTI}#rz=h%R5)0u!WeN2wO|SiNvRJpIve)0f@DI!MXZ{?~kT>
zzM{R&%Br5ovV^w?Slt^tQ7ki2mrY#o3rt!Ec~3wQ;0sV4`6s@FHNX@^njAFonsk`j
zxV<<KKFvVD&9dD~fqR+lJSucXm`D8;vCaF==<4JTE}5wqh&7wr{B5>#<crVM1BC!P
znOj|VNsDw6LL!f^ik}%Mm<jm!_$un^>iB>)F`^f<We2VBW%l?oV^RaVsE*T?o^%VT
zQ|eF1^#MW@!{hJ#o=l2^H;B-bU**fH2iqc@iljUQHCq3k4SgBVDmlF$%(>}HE9sK?
zfZ{;{UI34EWr!ER*^mUuZEQYw&S-XYmISiIMg6WC{yef7T$ET9^1yuHs;!P$hR9;k
zG^hclg18B0L3?OM;1n&5MJgq2@XCd8)Wc56$k+8gEj*;8sgea*C~keA8>5?yiTSUH
ztRiZuF}dO4#hAC%;aSEw9o%Y*QJ5*Io0VLz_?D-yjn>wR7(LmnO=g}-d#$}rd_L54
z-QQm0ES$Umsd6=0kR!>oU0*P(9V?Bru1xi^5xa4+Y6#Y**%g@150!I5OPK3cB<u$_
zTtY^kevrvAccCUMiM<}CxBF!GQU@0-*T5ZKmaeY#org%m91!uO7WF43^b(+n{Eo!;
zDDhR7cftArzV$}}N|&G0yKhBk|EB9Dnp80!>Dk<jJuzI=NK_n^KyN`gCQAKehJU`r
zj3-kp@qJ>oJ-Cp>knKnW*}0F(9qBO!Do|P{uJD`yH^b%Eo4ys-8GRPZu`K<m<>h-@
z>-|?y3il;ft*Vx=Q={byqmK3tAN;*?Ig75`4u!<}7d})iJ@4E^eR?9Ar=gvg_#7G8
z0S^Uxo6Fm{N4*iS{m<boT(6U(7tC&rvQGsN*bBq5v_d48!g|d#NPWUUle}=0P(+F<
zVqcmXbw5n*w<9G*(ACS7_Sb8ka#VW;hYsBmnLvVfyON=}itN=jBj{l&>Xy%)WI&eX
z;iEP=miB8F{I7V`Dx*dd<QIpDw<A`3vyY9x<A1No<Qen%;WqeWz_tOAWrQ3jBHb3W
zh-C>?%x2hkC-Zg5-7i$E<w(CwZOm+prG|J5qrQhYQ@vc=dh<wT$7611!zbf&YKa#4
zTd8yW&Y}cDihGoEbi#y6XROZW25&<~nMvm6@S$50NMq+fAC|5A)}j}AP(KVy<mw^z
zXH!q4{svlC<#-%0IV&c?Dv2hXc%Vb$aQu_YsOtu(H=_fnlK!2XdjB6eZJhyRg8+nA
zpIr-q_zjafOObxE&vxiUudQ?SN)re*_CQJ(d26+-3e$@i#4Z4=AZZ5rQmPs%F7QhY
zXQM5rL(@5Thy^)hQGQK;8ZIpHe9&wfXIb^|=;L&;S%IfIy|0Lw%R?ceP)a0BrBG<9
zLpo{z3a8?of7vNxfDlTHDb#Mtx7`=Dv;Eb`U8P;Hf-&5;@VY?3wB4>n!Ib0BRH{Hx
zPM;lEQ}AJ!Q}d9%$<AF#R@sH<6;IEwhm_^?2Nl_X=f!7BUhi+`<L-sSWnFu-JGy&*
z7V5XHSwLR=EEIDVO>RiFf3j6M)yJK~ziwgy@jWiuPNmC>h{zI+NM)E7YvXX)Rq@qZ
zJae9u#m^e&y-18aI8&o@iE(*tX$ojY4fe;lk$9)I1AKu|SqPfHh=Rlj(w({~Jx=oz
zbGcKIbcVP2riACYFC>nUm&f8qMH+yYs9)GP6Vee$yK*pG<TE%10X=25vL5$A!+OlO
z^74bNJo)4-t1?lVf$mG3qnntR7-aa8yJ30h=kx#}`;Ob^DbJ6nkp$dH+=1mD6a!)@
zs8sd=4@r9Wv=(OK_Dq$$H(Vrqowp?&lfgnO8tkEs&RcNr21M`La5herB%)b@h%W(q
zD4YvH#l?a@|CbBk&tIFFnbn)+B#$V*lhsE3OLSHwy}@ehJ#>$WoM%SpB(pb*Er)03
zqVnl5!CdN7?fjmR_-8}C2Tj)dZEf~)d7brIWgk7;O3>yL+%5SXYZ%9Q#6m^eGSO&L
zcgV-dJYCbCs3TdmkEQ{bRmrD{Uc9y1x_psB9#G948;mnwJqcEQoU_MWJ(AB%M|Sc$
zi+4}x7C-f?MOH^a;>UKXo-iCCYSL0y5>@60oIZ(eYHGr}jMhaVTb5!f3*E8A5I2lN
z#2M|CX;IcZ9j+!SkL)UG684XTF$lKQCORlVkW%aJVq4%cXhO`VXH@P3Wq7xg<0@}9
z;`3p2_*xG?li{nsNzOTN68Y@7<^&36v4BzYl9~F6pM5Ev`sxMvoMWRotGssaTv5hW
z)4a#+)Nqel{9htw*C!K<78TwN>2PUDWvTdF9*n)y0_fLpjV^QKENdQU48iw_+D>WD
z&sCx-@e0<q5eoS2sKgo)H_O|$hjQIF`R(i4I3q*b<Ri8niNTp6vjL?jH5fL!T8=f&
z#oiokS*`R8I|I!;C+ks+44*AcViBKo!aRh8u1MTp^$7`?5P3ylX?@V%_xOhcL>Q?0
z&z~%e$Mm(wi@TpGAL{*u#XnUgTQT5s{;4u+<rp^94sk+I6UN+aratglu}N;)>9dLT
zYQe7ylrmpDkA-{8VK*Z~)Ed#*F=(A~N8Zr2Knx~7XtS%621pZnlxx&G*v9ULq6<_G
zx<cg@$8oh?8q0fZE}bP;45_F;;pzD*uKjz1U#tI3(dREDh@h#vqq*T1GY#U|O^_M+
zYA$qU@dW7z^aY<QIiN9B=H|L&k^T)7-q$gsN#xeHgY&^<SHsgUiC8K0$mJV&um1U5
z+7&^FVQ|x!q`p707p8L(c<B293aJoPXIF<Gl0unv0sto|FP{pLFMJ3jJ?0SPNWGbS
zoP=s2yo}fLnk82Awd1C5g~<Ogo3zSFZVKp7xI3&qquij>I0>Rr?$ZhtYk%$TzXD$R
zMVMX$)xAflEeJqTr~KqWN&+ob7k>XfPBw9DZ0OsnQ|h&q{imS^@C8oc17{_!x?y<u
z1+pp$Xly{W9_`}=SPX*_q~0t;<RWv!&o6n0YkY7Q3NL${5y|)kUyogfUmMrE49ew8
zIf>8yCjj)~2mug7$v{y+%{s{2Hz?OrHOkhCzkix@HYmMc>3}}_-Y7OS`=JWnKb0Nh
zK#cbOQj>tV>6|lmOm)4WV-L+usCMzGYwzp3DI<H3Gb^hHXoKjwF<d1Xl$B`ynC%E~
z7CgbDCCIaW-t_)a=J>TV5748)BG0QfhH_=TDl#8``%f692Z9ld-ToSBc{dOj99S|I
z1v?M0Uc9cr+^Z>vt_#Tep;KZgg!Hl)k5A1JA`%DBvjdWfpzxaPL2Ye31h(RCPcVG`
zP26?jb3B&x!yFqb=Nag&b%zh(u-@fBq{C{HUt1e>Lm`!CVI|T|v2k|?LC26(!*A(^
z+DrY%lMjP&v?8C*YBTtMuWmW!QN;e^=$sc<stSQ{v2G`0e<`UOkt0=`b|3_3hlB%4
z0>(b6@~7w6XhA-Y#N#{V{IG($Lj%kT_=c~5ol;bJ<nSh-cg0IA`wdWRmRd~S6&-CO
z0&iH+VIX~J0ii@$1@VUCe>x%0deYJ2K0%!KSurn?$Febe<RR{qDwLgA_XlNgDeCF#
zH(@{iW9_%gh`6odQ?Y`fxb4HCxEIS?eVxtylj3nmANsy5WowZ+Y_NYqrhw{UA@bSd
z@*)?c(Jqt<TfT2P&pl81ob}8@)`wuP+{iFAN&L5+r5}=;GN*S}T_4ze^X4-~E_<ET
z^<TT)(a+Z$SkI<S)98K!AYgvn4}a{yAl~;B5C>EjdI22^RNF2lm03G@0A<U3sb-=#
zT_z~JAyKD7TfT=PRem)h?|wG3%<<-@*B`9_+*i2NkPBp(iCpVMO^R?mnP96jhveUu
zUJGIE$w9#jz|v0@Eyx_n9@_t!LLBLltU|a2=THR7_7??Pl9@3I=qc12{F4!yRNhXt
zb?3SyC}B!!GFb=2ZOY3YZq9}CJ7*t0T>ahIA(Oy5;^H(nnKI%BaD=;#e^!lEd~6SK
zC5n)u1qzsek1BOhzI=o+ToYdvJ?6P0+QpbT03kvLryZZ5C`Xf7ul{@D6CN00Con{w
zt1S41TP_Ae@$FU&1KvOn>~3Dcf)zz2{=K(D{v*TXv&;uO425SY{>fhI|2LAcd}5FK
z*HUwQ0c@RDF|WIq1Oj~H3s-TzVF?b@kzwm?Uif#`{nr@mMWsdnuEn!i;upFGJFgzq
z?c?=D+#r68k3vv*sErHi9A4Q>J}}Q!h34xw{dF@=w_yp8fz66)@S2tC-yr#&%a^HB
zw|@hPhf$#{4l3SOeScLZ;#F@A5u20Vcn&YE<U<7A!QQ<PM&KBTNP3G9w#|B@(0ie0
zMCo7<==+c6SYU#%pd#e;K*d+HKkl3V>kaqW<2%w=9=@oEqYL64w`Zc*V2YqbNwX4S
z7*lBR_w9TsKjWD%clncwd{Ojw0NhxWH39wp0!+l%g%9Qb29<-wg-}3#-CqyQCS?s8
z43QE0mxxyYlsGEKURddf=m-!vSvynKDF0t?9NWaHXEBeU<llg39cqZY<bT8cMEXzR
z=i4vz>3Q0h9$;&YzNkdR_umti+$6KW`#&^ivdj?A7W{2@5U*el@3(OSkTA#!sTqS^
z-*6}XfAjoH0MR2EmD*!xFX(p(z%8R@w$q<!<O|Pi7WbH`yYa8$C^8M_%&-ExyNdrC
z+T;})-I13O7~doM`tbi`<p)CD50x)+Yt~b&h2GHO_3k|5YN&#WJ<NP9=-s);D1G&%
zi4QoW?-{fp-VPP}%eN|@IJKgYYjEE&Eg103;!OJg-w2;0Mwr__>ul<p+<1aZW}DkT
z|N5D<0nh>zY3lmM$PngQFN%zxnh>tvJ@j|Nb8H|k^E?0~qx8k5|Ia`pJsRj-mUgfR
zHmmfPqR=0<gmiTBp*NU&6CnA30`8p^AOlb>Fc+_4B_1k@d{OX^c$2B<`~)7N-|+Wj
zQcf+<5&5nEIN`1Mn<vM5_P}gpKjb}<5^<`5Vam-HTFXOF<3J+2|EPmli0<D6Io1>@
zyzSPn!HQzrpZ!NR#3lxAPZSLKl8=*E5JeE@O^%yvlACovBeX{P!0_MG18@2|jAZBr
zrsgw6gQt+J|FxSQ<@61F>0E@$jkN`!W;v%t0V7@%t&O`lBcE<aTvQ<$z!>mNZd2`V
zLu9=nJRO4GC>&CIWPsfJX7I3ahQ@p8>XxrD4lEy9gI}KAYam)<LaJG56t7TBa*uiw
zQuH=JUADMv7;{?Od7UV=rci$1tx>wc{NmdgAEk7#IaU-yedG6;ajr>@PI0_Czo!nE
zCWPPrO^eI==G4!IcC;3LfG!H}fY;oKYOI|gclzAD&KE*L^{5)&D4e4~0uSS7`G3$X
z+6`r{bm1opy{fTlh+dHCP#*n}t{X^P;zQHv^`u%ZgsMhtzTdst4`f=Y+-#gFvr~3$
zK~$|8O7{|92uP5SYREc@{27Z{`*b{`=CecF2!87)$rKY^UYn2e0pu`UXgbsxY9-<N
zKdNz~%{kD%14BR`P*nSaPqbh;7hiB}Nu5Y*WJ?+Ox(aOk<v)t!`iI3i$jc)DjFm9a
zFXVr@!SFMxd5qqQ8X%ON`G?A}WD?t{@%Y=gx>bWLO9(i<HcQ_ceHkvIiUJWxYPB95
z60cop#H?pM_b`o;xNjeV_>{}}CXP3!l%7QybUht>N8-^3LL@gjFL;CMpNi|)z53F+
zja~CsKrt*Bv@ORZ2pr;bv#t+`Q^BeF8iDPx9Sb8yvY(EMLy2JR#zzJ<NJAnD388PO
z6<!9ZxiO!oAS5WUV=U2mBbIl-$SWY#B-#q26J{>bJk66ofVhmNL-^}D;jPhu=M3p5
zpG7Zj6?_$o`u5S}MFG-eqi3?PJH8|D`rpNeL#k+RV1BR<M)EKajH>>S6=wDP`$FE?
z!PP&-#jWsO9k>BVHey4vhRRF>cG`8#iqYKU;}_@TLe40}^5sKnJ8F!k0}&PF7IZrY
z!W>Vw2(TYznT$?7NlOu<v|h6FlpK52u9s(pclIT8*|M_UE9F#VJsKN*Mw`$^4tap;
z_M^ROQQs2o+M9kX2Zkd-f?>GGk!RD+`>^H<0BZC3heocUE9-#B0RJZEas*E6-qMh^
z2+XFt^BYlv$h4g<j2uQ(fB1-Ht<u_}Nh64hK*2qE?jYP4Ok}-8dQUPCIE5yH<&%_U
zt6hRWvZvxctOIk00_`4*8b00m+BR+tkpdx-%Uyr$Y*_Sff=NLgxp$2c+0UuUePv><
z+Z<#L6;Dj4j(89_x#UOmzhlkhe`7bHXoGGMncH&zGatZti+~~!56Ffv#i??ndQ2^_
zKAdu7j|&)ui(c}24`ZV15EyKW$ywslf^P1CIEhd{fbzK1!D7nKG!&q#rCJx+)zBUy
z2>|Cl80$3#(=P(Mwn?48bKOT8<Ly~QiQBb1?;3b+^fo1_Mz>}sJ`Gyo2psF)DF8oU
zQ_9WHcl?~{6DU_SzrInD2?EOY?iB0OWCJ&7uT?g*WuEc$Do0Prrs?=tcy{w50FA$f
ze`^Rjhyok{#HdTs1Cb=NP%?tdx}r~!D!pZv6zcT?!sAmT^xP#w)-SE8BeonZ0fbC<
ze0zu1L(+zQ4Lo$CeKeFdB-Y|{`!ux(eiF^zi*Ik-5#S^CRCNLpG<rWj()b<hP^gR2
zdQ$#ZSEz~%D;ObZ<0|B8^O0h@5$QFxP3BT4{WyZuhM0<IV;XG4R@-@m&}a{Ppw%zN
zIuAW=x#g2S8ZuR{i<j`tT;bcKs;gRT$zJbIZ>B?fO*AP?HwtVn$r;A6jL=G2<3u@E
zlcUXn(;3#jgJ^rdW2#l6C)!<>ysysGGLKgLPx?r(r9eL!oECT~kwp^o?j4NCDoKv$
za^QPl5kN+8c){UQo@PQhzrenDv`HIv+W1^zLFxz#Tc<uHneN}A&`hW`S>Gtg0Qmyh
zz`-|AYD?x-h#`udbdGdAU`KBW42`KWUEB0Qoy|UzT>k&%tD*)t$5X10gyRSR@e{^g
zBQ30S&ucZ#h!AKa=|$`DfTJXHOeNoXW8d7&JB?>^8LVBWquwso!4ZkSJk?RIKgVeT
z;UvDL9Q6CprGB*lia_N=H^Kj`Ls}EkY%p{ZL~KKQfrY~PD4tkF<eXE$(g8;LhK`!2
z#x<x@x<{}0escaaRY%we6x98Q=(>oX3u1^2UmN*;50UmzsF(?mrUIq2q3<A_^i&IG
zI*l};_#rKt>nnq~`xzF|)!9UnLfypngrT}mlWfpNmx5W7U-v|R?fowPs=()rIx=&9
zB^e9PF)0fV+2{CAuaIE+unA~=4W&5drLxQtWBkmyEsU}1`aE0|S`Ot3H@bF6a;E+i
zo`wIgxnm$3GJ;rm<V5WQst7Jc2+qBU^`(ER;Z<E(LVL*i+Jc9jVqZ-0MQ!a`vuu#E
z=r^K`6Xf2n<azU+eET5|I(+vX>nb+|l@h;1%hdj_gUbI5u}m!1pR^-<hrHoiueMM2
zIjV;NdMy?~`>>!Sj)pEOhrQ|TjQDLH-s`co_mOqn&*n^JgGB);NEVT!Zqpv5k#%lS
z_EuFWEW#T8wNp9VpoqaeOyyr1i_spvUv=TfK79?`b_IANQUX=yt<{t_7;~Wm@5@{G
zWV2@){BVCXLvQ%?dzQil@B-a22%^d1CmfPef0UobSL&MW4V@*6^7F?a;)FAtITaOU
zDW)wz{4e$>JNPuq5Rn^-Cs=*y{Y-Ll@X+vh=k5fk2Glo?H1V%Kerr{Ua8mJB^fiOe
zJEZsl%tyqjcnhoR^xz;TMCB3}G0As02F20ea^cem1{riPHVgG^w++rt4*&f%)zz4}
zkem7sv3GS9<=5qOd<UxzQhTat-Cg7&e(RP^#X-XaWpRyMHHuSzWZxX|4!6c$%B#wY
zDL-dREzOHr=4Q>LA%E8(7U%Z{t?Prf)qA?jU8DxDdv&FCU}X|}nE7W8dK=aYqhGDP
z1@k$uy7@xxTOoR9mQiE0Z39{W<)=X>3s5$wqTKW2Zx#(`ExGs!8!UkjmWQM3zl#TN
zWBs#qm$nZ|Luj8Hqsz+$;Ax_V(1W(W74}OAvtl6j*m9p$6XILy$OKk~2M-I<GUw36
z1%SkXT!H;cc<&_%2xyUBYk!IJ-9BjAg!c)3ZPG8=$!qd@1Bc&vP3<l>!85#-G)Op@
zl||t~&Cg@}G4vu0&kur?Qj#BWo*0`Lkq@b}${L40hC@ys@La56UqT(;FpgDuJ2rep
zu^u!E2qtFzus(=Y!fkUtA@Xy6m;nKa86@hx9=aQN&SuqoN>*1=Up)JflUR$wEvm~`
zfl?ox)x~^VIMNi=Xrp(%fv(!4wTo_Wzx7id%jQ^?P6-YEYF8x{2CJ3%%IipP^KzlM
z+dMXuFxxhx^8>{w0Xmz6?AVG`@HcmW7AzP-F(7l9T<!UehtO!5+)xWrHoq<!vSy%L
zw0Vir#&A4yd^q#rcHZD2q5?0jqFW|eWjN=92EAWxPy8i$bM~5+$}p1q0~%#eMWZ7&
zqGUW`%(1l&yqwUP6<6zy!H&>xxg$8QR_rR~KkgKl<x2(?P%u59)lhKW=zFd=51eq5
z+ElVK=mfouhzOShV%k?M8A(NsaA85^?n1)nq)JDS+(j4AX(1op*&LsIa=E^vCRiM4
zK~+Qs(x5NcCps+lbzRhgHhEm_vxl7RNRIr+C||Axw_|?L%UXq1wgR$MngaKBsWE=*
zR&t!CIqx2BOuRpQ`UF0YVYN$1Rf*Mpw9@Ucw-Z#>9Bu+?VL6^d%k!%3$-N{xh894w
zKN*r8m0W(oy8gn7fY}jEiSF`W*~Nr(CR@&)-IWZSU{Orl{XRydaSU?Y!yTtIYpUlz
zYHH|?un^{?J!DCYT$&0&q$BHG@c*oiA7q*Dc%hEIVrH1<qg(23uv;MAHT^*hH<@at
z;u1#?-Kp%LN0<FnvMf^Ebi3ExTsBbyubCWRlJg>FIa*x*)U9u<R!z{ycjj)uVq~L<
zLK}EXn*CKM#U?e(;PTs!*=^Z1o2!7>#hEFLwYp>6@A4b$_;PQl0OQObYnElWD?qf1
ztCKQe8GRu#V0g`|H9#`Z5<}0QT&(62<OBN6A5jJALG=p@fn=UjzjmxBi!<5qc-H22
z2$fo3_L1S>Z9URUey0#n&+<O@A>iQCLo5te!h0(65%Ov-NDwT5^MH%h^&r>&Nzw3K
z?hMBHtq9}Z%d4LygZcXBBw}7S>-z!stHL*eeV(H!2KK%O!~0scd^8%mid1D45i?7?
z0Kr97*(<bgh~hdkWfj?vsD}1u%h;svl;%KPt@oU`_BI=72>7@zw#zF|3e%c)fYE`A
z>bSPi<_qQp_Rb6U@_WswWk9_2VIReg!S?I9=90iBP;C8M-d>Jl$8!41!<VkmvWU~&
zBVgB*gzX2CFbGAU!11fO>D%x-CI^$*c5Ipgr^ku>MxBBOX|(vnWf|t#eaQ{%3JeQq
zcA9@+*4uQdUfJdcDTCo(*!tpXaRfox_}*k~XRj<uV*|3sJ&@Z*J#Zs^Z9|{%^hpMW
z9oHrD*v_mz<io&Y`Z`>|<?m2S3=tHt!1}|Bx=W42Piy|zvowaXxi}AjWCYi>J+!c!
z%PHhXz;Uw#iVGwPq-ostkFKp8;{e#NcUkVnu?T*mvn?vv72xM|TMN_^K3{<IHst-8
zSgI{tEGttGT38Zl`(vY)FRdD8K4?d_HZ#$EO6Azt!7fwl9<|VAyb!<!hNs1QtyU<o
z)p8;*oaLVB;u`q22YVWI(fa1C`mL{BH&Y%fM-<W#K5;n?((-qIqgA}0MRz0m6s}Ty
z{=FQ;j%?7?mp5od*@D#WG3N$tgc4pJ%DG-bcg6y^pz>vua6cnU9}ydTF$qDM>{r61
z9(5A!Q&2}}kMS+<5x1E2nIL~V%N?Ol(0avj;2&Wl6hFn{$QOF+7aBg01Nzmvsj&Nr
z07qV&EVpTI?LBLjA9c<d0Trz`Xks_@)P_tjl-nHJtG6~TOnJlQoUn(03c$@fkI=TV
zW0rMMl#CAIxD8f1-Ez;<jp&YKn~vd8N-mS`{mhro5Cv78?&_hLQSJNoOk%+T*t`Mh
zn929LZ3gQ?$1iHOs*G>;VC;=Ix)v7o(Ud|b>1<?G^B<GI;DTl=eEqGL26a<{-~5`=
zr)?A$38LZbl@qIWhm$-l8dK1nj+m1&x~)I7`Z8Tj!h=bpW;=a_KT_oCx!n&IQ!Orp
zj1KzapTYO`uH@jn7eU#YWrp_2<Oqa|i%X+5!yG}^1Qu)3U6baa)Xbw34)#lDMr92t
zVYwnddY~Y&AZqrt{)+}ov85|1BjO|4dlK-Y%rQ{~dr(S!g?X*=;A;l7+tw7FV5RoF
zmx-oW9WIp~08A+eQ#!}uSG$*#<!4F3oW9kxsio?mawfge@C|R5Gh<v8#PXM&UP!r-
zr<8rTBUL+H4kCFgKB??Jajo#pqJ@VYYMJTt`B>JZ*-KbWi(g<SH<g!x+nwwkc4^ll
znEl|KhUao!HkDtNyU0GZ(Hwe%;KJ44xSG0kQ^P<vHg}>0kztyXvW$`3TRXN0UFEx7
z<xG9MgW8WDFMvtLB0DDV8nQ)Q!~sB^kGYH<cc)D26gW72$s-;;LVnpfJN3pHinoFX
zHatqsVplo(y;h3ZRSLyBrgrp4XD$N!g`mT28Q8?O-Mm{PW9;gg7}xG-hYdlcKpcuU
zdY?Z2SO0zi0sQ!btvLz~J>1(DB2H|bGqgnU)ISpWJld%sWA)$m#k(NVbF_~DYQM<E
zm#}Tn8tyN399)e`2(dBPE0gHFaAA3}1_C7YtmreVQN4L&PWD}kKk6L?EG8T>LdJxP
zkuEyt=;IsVvH2T6L0ySpqNz!}y{PTWP`4Z4%hd)f=g64VM5^=@3*M|W=V#7i>j~J`
z;9y6$nD=*`rm3|>F0%^x<sFyc%3TkJm{Iqt+>{0qP6AV%?=ZXa+|*iM8fU}-W~cjU
z=vyOiO3So4mi3}5<2FCUj3269T%X1t$DP(Q<Mg8L_N5(*JJ#OkkCGPji~X5Xed_s#
z?bPvk!gVji4`?Bd+`IO0p&R%T!@0hDyvdN)Q4zsF@pfg2z~yIM5PDZGZrhVPr^k|n
zbhcl_I_>olN0``Q%r%?244@Y4EEG-F_eWLw-oH3J_GXm#op=)<6?qUCyq8SD+o>tt
zBDD&~-Mb*a*(%A?tlAw&=gjfavQM+YKsU@yCD@vDD?<_VEB-k7jly8rc~WMUBh~0=
znG?m0g8KyB<{+x60`hg=^wEn@`MA8{%SIuk&w3h$;^o+mv%wPPlE2G8oZ<8ypa3FS
z4|B*>%r?PNRZH)-eBTu3@qZp3fmRsYN$lC6iifpnjLtDh*z|ryFuq7Z$=B2yo}>4$
zy8by!RN)e|)59=lLe`Dw80rFS-_NR_UJ{Z<IVuO&JWU-_YAhjzWl%{js%t(LrIUke
z4wAPVf?fh&{=D6BTUgWDy}@grO$(Q6eus^yHl14DOf^fixC|BXi6|8_!dWC}I4e;+
zFSl4LU%;ZMHQLVk)3`#E?K0}u92gB383C6F?9TL(w@fLdMKzX8jPBnF!be9NA?;b~
zU$zyR#XQTC=C`c8?=(<zGa~zjVQnNQ=g}EAgSm@0MkkA#skN^2$)?&|ONtaJ6ZY(!
zPOT-o**>j(4qn-_(-lBsgt)p5`<4xmx71Dc0@hP`r-wzs!&F-~heZmuiBGr!)833W
zpnAA9r9+q^Jw*uNTs2w&J%8->?Ql<zdh?gNV#o_p#J)>)30D>rG#51jEsp5PO?)Cg
zl_fA1=cc7Q_{`|dUHGq;<EEvj%UP-*rT~8%D{mOqDsEGedj&n_Gro~P@B3TlsC*8c
z6y*$g0SyB5SV46Mmd+{kZ7<%q?Hh6^D7PKHq;%>8asW9#smZ1^E)<u}RDWdfYnvsb
zRvh`ho||T<sXKD}v1Cr$md|xcQ!T6!k%JrV#y&X{f3J8@rSs8rbMY%c=A+N|wjt6p
zxr3^9ZdairuF5Hk)UMGxR0*O#3FKqOOXz-m<v&6L_xdYFqntI<DO`{XEw{6e+#91s
zlT2BvE%)RB8+$iw=uK{uf<17in4Swk35Blrs7^|1^wf_KmtGmFC>}hiPYMvAf)B>=
z*0L}q*zl3h+yBNm_}UZY8f-kyrJL~KU8RWRm(;3t14*H~od^yk_X)9=Ki`v$UUXRc
zCz)RKk1Nc#)zy^5Ff0?0DW|X77zzH2v{{-$gW{85!A4-pLnl<R;VS?K6_IL*nX|}6
z9Yfe6bAa;Y50x*kg?0~6cerkptI@GGhW&nz!JA5cia0m+?>AHh2>dS>02r5J?ACV5
zlR5`z%jodBwi|p7>EFkO!Tyx<DpmP@t|Jl&aEv9>!m0hUTT-@hkFIdN?7?s#X?6Ja
z5m9k&Es-1Aj3!9GHv_;tHcZL}XLUS)P4UG5SPsNTZvTyVakG<ua)l4I+&$-2B&ek^
zpPNrKv#3HbwjdLWpNh6Kb6&6ghiQrn?dT|wSjaML&8Ebx)gZ&SETxg2OmpkTc5&WX
zbhwKm(~+=pVpGVNX12CrzC5M5CNHvteu|Lq>+vptS&k8uWC6g(E@So_=URUvP;a7O
z{?W@zWdHZ<9FE`(<W(jQ+|c6UZQT@W`9`<oyf@CHveMUJ0=EF%!8hPk-G^%+>bh3b
zK26LBcAuaATGgW)<<($~3T_5#e1G2M<zOGQzcbd%=WyH!i7^>n!j|~$X0Iq7R&uel
zHetzmKDVu)pIW4XY4r4_mMPov*Ys6P0n-8)YO+yhp)|r2J7k9<Cp#_;DC%!R#S4?3
z)nOfGp&Qgq;7JT4{j*SNm?dOah1*~7W`7~CmnlaX+4nW=?D>GZA8P{hDV4HUR8eFB
z&-rwFqg4VzQ-U*UR3zw$MSZafHe1Ud)sDN?4uIoQxAvlg19IUBqlD?fv~THbyg@bd
z#(IzHI*UEgvfu0w)DU{fjTSI6I=yBKUOxq}Lqdft`2myz@kNX50QMXVTE&kws_1==
zdiI-_2F{WKc-cwzG8PA@_w!=S4eHdZ<)J7w4sO@u87&ks_T()Or0~|sCYCuYaTPfD
zB=L#%n_FpGbIuY+QC;tT_&Ot7iRgmLdTra7g564Z#Y3~<`gOa3;bO8b{{e#?irNaN
zb32f(PnhikqNX05s49XWS|BaPEDjWEWIyyp3=vR^R_F1fVEw?SAc5S?s{1FON1%)(
zS(1+ZK%W}#rfEMtq0_DZD9XN%^$np4NtNcRgp03=PX9E7J4`q=wS(f;cx2-l8$MK}
zBO7hp*QdRC3DlIgRUaAfF0cPwFtB{AaY>YR2S;Ma6pMJ%3bj1blqK}X+(R9v=_~Z-
zb&sBQGOnuY|D}8dz6~d4FHdq5%*_H418y`BKl5iz5Cc0rmraT;*chssYxQGgm%q57
zP%}hq40S;uf0U_ux>ZtpV7=T$A4T|N)zway5GJHwjD6A}Uu?%$jV}S^vN2Od=uypH
zntq2@2p2b6fD)7hKM_L8^7ui5an6IW8{G(U+XG4e(D0oLJeKm?E+2gBQ8sim_jHA0
zm5-<RtxxOuhydaS{@fQmJ~SId-GBy+$~u^)#K(7#+fwUScS{Ypqkax|O!a0s85*{H
zmZD!Huq`{&Mn~@`CN>0ib{1_@d^?6kb@ol6R<zVxrHAVI(^EBj<J^!`%)PKi_mZO3
zBAa2)c(NJczC1+*_I*n6&PA&1PO7QNxZc3nR~2l|=6%oQ#S-6whb$7SMs$ogCCG^2
zwHM?Fvm)C}Sn@2=pm$Ddcf^;kMK)b<y_n2yemJANd{Kka(4HdOiIc(n;<`Z4XXU7m
z(=YRi(0x)+8XjTGy`j`OCzSHCuU<bGJlyE-ZXvMg3(nl%9M<2EJAP6T#+6jVWZ1Jf
z65G_AsPHJ#2oB=$;4wT}FeO^}3T+|~dt{xa)RQjBA2l@E4Bl|$aQH<tJN8%SwB|wl
zC_jMZO@_k&$(ktcN@j5z(e5$+8WGA^$~tOQ4OKou-WJ;?8sTk~@8)YRov@jVCdzIQ
z+Ol$b4k-BXIPx$*aAtVUU#9#che_H{TeKzTemmV}8)z7?6F^TYke{)ChUU&@b8t>%
z%D_XBVTuvJ<7YU$_7M>4xY8V7GT$N8jOKy<aGfl?4zG&D&A?Z_dDZ5Jdm5$@*4zr`
zv1D93{Hz=8?{CO!xmgjrJ9-%9_<5TrvnbL5!m{BP#__Cr)EHOTGVDIu`=S1)H%a4Q
zgrIwM2QRGaD2@1~bA5Wvvw}XjU;R77M+I<Dp4c%<0}w}nfW_EXT|4|e?Ty(giLGL3
zYr|b$oo<X!fJJbPEG%P4xz;X5GvmYMyc-WtU;u}gfo!PL61U=bzJ1y5&a1!tt+%HT
zV4GU8?F+k*_-C?yHKG=a<WrjK0oU7hIu)a&{yx0N0vmf+&X9+dlxru;;a5^kZH>;G
zqr5d^Kxf$)%A%&92&eh!+tiL5@yos0p)_mlkpC@i!RHce4iX>4k!EQcKs2=X=7JZg
zZYkOS!eK??mDvy23&jC-FiNS2p5dGsVJj!ymX8eBoR*e=NXe!5k5UlNo{R9(wE*6r
zu~q9u1L^I-r>txaivbVdHjoXj&ll%=Ntii|<WgFkIe_OaFXP`wat=6eapA4UEA5oC
zHsN86eq;8p?(_#-S^G36Wsk=kQDTOy{;Yj`WHP$_N7vW-*mXLqGuiqQ*mgf}4b{Q$
zCu=LjHl@bQ08@5sbS(Y&1C4;P!e068vp+UqM@PNs4|lsevL*psP)ZS2+tML>=&pWH
zq9lG_TS?8mVv@{Tc{Zw)nTQx_xEysJ)=}2jhO1NGCt0<50@$6~tk_Br<N<5JKIgH9
zXSfSR{n;mtY;0w(8Y?y=Z>q&PzZJGX%w+f8y{15~DDk|t%iHZ?o2|Wp$M=Q*W;PFi
zGy9;}%L;SbOt5`Ow{lj$QFt_RKX^(>F;&R!z4fEU1oTlH4{azG)^-mO?uf8U{9<3j
zp}wAWik39lqa^*nWHAq@hlI?0EHam%xm~l0Ot)&b&51=cASYnF-l-&hn}!yUjyzr{
zWv2S)?;}!8MTJ)k`tx_j-c&#JH2WSMz8ghE)f%ZE&z97IZj~$Ut$|a1;$Aq5TT+t9
zh$`=hzosHKQK+}?Y!=2M7;9+4;(uNg>ahIdgJ2s{uzCPbC24p^-uG1^BixnVvcO0Z
zw`Iz|PyZ18S}i4Msg0BYT11`<>H7%7_Q7sak$8~0sR^im=@IjnhJV5<%Ru}gcQYNI
zK&`iGi0V7c)qknGr0$LEQ4hT6v7F===q<CQ+_f{Jc0lDMH}pS%W$-%(R)A~f1(P1f
zOroNT;#Rm)-)5s@3C#juDDkR$qWon+yV6PE@-npI=zSgA)HHwtIs_F%tk+AIj4#t#
zA_L~2-t?r1!gh!mEfNN_&$2>gXsIr;QD5>bj50z07S{U}{goR^fk5_0U3&;T7JNrF
zDhj|ty}%fwK^0?Loh6Ix`ulu(jiYe^mR{<E?Sfcf<Vxu7Ym^Fk$v+vRY2P2|9$wpy
za7bf2P~BI6H~>w6tAvn)&xaZ!2U9_RlMjfRZ3qN@CuNLfQ4x`CRLHNx{OmBM;K0Du
zMIS+XQ$~e%kJLcK5)gLzfgG~(%>m|y?7+}wcR*<*V5A?>D`51zO{(jikIb<@<EX4L
zMe+xcM`l;5cHo^2I5I<kKDlf7{{?^lQ4o=4|I5TU9``<eGvkj)I}#~YhHg$(Y<IFn
z3gQgE9mp?fVq@&`7k=<t-u%bOWt>yb>Ns+j2l7IjlA+O~kVu1F7$VU7cn=l9hwjal
z`ssq2G?1bUNUHQ$n@*79Sm(?cRnQn-TZKfkVd#DcLDXX*-(PPsfU+Tst;h6L0E5tZ
zSEC55WjV5zf5g^93@uf9;>%o9s)XGG$oIm2J!Ju0A9`1@TI0<41)G(z6%Wz}aa8y_
zE|;z>D8Jvzbmg{ptT#^n8F)cR#1KTnet5L~*s(L#)+6x-lDC3;Hm=YKdO?H1s=V&E
z?}Op=KE$>(My`Svpf>h{Whh|;<YmY{qb=p>g0VNXgC&nGk7=~kddg#$GW)6GJqT*H
zm5M$P&lc`Ef%8wW5MM9N2I5X%u*;V%G>Ls?1`e)!NJ=)rPe@`**rs%3^Ny(RV-A7P
zYo#oCZ{~tpE{G~KZ~Zhi$DdhMlRTe<2MizlSt1X5%5+4&;Vq>gmNr-&_&_)+KH19^
zi@UJ0LFw)}Z&B^#Zu4I!dZ50eE1Z7@2P~p|&`3Cfb`$an)w5n97?wi#sAGP)ywt8C
z*G{f=E+D)C^i8ZfdiMG&>ivE-uGe{y?$O?N0k_bAk7RS_pr#<S*?=)-(c*;7Un)*B
zJzwk!6Y0sR(HGLXtHKZk(0z~Iw>o!SG&uOZrRZB^v(XZmE3O*kkNHP9zb1-VymtGN
zf$0@rYKLeNZ8b!}SE(P(Lbnf!)E~^TO`|^DMSohNvt+U?b?e>ff6vVQNjL3|LK80h
zp<O()UBhy$K9ae>8aY#Xz7(Ofub_gkj_xWi7y!0^<n#QVztamg1WmW4bbdd3F(^d6
z$=_{>laTUQp01ymA(M41u75BhD|nvU2=`&}ua1FrBLw0{Ce@{p?IAYPMd+E_v*ND7
z4S+mrjHWha86Zhe)n4#}oT+yrynNPjPn1NR&s`sX?gSysyNE*a?}hqEz+J}=FhLYU
za6QdYGC@=-)1*k#faY?W@r@aJFA;*zwz0BLDJ)^HHDgM`PLjWUbmza@vaRVj`C3YV
z5H7Yvjv+i;=gN-ZeLMDhTqEYudknW`<ISWVyEvg6fc9<%g{JtokM$en3q5D3qund?
zZIs%`w^Wx}Y3w}n6o_PV^{rEMzq0&bLfhVi)|>6h%52ZYH0Rd+K#HS*sNG|CnL9i~
z`35E?#3CXas&lKaS@5nw;k9?$a+E5oi{_pP=60~5@~+VBO)XLbc(x)!>?Q1h!TH!f
z0scB$Qibd@4vWiPfaj{pTXz5>upNK{{I%*~hhiV{fCsoO?{@y{!vbdZkgzb7HG|IK
z%@^Dm_4wsWFUPh2+Ki@nFiq+Hejx?uEW)8+HK!__PRGxZl#`WT=_%1&vviBG)kW0A
z@y};875bc~h4a{%yyw$i#Ir1$vkga=IASTuqeAVBVsY~vj-@mXA3gTaT4MbRR3rEY
zxUmP;2?J!Edr6V?(Dh<)UvEU(pCjjk7@x;P1MkCQ^%c!d`Eut^&n*&7zSo#+yzfVY
z(eP&Z+r!R|8d7YqI83#CDn(NZn<R6_!X4WB=6`8b->|g(?zB8kZL|bC6KrC)>#Ubu
z;x5?0B5<;DA5|54B31mQKnI2o12Uo}yX{&GL&2i~mm_hXy-U6*DY5yWlBu`(|ET&7
zc&Ow5|1*!wkUdKwD_NHv$|^*%x5z$wot2%Ct*i(QdvDH&LKK;29E!|4>zw`n+|~E{
z`~E$u$0MKhe!t$&*LuF*V}hz{wqixd6CLigz5ZqCD9aT5DpB9yvKv<w%6PLRODq3M
z{}cPCzyapRK7%yJ8&O>Kb~!%n$DuMOA7&(71I%3|h#+8plKg2F0+pSvad9-k&;s9#
z;bN`+34t`hB#3Kq`EJAxOUY|q_!<^sM1-bPh?kxOAs4GI%#oN|N#RPa5GkUmJ7#=q
z{HNxd`6L$9{r8Cumm@k-!-8bc2N`<KtH$aiA?MUsIt8Kt$#c|gLaZ=U9_@fESM8+e
z&dMZgj8wR+u;O<!`$9M{2XNpB5PJg6Y$6pxV%pL|0UiqP3I!z<2P^!+nYk??&dl}`
zq4iuUOo_vyP9&v8X7s?F>_dPGO0FoXsDTMGsR`dKpp|Wqj`#DPlJVNnCx!Hbst7>I
zG(JMN3uD4WRh%xqEY+`(-qdF-_uOAcq<9QW{2T$xh{J;{hW8}SpPbh27*{!bhrEJZ
z=7ODBB7^P(GZ7iCvU}Y@nDH&!YAO=CX|r2$t~AJ^NnlVcD&UxlTu5Cm^bUIv8yDp_
zDs;o)hH(1CaP6y5f`%@K^BY<pCYEgj`xk8k-Y;H|vZPxF(N~Fy#n4R2AsW?g-hi8~
z6V7d9yN?zDdw`%XpR%&PA9r}(nuJtjAH;!vddW<d*(GwpPY`YSlAw`UB#5ho@^k1k
zI18mEg~N)U^`l=<vC9g#*9xDle(|`KxX4UYt4P>NMrng!b>T>EeqJyHoE5@lcg6|@
zO{1h=do@d%BvB#sNRAROArKTfodjG+j=>dz`Fj%7+xBe{H0Z=$hpHQ$?|m>Et{-td
z5sh@MA--R-`TRQOu(<l72b>y8WfoJ}(^{Oyu}1ru*xzupNn67-y^wa-6ZYxk36`eI
z4LgaUM&DF0#~nRor{$w+6H0zAOM^Xj4*Pfxun%7t?dJw`6t@h19Dd8FODKGnE?65P
zmT}vGPqo^>U1pj;%=xuSe&3X*O=ERe@rsd3ProorzkyVl%aI^|^CcL0Sn|WVk3#_+
zDpMhPg?A{a5Wh)=MX3>6yE)m2UY}Lu#+N6_RA}F*Nd(>Jq1spGrc(;i7Drb*sCVtG
z7!^dC$*@#tL70?BQbTd(voH0)hN_w!5&<}eEu5C1waLer3FU!r+~*4sH^jLQJBnK;
zMHl8O6oWi3+gG3KNMp7SUOyI1^fao!qmcLxs|lvysUJ4m1PRsb^qM7mx=|&2WtleJ
zY!4iMz8u<deRgh75=Og2jl2Y-^}04qi_w#!p|mHgFkRlLX&8^OmZddHUxlq`@4yK5
z=CYgIn&?Y^m~Wad9yF+m?FsSjol}426RzuH!?N~R_IIBDfJebYmj<o&{}@^Qgr$C?
zBvH^uiZNThE8?_-9fy4nA*)h6kI)65-ex~}kZq6S*+;j`fjs}Qe+|3kn@d*L9=9*~
zrLwe9T|xsDbZ_yIJn!W|aRsPjBL$FgKChi#adExTM1joNBBr%9?WZbxP^=%%1oMa|
z+a_dZZ(u@--<Ezwb(NZg^!M7H`qawAJ7He0c4dOE|ElB5a+#~MBJe7?e!pIDDAV^Q
zITf|Gc|CsnyePYsiv+2m{za{-;oeE!XiTYm+h_h8@YXuGElY=$H&qpIMAxnsHuf|I
z+dZn-1@=uMDS7**31<Ml@hh^MsgL-$*E-4*AEs2+%NBD@4KGg7HJL3`0zhjiuyEdB
z3@aysRwHCQ6KrL~9!1?TBntCt=MHRKfA^wM*80=uKt2~y!sEy@3wQxsoaFdHkHd@w
z$SlJ0J-pl26vpkXUf51F-_OTGZSUnrB!<S-w!@JjSnj32we6u*F{{d6b_``d+~Lg)
zpWY4OD4fxs!?vPAUxq4@rnXa+Gbzw2uvjMYtlfv5&4<Tf46rXP_}iXYBs~JE*{^KF
zz0md0>`x>$?2yYBYFSgNtu~Jr71?Da_V607$2%zglMkb^qF!gXH08`8ejVrEpW%k+
zn3<C>_Nwf)T+f(3fkvX?hU%#;wnaCBKq5%(=ifix7~1C<BMcY|O%gia$u2Cn7JREj
z`$bwNikdH?St{{WWF4T2-1(%76nPsacau5^s3H@5%u(p<?eEEm6k887?P=E85fcnU
zps!zHSNI@vXUJW7YUK@i8~Kp-&?1!;<Q(N|sC|+c*zRgDBu8N!Lql2Fw{X-+tavyi
zxzGz974$sjxFq*7Nx*)lvgaZJ4$cp%1Ja5A7Qiss0M8Lc!#L7^;gN~d@5>GZtXQlI
zf!q2>i9y`l%~Nx|yK`kwn0H~sfH-i)+xG0H;03YNNLLkq;<;dYVu(ZE<HA1<D`h&A
zhagoCiHjrAb2&?@>EV=a(U<9{<hX~ygqx(NtX$8^iR_UmhE6hdrY1}&c5_?{?UynM
z)Oyj1X{)5%mAJw(h3lXrJ3~9y6pQ6^@5>5rfdaCR4CH0zh!YZmw1HVkCv;|?S@!He
z-Uq9-&o|uk&5Ii964mn)K@(R=ne9=*!U8GJeXc)*PtFGu=M$JES^nH6J?#d{#rFIB
z6R=c9(+Hh$?dqc#DXy4{h<&G?tjp&rK6Zj9>AODh>P%AZ^KD|0TzNyALzl1JpPg?O
zr@QQ!u#rUK_i@2bC!B**Tj;q~$F^VP8Ov11B32ri;^$eZ_Yx>Ik1sR*YIpthCAk>;
z$U?OUkuB@D{XqPL{gxl_yC7c-tSE>TI0M(<;OwS|<ff1n{}f>kFr8^}B`u!X_t8Gs
zE9cfmyx~Q2?dr{|9Pi2^CrzSh(9{J-mJ|&S_Z{QMzL5HbhUxfO5=y*1W&>2O=5u`i
z)6mQYRmQ|9*%GHgxH71#JY0+M*p3>9&Wb$wwY~$aPf|$Q>b@yFmjkGNuelTp{eXr}
zS*Y!?)J#Th5dpc2sr88@?8O-Zd(3};<#sQ?9n=PdHCpafBgeswiG6|$F(CKxZI>3d
z0sDwGup991%gLN2Kp4K!gLw@5mT4U@vl)AFeGOM2Ve1E$JNvt{RpN5e(a&YfgC(uy
zvqDniOHYaRDe4zoP^#eZ1zdD|c`aO%1!+#4Lx*t=i^3X^0)+>HC(%;xqoo`c#oZ8B
z^)D4xBuwJ(v?;tscf$3`{2}%pM7nI&C5~hwhwyLaC$IaD{a-e`O8f`R4y@TZj<NOX
zskY3tYD4t+X49GB$%go*kAx6jxoNTr_a!_2kuU<Dh{@stPwkk8I)Ie|?9@v=k(!L1
z+f_7G^0zKoe(FL`x7LOqYC<MP!YRVz!@gc`!!z`JpJZcQ`nH9ti0JrK!u$qkt*jtY
zT*HVd>oIy<TLIQe9ypmY{%eNrGtts;`JL<BPe9U0CL`R{>F1x9>6|Az2<!$V+lVq@
zoBv6xRcEB(h|3iudT<K(I6NJG4Q{G5tJ)bq6N;y*K7SA<l9iBi1UbZ6q4uVI-Mp8Y
z{?q@T8JtLYE`A+3QE;O3T}3?gQWXD52K0wMuZ`?S2(nv0lMH=B+@B3NT@^3Qf*EnR
zDGBAXE@o7t^~+N9-yC`_GC@l&fN{35=Um2!iLhD!IDCtJMl^gd(`RZQFQOtX0iQ5w
z5*QVh=T=)(aM{rflJSND9E+vSq|X-4v3;0J)JR%rv3R8TwxJ897WDL_cVPbSH@kqb
zP6%6rCtq*FvjQ}uL0qRCx**Y2p`s^m&nwy|#Jv8>uY&*PV!ie?w%Id+Dz@)zf1)ZA
zO#krUTn$K7&F*kZBbItt0hLRJPN6)#37q^3{1oAMghM=zU1uA^50vD;fA7W7DymRY
zkw>A@fo!v{pl$@GK_6;OO-UQnARVM47E=Xd_yfg~MT&t;7DI&y((?cIav?c)<0DC8
zW8cTWRQ#H{^d`B>@}a9#k(%A$E!DWqxsIML13Sd)jW5Q4n+EzmsW$*Z*;x6#t%#f)
zg1mOQ6QfVT?hYK}2e4R0@g8xzlsl<Pg>ot?SK(}Y>!?q15%|Y+41veC;5z8neEDhU
z7SO_t&^vL;{W$8YftPgKD=uoxp1|QGxRKO1_}UL|Z{LOgFiJf@5_;l=R7PI4@+7aM
zfSL*>;WAy9yA^X+gnlBPDyXV(Q!k7aG9in+Ar3AkR^M<y2kSh>Nkp|J3o!kL!1ib(
zAi*#;G({PX@la0{s&0BCPrkzwmkKmkKN>{TlX?W5@1xGj!L>Hl+ZtdpEhvh@n8JW<
z62jHO8pE36LYUH__!68cx3q|9UctEre|Czzp`u``dk~+@$G;toO_P8JDI_q-3H}d0
z!L8P6v3}G#jCZepuX6QQpy{}9Y$zWibjFSI)lnQ#Ww<DgXAz4&n-$6t=_sj$?^1q;
zL^R$d0E*ARkANed!o1lh1@D00dJ}5i*l^*E>!8V1?KB6dPFS#P&~VCu-w6QYL_Ca#
zPH~r2iv)4(XYD>|2uaT93k7_%rOpK1vZ}hg_%+6g3mE1mgDPLQ2G=@6U&SXFoZ836
zf=olgqzUst)WoCkWhEcTA?OzSms8t69>}p-3fv9eh1Y6Yx5<&9D&5@y`@60-1v7SM
z=J+J>-{XhOFz6u%5@bc98)J#w!hW|GMD{_?d%xeuwThxj^=z(&kNfO%@7J8;R^D~g
zKXj|MeW>O8e*b@nyIV|I5u$6jIV+=ID_Du8Zps;xmac@!PAN))*O+Qtod@9<GM$O;
zUw$&4C4VLAQ*Q{6#=`!-&!*0=jocwJTROT9Z-qAlQ4k=@WbMZxkfsOUqTatf6tRjp
z)t3g}s2pn8l4Uo$=fB%R1H$1eHa1NGj`%^5=gQRJOy9r0bDdRBNo5HeWPM_QH!aD-
znfxQPXB@258b7DL35?JJXfMRGUVyLC5YUpaW0aF6=|oQN_cnvWr0D<(bekfn;fv54
z`#9VGqwR1FcJ<Z|wNmUvJ?ToURF=3Aq#zB?F6%5MnZS=AZz<q>em!?UfauZFbx0;T
zHWEr=H!vxI0|7k(vZ7^;;PVjDuXID@{Nv~JaRN?Qr@nR~zv<}zUOKy@wdo3UEjzA{
zR7xfX$FnA8zXv+#ZQzFaV6pwqyupiW^R~+wxRug$4<mxO<7XA%Fj5+GOs5NGpZ>b{
zCsFfgeu6+J6Deb^4PZ658aZv*<2%_~?Pz`C_11l=lJJ~w6UWNo)OiM=0_Pe#RlK>g
zJ2I!s`XqhdQ+8dbQ{Te5jk~FU6-pNQ@{P-4QDG{0B-(Yof4q1L?fuyISpe|&X)(tH
zdS`v4ndbiH;_L^DT=@~CJWN;k2uqBm(2WqSoK_Y{RQ%6e01oC3vkz$&0t*Pw8F%>_
zZG!=jyB9^?b#p?>K2iS(#-vEshf7l`@P2^Cc7ojskc65+6pIsVah9yEOSnBe;<UpQ
ze0D*;{c7_F+uXM$9AKD&kNNhk+@{gzRKcUR>w4Q^UzU>F^&T0_GzVTa<f1=_6XG<E
zk+te6Jg`-GEn8#hFv7(3KyW0$g$Q;z>yn&`G*wfacM)KBD1`k<voEfunxV^tSC*Oh
z18zAC5rsAO>?K>D0u-LoZiX5Tj?@k7v^5v60vLxKK@<mmxwf@jgL8j+>G3u-kRO;j
zlTO7pb|O<KFZ7V1-%VR(=;X4Hk7LH09Se3fFMa!`zpwoGQr=LpFbRnD$Mhcc@lxsq
z<%iw{x6Vt<5uNmAsxxoXI#XbmfN|)5(_D_0hlSNER>|q)H;DMJgz@dMTT)Vj?}KC)
zwN%<J{mHlwG-}Odxu*38J$h_z`tfs~Kn@X$xu$^I|LjpR=ckIBl5$rNx4eqXdqq|X
z-Lone7Zw&XvZiZ?KOf2%{W7c5XFzCE+Oc$~+B?M4pRk2@E^7s!vp|TN>giW_M_to^
zca;hQUk`vUbjvZ!0)8`D+gG3Dl|X;h<%yx^-hdSxk#<wWrB@*f8SvkOGeOZf6L8RW
zI8SYmJgqBEN(*c!g1NS5T!jF&Q?f-bGxU^X6f>u5OAAS@l1jPQ#T=RQ0d$dKkMCj5
zvMdmmXt`DN^U=(Qi&DKYC1ilHugf9toSOgEQa(A`t(&8^1Y`L~R=i=5Q2+3~cVR(c
z>F^VH0(^pG#@>a?V&oJZXaNo(qx>?~V90!-02|uQ#<sRj5GE0+@y#T{JBNS6!HbfT
z2aO`WoY9>`7q4$68HU$><<j3wvJBctzEx>p7jg9M`s)TvyX&CQQQe9cars3~L#duU
z`uvKe%2PvRI@E;~${NyD+Y=`FtV<j>4Atw@S5H0%G5&N5+vvA*4|(B9*!II>`pjs$
z6_CbU><Khq!FjUM=~3>i#S?|8;$`cDVYAoGhivK>Q#LDV$>k5<cMTo*GH#{T{OR_V
zc|(`1aE*gVpmFTg<G>_I)aL0Ut-dw=M~wr~AypL*MazBzp+O^kzwc)-cWPG;N7z`8
zttup6jF1cTup_CReoM3uyqGc|(AH#Xf434w&=QA*7~T&>p57W3CaI7n@RwMf;zw#C
zJz;35Mc&Z?c$@IX^+YZfPPN5|N}bjHR=FJ6mz$Y`dPB>N*vTw0R_t|P9jD;?ky^OL
zo&LV4em`{Ah(xyFO1rRc8O-G5j?>m^-CX+Z2t$fIoadGh0K6TNyvZIkEm|^&>~3Uj
z)R|cD`O6_(+Zc0htoR^=cy~SN!^?K|hWLAKx|Ac#AD^mzEVnJ>5Wcddp2litA0IcX
z61_oRte0QU&uKR$l78iBP`!7~!CD8AEV4Lrktyfwp?`?l(kuzqXuKFZG|FGMz{zFj
ztX@|R2jAg97ptCFU}e8r5?6qI1-o(@yB#ut^34`UAM5jxvUWhN2;e=|7p+*NH8Ev3
zpYjtz@h|zXJDiq*-j&b}Ca5RmQ0;VX-LijDDiQr#!(ln10-Wa02}VZj{I<LBEk)O-
zHV!%}66K%eu)Gr*+VX|9|JL7o`DiG}bkpdFVegL9x79ioK!K!dk;XL)%JyBgeCQur
z$#Khk-*-tyLev~rXGRrk0BNbm{mcmGV9k>N4k$h1p^c%uEFJ%?R+#Q7P*n%Yb))*l
z-;9Z^AgkP0nsak&BRr(oy@<ruN<<{Q`X&Tw>pf<S`DTUlMx0<A^Ra!?wW4E9=Wb7@
z=2fLS()u#FzkKUGV}ixK@Q|>`|H#R;DJQZoOND*Jwi>FJb#jDdHt37N!Z%>BS-~~C
zQ|GhGP_HGdCrlu0E?g8T?sk#qF!XN6Su;G8W}BcRX5>M8WMBBsA=<c9yyw6|Xi={3
zhrfAwC@7Pl6AlhZeciSCd;eifb8bQ?%?KzYf2<_yuwkltS762K=bI7782+c<>*Sf_
zWLYk>?tbLQ7b7{!)<HGSSK7!j%c7iVhR@##23B~S%-pV$?@q11b;N-U>3?8=b6DmE
z#pSbAVrSY~GbQW#Y-TUYmn0tDtXa;j-BH4_S|^0?_=3brM=uN7+8Wzop3F$reNa^~
zc<N-ZVR0|M_zS7;BtdPM<>DYMZ!O0K4cFTfNhrs;Hkyj0;wY->At|#suuG{;sO8M|
zhpOB+t7b1n@4aE08r*MghfBJ{JEN;zIE{kyT%gix<gl>Ak$~Z+Df}@2AO@v3lBu}e
zv%T8bxq41m6&Ag$hMQprF7W~G@f?ErHVSIxM>)Q+fS<`uF-8kD=Ba4~XOCv2;wu$a
zAFtJrw``MtNPzc6t~#<hn1F&~A}9_5U8RiNd~sQfOP9;{=LT5Qx$J|*7=$o~-5F_`
ztSlWf3TfM8zBaHFCE#MN5^<47TkIm|SfT#9{DJH!Wd4}HeY>8+4;C6M+mV*>C*HE@
z(;d+z=N|1oaQI;OJ*+2nXSc&Md%GGLK}Qn-8%vcQDa-FyxGmo*jPY59F~F30T`X2W
zu;ww??JhJ7^_0D#Spcymmh`|C@yqB6R<ilN+dM247FudEkFe<<c%L=$$XVe%M<Eab
z4P6Rsl$xxH#WY@#6~Ot;VMDgNu%-*@P4+ZJB7<vRD@;yXM*ci}q2|yj-a0AcR)O;u
z<CL7IKTHmPgwc#KqU@Chuo@AzQdEzYZSox(Q!mb~Oz)mn+}n=ei17`CGSzhTXZRCY
z#vg3JC$RV0MTpPoJHHs+7~KE6x@fUpTrrF3Ma+RHR8D*X1S9pV$bIui{MBjrX_vJr
zf2_$(4oTcPqY7Z15hx#tnjdLf)%wb%D*V@+y*OgOJE(~3jB)ja)?)gW<_`-1e|8k(
zL0lI!!XS%iiYH3m>X<h9%=h|*=M{{&EP8Fn>^EWT1VOI|C#d34iM_EZKr_Qo(Dp(7
zAKg!Pq8oS3ohTN=o?=^S=zFS5=~r=!gzA>wyyp6uBmzC(B<$y+LD28!0Be4o3r8FQ
zOtx2jJCv_VlX2n%$83>cDJQ7xh$>We;#(voJ15#2KPRT^h~>X4TEU53e30|Qujc?-
z_Gy1yo(`sPW^59RBOO`wzEwqw^l|)<GnQ8iG%~qjgtW7Tad{EFxp}*`+TN||PNM<w
zyHT-5s|hxE@w?Au3)q?O1zf)dV>bufdM8ym)G<#=Zo*1<B`jWH+)iE36#E<=Qfu$8
zMOn(Z+&+JD{IVX7fS<$H>?VU)BQ0+U?&Ovy2X$jsvD_9V3lmtx?q2$(Cbs<MQye?W
zQhbIcfG_VD*Xmqhu6+#j?6uw{ret%!LZ%LTwD`mQfBpm*fch1$86FwIFK>(`tJ^Qp
zs_}>6mN}U}7l$s_jBIH%1zOn<)F&;bL?xWeLYOa#8Lbp@Cf|H^#AUbHny%9O7PvW;
z46-M2&3}^Yf8@j6q{@=4^$BdeC|srrb!3A&?m-y*nJq=7`oIGd$-;91j|#V1zK2Na
z#&@<Wj5%Bj`B7cEb6}Eso29@H<Wq2__m;G&1m2dhJV>YtuT$-O3hzWR%?up;U7lma
zbzIgBrrZc8w?^av{p!3l*~D(7f<d7rprX?zoy{-)e`7Fw>AAhzogDLSXHMc%IxNU?
z^G?FWyHnOqy0<ugz}MtUW5w3#Uc0zd{7QyDNFndDedq3ElD6C<{1gxZxQo5Y&njz0
zXg$_+Yz%UEBQcvbhvNrw2~40j;YRMW<x1F5vUUwyHV|kf0woF&E1SJd=!K4t$fb}A
zANgM1GpTmQa*Nbo;Qh!u?1MR$f-O4O{gphI5JQ8}T<p*S7)>6pwd3*Ovh^lx8|+K!
z)+gG1g=lYQx-cT#Fq^qDO~!^ZAJn?I49#C!K(JupNB8WQ><8c1qg+k<2Hw}_zncir
zMwo981eWhOvoaMc$h(B<EI$5q8|Jj<(6jdyo+dR!@Kzeig+8*MktcwWb4@cPbK1<e
z1=x~Zq)OF_tG#6Q2wELhR}IYD7$(u)IoZBIj<zngaMgUoWVaHE1h;tP3ozZ?{|)V6
z6xsTIj}?TUHFmM>ivX6hbWZ<Rj*oSTTN%!k9UD>r4{_Y_{FRq0&jsiy%cXMGDZ2N`
z<?+cuZP!<pL+?C`XSkK?61`1?{QyJ*+<Ui96+dW$`W7SFY~Su&O$Bgwb*mS>aQFEx
zA2N@jE&D6dHLNCdWi7+Vs{HQ1sUCW|ri5*&j%G`XExkL+AHP#u<}Vq*oV;eEce<D?
zIpcK}6k@-*Tf;al%K~`OgbH&fc1Rjmb{tVuL;^4*ohhP7MmUKUvZZ||-UQTkiK)VU
z)<ILTD)+2I7{_+?;^$MT+71590HJie@+_l9{<u1SjhcY)x#*Ov9eeMEX<%oVSN~1m
zBGa-%-G6;-4R%OsmOE%JY_B<~uJOa=eX2zouH@(y)`tkEW5(rIRl#*6u3Up_cxH5X
zwyAgWogBeDWJH<M&ATB9KO+Ko=FMY(7HXrjC@sz)3=T^WerB5g=kF74Q<s-=ds6Q~
zcUqx)+(w;25Dd?Q5K*0e)id*_xRMb7=dr?-?6e0#c8B(w!Y*^q8;H6w6~0+`MmI59
zH6Z!{W;<Fe&UR#Zl20Ar6cN|tj44tV96OKx&d2flK2I=D2BGk$?|eIBg4DKZq%*&`
z4;-UbM&c?87d`hi_oBjQv?9i#lTn~btu%+&-Jc5pPw;{4%ps!r8v@sg*jT$OY{+ur
zm6-nYhh`_%NGWbFK^u4EV=DrvU9v5oFv)$w_XHPLD)QYc6p1^CHpztqy70xMhuCRf
zt83k<G>fAo3bK<Nzi65R`9mG|LUw@UFWmv>$1f+_Uonk1<hFt+T*E{Yx@v<H$xq_L
zTEoNPli@&+?I&pRM6vOeb2tN<0ea70F75)HOoX}0rrtq=eL_Fk@_`Cp(b4#zB~)Rr
zLr8s`@Emf=>?+z5aMVF`eI51YAFn!EW<%7b7PZA-^)zqq@-!Tki?woR&(k5D2Q`p%
zP|lkEVh0WPgX2>Z$&$?Yq`ZXx@_ni)zgY@9Ph5|Ys^6t`0!S%^=#dH52RXhuICBFq
z4D_E#{b?u=3s)eD?92?95rF6<F(QT0H*sMvxl*7lqDJs6?b=m5u~U}cKq=x+Btl#m
zQS1Ea-iZ4=s;}!iEn}jOyYg0a;%i*k0t7B!Ur?ce%CWMbEEiov(lSv?bGPy}Si_ec
zaVNx-B@T(b12o`Fjq%_C(KO$=2Bhyn%&bilbZ6ykUClup_HS~Rs!7Szy@}h?%|0Z<
zKsg#rku#F!!));ji&ISVG_AB31Hgdy@v{E<Iv=GPK&p!?!va4hAErR4H&x~Q(DSLP
z;AZ&I&{^EgN*q5m_vPVP7v}K9?aC(h(}E6Hjw}7|(oTw|AJb=~c!2>;y9YGhp0KfX
z^-d$zEuqa3k?)<iUG~!5pC#C=bQ-Yr<5*e&tDXY8&U`s4zT(9U&nlvx>V&G5^lv8*
zf!S`g3ys&I0j8bT{$iNskxSU&dDWRH-RGs}l`&gak;{Z<ewPr^FW42AA6Y30&Ln*v
z!IuO$rkXZGZkFAt@|4j1eK@D3oBh7m;D0&4I-_cWdD$L}KT-#N7oG>VLmor72W}j5
zaW#lC+zIJ}z~H_Q#DOowz{Qn1|4w#F=@$lOpT>bE?k+I(gcQm})W4OB_>Xd%lmUYB
zM4DP(_yZMhw!?MkCI_;S<QUTpHYLat@;rUnNp!XopZ>sp&&3AK(joqpG)MH`gtCA#
z8Djpu6O2%fDHn#GV7|qeM23&iNT2jC2I|bJ2`s`)frXG-UWtmt>>vq-KYll+g=Pqi
zg@l2n1Si%PPFAD}$ZQW<g`Pt)t9$+-^0;9w1~@w<{t<xwtZ}9ndd?*@-Dc{_GR3+0
z)g<dw`{dyx{0IXJhlu?NIEfobNQqh(BT6m1!TJ=<(sf*vu+hF9TO{jgc~WWEyRfLm
zBRiPAN9d_yO*Fy9vt@tWCjw?46R^|exkO6x=u5wDcOF?qA^ae^muH4Zy|yGYa7ul7
zEqXu`N(F}fe1U0Z=`6lQ!394Hg<DGuQ+5#M&#^W3;O&Fb++CMTqqixXq$AH%!=y!^
zt9o)WkDhA&o1<D}F!QDhkzU4aTESyWid%?&8j9JL8>(26Ltiuwx0g?hrWg&~^d(ZJ
zBeeZNS4y?aOeFOcLjE$8p3k<Q9%=)<N~``nE;yBvOhbrTYWUUDoX;#LG4gS?w^A~R
zU8<^i?S`(B8`n%zkrFFAiyr2^Q5<$WaQtZ6{=qL;al|X%)aR3SZX+T@^$_8+kRpLx
zI*QV^$Sb%VUFLE{iT**zr}%7u&Wa$n&`9CcXuoYj*GABkVcw~`13N!gs3DrTL38&(
z3a?|Qu0U$=bF#OWmiKa7sNRotl=}Ic6gYDblev=5Gc;7NeNn#-ydgp19Z#2R_@-4O
zVlRXQ627Ta|IH3u*8b`cxOzO@<d=FTM_9$GP%rG<ryLMn6u(R9$4Ske<|oCVDXR{&
zKriX#J~4{2MrB-tv?2An*Tu^+-X2>!p8&3_vd>(vPj@*Nr26mz@A~jqXao%{FfZ$D
zt=S7QbzqdqaCik=`00F2zUu^nrmp$5B?iCNn&8eOI0n_9w<L!7eJ@Pq)p%!iJ$%2d
zjN@8bXjVNci;z8CCy=oM*faJ-rQqCc^V9uG;4Qp9jzxU_1dK$hAa`G}Ji^9TTZPk_
z8R&Fgjdd`+gEE90b;_{fHvFbMYOb|xYLGCB*nOO%4d_5hV7c5+g3WjFUo>y+t0F`e
zPQXH}8Yy-8aVSUk7@*Ii?6Co@rN^!De991!Y$l6vHfbvLSlpBM>ytYo4ht-X7bx4_
zBaDGx&AlktBSx7Yyvj=+nI<ru^bQHVEpJN1?Q>WG++U=?vPM4Np&lax(nyhD6}l6(
zDFh0uzlBODn?4mG^Eo=`f2+53dTs=<5`KdOnx68L?^?U6$|Fz-p?KJ}uPKwE#?0<o
z_Sv{=XWRmtz;b^6x{-kpq40`9aS+EkswKh@Hzo@&GdS9qK%zt&VU<LF1o;TpVd*ed
zDEjUF8$heyDaF+2_$WT><Q#VDRPcSe+GsdHtNm3LIApz+i1r<>p=a=C>gW(c;MmjW
zWqsS7-eM@!?%^TLeO&-q5~iMn(|plkO_x_XQtI91Ss`s_$K&SgITO&Uy7~1ztYp=D
z0XXs0`2iy<OM*qToypp@dWBLv+p^pKbb6L@H&zQko>M_pkhDOWgZc`?jq*Ro=XJWF
zOoQS$Os&@@TSOct?H=k7UA)h3u3Sacf<@SY7ly{794l+Jc)EZ;+1uB<Ov^gi9-uY<
zJ^~Dd^zLEk)K;JamzN7-JZK*tbq(llCn6~tYBnE0up*x?iDCvX?w4^ic9A=`8gVN<
z(?XY2`OGQZy9q$Zai0ws9={coX^_XrR5+Px3h$QarzoKIwy1nU=^HF_)0o8Yr%dO?
za8G!|?l9>G2`Z&mxQ=4zfsP`4p<lD+D&FS~ab$L0*dV);0q9y*pNlNGyO%gznNi$6
zK7X=-!Z%hL2l<}U;1vspr@KiHcF`6NI0&zK#oUG5LA70yb{Rs1Qy=&_m;TY?2bRor
z3F4Z!fYUU^6;vom+NDXqg|2K+<LXu@>z}v08l%s~^`_d{IPDGRE@YEPsK0?Hdb%4i
zHR^zJZ+|>b&;gn`dTtM>Naw>Ro{JA^a+}8l*d22lX}}!>IYeaz%NmowE$y#zET1tA
zh(D(I&0_T9;LH!O&fgg=!b_!n<Z-}CX^|eKZ!<tD5+DE$maeHBj)k3O0tXyFJ<8Gg
z)20AuqMr0NBo;H*m~FK^(`{8Cr!uAW+^?T9_K549{@>A^aR7QxftG_(q7T|Eg~p-&
z=N;@2Mt=|5W#AL<G&cgaz8Z6ezshuIa**pil?!VkX^^kYymtwRivC)?lQKYK_fw?-
zZiMIywSExa^dv?I&5JHApm+!Xi@HEJRGLv!p<SLr`5e4bMRzmks7^O$+T!8BUyaAi
zJ<~upOjE)XLjk!Sq_*C;yT=mXAjp2GdSdj)`fN^<rCT7tK~~70krCsSgX=g(`dxu)
z1Rz9^vrLS+qV#7q<O>r8TJDttU=OO9PZg8TAeTRktX4RR?r;O|)ChKX4hZa{>E~U_
zV!(!6=Tm|}ocn#MkXsd#>i=i^MDJ@pKNN&NI%`{DK+cC)=mX7{N#9Yjou4M4Dn<0$
z00NxV3Lt&kL*U#+j5BmaA!2%TZJi`-WH5S21ZGU*c*z{zNg$fcF$Cy#9TWYq&15sl
z;-jWd^}%Hl@7voaiQU7#XCNP1Z?uF^>j6z04RI>s_1EE%t^0Kw$p>snCs&hu>tJry
zl;#2WoEb}khM+g#n#kU8a-atZS67*402Kg?UruuUvVGH{gSn{3>LUDZfCJIvH^+DG
z<9d7YaaR}oU8NH=eD%ct*J}73_~<D~Rg{qRiBJ_iGnk!bi1fx*!-OXC&8ay6WYO(U
zF)IzXDZf>fqxV#9$72*TDyL2g9LvQixRh$-05JpI6bHKL`Xu>!pbpVFEjHMS(wOdW
z660wph(3ffh4F!<Q~?_rSSLYfyEi<LDC@p#yrqHIUPnbMpPAF+4g2wkx)!=2AVsL_
zM4%?Og)en{LY_Pe<N}rg>3|fkA*M~)QUE77O2!Dly}KuBgCGMKPFrHm4f_J+=YF&L
zXIFB8rtl{GBzDhczy_R~NcC2$rxZOZ)*~JMCTqZa`0QkggYPbc+nG<Nr>)$)5|~-G
zDMx)3UJ5-ZA;5_b5Vm6xdkru$5?@${xlin9;ZE3}4VdZ~<0xP0-z>gEUwlsq|2e`D
zyeae9mXE^paKv=yV0_J`$>(hXqJQpE0<TIrPRGH&Nd7UM`pDpnnDSA~mTjYU^ethO
z%X8<@`ENF#i7RFOabEpE5HEqCEJ$s8pBu0lu$voKscfyTr!`4{$K0^NfRgELe*oSM
z7q&PrQ>Q47voLirMu3ZsNVIhX{OX?)IhCF`rC<d=s>pWU2;5sg9{z10tx7+!J7AW|
zd6jGxDoH&K<|j4(57MZ=H&y*&Kym~)2oD9l3wD`(Y~?vYt<!aYXf-Yalr!tEbNhGe
zD+XUw-`s#WFMu;|{k(8cfpAxL_k_<GZ4OTSK2~^DG6!8EpKqC?Ya0@%Yt=x{2SA{@
z^V6X8lHf#boOFC`akn{U$|ivmhh{vk4FwkmyZi`;|7_c1HM^LdpLD7}$2(yHylOgT
zt_M-%#>gh7vr^<<QJOt50j$R4Ulj|t{`)E;{*hNOV4Lo0Ak3&Z7x9Kzxz6gJFl69c
zg;z&9P$L)BVpH4R)uEt*;LUluUhzHcD+7wtCnkQ<3=@G@D&~K>TjOlLUO3)%fj$B8
z#}3$=zYBdTVP&I$AvSCELOE|`5s3Zb_-h|oZ{5HRB1nB$)Z15ZgcbnjpQiz&e=$v(
zh<}ZOAM-6qyrbBJaN0LEj#=FBADmdg4W@(@egGZ`Z_ZQEj1|cBFj13g5A<7vlZb8y
zmus?QW%xDpAVv;Mvv5+YW5d6<D(GzPc}e&7TvH15*M(t;9I~GdTUDet9Ycxvfg#Yy
z6~h4p<K@S$8l({=Z9V@caT$k_-DOUpXJ_WPTO#^!!kZbX&jXA7%8lV+@cr{-0RGxo
zwn2Grd9E^Z*u@?EuMcUsKGfw?1PP4X@*s`eF_sNrSD2ffv!R{w#rb3N(0c;^^Hp11
z<aG_@61AN72Vx;K0)MeR*}4ZszHO@|xcTse6Bn`Y`h3HGJ}Js;`e08NMqKe>OUeR>
zqt@;|Z>-nN>pE`5b(hp4-~$o!Ly^wYT|IsMF%9@hcoLxlXy}ckvrF+3`AiBgmEzZ<
z?@v4%>r4Zpi({1Kcu;M`lO3~Xfn7usxbINiq;EU>02~!V4&Bo2=K;dU!rPpq_sKxA
zZ>@d$ckHC<&Vr>XHWv${h*3@NG4go(I3ueivHy;FIUAlU)<;n~zW%EqQ4NSLzBS#U
zU9a)=XQ*)6f>>ma&1;7MU-FYyf`|ZvYv?|6$c$4wN7QT=B5Au7)sY>4HYn2S@<AC0
zF6K1nfd{y@A-*~sF0a%5-dH2tVk&*?`zd#~;6{0Of&Pwidw_9+LNjMTlY_gX-wphs
zU7nsfvwnG5*Kw_@@E>OW;4o8kraSf;K9!WAM)se%0ByB&Hy?8Jr`FCO3c$Zv!l=pT
zYYzNyZKArQCGnDWL~d`WGKMyhWgSwKd?OO-^73*R^YY0AaI(^^ULFlr(u$72-}js+
z-Ch%-latu}zNZ^jbhbdwvpbK@lHBHJ18L#rez|v+f9g+iwKpD^nAq$V(46&yKaCqz
zlu`&U98W}X31x~V5FK8je9@2q8k?*{Vb79*XkYU@<n4tobw^1_iD+)f@fspVhFXKw
z<%YjnENwRzArp-c`>6U@#_YFXiBOH1q;aQYC&}AS2OtB#Ba=e*v8gYXD?8_VBgvoM
zc)&0IbiiL*{va&7)ui;BmZ<A$RZk67*ZW*w?%$rClb|R?hT*T4DMfj*l-N^UaCN6Z
z=Ab1Qkk||=3%OMQ49KRimGX`W*&<EH(Kq+=9@;1XDaTe@GmX<7?U&&DYpE=X9Y3v4
zzw$|=obr8V!sSi8dZNo)XZZ5vK5`YN0e2VWiFF~oe2z*#{G9F$*DW1aFg7%lE;xCe
z@?umXmmDUEnor~XDjj{BQ$xjlvAbUpGibTp2723}a0K}D1<}L>&%v?K-3e1+6d`a1
zaWpVQWm|6F5bl<TAEoD?IT8D>$}X6kF4Az-x`C9r9*gzy*}g2M?VeO2%ja14=XK;&
zAKOQT-$zdKYA8tbE^hi+1Z~wzN6V0EuwJ_1AM~f=WSecYC3oz-PG|^!zG%YZ&u?0J
zA}#ZP(^}?kIPoUfrxW+(6I;vnV$nVB!M}@AwP(zjxrpc!c~1OShbu!4%0o}q4RxHh
z?0<l?Xa-RloxADpI}g$;Pkr^J4=IB-CM%ObVtwEE@?kX>zM6V80J6komB~Qg&SwQQ
zScNnW^#L*6kB<}QVSiQMLx0Q9tA8hYEd01_kG|<s>n{=L-XgpU7nIzGdE!0q7rYhU
zQgcEHc!yN2`sd))t5$Nuo>4~U@H#Hy*H{<CDJE_Ng=RvHXVc{@+XH<DpJtk85cV>Q
zwp^T_aIro|<ILJ;P-8xg7%C=4_Vr_RbctY4gBzs&JKikvI_kbgZmEg&(JD`!aZ7!n
zwq>g$0_3RY;Ff=B=T%!R<I0vV?cmb8uy?z|wa_zXd9$WhNRGpw9iQ>WwcYl4BiCH$
z#aR-e^@n93C(eyS346;-x0}A1>uAlqB5%64O*$1|7P5egD}v*IBn&V+gRDT1;}}ZI
zowqRmQ1)Y|7S}pzJ1aRo1SB+q3qc*p@Lu*LTsA4@)^*e=`^rVlG8Uhj)-O{}wUoqA
zn1<p7_3Ad>xD$;7f$G%P?YRkYD?^SmTq?TQ4W!A_|4e5t-fAoI0~uRK=PI<E<~PgD
zr&cBtiL%J8)nit?uRg$sC=vt03YQ=Xs5Y`aiz!#-FzAyYzs-TXas)0x6s;z`xz_O+
zZ{XYUt~kN-YtRg02duOS3EB7oUp&IzZwl0>VFI?Pi2Y}uc=7h>N5w0ou#X<FcX^tF
z)xD9-1fX?a|F$kV64yG37sB!kS#Ro>E0HZ!xespg`m4}vpy-|fxe^dh1XDl4Ne+Ye
z#1b!}0C!iE3h)^(BcOp3i3sEr=M5)!1$GDo<r1bjra+2ENU#kq7D%vfom`lEcrd4Q
z$C<Ab2>nMg%0<&0;Qv1U68~|{IS<;crwsFv0nV5ldLUgH&C75IqXw6~#)mr+-uO-c
zo1e+W@}T4>ts8eKiDiH=%5-|Ket8Ik0X7B(=#CT#yTA9{yaOD@W(;_teu9{l+yemc
zBNOed1l=A1s|J94xQOs}BiJ6_K4rj1%Hez@hmP;<k5xecYAl2LUv>{${R=Aea6!c=
z|6>`jvVe2H8Zfwaz{EzJB~S3jUwXEmhq3=yyGuzwv+<`-xXLS7bV7vpzfnce-$s=H
z&aSVmmWcHU>JHzK)50R#6Xok$i!=WP0!GXTr&u$5f4?X0MjhEw#=#j?YI2xE4}>x)
z7HJOnTxrr`Y_GQp=r1o7B`z*-Ow+)L4A3vyDT7dH)n~zFOz}W2s`@u)X7&90LQg|^
z=#zQJa1KFCj#s~IctowQ8JJ>z`{=kD0Eh8EMC0Sx`^hEZ;nl{n6_J`_d0r;K$8Gq?
zks>5Be)u3`!3HnDb9~&GaJ4`;kLT#_s+T4Js*g+ue(nl6nA}b_SshM*tk4)m;+5on
zoF>cCoq+e3mO1CVhL_@At+Yacq{vrgWU>;#1KHn5UP34hPw^C;|A3PAMwfAf5a!P`
ztmfD;8h<1SyE4t=EdN9uy+q)QgJU#_AI|qaDtrP=d~5~&jySo;073%E@cQ>R<N2J?
zDtri>K$uS49bhbbpZ@|naz_m0HM3e&8q{$<M+M)(V`5B!7)KOnob}OB0Rm;ng5HEG
z0dY5c_FK@fvFB~xqnuxkS&j9p8>p<iL5|>m(2$zN>Hqz3>^#Qz7`p0(%RF4~iE>%}
z4eWYS@aP^TQ6F|kWwd<gG<|@c*iw1k=<@G+^mSH=n>p>U?Yj@xrg}CAQ=RK?W$2Yl
z_Exp49v_P#@`8Um8^X$^eu`<PkPf)&^Khp4O?0<O0|U5WM>fVyh)-Yk4g~)XL;_~G
zeypqA@Ruz7*0MU#;y+a6ST4qHzy#r?^047oQ+}x-3>@m{t`G!|s~m0%?V5S7;Jsn0
z!cocV$jvY){{3D+bc;BTYiU92bGb2uI2E6A*~pAF)#FhGV!Y`g>ZYS&trqdG(p&kU
zfzsw5iPbnV()7@Z{VH=+=e=Z}rp>Nr?1KlkIbsb%Wz!3${%GBPA&qrE0$fTy1H65|
z4C8z1A)5aP7_#zCoZKCa#JWl^I|uCze+-8zrxYz~)sG(6^_eEuk<w~vL^fUP_R_G^
zH(Bn@@?4LjG1FK4>7kW!JeJ$9l9l2YLcJH-yqcp)=;1q&D4EsP;x`ieKj!TUeH&}?
zik$B2$Jf|728xMnO+rMd#w!#>*rpk5XBnM$zC_scR7WtE@H)clJKnc*v`)3ly4{S_
zFqV}gG2Hs|nTT*p)?a_BrGn-zE*%*S!?pEebK6;!-b<7^S!Mm!%v?5Iy<yy1*En6w
zW%9XinY;-M1+S3h8&|us83x3w3jH<~V31dt*f_R=(Vwj+_{h}iHF7*Qt#`CYB9c^j
zb~N><`f&xRvKL(`z0S#S+YS*&KCj~~p?}^0I2OcaDMz_AlYIUd*!`;PuhgalXna6=
z`9DWnUh)2RdQ(Rl=$jQlrlG|vz$fcFK?U_rDY~1yX_3dXeaGRy`JCCRvq2xcmxY!l
zris2Hl%I>A*FWN4WGV}w=4$%2ag*43rTPaCOoF`i^#uEwoyyC>kHHW*K$n4=wan8T
z_$3)-1pi2oQ{MVW;N<r!w;rw%(3*wx!NtreMb`ZQLXw?+k4lX;T_e{}(OKb3=1ut8
z)WY0Q*_<=aUU5x>H6w#_pdz<<#}GOfJ-m8l1J&1_=Fo%@etR9op3y!xrxZjUYiK>s
zc2p}GhLEcR=p7BbGG80bGP+>pX?x`SyNWr*jpkwL#AiRHW8asHlFG#nk{rAmJw`jw
zdK}$;n8EFe=rWDk)xp$Q5nBu*zz)~h8Xm?>VHUDrhugVoAPVktVWBgAf9QK$vkRWa
zMPDxQnC=FLd$nd8Qg|Heh;;ZYb4N<>a<(_^uDo6_M{C7`RSrHd`wR3IjU~-RGxOb$
zq$cOx@XIi1l?hWzktpolqu3G|5SLS=Qa;y6!U9QZZMLLk6!h@~ryqah9E}mh_dxl`
z<4rwCxQLblj<X#_Lcypn`je@K=6c(i9QP6i8P7iftzcY2BMN@%a<+<;-x!Hz{jDe5
zLGQF2zs&P^5Pmrl>Me|p&zM;8(Fs8|Y^g9*@P1sF^`MP>9kBW^tFdG+pjtOC91!WV
z)Hahp>=yo{x*?Y`%m^1>o_0UspBvxH`U}FQ2){^8viFruzcTp1i;rA2maSI{C<GtY
zZkLv6_cUbanIEY;Ek08=p%xH!q`bb~mp1Cu(rmW$nm1!YK4dz#lG0}=rRZE&HWM>S
zMgyFc$+VS&v7d<`7X3_&N`}{!vG^%D3O>I05DbBFuDESG_5wXlk<gv(l2tA)c*3^M
z933&9Y2aICF<y1^@tA=l9T!F9!8o1hXXgB<iTn&(Bgv4VDX#JkEMsabz*;e^qkIkW
z7Ae3g5HaT%L#wX%IZ?LI@p)}~Lf2yE38g(CaNg~@atjsI{t{PKNFj}s^*^KsWZD2K
zFBLJCSRDE-{f$~Im*$kUil|#URYsw9Y0_=_AbzXt>E4Kz`gsKG&~14)s$9r+a?wt<
zVM4mBxp1^*gCJe=_DNZWmd#7UlyNdn`o$l-i+h5iCi}wOd6Jjn#Uw+V&x4dx%;*<`
zm3ltKGmSUSd12bU`o~%O&JLNE)WXNY9;$YvMxvXqWX|sLrfaqkS`b>aoX!twiF*9Z
z%AjvB<T5>d61dW@)ACGBfA1U6<UH^L!n`o-@0Frsn%s2fKN#cOkB?Kt9U5WW<U5Dg
z_W#^zZ(iLDT1_m~W<QZa_ZVafwLp{VuNHV5b=xD$f&a>sLA+-gS06H`CN|%u6$NWw
z*Nso^C)z3frg4xjY|P{M%UJI663Y?ke0kNoc%52_Z*K1I1^*bA&vsMKL*79{OwuvO
zhqB?aflYaUFnOsU^lc|eGTe8(rn^g(A6ytN9`nW;mXx2)v(O01t?XzqwNvX}(ul2A
zag5eGpXn((xw)L`xp!#uYjf!U#Pm5Wo;6dn$=%@TW@w3?hF@zvwYt5islRI^LiXh0
z(dLQU8$IFvd}Wy0;w}Rrmrfj)yIBWPyi}y)Ky-$*!}s%~6MUG3<_Rln=miqYlh=%B
zaZrH-xd@FADpZS(5N7RI6<fpf_ac;%^2aiP)a!8{=dw6wnZ!?NN%t^+Y(@NKLNl_(
z?rO)m061#v=|c_HXw6lnp^G2}u5iuzy?{02E%F&XodI!Bd8gCGdx-#tCvU<%pA7mL
z)*Ny+o!2WwiQwET5uA?dBvUVJ1iW<Rn}#!PyssCHU*nz!zZ3?at08*RnM4Eq$FIi|
zhJOQ<KKYsX#Jq;TuKh);pGxzZ1=1z<Fe>dMec!}nxyd6-P0ixeYcO#4Q-{3qeYK$I
z)Xxmo0%9Q&<r6waK0AfHp>9Qb8lQg8bgq(5x@VMreN-x9k@kSuR56iRk+7&2y;_^`
zO|i1)Me?nVk4J3q*KmCex{=xH`i_wC&+#c7wi|qOODEU9&QKrj|27T|(6-!Odq*y7
zszA+7J*#CRZ!`Ylcof$Gjk0|9ROlm3|4)i}*EAx^fT&Jx_9#vB_2z;xH;#&uH*I-J
zKka7D&H36=j!+rF1<8*LSlBdg!mD%@pwfDue|_zHN+Da>!#35izH|@l>#^Wo-nPGT
zGSgCObi6)2D9BaXxAKrUga*5uxVM+|Hl%^><7V@$@!`U)^7~kB^wg&-9DZvRVN^_V
zMn_0YNrs{FFUFhcqP{ipnatQJ+sxVHkygum`S$_Zybnl#{r)!k7KZ#*cWKjaATRRU
zUGB1yAKu{A3iF!T&aOS}do8dN3?Fp=?3%!)h(20rsFr-(K(H`qd9q*DA@^SNaNmG+
zNrT`+hLaapr=26Fdihe>+ZqzA+j&aS<sw|b4wK%Zp6Y1X3!ryUl2LHxOX_)_Et}ui
ze=Hyrz|mc;M0AUV8C;}9QKWU~`8FG`BIJJPL^JX&u0a&`g?VV2qWu2B?^es8{iT6y
zxU(vC6QJ_4!ad*9P4terl_E!cGundxbZbh!3L($($COQ6lQDhQ(TqtLuIT@AvUk5&
zc+o^6WOFK%#0fslrvQBzj5tV>h!?1WE*Iyceuy3f2RyON1HgWKlShF}S36Z_C~$M2
zJ>BnB(Pf)ib~4wCyffxY^+;KDAUd85G|IEiH01de^YOE7ScA!L%jZX;2cE(>OtV6_
zksJkd-D~EY$K&-g>*5zJ^|j$3)2r;q$2{VMu=0M2Xt<+T>jfLmn5JCML!3itK{giO
ztKRgggk}0!F2{6M+c`5i=hKB7X-;@coqvx?cUrEAat?nD?yClm`a-lR-_vnVjOJsO
zHvXK|9;0&<=El_e-Oi4r^RxYz+5sqk-2jI+0KU)ta(5_iGT6`zHmIM=0pru?G1UX2
z#n7tEIIo#(pI~)#3ZK79oKROQLE_d?C_CPn(Kh3pnM(QIF6G?p#DYgJX6)H|*bdyt
z>cROs6m4j-zJKAKdm|@axy<Kv?8_s86~~WmlWWpEc5%OTMGj=br?VXne&0EvGj$K%
zdQmwJDD9ulG(h2KFZh)x#Ln+&!U_S)nz<?m9W$P*ysFXj+5A8W(P=6S*v{UqQI+uJ
zy<sir7H6o@=6#+n3OHkI{Njs_Q$HM6kV2Xx>tC;<{8Fc%R^7%E^Fqu0+#|Fimu?bF
zDE6>~AZW9!9p?;2x+udM$I9KeTSU>`v9wNWYw$6mgE9sA_cVt;xo+QilKqCqTOG3L
ziJ4qUEZ5#VK35ZMJ$j0)4DY-_w<2T;5vGz$iQbQS9~?Aa#HR>FU@A}<MO}<ULNa8U
z2f7K+F~RAB5^<iF-&V_bOOxm0?0gqduiNL^DR@n}69Htx6}zbvQD-uErH0IQm2OKA
zn4xux$7b3D<Up^Y{fUylPv>;J=nVyvkxTnDV7#dKEH9;nrGE}=C}89Sk@3vVj?L8m
z2bP>IZ$~MA#<rCjIX69YwK<CktkGr!d3-L8pSX{ud-W2qavMACDH8l05Q6m%>aU6_
za}G0=xY+}CqQ6;Q07XJBy0*mtq%l&`is->{|9mCD90QzrKXGNt9x=QjBZER#3#Q=v
zwOo;;1H99dFvxVCKfPe$ze_^%q$YPUUDI>^jDk9+eY1~7LZo#kZ(hOw;Dv|crK;pF
zt*n{Cr@J`MMT~q77W_TEV1eaPJ`N?g>JhTjVURfw9Ji?(X`4Dp6H?@Hbjsoy)1MoR
zn)Rs76qO6b5J_9qR*tL>dL4Vxgfk;8!iai$TkV7W&VR`@RM%z-H_6d;j7}d`dK@J*
z4qG%JdsbmV^97G@lEcgTE6TF#Py779SY9Qez0$mM6pu#4J2Obw?O&lkKc(^HrCOGC
zH>t^X9_Gm)=K|idG|2xrS+zXTM>^A95Pj+d8~T`P;$p{?=#=ZM_djLHO*gq%XC8oT
zV=oqLnHG*i50Aun&Rt^{mtOUuBt$I920sw2C6*shIahqBqmBKx;C420;5g?Op41ze
z<l^oGM7_#yU)vMfy<SXc5AiQfX$aXUu@uZ4%_qF5r@W{KE;mTmUu<(-Z7gfqpNNr}
zWs3bubkLa`y`mO2-TP~8^+ujLpzDtbu14~nEu5VGHLsw0&lc{FHw=~9ZUg@|^fSit
zm~q&gc5^OtGA~>q-!mPPVO^Ezsfj`dp1<1MIO-mtnLS;aKj(W@)a7SzB}0{r;0t|Q
z>O4vPKPn)jKGTfYHk2}dKILE`kG!C~ty|~q=;+C644KeOjHnV`(b8r8)hZ$}Dnl6m
z>(!y>jlr8ljptfqi+*8hUk4=9_}Ozv(Z9fM2%Lvnjb>h8LJGnKm8kr$ECmxNOpHEW
zn95vLJnzcRcc(5_BWa@cmot@a`+u~(cT`i)6E;qVfOIL+(IC<U1nJFSA#~}zhzN)@
zktQVs5iAH8s#H;W??p-?Rf?c=X`u)R7(x#vklzh{zQ1$c|KInV98N-V@7<l9otb@}
znO)NDem9yLGrKQ;@&`AqecYV;i`n+Ew4G>*WOD1>Lvz;l?9rPAuwnjx8ZoqvlMEA-
zC=jMN6edfD^B&<2GJ4d!`#F?P_+*94kauVZLa2#e2Kr)BNlkq4WscI8XFqRd&I&^{
z#UZXI8&+BK9-&?*-pAetZNF`3=yHy{9JWXQS{bRRR0HrK(b2g5UYkfOLdedP+9Si{
zf<6gHZfz$Rs2yRW<t{^Kt#>Mz7{VLr{qa;W1Z0ppWY!C!Lmn9{5HsX;c*BMeP`Sq+
z?o_QKL8v<om)q|;-run9Rm1Ez7#HZDz95n;cOzV~f>v^v+JoUP`TCjbK^(wx((yGF
z5WWvYw$ws6=~(qC8NQtupr-YHcq@0-|K2okI7yjbxiXnFvm6A3>p&|HIFelfT((2c
z_{@&#x+~Hql%m_7ZacD+-!6K`UPI`mbj|eYo&VAsyv}jg4!sjlN+jfT_RBWYTy{XQ
z;feUbY=+<Ge`{1siug|eq>V~f`O4j`DNb%${X!X5A+<^;1+yJ5je&dL4GR_44ST!=
zAyRs|Im--0baUpn5Z59p6HB$a7XMJWx^54)eINZKd(K<QFgva+s>F&~(&XF;TAgEM
zQmnh0<BJak;DJ2xWI_(Y;33p71R7QQ<GSTPb|?%Wi~*PV2*N7G08#C{BAEECPp+1X
zTBC)kJ(_lxj=D5Yj9T98|F~s3yf?^&Wy^p3g3hFAw!D7d90xxoPf{F#tQ;ocZr<(R
zb}+1&vv`SuD7U-x=g3~88x?~qHtIXm*`@l^V8_AEzhx#sw#x2oGeBR12qZdcRJde+
z>l4q^$_vRY&4dmj!<zf`92};Xaa4)NqTYRHf>BJL$(t1aRSGYY_{t6Bz$NgLlWOn6
zH3jkVfoEw4+kJuayc(C<?NPkK2P*l~22pve$A^@}))UbV0HKNc@Po`pCLR*V+y^5~
zlI5R4APxHZq&fqfXB)}u%i+^%7cw%3eu45T>ME3_C6}4pQGtaLQR#7i)UuSjZ#`%1
zguQ&Du6!;JGrZ6pU?m~b`;>;e20^#R-#+sl<K$yKcdaA$E{&h1d}#!<=N7)>plLzB
z@nHEN?742(={=@45D$e@@<SosgZwG8C0ril)A{-?it=1gsZIX$wP6&)aVUI`QtV3!
z3<e;n$>TIJG8)sQkJ0cTG$zn%fVE|ta`GUBiJvq!V)#=zqqEpt4_)h-5g;_MTlhKH
z-0|aGy2ID$%nMIEysrAvP7IO64yJ88PoAX&&vEVe*nRU~j6Kapji6*xw?61IJaiA%
z7nBw!cC6#=IocP|8A9#FL$|$!U-bXzA@9Ye4P!{+4W8rPx$S`veyl!wVeK7o4D7Eh
ze4WOh-)$<=87;s8ByeIA_Jz;;LIFBrn0t8HkgWTn_BE32iiI!Pm>_#0c&$gYm*9P6
zn3y;D7L~V%_~~R8uD;CP_kW<vxk^HJD7-Q#su&a)AjbX@rI8!Rxg(DR#(u_!(-ae4
zSOx!6cf(ABde%dn!<sY3Nt)zH(4D&RKd|&4pexYJUY%{v72Y8*POco@P~9;M`HOFR
zEbsS><BV*PKvK-K+K%w8*=XP;8`YelF!wV$AX27?sN{bF$ej*<t?@13w<qQ0+y($a
zwM9>uJ#zH&d**d0;_Z8|bpP<ej5N8n$1?wae2c|DggCyDGIey05y+x#$M<|`k~A32
zp9MdzfYBV1Nl`t1`_bR-jE5*7;7LON1XWaznfIvSswddua9ztxNSX!V*`Z9FBoh*$
zzA9hsPMpkusu?WjFaWNhXq6$1wZ7$c{abm+(bYneW~A3wE(g7#Y~KzvYWM~G?G7DZ
zC6I6ez>!ahGUd8e{+#?!_?1{V`ejqag&!|2Ke4CXo<_MF`u`{LUSd|1Tl~yTP+Azb
zwtJ2ruXtdy*M<$D>FiyJSdyss#=Hs<14kU6Q~X@uvJpZ2^;`{*#m<dLKa`c$MEhVi
zu5_mTBdBtZY2L8$Y%Pc3F7X1T^P!+ejF%an1vn^mUJ=kG%_l)7o4!l?L8b$v^6>~>
z#2rt-6%@8-W%%m#UamjW$|oHOe<6TZK8L&kwCo{~-=Ie<-f{`xBl$ie_<=z;T8fR6
zF@ttt^dLC-Nkk>P1zjEg*NCv<m%&~jJ0-ryBLey_q<HK3$fcjDd=j{=CBHW$Llj{V
z;e2vvI&40gzjs7e2$ouy6#vz?C%(WHOU^(wIAoWXsbSC35>)h3L1Ov?cfr?PWB9Rc
zhlb<lE!tNl0#Cv{xO1vMGY*{-2e;1oMSAk2i-B@5Rg$-H6xSnvKXrI2Cu}(p?brWf
z3nsva5PBLQ<YWAb8@_M&oa*t0Al_i!urRcW;7@zbDxl7FCJNqXk$QMt%SAIIb7Iva
z0b)UJ4f}cGC(K8>CK$BpNTdF8{W&L+8OV`P!<IjHRiqf^l0AKD-^K!T3d*H>ZtV?e
zyjQCXJ#_wLF}MXyFfI6LnM0~sx=$(8>dL(0iejUG(B?3tGN{n%Z8+ST@|imjF=Sv0
z10}7ig#bBOfOjc8XLxQs1#*}|0_t_-KhTebh&@7%{4W>4#e<{}VngpJlxW^Qvnn!b
z{HOV7V_}6r<(D0~#rH}cb%>6dZll>XYZwyaPiXDoz@2_Lzj5ICjY-WeG151*$6nGf
zDtvijl>FnJnBxhnp&M7~DteE0%d+wGnN|gSOaE2F*I_oMGujnZ#_iOQ)ylemB-OR^
zPLiZ6unhy?pv1hL7K~(<x@jEaXP~jHo$3whBrrHKblz>mguRM(_9Z?N5RK)(N3$D<
zJY%3ZBWXXGudj<QfALIW0LBaf_VSmY)@))ZCz$qZoD?I-&=J9WkrGHcyj-Wf7e8ag
z0lEed4A^b{Ty4n3LoXBpdbKD^lOT{mvwfQe$spvgCTFpu>o34n6TYp%<{3=xdE%0a
z^LpsVOD3+!ym;Rbn5*S$(>bo@7?MqR7w*;$bRMrVuKr^BjJZCvqvJfM<Q>Jo&NVxd
zR|;Y&8ke-Rb{|TP?B4d$45OKX{w^rL^(5+{a_479xA5Vog>x4cVxDNz#=sah@iM6=
zHs}ZG1f6*q?~_Z0&0OsuCUr_ywF?cWYy-g$v)i7XtBAw-103FXWBP&ZhXZPK0>(7=
zZx_yy@zBa@PF~2NT_a^Onn#qzdMS{*lGT%9!@YS-)T!UXI99wc!4?y$3`y$YAbtup
zQXbG6mV|gWU{ao2reUU&XENfUs$#QD@)}21eq3}IkbN~Gm>iBK(<eJ)tA|O8WdlvK
zgi>DBJZeRqW>z2rFaMp%0{GOo+O#v&0qQi<F!^ayacIX#Ot6?!H(#T#jgGHYcW2f2
z63LRkoa?E81OFjKbl_A!h6xn9;XdjS#EewQ4<C|jw9LNNd985p_uA=Pk1~vCr0;``
z*m2{&^f>m)3*s3%JCyBlu`)UJG*??_1MJ9s<pcP43+hQ>lx#44gzVpeFW4^uhUPF`
z8f69sH%@E*2Sz&n^|Ev71k8HlPQS3{@h=_w=0*3qoLB(7r{{zD0GT)BYaOVf%2RWc
z9ZO4HLd};iKC@X)J|S}KVH6XaGai4xw>-pls$!d+Xh+X3xWad`{j+CmRk#r%KaOc;
z4!=Z~Lb=RDlYY;xZl-b-=PixY$_arTFGxR$Tb89l9H(}&YJV@gch<6Sc;(TodC)L#
zE08Lr{!f#EV-bW`Gxb>-bT}Y^+>Z&j&B92h7@fpugje3VC|&CBzn1HTRWxg+<z(EZ
zQ&o<XXd&4)yN2XG9NApe8J>4jabK;SL}aia0xgX6?LM(L+!n|Mk!pQZlSnE^e2|em
z?w@QBGM{G3EqNNUYuE!|DpYniMoEFJ$Dfa9l;P5-x50ej{zHK@*yuyYz#>XW7LC6B
zz+B24nNB%i#SYT&%bCBd*N$RSuqq@99IjD2<f?CRQRafBk=}gbs<kdStzncqetbWA
z!btzsa^N*Te2mph^+`tJ4<4ueU$W!F7AuXtKKS0uGC;-d@}GOi@Wgy)tPdv3$t#;o
zT4RPrn1@35TY0o(2cm+EAHIeD=y=szC6Wd}lA82~lkumPJsV{*aEf-;;AFqa^m>b>
zzgg%jP;xPelsI~6-PdD#U6a}=%T5s8%YMro2-I&2TH{A57Tc9tK%`H89_f>VGqWbf
zFyOE0x-V!d*{!$*N~z~SITv&(87Q=wQhvMV8a9(Adxj4W2|S5R=IXo>p6QLz@wW9j
z?Wo>gs(8-fTP@Kn$uoRXVU9RPyP>n>1#`z<j64<58y>FTT!|i+&3CplDCSXc+^E+K
z_rwB9btU~g?l8=E@$$<A2TpfuyDxm9M+w)YwJycI+!EFx?_3o$fj_S{;I)l!onnY)
zJi3?I(fuUa>ps^`$3*x3_20FENCQOFTTpJE5BLdojXtN_pM~MAllBtz4Jp9DtDG-P
z$mh$UKU64PqdsTNdPvn`H}z<H(b{Z>isE|k6oEM!Wxf|tp9QlL$JX8n-%`2M9!Qf=
zeKI`wc(<PSi@%YuQ!ulB@7z*<YqJ4@>aH!1@f&Cw*iGW4QQRifcsRb3rE0W>8<?=K
z&hrxJ!&mB$o6{G%jB~2_MD>2vr87o*Ysksr#$s`^))A`(E17<VQ26TZ1a9Xhxws-3
zA_1Ntpw_m!yEG*Z=ZS>_x%(S-f7MpH?m5>5B+x9G;SR)-bK!=fJ;_!&Q(T&y=#e3g
z#LG^Q3uSIBz!~2PKtIL*^;1ytD-*+uJzpuomw7{EFL|3Cd4mM!{3Uq}%n%EAQjvAL
zd72bqACP?OA%pl7hu$UBB__f}cKeC_=f6J1hagHfu?F+&db1&+0Iu^`9bGG=xWa4g
z^jZXZQ*T&f3Zo}<wTH_Zw1Dwk1^9dBq4U6%rbICIr4+BiB~J1d8CabndGdA2aY!|T
z)x<3iF3Z+gj`>0Id5px-^|`h~vH7<sDAO5pav0@0fgW(~K2x>{AJ-C4O+h<{UdM+j
z0Nq?talA3!y}WBL^zL51G~eB8t<^Z?$4i1AIQzDn4rjQ%F6bu$9_rdZ4>f-*3>U8P
z&%3~C5Uv0?s_NO+d!$ZqnHqDeh+*aMUR2<`Kw%agYno%P3=<zk8}$V4FkZ0Hk$mQ?
zAU;e^4D^*BvWxBTP=9eq8_CkS^l^=o#_yMEog@nHa=aQWP}DGZ+Q5CaK1L*zr;#ib
zdSIU7LasuwknYu07WbrOZ})q!z4IQ_x<^&VRWb3)l!)LkBzMH%QZBqI&rm7WDnwB5
z?7^5RY*uNq3Xs`<E4)fT`z+6n@A_lPp+T8*YfMA%ty>N@3;Ff8Jyjz|;3M$34v&D2
z7VH83*TgBOCz9o{Ippc}&gZXW;2$t!f@GGe^M{nF1Z*flNeJ`ySO04E97_U!!s)h4
z3P}NJ!7cnAJZHf^94#6PY%vCi9R-}TS}gq6?!ftQU2lfyWE7U*FAY+hu8q<32t!kK
z>*_@k+x;J~Tq)akGg6WQZHHUv*y)ZuTPkLh2y%;Wy9j7m=ea=^+**@B(OT@NL^6_Z
z2-X89Iy!5eam17LJfhC-q7&4O3cMn&dZC=~bST?z_ALrHCx!afzIZi)p8Ao~wjYhV
z!w%zuXuub!=I>7G@}fBDBSER;Zz)FF@&-KSVP`pXqIIk(wla^5ZY=x(N8w&_8m#|5
z_=3MVyeGQZBWb&L+<dlgz(=>dbD(flQCuX6L0j|r!;i_iV2RPk*4oh7spQ%tjyTw#
z0}d)FPoU8Q=Tk#-Ee`$~wQJbMULNY(u<a7=)!{*)**4a=vIVmELRxPBv-zIw$<-|l
z^-l4kY~BoA72$V25SmhppzTiv7XxZNfA4-rb>r*oPu8N<8$M_|cV+BaF+fY|0umuS
zDR&V!a+=IiTI!1YHY()8ya{5Cf<W=f;Q9O@Nvis>Wp~XZydir7|FO2~-Yo^X2lS0i
z3BNtRwyfq<lU&6sdSCC1BNcP}9l~R6H1Qy&=i$4`mI7z?M-u5UJID_I?`8+?6v-#f
zmzvMYegOoL<9D_s_Hcl(u?`;x$ilQAhh;}t5cH{DB#xAxR~u|1+WWW0>iTPGJ5UB)
z%<C;z#MV&~hs3d&OO>BR@UM5+x4FLL3#zy0E`#i$I(2tS(8xnfTPMBu|4Dp)3^JZ-
z4?q|m&%Al-8C2TuWtfM^P;6c%hrUAcFQ_=MY*BPd$_tOd0(Zz8F!x77hFq#%e+xh`
zsWmJjth4@BtnRI3)nGG~%awfoPNNvj0bIUab^J|a_cC2NynzVQS1$e_x(Y{KrIkL7
z79NEp4T-yajGYy7z+E?G<p6*9@nIo307QM(bG{IRWLqS2ZM~pot@TR02{0mL$yxLZ
zpYV&Czu>O3<>`<O`$rgWT5-iE*j=G_oYHMHOs|o8dBdO4_q7E<&%}KUKehh-x|zqg
z9)A3*pWRLe5u)DiMNZAW`u$7AjW!?s-7C`FCvbae2CA!6jo0#LCK^M&BK?@Hc@5Er
zsP-TxBu91HA}feTGiEp8@eX9E!At3jq)&DzTF<zcwWpOyvxP2I&n!ET79Lm7DGV^C
zha-b+@<bj}cF@g^84@BuuwoQeM(sSI35a{Q-0Y7mko*Tb8n~d-H@jU_EZhnWHsq)l
zd4Emmf}d)H(+SSV$d#Rxw3Z434(2>DZ@(tWV43=}D#ZkvQqTaX3LuHZk@Hh}l6po+
z(JN3UhjEIk9zOi}u7VsnFqOA-tnLrhT+pj0#G@WL++E68VIxA^cp_z6-S80G_m)Go
zWgT%x5E*AGwypy(?H8x)x@;?(jD8d90#+UUP5jz>kbcUU43?m`5#izpf%%B2aDf=9
zzdun5X#%v1H$Gjt{-RX6Vz`3Lk@xPiy-PE9O*mgE`~|&<XbX>`V4|R8*1dR#;ue|U
z+K<qU)1{0ZGf&UiGOsTqy|`T!T$8-%YR0kY7=|hAw8XbDTvoMy1})>cy|AlY1*46R
zvGQZ9WXzoqcJ{v{pI;EX{VA*5$b4e-Vi-y9fGWCn{WImlv-jSlx%`9O*ZqX8Z{6Te
z)oQ|%8zGVxH!%|Xaa@PYxz;2T@75(fnh&>v@_d}0%L(eCDHEXyLweTU$6@Zb5r`Pu
zu>kr?;jMlnk=fm@)!^ss{Av|@i>X;4@S31Vo_*QRf=nmiC{_RCTDO_LF|05+uHw@S
za)0rTs_k3GY;(~()r4WAr>-A<r(`O`f}tDa1w`<aSJq2dD=zYxVoY-(Vute1w8X{Y
zyngtNME~$wYQzNDH0mmh+|wf@W)BzNLI%4p;UN{Ky!1A7#7n`+YB*^oqdiNc*Yxyr
zpDwzYk$vC@1_~(&-ba}R@c5nWy8G!b)q-3O^7qEo_0zW6gzjaW%&ud+zAV(*QbU$8
zh_1KYc-Gb=H)r;*SEy&EPR7|v%+%lKW@vh0Q+7{$eKNiTb~mM%9cS)>TU)VdZ2@Rc
z)aD3BR@Lf*LED)pGr^eIh5+qqx~(4!Lxh8D;CyU#5^wI-l5jDcmG@mmp{C;7YatHk
zQuG|1`svh-wOc6uY(4wbv*`{|-yJnAEFDT>`)1*PVk^nWHD>vUbf3=+j%%DBBH3%d
z{5*wRJw_6WkfS+^1A@WzkDH$tqc;{hImTzqr^>3awXmq2fN*C)N4g*TD=V?@pYYA~
z_fuag&E5aD*pPWLX&XJ1o|eDH4GbiCK#%Q7!B*Ya=jO976A=dda;Z*xd-OKO?k5^W
z8)YOS8J1!}!PD^8Q_!*(8SBA^gW>VIZmqk!-|OTK4w9jWp)PjnIu`e|r&{<Q=|VQU
z-LaQ;ktmYNp+Wi37U5~Te4are$3ZU_*@k&5<(|i@3Ya}N^VfT3;rEw^sS6|&bLRFK
zh-sx}#JolZQRF3-kIiP3X1ZJcr?gsvO>~ot+G2v4G;8JWdI)hTnuNjlgN`?7|LdO6
zjhB(nK&x|fGjt*T<EAxV__!NJJoAj!2qZPe!!J*4)B~oozpI?YVJ_I$ka23U*rkwx
zY-B>eW~9)(l(Ll8C5!J?v^&vROGa7sAUEcNU}ZP`)3!>s#5KR@h*ez$Rp`TOOZFVf
zP8)b9r`3V$>`5y!Gh#nnz$@}?-2}%oB*Lon<Hovurq)ODG1;)aFL|u~ZEs|cY}Sgt
z4`sAD488;R#_5POTvx(p*vmDiW&?3MoDG1_iZln)nM&MG7MjrJ7+uk%h7uU>T+bYB
zX~Z)ftp@l*$P04t*04zYRTL)jUbK)0Y6Z|BZ=Che$@1cr6<)oNXGmm8h;DjEt4ZyZ
zGVvc{dKO#m7o?Qh#w}1KGh=fE%{*xEDdO2jDdrC>h{Wac&EHr|LVUdbUB9{v)RSck
z43CRcRo&yWzenV6<5C0m3eSe?<HKa(W4UXq9T7ghXN@>LUvzD`Q#{zM(1N&_R&q89
zv1f2sUCd}N>gh<4i;h#}mdiXOvpMwBQfE#;Hh0|d3Qxe=2LI7{{t?>|`7)^QN8LD2
z8ba;~6k+!vzxOM+H!(IYGoLXR3K5aO)VOy4QulI+31vU<JgDgi&bD;#(KudD9S><t
z+V0C`6b9!m50|5?lIm*8)5hv9`cns%<MHS?YyCh0sNkh*NWMS^Ti%kgrP`kbF8xq9
zLa~|_r@1>pZP$Qn#C~<+Mb*@a(Y%onqLpLdS6zm8u%ZZh`%AjPhd_cON4e`&1}I|O
z<y`0Vdl6r55`<NNjpnWl6xh(O8MLoHyO2oWy?*GWfPL7wrRx1PdLd#+1D%ALc52pH
zFxDRu@OUx|9z<H(S=G6)p-3C{{p*yUUGgNmCcNgB3w}2>0TBMY&EwsPU=e9~e2$5#
zpWbYv@i0FrSZHPZjoaE`kqnKP`CL-=klZCLPckjU@4t^$vpiOTfhovTYvBDcO?@H0
z`d(Q1!T>5VtKp`MK27+upD{s5?S*s=H(i(kt1&rH6m?cZgggDd^&wG{q*~AC7kTG%
z^Yor+!_`TVFP;hL`!%U1*1KTVm`}nhP;L|cHy%SfyoS=%Luo|3)<lKn_xAnN_uigZ
z=zDp6n425k3$>fND#DnN*se^fZTq>+eC$-sVS~f0LM=Ygdg_C<UoZ3O*@NSD#RiSz
zgEhKUo2;2{ADns)RQ!qdVecUMVA^*qcg!}g)#z}w>t4q0LWE;m<!Za)P`S;V@A8Y9
zU~_CuWk3!5Whmi&J74bF6&-dzNjIU*W)6?1t9HS-Q#rj~PR9|7=r!bPSaU#kO94Y;
zUBKwuk`o4l{^b%<qv4U=Q}!W+)i&ViGs*3wc?ELF(Bt+I^~#Q&9=<g7;4_q(d1h@d
zs#7}HNdKVGy<5?qXP|0IQC~S!ODloWCaGOIApw-4d$O=rFdO<UXo%O_9h=HwUY7O&
zVRL`uk*@vWnr}jFi>pZyAyyeCcjopyxPK%$<Hz?A>lQiaNE}J-=fLViYamAbS25zJ
z<)xm1<P2nOc_!{HceA?IyZ82=Y!cy9&|o@E3w<C1!T=%y-}@flCMw=yCd$mt@P*@x
zCp_UyE>alm_9~HT*vGAX<|$$j!#C2i*9xcf4OhFCASSA(-ty;14PP%#FJaFen#Plr
zIKr=MuRzT%MUrSA(&mCEN>iRq12Pq`t3wzy-aHfBDzEKqHY;6sdLEM#7s+|&=Lk7D
zc#WVp{JXk}_4s;vn*+n?8v5;H^JhXl+SoMX3E7zDh6eobJ6}e=G1D{3t<C#en`?9{
zl@G?yJwi}Lm+cr|uM)MCVLjD*NeOMh7;EV;if2~JjBpI(@VB$1<n73h{}~zlC*E-Q
z{bd>L)4X5tS%&M9nTD?=1oaScLT<--b(>mgo9_`BXGTrwYr(je*b(DxfrXH^XA_Pt
z1jn*4!1`<G6A4bG!i!=Xh!^t_2JJ|%YX9^kY7{D9zJ0`Dv`6p~oeFKi8H;`!qyEv2
zjORBp4g?jJUwHS~C@cqG4alRPunpL^F~6Q-e-8ni-llulrT-xkdF#1LnpA)Z%xxOb
z#$Y!;v`}>B$tf5*M~;t?!rbC$y7M#5k7y4pLJnKxh25STl9>b5zT|?*d&d-W4bM%7
z_98ZyyP~sCf`*6RqvFEHP^_S}uFr@p^E3P_-;{b*T&tIAu%-RZa6KsF!VLE!G%IRP
zc^Uk{e<CKx*PXJ)^)7a&>+SOcEiJ+&3mO&vI3IcFj@NAHGOT3tf0El&``v<0xtA26
zJwLsm{Ppd2*5BsemA-8@8(e!ycF(DyPoI&YuY_b%g{wo3(YZX{z`gk^#taa-?+eS0
z^1yDnfrksxI5KupFm&gv$hhDPw{;inapC%*)K>YH;wkqQGX8o*67t2|nD<W+!z}u>
zY=I9HiH`HE-rZJoC$5Jo_^l2}=B$I`DWJ4zCubq{o|V0xy_7JeomEI@%g+wpw^3+K
zM%8E52(T9^-xN^rl(A%vkOgOa0yr?g$)c2YO0n=I!Cw~x)xp^4Z4sMFuD%M&ZkDj0
zEj-$*sG_UqpnMVizd@FGX^bS#V`M50Na^_w%5@4?@X*}x)ly>+Cb%||oio_)2Wg2l
zpRpNu>UkC|Bn?L^3!*Fsrfs47&e^+om;XE`UEmzW*sws5^|x=}_28?5r*t-rsx4d8
z7QW6wL?GK}_us19B#lfYzJ+U;5ako<z2KFDr%4PW&%5VvWb_BazoH>jBmy|W)%GzW
z3-*umanlaeNzuH){0IIlK+B);HJa4HMm>YTxkUqx(>Ri^>~-3D-L^mn2n28=2Ip`&
z6O^?PsKsrLi*CCJV7E6Zhl}F%;SaeTE`p8WML8azKVlt}{Q`>o`a!O#`sZ02<3R2?
zP-eq)g!2Hf(h=`r^kTQrHk+*!L!c>8H732?e-NJ-&g<xK#6*3bueNdX9N~PG=(K-5
z?qY+YAEh@e<W9;SsxLEK#CwX>`}hmpdDYTg&hsA@%D$g3TV@SKRdn?KCYCdUmy@ED
zNdVDSX*os6yZtLjgNi<&BvOBuKM%s;B2rr=3$eF}9h1BGU-L#~P@fiJA?N=CpARDO
zR?sWwmAU6{xpIh-K7Tt*<4kl)#2+B;UL!W+{H-kHT(ZPZxy*gU)&2Pw?+pL31HdP@
zNUobRq*}vYWc}7hg#yr_IM;Buk$n0K0V)VtBNYOE*J&wOX{JhRSZlkJ)qqFEu|4u(
zBe4SRzeoIEf0N5Berb~g>}H#O)7@;M*t8^{B$}j$%!?#d&SNTdZf<U;l1do50l3b&
zVO89W4ELdHTK-75I;pw8pPy~u_nQ-VkJOHY-2GU>cp{j-Vc45m0J>piZ;w7gRls$^
zTf;XGfgu6viAy$!^}1?$BVxm{v;3TNe=iL1a&lV8`K}C@Gx)wj)Xr_A(-64}08Bbe
zC8;;!68?5XR<#m|gbjQ5T!C(sB#D`aQKXWpm;e^g?{t461p)q`rDdf{;rUe<1$Lu9
zvo;1YLh#gIa^DROe2_6FO4jdaG6PK6+S-~2Jp07bVG)HwjmytI8_D)<PWT|>a&}>o
zdvfD=qrzTA<-Ydt@es^i8xfU83}B%TdJ#eumrd5rYDJsq;>lLKhh(B<0oWJ}^*bMD
z7E}o-0^F20KKQgL1cq-!$KN3iPm$ocLR^L-FpE9+9%HcU>(52QGL&SQiI+Z(B7)lB
z_u$^EByMTtrFF=Hf&%rh426fc&cAjYB?|C`G$0ihxX+OX6cO_0%SQRhxD-%Ad&MYu
z@;giG*zxgkHB7!u>c4BgQB>r<FIR5c`4V-73Ch)r00*h)84t^bnwFiqrFk-|tEogf
zp5Gk>{E`_1beCU!Mp|n)>LU_K$SE(s9{wV{rUWMp-I<crBi-a&{6Xx<*aFYF7-kxM
z;>d=`srh_5nXS#Rk}3TK<cZpO8_`Mt00V}0ollF`N4u+xfNj1Me*g2`(?5luW2YD#
z#!D^Jd4hhwUloQ{OKvs0SF|3K0~JTWMZ;W(1%SIBuLH)Q4Rq*+cY58&(@L&!NkDHz
z)2neIYC1|y32Fr+>W%wyUlLscSh2BtbG3hYhfjVkaLGxNFBM$YgKq%Jdm1gjin+Z=
z$#;V|OV{Jcp4g7s<?12iw0BpB_$PgbR2g*;zZK?PB7b*c;k#xPcC9aZZJ}1_M13W;
z|Nqr1m%i^2YW<K)exOSBvt3J155}Cq&yZJYc$2uD2l%5bU<eSk%u^Q+uX)RCfh$=8
zRnCrd=lR2>JJ@Hp{=`<i|8#AxyfJk2N7RV)i&n<y`%sou`%siqWG7D9N}>BUaB$Cb
z6+wGm1lR%aMx||Ln-hG3oS(Fu)b3T4%CA1qe?1E#kmc&NB(v=i6a=CB7(c$XAHQPy
zg5o0kem>t06YxYnFMP2cu0Ipq;kF3`4wa#qK6gp8J)V~K!vS=mXUvVDo4!g+p8%}d
zyO|53(EN??31(40RtH%rwnLR420jtEgen5thSH>9t)Nigy=r~oK>1z|gK!Y4DiRw&
zi+{b<T2T-3W^}*mT|m0Dq+lD_H_J#m)Ge1{`c9gmk>ilZn`!F?q^sh5Y5-5F6C%wL
z0H=Dsf?dDyI{r@?P;;`y?Y1pfG6I^*ijX_9f7a64ea5}i7B(+IA1hDQm|Vx&QkU`S
z{Cbb@3?S_#H>ZlS(i9&eC-~Fkx8l6ahRS8PKyiw`?Ok;<jPk2^5-J5QV2|D^Gg1Nt
z-k^uLtroF|k0-OV#}?hE{vc%>H)ruSpT_7cLvxD_$aDn<rh~~B-XA8Rj3AU-%%cQn
ztj(nX*#B|?W)wENwuhGBGU3tTY^Y4s2`FwrzM6N7vVD|QlBrl0&F=KXL~&|uH<e<5
zbW>RT%+H^CNmY$+qfcqOg+<}5)JqiIwjcl29S7LD{m}LHBRf(&+?$t=VleM4!s&%-
z#iN_XU+EU+@=&;vddWA_FwIj@od5Z<l{hf<%N(I;({~9Xr5|R>_LZuNht%};no<@Y
z+SPv>6GE+^j47S)iO101fN{mM3AltWtej0pc*uzx@<0ZS!!vYGyS}e;N>fO2qCNJ!
zrxh~35e&J7{+eZ8lLp;NE*$7MS)MuQZE71sFYBKZ&%}q`YD(57+c1GZ%1pE0oNk!D
zdX&#xY>X2S_cpz3awnFWfrRg!(|5@~*+O>#JBqQ>vM3c51Y=_dGl!_@x&v*?zbB#U
zrDHuE>>)Qdg+>j;{nu5>ubQ;lU1-UeV*B*sU4vajz=#dfu04_0)}(w@KT<K-<>H<#
z-^m=gZd@pf!{wyk&a^x&41*<>-@$>5eRUs_rqv`GLgVD(?Bo8YO!R%=dFJub3>#WJ
z$HLDuTUQnJFkueM^xMu;(J5n-K;w+xtWu~Y^#zSSHJE|X*Rd9-v*trNbstnE?J87!
zwK#7FZoU!QMkPJ^H0W<L4X5dkNB&QC!S1lQs6{o6Qwr?W$U9@zODeWwkIc%kX3w(z
z|A$XqYj3I3DLO60%S1k&{B+w3$OU6sanOTny8rEG`Fx7{6LB_eoN;kRslls9NqV46
z=59@zVqBu(zI86^_PEX#9~W-c-sP{=)s<Ltud|iNcv(I8?9=J!9kt)Uz8fYh(R>cy
zu}3wi(c-qA)dR1omF<o5kSCYk=(8x0Q$1>Vijs%((v0O(lM$%!*EX{+gwQv>Tw#}V
z&*fHNX^iPxbUk|ct9p&Zzfh)IqRK-8HW*s2-{%bN<`600qHJs%Y||AUbOJe^&0fxo
zX-IBfI&p`4F(c}}&n!(Ws}YLzn-lwR*RpBsCRR;z-+H6JfCwugT#X=wSi_u?^x^|C
z-|P*EA4CfxQt*da9f-^}RVioK?d?hAt_(1q*g+O?_B12%weIc^BcF|{Q~ndbaITr5
zr%gj+gz`zXHg#PsHTEOl%+McAyNAv%+A`lXe6t4`U$oI{?7>p@0r=7H^}0wAm10cd
z2|gr5(zMlO<od%^q(}MC7qyDZPL?um)8Cw$h9re`ZxWNti%7+QkkksMqM6#Z5U@Q|
z!1$n);t(V#axCB|UH!et#Q5s=e(Tk4F3#ILOo-I|Q5_}!9ThX#pHx&FURNfVifh$r
z@B*>>j3~;;H{*9Acl-N=2Yb3FQV+R!?Je`3<c}k_$Crb~hW`YP?SSS&l`g#kW=pLg
zu>^bgI8WC(Y?jxJfE-gMH(p!~rGXB+(6BYQnKt_^<F-R5s4(jig=4+Du8F9>w_Cnj
zFocjR#KdQW3VD;|v<FDGE3R-rthvyHzBDN2c?F&CY4myv)yAcESuT?7j|UIDiB_zb
zNNTyA$|$x~<Tuh*|C}lNb>$fOdB*})_Zr1l_HrCy--D|%$p;lKm-!vgF9$ulJZF{!
zS0}Njoa1T0=%;2YCg@32DSp>8zVD$hSYk^MZo}Snwp+f-GC%Lf3P9KZE_2?UACngj
zujM?bx!=s#Jv1>kNtifP%j<4ySzSCiKs83laopr|syx$5H6v}mNKyBMHp9{-CPyVs
zzf+lWXjyHQ_0ZtHB?)Gu_6*ywpjKfvqwAd0NTAG@cU9*)<Zln@26{7mx0e`7YksD{
z3ol6Tjlhc{6-@+91UzY5-o?M_N1%M&V-ie#H%VKv775AfB&BaoDlY4i$E&s>dA$`Y
zB^~)D{nkRaL)o_^+7~UESW-vA?Mcw(Be23Dr^@YdUvY1$g*m;CHz>beYrn{9-mOkx
z2>f){W{5nRJb)#?WD?wf<PN0t20K>OuhU|2T{u4<yG;L!3#%Ww8|fMo4aYJFLBD7f
zs4S=k_@X$8X+VH<-v5e_qJAP%k%YQMxs*r~H?um8W6k$H)H0p!Sm#-SLh82Iwugkr
z6~<kb+H}@4%*{OqJ^|ow32V<XD!EC0qIj71&F&wQ7XDY$73I>K!W%K^tywvTN}l91
z=uS?Nx`HjvzoD+(3r*6`r+COAPjRJ6+bj0wJ(DH2(8H#0c1LO@C3cuB;u=KuZz)k7
zTvhZ^&Hb(}NFPmyBT2|3DMmCSY5OcA6$4==zKK#U8?y7V^Pcl}AU7(~>k^*Jv*tfN
z<N{8x&6`|(=pYQa;d3oSnGY)#**7{CxvR_-$hg2YDl@t&JsJ2m<aOn%sShXvxC;ok
zI}|Cx87nkU)m-|Kzz-TjQZtozbx0?(nY5{6uZ9dg?rJO_bhizBEyeF8=iEymiDNCF
zcnX=xzM3(lOfzC(!hMI>{-9aEgL6>=9r(ZW8t(Q8cDN}8Yb3Y47b~2BPP+08pHqEl
zLB))GDN2#uBV!O8LO9^w)F8^N`rjflYBB)sIsbcs;UVwZ<qUKov(lO2daUHlWP?`|
z!4jSiN<pZ5;nv{=@FbKb$~;`26dL^?Om)k2-p7H`n|jN~;R$Ofj-;G2nY=%|#ufiI
zJS(vDp6ll7(&hG{5khCczs}v1qSt~`cJO{v+9PdOv{Qxj@QbE14_@h_oqP1V!n}2&
zmA?B|Ts%#=d^dzDCD0&Ta`X~G(Lp=&%uDPKPS_zNGt8yOKe(Q0<7L&5vh^QelSiNr
zwLibS7-yBb@;wR>Zabm7Reu%MdbLimJ6Qw9vqU;iA9>r8OqU8cTBsXFe|cQy=~4*E
zB$&^MdS2M)gl<$Vjt^4jMay%iur!mxhONQY#Csrf>CCI1b3@Jq(W7Q5eEtxV9?!_z
zeM`?anYZ@egXUIJ=RNe!p6j{##uz&hNZ%xM9{qmO`uNx7^y)`X8>U<xM7nyXLYLaS
zOg;Gd8*o(zXnrBc^3EGMr?#81p%&bs|K^VzR|*s2n#+X%fsNGvZYs>uV%~G6UOMuq
zXU50hZHZIZsOX18+Qb2Gm7cm({$q6TQk&(?V^vO^Ug=a=$jn)++@cVl7-iVZBjTQh
z9=}5_>LO~TuaWY<$@Y3&ZNTA8;Z3<k-3~EiBwHn$X50If-S@z_Ld-RRX@%2PuW+WH
z&=BZ36Xt{8U5V_<<huec4ZFbeeV+ZHHqCBa7*8X7%k@wjV!Ff@>06G&zF2aKF(02a
z=OqL}Ag6*5za=0BOpifkZrFP$x7(EV(@bFRw&ROm6wPmvWeH}is>``5zmY<3Jf4>@
zJ)sKbFRs`JJ1}^w=k)FUeWd^Bl`1c~-*4(SuFQ3b6B~<7VHSPqesn(sOJ-+XCwbzT
zd-Hf~O725t{4_5Lm(J)*ul^28J#0r=c|KWy1++a|Ba{`>KpvK`VZ7l71amcuX9Y!>
zrHVqE_WFStD%ctyv=B-R1VUQ%*xmLSbNfs?7s{1kUT<ioytKN6<_Rozz-Jq&_bR7u
zWCyuqw%H30P)~bOVppAzci-;wa!!{CfP;5|mhVhF=Z26e17T$GfdLCkJK>kW%H<>4
zxf0OpKfs}jksCoI?^su<?-ylA6qB7@Oj2~S*6R#dexQ<nYkIkAwx_rrdv948Aus1?
zZ_8$Gmek_$w#uwOY#hh`TjAf_=g!qEQmLQ)mT!Vk$B~SH=p=<A@72`YLmAJ{bDio$
zYLETBzZY`Db;t%C`grd<!rz>=*i4eF{*_aVph@;4I*nN)CfH{RtSrQDl`j%(4V>+j
z6`va{dytLpKD5M}GZ*_yQrNNgU<FP1T~-NSBeto7PX$d3Ts+FbV6=85W$S?um{GE~
z&h6&cX3cW!BfqIx&gl$OC$s}rb06r+{PIQNJK3)>NF(97=YY@uG{FLSfYgFGS5<dK
z236JECQ!5oT-G5$w!PyNUU~4V;nwtDmpybzeVm|)MnR;a4{JMaiQ8wI!`Fi#=(*8Z
zE7{OfrT-UY@n8Qlp7<14r@IC#CW-!9FYX`sJGlaVtbSMhgZ7<e5ufSX^S>G~GL%b?
zpv{R=Y_}wuSEgEuy3f82epP;Ln3u|es40udjzj+8sR^#Cb$|(%6I6W&H%IjYJ@tiN
zPv}Q*%)=*f9h4`+tKI0LciY^v(fB&Gir3pz>GPQvY-s=L2?^R>1}7N^>PE-2Aik^m
zbwk5H7Y?{spB_s(l*l>FT$dm8q@Q|})KJ&f^9xsUyf2&7wQ!fU4c33{EUSKTF)(Jm
zYxbWRzpbU47b)8Ee1|Q(qG;s0AUJqk2(c44k9-+#qYoNkz4*N>&0uOwN9j>-k=OX-
z#Opib)qNwH);#KOk=gMiCC<TbhN@U6U>h@>%Hx-uJTn#2w#z32F4ZM`6Ye}^te5uB
zp9}p4Garu*vPNqOWf@Gk$+Q2-GkR@zYBeym%O)?T&elIl<$>g$p0%ii*|%p*kVpPL
z>?&<)w31`%-<zo~ihQ%}0vCRez3yi5=Ap5%xMy|izgcxxNM}Vh4JMlolgZnL<N~!l
zH5;`@7u>H_WPLUwwa`hfZLaxRRdeK=U0hZ1fx=53h#CZopODs$HJP(}l?8dGL$|J%
z`u@$DIh;1ZY;^7qtpwTLI#smU9Z{%FnCDH|u+My`Ps7$Hl5_|8_|ib=xAOhtL?-+V
z!TjaXwu5xCxE?umL7N6o(Gf46d&@0vMNu1W1rZIIFMrx~O^wyx@fB6Scj_i~gZ~`{
zHhWhE(4MJpH;=OcQ!Pg!wix`Ga(pLlSe^f*ET*FEun*y7`JifUQQL()Zuu;PLU3V3
z>vQpt^L8lRx}=#||9BOlE;4fJdSr3m=8V`#s~L7h#mdDVw&}b78I##~Hr<1Z27ziW
z!^&$aE{TPE^$d-T$o@@xyEGMXmidJd`9$rv-{zY`HMmrsW?cmf;uuMB#(c=O#gde}
z)c~R!Aq|Q3*0ZVtl04=ljRb69g?RCsB@`iyf$#gsJcQbx36St#HmQiCZo92z11oy%
z)6<E2v;s;2hGLvp3Q;Q^2yUAQe#k$rs}TFHLVEkAQd@C?*Z!IHvC_D%6`#durFLuQ
zLz$De;K;t-G7$7PInCJ1SrhgnZ5mMNS5DU&d*KRL)7Pr0)~KLg5!OINZEW-qgzhiG
zKNYM<z~zh|b}UN*ixAVFPBclYBrZmH-X`)xCp^BKJucfI*3*7cbW*iV-K=43Dpp85
zCO~B&g^7vfr{on~<jzgV@N-IUBRu~4n*#CPCmiT9AOwRN^%Jo&IVxNaZq3iyl>O{j
z%>C-rdh2y@PIod#27_?^E?iAvtCUsUEcf3b#4T7}-NW@kRN`R}KLoLT31aGDHRh=x
z{to-1=?oc%ZI)9oYo-fYp5=AITs6ssX#GBQ$K&}aPnClBmEIR_CQA5bm#_{UHMyq9
zaSE4cd&<Un){(X^hLCubk9e{q9X;b1b2IlahLGX($1^@Xj6Sqeoz+xNLXy|JN*&Z5
zhMCiC6RT0ffz|AAw_wRUFQ8mp)t$pDCVUH?_sH;)3)1__ptlddzdi}mSbCXqAY@X(
z-Yd$@QOjvAm-!W2Xu@xnu2pEr!vLs@CFO66b#tG#y6@Y&eW<4G-L>sg0Z2Q}5<=FP
zynm`z>uweTd+&V~bhJKY4z$<W0lO{tpi!lb-(VZ*Tcdq^qfF0d+poP<HSH$r#;=f$
zIt0eeH2v}~$?VOF>3_()+ZEHx150T}P(HS%>-E+eCrBFAq`sC<mN(={Jzq~_uW>3{
zD~JgV+_LH)Y?3>fn6&p|u9fc&CBG;selRw3C|s`)#!e8Tbka<fQQ$_Jk=3(K5a0^k
zrj#f0c{`!50q^Su%$j`a!6r-jkywrQ0BZKAeBW^Dopwtrr3c^J6Ku}m+zN-7a_Kt-
zx&D3i`tCE&cAlSQcFnL?p@W50lFB%Ka}VsNYF8VB%&LZgE|r{@Kr%nk%FBt`Uj-ZL
zyZ!K#fjp3-4Aa+ASS|@`hMSYzV`2YRZ1?+#foN~q`Woj|CcZ97?FeURvwOHOjj_^0
z(4yyjyv>sa<7UxHJ2HRSq|TLhk=lJvieF%8#^M;s<YhuYb6@RX7Q1{Qbb&#elOr_7
z6gFw@GN}}jk-_iDc72`3OEfk+LtSrvJpl{;I?UFqukfdrdLcFOM9%yvq|u%~=SFKM
zs|ovs61f+B`<5gvZ?r!J@Z{X6m)wLU)^RMn@RqE3dGLk><+2jH>nYkh<`K@{jS+kB
z_dBOvV^}}!gY{24zNcBhmXeWcnnvSUUvj3@yZqJNfV~@uUC(_t>`ntsRR3}4v*tk)
zr(K}evIFXV9eHoW*unGbq}R9o*^0;ZYHkgzN$be<iO`GY$74Duh}Ijn%>IPP+zGY|
z_7NOY$g`lHu{B>scQZW(xvwYV#oO2?pN0SjT>_dDCp}8KI&JR0VmG6sMKa<0oOMY&
zFEI9Z%IXxa-H-g+%N$B|cKvX3`ByU7(#eWBo;hlE9(T$ld#Q`PEJrd{ug=>EcKiH{
zTJZgiviq74#2<;sd&_`<y4I$Vy0m{|o^#yBq?lqxJCCJeZjVg3%U`nc5u2mmu%{S=
zZGI{8Ar=$a>0Bn-uKO8~x*K1cc455@y*R1b9ig9!Gax(H)8mQiD}q09!Vu>_5~wGl
zNd=kOTd|M6Kg17QJ)vJwyWkfQaKkZn){AAcN4x!IYn&k){t*{p5nMy>So}hnrgxka
zVuX7-?{QHWlhZ`u^~j(-K&Zsd?n1_e7_S@pG)Pw{C~5v(OO#<*Gg)Aox2>Gl4;OdQ
zq@n%6bBYfPHQ}2@`ZSV@RJMID5p|nYO4*W84{js}lCOY4;u6^egH7sz)zM=B|MO7k
zW)U4B+&(Q10lq9M_ct#{1~}U10U?C;%DaMYP61qwR#8qguZdg-@OtM>OhW<QS)J2x
z=l}cn&HwAaZr@6&HaRy1lnN78Yt-!18(0>V9a5KECyqlrgrHn<c|;llaFbd|G@ueQ
zI~=`EuKNbnUHSkf-qGG&%j^n0$Sbd0tLzHQvBSN2mU(FhA#cVlkb`cf8f*AxcuBZ=
zR~U}mg><@>S+jY`gF1vikTj4a)wTe`4TAA+PTmdq*I8a;vSD_6#(JNaF;rP5=m=}%
za6h_-N1uD@=wcA}f(;|*io$46jmTN>lC;A}M3}+oS_)ZoJ?A~;CB3WQ2m>MTmOU>4
z59jh|hC8D^NOb>OD9JutVPO&U0=BocWH~xuh)HV55xOm3yDRb_BA{dMhA3!sDSSKf
zF{T%l(RjKN(Y6b}0+#^6>=PGPhq}W;H4NygYGvkl+9f~j7;wU34ZmBTj&8fqfac!Y
zyguI&2O;Ne30c`<h;fc+P$V{1`fIb}vA{yxpx7i*U=y9w<-^evW;`8R+O*AHePB!#
z-Cdu)T94su!2HSy1iQWXM<NY>tETs6-lAEMUZJKj^++h5;=Nt?hCEQleQ-J0t$g<O
z{Anb(Uk3FQ*nd5E4IfglMB^KA#$$0SFyrKgLmZb!O>rBm`(JKG6$TZ(LL&-J-f0;B
zA2K!F)ECbv1%pnmLrk5-rkdpH*va~PfD@*uHe;%08S!*o1h4VFoBe<FQ_1%g+x@<9
zPL}GQTuyMBkso)fF?ix@<Y`?pApr~3uEO$0VsUFt{&(J%(ys)T%`t`p<i#>(+roe}
zg*<q|b$b0Y*dPY87jatm_aYi*QAs#H4AY`>f;66y4AoCourB3otDbz2VBVZChYRt(
z0d_M6blWYn(EMvKO_#5AIfZ|3oob{0bj9kFszt%<Wk_|cl`>m}F{rollT)V6SR2I*
z3$8Wi@d@M7LF?1$dp#cNz`#G|y`uByX0Tf37dgu(4NQpOcbm}sF?Xu1*ob-qa+i_k
zlvuy2A$H1>ir5qT<mvHszkYP{ktt?%Wy)_|tu9!d#6Ry$^_Sd4edbAk&5V4({9#=P
z_~6Lq>)Btvu#(>Gt1I0ZXb2A`7I&$Al>R99*aZaIelm?@V(D;FW{NwX{KHD7iSwBh
zdp)82pKlDUJVFWioGg`ER!y=sOcXyKuz?hAeed45T<S{rK8c&;3boSPI$$d1$tHiq
z#G(dr<oiAgVha-4DlQINf(tt#pS&*|GE`Pf7Q$3-NJ(VraO7A$wVaV}e!06gTG!ii
zK(eLO9=d*6#q-Q&2Df9A?O*;YAEhx9##0IXTf^plRiCktIpF>2gKUG*N%_~>pJXe>
zHj<HQaZD`7b)sI%e%Vt^{7mJmGCpXI@G=nS+jWTZDbGAxl}9uB$e*QUdUeo+UFxc5
zwnky;;KA5Q@H}^9-$E(II5PKfnf(LV&q>?$VEpWXPy5ZO_fmw-*QO_o?lSD>mMT{e
zkc6tBCsyK5%J-V1<eB=f17D}_6n-qxpS!gIn)~dOeM)!W#f!_fbV8T=pofYE1cQ0q
z%@<b^{FNs-h0~F{Ib0`Js@Y~0dTRAn#zGIr-T^!R*ZF?0#(ooauazW?8-5<qaJw)g
z1W{LU6ulToeN)lwr(eH)wnvHb@-tvaeboiPZ;a>F(-jUJ+IBGtNsHPG2A#N*jlGKU
zhkPV$5G~z?&tu#9OrpEgG{_jmtUes(QTvdJ&vY<Iy{8{82AUuqdI0EV>;1&}*2|vg
zoR9W$LLHZyJOC1<8T7h@G7@YTRz8=w<qE4aWA(5UTJ8gCLfXuXi*(PzZV_<RkNh^T
z-kf>}ZFcrs{Kk@@YC8RPu)uiY>RZezrH`HqMtj7+-12}oh_Wv9%{Y<oc%f(M>r)cx
zU1slqc|2`aVeKCpHX;zKKU?6xNsS6vI>;Pfud4qVwmL1HDTUjqiM+i=kMfM9JxG+2
z^tnPrh=hyqEvAH)+6R?O-@!H&;>@rcId7g*x8pX&A)f;90_R(o0%^j9pD3^fiwB=*
z8%u}x7ia44g68-jLN@o8?X|V$P2F#PP4Alf<7az|(Ay-(4}d*F7|(Ln9{Q^9`KHtE
znFhiYdhFIek6NWS)vq^{Wx6Nti=-9oVQN$6XGITAJUyq~3vKVu4f^$$8?<)KeDuW?
zWuA~GZ7Ap5$~daWgsm!zl+?E6c7<ifp3cqXC|L1&sVvMn;~XyvN@rCVVq=}gtzzyY
z<hb_DsEAoWwP%OEA=x&Su#&^G6!z{AMn}i`{%~^^Q74_q^#O`Q_YKGK#ICb9Gm~|8
z_s0KNUj{!SJ)^<ji>dpTsC1IwjZ4z&R56*z*HWGk-;gPC7<fKWc3-@K6q}Ej8DM!l
z_Vzvf$`|@t=4r#Z0`+d3)rgV__dr0~NVWZ&nb8Nx(nZ`m-Zy}<wCP%CV3oIrteNv?
zEi&A9S+;cAc?JLk@w^%v{O&>na4}u*t-N9h!ekH^y2o&OZu=BG&xk6v$u=iRZ{T~R
zN4IoBJ@rSKagrmD-*KUq6jELFM;gludaG|b9UG57l>m_EyHV>?7u{CVoYC*C*bqYV
z_SDQnicM8LOe-h0kVd&6&CuDXoxoqJMK^nV?oa!-?Pfk>a%65|i_A_p<6%L=&^Z=X
zm%R8P%bUtYGeeg}+=m#?lZFtoPu}Fars`^W=A)>Kz#hU(h>s$UXFoTK!(gvY>mPWy
zbcVT*FD=&pjEr12Qj)*ZVbR_K{NjF5St0o0T~?L~7m{Z4ePxw{Ch-Ogs?kHu{i@#%
zor|h=YOrhxVumdcycryjusYJ~J~Eg{g0ZRj{@{dkp4X&}E}azp>1im#wO60B?ni<b
zKBJ_4GOWf5Fg6W$Cxl0ePDVE`(mTOd7u$T{5``f>c6YV#o|*2`g8^r%k%}$`lCR3X
zQG-@9P8Xe?#HgPrFQsyY&e4Q$PDb^q^yM9{KABril#2G8lmGvg)bqPEV^7xNMs*JE
z<4;SEfBso<bz4>NcJOgQD!e-vvFINN6gmHN=d6I0;cqva-inp_p6i*axa!q)*A~`^
zRudnzPDqK3Q~x)`RQ~QgwPW7|6dz8$E`7URWxKBTt-D?kIjgVzFc12zc`OR-%{-@#
zz-mUZF?RLc;sZao%zwc8qvp;2Ne1FsYqegLt-GBdwCDAs3fJ$<htA(P)%1Ajfo(gt
zy}h&l@uP2+tQ$plt~h77N_gqaztTshG3Bqm_<qxl{QrEt;kj}T#f`3Ze|Ma5{JZ9%
z`~0d8j9cPuM9%s`8XG20Ua3|n`q%@f!6g^YdTZWtB>Li>1&cX2=lx!(a_H0NWqIQN
z|L`QfYKrE#I{!#=iPk~x#JVfO9L0tE1p2=#Bqr{78KNaq4OD+ML`&(j7jTH1YmZ&t
zY4x{mjOxcX{%)-1?A*La^Hmq9xJonNJesyX@}As*tt~E3f?Hbto#s5b^`J^cyr*hl
zdEwl$wQ<{lyz56lzPiiL5&C&K!*_vwi_Z&ao%){s_V>kCf3wXGTK5Iqtcvf+)I7<s
zCzXML;i;#KV@P7)*1500Xfjqa#w+}>-8Ab%cZ2n#pSgh-)@vNR{jQ>N_mPe9(Hra)
zb)>dWDbU^T@9_=Vdu_=!^8_A%zQwU{qA9dtjAPXqxLSs^Ea^-}mH)Fp_4M$p>n|MU
Q0zJ&&>FVdQ&MBb@01={*w*UYD

literal 89714
zcmd?QXIN8R^Di7kK&ci40Rd5pNbgEjKp}MLy$T2cLhlfSTTr^869G#=>Ae$*2uPPu
zLN8K7?+_s2Y`lHW^_&my$M?hkoONBB9d`CwYi8E0nfcAEywlQ9q9SJ`2Z2CTU}Z&Z
z5QxMV1R}P+LJB;YNdB}9+(@lel@x(H&~OU%FyMC8RoTb`1Y(Z3xQOBwcWgnRyCAUQ
zQ(fN=>r(-NL&F*8J4efbTvv$}a+I%CnqT>7sD`YZHg-0s->BL=EOV@`-*9whGlp8W
zcvnyKc~{dvyV;i4JW^TjTwS=~T|a(^ah~F<G|s;j_JI8ImP#o3CGrK~nLQj{=pE(D
z8#k`}^BS|ald5FbIJ5P5rk{c3B(-6A;m*}RME?K$=MaYAs8sc@P&}D3TkOIN^JBTf
zOeug#L-3}z*DrxU&9e8uIJYc3ktQ^j&y@8k<wTqsKSi9LzS!zJVOBeJcfKI-@ctQ^
z2m~TeqO!E;<eyCG=e&6Oi>7Cm<l+M`+Ko0|2H*+D*E9F4C>$$zYa=kY3@LZ`X=Znd
z`(nXBzeMb|FM&b`+o8+Yk9xppAW*zwGeF8=LvI)K<KYT*M}!y4)`LghWs%U)!&ahi
z^OoSOr2QHAh|2gwhd0PKa1Bi6xv3`{NeWiaI5OvOXhe46*X@1UUlciSVKvEPn-tJg
z@MNDuOwn0W|C1Tki#Y%e@1A7umiwCFn#%;nrHU;YTX(ETf;QH7vhXWDN(|sJ*~xh;
z@chZ6oasdReZQ35*UKAHwMX<PzqX!4+jNWz!-K~a<XVrK@qdU0fha#~Q}~L&H#a(h
z#8nt4I@}JBf{G|5+*n6Y?a|`^t2=Kh@ma`oj4CVH#_Ln!f2p{wNX)S9eU&8W&~~t@
z@sMXRg?VN5R18e7nx`#WA_`7|YhW9oRuAf>$Q6c)I*h@~DvSeuGto$Hc(8?QZ#gh*
zo1=*UwiW(7Z(042bUx_vzXJ<4A1XFONP=WX<BYvWwoJ%Rf>dy>m0VBJ{S-xVpIE)t
zUv*ro1j`iLn{ejV&W>MwR>bhrZQanMe7D5~O1k!EoL^*4p#XP>2K4mO=M-Rsf33L6
ziEhhU9F-;WGI!H}sSq=qP&(`7^&WD#@Q9#~Tcq_bFK&qYmjsZv4tMXY*@PcqICvkY
zVvh(o9k5e+Q~pvSZ`qcnt^qZBqDlK$E`I(&0iRwl=}sTz$mtcJ>qi>lFf-uZ%%a7H
z{nfWj2AQB7FKN|uI0aSlY)iX^tQvj}{56J<AkQ?|bal~;wW-||c^mMbiT$7aQ6D9#
zA|9!VtPLMZW1nFrsU{=_<f|Dw|3<cA#$a0Mf<hTfDsvF1L~eYn>`Jz^X6$|Dg+I%3
z8+5q=1hRzbKJqy9=^{(Q`z3DmS_cS?&fi}D^TO!WOBWpl7{2v$A~;afxHHcKXOYsN
z0n0d>k}VowXiKguzC@sAOCHlO@4FZ$)R#T`cuxZ8u)dn=@Db@L;bMCKr+?@q5%3~>
z`26}baJM&f`J5A581yPZx$X&Ch*-Dv$?bJF%ELbjwjUZo4+5=IY;K*UDc30yizHNo
z(J>@={sd7A^bY(Xc~O3%E+3X0%m)wt7zEiEZDHxK{NK6`!e#HOKCD3|oQ&q6_D&X2
zrh6@+!4#|;8F8$e)=doHqy1k#&^YcOMkBXH68z+F#M)O{Q@Jk@5K_lG_(JE8|8f-~
z6!wRRU^eX0v)B|bS>gIos0KP9DNB#>)D^!6mt}WY<e!FWGW>740Y)i9WW>S@x?nqj
zMMx<Q86IxF8Vqdnd6QW<PZM~wN!4Ek_iLAGF(sl#AI;5}D$sQFgK}EFUL@8mqeV*V
zi0ndG|8rUik5dT+C`85qx4WnZhMV36gW+d&b#*82T8gfMR9f=%^7-S0!moYb1t)M$
ziHshAo^TtMTDMuKq+8k*t7l5%X2|MUK+Uh&L`F$K&6$avFJluuzp&SyK7#{F^^s;0
zHQgh;N#FwmTKY>OC2cGXuCII#FuCiutbm#Swspn}9sScDytvTkKTYfNg<k$?9~G|y
zhWAf<^6sMhpB8fC*@agAX&jLkD)*<U&=Lv!{h0XRf5yPNb|n<egjTa0Dy0~wDaPl9
zH@c+NJrvNNir2OmnR;l+>Sh1s$P%W|97Qw-iDOAIxfv_g78VAddnf(g9$i&d)l2w3
zP>jpB)tq3<A5q?IDZ2G<pHYiz+txm5P3~%5CK|&nXIBj1sy!0m>Aa6>&v)Vtlka5u
z-&yRvsg&z@kkGUASGJ_2L;~JX5}JOhCg})mPUe9*>>l{n8b5eIQs7GQ<u{*7Wmq_(
zY-`1omXY@Q)ONl9&eco^RUawo4(zp3@L<#6-E&pkU&v)=FQ!LnxJB6(bn-@P^4{54
zi({y*hWwrBQ0a2RsI4<L{%X#nKE5Em<f=n|xBXaC{;E_5(*To4fdWYvh8Ae+m@B@e
z-SS4loJ*n)Q^F5|YGu<=b}H25Xg0VLP0HWBw|)e?mER*xt>>y5>a(Byl(Y0(yf?Cl
ztvf}NZ(@+-uO6LBT{2%!F8k3ShxwYDs4N*wGyK=h-BG?6U{Ys-QHT4ce2xH>Fheza
zLZWTgP~LpXk;BMe<qFBXzWrIr!NV(HTpMq!x%}m~zmKz;&7Hv%!njmm#aArTMsBf)
zPLmzs?~E(4A@nHjg#3<5cZrwcO^JyS$?R8cM4sM4c_ngFFzgAMqsMn6_uGhyY5(Q-
z5$O81b&8%|;Z%XH=2zyOw%cA#oL3d1%vU<&Q%`=xmnI{5{o0?))msUq{E1Hh5v80|
zct8C0MZrKOLEONAJvoOtclrizRW^%wr%cKN_JQ9|ZNZYFz1VEgoPPEQxpK!6)r-gz
zXovK`I`H8tJrS9cXJ-pBi??bq3v-rfR1&xnQD1&=C7V5V@Nv0)#2rEpMFHyX#-qG*
zY5K-{NG`!rxCpx}MT#VRpGy+bsU1L`wjSsBY>oDr(V65;u%nWrp^TV~GYXxKA8Hdb
zo$EI4F@g@IozRk<eAtAE%tg1-g5AN*6Q+cm&fk)4+iUToO`HyfIqZCpm^9PcGq0GS
z)k<NVba8{~uf40v?GjXLuVfFW-hChDN2!(_z-L&DrIyA9`m5@Aki9q0RqRC6{1Hfd
zQ*Sfv%2g>8$&V=rTCz6ymVC`Xd!cF7`~k3Z^@+tD2(FCvU5KfqNg1DT6OZAhs`zGF
zrOXtM`or^{p1u?u)}5Ib>j0Lcd0gKaYj~hN;LSG}-d1B9j>xb_Ulq<?8d)h~{YP*i
zK)=$-1G**kuQavZhEyx2uDL*S8z)d$1-nS85ByO}GA`kqxoTxD%P8C3fq@Cu1SdlS
zr&V+<zm$Y?Ze!Wk2g4SrqHK17xuy}L2r{v!=r=+K6xsW#ou4$%b#^3aB~KgOOpb!%
zk;TYci(7k(Ix`!58#5AvO623}Vz{QZC2$8gzwuXpI)9{)d7`)hjGJMm!bTnEKcd?o
zy-PxZiiw9j-|yi<`Tc$`9(=$vwV9H8_6dm7ib9XDzTl3I=>DC`j!c*N%oDt~vw5bZ
zbWWkVaQ?$@FZf~AYFn|>{^3YXI;Ou-sTL)oAnA$-zAM|qrW>hB_F2y7&B_i7xRrhC
z`a(o_Ue2`w_Zl^WE-#(94PinPoLUH56kpz|pr>=CkU7caPzd}2Z4lUt6!EX|x`**{
zAuNBY{35I?_9mV)fg_-=M>EQ1oYf8M{M6h1Te=oqUb=9LR}NBlDeGuC_Kr-m7>DrG
z`tDws9yN`gIvYFlyn3ApI)3G_?ekVxg{XfZ>=l&hW?nkH?=;36=Lbix%q?%KkWc&=
z4Sv6%2cKeq$L>I@c#hr+t)Sp?Bdq~{_W^Ai<@61!dCtIQ6LZJpGstFL<xk#ef}h`S
zDPRtlCe8NZI^PL2S+}@qdX~5*<9%F8z$*zOG<m+`$=fva**kj^4!j^nS}1+JZ|F=C
z{Pk9SWw-2yT*s5Ps{1_pi^h2ZBA6+7PWbJ(imRHayIva|Bc9N4X{>)|aVJ%-F9K;n
z^HSY~FrYTPT3^lVSJh^b>i@}p9K*em056&>RTpl=s!k~#u9Jf0G)y>yU$|HpbpPN+
zuP%}h7bhd*OO3=2$C8~l^r5SF1`p@|8Xxaah6axBPHq}#W;iuEDxrPL1tzrmA+Uo`
zX}vZc{>#k-x-rRH&!;@anJanL#GcKWv8sNPC-UIEF7puIPc`?(iaqRZU`@SDN-#nI
z6L)7N9qx7?Ry!{wWsUO(3v`P)cBIunM=B0S2hn0T&pDinTvQPG6T1*fgX->$e0XA4
z?D(dC^^CH1Pg~T~*P|-rUwQxHy4=9=*+Ze^F`Rv`w0`Q-1T9!4RK{rk>{Gv|iH~=^
zw@M1VR0hpw{8cder)l*fEqk_|s$?BApQ_aE#>|JRdc5<kY880fFBzvPRC**Pp_==A
zo_AtLaa<cE*zVfYBg^OT8R@==+2_;2zziDkbse3@dOl$9ugKyb$?7IH9tW_me8UDO
z<DG+(!y7FBZs6v=Yum}O&Q@02E$2QSYgQEE;8kh+q&E5P>6GN{%qs5*8?l3cTnY=1
zb<bKmWq;Yra(ueTFY<ai@Mvh+%fN(MY;lynrAoq1KL3@+Ql>5`Dvl{@S=P~U?a8Yt
z4Yt3z@r8dqAes2cEZ_Cc<DB0j(jE*3&xOZIJ}+BH2PzN1Y|HiFJTd9KSggx3h9y9G
zfY4*0lA|lBp<T^TzNumzm7@X|_bd>QO(&{KfkfKbt7^LjeQz%e{uuB$9Sx~fD)0xR
z?}4KxZ5`8mO?7Jo>Nby(9qt!6jx9|UUjLU<vhbFytC3S4L*>qJ?OMmkLIH$bcwmWP
z`LzuUoOZz@ijU@6QefRHDVlR0u-)NN+jusFi;#x=ksVRs?`3jMS`Il3R{x|8PxP(M
zX1;L!dM|aVGE+O9&sMpRz7fcequ!I7n19`K2r&r}^xZbFfu~CCerM(I4O39WAvzc9
zbl|_AiqBwJMYQ2(X<xz@(z!D2%eLq@wo8&|ln+0s+P5XIngHKC2g4=Q3zRWx>1;>E
zbj}jN!&@AM$@!dsvBMy^Vw2d9%7tr_S838GU@GwLVup{OwkFMsI<q6#x$CA@A+e9q
zW=lo0ki57kt5H1sIV~hbT=V3)OD~cppu04pZuxw|Bg=dV!kNi#WY)MhIsW?Ff5b!z
zc)IJ|JR@Y~7F`FK%>5+USq8y$ThXJ*PRfXU8EWnc$1*7n9!bQInh<-f2YaPT9XmC5
z0H1Tw;iE}o+eWP=i<Q!h<-TNxFg4b=vXsFk$2dL#FThEFZQaj}$Bu`i$Xt(6;}c>W
zdJ%XPG<mJ#XO4b=?b{}KgRlJMi-h1sJjP!e+IwI(WC~*Vh8-H))i(y5-XTB1VS}8~
z2j8Cz{TnHT5EBDJ7R0)wnB6v(nx5X6w9=Ggm6my4w)L~(DVi=}le$HdLNDKCqqJWk
z%Z1!U>8F?lx*I;;>!rDWOb~QAsFbOaT2EUJeMplsF$`zq$cCFIjroL~?k|)K!<tU-
zZ)Ty462^X;{&bcB?-n4J_l|Zu*w5Wdy5`LYt~=gItX?=0PP}0m9XMA_0DR&dpOqAC
z5rlg({2u}pc4F#5mU5-;i(LsEG7rFZ-UCQ*LZeL0Eutq5hPCdt5xY#g!I0gB&Mby?
zf6zzT0swcEre$zDv@LWdj9CzaN(=-q0N$VW{}uA5weVZQ+^7APISLC4hv9wi_a)$t
z91bV@ScS4Nr#nNx|Mp+^x#CNvWnwbn1-GN|X8!w>nv!=wFk~_ag(UTX`S7POJq7^K
zziqThD9i^m6?8OZ!50{`S-VWF&;6fXp#MrK{Wn12U{v|hmBcdxwNs+>W`2?@RQ|;}
z8qV$`2N}-OTMRS30ZP2=vz2~D&=&Y#gtYQD=)rZN_MHq(rJeIW6!ds|ZboLkq_qm@
z3@WL<4p=9iNqkV4*<~%qN!0e@Ox@`WwLTw6>vNy$kqBx170?3`yOD#6t|@wIJ3g|{
z81sM){tFyN{fKwqFRdVsNWd-J`^Pn{o>g?z3zW^-?i-pGqy(40V&Q#MPg>6j&_Gik
za1Yzmv(6J{MhQv`y**#u<5X8K$0UEeZHe*tI9BJiR@YKQ1R}jqx^G2A!Hy*mkjlUX
ztEL{9sjMtf2Q<2+fDEM420W`DsWIv}mm>NI)h{sI31?3;;yK^C3|i;=Z=(JS%c+V|
ze)Q;<Iidw0c{c`%NL!S>1fSL}XEJegPR*Q_XW^Z8?k4^X{VnAbnx#S}r+Nwse&!<g
z{(?skad?Oi2*|R@1w4UM{nzRiwEW+J9{=az-Tzl9Ue|4XfIU$lt^W(xECKBMq<D$>
z;o_1iAqabtpS>R6QuG(@uE;l2?0*XmUD)GbX5+q(Bg+<A3^V%+>VLfnp?}~wJ)kXV
zQRW7p;lVM%>pgL6VP-%I`=VWZzp^ym33q{uK1a)-f5MW#3xb(A_F4+5{(WPV^CD++
zn(Q~o9%P2r>V)w-=cd44z!5K*e5MH}^V$6}-0$w*2J(Y6-_rbaDtR>?c=s)uxU(Id
z?V2nXEJpc(K&~I}&XP=fZgj#M@8!y)VPFrJzH@8WsaKus4qQZA2RiIc&(bmMV?NpW
zunqw_U}ECsA9W{JwRc<%;A-L(yvgdhx%F<5Lw60z+KdPFRGVZVt<wcJfk~l2nui^X
zX;R&VX%U*<u_}AefjuN!$9i6ICoM?f+U^p(?5~;f;p9{>7I(3WGDc!R6880vm&5pa
zS>`;pyxd$!JbP^ec7UWD^R}r92!l_rkIa&I;<HqQcmQeo?9RE&MGz)a&-$m6U#0p~
zytMahG|V~|`d#_D7!dMo^CH^<xdoToih?SA&x!Mm2=T5~RVfIxY&E?uTm-Vp*yn$m
zU9EetQ{}BMj_4E^1ERT-Eh|z1YF7+Qd6!4Zep&?`fLt?1@-@NB%$lA=_nohJk#2QJ
z!DR2|s_eQu*mY!n1LQmVMC{}phEQVF^|MG|I4PWuD@!t;&_c#&=b{_@xR4Vp$%E)E
zfVqucXG`!?)eQ3bamX#^MWw^eT^XswTEBsIw&<&$*iVztUz9J<9{PqEF*MrfIT@Od
zK@>>u?fxt+Zmf8O=sg&c03<Z6*c?SXS_$LBeckKFn{(@`rr&jl6+M&3p0Fw}%B74e
zEpzRMvs{{n&?KB`?y{8z8AMtnIdPTy6w4T)6VPJCG()d|bv*QmqPO>`RO+|byoDVq
zvN5S1mzs9Nohh+2;3Czb<|#B5S=hjph5q2Z*~1E(NMxBco^#sUTHP$ndWcigIO}SP
zsP5Ny%yya4Ugd1s<8y2YHRz$i!-F+U?5j+FH~j8mb-#I2L<A)uRUO`e5aRdXJ=yzj
zid>IQ(US$93ta3$db{=<tUS0y?KK*9IaIk3jjAX+j3W&^{Qy-ePkx`{;Kp{}X$@^r
z(s!C{KauS47sL{x7gZyZd1ix#d)Tq>HqOjg@Sy#q=Sxjzmb%3<FJPtXVAxQjC@IN6
zBT>yLGy9hI^c0x<fUM)Dj<u50`(+l1@>{z#liBvYx(+O{0s{RXL=S$S2oXz30wWXd
z&$bbLn|lSeU(Pyh0(+c4gR3roMSloDKF)%lMZt^Xof46)dzhuj%MBJxJh;={{)8>%
zTlb|f_B`T<R-_+2_#}FPKUW*wf%IKzjs>#wmgiNTEd}-o-;&;Rps&THd3REMT`$<!
zov<&q@Sa$o;WHD2lqPX>*T)7#b7CLp2v5tyqh2_(mD;G!9e-4N!%kAJUn@h8G_dJW
z=j~6-5<F;d!iCUW11cA+SA5+-=?4`RxMB`7?p}OV-Nt7p{$7+tdO+@if$BKguR*!l
z#QXKGYKAno8A=yggqd(AEe2!y6ZgTL2oAmtX@U}VRj*zSD5ZrEcf+5Rr|Uq1Dz*)`
z1(7*La|KutI_eEo)))zkoh~#<Ih{b^xNmVv8z0Mj%hQK@w=KksF!n#nZhLfa=W%xB
zOF#F(NxmtQ(1yr4{ag`JqCB1j^z7ty2tC<1Cyn%SCocM0(drl4a9G-e71eb33%G15
zEHhXF7Gz}KY*Is7j1b*Y=@f|H4-AemS6`FHO-<bf>PyW;8>JJC+r~E{rkmz>M4cYj
z+AXOM2W>t;#He&jAUJy2R-YP88n2gKE9|1x5T(!wt>9ObdUO!$Rxbo}51D!nSYb!2
zY-Hrw-XXKyb`C5}Zdp?`3w9UQBZ(P|$smG?EAK5SpHP4`!D&3%u2nDJA#H=Mqyf>#
zuPBZvJ8#~LCE^()l&7~{1@^7IdP89FGm8_jGz)v%9CHgMZH%0RPi!!%t>{3MdPh{k
zs3lg9Gp$(|u+x@;wxmFqJaahCmT}X!T4n6exdY0;?@TCp32*Q?EMm{L+3kQIXp7&c
zIt@i0EnxNzYT+s1lP3h@HLJtT1_$_g8q$V?nH?*}EzOBTp+79HRv|B{ZY*Z5&*q1s
z);bcC#wxzgw@RUPAa>LHX!IKc@q_8Gq}pscT5HU83Dm>Ee0QF5%MO3W2q(;sBoB;G
zXX^E>+%&&I9aVbsTH`={AZ;4JKqT;shiL@o5wXZn6{uYH32vTPMW~upT)siIL*=lN
z!jZw|kS4lIf$rf$H>AOnz>O;Dd)tRWeZ}#{#mSx;vh2Zwk2=39OKPSc)zB6v6>&=<
z06J%%RGl4;ttItNo78*%keYIyAj>;*n!XCYbMg!ROr)9?y1~5E5@su}%kSdT)zCU+
zQ1jWZ#Es2Zk5D6Q7s+P-SabJCu)pDY!`Z;aTCA7820Q_+<vY@k1{i7XMgC-T7E~&k
z`5w*>w|vN|UA0Xg(#OGg=HA&Ce`b|y?IJsgI=s7>;uyaR*`n*&{F$ukJQKhEq3=)?
zx!n)%O<HGypBwI~!!_c+-@}IAJo@Phth<VtI1>{TfuD%|RchU#<1p&J`_4;Z$T0#s
z$iZzFm_R%IcG^u#)6C=w%S%3T<A)UeKV=>q@MS*0c*U5w_%c>~FxSDjj!5xm$yqnI
z1AgTfF;IAxI(YMyLk6{R@XLdPi4ALujj@2j_D8D$xbp8=fWjE;+2a?xGphH?wK3~4
z3-{p$Due>jWmyN8r}cAL@P?edHlOU;>MgAw=gJ4?53@x$@Na0(!Ff$u>8Ri*;XvG>
z_1$r8b%Mi7ls{FbU~Lp|^i>ZKLA5!y3%T&Fx>&^bpBK*0<8i?54%Do&YR&gbT8hr1
zxw^ctteA7z?Eo{!7QR@m60(Q9gQJ_w3b*PTS7vewWvV|{6$Lv%D(+{Qist)$>=>mN
z^E%K>^Hj7M&SC4ao9{CLcAB;Vu+vO%DD95pvn9u|$;0JwD7;G`UYFZBjjMM<I*a)s
zPHC@yBLIHu?7QIBEAX;U<1y5suZgZ{YrPQelDJf<oIb{I7##HR`GqeQsq{K%dhdDC
zS5*FSp0(ENa22Jcol^E$seG(Px2|b)ydf=`)c_FmB$I6?aXz&1bK%YskGTvMju=tQ
zwxQi{jhlN$F{NNm)57b0XKCPh%9|b=2c<C)ReG}#Ht?Wq(B1%BLO?fy9&rPlwyTz^
zt%DIXLYD(h#NYc#N6pRT^9*RpIB;M94ODseC-fj3y#m3TTL_M+QT%a<T#9G>LNEG7
z(-`4{#obPJ3ofc!b*ZUTn?Ar>as8?8j^=j_MU)8UfU7yKkq%zi{FDk`<0*Bn%WVqe
z{Zw1ZnuR#E*6{3e_u((Mip8Z%ao4D*(52+ELUq-tr%ZIA0gkN-?bOvP(0Amm3UG(M
zZ0riVLxy<J^VW2Zs3J$BL%x9LXb~>hA%d*>D>IZ&yXysDp_Keqi=`#41`~R|0dgb;
zEb!?3l7X_bnTY4Pf~4G(H$US2e&3nL={wJ7CajX4+`Ne&E)W|fdAaNF`_*QZP9<wA
z#kLehfq}ml_jtm6kY8PV?hSlPuVd;DlsVQR(;ICynJCbEoOLbKpiNC1%PcE-nR#`0
zj=!IKG+zj_^IYpTYqrA6;NuDgiN<&q@8$XK^5tqd&u-f_cD_tmo4EmCOO>@TA3CWz
zIjML5EH#&a%_F_^x`X$>eD9AS&Ub5BuU<cU2<UUy72nq~MH@lz=c@jCj5xW8EGF3(
zyPt5&X){Nt{(Otu-&QZY3=frC90@#Nd=*jrDxu=|AI+IZ{0Ter<o&kRkG$9PnGrv_
zo;!3$IWV?!6gjYna{iQb-|fiWmWMBy?_As6dg|CJ4_Dh>A>)8#@<{O@%*q}iEZQNR
zpVLedY5cq0tvm`l!|A5`6JwnukF$L=5N`7$!g{i0FJEA$FT(L4rDlrt7h};2u%wx9
zW3UqE)=GZ2^(yrb2~*>~fPJ;J5Zk!97j7HQAz~`okGwgVls@#$Qtl_}{pobsR?paE
z;R|slM@;OQPAyCY%>aL{>_22S6Jvsg@r*x5zw<iaA{!KQ&){>2s^9F&o>P6pln2&c
zUaRB^&I!)zf-Bq_^hxzB0(1Q+;kbXqC0}BK)-C3I7o)XG^Use7_7s!&wDa*P9TJp4
zyA}g)@N<>eiBWg0Hw%k!KMbk8YF>H-U?h~soKi=GPmVwOzKyU{!7o_u;9K@bhQw*|
zb0M!HBhNqg?i^;eW3q%)P|z~()q<0*kwSt!ztqewgohQVuz295#isUGLdOI)_E|5q
zsZQ_$pH#oM;eaFshKVlNPxW(|z24HtMjoP!83E63E_i@83Fm5s5AzSJN)Bg-y<}X>
z@u@%k{?gFhq*T0;?><Z7sQ^1Z8~G5dz>(pYV*<DOG#Y$m4q3-!M~Zz~EBiU{uBmMf
zgKgTe)5hXn2VK5^O>5>=A-r*XqYK&r=Pj$7Q(b!&8^04C%f2VC7I>OnA>HI><SN(C
zi+X{cc*)3VWOow%EJ^!4RbSayjZ;ff9Ml<VVJ*~0L)XNHRTE*g(SFmZsr*ucqqS>O
zdiDEy{Oj8`P((px)oKJBKf23A(1;gRMDMty-$c?w_)&8e)*Aq4jR1NZ{bDDknpLm7
z+Z|P0j0h;*17~|~9RKB9E3?XiJ+~`cN`y_KvD8rqU1O>LK%hI?Gj7Xk&}O3Al_$<w
zE@@vJ9GBKsU0FP#I{>`!islws=lY$_%m?oIKWruHaX9Rfr|*2I5!+4od0U`(a?NX@
z(Xc?ay4OcV@>x#3LIu`cPAYssW_R16Hhn=>C}HjR<-YGitg||uY26Q73$Y}WfPJTh
z5(j;S?ewFXWuG6;ul&YfX=j&#dB4JnhWg$K`Dym8_p=A}E%wJS3hyQY?xVb~Zaen-
zN1v4TQ4j9MA=9mXqlwfa7(J`?mqqVP<dF6$&Tn}tZ9iWVFyfd}MdFf<G*$o7<64M0
zya;BzYlGabhBvZx9$C8qTL(|4&6i)8FVIL`4Dp!%KK7;B>`wk7XSZk1$-G3dLnmv`
zY73$gj4qa9g-QaZeR{P>?)^S`%{HytrznkwJAbiyl?r_1DO)FmQDUMu4e}uj-@)(b
zSE`|E2;X;w3lr8Z$}XGcDdKmQ2juQz=i1#6vO|^swCpob&3ohwJUwabmbK5JNrj)%
z2B}@KQr8Xin>b!)a-X`Hl<*8@rb5kaaC>?%0235gKEaN?fWPldD!Y@FjnQ8Ca5g3l
z0IB-!^=@q44j8PNT@`SKvFB$?IEEovF(bpU7dgenlKXAk@Z_V)3way?r&?~C@@JdD
zl8?=?C#n_BFMy*HAwhatgnmN3-1oz7qSOf}JGgc?>TAEDp=WN0yigA7iWBaQ^PI~}
zD$VI)Y)A5pYyb+GV#`=L?=+OUN(^7vwBR?*^6va>)GG}8l~f>s)9&QqJ$V}#v?KUz
z*fZ#UR@6>okvG3)uMPVB9t#(GU$jw)z9-n>0xAK}q|Ky`UB^Uw2SJE-vv<7E;_*5r
zLUvVAV=izN0v8In%+LlLou8S9vj`VBw1d*z@|W3Oi6_3A{k&pf8H{0O8@uPwC-NtS
z@kGdO?uU{~y`zyuk&O4$oR1ju+3yU_a}`QNlc@=2+r#I)>DqTFOYKHihvfNq?nkK9
zQ@H$oHlCNqtn5_>mGevm7&twl7W5tP2m!c?z5qf6K!O5pwhnS5x)Xhu+YPKDYMLwF
zIOaX^3`&~!F2bGTQ|p4vW?@PB4xf=|zLECcga9f#?|zjgxAgL^A>G7`z7FQs`yZcZ
zHUy_X+pMei_ME(-6SLt;*$}-*K!!yDdzLG3GXQ<C#?d5Sro*0buQ$LPP2Q=~*{(dt
zk6oSFN;|a=6a6e-M$T=(pRIt@Vzceaex%q{m@M1mwv4|(QBN7IcNQ5Uj|bxVG&#&%
zt<CW3Kh}vigEa*42?5gIs)|01t%t`+yH5<mMn}G@3w!;8Z0go;%dkMJ8@2SagsCOa
zTKhg!PkazVf-zz=?eOL=8K&inRd(Nri7aD71-h(G920!k>`mAK1>djBD>D?&E{`1@
z`^HOUq9Ir6LP#Fq8IddVbrY{1e7`x1R4vNdEMkCXrc88%R?Czwl#F2N?SwI=+UIT_
zLB&mYAi6=t0gT%RZk~fJ0t~wXP0K_$nA2dX?5Mja!mpx(fK~_XGen>TK_xgjn&y3h
zDJ}!f!)}ZGJ~LRy`Pq|MRaOAoVpcB)0zC=7dI=o0OH)0bCUJ*Lb<+cbACwh>{<!dP
zykM8Znp#>~&BXoV%!1B^xOz3a;MGGm5A$AoMn~y?#y=kWJMQS!F6_D|FwYd0f6RS4
zCn!ME6v>?CB{NmtG;b2THc1EO17gBwtC|rmslvO_H@{B)+7kF}=Iu=YA1ls(&u3W~
zsXnFErzQq{6uq{6=`^t^;2BySzNBhV2=5A4sii{C6k_<HjdV>9fQn*i1}j=Zwdw_$
z6f8r)%^nt5V>SV2t`+S!FE8^V0Nl##-m4ML*#Y){1nUY0s#WP{Qo!^+PLR*uwaMLQ
zTx=VLB`*gy&%Ite#NSgszcaO@LKt99iTZXME<H8E(ot71uC}q+*cn=>YW#4pO4I&b
zQrpVBLP?6u@HPNsgLc0bnV~nrC*rp92km(q%2RAPB6rHP2)as6a^Cg)x1QHEl*zdj
z)IQu>45&WU%qn$#HMArP9RUijr1XdaqEpTkLZeaoY2v=mT1EF<5&M`8{5jp7+ni%o
z@EqmfM5GFMjYACFXo|iM$D5<A!A*(4QP#@!6X1|v^Xmd{yH*K}y!`X+iaNiDhX^XT
zXi)q2GOP%r20S2x-S&pXgclxdQtUs3jOl`jpq%%_F@j*O?hPiP#A1Z({0a9n7mPq0
ze=15BEyEd9Q&lu4r*YOpmC)B^x0hg9Hdew>{TLh?lhj6&-m#T_#$qJgV^eaLX}`&K
zm1$ADCA2W%l(B7+2d-;mE<3dc<EzZbt~NjTwwqNxeWP{hRO8GEKU5Smppl_x;fLlp
z*eb{vbM?~{JKq`UZ!7_lDs8z~ob|GVIIHK<)s$)1AARjCW*IQ%rD}~Vx54*tMA?`t
zI-9EF*+gIy^19R-5QeQYrM6J4A59;ZiB`y$(J0GmmkD>8aKQA-M*5=KmHo}otnB9*
zqV|>EJi368Ps`&SjhxMb1lG1sEX4S0PUJYibP!W-_0NhxY=W%wf9A~JaEyR89IVn;
zp+r+wvl2a31UT4*{s~CzWf`lqTQ3sQl;}Uz66VEKBIDltkgY1U{RaSO*?q;;U$oQK
z()xzUZ#>KTsCdgA%nxLJl1KZ6H>!&6@4TR^gM~}(EDqS)*#*wOKP#}=+bzSv2BzQF
zYoa^ZhUfEXf?oi-=r}d5r+<dY&?AgGmuDvL@9#56Xo3}r^0rMm!)<^ZXRNyQiLWNK
z@7qrCxuZ?@+grlJimF-pg^+mT=RX(WSickt`?A`g!25tk+_feZD4FT5Qt>E;dnO^X
z;pyzo@O3_T+{2n}K6sFP*)z1)OhQp{LZgsa({%uBHhYJX+haDjT_+9$p4UAN9zs&E
z;|+16qDlMk&PKjLqZkT1A4K6Q)aCN5LD#-&H|+Y<!?7E2Rz<r^dFnv0S$Aq&gRfYZ
z@(`EcPxY$nBq;7~sXA^Jlmfxal;<adaWH>3SbP7tWYOKMTfp~TfFSZ#6YThqhmqCH
za}lbY?^`h%gw}dta)Gu@1aK!SWY9)y9RQRvCdi_l1B>#jDwc~@A$V0fvqo!&;r4*S
zpPU{J${IiW?`;xL_}@<A5=d>XT3#M3u1`pg6O%I7i`^;f;}8LulZ~4tee}^(%BT#M
z=w!P5TBQ@g9@Pb1)$hrN2Xnod0W0w)^lj}Gjh%)j@fc(l^ilopS^o^2vkVGw<+&7s
zE&)oT)QjiiYbFU?nuH!pOc=4Mvl%`Jt`YZ6!*@S<tUKz%c_p%ZYQ0qziZ~byo!@{<
zGSc_3=u7Rj`*i+Z>>{gfWuouNTQRmd8ZtUaDl}Oi6h3DH53(0}V2b6hNXWWR=yj8C
zi3PPE*#Edj(8O&UcaeR9hUadqiBnk+zN}XTQI(Bpm3uFo@}1ZUXK)%l-_)!*<JwG<
zGknVr2CK1Jl&yFaXG-QbmU-oitJF0CxXZ@}CNb%_#yHN78mX~7tobf-VZ#mW424^>
z_tYd?%yM69cCSn1b_9f?a2R7@gNYvpH(5>w;#AhkO>>Qa!==_DQab3!&IB%2iHmwG
zH6>6_rG9`ZNDS|Z-|y%nHsO#m#Zh635<Tm8MFJ_9?_pcD3sN#qHL-R5U`!^jt<i4)
zwo;Ps1vWD_Ojs}`f%Cp)__aD2ofRUR5(6u$-jqw076r?%>B|W0;outj!5NcR?dpEY
z$QlEY1<e~~{~HA*D5T;<zhUs;J_AL>NL6%A|0Ila@RU6!KJc3wRHVGv2u>)Eu+$Fr
zc2+lQHQK11v}!w9mF1t<JR4GlGGtP!>euTEV0BZd;SPyCns9V}m?)&)E%jkKbucyq
zNI5r5K<J5qxQ&8Hz_q#7I-vr$2PdFrXGOsl@Cw~@5e3Kd8svnegc*;ha8ok0MxXIe
z2V2*aP!#Z0w8<K(2c(9noxb+v6?+bj!PzM^Z`HEDACpeOtG{gx7voR81t@}er|FoJ
zGV(mh^X*HYXV~p_lJf6AN7R#+2*AOs-D0&YH#~z`hKxIqMFx5}yF14t+w;`H^PyuS
z2M<1=)~awC;ICbtK59X`Kl9XWWAqR=j$XpS=k`T|@@jIrhE7Fa0<G=WT$suZa-^M`
zl(myoeeC320vn5rJ~i-)pr>Z?KL)^4WgBhkMHliMfr3doVD%MFJOEc;vSm%m;`*fP
zIoL;eFEbv<jZ>v~mMlo9V5T^G@$ZmQdvQ<}-pWRu$St_;eItxoniV|bKK4#-p?dle
z8Td%$KH+Zfr0}DQ<4vam)zucpFy9HfAXS`Lu!YRwaBH%h_P%kwD-fT~bjxMomIlU`
z-fy|?b;9-4OeN;-;}*&7AUoB=53vzqDU;WFH~MaW_kwFoG^%=ZX0NB1b$Qp%ga40!
zU$+J~p`D8@a5~hKsEU4-yspFYU6ZeUgRb4{P2>frkv=eB$tb~gX1K7>TUSoLOp7&w
zoh^xFn0&WAnC%^B$6_*Qz{Y1Is*JJVz|+MVN&9PSF=Y#{hb1fqM%GXl1|x={p_$0J
zFHC!kveRJM!sOnVExJKK<sb=XlTw%<d!*yA>BJpuxa-$d?111|`6iD}gA<;P@6Vtc
zfUG=9GhNQQm>P&g*A3+JYys=Ofm2fGc@{9OzLk{Ng<sDcNti-U69%n2IOLSzJu)T*
z8{gcD&r^0G>zR@}y9E3jZM6d;u=|k!J%v5JefeXLDK?yIo9A%&NDOTIw!4(M{kxb#
z2L@b`gNRFD$IxEcqRdqPWbl1(SCWM^;QObOeSX<g_xk%|oel8fhQ2`^9v69K&ANql
zhoIZ{K%h}20KGh#?R89Evf!*V=N>ziqG?o8k>F{{F?rn&P27(<vzZnIe^v2M*<HhU
z;cp~%vR3P4S3NMpJOJ{7V?pTkg8&;vARp3ny#kL+<WeJiQPXzYQ>ZqrD*F1I=lmeu
z<!KIkXJF*ZE~A`@c4uwbe+mopVe)7brLTowI4bumwM4R#&mH7|r(2_+yc5{BOzknD
zF+qnDV=3%YJ|~k9n(?yS09mF`gYYn=Oz+>(xMvdWg!A<&zd+q#{P_;1HsP}J-MbI0
zNmA-Qetx3(!YFiP#HGs7q@ZeewVF>+SM+trxW$@b)6B!P_$zuukPU14XKUIJ`utnp
zIqzN8eNc1XnC=<)?p3heCJyhm8PE1I<FfqsQ=IRIj*K3eqv?ceoSpWvM|+R0PMez=
z#<s$6q^BY?`86^;UyqF-8%;9(0dB(|5av-5iK?cv4-NgyU0%fHJ@nA{%|A2V*vi>k
z*Ib>%Br{Pso`0azp!JQDuXWQ<|AWCWy7=|mw{JZuNqnDOPBo=c{AkIXif9fb{}hof
z%h`0vcRI$^XXP<E$xU#X2;0I=({n}Q4Do5(>*Hl@x|Uv(qh)*cd-v{TWC=}|=y|vV
zS0+Uaiw8_=^@x{FTsj^YA|=jOS5_YtPkX@>IYLs1A0K)U(vsYEC1`z4!jK6g-}Uxt
zn^IxmT_2Gr@vqM|tR6q}W3y>=EX0S}*9;mr8R%>5*xA?x+YEo;78sV(yjEf+_)@zi
zL|5*Bb}gX&pY^$sI2PM8mt_XEbag5e)+CQ7zagX5-43d{!!u)qYv!{pJo5(_{7Li~
zRQ&dbQR<;V>JH~Wlna}$aG&O;p1fn))3(A~d21WSK)g?`0SytE{Dxw=$21w(bU6q1
zYdS0XLOQ`h{m_!j3T3?0q+xAQ={m22%6vQGvRM72Xu?5>UKEw9efPtHrmO|qGcj70
zl|oapeAV^!_Msf}!+sJd>Ub|as$<-6V+Z8xt(g{{+A%x#xGn7F+I~?Q;)rcKglXiZ
z`Uk&<oE4+S$&{#vaNKGu?iQ7q&jx<5>H{qJc%GT-sJ7>X^6<(*tB6?p=#;pf=Dtk%
z)XCx7_!ws9y*gG|-mkCBT=}kFzyA2=H`3y_Ln1-MYGzqyJ2xR#U8;hGpjZ^;I_<2(
zM*=H2>^1A_BSA%$&``+7<MPYZf{_4=71i;q0WC6Ra@5m-)7=w6a>wM?E}2hP@1#yq
zxdtD{YAGzo)(Yz%kElUbCS#1Y5fk~ZZ->wA)HP)vO_jJEOiq%p$sN|Qd7I;HetY>x
zsHcnB{rJZZdo{ob+mO2^c*eLbkNu>Bs5|8PddEBRAkc<yF?p0O5LO;DrukZUeu6e^
z!$sbk-t~s>S9>$5)3?dN=73(g&prq<P(1w7ZPWZvVx9NFolBfj4;Ecte*ZDwa))MM
zOQ9v=$yHwtK`-JKXE^ZwJ?F|@k@{pi=gvTi*6o51zh@F8PnXaZYJ`<D*GJibs>K3E
z$08wZYBS50t&F@%8>5qZmrD9E#cuU>F4L<(hh-|$<RqOlB{}iE!`9eoTwkc`Bb7(%
z8KspbTe=fANGKj!keMPOH1~tfu8+*awm*Gk{rb(#%&OhjCS83^oRdLHKTRzQa4?rl
z+v1}ZzMIlB=bF5_e#a%?@-C+sKat_Js#_2Hw+nlTl&_9GSGA_<eYY<$I?tP9@pIg3
zWbbohDY5hn<+szsn1di$n?k;h@{Us(wYKA(JvoPh+Km5f)&-Cdov+Mo56dO6WqC_1
zF)3${6l2Ye^`vWKq`a3@KK}L^t-fCgysaGdrd1Y0ADsEEnz7aATTCz)&)2tQ|L8lC
z2AfMt__WA&7@yuv6=0Z`NlDV7q-_H=*#-FZSH``8G>;lSTR>|)U$JPuW&YFjMHNRv
z!H3T>h2y-k?c4fzoq*sjzDD}`$=jUAoX+z48rN-WW-_CNBn%;2VyUmNA!TqYR@+QR
z>!mBvuzRUIF(fuN@t0&@+z4$xDyo5X<+L}_a&tPzLpNTGjMF&%R3wt_p|in_GHPgk
zfKaBj`zqbolMDVbLq-fra=Zp;_S<iYVQ)PzQ|L^G<kH9!hU4A&MlFb;7zBp(m{X8K
zm?c7)g*Jo43iX%+&;&3y3cA{EXzO%$L_<i6{6|P!;o?yy^m#!#;%J^U4uLrOM=X%u
zkaWF0$$d0GZ9Jc5*&wm6m)Tj6J`{hm<ng0(I?8^-R<Wx3$Mu9-16kL>(@fSA-fh8T
z<|iEC_9b>hd5<M#n(VC~tryn{K%KQ3=TyRKi49*B;(mnE1V#&;mn0+jmip~A>!45Y
z5F$zjR*k)&3E)?e_C0++g2WYR<AyVr@e(_@)XGIVDfIJ=k2y`>0m9us=8j~)z4J0M
zHhk3ZF4L<5mr0EhRkN_Fsp2O!Ii=;!qa{}CC3l){du()aWt}0sEy~_1(^puvh8s^#
znbT0SNFOUPqgbvxjK00PhqmFakC;Doi0LgI?b_dHs9G;=co^d0@*%@W?<TW-!>_sa
zlPz)Y5AWXJ=wA|JlV0<PZYw&H*_(uTxX(D8_vh@HGzH@?+4MZJ#Lu>bAqrme-n)l3
zPbA^GN0!z=^IB>0?LL`EJK!Gd*+qG=Bui1(PVT+beLAOVsd~5K&Lk^8z|p;k&?FkQ
zg3HO5mZH}p<7kXxbLBcL(fKECecK<b<%3`8*jD_$sUQ)3fLQmkR8V|9+@5X|ot-5{
zx^~L>^0D1<+$OgABt@clR5L62!dQh~YPjcqt$T)4dam6p;_3J+%*Wo$tDMs<b!4Ly
zAryD@iQnJiABCi}>}SMenJ6kMB2`PD>TgIbPd<_=f5^zZG$zv|uyK9QI;_F4`li}X
zsW#tCdz;dubeYo9Efbr(f=Z=`=-g7nD`U}srCu)1MATmsYrA#*I#!E(J5rg;ZS8Bb
z#Z>A5#Uq;AWFM$F&CmI%Zd2KbUJLt~hj8)t>(218d!LpzzU}Y~m|XJL_J_~aRFn^y
zwWc#%Cz!hI7HNlvhMq$#G7u?5slW^!mpVB5gfeqW8=D5(&k}^DAGeP?uK6)h5x&M`
zU`{;uti7|dez&PfXF@hu%iSYm9{@uY%8X2pVm_mqo&yp#ivdJ}zN$WRReJgP3!1kX
zVHAg%6rMgFYF8cwjFoMqNlb1FhmqOeAWyr#y=OmH6({Mq2=qfAyj-M3U5Rc#X;ocT
zH#2~pUnosbu{E0@<vLWAZ2iM+8ePUC38R3<n;E|R_5LoK0nGti(~s&+{JossF2BDz
zYbATAu;j|CWN0HR+6d!y<qZ)EoHc>g?}Xl<W)qkiIzcILb3-6iPzy#$>AgGs>DR)q
z#S1%4SbZ63{$0i2P+Hs;e9ZU`aI@ThgqvbO!s}||E%A++i14W7OY{Ea61tIM0sFz6
zu6~78>@^&X*6;KR^>gS=E_%S>IlR-oJFK~L=wK~l{e22mXi$3Rwo_rP{XxT|v>;gn
zvc;qch-(TWi*v;j#fMtgD5}U(iAZ6HwjZDZ+m9`*Z)s%PX{>aD`klVL8?PRbr7I$$
zqe2KmqIax!2ES&yP2nR@;`Z8K7@7fbm7PCm=DBC~bHULx;eGZsjn_SMVWbB&4@E={
zdUkimf4uuzH>dv3&xs;CsN>ZI7e%p!3+2mrIrZrDN|SgU`R%uhhr@gBFw$CP6tBLl
zt13gu$`2;{CZMt(^qOr$TJ6=f_8Hs4F=xKupU2#dVhompfsm@(HUWsl(RT{PJd(0v
z$#q{wX7HbOv>Tm?=1*^zpL$xpAcHwx>@s#Bh(kt^E4?-#oGnvjZcTJT8*38=3MAkE
z=PbZuk7>hNzr9V-5+!yuX`-I1*HCo#5T+#(x|ejO6<f>!d4ka;A3lG{jVU6f?nv*<
z28bOPfaGlzTBsGt%H0VjBosPq`KLZ@+@cb0mm^Zm6Eh#WZ9<(x2|1?-yfkZcGtzG$
zI5Pz;uw%-$ExC{Y81DBPth2qKa3XuqeK#XNnb&5`{<F5TVwPfB15Y8e@2Qvk!dt>b
z(!|!*m(K}D2{4K`VSqy`d)?2j#(a6HeilZ5&!n065|nMBXzi^DH?XCU9*jbtW-n7@
z)A<|q9O?IW;}x{I$Rkj5CIPT9L(ULp=etzh!qND)yjs70@uO4l$d5F7Mm7F$CyFfV
z-YjX8AcOc8ie|vIlRG`yX&>7<D9Dv<A00|i`)PjpkR1}UWpwTweI(y=(jU;iKD~Bn
zgfMVBb{qBUS><r4!Gy;KpVvivJ*9WZL+4TZdf<uNEVGTDxLs-`5Jg06xG@7vhZ)&Z
zZu>VchvYWXBT{`>T%Esn2!O87T7*azN8YL9RWpkVxVb{~K$hk6e6wBHV}7e?P{}--
zI172T!pl;MLu&t9{BdHQ*1(dy7b&i{{|3e1dXg@-^n2LDJxhH_`aWlm>QS|>G|ged
zu?JnV>-E&AvLc?~oc*8M**kX52fnRbbee6W%JQ_8^z9l)>f>Jan(2Ngk*8msRHQ$e
z@FqH{sazc;+6hRdq@!$YVcleqY92a~6L-jsI33x#rFO+gxl{^bZhq=Y$owZ=ya=V|
zy|wg0&?4X9>{t}?s5k6vF2OF=Jm@?z+Zh!LMA$6_B2&+AUg9Sa{~cPfGwZ@va;Jtq
zl~j$o>WH+zg92)P<&4;u_1Ml;_WI)rqn|-!yD+N3B9bk~ZPv@D&ryE(5Y=XZ(4)+d
zP={-e$(C{v<$$SQx3WHKHg2L--U);`m9?0GAP<*_m#uu;<HlN0WQkvssUOf7F-eXY
zX14BDid4VUa9r4q7ZSIQPFuk-Fl2jppvJ#RG+VL|3x8?!qh2=`8mKVrt!xHS?CCVD
zyvQc*Qn+}hVkmKX<b>X;Cmn5}K2_t`r_N*0-)mL^Si4Ka^;FxdS8wTU)Ew#ue_D66
z!MP9V9>o-oc}qlC_4?kmvtAn8nO|Om$^q^HEvZVnRoncfS*WE$)s<-SO*373QG!DV
zq1n*#hAYwbqiweBjak!s_nH&cn^`AomX*JCl0tc1{ij%;a^5^HW3o-sDxoyIGG#%X
z-T;`ypKM)2URw2Di^MwgTmhLPT(`0ugHH8klhF6OkGed~sGymw)UZk?)g`;x<$qd_
zBoePe3OfZd5T_xhukIDg{nY<H$5SS5pBZlTa~oXVXB;HQb9iSK$7MyunJw<qh8nD{
z;cDeQCt0kyjDRtJtE_&Go#d9AI!zPI-?Adx_SM%IIB#{uFyZAMkr+-SuK`PPrw3pX
zdR6e+gLV?X4p1Bj;m~*$PEz$dv@VOHPvqt!a^;g0{_EIPmud1rmayD}Pj=F-G$oNJ
zm4;MLAh^OY=*m&O&uZzRV1o}ljiLkeJN7`i1O@Tc*jah0`McxzVMyiSVfdww6yN8*
zm7a~u7h9PK$2qRtap2BvnqKa79hC^rBDy`(B<Pk>y7Ub6*+K5M5F4&OaolF3P%IGL
z^TOz{2rMm0XWvd=<AoP+sRI|)HVo7*(NWpq1(;-N{S1z<YEUZCx>JNl(A)eOCQ=vY
zh`o2pDLxb4vknq=_VT^2w#!>SJeyj3C1J^XZ1ehoqJF5+m4R$6%uiqd#X5euALrrL
zJ=NR)wD7ZJ>PXuG7)XCc=v6fHYSmIM5GWg)T5Cu@?f@AolL%%$zH}tfXKvoO6}~~0
zA*J%l?Cot*kw-hYn^iPt-3YvFDzrpy4;489IQOi|5yHe?1HD0SEw(aQ{23&!vbufy
z-Lt*u{(tOpatnY6$kPEJ|LA-`wq;7OK7_S;@9{HaH^P)!=bU=b<xP)j^SMO{#}jM6
zaN5~BC4+bOFVoUKUAS@V*F<exaj}AT^Ou%n9AauI?_SyEOz1?Um#CA~5j(U1NL}+m
z`s9q~$a>JEO`I8viHyY7ge;|KyV@m_d4|o35sL%>9L=R+dZmvnjRGdqFt=g_!>=}<
z8j5u7K~8EU8~k!ST{26<x2hJ;0GE{U%)WE>*7e6%)C(?~UpVzqnHy^2qc4gAi9sx>
zymu+kE}@}bH79dXmgC8>#<dqaUM_!mL00Un?ss=|r6xcfq@>t{vVC+<zc+1HTNrYC
zH|%pG1eSCJ#xE<3$dM4!)qnalKho2Cdd;_)3R1?|Cw=Rtu@j$axcRNlz=OH7NIdE=
zxh%E6o@`n#d(XwZs^7RkhC`VVP`p3;wfODNr!MYdY9^O)=VVDKplT3|*u-3-gHceS
zS?$su*IQ}Oo0&KDaSrPR7Xj1b!pwxz#7a~0!v2MrmKjhWBxhL6-#Mc~_Y@VBRY|%Y
zM^vzgTk5y|KY_2*XCPeDZb!GulvN%a#iR-fF!!jR?wtTbl2O=hN4~A7ccnGlY(Kj<
zDoSfT)@&&F&X!T*QoxOWg0H-fX_hzGv>KNZoq3{tp}p?;%ZoBHfz|`r?c2H#VLwby
zuSo{5Fb%J}%iJT+S32ybgGUFXW{j>;D_xC1iBx&7WjF>z?-!oO4Dao7iU-n(@BoRU
z!SoH=xS}9lQ;`L-XF-G7QCmde#L)l6(^W@Bxqa>Fp}SjJsi9jM1QAdaRBA}22T(d@
zXrvV+6a<wJl#WqqXjDqN89?b6rTZK2y}$3QS!@0n);{MwXUDUjz0XS-tI37I;^xP=
zPCs`0481t9fT!x6-I49hu61Ss(Vp&9>IOX?st8w4*7-kGUiU(FxFv1J1Vp$q8{-I^
z%f0SR@YBj?YM?B4#TH`r`RGTww7)5a4+AVNZjODD`Q08-z);v1e)gND0k|2Q7a9<4
zk11_cAxWLra^US%cpCPonWzOl7qx-bbHgk_q&0#s#)*mO<{cy}DvDW({ac;G7!g2E
zeiX~9WSHKfkH4h0KeFT#ip3mXotQ7!|NgQ6+tn)P4{q?XHWOP(W?HJ#Ae$j>kA*mz
z{7(-or0gFk>Wm#;a|s?O>lhts^6NY|mE%O$*57~g&i6X}V>e>v(2kvGhUdfyBsZp?
zvYb40)37MNLOgobC!GLK8@!)7r8v4u(f>>sr428;sZABo)h6a@JH^p+Ni{)=+rb=e
z+&ZH`LH!T47J`KvX`QGdP{a$(fA#H;!HVH=d}T1_L$048e|2-{^XGSz%bFEoZRb|>
z;5wv#7h757Y~N%e$96`4Uz0R;nH<{^BWEF8_F*A&)W>JOG)(<t+hrlf6P&zsk@O76
z&DQIQcx|I3zti<HwAtM<C|-;t=G|-%s<1QCtHrnzJzg=xRT`TUy^vlwz(afp*(bHV
z6?3>Cb#7d@tkfUOE{4Vg$N}CQc2n2>Qb@@zm(Y=Z^Z%2}B&*x@WXaH~)+DHri+|EA
zaLz6d;+qaD;L+ATh$sH_$l|vERRw<np8M%uATig8AhzmDAi5I3W7J$K*vafpqJnSb
zmyY6_IGJa1$PHnOod>395|lIwKDg-jMn{_};R8D+W>)w*nM-x61Gs3kPcj5&O<_r~
z*1%IWGP=2S@yzv)AW_QS5tH4|fTvvW`0V_Ru~qKP7reMS1D25)-vlB;-=BFe8(7WF
zmTwEIsPwG&!IUWsQ7chvq?V9n-r_mR)C`;irsNk**(SC&o~UAfwG1<o1!{D~h+u{U
zmmMI}(NdEx;qHM!;s)9dm)R$hg!k;7Av{V`jt5iHAA%@%s9sag9j926M~R^6V#T7?
zl$Gs9|6LfbH}Xj#z|#}SNZ=8tuYZeCyo7Xt=fR;?p7Xz24{T0dF}%E|=G#>G2lCq+
zr1w@ZZz!GkQ<j%A?^e7+-$vTeT!k9&d|~l8uW5hzPtHt~d#dw@jKBpyqsWZ@{_|X%
zz>E{@Jth^$otji!enno6V<cccp@GPkBD_^<RxRX*(W5OqGn_*Mq%H@!@IBPu-0yqh
zh-GZ!vdclXPD;zCcV_<+y;UR)^)JP&;mXn7m?AWtWyN7j>uXBfeM{tF8?s{y=lHuh
z5IrWs>y3`|1C!5^6lrvk@UXK`?s@xs1V)FmlFb018?7Q<d^_z_53&DlXKc-F;)1)H
zfE4gD=rWKSWQuu!b#jTv0C87wkAUDt_($@C_}C}53v9?N_63GjMT+q}cTv>+Srs3$
z2~!?9AlW?7z|z<AB4{(@QRII@IXaZ=(agAR$3NGjM7m8#EUAOZ&5PutUBA`Uy<-yQ
z9s1pN8(F}<@L({6#D7xbYRtvc-OWc{p0QToRBALG;U@BgU3fy|-*fUd+4u;Y!*1aO
za8O*ZCC}0oydcv2uND8~p+CTkhkL2@DojFyzQSOFh8!fp@Wvf=hgaX%_irK(r|=yA
zJ8YV@O`;TLFO4{V`Z`bIIp^w5KH}xwe~{S>G_OC?h~;2**mr_YHhP`629s;fhbI{4
zp(IT}4P%hW*8hYIwJN!y#{sOZOJtTb@|C31_E=rl{Z|!nu|0F5KU>Hf$<LUaC?W^%
z6RNFp=2TC@&y@&IdnQOz1=L9$nnCog$_{@s_`hRl4b;erGsb*XKg54#!(YeyB8AFG
zEtpW01OV~-I*Qt*N|1LbVT~IQ=FK-WFZ)P(64?)M4cBi%OMJd<O`4ivc{S$SFPgbo
z+naxrYT{6YJS8f$Qbq2UhpC<mQhvrDZ%irbR=DqCc7>|86@48EBJPWz8*%cFXYRN+
zv)B#94b}*er4*<jgP{TZI(*qD<u({95n&Eeec8HS67`?zRlOm~-T8#YZ`0#y)dL8@
zFq9ff76nhqK=lgY3UJ5RD$3u2ZfXiVB22VvQXc0F{#}WzO*nR_LqwQd<_Pi*Tc#wk
zTiua?%=~ljT$(^i!@H%i|AY@c{VV)l>j8WO>eotiI$T8Gklh4s^dd*KE-0g(1~L-i
zi2l@G4o;1z(^|<sxbLw3g0f&EvWZmOjp7_os;oL`rVe6%>HoF*M#eDFNyNaXb0{}U
zN$O%`y@F*?<l;nLT6;<dOXvS1adH-U_@K;5;@#vh#V`vJ%kC?sJw{yH2wl(Y%x#hX
zHgt_l$rOD!j~hozfWto3@3bK;hQfCnf8@r~(WYX*j^gO#+pZ2ulbd(hQe<8yr8frq
zuxb0`;l<3WGw3qERBF8x`|q^l{+<jAGd=|7Pvg%t?yx0-i$wMtD>*pw^4>94Ap3~o
zv!rP12fW(q%2k#E`0!59V=gg0r|NOvw{w_0-(US#4)3j1L*U#!oFncHnj6Mf#)O64
z55{K*@bcawKgF@hZ#J2ro|R6zc4HK;*)B@r4spTMWbzR$BxiJ)%~T2DP5+6ZB#N;{
z7oo4?6mj}!;2h{B_#P)#oJh^k+G8#uOF-cxH<M~V4wT!hN)SWl_bX2nwd=H6c}dc7
zdFBg$?#GB){YBK;L=zmD1U2Hb3!wXKI@<5)s}Wo7cz66b>QFL8YRvJ#`_8P)Fg2Fp
z?53?ftM*HPfJvp4Fq9aX{|@h-^#mZ1z*u|k5x{*E!43tZD{%@4Ejq#du2JhtviIhi
z4j)P<r_X=oeSP(>Yw5XC@Ci7_fTzQ6-~dQY0)Iv9@~fprPL41)>0RP-Ql#C<37PDN
z2N5Nb8hvxN=#}NnC-`0Db?VVklZqK=(5YxdTsmjH@4pt43N8`@&NbuiAW>~T%s_eg
zKp6eRP{;2G^oX2g%hjtmXROhd1zH|3+a<y~bal3Z(|;<lAxP_6ab7|@$$DtgQ=i)4
zTXJc7`FKWx0gpSWq4-Wk!GED@^U+tBKP7?pY3uA$+y?G3{xOoFLUN+aZHaAzooptK
zTyO^vN;*T?QC-^)y?}ANMD-fs!_eK+0Yt6wR-e5CJDW|s0rOu8SEFJfeL^l+fL3JQ
z{A{wN<sfSU%GXIb)YtoD`R_S6gx!$C1zi^(d<aeen(=Qc)0-DAu;3jnDLV_kN_a_R
z0E`8KRRBk%C;?O;;dd1*X(Os(^pFi-zg6=W<(M2Z;>bNB8?;U)vDr=k)(sDR)(i=r
z;XMz{yRLkKc+5>{kpE{F&ho@3D<`WPuku4NBN<Urgdn^Hjt&n(YCIo*_8pQ-!qr0F
z+X~GLgHQkk7sLAi)IeLjJzf|uj{k!{?#4WmD<g73RM!?}u_rt6Nb759Z&=g3SSSUD
z`zm1yoV{x%%A{m-s8(yHwmoVkx3z!uh1WgB4ejSvaekBUwA2eYdWzw&RE!x|lKS*~
zpVLxsjLs6~)mXSKfzp_MgLm1!4m{&o!1|#@P&wl*B$m%MhKMf5YN+EO@-zFcR)zCp
z6QbD;mV4wXPEv-FKzA@#F=<gLr{aC`WJKQh?@$!xXUB80xV`!oS&QS(BkO_Y!kZyy
z(qCOer6=ZabCkouJly^wM@K@5AAfaY0XqVJxkm3;tO_jci|r$g-_GI_8;>FstB7+@
zDNwyNCl<euOqd5Grt*2n^1mAW#684|a=mq5ddO;kH^;CFILC<%tarw`&34^Kl8N)Y
zqCNv3T`MDf=t@alcj=6r4<b#TcR{M*rjW1FJ8Fq0H!RI`SdA1zz@2g-m2QYhTwY{=
z9@re+1R_%dsgWF*HB#BOX#ERNs=^9<_dweG0mS1QUj#J@0XDL;Trtk-VkmZksCax`
z?INX*3)=*9yW^k0)~9S$$`f2~{+Y$K67h=?Pl-1-@lW`^DLaXM<Nn)O4}A<HP~Mma
zN;7G#YYN*?E<A28B5Kn=TZej1Nf3vLLz<}#Jr^X^x}bJpAeEdB*?PbmsOF~C+biPH
z<ODfC5qDG8Zlb!cRwADA5tQYff?<trJnRa!9@%T)WxH6be?TQeV^qa1BZ>Up^1J{1
zKxl>=`cQ`$HLszV%N(?Bo-t(Do>udh9g~UUrl}{Ua2I;cC%bVwL27ZX@kCO_{v_<*
z%14-C%A_(wf|rk>F`kzo5uR`@Rus;p`B?Giy{8jHf64#9ZsY|~(V$NYXhLCz9-Wnb
zpmcRxk@8~+yf>1B67FB_vV7DYzEx#rO^hg1500nNLNmhK;98A}abit_!Ehb;dPld0
ziOdW@-YOnJ#GFpE|7x&zG2yvN8QnNiEO89#x8wwxjreg#0yh2qIhJcg*7-E(dH3JN
ziuu6}PepzjgM(Nn8qflp_t@v&hqFSL%@D?#8W1Pz&G7br<OO|&ctDsyztma9KX1WD
z_OH0~Bzv_)Fu}PGVIENH&h&z_7FZH1q!%OyYCxT*io*;=#@Ip46lbIpkh=?kGP8Zw
zx8kQAn|O)M%}#{6n6a_85cttUy6(<%#6)w-&)>vpFl)+~l^Nl6V5LuZ@0^bpYZHXE
z`4J|JspAjNAGXXWlWG!=)8hZ)IUKX=Mf!N3e*QXlLL0I_8<s=~{Lp&v7zs{Etx&6-
zJM#o4j|OdvwEB}^3!odEk?}>Z@9rEAhf8v1lBf()Z7`;qt@i*tT_51f-4!mLA!WuR
zZxPvJ#y=%!s7K^*-syuf{a36|BBo6sVp>kJ5AvF=fy|rxH^Z}A{_ctQszTP6hBO--
zRCm79aX6PuC82>l0E(h0TMO1of?0z?<G#P0?P``x&L`rH6|gD#axwhVBXBa9vF~F&
zwYX_LvkBYB!+Vxy9uk&cdxJ0m*q@Cn(-qdV`kF+fT$gSwqpj_rMm`R>Nkk*+$qU4y
zRd=|)@G#N{Xaw}+)t-Y{fIbir4()j(9nlch)-PDxGC<70(6;7rj1T$}&(=3j9sDkJ
zHyA98a~zOcmTx_9J}?U0jo5gDAwQD)6>7<I=!le|xiw)<H3JWZsF0lj6-wq-MzZ&x
z-JqMI!*4~D7LadqzIi!P*F<w<MDS;;Xrde^x@N`LsCPIKkH{TN!Z5}SDLSZTyGV*O
zLa)}+OhO7f60dr`{m1LvF!y0V@cIXHQo=P|!$U4R_OGnRmA;xzQGWH=%#5Ir5gk@P
zLv==RG_TvAN@~ffasdp2`_ZdLlS2;SM!+$FO5$$Zu>du;0GeY&de4)YxOP2x;O3VF
z%%}kNG6^EU)Q=3Aad#^R9cnBf3Dp=kgr1Ng2jrl^gTW12-r;y?WJRv~PwgVLf2St0
zyIfw<)46Sl{xOzmM?{9}=vJed0KuAmH#h$`U}rG0I}z&M3Qe}bbp{xDI(YaHwS-@Q
z=$T{5w_k#noCBg$DU-faB`GtFxBgbgrhM5>NgRzJZvNyvk+Y}%2oELo<D|}a8-Jg;
zv{9JF*O~<H(pnIrdGIs5srwV=yFF+1lfOR8`JH|EmM&ZWT;ffNNUHY>fF0L9%Z&+S
z1Ez3EE^+h-YA(p@@u*^d-F>O@rGIq|Ch>LYXX2qeC%U>WY0q6ui5Zs#<xgNscfs*|
z&QG?78#^OS6PbmA#C8o19wv_v_;|viJi<P&bn>PgLc!MB22Y2`z;)%ARIq3Y5HEuo
ze%wMo{fi!McrX5rEevl+<TSPM>HD#m-C$<gI^Ti49Y|ijBKs%!=C}y&r!=AmY(q{D
z4N>f$D=(<PuMuMpuXoC;3t-t=7xzLg-xVb$=1o;jw=?EbYh*LUMMi!j9a#oYpkl+3
zWM{iL{hyiQ8@b(*yP=xw<jqd}Di?XFihZ-UI9tX(^!2h2b~GP`Z~5Y5nJlZXUQ-mT
zdh<6Pvbw1m{yFkLxqP6{^(Mjo)f--SBz`4Es|54RIDA=?m-l(itNO+4%<EJ-A^E-u
zB1_1s;_uIHz=N)!t~lJ)`stVlxeq)3mO`vE(JCID2`zY;_Vx7Z`=9x;m!}&I3rMw0
zbto=6GM+4C*PY9Mt&QyoB|d8XqYC#vF=*W4&Xj{-K(Le?H_nw)(}@DMtA!}4T=7lZ
zW6_=iFlnuFryPEr>y9+VA7rw@;$my=&I#dcW-@a~8}y*EK?8-`j{@Y8Ziu%u57t}`
zPHy5~RwX^C{~J|CcCVEE-Znupp=eK?>Iy-J(BwA-We4t3;}6LxfV?s@tIgD?Ao`Uf
zlJUqbS6n%&74KlL!CUo4#*Dc@@i)?0_eC|^c+*_Kd(&$Qq>VwXucN;6mUhh6Ei8Bd
zk7>2JF|5qnA(jt4W6v0Q!@}RbJ5>A>8!Kb$t!Q`(|2YrK$^iI*$h~B@m+qi_a6cms
z`H39xLIKLNh3Y}o-v#o2k(vnQ@~2~oEUk7$zd*H2=Y*5LH*#C5EhDX4!pwv8VB9fi
zTAT}hf$6oq5J3QW6~#5kXB&2nz)Hl+!>ylnegX{SBK%m(tb4!WO8AqK{cJ6t|J?tD
zN6~Kwt*YTKB@C%OMv2Tp`4yxZJQ!%$q`6t|9@F*+7s_sD4)&7`K56qrpDShh@wi7f
zs46mn>NM8Pgimh}$)%rza+P%E;}`RY2KG%Z(gdjVGgZ$vHn0PxFTCVc9#SlmuJ{2&
zZH)cXUq20>Q?jhsW5qv5j?~kS*9%V$WqOqZ%)u?>b>`#KmqPe%TynNTw-A=UtYyhS
zPt<)Wn^=`48vVHtfs=<Bdo6CslcMg@;Lpj>!m|@ix7Z+#26hkq;&%Enpuw#01*7)x
zf$H@=5^V|KDHMB3jrx8Xv?I|A^8nZ(omzjo#9C4=v(&4R?bXm6Gi=HsELz>bb(oe>
z)fLYO3%@+gZC>vi#3Hn)H{WZJYCna`K@u=<yiZySeI>=0Q+p0#z++amvr+N)ST^-8
zAtzupKy%#p!o)>TRTwCgdef!IRh2>%_6Kv*YySx|kQ$H-jH$(QaD&>te&L##-Hai=
z;8$oyEP$}9{xN4vj91Jd`^`|^94-m}`~D2M&do$z6A}}2`}lp_=dTFtRI@6EERO<u
zbU^HSYbEzs>N#^s(HS#<szG+G@bf8Qk7jpuw0O)Q?=el}g{sWGm)wX590za@eo5ew
z{zU34X?Uu?F)nD;8BNKq3;GUBkQ~nq{`0kEZGth5<MCfOEPQ0&>J;Jp(Xd_Dyjs2h
z@@Gz0O_@4?UCynzQvj^;moO}>BJzd&6`|)R(5_4`+(~N${LR#l4PrS+ORI{t(Gkaq
z)tn(m?Z}-+6<)H);F!Jk?*p6$n_FjPEWe_sQ95l)*H8igvdM<)`8E2ZVOQ*h2Fbsb
zhZD*l+K9JaC$ogjL1~Uvf3|FZx_`Wh&<F3*{8TfS51Y~o;#O0GuuH%^VAr9S19)ib
zyz0`@Pc=Q-)H3`ZmZ0sDiWW3$k;XS-_s!;QQu<`54`WAJcz7Q^9Uy@CrRMVN-vrv5
zKvaKbOWG}SR1SCRXi8RMX=fF*xD{%Z4C#jof*<ks_K_{ujL;p(Bu?ttSc>88Unzw8
zRG2}}rf&TtJ75T|w`e_89uW_>m@nwevWc392PJ-IyD1hub=t}SJ$R5QSAD#@`JmmU
zXJFPZY$BpUDVVD*tyN@57z`C!bUAPuJ{lNI#^`K6{qpBtQz4fU@i*R~z;8r~BQ+_-
z4JM&3R_3$#0;hv>#?3Hs)B}zJXSVA9*9*Y*iF_OMI+6U^_#;%U>ta~u1>F%}1!YF7
zB3CAa1A4}%kSvutrE~EPvBXCZL@N$KT};a`J%acF)TT{DZ>8WwH^%b|UUTn0^Ng&7
zR;Oys=KP1SirF#3_Bm%PNzkA@;%?K2XiwguulF+#1POu!8U`+Mxt`5m?;`_Zz!{j&
z6hnUM3wE($;U)J1XX*b2P1-eocTxiA?&3FbOUN0AxlO%fsaFo`rO_$uemCe5G+A$v
zEU5caJ2Y)&K`K}eUlo^8yR=X3$W+(@sAksMVj*-dTu{P*^6jTKF+m;?uj=JOpPiA#
zs)TP$1c(v@H^01N)QE5bHJ)lMEZ`=QdW+3Pff`-6aHVh$N+MD1zOIYpBLor2=(ie9
z<(zlqyZ3-WlK#wEx=;qurv)5CW{_KR|0c;l0j{oS`R&ihJ@EDTjrW<D(y&uGf;i!}
zvQ=sG4t&~TLK*vN^`2$OTo6X&Ho89NRvFA1#W%wl7z#ae#SCa}8DlnHDNNw2+80A9
z7sh1V$U%+P^cp|w$ci+Q^O5~9-Eh@1jQ*o{#KzSpte;<Djy)K-s1kr`>@2y1Gg9DQ
zW?U$+r1Z)kIuj71MD3ra|7Gt}c}<{3ujz;%_w$~H^-$HdxI4}95z|TRdBbZhD}Q+c
zq&JxPj2ABxyBBk&E9J(wg!xXFd&KmK3^&bZm7p+{%i0JdOKyd_4-hHz)v=x#;fZlv
zPzz_d1hMHVi^z(n5n1s(-@8Ok2lBK<?@9Z4FeiMi)&vVW(?Mq7_HsCDQ2!ies+MLD
z++Vp3hn%)V@4P?;eG9d`Da5!<wcs*U`=qO1c5pacmPRQWb{XPi39y7~x1N$79pkbP
zJ}ib0hR<Z3{36y34;4No0_OtODmH>EiXu3Hbz$@`)NoC4l_1U1E9E8b<3yHF)Y}gb
z=CjnCYx30Eq~4D|XpThs15yve3hm&zvmV~`A^ytF3ti*?_%nTH;=wT<(Ge7hB#JbF
zx2%5~Q_@+V-lZHS^b9UBdLG2B8U}}kw59<ak>6+KF1!|Z3n}biN4%MO#4=^{K$ce>
z(R4;+Xo3?dpdRGcGl8bo;jCeR9bLjD9Gm3??yn`)nAnqp_>;rbk1dfh+n3s+EI*KU
zfji;H)S06+#9P0dhOC($h?c@*CvPH;(6`@!4*N{IO{J;_nnVtOhh{nGLH(c|QG#c5
zk1H|D7jr)Ar}}48X`K`6ApY<Lj{>zXbGt9RCbQq6_Wh<UBo3&C%5YGBX>_3nI5Dj3
z)j@l<lHx16GupXvO4G2grtbVFcvMA(`p>5o;MQ%JC%eBZj~OsnKGTM*e&jTpnT!15
z5~B~i)X2PO3~F94AKWFY(6a3!$-FQa-bmsi<wE+kcF2tc?HNH@k}aqKSLEF&w}U=|
z4E-t|cyzQ}XJWpbCDHb+GDpmmGxH=TPvJj1H{fa>Rcp|uQZdX?reSG~A`)oDtH%>s
z&u0Yvhdqmf5?2C+@9%^+g_0Ux=KZhmG4z!fnQsAKg7pMc>J=B3F0i-_K%U^*sO-na
z)D>f>wZ|g1J^T~f$1T1~c47}!dytm9XYm&O%)`?@o>zzSNU7EXSl|+<)f19z439=<
ztoQ%g0qwpFa`RI!&TQiCNL|Ald$-<gpewwr^svFgoUX$zWDxRN{!%7XMAl)0igUqe
zt5%ZSZT#loE^9?M*crRCLz9_{R0F$#EyfJh>oVBogjt`n@Yj!okTxROD@{^pAZ6Sf
zMidk=-*}oR1kHZ9nN`Q$&?6tmhmMIyplJ6vn23~A{OK_*q6kogKI9V)?oRiLO~-xO
zc{{H3ueC7UB(iRj;+Y%ZjK%feov0tB5`Y0bsALJFRuhsX<}G#$?ms|QH^7CieWJM_
z{Pflz)U7U2oM5J0X{!C5yhltE^B`8_Igf}Rt^Wq@QrS?X^p(vMnGO%giv>{kT+rsJ
z-dPMX31}3VV2be;o`5<@Ph{|HJ-`N(zFLP<j-AQD{M&CM1<%gpQ+!#EGO&2@e4bMI
zPRHGBN8~)@6_p^@W>WHX4Rvhji4R|bSNCAi_UEIFx1lJ7XF)c6bdJXO@p5L4gAM4j
zTdYq+BEG^)?mmmX0sgl<Gf6DZyib5CQyn^?aG^}SkFNYWr8x#{@)8V?>oA7Re_1l;
zJ4DvX6F%+g)jFfVeME$3cuBm$lmzZH%jrP=5ROj{-`d@(c&VkagR~esN<%TUxnAKT
z!TwPoh#@4@FWN#@PHihbAnU%^`fVx;jnVfqA!#z3HF&CpP;{9u@|J^WvY^Mt)j|q`
zV-$1P={hjA<_~V36Go&;CLd-!&)GyS1-h(%<JfV~O}O=pCU}C}uF0y-M`da9AljrU
zc?o0tV(uBV5O9t=n66KV9>?vu@Z9Ok#g*S80SP%#1UZ_}Z<b$mRk44l{a&o?I^iK=
z8JF<l3Ip{4m0_j=O>a7~JhDd)NlWzE<?xliSql;HK!_CD0BN1ET$Ng`K#=eA70;e-
zca;nFt*U2Q(e4^(W*${(e|*FtXu@-$S#2Ha&&P@ngZ0uO1|m4QAuJmkl)+^0!)M86
zfLC4fd`SqZemBdTNO{Y{DM5{uz8)hl%%Nwj%W6>eZlF0p2&x<eG}qcnM=ZU;y?a{A
zCy@+P4*#LKz;I(@ODcRgFk)VvCUb6ID!QR|@x@v+dF0`|yfDX#>EWFeGKRZV#xxUY
z8XqxV+VZ7@Ma&0vv>$$L+oQz6@a8m%;=)Uae#bxCKe&$y*;(IcI#iZUTGT%D)Ft*Z
z5r+ctIhPVgePyd!$e3l<=X*jGkDx%}rHTqtH&14TnqS*yQ$17&KGIyn%%fT!i+$?N
z52Ks%O!!*lB}G0Q7pPIVNk>v1xi=rN#w@d~IK;W=?v7X4BBHilYfyT_m3<UJuX3f2
z@&(zl9l|CmT)-qi&$~7Hq(Jha9kHXdEJMK1lR(EcebTyMc4i~Lrmhq;I#IXzN`OOx
z`^T`R1M{f^sSqsU-F~j=3q{(=cFl_hTmx<=-1|Ba4k!xP&e`I|ai?q!n~~uK;u8(0
z>3Q4#Ft0?K?dl}JQ-!hO1K?JpVEGe+-#B+4*2Xvt(mo%lNYD{h0{#hia$S%?s!SLl
zj3aWmIHqx*m&RqMZNC*Z9Y*<SIVchsE3|lg!SA_9YqvP?V%y-#U0hQ1dNt1orQJYV
zjRlXl3QCa>VCinX6y5}vdg10RTOr0GX3H}Jz7wQX4+FK=Vel1S-*;YyeX=!vp(tH}
zIae>9^NG67khWu?hYcN8G=+^inpnVWWwYoN`G1Cxs4VKfZwb;GNCNxlYUb<`6MK?;
z2~Ax_?U%rKo*ES_xz>LaW~v+7{7W;F6CpYfE?JMvwc5T|EmMV)fEw4Bfg!Cbpkqdp
ziAOv3bOC*7(TLlAALClZ91{mz8JDuZNs^uYpiy?8cXD>ROVb;|oC!R<PLe(k*?mgj
za*vVSG-hf`R~M-G92LVNy!zF85_dImlr~9id-R!X0CHV6%T+kn4O4^EeoOg?r1b0S
z8{_FMl>Tjr4O9^|KWNxvN@KXfR*K;SMR_|}6M|F)iPX!s{lr=4zxR@e<dI{IEN(in
zOM1PLsTVlGU4O3-Py~zt6YDUj!{;~S12ph;`MQsTK5(amKtDn~`3Z26AS_$m?c$J`
zTa~vU$?k>U@$SXJS_;t3&#mxR2eb2R!~|#UNk+j&GKf8m^MlQU@L3$0x$;pGO;B^P
z#{`uMK!;juZoBT&FQkKLg)|Fy&1UA9OxErqcYW2@*K6>-X+QI&TgzQZA>vOij`fC0
z&B=&;y1TA4Ym=y33nr{-8Kq@KJ+13w#+a5blJA)P-{A&e{l0#804Ypq1XghRZDC93
z1@8^3Mo)Xge;r6!KCzJX5>l7_YWV(2Q5OYt8zSB&TYVyck{4H|#arS%u@6JMlrfh;
zF3(@JRQC$kc--C|HTtXjo)`%Sb8fDoY>bOl$Q9UnZ5HbMb0!P>Ip>+Z!*Is)(EEO`
z#K#x2qaGjz<WO$XZEGo^b>F*Y{kejqj1G^PW~fA=FV%INhif^X5^Ez4*}Z)?qoxdt
zDcO3D_rr0gGOsrxZmzh0@E9Gf>^+?G(GPwlcP|&V=Z-BzQS<<K88^SeJjx0Yjuk;g
z*}cT<ao7)Z`GoH^m1;jwg8fig{SbMFSeq>q4|eC$CSD!(EQS=;)q0iw<4<}t-c_eR
z#zOqBEi3_X#%K}Da71#3EXq=X7&VCHs8hc<D-A4rQ21kOX`uBB)-=N#nambcbFAW6
z*K){!rl_zz&B1!rlTvnt`Z&11(C6DUVAH<2tlWWZi#PR((51hC6pTt$Y4LEi!-qlU
z!f-a^S3R|AK#g~AsBw~sTzN>UDuQ3ShHWySY@7Pt@o;LyL0sU91vdXnTb<vaOqr}y
z`0uRf`LGfjQ*2RGcur78!ee0tw{J6-MIMf*5NL^z=#WucIxgO$cN^9)0D3{`%aEDt
zktB&j5uziSXn8l#Iw@5&-WK=2=>BVp_`gh@)WbIc(`H#%rC_|0`#@{D-w`bWl1Y+4
zdY}f0#3W<hp&L+%m0WF(zs)#`b^MG%0=3);SPOD#e|p!2><lzFXgpjIwh7AQnpvK&
z7rG0dSFYV3aG!Y5>RJz04aZw5O*}-f;~GgCa^H?N{zf)H>wkB7{z?Q|Sh13sf)5lB
z-Jgq=3fLB>X-uNxPy1?UKD0R|n#1~*u6fOy-}7*#%RLlnErpl@>%O@++|#_}XfmgP
zX*P4Vdhxm7=6J5Dg{$>ct;n};>2J=q3tyR?HHfp!n7l-tRXQ)YzLwQ6{bGnTncdx|
zuE*|tG6<I!|HeK*BPe`@_EMq1a9)I0O!70^(dA}Nz-xxi$!;RiQY|E!0nhX2#bXX>
zsZBt0zhj^MHh3#oF6d%-SN)x!hoMXxui#ID|59o@zX25`*N?|4gjn6*_aej>fpid!
zq*=#-tnI+d;`N-l$=un=oCi+HE2qaYqgGb4_lBjF_s&i}%<sN^aLpd^SdAdaJ`H31
zbLK={%`XwHxC4&I1yDJC6z-{jYS2Lb`FQ6wfIQ_3yH|P@GZjZAKzgZvM$TDvYtFg4
zd=4dW<C@(evA@xrAP(}^WHT)~x-*Y{gMN(Fr$%$qULo|K&@6wHUld30#*8#;4_+rt
zcRql%2*<#bJ*}<mo^Rak%4=j{%l6sRJ#VT^G`ara^RakE;;gl?!RR*R6N0u=PD;i!
z?U4zL*9$A|zvd%*lz0_$Uyr227N|I}GgZ8JA1ouU9v9om8rx~7#1t`fCu1p@yXj<l
zKKIyQMK9__Zztc|NIo(CFDVX2pK%D2_Ng86xweX^NO-S)O(LCH{!edPuZa(sLbk^r
z)+VgAX-<^W_3`sg9~voP#xi#0(xiK1AADUz5lnkflYPlm9h?thBjl&@z5jM6^18ZB
z)nkR(ml;3gY_q9*A#?T9^YIF1;Bi~XoGA^ap8mPkC+uCV6*Z4{XHR5T=OdJ8Mgp<x
zO(WuJv4e>Uhs)1QJgx^df8!6(Pmy1`g8juBn*#`@-MfK<{zCg=cn5E`9@p2p3WKej
zcw^fIeq|<X{bIq?E7W^Ar$4*nR9a_OX&}<Rfic>$2R&CsCf!TQ3FIStAxNjZuWLwk
z0RPd6xo@cIpE!7jI=zqLu`QpC{_@a^@4ucq7<EcgSJp{Qx3)(hG}2Hs#nz)~&*+Sp
zV~DTC6Oh;N$>GnUKM_j5PAGh^H(=Wj*_c#jW#M$ef{T4HKKU+`!t9eloyvB7d?evK
ze?OX@1rnr<r&E7sV?(}cZS3f6!tdLCKmQ|}cM-4Lq5Im`ZUEq5nCZK3bK`+a<e=6^
z;Zcon+3YQuX%(MalmxgxLF0ZXOP34(UVuphdJZ}wg)cWb8|d%;okzZ5ke^Rs=QwCd
zrBje1D$iSKGiD}w@V)h_tmA!^{+Rn8-5e^Z;-YO+6*z7gK33)!*+fRRDo&B$Fbaln
zCI*cUnx`))X*|(W(HK6a73Ht5*$miiCs;ujCL()IH%W`>kkfUexAm9pe6y;vZfIoI
z#M&0Y7G(*alxUkHo1=y@gW~)!4ak1+v1-4n$~9+4{?#@7t(cO1M7Q8$_T87~LCpVJ
z3q)g;aZdmvPxI+*AqQN)nnTLC+Oz6ce*l-c+WTWQn#;=H1zR-fbZ+nH3U%mg*Jx<i
z?dG~}{FYCCy#|c$y;Cc#yQ&(UhWo<4`e1O6vN#apKQW=>pfc{%@UtgEJov5?1o^GC
z`mGla-Kkvo{mJtz-h_Ksk7?t-Yh>u{jMF;aU-ChOz5MmQW3fWr5X{RooXGF<jbDR9
z>Am}V)O`rmDQW$)PLJ*)_u)<+B=HV%i8%J>LaZ(KV_1pI-O-_Z_s9~=`&nNXq!ajj
zJ%r%|!R8bK2nNiM*C$D8maDOjVDC!Hf)p6fOl@^2?>3RBP&3AF%~$@T0e_XCb@e7_
zhYiV`;OR2LU`PG#+EYQcJ#~l2VM|{|)n7j7+&>mvM^uV893&-D86_V@twy@5_Vp&C
z0}!WS8l3R;yAO*tO33gWgOA#0Y}yjk_BZeM@7<UL{k*}$#GIk=mcmkmW+O%YHJ8<E
z4~-veR+eeg_d%7JTnzE=&YtyMa9<GAlykhgSPX932Om7xMP$lz*zKbN$U}@BMocCn
z1Caa9FS~_{uieyvck`Y_4tLt#vu!G@Rt!nukUX09Q2Xgi+wRj?N85IL5mkYet@u!Q
z8F#9=^RpzKg}vz1w*Ln5dEEBBpy&(1Xn;^=K_Rfj8g#Cb);J|yZTvqKpiwF$T0%L|
z1JG)dvr`ZL-XJ{)dA;IA=^$fyZc}w244pVbPy~{`CP}sS1npm2y%)f4J7#GG7X_RP
zW%`jE6#?N{AqE;!-`L(Wzc8-EO2G;WbVWTxV;1k+NGs}Cs9=mTr}Bt|>KMm&-VW`I
zjv_ZVYdp*iaH{ZjY}di(xIvb#wKO4Ke@$xhBtk?L3mECnS)j1z>My&>=&b$B@jZRt
zn7c}dV3Ti3yrQ5NOae34$f&=C-uMQMo)(bpmD{o5p*YQ~ZzvJ)i9|T(wi!`Ul%@6<
zT#<MB1Z2wmwM<K+23neIkoZKr56p_79FckK5v^Fx!XBd`(cVcJ#rFAs`T&j><*NyV
z+Q2WEGs(`X*}FX{KSH;m;=N1Q$k6Yf>~YGB6Rb{FIy;Pn6B^9@kG!J7Z+T;tpCS7D
z<9&Nl{E3%^8Bf6<EhkNy0-r8rbNSmk+j*r78jaR7r=G*;HC{iC^lzd~w5J@L8H9H%
zQWYm?{6-3s#<g+kkV->#tq=GU9TJGG<7CRRgLlCVW6$bK1{LcmFcY?8T?^`Oxy6Mv
zT44RVCVRY=)(r)ES=2AZt+H{A%{GbLY8PQ-s$3d0k<IE)pYB&1d>|&(zn8jqtXF^k
zb$8&1W`@?&1hJMIhmbiQ{pqD+)}+D9&n^N4=_w~cdhfSV`qq5$F&P@BtR3HZSg+FT
zeA&oTEi`2P9A^3g{_zyGzutA|ykk3)-r;y#;p)y5N>iEF08XF2K6S^I_nG~DV~aOE
zk-pjwO)_H_QITG~fh-M)7G|Plh9LH>=Ub9Gh~l^I-iq?K82Yb%wftbE>+8n7U|)7g
zR%I-;;wiOJEqC+zXH1u@EYWv$=a+E29>B=6j$C<vHejE39e(07xT!UI2^`Q`gkt3^
z2HgJ_?jt|0-lT0LQ=ol^K6}UBtp<1<SLr{I((OeWJ{bSt%agTMoCv_+19?{>yPwUe
z8RovFIhA9<pk?kKF)EAO+5rsp@rZ35>i!z$oDT7d%p1nu%p{$yp;pv7lwFT%q%;<|
zpJ?-E*$bzJBec|^8%FSzUfNGz4QQy&BEP%f7j?<P#G)FdTUfHG<Z_!%5U%qn(L;F|
zECbd|57=X^<FyH7;XF?`<M50`V<XeBq4W0<@c;DZ-9s7}%_M2#@y~t*H&JOO1}_mh
zxLqX~X@}8+Q*FOcMTINWOLNzlh_S#Z<aE_;7T}@E&z{H_H4pFr^RtohGl?AOD9Y&F
z*Q=q$Xn`uF6;AnmW_k75r(>UZDcpZvCt8;J(<&rUdC8<f4Z*rcE9d+Oa-wR#l$Tpy
ztsBV5`|q-7{h=B?7+xY1OM-fc>3(kf5FG}NVGiUu&$8y{+Ed`&Bnz*AVihz>?`Mb*
zx6Tq4CxcPoP~6le>Di*2`E?XhZiz$`w_a_CAdI_AJZlqj)B$#dx3#Wj|5CsA+?R>L
zR)mc48G_2f1Y%cN#l+~i|A7C_Flx=IH}TF(QVtPLVOGP^RrU>0O@ERty340GC|H1j
z+D_9XH?~}1CE5BRWkYWx+rR#L%@#YZ-e~r`m+^T#eJ1>7IWA%s`D<>h%a+bbFjXfJ
ztV*>vZrkt8x3|7xI~LOu6911ub1oU$oy4+G#5lx7yt^{?bHUC3rP{}$!`YkI%*a|B
zSQ4NM8A{&>SAm~F`9LRGMhNxT;mevY7f0EFoZc8BrVJE2W{PM32>9s!oOns3(o;+@
zZPpk@PG;rQIcFIQjOe4A@r&M3Yu^Zc$l8xFyEzcsnSR}>c{^RQxR~UDUZhIY(}$6$
zQU%NB=f_uJb(Q2>I!MHLPdCY0qWV3pQ{e^FTEV2Ao4Jtwa$vZ$DxR`>^%ynHmGau{
zBL_>COOY?g7qrh<d;;<3I$K#-cL|)Qmib5Z$$BacxwjV*!A)X<Hc@?Gyll6=n^N?!
zntR?_6SIE}`LSeRS`NAeyfnOi6Rou=MSes^m=;r#(pVLGqKEJE8{6$td1Fk3g^#;C
zNs%wCyfri&Iik}v;%oCsIu;!iI}BPyjN`fbks3ePI~Rpp>^^dP@lZUPDrdt@1KKZM
zS?z6}*-cmi1+JXN?sX7RX=eVDt;;PuTe3@-YMcIwj4p#U@a|};q^5!!cWTAc=MH7A
z!jz(w-#HPFL{aY<gSsQxl3@Ly717KFsxuw@b?T>{({P%9uo;C((yyA^q<h+MKOy+Q
z%{Ew6gV{UAVmjtW?A%T6td5MPil?87j@yf%Tz`CVcM{HV@i+>+dmhk7>mk`@?AOnC
zE%GGEG~W~{gFGn(8<lJ*__^^Q?_pu#Im$D4NuL5W%n`AQ895;xq@qBNX3IQwTlVRn
z<6@!qknZ(QHT#9{Zs%zhI+_wSZ<(nCApAh9ELgUYl2u8fSGhT8G8z8+_P1&xii1f0
z+B%PWD%_@E`n(}HwzC9O{P@zw6sb>J_x8s8n~q);^7ziR(9Q)1-&>SjMGCAWJ^T1i
z(x-HCZP*W7*Is-uT25D&;y?T1{1)XJNieA{ySDo9`Db;}`R4NtifKJa(Z?Z#(06{H
zJ~NiGG=3i#W%WzoceG9G3@7F*-WVn;H{#}MQiKU(OLHf_r<bMDZ<jrPAo?HW2cw-0
zxj`<*QT4BqPav-om&**N8{}q-ZTS#wT02bb!`(i?OG_%&!V7nS)V3Y7$2h;o+=;iT
z8||4jXuibVm)Q$i-XfioM>kD9qX&>u`s9XBaH4)i-)%Z%EiR8>gVf8l-n)FJ;CYqb
z6Ijc6)bhSB<B1!`DtC6XC33qSQ~$PGK1gPD+Pwvx4OW@k$`B#ZwBa4F`+des_}Hl}
zl{O>prjfdR+b|o=vAOeHm@SGi{;7^d%VI^C*U_oMeQKF?UW>XwCOB=I8HZ6akJ&!H
z98xR8=(s7b{s26pV6q-A4)Qc%%596N4$CsI<&BRiTz|XCR}*qe=U{)8L_<N8EGB9J
z^W4Fsi>x=TV?O(mJ?ATqADMiYU6x^lSv?H+O-^g{W><Cn&svOE;$Jjmi(JA@@PFl$
zt)wLL<TbbjJh)?$|D!bhj>Kv6Np<*ui~`pj6_?|Nr0?x0BsE?gDJJM$UrK!}f*!_5
z0O9sBALY>vn0b3%(YDAJX*s}P#v`Q)H51Yqs$iH3nB!Ic03SLGlmYg8zco#TrBh&?
z;5q{M1Nf|qrW>NVrDl_s>=JHuhM}i7E3?YtK>aXr@IhrrAAI}DRFOi4>(fBylXVxh
zoZD2vlnU_7*tnO+a0K;HOYFfk*c{2*?8m<!ItOg*1yJ#?8SQPFac=rxHYB;HUZGon
zt_Ws-{$<Le>jYN|K}pZ(LB8HBs(yLXN&J3L-W+rk6v*DoJ%Gxin(=H)&xdIHBtt_e
zm(LZsoyO`_4`)hysSVFzy^SUAkshP@xV}79_S=Uny&u0Jy2v#`SZm}oG1*}0x;$La
zw0MdN+gTrK|J<U?#`b3AleM7;$*)N!2381<8SE*UGH*ULvU4%;6<(Ysp8gk&gsd6E
z+K<kXUXt%yqQc*LtVH|ylxW>0X-RrQ!Nr9mepT;q$*&$TF|dZoTZLDKkqEpsbyQU$
zm^}Ynp}@fuo5S|F^3=lR#Q4cZpGAZ+>1+MG!^*dTO1E$=36DINL`)`Al5;cu!lap+
zOP8~w-<L0veTY$c&#$Dk^vyj3PSU%{+-jkRn#p>rY8?GvBfiHPgJiqRgYUKGXHB_$
zk^rA43CdaLXEdaV20ou3d*m`7(F-U+Z=hc_c%9Krscd?*m*Q+|_N_$PX5_DfKX%79
z0>|y2lr&(-B{gmD(k&OEKV;^`^yQzt!w5+y6p&76y)~ZuUoQZ&y$-GH%Ud{RzNAwT
zUC~kJZWYSlaQzz@{i-Y)GCAAUrDX@BqoG8MXD(^|-L?x@o~np*fT3I;2Ql|<)*H5z
zcTJvypKoguoah`FbtTnUckkL;O<l;c?4SGMZyB~_?l$}gD=)078hX&^|2qpO@Nff+
z2ot8pmMI_R$8b%BkAd&S05T?a;&kxmWM#(+?ln|tM!=OjgBCxQzq@z6KpgJoQN#8r
zr_OHoskS|9cy;A?>EM7oNs2mP#Jl(I{5#~u*})H;bSj1J2Rq*wGbQ50@M8YEV>EBb
z)*s*4w(D*La-F^7XQ6`t2M<n5Sfx9~m^JMxUpQ&pCaJvNsjst9Nb9JvP~={J{KXgv
zS!5e@Me{%A=5U|BDs9aP7a|e~SL?>}7<{M~CykVXhPVu*GS((*jMwV~sd}CBa!5Fg
z#F>-md|mSj>-<iptsAIb+&hs#O`F`{u<e{X*KZ=;G7v^3g;zm(kL48xA`a;+t;|zw
z$^V9$!K>X;A^zlUIkzmBRj<Y60v;+Wyg7L|@YL)2U@?rE8g3x#BB8f-GwqH~jjzP*
zRjI_>l)MjKWW(bQ!^wib*Q$TsYEZzvEce|#D#FAg*zTw<Tl>qP_;ihx*pI9_yolFM
zBvTtahviE4m=bWOw-Q#_on&-pa*Qp!{761zb<KmetCv`#<0vj(a&8#aBqMXee>|k(
zXG~S1^=IKbF@kd$Dmz`%y)g^7x5~$yyKysv#zAXy-)5W4thP!U&fl9R{B{`2L=G~e
zm3q&&6bzB8mI<BR@PkYdx3FrovU?DGV(ehr7^Lz=@A|o?F@USnP$)S6MIGGs0#^hM
z`?kbF_HA!%c($;xu*J4aN2wOq5k<}%%26pXKuow+{qppH<+y|$-%U&qaYLC}du!b{
zO6!2zorbo#KxylkS9<E3T+;g!Ewp8!h3Ci198~LinL<M4fEAtkoFJN2MO=HHAE=gk
zmAn0;p>d~oUdar9<?m$JqxrjceOPv+uul3Hr%YsVM4)^gOGRV>ICYd8;z(NTzDa9`
zd+2lYQoeTOjRsfN?_Y{^iz+!qIy;7l1aqf7>TqBr>EN1-?_@QZQo$M~(^18@ey#bU
zDVTNI$y2OGkqKEx-f8B#QUh-Ut_R#`2Fz~_fyw^?;;Tw@ts+mN>=hgnjDyGBrd%fa
zF{-s+S1LY76q?=+27Y?vYQJ=EG4JBt?b7PCZauM6A@aAp77gucXlEA6)moJt`a5wF
z)^#h?ByaDu@>iUDMlW4P(MrPYHy1%3kY@NM;3LJTO(ZQt7@GFUZ~%t_l>(W+xSeQ&
zEo23u4Cc0b8!DvDAq|>H@$HpIXuRltu9&Tm<5qU>`pLHuYHdA2DCrR&g7rRwSM%*m
z^jCx4r|=`2gi#&+$D82-Z@3yWCjO+0PKnq3x*SY~%yo5jc?uU80ZKyV)qelb<33;g
z`NEj%eeDHpSIe)f3G)Wjmn@>Q^UsKV4xTG&*QEtyUwvjO*#?wBRKeF;U^>+aMf}D(
z@eS(N+IrzD`h)@S%KhGvNSZ0Kg^MNp#6a>l`@Or46fkZ#ZL1Ik8qbX=Qk;RwCE)OC
zX4Yt!Khcb!Z{fW0FMg#6N8D%izml);tz2Q#V#XuPufy)m82frp`_?7=Tip+|Z{mLP
zGoa*PXXY#YhEI0O4r~vhcE9vuTQN5{N`{+h`}Si^rU%1VveWduahBZ6BXx(gM#f6x
z^!m%<vk9LkLx+wQgJO_eRou@4JS*h%;n@PA(7R3UDnX-f52&C1!vU}MDLkInb48^c
z-z)XI^Gr*|MRe6R|JW=^6X>F_3X572IhAPwK;GJRY*v1ZwU5O4NdCaK4;^g1TEIFw
zF!{A=7hF%w!f-vlqk}W-Js<s6b71NgU=zJN`;69~T0npR3pNb$V#f0&;FP)O``DO7
zZStG&WP~qb^>Gv9v#z6~&0nUCmAWUTM7iJ(pObysp`Qwa>*AZ>_UE?~E4yiW%5gzy
zV%1rTTs2ukwx!p#9UTjHPd3WuDewVvY292wZj`wBi-US4ys}Wvlc6iPD}TQ*<jmq{
zegjEeq!)lO-003P-!j%@^-%_sQ;kUp!}nsY`I|+Yd!AvIu9W7VB1`-*5kw4o=ZDs=
zNZv7t33s++e{HwI=Zltic`nBGEqO&~HEgX?r!M{t{<7Wr4bZhsjHC@MAj+gSJNOg|
zP46_h{gN&o4E)Po=jgKd@i2+7e<)R^i`LpF6Cvw1<gZA=*h6hO;Z{>-hy!~w21-KT
zTh&v56tDOFg1Anj`|4Djrtg)FrMe66=9q$S$s&sDb|Eh2a-f0if+`XNDjEH$5!;%;
zY-i{urHdzCD$~^6jpOyobRgj$zg$s(a(=L3diRx;MJ-$G)w4S`A0)1gc+t%4zu%6#
z;~FSdY%Kf5x_txhu#c+G>^o-YWdc94<Mn^Dy;#}F!jAsUS#$NP$$S>|Ms;R~ry8#S
zAs0E2;V}*93I|Bd%fk=vOzUozZX-E%?1CL{I*SmT0?R>SV&{THlr@^(?7b$GV^!tG
zJtk%YKY*0AYD2muK_^Wtp1+>hhN`C;WBgQ?W2S`PCYH2Ai~(aSm6zdvrd-RnO43RI
zxzruAG;B+|f6Vdxc`;DyrigR)Git^741@N~&w1Ox+82{%^3y%}hUe2lVxN9sjR6hp
z^V9h6)sAe-yN6iTcRQJqr?VWMjuh93z1{_aZP-3%nJ#v3)?z<2<8n-WHsqe(goEY*
z;8SAH=CstrifvuGk?Pq<_83VuL2}JK;sj}9!W}yqs{JNO?m%+k#4zN`)P378`MZ#P
zqsKNTaQxa`tBP$GdP8RNQK);wp;Y0O4_C_iBC0ZtYN^*>9AL50k#cW!BWA^`o@#`|
z$yF;D$jD5)BQ`YNM99cIE*`94GaYkbDYK1;zRhMfy>u{0NQ!2!IcKN&ZA}x%MVWpp
zQzA+wu2bh1{vl8yR-7t`@ia^2+3<m@PH9Mli$|Em>us@*;bE41Fng$t(90>`&FfZf
zQMTi;J+v7GVyqo@ns#0l+|(-Ei(E3NCZm8r`eMq=prRC-*V|V&$JDn<O^%-*w^Tl{
z;X7E@&x?+>K7|a@;~GeogGp2#@dah*QCj~kcSN4;DkQ_HXOtb4hS^<j+dnUU$H)N>
z{4_RGjC$EXd{^UseT_8ZFB|G>K&53Gn<mV&U*$gLZ{aouf?VB?uVmPt-ECM*4HVbC
zaYm{8#46^qS!>9*M-EJIWpb6hEyW$sLEB>?wKnZ3-3R&*wgE&h^~4k1DJcWd*-sH(
z3Du7FLQ7i-mSy+yPe{ww9`{n8y9L0BN%%daLf62N0UkE>(1AkX&sD<p1j(0WZH;T3
z=L*=)mto)SFQc45=sW8ligTKGT7D@|;b>LW(#G7D1HL_<#4>$T1Ny?kz-dqRAlFo=
zPFaORVc8Pk5DH!VJ^UMzYouSpChFE$L%!TN{*4czym2Tom2fO+8KHmeN$~?2cfLlF
zPa7t2VmX6KwB1q3`kw6GA0M;d8`F3bx{5^^6%=0&xicJnJ}Aj1B3D!^;I67LR=uJ0
z#4zwOSC#k=w>S8X)TVB+`wjX%Pm^^(8PnFUc-Cy>s@fb`0yU(L9`;J}54`NFqgV%;
zP3(WpEaz1?!gq@Z8WyWx?d;|rABZgRxixKOt9GV)dhjr+;~X_D*S&go`pJUYj9f66
zW;e{8b3RnAYSnb@?zG!UuS|3Q2}Kx9dx)=0Grm>3Fy_iyNTC{j@WDaW4jiHJ#^Mi<
zf(7Gw^E#UJWac?F67cL?{5tx_l}ZJ3hF%d&q168|^%Ou+MqBUFNC`-ng3{fMC?TCn
zw-QoIH!LDuqM#rRQqr|FEFd7=T?;GSy|Bc;=zDMe8DNH)?|$DseNWtTSh+*q{*L<a
zDcmI=2QG|MvAaQ=DjKib;;4wkF;c)lt5lzV)3t74tBc`kqt*MoSbx`V-I-%ocGpkS
zN#0@`Y)HyiB3+pv$@JV2JMlv%;B!`Y@Di%p`{ym*w%8%LU8xpk-FxzT*AZwA#52t2
z4S0tyrI4%nJyn(q7)#Mw>UvE#kiVqd-t-Ak|9q7@8N<dI=!Y(Y(K;V$h2A#BVap)L
zOAV(<jb3+=vF^L$g!Lr<9vP2lRSdu)jr6An>HNBNo<BAtMtWj-{<_vD5C}^YaV`t2
zk_ssG&B<)DD%%Q`GaDZop)B1nP_2TH4<NnuMTRDMeiuL`D3}g2VznHsAKm~n9Ouoa
zk(kOwe4awC?BJcootjaSZuz}~n2RO91H9IQ_^sw=#_prVe$97*dz(_{l)e+gL8j@|
zN2dfL%^sUM^7bJze@3zC1g~3XtBW&-CvNwfWGI8~ZWv<eg?`2$56W-z>2&&$2h;SI
zxeQ#5(g}x)4A-zdrtY{>ea~qV>`e3m*YjDP{j;rtSf;k)q;w7GyX$Rk7AC|==3Ntf
zIPi^>YiHQknx_K3`Yx3^#@ZwdB=L288WdPKU0qI*Q(3jvBUv+tqq!<4mn|&#`cWqn
z!i+p`)Ez^Fk2FoZTSRjlXGpjdiUT+RWW)jC!v&5=jEbbvdG;C^<F=`?J2ZrkJzg%u
zcWe@6Dn2tdhm_+_ddipWHxT&8mbF?4;}62Uaap6hJ`a%ep;q5$duM#yFuKC;Db}@|
z+Hy$^iPnQALyk4%+)==ucZO%Jf}P_Ou;&C+b51whDRfqEh>V-+I}4zl51pcZmlKn8
z98mhfu{4RRbH^f7q@pr{#B4n13+waQ9x6w9JGXt9i6#b-RN|@wXx3}FCmkL~Gq^j8
z+&49Gyp_36&51ut?vv7Om8g>>BO`00m-2Ogxxs~GuEj@!3aeY&KfWw<6nrG+`1#|O
zrJxP?Me0Behv1G3`$EJhl#P=3ggVA%M<|(f;CV4C5Ynmt)E^*ey%XYMhPe<!Oc>33
zi5Zv~UMU2SX_pJyw;aBE6$T+Pcd`un7%ADpK>CT7629U0VBPv66u;+=R3H^;(j*nE
z3xyLjG~=jfm=$MiZUD{c*S~l3D(y;l`CCWv<{-A9FU%vQ)`bV~kMwv2<~}emZOq(g
ztzLtlWWMO>ff^)pdfUw85uSwaSY?Fiew+&;uwqT;s7rWo(IiQ<*BGk(Q`bIrN}Ru@
zwZ2|-c47j<v0Qe_wv-3upHKU!B#V0(egFPB@vAr-tm7KlY5*yTTk998J{bzB|MS^p
zArQ$wRboedfvOT3rk3yo{o(W57fal$<FV@a_ynG)tqAmo(=;7@$!zZLOCpeQusfPX
zE#Yo*SP;#dhy;)_>pqO<IA3tv6kQgPDQV*07Z{@Klt$vOv}4Oy_kLCr6o#ZEXc0O{
zIp`CUvJk#o{gth&`wKU4^ZUhM;<_T})Kk%Mu+=>1z1dHUW#{Fo5y&uzYNT~I%jA8K
zSNC+F*{RRiyt}aUG8S9d@bvAR<$PXdTN7Nx<jX0f{Sq>p@BU-T_pP^o%2N0_ynoM)
z5$6TBZ4G2gPS9>=rOn20N5`Xm*#aTTve%?rKu2>c4Sbb<6Hs?!iZg{y+jII(Ib5Gp
z63eZ5>cMipGT)B1b?AY_xiO(3((y_;o$1U_dz#t5bk4NNp{%^cl>OQeg-cEoLv&ER
z_VyvC`cqVX=m%v{;?=usY`&41dKb8vk{WQ=t9i&IvgmdzJ_|vuoJl(VbF|ZJkHq=-
zNHO=cu0p_<?0uf~Nb2zMM%fJGDMmk^FUkn>dG`L&d$Hq%E@Fu>VLv`M*!lE|TG<H$
z?O-MOahGbs5DnjG3lXrbN+lTs<Q@jk?22etVLX=#8y#_dr(#^}e=!b@galv~)~GyM
zdFl`jT;77E>AjovYJ0kz;6MaW;R~cC<<k%#RI=BJJ?iro(g-kBW=|_*S`nW2Tx5Lc
znWUYkg-lIN4Y6Mg_HqnN=C#0ymu`&Gka4t}{HXw0ZY}9N&nPgcD~nvW&Wwr@eHq@Z
zr93*5{3lN0YqrpC%LVAYJ!uS$Ui-;#`3iD5C|XBjkskb3`-|$8=cqrzLaO+Ukfy1V
z>2a#FlLOr_9#6@$lnD$=d+>q1^yQC)RA<wU8at+j-KsdrrrcS_x(8)VPCO*InIcOw
zzfljb4T^|BqGBUI4zG66=r?<#lQQF5jQwz&@tAHG6nZx6F>PCE`0!Xh@u9=^e3aa}
z>~p^riJy+lD>5_R0#&bkIsy=_%Y#Sqct=`9;^Opv>qntTRp-<#ppw4+fxrK(F={pn
zQF=Vj2{P+QvO4*KTVHiK!)9qXYbdeRvG`@Q7`Hbo>7?*O(h$%5;pfTt2h*jF9XCJD
zk=fH(hCSa&I6_>0(4T(X885ea)LvVeP-sxYC0I1fi$UC}{!q-}LS7%4pZN^F!B$Im
zEn_S9R&9QmzjP-Xyft-|r(!R9&`fc;cp$fYpY8g%1n#*~v~+k~s!8hKMMOpz$j&e&
zo_H%|n2zp`;JjE9urTE2#Oy}X;bYuiNv2vlgZd@2od=<r64F%@TD9xr`V*7Z*W%RE
zAq1EUdG+2{))a-<@yz9)@K%s2;7Frlr=%{|0Ol-S9quUc7}0CT7`k@v7>_PV)u$j4
zNA~%OXJxN7PEWX*`4+$Ny(z~wcW=7j>)1aC7J0E3kEPyKkLEvgeg`~cW$w7jEo=L6
z`%;6t*fHEkxjJ`m!)kyu+TW&j{*`h)U1GTB;ws9gmNu}z;RW4vgyPL#hNroYDM?r{
ze$6zg2dyNQWwbRm`r4Fwyn!!OWcNxP{jw>R)F7bZ%h{|A#ba3{7Fc;%`t*yE$6oE-
zY|zmvfzEsTR2D>Qlvvy`z*uiGj!NfzY<)0tB{N{k6(ldeo8H*?r_4|X-%v={SHf1!
zj&r?)huw85?;`UR;w1@gkgif>({Al_oJ3pYsGGXvQA)9h!z)@sP2E5KjVD8E@zRG-
z;vn2OvC|Qj_36oHM67HsOPLa0%g%Hj6NM%Gk)GYv!)0ZNvvNJ!<CSoaa1miFatgy|
zB)$~~$d{7wW2=@nlaVZOjayC2>GeNqCI)-H6^}%NOuTqX&klfz+RG=B2P-e)m3}kC
z#%Ac~eRCIfcJkcWkt(RvY9b&QRClXJ{YUD=za<(eH|FRxrOueWxNbdsCb?|qbZ)%t
zmG<>3`Sb-HOTwY?^0YeRN>l5BXzM{k?~jA`d!qRh>hI^H?dVhor{fObwz2k*0FfE2
z-Nb-3MBq;@+j)han(k4<c{}7f<?=N5L)A4eH5y|#^*wNM&N;qghxw7t9nBAu1L4ss
z;sbfzbW*KyA=YIV)efP&nDR31K0Rflc#}1WIJm)q^|A{sL(PF`Fm^edW6j=86;x6r
z;^<GH%#kPA!*|0*wyQIDnp+DOZPkuD@Db0ibu}_H?320taim&$W}f#*ry%b7us}u%
zHnCft_ZX)GD$nK-uf6>o#<YB)!FKA6MSXU5Hi=E|ZJvE?T}K(t-%>*>h1V4d^~_p+
zDG~ojOS(L?v6uA>JarYVak3HqKx)cV9al31SNl3sGP4QC>Sg6aCLFvM@r*JgC%<r6
z(s+kF7W1G2_t60VtJ_Zi|8W#MmLFUa4~miK<{3<DJU@1-pNgt{y$1D2{%A!8J<p;D
zF$|4tT*4xK(<Zf9*DgkS?WRWVB7-|*KC%Jk?tZIO0^A@x{0w6T2RskL^+vZgwY_S#
zd-Ujz{>!g-#P!v%zSq{vJXo?fMp<FOWgiV>_EPM%&wNIf0Uj8RYRteJ`d`Cg9LE+k
zjHisKas*#q>pATIX51|lC#+b#M}oZ^J``wEL>b$<KiPi~jmJk}-1O8Kw3}lEoAp@B
zpQ=^ES!*id|0%6s!-ZSAqwgN@DTY13?9<1egJQd$ni{qe%BrMSkCn6|J0wTw3*)A~
zj3Qq_oQpq?Zj5Ai;g)_;bu5@}@?5+aXmlPv@OyXxtyW3ERw5#yPxKvGmCeQOl%h=e
zC=jqYNN>@`7OpYfWoi9p%*2cCcp8r<&D}6t@fj)>Oi@@?7WjtE<Ef@p;5CAKgPa({
zB3cW7A>_z;kxpP<GBX0o;h^<&Rx^W@hvzP<sHliA+4cIU$N2^UkFSe#I19LYpZ6#Z
z&bh$P^!<!>pn+lnGb=7M$0}>vL$e<$Lnk1WgYV8&Sob`D%(_gdXK0c56s@`}Gngt9
zXqU6I8xOq{u0TH|A3&(QUp59?$%f~%8rM;;FQFNS^uD6+E71=^m3|43-z{IZ5TXJ*
zF4TqaLHjr6`CxpkuwZ%&2eh-+h^8CdQW!QjzSnY4TkG42LQ6@FYHPKV$B16Yh(p)V
z^Ac74QGwauO{$2Lt$A6ckDFUI4>`xX1}nfRfrNA<x}A=-c<h`R;>_jmd^W|ODybRc
ze12<Z#DMUEsBcuwi`S^z(u~X7&mRig?TznrP&+izrw+ENQakZX^)$v#u|4^W-|;rF
zzDV)}z};Lbfb%`rmMTp#bUQ>^ATqUek#H)2$P#k;VuyY9&8Dia=Bg|w?jZeyA8%jC
zB)u*cgJkyf;g-RS->>6i%5XZ!;1wFttG~62Pt0}+nyKb)@h&O6FfF3Tb<oN?5K+64
zy^Px<Zyw|81{)W2E=Oqbw5Gy+T&>$bU@qOaXqPHI)3B_Z881k4?TaLmxjyXM8ZY=J
zEFyCE+&+NvaI}+1CXMG{g){k#Ci#Rxa~aS=!(6>mnbn<K_xtW)TIj<zx>l<$lT!2j
zca%J7nIXuHO}B$<Ma1S?kY{H^^ArEnSfjif^UR~Cx^xe=U%eW@C=2(&275J=J$^$y
z`dE*hj?x{lNs5ZWk^0aoAhT|P+k6o%n7y5QJA3i0g}Tr2*^OB}vxgKsg$-7CBewD7
zhMvO)9*t5x^YvtQQozmG`tS~vp}K0V`-8;^8PFHn(1(*gnC3QgLI&?iT?pgQ6E=Pj
zIX<ZODSZWhW^4S%HFrq7Qw3cO?zwzq=GOcca?`vi*X?0t`qs>?g5s*RJ`_Lt+ZOUe
z#86z0;JEzoDP(IW_;=BZjfkkt7=uv(r=9d4#NsNBZ*8KnUrI4~I~~HX%5N_6A3s71
z;GTN$7UjuBvqk((FyAEj!c5KIWMebpTxPLgEambl{LUTQ?nFCy2~~o=dCsl%M9->Y
z>;d;7+9L{zyXMNuBRu6IyVips|1l+&(TRy|JJSv1tsulZajc{ZD$mS5%|PVOpigl1
z>{X!1yZMK_e)yvO!E3yKOzTBoVvPw%C10o<5~7*Bbs*;^Ao-0d?Fznny!V)(>m<vL
zM>D)VO#oWWys&MTg{5n9VYah7niYq>Av$7Iw_L6leD^d_26IOwg>APCFYk_je8!pP
zU4A8n2Vag(kE#hXusYWkHACs(*PK(Gx?+4Sne2Gi07%Z}ZB1cU=hL6=d%lwXj;{jf
zKIV#d4x4va+KzA=xd^a75G>R%8-D6!O@le-d{$XgI9QQPRm&qOBxUkL_sM8A6Q54#
zT=>PMr&J+PbgEO>)#DC<<nD}`(R8OVob-^=5rds}deei<jwMoEa$mp)zyMEJeoIKH
z-T0XE#(h{p_TiPFbLG37w}uc+nGb+JX0RLTqJfZ9aFAscX1<$<0!)e;VMTbu)hUM?
zzClV6gNaA(os^W+!)@A(pe;RnmaH0643?>>sTuHDjb!0}_j&<sKp$95nneOFfGv)j
zE@0NLTdAJ6bJ||wERd}q`#oVo8bk+ojrJIu;#E5XUt?~Q7&TB@4`t0CtXx~#HquW_
zmx8I^U<g$ZpE7IC2m1j9O+I}`!K6~L|LJ?{{<!pvr1FBUJEytlqu7)!+F5n0_^8c+
znnmYBCPs;IjQ+%WF>jFnFQ=y0y9bR?Z^!Pu&$h$r=AyFbe7qDQQ|TfzR@in|_L8w9
z-_A!2L5p>sWzVQwdVKZMOiL_ON0m{%?B9@0LjMIPL@9{Z+1U5)%in@tmOnbM#kj<J
zKW>HkGd>NjRXa!Y%t?5!8texBkjdQM+>vmjmj;C#=|hR8Q~or*{0Ztl)8QL`Q%0fC
z7O^nChr=I=%|aUD!M7h~&z+fAf~CcXCy2A)j!bVn&@0e%-R{UF(6cL9NJv9N#~o0A
zZzRTd1mxX+zCDkO6!z9crLl+m#x;1PD3Mu8Y-i!E-`<v1ji96I3Z7@TeY_cN$zd$>
zTJ!(~-4N;iRca{e5?ns=4zV5R=OZVeBbJM!PqWHw1C({?3mGTD8?XSr5yaxJnT#{?
zDCdd0A`_>`RVa=m%meuZ4^rnm<GQ_<-MwfhHO<uKZJh{y;+*Qo5d5arES43iB@;0!
zX!Kg$nKiJ?iEEZXml*<C=75;bQGXxj2uSg1Mcd?8saP_icr3f1FeW(T5#nGUm7Xxs
z{ev=d|3PU>n*W35f|=uKyE82`UEcH{)wlpBG*9eXOhGgeD^-QiSMD7ORpbd2MtCAA
zRU)YL6m<UdwdQ=t?ZXMetTy};(@>6Y?#{H|oUpiq8)Pu0iEcM!V|kHtGgJ-)&1l=1
zns+3+!nHEr?g@ym8%B%K3;pusvSHZqweHBue>U;q6B!CeUbXM^KEF-+GqXWEAlN|x
z-q}6oKNMzWvSbFjffbOA#e2^p+trv>8Ydgl%S$ld@A=w&&CF{ch05UB0s}&nAo;Dh
zw;r089)-JQ&&w?ogft0~yr8g1m<DFR)4~Vy%viKeUyrQ|eTmZwEJoT^R^`@p?o$yR
z&!H0OiKTBAGyDkYOn;C5Z&P%rO-)<*dq>;ubZslvaMiAbi=AK6%^{KW@4v-SW}!Kc
zDvqRKSZew|>h2W9e#4^E+t<vQ<G&yCa&XdmyPy@j?3QN}6KtyczrFyPXJY0utWEe#
za~rSnh??!b_FZZQ0uFs(I9UV2?D;}-brAZWfoKAmeJ#%Sx?wX~a<e0<=*Pg>bUck7
zU&$vX)P;(F)=~l$SZ>8h!&SvF-TAR64KYr%$`tu>^@P#AZ*7p*i+GbQD?VJ}Zo=o!
zHV>8o-bWm#S5V`oeVZeLpHf5<>RH9v7Qsb2)IXho0V0KPi=lpAj_G0fh`y(XQ3mT2
zFUQ-n@-6AnFml`*BAxEzpC5z!`dWe$z#&Q{mrI|X993e{C;pX66bcPKX#`)0PzGOk
z!rZ_%JL62=bg(x~xAU~fl7S;c@bB_qB`9TK3;FsoNjgZ4qfnfHni(J>pQ&t@3=ei~
z-})8ewWR+l!=5Cf%VwU{sDGfA*N?vNAmlr)Ob|A=(emK*H1L~<6+JuWhdzEv_xecK
zJAC6KLgSP>?)#Krwg!wr@x7rs>H5khZYWLsf44RJ8MQ6kn6-{zO5(j8XjAshgBkLA
zJW+goG|9}K+t8BaO0=KrRucocSw1p_zVzNy&4!w5S<KLdB4!}9hNr)D5{B^zo&Q&M
zE7&0a3tq2Ivi|wHhAXOMH`c=3>=o*f>KO2Xj;=7^j#uSfi4F3eI3Jf{-e`K{+yqgZ
zqZiiUi9h{EFWHAx%$aD;ByhJz41t>fT;?bdMCBo_^)^E?hHVe&-Z00hr~pMrnp##X
zK@32hUxlU)kKy#CrmJGl#u%<<7oFlE;T6f|;`25lf}nu~^_xehOIhckJ}hYQZ;?^1
zx%>_9u89AB{&#6pNHv`;h1&sy*z#{3=sicjV0e;=#shs|jtx_X;m@&$1=l0JV3MlZ
z!rA5nh8RhAVPh}b#U4@;G-Bw+9{rxwNO@|TeoO<!EJr6Yx)DBfd{wrsubOT^ls1|7
z?aALameFGR^1{GQz$vKL8>k;9{n!5?{*!Ysg*iGe9c7eKKBRbWg9*k38>inSHRqUL
zj&r|l+~3aTJLO|f1>5Y7sabPvHV+QeH3kL#MV0SEOn;#6g1%6p8g#z9(bg`zhxtD;
z`GWlPBb25B*L#RtN{I?2ViJA*C|K{WJOukRy|B~+8IMR;;L=vw{73nIl$O(Y&}@W;
z{iSdZ5M#3-02ORHa7GObAZoh7uW(Tz(){~i_QmHk{C)GCwp5JQc-u0e^hy7Nq&g3C
zsgy5g*YNqqihqy!uf=%q4WCvg*K=CYE(oequk}SHs+#qmeFEWcYC|z=soc?j72`><
z{*UlIy(bO%=sgO%G=$BO#GcdURh}`uFEh<5*FxWtJBa`(0F%%rN)_zC3qAsexFpQ2
z#l^r_wZ!^Z-$W=pjsLwKRc9QE($?WXqR&-wI43w2UbcRmhgh0v;nG0U=$V2shz%N3
zaJ1X5&Oe|S9;RaaL`y^$#|=zJ9H0uK{!(q3DHH7=1#)d<c%u)~jJey(fO?{;D{*4p
zz2J7R@4wPC>G<koIG+TOWa*Lqn{a=41@wLJ5OKg9Bagn?_Fu~p5QEx_;+*Si!vI()
z(ga2aBaL~71~m{nr+TV}r?`Xl!bv{N>b$>F;~!YkLu$F;004Fk+Is*4?R{bLzg@=P
zCtLN5@{y2$_OJ2b+tO8Q?I<-H#?}AQ;|{WBYUfy2x7J9De1u|dltP66iib+#>t*?C
z)@JE-Ceb{Q;{W#|R7s<PH0ILdC}Dqf>|_jYXwb_uB_pRVR+$<zuHQ5lGaW7k%s-j%
zU<O)DGyHE?twRZv!PCG!s$jjyyR!dK{Z#f|x7zfVzVK+WY6fKjuQdZ6V@<EmY%Dwa
zC=~AVp{fFljOa8S`@iho&WfG0{iXj%c!Li{;SHFidT%1cN%q?7zYuDm)R0I-Obe^7
zR}$A<@|18y$)J$-TPjrj2jx!{01};HZtsXPK`gj3+MDPfvVbbZQs`jp#-Xz4|C#E5
zPbh?Y%^oYjgv|MvQ@(5T2|syUq3g}wBP~>c<1JJgNXAQ^44@4;x}w9E{B9NWkKh66
zy;<le5Z}u>hf($8i8B8WT}qts8-_rCOauYwdEqUms`WZ=&&;ulFChVE?Z5Ks576re
zwo43&>1uhO6&7BrJm2bwQ~OIcl%CuFG>l^kUPfaA!@;DyN)zOAHAZ--`)0r0?*7AS
z3WkK(LX=;OOK0Z<Y?UhhNpVFNE1Ds=?GdU59ZU}EdO?&Uf_l*sm;g$eUUTV@aV3uC
zO?7zeF8vP^fiW^viM2K${}?IstY1NO;bKuID#}WagvM5#31ac|A77NCzV?E<5S_cR
zno(<lUviyA1@M`xH@_b4=zUXWKW3vv@i_?!Nv~;$hg_y%p}F`fe4(-Z?NM`j7JaA@
zV<<yWPhmy+SEYS;Tmv8CFO(X=X`Vwz-TfKxZEhUN-HBJVX>5x7l}y>iBqa1wD$N_e
zr(9l0)#}Q|CF+gj&`oV9eF2JfM(RZW7@csCD7B<+2*tP?raj5X$LJZIb4itYU1N6;
z?PN5b=3oFh%_!axmobVb?Ti4?t*mD=VB2=cxvBSdUScu25+HdmA+|GPg1|K>0n`<y
z22;%{0bBjE`kSE+;*VIdP4Fksl?FnN-+_GGWW%S3#G<xBgg;5nJPXWX_5p`9<;J%q
zb<=ERUz{Ehz8Z1g6jWcv)C{FBzu%(B%z@EKos*ps?T^~FczEHSEK5!9v|aNsZTOE5
zbcxo>$2mD6g!Q)jZ$jyvBV?2B4syPhuNB3MrbqX_==m+Qn|taJ?1cdmJp8e^MB@!O
z$z3y5trBUl_?se?eXfS(xJUI0AnZCpe23~h&N{9V?Q)?b+Qe~c&agCH@n|9b(GWJZ
zb7aWRao(w5sREa)p-}qj`<)@Ff>w6h*;mv~HQ}||9vKHM;knad%9E%cwh2QsmT!$^
z)wAP6qOWzEr<csi*m+LtxdOAXALHDl?Bg`IVcwd5Q#~^=aD4)l#H7V@z%+hPQiUAC
zHtl@s-t>7$%IvTDczDHj5-m$-Nm_E5MYaj0etzwBqRO_kuSC+sO8Vp`A^JV(lTwgi
z;Tg;y)=o$rw4jwHUh};3KH7bS^GrU^N@{PH(k;y}w5`c?;)2W<xXJS9N*ddvGB=G_
z`qr?tSxt$jGS_H5hU>JxNmdj$1#Jju+JSM>g6W?Q@txA0r-y->=sCUQ)7oh3X%XL~
zHr~TTpsndKT|jQAKBXX<Uih3N_QC_sYUC}tKN00vuf0bw%2)H`EC<*mi0M~$#H}18
z)9Tkk-Jp7#Ghwy(xhXB?@dnt}^rFA^4+y3!n##FIO{kcl=gAipb8(J&jzN?GkG*Ro
zC^l7obkq(HX)cou?KdmEx$m{OK)8$RPkN$QMYc}RNT!c*P3bME5%AAYoC3cSV!eLw
z{^6#$rhL}UptK^!lB6r=csMGM)5CK%s`47U4f|1J@5@q87lj@dPqbU-Xo7p6XH#d_
zM``V`SzU~KjZTTs9Xc)bHIY?6ozQI@>(Gm${zTX1BPnOEyoCg8W8H?`vnF<$2SVpg
zBt1BRZCI_eKQnQzc|fde_So`949gY5N&5#9grxYQqPlw4NCZDGdM-m={5w|bZUj~K
z)pH%ZVNRkM(t6^0awb;pJgE>cCY0i(2e#FRC&L)(J#RY+PWUSn4Hw@w8AlN_jgvO)
z#}UVMmizE3#7odnzFaA{@G>)EZWQk};a&Adw6~vUpTl==O;x-wmQ*6*t_OA7@<x+c
zo_(`q^oqx7jlO)WTBTC1xAaf5ABTU($4A=({}g&dpd4aKpy$MTx_L#alvXNu3&NfX
z{&JgJLPvP35KE1D`vx1Nb?vdQ>=5a4kKfP@aP&Uy*s5^M@BGpOfj+I6$v!>mS_L*C
ziJ}`K%}QTDsM$JVH}tqIPta{-n{kh%XB=+0`tm(X;0Z*ddaHnQJ@CA5nEN0SBg^A0
z#7-2;TR10>y#iwf+Z#LgVi#MIz&L_fL#AtBH_qZ1ulZx-^Vl3pQn8=Gq<o_#9_KSI
zlzcwihYt^B=PFSZtid<Ib&h7{jP4<iJDh<R7CG|az$D1Noq53s--=rq8sXEkPhO0N
zyb7o3gp$dg1LIKnWLn)bN;)S&1yyMVrkPvriPnkM^>(N~jC?>y2l`6Yy+p&}KiC!M
z{$Hso91G<6OW%)fk=Q$Evg_)_7{25Op9dfckfBBRziYb{c||e7()hZVS+aiJ8L~iS
zl!V4G8W8>*2&tX@fuScl*HiA5<v>Z(5B{D(pL?%4By8gx%OWm^2xn_NEF}CDR_Y17
zuY3sVMb}{AQl8&(C#;|pHOI{CW|JIw%DUPIe^{eX7-UOu$e%2bDX*`I#~2LjP2Rc!
zmRsbXEyocDhWs{2f1}{SZvFM*?EwA(7(?NeG%f-|ln5dF>j>3{Hh(ez_oOipa4o6Z
z2DBoopaIb;@CI<NrYTy;4TJBhJs2!M4!Q?l9M?D!Sv@=SP@OoqtRa)t=!qC?!)Q(S
z++`o&ya2y2=>(UxLj2<@e|<ec^-vkPW2uQ(*iS-T-r3{$#TWFb8f=&C%Xj`)vswVO
z0s)%Vxt=><ZOzQtbj#sSHiF_<a~_dCv&){18Sw|tt7Mi_@BP^Zm;|+=eT}fdXF5;q
z&6nWHtgu?hc%Q6Y%~Yp}TF4vQTpbTZqd|@kUab_96|%XgCSduzYbtlffv8c~-lGpG
zo9s2M8ow(0BgmOik%3nHfTj0Hsl;=%gPs~PFLdb+oMt%RXrTqqov4DYGzBTH1gE1}
zW83agw#%Q8jQTL3Nr2-eEu4<>$t8W(19<0r;=7=h54YZ=V)UeA0aV?;#b9JGYgpt9
zeC2;9K;BKItf<%nZu{p=S!gr>V(*ifcqbPZ5_;2w=)U*jnH?NxEVCb{$9(KjM}q7&
z-g^CjshZwFWjWW?_br*H%1JL16f%Db_WU@{$25Mg*=G>%IVEOVrNptpmE=BcJ+84e
z@@IY5O!nKRdWA_oAGUOfN$v7N*Vkuskf^CX{>$<>$UEl#;@6M`VM{ZV?(n7%Skl%;
zbLQ)AHTTEv$!mk`IX0AqST(-TFn+nYWZy66)r}DE7P+K`y^hJc<^%D7M3_I<>y4XX
zEM-%ES+@^Pe|bg|ES6m2mHEj0KZkeBKe7~WXcLYX@(9zi*Tb`x@CCkg4xq(X24#;5
zJrM3Oj|k%=ncGZ$k;JaM7=2w@oS=4pu3=bTn=f;~psu!S8ox~Pco`iYCwDpiXqz(D
zH2PoxhjW^*K=!f~OH)}x-mN9~S|QdoqByB{`2ANd15Gv}VvATVMfBn(Z-@LprtM<k
z#Ey=9V_&r_&z$H^MTWkv4EHop0#8MtXOyFml*EoZsy+F^=jQZrM@fT8C`yjBOn*J#
zYYjPiddt4<tM=>9c_R@1@Zr14QTt7G?V2%3o(9mPZYwV)=4i{u`?o*@ZMPeoTyEjs
zT%sakRsM{;zYqu8zM3v0Z`^fNN;c;YQu2pvQNJ^ct9AlM8d}?L60aPa_Z+HTJ&Mt-
zSn4r|)sMtQ!A+$fX!h<)he4j81RCo?DoFps%YeuG)Dwh&R#yc?-}0x^<~zcNE+X|<
zbdlhoy0uWB-3uzCjBge}Fh68@M1VwykIXn_2yxJIL8(;d6G$@}sn(p_wnscx4#_!Y
zx!7WmNYo3Hf5a@ant=MMuC|RkF2)N$_Mf5Tue4o`>5qMHC<`Ce5%eP@GrSkyo3Q({
ztkdVenx7I{*qe-Ok<AjO@(Y_nmJ{w#ecw*?Sr_4Pf#b?Z*?kw!wMPAVeiw%i=B5h-
z`U={pN@c*Sm8Zs3BIfgYd{QuDscW#NduF@Zce2b{V&mEM>WiZaO)8&tv!Hy5Q<Lo|
z#B*$-_qA=c$8$q{o)Kj59Ra|h3+=MOiu1zt%2x(E*%8X1>6=&bgZU@WyK1iu7wy+J
zw>>h$rB02huYa+^KH!b9uYMrz3azhUX6B1S<0ehF75uKm+-;K6>nzT!<q}B+S5>eg
zsiq<m)M9y$&+0;9Wla2V^#da}`1jazuW6|^nIX1qPpwH6kF(o=Hq*1lx_zmQ44uif
z{?(!lX>5JW>xY?1VrdR3;em*(ZNcl(t5OdZ>GRW<Fx9H|QCUP5%muN#$nxMc2xEq6
zpcA~<$=5;qWeI;CFL+?p_XZpSE_h%Z#4KHn@b^di^Cq$q(v2Oc_z_}qM*qU4y!4ah
zx;J{O=fQ~FJiEUFk6_!Oah;|rxK6?#{tmqV;VvF_@mz5-`o2fcmTX#Z>c>0mu$7=6
zX8rj*g`*syzJXui7a5)-N$&*8uLT&Ik5+`CFi?6+8r;}s;C%(KZsWYTl8s?vCee4!
zl(f9g4g*xb7I)0|&@sLHwWy`QE2<-N#b!L-A8A!xVSZ<_^b0c`LZ~kO@kZC<ZX(^*
zL0HfQyB|4`&^Rq!h}y@!9pg?e${QeK^ir(IMB7AcmDe=j43qwjbCgo1r>EiTO54E%
zdfn5Z=@s-ad+^){H=&~lS~)zV%JGsIX$AXO5yT;_zIG@(Y4;o*q&u_zowPfRVx1V?
zj}e1K57_^0cNYyx@BbZGFpndNyPyW4eW^_cVwGk(*Y@8E8PI0{$YgIl@HaW4Cr8db
zV6%?H1`@5>v)Rl|t=#3q(1#Zd`G89a(1Hh&Vdx?&cdWID*9Qu#K?E}tW{SD=cfnM|
zS2aDnFbTvY=6z@Vw_kR=uxYS_aoXN{gz$_4U}KsYUKa6IqWO%DMJzPJ!u&4BfyVrB
z8ZV*7wYBPnfx?B-VpXyENwL;_2c3L*?SglG=lDm(cB}Gn^$X@KOmhO=d+QaY&^KVe
zu2)hQ6xNRnlkbO(MskIhH%zy`sL=Y<+5u{Fb?KywL-fe$Cg473^giluYpIu*^wdbW
z$@qk1oxIZ2L;D6OhrzYi1PM$(m^C}lz-VE7*Iqw-{msu<pct@F;W$5@3MOfK2nNGr
z<B!9S=?I&RvzDo0`mh|{Kx%K|Od(&+)a9gGV(IpyZwRQX6faF1^JM6wG8ZJjw9&=t
z;T-jgyA<ft?^qg5+ftn8wPa&cV)UWqEy#z`$U2}I8_f4Q$MI6x!JQ*-po|w5gt`^z
zr{x{m%5}s6mqJTZCwk>Zo{(X`(h*8}_{@m6TA(|I%FSqc=#|`$YU2wJ5X*`)(kN~i
zriLC1BZoe_%P5~tNCVXyoc=Csfw)mDUwQ~s8x<E9w@rN~ws+`LHs9nF5y+tl=s|HS
zp>6V-HAJ7ZP7dBeunUTq7dU%#SMvVtAV~3&ocPr36L)T9Sw_{GTk_Epb~fg*Vov=E
z^SG1%EPYKAlNLX{VMX79$c?-D_cy*xzd&Y~kS=V}JKC-y8WRJ!9K}4{&@O@^$n!R{
z(fcQ=F}(5_2QHKkI*XV%c+qZhxHZHAa0^BrwNc);hkCU|`RmK$pBU3bnUNI_t{qbc
zlWcx-4)J@AQQBCSDq|H|Y(Gi%`}nEF$V!L$6$W>>IE`os)fs>^#ZU;0IFa*Yj0-vP
zdfS4^8T7cEn#J=n9dLPPpT6wm6mf%UsfvwJZNRJ5rMnU6l_o;bRGBq`(@e?YPx!sq
zG|?w4_N6H<kU`a#o!BYD;d~zEDGg-MCKMNr{vmo}6swj(v}?T24)Oi8ykR7k8h*Ja
zPEwa~HJvG5ys%Itq&kbIAAD31y{KXB=9P`l@V+RP9zHpoA5$(aieV-Uf3|@ziTY_4
z?jn2yudf~uoxJ=LO-NP16~N42`ySk&0cNpjNC~I#)(}Bs7<Lt?>y`2mEFg#|lAx(B
zf@VCY-o>Q#lGDAFUS5!s^UW=At~ZxDygB?`i(wX`D|hutdkS`=Fe5!51-ZkSfAcQn
zFE)*?y(ub)VOVhc_Q{Y^B|+ADsA1G59hidNchY#F@u_jR!1u4#zgr00zT9@FClCH|
zVU*q}B$+|Cp-^03lKQ}gO-7kdTUcn(CqI-NYG&*8umU|!g|F_9t@=`Hik*TY|61Db
zg=)mxkaj32E!}bIaEecLQCHl7P+-dPnttZ;6?1&QS7m2PGqz?dU$rJkWSUrY(G%S8
zj8a5A$lm-}1y`KFz-}H>%5jVT4WZRGlx26)h6xVbaDGi2M>M4&2ycVi-o%>lsV4;V
zRp-4p?lW44^X3!AINn$e1mdgyx<fTb_7Yupipy=x6mnC$@62dgnh0F#?0^V)@bNny
z-?;MJ_mtcFEIr}8Xzstx4P&p~$VIgiw$H?P!)0`xZQ`~%?EUAP#;!YtPF-mp1a{Fq
zJK*pCHPtSqlF-F3-?|~?tIyjiFCe2EkGM^bZhfFpn5R~*J?(ay8s=ES(MFN#VCmV{
z^b8lSp`jvI8tegA0j7<<aH|0TR?ifIH&o?Q-T<OVOg+YU^0`b|ENJHD`8%sWt@D5A
zViwN;<OWOfLOH*O&?79HT1SwdbyXZ6rKHB1wOqB%%z6eAq8F!Ce+iz6;dr0y`$}Dp
zL*Rl1HV)-TsMa9zctgA{gR>D=l{_u(m*#oOrcAYukGdpa5<8^uR$5}M%re5wQ_#iD
zVCx<OEk<nihphy=00+hX;(5ndv(kfrYfF1ZM!FY5s2SAGjpxGVHXuJVyrXATSYR<w
zKkRdmW0@Dh7q6xF6BS+k-%18<$`JK#=Q{)r%{xl_M%4ywo>Q<=i*3OHlO#{4VZ{bN
z)1lg%Gg^va%XN=lx7rB>jk#hT3CbN~Nekf%$#3P(e-^&cukRzjY)JP{aE-UpcK$SQ
zS|3RZ!~<`il?8&1&*%s3&@GMH$o0kh2N$F-YMJd1r?hF%X?rIkt@qi?+cj<chRhYd
z{D{a+=AWeU0&1WnMdTeHL+_uKf!$~3b`3^#{UMU|l?@ja)!l6Q8myz5*yn#ZMVLgO
z_^om;V|Yd@-W|)S39c#7F7xX__RJdKEnnA}$6o8+&jxFJ!6x8+KrnA_CkFEOm|4>6
zIJ&o5AB(*J3PALB;SY|0rL+5i#(d*0<X&xB$ZvRK<NKG)*z_{Dn6OLGwx)oWebSkc
zR_C8#a*0l+WY>{|(ZtN@nM8RZ;dfTCYDMLhY-h<x;^$GeJud?2w#?S(i}Qp%hfILx
zKjJtiyf8cI`=rh(tV=MYF(5OXZZi#c*qZW}6Zvk15=#d&WHtPs=q@KyT!!Aeg_HpZ
zIPaKlx$7c(K&tZRF#$kmT0nu2?DP<I0YbW~a)ur=!cNjnX2_}R*S$7)m8sJQaAy9p
z`Uu8-EyL;RNVGthMx3F+vx2y1j~524!%*|bsGE}Zqy!JX+PvZyfGk@*Eie(fyhIVH
zAY7cIbJi5GJM20@FaDuu9^&CCH2No%39jUph8cr(l~CG54HRAd0BoMUc9Cy|6Cc?F
zxTA{k+|^`;xd<?aO0f_T@!y}aCF*$bjDTl@KC7AY+MEXjwJy_zuBY_NJBffF#hx6e
zXLhD39IoL{34nB%E9IRu0N6a91ujv0Iwf2%>6oU0ddtF6V>2tAeW|FTW$Dkoep+))
zB==PEP1DBm{sv$PzhQ$KA$a<S0U9fJ!Ic;c04z~b@7#~@`)L<A`vMj;+Xvs#r)5U7
zUIUkm1(Fjox?=RKy96}QQZXN{sM{5pjg6`<64}_GtE5$jfFSZ!raVKf#sdqV@i|U!
zgq?P3>HoCH4%HLStW?vsQ8*YHJK78^F3ojKex{E2-jDDAko_P9stAB1x`mUPH`83A
zQjPemd6}d*GJLdm9VF5MI<uBikijV}x>h=0r$8OSbW+&&dTak@B5Ed^L~uaxKxt42
z82ylAk&v*5{G(MH=h4hPi2@dcI)hDue`<cVkgA_<_dMTNG_2n&J&&^-TEu<+$J0?o
zCcOA)adq5U0KR1~fOx8tOAdW;Zs&F{Z6|aZIuIIg7pFsinxQuRw?&LkaXENE?SufD
z$Ar-pwT8)ha*1`!HmpQ^Q*{Py{B8@D44*W<%rzOs>d0k2!20;Sg67k~wOsz2b%~5q
z9D%Pxmfc)I9s&hJt^(nrHdevPoW94l>ivEu_pmILO#n>~>umQz%^dcsp|hwlb9@N-
z8BgqWPiXyLSWH-lKlLtQf}B_S9|MGWjH2u4VusP`XO{ZJs(~<GLX|a7Ac*)iz)m|g
zNm=x(6;h(7&WO4(0Wsk(!0+}AX^-4p)%J;ySmIBPt{#tr{V)Of55g7|>o-CnCcW0k
z$j1I&9c>ut>M%N6NQ2tW>>PS4gUoxAy;+oe>;<fY<`w*JmIJ;|-JM~rw$3!Vh`3az
z9DPqgl06jLuE|P5G0Uk^9{!;z&^XDv^^rFvLJWk5ifpOl_T0C<PhfV?o*}f<xiOhy
zp{~)-Sb3FC|C&_ob|saEyRva|$HmSDfKq^pZpY_BqlpX>W^vItA_4_S6#$#Ghp5ko
zX!528fc1XR`{YJ+bJT-EX*EdSV(-tpbY`Ju*|R}(T@&N^{Iv{-n5FNw$K}BRVEHeU
z$cwLKqi?u5A>;;ExIy59@xHD}enN{~9ey;(<Nx*rfLfYoqLv)QS!@>o2;mh~DC62S
zv+E>7{*4)VlSIXXDtpi}n(JdBv^ky`umquwP99Hn2um&c>QGjM5m~R<nG#lb7b~Pn
zx4Pl!yQZa@vK=Gy$oKAj4x1iB*91I%9Z_mu6bnFwG>@4?Et=iVJpj4aA?vqT_k?YE
zZGc<u!6q&7N8(wtwZiMj^19Zwzq4SadXqY#-5*qfivdR1PGmpA-t`YRzL{8##fI%3
z@2IzmxxoggQ(f0dQ)WQSC0n~`C??eUQZ}?0HM=pe&?zL1m4>yNJ%oia00HP6^xRg(
zm{93tzosxY$%I%j9zHnrM*WYJ-n?`;G8sA8bC^n<|EW7TUbdXW?VTcvigcnf6NmM;
z%1Lo^(dSfTUbSb`wG-Wn^`!3^qfLL!wh1RAr%}yqS7SJAno`_c8yj8qT#Q2;{X5z}
zCe9W!zz+jD89EW~)-@Ik;ExtrAa=<T#5Oio`wq*VT!g$Ex1A}Ai5CR!kaz*FBBn0V
zX6kPJ-h6*DHxa4beNF!RX38jj8h{P@w;x2jc8~#XD<ke(NpHRDBf?D>k~L4+UEFxQ
zG=9)1s5|7m#U9STFP*mMaov>}?IrV8?<dxqk{-nfJu1m}as5^{^MfeqYY4D$xsbBR
zt|>TLqt=Gz8(nPh7Pz3UUWvXxiay8>)*F}&QYd>*WNFyf8fznPf}P-IhGva^2IY^T
z(H`>jMhVaRturz!LO1GkD{-(upx(ghdq6yBcs`+cZb+=@p*QgE>YD`It1|i`m2S9M
z(yR^p@@D(xLIyIqn)J}CtF*nXZ8)|1WUA+E!=p>I>olb+=9%a`m0MfaH{v3<nVX?m
z*`T%kJGRp$`7&4jq4c-Bq~0>k`FTSNj_bP>21kp_>=P)vEBB+0;~nq0D=Zu;3=MzQ
z%#GkVC@sO9Vy7eiNS@$id++stZGZ#2F??3t3sbcMB*a^+)22i**mdYL%H~|Z?g&Oj
zZhYzh+?N+qrjDq`2@p*!PNijKw}y%X^<3{AqR^>P=eV0j%WJ0G-Zp-lg4F7OyS^BT
zCQCxbu^X=c=g*Wjj-Waavni*vBbO1oGb%>!^*{dC!37dL=i-&FVF2#p`BN}FzV#73
zM^*A>-WyknMi<_S_&b96pI{Fdtz2Z+K#pFct*ewNflhdG^>}bz_I?TKxrkSFT7A^b
z#o)zYn?oU|@*nPN55H1~IzjKy%+Mg1(tTog(ua(P0@pbVWYDc=-@n{15zz|by$wg+
zA`Z+59q51MlD2Ks<=mG25f8Isr_MnXh@$trt8sA=LU9vnh{&5hz=04#++G9LFJv57
z-gf?=BCf+MjK`rTxd&i_9$w`G60v&*LgS^VXE1A0xySyu2$sv`mc_@{bC_T$^ii!@
z;RLj1M-T=}OcbYYF_3@R@|#fA^*MKX;$INxQED-xXWhe<B}~z6j`aWe9p%}m!51h-
zrxv*gpUfoGxT?0}!tf(oFbG`c3c-8h*|qB%j1?o3zlvx!7_i&j?!A9s#2@x|;0tAc
zEN2^WPKWVQ+f+L@?;h2AoBo5N<U5WQ)vcdN%&>?F(B;m7X6NY43*{)KH@@0uS~wBr
z<{T)_!M|5LW3fs6P$Q!b``W1o=77MXnmn$WMe$L^zW`P!S=c-bRKtJ{hT1wX@)sTd
zUBcL+JK_4pX>X~bh1`~{7`|Q6QV!2&x_?=UQwcx<deC$WrEX)8LU%IG$wq6w{|su4
z2GOA@1*8Dr1<XCJnWe9%6J?UjT*5v1JMImGh8aKxLrwm%1lig8<IW7$x!AAd)HOQA
z{arnlplpzn&A|y&$Jz(vf9#=#3HcK=RzhKNNP%Dxai70W(XEYCl%ffLywPh{K)bot
zNyW}*ulmo&6*0Z*(9XMUCLn^{Tzj-T>gG=lY0PO`Zx?`Kj^qF{;5x*O^PUl$av=D-
zkK3HlXKRK~RNYOnE&MOk`bFr?H^FAG>i0&)EvPdGMQ{t)@yMVl_fW{^8{h=&rOX?K
zqRT50Z6W%$8BVCeW4iN9ObMp>A-4MwV<_}Qqi{_Fj0Yl7N30`OP12!7>=>+boM8q`
zY3`L7DwWRrCgeZ9RV!H(;G@c^9OtD!L@$Nezr-q6dAW97_C5PA;oX~2N4EHGY_Db1
z;O%0tZx*d6cg-wX{gX7ACpCY$S-61%)0u%J10N0f>mWZfbgMHsdu4%9)XR!ORTK3I
z)bw&CHuUB@a)?<T2<Ax!!fJKe_cy1=DwBiLXvXr4@{(j~U7JOoXw7s#qt>|JRCKct
zp~EZhDni@Srk`#9z?qig60xhT_>CPj>^9_@VTO;7J;XLT6TYG%Fo121CW0o@Yj?up
zzZGHej9TaKOB~pT%@Iv`0P5_0Oc1<kFGo+@$MP?U#(I^hV2jKS)6e3BK02}&I9iWZ
z2XVF6+pOAO#X)UwmUXfgc{<JuNn+UUF)5!03=d<uIeJzJFb$g%uaLuX{(+C0iHoA3
zX&K6q9muikby!q=>;(#zMnc>M9D|KIZ@(SQHhk&D`uZgUZ{BK7EdQQZ6pevi<{WL#
z_OqugJyPi7*ui_089et=cXfJ?sH?Am2!;i`XSANRzOY^rTAsBTZOgopb|ji~v?ri~
znbwccjKWI;Rw*~X*KwZf8Fv|5Aw^N&5(-JFWUg_$?^>R~{fAIZGIG|vKv$5$!NIcu
zsN;imzfp%a)OqY%-ZsP`B1ai~EV?w3yx(?wX=SfcJEg_e9MT5&!>MSE-WW^hV{?ot
zO?)s|TH2!`21(RsTmI7q$i()<GJVivjaGmrgGq=rh4va66n;Wf<2C^AIG+~lG0A|W
zlq~Jd{{vKy50rT%qT1kEMTMGVF0TS>e9Ok3WP>uMTcPJoZICvOVurm!hEa3jr;KF)
z+Xx3H$nBS#Ti-3e8>|VQz^g2p#+T1)V|IOki?SFFP@5$Br7pKE&W0UJB_7>A5(1*o
zy~JOY*kGdImP3OUypHo3P@u0w&%!f@X~FrQMSY%e{|Fb@j5mXW!uRi~<p6S!8il?N
z7-h?T)QSDM%O|L<>c&-ow<^H76RHyhrbMmO{&12}<#G+S#@b))wGA^2&*v0x%&R4h
zw|p34+`CuWjOHYuAXKAgUV3jP$@1=Hg&9<TWbc-At1_JVK(QY9LKtGeg2e5fHMT6q
zdXMoVOVT!}3c1idPf&4Klp~;?mW*Nq_lleS^1ZevT}z+JgmZjL9Hc7-R&A5IM%m3%
zn9jb3bPGa^eD0!Jn3p^PU#m=$C1jMN{0?kM!hu1t)<=}Fci26n2<rL}u*^5}0oCkv
zmqEz!IpKVd3UApxo9Q89mPOGis$7lH6Wai<o2s@Hol~*DmcRXbV%BWsd@0%2jwMi6
z+<>?P3V_ZjD(3Me3OGGG2WI`C;u{NvVNYH+)wnM@S@VLhZn=+=P}Az1p>3o7DWkVg
zkzke=nem7ALUf;O-JZ@iWfBr1Q+l|>rsv7)=`#oF>4R)0E)HuyrhY*cK->aLI+x#h
z@Q3z4b^o(7$lCS7rfaDB6A*D$lhNL$(GOk*AO**5B(9g=0&ks<)i>Q9vcDX)3yq_z
z;FVO~5`jiShr#H<?xGo~?KCSg7=SjeBiegO5pSQA0OWRj(STwhP5g+57ICIg+Oy=Z
z_H6kbcrktMH4zWMlB?Ho8U3Y3%+)6FfRc=c<xA9UC!=Y#U{lYQ_aBS+Deeq6@4YbY
z@4iM-1iJ}t4%*)SqznTp8)?gQ46o=CMTK!hpGiWnm%7??isVw?riA@D$_0nJbyMOQ
z1C7IoUaUtu6JS^adRXGr0Jq?H6E*7-p<MCfGwVdl>}tz(gWr^}1Hts5AXv>|eS`x(
zkClyog;Yvmqe;$iGN^TUdy8ZC2Gh)SWgIcEPz}C}JP9)^JtDsjcceemXBpN)0r~@@
zk5KJ8)tpTF3tELuhp>y{mw!B*DuGy1!J5<)hWu17bMs*0t*aJ`rfuFxYhthRCSKnL
zjJf<|@7TjUcZ^<iciR$x&-9fHcwYU;c3Qg)YJi1I#pp~sANHIOmYd9HOi!v;2UiDw
zJ4{I@<|Sb;mZD>TUYq0ukV#8;JOnX;gbsny^n$dR7T=Z7(n8}ygwQlrs=eI^fb{st
zWi%(e6Uqk@VOG__be$fb344~iZtY-QAO~6ykMyPlS$#37nKN6hM@FbFY~ujT0~7c(
z4ZGvE0-K>v1B1|RQ#QQ<DNjgX>mw{3J=f|MCvEbX<KyVfu~1?JbnjP%+LxQPHK}WC
z+H34XO7Zm&)P!ipvG!G^*{0!~+gWpGU+!DE-!Kom!n8J@pnJ(v-{$DA1G!B6BzaJ2
zWmN6$7e1L1oyiLo3j-4XBm4`kB8jC?a;uG0ATL)D(N3wdt<7DAq7VXsSP+jS0hip|
zG766BRx?9~KS-tL2mk6tz;^Bc%R^gDkLuYslKW@Z#c>&QuB1UatB5|{I+Nhxm5|P$
z{_#6rbC=c2=#?27gt@H~xGvYsxu^yO_cdMxne>T>!HZfT!?*-FL%#&soyhM({CS$-
z*hsPFp7q(*0Buy3Mw?>OblLTbH7djpj)!Sv+ZhHh*CQX^c2=U@t9JU0?<?k3*R4jO
zcb53|d7!N(-hijK{nAiIvnp8>ulV9cGloY;9wsPJ$V({1p@U+&DZk$k&&ZoUod0U>
zA-Db@jK8VC)&J93Kh(Qw*_nUC)xL(F6q5Jgn2sJ&M<yC1B@LBG7({PYv87%Z^d@D1
zm3G@yFt-(Wob5Q4LQs-B9O_twp^%SiRds%mUv$@n{Ur$3IJ&%ZUZ*e4J<1ZTIdh~&
zUCA#g=i#xk|4$@2f~cJvF^w8i$1iPiKaT!Kfw*908~$B7w*QR~R5$2e8;2Jm|G?vs
zukrm`gdB5O4fpySG-L7xW{<QSgi_Uoabbq*BRzbO&ohn=?nReVGYAX&ZkPWf>#M_}
zYPWb98fip2L_q|k1nCk~LP9}GKtM{QLvkodrKF@mq@<CCAx0_5QMzYn$r*a+yJz^m
zbI!e&=b3-ld%v-I{npz1O^VL0xww&NOwfw2@J_^m*DcG5zK%WV4aMzt538WPr|ll;
zGOKi=ZnMW|sVZGdyyn^YgSsced-p6?_3B{J`f{-q!7}72k+Dw&K)}gyxY-&rg$MgI
z<c)gs0S|kU?_dz=A*IQ@4*%CKB=oq=j>Ze(ZUkOH#Oo92&3yrT`O=WWe8FTjp!s`1
zn^yjbOGEqH{vC6cPJIb4QtfvuuZhg!SXKKybq340Tq)d~$}}rd+t3Z!hanK()+owb
z7ldd5xroL%dtzV7bRt3#&^Z6jJHzRX^GeohrGsvAZiQa0fyd<o#^N&{MwbK*w^2Su
zxhdXs@!kQ-3kh^n3lG52^A!lwO9=!nLVm|e=*0b=(A&ly>nFI`yeNj4iswUtf^xFh
zOepg5<_MlVWw+dD`6LEm+xO9@z+-04D(y%vz?~r06+E7`By`Hf2G1@1!`yR~b5Tde
zQ(O3mDE4{#EJ>qel5JcG8)=-5iO(*#v-5_E@+0Npx8Fl>h(flG(NX>6mcbFXgUr28
zWN7Oe58jaW7*{+~*!@!}TMIqzmw+uv)?XLmh3#zZ{D60g^22^JR@BpeOts-iJr1a4
z-E%?Hl)9lFe8^dROL@f5iSLz6?^Oz=kIKTej}#0$!<D;rDc4%LABzf_wFq4Mb_eU@
zNP8(k^h0j5%=RxSf3zU%wlvxC>ntSd$OMLu_%QL#H+a)Yr`bCk0S}`m<+keFcZ!8p
z3vdv|@)2|8Ctnt#1ybIA$5y04=56fGRHzq0aw0pab*p&#i{m_%s0k)^V%E4f$Ux5>
z)rj`VnM?(;Gb)J$`<q@=auHrEa=u3&aQD1{^0sg|P~AqQ7N}<K_&m)4IONKGv3<(E
z0FRxwbW+*~rwq|*Pqt8L0-3gXzQI`3T>5K*Y2!Au*Ae_n3<!HL|IEtUpi+EI=q2?X
z@!@g?T{LC42fqxUERTFXT6%|tb@=~c`EaPh;+yYQfH{39b8GFolL31>9?o;i!a|+x
zFA~dj?UQ<Rke1ss0}25+Hgz>JFHeUuMBYOB6kph(Jl$7)!F)Bx1Q#)=K2$y*i`?RY
zD#Ed9nIwK4Wp~3KN1(GicL9aQL6dyyUE6a5%h($-<gztzWt=jwSK~I^FxCDs4|Hw*
zJd3$DZR{2}9^?%eEyAd-%UPf}4L7W)Z^1D09U6*aI?KH5L%G3>_uheTw%jU&KZFLO
zQ(hPNv0gag%b{lqft=(ty3()ihQlRwohjds1|D#w7xhIfge?31+zd7&A!=|DO4sA^
zDB1B;B{*<v-*Nds!3(>I$!N%nOV4gkC=%s<l{k6G%X&T*#rWutR{vxm!!~Zj!ka(U
z*_XDhOjRaap{5Lc@Y~nZPlzW7&|GrAUsCpW!Fl{SJ_$H)0fBi5{UVaniTK=RA>b~I
zT;UaoF>W)>)aPN*yFNe(xfOqn2CU#hEw|zB#UPmd0Qw#J7!7q~3J^bS3te>4JRS6D
z+0xyVAx(`n&D#d5&}JqLD|Tp{1N^fMHK}W+zDFEjLT5bx=a7vZ()wk-)IWs=eHt$v
z_~mq^J6G7Jz$_P(LlvwRPtcU3<_??sz2p41W+#AGy}7CUz3%^S*_gjvnsA28A1({>
zP?7kKFL3b@-m=1N<{Q3f8X5`jZ&4Gb6EL0#H2rimw!XfueRfyy*3icPA|?M;emyfy
zM}@vE(6kTYKY7pJ)ktK)<fPX47l;0Fn|Sw*n|#1%c9T!}ts%)?HLtQ8XdEQ*%ZpmG
zjYrvs5=r*XN3P(e)B9hjN8vyKAIBz`m3VG4MPn#Ix1CbVk4Fl^ucs66@8fpE#GXzE
z`ya$hyDNP6&t(cPNoM96MQGy6^?;cDC~T{?CWFHlDB6q<3b(P<nRXRUv;|ef4h2%~
z()j=nN4UEIXVIP3z&+oIn&e2}dzE-t4bMIkqg0o7#@MZhePImR3*_|(yVj`QVQb$r
zK~<ZO)!}JL>lKd<$h0>r#!Wg}k3JHcby!}hDxwo)HhcE%+}ih!)VB+a-H1?Oe*wht
zG>D~2c>*uewqAq?R0qnPGr*HGkcy6)KKzyV{+rY4JB;=<rT+chap7yJf8C#Lkc3a%
z=ylM8LM(W4HHsiK6WWSSA_ftHh;Xh4{g|J4@4T7J#el4<oCV6`Sg7F+fKgD8X^FjO
zPLW{j6){t|3RK{>!`Opa;~aAnBTKECi8l%CNuxTG-wJ^bw`CBSG%*J{fL&KKdr4A(
zNq>hz*N?c<zf05GgBL7`QJU-^GV*S^AC1h?4nDwT;06cxM}guNJd-rnSgpt_rCaek
zc!7QeTszD~SpylK@77y(3I)dP>CQXh{`v==80h9vo&{cW<~-9)0vRG>0%MR2{@L}2
z^fgcOZY>SWRfbwCGon!LXv970O+T^e!RV(f`k4F)xD>m-2AbOo-0j$NMNH`JV?)wM
zO-02!&_L9Zcf=uxKC1~>Q0kBAZ~szkG!8V!Yo@~2<yFsWVf+CG9H$G!YFzf(3q8Y#
zR_eozF9P_kg_O9{!ZoIZ$z^|Q*087Bsnlz)<2YSI-$%)sx$~U@nslw$LD>|`=mIfZ
z=?<hckt6@3^PhWdN)Ea3*u!6kACg+GFoSR`1X3N?uI7a;JIm!=zCufX!Fknhs8XhI
zZUR`;6)f(3YxenzpLUsQVhz5Mm88Gf|AtpY8~x?L5D({3xb@MNO9aI)Ib=35DxU0&
z7gL7>Xh6vaU}78Qr&eHx8S%ga1-#!A{TK`O$eB>!d4RYN-b{qEqwtyXw`wCJ!a5^~
zRyqNn5}iU!W_s(^tQyZ#(M{Gm&ty~@V;h(BxXv{er%0Wbj+l!>spW9iiC*Nij7n_J
zXY&Y}NeG^DaLKPak@3`OT43uyB`O~P9`d2(3VtLNsV+2=t`vo|5_5FdP{29%D&mVY
z%Zv-%L65w{x&SU{j=*&>AOP@KD+aHa4rHGf(URkxe+O!Pc;QMD8iS1rI0?5!K7<ah
z;MyGf)zf+S^Z#)-_JIEjCv{^?_kV<v)Y*<X7W>rA@l7(i^{p!6uhdlGNZUVd&ab61
zM8x<jSB9QRwk2@$Vm5SZRvmzV>;Oo$Fi;nIfF>BjQqb_Tf$;!aI2zi~11xpzc3{qY
z4+c2mR@cN_f7J9H0G}#A+Ca;@F7yUe2`V4dkm^tW*_i?}rtGKmL?D<zNhE5(vg}gQ
zXX|CJXTHe7M8c0AsWBmBV+%;LlJL6gzGh=Xo1t)%HrWp8Fz%;cXx_|7$(Rzuk0qwZ
zY=f|<EVb=dfHZtNj93V9=&iu>tf1~M-xa(G-=zIViX#$5vH0Z;3qCU^Gg|((aw92!
zDa>NZsJVMZ8oHsaak4f&Cy-#M2U&OW4=X+?8-L8@TSJ)u{ibzK@Y--R9hKOzkz^io
zgSEs&3Tnx(@~Fy+Vdkwt{mp5ysoM~CK3}YeJqpZXM??p92c8FtqW*>O?q4$a(4r-d
za52N0{QbRI?n}l%NvHN|()gRky%*`FZ5y;$-J+)cvP$&7*xebfQ+KGC5srAs9(RZs
z=JDA;u65*RS;93Kx8}+Soa=dj{?-0(Ej%`n4e~gtuRP}s#j7s~6am`n!C+Nv6;!}u
zS*Y^+e9tulS@s#wMUkY6e6j;p#sSE#pk*>u1bgae+;&OseJ^RdAJxG>50T!3j0hT-
zAmJS0;18R9KuROrb9R-WR&NDlK<A#g%q!VV$3j~P_R~SRKXgO5D^75*2e$+5Mu3fK
zK}?F7Lj+t(L8f0h2t@D1v|X>e{CLIH13=clwmn=7`oIK{1jPQ)xyipmAjV_$A*}zs
z4fi6wOnQ=pCp+rp!f`HCcK#1r>f_;iF88kgVm1B(Yu#eOB8HicEM%LDN3(AyF03N%
zSi)8by%G*QYoTcv#}Q!(FfiR1WzUDW3l`%?6TrG~m4c=N&7rB#B>;(2oS;x)=^H7T
z7Af5FFh6}R-HlOH+rpFJ9)C(-nz>C_0aC#6hVib?*Y82mq^lV1*jvFEgW05X@w)6&
zvqFa%U+L(VmvfrAW3AtZ#Rj+Z=SKI|b6asn@WS8i$oS-Hx7Hs(6Sx{Q>oI)-`uDsJ
zlPhN>UF@wVE@&AT4od<rDNX@M4vPbNxMJ*<6V+CC0n$pW-Zpx6?KVn29`D|JH*t?4
zPQd=>F}p@S(Qi2Nm~C+>2~$0=mF8qkVtv5|{0wc0#QhsqM7CRmA(G;Crur}uFCz9A
zPvzurFUZt?B#&>BlbH&<P^(BpI!LnCvl%7>^?~|)0$98NVHiMcyV&rb9%>5{c+ha@
zD<~6K$eY~RUP2xK$}o(tX&*QbIzMkM3I1`3<7svXK2sk){M^i^y37b@?uk(S>wQEQ
zXpQ86M_jI|p~;lDSWS9dVTtMWS5RE%=t08{^XJlR)Svh34^3oE!9ry+tKV;+yv+zv
zv@N2DJ42}exXWLIV6?x8RCoPReP|G3`eo@NL%18yDP(oj{EQG0sj&N58DkDL>rND^
zE<brQ4LahJ9(ZP2RI~TZHgsIas^`hwqm`JXXy##G>94c*G-$gW{Vn<-)b~7XKd0|#
zvM7^kTU#yPcz!@<B(}Ll7hV2$-J1w+rze2$#e!44DY-fnP9kt?>sha<svO}H#HGc+
zj2@ao4l2c9kXoqaOE2RFUG$C-BzS^n5y*<l=Xgcv{xlb$j(e@@<m_Kz^iH`w?+>b$
zYxHHdQ!@WLQWbVx(<G+Mj}D2FLjte4-TvqgjHB2$o%{MXZC4i{toK|5rZ_%25QSCY
zn%=4|>HKgW4TYof<u36vC}xHT+-TMw0A;i3Svp{LMMQ-;+qG?s!=Q(J$NiOPF+ps%
zswf2*KAZHqY&l|k<u<22MAZ#eStWp2YyNZIHjv_9_IZp-5u2sNr>)2LCdvZ+!=it>
zRGEwPYDZ}lGAF0GDKU#z&3@fZ=uF>WH;32_?ra5a>~M*XFD4KL1PhX<8R61`S=Nma
zjAtgxeTt`kyEU_frbK9Ef)#gTi2#+LJ&PbnpjMz~5OW|uY0bcdSaa6n`Ge+bz&la#
zg$`{(7qaM-*>RMoXBi$FL5xZbYj8j&U(nG{ySLj;CYv&30Yn!%=4^s^HgWO=5)5sJ
zV@l?)N_q(QjMVNsZ1_%Rec!e1TP2>lklcC()OycJTf=$>p-<;0)DbVv-rEr2+5LHM
z18C)t%_vgqF!IRw+bqtw#;>_E+GTvNT-mDA?^T%K$%p#r;uYRlndxk?RO5LmxZ!Dc
zE>lM1eK(|7{6$XZy^ptyk~M=<H<0(H_^kdAthtNI-tzO2BGh&ar!LZx%D?k(FTlQ|
z9eid7fa65IeD$x523M4u2$miIXs$R-w?`Mz&4eHATY<wrEz~8lg$dblG+JZNuWt$d
zB$|)!<!Np(vVK?r1~v7dCG@+@5Y0k^0|e!sv?%An@81E3X@y42|CHHdCYu4NYp}@Q
zlcDG)GR^K^^E8z36q*!F&QIyC*r^b<U_rT=-Ey|p%q|R)b&b)u7VESSoNX(n-|uU*
zX>eR~;5IS_vkm97BCMd3!Nje$dKo|`l7;gDRh6l_K9u0neoD?TU>qAN3`Le|RZLfX
zt+KBlllgl8(0M|WuF+gr#wt&bD!(r3LtXug8rkP>Q&Rc4TqzkG6%y6_roMWmm`m&G
zC2j$4OpX;2QEY`IzX~&TKGdH-cA{Aw?CvfW_+j(;NzQp4`lgY^R|f*QUu%JaoKr{b
zaMcSLXV%K6BrDAXau8Z@*qckCF=DXwmX-Gj85W)VNkn<uj6sgNiY7(lVyW-;PQLOH
z@#-mvJJc-z3NO330d`m<HqCNpllv>x+OfwFOWBp2a6VnuHLf{#r|{e!eCTE!RV7qE
zjXL<O)g$sm80qlcVp*qu^&5Zou;%k#vN^!P^k@^O62REnmFr8ccgGeUkY=5K9vZBz
z4Y0&m8JZ$~Jn6eKw)k0LyLcQFjJF&G(rt`5dyRQ8kz`(lT6#4x)OqkBudB3_4H3d#
zbS2DsNW<g}@GhZ_^~OR?wLpWBOg2z3Zl>0#wlU4KJ)iBZY>Bf6^F#|i{FMITR1i&b
zBjHVxoDQDcgtz@)PhQly$KYiLaJU0XxH#%)CusaJx<P+P6+M39hbZXSNkVJmKyb6$
zZDua`VJXUp@kHE9wiyC2b9Snaum;{D5>c(U8nPj4`qNwe>sr%G;7bey{$Z47cSM3=
z18eCNZqlTeY*`d%0)-m?FFC&0Dhqgd&|D<H*M5%86{HMDy{hbP$WYQ(1lv*ky2$18
zDX=}Ax?ef_GvS@kmIhjLRb3Y_`%=cb`F>UA7AFH^H5w1{#2RRgI&8nbu<Vw!QO2FO
z3wdxHIsxh^)l>%4F!SB24k$3OC{YuAp<AF=zolFA@}s?3Jw*!X8LnyA&D1S)8yaU;
zFvxDl^S#qu=K%n<ybn!j)S0C@^&R#P58sNCS$z%W8JdB<Du6i<lzYowJW#jXgRWOw
z218V1=kb~YdffyP9!Y-f*fVG}jJ3z{-pE*7Ml;MM?~r6GxeYFt*ce?Y2koBZ+rHHr
zokSqI%K#*y@j&L~26JLvMhIZaRk)wBrfK|s7yHlwUyMUWYglv`mqCKb_}jSM9@Mqk
z7vqG9s?8(y7oFZY{W(QCRfAK=nY6bzg%B!4>`dF&^y%7?ey%eypC5(XwNj2>f$&so
z4aJDY1o(d{_q96Rf}6mD1oIydF3^|1?b$<5RSu&bB3#W#S~J=OQH*JfsilKzY5E^0
z#(z}~(7O}-qW=cl@1eg*kWEFBo-B!Dx-FWmE+hl@Wej(4?DbIYzpXPZCaFi@uTj1}
zknR+ZbkhC*cA0MY5c&Bt6WyPSvDe&O7(;pR_I3p24m>C`c(?FNaoT2aXT?d>T%MQl
zp>(xx{@w~E1DG8^&9j%fv6FerJM0J$=0&kTkXre}@PPj?)k7MMq^u+8a57q&oA$R%
zCi3K92HQuEqiPM>aP2>sj%;86&d4aMDs?#JbR4uw@0Ijkuy>Bv1Om5P#De^X&CS)R
zoK!ib9`;}CY;~dUzvT}Z?xF9?Ax@YP5U4U5awLL0cHJd<9_j5A$;y}gT2A@*3Cy<e
zu9e>A<uflUh;|J<#=qs9AeS$52%wS97rYS^{aN)kyY6Zu@KJ0M?Uz+zO!k~rVRL~4
zk!Jb!^WztYv!6#4<83lGT5502p<v+Tbq<zFTvL4yR|yZ@g)=4d(@`;Fk-gv(YJ$OR
zT?9JU+!vhXMvX!a>`T@{AGER79k&vF*0vc~46Kx8&;HRAWDkAE>HoZbWo7*HQQgG%
zU7i)U#E~IDxZJHK@sf-&;EUWXDN%@%`2ems#~;LG1_dD<ZnFS+(w?-d2Zj~rlc?lz
za~X!LOkHcSKmFw5t921(_EIa>{U>-0?lp-A%%+TzKp!__-0UPdI_;ZM&s^_|P*`F}
z0qM}(hqkiIaCB+U{0F&nRAjhDJ6tXMJB1hC1ieJ`rjJ%Tiqx8`wfcdJJ`ioPcl7N~
z(*zj#w`zkt7etZ+h%;2ha^0!qZ~$!7?(hSy#b-5}f!jK2^NLj)n)~hJWd6me{+-SB
zoiRyT!r8fXU`^@A`UHj|C3ietfEI`eK4Emh$eGYl`>;`#LZ4jY-j_oT<1@WsIdQV?
zfFc3|{M9-umzNkm<!etzH8am_m`QgG`dbQ|1RL%vSEiFOn@x}fPRzV!u3cIz&vK%s
zz-8+gkBr_4s*<Y8mljm7DI?t)$Eih6Z;1GbEzq+<u9;Rm;7Oo9Vg4dlV@jb8Di;u{
zNJ3ZPPz#CtaUwtoqC@Lk{m3$?4xI?b!sSYKK<$KxZ<SjrnGa%3L+p$ROSw)xy=WTJ
z?aScC|KH9Yiqx|V^36XuBJ!tb4i`Mk=(>FF|G|_5(-DzJYFy1+nFO!*cK+k4vXw2%
z4zsE@J!bCW%K9dQ=>x_w6Dt&cJ5x#7@bau|%{IfAwL3a`kix-z=NyM;qcWr^#)G!C
zU`+{K+Dm8#a+dWME}glLySEb=oQWqB2K!ysJ+6FCA_Vf{D1^16)n_Mjw(f(UtZdu+
z>+23}q5I*dD3Zv&9hYyy=9}Pc0uOx0pMpPc;6<V)zqSV@r!!V0N?EY6gCK}SXZA(-
z^duU39BN5#-B(zKbnxx!Ei3~V=&vblyxr^Lu=6yHE?<t{K0tZ?#nOH7+r7f}JzMC$
zM?dI`yfY<gl5R?t5Da3Uq>qz(jcF1izDyANAB^)P%MJ$8JUrbFn2(p9pF(~wI!r$m
zFy6HsmKzof`5QS8<~JTHiWJ4UXWUQ;x}4p@Ae|NO4uOVf*+1_INLNxOZ2}2KM@J!^
z2Vj7-PIqhGn%QNj)d@V=-Wf9pxm^Ats|~$Z#n^N-pL^l77~G$Wy8I%=mJ&j_s~K1j
zsgBJ=soDdGNP5|WA=)U9JHhqTy%%wX0Nhvm#0rC_0EYbG770o-*Y-oW-SuwLd_`%n
z-^b*gq5&7_E+SK~_boX;-vF_;&>chY_m#H@NpRDVDik>_iLF%d8CQ$=bD2W<!}gMY
z)cP*a*W!3F3K+m^VEYfvq)+^eFkn|y>eW23kt`f!tXr1p2iRW+r=HL{32A$+ug53u
zq(MdKDTdWASTxQ3+EYv9lhhM)BForDnS;i!{|QS03K#-QU13r_eS1Q;2(9#MxZ%Lw
zvxaS$`Z1H&F`g>}nv;MjvN;;p#a_X7j~=Dz0+{GenpY*YpYiYlqs!h*fBJj%L^+&o
zfwet>%lXf=^RSRXo1Mg=oVqW!RyUAk|4W;_ub<Ns)s-!etkwAKCqLFH{XC4JND0S~
zEv5^=b<_{H!$>|@z!t{2Re)BAX?__)qT#vChT|)I&*}Fc&>S()|IOO=Wl9R+VU|o|
za!L4wt)b?I1FT!{0_d402aLm`DM28_48^H<nrIWTI|65wVERUUz8cgxFpc35ke}aR
zMwH>xg?8T<Fg|^V(7Wlz_c{PUYbNY$5NE;7PgESF6T}{}v6{Yd6zGHt!Ru4I>Xs1k
zuOi2SFb$U9VT12ZPnF6+y`~e*rZNIMkFXgjK-9;bV~AOHhG<wsORGZqaA0ox1r0*e
z>@MoY7Z&!j+4p0kF#aVBkO~5e%dmA{2LA&2ej?|D<AGaJ?Mx<OyfG`}9O0(ZukHpB
z1$Qa3_(#>z&(DD2K{N-R8X#;p5w-2}@4#y@?H*Dn)vP`0Nhop)ZRW(1rG@tjua2;l
zc*bOj1!u6GC^CV9Jl2@I#+m;LMtT&FK|qcjP68kO7T5A7B)fMV5p6zjMv?IaGi}5^
zO(&rjCB-zHPC}lEf$k8-#XLh`00NUY(4%R#NKvo;1!M1&vk;1jm1fuB4hE15;C#ia
zvMYWJbDTql&HrYgi+NX}v=ug(ifJDN2DJnR?GAIuNy?-IPBYvA%^I8MP|KMtp&4tp
zHZkQ>?bplUfqi-Fa`W_R5Dz<N=~E>~9^*>)J%94WD#q4-8oO?l>1^JzOWm9~!CmDJ
z+d3y0wCR<K5^x1$B4@{5F15#2z;RL6X~=gik&0hs@a|r<x7{jxVISz}Frh~)5uiTN
zYJdQ*Ts%tB$N0!sOI<(APEY*mnd$;2k%g4M>OSm_!U<*?HvO+^oPeX`1r{$7G;Ok%
zF%2|^9IoE@Ysy%6+$&!5Sa=Wq^$Mn-t(?DE1=q?7xjyXdCOP3hKk>xibZF(g0KlmK
zAgAv)l(xX*0Ko*rBlfNs)Yoa^BJk1o1_Ylu1Rq_gaLM}fu=Z9r%!`3xDD3e1&Q<Rr
zju;Ol`<fjE_&&wA-P3J?Zv#3Dy#EXNy)2u+L2jA*vY?dB0?a(kn4C={JRggk$C6I3
zeq@oippi3^&I$FPM#&<0%${ALOg)P$K<DWroOeQ~<I3#2Ftf6|FvLF~V4NPG7!*Q-
z_L-2UNQs1XweYg|UPr$RYCT8&&<pI2WRYKVf|{MZ<{F-mNoN3uAz7+GtC9coaj}(9
z;`g4l%95{&hMYeNtoL^e8vH;omiPmUuiq-uw-2NTUg&=c-OX5}#90jL!aX0nnf}=5
zW@P@T94VN4)0CjUiwG=o*lmMmyH<J)R)H<??E{b<@iJpMqo#+$doJhWssYI8=b$aR
ztkPgxCyyCgjJg9|TDDri=>EXB9VIGB<r+>1z(Td3AWEn6P~|NadBXB8_(=nk1dA7+
zOm-OT9$VC<^4MJja*GAiLdY4*%om8)o)BFrX1RW++H-62%#SFBkXJF?+pIkJ&J_mV
z^30H=d_ItJ>bIQuVm<B30$#%<5sUh8KLWW>?Yl_9fB|9gzrnLL9==>r+zP7%@c%A?
zZR3yKT*c}|SWgXrS*pGwUXTP`%f1Je{ZD>iUaeSj-u~T@@GL8*j=k0X29%ItR}CQB
z38dhv6aqZrM1o>+2Blv-?3_0D<@67#<uDQA#yolbZ6C^$3M8s{`Kd_S*{RB~1!hBU
zV)qkzA2i1>){p%4kDoveGvhYnp-3Sn>{;Wu(u?#jj6zM#98|q9%`w`qbr*Nw$~al!
zPUQy>0LbRxeU>#JHV^$g-}Cj6Ee68{)I@I$DB*lZKOU7MDs3lnYl{`^L3x5r<|NUf
zV=D{vuc~FnG57Ik^BQK&?{xTAU2M;s`TaLY0k&=kwAr@e*oRWiZR5zqx%oe6Rc~LO
zKh}ksN;_cV(Z10qRO|~!nZZ@u=NGZ{1a+j*b0LxP{ct#7^-OY@T7cC8e*_2nID$}j
z#7#4xbwk*hOD@uyTn>SeF>T!7t{?~MtY+fXid_i#hfR|#hZWopI8Fevd?h6Vy-hy2
zTkfK*_)2z`Rp85tc5965@{3AOoUI4E&j<+d(?90~f@!w=J3V>7!Txc$I;OJ<z;J4_
zvVKSxMsMkZ5?<P4bD3K<$9T=+dJ4@>Z*++4R+f?MTk{nls(<nLk3&FTQfCCj2N#%P
zh#3gu{P}SL#}Qwb{XG}u%$DcT@SHl~fPiEJvw?pKC$}E2t#L8MlYJxX!o9uoW8+dS
z1BPFH1B1}V(O@b&+uu7bf-dYxXa!(6qD5^bn9kDU%gtHel+jVYzn4cR+p=VMcwQg$
zn~Asr-;j|ZxIScwUb`cv@ly6Uv%q1fCQU4jjsPU9;W3?i*GpAHJ=WHDs75s*Skj^R
z$*;1sH?Pe&yGU;ab@(=aok{JRgCCq)1cbK`S*Mt%NF&GhHf<^nOvV}g0+0Krvbj{X
zVPwhIn^*A!K^uWiAWxiZcrL6yh{oBgZCgE_lUzB-!#4Y^zp*!)wQg3d@#qdpk?p5+
zRWF4BTAh9Kc|51;&_gqzbSqCHgTtaE*}dK7IfTrvIyyS)E&#4M*DcZZW;5U}JV`lq
zZ3GYRK>sAI0x6Tr%X9oMb;cBSH#=fZRWYNqk{{q8y%6lxyGR|m%u|Sh9g!b%^^xRx
zrJ!oOXlZEiFho_?C(P1Xw=gL)R;y$e`PzpN^Q5fUh#Ts{`|yGh0dM+y>T@WUi>$k?
z8c#v7Bby`xc|qV+bPZK-N{rH5g_9F{aRJX9OgxkSahkJvUg9f*{A&^8Q0NnjglwtA
z=glL>7CAB!b+f{~VM&qoqYovjjbo<g6KgZosczN~c<D^kl~;K10%O>snb$#c^)|@q
zLyP`jtrHQPs!|5DB|{<|;l;f+-%p31tKK%&TlYHKQpO9nN+N&uW<6L#4Op*~3fTdU
z({v}-?L*-3ncwvSzL)Rd4$1(n14fTMkDuqK3>NcVmhSD8t-zBwRpUqO!h8acxF=6X
z{0@2h<nH$<oo)h~7%2ieyXR|4cdr>kg!zc3mf`#lhKimg1&rfV08i!NiHrbE*zqlw
zvY$$PT31Qt@EacRUD}yC0c#-F=hrRtY**SGJPkPg0F5(j_c7QXle+^DYD{(#a+&}P
z;9kiH><_7}*(j8`+cVSi!o)T+3HUM+c?Mo-&bh`ou#-~`Z%^GuURkB@ys~(F((C~?
ze#`IcQ1^`+i}qT9>+vJCIcx}i+)MHaP=<zN;Pkbq-l+h*W-{aWgH)yNV{c#^P0rKi
zFErtf?;Gt(m;ma9_~CnbY6hj8-<NtI8;sqE7_bo>7>FAO-n%|p#1u0)r;o#pE4aVd
z3W!bRkk2bFiN1EKs(mug==UkJL{#-Z4-1ckF~agDP#;*v5U7uGpU|f#9hwj2NEFoZ
zm0qscVnmQ2MuVo)I8~Y06m>6V4UzzuSd@5DFr}UM?&jjKqRU&Z^h9o~xUe?N(;ytG
z8PU%Vf#KG<JflKas;hd%B-VD+jQ(0*%>G9u$nLE#`(c?pK^9I+4&3cmy2j#h3E`0=
zOHQf^!x8RlW4@KhB%Ph>kNYhBz(hxN=O$K&Z7@qMdOEts=&HNM_&Ec29_1=o9vo^U
zm3=$&rLOQ5EnW$~z-@-(#B3}}cH{N=cxwWxu}S*`L~dxsJyKC#(^<Sv=EA<l80bM?
zN`Tjl;ek)*GZNGV@ZD}_N@u#HX;q(vOlSbEpmuAD1|Y=jPhhW)S_tN;8@|>KeNH#z
zL5e_`{}uFPaUNi8Yd0SNlOn%>ZF{(&uppZt??kPiBObzabSY$K1SmU%Frq$47aGz!
zSq>2M$()I9xf;xQk0C;*ce#PF{M>3)XU1RD*+6d+C$!+zTrP&E!7u#3i2v4TBeZ^g
z;k85`m<k=*B&bYsg&s1R(LW=~AnV8J+7=$?MHFwEU{<;PEp(+$lx(1~WgSl0Bg)%$
z&$JQwbogbVo*z!nJ{fkO1HeA(Z1Y(D%Hp9#5V1kjiNOtRwXrT`P<cF4{H(vz{Az%H
z=jMYLQg!ue<-M70bl=yREW^olk3Gpz7^bbuD)B?7S4et6b6PrbMZQeSGfjoKxk0Q@
zLWBz<IZ^BIGofW6upZ(_fJZ--bYXb+26mBM#4=NzkAOE<o49@LJTYq#eSz2PppDR<
zv^&N@J_huSFI2|aQIAJ)_I6U;v}UNYN@Io$!Cu`vIauaF<pyU2P6ae6{lpT2d6+^?
zX*vD@KqP;?0J>!@LQrX#mQzJdlC^FUL<Lsqrgq#RXm(}#TKX}%uH8MSqwD|8PbbBY
zXWX3{QKkv|l$P}n7)!h2K9o;2z9v}_cg=g*HR{u)YW`M%3)LN~Bn{_-il&rODd+~t
zD~tfP^kRk@dex;~wlqN=+deapRF}4<%R{dh&o#bfz(H9<5bO#4Y2y=6fnB6E){-95
zlnjfUHTW65ObQTpkITxrl4?A2_8(@LQKtg1w@rP>@e34x0hlOG1*NeHe3ygPRkcDr
zU3C~n_>0CF5rCn4YtthgSZ|e7D};<zGn##5X57e<6>=;MtdjTAQ3$h<|J=%5B-O%v
zqyqc&BH!jq<UScbu>)w1wyta=bO1B0wlsEHUfgFl5M`6Mp?&?uuJk}3L@XgiA20Kl
z-|kQd#>C~xGGHd2+B!@KvgliGpk8S;wlxCZ6%sCKCfv)OJu?2+1h0}|1Y}DO?4-M#
zbLh|*R@|$0bKAH4zvi~p9HYRt^#(~<9LLX3>(<X8-%HLQzqjAlHgQwFF~SgSgaoUS
zI5R#nAqiEzq(aDJwdpFBjy1!4;^S<jZ@KhF$%+p_`OJvjbRuSbyx48v+||pRi<U1i
zxfZs12V_xI*FC>(a++ngN*lpZl5)l9Y+($2@D+Bqi+kDD7+>r95FU!i27|D?_3Os)
zmL^;NT1txUs~|h^IwwjI-eq@ryk_q`Bv$f8urpyMBB%T#Alpt)Nu)V2^(rh>aMQP3
zku4=r*8}?5#@8VovyU1g>^>@OE@pW(07tUOJ4Fy6tt}7w#-H5IbT_Z%`$G&D)*~>}
zyMKag3GwpWm<#c?o2oAalr16qorU5*^NM5U9eP-PAOq}020v###F2wiT`<{#Z$xJ7
z0K7J$CW+-y{74~&1$n{76Ushe!a6sjc#{*l5h4R78iYAp_)gcR#}38>FuuL$_SKM^
zE5cNRy}Z+iyzc3G{X!cvtMR?r|JWfsIK~cfz8l0)Mk*rIZSowMgBCK@o62oje_xx&
z44NAQZ0SE9_-GfeC1`$W=&9hqg9i^XuQjuy8Jy{$HMYY~=&sFu;a43(Bs4QmX>YF_
z0vfun5>aTGL_fct+>|Bg^#gD*fGz{&a{342;)0-Zw!eNrps{^7>U|9e7pnQqbhcGC
z739#C9bM8SX{#GpzuoiC>bBB(n0%f`?Pwql85RjTU%SjGAb~hx>*=gI@q=YoFZ}X1
z4)9lLhCJNz8$PYl8<@c5RS=&zE1C^M30t_#kLk$mmZLf5;*Dfu*B%82z!tsZ@z%=E
zkQ-^;DrcII;x7?xKa>?P-S{=gW7!?_kDKvdz!(L0s-|4JlqB6W^HnzbZw{%~Mw0q=
zgzwh4TWJ5oJ<lsrf3uYmx?fWIUQy@t&{8j-r7128^oAZWkRE_>zuIj=kK3ts_J_4D
zJ&5N+g66_Sfdh#(ql9s(EWq%SgN+R$ucz^ZL3|a)@8+j!jk@u``?=h#9>>cY6{U`s
zzm)y=zYnAvQQ|c$#;oaR%KM$~oTgRebKL=sBn&Wlajy%kq4DN;&{F`dAQ#}W390yE
zTEmK;((Lbdij3tf(pjuNQaZ1$z63bux7;rRn-Ttf`YG?iI?ywMnB$C5$oI<;2l)es
zAG7`4Rmpk521T?ybhj6~$Kzn!;7tqe?3c3_CmR}3Y?(Iue`OZCV;A;^DI0UD8>gDl
z3luR@#o(LhC=m*-Y_09Txm%PWZdJ*gMW->itwO)kB_@{kj-5aNl~~=$P#(iv$;P{M
zLQN-z#PeFn#?`C}ir=3B0#TNlKtfriKjNro$;3R*b={iE_Ikayy~}9BGF2uiZa+~6
z0Z-Xl_?jnUt%xk47o_5juWsMFk?(?uYWZ5DBO_7UO@(=HZPPRfT2pl^wBnbh@fz7x
z@tppA?UuVphi^);f2k8Y22@?X*s*P=tMFpCtp4R3iE}T{!P9t7!|BnC`njg<VW;Ll
zBRHtT`nGp_;qu_0O>z@HZ6Af@s4e<KsakI+qOk%P_Fh!ulJN~rmTLS`Fwm?MJZM+Z
za@eJSd>Bvo9yI6J1RO(2B<i%f)RU0S{Oce;r&wy$k$7IbFw5s{auAbhyCFx=^FqZ5
zkg(kTZzH(G!HAByer;^vAMR%tUaRF!{(EJYXDi}b4qLB>aGu8YcICm*T{`gNE^+^g
zqDbN3IY4G^D@3{M*%oH5WM{^YkZZ}G?+;SpDpX%?CvqMn=WPf8glg|hDWam_Np4>h
z@^m{rJP`?+D&2K!_*#MxaBlwtoj0_?qYVQ)V?=c5H`aQyK2k##6`y$_4<)L#HT}n0
zB<%|HbhFlbfWQVYEQRWSen$#4F2x(Z@Hd!Yl`(DcdDjQ9G#<BuL9iLwddkKUxP>uz
zkswDu@s3h9w)HPMx`E;*qb=U;Yq~eC;<4DYLz;hk0ZxE-PhQblka2{_3cd!u@@s$Y
z!I2Ia&R=EMIoRTK$9^`;3cPMSmOwNBZ#wk{l%-$SC-B<HlBtx%81118VJM*A5M--z
zpb#L_oT{uJkY&a0&OYMexvovgNwevDgFX}Qw8ge>G`J22Z9c<@&tbA8#^nCEsQ~uO
zPxJT`kj%COpOwtdH~|S=1(_f-j4NZsca&%Ri7wscGeD&uZh4L<`sg*Xcmm(>na!9u
z!$vBEz)NZvGjUfh-zI`JW6nXA)MNEe0PVF-M@{1!|J8pHjBf%yF}ubX&%QNly#CN9
z3~(tg1iCXTmnX9vH8IQb!Nwm<D~@s$5|Sm&ID1*}T%|yv5^dJTV&A<nEu6R2JYxzR
zvX$8IdguZ>W?18rY?AAlFx7ND++D`meXNxlaGnDnfIQ;Sm5E}a!kQ>&ePB87J_U#u
zsllMV+gi*exXqIP*BwH2`zmIy8(B<4?Zn)F7x6-wn^FUk6_&4Di&rFOjqW&DA7p;-
zMdqA_lnTt*h&4n6h#OcnH?6-MhUEseSN9U$6=g*{!8#&k?A`PBurrA7-B!|H$$i+2
zaIU5npoGvRMyT>Y78qKS>(sM8;fns5F61;Y=cfo{E;W!f#xJu3c9_)z*I6*KW1I3;
zmh$y4Udo3Pw`K8yJdQo>^xg$*OVnzY@4W{CMov|{E{r>4Dv0;g?`6%mG4P>rw$wAE
zbQAY<n)|PNIB*We?go0bo4<gggaMAyZ1p;;d$CkYU+*@o#Z7Ir$81<c1-Oyv8J2`X
ziPA)h<;F3TN;wk`x&NWv?$s9m$|k)o&)p}><@0u5)SIaFmtQHrhFTeD!^CX13fS<j
zUEQ2E?<!B3gJ`AbNzOCtJ>=M0nejH$#>mxY8%pPD?79@L)>YtmCnU{PQU+JQW_y+!
z5HXd*+p<akY#^5It8s+aj=6V4{OaC20AD}JjXVs8Zl6Io6gP5Dg}pKP--QX5ELbnk
z^kn-Rfwff<-9)1+Qm(#*RifEAX2Wd$^EQnAf5gH0YPUn8tPF+%-MY`-OhL5lfUzbX
z;xy<4^^#!2%t@?+Ejq%+ChaQUfZ5L)7Udd?ahx3Gcad|>qDcvD%+eHWfN@pTzQji1
zVILIP79@dC?_DhLS&0?lPu7Lbi`ET3N=K^|Woj_0t6<pn*)Jej#VCaGxgpg?-!jS#
zy?@wp$~k<u@Fk9cVXI}?bTMx8KVikgAJ?&haaR}6z|1_Gh-%*DN^JfInv>GPCN)g7
zS0wuKNkO8*IEH#xeiEWZ2JKhNc7J!Y+E&emQ8!$DN2$O8j8W095Pl4#-Asf}vME@!
z1;V?{w^v$D?@5x!mul_O_D_$UAA4%%#83UW%DM>2F|*{E-)ybd)?{CA&;oLhWWDWG
z+^fh*^e&e7N+y9zvq^8u6V4!`pt&?W;{V9TZ=uJ*VWHLf{j#MztlsV#X2wOdPvZG%
z!x%i4R7~Z~Pelabev`BLK|tPER55d(dV$)|iof620x2gR9V|q03wo#FM1MBB?Gw?R
zq&^pJd+)=*I*in*w*11W2&=L6G<kJhi$S{RLD=G3T;)8D7?NX^2w@(s&G$<KHWaC-
z-jP$fa=+bR@s<a_Pm?$gLf7}n+~c!ytflfCB;EDnANxQG{c$^{TqR3`6sN8b9PMn(
zs!R9S?=DF?ZbE2wbzaBI#~IHsy{?M+rDOYnJ0Yc+_LjvELt#|Eh(i}89jn}L-_M)}
zO*jBhqBN!I6Xp&?Nda})c0l?P@eifGF(5`i)#iGScPK~z_W60Ewxi$6g))_wxWtW|
ziZhJ!lblsN{K6as8FKR%C2xs*;PH8L?x#IeT{cOkKi<PPXA3_mWIPw>rin6Y39#z`
zL~-yRGYxnirg-Z)QwF13EbP0DN)~AWV&t8J@&e40v=%dLPj@ETU!Q+CZ_rTH&bIT@
z%4d<5Y%vn2{y70?ABq0vOe_Iz()DH@d!zAx_b&`B;V6=9Tl{7m<@A)eqBe7CHkl<~
zKVogZlSP@D#N;5Ell(>wFVtvQHSo&jo~K^|2J&8~)(mlI!8tR4=>gbCAHbqK&XukL
zj*;sNW83?&jbLG_v;+edx2~g===F_r)%cV4fo>4DO%lD?wp*rqhN12p49Cd<NN@VD
zjLYvHKwa|Kc=8``sP1-(+LF5?@9$B?e^!at^4Kn3Tbu=kcwA-U6V~9F-5HL1y}H*<
z=yEb<l{YF7$RgOtUFiD*gzUauLlORC(ttqitxB)*$9$@%L9eq?YCP<oY4>(BsFjt4
z)1G?y#^+r;$M}-?EROMKx`wLZ56uF<A3ST~FDWHp>+c-}z4}M(+|~bl;V4RkIdDfy
zCwv<5EDWGg9ZDG)?WnXE$lru5OU36sv|WqaluKpC`ka{xsY}NhAh{`l<G!rweZE{T
zy-}1G=tZ#75?AIYH?xqR36LzF5P)@<;-7R(jT6sDYx600escG=efj-PEBO$=aM(C;
z==QSvCr<L$qsb*)fI%?$99#pWM}XGDyF;kG`1#mhX--!9-S4Ptv#1(|)U)H=3qi+L
z?pq)_uZI83!xWYhwj9ZZGq_c3%G1#!pY1o?<v%eL=w<0KKd=TjMKec)EA2EecnNpp
zwa3neF?4fs#Sn9DcrL$`h6F0di{^EB>L*F7!ca4u#FN~z3yaPN<pL{Uf}bwSuCsAe
zhs|dE3L9YJ+GXW=S}BcVEdF)ge!W>qOT+Wk1Jzc2P1*<dO!wcm?>^@5_~EHoBq#4`
z@=`sEglo4^8!VmpM7KWtSwCJk)z6)LXob<s^l@32Km5{!Zy@n`uiU21sS2!<#Lef@
zVoot|*e2jK(wCBod;jR#;T&_D_plJ#SW(tJ+>Y5s8e%AV62|Qn{w>6LrB_m1?hobD
zT7qbzOd`R%q8gC;N-6SbBi9GV7CfPgB(`#SHF?5I-x%YbMy{=ZV+s>ejE*L_>f2<n
z+8s93_(J<Oki%B%)QIqP)-Z!!72`E`<0kZWHe7d|{(@djT0s${KpG*^K+qqb*SbJ5
z$H7aUKcs*(7c%fuHD6utI_Y|*&OFR1$3(mlDfuc&SPrkO?N|42iMJiUvdgpla(|ep
zGRYP1B0WB5%}0hSr92Y|Pd1+?HPK==ElW%&QZV8Td+_^=9{RV`g{%MchyV7~4nw%T
zC~3(1fKG(6Xg9jptk#7SMvekf;6x7(#Rl%8`D(s^jjmbw2~DF`M03be+b>O|SgFBC
zud9ctW}Tan!+BcYHGT;FUD|lY>X$1(v|E^Q+v`z?a(swjX_NDgC$aD9-O@Roc2Bxy
zZq6QE>N%nj@xfQd(_$-|R&E<=2k!!Cl+GBO2`fMRI*O-~YjYip)_Qg~k8l1lqVs98
zNt$om;**+;s$BHn0jK<7d6)H2>GU+GHwLYLWz6oOBswY{aCcUCB$ns&)k<mK<s7!D
zF-{CYcT+dj4qik_`cBR?Eu_R51!jv58iIeka(k@U{_*hu)CkxsyY8%em*;9UTU<<o
z43!{(Cik<CaoxB(=>w`e8wI7GME7T82p0?|L30k3)d^bFq66O&hm+g|^&Lk^<|Ojh
zFKTWjogF~}r<)|R0j6;tNa8gU#WLMYZ3X|i!BKDtSwA+2NG>cpn>RcXl$!q@N#92C
ziBvV>yUE)y<HM=G8eh`fc<>(O>!r>0Rggdw4?RFwFDDE0B_u!qU$Qb#JYyfd3G4h=
zjK8+r>D)#){oW2e6<qJYOD0GwuR}|;)Bru%H7S1XVAMXFJZpmMq2c}I864FeE|24K
z!nT)1KED|!EKiPJ3MwTKS`Jb?|5mU<6zEtnoFMF;$!k$@$U{lHZkL`Wt{~%c)J_Z%
z2z37Ot7b(8L3t!x$Vsl)=yuaOfW0$3=h<e1sZ<Hgmw|WOvUtBw-Y&-uEp082kS+B!
zf<1|Rk?)Ty4&H2FG-iZI{g1PA4*^>7=Bu%cnlXUa8K3B4gS-TV?z5w_9a!}TUY$K#
z%;*e)S_gI|)i!oXMk-C0oa{UP66ePo4D)hQNtN)ibkJDroidK^%cPt4r4mS$D_Mgb
z&1rgTQGcdc>>hf(^|xy>GQoaUCFc|EUOu}uXxw+VbEyII&p)^AHX?R%71YQAL>!La
z?@bLbkmRPNwUMh6WvRzY_^sAWO=0fKylvM_wQzd7XUfCEr%F$2Y^^7Sjj5$%`8xCu
z^#0I-a5SHtTXZ!&w`wUXeS)*Onpc(hSR4Sn0wA8uh)c3!)^2vSf_-ROca!+LzB|2z
z?}EJS4^a%n4s8f9?#gU+z%-^plh?XTGMB@9M@#gc>4*#495e=)oN~)@23g*O4)dKZ
zj=tx&ym=!umfm9T4sHPP+2hlTN#$qq`Vq8;S&n0V<C?tGayT+m4OQnnvq_cnXGGW7
zC;p7=x<<^X<e>5?G<Rt5*aO@LHB8}q$5E*RBDc+Nq4rg$#r!#?Gy8&R(*iH0EslSR
z(tPIPd>ZIB)iq%3GCPupmP6#%FC2zN)BEK#mN}4zZb2!l#zAGH3GaOF7ZeUrX^|@k
z>!+PgWaKZ$veKJzg_c2&ssYc<5&Ha-m}Q}@=g*i?)+1&Sf}!WjuDcB2g2qLE-+}C(
z@#7pB#3Oi%fl@aKUfwimiY1-J=!UI=*L%;uYTv;3+RphrE}mcP{~FidJl>3(3>6O=
zk6>|Kt9mM}-u^pPJN^_$Aq4i0w%HH$UQzgyKLLZ=Va=F@R9bFb<Nj7mR`;*dYQ-FW
z#7l>fUvZb9#K3CqnE+jf>Al37=0fP#X!?L0Bl(dd%d)IeK+I*6sMv9S74~o!%K99)
z4oRyFQ9T#Gt~i}-BOhFBjM~Zrf?{p)VUf+lYayHWYrSxPe=a%Wt3-63XJEqf_>+t)
z2Vh;8?EkL3#^)s2Nct^t<%6Gb73{)X(An86A^gFJ<sG=ALF>09S486$JrU@pH3@m7
zstm4|ElkpXH-~FlD)p3=I-=21LwSqx)w8=|_e^W(QheU9c;9tMUhHs|0=?!r@AL<=
zp0?>xj;;MkVUu#1uGseW=nt{#K#BKkga?$HAAdzs{S4rWBhnje-RX%DXidob!4IT1
zQ~}MgF@R4=W5f6A!ENSHmV`n;nwuA<F<5nsmH8q4C_iV!#V1T4?BG!D^|DwRlNqfL
z4MSYZl*w7riqzR<S$m*cE!ERZ!dn&|k=|(~lYXbbIn7YlU#o}GfsOKZ2bP(5lhYSX
zr&W-rfZe=20t-u0EMybC;pl49_z){zYOp`le_D|}dT=jZ)L`a0Y0Y`#D6X_L$&7$3
z4JL&k)<+&hb_xLHR?x(?9qWct?f@*btew4wUqPV~u~Wo=tExWu%6o@geq*3fXW>NQ
zW<d|9Sw%u^vH(Q%=$<-gBHq#0?Wh5&!=ZRL-v(FfVDzQz%R(ZHx3LWLks1S3Qv@s?
z(x=;vw<9g2*e`!^i8tee8PWISgxrq5s@fvvMf2n(7a@CHa+q*Hik)BeoS)DD%&_z}
zhhhFCxeu0Jpu~`RVE9;4*@q~eQMU~?10RMcRNZ)OqGt=bASgc{y?_CQV@_2}G_tOC
z9ePYjC)GcY{_`BiHe#HHg!N#pNac(}L8YNJw=ug+e(Uv3qSE3)8)mh6|3Ipr<g){^
z(+RacRhn8|GG6{UjCZNMZQhm7i{%T~vTqK`ER$2|ziRe!2&us7`Sp4$&oMSB&wnTX
z&$B&#l~#%e*<~`67>L9#&*s};8?z4;f*b~d;Z%T_%{JRMFIljx4j@An^Tp!XJJ~jV
z$%U@wx;dT@pztEt9Sy$!g<FGd{@AX{Kf9YvCP*8<w{7J0H)?s@WTf(}33BK;Kgze^
z&t!Hx&J&Q${o3knQ+Iq|hqSvQt&qRLA^Vr0M+@)QU83pXXbF^A$n}JA%76y*&i6bH
z$=#VP_KverHzMa`7cVx-rG8&+k}3l98N|ZWH6y%rO4?=R%Pa|4p{KX!nOXfVne>c3
zhohEB<-voVtE{RypK#QD_jl85`O1Cu1GPXMG8G<2ZQ+~;vEWgHM2^#ZJr2s9j7@Xu
zb+$FHO_K*uNR^t1eE|4!yzPV@I!kp)`Z0i5-#t|ggGj^^#sg7maf-~JO7Qc-V;qZ!
zOL%Uz(@6kPvwFlO!|N2*A#_XFjYu;|uA8%sWp(}oR-tsb-;W_>Z93^=V0QEyb@bnu
z0&Awvg1Bk6cN8S=H@mda3(^jaA&oDMj*U-95dll{0f05{h$-lWU2wQsEOv^^PB<Fh
zymK_}f0ulK5>F(eM+X*@ssIG3w4hrdoagdH%~%J+@Fh`;{!Zu8{fK1l&ZXVnIb7io
zKBXwrnT=EWMd{n-5A9wmwf9>av=YC9(eVVxni{|RLoT?vAs@tf(8l+%l2egbfeyiX
zs(E)bxo>_IwYIgq8&7J!1Ve}z^&Rl*aMa}Mqa|ry9tNCK1$7dk2rv}UZrjC2{!V(<
z*kNCxPvg7Vwv|giyN~1uffKRiWR!C#k9OMPXc@crVLTIzT)0&bDjt{|M1#84;fn`u
z&M&IV;ogux3}Vi*qbTbpXdv_|m2vXITNodrDkuZK&VRrfZRG7@ZU;DQPr?P|z#Gsy
z`^yrNc|p6h;kM1_D{(0GzZ`%S9`7gOT&kIgREnI=W$pcaEbd>Fi+t!dbOH%M0qv2I
zyZH~f5L^+L>Pu(3^n$I$xi0ad&|4vO@Nz4l=5nN$HXPoId^#9fNt|{Ga?CRD|NO#~
zZ8G=@ZV=tye>?a>mC1gr!c;!^-tX&*=nen{K7`>xZmXIY?Xpu*1U0aF_!B=lZ!2ZX
zS-JgNn{r-&IJXL98hm_-|FrE|#xwtsU3p&mnj&ss47l3y@T*G+mxT^_*1zW}L(fn^
znL?gH(Mu4u-|^vk3sNzDL{R+?kfIQ#e#+M)zHPq02IVk3cbOQ%Kd4u<C*8ha@c<Jz
zN`%e+Fv${Wz#tE6X67G(#uU*BQ7fc3;;eUZp<QVGZA4+>#{9cqm;AKa48plXf>#CF
zp@;2Q#Lk{q+?WQ4>&K$rqb^FdLxxt(wpUyqq+tsvLl1i}tpv7}fay1<?T~qv2X<Ly
z*E=}Ab<aRwfbNNc1fOp!X_xF|fDtwt30lTfZ$u|7d6*VBsAziIKFOudwxz_t!;g<%
zG>vDIj95FA%zqram@dY+ZSs3qaPiZJNiI7VmQM;YBq~8Hm89{7=C-<OVKv1WKphdd
zFE98b2JIF76>{ebg(8241;^6eLWeg56hU4$LMZisYO)!>$!MGJ)e@|*u;%^mj10-T
zUARWQos}W8$KHz*yTDgqLETncZDGe1NqwPltgx1SmAhU<L6{lL{~<<NkP`1`CF9R=
z^Ha)_lPI3H<zh`_*XI7V#-iE2zIji#xuIihBQoSqpLq|&Ctw<D885Lg*TXwexK-C1
zzB4XpnV((;DaOsxSJo1ESpXd#OEwCDGq?y9;sAV@iLR|+6z&}162}?;j9AX8Z_|OO
zfmBntDFC7aK|bRZMM(Im#PN7S=x<)uKU1mhDw{l=aAgWZ54t|s4sozUe5S;+vGMbG
zxV_!mY*F=s;yZrS`=J5nc3~6bYMqn{@;#dU848X?w+U|qsKjxq{-5IBGpwngZ5O2q
z0i`P_O)!9TP?~f>ks?LuH6RL7Ls5FwC`vboARXzw_ZGTHla926E;XT-0NE?}zI%Uv
z&cA)m@ydk}*P69v=4o@^&ph+~X*p3_m)oxo`-8yzs+-QFT;CO`CREa_yLHQIQ;h~!
zI4n6sW!R#Zm&5aNFpy%N4JE=<mYFnc1qpR}5CAEp5W`0-!)ccY{k40BCBfrSN~h0^
zFt4%IrB%;`nrrgsMeq9Gc-^45<tu{5ZgqDFAed7_wgSm^tWZ)v1-H+hSFgLuwjd#)
zmpv7|>?uvXGrhnJAdJ=OqTh`V&IC}$ZlcX3G8fM1bPk8rlU=o$FE~msig=O?h3VE0
zj!qkTq#rLSMwd(8`D1i^GAiN@2V1h-3}I#RilEXqG_BMfUB*E<%59u>c)vdysAfl&
zbZyZ58jPyz6~Lu_m^-Gxzd@elKZH>Arxu3WI*3K&2j2%GnwF~*XKrZM4<y6Y^v(Lg
zQ>4>D4#AQ^VODG1M{Ls)fjxNG6HrRl%h$gPD2A&*$1N0?Tyxph>Utl}pu4?`HP-xR
zHE0F>8YzJjzblmHM|VtZwZ;`&%@ni=uTqw6y#%L!|EB{l`IiG*Mv0$1EF|?Hg2oDK
zP?jyab_(tO6*?8~z=0Sz20n1DeoIBVk?2sm(whxEoFW6>UhS6AC0tAccP8s1;E?&!
zaP3p{9612E%NGmww>9tnwZKxMKJF?+wb{;B^F}*p;Qo`k@g9DuO|Xt4#H6~MBWW{;
zl5OjS*^OMy2J+E?K$>Gt5hC@l^fwmOk@yP%+4;{64AWYeYU67%7kL}5uB08p50AYk
z{8!IqI-oB%{BqAOGeY2*t-K1qnE_#5Z*E7ziiDrbcQSJX$}xnRN14`MF&a64TYOGt
z<Rj%`b%>xG$Irtx^%Q(Ag!0epPy!r<D;I`L<Y-ym<ZfGJ7EKFf;}!4!z*=7~$L+L-
z)jECc=yuHwlZn<gLAgZRi&bAwNHQ-&aN?=0ApU*VFO?`SwNmRNhAf)sfn|>d%{ZY0
zhdE_Kz*y58%5!eS@SUJLRu{U&O*b!ZxJ(xq)i$YlcoBkl`Keox38*F<P>>{U|AtcF
zoU5ZM7J)vS2%c2HHaIXirjmE|L_a0sCJcFa%yFp?fL^@Bo1KH0^{@eF1(F0F<$E{d
zuUc`6P)M=1t;LFJNIW#6Ec`I6ZDl3A+-CmmJ)`!=VeqGz+fP3_@hD#1D!EHeJAAFF
z0!Um0T9Ln$ErPz;t7l@qgda#$QjMsp@71xmT;m}OAw~<exHSZ&ka$(-QMx`qdFh-)
zGN?&n?<q;FPxir3$q`mcSPg}>4X_pBbEwqL+b-=q2?a0a>0v#)v;2)(0=P!7>#}@L
zJzHO5$Z6nvuSXA}8)QBuD$S4=hRlrUm{89L5<XE{(`fR1ZUi&|KmB$oGUN;@ZSkH;
z(!>kl0t(PXhPGRiha2aqo_(Ux0B6Yd4nujjIOG}g{Qdse0D!gYrH%fUwkAoo8+#cj
z1YU9xSCoRLwP7zz6_1{(?lmNmmnhd$!1Z;G@LWTRpe_q(`gNsiA~(HA62@EGD*ann
z7dhB(pIxEoBtEXk4^AHBQftqb0DkeHc$XKbC&o|_Q$?6Y?kWz`kA{%Cr)Kb_Dh&!6
zQA?iDj`~rw`QEmm%m|=%KB4O~HD8NUNIzqPNMXb;i89<JjpAP@La`2gm#iC<$;Y@I
zwjAVaMk>P=qNIx~3_R~etfI#6b2L%3O>@i<X&5RU`^F!!bkLW_w6DzJU5;4hzeXJU
z9;xQo#MT78ioRgFvF~0y?Z6h&wk+a9)u9k9LjQtz#*Mur<Cj0)TL9{7a_KeXZy=xP
zKVUf4B}czE9apNS8m=luk&^54-gK5_*%cSTjU5hB>v51a6MM=LnBoYI<vz8T+fkS7
z&zaySX7uP^E8pZPMit|)y3)bQXt))V2<B@z$OLAoG*W~hpSr{>8FXN#b3vxfRC^aO
zZWbW~8r+JqRJ%}sQI%_8*a}TXn7iyX0Vn@@c~(!fd^Eivtqz>-{imFycq{Xqy}^UH
zl%s&8cFRb$!csV<LJ{ik0h-EtSyTMb@#9OfjzufGpc#t0a|H8+ZgC7u2Ldw}6Cy`{
zQns90p+SRfMYa#u)X8%c&&0wnL}qr6M9}lZr^A<15cO|9dE3T>355xf!U{m@M<{)o
z*Buw|@2gh#VVs#EimJg6mSvmg1=2v1RE^i#)O5~dXU@n<Elme&-u7GT9P0vyVxeLX
zWziS%|J6sE%P^pHP^^7;qBoCu;mXfIh6JMUcoNrp9W0mzL>?j#5h)xy!ZYJz@F0t5
z@ixu^)f~Cn;(c{<>dP{6HbjYHhSF1>K;|ONFW(4$C5N|{;*JVieL->71Mr=NpDSZ=
z3?5YbDS%HzTxN)!{vO6%3IAB1+7_EAjgEUNm}91TYkpm_B7`~)qG6-_^WhBDNnq|$
zSJR59ksCD(8RGS(dv8vHRXxmVpWg+m59A6=_+IRLpwQ{4mKg9g>5=WG6{peB6q>ey
zcI8_t;~(R{!p#M*9SKf8FYIj*vl<bGG~yS{#7)|OBm|zd0y#DZS=7Wi?U9DTKr*XF
zPVC-#*IVD3&S%Tj7~NW*2{tFF4X<zarrfrn(MjWfa{;P%bWR=8NOuFr-ntyE+>8zn
z84sDSpJ;liIh+Pyo@i;$)efD$<fQDZ9S+c)PgYO*azvv?yTB=M2WPoM!vh}n`&)Bu
z^eKO1!E30?bcTa3N^DYs1#f6-&FjhAZrnZRU*4zGsS7VskB`2dvYjTVkrD0ur=jQ#
zsR+daV}mEi)QfFFGdhqFV`zR9mw7QF;xLgp32(du-pK{0HmdSEM<}Y&6GbaJCG<uO
zc1rOIZvE1(#pQS5@fh#4Bf#vRTHL#IJMH?j)4{X|N?%Bj$HZN7bjY!lR~f0&4RS5W
z-4@{{+HYp0AHHnfKkl9Gh1RW3DKwwcpv=;4?jCtUTPB)`tggfMEZ4rwGT%}2FPWFw
zixSF8qTAb1wLj*{s(m{s&zt_BYvI0~K$hsB+Tud)h;#xF7F|>LrzAa^d@bEozBNwX
zWE}*qcaq$gMC#9E{jPoUqd&e2Q+Riphv=c<TneZ<l2tRs9K~&=)@YH^kw>AE$E_e!
zhqr9s1crkTio{YCL_0*}Z;UX$;7`tu0*QVeT}ss^T6`fCp1P~p+RMqMCQTmy14y$x
z`0~c>n_<m+0_Z(}k2HB*6jI9OB?FTcp_O9z`OpmB|3zud#HgOotp!#}YobmQMd;Bw
zCfp`Iw#TlYqR?C)=&My7*ZtwnA#Ni!bIubFS5w*TV8l{2V#I2i3NF&cBkWQpVmL!0
z=c>=i(|SdLwZQAk{D;$DOS`6;WQ23o)iWlwHpG}bw}H85JW9tJX>1GbG@*)u%i65T
zkbo+4D)#cIyCD(F^vz?#(dNwtHG!sD8x_FP%P5??f9y+XMgy_ZXI3!F^(RXz2g_Z6
zKA|pk_#jxOOKHz5?PjE}O;nf8gV{tq(m=|`D8o`QQVW<D>!u&WdQ^y){R3^N?DYjZ
z8kL7krfhK@UlVJ#hO2aCUQdT$B6ofL>~LLb&yl&G@3@Jo#efB~qBq9l#kj7i_0a+q
z9f8%=M=`v!&7&5p0hIo#a1zyr1D)4=3JvqG$wR(QuQU$_%#^dpN{SW~zE`4<jcW>s
z?!Rf-BO0A_C5d9EtZ5?3p_g#Ug$PKjG}}{}@NGV+b=#f=E6uK-pNDeg2`}xIWsSnC
zyJ%G29_^9V{rp6u?2yp$O@1~BZ~_1L@#g3(OY$cVPraFv+lFm}^649_SdBU7LK(HQ
zli>5DMx{lIdCDXKF->fnwS(^%t$M5x#xytz=jQCalV34PyS%@=0|TiHo!1vOVlo4s
zosMM}^?;z$H{8RuL+#*KhK0zMnHV)3@4y7j5AktU3f`BGG8!nefUNGh+!7)3@;$V7
zzad~wQTX8{Yi05KVeqdLkJON9>R>_B3f)Gzog+kCkS@m=5DHxxz2E`BSpOPeZbou~
z+$&H!3i~c{YU^(cN{-ze+Cxc8qPwg|n4&nBEar|r4c}Gmg8BJL$YZ;h&nq+lUm5++
zUy0yAsLyV7(IKKaib;UmS{`ZYCcG28wrrU2er7tz6>%3OayNxCBhjj7goceEfMBn|
zzlX-GfzbJ!Usb_S3)GtWaF4xRumyH}5603FleR_z<Ryw`3Aeq=@m=-3Z5Nn~O`V9e
zyZHr6;&M|Yb{A@%0>a#e`Obw-v(0(!FeV(y^<rYG$K{k?KY%9;%P3`jPz_1Fr%HUs
zox_tZ>)21}?Cs)pi1QY@2}m-yxXh71C{v<6esy^2aq@@Nx<a-oh9iY|o><X*EUjA6
zSrB$V_<pc9LeR6V5$zec<q&YC#)2xVm*WBB3&D;&#HhN*C&dTsE@zwq$5w+aT54o3
zx<W~9t2>r#zXqOEm;z<5?%xhr`K^OPBhUslk^oS~=kj`Sv$F~&H`0970$YK`dz_TF
zxF0#YqD$(qm>6()hS3y*n-!Vp=P%<^Vm+)0FfUaBF5yhO`m&w(8Wx*5!uSkuk$=&o
zpACO0-8WgX`F4cQry_)|A{!icEfev1Ic#u&l&0%pBh@!H(!G}P^QvNR!ejp0Es?te
zKa$Glf4iCbv9{e}I-;*_i*X(%`0j$!uM*`}AXK3{QCHvoDEjtfl})xqC!zE#pVm5N
zsGCQ$QMkj)o~+%Wd_t!Jf(_VQ=qzd3Q@Ge2iXKFNx&zOEn{AhhWp-atS5qHW%BvKQ
z8!dEFOAI`pB!l`lQ{%1qm4EBt+vlVrSG=fp4co_{+d~&(81vd?$nAhzuL<Nq8j^^!
zSZvMc7?kMfs4a!-pu9asbTv~nk}5d1z()Au<-zCi2*323lkrVd_ASSlRY~2ug-PBP
zy|i{^`_*Qj-r9kC=o2)=drT8eYMSbIh{+%nlt8kW$3I(sHyn0)q~uKO=v}=SHVov3
zwF!LULVcuq*Py>5NA}@^$SE|)og;w7h*WuXaS|@gXf2y=M$TWKXk#_COS;Mh#y$3+
zsJ80-VeqX2JD89>ZND*LX7HL2pcZpUUppmLc)j_bq-Bl97oEG{`!-d5pG7UGk|@JJ
zVN~Im5BiKk7g|qz9VCx-H|7}CR<E@AerkM7*ZgHgJ<PBLw<0L_M-uU;cV#?wed7ZB
z@mLgf_4VA>YD^P&Nxo&bjhTIGpIPsJ(3S(lT|`mJXD05?&(`S~XUh$>_L?SM(0@U5
zargx+Co!k~EqZ%s+lO!QdUyB?(OIVJzyjrA0zcg?0|EOhbM{FU$GPj-_nT#)`=8!)
zEC+k>x=05<50}013F)X63PHO-0f~FqqX<<5{+9eeE3(f0i8B3w?$}IU@nz53(*2my
zeMfRe8)|j|$fxn;M&8N`^E#F}LXF5N&p<V0m2hE#M+@j@ci(K-el=4i+R|lN%FUFU
zynpcUnhwA;{U}g_vp+tTL;YS47}*vKw~zmG<`TXm59|YJ4;IC<oJRo5d7PTOS#%}W
zsWxy(_LBnna?*k|d6Hr{CH%#%U%O|CLNgEcAK}?OD#xzeNF4w0fx?a#QL5@C+i+~i
z>JQD9)yaj%|7pAj^9nqyV$(b!>aF0Id2nw9J?Z{bdwjh|TJGk^&{1~5Kaz7KAtKnz
z)Z4j><^dQ%O0#|I`}o<p{7MYiPW5t??_+$PQxP`A20QUo{7KYU!%j4Rj_3|z4&LB+
zN(A&?;pzuxzw*EJ6T!%@y>&4@foS-Zw#3b2P;fuu>&Nf?{I&uRueCo%77787);awO
zMukx+Ti2gmL$&1+6Tr9EzWS-}`j<EbxVoaUI;V#4%;KM8a++Pu-k=JOIp*iwk!;4M
zBf!;hOKv%jkJ(@v*@O0{ds@{ocS;!+t~<H&hyxzalh|5q1WgOVR-u(RcvmzOV8;@u
z6o8K@c0F8px&L!Y`o-DZXu5XfQ#@VoA@dpbOtT+(C7W2ATP>*>pzECggVi(erOKLo
z=lsh{rv_0u;{u+I{g+RvBj(0-LBCoTUuAY$-!dFuxn(P?1vior;+}8&ig^hwyrVX3
zX^BTKN5gKU67AG*IDZ(bF#rlb_s8^-jV&15{;&l8R7I0bw3zOEAEP+o(6P$F64sLY
z?PCN!2&|iL{xG5><R{s-uWDq_mm}8ah)*S<z>Fn)8!k`vd)-srbfsIsscn_wOI!2A
z=in#>>DBBK^oidk2^y<CCqGr|22kU<nX$$o=7GR8Ofajapm4~~2nGsBzH`Y`_gPmM
z^wjOuOhn1^yMC2cHhV8E)!Rcqj4;>bl{H{fL@T^)z)wk1<n5-rqGo{1F|HsoUNJ(P
zXV>lrJFtL;>NkSb%810eh59_+9e;!dv~%kkvvB^>lDV>#4CejjTSYt*mJ+^}C)S}$
ztkV~}A}?XP#!tZTzu8f>_IC<Q09a|Ex0hb%BJAhmi>-d?mbEn%rFbfis&hl!xb5kD
zG)^88ha4#)t2JK3LD6&VOS$W?sK5fA7?>G|k+kj(h%@vxIe8mJuN<8jM3aWZ_|;>B
zM~s9VE00(7x8q(tHcaiD4iyr3WVQ|Br#L0JrKCv1@JNJ~gq8%<A!3!ialV*T&YxV|
ztU36U`y?PGCv{sd*?rwmUykE!#c=htVEJ+BUTW=X^j>zB-6_@ZQWyeW>yXOOTxS1f
zBGnUuse4c67B1R!J~1{m2U+)_R-~{UQ=gkFgJ?sPPNoqZayc#4-bJGDAwS=U2syb|
z@FmK!&WoasglrZjh5eVHiAGoJ?hESQ)SGqff;<sD)p5Kb?rQPa>F@o5wc`V2QxCLc
z{HOFen^-ON>fX%k`$m;WHUTj5os{eNK=1u8^gEKj#rnb5=^M>kh@Pu%6CQpXR#)YD
zSg*UdgWEdzT|=DdU%F6}9A-Lf!okrLw}&R%CX-jdCj2qi4o6<}XFXrT5xGAf{@^<&
z1?^4kmtLjbx(cZvVp65^Pzxq0PAs$Bc7Q3x7cy}ZsxGpW_-DP*wTxIqx+A;;i^V+>
zFa;O^<$7!WGHwu5J-D)9-=*l>b8})u(z<m9LI_QUM<x@UiLzk?!O@3tfugzH_KQ+Z
z2X-S8!U_TH!=Gi$loR~Y_h-6n`;A17Y~V}XSzo6aS>3jU6V3ay;hA3$6!`d#gYjwj
zSd~9!7+v7O9s6rqzl93D=uBqu;f=0pP0-61?}@>fsk~@zL^AA22v<@2%HVfo%aR=9
zncGhKD(gePH!URvelHW-n+z)N6bbwu(=@_32#82G8<-*rX2#}l%2{f@=kUrF5!&x`
z@UP3o+e^@`nCNINmA6$%2*+ikEf(9`WmWbUNhjxF)N<%g&-}9lInEyu6{wB~e<TH}
z2v|j#t~9xqT1SKJa*gnasPrp0KM0kB>_SqTU3Z(I#7FIBCW+)@3bQj!RfX#@Ei&y~
z&=B2ii2L7OAmhIqM7j4h-67(E7*`Ph!#7E5#t^H*^H|wsG}+Z-V9!ma+=u$y1Lg*p
ze1$gu{Iw0)Z!GPKyx7+iEjoG4zZk2=uBocpo0S|S&gWnYx!>TxyLlD!{A9U>wI&Ip
z16LY`1TbTMTe21uEmjWM_GQP6G#mPISosy5`wl30J3^8n)Lr)I-r!y}wL>Ej&m6b5
z<mF7i389)4>9yAP!WKhM0ot^vzYq^?Cd0YjI$UUbVS4hP#A`R*7*2%^t{L6M@tf_Z
zy0r2Fb&^p(qS_zZDxt>^*cT1G^Y^s|Zx=y_!2>O(7A94z`a%BazialMfA7r@>1YiP
z!r@}}5Dmzb@BS@jU3g|kBPQhe!KnD#MJ=^JlIXAThWy!C^x6I3LNjme0Qu=mg*sAT
zrQ@EE>|32|UFDwSaXM25)fWD({j2z-?&JM)`fir-J}C}@;m7v}vHBFqE9%zRE-_JY
z0L67s;K$=XA%$o3;Ts_@ubR~hCN)-m*5bv8VPsUXi+XX>igwK7No-||$G7|rPqkD8
z?T)uRHdd*?%d_UoOWAXC+fM>^2zuAnct=Kb6UtT{Ou@?+F}lYDig^yBM+Nl?1dbQK
z^7XM_+)QQM3+8<Pp0vc5xokT{H$%JH>I}Ih-N$QPty5~PTT<kGeAIo>hwDrF=2^44
z#|nU89W9c!``OieaEF-H`Sp!a53U(kt+u5^oH8C>m{K&rv!iAka<Ov;3l`<C-#2(7
zGmdKPeih%p(RXfv6g=xazdz{fjGXpWIe)8<=CG^t6I4|9@o7dbd|#Cpv7Voic|KVK
zsG8@1k=N;y8uN>eJA12rXyjf(jO5=`F%QXKJ;g_TvPZqd4-90w?Q*C=cI811&!ybd
z@9mVYDaZnA9;!xEmOm7I6FXrDNsfh^>2KKd86DT{#Z)%F*2_Z|Hv~$|d;9qO8bQl7
zC$36*JHWGf2r@Igs*g=M)P{dry#rw7x2oFgW<c5_PosyJ3zc|zrOO}i-$ZgAg=>sY
ziKvJz-Yt#jsNeQy%!FR0EQwWzeR#heQap`XYPmWOQoF^Ob@9e8L8K%pbFaSp@SZib
zWvf{l<FBPq^^quH>A#!ZyZ$5Ka}_vu2zYrv&{iOclJYOvuRwqAK3K@=exW^I5UlcO
zeB#3DX&p8MK{f&$+OlIWeE-GOCUD2y&=j`6JZd-yoZB!waniRloYZ|y181Pu@PmK;
zwvRz-eYVw%oZRw+bBZS-w|G}LC_|<788G~>Itv1s<G{-^o%aV@GEU9ZYr?&u57wIK
zCzC7pe*;!d#Jbh&^tOPjF<+oVmHZY<LGohd2-#nDeff-0!vx~Bovh~Jo!CjbVerXI
zcs9g%F*0+ln73!GB(~vu*%Rooyc{Dn-M}jU5sTkIjKe+<iIKQnh8GXBjEv(psTuum
zUA%oSK3zD&c-lh77<fY^nWRSw<tnum=kkl#W!-STQWsUh{$4lgz3ysj9#XQ7zo=om
z&bIH`vYR&}d`S;w&?fBh3w%a8+%N+3&Nx*!6_VdS>n*^}`C?8KRN+g?h(YoZwl`l)
z8H$Xl+5C1wJ42F=iou#k+9*EM%`}A$_*^_fq1fkbU--N2W#B(?kB5in5m7+d>ieLz
ztPHrQDemm|UR*W((K-5otub_W>KiDDXoh`3EhS{%cNzRWV6bm*WsJgRs4rzXj4|Sm
zILEmHP-}JBE1V15)AHu%8!oF}Tc+E7RcdSB*bPP6A{@mBO+|RNd%kPw@-3feB1^@N
znM|bB>`wue5bn?&%g<v+sm}<9ao|@-Uz-%q=S2Z<aKt00eqk=PJDnL(^7S&M<bWxO
zdYUM)r4S;?Y3J`U)E!Lyac~V1gbRK{TX@F0U-(W#>%%UKYU;<A_jEp9Xt&;U5ZKI^
z-}{>p)vV$*wZSa2UAx%*QHIUVNgQx_3|>xv$BAIuHWE8y^IrNQ0|$FcVtz)-Z2x6x
zfoF2e;~D6@cC7{$ArnFt%ASviC$~??pQ_IP(ANpz7m37#tt{(EGiu$h1AGWr&B^6*
zmhE_x4(0Cpf7NMfkagC&%}Uu}#|%$ZcB4z$&6uaq!(-<v(s<K0eEY$&8tR^E%hfo?
zYdtH!CB+4@yY5N#pHN@2j6qNFn+zU)%S4o8>RpskuT*g)j8NhdSx`ZVz-21Aeaa>0
z4O7?UAcadlJWUm81{Q6CU)kReL(}$|1RxZ0{_QNeVDVQ#H|t!g0Nlrb8~<RPgj;jN
z%K(worC5I-EECcJRS;>W7V;zVx(e@3J7b<ifsXaim=BknmIKe_c8gD$ATt*F#@TKq
zC`FIn-vo*^G1VNUasWn!+aW4{SCj02oB#1D+KfC${@zm_V5R^I&ie1pvyE>EBb2w)
ziLmQp)6R8sF*Yx2RZO<%POn7t*PyMmz!Ms>e~%LXcf(if1EHwvH4mIfF_wOh<067%
zr-^mvD+Up3?-_sKsh9|nfBmrIY&Gr8@d<{6#PwY6dilkF&65Ct3jM!ykwAxE;7yns
zT(1Kkmxw)5Nv1s4O~)Cwvwp@mQpA5b!W_Hb8G|0TvwpbzokkKK-Ne5=T;=XR!WH-`
zrt}@}P4U0Yr2Rz#>^Hi+CPD}Q8kb+~VD~P$Rs6s1eEqk*9Qb-G9si8W%ZJIu?Q4mn
zGh4-+rYe2o1dQ+9vOL{iJ8x%=0!J_ix18<P9;Z-w0-0vdW%v5-lRZt661}-C^`A%m
zd&>XapLQe~A7u!D#F7fz!EK*|F~b}pGNLEMP_lS=|I^8ol$71lD?Dlr-+^z#{ztQt
zWXF#ZvPXh*f(shz>xG)P>o+d$_06jdn{)>{sKY;++Ff>Ue0tiK1E`R2&(bqZ2B=o?
z0N=Vv`OBUNy9A5a>@|6WlqH#^MPMMV+_=KVNv@AW{l6_F0^_#PD5eP^5YilZ)6(4B
z+=CyTq9TK0GjAf`%+^dZAz&jXGgN>}?cV3;%6O8QkJ>?M!}e!2*<icc6Y4i=8_7VU
zSp*|F+UVV~2Wk{PfaBKqCg4pQKZ-=QoCwy;>~_y=zZ@?#Rv<nk@W8jmNUi-9UU|5O
zOn_&m+mPZXw-(sViB!!UKDX0%11gCQM5WqZv$Mp{<NCj84w57UtGSsLB`>?3v>v;n
zIl?Z9M&(O+cmxNVc1A^wO(Dm|4$RJ^oL+O{ZymjQDNmeg@M{FaV&=vUxOh?P(}iv|
z<r|k9-#@D0Wmk-*!lvJcmMIna4cyc1Ts!{}eN|T#F2?!l^Q^#-X;Dp$B-V40|G)PD
z;&p4Sev!Y#L5k>0<`)4qc+RjGm*$A%_*8248u!j(hBDJ-=KU4?l|#;rJ6)i5*7x8d
z%G1+Rwzc(jqDgkC9G^fq7^*qKfGXyo0xD#vJ!c)bl;*A|cAOOEUMVs?gstB0-~y;-
zBdwUHSMQo@jjtu3*LSH3@d|+fKm)c!;kU%spP>EGzBNSga=wRGLf8Y2Kd8YsNzb-V
zH%eM;jfn9|RGIMdQcxru#tS`(6e0ozo_)`#VZTe9Y3K7>Q*!oA_wOfw*hT%Ru=Ol5
zt8=r0gULoG&)w?G<_=a8p#d*`631j##pA}m0yqy~NQ?G{#WZsTy1qezio&MCD%FO4
z>@Lnu&KtI>r(4zFEW~Hw(MiX0F0J|c1=Zq!t#;T2rW$yW|MxzXT7Srmu0s|>9(=PI
z4Lh2wJzr0!$|qKt^2g`ekbK3f9eiAwnJAUOnKXsefJnPjA(ixuRm5ZR2Q%C3j`(wi
z&gttlQMaaCq;1lU<}LZu7S0M7z1~G12Lw`f$CI!S`$--`K(b^41X_gE`6Hez7zq>!
zN*Wc*)LT)MbeYkk2LF1btvJ=;VEhmlL#~#Ort-;Dw!Oo*Do4lnWTO*1RC_*!e=BKM
zcB=F`^ic&u;%(PWQorV&vSN~Ky#sbg&N-!13a~d9KT_lF_w&Htoe4ZR^wzl%uPtw3
z9;Zbukf3v{aRpaoCOImFxV)Z}Yw>tV{&dm~`ivNYp*<;NHIL^ErwMAK#^`HDf<dlH
zLQ2cq-9e1jiTwFpOw=>feuR_kUaaX06aTfTQ*eSo8oH;FoeGTKpQ`SUzj)_)98u|&
zIJQQDj(;a{0(sL|(shxz*es8ly%s5Xqc#Qb8C6N2E-h}+`=s}VfD)I1N{!F_s5pl7
zmbg%T52I9Xu~7!Qot+)&V-I=2L4=V60mGJshQWaZ7Y)`!{}BXnN98R09YLpkWU$DQ
zbAZs$`iDZT-1Qg&UC`d)+#@e=09WZ(9YVjm2Z4WNgd=_J&h|)9S5dT<q%M*e+O|7;
z5ssvOpG6Kj_+fng?JvS3_@2o4v&970A>P9}TL#uF8@s!#&CPjIih?UZy5x;?5NZO*
zmBaLlgH6sPv_2vRwt*3Gkw0K$VgBnaUhtj5g8T@mNUc-l|7_-hdEKzCrXBCb@Uu}R
z*z$LzQQ}nl)xnZ;(Zpwc|3k+ggXau9d*zRdg@`4tr0_E>=8S5q2c!+`w16BFu<k`h
z(%x*QG<1n4&5Rx*b1GqltbaP{Sd4#r@+&P=SRfZEPpS4B6ULstt9kT_ZLVacTD#|<
z=t9Wz-G6=AwVwxibVfO}boNE3Pd6bYN@Dkub&~7(t%3{a()rwoN`*0AEDiw=aRQ<~
z*V65eUbMZ?2LZ*B9&P(Y@-tb-nI#qk3tF?xA}nC`GrhT~Mw_GFW*WIZO$=UgRs4_0
zZb6$!&>!mp<Y2rq^|@w)TOfCVL4m&wvWHF7@w8Yl0?gOb%OGV*Gf-gM5B545tooij
zEiYH&KOqqXiTXcp`4S~+P?BUuaYi;jbiryTs}R7$Xq@=;)l|sD*kme~if-sCiG0K_
z?@>3%Odx9&eLgdNwi=V_i?Z0g+O$?9;)oiHcSk|B=-?}&qi(M@8_1dTf7@s|?g=;q
zM15S4S3D;{Ux7UyD_@j_jM;b;qix<?hGF=5xi)#Xt+7fY?>zU65@tX7;}H~yooH4p
zHG|*VZ}!q<_#^(lyO`EVVwjPwfi_5s_7&V$sYrMb^;PG<G?RX3Tm!?#a3p7ByJ^C`
z9BBx>Sb;^0X$AxJjj5OYfAV-?bNi@g2iK8%jKOyL{!#r~$kP7B3G2%sXCqTZUkQj-
zD^7!;#M5;7z-HkK(&J|{3Z%zZT$uX>Eyh(PU8Gz{f%8{)DJx!$5IUOLhEKnkHo1t$
znk9ejg@*@b)wVIBx}>r9lBJ@2L3`*MYcCtC1U{poq|M5z;}Y&so<05-`pF)=vFK;=
zw6c?{`k7%a$a)ZN#gDC)RO+KnIyN!?kl#IZL-02@FdDo$e`ytf*y%Whc>7a{Fd;MT
zO31kg#|~B-w#GbF^?)O<*2OgY5di^fg4&~pdfxO-4I7)jjRVciGpp-?hK}?|b}le`
z*jd?t{NEYxv+{>XtxnUWK^QMZG1tr@HSsHymXh0nPa6Z<SoNTPz=P(v{J9D{#_~Pn
zy$RdW!GfPs2HH~+yN|Z_HbA<Xc>ipF2~dr*3DaalkIm2a)`*$-2?LZ=L*<_ug*#gF
zjeS+~^KbcFc1lJ=1_Rs39RPrsY}9ql%HZJ6>7Q?5d|Qh_xCrZWRu|gzA8%>r&vth|
z@44=XOEjx=8yfH?<{dyATV+d3Zn2h_$hS7w@(=_0kMQwV_^807;cH%BNdxN^uEvMV
z(*CTGhePd@D1AYq$X?PYfF0>+|GRkZoeA(f6;Pj6$8`8Iq9*7)sOL{n@FM7Xa|1na
zoEXj2@bQJMfwujGuX)mjg5IjQ4$ze$f@6j%#`l*Fxf5?k9Z~_9_j;#(bi|5tKid$F
zHMaY-K$FPBNwD(UnRIhh#yw3%L3CaP^zL8={Z4iMRauZ9tC!(S^?j>=m8TL_9bICQ
znvbjIrAj=`k;fM{e0zM7a00TcT2jCm4o?l@pP_7h2SpDH?N`}~3`>RPmf;3>{Ou$B
zy@flEoPu^porLT}x)jfYMT&@EyyW(OXru}Tn3TQQl0SLgw)o{gz=KK6C?}Ybv^z&a
z+x;zyYGZ#Xx#EcXUjGgd!ysWN;XqiOc>u?2^+y%Zv1gn0-yGr*a`#-NT*Vn0sqpAe
zy>P^yeRzz%`!+>m!~*V{0!iboBZzYRmD|34f&3_SOW`)z()VlZi&#gL46L)_HdrKw
zxP_qEGzX`X+O4=)wE7x#wXG>p^%cdtXE0vw;>f@YR?O3gT8k@GgxlOt4a*)n2TEeD
zpj_HsIE`JO!!aSr78|9vnqaB#ol$HkHzj@di`7^6QL2_VMQoW~;6pfIbbM^++gM8b
z8x4rCjN!VRvTmtR<dgV;d02im*~Ejc3Yh(T!9uEbp=;q_w}0H&gOcKz_{UK=c3qxG
z{$Ne_z+(L@8HUxNJTHY?H4szl8SROilD<ufJ8x%*yh=ZdKDXDN2THm84p(-w4!3i^
zO5QVDvC)wjXwGb1;vqi2%IUj|EzI|+^2L{;8!oK?Y(r-Hj;xi%m@%w-2~BW8vQJO<
zG>V4rt}Xov>ik*%v$mw7k>Eihji44fxc6+~_tAz}k=S<0AO)h5PWc>yX?pl)<@tsk
zFUTFe>|)L&BrPI@d?GC+T|O$f%XEn!_IPxFD1f3-wKg>n{Iu0Y%qnvB73n!nG52CN
z&P9+dqO34&_xwR9My}xcqGj@grB{RqJ5=ITPav^2ZSjPg(oE`|q(Llb#7K|%@p0Wx
z3-8&thxn2FzxWwGbz-)>E)rNvd=uPFH-KKJmA=sV^T~y+AZVwZC2U;VmbN+2m)i3-
z@XT9()Z1Bu0Quf*335h#ou_&k{f2e`I!ewOc=v60+^t@oj*X@plA_~}fN)C!<!#A@
zA;*ZLk`;&3<B?YYHKH&goFPpj33vE`E=C+6+$?XpNJIqEig2@Sh$di9YGIhYedG>M
z;0@nHVDH{@%T^b%d!OXhrMexS{5@8Fb*Ifc)2MYi{OlnAsJ^9D%9oz5^`Oh>CxQ+Q
z!emJ=wvaq68o`ym3(zK}U*DJEsh%$SU?d#rFaKMK{c_YY55~<aQ-W^VjmMH~THbG+
zPB=SAm|0;;B=UC+4+*NFr>g^rkRHF;X2OXE84do7*n4LA-YeWGIJIM|L<cL|MU(HZ
zi)w=Xn(9G_yH0bFcF%BZ<2=I3oF8&|Z^pd+_v&vOzelTjhYrXQHA~!Uod%$Rq8>=e
zXQxP4lTD<yD_klysmM^!^rf<a_O=1@HGwQC;|9Z-qvZT8`h`P_@iT13qg*qKA)CIM
z?lNlUjDJh&VV}i&N_5NN_+kH!a*71ajlbb+^>y0BwM#oy_p;h{OGLVI#!}4w@ODD7
zPwx|27aaOaZ6}&%AlqG$nfXBK_ZAv@$6}%EIjY;~Fb=Pf15aAPY8&tAFlEOl-?*`F
z2t$Yr3AO2Nyz^m_VxP=U8<f|(kvNr=rl}Nf{pNbQn=lT!;O&ad+8Jb~zv1cgF1qwo
z)P;oDG@6&APXQ<{LO(x*iG}5N6_Br*p^;?WT}&m#WhK%VAQ<fQ4s5-vAvj9xW}wVO
z%aj4E&M1zy7}*ay(I<P}I!oH9C^gsu{q4bE)jXk(Xec<mwlA*-+2}!-p&ly5u07~a
z>Z9?MZ;soj>_M9jb%{oXq77;IJ~*5_^FtHOnN$g5oioKx$EGAcltxdRBd8Oo-Nh9m
z(AXgh($atCM_L$iz4jsfRt-@=%!cm9Tfc|Mip7i7yyU_M;@c1{uOwOYo-6VdVjKp8
z6j=-Zs9mpoMv6|kHo$Lsw;*|EZwGo+)==a^J1=#K_2<E$Uz!#YO1JXfspj2LSQ#Xv
z^Yk!m%YX*n<W1Z}ed5qW$`PE5_O;T-+JZpyflwOvFMg!xD%hiab(Cn^!AxA&=e_eh
zy@4D0gn=J_B~=!2FEqG`vi(Wh+MV2v(Vsrb-ev7!W~?d659KdVpDXV)DtM)^fxYU&
z@=uW84nNdmn|6Mw%-55O4Y~>Y5J%UR@#oJS6t9b7#08g9mi^&fANiY=rp4$K@lzYM
z1_zLSK^#G1hiDgFzIFv^nlt~WmS^ugrPJ%(4VB<U4Be@Us>5<@*g>fEnZShuxqbs9
zaY@)>6o($W?P{P|>oIZD1x<cVg@hqJ9Lm-9&cc@#9ul`aRhfXAm6-6%klu2RbQ&lw
zgQgt;)pp%@F+QO&KZH9DAqDhMxf2rT(1wN5ixyR-S7qg$Fz>R8N4Q6Ao}3y4EkzMb
zJj*Zs6g-^XwB3gkR7Y{?DdxZ)xYD;BEt<Mc$GJP<gq$}zDuq3}%Ct5Sm#NQy)FwH)
z=1eEP_T`G@`?H?k+m|%CVr;LVqVPfe@p7K)G#J%cyVdv3wIb78Jw7z;Te6$eoUt`d
zaTS&PH23*aAb2q78tjI=iTu-KWK!BfKY?qm#Yx-q$Vz6zI~;ggDKR>m*qwLhx^9b5
zWY=-Tw(^Au<adV`u_i`~P>Ad>4IV8-3;&fvm#wS{>RAze+ocwC^!)o^_2~gS!p5nq
zR^K^EQu1}8{@nN}n=P_rePU1VMhLU!@r7W<vF}u<#-eCGqbEKv0V?rvh{n?8W7c~N
z37WIC8eq|zd2y=06yD*SmE0b1J=N9`tFf22GZbEn=gMg|w}$ZCFz)5krnYwlCQ4q3
zsPLQ9UHNV;GhDyBwWFbJxcA$I*Ii`R$XBCUob2pJ3Nu}k-+hiaaOTF$D^C7ov0n0q
zIkQq}A?jQ{2M(eR1BNq&XL<r7w<^y|Cbw7Ko%_<RG;Z^NyM<pJbdHth8QCmVYu?cd
zZy}eZ$LeXfKL;l!yl{=#`iJg~^BdpG89K}ObC$>(!N}PpU7e_#)Bn9NrP1fJI;o|g
z@$mNcmF|I+IRE0VW*fT3S;Rc-LvA_gZ-ZqE<Ho9$Iw$VdhSGtu?xil|4|@ntaiGND
z2F3c|d_rnhdNK+6*bKK0c2~;P(aIAz)$di@R`w{G$cCW|L85{=hgC=#FTUy%(0u({
z-R}X5Onj^6dO*bund^;P0^x@$<Av3N3A!g->)NJYP98bpHY65+sB_q-cnBv8fGt8s
zv`A*b(r<xZFP0~vulx?W48QsH(uEz|Fq9_q;yhYa27yvlZt43Ag`pF50?W!xB%;ns
zc)+6`U_E`0Rg3T2;y#kAJJQ%wx6}f5Cv?XFlDk<!T{ZstiFLAnKTu&`GN3pm+bYM5
zWrA@ZJ?ek_YLA1uzF-0SsO>A&ShJSuI*#tx7iEZW(1W)jxdfg9+xObU?K*d7R()Dj
zgI&(kcPmB<=`jAN61^L*`DwF>36Gi5ef)_q*OeAd`8C63B$_4fYu5r&RCx<P&@vBN
zt#_K{?qExO+FZ^2A|gtLcJ!0|3XYJ&=0<XMb&zN6d<S$f{hPvY8a^IL9`KhVE<HvM
zUE?Kw4shv}A1(a>$&DAwSGw(wZmqncbUwddpsn_W%daGJxA#M%)?A3mB6Xa?vb>?;
zV?aw&h?5@gcrFQ{sCV|rOl1S)AJl7F6<DqwUp$&MaF9+Y6`3o8L6j6#AGJh^od1#}
zSKGLb=mD<fO(_Rg==;@NuFeGS18|xNyDSsZcGOAV_;_QmFy(c@QGKmt;b+(bS;7DY
z<Y4w;+v_n8=TZfYE9c+G;dwFyx{IrFAhj+=a{Veh{f7Bcv1aO}Q{b3z^eD<`OK2&!
z2HZ8JnXCFC`X_ev_ykFD`gT|T4d=62-ozDoL!Oj9_aPxC5iNt*nb&Ny_UEw96M{MY
zoY|Lrduu}ZBgIo6VI<qLh4PPks&|@v>O<uD0?8bQEjQP8&QosSMF>uCIoiqwtuiU6
zBVsQ<XGP@6w#`P89J9AsuY1zp=t*EcIv0*$w3rIhX)*y9IGX)_VfN?Em6nX>{zgu8
z=}N9rZx&8%uSYNDLOM@UB)SLriC4P^bGnbtK_Da}2sre9{1E%Q_|MLH32bk$*Kopl
z)-uU4xG87q)BLaF0D(^2KtJDFZ>2<MrzGg;klaAK(01?IgnD(3zEkMS7C)a-=S$`V
zkO{rdB2f<NT;6(1A19p&w{V>MVtjj{Ha#;WwSvwq1(utR^MzkU$m|4VmZmm!tpl4L
z|DK~gI?!z_ot$uAOr2afHa?5H9)8Vg0OfdQ0-6LYO~?Y%1j8mW`qxqV?Bnr!iOXGo
zzUo9I(lrx51|YM9x^d;Te!Yb)-q(ANW`JT6M-nYYe_EY7%AOVDhQtp&=~q5EA55K_
zZ@Q~Q`2VTH)!O?q#y(!`8olW|V%A4*`svcgf$f@h^_7U0N3U#2aDr`gQL8YRZu5E#
zvlp?8lvQxy`r`qQ40vH)N~9I%{IjzkV54u94OCtqMY5E?-QK=J)z|64Q&m8;!DabG
zSIu$mX>Mj;w)AAE&iS#33x9hYiuLb7$QZiSGiYKpQZ8BKF=Dw+f>;fsRLjUKq9AG0
zM6skb6JkK$I7kPNz|FnH+D{PP2f6p#xO4Hquy2WC*SJ#B%PoznzUvha5}_jW=$aNm
zv1LuJxW&Rca(0;Scfm@-uLSb^o=F+GV8a@M0H&IfPi2zUV)Lhh{Gal|ehnUkEIf$d
zc*+hhUm3kNcEM4NRg2lduf_oeCT>ni^@pt5Vs}=}ZCSo#iJf0OOgyw~n%cqMq}DBR
z6Q1aN|C7wwL%n=lK7?AwY|T)ZkdlMf;EfRQz7~d}ejtn2xYJcu-JHSLLJRQ+ze&)(
z`CTmypXGu0q=?(Af@EnT!4XpQ-PcutgV1bnO*6dW>%s##B-O!F^<g4iEadN~k09CH
z=<R{V3hNdhcQ3S|OW}3BfL0x_#?qi82Oh`3uSAE<VUK?8t6T%A{qUq`iw%V7q#sjQ
zMNaSs-7)rmmPh9z6RY0nGeVifGTqd+t`8eiYv?D}57MTEH+j<0#Z~2#-;bbcq{;R^
zmQJ5?yY2!UT*mi#U|tKOv@y~0ZHxSKa}Fpry@t>|S1-kbuT>^tEM})7VN)_1D>4e2
z<Apu&Xwj@?=Lb#f6DsLr8eX4;#q`~P<xy>Of=#g?wORh)_PbhB%I=`KK4%zO-Jq$F
zNs2W7_sb-jfFU>?Un{dWWx9zcDMog_-f<>va7B+VbtAb3KL={?T-o}-Jr`gh;*<!S
zoP?52#oSl0t-XXUfb|gXHaA$W`qs9hy+|v6kwO<O-$-h9fIdL%!1W9p3UoC9zKZoa
zvPG=$nW_oW|C@+l`xn@wf8jh_MG8-J0uK=^`$xt7d*c5GKgC`e5PDwoq+uQH*)vWo
z>Gvhy*^=pVt#oi|t_Fa*#9<dQJV#lSqYi`V^Oul)<Qf)#OPujh<`dQW(n(?e1UE;A
z<nyBb2@j`IR+pO?l2W=_>SG3xYOU1I2wH?VVx$cD9`Ofp!>Qx<wwEcP0)Yh~8_~+B
z9hRyM88Tf(ds#ULC{z74sIqgS-HFBex{I%^(nTVJ(dfKr$Vk11{9~#+NgK`WEFscR
zs?I>DETN;(Z}fNR^XI6v8;h@P8+l=mFm^DKi^PRg1(OUX$<nJ*1)X>|2z);F$trO!
z$+0r=Yj7g}1efiOSHb?`+kA>CPPBN!73_0WBv_|Njx?UR25Iu!Q{F|Yly@E-_WbPZ
zWU_>jX+%k2D_k-T6P9~M-vzm?w`ZX6){mQ`RR+#KbU9(e(n1<PS%!nlo?;|y&1F(K
zxxFSdyJ@#Kyh*W)9p}^4QrioYP?PB|;*xVp<9@$TX_Fp{Gu2xQ)w9wJ0A+U{kHiDw
zV_Z!jM96kWw(E>0J>SVqzu_FD?@EAvaZu+cJXn=T;s=X<=}l-vbw+Y5lAMZuBWtDg
zJC&H9JjxwHxC!*yV9fJHgg<>yPS7eyKa?QD8p}>#j_3xtM;G4)LlsnW?HwP>Ok|HM
zS)NSNq3)u#nWo<(6rP>oY>Lb(`UYSRbRe8&IU2zc>y^UyxVrq^lO=q+BzRV<t9)j6
zCvq6DbB~V$Qd1lZD}PQYMoz4s6EHnFwwSvab-?1nRr(~Nx@fM2x^q%XcoNckxN{yt
ziiL)w$*M)TVH?z#7h&hpq87K16{&yd<^%j$YipGMW7)2S`dn`$doEkEtZvzDHch-<
zd2UlY+x~V+kQ1y?P^G&g9T9z%UwWKZe@g@5<cgdwsK$vnBLOt~&CH>-5@+tXXgSQH
zVs#|XA*R!VnWJvvZ^}!PCL02@@N2BB3ssRJW{w8y_`DQ1Rf~ID=Tu}-bJmmy84Iu|
zHqY7CZ8##f<XK0?2)a8>*9CTW_`6d^LV7`EgNzi1wnrEl%}7aJ$(6Gk3$HyJ?}KzD
zmtxjadB7bNPPj*^SEDu*W$`iwY`@LF+bVPOZx~iy?Nv&DL{RU-VUAJLi!y%a68(et
zx^SKO#E6N<Mnf0VW#}RCQ(%?Es+{ZQ2Z~oyJqE+P#XPz7ma-7c1*e(>DG}%8kADng
zdbkN_Oud@0@{x@bQmR@iuZ3z+UiLC-i^Gz!&3~O!*7@T3%+aY?sz>pkkBWga0ar^O
zZdTkZ;L$oNqV@dJWSy!#HYxdC{fAh|*v7XO`6ybt(<(lw%-htdI(C}kRZ3T6Tu?s<
z^ixRb)wvn!TA5P=^2CF#ae8UMRzgI=IaM{caNuwZ>x(jl{hBY_a))Kw7eQW#WyJ1C
zaGlM1(9Pd+dJ-Ra)RBKqR&z7#av+AI`P4CN>@`OW`@JiF{5+kf6<1JOoO-|YdC+MG
zBxu^QL3vWFWE6HVzYLmFi(b`RiEauO=Xc#xYhVRX%6{aDYJ`7Ligv*SH@j(39$oo*
z*L%0=sXCiKo=YR*Q*lAvc5<zzoO)XFy$KU%)~=1`i7W+w>z7Lgzl|lkN&o8`T_-OF
zt;ynh8|Y7xifa}oX94^E?Wv*Ry(41C9dP#a(7Kl{DE8zW2I*qaSjKwr&)cTdZneWw
z7nc!ZFo(-cx$w&IyXqK=>ori*-@=LT`S6)){E7wEF-D|BC#+xyRrjiFF)8?5T?lu3
zwLQiRDah61#-*j<LX4ZFJ>TDQD$krPmv(&#8W7c=4jahPo!}1JS|xSux9nFR@hCPv
zWc4Pl^8YxFCqCY58vDBzz+8$TR{i$V1|_B*{sAMmBeiC8JhsUYft_2^B}3Ml#ODJw
z)>o{yml;8yhZBP&>G>vg+ZsC}zLLlGre^Q%8JzD8hXzMVhPgDAKRV-u@vS?7kPQ`}
z&vPK+Px!-F0NNuXl&(?X^K=*=s$6|S!+rV|msd9p-+U+^?zs|CiAe!yPT)|bgqh-0
zyQk{p<-<e)J5PsXDd$ipiNYz14L@mbr}D|r0W_;CPPEQx%dDbMdq_45odGaXHf6}b
z<?5ynQ`eWb%xX4IM@{>#NqgdDO{cDzp1I>Ybb8yfIi_5Fqt|5fsBRMN&l;LBw!=-c
zZSKLYLQA)JLUFJyWmDA2#AVm?4Ejn3uUHOI3SCFMfW(BM1MRK)sA+H5G!RWD=-dQE
zz?K`4YD!&^EpRBg)Kz>S-Kc^D*3Og|G8FPf;p6P_KazsYC61gc>Gcwi0Rb{j?IE=u
zZ*Y!yQAaEls_u4QBUfKoMFQAthE#D>_D;Q^K{{w|=r{pFqtzS0>!uNQULK0{d~-L_
zpc~6)Mc9PyRDi0)dsw>`_d6hjLGB_N!#=&2bgbCD88)PY;3jEoe)XC4s+}LZhLdl{
zQA{vTu%WyE9D(DEPrSHbIGWul1MLkQfv!MzLu-Qv%pAtHHy2s@SFfswyazZ0i7f{D
zGPhXs%cXGS>2nwpU3e4hBqcKY3RpEGeL)l4(A<(~9X8<xo~jioA^Yh8U_1|b1UPHn
zVcbVTi5IbG83qmh#VxhmnR9|ztTFgi|4I74mH9`_A%<(Z<URciQjzMz9-JJY1iBUW
zt>X2gmzy;=9i;CZ%8)U!*F*p@Ox$oC@2xJ{6;e%5n7We+7svgCXfHY9$+~<bN7>-@
zIwx$W)1I+hUJOKP!?kTD!#H+H3t{bwe5RSA%~PT&qf1oj-Y*flg$+K^JrQyw@eBEN
z@TcZ>q>l<M92Q0Vq|4P_KegI@_Lh0-Q@jb*6$>Y}2*nPNNu=+x`m%EDG<X*~$skXt
zX;+funr>HfcGC_#z;<@mG6f!bc6|{)Z6rRHDkY8e{;IJv_@}X#*NSSk5!%UgwEf#_
zOoe!m=0;@iM&zpd^Ra3l-I{*^^tHMlB*F+^-jrVV>*>!+rdAy)8)Ubqzy4Cv8!OQu
zr{sLg*-FXLQ{Sj{##^9J-}E?qi&m+Pr-Y|kfulxHV`^5*$gyDjSW*|u+hwvk(&I4V
ztW-AUaD^k-ykJ%X@u4ymMSA>Vvjr}~XkWy)?om9gNZ0t@webg*aNgGORqM`k%U-i-
zk8Px=D|Y7HWT@HmRi?4e!+rACUT6fj+wV7UZcpbZFY3!gVJN?^cVch%En->b(IIp$
z-1CgokKJP~YmtGk)%k!d$VaICZW^iN+F-A7>==j%|Glg9ZuKGG=hCyrJkw5v7RC5_
zl!Vd&&kj?vIz}m;{lKfuEUBbpQSPY`lk=5Wif&OD$six!^)KFBN}Q6Ub2n<1V>~i~
zbQdQ55$CWD;~|E(kMW-7el+Yw#e@LV5apx9x%)s#33mWnngaS|s;f3?ZjxhOFyV9?
zG}kI+(S#*Tx4+Os$+vm#lPWzvkuUUCFlh?h;`ZvM=QCyhBr3=ykYBBwEYD@>iPC_z
zJTagRpmi~nZPBDSz0Tz|%_<D-mO3=0Jmi5rUi?N^yi85r^B)F3!lj=Z1c>lBuTc5F
oHOBu_+Sor&{Qt|(_p3N!v86OJZ3r}o0QjT!SnE--lI6Sq1(C~f=Kufz

diff --git a/reference/ggplot_pca.html b/reference/ggplot_pca.html
index be37327a..8b35c6a3 100644
--- a/reference/ggplot_pca.html
+++ b/reference/ggplot_pca.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -328,16 +328,18 @@
 <span class="r-in"><span>  <span class="fu"><a href="https://rdrr.io/r/base/summary.html" class="external-link">summary</a></span><span class="op">(</span><span class="va">pca_result</span><span class="op">)</span></span></span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span>  <span class="co"># old base R plotting method:</span></span></span>
-<span class="r-in"><span>  <span class="fu"><a href="https://rdrr.io/r/stats/biplot.html" class="external-link">biplot</a></span><span class="op">(</span><span class="va">pca_result</span><span class="op">)</span></span></span>
+<span class="r-in"><span>  <span class="fu"><a href="https://rdrr.io/r/stats/biplot.html" class="external-link">biplot</a></span><span class="op">(</span><span class="va">pca_result</span>, main <span class="op">=</span> <span class="st">"Base R biplot"</span><span class="op">)</span></span></span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span>  <span class="co"># new ggplot2 plotting method using this package:</span></span></span>
 <span class="r-in"><span>  <span class="kw">if</span> <span class="op">(</span><span class="kw"><a href="https://rdrr.io/r/base/library.html" class="external-link">require</a></span><span class="op">(</span><span class="st"><a href="https://ggplot2.tidyverse.org" class="external-link">"ggplot2"</a></span><span class="op">)</span><span class="op">)</span> <span class="op">{</span></span></span>
-<span class="r-in"><span>    <span class="fu">ggplot_pca</span><span class="op">(</span><span class="va">pca_result</span><span class="op">)</span></span></span>
-<span class="r-in"><span></span></span>
+<span class="r-in"><span>    <span class="fu">ggplot_pca</span><span class="op">(</span><span class="va">pca_result</span><span class="op">)</span> <span class="op">+</span></span></span>
+<span class="r-in"><span>      <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/labs.html" class="external-link">labs</a></span><span class="op">(</span>title <span class="op">=</span> <span class="st">"ggplot2 biplot"</span><span class="op">)</span></span></span>
+<span class="r-in"><span>  <span class="op">}</span></span></span>
+<span class="r-in"><span>  <span class="kw">if</span> <span class="op">(</span><span class="kw"><a href="https://rdrr.io/r/base/library.html" class="external-link">require</a></span><span class="op">(</span><span class="st"><a href="https://ggplot2.tidyverse.org" class="external-link">"ggplot2"</a></span><span class="op">)</span><span class="op">)</span> <span class="op">{</span></span></span>
 <span class="r-in"><span>    <span class="co"># still extendible with any ggplot2 function</span></span></span>
 <span class="r-in"><span>    <span class="fu">ggplot_pca</span><span class="op">(</span><span class="va">pca_result</span><span class="op">)</span> <span class="op">+</span></span></span>
 <span class="r-in"><span>      <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/scale_viridis.html" class="external-link">scale_colour_viridis_d</a></span><span class="op">(</span><span class="op">)</span> <span class="op">+</span></span></span>
-<span class="r-in"><span>      <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/labs.html" class="external-link">labs</a></span><span class="op">(</span>title <span class="op">=</span> <span class="st">"Title here"</span><span class="op">)</span></span></span>
+<span class="r-in"><span>      <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/labs.html" class="external-link">labs</a></span><span class="op">(</span>title <span class="op">=</span> <span class="st">"ggplot2 biplot"</span><span class="op">)</span></span></span>
 <span class="r-in"><span>  <span class="op">}</span></span></span>
 <span class="r-in"><span><span class="op">}</span></span></span>
 <span class="r-wrn co"><span class="r-pr">#&gt;</span> <span class="warning">Warning: </span>There were 73 warnings in `summarise()`.</span>
diff --git a/reference/ggplot_sir.html b/reference/ggplot_sir.html
index 14200469..46795456 100644
--- a/reference/ggplot_sir.html
+++ b/reference/ggplot_sir.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <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 9ecaae5a..7344e078 100644
--- a/reference/guess_ab_col.html
+++ b/reference/guess_ab_col.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <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 f2e9af0f..bdbab2c4 100644
--- a/reference/index.html
+++ b/reference/index.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -241,7 +241,7 @@
         </dt>
         <dd>Add Custom Antimicrobials</dd>
       </dl></div><div class="section level2">
-      <h2 id="preparing-data-antimicrobial-resistance">Preparing data: antimicrobial resistance<a class="anchor" aria-label="anchor" href="#preparing-data-antimicrobial-resistance"></a></h2>
+      <h2 id="preparing-data">Preparing data<a class="anchor" aria-label="anchor" href="#preparing-data"></a></h2>
       
       <p class="section-desc"></p><p>With <code><a href="../reference/as.mic.html">as.mic()</a></code> and <code><a href="../reference/as.disk.html">as.disk()</a></code> you can transform your raw input to valid MIC or disk diffusion values. Use <code><a href="../reference/as.sir.html">as.sir()</a></code> for cleaning raw data to let it only contain “R”, “I” and “S”, or to interpret MIC or disk diffusion values as SIR based on the lastest EUCAST and CLSI guidelines. Afterwards, you can extend antibiotic interpretations by applying <a href="https://www.eucast.org/expert_rules_and_intrinsic_resistance/" class="external-link">EUCAST rules</a> with <code><a href="../reference/eucast_rules.html">eucast_rules()</a></code>.</p>
 
@@ -258,7 +258,7 @@
         <dd>Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data</dd>
       </dl><dl><dt>
           
-          <code><a href="as.mic.html">as.mic()</a></code> <code><a href="as.mic.html">NA_mic_</a></code> <code><a href="as.mic.html">is.mic()</a></code> <code><a href="as.mic.html">droplevels(<i>&lt;mic&gt;</i>)</a></code> 
+          <code><a href="as.mic.html">as.mic()</a></code> <code><a href="as.mic.html">is.mic()</a></code> <code><a href="as.mic.html">NA_mic_</a></code> <code><a href="as.mic.html">rescale_mic()</a></code> <code><a href="as.mic.html">droplevels(<i>&lt;mic&gt;</i>)</a></code> 
         </dt>
         <dd>Transform Input to Minimum Inhibitory Concentrations (MIC)</dd>
       </dl><dl><dt>
@@ -277,7 +277,7 @@
         </dt>
         <dd>Define Custom EUCAST Rules</dd>
       </dl></div><div class="section level2">
-      <h2 id="analysing-data-antimicrobial-resistance">Analysing data: antimicrobial resistance<a class="anchor" aria-label="anchor" href="#analysing-data-antimicrobial-resistance"></a></h2>
+      <h2 id="analysing-data">Analysing data<a class="anchor" aria-label="anchor" href="#analysing-data"></a></h2>
       
       <p class="section-desc"></p><p>Use these function for the analysis part. You can use <code><a href="../reference/proportion.html">susceptibility()</a></code> or <code><a href="../reference/proportion.html">resistance()</a></code> on any antibiotic column. With <code><a href="../reference/antibiogram.html">antibiogram()</a></code>, you can generate a traditional, combined, syndromic, or weighted-incidence syndromic combination antibiogram(WISCA). This function also comes with support for R Markdown and Quarto. Be sure to first select the isolates that are appropiate for analysis, by using <code><a href="../reference/first_isolate.html">first_isolate()</a></code> or <code><a href="../reference/get_episode.html">is_new_episode()</a></code>. You can also filter your data on certain resistance in certain antibiotic classes (<code><a href="../reference/antibiotic_class_selectors.html">carbapenems()</a></code>, <code><a href="../reference/antibiotic_class_selectors.html">aminoglycosides()</a></code>), or determine multi-drug resistant microorganisms (MDRO, <code><a href="../reference/mdro.html">mdro()</a></code>).</p>
 
@@ -324,16 +324,6 @@
         <dd>Determine Multidrug-Resistant Organisms (MDRO)</dd>
       </dl><dl><dt>
           
-          <code><a href="plot.html">plot(<i>&lt;mic&gt;</i>)</a></code> <code><a href="plot.html">autoplot(<i>&lt;mic&gt;</i>)</a></code> <code><a href="plot.html">fortify(<i>&lt;mic&gt;</i>)</a></code> <code><a href="plot.html">scale_x_mic()</a></code> <code><a href="plot.html">plot(<i>&lt;disk&gt;</i>)</a></code> <code><a href="plot.html">autoplot(<i>&lt;disk&gt;</i>)</a></code> <code><a href="plot.html">fortify(<i>&lt;disk&gt;</i>)</a></code> <code><a href="plot.html">plot(<i>&lt;sir&gt;</i>)</a></code> <code><a href="plot.html">autoplot(<i>&lt;sir&gt;</i>)</a></code> <code><a href="plot.html">fortify(<i>&lt;sir&gt;</i>)</a></code> 
-        </dt>
-        <dd>Plotting for Classes <code>sir</code>, <code>mic</code> and <code>disk</code></dd>
-      </dl><dl><dt>
-          
-          <code><a href="ggplot_sir.html">ggplot_sir()</a></code> <code><a href="ggplot_sir.html">geom_sir()</a></code> <code><a href="ggplot_sir.html">facet_sir()</a></code> <code><a href="ggplot_sir.html">scale_y_percent()</a></code> <code><a href="ggplot_sir.html">scale_sir_colours()</a></code> <code><a href="ggplot_sir.html">theme_sir()</a></code> <code><a href="ggplot_sir.html">labels_sir_count()</a></code> 
-        </dt>
-        <dd>AMR Plots with <code>ggplot2</code></dd>
-      </dl><dl><dt>
-          
           <code><a href="bug_drug_combinations.html">bug_drug_combinations()</a></code> <code><a href="bug_drug_combinations.html">format(<i>&lt;bug_drug_combinations&gt;</i>)</a></code> 
         </dt>
         <dd>Determine Bug-Drug Combinations</dd>
@@ -358,6 +348,32 @@
         </dt>
         <dd>Guess Antibiotic Column</dd>
       </dl></div><div class="section level2">
+      <h2 id="plotting-data">Plotting data<a class="anchor" aria-label="anchor" href="#plotting-data"></a></h2>
+      
+      <p class="section-desc"></p><p>Use these functions for the plotting part. The <code>scale_*_mic()</code> functions extend the ggplot2 package to allow plotting of MIC values, even within a manually set range. If using <code><a href="../reference/plot.html">plot()</a></code> (base R) or <code>autoplot()</code> (ggplot2) on MIC values or disk diffusion values, the user can set the interpretation guideline to give the bars the right SIR colours. The <code><a href="../reference/ggplot_sir.html">ggplot_sir()</a></code> function is a short wrapper for users not much accustomed to ggplot2 yet. The <code><a href="../reference/ggplot_pca.html">ggplot_pca()</a></code> function is a specific function to plot so-called biplots for PCA (principal component analysis).</p>
+
+      
+    </div><div id="" class="section level2">
+      
+      
+      
+
+      <dl><dt>
+          
+          <code><a href="plot.html">scale_x_mic()</a></code> <code><a href="plot.html">scale_y_mic()</a></code> <code><a href="plot.html">scale_colour_mic()</a></code> <code><a href="plot.html">scale_fill_mic()</a></code> <code><a href="plot.html">plot(<i>&lt;mic&gt;</i>)</a></code> <code><a href="plot.html">autoplot(<i>&lt;mic&gt;</i>)</a></code> <code><a href="plot.html">fortify(<i>&lt;mic&gt;</i>)</a></code> <code><a href="plot.html">plot(<i>&lt;disk&gt;</i>)</a></code> <code><a href="plot.html">autoplot(<i>&lt;disk&gt;</i>)</a></code> <code><a href="plot.html">fortify(<i>&lt;disk&gt;</i>)</a></code> <code><a href="plot.html">plot(<i>&lt;sir&gt;</i>)</a></code> <code><a href="plot.html">autoplot(<i>&lt;sir&gt;</i>)</a></code> <code><a href="plot.html">fortify(<i>&lt;sir&gt;</i>)</a></code> 
+        </dt>
+        <dd>Plotting for Classes <code>sir</code>, <code>mic</code> and <code>disk</code></dd>
+      </dl><dl><dt>
+          
+          <code><a href="ggplot_sir.html">ggplot_sir()</a></code> <code><a href="ggplot_sir.html">geom_sir()</a></code> <code><a href="ggplot_sir.html">facet_sir()</a></code> <code><a href="ggplot_sir.html">scale_y_percent()</a></code> <code><a href="ggplot_sir.html">scale_sir_colours()</a></code> <code><a href="ggplot_sir.html">theme_sir()</a></code> <code><a href="ggplot_sir.html">labels_sir_count()</a></code> 
+        </dt>
+        <dd>AMR Plots with <code>ggplot2</code></dd>
+      </dl><dl><dt>
+          
+          <code><a href="ggplot_pca.html">ggplot_pca()</a></code> 
+        </dt>
+        <dd>PCA Biplot with <code>ggplot2</code></dd>
+      </dl></div><div class="section level2">
       <h2 id="other-amr-specific-options">Other: AMR-specific options<a class="anchor" aria-label="anchor" href="#other-amr-specific-options"></a></h2>
       
       <p class="section-desc"></p><p>The AMR package is customisable, by providing settings that can be set per user or per team. For example, the default interpretation guideline can be changed from EUCAST to CLSI, or a supported language can be set for the whole team (system-language independent) for antibiotic names in a foreign language.</p>
@@ -498,11 +514,6 @@
         <dd>Translate Strings from the AMR Package</dd>
       </dl><dl><dt>
           
-          <code><a href="ggplot_pca.html">ggplot_pca()</a></code> 
-        </dt>
-        <dd>PCA Biplot with <code>ggplot2</code></dd>
-      </dl><dl><dt>
-          
           <code><a href="italicise_taxonomy.html">italicise_taxonomy()</a></code> <code><a href="italicise_taxonomy.html">italicize_taxonomy()</a></code> 
         </dt>
         <dd>Italicise Taxonomic Families, Genera, Species, Subspecies</dd>
@@ -557,22 +568,6 @@
           <code><a href="skewness.html">skewness()</a></code> 
         </dt>
         <dd>Skewness of the Sample</dd>
-      </dl></div><div class="section level2">
-      <h2 id="other-deprecated-functions">Other: deprecated functions<a class="anchor" aria-label="anchor" href="#other-deprecated-functions"></a></h2>
-      
-      <p class="section-desc"></p><p>These functions are deprecated, meaning that they will still work but show a warning with every use and will be removed in a future version.</p>
-
-      
-    </div><div id="" class="section level2">
-      
-      
-      
-
-      <dl><dt>
-          
-          <code><a href="AMR-deprecated.html">NA_rsi_</a></code> <code><a href="AMR-deprecated.html">as.rsi()</a></code> <code><a href="AMR-deprecated.html">facet_rsi()</a></code> <code><a href="AMR-deprecated.html">geom_rsi()</a></code> <code><a href="AMR-deprecated.html">ggplot_rsi()</a></code> <code><a href="AMR-deprecated.html">ggplot_rsi_predict()</a></code> <code><a href="AMR-deprecated.html">is.rsi()</a></code> <code><a href="AMR-deprecated.html">is.rsi.eligible()</a></code> <code><a href="AMR-deprecated.html">labels_rsi_count()</a></code> <code><a href="AMR-deprecated.html">n_rsi()</a></code> <code><a href="AMR-deprecated.html">random_rsi()</a></code> <code><a href="AMR-deprecated.html">rsi_df()</a></code> <code><a href="AMR-deprecated.html">rsi_predict()</a></code> <code><a href="AMR-deprecated.html">scale_rsi_colours()</a></code> <code><a href="AMR-deprecated.html">theme_rsi()</a></code> 
-        </dt>
-        <dd>Deprecated Functions</dd>
       </dl></div>
   </main><aside class="col-md-3"><nav id="toc"><h2>On this page</h2>
     </nav></aside></div>
diff --git a/reference/intrinsic_resistant.html b/reference/intrinsic_resistant.html
index 6b2d9fa4..a581cccd 100644
--- a/reference/intrinsic_resistant.html
+++ b/reference/intrinsic_resistant.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <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 05d78f6b..f54bb196 100644
--- a/reference/italicise_taxonomy.html
+++ b/reference/italicise_taxonomy.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <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 d1e6fdbe..5bc0b8a4 100644
--- a/reference/join.html
+++ b/reference/join.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <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 d01657a7..c66c6185 100644
--- a/reference/key_antimicrobials.html
+++ b/reference/key_antimicrobials.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <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 7b5065e1..77621306 100644
--- a/reference/kurtosis.html
+++ b/reference/kurtosis.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -199,9 +199,9 @@
     <div class="section level2">
     <h2 id="ref-examples">Examples<a class="anchor" aria-label="anchor" href="#ref-examples"></a></h2>
     <div class="sourceCode"><pre class="sourceCode r"><code><span class="r-in"><span><span class="fu">kurtosis</span><span class="op">(</span><span class="fu"><a href="https://rdrr.io/r/stats/Normal.html" class="external-link">rnorm</a></span><span class="op">(</span><span class="fl">10000</span><span class="op">)</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] 2.973468</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [1] 2.989289</span>
 <span class="r-in"><span><span class="fu">kurtosis</span><span class="op">(</span><span class="fu"><a href="https://rdrr.io/r/stats/Normal.html" class="external-link">rnorm</a></span><span class="op">(</span><span class="fl">10000</span><span class="op">)</span>, excess <span class="op">=</span> <span class="cn">TRUE</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] -0.03270321</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [1] 0.0300932</span>
 </code></pre></div>
     </div>
   </main><aside class="col-md-3"><nav id="toc"><h2>On this page</h2>
diff --git a/reference/like.html b/reference/like.html
index 9c681adb..db3d156a 100644
--- a/reference/like.html
+++ b/reference/like.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <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 8756b34c..fa1726c3 100644
--- a/reference/mdro.html
+++ b/reference/mdro.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <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 729d1e28..c2dd1275 100644
--- a/reference/mean_amr_distance.html
+++ b/reference/mean_amr_distance.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -218,31 +218,30 @@
     <div class="sourceCode"><pre class="sourceCode r"><code><span class="r-in"><span><span class="va">sir</span> <span class="op">&lt;-</span> <span class="fu"><a href="random.html">random_sir</a></span><span class="op">(</span><span class="fl">10</span><span class="op">)</span></span></span>
 <span class="r-in"><span><span class="va">sir</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> Class 'sir'</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] S R R S I I R S S R</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] R S R S I I R I I S</span>
 <span class="r-in"><span><span class="fu">mean_amr_distance</span><span class="op">(</span><span class="va">sir</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] -0.7745967  1.1618950  1.1618950 -0.7745967 -0.7745967 -0.7745967</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [7]  1.1618950 -0.7745967 -0.7745967  1.1618950</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1]  1.449138 -0.621059  1.449138 -0.621059 -0.621059 -0.621059  1.449138</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [8] -0.621059 -0.621059 -0.621059</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="va">mic</span> <span class="op">&lt;-</span> <span class="fu"><a href="random.html">random_mic</a></span><span class="op">(</span><span class="fl">10</span><span class="op">)</span></span></span>
 <span class="r-in"><span><span class="va">mic</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> Class 'mic'</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 0.002   &gt;=64    0.125   &gt;=64    2       16      0.005   &lt;=0.001 16     </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [10] 0.25   </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 0.125  0.0625 1      8      4      0.25   &gt;=32   0.5    0.005  0.25  </span>
 <span class="r-in"><span><span class="fu">mean_amr_distance</span><span class="op">(</span><span class="va">mic</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] -1.2773949  1.1399840 -0.3137594  1.1399840  0.3323488  0.8169299</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [7] -1.0638678 -1.4389220  0.8169299 -0.1522324</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] -0.554873825 -0.827456801  0.262875102  1.080624029  0.808041053</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [6] -0.282290850  1.625789980 -0.009707874 -1.820709964 -0.282290850</span>
 <span class="r-in"><span><span class="co"># equal to the Z-score of their log2:</span></span></span>
 <span class="r-in"><span><span class="op">(</span><span class="fu"><a href="https://rdrr.io/r/base/Log.html" class="external-link">log2</a></span><span class="op">(</span><span class="va">mic</span><span class="op">)</span> <span class="op">-</span> <span class="fu"><a href="https://rdrr.io/r/base/mean.html" class="external-link">mean</a></span><span class="op">(</span><span class="fu"><a href="https://rdrr.io/r/base/Log.html" class="external-link">log2</a></span><span class="op">(</span><span class="va">mic</span><span class="op">)</span><span class="op">)</span><span class="op">)</span> <span class="op">/</span> <span class="fu"><a href="https://rdrr.io/r/stats/sd.html" class="external-link">sd</a></span><span class="op">(</span><span class="fu"><a href="https://rdrr.io/r/base/Log.html" class="external-link">log2</a></span><span class="op">(</span><span class="va">mic</span><span class="op">)</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] -1.2773949  1.1399840 -0.3137594  1.1399840  0.3323488  0.8169299</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [7] -1.0638678 -1.4389220  0.8169299 -0.1522324</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] -0.554873825 -0.827456801  0.262875102  1.080624029  0.808041053</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [6] -0.282290850  1.625789980 -0.009707874 -1.820709964 -0.282290850</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="va">disk</span> <span class="op">&lt;-</span> <span class="fu"><a href="random.html">random_disk</a></span><span class="op">(</span><span class="fl">10</span><span class="op">)</span></span></span>
 <span class="r-in"><span><span class="va">disk</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> Class 'disk'</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 34 26 14 50  7 45 18 40 19 24</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 26 32 50 20 28 49 12 20  9 42</span>
 <span class="r-in"><span><span class="fu">mean_amr_distance</span><span class="op">(</span><span class="va">disk</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1]  0.4467074 -0.1205401 -0.9714114  1.5812024 -1.4677529  1.2266727</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [7] -0.6877876  0.8721430 -0.6168817 -0.2623520</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] -0.19375217  0.22143105  1.46698069 -0.60893538 -0.05535776  1.39778349</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [7] -1.16251300 -0.60893538 -1.37010461  0.91340307</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="va">y</span> <span class="op">&lt;-</span> <span class="fu"><a href="https://rdrr.io/r/base/data.frame.html" class="external-link">data.frame</a></span><span class="op">(</span></span></span>
 <span class="r-in"><span>  id <span class="op">=</span> <span class="va">LETTERS</span><span class="op">[</span><span class="fl">1</span><span class="op">:</span><span class="fl">10</span><span class="op">]</span>,</span></span>
@@ -252,22 +251,22 @@
 <span class="r-in"><span>  tobr <span class="op">=</span> <span class="fu"><a href="random.html">random_mic</a></span><span class="op">(</span><span class="fl">10</span>, ab <span class="op">=</span> <span class="st">"tobr"</span>, mo <span class="op">=</span> <span class="st">"Escherichia coli"</span><span class="op">)</span></span></span>
 <span class="r-in"><span><span class="op">)</span></span></span>
 <span class="r-in"><span><span class="va">y</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>    id amox cipr  gent  tobr</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 1   A    R   30     8     2</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 2   B    I   24 &lt;=0.5     4</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 3   C    S   19     2 &lt;=0.5</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 4   D    I   21 &lt;=0.5     1</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 5   E    I   22  &gt;=16     1</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 6   F    I   28     8     2</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 7   G    I   19     4 &lt;=0.5</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 8   H    I   29 &lt;=0.5 &lt;=0.5</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 9   I    I   26  &gt;=16 &lt;=0.5</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 10  J    R   21     8     1</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>    id amox cipr gent tobr</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 1   A    S   23  &gt;=4  &lt;=2</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 2   B    S   27    1    4</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 3   C    I   26  &gt;=4  &lt;=2</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 4   D    I   19    1 &gt;=16</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 5   E    S   20    2    4</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 6   F    I   25  0.5 &gt;=16</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 7   G    S   18  0.5  &lt;=2</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 8   H    R   19    2 &gt;=16</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 9   I    R   22    1  &lt;=2</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 10  J    R   20  0.5    8</span>
 <span class="r-in"><span><span class="fu">mean_amr_distance</span><span class="op">(</span><span class="va">y</span><span class="op">)</span></span></span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ Calculating mean AMR distance based on columns "amox", "cipr", "gent",</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span>   and "tobr"</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1]  1.23945841  0.03375462 -0.73801392 -0.62254823  0.04563698  0.52522389</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [7] -0.61650763 -0.37448920  0.05108107  0.45640401</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1]  0.05387469  0.12082470  0.28731436 -0.12784750 -0.20825803  0.12342200</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [7] -0.98202095  0.60531151  0.06239096  0.06498826</span>
 <span class="r-in"><span><span class="va">y</span><span class="op">$</span><span class="va">amr_distance</span> <span class="op">&lt;-</span> <span class="fu">mean_amr_distance</span><span class="op">(</span><span class="va">y</span>, <span class="fu"><a href="https://tidyselect.r-lib.org/reference/where.html" class="external-link">where</a></span><span class="op">(</span><span class="va">is.mic</span><span class="op">)</span><span class="op">)</span></span></span>
 <span class="r-err co"><span class="r-pr">#&gt;</span> <span class="error">Error in .subset(x, j):</span> invalid subscript type 'list'</span>
 <span class="r-in"><span><span class="va">y</span><span class="op">[</span><span class="fu"><a href="https://rdrr.io/r/base/order.html" class="external-link">order</a></span><span class="op">(</span><span class="va">y</span><span class="op">$</span><span class="va">amr_distance</span><span class="op">)</span>, <span class="op">]</span></span></span>
@@ -283,17 +282,17 @@
 <span class="r-in"><span><span class="op">}</span></span></span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span> ℹ Calculating mean AMR distance based on columns "amox", "cipr", "gent",</span>
 <span class="r-msg co"><span class="r-pr">#&gt;</span>   and "tobr"</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>    id amox cipr  gent  tobr amr_distance check_id_C</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 1   C    S   19     2 &lt;=0.5  -0.73801392  0.0000000</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 2   D    I   21 &lt;=0.5     1  -0.62254823  0.1154657</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 3   G    I   19     4 &lt;=0.5  -0.61650763  0.1215063</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 4   H    I   29 &lt;=0.5 &lt;=0.5  -0.37448920  0.3635247</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 5   B    I   24 &lt;=0.5     4   0.03375462  0.7717685</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 6   E    I   22  &gt;=16     1   0.04563698  0.7836509</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 7   I    I   26  &gt;=16 &lt;=0.5   0.05108107  0.7890950</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 8   J    R   21     8     1   0.45640401  1.1944179</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 9   F    I   28     8     2   0.52522389  1.2632378</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> 10  A    R   30     8     2   1.23945841  1.9774723</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>    id amox cipr gent tobr amr_distance check_id_C</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 1   C    I   26  &gt;=4  &lt;=2   0.28731436  0.0000000</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 2   F    I   25  0.5 &gt;=16   0.12342200  0.1638924</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 3   B    S   27    1    4   0.12082470  0.1664897</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 4   J    R   20  0.5    8   0.06498826  0.2223261</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 5   I    R   22    1  &lt;=2   0.06239096  0.2249234</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 6   A    S   23  &gt;=4  &lt;=2   0.05387469  0.2334397</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 7   H    R   19    2 &gt;=16   0.60531151  0.3179971</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 8   D    I   19    1 &gt;=16  -0.12784750  0.4151619</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 9   E    S   20    2    4  -0.20825803  0.4955724</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> 10  G    S   18  0.5  &lt;=2  -0.98202095  1.2693353</span>
 <span class="r-in"><span><span class="kw">if</span> <span class="op">(</span><span class="kw"><a href="https://rdrr.io/r/base/library.html" class="external-link">require</a></span><span class="op">(</span><span class="st"><a href="https://dplyr.tidyverse.org" class="external-link">"dplyr"</a></span><span class="op">)</span><span class="op">)</span> <span class="op">{</span></span></span>
 <span class="r-in"><span>  <span class="co"># support for groups</span></span></span>
 <span class="r-in"><span>  <span class="va">example_isolates</span> <span class="op"><a href="https://magrittr.tidyverse.org/reference/pipe.html" class="external-link">%&gt;%</a></span></span></span>
diff --git a/reference/microorganisms.codes.html b/reference/microorganisms.codes.html
index e4e70e08..bc131c9c 100644
--- a/reference/microorganisms.codes.html
+++ b/reference/microorganisms.codes.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/microorganisms.groups.html b/reference/microorganisms.groups.html
index 68a886fc..89979ee7 100644
--- a/reference/microorganisms.groups.html
+++ b/reference/microorganisms.groups.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <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 6fe1ad3a..ff584c21 100644
--- a/reference/microorganisms.html
+++ b/reference/microorganisms.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <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 efee71ca..4f97dec7 100644
--- a/reference/mo_matching_score.html
+++ b/reference/mo_matching_score.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <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 957ccf29..9a05f48f 100644
--- a/reference/mo_property.html
+++ b/reference/mo_property.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <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 fac9fead..07b18284 100644
--- a/reference/mo_source.html
+++ b/reference/mo_source.html
@@ -12,7 +12,7 @@ This is the fastest way to have your organisation (or analysis) specific codes p
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <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 57286fd8..11963a6c 100644
--- a/reference/pca.html
+++ b/reference/pca.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/plot-1.png b/reference/plot-1.png
index 6fd86aa329f2905e39720aeeba95556de1bc40e9..b0008357863bc96edb1adcd1731d27f49dac071d 100644
GIT binary patch
literal 26875
zcmeFZ2UL^W)-D{&*6mina<&Kv=r+JcrAhDZ&9+3E(t8mBArt{aXaQ_sp=dym8ViCX
zK<G6gC<;52ASI!MfJobf5(p%L1jzp;oO8bO{pXHx$3O1<@A$?y?mLDA*1O7FbItY4
zXU?_alj{~&M1GR|2?PR(K(78_1p@sL0Rrv0`QtvIgqrbY8Ti<D)AY(8z$fr*m^8%!
z9|!JSbqoW6q!R`IcBM|Qc!NNvK#)Ivvx&%Ephe<tMY@jj?JYUyyAHK}d#oy|Q`!3M
z@b!y7Vt&!T|I?w{4?lc<^&vi<_tf~ux4)eF<4N|ZhoJjUPIaj4R{qoIb$on$$?q4#
z69PThB-tW8SB*M)P*D)Ak+TtFK$?u5&t+`nTap*ibCI07<|3h3|M$oLPa3eJqU<wE
zD)4u+F0I&Z=7Zv2!fp@$00Onhgn!VBP2PeodPVLOk5(QO%HRRrixd8G?plkmr2Oqa
z3OdXwAdpAMQuD%Y5NL=B6t|q!b)ccSDRc^11g);XGj>PdqJmkLWGV)3ArlvyHn`D7
zA4`MM(2YJYj|<yU7y`!af&_nAE5FA{)CT?`wxBT#c8w)Q4#W7`y61+Fq%pE(&83b0
ztY$hE&9}qDq*%GOGz^zQWQ&MkIRqPQnVT*C1Gh`7tm1alq9*MrMq{&qKS<WLAGgVK
za=ngkj&fubk*~n(%P#3(N0_%pZ(SDY;awJC5TQ0j_L-WS8`06NjA?K3JX%HR%~)Rb
zpPU&B1O=E9i1+6nsrye`orjjHKSD>*Q5^ZUtq54Exj`bKSlQ7ldTwf6G0mu|j5AGV
zw<kr`(9P!uHrmNgaz0eiN9o=3N&0yF>(dWM{hGEkw^m_v=bjqLZ8gt#ghXS%_5DvT
z=~mUCdgMfY`*wMAA!*f^eE5_F?@cW`-`K^lwy|#?l>1D=Ym=3<z2C<m(G=ZY5>`6f
zqr=dYDuMMfy7SgcfQ19Gv)pgbpYFN*d!h+hy;g18l<M$&jV>|Ehrz5`OZt*s7#V3R
zWfav1VP|G>mC3ZYiF$fn-MXHO11)^d;EDdAICE{OlQJQ%xf>#skcDufo>%Z7)W?P6
zD5b->X!5*?vO%c6%wOD#OT>t2Z(0miy^M!bG-aDeHQR$pt0ebXTwX-5GPmkDAk0u=
z&;WaPBJ20WNl72aAdX}(+QMPBq3fqJ?$j9{zgYAHbe=JOD|x)e0<mAxM?8pAvrd7P
zsTb0=vx79hZQ;!+YIr5RZ}{1ydAG5{=$^2CiCLK-htO{hRFMcVdxrn!so0`DWB)Q@
zQU2J-Z=V?2F+XpuCoE5Tm|TSS)35M4utVd1q;-C5+q&~`EFy3A!nvf;j@p;l>v4DT
zxH1N_ql99T->bzK7Z@!;q6Es?a)B}R1|>TIebgOY9t+Ot@#@{hI6(fQUWVv_kr2$J
zRX5{z{1@?@G!gae;9=D>oIiQn_4E#r&H!9&+fX7VuFAsIYacGvan{NCKm`0dzTvMP
zCqOA4DDEA1X`M||ldt9Z>KGI{NPTkMR?0`3^pl0#z~PLO0Y6%h(Ayps{8ln-W}wRL
z#0H(nN`X3zvyRNK8IRt1P|V0)GcM!Wi<~BvY}=!5Q2o*>D0;JUrG|T$*Q*B62xjh}
zr&-g6W@-2S#3C(y1H;O#-(lfb_S7B2%xiBt63V~q$Jtuu-k{=Y9*Jr48fejNx}375
zk+w|n$c?0x@hVaSAUOd?s?m~KUK)rFdx5F}ByTa&JoiWB;MGa~Ur8%s_C0>#<ty`H
zr0DOt^W6u}jQ1ZNlAf2H%?+z>oRpk3xMRWB@A?opW;PQEeKi)^rYp74xP2mg73!2D
zCOWGGS#C)1faj-S+?|VhPLvHU==svV&a>6I?tR?OoPYt{FuJ7rW0d&v_9s2fAgyn-
zC!CqL#?W0LP&^`ll0-<<><S-EiOW}GPb6SZ^@LiP{8~ea6xWWfoxrIwWz<QLpK`;-
zG$wPQUAnU$fj`HSw&T>^@sI4UTh48(&T;P_iMg|$uRGYVnmd2KRo}UZ#6b1(8`Qac
z%45wuok__=47FP~xGSDBODPVi+QqQIYm09<9t55Ldbydt7gTPB&8pxRlf@-JrTW^Z
z2CSduI0h~-bQH9rwWgp_6tBGLxAausllpJ;y!H$lQ_lG=@LO`jV&QGumOZ+&Yntr5
zp@sKyZU(+3l0JK4Z?{!Y%fgo4Dy;&bbxhKyt!&z>G|sCwkInBM;`c)rnygrOK)B41
zj$(SBZhM*Gci2qB&CeC#Onk!!z_L6(Ztj-=4J~fZ>$PM1RlSxWBJ**v_1w_b<a^DL
zq{zWnVF71;8!1^XPmnqq*!F`6w5ZJ6t$ck(f~SHCBRR$Kb2v^0rJl7++@h3EF0VAK
z&9&N_Q0N>olk25&`;~b^&gNXw)~wdUxc+9Z%j58xZEn3Lu1y>2U^lHRqHV*A0Kjy}
zIJL?Jx@S<L^%bD8W^HknKx41s#R19OzP9at?WbU4?6QS0aft4aMEH~*b27P8k)KM^
z)e4SGtm%r5UEPhbBn=UU36tH?N`Te3hmUD>;-pAQBbDy`rLQ>A5woH$aaGMWTN6oM
zv(l^UN7T99*+0a54k4#%JY)u!#TId!6XKckk{PC1+f@;FNDlT+vrbLD|1V*bF+t=7
ztQdBdD(NE`G-a`zqZX_+?So~#*KMEa-iM25+omz$xU|fOMLaiqNy{>?g5N8Rkj))i
zU_J2d-d#4K8F!=gsHm6HgNkD_kGeFCBWQ|Hyf%E^R|!-u8h7IdkljaLsi5a~JLzJQ
zlonc&zIIGt%*gEQnlXER8k)s{aU<tBW!}T?c>X97OZc%f*1YcK7-J$q-|oxIrU~nX
zCL3i-^XO~tNeV;tZl2n1M>9sF{7l0>0Snypq#~S)Z+I+Rc%iG^Xrhm6cNsNZHaWcV
zm98iPjU<IJykz16EXMT%UuOWe%>F2nOUUVpR%$NtygX)C8+lsCJrEdh*CHwFMIxrX
zM~A&94P~r5xn43%(A<pc2=3C|t`dQ|${No_PxXwx(VbmL$B=ZxV_+otHYZASSl53H
zuLl6r`$3Ja-7&XdlL?x-<HnP@Il%I~^}*Ie^Je1YHb2wvsi(M(EWljgm}fcC*LoUt
zk54w$568v!pqI)Y)C9Dx`Ygmbw4NWU@wppY5H+8x*5mKs4p%aE-HK{O4R>-ohDWMM
z64Z$V4%aD2V-}|$$kgkM4Nh74r;V8!4KL(qmHxchm2-N%K({@%V%WWPJ8uTN(&*eB
zr4(D=J+3pCP7k4;^Bs@+1lV=J*0f0qHr59hsx@_=-a{FRyT+OY&>~<pvscH9RFT=E
z8&1`2Z)2ybv&U;{2I~!rJ%=B3k0dj?yJG=Xa1i|M2T*uZqCMPiQd_=pENP43<~1HR
zo3#2sMEw|++>6z8$45DtwCH#CYhRxXS{tQ^7N(+3Iy2gC*cNHUz_#zxue6^FbdQXM
zZ6tZw2fpgw_&}f6=fXEkL_RXa>}36aw1kfYlZN89BzPzSDZ)KBY{9)}C~lfQ3^0nq
zLEw#x$&UzdlCc8~7i9`#A1|x2W^`W?NC$A1p?)bJuB+9S8!VMBCF%24+A(eIBCLjf
zMIJFYvZUp;DGO|VpE?EXs*9W9B#w|DM#9g!FzD(eT~Cs3>Z`EQM3OEePh_I!r9QV&
zcKmSsIR3Ol&Jtl*symPjxJUlYgDk__fUBr<z2LiWNq6XuNqO=BM?vZY<6*+<Xv%66
z9QGbEeoQLk-1=X7gL&dH!PA_zK&hB!DH;hCR{F2bJLRD$b=YWR!7-@aRz-S3GC26h
z?3v+3&#8L}%YjMd*IM+4uHA`v9Yx8VFRfEL^Q~0CQnaD_mMZdbA6E+N_!_fAL%SFs
z>F!#N<0x(3s*hVs(=k99ae}3~`D7o+1KU(^`g%62hI3AGH^EW+>BwVyyYZ1bCIz<P
z^-&jDs7%*Cjo|g34UfFf*OW{5j9f$=L=Ohv!J(k+<imqZ99=EvFM?~PHqYl7G}4hp
z>voU5nPD3dT*eU?;bQ^Nb-MMH&rI*9%)$Lw2odeuPFO~@r9G!~$;P$*5jXr@CnnKW
zyLhbp(dzifGHcNhimg<$w;{N=7I87=xtu<F&T*?=u8|c!D9?yMX$$^6;sz|J)%bPE
zERp<xx^ZX4Rz%yj>2_Xh+;tjeqRIyoz8W3&4sg*eyH7fW10HgIeI)_wI)1w{k9s&N
zk5+zsN>Rl9z_uAHKjHn+?Mg0{KAD4~Koz{)i%!?$y<59Rp;|GQxRW9uJH|C*$lOH{
z^?CMNxP}1-3w5ww)gsr~Xa_}ftN8yIHby&q5??j}+gQ8sl-6qWwY+&@P-E{Ce&YmZ
z*<3`M)cAS=vlTbI{PVV$a#0t5Hblg8{Cp1nz=$tKU&~;Yfn9RR>sNK&&Lg92`S^Dq
zzh96q$KfWb{=(6tC1bA?*)cHN)lrux$07o50Hk(PNNNE){vSVV^qx*-0V9}Le(bfO
zzc3TAxC_KCpUiOGsqcIS*qy-RaAUXI|G0<$Tl()B5GXbN<((?}M{>xSBq07uCYxaR
z>Ysqj0jOnN)GoDz<P?7T%tj9VOQ-T~5666WX_-jgmNY_;RA})TZC<I0_YM+I;W1m5
zLV$R({Ag@rlzA&*EN~ER3;!^t{>ed5@n)_ItQ+c9#T%V9>MZl_6qPj^?MH2|WgEy2
zJ==>5_`Dxel%he=*4T^7OxBPAnv|a!tZ&n7<Zm$u3m0kw&VGAj2u;$o1uPy|;@!Jc
z1fMNWk1h*<4^;B&f02R@CV)E4^}W%Ei9WPIGEfHT&{!U9l1{Kim5AE&uLHpbSH7+O
zHTV0iJ%aaawOtI-MloHQEN1JjKMX`LD`W-qex+i-)`0-x5)e+baqI|cv+FD5RkZIE
zTsYx?=c*wq7A4yr^pz{<Ce5zzhM1_UtT|$ZY{~Yo1aV>0J$s)#gAb;Romf03GQZqh
za(ZAZlRiwYL1&tA4PJX{VaG)T^;9zthpaUFqPJwxDkZ(Mon*M3WwwD4_VhZ7C)Bpj
z(NoG}N<|}ahDGBO^j>l>5YD@^+%bC&qJ>!jhmhT4Uz*r9yj7{c`0C`i{OY)JF72T(
zb<iTY7xxUlA<vU7lNl@j!$hQ0&p`3CaPjUO+Qs;e2tXq?_x0$yY+Yo1Cr+Y1$Qa)=
z7f972bLyKb4sKS1t$eat_F>5$f0McHi*YA14hderI(%GtY}~R2TSE*}!7RDqBbn=J
z<c~-Eh1y|*fUfZ&XhfA#Zd?eAM>m{I7b<(<XFyb5VlkUmtJC&~tb`E@CY%)X=YiF!
zUf9jPmufq%?dM*Z9Aaco!*Pj$_Im|y7Y+c;^j!>t3o4ArcdBag!e2M~Om?js1wK?0
zypIPgxGUIROe(TVD#<`#y`TmC-ELan1Ihc*4}fh&24Y213qd)Edg`0^nQf2C<Ow3#
z(neO+&p=Q*RJRw0nWcz8zuV!1vK|SFK%H{mTn(`$DX40(uK6DYB@2P=N=<@aK%m;o
z|CW-G1T;PK=j4HD!K%ey1Dv7JP;bs#;Tk5j1zZ<2i~resAA=NS5Bs9kuH&2ZyReL`
zAW*gKti{N<3nDUS(iJHuD|~UjxBQr!8o8NL`Bd;Xh%E!?HP4vbyz+PBW}g%&IuMO`
z_I_t)F6asrJX_3`&af4#uAEa(9QlrD)(h@y4tTg?A?YbxKM%3P%S%bdG9e}BE}z`7
zBF~K5!a@Fl-|;`o{bxY`uTvmMoRuG4a@lHc+t`0EOu-myAcQ$kIrc!r@Z&@~4qyq;
z)PJ=EW4j)#Xo@OD%#KqwX7sPMdu-$M`W)&|o4A_=D*_F8jEAOa3V!*oGvR-(L?YmA
zr9W7pEy_ggGVR^b%4kuQiXEiNJhr@q+e21DN84~PL3%|DD%!Ys8_sH@KYe7sUof8%
zV8@fVBsv@e4Jzk1q%GQ`Q|-jC+x9+e;kI>r053ZEVY@skq^gysVuO0M>C%}+mbH&d
zAD0refByPTkwG)}UU9oDM#dFk4fAhhOjOh9X{dH{_ILsJNy2c`m0Wwnkcpp#yS*tt
z9=<|C$A;5ayd-^AjEcGK^iR!E#7C`ZTZ|8}(S7{cq7>swy=b**;rN)}Tbd%o^8AhQ
zTr!<$o)U721tq5yvA34B=7kmPa)Az)bjh)!TJ78#iAiB0?>SJ|?1$c}2uxuS|Fuv#
z%U^bM#-X2peO9Y0$dQ4{zXNc{=_qEK*XmM|i$<^`GXnPrII?5Q%45%pMtVM241L#W
zw<NhkT?8*YWRC(b!t@(+KXqePF;an{Nm4f0(jd*q7(dp+4YY8cc9b{X;^ks4Hnex#
z9O7h-Eu+Nfx?xe2No)6@5%ut>4B7%))_eG`*kBmmt8J4+H+`loM7<%}UY!2q&t$x0
zhOJKMyBerHp`I90_Cdx0f490rFn;_??<Wa)t9*NVjEu8uB>=Xi`PW_XT-2FCA=xVV
zRXqYu`GKsW{Sc@9A;_Lq&=>?Or57Z~Ndug=D9WBiC-!tFd=m84A_L$|iYX>8HvseP
zGyQn7`XsM}*t6$MlCUdYc6?^?`WF54nbgR%7wv+X#Urk?bY8}l>ovX8eoRf7w{agY
zKP0SNE+T-}OKE|JEX!iwdK%so4B#Op1W{>M0vpzOUI;%9%DWi!NN?C?!Qy3aL7nnc
z={iBq8hC~z|BW<20cB^MNmWP}+Ur>$tFi8JCHSd;>wr`xt9}z=sa?7RPJiB&{4@3B
zWUkszJ7p-q2*zyl^!?((Skr+ia7adspb@C@k5-F_FE%`<&a=W%hoS`zaodL1W{TM<
z2osn@Z82LZ!)|A4vp+_NGf+h%a0k01f-YLdCgq{eI2&{vgjac_P2cbDPRH<KOOyI`
z#OI2#6CvjX6+Ip~?x4MZHT+#vAVv|q`7c*60GMpcwFnPZTJoyc?!nwm1Fwe_pm_Y^
z3o=Kg>G6vgG`Ei2p5Y4kz369vVbnum&tA0SxPMOW0!8;&+PM=Jez|-X;4=U#1)5y~
z>}2yQtD64pM=wJ(x0x<2uqwb`+8RzAu>5PS-_ku?$(h~dYg9Ez*k*Z0YJfn;F9MBR
z?C{=zS6A!P0aBhJw0XBWb&>;(oM)lGSnZuDFj}AELRJ2s=9(WWc8|^4)k%g3`2mQc
zW_K!@Pv4}!Be$Zl5`IE-0QsDVZd)9*wJbGq#eZl75>-M`FHSzf4q|1T5q|#T2+W`z
zz^ZQKsr3ocx**VPTs-FiS;gMI81P@y0~PA%A{!KX8`nsCytAc;>e@t|R506(ji#-k
zBB}mAhNsrsv(UumEB5wM8(d*0ytZF_`(i7jLSZbr9eK4d#kD5tW-C)9?gp(wuf9c)
z`UcoSZl1&0iKp~rGRL;a*7!O;j=oMq+uNXuV+$MGL<e^G0W&;GX;j6g2VFLJc+En;
zH0pO&FP%)5M(@#g6oORC+2Of(&Uy-I2r-izTUWYW8|4gJd}P0~S?-6Q{f4(_T^Lo-
zDrtyLEcU_{FFEBo&<dj31}buF7{#Q~tP4APq5YRVW9MweO2*vqSWg7)n0z~sSoDW=
z)5FP~7*jOdMy!-nHl{ZheWy>jY2p>V_T%=WbL`^2sycI0C4DAjRz~PcWLtE*jck@0
zDG|*xGu&Q!F~5T}k%^ZjXV(&j8wo?I=inok$j30_*zF$qw#~0LJZPP*v_K~<G8%R*
zyeA1#AI$X$o_>!ACCao<uM+E=2W0M8wKD$tgcGvI7PYpYB2w!MJZqO2te5I{>in@v
z-FGgxip(@ua5I79FiYwFSr3*88EfNf&UWoBw^*6P*f0I@MmWZjHZVq8!t#oDU|{Xi
zc@@c!67OgmmNRrA?hn=gg!hncOD;{B3v+?h5!nm${gS`C3)*?eN}c<LU%WcGU~4=w
zG7&@$w&%Ox>$!Q&dZUJv2N*Fsf`(m)a0Gw7py3}D_7vG!=0t6Nq)z}g$+2J?Vj3-2
z4Ea=dTUUZ-L&5_xOe!Nx=exL6Mzo+6h+R?Pvn*2*8`HNPVB*nmgkQ)Vf$-qy&dX?D
z?S|kh57z2z>ux(>>Jw_7y4xb4S2Ev4II|WJ)6kXeglP#9w%NOqVMLZyF7X$1=P@V+
z-N(?jx6BF{9Q_<=kJ4i}UqO4<H85;=?fQ~SlybL~R{2GMp2-5|M4V}BM5?rKVTTgi
zvOn_jtQYzCC#!BFy)}LeYrIcERCrpBWz9IQZKV##WhRHUWgGEl)T5IbP)w5+$@s_7
z+suCEDNw-ROMv1is5Cu4;zC*Gygeucsd6V^#TXjoSVoBjbiKtU8awtOFzWKE_@GW~
zuUaZW!?$Fv**CD^ZFjU2>-CFv1NfFQNOkZGhF=W;+1djAv;fFJ4oY4>;Iwo7-RqyM
zHXD$Qd<&eyb4)R5@{4=O6J9B@4wEYt2ns!VgKbJJANO-``VIgd!W77(a*|b#gLqUj
zx-4#M9?l;2RcXpl;tdoTk)6kw89<y3xYO<v=e`*t(1<Vcq#V%;*b7!lP2ElUQC`*R
zXiJ%}&7oPm9jb=g4CTEK9KtC4TuwRjkGlZW6ZxZum&-JBBtTk=%J2qL4uQXw>Drco
zpAZSw5k}zwBM$SgV{f7n-{ndAvFNRh7yiS6ZrbGLcFA@|OxGl@OJd&5dQm%|;TPfR
zSpvf3iK<}<KzwINj@`Oiv!KO?qPN!Q^46)r*A2b;wpG$lmVt{b7}iLa|JYapb5Yn(
zGx_J`<{0#rb&d|B*LpEC*`_mSwS#^pjZFj&n>qH3;_YI+Qcta=caoF_!^qH0U$nDD
z?G?b7T_Z1$d@+R47jyw4#JfUE;^9#l^aq&epl`Xs*zK)>$yq^fVV7Fx)$m#?HJEwx
zkxYBBfclA1F*A1Fb;CEO*AXVH&naUcO6k9eXa@`V7hu=B$9im1^P)D9^g+p>6X7M;
zVj1f#@<8)A+DHq~a<4N+%07<JwjCzvGfO!f%Ad*&QTB64<h(yKxI>L!o195u4bg+h
zrShq9;gyJLZX$3t$wy<|+}R8aN~$7-MyCPfx?k$|r5;<9+q>~#+qePMW884EB3U0}
zZxcsR?ceeB1Mxswku9RVoA;)8%h#f|X48`;OLgxQi3zXlUVV`uCn-=P$VU?TB;ky5
zvCK&MLW?!#;NV|j6H`OUQun_-yRzd)Jls!&?PFBK?NVO_6xkG+v*Vg;OoUJY((=2p
zi&1^>7+uI=l7bfg-s#Zko#flUgf7pV9&ozoT(Tx6O)F$f{kXNLVDy$T_3#$nBAH=3
zNd3O?_eLU;VNVhOXM`?I+zE37J~^mI1Yh538<@1TNyTiJaes$J6wC`c0I8}0DCcFp
zxQfxY$xPDF5*9*F0F!DmuZjD0LKu~_d;*LmA22V@RWG5as_hQD7zDE#6<I$sVT&2S
z3=u0fynz>OLLB!<5jbA68is1$D`AB$!8mZTy22vgDbJv<ey32?uEm+f03w{S8~9>9
z_~#0tkI`v+^P(+s`&Nmyd}^=*zNYbYlnHENUwgy&RhF>bLL{)i$6ciXQ^454rRH{)
z!b~CzNLLG<@UOsxu?7Ge5j+830b#$KNfugJ%f5eOcLNTl8Yky->AT3%m@v#ab2dtk
zJi9=D2;t$$6F-oJ6E0UsmR`=kVOZBVzmGds8$~KWpy)l9%Y^RJ!%_;+I2QWqiN5qw
zY`6tq+y<3jjk1$IQ6Y?1;thjK;yD*v4~_OKq`EsH5I`oQPh!@^&M>^ssHu^Bb%#?d
z9Q0D^y)&P(uR6GF$=0>`-YO9Hr9*g4nAI!j#1O+0?t4L?Y%On0hy_@lhjBwFOPj2%
z+>la%dpnUYveXJpmI|np_q>>$T32zWj?Oo$3D&k!N@6&X$(LnTug$}EfeJ^fxf$N#
zYHxYA3ijg4O@{%z^ak_^&-N#5yz*N0@s5cEay~EoJ!6br4c~<LEE|<^U(gW(D##;=
z1V^;yFF#Z`-;@*>`SpR!z!!0M+`<LGj|h-xtF4%Q$@%1D!4bMgh>?1qj=LM-AV{_I
zjY(o-hizG<pklo1&61oF1dvy{b8I$GhrIpmKj!}f4x8hT3hAmiH<Jse6|<pN&^sD-
z7ueUZ4KE)+tHh!a6^Y^<%_2Mj&2CsPD%ciT80Kp};N;R33b{Y-@OCZ1%QSLacC{sT
z%!U?mdEA8j09|LX2)OY_FZ_kJHY5&s9E?nVFYGSX9siCS0b|;r06u}vAMDMkz`y18
zoS_ISma8O5EW6p!ilasbnz8zYJ$d?)3wB#Uut7TW$j)8@`Z^SWQ7)Bnb1jOBfqj%j
zG!GnJ7^~-25OsGfvG2_f$-H}Xad|3m)XbC_EGL!K2#y~>pv&bS;stc4J^Y)Vur9A-
z$P}R0z*BDWkNZOYC32EMZqg?_bG4IIg{I!p46Ju_ENt_~$)qDkg%-YW@SiClukLS%
zJ5mRqS)zlS467TNx5k6*f@O+@&=HUD5~wa`f!|L~L(5`g%egFi|Czs=yUKY00ZcK8
z_9~d>+9;FBN8LL@eY!CC&Cta#s;}7s#+MVGmx0PdGZ1MtaoPUH9)7mMY9+6|_v11x
zY6xEcTF`D;W9jJhv#`dw+rzsUr9~sbZvQOE+QrbeQ+XA&sbIPjkbB5UOZw&VuS<_!
zB<vv%+Kk)L{QUWHWJa=$FxMrVJ8z&l)R5L)k82ELW&LwaGaCMA^~H>TD09O{J%R1W
zQ~=PX{QmOIPnTV+T(2YE=o$2}gsNxf0a(RJ(Gb1j`rb2q^&Z`eJe%PxR8l$hJb)?9
zBlqaBWS(S3`FauEHI3bbj#kDB*T$pn2oUQ&A-kK^7In|T%cDG5#+dn%kj(_LDcX0M
zBU~f!ucHU*ikGy8$Bc@`v9=sTpK*P3oPp1{2^u9)DqL+3?*kFy!BLKn2zkA;CG?^~
z8GaD#8Z3>TgHFQ~nMudRz}g;b3X$mCZD9A%8a=m$E=AGqx4Wn7Thth9yz6;TI1*>K
zHKf)~a51br{bOv)t?@0)xYWCgg4ufry?v!#ET9C(yYaYRwO{$iMP5cVS=Ph_ksJtL
zd*eAxJEs6G&02OXodNwHIrr$xl87K9a%@j-#TbyT{1X0jq+njV>x7IKB-PnGHedCV
zL%FLqW~m0?Ud$}I80J}q>z~T2_)^4VhwWM$-CIb;*yU84@n%7l6?zug+qCR~v;d>x
z6PB4;WJ}A%INMg_9^lMYi}1$Nd?YxBzFGhw;OPjmxxymAsLFb03yRtA!`d2S&<JuM
zrA8tZLjn?mVV7mZYQH;5BjT2RK$Yg#E&LMxLdw3!HT=k##sWS3@c2GpacgJec4FMM
zkM!wI<@;X%Zobt|cOu833}Ve$E%Y<cHN;Jr4=Xp}HOJV7&~Hz&pqaXj^@8St$b5%)
zJ@aVBt7^*+%K2)PwSaG_DOR+$O@H7z-p3<t+>``I9OI<t`Ju9Y^iuRVFPvUnqzuqS
zeg5WZG$VT4Ic>I;ALc}s@XhU|F=9C^?vj5`-1chILS?7L?e*Y?f~>;v$!hc}Ngq3z
z>b`cZ;Mr<j9Ip<s-YToiPpuD50=%vRzM(OcRh#fFe9UYh)ec?^5cu~|rY3(yPh4d!
z$g7md82TAEMBQM0@!}d_-tA(TqqVzF%qLhc=51y#>7(6c{7TZKc8@up)>^0+jHKRU
z5H{=`Fg$C-X*jb>1zJBsE~A*pa=&_KRw${&OdM=lxG-J<qyzGnpC=j=q*)q83aTd>
zt-S%N^FE(|qA5TmmjvM@=EyF|glrT9i+o(>qzd@sNP^s1baO2ilQ65lxIumaA4_xQ
zC4>Su)r@6V+Rspg`S+67z<y(7`4ha4%>r5PE!Q*TO6tk7<}mt7sicpp@mo)&FOs`g
zoNZ(=OV{zQ8@U6z_E3ku??GwpvZUm2p*@caf~-~>9@0EldkfJ|6^y<{p`W%+wJgrJ
za{XF<d@)$#VO=Wp$7sg*VRmeT=kQZYjnM<m#1*QY{lXs;f?isdG%1p}{>j`vd#sv%
zC&YS@?23=_%BQKWvM(W~e;L%y4uI;;y=s>&TN>^Cdo~{tP$GfD=J}6D9-F0wptsNf
zLGRu!<Tlc8kc+fK#&}XbEVrg8&h8yjXD6T{C~7au6Xoby$L-Rab$RdUI(%mPHV~6E
zJ(CJ5V5cVx&iRm&G4r<e*(dq8O+N7Q>D{G#C*gMI3CN4AEn!$ypS4EElL@8UZ#}z*
zys(j(bb`IF8Qb;xR_Y6X$Db3W+=@6tZ~ph~?$&o_5)0QTc^^%te*t)`K7m`5aB($(
zT*~Wse_9zEWbdkBr6kY;i1*21SFnis4Zs5yG!k!(hmZs1sZL|oH1#S6Aw+5g0-z(k
z@)5X{NtL8b<71MIGVN7vI}}bN8~`W<@YLSwlE7U#S>~oT+)U7W-xvye&HbJA1p)+2
zg14SW0HWI}a&JjoJVqG8$0L0IgY7=c{uph+il?WDK$&iSmHdHXBVT(3vk^vjrSNbK
zlyf1xCHit}H+iY?UUOY(zPjId5x44v;BFfTw5<{imyvh29ec*7`rb@<@au!u@jv}$
zmLw@BdRtZU*kt_e+;<^QLz5-j=hIK@k(@lK)(h2;oEA^ianZby`_@IpKk0*x<>2Gj
zr&c3$a$9wa;^F`Z4%c?I=9G=pV2n|-#YJ#fsS}S@GdO0;qKrV*`spX%PPC-w*ORA~
zULrd9P-LfGXRt-qL!r3wr^zqB<(baiYibDN_d|m6Z}Gv}YZ0Ura8Y=Mm}RJod4)i3
zP{{$9Tm&OK=sr6KBJ+Ie)9HNpW$%rG?3==AIUJ*3TQ+L0+)M)NC&r9zyqundKHXtM
z<{!>|jQ-twBga%Ghp~z)eL1Z^@V6bGn0?*;KId@<lXb4dizE46IF5rl(36|9qnq)k
z)o{#tKCV!hE(cK_HXg;f7oV3cpQ><0<iqDXn3?}N1TU+DDVws4GcG+J_x4}g$bL9a
zI87XT$-_r2%j8TAzr1i1CmiXFKrjf>K0HHPVdFBA%Ko+KH1QoWrin?Im2W8g*FGRj
z=H2#Q!?Q$AnoIhvo@-e>at%gAUSD3)Vi!2h-AkCY0zrSzJ1`~<vAD{d>EMgHSj`yC
z$%m&+DM6MpZ}}z*(<lNp%15M4C4hUbg<`;QX;V+VJ6tl6L-;_X@w|aBFpNJEc)}WQ
zY|88-1#;3uA_w0mRY6OHS03Ue2VQ=osS{m%BRi4pWtL1#HbuyzE?#jxFm^62VBvfZ
z>zoj{E*jD$9}I&1gi}3c2Pk^9qf%yP=EnqjPwHScYmyHL-d~i3C4b~$A^H7|&2VHY
z#YUyyD|Mh>zo|^CJ)*?2(z*Y)fhjJyDO>dBPk|i)Cli~j*lOCfzWuufrV>aZlx&*S
zSSpninf=4aT0oBJMw!mRT7}`>yN5yNZVYB_^39mR5SjETX^0VOik?j`j4YDhc$PhH
zP&vbOz;7XARETfP_gkd}%WagNID?}XfMu`3t-5M?onY*3y~m2H`QTKj-s5bSv?(_T
z$xrX_tJhcLbPcOkOh#jn{H!UM`TpPE0ZWTg*AL`ILdJ&fp0b{4RYa-zezb+e>JwA5
zMfZBxz?yrF&Jz{VMzw)eG%zBHPl}g2-myhOt$S1$Qr07RZjSx4T617HoLWlDi>M2v
zW`GG<x5AK}*~vcWQA1)IYkttTHGv)5Gtv;|8@@2~0!%n|VC?-;9#~2{sH+hMOa7!0
zNv#X++1%VTQZ(+nx?GttdWM)Fp=;UmKDS6NVz72n-8qo!_Trl>eGF3R*I(GxT?5z4
zC;6ssAxBRi#a%o|W-0UTS-2j|G?C4oGPa5$A@qrn5@q7FR{y7oQFvt*LMP4(>8r4D
z$((hg>RpQ7+2Cj@HCxon*1}-rvrAaFrg@@TO+GWdXzE33%&mUUk|9C%8~5!8mD_qr
z#o^q!qS=-`VgY(dKSwV@-E-7QI$n2vdv(Jyj@uvB2U%P^%z258kyAm;ndXQ-P-Ft>
zb9J%U<p(*UUSCLh^Ch?iZxtxe5&NT9tSWDz%2F_bVo@#<@YGdvsvx_Pvb_w5<2G`f
z1z8$u5Q4+?cWgI;(9p`;$m9og_`#b(tE{#Gj5bh{yc6p_w?lqI1T>oH=el_b&o)3w
z9&!i9;P3U{IAQl<!K#8bEw9L$f3#Y)g759X&Lh}^XTrWzlfgT2l+(5Q!kozK_y6+(
ztrF%&9i$SP#mCCN?F!wFez_v-tV9B1zPw#fc;VoTouqI#wK#b_7V_ix3@3=#Sa9ib
zq_F0|ZMi2SO#?DQr~{o*|6^x2nnHFisZ^)$6<&O}_`gyxkWjeiHP#qX*<7_rlHVho
zcwy>Z#@*;>WOAPO0pZmrk0T~K0a$gq3~mzs^=!Vgd5bLa)*!N7#px1FAne6X$a2c~
z#++zXxup2{RYHR#T`0Cw$Kf5vrSyJ3V`>z@_9LjU&JLzZ=;Uc(vLas7>^^)`*);S{
zhpGtHoSAV5^?{bZv@BZp!MOU3bmkPKxTu{&(~IMjyeSLO*C4K@Es*b?(j3Z~LLqZ$
zcTWM|Gn!As={(cdtR5Cm+l({czYA1icodKm1IAi1jgdHAqIH@9m>8!mG4MD)XX=IK
zVC3CyR&uK~(x7SXl>gm7kUVYay`YQjd1<*LcMoeu-9(BNxHRksQbIsCb(+NfG@Lr|
zO4{aSBuYNg5os?s-0O1NB-#SmQ@B>?P<jR2V2NZ5Tpz4o%m=s2#>J%QFVz=%IaUB9
zQw5-tiAWL~1TuR<OPl&?BG!FI))DT0pU7<@@R}AzYM>@vA-h2u7w^MENfx2Ekk&}t
zhgHrKh(*_$g1(Ab1CAhCXAW6jDk*NR(4Tqb#cbJcR6eI_w~!k~a=Z$df?3`kQJvRh
zR1I>fy5FL+%(bu+1j?QepCLA$_Rg)K%56Zded16RO>`D09xlSgItW?Tn&c@OI=T-u
z@JGS3h5EZB1TR`H9>sMJXHAh6@ew_c&^t&Kg-ClOUNTAOQg0tPFgBByGgXJo&Anxh
zQ~)=eB5vK}3mSqDS5H|ax<bY>rpm$Y*D8aNmI{vJw}f{@TJENO%TpGYZ}3I77n=Pk
zwDhn2fZct&Jd=jgCKe%24&D)N%9g(YHQh3cz>z{b%<%rlwm|OO+_<f{V~_C}|D6g(
zzTO2@e`*9@d7m%4H^|CFzzX~SiU;r4lK#V-WL{Y_cM5dE?0%*vPL9~`U$*)xdmaFS
z+kHnMvAMUrT0;h=+ZD&DGdZGr<F~;P5^b4jCsDT$A~5M!ea|?Rk^=Vq>Uf<+Wk?+@
zyz{sH(gSzTV?xIwXXS{!iuNH(0a}uveJ{RwpJ2?5(wE!7Jr<!5b3s19EZHm7PzwvB
z{{eiqT?#|-ZpFH_yT;e55`{bWe+hT~cVO55;XVRy>wzxU+IvTudfgD(d~*K-cx4bk
z4UjI#TSmk>Bu<AobA(?13$Z3oc)_GR0kUjCI*5!hCZ-`rt5*qBg^e7rxI(0jNr=$G
zmE=C^OQc#bvyD=N&6v$#MiN38>l}hy2-yrbWwJZA+~qg6(%o>0@{utBwN5ouBl5fm
z!r@JxUp-0Sz1LS8`Jy<v94jwZ9Q_-zKW+3EqJo~cOnzU^V6$)#F7l6)ghaaxON-F%
z3*NQzk=K#hcbANRkz0Z8>|H}(X7QTelwVHwa1^ysQ<0ExV4t#IfvHG?hE<2OCDc?_
zvBE@**(@Vga{z$#K;~5XIkwM7IY|D?si%c|?j2~fMrO(l<L55=-!TF3aU-<<9tflG
zQ9t&IT?SU>?dHL>g%?v2ieAhhQ|6jR&J-fx8nVtJanJ>bip-kq!MgPT5U(*HMqlq9
zR{bq5d+KxHgActmFTOp>ItBEif91R}ifOtY3z5mZP}0hR<mb#Fah9gcCGb2HJ%1X~
zY;6K?*st<Z$SIZW?<$p?v1o1S&Zl_bx+m~`ncTE>BjQNaX^0E}#xwPkDNwzPpLy&$
zLLR4?gMZ?6!YAQD<Yw&4TPPB<4NOgpAjKdR3c!)Fxl_Z6kTLPp)6Jd%5aw_;ox4RE
zFHFn>a<`X9=PckIGu=4?@?yjrZfusks4pEk^`g{b8TdwO&D`Pm?5xkw&1QE;8Sl|y
zSBOl;R2OMWTy6t1<SSUei;1@;))Dy1m}f^&O=pO*;0>SI?M~|+RUw&aIrRLSGy!Xy
z!6?5!8*Ccd12!&J5JmzXc2@yUTX(jTFkWR7=ZqYcBdXZR3X^oI=gca#VhPunuSiVQ
zV<oImTco~x<Tm<@(5QUw?`5oaD@3}R!(6j34DWc~9VZML`Tsy{{^!)^zkCgUlm1;_
ze~OlCxI*9f?b~D0I6zkfI*Qjc7vQWC(F<C(s_kDUCRixS$pdZ)D=HASWo2_hV+tfR
z0*M;DF64nFen)YKCX+~|qQLfD0Nayo0DA_)Sx0$CAy@nF>9GFI`3gMPEoI^ogl$%7
zL?nR+1p#c#gB^^swzv;x&LBs1iCbv~=ZTBF^eqcyDp>anaS*v68GTovu#3>E%NCRe
zNWjB+nq=^kNsCyd%d06zh|x*IXaR`DpLhVb0=E1)Vtc=SL$o>anSNYm*j1#Md}Q2$
zwxEksM<1mzwITV}8~7M-k12B=!nPO|<H_rOScSXJ^6N~Q3+ZD`2W4JN!MsvW2wJ>~
z5|G5(NO9XGg28)nhLj*y%ovUM^U(&0Pe4tX=P^}^4YqT^iKz-g+Volp9MR4ozMQU;
z-<SvMUn%jj2e2;EYdS8ju|s%{7oU*^>{{cJ^Mso(VR-ZvykMLbNsYm~AZSYsgiSw>
zwVX?Cl04X|JNo=q|Jiv-%48Z&m9=^5jt4TQ0E}_J@H(L1?d8-Z-eR3Qn;J|I(8zf#
z!ARUaCIp$AH8qBKx^0K7(heGZWg@D3>*$;0?u}U#YGY#q+~9}o<o<2T5qU;bcj|e-
zXnn{p70IpMnXVa1&b4475i&+8`U{$75VtzhJq#a5C>*8g1kf5aGhIR<$QWfJgQdu&
zLbk)&M%HG)_N;T+Q{_41n=`}Zo~?h}lu9&J!D|e<!d;ODaztaGD!>%--)L<WgE<WA
zH5mwLq}tC~)M)+Nlh0bpvw85bPv6HBTdi23p2!EjAIyzU6PtK{LxdrHtMTUU@H4+%
zbo$3#02-`et<N-VYCO&0gJthHBy=XIX))u0sNQWre$)5njQm^9sJEHmhPgM1GTA_!
zoN8DWQd~V}Y{67PJZ;t_5_t?l9B@Mc1q?0vQfsRhtiV!?LV-~^6<YYyTiA>EUx+iU
zqWb6ODK&NcA-PN!WT|tVydWL(+OoG!A@UlPx&|mIbl5vnj+lrvzyV@dGK*{L<^a9s
z#%*sLgzumJSO%%&9IBZ!zQ&wLX!YDZ!h<vz))qDI4Q4HbZk?q|kZEZrox}15$u8qM
zo2MXUjdZjN%$5*y4Z7*kGC3>Pu#_MbG*rdBSJth3HIx;9!T4(E=SSjhI<Fnhbt!E0
z3JQ?tu(%8MZjsaLXCw)~1#(Bh&cXE)35Gre<|x$mlkx(be4^`}k3Ssy(RZPGPKxJ<
z3<Pol<AIk))*2)>BWLzQMDt&0;m;9M_oq8T1G$8>fbrTuYN3Q*zp?q;!`>b-<mhT9
zVRL%#CyAyv)U}`OU0$3ktG~H<BzgR`)>c1QJAhgnIGI#EC+oY+8I%P#P*q}Ao*j6o
z9<HCZdF!G?U?Xi`AmjI}rjj>W-AP{`z&DKmXH8;Cr{z{XZ4AnsYRa3ol#gsVOPBo8
z2(E)bt`B+|5yhZr=x9(@(EaA_;}#313Tw{(eDLDZaSF_BpF*n^Sl54dh1sW<iiWg(
zx(392uN3d2)pOI`RyobT5U~lrYM%>?x`O0qehlQwLq@2Nd@4}B%VNz^)<zGy?t4<#
zjzHKaf`2`x7La3fYWgRv<DDR6>7I@*pt%9@l1aM$h4;Q;RN8aoLSLacHGPUQDdznP
z5OJ;?o~AhEH2WcQl8tkptUK=G*W->;HB=ueyw6pgO^Z2mPS(!T3yHO(M>#3=3c1wR
z{v}01lrq?dkTvz{$h?joaquiGpeJC>PUvFoJ{}fH3;7+Xa(-jH$4VZ&j!o}mm6<jC
zanqy&thZl5SDE-OY_hX{`xLRLU0hj!4j|jOR~L>CZ=Ma(xAwWXb7kNY+cNYTGEhRP
zqREhmvD&9COx<0*`8c64z)ZrPvktB^&3dzPTyc`+hMLM$tZL<}5*_mhRH-L_6ZZMv
z>&L5*CWXkG$W-|T4Pp(XIeQ9=9DVCOUy30i(ngJlUTHW*fP4pFM@3ydV-8VlqD#VP
zBRwOkbG1&sP1!(Z0SWBpOhxMQBp3+YkyFu-vAn5|id5YsW5=UCuc_jfAH(g;D!Yed
z`-4xmd*&==Ox-^pl$od@c>_U_(>*;siU>zy(gMtxX<&Z#RBGBnzs;TVP%k9)eQp(B
zZQ2C^K?XvUuQ4~kDi)y&hhe%D1?Y&eiqai7&}%!+wa7DBjId}}M-H_bTUVwhd*OA;
z1~@VKuy`vJZAfVdTJ#Nkb=SGH$<;9CG52_ovsE)#gb7?6$h8cm{J28852=&jd2y2`
zbpopTLnjyWAMIr<B6Cq6c@e%yUmpWh$O)Rg`sT{UG<ZL&xU<4YH*g)7uA>6FUd8iX
z*DmR|9+&FWp*Z{I9lhIq8yFD}jL6pPwaeN3RCy<w7_TSyw`l0we@x$*cA6GA>gE^}
zeV;>7Jdk~Zy>d|MN&5TCkY$oW!!N{LhV;-9OA9F@6<uHmOt<6aF0M0VDLquTuQ6S0
zz%<&*;MTQ4XLz32HRcyE_G;)&<h!(m-eS0%?4c7S#cZ7v7}U6`w7Av@-lV5C%_Jzm
zz7rgg=6QjyOdD`3ry<H+-vb+5QF@pIU-VNBca}iW{}4?o(2Tj79>`lw?@aTR`{-<b
zG|0SRl;3ifvoZ!r>G>YE5p&J?wWF*Vvja@XoXSvSG#umw)`5Y9uG}*YH8FZ%+5wfT
z72_7_2D;rq1?y@OU2{YWCRO?oRqNp$`(IAus;!ppr)%f?IWr1sr*j;K_wU&UERsbi
zU{C?KD@&DqM;HAWcaN#8Do%E>tjvEMi#=3PZEGFaw*5-_-O0qj>gQmd8<Lfkx0liE
zn43EXKN)1k?7udACCN~aUb*&DvfJ#sXBW3(tiW#rH-!Uzwc0Nq8HEh%H&jD?^)NW7
zb!$Z@ek<0~C38yrWhKGTdp>Wf_UhN<E7pr4ee;yq5iGHGq!T<sX4p|eE}=q?KGmk&
z%Be8+=`3&eq@K)M3YVsBjF*5T#4O?ZB-yu{#FtE!6J9O@jHh=wv~GLH!4jEy^PG$x
zQ_{ifYGpF2*E8`*gY(|yThEZ2CLK>=KC;aB)_lG(M`A|0T}yr97A_ZQKE1uCFaU2J
zc#!26D(i2YbhETJGuS3WTl@GW{Zg`)$(GNGjtgoE_+JYM7Fk)b87{VtW14?#Y;-Vx
z&}{z{vH0P<ds9cF&x(WlxrAXjF!1S*of;$0r{Gp?vkh8+#~m$Yu4`NS42<SZ87s)p
zl4<WMH^)wQ#1&R<mMc03TT_2WWRE6}h`n>bEP8V~m>j8RZ}TYrId5XCB2F6V6V()r
zV{w%e4s8=1V0Xs(@e9O2UOMghl<rF&O4|PVz)}h%XvA?F3%18rHai+n2A_Je^Hz7;
zTwT7PG=toXLTZBnT<A)7)Dqt`AgUuz=3Y3(i>_K1Z<;pH_WmWKF-T#}p{L^IG*<Mn
zqM|Gg)8jg~FgEG%pCy}ypX-!8!PHeKTI*`km^NerK=X3yo?=>F$<O_LJ`1UAXJUv>
zcMx!>kT-oSZS<?h`N_3E!TS20?&ce1<#CPe>?O!j?ghmGENq*z2^P0hy?nXO$b0>H
zQ6V*QHUXT9ezWALPZ>mdascUD(sj;H?~T53T<ke;^ubIg+62{nYD5vt@-Pi~U%d=v
zG3gRMNrVPD){-tgAvpw}HhSFaL&|@)q<SiO38FkVKsZA*=cbpYY>Y5!<%qIH_ydd^
z8pD9h!)hHNL;L2Dxp|d_MM|sdB}pHfzAdMNzrFTaL4y@E|8{1}P>Uw2(Ye@EWz`eC
zTp~T+e=FNaMUHe3lsv3LoV4;GxJC8RGNzIhkG(2kclH(>#rfKIY&xZ0Fm-i{Bz0dN
zL9dj-k<?#))0Q!>X@_8)d42?Ws=vx)fPEOm$f=kQkQrI6H}!X-!@5^2-pNyww$!99
z8;VlDDJoJ!A;;bOa2}MSILMqLe`d{SyE*5Ak9PlD$Q+(AhK!1B$@}7k$TsVreg6X>
z(lPe>`M6JphTZ{qk?u#eH^<H4`U#7HE_uVz?`3P-E5;x}&-T(HG{`av08AEbWd~sJ
zNmZ`+Mk`MAh4m|4i3*XIkdw%h&zajggB#Izu8Dm(cn(HVh`iISW|{L((TZrlDQ3#|
zC^Yz{UZ~3WhPZ_+l~_v5fXfe;W~t7-bH5Kadhg3fvuj8J*0ZQv1L1ZpR~#f+QEk6C
zYu)yzUsZ5HlVL0S*T!mQ?o0NslI>9n4N6DvPWIYF=dLx@pxDsLQuc+ia8}*RC}ZS>
zF%M}iIo)?woJU!U8$TCTbla5HZ1rkQ>WSuD$ecPjC;wYi*89DTDqtB(A=?_ndy4JD
zE=W9b^c=D7>@>+jU;lZ@&tZy&J*lMcUU!X%&+Hs#1q*o_SV#cnHEvB@sH6u%k=k+_
z-PNnlzP9(%GA0v#CEPV@!57{Z7}kNt6~MJvMA1epd78s^(Zx-!-R}?SS6`pqZ_O9)
zHndLAmegDszT7|Lli_5_d#5BHa#CyJh$1x%hQ#yIb6)OcoSqA6XM^khvJOXFQ$Rjq
zDx?CC8OpmG{k}&*_wK`461~DGxo~<Fxw`vetLRn8nw{|-<<YXMOnXRBzr)>k(I$;6
zD4jnx3@amY?4yWZbtwA8z!$HjQVT~W3kFNKs@>B9Yclny<VG+9J;1q_#JJK`XHQY@
zOiMKL%5fw)4a)|q5-0B<wTgHqpSJd==K(^k_R&%@58c@Q^V-J2_7mbPeK{I}GkO}O
zj%nvsXYau1M8TC~%BIYe^xsIqFQ>dAWeWziy2MUvqojP)RFC?IN}X+wIXr=)Cqxmk
zvz@JLzczY%Z(LCfRz0Vd!qTcy8Ym(nK5VHzbqrDg!q8ud$MiUsmdwAvO>Nc9vbGt%
zkr~Ui)mb%_#)Y(k)K*AiSjY2I5N7Zkf1_r^@B3y4A9bPF0~(sz!4yyUH7>||<J*9G
zh<I8EaEh*Ml8&18LQqP>$8}XMKH95d4nz&s)=?}Vj^w`#b+oXG71?Y`KVa3IGi7;U
zMEpGrqD6_ApYD7)-7b1$kYSr)tntSNq^zzu@QsoAlF4G?jV}M_VI`t(-(tf?N;(G{
z65Crs`UyckG1y=IcPSl@wR>7qeAj!h<jO#vjDz$|Z#iSiiQp<j3dg~X<fKROHJ9d*
zB6oRo1YX;)Vlx_64vVfrnqM(5tKL43e}Am8lpX$iDl4Gt`wBZ{?pS{#*ch9R=fwy9
z<$F@#66-(58f5#Yrn%Lz`(w>($!>PkGPW7B=9+XcX+80WA;V|BDMsO4^Uywx+N}4K
zzU^0b<|h-=!pBRt!xpU-WLWgvjG%>9vu0St@!(+U(GlqId><`XWyv~7>EwLBzmw4L
ztN(0<$fSL#a<dC=b*WW9P*f<@uie+w&Nz5>TDgNhZqo(;Mj!wf>jJ<KFgY!aVY|$#
z?C_dkq^w;&KRb#4Y$hSyu~3{68R--EdzK$m-4+@WXO<(M((1?Q?`q>sLjb$4U6Zwp
za79|$cf`dm^xnv9@?L@C$LTjn6=Nm;APR|vNtkHQMunMU*@r%SmxqKGNDU4G&a2UV
zAt-}6W4qPD{9we&%UwF*$5;KxO2Lq(0pef@5QmfVOP6?AB7mBvOR8O^pMSw$vUL5}
zh_NtZ)+sVV_P=*&t6!e>b?umEKL_*kzF@oG**A=7-4<}d#p|39opV0k$eQ=~Nvs94
z9?UC>HdxA^s!NN}e3tqp+EUNqcw|J!XFtx>P>&9B_Ca2N@-(_@+>BX!ek|D6cjGh4
z3m@6fj3h?xdOba3r5qXKdK~!HO!cv<b@O-Qi>-5f(`l4#M>FjHy!4g4Fvr-wRDWsx
zjL6OP)87l~3P-$X0Ppc}KNeWC6b_>w?pcIUeY3bSgI+v1dz~MH1iqXw=BPfW<rP<L
zLTjHWdG&H{FmhC-RhD<Kj-z!{(bls2ui3ArebGxlw{xe=c(d<6NA8MOYX}b7EUa4#
zciQKER?q+U(lS=cJ5s|g*jghk?4g4r@YR9}62MfUtp!wn+M@rQc*c#Oci@Q3CfA$`
zibSU-4Hyz&eYX=EQ(GO?Ob?6|boGZsCQz~1Bu}ft->`dwvD9cQ<w?dDfROiZNBZ4c
z-Tk@b-u1d3x#3(OhA_|};;obqZnz;W3%W$3f=nsYf!gaRdCnVl>#x<BU$*6lafNH~
zz@Zscp#jz*K31xT?Ho+oWTZd2Qm1*$=bb#@oyA_spv)!CP8&gFvP0)sy^50|{0l@~
zh*AEO7eqPm*UQJFuOQW}+XnIWjk903tYSa#AV>yy<5tHuzW&9pe(JM3XUqS+;>G{H
zv+)S61rO&>Ijc8Y6!sLRhnE`?ulSeLx%2#Q=CzDe+4UR<gKS%N)Dm#R*M0hCz*H-@
z@$mqi<MDRRK-v$~g;RN-6F-ta#RSh^iP$#GFo=sr9^<8t4>bfjK+4YzeAbgF8DR&h
zzk#K^Q#ypMdIBT8=Z(Y`x3S88=E+5xA>*zxy9I%3_S7g?7Pz<rh7)hkUX#Zrw|~6m
z<%VH|aV$fzB<6hfp@QG$tw=YhX}EGGUvJC{YsN&U*RuYf=Fa>tsr>unwvS`weDvFt
zr8Z5dk*0>Zq@tB=;0~5ru487JxS+VB&Nyl{rZa%zZjIuuq!y$IYMKsMYOW;;V@RZk
zC@zExd~Y+~Kj8D@mmlxreSv%5=e*zNyw3C7EC0(G5Ftl5LU1x2DlKPeOVw~?D{~dx
zK}UW{)K`v4FZ9q$yTRtTs(WxNSsOM!0rc%jcXgoy9Cy#3?%NPaZ&^$=NO2NkXy=$C
z$aRyEs(*j_H*u5@@0H&?U1g?ej}I#gD{4jY6&QLSrvfp!%iUGAv+&blh*IH_z%Gxi
z$2|Vn<hxYm^I+x`4N-B-1-KD6=&{a^Ps%cZ>QBp-s^i|_XX#Pnrm*C585>5<63&2x
zdo6pX-<4wP9r+ci7`e@lOpYBPB_dFkX4e>igsYO+z*BWXOq-m>52D((wM!sZ(U`x|
zV|80^!_{K#SOUr8lFe8Li7hfg_0>6#`+{FFFwT^xoC@j)G0xL{t0OyJ!jA=gFs)o`
zuU(NYfuzSqECH$cMzznY*rY(2tDUtpv81`|`rMk;o9_-h^ShaGFQ0<Z6}6wEgQ<Ug
z^gqlPlW~o|Dg@mnMg{F=+WSyht;$jdDW>gychkAKzoLCJd3n}1rHKnURv2tUMjP<$
zg*Q5srVN;Z5l8fD)Mb9Wl)0qLxoCn7hsPp*&vBEdRDpn60-nIkPA;B(4(c%bVPLF&
z<qIerR^SnQA1Bt0kHle#HM~zSpS;;)utrC8GA_jd{U-H&c76S3!7eH&-h;H|T^V}&
zs_EzcplQ@o_hyVKN`H>a$h$4@f+Lntuw+iW+#J7k1Gme)b%1WE;QsL%)=yGD5#}uU
zSsMf3XHhtF%sdwd8DG!<qgGQ-d=$PA1FVw}nXEZE8J|Q3DXI{1UAxgTQ09$NlZ8XO
z`(=nW@`x&af$^v<&tzaC>IEvcOAae7p7lj$OHttN8%bvaLq~X!sbA6iK(ZFX!_S8E
zJ*(XWN^;JAhGkQu$ZIarIE2<PnLm55M3mx-J6_?C^g@T9v`HZ_I}_-8>!30F=z}*J
zD2~}Q=s_NDj$yN{n^%-4?U}}H!Enwxt(MF~;6A4M2vlJGL`}GCH%?pnaQ_<oSbeQk
z*XA2IHgm!SsLr^Q&mT@L(v_vLwv*}aeK_EjGkp8k&wx2l?=o<F&|oid_S{O3ofEyr
zQX^I|Vb>)yHbOS;wXa8+*$)i-W=~8Vyw$(gCOM9j1T6AMHl)^HtsO&2k9^*6=Q(WL
ztTL%fOdaTJ_^BlEKs7C4a|yD>ImaYs#w|u6aF^)@69;W4%Nyw}U)onzPf%>Z%EWZR
z6zVU50cI5Ek?rjdrDqA(>gz;d*Jb|x`RkIc9c%4L4=e#TWN0@fiqzLtEuzfxpsX`=
ztd)+xhx;3qjFLMI*=FY(*DdPj@2@TH2&|fcE>9rTKGWx4TI=|4bg~qS=P%P?RCiHg
zUVQx`pjfZ4qV87%)vfAx!@I?m(TU&DEBd0wt5z=*IM0m{vh=z(TM4D`?xdM*`q2ql
z(~0recsRMJ?|=q3eBDE8q27+?<hee^{oPQ0CaWB!)2$b0Th_&#PG_sTzZ@6?Jv`_z
zcf)L9h0D=nkl5I(WeMvrSX=1aRL2k7_!8Lpeco(vO7Kma@Ygl=AL~b6`V6*BE>`X*
ze!l&34Zak1eQwSw6zWd$Is+LH)t~ILa-cOFHS4k}8#Y|81Ap4n4T=+n;CYtBgTi0o
zC920=D09-DlTkdM5B<}Pjv9iP8M(1CC+##}Onbw_=*3Nt*aOKfc37a$^f(V7Bq5Q^
zSHxnznqDl~I%r1ibtEY6aM)p;co!B49|cxU4`{YH9~t&mXl>4<;}<@73V^h{EDRBB
zGi~(33U95i6WnB|Ba0rzeM!*C=`HxXWR;Q?Lf9Ryh4R-#>1)_@(IVJ|vuATLVeo?I
zLR%t1I586GQsm=a6O_NKCIIr2SWtWjD?)i}A~0A@sG2ZJor>`-ovk4BjH8vOkf#I1
z#y@b>PY0Hn#H}Q3gpo=wKK#?w;p3VYij5WGHh|bb^i@&|_pVyBs@!@nC1|g;GZ1};
zz;;m0sfR(0NUk?>(%<x**+Y@$nuQ09=Dk!26vg7{>&|lx9ZQyBPLfPm@~s+agX!yb
zzoGL_2LSVlntN9JaOk$`DfVpQN3XW1Lk7=D`>IyurS=+>nE}tFP=hIeXSk_8lxVo}
z#iF;BEWh3wov)^(^yFf{PFza4q=S!ppyHd9T)KFe6A2u_aeRL?t9<iQhs*j<;kb-W
zF!Jedbr0LRQa@48rv)t^?&VVgrj&t{yTAIX<5DB#A6qKdiKDL9+{dzhO;-uzQeI(n
z%biEvw%^^omY}x_C;>i2tiLi)oE#b!F^tU@n_iCk=Ssv!T_}?+==`&xM5JTI+bT}v
zrM~TiMv6$AUcuORVDgFfLGtMGh=FbL+%Fi<DMkvm0D=h@R0BKcr0A3xDJ!0B1f~wd
z#`l(}&xihNSw*=Udmk4}1NTBXx6cR$+cFBm;+%~<#eiwGSO(gT@s<I*sk7tl-#7tO
z-}9gF)!L)LMA)F9m&X=)gB8zNioV>xwO03hoP~c-54j}>U-jgAwRI!k=*9C>zsM<w
zbxOar&Ejq`h#Kftt{dmh{=WAe1@}&^-C6tDK#?13@w%9qHt)2=XhFy|cCi4zXqYhC
z(Hu<^n_u1!GxvX|?~fz=x_GG|<#;oPzd!}`zOAdiUlZ9;T8E;I`B2HnT-<HPd?xyJ
zLW#9L2>GKxZE~WOd(q!ol<Dk`+PNFz7jJkx_|o_X-9C(=*44GO50J|;U9P$_*;<~u
z12Y{8D^62u-*jWGw{7@oDs$$8e!n*1rq@~cY<Rf`=%x9DWV{41c}T-1Zx_+r+S9Xr
zk(j-M-^kZk=nmM-RZl_erZu2Vb)1$Gi{4kvF93(_7yJCjDWn0)&}B9pE|w-6I>%N@
z*TB#-dQUg5U|p=<|1leWS}KM<*=hv&9)V;dPxtGspIXUhNx18$OtMJK712Kz$tcA<
zpPr9UA!`E{sbVYf&XWrY_Z%i=6%-qkP1T3YAMrMZ)3jcz>i1*Tj~>6{g+dQ+)@*bS
z4qi=Ktl+92e<!2qGlTYyVqgiX-p$3_8Usb&H-onud~f9C<o}(p<CgO;hf^!tJDR<;
z(!`{ajxu{0!q&;xS@vpd@I@{knvho;TQVkM_+9u=ce+2#P^W=?i=F2>c}X25JZwL|
zzy~1c8PodM-=QPZfGP+3WxwP#OCs7w*!IC4%gExdz#4@H3O*!fkYpv}<$`&BjicE*
zQuBsC8*Bfa!o&(I!YdN^Au0F$nZV)3iq%@qa4SkQMY$2i)~BZHU)k$8{=VnzEmJtn
z+nCtwZ3HkXAc3Hlo#IN`da@iKgaCd$x9tY-rnNyed`Ag1k{mq<4hninS!JGJ8F=JB
zSScnP->XMzdz<MHL04+f>r%OZG<1@X1|+{(rl>kg5pT!5#;xl8asFwH`o{q!wA20e
z_{;WVTHI6PlawqqAT1MSru_zj4b&Mpe^gnu$>sY8UF~?;Y+ZegBRkpCe3E(JvcGS(
zmw1Q^4%|tu@Uo%n>&L#uZSFI?9TLq;hPtz3>UguICYQbG23kcigVE{_X;mQV_hHBM
zse97Yu#TGLH_D&0E3(dPHV`IOb76}`kjB+vk*{z306JhPyW4_2TOmch5NxlVw28%u
zA11ozrC9eQ;9m>m$pAw&G=L^EH+o4Mg`?Z$-*!6S|K9Tirb4tmPQ=~Yzz=L6gOu94
z`{x}f%Bt5r@F^khXij9$%c!0s99PfeNnBqo&&^2dc#<0pm(+po;Jz=e^XxM&oD%4d
z<yp9g5MpTIIPo28RCO3C96z?3S3w48Q2nKEBXjw#3ESgO3;np3Gnie^3jtQwaU-<N
z*FtW<T(Rs|=&xnF!_L0hOeTNmC`j(x@41)<oMLp*=V1t$5|EkX^nxm^hHCAT1-210
zZB3^8i={yFJs_!Skv!c~YjexfrZr;&H<t(nJiFBPp2dUYTDB|&iAyb?nm?)*aJ1c+
zDKFud>B-6oyf`sIn+C`mi@T0K2%luno~l)^)0%2=Td5_>o~aj4qa*$RO-KHf@~+hp
z@j@U^SNAc$PzO-PLlvmG^~%KHHsU&?p&;Te0^`Lf+V7e?6v}rX-@d#2<q!H4x!HOi
zbg5rsH6Cr>X8T?<?=>+>iUz`Gw!U&mD$**&oa8lM3Q`3~irT_)WXa_@Mokcc7MujF
zqf{2nLXGu}Do^v3l)j1m`i=l+i!fMh{%?tQmX}mU?iF+EzSnJ_*)Yj^vIsaL+MbnD
zF~)he85D<kZ7o8f|7QYl)lh>+U5)nA?QO%><%;ZnSz6Z>076j*x==Kr^*8Et#|BY;
z+e!^OfMt*5CI9>-@O$6!H}hVup7QA(f#$lhk+Z$8zCfcpc}2(sg^teIRs5mGszR5e
zcZ+-GD<0)&y2N1HcxXLlfnD#pM<yep8me&<uir9-?1aAQD3nFw6tz=|>+^G-mMF3S
zG3IYvN_&*R8I#crnI~_$4!+Dv(5&y-h)$%H=63PgZSHpRc#q<NNq81RvWkhuNL~h;
zl;J)*vz8;pJNV(a8MSt*eQc3J%DQwrcRu%2cecLj1puhJ$Dy{wHRpCXw%}233(w3A
zOk$<0r8lsKfsz_*qP3G%yD9S`RQon@wq!0@p6HxW6i+Am#>lntU1i`p<qq?zRf&*K
zM(PsaID33j_?35S)RW9QtNvJL4MpM%MBpB{8i`FT82or=LWIyIYQ~^xt)N&(b8v^>
zq|YF!*4@7y^jqTNoR4Dte(^v=z)+)e{M+ysuQ1sm1fHKx42i9sW3MQE6YGFxeTT_D
z`6)OYU;ZUJQ1<EZm9rjerYW%r(qbPAsVZ-#q{AKH9lqt=dQ5ZAbKlqn>MR6(ot{rf
zHG~RppB$_Bn03!4(1Ewd*9lFI#_v9c#5t7#gcUQR_sBx-Y!%E29{Vz54b1x~`RR&c
zPf8ODgRMa*6xS7;)F2WYkC76L7IR?cCxAHZg!Jd=#8F+Qy2)10h4Nb6Yx36St;SK|
z6v(-Dsv`=gf-BCObpqSg8aO~qCt6cNaX}Re{bbPjpI{{;UlML^TQF^JE~Z#A*+{iV
zD$slZBH=pF4{{!+-QfVWg-K#d_-kO>Z%W7GoiOc7P=wm*AY8+JW4mDLNPD^FKK-+0
zv+5;$EI!FFFqD@b^<@J@y)Kb}xJQ}?B76R^;<6e8ZcWpvy_=VCiV07fik7X!x%JNJ
z-ys!!1u!SgKN+pjecz^B(^Uj)df_&s^HOkK^syaEsmdE6EaI;+kh%92Xo^pb-~^V1
z5)<aePToV3N^?}3I02{mWtLAd3^F2l=&*S6Ca{ffp%w6~?J!~`J1xN`(5oXD*s<K$
z95jAtbo!s@LoTXo8!!UNlJ<%PG6L+trp9O`e)ebRJcrYY^@GXm5DDoA)VWExkrBtF
zb@rmakI;wl>`qD9?JM4C)|Mo_PtVxCbZAP!Mqv^(GniI{OG4$c^9i6a!PV-Z8Ol^e
z8t?spYj#>Lh0T_F^r5Ll08Ons0Yvr1>hu3b_4mba?AMSEi0aEtrs4zd<0jk}k9RnD
zQ){gmQ=1CJnDl+g9Hs0cl_;$iKY(M6j{LN(<o3BsMX5#n2-JaJ1X=XU;#tI5vNPz%
z-kCxIs8gZkvKS1LKh0RfLP*!XAdXp4NqD(eKJK1v;)6C{0wna+R>)4xS2gyF9q24!
zf-ijMf_mDwH@!+A86vd1nFCMg`2xyE3n%KEOSQmu*4FynYpd2q{A-;sZy%fa$Y*L?
zC&}yy7Sy6!i~WBt-sl+r7&ojEk4<aZFX0iGuH*&er$WMvW9?>=5W?3UmC;O?=GU?U
zyxT-ULk$x`S!OO@HTz|9swohBD2->3EB2=^|4A_7S|M@Qj>BX-6W!pdK9eXwLP9W3
zDWX{Xc`Kx@;Z_kL(n!(N7j^B0J`;+>!H+x0{_u0zx%ej`^0K%P;<Kb`wd{=_wqJ<{
ztHbFD58CEk95a0Jv%dxSa9@MzdaBn8YUCm?^hdINyjF6-ED{_*;Lwqak712sSMGCq
zsXb6lO@|$H(%AV44}Mtf4Ysw$f|>V`lkbW)MqBg)y(YF1y%SI<Go>n2m`CUtyN{bX
z!~6qglgHFK=#B=KKr3YL3v3{~$n*VRnUm~4f8T}4&vc`t76GN}X6NhE&$gM9_SZq)
zGVqX_OGy0IHP&Wl9wCa!oIA*kh~u9>Ea?5daUm|8rK*o#e>1?1LS#_BA~{Dse>Pw|
z*ZKjh_0-Veym?anjK@4eYyQrlPL7sa`~pKgTOSs7+f%XYsD~{ud<YTlXkHU>ue(WU
zgr74EwbdMrFsQ>sw6U9~ELb`A;#o1Moz}9r!aE%R4EMWEy>9+=c`PGfN97=}h%c88
z1H+rn27W0>Uzs)`f}?H<nw%Yt8}}5AJQj5wsQ=1;-YaM&%r2S_JDx5cx^tm(G~oj4
z{7;EM8%1{D`9zRxf?%Nv(=f3B3tEADwk3~m6SRqfD>K7vQwr4Bs^!wJT+mS8E<ho2
z3%7NEWhfb#5+M({&(}XrpX@K2NSM|hb;yUJfF{du8)nJT?5`SbJ{riuVnMAK{KXyh
zuK+pYOz>UF*QTA+NjLR&qHcVmL;c?8+%6cfbU|T^BHWwl0*L>IO`J7E=Rf;_asSn)
vQ^D2N1TsEgyWUVt9y0r{PWpd6$Y#f>Es4U)P9OU9Z^EuPU2eSO_sjnR?*zes

literal 26277
zcmeEuXH-*Z+ivVS4xr<VhzQJ#5oAOVk=|5Pj5L*ABO)L*0)`&I2IEN4gkDvUk^rIC
z1W*(VEh>Znfq+sXp#%a+OhU-niEsVBbIv+{&X04}yVqicJp0*CxyyB5_x)^meAUua
z;)laOfIuJ#$mI*yL7*MsAkem(yLSRDl=K%Xz{k#;W~LW_PvGL3w8jD-d+uCz3;}`U
z5=1{+Qf5~@L7-njkPGK*!gCiVA~OB$T^T|SfpB5x?uXaT?vy#uF}33s@|?}BpMOrg
z^SU6eH0AVem$Pbr{rdj-*?mV;=@;+q-F^IJN7}E)PhWfrIqUWM*Z1IuSu?kEI4Q2&
zS2}lXrM&I!$@Aoe2=*X`?H08Jvk$YiG{XBXZ56HRKiB^y2{;5`(d>%qytclV-y~x!
zK^;AM(W5&+ppM@bSLlCgva$7m?nAbM?1tTYRmE$FtJuFH)=ByCEo!2cj=z5TdxN&)
zHc;F<?nh5)p!tPG$6io55>K)~E1(0NTrn+gZVBx%L|X-nkqf?^H#M_ruN{$xu?x$0
zSx_XUp$$>1!sbX*7M<{oFZG4**qcwcBN6QzG07F1uOhFpaP$R@fo3?XgWf<ohKa?v
zK?Mvte%CePFBpB>N#oJB*3aBcBE6rKgSNMU>iy}bGG-ZN+4$uriFS@Qwhi0j26utm
zv8+gbnD$De+J5-Sv3&Y<2`p>jO!Oq#C)~oVP49&s_A`eekTA|5+j-kex}3*Te4b(Z
zmm;x%P(Y#2tYz>2C2$@ItbOe_Uc`H^*d=g*Cs;&F39l|Wd*~yAH%1@@j%2<aYum2G
zh%CD6!VtHHUTQJq2p7;N783RG_`2U7jtA-sbP*&yRt2p`BG!E5EAjKJMC@~i)Dv}V
zPA&Gg-Q#~kvw}8bHMjpcxI8)Rw#LUO*+^4vSYWf%yC#WW+r7IuRoKXJJ#r)=agAE@
z+DTe4HlECJ0+x6qBf{KSDnjcgy(4ahoL{?)@ku)%u>7FSNqbZ6zCR}3vjPod7^fvP
zbhLv9WGN#8X-P~>*b`!>Hrm;L>afSyJaOLZLFeA3vQ65~1)V#T#(|Mt3nw)y`8bK(
z){@`eyDn@%p@qWN+i`r1mF9*yxi&2>Y*@3PYM_2IxGMtYOv5dO2dMJ!2Z7a$JgOXg
zy+d;0kz|5qUyZ?t9}c4zoX7CAJH#E<(l%RbKWx;nxoR;S-Uz2t22ZuF+$ea$fYS8D
z%dp!<rTNz+&j)<m!jSWJ;cUcTMdZu&>4e30BDd|*8;J{xWxeQ<`qHRBHIYo7dpYU1
z1q6z7rAs;MU;b7YpYl@S<Gz^1fZbmMuL^EXZtmw(`ecMOuf+DWrLu)+wc0oDEBu|g
zyIENaLt&G;v`rKE^-h0UCz|1t`MSk!5^K|49#T=gxK6u!Vhh9S$PB0YYaHi2Jy(X@
zHmyg?*P6z~W`7jEiR0{*(8z|3pE}BULl(G`Rwa7<HwF`{Irc(CUQ5@H;R=ld^$kC*
z1a|v{d}P#%JVupO)~0di8!`U5yP<ulyyJv_*Q%LTpI+`Sxwx0Vsf<$g<+@b!rga4z
zd;0=wVx;>_juKhF+#Nwqs2q%q?UX29)|!uXVBsZx8z|q*$hk&&r{qxqAHX<A?VS1C
z?}lO5=@L6LLzy8?IZ~1-exc!!pV^u8KU{xqlCyQK{TwEcJ!v#m5jmDPHdk>nI=r^M
zQJ<(o8z80Bt<GND4D9-*;7S`;-$w1O45{efiKDQ_TxOz90!yzl>;K`J(V0)*+I2iO
z1f;z=a{dPJfe5Rd5PXFDjH&F_)@_1?+z_^XquX?@HEq3}1WeI?E59**KFK?`_F2k8
zio23=Nj-P!4i&i_>a#nPrdu4z)I)ULN%A7=F2uVTpDGl#4MVB73N5p($(iRiaB&><
zg`uX=xG;UUoF_5g9kJR`V^e<o6lL|s1|JZ$cJ%g$^g`M5W%UF4C8M<xv`5dvGJ^)J
z=W^F7WoRxj1G=2Npn>-Oufl8@fm&VI-pRqgOUGD`rq`GglIQvDh95biKt=#PQz#rX
zEuSxyA&)>Of(IfzcH-JwER%91!W$Rro8JR&cH^EF^O_PU&NH$%Q9wku4eyJ=J&$zg
zG;PL?bZsVu*wlKPwAH&C4m%E1x@k?1JR?1pZQ8s?)$tH20ZZDY!Hx|Y&{Zn0W|VrV
zom|xp=|a0}O(}UFX?>?hQyn{9Fj%2e<L<TSWJKX<dr<=0bv=ZI!y{qUbT<v25F6A}
zMjzMhuGIPhpKHGHwz^@hzPVJitk)a6WI!YHo44|&?O~bf-xA|l#>Tb?%;&DNliD;~
zFHyJQ*{=b1;SQY=kF}=D<Lj--r_~&yIf()qQP;a7R@fh<nm=*MIfBZb&=?SG>Q1YU
z)c}iWdXwv+7LaMtjM`u&3dpeC!eYUP#5M(A0V~KaJlV>}!EW}EgtiUerPEK)G1=`{
ziMzLu=-vmY44U&qgq;V?fnczBS1rI}%ZIw7m|b=Z|J{Bmu7$*M_<6tGs>5qpy4`ap
z8CB^Klasg(`d$q-j6E5?mj9&l@NjirWB+MJe8`iAMZgv31V@aTB*>HHFuPd2=@BdW
zm2WRJc>UQsqF;2P3t+ovCtU?Ga7KI_vqqx#mAO!LIZtEw-Ei};WnCV&|015e6|`4z
zY6mE^WeuHkhCki8&>YZd-kCJMCq`qgzj%DHzD<`lf*Xya^^LS!ZzhHH{e(r78kOkx
z*Lp3+UXaF1THa>!Ue|hUA+O}NzjWV|P@VpIL~`x?T($x(Fr(frN1p{?pF=`y=~fVC
zs#ik$a!U}aTf%QDuxshCk(SXCCWNQ(ZIxNy$JY_ySW)Df#T06+CxHxo=xJQytj?g_
zSqi}14B33eTR+UlI=K3MYFkJQDWGipx|xA)^~cw}(hbg=o~(Ub-N3JJ{!^^@?Kn`!
z9}%Xk5Q$o%>g2u)2G1kCI-T;@#<_9b1$l!UE!oo9^pNDd=6h>l$Oz)Q6z#tElpZa$
z?KJ&<zV3K!o~}l4EUQSSJI0I2itW=e@?*m!gau4WNV4!srxV%KoagpUKkQp>NJH;2
z+7bPidOim{PA=5z&H=Dcbz`d==*BNgu%_3aoDX|#F)D8f?99$pC<q!*-eq9aI_kHy
zd3MeCrx+VJJ<)@v6(vW`qvv`he5wshe)ny_hs|L8f^iP;IGMBhMTW01e(FhBg-l*S
zB~{<M?}S!4wl&?<)+*pzo*@=iP+_=`TfGDeufWdgg$%UzD`IOG$#aJQT<y5OCwxns
z2|+p=F<4xGzaT<mdx1J_1gpvS7-^r}&~yt!I}+b*qiiIhk}LAV@60YbS!IPRVx3~S
zPmiKaQ|t%gb8Yd#NrG-WY<AGVf$a9guE!zCf{9#@#>^0Zf1#d-Fr|)txY1NwC929%
zf3?1OREz~8*;{g+(i14(k{(y8dk9U3M>sEar^m7GUSHB$zk2j%VDcyStqd>|WJ`mT
zBCq-F8Z<Ret_YhhMNc0#(u=iYJ(*5xz~GAXV!Nt=I4~C-&T@5KhjBY)?@#h=3;cIm
zHBuOTBeDH5d}z%;IJ6*SaZZD+0L9<P3+i4Umf=hJ?S7&5<21)kyPRt6>baLZT1lS!
z{cizrQA*Z}w}i>Jo_N7qj?cO+T?uI^X)$N5q1yZc8Vl4nAI#;}jxN=~+cLC?It&Ia
zH-x53ZXHhyNzM%!Frm3DYzZ0Q-!S<W5-n}WFg>$<%6M#Fxdmr(F=?*Bx5T&vJ9-{r
ztVwf{9cA~+L|tQRjqme6%ECu)o0c2hcbCZ9Ty}Bw|HLVcpZ&q8b^uP>G3m_Jod|s}
z$+*<m*xx)Hiqn!7xa|eP%i?wEc*$M0h~m-OaY>A&!so*b*zWAP(Rufo{P>lC#HuSD
z`Xg8FG?heBa~CQaPad7B;1$T0!-jtx-<H?#dbPN5GCRb7F)j?oD#$5k*!IV?XG#Af
z@^;*Jc)10nGqmKlJJk!ZD7YWr0UJ(wsr4m^#L*t#=aaUCU3L^uYxa)Lvb9wjs}f%w
zl<Zp5`amnE7ij5Fv0D5~fBHoPv6?K_jU8y(e6J^d5dm<{oSLzE?;kiVa+C<@E&xDx
zq{nTdYHn6(cs?u;fFjv5738onX^a9U&>G>fm$h_(W-nD~SxIesv^GguSzU7U!`7%v
z+oV)fy5VCE(DK||VZZ%S!5AdTEUZTa%eL?NJW688ZpPK*52E=Eg3n)a4hNz`*?NM_
zrWWhYsD8Vp8S>mEK;3aWbj0+%eEOV(LTlT=t=1Tmukf_^`d?E5zFl6)K&NP_q^-2j
z6)?mArV}hL5y6U|Vs}YsgkXnO_RkYFx1V6#{#MH3%X$sV{blrF1rKd-x9HEY6;=Q)
z9TF32lDYOQe(GytJZ<(#?{W4%_TzY#ry6M=n2P&MyMvFH_0A)$eB2~!Mn4qx&8BjN
zQ8!ISw0pf^_t~@bVTs8#1e#*2q}i7)yus?Bb6tN{QT5o`JE@727TjV@OBfeUqhm3f
zEs=rK)Nuc60P&6%$9upu{^ysZZB)7|aI5vr=KgLbY@~m6d>iP<8%gI-fC~bbe^MNf
zivYCvA^;AeU;cCbA4s5-t<nmzd!tN3U^*`yS{R|DN!!rEL+%EkP%Hx-Q>N!N`Y3S<
zN4LUAskH6`29z{ZD`ThN1Ron>c7cxk6@yt7^6UDR)VdLo041N8TJe<bxDsx|O7~^#
z_L!(>v1NVS-?jBdn0_&RPP;v#BsaLH#&5JngJ@7|-_9e!Z}(jQ$`cJ)aT!TEwUNV@
zJrH3g9Z}TF(_5-~^MZSnC#K~&4xuv6Y<6S2;EhPdHwL>LtbY;hE$-O9zvrX>EkXT%
zuR)ZKf5@kQrDyuW;4!Rz`l7G!rv-5W9;&m2!KPSGl(v|#4v-|~))7z^lMchgR;oIL
z!$qR#=-Iath;6lrz3S@oK!7zKjVa`rv!2q`G-}0O@%}K5;%UVyAx)mq9~U^WxCC;&
z%Zo@y7LD61_Le<AH1?v<1zC|BqxAhG77(stB&D&c+T6&ITS5X!O}meZ|6pZj<sAM_
zJYTZXlq>FpUHfU)w;+ky@PcasKUPv(2;q?cB~U1h3Hv0BwUmo>fTz7n6~R5I{D&=!
zFNQbJf&|huW=&hSYX=F187yWSuKfCak9N6nVXMnJq?j+~l36n{)8dV{J_Q;pwMm<c
zK;xr-ZDd>2bL3|n292?`Qo$;s8E(AW6E4k2vR*<-1(z>a)=%Dj>LK3R3CoVw@K_B}
zOdx#bV7Kng;7zB08QpE@Vz2UeRiraK&muXff?h$gP)s3KxShK4H^GYZvbfdTKCE=p
zo%t=5{(z)}mbQbznz&;bviB*Sm;>lu?d>fbbY)OSW>{HU^Vc_`Y2)%NI$8~>S0~Ec
z9Utw5)rHp6$y&MtJ4j`u`9fP!Ne)!5Vs^&AK<MmR9C^MThN9&=8@_6BVM!k)i%Jln
z^5YuejbulXhwOQ(pKW8gWo27QOECOyCsMMY(#Q!>8o4&J;AP@2>N~X$&_{9zCN|Gs
z^cCd%`;_NVc{jnOX_fh)p_zqWOb?0G5UROFO*ZHzeDztkfv-SZ=jkxm>ZbKYorF5<
zy^~>$hL#%{y>SqYQH9wPZcntp7^2uRl<)~y;+f=}ccQIzT;7hu(2_{|QSAH(Iq_yq
zD2Ei9cZr_5u?JvDqU*#JAU*<D)ywkNt>N~EA`D&_h`wLl6W-XF<$BlpjObh3$4m)P
z#S-Y&H#Om=fL7IcuWos`P=qz08!VAZO-L-IB?hJq{&ae&7bzvWaW?(-h$Jl27aHMs
zQS=>@AP<-qJ^+oFcx5YE5a>wocH9$ATNyhk-A*jcJMZ_es8ZXl>S6Wezl(arnWW^D
zpQPGj3Ucd+vhKJ-(?i=t?K<0chc|ZjUOKXHe}A{w3hgqF9TwdI*`@xM81w&C!_enm
z)wr}fW%SUbwO#l8EZTVA-Q)-uu$k2;68@6>8t-U|Sj(-+0APm?%q&p%cj>)yKgj6*
zR|8v3K?VF+qPZOhmGu$pe5Aho!QZs}->l<54I<O}r?+g!=~F(Ef=KzE(qijdG}uaA
zg5QL5=<Wb^ydr<CZH&CZDx*7-$mlgR*`{$U|FqZ#ZSQ=m**kJk-pvq^B#^4e*Yr_v
z#Fw=Ywjd-ifySe5R|V$q*XPmO#g-f|gQHAKJL`{E@FwV$C^mzW_j&o=va?}KQH!WU
z+%Jj%z)z#StqhH7BQLY2=pHBp5mV_VSe#kSLHlW`kgFPb`E-`G$A(j9u-Gd*R7KAy
zEWD&~5v2OVTPG(mmT0P7-c|ffG*L?HVY{?>LyEQvab=(^h#~eU5yVI{x{Jr8&}<7s
zqegc{7~t$sg->^^>$l|@lQ<ng;;p$}1|VEJ*S9??X_}!wwQ5Y1@#AgC4lIgYd+~<^
zwbnS-sVmk?SZvV7;x_r%kO7B51h#4RFD*v0gvOKZZx1@^m7rFK+*RTtBw-GcG<vV<
zEikMyCS>#?s6#RL)5>IJVTSAb-2)Z*PWYhFM;%%%4y;`Pu+6H=CH7X((EU}rw^HBf
zH$K@sS6ea`+p%isXJAxCbV3k~zkSkLbd&G{rOfvL-f`!-HM#)kf0Xx`E>j`sJ`Wms
z9MjO!Tl3`5N9_YEHLc?>d0C#)>MtpZQ?vVy0Rl_05e9rRs^-1f(ybQMF<s9qCvi-6
zLC4|+(JXHg;9$H*^kotsaIhQscw76HPic|wP2_79og{m(LLN43K$kY8!{`K6xw7ph
zmIA{T0HVbekt|NTP+%zJ64ivlzUA6RdNvv7B^5ojEyJ}peQC12-PD-(aaObMw>~w_
zm%NV`f!ZsYrf_E?beBP!AFJIv5nfWprbxBbN$|Z`yk}i4oihvNjy<44z2&CqmXAq+
zb&IDZd#LzeSCAdq78^-Q+k~x-dMh-c<rh^mn%*9><7whz+rQm20W!3cRH$XWuu3n2
zzFLo_S&j+)m@LN%d|UslA`SX=*5jAmBC9J`6v22kZ@ma%-uY>}0u~5!O)cS_{^JSu
zd_{zjn_)}K>aC~?ECy*671ZW}4|GP0@hB7sr7F}NBsol2*tO>|^<~pE`x3iJUkBXA
zMba~p^;{y?T0$Ep2KZ2QAg*>tVHWHdE*?UNL~RJh%|(!+JH6=Vkic1gwjl0h_Z09D
z+EG#x`T*L@7FyQUbg8|>KGtobvBeYa&w5RlAe{iRZLy2)4$qkCMFr$rX~#YmM|O~z
zIJkkz|M-88hyLS?=YP5M!zZQ?*WjrA-C{xAkn`A4!zrcOA&MjKz{{R>iGA`$e6{zu
zTSKHB>mB_UQvbm_5+ePA4y#4uy;u+FIoAA`@<=}xm;QqE_^7LxD8zN`4JVe%JG;JY
zab>lXc_`Tt%QrERw(#El*zZijFG;R0-(G-VbxQPV8sL5#!GFj@Yg@1lU$*qUCyNbX
zMDw67ioKWQLz+eB*r?^}g%apK6202E;ud&)*ga8EUPKNWJjx#KMaNbyySn0dS@db^
zZWt8*f_I(umCmGGJs|4T(L-6Tzte7Kh;6xK@<D&;3&|Qyw1HIy+AfU_d=d2k*%3l_
z;Y{y-Oq?*z8DtzJ8QU>1l?^NC?>9eurrgcL*c;m$mg_O&JYZ$=ll#896@H%c;}jgx
zZ|2>G&&FrrRl4)(e~AL_wCN!aeb?fa5dbM(b4jswd;pImLmc3*0JK12ZM_4Y7fkxZ
z<t^2aKK82K+)mTPS#1L<a!-B?SF@X_=dt3ShmL7uCd)RPc<V!(QZ`bzcSl1VC!PZn
zroeXp>6koOA#cFUBp;5zUHn$oCYX!EEZ5P2pno%g`-Hv>e1d7VjR6i{ywdqLY9sl<
z4euB>DNdpLK}RFcvXp@P7pzL<TNi%^vOu`UE?g9PLHpr74nyBNx~-nqPiINEzf}QB
zSP4P|^V{;C@Qitcgz*#n(M0(9P8BLP@zn531dOEKePl4GTdr}@slk7;4T0eHLMvN7
z18{XO&;kDCu~I`A<4`-bca?;Vsjnp(@mJ!Fi~IM6w>Q#9JW`f`pNaIbgP(zN)%*!4
z_X;;}r=($tja=AxkX%TgdT*s??|>11v5iN<rgMBiaRKUf9Z~1uzAQfktviocnQte!
z#!|>Rw1%=?GE=aDA1OD^_xI4L;LXxQjwUtU;k0q^tsFc9zj(S~(U1{gB^BHBxOL57
z!I4P+!M^EDP47sJx52awo^FdByCdX}(~R;W>1BJ%Z&y>f17Ym<rbfY|o*<Pz!E#vp
zatwzgh$F~&=YI5%U(58&*aE8ZOZ;UertR}i-$CkdRo$BfbV%c=V)!p&&N_D}>Tx_m
zq845-*huV{K$G&sp%~Dy#}1s(#jq?gz&WQvzxTwYBVvD;dU_hz-IHfs;-_ys_-8Go
z-$5gsV<(ke*Y08ndq5L#=%0WPZ%<3I`5vf$gO$f|_-Jp-vG#_?YpV8!h)*%5tn_De
z@klx|N%a>xUBB9n4gdXJfa0;(*2im>1-_H;A}6tVhd!#_N~M_B8v_FvsgptrwM5Nv
z7Kctu;n_BP*&H2)Gmwj2LVt$?d!XIW9gTRcI6yHbwY|Ok-4hpo0Jc_8;Hyyocr7{8
zH}>B~*C-w%kH3wu&+!!w{%ikOZBopP;y~0}8-D#!k{E%jP5^S<oVDS%k>s@R3`p4-
zYqP$+``4Q>Wsz@&rtR&mDlJ_K8L!aYw%CF(&N{vJADxaEeQ~fV4TMhIVt%t%q<Eua
z%T!C-8e6_>q2X(Jr2PxxeUJRomHpZo9?0583XvL#eMC2vO%KpHH7*#WA4G+S<u~#W
zI8Z|)fJzDq?QJ{hP)O8P?5=d4XxH<e5z`(}=p*%v+nMaw^cSe55&9RD02;9LL7b?^
zSvc8r=r76cfs2Q_q|N^6J97FT_^)_eda>el)FXN}aG+kO9YhV0ww4sFu;YdIVjO1|
zhGs(^`N9S2^}rP;aX930yr~@)w($A;;eO7k;U9slvfYsNZH;sQ6J`U&uv6~Ji8_N6
zyM73d^+5|7fK&OlXI<imc0<DB<i|VwGPdBrvRL9O;|^OGw#8!#GCt<wr{(|+3y5WG
z?$M+@qK1wmfNFuX+bFO|UA&h}55VXiSuZ&!olz7&5d!F}t&mp>;aj0SE*<{9e;HtM
zOiV*$1e{BEC9zD8$cp;LZ98K0Nk=U!5f0GLdJM<T+ZKjxt9~66bF(N?az{p~s{K-#
zku$=xc~(5Mem}6f3Cz*qkyrwqebm)Md&F80&Z3Y=QabF<^v@*W#PUn=z<EA>#|}GC
zu95r{DYdk9inG9$C5`ZIa_%huYHv^MC5pv=8z+P7PB}C1;;WbInI~NA+<H_n%VXCf
z|7?A`UWD(YmAyjt`gbN$UF~&0U*l8g@s?>DzJm99^G(+KvhLUqRr#v~ps?Zrc%5AA
zb@-P*HN|o~@!nJ*%^0>`vKsihW^KJ>Z`W>v2=Se4L?_s)<&1@;Ttk27Bk7`2h$d-s
zIMK*hkF-hB^)U28BN|WIiwXUapSqkLaLy{(a{M##kplWnl%U&!)qDj$QzWR4ulJI=
zXlh>10p2=@=qzKK(h^y#Kx!;mTx!u`3HP1eI5*{m!kQ+X5*_7(7JUJ9SF%$>$K2Y6
zfL+7i`PAkIu(5=fv6#S9J_Qa4_aq}zt9l}E+{Oi9RQ{H0&gwV1lBxV!%iq((fy^xo
zPmGkklKB#!xh16pUl(a-@|C+tx0TDT4Hs5E0kFef=$&NbZDV}KM`3hPcEEzTbF=R_
zDWJ~-!?BGrJ+xqo$+1%a7`tdmBP75qIA{7g@Td9=@hwo3-OX5-l%m>QH-JoJ0c>Er
zD3WrSwFr*2HN5%Bs3P(ri?xksfCc73VZ!<kEsR+&k&|twc1AZve!1+C_hH}4@;`FZ
zt`@?Wh3wWbbeMgZuZM=YFcgj8Jo6p(p*kUgKegRu@#x>S@o+`Fp(2En$&HxjhNQt_
z`F8)ehedWB_sbc(4*sC^(k|AL-@Ab|1;E0SZF((h+go~vrgP3boRnI6DMO@bjh|Vn
zB~=_w$2N@*>1OyiV85|Z-37i;-rtLu`X2z34JaOC7)_1f;P7@$l96YTQ|L<$d+E1t
z)e>gbxweQZ-ctMu`>}*O!|?DMD$I7W)CfA^7rfjop<UW~L;r{G7Fbz5JcXy*@E1=e
z2d(dhFWyqSof*OZi~hx$kJT6*4xS2O0!hAW-Hh0<s-7fiJ_zF#yGH>aa?N^4!xZhQ
z#805tkUBAHfnRXI0U{mm#Co=4NQ~s=&#S#w@;_c&=*xFN1ky)vueP^&qXol&yygdd
znx2hm$hHZs(F=CuQdKS8&8+yVoI(jRw`d>bG_k$wj{)2CYdt=N_h6OC8ZhnwCZA%{
ziyna@{A<KG;XmeJb_RC~El8v{m37wwv)KrkHU$$0zsu=JDiC<oY}z$_3a;WY?xXkW
zkGKhJSky9v6t+$4y6D{n(J6t$78q%|<+j{}pPj;OhbNrOG9xSoIHVuHsO=GD!iqXN
zES?Mq95O5U_7laC?4h<^`46;E*Pj>d1m{>sN!)+!VwdM^Skw~9Dx#Nb@}g@2>KVu~
zLjf<&0oO=Tr}UX+C3LrWL!s>OtYNu(o~z&Y*Vz(pT-(B^tHlrlJH_QhP-t3p#%=La
zH*$7=Kd7)90`@yzHKy@KhjG~bN72nVS9bs_14#RiCTd)|EN-egAv)3mt{WEteR0|X
zR8)*wTF$ZJ=-&u!lVw!H>)*k<wF{81nbxTA8c74a%a()5cR~dHBW8O7ARY+Rh3iSL
zFpb)7BYzuOB}9TMARSd)!q{^hZhjZx3GY#DNB)WpKi>=^*4&L9C-tWc!_Wege`~mj
zMl62%PI(>9^-6}r^hhzBe>VIWj&;J{rLXp8*odvO<BDE%QBcf_vDSMrQ9x$ZSP`gE
z9}8vWKJyiC4~VZngcpz+u_diCG~ku6wln`w>FJEy-+}=QpG9k{Rf}U?T-q5RjG+#v
zLr4BZkQ{-Eh~TKJf>=sq86X^uT%Hzv0acyrb@?v6xCg%iuLJ;>!?nMK#$S&8y}@JR
z)>1Jk|5;b|Y~qd-F;l9#4y<O<K~DXXL#>M5S#c<IP)`4@L5FJ|{Zn}F&L1f`wkg?T
z!eV+FNeLq$0WeY?s86EFpkhQbf&2kuWI*lhEAx#bHqz-s^g+LMgcJM`{gK2u24Klh
zMD#xtRGofX2OSv(k7l*SPlZ<8;hZlhi)o7VhMTkU=_CJ?QTFR7U-*|IK?i+YA~$5S
zh|zlZ{%5`oQKn43i?x^JahN8xH6t?`zp)!Af>*U9W8ElKiIf*paFVcb@plKbnN5jy
zbPMb1ok+M4&NHZJA!`lQ$QjvByyBurpwJ?~#}o>D+r1Ca@Gv0C07WSh9DO3mU~W|e
z@g2V0HhQrrBQSOa-isTk+3W5TXoC=niX4K&ik^AKCB$v$0}Um)kNB1Jbdp)R>+TM(
zq+eF3zGyrQIQIlf`uCpsx<^Z4^2c;E!WHZV{^Elopo;IxX(2DIro?X4^y(ZJ@o{|y
zZf%(HzVZ%}pu~}FUzP1uoqnDRux_A+5!)#!07!V~cu@Drs+aHdmg)xerV};NU3Ye*
z1JhZig!r>q68T~4HvB(D^YLYeE#x~d#cBgyyCYfW%b%)<c{8=v9}o3EGnH>%h$*o$
zSbdvp90NBliWs_Pda`wU+=J7@7Q<9MQrm>$Kr73JZ}AVpD55X7(E@MME3G>N$I#N2
zhMQ~u)X)#%LL6_S2yvcO9p7qIS-<$^Gf7SnVVS$AkKq~rbCCL-j5hi~(yqhjC(P_(
ztzEC;D|mN0^(x7MP1ehItD<8%^Zp>pmx&{@7#AAjWtz$5ZmxL-qhSv4T0%p5id|T4
zt~e#=P)r1<`=f#KO6Wv`yDN2#{52$o^@*M!>$UzvnApJ@ZuH6Eq{pCm_nL_ky#~Fu
zF>6Exk5?qNchD~P{QzJIB<?MfrK81&66fl@__zA^h~g8#?ykd$zyYrx)6Ks|*i>d@
zUzVI(XPoXS=4l`;Pk?;BjnBad-tXj5Uq*f|LXhccM}c>7fa}g>S%8N2YW2O%lMHJ&
zC=r@r)GWt{flYh9KP(GG($*69oy&Vr-6i&uwyrgLVO_d3TdT}E?DdIT|8$bA)SS?3
zXZg!?OOm(N9qOcIJ;Uf9FabE5l~uihO<w!!wM`E+qW52Q0t3#0I9s~eL|svOV*Rh_
z$-jim72!zh+9}7%mY5AjvokVhDgNxiH$R=-xBLFDzqW4KfAL|}?wUWh{;>6j-=|WR
z68vilcOQ@5|4@y2;8wzMjDO8v4-sjHF7JlCZ=;Tn=Zx#O8(R_wHBs{c#b^wM#){03
zDURf=>lV=UY$pWsXmJ#YlPIj*&hSi|?LS}uYwuzDXucE6tm?O+v?)QbCwJwSlqFdv
zPS!TP-Nsr>ia@gGUH4F}Y|>++?$Zn#YBoM+-~5iD`{-9z+AuX6jSxxnxWe6?jDD2C
ztLvBUiz)Vvt?*;vL<{B@Dl-`jwF<7?;@Jp}xQ&F_Z*qpf8N)w+x1{*1_V=|R`30Lg
zE!vh$0oYq<)J=Jf0JaB5c=J%z2ra@S`OtSrkH6}DpMwT>D@C}@#+sHNUt5@03PsJZ
zAj@gDU`atD)r0(Z!xh6(Gd*A{%ivD18YKAhAD*gKkVUErp@5w)W+ELA8_w7;tdIsJ
zVH9Ie7pjHw^x|PZ@tU9S1lHWB<oNX@!)0~k7f6howZ3@RbwE1!<Ah-<^G(%#am!F)
zrFyspQVi9nJb}loDpd3zeBb#GfLvngYN9V&z{SEnbpa4yn0-3K%{ou~@Q>H*?{nIb
z8_qCpf6zfSQQO&R;2}lA17!4R!e>ZZ!HhhlVaUN)-2E5$u^W>lj31P-sSYs$Hj9KQ
zaeZJBsk=x&f6uhXF(+R0<G{}LT;UwJad{$hT%i~j4`HTjZ4;}?E9JMJy(l@Kta8o1
z)0<vkLxxSok>c?WSp(~v&?IT3B)fEnU{F(Xd7Fp2%?8{|C&WwZt~mCZ|L6LF6c|=L
zJpvwSr%(`n-Mf<6{^&4W9Od+UPwt^M78g_<Nu5gDE|$q{2WwP$5^6j3cBOgn@Izv=
zn<v-1nYT}z=XC5Gwz;3twuU;AhFpp9M3TKXE-dA*ADAUq7}r(HWzMKN8Y!+g$x--z
z;g3h}4uZ9B>;IV@ZA|b9*tNwvGzr{37P?PU*O*|BQfZLeeKx5wYbG>c*ELiKD*9yd
zpudW<b(<_>GW1u?rqcwPhvl)%y+7glTiucE5avTL){NN%=2$VOwH{=DkhPAVC>>NI
zxhO1znP0hn*A2<YC^8QYzeu^)@iPLvhMKZKMk#R}DCa;!Ur~@i5-@Q~6q48=x83|>
z2+{z%^sDcBHrUEXfA<XmI6SBE1mOS*cZ{&h`lp-{Fc$+>vk110dXcmwG^;sEm^(~w
z@#%5I4V32^njUi;X+uN>20d}Elk07XUh;$XQt?qz5M92@{fwlUOmH))A}~$BreK#G
zh8MeyH-iR%AXU_81PT$|WL3cODx4QG6Po3O{B~i^Ue%^wgL1v5brm7WhU}3eL2vg5
zbk}&%3Swg{b!SuG8vPhzaz8B6@=Ei%;1MK$l+XVPRswS^p9CdMdz3MLMBA5aoDUDO
zU|p;ANY+(UiyG}6lk{-4)cO3-C35~%K*E-ah~e6N(!81+HhT8N+Q*cbx}{T~!)riw
zN?Sj4@wR@VX4L8vXs#84ZY}Qp;emXrsCE^QQ0*n;76`MXaZ@{hJ42<(>b5eIX^{N1
znI^DO2{^hv@AN~HFspj8yEy&!nv%>=YIf|&!a<lr;1b1V59cjnJDxcDnv#!)xa9{Q
zWN2G=84Io>8;cWV#fN^Uh9bMC1dqUcJHQFld&=j!7ZOXJSXwYoK;&}(l#oxGxd)Ly
zvIqEU6@cFU$x;lrsx0e6KC0jODTt56sS_SUsHm9%h!NFS{I@F|eIfB*{dG?eTu}zU
zd!GMZc)B+nypz#5{LP@NHgiS}Vw66^KKcFlwy&xl><hDx`ni1Wekxe((;es^KZ+gf
z!?mBjpH|Bqdo6~&|1|tpc{q<r##uH+A(e{q6}AVG_)&KxfZEjB5(jC}1h`nR8`4{`
zxpe6)2$ZSz6E1POx=h$hlJKjP0%aOw&4VWz9+ZBhA#sIEzy7_4NS(JrB;baB5D>`d
zlK2)-9JfIelFzOynSK61(pNuSli#t+=qW6gPl3P?AkcG5(ZDak3Z-S0`kc*WOqmhr
z#=yj9$*}jI6BMYShy2*HYOxW@A{Ewa5X3dMv!;;mfO<D|`*$4wPlMQr|GPYf(i^tj
zxVg(NJ*?rNIBI;*^Iowe_air~ks&A*MXnvv``D=ZIXP*?=JGIcsMb2QhdR&g1y5Qr
zGr{CV0V5sahMdU-O9d#4>x<6|!Qmy-?hrTinbisiHEZT%wS~yx;?yCETCjF73_Wgq
zlmIKveHUepG`<`h!>Be@;*v+i4|f~_|CAGkU01rKujF}zYE=Y=6U~`yFxi6n*)3~V
zNp8O%MKl=5B)~^MPGag_+HAK{^WC)5t;lh00tRWINiadWq|H2our=kTG9@8~5SqZZ
zRJ8EtfqNm60YJ!Fyi(J;^lPT%9_rjgWzEL?Z?gwc1}6#B)IFo}`87v3uQ95%@G1li
z-^#U1n&P9SDtQG6(^(YD%uwT6gp@JKhjWk>Eym8YS+lO=!bI>cFt;{UJt9mg;^vqI
zbJKvZ1ENK~O5RlVUUj=>;woA&yx9y1oO&4U-Md#50qk9ZF0z*=qV6D}e{E;P|N5GO
z!yib8nlooo&9=&Coi6YEMcG8VE^S88O0AH@S~62p33H-xyn0$E1<Sxl_@z_BixI>q
zHzVMjw^44V^{wBra{^oq4&FyoQH-!b9*E);AZLzgc8RNmeOrM2BHC*V2xlkwNQ2`9
zZ{T*;Ohk3RXw*1)!kalnMNRa?o`NXbo+;|&*NNB|y38&ydCJ@dL~6dTCpUw<vM~W!
z&Yqcx6u;>NntQYzw$^6rxY@5cT&+P^LT>mAK8pqft=%-EZ1D#fTQOIt%zXGzND$Il
zDT3E>RBVZJ_krgQqHwjvEdyp*{@)46cOC+A{SO|C1o(dvj>G`1qea+uohY@n{S&{n
z9zfI^M;$LSJ5o8b5i64rqsdU<eX0*|5sJ=2<gbV1bpx~t)Ym$V#5DpKUU!0!42~L;
z1Z<?m{C-9d4ovV7+wLkP5H*va2~_@M2`?bQ-##bM<T*{Il<M+cK9$q9NNHrmrJjfc
z1BI*`a^P^8?#9SQJ)GXL*HITOSX(;cgMl1+c8^u~d5U{^?_;I>%!$@8z)C@&z8$D?
zF>m<qX!IYr7AgLp;Y)<hzwU*wt!fMjbKoeHOa9DX;3p@)AG7!A066S?IhX?GSTdi3
z8;@LP>qDpoGlh`0>|4<3k760;{q|blm1Du=fypwp8)~dTqFJyVQb{QSnmZ~cJ#P=;
z25X+qR6s2Ire>C3K?ddpuKgcHqzmfNDjwq5@!a$baD>h5CQ$^FCy_@|Yvd#$!M7NU
zVyZC33_zyZunYq*0dqLzkZApx5dd1~D-twLa0&_lPB^K^bwlPg^PcW~f)~ab6Z|4)
z3tS^M)Q~RiS$9NJ#8p0>3ZN?3rcXYd*#Ti&I&`-I44p~u5z4m?G>L|cOGW`bVD{<4
z$UHdy?peI3v14c5hft7ghbKgG@g&SrS2oNrJw60TE*jv&nw7?vnTbPd4?6ZkDxV?C
zW7vPz1Vs5Dz2zgnzR+F&U_wdu?5}M4@)vNLtP5d|g2NQ9uiGPY>);E+M-b~D2X|Mf
zmlVWA9+Z|w&16FcfV)ZngXeuMtOa_My&ZnIMl?3o4_h`z0;%ux)0bFt=DM7I=*&|S
z$*e2>79;h3_5+5TaWMB5a`F%`G-`vK%bJ&isLI=&A;2pUOMc$H=_jopSL~tXg}JG=
zZ!p2!X|V82(N_%0z%!Y*-i;iOy8KaJiTkD@fFg1xi(?JN8|x*;u1*HWJsr^J2Cf7T
z9bwIz9*dv=)0;89T^WNJ(3l8OJ_6=)z#O^j>ttkfXuE*j3skst(?+td&kypIMh%O;
zHbW{S`qaB`t<Ci(b(2!B6l@B>!qY`xWswG(Rh^Q(uXiaJ0R6Ad4=R{5<9@psYe-O{
zm0Q6GD<`h1nb%C~k(({G0_e+J4_bayVCd3V8d%DLS^3+=$<&#YR%%Ju@_3d=KoDxq
z%xjasHocH3aJ-e8s_NYOpcS-5{|~89ALN6%QY&E~l2d;~()z=MRnJ7V66;tv#x&!^
z@HJx5a_Y>SCOIOapQZVE7bJM~oiy#slZ07oz3E*?<%K@TUM!B;vy>)v*EQ4&X?7`<
zdk*PA)LSUu|4z?coghp+zV-mz{PpFN;ExxjH5IO{U1H5!qZV73Jtw3xQAUW!c%?T;
zX0{8hPlK3yUMFd=1iP#R31y7ddbjJ&50-eX)3Ox6y1tgY^)|5a;cH%nta$~c(b_1^
zazMzZ5-W)A9*;}~aPtCi#IOG7&SCA)g0_`6dqX}ylGgg$Y)F@8pmzn(J2v&>BsBKv
zOtLY5lvupaa+<BE8*xDf(L%XY!ML7933zVQpL=H~Y|SWh<{_0?fr<{1gUe;iwBlz|
zz|BNGdiL95aQjo_^UBVfNQGe=`@zbLnEP$L>5_{ll-8Z+tH2XRC(9WnGI>8zkTYG@
ze|jEPy`no9kh-8WO1+~p_}mH`n9o~(1c@=a)EqHCXn%}5nYcVizWiyz`gXeh$->x`
ziEO6KE%`)BNs2}A+1eN8@0t+2mDCfsxz|Xx;pe}<3s43LO**b&h2Y%>d#7Am-l^=Z
z6*iHkOi)EcHU~fghoX;L2gM*mx{fz~<gII>Trk`_#b1<U1k=n*i-R49<Wa#LF6K;D
zIl|#l1*GkI*@Bht<L}k{du%H%DMVSFp9I#<t4huRbA4YW8)l`{riuL@e(FN!-6I7v
z8Yeb6sMI}sHuYzN@lUR+J{v)vemrmu5?C<f-puoKX-}J(?tdgkwzDKyN#ezZreq2=
zRc4<U$}(#@k+@TYW%Klr3DnFh<p()pMhjNIVB*|RoQR3a0C&IY`w%{nx*CbS9DJ!~
zamCo2`G`7cSaCs|&WhIZ|IyXgEI=9P5q6<+GiGYQPzVzTCNDX(!buUAk<N+{7m#Ey
zkN_B_QPlksQ$CK-Q{W91LjNBJmoacQ<`LNR7`Goxv~WyNIM%E~7ywV2F&n@fGe=_3
z#^=AnFHIO}oWrf%%tmyvGZ7Yx39b!Lq(&_cDnH?Sfi;>s^DWhb1A(YQYEBRc5Nh5G
z2X$oJ?oPR{A9DJ7@~AK~xZFsaunZI*xp#piq?vmNK1wd}8#Y!u8RP<bZWm@2an$ih
za8yK34yC-&**=e>aIO0$a>0C`^t2zwczCp7vsT@_6+1kEl{dJAFl)?Hh9WOT^lgW$
zDsta!UmbYh!;ztQur;d{LPz~VSgibn?TjFZCGl$jPMd)G)aQLfk&~9#9vh=fcxFPc
z!CF~K8>t;j-U}L9bdwQEEG(5Vl3qOyT`0G{Unv*B>TaP7$Id}z5%v9QDrSw|DW%ru
zgQ~Q6iA(DI>=CI}dd48M+c0gmQYjpkihQ1ROV+qB?Xsf}ay#QDaxdzL(Q{QkZ~gA)
zH6-xvb^X}0S%v3-HEStn91Xa_J&R|W|HUWXZiSO0Ccy<}Oftmsaxe<KYn|@eyKCDe
zV8dD;8#Xm2$LJV12Xo-MsxZo2ZPV}A=&*CbqtsqmM!`(E3N&Lne#p_{I5qOV!<?)0
zKNM4^N$^o#VAGT{l!#{c8?(XVX~E6H{qwNt2gvbby(zO#lo9tr@k)dzsEtd=g;zM5
zYCxj^Ij%$4TN~Yqhn;n0v*zdD(2jNQh)d=_0;^pKPH5OR9}&od9h|h}KCj89+4SUP
zF}pPUmMr~T+n&`UPTi<$;7y+qiOeJi0oSzPU><z3!l@J|YG_~9d=cKe^X5FdK_on5
z#Zjr&+sY6&9-O0LyoYL1W1y?yZ#<qolX_(|;f%Z-+%e)&*K>~zojC*)Hdr3*7VHB0
zT6z>|piU^8SIA6(splVau8BU<;og2K@Cvi`$|y9iI<%x&^{2c2w=u?+tpS1({@5bs
zfq5ZxqVQAKBa<G;aW~f-k$BXmmlIq=Q0wFcMZB=z>^_G#kL{lKNR5qtwE@*SB+Y6)
zB?t&x0tg3|A4&0=6)Df=41DL0L$e)VsVg%6!bPy~Y4ESm;ES^7D(+0LdviB@dSnhf
zSTtk))g$2dIkW~;>}C0c$kL6?Zx*sMu=eR;bq6nM2MigR2<C!}$8%>)@UzlIedfki
zs+B4X*}{#Rp4`4{j~9;iw&`ll-mYs+SlG|g{`%cJN}o=79t?mm{gkKIT+(OokY$I6
z4OwLk-{s3psCCLRec8n^ru)#W@ioVo4~g}Z;g+ifT8%F@JHcAMv7_xZ8-n4NUyGB*
zyh|qymJ_TX!Goy^#%|-mDi%%03FOFLvRQELZ@_^8_eqaHc>9mzzF`YM0pO%C3~4s(
z2t2YN`%Z^45VYkFaCp`)dm(|(W?-mAbLMEOqgF<4`V0|yB<=LCeEpgY=~j|~rswbJ
zErH!qw`p@}v)IHxm6a867^3UKBGsbq-&fXb>dAHWFruw0d(Y)%Fy*;;FwBCfuZ+s`
z|GD;)w|~mAb8n1JZ)L`eEq?X@(q;6fiUki3j*9AqLb#Q89C&>8CL}QDwDOP|dy}&c
zrkSf>Qf$=q{Pwi_RV;HL4I=MkGO^Zxg@LC70V&4G1m&e}TO4&XI?Dqb^SYvS^XJ10
zF}y$Em9)@}xKJY-WsQMDv3pO@CyeI*(i~YnLw<J%{qL4^W&+E$3J%0>VvsH#mq+QD
z*v>$G)J9B8&Px6Tv0*8o06?r#CP0)I*2Zk*3o_KhGhB?1?a}dt;&cexoc?<DS^nAP
zo->$$R<)vh&Qt`2>`hQXxLr9S4RQ*(jWjLpi@`IWx9Srx){3Vb85xB>z;OpUmHTds
zr(Mf)X0D$_on3!}en0%#bH7W@f}pX01>*^_7gVl@5L5qj=0O@SHueHH=)hlQjbzdh
zhKg@3aYTO2{ga?-@1~BY>p(x#EIXsm`M$QYcTc<O15P`mIB~S!Kl0X2SSz_CU*Qfd
z2wHHgc0I!9@$}Y?RKYnr<Eb`7Pk;Q$rAG~3lNPatU51n<y;_cwvA_05Ku8zwSIPh=
z>C;#tybA?f{;49L)O!Lh47nuylRE{D&6{CEB&{N1UA_to|Cs%;wDu1GsGFhv>cng<
zK7a!XiW5@a6VH@06x9@)7vfH@rB4a);MUVrsgp2B4OHL#^xG-`N_(>KDURN<fIf-Y
zjyzndjw-0`=B#6Vfu+pRlHRubO<rQurH>J5v~pJBOU1Fgxt7ZxGz%*>b(R`f1<QW5
zSjkT|?U9bJsGO2SZHI&ah>=qnzr2sL@k8y1H(G0q{WZIo-Pxc5=9=>$PtVOMzvj=Z
zlRfQ`-HN)udl~}?*$rgtF|OUKamf7K9<c1Y^F3KKZ2}W<SDm0ib^!iy%0lh!bR#ug
zU|qN7PuI``?13=bY}>-U`1S2Nd6w;w3e{Ddx~DPpKa*JtpLD*b%ES!bro@W<IG%qR
z_p#_PQ8oLWQSGNoWAd)*NrEZ~DTrf%8S==PqH!EJJjF8BkPU8Lep-`bZTY+7AHr{4
zg@vk(=ECyzci?XGmGOuPviHaDsCj$zv+`pqeb>M%3UC;aF(d8tBrrHOCuTz_@!Dpb
z3Y1pwc6#VS>!6GDo))h<l0wNu!{#6&fK56_U$oCb;_9zYwtgB<$%LWnG>E8#zMBP(
z{g+1NT~GB3?qr7+2~FPMO;htSwlfAlK~n$%xw$iq>8%N%Xp}pTvRvk2<n6{`IclCL
z$T%YX{LQ%(t=xi{e&q+blcxyKW59pE7)b^bt+=NmBaz0$TkYd^hMEEyr-ddt<L7w_
zHtF5Eg<m7nW`&T52aZn^#{&FZORaJ!SB36Bt&Kw)z!5N{DQmgikkE--^ee>+%T$PK
zDxY2FHDo=b`dWM#34?bjslS~=&P<-(So32QJsvzE6i)l>a7O9dryFZr;#!~RHGP%;
zxHU65#V#GDeTf@ECDSG%8}k6jzr6CPp#U6lt;Z4Hj+_w|xul~~q1%M2p7&E3irh|f
z_C+6SWQ8VmC-=H1cfZG5mTcNAC;3`T_EJN=>QG64K&kN5<A^0S{xR+ao_AoI?yLYq
zP|GGczEBIS%4>kXBKoH;srQbJNKtBZr(<I((wD|K9rS%C{J7O!;W-o45gklltxs)6
zF#1R+Kv6UToqIBBVu_@LI}YZ|=2Y$b*F5Gcaz6y%8>e^G)oS*3Q(EVrW@;VNt+>v%
zJUZ;2DRzaXw{8FKqbxRN3DV|NHVyZQaflPtM$diC(H?ip@v0`4*F9_KF8B2?&TWYD
z5)}9;XtPSmwEFpOqk$P`GLgwzaylP%G|HAoS#mV#33!M=*!A~_DT1Ufn9x}pJ={wV
z$n6a+{(N!1d!6;8(KJWx#O%NTZ_+0Fc9_$`@8`(5|3(oO=Is-}T=!Wn_VOC^Ok+{s
zY5dUKjx6CGPp=B1O~BhFbw5Bp-V@4MDV*M2MeXvf8qo%yEg(j2%EEb((TDXh8IkR$
zpXVa*uC>evLeQ4yg~<>ZdrtYfR9|<a%++_AK<zlj1!@ueWW9aF^~7vHhIeoFg$X?>
zn&(j@==_-yfF2+Lcu`WZIdXyW;H&Z4i~hEj?0Pn)vv$M(qjbfKCG-I#PG#0``F(2d
zp^UZ-|0@v_%LOytj+<i!{&`EG=VSp|@io4M(;1<zhAOWx(BDLYQ_O>bC^fwaiP0q3
z*F-~c{JIC8K(*UEH<Si8Epn-7uIoQ|y|M>qi`4ewhUzP0lr|R^mU7aFW`M5c8lMIe
zrZF|qH&_jMPiJ9=I|CWLE6_iLb=TPv*8Yu;^`vWfMG7RnN~hV?*2Miv59&z@3xUqU
ztk{5c5`ZXAy26*AQ(j|+IPbSCw1;&FrBOJ~_q>4|5kW4LrBkJ7?*Jr0&A7?LPC{Go
z0BtRcbWt>p&(C=sf*m23cmt$dM2yeO<Tvwjs67-v4c_&SkORK(ddh{oy+`SX?zS#$
zudZon;CbW$aY(kaj_*4m@ST-T2da$VaQjx*^wY|OORZ<%qHN)B;<4I8E$SN#I@d+1
zR7-Zh?)CclcE)pxafwTp@t+7pq?cgr(@)(y{&d{-BCx<5IL8G}C!xsJS1t#cc(8(H
zmfZSK^1m{P^^DogV}#gOxm!ZW;70S{!c;X}>vgvb>@n`yp0|aqls&b!gNqssyZVxa
zmu3E#C8G>Z&3;<QDN5`{TtdPWb=3(8$XxREL>0~)xWGaN$_boTFp;w0zF3|CPePc_
zQkSAEPh9)t2?*jp*Z*Du9qWtcHA;lWIh=(Tu^~04N{PVtD-UxJ`W9N;m>w<de)tG1
z%&J)?!n9MH>y8qZQ^_1V;7s>}PtKSmD6X0FZvDX3D5T5NTWi~i?Q4J07?9vMPnph9
zjVJx~geHyMMtwvh7}CW<UI!5FHhBSc%}+P|`0ox=CXP#5FjoLdJ|hcJwFENHGKf*?
zj4mWFgOHqN4wdFSsPDpEo1`u0%>?3S?dxSOKhb)1q>v4cxHKz-<GS5afwBQ&0eaLJ
zC@5$woPZp(A74K6dTp|{XN_T8w2|+Y#i%$oq6zHd5{8YJwR(XMNMl=;S5w^um?SL}
z671y5IicC0&yXb2yX($1t^sL^r@ls1OOrym=3LS@qefkVqw<2_Wx9vY;K@OThBjuS
zy^=HHXG7=a!H2e0z2H9jF-~iPn>j0K$!xXQx%JdBsmsBkiu%QJ`N8Q7l<ec(hvqgR
z$@G&#lbm~X{_~k|AEeOd`Q~2WAhvOX^Q;i$aA21esCXWaZ<m4ue>gPDuy>3hW(N41
z>6*+p?fK$_)f&4s{h_3l;jZifwoh;gH$&<dgM%82qE#oyT4NW$LaUz92dDOGjj6j^
zBgw3E;Yk9~Iq{XnUP%52=a>*ALZW`{6LoSysoCBn0I-CGtN4cu)wJ1!<kfKot0zWh
zwtO-u{&w84wbK_m%j>i5u6<f>aMA8faQ$Y-h@Bn*Y6FR3xLZ6xD0kK8w8k|B<ax=H
z-JgnOi-daPG4DL!?cJND_GEj%Qoz?r9a(!j>XFfU0&w@KZo7QWf{gKNecxh6z`WHD
z%*`Gl3^hZ7SXyQ+el>--<;+N%zHQFeVjyQ&$_Gv?U13guiC2Q({{eT=2UrF-64{H)
z&7V;~jo-cCuU%RvD0=3HG$_5k8LH8siaN}itzB+Ab$qlXzb)-Y1{71@{1o|fv<Gr9
zk|?}{q#e_}nHL~G!WY^)=GVFC?*EbxW*olCIgg|$Mp$4s^OQaMW6r!vkvF;&{h(n2
ztH{ksRY(YB$s3;{#M<>hJra4S8ND=GV$_b;zHOPC3+tU=KDMxubcP#Q*~n1URUs%G
ziwNu4Y}5B_`iuA~F(8tksQqI6Gi39O=kG1GQR;$IudtK4g;>jSKSOehg83K>)1b(m
zrSjS}2vXM-+s3kjaR`r|TQ?rKJzy=j7E)>GVTw}Da>}%hx`6CG@;11ZncoCO0(Gxy
za0a;fl&5jTU0!!C-{vO1H<P7`V7L77O3IFuH-)(Vs%?RM6?o<LY9U=Z&QFnB(IfaD
z&7J92Q^~f#<vOr<XnTcj85EHwK!>QvXoEmnTfq}ZltD0zB0{hkase3<0`ZDd%cL1V
zWQYO*nFWN%+=zk+lYkJJ5`jb@%#naeAh`$ouJ!(b_u-w-wa%&9r*_q@y?=X`AEwHt
z)jcqVmGLlKwJBf!Hahd4V-y~(dQ*9sHCA)4Vv-jc1_)bp78kpPMrA~kpIbWj|G9XN
z8Zn(5zxf#<KBL5`8xC-uhQ!V<C?nU(uU7-Zb%lgB?cp!F?EWwR))iE6I1EHH+fhh2
z&XuY`fxI(r^Y^t6Ut*s@Cye8!)aPlGJ6!{jOTT`JbZc0BcqOc*1Hb2nKvY(`90rK}
z{IX@jwF4q+VzLzq5yAU$II>*YRsbfvyj9@4aawXnC(B@8^rlhOZuYd05_oE<#G^U%
z+z2}M;^sTbF3B^i6BmFdG8CT}qm|DoAi6EWD}`4klsJMJYSHlD(x57FLg#2_))o}{
zMzSOJu&%MtNWc`t^$N3#&3e^1+!s|n`&0TkyP=o~>xk}eVdl>k^;Me&eKG(f>2rC$
zky$^3w5r-f>z(B-4J`HtheX-{dAiQMhKDx9SWOi!OC+0pg#Q5rG%PGkz)jo9Ie_IJ
z?_n6xXV@0|F3IgJx~R~nuR*d@mz*){*{~0>5(Zcf#*E`npz1ven4&V>w$rHAa?Mk1
zjZX%Qekg~60|o^yAS1OLI->~mUd6Ou#@6Ge_C<(ls=sf}y^8}|;VMn`ZY*vjwR0Y|
z5{77{Z9Tgu0b?_o<&G=*0aGNpk!7hKYRMJXJD~Rv35m@J!x+?KS#+{8ROxP3ATDC+
z<I^!PKtDkaS+1=olH!VJt{#qZheZwu1_B--2*7qC_B<hxWRKL3EoweNehO*xwD%3l
z!|F{NfNyIgSvL)QsiOdmvf%Ueei*A%!C;o5DB09!>TG)D*UP|>3=^-jq9}CcTS>Ws
zsJxD&2EqM?xE5TyYe^XvK*XJE>U3wx-pvjjnr)=w?ere%8>g@%o8ve3!35HbZJXe?
z$`)jE12#wK&(+@lVg?H?3QtTvwmUV)9>j|#bm-b{s-c5d`T%g7SR2!;1ca|B?D?0J
z8c~K%rxuWKnhB-ixtCnJ9qhDJ1q<KBc^P?!6LfCGf~%@FKr6jkY&2oSUs%3N@jDcj
z#g}#rgl6x;nkzKNQ#-TNXIdn>e3l;q6zaip@OVpS$=w`&J`ulad3?*L2?-wXdp{c;
z@N@~R@->WeM2039@srqpETxwc4;(TJ7R%7GyWzE>Agea;*q`~aK#3z-zpF2CGeO^u
zVLxiHC~~~=+I2l8IK(uQkXI;3vv3dim&sKfCfALXOC2Ka@~G!v_yWwaikmqIF(dUC
zPn(*EY~v7j7i7WlLQeSEtOOhOSPZs0uSJ^b@m!(8w|JUTW}7faLZUgX*eXP313PkH
z>+12XXq7SNjwY>iisw8eI6qY>YMoh_N}rb4(OaDS0~zAnSOQpZ)<s2LI+D$shK*_&
zv`O#!jHK<0ZTfQ;HYzCF3H}z`UtL~#+>X)Vo6NoQiYGKC8uH}@LV2M|Q+~^D)-BHK
z-=2<c(sdS(7r?FGT_dTbJpd8f>QkQl)k090yg*%g`q>-%efp5~V&y^Sve+*u&4!5v
z`%6x@Nz)Nx_#vlg2i6F_UF9f@E%ot#`)Ez|V4{jX0L-4Ciotr6-aXG@*T$<-8{Gbo
zh`g}e^4utC$$_YSE;jS{+B=JgAqSQm4{C!?AIPnBE;7ikBk8ina$&5C630q<-KBFN
z+|`$s<4?hUwOL)Hb}pOdRRotmh;+TZ@fk64#$DU&@#pe{J-90%k_uKz)VjEL$FRRK
zKgof#d4{D|=TL&dH!~)GJ;9vSXlr#tAF+UrLqZc`-cKh1vc?Ev?VrdJRLQaZjl346
zuXQJ)*6&(K+?;z8w7=Y5!{E8u5rup+*VY$l0!4Q{9Ke@N*i*O}JX8OU)i*4m(oU9j
zQ}t%GLO@5A39bdB6;%$_ib30R%YR_32*E+ttm$&a8VP0Sh-lUmCR4!dDXClU*CVfu
z0h=$Yy=KtU`DQ}~Ma?-S@XgKZZ)Q+Zn^m3WRw;>a?VR^a;K~QRQgJOySfn4z!Glx^
zVd2NI-Luw8K08K*l~le!ozOS8wRN49A<>UN&R1ri%($GsU;Ro6$D(vT{>y`EHTQIT
zZ-fUU1>AJkz<~|-xqY;JZx8EYS3aL`sw-->>AL{jP8Qa)gvaeETRtRMXEJ{fII(;j
z9z*Q}Rc&)Mj}m^8EhzbEgHfJeQBvsJCt9D_IiQW0Y@)m!@L0$&x#8~ITf!M>Tog=1
zyNAUYGU%}LcF5sR9kw3kK&yB4qiUZ%lu#QC2@J923kb2(bmuUgX=}N-=!#sC5v~>w
zA;BN}*IF9XAfTyb?XfZI82aghuUSy|UX(*rPFn7@#vM5ZZOXrS_5#9p9HD6(v63dE
zKb;3rDz9lsyInjwIIkz3%BKQ(R6#0M<xr@%{-2d8Eu!}R^CSqo{Mf~5<+U~{KOAER
zFRHc{BsUEjJm8l=Drb*#&D>kdzF9z3WA*sLxp;J=gZnuA+K@9j`0uHjN|yE*3pB6u
zKfM|oya-vMk;Xk5Ld(a~lM!pRRcUU>0W2BJb7naE45}H_V_2^TU~FO}-?B8NZS0P|
zl=q6^BI=gH^a)F5T-E(0$K*lD(PVz7%x~R6_!md`j465Q9FG*poOWNW0BO4qh4d~O
zmPQJav~#v#gWdGflYJdXJ2&zk<(&@Z`G2Z!pw!#5U|q!OsVc#*L$FRo+Q$|Mw{l$D
z!eRzLs&1b(MksGknehPowI2}Xm<`?+42x{h$df23f>fB&7#ik_&gGSHtz1<X8VkoQ
zek=O^Rrv+Eawkn6=YbW=3plHW&<-3|+e~_@X1UNmz0oHCH{kGyoriZD>**w*L?LXT
z@8)5C@|w|pqO&B!Qk%ki42D=Si@z(o#=orI{H7^z2wWC<72|QT7n4Wt6<5s6xR7p<
z#|4@y{s*mfnSRauLDFUzD}iu{rO}u*;Je)J`2agC<v~hROSQ~jx=Kqb#jjPfy|FhR
zL$<=-6Nej-pd7bq{<p^yb2Q{e_L|XRy#MLRZo1$#fvuju`C^2X>CNsEuIeh*yMw(3
z?zou>zVdq4h%f6=>At--@4XGXxIPY-bempm#CWpkOF)F2HEmR0oFjlBHXLopqdime
z=vvqoWcdI(?oBvG((W~G*>&Id$$4Z#rN`4(OAjH83&Ivk!E7%@8z{xJA4y*w`sr)g
z1{3h|LARU<c1n)MNtTxxT|)*@UOm{96QmyC$dG5k7SFHT)4Vw059P(3H`76&GSpMN
zdn)-@YgwkK{$({G?LYuS9~Y8X^`S{IHI`t{8X*F}-khe6=n^G*cn461D)|<t%L+pg
zy_O*2g(t?yshT-jF~h8C+E*k4(LrVN+OPQ#xp%!>_AxSWuB<s1cKLo=tiVcu3kDez
z$bPiF4Knj4{7O>K9Bol@H~GknXj1nG*6<5@nLIt3A^X%n#GDT7xrWGtL#3VIGS_O?
z;jnTfLuN(18v4B4L4=@$cTyFPg1qmm<uSDF2&-#g>AL6FK#Zg&nhQ<DT=u<?Nf10z
zNE_UTy%52>)oG!JbCA&FU~Sx<CfoNK&8??;X8R~ZcewM;y~0Dh-B4A89uo(&FbZey
zH5xLz;<{oG8uGX~lbMV_VR*bEx?6ai9S$Wsq@J#yI7>QRK%@AY1Xs==hDuN7=I}8o
z7pInCUD&Qz{|{j(To3kjhlPPTGvVby>A-Rtqi@AD6Pv@k>;G}&Tz3t}z+iQiC9L&K
zy7o#CEUVjV8;PI$1W#4m*cKjfSe=a@FRpGH);_9W0oh((>z<Gvd1%5{mhY=!&L%<q
zHI2m1pkIUr`Sg@@Q*wb+<ao+V^Ium<E+p%tTa%g=MafCxOpZKbvvodXK8Y%!J(|Sq
zOwidfMQ>abPsvu+R8_K^RU(!V^5m%7*Y1Hg3FvI!5iknD-Rz*L2RRS%-pk96wVI2p
z%$fd%8`vyfH>4670iJ9wr|V~W%ucl8NN|UdbYE1&!b2;}s;ErjL?V`r%VSBW=#U>X
zdawFiu>4*41(5yB)Gl-GV*;`YMw2C9v5mc+>!M|}d5f}Zi|o=tm9ZVMdpW>*VlC*?
zoa6{~0NYHHy43+=LL_NkAD2L?1U>(%#(j8N_FDtPF2;@H5BqJ&JYrmz{YE-bcgyr&
zjDo#$t0NH5oy|Qf@xR+@IVi7+*I`y}q=PBgHA4zJZb2moR>qxo5Vn`S4bi6<EEvvO
zoTF;owEIwpurWyOUqZt8+NbCiTr?CeNZPQ01t@wa;I8O(_%Xf?z!UMtAcKJR%m7@a
zoIl7PK2E4To%Lj{$S#L|H3e*Q`p0m_0nY7yAdCVL=O{!i&rNV@^EUgTn7b*e+-oF8
z5$)UII?i;{a3Ue_d=|~i-aFs=7~iowoZX6#lNgF>#rV|07>1r$V8u3u0wotwm-+@m
zYXQY9&?*H5vp(keLy&*%SfpWBWw{P$)*n_C{MW3%L~j9Yx^1%_X~GEy0~W2t<E>qW
zQ4=qP-~L#Z!!C3EHww8#yNO)*vlf4tXp67DxbxEFUY{LLh-&)c+BJhVbk7YihTdvH
zeGv494h3%YrTwyD0LY%-Tel@e*nLBQ{ue4)mQ5uE!EYot&@xRz-b~^DakxFnZJZdM
z7}{*Ar?5Whv>SE;&}fgY1#9Slb77PmQ7?iGqx&vHf48=_oX(jOgJDO7q9~lWK-%U(
zIL*{faau~yz;eU>R``Zvd~*Z~{XWYxIe?-~cTC0iKQhTE+>3Rd_|oVGjp1^*%|MH>
z-{Gu*Wq5vAqE8>U;#e!@&ANicw)yc%y(Qb^#|~4M7Q!+TIMNK~D=(zD^nRv~twStr
z`AI@Kvfe8m%X)j)2+-INYAagDI7><6=6c0zxfE?BJH5}nC=L6yAE48_<uBE^bSUPA
z?eT!K#TjW%?ph_x6$dh*VsgC~u#6L~P%;HvN`xJc53Ow10P_+|?B;Ute4iZNLj_UK
z=zRSEm~HWx_kyBx)s{qhFq$E39|T>mCUouQzza4~=Z+{FvjD;b!$2I)YFKgvyqbSz
zYLUl}GVhx-zn$~|e|M|{>vf$GYR=SQOgs&R|HBK$Yz=4<g_(R`8a*`g<2+d}4Qm!o
zL;ZKdPcVy|If~JRhaHa4WGnmFmDV%aUK0aUt>p`1zkt!)k5Xw5<@vV1W`|t^knTJB
z!y}67^In9d1>pt%iojV*a9#SaGqub*x)0h(g`6sVMWh`Z-A)6u66~8Z_$l><<-x0U
zn_-g9`?{W~0nMohqPN>2d+}q9?9H5e4AH2qO@+yJ9#Y56i8WPC-|gn>At?DVj#}N}
zE_?`5BO!1ucB9}ji|~BoQ)i(%o1`_@8QuEdZv^V-)k{Td<o^LZ_5VCsvqX+a{zT^e
zmF|!3Q2_A~m6?91{~iPWuQ5TaC)^@Bv22VS-TOi7OFgt|>truyn{L1NEoY5<cxY_D
z3rS}O?0A9W)TvU;>XAo7X~BtM8=(f>|Bfzje8YIcv-mrIr2F-dN|U=@y;Ig1g|hb7
zN}QY<7~yt#r(2`0s!cO`I2XsVJvX^dz>&v18kulPFSGGfz?<qAeQ`78+)1$A|L12@
szSyR-jYZvhCa?7N`%XgrANBX!uFP}EgU_>izh_?n=TYY>&R)I!A2zw4rT_o{

diff --git a/reference/plot-10.png b/reference/plot-10.png
index bf9821269c506bea98ccec08fadc6197ec142314..b945e09dc7470b349601387e2cc3e8c6579d1830 100644
GIT binary patch
literal 25381
zcmeIb2UL_>x-DAfy>%-a6$1!tF`y!_5dles0YpSZL~>FTQKEq4sJ4m$P!v$IA}U!x
zKr#kIM55#(s8|$|p@1Uu<|@1U^nK^uamKi#`;K?UX~*b|7FG5C|61Sr!kqK_`o^)N
z%FCB>FQrf@%T*339;Z+ixlkwzOn+I7S7^bH2JvIDsj9Lfe&Wx>fn0C=`1QgeJqHSf
z_d5CCya4);8HMr(MMZJn377ERR#z88$9#oB^}w^|HMhlb=`XvlbvL$1_*U=gM@o0n
zS}yy1dE3vW_{4X<F<-X5Yy2-Cl{6NL%wKbVjp2*vW6f#4`}awD|FQZn^UZ{gh4r5g
zeAv#PFTK?|@a)4M-+7Ev7(YIXKOB%|h?`e<h%+mk3!d$as$?u6cjxo{en<}a3x$%S
zT(pe*yt8edDEYbf@xnavlX7F_;C%9P^WlHO8^RtiD`Z9E<KrL4$L~1%>4C;zUjUDk
z2yND(QeJ1U@3Vetl)BsXwm~`X@vql43=DX*w6uoqMNK~`mz?mRIyISvJdcmRS?M*F
z-t+2BTdb6v`Jl$vQ7paurY~woG&MDM@7}F=;J|_J%!$jkg|4*a%a<=|m$ck5##9-o
z;)!I4dQX(4S~aCTPfGF=uh<h)E@@_FX4jX|a1bAw9t!Zjt(Sf_sbhzGK-*yWYvrpA
zJQT{vZJ)K#0q*_T4Abt~I8IKxa)|~-d@R?R)ohv4=-6PiN#NV}d+PpApFVXwz6ncJ
zB|pE7+Fh%uUS7~Y{!C#eu9i;OQY&Ygm6<8&FWdhrBeSqOK0!d>o1awMhs&q%iD>7Q
zgIha8Et79}Q2FtsD`dK&ooEu0l9M@`Mpj06wyt@rsV>izZeHo{>#Hh~{p4+RZuwY~
zdDJ?phl`?OIPQ+WR3k6eqk?>y5Vp><F{@xS$!Y>O)?X__r_=3*iq|SDzMGz48jbvd
zce#np6Wz-{+U7n`%s)3?;_KUZIzZmE!%wPzB&TG9!;wsnAF&~8a(0t1+)KW&me;xE
zu5gs+Sd)>yGv4Rlmq`;55SSefDSRh8kf&MIjJNu{`F+soZA<_))Tk(N;+s-mcGu%u
zX_;gjhs#8>Ximj9x%6^J8%z}Jvs<{WEAYX@@@|tb8w-n%{ZqxFUUz4veHN@Zr*(i?
z7~#|$rx_p>QdYcxL+*F;2uE$Jj5_V=LhreC()MROzAiKI{qgx(mY%sf-9Fpp`(5R4
z)6B{M`LV`Li#hl<)Ya9AUF@oAGz&5Mw#;OF|8%dp!mSWvx46#^zZH%(TiVfsbl!6+
zZ{Q?PpWfG(TEb_C6)hR?V&&?-IJxhch5K-+U`L>;$c>pXn&{%?+^aJ(GE(2JkbM{T
zERy^4Q?*-MLfRuEzh6985iV^9(=2{v*J1j0xzz31nW+*%>d=in9k<0z-``$e-PovG
zJEN=!<9s(pvyF;SXGFU9>o=6r?d=9%FEQ`A&96}K+(D6j6dG_8)^a9vKAUYF@LKyU
z!b$)32I*astO0%l>kO@MEdS7(Wuh;$BcvTV-)#voT$$USWBJ>LJ%3(X!ON}8=X&Ny
zm}HVB!&^Cp=07qLK2sgwbzeAOz4+75Q`Sx&w?8{m#%gg;4{5MfrAFD-aR{3fcqH}g
zG|G8dC&Rn_M0@o^Mq&~(VciTp&z1SDMpe|W)rlr-VQG1~tLl;6J5J?yF!;5Oj*gt1
z8YU*~-Rro99ko7EQ?l}|g>g;luI|{dW6Ux!`~C4bKEtrFiU@`2uN-z2(u{Y{sH1V@
z*x~TIe7hl7ud8sC;pSM}FXZ;tor6MYzWb~!c&A=qfUk$*cS}o4X0~B+Yv$YQ9F@%n
z6=%&Aru1^H`Msxy5?k#`cpJ`!IaEjsT8ev4j%c%ROfs7rnrE%ETAeJdygxk<YnrK~
zPFZ=)PESnW#mu*Ty*WL}6IYk5bsFwUY86V!3v9PaFPE9w^YqBWny+J><zXT1&h4JE
z`T5tbU6aiE+}QY_5Sz~2bnv!rk0c(RSvb`?P(P_F>qeyw*BjW<v4)iy{oe0<IVa4c
zJe`tgJ#kWPE}Kk@jU)S5I8%KuW}NYv#J)Ql4-DU0D=K2)nGjWJTQG6f>z<nAkHJPG
zm#<fwEZyiIgC_2&Q?uWWx%Z})=<_S<L^1Y<r!QNx^Fx11Vq))$D2vM8ru1~{+t|Uf
zo~$h)Wf}3FO=)J9M$gQmXw@l6`^R`ATq|z2nn+4W&<jVCY#m?a-@JKqy4ATo0(<M4
z5arC6Fg6mK%uDVTPWfued&@NZK(U7(SI?e{83Dbw>jL^(vK?qiQ#b%Zlc#r{_15Su
zc$}5bqEJq%&2O{emasT6cFn23CEGgFb#8{$;KHP79I}UVNS1KX4VgDkr(+UfVw*oI
zlaZtmbC4bu8k%!qA#LpS68`T?ep^=+TT-oYNZhhMQN&v4@r;l2$NSrj+UnJ$T5G>{
z^nJYEtjzEEQtLtULvQi3pLD184Lpj|e0Fv!Au;h&A!3DfrseuIlHNtanZXQZkdATF
z4~L#>JT@PsBqcjb{CR0{V^e)uCf6M=(p^PrrDYvDKlRSqb-Z`%8OQn0Xs-MiB$S&G
z5qy)2%9S(FWl?0%HM=XMj8447QH9`y<ed1rzWodHio2LO@i5_AjyrGKt>6;>B3y5`
z&8bNCe9aRN_^w=uS-PnAcC3!}&($fw>O@Ou?!Nf>hG66aVTI|zw^$wQU>g1ICgp>Q
z?-KRWO|iGunNf1C_L+Gw3Fqvm*p?3|OZyD!q_7;l4B<KXxoIY^&48uJl>ScRygdi~
zxVh5LmfuvmwMI!K<ktK5?_EagbUI#j_?I<PVR3fto-D`g&N{Ww-P?nO4c2gS_9SH)
zw>Z(P#cbR1bhGWvzT0PipxdW<ObokVT~5RI3}vKv3NOY!bY>d6_hm>F1kd`}dTcWG
z7%J9<b>IW%EG%wrQ4M}qCR(`Ro}jvarAMc@Ws+TPU*@gSdx9k}j?-}3O=5a*iY+)L
zsn`~CYjuU0k@3N|9PSqswI52^8u#W76f`wREP>~hYQ3nLhd06Pt;;qP2^KNp=1`cv
zaGP6Vhk<QxV`@aG(__J{M;_eq3@Uu|Xd{Vr5(Q7Q&s9HOC+lS8G}WDuVxz^#85~XV
zmM4$tK9KMHDN<gR{2kw?ov6#{J^4Ax6bGraInuFS&#v>K`TH4GJ3kz>U72v!yCwV{
zzpJUKRoB+8CPyy(VvUO4)OCKZJ$&#Wd=0uE9Gu2_o0^9Ea|haz-0DrdXP(2}Y{;2!
zZLY{U_Msp~c4@0go7YsInAyksy<>PIA8ba~sZGSBKrYf_xU>-~fw+%|BieXc&uIH(
zUgpTPh6`c=O542{PCB;If-*giZ;9Lt64H4uNwZqTYWMc8t*gVnmbGzs;`WVCN1TZ4
zF&*Q|pU7WAp(JeAdl~-9JkoV5PuvA0KUqzkBcIhPl@llRTli-OuP4qR0mwK=gA+T;
z;^32e)yl~g!ArNVQ4uuj<MSH-dQ>4fc+(L90dM&Di+k*!(4XH$tV;Ymb-r?qfz@5>
zfow)(&zO^awxJgz!r8|0$Q;t0k>{D~#m|1{_ZWPg;qP=FK{yJ|xv8L#88PsZmMLCo
zj{6<RXSM0&=8rWeyyeuxvQGTEYU`Okb@|cS3i%?w=P4<bIQ{ia)Jkbaxc2CV3q|vq
zJWrSS3xDW(Q=vQKG5b-cpr*foQ5jYEe%q6;Z?7}f?$oV1J7p*mqR{)|ZCa*zxZS~A
z$BSdGBHyKH!y8^<7jp9>jGS8~XcdV3RegQCh3dQB>>uSV&yl&Db!W!R)6+Ad+EXz6
z!v0*EHMwcm&WD!axmR8MxMC`M;@gI~Me0+xy_Y`mi8HTQW<@dIYaY&t103=%TWz~u
z-mh^m`cxormBmM)OyBa!3e!$De3*YjSX9)c<G=y3KNr;>{JF94;*XldnI|gu>Kofe
zetb@!s+8$TbYkU-ENFXl;Ck|?P*Y05q{Y4iSMjg2G<}?<tSlzBEGxd}$Frz@4I`rr
zm!WS~?QgFwx6Cp!kE|@5n;Fmx`}pyrhmldMKC2LEs0UVapTC)Th7|umH?v<v|K;<p
zjNO*5R1O|Vt0ew@ou~w6wK9L-3(qp9)rUJ9`!ahzF%7#MGU>Z_$^UvbfI8V_C7ade
zW*K1dk#TD+l`DSWTz#DnmWYny5S0;^lw{P?p$Es{g-<WyaLIj~?rE$u8r*O}=OUdQ
ztj`wFxQwJ%6t8fRoytv5I6PyxHa+DKoo$j29zP1(AtclhePzW>UoD+|UU2&QtqR1~
z<hj@>Do#%o&bj}#?$19C2JrE6COtDf=frAtHZSWa2@ut8G8!(o^-8a6NT=1vjVh+c
zs)mf6i(10xax!!JbJXlhn$G3I(Rzb)I^1=}<PLhypBKIqHQJX6<5VGb`Atqv+SvAF
z(rn6tMPGfntm{29+K_W}Zg!^QlX&GP8@Qj(t!>`s);T|(A|r4<lNGS%oA0aH$(|0R
zN1wdLiWYFZbL&ac8PRVZCZ1$+w5Q=zSny|Fs~4{qry>D!YV-=T&MXZk&YRC@UtSfX
zm&Z2mt}qAp?&maGlS_wRIvs~ROId<T^U<V#|Bf@>6A30W@pVp?78WusHYfq68@y+9
z1cikC_m8>u{pd^idbU-5P3(At!I7SC;a!QJ)fMtJ3uSZTYbzbarf!~SbEi;V-1Ny>
zLY<qaG%w?j8{C^PrC(7-lN)IIRWST_PR>e&Igg!sX-~AKXtss&2L1gW53klgl=)az
zM$)gQzDO^h-0y*^Y4jVb1m9~LSaaRms&-Q_%463WVg1@4eV;-lgbZeDLJDeQLbY{F
zO!%=KCP%{eh#~7NY{V1A<mAX80n?vxM_@^JblbJI6^TU}ot%x&JsIJegT-r2ddFsS
zO-CnO4EUxHAT1)6^a(q5dbFL3@k^t7vRb8J!ZKFvNW-<Wc(}Q9bPQL|hFeDlND9<*
zZ@%~hS1>S6HB}0**zpucwpHuH>@aM&JeWiJ`<<hGh2qTX&J8*J%;wKL#&3(|$a2w)
z^66ME61QC=R<oVrc9MVm@wnsBpBKAO4}1u=g>&A67?@6TZgtdAOyu4-0{<l^Ah3cu
z{-t-eaCS5$b#8VF6%I;@dq&}>zkj$Z<}&!jG^A~N1n+2ry`q-7a(Um2w<|~#Eyf-3
zs)mU8H5j`KixiB1do}*;)+W=sA-S=}(;ed-0RhOfpOse|q85vUbLkxuRG28`tE;uo
zZ7}in^cYPrv1aYZo?A=>>l^Rvfw6t!b6_f|htAn1r|O{)&77X>NpW_cGjeQoY$)Co
zAh$9lZ}{+7`jr(j+ep>psC~ddMtt&l-n5A~(_-RvPUB6xiWN9ZvIA}_<+6U`s+W{W
zyuY;Cc|`HiWSIxGy_;vFu;_;RyKtb+@kToL<0~!Ix0}4}`KEjSo3oA1Xr{yC^n<t8
zRsYD0lWRa)ecXLu9%WF&e4#CeRW?0XLraT`^R7{~tZ7{st#kWYe}&m`tA*7#Utvk^
zmGZ1JWx~oQU*^R-$0b>R*G#?5D=SIG!FV9!XtBYm@l+D^g{a}HKa&e*C)bIeJ@VW7
zU7Nk8Xzj_Vv)%lcmr86YB9+M85dU22QH3X+_SxF}!EmeV%Yub(nUw`2e-JXoe^Tw~
zAA3zuYLBJRuctUl52u+FdL<Rq^K;rYpMMtA>tRt}H<ME4cFV59CbQ{mlf99V5xgq$
zX|po;(H;%8;`+}8F@j4S3lhCV5~*)q%9j`3S{k?7(^&cN1h?_plE<~4XUs>)TI38*
z9-?Q9oHe=o4fTajfXqBwj{6}YCD{3hRxea~@H6xflZv)={3vUhW`cr(nsmDKE8b4^
zn9Ru-%%WU0s14PGALm`Q^@#8J&rg+b<DbH$M1cfE?xEk;eEj&afPer_-fCrD#}m_C
z$_f@4{oVZGp^W|gH$qIjq(us+hkM76M65;rXPY<lo+tH8X&}kB3`N#XXss2wjcOlw
z!07;1*qbG@B(ICB;};eXC>Spm9qXPjP)%CL=ta2^AzT@yP)MVlmkzOIW^vYMB;P*X
ztI}T0gH_mRQjn+F!zFWjhgMVrkLPNCC3EA`{8u~f)F7At$A{1O&4omAU*8AP4rj;G
zkpahOO`Z0a-YTH2RyH_0HK2^x_te4HH?TsZ*&ql@<;%J0Th##$zc8De?ZKiZd^*Oi
zW=?ZDg_CvKn^u>7{HV`cf+BR})inc~>@5b=uYXzf4O#zf0?(xWcp7%l+S(c`o-%Z)
zt1qj)f5;0TF-2NhX;U~-qnbq3bsB3YMG{{_&3b}t%uQF$eX@}<`SKiD;d_5xgFDOC
zjVcxIF?Xg}XIV`Qc+a_KWqqE$p5R;m$nMd_t-9U)+g>D(@#gQ-)6+{>=Ixlte_pyK
z=l8>PjM0N}{I~Y!zdx?9BI54Pg=i*K=E6MrOq7Oa$_lZ<0^dw@B-#*hPG4Crd9JR2
zo|jK@ygYydP3LY_$0(Qh%v-S3xFaVrCZ&<YK>{z}Wpf306tMak$ee(Zd{&bhb%_!d
z4Rx+oTASo}vFy#&W$CU#?%nVSR_Xq2Pm`0A>*PKw%=}RA!0LQT{&O~~a7MU7VQ%_(
zP(u&bWVrSE!Q|P=u0*8$8KH$)zi)COYg<mIJ*@sH%y`&)qhf?N|1}OlgmAm}+)RZ2
zGdlm8WsmNA8r$A$PTf{-xih1qiZ@RFJ(9_|JW{uD!Pb}aNbbzt*4&d)$VWVn-0+7@
zoYi9<IbpU1u4AuzqzWh0NVv!yfVUIXHA3p#WY26V@+^O@5tBx*E4(}lG)Bx|c4okv
zUo>xUf52Fs{e2Vj&Xio>RBkT|gO5tn?^{hE$KBDS^;tHsjBYwTK9q_q-q&{zJV%GB
z$>i}9T3W@Q9*U=DA4|#Z41G0FFm+hZB1Nmq!70SZsWjNUBD^U{VdUj+o+Lma2k+HT
zE7vb@GB7qwmPcsY@xhDM?5+MZWm_=7DM^FK-REocO_+XuenWk>-nr2d_tPqStdGmB
zDR%LTb=i=!Bcnw3A5**Q2vuzG$7xE)Wa4mUOT9-9pfIshZ~lT~u*>XliwCp3$x~Qa
zVXU?@%r;V3VYF6r5zR)duA!mCdzRttWU>3xFukmUtd>(QeNn7{fD=5GHva_$=EKT&
z2DbTiea-qdJ@0vJdtdY+O<cyE*^Anzsez?1{^iO#1uu_hg=th|OylpR3N&8mH#-z_
z>73c*A=!K`W*jx;Lq890fLWx5)1wV_l&qcZ`R=*zQDxI|sg^$v`fpedB*?J0qQTd|
zzgY$cEXSy<dxdQ83#*CC%S6sOibd76Ui_?<ByzYZ7(hV&>q|@c9(abG9{N^1gm2HT
zyLwCiBZDbs_wC)~C3UgAOt-Mr0ZNZdPII2;yPkZwPizg6y{{zMn-lmV?1LLHM;s9B
zfBE^Sb*61(mh+FA*d&pIqjBn<@h2rRrrpL^1+07*ctCy6x}2<>>0x$aVu#9?U4X&C
z7)#n(QlkQ3%*CV##y;Ob&2mst5xFjbVUjX6wYBRlY&wuzNue@If7P2-W(s&A$zKV1
zeI7D6I}|AI$A>y-;ewg;Z4Ytqr^pkyFw3RVIgSI<9r|`l^!@o~5o<`9(K2tMu*9Au
zo-ro}3g>1CBx;CKSIoJ;MSJZLlKti((X_)mN?rk>!+|Y-x?+2<V5EzHNKV(|-Z7*=
z`hI@|`0nX{)se>8C!~|So8Ojasb|GO#c<$EO~Y3>sEzbc{R-uY>`KpMz%b9ubf?KF
zCbg>zvf{Mg<KeT6f$8j-9q;JC^7Yh8E~|4MSqvB=Nrb{;M$O5s*z?851*K{lGa7H6
z9m^^#-gte(@%y)mgZ{tF_;FStIm;5RZoN@+)8<qG{TUjtL7Md(@`uD~ua;MK5zP&#
zx$Y$q91JKON>dX}&Gh$P$QPN2XA?00X&mQzU0Z-+dNd$anVJ&BF&HpV9}LvWSnH*l
z7ITj}b+*4e|GBxflVG7DwkeMuo$~A34T#0L#jfP2ZAY2OtUbaQJa=V;Y*zWC%#=qb
zb7Hz9Kp~QVRKp$XC9QNDB7H@kCnS{FBEN1bNXB`0q9yC53KSNvF*svgiJa$gU0q@V
zgGs8Xv1gHP-TE{s35g7udSnTf=|(z{jQtVmNVw+U44mWDEy{pZr#mVK@U_M|%62@t
zceHz?gE$}kRsv`FSIC(c_li1X8_oiT7#KO74P!KDt)SaS#6OcS?gpSE1whAj=S|lY
zT*DIDy&Y9S)U@;*2P;jF<Xf#eBkxH8m{|Ht+x*6pSC*$OQ<3O7M{Paz_F8e(qXPyr
zy$??NZ$GCdAt6D`F?ooIm<`jbuBxi)Ie1K4N2g?N%6m?f=WCuMkJXEPE%3}q1vhhY
zki`}!q!ct;P;2_1KY#9fozHEX6P7U}GymI7p>LoJgd06#%bk#gx&XfU=DW$iYeeQ*
zl$RSYj@)R+-DM1>9l-3fF&jz7tgU%JF*zqEr_LjfK&huEM}8>937cJ&LH=@$gFn)5
z*A#ZACN^a#YlGT!#DK@Ml8nTD?>Uxt!=yg{pC|Xq!65Cr<DNM+Ca?2Uj)Peg+j=p>
z9_+FErcXQiaMzX!c~(oWlbIP^Uvx!=Wd5Vd9^vEiYp#0uDLrxDkRwoBqWd>IFxq;4
z+kCy5%N9`+pUh>fyb%R6b3BXYEm@uOWDiPtcHKr!s~ui@2jp{ULBM_*45uSGxBn&(
z5Ct1#qU4mBB0JYGHs(Xr5px^q8V5wM^7AwG0KBJAlexw=wRp`?L*cAMr1$K^I1UOg
zpsX7>#G<4ULbUcJ(HUhn9}HBPplj7BCWVq&;z;<(3Hw$s)qktQUsePOF(+~OXFl8^
zzIgh}5(VF^b}v~GRFr(zh59BMOQ>rKXZmbAkfHcnrsPZdBQI(MI82f|3kwUj{{mCA
z>FLo3ZlK<F!1v!h4YSd|ub-SZ{IOTy(t&Hg-2h~nJZcB1sZ-2#_<Qddd{+k!nCM~8
z?LxKEJgFAlm(MDo=9A5s^Pom0N#S-LdvIl^rS0m6M|>df?i7w9BNY#*tfZv$8=u@B
zf0XvGkVBaQ!%m&*&vmwNFYb~(oP@hd&gqVSAnR;n2nbKiq82vx+?OoP3i*+$@u<0p
zC<GpkZ?N7Qi<Yf9gQ8CPrJ&n^s0M>4E<2abaNjz_+;dUuW<YAAr;@E3YJ|PCkHZr-
zhWfldXL?Z%41qB^2w%Mu>3)1df~?hCS4_Zr>QwJ4PENpsHjW!r+@9eui%)I+Kz2Z?
z<-&m*Li61=c`l;tZ9lURq*BB5JTGMXq%2R&n3-Ti@pEzlO82ewo@FW}`9+q|?MeKW
z&Gm$x2fyHs&Z^M?&t^2=*oSI^!&cGxEqsrisgvVqCb8ZjWGJZXgtJ;|zK(F*H%4?>
zCYtvr@wUFYqgs7f>B4tf^YZ-)=2N0=R}IehSZD~eKtn@=lizFnlpzX6)cH77h}=r=
z;$7c0NQUew22$=R<TZGO|6O_|l?Pi(&_d3HgI|U5;7`?~_+pd;{E0C)$&e!Z(t;(y
z@n@nJj&M;Z53a1GxIKdRqk5qbbj+CnvdYCFKXON-VURN>g+eL%#d!P|*Vze1Ok!eU
z$y}&tQC&mN<r9Xu;~{L$QY)VoKZGch$*lwZl<2iN6P;llKo%_I28$L9F%;&cJ3l>K
z#q2D<1xArXvtAS&c2)b96l*B+a`8_!mK-(`IVLa(4jQ~%)iN#kBJfG;K?0h`sm^l~
z!%k2-zu-R<%AxzxF7wD=R&M#*3qEVfzyHvfZ%lsrDE|6SdqZ7H?V=}VK~BI)9_!u}
zeGc)*w8&>3C+A&chZDo}Ey=$`|A|aG2JEkZ01Ct(Ea@uq+S*!0n7v}+WL{t;L)DOT
zZ{>v5M`bl&J?WJ~Mq9r0J%0LhEB`M)KI8Pqm=tOmp%A;m<n0pQv13QtY*Imi@!aB(
z^$QmN_F*y$pg9n5av=t;u0LwsmRsF`6>@er(j;8wKZ(fxr*Y+{Sf>yCO$+c}G4Id4
zVnw3Ybyi04lX_Ba=-nzY@7d{b;=>3=z5yt1YV|>$pd2~!oIaPgA(TuUU#qbVL6ta~
zS8x+FYbL30frfb{=L4Vwd^<2USw$oD9*C87oSX=98ag^U-)>Tt#$eqSuh@VW306Wc
z3ki88;PYnP?sLaZXlsMzxV&hYKuB2-UW^nH61uhVz%@lh#nY!x!*{%R$F<LHIcP~Z
z(VPsMDDKy?j@`8nz=n+UG>8_AWuz3_<o2yWcqKFe&>bhjTh?x2YYkQ(iTc%rB+%sj
zz!|>_D%?O|He+dNYrp?+cT-1idZmb#D|t%Fq6Tx3G)a6n%8tpd7=x?1?3X>YqJD8<
zPIw^k+4K`6TB*a<JiM?Oxv`zQyStn4Gn|}aR*f$nh?^fh5+NfI3DAd7lpvnBuK+CA
zXpxX~*l;`fzP(>ZZun$P9KLzr`U*c3e(wUjr#pHJzyQBPeRCQI)^4O)xujGuDzCn;
z6-Zm3v8xlf@*Cw+?RmeO9Z11~1q<t(IPnfO<ze0B_`V)iN|rpranhu$&;6i~xt?1O
zXQo&I9#oSz7L=tad3i17nv;3Kg_XJS>I?HmM@Kn1Q%}CWJPz1v1L1i$ID8Tl17?aH
z3?NBHG7$Q4Af3FjeJ?eUQ;UFELS1qjCqi<7hC=5wC>^2k(>`q<L^YyQ00Z8{|Bi>u
zJ9Yur6?Odeg|=$&&Y|nS$e5vgh!wf?j%+d_L0nl^FnCd$6q?}tHgH(JzJy~c;d3WM
zcxbDRrsk@S_kOnk@V>{>vgscJhV0Oa!@>>Tb%OAq1dI$kf)Di^S(Ee%nS@%iL<diS
zFGg_G>2%Z`Sxu0Gh}j{<FCir>F+x4Prv5RJ+}<>&xzO<&>K<=Q?sR=7F6B$nB~DJ_
zu8}wj*(p)3Ru894V1b&ZXDD$!Kqe)Zm)FFq(jshDxGiIBJGK+wR@&(#KXL68jAF@h
z?)$>FufATh&ICSQ9;}mW*mSDM9YlPVd;7QITj|?3MvGcVGgL)F910eA9xRh~=HcNP
zwcQ(4J)H0ymw6*jp{5<L5R>`1qv7dPI%`aTXbnu?`TCAGENakhuwQNJ=r}49$MzA?
z4<;3hcsPl5Acm1FJ8$l;GT#kf-=wUzoI0(SZ0~%$&U}6w;+O(CZGiR99f_2aCXfrt
zzqSVwmf9^B-Y)0lOcE&~G9${JG^+Uh3^-AegCLVLJ%T(ATz1;QuvO}EV!-RJuRMXG
zjzT%+;<@#UpYQm1i2@(VKspd8ZV+o}gF&p5bGdMvPhQ3!$ay2mNL3>N@|nG_N8)^>
z1Ri_O&5}y_!Jnu0Bdn0$Y>TIgFJa4rij@8Sb#dhXLa6%pCH}8v1^?5RdQ`}9UR+#q
zvj4mVi|^<BrYnfpyY|Ww4iU%oltmgOEU*UJ6%Z!bVc~wroMlTz^u8;Hb$`8hw9H{m
z^c{HVz;ZDVw^<EbgH9SEAwAXeuD2y8ChkQ30|Yv%QW*&ma`0`p;hlRInEliatkhX}
zY#qc4P5i0cJUpACDiOT99yqMt77XUq%D?)ag4eGuxddzN?&(oATD)4#)z$Tcj*haT
zBKQl!LcQafx0(b1cCc3jI76^z^5T2kUmC|%Bn1+GTs2lNTDDphQ9n)kebJ=_x%tTh
zO2k?Ga}<OBv_$K_O0NE;y2pP%#lP+0KPze3`TT>~iArxan29W%gnvR!95z}>P7oq-
zlaEwXWeJy#Atz98cGhzOnK}8hG@<fn_27q10q>ZV3j8D^{9Ba1NnJlEqL;QgxnQz;
zPgnGnZ>Tv%9HrTxQmPhQ&<1=;h7cNH(r>4wr5z7pXU4}?dy0JV1XN@Sag5#TMQaIU
z8&~!-@`qBn1__!6_;;WfNf}#q__trilfvW<K%N|3Fux$2Q<Z5G19P(jNEEHxq`Xk0
z0N{3i>Dg7Tf7J3g3iAa^R_r__LAk1_p>bCj)kap%@;hn4GkTzmpxs@my};6Zhf=gI
zTqRtUhH=}B-76$Ao=7Fxxi%4M!Uws%Od`A-d`}pQXlnc;oZGUMY1dDHb_(lW*maM%
z+L_7Ghgth550Ua85208h9NmlsjMB6r=Fy`^w4O0k1Nid|^3(umx866Vo>nzlLDs5B
zrdse?atrV))I)1^4DFQm&8~ET3;}r}Ai@|BJ0(*-ZSio#L_*~2d(O)0HnQMgQX~<b
zGIXHIz#FD|;9pVIo~o^{KihtoXeV+%m+!Ovx&e0r_uJHxEVwCPO0j4P@)0D7dgc)s
z?>);4_dpN1l2D7NfCjHC+$N<&Yo8ytM11Si8d2lk1sgr}%cM<)Cp-cQ1SnNuFT-Qf
z;^I_DEiBAvu|9Y1_sDsJcZ164fu2$A_s$0+5v3)@#l<PJ*xUW&3Cao`6HmunRz462
zB7RlI@=rt0Yj|CYz3Z!WqF#N_R}N)-cMLj8mLxjm2lKCv)Z}k*{Y2D*D_NVutkP6k
zpbm%?VSjn_m)rk(yy0(maR1+_DA}At|L5yam$F*c6PDe<DxCAo1KyYl^psFAF(?9J
zx3Qt5KlC6V3V{YMYN~}HAYgi(*U8s1Is0kd3{ef<J1P@bS4qwR0bosU31@D*_|xNf
zYQKJVj&RO|ZaiBa%7rr2AYlqHM&ZF%Je-6vYy|T9I5jo3icX$`GD5Bd<gMMjjHo*k
zrfk5SgRt9u{y0d9gAfG}B8ii82(rBQL>#yOrvs}p=aTyp0W>v}aP3(+1J@O%$)N-F
zHsr^KNufJm2H74;rQ==p>}yRXUS5(%lw6sHMn)0Br0-w|H0`_X&%#&I>2u9}MEGF^
z7d`9n=%*{}N?*!HT;b#LsJRaQIbUDj11qGT)Kx+ilt#~XV64g6K)%_Bn($@b04Ve{
zI()*}GD0mYDq2CKoYV|h#>y4TE&3lzw4jX$*9{^8MPzz_?^aSIFmrSK3^0~7qUI|6
z$HftZdQvzFROAp;CMC6Tny2BihX`Q{kJk|I$@~DGpTMnGMc8FvbY*we*j6J4JYC5_
z9_!UiMr8oe8cMc%FnbFKA7J^Ckn)hg80Ha|^B>Pjy_|(Y6KqXf<JmCl*^GO`!vsfa
zc;L+<bu1Ad39vC~?X`wKkN)XJ{I7XZyZ2j)=8qgF)EnuzAeegdZ?;$@Q&1SdT~O|u
z-e;pd*tRXGQMUm>Qj=_Y@>Y@<NU9U)dbCn7xIAvMYhFsd-{pWW`MAlLxVY^C0t6U%
zoW#E3poUIxC4+gj<s{Nw(gC8VXfD+n;dqz;8BnR4u(3!m2Sl9j>kBLcJQW)_&;WLU
zP=pr=dI6@F?Wcd^-n|Xsag%`Q>&uG(T^=^%yx2>m@Bq}2!AEm6Lsk9_gwzhl^{u-A
z!APc@s$c)~9Jyi2p%W>;xP&PWNY2%*C;#@z5OOV=!d{3Qv|#~}){|HF>bqUMn?VE>
ze$ozMqQPr8hj0NUS6AA4d!+A#D@lI!?Pjkz7|uSGp9hJ5yZlm@ESgQOmD|-!D=d;x
za~oPfTJQa|Wa{z5RHXy&;{O;|_ny?Wf+RCm<mbU%FVFpY3b8&>OzAD?KtOh|E`oY<
zadBBE8)$2<0e0#O^o|JT8t&~PH%Ordy2&ZM?IsYbk8|yF4f!TEsz~AO(kP+@Lj{#z
z6}FJPF?u;p>vax(<1V$I+j-5{?ydy+4J9Y}%O;mFV0^`3P}h-`3DAB!+FThC5+Wb!
zgQ1bh*4@I6G$Y%Uesy60_Fl5#!d@aCE^hpJIgP*gWF;qy%=Wd<3PVX8I%74`RZTdf
z=XiCbpM4o>8crlpH|xF1r3V|lNBapk<U&FtHa~woywvM%26Q%?3<~hge+3AYjt}}c
zqjRHa7%e%vUFAP5$s6BflUBO5$sUOGBPq5G7R_yUDUt;eV&w{Zy4v>h#^#>kcq3E?
z36s`=|K(L2Ty8=tL19EPthx5Ki0e&S4bB_pS{|03`LO@;uNyxEZ!KD||Cc`&?q0g+
z@!gl4$2d9pRF(Ga+X?MPtUjONABjpzt4;ZveX0dy176NYkJp;lX&)c=8XP)wXxGEi
zPksFN#SX0rY$+`t=p3Ew`PAajKe0l6k2tfy+=~?(VjMrphAk<FYL52^dVsIr<<#34
zZufq@G!zc$SftLx^ooy2Z9?{4SsZ&jE^%-ilKhwTo7lUt`$_1MwxrDF9T5=`^88s@
zSqx~<-DxE{33d7b>`kw_V^N^UUNVZMa{0iQd@QWx%zgHH?>tbxU;wV!xaS%By(ic2
ztY-h>*tSb-?jicvd^U)*_tC<i9K`;*X|;NPneOKo9UYU#hC&SORhB=C%g@Zrgt|1k
z?R1fT^)vM-h|Zqi?@I|mLj>U6@{6xNKe0n4&>};hp|Y(w*udt8xkA0GtsyP&OpKpo
ze8=X&u{<c5KLOa*9T4+byc@)usqFi}Evnj6jd;W;Aj>~`dky<K8b*t9q0PE@@nWs}
zZ(R~WhqoYYR1L)a#OCMcSFCz{a|XEUr-$Z|dgO~7r-w?+5dfdF*1gz|r0Kkk&C$S}
z`Y%7+(oJLnV#_96Zrf?f@^j;ZU-e#HIF(<bD=aLW5Ov;?&!yz{`t&#7T3TBpK*&pq
z7Eaq&GTKIyonyg<*2jzxG5#4C+9=-wH#Jn^>R<Z$`zszR-RhR(OnhLut165nf9@N5
z^6KmBBa3KlZIS)`{W9tcg*ugfiO#|;b4{hwLZ|C=u?^sMnVDnm$eSIY(dY!Z<VplA
zhG?a;JQ2^{?0P9j_j?%xUT=PRemz)H;&_OP+qjs$!Mckam*tiASb7pNRwa<f=G8{1
zCavX5*q`2Z*l2-mAn``>G(<}EZYk1SM%jC+o6jZ0*qMd1fPG+Zzge977i(MFfu_vG
zKQTm_4y!14Bqw*kbHKf4&riRor>|X57XPEa-^*YM$hsg&Pzf0tSt**ooP15u%{sZk
z%#4iK^mK<HbWGV8Qityb)Vlo)y4SQ=Tew3*Lx)A@hDAX(8`RXEVA-)Re^Y}g>*75U
z!ylWFV0m?Fx0IAQjN~JU&`_MizNi^|><5niiYv^%RhT}I6vZyXe9T^KWxKY2Fj$Wp
z*XVKD3FmEX)dOGRZg7N>G}#~D{lqx`3M-?*xC~m_a7dZuvGYF~QcOrO14fUKtfVV$
z7r2|Y4eUjXJ~gWUB_BP3X~<g`;9D!8k@(!&I`g!|{L_QGB#^I{xp>YCMn6`+j{P*t
z6Lf;ly~0QAK@8^qa9AaH^b-oO(8IBT?Q^rNY{+Qv1rh%K{vO{}MI8#<VE<ubz8Jf%
z*?S<~^-BbLHmI{h0W1#>G<AJ%hlAa9vdBlOFYChBH`7doIS0axZdM^;qa%>R1F%XS
zJ@oU^ah<BW310&5pc1HZZz~<4%Tu*QEzoObl0MZw=T+I7izIC#U~W7>KY+a`RWB^~
zT)c;FnT%Me1KJKcY<6|Zn<3l&qp4u{qmZTi&l`J-8_P%b>7J?VzahJ3Cacl(mKh%#
zJYjFU)5VJ;R#H+@DIPvg3vXAowHf#P+*@vK*m^DwQDh&2ifil?(W#ibBUEJY{Y-#P
zVNZ`f`16tZREfgu&|#Lzq+eYybq#qSAFc$~FEb<06k5|g(LC`Tq={jF0b~O1q*?PH
zukVjeJkoVgSwfZ@B7-oLpJpI`9s;8Gnq@|rqd}??k*F@cU94ooJ<@zu-@#tA-HE|%
zE;V32gh*CYIlL^Z#a@-jA?W?ypdJ{|77qAnu-}S@8Tg_W*xA`hj%hZGQ{1NI6}_Jo
z$;uNXYX7HdVZp({#^=k~Z-*r$bWgRh3LrA!bww}hFxat9*xr#0{qh&5-ljF34Ko7^
zoA2sI-tTiQQ`;tt7s`;#Rwo0?UbbP^9!vSFkKQ}b6C~@h7IO0R{MU<lYOPGz7nyzB
z={!hfeiHwiA#d{EV;Vcf4-QIx3cP}M^5~ww-c9Ev7CLzPn{a4jbaDvU(Uk6qX3P4&
zA5mtJJCa|P)c^v$P^&k39J`wezFy<8_y;qHz=~Fmp~lzFnFFfmo=NI~hJW}9S%?P<
z<y=31j4C)Dx09*MzPff|=OyRH7pLTD=(#igF-zhXjcvOBad*y8JNGtuL3)6%hODqY
zeFlq{_4j>3TnO;^zDb@2P0r+D)?9s7L0vjgx%`KZVX`~JaO}6JkX>h>;{c0o)LEb~
zSsh@HR?safNOJEX>3Q{!UyI{mh8ALZetyVS)}z;H7UxVHeQzJ&=^Q5LA?CQXPayeW
zKKHk4reR6`zG!tdJnC*Z>U6AG*-#08)aHj&PdCC+!hle5bwb(R^N$AP`Bq`(vjUy)
zlwtMXXDs<AJ}3`EDa9aSE?Ymg->G`xMqkk;MRLW7l)1^2mx%NTaix%%g;->SLTYY~
zLas|MfgQGev>FmFv6ds;tw&EFn$<ESkFpQf3*)YgE!^x4=ra0$hxT9d*uS{C@~6yT
z>6V}E<f{+=#0R$B|Jhdlzt0W+=X}9x3+}gn(*pbp*CV6W-ADf+6h!@ygA;z7gF1c^
zPV631K{L3_hamhi+r6gT0@$JanC5a$7Y15n)jhj4Z6~HxMf2}NL@X`U?%@EHb{N`M
zrOV699UuHoHadEYTVPOoN6>Aw^-uMttHVr!USC=A3^f}sFE6p#t?H5CXcm+ufEtM|
zZUJlue{9wA)Wrih>JFr(4Q+z!cbz#D8WyG*ccLcCww-*R$y9Sg;AWH&sz3}Qp0SIY
z=YH3I$rDOP`YEUqUuOYS!Gv+1ZE+T-^MA=}ZEcmOc}|Tb{WS;4NH<>CM)*&aG+<ul
zkdi%T{*;AeRR3<9mMK7P5~72^@3%~*ztLnm(K`OdzM)$lI=!@><lK5Is%}We%a>=W
zqW2*|(|!(oWR!2-xs#yKS^0MyjaAD`ypm{OYc-R!d-g0(G(={=`epBxZphnG6>^hG
zSp(NrklUJoUkQSI{!Gmil_p3b+Uo7_mP+KN!4r-9mhj%EdQR5bAJH|}+QBu~rpL(0
z%sh)S3>Q6jj64vH^@bEvM4D|>v3z$XGK-wHSDOdt=f?u$YxJ*fYRYadk+k}fq@6&X
z=xjy!LueD};!zVv@|EXDuf6E(%m9m@z*@KWihi4kW72XGTL{#W6TyGZ5Z5S&6GD<r
zk*K+IDN8@86Jpp>G6W#?bV(<?$ncK*{Vo`Wu#=UFi-U<4%2>CmUIn1>dJxNjNT;`u
z&d><K%Un#`)m>@;9a3nOUVVLij?$u4<Jc`D?-Zj+zp8l_aWOG5jW)=U3hN4{UVWWE
zz+=aP{?8GpaaK6GEzeu%XRrd%6xV3aAEw~#g$y|F>FNEP@pbY11-cA9^WVGFu%?bv
z#$A((N46?37Wkd>>|2+hO>MAKEon7!YTAOuvVb}D$g^Yq-js6>WL*;KEGnREBkF4+
z=07Uix7&{G>du{8ZntEh#?BeXVFK{c#(s8~T%NMA|BENQtv&8*i^?p^drpezv4V34
z7OgeBBb?c2YVF5HE2=DU3`COjlb(`f^JfmU`!Y<G$nS|Z)-8bTfnR7#yyO1qA$vCc
z@2aE!IUev|==J`+h(7!O8?J%yC|~q$l;dh@IeYvpe|Wdg=4)O)9D96#(`RvgZS9Gy
zfvd^3du@jus8zo84gMPklOO*bHb@L^pYD{>OFN^IUqa!oLMa+*o!RtMgwY27++%Ni
za)$Jr=5_E6JTJ?pH8*$L8%Gam?Fh;-qOG)B-zA@vl;oISkaVM>qN0wf{l!QL!9nlk
zISo?GYd$?v3TPJYvC0PxLn*)UQ}aX^#whiTDwZYkqbuzG1e4J~Z^38&=I&aPtyOAT
zTaB_D7WgHlr>7@3WJy#vH|I2$EX_+GkR+1UWY#)L&wV#zo`&yQM}2~Rbag$ajV2`|
zB#1B;)pK~IEaKL1c6Lr}$U=BX97~-QVLPV(jHvuK-0FX4j{n|9B#{3J9Q;2vW&LjX
zy-DQ}vQh+RC+(`pfux&&aWgM*c>F;mv+RTbZ6E-w%6Fgm;@S1+`fy!}mjp>0qjJ$t
z?0|xv0kWwK-9CLIeY7n9RX+>nqi=Us{|N+#WG6tYDoUthsZg*A6TFHv6yIJaCP0LI
z7=07&7Qn`~j)^Z{<wE-40MXIWR_Be0IO?%UNy2b%WYCRs0W$)q6az5M$6KNWx&s>Q
z6v5*0#`(4=<+XH-f;LY;$Tu5YG6g7!$OTpGL6D`?HL(+3H`N0R+dx2_1$d|u2)5Yc
z;S@kWK9#`snSN(WYZ3A;pSIfHFFAuPQVGQ1f~VQpt`DcI&_k~hSi<k^kyOr3s;k1t
z(g~Ah*HROK{xs4uuM!9>33o0mwNS7W3|Tl5)t$`LRY&)1g!<Fq%K4sW$Kz_<7a}k2
zqe<~tztk|QkcWHC316$LfcZo(Y#K2CDii-a=Mi)`)}|qIGv-bBx|jPn9>csJqZC`q
z$GN%g83ES5MYN`-hu=qwUdX8~X$7{)wYZIBZ`qf!^7B2fmL!*vZo$adofM1n=-`i|
zW!Pc5!9>+{>WL6|R$J8nj=2TaXc%WZUVVN2?n(DP(mx6QrnYZ-Z^vX<;Y65eZmS!=
zi-ErJ+%E0aqPaOaZkak`7N>x?9w>P1@?qn3Jd95$?aV#3VbcBvG`F?|sCFa}y?pjR
zlu_-w1yHJvA=O&}%1C9HOapO_LhIWWSND_?vz=0fdi|%7_EuuHN*=f7{`CZz^moqN
zRNCWQQaIV2;28N!v}AL0GlAYVlX&9hB}v)V3fQ9tfaK;<j4Dby=uDZHD6}K!@U`F8
z2W}?Otg|A*fN>+*c{#vw#?(Z-g)i+y`#AqBaDTVY5jm>vU$3qW+`LKI-_X*5Z9*eY
zk$D0JIf{i2{0`2@sFMoP!a48^0EhqOO)y1tI~)!q)3V&lI&Q5I{)k~+QJY=cr`oc#
z&DmI9moN&#d*9LDdL;IEDP*jncsx18Ih8=t^-Q*kOmZS~qhQu4%qMK?%+LT_TIa^0
zA>=*&mfs#S6A@-A;TXtZFDyZQ*9Nju5a2d+NuM<8RIB$nNdNnPzN^*iwu1~fnUQOz
z>SrF8K>BboN+=suheLyrGw>zjQqn2S0obw$a`Kv%7Q+F~p9kpaqy8^OJT0$PV;q)<
zRy}Wdy=?am=fU}YA9(W;ZR@|UXuGC|jt=}e>AC5@A38zG`5Gds2QWi8gK`Y+8g8oe
zl2l0p_sV#;N<ERONXcLi$pHGK5*Xmwd%6kR-y_Gl*P8UCxPG~`ByclnL4%1MXWXFF
zw_qFGy`);v9L<D3%&1tkZ@|LF#<=hFqBgDCmX^GObFWVs>BODbg-J${0aGJCG)vA?
zEEw2@AK3+c;1-dTy>)^2aZ9$Xv#1+ge(o2ziyzsU!XQa9mTMQSWP|yX{}L8@9_+?J
zNi=|g440~V?P8bh4X)fi%|JD+@#QGQj3S=Rdmce1Q^4ep1da@}7gl_x)E;zjaHy=b
zA;Of1XO|oeV)apx%d;6NN<zhdb^Q~n=!)f5hu_5jBqp4$7#W)eqP+dg*Ed%I@fq2J
zN2zm{J1H*(Byxl6_q(v~^?+3gG3^$x@Wn?IxMWnoG^#{rKKy>C?u$P_OP1xr9h0FP
zXsbV;ue{LZ7KB7{Xm-d3^6h}OKspYnnyRWQfli?57b1a5-@qWmwHLSIfEL@cnCs*U
z&=?aP!wFZ7PNj;!{JM(J7%B9W#r3>FV8oJGzwbSb%e&i8{&-eMXOb~-kU`ic&Rn9*
zn&7#ha0r|lC{$1(&IfRQMuq0Q#8BkAWL%Of^y(qGl?*B?8@FmFe00$ZdwiD-8?mOg
zVfaTl*dVlhHil8jK$s1fKqTbRPmlrhj~&I*tDU_X`0C2q=h?uq33!9~X37LrA{|{5
zXz4Q=NTrbI#lYl&O47DWhH<rZP!fZQHzA>u@Fki@rMJM@d%}tD!evM=*TfHX@6cN!
zIorq+p#{=-z;2$K6<~{r76vs$?DYFH7*2RJit1TYR~H1MmRW1;a*C`!nc7i~ITeA2
zV{06M%ao!UIE_pL0IWg~3pnSR>gv0gDQG_Yy_CHhXx9D?U^Ssb=a<n_%Z;NuoiNRV
ztj`3kaE4|DqL|>}fKxs|!4eD*N))qiDwj|PFS!LQc+qTwE`!abWJDNgDM6F23a$$0
zZV!RJ8R)}9!;>aj^Ac4FjLWtN>r6fDG=aQoY68(S_x-kb#UVr_W3LIi9ME@L85=Y|
zNdI_pkMOx<3I~w4xDz{m(6Vgb`|*UNc=lPU1cH<R$Cbcm!d)9ww5;b6`ma05ARU4Q
zy9LZYCWRh5V**gefOA!I{tM;)6aA#KFl&`SOmGu+h$2#y(jHN(dG{aNwih&^Rp8!c
zjHJ_zJ?#wgeshY+CQNfOVK$vKGQY9-+%cf+*=X&z2lsFmIHF1*oO6Tg4xdS)`soKv
z5)RJsyrpFVYY!zM>3G~3h+xXVa53SVz{qa2Z8C>Ns{{gDva=3Y@}gNrR@S}0r4=e7
z?H`Ru03!PeJg4d}ifp@7v~2m4++5iJx#2?uscJzo=h`8^8kFii5K(48Gt1=qQRsan
zaX^dO4oK%dTi&u;e6Ovgt!*V4I6<0Yn!wF;%daTnmc?KMakQ6`8JZK54TX^?5w~Jh
z32V!~1dboc8Qp^|D7qn933YjcZ<b|aT+C;fSAf?@OhVqLcFfPYznQF4IyjS&_YYni
zUFGuVLY;+#I(6a<X%eJ^f<C0ItQ>d-J--#i+z}qFW7{_*)OA}VX}$zlRu{Vdq&51{
zZ`FX&MH@$ITMVW49lTsHp{cVWd|?Kqc+k}XMj;oEn&~wcM^F523B9`<x>6V};r$UK
zgzi{mG&`{R$Sec$)beG*c}57#e@8S;%gwK@{3Y+$^R*@(V%P-((oD)u^LpBU$2_7U
zk}s~`eXfe;l}x65z4^<p`4T(!w#toE9mob?N=W478b{8PMl5I*8Q>wj%g8vdJDB3P
zJ0*WCw1@A-(W#!W+ho2R`B2lT>%2A1&6AmtG1#{D$@;8aa9T$&z>YX>+uKWf<SwmU
zI-)SgRLK5vd0F6Q^jDRGG9pl=8AcvCM*eoP6;S3w(t}F|U{c3lbJV+U@CltD(-R1D
zOnT2Na5%_(IWVp4eFLFEB$J;oL@WrY^d3S1v0hPZNtceHL%D>CF-Ja5z7>REfyCXA
zHe%8fjPyHYP#TV#fYcAg&CjCA9=*=gbjgF)9RmxSF3lIt_whhuqWFa`dzY0im<~eg
zZzm=ovb`yRCG02`kMr~8kuI?UH<P?O9UC1Ba+#b`v?k5=56p^y7oB@BHa2GH_9NCY
za?MFP>X3A_$$v*{o*QU6njBOb*^uCAyATqO^!O9`3ba7wA%)Xs3InOe$YfS`E#M#D
zOM1&&5T~<&LO9@bZc)Ke&m}8NCYkD-*Ko5<TfF-*=Gtyi@t5v=kR><vewi8eN}mib
z*j$Pb5e83_m@z@oF2SGy9PgC3vN)Dz{Y;2`MG4S>vl5I%f8Pk@=CQaF!w6_B+>^sD
zc(h({2xTn;ey`YLbBJ>5C`{hcKfMhnU@y|i0S|_(1N<EwV|>q$`FkzsG|EP6vwgju
z`4$x%eD=u&33%ARfVMQMGAwbPpOsldR$cb&yjoRrbMwH&Kbs4N8f&~q7ahACWRw-`
zpNkNydK3fbf<)+)o&~TVl8T@g+5>D{B?z=2%o+QGbSC$ME^EOFRtaR~G31-jq@Rwd
zcu%k&wyrDK3nMj~b4riM+cqFVksTsadouQL6@{)x>uq2|`x$EtrzkT#&BEA)BY|WD
zZGYRMn;J>l?)7vsj5K6o905B5i!KZ|Qi`z@Tl?S4;ps0Ci2(rQ_3~~P0a%A)3+P}*
zD~M4db_tQNz1}=rV?b<Pcfa44jUJR(!t!J4$3vVeIl+jF#|wsoQqEw=DAAX=yStMK
zg@*Q}Tad%SmBVtrh!Wlg4RchIBuF-$x%V<NbF1r&=qfU`ioDeoN|n#`^}$Fadellp
zc%3m%A;Q+9gXf#b&e-GN21fbjcNvk)o0y9n2DeCK1eW`Z2Vi<>9AI}U{BH$MNN8-~
zuVgl$D`?pE9wucvgM?NxC>X;f@8A@WL#ee3GdDKiFu7v97}5t)bHS5UFVicM=^(?F
zFbw$zSN~^{KH&bE;NaUvCZxQaRE@nac_~@;8((<6$X1$<J3`jwlsp0FFd3JMkZNMd
zFl-AAR`qV{QN^r8o53%yi9>WC`2%D>rDWhRnT&|ikE}Lz<PnD%9841H0mXI~rT`mW
ztX7&p%Xt`_yr8<=kRrk7FnxIs=8ve6zzLm<xUjI$Q7s{Nj`fA+X;k~4eQtXn1$(Q@
zvJ04=-TxAN{`p-Zp#;=;-rBkxNvsZB2t}9UWi5uqQO>PK3_*BBUQh8E^_BfAhpP3n
zlwwymMe%S2<OcskoI(JT-59=d7K$PXd^48XJa98fsR~A7Ma?jKf#j(KwKTLV<|0~~
z&#6QL%bo;*a7|7DaU#<_g|n7Kr`y7m#~^8W257q}ZJBmxk%rTwW_E%{JBJAicM+UB
zF?qs#4C9GNJs~eXmw`NT`rF#V509?%g+f;U6nO;V$}uv+dxK-G2Ju$u=w{U#7sc3s
zxWw1XD0|<AB3)>M%M?^0=W!arxZ>+|{(?`QMD9wA9ATLx8foY~eUhI)BRsVn84xKa
z)8J1E=&7W`alM$SV&HdJUO8g_%a$fWwrp_gdW5*}b!p)>GVl#t-N3{+9A6nx%rK(7
zy{?w{Aw`AZmMmq>qeOf3gPcB@e*v;7QK|l|rDSY4nH}+g5aYy=l-<r%+2uag3pab-
z@9YHh10f4m>^T{0$4Wtl0HgJa1(D=4dL86;k=s`?$rBv|4oDv95C*9N!L3~RtD0KM
zoURAhPWoH^*$Zn#3?HCwk|pvG%=@T8%)<_vVVvoaKsHH>@eUT{==oOvPR3bRmMr1D
zc#JT(kezJ<UPXX`vz3t%gqn>Se<#>>u@`+IWZ>c-D!ZVUJQ78f$1ztY*KT0qAa2KK
zo~ES(e2Xd3cDj$}K^T%TvT`|OZ)IR~A3_b9XI4n&AF%xabrxk{5X_S$JS7h&K^V)x
zJg>F=khw6Qmb9auy1v2w5K*RVCZWOp&98!aeJKnw`42;W?rkQ+ad+8&|B&UmlS1(;
z<%NkRt_9#Vuu~ihJa5T{Dz*&6`JtVZ3W<PLNS#$kec~NtPC6#kTUsF-b$~ZZsTne`
zN>xJ0ytf%uENe#;KgH)gDcoNeH=^<no@%W5%DQu4g<iiG;t!dx7Wf@<7(@Dc(%>E0
zM<6Q*kb?XNkTsKPZF4EHQliu%wg5NSZU%rXK@RFq`YIebT~Xjy7qSELQy1F?{>CeF
z@oME~P|}-KoSj)aDv=I~j#w3@*1nCGfx~117x|8%E^JK)kqHt_2R2_EZiomlZDsJa
zerjw38*~~7Hmb|D&?&C5^-kT&Xo4V990O+|LtOY?g`Yy1|A_p51bjyY@qxfFWTXlF
z@<ek(K`<Gl+CDeaZYc)6ZqFX#o9Y9Je%gErhsL;rVQFJi0dd<dWQm4wtAvWJzzEaL
zr5JjC7sHQC{VL~CigL)E_+*?(FPH3TqGBF#`$c72;oX=e4NL2t7>`d#j{m`2KzY&6
ziIq4hOezgBa&dDhN#Kd$2Kh(f+}a@J;=1+~PI$};qs^EJQrjq$;@{bynMAqQnmz-S
z5EVs_E+6I;Ty%2U>gpNM=F04(Bd&fTDId_ekzP_vLcc_9f~~R73&KYKjeIa86?i2C
zo#L!s1!%`JM$n>iOceAGTwlFl%t618Bnpdq{!mp3BqO8&b(FQvVM>-u83XUXi}E08
zP!3}6PsqMsoqY>)sbG7~L^HA&B<kad%!B;h5#gdpeTk!B@YRb{?C_=9IoJ-iHAJt#
zXm|B9un=}m{*}Xf50X|jl)RY09*P@e;QlKR_U@wphqd8zOG`MylME)@RiKUQE*Stx
z&{0&I<UDu`-;4T0Mrf08il>P0&{;w$YCaxUKbhptcJR7F0IZ0E|NkR7I?F+I`PC<E
T$@2nohbl@(6_fX$y!`(Fw98w}

literal 26057
zcmeIbXH=ExvMr2l>K2toMHB=S+em6uf=JL7L`6|la#9dbqDYizYpY1KRX{~VQA{Ms
zQ7{lxk|->45JZqgl*}T0vzFcG?0dd(zj1!-eeO5L-Hg!<4QsvYeV?bEs#&vURbM`+
zuDW0z-#iWujs<&mD<9(EnC;5JG1KJ7IrvRo$h|&%n`5G;s*LaW8rzxWjc-4l+O6xr
z!69&o{+SWf)^Enav65qt@{S{}x4Rn7+zvKtQ0nXL+U(DNj&sJjCmHuInnXoD{ypR9
z@|&!phIcU)qGDnZ#iF4ef^MQxNun_ZdRt0<o_%_c%D}qoYjk|)JzlwS<*&u3OMAHl
zd%irIpLF}vsRg|wOsV)Pr_zib=2YoTmf*!Q{3Kq~J}}0<vz1%hqQu!hoh{|=`+<J?
zW$z14`hI2o3<>(aJ#tnyedoBm=%4U{wO=L%%7QvOJ0Hiz1zr;JO7Cb5;*;9Q?_HaG
zQbj0Y!C@Dnv=|}ArHFxvv4Q(JIf_rCqgyX2O?<LseI6LAwu*lqnVBi4IGhj^+d6Ls
z2glv?S=pCQo;-Q^;lqa~EG>OK6paV_wf!3^Dvk^$)SPk}u`e1w<~h36dpIc~V2xUc
zvZtr#Z6}6qboXH`t)(*cr*>|UlFE;m8hmtP%gGONaf|SvzN#-cw+H=dQ=6R5jLQ-h
zHtDKP(9qOODaa8Td!uU7`+OwO$LH_?1t~o}J;t5@yyKwt4~>GIgC7r+i3fXiB^2&8
zR6m{VedP|%W@jdo*_z%OsBblmYl#aB8+i^@iY|kloUQoLb@68BuIe}K1Amsax4z%W
zWoVlF<;$0=#v8*o^$Ix}xO*!(U9yPqlzzDH<|1zHP(x?kup}4lYVYaE`^LFm+}!>7
z5?<w^M!12izckNYdB%8pyeet<$)h{9aW?OYidwCVS$fLK#o^nk7I0v#c3(Zqd-lQe
zu`gl$kCY}i2n!E4xHMH;M#t7Z?|!5>^d!b}tSyu`YYVQ|;rxRU$5rP-0hi<54rK~y
zJL_yyDzy@d#Iux@^A;bF=Z?>va?`MyiO1+!+uZ#}p^&$H){H9Ou<@9;YeEgK4#i@7
zd5t~n13dZp_!7OstP}TqKAoXCe%pI$OgAD}Vx8^DlW&b!cz{0@yx;Gb%Tw{J#VSZ)
z_(au6SW#Qcy-R|=Wu83_2@TG5Du#xJ^ZB-{SC{Y4yYcI>SC&lcqC~TzmOJh}mp>j*
zQgE(5cIk0+v|ou#ll;PMUC%}vM{;=MpAYM06})X9nB7$NAxf<(v!o^8k2CdTY*u4#
zD(=K}uw1qE6{m#1=SYK$+enXql$2C?nq3oFSPP!eKg>3B!@~m+jXf!6jlIU&(uZrU
zT08Cs1&%!L^{jDa^<>%IcJIlsFH;!FtFy~}&d9uT=F83WuEZjf(Y{X!Umu3;f~9q(
z*4f&Re|=PlPvKp#V1eP(RF!#w|8o0$9__rx8uv{GN@RjEGc!kD%vJo^BHT$!exmPn
zd3}9-w-lLWTvpGm$@<*Ue2F-xFavR3p~()_B%579f(<rSTj|);l_j72C~Pvu_hF>o
z;lOSCg5{DY-ruFg=uWK@FI5<+A1zdxN~pCrFTTOHpRVU4jS1zu_*I&6JX>3Zrd{h@
znmoG|3+u)wD?;J~laxkZawQJ?aIda?-o&H6tvfl!b9!>b#nl})vHpp?z;L5`Z`*2N
zA?~s9@o^9FP<_)TugP&U&(*@-ANR||CiLQ11P^WNNpIDvYtJ4iEgIi<<JWu5DKP7E
zp0V9lWW#0?+^csTk3SGDC#B@lQ$K-^srVx6-uv8T3ifDI<?ez-{cL4rRi#(AXI=Pp
z<7`*^Fw?fv8Ru+5M0FDxlW9{mu^ywmt&>b2?@6Zdm`!TU!v<E?K<T!+6?Tjm-LaVq
zW$!k$Vn<^)?Q(E%m<r9EFw60tp0aAlfk*Mi<&&B2Hq3Ox@R}rxb~qQV_>_xNldSef
z>fyC<e3>nk+QucJp`jM6Nvu(|`E;+>NS1DsqUZQ$UNOB2o0M3O(i|AX*o>KTlE-ok
zJ^J%&dSeR;3MT06nNMT4(+rz-s(P2^%bGWNvAVm4o<4ml?JX4l_WFjyiIThgmz96&
zChv8<7>5T-xop$%-O8d7+~b|m@o}k5`gYG#-nHfAP7TFZ$@a|TlE0D?wDrpk;Ul$D
z*VgX$rOh>R{d7T^r7%#uS<+*)FQxQb*5C&<vQXQq;xhZzg8b5Ly(>7Eigp|<d2&O^
z+iU*vO~(TY)m8W3k>5IJ{<5Eg6vt157L0Y<dGoKked@R3I|}Zxp1cx9D^!I%9VZ4K
zDRqBP)E>slt(miM#j*o9dwQ(WI||!|t4)J$$l9A|Sn1Tf_<bg4$PC%>j{B_vGL1Sm
zO^+hH<ivAETe|x5E-yB{A0XYy7}vs?{jCcwP|}JKBhB(0$!ZFSnE1S|{KJPus)A>Z
zPjp!*StU)waClT#*ei33h&4*G>K)3=y3cbd%D#K|PENica9hufly&=WE!n?+zv0uL
zV2q44GwjxdJAT-s%lcDQP}e46U4+LbD=xSR;gCyn0|Ek~yOnI~(_@}v`JK`q`uh5Q
zce9+GVOvff8unnuw?}yAl=SBeMoHvHs`#0_xw1;~<c9}3>8FmtJ)E$$4GcAM+kg*F
zkLkrBGnp9ew_0I^f7`bOYnunLMtX%tn!LTG%}q^Bv-@6g+E4TsT6mIom&F;*>i#es
z%)^?rD$>+8<WUO|z3k(IC6cwxogBU)Wu>)6T6&jws2|R>TBvxyR);Tnuep>~7>|Dl
zjns}eiWXqDg&G^RB@V`Ww2Ab?P36Idtqv_xQBzaP9%*#%Z}F2TNVjioxw3QN$)p@Z
z=bAMI0sOq1ElT|_UcA`VJ~dotS2)_=Y6?>?9w*Nv={+@}p356sa!X2Np=|TnuGi-p
zpSu^vrZw`BE8ij`ql){<_v0;G9VCC%^UWe|$<v?Tq=;`T*EB8ge=FW*hv2%COTjUC
zjqp-&gJr8#1B(TxN4%$9c7!){7a32T#?kx*ADeq)li6PS`E-WCmMvTIOoJ4b&YUy<
z&A3;OLxf*anc_A<kG_|W<Ku(sY_r4~-I%c_5WPb}LR`C3s#-o@J5V~V^zF^+{))o~
zc%n*81d|Rw-1oNj^~D9uBMKBnj%aF{1+^F7{P@HkW^nhHy}w$etGf1Nv?r>$1<7?j
zt{mQqGcmyZXZ+*GZ<P98%+#Gm2z3t5>CIu;4!iX>KCg1UY40xayW-gAYe`-~^51r6
z<;F8Y-Bp#Rl0T{!r6niFBupn13Wg0SwD_#ns(X}>AlZb-5YzPj-p)D$^-l%-cA}3z
z{XSPv$0pZAqWry{MN{r@t#h4CQvaj<VT`Z#cycc+yr``6)MT%>i(58uj;zv|Z=X|)
zzBGRLa8>E+gKLSCUQGQa%Or32z&Zo*&?dXw$wV)L7qt^NQ<IZF7y2*1Hl#E;__1ng
zfpa;+-8U?)XKERoT>RZT=NHPYcenZc=Ff0F@w@l66fKmd$I9aEa~;}C4b5uK!zH(o
z+o>EbYdbx*I#5=a>CVu#NYPbuhf9(-*B6?ZJJBYwO`#O-JUn0k(8I}X1(s8%3jXK;
zkBecDj@RKk!4}`z2FALs_8jnNSxjE0E2Xl;(G&43X}G^osOd?OzhA6fQ;t1czsi}h
zTU^)Jev&oC>NW1Rt|Lr9``gt|(a*`r$!f*GZHLm!uylF%iC8<&==)LeBTL2fuBW&l
zgsTT_cIvD+r&h5}{r0k6?`hUHg~pe2g;vZJbZyoP%Ki53+h}=^*L8)dPh8&BUp?b~
z^&B5`#i3g*9QpL=M!e{E>7Z-$s<AR}!IYE~Zf<*KY??DGpa~Gtv?cFy&DQ?&LK7?X
z_1bP(#a(`TZJnyJa)hF1OHWp>QG0toL*GuI%Gi67ZzL;!seT?jxn5sA0+PUU_YotT
z>BPju(c!e*aD^$j%(^x{KhNUQ8<MN7>@wOy!UZkDY*OFWniD|2vIw3@Q&Te^7>19V
zJHtR6Fv6&BJVrMu@#o%a5fjG;J1a#lE)?M7zMv)<a|&?Myu19qs*84wz_-eHuaxG*
zwo2WE!Mu5XaK}+)65eA)F`nPvt}DbHK4*BQEewosZMh6b^+_*n&s!|f?G*39`$A4`
z%Y7rJC)#!0D;{giR$J$o79d@_p7TqiYioc`s<m!tLDuAOUDB`$ui+9Lq_=u$Pk<BX
zK)O#%Pc=<54=w0U$Q*LD%NhG}&dEi{t>a!b-kSA1B-nGT$T$$5Selh=)Oj?iMB0zb
zd-S!<u-)X0Jiv7Av0tO_`+63q8Wp<16uJjx^=(o#8Acz+-@&GyDK6@BehI+&HD(fq
z#*@u(Gi*eJUMVcBF8k>ZA0OALvG!Kr5|NH3xmn#^a#!;icjN$H@58ieS}QMjh?tx0
zT9RX7Q{z-+$SD}#{ZQjc27p%L@N8a#pX+SW3=NzrHT#P<mpQI4z60;hP;9^L;H%Yy
zQ$uds{^e}myuMGbO`~H|eQ({mh0H^I)a`3jXrfJK=A0gw<LwmvvSy<&F3*mgy6!eI
zvqVFJt6FU)8;xBWoS0iq*u^TeTQhaz=B_yPLeFA(yu4p#w9HD8VaY5LF{Y0WbM7IV
zCr_Tdt!+?POozyK&x^X*a|Ij^GHeCj?^2%lB9nXBr)~3Rz|s*F<vdlT@$#-A3hlbA
zp(^7t+e1>oY*I$z&*M^Dqz#zM&x@2Pm$VP`2YFAdcCT+#ODHNTGJO>8{7x|U+dGl&
zT5+DN?o@q$Atl95CUdpP*#1X3!zuCkima~10Ieqndm6TtZf(DPL;lP+K8t-{2FA{*
zHMrE<7m8N}Bh7diX6w6Oy5<)`%IQ<%%+_*Mp@0mB_Faf$z??iDDX9;`=B8>h!^{NW
zs5Oj@g@%TPG_<wp1Zx~Ve9bdu;Z6OfpY03<*U2=xnpz{G%`Ovwwb)}H<CFNb7<Y8b
zVnYp1PJSxRd@oRF%?#smUgKdq`KiL!ObP3=a`q36;;z%ICZWp8N^b5N0p@C9WKxN1
zc=h5R)yX}}o}OYQIWw2X#rEnMTjuL1IkvrU0hX{FN!7PbP+{0AsKq~8w)OP!;s_<B
zo=j$(Ed2Dmb7?@bGPW?@Ws)Y!gI_<c^TJ2OCr-ZWwUG>&MaaBmbHv!b(ATwr@7hiS
zeOy(rwYK(0PMCLfjauZrd#m{P_#)x#S(XBu+D~U#XE|*hz^PAcPMq@b*<31n{{hp&
z#j%N*$>@<a*N+d+I{NaQdeFd^Fgx?^VbRsdg*cd;GwgV;hlUnP7OuFaa7WI`Qdv2B
zw8c+X#|im{MZ7lL!m&#NOSvyF`%-i4%L|dn+QyzS)Ze<jbN9h46D<ejPomG`I=b}I
z8loOPT#Hm;@koP<F(m`=A1&~#K_At(iEZ4t5ozhCR~Py(AMg<N>N_vA#5(Jnd);_}
zO*k7H1Zx}JR1j43fP)P3_SZJ{l!B*!PLURnW6VR5RSTb-m0ZTdxD+<exdI?Xv+vVB
z<-84#ZktRpq?fR61o)iOtw21%X^yS>W@ukI8_)M(`-?i2*qMz=Q~g2Q2@`RBB3)U%
zIkP8~hMpWy$@^xu{7Xp~FFc-p=_=v9sm>NI8$?7zZe&b+E0RdF$}$kwewMtGsq1F-
z;ZC2kr;&bAcDDRDfE41RYds=Gg5%c@lxQVY<@Q~WSW<jY6mOR`Lh@1`HQ9s+tIPUh
zvAPdjcOk9ZGTBo{E2^qg&zu?CIHTeAR)<VH5Zu%}hT$DWPq!Uc>Ko%3GVM%tK#0p~
z63@4|XSeJ!1B4`KBi`f_^JwF+BtLgTnIh|WxA)XQ1pIjZTu1JNcOUriu+J11_c@ni
z$s<y{`~8fO_{JmM@X^Wn<F$F1jn@0zq0Hw86vvKd<MC?R`gUGgC|0|#lCf98DrLyM
zLax}h=$%Xv->*ksZ1iN`)H~}k>la@?K1#Eijt%adjDGsmms2A9S44ta3M1eScn6om
zav3>84E?O+T!ze??9W%#7;@2+rHkD#YtWo4<k4qorQ0N`^X%?Xg>K3QC4nleJ-_Bo
zcH7y1y1*OqG<(QMGN{Jq)mfLef&0&a)O4PC#V;oU=YcZz4iUu3`Eatf(U~=HK;HTH
zgB1C=qm2)^^fkZKT|bu9G#S?%_zjWUqr6kkejv{0L%ea_I4iR)M8B42o{@8nnXY^F
zvtw4-pX#ox+L`Fg43mj{3+qW?C~`BaSXJZh24jl`536roV>OL9z5d2fy+*9X+;|=R
zOfl2K!0y2ut#(3LwV?*5_q^O6&me0-LMy<@EAH>(b3agSBl#{Ohb}K(XU<$7B(P1o
zAV|pg-JvRdAeYs`Fpu~c1^bpfb<dR_$InN6dVNV1(Kgf)q4%s4T(63mnVEgd<#pyk
z1d1%WD`Ow&8yN`##R7wG>&@Qm1uDoaKIINiwdVP`T&1<xe(UmrZhwkN<AYzXDJUYL
zsms1x1%N$|vBp+lIIhcQb>N#?UPDKXmjRht&cGE*>+9ph8pfu?^ixH}pAUX;p4~u5
zzG<?@rKUAF^eM6=g?T?T?_9X`7xS_^4No%lf*gv((voXjUj6Y?e~Fz}(qWeFH6-Yp
zvplAO!hL}N(%kn1=q8!xYv+6mj$|as;n+G!XSw2S{>GD?+BN&ycbuP--<{TUXGlQ7
z&GBVGmQLJ_LTlwbxFEsva~Amew87eo6IaDr_(z<2^;38po!PxRUg*!duNqWZ8*9<s
z4PYDHoomw22&m6n|KMbMxQn>n{#Xh9DPm1NKHM*oKI@Djvek_`O+x^ALE$cqTi2@J
zzEKib(so+X;Y+bBt1F4qT#<`kI%Z{_p)T{+FLvH6{S^oRl0aml9X3c5yeC?PC?P6b
zZgIQ3=T;VLG7F)L0=hleu>vG^%K$UXQ*EsjBZ4k)@)kVUbIk;ljW79dVPQ)vD^tKC
z@nw%<Vq%Wg_#w`$POUKyOK<TNG5Jz_bGDQOmfh$~TW~sv7}LRy^5~ew?zpmfw^dxm
zTJiMebCgX8BVo$>HuCKPuMzq0)w=>$=q8Uu4vm~9%$0N$$LVE9RlITisn-kW$<A@j
z=Hur#9qy{J#|sLGpJ{&ad(EN^4Q*c^MFgseXZ+%h+>VR4cregM792-nYg$4=xm$L$
zMzN{$1weBNs{?oBGhR!jOiem|{!`WYZ{Eak7}@ye)sfB2*FsZ$e5_mq-snLgDa#{S
z!%mH7+Rf@flN<|}3=ucH6(1XGXr|QG);5M+@PKK1AvKM*mNCimiRrC)a=1?OBY<GI
z&1SpCY^mWaq@LPO9>vBJ=5H^H$Yo4Mczk=?E$9H!a(0m4<W!34&Ye3iHD2N|MkHzC
zE1dWkF;(%YA3$hc0n*%3<V8K*jZ;Yxlh$5UhAt(7W$>f{Ln$Na03l<K?zn9<*3_*0
z)N28&@2TdBoVip~=Sq`xQpvo)`%))QoOojgIHKD$P^Oey*ZHn}n^&p&jbB$Wy^$uw
zr+6b_eaXr`{`RWWaQB<CjAeyg^RUt<t9lzNZ*Ft3P3=ZfwJli;b{fM~+$?skM7mBi
z>*a@eHnESg;0RU0Q*qv5RXkGEthfcUXeF@THijSuH(p**kz8uA)X2R%#U6K_V&z$d
zQzuPaR~XDok2Upqozh!#mH0jJM$cOS=zT#KJ~vEpZf9v9KD-zyMpKpEz&t>AUHQ@G
z^ERc&1+gR9;8A8X|8zd0qM|Z^Tp|#w<{9f5pEKT>{^=rrrdjNVW3Mmfchw}Z*_IJ$
zi#un`_ubqS)sX@QM`IEJS3YcyCo&oy(fq_jtn;}cSLE2^#Dk<&ge01*ND>)jR!M|u
zPJw8QNz`)E*DG5)#YoGkY}3O+95r0rxAg5hnIqdiU)fpP<^5sLIv#n&j=Sf54G*ob
z&*Sb#0-7gPWw4kq=1aNss7-icoo7dP)B_*eQ=)Kp$N9*}NMUI}e_33krLJkpx%l?h
z%`n-(>J#?^YNgC!S8QOq;qb$}8jA=4$}W!_IiigGxb=o<;AI2~sV}AB{FHbfjD@4?
z2GHscYnoU~AwI3aS$_pEC9#d`B_x7~!IE=4;ei+$^wZ+CdD&+MYEu*kz<%-*L)SXi
z9uZ{cH4r8VBc`O{J_5gVoplnu={DF2dl1ce*t6xq!NJk~<ykJhl+m-nJAkXo^wcE1
z1I~Fd99bYGhmsbhx6?Z!{Ss3wvR*IMx8}~Bp6oR(y}i}`^#YkZcsYJtem^~tjg3uL
zN|lj465xD8mj)hiVm?CCqlJ>EnqSyHX+t<EvAtOR=s*OK{fzPFT!QklAX7pW1mR<g
z!(`(1JJob018aEVvcJ8HnZ)TyHe{8x57aor-F*#-QpJ|t%?fTC2v2X5<%qEu#&WuT
zxoHuZnkwB0l=b+@laoo)twBnHtlnI2WzpOWQzpMTqSf||#m%$ts*b{7R&aBJ9i~-?
zNtuSbTE@*i$r=ed;647aL65MABQJ_E3a>zU-;A~KL_(u{`0z(Qmf}#wVPZ;<R@kI9
zFur`_!fOe){P5ni-eaIdLqmgmpuH@J-!9ue#q-;k2T{b_2_DY}Q(|u}#A}(Gt^O+N
zyqj-ySM>}a{C)V`B4ZKToRoVNRL**^=fBp2VqX4LAlmE-4wHjp(VAuoG#tCHpXH_R
zD>YC&z}H#jpZ;kt(A4ex;ZPF%2#P!#otDS!gaK<98VYc8gX{B}dcTK<hetzSpP!q%
zq@*Olx+Zav_N<c|VVYpqeS8S`f*8Z^zCH!><m2O^C<Ib&gT2(1IHTuoD!RJ5%F3cf
z+39(e+cV*2?&I_b3&R`pWf;We@g#^NQ!yJmtooDdw#QLXDlgK0fAaXT&%1YRkKQ54
zoS3-BsdZZo9;tLq#{<T+c-!f%?TZ{=`Z~OA8htMXSFXFh&EQ;VbaZsll#L~*MbKS~
zwDU5LU=zREh?Ub~{fp{t|FV+aMm59j3CYRHd4#fv^V=6DEr!^<7)O|@Hu=c7TVKrN
z@<*-jP$*Hh90#{3tZf$9=4`$1)|QjOM7HxCexx2iu4by;dum;3{pq4bN9M9$>VcOw
znD~jYb2dbF!32;p%Gh-JNJ@pgK|TW0Ew}H_=Pf+o_3hev<O)t1^kxo2hAE?20W4b!
zqID36eO2VH*Moxz8qUY@rjtx=E3MH@1nA7L^AOvPeIpBJWm77D8N5E=J}O3P1`Ftd
z+wHA?o?&<R@L_2O7eInFada>^?#j9q^JPb0LspI2lRx~|R^+iQe^ETq6=v+KE>Q{M
zbcMHC4#L?BHOx0{r@6T$kG?oN8b3WAUybToom7EXTK!d<ti;KYCZ#!Cf(9|C_iQ(7
z^H#qG947Piy!umcnYDO$#Z%|iEhl>qs;FFW_{sNfc6NQnEW?9FQxSgW!`0rOiJdMx
zf-^AYk@H98v$&Kg!&(gm@#X+B{|&D4sI{PGz-xj~8GubmvGoSBRCaI}ur%hEcRhs!
zSzP7GwZS9W+G)&XKh$dBQ1pHJ>HXFpjMfJxCT?m!#8qBhy{sriOvGt9|820)@fB;V
z-vgw;)1^K(m6noH0n*SYJl>5m&7sak(kG&(>N2sMAM1wGrwz%k_JHQ`(GeUhy}5av
z*Z9YXf_Sf?Xjg16l~`v-_+U}rZ<Zf?zf%(2{h`nq%!)UEu5N{c6YIPIZ0ZLO9rxJu
z)wnGn5p8^EroZ}E`x$mtIQ`_$*;#(1pSbVx&E{<88RX&7usTE3+pKQSnf{&2V<q^;
z3W2u7JC>6tJ8*W9@F(Q)?6|d2MC3krA>rb<-{by@XmA@is!?j8A?d=qs}OYIrID>H
zl`t}Bv0OjL+xXckOE@Dp^-sN=(#mi<Yf2_EPv^S^Ep*j}G5Uc>-;{%>RJgfJK8bO5
z<USHMK4bml6Mri4N&gyKC1-7GJ3Men9c+Z_rQS_{YXNj$)P4BSVsMVV=|40Yh_@S@
z6W8JH`!a9_TafTDYWVItW?*h?*6Am*51v+d>w{Eqa;qziZw$L3)v$$auPZhAm0yIF
zwI?~9aREWLNSnwBj)N-{gquBq_)Y55?fVh<cw&NTD=L;y*}%@DmB0UknuH3%<$NK<
z>_39po@2>@Af5ARQBiApP|QmQ!mX-)gc4dDz>xJMMLv|VhkVY09?!8y4XEJS0mbD9
zlqMZ1C#Gz^8b{dVl7O=hs7DFK!Fyadf<dFs?1Ld3d1+QQH+Qdl6RU+FhiTx}hZRwD
zO^%qw3MLD_$B+eo{_BFu|3KXO_ecDXL4^O?ms&F<^K1pal#%W1HJrmd2nWuH1IJ%m
zTf0bW=2uHk@k$0`7ee7r(ZAohhtLAugJI{Um1p2ROQQrM<Kp5f*1V8IZghCC=@`FF
zvW7<C`6buK?U)AQRbOppXA4{}YReqFc<m0#sp}<-6>FZuGa%&cHQ;{m1OT1W$pJ+_
zDXCyM%)|I}g5S!@iV-g2J9uS7-2|t#O?OrZc<al^$nZMJ@80obT2SXt1*eN=)6OGJ
zGO0;4ixNNY^ccVyQAJpo$XH-7y%yh<`w{%$7!iL^6cM*qxk43PAZrlo(_?PP*69|k
z@`H6V3`#R9c8=!q@kc@t6gj=n>collovv5T9h$aj2);SM_}4?#|J&{Gp9lK?y^{au
zoM&*9_+1^!UvHp_F#)bPfEe<A@K|{$A@PCsclU<^$r<d`q0k>GXdgTRcwq?r#O>4X
zHbl!SfuACw$iCaMk{1{7FD1qo4&nOU-{{3>TbSH4?BFB1(we;3w190^w+WRNQNlfe
zx(ryAwQ<jfYbmvu7_Z6=gz7AzqU}2>Q2{D(0p18C{3vN%{jB5TqXXn^a6x#$Jk-8<
zA>TNutXzMlJsh>3LoJr<rS!e8IxE{Msr`=oE^<skDt=3Y)A_#NQ1wbeTcIgdmX>>U
z*a^$_e!%`-kn}%ub3?=6gIw}Ip;XISE1Q$JQ3%GQg@toaut>HF0~J~~JIPC*AKXC~
zh;EhWpdn)rNeuW_ao73D#%IR76%WUN-bP{RyHoBtqNP=^i{IwRE6ckUfSxYmLqEq=
zAKwX~gC^WCD%mOmT!#*J=EmwzM`YZ0b9_Mpxou5j>VRb1>?<@>Q?}iB4i+ymBjZd;
zJZhLi?-+w-uMcZ#^57Ct;xn&mYiN9WeO0gp3KSp0vzhaC9;Mb=Mt4+3YiksGfY_@S
zIk%vcXk@A&Y81xAbd^u%U#LXhvEFT^J_L9b{VQi9kzF%+>i%~`U+p~!KEVLoTYpzl
zSpls$5n)f%emE=GZlT1|MLrl?VfI39s7=Cqt0Ht|OPz{QgOU*hQydxi6Eo|Yy4;3^
zN)vs+`5bSVf6lPOeh{_O5AHnw*|FCx0P>yhqh81~c?|FwGwagqsPM7O?5Yp47whgX
zNa(4qeOct(7ELWJlG`bZ8Y>pYl-)VDUpssIfmE;sk<$v*)zvz5_aInQltNMC^OX~P
za2K$@qx}O4f9(It$jEqb(^%V_Yb5=wi%L4HU1@qNN!`*>fsxC;n2%ZqW3(1Bp;;dM
zHyELRLL}mN@}2y%+YV3Kp(~0KpTWq0#0}v_|Kp?(8=ucbT%>ES3@zfBH2Ahkkw3CW
zHdHQBg!#tBYp8MPAoG+9G2T>DVz|yC6LgCa+<aapqO1@+9xn+~DDUkLu=CiN&L&(2
zPbiqovBUd7<OUT<<Qn|-Yghcbm-t91p-|%>CQK5Ppwuws+VfY)o-zz(=d15++)xA3
zQ;e{4IOZvHo_!$Pd<D7t7B2gBC8cJx6Zm?jKI9|yow<=#{^wIU|Mu$tY_ERAY=iUo
zJCXQ26c;XmUX?K+3qeIm6(@JYUiQcB)+(RbNX2d#$#QOPwuC@nTWa$VX$9Y|i!kV`
zUmIq<2)ZQ$Yy2@^oXx}BE!;T1Xu;xj>i&DKt<9$@O@!z023MP&`i$s5vbedaY!~G5
zc{Mbv23@DgcwohmbF(225lS2e1;lBTh1#L8aLd!^IA0tQ;;Bi53h^@0*pN0J{KxmP
z#a^Tyd1(bLjwh<Sg;WiD47QC#3!D&|QYLB=%1&tCoAM|$dy<mF8RQ$|4rGqmC>q$;
zo_qv7lDBhKYv4BXZjw6v=i|7&sC)nZS#3KGiMOh99;)$LeI7`98F#iim?spm*Qz7I
zSFmrmw@JxL!YEtTN(o9aZf+7kFBt^!tLuJkzw`#@t?Z{&pk+mrl(8x!H4v$;!0v#G
zI5!1Jmoq~V3N$}MqFOn&2WbwTbt%3fsmt=;T<SwLSW+)gfTM`1f!OulJHNQm$A@^|
z|G49)2JWGOTRR`$H=#lxlo|z~jCiSXX~gQ(&duCA4Obv991@?;f*2sOx{ZBbgE}e^
zFX6ZasJhwp?DfLwnmuREOiZ*Z8JkTuK;yZERDnJ|>9~b?w&`sDu)WS#@w|-5SO5cx
zCBY<%vOuyI;^}MqK=DYg-FE|laP=<#jzDxg;L9z>_9xfX!l-VWyf{0<hL~^9Osf(0
z-xQ3>Lr<`OI@+*)e10R{BwQja!B-@%Bh`leCuv6&F4x?F@Ltf_hn16+V!Df^*?-`d
zQzIEVx)Cg&|LCe++!%{=#eNO@S6|nkdBFk>Io>VcTz&74VD>K`M5$TzO)-t9sRN*|
z-Zv~tMR{L@qQbi(?TA%SbKH=zGctfUv&I3+#jd^IH;@0i`0VVgu0*xe>{p!>t_Apd
zp*-#Wk3V0PDE~P@{zsDZo3OgmB%C&|KkRMChxv`b5VpZ<_%6<0z6h+4u<%3BnMkCf
z8&YFpMBRouc~Bm>jEI{qV#a=x^_9$Q<=5{Z-AFv^0{+Tyxgh=ithD2XX2Wn;Lsa!n
zHoAGnhecrxF}1r^v8_=jU<g=)eGNy0a*MvW_fXDWTX!H3wNHsVp2Ib+lS5V78LR3#
zNovxdNi7U8whv-6di|GgZn=AYp)bzT^KBQ|CwgV(s%AqRLJx>W{80q9C|e*Pw}s?r
z&`akx3ecNh%!%%p(YrvV{>p_cipZ^02u6`QvpS1?N7c<dlWVO||50V2c$jq|i{8Z1
z@BnYZCngS4k*@0#`=z5wc$m5Kmt9E_*|^bHL7x4}=|_0w4N23)VT9EG<(KV>BN;IY
zUK67xTvW>7crm@f?Zq}6r%@bNA#QGxa#BsE`uj(&6yE5k(9Dd_6-1rNPb5BjQx0Se
zg)rI0RR#|GSDb#ciY>**(F&^@VOGUguVLTS;BLCB1$?9@u4x63knPPLsD19K7$M=j
zhkc6*hyGXdg(M>T`~FNvJa-RDN{k!em{M>sy*=aQGH!`qIB~UEQhWC7-0!UMY|DP*
zxUlH8Uu-{wJTVJlu90xvQzRN?=<+gVUrCYW!?k>GrMfR@pZj*sXXP8SW#%`wvMx!e
z-`)J;#b$@mlI$jLg?9Pec9)!vfo%?V%ErQ*W^$Cgk#81|w$@=7vMuEO{J&4f|F&1>
z-NafeS}X{SZTtIat1ea^j|YvL>D;Z?wQ2oTWY~{!rks~w$tF2D_)kB>Im>}RC7geH
z-;?RYT&mzcT%3HM_p;+Iz{s0HYa%MY`r~Drh141{or;o`cJBbN{bKq=iV<g+m0xHs
z*f#|!w;xthOwmi9%e5-bkRQ^qeDU+nM<Bq!+2H0bhws&FmvJ<Yii*0xasS@Em+mL$
zCP*1~{`M5Y{lx&gH;2Ct%nsMsx$}I&tmP;C5|YhJZtY{8UxEiQR}9g+A7fo)T3bAm
z6og0bUv_}s04iKbq^zrLljn%otP^#aDOOc(_nF7PjZMs%(c4)W?f0FZ$o{zxcgoP|
zTnV<p*YJnrEYvNFn_he9{$^3JG$M9(w&N~Tlklk5Bs=_TO+-@)7%|JPoO!VgN4dl@
z?L>Jb*+~nv6LjTHPf^j?M)MGxaeZI2q<gK^bGIR1bcL*g(qK8N#x5(oC;HLb<EQyO
z0G#$++P6y?^73@_hrknlx+E0XgfeWt==Y<!L1h8l=`dW-tKl-pR9bl0+kNE*A}TXJ
ziv?iJlfXXSXOovGG{;6qi&*QQXV=`04j>d7dN(vcqn+&Yw@<YGxL@xP)gNm`4Kug&
z;GSh6jht5&pUb}K7X@a5eOkcI;O(P>_#qd&4cUn9U%~YlkLTr!SFc_jEp^FROhTvY
z*Oxpefg{J+<Hr@xkE~M~+e7A+ydV8n6k^!@GcdYHP(jR1>|-RCjji%Vb*D5_js1&T
z$M&<a?tj(>gU1#v5JRI5NesEUQ9b&zsI8V6#XhHU52V9iW}R+(mk$2e6v877G;P5e
z(T&BkX3ZK&$By^uuwIjVUmhD>_F8SfRB1k=7Xg_U%6(JFjkijoN`#_e?a}Gto10s)
zwgK3E5(zhIeRs@`IyQ;QujwsNC^a-^Xx!gLfFJ4+c3+rl$GuCDPo8Xm*s>M!bhLg+
zczoit(fGclm#&|Ak>xS=O%~Orc|m2et^UY#ynZ&!a&EY52v{*u=slr2(V?p3`@Ll>
z5N#YCKxXJ)p!IOveN&?RSM(j6IB~+q#|M8Xgy3fE&r>pNRkIgh)Kc?aX=&+#>4~!G
z<9`8(OTmbMh;^CIJR6*<RK!E;POzfmbMT)eZ25;5Z9@;+E9YFVN$HxL0}+ZPg6uqk
zz3q&uD&AD6Gh__6zim=O%TQ6~_q|;xGH@2QJ0fNc@Z)-|J5)?xt6Ff&iGz&q$ih+Q
z=G^SU6%PB3u}IXrwl3b=G-W7gHa*VK)=h}#XsO^yl|UPaD>N{A*4xb9U6-An7zk5X
zO0PK^P$b{n4cU#ssh6`a6yDzz;7gSf)cfyHX9OBiws}EsTtGE^5(eIDfDX%q8X5k+
z!RQz<IWPlOtt5;S&F#akP~oA*gawX3(l+z!!_@Wc+qwJtoyQzIWo6hWX(J?YBg<gq
ze%*>=Zx0ku#|gDfT@Oy#!<bLE_WoGP$*1E_4tQ=PaHNxQ+Kla6#PpUxGD#slt0&XS
zvAZ@!%$Oa!@9wk;J(+~P4uFvBBj5L!wA}LA8aAWAal+kZ(|MPn&dLkj<YJRj=`%Pc
z48Lr4ZGzen?$;My7$&n>y2cA7nG3^U51JDHLf)_6$u~cT6qd6NN49irT?B6FLN{g5
z%+u@($;IGoT@rMA{A?1y&*WM+`cbA|4U?YP={vp=(E2ii5<||qhAfw+<1E{TOrF$f
z^!AwjgN<aNOq1(kl=!s=<ZV*ncL-vSJ%%&eXdMqh+O=-<@Xf1Ja2tH{_ZGlLM$mh*
z!8#WmOJUa2aEVdRJaJO~(fZt9{j_dLszmO@xBaOkUFM{g0FQq(BT{n!J^J{Jf+Sd;
zR)1Oz1yb`m((PQvT8jt^QyU{xGXJsn_~0~zt+o4a9dY%5TA^^qT!AIitlVjSs$!9P
z?(^Ggt+=(zP_}2iw}tLM0lvfH?+4aoEDaBYrqDLKzhD&b84CT)=EXh`)yC!z6K1&W
z*7?LngF1UTwqFV!o8Ra(HQ6++Kq8|BjL(zL7OTsyBIVgAIH`Z|AlT?|RE_h9kfQ!O
zDlIo682~##au(vJj>WPoS{!=u`)4*fQNa-{Y2~@z)5EUp?K-P|uO#F<WWH<jZxWSu
z;6J0p|DQ;MBf1HkZ}x(%GAjzn2mQAcn;S%3gd{*gVipLkadLGV+rb}?dp#?gEDZV2
z#Og8`DD3Zj=NnV2j{SgcpbzAcRzQhJGGr1?QKr1nS(hH4!{#C0z4PMy%d2)?Tp}o8
zkp9f4lKqEd1sPp-3jF`p+&JBka!ncxj`vstF=JSROTlsr>t_rJ0pmSyn{wwqiHY$?
z=|mXyAk>{Nbc-8iD(l`<+9B}!bdcjN$Xv?N?y`?HICie|G0@^b!Vz8Fn<u@moWq-n
z3lE`q^l);=Je*3vz*s<=v{4;xvl3wWT``7PsWqMmp#flUo#Q%sK|yIGS6wvOiWFGp
z$GJ&RDoRlM^+V5BskTs2+%z6FSCC#c8&L43x1hl^r&)(6Kv!@`h<UBhgS!tN<msH7
z53m$z?gj2n-y`O%jO60A`_>aaox+LVHlTaXrSXh~s9y5=kBZ0iT_E`^K+7!PE!ODG
zm9uHfx#at{`?2=!-P;1n!K%>mEK~~;@E{21AE#E%?#-R{vWAxJ=5U5o)25wIwPJMs
z9BY3mWyLs7cYu@^&#$i^M$ZrKx47`byI_&c-CT#>zkh$QqB#EPQ%gUKpE+H_%A>X8
zmyX2hB)pn?>VyT7ikov2^^;N;Ja{Tru*h-Om`7vNnm1<?X4SlP6CEqw4YcVUTI-je
z!`{pPBA@arNq75O3jisVfcb((e70=c^~3Xms$y?a7v(bWdY{JnTMG+8Uod)xzFS%>
zY=td{3iD`;WYML!tCqvY;9$`lHP_ehdy=1(Fy~*;*Ut_c|Ju<3|NaPU=|5!%!@pPZ
zzqOJZMVx0mdE0hc<B%}#rQsuo4qY8fFKRn|b9n9sB&M^%HS|3M2VE|gzR@|?bzC9D
z!~DVKy;}zs_oW_!&WvDUwb}MZ-x7j6Mc=(k^vv2jw4Xn9*GNx8tEmu6=b>i^8qCSf
z=%?A<42psyW;-2#8#o<J&0ummIJ(7!SL@H0K1ND4kWj(*mm^FIMmAy!WSK8MQ!bcC
zMC-U<AM{sdxZKgor<w^!i1x7zvYc(mS!=}`g^%gf-r^d(@|0YgVhB?0Yjk;}>fbMa
z0ym3$V1Q?>ZZVym9a~Xd-LZ3KauQyzjK;8so@gVZEF6Ta#gt63PUL1wD8D^K%_dzI
z9(v~7U5o2T2!8di6@Jv0zd9U!Vuv+0=f;jXJ!o3bj#K}34gZAUDgQpV|E+WT&zMv5
zKfctD6HR!pq!6M6RN<!v8q=>IqDUtyOWc2+54Q&B^R91L0S=B$AMgFp7;5abHD|2E
zZWj*Qrwp1QfX0m$^aJ}x$7OEJbo_cKk0#`Ba3p>_7IH!-!9>Ntv0MdB6HBN~xRu7I
zK#{IQBMCZCT*a6e88G|@yEd`kwCN+D1LTt{fg)Q$?)cHD6(lV*g@Bp_FsLFB=#|s~
z0AP=+qu48UJaXr(Y$VHIfOC9&h!jyw%!Nw}R2Z)I@u5;j7UO#@QcF(xMHY10I!WgH
zm6d5wN=fQgbYZL(ZUGZum6l0&&QW{l(vPm8qPiG=19}=OP-`7V9ZAB%XhW#7bz<LY
zauluIg|?zl)x4&i^<N0madT7WD%d=+IWM`n*WGb7`HoL{4NmQVzR^SE>1;hK5+)`l
zS~tZ>4-0Y#RAPF85V~S_KJ;YcQsng|9->ZPKdd3FNPWg%OiwmA2|2Dc%yfK<zjW71
z(O*y&C*MgNQ;X@gJWXA&Y0B0U=ljQxsYBqs>vcH#m+t4EO@jvD@yqw9jn_mzmtLX<
zQu<444=I#`MYPRp*I6@DQ9c65MD3eIx+Td6su|s=O5p0h&z!sK%$YL;o#Qb22fsnT
zPlkEq#~S1xn}pN=+NDD}9MPW_3b-7u*lZ}{exgAxy95daQR~p_)*fcQpz`*oZU~_s
znCdm#FM;V>w<K#;$IsLj)wSsEPFbuz=ZHT?YCTAOewuKTP;~b5(ASTuQyf2ih5i|#
zYc;#;R4i5Zxto)+b>qGll=g`A=)<@mpLgYa`imwQybBSJV)Rm;o)VuCd)Uax$Tb%l
zdnfwM8z^n}s;O}*2}H-oONeUDPBsEqR`&RH`EeM#O5B_eDX$l9TN0OKDDgU^4(aoM
z2=Oyt9#@ge0ex%RFOivAa`I_x1qxJX9!I59Uw*6!G7q28=5^cHRwJ+jR^vX{p)q>V
z^yRtPC8;;1Z7>Ll$^qS4Y`S#2ekUFX6ECPps+=d`)$bS7WsJKd@iA(X;DDYQ(s&~d
zjuRpR!q8AJ+iboM$%t#`lSd}sKEEaF;ueaTcEGr!yxJ5i(~kG|DA5<zW>W`O0v6g|
zOYz~dO&*Sz9*eN2SAm!?#XI@CK&~~k@;8m{`tvFK6W$nIqB7bX)FY_UN)!(jlfdN}
z%|~TE5dDaw#TJT()1%kX4Q*F_kJIntgNZE#x)$L)G&d+gjeQbM97ejpW*N?w?)tB7
z8~@BPUjH)p_|DgGyCqn$Na$m#&E5yn=qsvq`S=jG7l>AGVKjD7_kPP<rO_SORCGj9
zyXVpj;oTph*l&$VDh1a{dSlcGv+?S$dNLu-C<zmfefYEGN<&fxQPN0xVTishO1W2J
z*!@oEUf||#Vl|GCcJK{P`5o9Q65JVfB1lSYE4@#B7=S2*TEF0>-mDJtN2W`+^E5VA
z%s+}aK%H}9&>tOHrUrKro-j-QScA?uMljimzSMGsUY*9|_*}iZ$n>YwSH@G{LSHpK
z^iZ^uPpA?7@AiODnBb_(ggafGgSk+<l=Hw$Y0^{SVI7W%E)bMYe}g6#D)TH;o9^S9
zK8QcsFbh7Q;s4<0y(?{qb3>Q`Yb@ft;Yu>5gGBa?#UaIfQ+eg8fnr1%Zx&n5#i3WW
zh+QT4|HwJ8TO7#@$mm<JE&<dPPNMH+zaHJb!l^=oWL@jU#2O+M2gW=^sbdo)+6{DO
z!)JK=K$W@-Z3hO}%dnVs>JYoR*`ff{$r5U$?P<uOHa4~}93{?2`KFIx2}u8|PfSx^
zEVXp$5B8o5w1wlaN4wQ7@G)=?1!(co?7DilL3a9B5y(XL$6;<q0QJCY#p>};i3X~J
zUv~xY@z9bbsQqE{8_n=R+n*%pa(0UZoCZ}Is0WLtm0(^IH_BHff>}~kySEqltLa@W
zLT{uA?~E`e2K59|Ya8O~;GdqP68kIqe(3Z<Q<)&5^qA@$A<TC&fOi%XOrv4}yt;Jl
z2vL{RQ=If^08Uu|F27+{Q0|voRy1O+@dST|KPjv*T#B0Ae0)0KX3#nF<c;PI)~Tu2
zA?UsIp$2la>D8Hp(U=fP%ZkU&G4oRQ(_A}ws20R};vqGIrfUP(>y(!R`tAX<l8e(H
ztTFGq>W{P`kA{K31NWmGqNpzS^+5;b46$Wp7;;olpW$GNZe{y&72cH0-v13%Rr}c<
z<?oAJLV`5CX%M0bx4{l>6lcgo67fZ2?;h?CTT1mXB3H$R9l-Syy<gXvd2e$VFaZiP
z>;4{fkWloybKArvvCZggzkv=>q(b@myv8fgbquCHIR9H)Q7d5_!Z7wYWmKw(bm?u(
z7w7f0L<5~aErk7x8FTY6yJ;C>Gc~PHvoV^B#QK3+3S@G}O3(<o4Fw*az@kpRpGMcW
zUJcPXA9`FKOclKxxIpK&*Z5aRGM3}vXgnO*-1U%<0yN;7mPe|@_PA3E3fgH3s0dPh
z@=-XZ&{!q~G8wV@2CyM}%(PP}yQ6SFIe81_0pV1vp*3n6XQZL<N7xJF!j`f&Y>-@X
zPf9D!U^&gw@L#cYQy^v-LEh5+Zj4L6hYEx~K1B3j41o|H2DPzB_mLiZL?O21j$3FV
zlT$8>W<robQ+<MDkO*w>pM>fR(E6fr=+Gj_rUSuATb*xB%-r>Z;yc*Dp*2^pl(lni
zzD^q-)CD$cWAWK=HbhI6j2O*ZC){#=TsuZb0}jL;mDzsGC@3UpinC_}8VV(enuqkS
zu{rEy$NbyV&&*)06%d#!E2CdC%*LVb<y_UgxyBDT#F(%uLU<6-SXMsO5@7OOwrK!A
z&refOO#55%^Tney{fkQXzffBgBBs9-6xU^+_1VWft24PilOidrGGzlZo+o>a)y&ta
zk1?vl9Q{-@OYSy$o$XNr%f}d+y6z#1l3P5~Cq$w;Y+j9RJZIex?Ml|zL|)8iKqpjx
zF9X&F7y|+lSl|IJcJJ4n&rlqTm19UPs>=ixE5PuwRyE`CL;n0S;({pQ{_@*_)<lP-
zITCwx5|8guR)&jDPH!H`+$LBCEkZ+Q?RCQ9!iqmerD3Sm(mDkU5a>sIV7IiQY{HI4
zR1=;#cj1<8em1`Wv1g-j!hQ{vp_n~oXUJqx8Eic}bK!~M^g=;*Q7=sONf{p+Mp<XH
z$0e8bXFIdAvxU_(?S&?`^izK>48JfSl-hXH;?8m^e(>9-ugbw72)wn68>A|+(WD}j
zN9~RBh*yUeyts%xVxMoQSybWmJTR22uB)w^QB!aA%lZ(Szc4=B%}>MOF!61%J?0Yv
z9+9{cN6UadR?|4y!gK%Nv4S<+KNu}afH(6Qb@!>e?PT{Giv2h}I)mGkP+Vk-7`eHp
zhwY|Q%Tt+6Z_nV^B%p-uiVkJd_jh;nhxdA{gBqqbS?h#4oHsNo3K+B3ln;-)0+;&U
zBuB7ozJQ$LHK7$K=P!-@lnk=LJR%nbHS{ZpV>Colr{XH7QtxUvGJYB+=SM>xa-f^E
zein~ep`~)nm}OFy*IBDyxJ{vGQ$SOL&?5J1ksa~`KN?weA;QTnj$yERN5b{%*D0X#
zAW&)3?i(RGxsHCi)Cy@6jcG$yAWag&grx+UC$`D`&G@bLuhKu?pOyU!ENPXn^wi<s
zhnkLrL14f~luSM*u`H*6Mx|W@$p-5zpqtTm+Bu8JAkkw?hZV7q0u|duk@hqW?c&tk
zTsvmG-6EA14c+vufaM|{8Hq5ld=Ty}&F8rS5hm@Njj0;D!l795X2lRDtrXIHPIP%0
zMO&T?d@;sVa|XK@Hkn`bR5RKH!o7skZF^hiD}H|csRHtw77AcMOLj@??pyarEwWZ4
zIT!YaJxLPHvS?dWq>*i|kaw|{0fB%$^6&BeKwtD$%CI==MdL3sEDRDAXGrW>FT!d*
zVwkqj&Vk|WAo3-~53RO{Y=*@cJVzc7J&)71CUsxDOh}zZgI7(V9ix6fb}DI*{wv&V
zLx|Z<Wo7xP(bfwQD=Q)BCL4c!i7N=D`$$IR`}aR<8`!IKVL|LMSBE!c=?S}1?>D71
z&4ipB4cLmy_;RbGDc76YK2e94r%q`MbCe}y4aqsOgYx^;ZLg&7p>?eveX7cNbE^!f
zHym?E3aEyNkGzbQ&NE5ozuMBeM8j51AVDCx`QzBw075J1*A!wOF-)wJJpSei^&i$o
zEp5HZHBh(u>NDG=`L8Z;>RTrv`udEnoG;GkYQS;;#rTlCeW6^(T`D8y<Xd(0z&&2z
zaBXmtea~PR8|1=pp}|SrFPf+Xb$}~|aJFLRU#hrNc;J9gB55V)L6wy~FvK7TXki<?
zF{S1x&`h){O_@#<<xZ$oR95CATh{$-d93b;o*o}5((F)UPJng|>dS2IGWmhxT|sZZ
z@%@y_1J05fs%a3wrwlROi>o+s#DNni&j8FsLSNT1o(cVny0S9H7sMM{>031Le<pnx
zweb_Tps#Q(9W_l-T(|<lY<jv#x`(U;*(<v<5P{dO1s{w_FLcW^_k|iXqnCD-bzb~|
z1cyF8kfVA&=*~Ro*7hz~64P-ZQN+}RNbFLqmtpnNt<$UcsY;I6<m6iAnL6?8fM@4n
zNz8*`ACYsM;-?Zg#n5Bhe_(p>faI}Pe^718f0<-tjkAq?z^wcai0{xQm`pTHPa0!v
z!x~}5Wt=pJ(t{=h1H&iPwAPNVwPG#{4G%jT`U~u2HFiD{U5^-i@iUfiY<Jknj}Osu
zzv|M84~=a$eRH<D_BE4KeA7)8dCXb#`B91cK?9P-YO_$o7Id!$P<|<ieh6xHZ2|J}
z``$D_gBX`lrvQXGVcG8144Ea>M~w5w87pef!?TxWy31LMCL5;NO&TY2l+;zoo{YBo
z<-`F3Z0O$1r>&$3c%1E%06{IlG=3Nmqk?fryI3du!eVS<8uwS47&!0y!RYFhqBave
zN`JKR<VM_#vB&3yEht(ALO-xxSn<Z0@;ihzy(fp*QGUkU6+cs!wAStl6uzQ=FqX<a
zS_T+H@Q$X+(hQhZpfb^Vg<(SOkgTEun?2hFv7)MLZdi=%`e(Ll?Hy?P9EqlAYV+Cy
zcd{$vXV>wyD;+m&n4I5;2?eC!Pcpu%gbM;4fOH6Z&dHCuA}7;(;R@MjHIuYy-K!vq
zM}%)h5HyrWaAjxT?3N7JS{_D-=nq8~q-MUYy|kRYYsVo&TuX{}cDfE<7)Zl}X&M6I
zAkqm!v&IhxY%^?r9J5W8Cz|IfoftZ>LfULn<_%5R!Oo@D*j=Ft;RIv?Y>5i>y1bHm
zgd-;DKHT+cHm$k|P{`XD^Xf$;Xv->$(@k27j&cDS4Z05lZpquwWFC>Y^vLxou~{50
ztJEz%Ph2XY0VI>-Lw;ulzU0%uho;d288UKETzvEakgBjTs&LDLYw8<MryMk(AVRxE
z$p{AX9wwZZH+S<Vl9JF%O&YV$5MYI7W^_)WZ3$c!Cy+qGt6Sala({>(7Ag$BkDN|q
zq#rju4U*2dOZce6B#k)1XqyK$p48Jr4IL#@$6-}MLGXSV`9D8Jm{s4}cKuZ=l42d1
zEe!9E{7POPD=>EXLLmX`WBc<A#M8>1tZ4Y!f{+l}QbNySsX?Phzw{u!<m|8iJnvQ#
zsuDETqXi-HGR?7EFBQXoiPSUDmh(i-S--ShDY=xANg5H370k_-hS-?kFRSGbbsONs
z{wN90llN_CCOBp|j=lMIM&BV|R^2(8J4<Q{8vT~E_>FHqp0K!i%?4U}^5?Jwei}7E
z<zE_pOEYdgzHE-Dd1`l8Pj9isWV_6;=bML&%CWu#!fSAX3bb{ECC3KZNk&g&^=J|<
zWjQqTOkBMBp%arKMz9W&Vo~P}9MAU9dkK9IYe9-R;#6sz1ZKKYI1On0Wv<*c#4r-A
zwP3!VDM^&Sltl>9Q50~gm!#>sY(W61Dh;jF{@wRds&+pU!|2T_n+x`D3vT>1dgF0O
z`*AjR^lU$deGn`3&n~bW|BT^;LDXdl?LDuN>pc>dzyIkv52>6w*27z1y6ciG=%(bj
z|DFR9{8v^?_p_aO^Y1Ys|2Rk9QHR|8Uza73447PunK5S7Rz-r?EQfTH=I7F!pFr5#
zf<T%--FlJV)(1m(D7sPeKtE=1OQ2X^-okv2NlF*0+>wY$>o!5^*~*(cszP#l5+hPJ
zOJfb#jtL_c4m}=wjRv5Ws@y3j_G{vebLlmXy^RVOyRd=;v+Sujn$cP*ExAiLIG!X@
zv0MNJv!oUpX5r(5JZ&{i7A!={$FQzL)B0NKXadg>fK^(xP;s;w`XAQrETZQqNv#Go
zsg&3YXRSZjU5DvbcQ68-X1MFebYqCD4-HF$jmV7Kk>Cu|7kCB1$k!2^&~e&Pk<Y;~
zTZR4~0hsr>i>=W_%-+mzGm~TcIOfN2+&xU%Nd5UPtAzzU2g_+j>JsWa@c4Eu!dkjM
zz=u*6f8fk$%MA2Jw2rn0H62f99mDyD>1Mn=#mjNFbSJpN?T=1j{JScG3k^d8NPI`5
zRz&|ic<9^9!WJSLXc#gfALy+Wspo;(^iV>)q2TW9fqDg^0AV5sU9wf2Xf`7nH{zEF
z(gZhpWF4@pG{=z0(zjRFAiFq_hrW~SmkHEFf?4sB!fXnZI0H}<)DiHhX#iU#MO_jB
zrGj%f?zTQthSdu&#?`hEFF?X?sFWvmXHnyeJ=`;o;50HN8olssbvMbhs==nNZaJ@;
z-dYe)cXaxTXgM17JXVp~5cLR5WFi$}*kmsaqoQ^zaKAM3dVGkPRs${Edr7ilEX`1*
zwhVvIE@e{mUg#!~Z4ES<Bun(iKsH5KF-8)1^1)CJ|LCHGv5a}zx#N{u0!`q6$Toa@
zfEkd?&EV*8B_h^wUc^|jg<gG{S04*EbT8i-IV$-VZf?J&VwO$|07chZ8{_7X^6NQy
zgo+!sK-)qpQrHXiQ_3_r9+roGF#&CET2*8Y->(aCwv~NTrW6=ujHi&UJ%G2Oml|Dr
zl~R=YUFddFQ%GiD(&Hk+LF}RNNVwTzxJxTe@1_oN7y%In{Mit>3WQ+*!&&uX4i-hJ
z&RRBBG2Se{*fZfE<<?;?+%jZpG+UZfvTVN%B5@R>tawn72qdikF7h}BN2)!wk)2pa
zf#?_u{=cSk3fw9Ugd@%>9sf%L)3I-D_E7KuYGP;{O)YBbtb(GnZY_-btaBo0q@}5L
z&~`2`A2h%B;K46670}fKT)J5;ri#`Hl9x%ohBA8I<#l(kjATbN=P6ds3%f#7l5Dmt
zivv?@4IR~~qIt79RxW4Xm8!O(ljboRIUayqT#8aYwi=g<@zpTL<BU9@2@#A1NT23)
zhe{Z;iLUwl(xQ|V>14awuj(>H5sQX^(_qQpSdgaQ4WH8F;6RNh0gBtRr4N9L?a`%C
zScOrousaN?B_=O_n0gyk?}VZCh>qy}_>ZyrX-IjC89baEFQm)n)2dmt76t{;xMCE5
zq61N&dfkF#!4GL<Kq?a*oHV-qS~tcoMbM-S-)0giQ{xVh|8mOOX+xoa#kV|~rZUcq
z52Ba`U;60=<#Ldhn&3d%qmoisonUH8RWa0xXfmD$kfJ{o2??rEHpM;dgjEimw(DIe
z%E4i>^2hNhzfu|QV>dUL3XGVuGTFtIvx}F)!ttf?!*`|8_3x#KpVxd3Rmwm8ANcdo
a4AUR>-dI{X?^n9BJu2$Talais_x}LI9?^vW

diff --git a/reference/plot-11.png b/reference/plot-11.png
index e59cc9852316ed4ce5cdbeb7980e41877f409d06..23a4f9bb60eff7766baeae30b37428332ddbf503 100644
GIT binary patch
literal 35507
zcmeFa2Ut~Sw>7FU(Ii%Epr|CMsGuMyO(_}?1w<6-RYgRk2}qG@VpIeH11KsAQ30h(
z?_i;*2nf>K77&pR(%HcN$K06jeE;*^^WF2Dd(OG{KlkKGB5u}Rd#!iPcg``#9CPk#
zM-CrY_~YsyXU&?mP~o7Q>a1DcInJ6j=j8Wu@k;%z2mSbC?n$Ksa`+SfjPJ{I#~(kO
zJE(0tYu4JU^xtgXwgKZ=vwoVTAh%b|@m_c1g#bO{JF@+cBS(9qm;5~Yn*<Nu1fyBP
zXTG1yvD5G6c5|m2+xYX2p4<2P_!gyxwRiUJ*Ve0%U-`pau4l);|0W^g$@V1y(%)|X
z)jZoleQNsEN7ehGfg39I?J{LUY$xueW-u~_E9ys^+?cwlO>dU}c=;FhmEG7?Ys1O@
z=~)3s|2OngXuw7GD?f#Oo5lXkmW?02qaO}#nJq+r?os@~aW?&+s`zX^{dq(68w2|D
zV!+aW!zmWb4q-O5KTJsxJ8NcU)Rc9hP0-|^NCDozXJe$G!|Z3_MQt`^wY94_I4=M4
z;BDms<pM7J@`+sRKVHU(@6*OwydE9dEcf7u$G%09p$%<xA=?lBlS?n!98y}CJ=(-=
za^Fs)JC)%kY~Nk;Br3|wy0swRz`18dA&<L@o>NEIK*ceY{SS_Ot`@7WuQw{WCuv=-
zuqnU3X(Z*$nKK^6V)a{P#-1-O5YHVib{xp(WG3I=w^({7Zt4;4ZTd@KuAH2lrl#iG
zJ3BTVmKpz8W0~3W@WF$h?HjBMC8mbnw_e*6tkq|~Qc#bpJ=oc@JF_oG_+*|3m$;>#
z%g`ep?{wRCd6|$t#-5nu?7>o5*+tSr?`q5wi`nOBy3j5$Tycz+udK2%`FVZA@|z-u
zX<_|#eJT#B?wbg49jP5FamZQr{;`U0OiCSpEo-FSDwjT)?qy)2D{j=;nY(4I)mP<g
z&g7RO@y|K)cwEleFeGh1MW?FBg!mp<cVR<`^k{>`=RYr<9Qs^VR#CCM&#5}ICDi}0
zCtaSduI`p##fL{WZ?LPZs**P|GYc6twY2QD51Hm~i{HMaofi+|_>JY8y>eMoeU~j#
z8&j5WOifHw#<^9ti?zSKbL>f6T%WD(rhDgpd61r-UTvX#M`U9MtH#K8g@MaJ{tK~s
z^Y>l$xsz=|oL|OW9vs=ceAljBKW++kJQ+7Nio1F7=B5Bs)WB=yHvTo|p3QcZNsUQu
z%IL@Yhs}b*j%;b&X;u{-%F=getTbs9${tcZ@#W*|sV3I0-Mf`U4Dx%i=BJoAk85t<
zXlGO$-)Pb4#LHDxRhF`Sot^x8w#A~C>4c^2l@%3gw|AHv&Rv%(Yjm%)J<}pLEG(?F
zCsrppvfgz<wbSUtPbK?tx6eLUe`mF7tA55#dxq<%WAkNB#gyVWx8W#Z*NGuF{XZNl
z)iv`4GrN}-1q$_5r}SlX#X2(U8SCic;-+#2ysh%u0u9%t>k0Zuw0Mlwmbz7$vG82B
zFOr??m*HVeGy8n6E!$KuXR*{f6UKh8mHF$OyEz;ft_~rtN-+(s6^4WDrM?y^wS2v>
zaX$-NBesd3t$5<0<+^d;#pU@-yWFnWOhMBS$ChhH4GkGR?c$B+kF9ZNu#P`d_E09Z
zvY}xO*^EG3mdzY~p%7J``E#rV$u-OkyqLP+bZPL~ZQHhSa0uIce3drQ8PysVXyEDN
z<MXP0@Q>2=N6E>e25#eRx5cdtTt*T@ybB5n)}=ZWu64+}%xQ4Dp~<N$rnO4f%6o-?
zh8%1RZ*=_fdQ&SNnes$d|BLwp4;H&VF|<mZo@|%p!3SA?_;p?ZHr8_dOy`e@+2+P#
zG74cD{zFqkk7d_BzHhJ7aH0J^nWrpkywvEm-^M?R+IRzt^1Xy|xOkW~g?`iXS8nyd
zGCnOVbn6HUJP9*+E%KdFp^vvfY#Q%MA%ivg`ucSG^mNIUTeX(JFr002P2YzvtSSFS
zdJ8sNbz-Ru_p$Ip9V6L7ZUbHeAN^Ix;6DzIziP9IKU*2;IMMOAH8LvJGve4|%P+05
zD(dR$_w1^)U-uLVW=5AX;d5_GJKNhZukR@N9N)K_F<z3^85z}*-X83gl9Gbu!%kii
zmpknQ2eCFDK7r3wMY1hGE8~2Jyo~>I;U$H?M3j<^?O7GTT-wrnhS`&<($qT{m^*3g
zpHf*?c9eWaLN+%3<LcDQtg%Ab-VysQGVkmu&%kva9xqmz-1}pzz|)j!180l-sn#mD
zw?F8IBZy0NmkAMC<2Kf;z&NHNom}WPZ=K`u@;>Rl3o3D?+X9PL`0VO@63SB8bicxg
zp&IeKHUIL7T$g9T&b@brxOdx|H}l}ruE=&Qb($V;_jiI1oWFMM+Uybc?s%-du6caE
zQ=t=l)#dTQ_R%qCt@SwNVTtD7PdOX1CaRr#3`;hyp4+Llxh?&B+~4NKn*Fz)V{7}5
zkhfK?t8yJ}<W#z~Rl&0K{%-Nrt5-X9%i4Z=JNE9XOhCi*M0IXcyU}$XS(zMonFD<O
z+I^*rFSk<j;9zTdoW&c??Yq8qw|(~1jys3+&OQI`bx)9GhH3Uxuv2G5T3-&6m-k_K
zIG<(i)QCZdu2_(_;baTvYu%B!v=&c4cMlD#H=>89hGC!iA*{*vk0Xr^jJ3PFpT6X?
zusvpx*^~0RG935nD#$(1%EOW{bssM>H0aafap`|PkTaScSIBs|y4GCG4K96Ss{7bW
z9?OFrm(Kp_b6GXm3-@~Q%M#q{^Lae?lH75KMfu}$L%1CUrV$TQ3-^>$%5-VvW*n?r
zEY-g!S}Xox^)y|^ql}D<YMFeiR-PTF50UH39uZpPe@jq*HSD-+C>{IKe}prq|MIEq
zs-~SgcjlQszJIG>`hCcBMZ2qFm>&E@?pVH%-^hcj>*_47{bn=qMl;7RDVN#UH&PRq
zoh|M5#Xn?2s_*XJG-bDLj`i{zejbHGSlZLm6O>i_>-HmszigSY#S7m%7JX>2Emf{F
z3BGW;JFV46*m<Pe@#7x{CKl*cr+kXc@$hh;s&?<GcC~M`tF}yKP8@lv;LkUlUc4=(
zhSyXjSSr0VYEyO2#M8t?+xs$upNf_0@-^3v8ndQGRq9k^#!uz;rADwHLMCHM(6scP
zr0t{BV`q7$`>*<sAf~Le${HweVor^u=6dT1a&mBx@tUW%-O9F1#hvuxk|YM-?r8n<
z(jw1osSP5Xot;1*DfQJmN~Qc8OrBO-^v3<VYo+1^wv&6a@0spgc9iqk-Rlt^9`2zv
z^<2|%{EcQyW1pMD^>xy_3Vhab?=UI3PR8t%e;UvO5s5dwk&#+&l343lxV!0(1~+U3
z=N?8#)OU%s;tpZJ7Q<0KIZ{LK_9-wwTw3gd6Q4PI*7M4hD+DI+G(Sd3Jl);=`!YY~
z@Nk1-1fCEN;7|RR1y=6N`guL^%<`I=nw~jrmblsB5#}fH+&f97GR*FEshXRYx0EXh
zc^`cwpFdA_?D^RAXfDrale1OUNS#?(SsBOu`}Z4jJnhb(H*ZN?#WlxnYe1*ox3Ikc
z-;1e-!j*$oDg_F9cg5w(P>ivB&PXsWYS|<^u5bv!Sd8H^m^S_?s5;X-nQ>Se0L4vq
zTDR%Tt<c8u@^UjqPOL~{#dMc{X}f=v=z5KLR&dj0<>gB)EG){Zs#aoWyw<cn9*AEv
z7k*lu)yDOBTF2RNm88wbKc(&6-`*7!Ff}}1w!dp~GP&A7sj59DGSZWPT%pB%=ic;z
z*D7uaCtubr6nzJSV+Yth<1n}<v9W^Wl5X#Iusm;XU!WwEy*#za$;_o?S%^nuWTc0O
zR{Y8RYc72JV<3bz9@5p|-gEJ3+@C2m<zY(x_C`jn@-mlx-Eq6Q{oK<L$Cd7B8XId&
zLR|e82RV<_niw^|xZLRG24mgWb7zN%yuN;;Q|jQ*dzC_V1d{<8YDuZL^x`yd{8=ML
zX9Z$4zzN*@N3+yMd+v)S74EJv&bzq^Uxa_%;vD@N9_C`)x>nhCE}!@Dcv8&K(ba85
z3^@E{u+-(#j(C^xFP5XPPl+_%(s9H!Fo(6qU2^Kn7u5qb@@W`4-8mFquk&0*dRQ&>
zNNlcQKF?<Hd&VMnEO{bR>@VtA!o%bYg$Zp;70T>R2-V-b{NzY??du*D*Un?omhJ7b
ztPABb*a#=5C&#U8PF&5;ySD66M8uYa+U{Myb`%Na>UlnXYA`kaE&<Pzr`za+(cjiu
zKuuX$nc`SHtZf6sd93+rb;oGaXpXq)Xp((LUDfo{Fu;w|>!a3a5q>N;czS&ADuGq2
z!w=o@OCl#KqLJX1-_<|;VV>;4s=}!*L)PlJtS^dka^~5?Rb4IzkH@!6ee6yw?H%l_
zHZHnlmwDIq7;X*FP{nezU9sbFuv28IOq<lo3Fp7<&}Kqcp;L8caWR8~M!wQwriS*l
z##28=5nc_IHZ2e3l6D&6(~#UQGjL61Ll1)Y?z;N=A}!?!*U45Ml{$cSs|@{o{U1{5
z&PLtdX{st0ZD3+wd^b~edcfCT#`SVazUD0;!IAOXoQ5s~1-I%SwHT$0UFvaCb+NNi
z;cwRZ+%>a_u3mJwk(`=ZsF^!a>GoZGOiauGZgE$7c23xGK9%4#K~^~zY@8>CI<no;
zD%3UgR}kE?$&~1h*$E3bNr-;tw^6BOJ<s^TT-lvH1f~dI%+WUJMDSeK_)7-xM8U)T
zUT?I@GD@)FL#N<}#BnpNv`4>W8~I3vS2H<fb6bqpRkg=v_IkRrM%@{&6rJtytTy!s
zxirsjl=;cRLQ~Ire*@r`tEKHv2tOhJ5`JLUT&)G(UXOfbcJ*crmN*VqYCejJ65!Q{
zt4%+d?>UA~<aF*y*4(O_vXz&&v#ZMp%dc;uD=I45ShY4ALG)yxzWp_zrrqQ3l3iqY
zN~K5j?%CIwHa5+b#lx^Xp%w<?wl3P1DkqldB%VE3vfJpz?>|_--WZr?TPj_>?N#sR
z&mIJ4;h~paUFUS>&^-xZH^kCgQA3^quTN!cYaMta5SNFI$K4*{?j|+bVEfwddyc4=
zx%jJ$Wm@x<u~!FV{JKNt^jzYZJpP55)00w9yFg)&)2pAao_7{Da`lm!_#8UbW97cP
zL~8IYC2i|NN)O1%nV6VJjeqpF1`sVwGJQYyqa?v$1!kQ4l-U}aS3grGxUuw6V&aZq
zfM$u28lzUgzus!GdH;f0{J*&riD$orgL_icp|`;x)wxRB#Nyou-=W(_0O3r1>w`p$
z70XBQOuGgzz`5uvu>242iYT2<*NfGahTD`LaqWLTZ$8$PTk3Rcp>JQJkFxsL6sD9?
zm@Y9^yZf}srNV^7#Kck^rM7@$hqbL1;!+QUjP@X5>Bj0zxfz5^R6PDMvp2)ch6!-l
zWnIrLQa~tpLjPqxr(r{ny_MpHtqUsHSc^+9_QTp!c6N3Hsku|zPQSff7B_8FaQ)iu
zzO2Mj0gK$h`+a%C)rO2Xy92&hJ*~8JC(N<iry?IT@G0M2j?Bxm<Nf1Nrp)7eHi{J9
z=4h!qt#$hRVBqbJ(mbTo>b<H}U2vX;?as-`$&E4_VmAR8Tf;!|;M%H87*?)bx?~4(
z%F4y^m9;_eMp>msS@H40>wuvoIzs&?vKv*`&7Wg8lZ0s6rO)T`AuN$LP{2)K-@4u+
zHNPj7v5qiO76^f|ckh<;Ar7}(oU_OSmsiMSu%@5H_A=r+o;>pLT<;^n`>EtUcWQ%;
z(pIgfKN%p|KVxow9jGKfV9T+V-<KWsfbm#f3^~z}-L}o@8n&<`<p{ac!*Q(uz1L(X
zn-^2I^dutUn!bJQMgoPm#Vm9V1&M8w_g<~u>nBi$Y?}v5c4o4VHElK7shR8f-Tak#
z>wTq`78e%_BO$8+%r}b59`Ri4@?j2l(&Ae$D3!y5_tiAGuyMQzV7;vGCy*2I190Gy
zZb%agZfY8=qR_t8AWMQ^2tl1Jpk7~i0X~@8_9H4kpFMlFrGVS&`c)n`31pfHY0Tct
z)>@MgHb9{J^H}fWL0kRq-MbId(=S{~(SKuf;?J+?>uchM(#ba<b$_Y-kj?b`Q!Z%L
z%60CO1Fuer1WgVjE~GZ7gqdIe8E@ay_79Yj2r$i&UZMqN&8j)~f5GVdKOmOqod1NI
zB5vuWf~~FXc{{tCnb!@7u|Q~(lS@iX)pW_e6oDiFiOYK4hmRhu2SHGzceL#Z(8$EZ
zgonrH?(XYIRYf$_Bok`Q0jR<42nJH#MlXrnIkZzuOkR!>TEq;zq>Z&jUIAiCNlEEW
zRK!+qZ|^@|pW;0^%+P46fO*z-cUJf5>geE*fb@rNkcjhOTX1lc)zz&=<bS(D-KS;T
z5CqFdn{@h!w=5?Oef_oAs2nGzQ&U>ftwAl}$^+@mQmh@~2Gw`RL(&H_=s^5ktTD`D
zy87L_8*g`u1zdDkf;Xy9hCanTMn-A&t%RpqVc2&ZP)V^MJUhFwW;xvR>l$FG)j_<K
zm6fk+KH5kc9orC8TxaEUBDX_ZEJ&H}Y(aP?()m-2j?T`=F@^5qkzjA^^)7HQm9e$)
zmca{!>VLH4wgUVWgdZGWST~Pmc$VfDd{WM59b56^cSeaT2XljQpZmpvk{QtljvYIe
zYU{%}#=wfavoPnM+TSfIbkA~u(oTAo|LII5ea1gAn12hI`5%6Y$czRy*}6vuPi()l
zv$OWP%*aT7JhVdRD2*6?rG<DpNAc`$6`mHI;bYB15Ae9|jLn(ov<W;a22#Lq4fbQ3
zppjOh+?@aL3;cI+zW?5<P}lGM=88YEBY;66hgI2;v2M13_}RCvu1-Ybm^SR!&mI|X
zYW(Wngj#V!0fgWld*`&GQz8nPuyuK#HQEJd`IQE0)YR2i1+6=ksBM&ZtHt(ud`Ik<
zRiy{VdfI>Sci*TUJLaFn&CTtt{6~wV^1glhDk>{)((5jVDyyp<>V2<dw%A&K{Up!A
zg2}kugSpefEZyq6uABT{t9`6dbE?|$j(=EBQ>xJP?Age%al-*gn|%sT<{lLbiW&P5
z<!JKebYf7F?LyJ~+)PE5^rDoOsSW<GZ-3wv7Mn6McQP?|I&Gez%j}b|(%G%{Wax+K
z<07oCJL86>Z>{kg{5w%vb3S#1F`&4kfhDijIdCs!+)yTj@tOIf<GiDwqOf^y!LNzJ
z6B!v9!LKDH$-#i`2t=+K9v&uc8L4chxrN0x+x<6*qei4!!NGx)zO11^?~^D00hrwN
zRXg~2dBL)tY<qLlIQEInsl-}ho#D&?2yY1)8sNa9H0xHlGM;h3^_%H;--sYco%+Vq
zJcC=>>AcP5X3rG@Vy1o)71!5DilmF!;Y^^m)aetj<7b>F`Qh{D$@NjNh9BmLcd~4#
zs?wmNu+BEg8gPEN1-5rQc5K<B1HL{Um4mtJQ5rYN=c%i&Ao}k6!Q5eCR#)xmAd8hq
zf)Km*`xKv(oo9dkyxPY;<BBIoU+;de8Lh<ul=XJSu%+^+B;hNgN(;y$XKms8$CAQ-
zUI6-k#h?6_ZrA_VLean1Y5dPs{8PC0-^9Sx12ZqGZdv|gym@T`n|g1)%HzZA%azs9
z(K$(|8YyO+VZBz0xpu?(_sRoTWhZ}ba%}ak0TbFXhi7b0R-bF17Xrv^H!9lBn#Fzk
z)wfx`QeO_<bDtjXa*+)w9qpPX`q2ehXm1s3ppeHGr9mmm91=}ReGrxWD%thVrx8~U
zJ=29lA~a6rmUuA!d0-cp;ke#vSIt<xRiKybQ7e$>eDbK}^CMq+H)Ywa54{9EsW>)}
z-RCMq>HTcCmF&xz5<m4#6G}L{N1B}bK8}EVE$?GC*%WO<X@kla0|UP9QsdKO1FfKk
z$K)yG4?LT*IL|CDdnE|>{R&;|+p5ueIlZq6Zn42-u$Y6xdZ_F`+~6QkoCGLrUfvd*
zd~HP?`xBjZbkAvmM<>()awf4@tg9!H;l|uAmv?EgjKmo`w&e^N*UZZz!qCG5q~?Bg
z^-3ou@{XT*d4n%}y0bTmy&``K?K{1&$vYX`frsOcJpB;xoB+{C@%03&jh4XAuQX)V
zRXa756oPL7A+=WQLEW#K`ct0-2?+yD8b^mGEN3-!b#`WWSDp(j&KcJ^3Rsz1|5BgN
zU!e|3GS#0519%pOM@GJ>8Tu)xcy&<n@(`oz$`1MNQS#ThsD6CCQtcM7cxYoy%^7pg
z<)x;m9z2YVjiuLHj3RS#a_Zf7HmnHo!Y4UR@|a5Suj3xf?S0FdD4ev?HygQsi0{}R
zM#l^d4SScqiBv7M%eTD;?$$GewIXD_c*RqdCrB06^E%yswNga`G@!44AUJ4;MmtU4
zddV-Z)*ll+A@*yJww+z_#ngE~zI<cSuTCdM?3%ZL&***PAwER@6Xs5GvAW2(X0!mG
z_SXfk3JSi%8h$$&XY$EidWV?w4mJ|#<F_`y!em^9(Rxm1FIRdwX{9WmE_`Lm*xqc>
z3(>CrSQWuQrMlQdMDEVw&+m7;_A{@%@4B@d97MSJx`K0Df6|Vtp*|{Z;lhR1#iG?i
zV}rs*1$kh6#S+S&W9>t-lK(_b=x-p+b(TumNW*zG`j%y9Z{FTeQBfg>04^8p7JsT(
zc;9Ghu${fVJR&(kj5~+;B<DHU+2u#7N4?QIYP<@C2^`t}>TcWbS{4+C=f~chcCdTu
z%_YoxVZdqpOWO*TSkiNxG(hiuhE3ZWOQ8>o9rBArZnNxwZv(ehSAj<cflMf5c_|B!
z?;+9_%8bC^a|xf617-Iq4rN$+3H0hCd2dgG1KK-SP!Po9j3S!HwCVnFZP)=@4Rf*@
z+M<opc-nE+6_P?i!K@gqcwRiUI|7}JcO?r8xJG98eG0N#$H9Rbi>$Mr;b^6%p|{6p
z+o=Y805}m_Us=N(mkaqSx4j%jz;gkquq`#W?M2ObO&8<L_>MckmX5jbOa<Zd3Qp_i
zKM122%x%*3@>NdGJ2s$&%!+xK15dwYqrl|aKFc2C?(4-tp4CToiZ!n26aOTUjqGg&
z=;WHny!chUwy}!R)iKiIu|u3=;%zP0PvkZ|yDe<wXD2~**5Q#0pC4T1<vodN2~Sc6
zdm~SXU?U&mTSgU<^}H=8@ENwZW9h8BVp8Sh@|+pWroAx>>CivLU&?&&_89woKz212
z=~HP450wTJQmTlPyk}c-4O^uK)n%i}u>s@Q<@BBp%CxtU`4SK2UvE|=JC4E^7sLXm
zzD&XC?EvZ7(33-WZN6aIPbHG=_tH>^Xa!f>GcpKXMKA}Ir$xty>14CGE#Y-J%34pp
z&S&(QK5uEXuiqA%_2o@kM|e=nuk+S<R2#ZWgGhYLrdRIovdiYlVLP@XhxhS)h(Ri#
zYnhJnXFO^Yg%OW~SA#7+do7Z!WZ{yi`X7AvpP}N3=p@n5v;Kat_5~XQ^;B;amQcop
zTq^7eh&Y+UvQt9|Qev}a?F)pM=;Gd^o0o%CdDLJWpbV}xT?y3E_X+=}C#V1IaOTWo
z4K1abyd%8In=dtpvqW1FC-!KoDDlg}p!3;}c2B(Dyev4<qsY@bi@%w*;uNUZ0o2Js
zu7M*<EPkVpUARYX!Ly|cskmTUBDrbhHXXH2Wi}~sB=qBKE4)<?)xUU%sq#<*UqdPl
z7a7COt8A#jHKMq#KbRyGOBYgQy2Z86*^mmm?6LupOvR~lY$x(k<Mo`T+C-B=Xa-uL
z$5Q^%ydH9aYdcCL)|3Aa8Oz($0yV(q;g@X3uweJb#g6NF5#L&g3nh7t0i-%(AZb^F
zsN>)mNDP_UN)&Sqc>31r+-bX7nW@$ESwHp6-SA<Xm~~5@1Z#582vH0yu0!6(*Z%Od
z_y`Zgy}Zw5k6KYi@yhq&Tzq~D`x5uPxi~M&Oifdh3JfQo|Mnfx$7vsan}71-t3Rkx
zN<|Ix<Vp=|EPO$qJBtZf$t86*7Tj}oq0Td1^Qf2<Pxc~0G1lkOzT3Z#0o9A}g)bku
zAi;PWEM0#!VFsd|d^e}*mj_D-%u*pk_{59fEqT(!a3rt?1;#N{`<GJs44`WMREdoj
z4qo0n-!X8T?n)xJjp)N1u;|u3$<>G%6ckYhvqtfmJO23d-?Wm?s=M@<8G3o(dGV0X
zZLqJmxTMZUH@oNTf-}#8O50l(yN~UAds}!tG1ZSl+??Ro1t1)<>#RtFyrl&dUoY*%
z)A@*IurNsDN)Ta5WtDIrm6xtL+B0Y4S6`eb9|&m!DHd8@%on;IrWDA>h=cDJa_vwO
zh7#oV_7lIv)f1%k8+o}{R%(ec`#Fc|z%GdYM^UM~$C*Su1n#K<x*wE7ZpyI+p^(zR
zBzd~(ix2+%IJ*ztD>zAZI6@`gM3z}wg9R2ps~a-;ag)-_vv_vn*q4hAEqT|hA;HT(
zdSLAeoG2(MhG**YfsK(Q2%UBO^Og(Gn4`HYY4E}k;%q?tOeZ0%>Cba)Vde320h2#A
zd3b;+4sCq*?npuoy=zuh#7E73L7k+{tGT%eb{&=)$dh5ZPrMH~JRu8P3lp42haG>#
zf8p6~lahO((ztOMW{As|*9y$=AWMEbN&5Y)eY6=+Y8Ex^L-ogX1eLl*woXE$(}sP(
zm1t~SI<Mad43*g}3m_djg%U%01zSBiYk~Gg){SKGCdc)rCW)@?g?A2}&K_Os3E25Y
z|CbO?vuNN?U}^&2*Of~>3;76n^A?1g<hQffi1tW?k^hxk(>W2UzU?jPnxK_XR1ncf
zjP2~4J?_G&cv8`t?wBiF*iiz6i}wNK3dk_jIwj*(xq^B<Sq@L~;)TUy-`Y0T*|tu9
z3}{o!3bA_PSDKJobJB}6bubqwJ5Yy&#G<zLPEz6ZRmVDQ_!V7UT_dOCP0h`>I{dIA
z3gEuf)j2H^+D@cfAV>c|X=Gx!<Vy3CjEp*V#-Q=BX2GcKalp9!(*~a2t3@LlHb$c|
z9?`HdKz((I-ODM5il7;h#%70AD_-Mzk(`jr>lNWwU0rgmO;ugp7~0&|r}%By;2bcO
zz`20I-al1Wn1pgiel%@`XfNd3tofXR-6;jV6R1D44%YQuD0NoUKfK@6!UC!l&0Y~F
z^)-58;^J22C88A-RaJZs9Kh-Q#qfikoZMH_)U*yTj_@$(%#H2`k$OO|md-8~yw(P2
zj)oi&f4e0r<n(E9oHP)3qO_~e$(E3UwKl;Rr10AH^4AX<95NsjtN(m=gYO_9o@av<
z@*=-;cpjNps*fQfw{G1+y0)2^LdWT9_$MS^><@+q18vHV2<wq*1M0WIsl1+l<CA-r
z&c6|P6GN&PyVU^Khn!eMvm#UZ0(<v?eQZG;U0qI&y-%lxt4HftNRbumphy(5lU%V8
z^;+C#deLX~fs)`WPQcTZ)hJ7}q)KuHA#LjQ91Z&A!EtjZnBcJv|3|-SL=@Uu{~1)&
z#@{=t)**C$anjB;rQia2&9(-%qy}kpS{n-HTOAMs;?B*l0*24}n;jx$urXI}sZp!D
zXZBRRGu^T$-8!svKVfh`A(?^Z#qJX6-wa*hw)9|4#IZW#pM^{hJsv1BoEG8LPzj!H
zGn@|lmkqVp5$tm7U9(td*dThL+Nq|YtDV%u=SKs`frVqUN9t<aSyQb^?++_Y=wE2N
zxguR-4ei%GVXJSbOzuK1*(y8TD%*n4WG*Ksg}+<B_+isf4NI3Xp+V{YoTF^_^X!KD
z7XioWu~c_vDiI^7=B|<+xg%^OF9pT$z-1wq6Mw#8I|8nRxgURQ5+!s^rBsquB0w+q
z;uP{h^q@i{l%{-U!)#yrw0Z8%5BiUCa%4!rOts5-t<5w3<nnCYnKI$UU;hCUEv#9c
z1%V7@7Pjpr-lVR0JuiB=t>baXx+i`!?+=*$gCi#eHAFq5ftLI^@fX;?I63Q^rnaKM
zLgFY;GkrY@VN3`Kbtr+aSj={Z+s$uEeaQakr{s6e;p$p@57at^3VeC~4nj=-Y{r^m
zu<j>Wr8UoO7Nj#jn*|S@d9L|IXg2gUH=PFAA2%5SzgTacs9YY4ip%gPb}Su}1yt}Q
z^<y^TrmEFCI`kq7L0}YOy7T2Ztv<UIvuCb%S_Ph$#JR=dj5Qn_q)VL~3}I~@-p4-w
z5{}BSrVlOoUPk4i3fAyq1xSsS;Q}mNP}=n&nFsvwdjHo$POKl6@dadTV1L%n5eQ2N
zuAGo@z3xHYbz9U-Be&0R^KwP~rF6uz8){!RvcbtLt~DETe;dtV_6iL1&7P%7#qoID
zW`dMGN*eGP`{m@2u4^}~N~UzFo-sYL*IjScEUs7ptsEdMLH65Pp$GARMmQFDy%>wX
z4O!I1y{E3tWna(VME+{81J7uMAc|=voKisX0We|F?(Xeei`fxxd+0)~XS$H4Q7M`=
z%9=KmnjUNInl$(3nfx#>-f^JC!-Me8!wjb*A|~uJS8(6hnG7Q&Ng5ToLtIfHZ3$vb
zo|cnaV^?uB9y*gnatd_ptbHXHqn|s!6)xP++)FiWs>++&Pc0S&xCoVYpPu}6^Gvur
zh;YdS<5mFKAowm40phk(t>5jPH$z_a0jVkI&U7-obH~#r%~I$T__(-20f%ZL8p@}!
zRR3G}B*Arg6TqRrJ@lqltd_;<Ohi!azYnpbfhmuTimLyUnSw%X8v7Ald=Q1lN%_0I
zV4(BhuTEN#4^VG5wSsi)?<2hPv)S`D^h|F}KjM<#hdfy8@6WvB^xK1V5K49>vY;2b
zo8&9`>9%Sh8&+>Wh5aB6=RiA^mse)+PHEnkwjxd0cTTs?q(MI3iuB(=P7aD#vGBw9
zb^iXeKr+_Ayx{w|t+F_F_aq&g1PkI@Qc@CHIyK7RNjzQLnX=&}?mG23&l|QiY`;g~
z?6FG7x<CUb)3^5|cih^ly_5v{sUdOMRlO>}8OYr0_5`q<2(Av$NAxhxO<|mr7N6rw
z$?HQveBhqVn=NzH+2?(BL-Z%j{#aq)?6Ec>_f>(0ZWpr9q(G>d^ww>+bPGrd1R873
zICa~=BI+*A%`!veEPz9-a_rJ&?Be?BBepK6S<2=+W-ZwIR}afgmupwvAKtyqCcQzP
z!TM4pBy>V_<~*9%#UWGOCg?#)FB|2YX=xdvy)8XbvmW8mY4QRJ{kSAa+^nBV-~B!p
zlZt8gkzOgq*o3z{W5==|XYSkeJ=dJu3$ESZ`eu&YJHu1{%Eym*EIM%cgqqxby*o!w
z9X+>v?<xQ13%@-t_uEe%uWW8??0&xI{1Qpt%&i<Je{z2OUKdR~=gYJs-*?1DI$Kq@
z+b(Kf9+5FB)2BO{GhCHw)mZ=TNGBSP@Q-{F9M@uKH~%z9#cqeLdKo*4b|aPyzyV2h
zb}AYyq9dPq+^kWqBFS6Yr@Lmv8Tm%V<?L!=O^+Us2~mk;2b_y<6}EyD!ZNc-X<lAS
zq+DZAO$D8rL6~>^&OGDhh@Tp%=Um5v0$(|H37!1nbp@#pJ?@Q-jHzCSA2iqx{KmFx
z>?HAWVeIo6x8R5urs6W0tZ4>I=_%WRT{MrVA5#)jwzBH`(;yL^VXWB7Z5dm|#A;#*
z)46BO5xDTI9s++LwV<p9^wbztMQi`HVe%9wmo7xAYK?GLh<*MroNvH}{Wg(DA5Hp6
z-&6Mf{f-Z2$oPz)ry;Ytz02-wMRj#x2D=n^ks}V<GMB~74RpH6ey90GGhX%&r~c}P
zdi1raXw}ys_v(os<5Ul0x`**FGc&Uy${QJIpv!&so3u3$AV`=`ViTw2ul-SW0a73C
zOWK~si}{_EQLTR*Shr=;8K9MPLm&vrL&EB`9WCJvyg)On2F`4ohuGBjkr+iAWbY!8
zu7^hrP<?Ack)XiunH(JBE;7__l!u_qxmafGcv5n5zOs1ZhL3D1LCv>tYR*nhZ2dCf
zhIquBd^C_i6k=w@hc*cc1ZnWNY&8;cupOkXye;eQ#$KSAFvJlNULlaxo6+@S;OQ}v
z<r<{b8v+zkrxX%q<o)R-Gr^T_Gd!-B;pD@9$GRj_Zr3S9g(HqGXneVuF=JpH<O3m@
z(sz`4SDWdIr!wD{l9j)F*vXrdt6?M$GEv*%g0s6AX9%d+Y>glmQS@tM!ugK!&pkac
zWA@x2^GT;j1#4sk*)5_dTtJ>?HdW^FTsz&y7-31nC6ic;(sn3&GBbDI+NP^9u$q?_
z*wtkk&njTAgM$O8VX1hF(Y638Yy<}fgN#KPg0ME@F!ntxT_`sF(_KU?VltP3Pq-MD
z+kAz)N@pck2C<w5?o-2|MF-zPv&BJz&vN5aC8E`O%iIC>{RP(xll+b(k_u#Q7dhI&
zRC*FUs}T6dZ3_G-E*XyW1i*}^ynrHQrH`NKC()M-@Dk@V3x0C**Ys{ZrFT>pg4Ajh
z@mxhkr5jB|1Aq9sY=EFH1p>uQEl8iu8r+yY)(DV!Lmltu%XYc-IWxFtl8&#gK>dr-
zPN<96w?s4uh}4a|ywu-=vXx-QTVyRf)I5P>{_epnXz~yh*UJDsdlGGAP%}C&cWopO
z4!xT%?fkNu8ZDo%jw#wN<azxjSQrXh%N9!y9YF^JFZI{N<xHH#qXOR{>^3<Dt?v1B
zvBk7=wzu5e_Ms;ZT|_A;J=NeI1mf9V=VIiMTVHiSN8DCOUUI06RHtb0xwF&LgXDU#
zOM}?v&Q<niWk0f?G}vkjdTl(YpD(+8!UYS!?n8sM##p%uKriVh$&Q()47AHDpzf0B
ze>SHT;Hmzz8S*8zI$KW8rT-ESZtrx!qp$nm@z&}OQ|LTV``%#`HcU*$!|>BDgX*ku
zr+)MWMCr8&m<h$av}>`8CLz|p=HUT^FF?%*H7L=c0m1%K9PY4ZzVCNgY?pCK6E1_|
zkdzFveXrp3`o~B$`^QS%r)?vOW(cu(;50%VmkZyAD+@@KwApaGxUzyGr;t+qZw3N3
zDW^XzKHl2@mVUOA-L<Hh_ow6iDapwz){PDgWyL?>4Ll2B+g7Py&?kTY5jkD@ef(1E
z-frZa2pQN7n&DrbKkf+dvw7gYLsNQLHT4(?N=?&hd<7EnL@pdyV=cE+R1`o0Hat!Z
zOm`Prd|0}Wd=n*h;DDeQslkFN>i^9cFQ$ftZ6p;FWGY#X)`x<nB;C+Jwjb$UvnajO
zrPnq@x65w<@}^-vM!-w~<8I|mqcBPwT9HLryL284@gx=T0ojSN<Y2>5olL?dYaBoP
z+P0Z(9mn(d$5&;!%8b8ODVQ&mwFJ_s^JUf4hd|{^@Psl)V@24{Lq0m;-t&4BXiL4R
z<HowyI57XW@8-9lJ<kU&!f`N&v4*s(MyPGIHAvBWo_WCSI{^28?T2G`kjlxyZIPOp
z@9;gX&SLh1P>aDTk(i$}Fiy$r&x?NavHC+Jw(yU>gX1m{n(XcHjD<{vH20kAgmhD)
zE27w-_5%xn1YpEyzOPlz_$Sr4zp@hS5IyMNQRhXDmXG^8(y7co`4Z!_*L4uVjyjSX
zAgwMt=Rlf~r<wER=Ge1&GE1y36zM*Uwfvx*1I_CeyBVClUKQ>JhoO_TT8CwiYEB-q
zmK{&p8gH{7!0~g6ZZnC&EPjf$GT1|51{>KQ%6$YDy|&NsK!oNG^un{bX<s>i`Gs8z
znm{qUSXc=TquMzqGn47Pu=3{QsS|YI#YnN}isY!Ms3rZD2a&KeBf!btQ)VyS(?x-2
z=$KirHh+b3@?YDLMgG#d9DSMby6&JgVp#rodx-1@Gpegok(pnOgWmb9;0Lh3U=mbR
zO63jNd-Vq2H%)FnveRP{V;?U03$kB3enfF)zgvfrA;_*|p^o~>O3@F4+&19-ZbpVG
zi`|}}bImG$cxrYZ5+;f0cIJjvGhp%5wPPCWixoMmWzs)Qn^S#l#5s~Fqn&g$^?Fi>
zCMK95*jk4MVS=H7eH|TaY4QFL2J}qO=B5Xrx?*9`qvPAv)wL{|Pe0+E_@!Ev0|`K(
z71=^lqe0-|Dk?dfzw9)X4ranrt5sFIGh*fEtSy}gcVtvls*m>Ylsid{veq1A-qteJ
zzRlXWpRqjf^0=Yugs-^i+GX#5VMNEU92$3yc#nsS8wv-BR4v@}ewBuhFPxr)*W;4+
zDzf^HS-_Q~{ibH-aG-r+b0OqfkmhpWzyTs3_J^>ZFLq=1O}_5jmYQ_6OaWw@CooKC
zk(NsGJUi3_4-coQp~C!TqFiEcWay_)pVV@MTyd1Dw&Ci+XNqS*+fC%CG27es80kYc
zdpSxW5cjFJu5?PB>Adp>^*22^`p8dk{mriwX@`hv#DfPX9x>KOsjn=^3kCS^4B`cl
z;%A1}$?|~Gddu>x35btnWxo}>uzR0@&9`Vz_9=y5LDl>E88b646zd^?8|Z(zxDeX-
zHNMg#TK629E>J7LCVhU60kkTMIypJvLxoAgQOUA9x0%`u3(=Ata(>md@wX;2%UDAy
ztbp^Y?hFD*iBaDzK>^s?O6r*?H{PS}2qvpFI<Z7C<9Z%tUWd`w8CrDw_jD=%pcp_f
zfVw{7hpTjRQ;dKSX0!mC^yNS4K}<04Zr|dK`tm1F7vEh$y=i`eb86(iY4SiGS>VK?
zIytjDQH5M4JK<|cw{3+|{2BxrEA&+WnISOe**q~>6K{k%&Z7;Yfl7F>d1xFwirU-=
zq1;Iu{;tRXgusWhtz<&t&WUy;I1P6`EUZCxu$q2-SwPYErhw+ko}jZb!Ms)1?eZr+
zfxeIGoH`ATVLvk*2>3;1s1mSLS<b2w!=?kj!ACxHeGfF-e6~C+H8u4NgM`+@jyv9&
zIQk`Q7eB1XDiS&G;PCj1?eodFu}PsVpyke`I9OR(@yl{Xx=yD8=2i5FbC|hpxq)_G
zbnOE(`wN;#e{%oip1)ux#FyvXfEF4(sNET@3mjDN0BgQ%&fF}NapnZKW#SaXf=a&G
zdI$FQVnYgY?VEE<l6CQ7*+pDcDqXd+vvZkIbY1R^81ScO7@-66wKt+&ZaMBY<VlP{
zcE%Y7%yJ(hQCW^cYv4o0&fZ?ZI&tW6Be7KF@82IwvO+_SfSz*3(8x%*O|TT?{Vy6M
zVtzia3R9gw+X_`r{?QY*tu3~#WTh*=Y5KJwZ^IpkNLU+T!Vk{5mhY@GLFd1v`Ly_0
zd~9;E-K+YD-ud>6z!mxPo-9^rpYb-oJlp*}5etxaCMR#yoAImM-)3>MyJNC03_=R<
zCSc1Cnrs)=e<gCUBb81lf0hEQFw@@=h9w{kli}D4@aQM2^&PwiS_?PLly06mMNadX
z!QE0r4gTf!%sGwI&1sTid;6b$Q0E~4kq@`Dl=!?0gP-!zzr%?-ps-~_8oQ+de%Bk#
zBt4fiMcLU)=>E!iSsWZx1EkIi>T3^GV!KDKq{!U4GczSL{=tcV&6%!$l}-NZY1qFW
z2mb$eiYFPN^N+hmX~y{wn*YP1y1M#+e&gN7hv;2`8{;<s7TLE3?KvwLNY*;u*Vl7X
zC*0CnQc)w@Lo*bt9J^98>k2}PBRcI32YSAlRr~V?<p=N<RGlj~-VmOgtPaL(kDMI%
z`^aE!6bOEFoPBY2`d{(=f1c()fhYf!W=RG?o`b)gIt#(3Yr142t)Mm&4vxmgMydvT
zRxja*M+UXBa~9VRY?9;1eoNp=$H{?0N?wVHIf+zWA#nB)5y3LHBf4?)zw$2rBe!_v
zM*Tga1Ox8g^)~6mTC8}&mkkth62uVVunx-N+cJFBm^q0Mm9J=YK(C8)8VTFWa!k*h
zc|s1qyj(TO3fqGp4*xo8hG!V`e~KiK$Kfzj(+D~YwcR8u=nwQM0%G%=VbI1(yL&zY
zBzK*-w6ye!SU%Ts3323cmkUY023_X2QMKFIaRPluKWh35f`r)5<nw0QY!nq2e{A!%
zqeztiPM4Xb<>8Fq<)HSz%UU7)4q`>{ANv?3Hv&)j4-XA3IQyGU&$7uGi5lG&_V@n9
z6A)L>#UNUL&Us|zIa+*9MoxYvR3Gbk@QamI+*J7YOl9jiJ<y@$w@VO+RAUOS;E1?K
zn|$Rrfe7nry)O}h3-WJsbBe!Pvq^#Im7+G)AWk)=$<1*?>!5_vMV~_7o%}XyMG|1d
z-s}hg&DiKYq8&F&+l}%)SJ34MXhd&z68j}tMIM3Et9N(h^skv1qVdr6SPxGcq6yuz
zf1#odlGm~vZTz3mAl49&0)sBT-oqIN6+CI(!Gd7jarw0F_4QplTxOZx;}#baTUqi=
zPj~mBHW~Ao;A%3h`F77>?gr7FJD0mj-YA%O>+MzQUCi<<WmQ$y)$RJ&llC<t{bO43
ze~87a2cD<sx}bQ=<9kc7@`nIA?;*Lxp1*s3)sYp%5~YDaCrmqU?fE0r;fk%zy@AAX
zub#Tdgq;6j&&?;F2Ey;wAD;Lhmp<!ngztZ(8~UFJ`Tvm!`40~@Qn2HjauTyyBWo+9
z(L+=bf9=1iaQ3`4OPu?%9Y~&`&*og7>3o~TYA4+n&3G!Suh$(*r6vLDh-FJyk@T^>
zx&T{ar4^*KQ;zC!)IaXi)YLSFp$J^ndbY}Jj!;Q3eFIn`E*06S^Td-W1hVn{)0MNW
z<QmYsfFi~+ni;Uh_N_2YJ3?W-z?++s5>u*sA?>5t6$*iD9l((z!<5YVa$BZBobLnT
ze>m6*VUM)@yu38}%Cl;whIfOK1eEOvHhNGpb^20VEru$fTnZJFYknsi#@F1&VTQ<P
zQG7V*wQYvM1ZC8;l!F7KA<X}F7!b$7Iw;C{TfCPz?3-yaL+u(De{ARXmR452k9>AT
zes&^_=xrI-33)UAl<Bia(c*>3i+EbG8fvyO*U-Ar`;Y}jf6h6ksoD6l5v6gj5$epN
zKmh6pfdDhP5D2Kp3khgnV!RFl(TbiR{E`AEN`w2Er!lq+K~^7%anBKDWT*6QQj)vA
z$K~MNCV!?|D=XWDB%;i4n;PB3#_pwC52Rb8DnrMjyp3Z)X;a8aPp@rA^Z4~s0n`X|
zR^)bw99(CnQ)BTgA6S{ZQu0}XK+7TA|5KCu$#*b^^AB%82nT9mYep~%se6@0XhG0=
z;w(Oq@keAtgy}Q4U6?3xCHcJx-l<=9ZIWitQNTR6zXL8?=R8z?yBVwe`IIB^3hA6V
zdxFq(9u~=ZA_DUKq3aIRyfHp%MeJs2)I>8Mx+X$Jtv+m0SrKu}Yor)0B2gJu#6Bij
zH4TM}tJ^V%c*mLn{6sRtp`bs*0Cg1EOKj5Y_5x@qteX97E6=c3*5uRMJ0#irQ8Qp2
z>OELf2udi~qZj6Q6B8ZPx$GyJbAa=Yq@=13J7!UBuqTKHzC|)mBZbAgpeT&&%vtrB
z`6=Uyzg^px%E@9;Uebjy#tOtwVm^lTr#mK={h}C*CUox(6Eie2K657mo|69D%d)G*
zOUMU&yX)9~c51s`9*pD-_Y+5lP5OP<O^XH)%{+|LhB8quTGH0$&x&ji${2>HIW!Kz
zAdS$tqGf8lQ(T<WP3I}*twhRjAJ<3Cn~jCdUQFgp{U$0~*uyk!Knp|U#MTx&wA${6
z)QcJovUj2PF&Gbk43#Q8a?#^I>0++Kixpu-Xt?13O>s91waedOG}D2R3e5JiVcx5D
zgm2&C0yh#h!70?W8X&TnQy0qAhzTX$p=!X$wC*?9DU_WxdzKTEe7Pu=Y9y#<Eyd#`
z@<2Az0()j;WaM{nFaU)wM&E*{Ayxw)eSlRIf14FkIvJM+(TNmbEO-*m-mtvYcvP2_
zmgb;dr9L%3&yIHW<sDx*g$(XZ6v-r~q%4yB5YszfEdOrEkMeRPN!vUjpNp|k9Pyvp
zpRggm=}|Zk-2TtShEI<_pKJKuL8F(ZmU&jPne?Z^-~v9`q<?KBg1le9Zyep3`7`R5
zKDW_K0Ud5S)3ZI1)MX$s+5ZxQzw+@A*%c-|2lKLr`>i`89?N56Rx*s)?F9!zB6DBs
z<lW`=b3qB;6XVE4zm}v7y2k(FtACGV+d$3s*?p`#GOkW~*7+;g-kO*%jH~b^Zw=K1
z7j;87TQ<(z&(9xv+Lf)G*t714Am6AzBbbs;|L*|#DnnuJ=w&H4Uho-mT^|}+0l$wj
zK@IjHSyOK=Ynn#R!LQSZl&p5?K83W0Lynj;(}MQ66LNChI6@dB6Uo#d_Z7~;<i!JW
zc~stmg*d|C3MqJ@hy~#<jmvPKEOg(XcQk`2;IhWXwbXewS?xZhS>6`<2Ay^*X+Q`_
z+_cXRz5E0>sguIj5&ImMK*Nu4Vm=stE6QH%X_LIX#EjN}{HE)T&7GdWN9_jvRkH)*
z6X~j`I*l1O86F-q?qw-i*)kkTegx%JZ3u-xZjgqWPw%J`hP>=x4}e0!2~{j=zN7QP
z!6v_$?1Q4gnMM>UV+}rcbZi+SPs!Hbr9C`9j(Yl<qFdX%KpRS6){H+cJ_n;?3TdPu
z2M1<9odExhTX&l5zbbnjWl#*pDUoQsUUN1oW@+r1<M6Hf3^bnU?zOY)=<B749@8k6
z$>-he4}&s?b~}`Amvd_2(T0^};qSK&6@xyucYUt{2IhfP3Wk&5XTd;$A!V76YVocy
zJOM6b>?oKzx+eM%%AiUr#I+Nr*HSHsw1n8bT<>MA#&9MLE?X@8kg_a9^_z#3ot-mt
zI@-b63JeuPY9DPip$!S>11l)Y#9iN)f?A#Lng|l0Gsw-!*?B(2yeC!@9kSvE8RsK%
zv<ra;R?=`n3_#OiM7L6fd2%?;-P=QS_JipQFF^uoO2mR<l0VP*Tb1Yk7UQbvmw$Id
zkd#I)AJ_AsMv4u-0ZBEO?DTiyn6{{ZY`GRQi*Riar14R{y>@rXJ8=x)+edjH8r`u}
z7%B<38v?ocOM*zC_7yS$DlUM$;-P{*;(e%+!hI+nwv)7s!^}sxX*=wJU<`z;NX7|9
z5D|)W8AN5FuL?f)4#xE~C!R&C<qtp;%lHm$9x8@#DF7K}0<x!-6Q?2kKZFCJ;N3P<
zjEP$Q+xU#(fq!&;KYAgbo49)Ftw(>``7IH){m<tWBJ*0wal$RjhwAq!2+|%}JEpIn
zN_SzHv&*0t4_SW|+5PLRCuMhP?Dj15b@^ga(q@`W<G)G8XU-ytpQu^%M5BeZMAzCk
z37~P=Z4LQCZXBfdK8cb!48$^r6Jrpc_N~$G7}=_wuwk9+P#K9mu-DzMp=F^ERRwlD
zhD0tO5JI5ticO5e=AtH;sx`*iElz8qaa#7MsQsL3nkIV7EE}Ihx-YgB!pjd}!ks)w
z^==4M24EzvuaW~YN^la1!u%s6K{m<R%exFvO=>_pE4%c9v7|<r4Rsyk)(Qw@>slmN
z&P@$$%i%7`G3-cLtQo-+H0$AsR2|j5RcG*{f=kXR1<6mw>uaH=q|u@D;6RkH#ZDc5
zOEHbEmD+(Z`cgU=`gkoUK?w4&g)cu}U9*%*oqmGxTNOpa%{yH-&4=B#2)U0dy$uo<
zBKZXsdLc3uB$+PNaJuopFsI<@bK@wBt^E1Skg$Qx5#yGOl=o5^VJBpQ@&`6!#ND6*
z=U!u~Kg?8(oSmzkEnz;^7zDK+hPuCccZD(f8Vn0pXzIm3w_Egh+sg>kCq;r7szsBj
zW}DTKs0W$Bx}m_TKZXn#$Th5c)7uwmRg+Q_+hNry0Z%2}TxnWkXryej-5J!N0+mC}
z$6asKO(d&!H?*ESHi{*7P3tOYA0$0rK5Md+wOpTtxX5E?XEm8^zhS8H$mo<}s%x5J
zql2~?>&Q)`kRru;rLgi4A#GKk3$+JtVFfW=>Kb_&Xk{>~4wFq4(;`oibO~cXms5&T
zR_y|-@}Y5kzp1MioGT1?@YW%r<+u5Q9+)A#+%*RQ2_rE3VmP_f-)pHwj>?*~9#tJ|
zO!8G%C^boxS{D|_`{pFI(4g9O0CgX>)&difM1Xr*sq>O%9}dvuJ=Ae|Hifv@<X2%0
z1BDFNp*f=zap6~2Qn=9gKT3kY!kv9(p%5vJ#OQR%y;THc58d6lg#bUMfuPh(lB;X*
zRpP*foFu>|U8%9fzPgF<+*V&%nME>VACx20ReJ=goglwA0`?_|OCGiXdxTPA$*w3h
zWkK!xZCX|lK3>ne#oNw0Z>e%cmkfJ06TI;NwwrL%fR6+9%7XAKB+&r+Gjy!({PE6V
zU*o7i?MO5K0fuqJ)IRl+R#DzY3!yMYx13YT5$(q78)?+3uk5rVO=GowxlnwA{^5rN
zfM~&iT?>iSIrjLlH+=iwdfQ2JP6I~s5gAvb&Z3mj;J3Q>wn)JEVGZh+8t71Q-(`=&
zbqzKg2}8-=i4R6Flb{X4?tG&7i8SDaP36v&H#?_F>l_0rT*P~f)XN8JxB4E4eXhHa
zhEF0?Uc->R9X=49(g;gbP^q*-E`j8Ay$$IkIrfZkcv3|D_Q;93DQCS0nfX9fYK|y`
zS13C{tIcJj>vy)4dZlQdG*F>5WheUqTyYgNkBhtkVF(Tm%8-YKh60ionsx<EpFR6#
zw_aF0gBrAGKG;djy1qtZxM_|_<fmInB{tEiYK8g7$<<&V7$luJs)ytN!XMzCp8$#D
zxJ1vY;Ztao3}MP2Hr;#LWaxX~7sf(6M%=0Tt5IuQ1H(oZt4sP;dz??r4&Waj_Y(~Z
z4)i_+;?e`citQr|cb3G5i*tZ#tZ9%KS{5L^iif0hKT=1W8^X0iWL?4*bx9stwpC3B
zcia;;elmDJS^|N(^~SzM*B}Pig(5X374JvtM;Z~DOGiV+NW(&d(5h@IMc5Cc<*$d~
zH&`3(d!SO-OF05L0jc)ba{#qd;q>OaKc_wc=qVr_=nwRU{m1ckt?f+U){PAhKYft4
z#-)K$_=C$9)D3NJvANo*s8&48ufQ!TbZd(HF(0qcvuk=YFh8Nr!-It83M{AK%Q*sp
zs#r+B&dj7F_a_NyrNUoMO-b;F(K?_Br_~<~QaUE<G#<eXBjf>Xp-FII&S_NBJv>DB
zF1OlT4JV6DZ4_jYf+&wlvSoR~dgHD9l}sxsr<Z$}1qZpJ-lX@LxJoVU*U$n0dK)4u
zOK^&2{4R&Y%8~~D88?1HU-HS}&PvRNUwp%Ecx_%TYViUIO%DWhV^bD5G`2-Yu|(&J
z+bchZ|I}1n&5ZF&sF_xl6rAf<C5+~gLg<!OaUA`UxFq47Lz`+OLW`<v;4M7qm7|jK
z!O=Vi!oJX?2yzdG&{Wcp%nqBSfta~~te1mhe{Ov-u8fzLnjkzYZ`!xr>pQg<*W3KI
z5h&Z<|JK?cjE+V$xwn?p&8-ucf1#xw>*~JY`hgCqILF^RdV0L!#Y8MI_>!iwJ?hJ`
z2cWfGgIF3*^D0u`5}+MJYf0McdbDLsr;6?UOABzn1#=z>bXa7*P*x%5JUaAEx2uDK
z3)&*)Wydr}W5?Z!+V)c4L9)vUDnPi$z*>kV7LL_nG2*(w4R}#s7<=3uqz{;GolhD+
z%=m46%2EvaY6DLT^9x3Tl6<xhbOL4J!5&G^o{vag4uj)XV_4zkQs0yA7kCb?oQTy^
ztQ=`pjO;5fpMDT2mm8Mc6IvMlwn#n_X)1dHJ!a4;{k-|777EmunOpcBr`{48|IlJ#
z<*W<hil71wrW_!dJ~}Dq%eseW4c^~b)IK<XsqEBYycETffnOK99QPNxxnpU;L)9!+
z!J}adbH=L)tnhgEK`!5KvyA-^wWxQ2k^~Yhzwi-3&m-lX)C4nUQOmfC+rjGcj^18_
zJ_dxKD><xOI%;p^%%Rba@QHKnHkJIfj0(vnMhF=59WIgx-mpq6z$`l~GJ>TqL#-<4
z<+_d-N7~9(#3x_0h<T?xy1jEmccXF4RFI9Hxp}Ta*X;z*h#p$YPBo&B&>G_=Id64f
z1_sg>0f-Z0X@AkE|Fvq;uJx~fVcguerC#RV03Yw2_@9-5b`*znb?OiAGVjbX51lCU
zbz6?Qh&3K8pT1%w%}yOa2g**t+{rK0&Y4hUi^sy&eF5R9idIjoyKYnLQ2rUAlieo?
z1?+s2pDe*}VaUA8qkjLv=c~6E9o;fxtBF>pE=2RUyV%24ziC>kOX!T?2O`k&91r5f
ztf4|fDD38-wXASj1lEea7(h`K{G6uT0+$IVme3y5pe{}Pvh&{XBD-3fWMc`@g$}hR
zkx#TzYC}T{p#^?=8^~I_{z&ZbqSSDtS7Y5KvfQBGJkZ+$(RmrV+#qH@r-v^9AX#xf
z^<aM79Ul0wKrt@0BB5gX`8v)^jaE&A!J`3L1u`#9-5I6t3?aa!?}BKBlE;_kO?y*g
z3hG7}O)Whz)#olt*(CLI8X?Zro{`q>%v2SytG~LVNlwkp{GcxLYUI7CTO%p{Sr1^l
z4{4$^JtGp+&z;H+zne8wuEah09gQV#Me~vm=GT8tb$cVsP)M{>`JjXKBIHNTelKgb
z^#<?#FI`#Q2h8dNT-SRUsi(Imu0H|acIzF)UL2hI=a0%oD@?&Z*4&039P`mvUaP8f
zxSE@@)_&iFd(DCoA<>uGeMbVfY3g3d>{YEs<*XHV;!VA|l**D&QTW_|apa@rU283s
zxhEo&p_oEDz6|vPkC7;e<QYgijbCy8qGFV*uBuU&y9F_EG{_;Vb?wHO_}u2CT%mwY
zxFlS~dbZFw*bMRf(xP3PHDdL&$GVs_NOrN7Qq@Fkz?-s>=Ii1dH`j8P*Gxa)H^~jl
z?%81WWH8~6a0sv|Y*7y`2`v=@{dd6=>bfBPVt?@jO@N>YyBMiPqh%U^aM+{LNrV!p
zXQMzu7JW<p0H+-P)5|s;zK-S-Vcseijcpjs8H-*VnwsC>&YH3=+s|n+<m<QIV(aP>
z#0{PL@NRDHHBtP+A!~nVJvvd6Uh;IB)7jG0^jg`Y1CLvNYj<_OfUvI#4a-dCQ}q6L
zsr{-Fr>hy}>2)Fvc7X}8h*;ElP3Mn?M=peBziqGKsMUt->Pys?zI<+fj@iJ1{p?8c
zZn}95XIEz~V@Ut~4hy3<;3+g5CjoJ-E)@}>4uApSOU${`tyfOP_hHPs1y70NvZLwo
zKgVD@hZa=qOuGLu;ETkYjHuWQewx-!O3ccUy~5bpY$N66&7p~_=xBNfn1(_xCZOeE
zM*C_KkkepF+U~zcDf_CHI3$Foq=-=#IaXJlvy#UA)9h1gC<+&+y*;?b>&oCXw{O$a
zEll~9g^`NICI?<Peq7MBbQeI&Nu;i9|3v^h4d1%3o~;^UkA_B)D)!myao`s|Gb^X}
zL11dAH>a$tESuOtj(B|FLMPq7tP=<>V`6R`5Z)$IU?IAF;k*CqPQRwE=XdeUsoj9S
zYQ*YGLR)NngN4w|q*V8`!u%^kJ>ss_+f?drm$Nn<1ywaZx0(Sy)Ug3y{DNt9UD<q5
zu9`o#nKRE71bMu<zR=W?b!4MtIA5c^-%+2|%|&c7MJ~?-dbi==uH9wEs4H9NaX`P4
zN8tr_6s_f|FafuNd_UHrR$L>di{`hpnZmy8(SktC%Z^+e#;YjKcpV80%lab3T1uwC
z?vSANvwpkvc3&;c=-8-tw72@rd!;_V4{T;W`o)s~o~)Y-8{lEyJ$16R&|G)4!t+xn
zUBOkEp$F^-gFY=UM8etCl@9*N%2QVR#I=!G2<W{xf$)#J0pE%M%~lI~h}!?G-~E^4
zOzRTduRk>}j)uz~mL9H9mSLVDlN^Q<Sdp?r&9pmJQPGyEWUXg@km0riY`mJ!7HHl`
zKzJaJn{(1o)7hD+6KAM-i)oqmrg5ZsS}&%-XkT5uteS#PghJ~5Hv-kxJC~Y&-hEIe
z#ISGtY`Ftp^`5;48MagI!`eNH!i?7$-aU)gU!Zi?u(-AC$cXn=tUxfWz`<v_d`Ph<
zJ0@{Gd$=u4exaO;M&7cSTgu}~c6CLMG0=XwFu2Z@=mc-^rnJ|r`=~~9N4GtFxd=2O
z)bRG%?V1>*F3xbV1+8vY9G+zT<ST4VO?6<yR#z~aY+)u14hD<3#t=g)uI_a74jpyc
zPR##{!13mW<3D*%X(*UlxFa{S8)jHhhg-_%nY5k|gjzW{8U)6z$D$OAg9DU_pk7dt
zN)^*mf*;<k>0RhOqkSvuut44sre}8FRF7@l+$D(bBzef#JK^@F9_Bfg`iEnRp0I1R
zwF|yQ#B(kvrGAK@F#qa#ZRXShlN^6L3~xQB-vlpjeW}!UDE`coKKEqb1N$1q6GSvN
ziiQ+VIBxh5a}gOSYF|$G&X+6DgoOgi>QG4W!nf)aVBEwoknfH+1}{Nk&{x6qqN#wq
z;7pSx3K=aJNbTL*+e`Y-xmIgzz+L5Y99Y9avRnnC8N9Y}a?n?lEK1*|ko?%HKZCk^
zsK!#T%4C6A|LU`AO}m4rDneg2Q;P8dI^vZCP3ZIKYa>wO1F=9;fA)39H>bww6&~Ce
z7BlryQc%n;cZ+8I)%VkAXaI{v)Bug?!F;lWa~5S^C1Nv8L1vA!j&B%lJffD+^HSX>
zewPxQpiQ@}w(0JhM>{WQCx4zlJ5n^Q0W92)fmbAv$hF)t3Epx~v<BZ<fGKLuU#0B$
zDhWOflhq6Da{RxeN-RD~guWdpIVaH`Yy^b3JY)>){2Y2?YOko$Nzo~IXp_ZS?<%#r
zB<GLI@%*pH&8rF@>E*D-yVNR(#HP|Fo55UmSmHr<y)&`kSk}f5w&40a2#15ZOKP&E
z@!B+`gucLMVerpV6~l{6Y5`;89AcWMC+1#UrXnRgf^E4sb>p@FRohobMHP4L9xwnw
zx>OozNkO`iv`A@`5-Dkr7AZl7MwAdq>69)(M5F{AI#r}Wlt$q0<Li6Zx_{oazVEF0
z3mE3i`R#c2vuhhg2_bfPb1ro_rChGyusQ&B8*T2*eu;hGYyf?-XzKQYac)1_vx;`M
zs`<0TR$F9)WtRchPIJ@(C8<B-vyK>Dme=ML6LYso=4)v``fHa|liZtx98;)20Kk$h
z*Nh{SGTLG{V|}$ATEBj~9v<;hxx`<RY~9ts)+b+Q|2Lb)M?wC=(|(6TQ0{fx#9eoA
z?xHz5rKPUlj}P3B;id?h&PD@QRz9zPi~;o}!z!CB`CEV|U;vc(augfN2kamAfAmUt
z=PSx`_+LU`Q8KSK0^Ns!hQes?I!{FtI&1^jEi#ze<kyoXDT?+*B}+YYL4iRzw7Z<$
z;}81lI?|viG*D#gkjj=bphY!P+Hb$4N$S(@IY-61A;|=*@v*V5aT<J2P<aFc2}^R0
z0(?9fu-_ApN&ciU;gIWyW$H>$*`1=Qkuap9!RQfV++&=Jh9;{e9I+B&-(0HtdTPu~
z42#WmmoNt&RebJc-wf%C4I?#lo!V`wL@CQc*)Hzv;I&9mF!7Ae9!hY`Uz8Hv@lT(x
zQ~SWNQzuGs>eQ*%Mm2mdL?2)rC+nGoga+?2N~L>ET-(BHZ;@Q`l(;z&(7HW*_3D09
z<@V%MJ!GcKJys2UA>$<G|3_?XvLS3{<_<bdeq&>U`uO?I4~u&brae2F$Ge{&_FdR+
z$)xj}XuLm7-<9~1f9j*=@iR><DJ5mFh~3Z(aLHoco1BhQjRbEDqa@syGJp@*ZD%|R
z3=hZm3|kc5Zp<4wIL73iAs~=<aS;Nl2rpIAllb}b=O6m}RaVE|kTEb|Zlp=PQVb)e
z=HDt=S-+aN^~b0kd%TW2wPiYoIlk9aC+l*OpX|R^?6a?QjWE>u-(?y>V9N4;FaD1I
z=P%8Jo`wJS`k*2B7Pyap*Y}*{8R#MVcm2}3_7jQ&{#_5b*u5b3|93S~Qv82?+=tVi
z>r*h#FHqrCE7&dW>qg(bq0Vk_uPNZT*~HyoiKoOqGF(bq_u(o#2Z!RTTQd--x_EM$
zE<!*Fd&3sK<WmHbt`UcYhZns=zm4vBe$&R7=EkK5HI9=NOLd`UzFRf-`qLA6ID!L}
zvmPmDIlJvTIz+0|Zodi+KABf-<>kM6NbZndT3b>4^eNFIt+l1)2v*N3F(oB3>VhbY
z*Cn$VtK!n(rougOVxZc=2vp-dY)?50qc#@T1PX;8EOb`C*Qb)vc5!hLfFzEM@OfWo
zSY0FTT-@JYB@9t`1Owt#11fi1ivYXZU<;_=1VauFb|i(2Sy)_H(8u>$Yarkub{f`>
zSYdw;m6#Z<)#->V_P6L2y2E$vitYOT@dp%n0=-2U6ci-jws5P+pz`$M;^M7Btk>Qz
zw!W9L(Ga<0+<YnX+Mtph95zVU>RMUhMYy{u(yYSXG)Wr6VroYJU1li9n_F{AEhsA^
zZSYtPQqFpdZh6ugUpb^p5rshrcc5VM)1sS4C#>@5yWKm9LrO*_{#ZSy4Knz#2?@b4
z+UJ#_$Y;ifhQ)g44>JSOx$fS*%Xh%C`my>$L%ErE^YU=%H=w{2Oij~u=iV6dl2cH;
z8n6-YTr=iSQPGvR3RwLyH#ZCR9S^ydCV}l85SxY;TO0&icw5EGt5$J&ZR`z?f`Wq6
z@sVG4Zthp$cARYvp(fdj4wcEoLFg9A(8|xyD|G(#U9Hk80MukLPPuPXMF|6=Z&<59
zv2|QTnVE4Qq?a=_WpI<Ahu5#)zn$m%=<TPQ=`}Sq9iJwDIDj<CNr^OKP%K3yrQn8k
z=lWu!8e9ZsOybl{l$$NjxroEf;~?NUUVo7#A|=zMMnzvUN2kHV0T^fkq|9knq0)+m
z*YG5gEauFjps1L}aDhyhUIBk|ecJ4W?JLNp?gB#(+^Is9E%pq2$FOVckKxtQBHPy1
z_NmlNHdVs?3~=Ad02C%0@s!d_YispixOzg0!4dO*5AJ-Z*a#0<m~Ls&9$Of%;YVh+
zSI2iDSWO)~4M#(aYMjn}KZxUzK)-`+W)6-{o9B&<QY#a66o`P!chyLDL&Fd$Uf%0t
z{_seVR**da7(}4lOiWA&G)J_pj8<NMZ+X*5^ug3SXc`t3wjUvV^ypDI2J;?1yu0_+
zGtdTT7$JYqv_%c705L!iFxQlzYXax`A^VoSeW`bOIA5EClk&_WU9F^tipzI#zHS4*
zj^xcvH}p}RJue)no}&;(OdpewVCn44uk9f1y@`J&1h@BvNc<7BeOJ0f()1+@w%as;
z!GrjjeXQmINuqiP*jp&~IRRN)MMuYy(d4IT@jX4)U;xz#c&DPA9P;9d!x`q2V4X5<
zaek`2ce4=lx##(1SSv_MOB>$Srcjt}u>g$DF0f)a3C8Mv+baf*5cKFt*Fc{Gt&DGN
z*D6NF8ne*3x3>qqG<c_p>B3K+J>S~jPXaw03!{}B(7wo%&#V2#Rs{T8aI@b*rfHKm
zK0dx2l<x>QPKbe(?pr+2iS@U4IKG?!&*}so@g1m-Sr{p21xY3)B}GmAQ(8gXP7M8J
zaodW_QW2vm4yp17&s~?ka8XiG;UMPb=JpZ2x-X>_@aZHyh#;6@fVbYNw7$N%HhE#Z
z+96&>+h=nD2Mh|JzJ7a?;S!U_hQ*=Ad@AtEV%upwW@cvSoIQoyfuQNe{m0?qbgH1c
zy5tWZKEw?~n4nwkGIKB~JTwaA9VCXMWH{K^t|FvoFI=Hiz=x(=mVC_0%8JX}`a~V8
zLyOmjdEM%K|I269(+!?CSEgIcyp6YWb+|h~hOe(h7dtpi)DBo0!6A}%baW`-GxM1?
za{f6yj7lohEll$IIrC`1YpB$WKk@Uhl{#3OlZYVLt*mhq`i3_|2cLooD2gJQGUrE3
z{N})`!bn*v_VEJEtk7Lxwj3OnXWPTrmxUXzr%Alg@dHx>x#Q6lS6@HB4h+5Iwf8z6
z$D5^g?c=cDiZ7URGMZ7=-@f7ob1)}2cijFsz_6Yq5vxxb@>)KUo@+(7=&i)}lSjvo
zH(_%OYl3=Chs;litk3x!!C79Ck>%sN@fvHJx2k=0znu5*CO-2SLc(I(EYKzvQPE*$
z!83RF{1ou}SB;XOv_Tmm1&e3hUAJ7Bmysd2xrFVuGy=mx4dRn&RO5&nxC_%6?5msK
zy;H)G+XQnsam7xivq<D#A03VyD99_U?P>vpNU4#me{Fw?jGqK@2kuO{W_dpOvPi)v
z1}-kHIlbyD*?NToZ|rVU($I`g4#8wR0m~1h@#7>6QsLkYSb2B|!IE)uatavoNlIRD
zc6RpYv><$dnbe#gN%XUV!BF5Z61rC5{B0)dMJg&PRvf#}!=R`bYGt9TSpyknE&d?y
zVIBK%@$pd@Z*27Y<?)(QVKXar^@!1WVtR>-TQ$%`WMn_Cp8~$&^ev&hoH|!~LKVi#
zDw{3fuUTYdOkYH_=|OFYys>d=$Nc(u4asDKC%<TY#iiTLxkLs_0o7uzKZxo*R+k3%
zZc3LwFt7k=Meckyzf-cmLZ-kZBf|gyvbakK+<tgu<mFLigRZVFB=Bx~sDW;Cri8}|
zJ_3i@mL}<$ItDqT(XPpJ)}ZSuf>(leAgw((EhHqQp4j62EwqZ4gF^*>c7&`^uFK|w
z!+7<R)Kt1xpBICbv&g^|kj~D|YCV69M{<6W(P$hn7TLkhIt}axOaXVtA}ebKj!zMo
z%KO<maEqr97>I|v@x6-zjw=NI1KeMx|KYwCs&_oY>6OYq>sdVPMkRuV(_L5kn!kSg
z#;R9p%KJuFU!T+e&xQ&VK}Bk14Ra3;L0%+#6{bZCde(LTlGf-*Oit!xkoCWmHV(oO
zxx4FizX2vQ!7)+q+|1XB0EG+(#Uo6+al7OX=*dZhjE>IUL&p$|$0=kWM}wyF;O<8V
zbhBaF#gfh|iH|Nrf|Ys4lg)k&Iwla$kU>2dB}k(}-sdM@znaIUrSW3u#92-g(cW@A
zxenzX+|r_)oT}N`+2MF34ERyXtWAumvH_;&C-LR%C+o5K2bLPL)o+fesHr1rYsJca
zb{w78r=%Cf7TqMEyoJ#DN6$I*Hu9UHFTQV$Hl*y&*w(vdt0;Kh`RO2<DZI;={&ZFq
zjH(rAtVYugH5Jtpzz>lCeG((OC-6<%ha=0$rZ9AG?MCkPM2*36f*lJKe{!F-ATVVP
zrWLpoh<r3Nmxk{LI<z)vw4cIC(Fn7<q<nWj*%U=HNXLByc-Cig&S*@FJMk+#SLI~`
zDBR2E$ApnEUNPj8mNwz8ghoM^@wCJl_p2*I6(Vo#`o%qNo8d6=nbccWrDtZc3{+TY
z<WGRag2fqoV@FNF;2lcP(B!joo;U0B;=2#Ati9>e6$hRN+YXhh!0Bjn`vB(1vLcG-
zRKd^*8olI#HoUl{U0AovqoZQbCuY69-EwqzpkW0IfNg%uG{I;dTu!xG*?^-7OYveo
z9&-x|IKo<Ii@ddX-oufhqkCuJr<s|VJ?sbePc-qnOHFRB7!B3>?p1X3<6D&1Emf)n
zFkGkiWLEF<baSiHC71$nI+I~}hQxyI`HXHMR?7s)xhE#>WMr|f&Jm|sSPC|wC=?%2
zRab|8QeHm3_fSoNgMg=UQEvbQ+5v&KxtkHp+$E)=I)&6a%?2rsL1|>tfCGdygNI;V
zzrwggc!De}xFWV+5X897rDH9*Xl}J!@+)0KMJeoW!W(Q8x7yp^N0WAg-~LL$_BG8y
zEE?Y+8IWRP=XXx(ved7#i4`txgRs$|dJ3S>EI=VqqaQ#Q$t@2R;~=oqR@6{AfG+6q
zV={VrhiVyZA{r|~V&alp^r5NlJu8a=At50n&3=-|43r<f13uvPvd53(&o;vPE&kHT
z41h?LTeo7mDqQO5(4hqga_-zYYnqd8b9NtNL=OAU!_NV{!Oof7+%c1vZ0RF4MO(WY
z7K{GS@`LSn?YP$uQt7<Ec^_$QeRKkqhO8|x0Y%1jg9Wu)b3NDJeB;Ey!5OUkL3vh5
zDLo1ep9(fXQo=Gam?$YJRSQR7iaFy#RCz03XJMkQQhN;OI*|sGmv>y=8RvmuiPrW0
zBrK{+tg{k22T><+#wLyRz284Z=-n|Uqqi^hj_$%1E7SU8=*J$NOy>gI9<v5L+VAZR
z64lw*Qc+3ukogR5$`E@57zsgqcGfyzl83qj4<BC=c?(b^Ei>P~S?H!&fyS%tKwmwN
zP8jn&`pZ81FYjI>ARvGthStm6JUl!a5e{JD;6?$t#5nr<`~Up?`|;n{i!;$aV1F}T
zd%KHaXj>NX`t_XvTml&*V|3`*3oJ}ba$`3`6qtKS3iS##b#%Ue66^j2>Rt>+N@M2)
zE^d*3I**JGQS|bsSBkywDHs@tbF}VPUvqTi>r0m=M4%QRY_tNCdGn4eC@&i%k~KR7
z{zCb5W4=xZ<ZuuuW<wAle`pYOa&oHcQ~H_5T9y%jkrBB<?AW9ph}m_=&(X~|fiW?p
zm0JrGT2uz4uQMCPJyg;xZf_^<Z!M=x@;&Pwc&*8bw1P8UaqLgvxS6iH)85|Bn>5T3
zgfPj<PFvPNaR|0x8_ITaEI$HnRd<l||5Gb0@ns~)V5q>Tro?TUjP+{TU(rKt%$n%^
z!FT4@tj@7-3!gs=`0vb_GucL(nq(0X5g7wE@KSGT?q!oU*?S>m>2RDPVn@C7CI4}`
zMW^}tRMUr^9wmACM^!Jac674_#Dx1Q0P%^ZpwB8G7@v^vvQhNiiV@1g=r3E#!!`A#
z@L;g5f1_A}{n*QR#B{AdNIB26;vj6#3MC_pSx1crk_yc$*t(YPmyfq;3O+P6+jwW;
zknAMbImT!YrWO)a!iXF|$$S|}pKW^>BFC(VLdXlOhm7r-fgCqdo%T6<DvG47w^JW5
z2b*k(@s!V($k<;$)=*Q6&3*AxuVle!NGSE_opD9orQ5#Sw9PVf14H%h%LoFk{v|f5
zSGv2qPu$wagXuiKr2a-ji9aEAt;ULhPeqW}*jSs9vR9Jrzqmuqq<Gn!)~8$6SDao4
ztxYxAc{JR}YX_^1wC0zRv}-!oJeaQ5pK>}`#QW@S%5TWgoRaIx!NRx(*1)*#m@U`X
z8_$J0O7<ZP+uvCy$+#H%@aK$t!_x0y3%#V-KLw!cS7ckjr3@ZIai3zsC0qw=?~B;n
zbmhFyYOc%s2L~3D_3pK<^Tei&UO2^i;7~bMr%Oy4jH#b-Z1dWk+h$g|S$CJe{hRG#
z6Ac2pUGK$@!@*|DY~;xvb{)+W#k_pU?>8lC^Qo210ph;@NUiRB2qth4adGh+hIn@(
z6}7~)$}hJ(JgPhWx^j=XB<bZ1P^YkV!8Fu_?1w+TKx3m9B&w{Jxi~pn)1`e7gx9dD
z%zHC~&3$<&(J^>f5<$+eswv6q{3!o&b3Bugc^LddeB{8WIS{pjhk%4rOlW(^Z;Dy}
zFgI-UD(_{b4%lg!R@<quAN^WZOV<_qxmn6@AC1Nk#D1cdtUZiGMPDCAl$~IH)~#_E
zll#&ROC{)SK3$P?m$BeOG*O>r?ZP+|L-Zy!xi2S;?%*9p-{MXzQ26{xCwR884MIW}
zwG@ad1^;uv8^Fvbc-z;iUoo(*75W2kJt~PzAwk_Hb{?iNu|cPNlp|Q9_uwvbI+LhX
zh2A^GGPx2?aV4tXe_I4()hxhF_HH;S-TH*-0iI4+_Dg}3S#%OxT3OwNc|*ui4Sq_K
zgy-5*@IJVl21EtmLab@<F1sD>Z)vG9-xRkF{qyG!8Z9Gi1g`<XjOETB92{t5rN+m{
z!`Lr^uugrlp=}GJbA365F9U{>!Ah#RzEAo3ffmJ_Je-{P^78VC`mx*`!9N}cX$9Nn
zw6&z0HRmRg*3q$A?Kla3)t2iv8#Z8Xj%M))@>h#-SAd-{N9nIjZpD0^r20lt0fA4G
z%nuVGpu6wi1$hyC!2DO`<#7Vz-re!`mhj$Q;qoJ3>xU!ffk9VS&-3PDZJqaiSt(t;
zI{RnuH=?eWTvNpvBN+O-uP;Tkf5m1U`fRS%PZt}BUSwlaV_gX$t@YXAJ59pyG&}nu
z!uI<I@r5frKazW%L`1~#ZD5`}kq1(P^2{mkowe1Neef$VbqB&i97I(^qaD0^5L8%w
z1s|33g9vLQ{NdxrHb5j~6cmr4tLT}A{=+sw9*vijc!8*u`Z@Eq)?@WWLJy?^6F)x*
zl-&fNE2UhrD8ab%Pr@R1Wd#LXfY`SH)*hM^Vp%vi@aFr{+JU~k#4fvP1wipC5GXkZ
zAatEDB{N%wDOk?K;|gHmD99w~8|(KD{73YTR6?P(M^r^Ceb(6l;*l#4rY<#|27aT&
ztOWzDICK(jA1vvCkAY|c2O**rXsyG!Am+C(92n>7u*(YM-b04JT;m6Bc((13emchC
z+^Z0Gnvpws@}wMl{M+GSn(HZ7I^I6U+km`nCM-R1#3Wr)Q&p7%iwzNdaBHg^EHu<9
z)H};-RGq+wv%RtL79JFjPK$a@T<#Us>({S>>@&r80h0hP0boh;?elJ=3BYG8ZUBD^
zK%D6LwbOORn6k1mEmnPq1tOt3QHPUH8}>gO?ez!X1`5}&!Q>)IkXO1PWg8n#=qm=g
z3Q1`62QrE5+&O|AEdtoeK%WJT#P2#fW`EAMD=+^7n>GX~a!u~p`iH-*m6VlXqoS%a
zw#a}2BA=u<olszlvhxLzI}lgc3}zERq@81-U2G_F5)UuSq`?EmF`j3T@|yYLSCPXw
zj=q^y1onvntm56mf%^r&346Q9AyijYRdu@m6oo=L(UO-hYpbjKL?kEEx-Ac#mFtqK
zhX5&Q%E!;w_Y+tlIvHPD*fni4-7FpWD{{oj(o$9J?qT>HJD|>#mPnEu-!BA|(F<9I
zV+r-i$zpx}x^*SJ6d|h!w{xX}<>log6;_d>8qr-%<mBXKz%j&+qy1<A{Jx=sMw~97
zCGtC>QOYME3NaZguDRQO`u+fywy&>m+5OM#L<~~3ZGz7)TYiYqitdcMF#q!k3oGl!
z&soJn6{(MNF0jk`6u@7#I)`+po{vCFkyqP~;+mOFpOFsO{W&WJj6;51^JH(5zkOr~
zA<c`l>Cx$FMhFI5A^czc_18FL0Vvjr(}HwG9zZ2Ar<uS}t_Lqf>`-aFPrO|5#Pu+>
z6QZi}y-p6lfHF6pWuPku&ApRyqnZ92wuBe`SYD0<4`~h(5grv4qMj3^m9OOME9J31
z6%_zA6R-7(Uo^B|ylg3S4&ZrsRh2N5yi)_Nc^n;00$uoz`I~ofch;wCd<4^g-}?r<
z8yu9JrDgVL_DlGaxVSi{Z|~2-NWrrJZ$jZG3F>U%mqQ^2{sw(9w8AzqCW6nkp)kyC
zeTp6&>0&714RNhIcbK%av|`fIq96rvXQb>dxMyZS3P6v2%DhU5VtEu`qvZ92DXA>&
zF0VGh%hs)dID^ewz&in_^mAiFUR4zz+&lCO;aXZ-tFu1uUYcr>WRUR<M~N=<pMH5A
zTV)2c$O5*I2D&z)0il{h&FGD3MkAn9aB*>Cl9EC}=`z4rf~x`Q9wir{KzsujTVaQ>
zFT8@@w$l~whKFw(in&9i<%r3Z3J3^531ApDMgmFB$DnAfaC*QvwF2IAo^3m|3obyr
zA~-DUnYTYAOakK=6^yOm1du@ZgK=To<nZtbMRt3Wr6e>z@tPbwupB&)DnnijgLDKS
zfqKb{EESqSD^`t+0WkRl@KIF7G6gtGuJV?EV}Brb2$7h?#1PO`MDE57V%wpj#Z7%M
zT0o$Mbw)E<^ruS`r^KfMn-hkzIq)g!2hjHdq`@m4ZZt^t3{zC1LNORBt8$AW2aWR1
z&Vo|`$9{{>z=mcY?1y}V^Zyq2oe%MaDi5zeyMjwY#XM{;o`ip>{FjE&)q?jB(}^*e
zj7bB;<GZNzy<@X<7DB<VAdG9oDlQA3n1S@fyIpD;0;C`*t^)oa7~Lo4u|f-Zzeljw
z9zlSj&@9yBU95u%H@FDoF~+PmZh$-?W%i>&%^c)p4+(AzK;BzPN%tcZ06b;WNJ=<p
zDC7%ZXPMuFiamk5Z6{Ho1t!+jQw#}2%R5lL(C_Q)#DfBs$j?7;YTkn^qF=kpVVoNB
zE+N<0U5zd&DOpOF1S$Oe*He(CeLlffa1!P@M+3XmAW4*h&DX|LiDq!Og9Rjj0*Ej;
ztSrA|QZpZ+$5wC=%onJH#dNbDRNp>rXlKq;FMzy}n9uelm|BH-{hIUSsZ;WN&$58|
z_k!tt<*xHLCYpR`0F15?gQISw%(DSi{dfJ+`kO~UZw9Xaz1$Xh?{NJOrP7v;akf>L
VUM-lKMWAhOYFBS4l_=Z^`ak_msEq&s

literal 27081
zcmeIb2T+ySwl#`vYPFT7RS*?u0TU8h5fBhCpfsSM<g`ISM2V7fXl(^WKv6&>iHb-T
z5RkOdCP_x3WCW3%lduVItgYvqzIE&U@2~prsaLPwv8v0!-d|X2t~tjXbIjSd&nd`k
zT)%xi0|UcG+25s=7#LPNFfgpt|8Wier6n+O48N_>mzR;o@Ax%$GTR-$t-JQSrZoct
zn<x2ig<sFOAp^s&46@S4RUATx+8k{{4RhCy>Fp`uzM6GTJ5ocg?CGy3He{$gJX>1x
z^!E*|*S$I~_R4*V?Yvc5&t-M|?S{3|hW9J3pI{15-A8%Osr2&-0o{FfcnuGDx7EA|
zzVv13JniwZ<`*S@_HUMqu(qlcbc}Fp*V|*UN3g@Oy*Gg;KrV{@biayb%CXS@bZquV
zhZW>czwGW@O@9CVp$GjZzn=d=m;BvBdforP2R2U@3b-Adm~;6&Irm7^`f^io#1Tt<
z;iYarDczaz{+Ai<5vJRO|LmCDVUfe+<KuI`s<+!yYT;tEt6Y@Q(Cb<S@(<k{%U{KH
zcHyC_*?wp*c%7DZD)OAyiO8R$lwyXuli0J*?R)5I+Mf8&i}gy*W@=Df91jZ%7p>bH
zT75MlHa7OnRE_+zbNdP`+$KXFNjT4l>+HrAUr|@(Fu1njdDv^C75%)tyalL7j7>}$
zKiW4^?0v%Q+eJA!eI@7nu9%oO%NVc1SF&W@w#cwK4<$G4|CC2-8|9&FI(IzIXh;}$
z`{c<%tz7C@UYh0N?3(M1sJea;-?)&^-FddWkVS82l+u3kV%eiqlcC1uX037Mzy46o
znzwJ+!S49^{v#0!U1{l1$1lMqVY%7OBiW<uA?8_ErKMe#CL=_=$^Hmm_(9i0a%e}#
z*V7Gns%P0Y5jy-Vddu^TT%7u!{<_J}@FPC8<F^$8$2g`3;*yHU>w0;8Gz_BXKR7Gg
zKjF$KF;yMEIBemb-5NzKz>u?Zb>B1dobjS~3EP3X>8#N`A*R2ym}O9;rH_uiT{%8c
zCJ>Y+j88r}x+<sb+VbM85zBAduH#RIM7!?_rcmcxB*We2`-NuA%*`w3H|{+0+nvI$
zmU)+PZ@u#Qoaxv7>FMdFEsE~*wL>)L;WTy6?P~5mtb#A(r7V&)?mCa=iYQ3Veg0@1
zm+&+)a@T3!ovaaa<wp8NcUi+4nv@Im4}Pf(+Yue%<}{R2#(&UZtn+1DoOk3&&msl!
z;VtB&UHEtJ=y0dlGLxT{7f0RwHt@gsb&q2B&Qa$MTFSUxlVQ*!F<aw>`Nlk7kq(zs
z`80`zv3$!f!A3>l&LgZh)@-~}R8;iQjW*o<(ZJ8A#UfAQaY%^s{Lk_A3v-j*@u`(}
zZg1XO<lH_Pe&xy)FGiQnm6m_4+gnf`Ech%fElquvgX#RfEnO!$=Fiz3b;VZc^}60E
z)E~;|aBFhibM|pvoQbqz=#hghjl|5D;u@ltrjy*+irMUS?(P&lw0-+_{kVkmJ2A@9
zMS4pUK?=peQtocV3X&%)#buV477hBUBQ2|suPq$T=xC4Xb~kg+FsZFInDLkAFKO;B
z_8XmWQy2g8$RK5g&Av6ceReH2t9`}phL#k=GC8L6cf6Dg3=Cp4coUOHUxb)Hp7!yo
zfjy)bQ5hw_UT7E{%V!*YT@@1@{&+h0puuTRvxI~MwwbiVq~Y|I5wmVT4k^i&C9F&U
zGrx{Tvt5f>qgZ97_^6K7>nrD3IC5=igL=za%`TG_*$dXKHnnF>*eu>%UmYbe^YK|(
z_ty0{6^gH#nenw<%ikFFDc>{6`Yu+xCdqwq&~_=_gyw4Z1t){ob?O-hrFY4bkwe#M
zD7m;nR98`Ad0{e2hd*d|mfX!`*}6(XWKjIl`+GGtQS#1d)C~42ft;}uS5qs5wFeDm
z(~?~IXd&iTukL4ao%&!hoL9!59Y5Kt(a~Wo>f3~k7i`hh*3NF|jS&jQK@%?eI^Nw#
zTf$l$8x_2fv19v=9R^c<ADEav)YWaNl3I3&UetA8oX!YqSeT4hcJb+Mw{4_o((awy
zwEtw3grM`x5V6^=lD!c+CV8G5ZbxQXt*cVXKf8AOi0I=&CN5_h8$(5{_3?b(nby5C
z4)NONnY(?Dba^?97qT=qWyHknCuXXy=W6RWo83I>zD(P8P@jJ428U=}-U3CB4jSk;
z#A_P1xEr0myY0h8R*#Ygdy5Yw<<wm5@ML$|N1aJaGR!clc)WFyHal8B-yDJsG{p^*
zFTA^+HX}aUYTdn8YEBkDvk<?Ry!rCjq@j8F-CB;jD>of^Vrm;W_y~(7lRDGxJj$l3
zsyZl9B-~>9AkC;MobBd`NEspGB6{|A4!_{?J9@~Z!@k2cY-TQ>W9eR+3{EOj+zJ1{
zz(56>Vu&!G$!L0u`5;Bv*4Fl+T-3e*Iktfi31_>R#Th-tqvHiy#k9Xzs6WdG@%wyu
zCR04rlxk4ozxzBdGY*kZIL!SBPGu_9Pio1b)pfRQkTR(qW?d<o>@qju<+bg%3&(V@
z8|1yNT)lc*KY1HGgIc@>lR)m2QhBJTAa(4ffOMYQq8QsCS;!Uz`Q=h|>Mx3tbC=>Z
zk~wi8$s*uHboEC^_+G7jQ7B0pO0C?U(PEzcNZ3s4DE{`LwKY^?j|Fw^GI@gJZeQ`s
zu6UlW4%kwsF|YU(+#Lr&BIRe-vCemv^{VQHWdeCSabC!4U_0TmsYCgmUS8`q@3Fbs
zbUXafAwxMk9(TkmTyWM*UYb`kg?rDLNB7#OeNVl`>gE)_)&x<vlm!X+wb`}seW?gx
zA%Di}Ra8`rXLl^}V>?pgM`2|<_l7&@!^9*$eEhhrQP<flXK8-$Lqh|znVH%6UmFAp
z&daa`Oy`YKX<gXgAxod0qnCRtLW0ty7CtfB$A$l~a_wn+)Q%Pvq&v`XgxI}6Z0FFY
z=Msn`O)+I_*&QxKyZYjFm82iW#>L6ox7n&UEZ>)5chv4U<;`r^vX+rOr>Hh2+bMRI
zelNT%Eo;F#O)5%)Q?7WY^_iH21T&vSM)9Fn@uMr&?yT-vj4xr<HofmN`?cH8-Z@l1
zS)<vqm`(iX3wK&ehm%SRT&TSDmvYVCm=Qc$6tS_ES$pban9$5{>1e73Zy?-FMtnzN
z_K21i)n!g=R?4vSVf=D(F?&lI$E&q!i8`9iPJ;=luHjAtF>C`(CP}#|W}Ek%>1(iB
z(Kg=DJ@-&qL9?66!msl+J&IAd&8D^{#Ddy%bs3K$*6Fb_g}OKN+F#oT`vyicLyJvm
z2A#KdnD@;b5g*O57Ou>lZEqR2#7cRzUtD7$l0eOJDTwuE%(X4jk5MUAph$h~ykSr!
zF<YK)D_lDr>B(N&9I-SNooy>-o4Juq>@a`!P|EwB2A4;n&Lf$cG+*(NzVX$mf&7%m
zX#^u+MT*&-<Ma0qq+YJL!<W&TB9k_ZdyXgjxtfOMg&?v^&42JqX(2o4{JH}%j%Orq
zdCAM`WkP~a_DI$N#Eyon<-x>k{(-?kK#thB#DQsVY7fwskcpaIypC1L?k0b(-UxR$
zEcISa&RajR{sLEMead(AV*ahdn=HC-id^$%b4Pui`AKHw&ze)`zHB?{a4mW<E;hCc
z_GfNK3)D96KkwQjdAYYLA|g$s-J#puFLmxqh>@8ffruCKx!@j}o0~tvIdE}4)!;2s
zR+Ol}NV~pzL&~d(j^)LUXL@;V2knMFdiA~8l5d>R?qt#se)y`AML@1Db-q5y?ubOT
zU|dkRMnX(Xj0~+6m>_k=&u!|N`Pw3&FiJx>K%=MO=Js{)a#eq2s_Q!L#?ChlCnx4D
z&BrhH2)K)`*|hUbCGGIx!v(kZhCgass*PBx8(y?mH5we(b(`y9YiPs5Ivc$8SdptM
zZ$zDn5;%4CY=su>wcf~uXFkGr$n8vqJC;s*kry=Mn2Pta;z%8COlCiP<y=N_)1?Pz
zQ)V7Fs1w-F0|dA-V!kdqWrkSDMQxg`<1GAwmlu3H7bj;I9>L47EYP;kJ%6LfrQwmp
zAWd^h3|CNDVRhum)E0?#hqyQ^k4~1yyEb2qE>zPt+u9pyt#B0nFZoi5KffOdF7d84
zvU{grzR1wZv@#^_$dY`P0G1Hb6xq7^`csk-qhr(Mf>oDh`%A>$2pUzEH%ELe*qh~&
z=jZa7OVgRcQhFdLBeA$;DH+C=x9q!ic-Xeb!Cb1=)=y$aqxVdAM&<L7l2h+XUCR@7
z%fvVv=8ji1<I0A^?cwV-;YH)6R#-3&r8VkmX1gBS!30FNz{#mr@q<eTt(}F5i8h>}
zm%ixdzF^RRB@Rm6VCl0{)XFFN&%D|!vB9Lp`1j%bA6_lav=q15cd!B8GbIl^RVHB7
zp!JRA!7J5Ih^d9z)W{w*stgsX4CF=3P_XT|9Af6AqD-?C!1393<l2QH*u3SZn=D1G
znbrmXxgTn3enD``S9dnadZnxWI!~j4gfHBHxW<heH-4zD{uxoINuB1Axp;F1i<W6V
z>h8MuwOGnGA)_63K7%Lv+QpLh)wjMnII-NtJa4Bgjgj9;+hS+xuz=*p2c4OVp2BfK
zi&zB);hjIUvwyTI<Kv2`k|~J&*?jtLCIPi2H)jU>&9jHon_NfVbo<8VI=R++c|G$L
zi)|bniIq!OdGz96f0EdtKR?xP`F6!xn;+Yl`LwnK>A5-H1*#&4F%S0NZnvCqtGq|+
zmrm^F-Q}--%YElHvZ>!fmSKjrmX`k9L=OpsSIo_QzkK<E2v|aGUR#b3nB5^RI+^m~
z#f$u_i%d)eQx-M`=yojTJ(!*;I@sbi+*;_(0!IUoA!Ne1Lpc6lA^i{d7tftmzuVE^
zPQAUnfU(6k^Z=2BnkB)%EY5aFaf&78w=8v?K?YXroc2Wp#!>iizjD`1i-jK&uno+-
zUg9HfxO_#wJbIa!=<DURTRyM=(Pw9nj+Lw@jVkoW#QjtHh|_$3boWqdRi*i8W^cG<
zZ<u}2WR(<0Ss<S`)^Q)R_j#Uxlq5F0kCDZ+1e<-$Y~(n2GV*b9O46FDwDN5EoVp*G
zNqIYA^V`^?7qzHyRj2>CGsYZa?T)=+OiTw&8sdkXVKnldOF&0gq~o;$Kf!vv^^+g*
z_5RGXmGaEyWI$Pu{@1Zj<F^%EI1{r5Vl|TWPw8BHx4LO&d7)}~=(m%}NEY+EkGL-_
zus2>CPHVh8%;kH8^GkW~X0i$f1zt?V$})9E%yzZO3*^>yFRH1k7J5ofMGnmn$G1y*
zWS|kR+0w0*rQe?8I9_4lCYYT&&uMt`#4d#X>Sx~frVVo~%YAo<@S7~dKk8)^Yc9T1
zmCiBi--x$*GO;R0;x%m~+h~|X6DFo{;LoF+YJ8tweK@_twy(pjt(`=Kahz!h@gDb~
zkI8He6}&;=iQd_f2*EzJic%6qzHA|`qX<a@)kX_n$2DmrG>l8O=p7!tD_E(~Ti#4U
z`XJA29ga@hRkj_EiJfQ|&C5v5pC_>*z16DB%j+v{y^|zgQKc=N0klVE9Anh!(Pwdi
zyqYx^7j^#?03s1i3|UU$r1f?I+nbb!iHmTG=_%URy*%G^^N!nGnO+efU#b~-r82d~
z0q=*Wq|=43=?OYb^~EnXC|65it1k}&jqxD~%A2~PH*EA{lCHg@89()F7yEEhu7R)U
z9+L>mB33qjr?f~|&B3cR&oxpm$x2J_bm;uU68;iC(N8n=vf<!9J(ux9%h@)2^_04e
zYMFjbVRp^?O{yLX#c6X)9i6UI)^tYPzKf{EUQd$xhY=nbp4j*<!HBstb~K=dlIF04
z=nxo7>BId@OqR80MGA!)bsm_RNYRp`Py1{SNaH}tp5oIIf>6ZTvG7GC`|zY~;hnAH
zWqM18vfGxfD={${6y5FrnPD`wN^%@<-Yz?R#(?736JRndj-PyO$e`8_yXMvd7d#51
zF3%4p6+f4Kkmd5>_391G1?tp^fRy@_Jvc48!r8=)_(m)a88z|t-sh4jnr_sKm<~e_
z_1s{eEQc4I&FPgmX!ZHMmxiq+b%d9-#;xcplg!Q!!&-Pfk9Mw3z8kU+_81P&q;4+0
z%UXMNxqfg)SV+kB&9?frQeWSt)YmOd4UM{vI*${qcBJ0vr0q<TQ85Bm_pAI(-q_f^
zx~|jprfm&MF<ayVd2ctR8Woci+?$#2j+fW`{QO58Lh-xGs;c!D&ALg97VdDFJTe%c
z+SOzfF+8RbuakL*xZ*d!4hA*PWy2CTJAb_BX*djDAcZTvc7Trud^lYYD|9)+WuoNB
z$eV8czy4g;<9uvsF0~anuZi~~c@To*2%po93s(ew_0rh-IrnRqx8-0$Mp41-&E$+W
z)$Gdcf%)GNtUSV%Edh|ZN$@=v=O(FzG1Jq|^77u(4&vuW41_tm>Xa2Lnh6LUecYTR
zu~?$$W|ce2h((){Tw%fbno(Ju)+ZzNn6I$9DLvyckcg(DJ4ppo7X^UjK~ro70|LBE
zf`ep)o&iJdu1AutPG^wu-`co?84SUBRn@JTI{a%kZr=iEWACY4j1=RG0tX(qT@3t8
z$E6JKLj8qC_eFKn<U(d}Ue97<d0>rCsZ>dr+E(JsT7iVa8YYR`vcswk%>cV?1D17E
zQCF8i<_3oCYv)?2M+sr`nN_Zd`Gp^xjIj>mZ&xy2Dt`a;ly?`5`ZizsN6vwPfs}}-
z#6)^(@#v_d6-g=#Tb3UqH+g>Yi7S%RVmSDYs~rat-*BdX)JJS^SQszvxF1{?v%mM?
zjt`a%!$=~sbklNXnoY)grItlG)e;ybUA~S@FI*+&W`Ery<0s+fE6;{bD8(h1Nwg8L
z2~!ex8Ld9a$Y*kPdV1P&vO*+pn1&d({^p4->u+u}Ut>t2P!>j)mn?+y9Vz7NZ+gR>
zyF6BI(lCf16pUci(b|g=H6tX}bS%weu$^cZ5*^K%?5dF$;G;Q3aV(8_c7sj0i!9lG
zPO_N8-K9K4Bq`oDUX3T9>&cBxrI(dP0Vdc2_c_L8Wo2ywIE2w1#9`Ep;WO+JyUfK&
zY>U^!z4MQ??dfXM&95WQE`*J`L>H&wy%=&&zSZ7ik^7{X<c<wXNR2Lewh&S)Q~nMT
z>R)wnxQ~FgFi6UsxwGr!t%t50Ju{JvuKV18oeGegFq6b>r`y+0<fy*yu_B?wpxD<(
zSwVF7<?=^N_?}i!17EwoH(wV4R>+$-k0)5T9w_qT;8?llCojb89cHi3-(?dQCaKz+
z@uD5w_3C;)j~_o)C}stmI*M$LIKE<Vk?i@NjDGmW$y-0&#^Em{5v~9+YYX9-Qm2i|
zhI2<<EfxmU^X>%cI_>ArovJx9^eR6kxB&Z;T&o~n2>SGALX09f6mM16Vd6S{w=Y18
z|4rxhA<jR@W&3NRlO}uFg^X3sfC9*tfJ=5j&~%ETJ`5Oq<fD-`RANjBj-VMm#CY09
z)<e&S%6!RM_9&|kR7TaW_`T?jWp@{z))ziR1Dp~-MnW2B#tsf7n9kDDxNt)LO>U$b
z9vi(`30+H`goz0mvL(D?V(Kz7dUhrz^0JDq1IoEtJ8=1GLBf=p0}+)sq)QIJu6=rL
zUwrcD4Mxdrg!Yn_*1^7+P?iY6@$%>jfw$RjdxG@X>+9>Wq!tBO{B8vrcnso%IQ8qr
zx(2o6chWy=GWG+0XW%aVN!NkJ5n%r*j%u-9oWR@q#zFF<kJbN;I~V#+rW>viAm2Uq
z6tpw>b^Dj^7n6Itf&Bg6z7_vtA28;j95W6S&|?Qyt}&cq#h#w0P}rE_*jtohR6gDL
z{Wx-NxD78a;K^|j*`Uu>nS|i<@&YIW(oDQ|>iJV-Zp3{tF`Yeoc5C7-6?~o~pI%-B
zhMJhf;WJONvc%}==Ti_lBqPVAPl0iimd5fC9{y(BuC2ozeo5bGn41SUSGW7khTpn%
zYbcqb_e1-1T|>i{PQGVui}R<>R>bDNN=T>(;mCUa;>8|ub1<=sXKQw2TbeADd70Tn
zY&7|U%Gwu>nD@oHNREnnP6K@fu!-C}@y_yOP@219&zs0Nq{S%)(P?S*G|Q~#i?rB)
z1L{td`=8;&n|Cz+LNM09cjf=*H#hc0&FZOJH#e{pp(Mcy4*wjl&YR!bY3;K`NI;lL
zCT0o>KY*VEE`}$(^D1w(;qs8+oYDc0!$!>mbwzg;Fz&mAhcq^xuk)iXMUMP*%yVm`
zC<o1&U%!lrxh>%GX~RMD);BMclKdJP8XWqgf(YVIvbjwz&R|$;^h0~2p1Z`0vmwk(
zOazJ=e0+7WDII8Po2b>LGht$BN<HLUF+8M1WWH~n>aPVi0phg(=MnnRnNoG-?BolO
zJBYB0;)F%sB99LJQQnF_Q{?^d%3-{VkbGWVBy50#H^9S<Bf%zCb(d9e&n6Tm2>HsR
zv!C4M*xb}@5Bm>KPay@c>8mD%rUit;_vu0+BE|8Vsf0qce80=H;DZcDZsmAl&O|BD
zW0-jhvT6h1)1G}HUhjLBgl^{`-l9IU8ultAwCprc+B?bS%cb!E=Q|#uiEVLyI_`qd
z^XH4!ce`&T#==gUk!G?j*}r>?C~P#0icXbie1;Bx@0-Z7W~p8WDFyX3_p{2{+AW`4
znI&o;m_Ad?snJ0~FD;z|6f}N=W8v3LVtr4JOjVzJ=Dxg?Y}Hfx6}6ciaK~2x!1)d$
zD15vc9o8V$9-ywv3Z^m4d<UGZX-1o!;WDci&g)B?b=>>t*dxh?mHYHtd3#awK3~|n
zT+p%W#>U1jzrA$=nKO}h$9&w)Ws#i8bW_c!vX|tT^Ljdq40hzXH{}nXh^!u_&D>W1
zDNf3khuJ$B^mzdi!w|DLm;s{iX=P<)9qS4qI_<eTNJl9~iR|(38mQttP!Nl$F+6u1
zo_>1G^e(rEA05_i+W9DLFRC9`BgVUni-Dat199sh&~J*a$gS5j3QH?e-Yhxx2V()D
z^VNO}hC?vDd_q~dc6(5f#|(;wGt$kit*y@#GaY8Xhe{?UtU$7U;hpvB(mWvSQ){Dg
z);x(Lh(_=X*x=-%)chy8h=r!i6kt47C7ULX6)QRQRr~7d>Qp`%|9*3}yREUIL9PFn
zm#@Ik7&fjv5ELF7*1GqH_Tx9!7!DH@9X6x6_(D>@-a9I7bq-Ee$My_9N><&5ghR1O
zNmb2!e0<^D{r)IStj@vHEbZy{$Nh)gk0)!`v{oAqE85z&R;vyxCJ1a<Z|J`ASceJ%
zpGV{VSMh%JD=cDEtjLFqIGm)YZb#LCiBpCK)spz)bb=%;4WDA$wn@4;NG}XtH?c@V
z#=mKievp(J@q}JpCpU?5b8?#JEzT%pRFMpeGaY0a%K>r<80P<!+&tzsWWeFQv`8x^
z@w4{D*|G*T-Yx47f>3(Xb>{#lr<jfh{iOYB=z5vQ1nCkfmJ#s%rvF7q7s^9U+7X0?
zP494{tydwHB!+Wtu6sItyc`JWLqd5gDBSUujwNA&od|<Nzz8X1035vhr;msx&x<W3
z4EUMgLs2!~O3+iWlBwTf;M;7Ue@DrgzFhy_s`mfMEhM=-O8%h*0HFCFsj~l{JkNig
z;eS@~@NeIXdX+4XIzs=V*2P0P9dW;GaZvCUiaTnreo;~a7D}T{53+y+-5P&uOMOE_
zQRllG2PkW9BWJ2?_T7;cyJ!*${~!~i5{ppw6n_Kke&0JuKCY^+PSZOT<S5nd3TPO>
z|Ht~4E6;qMCMG7v8!&qpns=zb%?<}G>BoLe46(6kLla!7g<Bup0T%wQtsUZ?Xd{bc
zl(`O)lYLv(Z%y=40jeBw5BMH0!>zTnwR7E`%UfmYFb^<$pQ;kI32r=M;|agqE3uET
zx}MxU)epv3<qXC^tx+0q-~e8daK%Fmx>T3Uy|P))ArpW^1A>R1(g2j~bO@A19G+Qc
zf?vGa>G6MUy?<xsco^<!Y-(Cw`P)^{rYKV)XskzAVIE6={aPB)3`le<KrvY98!MLM
z`eLz&m#akE{gOERwgT=NE+0!kOm3ql{R6%KTeUL(cFXy1Ny+~Y-S2<g-M`b_sho}4
z(03Lrxl|YGA>JSgQLytPjBfz{Iszr0n9iHh6O)|DN^hhVNImH}B>5RbPrXsll}F<C
z=7jVhdKcBKE#%)lbU*A}*$%W;c#4Ix1-!Tgk=6w8)4|CT^{En%*{9z8caVJ?!52ZD
z#n$wY?=ei>kz^T@oOsW5(4sx(D@f&?IPL%VUgK1ZM@D9*C>6!eLc(K`l5bQQ{S@}8
z3I*^#33XfO=8&<rwhpyxzACZ3msCTyco!;UoPB(Fe>%$b>^@a_blgue*MIm^OJ#L+
z79k<mftb6xHEt#00Hb{X*vKh%XSU`^GTH+if)mutMy>&8L~@Pc2#blioSrWl7MVJg
z%RE`}i?n^C#f^&E+S*a_PyPbVeMWb|>F#W=sPkudCO$t<EFyW$KwS*+jO;$PfT=QY
ze$g$G6ZicJKq!BFHr}t3x%``hJ<|2zu|3<fID^VGi#*LOTdUdrqGXX|IN!6mdMmv3
zlKKZe;`LStV0{div-fXV-$u2F(0CdN4-ATxjZ4P&E))$aS%d%qyC)s-=$$i4n+08k
z-rd;B17%mwpr|#sJ%d!enFVxPyIo(&Az8E2dJk~l_~!7M*Xru(K^136wdM8e*D7x~
zmF|ICM>!UHo95>2bauf@<)>}G{VGl=HDSn#g_94-Y^kez{SQcg#nkk!mlxbPxdw6F
zaaH<!$Wv_kYu2lu<e8ry3<}%WzxZ|j;Ef=Zp&l;sCWMFn@d3D5YO!At6#hiX-aNCG
zfxRz@DUl)-6BCQB!^OMXg^Yc=eb^<Od|FVN-+n+nap-v3>qa-92t+qUe;Zj^+EW;p
zlg;*(qwK?q*0?F+X#C<bPw_@d{nF~ZWmOwhS_u#S@tFz_lCMLf#o1K`5Gn4XY0XJ!
zPDCoM%85%DWGv_Sm8@TN5Ykm*vRd8gcz|6m6vDQnb~&C3dY>(xC`}oj*iYZ~j!&o<
z=&$Js7p4RDb5~s@JLyu*zPNwz3j>=?#u6(~E@dV)^{6uPRfc`y^s3CiTiW@baP>bE
zOX^khqe)^+`2F$H14#v&#D{)<u;=U@<W6!A>2%4x_>{FdL>8pzHt~RoDVbE%!E(1=
zq`kgc+x7C9@4#3tuuBmn9NV=`lTT%S_hPA~ROx);CuWA4NCvn~#9YVIYy%6wi}srx
zOhjt%5p@irVQl^GFf|Ps9V}4Lj?V@0ZuilyCqVtQbb)AZ=w_04gO(vR9&kC}B5p%}
z68HD-(X~b*5K3%n;m;ZSiyYS^m!1QJa$LD~Q~8MwFE6NBWB&e?2&lf|DR2yF9jI?P
zEKWCeKQi#WtuvyR-3F^pnITFptDu#{tgDRzBsw869hssL@en7cJ}BbRu|=TQ_(jx~
z1GB$5C&{>>6{BOH@>A`A@EVpNRr{HViO5+!m!Q5iVcdD-)!!e%9_r9|2^4$dU2%IE
zX_QR3#HQR)n@F80mYhlc``yEk$~H)X5AH&F*Bi`tagO6;7mlqd*ae%uJg3VR(go3y
z(=q@2Qhj`O*}N!Jv<9SnN9a4UN6$|Cl%~5*$LYChFI(Vcn39e8+Cfae`PYL*ybFQy
z8QQDcDDo~YH_P&~Knc^<($En`0wk0oC<{aDnwP)2k*p4bMs`Y7r;mnhWExQk>7x2c
zm{(KOnZj;mz^#)S2V`_oZY~zzjH=pbTJG%*CPMCpn58#q(eCaLNzAaL^M}>F0j{@+
z(giwFR>O#QG*D9FaDkAvKn**PMx*~Irv*E*h;q#+kUrCg=~wCEvvjZEkdZ1)-?L*+
zg}prNr-$0`-Sz6<Y}xnD+8lxqQf6o!%S-FkzWr+;d%`<fW8RVw=r_;N1geIXbODO#
zD4X@NT7h6f*@O=&(3~M>BJPqEr9Z$ZkHmThqTe%hyjf`qvmF#_uZvN3RwCLJhPT;r
zg+W(P8(g(KVxQ+tbRXY22<~Sxf({(eJ!bHI_zmS}kbziD!Y?9=h@MS|jlF}2UU+ZU
zNfMwW_S4^`lM+)be>g`KA7LKzWtYg>n@|7uSIl?_@k!Ls0-S%RKbF|}84r8Zi}_~n
z(f@9vf8)*j?esqmCJhNXs3TB&i&}pv0JX&KcXZ<SoP~)pi|k*ujfjrAo#z`;QtS`#
zuwPo3OUA1cm0|0SZ}<B-_vbNw-JBy!5G(NkT%?TpfPO)_e+Qndr=5-5=WVuH)5>-f
zdJb=}&j5}1W_gK5DB7O(Z!BxJZj(TY9Zd4_Fe-?eZ|J3mYWY(3vC0T3DU(qYe0$j0
z$(20Zd7R&7H(d@f90ti{#Yi`gw^G=6`eD$`vbmb+Ne5z`5%_vIs<xUyXruhIq%nel
zVL=%Wf~rwLlG}6~^icq4-B4s4nB}Mc*vsp&72{VZ%!{G=|8xXJwQeG9CuVE8G}l{<
zGTUaN&jzMTYj-DWYA;LwqN@_Fi#qt}$aC+_ML_dHzTDhH3zCbn3L^D<hU&fl)r6hl
zErR~OK~Ny|u>V3n>Y<?Vly0~G_t02{tQRUhrvb?_MwcH%EIhwk|4`4>)pcsLBaakU
z0HZXWAtZ~vu={yza`HidHj;Ih^iCdxVp%TeIA`;65~x4bVZV?SE7z#J@;_XGwMI6K
z{PxsqDLcYDABYKs3h)q$DfmZ!)RY&Ko|ffsj8ehWZUgHZRrcii8b)@VnPpW8$6@6e
zkJ-m2iMQ#*twrAo3)mIGR#|r?p8;Hwk~Al%(ygP-EXnZ^ID*LXnTS-~X(}{7TZTW#
z8zII^WBPi0W@aWyneo^6J!)Z7ufaPKNCkL`(hLGXX~1$-d)TcK)dt6vOR55zSu5B5
za)|fhh2KA}`|;0;eN2~_F8?L$@vF{HT<cTby#0x@^VdyWoIh}SA9~rj`={*pl^*wA
zZNItdr%m4PsSj5D^1h*8!9JJ6L3z);DDfBt%dAmaZGUX9%3}6_sQltUOm8_QamCNM
zA5h?a1W92=gW)+YB0*`;GD*-1I=^pn?NJ*Wn@g3UqC$zco@$IuI>^h*i;0OD>zucI
zosrRt(sZmXYh5+8*Rj-!!-sjD&uCA3*n9J(Yv^~ie)w=73O_F8XoZB<^pZUxDt|rp
z%XXanVmQ*8na2ODxDVyd9*?ekM#@3=2tZSwm(P^3AuQ`1T)#%9GA~@#&5KOMS>Pe-
z9k=2K%4hlIb~Ai=CWCTVs*^9MOjleiAvxJH(xb6=ymC_O1DoC*-m1GRR2k_$M<Fc)
zC3jz_<6EJKZ-Q*zx^SyHueuWbXjZq>4RM;Fuv&u197M5e+TEyQeHQ9$i;g<FyRkW5
z@k9IP8|!l2Cmuv_%OV*05@AFd@3(B|obmRtJtb>)n4Z&Is!wuL%|1aaoMHWoFDpi`
zPmZ*s;vp1IKOj#ujM)hhq7qo~?%Vly6k>E>3ALY9j+j^3cz}K)_66RG66t^J>+7qK
z77URzk%#WItvesk!lFZu4;M;e*~exE8wJ1@QFJYc*ay{|SPI<(AM;b4+`k=bHPJTe
zCemHxBTu1Je8VRD?#B9cF3wfChtJH+>`spXvCb10?~j)jK`W3YPEQ<#euHCv>eC*x
zdP_Zev5Vi_DerYrrf)Cxy=HpuoNC0=i<YH5R$5wG{@f_i$j7K?omc#}pj@_tKeh)8
z8hwFApn_=IVdaN~grcC<hQnk<y^25cvw!)cgU`g}>6h(G&f@FL1sk5yY#i4EbXEH2
zy3I8oJ|tH!Zr-a<jv7+fyBlkJn@y626A#h9;S_Hk{PYvJ^HM5&U$q$|Dn{w}GD<BA
z{fh3T@blqV!q@5PU!Xyd^GA72ug}-&+jpPGuFZia!Hv|kN;}X;;6Tt55}^x`cBw{H
zm3hmwyj~+Inx_9}RM1M`Tf<SQP|fBhU-w{-8Bji~V_UC!)x<>JpVY>P(a8MO#(mY;
zxRf;Al=ih@iFF`MsQ;cZ7sooi1%g^iPjRUf?R~Do!<W2>a*V1b6_xL}e{LO?9rz=L
zHwn3gyjdQU9s*Vr`ZEW{573>BVJ4O8*1x)LG2u_7Wyarent`fBXB*_QJY_gz6k{52
zl6s)b-EHTGzrS%j-k4PO4d+mvEL3U{aJZPZx{;pR(9OxMUtTYkH^QoPe<m7WSXyR~
ztCcsR)!|ek-B929;|>&y+-WO_Qq-5)p<YSF2Ya&y6U!jZ4}|RFs7ULzlQW3uLpUD+
zc0`*l{PDt#e?Fp+P4SH-sCuC7Qs$`@0QBL9d1{-|h=>Dy5{g;RzEKbCaRXcq51zxF
zs_R&uVs{yPN7BXQVIsk4g>%Xr$r`MwuIAGeBr9{wuRbAWAR77RQ55uoQHO+<*yl|6
zQPCbNQF5r^!2;m@ZF+0zhk5GCflD8UP@zhBw`Rv919}7AlRH_4cfMh-EWM1ooneAT
z3Wk~BAyrMjy?uv@>#EVgq`Yv5K4Hi`Xy4H@ra>I{qGkyShD5t>;7CHPeq}qNduEDD
z-FX?lv_*))&j0r<CUsq2;!AXlX%!+JIVmnsOsIUv(s=t7qoh|)ll{oGPNkNl*EMnh
zJtUp}yDf>MY@8?I&{o4ig)RNfMn-|4c*?AMD`5qQV5JjJj^Fr~Yk*4zYmvk&g{UuY
z2GLBFdZ5&FjH2q_Z;qxcbxle1nFTg4K^z;;I|{}1f4Mmdq*L%evR2?DJ|n4?%hb`m
z)Dp40(3^>Zmp?Z$Yf%XO|9)T6c%x3SRqYu~ave5lLgF<kwLB>m3~d)X`ucPrb8Etl
ztv}zFQER3^+N_Dw^Us4(U(Lpth0cdBc;YINytxYQ5;zE}zDQ60^hK~GVJOl)7nh^^
z&%WeX$?Nu13zzO4bLf)Fst(QJAeA*J*5~9Ez;li8&<){9@jxI`&g4c8$)mWSMNLhO
zKPj-2P87H`HB?pOb7z_ZGM&C%HOqXXL+@Z?k{$$RfvAxuctz7M)3-It>>suh^o`wp
z^5i>Nu=+cBz3(3iljGm{;PwA>qu)C}uYcF1Z28_2`kzZMF#KEAqW;|A53z>OHUvY*
zxkn-N5m8{1n(f;^RtoADcnu+(G{J$GP&nz{MRnTCV-|JYs*9d%GxuAf&jkA?8x&uL
z{+HOWHTbP)DwVosD?O!B(ewM!K|V@}NL7jWHUHMeGMqmpWZNKK&pi5V7ZF*Lwo_8n
z7e#O}rqDt8G1VzAQ3rLct5HOmPp+Ig5F7UbE)e;%D{ZFY<@sk5ki_kkwQ93%jLOZ;
zEvo-^M;Y8P=nKH{CI9C-{6>&Q3MJA#*%L9RQ*T>7d^oQ;(vo5E9b3E%*JT=$oGcfV
z^+z}73wXGHeY)UOL*R3$iO3`Rf5ypiif#}E)?pS`AB9pZJR!X~)_8i_ZsSJx!RrSS
zUMu00Y>bQCH!!d?)24!!NuTm)Wgu$9Oh9q45Ahd;wv=3_?OeQ7i5h+quZWNk>!s>b
z8%9$5UDy1y?SgyuUBHwaJDcX~#XJ$k*+tV~8syA}pW>|&{`hQVJHj{V$RrpDul2x3
zxcQ~>;8`r<<d+KV&#r`&CYVKY&vM80ivl)kuC9wG_U@@>jZ!M1h8jNYc*PsqZPP}&
zKT3Jx>au<^MiJ{`@Jxn4-h$POGr=_*x1L{Rl8~m>pkd$xjH}_RN=fZxU~q~?uVk#d
zFj#W!FSgD@%upSmC$9H1gc)UIAK*wb8+OAhgpENy45@H?j4kVya*5g22auZ5q4Qb}
zmuq-t<-tP?#!qF|<RBCgNin-qUnI$yMUj$aPYEVL6J(e?3!PODS|bup2Y<d1@kjY`
z5s}_(p#03p91SHHFom3d`D392@aYMbr?wnN0@SnD8`zIDj`|#Ux({tQ8go$|)(m2C
zaIyr75ol$QdHT}S>B@D^8R)?gfNqbXTP1pNRM>gOw78#NYi#l>9@eP&5B@PNqCtXQ
zC_2`!3EXe_v+K?}Z^flrbCJOcLNXbO1e3xpCWV};uwBHU=%>A#+F)zq!O_ahp+Tns
z&6yXTD&}3(>=&^KG}y|UZP<3XoTE9rsnM?OddnFZ8PCR~4LNEqt?9w+LRa5k|1^T`
zreGr5Zw>t(!3|E21(x-Yjx9%sKvN2twLhZ~ee*Zvl7yDuws+YV-iYIPh9X=4i;jq%
z6b~|SIq0E3k#tPU`UA2pmo3po^FF4t=v+JApzA!mRh7;F9Lwlu0unFnnfN8?vO#Ab
zQ2V#J09U$P$^D;1_u=QT6YDa*4A=?zH;=8cGUeYf`i}oN?f(QY%%J#BF#q2`C9#nW
ztGAquQIVsB>EwtznDxgi#k{UgaXV?m`%!UfM_>T{B&zl<MZ3Z5^1ET*_F`)KAam<w
zL;@xLAQO$V$qosaH9*rCwqBJ(sY}w!Lss@A)=v~Is7Dv4YE@m&+%c$ra-8JwCX~|`
zp*D;LlLETpH-OH$g1wUG2M_K0b@7&Aa*f=9`m8_ynmgipLBDVZu=Jr}3);+Z%f|Y1
zTTuG)tu4FQ`Sy=A{>XF9EiERLAB55oCR7&R)HXDvmk+LY$bN}n2(e_$fB|MDJjg`v
zL)`qMEyWOXhPr?Cbbo2fdb1{4F{0G>bySpLrrq@^b|kj}0xQu_tUm23Dxr=t=5Eu+
z#7iSg&d&^oNV?8*%c8640l1I)H&68s9*VUO5i)7OlZ9=bF^7k@4IOz3rATz-ryCkq
zAffE<>w9T=s&H4QA-;x|{)7R8N-29C<{#SmjV&yy(42>7QuykefnXUs8xxM2W#TVm
zl_4TkgEG-|jg9I*=(ey?&|R;h*<jHZKgaRt0pp2iV|RwW{#7}-VAfi2@74UdAyum>
z8J&IksJ^wFV{u3zCE@xib;Q>oM@pV69c%o@3H-+ikZ}2*?B;(bH4&=I@-W7UcOqk6
zAlG((kHX<0wCfCkGhvl*vH`(qLZK7>$LgnEddvnJg_mUHEe?ZcRWWx)VlfHH!555o
zC}VURyD>G~l5y*MmZ9hu{PZH=r6}A|Ex1+EHA;H62~()!)E}h@^*Jey^gt#MXB$lL
z41;Q|!4K_3gFZYwjQK5+5ArvO^M0f4N-?u0Jhf8n07_P@C{{sMsxwH}88gH_m03l=
zt4N!Tvj1naH7&efgzszu<>SwdmX6N#33SHqN%j<qP9&>>-|)YL*(u(psZeX|mR&;G
zDe+Yn{TZ^9k*su}n#o-Pft<3QUfz3QllbJ*{+~fRYh1LYC)zgAx3pN!Z6x%Zf8NbE
z-Zgpd%iOY{+2N&GcC6Z4f*}X@;6M2$s9;GXQP<P*HI|A+5Qz1YNk%jJr2thm0P>qk
zJOMmqc-Vm99b$3G$sg=wqWK&upLA4f+S<DBkU4nat;fT%p6zPNM>kO2rX(@oW8!ZS
z0wNlF_~O;GY50NF#sm8aX{r@;%xB~F!!HMl!{BcXbu+L!0OGQNF30r7@-<~-iho(z
zPUO1DD=g&Y%YJF3Fq<T1UY1;*t5TmnxZhW(LF3tgYplrlihG7=zcsbz-Hb@}Nu%EO
znT%g0S~X25YlKoJN)HIsF4>{-ayCNJH7k<y&IQzw5U<{uGzvv2$>L8!!oq5<+5OWi
zEKcUHT`pR1bYL-jXQ3Ww=a0&6#tFrOMv#j;L6{vFnqy$->^4OuCdqc)mTDBb?~$J0
z21AD2V-!l*PEWr8cBZjSm>?uO(V%U?mtFx1-{0luH3EDWmr1enBMofNeGJOsKN-MV
ziY&SI<HtwbNXi~Zh*s~%G9{fcJA^QaDoEWM&O1+#4Ns)zBHb;Wl6-YIE<Q!Br}dpE
zLs&gTgTW{IV5^GQOyn&;!d#T+f~Ro5Luex2t}cE4C-$R9O4hCnL6d`8xADF^D0ycd
z8ffda6pKS9#EN+&{+AFG19E(NM6i8wryEoyx@Ps`60?l`FM(I|ZrhcMLcOg2G+yOq
zJ)PdH4s()zD-Oj@X@-IYjv{BvQK*w-{Xr1B{rw|o-8h6d<t{;&=kk48FQPP=N+df0
zHreTB13jm%rr=s3+#t^sk?4}aBZRjKaIA!!<S`N&A!Mdy@9%S^&JV;jzEL7Z?=jHF
z#G)xL`9=e+hK=q$r1KHIV_|VgRHsN9*(R4k?T*;<w)7KH--uJn&5D6E{CNu#t>7WZ
zfg}}#pFmR~bJWI|tt!>TZ+i0T&F~u{vT79DdKCTjN=WyrRuDZ_S0^}?@BG&8l>1%s
z{r^3`y)ljd$rY4aYXAeaf<74N*nBwUI1m%<&utWHd78X7jE0F2$sq1r{XdgtL&&f+
zy6^0}zF+ypXYG!8HUCRc7l@)i&qRmm6dC7WIPtk;e}G&jdRI*-n^s$rX%S#^Wc@LD
zhM$aiAf`zsn~=N7`V$&w?aph*NTTg4Ht>>E!QS87B?>G`|9Z*ppwAdR@w-3COj!?I
z`kj28<oTpPAnQ-KZ3z99eGUwW!r=o<t*~IJZ)_B3+)(*fxck!F(WS55vi|TU7@XFC
z^V3P_gsBkt&a-)u$^=UGiy(QQ-xxLn)9Hcf09@Bt^u5L_=cZHz3z-B`PezxAOJvtr
zfNo#8cuT<<6g>$GV0Z>ZY??7$O{1w7MY=(8n^KspcE1Ro=z-hh!HeH`OOO9&^6@2n
z^0Co$F#bll(+%?e1e6y6NAECybCLSBP+-qo=la@eR>BHJb(D9E9y20k5mfaQA<?tl
zzvVs7V^~%eW06vP=9kCx5~6{R5KnO|8Nh-IaTCG>d=lDqRR)#z-NUdVBLopy7xw7M
z2ITmq$;PD4YbjK&&J$GDqs2lG6~`KbzZH@H7p9Fc%;1y`a-$cxy___wlAcMlEmmQ^
z&12k$(065i>ij{1uJcn17!p<ixyWP4BxZv#NQrdh6Dgv6f+4!630qC{0^|}zUjyAr
z3TP-JRP}X-vPg>~(M#->T*9#q*eKHas%%-=;@q%XXD)Y)TV9RGBMV1gp())mYt!qD
zA)vL$Tq?vMtmdzz)R7?HW$+S>Oel9%jJnNclkrH{U^UFF@F#7{q{j7)tonVU%HYw<
zu;ffw?L^-*Kk{cyv$Xm{#&s|000WjNvb1(;6~etECP7TT=kg<V`W}_O`>4kKv_qH|
zQzQ&d`>}^1E8(@G^s1Dhk0}F$o6!W3p0Kg81+)-t!BLX@U@X}LX`BKVIb36)01^&I
zut>&SZ%mZA=YL6$3LM&oExT%Aq1R=Nca2i%5LeCSa1fBqGFpCW@mog<yGdVe;Oxg$
z8}Knvys;pJquiPU$+z1vSAlPDn2i!?V83bZjuzJmQ~-OvgjiInV}{2N6hT6<_p~(I
zCm&g5hLUjrbJ)M!YRoN|(Mkk)Pufj0QDCdB{#8MLoOIB_S&VRHC_+pMxmPJBvIRyg
zeBR43m-1G$J|*>34Ic@14-_Ru@%l~f%Zt{aqh45aP#sY=vBuJT!9B}>V1n?OOnE<T
zJ-vwY&rTb{GnbLPkVp&B*v}Z4rHf%jAPZB_&})e3&5DUO$Z>0$n;%2e`8m|OvIHGJ
z{y+zNFb?FsK1VM$u@aS#4^fYuQ%CyNw##RkEFX%XzN4>CtgY$w&o}fQlD$B=!_^Al
zpgwD-<cmb={J>F693z#-{n4TRJ|gW$(1+lNcyA2>Ru9&z0)1otAa8j{$Vn(OT&;!m
zLM=-Y;{puPwK+j%WnkddS)%3yu<F4z-kW8#HTcxmD#xRyI)`56$E1lJ6Z5o?5!SZ1
zhZAiO3&rMqxa&-l3ksW+D6W*D_FC#x850;L>d?;&4U9Y>+hlN+%N|cQI}LJmrI?3s
zU=l`QwrX&Of^G|6QK!Q)X4k7}_dI`~P>Pys(?VOvA_ZPwEUjJcK*B?`x$TGC$c(sq
zB(%{gJW<#WRwy$tvTBrD7RNYix3B-pxYQDxQ}$CUM|ZcSxd$tDT+sBxQL7gdeuv2#
z))2NBp-NjqhFT3;echIgbK}pAIaDXezy$c-7b-l4paTdepMpB{9$9v1m9zq7H}Y0F
zmP6oV4O!kES-1Jxh|4I}odMmg%o9)pC}i89xtC0o`jE|AkJ$&0K?4gCRvGB#0p1s9
zEgnxehhabwkpH4jQz!`oluitaMr+wg7S8-a>dh+|kKWT;=wfMG(&@3vJk;FzPoy32
z!IHR@jK*44VyF*X&e7mmjdjjeor{B88EU%o#(l*#)2FGGQp*c?jW0OoI#;AO^TLl9
zL4qjjk5Uz1N(CwkL7#63Y<!ZMh`V!_pwwpcdA7JUpHV85boB>gSYv{Ge+t!=c9}R{
ze@yhSy$Yw`jX8Ahpkp~?*;PP7oM_*Z8&-r3hZu5brWek`39}+YxC4A<^1nn}TNw9q
zADVFzGk7=Wl_h4e*IVtsJf<M2^%49<81PzpSkEukz)=BcdT=Q@Vw6;5xSKFdPfdfe
zMH|v=lpaI4-HxAQAhVWGY7G}~?U%>s8v`o{IJfK>Gld}JZYu=`J^OW{b!?$vBGnV5
z$$O0d2!SsaL|49E&-G(OqDhJfFk}7ugKYp*b4^ul4L!XrAd)6YM}A}r8E8Y#OjyMG
zrxy-nQOEw;Kyj-a8AB12d+yiY20HSV^;=MXp^zH+B#xFLVWKd7F%^BAmoNcPu(a!>
zaXn*BkVMO!KK1!E=gh(+gg-c^y?*_fOjsqsMDE&Jd8+~@nM+*-x96}}p=9*Xd(;sk
zAgV+d7q@SBG{OMOhZx(a{=(QJ$`RF9;x@Q70W~Kfy8MC<S7ByJ4FGk?7G@FS(5)uO
z{wk1GhLHJW7;R9onnmXxH~q<QPz^zA57h+StS|qQIU3;w$hQ)DoySOM7Epw>4vIcu
zt&rw`c}q|5Q(*2Avgn8o&r+1x(HM!5BoP>zX%(~MtWhF+-oDACk?be49qv*k9VY@$
z1?TNTo%sbyQZLk{OwG(Hpj>^xJ%_=c)PnR4x>0tBOu<m!6#483f++1XQS{?%)Fz}c
z%ks_tF`Lq>&9o@j!4MmBpm>i{l01JVH@ZDVKmEDcn6iF#G6YCHaQ3QXtQ$efT76V>
z!PDU`!a{%Z4>rxX*aMf}?sZ|PP6fIZR5FvIqIQ#2_?T>vN(#TI)+e10C?{%o1m)id
zXd%;+2%kugpZIw%hW(xKht7b91X*DyYNOot#9rR>`Ux4*K!#cXofu9Hqe?)mCFxMx
z2_u}~Ln|!)I18x(<I%BW=2`tO<oZZ6G&V`H2`%D>u64dukZK_E5!82bd2FHj-K{xs
zZEm$aKjMqf1_yC5F)Kus%gwK^vI<^4L&k5MN;iQoN4sYbq;{8KU;wKGi4cE8An6>Y
z1BF6<A+i_aTGlTyN>bHqq{eh-HnlY+O>KPAEaq(b)ZQ5vJ%r(JJ8|47V(y->0<-&h
z8jk@cNHE3hM&*d7wO<r(%;4d^pn_it)!zdGRx$75Jy=C+1dv{g&#6Q(ctm_ZDOLF#
zxJ-pVySwcmC)!SbM;b>Al}ry}lv=pPjtLuZ&_?KzE+g2AIGzdh+ps#xq5OB_pGzK~
z?pSpRk!yIWleJexes3q=OFT^Up;hjf>?n#cZUns`2Ygc$5M_0$Vs5S1Da~sulj<|D
z_OL2cPVqWqkH{zumKMA7QUNBIe@lV}Nsox)1S2~lpq(kZG_~AuXJ~DES^G0_S^#y0
zin6-z*(qHl>vT^{oHog(63QZvK~0jV1MMyW@0C~v0*w$t$(oZ4Z(-Jb*`8dMNIRj6
zjJ3_&@^;}k69EX=<B2E%*BC2gr;BtXNV3!W-K51KLC$a;i2>00?jh0ja#eU3I=a6Q
z^a6|@Oq`RpS(>VX)Z)}uwJLIY2|ZJ?HlmgYSacwP$V3`BiP<eZ*EjI@)%EFP&3b3I
zuTJYMs6k4gc{M6PQh4*3s^!41K!;kUA<(zNPsPU+_O$^I!AA*@p#`LCCe)$pcG=O4
zFEHN&@2VH(E@)UTzIATOt}_M(W1yU`FxV{7qN+{_Ahp8iP^&wVC!&ehf(0n}FN}Fg
zm7m^W_7HVZg!scEBE1~T;~bMo%kxQBF%=Cc3fcO8dbXaDLy$pA1)6&vayw!`-GRLL
z?(R4=mf(pu<Ytr|+ITXJSP8&frTap$`=uKjh2I02JSOvYZVw)b9yrS7u)&x(G^o)7
zExU_)kULahu5$!;6B;8)j&6z^gz`8(>+xpeBuo>N^+&SDYqwN}j9y$erQK=Jc1|>?
zae=J>z%&A<=nIH6-I4PJq#O^~$ON`kEvB>!eg|tntFt0&5cYu$?kADxm}ITW4;H(8
zrp~PtyIdI>j94KeJAr}NM=<koWPO~UUo`q|L`&9Aj#WyD%)cUnuS}?kClRziV~!Jx
z*DI9`3cY05nf`q<%+fee1|k1dQ`4cDtUls&$tbM34vc6#icyxb{s0NE2T`J)Nrfbd
z*D80b<^8ld5DZKG5lj0?-Ixq7MXDl@5@sEn$TY^Rf`|zfYA|U{C%9n}qewsFtt#PW
z!Z;TDWMq{xO9@V<*2V2rvpz8l^;(o-gd_?G6(j+G8kojqMsx_=C1mPQPp=O9hLK<C
z$qq7KRn||l*!exTBc%AAWYgfI?PGhEPIWK@zR1QYa*-EjOzQDEAnEqSFH}eAiuf{h
zwfo#U`I-!ij`*|&Ek}s@Nis$L%yE^>RlM0eIbMy7G!H|V=b%drBF8?Z%_6N{jZ6<c
zgu-srt?@S7`)RxDb6z`zD%<*aWUR$BTUKFH4KfLQCmxk#{ygf6q0nvkUjm|h4{vb)
zESSmrJM4t^*74)haG_+h(`Q7;<@fa-|KM;+)^_kF?IS)U+}WHRW6Q|ICsB;2iA}lT
zfPqjvfB4^~F24{bZ#o-W|F1VSopisMu`h`_Z%nkK#PC6t>i(fRZYi>?#Xz!*7m5+o
z_W}_d@O|7RVuSGpQ~Y6cu@QEp93VOn4>-j&TgAa72I{vo?chrv98DHImxDNI7R2>H
zp@{4`m!SGXD7N!2#%7BPq|96-Ku};5XCVDOElk-qEV)AB3`+kPNqnC`V#0VRi1s`*
zMbsf25g8}2RXBKt_;FYivQhy;L>d|iV!(JPHkHg@#-Q)a_Zzkn@j6jYP%%keEg^ih
z{m*dc?=jG)y`QZBs(>KC8D7lztvSJBXN&`mq0N&%7A{;^N8beG@2YW`d;5F=Kc9=w
z!?*JK^@s|;>ndmL`P16vBWZnBJ|6}diz7hy0j^O9L?;mRL1^^|Jm4l1Zz~3#JCMW^
zs=UuomQ(_AXlACLLN$tj1ac5$Q>s^geCY%CD^AinYi!bG(7Gig?ISbAD@h7Q25-xM
zGEX~;Y@FmWWK>$IQQGGlZYb3W^guvRwm~509@+{F$&AJ;B*jfs!6chB{_7*qG2A_4
zA^Zma-+)u({}DidYdMK4BxD}=EQ*Ja>ILIM`Rs~mY6_TC%E4zf;043oOXLM)8%U$f
zhPFoN#z-H@guRT6%oqDlt3~EFD;(KHhNSbj69s2LW`$f-%`d%XnVr`+FwZy50<Tzq
zyy(f-uUA35Du$)ySE(>ZHp3gqDlNK2S-g5;DA7>u%vY7Xj@ig9Z##HTGBr^vD8INI
zU!EjWw}~cCzvV8wgcy>T>jLYXf_o(V96>}_VN5#jVYdA1o8bHPcDnpT<PnbOtsz7I
zPHi%ci6UI?w7dskR4B4H4$-|<3TZ=kV@7wYL4QOBzN0;dqW00+7jd49%_Id3GCFgV
zN;AL3$Ptcs!WThn?G2pMepFboA+>W@e!gA*s&$!*LmM1T4-x$mlOdD?vV=2GiW4=R
zX?oM;CX7`{fdKr7rPke%fwi}1Q$*tIK#Y8S)kEIccKYM0SG*vB9uf;Ai4QRdoLYX8
zB|+IpJjHI^Gq=Mn94iePAflp&Nl?CYyn@`af+(8lTnUso$A%5M^11Y+6rkS^CBV}C
zYd!~IOUU$dU?6LvHa3K}sv?;>t|DOjn6X!dVzBDlJgDQrH@?Y3|7{g7l@e4J{6WAx
zhj%7pt&E8jIQQ7e1n5pZ!k_B!M<aHCtY@h9-u6w7a_(Fd`uG!Vzv;1U!kE6Xy#H05
zAkl!@Nccali#L40P5RyF{VO<2y3k+U!|^#tgzixBGi%MloXW`jEi%X)t^1Y4GRf$&
za-^HgG#3;{<a*}90VARsL@+p(%mo)k_)3KfBm9Ua^lYg}gNYh6wr=4f0a{>@LU1yU
zkQ<WfH)-`pDpC%GbFj8Wt`G(=5BzmtHN&y<WSu?O2Z_Ln5QW^1)Aj1~9R>KITxvm7
zlR#{D24^r?uvzgEkQ;2OOr|*jr-F`$QCR8bn$1NNCbh2z+=SdA;qPO!d1g=GPDqFW
z=VpFc_Jk<?1xiH|v-n{!Aw?i*Zuq5<jQ1g=?e6py3{Sq^MbGCGbu#RbWyi>#67+xt
zkSUPl5T%l`*`e06{z%jI!i8uiYLQWyLs&lfjrLOU$htu@Xd0uv=h)~j`gM*#NqY$Y
z3kA|_NaV>_Zysgtx_Z}ZS}qu$X^1dViqelYrg&aP4FgOWX+maqUl?Cl>{xd7Cz&E)
z<pN`TN!%c=tY?&f67rHTV#wt06WRtKq68U_HJZ5jUXNgb14vhzEIBenc_?_f{C9Y$
zo@Gajma-!450+EEF)&DY?uSUKFPS;?X(ZHRWS<Gs;`f?{y2oSG`O+tdZG_<Jb6mq@
zO6Vmpv2qjd_O(L(d^wUPE_f=R1%u$p$SYZY0y;^y6ulfljxA^=H~-J%f69S=iN=0Z
z`1*pstuC2S$;^t?Mb<{qT&hD0-*R)dLG??22H*VU3Z4yet3E}Z__@I2*B_f#nerB>
zT;Ij~^!C}eoEkqKOi$O}wclSZWEIoXsOvLVdAIod`to`6Y3bc9y!%eS%kH{%e#AdJ
z_s_H8b5vvhFh{|brETp?2G}%kwwH>1*<}6IlXTNuZ$(8#skKU2ef}N5wplCBezaXB
zuAaLDv~^262ZKk4ALhfoeQ^!zZzx3*T?j`;(Bv2(x7%|Q8yX50z9tU~<~YwL3SmgP
z75;xO+Jh!(T4+jnz|FdSyPTe$-k!av;g&o&yxk|gY9%ISt;10@UEkK$R^~R-&6Xpp
zw59M)RZP9HtUnr>GF;(XC0`dw=}uQCMn*>FV5~kD7gumZMAgTS8fbod{B)nvmQ#t8
z?3pr2G<mhJ(#4eIo6Anx>22C+!(Zom1=Lcj&?O-#DEI)($_w43USP&dn|>ucpMRWs
z5;72pOc1zQJ6SQ+PXWg1v8gH7+1@1Q)vH$ny{d8bLoFEsdlkdWAs2aEaT(Ld?sK!U
zvdZS_>P@3iZEE@h{G!e8ii(ORM@2>F%6!_>s_W|m#>dASI%Y>Z^lE!oGQ1l95pP+&
zD@}_JZbH`osPhbOhIyN@$>PF-3qp?CPx%p2?&dyd&tG2Nw4UMERr=?TLs)I$BcPk}
zXtK8oU9BQ>GsD{cdF{0=roxj5COU7f?LslsxWYm>MAU7;0c6Pp8cuon`P21BYig7*
zrX+Z2X{liW%)Wh}_6mkqy6N$xGxCC9|L|}{L4kClPNqM1a9CKy(9lrIWb}&{OEY;G
zuHFl7@4!fHTU*$>ckk-in6WZd8?mx|ukc!}xy~Zm8RljtZP5H$p}1$-l5SS$m~A&)
z>dhjsWQ#@V*^6O<Z^e$-kLYaoIsGC!TJX2u?qR1A)RecJny1kO4<5YllpBufeMSSU
z>#ncwiw{>mx92*Gy3X6!jkE?surt(=CzYR{?>N?Zyq)SA(%#-~yI_Zvmh16LTk6Nd
z;Fs86<f#x8{D1j2)=*9k8;D=~_W$uMNIfS8@&D2XVx(3$4qaG3#5vSVo<a7Mf^_1E
H3)lZIigLtZ

diff --git a/reference/plot-12.png b/reference/plot-12.png
index 5c90f2ab331d78fae798c8306d1e4a8ac43395ad..a2c68230969034d6a3a473dfe8922e66ea921379 100644
GIT binary patch
literal 60264
zcmeEubyQSsyZ4}?sHlLHNC=1^DIpz-gh~qtNJ>d}!vHEugS3)LBi#)mATc5$B`qzT
zL&taRr{4Acan4%b`Qv=C&aCx3D9-G?XW#dIUB9}wzoNYKg>w|=P$<-e2lpi&p-{Lk
zDAY-PywmWTq392*@Z+?;jI;#&gxBu9YA^V4*5<y3JqktTi~NTZI=yCuLR~{WkhrVj
z62Ca&>_XgoB)018)Runl#0LpQAM?An@LpU~rPKQL!drdk1l<X`b1y=@&oOJU+7vzy
zU{jHdB_qL;%ldK3RQ%2xx`aD^k#7>&>^;4v%4fgb&@?Wt9$1_?bW21h4t#ybog}~=
zA+kTf%}pzgheP+z>m0wJ*O@yK|Gd%~PjL|b{ZjJQe-Y#N_lxNcXM@Z?ZzO*I_7}sy
z4x=c$O7!=~2yvNixcLA5F~1YUmuvp{m;_G1S)G4AmW*otub&S0`RC8#<oKs|iNt@h
z@wsi9Xc%{=%ZY|&%fztTp?xn>t?%x=P|{f8{_Aw-SfdW8P=v0&ZH9IlU-S!G?Lxvo
zjT&;j<7t)*iNcD~|M|Y;PoD|@)9Y2j<udq!k4JmW=T3%v!U5IAzrVMu-~Yx}yP8TY
z*|4=V#ObuCUScsoWNT}ScmDi64-es3Udw=tM7ML?&%QOSO}5bb*l6fJeM<Z2(W6_2
ztpvlavk7o(@AQ6D?J6}_t2sW}udo?^kzP^dFn8i*1L|di_dVZ>IH<42-0+Fj#p2Fn
ztC1@B#3!+%wM#WS6M_70o0%hS^6~u7{Vy{nyKc<*g@j1Kd8yHxN;x{U6amR5)|vW_
zb^FWJzkj5i|M)mJz|RkF*s)*RWw~;;z_k0u+m4w>y$e~G7>>yi=dtFKmxR4DGntxN
zT2j>Vb?(c{f9Z(h8~JFy`May=kk4{(swAg8lvWL{Xm5LkW3u{iYshx)2SezBs{4Fa
zhT)<8>^DdA0bd$Vb@sUM@QH%>WTv0x)-*Td<Ne?Ur96yc_6rF3T)RCQNPF+K9(KN$
ziHT{|LD>S2*3jbgOPt-^UG|u^j*e0dDHiKQMk934Uju^6aQE(Pe*F<q`G`{->it})
z!`!0`Y+7on-|DJO3>KgK)}5)D8NpnZn>QasE6B-_kg;nKIL`OjK3UmWn|zhbB#uWL
zB$YzWWAdhZolUchcwk^4c8G<IO|HbOw|#o6H&0tLH9g%duU|PJ+3)yZR!rXD$D9Kl
z1B2w$?Cj9N$e>PhFvabM(E|lfUp6|rFOW0W)l;>#wG|GW3BJll%4a?5kl(<wgYDOy
z7M$<R&Ty?{QOo;T;_B(?>Ca_ctih^Nqu!IJJ!IrADJkh68A&X+&{xz+ELoT(#=+5P
zR4X7Lz>BGvSlVbBI?niOy)iR~{JOx^pQn9q@=LJo(Sd7z58u<zr#9z%WxD+uU!5nL
zNOWKB68`AW`1(Qx46*Ingk;9_sQZe@*90Ll(m>o$;dQ*a-I=Qy)6OfS!OJ7n<^fM<
zza>;)`!oy9``KfRx_|tz8AESB-I(c!o!{#D{^8!*m#fzNY$;6V+_3YnIO=vjn=fFu
zIHw*;Nu4ITe0f^*cVF(+t>uxx_9zy2v^LzyNNl2j{b@$|`0pjd&SPlCj58M~d{$Ri
ziHxGzG+!Sb?$fiebr_*5D=UBZW|P$&?U@IM?Z=dNMihyD`RjYWxN^DXuJL?NRx1W`
z64lhyq}P=!S>duq7bHbbEcrZ{skO7SB~2y<nXfem>lnYFpc2jgD#wLeM(xDAbxuoz
z>cz$vii(QfGo6Evgir~+_B`Bc<C^VEk}kIz;n9{qY-h>8#=&vPa<HT!QN;aCOw1Wc
zB}GL=Zz>_D_wosXMT>rf^tUX2-pbLfr&dx@dMoB7nx|8HF0lDTVDpRfWbD7@GLoXF
z%Pogqk5oGgX&*NSl6B>23%SbpR#fnRjpMr%!=d|nz~VJrYez?OndQ*;3R{CpEx6gX
zhkK4OL$m(Vm>7f68rOAn#0|LugO-Z}QZU(n*1GdODKWu$pUGC+9M|%Or6q)_F~ND%
z9|{JFX|OZ<ajxA$G|uw(1uVIcQ;vt&vu~6!7(Cirj`J$Jo>Q%1@)$mgp9FA$O#{Wx
z;2WVNmGpSykaOl}mS2>M<q0!_>KS0(pBJSs(;mX{Euu*HpWB{T?@JKj+?%bYp!37y
z_xBHv`VDv}Bt1N8a<VmwjpaG^<>lqeD&zMul01tv<<V`TC{DYn`@ZFuTU%S1Y~MMF
zi@&JwJggd7hb04(3scl7vK`;(LLx~B_c_c+v)pRQVV{*W&}G7((Qp?QJU{Eg&6F;t
zkE+=>`r))3PkH00zTDRP<W00R)y76q<A{HD{DAbrRX!_X!36nl$G=lTg`dPchPxQC
zz(bDz*@Q=sEh#pZ8PlJs)cADBYOv&i#XwQ>xJUNH{vzBq+b5$*<tD4Wt`i*wL4QuJ
z%;ZVD(Q6S232YfFH5=a^^=~ZX*H6F-T|b2XL3J4~IN0bE3x&ekwhiwH!8rDOR6S4Q
zb-*buF249JU#C{^^aTpTjdB{#9UQ3aP8eSwAHDUdw)MjzBMfEUKGYXv+2f!-eE6^f
z(<I(1Nj{^oe9V)Dqa%sWI<cQ7(x?=@?<DY%TUeMfkc{KCPQEjFf4qQwjhoO(YpQ$S
zz9x!XO%QYpPZ3vs^vFW0Z|{d?`N$3FSc+gNi?O;9)7_~lLje)b0~g<xg~m%_LB7;(
zt>Ydn3G%-Ab$bu%j@L09rLT2nJRB1vn>nTa?9VDnw;HY*QhV+^6*%lw(~a6|+kjI?
zcPoe;@|g90oVI(nJ?gF?zcN^QUPD7e9#g;G&XTE;72eGSOCqwnu&~gi_hVG|`n(~u
zrhb@HOVOGoCSmcO*j}~U4ELeIBFkm>=+pC)>@hblU=MY4(OA`(m~`J)uf}uBN7o1U
zY8~+h=zTs_*iIS>z4rArI6gZ3Jy4v{-}m9w-sl(T@Am3>1qB4f#vS1+``arkQCMkd
z=@eMGDDTZp2VzoEw=^B=4H!(!zXtQ^3%*v_czz}M&@0@hk9S(ckd?4FRNiUyS+zsZ
z>=No|<@iXUn+s}nk?YF*xM|;hi=c9f)CGYNSgtWC^ns!5Jnv+kFfc<O$Y)DaSFiti
zd8vKQpe4jq=Nr{LVVa2B=JyiW7<TQNGEW$sX6<UH3+TPghBGuCsP`sgiTt)Fw#U5c
zTR5v_M)F`?HADGdj2^16rDr8Qk9sc`$D659oQ|nFfBt--)repaT<6kIxpYVDZ9-Dg
z(=QwJHU!aoC0bwlw;kBobQ2is1pi)-%yc(gUVcS-qvJv!Ei>~ul+Dc7D>YD&U4A`3
zqnP%Pq^Y@ie0Mgf1u83Lh!u(WuisrM>$Q%lA6NtvE?%JEd9%`)AT(Q26W!%4IC6Zk
zYiGwr&eo*xStqr?;cDY0dN?K&H&_^e5>I{p{CP?yA@b@iJ#VdVy<1VQ2|nMTP51mB
z&s{!j7uc`A`i0X_0h-SmOgR*ag2%-BGNb&jK22-vli_8g1iLbgg^C@Sln?K()N^F$
zdL24uIG&@uWj`aUlBabA?pt#UjaLwSd3t*KlTs;!HzL|*(u{d1M1E3?t--Kn|1+#~
z`Y-tK9G8c$!08&{?uJ4&8M^*}o12@{ypQ!d1H*?WrDp1d`jY<Bfx7HeR8+aHBTzqL
zx?Npe<uO$h!3(CY(!`QsDO}H!r=IBOP_M7ABh~%IixcF*QoD~Br*pQ0aDPR(uaa83
zKid{kg~8b{qfDf}m!~hQpwI#sr<S6)S}K@=A>()>={WLjQdk(RwDJPh&0)T$%@hsa
zyy-kgjiOaV>GC?(bt3TJF8%&1nDhROiJzdNJmq?418q1*qxkg8Gnb+-Ew;C}i?58<
zt_?g(8er8F4x49I$~H#xlcQp`L$GAl3<2m5E*8)VVxu=CA9Y0-v?i)%KmGvV3l%`*
za^Wg(Q(FXMEp_>0m_QMi7KQ9*@B!{U<<>=WOwA^FjhYf2PPIk6<uVHJ7^_3O=V(`x
zB5hAz{vu3AXr2V(b<nqKYb2L#9mj@>_!VmY!Bnaeva63#FmqsmOF^H!Wj!hkU}rKV
zR5W};*KLj=t}Bw3mX^2t3BUbJP&$?=K;PcncgU)`<9wI9?*03I9fvPMX~e7|T)Ouj
ziK%>xD;z;@kF3{b?~`k4*Le&q6lPYs;}2XWBl9)FM7LqK?d|PtS8BH>R>vDfgGUIV
ze%VfbY1_7+`5M+OjwhQSs9HxO>QT{MHPe~IkpU$k6!66_-Qztnt6J=12}#Mj8QoF$
z-|AF3v~|nb+{fI*Xa(QlSlDQ~+Cu&(PE?X?I%SPZOhFM)XwZ@jO>EuTeS5j|W_OvT
zrohtgqts>+ueae)6ZRTmR<mY6L!W86|In;EJvjadYBvvC@zciBx~~jkq77Q9;R3De
z4@m)ComAvmuQ2USkB!FSV$m*Qhnvc-*29gym*_=As8EX4PD@0W2w3IO__arS3+&SM
z#>U2jK~CE$_wVC<Zfu<1UtF|^!BC2M4jWzZN@PqE`De*f+;Cwj_!4{-GZz$uALn|w
zhmGil`_UB{6w7a$9B<W?jQdd~YvL6X+F<opgWVo98tJD`KhUHU_Lf`g3LGBouT)c-
znsU9nW%}c~uCGx{u|aFtn>Pg485s>0e-@%p0AEPip6D&~<%;@uz0<U+#ASO@f>MmM
zC>yos6A;jd?g}qZ4Q0Jej?dmNWbh^EhtEQ!n=YlW%XcGJES`~cd!y^4*niD-sK0(t
zne{*WoQ(}HglVf@=TYgQd*F0#X|VKOsafyTzD}*1KyBy3=U3+oEe5!DbrKfYLSuPM
zU)+$3MWFyx1poju^E4R*2(>n7p1;dl2K@{#ibd_TqQmhdpoE{oB@gBBo|EZ%5b{|K
zueMj!y5b95CL($fD!PYfU5kxA&;(4w6RN(I-mmMWEw2#AdjVG9+uP>R2XTVq%YK4q
zv+8<Zid^NjSbZQ~2NS?<4_aWU>zyaI0CXE;Z<}lN%>{0x=7ezm#S;TwoE^Q!4QLV}
zJ_<>q>h+!?d0LexiU;uDGhKNb74=Hja~BtCyQH!44b(O0<4`invlw}JdS>d9>yP$W
zfKE|cjMiv~I>;#z$BVclv!=MRr&cnMl(#K?o$31ZQ$PrO<kcL`AsF-Q*|R|3IBd2S
zHR24*x=bXVJfV1;r{&MCU4@j`<`=l<JxJpk^gaRIpWbJXiGB|~0hm-$5XO*;_V#TO
zDnW-&ivz{ARY;S1A{)!oHY1unQsvnABTc5Zn3lqEX;78=4AP%^vXqVNN|ZC?dBq&~
ze`F}o2po?4(&&GE%ZZRp*{^Z3Hz<Xi@H<8KSp}V!7hmQwRc+_@jyL*tWhpbloYk@l
zY%~1al_K4huPY|JzgQeQzuD{hDEgl@_x&<4&$)BwPNB+mv(@sQ)MtMd8jO5op{2d6
zRqfRA6#d}AgCYwvvyaeofjqH_0rQQSW+M%h6aJ%oLvhsfdHuR-#2BWJ-IYK_Vo5^u
z{#Gw#ClofzQI-Jx@=>J}sWvVcPbSW>p_Vs&ha%8q;`U~~zEiGx&64)vp6}pD9^4?)
zC!-d;flW;k9ZR=8c5J#bmFRbm;4WQUa4PNWN%Y(^?cjv(-8fUrJu0l=vE~JA7<pyV
zAs~^6l=QXO(ay<Gk*&As>wth@7SwikmC>L#3G0rJ+~u}Ombx=8A#58EtXasw7(n;u
zB_%uvA=}^rs@@D!+k;%StF;Y={VA*wb_}~lk;G_cpK=}l>k@Ka3-V}I4Z5*QRD#4w
zo_kr+j#ZP*WV)<td_eV6Q?JWmpyODKRFU}m`?F&_R~ybClZ1eRV%{k}4>(=_bX{Oj
zP!n`VPPmC3Sho$~wf?^mA8`)zt`KTH54zYmG~Om?kcCc5PYyP_6@HeQ10SyN2JX*e
z@*S1?q*NSmEwH^aDj%oz2oQX}+Dada@NxA@I|iUHuK_I5ad8nrvAFZ-5z%RUa&O>U
z(G8?-y6~n#{pNF8bskqhHE8L})m$60uBT;Vy8r;VVm8tJdyT8T12pplA?N7r7VK>(
zqd*MFI>nBKjlaeF!*xxzhSB3)x+D!%sVhx}4A?sge!D&2nD1eWZ`uWw4M^axFllNW
z6vFpf+u9o9tn22Y_7W;r>h=}0AG4)qWMJxpDFuGyUboQFqP$2g><2h(0<irT&>3uZ
z*Np%xeSifEwC3dA)>5F4&naDt6W+<1*#|q5p+BpgIbim@gjGBVD=bs1k}Ets9JvSY
zVfBMVA#P=rr|IbaZ}&Gy+=t-v*j<9ZH6p^WeV4$~|5X8O{ZkmdGyxIO#9FrHP}$LF
zq+Ot;>|fg26#0K5vyssG5FA~6@#oA%{y*IEpNm}oT<`yF8eqn^B(Y2X=v=!(lu1g&
zxHoU!1eU;P)|Yd$d|=f4=wSEgBHuNYNCQSi>|FO55Q%^)tvfTNZNWG;>fL$|^<6Y;
zOw)2|f&XMwDH?jQnR8vnQgnPgKCCL}B3%);{Qa0yPoBBh>Z$eQNo;-NhevobbvvLF
z=-nd!o-TJ4j~0>slqx>~c(B=+kz>`WAVBINQq%!<&<YAtz)WdDcp?eQ<7<3;{mVt-
zcyDEIyp>Jo3aMJeqy3(%$tS$`J4L<JjD(AeYl?TsU4xa>%a@Yi#oEtGAj#cR^(p<>
zh5kb-x3f@{UqMNIc}ev5isC~_JlgVcsK{Gwf;C-IMugAa7nRBEZ!O7u-6$F10tgJ8
z8%_n}Rmcfr`0QECyhokgbby=)+$p<J04V7<>*DyV+l{0`sdHVcg?ELWrvMhj6yjgy
z{hDi(dvvg&Py_0a$ylApUjpFu>(}4Iq;r`|i&-5zJ|Y8xUA#+VRjB^3_o!JHsehV<
zPgqHz_)~7ocD58eZA8{I^hTh4C!9wd$&gZ-qgDB1sgqq&sQ{|X=E@k&ZSy_}6%}G?
zkJY<?<$9-|d6yehxo+IxwHo&GI^G}KnH4+s7j&Gz1_wdj3mj_|s^2d_%~qC482}BK
zx8J#q05h}QnXD}TrerPXc~GI%3BoD5EOGtLNa*?KQ%@uZz3%93Hp^_(<Ddr1ECb=2
zT@rF$Zi1s=n6>DV*X0zyx3{$sB3cCM*Lqt2LbK1=%M!4j<*1%@CPo=OQdT}JVW=ww
zF-gwS5ZwV~b&U3mkDjm-2uag@h5G250TV0VEr%;??|mur*tPTWRc4->o3p#>v^+eA
z-K*`Dste&(%o=hARgPiCeb5SiUPd*&p}j{L-PYdD+`Ai}m}sTkxju~<3AxS9t<27C
z*25GtUAyLL)j8LlVHw>E$|47cLN_m-QqOB3O1;BQ2sy{Zf*4!swWbzIEyB~n;zMxn
zHGY?hwS`5_&oaxnbisVxdUgt4i{B-6PzCd3_3dUW61j{XzC(*19&V4>)p{KtmLIqW
zlCn{5<<>ZcxOFFa9o_8T0GhC8Au`<nTHJJ*PK8aw*tm-%+(z+JQo1!f$5(T5#>UP1
z^VnEPWi)(bBvkTLPvE8@T<`fA>N}4gN2jlYlo-LN@EYc<`${e2u?~=h_q)BLVW5&I
z$*=q@Jc+ak6O&B2D=A%m1qB5~7unw9P8JqBujrJ=nEpsT3sQ;)f!thzu<IlFG5byt
z&!E&zSmATslbF92ZuS;7bp#~5RaglpP=JWls!$k0YjolexAU?V%DX|&yUWBUnF&$)
z5?v<F#w>7B1e*XnhE<$?Gw)8syLbLj`3*V~MG&@38I9@el-Acz#>o7HwR9dT!Dy}f
zzVMCQQI8EdbyiXk5xOQpOK*PySdxH-CKUSk0VqMBZ^qT%qoZ4A8BM0e)2_5bP+#dT
z7bxu}fQkt~EKwxJ4M@HwCPo9(sTtr_*GE+rF{wpeucKW??_`<hgC(ZQbd~2(f>a75
zC(0}a=rW+$o}=}_^glm&=76l=Wc~3`b$lI&u!rOicAI(E*&O%#KB{7}9lf>&p25-K
zZhq2s9!WEOM@TPaBAE1w0Fe~bCLO=TB+VKZUqQqvl-`fj2fv3axlwxUkvC(b73Afk
z+eW^BSM*qKW8`<=%8@13WF>`iF$t>qXHcpT!@<Yb7c-4@tL=75<TQBA>c04s({~zR
zXVy)fY|sjVs6{9c#0XMiSX|tB5I-fA-XtUh!(#nO8By!L4f5v2g*YD5aM|S>*RLa_
zf{B$C2BpGbj_CD8DrO9fK>souPYsna2$`H9R#J+3kb^ev^M^DFT0heCRsoS<ijI%A
z>(_wmo0|)ZG3U=R5$=Y9YzB}I2bCffJaK7WLS@|cl=T}zaik^xp$sF~1++m4pc*of
z7XUv1-c>5M(iYyGihyPyR^WAfRCIA*1vFsP>Uo^X65w*EJF>F)0M}+_O&(gq1*5z{
z{i5aK`q9}HsbE1rR#b-kws!Ai?0`k|_AnZew>UET7ivjgmhbFscnp<U7A?cLB?F>E
zSOJ1Gz~uM<dZBzwk|??=eze|83@Enc4CsQ_pi^{pb%8E*G``iUinSf@Fqne1>CDdo
z|AN4CSd#vLr07^!&YPN=!a%Xk_vh;-dw^(>E*E$Dy$KE25Xm6E+j)wMpD^xB3<l4H
zRzTni2q;h^zQE#{Eq<%7uU}w0DOK$VyywHy#@9PrL)L_sFTdodKOjOCxNaC9j2#~)
zHIlc#Tz3f}3Og1#+L?42e??}qw`qC+&B3HE=iMK({OUy+d@g92p8@lsh#l9r7Y7Ws
zG4Dk{9OOuJow*WMU+K2@v6gX>8YlwL!-l2uF?Jd*#5Ie#<XNcJ|Bn0F>P(z<G9Yw-
zA_eX@SKv3dY$qfTBMcFn0t4?Mg?>6lcVea^&Z*yV^S4rE9;ihmr~(jgi7w4EEuHLr
zc)1%Y<DUxIul2w_0E~<VB|7@qPSB1KQ3K9>7Y53bx^EqPFnvrko7G`^LQ+!bO8qf4
z(B?+Cu#kd+Tf=r3ww?a^qgMbohnLf`(gd7-{P=-f;zVBcvN-5o%hfBQvhTQX-@SVm
zYk-aV`c)QI$w^d|)6%>x8tVKG9REAmambMn8xMq+u*gUs1j1%zWywpM;7Fc*4+Ler
zgKta%YKsyGa{v-PfIQ%`RN7zQzHL?Qh?Ei(0_in6p+F(l9i6BsH7GmH5elMNyZ#th
z#_)9-p|#pTr$SmHxK$0m8eZNW=|hJ97CFA%lpc76b%$G;4s$<nVOqiO_&s(CMvUSa
zq}uOYHT74<d)}R)Fo~dE?oQ#CP&Mh<*)PIfuYd-zy0?%&xjEM@-#?l6qbyL>%8DJx
z#|seiDL~*m54hC^#F#&rd}5iE<rrM&U_!p*F=@H|to&|@HW;GAPs(c6wq{*z`^qf)
za;|_w^AfoF{g8q~ICcWNIXDf=!vd%~z^Y}gJD=3HuwVt2e|=1|ytD!cvt%Npa=L8c
zgXNECpfXMwXu^oc^S=9l-`Z2EPCU;*hX5u11P~4;&$=~8w#;4D9vdBeRA0cL@r4C9
zzScq`4a)$o_51s~Cxgg2KTkh1(%1@1xM@j4vuZuYL$IAxK7=7rD7%D`y>U63LpKEU
z;}7s3GICMOs^6g&0}jGRjFf%a_fG)BU^?G}Fyvb6Ntf(Bk><YpNT93U%gZ%o4+Q>(
z$vv%+c-=$PYrs8$@HPRD-;&eqQO!_t$8EHm7h=V{JpB=aj}Zgqb!|R7Ul9FW3R>R|
ztSXtD1rS8J9IGK1@Mjj_`{w(L#RIIs8w|PH>IJF?>KQrD(l!lO+8b2@a_bux?V58q
z;r$zWlmD4i5LV0v%Rt->06Zr+OqvZgA>oxPb47LW@$p2qW+F~N;;uc;*I6o9Zf(79
z3o9w6aPJ3@PD5ctea~7bRA<!(t2TD43o5}xK_YZ<KNyjU90Oo&yqGMSC)}2UJYh*m
z9Du{7Y<5BU6C6p*)hrJHfmI;*Y3m!>i!`1eJb(58cxeXUB?+ATVGqc37pgH9gC$wR
zWnq2%&%VWH&AGgV7E-MJLBn*YdA|PmFdt^8d`trOvyet?_E5jhkf|k~yN=5^F3z2v
zT+MzX4M)l+)DAO#`P4--OP%(mAQcSe4(-`gf!(~j`z*9sKMYfD+WjTFPy>CmJ8MS;
zmf~ugV7x}PQ?3?R2m4FWR|M=*J7(W<g9R63R9sw)CXILu*AnIkOBD08@(Q=HA2dKh
z3JPXGa;o!K*S$Bl6}~Ca3a{8_(j5F=ylpkiU%jAPY8Hj5Qvr-cDLPfay5AboH}`;M
zYz*CfXUJ>Rj3f7w#)iW_2r*Md9KU~We2(zV(U1de5=C(O<?~CL^vUOfK`cr>`kdB1
zCvo@g^A^Xdh}5fMo;8?DTX1^B4zFH#)Q<%t^{2MZVHz5yZmggfstKTiW#4r6seEJ(
zK-WwLQ?}?U0tjcW220ttP&wnFl3^U2>aUwE5uYFc;NiG;$`VUvk(*$`;vA9yN^o^f
zJ@9*&O#(r^{oxT2Myx=8*c?UrPDMud?{3U4^%Z&^x^*}nfKbSbp%!*g{D#;zi+6<F
znwy&VWj8a2ntIIvp*Srl(wss3F1!mDO833)q2oWsJdlxLDYr~zkf-$_=hXL^Q5Qka
zmoqK_-@JT7_Iu3%)bFJ)@2$q5|3$scFCAI*4-5q03v#Y@G+XCc9bJ#aY&1ZaB2O&Y
z768WfdTVg!OsVE+&Mq!VE9?q22ti}0JQ^O>sy2d_iHrKszo31Cq-V%}s+BOQIkgvr
z1hxg3nvsomNgnI|LoMYZ(>EJ5V?})#&x&J1xASyByC`yJjWVJc7!?#*n%u9prZCy>
z)LcqqXjqurx*0$R06EjtRhPj9Kq~Ws&DL>{AJb3HhN}`iG;c;JlqTiFFEZ_gBcL+u
z-MgEhH9-s22kCrWh5&_#5!DOKI%<Z7sp<uK&%wHq@(;n}X;)jc%O?tJ7#bSl1vb;k
z-iYA0o$vuaJ0{-x7P$mq<PmI{)yNYR0e~c@pBJAH)r<z*<l|F2I;WGbBci0P&NK^B
zzAU@fuTMDDwy@3vs72iTz!DAw>(=k!z~ci`fFiLZG@?M5+<`EC+uZu{b*;-2p}r4U
zD1b&L2?|<HC&*iX(ENdo2G*hX-6DVC21t1wY}X%0wS=@85}mn3P3%1Cn!#EO)|2mk
zYd=UIER)~4s+tl3-^PU;fc<wJ_$lDA=%IM<I6U{}7`uSGKINg1>9K`Th;v#Pt*r)M
zy1cc$ohTp~`My9xn*rG&t?TCc#)f4yVr$CbyVdH*CW&f;6a!F^?yGU}eaKxvor#zZ
zp%K%egMQ-Fic}a<_>RP&KfM_WkBVaO+?^&vKpPG*Lsmcw%&p>Qon-@{wKIzD{5p9h
zRAk<0G3q9V<rK4gcEigvfzZdb01^d2pB{KEm7)Z`sT7!MQhggp@y%%=Q5cd;AjZFN
zfrQ)mD*<4t&lbGM_5A4Wp2kx|C4;-~RPXR{sDCt+_sLK$zvB-T4AcI4{4Z?tY-Ln3
z6CLQ3C<5?m*g1~@8j#-UGGTiLnAp@_IOr;${Nh;s*kn^ml-T7Oh-lC;Ge1NTfLZ9M
z{!K8v7LXVFg358l#Ns@@f`Q!^7#-*vL)YKF#=kP*aK)OzMW#{htd7DS<@|BV6Cx}b
zhfd_Qfq_Bu!R|&g1R8u`$iO>?@h|i`_5_r19Rm)EGy5b*plA`_{?2roH3i;&XWY{C
zM~>y-rD}({@c5XwZ<$~)7>kOFjcP!Ep8$PRzu^ULtfvRt1+0_c)hKxh;>EYWF3<t7
z38%5*sND=#n|I)Q;QaeLZ8aABur7!uXnY%OZJKZ-p{f0tzHEX}d8;duN=+aM8dV~x
z535RE%RxNUL}3fHeT697Ssm*ysnky`4%gG_;#a|<v?tFdB@L8B!ZUMD+jHI0dDeTI
zb5{9{2?i~CxBS4rt;T9q+DS%Vg+el9>k{Z__#P`0f(=)FmOs&!4UD2y5a!`<2(6fy
z?hRv<AGEsi1#)4R0<AhIffuFkFArBLM-LSm_;%EQd!kfnXN2?VDc#^aG$#3olQ54<
z;%P2lPBEQ&<@oM#?vtpuYC40hs`1P7U@@bv4T6UFaazQZ3`<r)aodcaQk&g}02H7|
zqa|$w>;Tpt)UGR8a@tvaTB*ZU?xe^ViZT(**x#H}PNvqq?t%ug?g*<@qr4V#P!AYP
z;CK(aAiv<YI~`*=_<ir;{rkxAh|iO<+PD*!Mb#74!2JN(Qv)R_rXxThV#yn)eWSDo
zhH91vXDaw@0H&=itR)ZICqLgWv{Ey<E*-fZ{tG)rN%Gkp9U^vop!}`hPV$xGbxSR+
z_>SDy0m>_r)hl&FrUyp7(p$zfx`9Q%<4%7*>V7EWUO6A=Zm{2@=DB0OX`!Q&7=&oe
zp8n7MGKKZPpjjNLR`aZY@JAa9(wmC;h+36Aww60H^UOj0zPJDZtElP0QuA4d1enw7
zGIAhbEJd$Lz33m}Jgej|CS;xf;H0d^p%!4SPGx=1L~|gnB2U2k3NTbFmjO`l*Q$IY
zbPl0XOK>nhQwGYrRm=E==6XXj*Ab^7ONMzRUGc}UG7e*|vs9G_d}AKUA1##_cQ4Y2
zE*5A>Nxf!OJBTLk>(T|8JJu==ngA}U&}RHI(S})1CT;%)bOF=B(+gZ%f@{-h!CK98
z><eUT7pVjz&0LYij%S0#U50!`gwfJSara<de(hH5$h6FmRUEIS-9n(d={Ixtq|0^p
zSNA41hRp!dobdJw4K3fV*B)Vq#1{L)P`wwRqm|zf`Vz8TpL$R}u_^sRO^Mj`Y67Im
zY{7K*H42tW3F;gmx$}5F^$;;*h?H&NUO8?1>g1C_IA?RgGPGp1Pk`BHdyjJYIv%`z
zaYdk-qcUo*{p|$3!eQ4RW5%MpEr;1ZvX3d=BKqvAJFGdRrl@#r-&H1>b<N_Xu--^C
z&dJj|Y#<_gbw7V0rLO)qp1mW&R^+zLuR9qVKy5q)4#8a)V%rCPD-`bx*h1j&^LY;b
zTt@KnA*z5vQ3^V=&MA+Jj0e7z3ZeA>mLPNz1tWASqRj`8RcdPLoeX>Q{1K2)Nb^a7
z5}{b{i3Xkdr|?aePu@7FfW%mH^n6Y2(iIUm9?)sD@;Wc~EjgqDok4knz`xIPQ5sB5
z4iIvHzxvmMZU%W69+cwd=FGDsG$}yUFJoTEOGTo^13`dLPNEPc{VR881(h;PO^e1B
zYIl5~llhHBh=^7NYt?ShkZT<L*Hb7;0lQPGA64#3Ncea_AEsqxm8E_Lu>D1|K8`n0
ziyLqjs1hg?G(~BkeA-qo-H^pT@RbE=5Z@*shX?}83pE{AT+lNiy5!-{=-&B``wYrv
zHo>{7RxYtj1|XW&F&GX?@Vzspvmtww5qO;cs64;czA3?pWf@qLogf|E=UgMqRb6!A
z?CdO((?WRz`W-qPqXt$jirzz^ZYU%!uHRe&#X<}$4_~NBz+Q2IGtjziE&9W))-VP#
zSOF^S8tBCCmYOwS1mc6y15*yXjuy}mZ1$JRg;?{gs%vV5W3b@62~dHx6Y;jBNS)OM
zFfY)c3yY(*Lz8<a<TS7X?7DTVV%x7T(S*R!Gm>H;NfCnqceVFv?a^;~_v}!b`)Fma
z#rg?h)BK{rIv~HS>IEp&cf_V!{d95%WR^l8qlgKY`&JmKpr|r5H(heTYXrZ_-vT+S
z;A_9vkY%|*LVow04FFIS3fkp#i3KPuRNs^t8%wSW<xn}k|BcDz*r7`YUzznuN$ZR?
z%j29oph{x)AUmktlc{tPobVP%1R_g^n3(tzke!$+`uwAbvnaJZt+4JspHvPFA)^q`
zpH6zq5}QTE$7|6krF)vn?PS;Iu<F)PCjXv4laUWTXJn>yem^}JoB#`?0PG>51c$|+
zgtyIl?f`LI1x6?&I};B=qSNS@+X7qpV8c9gKs&c4KSFs7HNVXr`RwCz<lm_|K&6As
zA1*HLx)BcrAe?F2^wDQvG?i<#fJia5$&z1_Y<jf^!(-OdYOLdGO0Q=7F;~6t1mtn=
zf$0T3;x(dEKq#eHK&^N78PMEPtAHufYQQ7ybKsCxv*yc}fD-oet8%$DXfpmrrDbvD
z!Q`Cc-L8iqNJXnZPB6R`*Ad&7A<D7HaMJ_pT4&bFEO6MPtRTRO<eX8Tzy?Qfmz*Pn
zpC&)}Qh$c4dI8-Kk?xxOFY~s1r4JR>xA%x71Ia)^boV--a9?15a1B)li`gn!MEIvq
zdM7*CO+$aOs{(c)>Yr5sGsbn1Ip757v4GacVMa>3xbRyIS3HLt6M=LnwPUu9*Xk4{
z+c!0I$VAUs{fM@y^^Hd(jJDA^8`3lbSJ4M|7UK2{j<Z|`b&M*}h{6IEFsI4)Ylwd2
z0$p$of>Vg7v9`8`#7{boz#JGu+E1pmoF&B8mUQhz(xzh^a_h^$)l_H<D+zL9Gk;>R
z2e{2*G#?<xG#BD70C!w@)NGVST{yi!NK~ig+pK>xjHx(=$KD9UH@hboCgo@F6+vGN
zfO3QcE<gip0^#IMVqyrV!Ix{iyrl3C9EI_M?=p|XXD&J>|AxS`{gbU2T~8dvNW~n8
zwT%c4t9nemt76Cgrg_$bAwCXQ`2#LI27E0I=sGMaDovp7$8{GG%NUr<m^qMODp~76
zz!uOhHkONXop-7P!B&PfJ8gs#Xir4<^3mJbwrBDV4khtUyk;_TwVf~)kM!&EMLTop
zD{+ui=|!&tv!SwF)@=~KqRq4+OY=v0fWNh4!Cqn2uIeccUM+&Aip+4RZ}&i}geDnO
zy<8>JT?C2~AL<vF>Fm;iN&L3r@?>HhHCH0&;W$9rnjs_j8p%k2(i*X$6}-uMsb+wK
zHPG|IFV`183B5MMfF7OEAL~il@4UJ+9Z+7r0%_p}NK9OSNdYZP4_Gt#Z8Ku9?r%Y=
z7)d?CaBR;D_U0sIH+$JI(tW(&t~(R>P%fjp4a3YvdLHVYTKa;R*HKOPZb0%c&}zY8
zA<}&|F*!L6LQ{rzv>GG6hvPsVhyGx-bN=G6M*SipY5%OSO=)x^k!;9RN<k3^-`NE<
z4oN=16mQfoyrV=c&~7wPWOQ*s$!k{_EFa9$&3qk?HOUNmbcttSq0VDKl1BMXl;(Xo
z{=h2q!MSby`ZY49US#X10f@>4H?!;HeD;1kbB4&vNfg1AE2a^5ik<-#L3smr8w|de
z-w!7;p-?hHlhD`}Ll_e!IUAZysM;L!KvtGDOoi<azVY7V`U2c;9O8sAxIaxG)!vj|
z`PivyPIrZAgpESjG6vRCn<+N;<RYQ?FIeA@SP{Zoz>{V%-{&>?{%P50K5ww&3O2K~
zs3t)Ms?}79;Jf7@w<PrlAG5k0VKL|Bc)6m{flGSx97k{l*0tkS?U$!7gm?EDycY((
zB@Pv)&~k{k>C2Z1=vY=*g&cpIz-E2>-3pO;w8=`#1?%QiRcOOq)y~%N6%zWoW>XXP
zynevQjO^90b{xBXaz+~}?Cm@s<ioZcovi8CIT{qL)d>YiMTN-Ez?|Ly3A0|h4J$d0
z#j%C~@OQ|qtuK}qetsuNkQ_FoitYB^Jxjc6Wo7j)w|ZykRDh7f?>F)6OTPs_IjO{8
z>)wPwk-x^kfO|*j^Cz_w*IFuNpujcKT9A1`V(J2RB~W25u9!Mv=T-j@S4r8m{GKJc
zo(7~S>EOWQAehkM=PTmAWipruNWN#fHB~RYj`26#(&b_$dXPF@pjA%qPs9{uNmH6v
zj-`n7NjO3sPOy@OGg12g1mp&5GR!Bj?A7gYgus@^?1H_hq5o$YKXJV8mDRssJKu8?
zQU3t1Ae$_dvK}#1T1hIcLIpa(w8uqy`SRozuj?TDyhKiRSRw2+iE5K^FCQr=%TICF
zt1{zz*5lt-bnx^cdTzbOb%SSQZyKc5=<Y2mRUDV&jp5#B5%dAcE*>jdj_U;_v+3oC
zT?8`bXT;eDODRP<R8X#FFy+X07Is9~sIxONO6xpV1{~r$Tgazxha|b;w|Y&Q^=9U^
z)Q%O3oQH1cuBy@uM2LF2F2zN+9G-E>uhqJlz0^JDK+bI(<WUd7i~Rh?L4`9~x@buW
z;;+E-xB&S?UCOJpojeVgK4Uk$3sgV7wTb359Z>U&E!lUKx#K#>1syUyR_1ZYzDY<)
zwTFcuH57@FMpN-w#UK3OviMo>D8HE1fJpooBDzA%Y12)F*W#x)v>GJLI6giOEA0-5
zDvM6Cz5bL7B2$Z%HsdFtNzT}Ks;iSHdaOS{eF9Me34r<<y-aXB6(r<;zZ7(bukixi
zb9gstPtANwU>Q@(ebQ@OhaGi7t-_9zN~(Ks7btI!GrOkChmd%+zI815(5&A8T~0f1
z8?sA3EA5~8*OL(ww}yRy(36dZ!kW>dh<A2PNmw>NPV1Sg4A6gTC1`fWUcLdcb>{u=
zyAEmNrqw(aKNaPze-<=6t%M*-GFU^XfI2@int>dvG2ph5>N+yj0++8|Wm!?mljq%e
z0ub~-Rz^mqSRiys0OtEa4meECF8NQbJrm<Pj6vz3y3>Ux#+I@IF-D`$&k)zGZ^6%P
z*SI6rRV9WmUKC9M^9<?dO4Ux5lp<~=O^3;)E<5AC)0<bVYo6LCX_q2YNM2KVd7t@4
zE(l8gppL*q6q_=05GC;s3X1HWPYoA=TWxpU)6TA_M!X@$1IS-$sBYq3`ZW3&XVjcS
zt)>(W2BHw)-U*)ZyrZX`WS8zL>zekYKDeCUuOLBu>lAJR-1Min$WNhg?)-KT<b>*u
zXvJYMF^rfipfm!DC<GYNRcIiMa|c9@Z|Qk}w%Xmm8JEd12d&jk6a^n|0@^1jFCRi6
zjt3ex@UQE!eAet3=v7@-!}C?3MgMZR3MKbx@hB`}6~r&cLv+mvkhhWhZRZKPc!ldm
z`bZTBj`S!$U;<yq_dq?%F$Z=p8axMS^eAMTh%vV{ln%Sm)CUm{Sv3*0OfCDdoW)R?
z+_F8W5&+qnLH3aVRZcFa?=Wo(n%F?(+*o}*vj6E8MQ{-kfCvD+$q(X#k(r1H(R)M<
z3kG$~s(OhxW7^{><Va#C9i{*h5TYbtjW)rgZi2CTHDEz1jt4s@uEDpL1SBx+2K)si
zZ*a=u4%fP*Y5W0PAcB$)lVCrHO3jFb22hJ}JE9jT!gLYjRGleSfC}9};nnJJER;iv
zF23V98XDq|1<2ZjP`54vlDQ1vEfsYQHqU74Q_Z_9QqgQ>#t1;FztR$b=Q-M@_jg}f
zOne2^O`JGE4U&%p5b&4?5n3jIY-IE_WMcEP5^6@+uUxspdpxO@qfTpQZ$DiGHVqLN
zrbQYE!+6;A!72viDS?EQ%n>bD$giA2DS-kBa(PkF)E<CC)sI*WBsI!AB&OelhZIOi
zEc*~h&PuwuRqaegDEP={L`>K1&9h`+-4-^6_r&nL--69Kvs6@;QG4tK-ZTM_o)1VO
z0c_uJ*qTEIDj{t^$Yf3qD-t#Ds&#jcD-*Dr@=JFFOMKSu9n>R}kb$V49+iP~=l~>O
zcy4Fb!BA*?(a4aeLbf7Rj&XBw0feWw5Z%t5t;*M@073n&h<h17-~q^g749BKf@=Yw
zia~VmH$9^9Pr~N9*v38MuWxC^@7<Gxxdt&ewX8|z3)YD#qx1GtQ&X*O;Oa301ehsd
zchtr6Mqq0*B!dyzp4EUi4$1B}fql}1#2S#}hE8lh_Uh3@AFTKAUGO=a?bx#GCENb8
zr6HyZsnHuiJsFOU_N{j{^p+-J0Y1tzfSpS6<@G$srYl!g&HWS!2@*o+qVv$cK`d;a
zxu=Q2M4VcIpuTorK4ei4jsDA`{H!z{Eli>e*J@~uzYC~ADy${!21+q~0HWuRc8d&0
z?R5;0!Rn?1G98zO>8cB-Uv?Z7_1`2G_XBEfI+~~_w+d^rXJ)6=v&(S{EU6eds`=E~
zY&92`iu+K<t_I$IIzO+9%nyv`@!__er;}4zx8?F5`WR^JhR#P|H;(MphlhnJC5M0<
z*}mIn_<?2Ks7F_{=MR4oiH<m3F@PAwTkv%}jv-cPV#2U5Y)VEe;eRTxxF2rHV&4a=
zv4ewyN2PHrunMCc)h|<oWJXA%coK#n5U39*%xU2&I5(QJk^pav=)PaE_DFOFgXZWE
zC}Zpp_wC!N?0l~4hH<XTUrye^zrrQ4QH75BW%(o3e`x;@f`7K^x=@BPRkNehmvoB^
z{W}fjfs6QKKYFP!9hnVR6haEYp#qIK2CUU!UT#wi-5V8_t{s@Y59qEdq|dP)Hc>FN
zdx5uTmB0vA@*0yTZA~{K(bU&$%Duu1I-Je@YpAol?l@or{QbLzXYGBlUYRK?@-U{j
z)?EatU@aiZCO##<qOvQb8vAwJFMu<`gcSt16Aa6{Y5d^rTXIA)Hs6lW1OveX?>W6&
zEj2`PJ}WDTOh-BHais(KN8tXQu88@Fh=?V2F>vHu+Z@0ow@CbQ5e0<A*+oJ6{qOJ`
z5TysTp3Jv`(^g>EMpS+2-bbdM?L>zyMLKNu&h%4=2Q`@I*Us2!I}h8Q385AVfP8oJ
z@&WF7()W<}WnU=NNz5{?l>=4hL~=?B6+4U1Czy0N#8kRl(36#Q`etQo-LR_|j{5h&
zcP>t5X;+tZFhqP)kI7QYPi(~aV-T0Q7*H<~5v9yafz^vx106=eiNYpr5l%P(M=Rhr
zHqI3x{2UyLM$LEXLun9>aN-c^{b7|?Vmb6!^rzgRjUZb|{1EH_88^xVo&HVvT^l0^
zv;*4qO+VA-y5|a(t>dm2>&=^OGYx`y*Kgct-`7C`u+$?Njt4ty5bl1Q6|+skwm&@J
zBrPd94o0iZu3{SKl%yb1vPHZNuy@Gs0{Ed1<(7f^wYrY0TZkJ501(v|W9xe1jj!B5
zL+B?aCOjx&V$1hi6Svkd%3vUGCGjB!a(O=Fus|Vm8i>hON;!RzlK*{WXGSk1_NE(8
z=z@)z-zO(QY;zE&n_gtIG<cg6bO}yS=@3;3sYdvxU&3S~h9M&b99in#_MRZ^>MK`J
zkU1fV43Ye6n{Ks8?4pCAHKbyHp{y6QvS!#jCJ7s%UV*3>78XVan^!&d<}za0?Kfxe
zMt^)sWeVtE*n<^p_XOE-h`bFji1<R9;$vh>DMX85Z;U@6H0ahy6rmYd*tC%gVs;BW
z{LIY4A_H3!6*d<Kl)?8t56uafnj{>qsl>Fq2_%q*te5fWT{hO&hbemX&}b+UP79c?
zUx|U65NlUC5OQ*I((&-9fIe~`pGH&*1h2HFw4)FxOPa{v5s390>qbaI!T=ik_171!
z-at$%=S>4>NT*Po4!;#M9J4uEz+J2EE|LzRB($zsdu=jWQwiILh`~OBVGaPS8~_G1
z*wFC#bEt{R*~IRWj(H>a+e}f8*wB6Rc(6zis|;MRvo9O2!4M*?vI%DLw7}9gwlgJ6
za@CoZ14WXX3;hZ}V`bo)kfw*+_(GW1MCDFQ-v;YK2AdNO7rts**D|2|0CWhlsd+fO
z@9T$fP<)>|GNiEAs0(%_DnY*Z19-cjaQ*&Sn6lI9bwn=@M%TP0OULXkP;OcST}Xxx
zEgS%kSfpM7U3dcI=*vmyt#`ixl$d}|?iU<P0$UhQ(Z>4!odp2#D-as6Kg@K0SfLe^
za+V4j!M}Rff2>zpLoW&-VQE4fHhlvFq?sW{L0Hg|PV=wqw?NXHfciE?-c*)=w5B8o
zbko0^z#q^Q1`e#hwKy;V_HyiCws0`wDPWzFCILGmS%73Psd&q)nLHWdp8(QU2Rogd
z-{yVAWQdUAaRIE<WN?rtAd5=izO`7mU*AK6HniSad&NY9R?fcj(`(d(gN@#$wh%2&
zJaS?N&UhI-PEyziDW1{o4`UDr)_fr7RWWFvAF<G|g>_4}QvCg1sQM9z9=(fuF$gL)
zJI!0W@z1z%j79KZfv8ew6Yaja5C;4)Lu(IGG%+Qy<XxyyAoacp4}Sp-c~9s%9bNqd
z8wF&Fm`p%dksKwOhHG54=YjW6od-B|4|XI&l<O6Q;rE3o;oSy*Jm26&JFF>i6gb_t
zEVSx9N5;k>uN@W>Oe02(LPAL5`ThF>6m)dQf4%)7xGf&n-Y{Oe1W!OnUVjE^3RE~g
zK)NB)H0U1W<5A~p&TzQ;Z2#*S3F|Z=|N0BvIYr8Udzb?M|HThl_$Leg-|$=q<Pi<7
z-%NNQ>e`vl3A7XL{YjLao!vE`RdeAwg3Fgrq9E-EJHtIgzU(ure)NI;2`I@H6_}<;
z^y`SA4UdFC-SPAk1#=nsjh-0UJ#ldYDyj>p0(Dl;<FVQE!elS+LFm|_DtW96A|Z#A
z!P}}n_MALC#6Y7^-pFGmf~CZyr_k_MP|a{rQ`6H8`h`0JbSvk#?3FUQ|JY~=`&%It
zvoh;flV6h%h&U3ky-n8uVp+@~AeO&p3K*-WgnVCXYIw6gY)JPEZXwGVI`e5|Y3ckt
znw*G;C~}CLl=Mb<p>RB3-TUsjDPG9(zL#BnQm%kUxVcY&_wAUEWK9d7cYf)7A3C#t
z;pLImDT2*?&Yzu<SX;9~^%r(mS>U{RqWiB1kmqkGRW@q!{A;Vhf5UM7_doUHzcLwB
z+s1HQ0trq)dXL|A{W|g}0-*OW#V$cyrWv$kYdJ?lV`F{L6L%mIXamWmVTjiJkv&KD
znYq=DrtElV@cnacRoS}{zeeC06{BFi6M3l-OLng#yYQimShmxEKLvfO0njxkY&7<H
z^(u;)R~L}L-!Bri@59M=^ZQfa?4Z!#BY{n1Q`$xmJYd4*5ZnKO=^PSQ2CbJE=p4Wp
zQmgtyCnTN&tjaBGV%=!u?_)`*6ynOg*amXe0>KkxcTP`^#$~_-u`wVlF~ELK(06=+
z<<Y_ZGZ29R5R)Rj1KQmpY~u!AXw@=}sru(>Et&e~V^3L|o~11S)d+P5!m1CyhQjut
z`Xej{>Jw-s7`cC)TY^NiAr3OsuwYP#(XtqAI#9%b(%W7hnNGKY0N$Uk<a0^CYMquS
zP}e~DhkI%D4mQ@HJ^|PLw}Zjb_pUcGGQ!!>P3}!ZmNk;zZq~Pbn}anPfgRtUf#ocH
zbBCn%Exk`DInLdOX%CNuBEdsBAopLHa}b1@-#qrzMH|*(JTE!^-OAwk4HigWBziSS
z)CL11-ZHpe2RYrB>-@cQN83Z@;GK3H_v?KSm51%dFW0qHR$BCg<$Iy55JwKFA80{B
z1Z%)kr*vSigg4$|;z189&+(Xzhlhu$T&ea_V`C$Lr~~o~goH}F#2#Z5Bk(jCNW>0P
zDLH$RNOnP9#CU{JArYaAi{Ao6LpjuR1>2Qb>tG8H(dJNQ_nd`bcf<Ysesj^7ld1(Y
z8AxHeb)z8g{MKZT?(9VKutj`FmB!2h_El_{QbqAYE&uvs+e2%^qvIhoZdJ8GcCwq#
zmhZLw6P?YU)TsBY1Cn<f4`FI-ojNXOCd<)fJ)hu^$VM6%?=%}&#<6e%#^YmanQoOg
z$MMbx+^J@I$CXbN`!uX;+xekXUlLhj4hX`w<=o!03HDaP8<1Lpn+C&Is`Di>F>$#-
z7V4^ZvQMs1J-K`FGT*4nNe~W7g%mQn$DysqPOiTKdWP|Fg1xMYM@8DDW~wO32fJ~6
zFAbXBJOO}GQ!91%E)MLpKA;TSmXwl0W+m!PM8wIIuHR5d70~RX0Jwj%mtQ!0_O6yz
z7ZV?-NY<||%YvB$Yy?Lo$evS3NK<ExNEWuZ(uwsS9$r~G58IJp=N;<6nf-KkB?PBT
zw)xMd+tV{Lws6df10ti8AY7bHZZi}IGW%DPfbcC2li<qvbLS2yLQ895{<lZK_so5q
zOM&_Y=)=k7(l7)~Q7A}SuasBip1t4>a0;$;^0CEex;)*@0HVmVI;DEUbrVCxK||_<
zq1}42s~>SEMOCaL2<TvXptVjf@P5SI-`X{&Io*BCCvB-tSXRi|XHF6{o4jYwseYXF
zxTF&w0K|{X)$LON{-XHi>mAyT7;O67$3%DZ+GJ)ARR2|TlwK*UzV`8X53~{G4Odv#
z1O(axky%mSA&70K{O@l)@d>tM2Y~yEIL;6q2-}`M@LC*k^&rL`wybS08}n7472pqu
ze@&-&A0<gQ@%&oqFC~db4=r<#O3poIPb*`ZXgp7{a2M-~hnr0j@LrWY^vHyS;MKMF
zW!K&-dEt?~!0~zWhSmM(=vT~b&g!Ybwp*BmU6)lCd?D_!m1oA!ocLA}4!^;Yy$xIy
z_XN)L%*;n9c(?nsYu!pAb&v&{a5$DNPyX?MEYzpA>tD%hbn?~ecbYlqj`Jzw=HU8&
zfFeR4dc0L$-|LNY@?&mXSQxmSZuf!ybc4`X>asRrwgD;?k5PMM=HY8`THKd+aZfzY
z+_>7!`{!{{@v@&!)r1q{pEgGe_jND>v`+(V<Sy_nRS<NLptR%M4@uaE*$aDdl1H!Q
z<^@??{p*_MSe~BHDIdy(%E9|F7~sDdL}4hnjb#)1+b|d;sX+U$>%VoH<F8Yy6XX2P
zAK_m7&wcoFLi`8!K_z?u7v6BKE(G^r&~~%n>C%t|Z`y7<!-EDrML-kWIr)aw_iDK{
zDf&d=eR__kYT(CN<N9*(P>bW%MXrft$0BL3dA{$9kaj_NE0f;ifuG3BTas|~#Q*U>
zGQ879QFL0Bv(VEw_E3a}*9k?!whGytCYOxQN4zgOj00t>weoz1rF<I+-^t6#MYT+F
z7E&0fjC=vX>@o{yV&nMz*2x|#h*<W6Fl&~d@1Hzx8w*nVn_2zd*{-0;l6T^AqZvy2
zwJTMZs^l`ikQa_RC&*`<?IovYU}%oCZ&<YNGEo()7fAT#GyLUa=ZB%CXv{QMAq8Ys
z<ovhQCQX@%xwbD=+VE5EdSAKdOLEayF1N+Rc*UAt<#3hqqVHwTtM@)Aidz||`q!Z!
zO;{Niq1*)H1O2OlRo@k&{mT?mEEVX`eSVJA*MIOPo?EFl-nRDnh+~~xmzZcaq>hz&
z2xlTWRde<l@wu#=oUc6;z*p(K3Sy$7-W@ey@F3?CF2A_)<Hw_jZ2$U?YUrIq&+gEh
z^eVMx<;lt7qDh@o0TUeXOcT52XRwP*{ME@H{$lIQoy~f;-oBYl#!LrjmCkPLf;Pw*
z!4gp4J+1}M6L7tL>eeJb8wZE=x@a)b0(u)@=?xVF{Q5B($Ezowd&BK%T)@WKvA;#L
zQ*?~mNaUGZICbJ|Ww2GbCi27(hl!f}%*<P*iSQ7Jw}bE;m#+V*ZGSAL|6n2iKV0tr
ztU-DVTi?rzb_4Ov$4F%#eUG-A5ED(JY^i;XC2=xjj_j%XGU;^eWq6+Ic8>1A@VV1k
zj5k=?r}0kVFTg*_Kb5v`96aM4aTB|b)tDn}94sGNGIOfY3Ma-prJ|!_rLJq`dryS>
z2{}^6O!!ae0H|tM9?6?3N_)LEF0?sPGW5yw#B!Zr;!!q5Xm$Ho^yJRtNkR57k7KcS
z*A2vic7EiCjoH>c7eU>z&{d0^8(*S{)t1t7kTp#|UUn}WfTw7BGm$6b{8{i&tO4F+
z|KI+Rxoz>p*O~48+ish`1=-?~lJXbws`GS~>LD!|D_}qKAjWmGOB$O(bC{{K^j8b`
zWJ<I8@X;;uoNhaab7VUYjoVc8Z8eVD)D9sH2wvXZqQ4vk6P`e1=Id^Ab8{7>ZH$Ts
zdNLG}PH)>U<d)CF<HD?0A<_89YZV>Tpcx20^uuuW>P4<ft-RCa2Ia-se~myBS=QtO
zpT?(b+Epsy6?>$Ae(2LpU+?YfqWg>7Q86*u@Nge^$PrgH<zI))oGGDsxo!9u9Lfiv
z3rAY;YNiZAs5|NiwtOx?g5t5UaXQFAkufnDz^3}LmLLi88yqsFS$LphChYqP{+M6*
z(ds4ij2+sW;o(FpJ+}OmVWx2%(Qlv-S2*xfLWNW9Y=(5JPqn{6?-KU{f391ex^@ow
z=g;jLW&aT?zC*29e#?0E7Slg!di;$ays_B2{lo3%^yvGu$%fxVbKI!o&*jgdQ1JmS
z&Osk)YP1&m^JA`S+qE$STdf3g)cMJhk&$IrRH#Gl2=wGy2S_{i3f8RvPA>t|KXW6m
zV&a_0&aaojd7L`X3%;^9C|>lv2g-zT%+pMGW*Y+|W1RNu4`3{Jus7Jm2Y$ix5nhks
zaV>vsQ>kS}YDBa5FyWk=98)U_*~<U+AlCAWZEU(?#I`AM^$4{ijoU>RS!jgpF)Z`E
zHy*u-3J=%cn`PwQvnJiV?V2PdKq7k5U6|TccqVcGgW^O@-3b(t^n{05P%+q=55pmk
zpHfm%a=JVsJUsdA<r_?}9|f+hXuyJ*gQFkv6<7%Ant+n(20Mmt!|p?usEdD&;4hxL
zpRP87E5!Psy|dF=MF=Fi+tf00a=oCt_rM+*IKDi@DhDA)4bJ}M;so$rm>C!t=4)U)
z=b=Rfe=IJHmwz@jt1OztG44sqe$!6UoS!nfGlpNyK&5DC$xbjKJXP;j=ACPLc9Lr`
zpdasMrH-vAw6fgNVpp4*%`~oOCvRS~=ZwEIE5$?{;1=(5`S&p1sT1ek+918|#*cj!
ze#(%lOPA-+%;fk|BVQ!klGgVR)8o$@Ck1-e*SGESJj_85gYP!-snajzbndA}CB@*N
z_@f9`r3xY0M?yl<Hf@&$ySQItyFqOMR$~SsygkUxDp0KI*mvCKoOP|$iHeS<P|{B@
zGBlJpF$z1>efD0aJ~GNAKKDv?Y)r~VFd-~ybN|pY3SfYi(m`5!x|C<1nvznOBF_D^
zuV25m(%c0h<m|RlAb_O!zy`hVk@lQz3#!TZdK26Gj>7Gt4rfk0j8vkp)yY3F+nY><
zr?`f3M1JL$|6lCAcTm;Y)-8(KYPW*4Z9ovE)r|=SC4&S*D{hb^QG%EN$&xc@bHr{H
z(2al+RdPn6WQ=5xoIxe$48kV7vCuy6e6Q~P_f>uOeqE>QbSZoD3v10e=9puSRa#ma
zkRu=Z-l0P_jOW#Yi)*dPg|J^+;wobUAB<nG*S~^t2J4V2YTmA<tjurEr1H#pbPEH+
zOKRW=q4$_dkEKwdWfWTY__KbHwJ)U~A~1nejvu@9Z){=5Ki@oWx9eo0R)cL~8Z|@f
zj8>M}|D%p$FxvNdF_<_vZ1`!lVMksr>=uk}>Ok+%0M!qL3Q@LD>Oa-d%GX_X92THf
zV<!)$E`Tx<fO7>TKF$I?K2M(X!MLtLO~+ZqBv3f9Ar_)XGAcj|!$7kdx)~47O#iqr
zxdW{?;_qYEL)RortIc;^7LDJs;V#O)(DtA9v2QY(o9NcabFwd+&bA#*h*pXejJxvV
zqmcru+YdtvcYvA&<DBksJGQpVh&5R2k@$VY@(-iVw1z<yObXPd=*w$6^oN&JRQQ(b
z8CmK4^Xnyl%26TREj+r!22ofPm6Vn~5Xncq%Z4sCs@<l>i61}vobBW1A7Pi_!QTJV
z{!^Mao8fnEr$Sx&!j?1HW08?Ew9_vh8SCo0Pj5+Y3LlbiPjfw-;+!jUc&<Ka=8S2^
z0=FOKkk(~x&EK!6>ln5ue%T)HVYIwecO!>i+j9QLG_#aL>c0D_8`ip6eDh?j_v=#l
zR99Xwvx*@p@8x}q;n-s%i;ewOB}zSyDcE;&P7?3t=T9YT>PJMd61;J4&*!tJlYD%N
z1Rb+pI6qMxt}Jjd9@%<VFYm?`=Ex*hZf}!G(RcomOUuiLS?9#urMw=m(>B0g?bjUp
zt5vFpwfWxYm~D;e8u~9SHOlP+r`9+!Fci$!?`n+X%+5cS{qXhcmu=73ELGD93{fy+
ztoreq8MdD-*!bhW|K~ryKZyU%&%x)0&8nMX0p<H6YYZHikXC71H{A<Jza2(d8;~w_
z=GnN@eop6E3&dC1=sh<wV*mDHf7du{(<Iw?Po?r~WKC07@5`fi+EuURrZ?}}v?b>F
zxj4(*0rMNy$o{-@;?+Y9R<RGPxkcsNEUQfA1C5TO`aIP8cD92hpt=7Rw?*J;hAVmR
z=iZyMrL+u}6cu6VL02-hf0VC_tKsqf(YhUi0p(M@HQg4-PXhM&x^j_DvhA_Q#ddqO
z?w9n^3w-dUv#{%^>4YiM=0PpSpTsBpo+><A6(|>ZG1NG8G)n1I;xB7i3p&S(u1;j$
z{AlEma_g(pFzcYDXUnkQ3%2X8wGyIQo}T}5MOylPe~4LGpQOO893;$=ekX3#Z5!_T
zN1>=5;2sHKbCw7>^yX9lk*yp0i#A(!mLuJqUHTbl#bBPx&TF?x^AaN-ovghCFb0|x
zeAH@4;#3qBtGWdK<@EP&qteK+6aHgj5#ixy6Abw}wNlqh`y6b@eJ{$gYumP8CWoUc
zdzI{;m{`p({=(<3WN)AO=YFTP>eE{ModUT4FDqHRQbaFDp7lfT<k_~5zze4ZJ|5)Z
z5$e`DFE8(<b=C0PGV&{-4*q;|rPjG`dVi77pQ7WeuhTo<KjiteiXlq2b@`kL%xqyo
z9)(HvXy`@8O?N8-)z&OCM6vB%>-J{<vR=z}#>3_=3dR*2Rw}M<Z`L2z-FR<Hk3Hkv
z(;EVkm}7$<+&NkBuiHY86jqtlPX4~*!qeMA^@95arv0qeZMb_nB45hC%JtY&VYRW3
zqH<gM4`&hNX>$G84*qT}cmrHhk|{4J<@-kq5N4@(KM&YNSbSSM{_y5suXUbxPCHD)
zfGi69B^xGlkjDHJ%>IGtw_^TsEO5kx&L8eKVS(cTfl3r#h42~ZHtVZ?nr9XN5uTnN
z9a%LBk+-sjMhxjg5kpDJE{uUgr=)<%JJX!;bHk0V_O-YDyPzn1<QVl@i+i!_fMgYh
zL!J{bj!6MUEDlOPkL%n60@b~}Ly3o{-$@~rf5@na8{cG;PuL7aq4^UV7WM~JC)Hqf
zDOCKKf{RNY5U~{uCSszZiu!P<!pc9tzu2*ROjTN1ngEV8%qS0IRFPSH>JiAKu4xAW
z=XooXB61Le)?n-{<d$u~Kk0QJ|D^&=6{K%|P|(}9Z$EtE#EFS-#0Q@V-tU-)Zopl?
zKJ<g`WeEJkdwtHATk4wW##OinnKXcjW~K)C*!`Z}mH>{1Sd|(=iGn-LjNsn<<NA)g
zC|=#ZPs+0oZmr~(S+(2u8bC@-3j<>emjimfH3mi@SCPY-b3pfsLVcld9)hwe$V%#z
zb^m!bx;xm$Kw-l}N)aQv<oA5^;z(Si&&tp+8vGKNNDZYKvG~MnH79kqmlT<hL&db&
zpchWV{K*%7Tu@RNWgnY3<jC8Ps6QvR`WWiHFE(P6ZH@W10bfm1MF4pD=8sS|?0yEi
zC}s1%uOa+{_~%`izQru_rQug_m@q;`kOe!vZY$BjTDiLJ(=QaXjD8}&==Z9-@2;lE
z-24?nXPaLbt{gIFwj=&LQW3D*RBdyi4-a5Dx;4+2o4IUBOkTM*VH0d10(!O2xrK#?
zKhs{#pf26IrX4Dk0dytnFzfNe-@iF39n%_HB4fUPW|5tFZCYep?GW!km{N+B$gr#p
zj~&DL9r%6u-@a~iky|M{3l4oAOupEb-mjff8s)u~g;|9wqY%VsfyLLQx*cD*SH6pZ
zf#2h`&KoW&Ld;_WuimbXygL0$KmMw~_N&WUh<P0m++U)&XuI`}DUDka^G`(+K#iWZ
zB0qlcQPS7lV+rc7_VPNH9?huDT96fL+xiR+vj#b(KT6=+|JpWtdlqId4=;pRR*0l=
zci<a}rtreIjavNpn%}SDVJ~7vb6*YGuxZ>OzP{U^Ey0H7|MMf_PT$6CJz9*++VxV-
zYX3uR+_J#^!!3Q+GYQCn<4fs_OGQ>_yZzTo$bh8!aX(y}HT;O<_r4nRKCb@P9}$w2
zl;jnMTeXItYu96`y*2yJJ^bsx-Ydq7w7?D0rl4IKz?6p~siKB3kDhkx%V{dDroXn*
zWhTYW@1Gjr7p{?2W(WnB0hNoE;mHvN{gMGxuk$dJo`yV{Y>xq`o<4f++IeZ@F3V*F
z2M33LE-Nxx;b0i74sL!fxTDy+e)TFC`d%PAq9Gv&*$maxR87c|GUkpNpyM%$+p_7N
zH6+8aaC|~gWlD(O<Ge5H0e9AUZa<k0Si?~LU;_G7i`(!1{rfTE?V(c4nOfW^E^4z!
z)lF8*9xDFp9NP8KIC4W8imYsk0jcNe5?!`g&Ov;B0fNo=&EYHW>~>8pjZ<a{p1+2;
z8G#-WBM~fXAQp}h&x4G4xG6=7OoUK|F^G;*$Ez%($=CshTv)+J$q=3}Sr}v+)K)t~
zKWBC4<VlpA_1&aK>mJB*ac=&}|6*(6=Xfg&SN3E0E>Up*=xldy?_f%$M9rw{vSVn;
z_mva*0!1*CfU$6O7=ZLM%^pDuBEouHM=i8y@jCgJ(LYc+xRus1O8mp7Do%{{VPT~W
z&G=VQq1CTL<w`24>Ad?HubkHu%(7anH4BG*NncvSW$%W;I_v@!W#zD2!f_aTh(eF|
z@hgY#OZ#g-jM^`no4<l;;b=g)s>x+2Z_t0-?^ha*dWn>>J*euVVOvBp(mLkd>}e(e
z<q=Z5?f*b>$%PY5d`?b|XhU6NUezrax(H_fRPd|pgvz6q;rdJZLE#`#)Yq(IR6t$%
zi|xwqynPj=<9=$^*ZW+CWptP%aZ>REQQMR13nBidP-j~$<#X$eE_5KQ;+=!~=;4L@
z)Tgw&8u~cHvW@H9$OOK1ldfMhh$3lOSru$^0XX;KHSy^Mv}BkyV2Yp?8gzTH-LMqD
z)LH1&fZ%mKVY2u@$W06>476sZVC`XQH+ubUyOSL*bdxgc7|*+O#8A={Bx@5oe*wtj
zO%S-7Cy1&Uzkj9X#SE_35C@(QCOJ}?C#+d{GPoD()y~YURp8JXWL|lxze%I|$775*
z<+kn+CujJ_1yZHc@F(@3cZP>YMsk6P;cyze1NpXc?=)MBt;zMgb#ABT7G3VX`@-hM
z41IBfmZb;O=HVzpW5G-z$k$*vDq(17i0#hxgInSK=1mG%Q2a7Pc8G2()REyBLQuuO
zHXb_z5YXG8dm*xL1mIAJTZ;#$4WSXu!YMO#=_Z;GOmZ3y`&|EmISvJgJ*!ZNN4|Wy
z7jy?%-RPBvV5Fy*jowLbxjZ*Yr$0}3Rts?%e0iL{I*OSvzxd~o!b-KxCgEgPJJ%a%
z=}CzOUk0op+`ld803YgqYBdtMPOtUXI$P&OSgY4UTi_EE6i>`SdM6KU-9Ro2D?AH&
zL_<d1@y6?32K8~5EHbq;pq~a(0MF7jIj5|y9)+pM*pI?*pdP7)XDj&<EK)4(gXqTq
ze?VOBUD;cM0|``ARkx?q<3yZ+nAn7Ba8vjWu-6Ijrj?^jWp^yfEzdXPQ>aLx!Ee7L
zVT^*4iYKFlP`E%ZmUp?B=&an}GI)45?sVh7@08e+P%q+0jM_QSXi&cUQVc2rMaXgy
zwd#A0v4VkczsuE#V}rHwpbIHf%vi-)nv4%*=N-Ps`t*ct0*Kx{ku`^~g}@F@_f?&d
z7aRW<q=vgM<>3Y(+4i9jlA=M|maIUqwp~`Dbr@<We|r3k<hM7>dk3HR_!!{q2}3Ax
zF@Nw9+RM^m8<>e55*ODdFa%>V<WBuAI~>xBhcHzm-S`=38!i+(UWK6nrdd?7n<%ou
zVp!Nddn~V;Nvn0Z$nU>QZuQ;jc0?oi$4J4vrydWo4uf?tl1{64U3uFK9<Si2N4==3
zs#>PI|H4yp*nt836=-3Qgc@SPCTphIs1B~t-CbQcx<f+LKvHty3o~aO&u0&{j%l*$
zsG|L^GgWeNY!EFBgU%PpY7MG~(Uu3Og^`>|IeW3-sM3Y0NJ$?`JY0G8PCzaG7h8Qh
z5;!dk*f8eh%a?Kjby8w<kA^&kfwzxtXCx&lU^U^kgM%Fg4iRvM$<53>FhCm1-vb^0
zM<NWPUPLyK&myNTMIt+BBD4`hYT{+u-Q7*4*$g$lz+y4PraInWhJt}oM~|eB_hsk7
z^ah|w0CQBt#RrFO#4KSczh__nn)gZq<DS8n6NkT$)!AHL5wjG_=#QbO%_%`8SC8cJ
zz+xQ_$ComU6j@<ir}E>v_a16z@&zf@YFSx_m9y7tdbmXmg^3Elc24&9<Qw&Ia9WxM
z8a2pQUS7UoEsNIkjohzK;{2FuI9^ZT3bcrU6Vi1EcAfBmPms^BpRcdr>w5PYZ5<5i
zd_of8hivUAb~rgJgF;2-CwUQG265Q9QofS6KHsMFKjf>3vgGjjqJMB}%=9{oH&>4J
z<e>O^I!WdU@jTghO-=r}Zj=|$)bIOZ3Keo1tfq*KYJ1!F<?%<iO*ZT$yJzV;Q(f?^
z38Wx!9+>qaLL%{Gxt>`vBfp)It<LtyfsGpxtrH=Ih9caau&!xXUF9K?I`Daq+U>ev
z4wxT<<@#7OZ1m6etSI((vp#B<s|Y?3O`LTG0xu~mdnlU7D=aH3YjTS&TV<AmILu<s
z@$w5|x#xv^WaxiouUy-6s){G8Bg~-JWhhSfT*doV^b@fgdmh#(IqYTIAsBF!ch}E9
zy-dhPouJWTo82agXvPn}Fz1EwLbBJvl<s!udr`!TAd)~afLhx+A=|7Yj}`{yRA|NE
zA6tw9uY^>xux@(ySI(i}#g9fh4Az@x$?81Dt8FhtUAc_g5f*ROvYe;cjJCIZ7L<T1
zW06(2dUVGu{OPH*3b??mn^g+QgLe$p0p%=5MjGM*{CKYA(zB<kWjIwTty~s5Ib>)k
zM<Sqmtd9=DQjn&R>Hv;!$?ew4S-8NLn~aj|#;;MU&$4KTJ$dq^sMANSP0*&%eSXG~
zcf6V9r1pF9&%-FeZZv<n^*-DF`?YzKm><@tma={8*1nAV#dv^_Sa{qhXS2axGQSQc
zqWmxsT_Jeu&;*GZR!-Lmxee4o!l^F>mZjFsDf(VvTRL-~D_23e<0W$B1B^c6kgEI9
z`0<=#-EcP*;L2my3Ds)b7YSB-`H3|kXVB|Ct(aulp6M^VgV7M0Lw|@P)Aq2VI+{i#
zkrp-IHci5XiPJT3$GGtUAkR9C2wWQp#UzM2fSpO0Nl0ZRrX&X4cbYz;ERK7*#-%%T
zZ>uGb&+T6K&GY#Owj?^Qsy&M$1x_1hBX;r?39sDw$unAL`q08KWFQsfy70}Me7F|D
zJO-Pj6pW-^O0ix_H0g6yR;n2oM8j1p7U+AAp5zKb)OH&GV4V>E${B_f@nqs3USKhp
zhHEkw6k*>K1WPpFlsc$Ucc*p0RvPQFF0mH7{(J}sBS-;A6vB~jFFO`TZ0qWuVXVzG
zZ%z*}?E>Z~E@G<2SP+M)(IDtQ(1uAhfdsoC7%q&w?%YIvMsj(s(kD20casDnJZwqe
zRVUDs#6p{TzeWCLF^$u(Eh~+Dfw%W`sm{_x+El?B=03Pd$EGj1E;hJQX%X@v+(0xi
zs|1+NMY}Lfa*sz}hTwSP_l1H9VXYeun4bn~vhut>hhZxx62K0`{CMXZHDXsojNkl`
z;}9!R6>=iY;X83Ti#<a5RR|;q6cJA)izP9!Nir7#t?Ev`3_*|Kmd^1ggmBcv85Lra
z7x2X3^DRXTo}ki0x5+PRu>w;pWORhE7mH)}B%i$dq5xhW+QZZ<Z&t%>BKITH`yrcb
zG9!r!qYu`5$_P4Lw}h>Fp6L(3ZlE4L0PBye`pTMxdMW)lt3?4&*9EN&pw`P4!tByA
zGD@(BCK-riU?6bMOfT{loY5Sc@8)rh#*QoLw&+hT<tEfbBHlyB#|emh$;(T~8aOOq
z)~*Gyk4wG|TC&{oR5yCOtQZML)Nxas_vML}MP@?YydhconE8)s*tqNa;=4|=J2;10
zOu9v5u1zgKAMIL_c?aud;nXSP*6a!)F=uqMNAbYk-OfTr^%s~W7m{$c(-*c$!YhDt
zYp`n_wi(1JXSE2CmqwS!3dQhV-sM3nOxh7g@7<0=uN-C%PzfkVy{Q=Fm;d?CjfS~<
zS^*J5B~WyQNJU@<bD+*FPB7MRD38H#%Pg1OgZuYu;U^=$F!oLq6P@G*iDQ(iIny!{
z0%G9Bm)=X?v(?QwOfSM+M-^k48o7yGak9ef_2~Y@<L9JIBi1tL{Y~GNgVkQQE_KEs
z7u?6Spa!qm2j8oC;YDHgO)J|DXA?$}EsZc{+S=TnYT%9GmeBmgVYB3xPM2YJhT4sZ
zr&pfb?|T-%vg9iu5e-^@xnu$)M~;cn)z{}j8EiVd`sA4piyPW8!Bv?3Bl<d63bW6n
zcJ6GBDA%jOe8<)X!Bx+Xg8~Q!>KQlvZRL9zen}W8uVAR%^}p6&eQ^HE{pR7rhpomw
z6Ua`zhzkgKsrmh*4CimUuO-A2F{K)Tf78n1%#kL`88s_~O2{r6&7WdPP8TKrl=4wz
zVad#f`FzkOxf*^D`!sMYjjg9v6AC3D!03<fR}Zv(i;>lB*54@M?|)?j;YCBSuH7_T
zmCeR`<NOT=;Iwm3{#~{oLZSv=6a~Nf^EB?vuHOje%Ic!YU{k#0?m$*A;{Ug_u~xhF
z-c8~_w66xEUk~lOO~VP(8zBi}<sVc)fdN<SrK}~<D^HtrYpD@jO+&vi6wnBHf&<cc
zgS@@BJWFpfuG$!7p_GQ4@&1PzKu(itldVC?F6UmuaOL@H=BhDdy0a19-h;ElEm*gm
zT1?*`0|O-iYz`FY(JL$&xZJJ{ZR%$PzB%O;SpjhVU=%)2ZQE3|UDVKKoAqz$`sdU8
zW=B^syx$Ij=Fg4XpOB#_K|3s7Ac-H)&Kua4&!TOm`0r14^Uyj2SoPEt58O#-mZ6rD
zYdUgZ<P1L!J(7xmS6L9470?k|pXK%V8-3OO(G6#y#JyghgAMwm#rYb;EY*8Is*SEc
zq!it6He&DNNQ*;M!tjCE`|ZCHLVzW8AQ>psd(0fFnD3mzVIC!;vr;RENP>-4H#zSP
z%cEL)gz=Aua7*+7eMb(BAGPOVzr1Vp(TvuYh(!ZPX;Fg9^y|YoF+m3evB1l%KR$6@
z-5r`(ew;k24QItH2yv&u4hRhJf@N_4cBzAXLTE{pH!*bPRsQ1$!B#F)p&SCQy>Lr6
z`>Vs7VF%b%(!&9S$cDi%_Dv(dk+X2|&+{e5jdq;TBzV2P^<oK!Vj5wTk660^4OIwt
zG6vcAJe#l+J7=S#k0t-+N>aTp+W?08>xg@~!ojWf#we?rG5trH%m{OCUk-i$W`^2;
z7pu%Tks&bAjTWw)Y?ZcK8?q<iCp(+<kYgj{f?_}(AyXS*icMNht{x?KD4`y7oW}3s
zsYl~;AJhJ6+y2cnB6KN*H(Puu`#Q>3H2m3cuvtR>l0#;jDH1W#&pC4MXvH9{C~Il4
z&*uFg_$Y#_FRwwpd{ie-i^h){jcpR=@a<J&BtjfnjejWR!3XqTneZ&)t;Jfr=YYQ1
z3k}PxVcoO~XXMaofy1Io12ORK(CHyWj*IJylw34W@?HP^jtjnGuPh;vJnk5U`bKYE
z4&lo?mX}Z#Pd5O_Dr3YM35`_sO~&aC8N{xUdJ#XgvSG;qR@CZcoNgzWbL+=5j10%R
zL;;n)`p(I+IS?jz*fkJo@AE<oEbX@Vkp0AgjwQFZ23+%DZti;ESi&ihmi%<WINJ2I
zyp86e<91>+3ZN6t!r=Sa1wkMUi6?53WRMUXggPB_wEZ8wCux(VE+-{w75b-2bv8oc
z8W|~MpRZE*+(tAgq87TNZS=Z#8m*=of%}Kv#U$>59j9!2zEk1Wh4lVxfzxr8$Ju8N
zD(js-wGO%oY0qSj7uTs9ID}sOzUFnCsr>~PS%J=Jeu3689i<?{Asa`ub8NDS7IZ}d
zqq^v%YrWg6aH>*BZz|-s^N(1RK1i@&hI&OUT5%TgOl$MyS~yPhV760BD-Q8x5aEU}
zM5Gj{k$4{w7IqU>i6!ObD!>mwMd<CP!7hCzr@_$xj0Y9?DedyG>g8gmWM*-dcTcg7
z`98NH;kCOiFGfwGFqi-Pb`F?Q;|Yl~`=<;jDIxMuy-uq0(<*Q8+~xn_%dMwNV(115
z4=KNVFOAY-K!Q=2eZw;aug&D1Os1NKf0-29&&gSA&KCSYFNb9(XFb|<^e0f6JUG|N
z(0BwVCMjl^*9g&TQ~lQN=xyZ)+!L8QZ(f{v^QiUQ!uAcEC6Tvlqz-Nc8{w&uVH!`c
zQ*#auN^6)O)LD)pqIiOcyT(EK5sIL9vL7hicx=%8_g_B&hbQ3dSVNdTio#8td>)3p
z+BQwPBnN?#WlM98d_YK75MTAKOOqTy<{w#)uQ0D*W<tS*s%1AOV0M9|QsR*bX-sV_
z2w4Aa<=FL+>uR_+-UQ~nY~Q_&2@Dqo7ODVih#xZl&4d5?h=(6Pt`1ZS8^JK}l!TKz
zeDL5WTxcCQHqi`CR&_PccROY4#_w<GKO=_Kt`KlSC_&}-Q>#<9sXe^-pzHlFC+__5
z3M28(n3g7J#>4(Q1$*w6SxVCs+|~MFl30uR6>IqUH)MAphQ?rK7cf*Utq`s_p~QO#
zv5zLFRaS@k+#$m?E7~c+uyd9k%B_ZTT52LL$)!2mGCVeIt0Nd7OVT$gvMC(R)sNAw
z1{F1JT|KIRRo|ym&_*>U>pqZJoT_nHo8!~50hPXF4==hBw58<@q25k(aj=uJfx^cJ
zasaV+;efjeYgQbWbo95I&^_@l3bk-@%C>~u0e(4D8Clb>41$Xi^zGtHP^-m8Khx3r
zja0-sRk`|h@+ok>{ZV*pocCt-yT;637d`3t=f_{}o>r_pD`lVgTergz?Bwf;=~dmc
zT#9)XM|gPDem5Q=P2l;e>d+N|b<hK!kQcwb!R81xy}oyG9JI&r8p%Yqc$Aug`qQ1s
zsj0PLhF^JhFb1dhUQ?OQonY=kIQ18^PllUD49pN~joR?CVv&ckhSOWD>QvO~2LFu1
zT0`&wkFC8zI#vY5qFW+`))r7PNck$%QfW7<_Hs|H{*@(yc?jH6M$wec(uAK9_h+B5
zlnPN9(yYtqs5iS(46rRt!wmkfmQHPEd2{DzwV9T^-s#hB91Fkqh@k{b=Cxe^uek5M
zTV^|x7mxgxn$0?ubCa{9l^3sUMo&8W&Gt<P$|iR}3C??!!(~~^cw#(Bwoz~2*%Qph
zzgUDn+e+6m8|eIa{)Ix(lZKQSbip6HoMs;s7T=Zr*s@9kDelji0kp{rqqi<jKkVEZ
znViw?AVb=A;*K`Cu1Afr($KH%gB5-Q?ifl)wO(r+EQwa5APT8%Telt*5D?(y!B9VZ
z46BK?zunkphq`|?$6wBE9{P>ZR@8XkK;=~8{TR<|x|i$1yZ6%9Vi%}5Vooo&9%J|q
zAAU&%!w^M`*QwQio2_5TS0|k=1PIE~tUhd0<G;Cx147QzVDl2}5I+kDFGE9zQ{iZ9
z`~!u96u(mI>hb45r(DRhz=5?-Ss2$%W6utvh*5$k1^RO_q%R07BLI5+GQkY9js${l
zFcFTlPKa`p7aWs%qqM32C3*fijHQs!m|*Hbrjc+UpjWnoP(HBwWIKNC4-dL1IP^;h
z-?Sjyi$t<3dN(+MrQEQTnfPJ*$>22X<3>?3`O|feoU0UGrN0`;!!TwD98AMdL8ApR
zP%Xn#x4clfT-$8p?CBP>I1KjzILavF#=0#sNk8PhuI6BhPH%a@0o*8dO_YwrZc(fA
z=)@7&0L|Gp>k|)!1^w^$uYv`O$Aysl9ZMtFr4y$wc9@$Z3&3NOn>ydpv7~z41sBxy
zp$}=(^v3s2(McMBJA5nz;qG)E(g!9(co1r1+t0%Q5fR{pXrh|PR2%4hHY-k7lk0IS
zRQ?hhtMsuQwIETg%LN*6maYm3wj|x)o5c5fg)RT11po;I4O+tHhj&l!foCrjp$Sro
zlqs~J2{(@Y<bcxJ8vjbU*lQhP-!uqMAO#T2{5W3)pkD@)R;29#hu1`01d%W*8YQxC
zwEgn-?m%_;19Z4W5RIZ!Q<X6Vr=0JyI0c)Z`bJpZ&y=`!bgWMs&YqvrWbtTXVNz)k
zen%=7Qs<H00xSU(A<7^`5agg*go|y~JLBnAvV?hpFkrWSv=DI+c6JvyzeS_J+=m+A
z$k<1d;jV(maVQRwX=u!gO~{f)wx|Pd2y!@*t!4A*_0Z^NyT@=C_~7GyoU58tOvg5<
zB8@Uat~Qr{LPG;EjkM1|i;2%_VNE4`oJX-<k1;Z92yxGvETe-7<z5Zp7C?5*ExA6d
zLYy~*A{BZ?l4bC_SD@1G#G#mavFl~5JCX2F`pKi3Bn;nw^egJZ#;4%)pac=H8fFU-
z755;NVjCgafM)5#LytPH{NcKncm(Kb2y+Zzy8RexS0@SZlmj?iB<8r>7+xGd{LcWu
zVxK=hiN}sM=3(3#?BmeI;J@{`z<U#?2wd>B!3Bdw2?6bmMKKK?m`Zb*&F<(&7Wbp{
zgP%b=LKT!m*p__HP50hCc9onfmLEv-8fZ4t{%~FAeG59(VWjB*+CULd;OyDE#50jv
zO=@mJC#Xm6DLfTUFc7K-1@N!<Rmd^$(QJ+~xmo0rhIS^-D|zDU8-Z3y4B;t9vCC`0
zs=?UfSesRitRns4?5nEUuM+FbwDW>uaxQ&D6V3{a@;`Pbinb}^+i>DW0%)^Btq8;n
ze^G10T6>>Pj0j?G4`jmBr!&k3cpn-$cCWVcT-GviA;(Ewcve03qw1@30{ce`3k(cA
zmsSI4O06bmn4A%;-H&6lNTUZ1r~+8#<<Iz}(0Xgwrl$1*UA6v~54cGeB6Q$>#6)Bl
zIARqX=djo7z<~p?SZNM0tBE<P0}Iz;QS>~+&~!b)TiI_FgGD5e@a+f}R}H)?!Dq@4
z*O1*_2Y7kDw@(zYW6=_gL2*q5()Z9X0>DBp+WrfZ_--%Ltp5ENeq156@cA^9$VC%A
zr2;b%R@1|?H@>Fvd>v-V|8_SRR9Mk+n`s8AJ`nn)i3K~1Q4+ym^77{6t*Ag%>HwrY
zC|+TG#G@$@k;(y80P$p81W&IDZfe8EjijpyfISFC=kH7UVqQ#q?-w^<hVkgVcjncu
za*;~Np!M(u+Iwe=@VpoywewSog-<@zF!F?z24Z<aqwR&@1<gSNL@IwA*|7xv?4XE9
z<{M{nY$Z?5*q?}g3FtKzn`Xp9gy4Vd>Yt>KlG!#QZ2Dan6Pbaw$N7t)ZnfYg?$P9a
z%9$pfa)c;@1<_*)5%G`~J{r!ka?6G7LHCMP>gQH3tD5y!RP4=O_gLWe?Vld))MZt*
z-occ;q3GSuj8PB&DiOW^=c7~GN1wNImHqYk_n%pQ`f2TB?URCvGn^a#So_mkT3U@}
zn<Q_WUUWruv|P8ct3;)DZ*-t&uXujOKw!)Oq$$DE4V57Gf(db2s?zed9s*>_rJ<b6
zN&0l6YY=6wu}~uYWK@PQ{E?&}OR&Jg;QlqI9Iin#GPG9olor!15m?n2jliglQHpVf
z{4-2m98r-ied$k+ufMKn5*cVA{h>QoM*(LB>E7vHBeJQ-7N}G0XsfL6vUwX=151?I
z`Zya$WGLy~{JAY1*f{Xgw#ui+*B!rfRE6VBb{rcU+l1NjjG4%Et&$%-;OQL=qxdvl
zoQ#$ia{0&uQjkR_L}WG_#&!cyl;Pk@kw?EF+ushKx+l4?r#L77gI^)ST`*<My!{NC
z{eA@NKLbZjTC`%=W^;3uuEFFF?V(Ue1}f_TWnYP)l%*vw(~R%89C}sQgQC^R^z|2a
zcKfc!O;_*jN*>7?R4vnVSku#<WNa|y`I|(4nD;#QwTz_pJ5KWA)5`h7Q*zf|!E4vO
zdvVm&m2ikTXsS4`a!gaU%&&7e5))rN^^%%gau`~3s0eZkChoAWpKQ4q>ai|W+cjqV
zbud8S+y@?)$H)SQsTOa4IdEjWSuIU;e{A@`s!<&Om-D{($<CcSQ}7ixum>vj0!(~+
zpu~q#pMil<F_*<kr#<I|Eu9ta3a>p-Na#ZaSB7Z(6dhx3Ob?fyTEFWFPNhD&p8eKI
zEP%8aMmtSJ*GZHBUC4A5fL5Ig18VuwyrX{gItyP}R$iEgKz*O)GQhk%EiSXiUnbWJ
zKtZ55=e7w|$%>nMCni^v^Jn9MOYQOK*6Fr48;)dXc%4lX5EN9^YVSDMLhjVaz<~9W
z&0_S&&gR<MCtgln`|PovyvqU(*ij9wFR04Yt!b}x>fx(f;TEq%r=_Py<mQS81qGGX
z$&JoD*y!q8XBZprOV}4ECaig}sd6StxGtfW;^#pBaQ7}|f=n@)ldNS`bry7sz6FwB
zH{eMHLeS)}nd=E0AEhPOc*QMGl$O8VNhZ{GYahxJpEa9=uS92PHlkI|hh%ntc6yx?
z<Ul)a(YdaXH)m+_d*Pdf7!mO^7lR6?!B>>o=1m6WEkl^_CKDO~7W!G~c+X<P=<>jy
zNfvbrv*oS=hksP<1gQ9Pv?bR(afMNbhU|IM%4P4lxp&D++&#cDUOcZB>+9={bEoS?
zU`;fM_Dv7o#06VhTcC=vJZp)uJIoX+V&i;xf+G^VEUne9(?cd#mUFRuODnuzasCt8
z9$NGrLyM|7L_7@-+Reb8gPb*{2SuSAui5<HuJe(uC2$0K>bgAZsxxFmR@8TucCF7Y
z+t%aM3E)OtE9w5wZrs~tqux&2K8A~#X&cEE*5Kv&+y)rxtsJZ~g-u_KW=~cbeK4qZ
z7Fc>vGaYIn3YBzLyP*)e9Ao3aqfRs@-DEBCHdGC!*2u+vo1}9kyxvRYHUIh^0|Pl`
z_M=55-HU%OB#+pd$4sl&HlOr#dy^{WWt6E^fd?Fj`hg3b^$NijV{gDIvDmm|X*rSZ
zCwZBfT+uzR6u)Z?o+lV1JW+j3QwP6JndTo^H43;A!sFa8lL>SANt7Er$9^Mvv@+5O
z9ZGL8rP9_giycGG*SbRA=PA6GYSH)No*p6+wWnNa9*T-?)J<3NYvh~;H9Jbs8V$~0
z=;m>z5B2vKqp4(Bt0=`e=lImGY@=-cT)El)XSSza8zp2$nDLwAtr6u{AQ*s+3s$c1
zSAHgDZ$YyU4NJ@#h*{fnz|_pF5{w@?o2VDA+k>;m9Wb;u3Gy;4aoE$-Q_K9rHW73W
zyeTYNx8AHCob`O3hfb!SQL~3`+vwLLmDi7B;2+&)Xb5%hR#a*h<DrF{<7853hB>jD
z8+aS|J{3+&NzN-G0Y?nMxN5FMEssXQX;3#zGrN5$lW#i_vz1#%PkMUXnK3{1vmFVY
zS;;kWCpf7j1a=$t;-GO^np58y4vhg5xX=cmk^VdW#;9KXx(C0IP^9wVaOK0gX?3cl
zxQPJ7nj2V|<(z(6$wf1T?3NcuW+6^ntmuVFhhJnvz^YT#)P-Z^9C{Gy=K1LB8E+El
zdXz(N8y#uU$0093GJeDtVW;Wqt9f|dJW1scrumbX_6%-zGdMH>2b%2-zjz2d@g=l)
zCesp~O&%+H=qwJXSt3y00NWzc_uP#alw{sgT3VVejPOK2$+J9lxOSEFM-mV!;$D4Z
zJLDtHDrl@OF&!<>NzEJgFuRdGoUVCgv3*dSa5rG#s7gvo8X6iFHL^lS=YF~5xyW67
zlH-9zW?)4{MR)MNERA&*>_@1!wzIeC!jB545tqw0OR+!3MqU8zt8)c*?&&SukwG>Z
zB*Nwu*j!yBBIq0GRi`@rAZ`~L<BJtrQp6nY{XrTKM=G)g69Rxw`9YwX0VWANf3QzB
zL_!=%_EtK?YHNGSv}xFOBIK!|kLgLma|wLzX)py9!4o0R%%<5Ok{!Wl4uC~#{H45!
zi3u?@wLpCBB}&{$!gE7QN4JE<Ztv6Up2a{x%H}Ja|0dDC=UN!xB0Gi;qiqk_1P()$
zRD_)8>$XYsAlR3U#x<WlJ%U0_czJ?nnKtS?>PQ^k>D=?_c(gr;6cy;SWEKeGa>%px
zgg>Yj8oillkWPYO()~8}rRj#ZY%)@hE;j67fJ_>Vyxb;qaV#N!>xMeF7^36}=H)SF
zk>S)D5+}~qb4a>4;hdqo3&CO{MD5lN*4xU~Hd2e5r(B8m^Y<6iuJ{s{d;a?MPTtXs
zX1p852wi6_NS;}q8or!;Yd(1bbd%*fCZR4UoJ!yrlwY*AHOARE?q>Kzaxjz3r|N3n
zgT>Z9rEy%t!^5TG%;gir>%u=Ez`KlIT%7EZl9D5Bmgie-AQk_~d6R$rmwu7u16)oS
z<>lpA{1<4=yOhFZD&+fLWUGC1S$}4(V4qTZ_jN9(e86H^rJ9`45m0sMZ*@-W%v$nI
z7dnuLZ}GKw7gct7G2p=wGk<4!_wt<db=y>Q)CSX^otS@g);A;1lFHVrnpbqP%Icwn
za8P_*5TBVr9I%5kN4+CYMe^Q7^PVZExvC}C?UyJ<j7Fu*=^gfuyBij}?`qAzO%aHS
znzzxh%ylyDJi7hTlE;DF6{8&*<As%1zEwwPcE20daD3dozLg$p75}-?!>yafymaQH
zAkU6KG4aLtz=?b74V4wGa~;1GEfl6d@Vv6nUwbHXBK#2fT8XR*M~g1{M;@CXq)zKs
zYFBlhJt^(B59vR#6c~{oq&;ZiE8WoCA?>ePjHX;nbvwG0eqc(v3CF()r)}uAFM<82
z+;fkeMkp<37L#jp#;H~3fElIRp`Xsnm%R59Sb_`ER71ko=(6pSo31N8erbAh4%mzf
z`uh4LE}>=j+RPpf(}Iw@K9LS5N1OKd_4Q?&kxXf1WRxaDaFKfyYK#N1iFpok;?uS4
zw+dDv1jyu?AkiF(46GLVb8}2TLSFf~ohHhEJ$|wE3}DEKk=OfBDU~0P82_7sQ<;|&
zm**4nZV5e`Jv|5UO)o*75XJkUrtAS%yLEzy*;T3<8=sP339FWyyPc=1oIbDNP#-WM
zDB%Kx2Ea_#SI?O!F_Ld48<^m$(y8z@N95{s!n3loCtol-A4KQIlI;6dY>lRC4~}jZ
zz9|!a5!_M;Ho}SJLD$8^R-oD@JSesM)W1pio*#n{k9VhW(y6?$yF5px1-mUoNFXL3
z!d2S-8hia9{8-h|lb4uy>{Xk!b>KX1awTmUx)Z)=C}3kU?c>LfWYbb<u&!;rTZ=oo
z9b;f@Tt@H~xf;NZXyuYoRNmxCpBr6$S7BN$2FW>RbOx10-ur1GZ1TJo6yNvrlUAB;
zZlfUD<iYSweTa+VnYOr~D*ibaafWWnV>)G;*v@s~Kr#AXD#PE!;RC9;ECAZP7RY;b
zzRsh;I+Wdp355Urdpw)?(HZnAa^FuUA}`%<S(zkAvQuHU^AhQKn%A-tq|mWW?XV7k
z87sT_`_0bF%dNc<YXA8?B&IG;$uB>l^pA{GtOwL`8c+%;K^u_<`~CeS+@eQb&u-Ir
zwF$?Y)-*LeqmXztNn%tT_e!tox#`il!#7K#ln-~K<fwqsbmD=|0zd^A$FBQa34OK!
zC|JZHQq)E!O#3dAkJ7}IdfT(eWW#CK5`Whn<}FtOSfXH_i`nBY9DrH@EAIWRnCG}{
zXmpuR+bBq5@UX93XP<@|gTi^Y-^TV&o|_l}GdTxP8vv-+1E5mTu{4uGDP}W@du&~Q
z=>X&~Y;kQQ#f1BY*|%w^tt$APE%mmo3$RZa)@+~$%HFd>q;cymmj7h!4mQ>EE0cS1
z>R3Mg{nRW`BkhuE15-I^mHh2uC)+gltQv)6asr<XOR;PZC|QRUx7UUY`<>B1NhRGN
zl&>(z>nmN8!6Rc(XIq!Wc>67D>g^0I?p|bvVt~Wo10hZpkLeDJqsxo=lTct#s08Qo
z3$Q9P;%gX^_}6jDngAt%hkJ%$6aBvjD}u#OkXBwWr3o!1J{;cl=HM^nXP=KSmUIbX
z2<Mj0>udo39-tTLGiSQBk$g>^GobdXcysXkOX5}$|LhEnzXfWh15}bL7a+o_kUKH_
z1Z)2OATatz=Zv+)W`==5CK0t3v+K8ac`Xoyxa9A%b@X5tNgkcqA}^-+pX&!QuiTY|
z-)@_&d{{-xb?HG&E?ByMFAefr$3L*pO+nupKTC%a%hcz)S3r~wRse*&5YJ_2(??GX
z=*PGN|K+uy&lGF(ecr-47T1B&t<l!eAVTY@>-$mgJF(vz?I+t}910K)=re73xLx1Z
zOUy1~Zh0-_Y5eCRJ0R=-1h9ls40W>~R2%y3o`)|~-6B;H<m4#kkWiX%HcHHYeC>&A
z@Bh-W@Aje62m~kKf;)Gr+RDaeCf<^KaHGz*x2u(S$&ZveDX!Q}-F^`_u*!_)1hw60
zfWsFotRkFDo_DeUM_9gh0#P?iUj|AF6h{s}CjC7o2L}fmr#I;}ffHcK9Q|vbCv3P&
zS1*H5^F^I08L~7LX^Ai%jtO^TtRQ_<B}Jqbz~@#qWQYmGod>p31585!n0Q3(1j!3H
zkpNpDUnM$u;L<ZAH%`_kw}q&lq61MR`rc!=IG;Z_gr_#w$+7&Dpbs|{A}l%fhc@nI
zrCfyG@Q8(unwpv@(8ITes;b9C98Ac>WS~=hQcnT)?QQXu4tMH3(NRng6=6o!B$(M7
zsy}ux(!89zsLdK*miC6ms8J9=A;EGIzfPEhe2}+~Iu?3_GO=1G;3secVjWb|M#*p1
z?PSy=i@M;~+P1bJh}R`{nxrb?@dUUu(5t*$o&bE}f4FxXtsuTUt+VVynZu}t58;@$
zWzavbmwXC5#)BlaoTU|N=NGx|_Kjaxx8tnK#U>PtDOKloP9H`6U5tt-1PrDg&}qs3
z0ApHudb;5#CKwrhr>;aU5ZW3QqJwcrr!EZv%P+@(=nzRt2*7ovXSmAH0zp!2%i!{n
z78#67;RRl7MJ6g$89ZsEt_Zuv8DN39+?i&9_%%^j6{Fy(L$Hq|aJX@_O$~k#gG@IN
zAqor#D|UUFA<4y?g1_yz{g>&eD6Xsd_Kczj8;l_TW(S4Rbj6LSy1w4`XnNz`j&C1@
zCXi`VweqvGPe?-bkpj@HkDgjN1|lXfge6Jpfk|X&wbqDy5j(&1c;sS&VC})3dQ<S=
zM^;a6BCM11ppA`94|<g4P)7z~$qJ+3FM^k(#rw@tU1a}X<47zQY&k+c4DtH}AWJXM
zcPV~^7h7Zqu${nLmL|PRhHgG8N@+V=aj6ryH_m55{olUkagx{@m5%e)IHA$9L(kX`
zm9NvM89vk~7oHy5!z?y-63EaO#gWOUnY1LlVT|9EiYzZovZybCjp+f!Tn47Y2U$l5
z7`HDw5%-N|f#nE}m0X){4>D~MEJ823F*f9z2q3#d=PCz_W>TK-jJ3LYazmx-p3E(B
z!h6u^{<7KxeFy<REek4SPP9M(BN4Dzhb8vsPWBNK2a$oO(Cv+dgxbTe;RDH{Dkm}5
zb#^|3KkZFP%)mZ7$??DCr`m#v<TQXpSM@joOQ^|6m!O=`FPESqFJ&J&cK7XDG^U<V
zP$awXeRgIFbI1BWMnWoqB|zblmOW)uh_x{`7(@sgK(`_^r~;ABW=x3rN)I$%<uJ$~
z6-0PwC^|{v2FMLChxft#T#a5oa8yPUF+v--MyC;C7@pa35%kO^y_UauIS=Q}=8l%j
zyUy1T7Oo%DAcHjoiJ}X*!gOJTBcri-X)a`0L~56{G6@_YkPqOZ2*Ke`0oR~30b+1A
zKKsbZy{{UTT%MGiZ4-P*#E9xuyX`*Tp%fF~Q`WMQr4~DugD_{hkGh?8I5P=2f|oi$
z-psREflq7@;XET7J2pODgQyXm#@skA0HXpHob%cp1USgM+`GIGQigm-0?vH8BZvta
zWqEdase?pH15;Buz%THN$%qTxXo8d<1}UN}uqiCQ{gH$DojIIE6GF%h;5t2jfB*UU
zDM)k02z>!ULEEb8nh_mytItT#x^&$`;NoGQ>gHzucbiTe37M~rq}_O|SSX{pGcGR1
zrPeg*%{pf_2eFBweWWBb93>Fzxel<T4($ds2r^o;N$)ld2AHM2dUc#^9M}{3`}+E7
zIZxL$;mNXOFFJP6+bN|iW86ke|G_BFIBupxT*pJTKtVQjbTIdPGrB~ApEcHp#)qfj
zZw^pDWLovwmK=&y){<Bb{HP!wgXR~4{7R{aKPFL=Fbi^G<L|{_C_~gmf!Jiauh1oA
zVDOb1{qWk?My|D8M6Wmh5n*oA3;3TbUc!}mQxFeF*DLfF820TFcdVu!IC|?;(%ka&
zx}@9&sx%E)SqMel9IE&bgfOmU0#g<MZANBSn?6t~Pv1U+rPvK+uthrf=ZAm=iSoGn
z^E7}Mz6WhCLDu!ruXAkw7)SfgFZ-POGi8jG;#%v0aRUL$oJ%W2dILdyZ?dm+Z1={W
z=>K!oj*gDBu*^*RzXzB4q$JU(N{fx<LRc&&D1|`uGE%v|e_%X4g4q?;H3_ztjO-xT
z@TOo}IKLTtyX?TTRd9LjJ5_Yca>m|n6amvc8LP8+m{7g#lfko7<tB90IY+I_>x_+D
zNGwf8{OScxD#a`CMWgO$y1WlRVQlkKCpVs{da6zaUZc3;<KwA49{06rbG=$7s0Zln
zvw5u`1TP^2TLMz?jL)CWrQ>+C+S`NL^=uAOFE4{q-l+9!Ty;M3r@<W)VB9t>1VC(U
zxs}3b)Ul&9BEZxiOc-KJeKAS*;R)IPCY;4sJ$@j`#PM6_nkrp<$sD4YvSp^0oRm}{
zZ`%4ZXAx@S_!R|kZ3Xv}5j?x^tlwP(m;Q+a+gzh(8D>UCrRaS<hDwJMC8FJBym@{B
z6;A~S>pUpM2>H2M0z5KI;37<DT|l#CtJbq0dp@J7shNT#s*lK1funo_Nba6{%aZqq
zuTqSU%;p$X*OS0V$%GjAu$=5Twm!F#_AzC=<Tl{-m^KQzq>C*8Ta(a@cOi_F;3h?%
z3lhjlNZvU#20{oAN-D$;)968dpcHR9F?8&cg<qz7`-23cEShU>$n!<)axTqH#B&49
zu9)gpSC8W#yeTM%$_Ud^WP|^@P`zBshSbz<(NG`4S+|ahPie&n(OMT)`0_L{5X@^#
zLs6R0JC<E&T}WPowpsVuof*#+wCE6ZUO8xS@3NioPRO7~kFCFjHHZP9{uQ<bJH2DV
z%z02V6M=QoFMokkTU#3(Y3B*V19t0LMJkP)C>L$G^SowmXdv2l)%U&hM<-`|5}i27
zHluSlqMw)=XjM&}Lu}1ePGfpcL#Ax9@F1hse{`JEG1&d2eTx`1UsCtVhl8^Ahr2y9
z-RfN${@P3(wG_L4?&958y_vz>od-<ztxI&?aiLQDvA8lr_di+yE2j2)cM~4(QyR&A
zUNF^P{2TYrue91TF7d`$k2SAnxV;JwJ%~mjwHKijnO_GHuA98|-Dv47pm$gSRP(Ax
zl*qqmU1vDvKi!_?d&HK9iGv<s&`RVbKM-J19m8m!)#tU4iV(Xo)un-qNc+u?vz^xr
znJd$`z^3lPTu>3Ke&Ayi6tGF|(wC%Pl9+krrTg{$-%Yp<3xrPn0F(4fVdaE9n?o_0
zp*(#wmb|u<ZfR}D#A}Tq5QWdS<%h+}@fLB@I}GeP&D`o20`D$KK0Wi!QBF*VHRH?g
zBdgZQzhkbHjmQ_jIb0b$YSZt!#N-?7ntkjNz0K`4Qu2<cNOM9MUo#*mq0C=^Yu`CW
zr$?U%7$l*Gkg!kBY!aaW**MSsC)K#Bd^%f90MIWGwU@|zU#KO@mtHLM3X*eib^6}2
zg2h<sz6jKbW_j(D%)XZoEIyrD-%ScUvN@nx(8D38&yHO^jdh*GZuRNZ#wj!Nb=CDq
z<fMMk#Y7$`9mfgm!*EnTJbZ_Jq%%>(SX7;5Sy`!M2@(X^gs3zT&f|OtQ>h#%T&c*y
zWl0*?W6wtja(TvYaFMXw?8w6pT3t!U0mwu1+6fe9&iQ*fAW)d36hm_%@|-PJ@g3-$
zCxEU8pk%1{t;N8^q`VL>NO$*R2kaKL_;|87FsSRCKPx04(2YhwIf8)Z_|k{92{=}L
z;o592A*gNW<c)DzuGoxPLr^+XOnQxYKGq87u442x(4yoJX-Ltz9o8xQXi|(IsP;f}
zU4#=UCP0>|<}RXAI|eClIq4(u^Z%uGyLo&AiMF-j@-7qJ1oTea<#BouLwq~gEz6Fx
zf(e}gl@OE8loVI?h7{ek;aF=6WOT<N8z?;=WO__HcfrXWD}T$NpzwVf^Y))H&0Cp3
z=`8H^zHe(|!#%Sk4VaZ<=(A#HpwJMrear>L%%udn<1eHefE?<1h?E2j3>yqH&#fp=
z>S9*J^0#$UwN{OyjUJ=2Qdu*UMj3v86kLAQ{(}+YrTPt755xINe&@Y?=hw0NJMQl8
zoSqTEO`jf3Y>3fMLLtrTv2i-1RpbDlk+OW6k94^ILr)$bY3B@04GqJK?*e;ztm4OV
zH+iCJO;xsI)ED3ni(EI&=niRf_|-2GHf3@R0cp{Z&GU{X!-q1$BjqmN0#RF|@xrSu
z#s6ZkrrV$EP9c!HdtDw+)MsLH%`ZE3^s>BEeL0uxa__alo$&%udbg%#^I9O|bTeF6
zIQHe;;8KGtDRG`&-MHItU)BjjW!dRzTkcIe1>@G$F?yn(Ti0ve-0bUKo}OU6je&9R
zDzl)2euJEO+Q}A~Ip<vm<CoL=Di>Cng%>{6RqH<<7g?D0)%@b<V(gje_CgHjPIe}5
z_cG5FPn@m~k#_HLJhy9tHLY=ASokPf5r~BGr3_crlBb3Gt}HO~+m{>R!NE_qXP+}C
zn-`tyJG$Y|_y!|f!OPUJ40PQ8)Y{rAbnQh-isj#hwO0;W+tim&Hnz71i);%nbQhfu
zy^1Mj*rzdR^VO(^I>f~1TfV~dZEdM~I64?*@t+Fo6B79Ap9jDBgb!83eQT&yQN6_J
z;W4@UgGNq7C8W=HM=g`!vZL(8*wWHsq)`4Dv}#miVM2n#oVE<Fenp^v;6|=$5cbuL
zIiD*z(9PBkHH=Bjw=^GV6`d=VnwMnh%^(xS&kbX)FX=pCP{_||URgq0pL}<zeExjJ
z)|Y`{E$3(OTnr2c4}Kr9IC<*FD%>Fb-AL;HUC6(EH~0OYuVA?S=l}Lu)F}_Hh8AKb
zwaZ76S!1$0BErgZ$767uedlrFbgHw@IS;CR?(8NFI)lu_w-&RA>{h;;!(Ida0q*Yh
z9ijPPXWi06D6Eotb*cQ{Dlo<7es~qn)<63DJ0hn#H?EIg45sk)(3hW|TdO(zXrk%>
zbI)#u?M4$d`K3b%2^xNi+aw!ZdgG4A#n<cNwF+D#If;Sczs+k^R*K)K&YFV^H}{TX
z=@Et~C{Q$8k=7H|`+l4nri;n#L{gHiF{Oj3EC$7$-)N0F;XqlzrW*xxa=Q%f5qmhs
za1xR@h^xlEr8paVnh+(K_}&!!+l%sEj<l>Ybh!O$+S+p8Td#b~x9$<M9r%7sygVh~
z4?vmD3rPYnMHot8(iDWmuay)&nJ9`#@7SS$4%YiRh<&H9`#vk1>`dFE5I0-oVUh9o
zTgb1|N4Hi6eO6SPgkb{%)Pt_P3{49_U55SdY+)v*GfOX4#;js447~mc7}=U;Uvm%^
z51}9HR<3Lz=(g=I&;`vCIy27QXXOu%+$^emlTE3F1d?_GAW243v*mUR8qJy$sFHZW
zX6TTsH_n^uX+m|C@?pDXnDXJH=5*4#1cZ&V(?Jc40ywvE*wObI$63-sxu{h0c4Li_
z{q$)=jn}T!5+<f-ztVB!iu=xSk)5e8UR<r}<d4qpw0a>SSX<R1?OND>lKXXL@<5`O
z%w(SORwgE<ZFF^c^qpDyI~9cG1`Xz8mpp462Cj#9rncA8GoLCiJ=Bmd>{qa>WOy!N
zKdbQ&<SW5ER2p<LrkTzD=tOl40~a18d>CoE8snbkKpF?5$o*jI3Zk%!h#c)Y&}*-9
znhfaB8k#W^;;)rW!U14W{2sfq3zCB?MC`NAO)G1nY;U{^rK06M=E^v>TD~1fS$xT-
zIrP(0!$L`R0}Gd`+IKxS=mE0hD=}M}W}R5YQ!4cxnT>Tdz7@8H3ZH(zi8&uTZkw{3
za<-048`yq=+l5Y-u<QWWdw9lJecZ&6S&*z~Jt@t{b1T}4J3UuojHg{q5Ezd<i&Hg7
zbX+s9g2@uTelLwX$@qqCu2b?e7F9KeO-PtraoQK)B&GS)Ty&X7Y}FNAMadAh*f<a(
zgaaarA6*HFCJ<-qYb)?wlc<U%NS7F8iPB*oUWi{;q*Wuf`2oNhVkk>46Xxjf?8-Wc
zvR&Q20W=L+y9@Z4QgGRmsP1eEOk|%PyZTs{a0pQD(3pf;k3mmjjB&sv!rNSexMki%
zAFPQq8hsz=ggb(~ojcvrBJ;9KtEAZt>)F$bM{R2>`~ISA3#m*<NMKXu6~;O}jJrMe
zhn2Op$`E<5OdDrkc~*QtI-V0@U)_5xv!dcd0%wlYc5R#`-y>L|edAJY->6nx<m`u$
zk&!IOWQK;czV_C=90V=ZdgR;SZRAci6(#30b6SBquCCszP9FWmj^!e^pC!bJy+ZkO
zvgxo#aq8yMVNDG&PXKvNKro?tR>%P+J7y>zTt<z+VBsZf&rZB3FF(*-7zI}{x$OgH
zF!IRi*MX(*Hz(ibmca-wlw18#wS^TGS^b?jB(~=A3oj<?tz#9)&W|l$y)aT8=$5Kk
z40<3tJRI#OV+uA?&-AWDx{Y=CWjzmLGc$Sp?Zel_ott>!$XnK@aqQ<nNbx;lqVs?<
z?)P33zk3(LDzY}-G*vrYKAMHvJR;iu4Ud}p+e~$NorBg^R!7E#iS$-YL4YA?YC!+o
z!r?w9+ffjoguO&7XX3dI|7TP)I<ziGY}jiTSKjrsQ~_PGhuJm*G*uu>fVjG1G9aBi
zO{-lzdw~4J?E${CXL{~tlQl8|35hX+6DfMrPrq#=x-w=Q0zzZ_w%3&WaKR^mE~&8!
zju9eX5kV*4?@%il&*Xz3&}nf{N2e<fjg14OKA(iri~E?o7Rp$%d=>`tmyBp#YdF50
zBnCU(qbn_@V_}SQn{!<8NlTPu2dIQ+9>PyACeS&S$2siLt;ogJ4GxCRKrQFzbLbKi
z))35bLWiIbgua1L5w3|_8SdUu;_g&%A|JdhmduCt{3Gyn3cxVX!PySz|Iqa%JPe^M
zA<^<71U6C8kQIC}IyEQ!d!+t^c;A3<yV6EzcfmDPLh;Z(x`>6ZN(fYR&YA2u$fIEJ
zVVo2Bj?nM_4>tO511SD~1-voQ^=p$BkmmjUw=XNtJdx&#@_*BSq+0!U(Zu+Iyh#b`
zR-fQXi!*0R1fq10P1%;!*O)hd`jpgX?qAzso~6LCbD+;8Jijv)Ckv7CXK7wNCdJa6
zI{Nr5zUK9Lj(czM^9qukTjx*64MuzUAh9Zq_FlU<$7d+MEAq@2@in*SyV_zm0kPbG
z1nz-$@36aj)-S$jNBczFoo}fTIbhZh6>NwO65@3xNCj1<0aivLrn&UOi%(OdTG7p6
z-5KO04X&wI?G+zB-knzuK5=3=u`cTQ;lWX@p#cM#-V*``Z~h7;oU$0p2|fPE?A&#0
znf?Sr!DA7)e|p<BDBMM_-}BPC(iD|tAKt%gDc3S+LP|gKk)iA2Yh_9LB;kE06g(d{
z8EIc>DjIQ^yTQj3moUYSe5|UT{S;6s{e5R@WTeYwomEjB)05HWKMz6&*kZ;b(H<Ac
zycaVb=MBCr$%R}FxVG-p_u#ExnQ%(LEfnYLUE^>R9q9FX4#8bm?nRElA+560&c=QI
zk9*kaluQu1JuG`_%LDY0fb`V*u3PHsx0QY2M<%sW`?euTE5Wbh4+?Y;@|sc&t4nco
zv*JpLRf(@FizdGU|6Jq9&dNHB+>I=9ncR*ef@<}r<j)z`3A$1gsB36z(;gQwHcRw2
z`^mcuJ?Os+`!UV>Bc^wo)$WOhnrfW+_QlLV2i929e>_s#anaVcZHgy)VZC;AWTff5
zIxwnsw3oG2;LOxinAQug>EHZ0mn{RiYYW{I60$bfapk4k*f!u^T%C<$LdQ}fBO?<|
zCrd-q!qR^ox=50D2n3sd8;7M8Jg?p_94|EO!oA-|G879?bSs=aqvWTb5K<RP=0pEb
z7ysKT=YNXE|0@e<*);Aex}+;dM5^UxuJo21Q1(rrV^e?{Z(#A0qDs1DMV4@k{};RE
zLa_JV-g2Ta{StRBT^Rv@cqx-8Zy=7;hbsY>b_-c_1)p^9yHl{Ei_mo?t#*P6GQnXG
z)krUfXi7-${E$*a7o-z9{mm=IlDi;u570>LX=`gE+RH%FO+)7b3NwOSdF>~<2=|B9
zO(iUQ(l4g1%<?droRRo^)UPxXBLy@HjP*Y6on_{b5aXCDlA=){lBksaevVfGzyUzz
zF!rqwH5n*eMT-a_&~F+mSi>c|a@`F0t{_1Z4cZNKgXB@;eXw2`?O5rl_(YhHd%GQ>
z!J=S9V#&np^EA@*r%(}fus!KaM(b0CNy8TQYJYs7r{kB98-Eb5tBM>Uqhz&;2yZ<?
zrFfF!T92PdG5k*3J-i&{O08~c_RkcE(m%#8AP}B*nxh3woC*ovsOkK<rp#5Nm4$l0
zVhF7!=@!Qcy>NPYbL~pt>$cEz(5rv`{1lk1z^mKl8~I`nb&J}+0V^x3c~=7R3N~dv
zVc5q%t1{WQU0v{H>k7SuBhtTSHa0hFfVq=`*yDqQpg>)v)HLn~r6Ex~mGt>u-FReY
zyUGEci2h|Qc8K2Yrag$xx7^I2YD41pZ74guk1V+rFT604m#@6IKBvx@j>c&v=wHS0
zJVHCBrXET6_4LR%Kc{VUG`j2bO;+*!gtXNER>W_XC+l%ICi$ufQdjkWQCOthd}Hd8
z`!;&x;t12l<{XLYH$ArTDzChD1>{L~KdUiPP@GPC$o|Y7IgH!my#0GUftaW)X{LRL
zIU?g@BV+OL#`Menho@dyesiq$79j#le+@OAF7bWT_WWixgV7kT#3$z%HK!~K`qI;l
zQ|A527pNM=FXX+RDN?kqDV#2R7~fdv@iD=F#KPI>=(mK;`?zMz2kROx*viW@9gfLM
z_r3aH%G~G6zJVTLZ6mwx-dk;o*9RiJ2E8up{_UzZU0Xc9;iNO`#45AVqQBZREx7te
zmgoncy1R#m)LlE)a#?ks7k&PDS}yO+9odHGoEPD#dOXTMqv?2g%aHmY?>dzhmk{a<
z{X%@{4&{CF-&Eseb|{DU)bSa&9!lfBt{~v)|LCLQ7DMfi&kbD~T++C&ehNzIOu+vu
z<mz|zEfn6Hjk0ESGt8K-uQVNu*TFZ|z0!1gUeC#xwQ>K5>fmqd>ehu8)-Ps$dpv9W
z$SX(RO#|~TXPU7$3Lmn1Q|z(s>Du5V?L(iU?d|I@Wt!F^@#SAzEXs}-D(56Z8c+H+
z7aIh20E5)A+$0p2^<4Q3+UK+zmk)NFSUe|=?s^3lDipsL$pO&<2~qRS&CT;J)hCc`
z^Au;MZ@^f?Igu07P&Osjyc4l%q^L(rj?u&NRc<c2buWX-T*GL?(KBDP;-(#^uH3wN
zvyUEFQ&;B$m2mCrmjgt9^VjCdh`gt0gEoU#)l!@;cjc~ldVHU@HE)cw3mUuqJO5Aw
znu5YruOiM{<X=5}#*In%VzJ^9bM6_5c7`Ngys1$#21Bt&V4?@DnMD}Xq}_01@*NK7
zH%!m1*I1NK1had2lG$?d-g!hOYu2#}v!%xk)7O?ZcVP~gn=ZU;-dt0oH0wMxGLlew
zJ3}pZcjRQgTCEXBud7#7gQdC4bYuRUj;8zD|EIbyfu^#5+kFfbA}S$dD1>B)GG&Sk
zC6%O<$WTe9y^%5{l`)D2rI6IyU<jFID07r#&JeaSGL%{JT~F`(|DW$W-#TZVwa!{+
ztz*4wwO+PuKhN{~{qFm|?(4oT%CT2I{2^nZQ%M##>f@(l=?Dh73$FB>r7dZf;(m^R
zcbJm%k(@0NnF9+c=X1uN6Hd05q0{)qZIXCvK*jTsp)P?sNHXe04b&&&*^?FiHV|Z;
z149cO+x<X=`p}iAAse><V??U>oZm#CtFj$sFj+^Jon1qciwvU`BrKOa`$F$+-T(LL
z7b@R7(6z6B-|b77_vuG_{sZ|I=&@Q~UZ}uS!7JaX#C6%<V^+K@3N@Dc*Dt}WLy$!B
zNEVDa+Sud}&rdYEPJ@+DLy`|kl4;Mf&!z!cWJkm=es8gA99qp=0SDTKgBJ0$^YlNZ
zn!5Pkmm(GZPi^-94Q?H6e}bqcw+GhUi?eK)Inj!RCW}ZF+QR27_GeB_PWFQ6Y#5mY
zGB!!dx5t82LkXUXvi6n;=B)OTbZ*`wCO%~2?9Y5j70ISb&ieAQeBI%%c%Pq`ED|*!
z`%M{{nT^;4_Rh{@s@&w00iQCBd=<%I`-QcmA31`d$T{?7EodPx$4EXc4&?}uKXeR?
z<~HNE7a)*!pTrIgesqlaD#E6ADh5j3^$Q=%NaV<J{&Uoy4+-uAp6p)GXJ&6K-Max1
zA96=a7ybG{5}6Gm$q6AcYaq8E7-wfMLWkya3;d9jpT$BlAbHH3Bsl!ct@TMEKO*|5
z56B@T19A)z6K(?Alb>~3)Y3uQwNvHOr%wldvh$K$4d{4Aiy-#nG)XzD*4R{EU*B8=
zc;eY8&_AT;qr)_kWgg|@-FN56{Jav*mb?)f$#?+OUD5!b;HZZWfTt0!RhZa6?y<Nx
z610q|DGJ7jld9E!V^H(^Fb(9A;q)6MC=J$xhNuA!J^beEQd|B^>ht$L>|I~Gx3wDz
zYf5Z24A$ITW@57D)R}Kt%eUwASEt9sZmX`p`%_%<eB0gZ&ka<;&$niVCzuaaO^*Bs
z2=*7V7ZVGS5Zd^DpRVmavjO&4vokmETaBLM^3|x7ua&Pk_PS{-yR$4B*VMeQhd;sw
zqO@tObQzV~l2TH*Tt|>%gw~`%p{^zkL3wxoh3OG9PHyh(%37UAlnsr|&Dp#AkD8fD
z^ebVyo9q52*v%Kr{=`53d_@?hU5<i}{oh~uf3+0v{kP+@$RUUSWF#LcvF}7I04E{B
zKu61D2VB7a^;LB{s)6o6wJhWpNw-_OdvCKvJ#oJY;_chFFn!`DWyS8<)W)ibhL<Zt
z+L$>^mw~{<@0HRzC9)w{_TyaeYeTP#7lQ}R!YLWw)eBs;p_CuF)t}#(8D#@)jbLkz
zy*r3jHdG1M6Pl0|;t!+E&CiDnoZVXx8xR;6s$5=Lif_7>mX*Ez`c;s$t34i^Knai7
zr1v;IeT{&?*4LJMAzD=WGXrFd&&z2dD9^ZD0Y=|d;)P}L%o7eqt(z)L|JX_6pLC1r
zUlI@gb$fya)r*%~{EwgBw`P#}*G*XcKi|nWPgeQ0M+q@KfBw7}iZ*ccy#gY*X0qv~
z9Xq%LeP`pVX3i?`zQMQ|*LNB^8WqS_`=8%Twm#<@FjiYt^_FzP2H#Nd`HL4?kXW8T
z0|PY3)lPEqZxX2Oug|bUkO^k)pOTL&B4eZne1IQ$@7}!(jKgbS=XL?agcpS#?1bQE
ze+6w-Gle!Peh!f!%H-fdIGk<TxRD;M1XhUMFyan#+tzt|XZ72SDR;3<_YMU8@L1;6
z(_o*e<T1*h{`xg#e)25VR!MdBO58WyUAySX-+O92^v>bBtD70#&j#{E9E@}rD}M(i
z<rvP~zL6?9dHJ=W+%h}z7w3Ks&>(K;;?~0DYO)@<zBRNoE32xs&YqRnrLDbMQ1Axk
z0G2}^&7I2C-x{4@{%wcfVxM^6d{_e2t$99dQ_8}qMRwX|J>>>RJQMSM!c6``?i{_b
zm?f7*J|gyN=3C=RG~Uzx+*_c&<&S-y{PovHY3Ywm9N%$gHMPSbl2KV(tC&m94#+~v
z%&R0LR86_5vC#@?NM&`keBPT&OTYCE3@!%-x+&6|96oFX{@v;3p|)%pa0<`<s5Z2)
z5CA$r7h}|HYo?>a2=&Glf`Wp9rRP?9xn>OTyDani;i@y2?_WTH>RD6^jL52HmNPP*
zBsG0@JXFq;V$>>z7K01+Dxrz>m<pNNz*74yUamXc205S&yz=#!WsZw51Pn()>P^GN
zwY50L!9}owtDabPL~QIT8JV;5+%31rJ2ZVaf&ZK0bU%5U3YvX9UbPX^eS@R!d|0Ov
zsVije_YMsO&(2=JrVv(9;f2!MJLo+``^05uE1n;1KTExc+mG%S)3sffaUALeIIKJV
zlfe&T`kOQ~1b_ejP1?f461%&v@7l|klD4+CCx@GoK_1tJ$_ED*SAVae;p@#6kj7wv
zZ~zk<TNy6xQ<@DFpjbH9t+RsAN9FtX?=WyE`u*vX1L7Qb%%!C|Zlmq%FJHbqK0dB_
z;>3n<L5*+>!_q^tvL*f0N|He)Hufqdr5ppo@%2Lpe==QQclqDA!JcAS6pn_(MtnFd
zEAj=Rl_{4Cl)t#H%JEm5YxQz4FY8p&*4CCg`&k4zBm;_=@#*OR)5P6YR>Fn9=g*Ow
z3Y3cFq$hKgXAGVPlw2uz7#PH3!Qf-T%58SB2~=+sx8oS&YrGb5ynOW>mL-G+9Q>l9
zxJj$P1h@c<PfhLi@lgv24ULG1=<Z44eZ5&Px505_D;B8p$cKZgrue*47O2nv(-SdZ
z(&2*o$2t?qJL8Dlt(h^<NnimZXLdkiY3N=te`)kD3*Wg@T2GCcF|Qz>=MC<m|DLC7
z@Ti8m#J}5|4Tn51`3<~-3#J#us?XWmUxjuP`5Tb*F$!t&1$~DbKfZbUwn#&Bv!Yoc
zq>ITPujH0?NKb-rKB$AY9~r;63OSMdjph#&qG$#DQ<p|0oB9Wy&*Vj_QBan#;I!f-
z|H#z0!<%>8X`G{y5eJ>atx~XC%%S#$knezbtUPh!w(U_g$SW<ovqu!MQqO;Iq}kk8
z(W#w7LlN>TVp><HUk_ZWJ2AXt#$H-4x5=6Hes!8?gL8ELX!g~-u*^6|YGNBK;FTFR
zn{A3(!$=2#9-`~6+C3>@Ci({Z?ZhLn`E{G?zD8eMn0AaR>(j?7rYGFKH82Yc3-7zT
zu&`iL>_<oV;nd4f*l})hq;;*P_Wi?0jwl`zWAbm2|J0Hbf|cB(9DV=(P_Mq@8R?3<
z#j(G7sSYE-^%WH>HmJCP-qX;av~!1Enpg#74~yH{_)x^$?WLVOrY$}2AUV3)8HX^z
zTON1k$H#SEEyn_=FWVGma$DAXQ|zZYFi&ByXz{Lbc0~0VJ_K1+D+Za|2Ap{DrirWh
z`LB<UySyk#3*Hs43B5Nu0{(=!o=XygP00_cd#F!BLRbjWN8O$p14U8>0{dY!@}7g0
z(sX-)%?HTHcR|pW5b_PqiTWKnf}8%3Gk&qAuVqcktvK`WFg1$30xvcj9Ra4@>cH|o
z{k#3MpoVW$Rpo;S!If99UTxXs%9H!hIcr-~oDkD2;td^vlmGf&8dc<Y^#LPyK3C<e
z+w=Qe;}-qi3@i4hENp%1v?;1~2Tl=>cXAi1o}#NvM_hotgl(hzumw7i#b|1eqa5i$
zF;Wbs^(sV==Z*Hiz>imQ|Hg@5`~*d_7uuOs;7EgRA|<7eYeb>Q5nXUpmkzGtnrAkF
zHa(%CQKVb#)cJ;)U}9#LQ?|P4`<IK)4M7jve?KIL;6ogY=0(06wwNaQnI@KD^LCAm
zjn&A0w>AjJ=<(6ilXTX=VRXfm(=zxGR6-F0R$sezjfs_22NFec$V}XZn?59KaDV7K
zVrCYcm#0E#9zDtf!X~=|_VqKPm|dEh1jYpD?(8|0e&l(6>QuDwv%Gz{DOcyia{2qr
zi_&`YWM=Zh+SS_-dfJ)!E>xYu(!>GJO=#}g<zHIY@(dE`us>phT*)=q4k;ev;^6Qj
z6#)LYN5oui6@b(&4<Uq;3wxM}g~dMO*T)!DC2B8|-_p{?UZ-#0zLl;YUZQFIPN@2U
zvzAy|+Fil3$X$ZZYnOTKmgU_ipUuOmXZHJ2m3K6iUYz@J3WGN5{Dp$l8gM85_N&k7
zyb*2PU>0q2>=>{8xpNT@ACA2I#9tmwt*Nc$j)VUC<BSZ>g_$uuLqk@K3~v&@v*%g4
zeQ5uW`k4?`X6Cmb-d%rH^!u2(>G9*CxEw1;YLe2cK<}J$L{6V;_55)2P)B(rf1gFs
zS!`wK@fM6$r#WqE{(Gg+Vl(CKBf<sLScssouytMsD$O7lQ`gCklL=ARV|ZdHdhMDu
z{^+0+1Y+oAh(2j@Ff#f3!BP>CdKU*Hq3PpOa66v&Y5kC_$EZ273hk%H!jh6Nt5kTy
zmix`Mxv&*Y@^t<fS|wF=@Z(6;e(8$xyGohI91~pAaB+x1J#!;YQXk}GWZ0oOS%R9V
z?yr4(+<IpP_qtBb%v7Kr3EY0JsSE6GoUp2?P*@b%yjlB&Ne^Pl(G0tY&;;jL(YYaK
z<|6lDE;3+{aRGJ-rFiu?Ig)Szl_(v7LrUr5k0*O+*;mz?S#j<sRUJ&3;@eBTZL?S&
zJzQu$yo0*nfE0_WH}ZC`^lSHFQ-W=6YGnsh&C<N*s8H?V!ilVd!UM5&S>~}YNYi#<
zx<LyL5pY|&TwJXAq9l`?(jEt%NrRNs1q?*-ZvFZ5X9<XnsSd5%viUY+Yk<|vJqrRY
znL%Mw@}8)zPVD~i%=w<IZen9dZO4o3$fwHh@2JgH^|iFDIfJWCa~&`u*al8xJHjU=
z48fj;Jp3s97<$#xSk0mnbQ9i!YZ-uJi*<uaL)pPE7130M9V0r}C2(4~9u&j`((-x;
zCW}i*P#ze(m%`vj=a8EUvW#xDra7aKm|FwuMe@4ZE5H|sgmm!NHPaUIy$7<>#K;(c
zyJa-Rcka~!HL0!g`|Gfvpvn^lOD~LOuEFQSJpVk~o~NIaH}|LNI67{HkkcxH+~vrK
zy1svBL#pEEN9<e}c|D7Hj{pFaNl-HCv2*0cj)NrMa!l$;Z``zruP>Y0w}&!)cJX`o
zDAt*j#Ty>T-Rfdh%fYGZ7ESn@7c-m=?zML!qa_r)t*B8l+)cgWdegm|qikqFN&vAZ
zP?AGTO<mL0Rs?#&A!uZ&N>~q@-J)Rv=m1U=RE)W&F5d5{{Fw~ZL2HIo-(Lq_nBB5O
znp8FbwM^Y+14Bbb;uj8Gr}{0mo!f3}ca%r-_Z=%r%i`}lT0|$6KU$sXlrS(F=ZNBK
z^t#%GD$(iDj+MlL7bZ?e?q@W?GJ^S$)x*55u9FGFJ0a6^w7_#a3|g*&{rmo9-MgEh
zji7fHfE<6j+1&>ZRuY4q1^J03+x9Fi8-uprU`M_pnY(742`L<b&y*FFH4m|$flzV(
z*8A{LvaMq{)#lHs5*~gi{y-OstP&j36sXO!@+wqbuKQB{g?}o0WPj|=+^TJhTl1mC
zSB|C@9bxG^C#rIOWN@}Px$FARWW;GD-(N})*zbEJ?s&%0H=x9xq)zEJGcz%9#5FfI
zz6HOLLf2Nj`V^U?o^vHPOB40>p~Zd+1Rbme9$NU{x8dVr;i7S9LZdyBD>@=Qf3b<j
zr*@O8rTt`e`zZ%`y?Xo17F0pRNre72diAp_EgT%AU}yYbF?|CMkGRokTl<Z7pz%&<
zLRF5RFO|&!EAH>}!i<tv?_M6uk5l7Tps$o+NuRN+sWO}e2*2L!g0{#w<eAVvWA9qp
zY@Q!=EZHfe@HYR!0J8WHB@exa6GekgQ+$UEH(bhXbgZESx?)G@8=-hM^7z&ufut(|
zhv(@tQ+HM_wge#%i4|3TJJYa=ojvM}N2t6v&W{6$jff*Ip|NhzI(&!Z3F1NQ-Vlr6
z@_7qGB|Le;4=Lw%Gv9%a8z51_PVjn48B{g#_r3d*xIA3<Oo*wc<(l!=jZWvnA!GU$
zp(IRwGCOnyBV*7jgNq+1rpj2_L1EIyMl5#wedp!urov)pAm+<RV3h^YuI_nz@YLW(
zcfRAUxc%j3OQEACMRH~B?v`XW&^|<NNquSZn(%SI(h-na5e?o%xqkB|$3#{Ze9O$=
zTsSy#n2Z!8yJHqjBDzY|0iZ6{V0S!6vUuj6w2VvzRM{{?wH)OD9I<oCxZhxt2#bj=
zC+oDsmg9hkmtjBS>^ljQoac#&3<P{+gtu>BH#Iedg`53ktw8I8g#6c=HFEj+yn3J-
zT7k7rrlk|V7<oOvoGA2Ok9t}dYORcxmX;zSB1&7XomNhinr!Cwn2oQA<=?VpOPYP7
zq&Y<H>w5K&Fpvcaj(>JyurZMvj3KLMrC<5Is$D)k(t;S`Ix?sO1=ivpIFwL#5*Kqc
zmnupqMEiYc<i8l3cdi3Vr_Z=3Et|iiz}IHX-Ex&XU#@o+pn$62U9xYMA}Td;Xn~uu
z<#%%ZP-)vKwk@Bls;YP(U|r{EVrtq0*p1<nY<)&tT-@4CS>bAP$nZ`==<<0|l0xnx
zG~|Tg%<?&a*^62OAOJw_btgq3A%Zj!dgHMd5mm|Q*{*n5)zMCfijU)bQn<K?;HAHB
z-}d=foY~$8*^wWgI68-i&uW|(`==aLqujl7XM39vnU(;N*mGB~>rMJ6=WNL0w?N5W
z+dA`(nzAW!O@tD~{Ke<b#qpkc>D?=_^r0-OZ)D`8z<(tkE|msfWCx%BY={}&@lV~U
zoaePzzWPt~*@9=)OqS<QiVd17r4G?H@D@6aD*EH8)7j;))x;DML#@%4Cr=8Ic@hNS
zM!psaLJu4p0)F3Ht*xzPy=Pr?bahp>I-P5Yrrp}F9t>@4Cba3_q8ShXf4hySW3gUz
ztgRpS+K6}V<zReGbB$KnZ)0tp>N#cq<k_=LTehsscIw!L>Ku}SA<yD`za)EJ{Suu}
zuvC!(9ALVz`A$-pyod-R<Y$yTC&hsv95`^mPt{{oNI`)U<D*JFG+G_Z1q_@o7DbuA
ze<#q?&%?tL1f^0Tyf^ApadC0-DZ}!PL|{b3#2&+L!>R7j`qTneEJv#(ivnKAwlS;{
z*ck+A$c^ISOvukf&|{Mry1_A%KCsgr>16Cy<@Yaq8Cve*raALdIy~^bP1M_aI|2|7
z54T+T&)A&O^8Yp3^uNRH{tH&e$#)?b59jYM+Yq)l|AzZ?ww3)KgIoXo&runUq?lhu
zMQHq@6v^*~yzdZ`3Tcy;l%x)3Ic|q$BXZ3*7;VyxI_|mCO=Sb>iOVQkGoZ)nP4;S=
z><SRar7R2iq3y;AUB*o**%X>?VE-wZGqEeE-OpXG9Q!LHLxFr742Bp7ZVW~wM%uPf
zU0uLmNPojB5{k=ZmU+P-v@tUD+c$g06)X5o{AD5u2~bs}|7=k2(l<2JK{WV;gfKK~
zD-*o}Z`h`i?RkzKXE{FEDd4~7uU;wUwMWuWctVcsGSruMn4Qk)fQ0F$ZQItMmN=Il
zYxL~(HtGPi|Dq6gxRT<i$3SfynNJg4*e)QqZ59cyl!FDsIHqZ}5*vFka2?ptt=|KE
zrCp%OxImO0Ad2QwV}lKUFw|VSX~3-M{)H1moqGHBvEdxMifqIh3Z6Xb-b(Zg3=y|)
zU&Z1w*l<2H<I<9ELRkI`e7R!l%1=DLyXPxYN}XMMzupGDdm5M2GmdSAg6+Or8d)9e
z@ZBMZ3qUd2NA)C0)G~6p7hqduQW7=wT(h({`tkRaUBzHPRyXyoq~y4X_VofOWdRHg
z#mxRfbB;_K-V_u(NXoV@V<9w=O;cbnx)XCsIAdzRDqa*&xKT0q8xYww6b}3ZydySJ
z6h6a_Pj=U?T?b4|u0k&MBrr?kz(1>OjccuQj*gC#6GoDNw0aM^sWdb;#wR7QLKm|P
zU4`zUA&Hc@=;#nw@)+<?s$EChl?hF6@165AW6l|rBZ-ZV@nT{elT{lad+OF!eq!Uc
z?@*fYH+rUxq;B>4^%Cw%kw3=Ai?QWdh<n>kv0NG#BCnm?1g-B<C%6bsmSwmovMA5V
zQIa~EN<av8Hv7_oA|(b2a`BHI6*tCb9d&niC;XsHdEdMuwVMWkG&fH}o!$$GNj>-S
zQB&Vi;+>I&o-k1i6PR(-+I#rf$OUK+Ms6vi&o2*efif~PPQ7)O^)q>S&3CpOd1N9P
zZz4&;s0qV%3cL<q3pW6V-i_+Bi$=SG;XNTh!$2Ll@OQ68NAo_Qb-*;0r{pU0+DDD{
zj$gusn3MnzBCv#_1%d(0<;X5u^4t^4+7#S(`YtVcOiUpmTSnZBjg>AuKUUJ*e8hVU
zzs<XKuc0Al6zTZtU69K|qtWm=$Z^VO^NObQ^xmDHwup-tV?@diw}g?AQ3!_>$jK#e
z@7a%d740*IxzV!4KL`W#hHv5tRaWZH&dtT+!OeoG3<X!K^T(T9`g5%y(!K^~v@Vsp
z4RX(Z$QJNAVQd}}GC-J*{yt?l!UMZW8d*x!!8RzvzLABQnHj*}-dmId2-Xuo6&?d$
zV`5^`G%?})jghNId3j$R^V0!7w*lzI1Gz;QUI~-$EGfx?lSUU>sC6?WMgV9GeuC>P
zhfy!xS_*AwFbVu#-#!5mcTIbHNr;5Az<@<ZPw)7{qIf`DK^lXs>$jD@<av1Fv~kR4
z;7L6?p7U0A<N-OTF2=DsV)x6JFBu7X!U_SJtLPPk$i3qN0|O6$d2bt29VHVw{7}XH
zWz~<K9&2GKDMRy$hE3|~g;ierA1Vn;7kN&-tm8q6w<YCPbhIQ^eCSVkx0%rsR)8kO
zXrU;QQKw%6AWG*q4xS5NNB9fc1P1E1d$CIS@CYPA960z@b93{94{4CwrYE|QJILp?
z$EMql?!+GYWS{vC3!%mdY4!0Im;_YukE(5kyRo5D_1CYKvry;zAh33?(n7mz`wh`P
zL2mBNc%a9;ukUbZIY~W^hrG7-0p{YE3kwT%n^&${#RW9;fto4oh1dLAT>Mb}%J>Ci
z=CO`JpMYjw*Bi+Ca5q~f@&Ny(VwH-GT|##*`a{P(ux6Qwt2h^44;vgjZ5+E9$;w)S
z3B*Wz#JhqA$USIJAp=@v6`oAs)vJtzpV6}tcw!}c76~!&Y_ny8p(4M)1AG(LABL)m
zj(|OIF#2u{y|ykNE~3g!^I155s~TlUFhWN|Q`46WACG~W^v@5V3#-(6TLK6HVC0QZ
znr<4IhA?y}1|L86Qc+tY!%iqH?EH3=Ew?R~0#$idft@XnC-xpep^c2@zIma?n8mN=
zON-n%9Rr{s|DdKDz&`Tu(=(Y!9-%k{aO?FjG_6;Xoxocb@mVgD>h+&L%liJB6?@gj
zi*oNcUGdARQggG@#@}5@K$15gG1q%8eYYHW&>yTWCF3hM4^*CKcWP*SeK~{tybILj
z6+~%iX&2@-ku(PwJ-dQCfB@hEcqhrSNT4I%Bl|)=&Le!5p6`fAqh%oTCx?81%aj;k
zVN`}|9w9ISDG6Qssjt8PF&4_~*QG^E+f%1nGj8B|Le{no@hJkk?XY{NT2g^`ESpI&
z&rPpOM+j|um?-g4a!Wyi-VJN0;q`ot^PQJ~<y3s5eSDqWIED)pRGI<bH;;VpL~^f-
z>r4ZdVPayU`K(?mp-xCqk(*4I2z&@m#E91_7HUTx@&%YkuFG=%8jjqj2c=2R1PSK@
zxs-(+7r_?xUSo0c(CfAb@@G~dR@{t;xQrMZdMXzJ<dn~aSZ5-lqFUJP@V|usNWf9)
z&HH0ZfsnEgN|YW(w7#y7K70P035N<nFfLzijprgREghhnuzKcVPbo9yLPSzhl5W^6
zzJCSBrq^`R>=!70Klo)?6Q}XjYC+-jXnXEB;2<=r%BWn7Z~xLoRj>y)k-_iql6;D!
zyu{3U0Rd_C0i{1F(u{KRc^<Kikut{v?Xd4qs0o(NAXH~mQC+iR(5=xjKR?m4JCU|y
zhmQ8)!*@QxDrJJp`%nqpQ5*OR_xPfL7M60z(o$w}?5m}DZByI$GA#}ynID|A@qP()
zL2YxWp!TH<JQwC2*_zn@qlw*;&}@OVN1Y>%4J*tw_juyCaZV5KR>tvt4TxDnTb}P?
zUQQ=4uH=t;wT%P1t{KOYb7T%J$nDex;JwSt?0(%8(38%=>3M(%t%IJx$4*!4a4?dh
zK^z2=mX_8oXsEZ&qTwn@aFFDDvFh3w)y<>BXdjAY(<*&<1!RbK2y!)}&Bkc5ot<vs
z4Sjp~lvtVi6ncX>qd@#Wr2Od`Z{;KNi(J2=qM}(6*)%Pffm-lofD?p}s%qQlQF3eH
zo{=lY%F0UV((gC>3Jlm@G}_yqK21+RE@c^#fQms+kO61MmVP_uPxpP~KVcdGpmloe
zD?33}P*uls*0C(RD`mEEn&%fnSdEhh%suU3bXs=`1@mr{Yjgwz@OM;vcN#!fcm*WA
z=?NeO`(F>&#%TzmC#@T`e)^t(>`4M*ctt!XWDuOtg<0;WtL8AJz{`exyn>j;VZ54$
z$8N`OjDT?vF28?We6ab5Ta!90T}U6;R?hkYY?878{5Z92%ysvDgM$5tEE7u)wH46I
zSl#iJOp<%)18k1Z&&`=lS)fHoZf8Okc1XC)70BqyupeB0_U}u~%JiCXg1*LDpyWDe
zZnz-vfqMVjmySG#%+00LmjH8}KHo7oXg51Q|D|BRM{i|%UR1YStisvIR(A$^`qJfH
zpaMMDus~}5pUz&#$G7rPcOczyeRse;6b4i|ICew;_b}o!B88ra7u<3<*)$;~<>N>e
zX)=1Nnw4*o>^$8X2E~9(mo;g+dkY{+9^6OT7zm;M^!4@aDM7nLU0pqFuqy-O${8dV
z!1~ubrGV~HQc{h>ufLSe#ev<DCLv%mSt3s~olre-@bqZvejl4u`HDp`G78KLh`IxT
zm|-YM<8&Nq-9g?CG;9Ecmgcz+y8v^dn7O#f!eS`|U}p44@QWF2jL=#*51-7ch~170
z5>_8;NlR#T$3n>S7#kfINEv;1@RYkuiA|CqU-Lt>F+qf9(A0i40hlmhc!)2^uud_@
zKJ(aKZAYCDR~tCvT00-wiyREM;#Rfbg)X{V)st%CbV4E`r6a!H-rfXHoI_12-HC)c
z&4jvp9e3mVd7tm2G^yi|az3;(yf<W<YoO1c^qmgiu1@b7sHFG&#F}r*2*Xn%i$9#$
zs1b{?KKwvpeUz2OMV_AMIv_5cJI{y5#T};s?y1-rO7>kLCe!3s2gLc)EhUbA9_$H9
zPmi*?5~=)AdgYNgK0JiXmz3r;cgt<}k7Vt5)K+4)(7=AEhupnAuIB=>DZB6ImZ&Gb
zgpob=)v7izG83(0CriDDNg&|!t2UODl=LsRP(zQ#4gRl~{wfA^aNu8=`#A9ZN6378
zy`CA~-&h_Q6B9<quv~#x{hcYv0sV=2{Q8kRe<8BOIX_k(!OCYIeXe+`q-6Sq{OQ|`
z1*~3+C-U50v`(>A)MTDN%ArT?%SGR|G|k<|$0zOd2VP(=>l+&zkqdkpasx%cUr0zz
zt)qWYNgG|YvVj%s0-UsrUMqteP9Ck#)a1UX80znJ2l6%H*=Rm?fm}BBt$+5Dj=zus
zug4^LdN~)lbF#Cu1H2EtbZKdE=5(_lDi3%Bb#-@NMovh^!5p83tP^rPM!rwtGOBK4
zjVV1j*c!p=#oU?aUft`d=-io+7*X{leVgrtHZRv(5sghvAtmw%$4A>AG_N<m=mab(
zJ}-}#AR(;lf*Jzd-Q6Tav~%Z9-tE2lZ5+Y@HdfA^Z(6O|w$EI-_Ii3qKR_;4<C4WY
z{q`H(JOyf=lQ(78ke@%2_s`?dNj9YcATLEfudEqpWpd|7G+aUeXWT1j>_|OW6Ipd0
zAt~_TL;ee%o;^5Rfl)<WNPM-Go}T_w(WOg7F*N^OfHGoTyQvsHRI0;W4DHUT#L`sE
zLy15(32K}w)}MMhFg7M*M4f`TOE)ravF3dS2CJQmFh8Fy)fp(C^P^psU%RQ@))6j~
zWsi4<j(mwq0BqlbMms$L#baT4`TBmxxrK$$+7J60`YL@?_MSZXNXc{-^*wkw1w7M1
zW38{BU5y}*yNHHAk4H!)W)&PZD?fZF!@Qb50Bf)Tbj{VBJ9na8TlMX`>EXk|a&oJE
z<|nmub(g<?|Gsp2DawT&oQOyPgK`R=s^xl4eY*y^0PIck92YudE6xfw1)1s#Bk~g$
z<J5gpojO#~&ZMFd2p)j!h4GWw4mu&%uX9$gk=mPSr>eOq-aYg4p1pm2-LEb!Zh@nx
z^?6k?#lh=CYS*q^n}*g2@)yF+&aaT##{#;+VX5O;sNlbU4+FEV<E4+%mBf#1CEY?8
z9=idIiqdYX#X+9b-q5ZH3JFQK-z9g%48C)-JB5YmkUy89)k{HIKjEHi3R_B+-rnAm
zDByMZUS7F!rEFj&my~SVmX3o9ZhvuGdaou@VKW;w+S~z~U^=^5jqFoDjQ*@~W%4H4
zULna8$eg`_nPL%al$GTGyJr@SRla>Er@>y>Bq~~#;uEVxp_jbFLT=FS{m9<|$ge<)
zYWX88t{KQTn7#P`9KIVnmP~UH{e$n_<H2%n<@}14fE++Jf=x{VT!9-P#1kyn=q)TP
z20uSt2{J^)&6{K;_+YwQ3g4Us^N3JTXt=RKl?x#NmSf;k=(@Qnphpo3k+VNf=)BiQ
z@hwEqjT;pp>6R6NM&ZM_Y?)U4f#Q-925cG<Va)NK`qoIgZyjE6S$-sj52YIXqUk@$
zJ|xLRC^yPzWOERw{^P<z0o+x0eW!3v0fEjzy?FHGg;46@GV%9&Cg8uai|pdql(T}8
zq}XbN#uT7Ke9VyLD^_U79|&sRQliStpSl0c=eVC}xA(B~GES^`hE!kK&06)(h7|mR
z3FssBVm}0%iEy|?(2!xKU+kYmow{-B*5o?J=5n%4huqWQe1X?)UELlyRF|Ni?T026
z%uClbzp~6$F#>))R<tAly_%#dcbMh+1NS((Az=%|15fbNzr6?hJ!{lMr=1r)&YRH{
zlPPC#so})rWGV9M2@o%j75JQS>B~)nRZJSCo(C{?Z-0Le#OXp$EKu%(i%A2XVXq*a
zu@x0jYwz~OsXZFrfeAB1QY2V*dygm)bW5jm49{EC=*jb?gICD%b<~pN?@@`T#=+<n
zkvI$>TwUxsyzCm;AxC57yklE^{aWCvJJ5j-hCS^`)TL-m`y+8ewr~|XU&~a_k7$BA
zqvA2@P_GV`1vw11av}6U=5IF;v4bWiwo~U3Gf7Noq%E5rSkO)wx3S?W&^+V>!D*M1
zlQbMa975_^0llOF!vaQYgG>b#KC(p(fTF>0P@$pLxEd7|)#{k@IBBPv8o5o$696+J
zn&|D|JKbYrBzXu76i(1fis4yeT|XUDc6cBlE>6%0Wg$sh!tsLK_kiRbeSQ66vW>Mk
z?~a0BRcO<|MVMn8G&c6fnL-1~t*4`N^=LU(=LJAvX>j4QJ#)qe*`#jvYHsd8(2K00
zQ%~**eCn9O{bweor^|7k5elrzTAH4oDnu7JJiEc@5Df=j3&{H~j+zgQ+9cQ|l7?!6
zlAei>1N>=MPtcPD@R(pZ6OSs1yrag(kqyFRoQ^2{2j*=*2CAN{&%7HEwmBeQ5Tq2Q
zr%#_Utz0RuI>Jo8vP0uvue7*$Q5lpulxP$jN@R!4I8Y?mcX7TOyH9`r{tBE0Pgez!
zpQ)W7lXCo-wv{X_@8I}J5XeJ7cs$Fm?#+W<ur@xwoPC4%ixOdSTPVI2_%E37fBnDz
u3xt?_bMh-v;{ORC{r4aHZ-1^~iO%!_Lu6j7ZZ|ooW3byuCuP@3|Nj6HL5F+*

literal 30546
zcmeFa2T+u0w=E1hqhkVF1q1{X#Q*}Ll9P@o0uq#*6+|Sq<V-W80umL4R!IU1k_9A(
zR-r*aKyn5J2~BERGEKwXPcz?l=G0&3o?G>wuj;?`e^$+i*xkJE^FGhsYp=ET_K}8~
z;+~xxI~f=l_9$IdxWT~it2+b3R<qx>!FPJ25@zAIZDuNp3h+DpTDeq;gWq=CyQ=TR
zz`zxN{$mUup;$059A;2bxTxhGGu7|){E$Vg@T_T*=+hk{B7MAvPx3xd@!Psh#Lw^f
zVZ4I=?PAXZPmEnI|KY+YB2-d8MERw&!9;;+;Aqx|i7ku|F8t}Y>%rk)6!seZdBlkC
z`Q+`h=lWgNKR@l6xh*7nuAh|JI5sCU_gaePx`0g^NXuGRYd0)DrW8THz{5@)*2eU&
z7%m<C_AC18^GQZw^!tS?JKP!37iX0}>_WdkzP`l-{q7gCZ*~j%;`TE?HuU@9q+iO=
z?+omG|NTb{gcN`Kb64V<H+%*L217HY<gDej6!rMH#tljhPxkWKDedWn+Rtb9b<72^
z2qc!5%c7SJu1^no+C4p{bjbPZ#pafleLQR5wx{a^)2@w#K9JMNt}`y^fNRwd*fJ1O
zJ2uzc-_O<G-~Z&85^;=RH2`0-#EToIEw0|aeQ?L*ie~((mb0_7f|r+<_s^&CQ~9bw
z_+T8Z6Bjx&GqX$-_QmXC6UtB)Ts#*kzHe2poZqe6U^^^G=5Owd6Me(s^4#Km_bw?Y
ze0g#1#LMVtsx5V3sY0Ad^2g)Az~!zQIo1_#-}JWMU_o|=`W33hIyFj?-Xty!;&7Su
zjMjHs*-NLVryY8%QucJMr=@2F1qNEwN4@!Yh9NAQf#KkbU&`3eSvJO8jW`x@?2&o6
zY(bN&tgNgM%R@|J-*f?oFKyDaCh>AGFRxighCVH>ytMXv01x;66KWxWflWR$PK`qi
zeg=yoT~QJhTNrL0gNN0YQ!i9{I(8kdO{c?#gM(uz*mTWIL7{B1$Hx93dg@1?`?0-J
zD_@;Rr@&wF^71mt&VTK)N{OxWomQ0l`NVnkXT5N?vlYDb!b7wSZR)tyR_E1o@he|m
znUuDwNfYI$Q~NO(W|`RwWotj{Su*#)Yv1l>B=23D&?P8i-{p`-FZ&eFx2Uuh2nq^P
zrt+E=y9@I2&e@5(PIa9;u+#88+88Zj(WYXtO=GQNzVk^uZ#Hmk*A*k%-jT-qwlbZZ
zToOF6)1lMYjhG@&BXv17$tGoH3c3#ZEJ@6LIcL7Uwo=|9Y4q^-Be1P1ipCRzhrV87
z4y6p&DB9TA*b-=q4qq>BC%&+ZV;@{!EF5+tP>s9IzX=+boWIi)#|4WXQdl-3NLoWT
zzx>5gZohcHvt}8kn$x1az@0MmT+~MAkjIZFlw|SpQ$4-C=J1KZ@NiFzHbk?<#>Q3}
z|3dQ|ePKC7UY{YGt<IAuqv8a~o}QkeShBYz+G-(iUDBSOo@uM=7z}L79C8IUnMQJo
zr}p_}pE|IU@&~i`VV{N&_H$`c{@>?Gt*uL*Ym}O!X2Z*m(6x9E?T-)acN>(24>fC&
zT?%RP9z93t9b7NyT#<n#5V7gVkofWVlG&H%B003h-kJcp`Gn`<SQC93fiPVlUpbw(
zvDUN^qsHSi-)uo3ALrRvu4yG1V#{5=W@kT$i;I&O4msB{Qdq<7Riz?a-eyU)w&RR^
zj>Xb)($fX(VJ(&iH>kK8`_gGvJ3BiOtCrVA@YIGLorpVGTH&~=hb5ba(x^X2>W5*&
zgu@E=HxCSO_hJb?Ut%QBWmT+B=;d2$D=64@y-WBp_cnt1$CG#AS^j%C#i~@r`wxu8
zIH^tLcbYVJbg*K5=c0#;hQoq4=5XukWwW1lSu~`)q`lL7Q$Va(94;L6_3~cKiw|`x
zpEO241nsKXO6Dc0@b8O{lzB|Gos608bZZUk?PBobP&)WN-=_08=81wr%fLX~ft?TK
zdeveiMC>>*wS@%Qv|O*;{MSoXXeVcOipA5WEL+9q#+rmZvQkn~ew1%p?Y4~fDR{oo
ztjH59N4Q-Z@dK_><+$q0HnKN5`L{>vA}xf<|Ddfe5!44(I|`#{UPd_D0<96d@^hpX
zqj>20;#x^*saLEz{BrDf>EtV&%B}aCyNkuD+n11%8F8KK9hO)VZwm3pyGka`S(;n7
z1s;A7-_}NKQIw!z)cN!0Uz5Fh?Ftuq*KJIx20gBy9_*-nDQc5uFgQwEdB|pR)fGP1
z7vIl^H;S-tH8wV`t&v;I@$KdD98cJ~&VApwDRMjyTSmFE>h0v@M4+ZtoHlrWGPVY8
zN_M<+$zpDy1rMtfHNRB*^u&pDoy>`RyZnMs<wm!;K`LQ`N_aY5I9M^b66aWVO3Bi4
z%+DpNwI;0`*EBX)Yk@cJAg^(7az2g5R!Hg-e0^#+nBU;+vpA^Z$4=p>TvM)c2hkor
zYu)yi5tp6UC?%j@Xm3oIOS>a~Eusz^9NkG>n`>Gs4&(8j{TR`ylcugUv~2y<I;;NU
z>1bsh8%72V!^Ur1e=aUAK9})uR8Yt;EEIx;>98s7G{yM@*T3AL4Q`Y-tqk~5r%Cg*
zC*qC%P!6#C{^?=PSe#dNtGawYwv-smR`W!WTmQ*958Vts%+nL<Gfpp<I%Jpn_Lt6-
z*z~y#`c%esHu)~*p_4E~WHUYVZo0%}(ron03racJ2irw1twp(lh>ie6yAOVLrtr)p
zzWHr6`}pUtEM6M}Qw6>De3cAn!<%@FM4I%<t<6?C)bin9hqIm5+iPAOl4|Wk9Bqo{
z@gkSIoi?o~8+0|L_H+(O53Z>Fm|KycRP7(84sQ4orqPp=`2Ju&zmDab)hS2@QEEI+
zUqqhNk8G0-FJBsvjx{N|cgxw$jX6E}qx*Dzr`ZN=Nu5fCT*|{NzjiN#OWHNKpuI;d
zt+=7zb21YhSa;e&C)LhvI8?m)*(uG$^z`(Mm8kR<>e4Z#q4`$zaDl9%#6i~;Z@D{P
zo?|u^u^VFJFSp;A^l{GjCaIVPy*OtX<<ddvD|Q+-CVT37CeL5s?`KY@NxHz+B*HB;
z%5^&AcIzh}%~aRgJc6s}2=?rsWop*9jEz(qgxfAJ@R<F$y_JN58Lyac>dfS>7Wl|k
zQmSSOQ%Q1lbu~Tzol3>R^CNArZOE+rcuH#|&&6+eXXxi0Kdv5k2(olYd%CV-f<_=j
zF87(@v7z^^YAU^Q>&wFqHC%4HOGX=v;Q=%^H)AjuxH{vt<r?|0k$SwMuC6YG0LVHy
zzO+?$(i=QNB4JIq^*IsG`Eir6d}mUNppeQ&G+`y$eU+4APFr2Le)0fsd{a$NzRfTM
zgV189v1)io>x?#i5E{&8`id#AeHAS&ElaKqxDSUy<dPoxu$B2*Z=BamagG@==+@~c
zp;5x7+=_=B6gYB2c;w|OsQu*XdSSvLNbvCSX8k2D4&?HsWSn<k;BzrM1N}<1-8H9D
zVj@iH1_9GRRGwnR4`i8?OC_sDN6D>2e$l@%)-l@&I}+WcW{O(q<zUv!ii(PGd*f46
zAyhI!9z})s(<o(1kjv(V8l}l0aE6vYGW+h$CainHj{7_|NBOi%xC-towt%oS;5D2O
zz|G+r8ab60%qpmyl5*|E+1H-cVO*RI4GpB>b^j}GU#G<TN&$Yz)+=$gQm{4RDeQAp
zdH?>sZF7M^@0I+*VqsrOFalx-n0U;MzM*zzWo5bltUWPY$+Ld1XA!n&_%5NMn;$%w
zuDn?yLsmCN0h2U*N;A3YKC|3&d&|kr>~M5oA$r0CWHWZYei;{UmfxkQThHazcYWVW
za&Enl!(?V*)I1(tj+#7e{(VEPMg7q7aJcYf#H#XQWhO<^1)lE}c;YCrIE=-*Ri|mE
zCu*F0T_Z~NX!7#(>Ay!+;0w!6D;L_HXUp%A@hiiJ-*Q-*ShEDeWf%24yL*&Q#J1T)
z1KbcVKen*gi&gL4SnVVXBu>{w3bc;Zg!2rJjiim3Z1G&|woI9xfpeLQ%O0wy@$#;~
zhKqv*mg|l8oJh6m-LEE*FttRg?;ThyaP|$CUtfMarg`!}#8zgRceh`xFX1+p-dUGY
zXG)*Kp0WI(@@Q_w+p$C6@(r2Rp6#38R4|g!^n1eNYq3(Ic1s9#lE%l!muTveBhTK`
zB*$Vj2ZSYdbBfts9iW7{y(X`8H~AL4j!O!Y;`g!dd2hv1e5mwL^wJn%HJvaqS8nPx
zoi8Y)6f5Ci_OqH3JKs~Gaq`%Sn0vqXEIy52yB+WHtTaxb+cKE?!KKq!{Kv{6$InMd
z-ZLeWSx1^u^l+EX_rdr1Dt*7i$(A;)Xxa3>?eG>Shf}BW)N@^@d*sHb=!W>F@ergf
zdp|NYYt+)Hkn1C+3wnj@ysFtP=OqWd<>F)920RRHZ6do)XqofG9?R!UOn|6#d;9@x
zgQ7uS_l0&{{OMKz5#^n(?c)LMYcV}#1AxOTni8Ig>4wUQJR45W%onOR7K@bX0L=Si
z?<~`Gc;KG*`o4aBM`UzK(6~yNMOmvBLV3%gE`(*)xoCNu@9G*l7IK4bHrvV&NNH(r
zZ^u$0U1TMiwgeLxGEE7-pXWU0n-x_iJmLQV+MPEuA^iA|W8DUdn_S^>q{Mmh+qL%f
z^^F~TO_Y+7Qm$U+Y|K5aYdTD^mz$ZHXirZ!sXtDndBD!&o((3C4o|NGBAzJpagdKb
zbL;o`={o(U$eBDyMOjzRc)<ZlnOphJjFZTCDMk|bRzCXDMmg%^1@qTBo9oMLzHR61
zu7|(Zdd2`Ajknv*IjiHi;R~OhYzLrpd*7h5iwocW<JaE0e~>;nGL!W5wJRg})5BdV
zQOyu)WWL#i!M1x(yA{CIVH0gVUuo^D#?omxQx=fex4Duz^mE{X&cWwff&NFV?d`)L
z^@#C`4Ln>%pt*Lg9xog&YSW>hP!&(>jwg;cCk=nQ&m0!ml5kM0cx5!YmBfDTj#m2A
z#p30mU=^XJnTF(q6Jn6>``-=BJvR?iN+B#{V)v|MHOQ}hXKp2tT2t^wzQv+|e2)(R
zHdj=r638yw2Rr%T&obY&VV;y$)8$WWo?Q2xod9<_40w#a2}dCI2mx2@$r--%(kAN^
zyW3J$=}Zu8uB?gt`O)l+)$F9y)YL&SVkK7yr??Q4^wc}wUNS@h(mWKGbrk~MSpI&?
z;2It8*64xrKUSt7eUO|@hXt5*BaS&xh-@i7u5E9xQ$8OJ-(4h}(NT~iT2Q=1*nl0A
zC|qnLRI$F0of1yJ6FtRZ{$iXkx8eFwuyEM*q$>;3gQKIP%XPXHH}1S?zg`RJ)5xvg
zg)|Q_mP;DquwV8{PiIAxn*8jCtvQ|x6TZE=X*~9sO{oxP3Nt*IFN;#EI`r`O_5Zf1
zE8{m-;!|4Tb98H+h{HeaIh<xg&NT)G2A+ubKHHIHY}it<{0;YZ*h0rZ(ggrx6-29e
zIqn&@ME$%wZ(7+*+;2@4kHtBRMCw)#5rem{IcnOX1UqlKMl{`>p4?#9_3p?Fq^=@>
z+rx0*A+fGKrwj}Ylis{}^J5I&s$zOB#^D~+Ei=xmD9Tb@h{Mx+oR7Xy?)H`$7_z{%
zYwOxAyeij|q<KINzLpX$F%-y%z1Gpuq4U#SLi|X&bA12#3NwY>2Y)Q2<mZdV3XN4?
zxStRCQDUJ@vz5UL-W6gQ=W%?!b7R$XYXzi}>W;2aF(2;TKcJjbO)-Tmp$GV~dtp8$
zg1Tf%o6sfAL%!GTpyJOBtZ3Lx!&)B@?i?BpU7v!2i!Xe8N$Tx4tKU0TV_wSncy`YT
z=}gMyh<1$Jj8c6QmJc<z<f?pZs4tgG+jY`Bgfup&$HrP}HYhwB7z}6A7Vmn)fqfVZ
z&+>=uEn_@T0lE)T2iPzeVZxfD=cRCjVXDJ<Os8AwZ_Mc9h?bX`mQFv0@=F-4qyzvL
zb4ctt04bJ-*a!zr*M``jqWdWWw>yjgS0%H2S?9U4Pmeu<1b^D64Dv6)xuF#krv_1n
z^_4N^)v(3;cBUE2cl2uxIbB<o#+E!$rSwk+<8gBF>M0wu0rI<7Xxk?z(zC-LbqM=z
zPzO^s+@^ABbk>evzpvf+LUqrcjXCk`p_}PFY0Z|3;oPx{rQd&PA|?!6u)M=WgvG;m
zNFrzmn5=$a2_ktHN3Rj3dyv-ct)HQnlla5m?~-;Z%`4&<pYFS7hP_pf_SajBAI$Gj
z)V&mO3{{|FJ~ChR3!>4Ud#&`e<=s3pZut@v`Eou5*;?{_2JxCu@2Kc6uo84LVPhN6
zH?{<d*0&wDk<XOTrm^beiHf_;iSr@FkQ11S?*Z;gv1C+xdH$5obY|heOEtFmZU;!Q
zy5%#Ddz=@|@~=gU3F-ifM|4cgy-z#%5_%yc4?`??loT!}b^O}%y>MPOiiwlr%t!b|
zk9`2-I3&FBQ@GH2ug1v($`uT5E-nZxAvOqro3pDc!U?Ob{r$1)2XF~l)i3ZqR@T=1
z#ToLvP<k&bG_1BBzwfh=sgD(1oiZF;?Qr&NPt(2>*OZ=J@lp-%q))lY5`Sc^P9Xc4
zu?>_?nfVQorD0CRMyrzhMb^@f1&tZ*h+gV%XtE}&P{>-R=vZd7-UaG)3xaC^m+RG(
z;HDpBRX*6QYcU+Q1oj<1W;U7iABCd7b3+AmCige@fP{pEBWiLhKjtYBd@8)WLl99^
z2~()t@Tn*+mMr(qcRw_MN?6kTcKPLxX&o^vnVFdmb*ECQ$~@*0OG~8@3N0M)wDE?>
z8V*=HFi@}D)5Uwak|zweK86$Wm>&H|OwM^6Ku5Yz5b*kV|9GNUZCBXOS|24C3`OD<
zx%lwk6ZY0tbFy8DIF_@qPGzS0*l-0g5hHa?^nWS_2L^@%g`>?$$miBdYN{CKB415G
zfCHd|`{_Yd-J@D9f`xq%GbePjjMx!mkb(bgt;j;hy=PR6Cpkq}DdO1!&Gz4}1eni_
zXwU537s=FTogbbR)qtP8@ZBUwRri<6wlYr%@{!{KM;Dx|U(Y`R6cAu0QDeZs5OR9U
zz%70zcWmi&0o>lZn-^Dc#Nm$13f@1C@;nL*tvtI%3CD#1m|_~+ixK5Ya(-=n_imuE
zYd0UtkIOS|1WtrMyYnnln&NTmD}0u;5y#?)k>xMvns%4^BL<Q*&u$rmS?Y6A_ny7a
z6VmV6D+n1lDIwuju&{%0`FzW}L2-P2WJu*w=^!oZNB!Mmd7`*YYBE4{BEDk&%{(PJ
z`k9NHTg`i`R)3fMxt=<qa#Z-i(y_i1sVV+4@v69@pp$z-1uWK<DU`f;+UZ8A$&A1*
z_oLY;y2QB;J@Pfx&9pPOv2z-E(1pn%x<5B`8h`Bg11_|Ft-hbk63=e31D#S8A-q8G
zge9rvjYWBu#>r>9w`+JG$6@)KnH49-+OCrJ8`>B%b>0j|(NO=FvP$RW?*S>T@~h3^
zyhFH|laP`LveluSx-Av%eFNKhyw5}l8NZBUae{!MJF+{}vsBs<C<P<u=F1N7t(1)=
zU}Es^C0ECjT1jNzrP4~@rlIIjV^7kXt#LW;9Y^XS&SCwNmhC%<E+OZEY2atKT!r(b
z(+Am)<bGdWhN6HzET11+1qnlt$z6O<t}Y+aWCX=4-C-NHs`}>l0Qt3B2s&bNC{vC1
znWXN1C`r$^vkkSI0Z?b9KOKbsxJ((Y=iYM5=B1R2wUiHFq^O0LL-G%FeivM7ZolE}
zeSIz9+q$i9Qtlts3Rzn6haSai8YZbf^YYFY?XY+g=|smsN4{|-1Kg7Y(vN3-Hei`X
z#_=rmyO}D?%f-z=N%mym?f97dhR126qBA}-5Ye;sjDg`L&EFK-{v`sal$6$J(?8dn
z!+p=kR*Xa$DmVVg9yFAvQ&+6u*%%{P=}9o#<l%sEdv9ibPv-_yw1A&pTYAJgw<uBA
za1=H~dhcRAeYIvW`kbX&A4Kf@(=JtM&hfJ2ukN>ye%-~oo5U<j6mOFH`T1y4aj}P<
z=)wtnJ+WQaG<F?x80uE2^@s3;HH-M{)J-5GJyUel#Qpn2-`-<N`|u{7R;$a187EG@
zeW0l>D;itzvrb^UkqMNhltLV}kR>xAiaKt6O73_OlzsI(c`O@VMyjd5IBW4Cnxvh^
z6IRufYQ69%;gG3asEfWJjSGb<M+jG^;4*-7eId7=4t0lfNg>6V6Da6snre>%11GZy
zaupjia!M0RJWayLYbr-k3JC6v60^C?WW)-hbCO%JoMB3k^Ie~dPYD+%I8zWAymI3w
zaBcF4FgwzzBa>~DU0yI)0GwU+U3Z6Xe{4_2lL_mqlOjO3<YHeIc(43iM%8>!dka1r
zN1G&d-+%=$U;A-FUa2Xn$7iX3xJG{6p~tm4gq?*TQ_8JX(p0h1fDPMZDB>{E&s4&L
zoBX7K7V<YzDRwM2g0e?ih_Lo^ej`k3;%yNeNiRFo&C>{6@|0V};M%CTIc11Q8deA9
z)}q19MtbzQc}u!F5cm7zSKCsQ?c=mhD@7o%CBS{4-I2#w5Rn7do}W45BjYss#kWQ%
zPTI}B_W3%I@fHpp)}b-2{M9Oru<U}4lGBQO^z(XgpZ_!z_1AdKg5wt^JC}OaE#;~D
z+0&&ZCEL8S5tn5}U6~tO>Yf3TL#;QIOIl1n_qLM$oIE<7or3U(4~t3>#{iW&t-h3B
zr-WOSCyN82P4WinKm3?mpMxUoh3sR%Si{SdpqkRjG>AN{_wH~vP&usyNmoKAT=eB3
ze)H8ALULMx`sU?n<C6Ec^&zDmZ<62ecC6eZe(Xf7^Nm$sqJ726XoQFHy^p`vLaiPF
z$sXh=RJ5qeE@(M6N{-E!*rSMRf*W(}978Yh_xFE4UF0wvfm^}jlu+ma{`iPp;jK#l
z+lXET>i8J~1CIi4!x<OC{<^yv6cT0M&J%I&iJh*%&$#y7`T3)^Txd+0(-s#8m0!<#
zj8h}~J0H1t;gx=ADJf4o-5JlU+wrOq$6m;Kxk_aNzr(alwY5itnkfOc&qYFo@JI%J
zsOKo}3P~N;V^a#;c>8lKg<MXugm|Ei3gh?W`T6-{P$H0@o@<mydfk74mJ=hV(?FxT
zRm{akcp^0X1Nc@|svRJWpMaoK>hI3Q|DK?sBkPmeAt$9&H|Se$Cw_2lv_T+sZW@d8
za)i%5G1-x+5^;N2?k+^|+7t3CwGpnG$=66uFLcs*bZiU{DHBv9CgAjOn`(O*N0r+0
z`_Mzz;cuCKP~fT?dW%R*y{lZc-2hr1+w2SCghjb-vFYK?Y}5D<4pHmiC9Au4uY#KO
z6snfnuvCU+_OE{_yT9@R)PwlBHBiMw##a_tqZa1ppFJ?%O7ou3j8|TS!@)>6$#i_L
z`*=b?1iba)hFtq@cU{;XsN(X;mUJ4Or^`GZy}biEKP^goa#?4OD~+t$MjWe!c&F7N
zmnxoJzG$%81I50(MmE>g;>i)fldiR758yKwdjJqzc{66X=4I-;GNNQ|ZmvJq3%hRn
zZXIi`S=OBof4qLG#_z>$>_BAU3lD%|*alGud)z@S6e<}{ytqJkwEx6$0iBF-C*Ss|
zfc7rd0FGImboJc}%lt}dr9uJwW|>A)2<Cze4AxD1_pqF??<<<WawB?PJZ=U~RT(k%
zt2~?nt@p`L)e%F*2a1RrY(TEf%!GklI8Gv^j(aibg1`iao$%<Xx?FL_;&63nFue7g
z8gRFAz1QO9WDy4#LAe@`n3E&oyHamjy-p>|-|R(^h=K}L7M^V9x@V^-P(4<Iu2}Ee
z0JRn;kZ);sxuPLH^Q?XiFawPNgK>c1AG!N_ZZT9;5fpb+q=*2QY#P~<n{mTOjMr?a
z>XC?D&-=hYcZh=9T=cyup?(#s?b%GFQ3-Sc5Vnuf>M~^7P~2(?t|!qLfU32<6UuGF
z;)E4dAdL$KT@eo?0|A26HGNbY1k(78wK0e9580Ty7FQ>;!;#WR8ips%i1ibFj6|F$
zfJ!xc#QQWlByxciu||RvQoxEcJakKV!d}zU!}mi-mx)T}Kp3sfL^E^OTQ+n&y+;I0
zm3Yv(As5nsC1ydfv$aN%%SDT5BLxij5WvbuJhX8|#P?P2SC<hPB6Czg9a@cBtHD)4
z9^o$RcQxz-?w<mzYt=5{vb}#PRA}cT{@ww!#LJqkAB>mnuwI5TkSHl_n(D-bPE#Hz
zxv-~A$|O264cW|V!a_k0IL9P4{t7BSxvyjyp!j$Y7l`;Sqyh*dfzf?s1aA(&OvGiP
zO=9A05+a|2VXx_U=Dc?8x)re81X>$<(J%rBYd`UX5Coi1!nzBL3X-iH{=EE1^dDY;
z&qo5P00^1^Pq)?AiYE*qPw^cwKoRxbtK75I|2#^LUt*=jxtd%cN#)pf=fY3nO4G4q
z)lO@=qF@9k0MVOQ6sndgmdcBOdD-s00i=GAKvrO2=%lOWRij-gv91QTuuu*l*})6p
z%2xDBUG0oqyDj*p)AH@KoT8)8TiqxFCD;Ke1W<Qz0PYB65zwhZ^^OFTv_oZcjVd*w
z4Sz!AP&AR2J_NjXxJ_2^aioK)%dOlF;g*#OgFyEjs_ht$(HA1OK0S!w^kNB*lsa_u
z79_cp7)Rw8K(8X$fwCf?i-rfh$f3Z?*8q`Z4#&U&sJ0rU6@-<_9*mp`I7)I#Gw=am
zuiI{fA4#juVP#;*k5q{`(r3Ws_r)FHHCHejopvEY0hpAZpFg-rfGs}+C^S4URGfOM
z;>oc~ZeK)dUgHj++(-Pg;dBWIyR8Dcjqt3OaU0}~_M$|)0AG;p7i#wIVQ{h6bnocy
zW=GL;yDhHyGTUW^DxuP;eW*Y(Y47P;1crUNmq6>Cry!M;LuV^kBz(4*_({1T^f4@m
zuoV#C{g%A}+@2@7LCFDo0FdtAT8#MlA?g2!P#FU0(N4kkP{(&4vX^OSI@l^ci!lm+
z5c`H|SXf@Y9J9+tJ`3&T1(0~<D38<?s;V8TwsWW)3W7?-f)a}LJ{omee;**|Aa6My
zAS=3ziybY##LLSw$t{0dCTuKiBxe^x_BMwSGoPQGf#H>qgy^oDoM+&f$dRWil;CKi
zvu2peJJA5(n{8v3c|*gMinfr$$6wjBa(Kb=VR!$W`z_9&Kc1>z5yEpWHYIc3Yxgp~
z;9}%h%jW<>^uaB^z$b6<&fCJ^KaHfT7|7prrJk;pookZWk0?X9L?j1PGD)8flU?ju
z2Ik@rkaCwY>%oNZmJ|FXT{~G%>uF5xOG^W42oZMZ@LC)1q`h52kES=#2mnZCFn9|X
z7;esneEc7Dru=v2mUgYlExE}_Nk>7(wK1*^1Ra?hgHei500JR2{Z<hmLbUODd3Qei
z9pGw3HH(PRo;`bzl#Rgvip~MF!l7GrPgGR&GNcOy1(5BK5EUw5Rs@L`7&bm$-jb4%
zLpE)HL`6lR7!erQ*w_f-jA&NicSzD&=f%X}(5@~_CTW~(E8_J}2m1pDhgjTP8;Czj
z5$Ibst!}M>fi9CB?eF&Se{^eI)m-a8A5Yh%LIpVV!8p)D{^dU3H?G&-a%7dxJD}Je
z#n)d>(0FG%apBUXOXo%H`b6Q%3{zZQrKX-TPFcLQkl-%OvaKUvX!?C#UaM5*R#4hW
zQZ6A{Jm}M0dRkkLzR%tY6%Suc`IdpH-ueFXO8cn&QjhCLlov}otQJMZ#H8dVYLcJ2
z`+tI?g?{~?ScU$(2l9X5Hu|6Y2<tQ##>j}KvEkH|xFA%(BOegd_&3griV`8avnz6Y
z+%6;gkb~jb8Q^!Io750-*+1I|E+JMSBR~zp`nku@VI8E+xDCgzlj6;Q>dd(4f?moH
zsVmM%h7G?LL0tCjhwfc~jnCBF*LMh%Sj5)=ZMCtlNoMXEI&&0ol$?MKM?W}FvKN%F
z-(SkeYYc*`l7qm2ziVan$ViAyRaG?yc{x~gjWDnmDUi8qf`u#eCU4NKUHpmmTL#wO
z7Zg+jan6Ck0Ln~vfP{puCr9;{GKgNJ7p1_U7>1_P-|#jBeo&#fQbZLHUL2i9PO2bo
zE$7Ko^A5^-I%n3?ePM3{OLn;<0FSI8yh;%uvtlqglUb$Jx)nboC4ld)e^~=8d~}7Y
zQvi>zI}nxJk^F^1wk1}^Liqi!I{z4o-YX_1W&m3-;X6*K<DJ^%B>;X>{e6A5u^oRT
zCvQj|v$3)|)oov!3<$)z1OonTuBWO*>Oet3fgC~jF&B~A17C9J{4OdXmnICi-eJWx
z+y5R{xx%D@SA4nRUGakg6(g&<Jk1%A#86+K{Wb|ev<DC!X`vXR(@~%r<Ad7tvA>ip
z)CAn60TH<GY}*U?ff0uvO`)GZ>Hcu)uAN<`%MPusx7U-bjkmCjJ}<1Wtshhc-3~~_
zwvvz_Al_9oRo>ENiKzlu(dO=MeWG<i90Wu7Q@&8r5Q-d7?|03yH|D06VpmY2@AIB(
zz~tl%mw{u74mo_mKU76q8svex@YKqrG(4jVvPgXO1~{4J!akpbpe2~5BKz0D;qVBM
zH^gp#8_4)U2qI-z?Qvn7Wwo)jr4v<m8eXy>No5F1^G8S}1~qYMfm%YKmJ))GDS7(L
zAk$L+`ma`R#b_g`8YinjI<q#~Q>nd%Pw}Kqk_*z7TkxK%@I?m1iSlRf!5}1N+odra
zbTA8!!2IbZh+QQzdAAH(dwO2RJt_yKT`rsHs5A;1={EssSqAz`eFZa)2~#Oj3kh2z
zxS&`^+ZOg0$m}-8YO2fYQG4#!Ms{SIni7@YK7cyuNya@1T}r#lhf<Wf5D=_@G+2ey
zjNR_?vwtwpuk?W_#{0>@mt^MVKor&}&xIfU{t*Hf90#ipHnAP?adF&}@0pOJhB4d4
zfF~%Rk_31j1ZobQOMC~I^PAh-^NH{7-Bvd=H1wP*y;Zr55zBS5Lc!CJc6!0%>7M(f
z`1PwYKlzkyJn?C~=ReSUXXe{?;VE=*E|hm4-!gDasl~x#2_!`hUBCqp3fNsRv+Gbc
z1|i=7fKv@e$=}`F++;S^<|re=I7w6>9E1>$3}&Jk2he+7IZl}E9)N9v>@7$e_bIT#
zV#Dd|g(|Y*F)-w232hkwQ;r;RRw4F&7`%XCZ&dKrkR;53PY#3~Es(4h%YmeBWqVip
zDSqtY^3=UzL=cP06-h)T8{p|D_nmed@!+PHvzPZ@Y6JbB3(Ws-%&7mqivLk>@4uHb
zEw$s<+p2)>011|KScIGem6(?o9JgjrD2itJD_dJz=c-M9NVYrA3m#}9#3bV6dq8m@
zvD)bEiPR`l19grI3Rlq#f91P(m*eM7LanzSu-!Wj{si~fFsRM_BQ;JDC!PC>97Ho7
zD0k0$ysRH7=r$h^A8=3V;M4H`INt>R9)6wQ`2a8K+>Qr>iT|1bBl$4P&WE=IXFc1x
zx(?ETE5x5o;2Ps%U<ntAT-m&0GnE;wQ;;UE5uT0CtssKK;qq=>O-;>OsfJA`3WfkR
zd37&O&qMMZe>8NaewCwwOS|R5SITvtyC9+%2^Fg1!X1pBqc|D1OR++E+9_ybRzh#f
zz{LrOv%u>@X2iS!h)>&V4CQBL{jKNl^IP&5=T^#G47R^~`Le~YFeRl1)(503gn}>_
z@H2wP={m|UklOEB_qgj70Hg+&QwF*~FE208<E}`>b8%@$KzOPv$Ld3GbMyCIZd?b&
z?TuC~JVA#2ohqf_t=(GS`DL=`4Cl61c`mjv?}xu9@KR%dD&D=4U;W>E*#EuH{~b2|
zMePy)mu@Z5_7Xp3ePA9=Lyg0Y91<X44ndEAW*JEp8w9XbK3P4Uo9x+HYHbXJ0>Grp
z?Uz54f}poNt|(tZ+}J>BEXY_@fBw453{gPHv<IMn4?i#qKn|3Z{N@fiI&!{+$*qoe
z0aalR5wQ8|*S!!Ja*#bAXnW*mUI!PjY$LFb26#F<pn-7_*+zElwPRy5^>zR!BOfvb
zgocKKi#8EL5JE?$t1Wm?(h;%gEoVAxy;&V40l50(5YVU?4D^zKc_6vE9bF8AR<#%g
zanJP1!#{HKdyVitIof>dX03AtkmG+8O+~c^I4JGS7N@#_!39qTe&HoDR0~T^7Ip#l
zH*0yV#FC!P4Z`jGAjF}zA`YnJS3?5t+S<NXo4jzTa$`*}J2kZy0wP>F$yr53rB>>A
z^vjp)V~;bS{P`i$-PYF^qZZB~$`7&Fnx0F@Tu_u9Q@T-U{r1676G{rGAhJ!bDN9le
z&vM!E?A95Y6BwMdA&o%Xe*0O@Qetp&Vzu`Y2#~nt09+tqzZ_bWPDFBjX^a*ZhSmir
z3}ne3>Qc$VZybwbxYT1oH-P%=8a%36HmzK^Mx}##mcVDIe7cy6HDq$bL+whhbME_2
zfgR@lPH`v=J-#pgwiH!ZW)aQv@}A+keTg7$^mgsd)s*2+PqJ@NW4<3c*FG)&>6j8)
zF$(B`Qs^mxFV8+xWed<zb=tbdEZG&S)|vIMc*f#!zGY*w<Wr?Ict+sS)rGoeGToGB
zT?Vd$w=V1qwwGPlL3P+SxLhqh1k8Il@|dz!%sz~$Z`|(KAleBv130C4fJRGGc;Pav
ziuKe~u$3|QY<MXOS^In4h@%K}sRRZ>HhhG*6~w)`zeW8*;J<u}(hsQLo-6%eZcNO}
z%R|%;<SmjZ4fGWr*q?~Nv9_^MX-YHz&wIRXKznJ0zpVKWc=s$VxiJHhV6<@xVxBjv
zA8-w#>Ic4GK+ov5Nfm_9%{0~jJ?2*<H%4;uy(J{)B2OkdD@>ldgF$Luq8C4AmHvAw
z1@p2%SKBr&^s&BTXqr!HA5=UCOt0vlJdn{UrBN0;I_H7D!<=_37PuXi+l3=86F1hM
zU=3&D7t&Df4YgY;B^9i0CuXo;+i-5L`mCEebz7oxvaQ`%Kd7=F6!()rh@Lf9rPmHF
z>GqA^Kt0PUnMf-_7Ge--1BG!b^`GbsX0Ni^iR@*>?=!IcJa|*z;(PSovA13>VE+M1
z;vk~n6%^<qil&<6o2CM&b02}F!p<fVHP<m{h(ZO$suJ;fknwH*_$C{{2H!%eo5Ng#
zcxTCO^fJH9G@-vzco*xxq=W7M(h&Xs@wKo{BSx=-?KRNQzL*cSO?2TlXg~+B1AnR$
z42_oX>umZEBNo_JBppDM9rUFVV<erF<KjUhkMUXT=G#EMWQb21LJH5D`psQp$ikC&
z3wkqh?tTBH2kjDN;JO#`m;nZ=m$xsJZhb0SDkq0R6M-^*vsy3Y=bjyKtQREBqh^tx
zeehaN3<i9|79j6dfq#7H@g*j(FTi*B?4b?p@9z^rJv9TQjXbxp>#ol%)<4Ae78W{-
zD;?gu^_R~_p2$``xbXFG(ZlB<%?}uz{qCRKdU8DEo<Hrx(5+t-e$l#j@z?N^*Q0*>
zeD>ApeXOdVMtARIyuR(Xy<57aV+Ur);n%Vrkxs{E^%f5H#y81pt?FpY&ubQzO!Sg{
zCXLAk<b3eWo&{2O7_ouC9c<msblSfHgF&q~9V7H*)XMm>bpQ+>sYOOWKO2E!R%i}-
zIpsx@_wlr}^>sUNG&K$VMBOGXlJs}52+a8vf&;WZdjq%%xNl_bn)E5JsHiAf0}VrP
z(vki;ew|T9GKi)|Mkas-99F<9>!YB6T!53ArY8>s)x*_%DLI5*>lYO1@j)6yh@qcr
zD|5m1AVf7C<u$__yXs?UVCqRJ@&<Lw!k7uY_yVy`=9?@CcER<a=$oMiLv-Y8;OQf)
zfB3}2#6pLubgnq>5Hha+^FAjUvRh<ZlU0KgE(KJB1$vm25+8;+dgXwrG?*2{^){gC
zAtX@LiPHF7<mi9g!%=sr;D(`rC<NTj{kV<e+S-)X_;u&|D{hw1C<xL#xZ6;B+NA6~
zI-TvOTJQY}w(8~fOj*R|Kv%?N$OlspnT-7l7Zw&M(SvKpd3ohP{)tMYb31-P+7W)@
zyu9Fznf+cVUflS{c5b~iEHk=W4a(X0MEchC8+fwv+W@ddXTVqv_#`n{h`(D5y@r8i
z3`>pLlb}|_<c!>!?y#kA-LHc$Hs5>rx)1L+V`<OA<mBWpn-Jx7(i9^Zh_c{%WXY=6
zqm$GZ3_Q<or$^w2zuzj)&h*hUP^g+~lIPLZHn#i>E)YtGA(ja3T{>$$KrRhD-F(!m
zk=(zQA={pV=ff=2S<&A!2>qfR|NQG*_2#`f$A9w$-=G;_j1eJvcky9%S&olX@JM0L
zT&_f^0Db@lLjg~nf?Pb=u@}-GkhLPWKR@oe6K&^tgC6=X5ZZ=Majahlug11A;3{$I
zuJncaaD4vcx9K`?wZ|+7(HCs|cUYA$>6z#M{BykfXAb&;_2XeF^I;u_ptmImsq=B(
zKWkAll(_q0LtUiS-H4=PO^xfy`(_(KLX!hF5h=?iLH+c#-OKlzJ6_0`1Ihc50=ldO
z*AI-_s~EQ*+Uw%tqK`wAEQ6mfoE5qq-M<ugWiKS5i-21tgFxRY7YO*3OC87oz>3Ef
zkFb6hLT|e8=r%X{iG(5<Xg|tu+q}DtTA6QLa^CI^lJQNJ<zDE84D0G}gD55$nN)at
zbd*A0G6Tc64S0JTG?)-az!@Pvxp}p-xU<aesEM!$9PzMuK)eeB)2F~BmcCRM6tpbM
zD}h>+r3>BQMQ24o3T;}ttSAS@{F+x6@52_gbEHDQjmYF?&p7`LxP-qNK#91*_wTFN
z2+Ksl0cak%ZM+X%&xOl%-a+&y$Ka_rdej{m^)uWycN-gA6l$CM=bx`Nqqi_T{zuz+
z;$O|=kNzU|j`7b0WW>Uwg5p1?y%!o*<s09<oNDjvR0K|<xPDv{=yL@HEp2V$<0F^q
zjP~fKrKUEw?$p%PWdmS5B6NSZD43G{7`N6LZ)3Lx`WtjrNBl+R%yPM)K(x#1^preC
z=2jf>AMSvdQ#_D<=Ki)l6NR$IUNa3Nj<iL~cTiox-?EN3Qcm5Up#EI(K0X!$XgYI1
z44yTzQ@qd5w_8~Bk^N=|1T7dd9P!O58Ra{mT^YCwqfzVe)Xj~J!JsxR(9bNg0^`!s
z()hRefo_KE|7Ueu8WLdjHs=B;sB7!$Dgtm+P=JqKDc52I;wT8`ZDnUS-Av^2xdf-a
zt*s6EF90ceooC>+fO9k=^hX285iWa7Z$SyLYNrl1J9v5vlU|xjSSz@Ak^zA{IW_g=
zM~tR%`GSZYJjdrE=3*Y2Eg*Cwl^=917D7Rj9QD|_#A_0{2`;!tSqAxOeIs8lX~X*Z
z73Sq>sta6z-7fNNdVKtA>rM?_-9nQO=_!%7rt>un4Wpy;c51*&ce_LRL!EBWPtZ8&
zw!`*{jZOOCQI<Ok6YaEu6dSTRZ{pzk?jJ1ZqPk79kKBmR=I(gf-1B04nbTNff8qiN
zW(Sc~p$~E}@)jds$=9UU^ppIGaH{uGhd&b+2fZa4*?Ezr9>j6)Po~TCy<L)E%Lw7P
zSPu1OfNl>qB`yLqYt-v+rjr|W9J5yxknThri3bbdhyeZI9~QA-cJGXJTY~Ne0dqe3
zzO*{!^`Ue|GqGV)YJN9T$32@RO`btL|7UgR$oFv+J<q@sFnr$#;dK~FiExBrmls^{
z^y}$*4;goLb@i@|&E%phlE9CKN$~zN;dH0meVdjRlno{r3bfH&(bn$Xgf3UF!0Ew(
zE&Gb1V$JbR7;TUPXSq5MbJPsl1jB$P%c!Sc<y&`Hy7=|^l)Qn>%Qil9f_`lm{&}3>
zNcx9Dk2!LZVla@Dp#1fmG^7VMt=AD@-;9yh01Vp5Jb48kF{mR7APA#_1vXlGLn`W3
zeYW`nv@#-oEklkQBvby=Tb`HaRNfg6@N9W)Or8gIR3YEXX>ITwz%Q2cW18pt0Ma8<
z=0b%S7-tYM2SqRHu^dLtJD?fC77kVSnb3r^P^<2ndtikAUai-#gfJ(82<AECwWS>=
zV)jC-sas-ds#W;{l$*oy>%;OxUV~H<1%*Q(pow_={Bcmm{ayzj{RzO^Q|=al;{#0$
z;N^w(Nml4M?BDj?UIE>tH&{pn!v<ha2O{IV{$DUK2Z9xDA>EV(53L?QKaV&@8*Q|x
z2nz}|y%ZJr=i`H81VALH9>P8KPUj$`%91`Xs6Z}It(W-*Csj~rY;L82O=Dqc9~{hF
zA$rh$WoE%WI|I;&I0DDc&XvZe5_JHNdNck8y4=8tM;t-6r)Xnb|Mv9EQn0DPujnX`
z4^-6LSL6+?P(-k><Tbk>Y=TZg>EC{OKQgvLx)omcnrKU<BryA&MBV1}K1`%!Beb1-
z?ZrN@sN8iZN50?1F7xn=zmT(D`<pJ3IOuEcV7dxw6_#24b|39fduJNzDXf6g75NW5
z6A9@xFc1(Y>c&9U*yCz3Ma>HXa8Rl*G0Pr6hgC}#f6RuS7~bmfscJJr<Gee<2gD$j
zoSPs2MBp4;H3y}f?@ocosJX38tL`sI)a+@|Wef2ho!QZ@U(p(T)=)~mi@soZHLra3
zPd8}9AdWC@-FCZxo>LicDB*XSc!5KLBN4SsfElkL3kSp$YbOqDS$ThZ4ya|EI09$Z
zB5x9HU*ZVJwtoko<se@N)guv2taKf4i>VRBh|<4*gdDW<5JxWF-v*D;uAn=)XbqO#
z@^ARnxXhh0=w_0?(m&={EL2Fphnuai!vdJN42(?5Js0kDVr^^$gqXQyB>uj+K5pkR
zG6K))`kl^=deikAM!wK~g#X(vSqeNFc2dX`{PNMp8{i-m62d{Z%ICiWZ7>AB&CU)F
zq?cDnECf;BIExCcxM%E(zWWCTzD-Sigr4c&elQjeMjv!C6LC103KD|qePqF|0nHVI
zY+k721i6e*hg0yRF$k0*_r87jPkRTbtsykxMA(O<g25oW7c!8Em8`=dVFhD??I~sY
z@qDZIBK({2<REnL55ph>J*?UQ&bbPsNC%?O40b2Aj{c-!+pvEu?EtZT2vBJ#=*+0;
zeF!Xks2K%Vk6^Gxy^+urroXyhx5dvb6XNbcNypnEha_{wE4a{KTp(!Vp4vo(Ck6kK
zIsX|a{{cJxL2>_=xa8k2pl6t4|H5@h6LMqJhn$rIb1(p(v(dZkAwHq%3S6pULf|lQ
z#M8s+<Kmzl?qgs;gf{W!ZKmX@sneG>oh)y3MHsQrtpwK0>IXaa(=#Vjzo&$Xe?&Oq
z>BmsxEX)4cFfc5m7MHapPHfrrYHRuyQf|7`LH}akUv8tT{}_67o#otiY!q;a!pH!I
z&yIx#w8@4A6$R+DS$F&T>Y_!K|7k#RlUBd#QMp6W0RvR3p}nv~XzBp)3SI>E^dq|_
z7o9)&F`{neYU|IxLxm$G{uf%+Q(ejMvTYRy^jakL_6)opu+xlc=X`ucwsegp9L^mA
zM|J_&dJ*Ha^Wi5QtiZSFPpHAGyu7@=6NWc54|9^>ge;?`QSRycEu7M>Q=a0MwCiB9
zIi&p@(5HAW%N2D2b*Q`w3Ai|L?C3#JQCxp>zdth%H=L$kI9ar#M}0Kq;@!%1Z>6QD
zFPulnEiIiWb7~X2?b3|Uc5UhCC}{8X9K(NXd80B6e$$g~?6%clmK{^r$xuEXWoZ8h
zjZf*bc((&}FnUj!^9Z;BCdjz-q4yzb!$`_T_!5e;)+CxRG!7{Cwo0=KoAe3G^BQVv
zv)tbfy~Tlmxb+Hb^<M}irofe$fBOKud~;6^2Y9<rI$fUEf=o*pc0*Q3?R1^UVqVWQ
z;3t+TrBJF>15B<ry6!Q5yKPH3w8s=1c76i9#+TuL8nrjpEQ!wxLSx%xp)6t?Hw|%t
zFnR!A8k2i(Bg%iKOtGJ^;KRkm^&-X%V0D4#v3GujyDkMV^^e<tvyn_u#qa7r58V!n
zR1=U{eK*d%{bh1dLtUV<#OWN#%Hpf$jpqL0yc15f&C)SW{NdE+qN|fluL$e7lxlKI
zo#xC^oD%hav(bR>U#lmqsZa)O#wt+uM${NFJKmw1odRtzgw9Diko#;v{G|+I6K7CZ
zoE;rQ4{>h~z}|)p2VS$j>oaHRKf^Ora&xxV|8rOWHRDU+FS_vGFZlOD!Its+|LcCx
zaw*<*70riBON$#BlI@QhxUQ|;F6@;*v*E;ABR!Im5(#Z~nS~iCq*nS7cj`BfuBeqv
z`8nT7eU580#ciW4Y)Fgx;&tL22}@w9)G{^YfmklvqX;GPm39r~Ui(tJw$4s`X-IBb
zR#q4qU(jdqIH9M<KsNKt)@{230n<J!-F+6>HbDCu5lT7@WI&zqmS_+^zh({|9jWNP
zH3zkz5vSJkKeldPq{fXp7W-1qxkEDmyv*<wWDE6kCzXYPMsjQ<DVYFimJB2Xn#2{p
zm;=q2A!!NEppm*+xN_M@NO$em79c5L(hDLf>R_B6Xsj3;-&-)<<r#{qAY>k#01L)u
zP{qh<8ya##y$Hd$rKLp}x1o@+QhsT$07wl;Co8PkgJ5|4Wc~RQ(B>uWnyVGyp!Dr+
z1zHjcDm3*5(Eo@~%IQABn*?ccbKD(`XC`3dI6l@7PQlCpoe#aL5O-xOp4i*jHN53e
zP9<zRJ{k6&G&MC<C?BAF16Y#X?hEgKzAr3<TnmLX|F$w(amuF;71^aVmOwz<61|-u
zAMeDkjawfkmmKAyPBvW_c<euOC?0v1Gaj6Vn&Vodr0mN1=%#CQIQp-|H2=nz^c3_@
zdhcHdAOF47|Ei^aJK@OoI3E~`Dp1^qkj#U+r>=x@usl7k8ie{gfFv!h-^3)>F8^8v
zJt9WXa4Ct*&ucxvdT;{EXxj%vanN8i1vta(n;hI{HR84AchGJr0V-4y%!dqvMy(=J
za`X^l)xfeXb|vH>Mz~_x4D~yW2<=C=c=#M(oB?QxM(ipXw?Q37st^=@5MdDcUIZrU
zqtFA5Jo_*;?6g}dePLd_4fHDnXEPdWfWasNO}#A}p>JrFhUuE%JSaEdL@&IMs-^Iu
z6lxGOB|$-9H;-Idy$dptU@(ZB^US0Z4t_V%0{xc2j0;c|S#n_o@RP{$07Mp$Mhga;
zgI3>Y8P9CVeFxoJfy-Wjy^#>z6%-Uea00)$?fKur0#Ps7CWc4zte(SgCgwC_&8<Fz
z-#*??0z}(q@k|@Stu5H{f!yW>Zvt_Io-7#tQ!VkSMAq)^-IFGT^WyF8EDlx%&D(Y#
zMCl^BWHcEIz7l6Uja%E84s~I@N*0%_gz%Gv^7oPO*2nkm*AgdhFyKeM+n4*eY3!Wj
z7yw)Qg#s1_mVVUDl2gms=OQd5EiEnXk+TAw!M5kW*;!eUC=acHqVWa~`gF70$#Mwa
zzBtW@`jJ&y)2o(otC8l`I!$eD49~kB{_R}O8c1q@J5WW{d10d@qM#7L_<*HZQ+oQn
zW}&APaCqGPem6WJMP}OEA1B~$_5eH|+2dmb<w9Xt6AY(OQl}OH-E#b?lNtfY+ptAF
zX=bc0$UH&y(WMTEVkb4UfB0i7+7ZIt>x>LH&}ajE=`Ux+075(BFI0nEROE<fu>Azx
z7l*NL&m6rH0tD+7NV%&;LBF|g-@|bLgMq1u)mJ+8(d^2M9rwlYY4X66ar)Rn_i+x)
zEXjPE>$r#g>@kocV5wFmuA)4IEdN5h9U)<+;L`s`)iV3-BPM5*`PP*iZ?dzpgbKRv
zL<a_<ULVMcXLS|S_Z&R)3ThVUw^IPjkKP4hZm_1^X~Tjq2aH*6Le+B}@+}4f4R0n`
zh8<QMKyo^~`wCnu7uXoTz~b4ERbf69MPK%{0LY6VitzHHLAua-a$_`TJk=%TEKsb1
zYQ=RNfJ3fpYUXM8>Qq@WbXI&Hgb{(ECU?uBB@gs<Ah?$PxoI(sWY~YfI8{>^rGcMB
zvu|NaEU-T&>2#OXt7rVY-#{+eY&}Iyed6vuK*^ydFks-11RQEf&!;EXXUdnMM!~eE
zsE30n!Yn(l0Yp-sL{m4kY|~o_q0T!f@9Pb7%rd@2(m96PNxa;-tU03>ZO}XycBE4w
z^65@vO!2@ZYEOxA>Cm@Gqm%oGy&x7`Q9!L&Sug+q4Q-Wyfq)c{rK=Ecgjxb&HcjP|
zrm_0JtY~-m`M-q*9z1*dY7ER<p!=OlH&xn*wC8_SN~@gzR}w{tK}iLRRv-jJBud4&
z_E@2gv`hZG9|a4QyhYLun&|RWP3jacFACt6F%DPIwljftYcy6DM0uDqN`cme612Hc
zkNz6;?ZL2NWTJwG)jA`LtP6C>*Pvce3<eeW$drV@V+l;V7y@M*22=@qf8Uh@F&`nw
z2^dRr5w!<{7Y<qstKQwJq<;uZ+^Ruizc!r~ZSC!-h@U_MuF!FS(1O}jM}z{n4ImCv
z2ApAQg+fkALDz*Q8KPYPEF(}K5+lzv>x`}sLc>;}ry(O&9P~YI+6RGVm;%ZL&McG^
zfRH)mCONMG;2zqQ)0VNas-_Tzb5aIC%>qnHj03Z^j=I1HI9kS2BuEPL@3)|l$;7xU
zqv9Lz7ifyGnR;(;@51{n^hOS7gjKA1NtKaR9Yhm7P<PI5j`LUL1ulR)nNn72-OewY
z31Pa8dfxCa?)pFYr2ne&MkUB$A2cokonnaCdNVgZU-0qqIRukH;dZ^3XV2<hVuhij
zrDp2jq9UU|0fA#OMFMpX38Gz)HiKljpu6M+FixnqOiMeHT_p#G-9{F3<lckceO52Y
zyI)_ScOo?ay+lC)TD#CUPy$A!!fuF6eQzHB0S3u3IWTe#XpaJ@2Zh*ZF6t`GlsQmm
zOjpqu`Ykub-~Ua~*ghiUHwA+yj-fUr0(5<&F&QE-8TL6eA0LA5X~PBQE?{(3qE0`8
zp=C!#8)G?91NM1w@tUq2^Wi^t33b^DqHZ`D7?w(bHfBkniw=Qq8`PYnSo5RysW}K_
z1LFmGmQ7(WzsT$<l>ivP9AL=Q;)W()ZONd`QYzL*w?now@BI7^qich0Pn`s5tw_GB
z+OH0Cf%ZahbbzT9&q`nWDl)g|LZO0Yd?F_Y8r>?On-zjwB}n~8V>f|a$?4<!$(&oX
z%>ZPKKG0o6+-CZaq=6JN5r?5FbZ@)4q~2F;Y|luCKGJp2$mkZ9aNL?Xnx=tRtskGC
zIKcC$hR$wQkgtvHCwo$H_d;xAji8cwR{C4+9GG*6FzRtX@K>B=Vz6eYlQ<E2mkg;f
zV1z<rb2z<yz#EIY_3fQYk!S|csIb<D2d1Yxz?f85c4b*Kk`_b|tRof828Ugpt(v7-
ztK5wBne0_=c9K=8?1&2{MSFT?z1aW;7ERnEBG`t(pml-P@TlUn^~=mHoe)e=1AiH`
zn{yhE!6<9w(amQ|H*@lI+@p2!0G+5u(j=#`CCoj!ZfrMYh(#UA!=P*QjZZ>JOUcCg
z*xditpRc*`{b09LqZtdD>VdBG3KW8<BMLQyBRRYb@(LQvhng4<>KZv*j)AtR{+|De
z-fghQ*N>oq2o&hMK654P5IbTL0TdvO5r&cyNARZH$Y+RTGY8O??49M&oCDN@-k(-1
ze^MI+WHP^YQ)f$Fg`G_kab8tF)`ldH#)TvNiY7aN6QaNo-zrSHxC;4*9U)UR1Pzca
z8<;WNv~+cA&_q&5KOv^;Kk*cp9wZMmGaJyW0&c}?@o`35`=Qs5KHdp7z_5zx>WxFr
z)=c0uW^JVZ8v)<`xDK2F@(F-ORy5Zrtzsm*aThgrp&<+?+@U!DiOI>wk-G&Z{)9qv
zrWD$wXq+~E<}Fn9eT{!D@94M8!)T-n;LR#%)n1o?><GA04zLTP+|xoZw+hXJ1-w)P
zmZ{SGL5JaLBAQx==HCsWnZIy<w#}}+wt1?^bw?knj!*`48AB`ub^u}4HPm_zu9M_w
z`=GF}u+W*5w7Oe8kvA4#ia^$l1#dyw$=-rRICsz5i=)<2ymf%dfkZTH9-WiodJ=yA
z)me0mAW6Wa&?;mWg4StJt<8X3M-QtSBsflt&6SWAH`{5^uLwS%!8ZyDNX-oe&G9@S
z-o4O)19XWQNY%j*?;6JYO<ZAu2C*$w(;WDbFaW8DhA=kfLbxy6XW9k`9u^q95d_kq
zUHP<;^a4-VlgwfJir;}I7`pl=OqTP!-w7OW(9t>A2mLT|>WkOFTwI`@CYpO*Z=`Ba
z*NycN2tP15{Gr1sYdRXK)2J;E$++dKKG|T9MQR)L-g%Ti;h*Q0y=n@6Yrubjfd~rY
zC(-;L-i}{ZUz10pu~1EbS>RLPlma9~WEO*j41+-Wdphzpmyo-N0#0XsRzU-;nHwcU
zkz9u@19ZJ)vsR(p+)%U;)`QU=^7979(YZ5+68mG%y(b7*!p@et;T^u!u&KC!490|D
zaMtk(!I<^swiG!QaOirhEo9@S^T``v9I8f6J1}X50E{r9R;<NxYxx6s8?Fft59}KE
zT88=WkmF$jQg-J=;(2I*?*sQH26LtV#B0d568ui!>mzj(WW|<Pq9+Zes~UJz-Du+D
zFq(m|FCoSJ_OLf=!tZ79A%H#M|5)eT@qG0MK45P4%*;~tfN;QTrm81;^MhY#mK%ik
zYLLD6BNO;;5KPf1n&r=ma{Iu|XiDI^c)ihg($Hi6O4Gvb)i6QX&Kn#MFGX<cYenE9
zr(3}Cn~rgxyK@cA4FWDb@1q!+>E%uK8k}5Q>VeB2Mh<d(c0L%KI>9`0P}<d2<aweS
z>7s=s8qkey8F?)$)<%SDV7}W792(T9gvP<qXYoU19@5(L+6E@}Ae91xLGmQbVXA2m
zA3TIo7j$Q_HjQy|HmH*MVfH^f>uTgP1+t5RMu+srg?)iXd=2IwqLLT+qro?|l>#$?
zq<MMi_X}PqZZM7a56N3c4RMU~NL~?B|6q6ohN81#aLn!{xr+=ynuWso%as#-2fYqx
zTop{AK=Zs*!ET{x&jv;tG)EgvCb<HgXQnH4x{1K;z0O~}JTg&O5vh)yH)?u?9d9g-
znt}rW<Ns-cMc~L8h7l-2+qS~!ryv;KS_2LdagU?G<`r1W6#{?{tyn~X4(tv?fZxU!
zeQW)>wW81zHF_U28nS5_>(b$w4YL8NVZQPK$e{~Hf9`w-Rd%4>ISIN;AHrD4vH_Gq
z^!r9rUC<<GG??Z^+7tp`1R@wZxuNWl$aP$v{Z2tMl9#Wq3Xb%oQX$II|A_=N%0*3f
zp=}vPhaZCR?r!um1D;fvqyS?q&A}FdaH;Ljf!qU~7cgN@X7<hM1i}&ocFmuea~XUL
z`^I9II~2RaXtXPuM~$YmK&$wKV>t|_f*$IMz33o(yuTgAKRCzFQ5uG+9Tc=!lm@Kt
zIW%O%WL^Fw!ExSjurB?XZ0EUg>4JG96<6eRLX+B&EruwcyoX0l26f87{N6z1C200V
zlg?o_aAQUmY+NC3=thy4e&1S9v@Q3|_DB*$`{|#pY6y)$cZ&#+xCw(SH>ca~z=T;f
zbPXattMhb50nn~awh0#)TFFCbx(FB?h=32xpiRyqs|dGRqXG8lhZKY^khOt$Uj;&+
z5fBZil0sVp4l?p-R>4DL50_iLi`Ef}s9{u4DLp+-{QTso__DKQN9Tn}#}HddM(jg9
z>W`*;!sn9Q8O|glT%-`d2!I?l5ct@U2MUb_=^rmK_Su~Ut?P8NB`VNhCQoP$4^9RR
zQTG+M^2IK}l4aAEjI+cki;oljxdv=7j}jX7L&s`J*oAOm+ED_*d<gy12xtPo11j_L
zqt=y~`C9=Ba-v}cfWFQ{%R(*+vyhk-K}ME=fA)cLpJ(kbH*SrBCfk`qg+3yL=hl<{
zngH|@qIr-dC^#D&hjd^G!Iy~XN9LnCZEJ$4Sydo#Jkq>o4L)C>cZuFZ1T*rhkA}<a
zLwi(Q`X(`7a}l~fhG7SXz@+apC?TNm0fmJuM71~+lFa@BY>Uc*umvgIPj}`lW`Frl
zv_nvxh$o_}&@hK^nV(nDKZfG~|K5oGLRnm80JE_F4V$s+Bz4a`nA0QvY*IGM@~d>N
zOlR&$hff!3rLxUy5c3&I;DkO=bC}L{9w3QK&BYhv7e}mMS_B&4!^?|C8rPV3O|xvK
zS~RW-234$|lAC+cga`>V!`LD#Dvm?q-c5&<VV(_l{3Lz&Wnds`>R7gttV2W_8kB?3
z4tU5H=_Yy96Q*iE+><&F7zZX5IFv87c3dMq{<Y@wDEmjlBmTSDq3pw!FLYcP8vr;Y
z4p|Q3F}b~mcYVEjwV&)uPc~>aa!r!5A|N^B!UnqPL=t~%vmvdcup%jj>>zu;g`Zd)
z^}kxX`nQ<#H9XdJ?6Fo|cAd>`Z`YDtv~q~j3zb?7DkZ1asZcDvOqyC!Qw|56aHXlF
zx@tm1dKsZ;Ou3>oMRl;fF-6<^)S%3aOwFA88TLQ$Ti4X}?K|J^=kq-GbARsVewLcU
z%(k6fJ=Ft@c`5*I?F24BL(n%PJ@|B;)qy9CU#9d;Ur)N(#6-$OmR<>Ai$pk%z_wWL
z<m87Ygynd<;R$RD7u_Yz<kLSVr2iEwmL*T7nIE@dFQ`rIC@Mu4jvn4rAzP_WV+Jy$
z6xuUzzH<?$9KF%k_X31q5=U|^y*j#aFr-C|azC4N7ib42$rb<}V45UYKB0cBiW_t^
zP9ljtd3S^goY}TPVM`y@*Uda=`hZBl@^T9wU*BES(g5%tDu9V32T%*bEZHBOt=wJY
z@YiIgncT8o53e)fbmCx!F@N|p5@NS|lk#@1!%*6=U*lPEUnG@)wfHakRJD`U#C{CZ
zsRiiLqgJW;^OIbCx{(SkCsq!*+Xe=4RHki<veZtxOCEO4$;$pJtgWhCHW>c|dr1$6
z_Z+H@NvqKg^lRx=02@k?d`RCyspgEPi6HGG4Mz`Ij7=hTFI5C$&A&z8pDn_RNNjgF
zZTQEK?7{=v;MzF<WicT)(&>>=ExBRn+YXV&OG_v{$g19=Jc}ZYtc$eo0FuH7f7A0j
zBi5I~qixY~?{sSi#pSe0>;<KEFKo5GWZhO4O<o%YRx8$`-QXb<{stIh#7}ZfjmJL1
zBZRjXn>qw3yUq@eDvP^U-<k4&hDdm7?Y$r!K4-<*{Zn`H>>-CfZ<WEnJp;I_z^py#
zGcF;Sb7EpU*yK}P#SAiXj2p1&{x3<*wb%0xu(93`DSYh!YpXvct$|^Lu(m#FNlqCu
zXAg`WLI^j}2nZ-<L!63Y?5M(kw{&$af9H}u$5wR;VA7J<xJWy5#B~7Ix3I*n1sQje
z-9n}`69arI6qd(NzBe=Gy`z*#5-ihziA}rZMXI_V&=BZ{x8OTj=L2$LQlpTqTG=?3
zJpKIvS@(BWFWq!mztHr)jx;fdxydT&$clip5|bl&oP6oAt^Ygel;pHv$Y62sxw%p9
z0Ul}I;)YFoQx^VazVz1p2FJ&L>{C_$-FRiR1uHyR73VKe%A|*6-J|mN5wC^PJ2Lp2
z1mW#HU*k~-k7A^iI|!P*$tk@{Ai$%19@q9(|G@sUl{-3guEMgb?(53BuDI5*Zqubp
zox$}&OL&enJLG)sf?)@M!hK*mBztuAIx>sTr@px=op-dy!_Cdjt8O3aJ!(bWQRj{L
z-UUjN;24v4t)#NBaX5ec)V$^M@$kf`7sf!?=;eCi+>(dZ(_VlH7v8ARy}AS`f|(di
z5PX>2&yCMus*O^iDWQM)7>fBE3gU>k-6f^51x<1Qx7}#(&qUV$pnT2G4zFBH#~n1H
z<JJ8W8fiqujhN(-J3L^D@)ENnP2+e=1AtFmL)Y;P%;4kLG1NAzV(qV$V5^bpyJTLt
zaTG0IsgQF!K9qMT>^4K(LR-2<jk!m@UKK_8`S}vL3!p-k#IwmVwEYY?o^sLV$A}LU
z{EVievot&Jp7vFi|GcZK>!ALPp6dnt+9=o9aqrD-9d~0mXrjFcy4{wxSH?4eTm(Xv
zPm>%r?;9LC<?yysu)~pBn?kWkGs1vCQ*g*IE#9)sQfVL3R^kjL`tOa)LqqWEFQ&MI
zn7`2(me(ab@R~%THZN4S4-ETZA^XGVB?EN&NR+#m=Ubx=PSptk|7u}j0~YN#%qR;$
zg5!H}NS#U4#rIZ`y+#`OPEYC8P}R6X{V#!VmAASBm_9xR(oJ_y&kR7Y0_Zt$Ky8JV
zAPzq52Om_A-TdND_FeV0w_OdlqwR9m^w$;L9vR)UT(WJ0UC59%SEX>qx<mdER?ZF7
zeJ5>OX1@DTJ^D%bc=<u7OW^R+fI^Lg`K-0}i6s>UN_!l@*W*^rQ8|#mF9vKeHR>r2
zyn*&$E2~)do=UcRc=RHj*Tc)`97cMqMgvPnS@33ZF9Z9x2(Z7g<-FqoVbJl|0+F)0
zqf~NCS)XfuRNDZVx6%8rA3jNLl0GTS@-}|15AsrrFft}MIC!zC>1Ggzo{%@&>%OTj
zp>r#R9+nmWz|b(XL4yvDKH48Fa$ks#!&sjvJ;OaSw315uluu`>a~BgGt}2Gr%;ln@
zUvTXStZ1GIv{>~3h?xxy4H#ecGd4*xlGBsU&PrDIX?@Fn^xiapD|mu+LRA};TozD;
zHjWqjiz*|kP+m$}E5KM$F2d{vF-~r_`TOT0Mu6lp69ZJaUzy;etRO?$d{7?g>FJA?
zEo;X40uL^8<|IA_S(uI9z~bo|cLrmwX$Ynj3c7vZ`qzXRbtW`1s|-*V{-ogrVW4Yz
z$Sn`eZC6W6o58D*0jgoAA?*4l5FI%1j2w*^!AvW<l~fZxSK;k~(<xRfxnLIH20(|6
z`rilroYf_Y)l;-#xzlVbc!#qqy1{IZ0fO9oK7(<%NBa!d)PO?2)fi#PBz#LJ6Ep>j
z>Vur)Lgth9_H&fdOZU;t5p$G~lH)?nv)0zLXmP`j48}VH;)xIa2Z;O9g$wfmCK~B~
zL(Wn2%}mjuDXy<As761K_q3Y9a*X59vmbx53FwWSa{<XLm}3Za{V1<GFIqz#9SP9#
z4+TljQ3&CnDU^xqqsF%fjOoYQ6oYcDkP2bogkS!`bl<)`9r|CBY)iHa{_xcyasx&=
zamyxl9^>%TiG|RewX?&7PWK(YG)%*UrU4`=$$1Gi6k^oeErAATeE_X@FV0KAn3x}Y
z^U@@txkiM;f^r)*`|NM?P?nQTrimDp)(Z3pCUDo#!UETf73Nv8B{;aRS~iPuPc8mh
z`!K#VIv7~+Dx3!=+d=^sRORT(7tTELhC*E%!RrNEI2bXzTBDBr@x>Y#IIlo{)REi4
zjM?4CC(Fe9?!o;hnssr#4H$K4pZw3r-g=hNbBp(e2oPq^)6>#=QIt6Iz?teAmh2eq
zymf4J=C?l~1m`<WH8wVyBPy6Mu@Hb_d58k5fdt%eY-i(#My^^{?KN8}*xk5h<qS5@
z!^7jI%DS(wkIBPp(`kDHdj!4m3Nv|&8&J15B#tP}E6GU#Wo0u$$2K>&l%%AjExEQa
z!f^&eknk;*bjyOt=N)B+IoqGl!NjYb>?RKS^n+n@I)NAdq^0EysD=SNXjkMCDl&*h
zjX~J5xfsM?R9eyY9a%siWk)Q?*4U{-*aF`J)f4|ms3Y4V3@qq2o(WB6!Xi<8K;LE*
zn^s@@2C`tNQPAKDV4bFxYo4W8qu(h4P;k0%xwyXZ$Lr%u64i@+6F0`Bemfm`05)P5
z5a#bkUjZD~C}32jEZWLoBps(|qKfl~$JGKZDu4l0sbb{eOlVk55=x&6_ddN${to1Z
zMLnzQRL<EJeH8f-P*xy_kl_B9K#4({t_X67^Rq@_@Ai%xwH-H}u8EGu@ncJ>0qVR=
z*ul%tVPGO2>9}DYs~BOG^Vf1e=-5$bA_pyVw_<avxT=0AS=)s>r!fW<6c!J2i-5eB
z-F>r82jkv!<TmK_9LHfnZ{AUzeH9YQ90-T9a%jx8FP*^(BoCU<&_}>vk*ItNuwg0C
zT)DCli3pAcS>O-e$t1#-f}1y2Qdx#YL$g1r<epL~T}%B%?%v*+MCX!6aurxHx_#Ec
zXuLerg<&~UgW7I%hGM4qN1fv5Paa4SpXH*@G}8pdyS~x+qE>4##{AXAsbpQ?k^cjp
C4=$nr

diff --git a/reference/plot-13.png b/reference/plot-13.png
index 9c553b7d7fdf0a2c9fb90a0768f64d0c13aa0f1c..2b0de7cbcc2887104dda79090cefac1cb4e0c574 100644
GIT binary patch
literal 26123
zcmeIb2UJw)wk-^8tKDWyC<t@|W`$M+BpXn~gb|e3f=Db7$(h!ppa`g_DA9~a5|APk
zL0f`|B#~G^DLEIh2nALD{EF^#``$C&efPZkzcJo@?=nU=h`aXw_7~QgYp%JL*N+|5
zSU68;9v>gyLd^r}C;0egyYTVNGX7x>enY?icmUt#7$4G5$9H^9?4^0*+m9CyoVDlU
z6Y(Yg@dvdHn)31e#HXpg`;<#~Z=?Hz(~j9{17(rt`akSD_Vex|6~U`5HH2i<)fWsq
zZCK=Ma!|!^+d}1ggNOEPk=QrvH1sSc#vy6s*`0x(R8K6qJm-nQryY_fPe@(<X~Fli
z?CaQLbA3fZR$o}fdTk(+STp=-*kjC)F=`N%S`)fDQl2r9aB5v}(f7RZT|aq?`5o^k
z^VR&)<cD2*estj{KP)}?c0T!j>)3aO<h#$`mJaYPmAvaCNPh9t<L|S`cfKFjew|Ie
zAK368xW(^t-|FNH-P<4~71-R|{6N-9JEvGvIchyVUvB8|!I^)Tx~He-m+I>M>gpJ#
zy=+m(Fd1w8e3^e7*EnB#PXbLmxCobCmnq#T!Du4`xwYiq8M5o$qtPZ!S*~^^vNd_v
z*GH~0pg9HHxpSwpDcjv+szoelzI4_v{WNBd%k*fCL~zj#t4~|?sCi#vPPW`RBz0XP
zNO}9mj~|V>(_=we-jkJf#aq+zl$cqSadxH3!=L_mukp$#&T;_(M@PqPj@@6<M?N2F
zDc`#|AUQdCXS1I~^C6?j6IrZ!tA&9nE`!YvemS>iq^Cw&(W!S;Bh5Le%%fdqo9E=n
zf#}K-_9G`D+vdFMcI^+%3OH=0n5n6$-IwDU`E4OaqA3?jZe(U=s)*X#wlynywQV*k
z@@m2_El17-7=%Pec_|j$T)j*~%+ul2sZ;89c6M3g&Hf5Xh2#z08|I36Tnu8VOpjEi
zu#ZM4rdD`$IVc*sbv-BJ33uy`smQSJc=__BUyx_7iCxj!ki3zuN|WLC5_k7aXCEG3
zr>BEEp3>2g&nPPh5O%JO&bZ{tpca%Z#0vcMZhLFKux-|Dh1Oepw+mFnB^pgN3myqn
zz-%10u&@X=30R}BJ;ko2pfOO^y!??hH^j(GVYpO@dERZbJC$yin9Zs`tQb*xe*442
zM~)n6f8sAyPvI`pQr?zw?)|k3o`%Kuw-$$c3>6)Tq`#Xh7VbLH77`|VL8`S|F>tla
zI(mmr?&RsGh4hKcEoYM@?FZh?m3N7oJ%43uuX2<(XQDS<j5FXHmd*HhZ*vNJ#q#Cn
zU&Y2ccb(MH37MEE^KR;NwdS5ae*E@BMMulvLP}}J!=us8tK2JJ961um4)UHd@%0S7
z)5E69dfAW-S9D>Ht!UiYly!kBtXda#Uz)vKyJL-k;9lQFl<EbAzG7ZG163zGU%q-}
zSzVhuS(Vsq#A!1!?)v<k*5^E2B42oAvFfVP(NVkpjE;gJuaT#XEbnhu1)Ia|OD%@R
zbEo@kpE@&}ws~`=*0H7Zs9OS+`qLk%xH|=Vj%i!z7piPCDY&__`{h&Px@6OZHf60B
zS?y$JM<_bp@bgP+a@)L8+OQ#RTGVr-!kUe#yz%+-XM@SZ54W$CO8<I!f0>E9u)NL9
z$9sJXT8o0i&bo41Cv!^1rio4S_~l2J;a@*L(@e6ceBtL;YnwaWY^KIOyTu@Lhoz;Z
zc*Ic+#fZS}?(Q==9<HB4WjE(cwMlEZy1G7XQ5pUuW7iTOf5Ax1W8mH3my=rglcPNn
z_yksTi|(5Zs$&^trtGX~7Tu0jXC}Y-`>FbxoRwj6lpCCBcH!?==bK={Z{xUP(+xJ*
zm+eb5%ue=9%<O)(O4jn!r*H+CO`A3~7pigW;taDDyL)<`=H#e0xpqX1Pj#q8^{F}c
zH@ILLg;ZFdpC2-L>%(8ywkFf5PiV2q$g#LHN#Yna#$SltYtrA4Vb_~fcwtO<`}qS|
zTn-!is_Db1W5daof&l-}(9oSjA0$lLKRrBt`t%B%6KqRt&7ED(f-gD6{r>y!>FuFb
z$%$evUw>OSR&;**HjB^CdV4CKYA~r>4YkP%m+^1DCPjDFCb<r`<5(Zp(Gg_ka=l<M
zWbCE}3(eSuPIab97fM1`h8N{j2#ry4nDUtXud_BK4*Sw$7JHAsuTy)>fmL~<V^a0y
z%lS-aW~2!7Z_AF>_C<v<+?m-*Q$LPXYN<8;n%fuhouA*Q&Wfig#nQdjRj*FdrYu~_
zB2{F_6R%8Hb~&_TUlp;kr-q7!`)YE%xz@Q_UPHk&m9)vp$xj2{-lt4UXSCkg&u-r%
zm1uJ4zBz7JXBHI^6Cd9gYa(C6;Bv-#?fm`yWn^V#X?@(GVrerrdG&xMHCUgIpB~CY
zSM<@p)YO>m4_xz5WSGw2I6d_o&QRZL)tHu%#lV~SP~R_TQm%b{ZZFld^|nTT)tNFi
zt_N90w%g=L*Kuv_YIE-9gmm#zRd#Q0kF7VGenj-CMv$moM}+hKP4_G>viaw(St4lQ
zP_c-q!WnO=NVTe&!;U@?GhXVP6YQyC`tj}@b~b0SXK-q`OhaA$`0?Y)Fm-sz%a<>Y
z7ioFjF_`o9v9IXIuDuyf_ltXKm+srQZ}5Xekh<?85mwRQB3Q0o>q@Nr19{sf8#bBa
zI#z0pA-!|jezGgN@a=E2gd1~??B2b5>g!y!4>>s<k?x^-ld4s^e_y>Tns3AA!VJ4n
zr>}@j{hC;Pa2m!XlH$!7jtUZ0aodqmRwB;`r<6shsZ}Q$<<dDu?E0F}1p;#yi-uF2
zyFRZysyfly$YQ8I(oMN=<V#gm-{%f;_^2vQy|ukUuW2W>wO2mfAMi1U^InWo-m1Fw
z9(j`x1E;eos=@k`1@bw!DGV=mUjU1qY<j4{n>$@sBdC9I_t8K`l1bstse$(r;?0fD
zi~zW}*7FVemho&k#+Wb`XyBdX*ODtgE?ak=ZZzGk)8Z!)=%*RHF8`2p_LuXunJE;R
z*%IQMVKr{bS@s(HPurBTY`VW$+`D)0NTBQ2-{xMR&ziHq{E}RIsf>`7m6dasj8%1<
zwLAN4;gLG8zPf$>D`nktRd}N{i*&sZD`sMbg*BwAz>=MzIZ>`mdrkKkX#fhStB)`l
zYKs&*AFV5F!b^}dGgy`AC3{q5^vll9M^~OadnS3q-`{!M4VE;8{f4DjytU%rEP@!j
zwy^o3S>*K_H((K6dg9ZXg&E`fJ(`zA`ISZ}Y1AYbwA|R7;HO~UzGG*KW7y$!%iw`@
zS)<g40Y^4&*x(oB(JE0_<IQC=oawm=GE3&q<G5~iWHx1=b=+b4?f0v7tgh%N(G@FJ
zV4n%VM`Hu8T)TE{U1Hy?x3?uUE{s`qH?a06B$yl$fh|-JOWD}g)~2K^$%LIYf6dsM
z)^LXs1S6bga$)<!bY>3w$;s%WgI!wQiv3x`rPzXoak{CSU~r#MsZPF$eXs$&`E_ps
zt21qfJ#z_Q6FdA}lk#d<FXD$p-FuUEc7)qI{cxZrUQck0;qARZXvc<3$DWm1suSn0
znDkDquNP5rvStk~-uczXns_!Ej;wV<b|2%GgJMJkzfh9w2l^X}lh*ZbHp<yHtqGI2
z4a8~atzq&13dh`E6KXZEzqMVFdI~V$XrWaCoX~l?e4|696kR7?_ntvi+UwW9l<sV~
z*%&B)?)SfqHw)&D|F*zt?35KFZDPg<EMCWND|+wl-8>i_6LReJ^n?$ENCiYkx^0rm
z8E@XOWy?)JztNtWLhSmw@hI*@lmUyOaDcMuWn)vQtW|Q~(9qDz$lX0f`wnC!_Vzg*
z4qbM1=g(}u>_41d)_WG<&klM{^Nr2eC(kO9IFmKG1p)F+4?I1)W1@kNWSaZZ7=hkE
ze#ecB#AZx8E7q2gqoDe<-O93&?rF!Mrm+dCsa4@;&Q-^WUxPIyE~{|wVwL4pRaJI$
zN}6e!k>_X?+(YVn)tFP3zRy=Sx%I?f5ZN4Yl==G2`=5Q+B!^UW7;d^(e=h!Ojghyf
z@2$iPBf8o#8zb`~44jxHj4jf0`t7X6=ji}g>yCup_4I7Jr_=8gC&nEwtYgg<)L&xX
z{^@#3sp4k0v3?P<-;N!7eaJl1V`3;<<?0;Sj>o1)N`7F}j8WXvd3LsO*?`wBT$e9f
zqrYr@_{BY}Y(XOryAZGF@Jk1&jkRtsmFN@vN3-2VEzjMH?-{AoDx-FkMuZg})J@2!
z*=9jC@*Q($z&}wMbPQeBHhGRU`qgIcA1GZsLa$@hI5wo)9VzuONV92Nlu|YZ%S^CE
zZ_h$uIas%z#N4LyQ65cclu@r)m_VWRU#ESPShXf8eWzo!`;w>aquBaX^1?edPlW<@
zQVq_YT^*t1+*G_tuP|TGD4ZM$DXMkdokC02(UTaD>d528`*6V2tqsha=%KW+CU;w^
zmi>41KC=)xvm@VV{h6_A+vF_SJwpHnNktrb*-@KMbHC+Ktax^<d?!Csm1<giKfOP*
zCv-)gwvJArwD&}DZ_l;+CszIP>n?|$>aA?I&hp1J&ofo;7ptu~`QmU<PLpcy^dklM
znU?XEpddfLs#u-E+-Z8QEc>wq*|FR)F2^Xg>V8kp19c#VVk&SFtM*TuJ65X3omy8|
ztLoR_72|tts#_=bhOO6d*w&YC>~Knt^6a^Y=q+lBuc+IGNMP@Eh1LP=Y90dHu^(PU
zzRAVJf!U<8|K=(I8MD%x_crV7H!v{3EX;M7o*W$vV@$16<qQTD;)sijKY8<J2cTA3
z@fkQZr8tvG_`t#n4Ka}vv$9fEhphlTch(*<{_^s;(v*d#scG9H{+hW*uy(+B`*y#p
zraJ)XRN&%tc0Y~a7Nzg&;OmpD>yjVHQFOyy+aFfYoSEaWPxY@x+lCa^RYa>zclD+|
z+-9=>aOjSW!nY#r3RWvk749{`h~a~96nI9Ppfdm<0ReK<{a0?i0e`aN+Je=0hV6kw
z=O_1(O-76ciM~=g$W_D;d-U5!`Qy?zXHBTpp7bUjI(l?YWXNEbJGN6$zDbZubzDx6
z8fSb_&s7^H0M2!*gp74ISOwU7I0ln}ukUCgiDqSygV^Kp6YEDNs__aB)V#gIFMZrd
z9@JAE?+?gU2<S9ypsNjI{rT?w`vq%5^zTHty1!p2e?BchM2ULVB;1o#SCMARaKYIW
z7jH(?auX3?N(BdlH~kc$ByR{yko|Hh3MOq?6nCm4<#Bhog1wW=#c!q9bqVQ{-LYY7
z(qx%*mK)D@FO<3BEVg;$#_MX_iL!0hwXZLXG67kEa8rsNQqvlp^px?ICAx(Ud42*(
z2pMbP$-_?X%{i^DU65>AY>e$%($tY$EaiW7z93ciNW7y+a66*R&r-}4f`WyQc3%li
z^*(p*oHDyNg^YY1+iQ%*2tbsp1dqr{FKu*1h!mC;2(L8w`+Vs<y!7W@J9}3~CeMl#
zJa`v2w{VU9VdcTRWl0Fp9$=vfo+2@c3q1FexVSB<L$`zSiq=Q1LD&;ec~ohuqJw#p
zsgSCNOSpS~28n3N<{|TQU&=rTPdbjner3+W8*q>XfMWF@%^tYVU2}1l@<eNJl5zfx
z@iuAi)n%$|>n&$q|8#$=-b(CdyO9bFja;v3;}5rf-gf@Otxg2yu{B?GYqn{Us0eGP
zk%diLH?}`WG+X0mYvS2Sz%~Wj8dwy(zA(#m7`I+Q@M0$;*E`&)-olPE(V+o^tk<&q
z$;+1;B3+uVyA0+Fw){3%)UPhZtWeK3dj*N5c3+v3pV1L1EV2KlAEvD~-L6G6Afous
zb1Hcc$bUkLN0Rucm|Z8~)4xxfJU4I|t<sUWcd&1?W@B{t9p*`k`z)s%^0~fy|CVLB
z_Yo0?haiufc^fHn<v&5f{IfjHtGzk%&9&rg8dibPn2?%f{utcNhE1D*r2rhqz2-dH
zcOvH0-H;FfZ9q2brYwcB75ukOJ%9fE_?a`S1O(tC5yuVd3zVNA;7DJ;;fd$$EcP*&
zFi<`1v;~i@0>VAr>l?2o7aJSvsWz)zeD>_wb&T~74;L_(@#)54f3cOGCnQKA%;Vh$
z=xS?I%~Il*|49n!pMCrPJw(`ldKBHD?#yYQA0D=jODuL?eM@FERrdJF^igg;=eXW7
zS;th@gdZ+RE=w{xemo}@bM$ET_gQa3M;%k`1~1oP5q;J<Y~C0!cas)AjK6;4vsQ>q
z<^L|???3&%|G&_W|HVf^99{wf>p~;WP{^6|i|3}`f^W1HhiD*b1+y6FcT!75cFv+T
ztMc>nX(A?#nU32K37>iW>+U!MnjFs`O@4_s{`&Se9L)5fQXUQb$n^x^W-wFy(l_GE
z7*p-?0XB(X{+OOjcRNILa_OEGPxjgMrPl0MjA$~|i&FJ81|@X-#EE1bS?$xO_faT)
zh5@%Fdn~P*n`fsC8_eN5(y4tyXz{7Y`^@c+8aE(<njT}QiHloWSv`IAY7@^oz@&aW
zdO;7-9^R-UL;TTm!hphNY^_f#`SexgtIw=vf1@emHO>uoc5nITk{F)6J3M0xo5A(k
zVwklv0X(4#To<vSubI~t3L68E63S?N;M+FiJiiTas=!JGN8}rq+hz^!Z?G#A*=Ey_
zt{fpk_WIj|`cFbx5*mRwQ_5787O9SZB?RuNO)Eqc9sJ%eQrcpZHCRAKPw*Zbty7(I
z{TmAsC?LG`llJ&F|G2KMP|T@KZX=xn@(d6A<ttYfOic`%fOc`+DMKFNb1n6ukF)c^
zg9o4JBpM0`B!To4p_*=g=rUBaUP2sW6rlC$85)Y3ML24!tA7fUPrSF8$ETa;I0+0?
zS65#!>u2>hy8BWHK!LqgS3ke^YeWRRlz;$n)^CjOkq7a)zbJ`&N56&Gb+b;wO*S)E
z4Ysm{!JTG2&C2rdRYe4T-OsPTk){D8aHVCWw@yY}yvbv@q)}8Fh!B9$nU?+Nk-_<H
z0fD}5ef~S8W!AOMP8_e{>AAb4mM>pU2zlq#yF}k)_&5U;4&F=jSPLTTS!I`Bt)k4>
zHDMdSmLN5+5DxvjI?B&Bd%=?fi@tcV4&xABco~Mh<)%!jxdVX%>o;xQ9Ofx?J<ZfU
zXEWcU)$``fBb<7f^XhUbgew!ASwF2;bnXvlF7?Sirl&`5_N2Eu{04%`I$c;G$+GIz
znK$OguZVr2j$vknL~Pl+oY{6f-#8RgQu0-$_w{>YER{f#Y^MR3$-|M#3Zky9w_U)n
zHYd>f>wkXTSAMQX<26O3=^A0G=rs1SOvGS20kni04YjqYIu;(E-$dKbK9GEPU5lAq
z?_Ml3+qN9j3nvKM>ho;VmMx#!m*Y?O&3(S7hcOv)f&(^*h<ZtEwrt&DKX5Ds&H4T<
z01f`X&6<0GZOvYG&6(kuR$&LeS;E+ARYUF20s*~Q4Z!^`EBa2KK1~A1=;+&Lge|Rx
z48G$lxm9$&zKXg2Lt0<RzL?lpvK0Ox(Ko_fV)MMewovKtu~~PXn-m6aZAv>LRq;9n
zyBAcHjk<ak(hf@2*fe_h8F5ko=O_J)OQ!1TYrMw4#h+PA_RQNz3qgKc^%koRC(upo
zT!Z2eY1`Lj;9fxtJqtc+8PQBG<I{a)@O>7H1Wk%rsLDzbp*}wmvy+)M4EUQ=C`vbF
zfJ=2jK#f1&J$clk?I3R{LKBaCpJi2(5I`7k0{vgcOmt)>rlzJQoiDnR4tA~u1lUbP
zj5|laoOG_^%0x{Zes&_}fsENvWe~1)+q4r6MOq4jf{^CutVuK)>8vn`idaTQwCm)F
zhjIgc`Q&5*ttQh|v26w$nO^dk{l>2>5=ayTi7~!X5v1?1$sVoVuyt!=tYYk|SM^mV
zKh{)L=jG48&_P?k7g`?wY=`Je<*f|UU9_a>z11*MD(4satfX^(w!-K~Z^<5b9SG#V
z)4lgri|)`9_pyFEX7*UY<=OL_5v1NEWCPZ-#b?$cKawAs9Ak>Dk8n8Q&{;m-#p<KW
zuhWVoVdV9R;f_L_OEEy<>p$<kmiP7Dm8Y*?UlfZJ;Js00ecpnmXTMw#^jRz}<8qF%
z9Y5)ByCPU0nEmh_eO>iTn$0}ue<knsU)=HiI|)59b^lxr^1tWe|IFz;<?A6>9*I-)
z^SpWWS}zR4KRVCm+o1to0{K~w5dOaXn?}pLC6TTh=gfMPPc2(TtYE~^jwGR9ZLPVs
zc`9qaHu@4zyVsXBe7nYG<45No`F8BZ4Ul7!Cdd2KnKPa2#XjN4YkqM4@vY&@_;|`-
zPTzXU6kjdKPEhP^w40t63@Ar(4#6vZ?s6c>AfV;?062$EKo526Y2PUTjUjyjKFumv
zc!C)G{9e6!^)fNB%zodlL-!B|9Y0>Y?$A7!vB!tkRVHxspQuD^-t~Fn;lha)JY63Q
zh*$J3r7EwL^UqnY`BMw<w;8W*^54h%KPNHx@8kV{?(x30nSfZ5>?Z_NJ}-<x0N~Ky
zpfJhm6DGN!HONwz2$_7myD{n4cb7>r2)cvys-rPl`N+BP{AD=rr0g0_z3$^o*w3rd
z9_K>FNQ#bR#Xm)=C;?rXAQA|elS)WNtHf+M9A#Fvj*+J<A?F^bdb$yw61GCO4+jum
ztW#k>xSWhRMY2tE778ubSYxN|089j6N+2u|Mx^&q>BdO*40b*ZD!3|Wm|n~gmb3N)
zpx=ia__z1Ig?<7OBps!lpuZZKkdp`=gb{E!=Yc62y6D7v&cfmep)8Q88KTLWPzo4%
zAkP&9q}&OdhUkGX=tPYIYD(X^(GdtAA&@u#v~!*Je>n7DPk!M&OX%LPPa4q5Hm|Ai
zGgRxd3BEQ-K<KLC;(+a-8PEArfaxM3qww=vg>XrVeLp0m@T^(H3IPG++^znEanc?9
z%=VJ7mKR|*Hw?4g@=31CzN579oB`dVmNTxD_>^YTm`UhvWb3-CV&6?`fhYv=itM{?
z%pNipAC-_{pRrJ@gzKP={QSmCY`vDvn!D)cl|_mh`g7R*XL7wf6BgHOA<N|#&u??~
zY~3Pyb==uy0(xem@+>}Tq>B4~^}I0KoD6ykh_H3Jyf?hGwqx<xupJgB8ZN$HxDC0H
z2RrSIx9F$;LVzRk#esy--6v?U8~{0hC@V5l9j+ja)=Z__`1|?ACg!+>^wIZpkZ^^1
z^>?fbf;)!!k}NRct9D-e^=S)q2Pz;c>w4>h6Mijj_Xy$JB|~B%fK0@>Zw`Tz%;EBV
zxSn7@Yo~qxt2Fp5stY5$>}!A@@eKI1ydma+s6tx6{rV$gh1ahL@>)*#RFXO!EH>gK
zpBDRg|7bLChQUl004ocMO?=RB>PqQ*Pj~IQ)<+TRY<JK2kvEr=OR86#&9dFc0<SMy
zUm%}5Q9|~;M~4#QIs^v!*zPM48TbQNuR@Mb-?i-?En*)n8jIfGM5hcQcvdACmE?)9
zOe;FnP6}A-`KJ901xlUM?%gd9U9bre{l-=Ffn`&=Syi1%;vhw}lyi)Fx!-;YE_$$w
zZ<jy(usSaMfg5>+6<0N@srNSo%>>ro`gyPM#8BHd*P+(*w)=V{O4(-DoJW>s!Rqaj
z>kdCyvOdb=($nIfc4$Dj1=?035+UKsxVW3}rx(1x_Qhd$Ve3PNC8ubJ0E@N8Nk<2w
z5@lpyKux@Qbpw+m*Rj0*Z?EdB!y*>$>PHajG|K*QDE`r-pI8iUuAkq_*jRsfWo4c3
zcby;+6MM}wWD@7Q{``*63|KbM45#m#n}760PHB~zmk0O+7vEGDv(oU@B)Z3f7Ch4o
z)*U%UrF`oLKOhWK<B!AM=TuEWz6+sF_E?kE$lPxb5g}R{c)ys@;>O#Ry2YxCU1S~}
zCJ~t3yV-*3AeUR99VoUDMurKyCl3IEmw|TZtCtmpbV5bQT`!$I804)?VwTp!U!@E(
z&vVnPFpUdYXF>F+tA{&$)+|ZjS-wZ9eJMW9Ab0G_RL1hi_{a0ss|o}u4;@gqj@a#9
zW8j=$pK3)^Ex6^BgiZRlYkswp>z~5#x_)}F?P<{<M%Msgz+i7mSpiIxAjwFk+;=_j
z{Dd6>wSDS&$f!_@S^qk$V@>dU>l>=}LKo;r2rZ8nSxFRh(w<$1>QZf>Tv$UGdy=gt
z;xmIx2XGG1y^&zgr29)uom~#(Oib2J`tOa<m+fcdc(&*<CaXo`zp)>dd8`AE4E@M@
z605(AsmpZgg*h>q8XqK*88ZKnP4sqY@MgK(l1E$h?5=^CP@5>yYAz7Ay(w!|eV!q`
zb!$MP_jHe4{t6v3`OZrFDHMuR*WUo*8l{%!z_6!xzls$%?z!2}7@t8VY#);O&aT{h
zI)>K=TMFgV%aD-}LS$!!98f>C{l%&OIn7mzcoDI!X!4w0{uJ)5RP0f=4?>b>3Ij#-
z!d09;*lpbgaEl~J{UW9aGW6t7?Cgn437y`N-p77k*>yooEx4$cHCNZf)d>@0GSpf`
z=sS|6A~3WfS}ST5GW-ifm0f}^d`~i}e7*A(7P~}wO?FwcKW<LENm7|aADC($C+#)p
zU(#I@tCMK3r|mv*FZx~+ZFUgKF-OnvCNO?$2fr;|yJfN`F$nHUW8c1f!+=p}ResVq
z%?se)sNn7lmzDtRiwx0~<WoKoJ2*R%S1#@6ZG~Q8g{XJJ0>=#uA}AsE?zP47M5KJ&
zyThxqAkib%ZiBRRkiS&s%OZ}Bf#Yc^m&k|oLwJKPztE=q6*QnF)e{S~qmKLekaP((
z`tZX$J(qYRtd9$yo28{PdWz}^nUs7T7rDL?s@bOpxBq$p)KOx|eb8~p*Lfr1S4>5+
zT&+Em=huDYHp6-0FmM%Ic2~ZKKxobw?+pDqc1d)A9KAXgQcIz|MtXW-Jk3o_8}HF?
z&f?Xz6uX{TyAL+!A7OE!V!BW99tw{7<fy>Af}&kIs|jjEQ~I*?N3D~&;27^x7K<qE
z`0E|YkQoH=5a8!mDCVu4!<}Zr<XOCC5=j@yp9%>Gz!VLNaR<dRq~?<QJ}UX>`j!xa
zBpH~JScp>uS<PTd)bth}W@18x;sVVSp=WL!f4bikS~X<_MaS;Df1i^@@!L9iiU}r{
z!yF$9$z3BLAe}vO;^rEK<O&XBy5G44yrFdf<jeTNB$s_{Y|rKN<TjH-v&d?wpMZlw
zY>UF$Bon>Z1>`axx!BVe25c&^2|+!sHwHi;3E?wI#{1xpN#bp!zfp;%J+lMc6Hd=+
zq8vPQh^HKq2;6CGv}O^x%_9Tz)ITx}<_7;3sGf?Af2Rj_m53a=Dx(X@yY|ki4jrn=
z<)o$_<ZU_gle%la8f3ZHk<=YY6IQPh<&Dq$s!tlYWzMJ(R~EUd2cAS9=SKt~fO(fZ
zck(WBBHICqr-+5li`AwET#))Bva$?S-aGE1g$(<~O=H?@snf{x&v)h>16@t5biTi!
z8Qqi3Dj6jrZ$7@MDC|w>CO%T<&!2CvqRjgxcRg-TBy@dHK(x9+8;&oI7Cs)EkhzKO
z1sU(9zg)^YeMp%?<${&W2Y?Of*~|OP5&@A*DqnA`*!(0pc{^dDiHBNq>BG-<5HA%F
z;s`GC_QB^)G;i29dxNFqQ@g_M0%Q@TaeaM#Z%;{>d?6CGq1oObZXGpw_obXD4Ke5a
z^ef}T#Db=dC~wu8y}XGn_rVKA!INB4k>p*m@U=ScnEs0<d{f7v9Xp<7W-1bR1yd&=
zU<YL*)BpX9U$BT@IRO0<*&fX>>e^XIbknTq?L<IA1efCCIl~c5DD2ph_Pp%qfh=v!
zlhD_#*?VmPfiALj&QKx|O|`l@5d}Rp%Jqsr{>QsjZn7GPgm|~^qI3D9-NbY4-@W_2
zuaL6KMXCzCcJ+pt^K%5}hfQNlOT9Q6f#U@+ktHwtOHw2A=Fb=I^@f2orT?+_+KX{D
zrp%O%G=s)d8RxVv?0M>RhZ<MmuLl{*fe4Bi;98v%<cF`hti`9XTw|9Ec)NO67@#&G
z#p|3jHH$?1Xi%7}(U~!FPB3zPU=FATMn>GSS+dEe_Cf$l_3V7?`>%`?_CYvB-mK_q
zpV<@(QOIAP?z>R<KBX*FHnxZ}*63_R^~ApI_^X8@$9=}m0MjZ0_fSP&{<c=gi%n+~
zh&VS02nY}_{qD-#zkbRVrbl_Q^C_|tPJQ*AINDRNoPpRp)=>-&D{b3_PY*=ypLapd
zeQf-(HE&b&o%O9=1vmECj^Q~5tF12p4-*IjZ|>Wtl$gqf5b+lXIz9_M=Uomn8ugA=
z^78mop3VxXez|%xVqDU4r?*PcdXuX+@n-2!iRHc3S#)ATye2E73Wy>aTyzlTaUW93
zYaGgV+kN=iSN-hSvsR+K^Zw|FRh5r(7{ZC2Ap4tNzh6Wb^yS^lTu_%XlYQsY4f!*T
zekn)&Jx1{)CnqPLtv3GkibC8qZdp@y;aP*4iCNxJ56@kAz|U`|sk>Za&w_XPTVz*A
zuWIj4Hr$?;T%{{*L9r^=7Mi}~T$!aJ?kGRJ)NuRWrwzyA-uOS*_;|^aq-IO=2OFHP
z2|S=HFc@M57Pm6W9x8a4MV1w|D2p-_7-eH@Pw(7eg^o{I?J`k36It%OLiuZUOQ6z|
zq@<)``uv&l2E`X&`I!)lEyWgzPbh1<L{z~<C(Frj&Sf_qH#9WtoH5&zZ!XXHM&J5)
zy)-G+;fG~;#H&0Y(Gb+<kRT3R;;q4C+>^%h6eOAkiEBTK&@3Gp0z%YZm(;v*dS(N6
zFW-ug<-_^yc2M4EsOJ$$Fudd38)s+!{?&3>{QW9<8=wd%EjAeb%)9r-lOsNm^U+{T
zFA8ktS<3?<Pv&M3p@6CVOvQ+Ue#NY&_Thfw{iKc8@;=vfqS`CCw5aWph-C^6K7lwM
z-6x|ysxdrBHW~t9%uYNaf`WpAqqfeZ<N;BqVdvl9NUP%5i4#1jE6Eff6*)5VS0|o+
zm2j~I-T&c23Wd56t`{ykpNNI$iZ~owu<Dmb<)*w5jJVET>{6!C5x$4Hl=sAy50>%9
z|I_n77`Tmp7Pf5sqp;=Rim7#0+z~DAa;(nPCJMAHX<ymA9O{7-tOgOI?U0jO>6Z3~
zaY@_Y^41+=-)CZCLQ<DdT@95jUiHgQBnCq0tsQqpVBx}r6OK&RGIv<|<nozQGh%_U
zi4hE(m>5Lt77}%1Ib-=y5e<DqYUhq5(ZlCYbVP|E(pFyp(6MsMnV(u`lNagy8-`M6
zEk{ZY&Lp4L%<52KUMJ||<3}eI<aw`?jWpO}#8rH8_~FuA==EEW=QSdV{y7U)9qYWq
zo1V#MclIy`AYMQ2WqFN>*phaYR&oz|sQ9!dSXF@hI9Dg$d?`N0mL)FLC=wDrTHj*j
zfwxmbW4YYvJ%7MFGpwZnf*7xi_zId5Zqgni2A1cqe@#*K?FU4qQ@8-}ts%w5#q<BL
ztWl>2e4G(EOtfL2q|!M=@9$5a@mN&6DKy~6y(WNXZo*ci*0b<n&nXC#?KwT9lIH3k
zsH$uemI4z00=234YU=9ha$x}^F@$7RP(G1ylAI}VhF%b77eekX0#HXbAA)u0yH^qE
z<l|!A`*x;m*SsTnwaH@d-n|5a3<gI{J=@zyC=ZfoN3G5B%)2TdQT`%OXHBg&9SJR2
zI6A16>zZC`%2yuvZN)vij^kn*oK~0H-i7uRzFb25NleT}Duu4ydV}u(GE}dovTq>^
zB@t4*0(tRRuvxV5fcq=b??cOW!D9Z(Eq+ASDg~AP82};wzC}vCuhWM<ZYB}d?V|H;
zPwuK5gwW>hz0nVA84{*FJvWd`6d?x&j&>uSEDcEMI?aD<i4xc4hi8?gXBTBYDg0c3
z<R<7U{V7&jE;O<(5`=&u`8z)lTl@2XfLUH+?J3|=%q=Z9Ijzoq@gnJQ?OMKa{tSI7
zh=lcfw?AT-b2RR~c<}<v`qoSP_?}fkd^RNEf`GX`kz=)LG8AtoWlP`uUUM#3Hd0-I
zkb1P>8|zGleu5D+_JnFsV%C+rhnC&CFL}L2jL)EYN@i_X$>ibRmiLry$()^AG^13>
zeyX#7puaXrLe9GOR@5P5M7G&>ywJu+HNNn>CP~d^vVW)8xm<U^592gPB?Is2(ZPDF
zL<G2~plV9A*~7yj<svF~UQ}0A<-f70BneHcv_9nRTDoHsLG6>mGBUxD8+h!?qq45s
z3NC68yS2V=By1WftJ$#8V&WJi+a=P{`suINf1KGU!Sh515XkRnFN+cr5Fi;qQU*mr
zI=E^|(lnt3i~lecft#^Ep(Ab!0n%vf{?Hf!7V@qUXPW74^mnU=?M}*vhKiA0{vd6(
z{ozWwd~QrVQulv7En|4KQfZx2ryMNl$e4fk2M!_r2D%1wFNLrYPTQ{d!&T+w<+qFw
zQ9Jy7XJf!5^qy!7Je*PPk;go)A#(b!Pbbw3UK1g?Q>L^&+nkB^sUZ!>{{DK9Rr=mk
z63i+t&I97$+M1M)%|E$=C<nK>vwFca%2}T|jDoZBHlCpwISX4yv;p9Nz!ebC3INtZ
zlqfiU9%1VvUBp${b!GkA*S=R7YpCoBOXkh)h?%KMQsv2`3TtgJknu0ksw)T^s|8U%
zEzY|~pGJcB!(npq>t~YDohkEFFFQximrDPMpjV=()}!!BIY=!SNoKpfnhA7NV>Pg^
z-k@+I-@v(X1qnvLD&zrJ3Bjy3v8ZYJq!bVIWpB}Y9^&BH>-9%Mi5TFvq-NH@@ADyX
zMGQyejB75w<-e**qEUwf?OM|N+BMPyX$v+y5P>=_clZVC$dTiBB=fiaFi*0M8*w|_
z>1a~%fdH(ubk@KgB&1fjrQxIHTZ>qf+pe64#v%N(gQtgQO@<!U)Eu|pSGdAsQ4_TH
zts%?26?j&$a~mcULGzcXAz0M;+3vh)=ET8DLx>P&<ORLVzx-C?g*i#LgI@x)CeqG5
zV!XTfbp93=2X&3r;Jd|MzmTe~LIh!>tFT)<z)9a+?Af_@+ojeI8#Y_9Z$Uw`#bGAE
z@I3KuRuh6j4HJ_VsWJom5?NAd>0s_Ie}OkuoewT+Rq#f%i@9O^hbB0tta93n4rw+9
z&R{o<t#k|FUGe7a@)>>K#;SOMEQkmvgkQ<-*wIVPiHYfwp1W!D_^;>4g+5;KdNEe;
zv8rDwnh;TVdESw1R9McthwZr=GeXR}e+bB){aL^IKX&tfl)#>N6?aT26iU~-cY8wx
z<>ln4898ei;|22bPV*4Mt|;x-K4Tztd#WcR{=f_(CVxJzyZVPF5RQVcc=(A=F-DJ{
z31)QOX<n4V7jgd23;+3X{i#Si@rUjBUwF0uhi?&+Y%F+egXWz)@IK8*<M@$s6C(Pp
z&GB?6LZKX(SSNEaJ*xF}NQtF+F%;4tCcU*ugTF2I_=!|`!hrXE;|aX@I>S|$4M?HP
zG>4U%*vIma3h60l5jb&3D&u?zYqNHo--^xJc|<KjC^{&IFIVwOtIG{M*L~dzg!(j4
zanmBO5u}{S7}7C22+N(!>4?Kf=`c`0{%W&u0g@a8xX1&U)dKY9Myh#<MJ3m`k8k1a
zcEyCU@3SB#GGF7?`FJAH2<~o?tviHO8o)ayfePzLJ>AqWUdvYBvFfy4^;xt0C;R-3
ziBJ$yw9D1J^HzR(nzPOdGX(Ou#m{diO0Jysj8OSVXnS>aB1X^FB~@a4yYwbK-;!XL
z0977|ky_ghCLBM5FB#J{;Ek%UYmA?XGD|3yqC8pGk(XFW2Nwk&p&hSVW#!1T=Wn9R
zKE0!#)=RSq@XP&M`qtG*zo@J4*s%jpjUxL)6P2QOI7&6UYFgjDFO~LbSwoF!_rKtp
z_r8mz39ebV>X)}Yi`|a57`o>R=SzL(<AmS*G-os=>NcvEGP5YTi(Q0;F_I_vs*)?2
z)u=C3WBFEiFyw9eT3C1FNCaOUj^;Qd@L6=I2;V5g&4Ox#ce%Ng^{0D@4cxz%?fRor
z>3jMeYq>BZsf`w%+WtUINO4#>dZMzq^-_k^sfS0WyY%@#m%7W1Bt)p4T&KBI^Um@N
zp-#1|Cce)<Yc9=w>aYjn@LjNasenLYF2^mFf`UFviC^#ksRa-au)X$<63`TnR0pXb
zh)+n2iMf6xOwKXs^GMz2+GD*-`8s_t^hDLDN44O$jKM_&`pI)wBm#SVSg~6z*)dkQ
zg74X`lP6E+vPDe6m~8v?t&bFi&Qzm2mAX>BrY8;dcgv+A@P|v5xo|kKiWfbUN8&9P
zA)xqJT#WT936<SSb>&GFiN3TmHIuiZ^_9$7O?Yom23TqU^FFE<XzszUR~92nhf<Tq
z*wmR-ea@JhHABLHB_xtnQUD+%)D*7dMDjuqB?3#5Y||DNVhC{^(prIUK+v;&ofVwv
zAQELexTB>?eIPA!{Yg~;cM1uDmIo$*b*6NZZThnk9@&I~h75b>vuY4yl4`TsD^)y?
z<6s!|ql?6os<3CW-m02+R?-iL@7zWzLr9&SF@&w8w3#Hz02a0q&Il4zl@q+Py-R2G
zp-&pnOn)wyW79`erKDJ(5P_G`qgT9{a0^tJiQG^8KWtL}9w7heIsbbub{+h`W-jin
zp!sl6Jt_I|<7C-d=@L_a5>0-InlU|`?FHz-;WE8j`ryGs5*wWa_};{-ac<r%IuC2h
z%{;MB?&8<CUR4VAqmKDf{633_Bpa;;R?-%9hCug_#d#zsyGUqxD$iIWEY1Jw#gaJz
zFc*^6r)JS2`UpiI$#oo=SB_SDJ(Hlynsq5d|I3#z%W(sFV);<nB_L3NU(l(P&6oC-
zdrKPH^2L<n5~i0%Ok7;=5cRtz!@DIHX!i=DkH8+1n_QW!>{zy3Z+N2+xRl8&O<%sW
z?%%<;v0Ti1|ErfTJBO&Mbl&m)?^Dh9&+O!nH{kJixo>Jpmp<4Xwb^O)v0og+4oZlN
zYu;J)0Az;HhVX0e!~(4+(h<k-P2T`JTRUu;wqMg}Z&Iw!WzA&ovn*-Hk&T*rlQsj^
z7nTL{R^cC+xc_So*MHR)Ij!CM9ZT|mhLN{Ax$+i}wq$@)2b~13hmO8fh_?-D@JRBG
zFlI!cg4&MbdGmOX!O8T-H9yct0i-q*XFVLHq&()D&?spQmkyDDda&7Fx}di%#ou5Z
zdB9t#@3RE#{teD0f)ZeqKfx|3)gbaB$DZmHv{U3$K3TvzKxb;GoP~nplT29y#S`%(
zX)FWz36jmDmK1U!AB7-T#0y9tKs~iTK&Z+%48_69;^L&W%HI(zuny^@;^&77(e+4v
z>RHPmME3JLlWKYT@A!&@AJ+dvn2Q)B+_Cy>d_S+86Z#&fr}Yk+e?_|27UEn{EbEVp
zW=tCE@b7Xba<#QrSPf-&U%b0wqL<{4Br7Si%l734o-hZkR!nEHebSPWwuy_QV~Q@N
zQn|dO?Na=lEI|CtiCLe!y@Z5>bQ`JCuQo{s$uueC@QBLYv*z?pL}^{&uDdjAvSzUh
zpT#NN3F?NrV6~GhSG`k_Q{Twbl@2m;xRG3?gTMXgLVFz7TXN{Ny=c?@^C@*xmozo$
zDY|dca@1m^gqH|vDaMie&b_-RV(D~Gp%S0lo~{qakB=7l`=elJ`Kf<I#4{*(dh`)8
zjzp!VT~qVr3(?MGp4oWJn(zS|^+1!-r`|8&d-DPgiq+)K1Vx%#1ls8a1iBUw-MH_A
za7bMpMTxE<{Fb{iNh1XC+~v<H?CFb@ME0Pb2LescQ$inFLv?ku1b9)?&Er7KwaAzj
ziG*^kYS3;#*E+@iRKI}6nu@<JIB5JAT2Z1r#T=b7jY5HDbR@zacp9Xdsbe*hkvfDM
zNr;n{709q8UHta@10`o065FVg*D(gqN*tK4h|`%~6y@$q;BgmUr3ulTFJ-JXKx8^-
z?4YYJ4{)0fR^};^1$u=q5fp$Vv+0|)K~(<itVc^4P`9whE?Blx37g_eTW?a_+tg>(
zdDoY<u;{iyB${2hRd+dQu|sN8z;+sgF~-5r?Oi%^_Rf88E4}@);OCMb4Eg50Bmc|)
z!LU;)Q|5Bbnk?Q?_%CaVPn}Jg->F3kZ#3_~`#4mfBuxxy(=sTzP#_<K>R`bPalX&y
zP&V*Ng4Od-0lbQ|OSrxHyPx6-%}BZ&sjGX8#u^2n6GGaD75oOLb#?38D6_M&U&eiE
zySBp}=`$1bVS@cYCL_;>f7Z-K93Fo5=FOLmANdSeXqeNXb`s&J$BSKRrvG6Yi0~GC
zw^sVDxpcsz*F+5RMQ8@#Qu#iEQs2aNO$K4f`=d3qvxA`URm8=Si9OM3>0?|Zi3pVT
z18)Hp%l>55{vp5hr!#sLS38@pw<x*JnpcaB{dxwKL)LWaR@`tY(NdD!2`OtqE%XMb
zhkVaIEtGFqLIh~~9)tOID6?BZTf=w4xT8bE9tVV+OG0im=PlE^i8eC()&*}oadp?W
zA6)o#lVFcY!zM8#8XDUsNVg9hM-#+lP#2(mQ~|QKH;#+*ZM;`<K_aYVKRFSzeU{fv
zObluhF)==#kE13Oyk0A?Sc<mg;K8X%xe>wd41HEgYAz)`(uklE`ji$@U6j=#!t{eG
z=>syW6gt%fawro>dO3<<=|*0adG_1e{r=;62u*Wo;9m2=?~BSeT->__UAK6dA<gv>
zr&>4t)+GLQw)s2Qgl1A)eix_}mPQ!pb;1$RV-l=RKD2|RNOE5sxWdk$(8b$HUnoG~
zogl(Z`s!18B}CXn>%U(0%5(AbSxFkVh>IgL`1(*f_@UR)iZlIraA%o?OGYHf8}%-5
zH1e7-Ra-?)tNRvy>0R@Q%uYZ6%2m6{Bl7v+sr+I1_;%6Zm>~N>7Rw=VNvFoAck|0H
zL(RwI$w{T+)JU{iKon;rdYi}i055}%*gcTQanZ5ic<**RfH*s1E=XDv{4m_`zJwn-
zk6;|yQ;m#igPZ8hk;86e77Vo&n;?@j2pI)0mnI-Ul+C0;SJOnP^U919ko~Alw9DtN
zCUdE-4w7W*%_X>~LG(jX#WvFaG~{Er4paJ`)-;+hPTGLc(`<uCZ5Nu=Eg?N?wix9o
z8v-bh&I9_;^%3!$aR}Ig5s5l$r?ifvJHP#nG}pUvY~iuP7~&#yTe|@zU*Y&*%b&ev
zYV_@okozQ{h1fU}s%C+kF)|%qcL|~s5^q}bjwqRVm1*C6#Yn>&BA@CVTh^%o)B0%s
z9OxTK{|!GskaMJB1eSr1Z_>a08%0x7lh|&al#BFmAelKdpL^z4#h-oT?fmk6psjSg
zGN3>3BlVio25?I#AT{#y^FtHEg#3+bd~!6&b+Ov<AEiO(H0_H6E&h}7?|=J|2r&pE
zGU86w<V(%%Tub&soPNf3^yyee^p*&AdWUM57!;|C^gt^>q*8Dy6p=dgKfMY2K|M>s
z@jcj1RO16f`5(_J*GexE+BIKDSlEO!H9;CV$kEZ?LXI@vF?@xIeMBLZcf?QlOXsX2
zXFD7uX};8to#)8oNfVsGK3i|4NPr!pE}#0g*xN5aSbjfJ%%r6Qyx<z5aX$Rumv@a8
z{E&cuB+uuvY`H5*ZidwL9@k#S`7LKlu%zaRUU8mv>Qw$iHSkaH^#2^&U|tAKDN16M
z!Em*pDbz+M1%V{9>MsVQr(jei(meI?o}<;HUH*)@lXE=<`6d@3|6ks-NM)ql<Ml=8
zc}FG(Nf*H>-v6EG>ou1K1O!yn*4ECia{Lr|=A^T%TC}9*JZfU(DZdud;DFr%R59<2
zL9rs8+m&T(&{Dc4O*+SyZ<jYQ!ERMRy35Ja=gud|CNyRmv0Qj{!P3V|oLGg{a`cwM
z&s=xIq=Y2qR=yD}(|jpd6eF_q0s?5GQBhvL1o>A{tOpvW$lTCB+e4aP6kc8HZhXXj
zY0cdFcG>UvJbeYS_;w{)02tY#^$culooNWkcf$Lj_0@(8XEFUTyy27(6(AwQap<wO
zq`cy1aq&oqOvhWqxMx0n#+4_qRry9jiP#9*gyG1sJecWbAm#wX^nQNnD7d0GdchA)
z2>*}`85rClvZ(~akP2;{9YkwL@?_FNqL(@iR-3E|%-=0<8*KRr&wdZ|6SNBHtEbUD
z4moCn?dF*aV(&=Tkc}r_<RKrpEJNQWgkl9rKYHL?$QsLL2Efb_wcJ#PH^+>~@m;sp
z$Hrt}R`byOqxq@Wv^j|&NT)8+SFWWsSSt`ZNp5LPLz6-_$aF$Vk|vl7*6jR+G#+cD
zx_3PfY35Gnas^Sz>Vl@1g|E-O=Ls;8<=+OdSs$0OmQel=Wy}hQ)&$tpE>A!sk9bAU
z5?1!KK>a9UP0)F6DKQ{K9+8BTn}?bfQmMjg{fM&Lu?ODgm^O@{PB$*Yg3ao)gWRi-
zr%+e8be;?d`fxE~wp(JNBfA}@DWlQ%>zz}j9a5#8+dOFY0kldn+NFllEMJEXM+3i{
z`Fw9A`1v|#BQ<(JT>QFUtFPMBInD%;Yip`YVwjpBM8eo-G94_u#1gZH4kn}MW~#>4
z6ME;hTx8B^#Vj5}-4~{oGxA)zFS)T;Iyc-X4IQVPdM05+Yr1oYOm@mu3YHagi*-^X
zlzYL*n7(nt#9Kt8>UBMWs=ml!Ojbp=LOi<sWuVumGre7e>7tS2DHnDmXW**z8`qos
zv*t(wef5-&IgfT%6`?KK=k6S!-NaU+>Ig~Hf)vbm@^_f#NLV}vHoN>jv`_70gLP$I
z)O@+dKDOrPQBIVk<`8;Hy`cvIm`7SOa<UsIl|Dz!s}odo@9ht_)k(B-W}D~)(r@SJ
zb=ElQu%-CQ<s@AAeGIpuW#rTlgVV=o4<X83G`vLG0sRniy9PL<6WcgugsokJ_FyWc
z-3+Mf?mejn&ZG$}bSZ<{HEJW}dwEvT5aymVjeMGrkdW_0qCyB-on!CYdiLnqecTw`
z8lB(yD$FKxV<{v^jghvhLKBem1fX_<S~3k0Q2`d}8)^JTD<ow^Etls@nLAD+p-WWZ
zM8c3tOYA2;hL}<JPY0U(nwV_TDu^UW8ofp^0i<cIv+#3{wn&#&$%<rYht}Gws*F9|
zeVj9$HKUP}ISct>bb9}`ny-_MFnc>9RY~zXyjGC$Y6EX)4NElFfA)|(Gv(Ua1aA}u
zvF}<4wlqP_4WWn9dZt?qZHOX@L{lRx1)==ZB+^`O^t{dX5A0V@#@?2MP~|`q)Z>yN
z#cP$EdJh1cgh2Arsu3gNRC^Blk0ev?0P(Fy=EcI=`Y<Bw`@NvrCp>Yo?G0X8koJ{d
z9O^Bi*Fp@ag(S&sU<dR+-dLAzXEGFPG`$H$GOC~3e`t!3WkB>+ghvGHOQjv6qs3s~
zX9BggFlQlZ(PS?lI;zlicWM&w?>vxWpJ5>~QRhp;6(*Rr*jUM^Nk5NXyAyJxcsnG4
zY_{zv)o%6Xba>w(_2k|Ln5PpEij&q83hfU}hS;RDC(R)|u(S7vrv8y>$u4~^7i~K4
z+A2XK*$NTEVZ?U9SkHDg=|UPz1S5=oNF6NFIMm6Lhx%xhf{OONdm?Pj7$)<o#FXqC
zSd%td*$K2tXMUgi0OUTRX_)yb>3;MXYotsQ@z&HNGC`@CQSG~T14Il#r=3=714udH
zL@a}|9v3?)Rrrxy4U!iK4eB5t^k+|0r{$y`D(6)j<vYPxeM%$0s(Kzu8W&GZqSH~D
zdmts^q`D*!h-E5e_;n9t4z@{0q(TniMY80|dg2Q`pkUT*(1G-6J9?aY&;Zex)i0L3
zv%(<`gc1)s2yIBS^X2k?aG_O>1wXT&<}QmGS6?bn1e19O>W;K}sj!lDkog`G7gxYG
zqsQfDbH1El_m5mHT|+z8L9ZKo5ZHOZyZ4hFy@#eUnAvZ`n9Zkq0ddl!!s#0CX&rTS
zgu|+&yr{7{3eD0c+QiU<Q>4D*w2r|FTX#AgVKS1L<n)2nfo!nfI-~JY)oGo47$!Y^
zXL9;NNEt%mkL$zBjcE`d<>R=b=nc8rPKSl4gPQ0Wm-il)AIvE8OsHg=+rZfl20CXw
z&37cYR72ENQd~R`J3u@79+6BoI@avdEDBTeBJDINqQg*xokx}_Dc_M)5}~VPYc6^&
z_|jE;6A1lX=EX{ZLxiM1P9v~lMRwH~Qj#r@EJNByvYVt#M4Nse;xM!^u0kCha!&ND
z!LxePF>9~(&ZmgbqD#|`xuvMFzVx_hc{1ksyjcdRrHUm|aHJO@)J<rKu=L^K3u$s!
z<}MDDDN{zP52@U#p+zOq3Y7Xcay85acii0qtJ6YJeG%IeIyaX)9>lG+q=7FZjiJ@m
z<Mh%JDrHGblB<lSoGTMu%{)5yiglMKNkQHsH+B*wAB%59q7|H6hm;EXiqRWtP%;y0
z#6b^+nhSJloKdc-O=j1Noo#nd5@{Ck`KSdcQ*$bf&Vr8K+}yl#$ZlRt+9U@??><))
zy<GR9kVFK!nonxrsgR%*_l}1~@eYHe3gi3J;yGXL>|tG{1~#7Tps#j6=-nIhhaIz6
zPjJ+iS&Nl#8L6VAMwcRwK|{NTv-sul@mM8|bm|M9DhV;I#>XuWpoC7#wCUK8<|nTq
zllB~s64%WgJf&BiU=U^`3iJ@2<{e8)B5WKR5snTQ6KhxBs530k083_`+K8jUX!j!d
z2gm}jm@wCm8(XNYRz_^yo2#~oOJ#OGNk`F6%kvOJ(xuzn+WM1Ps1X-*jg&}qxmzq#
zesLWE-*ECMZVK@xY!Hr>f6c4-fuw)+rpMh+{KK0f>ltYzDr@;g>S;x&8j*T>(BNK^
z8mFC{Pg!bpnH#8_^&S=|zq<1%veIc|NhgPI(YA`j(3Coy(66nXo3Bd27{*S0sIKFj
z`jAszo#elI(~AtX{mWU73;7%(!OVAVBW*ETAcidQjwrd{ygHzIszO;mW1>Bbc(qk)
z$9^p7NcX_zbRRiWq9LBBoBFDeRnk$t2C4hlKB%l3+r3~hXXH>MhH(mFS5urzO?A=v
zjmYh@(1Vz?-h=tab&|GCH+Q1uFXw0<O?ve<V|A|yWRgpaf&-Nmw|A#JbxW4sp%XXU
zxQuNA1Ih0b`7>GcPtGVRkfMYXx4HGb&^CDZ-8rqADMmR!%jBXG3w=M6)UoLV)B*yA
zfawDjMqe}P3{;htkqAY_y4;4(0qpu@h=fUi<u}vw2tGLvjDZQV=A_9{@rL(MJ|v%H
z9}S~UashOQicx*h7jQ}UOR(qTj7UWWtI5Rem6}sWc6_v94d1S^fi9q9KcwPGVJ1Q^
zp)Fx0RHb<~z=9JOzXJ7kCe?$r87el&xLy~TfbFM>@CoCCLbyIV#q-@B9n_A@_9g#D
zfHR<2o2}d^DFj|ArC)1FC+KbBc0K9j8^(szS<j^H<Grm30KqqatE9P(?(#NnvF-LD
z{o%tYYYD3JXc1;~e#xnP^mIBG$H05|J%JviO{{2Q{92Vd!O+dE6He_aFK$gI9b-~d
zMl<K|xm_cBKmgUHw#L|`*yHHOm$CP0CI;S2u!^7jl_Io#)KWP?hhZHqMs>9#+Qr6b
z1fD!hS|NH(kY3}YSt%*+^muSrQq#IIQ&!Y_YH%mqy9p-4K((5v%BF?}3&q3;IY2;$
zcQ^_BNg47CT>#PcPeixkH0F*HfIKAmhf_^c>Rix)wFMoUZ$3X10?`4$jtTn1M7$bH
z<a9$KNg8VsrOJfx-nE)b2>^o~&I21T_CPpx#R;=XE?S}n8%1t6JqYV0K`Ki~2M4vN
zk_#q?#d!V7t8|PSB_6wIjb2UL^ab-HB$%wWa_Emm{>F38cIe>O5mKhu6Sv5AOqx3+
zJ<&#*K|Yf0I|W-tM8tl6QPaI<gl2)Om=Ml^q#{-$kRC?3k^ZI1o@go@^oO=z6kHiG
zDQIp;8XXo=(i*GdO+*~O9REWIfp#-%U<-@I%<!s%(1xnzatN~vp<Zl>XDQwTOn$S8
z82b#NxglmD)D&T&P?{nz*uF4@=pK&Nkn%D?Ll;z)S~sL`BQkIR^a-~y9CaduBx+=w
z){3raW|v|m7xhsnA+gio^nj?4A^`}9F360B7$HPk55Znedh4A-L@P2oK5aewcfA$e
z9!mBB^XtUsPc&68OSIy9WCp6w=Q3$1?6rufX1zkf1XIlj+L{nc%xDi4rKL<mS)NI^
z-`Y5^wd4YdaB;)}5D<)vCy}O^QvpwOPa=bZ_DRmZ-*H#VT*w37tLdJEB_}PxOz>ho
z4)Fp4q{r#pb6XLK+$8@50^x<E`n<Jj9&)_Nu_k4aM1g91FU>!)f4=SMm&1LZWTnn~
zZ)tVcdu&7w?-KaZ+0H1fZ4E)y+~=c|u%h$Ln~f$8V!E(@L5ZCzuXh4F$7M8$Jl(N$
z_Qf?EU;dwyj!66<Czo{lmN9Kt`O()a{YSKoI|L*pFN^*ZFF&wk<DFT4XJ#*WCv)Ea
zYCM%RkG#TEdK)G$WBX!!@ay!4o*pY38=FfG4kJe5opSp6`mHT35-o!}J32Zn<icWJ
zZ7R7S6CEABI$*!6yL)kef4`bRG|HP*RomOz)~2PUS)|c%QNVtQY(weAix;1j3dzXI
znu;B?Ow~<DOq2;Lx#Z}0FFQN?)aiRiql3R)d@$h=+0xRYRhDL$XeJld*44EUpTy^t
zl$5%hXc@V=WyVPdVyh-c#u<&7J>1q-NhXu&>g9Dbmr?fZ+c)Nz`^Ag5Qc_YD%(;T9
zf`-OMiUS1PD>>(vjnPVFnp)i&T5~Ct3|YPbS<Bc&Wo^`T{CcFaYe&S<^+k#A^I2nK
zY046OKFs1pGylNIo*!ot3|E)V2x{i7ohct#eh_9JUmH$QQg!30Dm)c7U$xoXnSZe4
y@%R71kKdj72ThJ`_>I>(^U<;I{)0E@ULP!+vG-E&kRBO^=Dwrq344CM{Qm*e@CMxg

literal 27660
zcmeFa2UL|=wl0cVmQ}{445$cLh@eCf0m%jw5di_oNd-i*k~5aJiXu>gfJjnMkt{ib
z7(hTk$*?6zP8(#C^ZnMg`<y=So%hCh<Mg}Zj(fYt=thD6-~YeXTyuW&o8O$?JFg_S
zY5nf?3=9mL<j=^eGBB)lW?)!z`In#Z9ZK-C@A&fbWd%7|e8qorC-c4V<=1OxwCxxe
zSniVlt@7_3H(_Ad%OEd%{DO1%NSn(eJ(EzG@3Av{zrL3}v+*w)r-B)_?$G|}=AV1d
zXmRe{>)gz8T=wRHr+aqo;;e|?c%S{yFFViwcE04si8F86*RN{X^Ow~pZoIzz!7`#f
z!PBd!DP;7y#Ndng1e=+DJ0&G+heC(pINg~d^{J%ncHKu+SJGFJM>{sOjVX`(fq}vG
z^qURj>z}Ht4anCUkAC~Un*8DUqZ>@*>)sbX6_BqC2lscbC11}RTqQuh9y|N1GyQI=
zXa5VgIA}NBVk+n2;_@gYq%2&_&bDY-K9F<&uou2<SLE4RIWr-@@|i8Ne~a|&UUPHv
z=z;=C&*}6ihi1;Os!}Bh>bBnA-toB_uOfe*5ySa+c0b>`-MtCVFZU+wFdrY^m-_l`
zii(O4tFG7;EjK!d3JdqTw<R9zsNq^V>E#?*Jl~K~S`ow(^YSI9lGIfFX3Dnh+dnjD
z8nWP`@mQIqgMC$DO=arSY)jw7Zk4<p$DS7M>s-6DGty(a<*}IE6<Jw5hX!>O4UI-K
ziqv%TKF4;KesAxi-~PHa`o)VE%H}^|NwAm_$0F=&<;!bWRu=nZnDX{Ky`dvF(pX>r
z{)-%2VfD18-t|+mvIWcY!}5nV;)+S-)$NaRhvF01!>Ue;g!wMbbQIS)R#jDbj{dSF
ztLaa1ccztd87(i)F*08NcAF{LVbVIGaJrS}v_C5gBco}AL*vsuA9O$Vlbhw8e6!)u
z4Uc|_4*6hZJQ;u6%bc8}{5hRBy}h*xoKpi?v0ukzIPqFf+dXF5X6vGsw=pv2Q?qm}
zbH3ftFQPt_V-4jswEuD{mmh1(@R4zqz#9e!idFXhO4IP`r?ai|zujRj6`@#eWn}bP
z8aC{vW_MJZS>acYS^whf)`{!ol`b~A(xR)wy_V<XDKr|*dGJMuxRtJ<VN?dQh^3bC
z;ZWh$a4f2PSc8{HTWxKC-b{kw68GFf(ZVPt`A(yk#K`NDA*?o>f%g{1ie;2!mL{7o
z`|w4_$8(qZu`nCX*M?l49%*4|Y|#xp$I0qB`|W6dxZUOKHb<Xt@9xT-I(6#79<jrY
zt!A;awIM~@if2CvbbVkl9HH%bmr^uuuID+|dwt;9-BK>;@q5M|<mJP!m+rdWAK_Gb
zm(8>JMQfyU*S(zYZ#Ni?70&ogHR=k$953Vdd;*ok4_>KyvVCf5s<7=Ri_D89H*;pY
ze2i+J%a5n}d+^4`$9DxrEgFZr4#f$YR)=4;wyqvtl9N3mEc_vhVjVW3O!iCMCa~PN
z>&BYRXRL)>Xgvkhj8bN`&wGl9p?PZw%S=T$weRAJa<_fJA|ZlX;@z{ng{qJ4i^Pg<
zZb~PgN}di6?DzZ0JMTX}+}Hj3-DV%{^eYZ#D~6Qo`67jFre3tbD2~dloaY8;OIhOM
z@3#i_=8qNSQ?kd-h=f@+ZE0v|NSYAI%*>=(r;FqcN#xPO9WuOnV~X`MuBzz40#Yma
z^JQ^3$YO4mn*5y8_r&7zVC@S=#xI{gf3{}srR8uNM>QGxebdNo-!a#Gm*(*xvr%iH
zsl;K>vSY5BZDprvq{|ie`MM~-Cr_Rn5D@S$WAk$NrNn;AHPA0wxWD|peGS76CF8-Y
z?K~RB``DQoTkw09oPmQG)PXNCfmw_Xmp%x1eleqzvAXe^IZb|%b87DUBvf;*^;4u&
zewzbM33b#$e<iEsN|<n?%%!(~?U~0%a^^daca1da+7vcUjTB5&x9nF4w!c1{M5z=g
z4sSCKRLomEdgasO)W#`3os0tuEj6B5mBSY1=0n${aK{#0CoF-VJ0ufd;f7UCo=8om
z&W(HwvndK~!?9^{SurYoP%b_3NoZKl(54WFxuvVCtH*OJw?8s7Yo%n1=bsrYf|q3-
z=V-kyNj6hUbH1YOAFVUKoVI9l#0?E>&xwkNTp>p^GpoZYyRC8VXx@Tk|K+Hq@9(w*
z4p&xGG`1=`T*0X?7w0_p_%oH_#1UAYk>Jr=5j0$&NRf83641>ZA)D5lUu<b+R_=*I
zuRT0}_Uzd-r#1)8tmNe6whlL%dkR0Bhk?^nh|y6)3On1vd1?PtcdNUj(+~Ai=d<*4
zu3d_CkeMHdaq)UEHzGi5)11tnVP#-Qlz&4x*<I?Z(EgcUFX#0;5uAkf-8P<0I|7Jl
z3~yweKipYJtKdmLd3Q6lHm}r|ImF7$Y_N34NHflCR8n&CXk)jQ?inGQ_5$l9p6H1i
zPNffawHY*R68-wRv5XS2CDUJ$b|(K&CeKRWr_l6K-*yEd)9Q1hDT#@^3)2)Er{-iU
zt>*bvq8+WHH6ezcE+I2X!^!#ll&@dIBaU9b9MVc2$s#F6qQ)+Hx+T}HpR-B%$&olY
ziVbX(IvSgrnkqMJ#$)(REqTFj^yh-yQ30XQbJMS4{Dx>oxn1{pTJ@_>y$SP|PRXCI
z6bw(Xdg$+QAZnFOQP#<#HSK0~FHI^dD<zV~Q@oZe+S!bX=6&2}wl7T;u47=JhDJZT
z>nAaqV?6ilF6+?isu+LiC%pbRt?cZGB22!%zARZ$(jKm91^tn3j`=SG0s=lJucuNP
zM6nz_V^%9tGhgj2^gBe0#(lMl++7|pi}I5TD}(ub&T(#q6^>W%q>zXakpZV*+THFp
zMs=)82otf=Nz}_d%+7viGt2JmueJ)ju;AUy%=-e%W#KOK^75RAld>;Yhl`E-+PLqF
zPe_o^Yf4Bd$}6p@EuKoU`LIEt;4cmi4iC$X5w!MeBx*4V6i%w1i;|X-p2@9AN-wp_
zYT<mT9L2hUiT}a;{Je3P`|P*7*Rj^6c;UwxQoWDVx^8We9{8|B+vH31sd1bhk-6Ny
z@88~a-(j})&hGG(coG&yp2y0{N^<h^NkQwcIX#YBxs*m~Gqx5Anp8aMiCu(SNnKf9
zNEsKZGN}yy@c!P`z)DR67n6MPg}0)`b5&Zowk9JuOoCp^i{#IU8Lv`O{AE_=YEr+P
zX5Me5jG%Cono-w<nBfDjku&%*tP8QzKR7t}s+rk6(RSy3elp9m&zDYak=o`jHLaCm
z@u^o@0{1g^Y0`J1sz|-Nv&kndEv<)!1K$ucHF;Zannmj2@G=da!*`d^6^;-bq$X#0
zoxmj=Cw>wYW=BkAm>C%nZj`E7D~Hy9>34W8v*+F1*B!T=tEh3yY0CBubNx|luz=JC
z4c!lL7EB5u{J!Tn0}I&ZKbcBnfoo}c{pl$KHDgi?3|fjM(Y=q{<_BW~AFjW<$M(!!
zD<!esN0#s7qdqK+`+J>hm6_`aw8+p;GnThq!XitssC;Qq;U|u?c9a+&t=nAUEeCrV
z7amVX&M$*S*!FwLI;S~L@pO2_{ljiBAGd-?JV4v^G8T$eo!9b2RAIaoOr&KUtMkQ(
z7=0ZbowPC*Cq3Jaj+NyZ2`frazYro6Otj{C8>`z$Y9pgI09MOEwU-=JW%0r1$x?3&
zu3o+R(K@#`xZESsr7x5^)Z*0P5jf1L6#h8y%We3U<;BbtkEFT<g97LA-7$Xxtwa#t
zCSe&>Zk)D`&HY;KbiJA~HN!7ix+eFlDP?p`cDt*Ee^dHIwFK92E{p?DtueP-|8YW5
zjJlKD_rA1ZOMIwk-dMAdKh?gFJW-vJgq5#{C{vl1^nAhSkU-hBqO4QW)6d-fI;)x-
zKhFHp?){O~{`2vO<rA?<N2HqOMtExJLB}6h<yC5`pvzWWJ-vd`yLZS24MrX|Ih&Q0
zC1NIH)tVvPDC#yn(lcMDEK^vwK&`yt)bsJ-@S^-QPf9^R-T6!STY28l(2#3EWNf5s
zyuQA&)YOHPp`qm7$`Gy@Df9YQN)(6Qxy3S><%byud3Y-M_4Di_W{PclD=bY+Oq8-r
zG#y0P#)c+F`E|2+$1*d_^JV;Z3!6u<jcP_EOaMq}TP$QPw0JY_6Sry#>KAKTu%wt7
zyKeo&di_0PxvO>2T%SS1qpCgu_X_onFY)=SZ1@){7e@01%+%D>(yPnrnwuY!AXL4k
zeRRM)s!4yTcju_zsHKnl$jP~l&iOGCl;1m6*=QO{<R^TtagbiPpHVQwz;JQ9+L6ig
z+S=M9#VgB<sYARU1&U@b=MOXS>1?YE5%Bl+_F9?o^2eL+l<{<z&4{}HtU=$YEr?e+
zQc}#&#Hlj7c!}yLQ!{#IxPEJrxrK$BL(~E_+c0f$B5I|e%=BjQTwhpVFR*{+!a)<m
zorjIjSmIR}8ON(7#$->PJn7%$P|26gQ3=;+y%B&hB0DZV{yw&vFLx0pGc~)MZ{F=I
z>PNB8=gV~`KrXY%fSE*9S~kIpaE(u9bi`>@Hl9Lf6%?9UUsCPY4W|@)j=)z~SQX=3
z?yqEX|9(8BdT->g$MjT_p>l8&oB(Tz>AOv$=Yl(2`XjKi$^b>K+#yT7Hl7n<j>Acb
ziF(7Xh|FCwD-$yLT4tU-X*I*=ykzd^PTA{j>k<}?n!g-15U-{r_Cg^gqD_6EUp&g=
zluo-F1H<e4H?o<EfI~SeXF9yR@`qciD=Fe*EvaR!@Fq1<GkS?ysnPli1bS$X4!Vct
zHU^2`_wg|zM%LTzc_SZqFR(XGEw*%rt|epLOGO`?clKaD-NxRjPhp}0+RGK1MYRb}
zG@3qt{>x0eo6Wfhap7r1jpl3bHpN6ovsYABQkL9$gERvulUMlj#O(SwD%Y{tpAWHV
za#Si|GH`xYHq*h9P*X;6q!?cRu-$_-BfBAJ$>r82ku$+Ez(}W6RKDm?G}YBJ^S{>D
z*Qa-}&n#FDyJs+_R`0!J#m&tf(2H>KkIS~tUowD~&AIar{k)arPi*aK9&P;&FaNLJ
z^0|Cqo=4abN&4BGB!JL6bIa{ZNz-jk9maFS6{lB=^W?h2LCL<4XOxYaeb2?tPDjtl
zE0m7q9SbAr%1Ee|rYYs+VkAF!cXvyT)1ZEBgNm1x+=VH}`mc@@D<-lidvI`6bak2O
zS-`cDwbx75GU29FmwFYs4}xWTwz^R>HSfmcrnOi~E=|^z_bPh~sTIb@QC(Azam~&*
z6}J!GqlwqGO<QG3X*YT<P(vj98UrIUmOFHe5)gTe=U|G%<4aCW!cBTxx5zABD_Epe
zmUm2dc&!}8gDxcA@v}FXRJlGb*Wr@6bTPtauGuspAt7)nS+vBCa{iKj%)9jmnLOld
zdg6;eT}h{UGS*JNzhoigIyu0fIqY|0$|d4pkKk7(O7ve+a@!g@rtc;17P@jSgz~aC
zx7x|@VHN>zw;~t|3SZ-tk!)L5*7o$6x4MnBZmizXzQ;xZjIyvY2U`k~0SRquiPbSw
z?ZORK`un12CSC9EjhC!rd;cj^sJrvl7VDWmJjw(1U#Dg^mHzeDt(V_>GmbBGta$oT
zQkH)|psBW6&-vT!akiClHjnw=g#k|&Ue`A_@8r=;eh|c?dD_FnqrRz0&dA7!mJ%0t
zaIR_kou;8*0WTk))lB-bw|Ahjbne9kwS>`jFT=(#e-Fn%MG^Vn5PtpE?x_O!v2xlg
zl^9obwW6u4u>oH_szAcnh6MjZ)N{iYD*W4{Yjnd-u)gz1<y+q-=XlDC!j%^<Q6{Go
zIqW{Y-OPP#6~m$CU!C2aA^-I|+U4Ct6RMF!&Pvb@t#tPD$t{Y>0z5nlo+p|dS=&37
zr?bmx{eTw*jo~}CZ{JQ}%41;*4U)J;pYrJ%%^&mIsw^o8c+Jj!xh2iyI#5xWvL`Lj
zF<XD>mfEo1$HMVi1%VIyL-YdlaPA7bBi%;tH5qzI5sZac1;oXkKlJ`K_z5Gp!?CHQ
zm*3W`482qgYaCVZ@%9$*nyXxLU2Z&4Stgy|8?4J&>BA&2I_}z9-AkFb_-j#Pgv$NG
zL5cZW4Kud^^Z48Nn=V~=HeaxO^^m1c@*bmGmn5DK3ihR^oauJk!f>NR=?z7}YE8S_
zXfBRRUv)&-BGL>;i>Bp|`}`kxtJfVaz=^;^1q|+CkA7<RXj=2bhYx~CdyWn~z12ma
z96lun)*ConygZeX&HPO3!i9Qk34X2DPn(3l+Se(T(}?@pBKiH8J0OKWGMuA?w#mtH
z_T3_DQ#hrOGM4@7)q$)wM@kRPN1&*A^p=U{%2MY#nE?kreS+*}N1ckp^sJ>yR1mSw
zg&!5<;ySe3o0eKLnpVkQPLo+4_h(Iso$^WWo_=;c*?zy)(BOgBqth%)$5m8R^0#_9
zWU`q_)QU5$Z|I+rGwaxqD_&Y##FEFZ=r0J*+e$p|-cD*JVN0}^8&W*CGqOcAI8RiG
z`orfJ>n~(YOiLs886QeW;fy(0>d(f8q*yE^HKl)`G8@p4PAe?Vj+b|^dM%DSS|Jnr
zleYsNwXmori>pdvWpScOEYAdIq`aV_FtfvR!9h#TE8Tvu)^Xw-p?~~=u=a|*n<co4
z+-$wNL2<~iN0!x_{Q2=O>VW$eqFy%qr@zDIGQ%pfd18Vn)j}=I`edV#BM501jTJ5A
z*@tBr^7ftheW75P(~81wSf<sQbyE2`mA>7T*lq?5#_!X$I4%K!(Rf>naayH7*}E+=
zdl*@2V)FrwIoS$4XYxBf6u3+T4Eu@oJq~YBS5ph*&92@g`I%%N+6GHp1BT1AkicG<
z#cx~27bj|FhKgGKXu}nY4x0K7>M5fsN#q1*OXICKI5tjZmKz@y1bv~EWvMMIyT|t9
z@8dx!?)wpFj7Goamg~JDSAE4vxXqi{Q86W*j|jfM(yqUn`h`i#>SPqMH;Iah3LNl+
ztTJm#V5P&A)(kVT+z!9dV$nLyo=O!t7Jv$*JP~E?c6N5|V{RRlW}9x0Ow5NJvG#G_
zV`TPqb6ZeW+2fib_Duv#&wAg;4!M8-ewTvbysGV-h2eru+Sf1cdBm`Bp1r*v3mTpN
z>fG&H?qDS+Gu`+y%=!s0!PjECHqydJj=Xm&UTEX@y%U#^;M1`*>QvsF#r5dEck`vY
zEUg}ImcI5&Guaf)UGcZD$WJDCBFW0MCNiS#wFzR=InN?M*0Hjl^1%GXz^PL{J3eF=
zO(lgl)P^bu6du|2ExqJt=J&`YhmCvcnp2IsgLSRtTa^Hr`enG-ez7gA@f<N?^GP)-
zJN-UhjLD5A)Rh&J<p-XTwJ9wR3D;3=X#jFc#3xe+(XZD|<_D@ea)fxudA)|!?Jw>l
zS)}_^f}xdDS9BKQ7m5G<#~tV<<4a+0D$|k`&pzq&;)l(=BQ_(=-dXiWc_0^8rIj4l
zC<r8$ESrezYyjZ4@>kMJgUbDhFSBH7mcMQB+F2vLV3{AKGou-zXDd$#AwTh<S2?iF
zE`({tJ}dCbsg^Bik40?^Ml$M@QjN<4yuDu~CO!a_mD}cuO=+#NS_Hs*&lzU<8<U~?
zbzaa4ZCL>H-c1H>eAdNF(~l)xZ0}CI&tlnc*J2X#p*~IxD6jpD^ci6|VUo8JN{o03
zC+40Nnc)1<Jf2-^-8wvGK7cIh#u@gzy@4r9;?h|}oB~9@>qzrH0A5_iZIoVaE)PM{
zBv~!9ve-id{oLxi*WddnPJbXH71>%}H}zQZOpCWS!i12vXXhX5^7Pdxa|epQ-xjc6
zn2s=G-m$VY=H-tRQ^vr3`~$~d;p^`AM|nw;({vO@l%G+pHwD)O`Z0g&n<ZLE@dIRk
zqLH5SgT^vf@yo@y!FAlYuh;nce`>|i#l-}F3v0Vl4OiwhMc7-HD7b}$)e88KlrNrO
z8TIp0$OGn9jkKgoSZQi%h7efV?Fp=yj-;XmPHQCRdUs<^8v=GfR*mGuxe#+C6&Gy7
z;O<itvIoz2cr5Lna_sF$)J_-I?~huZjI~Zdd^Yo)IwC4+iu`?nKcyRdtT|9qwj#d(
zp?~J{=H0KPw~QG1O9k`s@C;9P@4`K2BE7A(^6bqVm!_JOM~CARl7}*^5cM6?t3(u9
z37hGXkf81~)8CSA%0*8c9kOi9%*?WrG?VpOF6EC(*5tODrngv5qc$<58dd-BgAWr|
zHVe{<Y-`GPlH-Q3b*O9VH;mGTXkVP{d&MeEy+V;cl1w>-trEeucGMPpp{i6wxhBbQ
zzU{2;&-&Oe{ixE2w}bLb!oyf|%9!$UoPeV*Y#juObMAAtyGWi`iKD^XYGTlDw=nl<
zzdbFZHgc>k#!43Puv&^uv4?N5>ETeaZ!cfI^c20B1`xeGwz4d+>stXoIsIRe@KQbR
z=j9=j`GB0T)>^tY^1#7^_mJEk$|A8Kt8lVbff#0Wi~EZtM?xkb_H+Y#P-*lu|FMjh
zr_%7%psFi`zg0MWk`-u~`tpFbJ~5&>XRpO>wleJWgsSe7Uh^nl@10Vv_J=D*2ql&6
zS=!-vWPAozWdIMcvedDn-=Aurug^lrj&PJ9EUZHOi()<#hX}`}50BswVP*R1F{v47
z*ybiCT1If))d^Yt+&{%+*0v*8vXs3xpCxafufJf2$0;v2K&WG7KNX0j&Hvg!Cx<eZ
zz#ue@(vU`l4F_}qA^JJByKwR6kEAtYF^qr@#fts)kU>~=gDmof#R*vF4Zb9&%xI)J
zRYgy456-fn=i=;aYg5sVbkiC?x>Zi>umOcTj>M4<s3~{0eWr*B#I^UclXp*FzkWTj
zczK>&bd+#UpwWHsVWP<FB=l+s?KBu0<%cjM>W5gq6JU576H^(I=F7C6^6?n9r33A*
z!%0WsJKb24?fbw=J1;KJ6#Ij1;7Kl;A38epD&{hf=RI(Abcf~GdXUtINX3U&KkrB~
z{7f@q#)N8RZ-`-JIL9@-rl4KlCkN?KMbWk+;L0NPBH_9So^pv3sItwhIi2_<?`Z=;
zbo^~zB4LWwqQK4ti`%f~yrVhYeq`UnQJ+W!&O0qHFTasZT9SZNlwg=Ik9U1Y1<~nf
z<}o)Qu|DbfbB^SkuKQYGYW0w^5H^h%8J4E>_&SztNJUq+juo$X?s4gPIR5P}8)vqK
zg#T5W$-B}i#b>&+K28blcvwyStZ(N2U~ZIWzK(c)ag9e+)1CE049`okdA})3j>}%q
z&?pVquMiy_eL0EBhI=(zq!a?`&QA_fl{n;A?15Riihlw(rPh@<oXm6W)G@E;DGUrd
zA3q>9G98&WO-)T@fS6g;(}W$9m3^>Fh?AteeVHPz0)gf4XNqPDduWKI8gI;RET1(5
zK);6i;m<iNPG1E>ee8zn<H}naBxqoFKETiHU}O|+v#-;M^?Ldp@hlvcMnH)im@)IQ
z^cv~4$?FGfCby&f8g_%};$L!rdSb9v(zBhnNTEX9G7zV#Cs5hXTYbVi#e)AjZCIjX
zPHAyKPUb$T5d`z=?*=SqOf}!uju$5dC1PVaBWaZZlyhMse0MhPQhgQh$Li0T@X4DE
z7zXYVPd^J*p{{otq?nu}KI*joyS*`3hBv<$?35+8dw`pJXsWnz>$Odjd3*T~@CtCG
z*Zm~&MrV)*#bM5|QHG~%dE=$b-NS|}u3x=Ymc~Ph7x(Yr)%uIi4!--yA;}phOa<Xb
z%dnxWY%8;68}#|l@0~~C8Kv0IThuRHc#n*P6)BwCGlf<2f*z>L_Wiv$Yxn<4`4$zv
z|EvNWv?K3EhBg>lWJ=rf9vqL&$T$KrfSo-WDIbXG4SI~X<Pn)3J$fW7E32=s4<>iD
z=KG7PYHG;FP`(3?v|ex1EqO{)dui$EF|PqND?>NLhg~g}S#P!rYN1Md3WT++Y(_?g
zEP~4)JeLoFP4hur(c7EAhrYf(`VH09w}1GMQ2Iw>W8;pTCneyFxChtdDZHU5Vw<Hq
zw;e;y@F+OBRX^;>6UlXxaloF&D;8#E<EMS3>$1iytgRbozQiKI3s_2d_N-)CE-F4b
z*}7?E&Niq>RZlN`#I40rqeCu=n~zU%x_Exxb%D(z9<ia#B1J%R!C<)ae&nH3Ysf17
zm+RuK=imALT?_EfDzlRZ_-|F}&u-8^Ce3S5aC8*>yYu3BnGrnFIJjuZX%NCkJ8!JH
z3{vQTy$k)5!~~zNZnqR+cKUi<?yLJm6?M7j>X+yoY8Hj=sYzn3q9gv4RfPQZp);Fa
zJ%{TI74(>&Jiy0?5=A#Nz03#;0s1HdGqFAWN)@;Ly&pFhy12R>gqaK}NH8)I8tQWW
zE0uBw{JNmyNb}L|2SV%B!FXWJt2aFkOsonQ6Jlp4uGH}xKl%2XW5Rps&xcRF=k2{_
z^U<eo8psbACVf{4o_bgNLLmk;FgyEc-`(3c?BMkd6*4U)OabCl>buPn?|;9$=Qmx;
z)Kh=((4`L_BUUkf=hsf-z!iRbc9FXh1Xb>Uim;&5=-0;*PS%8Fy8iZ8u0%Tz<o_Np
z_{}L4c+<;uilSAgTI^54<EQEA=<G(axi;}m$;*t%m}CIAw7TV0w78rcEf|?OWhN*j
zL=GmqD&f-WgZ#?_ckigHtAjk)phXT#QMHAD2cRFXHot&?O%v0JqNL?kg^uAWK^eU7
zojZ5Dy=TF;cSF};w#Tvg()FH)a;1O%elq&mv)@_WznA394<&RX-dc?Sc%&jTOLCw;
zEH=T(xebZYZi;2PVl~?ueNE^cMsIJKSH+q?Q@Hpi?f1YFv{r@R=l%?3+q7v@dCFch
z8&o-O^FQlIz<Ck<<?dG=RC;kdPlS~0?X{D;1kW%vo3)0$)5_x#a>i8fwjboVA|B~!
zYHRNb<W#)h+S-~!JR%_-q859&Zgaz}Kkf8fS?DN3{-8Z@_)HvX(Yz=istp`wm|gi<
z_Kk#P^J`;dpXDrBp@%M=AX(jbt3}EwHMKe&xo3Jn=n=~sM^KA@ZezdUDV)--!Y|;%
zAGF>nI<KxCw0I#mE30warpY*hG2X`u2wGTJY#@FJ#5XNr?Y^Y}3oE&G$y%vzw{3Fi
zeEd=rM79Ti^)0;Dt5>hQL7*s3Upc~NuZc?5;Zrxd^AEWSnR^}ksQ~3SgS1760TSPd
zz=+Cijf}c=*0dALs~Zj$Fyz<cy<sU5_EQ18QskQX3!vzJ`;Omq5Wl^lM~C9VAQbwb
z$X~j_aRnYJYvoHUHxEzXjqKFaFChsool6@FFMU?@1jON5mC|G|uLGmN<su^UwwVmB
zLi<~9JWkCAQk`=-GyH3lMmCBKj#Rovr`8$|$H*wR=Q{lGrzgS*?}pi+obdK;wyor&
zL~P$p4#nQ2pU=I?N3!=Gw$g<X#J$0~SUGrY*~EFVDUb&w_WO8Wby`h7&o_=RA3CXx
zGHEyX27kg%Bj{ho|5;>+0p}3O1kW)Ca$|;EQ5<D&Z)Nwct>cx3%ZEo1;ha&ZA}O9X
zR2yZp<J|-q`{M68pZC)RNIjo!task05iw;`@#rAQ;7^3mzyGJ^nkxv%`0qx^|0MAe
z`LO?%SN*3*sQ&d7|5QcV|FO%-&1b*LOie|F5fSJ%ztQJ|+}vk_d3bnY3JMBtG#qN)
z#^g1r-~9U0J805&yx#qD0&=6B((caBDlh)UY@t;bP%9`Xh#tGB7Gp@SG~b;4IT=c&
z6Cua$Z(<htv=AV96~CviPd)lVIn#rx@3l0wL94tosNC4qU3Zm@sLA0_1FLJUFTu|L
z>Y%Hm6P=rz3$*w6QBcq+ghyGTnEKUuP%UY};C=kkmie>zChfFLV7W8(g)$-|*Ks*J
zyY!}ZN!0oe+W-1o3xAv0?{Z#8=SjhIRz}8Ar9m~&_~mJE%&m7u+V*!+0o7gtFCMVp
zbxY~*PWKcv3ItH@61TtlTN+m5SFr&h<lg14%7MhSQZFO!Up^EEMgZaY2iycJPT*!5
zvdaBzwulOwUVpq*T3Sk8JxMRO7O(ya<;vPxbwNcGGf@Fy%3=RGu(r0=cqJhzX{y(J
z)y7?ipO<9|uM;2!_+JK#|H}Zxf4Q=MvNHDnSU>dtU1%Ji@p)}e9Vti=%5@)v!33yi
z7SF3cQ=nsmkD;rWzk{mG0reJ>n=8i74t2|VJx2Obv)<Hva5vG5IwQB~0`ldtKS*DE
z7s0)2+95)GAEarp3mO8iJ=fl>y3G%%7ch~)&&F>^<@_|DAz^J)E?l@UU`xM_cKOZP
z0%hqr<4;jCGSw*9fI;H57yEHfp{J|cQ4*ge{J8`*Lybrg|9;ODl4bGh+f@mx7#gyv
z#VS!7T$fR3<2f99?rxJJ$^uz%Fa}9cqddU=`QC6pL?}T|2Kbg<B_zVdSc>SrG2fYp
zjCImuG7c`<I2ZIyo5{!QtOZ>~MPGPFXf6eacXV*bgm?TrZAZkh`IUd#Bot5A&a_@J
zY!kld>VxY4@2C(m6M=6cc(FpACXmC#CBGY%o(QdZ4>GSgVX967GG~K<1CPNdo(Orf
z7c7MF(C_O@Ed*}&WQxk{shd1~>eOv~j)sQD4rB|r`EMPs7}wtkge+A=z418u87Kk%
z+@64)5{{PO@l!wd(idv--m39TDk$LHL@7n8CHMf>!Xl(hS#`rC&BFJoQy!nCa8nf!
zoQ#Y}Jg{zto%eU1gTyV+rbhEek#%jdcggc9&4a+!sh2<8U#<D>qN;%bD?l=YERySR
z8T~gP>)drI&wY-j6ssK5j|VTM^;QyepS3S$cxWgZ(m@i8;HNo4UzXq%3U`S~A+LhY
z2h0Z1BMT>6cnIa-BaSY9f47gl3nHKEmY_N#l5M``T#qowcAvAgxwHPM)iubST!k%J
z@)D?bD?n8!#a{bE&w?^zlCJFm{(vfJiD#XbnZH00a{@8(Q-Mq81`AhMZp-iq){F@8
z4<yf{TG$}I&5dn%Dq5$y301C!y!PkLTj^xOMh;|FM2RU;I7+ZI(Fvn8(bZJE?7*f$
zPg?&pT+_v2VNo|f(Wv*SiZ1s59JO)w2bQ|{^zWyz{>I~5PF5nVS7UO(Kd#p&O%2Ga
zca{84X%C>A!hf&B;9s}+J3KzS;d(42D>|s;dU+F$p41~qeeD9ETl6-vP&eu;T;Aj(
zKb(EbRP+}{MihJWNq+-1nFv?+px#Yg7D1Bj3~izj3ObbzKit|Hjq2E|gytZ!BcfRa
z`>&8cyhFgC;B*c%BdG#{!Igsd5NrBzzBg)#ZE;@tepiO05;VP2{%|t*d=z7$WhI;s
zC>Xku-JAZP%d=%NeR+H6Pq>Pwf7RIH+(ck65e>IF5Iq2qWTUQXLr@~bVZ6V3>|=*$
z;o<NPhx~J5__~6W0@~R$Jr$LQyk5vK$4OcC9#`bf4<FdtsIk&hamI6?<`t4F>3Q+a
z*S4(R8=IP(W@m^p5=|E1YqJ*I;A_$fu6=u}7eYT~hc5O?cCw(lkfx`r8^%i{(~OL%
zRU(uOi>RtAfxVaB-Rb?u$F|O=2J;GNz22)`1d<;_Iuc#$re)OR&jru4m`45MZ6hE%
zOmjz<M;Tn+4yd3X%uV!{ffnusM`qPj<X~(g`<@AH4F7gfP;$Qf3@N#%lB#mo2OoM7
zgp?z4N1=(D-c1$A8;C|P0n->5<j8+t9RE%}kTWQx9?ohtPw*doo^zDw2!;DPJRoT4
z#xi+(d-EjcM7RCgL_bbi`QiSZzFH2^nJC%{wu9j#a$L)_a!!^z*+>Eep^?O1f`XAg
z`?vL^{r3H|ENQMe&1{v?C_?O`Xp~OUU3^nHw~e%w5c&=GEgXpUAu?okcK)K-u7WnY
z$GP~r(&Y_gMoS%}qlZy{i-nslGr8nON%h|@KG-0zy1nsBKK5vBGHJVE*ekW3_4_g?
z^|Qg*c(K(QKZpYU!Y8+8P`2^26rqgTBymA#<2?R>DJCbUd!ra?60k?65Cc~;TK2uI
zT+=UqnBDOgnybdp;SzW*<?};?r99nX2@s90YMaR?y?Lto{ornPjkP7jT#TSp<oz3n
zi2IVjSU_~iyVZ^mNd-c=tgIw@1XNU2Yrk3f+`k{4mnVMu!A?e^nOEFJ?#6ISH6`|{
zmOiZcx9@(;qRFBObkK2;&vpBE#~!H3DyO*V>pE}@I?gXKa{aDB^b75u8ipIw*Yd__
z<=ijr8i*s~Z`N#ikI>y!&K30lm0UO9t!WNDFG36|H09|RtvPG3x_#}29q+-uFxwO_
zIZA7w90V`l^Lr=Msb-6m;w9bs#zsyrW)xu`u*pb+%eVD#qF;PV15W@gx%jV6q8;uN
z&Y%<t8=G77V|R`V^mA#0@u39tqI{~K^CN0-;p{W<YW>NJPn*s)kYZSrnI1iIE;;QO
z^Y=Q1Jc+i5wZCjsV9)&}?e1TGS@mn>fs20?wA{!3w)YVGtG(+#9avp)H>T^(-e2y&
z>fHa!FBL@__ewC{{%NC7;vM~)C-(kf88P~Nc%kI{&*kk6`r$(h%MJnJvGel%lWy&<
z^YyxT?l&uO&LtA=v)^fsNXK48(GBs&irV<inSE??XI$JMgbwm_rN7~_@`nxWF@ECl
z1s*8WYR(VRSAJGzyMVLYgPjk_yUW|+wfg`Q<0eDs*X)%ydJ*-VtT7m@38FbAGKKbu
z$eA9ujs*ip=o1KzKnbH#%Cm5)F~OdLTzBKih4GtCL~e>A{#*?U3k!-%MjG?8s&N+v
z&(QBI9M`3Ag#M?`qTHVA#vm=>S$ahO2Jb06C_1l-YL$N_-*}^{6-|HEr%$*2=+#^M
z;zv2?z=5?t(#+%PizgfXBxxT(?K@}sLrCvsP;w-w3GG+Y)6?c<15H0~-t!n)uX)*1
zHYi|tY_=dxy)SQ0+6SIM(reS;H=dl)GxOpCx4K|?eiOQm>RMZMs5^y|GBX=y9!qET
zWIFi@H@><Y(3*(~+!bh78~lzRPf9J_t!<H%8P5{)65U2Gl9G~I1qbAU3#OBE`<|$u
ztMx(`&ecr+B<GR^AHzj<u#E{Gi}{6}`shOvmyk$ciRmyy-X4;NpDb?~P(ycwnWej3
z&d9*P87C*Fpsfv&r2I>IL^6%epXUm{c0#1xx!b(#l^BE_X4ck9w7$%2t_cY(b(|60
z>P!Hy*6TL{Ij$wpfzU?MYcwQ&UQ2qpfZ~f=1<k8(tXflBU;l_>aAagerDaWmdFPuy
z;!?aOe3w0o61tPxFJ<~AUG(E9hn^@{;ui-eCsS~qp(q&7jb))zjkb5%IvZ6GB5`RI
zoR0wUU|W(;z5(rA#k~P#)Ws^-P~YC(pqSzMN0)abio4H-PY8g^aM3Lpb~|SX0LRT#
z;F;Shq31Su&(Cjj(`^HqhG=a=Ly(`JA9w6C8N3!hQvuAzGgoJ=l(yj0uC-%pwn)BK
zT_}WRPYmH{BCKPPlSn=J5eis^e^fn|6dR<Ct<Zy3PKw#2i!nssQ5#xY!(tY?WofNd
z=Wz}cWx6IkoR}WKfi?;wQUNzFrJL7*NAWuf<l+3o9%Xxt`xssj_=Q|`tmFc=%eJje
z*E;vb{U5I8{)?ftV*yd?%{KjDYJ)VVZaS4?t<aXo&H3YQ!KK^B(#-Sn^EJ(*(7e|B
z#3H#I6^lVyhd?gfwY{OK7j&YpNM2L3iJMIn4PGQM3-Y6f<n!tAMY1PR5?t<BS@6n*
z<UrNXaOx=iHEyenOE`O>^Xv+WSCwtCD0^5Wrk+MJ5n3hMA-U$~jj!xU!z9k3COkpM
zGPQ&I?`P|_Fg;sjSbz2h@;!fkyJ7St?Xxdb#l^(~IAB9K9>WO&^d~$Y=sLBz9o<KL
zC{EWvrxOJ(C?hKirY?+{&@NGHJyHaQqBd4^AN|ql6AgHrp+Fu=gi>#AGFB!6eHG91
z^B1iAl_A=SS{gAG0`6Lb+ITc+C;bxP1kK>9q-2whns707j0n3e;cD?5m8AUi6_Uik
z(NQH+Q&Z{bRR8_*o5cs7wtN3rr9f_j??ouD%%SqFvpj(Ud@$Sc_q%2`HeM9ZiT;`z
zujPKPK9ax$^!#~pb2)l(gzN`CpOvGB&{y(!`ELOV{MZ7`0AomyayxHsXjd8Klt;zH
zb25f4Xslho!1+3f;AhL|`}#^74l^ZhD4sSAZAK&*v)<7as*P8Efd|rP4RLxLJysR(
zT;jH}G!v37ij-sfs0=g`FIeeOgTC$5kr7@S(IZC^j~-j<*k^BVf8if4%>S@M_fa-F
zEOXy3L4>E@&Wft}i|)TI@O`EN^c(Tote{&*_uI09=j+yhGWzShcE_X1%#|w#XOl)2
zB4e%mI)lP}Ipp8z^+xpP*DAsdfL&CO_vX-|pz9cO?_9(7ksKK!?%5(Wc^)kR9masz
z6*wI_?PKUFtAMgib?}Gz2`8kAMotp{Z{X4!M5ApW<x!&iFd6kC3b4fV>LK3)f7{zG
zr|+Edh)v|2qQWYLde+;+Gq|`t1ePO2{Mv42w-*+4bo5HQur+=ZOhPUmO9&OmPmcxn
z2^25d!aN(bO(QH{m;8*a9jg+c2ln%I^F3KDaPS1NH8#`J!B<ZWw0}g48|_UzPTz^5
zw?OJz=bQV~AFJP?zPP!az&*HXGb^hqm`v8&C4VUXXv?Hm;UCwzNzYEvWdUu(lj~<>
zkPBB*NE_Eb{svJiy10c|Wods~Cho{(p_JJs(f$Y4dZLcghc+f|5^aocFKpR;<W<2E
zd_Y|7b^7v{Yar6WH!Llc4{I(?B8)0X?I1t7(VO60l3y)8{3x3VEsAfK^7Ha4C_q+8
z|8Q$3C^LC&h{TiU>q=Z~B)82N)QSJ*KX5Ww;ZJ(0M3;%*z|VMW#-OVB$KOzTa)j^+
z@&O%-eWGH}wy1Ik1?P<^!@H1HNcn(OYkuwl@cPGB%Esv@O3AsJvORX^AS{kDTpH30
z6?ZTv#aBJo!51x%QrQ7Y1kaGx4k737kw3jey7Xf%K<B?5B;UgE=Y)^){C<nA2YHoZ
zz`4-F`|q;44ji6YA?oRqo5h}sM$?z7KJk7>$wIJz`?n2qXti0)5_VbnvTEI)KS`^I
z;bIq)8_$oFzG^5)!nq?2KB1qKfZ^3>T|NSRz%XayE>xhx7sj~n^rNOBy0u(vm@>y*
z@!tao<zi0z4*3YsA?jy=$=2Wg2Il$y4l)k@7zpt1u5<kl?|)PEhbU#+qnk|RVgFxn
z%D-;$@0jhMxEArLt*f|ApmGXD-u+T3;tA=ghSs721nOb5mk?ns`kP%c_t72Yg$s(?
z3Tz6-Poqa(xuAQ@5Ps|{8eVeIXCnliR5+R;0i|A@I6=1aMn%HCo7w1*glg|2a<^q-
zD>#dah|Yj;La5z_LkCN``iQo-7jY)eQICG*{a5#do!4#J{b;Mw(cinv{A+Y9l7b*$
zsBdU^0S<xOP_u{@#6brv(1&V@@saC}nbgac<g*i%LcsG2+$KQr>PkNX-mazSPU`3=
zzm2G<sHPwtA0O+T^tm}RUdE;zK(uyi)@@F-r5C(!RJ^*kMO!zry1JS?pnL$L;RKJv
zr+x??O_Cejp#3%hGm@kwt)b+x)ZxYS1?|VBrB7rWT$l(bwaL!TjwOIt(aPM+EY9(#
z^@&MId?)X0jB|YOB)umy8`&-RPxW&rz0!O1Y`%AvBo`LG$qb3ydF1M!7B&J}v{s30
zoyW$Gy;SC#%X7ld2_T*_E>f%G(+0T3*ozDl>v<rPsJH?js#>Oq^ADw%&X5uD3qNn%
zdA|H{Vl;T>Z2j4%0&~45#;(F;qZJ^Y<<?E$$e}NpbLb<k0*}J;*n64CvWOSXG^&?u
zYHz<Jt*CrNM8sA9Yvu0UyW2H#jvLY@^jYW_+_I`V7*U1LokZ$JWELP#l+`7EW2k%$
zW<+wTUX1{JzTC#;p;@$71VLB#@`Txd@|{i0!I0?Xw+b>a4D_3)b@BzB6+;Sbi#Fmb
z=%<+LVk&+NSP&$=49$jqpAnFf3%ZQB83WZn19&4|amdTb-IYihP@__*z1f^#jD{=q
z-rjELH+>Qbt%s<qy_G>@zT?GHK#x@$+{&LGzg6M1r3zyK%8EaJi-4Z)JoT4t%@FF2
zPFT4fS5Q#U(bWy)nCPpj1ny1<_g*&s_~-Av`K47h@iCd14w++-$+<UYl5A%X&?_LJ
zw(Yvdl}w}flb~uMEn-@|=a%JmUa>fVptGEFlX3f-O0F+YZMNX4-Rj97$JuW%Hat2y
z?J>GGxp4BYQI+lA9M&~V`u9f-%cj=Xzg18O&NnLat3qCGSw%Ozr&k(2u@t;eJxE$Z
z>}J}WAj}mc>dHs?bn{kBxF_Kp!s{f5zF9S8DfL`>Xs$1Kl5=YYvn)PAb|1kpM_3Z~
zo_%cEeMP2G9**D^zG!|S*E6^(;`}Ob2c4~4`m39dEd69;Msu!jht{GWi=O281O7^@
zZ?*X0nkVJ{<*WY{w-}Bc|0f2Wf6Ji$w=*sCM8_M^$iEak3JnTU_~xW$yp9>7lhcio
zHIYIKUSxe2PqUL37MpR68oNGrjrxLXXn1(Za(Z=&#H*KHk}G;#_fM7N-$!w>w!OXG
zqGknZJyS&I!s*5OWO#E@ENt*onII};>Mz1^U`|>Y54<k9wa&B(y`|J{W@g2^T2gSF
zQsOgOVg&a({`JWbpm=k+r*Cl8<;7tWs2j{IED{_y&L5QNX!z35kl9-1dMf=sLNXa5
zW8k)Ik(|p(AC4d;lbL{Ui?Jpoa*_Mkt~!EY74}X}nqn$cZOG3v_np5;@<os)8Vj=|
z6d&5OB#$8FUo9034oDc~HTeLf!Y>gJaShm$L<B_3_5zpEVgusWQU4--UCzIPRZATY
z2lu<=t|<r2o;h1Wr~WC@@z}urwkIg^e87|+oi?F>@<1~cx!<_d3oZl=*CWfh)3sX>
zM`KWr)cfw}=s4eNE<lzT@8#=N__U~~NbftpPR2)&Qo`g-N+>NYW`25Wk@jm*jra!W
z2<QCy|Lu(OUm*Kmo67JHywyL^z=^**8z$xEm|Q@sAZ5jms56ih(iDuqCsOSKW;ZXR
z<BV62pKv>~p@Qf>S81pO2QfFsijER+&--$L<0g`9Ja|Cjs-L5ihv&tF(`DbmsSw2V
zGCyB}ZSJF-?Obn2KcNFLOeN~!KDjICLm>z<o@FaRH%~8{zw9K9uIXgb6PktR-g8Mm
zM2?EA!32F)Rmf|pM~)onL7k%#Q=jyxugGN#+f}x%wLy-Hv2Q?6AjIbV%5-&g)6s&s
zU!LgQrK{*E@@HN1=*|ed?GApu#~iz)-Dg#2T0nyYaFCX)1zvg%d(0;O-pv`@N-=;`
zBH{fM+DyUlD+G|?0Up70#P(EFSVQ92{sOF&{IWq8f7P2m)&z1yL_}y~F3Mq_P7bl}
zZ`P!P8-5|}`1N|3$=kpFDs?8`-Pc!m-0;M9@;Zc4hfBU-xH8jmdlReV(HE+5_sz`f
zbd8QA`W?UZ^VHQv-S%*X;Mk&~_RQ=MUKc70lp@;$>-n1uTrVS|fb%^M@~++5%4*8)
zY?KaC4)A;2oP))Ld0l9Ja&;@XlK>8EN#$45aweO$wzf(S!I`%k1bEXssRIK84NNyt
z(pfqj5_+T8%+m6L>f|5$1zaywqrmrQi^sr8I?bQis3Wy|g-l(uL^Id+bFyAv8XNms
zDeK(*-O8XSA8M^MXO?t+9aUw}2XNfepD#Y|QL@mepJJ2rF8>I8Kfg`N)u)LmDJiWN
z^Dz8Fqjz}qg*wc;c*vL49F3YmtTYTyQ)2b8C}t=~FzP{<x|8A9S|oxCjg+iq5T^Wg
zQK)WlXy@kd@q&6>U?LTRE{xG|knk`d61{vCoh7#d3+BAU5ZSo7qGfg+xq5z%Wi=Yn
z4Ek7>&zpf>BBhD|4rEvrXuKnN!gHi>NJ8WTTqgR0`c*$OA-EFGheO@~<04qwzN}7&
zE-I2nB)t+K+Hr7xemF%_jB%+P8(r7f7|aohS~)0|c#?7qe16u;e8A9SN?l>A#&I_{
zH<#t~c=N8vm288>B4{{l^3|N=y%s1P0R?j+7m3B*&^f<#?bzpMC+iSDIYI@EN>yh_
z8Xd?1Zqg{KmmbOn6opm3H^Npx&&mg&eA~t1PioJEdJ8bdWR%f5OL8-Y!WYN@I9jlm
zs%Rahvx}&HB5Ve7pzQn!=}9<(tqCM7+L(Qm5KdPLJUwjQb+R!)RL1)obI0syCF!{y
z!eHe>Vbw7`3(@{#0gpii^|N$V=)8-t+IP-!bmZD$SYaQgSbahZYY6G_Wwt4}E<Iba
z<qEPLW$>MUXBy5aZbwa_QOBa!d!OG&DAZM`Kd8~d_$!S+s#pUy|Bq#@|HaWN9VdcB
zRYV4wX*4N;(Jhr^Yy=14+0)TLtwC(127@k1jx8UM;@-=n4Ye$>yl7P6h+aRy7!5Zc
zu{nCZvXfkaT*}oco>K`N<q$SRL35T)N=hI?6D2X^Pd<PQ${}#jmVMp_jkh5wg<;lt
zW<}^@zCb<-1??vZ$$8xJwwRoAB{sq_9={k!8gX1u84oOQVPQRV@mSE-DH%Al1dqg<
zPTSEMKRLi$Jrs)WZZMC}ILP*HIx-oDoHNUP8HYw}Wk3jS$$hjcLZT^GF3J`CwUzxH
zXfEtpj8RsMk}h;#-hX}hOKiLN40wicx5+p(+631Wqjwh9s`<+-JCjCA4tN*)<?Rpl
z({tqiN+jEzz`~$WiZ;**(xD`O7+paqj}?Pt(x)k}Oe)I<pus~!3_ukY=Q5&;BbyL@
zXZZ>W*S!-qsPd-R?w$`rHZ2uqnI<1#j7p!n(n+twfQ__f(zZ#z8)Of79k{y-y+<ZR
ziHhY)b$Dn`Rnza=6!hZ&cO~d51crp_zcHf!_wwuC?Ue9vPX!*GeSr~%5=25U0q(d5
zZM+_RHBnLM|L=RGrWEHW*=}+L!v)9~Iy6SQjHH$wwrETwmE;&X|7zHd#}i2p>&8TF
zF_7+R+(F19B7OMtUbQ}abqTBjnaW{}SR@JRn`|4sG=TXZEqL~HC=1mk*w?DZ%{7yW
zh&Y#m<o69Q7n9Va2+>1Yy-=hOFPs&4`U={faKaXn(M3c(NlFf=tdbUR($qYHmRvJ)
zbDg2ozS|d6_m>JxoN!fBPHvE55vV%u_A>bbcThabYF7%%lYbJTeQb6CeWD@|)0uay
z>(U>FYV9LR0C`_M2vJUEOu+Iy9^GF~yujW2JW#2E3=-l%QKJU^-m1M9>d}{%9DeQX
zuc6W&^M_~VFjXxO!zA*zsHyO{inH+qot;CmDU1xWsQlUw4|L8b#!bsPpES;+4pVlR
z&Bnr_612{g-_5FmKhMV1&zcyVvC(a_a8NE&u=^Y-wD8OjO7V|qp-)2(m@%xR22;Qy
zY&?c_8~i@xp9eigMuCvtYqAJr;1p6edq>ABXjBnH@V7%<s~@nW676HE)SSsRXg^ja
z7-$5lj9e7*5?Jo;cEVUxf@?^Lh4e#_!X%c}1?-kB&QCv4@R8afsr1p^F-yqJ!9n+t
z`#i}XK>>k=EZu`X)E2O^b*SPK$Bi;HL0E2rQm3+jj{1e7=FZ`JfzXjiAo=+SrO*Uv
zHzggqkx(2FfL2W?PXLV|e<6YAs@%e!p-i<DjTxP`y7AgQ8U0^N6pD{v92yxe;jm61
z!4l>;hwklQq+)s?g-08oYU0$3Mqw@!t!8Dhrp0Sz$qqyF^3`q`Op&3eBxfWPF61Q3
zEdEg-j<FDOw(l9`NI6mc%o#rIpt)vLNGHmbJrB#<F3<J5U6=cS>iHoup$Z^ng0yjC
ztdrrOQPl?RT|v8xKW&J+bJl^2XE!mi>br?5!sJs3DMsq24SuV6tiYDa)A}eei2iE5
zN9yy~7CYDNf@>ohi0n3%p9-IWHpYNW`2dxe(|it5ERM~;mxl=)ekP!g`B(A*=-4`z
zt8hwKR5V1P4Y5C|7WSR^;H<A<-|b8zbe@r+y@$~OXf8J>RLP77;d%EP8p>dtk~ovO
zqj|$Lw8(SHWAvSV?}gViyhtU5j(blexj~plHxe9nc@i4BKW`ym50N(%YA`ZVFA;!h
ztl1RHEgz7S)f%7D{l!1%><co?N<M(@_RU@i!xHIkn`7VU2U;)4>OB1MfF_v1l8ed`
ziNaTAzkd@$-zMFdKR-R*;MZsoENbxNmd2f%AqGutZ4pEehHh&$Qdlg=<o*a@!(oi1
zMK{-#xUx1hh|R&f7E~D8pu4TQsc1Tr)#Q$e3wlEXImomvKpi+$orW)89*(*9OY9=(
z%$He{dUSFh2I@MKY6CfZqy{#D-hNS>?@+YBli2{I)0zN-tgp6}=5jCCTwwWiEiIuO
z#NsE=zuia7J;SW7wy{woQjLE&nN917YTP3tND;#%8j=7kLO5*!dRKE$>=Rjl2V{rn
zc?mQsb~wHLsLR(tbQi(Vf_DKky<m)S1U&jZOfN*Wzc`z1Znax);Cc#)!9<Nr6qzeW
zbPsdUStP%KZmAM{u*T6pz@`$^&h16TSxeHmqV@1UlnoF!_;6e&YOxI6{xU_aDg&k>
z%@=Q>@>cwDEtB4#1SZ+IkpcmU>ZFKY-=y2?QzQfp9Y;CZZER6$=nc24J}A?OdjN7v
z5fRsB^xTpjPW7|$jFK24Mq2AogRF20+=N<&;X-Rug$<j5Hr+VsuZ~PWn#6n&^v~~c
zs8=D;!xmoU3XGN<y#NkURl&zc09aqn9d=`SCaN7uKkeHJF4U8lK!$^98hSWDN8`(3
zqx1v|SWH?)QKbENR;Gz)1g>|zZ@<4j0m=mlpa>m|MGitVH-S_%!I8tf9xD(@-awAc
zW0Ko9^!!0gLolRG)+rZvkM&oDg`ly}6gFC|IA0G!K9GaRRjW~6B_5LGM0E&gnCH?*
z=y)V%VVJOSm<-*;?3{$~$4=>9yeCM&l3bqcCYuU)oS|BC$>3wf&>-Bo)&ev(WNO+2
zRw;30TcqekWT)q#tOtNn0vMn}QIfo(R??ojOv^76)ea(yV2VZfG=_0WG~ErPk^#-8
zBv~+QP<;4CSFl^Xc#Rs&<azw-R?Z%^sQC+-`&44!59uQZnXPj!k$Y=MY+m{dpB|2q
zz9_^rN<|B8V+3~q<9tFj#tyi=k4t7w9-aI}WL7q5Ldxu}RW5MoS4Gl{9luM9{lZ1u
z0~xDH(hsO%k$P(-y(*~m#Sk8#YO4TIpLQJ69%O5uP{Dmdq)@<R)3#%e6mS}ZrFOwt
zE<}M$vxFs+U?GIbTVy;CDczGJNJJ1V@G5pgaj_Z_eP?y)tI+?Ia_$3f?o~(R$3Jh{
z-Sh6}0|hvDL|zW%fei`O0-obO(wV^qcIEp+dN5I|22rd>GN#7C-o6L;K`{WnpragR
zt6-!{&rux&<u@1NH5anDP`u)XoX8gQ_b!O>EtMlJtE9lRYgA`kkheu~xF8va+Npsn
z_dphig$FwY*@^c^hw`ZBHj}|e67Rnn;r-Nqyk9m^-DGAKQupXYyx19UqF#zXUU6-m
z!1i=xl2;OvvMMlU;vsbH{4&^^01l!@;8c9_2zo{9AnBZ^2Yha;<+tY@0G`n&q8%m7
z#IRWYobUthVieVsUs?P7{?@O#c0`23C0`9?Ck7#<)zDNZWbgxrP4XXE8Oj1m0ccqk
zLrcXa(&D-YfWzQgEmyF+1SE0Ex%D1scCMhnB1tGp>5mqH*YADDwtTG`&FrMMPZX3Y
zJgxYL12%Y*e<MJ3Mo7TeVbXZ<u)v5HL1H*iN65672r}BOJj|$mo%HuV+y_pw5djL#
z&#2wEusq%`r0;3av(6WnF<v1Jh@hV+d!X?dC)5O{w(8=@WYYzT0gq(%+moi{Z?PwK
zTuQxW-W0&}g1}JtUW0GC(@#}3j!bVK%%0g+rt7qc&*tr7qme?9#X47A%;X~OtpEei
zLqV00KRb;O<I1LPNw|E<=!whk2?@V-hqzp_LT#)XiiG~J=oOr68}rm;^(SNDu;J3X
zq+BO$z0BsUhZQwU3y!Qy+PGGrFdD`JsX>J)TK>sk6Bpo#%Bb~Xz#$yv3kV@2Ks4mo
zhlpP+q%duWbwp%zhvm>A0FvY$#8tt2vC0Kg)puXGAO_mv4zcjOMD5G=GP+m`;RQ^<
zDkhTq56xd8P9cEIz#k2Ns>}jW2svnvQ9hK0rma_k)oWNO7C`l=udhMZYZ}U;F8b|=
z%I0zYVNA7K6C{9|8k2E8$Y>GZY+a(N1|Z~gnb^}zs1uBB3G$qo$d41%ZX-_Sa6#-}
z4KS?pPa^64>sF<Y+cotblJWBRI1{=@u&p?FTZbdOHM{4O+2p_%F;rU>yIeG#E!d4t
zoV3}6LHeXsgQNUcuJAv}09tpsGoaQ9=wHO-IpqL%XtR=Zl;&fx(0m{;LLvVrA}xpz
z_m+n_EddF$%nd4gJ>jrfVAyvifC%s)1F6QOt@HdU0irb#a3dnI;kIYV2rEqAFvdJB
z4+;VKCu~TZ`QS)w2%?lKoS6{eMy-8Oz~VI0-Ay`)NNS+2(@JZL=IVYScGaXFTcnzK
z^0Q1;s1O&S(I(z+Rqh#x@gHqSA;<y#G-t7Ybab@9VMsu1fOH^`EY4MU!<aRR9TmfR
za0q-(Nl#%l62LnH30EiWY$C$&ZfGh}hzFz=MkL*1_eqeTh>+YGLQ5hJwfmga&{pm@
z61wu~BQyXjS=mAYgXlG%dh73mF+Y9lebO=X%pLRbJjx2HNk%Y9LWm{C3^^Hq=^zPC
zZ@y*+-@l{c0<U}VgglzY>m$0ddeEkVGx@6myvAl&c+E}??-Db-p+jVJWM&V-mzyn=
zNX7vB1ox0+3~|Xdl<oT}o&>ImRQOIA;xVjYe_yef#9-4(cUu_48C1fHB<LB%kw}Em
z$O2xo@7QQ0WehcqEWf#SLmI*Pg<~EzBqM>3yM9~2?J-QUR3LcLe{6?y_Mn+lnmE~k
zn%rA|)7~WhUD)_fB#8e*?SZ=oysa{ZI$|<64V5iT326S7ju~ZwA3m0JAn5Gi&`><7
zK+iKe{Y@Bj;XmflEdQB|S$G(E;@Q957PiVMPe_B6S^t%fgo=c0U<B%=ToA&wZEZ_g
zMus3#!U3h}DH6Civ}^FLOc|~OVbgghhNXZXdsAlcd?|-Iu#~nRwrlnPvR4ynGjtwg
zTgXIM0!wWByhx5jm=iL*njAecE)5z2f_6zxp$CtGRJ)zqJ(hvt05_?spHC-pFH86X
z`2f;nhu_d7|B}LsQ3;?YqS}Op<RkD!I7vPr<{fLcNy==jKo+%PjDze}W<>OMM77F6
z5De)FG`W(G9k)aNV2b3Wa!K?Pk}pzAlPLxvN8<PdNgQ*_6dxb@ok$mLXI3#ho&Aa}
zKURDVxs^crSH%D*eZ)vR%>-ta_IhBlqH1Luhs#uhrVwC1tBDx$RYFcBzy7);2RZ?1
zX4(2meeBm3qV!sNi;tKhq&FFGLWYat*wTLcb!y5+$%p)-2E?%wOE1F6yMBn}%aM52
zVfi3jJ22)_;}*bymd7drl6AyLuH!yx7sa#Uf~>g)P(KZ|Nz@%pF<zcLk{w1*^&7D*
zG*kTW500!nApuaHE?GjjME*rekaHaq_{_d&AAX(Dws#B+^_z)w{(O3{Ui33mCTnC?
z+(9rVIgQMaR1$ZvpQ|Bm8liJbfl)D0$Pq*kAUgI|3IoB~r)Mj8zg+u#d|fXlTPO#R
ze;<UvZjJd4A&jmmm?<1n3?TZKma8$o8uMBV4Ca9nkiHEt6(KJX$ixbR^~^3PBxD@<
zo1#by$E|f+lmbW*Bq99Lx3{-@ZJqFu<!~PPXUqHnaF7+r2M|$DP_Z-vL#7;k$6k|x
z-V>?&eL8M!7QY(002gQiG;=n93>L<XklpuEA${ft3zuL|=428XDMvZR_=clFK$^^Y
zqxV#yPNCl`$-uBJ>L$~&mz&eZ-{f|@xjySPdhcTMiJeC-?rW*wR)14^;`Msjj9)lj
zGOGUMbK|i{l9u;v4SAz8F~RFwDb4$No*#PN%6V#as<yZ6n)2;(!5icXCLT426{oo7
zFI;I4n=Uij!I1M?e8Z4{*TVSbc8-JhyWTI@J2>o@FY;J$9FlThoJ|#89*@6Um*=(O
zIXyEYBrF{CKUTGO-prXZd3br3YIKRXP6X~doqvsy;lY1j;Nb5AuOHi&r}|f~`eyR)
z*LU&s$n=5&1K?h>6CXboO7*&J+rIrXaNh-RE2paee7mz>Utj+W+{*d+h7kk9^f{nQ
ziE=Li&n1)EU;X{vneVGZv?L`YPQ1Onee<3@bJ8}?Y;A2-IeFzuh*a;fnb#Q@9ux@!
z<8XoRuiw9;9|Px>=lgw`*A857f9Bk|ZFc!NIdfkBWn|b<!vb8=m@ygH&A+p^+T8Qg
ztE;PRfQ_Dz>(^g@1@0G^Bhkjs&maAmU*7J|_FiBaAjJgCF<UPF`BRf^V{1E?onP(=
z&;>t#ea)U^fB*9B9J9^4ch7F;mwyHv!C3qAY?`sMvhvQ-*I~da=@YP%6!yl}%Ief?
z^L!&Kt6Q_`feV<-Y(*Iu#Giiez6Tu9k5SzkrQ6-z4Lk}5IC@!HY6@I~uz$|}J$wFa
ze;>EMZmxCtyE!}jwnm-(@#Du$Gj4_hOP{lV+;j8In;hUtS(k3!tX%cFt-bv-aJB=O
z=jL0i-@e@(I5F|x0(gk<Cs24iV7jxrT%Vnt9k~7Z<c%8<U5h-H26+aGNXp8dee@^^
z7zyiQcVFAJENJBuU|Yu0!r}z*Y%Dc3wM&;TPX-1aa706S^5n@k@7y`_`}_Og)mQaC
zyaa~d^!xkfe~<qTp1!ys<_D<+rc8m{BNY$?3Nv6;;mHZ922@oCP{CiuiweSz{&cYJ
P2f4}9)z4*}Q$iB}Z801m

diff --git a/reference/plot-2.png b/reference/plot-2.png
index 7bfd00edcf35cc7156ece9e26d464b29a68442b4..92f9d6d1c17ccb70c96f4ceb4cbd46f09ed61052 100644
GIT binary patch
literal 26396
zcmeFZcT|(vzc-3q$H6krSST_MO{IxQZ<Y~_G?gwTAW{QC!4Mz>P)8W0X+U~FMMM%v
z=p6#0VCV`VkdOqWL_-P1B#;ntpTyreXWl=~d)K<_zU!Xz-uGDx6ZW&8@BZ#@`FzWM
z<k3}|OVU5d{3InMB@Md#=XEKmZ4pvZTW;>$4vbJUUMvD1+izN4`V;sBuC)tIvB1Z!
z+m~I!q@?5%#6O!-r<Z)Bq<)tI{dvwlB5#fsS$)gToh^dH{cPgSJ~?v07xXjv&F|}H
zeb1e{y6<Akm(cUq_WyeOZ2d%B$MpT<e?NBHfjbRu`MvU%{iaRVtj_#yC*||=gR_SZ
z7+nx;jFQwYhGF^*X@WeXrh(ZS$Fi6}w$Mc23JZrB6|4+b?UwNMfByMjBY}xU;f<Qu
zcJFM0#~^ds)$v<3Yb>}~B-NG@-irZ5AE!}?H{zb+%U3;Td`{AhM>`HcCxttt!mC@b
zni7`cIus|iiN9qX-=rn}Z2NOp#3u0<m2T@1DX9rd<cfq+@-K^<rHntevh+waEY(pT
zk29ujWU~rMO<1^NNEzJ>v5{?^&rD*u`Y{`=VGjZag4SbkbhnnfdK>o?BTN%0cC-q9
z1q(_dk_Zk1CHW3W=(z%8hrPIk>+UU4wj35K6|<81Jb%`ShimoXu6D=s_#Gs3dpy>|
z9=W`;UpvE;G>>JMv=)7CtS^sp;HZ+!^%e#Kt7>N{KJ^E29~Y0tI&er;<{?+zi;Zd;
zOFuUvAsv2Gzma6ITBXnF^VQD^0>}oy&dP_k$evHwlCV_2vVGuAF3UalFt1SB>x;#@
zdrfR|SC5~-HebH#tJ@(bM#P6K@HKRkO|n*L3d1vb2ihH7*I&PqddS|1I%U{-7aiZ`
z?~;t4@0N)TBi`v*hxNq9CkByf1eM#68{wdW1F|vaDn@2U!9tc1e)_f>oVW&UYS)hO
zIwukZ?%c-|UQOV6DELPRRiWjt`&vbagU#_ml2%z5j;ZyP$Cn;yBo%y{Ulkky*v=~N
zy1RO>&tmgm-WYSU`%7Rt|HYuW`d2|6X_vGPOg|LoI?yS2%(9c6TcPNMr#@^UvE^nE
zi)-;ms;Tn_tHMHFb?!a$mt%tL;!&IDjnBvnzO#lE)5jQvnR&C9TVmP`3u^AQB4qB5
z*YHKDx+&(UINn)Kd;9=7YLDuK``v!deGb8SkZnEtotiT6-BBd`8Q{ul+zEE;b9>aL
zxAgez>`PH8Vc5xxJilvgg82C9qk2*KqQF)D8baTNQKwZ>7QgsyO|f||qr5+|^Dc=s
zlv~PPk5`sGI1l!%x<_{eH|3Tv-(?JNH;6^}^$#>id!$y#>b9=abvFiiXFE_^5{y2H
znMxTE6@9ST8&Nl@(?SAtdV8zh>5eT@p2jB8?OZ=c{lJ|LJiXqxre*vPX)jWwteohQ
z%*ZQ~>&&|m;1GiQh1HsC#k!@gk%fT8!biqLND^FQl*c2vkSe6X350--8)!)6Mc5}5
zh_Rb3bZ4ag<Q!{9r<RYkD{>w>yi3{~A9ip~w88qOSg>*xALx92;wl2$gd5`RI206X
z$9bVF+`xK;e+$MyVAFyY{O867@5C*iT+fs;o82`T_qD}*+u`m2;`7`g@C2Jp&UQ#w
z4UL4+SbnnShilwgjyb!WshYb;vX<HWq(!=FTS3Fr>K0P+p*+aPpXm=$W3$kZkdB;&
zy<q0*7HR#*eD2s1LiTN%kIoHz%kx@nf9DPCfTgP-Q`A)*Ve!@OV4j~98GL);K`Oz&
z-i6+NmOUeVY%+@d?Q|}>q5-f3i&?`LpF86cJ=jS7t3A&7)z9O7Acqy~kax}zLfi+L
zu2@9%k`KtE!E=50$T#DepXptIjrR3V&~ShyfG2^Sw7t{#=})@$r&aR`&-E>&Dp$Gd
z>jTO{fYd-`9PfU7_T2<NPZ_z#9)6>6U`wW4Y}d9L;a8Md&&VGwocm_7YZT#Ae)cw|
z+2CT$_nMe+gsb_KyRVMKDr8HTs~HJRvweB;RO`&)%CGSrjQWXHp$7ODADw=;>*SZ<
z$HVoT*xn;0cd9nA!=qo<P0H*5m`d54=*t$`!@BpU2n%+1nhlos&;Ox%W~&v1Be)3}
zNO3*57}IlqMZM|BXv1#4n;)oPhsM{H{B2!?p!TI5^TtW!GZ}DoLtf?81z$^k@{z@n
z5s#)>Qdsnb)w<)Q)czV2vjut1no&2g%2YSlAS#aBUB4eD_hzB|6(egCJ4(Nv8r0V0
zUhu7~wR2OPqNlWnlxJ~-@cz7QnHhE8t#y}<q<+MiXjrVGD8sPT2-)7MZ(rc{iHBl6
z+|89Imyb;OHix%!Mb4j?yn{iacPO)BT*dtAK`pf<C(BOEvE$LA`^Y+QG5e{(Yp>+t
zn&u+@S5)hv>UC3@AxHP7*#;;lC%(pSZw<jqgYKixq+B6XdI|>0D(2rE#6J-1m`t}L
z6<KnF!^>tnVDJC-4rcmAIY>bA)G-Ei`ABA>@5c=<PK{-!DH0?~9#^05%J@#;$aHDt
zv^S|=j%h=MMbqw^Au_+a%*J2tp(pgnZf^HUy@&)iOu^(!AR2~jJN-e?LrcC^)!30-
zSJ*txY2alSQ^xlc{u4+8$L1%<Aquv2wIClbDXvKCj_c|JxQ&Wq>x6o(miR+u4v6Rc
z_sWy0h7Wjt<VcO&?Di(~zX@}q4kOiOvvhxiF!u393iha*(DK4)=(0?g`i+&Uc-b9g
z%(u#d3=Q_}H$M1a5elgQE=N|0Qe3%abHUEC5o6v@FY4^<DxbqL6h_aAlI3*b%NoP?
zl7sga=2swJ@YA*lT4$dyA;R-74-RZL^AG9J@-(}Kb~0@__V;>xJa|vuV5UchAR`I(
z#fV9HRJ)?nG6cA^XG+{5snHXfkX6juOZ;X$Q<IcP9d)PadyfST^ySU&w&ZFEDBMGb
zf*2=6DaHY$ZR!<tD_X@|HH4?{dej%1d9kWgVeA>6Gt7eSPC+c8DtL}sfzEHe%9KIj
z7*334&wcWI<%nNYvHPS{TONAZ9LNP74(X21eH|g`$d0tplA0X+6e{O+EK|(CW4}Ne
z7Es8Z40nU!@Q2BX(NXW2=5htDmFy_ludy8!KaIte)dRb3!7^+3v9lsq&I{dIFrjg+
z6v^0z6xB}?eqAHR7s<b#sfTeHw+?s*^ZcSzB`Z6K3inERYJ}ios=ZXkU^3?)D&S(8
zqPmQb1kMwtf=lQe8o(0yj5!2jJD>e4U>pMd-csYdu1cx(%Nn}}*^T!$;4;`J)`wRp
z?gLa`rfbg@j9(4qNZJkz7+lWY;Tvlf*uLQdQD>Ls*WVIp+54U8ji*tcky+Z7{Gd#%
z))+hpHlxycgX9-wj2ENn#Bt7V((qvLY^Rx)^W^GYbp!6%9s(U1-SNvV2#3m`5Y)kU
z(`qj2-@+XG?rhJfIrQBS3M#k=$=P7upDbv7RqN37{5^gp$C6Kr01-I8b|Ku?H*zb+
zAn=wbo4}o<gDw4jwUj43)@~NxtwWt&!$p=)>oRViBXFQM!<SJpJ<$3H19Hd9+$>=q
z%8XI{s<j4M>1e#7gEWxDsa_!4di`}$qjl5JE=Z889+h1O2q-9#a9#L41CMSxpb@2T
zbbKZx?rtdOFGV%K3;7kd7@`~HNLx;|#v7lXb6dj6D-YvyAD7kqdY+VOPZ(mIr`tMc
zxp)hRB(T=k6|BbI&$fVipILHgF~rsiq2T^J&wpMQYU{sqQXirk^SVn6MX;R_o8r)4
zyrgwT^`g>V<Z6y?;B;$E{fGwU&Zc!<juY+p<KU)azemrZVhDtLGVmN`b@*}QToA(o
z+6%kV;WT0HAbb~5r15=SSrGG_Z!SH%baZ_TO~1WTh6s-IaiVlX;EHDMNcRqz63ALf
zyez(~`{nN&zPoF+1li=}nrsna8x?<DIA%1N@=bboEjxJUi@i8e3*M-hPmYJcfwWGi
zg$0oVw3-#iV0Rbo&A*1U<UEtE>fY0DHa@h-VJJYBoU++KNJ`NBRyEdTm(iSpZvOLv
zG{i@f#pA~BW1e(h%U7W8i-`@pa8@sN-4}Wqu9RQ%YNi9JUNwfF3gOf=eT=ffYkHjC
z&?;MLtm|%#-xsB5o=F&Qi|BI5)cQ&wd|tWxWo~p5+vIcz7e=qh^sn#P4rW^@Bxd-(
znP0OC;ppxGIF#GAXZy}e%k|~&bw;?3S_+@#LV|ZD9~}F(iJc$6FF0v1plLJRPS!UV
z`nneWefl$L-8;KOI--t6p;?*wIb>=W4h-N|D0SUhnk4}n75>{7UgTG{FU=?rYHu+{
zH?dn;9YCgpcU^}MSH{7O&4yf&$y=l@wf!P3)%Njb>;;3nYxjjtXSS9MnBEU-uJvje
z(mL9H7#sea-_L?Oxqnb`v!~U5_G{j+0C5h1eQc~Y?u!D_zjXvB*^(>r?LbLW=UrqC
zX6#7j(A&+I^v9Ee3-hVme$UqCs0o#n*o!bihL(B7hhNQxygdNaIkvSKSa_mH8f+^{
zg{3rA^Xc)6AuZla<V$`ntDnT&TiA-8S&o0gE@c($DHN?qgF8H`<5`Xo5ZELOJu3%~
z>6qoe%WyiAlI+oxyVRM1Kes*{kLQFG@6{cy=?$q~l0D>c9Zg%b%;cC9MO~#TXtv@$
zzYfeS4I9_NBJ|gVck9EK{i4*wh}*9%E@nJuUPyyqY+%MF=i<+@zsJMmZK11CY*p-T
znau<z2YiWHBQdPSOOKl@d!Op6-`m@Au7iv=r|d&DH++T+g#-)n9NUjn84q5K%t&Xm
zdq-a*bZjvO{ApizGxnHNly?WB60`XILKS7f9%*~w??_raK88>k70!VNn<&ZkgnKl}
za`dHN%)FFM6tY>n<;Rk^eNpExjMjbd4Y?nFt)pfUM&dcZvHd|=ULr0_Sz7<I@nLn`
z&Cnh-S=>D~W`S`kk(16cB_(3bq2sct!2qnO0@D7UTx~Yhek7oLyFF}h>WlLRx{<Tq
zEKYh5PVPURO1RV}slZQN+wAc_q4VGGmM5H2#oFv|3p)?HUW0FJ=AVawV4e?QlG63|
z-=?H8Y?p&*WZxIfs64RnI!BsB|7}>@Mv-dkMPl|=n+&^uU%kzV>unTwQlv&55g7A;
z$T$H|(N>vf%JbHHXC!6us2<^CW_<M_$J96d7@LJ2zv+eSVDqY|h>khh+6JLU!(of~
z`MFRs+p=S<OMl!dScmJFYIZAc=u+u^@vS&r6P((GF^2KmiWmsAR8{V?vv^plbW)+|
zbb1SYe+uWfFmE*CFK-F&<tYO&pX0`zeINIv)WrT(A)XqyOIGprt%kMV!>b_dqk$Vt
z7;%4!ggvXgIQVQ!I1V|oKLys)z@1IGtuB5-YGmmG@>^p=m;8)Dmt#nd>};1si5RJ*
z;vU+((Ol^E<TkUgdWM~S*w_V2GQ%|Bos4+-xLsnghCecPiiLlu6}`!K7us>2vR<-2
zv9eghEF)4dhFt=Uy37c{d9=c&H;XBrVtbH$+zog0ZXeBb+B>@NR<e&bSSP}DWJTY$
zCIOc52G<}|mI%uDnX-)I<Y+t$#=eSnpuKAJ>WFH|v{%4rzM)?ecFYY3)k=O9Qys0?
z+8p$bY`+)7O*u6}Bpo5`by7I&Wdb-llVWGuY=k5|465SU+lH)K%tS$5gjYL+&f$qY
zSU-ml7uYeWa#s_AqN{O4S(gHIRt+HN_!%NA5-Go4Hh?@}f7~5@whSB5eCq*wuhi_Q
zHR0IQqR@@Q4`l50Mj~Kc@yf>mVH8q94&;V@SffbDCa`YQzTXXAeQUO{luDkf326g4
z@EXZ2Mw3Z8wU|=*$t?=2XSE`UmVuLElKU1b_p`D2MxUI)WBV38^gaP?yS6>>K8Q!v
z4wH#ZSWR!&W<CjTc6brmJs%P)fWn)o!RIa-_cSo`5vL}$c`9wDe`^SK!lBnY9S%z5
zT$&LFkMeMpH-<EUj*3Mzck@5>^SDQq+u0*c3m+zTO-uB8rL9SxPJX6;QKE&z$z#vO
z6r>LLY-e+$F2UaKPq{O5_@QKMNOgi1#eUPDUqh&ET;174El^ev--uKHST4U2gF|*W
z{3cPc9CB;3E89A3-W69Wajl6riol~G*^pRaH%3A$#b`6Vj8_mgZ;Zq26pu`Nom7Fi
zvUN!CK1yctDf%wOq#v}lZEdDbK2%H*S0R#-1HO+Wt{L}8+<5{nt8^f<1}@K+K=ct`
z2bBM_*435&5%vE2l3-;y9BNa_yH0y?C+67g!m$E`#bE%@9fNyg)okAvk!CTLj_y09
zexLC1-gwSuE2c(rKTK|tYCE}pjpL5hytysk!}KocqLkET551WIEY?9_ad<WZa3<hW
zOlLmIp{{vaqp8~gR|y#Sc(EC$M6-V4eohNi%9A7Zz#iXJZIdGYH`b71GEh;g@t!1@
zys8>7;}c$S0rSUonQts%HMdA*RppL6lIY0*1LT%s{iytJqlW*FHp1=?KM%W7<45}8
zn8vAba0J?shUaIq?vZrK2EJg<1nU9mJ;@K-gUNJ&kLRBj3qJ0IfiG#>+#jiL@|!!k
z2~M`?npCWZ6K&>+H`kGuXSz|!zsGv4QSyseNm)PZMAUWJR)^QSa*RnxzxiU`^yh^a
zN9~2nmw!al11f-17u(zBA~srCUL;!wc78Cz5y;~%`3``cXr*2a@ko+2#%UmVX%uMr
ziHXL!TeUTDTFcZJ%sPAhke$)7bw*WDcCbLs%LeZS%DxQ`ZA5dOS7dx_wk)qzVk}KL
zKqNy_-2^X48x71%z22!ZBLtV(Ap^yPzv*G7nBH|0Q}#R*npRT=?{^b4>v9RxPne?S
zTcv9oOm&k$ND{1UwP>?c5WZ!;RkY#ZAwT+VscD|^ZiftAQ7YxA0AmVxL~fa`;hyj!
z8aH*!p}yTs5C)keOg&+OollRfSCGx;9_z7}s=Bg76$ak#Dx~6SXfLBKz>*yfRrd8`
zp|sBPy{b;Bqm<C_JWK2j{qY@}<Gu-=vUpVFk%17$R1etx@&j|VdqpSRZlF&=*x!2m
z(&S`vaIoGRT~KCeqEH&|4Mdpv;0SrAq*Di_%E!sNyWzYAntWOWzW&Q&nbvQ2`&fmt
zUze>N5Zt+df&9YQFGKgX>@d1L(N;l1A6VQhr?GHdzN%-#)v+VCV_WkRpd4t%evZXq
zY_MiAA2zV^%h6@tBSu{LOCFSXVdtE7e6hW`drR!AC8;>rI0pxxuSiACVR}Xn@(3bf
z)7O`YdNg+SK(w!Z>r!&v^OxvpA1#E7ZS<D|PVU>KTqi!J#@vMy1T-i2&I|<8m@$?r
zT1~|_{ycguyvsg?6gBB4a2*+qt-FxVfD@g0`4G{Nm(y0Us^oqXhX<`03IUAP<*m<<
z6b2}<rvxh{Wi71>HGaaq{GN)RBr{)w0BiAZMf#7Jl|(@}bk=<qn&cqsJ8AaPtBjiF
zD~N6VJo9@U?x>5<5B6-#;E)5JlEIRgx_pleu*hSUhcrCQ?C=|gKU6eL+Ja5QD!j?J
zlPBNS|8TLj>GNwpF+**dzCg4yAT;`Lv>-v|RbJsxQW*A<#u2~R4x?r*g$6V6EYJJB
z6Erh6rnMC~M6lp|V;z9V@upajqz4#ddsU|p{6=dOsKW{@o-4J9{gc}ng!;;h46Ton
z0ndL0t&;yA2d)1VXlVo>+NoW<lB0A3!oK=%a|3pl4kwZXYpi^+PrKU-?{YRA4uz&i
z_`^gFhbsEaoJ=uMWXx{EE9;(|=i-sptHPVG4b1LMKtI8hl!gg&bpN0y@aH^X4PiC^
zDpQ^CQEaVhq<-+G-=11>P6lJSWsQIT7GcdX#%g{!zSKj~b##CCQ*#6VnZuzw>8lE)
zWXbPUQB#;iagSowG1VEiUu}7vbrGw1UqUaYnqSztYdPj6KZRAMnDm}CkB$12mOq?t
zig0xA$v`Y6g2y3X0fmBo!F3#S;{2s*^5TH4$sJNnP(vnReY)k#Z}{Wn!7Q$W>5O*j
zHyN@4Kh|k6hur*{z{e6!lJ`lqS<GV_DJ0y;<WXL|1G!RT<GZb>S{%}+8A(m?ahb{W
zue>_H9A3~7th8O8tk{wl)^FJK#{_axmQm08CFMq4BdN@2I^E6@aBpK#G~*59Bv?oS
z(`xX@d56r3X}W;U!!>S|iUS!f)K3~Q^Jo=UIubo@eOiD5iJZjb|BIzzZz?v^nf7%@
z?f|6%aE)j?{w|1PS(6?Dk&ApdKoUiy4jx8y&evdy9Sh!g*wdi9`z0~x?BqkdJ~pO?
z|8~4K1WUh)ERBkQQ7$tjY0dMc&2*kaDi-HRD~lqHw+>+#xD70SmbFJQ|3_X*mNE8k
zDdkgHxiT4$h(9lsBL-Wr<i1+dO8(=g1AE2XltY51tthEZwk0@s+Uux=@m8#pZJ=}O
zXCD$8gLHKUaxws?uK5{fT&aJ_XR;7jtfTqW7C2O7iY4I9T!hgubnu&9;#r={wFr&z
z0mlIhl(O%8e^VeQ7uch@J-n0~<R@;1N=eyO(l)Ux+zq{XwwZEp0ZW&(fecRjw|4<t
zF|xst4w8uns@*rSlVyFGF*vV2nsNU;0triHt+Gm4sZ1`~!TqW`9MLU->a3KqpCfEb
zk2<&1MA>%m8@u|rK(Bn7wVfo7adH%3>m1D8&>m=W<8a2@k2-fINq%vm1nOW~<yE_|
zBIEn{==XS5E|7{6?2-QM25kI-F>gIaku2HNsmQLRGyNsfRWJqWDK$7<8E{ndQnT_$
z+6;4Y>&$)!@u7~??O$coCWOu%(!(<?C0+p!og6Zcc4qBJsRoKRaoINJyor5IAnQA8
zR;Y!(hp1QY6OT)kw*lkkP6UsZmmRrfO&=01<RtQ*cyrpZ4Iy~iDKP@i2V7jEWWLm%
z0cV{Ep2J>rjTR=qraeZ~(l}Ep{LZR;DhWPP2CU@Y7Gr`r)GDsG{zo>2l;$_D?}S$<
z`H=(_(w!~OjQin)`ng|u%MD!QC5)tK_jEc8+0I5YDQx<m1W^{G=^8b&@kYnbOjFV&
zj4i%aPQ1Ej@eyE>#tfx^@h2gXN%2du?@6C8X)OfAexs9JO4o)E3LD9+E0TgPJO{9P
zJ0`^`=q2M`1D9lh@hLWJjT)O<s#flr$8LZ*u~=Drh3Fv3QWol|KQbUKUL&i#;{Myz
zzM52E32!E);7CaZdM2D?>X%xlX}F+|2{FD!rD9^uZ&7(p=H@qG;%C}!0efz}gF{wX
ze{cHeCQ!HpER_v*{H(h>r6Gn>6*dryH)=4#@>#4`tU4xF6a}OFtt;`M17{rD1l<kX
z0ZkKDk7+1Q`1onySir&=a*XJ{cPj!XM6pz{TD`$d^+1CAFpPTi)Rq5Oa^t<5;9T&W
zuP3}L=I+8;n0VQSH8;VRZC%kTZi0`Nol(7R0_xtTKg3*4yt&<bc`~|^Ph!RP<`b&<
zeJl`3b&nxehSY)S8VE*&a-ND8pCKQi4`tGw7oLaBP!6ddnQaN1$D5;G>V11nf}iQv
z+6pxltkm!C6!RbF9$Xq%7azyVCk6Ws#Cmb-%lUPz$1H+wslG8Ae8UU^W6|wsfg@&R
z{8gE*yi?@XyF};Aff{_wU$Ed#yaPjbIm<7_<VWpp<h{K)(~;pUjNx1eqvDMbrPH<;
zg^<WMhA{kGw|J2P{GDD|Y|{Xx%K_|mYGgfVV)vyIsCP_}m+w;R{?0~M;QXO3704oi
zYc3EV=ODl;K%H|wAFJXL6XaIbSgA7iC*VoZ8|beh*mU1i{`HnO{PAO5CRnvC^eRl)
zp(I#h12>$WzQDkCrJNbDli5tacuY@Bul$@h?biI&5d2XO^l5}!2-jeB{quav?K+k;
zN#HjRam3?rp&zsd@MZ=O^CGV@`i1#`o&9^GKL4Als~tA6n+NpORd0VTZJ`1OqB^{F
zJ!$s)4y>IYRWrCgfN}|A?5OnyXG&(OVf^&fm#$to+>F+dRE}}-{>Ga<SnDhSGrz!1
z7|tn)AM3Xb+8I(XxQ}c0{McMe{jpy~&K%RK)=bB`koo|53D1eiE!(vcg)SYv)I$zV
zXzGSTRo4w0gQ>M0ve4_?4c#9tv+yH8!9!*^kTFNEA#WZK(y6DgJPT4&?Q_W+F`oBp
z1Glqb*jxwwuRVS*G*`M@?fO%e-^a_A2*Y7%EC|NcQNPS4Z=O(oY`EpQ5uQJF<)p-|
z!>cQ{(3>0w{CBGD?Sk%%*lTpP1;G__CN)~Eo$0?i#v;kb)c=5Zl_cE<ycyB~W`1mG
z)OpSft4g}cL4rSrKLRLa+h4=5r&UnQKaENVlzNpa%Pbg@H(vbJBpGmpmd5eEH*lLQ
zWDbZ2;*>joiZC}Jw?@CxmXLA22~5DxP>Pezs7Ri$O!{rn41q&-J?)erx#uGQGW4Bd
zjUXa6>($fFAJB9U7{n-)Y*aSdz@RYh-`)~<x&61dg$#48s=_AUlyDIi!zp1EU<N{N
z=dlm}2i9$33o+j0(HIUZUlA>NEY8qd^G90TrY8fSnS+JoP+lrdT8!UcE>B7rD?gXv
zFZuExuOKDY{MqrMzZA&F?0^@^z61$QgmvY4$m>H0O-AJxYb3Mfo^|etu*K%v(Y&{G
z(OaXqz=<VGS&=M(n%nlWVUOY=y1nnvd*NC)Lf3a=Y<nrTSZ>n4h1ihNIJj-c&*OG}
z17Ht#d}9>s+kLZ42Z9l#z=P)d>V{;E@P~jnsNp_m5gsr$>#g*6L2d(AXz}kb4(wv1
zfqMblqd&^t0yMdj?0;w%cM1q7%m!{`!kjViCct|DRF0HL95v3}3(!ka16Mi0uydE<
zutZno5I{FEP+UvM0bxo3gb?!2<@Nh(Y>jU*eglpqZ{dXTPXi^7jQ$4b8>~%kC9CjF
zBXGh`{~RwcCvTLo(i@nGzKi)T!tdkSKf3>M)`tO(BRG&MZV9P@q;W_NVa1`5)&Quz
zh7AAbq8Ko%8+JFuv89af5BoH(jmKz~<WryNdkX|C_@z>bc7ZUaGtpAo7{;k?2qqg%
zWi`Qk%3V1Kk}0O=pHs>jtD~HOb^#e{TXv`Skj#CWtE0K$tb|6JihR|@$&E{#tg*?z
z;$e|Iz0xX3ndI;yZhw$Nn=u>3Ql#GgS5v`fPFY5xmr<2}ZRn8<<WYPW##AvWY+<Lj
z<lfv*-rJf(Fe&n0dD`c1iihId+kt~J@pV9V<Y)Shnu_w(zgUhyL)j@iSO6wPDw5hq
z3|<>GiF<5i`#XV&p1gWTSckZ5&@44;X8jQt07wqGp^_?UVAWv~9L=4D1FQpzq_?a2
z*Mx%~yz>p0fd;RX9MT3$C!g{P(r<X#c#*T<aA@;fG{8<SEPzwangJve8@QS{TlpKQ
zBNXqS)!r2HR|Rx%kxEWYk>L2Hx>*NRImBEA`cCH&EY8O@dhvn6+?PZxx-0r=+@aAp
zhi%OcJ200VLrS1-rq843Kh1hoFzeP_D2d`8UGFH+G4*@^z5PJ;dy=1tH_0a`@scU)
z8XB?C0QBgxo;WaW&7;HS*={bsiNzsxpqdrO`_#atIXOz)zin%o(S#{*oUr__{%zKC
zhaJszXh=a_<w?mCD*n$lv5$~;&*Y1yAG0JwS+B(4aE#O{Emv3EXaUP)^@jloL(^n<
zmgK(T5kPc-;Kuv~UpEh08Gq{X4+oz63G4Rq^GntvQVllN*-L`qQfX%Z4e7{cfJgrp
zl8P|{jyo)j%*ABda5_Ntu<-9mnq$MC5(|>LboM`M_6|GiyEFyY_`Rw)7&&<`Rg!?8
zIsvEyUzQ>tP<pY}=&Yo}ob{{a840IW!$7`AsPc-RpT`vBQa2h|$|M1H3(3imhgmoc
z?+xio`C<77#LnkNE9aY6G4c4L&Pe}c?*e=Gx~T9AgMuflZzRM&QoTp<lh_pu);=U)
zCzSjXd~ahp|1}GYNyEgJ*&O{RD%>LlRB<0*E%gVP%VQO~TRRx~*EJ-JHN6F5f{;lO
zH9m?Fx7P*#E<#{8@H_|`NZ@*AC=7#t&R_4N=v8Gb><XLr{ts>dRdl!spt)b+#lUIN
zKamUx^weyzkf7%SB#hsHX)OJpYYbq`^dJQ{TACVdAzDqhtvDK0-Zr_x0(%Zqkt9Lf
zay7ZCjbpNvghnK%HvTG)MFKlG*@s~0F7j`n*J!m`(ivL#g{$tT|G{F2v`#31G1W$p
z+Taja)0nr$A$wj9=SL(u(0SwK=jS{JKPPyAb0%+DH>IID>Kw;fS|{q^j~JNX)qA9Q
zhy0t3818B-Yl?M}l+UUnF@3uvGP}LC_KyiP{Q0p#;rPJ<N!{Q{K7#nspOLC1I`&PN
zRsrYZHqwygd;@As_qcYkQ&%5_-Cy|wEOJkWw;^tH^pO@S?s<oRO%WrlAsp0Ghy;HP
zFv$&ncGSrDe(6tWI;3H^v5lnaJ726j{+HxoNra;fo!Y`19$U$DB4cqL?v2j}d`S3y
zO0iSj{}2pn-H#0BJJFgNZ*LK9_~MX+e?mDS7AG8JElYC+ZEk`+0N{uQ=;(x=P!i{@
zXhCQCiJ{W1KfHGCo4Iy2`@Gb-?fZXyo3!)zeW&`J%iXv4|M~kN@L!34w?01o;kT`t
z$M@gbx9PX5N^x5^U*39PbM}WkIaFR=7+2`ciGk1eEzn3b2bw#rU|{8Y6_)2w6G*}b
zI^j1sEC;bX+s^x+Y)6Fptf|dz)HV~N$o3iRPgh+fqCWVxHlEes;<HBCKRY^h)_A6G
z2o*H1K?u%~mI%w&)@~OaTb1*imJ_<A#)ykmFBrP&Izx0#3u0?n{y5!%oYB45L9ox*
z3+B}!b4%fg-OEhbz#rlCyno<Uwkpb`vTl7*DFoj@$J=L^1B?6iUGpw=wQf^LQ?Shd
z8(7f9+??&weKvs%LFw}{7*D2zCx-NtgqIfSn#2_~pBdeD1k|zE<#1P|>^ijMUX+-<
zxRk)a$MFg(k=7w=gGykVP^y_vopR)Pl+H;4;v5Pq^A9dUP|c@_TTtW1#4=R0BJm=K
zi%(y>g-Wx7zN`JB1KKEW2VT6MP0KT%GSV+mk2TL7@DslzE2W;La-bP;9aTptm}+QY
z$T#46AB>oa3ey8*xO$^0E@2>4q223%)mS@j1N3D$+_4yL(7N_oB0cw!Tle)(6xtVL
zP9=k442fYVxmsLrDymu0r=K38+bndsd;ZENf#C_kdZ|*X%`z=OFYxk!<uWzE_e$!s
z{j@H<t4`E~f~i<lLr;oyb~)h#YkjosE=`jd0D>CK$6Jk>D;fGwk^wfq-hX|dS#3j&
z*b|kCKC!Y41!eoeKh98ERET)xNLLgA6xyZ40D-ddb51Wuj?fH<pQXu>58`Jb9T(E%
z^ye+C+SC4M-(B@(0|eC;|K@GS-%GY>ItI|L!j)`gZ-6qQdYVRr^Ax2+XR6Vf#-_x+
zwC0n<M1*-k{?s*4tKR!?(vs^5;#U=m#a0z!l^tpvy_jBXqFkJJTC|0zNmyStnGdkd
z4cCd2Hu?TyZ(mscN?w4z_a8@Bvbt^!<ZDKAfkwh9*_<nj9{Hq(o0)oQ^%FSTWt0;8
z%8@<<R>@B(@&YPTr2!gc4Yb+gS>ML}OVP&gndcAo<b><osDrajY#&O~YLNo&!}>kS
z#7`(FkS@2K$~pWryO(GEiL#iiRA+sJn5(39IW!!Fu*RMfEBGw$%(Ds8rplnN)~1NG
zW=$VTe5`HgUDSYTB;p|ZwTF04+fIP1nCi;t+ZSM(kE_zw|LktA7NFLzqgGHRN`3N@
zQ&!JCy3fu=gMHRENs}5bbCuW9l)9AH+^(S3CqcC~Ro5hhf*>c`1$fX#ZQZ(`_G7p`
zQ?&t%QY{{TA_1T0c$H$Q2rHDWilNE0%FVr2m1XVxL+?XT@Zw&gpuGD>3`>6fOF4U<
zRD<WOcY-#KO<UabQ(E%~iG0#^W;j3cb^t2Xx@o^;wYflGwG~ip$fBSOv_L_K2c-s|
zs}%o8+dc2+$h0G_Uf@W^ui62=J}ZNf0B&541!&RC5NijVQMA`e?w|VW+Aqx^13(?g
zSB_A=C$aDwBg4N+&yql!C7hj#*LaZlV{W3-kCQ~BEB7TWw&#Wa_XD-b4I3J1bJPi*
zD<pmF1H3Cp68PKR9@cM1I9~8^R8OYt6O)g-=>1p{|Kn0*e73TkF1bl2#%)hVy=l2L
zSten@)Bp94U4A{jOQOWM6x5GX=l{9`Z-R%QQs~<vB|?s`*}i%Rn|V)qcw5!Ns1n{P
zbTOT(9iU*n+#jI7InH9vYMGKwuD%%Ri*izR$q&B({CA?K6GbV0s*&eAVDy)t`JM+&
zj}h@!P5bQ@|GvDqxi?Xuyp|lGfAb3c+0-0BL&|gCE)Ujf2*@n!7Gw)dcoUVNymn&?
zti6=_R7w1T#PahUrv8-R02;jo5ymPhR%sD#_tc!bjB=$fXGFd|kh9SotJgBE5kmCI
zbkB$|-6Cal{(h#BruFhhJd00E-^y-{XFbS<SLM>w_eM`_DW)ZjxW@`PYJfgwdOs&9
zwC=<EfR<C>&ECrGyQKzqK`SL%9R%!5qC$D`FmU~!f&UleL48e=iVr{Q6G<MvA@N-+
z^#0~F7*#1Ye<}f#kru5>v_#1n{VAWR+|bCA$p2v0R`yi$aiTuTM3K0^g+V((grvEp
zPwlb`lsL6mFKJ8fln8Z1MxAP;EvoMQj}}HC$|{Hv1ESxE+<2g5o_6{%uM-rbO;m0n
zn3@v7@9#*~4}5Yth;gAZ%DX!8`pjqHpI5H)ngOg2jYg$@@6JP=&LLMw=IPZ0Q>2}x
z2v=QV!ckbg<6+jQODd5_)FGuvH<T$TKj#*hDqZ^djnZCA9T1bsi-89JXb3s`|I$3)
zbjfGUE;rrPX8ElW!Vda@`$~zd9O=sr8T$TODK(_N-}sE11isbfcG0=C=E`WF<YmIM
zsqLT`Qy&}pENcD6>)a`%UH6Ac6$=_&$LCjetlm}0_SMe-Pt40#u7{$S%7#ilkK_GR
z8}xiw@d3(_q9UIETUonbnww-W5^y@0Asbo4zTdsf&6!nKT`N*5=H#236Ctuek}lAx
z9ZC^YUUK*Hu?wYjT10PD^lRSwdyvQeE=d;h^{ILgBlBcW*WQMOe5JkC%g^X5POq~g
zZ;K@qXZU+NwN=Y8gMIofpR5c7l&YKn$tz>0w8T_N-OB?>&RsYq-sNTCQmzE5dlLbu
zY1>@?J24Fi>s@b{kCouo%emflJH?vM+6_n!5LtdatI=TE7b3BSe}mJL|83y(zdrC&
z^yaq@?y>}>SnDY4lp8)PDW%UUMU*gOl_Na>9LId-i-qs``SRlRu53_0sIul>;~wi!
zPawN}BLT;QIa{@0>jCVKf9b14#-MipyS?R>O5Epe`c^G5iL;kLKl1heGw}ah9>KZc
zTRvPzp+Q{RN?jsd$^1%aFlzcltwa-9cK|r7OP^W*9nF~11}#*B#_-B(o~TrnwVNnp
zS)Ifszy7?7PK>&R0-kj1TZYe>dOV$4R|1m$dxys)RNl!or&Xp;&4X+#MN<n7AWfEV
z{DU@#UND9KQZLcy)8l#RWR<m|?v>rB=2Jv@lw4M*+#Z`ydp0wJ&JHP<T02n)cQVl=
z&bo$Zi&cMW1%Ltgq>>iSB-W?<I9*@KP=|<HUrpcL)53^VB<4m<gKw+}LX;W;jQb=t
zeB=51b;yBIb<rIZ15^qBV8m56)FsNQ5d_b)sgfCY^R|Wvj(WJnaI#=%O0guv^4z3h
z-Lz@<1WReh_l&yNNuBat-FNqpRmZe_-NpF@<BHhIv!~)u5LuafjvEITt3)mxOOQid
z*kgF>Ux~)b1BLb9K`~jOc`Roe)MTo;nWg1QtYO1kB~Us$I4S$=nb#k7o_-IqG5z}d
zLFlMgLJg(Xr96bu8Z8nqY*9227u!IY2JJBfPQ5FAde&oSBG#rencZr5E0mLR<i%u%
z{IsdmJq8nTaxtr)%W8uiquB_Ct4s4a6a-QlYJ<uZxADemgIyu>Ilno1MEZzJmseJw
zzpu++O->NO3k1=I;g`P^Zv<0I4S3^WRn5(LN|#g{$~#Z`DK$)fyrh7ZH&!9l<m6-V
ztwxz1Q2{`~M;wBbF8{5hKyL^G4w5RNyyw(@V|Mf0Sd}UWik_nCI<7I5c&5uA6sy9R
z{f<<<-Qn|;XO@}`N}vrRq86~@R?tRdSBktL|7)SEcxBQ0N|=yCRwbIIMOSp5RIpk8
zTQSAp4*{DHiw(}*M)p7iYc_s;skCN~+Cg%jP673g0((j^<&FZ>)ij$I-@3tRFwpXZ
zQbB1&H&`X|6OfVRZ`otu>G>Jgw9q&k`uX7@6=Ei8yruJGm+BflL&G(6{Elz|VGfR2
z?NFG>f#5)>E|s;m^xTfEy&~fm->B%BUz$mCm(cnx)(vnJRo9J~DucsIGptZ*xcWbw
z-0r-urk(~d<SOTa2TXb6wUpD?R$Z$GEUqz7S-bgoylFxVCiAd|63qL%0w@DMPpPSf
zka2oc9Y|~LGT)_3KW%)fd8HpxVW?BGVEBDrNf7hBP$9TPY2Z-%wi61!la~6F;LQ{F
zci#x=x56Oy2>no|fFR~;w;3nkK2T)kLuPV83sg&I4OAm@Fjlz%3cSH3&=@tmYu%mj
z1QxABRMc!;{c<o@CykYVfngiU0bcmn<5nK_m9NAoapC5ILW#<mrO{GV$ASBYR2w1~
zt;kF2qlVS`M3*7x)--L=g@xDb5R?g~E}E<)GP7{6vt8!Uml;J#Z?gW<070`+&!KNa
zS*jmi&#Smt4{ALYS$(q_uFxU&xd!#9H=ZW$jXxgihI()#u&0y{Ma>3g(4I~m)Ts42
z=#IXXWqUCN6zXqj-4zFP%6|M^fZ%Kg=Btez_o%3G%=_BjmkLEOpMD3WTv_Ax{$Z#;
z9b1-Cc7i$h2PYA4+2BZq{fUyT8P0IwJV+<68|5sh!P~EV2@v+Z6f}5s*Z4nmdoop-
z<CA&4|HVa_xEfRhAVc|_PpUVR4k?%9mbqUEJ+H#kV7QcPP0L}7|6X{W&ht&2LZz?l
z^l#I-?okb7k%oof+jXjI=ZkRQ;8!p)`bd4R(V3n#RC_drS8C{c0?W%f4IjE9-;~xX
znz9n#Z+m_48`gj5ZYatYFQCO1S^c#U;(}IP;HTrK<#Iy3pCD8sZ+4Smn4>vUlk>Wg
z+$#=~pgNXDx>jFk!hJoyNmA~{?J`y;Vy{Dkw5@K!;V3&hs3bj-dh+g9>7hzf9}k*9
zr2*M3Kb2~mjptF)o4EPUrd&a0R6zscq=p35#O(a<b7h^d1nSA&k_Tzy>O}dpaUCKN
z1a(~#^rfvo_jL!d!G`_RrDY|&>>XOI?vcXZTv2)HQ_Qq+RpKL1t?F6~3a@0SK}<lo
z=|)wlzD{0MB918WY?t3D@oYlRquft0M-$STn|RR~8p?(ziD<i<D+fSOvVc~r<fm$A
zO5A~p{)1R^VT7QgY?gW@ltEw7Nn3YE)hQdo$L0N9a+d;ToAat)dk=FB4W)zUhPdgo
z%cg1LSSQ}D6HL<d36WoHK`45|!W;1^1*EVdM6Ela6i*VG0#GYmrFGW9@4g0r=th6a
znq^LHx{zM*3Y2%j@`MNiG}0!N>aK($Q6Z{pT}nX3yrx7>Zj~(yG_qJ3DTWH<auQ--
zx!O4iX0T5ikT9}<1Txmn$u!e#b3@!kO>at_jDN#Es>_<?Mes)vLn*Jl)0OIMzy1C*
z1|EW9`qr9H1S*<=z9r@9Jg1w2jv9NcxWccnM0@A1EKeO{nVlf&Zec~c`wG?r)Xaj>
znL~qjlPD&t#YM?T{@Z=97_({V)zX~r+M);2EK}cJBkG7nQoi<|=pMilN9kwq^I>1P
zCy3Z{u-L$6n!m%4c21ocESEXh{2fbu{IU6aNm@8Km-zyWKBG_=$+FwhTjO$N@u(4(
zUS0U@Fzt_`2ZmNbG1z-Te@j^{KCkqeA7=?Nx$tLV{I^oPiN}pXdcx1w7)_^}&>w-u
zr!D#;pa93-;*w;f%#8G>P*e{}jy_?g8-VIs*L-Fa?v%ki(eA2mk(e_f&y|b%v=7#A
zdB4skX{OAUHez_jR>;!3dBzsWdeuUniTviI+Slcu&mWcwn|})00Cr*5`Z)9^N>*tt
zkV5bj-SUxD@DGr+_BXO19il<5Te!$&FOw>Zly<z1R(^9s6pE5fCa9J98<`1I8(vl}
z@X}07i04i$jZv^{T^HGc16_<~jwUCGg6s6J42@}ng%7MHGlQbZyD=jR1M~VND}$xh
zdC@gaJg!Ge*HqV~LDR-DTA-Ee66iG|7;<AsJ5X(AXt>j?#eCXmWkN|GWEktnqH0ag
zPU3GkF-luAtXWw=hwFHSD1WN-ihEW5M6jX-X)D{E8o2sbHEa*M8V3|*`4nty(Sk5-
z+=y6(TEFu^FkBtr;o3A<3{^8*8OB2;W@bZ)49+i(fqjZjnkliBE`QRB;%beuOM)gn
zG=dAQ3*UX6C`D?w45|14XlYY4H)#R=b~h<%j{{?0tT}O0ZhBeF%k`%pa}0I%^iuEx
zEn#VuTKIHh#iFX(r<o4j=*&+Ivly>0RoNgn>g%GC!!-^Jb${=IkyQRSo@jL2WT)S>
z^knvlM-McWBW7h(EJ)<4J`XmNcxq|v>FLm*qPcG;9u-HDJ7I5Tkt{Kx%R&~WQTxWQ
z8SL~pWaSSoHf>3uwK873JxeVZT)wwtIQCBC+GfKmNzfZE#r;ac0bF|Q$DP4>udfZf
zNOc%NOg*7~i`xA8o(nCrho3%{QM2+OSg+E@@=8KX(VVT`$fs{_4iuc5Y0;tlnM5fK
zIapm`OHu;<Y6Hnoqp*|tt~*MtkT9d&o;#fS@eh@VH2zW~v}j!S1hV7e$0?ZqQU35O
zDS6-z4wj5PP<U~{PL<=4d#C}7P9n!<^UQQLauW`zJ&%a?SsPXoye2)_)%3E`&95L+
zt%s>Qp5fv!ua5R8TxS4BAB@|sD)T+hreju^w3E{*t)S(W^rxZ1Im>0lGiK`HmH?d>
zHqi&&0k`YQs;jU?oa}MZw`W!-{ZdeN0zPR2<ipGJ7OrOyGfSeEAlR3x^r<?v0nw!q
z?$a6fH0GcQw`8`{@2P+UyIK7Ka0@yhOCC0DjYSyL{-ybp!U&wj&@GF%YM%zR4!gF3
zP*mvka90%LjfqH5E2HaOyT_%K@&d18<drdBsvcWtn=P=<V7M3d+uCO+=-f^8wM4I~
zH@@~hld2sORj`mV^*4Q)pxjV-&!{*cebvOA7<`>BM|iz-urEJyo#1~Ry*jRr73l+Q
zwptmT!W^T7nHpPneY3=IJWe7<GBVg>Du&a{0e?Nb%Oh(q+&XlUzHF}4;Qu%{JHD%U
zd|v;Ae!PJ)(aWVpcD7#$Zkye^G19^i`W{rZ0hg#V8Z6cdu<DGm&$U*REowdNdAphL
zXVY54Z&nbqBk1X-jXl>@%@T3n4)=NY=8hJZodAQ8j;Ppq;R0XD_Hdzl)y>h>aV6p`
zq9^srqmE|TX}PHI?&HkFw7Dxsl(}3b^W4y?oJfEMiOdsOg@O=$*&u6oS7wc^sa5pB
z8nC;nMdC>D(dnAVk9^X~c<iR<sd~)ewVo@qy@B-$AQ@E)ee1|;?nf8v{~!+N57R-i
zx@KCXr94`x{EKq>gDO1_gx(3`*>IILFGt>FJhB^kyrWN8lU}1uiJi-^xkOw2`Sifb
zL*3sBYgxJ53Kxdb>=w%1TYADdOJluVYiEL@YhOjr!wskROwRUA$~AYqdt<bN?VIWj
z%113I|D<<a-%N|h+915(HO&LjNx^mvv-ti*p?a(i7StO#I8_7l;14?#zVqA9Cpo~p
z&#;j!6^~qI3z+6B^2rwfP+C;BJDdZpYr5X5NphI%{JI@P&r1deWu`>~In5iKjILQi
zand_y7hb87svqpHq3bBcv}OaW{9xdCZ7SpYBiAe0ydWQi{7TT+klHk~1=N7CRGS_5
z|L$wkcWUX#Ef3>D>&`dHeBX8h!S~_s1V_;|Uy-zjeBnE0Cc-B+EBU~Vm5d2_Jqs9c
z#FVOE_lZS3qGA?OmX5IKh71{wnV5xKt`j7Ks>mZiJi;GVHCv(MJ+!ToW?F1%?;tD9
zJS=sN&<iP$@m#2ewQoGT(t-~xrw1HXwMZSH7}r9%5w0j<PQdb?$p;FGUwH&M(hoZp
zz_lImJ%IwzAGxVt_)$f3yL4yq^rgB)P=?nRoe$077P(2+WI28J?{EXE^e^|EQ1s6K
zc+0!kb97bi8R=cSke{Aix0PM4ZKO=Z0;!Mk$I7z0{#vC=#Yv?`=8%D+0&4kd=wTHz
zHZC0r?Uu%~nrC7o&bCzHh>%$mPKi^JOu@ykPWZ!m761rBztlw11*Bju7;qoyQ*cVX
zr<TwB?l0Cd82Al~<c}*SXWi32oijf@jm24l_FN9Vj>0>3qw^P%dk^#EqM}i=m663$
zCr;?^c(Z|n+~F6v1PgZPti~S(<I?fQpC-O^8&#Qo@@(;%)cIfnY%S&55U@2BUcd>T
zYSyD!mb=Z7ZKR7Goqi{X#Z@_;U;XlbX$}^G=PoaQyh39Z=knx_=$VD!)4^-3ML)Zl
zD>NWMr#?O1<pZn!5{l~5WvoB)=NpOR^sVo!>Q@LxM@%ge2aAt#Y9gQVN!C2@Oa-v5
zOki6KU5K%xyZ)7=l#<daW8zY7IxT0)?%DFd(T1X-kM9icdR|Fb>2R61Lg#)u(GY;|
zMXOO8qLR2al<O#c-<o;0ZA%J2;2CVeCCr$#XM9uPned-1k_UcY89owhWD)#6I!C3#
z7T!(4w}l7b2Cq%7)O)O{+2MwSy%+Aoe_;-8xa3Bc<lf5K1_XuSQe-gSQ_nVtP;#9+
zcNg+&h%5lGoRY3b124a0a}5$^8f;shHsbpdKjG;g>V=s<(jh&~Q8s3HY#RSN?y#~2
zDObL^+F~u&sk^}Zylip6buIn?CWtwt0WAi(R)&B7gs_W!HzIp-))Zs0CVMORQuXeT
z$G{4|uY8hl+!=jCrNI^tJhBZ4+yMYvgQY5p3VP3j$OoF!OcF3*pTehAu1>xyHflMG
zUhx(}#$G5^!(}J{)E3#ALZc790GkqLuO1Q%=a#Hcns*9WeMv*H+2VY29Kyekyjs+1
znk_U$vjAolN=w7=GSf}r#UmI{%U6+|kFgfyj<GcmPMPiCTlFbX9P1@WU^)R-v|bk<
z2xJVhKumq1Ljh9El(jQfKtymD8$sL{x3TMdG+^sALQNwzg@t@~Ua;e4%2HDGtod^M
zzV6!mu`l5{r=ig{xYDMk86(mxZ$5r>q#8(Z`Ya0?AFcKx2vMKNFL0ca9RSZJY$5Ah
z=Ql#{1;B-mok6z8_!hP5>s@82i&@5(uGr~z<Jo^7HHp?K_WebR-{lt^4W)hx&#45D
z#F#FY9oa||QJqH2n=IDA`1DxL6KYPi$`_r>WB_=&{D09ds1BGLLaI>_;2x?Bxqhic
zCE^m&M4ZA7o#}sJUJ}Hv&<KIJS-)crcJl!cA~l@$Gi|5N7@paSWWD~PGazJvzzK~b
z#kj(L$chOMJA1fT^oauq_^to){g(8pyeml66c<J*z;5hSAbYvR)$gP9J7!vttiN0o
zwLA;Xdp2fcHD555=n~A%)wzMF^P6`|t{Zzbmr*KYH1T#)bJKx!E@w&@zOG&HDqwzS
zR*f1>+*+%T0k*>4MGwfkU~C87LwY#nleV<xSd?G5J)M?a!yHt%{W$o8Rh3B{ypR>(
zme4p{jKcz~HgmDFG61X70ITN%mhZcx%VUqWc30j^KP-&)LC;pM<%Iz@dh2bmI6JIf
zdr3(D^b{Zd$u=-T*4oGb!uYV^(K%}%f)?SlitpO!FTcFfuv@1o<W^3~fNvv3Y`<wq
zYp<*z1sHIMo6Yip1EVv?U+*tqzj76Y4E_C)kM{)UjI}g)4J}357vXr)Z)SNXeFkK_
zbAurQIaX9b<G0mb?|(CeS(zCC1^FacGBx&FAYclg&qTJz_!Z$)Q(egFN0cpQFMV^%
zo+<(D=?P>8`=JV~mLHZPKO)cCNf$i1)BmEtW_dYX|MU*u;Gl(!8u{<jN^I!!mS95@
zi21yTww=}N)!mFxg8>Ic@|8Ki)?XWGJ>p@r{MYtcYP=qh=xT~_@#8CRvt8EgAplB`
zHrN7zZtepM=6_-uHwN#g;7MA=<9#s)4@?gk&A2xbfrLNGzMJ;V*5(Mh5$rgStZ{<8
zbV+p$I+B0ERxYe5IABtalCk{k>oX&f8Bx9}$89WUD&xe;c}MRvSpDB}--%o@1;fGb
z{D4gdzZ2Ir!7X|Nc7!ODFjJFTvT25LJ-$i1yL+-#ch>y2yZeqaqg+sck;Pt@Iw-nJ
z9bQW@NH~h-SFAaA=e~1skpFE^>!9%Hj^OJdu&JTvT{}+af{I_YtX3m~b6@?d3j2nP
za@5-ZQ>aW{56}f&R=IP~dNvDwqMdp-DL?1)z>B(?O20n;S-HlGfNMn!PHN@S$}DPx
zu_GKanCntDP;tm==M)14Bff9t6CSE)u`*oj8-EwM)1((OFKdFSg)Z_MwE~NQr1I%4
zvVk=ErHc3WN9p}veRS)Dlyv>aRi%AlZwingkE|)L6X?gd(c=KmxocNZJ5(ED&Nk>5
zuPbP#(x)B;o-`||u=&5bJF~E+&V7wz+f(alm8u=22&obR5k&zZia@m8MHiz638oA|
z5Rf6H1OtX4v30l9RzO!0=D`XC86-#~G)$>m1y=x}GKPd;OJX2Q5+*~Yz3@EGxjz@@
z;+&gYWvwUQu)gp6zwd9oF;^;(N6ji+;G+>~K0w$x-G<v0n4j}v3|-J2DSHT%ecc9Q
z5~4m{>)o0+88%U@h2zeA4c1Ys|E-qO{~K*4fP49X$MP6_UZ{zu25E=vimsB%M(L}+
zBt;(OX2x+Y=V5){p-XXK(D^c9?6=zsPch2X?7pqmnjcx*oYDey#GC6#xLkY4dfxRk
zAa3etX`Z|RZPAxinZcfZ$?`A2ma3^uM&^Q0U^Z$Kka%>N#p2eNvDEA~CuRl`DzB1R
zeE)s3;UE-)dsTe`4VB_#CKjOM0YyEM=&epgk1qepdEpf;CZaT>termVJ*wkZz7qwB
z`hC<@NJgo=9OwDKzBZXza!Vbk4glSbMm<?qpowh5Sy8-U|5_G)I)LmaY!$+L6WqaW
zrusPjTLtU?kIeMH(2{F}MmuN$NhH-6EIKw)Z8YKDl0BnVP2*kKHMEmYNsgCVjWia?
zfAN|iO7F~BFxwp<Gd5|?Pc0h1U!KG7FK&q22#H8KWUcAGGL?2DHVY-Nw{}S_qXe6T
zAKbLUP3}<3y(zgKj5ZhODbQI43xS<1c{vCJU@rW1OVZjQ{yP16oG}VrM+#8|a1u-W
z{M0iZj9}qH57^%7FTVdS--*OLMsB?aCEq}_u)r~I(N@%YVMOrwS|ifNTHpcAR>P%d
zG7Su1w(p0C)`CnhGk~<y<mTm`hvp_G4-<p&%u}<7t=0nCrlWmMR4iQvGqBKZE85ZR
z5@tqaw79sMLHT@|ymOa4n5m<YHB_LXEFw617_mZ^p`gdr;*U-CWWoMk<85;rS}JHf
z1MGJ^p6b`cAZv)YoTnqKb6MWN!nbHGkFCJ^Q7(AFTg6<DB=O)8o@J?gTBZ)>h;Nyt
z#ERlWLEXjn%|Nnn&&+)gWie@%$_Vx{dz5n3>+jc50Q~}5SfUPmwHq}&=8<x#*}d9V
za7eF9z)P+Q9aOZ0s<Nz)Y_+G^O{Yz5y;F};?H@d-s_$C=Fd)%87_N`ZBlEb0yuWu4
z+!2<p3ckr7XEMIpX7X#4UiU)}u!a;Mp&+mw1vvm^0cf68RG7?ydHGADQCbI3#Mhd%
zfqALT1E1X~USLuV`Gcc=ynPn0SCKKRd5qMzpyD-pt<_bs^OH1F(fI9lBZ=A6hFkcD
zVR#EwW(#p`;PrR9X%+_-5CQdbq(2mgyBk-qv%MR6yn3{30<d(tlVNcJbaRGIGegAj
z%UPhCJM=uP(6z!|`*a4yUc*Orwy3q)mcvcyBl`QT*~LM0qx1`{w!lk6$4m!1s2qG%
z<ru&Wrr?oe6?>9Rx&B8kXKwH>XVuv4Vf{w9Vm;Mc-Ni!oI|H4iju_>}&PCtL+K}4u
zGPyn4*tQ6$`;b8^Bl<KD3kbFZm7YTABT^?>x8*U_PZnl@Fi`$-yXu$=1PhuJQAVQ@
zr5R*t{Iim-iaauHp&vWu>2)pGb@3&}j_GEG|A=8R0gn2Uea08wB_3orLW?%Xc|ppB
zu;SB6-{RLv18$E8-S|98m^-FU`Pet>!X}`AiWqv2jFTa`_30PAK$4Xm)a8V!nf-=P
zd|o`4^sJRSi@NIX0~Fmyp7xhjCWP7`k29G3up;o|dra2s=helDIODxsm5bj!ok2J{
zrVKcsz<9sTN%mo;DSg4cx8=*u{3Y`lMh*%~w<H0AZNt&j&PyjHKRMh;u8FgTFw;q%
zUSNXLY-GzJXsb(2a?l9s8H0M#yv#jZJ40G#JFh8Mkf%wFhAqw`p|p%UKhAT<Z1Wg{
z)eY}rYO2ds^iH0qCe~6yIK~B=N1uH@6tW4jp`uIPTU;V&qXm;8?bkuy;eTE%?Y7+}
zOOK*nk~sqlzt5DxnUJENhfd9RxI#5-<*&D1TC5kKRzcQj&P~eww$heFT+pi9#wC$$
zpDWelD${kgXh?8A5c8<5WY<)7&Y!=mKG2@cc0KHC#?}oLk$zuBNhb3g1AQj+g8flf
zXv4?0$x!e>e9_}yb@SCiQ2(joCza()yV-JFh3;tX{KNjbPlKB_u&aGvZ05a$-|Yfk
zqoP``vsV!#)xCEv4T}2cc>$d%>9C4gd6OUFMdQ(@khwnU&X3ApW}a6pVtoqL;UV5=
zB7=)cpnF*V)x>f%&byDYWA~%i<zDVs=R4VOWjJy0_^9U(snW=zk8-+kBRSFurknsI
z77UxeCqrS&p3S9JR9a}3BB>X-*;~1Fyw(Yxb|`4{;qxktHSMBk`zNN}g-sXH)`ir|
zU>2-cMg=q4fl%|O3v)=*GffP9uI4cg9I}hTgVX6ux5L&m0&8f5HG9tadHMJyt&oUL
zC4ey;>4oot$r8*N4MP)ACAHBGHCN$Y{aT#ByFX9<q{lnp`HioeG`1_QwTO?Uci#?Y
zY<W;1qORUaHM9pF&VgT&cDFCq)*Fj6MG1Kc;{<{+(kcNfc6+3aXA3iJR$oQjpQ5wV
z4tp1(!mT8rE^-8A+XaZ+AK?1$XvlSgA11iG;Lf~9-rarFY;SIQ5T9qG@1LwflJBwH
zvF82PTRjS|;5Te2{FwPG|A~=h1i3ihPp-+aAQWGaF_@I$l+waxjHb>tHdL%Ywk!su
z#EhU8TwE<N_jURc;;WV;u!)jUi8JglXAx?3`VWhThDX*$yVbe`!<N3rPFzj8@>-L5
za}3y>QX~mmY_U@;;ws!sdT+X7&YPHgCczx&(Q_`3^~ywQMz%PwwhGAw)OoVyL8cT9
zS#KXU!pdb#rF0<PDjjtD?Ke`&H^JRkI#do<>G;JfLKy`#+CblQC}BIAl)d2(6b>d^
zjoN5RMa$<r_7WU=lrI)orT|{r@hZ*#Od%!0%2*<=6)lf)82dNIk&Fwp&OfKMG59<L
z+p#|dtHnixkd(iV%M61!Pb%gjx(<R6RZmhcFyZCn;k;_-BWeS}<cJfDc3wMGyRFgu
zW}{&hfHUssDWdI_{9G}IT^!l*a9tOPPUSA<*PDOi?67=$OH{wVdglEW_u27d9CKPk
zl;$v8DKWv<gr#d+6kH!OL2KdRz`R_<*%T)p-9EFfDPy*?3Ljc1pDos99*2a1Wu~qv
z)j@ff*5hLC8a>Q0yv@$OH*S}{@(ab**krBt#oSUu&Up*P<9q-iA&67Jkh6qNLbe+I
zseBkvfP=*9P#-mzJ;)*YsOMSSJ_E@MH)REQ+;)snjN&|thm(BB6KooO^0wo@5+{Eq
zNuF&%6D|C_!0^;;sz=Eq;3@5e++pIGfuK**m^NwdL7y7W6FLX4H4(jlJ)~DEk=hoK
zh#bV`=iwrjehw>b0R%~*)Ur|4om|&s{>Y6`DpF5-SA;*!Z79cu3t4NZs0}vTG>KoY
zEv%oYW}EI+NyFovNMvI#%haa`*AYe>XgSaLuWnye<kp<CG>QHR-uI6@n?KMqY4IQ@
znYp)Eu7H^}Yt7O#S>#h2T<0#MW(ze?_!S)x`L-1KETEw8*$VP#h_d7-$&uM2H;#GD
zb9Bgh!`kP8d0Vr8?@0S&lKBYYxN>OrFdlxIDNXvBy3zM2IM60#*a*45D@y!KxtcsU
z5=$JucS8e^jM9Cx=9L?UMAnQMik1))E18`&UvJ-X?S><qRdwXdD$0LKIxy1&<JM*u
zQ<SVHb6TG3-KBkiM?NKWrEkNwI)<8d?J-jayBUKL9EK*n0t!AXa^+kf$|gDg#v5uG
zTJcebxE_o8Wc3I%K{z@;HMX|4zQf*;6$dswzZZxPWKLDkgW*`tuVBb{tak~WdW*P(
z*ggcqflgq%Gc<+sd@|uwmu%-@4<)-0j5^knzpyK1#;-urN->g5MT&1Yj|vFaCFFoo
z15wyEw(hjxFmYyekF<eY)0|U(5aaGhIX~!{Pq%|Eb|{iTHy4Fxz*dfqn*ab|_Ei~Y
z9qVeBw90zEU?K8!m(%>bX`QR7=Fi=-l+nP`@#WZNJdBQSJ{^7SFg%{**%sUXWqQD?
zgv^t8<=qU$H7d-vH?q(sASFgC^h+M}pRawWSg1*T_dyoiOy}X_9^?xZy3j7E%ocvi
zLkSk!GD1fD!~^}Ac0Dm42|D;bv-s~CWia|%u=yVWAsY%=e>_vVPx1Aw<n(!Qese{s
zY0um^TV5+uXTH$&>E7=^#HDL}>z=1)F4r{QEw0_R#H$|uz+}&l@MIe32Y|9rn&Cuj
zwBHLloi%*o9^&>RtH}m`LDEonT0f#t{&lQ9q&3L;4*~S(li~`T=coO(JqLPB_nu8j
z2Z^zl+a6mEt{Q5abZ@pqwV-H83Qf#UQhYHg)1K6)y8Nm?`n8nf|3z{-DLoyAl~{ki
zoT?4$R`oWIudGQP9)^VLd3Bfrml`GK^Mua--Fd5g6zyA(QLkIr3K*_D*+?vro0++(
z=l?*astzsoyfmM#40?4N@OY7Kc#TB(IRUa3JY3z%2Rsyfl;+p>`J<drLWfq@!Ia+h
z7gQmI`Hqa)=y5krAOlaJCyUO===AE*hRT~Rh?vf4j_*duc>b^;bg{56cQBOMUi&?X
zKVu3z8$KPhA6qyXw%>hKE;Qa*Uv@FmmEFspZ<(25D<Z2K^$o45QJVUi=66gyzl6c%
z1fVeebqZWZI}(*A4lslske;_e)m$WbtCi?&UHM1>X+(CzaEE0s$lO=AJZ<n*O<s=k
z7k#oFMnjE0U~aUIi!(-o<dr;AfAs__b|2nTNAeat7*je)DpHw_5lhB8H)DqAgL(EI
zl0QX@WaP^=&Z>BALBpE_ymD!x5WGUe;j81vK=5Qb8O(=Wx{VJcaf6lpRf>B0bkcXA
zKL<G;l(Rm<(liqb<vrUIxTF|s4Y5OUA3aFcof0|Mxe`~lgVF=gG8l5p@tyX`drSR+
zs&qdW1SIKNldRkjsV6v%di!s^)OTcRf|;9Y6JbQDK16RTSFp}yw%O&vhB|MM0mof>
zg_>s<wZ~@9pGUL>fc}ASr(h46ON!*z*_86$H-Kz6Zr8Kx;~Bo-Xi(WC*FUrPY3$S8
zcB|6JlUhSNE@fbEb5@niL3j)@?j86El><w;mfc7J<!4fdoi%}X+f{jPm~=o<9$2A^
zhG*PFO&1?;dARPN@l^T7PuUac2NYX<ufHB-H|bv?WO-_=doQh}q?y>p-4J^yf*P_H
zNlDtrU6c!3@hV1owi-So4|;I%(t6z5H_qc*Oq`y65N2}WU@#6Wv&*I1pHUC7{=7VC
zmRvmPZN`3sa2AE#a{PNvx|7etKxn|=zo@y6^K8my%Js0lP-`!)?1i=d1V;4Dd7pnp
znYr!KmazUgl>h#ab4_Fst4%z40Ge?YbsmdKyRF#SGRy(Wz2P@rqO&R3eEFfxfl0?b
z7bvS_({qc~v@09s6^wkxh_nuN{M1HlSdolg+~6k`R^Gfi*$NPT$qLGwoNW2Tq<0g6
zy^sLYf^<=~NLC<+(90#3OgW?4r~gQU0tss=&W5(Cn>+L^VH0i4j6+fM$*dK=el@$U
zCW<U-&tIH%#~z2Um)f}i!!9auG=_8YWt)rj&h;f0HwD3#W4rG$K!bHv$6-I9V8PeS
zLi>pIkAeF*&(}K~p~xcS=bT<^Z2(|6rYM;6r38u`;IpLf)3AJTQPIT?xQS%%8%CG|
z*l2h%HwA><l6wLM7hd7Vlg~O?f&x=OgJlGH{hdMf+KVlB%v$LHrEUt&ulh9-Q8YbW
z?hQ<rG9M}Zm=dyNHVvDK6lhuF1J?cXdfhsU+yGBRID4=UUS<}1&^Mwt+DQ27n5$1%
zlDDrt-a^t6@VoO*!*wigt`zOyis}68Z5Cqh&-V!yPqnq^mMFYM(J=B&Km3)q_lkGh
zZ%q@NfVKoA_8d&3d1Z8dT9LYmWL`7lu_()!imMFiZ)nW3U_Su?`Syzc>mRQflI!oj
qO`AJqB(_+ceaoNz4;r=Oo&U&szsB^J=)}#7fN%W%(ePFH5B~;})xz2U

literal 27072
zcmeFZcUY6z*C-mtf{p`>`Wq2Y7{>_XfTB_&E$E;kBB1nML_k_1VCW&(Ku3xu2nd9z
zG)aKa5kgZG3@svr76>SjNFaokL=r;In>fGkn{)1S?s@JX_j&F)-+dqDO?Fv(?bX-X
z8y;M?GL!vL=|>O<Bx`=*tPKdXH3|gUe0BRapoNz4d=YqUyJ}%}7I*{Cnkfkdyms8U
z;2aJD9Y~V=-<0-c$rl9r6=Z()j9paj{6ut9u%kOuL^*I$2L0&t{b$~Z;PdYee%`!g
zi}IE&gATh?mnzTIgzVZM3S-OsLfdxedd1_tXSQxtQvStdQ^2lkySMoMlz)<<_S23}
zey>EG<-*2yU+l2q3!}xXL1PYo&YoBu$Y~zhu*bT8S~eyO9g|}A|Nr=ZhXM)td;;~B
zVp?<_B%iXguIwWf?_a;Pu^D7Iw&AM)tVz4(i5S1KN;Aoy>`&HB#5z!5(;^vAL``$|
zcg`f_ADY@KLC)#Q4<3?t!Y_ya-2kfs<P67A&U6RbgVPffKqC)$_6qismnTXZ-4T7)
zgvIzYJ5DLxp}8bxj<Hs(7oF#7H>smPe2&^nFvcu-+BVn4Y+PHv;~HgbHfHPYCh|g1
zSm`Vr!QalB0M*W?OyHC3Jw35knh7zXTp?At?lPqpFSPeGjE*yJj}^UUaR{0Al(LPG
zoy>jRd8|I_9fDBDO+gjEQ6#v-vQH6`#!An*lYSb0lcGeQHnj6JSc_g^6;WrYwX(zP
z93|)>tx^wX_u9KL3IT>D1LdK>PQ1!xbnnW^q<s$M%jQkLV6k)d@ej#*e?Gq+g78Y|
z+^HtCe!5?K&J9<#5c4(*QtnZ2l|m`E8u3a=a&u~q$A%WGQt(zZhJMG*fyB1!9w}Pv
z8!4?&=Bwzu;q}Q+nluD^gPRN$`&;2KN*kvuhvrUQHjcp#hw1b^4R0|Fxsi-}+Ap4#
z-SoMJGxwD~cSn{eE|49n8RerW$-_6E3BDluxIKy@kCxXi^+N6D`(o&30BwzVrlFwC
z@6e_<8>}O)`@~zzRDTqSl3T>Z29@4L3+MZ|x|k)Hn|sS^s8)y%-)Y3vc;olUI~vM<
zAC8T&)tU4QDV(6~WvO~o#@VM4hQx{9p>UfO(-s^yyu2)CEjb(-vKh(O+0qci6~EI>
zoxIo<TM>h5X9gLY?OE(IV8*-_g!`?=at%a#m!8rW{zhs+F65|@lh)}G+Hvi00yD}T
zv7Woq^JA1}f5mwFdCJOCA`#abi{T<ya>oL<<MQ<12p4PTa{VtsN}&y80sTY8wf0ic
zO0eDs+CosIHaB;0eUxru#D4;xK>FwM8xu`#^sM-53si!g!lo{`%0|gMWY%t|o{NZS
zBi*O0MtDwx+V%!tOOye%{bm%_!Bcmv58iIi*Xwy>TrF5mtYC4K_lt$fLj~h_!-$)n
zaB*YeVo-ixuv7hVMvf6>dU#YkL5=Jg;iFl%S+5d_?UO~`Wqq|x6$a6m+5=^sx_6s$
zLcO`o)0tI8?3M@!>uuuX@B#mMaUSdAV@h;EYk-r@)P-0=Z0P{sq-SJ<#o8P$KsI?t
z%$}oK8mz~2f?mOn!6Ht_2ot%v3SSyS_J!}l&0@n+BrG)?5enZZda4FzVe9h3@wmY4
zSBAsRn^v3*@*52&xI(u48msKL6B^yOBtvlRJvCga*p#G#GSMHVC+dc)HUQ1auzzuT
zG1Gj#yXq@`HF?JQb;?#9E(FSot1wM0%rQQ+idJMQ4)prv3O`Ki%R;&h|MhjE{NOb=
zjxpB1T3fGvWo+WQvAW*)z8gbx$hK{Pirqf`gU8{r(;_O<Z&g^Nh-@iobX4}tV4TzL
zKy?}*J9A$Pal`t<e*TNcSlZ1K!>53aRDAZ^`dem-&IT&`#KvpZY_Hsrjk(<TG;F`W
zN1HG;@##&on3Y_p41rYE&pZ>J+8T8}#N>D}rK$EptKWHCN*p_$5FgypAg>p96j?So
zK_8NjW{zHZRzESkaGs_AeC^XhjJAJgM2>!KPvi4pcmMsUXKNNOf;-m2S=n5($4ZbX
z(HbIfJXk6eze&}6YTxl79zD&j7#2E@!k*y0PDH@`^(zm0xez9qF0m2gO$mIccAqxK
z&x@GT&nyZT7+pJ$i|jqMK?K0RZ^@6c^l1q0Yhd0BtH%z&dlKsF_+#$Gygf>9TAjTo
zejC1+#~V`AMe>uUaVMs~b*4BC?9lEDt!V7djrZBsG&eB?tKP(U0Ue+r0cN{;$$Egi
zilf$&+14+i6F*;DztW!E7pohGKphfi=s!1z>}YYc6YCXosMKozdBYa(GIDR!Y%*JX
zvY4{RKUn-W7g|iLWZ(7E(pXXm@4z4YJ&u!%jPxkxILyPH4k3=hOQ9!=IfmI{m6QNd
z`2;uDR^;A3R&8eRp<*wmDJMLnSd8l6nUz(t3;c+8gp-{|it#}+^R#)FVY4~Gu1*(*
ze~j~YZvNRqSkpe{-}^$;%+g>c$1db<C^tBd$@k5Qb%XYs1a0Fq{kle*$(<(nt&SQN
zQ(Pctv-wcB;h(qn#rCj-FZ78)1lUPtll91Hu|H+jgyQEP3>&T`c^Fr#-~zH<H(gSP
zkXmvMgwBin_w$Ej^Mc^qUt}#RjhbWZO}~jpp<<=HS_k%P7IP-qWacM2&V^YU?6-~c
zo5|nAoFd{uZB|RAL#?Czk5h>%4k91Zk+3eM&K{SQ>O^IkGNx%buh*6S>B5Q!?Uud}
zs^=s06CZ$ZkR!ATy~U<Z&1%1&Q@!bqt&{b)Hk9@KegcfPN}1t-bH+X-yx@+aux0u_
zGe~sig&*Yy=rwq|su%Q1b4z2*!TalDi6(NnBTUbB;Y>2(qXBd5!QQo}^Z<Zz$IrFx
z1kL|zSTBwmH{^J0c!f*F)mM@l;T=t*c{%#S_5e=8F&@(|c=Cui)i8Q=YfmNp(nRHa
zO%Q)LN7e6GSE=)mN&lzem>2{_u~W2`Tgi8zggCwNE<0=<f#=3+t=t|y=RBv~EOBIB
zT~=!*fP=Po)ES@u8iZGel-?pK@=K2yU8NPz>_;&i-wlWL<sw%y+)sUc@utHW+Q3**
zO`-IR^3N%M6~FWOrD_u`6xg-U9yPWsE)!FzGD9Qr)vO2%Z?oSj^5Tm4_vLn33&YZE
zz)GU#ER$=$QdX@RJ2oX8>E19?1+}?&xQb4<U#iN{yZfVjSv;XJ7~3*=^X-Z}MW45z
z{PN4Oa9*?jW>Mr{(VX^ry`ECT?9L`o9ARebS3V#Zq!j!2YRS>;a^_LYO4%10zPNT=
z5hFwJ%&FwWs+*v~IyRz%G&yDQK7AXw5?KFn<p_8ZktzxoXm%-v^A0#-TOU+raG!cG
zbmagOv_Bs<eq)$d3!7gl)lEfBCi}?iiRUKNbu=GWIJ9mq6Ll^-L!5IErbSABra5!5
z#`%<`a6ymDz^W&p?z6dL8SDeS@mT-f*+_!EXeh_Bc{C?5q{ELm!DZ<;9JI^f8sNsm
zOzGNwgWRWy&P_q=Sky|;#%D#*5b43_k#IpT>C@+aH~DJVRi0zGV4bATEkj^x$DZP5
z^BVw~9X)<W0pxT}HHashW##5WYZ{Gj)%Ty&(h+J<GxbpHaqRUW;bMgzYIA`t-gDGN
zUwOGeU${X_X2;?u>4`2K6{A6s#*Vt<cEM$ZKjT|kW8%7ZMr#o_!cy49b`-#Z_4mqu
zqU2U{&V}<PqWfAZo1;5;v9&y<dUd_KOF6ZBOa^=;-qK)8lSFs!Cn^RjH<Lev_ywbc
zO0>Ka{<-4IBJ=jrHdD_lP}0F)*YD|z;v+ZfF6dCMvo8x?ky}#6v*rd9iEW-9qT;2C
zIkQj0c}O@nNp@~YMKFP--B>9T!eV`sLYTFrUAWQ~ym!iA?fQlGl;I3tho4b2MH*Ao
z7ql_fBc>#?Aul(sV?#Sv|5Bs@&g(<ckeKc`Q7I@+42rDY3ow-@Wol`{Bzy6rj5U72
z773tMWm+xI*NGGHWpYIJGqIF?;!oj%U|uLWceoOhdHtn#S&y@bKKAqH@n`LvwNTkl
ze2CtbYXhC|8MScNr5b%*RklxFZ~S2ti8zrm6b|E#>Q9T84T!O%`JnC3A<MCA)w0Qv
zafpfJ4H+e<wYp`h@pC~U%XBU`a{jPVOZ**TWPX~nh0fsBzpXk5)R|zq>5YSmY9KGU
zwwb!~{He|yr9bnXCE-c&!L!PTZo1gD#m2Ok_Vx}&ID78%ur!&`A4`Y?40P{c_!$H{
zcV&ImfQTfmkLP9=saE?<sm!8fQz4>nRDEHGTom74b^IEV62wF0&unda`0Wy$4-h8!
z)?p=3g3r5Ki8sDBDhi44?Ka|TJDE`d?J>nT+M9jd5fuU+D>B3Vy_(yViIPu|O}kV>
zoZyI|#u~%knBfJ#riRA3Tv00>2)<qzhivY2^JosdGc5{k?;X)&S-Z^tG&6^n3Hkg@
z!C~^_`WJOS=X;dZEWpCu*s@6rbVD;LzI}K=?2DZ)FKHnhTzBP+1mIq(I88J+F8|J=
z1(XMEUpw}4<J0eg*5{vsMyiJ{PsqXXF#F~Z>@@wuVk5MY{Y#2Zz66h|wV<C(fI*^%
ztG5yxXQD4Dw}yVAQt!#4ZaPyAQ%zmsUVW=d%)z@i_k~)QFAOhE7U$Pu05=c{_*7e-
z770jL9wb5H?g`{Do%dvK(Hmsv4DvoMa_J}nz5nNLB1>*0)l4tC-0@OJi@oU$p{}fU
zIGnzSV5aHZ1rtNQjjiUmh=W9guSaExLN(bSpLqB7-p0P5s8%9uyDy#oGpM=hld-cy
zl;D<mNF+gJ{O7BA1B+CSg1t3yqb?=su8%XLmUIP0{W-9&v2sNGvOF+Idkiw?sPv}A
zSub`^jfPVBJtDq^)aZ|hZ~sYH?|>S;v8ToK_2-jn^-V87DSb<2xhnfr=D9Qz1S_l~
zDY4U)Y{4bY+o1h`QTv}hKq96I>>ZS<C}Xz2yVbTHH>m(>JK@Et+9{ng^>usHCdnrU
zN!s>*+>`K2mH+70ih$xvwL~|UU!?mZ^+Z!Sj;aJX2eF$d7$H#WICXqB_Qonp+Uqo6
zjX0HMyd3&W&?lSv@0|CU48(988*fxNM(T6=JOACP|6Fh>$#j(O$jA4Uw!DnFz+Ea4
zQ3B)NYy6!UKN3csdL+7lxTBk@UlKzf45b7|{AZ`h*BieIkA|nxY>i>8k>dJ)bU_fO
z9!b<qd>+@T#>qRx+xeYIdl_AFGF4`YwLzn{BAy*?()b1LJKMa@K&dl7(A7FcpX^#K
ziUdFYdjk7_+_kjHv#rfkoHZBObB*-x@p-gQr+FPY^Q2Y*tz@Is&OPVvo`dm~?YHI~
zRnCd`;D;?!PKcy*iKqlB0bUAGy>>#4)E8nVp5(yUSNvV}^jNualvl`^y&d{xF`j;l
zKS*Zm5oWr#9b5dwBB`-AyY6FRs0RpuV>~D6YdhghsoLpvIPM(xQHS%#>2%g!s;ROc
zcr%ICj2CK>?r#-d;@)NXbRXLSj2=0VH#!E1rgcs8_X>VYz_RY7h$l1cqt;jV!Bv2M
zrx&+UqU^ZKfs@;Pkl~0>n3Bv-R^>5YO;yKssOMJ9yVOktd8}ju|Aq${2q2$obJ!6z
zdLM8Q*r=a8KmNSvVfZns?ZnhA`8coQyckwh_eg}JNA#EHQi7a6IOT2}$yyvE6W#m{
zO0f^y5#>m+AWW-;K**BxEWthaf2vPj=bZ0E3bESDQGZ5DCO_M~c<fEAL7c6Q<Xb|2
zmaL>|2da3{Gv!{|ji0MO)v@ODFDV5}p_@27QfcFjj~iXAYS;ao(;0D+v7oB6?Y}i$
z!;9W^{~;ZCinl$gev(i;#ynakg*KISXlf!Jo*Rhbe#A?sr0V}bXY+}+?1!255}JZ;
z%!guX+58fgp&C2LY#-<Cu8!{mH~m0=7sb2p<8JcVNz&5xWA$0dCP8g~?f%Z$(%%8&
z{=ZqnSnK=`PCMjFRH&y=Kfjt~FjLI-NiAT6?j|ke&`g$vnaWDf<IeBwG;8ZVzkV5E
zUJJil8Q<uAe$n?(vb6X`%1+2kdDXJ?!>Dz#jwG4{&BsWqUlI-i@si}xxClh|!1Mp%
z28ll$v&A}L-PnY3LOH&?T<%z<w9e<1v}f@cJ&#2o2<^lzf-3#amP$c2i-;e#8-~Xs
zB>QUX`g!r#kcgn}0GXUxQm|5KwL`v)Im^xMnU~V2Y8&Upe96W$!9%|!60RI-u-1?f
zj`w#&Wlt(g=0AFN<4Sy)fL_8>EsuX8_{bVeoNSjRRI8itt?E24i>|lNPnfpk$IRC`
z{v;Vc9|eeRWHrmbC{G;Lu1TLPrMtP0DjaLLaidCflsc{6DIOo(P$l$D<b_FGS%UpR
zK=|dcfnpff6F;Y?-@&E&;4O;kjDsH{q`pqWs*NOCFr;ogIhxANQk<455$RDvq!2l4
zCv11!Kj)*}A>B*FK|lo!k5lRO?<$K>o{sQPO$ka~?{)wRXHh(+5FA>%QZ%MT`&(E3
z+Or62ZOsZaDKyyly;C3d5mgo{#mW5wuw-8Ur!W6naB6OBY**`i<<9+!^@6+-gf~$t
zG>}5|WqU?!BDGPeNPH{SNc<P8jM{1kgb&X@%>+5>Y^fI#1_(KNTN>rdVc~DH_{8$D
zg*Q^@Sj#rjKCP04;fm5X&y~w2ss#5eQ^S$mXRNLH_L4IIP^qScj%J^@9Oh=+Xi!0J
z8MbTnz`BblkLRSDcSu)kdWeYT;*|fS)9fQlj=hArBSR5a+tG5WFX>m@9Yi7q)6djf
z0%~fX`jmTW5FTQ!Lh!O~&u;VS`36PYJpoXj8XAV^sCwvB(H%aSegbPZaeefh=EyJ9
zC*8+>aFYGOL+>-1_4rU)G)<~#5qUWda3ZW?{?EPhe<kMlqOOkK+rQb0K)1&>NZPts
z>ny<OY#CYG(iHsGmB2@Q+ZO5?>Vmk)o!!*|;2lv%vxAJZqEN-yh_R|5=ldGvuU^cR
zlNMH4fQ9c|JWPEW%U@t8Ye#gRU9^s0#<<6_Ym0R>*}qS19XdSadnivQI{6ctWk!%s
z(*Zn5Mf=1jxyY|OtfSskbvxZx6+BmEg}`HJRo$m%a$^@7L>nCOhNK6#PR7k6h_Mq@
z-5`hi36b3K5^u|KyyLOzpCuIXYS_|5U=~tCF}%EJ87YA~>;7*F>AtdnfcL$h-tk4s
z&5LcM?VQ;~%YF$g(0L!d-zD$1zfRtXtUN|2pZvU!nRaEnq^&}*rHRI=V!bgJY7i)}
z(5B7K%MuWv_q$~uE}~0#3R(o|z^M_5Lm=h_;_7SukPJxhNd?5cITSCVS`efdo|=(3
zkyfi(Ef0rXk|AxCot8s&lf`&WRt@ohcherTeNsPgYTNcGh3U~lsR+@1AL(iuJ-cNk
zGyZoleg9J<9VnJWB)RTLpXv28Q@6<!<e}tu%kG!mYvz9g<dd~Vz2&R$L&c_8z%oLd
zBM$E5b+Bpyxdwsuo&ns2QA^B+_dfBn@24yGYnAl5MC`Iy6x*X-&Ho0{n^MLzkCN^m
z{^r&$h9dn&?*YV(*t1x*D-Hh5<bqF6WAjUc))?k?pUOCY`w1bP52NH6cbEIpnz?0g
zwlOE#n%#F<*~!x19vj}Lk6g<{tx2R^q4nE4_wZg_b-Q9P5OI1b{0x93<{EX}FgI<B
z{c>Tta<dWZO4`^jn>c%L-`<*T(rUY?&uLnT8O&Fyoj<wvvpq4!-q9`e9U#S^gnOYF
zT?r5Wajx@!Iq3N>)<DOy-?9b+flyT{<`F8JI9IXGNDHnH^$xyz=#-x)w}K_2`V*`j
zhaFJv?oC-Ir3!3cfg0U9|C@=2F)W3hR+@J_K-IIkwDIeGAD#n0&uHVNfX)(xl<by}
z+ey)H@mL2ckbR?`wM5;l#<mc?xxv36U$W7C;csts32+@&W%04BwOG8Forz6zcojQ<
zT88J~j8M)9TH+Tao_&3}hmmfFmX0Q00u(fVRTA#C$+c48rLf_jzin6{;<+r=DyzY^
zb3FgxdUO18RAl?|PvTR$3!A0t55z$nUhI^e@Due`33FJdhf&seV|itlEX3aMBf_>*
zMPC{pRP1aZkMT&;c0z8@JZgFu#Z%kAbao>$H+t~fvGVwe(2ZYjyj-xA1Xl@c#8obV
zs&JI_XlrbE`yBMu{GTAuki-x{aDgbl6p^Fq(mGz>$5J)6I=}q-O8iSf-{a0E?)&LY
zpyMqh2a}fh-!d3!1eALOV36i^0j@Pj$q#DBp55ucY2JByt@P;+1DziA+>d(mpQz%%
zSD$DO#s!Vmo~ObUK?zvqH@xelV95B}Yk7}|qdP-q3o|3uzGMzFYBz)CZ%XLHV-eKY
z+Jv+NmExL1c|=5yOQ%Pj1lk^I^?9Ya7l{dc!Q+n2Ag>%OV#s-7T7~Zvp}2Etuo%j{
z48(X9yT`AE2%E$3NSrQja^*f#K1+K@R5T{OG5CvAU^?$s{y_KF>FN2`KGbvOrCL;d
zqZez9jW515CPpr=>?mt)Ss2A^B(0A+ZIv>C5KwxWN5eZhs^a4d8v8FytL*e}L3(|J
zHpJL+7gz_VG`zB2PlsrU)yBw*bTn~C_A-|C$U>rCy}p*Kfp2xbz?E>nEmfD7Ov};f
zIW0QN9cRteecDf$5wKd28`;(Mr7-OPPe<dIf?#elCZyA`mHzYkhADSMZt`Ur%TO6c
z2jYdNEAM{&_gw&qF!|gg)|aWcyX)4nZ&5YyX%1<@ucAj_+(cFrOLcf8KE8c^9B)z*
zAJ%tDMrr61^7VV}cgJwOG=XnSMU`6xy$TpvUEbvH&}xrtit#{X?xK(`(mjv}#CgOV
ztCZEPPAfJpZ;a+vQ&$L?I;G9RXMnV#w2Is$8}cfqnJh;QJBa<4Uxjifs1)71Pj!2s
z&7MHWLZGTTs46!kVi*1*`{c>%XnuE_#|I+%3Per_b3_E<O8fHWq}=|B@_92tYx#l$
zo7UkX0Sijif9UkbCjm>B8fgy+e)V{SRLq+sc`M#V5#k#gXMYHka>Xh7p~p`C0CfOQ
z)7jEI02`^$e4T`EB_1p1X;w*2wSbVb>T3f3l^kUR$;zExa1*(6J6IVs4{5=n?MF#z
zkB~UpfD3R6=YK9iY7rOgv6tO18~X-MZlxOH!}r>%Nx-zRM*0%?1*|jF9DJm1DKU2a
z+N3=dRRZ&vD2%y+cot*9{lFS$$zpu?mZ{SC)T?V`6DN<=4HWfzhC~C2&aaZ1UI;o^
zHLOg6e9t~+Gj(%O9;*92Lb{RCCefjk@R;`C3D4_UPYl^CRwb2V&!N4|;$Q=DwS_DR
z5}?#GK3khqLtfn)t8s*AmMuc4x@IS4UYG5au6RRJS!2qWaT)-k&Rx^Kk(N=YD4piF
zPh$#c$ql0JG;ADgtTu{#TlpQ_5dd7IO2FTxg6sd8DJSdRiS*<ynhXD81t`z+#SZ?K
zW0?-asdn;`iESs~fbeJ#CbMf$-g`uS<tmVX*1DLr?;;M`ztZ9I;?ssLyLIertHPyP
z)#EltrR$O2IBnug6pwMn&$gnT29mBwla4mE<X;x)@p$AHH32dLkKDLWD;+)mBY<78
zbuAGnk=(Im51hw;r>i5d8_`!g;a$sBLl|CE@;Fc`&?CQe07usP)E2gyU?L1J!vA;e
zI@FC4%T?in65dX;f51WZ*$EF)k&q8e6{`FtV=?BRlf-2)tAi^{$F!0@x9JgO`&PH+
zs6g5@UOvrEnnkviSD@Zjs<=;(8m}*}`>UnN+l$@YJ(1Cf>O%sN54ZZzkQB2D4S<~W
ztZY^})i!k`-in(d+pV`>abe>Of@$t4-K(BAa5l+04am?sYX|j7(Eji**CwN>e0!X7
zgEUD<aQE&xtW?xo8^d6PUPQE$dDgWNU%#WF7UI}u$nLt^C<T?T9Q!~z1+@3<|CsFt
zl7^;?iyK1_E3CJctFc|Y^!B~RF9h#8*6y^CF*r}1H`2O71tI0YB0WFG29c9LuQfIC
z6y|}|UCvTZF_P4DK=TH`*{F%VsN?>0Ww;SO=F)V}l;{b|#DSyaEzQA3r~oVA!^|X-
zYRL9w4_9QP!KshYPI=vCN=(+{4hc~b+$AEER6Is3KUOZ6tfMEzJ!s#w2H&2a7l`tF
zBe}2wN(g~Cw8bvi3E78Ic1Rl9_DeJ%H_#LEF-!6t)N{h2O{ieYwl!1QBl(`753G%Y
zQd^=5PDrVr<pV5KOSM&Ji?3jfKE9F+0`(ksXmjO?s5pB_nTMnMsm~+Q=KbE{3)4p7
zCx?z;nDs>ZWp@veDdNkv&Ncoasx-j9(F3TMD1-G%w+?q@BDMgyqXj(2eF5G`KRG?C
z^joBR6@*H^jXVRK3?=1zH3Fo3?K@xo5ykl&?Y~j5LVyz&9Ne9-I-~Kd!4ph}PU|sF
zsT|DqyV7(PRBong1GjDXV{Mg@<$2HmlV^hN$3fD~ohnLcINNTi<oDSsiR9R$zu`<(
zS7T3>^OBvu%Z5Z#Bdyzi8Xr)ncwR<c0c?72GIZD>Ew6@Bc1)>cuLMy*xBwbi9gw^3
z={Z3ZeAp%sQSF4T|DD3+mGIgLb9y5jq%E72{BH#S$Qa8n;mxIuMBcD!rC8OrUM=`;
zza#Dedv^tDyU?x^R{Nhz3o;4r5?*NAvXMDoBj4BwjSo?!#t%@CUlv;cXFan^SdJUu
z4B4_B|G9+lO$iSP>F0RcvYG#(d%)7do)RA1q1eh8r+bIL&N3@b-Sxc;7A!F|op?`d
zjWyB35eu0f5m6%@;8|n5X=?F5^}kH;MUI#sOJg0Sn&C0UscShb7R%ZoPP;DCu2uW$
z0Vx|vZ?ZOVYN->1$-J=$%%Ri<|D-z;cy$LpzFfKT?~O_IH=DH!i2XbX$2_OA2uimn
zR`9BMt5QCBVR-O?S7IB{IwSOIdt+0q^3Z7Q&_YM91J<2g0(C=%HGGk-W!O8S9W@+=
zFg?BY`Yve>s3i+o?$lp^=%QPV-HjI>BT9>tUd7I5+ekF*Wf7OLL<0)djv^uprKcGh
zT0nE85c4wrqn@*?rM!{PSSr%*G%kvn+C`(=G_TzcnY0zHUZ+Y?(+DcnjpB?{G_^T2
z!|tAl$e#86Wdqi60z!xnWUcK{rx3G^OiDf#AxsRSH-Z4Cgxg2FB*E2-D&bnA0qkyQ
z$My%2*(A%_NyF(ZPHv#sm)mYOFAnDV$evlOx2{9FatluUD6MTeU=AzQO|px|aM;iu
zh*d2rqR+|1gt{@4UoOptPpJX6l7BEnQxjS#sA4^*%Bs;eT)BeBtdR#r{(77ex$@AS
z1Aq$w;yF_Bm}m2o7kU9GgtsIyR6CTs36zxU<X$033-PR~p$!P&GCaTbu=aKzyZRdH
z(hMIxSFsPUAe3>&QW`$KIwp#%iWiSnlJe$BN`JDIHtsA}0w)5Ycw}#GWqD2@uJT=@
z-n2QDpJFt#b|_7zZDDntr2+uk5nmv{`YLP!Rs3KDd+%rE8gbBK@yP)i=8va<dzvT>
z!kg)6dfp(iRPi*&;bSFv?9~@?GEMyQji?kK4`*b10Wyx;py*>s*|zcFcWOw_PG!Hv
z1!eEj97xY+(fjQ_o7zI~u+WFDH^)PL#^t>HN$bnq!f%}>9++WSP+MbPsTHjr?pfbR
zEz5B4{xfdzj_Q1u2C=l!{s+3dxAP{rtf$8M16GQx!g#$ss_|`1UAH(e3TvNfM=67b
zzdd0+ccU%#47X9yXCfXidQ<u1c!Gc3n)6t-n~mst=R$G_C}ZkGTJ$A<9Fiv~x>KV2
z!W&mVT4cI!1FDP-{VA|POkR!Qg1y+Hb=9JI-dD>tLQ(TW6}*a9SHi2;D*KBK)X<tS
zJZI`d!={bJgOpObNr30a3J1<(o?RL?W@CO=(07UWP_>yp%k^vZp1DF`dm+RnOa)y{
z;^KSOD!DF536{<K#QMx~rmpG~C_7riojyNLJRbE}TY89+aNzprCeG^B=weM^L4G1D
zwkQv0BXR&@&mk5>=?%>@V0&z9*}-|>Fv+(aE3axa8*7PRvIOV;CDq$`w{ADUGh5lR
zeUSZ3lfbNK;W#VNmc}_AUHawip}f}CM*pPD@0I<CO5eVz=5y^fTY#hh&2lPeErZ#J
zqH;*&5t6bWmtGYk)EksWD5Vl7u+bSfxeYi#ns_M?uoi4-@^++YheU2eqH+m<-yBN=
zzk;XPsax_;FAokP&DwirP_7pXC3@ACst1_1yHJ$zMDMF|@6lTmd#|dL()Fch6rkX-
zlbP3Fz4$b96)4-bzBQ1{06Bbg(vG6Qo#MR@$=PK(;$T_tq=yY{R{&wG?U9aYyL~kL
z@4%q$^#2$b{6}59qmev@#Ty?=(e2i#kCyH{;mJt=pO36pk2|t`Nt>@ppd~!H`fq2Z
zJM<GB4$txyBB=RAb*-g>ZdNn(HOm4obnrAm^uVoBrJmDk58#)@O@hxXdB78S07*`p
zQYW;|pg1PR^n*~9U_prdPt!iMTUOnUNQ7N(t~~h4U1QvsVM=W!Y*ZRF2#Q(h|BTU8
z?Xda*CZ&yjn~~)?`&~_suTT8bsl?CO32}P;oD^F&T;-q6?sEz6mgOo52selS39cAE
zRQI&@rgd(hD&(I*t47fn9|&3j6X&V-&vxyiG3zo|%`IrLy)`aoqxhd|Zv=4r&4sHh
zELG$hJ9<w<MXGh?>W@Z5b36ZI*u1Csk*xmZiG~;p)0eU5xe8P+l|ZPsmm$y`BUvkV
zzRclCc8>o^7$9nCPadZ^P>9E}f@!YE2}Wf`q#Yl-Diu6{#z5fxh;OIh;5k`wjDrB;
zNOx{2Yf`u8>n{sZSG)h-3I9cvu!<NmV`+kVger?SrWO+@mr?;=u%Q(jsiM|vKP)RY
z<YySh{`sfg_FEO(wi{l#_SoI|&DHHy_=I1N{VLzxt#<qUZ$=k9&R$VXKj#r~=FFpW
zz!i=6YVXw^XWdBBeDsK`MsDsEcFsl@`DM+P&z7?mSQ~NW1Y${^K7ut!48&WD1*=Cu
zpnYeQchK?g((f+VABD?E1j}nd$M~F7U_d?}hqlvQ)%1<Yl;R#T3B}>d*mvbVy5<UB
zYxNoX9u><57`%=>+to{5@XVig$22w9uRj8dKiqJYzykTXU~F~vKRLO(K6|{m)Ow8%
zZYZc<7o_J@NIl<WTiYG<d+EDgC2{jmn&eP(IqRxeEP@AKYo{;oFt-YL`8@&)e_pbM
zL-Er;Bcy`mFNU2-;X-Yk<D*PNq)@VUS{{x<6;`bqn)8O-;AXySFxlGg>^P<a+#ZT`
z$Y^b3!5<=rNR3r-q{Oj5S72yHjn2xgHf*d(z3yd&wo+Oi!x7`=|4~-48fCFuVh*|8
z5Nd-?@@rX;2@UD$P1VZ2Y3g?tgZxrHf@Qdy_vPF)1trYvZi19*dTL)gKvTXh!;XqZ
zo9VeRk1ChTd+o($FtpSr?(cYIKz{CwQbAq+sEip$d`!to*n?hQC{R9e$Rm?+3j=$*
zW!!*Fv~1i3Ivu`)PN>R#Hjx{)xz>P3(8SR$yI!YTU~->?1)Cvo=~tR2Vb6{wI7ePU
zk2BODWGp9+dB)fO4T;Vz*F1J?0k@oe=ymt0{b;a!RNLmT5$`0~KWNc_|A^=_TIngM
zpVayM2;9Iya&qQ8_>CBt#azVv$YTm}A^bu3c2LoIfEOssut50Q{nGWu;TGuJ#H*_H
zdlGWBJZ12e@N>!OTR63{RGH%|RtB>LMr&m2yqnq`pW$L2ygIhN>DYASSU~ZYw|lH}
zZ)&^n`_tlY9(iriZe`3J%#B+nV_@g!pu$ngvBOco<+uJpqbsUJO*muDoEk|`h5eJ$
zB#myOW!U8}YcYqS;7=Kffc!K`#Yy>t-EF?v5y<C@=yr76;V-FggGSMeE9Na8YZKZS
zx6#YrrEca=U@PEg^9*Kxa{wA%*z+#-bYYJ=+6}|NI=6Ta7h~1~?y#j00ohTD0;JL(
zJ?t1CIfy^WCx=~ynA0CIHq3c?Bj01oh7Z?nL(C)8qhru}FipRa3xm?v%r9Q$7l2zQ
zT%}5rAUpQardf<(+-vUSrAJ3Y3VW)9%D*R2+jO2x8UITD6CTaPx4L5(ZxZXI>UG*0
zz_J@1%s#5Msv!-%PHSgp-x;?2D8;O!6p(rSC%%WiUsmXN27ER9qdQ5*PF>oM1i&J#
zeb+o>snWdcv?`zl;-h4f)eP|;=a;0mrl!1P3ml!B!PsM-dSST?%(tp4d@YbF&CBb5
zY!WVbxC>(_#7qVbGjF-f1y6F0%7?j_vcIcUGyqUF@7kPF>trs2*DT#ANH#F+ukXoi
z$IFskO)`-01qqO@?vttJy5})c++GG`ZQ=M-8`ZYcl!B#c5J>s>rQ7^o=a%PVF*`iW
zy(GgDGIVv%wFe^5ZIW-GWUqm#-=v=|9oq5zw<uE4-!F@N{r!L0@bc)PaufzE9Qr1j
zQSu!M<K6#z7s~l+QIx=!J?MMh$|v*Vb-T&S5X-8Al7-q<6?I=*kmy<0g5b`#r8j(>
zyaCLI6Wyd$mV|Axn3v7r(`8v9W@!~Lu3A**OfmCh%k{gB5(*`xYVWQ`8de$gzWKe+
zb2@THQ$m;o{knh~KuH#OiXQK3nyxk^Z&h|<ZhP`&WqIKH#RgFLrQ7w$Ot8M1Z+4;>
z%aAR>y_|URW%fWSyd^*~@pPv7Vjbr#7?sO_V49$0TeOiTc@z^oxXl<$<`g|WVhsBz
zjE>rjsAXrEdte!D=8$VWbgb0kD284|Yoqs{oJ~v~O|mJE1)vERvKf3#FkrJfu6uTY
z8u^xu2an5wqiB%`^yJ0mA}|WaV1Oqr8osrhB<GQJ%j(R)4Uz2#kJe9uvBfN~eD=*l
zYEye3Pla>^98rDLlY@J(1-Rsp+zkgehyhc!N#@*b1@wi*)PYR&`0r#3j1iH)vcp^@
zn_;3pQf`okW)RWAuxI6yR^~Ct{9BD<b^7Ki-`ZqmTKLVJ0@}w$4Pw(tt@x#f7{65Q
zcQfDypcyM;^6j<MMses^CY0YGu~DFofN-=CuQILo04J)`yuJ`&7%~4|(LeWb)Z`{{
z<`zyA+iH0o47X71jU51cS}%`*wJwCQ8QDX_y5`V<%kCEWiVDhjBBJv^q#G=fM6+yE
zEF;ZVb*oL>eTrD^H>14MuK`X)%^?7PXNG_aGRGA-hP+9X7-%W7+7phi3Z1+dX47>6
zFfV@SaP+vZjjUAD8qID;hVj&*?YnAZ#g7?TV9yK7Gd+`*%@TGd9K5h-Mb|f9$YPWn
ziM+L53uYEydbIFO(g&JDpU#yNqSt-VbLwkxXj62YrrJ+ZT@yT-!X8rqH^ibli^d<x
zN(OtmyQ)oq;=8V*Bf)Fe(Y9*i((-}VU*?NeMAc$&v{ZA4u6<Y0g#QQn^S{=x{|!fs
zot)kFLD3bhsdG6^UQ%y%2xN&I95vNOwP(+RdVbvD!HNn+XX>~yWdWxR+&_Al_mqM1
zZ`szaskYV(CT0O%-tX2HErc5_RwBTb&7JgZEP&x(8)MZ+Ybq)pS?2hebduncEr0_)
z25zthM{QC%_}bzCYA{ykQ!<!xp(_8m09e?7<Es_xybzX2x&(-vu*<Op?QbF+#lW_;
zU3w}?lacbxFI}QmfWn%Yf3Kq4{4d@xm|+e{kTtBRY6`zvCZP;St#3Ph$>0dtQ+@3U
z`W@KQ0#Ns)kY}kD7&j_l>VOBZt&wqg7>28PUKZm$odd%#eld^FVqDo1D7Ek(uIz4_
zUiu0qF0Am&%;`@VmZ8#ON<ubx53Sx44ROd5|4P;>NdDaHf%Y^HGv~mqFD#dzIwk>r
zT6XsXHVKshPv*6!M@O0Dp$Cmk$TakR9HYJYWN~rw3?f)EE}^CFQsbuZsmwpRtu4d8
zDEXFKg$1IAB}T(cZ4|>;GUwG!v?<A54CCuyZnj+EF#p^vJ<x1(!%T%tVl}#P^R}=P
z<ZAT1Wy3+5585q<Vcy(o`Oy;`9o&w{8^3{+EOR_kV#M>imVeRhGJ%jc%;VL4t>{6R
zbqBQ^2GSKUCK9Q|*jx>>`X_k0Y=-Bh<yCM}(WU;yLGW<FrHSJuU`}UDnp*B-hGI$P
zywt-BZX6==+?|~1F5%dB;MNSron|KG!t!6+XwtGl4`>ISha^<Recd)h%VgAmaSO&M
z541w(32Ar}1KvsFf9YCYQg(~9Mg!|n=_{E9Por;0U8mx&uW2n>4jFLBTfwjzVB)H?
z1Ej&$aSdQg{MxQ%t)HAb`@oS_Vf3%P-?if%APrt}Zdr^I&0pLP4TeXfY3k9u_eZ4$
z*zfihxNt9~srq^2F{_4AB`Ft<NME4Fi{G95vwT23B^?I;MH?hSdGie$vwksq?evsN
zGfoJ(ELDmgU5P35kmfJFQd0={zf{2R8L5-~F%lt4QeRsGPhNi}RfDXc-A#i_A~0&~
zvODCG`Qk#rOQ?jdS+0NI_me1@qyco`@M~%O_g}3+;-;$}U5iC;Mh9C}LCDrX@^LNn
zHd`vIMY&rz-;RPCY|%1c{iEa%LAr<n=2$O3276wrB67c<Sz!;pHuNY~i#A2i4Qryp
zI7^?w3Sb}u;lFz?4UT`EnL3bp4-B_jeqD+iZ$3$uk2M(%3r6$Rq8;}`B((o^_r2-m
zzrd{y(ed7B|HBOk^c|bj_JiiB3!?Esp{NXPbjWvg0We6>mUBm?8efzLC{cMPBl-zb
z%UtoDa11<osY=_#_{*EC96k^!HhQcn*lldIqH{l3g-i9g{1ITTFn@HT@)+{y`3bKB
zLUhwfvf`6T<LI{$Qe8Ws4rscJLx!i`Rd=FWu@rYNxua6^hzHB?G9bmt9S7chyeUV*
z1S?mTH^v_(hY$3~{9tyt!Rlg_VC&{Ct1%6X5$A)ceDCul6@%Hj8W@M(y!Ki?{t?*Z
zqP`VEQ;odTsfxRIZ?rYnEoQc`VYy2Kb25n+6jZw01ST4No4OPJ?Nd_ySY1E`;Hq;Y
z>Cxs@8svCgN0KJ_`Ect7w>n^89yJp+>YMrHFOBjG=uEZf&=mW4ZL+eQ(PG>F(6_tF
z>Ox%N#KK8WmvIxauC9YVge;qC`04tW_<!F8Sa=mYT2)vZVfhfaY4=;EdxW!1(T$k%
zDfTKD23uzTjnk<{%kLd%dPgN$_q%uRfbgGuPS;^A28~J6p8<+VdgbL*h8u!vzqXWy
z$_2yCm+vYOjD9C4)xjt8@>B6N<F9oq6cdwJ-n=<FM|};JVh_z>z|0OH?0^yUKw8o3
zKCEFl`EVwfJb8GnP>C>pl<Z$0Ld)<;)i0vfSw7r(?A5QNNRAcS79CgF@rUZg<!6V|
zj800BBZTB^8+Hq~jQ`fIszz4Fj2CzOp{~9r$T;d6HXhnp3(zjK|D3{?u^^%)T6lQv
zY>GWSk8#3mf9P2WiEiB^EdX7;=M>!2!JbxO#YzOgCkk`)Lb|xbRyva7-<=k}n(v0>
zQq7m|gE=`j!uQ=7MXBpVlRmoLuFn>|Tq&wQVv@<okR4vbB+do3*JBvV-CC3{nV!(u
zy5xa+h!d~ifMG-pH6wtFO-UyKJkH$RzH&96`GLX%J`})`H#Eqf0SYKYER2u(#TNCB
z9wFioafW2sJ`?f!-W=^GtUS|6%PNk#$r`!n;&PmdTh{U>n*)<pVaxXvJVvgD7uigN
ze{IFgH_T)Q)%A?(-;8#ke|?36t2el6dFxsO(}5I!%$*d$hWIl-P>-noIkdzE%Qt@e
z{LnSH&ki3ehs|W*jbnNHb%6c_@Fc;RM>7utIHHLJX=?%V71SG|CR>nZeWUs{5VA7{
zwq^Q+&~!nK!@(HU)W-?I;uC+m*I!&tp)Z>hCBNL4WN8jVqo2XvTxF@hS7UE;w)#MM
zD7KotG+1d&PH_qD)@l5WEU$NYLtrikD>*vAng<ULX_AhTQ(Pr|e~`~Zf6><?dmpX!
zb;0HcRJXv)!v^-!PNu}81?G3a`UYQU+AG)0y2LIAa%}saN3#?>bHd8X=iY;dLnPp2
zju6)nIuniyw+r76uyW23nFdFOUqpv_qb-6m+%M=S%>;mkY(AGP=-+g@h`XM*e%yQ_
znEfYuk9G@u&FT*F2=ns9nVT}jO^_V*%z|9A)0^|MmS5CnF*Fo6Zj*G$PoFf#=Rf}Y
zl)jvO#FOHDu_s=ad{ob=v)5(@=7RTeM33Tfr6rE9L3u5I>6!B{EtlB03UTQVK8TIG
zSKhL%)?E6$k3hERA13G9wv^j)ADTmlJfsE+^fJZ^ZS1Ua&#=b_-gV$-sY%*b-HvI}
z`O>jh*?fNC;&NBIvYW(Sg1{%vwHE|iK6T{7%wbQ$WY(r_XXcvKzLYonA6~OUQ@HU9
z*%vINAf)5}kNHv5^`<}>q|JH+hFl5@1FXZiHrf11>*Vib`M@Cr6O2=>I-qrN8Gmp%
z#1(VGrRoUT7;R)kcE^lsl83;|!)t+Pd9}6EXpJN|Z=_}y4m_I6U}B66$dtqSC&+#2
z;q#{E^!`|A?_TtNETis7WrGjel^0)sn5=K!lFmSyL-QEfvO}%LhoSP8VfFMCxY}AL
z7=E$JXYjyv=bWX0xu*T~MLvT(ef=FF^8-WabIV7}7d{e%Z_`&;Rq5ht)WrrX6rs{M
zpz~GQTD<v&I{ERFN$exW?Ok&rw#p|2R4{z}v@#UO@KFBU#A^Cf(q5a5VU-L<yg4lU
zS|pmIww4K2HDA659+qoWE(<g`Up-U|6YkHx7mvs}k$n$}__z@iJ}jh~8=lC10@ZE1
z6zhb3w<&E7{;b7t_$9o#bI*BtPK3^Zd~k#PMH%nQ&9NAxqXVK%j>=2s7yTLIo45;r
z+3U}qY#gu^qrCjlov>#MvEYW7(^z8HO`J){yW+Byu-)0IS8|w)f|^Qef7r7=t%9aa
zIEQKI465pUb7!iPKW*%O{~pL?=2bLBw+_-9B;4O<e{nhR@&s;w2*ibYGuf}qdSXUj
zM?=J_yQ-ssWED&d&p3Z|RPXJ)o*@_nX@_L*Zc0jNg0Qa}oQGJ=dcnYYln^hIv5y@O
zH;(ACN}=&VgV^i+=MCm8(i8??@;8)UazdWc`>wk#JuU3JK5!yXV+J$W0S#fue!Pmd
z!0hjzg6an3cCJS}F^I6w@IUg}6>@$hdurmV{%V%&puWZqy1|L;S}4Mm`9YIQpxy7+
z<d$G~9y$Jno>(2#d}o&J=AIf`Oq?3I+ot8OuxhYSea&U8)k}QISD6zOplk^sN>!L3
z*q(RZ|74k3bq_347<c%ki})&fF11CY?79I|2Hen8wGeHtlEs)x{}#MJ<u8{eQ+m%&
zK5;P8A;;R#zfK<fathYHyaWXoPTxG^us|sj3`RRSs9CiP5n_Xgbf1-hLtj;f=3%-;
zDc``D<~rT7*?qOYte6M-;OIGF*alCuazU<%1(%(<%w5VX$HQGbyE_m)^?uRmBOEn-
zg3WM^dKB&c72Vgd!a60WS_syZ?_|I68Jxxeen)}7$sCr)IAXrh^copB1}2udf3>au
z1?S9igdE6so&&DMH0e=nS`7lA=c@;cw`Ey)S_&2BBOU5OGc)S?i@dMiyx`E1MK7`*
zEi-R%JR*Gm+|@v_J<pU1dCNSkUtvAUQtwh#DSv7^{j79dFzzZ$M_wr$AGS3J3X1kF
z9A7(vC6$j|h!ZGw)`r+*|8>QcYk5bH7r=dq<8G*uyavB%HhZu8UHtsaVh6oZZ+AXx
z&bf71=v?*qTd;+qew`i9;>d$y=iv^-%Q++qpYql}Pe8Rt_~;OktZP2R-jxxe)p<^9
zPZ&<gtEdL~8d_r`em6U_lX3in!SgCBthoT^azvbaaO{*hfV65^X(Ve~{Q!5%o95~!
zt;}*;KMRLG`62kV?xJ)#k<BPBptKNkMICylC&s_#!M<AONuBFHIJ`N2S_vO+lbAy3
z{bTNE%0~9PEpQu?^D9|XmaI-@z>_e?;#FDZIn3~L=dZRz2MBa!kmylnl|0j6jU9{)
z$z#SNPP&MFhlGPQ!FxSQ6Fz4GXAGCB;5NX4Pq#)lf)`y`6&K$g^3;La_c1dtT`cTc
zra;CsLWLK7qnp=OVA)}2li;=Zt_uy^d5dLM*NTknWKGFsb?8d@?7rTsJ+zTx<0oGT
zQY0TxX3|Na>SR^$8Z7^4HnjR1s=vTs$@#*v@Cmau^9i!Rd6=QE^AO2uTzU#%hTYd2
zjx#9Xj~P)!tZQ`wt((bPw0aV$SV6rd{@|V)&S))u2K*7D0P0&0Uh{my6c0M&7xm1@
zW)LI3&LvxA`O!4GCtZqr+%>v6FRw5=HM)yKUY#2#w2GT?A2^ZyE(_9ZU2h$B4Zb#s
zaqB;g#pqm$%X`e&djy{9NsoG1MA6*v)G4uwgJpdY=YXRvTvMLfSYl19$BN69anTEo
z!w>q6_$6~KdX(_in4y2;M^kU`fUn^&>o;zPJiY5_)j)&Wz<vsiLAO`OL5A4o3+X4H
zih5&PV<TqNtvt&#C+p6yCD~<gfWyHKHvP$$NTTgb#*;7FL4#`|`#Gx>ca%)Y9$fS=
zV8>3(Sk4d3q!WqI!{k<Oe7zw#|NQmgnvv^qutyBt<}XP_Z@q_P!{v;1ebZOonMV{Q
z?~V;e%M_27`eh70u;y|_tr)kD9zZ~6J3QpfwuOVCE5Jp!J^9gdw(=`uMsN|!d7%|l
zk*dcWjE*f_0R9{j|5VEE{5>`vb_y~^$E=qZ6UPi;?Hx?#C)~ciu3bM8CbTrBYm2Q%
z1L}>*X;n?C!_LLyGF6ogt$V9Zo|j1;|44qRj635O-BM9>b<hDh;5CAb3GO;jM~ECP
zhe9()PvP{GaF$0rh3=Oc+P?)>pOWF6ziNlQQ$OhgxP!vj2e)enQz$FdO=2Qj1PkgC
zk9FF#{1F%0^?SF!zy1ULo!L!weHU?!fmz>rOj{fAuw=hx>xs8PE2Vq_ZT{c-hj?91
zXGi#V4Hq^B4(?;)7+h!JyNDBHh|SDB7T$Y0{A|~S<U$1HVi-j;?S{*RFgrBUw_&qO
z3T>!A2O6>S$V%Q(cKbAtk=hiF_X^Vqf>2-VoZMv3gV76d+n!SUu47IF=C=eK?}8db
z=R66Mk7iMK96OIMt#Lg@RejlSUzZ+^f+*!T?w}WT&bbC~zXgM#@Y3|yt6f0@4YR7a
z;Ub!-qhK^>4)6q-$-8mR97nCu3;)Aj0s&hxQ-gRNA67`u)N|s1lXvHP_H`N7@nV~f
zkmGxGqD#*|piJ9n=~=*kB2Y;C2#&rDA{1sL|5eMCBe7R|1%$|T_Eog+p(Vv@4u<)b
z9WPS^MX!Gs4srm;)%8A0U2k+`2Ov$UePN%c7Ut5Q)^6dP_qiE^&OEGt_;7z!VSQf)
zxU(R+wDDIBN?}r|vn>SJ2j^uv(xpq5$ZDEFT|W){{Sfl^ZTti%$yZ<-*OUDk{>hT>
z+X#K_@xDvpt+I|Cr{E{${9?x;l0o5}c)Kn~cLntREQX4Ci^CCq;Z69pj+e|2TIvmY
zBE!RJ77hBRxsmP<2UL9<*c{4~^3}LPo0f$OcOGiYT@qfnLj|Pij9;bp*v;hZa=4OC
zgZ0iM`S$QSJpEnz72x-B`oC#{*X%O({51Epa0}d3tUyD@71;2%&dwmsfT<A2E-fVD
zTlkUi!iCJR)DVlO(^Up8p(n_Pa^M?II>-arg;2!FxVRa>QU9cxAN|!<UN~lCEn*c3
zwW>z|FJ&I$RsqL7IY1~^Ry*J6Ff{sv@eS$=QD3`OxNe&So4uwJDt93L<EQn@8HToo
zHU@{)SG&gRs<4Ff*Ez3_g7pt|hoImr#Gr|jGc!G#RuVBKx4)=z&+%YD%KjtN&`Cu$
zS~|pUt+NQfC#Q@v<8^sH4#Rp-G{I4w0Qg5w$eE4ii2=YQkEc(FmK<yGTi)Csz7+HN
z^GkK1a=kXVnDlQw7OjmB!mnot2ZKt0J!pwowaH_sr-hO*E@=9;sO}=xedEW^Xz#0b
z&7-e(2Bx=ODO}%bS`&)y;Jy&2cSS&{pChtsj%b)^H5+oxf}88A=%zvGlO`I5FWjSS
zjV=NhKamDU+B2AweaM&qUqebT5W6VrL6dy-71t6r`I7Rc4lwoYu$Vdx$StMAQ0nYf
zR<0_+vs+I2MKk8Z5D>E=Sy!gD<wdMekEF(t;)UYApcSK4f>5zgd{P4$nDBIXb*pgd
zA~N=*DBOU0;!-l*)0ufpw=0ruRc1dO(+@;UhFZa)hL)q~C(PHA*L)6eSvj9Ghkr+{
zTwLP>zbpjw7C`i#6j8$&%<%<eqlK?4M>0k6FqB_bTCd(6$@G}3d}TH23BPVKrn3<K
zb@WMyamhQjj_=^N@#?CD^6WV~;$;1JTb){AS@?Aa!Jy?^{~;lDx<w9AW^H@{3xt~-
zNBNT%#lCxicr*O@>`or$4=%R<G++<2_908F`Y1!cw>BP%dEb$ve_}eS-vp{L9d2Vm
z3+Re>UgNew{HAg1llZC)ecdjxRpENK-m9|Epx>Z(ZZ=CKy<^u(XwF;cL|Iiczox0|
zN{SLL@OI=#r>)XRnx5t7{etc;o=X36-FfQSI5|S8C*-v&RwI0DPg6*qY4wL<*dNg9
zaiR(z@iGX>GGGB=S6FLf>J@>OI|qnEQ`EFZcAEE<4MtY)n#<YS{`RZ&A9I6Gdp7Qt
z&Icm`>?TfmtWLU*b~ry>cssbsyd~=kuLas(8yV!#M~!+2$iD9vF`Xh?*&G`12Y_&c
z6yaZ1LbC^<%|%tc%rx)V_Q2nu)p=9cxB4~4UuG`5U+~aV#BuCc`Z1?R+0M~&mMi~~
z{TtPj(ErxmnSUjj_kG-%nwsvZyc_49a&5W=jnFK|UDV1_aV<y<*UHFTz;VlPqh%VW
zaw)(Sm1Y#pJ@-%%n@R&xa>E6eDM8AOybui$c`kdNzu-RSIp;YKKky6Zy3Xgz^<6%n
z_xp8yzm4N{#V_NZxPe*1R;b~uw%V;wm%vc7!BB^HDMH^>8M*y-um1&nK7hIz+lS+D
z9_^y(w9(1^vkx{;xjJ`_BU#Qb1lI-*VdPG$!<scS8)?~XoumQlKyK_2(NWGy=c6zi
zdu3enmtZxe(fLF6-mIx-dBV()(b;1L`)CrnzbcCSd;eVBMU~Yc_^MLbjP$K*phWZR
zNEIB*)4D{(fpy4SBCYM?=Qo#Gi4!A#)XFO6$6tdBldNi9t64QL434ykFyOY5?-~fc
zPE;Fa>YnbCHNf~cdxor2Eb0@iLLA7#H`U4gOkeb#gXD94e<%zH=Q!H=cN$DB5?*um
zu7iH3+1sfWok!WURn?_!@j-^zDJI>9l_%t5JpU1337_6=Vn8^*O@MRMUjA7Aps2qr
z#B3=q%W+T<m&nO*1`Y5h5J5w-uAd7dVing2M93b%5*lgUr{$%Ygj{?BKQ3LbASPiw
zsVv=d(u6DSE~CtUenBcM$`-#Zah|~Yk6Wd+lqN$HEBc78F)=x0IF&pB!3Mn!PcM^|
zU7q>uFdsu}%lQ1pkJXlO0GxQ*YQV8D=bP228hEue)A+yc#-}%|JoE2eSNHQCxwWSy
zC7>X)U+G)pFFxK|RAbTiM;bjf(!KyNi1zb#{-%2W1DW2=wTf07Anff-N`7A{dLSry
zyt5?({Xb>cioG2)LS?cTC|-MjOr?O=X?e`$CBU8wz_!pbXpT|gSYAOt-#TuldLwb=
zagTsHS>x2KB=TioK?W9dsqxy!x2Ab&U2o$+9bSK{{J45QF6CQ<dsR&YqSB&nd9BSP
zyxccunsh~ccu&z|gOHVFO5X>%d8_h1#q$1Ob#Lr7I|T^=XKzE<{422D$B3V_BE1D!
zb8ARC!5AsuICymLw6H$>h<!!9r?yyRWu{qTF-P5jTO3SG>2IY&DpL{eA%+)!%pweS
z6ZS5;0}(Jw-rW7N_fjV1T$`9bIxE4hD;&K&XpW5o<v|1IldskXGp_`U%+;<|<eDvy
zBdU~h(30+JK8hjtw`RnG?Hf&ZAttp5;$*3o>D^732u@u?0&cKi-F6J;!8>)*hBHaM
zEY9L+@mX!dk9UxG+CYB?k>h)BFH-)i91ROLR0!f!y}eKDAH|g9_t2BEGCf!@LvfX)
zZYZxBYS%yZbRZZikK=5_t+~WdDV8VF%F<n};cOzPSWxEW>V^ZZWn%*JhCk=qvi4B9
zjtxWv7frhZA_y^8_%p2Jf_OL+Vpx`(y|Dse<(a-$G*IeXi9d<ViFyi0x0MRTU|rBO
zm>UUFam9C2n>YWPp80>HH2p6$q|0nH|B5fEuKB#GB}my$>R{1v>2oJB_?byQtnrbR
zZjtZ|a?_YC%5Gyla~dO)L637j8@J#Jkj86h=`B2JZTNb?<y2#cJU4D8@fbc0%CLZ1
zv=)I3<3-4pk)!rFp5_%Jj^DiQL3%(=)@LV>lC9aHq=2W-agmF5;|u<gi^@X&Cihg1
z;Mr5p{I=+}P?A@Tv~_sC^B9}UhqV*Bt{dQV#2)+22}hR)e?)zsgp_v)Yc(R>1bPp_
z3=m|?dVdv|;*Poj9Egc0Pzz~wZHW5Q`0Ja8a0PMO)Nb-|>=@H)vYEdjmad?aEH3R}
zgT^zcdg!uCkfQ~{7v|il!}Ep-w`9GJx07Q@tR-XC5w^ERB)4guJjL^e5dMZ}f2~&X
z5Cp3DF-(ZW1qg;APj`!3kb6HEt0Fk{qlKn(zZ_yO!m$SfFq=|HTKS43htv6FvHNTE
z{3T@OM`P6(MBDULY9Zj43n6MrvOpm;4;5;FS+K)*&P9C((;v-rLF#}l&N?F6kM86o
zzkjCHo{7WYc{>d!a%2cAF0MoItqk!eil^L3NpYkv9N)$n(Df*CtHvGTF5AWag$n~!
zfT$36sd=p5gbi2x!o>5LvD&d8XlK9fO2*i+{=Q7ILmou}!w?fM(CV75ri|s7nn+rr
z%^rflY&a>v=J7&mwy4Os>6;H_?PUR6(EBGxy6glW8HOoxD7@kb_P>jE!}~fcC%Y2Y
z*qlcltjY3)K8o!lBJM=dhzDScv@bAiTNtN6W_`&W=Ioh<Lduiz*WXTskP8J7yjn>4
zp2NXCEs(4&x6XHEeB&0x%cX(oTh{l4D|;Vz$2F<y__V)V>6aBgW>>Z8GufSSghlkr
zP}<d?QkmK-#+s{n1~MMCG`+0@O&XDLB<_rpe><aAKmM*2AISw$nJhqI3#P}Q2^LS1
zl)dR?B)&}27`M-@Y%yR2a#TyUWYEzNG2>Z}geGWwmv`vfp2Yfge~t?fi@Lm)0pWSY
zyw-}>$pwk8WGL2tR2RAF#n~v=jy}z?Px*;`hPjwp-s+IB*yylxb)01gS0(V*rxO#t
z69hK|84(TG2My&{>-qwj7V0y1FjK83rMta=QBN*G)?`FeH;lY!2mXZz9$eDsKoZCu
zO-pBB$d+a!s5Wb?yjFY#i=t1@y!D>vdwiNQf`+wFbeN&EhWMg9;ca`IGTQajV^0*G
zX;t*LeDl)5VO-$_xl+O(6%WEi3g``I>oO!$YJkji2kvSKJ_ln|Iv%O(h;d4cMrCTe
zJ@JIV;<AnyHH;!fy`7ndAsbSCdhl+fHCaV$sE@&GV#o>YVw;PKk2opRd{yj*%nS-q
zZi}dHU%3&y)jA&|RccY&-Z?Zcu~H%DYl#dAk>&3?Tz!J{X_#2ut!7a{+qx%IL>0+q
z-|JE$D-CwfBYs1Enu2omr69o(Gi_HT{!H0dac4Zqo8;?L%yYb*FceZS<c8AAHsv%g
zU7s2)ubm^T+@qW;h@a~SrrFGEjWEu8TRv~k`+lZ5v!66vuQ-umLo75sB40Ka{35Uy
zOp{E#-6xd{1U8N^e0bNCK?|!?i|bXEJ{we5d`I!}irrduH8C**AR}7H_H{Xt96&YH
z8bJXOv77Z;(C1Xj$GtgxVwVke2b7wFUv10-ngvwom;<&+bc#cj%|ort*+~t{+a->0
zqUs!nva`g`MZTV7eo6X?@+<cgXQQ>e`pDpE)KYzRV(Rr1+S36rfr<5q)0d|0&g?nm
zlQ}U-1_jJovPgUT)W02yUI$2=kOE+^XYS7+ZFP)yXnec48XX)+w#fydW(>^oECPY$
z{C1aeg@0*FmrcsXDG9VT{{2aify)-&G&(5VSqiDh<rqQxLAyH9bs!c^>V=JzgcmxD
zg(`>vu!Jy@A${V)FK$r+MfnCRxgNEoF+bE?ftr1g(lW+h9l0;cLigQs93=jbs5`9w
zEk2-R1Cq5^%Buq3zvgRR58n+w&TFrp?3!xz<`Y+Ku<KB2i!WdG;hzGpb;BFPDxg(D
zp9-jspJ1XSblBkbYOEWH$mVQ+br{KT_MOu-Q{mzhZ>8!h3p_trM7xupFMnomuCHEE
zN)ryTBj8w**W=R1wVnn=*)k1l|Hc@byYsT?>`sIDqr>&aa1HLx6__t>#Ig}EAbNvZ
zFsQ)PfXjd#Tq7YuH%sFPQ5D25PK#%kK@QeZSTZf_k4K0Ojb4E`95LR=#6_ik&0?-9
zyRB9IaJx@ZHzCrHu{fN{LTz3*=WOd5dJ^jh?r6~ovNs)5KkQL1)EKFFzvC+WTmS$<
z<R@*?A*~>{<S0`mV&(T>mMebTVn|l_HELi#|9D_c;_l){BHPKjmOP;f3A~t+hL8%+
zmuwEAXIBEaOAz8&g8iE`eYY}sz<4%rh)uE`4v?IKp*^cbjmX++1n~^t>vS+#=mqDE
zXr-u1Ie;U2b}We3Njcyvu&!)rRaL=C+Ne(-iiAQh)cf{xGl-VKrp39T-SM>t)sC5i
z2+qxumAjrQ(=HGbNM36>w1Svz6*c-TVIOBNn0&BPUE@s7kGS#oloaI2KizED56T#K
z1jW~JI)lxKwuTMMZJZ?}^0N_R<R;)-njWwy=4Oj#c2X8Y$9Z(g`JAXud<E7QA_sSe
zGck~_aik}EmfW&M&3MmMZ6+;u_vjMoK||qbmU9Mhr-`9V30uA4>s+~4`i}c7Yq2TP
z7J0PVX!@xWK`l?~%i4c&&Rb)LuR5lu4pehFBUe?2pcTvSAP2qj8vzHj6LmN`GHQ}e
z@R@FGH|qk=4M1$25kNBi3qSo3=g++bW}cp|q>H{8@%EJG$XA#F;qgH3SD4L2x%vQc
zNJ!#=5&!&nAs79<lQO^?qc{5^;|d@iIOS@jH&iA45oTFi)hG4ST{#!p$G54k$}Dvt
zo*0|^Fg%R@$3pJFRH-|wVdYR?nYRNuThX*~%dtp1QZ~4{%E||BA<>m1^WTjaH+M$s
z3Btx#=YSsmVRbdMBS=FX5Q55UV_J2HGiip@ahNSBg*bRF+T|o8MDXR{1803@aA9ug
zL|heHh$rcs$86$z<NI*W_JEpKNL$Wa;a~BRaMcSA@OWRV@1D;|rdDI;dmudeJXG#N
zB3nM~ON{;GGkh;lMvURzY*4=MNW_oZELLe*9CxT)l#E_XxpRJcde6^xFRZc_&2UNa
zDJ8|0YR7!au7O7}R7?rODB3oG1;Tuo{u?}%l$R2f<7_tNz!syIGN<aY0J@Qv`Y)$R
z3G@kTrg1#E$HOqc{c%NzjmzYykA}^6^Em~D(Zz0QrRjf8xx^%Bd8}KtFqO<Z4<cR6
zk(kh-Biu^%@+DTy*J>JvKssq9HkqR<%-!(a7Qf^PLhw=Uz-!9B=<+KB{3~Yzc`qn)
zJ|tOfh^M5%u0W?5Ralb=X~*=&<46Bq6`U_uwN3>tjQl)zJkU*cU?OG`1=sb);1jP1
zpMsNtohADnQxr=^{9ELN-bvr6i*!W>9W6~hYg$vetcc7J1gzB?m*lUkT2|Vq%a4al
zT_5pwjtD+h@1xfB&#jS?8gv%ZY4u{VDfA%|7TYof=f<AvywYXUPDcEM{m0GHiLp(|
zz{CpL7LH?}=O#}q?BBURKW|QlHd1kJ^SVAhDlepMyw50WduOVT=h)NYcJCZk=kvv8
zEJ{33x0V`27V=>SZ!dgk4h{Cnyl#&ej0h#cleh^UQcJ1!O6rrvMavo+i7dl_e;;3I
z@RFB*USI9v0TAx$N?dv*tjHD<A6}h>1oFHZl6T7Vf4(6UEK#(bQ<~N`h9C!BVv$p8
ztEqTb;Ja-cy&}`f8-9U)n9jAE4gO>V<BvuBN?z@1Er|Mo)0{P1dW7e|e2!}ln-CAo
z8f9JG4A{ZLt>^7)9ci&#18<_a$G&ndzPc}<$|H*90TR>BQH;crQ#;zvVCA+N5#Olo
zJ_&a03%FQPum@n0J+1tSt<r4hoQD!F@5oBFJ<P@>auueZci4Q)23N$iB;LV1p<|c<
zThYw{{7E`3o{V1PX4$R9=CIHliM=WoiSO`a+=bM6=Chh<7Fl7#!QMH+G*eQ79r101
zFUpCUWf~ke*qw58kqb=JmY1rc+fqom7EgOElwnwTO@(FMr&)^nH=Y4viNgnF$C({0
z!|)IVZv6sQ{%ltyt17j&A({Wu?<+OOt)$$7{>JVG7s7MRuag>Qvm~B?6tmg3;e<m1
zBd}fFVnb^fTymQD3nycu?+t)xBhuC_3&zQ&XI|_~;t>zAolVz$D^yT+Ya-VfVr`4{
z`<=dz=#Ro1t=@HC`!HFWeqrMQM+#!CZ-egl^TF~0$U+vME9q>>`bgqo33}6uFl27e
z6++u@9<W_a35JAASf=6b`WlN2MS$NMAWbg~B0uf=XUfMLQJ(q13MjI3plfyfx(`X!
z+S*}_UC(epGOl`yAArNugN(3a--YRSjcA*1%3V`f`J4I#!DuSgJ_ytKVtdQ<neUKG
zgZ}pLJI+iH745oElu!DEan~GftpYCSe6li}&sweatBj~QM>ZT9^_11aq4M+1HNcws
zRUDPv!2)vuO*?kdW!J9>XQ_3bKmkYEUWX25Ss4@J=*70`*QSGgIeQCARzD5d&h9sq
zmwbi0_8!c--$zH1;1*A7K;0pNj}jv)+s=SmbvQ*53idc$cx1%K<-a%ptr|V;6tdRm
zDnB{+(?l!kI#Zt3TDsvCCG7Bj!>OC}wYyOSxQ%otv_4a2bjOtJtsGL#en}<`Q-X{c
zm*@+z;Z57r%I@#$P&*cEL5JAo>diBbv1iauB`Hxaaj6d2^Y4knhm$UGes9!uj0}w;
z4U#u-5_t;BsUd?Tw6hiM@XlR<HU2Du3ut<mY-fH6+mZFs-V%C9Ci*HqV?NJ7gkQDv
z0O(p+TCOSc_4|i{@WE$1dYvHwl@X(k1VZ;j*5Q&+eT?$*sSgVhL&62VgR|;5_T@@A
z829jChZ$385t!XTL~1T~GQ2SNK{{``9S;MmIdEVfo32I11aUGreJ;Q#h2WXx0jTKi
zyknKGASw!AzG+*UzE`;xG}%tt2<2>au1RnT?Fe5qcZxzVnI23^<v~=1{hbENA_^mr
zMlroDDWII50IjU?lsJ+~?~l#s^%2Udy$SSEn<X}GL4p4Mq@{=EbKBQeSz)9AifQfw
z&p<Avgn-OsHmqkWnfzChcUeUEZ^Ph7W5S@DCSIB!+ka@xf`Tmdyn#H;J@izvu>v)F
z+1^Z~+Q7l?Ntv+djZ++*fdphs359yJwlzwDa&mTnK>tX<@1WUw;90o3Ipsu-&{HGa
zF&9y@CUrn{GQN<R$Bt7`PAro$NC9RVi776AcTxlYMS(d%67Iuz2I$$nYjJOEEqi&*
zIr+tx4Q%qhr#2$)uhBK|+$I|%F7i{FJ6N)Aec*`0Pyz$az6JhdmUzxJxl^MgVGAC*
z32S^9Beg8KK^zCErPu!M3=HJU75~xKhHCNoS6g`0&Bv-b!M-Q|(M|quT%@!8;rkPe
US0djpTZACbc%H63b@BFp0n6e=SpWb4

diff --git a/reference/plot-3.png b/reference/plot-3.png
index 6ddb0ca525e6b571101af8b1b3305d5e78780d41..d0cc8ea45deb84a386fd4d7e9481aa8e2e4ccb4b 100644
GIT binary patch
literal 27742
zcmeFZ2UJtp+c%m~N5)aGp(qNBdH_MBNCyEG5e|W%fPi!X>4NkULJ&t$s+`cPBE5H{
z!zeJJO7973q(d;22qAD!g7g0W?|tug*S%|f-}>&l>t!t`nRCwG`#H~k>hF1WUfo5h
zvi{EbI|6}V1=VhABM`rOBM|#7eme+X8IO6p0)HH|K&sw`KjFVk<ytKKap;NK12+VM
zD~R#$mxyoQA0ZHbAi&!<b-j}oC(%h(9vJ>@Eox^|6XM!Ur?i0J-?IVryOALW(k`Y&
z{=pgcF>LsynDuLb)64BU<>NXSXUpvoeY-CIm|ExW?Z4mpbpM9vfr}xBe-Syx9us2B
z@-#Bue@AApNN!SRM)y87C%15(N?VsJ+8o?8>8`5LI{KjsyRLAEN#TG0=YI_cn);~G
zz&ZKz9HG}P`<WpEzCHYwy&r)H5UaX|&t;pDPqy@CTz>S>ci<N$1;wH#>X=_F)dM*g
zU(7YYm3@pap#n!A>_-H&$TA--_G4Ve*{eV^z~&&(gQN@qwN>53RMG}O)S{5VLQPkb
zg>^c{)P@YSRTi!%0TEi)1`T)3Ameya-O!eJh_}+JCa>&uyb<nvw3Q}A=99gIx4}7P
z$E^ke&M3+iaENd7CWJ*%yuiW-x38lCA3JEKGF(B&ufSQ;6@;95H?^T!4wo>#BMS|-
z?N33|RMK;S<%)5r?ox|_WOpXCeJi+Vw*gG)-CF$)dLm0LAyu6Tk>Sku(v2~sanN5X
z&^yTPwG#5H=Pt|?M8`m$4xnUx`pNm;uaYS^(hJ3*dIdbv*O;~dN_ol%+pZVch2_)?
zDT8c@Rny&I;rxlOO2BAM+Zh`Lar~gk&{ZBAejkn0VcYgM%OOSSJG6?|vg5qf#TR3g
zX4hG%52?Z4QkiN8Hoi=rS|zJT-Vj17pWeX4fs`F!eC=4z=BZVY!g%rf-?^puHp_&E
z<?}2E844d0j_lajoxzGQc0p(iUAFS^p2(}vXi%~K<+_L(l{CP6%1s1SD%XOVG%fVF
z>rkJJo9O?V<eXVGBcZ{+`S-rYgGc#f(}Nr&>|Rq_Zk>4L;Z_Nv+q|+Yj~ybUtKIgj
zA=sef<fAV}j@#{E=S2O*4iVx3C6tTV@B`bxs`&&m*|lCoud_C-qwe9h5bG9M1*Rn6
z&SGK<uUHN5wM?DGI^#vjLiN)7T^_k7>S8l~*!mX@S6^vqo5GIR_!VWpx+(yf+eof>
zcss=|NId#PRlyx1bo9}=Y41{qKG^V__k>LLMuTj(8=7@!_cM(n2gn-Gg3fNoOBb~j
zwy!pJpQuU*QH%P;ZUo{C2RUB`YY6dYs^y}xMxNK|KxP`04R)T8<(5S4fmY*un+$Ym
zHtv}Y@Y%OQCwMDfYjIVMXRdFz1}Ms%rQLzD_#Z@nvD~DkXP+Iz4?~XQHjanIW@%|4
zOBPK*O7e|^SyWnjlV3j=zIcsVb*0-ZlEg2$x~yJOyCw^If;4o=MLe6pyoNrnT51eQ
z(&USMU*<3QvZ1LNE;YNb76m+7ZX0!-87-K*dZ7{>9MQmI+}kLn5}0KlG#(3GmsPoF
zE!R@m(r@3|1NdmSROEWDbaTg+7fL3lSue}ihNgnwn{xHbTeY&(zD($g`ws_?c-j^W
z+I9QP)jc(Tl)JE7So9u+JLqEubS+O^<>3KK^~b0KW9-Ba!|TVWx9E>lggn;&)aUa_
zw;+_9atqg_q^+5<rRQ>g50hL?AT-nXO};F8v5<@XV-8}Nk}r`aDCUMyUP#p~+0lSR
z(&Zjd%p9iak6Myy4v@nHJlDFY^$D`#py{WF-FXhJJf_FTjqIlf25&25TcAXEcFjU>
z5;^eZC+dnEMH~DVbx!IG?yqOdJJTq(o}so?g4Hy>-xz8u*GwY_i)|!MakcjJi7qo-
zQb4Qj(nUX2Xz6tIhUO`Up7d-tqemXWxAn7pBGOld>*3{*f`zMZ6J+)8ca9cVcfUI2
z=6_dgXFK?NnV!&;g5;yuRFyuzKq?RCOFOY#?iIZXw;!Rw-?4+{8b<oYmVEfPr`!@y
zD-Bu5P&%J?(0ZA~ER6?oMoiNCmjKY!u4OZV&*u-7Ti;f}p^P8iKe*?Xh{{G;KeGM!
zV|lA<t(QOKphg}?r%gXnYIxwXqblj9XzH?)CF$n5_{3>JH#S<P%DNzZ#N-FhDNK-i
ze67K=8j*vKF098Vt~CU&Vn;qtNaYkhqY)Dh@q?7rga&^H4UvKAgTtKDJ$>&dcVP}R
zUE3JbB|GNHaf6f`pr`PGS5d-dJ@A!aD8BoK?Q5Rr$`CJP_P{M{|CMQt;m)}=^URu}
z51H)p(F@_Z)f_{0MSMr*8{!7n*a*?|y6Rs>qy|ft#GDs91Y1ppzgA@8wzY##TsBj4
z^?}B5*Q2VbsQU$D@c`Di#Is-Cd-qKTdd`N0EQ;L|g-g@YWr!v~R(}1c$-Gq_!wwe-
zoKSL*3(d(@NMJuIIzL^R&`?8RTOF*g3X{Zm=_Qe=#6S<TpgH!6rwieN_vOzfUdyIg
z9CJcNcAn2j<&~{ZBi~;&_1aRop<RF2d&oW5%x_x)KL{$uTs*!x0o0~neyrW#r8kgY
zp&9FNRprC>1I{dXiwqElOcCbL^#qb^&W@U^bR$GcTHA2n^zR&4TX!o+9b6m4_-#i9
zuOhz@1IO9C=^4Ie?tL91M_zn>cWQ<hy)pc-4N$!wDxYP&GzXZe-}~#Wj=<}TTw#3D
z0KaKaMt@JA47>qN`-Gyg1N#vY-w5nSP2?`)?F8(nHoj&9JxN~6I|<)cl}ZWtWl4<3
zBaZ1jB>T}1m`e>i7Dv7`ocXgRdE~>|B%n0+#6JSidR$><Dn{+k*?shJTqnx&jI@!*
z9M+Y`ft6-sXAH}_`7Z!N<UAfhRp}$Wl}5p&)^oUR4``vbQ^Aw4uxli~@sis@wmg$O
z%{?u03g)PpR>=qF3#umj>g+TL95_cl{H{(fHPsNCqTOp&L6a8P+5P%Kl1@gIdIe7w
z_uCOKy(>f}0S*pZdc32J5fyjV%Sbycu!!-sb_=9%6X$+Ww(&ZHMYfE@4`4g}7T9@D
z$aRg!bvHgK^8MRz^26Kkf>+MN!Lmk!ojJJ$zB(;GA_hN7p|<KpAZwmdJ!zYfp-i{X
zbJ~kvmIkO_2e47Qhfb~5D13C(?5fLU;SyeRFkU}aRy5S<^H9?-nY%Pbs4F$&`2@`4
zm!r*x5kmT2nOisS=E*1JjeB_8YZ9@jb=6v>n60sD<h{Y+&s}r7H#Hm}KXaGQ5`{#X
z1vH5xb#QeTft2WAS+W*JATrs0OE`Z{K0UL@j+iI2o915VQY)u2`po}oODZqyAwn-O
zMP}PHIN7~kanUw4cvae6#_LX(Tw^k+lfCw&jgnx!1JnpcP8CpIaa$PMcdN~$ujT5Q
zRk7UT#d``U24l4#T*BdkzCXwzAaz$S39H_+Syq!@^){2dd1|Igi?S)aAT?JSyxK1S
zeJb;)(g%F>AS|+UcweD-K9dLpLR3mI(sS;a7M~9YDd;RZCDKQJ=mtkzXp|h}$?<n-
z*=jTr&mvl4x@ZRNyqr*)wasANf;NDw)S@{w2&zzMv+S>GC_ntUuT|ZB)*!-Haa&m%
zI7>!4Q`eN%iwSz5)csCk+!sYcrljWr(3n7~6drzDbNfTl+7ExULaw?5@L}@-=NkPe
zy!D^rMsK%TgpX_2yE)0>e`PiPI>wIA6GSRB!~Q;g_%_8M?hxVTBnK{ON)u8-Ih(!9
z<$AwbKz6C8d~Z%@$UIqh1)3PM@iPP0iL4%n2u%ME3)LNsR|gRRm0<#qZld6pbe39r
zO7%+zKXJU9&UNp{#$ABy1^lk`{EZjs;~23y#qkeuXvmoG)t3x@7p*i+jwkhOooO^k
zgz9P{zMCOkjpsYGbk7E*W_<JC-QNW9!{TyRMnr|Hi^t<EbrmSm{QfD+$+E*gfiw)A
zk0dq!`mt)jQJoSFXlYTBf9-7KYiVoFv#%CDRSzr5B0tzL`KZ$@oyu}hF^Lo};6K{i
zwFU57|G>96XLx6ieK2WFjv-|T?3fy4XKXW+BtWd#l@S0-%zEkgMWKm9-#Y;<^~g6P
zvMOEpQv!<ZewM-7hd6jQ%|Ives$p!!kiT~D$EBMBp3{noEp3I)T9NtH*IL@DiZn}%
zocp#@*~#cwc1gLTC|7fcuI*RPgNi&~b3x_e{J1~^pAwfv=!ZHHzCjjkfR?*PJ64Xy
z)&0>@PpJV^c}JC6x;GXeKUw@tA4(|P!m=HXX(RM`H`m!~4XTioX8;^<yC+~)M&9_x
zz{>T1^VhVZ5he%UzZ`G(qyXHhDl9sQK!DKPJ%&+$J<nfi|3vn%-u(C9|F<}B$H9K!
z7tzxx$)qYsL%Mj#6Wmazya1%7i@BMEN_MMX>tAshyGvvyZW?c*-?0UhJW+?7`5yE(
z8Mg7tUc|Gq=KsogxanAdR>?E3$?W}%X9HY@Z)@IXPIBkQe@XK8L?J+|0#=CP=Q#ik
z7!|>f0aU(fMSK`26(K6j7-{}0a>~RooDs61-DhjB;Ky-E3Ii`0w*q*PuU<6Q{()~P
zc-Nf+b|Ys<PSABJ`~wh$Ea_n8lmWkt$5~~1==x~db!s?t&w+$wQa{KYKaBl?_{vqj
zE<pHDbB~3Yb$-&UIzXNWj>fba$60mNiH!rYSrXRDPyx&F#bbN&dqX+O_DuadIFPp|
zMv_L@4-rd)p!2Du>7fNlknNnhJA<kwh__kZw=H%oEB$iYC;U5*aNid*(R7iyNNeB$
z@~lGDKtp!Nh;!5!ixdw7SwV=R0B==ivNo+-*pe(zL3LJSXIwT<Qd<cpC}(VB3R_B7
zg<Ey7lrXoTBNU#+M9;ox_L`^Q5_y#V>=0AY&Tw2&<!ZX-cB6741C7k7SB7dGri%nC
zumiex8S^!HLsMLZWY0MwKi<oJYj~sNG~=@9=O|kP!|<iPM&}%Q!OeqAN`)|<D{KUC
zP9bvVM(oZz<P!4qX*TB50)RIQ+4-FDLObB>SkXwFs$pDiIs?xwVs^gQLra4aWS5!V
z=2W2M<z#-9anoQ3@SbaV3+Klx3G$M4Ot})0KT)^#<uN$K&yXT)l!fZb`cEn9NH{?5
zE4hZ(g}OkgFqxQ5sjTWh7q!kAGT$;r;SiyBL=yiQ3<qJOhr#6wt`if#Jhg|dCJ*SO
zaZQ|bhRLSOqx^VT0jPq0ewbg@>cDrlzqZ)PcK;!p(hBp4m`FHAdPSrB+KDlQkdU9S
zrwJoJM_fHo_u+dmkSbKaV+tJwe6SGKA$dHC6eiFveLjw~1Qy0sb-xnuL};;IGhhrr
z{65a-BeCRqnBV=(Dx|&Z+_^A*1<xT~W%Yr~DmZfCZW@!MGv}Pu<;7@k6I`&yoYX(r
z=;W*G&gzje+^TzENYls<?fH{cWu8~VXd!HL9Z*;(OtxfHH0aKr`f#QlBu{Y}+7k`M
zm&3Jb6<k|3P+ivA)@;iGrv8O09U?Rv>DW6Lo|V?ICqEFI9@D1%{j2H$28kL6;G49E
zIrW*Yx}`M(4OteQA2K$&4~PH8xEuG|iMnTAJ~<fMZ`mZDjE$-*ts2o|R1ukrjJxI+
z;ry5opRvJ@a~yxzIRq-+_oY)$IYfIQcF8KOdyC65=D!2&+E!3CU|_}+vKj_z0iTD#
zV>McKVWV**tZx2#x;8B^b3b!HYe)M%mf|CD<b4V(w6FK~gLWT??^MCa%q;pr4t=mC
zh=DR9Ld6deKEId4UjVzcN-<sUr2*M@nY-;kk$pwuxP~p`5yYB>CM3;YeHs4@<c6~?
zNJ+hP^|!B_nd_i6lz-0S55_a1%Zsr1v*4137`_UDINhQ=#Qf44bwGsir72E3?WyTf
zg0=sJ;>@R#%zLxFIRf0FL!|HD-!?EsBkqRhN?!;ZQ3LqkgF|DAEy9HVk@cIo;J}>Y
z{{rFq$N2HW0SNpjnhD43j4%Hp1)5^==#0+)7$*ClItjxJi=O6AB&pa<bL^v4?yPk%
z2?)3#BaYYj&}Q>ulert_Cq|o*B8o9qme48Id=K+rlR72aJvB$Xu*C#()h*oNVoFq~
zyvN=D%`f%;g1z=IUTH3LK8d8sc>f+ddUfX03dWWoX1|beof3Y2)^X0v|L2S3f-P4v
zxMRcMz<L58qT%{@zXS7CMQ<<YEKZrg0V(5A^9i57IT>G?;{MBawkr?Cr2Mzn`~Qd6
z^I&W;qN(o!tQrJ}RBxAQy&4YtKZk$!fBm?{(UpX8>3{s64kL~djkcl!S2zt8v~&iJ
zE6U=x4h}KQOu(ZKHbS$!ES?MO)^y!{Y55>K9;lKkAKK4az%)Z0rY9xu=TP4QsamdP
zkT~u<yO|e*hBv>Q2>Y;p4s5`|_&8aEGSd5k`8>mj_If))jVM<eXcc!p(t3WJ>F7IN
z9w0yAf=E0w$!Hg-h`*X2p9+jxj@)F*^QX~P_M-xc0?FfIco1~DvK}4Lfvc0i>nVr1
z%M4|CNBpDgH>8tK)RkpwUw2<xbVsc@X;5OpjkD_MA1>@!xX`eg1J0x2pg;d$t#4!O
zmkW=_*@XH&zn*$d(1f!cfgSG6vfdZBlsz>lYQf|=k#HGCZ1RSsp3mC`e&8Emlj)Y`
z#fP^8*=(;f#+jIALf4h>K{(@NE9GF{e*N-px;j)4R7b!;eu6C`I?Gy=LH3H`EZ@+F
z9uCW`fa=C^+O6}r4X2%@gMI~Ii6Fiox9u5BUOgqiZM&%kgI2~#Bn5DTr`H#Z%ufYf
zO$Ppg1C9XRA|gz=B~-_YFPKZ3<$_&xM_WH`B5K}Dx09RWs7w7x`|0FJ0`!>2E=(z_
z?LCLR%9#8XQEAFS6S@Lp&+!Vv$kK(^!$`>Na+hr7j2FX>hJLhQ@C&*wud+`)FxF*d
zY%PU-fwy`5qp#NGu+6*BV{PDG#MNZ1L##|n<VN_I+3bbo7MTY2VW<5KL%<yW1$mqW
z%MX;YvGWjz;a6wa48yY)r%OgoT^+xGPsDA%f4lxdGti5|l~R4Es1{0!vzlRlm7l|2
zk)9f35wyksqMSgim^Mqf+98%SF^|5CZx7ytbMO&Ps*#C>Y5rWf*K(>n{0<3NHA*vV
z<4SFUZ|^K(N<E+~z{hNwpksFai*K1V_JJslG^<G9ftMGx(&YEHSvM4M&xxE$b~MTu
zX_i6vn8jPsc#8?{V@e@K%byw@<~Vz@4J@S&ZHt`U?jb(R@J^AQa=5B5(ms*ys8sPL
z(UAP2oGbuOXa0&)H_*!%TtQWOrDGbEqSC_Gv<;lw`s9+iUr64c$EpPFD5%rXS4Cg=
zCnb6cyv*fl0V5H_5xJcl_nlDz{~;%h?;f=m@TxkCu9*ef9nadr%<Cz1g-{wJ?1q6q
zLN(ycKdcMM_csuU6@Lzm7nFCWoU)WE-!da!2uB)X$R@Xs)EnYF^HZ0udFJ(vxalnF
z?$q{GquS61Ppo?j63yg8&FlH2TT>^R)?tka_{G~4dS=9Oq7JwCDn3zd@!L(E4~9i>
zWYx$<_mKBC8<fMk&3pAreS4`b#P5FA2(@AwMam!G_p*uLVEbd)Wi`LNky}61w%&E_
z^#bQhh7y`jF^Ig<hk7#k{^L+0iel?fpzk?LtadNhuRg<rOZ(WY0qy5Ft6a2`#@>Oe
z4ZR9)Lc}<(PN;>gFNYnR!{ChdINfxVOHz_NU%liDzr-1w*B%ViW_h0>Ub2gA_WttQ
zu)NX|xg+7%R>p#&5-|A-3U>UtsK?1h(Ijb{@$0k$f0=;78m{WWHI*NX$!-M|4Wn<#
zUVYWmON-$nS{@H-LH#UxgTB{Ud8KBwWiIZ|JZM6Xb9`xGFhr;HQJ{}l+i}*9x*Lgh
z{1NgdWC)1h`Rof)_%k*e2WE`nMFZaArjm`bGLo}>m4i)6q_Y&?dfDf8a7)w^6f<0Q
zc~xB91y!_NJiW;B$gfA8lWRrrl^LrMNEaSr6sZ|7)4Heru;xn*{c>!ucX817)suCT
zC;n{I;Y5E7eCKF1e~56>p>X|sC%qxuqCWk-m-VoB*S=|nX*?2rfJ~CRv~+t=9-2rX
zK)z;R<jDCon7GUYpP9@be`6rW<c<AhrrHVE+mI$)I&1&pu;!$1NFL*EjXhaM&Dg^9
z$Yo3He0&}xD>Z+jR9wLGOT)uI7kKdxGd8&c7)i^KkGjE=5n7L@erUjZIXD-eIGaHK
zdrKrsEe@5Trna0)LdGYaK@T1qN?Z>GZ1}2`R7y7z!SId=(rl2?f?tKZ)8jFDj8bA+
z>ympg%jNE&Ir@z*4|IvcoPzPdhaawi)GyqvWPQ%vm|t6E3Ny8%>b&itqmP#9l;z`v
zUN`IrsvO4{gxt_iRV(B9kOETha6J3s?e>%6cwjebtMpeMfv|c3qh-a%zV)VEd^dSC
zOLgY9Q!Bf7WtNf~%G!C#h)z$3HG^y3e@p&*GU{aA%!a5xvG2#Xn5krPK<8vw{Yb*c
z!zRwVeM$YN&ocPhardO;rFcJmpjxqIf6{66#JJ(=vi6Y+aI3&xFTm&LJ+HT)5EiQV
zM~%fB>N;GCfQYjzzV!x?7bBAZXH81KHZjo%yQ3L=+w_6#S@frUh4Kr%+O^~RhYXTn
z{I+;)Yw(g`k@3*iw<@jhf(X$k_A98uOV_H>Z;2ENca3737S_LT6;$inEQ>Vh#SAHw
zS}Z$;P2o;InS2nE(<~3is{C0$2ofIWdv9paWn`9$+Tt%6YOyjfs?(23jvm+-x9)s6
zPF(!sdd;Z95@&Xs&9c+y0^|~l;53n7Xt{LJ;s>0kd{oI77wQM~!sK467~JdSp7yPc
z9+Q?l#$-b13Dz4r%bFB&!A36o(Ia_fa`-a!B4@4@Uyn>Esn>qjr&8$XJ;F`n`<B#_
z0wwao*P7MGDEX55$5D1?%Jrkh^doHRG03Hbb9=VnO_Xh%V`I!lTUQT?{;XTkm=pc=
z^-!Lx@z~M3d1H~jMh=|<Tw8jvg&5t`;S{oRMn%fNqs45bL};0-?DKelCET{YC}vt{
z`WFm?Wy%+t<wx~0f5dG%{x$y>(4!%5S91}sC@_zU!95h=>GMr?OeHlB)y)iq(r!3(
zc8yZ{j}~1vLDLiqC-IRP6{e$)@(+-W`C*R$DMO3Umj!Ve@@Wp>0Bu`9TGq>S*GF=@
zls9wh(~0UO@_u}HR)t0+yl%j8Xe!xH3q?_z=Bt|z7dhfnzuE99!OJ(+MV@zbfRmQP
z&dbj5j!Or=W0zLPlB0OahpzI$2AcqNQ$J<~uZn}q8kEDzhRzN3$km-U!_tiYjt|9H
zNJ-PxC3tsq@{?RU3}i(O^>(26`JNphQ&#@$ob)mBsFSWA+~@3D|DeaYYy34qk$d+`
zf&*5(OX104-B3bA`p!d>6LoI)d9Cuodw545zFg??(zaVBU^?Ob40t*!fd4gTCzV(_
z9Mj$C_)_eeAtM}chd6j;ui~$Q+?uZX!3pmgaU06`I~4>yyWzp58S)zioZs~p<q0Xi
zY9YLH=4g-}cghAaqNm_2f3y6sJCw!egMk{66cKP4Rq}P?EijxuQbJD@P!~ReuHP&~
zey_Lv@(UyRD7LKys`=ec)~uSv7HC8!#e*f{J;H=<Hv>6p5>fJ-e%&uEABt`uX^mkb
zTrNWJh}SuQemY$#Z-#%gey~a``D7hP>0YZuhT-ABtlsC*7*=Un?u&sf!A8f=*%>UW
zZG=65`As&I{Bf82(?g;8$Q8wk0qWad+WzkQ10L}pazmIv4U;*YP+>W?yM*3+X~`JS
zS>R}!OoX8(X%)<0rW4xsJY#o-MDg6IR<wI8&7Zb?AT7X03lho5rnUb-8!hzk@NV7=
zc4b9QcEQ~d^MAmUj%e!~B3x2m+B_OESMKJeC;Q+#lC@<YZgBwM50(4vh0`Ml%jI!Q
zV)+$V2!ATbN#HZyvB5EHz*WinR7M{0`Pagdnx``GTnI!=SmuekbLvZ{qTf}Pd*oo;
zluMY`g$`@-dN-QblO>9r-MZ@dW5;48*$->v&H>|La=)2B@a<%@tsvf%!Nbk2R7A{K
z5)zS1tDM2V^7W<&aJQ~OFkUExG(%B_|5-eGN+EARQPR!ptlrYpq!OMS+p4y5tHR6L
zslXxNVFKzq^;60_HW-2ls7_E{A;goO6>Nlqa2JDF%Sbfne+e&{;l|JJ^X9FA`H4xf
zc{uhbHxI!~ZTizNp4113XMEl8DH2hq%+|S?X<?6ATh<k5eaD!=Ic968o<M^q)q1%n
z;=|`BN4~xn#3Nzqo1p#yHn`zpf;*DrtUluzFFl>zsX6U`9UlTY+KaNq-9D!Sv@{Mq
z{-X&|cS&6UUP}nPa?X@I1Nw`!pgu_R`WQhKtF7BYcpGgXu*mtx){$0jFkDl-@tDk;
zb(?<bPXzCodMW)f9&OY%&+g%qr86*k-@$8p`#z*ET{kVxY09VzA!3prE~fd(;CH$H
z@;H;!sNt%gkQ2SV&0g!hTmQ5o=3VN?ZZGp6+?>o5s;O^k4>S4nnvbWHi8nMIlf0ky
z*$2!#E#t+fayCdFH^IfThab&?u*AS9^x!AMVPMk=>c2F~L{skC3B=gS{DE(SCK5?;
z$J>~BPO+6_#WU)k?7W<8C`wSqDpAeV6o#tm{cl0<aNG8Fom+rDFe;8O0ok0BiMf*0
zzX3Dn%P6MM$c>2O=>qoircqW^2_^FUo9YgW&%hMjd9*QvG{T63QosX+0PnM5>jDi$
z|71jW4U$QP?5}F`p#0f~-R=<5&}|u6`Z&iq52#8{CMmqdo1YcfgK%usbR@malC84z
zXa%6ux~PpCR8=u15BQkmI9ozE^`ZzP#{ecJxXhdb<f7QI;WaUGjW%s~dL0AHUOxFH
z^Ddt;%n;Xoo|ZhT+*d2iM2pA`+B6r;9{eZz8J506p$d3t(e_ID{nagN^`#)%9{Okg
zmt^!5-7^Psn`f0xph6^hxaximMkn<<b6$-)SQ~7j$5KH`9QU+iEU7WpbeCSYldQgk
zH8I!&Kyi66WgO5%zdbpM^a2p+p6FvO(*tC$wd^1AbV#mM!q3cvq4jbw50zb*8=?`4
zIyCa!8^FH>3&F^yNnZRWD8*ZS9UlgBdKpLBED(DX#P4HEs2+|T<B(+MXOeO%CCP%i
ztP#<66t}2fGL+EQOfpFQf^Kvgc*?ln^xh%&_J@2Pz{e0W)4ZqSr4u9u=R%gyJDtVZ
z`a+8W79=AKLLgQp?x($lE8R*};lr6DPirwy4saA0{lv-8eniv7BNv;Eq;MDC);??+
zhV=u^7CaM#dl_F4O|OsmvWVb5{|z`J_cUT=<0o=`gTp5Ma#b(MW$QnxB{!F*Op-~X
z;D#pUBQU-pLpIqT9MmE!fFA|*B#MWy>aLEE!#M+{;M#s-19$ii69@4mBlxB2|MgO?
zEaYXdA=c{gGY2N~?!J8$WZhNh=0Ap?B=h>*giIhu!LV^&d_T19GdF=nmFg@oi8cS5
z4O!dy*HN6K$vj+w=RLzFn5<;|n^>vD<-NCIwX<g-FQ_kh0Y2$Lvbzvzf5AqqB?~z}
z2haj36rf0p;vnFuAiZACTsZFQSh?5NWtk#IPGfIMOvz~QVv}igd7=UFWUcO>g`IM4
z@AIKE@=QF_{FRUB(rwaqa%RN9TEXS@WTmMys^0<uj;e6EtV}lxuN@b|N{y(9lY4q#
zV6lu`7oMbq4@h!NcW+E8{f$t~&OPWd>Tpf^Rjn9)uYMDs2*BAnqktpv&#*$I{N{U@
z8kLL&{>}xX`}1h`Cb4jJMn$J{@)yj*N{v6AaipZaIM#UDAGIzQ_b>@oyZL65T|Ike
z=_2w%#)e4G!Z=)-X?SbU+I0`Cd|W|Rb9D^<(|J@G4A*jXTY!<iAXZ)`c5IHf7i>n`
z<<wK_8dlYp8r9|Fs|E3@NQ{}&<ro(?zZ{Huu<Maz7}++-7;a+~y2#iI^9Me9W8e0p
zQii3YNn_f(&%lNR(sF0P75PTL59zadX`j&<JCn8f6*_i{-!y-fu~L^{47;JMCsp2E
z0Senzq+Ty_=EL`bJ6;eM3^OYD65^`(sxue_6EZfEO<D;s=uh;!%ov79R^Y=2^%JUV
z1zJ!9o3Lxy7iKG;Q46(qb&oDQR;MjUhc7ZAX1GODu%1_(|0c|>>Wm#H`P?jZOY+<`
z&zwEXGT;S6Rm_xldOcK^0vxMXD~%H@g4p5iiu`{sEx`<-ZT1-!o&7T5vN|bDrvaNN
z&D}A@A*R^Of>qZJJWG&gYbO_te{T?WsDC4|!MZ=#>r<31gV=x<p|IY%x@tpn+--`V
zGInRRY0&fMOl8yv&UihQTyUk<C;i@$Zlcutp=gjWVvlWX_F!mcfSANQywBRSnD%>}
zTVI&&8+JS4_xQZCpt^>&n&r<Hp+jW;P28HPeOkApHa6lQlc<14k1re|6lIy{J=EJ=
z&&a`=kLf~>an~_~y4{8VgEQeKxctZ7U4xTB3<?pN<8c?Cj+0z`5=Ob&rxssZwH*wP
z$oi2|bk6Aq<G!fRod;>3!`W*wO0lGl_=%wWbq7JbBDjGpao8XL!~E4^@93P9#7}Y&
z66MTNnh^RhxZ=5GOK%0Ps5=Zr+p3Mpd&Mur0jcUUTjgH7K4_>ci1RpO@?xv2K=ZgA
z$J})J$-2bT+}*cp{#Y{npgI&PFS-8cFbv!0!w?N6M(s6|WvrtO?xOnD)-KV*R!*8<
z!a$T3Wf@3C-5Yu{@w4=K?-{c~dgkQhiMl-8bpuYfhmhoItK*)UfR)_0i<RMkkFhvw
zJhumelnsnmj(GvHQYwE{ExrZX_^YeeeKnyEFHUg%q%i%Uvxuh_B?@l9oe3(vzqw}q
z*Mq)rkqRyFUie#_Dz5GdUa8WQCzh1<%U;DuNL-b#TFh;sWy4J)&54(@L4TfD-(e^p
z-D*nE4N%U!&3qY&bo>cc>}yggZn1wVp`-b~h<cNZ9V|RLIKTI6Tj2nYn(HHo<yv*E
zTjI*yF-dP}kF&Ma9vU|PQ9adwon%$)m_8tTUBzx+O|1~V!*J=8fc=tQygGV#o&M|y
zvnXq@1^df}_XGaQfLGr6*H^vf2-^1K*QDiy%{=ub9?4V88m(vw{M7P&d*Y{03Aou>
zlPxMpNlw_Q!0Z*oHQr}(mwGznOcsO-4gQxBtLD;_f;667H8!5%UCj9$*N47XKR&$l
zpJbmAhpNdpqrIV3PD8H~+pq^Pi6?~>Y*5b`Gk4Hn8l`m&N2&zIVazn9a9v;-=fMm&
z;cAiz99Q5-n&6HA-U*I4DV+z0nL(9#N~XF*(x9P(=E8bEWQ-%F07Q^t9<gwqc=tME
zHxVa`V0Z2U>UqdCO5sD!)i8%4c;VnV-tme~)P!wXdYdq7KGQX(S05m6uoisiTf+m+
zw%%RzbN_^XF!2mwNA?eE!&MQu&Ksds5<=bB(?5jy%OU=Fu=HPEE-h1#x%j1@f+w1p
zklQRz+yPN)ltA_hqbj>(Vxfd}5nxm?M%4OV!c1Wiz60)oURi(*;B)V&<x!CGT#xn*
zY?ye$NPpnUplvKbg^RrM=uWIj<u$xX!KyTGJg459(5N6L`8Sjqi$q(nEQc2ia{xZZ
zPzC63DmK##kew^2>Xf7x7JC7}X?Uj<MV1aM4T7d{FBJDQreZ*`@a<ms6Z0H?*T(zy
zyH1d%LU(P(fMWT--%*7V`JRPDGc>F^+O$|WonX*r{=inSxz;O(zOrxFVDiR!#x+F8
z9auhDGd6-1ryrZx6DRKOy+_9_Mz9+@Cf~I%ZY)m5XKXxzvm?fUVj&4Qb~DVuXz;8O
zjO|m0e~wstIKzHaClPejf|k@VM`O0yH$;+&QC76(ApD79#TKgHf7HT<;e0_J=T|&P
z5X0XGH}cNZUc);B)tT<gB;cq7JJSjvFpPAh-0NF6P>mrhgzR89mal76<~DHbRP}s(
z`t0vF`_kTI|NZ9UA)7<JA1}KEa0HzTn?A@=$GH~h{jT@+Nll6BSGV0P2`}64o9V8-
z(pNjed5BN&_Q1KQmnYON9{BZC)Xi|!@R=n4-I2kZK^4~8T(A2c9vH=*vQ$$ObU_6c
zJ-j?$XjWu+1s@*XrkMEow6$gB*?(NQ{Q+lfUZ)5oC9B1fI-9+kE~GWxa0QRk(fk>;
z9ZS$y;lpd;>aM{Nr@zvmUtO|)l3)q?Hl$xZ#^58O`1i*s*BcPJ^_G3yUcH{P?BTw)
zA0R|VP3@(XZjVkJGPNeY1ySnaI=<J_);)CgW0>M0+EksBdEeF*y?eWdIor^i%sVTE
zT9kzX%GI3II<!AjThWe<u~Jq3{wco-*rZB`2U1_<-1%-gdc%w{;>P}P5N$QR5M=A+
z+q>*y`7&g%?V<zY4xA0$vEsw`hfsc1E~mNQ^S|>mo9$#sUE8T|Sgy3ms^HS&j2Zw8
z>cCP(Yf7v0c<DJFOo{v{CZZe+OJx$}#oFssa+z51Q#_{`az*C&Hu=J~3cft_Q+V9o
z!uqdt`WwrU-sJ|B&5(be#6R<LqxDPABH?!I_|M0WJS6I_&Ivzm8@65j7%s&UdR0yj
zC$6JF%+i!U#-J(ALo;lO{t%MpAY!k<CovX>GnN}bLKKM{+_ocw_d2(y5djw-Yq;9Q
zM6{b|xMHBg+Ps*?$w#~TrG6!nLsFOaV#?^TC{lg3+li{-jRv4rlUF-a<!5(9-vB!+
zvXbBD9&`y;CypNy_Nc7f;EE)X056I2OkaXf9=U{%85*)fLi>%3s_2~@dy~GoaE^0+
zCZ>F**JO62N^(+_vZq@6G&OsR%ij7kUICGv1M@^urP^(;T>xSENjH!hm{zB+jA1_g
zNfl;g#OZIT4%u4F0b7iXXaTT;f{pxlzB8W*HG!W2;PC%B92ii-04<Hux6M0D3A!v1
z9iUJ(I9xbHW#Qed1>|wYDI_JsZ#Pl)m$?%>{2=|zc<gW2i`PBK2e+7$aTY7!E%u+w
z>u2fjTs3kcC(fQ_tlPwC_4}{$GQ9X*RB6N02GbbQM>v;#Bf_{B=Kz~<a^GF0e3TMO
z^4p!0DPvpqAEg+#^6$c=$#c##6QqEI1Oo}C-UkT0X2yw#xO=A`7-3FB6H55w;0EZ5
zgsw1(Z^P_gnZ)SDyYPBPXiydbr9@IQ=;^G`U~_NgHIQid4I8FX1(ALLWR&aOSPTp=
zs6Y`YiHnRy&7BrwN&Puc#bjmQYH(YsV)GgPrG8M@{xQ8yp}xqdIyu@tikvSeKIoGq
zwRD3qB%l%vRLgeYB9n=+Qt6!0HF2bbPS3v5)TKH9oeZ;X%0jsUoL!kFk}%-%?8t7Q
zSgX9#UKd4iyAV(<v2=ix1)U!m8y0Ea%(WoCYvq~NJ)*wigetAbUX2Hg<mMMsNOfu5
zOQ7dD)#8&sol#z=Wgkj$M+aJOY4AVP{UI3Re9kSj|Jvnd8nR`FoZ<DwQ#m)X8|i^<
z=)KIZ`couJ3*Y*i8bo0g@ZAYZg;&}moG-^baMQl0cxll6$mF6LW&R88WZP+GkSBT)
z)=+N!D3OJcVdv%1$10l_SX-_+wC4y2pTA2bhfqEw9%cHCIEEi4>qKF%S@0yDdue%k
zGV3x?=FM`K%I4qG%1mLhW?&=ZA(X9@isk$y=Z&!!7V(nbE>GXoF<P{Lj8EpUVCus(
zBN)O8wbMKn$D;|$@Y;4TeL5-BH>4l8#(G8{f8A>>i#r9cxLbLdN9lHLEc-VtDfSL~
zPj~2@T&3&V>iUD_M1!ctK}TjN-&9wF&TSbut<!a~)~3YSp`^&&>idsw!0RkFPNzg+
zY4v=$g6j=48iz*@w@%$xPwU(tT8W;2Fm_gSA%PPv9zjHhXex@L1%}Vw^HPT3oRspV
z1TNNQzcsKP?LWAvRCgKcpY)V50+C02aggS#1EnG<BfwELSfhwqrK<O4{sP(_Z5o$h
zQ%P9KGi~;(lmV^uqw20o8JDpS%bzfZ){MuIl5>=Jn^PZc)|IY#X+t<8Bb|3e{9Wv<
zj0cL_C#46YSd}`HaWzIdyq-tNqX`und;4nr_cXu)RND+K-?Dd@T!6ME1}(g=OnPRh
zucXNKiZg}>NM`3mY!)G1hlhqnXS5(cY5aQ0>#_W?IC}!ggVphHfg%S(ajulTCh<Uy
zS`|{q%ACo7SGq3>Yu#SbWbCaCg}Bbxol%UnzbOjVRajz_$5THtXlwE_R9inZY^Fgm
z0u>`kxj<EBLib8AK-Qv!>ZZQnYOT=?Noc%;*M}xztc;*MoSy`~$m+e;Aa??35_Ga%
z_qcgwxrV$dT{Y&UMfrFkTt5G+PJP=%idByow@tz56*$LCNu5vGG|Y8)U(Pk~$;A^X
zIaRbsYvNoYM9urqt*yOSFB+^%0h<N~Mbb9#2Dc0PGj$t3(db`fMe#YH;%ib805{aX
z{vITCe41fCrU%P(u=gkhIgqo*`DjuNCuUh=-PG+aRB4vPqh9~#xV+(dPo59kJA+ig
zS9NiuF3aoPhHkeG60cD0XAQ`UeO}22$PFs=EEui*^f^L%H@44AL!fognh4BTZ&p;x
z;4g5kcdL;deC%=~1Us)WkO6a3R@{`yn7`YNR4Ow1Jy&KAakigWAL8qbEJf$up6?HC
z(>i;s|5+dR{aSKB%@r5z<Nd!d))j~CymIhPCC4{8_~07nN+oPz&a@m38&~SU&WdPJ
zegL#|bwx$K!M2<2a?}*{^t`r7xFKL!B*814-W$ZRk*(uI>~Iv(WAv9JI`eEY6NEp*
zkrZ;>)J11(A$l=daI;cE(8EqXS1UF4^m--lW(7dKyfq;{h~6mjSo5KB)9b4$c0;OH
z)rkEeUma(A{V}<A7f!>Q#1-q2qqx-=N7{zB>Z-4AZjK}onoqedbpK*wovL2K)MOlK
zOwX)HotAQjueo+DBCtibKVToLuicoExtSJK;LMQCrbxWLrclk`+~Eg1A#0TY?38zv
zA%)UyCBw$p`PdZ~J8bzQJ9%_kuQZY&?{69v`cdImGZSK~66;I1>%a73wkG08#Ne8q
zIc*!0F)}iB{1H}mYT>3rcv;ke9oN=c;hvMh2HXm*UpsLfea3-QFC)5f<Tr5l;fXp>
zQgywLen4Wjt{i(gVo8S_mqxJRJ2q_ZaXV)BF9pRVGuO6sdPiAO?DSicEdi|0I?Z{(
zp2<qlk(2%YyIyV)azX4Kg?YU*9l={gbER0a#crg@h6p=NYqoUvjm7Q-$uAFHt@iKC
zVvBk|BBe6wn}*v$+IV8-73K$X?(mvL&)0A6Ph|7F14qsZ`Li>{LzeIOytTSW%K~v%
zhSTXEDpXT_Yfr5^abgYfh8+4E*qrA|ccX-~CUzdCHgpTlD-?~2@-v$<&5N&%))>6&
zu8`akB4Ry_nwA1AcAFKp-q%;`>dSMRsnPoLii(bRs5|1Pdb=_-Rp_faVY>d#F=oW>
zC66%G`YpI+!z7iISfEJIy{>2<Nd1&HId`e`fV+$8n3C}`MW=hHHN_&~&g5OU`*NZk
z*jH;bt<TCKzB3Z%rav+plaJ`}85Pay6dCWId8r61Wp!ybIzrf^{ZE&whOMwE3~KDv
z^vz55`t$EEhT9BhoAG&zbS87$AXm_DeQ+uA)C6Gcc>{A7H79EySd}D2N@T2lulwY<
z)nr9((s`^~EPbJDn?tQi4%xn|?O*V(SD(qC?~to#1GQ!lSAlO;hPwAMZX+PS3xq2V
zP+Frtb=JY8cet!(u@T*?DoZ4r=xDkW$B{nMwepTTU;XmlENtshpqCxZG`FR7L*1i5
z3eL$piuxs4Kl=KP^(#x1a1GzksLz*ZMnCD@xxhucqX~!bS;3V?cU~Tzy%p#s<8kM@
z$WS&;XxDkJ@}OlBz)<^u9Vr-V8ANAsfg4<RcV7c$om0nis`zAGZkX}d4$_TdF-W%`
zp55qLiHjSP`?s9b<6kaHtJ#A#fz<gm6uVO=<*6Y{f#{I<wI4obt>vAbe_tzu4v=fg
zRdJ1F9Xrv0H@4PxJYMGD9iUl0DZ{KiB*%26=IpfGRZVnBS>!CA7E@`eo&%|BG=(ok
z1CCW_xGYKjI5mvB{^pJnRb*^iFPAiXEBE7<zFC6)sr3j=c^~7#ezzW7@@^qmDv7tz
z2@_skZ+KtmI@Ldv@L29--81OVZx-%tVeF5_>);KWu=ld8;h)rprZAqp8?ix-hu7}%
zT_UI2|FvK`-hE-7TMmzldn1yCVf7^6%W?{=+E&^4khw2Ol*u8&&L2xu4A0+F70wW;
z+D<D{)D~@)tI|t*pg!a=-mN7$Xl_UsVzu|R@7;MX)WZ@r{`|q{`Fiwe45r>X@me$5
z;h<T+W$>2BnX8@g683>!yXC25{<Uldn@$E-uD<`l6{->+>ga0}(ydP0UY>l{UBo9_
zU9qmSqrK&-^9w2t4xweL+rR(Q3xK%c<&2~$5Zn4u=^Lx<X<e0o2v`v?R-^l>^J>nW
zQU8K$YV;9Qsp4gPkWSY^tvKwM`K^6i*Nz&|P3~T=)Ec{lA*R}gk9&aJIL{MXS0%gi
zV(B5P?~APyDfMeAlJh+G2C#F#iFN1RJ5hHy=Z=jCT{$fl-pUB!G0()EU(P&*+u%?r
z+P1&{b4>Kfu|}`w7|jqypx@+r*sf9EP=iu3fL!J_C?8EBJPYodC#R+Dbm$#(?n4DG
ztCgC4|8dSJ0xR#O7({uufe!bccowX<Q^Vwyf7n(K$2zY!4UNj%c|5n9R0uSqt$H`|
zFO2_XeCC_wakFzJlXY8gOenm*`(Z>=)~t_1@6%B@G|2l<qr2aG$6<jMk(prQt{+y}
zbEVx`-PI(uMjlsp8Q)mdfVG5ny<W;77j(izQIHO_{bqy;4Gk-GB@c%SoGfii=iHRd
z=TfQe-sce7LjV;=1eK)mOO|q|_-6@&zs@|&zXJ|%_j|KDj5h+C_IcZHPHn7{()_;v
zPJ?3;^BSpi_1Tn>t(|8%C+a<*T9EQS&6xjzujW0)KL*oml?r|G`#N;OT<P{uSxB37
zI_JYg_f)+nM$kF!u&L`8-|>2PJRf8`^Ol~ToMJy8mU&$kPm~@Zs$ai2I6Dh$=B+h4
zOP~I>5L^R0)s$b_svYh%Jd8s;G(Gc5-d{<R^6AA^%{6>cRr~JP-Bg$#8U&}D=|Xz-
z5S0u{ay5zeb2tgKztcd=sH3Ku%4cpW2z20lzkPYEG~c^}E>PS!`*{RU`Ew1Ux@ZXv
zJ@RpND=<v;?GJVzGSPqMAOAO;#KxIBsjYO!L}<vv(<Ag8BY@r4_6Mw>?V@rH<hj<y
zbUN7c74mbrL4PLSz_W2_{V=FFAh?Sf>sJsOHH|`dwfR;J4I2er-+)YV?yxBVgB}w}
zB>qbqEsipEm(64=E+c+uorZtT05Lskngi(~L+;QY=6;;Jj1t<azC`CJGK8}q6?%x?
zlRD=tYWBc6Lyzv+QfD`pZT_$)+q}+Kwq(oiU_$Z-#oI4Bc+kgx-)eYcD?k6m4<Vt(
zFfwuaG~Q~dC9A<i{So4{?&_HEx|b2ek)E(){x*9x8-Rn0)BP!&X@#}v3A>(R_)D|_
zG%~NdqI$KBtaUjY8+#$b%-5o~r_6pJcB;T8=@20=q=81il-7SMH}Z1`+?FrHhk(r-
zGmMe8@qs*4b4mA;3-oWT;khtFqlyC+Sv%c!6$<DZ^>k>_aS-E`YsY>Xx-JAaZt#RY
z+3riROYL~$ec})Sg#`P%AAhRf{Bi2M+rR-bCfKv+LG$;An&K=X9*(GWo-sLG>e13Q
zv!;7WfpE3FSno)g=zS4vq97jaG=J52g9iGe|F(n=_^fL4+G=s#rLw?v8Ted~h~49i
z9)6z>uiMD(XsFSSYsLpOO%lw}z&tzczu@VN`ij~9uCi&VBcs@q@crqLU7pW3$7y`N
z3`nzoST@ir?(wIngXeJ9c?Yvci!u^w9;)W%oajbU(#knx&b4Ni&kSO=jxE7u<3eCK
zi<1tYww%d|f2s_+I*tub-`hXW*<3qu>rO38YH^@txLhDLu|O)eU}~gz`m74b)uTqq
z&EHn)09_k(-+2?0KJPjlffoj&FYlnB{o1^bQ)MTgoOyN$@_TpR-w@J5iJeCL&J3B~
z9O_X=>(1`zgg>9IR~mFfn<SjuWOaae7=ViTX?iL^d>m~i)^)>nf&iM12sU2C7YelQ
z%S%yV9BVK@rbLsX``H3tZQjha<0QN$fh8kjhAvMQ7AgUo^2)(w5hzJ~>5n)qW@?<z
zOYLkw{meq@D&VtN{_KrQt&OLDO4squfuB&A`JJCX&(V3AS#=u<p5c>yG<Fl=Hb(*)
zuQ4WKQf+?K`!;kmD<R~Rc^?}R?i?kmyMB+deAs=4Aw*4vPg2#E_w{?tmhU&;VMZ^-
zr?)ksB9#1Z=7pF`c>YYT1FOvBIiO;y4dhNCVNvqO%!TQ85DWiiZ~6X*KS${;s#BKi
zSbpiuAgBAX2EM}m15*4vFClLKp`4N81{|b65~@6?L8!{)LaZ{w*?<a?d;u$BI#7Vw
zoR6^n=ln<L&o2Eq*hj!a5eV^rew*aZ<2X-5=bx8w+p!X>N1wJ;HY^YAp>~KPPn@8Z
z7gbcPHO9Uo%vrAm#>&C$&I5;}KMm{Xgngmk`3EDsX_E;jxMSse$KxK@L^2PV1f2cn
zoWi@G$3Xs{Q1qX-1M$Cnk}=UGMBE{MURi~%ZRM%gL&KPJvrK?!I^lqb$8`m~<+<h6
zrWZ6O)2lBvBe_ICSYsB>%`V&rQxZwRd!SW7H6MHnHtrcOwtP{_bOz6wCdz)EllZSY
z(0;xyujdv-<A;wKDuPZRT-?dSEhbnPGY1M@YObw;kKj#$Z1bh$OrS`O();QT^SD#K
zVW#bwMlJs8?27f(4Iov63Lg)gxQed^yVWJznWd8evGEkEl8SXohe~pbUSb)pP6|(h
zCVESDf3*ztn&{T>VEYHZ47hoa*ISx@)No)^1G>uP;i=_ndT(X}s13U`a%c}A3wRNi
z_HZjD$|^!{lLn^52!1viiy@^0!<7w0h;-=WD`wHppaSsDBB!VM-N~IhQ!^S#8f>BR
zhhN<T!}!!zP{en^l;`{BcQE(-y;t8d-V#xEJJ4%uStrUFhJmKj{H*@{a^<OS$@}M*
z{~gl_JwRSF(T*BEnqB*P!_9Nt`>#DnsO5zni>OU_ce3i7seTk(+W4Tj1iN47e@a=2
zaBu2@!~PAT5<Yfok!bU>fw6diWH&o&UdR6#cS${7_m#>(Rd#KgcCy&NiG=Q*4=mP$
z4=obWoQn%rKvURNIy|E@P!5E+TA)|u_BZy3dNlO>;Fe1dlO~N%i8vvtx_Y-X8^%Kj
zhu6JP11=75Gk(7Fo1(Cs<=RxKPt3hSoOHL&Jzn?Ee#Cj)S?Nwu%~If4Rzit0A!hR$
zz}u#0MqAVEwM5w-5-R#`NR#Q=5r{jN81@IonEs_>vfgcESYUBcOvDp{dH+|1ok%dV
z)b;7iJNN{|o0R8pKwyQ2q&20Zsw=!8d2Iz2CGl@?%}4LoOE9<Efm*$hwn)tb`(Tj%
zIS>K5-h#~3C;<T6g?K;LYW7!97>tfu`1T1tT25I5j3D@offls=7;51Zb3{=J02;54
zIuvq8CPFSHfi$8!LshkuYc(tr!#{+Nsm?2I#_RS_O&MaZ0`&m0B6w;0H7_Jo#ph!Q
zMF6sbS9WQz4cn@@K6nn-0@O->B5tHLK7ctj!o<{?g1Mqe3FW&|a~12z_lmVzwMR1u
z{N04!TrA<YnY+VVfOL8I>NErNsg`&~j>uSo0NU`Z8!@e`KjA10CdZ&{#;^h0LpQLn
zMQpNPsT<ImScjX~YO_}>b$5@Lr3%_rt^E+#|Hb=m9$`cGRile+&da#~#)M~K^dXKk
zt$V42MK<gHZbF<V8(gbL`;TFZ70aIPFn*-MPF|`5=L+M&H=)`r^~$Tj=q3Dq#_^I=
z>g-H?!G@V*g+MZ4tm<lg)+wV@(!5?hN4Te8MLyCMvmi4Q@m<EDw+-4h&7G5HLq&fy
zt5Jnvs*E<W^(K8SR&vWkeNiMcAqKWbt<$sRyFVPieD!0zg~Vf6|6S+Ekwrjt$8Yp}
zB#oRf<2l-hbqQrzpS2V?wEb;D_U1%7KYPh_-_W*r8?9~%Kz5QGGmhR^g~M{oGW{`Z
z_Kxy?I>Q9_yW5XpLmXk4?>KF=b~bDLV(H<Qos%_-O4%dWzh8<Cc=(U?-#B8J?yUoJ
z2;dRn#v0@{J}X3dOctt3Mh`P!h!@ejGVg7|w!YQNETdtKlcg>Wd0Onp6kMr%z=*xd
z94_F)?Dz*w>jN9uE^o=cS4|!_qG2nL=gn-F(DdIevMrHgE)9)$=uCKl-nBvaQsOke
zz!~8y6-^y7g|i>S0VPbR3#@a$!rnX1gxW><XqDVj>?@$U!rl7_+jzXL$4<fj@xh2}
zlbo-?GASl-fIL+%im#qaoq!><x1ZnJbSd{YoQ@rG)IqI&?-FZ)K|Oca@CA%|+!_Pl
z=jo3O*8uW{7=^r!om!4Ixf<{7!kkPQ0}aZ`sn)w~Mj<lGjG!CF;~HW~b2)c1gwxg4
zc~W4Qp!+|k`}BM*SM%KGKbF<doS`(f-nOj1h8IQ&Y_N{M7iSV*gp`lp*ch^eLpCLR
zmX2o56CH+fTpGMyP4{~<I6PCch<;GhvzOmrN^V{eM$(d`hqH<B8_Ct5j5vpzxI4h*
zUVl*bk{3$2$cmBSyZgeeR9~IiXty9V>*$O##}ZGUK{{NNV}wVdwcT)skEd(yy~^QC
zEVQyTrx5lRJ;b*$T2Qv;wP4A6i5lvC6}qKS#AJe1#Fy{r%&l`@696NepVXlH?^jI9
z-X!r^ICM!R!#{xmw#8;t|2c23wbJmWr-Tswt;f!!M|kVUH|xJ(x3v|?;OP3>a-3Zj
zd=P&9#B*%2;DfQQ5L&ss(qP*UoK;mh$7g0*4#=a+8%3`qzVqryD=Hdx)Zz1X)+Dc*
zx@z3p{q@~*S@A7i@7VvNz3U8Xa@*43>aiT<U_nI@&|@eT2q*#RHcF^MKm;U2;eddE
zfB`WOuyT|V`9c$<9Dz_YfV4;riW(!*n}!mFPy^%;gqTn=JDhuG?wud=%slgRCO`7<
z<m1`d``h2zYrXG!*NTa6mcB=pjSAD{#V@c_ixEuXoyyB4_J=$#=>Du!ctOv41MQ0h
z>_V2_Bc4Kj+Lf=vaFGGSDBrx@&k}i@&nM}ZJMdHN;wqM}rWmqF>=+b=RYc9}8GizJ
z=OckBplweO)jqfw(|+q(mOW|!S4hU6MD}QICz=P@LduF^Xh=KuX2WRr&n&q=Rzy~M
zs~CU8$6Dg`SSQ}=-emj8Ewjn&ulA@xmKly)r_C^c>L{LB)ZL@&(l>(^61|zhozwJ{
z-Js-O%&DiHS33!)*pW$*)YnjHTnS@B^wr>54?P~fw2Mf4x$uM9B|ll4yF9U)c}Sk0
z{ftN}{zBgW8vhpnchfx+>-(<5$#6&QZ1`K#-F~h6Y(T=|dHVLc?l~H|<zcVjy|=V!
z-oAHuD{;I=THwmD#4)wuf?GN}iNZUGnoVOTA0$>AI{d1GvPSXlUSU}{yNNU%f=ca`
zJcuYHf?FCQJ*vCqg+@&?37kvSsU*OzAlQ920)nSYm$;-Z)bkgy{ek2}cp>i6g$kXZ
zd+wP`AG}jCare;q?@Mpx{Zhs@5d@p)Ru>F6a&t}p%*>n$^Y#%xqgy!|-fl5ceb?N<
z7}!~H>id+do7^8Q**aI30Pn8nGD<27ulUp7SYT?vj4bJ)8y=Du(TxQShZZ$Z9J>~G
zz307r6@Kt3+Xiy=c^J&obZ3mG1WaAQAH_pZc<<p$QUx>}#@QHdiNf&3zeC+weS>p4
zcV6}FuMPE$sIR22o({>&=pH&m_LiaUe8l?=*}or?2-<OhdcEw8XiZq-HM}QN;i2fN
z5b<;|+IaAJw0`SDZ$x&lul<xHMc3=b7i#s%MbZQPkV!vdqv+m(fP~79#I6&^l)`Sd
zgzS;_GjX*9r>x8!K)!sck}Nd*nU-k3WC?A|&$tJ8($&JT^Qt>T+GK`hLQ!RvJ+lcB
zQ}uZc<IDj8$y-^P-q5^_KKuRcvn;Qk0>tb7#c4P#ogIjpO_*XHTRDq8$Vi48k=Tf`
zWsJaFC>p^s0MH!}1Ks1-!2-0!2TTOtBFHpZc~s~(zV(YphZ5o?RX}xvGAK1%Yh>J;
zGf;G1#(~wl2Z@7)m#+Gq*MGP^U@~u#U^G2F_u~pAOPY2m7cEK8V7jma-~dqo2S};b
zfL^mHZ;^?~`qmq9^V;*lnL>WTlG}9fbX(pNW4hs&DQ^5$%(BHDD#h^*NNnGR<0U&p
z%`sJc?<3$L%{Bt_x~SKy7#0MTLzhxKOrdnUmKb4K#U7pKzG&wBlwrj0Asdy$9E*$x
zs+6nYjQOsCJ8$UZ472d=sG1#hejI3jGTV^^Y%GPetlqO}$PcAvgLGaJ6q2vY^lGDB
zsWn^5!1F07j%7VtYASZNja%vLK4O}iAtTB=3^dg04pwnKz&Ta=I6`QbQ7`zH$VV^F
zhxu_hRCJuoMp&u~SSU>Wvk1i-ydc=swe{X~2KzpRchpYts|0MU7X+W+a+4N3j9GCP
zdu52kmP8RwFtnj%kD70vDB~3kpf>bbsIsL-vUjxs<9-*=_Ft3}10oZuPR|GHv1TD$
zAv0tfI~%T$6|xN-<N$31s1b(6sT+$i2dwd5!9$LdS<u^xyRfm&Ow=rL<^U|J2b4*`
zu$loDyu3Bwh*zpsV+7}eYIXGp@!WI51OPIQ4MnDhfYH8-y?g8!rwbgMc#-}LSo)+G
zWXiMzLv`+Jz;_W&d%~{l0^0smL$E<n9hXwrl3?Dc7JbTLz7S>YN(1;L>dBw&K%aL)
zwC!Zo0*?RBNT|eWL8DvAp!D0Scn#QDvp?<Vpt#8pR00ciH5hI0-)O>KNa~TEYR?>q
zst#TegIX*h<B5j`!&^K)czI^5A%5`3e*?(=Z(ySsQXklY(ozO-nh@v{mQONlpkvk=
zYHL$Z0tI|^AO<!A9XbI_tg#scEj8!hd*Ff~$km;=hJK=oGc(yW_J@L_2Z1!^h5hDX
zCy)T1*YRWC7LU>R;>1R-$1%_r4v4{LdvaQdP&jR&GJPE>{20S@IBad7Q&Xv)f~y0v
z(9=vHN^}Vtx2@hnp#$YXk$p~R^I|}jS@+20za$#!Cw}?JV^7PXRmobhI25L@qwS#N
z`;#c~ZUb4(HiZQR+MZpbMm9V>RLC!1=*9LqQEkWM@r<AU(llVB5M+a?#muAAoLOTx
zQN^1E^1DqS#Q=j{{U8QY8|Cd2X|-<}{HHs(uR!^+D8bVtT%lcf>z}q*kI;`+O-;5B
z=FU2wcKhwlg7VP`uZwi0u<K0`*2f9r!7h?^ljR!s|2PMERehAQ;`QwMj<bgV?-@yA
zr(9_7QwN5Rec-mg*ex<eyL$}|HGY2jbaZ~qf8WcjIFy>IP&Y4OLOc{~!aEr9^H%mm
zSOooe9082J*;t{UG~I!X6<=-Kdfd3lV}A;}T#guVl%a!aNc5SjbP?yT>ptM~onxmH
zPy`*uiXPKYk&#c|v$nIayb;p08D4r;rN0&4mUiQ-cqABT*drK(hkCqvJG%&~^@6C3
z=rsc5#Rc-!)cCl<G0-*-%7F$DjCyoS-x3KZ41;h$G7|pB0&dCv*EJ!-+CcyR_CLD=
z*=2x<fyu;xR7V#39-L?$bPhDi@web9pc<aAEl>>*kjh@muug>qbB5vcijSsBf<8bD
zs@r_*V_C<57C8%4o-t^q67=rg@ZVrjqVKQZEbE1hK7)Sz!gD{X)6}e%kUu2Q@jqcR
z6H92gsu<F=c9NNdkFz%T-mBensD{VvY;SSfB;Q7NQn>1dbFk+iq0`8G84A&kG>8b$
z9;Iq8$f^)C-zPpQ>Y?Rpz%+cMf%$$)Z$ewSR##9gl0HOShltV(znBLJ-{!0XN8i)5
zMN>wxb=hw<-(c<0fSe<{r}nYRAJtIfb=0B~K)h2LqMxUdwQozl1gz1#E>DHKYn@7z
z10d<JGp|BzSNVm;z=ioXS;?^iGR>u7>j1&{LQZ6xD3#?5)Vjb6Q%08h^LPBz2m>d8
zFP$Yl%2%ouRs2l?upD0(j0F~`+0+XMz$~K;&~ZmD9;*V)4)hsKb}h0S8mF)c$f!w~
z@4{LTX>KfE=1$QqkDLO;et$>dZbz5tmmu*z4Y#o<qbFWj587Q}ox$zSKvnJOZ@nRs
z6~041lm-=Gm0m@=BDrSVbKFjaiU3QbxkMBLu#TzmyoJ#A5P#?{d8ZPvEm=FOmg^><
zTLU+t-tp~KOcV;Zp451dJ*O(`c<NsM8%US|>c9lDC|f4>1(WwmH}3!YF#OwcOCXO5
zXXuqJ2aFz4+6&gxjdM;GeY-`Se6UX45x7)x&Mb%fJmywkuKDWUV2wp(kJ-Ws(e;SV
z8%+|aN5Q@6vgI#?9%Q^T9!wz`X-0Lt5W7UnmMaiqH;ZdT0n5fFIa%_2-|-`#ddw$Y
zk(dC?DwY7q<C}9UQu(_!0Xf+jM@1c)!_ZUqJ9I3t_F48%P9UN^-6gpZTMS5LtnPz|
z6@wQAG$g}+WQ!zL(?q;kTyx$cTshZyGBgV=i;nBI;&76IaDsQcw~8H%YB=%IOag}0
zx|GC5Q+V<yjOIH)#atX|ZR2gP#!-Q+Q2YK(iLoa@2-&6ak;C0?oZjy)jVS#H$Y*ty
zVG^5wBB;--&0gpU(fpEt4zr|d%TFMxx#nJ^^9InAATBZs!WC_=(L=ZF4GDvSNl%}$
zF<qN?Mv2Ez&1qPbcc`dUWst|tu6ZNa|G)l=JK)Leh4+)ffqVa6${g|iNVXpbu^nA@
zD!8-HACq}>;yvgd`TT8-I5zwgyMXey);r8^nS4OH|7&tgG*F~g`pKA{m%KPLhb){7
z&iG#G%e%QJKf;JbyS+Lkv*7i+r`1x}#pfk?Fm-J)qg0dm*n?Za>ITHZZFHR3o!gb}
zXPNx@H|vQUudBG!#d-Cak#(@6Vo6{30#l7xe{I+nO#jcU<>=k80(Tmm2J$EfhAm1y
z2{ff59O^N}d%YtAPv7W63_u3YV1t(HBpQ#1!;ACu`A0lGs4mZ8D3#41Nv)BHQMy1M
z`544zR2No&InpOogQ19Aa`Gt$ixvw|*q`8z%3qR!WQ%Lb6+}=ggr7TfS39ffn?w9l
z7VlmlaCeQ5hzli<l#{efHV(Bo)k!x1eM%ruD29hPP@P^+-MhP6YmcuOqCn?}9LmT*
z0vnGqOko4j#S@>~b=LK*^R_4;sohoB8jLUU#W<Vsez#|=mQ-G80JX~~Yb)e1{;`#}
zQRw)d75Nl40=m>c#V>;gSOyXIMf6sO09FOwGchlf?|kgf-V6OD)cA;NQ<C>C3irNx
zW-@phIEP#M*`^siyc70JL{FtYq9=l?%1A0K9vSHr>BirZ3h|{vcrQhxEsTjiY+hTF
zId?RWmYjS+nAXu<50D+m7+v<J%^}7IBJguRP9uermJ`s%=OC2b!W92T0L6kgbj;@1
z4gV5OXIrv_-^Uq5ZG}Q&A}2QZ?DH%P{d3wV;~sj$Tg|IO!!@WT$wJ5xSKPE0**3q^
zfXQ{LsC6mIUCnmSOkRz-kCO)pavRBs`JdJmqcVI$32~qI09ox3TUzHxkAwE>+I@rv
z&=esI9k=L)DvNBHFT_h}MQ~&H(alR<n`cEQ4K<GtR9!pY`kJ8mhG6cW^7#2H55l;^
zb4`!vk>w^vqq5((pyM_@Ctdt;Kc1i@Ce3;Z>Q2)Im!XzI$P70ud}7#FXx-_7o>H_-
zt~$MWD8?=>m(#PVM$zJ%1<h}x8~8TrB+?ZUvt5`3icOZ4(#<_C<G1>D$(Iyg-dWeR
zyqEdd=ibdhLw~CvzQj11FF)PupT}=i3DgXfR7(0fgG1Q-`ntdS-)ER{T;e(=WyO)4
zQ8%F_d8#n{ZbL-`g3*Px3NC$o#5?F_vNED%vV&FgtTn|q)8_c4JJi^3<Ir@+qu^jD
zpPWXxT-a*&=CT*i8=H^4u)w*>w+CA9p&V#{3+Cg0w4#D;K!YxG6bqb{LfR3*>Tue)
zpb4%_HeZj6&vltN87&9OBRp8gB4>3;);5!YzYNCHRC~hPEci|2UY+olIhc~|f8dG-
zf$7xra19GhBGp{W>q#Jq!+PYt5|-6Ke)2VAtgT&P&y2q{()fb}#T}7bBc(7nRc`sQ
zM<<KG$I?QMR)?BA%qjGJ9J{Koi9--Ml@*M>STa{!5t1s~X0sH>+qq#nayhC&mzC|7
zF+1<1<nV0x!83pA;RCxLt)%>NGQ=A+f8T`);n?y&59mx@w<p%5m+K!K;0$bh=NSJK
zW0~|-#&|qz=<#ZfgMv%<V8RgU!~J7f4I>Y3WUZ^1|Iy!xFCs3W44t}HV&oUn%wPGN
zBW)%+=N4t==b(-qbzML9>gHaZ512IExB%gtR_hE3+(o5)Y)Qz``p^e)ISldKoiCVX
z;KMGJ<XJU%YDRE@Lunk4(L6)l|841^L<FwkbmWI9A>!zieBW=P+#PjNvt4~>p#DcS
zH0`gS1Hi``SHed>yf)f*y^f&UHqTf$MJp*-;;ftUH$&DGyLHyi|3K_(A8#-ol%u%c
z@HzfX_-gnjeX-!g%zCaS;Q@hqwM*6Mi?`_6s*CQTBwlLKhuVqv`g}62ZUf`y&N{}|
z|1`HtH%~DG9xt`L?DvfyvIbASOIM^sF<ggS!1BADi-O<eybZf-8`=JGrtRa`+@|aw
z{;I+WtrBn7(Xd%d<P;^#&v=D!Xm?6oQ2|S}y6Z{lmvV~?>(MKrrXgQg9&d28;fsh#
zTd%auL*6S}RTaPa7daWB{I69CF40GthVBkBk%8Q;vZkcI1A8Oygtph~7x#54xt&OB
z;7eewCKm&BU{P?LJQW(vran}9bi8|dNkqOiGT1g_9L7&u(V|#CHB$Kq(qedD+adik
z`nCBPD%FP_Itw;C!Uf)0EBIVFZm3<HvwW_lhnzw7EVX=DFgtqZS-4r8u>M%C^Tez+
z3AC`lp=QmJN}ZVvj@>lY&+$k#u+>b}o@Y*|B+UUPv#PR6?-8XgIn=julKSdvHoi24
z%*{9*7(2f&_DUr<Pr_SLlUNEcb&Wwo<_1{l;hr;>Q9NSdP&Plv3F4BSu@h7~${oW`
z>0Hc)1&z(P;Q@!l(5(fvoxw*;Uq|48JgHc=RHSAsNJj#>l5GP&s>ZQ*dfw;}?>4gk
zhOUZ3SqZCKHse;yYdtG4wW+5mA)h&&hz_j@`RTk#yw~~tBXt{^oLl(3lWr$GNBJ9J
zma)K}wYRk8uV{<{#n4Z^ZFYnByfhLoi!Qxq<Yn;hHMJWYQDyqCk57zrk4%)O*V_%I
zFU7VecNB-YHVxd(`^N&ex+l+$qE^D!H4YpHq)dAYN3Vf(5_?qA*)qB#Ng-HXbLKSZ
z<M!aev4)v3dE>D5f)7o;i(%JoSN&VG@>phi2SfadbP}Yjk<lEXeWWa+qH4utB9d~H
zd$%n=f->cw{(f6m?retQ^U-}T7V%*NC3|6~#H`N54J<@2&R&T*A<&T;9}P$Y5IBsR
zz)<wBA{#tf!Z@wYaWL|3i3o-B{I75qpYH<pvt`P@1-<%L3k%AHCTXJIiq3WR+UIO-
z-hQuK{dgG)M|e=BB(QzH{Hohc+V80nj(cn`A6c;EtW}J!F6`?Jq<O+%_rt<YtcP{;
zpUaKb9O}aK`;@CO5LO3TkKfj?iJ7R&R{`}5BZOQPqtH`>3*Ia#6pxP-iXt~mv-EmY
z-sPHOU0rk9T2qrvHW3cq9iIyydc4y1%$D$=)jz^DMHq7=zW)_B!`jO2?&Yj#GH|2y
z$?;1_ao9O=#T80N*MD=fOp+<&3>nup*G#kQr;TVPkw9za#>{D@x-5m}t{N3nsmx0q
z;N%G;yecqK(c#S-59Y_pur3=b#5frq50q)j9N+m!*l!p2ku$1lJSf|>Qhk_6OFe?B
zj3lo1Dhh7e@~7n&gs!#s?fHx=5U_am=vloh`0-72+1|W&bMoyutv)~Y-a6GW9^dWq
z)i<JOJ?jrSq7>fnKg<=&P;YBGIXfCym#ig7(}>3_z<RfW!keg0P*O34Nd>Gr6O*#|
zXi*9kWOg@jAt;c;5yC~P^BNEzL`rH6q8m`TouX#)82^%4nQ2iq!p4I4W<&haeYl%X
zl6L;Sp9FOkMz`wK9C%X$$FiCPeRcr}d8(*YRmMZ_NH)+;2miRnnNtjqF<d^TB=C4%
z=UB9~G*Llv=b%?e!=OIW``)ToPpQ#aM^GmGtYx$idSI&bg;GETGVzI{=$5dhgjla%
zhCG(}*7<>#?q1G}4jgD6xv470_Z4T0+l_TPLBF2e)@n>zwL9yi3D!Wh*)(6(uivG=
z+Lif9xM?U)hW2!Je8^8P$5f#yK2u-4XMZD(xb)hdF@_m0wda<j)QY~09~HjUo?yxu
zoSQB|eDn=l&s8xxD{H5?i-T#-qXeI>P%`;bE07zz!xY_zWt6s^?E*H8u^^3MPQ-$|
zks)}4B@ZB*O>0&LH${X$Q_0FaviZ0*V38m-V!$=O5yRCAP-w7iNWuEYD{UZQC*+w7
z_L0+?!d{vTDggCvB;iy&&=5Mst=<BS7-D?7@$Y{op0F?x>}4kS_&jzb51BQK%s`Gi
za<9gF0<ei2KEi!lm-ICw#4h;8rGJ>?MLV_K-$i-O84(waEP2%z!iaEsv1WlpNM73b
z++OgD3~c77HdB0L8e1FM|Cmh!38w*QYB|7qA%P=$G9|3b0cL|>93tuKGP3g1lHI+E
z&h_6%VKRIq3XDEnZ+o{0rz?tp-0~Xw^wx8>-?dJkJEy04%6Qvj=#cZNbDC$&_S`#g
zXS>9`UN?A?&aR8)Rd>g~OqSicO7M;>!4#!W)p2tUUl`ObKUI?6+Eh|$q)pu6)q@r(
zdpH}MRp@b@SHID71Jj_j5bpctO~2=Kv+=^`K;#Og9<<~4E#=8sSEmr`EQmFK6?#Zg
z;sHATLAvo*m-B1pjcZDS(!&x6@NmEy$?MnXMp*iefBgsX#s3>GUqgwkR1DOJj|GZf
PAbvBpK39AOd*|N(uFPD=

literal 28311
zcmeFZcT`j9*DsEvqcVz&Fr!paIe-xa6aneB5e^VgB2A<yU7FGnk}%?6L(r4ZODq(n
z_g+T@6KT>y4@v-O34{_Mg#1o|^L@Yfz3;o$UBA12>;C?@XDtnR&N)xndq2B;_I~o{
zvWdRHFJiy&@$m_O1{clv_<j!N<J*37_fEKFDDLF~{IT<<k^V*a6Ta3i)L`Kc{@VuD
zetdkA54iuf#Y`+Z^YI<#123Mt8k{mW5}M#?j+Wc-A?%T8-**47`jx|v_g{WQdMNhW
zl~=D`Js*=va=3K$^qZ5x;OWVmJ;qT5U!o>^YwrcwA9<FrAAjt8&lSM#;hU!YO&53n
z5^-4lNaOPh9a1@WZv~|en)i;>WZw<K>UNY6N^TW=+6-XkM{f2GddTpm_kaKU|A+#g
zC|NkqX}=WpwigS2+xRRV1a$9%hq~r%3$38rnOZH>?^S$!Ie#a)@8Zp%@vFhYPu#ys
z@jH~bpJ$E0e;SZ|e0&b>(P@EjbFQ6GEnlNynHup1h*2fJ#%-8Eby`zCNMBn>3RuHH
zM!2worS-m_?OZuPi+_HA6~vNFoQ~o=1rEw-RH$su3Du|BsesW2jAB4vW&lqe0!>UA
z&w+~G<&ZEaUN+=BWQ*Idfv|>*KLLvMd2JRDau?DMh(@F8$z-5PnHY}?J4JkIRC!5Q
zHo*S$L?_UYN(B+j!7|V;*4MObz!<VOSlg6JpdLxZ(vzJEfEu7mYXVbsdSZ0rI)pW0
z5Ks?;pyoBZTSII??vl(pj6h7Q;@302?>!{qsEnVZLT#a}=rgMaAub8YZz(<QsGvM8
zNIT!Pbp#jYXAp&rcVg{#Oj+s#;`fSH+)at4+U=>mglZ1357Ugm+C7;rafFsUZicYm
z*f0DvXDi$hhrc*>Z1i$BClbHoW-q_>aK{Zbq780N`MfqEZ<@2V4efHPKJo-Os!hG?
z+PBOi?JklX$0{MeGLOPjY=r6%PfR7ALLaT-sS!pZoZ7vnCbm}H%q37Qy|qVj;#$mH
zR7EJ1d}(eeBdXl=T@paQMrDqz0uN$tKb3vDRBvT`^v-31WLN6q2wg<~o;u>uM+}+u
zaW~r4OsI;z&bdQag&E#1yLN?y*7<l-xHf<sHv4QA{VJ0}j$BTDAL>5baBv$u6|p-G
zadGcO;yzm8PA&PqC4YB;=67DtQfvynLVCUS+HNWm-!jHQ|GB8+an=(A@1+hjGQV88
zkl&5JLpg|)4OSv8gw6?G+9VyEbXO%0B{7=*KKx+s!ytn0e0<VaD$>__CsyQh<PJJ8
zYBXNY*%povcMjaich;u1dUC@Z#GI6QTP^E+faVQiG>GzMhn^hzU}V<Ud_DVtYjE)!
zLQ6XE<x-gqX+5!_vT?T7!+`B06XJ~=If&CfLtMwVFa!;(RZ0mRG6R*3{RbR}nSbC8
z;l42YTNCop=Sa{`b$vj{*Jt%g*&3WOK<`i|JrX~V@jzxkdW7&{5YWoXRk4jfjJ^y_
z2|mgJZCaEk;c0qRb70DZo740M0w)JlMNb?l4<fy$$Gm+@QI%;zslS`Yfrp+!53O;h
zJQhp0&AZ};8z!#>s02?%@6jS(!xg*GavqctkOPG?)~Tx=X3&|6y>1PzNKdVx<{9$T
z@G{|Sq2kIc$2-5u1lJs5545$9<sG6M7TZ@dd-4%_?<itNXdmvnA{8R~gze&~`AL|T
zo@EVLB2H!9_i(`Me*2Rz?7LNhIZg&Cds3UU-ZHx?>0GN2eyK;sMbX1;19z*LfMhK8
z$Qf<=o^1%~TNcHS)g5)dWM4qv_e~|4x`<xa_BqRvzI9XU&RN1ak5{_InH|SsI7%NX
z=}(-r`A1#VMJVSbln-ZC3)CI5?8X@FRQjX%*Ij}Sb7=1#W(wE(hzX6K7p}zx!xFv8
z)i`d(BMN_8$_(6j<Y;fLvg%3FtO!s`2ddXsYUJ6j(*lMIx@D7^K2n`i$*Sm8vCgUQ
zNxB@1?#&X_`Kesn_v9Y@oza8f68~s}$KlM3H$!82-jfT{s`H%eriAi>s%B59rEl3?
zvx(Jw<fP*1f34Ypl-sn2FBh<XtHGfGdPd-zFa;tJ5%YkK`@D&DW8w8DSXIY}Pq(j+
zCa&Kf2}F3<DZY=t)y}znmcZ;w;Y^3?)+}pOpl9M^&$u>Pfr+-?rBnkR2u{~r9j{hu
zc0M_)qCR~>bqd?iQ6*{Cu#d(e8=nCog5VpQZ(`j~0!$+uk&L>Ya+VZK1FH{q&(;&Y
z0$OZA6C~r|wsD&J3(hfOWxT*Q&PUz(S(k-<hJapZqw2oA=@OT-1dO<fz`Cv{GV!hU
zw>Pt)o8bjH{P3ugr*$HNM$Xq)p6pLp?_ZsEXGJ9iQp6Xpc|h6<&iwcoxwTu+EHwOl
zjcGD+t*ivxEOeR6bX};&d?Xh?6RpLCDLrMuOv!AOD}hzJuf<NE>Yk23&@PE;ZziOd
zyk7d&CiFByTtvWcKD_$eC#_|%<uWhP%R%V2wZAqS#$M3hCE?5d+$9+><8n&P`8xB%
znd`AoYf2`^nDH{HdTO<n#yoe{Om9zcdlFty7n4MV06GX>)ICl-gfL3JN>44@-aL5Y
zV_Dp5us(j!pR=9s$zdLsg5)$5R$>6brTc)ZYw5_u!JC0+N6zQ35Vp_k)X~LQwyjMt
zIQPU`v^Rb0l-5Njwnu=$L2YZ~OcuIdhImDFzWtE$Y7#&&w*LDi#q98>-WP!1sWXe3
z2=>;d4gbSRk%JQC>%=Fc)NJoMLEUD3jkXV8L)xWN!+F~WnYzWJ9i#AICu%x9F24#E
z@=j!|#NU*FSGYInkq$^PVT|ieF+qk=DnrF%9itqf7Zv;mscWBC$;h+yT?!7lU_<<%
z@4psw6*hq<oi7d9A&5^8%B|5sMe#0XLK>M9dUi-!|KUW@_L+RKmmJ@d-&hN?2$hWk
zetQkW)$@p~n=;8r2IbbwrpFY8+}lHL+eDHmQgo5aoJfF`)f#Dwqv@QQ4|s%gB5w<r
z#YxnL7iF&4aR=t(lW(RWYFd~>4&QQh=L_=PwUV1+5`7587tc3fY`QqxnbpX?onHF_
zTEoAu=1!N4gzE-)<k(qvZ|ZEn>4EzT-eo1pxdJmP?lqa%sEUl%uk)77*LyK|4n~z7
z>2<T*{cJ<^(|re7I{8EI=Tx?@YrCHfW2;#k#Z85}pJeLsDLcEsjzmuH%3I3rTNem^
z5iXKxr(V!v%s6h$&{M(l!xL|4tc5OxFzHMrI9gtMTdblJUT_V9n6;il!Be|c(W6OC
zMvvyyUeGqS!F%nE$6%00yPgJ{TsiWrc&_REi54aVZ>Vbq_YU$|ff#jX*^xKNl9HGG
zHW|88CQ{1nPoR|Nr?l?Su1xFTHUbRqRkTy0ejWGqySpxzK@OUU^tu=eXk}_Y#-box
z(w@A&GxR61G!CpH8k3e>_leTWw*@qq`C+mEDe+U@IK^y@23Z+?oeJ9OARuVU$OBj>
zzG~v`Dpm2!K;QRd|9IVCdnikGK;1cTXxMRF1rc+k0hZ*edKoSomixYybUH4D7dUDt
zeSU^l)tX&LE6F65qN*uND+nU}HA*O;cXiKzlXp=w+CH~OMht?SYGq!JbaRyd4jz&j
zxYms|BB5(9WX-Q~U9hqX`9sS>0;VF1vyv-sY+fBnY=w<AOnBIbbDR_sHPXmOvRkWE
z!FG=^vG`1&U`BztgKlhis^Afo3<%f48pOi)o;tXx{2CoI<1)57sQop#cf4a)k80|e
zZ8A0K=Vs<~564>sKbFdM19&WrbK~RtHV8rKgV#`4Q^TVxQ8L%Zjle^(#f#T$+GIma
zAWqQWpT-{xSvNCaFT=~*kkPxpCDf7R;`v%rnwWgB6Z5uQHe~dtL98ONNVIn2Vyaqg
zyafw($UddP4(QoC-XzT=J&7*b6lnLXc)Gi=+*}XI@BpKYeOX7p+IYh+n?t+g*4B@%
zW9269EL4|WkAHFn=G$BgxEW%Q-0<<6_|DNp>Pv)F;NB7q;$mW$@8Ty!a`uQu`iMK2
zmc|IZQ53fnN`yx|QRqDg8}QTLVi7UEQvDi-lBk;q{>LMzzLe|9jAKi`BaCFOKcix0
ztGxdtSHDqNWut^DVvG|LLn-){`~oAe?|KU3`)UTFWW^$h6UzvoKQF#C<p@b6QD5Nc
z%v1#N<tLQT6;296XKi|iV+s{rWL9@VX28<*W%7%W6zU>^N%E1=I8JOrs0=m4Q&FI9
zlK0I!V#26)(<;5RWGWfuQbbFjQlOMnYJ_{>c+s7@_+bvr;Q#h&q_!Gs!FS&zc-_v8
z-QZN$oAU7iU>~m$Za<(8?-lrZkpTpAy}JK<{r`vp3HgccyUxmMA0_U=<+?lMO5*0?
zsrLa(RpmpxS#D2BbSnQcUit|0GxvMpPkG6Ke5HTSLSYEv;Lc`EHR5wn(Z@l7_pq#+
zA8GF>E=zJZ_iL%Gutzp8&Qtyw4&=Dk2^rYd!dIu+KMiH@b|`$B2<!qhjuG=gZxdf@
zNFEwi`B2GyF5LOjy`YegYY+-I*PTU+1PTm%`z}iJI*mJFbUKO>0_svUc528FtELIV
zNGMcJLxt#$C<)^Unn=kB&_zo>b;@$EHE=!b7*QMwQzqK#thB_O9KAD?!ca}oo<GYS
zh%Zt!ZfxWkb=5F=3FkTEUUC5{k@xa8DrTR#m&(U)$9=@@p^R82{S6?lH9-J0WM#hC
z1n5KK(DmMsIs|cCR!EZjP@yNdU_!YQ%a}EbbNn_%0}AqLbpt*3^X8LxxJe5glZ{sr
z=~{gf%Xr!LU@HuMw1d7pZ;!CoOP@!^GMfIqdE^ShN3v@*t^K)Y&3<v-2qXh|gg;^#
zgGanvyV!{%nrXMW?cwEC>hpXSi5H6J6-IL8CsJ|4XI^mD4c8tZf9CP76t{!!gbp=e
zZv*RfUtq{TNAa3-Z^yY=*+q+*VI49yChqLyO-TXkvJg!HMRlHUmK<5pw<H}@RFvS3
z;*jxdOtOKgex~mOXg7@DylA?^U0V17Xv{0#)OfnOMQ)9Kx+J~DE)^T}LoTd(fnd=O
zjyUb~FDHXMg0;E*SOsv~=)gdVlh<}f_Bm42*e5X&o^V*G@{dk9+Cqr{6By8(u(~^f
zn-nV6^K#=&z-k2u&T{Mk^Z{5bF5n~*oX{DYlX!t%MFWN&bp5$g;NK^COSpXJEL4Jm
z%Jyg|8u@<z?W^R2HiUgQv3uVR?)Zb=ZKd0-{xC64e8g(~V;PRJ_Ta)!yV!EQ7(Pj%
zTHInTK+mb&^oA;ALOdX!fOan=<12nbd>@kW7_greo%)U!ZB!ZGdw}~w_)SNsrrXy0
ziw1g7yUdIut`oqLS-Uu?G_X)J{!8Fb3ZJ=8@s&0kbs<~p(PwM)a!YIM3G3?SGZmRY
z^bpsZfG@YFrY^U?2DYcg24X*FVPuJGv1%>q;*;;U@RG9^a+|a;F?sj`(N3CNEMw1l
zPls%X<HX8mBYrMM$LFTUKe{+{6+uyXG2)p~>w`=-lAn-M)I7?)>F@`abJzmBdT+U*
z+EtQzZ)sJD*(mz+mTb!3+d==1E;GY;dgV|*$1?QDrHOCxKDPcmaIf((EV>xit0cNn
zagk~AJTB#02)jbn(cG1fGb=RCBltCwdqErZ2~<7J2{bNDj|lJCM5h?Q)X>_7`Ddz{
z4YU!HR7A5!5Xk;7xDz^ClMCyToW>C_EtZ;`N@gM%G1~_ljuE|713KQ|^-7jIxsQdb
z;l@&<j39|LY6%!9)=9e$WC^}$I79T)n($E<7UMp{_qrcX%>We*d_$ocC`^VZ1q`4c
z-$8aw0wthHTHs;sGo67h3nqQ@pvf#xkob&l;#9fq;c?IyZzs4Rj7}?O>vXs7`YBmV
zgeM8%`%|Iflh<%9p>pfLb02Q}#c8L~>&m0V7+kKGLvE^>%i?HXqZRiSpK<3TUbI%u
zRO?snH#e>1T;8t#FHo-k3HJIw+_0t8>u}l{ZDEIRJ51S2DRP&<XWS?Xx`^xQY7==l
z9iPQf6?oT%LY`o8`JYAmkcl5yJ_1{6q;ZFrNn%qdqjWn@AC#BuJI?Ll-=Mw!!)yE(
z#Q2}*(NoQ{fU-oRE|~KV0yal_elT?JV#R;4{2bhdBUC03wXy-rwy*nkM;@1z&n2T=
z7Sev$lNa-z#axj5-z?p~OrM&y4aNnMct(8z)W}w85S_t%1K*C{wl-0mD6IS@+~FX-
z*pyH$4%HqdS_?nr*;A`>h0n^EDVepfDG@3jn99WZs)MvtYAcYH(aPXSutRG(kT@?9
zkY?|$GBmyP67Vr#Gyy>?JyLqj!7W~XB=YSa4B``UvAP#@0UDC`YBw!@o7J`tY|k&P
zIze0=-yQhVmZSFKNSs?j{cFf`4v&SX3HbXyy^>(Gk+1pGN+uAKY~asbU}LciY}8uJ
zNd-pM(Ju)#xY}~YdVkR$JS|%aE0txPY_oa?gCQjg(gQUqo}TKI6{_v7z-EN8pOved
zlXj{9TXT?pMs0w>P^hMU@%$xE-U!E~;Smm+lRO@jrh-h@z}euxc_bgaIRfi&=Y7QT
z690mHe2|Inc=+b5{DhR+@4s<h>@<P(_{#i|m0iHvdic8SL1mt@F8tg2)r}Ah7X$X6
zv5fc@Q66y%Hxgk5C+EC;alIq5N6HpqUs<_jR%6e@YHgG<W_3_5<WAN`#LgBTso@B)
z!dCa>Ja-_z@QDle;;*D6P?7E~ZIiZ|99r*|2o+|73#T6Mk{hUiP2a75OrJ}pBwwB~
z&WR3qh>OgcqWbn@kWiaI6b~NHi4(0IXC?u9psxvJlO^%#W}9qP=F1{XU*{R_ScNmH
zMVZGV>U4-L&@e=e0%D@*T=$!=lkZV8as4S^Zwlk%mU2~0|94wtGQJn23Cl@?T$L`-
z6(^DC(pSM-g2jIRQKF_ck-|&~HH4IaDg==L47hfk<Gt2NiNhmFF7i`>psyL^As^5?
zo&(1+PBo7%X^JMJ>YM-Z^BR@eLbZM_W@@%t@@(Nc8>m)=xJ~$x|EVo03h#rXxx7Ic
z;wO||4zmW4T<RrZla4#G<q4KHzu_O%PysiMAeAn?&sxdUQsBYqL(@(_QUrNLojZJb
z>mZo6Nz10o<<GZv?`bF4d^^0bfl`v32*88P)*0T4430Jp9Vh|o6RAH>x6iN_uWq@D
znI`ut(B4Sv2qxx-`A<;fA6>mQD^|-T+}R610+VaExB~Taw81Hr`NP~h;j#K$o2L1L
z%dtcu0dDhu;m0})*j+k_qi%Db-2SJn_&>&jjf4gwW0=TgdG1@`zkl3ocWJQ<(3iCy
zYP7168;~JB{qNK#k!RTcSJY>ocz5M4IXDb%kqdEyBsHgka!Uu4h=HjLL8vtvvE`ur
z{&so?-J6^Kpza?$ltvwgQ6yYg_LnWoCGz<Y=xvzzNGoW$KL1)gHL`t89@lDo{Bq_k
zKT^jA)qNMw!h4Z>#A;O#Dz}5CYju@~XlO2pI;D!HnK1fHLK=Vvs=x6ZxW??xtM{0n
zr)AxgK*lmaj_#zZ#4?HmKJYpzJbpTM41FVGg9O;<&jkf!Z1hLo<Vl>>?@5LWhpZ9y
zT_|$Rs&}tsEaRQn<1NKz?smMX2G$r;M_c+k&r0yg6OAEGqLUG%ZmRy9Sg{dQV}{9W
z(4OF~$7&ng&!`2W!1ipzy!=EC+=rE}3$$Sf1*Nyr8cq<AV11tk^L{HwNBLtUpk&A(
z0_y(F>(?MXq;JE|@BKMIR%Wg+#)EWi%yjy_<}C?wCh#q-GJICC8HJPhjA-y{C0|4I
z$%Wh|)%o5c>G+}z%~q-bf+?dJ*rjxHPL|e`jNAA_uDt>2$B~5XK)8&CoHHVF00>>}
z8M*RyHsE#!&2fD1GiOJbyeyc!fA{O0A;wPEx6DR&#3=XePvq33Qx@Yz)6&uH;hR~m
zrA|XNn)4lpUe254B0&Il`(_gg%Al|l@90%k<F7nflw3{ZNCe2(6RX=26^w?dAd+L5
z$!eK-a(8B@Ot8A;48}2KTd}9XLjFFbkKe%Z8~mekN)EX(8M;k@4Td!pasx+X9^Eyb
z*!UFrp7G42<^%$)zN48hM7DFR?=viZwuA0TieijJMh*1nSgkCYu;d*NaGiorjkH8g
z3nMzVdPqLNymz1mPBfj~RJPs;1Y6cipVIphZ~+=eVN7#D5aVUccmc@Ct|f1CoQELe
zRPos%@X&KcFe?cNl?w^#SV=Qi>D#5bV&7KIUrF|#p&1nCXL1GsOaH;T+h<#mRyb->
zds(~aQkg|kgArp2Ov5`-@E13S(G_TDmu!g9Bt?ZFqHKp_I`j@d__+j(wreDFm8#=X
zxj)CMPMdfxb*YYjGyqW&K+jLXu3VIMPJ-uIK5wQ=O$_z1Psu<BFSW!L)#KJz?ozJ0
z2O-N-_gBe|03%E5%aoEX&Jk5|g3(V{>DLA18mpL`_e<YS+Iy7Eq{i9=`KSg6uKI;k
zGr6|Mc%&MzCvNB^6wHR8&rQk&y5ho)>={aU8i*US9k7d~g|ean=C!}AW=~-s#qSby
ztC1zf9QTsyMKu^@<WnZEsl={hN|cyyd+6#6%fev4*(4v39rZOG=&A6J#=c3xUL=Li
zKgQF)Odv{(rA|jX*yOI?c#mH1Q4bMZMWGvvzt+RME&OGl>yW<rE=l_I@{N^eW42W;
z&~*Zh#VRwBpuZqlSw8LD43eLxbfGFNGrTEDn-u{w*qW&gV`z_7fRC8Wg3KV^J6B4y
zE3n3J$j=OllKMDCsqv98>Y2Y<XCFjEQK&lo9c=k|dzJH{@Ur`xUnJgmvbcoTyR9x4
z0zwq9*uyj##^%2O*i>q9!<X2&e`*0D3p#@5aK-!0g~hi?cCA%RhsI0~=@IMX3-oH=
zFYYVAn@YW8PaU5ahc>{8mDE^9rY_p`_>|A|+fWm^IF11$Uiy8})tFqoUR^jw9GCK(
zT6JNNU4hR~X}5Q{F5mX9yUxBLjoPQ{l~lWnRds5jA$b;8dzy%lzRvaRWxX$u=Bill
zFWvH5sSrh5tiEX}Ong+@QPRa;v-{i_oOQKX+_^jZX(BepoJ@o<Z-#OQt-GT73iU|r
z64Q{mpMBxrfz4O!KV;%|?RB?FZL+Zyn-WE+n7Nwi8fz#M|A<wyRQqk#qs#W_t4HG>
zBfn;ss5zrbg>l2Nv{NDtR^9c)(86|C`FR%lJ3Jk}?Z}%4CQ`vo=8pV#-(dqP;O>$~
zwFki$=!QRwtnBt><Mn#ig3zR>u7jDak?;dDV7pPG*ZTOjadTWUIr=tR>#iOB8RPv~
zXc%{D`_gxO*51wftob{sSZo><Yu-*sVjSsp2REJXizMCl&(QwH>h2KaCT;vaX#{0y
zpIH2kxBeKKk;|;^IND4vll>H$m`Z_@DkfF-DfZyN@{+zPJGpk(>~%a9k;>SP3-h=?
z%bmFKQ`KP0{O+#QN5SVwx&1lC^Lx8z?ikMKxm8zodH1w6dFL(<)Me4a4M(K1S~00$
zqN=8P4YN0PRo}mT1UjYS*N!%$jmx8i-r5^jH@|!&W1O8_H=>*F1@|=iK){{DFdULT
zDCta|J@tL6rt|fqgzRXk+j&fv&5klcCcO!hhH~d@>@VP&5M@=NT6yyHv~0FrEHx=A
zu7~Bnu1CVSXSA{PqrT|J>V`7kVu|5r+QFc>_0?(b#+4pJjx^3QZyI|pZu9E<=-5R?
z$(Lx=rck3uCH{qvhOF^}QZ62Q4Hw!^blm<sd~>{VSEx>Y*XYh*cr*noVU>1>`WZY_
z@^Sn#qNIHl3`zOjEvx4EM1vvdjh2ylTX|%H*|rKEN}<jf4rOJv-kdATFgp|=8ZHpa
z7(vfa2ry_oYsgV>o{m(KTU!Ad;-Fe2RFUb~xH13`rc;JgWgfw*K_AsOWt&_)_c0ZW
zHe^ihAJ0YEMg+Vx8rm>2gl<0@IzG|6z*==gfb>K>VQ3#h<<6AaCmRBFI|!EnU?rFi
z1v8nL*T8+4Mh*()=~epva2-Q>ZZ!4XEvKDylKF^)ry5buY2kqZJ-f8-)KI&wPL>(A
ze>b^6(MLJ?gO63f<t)w!7?_j7>26<>avoZFlM^#QulzVGI}wpT(>i%0TP3(d^d;<3
zugWQ&YL5N-td;Pz&Xk~rtK21+U#jPIf0fG~Q<O?@vcCbu1mL)*J5yqhay6D7!hVbw
zEe^;ok!2bs?zdTqFbu&bJ{7-fCpa{mO(;V=ng&9wA%ew>-QXItpgVP1D=R4qO+A{g
zm8Cge!km3+O#vBGvE+`~ZWke@Lx6S6C~^=U&EZX^P;Ce3>j?!dr*LjU<gAS^8?|_W
z5XEoqB^u5Lmnf!;4AR;>l#)#47x=I{iu`*lqXTzcE1fL~)|-c*32EzebJFY9wBZV~
zO-!VcWoHM7D7oGcOT7@gG~1Q>W$mdhn`XeA)p6TTPDPDac@@Y+sUQl#kbAG+j(>b~
ziDHY9o+cy^-s@Pg9US{Zxe;OWEecSPSu@c2g8H6@P#JYW35oT#dC+jh-c!TUITas_
z%VXaQ3CNQb6B|N$kJVdG``tDjiI5Mlj8^WGhjq2u*Oi>r{AK#cWe-$FzIP-|CUsr?
z#MeQ;zN`6utY_uK<#@MX+esy`uxI?^&YRaBwpiq&EePx2a76EfPMY3LZaVmTLsC*x
z%@LU^B`8B^93fhJu5$%UON2g-^iP)*p@NX4+!3h&J0C+vROHtk%~O+j>nGsAvs)cU
z=GB3a;E5Ggot5~k<YS{sG8)#dNK*Gtew%kbmW8$f8g;1663?39i>fzlE1GF_TAWcc
zl-}deuGHSzle)uV6|Ux__~o};nn*4c?`Of2IXjNgdgofPveXIVS)rFQXv>9W2~9P{
z>}!)959dbC<jqLNmRt6ehInMOsiTBi*tPXtv}%QocR7yTBWLqyV&uTV+I-WINYYBo
zwXw3$y1G*qbmOmf-DyojE-}Q7fp-u3O2wHv-xCcRGCVuE4uO$xU^VuIcSAU4_BgwJ
z{%wvf4IQxkWU)5vA9>E29dagw($ffxbM4p7JiVapa87THSmxRn#oU7sk7+AoU4kC?
zH-jW!rQVB+o}{GFJw+&z@9q-O+V+_tO|N`XIkCpoJinp)rvl3Cqu8P}o%FmN^so+)
z5eGbw8<3u0sW6YcGbRZiX@D~{iP(<oDeHpL%^`yA>8-z}ArnvRh3AO!bF9Yp?@KBo
zn+D{KWG5Qh(xX>O<9E<W%y1ycc{#vRPuHn-CU@*ci(K&n<(w3Kncev;uqI<eF$oE~
zr9!``z}}Vjz3)l~gXb}U#>`pK126;}CYQ-U7nMzJc#@!V4a!c#cSa&umg{wx+bDQY
zk%FqW-UI6o-B*exYhZk__i6FKuk(kSYBYzHmRuQql0GE2m}1VYY8A=Z=%AQ07QF@O
ztZm)L8fwx`jjh`ovd39_0=%mm4wCn|$u()&+up07eRqRW^(8_jm}6jUJxl2YR{&4b
zYW+C|IxgGT(b>zaFjHIAJBuSbZ#sp*PKpj(7vl@($K$N4w1@%-kLY^s5hU?a*-4o{
znbUZ|*z$DGsFiXBMU8UX>e(4ZC+QY6u2$U{Re1tbG-M>Zdv}unjiVzJY>ZeZj7iq3
zf*6Fe?RUX+g{<3-aDqY$3X^kgUiHaT_)>ToNr|8stywP*jd4Re*_r$PxSi@i6?r#0
z&{(~yOKG4mXtJaDrt`D0zrOUPvsjCBh?c*DCGa%tc$zLR+&Dbsx~W-9&d?^oLO4{0
zNZxI0>y9;oB<~LD<e6bNtX{c@0l_y;cbG7P#?nyHe@&u+3D?koq*OL{$R~lfC+Vkk
zheFUdNSDq@8C$<Du4wZl<xkeN=l0NbCi@d5`0Yg62K`+Z>zzqOow>GMZ2FK&mIOD}
zI#JO%GWj6nENMMSP@;$}h&qI1+YzdfvBk(fi|95GqeS%3bUrXyh7gY^(wvKBEY-_7
zkC1D!#P<nkC{JAYOpvKMEc3Z$7*1h0ckko6jKl<RKzlxFnUGhbN~B~cd>Je1>229N
znxP>-RG%fW?}6iR%NMR8v7V{8L^ErXUCU};yoXP$)XD%b*f?sr2`^2-7v~_sKbk#&
zzfbdWtmoDP@-=2VKHA~-AQ6DW!f$X$nQK^p^!->G0pD`48Bc5aL|S+cG~irxe@!s@
zbq)sMa)|t(Npj$?joATkjSUcTnTv;Tm;Jj?ZPZs8Fl}TZp`m{vSUxq;ud#GKmOA>J
zi{x5aG{<t2Is3tV#vs*8qKM+r@|&O$?7x;kT+o)2L`?wV)s*{g!G5WdY4HetoX?_Q
z3A(Pqi~2<hQsK-!Y4X++4XZV^tc_e#7(hNzY6I;l`Ob`g_vN<2YH&!>+A~3zSdpq4
z5kYi-f-LrkaQw*@jvw3L^;l$Jk;MUn=ir$Z=E<tHC5ca!Ov?r}z{O4A>c<Ve-Asdl
z7ZV-Fr#6o{yL|Qj_rO>O7WEgH1ZpQ>Z|IALLXXeqoBD=8>T(*nel#!eP%5?gKceMp
zuf9|qpRkmv^0=={F#u_sS0K}jRvO#=!eS|0nz$X3z@L&{p9JD%s*Wz<CUQ-(01ZEQ
zS~=~^EMB&1JixtLyl4(~|1-?gyHOQB8MI!<=puo%II8}1LsJ`U6SV3&#T>VQaw`{a
zQ}z7=HFNK5x6kxh%;;)OieydH0tC85L<;md@RZ((Az9MU#jRvUT%wJco>7ISbO4G_
z?-x)Jt<s3dZg<FE+GsWX>J2isz{yrqs6$o*6SWwfyoKy2s8Ed5*DC9?X!i_9*mr08
zEN5tk{Gz%~DZut>$@MIO;3fP;3(%<Pnk)x~Vx;@|pYhQ9@W^Gw#6l}dHa=+XE$e*7
zhW*`{eYtogk7IG=aJswMWK9l?2Ep$ZBhRUofF;kiRX)1NgWMEskTSsyW(Yb3737_<
zVL2_ULWbkf3>r${LzmirgKg#>7c>o83nwr4v;kG6X4p`u1E@N=M2?-et-p~WQhxDW
zko-!hpr}WM;ZT9v?_>9^UvXVjKC$Bbmv<DAzIIs~;c3+afWF)s8K_Bb9n-1KYWoCT
zAGxgHRq{V!qi3;9Lq@c}E6p33NMtRz?^NCP&Shcr@>_!FjoQ3v3}+C=mbl%!Rjr7g
zNURdtYqXGtdMl;&`fg^|YUUBIc=;b$OaqkBX@#DSEdLRAEnuj<Hct^*1gCAMH2(+W
z6eftCh3M>>@Z69Z<&YWnEL0%)h7z!C3+#?^>OZw(d}e58Z-Gz$V%!l&o%*iT`zJqW
zd2@?3xckD`<56TUH68G{<jMNa8APjn{G(L?&h*4vzl|?#?rf<(Lwuq&A$9r;FX_;E
zzT0HM`whMz-|It)>5n1;hqVNkdqJ{9A4@yI!Rt}e>vaGY`W&Am;-vVt!E_6PZ_F-F
z*g-$oWovQ6WM#$jRPejfL_i#;U71DUG(5CQh|<B$4K5^zN2>GqkW?-s^XCwCvG=r!
z7JhL+gQzGVK}W7760`>vxDPl?Bu)wm=z)pztj_>}L>h7OdbtJL<E=~7<*F2jzbDd|
z-})k(t8!l6;jY@D*T(o>1?BaM4V0S~rQ!A{GF{6rehuDCJ<Ill)&DVjo%aC<X0;uy
zlN;GV@B8qe<Y;O<?b<t2iB1}RuU+}rDA;byNC)ID-Qy*z+&-GbMyzFf93Y2aCJVq?
z8R7$|_6TtoDo*uH-w$w~TWttmrSA)O&?A8g%fS?a6UsDM5=yak_p^cKTlUZG_$QIb
zEza=03O!9_m_iabXd$m!ns^7ypQ#<iQ||~r;;Cz^@&hG1>Bm-07>xiE$w3axgx%Ku
zqTuoG`$3IJ39^$)rrtZ*%){w&PnjC~{xMl_u;!VgjM#s_2fC<20tKcFQ*fW#?bcog
zj^Wz+5ig%?yr8!(54wMWOoEkLJXHIdu`UOW#!<fldY?$CsYCa*x@;qYW}lTa{i9U}
z0;Sb>gpYMU-o$!rxCYnk7+5ETe}UbAD3cH`(zTiZm#)+R^z4}k9`+d50EYyoZ}FxN
zsotsoeWDzN;vZ!npZFv$<|nhh`fPnW6ox*_&fl|@pSJpvH0U&+WEj$~S=^)bpVJ7c
zsu9c-pn;5_ClnWnec-0hb>~=t{uyCkzHX&0EFQy?kTO+o3cU#ViHilv1Y;u{ZBwWp
zV8B*Pf|m%kn$X2NsS(RSH4}{kaRqG%Ch=d1>-@K>!8oc6xOs$V$3?nd3Pkfj>9aAJ
zac*ZyRQfX8XLrf0nLx=<m=1AXI@<60g+(rv_;Q2cT^)lguJ2g0#c5}}^x(B#{(SXb
ze5{u(2@*#tOc&{IcjPs@D>l`jE{qpy*C`SC1!6*OzZ>W7ipK127~9Q{Y`zh)ejWCu
z;5=9W1#ewTR^3Xj@Clb{5Iv!Pas&TW4M;BxBG>IRVWa>trq(q958Brx<-Jyoif!TK
z3ch8Pw>d?wbn}mnKq+ZdqI9W_HnBx(!c}(d>boM|+>~GGK*RV`!a=leXxlPHqCo1B
zrEFs2)fdLG-17r`d@qh5^P03^93&{deRc^NmV--6Fm~N=Ifl<Xo@wN3bz!Tc++Sdd
zNTqt;TZI5qQ{VaBY+V#WYUr{8Z<w6(upAt;AQc!F2fW8vT9RVCjve6M2{(WFb_e}=
zEJH>opw5GC0T*fL<-Xj4(k=dixy!O71u6PQ2?)I3wt(%gVIH%7!m!(*41|^pT)(*E
z%CEn@z84-D{7B5_zKH7RhcTI3J<@hD<ez6W#9}@lyMz;#nR#se`Ph~COE;HyU-^9B
z?R?L}1)RZQ5#^n~|8f7}VH>AUE*R`p)9TD1=JJq^kEy9CR@b99DG8G^gRY)RO{2MH
z=Wr)FdC7)<bT(&wa{v0gU2nsP+1A4RUc%9cp5+QVG<u}=e1n$dic-Z7=>EE!d=sm}
zoP9-lIn>Ua<8SnX;`g?jsiAC)eUVUIj^j{{W7+HMp&;3+57c)~l4oQlTrppNBz~>Q
zeS1f9pxP=FMV&~7Bs5;k#{qE2d~c>42W_NhY*9(%a~$m81X<8-Lh_;Ydh$f1P6hhN
zYp>R3Pn8JX7P!_0_md8I#~>N`Gv!0erE4n+rjzwr#CNDI8^h<Y!%G(432@O~9MuHG
z=sD|*+UX&|xkHKYR?_7zpD*{q5G0X64J>*t_QNpsd0I#KZ72{0`^L0+kN7#C5UOph
z*OJlDomZG%{FGW?W3#o-!;hF4SzEkpWBjRF$8!@3x0R_z1o=Vn{xf<eOVp8W+;BCD
zg9FsdeiNM6)F4)LwZn*2dh1vAr9E4A@<gR+wTg<p*7*ipHbyYz?DbqdHES;X7#>%8
zQW_4=Y<fE+UQ(vA*T=8@NOUNc#*XQfXJh^DV>s5mZ9LzGPvjiT#~O>3dFkbvm)TOi
z|IWvHb2iN06Ba8r<^RsZciHu<-R!`e8FJabH+Pt`3-_<H&zo}$f3UXouX3SUtYxpg
z>iGuCt1As&TNxw1ONI8NyVXV$R|M9z)3ZAM6n+xDLdD|=%tt?RXfC!kD#2Jh71_%q
zn81N8i|Jlt52*udteNr(nYDBOh|Vi`ALAxUd=GMqLJ|=m<r7OnPwA7ojiciaUiZDt
z14rX+ag`Ay7H&>A)*$h~4`&6mft{6s=Tr?Y?$r(qu}TL<H3FR=VQ9GDmm4JW@kKdw
z0HFbf1$B@_4}u-7V&A&u55{@AyQfHH)kM?IcNEP}>*07}6>jbZdnTzTo^rVWXa2lo
zf|YV+>QuHW6BEK=TDV%Qps$GubMJ@$4s(N@lfCJ2;weA3q4AeN!v%~Ck>WptJyf#w
zl5Bq74j)K@K+OeMa%&ZUAXuF7VUefC-jv3M>*T5QwWZPpO&CltP`2tYF-UXeMzjy&
z(BR4&K*>mp^J}HY)NK8Utul&I2Yu+nfnR33A9S^MR4CHzyScbJAD{R$ncv*L{tRv&
zB~Bh_zIy|b1F8!D;%!cc{Ib}wx<8D@3w7D2orzD?w2PN|qrA9pS!KZMQ7=Euv*&yQ
zWkv2h{l$mk*1W@)@@voH@=XPx$_SFi4IhV#TEe7>8K8IC&FkFTjhZU3p1T64S*Vt{
zjhm2;W(D20Oye}M&xD;^G;INCA18)F62nvdy`WtRwV?0xQSNIF-g5-1A6y@Z$yhC&
zS#8O`5#=%O2N&ug<U>Mt>Ujr*_>dGR)&Yhj_L)0_e{x^pv#kJqk#Ta;p$!FIU}9`_
z0=2j`u*+9QtBbQqPD`4I>5c}nWJ3ZVrd(Cg)OQtG5qkPoMMtA%$unw-zwk2x()aRI
zzaf8nyk!ebeN8#*CS2hF`#t8#4MxS5rpY=`id`9;0;l122MTOCLXDb!9DiJly-{(M
zX1UqDrG=S(8##&bQrLOct=7ai@09bdNN@GGyT$6Xczs=Kt7x$kLY{cK)SA5s0b1g#
zEN^q{Wuv0jr16|}c@($i4=#ItQ;+@o{ZXFF;c_0{x{f*PYdS3!*Fsk#voSGoHxpG?
zx_)yNaAygcvq$H*ssLLdm{&o$GkW5FQC=tBpL{~I>MaoKT20EvTxGq4Nz`a;ZNP{@
ze3GueQT?(LLZfs?YNd%vNR0yt{ID1o6wD;=Djzhj8=b4LdF<TRQ<CuDgx4LvETG2w
zJ&Zgyu2<MVH8LTA5HsD=3S(|~ewM^dStdoPzjd{79X6G%(wwMU*8uGZ)K%%|fGm?R
zOQ1@Tm<VE|WnK=Rj*~Zo`~^i9hhGOfL5`X$dP!p;YDs8FB9%G~jy|W(BJ^@Hd>3{*
z>f~h63mJbM8E2m%+L&Q1b(2<oEgOGzO|Mxad%+gxSyOV9q`4%k6WE^e>PB*IZ_EfB
zL7ceiRRHIi>WaCEZ{?15kcl2CWK7Jh9}0cuSiHdwYGCYgk9&dc`o%E}XcO|Le=F6i
zyRk9ep8{R9GiGG+r@6k?P<&TVcj1x<{r=AJ-iapy&BFz^I0^f2ZnO9zGrjp$r-myY
zqo{1h22~<o)*F+BL#YhHVD$zV5Y}+S(JOBd<8^+~B#9e{DtBB07Zj1S0qn;FL8%+H
zg3c2FeLkn$2U)BSm!O~QomUbO>KM_Q4|Mv@8ty$)|9HBQJB7r*U|kSa*}Yku@L`X~
z*Kh^Scu7!zXJ|mKMaSq!BJ}`H(C_%n4tk+4<%r`*`K{2I`(IN}bG4mA8d`yvjMG*i
zN}371Nj8J>Yv3a(MDdc1y00ykB0dxaECtRGFb&s&S((5tnGn~G;Fdh)QI@7xJ!C7~
zBp1LXE#WL&<lSXb<C=dvt#=SlWu-2qoNQY1ycmP@4TNwwZC&CQ1o;cOWPJx+$0o{e
zTI%N~;Gxf7D;s|?F<~C0Lx6suHyyd)4JPJ=q5@c-$fvu?R1NPjpI&HQ@6Dd)7k(Vn
z#VePHoK20bVTA`4<P2UfJYPe$n6D>nsvK3%U>#aTprgsSXqxVrwh=hy*Bw?jdPlqR
z@r0#pa9W5j#)1IHx)TYCAoK1|eT}dqKw{{fwOkFuTExi(9z-1=A98jqw_X|sI()3s
zG@WuQ(pi;~x-Wy}kX&TpMWRO+S}?dqx23{qt@vS(%?&ssu2?WQT40)t&KYN`h2${*
znpWTQeQf6YOZoR*kr`}Hm`NBlo9>aZS>fJ!reR3TU3b!WFi7&8swtP8i?WL0AB}gJ
z&qus)te9K>91}|-_^)@iE+R}*<eUP@1Rkp7Hks{D(W7@yeShA&=%X$|cQ$8X2#0kF
zH8BsiIbNq|Z04p79W?8+ur*FRp$&#+h)?YjD=lD_Xh=`6ms!QW^<P!<^y@bBT6WM=
zvx`h`g?KtVgi~IqZ~6l(pl_(*P3FV5f3%$DX|=sU9sU%3g360FzZ^9mcjd|b=By{{
z5(TachX$s;8>$2oQoLV<^hXW$YL-792L%Sn{G%mMN?g;Uk!tPSiAr+KO2SxPyg*gu
zMA4u7J&o3s#^#IfsGALavx7Y*MDmxs^5GQ5`!E=~h7Do(ijN;D)2+kQ*Rk5@*Nwl!
zSA9B2MzYI;DxZWC>O834hC$XJ<W{HceG2X57~Y9Av;9o(Ut4bVemXc>b&jRkWTS*w
z>&GX4-h%+ArJ=B@TYlDiiqh~j#;;y@N1KQ4&(wr!=_bB+p&XR#cUychxZ!A~<}2Rf
znzP6h^V|F4Pb9+hTSe=fqGY2(L$deH@;pY1$6Xj;<Le`2WhGb6GV7<GSZjO^yxUt&
zNvf`!5v_cJ;HTJ0%}Hq0bQB%TO!m)romOmnh&GK78N4iav_jR5k~~&-Izsrb8kwqB
zw?Y?=JEEO0VH;}AGy-E6bJL&hpc^`eLX`Gz$#k~2YO~Izxjm;BW<gzoE!Mrmgz?Zg
zu*JBqZ!(S~m33X3=R8i1sGK?@x=LF%ZR~5$8B`w;$+a_F4A*U;n@M7A4SoHO$P`tc
zu3=7?vm7-mY=?yDa9KfBh_&HO`X0n5L~fv&RciX^XrZaky&x-S;V<(c$Ck&%M)!iq
zjQsuMcg=c(`X`qgcb5ZeR*{@8jHcR^*)mmU;^R6?H^0jyljl<0G<pH4c}*!+mFsyt
zjuomkQgJr5ddY$N(o)r)nlL9s>@0mtUY$STnr=J_LL=QHyJ^qOIgY5fZ?j}hZm##!
z(Yl->MbG{$lLfovFSyS%R2jB8_(psB9pPHIn$Z_NK|P>1F;!DK_u)^3O7E=oXIMR`
z|NUJsf4yydGD!I(7C*^JTq{9*s2rV(w>{{~F@r9I4(2UW>io<O)DfI{HnQfLfwlM8
z0^rleVBRY@)H&s0o}8%?T#&!MoZM7HrGcBLm<K2h|I`8y17K&N1gCxE6Ye#(Uv#Q<
zrrah&tDCtU;W6xO=*#gZPwQ0O$Yl?gKj!2{qG9zpC0?pme2cSj@@9(pxNLB8f0A#i
z!c*)YNgb2A)iccYxbb^c=6Z>WTz@OVEbToL8PcU&kkvMyB{aQ$=WHBjf8M93)A`d&
zt=qh2e4SlFOEkGUIQ&a=JHxt=-FHvtwI+tL({VMwsU}GvCk}d{p3ypZow43NAD^Yw
z9R#wkuwr$4tD%UTle)cyrm15(ug|fhvsZ;`=Lb|q+P3SjWxc;*PGFiGR!j&P&qXhN
z&&FIK?Mt-hhEP&+Yg70SBMsNeSZ#N<4<FvNkK;74K$2rDUhlLN81jm>l-)+p3fudI
zT)d%owc-)S3g)+`|3M(cZ-tFoFI{snmnt1TpBHqYm=G;?wPg|@eCx4)Ms3J;?3fKh
zTN>W0wvcn8t4vn;WX~YgtQ^_j-AQJ6qv%`x1$JHIk*k0I`P4CG2mN)<`V(lQ)-*X4
zv@=6<5>B?4T#-nm{@KfnG4cI`7wv%Qwh;}k?QZY7`vC?Z2l4OM^wJd^u*Ry*oR1`_
z40u`&tGz~2%SI3FuJ<Olj@4Z-=P>c2&&PwWkQB&R(DzmVE6(3lj4+f%5kN?_nUX>$
z?(~S~NS>J#@t97>m*Izwx8%Do&$F1>_4e;{D{^Nn_j>;9=LyeF$$VwW!Y$~WdBc>*
z)WESB(GDLIMxsCGVOnx=;<fAoj{1b-{<=-XC)e+~xgSK}xmaP<1m7sF`I=+zMl8-S
zpJR0_E;?r}bY&UFnELt!crvp$aogAhb76J82~!2GlAOO29CI^}2wc_R@e*2LHpc6n
zZopAa@#=XVeSFwOF|nD=lmwbEdsDu2=-Z)dy?Xsq!Sr=KI&5}=ELZdeJz?Cd@zU+<
z=5+P_-ypnoDmc){diZ-YY<tb&z(`a&?JvB{P8^j9h2>0rkIvS0dpcqhRIi4ltyF6`
zPu@0*(=0W9H`gCm%<P1)9{mON`3;}#&L~p?(`zaNlD*Wk<-5>(*V$hNQYM}Z7c959
z7i5o+hXnlE`ki3h$Dxwtx)%B&RM3r?ncYS{6&yE}lO1U3Qp;~|Y7n%&?A(;~UBL~K
zZcDlO$&Gc9DSJlWtrRU)Hy>P?i)<BfFb*G(9N)~jvfg1xpK8sfR3<NN(*c6@QS@J{
zlwY*nj8G#oBu!ldZrtJdD0VssqBv^Ry$Wgg_0F`;*m+WVn!O>z)p}ERv34(}pwgby
z>}cfGf%Iki<6Pmo+jnV;7>}rapXbG!^EWN*=uE0fvX3hnVB9g^TOlGHDI@r{Ipk&p
zyl>i~aAW8&!@t@6Kn2n|({cLR2;LWcDE`z?P5n;7;O&jS{QZpLPtR>X4If2F%7KZp
zll{OS-{S6?WlQ%?FFDV34iYRoIv4=iY(Qgd^#h)Xe+T2=8^5qaKed!F-oHAhJ3Nh@
zc^1gZ3dN4%ilhEMPjdNc#Q#-KWPGEnuDed}-B%C@4m}}*3^hWh4);ubk64ddiCS)G
zx2Vpf=$+3E%3ZI!HIdnPY{q`QCOu5z=H&s6^Fy*yISGGEWwJ!(PQE~P@9@!yVCsAQ
zT-nTZlfpw(k2Pt%fsY;O3bbI{0+C%SaX~J%8KQ?er?KcH^u<kei-%w4N=vN!v$V!X
z623^S#E;qLx1WeIJ2dQ?dyan;GqDbIklZ*9!B=`Y(bCJ?BSltsIjTBK-}R|x(pR?+
zYReP(Q;VVXn69e-7_|%m`+4+jlz2uxO&@`K?QP(Dj$}NLm8I|nKH`89f(VAbwj>sF
z2^EK|98WmugAB4AX@M&>_aVgp!ZrxE#G`2BGyId7XpqTXWJkhrux)<Z4tgf=01hEY
zt;2A-4CjlqCs0%Hvtu_9pVXsfzP4AfyiV=Tg^Rx3ObnQtI{vYal9!*Z)SE}E!XOK5
z&2#%Q{e?TSOf?S3j(_y`I~<edt5BHlCHlI9+%l(LP=Bo#c2oO~H*4l*WAFSv4!_Z;
zP@_SFf9FGiIBur)z1lZ>|L1bcpnAJBYODLsp9*bA`uy#t45E4TN~Aw0G~oO3mZSr`
zVBYQBBsXJv2hN!0qr2O%+TNt1#%fnt8kMb0)Ugqp6$kCQ-eOBKPQrRa4Z2{aw&tP>
z$5U|mvaE9|g@9C-xW;I0C(~uuK$6@ma*dD7T6<}PgD(8b6>%{pTJYS$18C|f2-6yW
zV)5kW({HPwuHO7%vAY3~UP9onty$%P1-v47ho?V|9<(0gp&DwBkqD{jomL(X(mgkJ
zd9;hwo-R5;M0dCA?btURX6tqX2I<0OLS@#bfQB>kXTz(OAwUo=Oa;hrs5cq4LkU?c
zM^w3XXo+?r2F9gYEA%h<9!$uWhG5_RL8j#Hr9bY)%Wi5Co7|^f?+h|Y{16(#gQFDI
zI)EpO?&ln;>s9CBRQEg{f6!LWgnL@W;a!Lsv<EfnckJ=2T<5AY#O|L^4!oqF+T)lE
zg_FAq`(WTfKT~qY61bJ!bAZDmUVPhnjCahX@OhXLQO`tcw*xIKXmFcy120DCH_#nL
z@F^esasEm9HLsPA&*jGtzcfbuIC_(C<;Q_Q6~q6je;(2J!bN`^p!k2)$(s}1`@$1%
zUxg@!FyIn=c50UP18`~lHA}|YvntF1Nrwdiwz6kk7P{VZK!y^iR-xP{jdEGswD|$&
z6-JtX@EMnXL7lEY4iNosO>Ijk{x{e6ztG9xsd>Hx{uVh6#QesEvCeif``Q-HISB{6
zNNqLZc37ld#I^9?$tvk4BjFAs1`SBI5t*F;(;(`r1I=89hgZqMxAaUIy>ZQVeT}$#
zl&^8PWUE~Lzu+fHtai5JJX8Z{oFe8y8)t~>(DfwhB;rTDNJXf2_S0(!mgpvQv~4Q&
z1Gsq$xmC5_2Osb>9-V^1>QNSqRe)f^p?X8ZnnZVSH2Ku0Ei{jR=($r7YG=r;UYDZo
zsUD!fgs};zuS#H>cZ{c&qReRT{y{4p65xtwFR<LwYg3VEr{lG1;Cr`savi8KJ=(AO
z0}eY;bn)FX`!1xTwIU@OVr=+#MIc<fj0>w-V%vd-YGpt3BxE)YKGY&<-)o;(EO9|k
zT_)s@6}GVKf&E-cC=0`<6X_UpcJ2``&dY2{4f`^;Io$dve1ruCcPs_mLy_is+1zF~
z;&}*bJP`9mpj*IMaXy(rtds;X?j#u0GseS1j9l&w+UFkn4}eoB#sV}niQPC@Ns&>I
zqtV2ec~spAVhQ&rih2>^&1pF53h1r(_n9C=MjG%R*iGW#>1cT~TE~S;XXs~Oa6G|;
z9U~i-|MaW1HKt8K-rnj)u9RGe5i|mYogQVvB@4f3K?;F}dahSnD)x$cyu20K_N;ui
z7lBwL!0L!EoD+Dxy5Qu_*bB`PtOPvPt>E;klv6OY3d%2Y43cCPMnAh_*WU!)yqJs<
zB0d2}Pk-_A0_2>&2Ux``?GyEB$ewqU6+XqsxAcMwz)-z)CQP%(SpuRS9=)p`Ki~xi
zb|Rc+`XbP5dt8b%#zkHNdB}^<59H<37V_ee->X^wc(#$B;34g<)szfK(MszSTo!-g
zQ_j?E(#jnU`e;>=H<+gR13c&>w8&~`5sBa-0(Aio%#c+u_kv(xMRJ)3tbE+q0#@Q0
z4rqEeTG3}EIEI19p9nn~ffsgS#cugQMq2Y}8eiEWy_o=oo-!K+5B&PAa4pl*y*1<g
z=1oYy^t3D=pC7E>=;9BeR&vaTgk^u@A(f4DXY|J9g6%C=>JAfW+Xw5)Z!y_(nxA}8
z)dg8;U0GPR;6jbynHDpl@586<3xci-=6_v_{n5XE#TgomU~O#UQ%kwwQD1yl$#5wq
zg6;Hi@owKaTuk~lKI3<AmIa08^Z@Gn+*ok{N5xsVA_C5QId3nQVWqdOBO&a3H|K#l
zTM<;8)4<$@;8Jf>V{jSSm7{47mk8JXKInxU@KgkKW2x#|E1@zWmq-lZ2f&&))RCz$
zyF&Ncr6o5Sd&*`b9tZ!}z)-iqF4(yV3?sEh3ZJU+c$f$y$|a7&qP6-K>?EMuF0P5-
zrdg;N_yG2|=@M9rj`=+Z&Tsa{i3n|X7#o@06<M0cv^XO@Q8vQL9$Jqj8v`>dj%F&s
z^sE0*d)FD(RMu{zD2@fVBcBRN89oDuf`A~sjG{t-zz9l_sx&baDH3X6WE2aaa}tmq
zl_sHgDFGZ5CIN}kNeEF1A|)Wf5JL#LJ38Nep81~V{<+WncW-{f$v%7UbN0K|yVgot
zoWp(KhU>DOI7}+gz@g8ABf<aG^PN+(PJ*ey#{v--5}VF)lQ*ujXWW{PUOw1iZ>LXc
z-;Z}UZn`&vu%M29XG1cuZ8kHPrSHTMvo73h_WU^gVLvc$C1tOaq&5|XVc7$s#!i<(
z5At&dabExGbOW`(b<^mHrz+YJ$~9^>ueE204VtS(_u<mU_G2gGej9h5*0`vSRv2uu
z`+Pj(n4?}hO?5_l9D+7B!$&^WWnM8=Q=Xe}GHkk)1wd*W7W6OY;WWp+!qO6TkJ?@t
zpTwqvan<{;hz7wX<2b)2Qcv?@$h#MSA<JbMjHAGl)8>`D#!;Vq1?+aL<a`=XopW#H
z`xw{7XD$t<j&oE0gL`e{!B~@0aGZ4eBVZQ}Ylb^t2$l*_8g=#`+qQa*T&wZ&f@-w$
zQ5tq5>KsjL8C|}~y{hB{ietCYciWRDv_o!k+X)PhLu<VABeO{bKIpP^;&Ele)`!pq
z_Z&K(O%Q13)2d#xeOFixp7-4|A^65=vcs<6#o%95%bN8?%!+(wWc+0+vSc9qCc3O0
z^;<3e0w?a;?pm;F<DfkvF!tLI>VvLD8PMgvJhE&j!FTuM7(Sz{#CkBM!p}jk^P}2S
zTL=;S!{wX3Diel}g|4oGgTy%JX^-*83Hk4cdffqqQ>E90sVm*?W1#=Q1QLY0L^8!U
zu<V`~*2J_g;Dn}1jC*&jqC02eQ|`zXSj~V&@PE{TH&hS&`&QhxJVwAE13r6taOU#=
zVjcdCX_)>y)4)sN4H^+u^;07r()?roh|U6;PCRkeg9@s7V!w?3%}O<MT5<1(d%C&5
zCPa?(dV<QyHUqH5HBO?XJI`qgO<p6SKBu?s9Cg_Hr35GY*v6C5B49@btRF8kZ|&q}
z%_7OI&uymT2_n`k?p*Sk<(ZpkQUM~Q|Elne0pXf(igZgHR<lNR2?gD)YmAC{L8jZM
zkv63X`(A_De~0<xe#WKzR3b%Y)+5~UqGHpFgXOD3xHN92+{j~l;<jE1)@?DEmWQac
zYG8dJOaZO8JYl^vpxyo`@rYmMLMPm?u{FVlyhw!`Hrsa|axnXd2d?&Mg1(dS^?lP7
z8CVB1*-<CMC}g4L7zq*_Z0Pj6*m=eK7^qensITENRiuiH^HyXr*aH1g`8qh7qOABS
z7df2@)A2is+p6YQ5Fu6Rp!1w~;;}FzUmNgjEsuul(-SX?E{;S*0c~ITb(f2sO<+3a
zFs^M+z=Q&UD>K2kUhqK{=6&H&QUCm84)YBzyOAODCdv_VzQ{=Qe;J_x=UJ6*#vwXJ
zBH}Fp7t*s-Y3!8?-?gK~&~NRtsl(_UdL}cVT;{=xCgm7^j-d18r-(Bb6(cpa!usL$
zz~Fe5M!{}e<_IiLd{vyPwnE>%t*F8y-<dT!?iZ7^tQ@nN<bruq#%QCg1kZ*1gbu?`
z7k+iW*hvTYqQTr6k=}f9^K#mUDJa}jqcS2MnW;IZ^`{tNy*PNsc34+W(_y-NoTgp)
z+oLwb?l0;_%F1ifqErm6VcuNFl7X)k&68goWYRP&oP?w8C-!I{B&`rz$Et%dsFx9w
z|MX+gURAV@E|c>07z0((a_Qv*iT8h`Fcy?XT<qlrqrgF#D(<6rzA<t0=oR;BaF|u9
zk=AJ?>cA~&*rYZS3-01}RKjbM#uwwe=Q>n6i(Wt80?U#*P{iLF`CxxfxpYsxC~{yF
zU%bsFv`jispJTZBSZUg<BOo<{+&hH)bdvMlj^UWn03103b~J90`jeW6OwT!$J3{Z5
z5!`xoD>uN!c5i#1>0v?j{d}<yFI)EJZ68MM{3;<M7rX?jrm~lIle^ty?7`PurJc@E
zy|Tc5C+=ge+op0quFqI!eekl>r!Pda<gw98LC>yPb7K}O`}5pDmVSw`TZ<wvK?Bzs
zKVt!Fa_qHG>GM;<vOI0iL0A&+^Os1kU(7mgtpF&I)Py|oA{QrHPqAm0!N-c*3k=Qu
z=6*9y|8aQ~n8vO|Fa97{ddQ?BIv97~_o-EnP$wUK$cj|N^D9Nd;1(o8(uTc=%Wj!1
zuBdL)QGOC<N2V-&1G67K;CfjbO*gm0ygTIbm+r6VH)@H(g1Xil)#%LCIUwU@{u$|I
zY##fqUOSUpzwgs>9Rbtda1+2O<YXSRIDZ{L);&J4o^)Pp45U*EjK*C>LD^BTh<B}U
z`=#N~YnR)DHBz_0x|kcCaC570ZwLf+(dTaKG_N7q{dR&^Y9ur)Ndj0<gX1e+)wXMG
zPvZF4K$b}3A4ZG0Dls0wUlo2C0#G%t<qHl#)#3^r!E?2q!6p`B6GJ@(gDoVBhWxeZ
zl~H*`Py{qoBL6ba*np&3Du1T$I3j#3aK{!{1&~5~({BA8gL%iB{ZqoWdkPVv&-w{;
z2wsR_sy*a02w>{cFt7E^A1*L0WG9|^63B+LY?^H*OqNK2Xo~=tw>YBi?aLIbN#%^T
z@Smi5Hw9_f=%BrW|JyCLeda2LQKFFz`H5>HH_k$)j#0mQR<?ntFJc8~XM5)yw+`<F
z!|HF`{Y|2}I*WtfN7&^>{RFGAMq9Ddah<4pPmiEntL)iSc-(eaR-8ytAwxks>{W-M
zSaFD{JYT*@i&7%mdf@YKNHsMy0P4&Jn&L^`R0F^|qf!80CanOuaM(BfbC%a%@{+$#
z$KNmXzX3`Ad&oAN8Mvd%_IUslP?DecgWM3W)$%U@s`WAuvES{uqRW4&0%Y5DR|s$+
z&NpJWkEs%=TIFA=0GNwKsYq1%SA)H);=hMz|GSVo80>IgB~lYSP6dR!1VDHdo-6d~
zUwAKKZ#ybfiKM9-;|q|L9Pu<Q5y`#_4^T1GC%u+_@J*<Y)S-~eY*W*Tu+(7KvtQ!2
zt*9F-&ur$2(1&OpMqQK9!Rm0slO$P$r0koIstC+Dk4ia(Fw0~Xu0)6cEX+kGl*FER
z?hH3nBhjJ743B`B<B=ieM}Z67e|c2E=ukOte_K|>Nx{1M4Gj9Q_0{$hw!#0%h1yF3
z@+{m^!!*7V96#H{4=1t<97lw@q-Es^!w)k0rTtsYid$JR<*DC96iG@Q&{74BRvBI)
zMyTy*BG;C@`b&#T0xPMtV+kC9HRRf=gIY^Pf+$Fs5#=ARIL?dx`TMGNxr2a{c6qf!
zCCYv*dakp!Q@*!g;%JZTh&BRKJEJ{z0wWsc_{04r@?COYeW70TJlB@3SuV2>0&4kT
zb1d_1xeN*neez^ssAThC^nnK5Z#s{zmw69o7Cwf^N8|wwj$<0<rqk1Jv*Z0Z7!hKn
zuN{Yh4xf{o{tTaW@>#U13%LJ1I!EWvy%MPDak$r~7M3|S-hkxnsOQBGgYcyl_uE6s
z{=OipWf+d0o8#Ys<8$4gi-rdqR>)wML<YQ1cZ^br`EY5+x260!yc`~C8}4(?W^u_1
zXoQ+Q`42@PI*CKxD=}2-Ms97DvJP*CqwT`^I8H3E55yskBiSItU@@Mqona;V+yDRk
zPiEi<*ex)abgddG8IpU%bcW=zeceDbXS^!u6`~`D*$x-x`0^wF*p}r6oCbJ1!814`
z?}|EXwFtAxYRqC1aARb=Jt)=hj~+P=3}c~Ew&4J&443#lC_A%Ds}l$`48PW>^={R&
zpPyx@%-A5-@YY2ziQt?lP;JhiM}Q=tci(aY4s`+jtf|Tw*h1De&90u>P^h!4LwFeq
zP-*diD%B{wTo4q*d<gH%VI~&$UjdsVCgKcvFvG^r(fXfUpc-qqhQ1DAM@@`?pmD%v
zNN{AL7_pWUVgRe?0(lHW+T_*cxbmhkJA>m%wE%|Jgqb`gbn5EaiNTUa3|a`w($Ytg
zKoa8t@9F0W7lot4Pr+BDy`L{wZbmBaN>T!agkJjc1<v7;{oou7+S9zm+gvX@vqkGS
z(QsF?37Z{obhgt^fEn4+4wQK(Nohm7wt-Tl22HNG`HBGI`pzPjGU`HPz<CSwrzJk)
ztIHwzG;`ccb@_6q(-y!+Fw*TN+=Ih@ZaGRSLnvT<DQd5NNCKB{7^ZX@V;7&12fidq
z2qwYI0y2$i?AOaUq+{^5?aR$Ij#~XcU@mT;h95d_E|ff0s%#i-ba^Z6=Q?G-z}wD1
z6e~_yBp&f!-CA*Sr)ScfjPi@P1c+~|Y70^mLxu1MHtZSo#Fh2;f#Tb>Qoy~I6k;}s
zC`v7;Ig#vi^~B0}<|T2Efr8A>n$dI*HKkvNeY^*T7O9)CnQ(SwsSd{kdYFo1yAd7u
zrQKs*crfu10Frwfft1|iaGt}++F7iWgttkqXu~<yXEBeBaGUeL&DVgsN=y_-K!bvE
zfn@O*AbYdCb|aQN5`=|;+X0)n@CMkJKMjM3t)+he#blC)$>F}Scc#&;?_vG>Y;<9^
zz0W9}DbB2B)ro}gCtFf`_jo3yP16xm1<dETd`xJDZ!<2tbuONMj6{UuYaBE4@|kg{
z{c3;}zik7>H#stNND(C>n)A@4tgG4K=D-#`(x&5`1KtH-qiD%bn+O$LIW1;@F<M9k
zr@<<#9<h|i>;x=2xMfFBj?wHAs^LPP*e781e`jUZof~(A+D`&e)Ny3?lQtc{*EPF=
z>;fd_rHE$yia1!(RQ^U>Gl6jf(bS~)EyUx0^7#JW`5&#JrcIYOOE8$EwCFbiRDs%a
zVMx+9iKF1<)>JY{kw=)l9n3-r#$WeQcCCjA#JY@X14S8{IzAB)Y7j~GFri<s`{fn8
z7>Jxl)!bBmys&#TE<X4gzoUxdGxm|!fm`ClKic1ex-!X7qMl^oyU!&Y-=5SWN}$o@
zyo2*g_$8Zn;OP8oXZG$1l5-m*791G;+>S{ZO$ijrl_X$b-upygqr{Uw+jO8RMr2Uf
z&=)@04$B!gCxu4NFWZ9?jBCUG02dn16cX#NEHsG8Tp{*07sM=jv%V&XCEfS~6a<g&
zmR{tb;f6pNtwHJ@Gn4za#yKul;b);&@JHwlM$QQoTATFfP<s7vfF)#qp_y@vqy~0c
zxCLYbQgxEYxb$+J9%TNiW`=wMIWS>eipER$B~Qv4@br&vd}!Aqp`gW~fK-|?j}G^;
z0sgUNl^A<+>#Oe6RvkelWTHy)x-k&p10BPH2L*{(%B?%)S$&GTiV;~Xp5pi|hi9~_
z0k)pO`3lF3wY@~)Qkux@71RFF$i%3C3)7%5qd@U(I!io}Oi)jvCx|`H%4902)l-Bg
z{OY?<#tE8>dHgKh+#hPc7+*i1+|-?iU78LXPtseMK|gCsB>Tj~l5c?Esn8;mbg6#w
zgX!mE-kq58mMEvywuh-gnToa98Y(JgkW$<@ViwSFg9QqfF85aF*3gZGlW2w~9dkW7
zELJ)e6l$7%(z}T>Clh)mP*(WX_;!2YWkk!AL33n}Y-BpiwZJy|#lx)Im2Q)|fzOqd
zV@8-^(SF^09%+k!TeVI%QZ6%J%v1HBdHqK$rPB?fNXo9tS}0&u9?)eat^l3JDeI@0
z##t00@Fv=HLsEGrHpU`(b5^+}xSK!p<zNt>DyyG9VkTZLFsxX+RPZHY4$>>op|*+)
z4Bp2RexmF5^PQR%J?Wdq5<O*%$M}pBhbs_Q-d{GIuJF6bt-!g)bPuc+!f6hW74pM+
z@jiu86$G|2FjLF*X!qWBynQx8|Cvz3C?N!-p8Pn#pHkvJF%#BoqdUZ`?eb~Le&?|`
zIp$Wyjz^|}Ec=hkZ!&SRACSGz^+;PRmh6X6HC~+~p2pKJ-}d;_IPIJ|HO9UKkEX>A
zTwS1ou3=J(qbkg9Ib!3`oQmeUhS)FVjK`W8$FL@Pe%Z;la7CmaT?^XVgSw(~33{`7
z?dGJbJEx3p1EFky>Hx4IX4h@};gDPWTlWBvFe5$&S;x3bF0|O=z0SrX*rlc`2?nIM
zh_z2Io7HBti2>GZL5sxl>;uR|N%_ZNV{FKiS+hwTlZROAW8*zS2j_kiTe9d}Wjw5#
zS{>xnG)5?P3=W07Nqqy>!We3Qs<Tw-;GcNh)Ss^sa{&@Q8{m{4OFap?(YlE#Q%;;V
z6~DU=#f)b?ty&}#i*@|-aj5V_r&e+2`Q{u{K%N0Lb`P|YC>iY0hmAcRylPm;LWwNM
zAA5#|5(+ooDfKGq`c_Qoe|l6RjLk$KF1Vj>WHoPldHTjip3-a;m|fx#5o51_^}tG^
z550+U%T)bs2c3I)Wkjd+fa6}d=}$zwv+v9VLFyTG3ikr>=Ph-wj_G?}yu=!~8~VPV
z9Tao1@vYbR0b<m~jO+BAI=fGUytTZ~JZJ^vpna7$YM5VDoa+?lKuFikh_*P&%K7RS
zrvy%Mtki>+xerdA*o<(MMpn%rOdmDz^4_jBiiB|yKI41nvA361Q&LCx;sON=YG=*0
zxFGyA3MkfJ?d!Q@749*z_S#}VFiK$k?$hH;k=rO#nsq}g3*x^%TwAWDb^sbmL#=+n
z$vT!>AT+cPsb%9FXXS`g+vjFAMhtB+s;%)0<21$-eW!$V<zsO`u9_H5sr|RXO>7H2
zv2m$jI3h5YA{*=_GW2U5khI}Su&q&xl9vjbodx0oYDN1NXK1qY8Y48hsL|@P-rdy-
zf}kd!hR=GBNV&Y?;g<F`)MKb*p5LP5H%hY(c}A_)^$8>Om9GgPW8%(SBEMnoVrUfl
z0)9GJ#hqI{z-iwST$24Re{>my$u7;`W?`8GJA8dyh$83U;#hSWDqz@v8ovi3sYa*#
zZQ=EB7{y0oFe~W51&&n3n<e>+0+K}UrqE$3x|+F8=&<Y#qm9A`goJs9;@}#U&=H&(
zy=J9<KKzFD;4_H>$~@k#UaqbF)N*nEC4~|@UwP9a){N`sssgj0fVrBymaJYB6v;J4
zfHor<JDCO5TsrFP#9D5@7l9<}Vp5{)Cv=agA-Y-l;TENnE*a~!?Kes(*15YS+r)PS
zf|ttvUbtd%Sj8AB2BOH;v$<lhQQOW3O<Q0=$cZEBh)u&8iS?gmRe7h#;uh656WbGT
z`i$f~hkP`2@2-9%V1^zxl@skb>dzBhXIvVWB@Hq637D{M?L?Q6P>?UHe=wbwPr&@r
zZ3Zk@h_%XwFXyUHp+4IUfuY5Y70YwNT-Dy{EgqCBVxa<D<goF3&NUWP&mhbK`pFC_
z0INYE`m?zdlIug}+GlTXf{L3`iYgGiYUz9TN#j5albfQCs55zSVsUyHD^rh8aHx6>
z*7nhg!fMI67I9RtmvQ%pET)gvJ=fOEv3c$x*vCv|!0TZ=X{&+|3+v!<f1}ju&8*cL
zKPl=3O4dU2TCjO@*?hPES%tUP`;9Mf6m=IJ`HVT0mmT?aDr|X&(d+a)HZ}T*<C>z+
zMp{*e<fa<Emk>B%^lR4WJk_<%Qz4my(Xd}P6oWkzss4$Q*6gH<UlKz`F|WI0VvrFQ
zt%xa_FKe$pZ7Ba$f>mbXM(o2K7dg9cHxMl#;=xqjXTm04g365znO&eb_~#^=DF5DI
z>X&)hH2L~||8q@cq~$kjaPzrg#jKCHPmzO{JdABr1Twk_$8(1pCr2aZitswHByxMZ
z>{eJ#oRd9quD`(<y&h!E{&ezAy`6Xekcv^F=ZO8K?o~_!!Q9V^_Il1!3c;3==n=kF
z>g6J{i?eXsMvEnS7SjR)Z@)XB6E9CGO*7b3KRAp2G(0ed4D2ZTP=s8k&W)`3Xw6fe
zuuw4$lwvGqKvZF@gJ{$ooc_jrwY$HUgm`g`J1HxbBP%)wQ_*KeHhE%H_bEe+V~%h-
z*0PjxRxJI&!C5aSR*JHv!llN9msu<Fo@upNGdj|i+Vg_=>m!@D!NHZB=iW#>DoE7h
z@D4aa7n<d@rb^)WXQ0vgm~Q=mewuuvE{jR6Fj-|6nAQ>_QdiUF^XB7IB(BygU{WN@
zd)n1r>wTr>LGRieDXhXNJVro$9(69Q@O7^@>4<p>!o3e0EqYV?>>V?M1<8m){TunE
zxx=Q%NDnMO@#&H1hE7Weur#QLnm0N^?AYcyiaIfx2zJ3dpQ0QSYJJ)#FoALl9#>M4
z5OW0zXu3Y7slvNf+M(gMpE)!r_{1r}F-HPjJ8rMm4+UY1iO_~6q*}!Po&Q>m`+j#m
z?a>DQZ8zl#WRITb7r8SmOLOHwT(tc?;BKPIOj8Kw6H@?9(R&fU+X1?5sXRfv)(mU`
zU;NZiQy5*WYqEa!M&l4_?}HcrbvOB6B1G{oZ!ArRg7f_L+dW(FESnvN`+J+J^aYe^
zWXR`-U&5Q!n<b;wdLo8|9o%Epa#}sl>Q$wzUB#Zy#hBxuAcaW9OlpD>Y4%V$@58<i
zht|gBO;0aYSI!@b5nndwv~Y8P?jaTXiU-@2E*;W|rah19xm#EX=Jc6)N)vd9O&+PR
zOarn&-Fr+6xa?fQ`_%DsYh0hy6%qmCV7=EDGQ%?a5<(c2jw%V8ffK*i{WzsqwGvZp
zg)l1^d(0|#9KG%t^kz*}ZRc|0!NDb9M=E*|oeTi5p#;@5Bx5#Pd3r;Vj;quCvu`k{
zWCkr_9vHo;Vali*tS{I2+A^HkH*1Y1WwV0_(*O|T0C?1|LRy;z{pd}tJ>At+s!FHA
zq_>@YbLUb>^0pWIem;GE+pmXzkh}NTitzjnSta9S(hFR}sg2;RCyV+F;Wl{7N*X<T
zVjrV_qx+VZ)b7}^yaCKbF9KzD%y@*@nefcq05xy2<g{E~SVb9~QXIj~`*WV{yxMVc
zS=cxcE_fP<e{`sQIqXJhs~a(d9G<6liiY7lH-yc{I4|7C&SN-_V`)Kw=9Q9!fRRd!
zCbD)ow`BjPA^(~8uj&)8sVIkBP;4_(8X64!R1rI3yT>%h$x}g(#Ut+A&CRLPY%Z4y
zu0{$+##@50!8JvSdWM<JJWcwj`FDo$NpUd%%$qh&--T2axTNoVb@8@uv?T19@^@a|
qMQsZJ;Ghb&-U$SS|Cc`A+4zi|iAI0^Bq9@FFvMBAGgYU(Z~iBqedT%p

diff --git a/reference/plot-4.png b/reference/plot-4.png
index 2267ea9ec55c6ce61c301d92a02ec7c067a8b005..5ab0954d6357af85a996ea09d8d60e015c3c6180 100644
GIT binary patch
literal 40843
zcmeFZcUaQz|2Ax8+0@F)%G3sG?o!hnNLHq}bL7BLIm(@T;L1K_(}9D~)CTTB?i@&E
z<-k#zpyDVOA#Md!1n-MJ-|z1}?!TVrc>a8jn<EiH-(2t4IA7;^UT=D0ZmPd;_wn6)
ze0=-h23IZk__l}f@ol@ka|d{alKy4^eA{u`NdGGM4sL5#8e+h=UH1&^0{QsF;(1?N
z5+@hk`1nrp!LRCCg}s^?4u2)g;Iu4;sv$p|c=jqzVCU)G?QREzto9cM6!aCv+8>_O
z_t~E7Sy*G$NPkg#q-3kO`5Wt!yNj2s6!rMG90va;%nxbU90^%wk8Ab*b4~>=mEwwy
zf=VQ6qdGfSF9$I5keo;=JMHh1{_oxYjQ}qKMKv<0_7mcM6BQQydp4!{_{`lVsr6gI
zD<5^_oh|M+vrXqug|5Q3@Wsl?DUlEVH)^X_VnzP*xajQG#{WDt*E{fQ`@fH4WuL-H
z;9+bB4MXQO%FWShyg#v$yamsaWF!SOVsD@_Z0G%wt8{zNsHUWqLaZcd6k#DxHHY7^
zcMDDrdXG&?+tf!*!6Q1`VW@A+i@V^OdOc|<(-bSqp3CrY$rmYAosuRt@CT4A*}^jH
zVN@PG!oKIN>U3ZdRtJ?(DQ@D%WZA=2Bs-H-?RpYDQj<N>d~(*W>rZ`vUGF)MN=Uad
z>XCv=7(`h1$e~DXbxxQgC@Zrm2bhI>Lt?6iw5ZXbbB`}(eBKhXNz6n|84M;rSa-LS
z>hAQeuKs(TuaDEDg$o|9h6Nc_JnurK=O)eXfa5LtAJP7X)t2aGPydi+BTJk3pe<^c
zk@Gq`1#&po+zjq1=b;-H=^`QQ7MC<|V}M0V<!2a8?8it5qd2fe$nrM5Jk{i7W@;P%
z))fDDM(Zz>w|ud+X&u#&NDgYijzQ?EeUgcx4kV#E?<*KA;$SM{tx>%loOGd=>aI3u
z|95fboqN%nC(V>~<0IkS*yK%7L&YT3UP+D?ikU*Q&M*#dv0uB8O8bN{&S0etZR`n0
zi8JdYYK*2)SC8oy&9GJbKE6?a(3Ie$Gu-RxC+CAY17t!S4tiWszVDE~qOMVrV;ZY|
z+T%sXrs@IM7N=TeKQnU@!LcXm<w-}iu1@3H|Hequg0}s{!R=y8t`T;5h;Nbbhr4RN
zDjd~76f$~-&IVG}+YiyhOykxcx<-iPH7F$*nVTlbvUM1uzr@mRLvKr91Q(bgGPMp;
z1#`JsMuU$#lC~}O>|3}7QLtXPzv?XzR_X8SUSIle>Gl0g2@r%lPp><Sza+JKAbr>O
z>Xe`~X5-hUOnojPxNWq1Je!{~cI5fW@<QMq26@+X=o9@x8fvh0C8R4Q=%umHjr?GB
zqoU;3C9kcRQPa{Nkxm(uWE!8}8*G-M8_P6_sf!Mh_)y{}5Jo`LengfSCpxejyHl(X
z?k`^mIV>d@)L+!a$L(DhLA{oTZ5i=?m5K57+QLi8r3=;9kOC)2?fl0NdYtxni4}H8
zC#TVZ{~Wo9kr$TVMdUXXM6IN@tRH|YXiuk{J*v?wt7PULNq)17l-O!~E;yk&IvdMW
z);&?n5V}{0c#?*;%pgw;ZBurhbLrFhQ!Wu_g<%z@M*Mo8KJ*};>GA>V{&dICQ;3*i
zV2Pj2)V4-c5W#4;@!OFuG`l8?hMF>l=gY1A)*A_EiwTdb(%liJ4>>E>$LCiA@>lbp
z{AC2}c`Lu~>}IjUQldeG?%e$sNbR2C`Rmy>=K|`CKPryg5%)Nas@KHQsO4N4#o*=X
zwwVi$Xyu9?s5(d3&b06x!$JW;{3A%eyl_9m;!2O>F4C^cMs?&~pUb!uN0O4|*l!b5
z-?w*8x;w`3TN|5&f1U?R_&-W0kiHmNZS2<)6gi0sy*hQoRh`|&pZlt3HWlf21$Wa`
z39TB6#A4=AdFA>UMh-nC_v~Vdi0d`)6Mc4DxQ*mnOy6&w6rX%Gb=_1^J~<E?GhV?B
zLo+0HzBkoVbh`@4nn+e`<(tp>_pSeX_9q{p>iTwpF^zVwYutQ{Emi)MNQF4c1<J8>
z4d+x$lZTL3y3&s&_H}lnr0V45QmtT5md5e(OI+DRRkII`n-BCeIASAmDE9Y*n~SYR
z%J?k=e>;+-?w~PoQit)*Jnv3P3d2zQJfdcJYKfb3Vni-I=nZi_Mkr4cg>@7sW(e3O
zpr7(Bw@=k!3Tuw=@wpxqaRn$nz&Z12>4-9PhkpC>&AMwAg&kimwS-~4X3FI;mog9w
z=E}kcb8n|~^cR{oZhf}LVMK{#Fut<Z?d7a3+lv^W|M)36>o30MZePYKlrYgwH%X<L
z*kKySmZA}uU(O}sigZQmu|<E$%0#W!y~Rs$9shWWx^^*E$A5I5f~N}qb8=hbfVR3y
zA89LJ?A|jU_wez_Hasy@<U3Ss-g6QzLFD)H(kvNQGc9o4D)OXc*>>te;{##b?DB5g
zsQIPnqMXG>re1c(#Tq9ebtmC2x4+A9+KiX9I}5Ycg1i7RQlFcDqe!n~Y^|Au*IP)P
zC0yzmM=7FqnX93WDM~VJ_aY~(U%f7AKbuK)&*K4J(k=e5Eqs^UY7rK9>PB^5wH7Kv
z_oZNV=^S>#%UCLS#kVNqMq;%bM{x2vi=GqjXQG00Zm1=GXpF(XrGDZDNWl6_Mc%tI
z*IY5DPQ)GGaYnQ;t^*bN>jL6cS7-Ym?@akuUxQIr6qn;FWuSSZ$5PqlSKgQ^hVsqD
zXVDhMWd=w))%GG^jM5?G+7Z7l|20e!J!(3hy!rcaN#E%UdnBXi3tU~4y&bMQ1kQfm
zxNY%)WY#3XQ^WG*&9z%H6KS)7D#AVre0;6vcr*32EJm7EtBmhHPUJtm!!W|YUEWOT
z&NmKz#AVnQ{&NzN=;kb)+@!oXC_+f5B~z)t5A(N-G;)PR3IdqVpBt=a5-YZlmL(k1
z8yMWQ4pu4>nm&3~g%o_hx-6<=5{Yd~uNNoohE&5(;T*Cub$R`MvU%qMIMbrDr&T`n
z$YY#h$%dW^DpFKKw5r$`muolYGMg<wkNEry!U(jhF`66yaN~y7q<Csb=7~L@C^D>Z
z)=7B2Yq?_K%U?^}K4pAZRzy&=oJX>Lwm{o+9DTwJHJ7a69_rOSGU)3OcO+SZoOObh
zT!wf$Ik7&p_bm^@kNqVIGe%8lHrB-Sz64G@?hG`YV?9@U3#K@K-bqfbHtM`Vq1h`y
z1H@?7`GfTomjR-ocBH|5tY}=Zsf8LmqVG2+1C{pyTjw~^eD^2ImYLpCp(sv_V`7Nx
zd}8=>3di*k)WF(JTiwzJK=Y*?e~C-l@C8(K;e@o5CvAzV9MAfOoCvHl?*4M+5WaMc
z51!c0A2zIwxhf|2ZZSa6Sj3ii(By<9yxP?_YZO8&`c-tJwDD}=kei(&X5<wau4(?G
zdudJi{wPs0>Wr{<XARq71U59u5fPrK?Q|J<qBu`ZUvY?we4t91<Y;3~R*5|qGMYY1
z6NYz2rlynzs-*Br0o)3{Wv9|;Hc}p`SSM6Q`^weI7RWxh=UJMemt%g*F~v2ZMT3;-
z@lX5|<zC5QEpd;om9z7FXw`?}9*-hYFMK~Ud=T@?%tw!fyl>3cm~VVjA%tTkov~b8
zG2dILGff_SSK=z}CLVsr(ANF(d)H}}#lf}1?fmt_HS@;sucUfC<>tdBM&@NUzbM_C
zw4ab#^?{anaW}W|p^hK~Xnk-ilF|B;)a8;jgshu{N1TaO)=Ar?8eTZ_sWr)XLE-Vu
z!&{u1&3>JOc)ZdNe<EJDbHT938C8;l5E=>-lEOI8jGHF9=?a83qeywS1epLozs9YN
z0~gg*hW`T0t;axEy~oL=>^fUF%yc>>ybzdqR`%Guk*2BpWo(iBY1&qJ;$;2lK8LIB
zA09gFtxihthnG~sdj#N9tUGmP|NL={!y+tfVUCjlIo?0oGErS=tOa4;qR(}hg1;qq
zna53Mh)yZTmIJKg7$NX_1NXSRtMqT{x;;2Za7xv%K1cRl0Nln%)3C=uf+o^7)HJKc
zlto#d^7sdP1eKSYG`A0~e+PT*NtB$2X<YD}#Zt<Cu6$u>htSz4+GlA8-C!RsUU9dm
z&JiwQrDAoIeO@@HtqmF1{C)eRoWC3ya_;I>4gE~1J_7UFMg>!T(yM*w;Kn=br1BNX
zMg<xaE@~m~Rg)IF2lH{ZTp1cDlwPM7@xb_|TXsh&DW`p<gd!59SULN`_1jNv-5w=K
zb@~7mM&u7nZ{tsxYMnt#1Y948>X*eVy3yPC51OT}!A>Zs_>-hC2=-`t-NQ}#kkxX`
zT+%LP9X$A8RSqOLZD4BDK-0uR6f?491i{PF?DV!htNZhDDcu<H)20XK#?`NelqRh_
z#ojqI^Th?Dsa`n%GWP%a)^GDLz>&v{to9`HEsv>qd-k)yPwe-N4mSTi$S<KSPXBpa
z@RkQo|6gyHs>y~H7)F?KOE8>#7c=`O{r5&=`(i_hvK%U?3Ht=qlwM`oqY3weufM~-
zgFFnlp%o*ZzUKTY`CWincR<}G>xERT1w43cM563Zu<Va_2!}yQ5<3cYHs($B9PVHV
zTDtHVRv)5}RAthWh{`jpzh?0O(vI42j!CQ}Im=cO)C@CZXo{Fwr3%s>xi!v_&7)bD
zqo&(uDy1bAP*r;FF^#8a6))Gr2F!Z)!zJt~RSrGFsN-%0L+`PssA~ohqlUGPJ=%2q
zH~7y19MX;HZ$zKZ3mB#Pws5b({fz1jEfmlJGgXPmpSj=L^No9U!x;`FB6<KOx2+)4
zvcA9jun;es<@$J^!Wm+l@+S2-e1g}&RvIkBr?!a!k}SQFiU@mmt$MeMFkHZfVsS~d
zj7R0$mdBLwqw!T|+?wt(It)!LD;@GiIs>fcPT47n6wD-`G}NzMlox&T#V3jL=Lnjl
zL+vttE0|+P&mJ%DN>;xA{wm{xoz&SW$v(Q@8{_>N*9TNe8O`t#Ix|dD*U|ece1h@r
z?UswuFCeA<aD*c5%ih$?j`P9EtUNX|Hf{4aX|!{qsXL|cP9c^l?lBy#eHNukvA>gx
z<v^z+pEGq}9FoGoa(FG4J{cvRTcL!oCC)9j3h@=a`ddflG80DigAsVssr3cokhMUX
zu^HUYP&Szc4=%uN#f)Rkdp;>ck@;;akY}M8)!YjCpBE16J&mS0Blfj#FN)JIrM763
z!VRZ<x8PbDFvV}{+gEn_o}vX}oIVA+Z7mE}-clhfiHFdRz@gepOM#pyhpDm$VyJcE
zO3hwGqP?>2(y6C4b&~<3X3HhP(c=}7H{<HRL|l<N8u8NjS6|b$jmuMm<~BVJ8mw1)
zjWQ%@Cowl&ROF(>FcQ0#T_gI%_us378LU6U3Zgs_jMmzA37694IILRROsxE47;}%L
zm>kUrGt#Y+Iw-XARhiA<$3*ox^_Yp%bM8P1CvFap^-dB`^yas|x^fH7GRhc7=~&B2
znxI#t!v!iq_r=OmtuP~d_qh26K5vaoj;oC-MVF-<SH}CDL3J%9>(o$f-ROr$4D*~!
zb!pzI>|5!??Xp@8thtNm$tMw~BX$)D_(3t^4-a4{gyvmKo=PgIahX;)0$Xk{FT~J1
zL|Lb5ss3DSW8=^Cx@y>InnnEN9hpH2iI%<rCk5bc?bt}oY!$sRc>c+al}~0uPPHzC
z^0zH|I7lxEb*$&J4%btvz|X+F|Dna~!1WHlVH7mS47HYg`t2W~ON$l*XjD*R^+p-L
z+qO$-x<XETu@FZuC=8<FlmW?-FTCYj^uQ2XYdlZEN#du^;D;%mSsncmX>cuixP3x<
zlpJw#YufNV`r7YTq|cOX%DTgosAy^7u%!y~5!e(qg5%=`MH{VOyzVBKT>5kerCvjx
z@F}9nS}OKvxA?(dp~}!J4`kI3Xs!15=?{9_E7A7QgX1A2rDPg@_(opn@}lzndrI+!
zMM^X~_~BzEh(-)*hb=C?b!Ewv?0_lH*o5>p9OWz0281tG^C`0<(t2uJlUOUAn(X`3
zxVtMv+4;~lkd$FXm4S}^n2)bZpLO^oh)VjPRGp@nB-bU}nZQi?X^c|zGswO)Wa9U$
zDK9T1*GUG}Fkc;_-qwiu-c7>#lv5n8xQ|tYKQ&biY%uo2dQW>pmEh+cuV8%ad^p2b
zk!E=ZwX&U5Fi&jrTK6K%Wdo6m+W-X$O-VyXA^pwZo9V}t!m>KhfwgVn^|sxCB~`<&
z2|pwxqx^D9MbUYt#vHs<bm5ynuF%EsFX?pbi;n)-oVJ<x!^&4&Aj=PkT+|MubzDbX
zjmZ>~Qe4IQ$GT2dDNU8`%B)5>K0TcEvV|7tBj<&f+4WwnZ74(Q%bD)08z+is-Ypzb
zg_H7ZZyIVOMWd$X?);N|LMRO-cLd!#X;*6%qd%|xea<tth~#vlgOTjJ+j`qfY~-p>
zqJ?2(XLh}(P@8$$#!YBTVy^w`yA7+(=qe+(gcsU+4~A&zna_twmE`x^)AYVXn5quY
zxG0_Epnp2v@5*o0C=l<?etqxq4*Jy8cD-%iqoSq`6knEF$dOigehA>D`J|)N@+bDY
zm#hf8`O;)|ygxDy?d2M$YAWo~sIa_!B?LWrpf1tt4mGCK`29zjS(|`t+JINsKgH1L
zgUOhE(1DG(Y}d|_sp1KpA05}~1iF+zWpA{|t&UGz44<bSK2H}<xjFoJ=z--tf`}wO
z@1v%MG`wo@sq$;qG3k+0^dNi8kKFbW{s~ux?mwf9?;L9PIl_vz?GaXFJZ|Mbt{IW4
zVekXdk|nM*^`X(KH`R6?2xYCHs_HKJcsEv9s&F#l{2LAkuy1@+<HijsTTukb>pUGu
zEfw8iZuhCp_KF;{8dA<!xoKJa-HW<EW&@6QU$92oh35uvUf_p05$Irx<kC~efm0P5
z_2OCZV-y9)yn3^6$LdhK$v1wv*$aw9y3G1J=jB7of&q^oJ$gFVyy~K@<`adHa5|$L
zntbSNc#b`7EM_MQQESzGhaE8)#4;+nqH5q?LVs+$a1=zjU@5&l@*~Hj16f{aA-((K
zwGwiCJO9xow{M549$c(+Yg%1FuZ<l+t;H?+d9B4kmYk(}i~HuvgHqo*e}wgnINuxI
zTEMxz)aaOJ<B`oMkXGUTt{z0xY->D#8SyJUlvPFDskdn(q&b0+VXh`I$L-+5ZgH2}
z!fwp5Ke^Ad&bTGulR82qivIYI{d}in_QQXT)XJX&#@&u(w+M;Ny9$XCy_F~3Gj9<2
z+h;gp>ANOos?u}B(ah_00z~YeqYcFBP@#tY02gG+!^2{9|A!qfAFyR2nx0pr`=FL*
z+iGQwV@2hAy#{n@L|dOj!*vCT%PDy&2L(11Ye{tqb5Tg`Zk+4Z`07K@vg7Sl`pw!)
z!Q)h0lRH|s6VZ>cp@858ntk~}(ge$y7?|}@!0alR3C#76W$X!nIp3MQFyxZuAP|N#
zUuoPKH%gyReHp9<XrQHQ*RYkF+(+cwx4{XxJ1sBWoVL(K4(;<6xL$@{f6Bdxx0nm{
z{`stJlwO7nsuN@1!bqgexP&w?%Zjs@XD|{9v&+yl@lIxlCgVMmmp<x!(mDcFR$V)F
zBU*G@yAViTE9S`4=<`qJcX^rJ9Xn!N^&mN?ZB6Y5;`UO4P!im|U<<OYSN>ZFH#a~~
ziewQqmO4J3uCd*G&*6RjoNI+`A+e!PUJ=5ouLtE|DPD4Rr{JM?yHBQYY$3u63&)Fo
zA-#ro=n$2xRL>nA?Ja;CJ4zAPF3$KU)ZR(1{VL8*Y!8na#G}WNzXx?op9p$fR^C$c
z_!W{cIN6nm+}xoTvv6-PC;TaMdhSSV2~fvsnCyFPts&vjJsVwyDnDJas3pN;(uXsA
z@iA9XZreZ2{u}gO{{Yy0cMS<6%c3whZ<hwT4YAYQU=*liH^a6?aHn1sD@kcFah0?G
zYOK1Nd3sq;8R096E1aUkT*MpSR36Y$tT^yX;rdETO|e*dsP#&Vgi@j{efWTRUAbrb
z3H9>Oqcf?;=Dv8veFv_lOCo2r;Zz7Q{4(LdAp0Vm(Gt5{8f1#k2Xv>84>#NZeS7m!
zM#+Jc95VGNU%|nn4@CHiYKf&(4Q1!J+b=4zaVVBTBtUEwM!l3e8_<;HTWmZp=`k<v
zRz8;!==Z|sX>^;>R7j_=+tzcVMN6Xzq0ioqbH7%w$kDr}n7>@FLO9k_Ml<H{oECX6
zIpGqn(~l?3x6@krLqgAL?zmkPA`=n$RiHMZDmy0q7;J!c@s$UZ>d~!qFC>agTxorN
z5nJ8j@EpdS`Q_~wugOT+HKQX(9if>Dm-M0Ps-2WwPH4V(XnRU{C7F35rs7f_wIC~`
z`XG^)1_P<H@|d=JL;auX&BjOk+@WmFtxrO=E*G+9-^U~SAu5dzd;RUt(!wz{OouwN
zbvGg0eu?L$^6Y`^NDm(rT?7*58pnw-37v72!PET;jm-(w9d(Ve?snTSYDm1Xxgz<g
zYeY6V?U?gwx$06y;-+i#uN6z*`^=47ug#~_xbL)kHtzOGLwbAFMQ2>J<pVivbN3GJ
zj-~AHeq|m0r!Y||hUS5>j8}IpEC|8Ghy7m8YPiFENe6%n^?H4`oaTx9y&o!7T${ce
zX-6{uOe)S(bk8?PrwX&5Jt9Bv?}eu0{h&F2$`d;0Of-JH(@A?s(J3`o4NI9RP4jE5
z3#H&JN_wR*;}d5w=VOtrD@Rg|yYoY<Sk&EGNv=ZMf8{;uC>;`ZeKdadMIluYqx1|>
zN^lv#-=9lj&x|(Qc52ztIqNc|s3Fjs`-eYpaWk=6+1bI%vs>w5wd>Xqw}5#CceJQh
zx`!WT**~uF0Ya;Un&UD;m+IXXUDNRe@ozI2xPR7`S#Q49$T>XAksyeLoV%0P0dW&M
zWc<CmyF8;Sq+i%<xD1~dLn%}az4|k?uJ6Ooh?y$!5Y9+BY4ixXsbc01a%<aF{6$Hc
zjNSuJU!mGdp~|0hYv&C{?YrX}<jroFlSgxvKMfsGZgEFq&L@Yqc{fAg3cV#>noDlJ
zw9SXuP{}N5s@JC*^g8pAO^Js5z{pEOes$$FauGBCxJ8GF%LfWZdrw|J_C<pIRXOxL
z^z|3vPn~FuYtcz-<%?0_EYq69Z5tPBtwvy^Jj+_w6L+D0*5_aqU&Mtm>(_VkRXpNT
z;<IvYA@cJ>sOS4a4A=7+gI<kVwZC3+K82%+OZ~x(VK0L3DtV<|)d@N2YjTi2l|j)-
zv)Hs4Cp9Q!of5BUT^XZE20qJm^<{Y<ugw;VWlS#y)^vyvb}8SlY<7z{+rr$6GETZU
zQb<}Z79@HzCp^8X?!?aQrLQ@ngHB<x5j`U*R|m#L43VY<!8yiBleGa7XTB?{*GRhx
z(bq<o+*zleWxeh)Whe4`xJ(u`TJ`))+qLSGj1;}e`o*<H3M`AK20iIWGyq+fr<k%U
zEI1t&ozNFl+pM!AYw#|D^^$y{L~~YJSYGaVVGgG*2L5+KP;{GIx0?EXLMSoUa*T0b
z?MZ==2=DoZdid11Q~}+u!~%0G&^OiN*{m0iGI0}gB;6y^ERCiyXgQZ7(3BW12D@(~
zkKD<RYv8kxA)7qx=>KNcx^YqpK0e8D394DuV7f#}2M({p-8W`KQ^Oi&yu#nUIn+~%
zINf5~t;^s~;G9UEKEIVOO%N#jf~MPq70yYjQ?`g55!oL8YRG#*wl;yW;dpSZA8#sX
zh|{z-4b@=zW}YzTmXCk`Cg48vF`I%eABW&iFNaTPV&3q15+ikM=^m_qqO=r!41Vz8
zY`%{O7Bn4Nc4~TiMKY3xD$6#0@126}6eK#=W}B5~Q(B+9tz$aEa!qd&U+gpQceW>l
z!0+T&x4<~^Q=F6%>MDYYcWuyydCc58l^0RsA^;mt+}FncI|of$41SDtMucbK{wOpT
zE+9+tD#g~G3L@Sc&dqR;sRvn};P(n16yzM5iFR^@O8luyj|nl`aL@L_Y%YEx(S!Yo
zI#0rf^|)^9>wO2pPyhE?fCi_YagrBK{3GTzOMFgdIc8RBK6^m)wo}84A7ZGW62@R@
zZFte7RI|?99yck=A(4`lx+6Ymb;T3=!dW+G{h&ybFE2g9QHqsLNY1acr~MKhFYoTV
zl%@|HuA+SV!N8%x_XiViy)32(n=RV93#g%JowpL>BbqAIb?t)pi#~s{uj<jEeP!QR
zvDL$OpgEGg!uRSrX2(O6Cf|3s-UO9;{DS$)(cnz0qD$^Ocfi+?9qf>WDN()nQ;+X-
zJIyoo0umUJc^y<4t?$D&bNG_k09bD}{^3maj1!dHm9pzxV<FTpxEgspBKHM)c4-4!
zjuh$+v2!{re3xObuS}`G)<aa@La!`k`N7{PqBj3Re$4ZAixJ%-dvW5yLSy#YHhSF)
zsy%n0`E8iVnAGgCFVBQZ{Lr*E8BE(TP9(aW#2|Bjt5BfA%dX$*U^YD>%3H4H`!~6y
z$wY{SW~5pxL#JjrOL~_krCgjjjqmN<KRgmszQ15IslAdSW;+a-m&i~q&3TI-$&$Lr
zXl`nz3TzK7;k#rCT;kYinmj!mZ7j3{H{zs@ppU$q)Ex9RU%3)ha$LC*Vf3Tzbz?{R
zz(`(^whPTVSnp}VCk;3<;Q_+(M{G9b-gaq3caE0)9(cXYkJooME`BH%*2}`;AG&_y
z6wCF#Q)AYwyep-W$A!PX_k#zEZW|P@`6YsS)W+Y=RiyenQBsfounQSbtTItjh%G14
zVP6y~k%y#Ie%vf;2h{NmW9Crf-nJ8=A-Hc}WhT55Ptp6315ZZ(9h;j5KM|cH1T@69
z8}2sPy<9>a*CsE`yV2M9F>P%_{p7Up0C74)NcleJj3gBMWi;PjZgAPEy^Epl+;f;j
z4{f}$*Ve%O1Q3RwK6V92NI*xRq~*>4@x1XP^fj4T&I5hTNvYdHKg{3!q`YYNP3zd;
zcT*-mKv%JZ^7PvyM<NXCG6}zI_2!?4TYTDA9sH6pqk7;RPftn8r>?!`UOGq@zgsH$
zBRi$qxO&8knra~R>u@qAvZYf?JiLERzhu3}V#R3ww{ptEe&QIiU)x84euTx%Js&QZ
za!j3MiZ~sJpjr!p*6N;(A`lPGTDC<Vcy?A(TQBdGj0e_OXnGyEI(yn?ibqgQ71I^h
zk)xL#O8zv>ouxXNGx;NxzF~!kE5Fz{<9m{C@qQ`k9sGI+FbJf2+j9@howUHmX?Lzl
zeYZNJIO|BN*fXpK=+JM?uo4xcA3j56U!XFx0pl?@|Ljlc#yn+O6id=>V{Tr%+G8HC
z-S7=7_V$ne0n|YL9fS421Rl-DRdd}j<EJ3Yn^5B^wcj|GrRTG=VQ)M9k*_-T?`Hbj
zSh}|+&6lcj(vA~aibiLXuv(=o;qBkdp0~MtF#b*&nTy0MvsB^ls#)Q-7-r?L`%F3#
zw{d`^`Q+QyV3kjX1U;$mp0)c<VZ4S@p8EPB^7qO^T}X(NDu+yGUrtuLMsI|7+2`Ns
zs0hLld|bI`s9QvMOG1u4B#;xPB;~l#|7TIhYK(dA*eN~MsAsND$<?N}EtDX*NeRpA
zY=q*~D%Lq8S}Ni+?G|R!T0t*y{C!6gK{0RWfa$T;y;K*W;vd=%D=gEx%5%>8i0Z)*
z#y#0E`;D&=o3`;mG*YL6qrp_<v^>pjcFpb_=6rn$BQ|Y*;K>bsP!F>2t{mdLA3FW1
zUX4v0%Q`>LQ!5WT(2I|oT}od`+b-`e;|@qFv45++3lHAApmS!P;|g<^8{BhlMAV<2
z?$PZ(S06sXuEG*soLZ1zu)*`xOD)BThw$4~NcyCuGbhsFQ^Z_+4nD4?`F8s>wcIJP
z&a`rH6dWir`O0xhia70bK(?z4WimG-FRx?&PE&f*X%()=Rb(QaErM1pPt;1Q_Z43Y
z7b}jgz4BCCsq{qpSEH59=dIyGv+XrGvwYtA=*f^vt-fZB;_4T%N~m3}$UbE4L80-J
zn2?CzxW?0{xf`k%#lJ9W9S^z<Qht++U^mRSj7a%UA~}9z@k8ZeXP4h)QPhI>d>GOc
zcl)Yytqq?af`7?CadOs^+xT#<kG%SQN?CDlDeP)S6Zt5fwj<1C)32eL#Z^Lk1U615
z6=`E6;?E4S^>2cZzBYVMc&TK3%0x)6Gei%014NW!nkO*GQQp!ptSnrzH-#-f<@CwA
z&A1{E-2straMPI}C<Gc6_ukvzcm5;diu=JzEw>0upQHgBircsLM$4%^Z_u|f6d!bZ
zq;BPdYvl=P19Mr*pGHLvi3R*tlk4<5u{7eVAeS^C!Xol-5FvOa;d_C{&CZqlL0_xQ
zzVxDWQq&=x(p5pq%>Od3`YoNV=CTG?u5I;AACRbYjZV6^+oDCwDKEeGI3@}YEQ*jv
zV7J}90oWO;$+RtXc2YYvuIDN2Zd>{Av~}h53u{Pk=F$PoGP0rCXOHCYo0YBSq7$uQ
zl;jTo<G8GjFZM)N=KK-NZ1iW@ZiSros+?K+Hx)&q%eKo;#24|OU4qkhT^sP}Rl{7G
zHpj#|R(w{5{?u<<SyHTAiqM}r-gnWLbFz#8x~V@G^{tJ6wAPMNZlCu8e;LU<%S09O
z;m9ucjl@xPOouzAl?bVi7cG8><8{%<#~oQ(xVEabNoDBLC|cu@AY)`EO6sE=My;#q
z227zBq51aDhhANBCoNJD?cqF{;^AzHUZz$A1=qA2<w-+9?qXFT!ZTMHRyI@pk0sFR
znU|lAc+UPjBN7W^3dIBmIv#kPQ8{n?CyoBp^&>@@asx&_%-d992J?sg{x%n`q8T6j
z;c^#LbPJYx7Zd0eRwlRADv)_`xsAC4Co6auAIdX<OHO^<qi)l7LKIDXJrk+thj5l-
z-MY-Ts(x*XxnV4%x9#=%T4Kk0Da_Gz-oY=O*xGn+`E5t};xqa5@PC-%a_@tW5Cy<1
zeEPnX_rW%e)s1{aw_K&IyC{9_4m`zG>VZA#>k{v8|NnTCePUiF7dtI|@X3j@h1bjI
z|DI>;E4JpL-9GKXl0_98U{9;h;tV{VT7U502(;FjkhbYePX4{%?(b7E|Fgk$>9F4a
z^CfnCO8ei3%nmwYa&k65_v9LRT~vtqbzeYmzQ26@wPx_Nb}D$`^7ZRKdQCD^>+nWs
zMUmkMda1t8(1-GqIwsGKC_FlR`0xw6N_Ug%^^9dpogQ*i6kD$O_rgC2KRlyg)h%8;
z;?IlU_rg9~nnC;ITO+qjJR%3b)=v~C2*x)HCumH)yuV1iOE0dO{@G>oO>;}y3rh9J
zCc!VTr%#`LQ}yVXAn8P{zpA_U`?I}MxPU)?=UefC%bDBwo&YMfRW)R$|H=_1r^rE>
z{8vj$$@=1TXF>+@Ofr`;)qFHJ5@R;TvvMMr+LUU&2Lf(}hllIh+1br9=wylWNajqS
zZ{1{iCZ)zl>$J{j@)>;{#Ely_D*Z;AsO(aN=43Mh9Hfl5%DIO5rsiQ%VL?G_aY4b(
z2KhY=3PxY#ocRW*!D2~osos!-19X+6K2ei;T7>*|Tj|%zi}gqPsb(ARN=izm)){mJ
zfxAvegViq5D1HQdHG-?_pcGf2U&B8z1?kPE8oHH<#<nMdbiDrE9PfMzE~K;i>*uPQ
zV?&78hX}?r6GV`@$r;^*R^9#amKZuWG~h?=%HlME!y0`{5JL`YP+u(van>2+Z~0K_
zt3b6AVZZL@bYfJfHaRiea1&UtQGR5YoRU)QHnlen<n5Py!yN?<zA42u-lcBAp2m3T
zHiXRP>77n)V!A9(b&4d2LnCa5>w^giS5Ln|fI#K>HLZOskN4eAes*&D`eExSW}`BB
z-=#?)3wE~lm%9krfdgDGMbt*)qS#EzZFCfOje0=@<R%01;)KRhdVY3<X9x&(t;mrh
z*LLsObH*f7Z8&_u4P6?(Hi;fxUFkK;32NUIidk(AgCAGD`yFRdir7DS2Kr1yDO&m9
zlNJ2hR3?lV?8xT|D(IwL6~o#l*pph^TeG#$kZGTUM%x@<hr;3Twb!~2nzGe=27ORg
z*RLmUe%vNh6>OB##W>v>;kwO7kPnj1+bxgo%v8rQe|>t;Eu)}dLbstGO<wNO^2-|)
z5)2)UV&NodMa5+i(CC4mg_fBH7H1C?9n}t7FodlMiD|A7L6*>6yy%LmdA|($xJ6*b
zP|aum<hDz0s<*#9ekW~~J)~!G67Tr**|XY2ap<}mY>PdPeyQRveap!UZf<UGM)1hZ
zbx>DcN3F7F2dfe58_V4Uy0lL{IW9p=%U3~0#;(DQn7$3Rxv_i&(iv#4lttG|VgOVW
zT=}J!7EE>w&AJHcpc0h-5cGA6M<SHj@3-;O4J7TMbL65P+Wf55`Fp=U;>OYQLv<?h
z@MHrBuBz%MIo!t9_9zWBxE6ROs2j?{uE<5~pPa89jW&DO{CgKjfAMTpB=0!PiM^AP
zlSqF1b|UeL`p~^A>}Da@#$d(;FD~?iU?R@Cm^5B$UtJ&a=lh$i8t;Lzi+LpWJi(cT
zCTvXB37ok1QEdD6?cF?x@EEM3EfAFm8x#9P)jpW+U*WRn$+IJP_8R!PQ40p!tUG?e
z^SRF0<1>#&LMT2yuSkhm8}788+za)=^blQq1Y@qdyF2EM6F!2K6U7|BXGuXK#-2!L
z#Dg^x(-r8a;p!t{<Fn-{R=nC*r_iOeG_J}{O3U?ewpd9f!nmuspp<kJ3cNlI)dhCf
zk0)rE8dQrvDcjc8?uN*D7UHx-Cb2!p8&!;|<t|i~xo>C21wHV-n#3aV9!W{b#8(0B
zGMpPFw%1?XMWUcmw~2@vZ@WcWeonOSyK67F=>RK-wt%zN-%rVG=i-;z<;->h`0yl`
zab8juz2*rwO6?s*2_5ryP}AN&3$AzOn`DxdKF;$Gw<JnzYQfkV1zz_Rl$4alYUKZB
z+n}1W7>Hl+3`BJ*r7;~)hDJuqb9mOs4e9K#v9AEf2>GvH-*f=@{PK#R#zdZx627XK
z65MGf`qFcl@8d3L*mXA!D6H+Ms+fj%KYwAzd)td=;w2cJ&y<QA8ymlyt>4KGpE?Kk
z1lf`P`t|GKMWUG|4ZDv?j|N!6?T+E9NS+XEh&B%h9Q4Rnc&QcYn?rVv;a~w=cA2R;
z?w`~@oxE{1Mf4(X*+SKxebeh{ayB6eQ88@h>^`)T^T@rmrAcXdy9(FOnE*lpW|jiG
zH1f%ExW<5RhY-DD8=Nl;;35-@63?~87Ky|sN;m+)P$`p)6-qw~obj`C1q5kwD${RH
z*>~uJ5R9|ZE8wze#>5`PH7>RPcpxC86GJX@+@v3F^61UW!!@l>$6gVFR&|%yRr)@j
z?X$Uly}U&YtkWEF@Cio?=05yS$`!1AwDQJ`&}&&4u<j&mW|=QeYM-{twOuBW963Du
zcf>5{nMoxEsE)!`YedfMzt!RM-|E1a`%eEX)aU*Nc(n`~c6xwV<2yVU_U-vGYPCo2
z)XKv>B2Kfa2W}O$T%FkrZcRExMW?0pJ-16|hGto@<_oUBo9cLZeq6*TU0!1nn__yr
zB64j>z@=AET>HcFTfJwda*B#0D<jBxsJL_XXg8#9pvH%?8$$b@!KMk73YlsVZY|r~
zwb6sjQ*&ZW*WxQqmTlj2M7{ve0}aVSFLId?p2R@ncNU2kW=lllM0|ZrW!G|hvW+YV
z(VPenq~dL3L<caqDb#Fa*(@lXp8!tkVmy2EI+-8p^M-ch*{k#2yDa2n6@DR8?Cm#b
zeJ-OQW~1Dr?-p}rARcZ3nhvd@09%_#iSZ<r3`D{sI1I8<p<U(FpSj_NoEY|OZLQP$
zoA+JJWTacfLWd&Y_SK%&Y^!MztF`DM<UGFgMw!Dv-Rsw{S9lZFgE8HQo*BV6jFL(b
zO0P5mr(W~$BKg{j<D8?J?%!YQN)I~End+=f#1L2`NSnbF{-~ukX&Z+qMjz_}U<wVZ
z6^{hP20ePPaDu|wv;EPGKAX{6*EZCahS2%B+VJJ6JrXe+i=xw{Qg&y1np`5iH@~~i
zG&pLunyd)MGN<M_n0oyno9lr8yxV+v-lc3bW|Kqq9&N(k0x15dg=sIU?Alsn0O?^Z
zGz;aNfrpNSQy=%kWx<j|EoIrVeM`dd&=@}Jwz_=vzSw0%9^-D{Dz}Mf79?h%XYEDj
zR4t<jH9C(&6w+$aLx7j!6yb3*OEZ{c^77oRKY!nPsIGE!k5c18JPL)X2BV@{scr(b
zXRLP>&oy!%O;1fNk<bd62}acV;?IGx$N@m=XM9I=V{R1CFb*DIjA+xw5>Z&OX?4tU
zmNgnS{$kw>L@gM#!Xrc^&{?T<X<{qo7GkP{xJzhN*vVP_ixV-md4URN6%;x})qRIP
zK_gaHiy?g_c7fv;$PSf5a^Rv=z5R@Z!01)H(+9XD!HTjBc#R+aSKOX!W*B9+1pu&N
z$#|b`9rjGMfJEfN=UGavy7qF1ia<l3LYmsSKVJJ{r=K{-#qvdhc^?n&IiP={{F_e}
z$n*1=o?K#e@r}~;uU%PMbmJTy{QL^7_rmQjJHhDi0j;>4$pV>((F&bw{Hl=XyfG${
zDOm`(6%)*c-T0=Xu5Tk@QyrMz%cy8Zu`@KLd7paZErK&R<dULez4shAen&q;-Dfa$
zvqPnOZ!#8?`^pdh@o$}v9Y+9T^-0uTYSmwy^d6{?-1s7Fwl@uH;~d3Eyz|Qcn-H@C
zWMZkftlqN^b0=G)QSaH2?nd@pLzKFA|3c1cdHd(z3uU0XhWm@Gi!IprE!%dK%ner4
zodsbV3;AlkLt*``$!8FPfGQ*k)x9w<xQtp_UhbV1o2-qL)}0aJ1AAziNhL)jQvP6<
z5qEI?_231VkHT!^G=P}p*$Ow}T!D4*jXKVVo`_>r2*5g)(9v@@C*rp6F$L%qLz;7&
zW3Bti$;u8kf@(jo@3`ttSJB=9LNJ{)4D}!Tf?%)EmRDC7$75nhc6StJhZ|U-A`bUH
zJvM-#$T(-hbrHv)ANIJV2iiB1poI>5K(VAaKWhFx*RvVn&BZPEor*tEaStp;=xa92
zw5QGqYbiva#^=x<ion(+DcOm~RNSv^Ai;>7L^}ku)dED~I)bqt8Pr!~opnUs*1W-`
zB>^!`HmTlcoa@W?>mTvPOMGhH{r3tW)pvi~PN8T5c_D+S3z&p<1Hw}+ofXt$1cu4F
zvruZ5Rwya^yvw)n7SOzw1orT}Lrdmk&i5KXgi|A2wqI|Ocp<9Jg`;?5;xvXK5k8T8
zMpjmK$?Ipq;<!q;cFIb8V~aR)W?{G?R0JH<^TtekhwWeXIgza2^&Ajfc#70)u#hua
z(UB|6)@vs<hA-y;%;2IR9J=$S=J^55T-ny82mKO!D0Bzlp4O$MX4P5fjcSH&wO5@t
zz1UJK=F@f&<AB|!j$ywajvBg$r2#x)#$0h(!*eNsz%y{K;~Fg1*|jz}CsBcY$5)ad
z`%YY3m~u&khO`3k$OOFp_8hP6P2YkGz%cw=Y=pvlKWgH>q9aF+_{M;hau3AN2`NEk
zBD9~)^J~AU5x*t>Y@n<i92|a>yR=|Xs&4IvT52xzsqN?M(Gzky$p;9zY&sUOD#*rd
z|HZE&F-UN?Y1soKmm+K~y0xcDfviAj4}^3sR=$0ETHEty0X<^nkALSHHHV<1<1?ew
zn46p1)HNE^&Kk$XaOfN0eSDq4N_kN2HSkV9QGI=dR=F}$+3n<9>pMKWNRL_hp&xJ9
z^Fv<(DxFq-251zD11ep~Ir?^VbhNY`?55u718kj!q(fq`06+{FlBG{O-vKDgsh^CQ
zF3gYSk`R6#plV7{rItl;^03F8EhobZ9Rv;*diq2a%{ETpN`;CXiEaqztid(rECm-B
zL3scE+`-)sWltv?i~s=Ts(-_d(h0Nw2%GK<qQvzR05!`{@gkK7@>pXbk11L>I5c_y
zxJZOlM%8hRx5il19jWpn`wo77xJMuEE<XS!>CfYuL4WKj?{w=>8<)F~3!UntCjtNm
z3Kz85|Aq0{47vfPYMF>rT$j>_s9)pt%_jC7y*_MlEP+Q*K7r~P>2`AWqX0;l*2o2g
z&mSA~<AKP|OS-zcg^=0)@-w+l!ZTDoEY$9Pe~r7-nZfuBW+0mlSXltPo?g}vp;0QK
zMY8wz_aBt7w@?^O1hRH+<IlUqGBBl=Q*)x%X-S}NIUyfox16E(6{|M^_>ZaMFe!+Z
zG6I03gK*F9ukX9~@u>qCYUZNWZrV9HIaz@(bKVz_Mt;!G<tZW;Um(aI{9VY|2L;5#
zeucng6%<NS4Dl8RT-W}B(=t-*o<-l_x)mk7%^4wK)sRlCY0|7-*3;7~t34Wj`3-*S
zt7zP24X_JlR#Li5%-OZz<O65Oj`cy9j2VTM|Au&Ca*{KDVpn`~vT2s4Pu2x5(kiI@
z?gAjI34h)`D>Dfi+2N00_%F7gUoSrk1{Iq#2(lo}qsp5gLRxPD?C0Sf{V7vNvHufR
z>ygA|ks|NFh%3A1M$#7q&zikBeqr4mNEv}rhq{WgQEeV?$l=)yh2TkgrDtD}nkl^m
zQ9Bn?yU5Eut~|RZ*?5g78Go<p1_F>Rlek2w^&`vz$rH&Fu1dxj<=h`t9=#a^0RAnd
zw&i212hLmzdZ``0^phtqj=^PRWCmp6V1Nc~To^I|%BTiGS)AvMuCG=-gP=khGJJ^u
z_sp-LfG`A~K+>X23Y5cQi(FSZ%hvfJ5uuvV8-=(JDD2I$Z8Z+H42&;TGR7y$eAZr(
z5-}Ja%8PSj<4txce|d}uz*Xc#YciP<1E7W?V*2Xh;sY?tG?_Ec(&*g~>mN^jVDwOl
zJZN`ryX=Ng%<(VPzpBYj$Ra=yrK4HHq54DN)T~nd=SLUoDD{{|r?9>=S<7eo=z2BF
zDOiB%GqC85)ls7!Uhn7Q>Zgkm2SGrpeTVBCW}SKgoWf#2|3_K2iSQ{u;ZrIq*|G1q
zcQUrek6gGy`6nkO1vJ`>oW&660XHIA3HJM$Qqx7-9tXlCK%mfPkcZ8;T6P`Q;jWHr
zqO5FfKlF7&cGFUw&CSj2ffKU~l%!ICp;ioc<DcGcGB`+M%qEw<&YCBf_RR2>H(KpQ
zzP?QDp4adjX@mn7H8@yknQx6FaO(jJsT?N~i8)40wN6lOr5T#RMMo6ugBl^u&R+nn
z#*<Jwf%a-q>nmp@0cCY}uFp-ZQ|Lqo5fcx8;eyZTjE#*cWUBk={2|OoiP~l}8Ip%}
z9R;vM)r<j8s$}oA+(D8+Us-N1si*5s!YDmPik{NNRRH`+3-o_H8jTiV%nU5Axp!tn
zsq>Ikk+89J0Qfn0sUQD@>Wa&;>!&(1{gSZ~A#*)gza}9_cU)Xt4`3Rp$S*tm74D8S
zu62W7=db`1V(WkoM!z_Eer!i=uu3?7p-6xKtXT#5neimGFPmo(lu8y}i5K+avPU<g
zn?16C2r3GfWf<wzlaKTD32$+-vP;xi|5L)FY@5I1B|Q0)ot>Pr!I}cdi(QSc?tR`R
z=Zu`a0Geg#9%0gtQlqf(NkHP2EL;Im6I9Xy1hY^Q7O1MA<k5hQ^id#R03#{&T;P>P
zD{$y$7&Ktd_;Ia^+_Hh;20JVwviSjwmvx>M0nazhs&N7|ojCVlJYk7P40&FPf6OL(
z6lNfWdvhgTkwY2f)*yKe>loO1p(UcTYIcgl8r|$uAB|iFn#6?lp)-&t$a!-$92GQI
zN9}rI20ROPnqkkQeWDIXifhGRI`vxiD5%>jJR<tzum>>rt%2Z~tsM@be75S{?l1O!
zvZ%EChL#dM`hPR6DKMt*7}m3Ek*qlpp1Jw;zJU1ZK&p(T(>{P#7?nGwn_$YBLTT8P
zNAk{18@jlazd7V`*f>P_?XR6+u6XUY$_6giv<)Ca31W(k{J{!gtH0wnDP@igO#mNU
zmZgCi`F(Vg%W~EzMYqu(+CY_ma6dRIfgyrnHda+tne&*TSj^*aAW4pw*;h~Z2TfBU
z1%IjYc_8M~Qd3hCftxnYqpmy0&bxQKJeL0|;3;mP8~0)C>0#7LpXjdf!v9_iVB;Jt
zub?nYZ#>T9^dRnpC9{}y%XpxZ`zQd(HlrN|0Q7(2d9x)Tp=Wp+))sZ``O))zg|9$x
z8{R=c6$jpsW$byo0h|}SG@M7!Hi4s8;Rd`^1Lax?@z5cEw4!}gLA>PvXeW(IXF_zo
zNw)S{ERUD@X;<VLp-F%Gipc{&wiHN!NexKGVix4W-S0QaUqzfZLg9d;{0!zfEyz!C
z+pA~G8vvKPv5^ns6gC5d3ccp70XS{{1>k1sOVR+h5F-KZ;oO~Zp*SI{tg1@Y4~#@f
z;7dfcGz)6YB$@{E+=%J#Z<@t6H>j}8R5UuC=U@p-n|k*EgrtPbk2pF2!h-Yr@cWU{
zSZ}rWz>*g{LpwYm@vqHEMJR8i&qDzDu-eYcXdd97`~hM|K@^|!oR829hGz0r@_nm`
ze@ki2i~hh9SOeAU+gb#kRSoRg%NI{%FSN_yRF@h|bQh5vvx&S+Ur#T;{3v5-gam=j
z;{C|xHJKxTJ`gw>YY?A&r{m?K74QSeF+e0qJ47yi&5uZ%r`j$yl(OT1>8P}8TJs#R
zL5^+PvDbDsUtHI5&tQ#D1D@CX@SagFv-a6AX&H$(s1=Xy7J`xYC`B(B<w56x(Pju=
zUmXV*FRpdR`1(1U0r6sf&b$A80+9c6__m))*1C>fd{$;Fz*ql{g{M>iA=zmU3@$V{
zdDVvLqGIMty}FVT`9?szdwEbg7{wZ<W|;AuQ83dSLH-7h62Nqpue$ju&Qj8&|NX6J
zmW9syCwU@zS<3X)huh=dUc@`ba2PQSz_@nl)dOI@$%^4F=MbKm)dI`u5f9BT_>WyB
z2jJ?aGT68MtRtBNcSaF}=qP;cNCf>e0C=uDkRpU9W`P~&TQ=0W_#f}|y9cT~EK30v
zIX?h2i4-$f<-y5nuarLeG<2PoPgv;En%`LeyhkZ=72FNE*!lY}=J9+i!F<FuT*F+w
zkW&OL_dY<h>7T$gqF#Pu4mq^j8u*u6i~tir7SkUIST$t^u>@i#B<lqsa%i6@wSVc*
z)rP73(qS7)IP&f5_5iK-fO?{zKHdG*^l|EL7@Oy)NQMpvlV6}#fDb)H;weO=9q?8|
z39DnzY8kX%>f+*f%O<y^vdi9c*tAIm)?%nhd3qCoM-rCD2y?TcNNxZ?zFA-@M}7o8
zf90u=a7~^K|C_q8fW+S$mnOIlF7s4p6X1>R0I^Gm!=a<l4dAMboaz4dLR86P=)+<L
z&jdiX{Zz60--%wL!Zz0=;XEHT;+s;#*i*SCpyk_t87bCHECO;ysNLkUab4ZrqsMkX
zJPo>Z^$lQ_%e=HrEKLG?1{BW;zkSg&<t>7gYA>5kpx@0jR)0OP%#hK1y!7nZGdbXw
zE|P)gN2LL+9_^Ap3)(Uhhi4A{;&oDxA&W`zgR#g2E`#Zkpy56Z><ogGl9FHO#S<ge
zI43;LRAVwVh5)7uA?DAUc%1|@78o>5+Caa2;@P0C#f?wF<eU`{3;I3=;25^HL{v%)
zmGuKQkY5y#BijI`bG$+2p(m)+`3@pc4hJkM76{X;Kw2(ZM-z~TQO#T^n4&NYa2S%n
zIS}lDcnStm{Vf*j>eHPK&2a`G-v=aU<G8C7AhrYAw?6;#=I?d~@TXu`fx8I!@Wq2q
zuq$UWMwjr|N*EvZ8y(1chZ@GfzbvkPHY2Ad#Mzr_Q)+K*iQ>5i!loC0w^$K74-v?l
z#&EaI^z`&8psnaQV7qUJBAJoCz&S*2X8{FS?GGF<A$ZTn``i2yvLJFdq!JFh>hC9S
zg=>yKSBd8Fg%;Eb&v=hpouq-?r6T>JSu;)Y9%+C8HBjfqu*Eam1Oy{LTz_}X8Bp;w
zDwT>B4`@BLM_}*Kg+IU#^YiI{|JzCIcF*CT)jKXRtYo4~^%)1BT-7u%L_YuA{^#`r
z!TNB3P5KJ<RezR%9qB8iJP*|4Y97x!o84Gj764A}`R{fC#SNef1)cE`!EDf+LZV<d
zhg?@C6k8-WOy~27n)*(fr&SOYwI&Dd<cI|TPvQj!Sk223W%O+i#)C$a+UEJy%0&2>
z=L4_2*-yr+eh0$o`)utf_c_E7Ia@9BLI~YjjB6TP0Ir=6r7n;v6B)ZLwp}g@935KW
z0qn`FrKP2i#N!vHXTfGyKiPF!>;4P+cD|G1Tbxc_vT^YLI{hv|b9xxqclq<YeNX<h
z`R{M8;95bYYXAdL<UzYI-~Ps+vTaq2*7S;sitivkTD(zsIYr8(J-|`orgKW+zpIQ5
zdp^09f2P+A7InEtSa%Az812Zo4k5lIjcDB8zyJLCvq5<HnqFO*z<VX)m(Z=E<UM?s
zz$bPFY|a*DV|_@?aA7#rNb`n;ZI3i+q$2x2d)$`}rj)o@Lg8kH)1u2G-f$84Q!#_}
zMATehn@bs11;R;vvfG{5q}_J>-|b+F&k!$<(;qX%_DL!vTaDhb!+=kgHl+m>V*Ph5
zt(#gH!L38iMg8}GTY10#mx=I}k(rk=g+?8t2+1^~!O?Yg6ddmwF?Gato@3Gz<M!ys
zMVp=r=V>j5_1b}boh1ek3w?`D2lBRm-%z7g=Fsl6srrMlXcFr5`NWZ@J4lIXv`?bR
zD+V2!Vq!}g8j3lOj+I{c_t*I@smmTu#W&wtOB+<Vhs5bSnSCv3>1g@St4aThy*H1C
z`g{L}EtRCGgp{R)6d@t&kT!Wo$i9<Mc8S3-B+_CjB}FJo%rIje>o8I#dzLX6GecrB
zmQfnZjG4J#Grd2b-~0Q!fA{15-M{7gc-;5no`-*&*EwgdbDe8>Ue~!^XS_mG4m=N<
zsc3$<x^r1>>Zt?vCEa~HD(CO#2~qR=c6BXLDh$g&g3VXwNBuj>>Q0UN|Lcv;Z;Q5C
z$LG(Kx+y%2xS?8&_g=pBXXKll?(T@Ku)C@nNMd3gP}^*3`0LSSScSV(vCWCUC%2R5
zC-pFuXCth0qLcTr3WBa`s{iYeD-@w(wJY{W=`(uc-FG<A`JI{4k9D3VzQn5xmI3em
z@;-;|s_c{1sWZ)q)=ur5pVM0Tn=Gr(8W+yb_NGM>RePI7GonG7z5lxI#x`u{z>{c?
zFFS`0nVEigg`d+v`n`Yk_k;<`YR~6)98zQ{;_BRuPm~@>iTJNd9}?t&lfcu6XLqU-
zrK|N$mYyAapLuM{6L}sv+uhHbX)4G*pMSLFyY?%CBK|kdjW*X5Cb30M#6Ofhd8D~7
z_T(YFm}kK!g@DT)p=R+mr$AA(7k9GWW$}Oia~aC%AKx!U{Ep2YX+Yc$dHUeakMCl)
z-F6)++P-WL!m8-kbi6+Kq6zdSwo9Ok!WnB?In}+?NLr&^1<#%p5KcP#(foPRq2r-b
zr;oombm&lG!f}~>dWDA$$@pa?M4f$Vw#QIZ>U&|TsLb=nhhE=1a{g@E?(HiI=g++q
zcr|3U#`2~aj%g9|U`rl!gdIHw)DNXLjkwPf$hO+T^imHNaGeETMF%QqY|xs3QiG(%
z`HrdO-c10<up7qYP(ETlTuzJ*U)t>A7QyiGT{-mUcA=NY`FVSbxiEGQyqI^YzQ9V3
z`@CdJv(QJsChFUp-2eF69d~gr9^yM?ZNDt%C|?@6;Fn=@X(x|+<^>7h#khC+LGJP3
zh@a5arjss4+`fEcg;QsvnCIdKfx2++=ZqXbZQLO4ZOhDH@t+16ZbSIn7UDk}m_6s>
z>U?(bb~w;bt_ro<;sm<m?qT$X>?Ih(8+b4wVGR>S#JC%5TjkMktVePe?}@nLf4weY
z;3f;;bL=nf%^KVl2=HEkPI$QY&->5j&;QhhcouH?BaHtuQ=n8Ke8;BsaU=Y3=`vq=
zrr|QCyUP$6(>0l|BR|1?n}_d=EWf(S&ra&&G^aL58ubD7BR`tk?r9^wT(wvIRqLfF
z6Z&`Rf(eV)I`r!a&uIMbq4<BnqW@E;AiMzaJqx`V(bTbdc5>TFhRe3!TnR|9u)uWx
zwP{8#X#-ix{*%vjxHMR~U<|RQ5lT<~C!>)Ce=~ai9<K@uQ#^AxfXi{d{}~DRA7{oe
zpr&VCVC}G@uyULP?jlYR*QeOWvpr?u0wlqZD-lgpBiuc>3vFgx6W&@%vPC1uD`$sz
z^8M`aB&cG^1N}}vEE!*LCLUC--xPD5j&~a4iTw>RlAzBOdKGooqTU3kRUga_179t1
zcR=fV=x~>O$Ykp7uQKX@2$o`NSsrXBi(8lv?WL}7VDHUREX(sJ0_jUxa?T)duM%*7
z1RviB2vFT76S|5B)-nY3Xl(<R0uy1bs!B!n^%vN&*qaOwmne=D>|l9sJ-0u`c6$__
z<Sj`xhUHtkRd&f4!2BH49d*}6S+98nzSQMTNIS<OFvsS{AU}AGf#(EBwP1KM<27r6
zJ_GvAW5$`o+@67NNsR?)$yWF51wWnz^Zd4@Ie=CmMYUP0#;ZzE!T+Ismk9j|{QPQV
zf7=QZjOY24(IoDGEVtUck3sMuIL*~3;~5-m2Yx9Zf^^roq0c4TvkK7Y1dGW`fbpDH
z^5kMhD1DBq4qrP1Ss#z?O(X>2G;s8st&PU^#MtcoHKdyJd>eN^66h8fh-Wjp(W5#@
z0ulRl+yX{+^eK?VwZnA8a(8m)etFVGOGcOD5s^oIh4X<ogCTSS+)tdxuKYg?Ij#~V
zR)%zF9Xt6Q)X;b(!at&#`i@%R>!Kg~mJvmNO7)nPcR09%XJih(P5|qn9OQFaizj1x
zSNF(Oeq#=AV9OzBp4qN<7I3%!mfX9_mYuV|$K(=-DLy*sqv-A!SFHgL<{*9HQN|i?
zczg-;=XM6I;J2&alw5Y#E#Z05KxYBcT!VM5k9#ZR)jcl#eBFwZdHL}O(R{qiYUE*V
zOGTw@%>qvx`9^jAPj(grNPzG?rtl1pL4RQ&hhkB1xko&CI+coh!<~Uo+-EE8F8!%L
z7P_kI^XU+`3G-VR7-<R{nx%ssq-cJv-BmNZRX<TZAevOCKCGk~u$|k{b9&D*0zD)}
zbx{lAt=qGm+n^~$C8++hq5tGC*kxolZ|;ui!vO)bT-<pIeMXQWd*%(V?6QJ?dz4rz
ze%C^+x91<}`WQIC?f(z|aX@0ZrK+(V1Ld{5rdi)zI1d|wSHlaC2v7-c6d&YN%;&`j
zxN%8~GrFa5=)k5lud|j~Eczn7hgz5%E>=de%X0yh>PLPp;EDIyX#rBdeXEnK8?hP)
z@*!Az^|F?0thk8myYXt=(U@Xw{hR1!1{o)&ML<lQ=uIT55Roz1%?TU${7&`?kN;=V
zYF*8kGt{ksM9IP&RGY!&)P`PE$a)GD0xu8H<%t;Pe)u8OU!&G&WXy$#Ug`kugCwaH
zOkbr2;M5)P27H>lsmw`tNg`{T)EQiF?pE|;gcIv(L?m4uM}(;g-PYw&lyE}tD?hEx
zt@ip_|JrS09y}h_R~B3~Yx8IP*SkBSLdF9lmbUh;PM`@NA+)k3J6Y#EXY`#Zv<*DN
zK}qJN2Cr+ex2hni9iCz*UuHBG7*9MuOLMaY73o(tUZH2;d~i-UZ`eUQ`IjC|5zs&P
z`G{N+YIcFSIK+<!)-J(w%RizAn_%)~>4<#yI4`j{c6AKq<Ij8B`hknbfW3<*Y@_QH
zkNFeHH&M#q0YzLm+_==J?omFc!Aic)<Buf`JX<6{3eN?d4H}s1McGFM)W*rjEKQK#
z?w_^C9X(L}jj6Vhk+SQ@R=&VMaQRZ*!r^Tjf6>2Dzxjv>@L@VmD^H>aeR}QZ*<s{H
z0kFqdj#u0|4R>B>ZL_b9#g~vq@xk@J0DU@JP|EfnJI_^`)E!Y|2M|2w3KQiFwsbeH
zkYX<3Vevt$m?jqeJT5O6WF^Mu8IoS6|Fdl^gfNw&4tWu`ngz}$Z7pC2_Hv>D(SK*n
zPs<acd&Mzs&>{C?WXTJ(ZXd2=J2*k7L6D*iBO2Xu-UV*IH`Lvw0px=TJ-TYk6F5)d
zOXZV9XONeBfde`=d5sknG0_YSi`aMr%nN+ZGy_wE9n@drTPq(i(~<c)NKS1G<-a_2
z(VB>V3msBkf~=flC74w6Mg{HwxJYv;F$TsMp{*cR2f57{WnitX-fvq%CDz=UtqM-x
z<N{Z~dwbbpAU)^M-V$qzt|b|AT7TrT_>}S_2>jOQj>MX5vsHZf*OT1de7PS>64r<!
zbXEH>vV|mdZD-D(h1l$uSY}V3V?Bn~(@I6?F57x};IQHZ@THuXx6m6AWQmFJ3~H;I
zOsoGt=L*1SN~Mz>K~4IRI(YY{m>4=LIlLd<C;cxvDuO(be)emKrBlZ2td02vDhroR
zZGs(KxJ_=gYt;`G<&p)gVt5A$wup0sXD{7mCsBoRg9sG?^~@@2-wK2$;Eu^p`9lCf
z_J-NOj7!uedbOqc$W1<U8{GSQe%v|uM)zF`9;o=yj(awXJPHr!>yNJ{rnK-Ll?^&?
zZGNm~UczI}sfiz|e}Y}zv;Q^dD5)L4x0Xbe#684$0lau0pvfZ;)1j$9i8iHUalLCl
zp??Ga9cdGVQ&RA{TG|xPyzs$K`ER9l;=(1<`^%wC3_NwypYq0-XBHD008yBhq7K2E
z?6P-Jd5{|uoH|}OMG~P~Do)7GR8UL&yQ_qFiybKddZ$TJGj>rM_Q<+`N*KvhFI-qt
zgKq$Rl)8fZ+>5HOZ)T+Usuc11!@^v&Vk;Zxnp>`0^{36Az^z1vv(0ewJ@e;bU|aC$
zOwPTW^2`=6{SjcQ(zRdlD!*T*TB}5nE3D+TODLCqg)bUSlrvaV{uRdOI7odH+|<5*
zzZTD}o$>+%vemUD=;(5JI?TN$baRaQ5ZCWe@Uj3BT`lp|7-S4Jjd<)!&<-pQwnqoO
z#fE4RmUx7Xe!8@^nd8jbXl7SaADG1HBnn01C>uT0@4k0w^7bEWKR94*kskH4a=jnP
zvMcxxIYIr)AtG_|JQq_@nzkb<0LAzn0-LwvxaXazSbGi%eG5GoG4}E2s;^4)Jggrt
zo(r-Ka&S25+7#fy-E2?s1N0}g_#TL?o-sR}Du~0w*X*Sb75(>wdaLs%BHtQ$>(B}s
zx_>fP2Lpbx2}?g=KbNdof!@$V!2K)OfSo_KVrC<6)5(PWt$KH&t5Xmy;bUC4Jp|aN
zIID=|;64vHaKBXU*h3Ne)~0AqrdzuD_!Z>mfRKuQ@p6)-gP8Qh$}s>dRBUYCp^JCR
zU4PSFy;U4ASAP`=xUU96B1W4@*A{_0*i@VJNc0?{8{{)P19jcl0gW0HB(LI&;PNmd
zT>w(#658zWXr^1!>Z0g(byRA^)CZ#>3Y)R3mMQ-N@Z$@(k_0@GKpVrtXs_^Cdk@kK
zs|c(|B5F4^tsZ3>k3Y)8+lk#Jcz|EUPiO#WBzNMePKy_oIJe5RXhERgPkb_fm6?y0
zq?Ebo|ES%AhP-X*4<@xz)UXgHu7{~QOe0bra@m@&3ota@`7HW5mMN}O1gqqro`>gz
zvww<>v)GN;ep>4wIrRW<+g=_6U?!776<J|C@P+h4VF2bDpyu@2PaC~&421T6fO#N-
zjpISJ40DH|<S=*oh~Q~nY+VstjypecwG>*zAW>_4Et3)Y{!=*z?Hq#j*B-8JdRCSa
ztci8{MQ{On?#br(i}VWWH(#+s5TEM)ZrZ|oN_#G-nWtHR*dZrDsF-m2Tk0H+2%m->
zr64bYgID>gfR}N!qSEQJf;d%pJfU~PCa1iwJjRYrULB-V`7)PVqL*X2>&0wIb8UkV
zeO*LlszaBW-O{Ci-GNpEm;%ObNo#sk=WDXMm=kA&aEmKqP=gT=cRH2&6z7(+by^-l
za%Z_!XZ^7~?E)m#-j7(7_6Z#aW2Zb~Aa1U$se$qffUY9BLHN)V>Ti>kGCxYM2V^CA
zwdEoYpJ6Ig4=jzId{aK=UcD9|x#XUwqdF{h;9o`+Fz#`~=U7R;Vxle&`&Ea*|2DV4
z6IM$yBh`&WAha|-W_FT%|7or}MCgjl(di0);0kcy6L<j7Y!OLnIbiC(CNrw<`To(`
zeSp@|+)FZuGiX^z1I<^2-t<q8K(4YPgC*8Lk#C{XZ=85Dok<2PR)8dx;$W&OL%X$=
zb^`ZI3bE%;qM(fHb-Hn!mw2o#$DMdv3?B@abC2_!ny`Vb2>rv=!1GCV%paseeK_M<
z#HWwiA?0eN?l?O!ZwQ2*B1qwV6JX}IHD^1J9nd$YCL+KMv-xfk3-;)DjSdl?F?xR!
z!}S%bfRVC*``LMr0bijl5*gwIf<nc39pE)VX$)v1gT66e;miCbHyl_1q=b1cZ)b%)
zKdtZzEL;>*z}t$7(o|9*k1Yv;7ygwADMH<>532P!TM#e*Cs*Og^`QCgvW9Q^A3Wh+
z8w2DdD*oQf3u(@6%rEwmlJfS%#u)R6w2cNbyl=l2&oN+%HGs|RRYr2&Q#Wwpu!1sZ
z9fSIBuKENGRG@)q^aZt^icS;B<q>iw*=MP(sXB(*4Ai?mQS9RpeoC(!`eocyiYo6m
z&b=K72ncEx62Q!JEY_7=UJuX27iijIn+W~smE1)5$^&1qj)Ol1?~2dLXB_-0!guCb
zI}C5H<Niygs2M$`DGlg6t70KxEnS2z%^eWFMs3=**4#G<<*OKo14nRt#5BI%!Xa&?
zR3U)gzpV1v)~pkZ+A;H2eDyoM`WRyybj7&-8@#%`v2|S3S#`cqbCj)Y^z^~VU(e*~
z7MxbQnelVC7DrpqvmA3k;aUz#EE^%RlH*-q0Xi;w7;z#LbvQff>&eu*BF5J@?jF*^
zLVRc5m#4^%Kh@E{HRiogaPNB~fK9sq=@Mg%u<kfaKceR2@c%_rqi&A0=p$pUM#R$9
zue|1Mr)MUB*+B2JXm2B(==47xnir;d4oOQaL$6!?$$Z-1eC49W<6?#Ue~l6To%l<O
z`7$mGSG^ar*x7`yH|BQ7yyGIK2K^{2B*<x=4`3o73D^D|0TtOVvu{>QpujNbt*K1|
zSSy@eJ?=!TXbg#1OAg34Zv6v??6`0Y3B;_NJo(n@7)N?C(UmztO`@s;aYP2(-8JqX
zAPflQ%KJ(X)_G$m>xpjlkoVPa`4V=yejy`+`sJUPGQ|$tH;=U^IE3~~tONu|?&N&>
zx10gmn{jfO13=C`*OGXE>0HA9z{Oko2Y@8opWg@w7NPq9w&GVZ1MyE=@mMUtrPsYN
zMRiz6>>r4-CE#rfMR|!yN@mFZvpdqYgwx!(x?@SNk<pzz?eHJQH0p!h<!#~$8{?bE
zkzOtl1smGfzWz8g<MF@OLO`%HB^t^a!z1jgt=61z2Vt_fIh-jx4+nsq1($m>DzGNo
z?0;h0k-&>fsxTe<4}JZzw!~ZP@w^O&wLJ14tgOt1VSg2rUxhD`0zF77k>R}(xB$5P
zO;n*nJ+DiJ*d+uIoAgl^SMZj$ruO&}lr6<Ust4&sOGl)KtVSDrV07HZ@|1HVcR(cy
zTwCq*1`<jC?8}b~1^1(D#SlhLdH6uuw~U_o3@ySRm3`yPOvu)+VWe!#UxYLS2hi(q
z9(Fp!UM6`UFn&6lGS3U}YtFc6+2&ni-K3*?SHFW|q3n|6fM8qM(@5ii4!1GL2P$cW
z5duVy)o`Ju+e>A>1=%)IeIVGFKgloSZ;xC&pkk6yPI8SaiHWIBDVN0u%9D<Q8&>;p
z*jc3f0Yhv|RekwK<3+&R+P2n*Zf5!xAZ_3-cBZ!Ku2CGPUL!nL95BbuoSsAnS7+6)
zIqQN+?uhsxIxd=3=*#R6zCdoW;!xxe(d*|}VB9qPv1Ff{E9)G+5eU?!Ps?(LpK=1c
zjcRXVr}r#21cC5ygO9hQK-7@=ddLu4qSx1x^SzxS^v{s`Ss^K^2k{Eh!vhe-0wtdD
zI+Fy5sBDw+8&FZBM+6`{kfC#|Hzw6(IzsBh5a;)?gk;7vWR6~%%!p(f?%{r4#o<&y
zL5n1*O12JV%PoKWWOvL;Cv{|nF-q-jYM8A^j<Hn9pLa1v;>Y_N?5DGH7E2Ak2?;o`
z^9;hys*if8mp~)O&hPwH>+AA8HgxP>*-?DSRb+7Eg2}dM(`w|;OL516!=ICcZg`3+
z<bg?xEwL69BGt7Gz>5F&!#ahJT_h&}KRn-S9BGGv(5UKwh&91!1^5)(?4`H(Z~l{6
zWl!X0zEGFjK&C9>J=V{5+*<%RJ`v9WHDAL(vTR^3YLEwaTUr}^>1o_(neX6mMon0Y
zX|q=Zb4xQ2);(GLmv4u+-pFL50OtTTp);t7Ziwh;hpo*Y>^Utd?&M0VR-fSnmE{_$
zQ(E+H5>4A>hV_ac?fHNfJwS{65rM2;&{!Q);(VWpn+xL9ENG0B7X?Q?3ucvZT7W0r
za~bRgM17P8X9Y+Tm35fPho&GZgXXKSqkb9D{icv1saDj2hHe4?Af)ctoo%We6CAd`
z{`13;0$DA9^$1^M)dsH!S31hqYiUCS-&`CMSsf(e{x$I8Z-hz#aEX_jE|fT)+GGlG
zwrh4)VKwm!^}GlY0)K52@?a&;55FicLfMdCqGaxTeb?Gz7bN|21xWFGDvA<ftWvJ7
zGt0_b;z#dXVg<#mor_ygqb-hh$LY9~khO2Vp!@noaFVADv<U7~W;l(Na6&FfYw<NT
z7|``;silUi^z2?#R0$(iC~_+=2UQ^ogdbAv9ZbZx7OdKEhzziT-*;Q+CU;D^nI-qQ
z`k1TL%d2&{$!M`#lB@2nZjN~_tkF%<V(;qMgv+1MHc$Y-3Q-pH!f4i}FG0w)p?@Ji
z@rw;iN!_*jsUQjFpyd+HWcZ48HVlIMJesQKTRs&amtO6v;u@2Lj`B&?ZMyL+U87fS
zFY1F*b_iUK6lgb}l|NXwWY%QODxfy@vZGrYfm8u5(2iyS%P4Pi<qAK5U!B`r=)b8;
zIF1_;KvY1;VtUebWyDu(w@d84DFWPBMi(0czEv$$imn)w`&4&J@;<p)KbFlN>pe%z
zaPYI0i{s@6V{@PK(`I@<5-4`Y#>QZx8=?US57cj=EZQXmDK8)8;gn{1{7SGpSbMQO
z3*}&07VHdykDdP%8DU-Rx%L7#O<Cj81Vlhb9hTJ?cj)sgc(2~o8BocXQB$rL(vABt
zL0bpNSrm?+MygNDpaBH7jr9l4^#I$@5C2E9l+QbL{2o}-NP!3TJxc*$D{v|)|8st&
z%Ln`$;#`8%D^cQ3%Lm~Cti^M2YbGF`fgXJfSP}@VH5VWM!tT$(6<|&=F7!!iIj$1O
zl!0JDg3LeI&(oHVnG=naU70>;8v;j^7+J9>%`N(3a#}nfiMbDu{3j+1DGxS?=goiW
z>z99}7ZL!hf$n%?#G|9^D}Yl5P2za}IKGV&j*4%Fqavd|W1RjpB?C<!BX(l81RIRX
z7M|^Q^aiA76!+ITPhOYRb`ytqUP6v<{^|eo!#Bd}3Om=qATk^}zXLIrXSql*EK5_x
z(GRW&-UZ^`wsE~eeXg~;9UL)NmExF^4j1)U-7V;99TzrszU;h^osQ$`?t8C2@_@{p
zr!c}s76oMR>YMc;W9KW>T<i4j0AnlA`hMKbF1c~Y`aQ8ljM=IbzELUW!DVRdS8a#!
zD&)P2Vs}SSSZKe?&Lu3{0L8cw@w-Y$`uh;Bv$v(~#w-@z3Ve+q=mTTMN3621xuua)
zm9qZ^B%+QA>XzFg`UYzo&;8;UUwUr0T;hAiD{4H~IOf{}w{)gB`mrk;nZSVWgVa^r
zD`0?U?W)eCPx!hOeXJ$IXSGGYSRXdlb#f&8po3}1SYz$^^jDD`kU4ydy8)Q=&dHI5
z^XacnpD6a9-;+|exICx!jaV56A+$zAabO^Q81VyTmm(8>#|4$X?y!10uyryq(lutR
z4Oc20HRc*@Q@i-!=y=Tf9jTx0VPigSQ1(`B4tQ_wcn~bTrQ@({#HTy0^yVL#-Asm#
zno9f!Fa>3YH`sh)M&qpGy47fdDv>hId6@}PFW<y%AQzZxKaGm#EoYH?+^s-*t)!Y@
z+32EYjlJOo4P0{!k)v0;LEE+h;XF})?y%UxC;1jK*BDdKoO^N0(ydK^1+S&W^l9q<
zuAf^%{rV}zaq@^E7^^~dI_4ZS`qt*gX<2h#-OpSIpcxcZ=d(6_GTQWixmdPXWW=p^
za?=Fpsq%vPDa&8v_vmN}I+&o5Vy<&6ss~~;K5x91<&(i*(Z4!F#?;9h@p6fL@G~>y
zLY}ye4*y?5=l|5R<^ORixF?GkcUHFld^2?J^xw%jd43vW^#iVL#raP-7%TF3s9^qF
z0yr02XVrr>5{%!DS9UW!#xqD<R$xAH4`L{d{<+DlpPz}Z38&xiOy((T)Sohem)tX}
z*NeC@cr)d`2%Q2P2=Y>t2^Qv<rqvc_H{{rvU9Ar2cUeNU*%7!^QKdBbpwFW4rO}rX
zWCwP*xfkT&Js82kR1NZk9|1rVHK)}>e0(Co1GhQxOPA%lG*9y-DDDQ%baL(c;ZRhJ
zHQfU)k1(q3d22ss2{RR4iiWqbMm|o%q|^aja<>NYGVDFXX2vL>Oh2yRcIB`<W%(u(
zxaUHT;RSGa;9N$(9LSmH;;P}@**fEo&<Opv+<>n)w|sDYBEdai@g1x^z4dB}J4L@c
z->1M0I+g6UKG#3e;Up`_7r0ZWWIXcI9@*%jgX+=GSu1H``F0Vp)iflqT^N4FNl+-e
zw$Y64f<yKgvv1Hb)E>pY+P(2Q@oCG6)J|OVJw|!Md>n^p0HpRkxDtF&-Vm-CzcSV>
zC&=enm)`tym%(BkGy(_|v%yBcl?c%r`$mEQ<TUUAWaredh(p?cu$K>!T!+3HlN3!+
z3*#kmJrlPycZb<WbOY%{c>cAx;>Mw>Z9D{8Y>H_zbg*qD1WM52ZSioD9lA{a_QP<V
z(HB2F>DJP3OSS<a#;rk(jO!7|Se~U%K<_?;5Ho-oBd(T_oZPBo!fPX5o#&02&rJZw
z=`}S5(5HLlzVPgQg(>%xp6u&K@1n}X3{FP#lKh^s;>!pRj{wPEJVF*;{Ow=<b1F0b
z$F=AGzCI+#WtGqTBOT7vo)r@K&}$ql3nU`=Jkg`qh#!Cu|K84DBx<UU7(WKbE%4|^
z%AKjF+~T=F%#DfSm}#zPHd9Cau|VS7leVR~?9&PysqKqf%*#n`lILbMfXV73aX(XJ
z2gTeu<A4~pHgDQcY-NW6?N0N}zfQ=`ilS|5e-z090P8L)kdmngejVG}4q>lN1ac+E
zA(rtva=~?VA79z?lrrAF{V%P1`QORi|9&IOt-i5e{F2Q0_}+rI#*=vx%|aupaLxzD
z?b_;?csd-X0srxnPEFk4MZ}|@fHJ2(b$dTMV>?+LWAHrH3D<yY&;I+wz#6E!n8v~=
z3p1>Ha0ff}UOe|gEk4J?Uf;$IY8XSw)9SWs!9exHHe3-5*+*t}QgItVE(iFi9J=fZ
zS);;)fP1HaD78*YB%;+3U8r9gGrgH3AB4)m<9Vtw3J>a*^Aulyn#>5pZ2+;{H!2%A
zmHc2UR<4GWb6Rwq=XaQFf)(5}{}Efafo<njyCj@wFpX#h@>XB6;ZpY5Cn39a6M`LC
z<_D*lV~e-~y8_46Ll`!oY-ob|FbATJUo6Xab{kl@8<<g|RxYO*AMy%X?)1ZO5G=X`
zh{`;%J7?>KgP%>|t!}HkL-|0pG2gfnnM7>`Zlv_&aBV(t$`*o{WOyJ%k@;T(ElF44
z1py6*Y3dF%1WNP=VAT+~ls}~D6;ko?@$>2W-zI(ftNPtpYXwUzdA2ifO6e&MJmgoB
zBP^z)JF5J~{NxR3h3?F;@NUk1uXe6gSFw*~_4yj_F>D-@+?5fq8enO8EBY|aFNejz
zZC5%Y5>+S074B!hG{uY?rV$__d6}J2-4f%25y>4SX0+O8G|v6xdV3bKKYpewL2C4n
z;g^8LylN}tZ|rXaxT!<POL^mlm=Vk??j|MdIt#d^KIf7Q_s?+#Fd>JK0(s6~^qSaS
z-cvoVsc~jqGUJ^c2@*}ehm&5J{-EP4&kIaE1-bODsSekTr7+clP=1S8Y$^|J2krxE
zR@T_b3=)u{{s^Eq%38b(cRtUeQPcwenY-aI)1LY6)uMhK7{Q(s)cSX3U<+{EKyX6)
zTOpBJkkLPG^KT1T{GU?0_Mf4{{)8$a&%Mw$F|pi(D(dF6w$MMyw+tI&CV?_Jxqp^#
z)l;*8YC5!>4d{)2IFNn?K3qUn_GtrmP>9~h+??+F|6ZLO*L?<+io(-NQ1%YCQg+$4
z2HCp2Q_PA!;V7|YRoo(s31s7f(b)n0W$fY@8+waBHpdds4d5K?K2RLl7*Efnev)vH
zAK#?cP#1th1P?zS9`~MrqQsu7;<{lvHIz`GtYcyWOVoQC<3^{(61l?@wj>L6Rl`ix
zWeRLSwT*TWw$;dXZTK`rUM#1;xHjf?HLl4a<|chYyMT8>;JC&uquPc;o|G|0k13NV
z4)QRy1wx(csGf1WJ)OBSA0ITu@+b+eIWx_3{5Al{fMht8a7tn>(K&TsidUwsPhkfc
zMh(unc=PNTDM^V7p;poteX6a0Hwvhgl>DeaTvRxH8ovnJ`QQ!S=Tnd?BK5Z09-+{E
zVf<JV)8`j=Z`(3(DG9~z)Of40sj<nQt^3OIbywe)2VYVZHRo9%OG62}h+nV8r9CeA
zLZ!p{Iuav#_&x~8XRuet`I(AlnF_$)txvBe%SoC=bg`X|_|g;fzj&=?IVqA_#Jkax
zPX`zt+kjtLc^(5_y*(-Wd?gu^US44E+{!^Ucw=d!Y<=#t1-K|gbACiZIiB1bKU*bE
zvbGMPR(jE?=Vp*bKediYrY_BevfRK@%JJQLWbe<GP<!hTm`-(M(A!_|Y@*gL4Rn}A
zWe|IjY4qjO@Q;q)zumwR${b2{|FpVsb4ek|7J1X044JNanlbk(Vko)GgP#A4VrNc{
z9cege%u$k{7snjLmz}VM;%J;xzcfHiUgzKbN<se?kTkcj9nPf^V_YiZV!Qkh-!wU#
z#z!$WXuCBDLTf8~UO9jHUbhO>0_3YNw5MlzxWM)E_7tr;#EI3$-)#ZG-!$>$YXGfv
z{^u)mAH_#wyPl@cB~I<cco{d|cK=*+iTtC*MoxAJ^P-%7;$x@?>ydcbXQN%Bvu8aE
zGUuC--x;t_RSY8w?$~<UZYb_Vd#yBwBOXfbVeE1#YnU0)XV}!b+|82qL2QlmX!?da
z&}h@(GzpgWnRPK&7aZv+BUfy^{Pepw>E{@vK{D#=c<cV5qsl79ob6?~POZ>tjfZnS
zH(CoCBuAsoug7ewH!3oJFbA=(V&|7-S3G?pF%-{N>{t9jD$UHCyuGadc(`ilm$di;
zkHhVkUbZYE0~!{Q5zyFDb9?S%kESr+sa^0#ift*w^c(R|v}Dvb`6b!Mi^S~{PpoI1
z69{+&Wwq8Rg?agl#85zoQgJn^&TTeq<#@67u}kaB2T#L9LvIAIG%z9CN&-A4sUwWF
zyMDW@9QHiJv~L%tp6(GS`X#|eC<rsGM~o`{;-VW=E5hl-($587uHIMWTP=I59#Idx
zXInH8jFFUBdoS8?2RyxR2>g`RmmT(SZWo5unLf9ekO!k(RSiDE6d@-ktsR;^6k<*j
z4RjB3@PDdPT&L8~9x$vbSan)}J5oU9_H%-uqidK4wIct?!s%j)^A^Jz24eUd@@#&{
zK8lMuxnNJDpiaAdC;N7^QAf=?8TX62UVQ@D;#VbEj@w=L;^>XnVwC=9irHVaFPF>x
z3^X8HE5L2~s{&A2oJMbyYdKeqxSGT#I$)LY{w!rdJ$_5ej?G7*O(bHHi-IKImF;!=
z<oRUUi|fKbvh{Bom;P3=%<KIMsTa=}V5;^+nGj{O|DGth6M9u(#QJ2V!LHYT?VoV{
zqmh|>DK~F+o%>kdC?v?->w7cylvgvU7NeRpHiZ;a3ue6ze)r+;o`28tH`)Jx<9{Cq
zZuO{ca~FOsIKe+5;wsQAAGQ3T*2O;0MUcs_zSW4|RoL9LTadX>P^B%A;e!g=>=BE=
z`o9X(=3m&ksXmEL3aXc@7joR?Di|xRn^=(--CS5??9_d6E5ksInkv19U50<tmGQ~t
zuRE=y2EJ8eI`eAFi@klsYyp+K+L&FKx`b^0wE$Q+)&FpX`qXPy^v4E9q^E3!K>hA0
zsS3;VM#GVL?FCx)xS{&x%)cUzPbJ?#VSgR|_?S>p2asv%Gpr$ESaP=YxrYsKDL0{`
zf71$F_CnUdlv093mmQ0}-1Q445YZ<fCG~@*TVmilA>WRCG#&apudkQ@5)~%J-OcSJ
zVGrIFFPR0UKWa+a#8T7~@?wT(D%}gLqguD*ODUKsLJn+rRP?=TmU^K)u3CLn{7&yp
zWx4KP!n$<4#V7w~@{Z%(O`24#w=WS7Uxvl+Y*kKgx2E6B40@eDVhU<wTAfQQ{$d0*
zJqoh>a738oG^ysve9m2%<_=mmZ(X%X4IyukTUM1O(zVQ@&J&{*KU<$44<3s!5?YsD
z=AXRmsqVRAk7hM%SfPr)RX#$c75p5r<*jpXFb84>=NRxkb|#!MsYm}j?x`1E=R=l@
z=n(#l-S?xrK0x_jtKO%&CHP1nAy>FgDdS3_&egq$!xKxbM>~y3J9J+H^&L*<PL??N
z@qgg6+#0FaJd0W*_+s)gW<A6ZzYqW7$oFWI%u5sP3D52-X%U~kSj%j7biEi=G}sF%
zyj{1~J?efru@N=1g8}h=6KL_-J1^*<@$}nH$Hii5{rDq=pQo?v_fxZYZ8d>RY)OR`
zU+-XP7(J3nDJscRXxjGjdhFh27fl_#p?O``?GyX6;=E?iHctAqua^z56pbZp%(MG5
ztW3&Qvjf%!0!X13PhY>xJ~LW?+S(&4RDst?eTFG0s>+bBikzR26u*N5c4?lwOK}z*
z{yF;JsGZga!Sv&P=fZ3(I#QY5&EG+yroHY8gj$FBkm<}xV%iOZ;67{idda4-{iu2t
zO)WESErEaj0NxvYtNj<Wb0u+KDRsyG(vvO%{YpDgtpe*>Qx`}m)WfS0qt9-<=r`Vj
zczIb<FjkkraymZ}Y(psgrPUyoCNH7kF+KC^W}KNfdcVbrwy$kVn4##0gm9O6&V`q+
zpsy#y%lp3{H$GTScE0UlTfS?6ffgLmPRBB0pZbxb-Jcve7Nwmk$!B>awLe^aIcW0X
z00()fr=(%ay3Zn-Fl;iwz~6q(@v32O9uBB04YH2TnMmo#c=Qtavr5;QL+gmq$e9i3
zDT$qql3@#0=uCBI*c@28BC)hhEufsX!?4hFY%9j4kQ{Go_rbOi%eNL%&e`Fp=NUI0
zRn{*Ry_!eadg6MbL;H1sD1~JWPwi!!k0*13bofKIL>}Aug{?gc^~U$Q2#Z%fuRUpT
z%dg-jD>K!|Bx+jL7)2gK!*Bjal74-^$;#D}4>z3ZYBt!8e2VAu<Lf_W4*Xu%&MQ6j
z#+N*du~VlA66==(SeHHH?!}c3K2At0r(fA#Ac0cULrDo{D4Oq}FOQH(q7(Ms@^%yZ
zyw;ygUsfYIi8a?JHDVVX3oL&v8T5-}YAMKF&}|!;&cyQZ$uZ3?nAjpbm-yzYF?mUy
zwsM1h#1Psw%AxMT=aGGBUEigrLkf#Xs*i#llNW*C5K4dRoCc`c5};}W_#0)#rTPd-
z!MZvsnJ*Au6lgdbfb`K`K7C1N%I(54jcN9N`HO(kpAvTcYczkTX*1rnV={=4_GC+s
zz9fx5pI{}ABU~|4dozcksTIG*Plg$cq;#G_dk6qz4!;aa@D{H20O#Mq^UEs%zjpH@
zrKoXlbM_@4x%_LzLwN(<k;iN7a3~iF>g5~wCBV>u0YmpA;I#dat+azUM$ek1-hI44
z=k2Jwk<;z?6l)$qViz;ot(OmcL{0Qfxa1HzRNF+R{@Sq2gl@W7?5}odpK}~sBl;bu
zh)jeT{vpPHrTLJVHbjqTS?{;EW5ngFE1nUl-5L2EJ+7NS)<o7J*wy^EX^?+JW$zgC
zxGuLVmQR;&G=G_)JHTkroZ3+`W1Uxx*`v4?J*p+Gxs>tK>bI^;q`{tGi~OykW+ya*
zg-KHU0bkZGc4sH_=FAnx{K%TjQ*<3;!uSdM>%8MecMdTXmjSZUel){Y&wbplSF~_D
zbFmY0aX@y!n}IGYdGz1Xb=Ws*O$mv%yW`-=_9K&<B}+4@YnwaT_iI*epo}kB*kQeF
zjwL+4oO$S0$B8!PvCJSR!Dh+Pr=hPc_*?{11RO5SsQGBAA9|&JY`a4~?em299my!a
zf{1iNrBUkrIi3abzsx*S73CxtD-gA>Xv5@(VP=rtA=8aM4gNZr!v7XcRnz{7rxvW5
z`l^p}?#)UjO{G0LW@I{Ws>A%lMvd{Mi?UcRareuk`B@lyP*>WOM6gum;>&Gv6GaRA
zrjBGrZcMAt^17<zJM91g78Egzbj_f9X`SRbkZbKIC54!2o!5&qYLhHX`+<44F!`f%
zoTqwSA$=1;OKUIQDvy_kyO@8qD=LjDYYLk7`>ibvztxorH=9f?X$iST%zo+dU|gEg
zdH%kJZ{sU<ruV+#Xqk~)!ktpW{a=n7s0owmo(5u@!k?3mDz`R&gqFrCJzZ$3n~m+M
zmz!_*cO<EE?Nt8n;iOgp4~3n#*}Es>FvN0>D*si5W@)r^l;-D_hBS26jr${~U%WrD
z=z6f6(olF4f0G4Hl6ncX9r&lU?E6{8w|-_BTu$!alFsj|>`wy^Fm(I(8YydNdaPnA
z;7r}JA#dUHiF~oyB$~(c<72_;Y<5ngzDwr4Li*#|&pjl|Y36$3;8Hn?>3l}FHS~1`
zJxu3E3n1VZ&6i=f;<sEq=89w1VOn<wci#mps<HU7%MAyjwthA`ZXqB7{0#c$5$E_@
z=}?fiGbb|rR|JYMj4Cm-SUNv#dNDPiIdI$NlkZ)<>U-T=VViHH`**}yCNF9Q*<SZ;
zS;+7j`4l$#{KT);__XfyaSA5tK^C;7EUdYAKqIS))Elcmg0+xl_N^o;>}t4}B<92E
zD?YE=BVc^AdH0R9_jtXxgg0E9BzYR#j7CF#-`ZP$LK))Oapw26i%k*1kLyMq{=+72
zOM|N>c$h}SW>QnOI`&MwDq1V8M<3he-E$|$lIiWJ9VRof7`iRq1LC@fmg|{Qi0jwf
z7zyqnlB}=X?DvyDJQhNuS_d1+{CgYU?WxjU-aFeDBds1COek&dRETSQ{aXdf(NL~S
zZ1b>%-K;|dX_z?V0rs(v3q`)(D2vp*>>9MoRSLvzx8<0G^LxFRi_8U|W{Y?2bm{pt
z3mC{V7BVUAOP4yP>AxBj2$kuiX<<tNsS7jeWzAsaZt+)4Ct8S2S9F<9z#n0Hw}*Zf
zfc@QOS9`AHE?C_#@Dwy_h3+!U{C<xpnk0o>-_`vXG7L8C+<&V8QAvbR7dp1MMdUof
zDvw|F-b_t7=3Sc$o%V;!x~s<AmJh<FZ@GH3xnuD{eOe`J$}e-dS$6B@-G=^N4MCK_
zj+_SoRK0nesVgHjeY(?`g8Qj**ZXdeSvvMJX8P`xmynZk_FzA4>_F1PAyI)yg^BVp
zlAm}|(`oswvFQ!W#cPd9Y{QXUoj>|G_#pSt#IN-|v!Z3Bnxn6ng#!V4xg@e}%VA~a
z*a1R$VV`iLC1Vf1@@+RqtZ%^beZW89<XBk5?R0Fh>e~D@a^(p^tHuni8j~FpNUJa9
z!q=j=3)7*lsaF!ECU1Q=UL|zn56qQb$69a7#2CzlBcsajexqddy8uSIc2U%CNDAFI
zbEhgqLN&)q1x{3^zW!2jG)V8=Sr44se+0~V@{W&AUfkPEd;t-Dmf2J1Vl&T$?|<{;
z`DF4bOKjeE0`kM;sT1voRNHb<vB{wa;}2xe89SNG_h<S=_Vyh(p0$X@?49(%?7_TE
zBAi3;x0t?^y)*Wp<{#>_Up+idVqI}+$IJ5xtb~-kM$3r9hU(e;oJ%jG?zm|Z18wsF
zfBNJ;He>tw_l8@e<fcaE(c7oP$O4<&bj5U~>WkhQ`6JW?j1^OnkmH?tcMg7(iqPR}
z-P&R~+FGYQcqQ#L;8g$rVDSHC94Iw{-@P^2r4eG&?ziW#Xz^XzbH@<mx__aC*-C#b
zNXeX!V=}rbp1auP=qyln)UY+fzg|64Yw%d^Qi8&*1=ec?e(hZo!sZfDn<lau1>4dW
ztf5{3PG2qkn8O!xyCkusc7OlsM~+`$)ep}oUCt*IWREVzR_<EfJ2`}rz<@9ZJf%a`
zmgOeH_8B<9phZzKzX_BLhW^^l$*&^})0~CN_l^luN^VWc4v@Q}($EKWvv#|XF`G#M
zpS5b#_<apt0A870rj}t0Gu@c8e-*%(3oOXFX*2e1lu&(tRr2Cup2KxC`WyV=nZpVX
z#~0nNU2mEWhBOuo4Zbi)z>BX|-|s&zCj?ybWz^DV!QU-Rh`Ze$cWV%;pt17c2h9iF
z5iEsUS>UHWeHYyu@<qYSA}YM^_L`u(m5-@H>9PK;_Ern8QJ^VhvX0&0Q8Tp6)`baY
z&Yfqnw;Y+TYj>=>ZKaciW6NvVCwi<eU-K}G{wtIEdvT;+O2B32c>IMLsD0lV$vp_G
z@w&6E+i(|hbBt5x2EaSLQol!iNml2#R8R<$+D*z<4`i|TPsWQQ<euMei#1R(7bplU
zkC$4%au1+&%ko+|U0py^qBh)ro)U~1QuaR&sNx{sH<xwM^bwEO)0Oy|E@(z5E+qf(
zfp@4d=|Zp3@uY!fZS)B--=zu>2Ne4SR-xi~EaeI=WM9TT>xFP}(ZkXC`Cmgla%zM+
zS3=KXIbF~+bc-Dxd8OnEF!{C4Z(@7~d{UVTdNE_5m<gLN1(N`jgzV{jcZmFu-D12P
zHo5KN4O6_}2SKs^ACyBuayw)1pQ;=@FzG+(h8c0AM)55hP2Qe#pY)wv!H}fm2uJ;y
zNj<7}DW)^>IyVT{Y)4Z1tGo}Zj_F?xG@-3iM`pJiKC!MhSv)e0<RghK=z8Y5px7;U
z8_c@<9`62dH>7wN#BV6MegV$LB~|+ND}DO0s>jGi(d5KppD)jR%^Bg;ZD9jA$}OG2
zFSieLj3&E<xcT~fbfc)F;aNAL?MAHVfu<mW0CHQ)MO_kp&wcp1v{&Ge;1`{@6RVhm
z+r<aUZ_?-V&y~qvSS3F63G!>jnheyZscw-Yj<b=1_`SzkoGo<8(DYN%j^p8{epKet
z^`#DK9fPN14f~EpLt`vX>YPMA%;iV&LHWwIEFF<iLMrG{3{|M}ZF=)Tt!v|FAGA4+
z36sPN8IdY)jkqZ_#Ye_`6Y^0pzadEY=+(e1C)0JSr#fx9+I!6X&IRsWkMCh&2o23}
zilk&nIDcql#;U#Mn&ABWX$CkpqXnd(ob9(TT~zezmN2Op^}fVVm~`6v?W57e>(9zm
z6=E?o+-#*_O@q%R;?LWW*)cS+%_CTE^0~`<-_J>=P~HvKN`&_tAp0v>yZ5RsVhuGY
z-ujDU1KDwmG9?SUem|$mriA6s=klYXA(uc(vnA8lJU<*jRg<UR+??p>yK(~G;Ck`$
z{uek3s`*)2)}Ci}pS|6GhSO(KtJ;@y)<e$;fXdSigoTIvOydm{OwmtV?U-3=92JAM
zgRLIX0m5`H2b8V-62W^qB`(meM)&NS+VR}!qn(A7MdBJZNhRx7>|~t(!=U`!BD8_9
z15qZoIzHpCTTNYCLWqC>J>3!_U1@bO(1g8(mV84AOz2i&28KUT7)Vcocl|PAi+~vT
z1|nsxgaS=^*G(Ov)eRbq2~Ww~34w3Q{x%Nz+$qaCY4c~D4`Ls-tY*HLbURx=s1pKO
z+r1=NdfTA;^78CMf+J}Q?c`xK)QQsmpy<8LKA&&cQ3jh|T#As(vqsI~KY>Pn!xn<O
z(Me&!gjR~#^3uL6<K}Ko_toXAnV-gL6^FS=-_i?t!tUF}vuljM-?{QyW<RJn?(uaA
zVbW@qK$PgzNT=|*b6z2{$CO@VP0XI2JmvY=KKJomzb6V=zGg<l!COcdE<2m=&9sC>
z{#I9ww)IJ@TM9Y>yPQ~;>R56Fbtpcu4qe9YzPGmF!Kqt#b%QQ?<DiC0u~JdYuheYa
zwuvATpN#2#wZl+%{b!DrmZeBSBw5%n`^hNv1qO6NnfW7?t(Ml+q6k^J<|d1KmUUdY
zFr5<qb(9ro8t1WfRq#v*PG=0p)JRfix<9+tZ(5|kbYv&J0(kdVyquAL_CdSufIT)+
z5+uraNI+Tgg&Z~XAnZkqgcxUBN$?ZUxkQJe-Wk>T<cW8scEbAJM}L0!HO2RN&@b(<
z#2bjj$dj@r^$bYjslaycSCGJ(Y(S26`Oz1%ISv|qahr-hlv9d;sAL`(R&8VI43HZY
z_YmY`gO6-rT<j9pwhbCzIH}Ncovg;hWR5rAUv7ivo*(;t&vCqL=J6}$-AY2FZQdjh
zs6A57nUvL%ggsC_4s7&L5#q$hq~yh_g86ET<3`pto9}zK4L;)+$6yPqy64!6R+LC}
zzabS#1JH5h_)C|@*1Nh4y+<R(l?HuJfM0)w74(~UgOTYB;OF5?PDDPY)<0dE&PG|B
z)@hL+dv88QaQdzLLn-*N<AwbzD2HnZve`&gpRi8{Pk0aysNDxNn>z8I-Vbm>loZ%a
zuLRV7+|;p5T>EA}CjV};_0g6PL#?YLQeoVM`vVI%FsZkQd0~OABPc6#8h_C26r-w*
z&dSJVxjA3UjUOsP3ujK9@V#pTm<DIt)je)(kBG#&K0rurCW60mh2)K6;u=mmC|D|s
zc$V?q#78NrbzfGz_ocC|NpO0M;#vJV<}E!2pV`MFs$K$z-xAbTXnOODzPaf}YSM2I
zSM7`o?sWvm;ucL$Q>ltA)JB(&D4W<T8$ykntqY4XT5Y*H!H;#1!#H2nI7sC-7hiMx
z2({j$P^dlSIQe_Pw^sw4f-Gyis4T1JuVs?Da&F|B2_XOLpf4JVxD#e8=US&90#5&d
z(?=nxglzHP%Am){-;Bu5EJw4|)XD6N^XOyADuc5)5ZhQ}Q<;G#d^%QnrHJlcH{swl
zfqLKLcoWbAR~D%|PeBuHxd%~Gc7D?Yq#}BTPd*iDe6nbBXQ*`_^!2`S`B&Fw6$co%
zPWb%#VV-X(X65ifxuE~_bsf3jsq@ki^g(te4f)#$UsHZ4_0>+|v)sz!^a0e7Fqcme
z12L~0()>!5kIj=Te@Yq0pIjep^bq$LW#|cRo+?5R%;X#2<tkmAH$JgkZ^BY^CZjtd
z6>oiiHJPQLJ#%m%#&8=M;%ppmzHa65zI(fTeN2OnGug1#wjrp45EpQ13{prhb1~~a
zLq@&7d{S$VOZ-xaX79!TBUrH}*GD9i6)kdDICI8tfB}{ELGq7K7P^x$apm;2$PLbx
z&hHsu@s73y{QY#Y6mV2lM&&9n@%4@4$p+gWzJ~^0dRZg#(GCZ9>CPFcQgbdYdLQ@U
z^2m)e3z?$IBVmLyCZh<jps_%(@6e*ho~-@@#;B8a9XE)~6IYkninX@jh?Zl)X1A|4
zJddsX&64pM9~Tc}-(UXh>Gmy%^!^{~JTpltr-M<@rAxQrvxn;Fvsp^gFX&$7kIwiN
z()$#wKU6UtKE)DV9AO0<K_R-;1TY1KbbX_<WOe6$15HNIK+K3lw2st|?roFp<#hDe
zZ`3!Iuy~Y7eO%0ab~$xD4vTpI2+r7$(Tbc7yB+_m2%(kdJrrz`dD+$ca&T>S^1$GW
ztRDg2_NPfablL9R?QRxz)skOSDOH8oz_J<eZcJ-)Nmll*T4L?<h;Btqde6sNOej0I
z8kshoTALtu`(jp{=Wjiu+bKe?cCoKr%<RY!b~n5BY`o4`{_JHfbRnG?18az|JKz`n
z>}lAb=aE`lZP<_Lj>Ne2>ox4gbk65#TX4FV`|!?X@&FCpF)Q;f%`j(z!a9%zU4>ts
z2;Q~%!vA_nV3FLju*AwG12fnQFj;1Ixl{wSZf96xoJDWYmBGuJZ7OE|gBh2NLYw)c
zTmo1g$HC2iZH;zc8}j9hEE5d;8r+KLg>{G4j<&#p3SMVCL`JH{y!U?LayeMc`0n>J
zl=1{`mwBnLoUa0v;f3_+D<xw0X&Vds$oU1@G8fc;MzWO-3p?I85pX%xYgyEjFv76F
zh-}CHv`<orR5C+BnA;dS3mQ%r3@gX`O5f*58B?N_bP3u`+n=PKXH!P5eOT{e&1l!D
znjP)kf>bCqo4<@GhKO~RqYDCx4ZKgtWrsA$%vAfT;Frg<8m3K)qn&Hq@9cdWTt%`(
z9NYLfYtn<xGw5v_VA!$lD7SZ(7d+lx*C;3>!Qu>Ojz3hg)_;BbSna_MiYDs5LTA%a
zmXeIavz_5#yTemF_FuAtBK$3#>m;KTLeCsN(U`NWcq>+W0rlO%z90p3>~X!iGr6eJ
z{YF#9cRDL9P`}h$$Fg7T<31qwMepB78^L^g$Eeyip8f8rPohKSa7~}s?z&TJDBoSP
zh?}fVX&)&8WO;=;jI?r^-I^3imrwfibyplpT<Q6*)MxuGVe5sdRW=IKw*@z~{0bhe
zpXkhrS$rr<#xolB*4Mv_L<m78SZvv@hN?TG`TbXap4uNG`zBx0*;whWl&F=Z-6J3z
zd3mH^oPNCu8y#oX!GTj(DzG=)H5I%~vCpu(a-Gf<%76SB=6Gpi@k{n3G5ba?r@R%h
zOQA(vkyigJQ^9=sugn~<M7WZRUYf5G;eZa@%y-e~$!{l|()MSTL3zL8)9&{R7`)#M
z*}J~Cli7-V5;9BIs;hx6S*$|3bf?zLKH5QVu^*m#yALCa(T<}d>ULpLoacr1c5s5p
zv$4vbv2+W~?ui@tmZVO_m8-!z{DyZGPLR(8_WONUS4#zJuEBmDF_I{ce--Qf_3EDd
zm6YFOzSbAh??HQ>e46I}-IBSXficsgmKFB5%RRg3y1U%?4X_=L3s%&hL1*qTCkn6w
z<pnBt$@DR#iOl};HRjfL3cXj3MJbwD<SHt>8=n?}!oXn?T37ZD)h|k6-YS?SCMUfc
zTDu!xQWpTjyuhSk!p-gnygZWnINExi7R2$xprCR%&f4#m1IyPlRh*>6jp|#I6b@^c
zUH%gH?E53<1c%J{>u(CbegD#WY2MEY;e&w}lI2AvcDxo{uw1|P9@IH}VSX(xL1*vk
zOg!)lFT;AN{eBBElPd!>DL#)w3i}8Sr!03Po=gZui7fw8qfhW{h6ltwT27vvE60AC
zP7b+x`D^RLQ;6R>B_TUWN3bTwz`X{wBX!%L=KBftaiRqRaywsdcg?TvQ)U<fdi6=H
zh|W3)+>QP?fm}BNzEy6V^?k?0)}+HA=nk1zMJ>Xal^<I#vpfJWWqGTde0CK_<pF^^
z!c*rzo($#iQ=`Le`>jD;7Ij_k-1gKQhf$hk7MEnRj1k3WTII6(8Iy5Qwr3VsyMv01
zR-Km)H6+HoIE5fr1YOw^wh)n<RJ_2$1mM`uLGD{zFRw!L70vxeuh^Rl8XCM`nj87m
zoBpe5H)2QkP^;6VdFCfS<YM27>xYJtqF#BxWxnv<?r?pU$Ob}#Y(`G3(aNW#Ba?W+
z;G;<jxD1iuA@@cLeaFv{l6s<yGy?0|_zzUGlJoyD`@Jo8+n-vhPZ6CQI@kO2Ev;4W
zdwMqc?pJ%~y6^KTsRxTMzGp9A`C9Sf|J{54m3PG_n@>98f2}CVt9G~h*T2bq-&8#X
z*8}U)%s+QoZ8}qg=H%rm)p+b%Gfi$K*J=*WhW}?YzFR%Gth(iU?IF>JbH%nzJLg$H
zO<3sd^k*x6&uvK*PGf(Wz^7jRr_QT2w|4FXhTm~v2Tyn%lGt|lU5*5>tTFT5arf6@
z=4+c94UQb1eWHBn^Z6X{OxH@QD=$7?ARo@S{#@WYj!&|;L%&wuNH$tu&3Rt1W%Y#R
zQg6Jcz2=;}_}<;cXS5D|Q2S^Xe|hPh;wXD_rf`ur$5lN4r08aze-2z2wV7+1zUSw8
z!1`p;v-bZ=Jgp!74z<7UZFzFBoI^h0yGqQ#)fdfpbyRBt{)HcU`%0QqSiEk6!Mmr=
zgXN;H@Dy+;t}GFI=-sr2<qp>&i$(qlJ>oU7tLs;DglF#SHCTA1z3574n}y^)t{;&{
z-`;iGQB_oZ$meUkLX2Rg{KLu}tUnkNdoD3YKegjq<GV5+R64zGEN8G5Zfp2yrzmLZ
z{NvHf=Li0)9=WJqb;a0O;(Dp{p&z@_nd%jCUS~NydUg1KaHDNQ@k;%|8|Moz^y>>A
z+iKe?VEp!P4dX-a2HA%9lk#`3egiJd-Wu)_7i<faOxv&8BU&T#LHN+?16hZ5KB<`W
zP`a#Ju2_0@*8Q6wO%I7{ms&6U`q{i?VJ>87&FJmXJJGjQIS;i4oaTJqRxJI_JMz&&
zzilsm-1ocqpKtxnc!vItTlHbgZ$ZNplYrydk&~7jVwQf_z2xC1rb(X<`|*BH4X~b^
z<GsCbO24Y@&**mj?YH(xzBif%w!qSMhRVW1&%?D7O=^~Ttb1g;^5H(7B*nxZGr#?O
z*P@pST>bK%-Spe)Tu#sXeHjaC!3$qZlGHd(-aYL(i3>PrK4HniuR4b;lca8JdbqD-
zv*ia}C;M{69!Z{uHrsg<&%B@Qajx{TNpWkQ{(IFgZ>{!Jg@YWb^7TW`Bo+5PG4391
z9zn}F52@50t`dF!ti*o(Qr+{J%Vw{fCZP6kHtV;1-~b#*eddW$?+<wla<@{J1D69;
z3h!B+nfA#9?3^W+j&R<yZqR>lBx{n}{c{Jr8`m?03s2e!OfJ)EWh(>~1$Dscz#ax0
jHp-=L2&}aF&wN?cZu6IlJ-|y885lfW{an^LB{Ts5%+8l)

literal 40292
zcmeFZXH-*L8!n0p8<DMUMPREGl_nst4I<J-X#oVJN((AYL_m5ciUkEB5So!HgeC$~
zLyxFP3m`#ifY6Z|NFV`1$enS2-@WI@Ipd7`=l;0ktU(G%)>?DE?Rnm3uH?0ek?zqW
zXO6J3u^ol#X_>OIaRjlk9lC$`5AX^h<^4K%_~X8Tt`>L%+s@4fIC$WCtY_`Z#wHlW
zx*b5wZ8)>BonwP)X_^P6uZ#z#pW0%yZO|rQ8yBO@H96Q%aO9o-7O5X=y24?Sle72g
zb+*>g%P(K41+1L;=ftP$&xbFZx%5ikOzSTbP4E|;qo<}+OCSmpQ7aWV+*(i1>V$XM
z!b~~hMaE7FDvc2ls6o#lSsna6qW^REe=GnjP&k&aFXbK7i0anAC%l)z#&$g~Ic=2{
z)@<~0J81B+GL@#6D^nzPHa4k}^hZ|zHQMCy1F-)*FGL?+|4&R^7t?;i|DTtoB>Ail
zf#;pZW&iF*S3KCr#+D7?GFTEVDnRpyRww;z4+$?u$0D1Nn|bJ7QJLy}tU{~Lu|&U@
z7M2pwDE%YWJMc?x&FG<$JrOqnL}EPJOw3-gC<?uV<b%Gu=oX1ym36DvJ9D8Z4Lypq
z)PE<tn1$pkxSe%VbSv4faqGba-{v9cJ2AI>w3R3$N$2!jNlu2D#={OfngmqY5`P)_
zP;d0o;!UU*G{geG`{z(`;|tM&gy1q^G2b!Wjz)>I`pPDFA=ENS9)<0)Mb7JwqF(H}
zm<Bg1$`1_wp7awbG}bWt!t_j^LI*?{YLj`R`K;KM(bV5AdMvxTd6aps&RD|A(Pq=+
zk8*CBks(G2=J7Yw#EN3kFSy9D;f5((H(YGAH44mle##|$hiHh4(gTB_^PJISyk1Y6
z*#(}%hTpU7@m@%-bKmQ4>`zcmKrseVh80HrcI2QTXJ&lY<s`j&F->c^T69{5lYJMx
z3H7>$@3$MwFN@4+v?m(=IB$jTcbjGABe_MpeW1)z^dTpmWO1_zZ_9`+XPw95iSviV
zF#9*+&{5%;QG!TiiQ78yQoBmG6dpg|hVB|5w_d@MMB7#DEA2Zo;<ZNO4bKfpGHxBC
z7w}BR>e)zB6mNYqelk>oBk&|`<rvf>PNKWMg;q8aY<>^JghMcI^Wd@9k;jxExtIE7
z9G{~1*xRQ0-lXUL)N%7f)_H_mMEk2sXfkd<a=H7}_}e5dO6c)2(sz%p$3e@5$`Rya
z>r`(^jJbH>T3(64=qp^(p$+`ebsbR|v-PLjhMYn28xxmE|DE-1<4&dce=O%MH&s!S
zx_88{4_V?ZM(KR?QlTB@pcq^O5qeS}#`Yh4@7G?LpG46@qL`4ItKLHy`B5cZ{1imw
zP6l=SLXk~mMWkt8Z&4N-X~#`SH<&YsBDU%y*<c)5b-W%;|KSW*`AmO?do@4fq%%88
zq6<J3obyMve~6J@p`UUs@j5-BrLa5iaIL#cH(5`3$o#fNVb0(~;*+n+sOvW`#EQno
z`{i^|M<Kb##t%xAwX++1fjmvTDXKPC4%agEMeK?m(dnt^>`Fip{evPIA`ouF49C?h
zk)jO4zuG*Q&+L{go#y6}=KYlrPjJa}yXxa1=~3q_W__jdgsy!&Pn#@a{4H5jlyd-c
z5USg5x2$5me*gxpC+2y=e7P4o8N)q~p}sHC{YiV97rYu~u@^K)&mC&aJ(-mJ@QI=s
zshj-B{Qzs!*Lmmow5<6|_O0q>g%dU##}1vP1)&>=xvFJ%XOEzs*f;j7;k88lz4iKu
zj!ZNArFjM9i2Jer89ThFZ$rdiQe>rM)8hgmx1gW2#Xl|Qy+b#gT;X}n=TlZdh=di?
zt~lg;>rWFcuGVde{PSBVN06>~q2q@G6NZh7T@581zYS;cmhcK&?5v}bKjWU-C<4Kp
zYf!o_esM0zGj&Y&YzT))Xal;AAkuv>^~zB-yxla?C9iA0-;RoT5iVdB|DO?*u3s#O
z(p4JyWZtv27u&VZV^4*j`>f1cn{*<<uR^yT%wF+7r*2a0s$`vd?jp(-6h^iRx0<eH
zgx;t)&t8xvz8Zq@5zd)apE=bYeq~kwwR2~D?}A%&S4|kyKk=f*1gC6S8C8$+ylYt_
z1g-RAs`_A^vCM`rqES@-%(`u=M+OgC#%n~iAY!)b%^Uv;&DZ=cT~!1-7&Gy!`wOJ3
z&j^#$Vy=s<A~@PsvUP2k^4*1@!n{(fY`H;6JuL_UrTf=@!rf3`)QM-g&htz=>7qL>
z_p%+;@Cuv5DTe2|Wr8lEI9{8UTf3~8OTeDCzK|_T4MBVF?k)Js3MHQ|S=o9pjid%4
z!n$m0dW(c(RcmggoW5n9(6~enIg6Tf_?Rh6mo=N-@fP!qBXk)SlN)i756?PJEN=|u
zrhSJd@jM5%`X7eG!UL1OTb4ctvhVC5U+V2@iQlmuzbA|dz9Gg_tLN0zcC~C#Fg-{x
z%j)wIXX=m{;|&;zkJEhlR!HrJ&EwKWXL|bX)K=h~cTdS?)n@o>sUD2!eT^|^4b1J&
zH3CqpPWCx|{SZ5RE95}uACUgMZ?Kqqh{hv4NfsxZ$xYTUR)Sr0We+;Qc3m5zYbsGk
zR8QAaL?yiJ_{g4hq^vKgD5bjJF>UC<XM5Q)tEAqbfr>lS{SYJRce-{kEUb^#^3*3w
zW7y-=C#RkrX^7c1c7>xl;z1lJG16!E{A*2$(hphIKRNkK3RwToh!pE{i`SsW9k{1y
z(LxYRY}@EkIec$*&ZyC|fc6eM1g-IEA|mI=T{l?<hQXsm<Sk=<UP5kWd|i&xd+5fX
zUrMbq?o#<n!yJ#=FHTX|;i?hNya7W+c%|t6>*wD_Md4C6ZBc!$N1YFzcqXPMDxX@A
zDnGrCZE+-)LVwOVAv}np3C$Nal=&Ar-n3IF>qjCT9l+_hEiUWo=!i19oeAfbcM!6K
zaUG`qd}wEr5P^9~e#k$wx-7hVE(G0?G%7?Oi&h(*FMHIa_>7hE*Of#*gQ-g8zQP?e
zsC3pj0Fy3C#-*nh+u^Gabf%n7mOJfKF!3bpToJabX51&MtvY8^jFw$Rn7(s(LblEU
z8>OeL@XR0DDw;Y}mU6mv`AQB&1sbD9R@HKeu$O=%{SY{X2HjA^V1NNn)hk@+c*kv_
z#rpg^Mm5AV&8liZ6w*&jg6yLw3ePq_NHm*lbALYh0O0{orh5z{x<ccIqB~dZ{=B`!
zEn$)BryDX*RIx@KrdFIZ7Dh@ezMTA!nADAg`35!Bql;wSJX2{`&iJd<G_97GRJPS*
zhp&-$-Fz}<sB9>=<E9oTh-pPNtaA$dJ}2+E0y3gxmS6ng6nWPtYDhd}*0&DV{_T78
z#9&xFTG#ntqi3dJP8@HamJ(+^<)g=IzBnZM3<T5TmEvdd*rM1J7H_^(QBs3@(6cNm
z`0<zPjveYVX%5+(%$4af8ZKKV3=YiAMJBA3uL1+P>xW#`Y}R}?Lk@{E{A={s_b4&{
z_{}18zItcJ&(KQM|Dxy%HA#7VnHK(UXp@*i!s*v8z0fmAa|e9#V6zdT-<~WypCCTa
z_KYjeImMtpPz|3xb$dcn){U%&|C4sn{gZBe9;7AfU34Z*6~z`Lhx%-@vR@>7Wx)!N
zkN&WqUQcwbJ5=>m$+B|yP#i7DBBB9wHdT)2SAa^hyeO{?ov+={>XW)=9qg%>2E4!%
zD&$pxK&W<h{*OSfJ)#-qC$v1L-YKJtPdkvbfileQFwj1(^U^8OOOw6$@cNmEgHh+9
zJgS`ro9#MJtdRRiC&rl0<oD2jI`-}h2ZlW2R{nf8rAoGS_f~Rf=nU^<_kWLXV)Ql#
zpwS9R-|3*fC#EU2gMDv|FIxXQCo(S8`mZ8Lj9$G7-f^T<kC#6I<$3<BnGD+T#!334
zl+Am{o$-sb7k_0KBK-`G&<l#q*J5OpgAMR?<jjaKx158##2@|+`}3@@r@EGP;ezXw
zTOu07>@QVbH_HikWL#W)1hp4iUB8WuE;PpvAmdW5^y==mLNHzp-A&Q6NzgN5MRn*!
zNpz?g{_>n@?ziT|D~c`Zfs#Aghv5l7b>=yfw1krUUPFZK(j_YkN9DMvq57r{sG9F(
z(R&kyHNT<eoFai2K#ktrw>Xa>U2DWuh-O(n#8=ZYwN7kX0xIp4uOFm~rz5ZC-x(B;
zCe1^h5&-v@7n1Ug+0;RO?hHfOmS`lNw#I1e-k2Xg+m0&=&OtjsABy?*z!SLUFQsw`
zbSEpxX}IK8(8~uPl&--9F40U;O5imem#L545DXP7;>*oc94VS-j-BUO@l9O1@Ib?0
z>4Gl~oAC3dsXMBVY#`PozIa;uP|V2RpUE|bwm*&W!4P=v8Nj~*iS9oVFjY<t@p7s7
z4{ZO&?*HB0C+rdD1{R+#JbB^3e5>p5&&O-P)l^5Nk<$O}`&pRPKm6WIpuh9<zwi9N
ze0(BRmWMvMyy29xj4UmOwDnb|Qz%kxq?+iD*YO-kaf4kQyexECtVw1O0o;75(`I!q
z_|CkScSuU7n#|X^gUKys$Y`;F=+JO<4#PZ0cc`|?pk#<HetZ9dJF${yB~_%T60IvL
zlT>AoH%8_|>vc?<L_3jtG;EtKT`p0{Ax*R!>6ePz;J-tEk-Qfi1AlYty?V8C&qyMY
z&tO!_SA8PM&)P7&QQ(~0TQuUMqs{q6Pw3IkqOnitIHV4A_p?6cCO&Mr`X%(|NLi?J
zk2m)+^VV!c&v+^07IGrNFByGCc5c{Bm{w@eoNW9Wos3+nT}hSpjj-e}Q7rH)&yp63
z2i|<I+vHJ{-eu*q-!p)0XEknxerw66%7yau*JAEyZyBRze%bWw1Sih~+G=mPLv2qr
z>5K`rDWe5tDB8tVIuGBy<ArQ_zRUAD>so7<ougti-*mb29^s;x=d%@-Rj8qBZ$y{Y
z>#9jgLUaK!p2G&_h&1QO`!Lg0IK?@#{dH%i^Qy4XeFsdN2G7q{%ePuE4aqZ4eDT-u
zHmOy4NF%8zpTxR+S*p4pQRov{<I67GtS*b<v}Ap$C_~o<BYgabXm>f)T5Rz;LRq*t
zoR}4{oU%d>MxdAH80z|Sc2_Yq<1-1uZ05?p11bAPd$M2k7HJE@_*zzJC20OnlW3Dz
zk)Dg_z&#|{sWdSR8rAt`B|}yoc?ovhojG^9&|T`tDFz-}dL)V4{11dpFCut_l7t&S
z2t&|1%c7Sq$X}?fL(4hoa15nzq37G#+l`Q$NVKi!)@FN`F_T`4v*%P1I~sr5<8+OX
zf>Y$|*Ha$826GXa^S1Q8@6Pl|cK_E~`G)^&K1O{m9@pK|&-W^nam!5CHF_!5o#OY(
z@KbqFa&rm}@mvWa^62=H+A(1<hPG)aRG}nf)@BY-NezaXE;|`r|KpnjeFqtrxS5Rm
zwSdxJ<=nl2qD182>K;lgx*{08m`sObpFB4feVj`d&73E0-h<K%-Yp~5Es90E<2NOO
zIV(ZFJ<%^n!##MZ4Z$esI5q3F5caR?4?z`BeV7wa*Ihkf6`zkeu}8cl&EyKQ{lq&N
z7eO-cW~hY(Ms`uPL{2oZD@0=AaIe0+!mSdg*n_JRQTi>nJ}^j6qic!;d6F{TAU-zA
z9yuo`r{L_liqNb7d5?~Yj;ryn7lTJvkGsD+pfM*-&QA`o%MlD;myaA;9rY^w<=>~$
zQKjINU-hXByTrA07KsXYe<$?#DT*z|iP$UAwWoLD_9ka`P*J)8RJmm|!YZ=jKsNp^
zyBynfWNCG#FcKwq3kjNT4V3{+4!o|*=BgqRMoE|u@~DQncs50&OSV+i4Cb0MrhJ}8
zd!o1Y9$UIktsX#SuN{G66S-7_twl+~z93?4ZF=*N>QM8MBTi{KEj6Xb2wtBuy^=v&
zURl7toq=ork==Rg+cEWkjfAU-SM_%ByMc63svPok)3}a{AB79@^s!tN^n>)`X{htu
z9ZXQA=+TOOHA9!A!20<P+`yg$s;`yJWRX?cewz9@&AUT{*H^E@;0Ql6XPtnW<ei*<
z^ygz%j-gszUUsnm;gR9&={qLsR*8NM!C=G_;W8+K9e-EYhV3P{+A-bd;x^wtCg5aH
zzE!lGYlr6cG&Rg(YFdSS6;Lm_=B4X@;8r2I36P@1t;Q>@ep}9Q&aqoeozcL{$-_IF
z?>aAigIKtXM&3seVua&qsdZ@|8&?Q1q0o@qF3po$5Qm;|zJ<j{YQ5F?faE$IICAq@
za!r8UJDbZ}G@I?bcR4Xz-xf~TmL?8Dd=Ev)`U+Wg8pbBzj>~fDpOIR`LP*uC5DXEP
z7ta5&(=xaSZ7t_pI=*CD`0I<RQI@-{P1}9BC)L*TgJbuEg2ks7Y;G-FTf@|BrMP94
zCT%w3s;e#NvX6pZ;pq3{s(W=%PYll@96uahs55an<yK_qV0waA>db?Bn<9?7^zB9X
zYQ#V$@;zjyFC;F@K*6{#U;``bmfB%=Rw??Ax_%kO)1e<-%iOr7qF-&LKPc}%Bo;2U
zsE2anF-rC|QOj()K85!An3lG{d-OVug3|p6L4AhD;jRGD7szFSC>$pV;RsvyXsWSX
z6aK!+0V_@5!e5hlvk`~m|3R>?(VbN<%gA6>Ls||NR5^47=ed?Go+zaj8fdvFY&uc6
zLlP9|Z_AMM8}ezhLf52^Q>QgxEy5CQU3As5HzTxRcDl~2Q2OrY(Ft9bQuTr=m04A<
z-0-sj$Dw8QX#28o-Ix*s6N!#D*Wa|ix#}y8aT{B{2Q{w!DRP15!LP~N^M7f32?mBV
z#?O&WZ<#qY)flX;{<u7-UMUD_<833Y{rTrq-;(@L0qPdn7IoL-k#$)cfUw0Lc7M7?
z)Sh%_uzKq#{6m}iNM_EImNufxO?}AR-eoRXpLsU4fxab6M_({AyP`MG$<}~~8MxDt
zVHJA*llh@A&pB~NWHR+k>Z<=KMqinAbTFrq_RVnZ-g|orLTNRnxZ`CfPz`$Iq{iNl
zej6Ik=_R%wNUjZ7pL)93faDob(4uIG2mJ}GY#!3(q&~SXK3_d-QN+V>S7Z=-Jdx|4
z*-o6~15WSx_OOl9=P0c*q7;r9ZFl+?QL=-q{D%Rda=)q^htC>=%?^*p4;C^U$&L0d
z=5BFYg(C9Isp?Uy{6mc=P<>u9y!KTKdfH6O<I1zvu$7(jt8Mbg`Y!et$c;B+z0bPU
zNxB_&q32OE>V|#G-`unu;&LeDl4LG*K^fnp^PO+h_d7;~Gzwf{xXUF8TuCDfDwlZL
zN1Q!0WMo%!eU7I<`;-E#9uQ9il+S&S6X%vz9-7fdDRCY**<?VzkJecCU?hn758^!w
zafQzG(NYO{+UyJKOTEVL;`9a98^%T#YHEj8cT}+{Tmpk8oAn>$`h{ZG+lOMa+!Zor
zUNylkASaT4>i3A8XtSYTia(v;ioqy2@nu&KrH>x^=n%iKqbyyPAVhak`5gKphZJ*e
zdlg>reWmjDd}F#4W#X1a{=r5GNt=c3kbqYs^SqxTV11th{+bIZD*lD&FP@EP)5&<d
z*R-aupGv3}PT9HL(d-iVfLK53rjfGKhmXJ(KypUZjS5Z-0_<I)2Y;$&4x-&xOHj$g
z{3m3V0$h<_m*ZeKt@~w^`&}&u&+6UT1)t_yn<;M_XAU_bQ4c>)tW`yqXTZzTpS@N%
zWq)n%d98=hfuCX8hXSy-A3_8t?WGpvU?se25{q%8`j&cl!BLfVCk?(XcGbpwsqL0g
zOlB{c!h6)P6>;U^DYI0o*)TzBc@3esop8U5p*t6*zS`Hdk^6Wxd(bKB%6Sx<tyWL2
z!>SMex2A|^IT}INGI|BHb^QZl34`My;SD&wS|_J^RSmZY*Synf<-L`I>Kidfx<A1*
zARQHvlL009z5?Y#i|ln+Qf~znB~BwynfF(HoyV4W=Tr$IV!d0#ZO0C4SCNwBHW1sC
zzqFnxUNuQ6_1h)hfHGf0h3VUx;{Tvl1o=^i*ZCxO9SH-+2n`o^XAr5n9~o<h3&-vZ
zIG3gktNa<zVHh}Fef<Fl)AFH+z45<7XB)GL7gs|w(7TSGIV_b6`uc&*A3hlp8W+0#
zkJ&BDn2z3M-#^*RkKkIk*(?ZigA_ZIoM!p=JH1vNbiQW7Y-2mlc93#RiD-nm<+6#a
zBE71(L+c2x`W~Q-ofY$Kn1@0Ryd{}$c(pZX_XRWWk1Q;+arlNlhFn1IOHsrEYSD7{
zYpN5tEScHAzT7L1b~@Og!kcmEvPA=LQ}gsQTV3m3Y&$M%#ZR!OA`<`)|FwqZvralr
zIs*7nU)k>t@PNlPh?^O^UF-o_36x)c1ssD9+sAC=P)f%#=5Jg|<l5B>?bSd@$ou>>
zYS4M@%yNS$&#4sL{cD~pcgJ15%M`0K8T+3mqX^aSdc24G)gGmwCcZ2xcc*Tq8`_4J
zj`1@p3anlo|8AK?c_i0dCELNEoK)?6#t6I>xMnZew2!$XUP#oRZ)#L_u~kD|4Si;4
zB1<^pq?0+6f^yg{ze27kV>(4lZkl;!QuptjbC|!npR0!7a~hBkmB%acthlRQ>Su<F
z%DckVg5`cG8qe3q<LaPdg-Y!qMpYM!i1p4l9}!bKnh&ydasc(Fu>MQ5k?!Ob(uyHU
zu6&0KQww>~wH#oA6XKftwx2UqeS!KX!bA8@uSD>QW2LT{5w*}*dn&-F>(tQ+(NOof
zG#{byfPiTK(M!G=0y6TPkBw1%k;v0Ko268S-91j^N)g+bd1761C=%x<(0X}mOorm@
zowmiiLw%5~GTXdMTYC#{`=fi+eO^|Hvp?_GLEjBH!XM&bSL{xbd!gWTa6-&SSjHvw
ztV*hzFp4%K8qA3au<6BqYaFz2Vc!!#y}%$77Rh_)1YBgW>1I@H5T}&#uEzegmAgHc
zP}-fN(r>e~eix!o{F(LkbQrV76B4Lpo?16hI~=l7Ar!!vsHPHyQk!$qT|*CaXyslL
zTa?s(_R#Y<=6WEcMH55PBU<<B);=<}G+~e+sJouNDEG<?TzY$hbKJdXG@sj`f?yp4
zv&q!Qha!7YeH}h^hxDY<h;2fP0>XdMY&|~;M#EI@p@cJ|IvY7P%E^U?r^^^OPz`T|
zOr~E<^0nKEXmsukZ$E9+l>m;8NVgRy3A^_f*+P!hWMU-W3R~YVdrjWGeV7gMl1+}y
z++L!con3T6X&?Z)o4VyywzD=C=}6^V7?&kD(l(|QhTb=oXr9~|ep*`%T}kusTrk&X
z7{n5O)%fKH4NJ*K7hrHQDag9<O6XWb0NbGZw_a<A!=88tdrw^a>GuLENAw_?(?R1O
z7ls6CMpjw}1|O2xMivJtp|XoNAR-uaIRER41-T?D%w$;|b*{^6PF*+K-g8B-J#&x}
zLv}%2h_TP^F`^^b-5i~Z8_n@QQ@FN0l0(nlMNIB%(f^>ZGzJ_(Z>Z}{zH9<lkUvr*
zqIAFy@wNGnjL`?Sw6}1p$|b)ihMz8J<VR2!_VW%5%C%D-aqb|wuGMjPH4T%PPC7D!
zpE73%_vvE;Mi5~|%`I$sv~zy<PNkvkBU+PZ%(G<7Cqu&6EtlB`a&>T_?ep`*4ep@U
zih}Fw_1x!@ea4eIa2|WlamVi?uiT!{&~c5<a@QE7K^TL*5Q-PJ_*<JZZSHlxsUF7j
zwSc=Cr^3l=R9}-1Lx<VSuL1csdnuZMr{$*W2E!hCki-^(edJq;$7}{EH0Z1&LRm?)
zX~|r9d``7~HTek{kr8!O{U1k8>R9s|LAgZ>RIkWTharcF**tf>y>Y1Mii)?}&FDXZ
znj)zI*SGTC4*BqANKHwn`uRIWI;V+wcn|Nt+zR`!HD==?+u!RvFYSNQ*7MPmFZ=l2
zSOaC15;f-H!sW88M`~?EWs+F`+z!;ynEP_Kqp-^MX}E`;_+e%`?p4`$WKSiz{(7J7
zOS35&i>!jP)ZDEe8(E+|5EB|WgXA*dysaTQOlcerQ6Kh|W3D7@-%_JN;4?Q%;AIE`
zmF)D-&VR23aKm9$y0GLmxT0Rj*e+)1@Fe*@LTF8l61XZwN*FooxW9T;H&74nJ%}CG
zNh`4Ngsd#9JGfkKWweB#njfU$?8Uq~L)n+vmPg#re<!DiEJBuvFpZ$R3sl`Rd^U%E
zw-`@86uqQoVy=Gt=KHtHGWDC8TFuDQSSKCdVaj`0HcrOGlK0ymj`t6hoY#I<ydiSe
zgJ#|9+WCgv?z}I(R!v{&Qsv)ot4KLITR;;S=S%KPL`7;M_k}3+f{i<teQt-RM~a6U
z!V}Wn)w0f0f;*4-(Guww-5bVwt7#9;hl(}~wO3P|5B}-pMzXbEO?U}&oB3VrSNgvC
z+SM#{vD-9J6L96F$(t31pLZ`UZ`qm_#>_HVrd<)vZAJ#he|Xteqa}q8-v1HexmuSB
zr&e8r#neJWIX9*cEvq=`_~^TM>u3=3AOp-%jWCxGr~7d@Roa67uBrHwUsrkqKc3X4
zdlzV1i^<=gP?vM~!`u@>9qQ$FcglAkmgG4Mztv-=G4gbvo4o(NsBz26?`K2*!Geh4
z!0o-lyQREr?NUIEGEvBIQzNCEZkbdVU3PINYPi<M)to)WFcB_(hg%vn^}Bpg&etgp
z^IEFME+pChX^!t>qrM5sq@~rB?1iiLEs}#2{$qq2$Tf>A7td%M_guMgTf*JpJSv#^
zu<K1>Y?BP*@8zA?ZLP~Iwx;9rPihKewv*8(AWti>T|0NCyJE9Ezre<p{FK};xHWE(
zG`@LM>Yfs>{BgIYlaiR<ytQ(w@y`ysKx*N4G09o?-t)@}AtSGeEY|p`fT?%Irdu7G
zDmvT?)mHAMlq}4s(a0p{<sB_lYsc6yqccpYcWaju^?Cm`Qpj|gWL9!YFj&etpV^)4
z_hO3_*c9;R9X%Hz@&QQ8XCt31VYLahK}xqzX8sJ{@{Z&x{h6-vocMj?K9l^PgxF}$
zYTPcn7=+PcFiPX>&vjDwQp;N@ad@1b6Zl=VXfl6Pc`PKr=J4Mv4eAtMN0<rx-0Se;
zHPqM#q*j}J>#}NpeNmqE==Mv^GxPQc)s;OF%Wzw%-8|Z1RO^iuj}4JW`)(e~XK1^5
zmxJTtQHp~`wxYha3l_)xy}No>{jr3T8D<?}Ct@xtt7!)--NZjYo%rd`%fRy^m8`-=
z!#xI^6RAxvYEAll$2EI$vsXB_VXvUVz_T<5)TF)^eL`FY#Swi02&A4VsD4PBR6%*N
ztCsi=bHMTK2Ww)+j=}m~OpS)F$lLZgj=ldTBDv}_1Hbz~II;J1bew7NdADrCe?%_0
z)!xjszmGp=wpo9;BfY<0Z2avU0M|v=Rjl@W$l;E?@Z+g<x3<&XsygbbWQzKZ3(3j9
zhzuXMNJT+rIi<VV^1hR*muS~S7mb#;w4QDx-Y5Sp$x~I0P_de45N_h{tkTs#>Me|T
z%2V6J&G#?5XKDF9tw%ZK5v6z@R1;pt8#>U?Ic<dRl7|e+-ZJ<)4PThayM!J^3Bxn1
zsf)aoGUNN0Y8<g56?c&|yko}gw2PoQ;#+%Tg-9Y|p2rhUm~QTs++OO}pOp$}>W&8&
za5TNkA-#A-&2W*-@QD#syF|f!c>l{^AVrBb)S9HyDR~IB7`Ec3@Gj3J-~+yn%9H0&
z^2;?wa+IzcgS}HGybv!tUSF5T-O-q(3=Po<h4UG@#H~50-JJ`y%n@X1QqhIwIl?Jv
z62n6-aO+0-`D#OsAg}lxh>&;C$3)6OcUa57S$lGYFj&X4YGot!lhuu>j&V7;Y%@)#
zF<!5!nG2=Gy3NcazhE48rs<)_@<sV~gOZ53=!wYF%Z~2!gkuCz${b$37p6%#aoKr`
zHZ0d{S75P9N}vTd51)@+g(Cb;D9KeMEwcJ&dzT~Z1>p|KDCU)%@P#c#jKRC%whVoH
zE5u%7sRg#}ymnb?$}z&U*lwuKtSTu$TctOEt>#%*fXX>1j06mERshf6&OY0;)TH~m
zz&qYhrAb^9b^;nGeMaDT4$~t|3q|#=jm0B)&7WXy+wH*MY1@*4k2t&b9xMbH+8>g|
zr080gBQE<07uid=V4axx5lOC3tRVdgE9KNsSl<led&szZ+=L(K8Q>VTQQBT=XO$An
zU(X^AhxmG8l`irRNHG)1VFw(4UVMH*vP)EsNHK(W(nDJQ;A#Zw$+!@T!&0X`oY%K(
z@`DrKNS%Spi4--6FqxQ8mp9<1{OZHslO^JnuSPN;xkXny(~AWmzRnYplovk?-s4tl
zx}2J`M>KQqv~>v3WKokOO0-ek<Fw>?#bd#wPc?HL=`nQYgZpAg^?0sYrEZD8EjJBv
z33}Nt2dS~L1P@mmdbibd@EON0f7|jsCzP!drac`o0@2XB#!)nraZVoZR)VX8N$^}!
zv0uwQFK-X~;C80t&6BYUJkQfF_4B=O(y`Na(n<I(6@U8H4p4_eqx>Jmh>pMCJoryU
znT1AM0?z+TSqbioO_y^I$r3da@kOdvCM()6b2VbdEp@g0z<Vvk_U);1<qr1Tl^VAO
z!*l+%hM#4v@1agCIXdYCr``!}lJ3`4ctg;5wXZ1JA7wA)7HPO1-rz6b?ld|qT}69!
zUv7?fax3JLU&l>Ic(4DUdZ^REH@UomeP{jZVx8B<g6;FW<&sY)FrVTS{NB>;krWTW
zI;y+_92kJw<4<TWWE`vaG$JjSqNrQpDC*o5CAh4Cl|*r)lMbHMP3zr+v>2J+s&+1o
z-3|_xmqh<688i~{Ik4@>T(?po@E-VZjo$No0<3~51?kQYFS#^a0DFDjk7JV?8y4~U
z?oxitsy*0A<jJOh2xa07YBie8B3-RFtRlBXI_B%QU-sbB=Nu2Of9bY>41J%ozNli=
zM;ILH2!Hn%+kR|fof@{WAm@O|)}F45O(Oa2E=W<f>jDQGA5$W6)f>fsrUav@8PcCD
z{^;Ta@38557C!|GJLcvE*1g4$J1*|aJN!^HC%$Jk?^?*LegFTsNxd?uk$&<);^b?A
zOGTPB%m2>v$w#{QsUsde0b){>W8j)N3)4eTU8jbV|5~8EzI*VH`kd46Ww75b!T%T6
z)&0+w!Jg<xv&sGSsm6l<L#3tB_bQybJ}7y>C!cc0{rd6#YrIYML$xIEMwq5%i^f@n
zhkl_8JsEP%TZ6WUi7GcUSlGMy?li>3ix>aK1gwrm`YkUMgrUpq8v?9eew~71CPJ3`
zHVDU5Rz7J&f&Y!ww#@s_Q8?lSVT|j&nQFb<QC}0|)TqNP8-xeT(wGlFd#t`GAK;C(
zb+}7Aw1J3>jP#B@qflS%MQnDxWK&i6(rQ9;lV9_vh}i>QwsV&cHeP@79U)8%>OhLA
z8L4gkOhqU!6=swZu6j+R6VTAa1o+;JFlleI-x%KHzdZQNz`%f_udn~mbNJI#yOQsG
zx^I^ZW^63~R@&{2oj4)2T@(_DTw?5QHGK9O$4d%N*kC-v{jUjR`Vqrvf>Sld*4EZW
z;5O`RJM3Y50k(6nU9~LYdUUg^NJ6`MRtuPf?C4ID1#1$otsL%R;nTumVqyb|kA{CN
z#VStJR^5y`#%yFz3AS}}!dmbXT51rn_Nx*os;aG&&p4ZT7<<rDwpalr@)2mrdJAVk
ztJg9<uWM4leXt7Hs$rkR+$X(njp27_b{{I;ZwOdjVs<MM?I00*+si#l3+eE|65Bxg
zuu<P0CD)l2PT{?su{z)0{plFF5A-5i<+-o6Zf-?_pSYYGWZ5dZiiP!_*ECP(WN^ku
zJMBh-C@?~3U0|%VrO4RIo>2){c{N(?4(EBTbptcz({+m&K`)s(JbrFB=G@Zl(-yPT
z#tTD7uea(x;XmBIy)kpP%oelu%d*6#iCAjiuv$)N-ky$GGDx|!cpjRoi)fxJD#(1-
z4{R;Cv$K=1x3{O4D1IxzK48Sz-63LUPEmutQYn!^W_}gk|K~RH<)5d00zUY2=Y*kM
zfqRX0E+j-K62mA9Bc<F=$WsHyMPq83$shDr!z`37&slU(Ih2%?oXeSVQc_Za5T|y<
z{sLp{Eo5hBr;l*Z<kPF3i~Wmokso!%f6TL8zh4K|hbM>jb|~)01eG__r>Cc@BC6v~
zC^7dat~-p$$F%XlED5NUz5l@34FVYQpdRwZdy|nL?{8Y|bilXQryPKjDuUL=>Ri3X
zYP~x(IR&d!MyfQEj<fOh72eK`3!Y21QZ_i^RAq4Q-c($<V_Wlz#P#LhqZVQ_H8V9m
zxzu0K8%%^V!x`D+M}(TyiiOP3H8l;l{#9;ezh9q93JV{M18*K@Iq!_YJ5rT{GDACl
z3)I9v-%M)f`48C#W?b=_Xp~RAWQ|wL)<v`lg{~+@ELB7>cK774dlkMHPf49s4O&;+
zAOx<C@}{8mM3H88b}P%_saaXViy*xl67)p<devy?P3e%o=7b-AK4AO;q$y>gw`{R0
z9HhYxb^6b|yu45j8+`+Vn~GzPZ#Ia;U7H?V8YpI}2^=&2csuv|jErqfV*oITAjWfi
z=~}@cr*N1FeF(e1RmUml_d_r^IJlSZ)TuY_cyvd57Z_Ml>{-Qn*}pbHc>Y|QXrgm$
zEe~N;6cuSB4+lQPs*&48qKE+mkCF^3!hX+Xq{4ZiK43NEUWT&&T5orEc(YN4GA+x0
z&^kPwPc&ruwZuEtn7dNtNSC1SeM*)W!X7<6`RsV}$b{lZ>v>a24eO%J<Jpkly^S_G
z`wAy0B6~M7m@=Oc+$I>9{`R5T$*n^joi4Unu>mmh&>-DyXs>FkiqeC$H}PB@t>$P7
zrK$IS7@}xvYa`M_mWmiwrFPbDe+40%#P4_6HirdIxfNstcs~2%=za>Qlq(<<{B-|n
zOY7WeB6ms~{|QRm!@-X`ZwXuOSy+%*u(Q~1k}LAVBi!4|-TB5@6B?gM?Bfzf>DwwA
z3rdB}pHmVOdAtcJM(`6(YNj6Wy-j|Yhf&2&9zN5+)Z5#;r-?Q}AfpqF&fEb84<(by
z;-^^V9jo2Al?n@S<HtmF8=rmqaGdQkmq^fUHwL*&E*R-|myl~gn&rWF7SFb2ZLV_5
z6<1YVAsX)%WJT;ghCT$&DR}YXh4Ti%Sbb+UmWrj*NW=vV=1%X=$JbVNH9Kx0gw*(Y
z(iF=`XT2J|$-nw?`9;%YUy(%;^gMG~kEYk8rlh>Isd*I4_+U}2+}hmi*cP`dZTYbf
zd%rcBCso#7d9eiGfl>e+l&OCDfR#g&s%%3ftFoQdhzM%{MGdn(n`r#K6<qn{fXy_^
zH{9`9ac^yH<zV?XjMA+bnEB7WFS=Rb)RAZ9aEZ{{pu&c4y?uW(3ic_Kw#JM-LTn87
zO&o%Sdi=N-B{&#JT^UjQ7PllVElpT{3&wfz<m+$y8j3E&=P@_YHW84$bPyJjGBVwX
z=(JML0-Y^YM;)$P5i{;hw7x%p>!s)9wqEZ(HFqj5>Ge~Q+i_oJ)VN2ChKvTgc3irs
z=rLNAyT2Z#F;?rl(4$NR)w4z+9e~PCi7iImqc2C>N<~KN?UKR?dZ6IdN5dQ}AaJb7
zW7ta!P*hxSZ|me;d-ewKc?QO6JF|&VC3niFTZUNxv04?hF)akVkp{{Gqiv>(LPw#c
z2+iT4nWBQ03^vC5f%k3;iuYUeS7l>n_ke#TnI?Q%4xb)ReR*e#@l?BmtoK{2z_~kM
z8QLaWdRvSs4EC|RuW5%|GSv>b3p~4AJp?;@%3&VVcY-RYyB@HR#k>g0d^g=}d9Wn#
z+knE{)qe)+4?N+~S<k^2PgIqkp{~3e%w6MZ%d?0AlN6AJ%GgxhS*v0snHlZWx%KCB
zi!QPd4jr<!<k%2MifCEI5GNi^eR&Zll9w(3-`hAV>bA8suxeW5U@}MdCN<G&?5ZDH
z6f`zAPB)O6>G>cO>?&M)GxrHK9t{r$KU&|E#qN=H&s=%1ZuaQi`I|4(o#1sUb4h@8
zFd4M6Dt@kA0PJP8yGz9+_n(D*v<>H@!s?APNs?v}X{o80nWf^gX0Jtj-ZKyg{qU|7
z8Gg0>?HR?NrS^1!MX{wI5#vSl%~;yqT`qG7_<Vr#ksu55GE@SO4cGZDJn^3SZqH&u
zrQ_v}x{OS<(6~2()xeRT1`_np#1py#m#vU%jg+3-<uT?T9kBcP<~<f4<|L47J8V*k
zzQ*o3n*3FI%YD1A4uOJOD6FUL3<9W%g2dLSzY35^u1N`)z_Jqdafwa!pz*saZreQ>
zDx52$)x}IouLd(JCnv`r#EgPm-7J!Orhj{tDdy`L6CHi^jj+akJ%~2@Q?Ipl8S7t<
z!;KdH-peG8RJt;obYjn(#R8M?a2^vF?v7vpdhn4B@(LyaWp1}=czXOSy#3mCMAJdq
zLi5=nvLCea89w6q&3$8c<#0__d3nyob8K~_a=}5Y2)Ht>v~K<#FU)O^3TW5YUiw!r
z_>_3^o~cJKh?9oZFWhnhD*j79-)k^7`&+5yY80IOkWk34_b~x0!?&4l<a_>Jvc#B=
ze$J+!VYA@DvL86G4cu}p6)l2L^(i5!gVYfm2iA7CDuXeK0dX97ciB+~ds^P*0T`&%
z#f!s(MP>z<H7s+V8L;%zt=LuwyE{-;qh|_*Lc0NSEQE$%zK9?*-l_z8`a+dKEN3-L
zy*%4o<xqAzSH}&|Rg53#o-9}P(-ggW!gm)7qM-P^RM_q>Fj1H9o?b(x<5XRt;MtjN
zpBm5cGZ6q$UK-%t%bKWd{l*#$-B8=xw{I_6SlL(avZgcA7)&W3hLV~h&MJED8SmLS
zPdyHz0Vcs51LXNWy;}3xA0;5@x*PydzACutG3vJsilyzFzc1e}J6`wRq|gxQ<Lldh
zMsN-jCZU;roUOwkUs%r)1c#Z&f*9N*++_7#76=Y?|LTVWyPiAbxj<lv+@BGvfC#`a
zpwiJfkDj>_0y3*0IVDBi5donQn1mxoj?`STulF-=3fVfS^xdz=3sf+gVW#TNU~@QK
zUEO>78!;<*9@VwGxkzEW;D=q4I{A8blSG8$TKOFsdy4nYmGL?mNrktt5MlZ8wK4l$
z;;U}v(dLH$S#m&vtDU0ndn1kD2}Wvr%^ECN+M7*%6sqnyR*Tvw<K^W|hWT`e5$zwh
za0CvNIWYSMimd|eY9HV01{~{A3{i35>OaZ<mXw1BhHJfN?je5yV|IJeuRQ!&=rr)b
zf~HCv^Bu|zBX`IR6yBbJi<p3>!oqhRhg!&b{DsSyu@;E+&G5QFy-ApEjWIhD%d52$
zaplqQx+~NM05Qdh3ZG5Tjk_c*-Bn^)GHMLm=Z6<2171`v0&0NS58$DZa$$(0f*amx
z=(et)g7nGP&+`pY6}@U<An*5$SNJ7uD_y!H76C6YKyH%YOgh?WIqAc>uH(~TY<e&V
z<9daZt!>uB-*E8k;ZViMpjBSLKFEXg=~L<Tzj9)l6LFhTpj{Ye=6@#x$Ar+<7^LjT
z2GiXIOdx3@4G>#$yy#IO)$RG2I2F%ffE#BNye7gXSV`}hL#||?*!R(+{KFVZ+aDGb
z3MEh#P$K3l>=qFU7@+djI(>h=-yw)g8SBK$$Cu*&>&Lwm(OVhH1LYpKs*kci@w*(!
zfB5s-cmuas5$NBzuy_6xxVGN#^bqI10UkS8=8&ZUGFE4%4WY5~^|*#=?#GXpQ~@3>
zhfr67yE*vnKAl(hSdnW4(AzwLT}&diIWTvJIKbzL<t$(VJG=E&y7ns4sjCeuA1ixC
zO+X`}wm}Cqz6~VT<u(C%#pF7Xh3>Q=L!{-$JKm<Ao}Rka8h5oXoS>^W#GlI0@M(?a
z^%pCN>&^vzOjg|-5n!g=L<HTV1lCmVT;Z>85kJT2t<EMYmmF~}p>uGsV6?|ze{?r{
zwE9uamPJtpD{VsxhJblQKuTQ#p}aCyM}hkq?yfRDBr=2UXSeZv+Yyv^!Ht2khylF5
zw?W3CxzQKU@p<b?7d0eq!<jD6wFk|UdjQz?rgjV;xX{S1f}3CV<K?jJb@>Gx%C~1{
zA&WU_>(!+2Q5PYU+0V<~=dfKAMWjV#?SC=&vC|p~Xvy+KATiuN1+eg`g)F$bA82ej
zhY2f=woM`af(2DYHBZ^%Wp&mM9%%3Cl1@Q`ILoj4$2eCfR-Y9L-76!NS#W@c5m||e
zW>V0=aephX0*2#)jr65UhV+{TALi(Npp~^32Id_AB>3Gf2o%Lkh;yeGs}9ryI?R)H
z)nhl6;Dv3nSlPF&c_fKsp|DciACD<B2o0f&sN*Ss#dCmLFze>*>|8e}BG3@@w7=2+
z=-I1&f|A~#*(AlIK_6sO^i!HwGe!8@4qLn`mhmL<e`0*Oix(d^wO%`QWR+)f6NEV6
z?bThz%8Hs9MD_4pTs4zb(cL;GZe*?Yimpo}H=mP`Sb&of9$yn!94?=!0Uj}aH1J^n
zS5Z+h79-cZJ*q__oZIEr_#a~X&LPfYD}%*WWfBF(S?ZH?5>}%EjYijp+j+Om|Be2?
zBRzS-n47Q2$sojxYi%TR{n$lgV3h3ufc8-zZK^-i5LJzo=901yKxJ?PjSZ;*SZ2_O
z&H`*WW~0i35Rg@uiBB-xL7H1y&Tnh_($>aHg|8E;-7$<@gnEbzi1J?J4CU&U&BgvS
zz`aA;%IxaM&jGkp!$FgmA5QL&Fg7r~eY@`}bhOGXai(m_6V$WvugY=!8rzf4_)Vei
z^nE(1xWR)^>+PrjmAZ6kY+8b3n98!TRAK^6&ZOks;`rirhimh+J~DEV^U;Xsa#uq}
z>R$DhX0`jsqh+^+@f{G?N=hwpwp`PDvUatf<^iabVVKMw6_VYRVDjv7`quKowF)`Q
z8jVDA9cc_RhZvqjRZf+Xq-ZeQ{t9ndF2nAd$MDG*?SjD|0B=#T1=`9IHzvHR61)CE
zSDAz`r^gsBNI(HERee1D?KL(P4L(K6Vzt3-08I#%tURX{E`r+P@Q>s7HxWg%+-!5N
z+2o{3fK@$`(bJ^C;_Zg#Ad*e*-1#MK%7Vl>&;(rD0F9rjIbIbzH&kjLS}gkF>%BG(
zUeIYI+8~p%vasE~7mh3@Wu>NC*_oP}GNObdE<V<8xZ4u>ysLKzpr7C8CkK`}|NQ$C
z44;mYcNH4WGf2J6&3EaS0(^f@67aUMLC|9lcr|XkR0p}v1KQQBThy!Fae^wPnO8mD
z@yWr$B1Ih>zD)o|ZHZJ59K8z0pDS7faLu7E4^b!6o$A+x;AMH_*_SV0N<bDV&0<M#
z{yUigOk{NS?g7bAkMR7_;Et->MKvt9ELK%lQRdpbm=2j+(1krde*T5@fKfLQpfPa+
zYi!v8sRJtv3Xp#)kT(it?d$ClAG9=_D@$hB1Bj{7$0Hg7+&eKE>_}G_4CW13MyJUA
zXTP}LDY#P&K*Iz}XE7mQitP#zY~zzPUcpp;*w*132DAoyv23q#lmaA!(qvH}kL{Q6
zJA`fADhO}h-(7Yo`YFe|NL66_Abzm1uu3R=vu^~bU*j8~7+7*&z^11Q*aN|(l#&sw
zwDFC{stN1^fMVc8L>Cb>8QTC9R>WEK{_)2)0MN&f=&#3A9+eY)_EL!1n$G~NmzC03
z&{znV#TsRCXFknKU1b1b%t|zFZf^K!ov-USOM)l_O(3DPd3R|paLikG5qM+iD9~HB
zu}lU@SUhoPed=o}W7P{zsC4d1xyhoMGmVy`0Tdt&q%%PO&^!n#Uy~=rt|7pqMTOMp
z+bo(9x>n~q(=Q0bidJNm_l(X^-_<$m=EQS7oF=CY)30s3cg+l*e_L@y$FB7Q5TxP=
zo(&$iKP*Q60%`SdS$?3$0GU;zUKr4AY-^z6u)jxT&WVjv2%yc60WICnJs=(Ihb{dq
zDg&}Y`$qs3Vf#A^<3=D>?}11T`XL=2Kh(MJ$qGoI1O!vab6v|E$*!OmZ<dvk@)3AE
zC05uxITa<m?*$qeI^e~|-7HG;HG)Ye!dI&tetYpEg4$MsJq$2>lme=57__sy+kfx;
z{ML{|85V@k48ABUF?*LqnteeB21G3>LA8)g2_A97x2L~30?kRDrKUO*XE}Jc@=A*>
zE|<yN%LV%HzrPEBT{E$>YwV>z{PLVDs>Xe2ty6=sXuJwaDa;jgc}%*uGYHS%--0aA
zB;rPEJZx`5&nP_nd8NQ-A{Z<tAb$ckkAO&eMFy0U(JZP4xEWJ1Wb+pvXiCm^j70<i
zxOb=rj3Cp<nYK!xz1e5bX+fYQ9s^~tpE)lAa>%-RqA4`18nFC&0Mj2qcSkfZ1q?Od
zIG`jX<dxsFgSHkv_~iw+`>1aq3!>MJ;k#yZ78}|e_5n&0CUkwW1)+}z)mS+P9ATk5
zQ>`H-qqMg6n(IVku=bDxJUj}->>k3%Uj}Rsh|LT^z*w+n06l)m60Q;@j6Ffu*Fa#A
zz&oIbd3n}Oy_B2juYS-seHI!5#vBqsU&X|U5Rp^=vhr-mufY<+Jm>*A@W&0`{&SC2
zZ~3p4gk<RDM4aROPbB?jBnlcHtNX(}azLNf0aEd)V^I=KpaDC&CuC*<qU-gTU;izS
zm6@utMW^K%+TH}~U-iB9ua#uL?SKe00}H)E#-Zf1K3G@IzbpgU@(pmc0E!f`w|bg(
zhsG(Q8)tXMTmy(7&rv{TvY9Cm(%j+z^210UNI;C(q8FS_xQ=0f9&K^(D~bNq7(Uf%
z9MMs=Fy0X8AO_6}BSW)*YEzyuo(0JIWv_3qP6+k@e}*O&Ieds*a%VHY^=6Xe;15t}
zksum+V1P_7fT=4qEqy4a+Gy9I(V~qk>KDT=x8@DFZQVT2kr$mhZ~peSB26?Ywt7iR
zN^;2nR7w+#1$_=wYKuE(4?s42f3_ph%5$`8ah(M}UMyEVs&9XC;L!el8Jw{kxUmQt
zY7=-%BuA5kapsE6n!=Esufs}7bgwD}M?ZV@Q6Ys&@N&2UCQCF-ySl2l;l^4oV1CD5
z1r25$Xz5BfKqU%o2jI+Un57>6#4MP4@aBe*%4*dDi-c2T0Vj`=19wd|fGvAQ%)~0L
zJ+61&tY0pruY*4DOe4s)xLavg!>^t?qRkR{Sz7L+@p^wuy-?8gxdteWMf`!&tpO0r
zkNl>g=SF`!eYA(b&0&#5c*>wMVL)j<)o{*KYA>A#)J5KLAke~7(40a+lQqDmd<4S7
zq0*)W(0J9BfaMH?F(_3uR;hw42av<J>n!m~mh2*h&DW7@&GfZY7J@8SyARcbvJy&p
zA>H@tcTeL2?BN`thza2cI=5m3*&ts{_{xJH?;6(X-Kn4qsjwz20;H6+CNhvIrtmM1
zo-Jk7A9#kLS|YEx!=dbl_u1wCiU+Z<AqHh>ry;Fg4b#!m&45=f{V<TNo84gP_rFz-
zj_&Sp-XkwAfWC}g4$2?}!0-BOG_SNQ7Ql{x*U^ZT^0s5drqIAGKtXS*ZT`4vW+SQm
ziVP5-%d*sNX9z4pEM$Q>><=0N@rsUt!5Lfc!Ad~pT+&)b;6yN$6#}a)*}Ce`an;8j
zMn*lEkFPa0fWtXt0j2f#IujQD>wT2^Yh&6Vpy8@4sX-#c4=-&Q><olum19b?@nVPm
z_%nz+m+FxD%X|WeKNCRYL2%L*`xj8a0J7a+9?5`O+kmnoY*Y2%G7WDa7w)&ew}bW9
z4{hP#4^svzI!j&-DRJq3w|w)xi8UZ|^{}Q8HH^<(XR-0MDfYHjL*>A=MrS-4`qj4j
z;Z_8I%ZN8x7v2K~`&jfObW!&Tb}kgU0750!N+bRwXi`v~zq|Q*RyQ92f3yGu4tsm#
zm#OtN9%I#w0`o2zxd=LwjO^Tzk(KRP9B-gGu$HG-j$iq7?<<vSZEI~jv_Jm*O(7(@
z<rybYph3^_Be~Wx{<P*M2htBH8O&jTPsXB)a`2t57aIiD0>=m4539z?j2Ao_J7R=P
zIqQnq1hB8h7{F~gUmqWRUtixCAY3#)_>rxND7C3x8r<CiKT~l|++K4F5Qh9C8}4c!
zQuIXeFw;@rQ<hp$0zU2CK<ZHm*_duk#klpm=*9;N1A#{o#9E*S-=#bM)B?%!X(`fn
zfYnvc0`@W*3kcaaF!1J%fN(Z**dp~%)z(~8O@vn}SnVldrS>QJURB>cmRzq`VK4l*
zT>(9cyk~Sb7t8i33&nrr#V;EE^I_Pz>lk7Ly&vhfT0NA1MZ@j_5M^u_Aizs+6&PjY
zlMftYlL8k=9~cdB!UN@1d46_w1t>>26|hG12`gDfV!yh}&30XtwN6-CI~}c{D;&NV
z3ikKJ0={9vEk&IA8s(6Xme%0jnItL4o-Dz3E@*KRjJ7=qECl{wDcRJe0e4eYvj)a_
z7j6b4ay{DQXL}Nan>)z9QrW8>dIQg+IbR1_pwLL%aW<2PJ=Sd7lUVCpZf=XMBc+_5
zG^7##9SZ0J|6RAeF4lU%y}gzZoS^XU3+U(CgZOWU|DT^n`MV|NO^nusYEg^c0JVQV
z6Yrk}!qdA(`v1EXaC7K;u;!fn#UJUJlEiZzb`Khiluf=O`DBlc&B96!$|Gvg6`+0a
zlP*3Mxt|HH3IJQ7olm9x0rMmNV!Ryb3(yPT%dvXBi^wxz(fWY0E$f^1Y;5RPY;wrU
zrg-8h+~EoEeOWO#3%1|`Y}sG`pqk~XV|xM=!U%hdCuJH)36HE;7cl((k(iFr6DI0n
z2j&j3JrR{m$|`s~bzr3QrPoyC-Xkm4QLl^feS2jHp0Kv-e1EaN3eMVouXF$Vl+E1q
z-w}X+vyrT^{ktWf`rrRF&Hr)<{eN|6X75CXu64lB)&xATUS2}<uXE?PZoW1Aa<Tmg
z<nRRw&tD197u^3Bdv6}qRMzc_f?86P3RU{qAOck-f)ok@0s;nXN-@$Y5JDdm0cj&(
zXc9tDEKyO=0MZE&8;}GDZ9*47QIKAR&;<xe6G(v2C6R<AcPD=J9nX2^ym#+-_m6wu
zeHp_c?7jBftC{mRe{;^2MOe+V-+%vg{9S9J;@%544xW4RT0T?9{Z``Eo4+1>ua5P4
zv*$+#jSav3=55!b#<;@Cn_X~3%sUiBQdw2~E}T)uI+xr4&bf}asA7>NlW_L@w?Q4T
z-yqedxJTQ+Y2E$QZ^!I-z1Z~aE3x|ze4C&>TC%#5AvB$nmoARX*?`_>a!<EWPf~xQ
zwgdzsq7gn-=o{fuwG$kZWix3PMyrt5IPaMXC}-4J&NNen+KLYj$0<m}?AZpiFs(5y
zHub&Bf?J^1iOdn^EHyjKNBWkBpeSg^Z6=lKMnhMl{1LBLCrU=Dk=~rzm{G~&ahv`k
zOr<jK8niMXJ@^o)O8+G5S`Kq&wpEzlgL4KwZ===?L|x}#YwRT7@{yTa*;Kz0nZk@V
zXw|(Mwv*j~7vptU0<!y{Ia<`oR4ibL8J(;~*U=#J390pY|2Ce}sM*tpaThvOAu>TE
zh%VkXCwf6k`-xN=_L#`B*FjhEMe{qk$d4g>=|ilCagm}BV+S1hjpy!#eCbF^738BB
zY-T2M;wMyBETzQ#lJv6IB+wz=jZFUAom|t{e9`z%DCx}Y*96{6?(QSv6$U%Z1$I4j
z2uv~nFO}_!-E=zH+w3nhs9Is{wM<Zm1Nv1hZ8a*KLyotW?ufbHpMOTNRKeW^RE?ys
zezm2#P}A`Pj%vYSD^-cvo5<Pt{RCx0`Ri)X(SU+nO=x-#>Y7wIU1Qusg-ui)zT);*
zU`S;|BGdTske?eTgXs}(BRO|W=KkZud!2eLoQz+2I(tw$!;PW3B}pYBUemV)-#_)!
z7?m^6G|s+NPcB?=$#EVnHzk?AYJ02zBbvj|`TT*|)~VZXB%+%3YL0u{@1kOC)Vvo@
zQ!#-V+6`<&Vbr1wMRMEAW5;6oKYEH)LDza{3L}b=YyB#+x>iebOxSQ}e0AE_Hl{hX
zKyF5AxU8(W^p{@)5W^=ZNrBrJLzG^rNuDTj+c36dQaF61*rNXZNy(MCciR_}dgSoJ
z0?uvFVc^s$KrBhP>z}ZRviy$*Q7*?`AB`H1Jryl!`gHqZ$?fprP=}+E-{M|Z@BN45
z2d@|Iuj^{f9fI91CGWVsM=EuX1)v(}{90k9D35t>C%4Yj&0Nw}X6V@^!+K1<dBnxj
z(%%D<0d+CgcTj6A)skF@Gqh|n!}xXfMS2WMr8i~m2ed)Ar;q2^_p_u$)9{2w;7TNz
zGviP3iHnun_CW%BGR_+})e|NjY~&6bd41Eaw?Q8zH)Q_b*!TYgi1;5DQD~E>8h3Hf
zaWwBz?622WWu(g!x2gV67Y<^#x0)fpktZ2)9Ky1x!@j=4v~2j;38FVa*@>a}L28)&
zh7wh|J?s5rfm6>boxOjnLrA$)kN>xukpBzp{*TY;cOrPfa*zaw@-EPi6748u|FT$8
z@*HpJ*ysw%uNCR^2NmVoql;^w)m9GMQz~kC%=_|^hWB4ffF<d81#(s=SDeP2>gC5V
z<Ef(&t`#s&)9eJCpy@=L);}O=dt`43049xtCC#IFiy~E{V%QKbq0S5y!*Sc#B{kXm
z8Gzm^5Ipt5V{AFA%yfdTHBP`{Rx=yzk}aG^Yuh5WDHGhB*g3OH$~GjFM5s)^o&;~}
zRm8bHuR?m&7lqH6x0w5>kEm|G{p-#ti;=X|(1?_IC3C%A-X$rL0>BU{QZ;w5D6U0L
zM}?<oM-xIUgkM)Rj3Kn4{>&;fp0qRlzX5_rqw__RI-VBZ1ry2hc>{B6kz@0~NjwrT
z8myd=?Z4se%VaNn;b=#iHpD1Wd<Vv^5H(#JaK*X3M=XA>{<u1^ZS%|zrJ8b1@SyV6
zHP^-0%-y>{n`90(Q}7Oi_+6m)GDgrw7fSHQ_@+N<ZBy6<Py<Xx0VW6={LRL@=D*(d
zJza$^7%-mu62&mAbFD*6JwH4|p_Tph_CkrpHH)~M(K6HMkEgfJyk*u<4<xE?l6gE6
zO7++UdK;IU8kf$Qdcl-URK0vcQ+?d$!QMZ{g#xA`KH0cNYmZq>i3+`MAH<`&mt{G3
zy`BJw7i6X-ldjkWFQ@PxY+Oa!a=tQ)WRbFSZMX5KLy*=MUpry0tB16g3mKHB#ZXTO
zU3~ha%wT%(E9961oNfo2@lDM2AqrO#dRQinf~95grGDHth(%1_=Nx3Z+hOEm3W-uX
zP-o#HQuf`Z4D_Z@!y<?Blt0fjq>?u?K@n;pmQ8|jCOiTuj5SlSDB^dFt|Diwg&!sT
zqV3grNV)pdT*j(=scECxWPYo=;0<~xmeeWdRUZ-)A8+=#-%<y8pThksT*qVe$I=T4
z!NY?~mix+Q^ti(dv1j)7WAnr<QO(RLn^W~<$4Fc=V^6kmS083%5*kDd&1OP+`F8ng
zu(1*z*#wCc8IB$Ai<2yP)3I$k8^&spm*}YY(gdhlKp2EgJUWE*0`X69IR5B!oLS}^
zbA{@c9pozd$jqctdky`Jhy0cj3X=UGuo49vx277|gSVFYt+|TZKSlNUhgp8ypA}?s
zMA=-GdId8EcM_9p8F9GCtt5!zEQ+Vma0bz}*~pF1>IikTdtx4Wg7Zb=HQSPqzDkMA
zMF*v1OF5eiYw*KK;ES+0g1~sF<a4IY&C$T)mHhG58b65fp06uxf-NzLXkM1cu)7+D
z2%!cN{MdOtR2z{>L*O{@6(9gLf5~E`Rql2wFd8!BhS<F62y`d6K?-*}vWsFXhmW<o
zaDTuN7KSHr!pBq&!ORwi<9uRfFb4=^C>vhRTkr<>1I9fkRAOIo=+S)0*L^g6GQ`3|
z7{f`iA%!0c;qx~ZBwOJf@Qo$iZhzJ6n))*9ZPze%B~c2#aigyDlxw=d+sDW7DuOQ0
z2~(R>UEu^w@q$ONbJu4{7iC(mRBap+X1f;)L`)*LbU~Hc=;(K}<~JqjT{D;BI9{~|
zlo3mA%dO+(M$gmna*lFNnoh*5==rz6!aRWbNy&ZOQifj>>RO6&Ji3;DnKQzSn+;5d
zHc}^jFY}5-g|)S&7056|1#@+F_(3mlKojuk++#XEdSNt=zoG$UHI%eLst3Ma;5=pC
zVg6tfqCwJz6{;GAuiv@B_~zy*HXAu6<!#j3#*dTu5f`YFZlS1%&(uf8`s6o=?&W`T
z&GCQ+0F-lMm5Z8xdDR;fz6<p+TyQ=?N*J9xfV;#{L<#{Ru4Gd-M8b!%q~PUc4BW7A
z%CV=^QR-YHBggc=Ircb1pI31_)s38Qt?qK&R;68+najy586R~91-ruBg`Dj@f=njA
zm!C#`d}CVL)OiIEh<U}2_ZKR69AnQgU-t4RsEyl>O7*lU%eZgXHh}K3om-;WS%qpw
z9}Y?7vff;fWutwWx`!s}b-VgP`lRbvy7lxA_2isFUALBKXlI}1)}vC_+f;kRu?aP4
zO$k<F1mg;m_gs}86&Z)P1oZi4Ccnw&30Z87ZaYySm0h$2kfN4b2&dd%3DI*93%<WD
zKI$MI*6&93TMHL%_<kG0ZeR%XqYf4g$oJd3*UFff&V7v$PhF(K`v1z?Fb0R{J~4?!
zah@?>c@$ARIX9UUgC0tyDg0lJY&LR{mpDz#klqP~jT*xVhbKWIi$cnKqj9fd(M=|Q
z%PJW!9(ErkAgQ)J^lIdVlwjoug-Dpks5eqa+N9&il_oa?f-?ztp((0QopbomYSjb*
zM=04F^-a|gm);-V>ze}+wy%a>MdZw`q*t;&NKY`0^T~oXnX$@m)k;OhD<i*Ihm6zR
z{}_825<yXL_t9F@eABB+3`&6cg!GXj&}q4P3n!sJf<QSA`$k+#|2)09zR^iI7AG8x
z9C?QPvpHxsG#!YC<Yo-v1BJ2qrq@5lZ}kcU;;<)Y6w8xM%8-lC685|&0|5eb{!-U3
zHe<aBMeTpCR8=7zIB91THynA&f+Q0ZJXe3+IA~8P<MW@%$;vphfJK1!@^07dc5L)O
z*8@bs`~%~Xo~JtqIi9PjFalSNEkk|;B!8e}Z{o}?W-*f_UMU?yq&Kq~-6_}7d|kF#
z*n<K-o|f4<lSy6K4LGm`dr&O!yG#)RP>IH)4wx6<hu1kLC@%H%!Up%?eNP9_Suqvj
zOj%?X?H9;^iO5JLmPHvwTv;mNPa6xS6U<!^lh6Ey<Ww#qo~t$5DJv?m&lK;*Fz@S_
zF$jox*hCwOe~T9JwK&8C$V^Y+x9HAgtBIVW?KTGX`~tBYS-7QOwlKX#)raj7En4$f
zePowvQ6MYh^bSz}jebm=Rdrqe6La*|&wU!Q?6i%X>^he4Lyqb6BTZe27s|22McXuW
zgzQ^+pMd!A(b#!)4{Cl3ChVP|EF0_2E{R;oz(vjM)660!T5x6qH+aSw&b~@n_@sDz
z67bpHL^R7ASFZsC+Fm=imK6k0yL_2F+xm7$7CR2K2k@RP))d6kT<PM^y$1T^=ErQ_
z%#?DoCe^Jw7aM%@8+a!`Qac%p2TUOuiZLt}KikWmpOIcXd-+uynb`=1mxMS9EfE4)
zloXyyQveW)7FG`A^-j>73ZV27b5{@2Tl3_7S5>8NH-rPW`wLZ67bU8tZj|HillGx=
zPuSl&`|$#FQPuo{H0Y9fd=+SozrmL_D*cmmRr<rfr4F`LooVj2eWeN!UPTC)<FhLX
zT}3r6h^9)>sVcPXKVbn3D7Pg90|R-<2eL0xd|fSykhG?M-t<2m^6^@;2J}lepn>d5
zLS=knK1UnBZDY3-P)nz`?OY7G8ur7&quz-~h{XjD@^F22ILT4>Nxv~+;ord;c>c$$
z7A~Ml(@1#+#XCRt?f3X&mr;mw3ikLC4a+HHoBRhfv|Csm=7OF?zOzObd=E}=a|c*W
zI!Ix!mo&!_hwuibqt1ZS;`1bO+#22e{R;r#OCFxB3Pv4cKQ`bbY|fIhQ7;c*wb49l
z;X|J%ywpto{Kl?t<I<5Va%_IA3u3TyX`y5sl!t8T-22azj6QJF(^=SEX<p7xW_}$l
z8g&GbOwrRdeopBM-(j;G=Vrv*a}<l&$y{eX%rs;dmK1r?lCsMvjr`}b4C!Jy@4me?
zitNZM^we7!*%s*<-Wai|4pIP7d___?Ce1PcFb{xVRSgn}a7Ucy%zG5o)PqX_es9$q
z{!K)_O*m8VlDXE~deVkFHA-wVuj39&$G4}ce#02xDjCIZ7~eo0>a>5{hrREjibwF(
z?GG`2W#1r9kd?<9_wg}uOfG70_Haj&_??v^YtF-W52Wxq7kIn&Ca>G(O<Nj2Sr$1L
zs8A%j<cewFPmLDQoGFFKuOXg|!5l6Vj@N|HHb41A(y={x62ov5D1Pv}^Dqh)&ST!_
z<%{PojVAI%*La-)D8!e}aDY1*vJ-FbmB!n9G~JGN(&tD&iOaJMjSFLgr@vM*KWMyO
zn8%;STVzBFQ<<-1{iJl@?A2G=QEK#0Z@$Fi%^d9jB52MNP&MVUykV=)4LHz<is>=~
z4h;_*o(1$37QB6vMF4-q4uUa#8z<?Ugm?lgoXNsDP>PVQDZ(ola_!ZpE?h%$W+8E~
zD@(4cudyM)vj-0F<{jU1a9$n&v-T+IqV{Ir!YRHoAD+~>?6&J@&+)DWoBF)A+*-4`
z6>H%dXw?*z-@rP5dw7ebVdrC2ImK^jgR7ykaGRUmeh@#$R>PsNam1D<ex413SKRJp
z-FmTm;d0kW1I{#Pb=cGa7Wr5B;Z`=ZN41(!ym>*Y2CVMiH;&<Zy8Ds?f;ZQT`;y{#
zH>mXa%UuZsHC(?O;8gMl=BP~!1^v-aPaJY!5){v~DfvQ)iIb)rOG~ybY4f!8P*u!i
zb_BIrh|A>nF-tv))>uGR476H154irctyR_-$I(}{uVs=0x!Xi7%m-4!64?7}<Jge4
zy&{k)S>fa{wR`z|DvHn?>AJ#a2KMs%G*Fy{pwk>|=7h1rvHg+>K5{BiA<8bR(4wYP
zYdR2xSngaJ%?cteYEvKeGK`FC{D-5d6oRp%WzUoFc&4EZDe4t?Pkk2jTV7P~^vvdZ
zWBB$fo)cYLvb+tSc!DlXfBgW2Sa7Hxq;WvKUO2CDiEU>nk0QR(A?UnPH3mh7Ba#DX
z0b8YDFjsfGwr$wKZFpO?k>dbi!EMxUdW}FUGiJGR$TlVQXe&fcCIfSgKbRIDVJdP(
zG)4qTNxMvuH{cX?*(hGGM^drPsSfzIqa6)%XzDfsaFQ-erRwcUcS){;@N|`r`E#jF
zc^f!3)fwxQh>F^{n|2?*mPCz!q$n2(Pa-;)w$vqRF+RS4h+8gvbn)-K05tVJVN43;
z?!f7<+az;!s2A`t@-`%x^F2cL90=u~qWrKJN&^D*Z#ds!<k+PBLaO)9K7zwY$uq#2
zib?;Gzx<s$F3bxlkFc-0^whI%<+BM-sy}<u0BckPtg$aJa$4nAsXMxV@9<u!sIvhQ
zYobp6M5}}LWJZhPsWd#%kw(aNQY>6BtC;rbMM&EnY6d!L;n?bgF#w6kOg-vAWEuAW
z^#Nhvs5}zqN+~x*{fqnMk**#q<zGQWA<m|ZM?gO>7<Lygz|hZ3U+{aFAHK(NH3t>L
zVw`=j=Nl8Zg22G-Tg7wVL$`&AgP5V;ZRVXXy8HcOY>)#C;IgF7KHlE%sBa|KH@IWS
ziuW`VDgM5>#Zd=3T!|qBg5KBPUl#-EU;-0qb&PR`X=u<&RQ^sD4?+E*m;au*h1xcc
zr2S<>jV}mH$};E8Gui+0AcNQEtsYM@nX1%Gn^U7KCwMUlqE=|`2Amh~mea@E+~Gz*
zIYIxOUr5mogL_aYrlI_iSn6m&vd3Bs=izM4-&5>%)P3R!lS@Ts&vn!xb_bH2;I9_w
zllMG7OWAOf=bq)C#sY(gV?Z812yqn=Rh3s;$zQlG)g>A2BS4<BpQ~|WA(F8kEtT1y
zlSlr>4ZPAiSwD^Kz*|BrhOgL-#TWFb8C6XCQe}JjTZTwdb@p<(tq_$Q5Efn~cj(eQ
z2tQ!WN`SzXqrL?fhQR>O4jG(0KQeTU_XSjhIgR*O8G9xryHxrxK#PB<SI%<3ftp<X
z>Ooa>94IzoPd_<K-BQ5m!q;v4&O4&)%{C0%IVl!*d%THeXB4XGeed>n_%aJ1Zs}2D
zP(LQ>`^iHAxRqi?A)yr+9(oRR|9{iB4P)6oeb5D;<oL}QQuX#49Xxsg$0qH6IyyMH
zIlwCP8!0$aFK0A_^uD9^<30;vR1T1akvZZifa(%MYG+PvUT$Cl*`Aw!nU?aKnS*B(
z^&j#a3p_irG@%wXKUEanULp87rXNE795*FN`dmXSSDNG7)b0-qk`h)zOdK$P57{#|
zK@j_m=NhY31NJ)+MrIaDIJsiTc4ru6=A?5*3LXbr{dpr0=<rr^7s^(?F!=<7ZhRDq
z1LXZ=OWlDvWJ~fj51CY}<7_R!kI7~I^%+#fuhW3~5&InQ2~fYSK>jsuY1k3*zRY-b
z+AeDDnV-v}3eW2SG;%QQLa_7dp+kN7_#Mf|D(Th2u3eyxd+V!>xkKES!p)3)yoJRq
zNrmKpr%^|zMJ;wZP$)3gE&Qy%Jq}{nr{+l{dg>L!oG4{&q-|9K?I^pe%Phr#qF)vl
z>KfcA;ZHp+%!Snj*=$*vQrkJq*Uuhoo&AmU<yZlg1QLGvoz=!s80p&>5;J-xx$Jjk
zqdu<B`h)q_B=hq9ihJNje15o&^XiW>+WLJq{W?Xley(aRLQ6BQ>*!EEvy3`x&;zQd
zz5e~W;&)eitBtxr{fveZdH+VFU_1<lW4W>Wo95|kRay)wT<A?I-ir^Z?#&W#D1z!-
zC(u(6d|2udnj|fpf=hBeRiHWcXw>dN9r*S+RhaP8>NlGG*x$46DW(u9S`EFBf{x||
zmiLrUBBatcOG52)RhL|0q~1V)Pi<TMW?3145>Tp#F|P2z-cwRryRFx!S|5V_7Pz+q
z(Octjhq{~6NEC=R0M6l^-_ZSi=wJ-sm&z+m>BA`CH3Bx3md}Ar{vmbSaWw$vC`Ml4
z<T76YJhBxJgw#?z_iDKyJI5-ZkZh9S_7w84YmO({#}$@ssqn8H10d^8fY{@BV_EIW
zs&p7lakob#CocnW4&-Rx&iVw!KB=&{1CntB02x5Z=g`NoP4yPQM5>4)np~upoNrU)
zqhO;+%J_Mm@tqr_=G8fL!R_c=kk)TUq)oI-=~cQ?*<LX9|Eh@jUuM($@^|K92mv&m
zTzd5_!@4l;PyZyW#!h<|V`HBh4h)u(<E1YuGX6WzDWufg<T;?CRXcd};j+<pgk2{8
zOtcSWKjkLK;ckwutpteu4}a@UL&D$guH9+NO62NK-8tLF;qJk-S<VXdgR(@pw9bgG
zQlT9xdTSi9G;&+^Td8rs&p%UYkHUUnGl$%B>N>+iOdT-AZ2GtPbZ(VYJb`dngLZU1
z7U6287(fhZ<tnr)SPWx5$hEL$_a$`ptR*y=oxR|yLZ10;bJ$r#|FeWR2zMhD1VrU0
zbns*8Y9Si}JM^f@hmdz}xI0rCha1LCybM*`M;lGAO7aQe96M^{ZqSdVVH?KQ%u0~{
zoGnysy!fK<PXzb(1lN41Q?hb3V_t5dwSBabKPbry_)xduwSfvm(KE7BqzeE$rZxP=
zMAZ#mC)h={?!fQ07)~w#JA@e^fN))EXZiy-oh9{FkBh>~96a-|&CM=dCm@~vYPh`m
z<KwxWtdS4F6Ec(q$I;r*A4XX3w&9IbkmoGNmLh;8^%))hd(Ghn1S^mFn|zcDEUBb+
z%wwT1R!+5a#)Uf^*?27i>bcmJC0daw`ppswnlx{{{^7>ym_W)NHDTXh==u7N4qR`M
zg(Y-!sWt(za=I1u3wwZAjZcPM_g{nW>E8-eve%*ziA*se*I4-V1@p5_Y+4MAEBd<z
zrSeK`quI=iGB>_QG$lbGvFH};YDc6n{}<N4VT|amN|f;VE>Mf7U|n1MOq(vyO;p|J
z6(XAaOA{evJuu#f{1h&#8fX-D0M~a--)$XzrMb^|ENE4&f!h_k(2Vm~-P05|7hhWo
z6dA@Q2g=Rq>Wd&s+b#t;ooiAL?R9HYePXCDB1TdL$#p^3)C!($mIjtBmQ8iX+z9kw
zpeT-UGRB)bQff`F|Few0|F?0EdR^n1i8Tj8Fm(q3?x^^FKx&_Z8)d&VTyo<SQ1z&d
zkb%N6$OB%#G@sQpA|J&&%y8o2WAod#4M`0o0-)=1<ANZfr~&DRApg)Kef3=Prg}jM
z+)y6a(*b-U+ID^83;*?wga6W4|NA#B{4Xw|5Ae552anewPd2Zg@Dk6qdINPOnWA8f
zqi{r$turR55zWanCxM!;8&DK|_X{;|BX2}JoGv578re^XmzZr*@j@;@#N%!N+I~+=
zHhnpK<OGpkoa==42O_T~(`y60p2M;Ops<hLb5%V!Zo0?U*NTUcz&?rogFx*R@$Lkg
zv=xA1XHBlzVw~h3ptA!;LDy+OmUp@}GF!T)|0l1~ztqhL2z?&Uf5_yQ|79ap;zLig
zqo4yzRG8ClCmO*H(&(vDb6=HS(qM*`&Ke6SeR9@a5x$&oDyN`lG|%*9?Nj93&1tDc
z0K0PPOjV)6F;!1`BQltSkFk+F6?b5}MmPNi71y&5LqU3_5TfArpuF0v{NWV*z!XdR
z=%E|GhKf`_Bq=}l_;5vSEYesW(Rfi9j0oazXR|B~YqACgqzqv2IZ$BtQu*4J$uFe7
z1oGBr5MdlFP{(>sI82=&1h1%GlV5NJm0dc;Kv`R;9zP-3PY{>)#2pj`)E+0-neV8O
zMAchsJAmCNiamYe`UC`x;0JNb9(g!lkiBmCb#gW^adnQVw~<#r-z1cD-{}j)hScY-
zZSEwTc$VNLlK7>>Og{EN5hf&s;D+l5cs~IT3o84KU4iF8l;vhP4pcP3?ps0M>!2Kj
zvY14kX?g&Ztvfsg*%dwP-rX>#SQK*fXP_7TJ|%Qd5XJNvfFE|nB|+tg=4YqIh)|5_
z1)`g=d=z<WpCo1Ab;R!2!i)m#=v%{(#HAZ6jp0DT*7WmP&y~nAYl?V#&(PSF9vay;
z8Fw*9e_UEZYTElNu>HcokGcPG=opFlh$<*(?IDPu4Zf0LHKmqb6PfEdr~#gr?5K!0
zHvz?-Y@UmkmO_eT0e2`E1oDHFV`4nhlgda?k^-l*wq)N=VJ80uYG|UInLr>G$4JSZ
zSMj$>^9ml9+Yco^?TN&jL3=!x{*=BeOVX2hYM>mG)1_hTCZ#*2XQcl%Isd&O>wj@<
z`<K=HKkh91?;l8&|Hq9-eiA?<12WWp9Jv~&DpTq?`oh##qO0Ll@@}98FLOUfvO}nX
zd3Pi4c<6YnOlkjUrD@%8H4s~cg&=~e5FY^=*OVbaOEQ!koY8n;tg;PK&rkpYn*J1T
z!UJVR)6&yPD!eoG>9L>Zh8u(}z@|5!#9UxOTdaX?DC_Khdin;#3l=iYPzB1GO<l8A
zW6g}7)8y%7R2Z$K7WvT|cuCf{MxbOpW&Te_Pl=B^p^T3QQm7B8{mf-%dw^gALyBVD
z&<$f$a$ap9XB;p$6>cf_KC_Ez2Gp2o)8;CYi950vXn_brxFR~Y571-zUt!c5YA?Zf
zs$CkL{EAvEdAyBEAdpFdYrId)o3pJRHKCjqCSt8t3efUDK|8dlJN%M*2)U5a64Ro#
zfzPJYkG;tP8=OTM@@xtrlDIU(JP?kP92h7w$dK&b)1a>SCc!>T{xOyg5koxsdGMN2
zG=Dvls%ASN?#Ud$RMif}v`7=&EvJAjTz0vI;%a_z081YgMDTRXF<lvPa5^RpxsFJ9
zGU~mxkfuGyc{aNGZ4XMG6qKt+t<hsYp**Uy8&<ftm^Is0Hr`OSwHWh?^CWy>!BLis
zMlozRz!PZ^R7i&_W)0fduNk{m6Q1RZ2&$PY_bC>yZt)zsZ8IU9xVA#p_3Y;p8>i-T
z#AAw`{#k3Zh^aK-siE{9B_RsQ+SwuSGoLWF^KWihYA7Izxa9OIQ6L-{$e;+&fJo6}
zL9S?FcjIwBZ<RzS0fhD9#BUIsToF@QoEJ`C8Z)smz_<~sFT1dGg>QzQW9;Dcavv8K
zTVTKr=xy01k<k$Pdby#cF?@J7hZ~8@>^-^?IXl%M;K$BAvof2_5$hHBJGGK>jDM-$
z#lx^?AACJLYFy$xCQi3qBZiyKhr@8vM;=cJ?Ux!cE7*&T1?g)MCCmo#Y9Y`S-}M$j
z&T^Eyhl**jvC&Y-C3x57q7DIVynX!~;!P7sSFM_U{0XFL4QoY<X?qDo13&tCbg*EB
zI&@NW$8XRWp)x_Qryl*hcG9)~31oD=eMQ&#uh8ib6lW;VrDANX7gka-2sC{iI0+I`
zH3SvxHW#WMG?xJa*$;4YMfM0PsViI2eLs6vH*%id1IW1gpuT_%!PPxB1d=I{I{qt>
zCG(g|&#wiuXDa}`^gwfDCBohXtW*`55NZc@H<oLNI$f7h{F{j-b2k&6R*1Uc;XrF~
zBgHKF@f4o*g9yZ%_SBdCO?La0AH9E!KltPOpbO)9TV;3t{0}+DCRxX~32#n6y0cYL
z?!=$B<u+LTLuu1Lem-+z)6t*L-re*&_Ri0zFK_rQ-AV`CE%1&cjurHt=9qYRjH1nP
zRRKAsjJYusbbyGj!+2Ej7%4HVY^Zw;dyd%icoWPX*Rk3|#DT*G#MRdilX&;k{p_?>
zGSzFwv+3<W(4Rz96K|c>LtjH*Mh<hi9V7m`-yIFS{8wYLvl1K}762D=!RBT0wIL~!
zy%bKQdUTTlGwWThy0IPjLQk_V7P9t}_^gup4Ae#Z)_lIBBk+Jpo^avNTZ}JKf38%W
z?0f>Y>oWn|9e82kt-2*?B>l|Kz0ZpstYJ@lBO8jWtYNv6bOTU+vQ1cwVASPKxPfpB
z9j(Pa*?+P(qahT#e|WzA)X@jC6Z+N7fz+IoE3Rj~axU|qsWXfZMy9AIkO6^Toz9nA
zS;MO=+Pa3>?Wfl5up0D(3#5#O2&Wl^5v_)YvoIZYOUCBCQP%D9;RbE3_O`odWx8#%
z5Rc?+E4Bn9WcIKYQ{f=N-JxVnljs&x+w;qh@JXj#k_l;&yKyQ<{%pSd1bZclo35+A
zR-vwDTjRkdXpztDdpwzu>UNL)Wb#oBGuWMHw_L)lmC}b3^K$krztcuuhn>Nyd0uao
zLf63*;c<gDpUlH$sDo`44x5dogyP)gJGV>btdyWURd7g({^^Nr4lOL9FIM+urvk<a
ztGF7g%6w5E>B#@bK22F>$J^`<L|b9Eq_}5IuBtbtP2Se-U#Mr+pT*J+tbJ71J-6JZ
zo`9d?)8^EA5j&Gtg51{U6cUrD(Jj=o*d5q)qPm^k(CwZBYp&Rh;BM<>rn;i-P`5_x
z<yRKHk9pl6=!mlS8D$oaValza|EP1t>iPw`dlGw9yLxif3tl{_>p2$&#>RuYZI{!*
zv4?;y=gfWk=dHrBQ^UC(_TALo>NSVj*1%&alg8MQ+LInhoOiBVo)x-#i%ch#V()p*
zNb^vSO?0RmH-Z6SoX+nn%beV7u$nksd#^Q`bT~F5;Y=&Deu8;v8<V9gXK$`<vy!32
z9I;-$p~SCK*rj5?ZCwtWIOgu7+X*3~RJPZX!OQQg>8()p=u^Yd$<1@Nb}JJrr@=|M
z3+dkIP^ZsA`!Dq}O;1L3yI`fB*=v;2%8v`jS*cH1XQ4~S*razoeAe$yb?Z%^V7aC*
zZROuB)!tDOc&}B3?kmBwJH3<@AuK}fIK}1sP2b1p^;BDAd#TIz`fRX{ZP-Xg?LJmw
z#ZT<?C%a`b2;SwKZL69oBfm{WyZ~vzUnLM<M7_t7%-E)Csgpu*tY%vw*!FzbpTx2G
zdOfe&k}qWsfY&2ge>gEzpauCOB3_24n3!?}16MY(4}r&=!>*Jg+(HcUx=r(<1WNq!
zh1z?6ckLM(+-);Nf}O7cMSE<oM_?Dd+UG?BU0!NxIg_eGNFBQM-5+W>x7B;jhtbuI
z&qsI7v&n=5HD|DXzN}bO@Ao}-8tF=T@_16mBk~1fR;k`O=8vfd?Fa1$?P!y!zx;-V
zJ^Dy7$7v|<rt2Q>CVr>wvS8(PIIFyzuQoM}f7{{Pek^>VPyQXP>O(q&3h5kFV|hQG
zxVDp%a>Y+$D4PRb^xW^3Vvv&5j0T&-($G;Xinr%&_J=)@N$|^~$sC=-9fAXlAL4c*
zM%68FlTWtVb{1S8#5FXRBlb0c=|>j8%P`0g+p|1kcg^AL*XL*cP~AOB`s#xAXki{p
zyhC6Y4_8N>GLe5rVCwtMC38Nl9&<O;^eOew<cLT*@?$#;29tD+4vN3x*NIhwy3_10
zTe+j;`O*>usK1VMNV0ZMKlSfCazxkiz*=7FYi^I-@|V;d(RAawnZAc^SB`WrF!}C!
zdfjQ@T&PeKcOZ~V2)-0sJCg7v!DX&LYR$PS*4mHaY*T0Go6(3kuE5iX4ulKI4!-#?
zO&Fn{7<3`F!d1NdL~yE3huE(>ddY(oRm9$9!_8UQ;HVzuayH?>T5jr6w2sYki+W_S
zNW7G)WS9(I*4@G$g^W^MF&^>D7-+Hh1Gb7rB^|NwSUA1Zd?+HYexGNt*zNl_V@%rG
zv|zEv2@?&KfD17nc5A$db+b8$a>l|6fv;JUOy7-+nzvP<SZcOmZ3-;6R&O-<YB?L2
zf!|+uln<T@qp3IICQo2_FFVVJB15n+>#$SpadX6ue)!zkX#4g*53RV`D)n|36F9vE
zt6Ey{dRA*lWCYu2cs{@_1E<5w`+8|touOv~*%gCsZar>3)n32F!E=9)^)g;v(K>VP
z3fcKF04`4Sh@@tpi0A4(>|$Kjq?-!&rA_j=urqMsYHH6<1MTC3=EvJq95nu_^<l&9
zY?sr1;656fw^1^mEK_o?Uny3%&`+oxn0KbzWG$Ehx^o~jK6S_3+K}l9zArY>Uc;eg
z)`%6me8)7h{E2>k4%x{k>;4j1&yoG8BE&gyUMI}$e%^3W$(PWN!HGEPfKO3UZ-l!_
z?&M8RVY;SC#Hk@<=K#3lhPuULs!deSvksuk{jG-pJRD4!yq`KB{rQfV*s-S`t(mVb
zTcDB%vs(U;#0UO{O4jQijy~s(%IV_<#t~-y>23NH*m(dOOvAg>lWjAF$geL@E?A3m
znN3#;)RK0kjf0;55#FKabKAoaG;L}S45^d!O?_tgBjmVFZSYbBzxF;gbof5ufjYd9
zDK68R%GUUYpd)d5gznSlBQdp0{eY>hTep+k9~P63@`~MV8f!t@8xKw-H`*24AL<H2
zUT<O7S#-xVG<g84oq4EN@X{QZu^$9W_su^y82JQInrm6ZB(!P#{8eOCD5!!LK@TE-
zT=<=Q=4OcsVDQfXgC`IHgD>c+MutFmf%-zLPC#XI)FW-f+}l|bXW0ySE$E3HD77YY
z@^$#aO8KnR5Rb4ztLKvJY7C<d+CZ(TF62$@{n&lh6}qmTnUevd*Hh#*4n!F{l+2+!
z6==?6Z}gC)b8n+%pYCXeQX4dV?mvNW%eImVW_O<1?UX#Uu=7lCW!?MWM^6JSp-a^>
z0CqB2`cAF>+Q3c#s$e>GX*1&z1{>*wz@>9?VV9J=^GP&rE8d@VY_9z*mgoC$lagP~
z_IkTcFE<5^wV}<|&)dq#?CS&ndD2mRz{aH82)i$B(i3d%l4iD_5G~slQuZhe_yYw)
z$onB0Yn<Tznvhn$zH2_u3h-qrv-Go0x^gM?zqUnQF|_!RayUM?COm$**?WU()t~>_
zDo(3Fm9?4`IINh{)8dmW?^8cN@U@94dFFFJ^HQBZrs&?8eF+{>QSHD<bdxjkQ~d{C
zqbOTR6Bn?`wg>Bsr+&xAuC<cK%%-Ozl-$!AGAH>4$0IzFIX;zA2$M05a6kWy9NRnu
z)3IH41BZ;cuzh&~rB!j?=BecO{lQ}khfn{f)0gSzJ`Y~T;~NGFD7tzu&#H><l!Qax
zo%hS#xUGLUPli^XYrV2~<_*tIs}6uuSeKVs?(oxf8~idu3a6P$b9I`AF`c!ltd0Pe
zF<leg6Ys#uIsmDJzStTT+pFG~IZ2?1RZ=FEwBTnOGbYpZX~yI#O`jvDS;rqcv{bHS
z22k2|o-xMvTVyY9s89*6{0`>&O*|E>09>>f5(ulns+p7RkB0?8RSn%0w}|IE=N=2o
z=60d?>3mXgxV;ICZS0=p5jkgez=}j7gGA=slMw(u;ql81N0#Ol^Bs|8d)P(&?7pY#
zrfMu!NP(a`TK13a_1EXOfNia6@Vq+gI=DU91iWUnsOX?^ZtXf2_dZB1m8(8v-0JfL
zAOaS{Phq^`e){0k_1|gVK^|+bF4Sr{Qpvq$?Oy5t(a7Rzf5j<G@w<px(jR&iz&z@+
zz5q%%b`&FaP4}qkxxx8ao3>Wo5|vHxW@m6NM)a07giMzKKrHikM3k!NgGnJMd@jwL
z6awGA?QQv_ockfTphL@hcqqMiVm{}1o*fGN#4U|NOAXF=@j&7jL(1U)&M1cb-BmIt
z_d`^4&kLG2?8_}Su%y>cace8@>lp+Y&nNp(--T9R<+XLw2h1ZrQ^qoP`+neQq`-4B
zifMHL^7Er}Yf5uudd7ti<9&axt4z_uK=o)xQa92?*CvGKa;sN=rngmJbdL@rwCCV*
z8eaj_>KO^Z4bb;Q!ACO`@j%@Vl8o^j7C()4Za>s3G}3M7+a0V3(sQ6a5O@z=58bCz
z*W(BB)K$xR9pV1CZ9<+6UM|6}qg>f4D`5jc!XloBce_b{UDY>jck1Ifv`|61@jF(u
zJR)9&1z|f3W(F*=BS!Ix5d+}pB|N=!{rxSzD(>|je_c<nx?rlwy-gk{fMgmCt6HuX
zCFpn~Qs-N!p+m^38GqW<x`+TQ<3)Xo3NB39Tio1}o64B~4J_L4hRe2GC>@1-I0K+9
z;nG;^=UV4<aQ|&$Qlom?^AvaO_=%-Ob$ZU^Y7l4_n=;c~{;t_x!?q5EW#x|)57GUU
zwIY3DEwSkU>oVK_d<Q0pv+y_JAwLT1m{_SmcyUT{vWj*0raU(GSvF2<ypV=&+dvC`
z-u>Wy?&|ZBiRE9!jh6AT`kvnrRtaM?jGC*SV(w?6Rx{=sFL%<7Q|iOsa7(h!wB8q%
z?VU#ND@jCv7d6_1pVkN2x<uBCf<D#kp`N_mSJp?g0bcF`@bbGW8)OdG*p={~8Q0ez
z>4opiG0Za}M$le`d!JXCc#P`)06ok4LzOW^`Z}btONFqKMEI<DsNztCdX(ki^nB~{
z<+KnRk1PK+IR%^G_S3V~2fMheipv?PK1Xz3n}tN%v<I(G9P8ihH$>Ov00_~!_s13P
zf_kg^S{V?2gb`C|r+`p|n>uu|$K_E(-SDpIf)4b-*o?oThL}Crb*uKBM|jp@b?U}e
zYfY#lQ_*Wzv5n_5qgKm9YKIEXwA>fUc1*AxZl7OkP`AhkV{yP*6QLNbHcf2(;WoDv
z_rZ&5L(HAvv2^{01&aQ$1W$vh#M+9K^+0Uoi#a;+`X?)=Okg7Z|Ih#Z43r*|!|pr3
z+-3+*nX0fjprCLddSxFg=N~YSO8GhSI?j{QN0Vv}B%#u1gwJ6B@XJ#fJTudUEluZX
zy$GPThEnVNRTgou?F^XPz4*0G5hS{Rb<j+u54b7NZ2icEiAI?vNtA5eS6xPzFS+J;
zRMtFt9WHonLaK9fH)wl~tv}Y*ni6xk?X@~XJvtCuaG=J)*9=-7MTpuLMDD5MAQl8E
zBLuQ&UB~QG9!QJv>NGglUWisDmceY6=TZmxiSO-zg!Cs<P}}r}FtU=W`1UW!nD@7q
z6OcaLBmdR|w?j`ULI?_;?M+GfLP#`9!KyRKDE>a0M`Wwds!8xj*d;8^Zm8!F4su+9
zL}QG8H6<IjMQhQ}uC3_VPxJbBGTk5;+(6)583d#_auOs{mj!<>GxJ8*@K7X2-D1So
zQfAj=9=N+Fh*3FVU$Tt8tPR?r5q%E31If}|DBrKb!c{cnPF5W5!(7A;aQeju!~P*d
z`!Xrt^gE@DxAGaB6mmiIn#xz+ODeON`spRD^8+!5`OGFlQIEn`&D1{|2AX`Moibv0
z;4aF!U9gO%(BZgAOo2P-#||%Y&JM16^hLOkn6e(30QC1P7RM@X{JkyhaMjA(SkI1>
z5#mcDNe<@~{BxaUm1zGqRg^Drj^<Fp57z&4<7#oo&)Yiseao}R`H@q%hfL?*XreHI
zm+i0)pXOrPz7&56Exm_ccmpzs%3b&r3ah=IvNbosOi>6QBbMP<RL&!lJ|F|!=^~UJ
zHw6*}C$ZjGWoWXX;i%oBZT2h*vpMBveGOlrf?Yp}t#HsV<GW*bYt&4o#xA_*LaDD!
zq~1*f_}g_X{ao0CUl1{FSi1FcnR>d$+GT9|0h8$S^bq?h;jKb9?D_?W$kvK<xFU=D
zIee__h|W-L%HVm8)`3?>#`f5ox;9}U>?JijfG(BPH5(-}g~H_^8&?IpTTutwSgn1O
zN0Uil&kqFgiFW4-w)NeQ6MI+TBfv2->W%5kQy*TBiIdMSCqve}mHTk&#;;U+R~2qv
zG|zawa@`5r9C=~jV6ZvP?7?V5;DNPSbxdYhJ?yc*`#XU{ixDL}%jRIDI~H~>^UlJ$
zC$9VaT~3`JfAsFkaQD2bTt!Q8FbvC{3l`%v*R0#$Lgnnc$+|X~TZ2ZzOMAT|hgt5y
z1$sjf$BmXqTXS*X9UX@|0>4nP>wjV!ZGh}dqC-*&u6_K;N*tcZyXp)VQwFBA^qjLJ
zZ}Q|JXwB|CV26=c5>ruTz&1?G<bk1Opy$x(@>Ip0HaqHjHEt@|-T^3~xSX?*y|}Er
zgM5u^q-eFAFF&vHzF)B@Ir~#%tKAIEh7e}cVjk-ZiFLmTgv6PUluhj8-gyrO&--Ry
z35K=Ht%HNjk#fPRhA$V8(Y<$&#GJ{~+f)VGTHt4)XWxBxYw1H=C*?-QHoWF)9{BtT
z)9ImX?mKw+Hb0CN+;3p(*2Ad3%qvaR-IevWBc-5k<^E>GlSh+Ze+XhkB*(i<khmnh
zsoUvxFV(j)sEmgEl%lTv8nk<@`Ai0r>d>y!9Qft1!}gg8X7#}Xm-tOgI4|e|T)!I6
zHQX;UW^aNEW2eC3uYfXX#`Djc*rKf^zap6#t#dXt8+;6=@cA!tHnHm*N*n{0Z}1wz
zgI0>S4c8r<!e?6=&(S0A``2}CVm~AMI0253@ynLrw@#mqzZT?L+bwX@al^jZX5j4}
z##8w6{AA49EzveO&rGu~oRj*Z<Hi^p);)Q}&%XO)I=3B`G2i1BI()%`QCQ3f_bjWk
z=-Q4J`ncZ&#;uLc?q8`&tvfS3(jBcHmHjrj*#Bmv!2z8TlLB*|A$YM{TZ3krZUh_(
z%4p6{o#z`aY1A+wL(d;uIkeQwi^tSoqhcT;^Zg<V_9k}j)-Q7g{~9jbUPEUV^Ij?K
zSPgLCf#~qPVD%_L#~N5QHH<ZR_WY^OlR-ANPYf7FJ>W35x+Qn``0+NL-$TdY&hgXp
zJHfdb*vi2aY)tLD3*wdo$-~x*I!HHPL#vySs%0O}1|8_yQ7@eG!dgOt7wj@CS+Lvf
zHnpEZU9H)LOn-gPFK0<1D^p<AY<>4r!uqY6WeXPh4Hs$Xi`ayGb<)`b*KjUr!fq`g
z=;a>*?OtPeksXv{ZS{|?%fIw6Y`u90PIH7VK(f>18I+#uIZC!$D`)$)^sS&ED!U7|
za;}{sS}0Ta3)t-mh-bmS&`emNr8(8}sFPTjO>{#^T3A)AIQqCoo1*$!41{ep-N$I~
zXWWWzx#Gt7l+XNgrVE(LWy8?@@ijm3%T~uz35~|~w}Y#_Nvg`im*AUZ+Y@RgU&O)p
z!(kY($#HAo>qsB+F3OL=i6Wyv?hcB_!$UT!MbXYL=H@J^{my;ad6}+@5}H&+`?kvw
zFD|4JVt-aP4qW>@#J>^R7g3or?lDQ~4Cvp)w*6*0R*R}nE)0yN%5M?)z-qgUQie1G
z@Qsx<$0t%`mBF!%f1o_iV&sq3k20q4&_fD!Cm|w;Lwi5e$w;X=BGvQ}DRV7p$1r!L
zrgsqJ|EfXGhW1p?wut#P=4>)-n5^kGAt3E<??jpTffPtP$Q6S){ptA^FGeCXU9ux=
zGyJSc2%TW&1O(mN(z&o~xRlBi?|z{!vK-2u^f*0l1YV4N3gyCE*Bc*ff`g8BSL%KN
z9K{cN)5b^7)z}~npepo*8T|SLzLA_Zp2L;>vIH4&nC_b<+g*k4kN>P?lyW@qyg1h(
zjY7R6CjTdc7p<lmB^S4Q<}Rhkb(y^uwBy%xZM6U=Mn$G<|FxNhZrqGMw^=?hR6gZ}
z`gMViDE|`WxqJAl<kq>TC6|INB!J7u(-?MzfmlACby1#niF0_W(cp`CWvn|#BPzRP
z{?LLa6+`?*4A*{b){_y$av%OvxW4b|g@%rSw*yXMOjBxYi9uhFzx)^h>eD)k{&4mt
zIaYD`y$MymR68j0xSq`5-L6zc9q{sm7I~0Mg(4|sQ?c&YS%aIHN>|)bt&u~)vB)=K
z<CK_cKDzI%MwJ1c1167<FO8CXa?3uP2|6$ZfUZuvS3ZxT1$EUqB|M3C-RGV=8A+hC
zK`+<Sz+<#hwVtAWI~9lNi&TDiORE3nW6`l!<q+EfSJs|b&h<ARJ|21ABW1O5Qh>8I
zA6U)7>HCK1o7T9nn0w~44}|!II#rqX5LycSwKaBAa7^9Uh9eW+yM<X_7sq<EQ`SdQ
zYjxg#&9geYmKz{c^Nkv@6-HLYPW(XHQo5`jB|Fm&b7XP$#MrTfF_G;Fd?WPHsf`2b
z=}s)m`-ctbMyz?!a%wq{+$<P9ZwjvqcJsaam(FEY<89_XMh=yKH~ea3)_#LQ9PB*!
zruB*_Kp5fBo|`%8woR~{t4^OOwm`oX8|!DRFA=mRyg~-1PB*gYCq1f2xSpJrg<q7m
zzPxtn{AGW$lE?b~Q2P?R`3E-z?&A*p)P<^5_CGR>T)cO;UJZU+Jx@C~R8pX^CQyd~
z#Q^a-e!X(ZoAI(M!+kXtzoT9ZBK2KOjIlZXM|^m@lK(C%_SFmdM2lY-n)VHQ+*6U+
zL~>JvtWz%Vr|mt~&SMq1{TK>w<?YrG>PTBK#l{eP+eT2@e>NNH#A*gVyR@=EKNLYD
zb$)6DhFUax2CFW1Dc1e6ag|Eo<QqK4ymZAyoEh8gH`6f%&K+>GFo9Bvzba_$h&nLE
zoz<>D!_@e~+Wl5tCG(8%f-<+{6v5rihzAD8jpiRIsc%=b1BY<Z(bP}Ihd&Oy({lwD
zF-4y=r|FQ}>vy2WuD$wGGp&(~?0lscMf>1ut%J0nLdP)SEv-6$mCghR!?z9Fka7i@
zHLh5-x#HyPBI03AxISAKBGaEG86cA`ieaSw*=x5ND|Q;LLG0{z>Ai9#=jh-bH@r&l
z>Jm^{SiBb?3_UF-v=*wWs>L`#HP*<0o_dEbym+8dJHnt<{UIDFarwgC3l<s9zx_~O
zjI{2TZ#hE;e<I}zrn{;9Lr`J&=^QVM>T!~+lk}~8!B+EY>!+}=`C>76+RXF7nUn!x
zXa%NX-8RH|;VhM3ME(_SiH6XMmCf@Th7tYRDg|ryo5=|lzs1v@B-<{}jPdKrg?T>&
zzzh4;EE4$GDU^8vmCUeHR=A8snu)az$RF#_C;q1Q__YJpoj{Ha!K&GsBqiI{T#mHc
zOhdcN3Ej9EPtJhKhULAj5X9K-Y};!Q&w<t3+VY#2I97g+lO|vst`3e%(|En*M7mDL
zctCA|&$U3dRo!g2E53EgjC69%zap)oJ|wkx!ZInmF#z2UzI8T}8@qgBGi-3=S2s9A
zm7z-I7m#`jwQO0!5nLDng+2a)FRozp*@EtVLhIwe^N*L-ic~s(Z9|O)S$vNAHU5&$
zLT+)h?xE*K7Eq36vA`Eg(};FBZ@+q?J^clTS~_q(e1*AE-a2`x;bJlUMTMs|@4;42
zIy;qM%RJUDEZE&P1|-GY#1lhxRo)1D;S+^nIcK0SC38La>&Ca~<s6c4#PpW{A*vvC
zG=0*~ZEnlF;I)?6LSu^A_(J`5_n5C4;#6VVvAdiX_mVU0BjB4S!Zh0id%6C**d62N
zDWbPYjYEQHFjld%FbAj>UgHR|4RG34>GNy*oD}1iUa0h~;KzDEVAY0r<gh;AWK~cG
z)x(^PndaTB=lSc6#pb#wYa@iuW^c=Zl-9%9U8#R!?30pFc3POAtOHT-l-EXLDz}!j
zpObUYrZr9OS4rR54nw9x?cty1ueh<MPi(G;pdX&_gV4`q#xVDKi+Td0z}Sh_bvTe)
z^j#FO4gHN)_{U&O;c=5*x<kKw<L;O4Q^wu!0_%fm>bo^e!rds@bIa;I^TqVTKI?2z
zaCcAl+yp<VBD1)yg!aN(XXtuZ-2?T=wqLdA<e(l#DPQM)fiDX(QStS8fRO5Mw0V9k
zm9d^r3kr9t*e6E|_1U}>#jtL`u5rP+Lr=Sn`1NyoCW(;{7QNp^H=lr8f%>hd^$No=
zI}};Mdi6Fx@(?kn+O4W#RQFfehy(JTGPR^k>_cX<+E>ezM1$vDsd^6t=BbmOO6v05
zm+CoVk0#T1(+pj&IbwmoV10FSv*DbL((V-srI9DZsgO9Y@giKuBth2V;p?=bgo2oB
z7{|@>cR^b6H3NRv&IDuE9kcAV9wnHXEEiDu1br9~CR=j^Dk(80ZCfODNvkxGx`Q$h
z4CYMkcHmA~Xx1!U$m#eR({G+W=|g3+&o3{h-nuOQY5GB`wmQ%Vie3MD2MLsV6DS;t
z7VO7{QeFnKesRD3_EkG;B`9CFyjm~H&qRUbZO}$Tu?Eg9FQk?|5HJ=g;E;?-C9rva
z>EDyoNa$yO0450q$70yUFd{jYzO|$YbjasiGVg#%)k(Cn(*2#Hdxu0F+z0AFM!>?X
zm*@l(`*+Q(rYg#3gG(s!$k;+W<F_5{D$F#c$TJ^A_*}B#Ro*0i-FtW6G!8mdfL?5{
zgG7wXrw`!y$NX!K#B0AYc4*<ak%BYNsGy!}<Yh)4s{F;RZSpIg76ZrfuJB{WtTX$r
zVg2=T)D`zR@bbo%`FYC&RyBVVfyG8C^+xe;887BTmfe$A#`28ll=#~G=qv4M88+lb
z&)nnB8gy_y8USZ+vy7;I00!GrP`8o%j#pqg+F-X!Qv7_&{CrELUO=>KmFSJhY7Mc?
z<dUb}P=8Hj;d27t)9_``0P(Ko%b{q1D$@zEjjeZTLtKTJK9;zYZ^*s3^^4!|@_jwd
zXf>Wau(wk2#JipKGNmFQy$@2dzG={2qoszmsC}sV@iwtQT~_3OzNYm+^wPdzlx6$Q
z&&^!U<IiABw-vY&_wnfh%udPZQn;o{(0FAY9Y?+FhRMaspahjS)2!@UN>vbk&HBK`
znA2KhHw$<I$30j7ZS#)ax$`|@>$UCIE|SxGko$sK3$W|g<HHnfE4=IeY25zp;i;*F
zhrEcvbbs@7eG?{BGj$EwzNo=5w>b7}Bpzu&Jh!~0Bq-C2|C&j<k21$Rb;UH_pWir#
z1gyQ(Y(2dF!k)(5<<Ek9sgobG9n71?exLfu(}|V`Y&D3vAnHw}QHkd=s~003S|~9?
z8Li#Sc6FXL_zw!8%QyYyt5+OaexX>kN4@sr@Ohk6!cmN&&#6Mjf1BBgY`Iq{Kdw*S
zv;XP0eUpm5J}J~RzPjJ$Y1fJTB{ux=UZ1vWCQrGyHvAp`q?%%%+SA`^_<n~?TCQTL
zn94Due2L1Ubv{2Iy=?aUm+vLBH^Ip^d|A)ys<Tr*md4M1Vjr~atAp30SCyXcW<62!
zyf^EpD&O{EVEAYUAKO|R=5^-F_s_e7_Oa~no3!6=^V_`5=TFN`_WgSN#l87PYfc&c
zzCLARll<%_@<DOzd`sqd1Ba+T@T!OP|MXh7sy_Yr>!5uRkz3Ti)YU1aW`K6XG_3SH
zbuIcf<D??RE0vnh+qRe8nO?cF-O94)Mg8&c|GUpO{hq3_ebudc2llt1wXxc-R3%kJ
z*WE9SZ+QCYu;d*1zV|!yfn`10ZKEuir|#)BpUMT}?q>h)E}U)%RDR(CudzqQoO>YU
zo6Vb7SIoaz7+;nYf9iwr-_Li2-KP9>cwb+?`#{}S*~yOg<?cBC25LIcb<@N1U7b$z
zl0(4ZcaDfCeh*7`8Ly&{<F%4cJAh*ym(IUl+9Nq<%I7<#!N>mCnKu{TU071w`VP4E
z<mK(i!mpqW8U_cMjXjF4oQ~8yDbSE8tvUIJ?(5J!?kQg?bMJgwkhjb7nxW?854mbP
zosZXo)&fntvx4RQQ_s9>smmG47GySkci1)42DE!3A@3E-`&Q35IpNietKYY%*w1=m
z>S;H3(wV(VsfRY%`+w?~;sV(n1ynrz!G(GM`GYl+U$v~bC<*edr>mdKI;Vst01={j
AQUCw|

diff --git a/reference/plot-5.png b/reference/plot-5.png
index 503753706e9bcd7a8c2cb2776cb6c839f0626d65..de5116d7786d042fa0cde0f705cfb3358a976aee 100644
GIT binary patch
literal 40160
zcmeFZcT`hb`!$M{qaNWLK~buOBK;UZr0W615Q-qZN(qQm={<H7loB8qswIH*-kXBd
zP$YChQCbWkgc?dn@~!y3zkBcZ*B#^jdB?ZMNQlWMd+ldE&wS>bYvJp=20Eut@}6X4
zV>=DKqh-v-b}X2U?TF(a$H6;z)Q2_j<G3SCM+^J}$DU>b0{l4PbH~z;jZGkm^*9u_
zxDIDyyT}IBx@8iazA_z@&b>|VT;G|t`*~HzJNn`uS9xzrS=`Mt`YY^E(u2F2dRih6
z-(0&I*#6S?$ie0NPqZA_pB*#Gzx?#^$)}HX&AIc$*n?=a`G$E8Z2!ti@5<R=HKDkO
zmFfO)Y;S*m5Vc}<FH+?9aQ@HJ|A_!A0?gF}la)0exxq_)_zMMYi}?eLmvl}xHi^pg
zjbhdb@t6LF)~VwbZ(ueP&Cg3%MNk!2KqBA$08a@z#yWv@F#h`S-`9_IquFHt^Cp{#
z@zLNz|9Sl$>4;PSFYg<wVH*yE7mv+ZpWW2vP8c>a=7e^_9!lpuTG^IHUca+%g)>L0
zr&QjcGEwqaB@5hzvT|kJhnK}AQA{!9l5Q$DR)hC`*cmufSsRy(tcT@`x;?=>LU!m*
zF2(0mV4fiBb@Qd&>M-I+hKQTP<9+_Cc{P}M$G98_Ewl)80ht2})yEkg>iGkP!WbZB
zki)R0S_?6v8uXJ$1jc8!z(0AU?3AC>aKc1q6m(yIrS3K6Hu52KQrd4SQfBi)hz`yJ
zs?zhJ87`if<re$s_Z|MoFVXvcX?cFI-RXjWh_wEd+0&4(TCzF15(XQ=D%Fiv9s;@L
z(ZU(&@vafjP2=H5Pch+f0hN`>@*3LB)J_=kVUFePcf8$4-%Ksv&|g>P@UtA~)2eHU
zGJpiE7zEzgY=)&CMhjg<dg_#68jL++gx=crsLVJCB7*L;7>Pc95L9<SCVlRu@&p&&
ztEXvT9r&U}rZYblGH+ngh-JlShF(hh-i6;|HF4Bj(6~P@@;Lqqae{5HrD*uphYK8T
zvneLpIl09t<*{!U&Fyibac()?c>YrpNWslI&T8z|dujKmjvlIUrzzx?WXmBtjYA`P
zf(^vc+?%Vnn$v81PCm@hL_4Wr`j96UL}3Vb<o2_p!Jm+3*zjiKb*>))5^|>Z>F_9j
zq1-#>=dy@;Sy{i6<EBW^yQjxEjgS3R4i9xXF71?wQBCnpKipX1{4#9Ks{b|`KVXir
zZ1J;M7DfLULi{_<*_nM+Oz#Eqdah;53y9|R8`43EUN>cjI=z&)#pA=gDYuHP1*eD{
zi>R)HFF$iKG$%jz#vgh8^f(v|>gsmf<+EyEtXU%vnrDHptePqaOHb?ls4*SrLm4iU
zJ{0kVwYhN^`u<3G+#d6mi(b!r<*r#WS*+`5OJlyIoELmk9vdRnzA+13o-bWF0@b<G
zlUygzoZV}Y(cO3@?_p}dCdmPP(OY>^m-nwoQ)JIp8Oii4dZ*x7+XhTT?W`~Q^-SUg
z<BLYs7%y?0-O}2ACvvnFgTFe|Q27aSJeopz)%(aVI{gSHs^<;C#!MFy?`j#IBiVC}
z<M#|ol#Wa`bdFh}XWa7SQU0Iw{!&0sLY|z>&4iagm9<3KkkUieK1tYpBd9cgkMHtV
zcQu!9Jw2!kazQ@P+n*p@+8JEd8rGu0bEBWCK4?y#bP5rH$w9jj2LlOyao=_Ldrk~J
z;ecDmrNBk86^BEM;7{M=QS;LL!#rFz#<#7qBp_Tzlszeyg3D)6QT)q4uD^T~i^<?1
z_WRuNdx^QX7-4}764<auUG{vZ795pxRdQOe5x$M?-};{$P|AJWg^b^5>AA%GjNw`2
z$JEY>OlxwuO&xB;I)~y!_FF~tO^gY`Zu|9xh-l4e#xG=trxeaf02f?GR{u=m?}_c1
zLS?QrVa=8=mZbR~4n?a6HVuo}uYR32QFCn@#bwJFaD`^9ltz|KMQK4hf68q8?i*>H
zRQ#eMtSvBfdJWa?S}*nA>MiB;S#An?i&;Lj$>_L5`P_S>#vs4z=sRRKK5wCE9t^69
zzvoffpB|Z-skdd^WFFnAm~x<ZbC9ert5=Il!EAa0PxVy!LU~*soA<1grRA&dLB49_
z-nX@kP4=i6|6tJKXMsp>+vkk3$PJHzd_)@jK38$%Xb|yuFm_okgXqN1#&-0}`9?Oj
z_aEO8*Y@X;)jdZcnJL7<ko?{vnq4t`Lqx&P;yMgxDC34mkpJpnnb~WRNPGv9M>j>@
zP^FRa36^RFwZo=tmY(shT@XRv{29c7RnES{rxn|KKCfE}S@~6j45_1h`Uk!|uAg0o
z;e>Z&>YGT(oh!jF*r5G$+eir5hSihw&aZUW8zTwAWM50vs>N7j^2>MTmXSGF(s}mZ
z>6hHq?n`+@9F7UZU_RMwcrGDlu+DDg^%#xo-TMY=!PAGkd1{j$RcfYsq{w%RYWd<h
zMIeW6)kNK!46?13{Cr$yQGN9i{b<UT7mi$p&T~>UjYt>7JBR+0lAG^aJp1GXDU(<_
z;}{2r!<3C(uA+EEB80gPWO13Dr9&1~Mo^|tw??mEqhiiD%0F}swdkrm)OmxA?T^Ry
zrmUv2jx;t5OuA}_y9v$eIcl9RV%h1|YuK&FpVXtA0{3cD5%$GbJEp)jZZu}D2BhO7
zyHFSS#>qdw<*_@QpYo#HEnaF$322Saa~dm|j~Ev7P!WC`XfZ1Glj*E+=T3jqW9bQq
z#+QSuZq1ln=feq|-3K@BYKIB7{hiWy(m2WV@8m_-`i}wtT)w<yHN($W1F=&NSN$b@
zBy2^RWV|ctbK8n)T$SNuAIqgcJk=m-OtL4yW@MxIag2#tK%4Pk?6iX~rwi(AuHC5O
z)#joq;ea3uN<d0ug-DaA+;h$HOHhe?6H1KrkE%jpnx1(jD|yCEl4M!b6S-B<>#WnM
z%PS&x+)KG0_AqU2@?6R`m-ku2oH8t=#)0QdvT5mH_mZ#7Y@DYImSZiR@xD}I?v`k*
zZA&O@zov(2g?NHdfZA!?H71SEx+-BJ%vLp`|3qGx{7~KvD?5mn-;f{;_-iY79AbN{
zA7Z}+a9mi<947=1MJgaqNZ4E=8bM*k7_}=uncFg?!1cQ+i8iPR(xnLPpVdPBi9|~R
z;paIv&K~K<Gku!-{SKzWryT?v^1?4j%A!vRzct;XzI&rvKjtv;czn}d0M+oeEM1y-
zC}k0m;$N!gJ?_ySH^QGH56`Z~mfJw1audu$B66@B|4mNX=Y2>;wOHCXAzPSK;%lKO
zv4d~egulFV2UTp*jgSgTb?$TfSG4=6TKe+X_e=VjFy7p2`Yn$vnBpn*$u)4_nf_22
zqE#&hHj<`14Xwf@tg;H)6#n#~0bWUWk#C`he7D3C(iEI1Z7sc{EVK|WGa~FVVuP#G
zul+>`_DTJ=f{<~GBpJ6jCl*4_Zpx7ftf3wH{)~r>&E&R5SIFTU38<YPiL5vUpOE%#
z&fXWVi_5V7TZtU?L>F-w^ANepVJ2XByH+af`_FADsG;+F8HYPN<NENZUW{Y+%YWlB
z8h1kV7I_w?g^7K_CFY6pfWF!Ka<+~ISW=6z<pwg?R_cp3Qm(|_`5IH_r|ZQ0S6Rf;
zI6zh64<E7v?9IqVa_CtfNmx@_z|KB(q3V&$o{gwmqh85P(z(T#kVCE3HaNBU53y(a
zZisN|5;{;J=ywJ6z0zxG!nSAaM)>KS@Ci2PK=+$Y_okpeXVF<@wRwdY>_Qo--36+H
zeUp&ds{r9DN#@DD87>($Ha+9l9pSOWC16)_iMYqT_tFj3Mw)=!df<LQd4=IXswXN1
z4w;%|5jWI9PJ!d5$l9AZO`$jO!!YA}XgjzWrA-QrN0cOO7WL*TEg-63ss2K7wH`X!
zf*)@|oZ!mY)>2&G@;>aU4<w(6+(|kSKQU(LimbcXQ9nFEY16N-S#aHFH7*xqw9Q6~
zT6>_Yu9oN@<i&`PcFo8Tq%J>>2OFMw(vh?TTfXFG8|~XB`0+zQCwY6{hxg+xiL?R#
z99H<iQOa3*_>WtHq=hLbX=@z*Qqp>z-uEu3Hs_j4_tC-DKa`VAAJ?GtO8WeltF^+|
zOIA1)Babwql>>+J2L46{HYEAoi}oByLevg-Gklhxr2YCkZf`<pr&j8e$``(b%Ikgm
z`bnEgJ<|VAit_RSxG*i+5&h%t>$VMJ^v&g6Hn?8m1&Y7xW7QsO6Wj}ArW7R_^V1dD
ziEZq(3zwCf$sek%JgcAYq$ps2M|lFi_Ye9KU(cikC&>f3mC$+Mg+jmSD_EDn3-*d2
z_jAe^D#-q1+8UREM4PK}FAGqFFMc`2#zsAs=<H=^k9KUbMarN~FtV-2R&}7Ru;t5c
z4RQOX@*<F1%~yo`))OK>^m>jPIDK|$B_OTt>`SzVo`P4CI^T?4<+qEQ_U}c}&VP%;
zPL0~5M!SZweGwb#kABJ`CwmTlA$zVMWsD}+d2+FO`BYf+_HF30v|r>#!DU2_+@m)~
z*x1tkBSvoajzDVe3Y`n9Og`~TA@RakS!yr2Ndsyn%C#0|h>JpA$5@UQTFgj0AFk=_
z+3NMY?ANe)9DT9d293|rFki;+OMa4tS2sNA9e*d*r8hcq+XcbA%#~y*!Nry;U18WG
z8C)-FR?`nO!3oFfsJd;MEmT%FRf2M>wKQq5j5NY@ewu2)6+_R$2%H@Kq-Gn0JxWW*
zsGOJ_fONJFA|u7}8Zd3}&~aJRR!*;QxY_+ORppvSNxwh068tmuWJi~gC|Ia1uHt0S
zT$x@(j^x~b>Co@Q`hR<Rf4N73!m=CgXZ?Npnr!hsxwsuLLHC8?ZD-E@&oA$4J_acB
z`;ZVn4A{i~*CYPg1X39qYJ&@h;)UtLZsizvkrBT;ipIue7#Vbl<FCs|nZ&JxUg|lq
zkZ@zKDoKrGvRWU?1hYV~pK}WHpl_^M6msMy-`mSmmAcnrcWIHwIjpT1rtM75y2oX=
z(?I^@tj?~$WhZpmJL`1rz`@*j`HbLl>BZ{R2^rF^r~8?z>Ji$7I5%Np?f5>-nL2hG
zDknTGRzcsZ4!E+>OgSTTMQt><x|b1p8}~2N+L_vkM@DAd6%sQQwv{H%k6)Kgl-DzU
z_9u!j!T$~B12U%_=anL_NVU4cxlJV<LPtzNsEB(?l+E{@Ovb~Hz3Oh}GiN6ZO_E5(
z{_55x-QlYRDE$!-z8~!lVA`T{f~Q2q#V(Os9I^FDMz(G8R(Ulck#!@*2PV}!l^={-
z;zpewDvcOHZl!$2xGY+*EBe8ggYMkfJ2o*>N;3Z2l16y{e2nfv`@2kDGf|39f|3;{
zBeSjArm5EaswgbBZR4V+{zrBXQp(kUn-D|MSLyjH7pmp|<|L`8F_J&3BTar>%F5#A
ztQH=+iF+7TDS|ZUy<2A&TM%Q5V_)}?Vw#mP)4D^l*wq;HP&?6o0>fX0phQR&#upAZ
zCP&!A&JyY+GX~6J#>;8goQG`Gvx_4`$Jwat8Su~tRq<Qdda^~65POdbkrCwH)7@wc
zUS#`fiq*>!6y{J_3*t&elVx?M!{R;Z-TO`Ed{u<7cPoQcsuEYZ!ponExMTA;yvjuc
z1ZZLUfBer4E0Kj-@C>b$J!ne6ZSifw{4@C;J@a>-`mq>yM?^_XHq$eDBMV8?Z`L%{
zfCf0ib%ae*P9W{2-SVXMU#IVkOpPl8-W;hNy>BstI`LfaGFNaP>cnj!=^<=wHAYEy
z1}1aaEeCT%1Srl9XYAITpdc+QwKwj*14<IAp}QZ2xgs+1YD7fLENZYUz%I!@IA7rI
z?VkPJfrKPJEDyT9Sw=|GIZ~dP*1N|CCVKI6EM^+g@+B^5@99!bQ!lxQ_LReyGB}}2
z^X8oCSvrp1Szg>Ieibtc39vDqIV*mJhNtFWCpCnk;!{S#f(qMw3)r2M+s==_7<{I<
zQk~;2RdNi{_NNy7Fxudu_zZ0G9XC8|`;k;j%)dRdXkJL0pq7Yjs`DN?dZ$|YPI>sh
z9((sLrI6b3Wm})_75#daCD<4lhiK{O>{0vh274L?U;b)6u~TKD6t<?DGv;sN@`{gb
z?YUqhTl@u1Z1|v^DA5qolsqMM_r{^u(eHIv_HuoTj<x#eu7m{EjkacNi-hRbjecBN
z@y4ggxHB91{<YI|9Ef`nZ=Umfdenv|EYbuQR@P#OGMROtkCqY6K(li4J&u)|u7A-@
z5ypB)tIb}Lqk3I-?~2vv-s(SHU?W@j_@QeS@sLTlpK}L=kv2Cr!uEq@06j0cxqj(n
zae~RRoKVf{ODl=~!%21Izz@AVgD;TBu_04hVUzzt6|vzzXJz~(^QX%oP0yRF79&!S
zh8w<CQuglY?VFVZVM*eYL8?I=PsfJ+B|^-7cYB7|&+S)w14%TIzI)-2^dNYs`C{m2
zcPBL7&DCuH`gUI|FK%q7G9S~@GnMb5zv7poM=2>ER--n4aorz<aGkN_Qujm>CnBoS
zkK9HQ&)&F$V>-W#8W;6z*fO0A`&eL5Mwo!qBm^eZMeK<|HM)*!KFs}0c!Kmw4&khU
zO<p7_K|O78s+is9wg6|uiES49($TZHhebj4n(9Q40&b76dn4JFg;TE~ZG7C_Q)bN4
zUiFigr^!jZO7oHEnF4KyQ!hs%t;}gwBQUR8&FG09C+^Ii218D|u)4$eUJfB&xJlek
zs^tQ$r9_jL#P4>x`!4$6e3$`$;tlil`CkYQx0Eh^zKLk|x@RcT$m;m!fclX6(a6aL
zjxu?=BXi(;=Gb|IpwkMd6I}zzN;zZQTY3Q}<8%Gq3TFp3A+Ju86vcM~Vp7~u<&$H`
z8oEG7RVtsxc0aOiH3I5VxSD}%PN?fwm3*$8+;ea~sc5(AJSdHx@e|Rr<-E?vZEEm6
zh1Lhfi6>G;(uNoK(D<Nf93v^dgO~P?^(t3(@*QQxOS73WBptX{5Nayw!P>oI=ckX1
z(5J{+fJPRL%+ySB7#I<}7t|RO3gS48%+ltRoh=C^!<7o7{;#E_6W&eg<2w7a#b$4m
zGKTN-t~8-r@b#@w(&+Xo(k|#ug+X`N1RPc`rme>Oao4b5N~7oKbF!PLh-Hc8A9!B>
zu<2#rB$!%Zl=T<9em(v|!d4}AzX5*uukIV3pYYXUe!d>`*D|D}oxe^yR4JflJ2&>f
zQLReG-3yY#`TK8ID^L9>HK^}#e099L^46%**y_a)d`X2PY3oFuO-UhssYJiLFm~=%
z?UMS2Ou;4IgUX=1ej_UMKnkIkummU5+n%Sm3wJZOb>l&x#{*)<eh2zBt<4R=KCxt?
zDZiT+gz9~_<VEx{xRbd0*J<PhrmDo|6&Y5Pzb-;}oYM|3&5N8rpL`;z>Ru!J$luZI
zN7M&r>}$zx8VN*^l<~x0OXC}kXu<MhW#P-%H%bq(y%RBBV(qA=xl&uNLv}5TOXBL!
z4&c>eoW`o9{tu8F`&gSP#hAqeks;E@w{!FS&8wvX5uV$1upIU~fh$HjE(blNGq~Ug
z!`z;&lNF*+Ws{sv3lrQGj_nip!Rr0mZBgA0-j)qM^i9hEbOc{Qh%60Se+^o%;zSJW
z*`j*9-&HRX8@fmM7r$Rutz3*eQD{Z$TVAh_t3DVOUVQsTI!#QDUwgzttpKZsG&y6P
zInIT(^D@EFAf0;UnU6=6Ut@98qwnz~Gam8CM!}q2g3M*EDTETL-_UT>zeeukuB&%l
z?;b|CP(488?cIZe)brm0Cp%2=nZ4U(+flWJ_ht^wluq)-1jO!TkgE>2?_><wp6Bu;
zdBji1=5{sOM<!`M-qC6&rCSVeRKvXvk$9X)Q-2xP<qaphxqpNN6$<n5)y7IQ&$%sS
z75{U%5mXcN8!98|<C_X@W_Y?ZmsIuSE(fFu{s|J~ePg7L$P3*-G@V)4*WW-)&k<5Z
zhG<qB)h*9#3hHcw_KJdX$4O~$^`X%!&Dh>=F+A9V`{ztHEtL2)y8vNhQ@5}WRfkqN
zp0s=VL>p35DUx5jt0mK^f|-85@T6fm+TJ55@H4(58gUKgye;9E`VK4pg|BidCz^f1
z3TyLT_AQ+<d}>HvOY|msB_=p??n&irw~8!<=qSR3gw)PaLM(e9(AnE(<EAG!slDGi
zzn*Z*?NR!?im{gJyN>?S$Rq6$5dLrX4)#ddB0@KKdf!pevcCq!yi(ntEVCFJaCNNN
zZmw+A)tU>d9~73cJg1#GmsRBNrLtX-p(t)Q;C!giqdn{(0BYglIj<TuHZ&1fkm6h}
z7<`Uo<9#e-O0YY&?EUWvaT{=wEF-*E`0#Eh4t5MVQ<`0)5gC6%wC;34!quTeGyk@S
zowQ4I4smTqB>8Lxdo(p@N+=pBpq)BrXc4)3rQJlGnvFl!_LUgVDue7q89m8L6s^VZ
z)x2}q7OgOj+@xh*=*d9VL`a{_C7o*-lS0q1K#kl%w$k@)UOj0{aZf&&yy#(iR-+$T
z6~$J{-tptu<26hB+fQSoeziY?I3<Wo=Io{z<l=QGCL6M)qvOx8&K=zP9m{>+wU@AW
z&Ob%bGUn#nn`GrYG$o-WJ@j)o#6+TJ&jo3<mUF?I|0y!st?8dG-aQ`^2y+}T<?bhs
z=cRklR4#AAyNG3?mpm)R{nX;%ixP}yH@(p_d3F|D4~tTWA>8`qu?hy+bU&mR@fccm
zkkAw2n2#<ae7jktVDeQI{gWM;>~2pHz`IA*m~ON*83e39Oqru~k>XB8R#(*b#$PZ?
zbxyQS?m5bz-PEZbkb1vwpjzlcm>ua+M9qNC_p<XD&nHGLg4BCQXSkeWU#Zz=FW`-Z
zH=jZI&^zAQo|bCRnlAndp67Q5-fzGsqb4Eqr!+2HlqGEv7Uh1{Oxchx@b@Lwd8(A@
zmmhE!7^3uKXUpeyc3W)GZj{)>6a94SenKW0a;Vosgp#r9|5o^gUk3NWe&6e%0GMcr
zW$XADlEw&}4=h>|z0)+-nHgvBNmXOT^Zgh}oQ-x3NRz+RCC5j40*ZWuN!<_8=fczn
z9YP#s6=Tl+8PX?0QGhi0VtypbzOY<9ioUkak#vGuoLE;iAkHR+&g9c{ej1|THejd2
z^tp=VWo~A3htSG;e{LJMKl8Bjl0#T`hZ$#(%LH5As@dlUfB8Zzle|=Pw(;F1xw?@A
zUnX)^+vT9q(w9-5{wBa<Hh1CHVd(PtuxiR!F@$T^B(ZM0>?(EqLYM_@nLfUcKeJKU
zJT;rWyZ-J?Rc3@^rp!i75t2y`$d9o#MGy1_qcbVm(Ud4#2xZo+&b!2xC%Yvh7kjj#
z1FKeAe}#GgYbA{`(CD?$d{4uU)F0ijFAhn@h}-FrTJep?{z$Z~h#DEy;%-q;c{Jq%
zO_lLubSKg<nlR_5b<)nUxm1YLBMLH)c@!#rWK`i5KN>m|i`sgE*-Sn-Xi}hhOrKo+
zwoFVv|JRPS*GF=+kjCHW501yX`3JH(HuC;>%FlGD3VL05y*{ot(qFmLTEjygii{dk
zKyvr9npBN{i8Umo?@UKCYHFuufnp_nZ#z?X(`or8`a=xkDi@o<b!x<4)E$X?8r+A+
zqrgJn<2C76wK20L?>t|=utBTQFAjSgQDa5cQ==+UHH9&1V*UPPbBo1EF{?1+?yy5v
zGKs{!u$o?;yh+^|($)1-IU|XV0nzpQKe=lYail!LaAFVapS+tc;p*K-&)~LSVPMWP
zSUzX3x3Z`cYyNuWk#Xaj%xuekw=x1JKgv~H@N>1{@@OA5$P{hoXzJXYz9`;YQb@wI
zPbMZ4n8w2cR^AC@g%-TT-mG12y+uEAuUy$qv<t86g0P@{UB0y&$QuBV%#1hpr>&Hk
zY|-M05^EY^^ZD3x_4Mnr3!A>!QtP$Rw`UL5aRwG@Y-B=I>166WJaQ!-DKw-453PgF
zbf!roFSKk>AZ-K-jl&{o=L@B@oJ0EqljU_>jK6;q%8}9-XBaeQO!e~~{#q0is=Qb)
zo?Q2W?uHinSJ*ARmGkP}&z;?rR(Hx7%lRBvES+B#Zx?iV=zsPCguYHMPQdsSn;+P<
z?A3X7FDSsy)2w`FXCq5SAf^;Dk|ROhCP$6;lH8kq1GL{Sakt^NxAf4yfsi9#B3YjE
zbBY{(HiLicWYkdMSL1Lhks^Rn*`6y6y`rFJR9&T77WB#9A<5c2?0D2_f*+;&HpFQG
znqzLlg^r;CY!{ebil=st`&l%l$bCpd?qGaLkDQgpsWn;n@J|rUi~JXdNK2~dM^u^k
z3-+5OCrH*@wZg}jrWUS7!Wd&5q~V0UxoW5jB<b5m?A_%|S4+qf!?3zhGL33Im^d<E
zH6X~gQBh<T8Cf%yCxfih-wr^}GeXf0oDaK><`j}^I!;B%zTMxS=>Oz6Fk4@kcqPw#
zg(7>#u7*00|9mW?db+Q5eDjbS1`1?X8Jc9Z)KnH4S5(m?XlCuiS<m>qpvIJqm8OXA
z1d5@zA&CaiRkg=*?aOLY_m(2amv=HJ_&g9QZ~M?9#PRW282>1=25`FphfJy<lmDfH
zN#FEFV65S&O#Qb1>G{z1f$g+e5=zgm;(1w#2!SrJU?rWn&44bkmq<X`Zfqy+HD*cp
zjrDM;FDG>|+61_Y4&8apngj0!y#d~Cn;-BE8`3E3%gNI4beBxCn@dtD0leZf72=N$
zOk17;dxGd-VTzk|cBw-3dQ!VX9W0%C)vpXmK72cu7;h1)tH<r6KkEOa$ECHR+~ru0
z*+UBc$I#!&#A{pmdUyLny}b=B29`5^jathjoL$>D=vPA&UfVnqCUX3O;^h9*gQ}@#
z3ZtR+4+b(7BdbkMR)bEG(0d~u>7S!FK!QWQ{!y@FqvbLuC*IWEc;Jz{J>duQYu39@
z5@>IE4_l`v*1q+^uP%KWuNVqWa43C=^hxW|pOky$$~3z4raGsd%1;<_YxGpn&^%)C
zB)@$11xi{@olu8tMiS|SK=UZ)!;@wWA^B~}MclKp_Ag9|&1sHl^HKQ7Qm>tX;o1QQ
z8?n8*$jz|nGh3<IsyhMk?h1+yBLFW1<d_LcDS}srBJGNP%r9AK{B`hotzU?Z>Hu~Q
zT$E#6_Inca4x^L2ACAAhK68^;3thK%C+AD3f9-rOjGgX%r6wdwSf72_k?ATPDd~6j
z7PiUI<xN{2WWJeU?xH#)3gIdiDG$AU;}|iuJEU<E<Y;tG{*C#IFS}FgR7U<fN-Xa%
z)nEDGwymY-`Y(F+Tjs2<C82iQZ_XmhEF=YEl-bT3c5S5jQR+B$pj!89^_VB}8VS3Z
z0!6{0p*Pom<P8O*yLTu0mC6W1{3yj_c~R<){TY-cP3+P66D^6@zPD;ZgnF}oN;)zP
z<K2#=TM#ztCc_%X-h1`|9$*V0Xw?XMn90_)<X*jE6pO(+AzCQaj$P%>qT?%KT<0lQ
zxwv=c7~`9sy6SqJ<T8TMWW(tb#>G6Nf1S?urI4FT%0)#B$mRWiqHoe2Hq=+cm0N2K
zHvH&IJN4}p1(^2u*sbD`Dd+qd(%F{L6TCmvgsJH_9$jVW5DP=J;Bh1L4A*oe;fBWu
z{4jE$bCigVXV{mGH3)Zyl}l5OL268`?OUyZyevhDP#a5e)rl1<P9*N`UKj6elYH^b
z_Av<+OF^-3D5bZbCUn;$&Y0CrJC!hn^S)C<GxhFD<nL--KwWVxN$J|cm3Kf2FAw4U
z6N?(1pL~INV!e|t2)0g+y?{^%rYGDQ8*{xVuty#lsWPPJKLL}D7}5*+*!#}Evzs5Z
z*3Y7H&C8r+;WQBpsc^Ts(Q2KHMb^FDmWL{eVd`Y78QL=2Au84V2`5Uj9!Pq>!t7Vq
zFLgDhOpCl7p2^Azb0iuclPTIh)1pV4FcTlADvxMG)T}>2n&JwrUtWQznKQ*U(a{eF
zJ{)RXtH{uq#HD}OCA8G{I=?n6Df$ZSsh}FpU9b0SNPB8gKOG%+EB(O(j|^8_FWxI$
zDoz^mbu_<h4D4oz3ckG_fxB*b{N(7U)T<_HX;i)7eaX&LDY6fG0BVTNbf;c(*o61H
z3Qgh^w(s_L>P8giBC~g!t+ThHlDiU4WZs5H{!`W=T#~<g?JQ8zjqK7jcX3V-ig`f$
z0BHMkL{rhq2PkgLDBR-hk{c?c_+lp_p1PVpPAZWMc|45M3Ckq#JshB0+KXB+qT}kJ
zj1u#wHZ8~Myw?5tki-b-?3vkHB_mVC4F{vNQ1ppWs|N!@k017|SQn7*>=<NdadvL_
zlElF#gvSt^!4k|)zTN2^wfXcY?4LDJ^p~6Es$&v+M+NMf8@0HzJST|jDp8fUfSl?n
zlHEKenZHm&R7l=){406yGTil;IZ`c0oS{9PmrLjqUrxPoB?A7(+R{}!<{1&8xFJSq
z+^t>CI!fGUJs)ATt1$+ao=!|0Cq*eQq-5_hbgv6Pqo1lBx-wz$#H{XhCvqsXyW_Dz
zkTrR4Z^Evo-v3cvXNz;>`7(w<N)}mfyV)jP_$~Kr2a2Oa<!w8;Ls`S$$HMDa?MGd@
zQeF3@xN!8%di-^Y*|G!wL8Suwgq`;#@51{<+e%)94|?u=>7g!SC$D_L-}n$-v(w@B
zE8&Q9$9%wKj?9ItH94>lYUdv!lp@>C>e#WJ;ga7$FaAKC;xSWEP=E@WOKdkw8Qhsy
z_(IxI7Vp|l<6fy3nRZ9%QQT<^AN=gC>Irf^*1Jh)Cw@uqSYlD|TK&W50I&{r_x5E-
z(?p?VU<|yYHr#$Gg>jpM*m(R1spn5<smT&-3u)18P>~---?)r^9cGtAY%;$r=T4&o
zt0qG)p3S>{@wVfhR@Kfo+d!U<QOhE=9ay!VHx3P<V9%lHLmH@>ZFm>ijNt-lV&~~u
zVd_H?f7lc^g*BSIWb>8_IrWc)J$2>Q%W(9}vpDQZ92wFi!_%ebjFkA{)7b07Ti_H@
z0;V%4mAayRp={*R1bGO#XQN$3cn*C%*{#Q@lsB6}S=eTwh>z0W)ui}xjrpZ6&XB4@
zrN`XDnuZrG(DUB8y;?G|66(h>Bd|Uqdxi;a!T<|}sO4PmT$aDLRPjsxL&DJY(1}1r
zvw<>K0Tlj-O`c$PC>$S<bi!CFVZspa{50<w{Ar*a20v<{(IvI^uEklM#|S-8t?;+K
z9D3%76FijZ9pl+1fzCvvxDN=n=Q&^gLZbS($K>~Hji$-^MKaBnWL|V|kfMxMZ$Z?=
z#Ja;XVPFf2VWLtjM_`_J$g$udHO8~*pdxszA}x+r4p}IM#xInlOd#-%dy!YT(&-t!
z3MTad6|n!#?m@jshWk13ivM^59)9_3C0U__?y1Gi=e>1-xq3R!_8^`)c!hFv0jF)M
z@9%AN5@r4^kJ;F8JI%dyqn>~2vaz*pW$NJ*rLMAyE#eQbYTMN~+m-Gfl@z26)&gHV
z)27&hPw2<NCs+AC!M))9TMIAQ*cva%nLNjT3j{DeuJb?J@}REv|JPnU@WKDz4rCWt
z7`xBpdV8BQe)xSO>Gu*c+hgAyPcyU8oQ+~FIO^Wa*)NfKPcUYSwkQ5``$-M@W$fWS
zGQXG9e!q2aiM8PQ`$*<yEtCH~K4bn^W9?W3$4wFK|7~^cX4hnudl1~fpg#tNlFECC
zXwr!jBxqkwSbrUNaBwjAmQS(yQxIjwRm!6DeZBRJv{hy8H4P2K*78WfCVf=)O=waw
zm5jH)@LH>5_ED#RPEwF9+ZV~)z?;!o&*GGqKTDoTdGRQ=M)hE=tw`Db*FU8$eW`Iv
z3k!|!va*;Z9dG$&NAm9F#!zbKW3OEIntI1q`R7V^QJ?bek7rCl@TGCQ3i+1r_E0I&
z7Gm!|K5{=L%p|x?M)!Ck9!jz$Ngr;!`Ksg11;6hfwPWhDe0#)81Ovw%R93LMFjxf)
z2D|b)Zf<VwA!)3{dvny<+jjDUW)xyNV9eGteM3k+eAlnNy?tbVi|F@cR{5n-T)E?j
z!kb18je|A!%L!e(>_XwCrswxw<Xs*+eKT}w@{o9>UCixIVYbh}J<V3S-7^@<(T_UV
zE<rRADhAYPWR$cu$5nChZfO~r;<8BkzNTwmYCu1^W;W6qU+o#SFYSa_SX3pCx>$M^
zWtF#ioN6=vn{?Df*vs?Q_f2_E?RIVJL+@4p{&DPIdFQTptOzkdM-aVIY0wZz&e8fb
zs6Ohnxzxw=mS1V31I!zO@9pghuNFGhx`npdfNAN<^6OXP<GAtTv8>BLW&}0GKGIV9
zj_tGIPY?-l@v^59mW#G2T4(FL*l_dN0zPLtl$!kr{pN*MRrwLZXD0TdG!A|azBt8W
zR}J27RtZ{Np@E^>L0o#@kp`3q>4=dc>!6~ngB|nq+(VeQBI!RuGjobQ*FFF<AqHmR
z&hME31B-hwl+zbQ#@Ea)RoVpx2IkS3t*x!dCr8*LRp32IDk6E6mGXq2Q9@p%B!(<v
z4|@a3d&B3)#I0q%N<p~8;79EN*4@@j2jY1aEjiiNTHRHCh;}J4u(B<M)ei<gt|H~b
zch~SbZ+R68Jn_}|&5ezZAt51yIr?d<2XqReWq-unK7zJ6pn>Qxr2p_hJglJRdLF|q
zj-GoSz#4Po4aDKDB-WbzkFlvbKleX*<$tAr{P^*vnx*GQLKcGYXUki1sY6?TBBr3Y
zepy<BsN(;tw5qh!=l2}%ZeV3Ok@AWYq0iVk8KGVAm$WNf2h_vbUY_RSz3x$qH4M20
zYWVEe?;kV~o0IM(0Z49LZ}iirPsvwwV#7xaA76i<a`Bi-r(vdQU70W(4o~Lbm4EPJ
zR+;T4+}Oq@Jz$@ho3%sVnH}Sl90(*&N{9S>!K1#GI0}MJQq{LU#CAuE)6T?dXF6#1
zwck>&k{<}#^uMA0h>dPB1R+<3G+KnEEf<t1v%cHzQTy51<I~kED=VLe${QOSA4G8o
z%*5UPWVthoK->-+R~~VitaPht2p|RCqVI1<EiNpm+E+asNr(~*{q;kI(zxl9+o-Fn
zTkcg)%%K)pRn-?;RXt?B(YidJZ(hPM0aq*GQw?6bW?k(u;of^SxBD=zn*?sbi&ew2
zw)K^X!gSWWVAboU4zct5q*Zwt85vQJaH@Xa|HfswVqfDmP4n~f>s%rb;?#e=f9BP+
zg@dVx6?|$}7jI>OP1yEwfQtvS(Za%FcUL?&9T&8>v3QIsPaHmd)7MaKdpJAhob)n~
z&;Pjgr^`{AX{%hgA{`6z&3M0q{tT5XNN!LpG11Yu=8gj6?4HkegdvfuQ*{bRX>e`Z
z%z#KxA`@5MuM+sZ(bqk#$g>P;4dJ@S_}c2!)D&TJb5lprbJD*Ho?;ug@$xhu(qL^q
zSD-vAH$}?QxC)jc!!w$9kMJQqJ)MU%oVWSi(lsL>bnf}T#Pr-I1E2Y-7607{p<BTj
z!d>oR?>xd91-YmjC>dKTpXI#VO#J&>&%*qCeKWnsOMgx~cz7$*c6uaBR4<)*{iej|
zQ%9mfXGs;)s>UnAb`GM^No06^d-Zo;t{xhv_>FRO8ldQom<CPB)cUV2RnHGa?~B$x
z72;2_!D9p)KUYTXEvDE&m#0cm{c4}>-Zze}j_0vA+hik=NL3ADRs?lIQ#j9UC@1SI
zH+NEwl?HlmlQ1@34#yrs4%hh+M7&6Wl$i)dx{_aL%l4?X*lB>9nOPeLqn`}3)YU}w
z-mU4-+_kl}_dpQH{&>%t0A7{Al}=DYdsnFRyT-=Ik@^4<pIM>B;9#Z~jY{55k+wEN
zOq9dLr0g1l4_Mii9}!XxQl_t<veJaA`f>1qnLKY5lSv9G^`323n+@OWJM<dg7`nY&
zJ)pr1$D7-QWDkG=F#>mgMtK|Bbf$7UY%Fv~(HCVAbs?Rx0s)0^>l!al`H20kO-_L3
z_jsf%eBLTd+*S@a5^n>ALW_l`L-oTHiV3`Oy2R|7=0SF$k};4bLyQgX+bZ|h!(ugv
zn8fQAh#fM1XG?J=*vV1&%%g*^{}{>h_CXbH!O9mS2iB4P{Yr$bQ2O?mEG$?FF_Lde
z?tF7$DDr3P3uz7d*3cmJMdakAg4OKo?1V9U1YPmj@zeG9$BJ!RW)4+?kmq<e?=3xk
z#;IPr(~Fk#E)Vs|^~<C}zUnK(!xn=OM}NYR@BJq=8~o!=&}gCC0MqW;*x2+{OZljz
zt}+C!IeuFq4&@3p1+UNDGf*aC3P5D3uhhsOos?y4YD>dz-TIoty8pay8wdQkv<85c
zi@L_iFHa9I9LOCZ)P#RKuMN{JM}QQme3q3r`Sd-(O=a@r<jES<Gs!xj7kLam<4K<R
zsZg+tTsnP3t>5E})J;|Q(L#_ia4ZToq;G9vlB5>6GA^nXx>c)<%r`BlUI%z*yM$T-
zE!|ocDrsKqLCI~7BwY($`{Be&mrhVn<S`q+zGpE!vVx^yJFCrUir&q?Kq1uU0j!%X
zvM8IYooNcoayQ)ha)h(euFO%J^-CWe+FnlAKOD)2fsC9E0-(dw_wJh04^WfTU=Z5K
z4dVg-&HDZ20`uFTeE^tBm4@z2`3>BqE%<`78%970P1jq?Hm<cMaETf4Zw(o0*m`*4
z{RY&6Y!gNG&w0!?H!&`_reEtSiY#f|=sBz4K5C;Fd9eExr1Y;ER$G*9-kq~QdFs^I
zIUb&|+65#`X6v3J+iJgBRo-!%?~w2FYi3p9DMA>5I}1DfEHq|L6<St=Ah%fb!x)Sy
zVY)t`;YV@9>O(mM;{c;p)cRwGU&H6e7p@}N6|t=F4XjY)?$6{=VGUMoF8&S_pka)e
z%nolAXGJ$0X4X8<7>?~qxZ*uk=A_dipc1&n2f}|E0Jc?A1dX~6{&C)MTlo}CHN#-S
z?s=I8L?nayeU9+1R4-MYxbx!03$Uy0f**af$XYh~_NNGNy{H!UiQ_G_pru|kv(T<-
z|7A%FWB)mWP7A8CLjW2;Qs3;A8-wAP^jYTgVC|!M$K3KZbu%h^NR@lOQJl;ZA<MtV
z#?uN+Ja4@N1P!E6$)4##_2HYrzXXmy|3NBgQP)CpsBL{8$s47wR18G&z1FISwlL~x
zBu;5|0srq$yA#DUteQf%&(x^Ks_*~mLz;kGcLKo*@v{G`HNO*ZtILL<s_sKWH~SQs
zp_6X8^as+CQc_ZN%lQRnnU6XyXj)Z1SYH9G?Yk@J#NHP3Px>;|8eRxzfI!Ml`48#a
zTM|LPvcmz&*_WXlkovP~CUUc<r$-_glb+7sX`c<)ubSF=6^pIFWa^yzj`7&|*n^Ik
zWl`t5cx{s~P%;P@WKs9VXUmGE)NEMFjOT0+kA3+1q-{f>n*9AQkAH%bG^#L|1*I^<
z6S4tE?v`Z_abV6Y@N0xoSAK$v)_X1XB<oP7>ME9o^X}2~GL%g<qc}_>BN?Ny0xHd$
z-!(buB~G2O)=x)=%v>f3i~4ET7gcF173MHpc8cBpxA8Kkog2(*@7YNFe4Ga3HNEO0
zIo=i!IEA3qsTNj-cZGU>d3>lqIcW7D&aBAl?If75OKnk{-XZgE6&d?iTrCK08gP{p
z?g(eydh&-Xr&bxj={M)vW1>b2%w>~2|13wij}<r3!1d}`^xqI9;Oc;DX2=o}lnkAA
zO19DG0YJi4d=2GQjBImok@cQ~pyX8*yUC}e{X>;!E6>vYwLWxFbqi2gK%-th6Uoz#
zIhWR0=smsf#F@Xexaf&ESnp)YPLP?eS9p9*@yKk^VPVSK!JuNS$umtVEdiuaIWo`j
zKydrhA>$5FeXjst;S$w*;Mg?t+2~W2h#L`?EqySmz!j4H>HYinl^}|8!ftclUhAii
zHmtRt5)(f4-QIst+g;dCWiM61J^b{s!|&&GYXp3_7WijDNaoH;noTiVPs!Q@;h<to
z#vu9Z!xYG1W;(WrLjxL&-FY24(Ga1m{y<GSvL6eAz54-Rxsqvt8J#%cnzg-k#Xdf;
ztN327f%kZeymhLgHv<MHz%Bv9WbCwvg-)aVpIZi6(5~FWd2-VExdOo@_Ps5>+KTTo
z$Rh<~9e@(6OF+$S9<_UR3WlwWu)5Y1&@xIan4#tM$PUbNGeX=>wJIA9nF;Gym*qy!
zn6drAsTTa?ua(KFf}6;Ev!c|E7;Tn902=N7bLWnasTzpL?XS<+vy=c*`}J!u4|HZi
z2pI(pL6lWxn<q^>u0}=)B?FJ@x8KRR8u&r20BL)zq@>h&m3jp9w<<5r9^{;pm$Y?t
zVKF8d>5rAJ>E)Ai>7@c~5Lg0k7AvS0+BglqP6V)=(S5-9DF(SS4ok_sc<&b5ov-Xd
zD~*7qbAT)RC4%$J%TSj1YTv~kWdkC<#=Avkg2ZC$g@uK<2lA;+PMsXg9mb*0@i;ej
z;}i4zvn>dw0-d(Qtid2ktZQVv!JNKj0Txb2D8m1?o12?6;6GzKzXs<gPs!BYkNCd7
zuO!RDT6P%DJ90B^!mcy&PaMZY01>z7mkX&6B=0XaP?`&pCC#g;#<~74{<k?1OZWNr
zGyYu1e;O)U&Q)-)oyXqaw%*?@7ch2xaOc5OSZXri(McxG?bOrETsKMNr=szD+TN0E
z&!YqzZ~o!y=NBXF28f5a*iv_YKVut}aYy)!+R{6x>VCjeY|^fK=A@udOE%%_?PJ-z
z_qv-K-@pH2ephZf^k8>Bu1eVN8jC2|gNHTiVP%!d6{fYqb$op2I$)gy&=!34!Pkp1
z4mJna_22#TGw#UoKhN9c8e}}`OI4tC+6GOJbhtOQ^-3Bs8T1C~%ETsG{9eu$jX|Su
zvec-Hr+I6&((wm?$O?FO1IXJ@czyhFv}{J;#pHkb*8@R;%LoDuRwL)yAHEJK$*vy|
zZm)%bzKCdgx+J})BI`ZVSa%l*xOhsXBG@B3d8y&{TVACZalbEz*gaA(Ks}|}k&<Ko
z!E*fHxKa${z6u@VcV?8K1_+U>H6mzv*sXjF{|mc$;{_rTe^`Sh=NBGGQcVT{W&Qbq
zT~?wgXv`DWVgEGX-F}F9sr$#{r+LF`LN=F<m={_Y;k^Yxr{*021eL3W$)IUc>Ij+F
zLG9CVZqooW=%FwtPz=b}V|;;X0PLG>A&Go?Y1hdb#3g)l1kF<j0FNI~<6)0LTAj`T
zB>Di{?hP*>CptL=l()LZ?7}=Za<d}$JuC@uw0cBn(WChex+St7Fja(Yz=&y9CBR;H
z@?=$zwc2sOZ3DlufE?36W`lTlX>OWS+%6q7RHsjw+dz$PkROXA5_S^})%OUWVwE3m
z0JRxbVpF%V=1fXLp+xDvHSS|Fow5<c%#>57PSxn*0Gk(}yt>0(DNr8Hr0<NRqddn;
zKjaGodhS6@Ls%vYfaQX#2LMbaCVo<_PdG9Avou;d)_%5mmogBPrX873Vs?u9@=&fJ
zZl*7AF(lp0Oxt~oRG^b}BHfTE!<?0DeQ>HVJy&G%q*&$Iu*tE>lWhHetbN3RXw961
z?uWW3G|$wJ{iWT^&CR`=dgnceDhx2oz*eBCN3?MK8X@xDGY2VvF1M%#EDx*4sZqx%
zKv9M!4%LIOx#>fDuvq-E>r(}d?Hiy5%nUMBEdj!-+94@1&sYhxMH=(AZHc6hLQ@q0
zN4LsQ2@<>p@+%WCtPG#tYn{Q(H@6d0$blF&z|~H93KP4o#Dx<Ufuo@^p$znZzF$ee
zW?P;YTRJN&6OAF8Pna|x{RbgdWSDa619mC2YA4JXOi|4pW6&9$!iQP>k!1w|Hmn(0
z?hkyFf@BHr62hWWtdh&3wRclC3vzdXDk3yZh4PuHYyp3wI$=w@91ajqO%Dk=2sNO5
z@z%i5tsVpJ|IPur*f5^X;=mC=$8m@Q>xVK?K{&;#$w(GP*#}O*HGz{7?wJpL)2eDl
z4d_c#oV^TfsP-7)9CCSqboKJ`GIDTmm{hyj`tVeG|4?A%+3rEJ6*qf#NwynTzQpK~
zUW;YEvjkm*4BC&=$Uhs{{{B%wd6#a?B&2Z}+;C{eKoct++oR2HEw7C`#nDRu6^V!h
z2Ex*S>Spg(1Y<L+1zJ4=aEMnI2e7&EpF1JMVW+hpUtz0FJ2TUOe5<bk&aO7<DN6EB
z58vq4;Nj*zs019O-aca6)Is^sjQ>Wyakg%PFi6EqMA<nY_d<|KiHV6@r^dk5mstsI
z(GuX7m=9)z#T5qKPFKDApS=Kt%&=9(?Cd9^g$z@`=W1p_GdhLS2Wtx#;Z*(>AWFIb
zun(IeK_jZuNgD(51t4{C;m$1RqNP9xFyr4*tMOhcD$^V3{a6+w#sN5QaAt`~01p0B
z8qB?cIOD~$W-9WYla&=LJ4_K^ZhfaTy}-PrpH&t8DHs;bua2<%5BcdfX|S;aRfOjD
zX9ki+$#Y=X)xbJC(){kmqq($%JHpCN9dGggwbLF;1mbEL=pD5=lzOid+<vUYz9j&g
zBHQ8#D9CnePX!=Lv)t#-DIYh_cs_WpHY1n(;CG7{Y92LX^XWJbWH^uvu$P=d3?iU!
zxl!xq0Y~4uXQ0$Rwn6||z2^(vUrO^<=01CNk6}~gi4UX!>u(Rp)G$gDJ!2F+?<n6f
z9>`R4-Itb}4jnEq_Z~ZIZnOSeSZ)0qmm(GP!bZ@#Mk_nqBqStyGC^bid0KJm`_Fhy
zj=ci47M7eEtnr>*Eoq`!wSjwOD2q-YMPT{V<q=XLkPyRtfCiHXKXvZte)YBkz5l=r
zX%|MW5}b_y|Cxgt2f(@Nf060{#D`d_l?uY!lYlwRcYR?dc>b+GzuL|ed*f=0e|A0}
zn=8n`Y5CBtUw0>;lsR=8u$<OLQ1`j?Z1uvxn;VE&A(cRnM3!;9SJOf#cY#(lT-NV|
ztOQ6qW%TK`g8Ov+_V*&|n(Igm;M)e(xfH;bqL5pFtQ|P)uKkpbiHWHY_DkCXo^uef
z^~I?$Vac(9kUG1j(1!gT3eynE3)Jy8pj*oBjDtOe!s~D_RmTuC{A{c$^I+4kB6l6n
zF_D~<v>+6+kPyVA%`&}gK<hOHk8K=GR>5nwnVtbCj?8D<25ODswEvJfRo)>Zm!3ox
z{>1=H>((}~kko-gg8=%UZ+AMUbXQ5Vu@+b)cq_b{z>pnjK8QIJN-FZy*#GsZVq;^Y
z+Au?T`%uByPrxp9Mm`%k(Sa!t@h_`k*C$g57V8aQyZ$B3mr@)B0_TC?+&XmRc;Uvq
zIH0M%Z&nI;9`k&W(%3pF#3rF0x_0=|gQ?m_kASRol>z?R(67NyX{_ed>?$Y#Y%58%
zFzNvr#2nv3ope9VvTsjQ7lGSt3G@j?0tzgR`H$}d408p6A(`F;%!p+sFzDC~(2(re
zB=LLuA~1LTp8J+9kr8yzdbe3Ug&*4hzDr0ipusV|u^8yXIJ=O=WJ$APn-IMUm%hw_
zo}OqIU^jxx`*gEN;rV~=f5`{6=)Hu?hN*yD@#q3#fZA07rZ|RA;bG-I%Qg4RSI&_%
zoo<!kyt&)@ko{@;Jeb@opkJ&s`}}NO1ytnye5j?RWj1Tf5nxIuA0X%-q6AZEV4kE|
zME;WEluug|czUL$UuoYG$voI;VbXKI9UNq)WQDEPae{)iCjctb^Z?jIEorJD8<aCc
z0s+HD%nBx@Mxb0}d-$F`tJ@AV{Q4Lp$a<n$nBBcwN-V0GsaILQ{sX9*$euthe}n}W
z$t3C0Q-B<KpnvzMKe?-XurjOUx5PaIs1hOt69wdZKTy_8<yZ?AM_>{(m~|EZyNDW>
zUJhILD?B=3_Wa6!Tsv%3b?eLOR@?KmBRAW1IPES9D}pvBiQEDn#m=9|0k_-?D$D%W
zNX8%z=7o4fWmtTdbE3-Kyb8!h0}mVq`dRLFSYGGz6I?U&g+#;R8=zLR+=o98&H-04
zV`5@L1Q=Ab4*<t1WP!UXw$z_N(+RT!$TG88Gv$l5)d3M%0KRTfe}Dgsz-z5QurxzR
z10c1y7z6~wKpc?expvEoiX{da%ASH6kq18jI}Nu0zJt&w;MoCUF3kIuv9CD>6pUcY
zT(qR1`}g->%~_WQ@<RK!%m+EGS_Zn6%JNuA*4AZ}t1OMY{$h~hs8T1u!Npm9u!ZBh
zNQ%vd34j>&LeqlLeAf6u0t^Coi7^g(eH~EbVJ^TyOqoV7>0zfejqcvPTOYo+VGaB^
zuuM^GOH+}YW&vnF=uXF3j^*ug-)HIbtj=RDW{`g47ciZ}rOjO2yu4OfF0_vkU?Z6!
zz+&qZ$yp!bn6UNvdMv9CEk{^piE_(Nx8DY^QV>`t?m)-ywQek8OO${>+)1q!E!?ck
zD!;ehpaCkuQXdIcj*3BF{+a8K?c>(y)Dq3EKmg;poaJD{fcNMHP&}&zxKum)A98^k
z!N<<Qzx!F(7MS!k6JkB(*l%S|%YTlZJE~@A{Xp`8B(7Wb4gJvjxq`o1MxB^v-rkN&
z;tqb(8vP4+V~w65#dM@>YS+rEJ@H-xS{L+F<?8|f|L`RAr3GmNR`zekH6FIV^u7l^
z_6uJE?a{vrgmE&CwT8r6kg=ZG7WW3#LNN?kts@k(Y@W`>^$tGo<e-TAKIyA`5PHVr
z>dSt+e;!_RF)%YbmsQ91>+7lKzkq`kYK8>Q^_3k_o6CKQvxO~y?N@_dlHS$M&t{@}
zYw}S4`c)W!24ztdm9U*xe_xrAq|~#~QuQLm-WP$t&jf$!_s1Y$b<NAKuEg&C0P7u;
z3g>QQz5_u6xP@3?i3b`0v7_NYIL-El%pH|4N`mn0+S(iL?a}{>yEhL@D*gY)ZJctN
zN~fAKGqonuu`)AFbFXnS$*oe{Ma#?;%>@k<wP_|RO$#&^QYv!;#au}du}#B`TyR0b
z${httMG{1Q2mH+EJHP99egF7f&-b~m=lPsJTsY_4=f2<T>%E+tU2RMA!_f)jt@l$q
zNR}<lTIjLOKp{$wdc4_xr32-1_7WJh9drm4Yb!j9n!ee0F*0FoW!lLOVY(Au2_zWT
z>?gL!{g5#Rkj1?HJOl!%1#&i@7YGV3^g8<Ez5_7v=@Z}I=zu(W?yt#5#WX*UJvMg?
zwRG>f1SI_ZQgCbN`bGkBPkQ}Ob=9!q&dQe#3D14BXFWlBc$8qCnXT;sy!R=sxq9YY
z)!pCvQCHOiWn+i1?taCrKs9GrX!p7Ieh-rD=1Je&k{<fMTYEIP^~#M%<_=l>ItvAj
zy-#Zh<z-<G8E8cqfGAlpX!~S0l+f1m;H=Qz_0${J_U~)fE5$F8MqGebC@+~@(7F+7
z5suEa*Hs%vg*(14@wfx~etmd3O?{WIPr^QUxTK6MG@AMST^>&U+47S4ukoi_n%E-?
zdCJHC-u&kDk0U=Twcpk^$;)z!`~klHAi2`FuYWl8I^W_a40nihcb+$>w_)*L#pMgs
z?H{|Eg6k<6KjgTnj*RumPyJo9xBV2wF$oVZpd~~dLWXtBwO<JN7yaa}1FU-Z`R4En
zO3}_BV*q8@Q!vhR-By+UuUQ{{TE0MNNqm<2yliu2Mds48=O(BDJE2GKF^~zcr%i}v
zS>f|k%{qJA5$E2KT)gxx6zS2zjRBE%@&1~dzWB@RAJqh4a|PLP8mBw!2r|op_z~TE
zktlW+GV5O}b8*?)bHOqypp|X`>fH`BsKz|#yg{Y_)DF&leh78#Z9!^BQSrZq`TN%o
z$`&_1z2l?8(V1$$LAK|rcV?g8tMOZ+^!#B$9_rfp5Le(mJO7SDFjOt`O{4rFi~R<l
zme-#B-dlkx_?34LcpaPa^4u$}6uado2c$GvMr!M<@^)lRMwYiB4XeKEuQOM7Hs@-{
zo&HhOr}yU<p!q9)m!lHvvM_0xYYwTdAqd1Jeff7auU;t#wB3LH!onZ&zuf!ow)~y6
zbmfcYckcXf7{Nch&wT%#<m6u!_y3Ca{`u4XTOVI--dgyR!|R`a@Zb7pr{?U}wToFJ
zS;eGbQaqhNjwO#(x{;SFT`lH@DO?}2fE!`KFGpN~apj@`Y8|}ZsTMxslQ`$5%xuj&
zwP>73>adDu;b^43zJmU*aiV3DnA&FV1&zSCfoRB!86!EPpEvNnjTSP!LYtDdS@F)Z
zJZpCx+YKz&?pogg%t*q-_SA5H=)Newxhsk$t1pVanVC*}d9$1OUCZr*AJwo)A=N3+
zVQbmuKaUtcMKs8S$8W>;>#qkNJhZ-f(;l7pFWqDJ6$+ew1vY>Jwkr6JRd*di(z_?!
zRYLCg9{d>@t8LnUWYxhO>lXJ<pMu}9k)BKbx)Zq5gs#&k45w!)n2ZgCtw=wYyPA5t
z?h7kdIF%YAlk%Y(-#0DBwb~<lUpLAwFxt0)x0-L_oHYH<50K%-&9rBE>sP2NdtfMb
z_;U_(9Qn?;w{pPlX~3bHoE!&jifn0!RXino;raNLdg)8@a&migHpq0a#dh=h?o&4B
z*V{UdU;0j_w8;;5tT%L|Wv+K~_&xvsP~!j0AwoKysrvowSjrtduJ^;}WnoV$(618q
zz4aQweD?^BQhCfP=Ac}1a&{IxnEyte25)a!+#uKT%W5S5%UR<pxg;0y{4)%&%}i5y
zXGe*KvC{EDA58gYi@4+l;5G7|aCg|ek0bYke}+elUNn*ax-xFo1dE%+s>->WZ_qpP
zHKT9jC&-ZIM}90|CXCX&ET>W$xzsrC7}e;wPZVUS9c@K?mbgK#)4dq^OvVd9aQ{<z
z@joI|q-M2?YCcd;fNj9hB0Tuf$4lE)37=Snh=GyGX~W(Y&B80N0GLM|8F3DVtqa~M
zy>QPh-PCZuyXJL5GI^imFZR1W;R`kv-?zLc+LoU@%hAKNxtdM)9+F;re6Q;l!hP*}
z!F3{AfKRcXvzo!YVOof9@H=k`WlCvd-(r?@&P^}3Aqm2tU{B+noHEF`MhAXhpGe}(
zY^KI;!{A3;dAYgc#(7}^>7a5)^#Q%LsAVS60$t;Rc6@8DHEl30G$kMwJ9Bu@9c$dj
ztZrzv#haACDWt9RhL%fG6JZ_5)&_e8aw9^kQABp;Y@4=mLn)&mwlj?xEz?cE&6{sb
z^ZIjzh4Jv!P77|*b*t#Ef+V)(IhpOTy9{W6`*+5eGQF{maW_t+L{*d<8awZx^s<m{
zMy9rZJ^=aY<@nNgq<rT_x%siL4)wPiUp-Ux@Ye{6>iQ$=#_#-ZA$_Y1k2pejR1Zr@
zw{g4NrpOE}D}f@QI-x;<{Bs-@cgLf=<hZqZ@HzWA2Rgw*eQeQcXS`|+vC2%bxo(%}
zlUBT(((IHxO+hZ9M&xGIIHR@uqX@4I_Vs!-<Xg!#9g7_(THN{NyRe^~%GGOuvwq76
zn-~3n=@U@dX2txwbT`3`)gcQm58BCUEr|Y7Q86SbU29^Pw|G01s=JEYq<%s~Y+zf)
zQ7%)K4B`NV4E@|zAawFU4A*<E@N_YF$SS4;hR0|a5Ss^5<0Ku~@n7-X$0SN}L$*e4
z%=ybo?3d2mrWwc-w_OiA7Pz)VpA1x4m8|;bPy|G?kK&tbdc1ie#e!?~Tv&tbJSn<2
zsvujQ4Zq;#l<?+k8?xfkCb><qg>xFi0x?llukrrL$Zt<En5LT{Fm5E9PwG%h*JyqU
zo9d9%QJ5`qduj^9;i>7QIh`@Y$M;Z^shP7xxw-Vz@~$z=HMUjxHD5=PHUD0)_*`Fx
zUN}!Q$GVPKJGq7^-6Z90a^wy`K&-&Nc>{yN)hAyy&`WSmE`!kOy@E3Oz-&%5zQipK
z%PMe15*nwFx0Ky@5HweIBdlZhwnbu%DOngqlIMHT%$o}V?FrxyvFjWN2`grz+(mu0
z_wh=yi?_W4yw}&S?C0z^@g|8;XnF&<5}z1swHOAiR^pi{aAmG<&w(R12D`QKyz+Fs
zW9hN7W1}4}$M6te@eLS{UCN$klj&ZV@+BEQ`{~QEmUn$4YYAoIh#sk^%lW0sJZ5s$
z|E+%JzqM`s7dG%h@qL>f%cztbak=#L@^-ok-3^DWblelPj)|8q&+H-^mqNUK+{q1%
z)B7yfvFbMEW>z!8m483iU#WuS=5s;(8|?FGtgPcQ`Sz9@G<;%>X?>$FpPSp}SPpSP
zRtU%FWQEmrkYX1)^8^;pSE37yhY6p`9R6U2nwJWvXRAuUgBsr!WwFB1`*6Z@aR~o4
z`!+q8K6g#stQnDr=BTnRBID}d>0}vm!cK)&fnRsCZ_zVc1}oIP^34{%$>RjBzLf<K
zX3#c-%p~q1*Ri$;s@Y&VC+~Z54Z%z7$j@T?;zTZ(foc=!ILZ1RbIF1av6VyOMR6L*
zjh{i!rB_U^Z^Y8_1Jt9C7L8#C;(W^$N5-p?Dhh@*KahRUsg)Mt!l8V;6WBPSx;p#a
zkPEZ+GUTUI*OE=#trRQ5n`X2Ih9({AGcWJKU=or%w8mx_%KIlj?z_Yc>v1Tr!smIn
z0T0hIc?Os@jJv<GTlTTW%>%9G@~ngS6c>pT`bq47F>b74?YXeG^J@(b8v+>TI$^z*
zWF_euIyvXvH!*u!p<q!_p4N8d@x^?=cnu77vv1PJ^co*-`^=;xm6>n%j({zy5q-~8
zhxe~FB4&UGCAWbqy<-69bMX4_{9LwHYWUUrK0eF}&_L@Z<CqpwnQ0Md&$pM&@ORT9
zoWz4%!f3|AEypzXt&J|Nz1i{QSZ}UF^KOhn&fH5a{0%)7zhk?3{W#1%xI2)hSk<l3
zV>ObG)bma~rwU9q@QyoHG=6=U0(-y1Jmna(p4?H-8S0<dXup1@ho2GFF?HyMqEA(Y
zo!*EmpOebnDCeh1@MS)Cz?iPS-MO3Dkv9}eE#i#UbH1<vbZ2+DG+FSH-9wL9>WV-&
z;Sh=ZHoCH_{`7Ppdrr+IZeO`oF6;J}*K8en(l$elxt2DGh?)KQ-W|%<D%x@ic6H&|
z$k2l|{)Up+`KO_Ep&ve*^UC#>MkTAOMD_PLvY<|Bez&nnNDs7=Y3GY{q%4dAzGa(S
za*xUCpW`Hv1|_HmT7I_%D-ij7i%1Og*0L5y2>;NEkL)%rqz?SZBh;(4JSHjD>&Rs5
ze%Q?9CBVQ8AmM|MoAFQ7jaq>Hn1DmI7f?V2e4rbT-QqgO?Z7BJmg$e5waVd-<iXR6
zva4SFmU6UF<}c+GJ1-o$VeICVH=yiR>G=t6<>?dQDLGSzd?Jgn<cyl0e#at#_3{QN
zRreOd-NmfhwF~@8dA>}cUVPeCclOP#KsK@Rb5mS*zmiI+3~MJB9d~JoAIlZ?;ZN~u
z4C=Pj$(~mJ8kn70Ap3}GBrD5+PnGA(l<CFKw|~5mfhmh4d~WhF;8*?gW4)X*CEs`O
zl<xj)#eUgRS}yH5{1GX!M~c9Y<K}XOW1HAAGwY|bb=Q|QvAwthcxJExpY+eqn}dtj
zzOt8gJzgZ!X`Q1<%+u@2e)KP3d6jOoyaq`<+k}2MUM2oFej3}tpe?b|H0jB@y?XTe
z(S~WjFeS5VXT`qxtmaF|a)t*o9@b~kExOJRm0y;v4p@fgE3di=A%VRsejg>0-=Z~Q
zG_S&Ku5KJ$@|F?a_44~<Vn`_8nNFpr;*Tt!n7TLXuMN(?6VzYIj37X`iQU_3x(SJw
z5oWkX?$Wm+j>Wng@ynXp^`*P<m#4B2yyfF<)-%~-lTZHgcX;+UmhK8wVyU_jE5lvY
z0H#6ovC?LL0Ff6wm1prPAP^>3j;6dG;*@`Q;AOZP#V=4aA6+NoE?^b$DQvibK(92B
zB)kAX%g`q@8M|Ag=AG8nALt?|t5-BMmW>*(-@kjCQcjsh_H`NW{kQ-(BY=o4>WPVL
zf<qYqjrC~#W}EV4;51n*WnhOra_MyRI{!7SH#Sw~mhlWeJeCbP-v&G<1!sjFNb>Xv
ze6pS!8A<_$!C?t&jg1%i580U;re#jlPswXj-t@M<hV(oZ#h?F`{fsS7-*x2i^e1_K
z&Gvm>%ohxod|#jHAsG#l`PTqNzf6A$`1S;T@=eRO6GJZI3;ZUwQM~!`U3M9LtODjN
zokWY!5a7f-^Ap{yn3z2uI6B3Sz)6S^igBUUhlNl&egP(<$=>jdJbn4Dn(fRQCO$`U
z&1$^B*&-&xKM+j9nbG!%?y?`x-jELHcXwOejwSZZaMhk!1HKj4ztaKlThJh>))J|V
zH8k46^4Vt%GOS3ZkuB;{x+QO4aFwixxVgeb(VoSeTww*B1|G{Xi4EYV(p3Y~Ev`J^
zO2<v^k>Vn?YwRNe{i&M<{7OzB!53SW^d;F$MqQ&npDur7_EG5vG35}8BGV|u>P)Ua
zv0M=|fDNx6oVSUYu_u?2B_>Y!Wma|AhVJ|_%A#MMXOS5=BRog>d#;K2#y44B0>J31
zrXMY;5Kx$8R~p%kpBF5CpyjnQ?00NgGt?97j)dv?r{|Orff=Y7@V_by4~Cf6Ao^RP
z3k<&`Nay+@=JwVb5f_lpOv9&!-o=k%`EK-7%%25%WovP&(YttK0PsYf=4Z#NEUvLd
z#r(@0(I3$@_?wgywsA)mF@Oi1+AxLigJrPGH%v)amt17z0yr1ykE5ZlN8?<rhBf~j
zWz^lGhK5xZfXSsmWKseS+}ck=EEv=Kiuqgc#%|d>{V6a<@dnQuc~v8t8Cje-cwrl%
zMH@G!9z+<=`@YFbAy0;09t~Vj_8^@@C)cwJ>9;(Gf9xaD`ju2mv-wj<`g94Oj}y4G
z&FfEXqbry2w_v`Xif6c3Bu%ZUD$H+}E_TmTKwz;sW!U~Y!96Bcud`pE4%~drjsG!M
zRC01NCFv>iNCEL=Ll9$yj?4@5jeL_EO&GgM`K(~iORB2#c_p)V<<@|92mszRw)u-j
z+yw2pLV`TMS{>OGn)317$>F@u&j7p$cX&NA7QSQI@)>9-J^*$Wc833^FB%y9G_$)d
zNah^eDYqH71g-{ru)?Xf?ea@i1>&>lEMf$KU>3dV*f+wOUx{0I$4=z17G!$se#N@t
zV?H@(XbLd2-|UgB)8z6%NlD`wen0y)@KHD#OePX6O;Vbrt4-d%H)JDEG(x7$-=!yY
znb%V)z7IEZrbIk}43O{`Z(Gh;hqcwX3P)VHo0<u7^@zi7OsA8>3!mq<%>FDLz<m&~
z8)I~CvS5jwb;O+a)qp>;i5+k>7K|-mNiUFdg_i2>WgT~>JTXN~tu?!TDe$%kxYk*{
zu}OAXAplTqJYAAE&<55BuI99`!phX0kqJ{n&iIahIs;dWLZ)bj)ohBVLYfA1RTjBy
z92>@I-ZK)9&sH3g8DhZ8ocPFuFo_6iXO$|z<wTBREFR*@q%idTG-S`SlNoa_AR;!R
z*WgnDW3CFIPBadSDOk6bhoQNBP1uS=B*N?&(2|s5I2<?#A<6EQ&v9!po5QhJPku9B
zA1q)-cdzU(_k(|Dq4tKP-gd@2$agM2+%UC%?ngit0$oxRkJElSpfCNX<<g5Bgc9oS
zUVyXfPqy7w_lKa(%fmh4cRrNv1a7m>5Qp=7ZVJ~&*$a#k;Xe7zw+wQ@qD)9-H_-q3
zx6|DXc=UQUl}^IVfi;3&zK~@F{dA5-DY1N{It0a?JNjbX%lCLJogJ{$ceaYU47_Rv
z9BCh($+Msae1UHHI&9zW8PgI!V~_0rSN3kt)3XXqf*e4YU#w@6ZGs+d;8ox#fCC=f
z!j{e6FSCBDA#EqF>&PBrndwtu0lV3tjp(YU@egbv`b;2WxgqnVTsI{0-){OBV$jQ%
z2ng&A+jsZB*!ZiI5))b@dgX5i0M}3*GI$y*W1rtF02dMwPvGk$d3rW{JvM7O^V5Hq
z{5#oyc7S^kx;Kb`gi9Vz%j9HF7NF!wI7Kz!!`!&!t<uqsAO1VjSoYNQi)A(S$B}qf
z%8BSzES~6!t&9Z|OC2kl1Fv;%DIQ;cx)g;_D#C&CIzr-$Kj-Gl=op%IGbTX#G-r^%
z@fGL||7Oo^#<Ndf0E47Y&vp1?g!~t2@Y{L5n4W^4bCE#QPF~QHjR@e`T}>GT$HxO1
zmGu=LAFK6MX$0@sDsks8+!S7RcPdRJOQVWd;a3}JB1EpGHP)S<&Q6!Yc4Sp!5{&vx
zb;AG!n3hIfnFP6O8c4xP{JvxH*^czCO$CcNH>Uw!`HeUD4>qUMs$YU&0yZ->{Cjr^
zpu{`_=Lny7@R2|^Z*QscZ9ytMTJ_pSo&n&zEl;+10~0)Y^I!yG+z~!isVhwybT9fc
zil!5ydZ2O#Pq?(0nb9uNCjk?1Cs+94CgSo9Qr<kq{Ld^)Dd2d5bHEtK4Q+0dr5oN~
z{=D4}cDwOCLv)QTs`%W*D=3q||1A&zj0g>6TU9!`zcOiat;}tZ2yY_Rjhj@HDl3oW
z0LB7KP#<LxeTFWHTVguz_W3J=lT7}LjutnFt^!<l$PTu;FS&@}k$(~SjA}`UE9dsq
z-I`RRlkxa}8kd2qXSp0a5gb>bZuY!!da2$Ri*v*ltV7qsTLI-d*^PHBYc2sSg4yzk
zYv%wLC@}WuIkFDFPRUslK9XArY;xa72KXGf%>{$&z;%@P%h-DAhs7Um1ad-l%s?!s
z*D)F3QvVGEPgL$|(ss)zZzfR-n$9_9Xjm9bJ)&Rk6ZQ?)%U10NzO8t}DJ&|oPE_eP
zPsR<}&!xCTsJ&cQ=WWpUx_iSvTs_1Mdl~;Vu~h<weX30ap;KSTZhr9_Kr&2Td5c9j
zLXuB+z>VXfqEmtK{PJLA2fOy4gcStEofh@5&(Pgmud@I-NZIxe>@L2WD+JNgcNGZ!
z$`!KyORxdKF>_9e$!Lq^Og9|~WRw00_{ns8Bz;47<XbtUj1ouh1G3o>$nFBb{+C=~
z(?6fi!<IRXj#uT2OnCJMe9=F-(;QlC2}rX=VsYZgKSKcH&VIep^nwP8jDk+NDhJmw
zwYw}naFv95YPcbvn+9w66J0XOEG?tw%jg0BoI1Xshl`Af@XZH{-C+5-`aA*w2N~q1
zR*{K_+2nuC`L6@=EDjxs&+gnudZq5q9pw5E*#UGhUhTg^h^;s9^<XDLxU&VRF-Xt9
zxkqydFwqUOvZR7sdG8~WF3~W1u!MLpZ@wem7LAPM)X9YFcrrkdITuVZe^<PDEEu+S
z8oM4+lmVZo;;l>g#o}$UTBY9}YtE~=UxH<X3=IRkX0$=wu5~9G>IeMGG2p`#{sGp-
z_*`N9Khe9G$gb!UI@R3!FT{^mhmc98Ri=0$E2JZNJ>PQNzf^7+fabA|ys=t@Q(d9(
z27e`3Tw$K@&*(A*oWh;_HpT9ry-ycW@>bPc$yXlUmrZUiL-*$aqE&F*^<(S&AV__D
z&dsTHY5of^HkIl@1@~ueD@1bV&wdFX<yxdye)Uz*mzoN><53DbzN`h2ZnaVNyvV-K
z-oim9eWnW+AnDM(ezMrk@42GpM`Qp=z5}_j={G;=P01#h!LtLdJHFGyKmqxMck5nb
z>n(SA8A?ye*@Zzi=#hNfnWdnQViLW>6MlhI$2_yrl@bAcmyY8y>jd9hULfWr?t8Pm
z1A~u0xw5E-R&w?AirIPk<O&4t341NgHU}EPF9X3)a>N-RwN5NctP~Ej57B8ZR_^(v
z_r<QWK!%68r&mXwW~?-r(DkT`;#LBrah~85+>%JrY;vdrWFNC?Mp|4OFat8}J{|xp
zKg*xedNmb@8!InxhWdJk9$C(&M>@FHs+XIc^mrG~l8f#dalnU1FFj-mXAS~6kWn9U
zbf6^a)uEH(X!*I<z`3Z2%lR?$QBAoYHM%LKJ}|Nt&u_cbA0})8ihYYu*#mS*c_K{s
zRU4mT1V6$?ET_*xf6yy0xa4!<LqfEmkl1|2siCiHH?wsV$zem8Uv)LyV^mup<{!1R
zmsUy4SZSIA(=;pgA@@C!W+RTAd|QAkAFXE(;>_Hn$*9C8>Tbmpy%#b^=J)6KO{tNt
zuuJHyCa_b5r5iK);x-xc$AMDFV>Nm-P@fVDw3N|sUw(UtiIJyF!WG+JabLxgLLyWr
zp^#TOWD~)DkxC&DK3%kEMtA^;-xS<Atz?;cERXxivz)dWPVL1g);@eV;z4dg*zsH0
z5W1N%Lx$sDa6Jw*HYXGTas4@r_k(RxG4R7GUfsxRQ~YA?3gCGLTa6yP1;{Z0hkKi%
zW+_?p(dUJ+Z^VuTSqL_t^)GDqpHpf4Z!^IE3nf!V^~|O{fAPu^>j7-?ZF#oMe^btu
z0TRZQh9i(>YzBr#@K%5x$!-07hYhDY>}I~-E26Pg=!A`e4RT*}H{bBM+vb+B??(5?
zR&$N=a~WlcQ9TYvTjXVx7C~8JqV&Hvc&kcF(nm`<x#mOCn&n&eeOXW$#(%=@+%WYA
zpZfu)@shgPg8j(YU0UXZPIo6xr8x~O(YCeRz8*yHAvOmX$G^3f<`7Q_oFL4BR6QLl
znq2b3pT1P@P<Bf)_~0$bOB^-%knn=b{M0x&d%)N%QkwXqo5c;Nq;kJYhM!vcHr~hr
z8jxaCLq9iB68s$i%%6Pm`a|hgAOR!&$JGV?7o_69rA1vp&$bsK=eqjcj;===exJ&v
z<xy~wE3%FOMwScf*e}7Ikr!brOR`jvv?j?|nPiu<BkBC&w&n^%ED$E=Y~;%n7by0}
zL07Nyo5bdcLHtJcu9fxvf+L#tk12rE0N}BRy}`ltE2~y`m;HLy-^zn*>AUU#H-3M2
zF-{WeyNC0Kmgq|}9#krtWb5HDZV{Mt_*FE$so6-%*p@`7M~uAP$CPVqZI^6LKxY>H
z7Jk~zsX`qLtxRlUnD92a%`|S?X{uqlp3glk?XVE!3N@Au!rl0_A?MIrs>QZ27~i?C
zZTD;(u0+Xv8mdsRo~}p-YLej=&c2O*e08c!FE8l7>cqn1wd;o-2v*s1QXw~eMm@~J
z14<>GjI4$kTOPGa0D`?Lhx(u!zoCyWmFXUvK=v#d{i*Eg6dYA0LmeOYzkD#bns4Q-
z(fB$#7MxMRIzg6XvWMlDWyUs4?mO0s833$ecTIE30T>X6khtN;+6QI9P|l9s-D4?%
zY)s|CD2FbO&v4{f6<%I`C8N2K9N@c<*NdCyHat#(@qOqew}WL?dFWSZF|;aIxB<vj
z?4mRAdg=*gG7{QU0c<~da}lqRJK&{srN9p7jQ2I2Ntd2X-X?XYB;4RO!@<Ek?=YFE
zZrLsSCFlR|E|$O3r2ld4AO8bJdA)-q9Bff8wZZALZPp6^7MJX-8{z!Yo6}8;(zX#m
zoO`ze7LP{g#v1{hB1k+5JiYa}Od*b*l$zEmDKrS%@da}7LxPk&FKWH7u6xh_Tl#7K
z2MGHAe~2=mcO%&de9mRC%*f3Q7vbUtChZ=Q(e*|5<{N{oVzwDxqf{M&97${~@DRiJ
z%RsTRyCF`dIcc{6GiLD;;Q_1Jm2MS)5LK{`(9w9~fB+ewdSG#5u)Ua_MfYOFy^QyO
zy;>S)jlM+q^MwgaDUXuB|0{HInC>6Q#rj%Q09ol6bmbcuUe(b`{e(s0G+W2Pl?NHW
zNMD?0$?{JxxYB-%VtQrwXp#*Y+@x2!R@3+_f)#anaOs-|o#)gh88gU`T!D40)XL0G
z+FyW~N(?Dpd&AD9r-QqzY7mb6*SY=~R`1vIh!3TGAV7vZLSw?4Hryr)OImhFvB9Gj
zpKI(zr6@ur*PjIkGV8P37XN73R;*EJ)#4rcIRLvFRVf+W2(-F!>v@dmk_TC&HZ#lK
z;tla0mCXo#y}T)pK3y<2hMawUljM;UtNylOOu)?`!Z#QEuB`qsdd2}O36a8K`M4TO
zAM#>L0jR`^%T#L&7`M9HoJbu22H;4(6*-D|5h^b+{Mpy3m6lHy)mNS;&EI)rw8ltD
z)iZm+v(7GnIclt}lqijM31jFReZ>Q}mOt;*6TSg@@4m>M><ypXkRP`aXh|}pJ;m#t
zdLc1O0NVYBrw;mBT{oVib>o%hMN3(}mPzmeYhN*AL%v|xjZC0XzD6i;uZf2n_$`SV
z3`Ea6yTyGB#HT@J=69jeCLJ$)VKIM7@tAzB*tZR=pic_{BDIN|)2pp5i(PMqPj0@d
zXqc%|R^w)}{M^Ym){ioiF=T>QiR&5Q_|(Eg`$jzCTt)jD+ZwX<n9)H+N$0Sou|AE^
zwqiS?E`6-0!67k`@OGH4+bw<_5FHli<2f5WgQj<P5QbvkYg>|BtU9_Yk3l{S)!?1G
zMZn9U|GK1)zO3fvL!NBcL&6Kh<;K}DoGofR+Ay75xyEQs(vMR*f>cD-HzKBiU3~P0
zqi5RLO}o-9NQe&umA)=MhLrRHY?ft8v%61osA#z`d)}nBLfH9ZTY(Q+t|rx0I38i`
z4$LH!J{Zdxg_94(D{@LL>t?jvRaKM9IzE#d5Hq!wbwa_doVjj#lKmV7uO9PLbVcg{
zY4yI}8rWo5zWOZbEJ<D%@O4&;VqgAtJ5Z`0>OjN<^NYY~6c1SEV}wU#cZF-C;rI)7
zee`^QMPrlj_2JgBm!{#4<Z`#^x&`I$h%Q8|zusJru_rv}0+59K(}Z6QK|ZBY>avDL
zCroPXDayXgiFp2bpUUlIQOJJZkOhOJL$}v_;9Cis3tWY}U+m0F(DT%qCN9**I-{pQ
zoX~A))Vd)h@=GnsPF?gCTvl^bZCRrOdaNS*UAGqPY1Xl4X2n!V*CXm*4h830<kSZz
zQU(a@gKFQ5N3HP&*QSITw_;>=p~X_IXM$rg_<fB=1-G`{gnI#b{aShj9k%K3YDECz
z2;&zfQD_yvPZY+_W6N_`+TmVk;^aOzW~pg~@RL@=U@pIfoxd0=Ge*fCC2k`l<R1m6
z!_9E#R+BhPcoT9k!T1YJybYwe{cg^0o4?*U@Wc83Oq;9$`y;nM&pNx*IR%H_I1f&}
zG+AUGG#6agTJm#I(Y27np1U&d6<<31$DZHpDYt!Zi&m?;;oXgc7Sr?5-K@Yyo?s3J
ziNnSZLP9yfZdp9ofKNOJ?zT^6u_kgfogCmV-f60l6wu}eCpXAuCkL|cdGV{rd5TVk
zqR^KL_9yW(R}d8JLO-hp{Wxnvo{Uvcz9cL4Nk{q5Ig*R2t7d*|$um7nJ&7Lum8t`B
zw2Kn6d4uN{if+T1zfcuQ%G=N=^XPUMY2aF#a9PvjB$bRF)uP@7Eo-k_L1k#e{ZYo6
zE8Hb|0p{3ev}Qbd^#)2ovjK+MiP~pt(#p!5$RZ0m!VXfi(2pPQz-Tx`-D2^U53MAi
z3{XwSsAi~yq}QuTc6VtO=+Sz?TBl|NXyLQwba&$hwYd|PK5E&E1F>n1mRibBQ=trO
z6vXlnwE_XhK8W&09+`|@?#^6XD)AaYg?GkdHS#8`(B4ml%&(wsjQ-d$*!DuK)55dO
z>@Tl0iP-&O^RDqd4BM4*<`JqI+FP4?7G#N@K!R9#6V{-_<Kk;EIL@95FHGZ{e~=o3
z?$ZkV><0-3r@#?z+RV2>K8$|3P!0rS)Yg=E^^eu?p8b@|mA*Of(8iwFG}OfN%uTOf
zCg_0{-X9fMy==VWbZPIw=`^a~v!)=oLYQx6(PbsCfHJ@SN0XC7)TbPCZ0@9GV&gq0
zx3<Y&YSjvlWl+z~Ucp$JpDEBdzw%vk`4pLkrC2w&b>##OHs0y6)_NapKvnP@$y<gY
zx8`T|!cQLK#nI|j@<YsQ<_3zn3wu1XV_|Okp4mpQUQQhxSOQ3-?^$AWvc=P@Sdmp2
z$jS=`9u!()cwGB#S48~_HJ{nf&yvpHG6(i#>ulVvmiN4hl_Yk(mB2GRlUVtF!N`Vm
zk7jz(W+eTho4)V!WA(u(JzEUum~B*8>PUYvoV$o|f$uASG+1_v7@QUxs=#~R_JQW`
zV7f8pi_zVl#=0_+>Ft3sALiM#fij2um^df|m|<_C^uKK{2Dk+iVo<@Os3YxnLC4S&
zJ7?GaM0ViP24OBXs*LoD$R6_XfXsJUm%?>NY@@EW>z;wFVL*gaqT-lmoNxOICPwIu
zzV=bsn%NF_X)H*h6K&wzW9iw?1t17|;jHAEj_B)yt;>RoI@?MXt6}kudmm2s3^O7Z
z?m}3i_!aeR4fQi|m9fV7lRj^?J?0xKpwPBbe2(5F<&h;u=3*xxBL^qH%}&P!wR6Uu
zn2*M)Asth7G(q6;^YeqK$3ByF^J+~#Z%er!$-!>BuxLX1Q)gn4l@;|?{EA@F(wquI
zo10U&c#Rg<>n@Bo{s?6gKG!&M*!BLk;ZXK-Oz5I%9Ui^xU+V}BN%ol?2i7mf;nKW-
z^=B8~?YTIN&?kSrQ!7Fz)Sr(ZD+_Jh)2D9DSN^Q0Wpd?rhR~`#qJWTRH~v11jN}F!
z?6oXAFQ8_&G8_xsi$qc9$HT!6JFpk0BE!8h>#y{K6FZ&&3S`L+9GZ^Y)wvhDrrc`a
zY^vxA@U9GW#l@Fq<HH-IYJN4*4481Y;;87TIn5DL7eC;LWufS|fyQ<CPzV27uaSQ0
z)xjy|5W(?U1f@J0v)8X82Kl<#J4>?S(Y0m5P~WuKvxKTC&M57*3cqK1thcu9!w8Pg
zwY+SCXWjg=Qzfipqjm3m$H2-foBLtI=-wy15^_N3NuM;WuPT8|)k5go(vH<fXOu@=
z;x75r6`3msFupx@uNc%2125M#ffo00S`}H(;R)&<MWo|J(3f7daCOfVBYv#IcnyX@
zA31rqCp_F)yNl38YVgVL97yyK7@bt}N=e;yVYJdS(FSFw41Q=Lime;HiZRAd>Jh!O
z1Hi_Qx`Q69Mc^kjA{ve@E?0%XhgRW(Ao#NgRKkIP=cC87wcxJ&HA0^oRLAfxEqpLG
zZ9sp@C#>%seL>*a9(}PG5W&onNNuV!DxsLZR~HLg^{y=gB^aSr9r<g-n!5Y7T!#7W
zfhq^4p(QXerlt+4!6Dy}WW<|_g;hg1%C2dO5O<{!Req(r%h}x@y+D=>uVx$6T!t-4
zj~d~^8yf}}J?dm_?i<`D)GFNhX!tUHp(N#bgG1eF`zCmEq37E0-OyU^ytjeGP{1JU
zS*$0{7J~>Myw;{Q$AS;g&gN-ZQVJ#zI=<;x7UKRRnrY%OM!%-zVCTnZw5A>hcft-=
z;UDBP(k~_C2;JdIEe80zQc6a0_}}w0c8IEDEsSZeFut3s{y|^|XGC05-x`TP`JcG4
zckVJMyx>Hx7#2^74~unrYzfiDj_wy*;3hG3-q`>M4_TpG_l`dCT)TeDobm$73`k`2
zPC0z88L3k%gr&h%M{12Hm+2|mD<v%6vGY+96?WZGt^2f-D031qftGoyoD`h?^xX5b
zC`&8q&CH8e^gvO>%oKV#TI*|BB~S8jLX`;))Tx7o`wSZKHNOs5aM)V<3@DTx3`j$T
z54oG8EO&b*$}yi(zR+yl0jKpH)i<@AeAZ|(#ph@W!poW$ji3qY&J}`&Ftw*Im})gA
zA<6&)<`wN0_*?787p!~92hd&Ox`!3|rU_Gd$87q(rPXvV{#CcDkg(vjsV}@w-nrm~
zk5vFE5xIXZ(%fM$)<TCU4lg#poIrv-z7>bsLy!KFj!?5*cv22I_sTJ^b$YW(m;~6*
zZ3MgE5g*@P@p`%>tvVrWQ-03eldkBw#@e#bK0y6yW$MR;vW*B`b1VY4T3p=?n2ow#
z`esrhgL5-;q{x+CuHR^nQocH!%DIMeD(c))hbz8MtI|2BFPtmLpQznxa|){2a0%5G
z_(85>yq*R<@l8%{-v!X`XIzq&aWtk)dsCnodgH^L+CZ0Cg4r)V91Pvm?QwJ776VX1
ztH)q#5JsQ<3nk!qhmpmpH#B+@YEtsY;9JA5aCbe<U`=$}t47!t$GwHcYE9z7Ev9As
zRr?)SW$>&zDhg_<T{yn@xIC7mA1oMcbcC{-JwDfPIqYW8mD>N;stD3m_0czrl<^5z
z#+ByO<92D>><XtaH9jH|Wj#{1;N7(Yt5D<-CiLApC&2H)2VT1%$qrolmEZ&pb_&W#
z62Bb-&tJ{ev>Y!F^{?&P1A91jA}0W2gFM5qS5aAfV045ehi;v2SBcp-8g82hoBNn=
zXj7sM_e42gGWA^M4-98d9M(CA@9r4zpH(-Ts@<z~mv#hSn_&<C2u6plVOl3h^9*w$
z!5PyS!T2_RI~F$fT;Frr2&OtX1&eTt8&32X1iUU|_Vb_QhZV|iLu)g6&+JtT&w=NB
za(YiwF11$>R6*&sQ6VTNm)Y+3?E9TL{5_4nD2=Nzg%f9VloU#nh#`@}TU*&{!nCCQ
zt!=m^hjV)$`&QJ<AKX@tF$7lT?_bN=Q<pz>A}AVTbjb!^@KSfIEA!$7d{FPVFip7A
zCbg|^%AFM=+_0(EsHVDhQB(O;^f^G8>~KqBuN12XC*0Uib=rmw=tO%D6z(!cj}paf
z+S!rmr?3!b?Y_1^Vl5s$>tCzN=<kDI;+#p1oaGMF`mzlJmz1^VG1o%hgwP#!7LMa!
zidqfAJGJrXCenGy9jTXs?z28uY<Oxc^Nc@xG}DIqm29Z(HklA{Ti88fgPOi}K`>bC
zVJ*H-H!U$dS`yx(rtc7-?8g8!$?<+qy?;NrQ#n|DBxXE}yfHRw>c@N|O97`y;@A#H
z<iKV==C|p`+^COjHsoA&-_+MStul;&B9Jz5VOEvrMJwe4zp{>{OV>c#fo1j*!pHXj
zjNv=x0c)@$A+&4ieb>Q9<EhJ(XYJ8h5ohKxS~mPQii!9$!cg!m4f8BL)vz*k?F~MP
z)pywh%0O2XW<&C)4%QbqSH#ga&FY~mw)KF&T{5==bRxSoXhffVVk-3n4T=Z>cNdx+
zE`$QJn%Qc4kY}#N!Nq;)UfhG5e(sZ%avG3Z1mdPvTibHzaF26;-1bHQ9u+xQgeJsV
zlMn^dPr+f%8NCyXCRGN#u(LPOBU>s(p`t&L!-pxUHLKC4C-oiDAifpR_)W8J98g6a
z+-GUbH*4{&Vn=XCbC`u9q=34Y&CmW^Vr-klJS_IuNsrOLcAs`??!z9anT=0d!uBb$
z0}<Db0H;jW20Z$<dbN)APQ^SwzGQIfL9J3~uvw!a&wr*0?4iVY@wgs<34J)2l96|b
zWzv}6AJw~y@PLP4^h4hUGDql(mP!?#7{p^Onbc<(*oguFz${1lZA5!M#dXDk_}A*A
zSBCnC_`2?lleQG{0Yv`<-8%>Fy;NCH@wFlG++^+KhcL3mm$SL6RuXOSTvGEHp>IX6
z74&uWRK<Nj9@tWOFwDrIjr>wSTMvd;&b}=7=-P{IycNe7eB(8geoXiC9$_D@NfhHf
zP|mnR>!AxB%x=szoX95MB6dh&d_VMEVE*58ZM-X;Yq*=SJ}_7M2ryS0jQ0F}&1sjF
z{8Rpk9ar-9SWp1?0(|{vV5om+mJPjY{F#J}ORK3FRdWXXlI<ow@=P(Fw-%O<|B5)+
z%cTy`SQRC|MnD+%Xs7U_QYtUrTQS!S!4&vpt^8?{X<T6h*g3VP)Kj+=?ck^S563|2
zRj@U<1Ogx(mxmEsbr*l$=A&*s_n|o4z;cd3fV_nVWik34PBs`-hLRe~JQ#ZT(c(=*
zV21hS!JW&MZz_%=``*s5=%!ZhXH2G-ug<;yGtSAU@7>J8Gs?r>2bHR`CH3AmnDq7m
zy=q!}*tY30{DRQ^{CJFZ2EG@0vO{#XnDZ^I8YiPIEr-_etiG(79BDw!=ziK6eDoJf
zY*z@9wR?LZhv=7N&>_11rhYt{cDQmdjXLK6X4C}!S`+G{VU1@Mhnrc>4G{_i@E|%c
zVTULvgcu8R22{+o4#4+wweZ)89$AC(ft{hb_B#tXg)z<OiC3U>>XWar?kF#<mFxA8
zn20ggchgrN`Oj#h&2=VIJ0A}3#b5$L<&g%|BVMHuZs}bEl4S{G3mjq@z#=CWXn>;L
zY&G3T$f@wX4HzxTUs0qFXA^8Z-bocPFRpX?DF<q5G5P8s5foLVnR4~II>QzovP>OD
zc!{sI_swTl6((F1C1j~r17RgMcOgdDcgdziJ?~XjmG-20Vx=Y)u=+C_3?7YS0d@qb
zL;PK^m=K6k4fxPdZA?wF%T=yU@2R$Q2~)?`fWw{Rwqs$TZgJZS0gDp{gF;GT`Q{^f
z_@UxW?xCu=^RIpt4?<O^k|ye#(u1nFi@m@zYoSc7%7E}NSmajbkuLwm`b@pM9XRz}
z$B*uQ1Ibo<7-6vxJUR#S=yoi5PWl#u49AqL8^tmX6mcVV?WoU*2>}MwT(EE`Qbjie
zTX{(#VniQtUCZh=WR&`-t`P4(!x%=yFTEV}ttWX@u!Yg}?7w4=V^@G^gMF;BYp$2T
z{l#XkzxdkSa^X)m++9U+H|WdUFM?v_x<345wwB3pyR*urU3<s}i}Vp^-c%=9O{RW6
zF}JX1?^Lg51}JJe)8-v+NC%j6VbcL=JZ-4O+;Yh>1=HsSCot|g?Je(n7ippdZ7od&
z;Jn+2VY#mGUS>Kj!qItnqk9{YRS#FURzR(0WTpgG+^he*IGlO0aoX@#;N`1T&Qs5k
zwhsXG5dmstT8|e^!3Yq#5zJTWV4-e;uDyjYsB_Kfj@2>Ek10^i6((D}xEuWN&{B7%
zml5y5MBt@xH8cImE8mJVC8&w}I`{7{D!a6uMfjsI#fFBw%%~$h7j-0;6P?;QSCjJT
zk|+aw9FSz1I-^4@FUX7PVCI5Yk0)q-^LJZXT$2hW$U2LC`FRtqI=;!rvQHeIoY$1(
zP3Y=OFIMV4e{{5lV!z;|b1)}7`;~r-OS|r5pw>zdiUL|#%e+`lqBnpXZ5y&ymo%;N
zPka`6=@8FT4ov1zR7b3ljQ+x4Hzgv#5(2=I4}^h4S---6PJ-!w!%EyYDWLY*FWgOE
zuzH>?d8Jv&D^2rYp1ftsinYxHeU6#bbUMG_1Zwt~6hBn!W&KKxMkiDs9`{3O8xzD=
zVvwWdxcZDkv6c5Vc^x5-m8Li|npU=VyQo_TTjV;gjy*dfCl|xL1q#=nh!}H<N<=vw
zGC4v$hi<Z>!goHZq6pa4P~c~@$B3S)N`IukZC-JtsV+7C_9|4==w!c8dmvblt`pcZ
z6**e|%qZhf;*ibxHpr#5%Tbt(14W^6jsWUQMVZIHf_WH?onJ`Pq+lj0QI9hxdjA^u
zL9Vzqum|}1ZBwG&t?nnB$_}jtR}@Jb?%kd}swd62Df~X&^UJ)`!qn~H%B)ZMq?YTX
zr?(O!P?Q;6D+8)vw|jN~f0ad>JJite%aQNoYCZsc;qwzAAV}`Sn6v5jTr3*BkL9)2
zmWiw~4(R`6gTlB5^IUZ)$Eo@{93YU;hWU8-1p^5(Frp)=>HWQ<RT0JBbEt`o&mw6F
z$Bz95WE5XH7cLsHY5$?#A4nizb0+4%!mdoOT&EnjfRt03w}efRuV5-u;VS)KV+|&v
zv4^o{_dz0UFaw_k>R<=WxnBuXRe39TvxQ*iw)}kbepTmmXF%ket?4OP$aNn%zr$<R
zo8?Fy%PSj=(cX_IR6&*n6SJUnyM+#Lp7o`vNsFuMyCx(wa-ODg8Yn)fF5$_oMmhYf
zk<RpjCh*R<>(z}3hpEHl$uY01XMs8U<siQ2!L;0Yio>QTK~lPH{QgPM1a=R4dKY>%
z1Vt=LJ0?1FUVEwy-E@?C>%>fEsl$ms1TQtGm)OzAskC&^*xLgj^~VzxpyodOqAF_j
zH`E(Ma9&#DzTG9EF8m7rL=az;4}mdKiQ<Z5<DPV$#;{*}QvG?W`3*>9AGh!MN+de-
zVz#l<LK8$NucP!sLTI~@+Q|M4>k~tSK{pD;12tV7v*4XGVW1No9j@_}b(@e;#8}fb
z2Cd9DAEr_ct;9w!oer(^Whz`hsj{ShG?wU~0$N+i96}zZ0%_JdYjrn=1v8N4qZ1nQ
z4WPB70c(AreVA&82-^iZq#=-BKW%ide)<kXtk*q2>vqIexW!#a9DCu;IziRYGO5X)
zeg(-d`P#a*9y)6NCUun95#?=h;@0@5Z<_~z&fVmOocdeFI=(2;T;j<hG*nyM-D+@d
zg8wp%<D$ZE9Ic08V!ssR^ac;`_E|uGXB0cyMzQWRCK?o3KLM4DzBr|3^@}9f7p9`^
zLXp&M8c9H8CAui^j*1L}V@EZqyHE+GXH+N;KeYudylLwx$V|C#zkPADKilXoe4kxi
zqW0L!L2YMKs?D%E2?>H2|3Z@=W}I2G^Jjm#qd!^VHicFVqp5%hO>czf4Bd$mgpb0c
zfb(+)MGZCh@Zf?<F{?WpfS>P?q^)h>YW}{JncH)KShS3G_P&behl#7r!;Y~c^BrI*
zm(hcUYE8s;zpJdjK;ec_9eE9i_B;KNd@%$S=)#M$R^XKblO6!Ui!v_~96I1VcbeGa
zGd?<nhL{O>+jh9o$x8pSf!bSf28UYBIEBres(5Q4(~*1P@XD)gbJrK{EC`D1clE`@
zH|L*dY%;P_0D8^@^s0oo_8{)%74O*J?Qfe@cuJNw%_=uUC?mc39O_4)xVfzt;6jUc
zSMMuK=B%P{ZVYal2TWL;A`UAajg7y8>Uf@3KWe*Domi(C=d_S#&w3S4WAl8Sau@tu
zRdtAzK{X?R<Lvce+g!<VCN!8alNs-qMa#HfHg1QjEi|2O1i~s9R%?8`>S4vfI6cRO
zFPho3j~i|db|}SNRgAyTdtl`gl23=IWiTEE`f#UHCI<VTr58;fg4?&t|C|BJt-gG)
z$Y5?pGY+&cj4M}8e;-;hgtVk`(EAErSyH0UYs0J@C_BX{&5ZN2OQYzk5$!9b>5HUu
znUWN6;}(>;;pD47M2G-it;xlOhliP@+Y@yq=NBJt4~PY?IaaM+YuAr#NK^ld^}AT<
zk5FS7GiSze%k?4o!6mH#Gm{-V8Lve5Ld0!~AOl>@><gfl>2NXeMB^=i8;*iB>YBO&
z{TvH!R(@{3^9346`Da(C{ah2%Zt<i&aCDW(U;3`lMp(yuHPUM7(AqXW05(w${Pvaf
zaKZ%4Sgc+&FC8&McXxkDe=Ht0&3{d|iD<V?HGPzKO4G~ik&?zk0%0(BSona#C>!Yw
z*D?vVWxT1b8xJoLM<(zEv}@CFchRyYJUVObw%POH(zUfu+u<<q+Om5=c8}yqZhsrT
zNl6tQTO#a?9y?Y&&q*vfpM>5tyTLEm5dP#lxfdj4qo=yj**CvtyL3oQ{Cz@HK?Ma9
z8Sy-tZPd8tSdb1t#SSG9{K=r>F~=y$qjv9IKAb)d8~J5U#e6oA)TJpoLLEf#Dp3={
zZ3|Ww0gkkM@5~7ux+r+fq?g#)*83_m3AMy*`h*ZT<wjl6mOPjs(M4mlFX=Np?Uh2d
z*s+kO;i)@j5KzFme9Yl)qz}yl=CejCNn?k<vDuW5mSpW119btjcOK^VZ*>5^Snq{l
z4A2TX-mm7DoqI)`ifSSfSMOvh*mAH{j^Y%5u`5qJa;X4fRbCUm7uME^X?t#=M~(M9
z8b1uHa*A6>4q2J>?}a?>{nQsH(x0WEPej2oGh92|G|;h`0alN?agQp^4CyU#sDzNW
zW5(#!Xnx{ovss}hYxdJsO2263zW(Gg^5iYYC1=&=8YLYIdJZHJNxjUp%gT3(9Fbi#
zueox*E}=_C<$14|jlkPsZgG3OPX(w;ET{l{#E40mj`xkV;pf^PXG!u-Fv{<aBj%Q;
zJ&?ieKalK7%10d2Z5v>xbn?GfP%U39PUE?FYeTtx`GCZ8CVksyE~1gV%104Ely}bA
zG|grOQfJ;}WsG{KVW+B7^)ghCHdkc+l29;Rr@qv4wR=FT3V*IQ32x6oEU}k$HYz%l
zMO-TOot5kiq}5}o15mc)%~Ps;z0GXns)6&`<=#ia1aa2WvfG&HW}o6}Vu=;u3_{L*
zuj!2q$&uj~bd$o{&AT0<=u#|%*U8t2<B^4|hf#K`DXkOWvESD2XQqVL4L4vk&$)JB
zgI{)==nh^Uu4{0LyF}9&T`F7l#XoAh|5D7#p=ghrVe;H3s$%LiBOIa%HxH;7DMVC&
z=GnA~cmBQU_ZF8Mf-(J-M$op^rgp2i*Q>2%lraYbi#O&1&WS9t1;rynRW9d<Gtd$}
z-me7Do4o0$tO<{4|Dgu$Y<kTX^Xg8k*`XD`_P(BTbr-we`yrD3(W~HgbRVg=cJU?0
zaSHrlz*4OwIBZTa|Nhgm-GK#dy%%)~OSNZ5eQZ)$89v!b)Nh(Q%gl5zX`TU3xcjin
z;k)GAe^6_ZYx&j93I0dI7=`#?8mRT<PMigCF(-cEW^SEwZHhqos#mSSb<|Rl#^NOg
zAfPm52A_L)RolpWI#2h}SdkWoa@na$<JthS5slCo^$WsP5L|SL7AK-S0o_kDpz4z+
zqfw*UlV_aI6(_hZKaYWgKVL1p>Ouc1O4-UDU4q$OtC?BQ2Ggt)vrMwdY<3T0TDN?+
z-0_XFxlzEnSnRAi!=U?+PINuX@>avISo3T7si;wtfFF~en-8x=^s<(m6>yEC=3VOh
zm;1)iN9`@zrYBXOQ>bZ^4mD0hvj?wiKWb11bX0FQK<iein}OZD0K1&RPfWC;ZgXDS
z92H(^nSE_8XxhKJNl|kpJYvNt7zlgDo0VWbi6d-yWo6w9&+_6%>(#|n-1l<!)(U!Z
z$2-eF>KDmL=NY-^m>fy_$IWcF_un2yC>NQZVnfLSz{A|G9i)mFESd!<F~pv6q$KSy
z#8ug)!%AO^v!+QIy3~N?_Hov5p3P%9Kw{9m86jb9?qK&eWfYNB(ypzYZlytm(FTtO
z>#~;;xgeEomUyB0z*PdhzJu3W1X?R1dRvt~_)2io#RAilYx!AfN=7&i3yUC@o0w|{
zS_^AmB|MrqpklSad9P{A)%DH$s`LS**TqCPH3-&@fmoTbrf^>uU5X*K$GR7|b76P;
zT<^`T1(r#3nuF@7@PpKvOH&bQMIA^_(PGHTMxBH36!`f{2uKBL*^$r##R#fmf;UBz
z3Q#>Fpo~($_$}8*SQxSr5NuTWg_W7~<KyEKJYTlB3DTOR&3?9ej7;`yW`Ec23nmgC
z(ID=+a(+Kbb<sj6T8Xuv>VIi!E+LpNNJXvQ*hK7b3h_lzY-jxvenZU#&Y@@YFbn&M
zN`c2SxMRgDw~CKB=05v$pDeJ-nyAPXyRrp`R$?MnhBUEuxx1fPeU9*LzxB>Cb5fm*
z$=seQDM3h{W^QMQ_i&t|E}@8;EBs9>FtU@#^1&<f=9HqC##Qf4eJAHZv!~->C~em{
z@#~)hV8N`m-fNpAOQ#M~Nta9+B2j!q`zpi9aiIzz6k`~)78e1JXkSvLIhh2~7ti`?
zQDG?a!&J9RHpxn=C)ZvbrucTxJZ$pG94m@*=`i*>y@C%qNL5301O~2_#sMBV2d`8T
z^DV46jcw*m1}f&3*iVHPq2i|4y(i%bx1!jCuQIz!7zgNMV>$T%e}sV3KM}9Z+pMGZ
zew>|f83pW05MiuIxfscgKb=L>ZSCjj;cCaHN-eaymRD9lYku}>jG+=x&5eE86J|Rz
z`S&ur^YRT%(nALEy;e<UgcqlfN0~3rc!&pg;wPt-s1dzGWZZeH@V$Rx%X<|uNjH4k
z0}-h4a09OhQY8~=D_m>%N>_Vi6?{}1b~Q_4xA(d4M6=IQBt5R{FlT&kzr5U|d)u1;
zUkng(X`XU><vdEEB+W)NpB9jKAi(7_#n@JqmAO4|+VNudA&{ff!XTh2wklL3J8j<d
zCG`vZ`~S}bGx?U>+4T3G<f)nM+(vaO-z+s{gXCo=U*GdBGiY8~{alrF6OZ3Nro41D
zTduR(`?K9NV2QPm_tIVElk(dG;;!rYSw54SnznfJ{s~XwB<p(isiq$JQuep_@wd#l
zTYCGw?|a|ex1^`yzO|C>(b!c_uk-n`GI)CdGxVFh`~IJfPGO&FYkrbB_?e}x-pT*I
zGv_6S&Gx)Evq<{?*&w&}f5rOmn?3)Trq<oJ{(9=)m2)>uiaby4nZEwzUVGh>_tUrC
zUUJ@R=IyTwHI;wtn}130`?o34yVuWoVxM-Re%?RBrThB*UmEOHNiBKvI@qdd-DIPt
z@;R07F01^^Iu*0Ye%g~(&EHQZsoeLysow8dx#EWL=9pmP9P{_dFOO<|tgkxdalh`&
zy?IYAdaj%C<o%{OvX88HnxyJIJH52#T>QjKg>{}@GWJu9+P|!w6r=rgVfW!}Z!b-`
zc=5Z(%L~@(kNfAEoqm7IxZ0lIv*<JH)x@bbo4$XJ4|*2^9!rUsVXL|LzIm|KEXjAj
zBz?{oTxY!wUQevxSu~%=N^kw12fK7OPhWcE#ho38fn9Ilt_-1SV~L}`udrTEjg+11
zsQ$xNEC#ZON%!5XOO=%dCk46Joi?fp@~S!4brHNr_rRo^9+f|42kx<d^I{77liX!C
iIzk|$MjVJ>{m);p#L|0qxalpB=RIBhT-G@yGywp|2v3Iq

literal 40830
zcmeFZXH=728#M@zD0WmtEEGkGbPXcX;ZcE51?eSN2nYyBhXja%il9<LGa{f6Kzi>1
zRHTL?p#%s;r5PYZN<s-CbK?7c^Ue2T*36opv%Y&RAd-0JoU80>?|q_Cw~cj=96WoF
zgM;G;RPUx42glwZ4vszd_wNJ0AtitO1AgqgZ=ib<`~=t5jRq9>ap19@jV}j>U?lsC
zGj?_b&cSh>1A0^2Jm~$>MBw|AG-mtC#suu=rAWWhC+9yre0WOc)8M6-jU4({FI^B1
zKcU!m`Xut(3x_>BB6pu&iV_R|5`M|zxVF|_ZLMtS=)r`D1}1YQ%{vnA5)cqTKZr|@
zZP%cCx-`L^UFKC8qtuY*6Mxt9zrX$O2!IG^J>Jll3J4Cu%%JCrUJq6J49#n`>~eE(
z@Yxy%Td_mb5%&^1&O!FEC+zK%KFn97!F`sl$-(jIdpW-0pZ~`2$=&^b{`*)<?A8<h
z|NdG^@*muPAKr#u={yS_m(~c)I&gvqpXJ%leGrM(TR5NBfK3psN*wG!gce}mpqtR^
z+1Nf&*|OcKclVVe4OB={1rgXAVsM)+l#FXSw$pOA|7x`aEEzi><{+DwigiPu(myNj
z`W{P>b5((!y_EL~Ym2tjdnZNCK%dGs&A1^-L;GdY9?Ddd5TWlRU0+~{qRh8CXYO^P
z2TcjtXhfF)|Dsr<wCigu58pB}DZgAL;9ku0F$iPx612HIohNDVHbEOr?+~cT=nT=B
zOunj1==J&JWz#j|^6r7a-z^3$T;%n8xi83%Zll8u#hY~mW*J`Yk99>y^QujjCtFnv
zdrKGS5nR24hZC-9LIoxCyEbfe?cAY<&@+o6IGH@>X!x_dkA|N+3StKM3Z@^&(r||8
z4did}JMGISQ?62jv669HPeu9zP8!s!c2;xscVyubLgrSiQr1(Q{&{I^B{|X*)Ab1T
zv`;0wo>gIA{n45r2<<|2icQF5`1h>4)XVht{axyZ6X)`OaGulTd?o<x%ZX>%=?k5F
zM@G}tp%zYvg>A`2F6m|j`WnMf!C`mKx+8hr`g3UMjT~+d8&!f7$wbf!&s7w@FDQb`
zTp@TV$2Q}iVD2r?l}pkN74}^M^A|mm4bLl?Zj(+FW*9$Fl5&01Jui(p&k3u6B<vk#
zO{15yM9E#h6w=6R3V)aLX(q-D@g>5E^VuUzI)<El#nCKXSJ{(uaum{{zA5XH&`p__
zzEe20CFGxA_=lW*jNTFj?K*JhBUV;&*ekv}?uaM85qtJKe!VPJKlI?t1PK{8pPWmT
zN%1jo3j6Vg&?e?#?%eS-h`cW-3!N;r6)VE0{@LzS2H8+}8ldlyFa!W@j>P8|<Vs?b
z2hGJly^|d{R1<@(hJ4B2tFgvP>wcR^b}PACQ<EXXyR%vl(_NcnbVp{sOcam0m{)@@
z-w+eLC}}kpusH{L;4i*fjm?)Fmi-h7569&_l+8nJT0k!iv==*CI8Bz&<?tnO>*gKs
zHl&ra-qWB_biFtfnT=l*hT1O1dnOoC2}jWj($&ouA?-b6AD%cNNriM@8_7<sbodIU
z_)`1z|HSO`@WUw~$3-VZuGoMc!3d%~c+;(u%W@o%+$c`okKxd(HuU<^FSMvDrsyk)
zFXAp?zI9DXl2veCjuTzfg^Ne4OxbGMi3j}}%Bp&5FmbR5cOn~8_)T+nzN1n1_eHtc
zXXIlk<&<`mlQ_O&4?-3m{<@Q%mtu~5<h(jUv&)cz@b0Pipw?+DoJfweU-+T;!aD}*
zAV=;EfcjQr6=qP@=s^2b$8=GTx9UNWVv^EBLO3`L)4P7<=-&-UDc3ydAjGXUw~4Vn
zVfkl;u(eYcCvM2O;{L(m;Rr%2WBj6#xmhlk>vm8fs@`BCj2hqOE<@n8Cv4VHG#rQx
ziGoRWvg-ZFl%g4Jn0y}BIwW*yJI|yE7tzp(=zURCr|U2-zOK>(XWkFyi9$zbsV~gZ
zvtFL`d=mH&t&(&0hwQ69KN|s10pPl;`C}MKwS^81bTiyja9NP)@%lUw-n;sVo+&3b
zV%84+q5Da;yF*I1<Xq1puyx~NJqJ^0xwVB}uee5XN@Zx5NYa;xUoSem<%CIAw0o9s
z&)~UO<Kg~rWy|t`6DcapHaK%dZc$U<e%h)-*GqksA@*x0op{Hy!Ac7H{BmNwIXL3>
zwf)!&u(wqvg(#d-X(S%Ef-{WmRdDj0*zlE2kk5<4mye>u*7X<_*eE&ts#DuL!&bi(
zqE#?9cx;v?tVR$>{81HB$0NPs7>g6-y|gn7w`mu39f-fEpyMX;O3Y(jufcwjamf&)
z5|H33O5TGhbD8GDziwSrRJIbIm|fj=Jb|-3zv2Cub==rr6xyJkoUJnKe>?laoJDd5
zc~zy2jolntVm=rg(!QRSDJVv^jtxl-!fq(oj138qP4r5e?08@$TC1%>aDjQWIO(EM
z=7D$|{YI3b*7wDq$#lV3ioR87tdH<Ud|0L~LOzc^(mhy~TBzX}OM$4r#ow{0BU0mP
z{rkLayrTNb%f+e^&P31Nf(mzWv0hbfTv@ti>0wToQd{Mz;HDZutHqK)Wo`YpvIw6`
z^1)Qe46^BzP>oKJaQ%QaaSE3mI#D=%Z7$bI{HVTjV>_her{J$(54*DVa;gK&gr?H#
zuIYq-ePoIDczQVE@?ls_SP4CTvQOn+$6(pHK`7?}Z*>~FtyX4Ha08VoEGoJI`&|79
zBYZb3u2PF|2lBLo7ak_?DYG&5=SyAKUT9bT%dS-ghyECl(H~muX=r{D>Ex*x*uZxk
zBZr2iG}}zv`8h;VNGcCN$gI_SAXD&*e6uRWZoyWcZ<MFk-^+X0zWg|tTLB+!C%<@(
zk2D-1>hEhq^^e6>h&75UJiC#30V<X6M15uTqpDDJ+t8|#J%z5DC(5(QCwe`h+eueK
z@2srCK2NE7sGH!%m}M+&+KbNw8xMAWkN;PaMQMLevX7kRONtQwC_R3+v{dTX4e^+X
z4+!XXN*Bu(^$}Zj0H%4<%wUn~>p;+urV8KM*Lj$7dvr$3ChX?H;3S$$y@(*_p3fg~
z^4s8DPhcd-8xZx*vt3+#`}7dz1cIn*Ukn2k(O#bxIyh?{3!mE5b2JU2L>_`8hW7>s
z?fpD3%cn(MxEPvSDuoWe96RCERN7@Qb00cw-lQ&`h2C8*FKnjmxTMU&9>};DAU;3X
zaugGk8#s5(uIzzg`$Z$0yxB4tD?-2Ij0G%%T(0(?;`|(zpWa<ai4vy=D}UK8a2S5m
z#h@>TU@n|Eku7ccOBg>PZsVI82Zd<!)NCt0h9=C%w|N*2lsF8dy0ScHJ?h45DvEXM
zorTC~T8^>5S&=ywu_Rt#VuAVajua4MxwS9Yy>8IG!BBqkCVsf1p*OM)Yj7>fMlse8
z#w)i^S!i7R3L``Jog;EkzF*YctaZnbTNx}(>+J6@hd4N-vZ%8foOhDAN`h(hb3e<L
zEbFGsn2EUd-lCV|^cJmb4Nfyf=myqG&`}2=gZw^AlYyEzeUQ7SM;kG6&h5tDk9zTM
z9CiwdFr4L|nUEpB;VQ98xY{Y!GqHN~D{;k|9@AbPBZU7-ufs38Tv|C@W8oCOl9&H7
zgIxL-W4JhB92~bz?Ii{xdZ?l|dK_Sm$v>)AgtqJ@UBeAav>2ym_dz(n+Nl%Nr?X=C
zdV<7`>d)KacMQ8N9Oh1K_MnRol(-ecR;`B}3BHi&l`*OVFQ&7mw=1aUJ|uW)yX+Rh
z8}a}v?o-tL&3(32_Sn?dS^ts^`&FUTt&=H4cRhp#wCUbE$||DT@Yt9TOI0MV5o-dE
znJ`Zpa;e9$*9flL2h_4gzH?s`qa_Yn=U8DT7?%y^=u-u=VbW_Dxh)>LUc$ok@mR{I
zjvH6?oC^(W{0yAJuPdG;&DTM`P=z3zkooOALr6-Dw~+tQ?LX)R*)5Dl0CPAu3M&%3
zL)9yvz?_Ib@Gm3S5w;TVn2tS>vfc{G$o<ECA_O`iR%Bx4IdbEw-%4F$n6M{!2l(3m
zoL%%i0UQ_7+7Wdd*7)Rg%l+^Wao(#wcl!6>Y#`c|m&1+Wd_UCna){1S{&xAH5mvpC
zDIYi|4FwzW2Io&hk!oFa%AM6NT~lfcGa<FK&u=zf_U*inMXD!17yR)?&o<>gQ@oQY
zFw6IMLj89xym$y=!gzHb^W%0De$@=4weaj}*IPM-NpkVk)k|Kc&=fsHIZhfKo*|kh
zx+cU}N$U<O@SG-CUhM>d4Ur>Xjh$_Qzj$=XeLAGD!iEs3vDR?Q8FH;z{L>@k<rKYz
zgs<CP2K8E#Ehe>jhcn2R*=aZy$sy0dF(Pc3T&Estfu;o*)EkO#raW@U6&6jC$g98#
zaxPf)Cw6dc#l&A#(%QZSskzti=Ht5q8BjNIGG2617Cl-l41r}m-c%2`b47RZ!7)ua
zUpthIt@Isv`HfE2x96G$ZnA4x29Q|2dV9FA{rd|Fd1HOh;d8QiDcxI=pQ3j#z2DfB
zLBOZ$ui8ld0;#zz3|F_sbFIJYc)e(CG)JEl7L!dmu-Pb0-UB^%N5;K6DNq6PnQ{Q4
z?#q)@HxZm=80VDU?J<xcx#hu3>gR`$92}h=btk~Z7v01vno-FIx?~a#aP-8FO3d=9
zIk*oMC14HU;cwqKc{0Ov39ryOov66WGH_7aG)>Hh9MZS@ED6_K!eW1VKGG>X)YB}D
ziz0z}@bfyfIeyTH&<{~x0_nKnd_qID)LJObZZckZAHtyib`HP0KU7+@QI2f$Ty@1d
zM`M6*<uuS*|8K9`$KgqVfFE#_PQ85bmY<l1X=i{xmI`;sQQ1Dk-z)sWXMi$)ucVXg
zR{#Hcb-aB96%<pKbA5`Xpu-Zc-Xi#;7wWO+#PY1o=DV$~_#KB@>2Ke5M!w=z(~zqf
zOUme?r#l-+nf=<3-z{sgZB|or9{SnsBc+Lngf9>kusej&$<jr$<D-oE*R{k5PsT$`
zpLS0zF|upQrG=u<{LOY4uPb=Ub}@av%=mk?ILtt|F=GXzgEp=lc9g1Uz6P`#Sp!4q
z3oJYr&kE&dot~}GsB)qc70{=kV^S5GljwC)?RIURh-)b}w$Q^?&b1c1eMUw}gd7BI
z5jCnIEXQ5#Llk|CMR3!ebZdBeGN-JU8EO;LEG<Q-b4H~kHCo`jRF}V%R7MfeNn^tT
zpW_Ci_h<SN$l9$0HP4hp-V}PqaCtA>oOt<->8c0pwr7>JW)el+<HHO!i}}{l*gw(m
zyO>lSRC)LdUJbJ?c-$<E{K#v>Kkwxd)7N@@QM;OXTDqr{3;&{%HJ??XtKLU9jqNM)
z?+dg^H@4%Ya<*@a=?lemCmaxwkVfWQH2T)Q?HP*_&x;l1+w7RvZ4H-=8ceAKnkEW+
z2V!2FF}(nZT_*>PbTvPxp?K@4Yksk;59uifUZ<VBpAPTbEi`|@;RT-}nzhy~>(5pU
zb=wA@M$M0W-p#}z#yCDd{g7bDQ{;?piX&%R7|gx$sK!P(HJxt~As>ZK;Ior|s_L1c
z7O9S%kGztnz0J4G4{?rAhr}sNA#sGCWbDB%u8gI-o%KHX5h;(L?KY^ABNv+es+E@N
z&2M@#Bz{+G-c#2km-RjrV};-{{>9`StSIV?_bZ}pAf%Zk35l#kL$B2|^tOJ!N0MN?
zxr4Z#hBX1A`|d;?wIFy{rP<p?<2*F<kyj_zzp-%#aL#zHtk?uH+}?m-FSabkAAi+=
zZ~+Z|`=A_-@Qy9rO_y7{X#I9ppTL9O70*k<p0#xFDO7n~HXLk9=<f{BIwQF_t*L8P
zoFor<73!d2*|qa<mmjmH1k&7P>H$SMg*_D(Tie@XV22^uZE#a&C$cJ@9~~FMCH1_4
zP=`=m4I)CeU4!1P!B*JU0uM>4Qb<<F$$w!1)Cq4nJVoer-r)y7PU`SXmXhAdS;7v%
zUz~Z_#RZuVz*@`qOeZ8#h`N?xDK8QoMHHQ0sK3;&7x}X4dvejkF7EEuP4}%k7g846
z?JT#ibXp!hug5d_p&fObx6sE#ZrZ2C41@S%Ne`8^=oP}D$%=wWXMXMD2>Hk@&*9Y8
z0&%QNG1!hU^b(Ul#AmFPDe~#QI?KAaO6#<7P5OMIyDV<h5uKatF5A`nw7M~`e4|hG
z!i?e|B24BP4kETxJ%?D_GKErYQ5oWS>G*BgqWKfh4AFu|d&`Z=KI_kO;k~NUsflNh
zO6lrO?ZQro`4<+&!U0-UcRsIkNHx_#rUO~G$`;)?{@et7_p8;1kz;#_`cg;U#uC3B
z>xHVgb&Ur!=*_+QEdsqUqv4sU;PDY_=hXCv8dt|RMCQW4{++tM+GH0c5v)AWMHF&b
z`In;JsV`NNkYlziX1Oap8+QB=6`%487Td9ISm#IxX%%k?*3AjDD2}bahOSEssHUe6
zesT=o-V8M<(BH1;F6yFx(+I?`?@Ad=6wW{A9H>de#C4?qajh`yTmIt1a~hgs_2WF0
zm2gJrenU5fKzukARjgv$=j-Hoks{;ESdB$Dr5t!MsBhMHLv%uXO=vl;(v;wfwnbut
z^~w%3<m=Vj61Xk5i=rn8ZY6=q1{!&f3KA#j;spl01>;ai%ej-C<Cd(_ZVi3ie3B%_
zw~YyDw0h;#_Eu1i`k=iI^&ahk#QlR2!ipUX+i|hA_IOj2W7uZ_MckOP4r|$Njx{*T
z5OC$`yp7qptKJ?9eP1x*y{?&3X#kIT^Qbj^oSeK!6k6QMeL|KFKTmN$N*g&YvM^(e
zvn`b3k2(;}tzby|Is%iP=gGNhUL21dEVlZUjbMsrqb7dMzsoM9SIu~#BE5^|#Pk{~
zoQjc-$!7|XDcBNtu|nUGkH*;$&3$m`09l|Xo<IW1@7EOODC{XFdcf(jVMIJv&j};9
z)v9hv1I!im+TcNK=v!H86hU9q;aG|nPb@79Qln}xdE+XVq!r{#?WgYN0k}hj@Wo1M
zQS}Y<;Ff!EEGobQy&l_MM4eY})LG_bJVGNc%RK6}E8*dZ+YJk*ro!dO`=kQ!!I`=t
zag$B{jj33o1EJ9B7c5{Dy=-LGH&r({Ah)pr;k@VauJgdK`-!jBISq|4f92sUA$p7S
z4~p0j<+UDS>;Y39!uj&%cy+%!iC4MD7KLtCnN`1e0|cB>V+j*hg)O=^R_jEy|9tfO
zQ_CB<MQpyzi-&QB=bSQp(~c%IGgU~oxq*7K+wiGtD2H%(72lz+ibvuCZI1LG!!{ZO
z#P}Hha$$s`ud@1^Gz~ZFbkO0BC0Jh&=)j3z8|*;)@9aJ%O_3k@mR~p<KB#KoZ0K9!
zSMx0!>i=?I=WCQu($;adVLJOm3UjEu$8~O6;`HgH1Bq3ph1^3|qWA967;bW`O>@;u
zCX4Y;CHy|+9$aR~Gy0Eo1_JWn=or~f>=P+(xZKLV8ZZ6%T;;f0t8-j4VP*SX^xotc
z!`m=T%qxbtrH~DzQO;KKTJO(AIZ}VSX+{Ga@x;k4b__CY1rttbqasy|a;)B}LkaN^
z^|nm3kawQRNR01bdx4Uv2z@ij5zp0?k6$9a>_(1S5sVHHCg9m5u>n#=(|tx|v7t$t
zfxzOt%0jKJc&QszsiD13&VB35fv$6K*;IK2fm;>@=|gaFs8m^U`^Gn)<a0^u>D^Zn
zK1qCNG~OvUuTh+!(DGlMRE5QwE&1}tA6RC!>+@qJ-1A9iOqVKZ{+$akYt1(igkI!R
zZEoW(o2b4rS}oxdQMG$J*1t>j^Epeq2Niu+n!RzBA4Zyd8xB1{KS+B6Va)nrHl$yc
z@BfpYX`ME`I67I@Eq#}nS=IaILQ<-sAf{Se%C}uVv+Sw6>Z(`r{oTBS7eAlFHX=K1
z1KiM%UW=tQ?{ve`5zlE7em(h3*LdSkOQjljQOQl3z6#OH?9XEId7=zvl8A0*ruA06
zBl=r?M+8>FrbN~-)g^*HPU0|};T(5`pJG+lD3}o-$@@R=64t!S`4ax{9+pAZWy`|+
zTg82pJH;qEVn@d<td{OKBp6JjTP(e@QERZmkiOXiAJh-;QE07IoZY>58?uP1fxU%^
zKsdW@I(}O_c?iqY+1&~@Nx8I=(wW7F?8D#JS)7ujhb{F_*0{839*s3nHCop8S8^!2
zN`n8h7IxKlaOHs5q&$x`o^@=ap4sXdJ?<sTO0DW05}J+il_b`|cFKgD?56QX{>X`i
zU%Kh{Gm6YTRgaXXDM?%Q-Q+BM)QZ^gkFj(1nhr@J-Wd&ONO8&(3cALy_u>x52}Q+}
z`R&2ot5PIPwp)huX(Ru=QX`ylP?SlGpWNDniNBpuEY!gnat9saTa*m)2%k+m$uRwj
zpB_eRJTv#ixk1`vDmEB$n7aw2SkKwxKaTk9<PJ=3VK$|$=5V}8jJn)+NvJ5gkg?>b
zB06#MZz4Kt9cs85ojcc?l6NRx@-U(sn&EGyLTfUPDmn7i(xPly#uT}q19|T-jAMTW
z6D~Tja*P>t+gYYOh{VSrkOLUM9rSnh4htb4*LA<mj2dY?qk<1PbKpk(Y*@iakT<pS
zFzNfhgo4$ky}d?J_iI`Od25zVV&o0o`F4wZ120``%N#IUtc(6yC#Z@U5J2fVH65-~
zA8yO`xUWv6*;p3e*WAC3CZ{b#s(&2bhe_A%=UN<@HdoP<2u8!=woZgT9hb;?2Ul<B
z&Zm4lcnyD8Gwzf9Ji<#AcBsC{><`7i;FV(oA4xY1Wxu~XZ3zCNyL3SG-FUva_>W5z
zReBzY%U!#=F^z`no!^FK#QL@0_v3Z8doZ<iS(jlPr%XUJ=|t6J>&<Z|SVE{%QtjpS
zXwM{NXZfQa)5%>auEK7eujO}~&IXTWXliCeeVCndqyBgZ1QTh+15ME_&;Za8g4h2(
z%{mItX;d{8zrG<~mw^oE;JRFqR2x`NQbeEZ^)~|@;W=Jx2MO*u(bklV+o<6$aaWWl
z4<aLIA@&Dn_x^mehY2&`y#D0)kG)U+jD9ITmG1uhqN#}`$!`((0<$ZP<BtL^&nU*?
zh+XSl@q~;J$!;HsuGdk4FAYlr8@r1_Jvpy;u8*IV;_YUbA~#gFQw?nBn;G&FovJTq
z<w{bdPC2dlrf%8kk0&gsWzaUOXd%z<bMC2WU#_hT_;Wv}d&ZJ7!xU?-=-v#jnB9dd
zA7_j-nM6f!p$ESp0+xw#5Z+DmggRPT2V$vQh~9+gvqd58)9ERU20m3G-ZG-Earc1D
zmuicHO^u%Z-uY5%7|i*BwMM-%W~tpAlO#^1_%9R=)~v~3?hbPWb6W=5_Gz{^dQvlN
zyh|iV^qWfu(s#H7bfmXjzEO0!Ivt-}?pH)wdl=m;v#XeHKazqy1DVfI3pP=yG#7tM
zGMo!?lU6vj;fdKcNgPz`sn5Bn>rAMe7HyO#i->8UyeiTuc3&n&)YGQ-{L;q1sku=$
zEg_;{-hCc3y~Qh?5q&;wTC<QYmp-AhkvtmfIUmG`d~<_$=4Zeg(dWL6=w6y#K2a8f
zb3X9E(O{BccQBwRIS*lyymiI@L-+Sv%_#>sB+fE41ba86?r5I;XC(F*J8!aO>F$zi
zHRi!@8Xw9RP|HJd@r!g>&vW+4q+z?h6$J-wKFhk^sNr<;U$7_D(s0D?<i)jH`N=0X
zRH9kot{YhE1Z=T(?cQbVAY!48hF#?~l!`l(VFG#j%v@cB?1R}@)xp?Jzk>gxCU~N7
zY67v_d=jrbfC!s{2PfZu>Nbz{bPz;YC6UD}Z_VLt((g06nv88T8%Kk8<)O?a+Nu9b
z(@^X&@&&w3;W$|*dSs*UlF&1+?AyfiB-dQ;bCa#k8wA_q8}*GSjaSGCchba&wuWZS
zVdP$~#*r_=nv`b~d%g#U?Jp=&hR(Ggm0Y>fXpobVI)lQEieOfxSyBoiG0cm%Go!wA
z{d+TK{t-Xa7cRc{4eMSPy>XhlN$N~nx^N7K$jvn?PBFvSjbtQmUAT#Eliqn^c1$}K
zC5Z!xQTIet<N8*73i<meXQ5T*?IPeb>hEU(4$dRQe$(vY7LyHO70=2_#HdWcbz9jx
zw8;zP{m_d}V_ET#mfuTg<;e8(f7Nl<ONim`l{f_0r?6U^8vZ*I{r*LdYkSVhv^r<(
z_QLDz<c~HenMH`gN%(1`(mp<&I{(VR$G>598=mf$6m-&^5Vr)Se7!S@tV^;;4usvi
z>XAc8W!`!zZxg8!A>Ha0K@@jgkCK!E*ViwQMo+oKGcMHom=#5qKuweSQ-hGZy#_J&
zYi3Zh<;ETudCye1_>Cxe>S-}*aIzThreCuAR1+1)r)~-o^q%v>d6L^azaN+`A{dgn
zV~X;!SKJx;hZlx-yC%bsxbJ~?K6%Aa)P@neZ4c4}pz1}<nz6`<NzH<3SRg4t{#D_8
z#2vi^sfLaFynR*O$OjujcGMvC!s@m&eoXBs<gTN$EcF64KqCGKB*7Russ2Qvby<D<
z##|^xhMGQlP7u}brUxTN=31m?1GZ;d>`0%#Y{G~^9c>ZHpA*_rZI^K4Z$#9;@NPUY
zvn~7E-$1;?=IaO%&Db@bx0Owx?V8SUmq<ZcuG5mXa2XeTiCw&$3n%-wS_FBEIQ61|
zW%kS~(y;Grr~ME3s{P`S!RMo;A&K|X1GMJsWBt!c4Od8p?F@Y&$SR2pw3Oy!n>)JQ
zWHF>AUfS34_P3!rIaY(Vt>PET1kYu3+&3BaE9-LpT2b!I-DT-IMf!2)coO-_dcNW9
z-Y_rfOS``1wBJK^a_NG9wk?;{QA=0Wej&wj6g(@Ld$**6x!sp&8pKI;ukgR(q<-iY
zWLis~pbSwjNx^enT$=Pfj*05S4vMcGEKj4m^hx*Jf;=s%;bVl$wbD&?t|2@cQh177
zYF0#A?(&HJRE$rp3_RAimG$pw4<mnydT%Z%h-9q&VqfVV3;4t#Sv%*D-b13Hk^_vs
z#p0u#T$Pl7wZkd?wwJ0Mn-1sMH`Cj%N$f9S-kn;`$n(x<sWm?6!#uTKFE-(xygE)K
z+ZO~MD40Y#Ex!$h&e<bg8Zwlv$+4;KEUiBgUsX{YBeCq!(Y=|_y?4?SEo8B}<{{mR
z*pvOsxz)4CKR<tjOPH5eW&<*S(9mC=Zaz|x?jju^?ORWf-O#{XIhxz~nz8MLSqb7v
z!aSBupHTQJt4F-KJU!H#e8BvwW$PL4D~9y$iOv`2^^(+!-9mVb8YJ#Z@pkQWA;Jb8
zr12KbZ<ZaUtjd{uR7+K--!BiHzE)-x=aEDp!AhWQOY(h=qSnb`WX{&`T+eB^_z5S~
zdD}j4>h2}uT1eZ-_?0}$kO(^+^&tV@Q;}}6ZZEA~V%sNyujKSx^4(ISs7|`qd-Ny|
zuX$p8Gp%^8HKdF?CL|u0*CkjCPf>%5PM6DI4qRh&akZ&-aJ4dPrw~mJQIX`@7KBhy
zC@Idbi`F8P`O$o`abm-Y{>`aMZ5SiT`$<!Ow>{0|)@dSCyLc)b#^y<R`xz=}U^HX$
zH}<s_`xB1*5xS?|ZXy62#3zv98#$5M<~bWTttje8?ffxMX4ZyP)PE6J1Bgc7a9r;7
zRoEq8yDFv_?zv$f7t$uA?~tm;xw;0tZLXg4HDp7snGr_5DPS~e_4=so+_f0zL#=eE
z^=v=|jAd%}ahj%v`Cx8d76p0KZe5bnu}&y&hZKqoko+pLa5tZRmKMN!q0b0?og_Yo
zQ0EoBU3YM~FseaWm9bH*|JOel3*(HF18E`(;uBGj_WDN6{La@U+l@(HQ?-6+CrK$0
ze558B49U7L(a*sC9ixyYPy5toH>^VW1=DOboxBaD3HbNK2g^4=&t`{eYHrw)(R<}6
zv|r7J+@qF~jclUjgs9emBZNn54(mE0ig!)s6!?ZFZ|vDT?xadmCcG~inQyM|c8Urp
zDY|f=t77B7J@SwAgiveS`52{c+j-2%wSaebXUi<aM{I`>>ITk1FI`TOB#L<9AJ)g-
zJs)=GVSHNr663SfNr*|_dcPh=uA39!z2-O<LVtSE;eqgM2zI6&0kMguGz{s7T1N?B
zez=;?aq}V#SM#F<@0e1Mcx3(TDSd?D95cUoWJ^M%g5~u%QC&uRdo21$LI2g(@;gbr
zD;dVfz&Et*MSX$uRkY#B`K^6pNYrq`f#l{BA3T9{N%AY6BGh>v@aaL5LuJLLrpT~@
zV28lHMH@#TyoHJblbReuiK8_Er1*t2l@+1t)zt+_;KM(G5On4YU{^aI)Y2P|44Yj3
z<Ba*Nm8nLQT;UQ7Yr@?;nd&i0Svi+dN#+WQNVGGVJ7j4d<u%|gv(|cEYVB56=h0$O
zgrU{at9m<=K0EZFVwlc$*RdZxriHs=`f5VCYd-}d{&=lU3Y%hn=!x`+Lish72ik`h
zb?awRvPX9HuZl*j9jYZ=?6-azP`A>KCLyBQo*4VvrETpUg_YF%(Lc3o!oyCNv5YO^
zD2DVV`{eU)PLkT@<VqUev{G6%G%EvbJh^K#^>>x)M#W-7Fk1D*YgE(KdjjE=ijm4N
zFLBh;-6E#4=X91K^4vJWx&6?^&!kJmAtf7a9>3!w;BC|Xq@3O}muhl!gL~Wc#FmR3
zNM$io8&^O1#jyOw8bF*KM<|1pT*3B5GmP@<a&M+MyuL4DLA<f+#dc<Yg-XCOPYKYB
z*N}fBKCMA`pSA8JeF|6n&dCAD#KicQhF;f@$rJZ6SLCJ=wz8W)8mKgX`K$uDaY80x
z>qO&V7tzDgzu6Hcs^H!C3evct@8s;!>{w=3%?p+Ioa$D0Tsq?uJ*^f`KH;9GIEHL?
z!mo>`iLEs~N*dK<7UC%KH()iZO7Ud%T0Li$S2BicUW!7R&W3OWrFJ+z`LbI+e;6`@
zUl$6ocSbG6k^Sp#JBuVZaYiOMy%?~5FxzN6_i6$&*1!+{W*T|3#>8OG7xW3Qc&qzG
zg{=Wd0j|i>AtRaWEs#-@;WJJ2O`V;jR&UD^J&?@7SuV`9S4#IyIeDpT`>+!RJrwRV
zC$mvwQXWJ-r`p>8o!FX<U+VV`k8{jN4g3xBBNcM^G|pnD*qe>zX(}CDlF405xfIBk
z!3z*=RZTMw_a$McQ`_B+kc?NKx?M==FH52fsh_<ejjS3wQmJju{FKF5gRVCOv;Pl5
z9XFPl4{4;G>UclZ9A9VfF&@8tFA@3Hu&=Wdk}-b*lfFIxkI8CLU$BF5PMXKE{74PS
zkoMFy-8Yy6!wKCUt4bY9%@oTf;D@-NF8Urxa+`Q>)@ZChzip(?suxRgKP6eguwAWb
z9vGc-;+#BB>rJS`&mX|}Qsgi(`wlsc8J4&^HLF<D=)QkXa-_=4o1buSm~EtY*A2TL
z*5}~(x?XHZO1N~1-E7SL-~gus=h*q)Ju*4)76%9SvzA*_P$5tD>;unSI`_cI6W+T%
z^MZq8$IAKB{*ovPsGib{^Zz{pI?>zof1V40C;tC-iN;w>@_l|ParTXnOkP+panFA?
zIJ=x$SXkII>k!o?lZ%snvd1hGD%;iY-_N~X3QR5H{-^8z@x<&C_W$-XjanUJm9D=2
z#>Ty`3{vEZ7D5`48_WDUBJl@SVt00SuDm&`SYKgP0&|hKuPv>&n(TR}*dVE?iRyl*
z=)M{;EdLsjm{jdSf(b_56dw<sPis#MbO0ZStO?MHPK$_Dr;l*1;J;pPCkcgZ{yaq?
z)d*WxIQQuK`uM=Q`}$ZeSvqf)mq*H`;enIE^H)-@d2|`o9A4@v=uz4E)51CnZu(kC
zy&n2@D>)_FTH-_IirXRVk9pUz=q`$un>0tF>_0fImu)eE$dO;IuNu<Aw#g+z{)48f
zX?T4Dg9-x!gNrM%zkdC4J9q8TL)u)b7p%W2l!2NI-IypEUlqP`|C?`XYwHkVV>#6O
zyUGjG*z)^C#n-qPjqTs=7vnpgaSMl(-a5VYJWqspM9U2~#wi&9d!>`bu#b4|9W#Xs
z_BEbvdlR|4)rV@@7%<Uf(uRxdc;qA{J7wkMip%b`ytwGnmmaz+7&z{YTpTWn+$%e+
zH8Zb98FC)=@Q5pKd3317?D!&=xhTv-yPmzR=vUSMXa$RWKJ@J2@9!V2poELDYLHfs
zv}+z?hHrGT8Y%6`vUYNUif)5ORc=Gu;%DDDPk6Tr)`T)BH3v}fnyj5QC83Z%Uo!eI
z3iCMmrp-)S6@Q~#p(Il%G)mCCQ;J&ut)RnyPuy8e%9GT~y(?)d{%1=Ow1w(;JtrbH
zY@<P!U)I)dw%DOzdugnypigNk#CL0??19&HaBG%Lu5p^b_NwM>@AQ3f2TQ8YPpn<_
zxYc^gj`M>WAhiEN0+vQvKnwy63oMH?9+Ijl0X4MpiVA}?7XPVJ$%h55|4GfelRGH}
z&CbqN=F!}F>|V2u+8)SgGa!6^x~I<|w~0KQB_jjFZDJl?9b?c*UM!s2A}2@KrUy3;
z>l?%R^-4Zp7KW=$6@7F1%CDIIEZsiOiF#TL4u^XPgTX4jr`sCB7^JD<VA_z?)b>(E
zU-|(v&05vCvBEvBc2CWNtM=YY%XO8OlJCvnfQW&f;^0#Bn#7%r*mp#w`O~LMMd^h{
z`(Me`KXm@y7O?r}C%-;Hk!Zi>9JdatcgoV*y4Dk9k{h+s${z`Rm-4Xj!i^UpihjSp
zXDa*7y{`f9A9dvH)e%7~&JV1c?@Q^umN43wdx?MINqsL&czC!VsCk5<-jiz+0b2T0
z0Zn*Uq7FJSDak_R;r9<o+KU_<Nl<TZ?_nF4H2<H0Q=wM!g=(Zq*NXM${IDQRJzEg<
zLJ;-69Os49gG^l~z)Nzw(^NO!x4z;JJVNfLbV_9G7{%2WIyP%i@$$_}Z`t?0`}v6%
zVWN6zY3UQGoE<C%oiYVV*=A!3h0;Ne)DJz_UME-82T%~+jR@L{`I#9tM^Iv>x<bJ-
zaShA$iw|pX`uh6io=sbG)v~sgwN18FZmgF#MWzd^N_Nfh$+9KF5T}k6yBg04m+nh7
zo&T71E|POIJlRbwV^>|6CCa3gpc+Zab>m+^Uo|v(nwpx@_wcBFUroGYOtu20#qjm@
zZJ(W=k5yhOZSidQ6)mkImY>z5Ecum<Hc0wXa7+~nCL<#gva>#5Lan&p8vT#UJM)Eo
z=gV@_5ew1m2plSqeXAO{th_Pq+t-;le6cX#e46hLsAm!M$u~L`ucD*Pn%WA?vb%ok
zi9+s8;(`@V$T~KMg{FswNl8kMN`DZV5%5aY2t^b*vbKr*S08@=kv={?KEJlM)_&D<
zJm`0l6)bqH?aet}<3GGuL7(*86gdamD&P6ul)+*L#>e;X-}Ac@i<#f+=F^duJJ0^j
zd!NfRemq^XWX?4zO#Y(^jhmuh?x%06i@%?h1#$WDTA{c0Ll|=#1qOF;lXk?ujb~+z
zc}r6TB~9BiV38kn-kde57i^~Qx{sF6(pK={0=eAv@fUTkf#!9~IM&STC#V^=BOJao
z@AMZ&&Ux(hxOEIZVaajHZvDrtY}#6%=DfaH?mljEc*{ag60tt5Vf{0IfrXhFnqQPz
z(WilYCaUN;zBvHOli;){QGWMJ_*sxhb!)VW|3c-U`vmAQc33@203NIj9>1v5&0_}p
zj#yuwXkdJc;zdzIia_t6M$6%XUd>E;41h((Z}yG9)d{n!#<u!V@N`#_wCeQ%%1Bw(
z<mxPbQP#0(XGY8**)Rxzm!rR&$yFPz{NSYI<SvZv)w4a(I$6Celrj&UJdoRd&I{MC
z8J0>cv>Djmn$PfJc1f44r-M8@vawolWpN}y#1I3S{iMkxo760g*Hu(EJ|b0n9C7J>
z>)qe4D;(PP_4%QaDhZNawkO94X#mklSW>Y^fsViW1087N&KwcJ$~rPu<!;sGnEv%4
z_ap7T6?RSOFsK@#+wW;ptldB}(G%XxFPC9panNhp2AQ+qHE6%xt@(`*CXHC~8mWw;
zEev_I#|V-F`ZI6!Xl~6UT<LwTJ$9jC8Q@(!(GkV80ytA2w6Q$VJkD7eyf)Y7g<H{K
zweV=-z}_l6tC5d$ebVU)UyP*S3_d>;wxv&0JFha*I8TVTcf<eBk1zb-vhtNNXb?2=
zXT=C8`}Dp(qYz_P?$k+UulL6+K1K7Fp(?<VqpwcME?C~aUAh&)qY)(4ggf6(e(DMO
zz7B1ktsN?e=vQ`~uem>Ceak?<90j(K7?IIA7Vg(KU|h*p$p;JmCLIf=(P$>Oyi{YB
zyXDZV(K#&b`uz9xf4)_?^lAKyey8NsBr{Zb>(;GNkZ{#XKpkrI%>Zg#a|oR9$2St*
z2mOjVC+a$sZ{ZO!sPs_%#o;qPJM4PNNKI{+2B;YNxDzeL+*leNZ~+LCqCp$HqeRTN
zSR^G$TcwWxWI6PnEEM$PX|l9c@lsrBs@>I)%|9f|5?JU~x;k<jq?kg$D7YNOt#(NZ
zmpC@>#)d6m++Y#hJTSgDI>?%b{r6);Cy>;}miGzxBJlh*<OC?`M-4M*10ADxS6#oy
zYVHPM8a?{dH^ym^LWtjA1yutERT)ba+`&Us(CcSz1HwY%6*oLx4tl()A%L>528PgX
zUTNuL2Y}OW0L1Q~&-?HBK?zqlTfl1V89)e3{QB^DHh19Yw?l{+O-kiJm>U7x83IMD
z^(e`gSQd?a0(b-q*_a5du`Ru;{Wab4-hM=k@b$+(B<cM00b^B)rZ5=dLv&Hi3_xit
zh%h820x+@dUX1ud)tRfot20xUd1mm%Po`O(V|BhRQ)#M!bU_8@?l;_me&64*x3D<b
z$hh4=v>BNvn|IMKzGlWtf;y@`-~P;Fb*8gfRz_z0GMLuq0C@{=y?U0yWNu8c6w^HR
z*P~o|-qB(gh6=oP779v?mx(2g{0v&nB%+{Kp-;^>LX<hhVos%j^+*Lst1dm5)rzw!
z$T=H8eNVqA{p$>JEwNB`|C*YSownUirRL~yOOE|KjV(`(g@B2yt4D~}6{-^-t!Hnn
z<YK&@6*<K*5ViGjwzTD_-E}YwbwSo)zmnS7wB{B%`qe9U_9W|DJoK+MZKU4ceFh8_
zArUC(o3@NTwY6^HCHV8_&&7!LzCHPD#CZtvl^)7sZXmtJYgd}-L3e%Ux?RPg^J#&T
zhuH9y5>O8|m*TfH;%xwW)n&UV@H?)&yj)*QQbMAgW<|d8pso8Qs;IQIbY>MV?}!AW
zehRFqQNpsw)_*5_?;*EJuc<J*Of|RR!ny!}c^lU^Cg3R!)t;cQd1%xr)Hm>=-b<2_
z!M&q*zM4#Mm_N#^+|vp8ONN3=@5>lLRampzQ2ulPWz51C@bAW4qtqP07TLtwF7l}0
zWZ3VIk-Nl?HzJG3!vm(yUGuX&sY>%|peiH8$kEcpLHEaNy^(1sfN%}Wm3Cp)$d;`N
zCGL*siBWYxW}2%Xjh1(W6`@$W1*-lF>ouojZC_7Tx()!~e*G|Pz(|R?deOyto_rqO
zaKIhqq@Pc@7x&;R`|a^)F@qOFMRrPw9)>Qg;d~4CK2YExE@1oVXW3JxPkH`*HlQZM
zfhqProuv=2zMIH3$%s#J2pCl<S#43XydAJp`5%t;P?{bI03--}R`}UnHc>V(1G%}z
zu$gM2wVyHX!Q)9Qo71r@$4nAyT3P-FSmnvh6uSAs%1nYu^+<(_Nf-bH7iIaw@6RfE
z;ub$;#k@NMX1KWV`=C!uM9YgKC^Qz1PgXo+OEjEGie^tQI)&7ih=nGI3ocYoilx{?
zu9!aAB^by%NMlHy#A1hY4=)|#;Iqo7JW28EU18TStj=eaDUbW}mBz+T>7fEER<_ju
zXi&HAw^yb!6O2_{*M)cgL?#f5a%DS$w?Mcx%PT9d=7J1rYJik9h0Pe`3i>Pn8G}l5
zeCJ`5dW~5JC_srGp_#>`-r4aqkoqd4TFCCe>PYRF1GxaYc2x_16esTPQbsH0bDr+u
z){uhk*>|{>`Ha{2G|q!mtpkKsDgyvbQ%d2^s+#ff_Zk1;eYfsc@*xX;dw>J1?-Bg_
zzkmsRNHh<u1=?&4GVHtn=A5p+vrPWpL#NEyj7*u0)vU}{a)=p9&6LnM$Zg-xgYO$P
z0TucuH0DlG`*@visy+dXWRuR$PG#6I&&~dagH7s}45HuERfTM=s-P{Qgrb^B71Yv5
znJUQAU=gU?o`yi`E<obO<aFe6-8ry=Dv2aSB*sd_tC41z#+FV4K$MYKfT~3<k5=SH
zH+D}}TNGFh1sF^L)S*Se`tbNy&Tx2=PFDXCK(Kwy8$4Ri6ZKW&3{TH*0!CCsA(l)v
zi!$Ar+qB>WaU-{@0I}|90%`bH+FjI*!F>cXhv*Qp(t3_i<Q2EJ+AfR=sTE}|ST(<!
z4qR&Y8@rI(o2H7Iv(y1JttkkAKqXjda@ay*{$>2p|5^KFP;y88Nnb~r!Cl`gxDOWw
zWT19~Q$Tt7%UrrNq6R>uo%zTySSWYDT+)Aq&;ObVZBI|ncu~rDodWrr+UV$L^LROL
z)Xhw=qMd4+3g<UoL-|9m2?WA>yj;W5w$lSC<rMytC%F!~<=Dmw19^PD)BbQ`V&Y5+
z_)2DfB`42W$G-Ia%HhK1o78R4D<zcgA6u|&>@1DqmDp_p9e&Y`SghUzDjwCqSZ=V}
zDhhlX+`0%rJ4Hwxp{C%!FxWH&^lm&`=q^#BN!N%R9${fki?TN0dMe(}aeF13a8#7H
zO?fiUG)t#-5BJd>=ix#d`6kvb1J&KzD;JLiH!g9h4>tJHi?^$OB$<e<_g@rWGD_5A
zgAV9J2Wq17=8uR#Ju|@Rjhbotx8A}dt27~EL-flXSALp<ws+7b)E#hVrTY)t_%1c8
z1}t4~rFyK-2EP}n{otV;$JUYmOE{AzRTq`q2l~kVZ?|0o5yYFcMItKz;6Y@eeO<Zb
zcQtX7bhUcGpmN!BRCf~0_@Wm_&e5Nf>cQq&v&n5hGm8owy0(Nc2XrCQNnGhIU~&d|
za{x3+6yebIeqU0J7s{J}h0=ib7+VJeP}93Lnor`$xod?J?j?=aW)n;_f~yPH%6kA3
zd{~)oXPKhq08*e}zCDV<HDGeu71>tNN7VPRb<+xHKSXXlg#+UC`^K6@g$^PsBV^U)
zLoFKnc#P9d91zO1fH9MHA>>jbST_ymr=k9+VM$q8qs>|N=qPsFHdB`eLfJC`3qYi9
z^7wK2iGU6|ka!lpcGW;y=A+F4pA&ny3%3ZcW@KgV_c6Q<cZno<iM?hvut__>_uBql
z7Wf;D>$542yQP8D$pc6w)uefETN}P2(g%6rP;p9#ejqmsc3j8q$Gn<szh&*mq7l;W
zuqDT1-6#A>mJ{{<HTncAQuO*zb?A#r2eBVMod16FAD~t2s{tA$H1Dk9Z;16ALF*3W
z7@?L2^9E2kMybP$vUVW`1;|~`0J{wkxI9T{aBwgw+_3Z%R*2mM`I2{X9s*u00X-Pv
zeH(~OH1J}IsiYbz0$Rc5>9;`|bb2#1o7-{0YvMwvos}l}+YvLfwSunl0HFVshJsR`
zAhCemGO1tL3+VL3pw~qB<AQS>fqVDvwX1nF>eIo}us&y-9>73HU;a<f(dNL5C_<l%
zx=BAPtf-_^^QpGBb_~egjEqYYJ6mf!`pGp@YpVd(n-_YNrUvITP+?|JXy;m(XXB9q
z!R;RrJhsqnwf=I~fgC|GC?JhnQvIudC6f~c<qMgnrd-P65Qhvux))o|o^g49r4ox3
zZPtwylE3Oom}vk)ZSwJKlGV{g5Gnso@hb<{tVgF5J;wYBL@AT?MpGskg8J!ob#=D@
zjgj2oI8Y$_Sk*+e-%?b^uB?VxRK)QkhC^PeNFqJxz9mq60RaAZELu9`RaNbP6wO`?
z(uEmoY|SJkNSF)*iDieq6UnYIl*d>lnK>P+c`bAf<8qWWEzH{V&!o-urjfMJM*)c5
zA}6NkvnhG`Iu*rYq=N(t_)Pc{(|#x>_)7s2TA6Y1;K4939bD1?$1T5{#Nj0sY>{V{
zt%ttmIsWz!|4L?NrW&-XvlF`c+#Rq=8k->f`@KFGYN^Dr+!ia$`t92+Fg5T$J_`Uy
zb^(D<DPFjHi@lL?f1<;oJ4XDLs^{T!f#y&Ky(3aMY~<EoU161K)f~nI<Dw{^!Cu}c
zSR*1-ID-x>Ax-(A)$v|Dn-!OX(Ua>0Se!rik+XikG<R2Gc@k#%ELE?DZm+L3G3g{F
zHgzD%G6AA@q5x9Jqp^qNYVXGQ+Wd$AbecEV!@>o4F^S8&l(DKsI4~jI0{(pAMrpVb
zuu3BFdVX`=m;nu7f64t%ft94u{Q!<4)_6_Pq%8|;Ljei&Z|SN47OErY-}-%46VLij
z1*PStJ(NC?^*_3+{WR`V<-tRT40K+fUg@m$o_2n=avG5K*T6bd|GqSD<={Vb5W2m+
zSVH3G<J-GyU*$Q0&;^QPG9Jrj63p>oB-jDTz${is-FdI9^bleYcx@X`IQOK-VL^TT
z$^mS^@jBS*JNk7awk!jZMHUd{b0lH!Z^uyqb3{O{D;VqK0ZJ7S=3WX)+ObX4uHMge
z2yl}02JmtfFcq>V8Uk6yP_CW=fKyX?1b~IZOp;ggL~gq_;80fj1c{6gpJCaWaYDe_
zT#quEZM%)9de-ML_ww8Sc{0UJ$#(*Zs2Ic}wf*%OUVYWep5wJ=06M*O1dX5AJQz82
zRPRgQ%3s+C=#CX@RvzW51cucZJ=hQppgU0&vHn|}U6TN=t6!k6J{l>N>|Iw!(s#7b
zu%MsMr+@*N84MIyvXiHR=E^tT66?x`rW-eB_bJO0L0AGo`RrbR{v`>(g`JnPF8%Og
zB8P27{g6j(88iTs@3*1LyANQ5L7~tv5a;DBV)O3MC(ynH;A;^8sOKPf_XhgX=$+f3
z61~{wmwcM*R}~X(Ns>`L<H66b&xhDXF|cWV(uj^F!hWe=Pt3giGhI#cbocPe4K-vG
znS5s=Ngg#-yP$9T*rfLg=uGY<SR_dOX$Rm29&rq%4Rr#Jv-ry*Ebf8W@9Jfq7e@u_
zMGFJ&0-mq1y+LhO(NjlP?IowPE9#;2&J5r1E*RYXfB|ZQJ4A!2tPI>CxFCr3z|1@M
z;sa`HzyJJfaU}O=wU@AM6FNKLkAcef@{^O7lj~&*Pkv}UIVbg0uHA<D!WFl{Ps*uE
zUd6kh+mJs7^X@Q=(^RUwGArrW!_{CU4yJ0N!unDi!$zxci^UDgUz}>Ba}tP0l*a%3
zlrF(R?gEwHt^^Qo3!GRyw6wHz1y)CLv0cq_?=F*3(nM`yIJ5n(X|Sxwqrw^?C2GKx
zuf+o0<F3J6A8?c?c#w}Cl3iNmcqaeXwF?2sbpiupf=xLoz%=x8ke8M&SkD2KRsvF*
z`o2VS{rinISlHGqA81>ZUv1~Sb{KDzCVw090=Jf`xeFXe<^_%B5A(CYja!ajZzBwF
zK)Eysyvr-c5VM-P>Bk03)_WGWN96n7>(j6KrvQ~WB;UABXqN-u8k6}>o_rJrlsh%5
z`N;LcHNUv>Mr?!TQk1_`*D-DFm?$T3)G+&A>k^+foeIG65Ve8Y)T~bco=%7r;47#z
zx`hB2kuU@~y8$@uw871lX;x6L^1Muyr|Fa~NO+pZt?U2EuHe>p%j@4QgAP4FaeUfj
z3#XZ6JI~--=yX8&gvc|#0Lpj21EOIfO7=oANMb8^z%e>622dv*if%+6O*pE){{6Pg
zYx<p7zz>_&z*OV8zF1h1?mklb6Aipc2S7~4K&BW?ptXIAYkx&c%=M&hAYEV}Kg(-C
z<u6YBWhfCxRUR6F|8^x^PqZAg#+W0Ubh3hhRma-=ofRAQD;K7{#@0N^2YAH~1B+*f
z8-O+Q0yvQX7M@OK|8IFsKj74Fu5j+zr)CM7QN98k1o-&)L?2aMDt*pmY@qJXb|nQ4
z7g)*vycJNtGk8R+m0w3Su2*?Czo2+K01&eXIY2gY0a2oT(dHJcRFRNyu>zIFrtq3q
z!32d(HHBu_G=*#>fqBl-Xt{mz<jKTh>#|?N!182eu#ZTFjR9gc)JOof`0(4y;|jb<
zso)KO5(@KYzk#vxY$CA`VgQ`yKmnhQ3$K7b#^?sttBQt(QCvU=neFxXEsxhlsQUf>
z1DsgJVHcoSPMtbcya-zB5F7pJ*aYJ-mtXHndk3_;jKzQNT35MQC_<xeiZqyj!7O}7
zR_V^)3DdPJD<#zhw9tH!n3!0dI$}L23|M-Mo$mucq!|I`9b%5&clh+<2H#AXTtflr
zOXvP`F!a~amD+k<rpaL*!uN}a5U|edf2ay|jWxACE(n%gQv&+z?X6d*97X{(7sOne
z{(gg}(E|*$qWQiI%@1I<e(ZgFh(pf=@YDItZdYK9d<Rmu=I>DwoAT%27Vk{5PfpTz
zfpdODWB$Ew+wMj)E3^W)xF=%Tj}=Fza#iwST3n7@Qu3`RFW>CWekue`-<Cn$xQLO#
z)G~1mx!yb(H2nqv)UU?`urHwY-JDvj3C60Qm4)E007lzgTwJJUlznCzW*zwNq7pjU
z_vCnT6P!<8s9(r0uoU*~zCvx@m_#<RZFR+^ok(CAT7cupVs<^B44CA2vYtI~^l^-?
zjU*ezfOua4aeVt7SYf|bi+M_$J7)s_89T_KCGwiO{~0*{(LmY~1~45+P-`15B90td
zLE+VV-cOrauCA_Tf;6Ng1*$(`+T=9xezyew^!vhRyDf9yowWEX{|9&P9oA&l^^Jn4
zjE^Xmu^<9EB0N|?ML=56VNfGYX`zOq^rk=v1VV6783zR=C?yn;o&cdo5<;+np-Krz
z2~lYh2tgo35|W%dVdi<BbDi(}@m|;ap6^^={!qxh%i3$N@>^@|djpl+4*<OJzSE+{
zp#i{vwT0owY0v6_uwK>p*sOY9^v~w)^}@<DHbZD6xe*4a+1k8O4fOYt8?OmR7iy`x
z9p5|ltWY;qs5xs0Ms}3_{R-oWvTMUKb$f_*eNifNkDsm>f{T>r=H-o}0t49jY8$2B
z+a4p?K;_16{FzkKr1^-ZMu73)RRdESC9teH(X~&lZ7F?<UQ7H`t@&3i{76FgjZ;TR
zH*6knp8NS~)}$l*c%y9ewtwAbqo7dWcyV=83a3WZc;1m~c6{g39`O|o;!pg!rA#mB
z;VjS~s-;?3I|9#k`}ch}mm~kV{|QH1!})ok`eFavhvq<-u+dGb{ewf%{?E_q$HS8&
zQZDrU$9Ods)$u{lf6Ue#Cof!$$>SLO>;27t9>Z(we^Qa|HF6l-e|R=Dz3$59sK0pq
z!eXo#Ao7#c?DFw0_~e(^zvj6R@0||cvQtXMP#ALHh(Hru0(Mrmg8lVWDo)3yyp3h<
zKWS^*7XUcLjql^d<-OZdpN`C)n`3`Hzceg<JKLnh?bzSl{`x;HuY9Re>co9TReI&^
z)}Z98?aw0a7j8Q`Df=Q!@%U`tQsr+7qnc%eLWL=}-QqqMr`mSySS&~`eDh@4$P6Gp
z<DxG|+zO{zM*6GN{wr`>LY&;Q75M%B1o*4MK-CJlqgqn@hi2qtNLQ190!G}T9x^6I
zSVlu6wf-uVVG+fWjk2-{@_VfB?YNNqWC`s1QeTQ+#%$be-}5jHu5(V)WKS#mmW1qg
zyFORM7I!@IJbCuPxs8R~zF2TlOrJ2193u~$-JU~=EYZ0dr+;?7cK4e8@Lt8AhmSbk
z_<7gn=fB9xS6zJf_|HF%{BExM_3|aBt2cHXAa3s6@$)V_$3Ko}Ui$gePtP`OIW=P&
zXzrh1a^62x&~}ina8ES{Jbtz<cIHQHWuWVX@=YUl4k>dv0L_Ty0XHDET-~;@kC(4)
z9NIWz)BQPzvUlr(dYa_b;1km9fFH4jp?`|6c91%AkaS71?U&nkj?*{~1NhRb7hr!}
z5<iRozIU;kp^nuq=D_WS4tr2e>n};#e%QSO_r*<{Q*l6Nv$$cE@TaI5c6KH&?Y^a?
zLAl|k@iqPj3nbzH_QjY5a{483wgmVLs^~dkD4}*K8G}PRKC-K%5t6Ux;^X14CeIe=
zsO-E%D;{MW6JPTrCH3#+Y?3H&{L?)fO7$phLlHa*Hv`KDKF5x4DAYj>Y2a=1|0PHM
z8;2OF`zC$x{tnvdL({UG^bWm{@c2o5`ZIkTujp>fxaa3MF%eY}o14ntwc)fJ6lK4`
zB4D>*@1@A%2OeeHqMRP4TdSB}z#*=|dM^qj-}*Oh7_<MycK$aK|6gZeK>thG7dvR4
zwB5AU02dgnzHy|wrBO_BypB~1iKlA^$HkQ*9APu$a=}$jF*BG3yoC~;2b?~Vk~+9U
zn$1Mq=F~79PP(F6SH3IK?$gjXJs)4mMm^Dvf^<A!KBHkq!(YXi!M?9V!>vlkujl08
z6~*13ytrL&gh$MG&Lv?>>`Nee0ZXt~cVO!)YcFQ`CHB_-H8EU7N-6XL_n}w{<8`cC
z3{mP1J=xKMY&BApyB)Hehz&Ik^K4rYEaMn?m7-AXJW&{|FSb=8YpuTm?Njo~M5Vm0
zfKkxuC#W&SAaI(je)zMic>b0T+W;}YtIY{j^1#oq^Cd)A-P_!>4Ch%Od!<*2x8#wM
znUAXiDtB6&(<(Es!{>~|#!I$3{;61>Ou7b2fc~~VOzvS1$q*isz!2Q&Ox`})QU37E
z=UEPEPV&nAsiV^Db#ie|o5onZK?!daIe({(Nv6?D@B|0c*$)vCqWprLSES56!a1fi
z6DxN{5ig1}%%suyn6X&alG<xlF*Ad?-*OXO1s_5&?~#Q-dSY&iJ9-4~U93!o+sg-p
zmA~QWIg^4p<;eM3GU66z^|hMB9A54K6n!QXhk^7|G|W%byWkjQ$#`Md=Zy`2T9W{W
zxj7h<z#n4TnBz2m8Vl<JNz~Er`_e(%LQ}`0azX6Cf69qxD-Yi^{{E9QGKhCD;Vmvk
zw=<bNYLTZW_YqjABY)vjH%0bTQjdL}^UAKd57hp)b89x}E~u2=)s~KH>vuS|GF&61
zSd&^t!bh3tBxNt@28g=Ow%H43+H}^Gom<zxrrm35`NydV%8_BXuijb;vsKag)h2jQ
z*x~mFWWNFXTOO?L5Nz~yF_|a`3u<Zl`nxrOmDMF{ude!8>CJaqal%gHLPf^x&ZJy#
zd)Kwh9vJ-@#GZaaTB~Z)CaA;LivG4;-Pl|kH_&z9wmOf;hD*AHg_Rkj@ZOu{f1*&l
zTGCQ~p4-a7xo*!k6~cLjsS2{29kCXDQ@?k&<Mz!>6X7Y5x$gXCvz?NQ?M^+9hsO%b
z45FM#Hx$GSI#r#p-&p(ua4pA`zb*IQsvfqLy`FRCwn@H``1$p1QINMYqtUkK#lOYB
z{<K4KDDR9-<YHx|wcV(ERa=><oMf6udGT-|=tj=j3Q7TST8bY`eJU^RbTQe_aR)oA
zER<Y&R5A$X3LyJ4odYGOf+T}^(02o}dc}uHI{lwt%=j?1|7G-FQAgI11&DWb%^~q|
zi90?@WX4f;a}#c2hs^2-=r8GhceqzPh140FznAl0H#`6GW&Z<13>2HmxBPRAh`9ZB
z{o-d)28ciIqS9PToOzk(=$#HhIR!&kj!2!XD&zGsUzy3*w1Zs9zP+Y^EC%eVsotYi
zu6*`(PrvL!o7XxLhBlM0mXd|wT~~HVom@<y&FwdSw<)MB#KEol+a*A5#>H-6J2naX
zSZ0L?N4quU9e!~j3693LF&6HPRDHWK&CbTh6{JAp>`(ia?s(L1i4B2c3V3&8=wZFJ
z<$prRv$ny_k)uaxyTyLqQ6ifOV%ZGXvk29`ZZZfYev;AYM;R<972!NbTC1frc4oFM
za<H~JP%Nr?WWlm{fR}B6=-5xF1xohjzr$zh*tPJpm<uwi5;^$1Rc_x0p(D%+=E+H-
zS;{gc7Oh2Djy$pYiYbpZ$5AR5^b_4BjpH9|cV}NWCJ+(R<U|K{g=S@3nL*?WcS#@M
zVU&rxG0A{P4CQoZ_9Rz8U6J)XcN$rC9VRxnQqKoJUYdi^M3r$>)H^$@gZIos*_UWB
z#cbmW;#vy@ByQ8vmoZ~CVveoFPT)uoe9qdu8f`n~Fk=x;<2oqLT-YFwSbONo@gO|t
zy5Kk11hbmv>jR>oIF-ymnl{#@{EdZpB&h<zi0>EZ4KkL9M8AL!J_f9!X1TD@pmwAx
z>#c;KN7Mk>CRsvw+d>}8n@+~UAu44dhTJkq_sf3uo5s<Y`EGIzHIwAq9lNSU6JSko
z{a8q6Y@{>n66_80(Kd0@Gs??yQSx|YCuAKj0=*2A&y0(NaWJ$BYzzeD9$eOqS9Z^_
z%h7Wq-68H5cZgRom2FbQ8bVNgw+IWvmXTkeY%)y-TY#Ifb00U&)3TG#j20Y|>Dd?_
zf!WFow?Na0JpnZ*;e*r6`!p4Z`&eSGdq!Dk<i&o;TFOmLw=^BlYrH#B9-ei$VzE15
zE^cM)&I{9xr@p|`p;7U49sFsfSNx7%iM^MKIRl8pU1l`RaD+l9#w-oVtV%4BBjmw9
zqS!juRmAj4IedFzCNW4-EkcC=S#~QE+|OHL+MjG%P{&~`=S<2g75#EKU#ryI3vglm
z`r<ww2TWO?1<B0!{cRPiUx*XFm3$M~Ebr5X4b;aIagB&uhHqI;ia2#UcWh-@rQe=d
zksECKFOEKXeO;QJ;L9Yi-oirj%2dvMJQYZ@#o--7u~54lH#ZyOXrHd5v>2R8rB!yc
z=mk?qBjHSXdL<b2;@d6vxtV1q_3}f=$YN-ZUI2fM$z5F>W)rl>gm0M(dLQR{X`wsM
zOG2MBUI1s{S!MW<#JS4MGHWHj=k?Q<Y34pqR5P`b?jGcOP>5wtGJT8j3|o3WAh?RS
zQG3yu{s||`<QVZnrJjERs6DIASw+4IS#9;aB7eTadHG|c5QHiu-bA->i!6U-g=eh`
z1)R<-cIX~qNFE5(Kl#T4`R)}r_7!Kz7<wM1@!YSOypPCN3!gK2iZWd_gGLd>aW?hd
z)0{yy!)RQ02FRq5YDtT%5B6bI{smy_{9l0BIAu@;`{S(x%xhzj#loSxK2CuP2DW)5
zOb=W@=Cwc(T~O4Japj?LxPz$PGw#T3_U!T(nUzga9?d%|bD@C6N+_>Mu}9T?I|^*I
z7eEMmRACWBMs)rIA2VVhNEVM6qGRjci0RQ|FY%b<l`OZIuW{CO?6`WwyB1@1#9MO!
zA5^i+;$nJDPkj(!n_r2?3i$vqMiFO{JD5`0T`64MTDc}<`uajCkuRJEvnptw{RmS=
z?7||4&Eg@3bVx2FR?8Ka>Joc)K-gP?45xs`wO3Jk0qoN<EQ+?90IJ@*fMS^S)SPHu
z<WU0V^eX=;YEzIpvj^BhcU-QEfYCn`S`k-*@Py5328NDIW)CwmqS;(*($*~RinSEA
zD~IirT-<6pW=P|%A@IOR!s=dG(8!<2vM<5|^`ko5qTulEGg4B4AM^DnPU=RBvImS?
zu|L{f7<Z6>uRrq-Q~Iq6HEA~A7iv<=3*bCs23!8h(9+o!>-&~2??BQ0d^oU+@559X
z>6#&h+>iPIMHu@P$BC375+yYE{16WhL~9eF)g63wJNZ)OPlQ}WemfJ|A2@{5>mESa
z<>)T+l3D8lo=X3Wi63`nPMM*{eu?bAE+f&(iSxHwT<VJuv9JL2izO_*yfJ_`tU<Ge
z4DB>}>%44DOE2N<w(QOoSimlEsLWQ&$O%wAmCe}Q-;;L(IkfV<ju}q7(GN<8uw9?c
ziiwKX2`tr)f^)tz(~DD%VeVzvGyJ&uY(xW@x-b<!s!+;^oL&y59m54;+Z^y^JN?5R
ze9tw)a>#QMIOKRYAHKNIZBM)3-&S*<G-QaUCQr#PObcuQ!&!j{=A4X~tu3PJH-)N1
zN$k7Fz3KXd^iYlpjgGyE#W=W!hP`cc6F^~+oNvr=%gBqUCIp1@T+L7-;8L5Lw%=Y`
zsn&B3VPBEJD5>)H-8&>2)A_n7axwQhJ)dX~`vh|3{<-!@;-spCa!QMFD9#ddl^;$1
zE9kuc!06?dS(-_m=*vb5i0@IV)C4bwo>}I7WfHI`TxDsb+{&C}<TGLyxm}y1Ps^k|
zzl+!yRnb(b_qHgLSF(3OvK5_lK(@i!9F*L^UU9E@^1&0I1??8(;1{`)QRd$R4KTh;
z#U20A0LcMj>x;$`arl&!ziAwW69zepdYFIQ<w=IEk_BYh-o%z%Ml|E(GapIEY)qeI
zDZ`1T*9|@GAA)1MahkYscenaCAbCYUWy$QYP(W?3U=!fWLQ5=PekD*s!<m~O{))>T
z%>Zj`9PmQ22~y=B0ov+iI1)NM?*BiK-y!B758QH`jhlGm%ty?{S-xJDQ@9Q6L!HpB
z{-#x}WbATtz=?@vVuA2`Jr@f#u28Wddw+J4JRGb)n&Nk%l4><Je4D#OE=M6@vvqOc
zde4@>o|A#K@34&gtgMX`tTLa|EU^_aucnF2#(rKQ08Y9#nDMjN3H5fzuZ}S<(e9so
zwGgb$Ns&9h0Rn6Qh9f&I1cd>k|G@LVS|HhXeIyHV{0G28zytKqr)rgA8W*xMd7A$@
zA|<$ZyeZFkr=o`>+>I})2COKgLHh;$)8y8GlXt#Z2-fcUct)AH3T(t!b7%j|%~hfV
zZ@;<(3=J4uql%OYVfb_{3m869n-e3Ob^nWT4eu_HNkIIaNdRbP0JL-O(oRC6=zD#b
zgq`QNzvT}ztpVKt!V`#bIq%!w*@YeZ7Mm*()VjDEoCj)cx&yiJ#aw4&Z=c8Ua2Bx`
zF?5j}7sYELVAzrso;)*PIj9L(TW1wpWT}C-e4w6v3bq>)%`T(u`_HA~a{If(BiPq-
z7?Y>QkNFHX)sDE58*)S>5eb{V^MWJ`(qeP)+-Gtn(b_O2pwu8FU5CrU^xQ!@!6*Tv
z@!^u~Jazx5%s93JNCKd7Gxq5$pDvo^?{r(Ndj?b@o-Lq5OtnA~FNibO-{xuAJ!M=<
z)hBh2NaFQ_Elr!ooiMm0hc81L`*XrnWh2&TIkEe%?9jmVE9b}RN6uW#lm9D1@z9Xl
zx0q|IWOOm_=&xR4GUAIq{~^hS#Xmg+fRF+gC&ySIgTed`m^7|12DWhVFKQnH!ZpO2
z;JH^o?TpJ1t{f7r=wDpf5Bu%yAd^Zn#A58(p|7eWcFaTL)RNq|60N_OL#3shzP$m{
zdYx7*2SNI_Cb6Ej5<Wco_)=!PLYpK1SNIjb+c}~oX3+vU`KDOX;9$O)Y!f%5tjF!s
z&yp{W)qRNPj$(&;n&SF@pWbLwB-UlG`a4_ZbnWyin(@S*PQD8^UH(7hT9A;UBMoFT
zHtq#zUNfR2t1AFpUH>l;PXY|u5_1dfJIzGv_J$na5Obx>GTGhn;c1#TZ67W9ZX8lP
zWqgq~VA0C%@+9+D{R;GzY(%`wk-u_qW%<c|9#L2H8l~wEm@k=gNlFsYa15OP?B=3t
zCyxWUxj~UNymxiN-#9JrA4|5OTnDfz<SXdgVY%aaGs5LCKaO5M?|0?_ZdJ%lPAfA%
z=Eu4f%>`$ISB3<u+`cTH-Qymh79t>^egTa+$CiqQE;!Lq&LSFg(3lds1Kxv=v@7WX
zIH*R7&NCT^7k6p7p#RcS=#yd}#Z?~6b~Hv#b2_lcFq=swkSlgtxohjuv}&2|pTtcc
zeY|cMr80gik!6f?&xsZp(_FAx=Z7C6Flu*axLxJZy%BT-hpf#xuv#^JLmRjX!~N6L
zav;_{WY1=kSl)Pwy_SmCMe#@;*<w12i7@oCCr(%dWLu`_<w#H1uN<b@CH7vNNjXRx
z0Hs|@zRW;iENN{Ho>er2Cun~bXl-P6J<4_fl9o?vq}`xh$=XaHZHMFGo}2`lEatGu
zBHJ=q)iK4VM{T@c{|!8+OzV?5et6e<2;W$eHLuc?t54uQWf|>V-9{VS=UN*~Ts5`)
z{Yzc|a^b2V0yg8141!TZ1`q4nvRT}aQ41tmCOgpGsG7R)<tTvgR#w*b0|+mE=KR|7
zyK{|1-Y`?;fbmaKEk7N$BR7VQyAtGtwbZj^2Tmh)O-o#dFB8Q`oCBS+#Sa~m6*lKc
zvjsR2TrY4OB50`t6%r%m$v$uy_X{5)PA;=(6<Zgg2U-MDj#eqSkj8IE_kYe8uiD}3
zJLV;E)+fY?jzdhml=Tz>Z0yM{Bh0^r4RsALBs_Dsx5f<m+N0du8auKe_1d3}E2x#z
z^u~SwYUXcsz3W~XNAQeX1eNeISL1%(A~lbOQ&y#OqSkjODc@XxuBGQO3GR{O;?VeD
zj%l(!k<_%<2t2ZPU92%-)yN~GdT&<!2~6zEKRis>nh|p@=KSl|F|Ilx?26{=^kSkD
zN8a+y*h#<~RwCliZZ*F4+_K2|K3`L`;(!}_$Fc&P5P5zq`OCAoP^p$bl~A>BNmF|^
zH(gPIeRz2Vn6zkzqF&?&OUQCv$9w&6PdJCFtJMK$$N~fl$^AlP=ag+MG@1EY8_ynB
zJtZh&X3WO8V8+g~UaFDu-QAT;!n?X~5Iy~``AqYQg`H4|%<VV?c(g7HfiKMxa=WY7
z^4E^J9AiMrdZTGKeV{5%<X6OUAaD4)+80)+&bAm-IrvkICCnanhcnS1NYK?c_2vi2
zNo+y68{nsW^|l=itU1ZCwT!G-2(kWA%uFl}OwMVBJCP`BpAbt2Xj};6)07|-pF2Kz
zcszZzi{hJTUn`=_repgthu6e3Nu6rU@BU2hy9JqDv)t5<u?r2U=~&5TqAin8yt0L*
zH0wK#JJ3lZMgW<^CJt@(Chh`+q0EBfQYI6Eqs(GLEhLuYR5f6ev*tgLO*w<iy4e_6
zdu}!;a^`pD-TuJz_w|+`g{xngku*1~Ep`-=Xl+8N0++^If`xGE?^{SbZ@Ite)+YNr
ze79fNa-F(eO1bVrjgJdpWvsC%znWUO0?Thtke2N$2{@GV`xZ}7dp$)ePRR=hGp#Pb
z?f}f;v(ura66kOyBYJaFZRGiF5%}z7{06{^*h&0yT(aVFv*nT3F#()KHQ(>Ky_3_P
z_Wwpd$-$B)pVa^B*awZNk{I2pUxBSr%$jd8_TlkZw9`0@oeTGN7mOBO!U5ChvRM+R
zDe->e1v%2JMp^=PJLEQf6o@Mn{5Bj@kvMA4$mD@(4f~+n_nEx$f4Mh6?Ah8t@YmsM
zxEe;+(dM{q{f`mjMlHzECNYO~TMkPWVtx~VjqRC;36Lv%1NLlqXfc9fW6Dwh1odx-
z^KZhMZx+XW1~B)%OkTx*&g`ydODQGxcFq|CV6z_4-g)S++71Z7YUDy5%O7b0pxQL!
za=M){)*y76T;c%vPdrzFurloFC7Z(HIC-?)+JWOv!IjX_ZcH^9hnW3OFfxbb+i7J+
zvtPLljuCQRhtN8(eEZR@*^<o!n5VGl5L}V#n&WDWCkE*SR)*}E&$SV}S=p#kt@ak{
za|Hh{Xa#`AyJ-*nku=S`;7ZLy-!?#tM*zU7CFW;;vS;Xa36l=CUiV!jf+ZuioKOVN
z|CmKEa4jeBX*nUrrhrwRxQp08vIhW$;`7QVq5l~jP#i)t2SwVXjY{BjNNGHQ=}9xh
z-NY^9*m&I?pCs8AAX~Jh3XcIYwMe8FN1oQeY+`Qj=RGhAdJ%na{OOKmnY*T2ze!hF
z><nHL(xdGSMHbSyFPBdbJ^me!t8@Y~^_|yI4$4WvG+L7KCaDZ@obr_UnchUHCeE$A
zjuJ$27=Srn0?hef0SO{<R049K4#Rw0jGf_r<DbmG6w$O!A^xy$AoD0dW~ucqrY#S6
zFHVVux6^V4Qm*mGes;_>$Kmz1&C3tuTgDx{%>q#EAc<X`{He~<G%>_A`LQR&jZmTX
zdNrRm{od+r>V;b7;#=K@?=Lu%hwwR=Au+O}Apsk6{IgPfroF6E>}^Heo!{H0>Vw-F
z=0=)1#2qy9-o;HVS%BEb3|vGyVxR-JQBj6KC5|(7mnU5wlL7*6nfswca9KHs`}#aI
z)_o`hZXknW)A7iQC5-QCV#gs|$Ajp5^El0BDb<=eLdBkMttI3By*E4QMIv4(a(xSh
z^6jiRH@BrJ@}^|h%4-DMqENsUc)NZiN&8AR-9u&Gx`p2!IetCZS{lFWpm?`Ex~F02
z`e*lA#J@-#j-PsUTu=N{i-GEYxx_h8EYl=hrL6+Hb7xCn<czlL1xezqrSHPWc<%3a
z2VFzo3O8yKRYCuX+xWE!+_(H_CGo6MG9!5}R!Lj)Buj`#PXCRW|0mP=_5QswRS;4A
z$b|~`>JOL1WW?8BX(2TTz_7)-{Tm>k@$RqC{g}5bdtC`7HPpRzQQdA7zP4^6|3bpD
zGhyP2w3lIu(}i8`!(B0oTfa#x_M^1F>&xQ$cWpiKwhF!x@RUW(oQ>sqJQNrG`hXHz
zvi}b@t;0F`I;kk9&2S9yqt_wG7MA{C_&YL58d3gy2d#|uG)ei^Gh`hR(Q8_Mi~*%b
z0sq&eKp>|O0E~3pBWn+@-08G(1m_n6gQCYaKhFiqGgg&xcwQs(IIYJ)RK)B2C2`~m
z%GEgJb8gAbu~6l>VyX$hM!$sE29zVzm2Z$kfJ9h}I@Wf-F;IIy^^j4XTQ7!5J1m9W
zTg=53&mlV#ck)Z#91vjl(`s=ukfGBd!0Re5=qjHHDRPLdlDpgai}+~6M&`Y@^0WIB
z@gkLbPy+IbO5-{<OBk;G2O5`bIRC`T$V-5d4`$p@X`XLi5>JMkoy5LPrbJ_s4FY;=
zJL#)|cotJDu5q0#BSdW)r!9xlf^nh}#PrJA9hxaF<<#xUXHjog&fcrVme{!~mNLc!
zoh<8b8jLucS;|?sJ2^5Cj#%acsW9To1S8V52Q*PAelQfm7(dPU0jLw88RoNvDx&I;
zxM{c+;!&fx$i`yi3Fm=lf$h6|u{B{XICq>CPSbDCkKCcjpAt<ET-Zpz{t6TvFHopY
zWqY!l;{rI1%-p0y5-fjEMVkFJ2p317YL27uAveebgg0z*(~Lx{FaO#?ips+^*CM>?
z$%r5z6BoC(5#7Wbz38gg0MWvS*bB^o;sA@*YPM72xypk#jn_}TVa8zdg2GI7B{FI(
zJ{Ry~zae(W4h5kjUvH!~0yBW9o9B#vA|cU(@Gm|4A1G`6?>!drw@vt~xYk5Oi4z`a
zv&*g02w+zq(JgVZb*?BAh69<*W4@G?c9efUYjR|sVp6KCBPpi==<dvA3dA^4EbnuN
zgzQWyb1+a1ZmJs@J3|U#58gV!E|FAr&qV6s4R|ZIhAW>irx4E@N5h7v+~UUD0(d<;
zTJG*$tl1+vhm`wL4kTEg$#4KievrIZWhp)cK_F?0Woo@C#Z6^#)0tg*P7*Kw|INXX
zzd7{3cb~*!`pNf7_W<PYI`0=CGIuMnLpi(Iuu4I$0%uq!XysKoF>FH(o&zGxF(MmK
zc(Y8Oe(r)82facJ{64**KG#}E260V@*HDnjD<DhzXRM_}9ro=}>t^KB@;aM@VK5PJ
z7{j_;+1AZKFn@<Oyhao^kve(gYBq&mzuf9~Ku<rBt7Q2r9dC!aK_?>SBD&sU=BGLJ
z5=XfzK7!)7$;80cq?+gjAh0rJS8^31fb$2F$n2%9M$5n2RHCEr<MqeKHE92gsYFBo
zJ7Ni#Muv{9h)pgZy<uE2GC27l$mE8bi*X!p_!r;|!#ATs+pP<dn8I9K3@7B2QL2CE
z^px(z=MGF-j0fWKLaUFm@emcP?#_>MmuPUvjJ){x0#K*P0?c>=kQY({5?KY9!@Y~|
z0>aS+iu?C1#bJ5$y9jy{xP|2XB2L`6s&4E<pincbOdk40#}G(<hvqiNUE?%K`${-C
zC=HzX=u$Sjy#jJ2kP(iY%Go(z2g*~tB%O5T_^E7)eD?rhye$xqQ@);Kh!kW$(3h3i
z6LIN%nR^#VO7iar>S<iN19IAupsfljKA-hgn<L=Xw%OC*_U;CYcf_>BbG#(XJYa8f
zwt{f@Vjdm>uZWw9SKlCI3qT616l!=KkJoJ+mf+F&zuaZ(|71n}f3HgXt(bqAE&^}u
z!P?yxh5i}Ee{XmCv#3~3fed%O;Vxe+l`Va{0W)I)$#Dxl{9?!&V&aO7h?m6PRRiLR
zKTw5{ADHW$U0wxHrKEirT1T=2|35j#_V=RyJ6W%L8X+}uUCBY|MsRt9Jp_WmDQ(Y|
zD2(F-a7ZN76h>esViWD*;~gU@cA?mD2jq(p5O-F>m)>2#VHR147A~az4ae6)g>u8q
z(YO(DGjgMhte*g{4=RN^ksFN@Nf5gO)_L%md(0hTYa+1{+x`LRSjM(>H#L_coM8x9
zftq`wBBaeaPd=*|<;+P_Bf;_9KbZH!^CU>yaanwd%Zt;QIn?7{lf*TnwPA6*!D9y^
zEf^*go?w<I(p_HDf~a@-0?AVVnV%A?+K)_L3YJmcz`B{jqAlZUea2(nNOwyx!J}-z
zBq(376%9(SB818tH5hY0iMEyW3>*MXfSIp;gpVuR8W)Hwr(-K?(=sd0`?UBe_=wdR
zP3X$Oa5z2L&H5isjWO%=#E~<fflBr9p%6NLPPndpfJ1O^j`-|9n9GvA&600gZqn6!
zt=C(`Uo&25)pG4KabM@$EpftB(wk8Xu>ATgJaVy^BeGnn$A=E%=f+nTwBSQ3amy|J
z<(BEtI98k+cTt^8db`s}6r-X^@e&D*R~|2$^a5AxD9BjX>IOIeNL7T^Ddxp~SAl)Z
zPuywLHB!sU3S6Bdo-`2*7p*B1SHBAQq_-u)wv(e#KZb!$t3i}VU>sx@MAJE!op0Vu
zbRR;l+T&T<Lw{fZ;$j*?hbboV!Hx4vK>v}j*`fW$n{XC@>2<*#E8(>6JSCGUaA}*C
z`BsZ>CK<p!=R)KGKn#MSFZ!TNGevkZNj`n5bZ)cIn0xx@y<Je#-+tP>?e0%Md8H8!
z{&xN1PnDa0^KiSg8~)z@sr{`RzwQ2h!|8Q8-E7M(v%B~AJ%{hwEd6-%F1bBFZT9-<
z%kf=5H9i=N3GWf!&^Cna^z}jb5NBAipdRfWR=BmLJqI613}o6t@TDnM8LP>8KSm;y
z1p6YtsLoazMW{lQ4f;G`&$|nQzmYVX5kvL)#b<ersa?38?u0wEFK+t^l58vUEMw18
zE3}$d0+k$mHFSbaRjk8S0%hgdYoAIYY4!8r;O4$FtSjiTwbYKvg(?H{GJi$hZ>h(I
zkb)89kn8HO=3H%1b5@1Cf$~%Vcp;p%Z%))U7M#_PZ+*OR_1l-XZSys{5tgauhl&M$
zsfmYqOV7ZS^Ocu7N`P@JQgM1IhxOyq>+|1&LBryC&c$b*#6X3EzxL}!n5CZ7O;IKT
z#ck7}<Bfj3&pd!b=-7_00$6G|Viaz^WUW03yPUcmF&cVx>50Np*1KF)M(VkX^aow%
zRgSpSx%i&BNO6h%rAWK?T{Spl)YI*GuRT~3b3~x0-gxN>%*o+^y1#+W#KqK6m}9zk
z1T58D{VFOfb*~||qlT#3CEE2$i^?)A?>NUJoL4!2H5HvY_Nst*3TJK$3bdTJ^fx7y
zxyJ^#HxkP*KKB=z1E}5_L+ffI3n%fv3tMdaU0Oo2!!$=MLFv;4^@<w7etMQIOnD=K
z$?C-`4<pf9s{Xw6g2$>Q#VZx?qymlL(pgoaVqvV_sAY3nUvm6@Bhb{#`pik0OyNC}
z2{qatYBGF{CDwGQgUnB9qv1T6S`~{h-o5DT=aWc#<;2v(LtaW^OB27Z4ijSLQdo;_
zx;ZLBo}jv`uC>VxJ~Ye@bLoBv4tYA+shVQd=vJ~S0FRHkZ5&uCHNHT7D(CaXYMH1>
zJvQwoamG@qipQfJ+7nKzDSR?co7C5ke<dN{D)0x|%!c!7Di@Hc*-w`?uelVJ5Aiu^
zC9BZ1$v3L(1woA8Q5}iZk+lCm<{!rsib<7H<z;(Q$JD4f=<LkNc~y9M9BNcGU8i%-
zFty3I9bt5g8eS3`IyCa=1|wJ1_xRdtRjyT-bE*IgLQf`up_oY>aI-G5ex^9-hbnbk
zm60>q3to6OIiM<QJMw8RwW*xDd~Wn=m`y6F_}%m<daR6#;-|(MP}jiFXOpMF%^*)<
zTk*S@Y*p^8VEw5oApX8!%^aAl!Jv06F(7?;F!B*G1fBHpJ&0wkua%cMnM-c6w)BU%
zgV(ajI#WghtqK-cZyMQ|0$wUp)vFM)(^S)YGD6ddfAprPMSs~0i?UATTRw@)o$h_0
zYXb_Dw_b`@C0K`Dpthl#w5f{dCOv9>Kl^gYNOCWcQ$`9go%@JiICpvOV~G`!qKijR
z3})3X&-ImTbp-m>=udOH_D*t@b}T8b@~Shr#frgg{{(kmojvlXgG*Gk?hX^(#R0r1
z(hj3$#HOf5zYC%PZ_N1%6)t2<p4~f%bVv<som?9`1?SJ60J+t7nE4rAc59%T&3ff^
zV~+H2i({qT9hO1UJ&dCav~Oo^pxe7|-}g>7W=_&8SeATZh^cR(9Q1JqpH<8H7tukc
zbA9-Q6Jj#0h-6*7DaF9w<nr8rnCOo4Eiqp^WBMOA+>9Wl?VMJvUVFcPwcw<i>q<}1
z6JG%@rFP-BM77y+t~+Jy2t(HD3B$a$DW|vcYpqpIZ^O+2`_2PpNyx0p?R`F}C(&bt
z?~wuhMk#9q`{={ih9UoWg8!q)IVm<^oUf>T2zT2Wg?Z;k=MA{k=fju~`0fH2(^j4C
zh8Zey&#6-p|0YvjpQsiMNo8DZ+&5LHI%K|-AAx!!?8ZKV!0aw7jwIhe_L9}SpTF<2
z4LJ=6Pi*_?OE4h@9HPswjCjfVaX5VvM~g8*Pre3+JlT^+Ca>q_RD9PDUUi#&rw@ic
zT{06bXtaI5xV4RcFD<!$YM5x^`{={+yC9_tYuB~d0&=W%w_f*)m?#p7mZkX>eQI@V
zu;E_|MR>PIPfLSCa{A(UYf9)a{*T&*DMI;BO|;UoK%sLFzXz;|U2<NP9@q4;lV2RK
z!2Q_+h6H~r51z$eU3vu-3Yt>P!xB}kEtc9&FW8Rmj}CFW4}w9yJC(%2M$bAEK(M~9
z`sf@U4a`65TmsT*sa$z2UVjJnQB0)W<@Dl*z1xNnXUQFZ)bY`=HP`qb$^wZ8`y29k
z+rRs!x}ts?;c2zw^D48<Cw>HxkqgI<^??emalfQ>k67hGi}*p;W<u;O_vGD}z7yh-
z*5EZ@AJ_3B2{{6q^Zhh)XJ6-`JmG=XltQ_~<$Y42w&-`I&AE?><9IaqYxoiGX-5;*
znud(^TxHVoM=ZB25dF?qkAn-eyjkbMAE4eEnx=okTlugl<>7gUJSrlPZ<;-yiS{{l
zZJ#`U)}RPsjW*-u*%hIfKf_!L{YO7yuw3JaH(?G)sV_0-KBb>bEF4a+m`iw^HC&@!
zWXiDS=Ty)l&St&y&4#fbHS8|XTz1*&Hg9Wum1B8&s_~!wtuu8@q+r;6?m`RZd`fS~
z;m?*?Z8KDRVxSH00m%$AlMnl58#;6z1UN9V8~Pw?8es4INE3!nqXr4mVQky}YS=4B
z>GuU#){Lq?vGmW*VF-?;#&2>8Mm0<UE|6Fo5tp!natlVmJ7AdvdArfKgFPf<`(7k^
z(%sgleMk6tYAD3S<Q5Nm`o7xtVHRL03|gC#kOnrv?sS{nq;r<BtHnl-4Z(4zsckM5
zy-QAQJ!TkSNym^xjddw0<puC>m+Yu`I}_1R5bIb4Nq6+4!D<<%)mM*;19U}?TZZ-l
z_&SES8pMg-{CT!z`<!P?iLfXM`(ab;aVkG%lwcLsw%eb3e65i=Lx{95J6;QavjR(O
zrq18<jtr_7Xqonnkw)U25{wu&!J?1vbeuIUzt)b{D;2;VMUV0$2&#IlVA0J~ob!k9
zr^OF@derodr#imZy5Rps?ToHMY)I<ldpCO@a6Rq8V7)aRU}~c~UG*}l(VD&@Vd>l;
z%Jcof&-XdE395woV3B32)~PDZq{Y&-5`o&(>s>QyjW@Ph-!#^x8r$rzrI@lsaYsq&
zRx0HU?2#jaw^$a5;F=!I&kf*D0Th>wfbf@cMMM_4V|{>e2jCbX(D3ry!DZc5|Il_8
z4$vTZvdA!dGSRnms3zk)h+ws3NM?oGe63n2_BXY@mN^w`mYSeZ`wsBbvNp;NwN_d0
zN}8KdzfjYOxNe((xiMlTk_rA=>%ym5dex2c2Krqwa2E<9hp#0i*E^MEfVwe-6g^+g
zEphUSxYlk43-6r6f#a%*c-^CQ-=nW_nv-f_58gz|e;ABXQg|9Utc00NQkZXhoLCrR
zspi5DJmzvUVysig?NRY}1>c;Z?SUsRyG;?~ih)}M3XMETaqW=;1bnc-*z!=Gu?9g9
zQf%ZIOM<y3z*7&>0vD4JN)}6>%EvFhw#sUq@mH7^u{pv}RJ$*$OM~za_owGNmJXad
z_|8=}IM-#U$l48~1_FxEZh?mi0J$dI35IgxVCjI6F90U>S*6t{PJf7e@t9^k*5`3A
zC$;H_p?i=X+Vx3|<^VQJ7o-QyeAtU(n}NH#Js$L5PQ|FN70DUAfQ_y8Ksk-0SDm=!
z6!{dTr>pBH=t`FhamYqQPggO1`i;e&ygP&S+9N)Xh#x`~I%}*`Iu^q@D&A|9&pKx<
zW8<3ASCfXLKYP%(MyWr((JwtNoZFHE{H;2*hdtYI5h>P<x^Ahx-`B|Hk(9Ik+%cjR
zlG*I^wRS<kYzBMPEg+e?m0fe=_=Or#O(ilQzP_KfjjxW4&7*lWC!H~Wr2MSHI!KAb
zt5t2Qvz=<pIu1&)to^h?IXGy7_bSiDToQ<k3ViRlT`w}O_Y`vWq9Avkc&Gk&R9l(T
zt9x_6EUv@jIr0!^i@&zFPv^vF`TQn}LwV?P2QR#0KRG|A+hXYdsM~T$5!`K|;5R%J
z)6=X<xSHt%i*9HrN@Qj92V|&%v~YbO{i(YU%gQypBAQ(jxV*6n|A|^f9u0|Z^~>Q8
z1iNB}$nJD+k+&OvKq{~#Y47Ug2I#I(x=nM^x!^}}#R!IuhSCbAWQ<9CI>`ffUt7vQ
zL0@wsXDZY-<X<`7s9RuoJjF8l!bJfJx4(qZ{$c^&{X^C(_Qf?uMDgo=w3z3};@6Sr
zR=`%yKWb1aXaH<w@IwFP_8?k+!xSm=-1dNdfS^5AWq<I9_soDD`pja6-#J26#5HO4
z1c2bT`hGN(USm*TKj<2PMat;D)}4jrcbs}0#w?aTtl~@#1m`6VmRaXmsN~W6@K(iu
zx&3Bq9TPlmDPT76wdOtnaKhXzyNdn1LJ4QDXZgsgay<N>)QZc6bj&2no~Lf<*8kqG
zV24s(-<MdotvO}pwg$&bR{F;3Ps}hCn1-Q>;N0{}boWdjCC-ooTff#*A11rN>$i)P
zE`Ho|VQxSn7{EgBW1mh}Tf?b?E*=p7ijV#i%O9XToK1KC+w!+kY@?BncZLmq^hG@J
zRIpIYo4GYtKTA_Et`hL=N34D8eZEKbJ^<EWY#tkFP9Z+lt?NcIbIy}>+0WxRRz56B
zxvki3!S1|?^M5vTg7Nz&U>VFrrS-6c6+%UyJIGAwfIswrK;2=gso-tcNS(TiuNK*;
z%Qr{><ur#MDx^RgB7cK?G5>xFP<S_kg5b8&jts4KBkrt|y}k+KhC(n#7o_fU=HS|k
zv;GidJUlnJ6pD_tSKg#!9?P8Cl2w<&8mie_Qp)}%0<f}0*2aOck){+x?o7V@ylqO~
z<VX`BQ3aiSD5rD)8jJ+;?;#UTP>wkXb#k&Y)Gp%zmiKI(g|NUC_0euC4EtxxD?2;<
zJDP)nWl_0Q112Z^tFPWwRN@K2{k?!^^$|1nqlB?-vAd_q*4*-TUWd5Hsqbs!Oyrew
zQ3hNqeAiKbR8x`QTVK=YM=d*V<9uN4=K^E9E5~C>zr-+?xjAb847@=M0B~kW$T1M0
zt-0K2KN@df;(VhnK8AwGcH(IPka_E;eIp=Gll*pe^yx{!4nFL~;JC4ngq2alm+BVK
zuKSs7W+I2-LwSagc2+LQ)WK01_YA6N33ZtxwAQ;S>bK`HGOEg>1CN0w$`QVGtb<+0
zrk5N3KoYI($4?q)20GNXmMDMDS>?O~Fsyl!pQ)(e1beqqx(-hFYq%Fj2$W$t&Y2yc
zmQim-=R^?9<-5~N9H*(r6gOBB@{$VRF2EItxyum)uioixF~_LK?c++iG8i=gdwcNX
z{kP8YZENal>#x-^r|<NlqU~GFoEGkuO{6wyCGeV$^wZ#|hDur#?~l5e8cr=7uhEW4
zZ}_U+eFA=YG`Y9Q3uK)%Qo<-}j~zMOj&V@@?!=WIH>=CPX{)@m{vQeH!L2iIPUN9m
z3ypPMMn9g@>ixJuDdxM=P#ou%Zd2SqNeC98)D57t3!rpLOljZrHWIW7r4-^li&495
z;z*tuc?1m)v2N%Fu9h7D9FV3KPf<f@jfjqO=<u$ay%!|-g+H2EF|j^p4^_E3o4qhu
zW>4(#ji!94Q_8#H0GRX0N7D++(M|&(8bL2aZEaOQP5-gkyBV}oMbGFjUUh=~^IE>q
zDj}aDW4p_i5braZ;z-wGdgZ($E9P_oP{wSSs7)3yqw^9SDy-=PszcMTIf$N4pvc=E
zFn=T~jQV`KU9_=JYtwV;`LiP+^BJrv0E`Rd3_{z~*1A<^yywigal!VnRzCiw49uj0
zhWoALp21IJ#x926FktB5uSilDI!F*G!V{j%JhmOA&&{kgt1_})zi8>I;dCteq^gAE
zk7-8i29{GTS&q_jv|mhKw`KI=2Qqrhh<aD9+f-4*x~n;`Vcda|xpbcIefXd5183cf
z63YQ>6mFAig^FySAGmqWPcg=(dqUni>`nt<ihCSGAVfb?zD>x(g_*TMRd~0@ZST<3
zP_Wa1n&jRZkX?{+UakFtEqr$#u;z^r2M!B{mc((4_*yuzoeWgWoPYgK!4UG$G;lRu
zQzgTTK2yXxXncD#2GjJsv6g10h=|H+o3_+&-;-`{eA2`5)B|$JnO_))>Hb$kxSH$)
zD=_@~EN@KL8Za@q3@w{c{>r=gbthuT2T`cnnpb=JJMX&Eo6Xl`nu6QD-N|g)A#hTU
z8BDGm`N*o_tbV(Lr}zO^uhKX(K{Wn=+k0Oi;Bb5AmjeW5P;o3qH+uxw$*w(49F4`Q
z@>TXCmPP-<wbTljaTwLI3cLOMPtEI?vk3ERzANnyyhT3k2i|)RdMh59_Dd~MjlO=Z
z#LIsE=Oj=34Jdk28oV<F%>6yB=gahpeJ-xyD|#z?_N805DdsHm7mD{s8feE{QuBH5
z7t9W^u^;@NK?u$b{^pS?da|@wZr|$=3(7oa&Q0CwEgU+9LX{3iDmtfwVD5nOw#C61
zP2DuyNXbIr#7I*mfEk=_)&VeKzh9;(YjZ4+bfP#5*7*Qd-h&8iKaJs9FR^VxlnhT#
zc||#;qOL8Cq;<FM+m4<1g{(`Z+ZbfYTQolVb}x-`hH`8wvPP6c6NPEx2t`JI)72V;
z^4w=(9rP=yO(1Gs;qczOcPoUdR7P>RHQXVUR2VBw^lUFrOG;f2Pt_~T?x9pYajxkU
z{z5e=?DQapZVd*;b!j(AofLqD)~WEKPA__ere#<_d&T68+L|y;f#D8rwCCvnxi$JH
z6=r{lvLyxa3W$i|$Y5w<T)j||z5hQZ!Sp||kd|{m9_4zfJS<Ig7b;9lZ6X$&^Wi*^
zV@Bm2^;dh?4+iHxom5GUt#9We4GYQPsWZpdZriu!tM&xB^51_W(#x?8qkBk0ms8<B
zI^D9%kzT2RwqD^wTZXns`P78=?vs)--~!3lvy*Ul>oBv_?WwLAz;=#5n_Sw~@re-w
z8zy{W@ZnB;Ek%WaJ2$Up72h#1q#8Z|P5{T`<xc87D5M(}XPaTJketkd8;&>kUT$xJ
z+6X<u*jomR0_CrTIi$V?$N9d7IqABCm$FqUS(A7m?Kt`E*TBtEwj;IQfJ2ixqv@|b
zKCTY!NFCFqnxc(#rpy<7(XndOf}4weyI0ktk#Fk=U5l^XJYLbyTx`~(=B+m5VJ4Yd
z2ECn(DO~m}Sh?xLpHeNS<bd-#hK=5->BrX`+mHOR96qGl#%U0NrX1%jGhwfuPKMZz
zsFXH{E>Iua@Zf^Fo^QmOmOeyOs>@1)==RfnPG0U-jf2OjD(|>Afz5nA5DnIi!5aqg
z>6hE(8ZbZ#0c1=)fLp<65YFWp;M;fJIg-F@ihK=In3g?PI)U{4FtghpB!3vanu4t(
z97I2-^*XqC`6?>B<2G#>Dmocsv(V}|9X?(2V^D77Em!N6rqr2zsQk_GbZ<WIcMLdL
zb<HMKUM)H@6^&lEdp3Qso!BHhedCf)G=c+%O=Z-z*^SB?mTs@gTF430v`%HX-ZFD&
z*#g#N28(#VoD^4C-wtR;g_^wPFXUBdM~nLZsFStL{Y{vEHhTON)mlB;wtc=P(01!t
zlZ?sZU}enf7rzCkDm1C9Hx@$jOu=z}7Cg0`s?n~gdTNbW$jp%HTD5B1YTx-xnEoj%
zLM79sZJo#z!4Wk7lpwyFTPtur2Njke5agc_RLQPzEMqLt(=0WOT21!TNp8%ne6i7y
z#m5@_2=vzI!yh~-P&a{yjyBTrelnA#s$%Vg3FklJ>PFC?2LOp5mv&#S78<B&K!Cft
zj!;Ecqop8du*zF6cwSoOWS-SS`WA5R^T~TkOFxQLDXEh(8gs9qS(B*Za+JYCOyPWg
zU}|hLWZ^zp(8&Em&=`joUIE}rZNKl_lu{Z)@6>Zf<|G^)TbMqR56vn0J|edoJZA7V
z$*7^DuQE6LQp^SK-?=~rzQxtTumzK*MHO)4K;BP+)djCxQyzVoD;qW_J;#K-4Q2-$
zw8S{Kzi>j`UYXzRk1^1pP90<NrqZPEswITI{Tk8!$9f5p=AG><5TQb<dS)DEuk2Xt
z4zob}u++dIS(D@)?LQjjLJO#R4F$#;^7)6J&Gfep1n*h)Gp`pOVZ0hjwB1U*JgiJY
zf}uLU^dt-$Toj^jG8YTaPL)8WwH4=k*1%RHUj##;i$LUQ4=j#gdrE}33T;dI;G2Ok
zaql}K_$7sPt`2u=PJd}eu~~cwVcO@p^tg-nT>6w};P+(3Agrt$rm0xrGud~m_HrdS
zZ02dqU}uGmPhm2SO#|oJ3YrwRM)?{SgKICfV@f*1f}Oj!UzxNg6cCC!`+`zuWG+t*
z4>XO~RLn}TeXc!%8(c<?-sEO&jgHgzc37G?H29_RSUV%V#?GQ&uolohzcg|RaNKDO
zNZS%iqqZ?|Dm-ELS%v9&reH?*D&@mX(zi$&K|P^o;EG})KyQ3wmUq0KMu*Z0L-gXP
zf9noij>>9nX4ojpA6%J!ZZz!J6!2Hz(MIQ~C(o@(vGr+eN=D7(>vCP25ENcEDDI4R
zi}x{a!KgN&$p7Z`g|qe`hE8#^7Pc?>Q1+ZxJbdtG)}xfR%MIOQ#;KD)Sta|m%qHs|
zy`8sq#$4~a8#__Wi^V6a2X)kHa{En}0t0RY&vMa5$ET$K)Vt<X<9W>c%-lOwd8;KV
zw%kPd>5x@5KO&WXTwgQcrtn4DC1zZf@CXkEj#Kmg7;c?P)|e?U=nhr6A!IwuR$46G
zOOxHcF!u~ePV4F5V<SQpQ-^X-bn!2z4co67zF+Fl2>$v&!FW6QAy0lYA@E7u)3(T7
z7Iw9mY22^*SX?B^$$-Uki)eh5=hdtm36^aRY*hcxQ|bk>QKFk1l6CR0bGhXhp`F{F
z=DjJhMvH1#3yb%9eyQ;aWbKiQr~wM~7_gu;$VQD`D5n018pEBKx%z;>0FVWwh-_qt
zPaq=C%)XRU`7oSU(V;OGwo>`1uC!s`-Q6H1M^MObL?Tp$I+(al>mGR?sZCWd?Ni27
z$iNMiQf#pd)Hy@^+Yy2~bq=?}Aev@9W^!j9f573E2yIJCkAyN^g&@Z%<a|b*A<Z|p
zE%K>%DEFj2FEsFpvefg-XxS4|QlwD|kdl1vcW{arz_-;NENXZ<ISdw7ahKP?3#pUl
zr>8^{wABe)<!|-qW8k<~Mdu)9khTaC@8EjSR%;?7M4O5NFWn#SAzTe>+q#yAsVSbZ
z+Nr))&z$iWUg#rq2G3q^R{`@DdKZx<*)@~ztc04>A#5H>`>pItO75gQHV>YK6x|Ep
zXQ#m$67{q8Ob~NxnZ$J!%S;;m!DG3t>Y~%fo6%V_)o#T#b43bS*(OpR{s)00w5?^b
zEtPuj`SR*(qvNY+8|5SQs8$1xN;0Q|oX1F8TH$#n!1_yNeV`_4tSRt#uh(!#WztO|
z`U+$e1yW-@O_R=R=066b?AtqOH^$wA837g}H=dJEyEz6kJpHhDajC9nzH%{OVKpy$
ztlE$=GCup|mdP-mYksqx#gE;Z@Xc4}s)<$ll!_&(jg(tv(52!&jSNaJnpa(Otw&<E
z&Psdu&$~oy0baF&$RBjo_Er{wsBN|(7y(5i;Sk<>>3N#YNs+#HgVSDh?)a#?FXz36
z_I$FH6CuadWNPqBq1>Ls0gJgq-s>;E8u%|~EKI(V3(=ySD)6;jCF4e#J2L9n)(U41
zO)&#vvP?o$lS0iEHL9boYW4KnD!W4P%g)w3zZ#!F^e3A3tcjsouyG8GpSr27Z~#zt
z{EFz0THjF$br8uEz0Rk~G+dq~uBQ~Pzb-t@S>uJ9+V0Tnxk<9{4z&in&Wcpkd9lNv
z0P?EMQSC;WmP?jmFjQi@)kJwDhC@C+_524nnTl(^zizG}PY(#ctp`rVH<*ks8mHH}
zCVCG|pQVGz#kc!QMo{@9%6b#4%(E2hR(V~W>JJSO9jc)gVKdvtwS#tyI|JnAQIFm1
zOa60twcZ~yfY)WUtT(k&BHpaGmQfg%wMK7^0E_#KY)o+)-67Ta?D!$6_&dx*qpqck
zB`4AAvF&oTq++?w=5q-OkL4|va??r*QkVtVd9RnG^uS9H4Qng*wf@%=4YHY#OD=5@
z*~QfrvJtuuik-8g8;bVY_}s8Q_loprKk_h1Q$+j@R<n_}(ao%Hzi4~`#G;>&s@k<R
zN;>{V$TOgv+niGWWaf*iiq+B^)f9`&-Eg0+fhR%dsMe38L{l0viKu@58sm7h{fN?J
zg>P!k;G!|Xzj|F$XI8W$=1;+yTIK$nfws?9rnbSb<p2^Z^J%}coeS^1sva}gJ#})o
zhJ2O*XsWhG-Fp!*!t%#Eu*nRD_w|`#yi8`-%Z@xd^3Ju>)2^#noNu6ebCt7H%g^Fn
zDp(JzN17GK`1M>EDk>jFP~-+*#!hE&4_ht0NINc-x^#;#La#p0GjOC$Df_QVRkKy{
zZh10wK%rwt1cWZf@$-O+Cn$7o7ETAb)p%y`?M78{tC}iLVNVO9*bKb-+F+W=@2(@b
zp5CAwR&2p3d;++6aI_gdg34gLVw<|9Ga3-|xlzsX{kSsaU80qjC#0qN&j4@B%Y{3n
zs@t20oJX9{5gDkC&)b-KT|Y8I6K$0bbBf1%<Sm!7>hwPF+s7#}sj-ZVI`yK?6Ho_;
z!ze>rjU`ky>9uJ@EBCX6*paw_jJg=~x(#QUVddzMK23kV>T?FOMpvLT%%*fYLWiIO
ze7JRc(4rG<rdlnqqQNaLJy~t7WIR&v;@4I~@<{V-&w8nN4Y4h07{yFpK{wU%C>^Qm
zJsQg-@6<Nm^-jVBdaQ_mJU^lG0u9Xq%8E$#jI4UJ+la#C|5e_ZKQ(nlah#5=oel^y
ztuh4^aEv&SC6FKp1fr!3Jg98JN~VQ?^gS9hFv?;{NT4t+T2Ppm$Wnw1yDUP6kgx?_
zr*x_bFhE2=St3HD8bTl}Aq0{>(?6s4hx^<8<=lJE{hT@9a}O&~c=!f$&JyTB3AraS
zzT6Vp*w!)6_AQiV*a2)m@Nhb+pV%ZMwTP&tc+Q;)s`7<1Rxp-K!S&O(Qp17?v2#14
z#R1`{KBL`Qx+ZgonZp5s%wM!k2T`x5P9sP=%Gx%@>c>Tzf$g^``YP*4Lu>yvA#3u_
zl#k5FAB?#MP?#IxKn>g#zgpBLM-SnG&Ac0_g#{Qq!MsfxuwL;bq7Jz%EkHkePB^uI
zgl~O%<rF}vTM`cP5S+x0pno!@{ziivR8?X6E`pT1hGK+;wX$ZWl`(fyqahcA_Wi21
zX>?-!>5sWE0T!Q@jC(!nR3^RBu3JoR`g?&BieP+fM`DE3?9~W|ILMHfT!}L6g%@G3
z{^@7HVi|s7k+jGpPtUL+*s41+e#R|SBWKJp$z}4N*ixUic-%e%Nad|0!#Qr?(LFw8
zS>2-1w-nb%=7Mx_j4&Zf`w18M%?qAKdRS3^k26fb;)?_SNG5>a%4^>X(X9D93!aLi
zTopcVmym6_WW=)3BH)E(43bOF5_wD7+A`8c)(XVUO%{$NZCe)rcJsb&C{SZ}qIn2?
zrE{KE>>tt|X3g6Qy+Z{_>>yZfOD^<!K$E%Hqp+Tm-xdEmK32eSQa#RMJT%-pCM&_K
zMH%Hs!5wNur-(<wAV89~{ObO#5yzaghgq}x!}{oe=bY|=v73Xcq1_{aGVS<%oSJ_C
zB>A)~w;fQYOw3p}cU4Yr?T(;FTA9V3htN`%b@ZZ72#mIG(*gT(yq$_eDARRf1)r0q
z9aXE*(4#otAfK7DKHd`J`eBZdTX|Dpp^1N_$!o>k4@q}dl&O&F+DF;F_~qp5R2c8L
zWAMlxQ&u=BXuGH;fnCszaJ$6M-g3cA+9LhkFi<n$xG)SKB$_KSRUx5O`by8L>cdXJ
zzGjKOeGE%z>QVCSdT?8^EL~i`FKC4E%PjTX?&DS+BC3z)2{RY$5wRJ6faNbqj<%24
z6=O;O%IfwC#^?-Y|4N}dW#5p}5AH-%p4u-N6kDA|+av9;9A=&M`PBm2N<TLfN1fE`
z)-bu8m#Lf~caT1Fu3_}Go*}(7Uqwz;1z;uTpl7)?hJeN)go{sL#7Wm?uQgkIybu5$
zRbSj9HUSzPSNH?sEOBT)$x*^Nu8Im28f&kQkKJ}1<1dKkWW2_|j4!bSmfnMz4)Y>z
z3ou6S5g*4PPCfR9humF}Zjf<*-cm-t*<0jZXi!(Kh_F_1Cq-$&WGI;A0$x(X#c6)@
zGP!Vd*Wh2eVsG9$d_Ma&+MXt~Fa5u|x5V9sQMMe-?LfVL5T7_4X#KrO&YOpkoWXzD
zOQfN(ID`Z4O*Y;tbVgy)jE_ORRFRfq-Z9eU>rrrdqtF!%Oh1h8h!}7~6A3HPNOj~N
z8|-GEJES&gdBdPHilsDYlU@G>*}k-=Qo|21t@yu92`3In(g$vSOU%0_y8uDqUw3?!
GkpC}}N@>CX

diff --git a/reference/plot-6.png b/reference/plot-6.png
index 2e10087b9867fd09f2828d07a0a0d3ff9821ff7e..c264b4e8ca1afef7976df88c64914b63d5ffe458 100644
GIT binary patch
literal 38474
zcmeFZXH-*L_&126azz0fR*FjR8U&=PfDk}HdPjwzfPnNGP*IU0CDc$A0~mUbKp-}1
zC=wt@2Wf@?5kiqb$n1FU|6Ma5X3fmkS?^hk7LuKPp7JZtIS^%Jpv}R4o}Gn-g#)Ui
zY0ScMFp!0X^}#=fz$2rn?|y?XhaTu@Yl5%f*w$za2VV|9(XsMjVd0Hre(Z~%TZOT(
zTx5Z2-ZTx&S{e_?G99EdR=1WUkLa=Glk={LvEMqH_fOt$t;47DG%F+y$weQ#8xj3r
z-vx2al3z07m)LbpV;@yW{3CkeyBX?Wg%P(EX{D->x-&DDdG1wxz)E(*k@AI^tMS9x
zA%^wtD^0nITReyV?&p7h`ri=%5xD5Jr6cYYSdW}bm|w0LtnnUPxc8OD#=^pF?NKMe
z3=s-yWSnw<FsFpl6D&9V@MuHvN5$SgmK!fqla`sq|Mxhd@$}4p--?Uv$Nu-N5%l=f
z!GFJhsvCWi2)=y^&(8VxW%hr6$9>nx*a8X{^h+AJZG4hUT}H_3(aKTWi00IqE?RhF
zuXkL6?<+HN3uq*i-Euoz+9eUCP`axDl{Bn*ipoKhAqH%WIiL=@!FLI#pvt_2EJ>FS
zC=<cKq#A3&4q{IjeI<%^Eos1kuu3ex;cVxbupWh~M>y+_WN4m4pGX+6BWxpR9ZP2}
z2sMe26rs7|wWFQo`pb=1c5cCueq-i@KH|=O#Cg3U3ACv*j&41FHb|SWAKF-LG^ww<
zaJ5^F^Y01Tav%;Xy*LrLv1WPO0xAKYZL|_j|J4$S(0zcNs4Ez%nD-KQi%0R@4U$i&
zxo*JwP^W0IGOo^1P%0|PbCwK)`h}(@>b`;PzwP0d_5KMjB>>smEm`lWAwn7nc&Lop
z{v>p#xr^&mW$JrP!jJ2C#A{*cIX`N8TQ?^O(|+KX0LR@2WF^7s-EBVdYyh2&C-t2s
zA=|4nxZ~2eO1$5lt*hBll!t$}Y83Ux{O7(4GW%ZGLVJZ18Kcqsr)b|UEwdqtI%)<s
zjESD5yXSSp*V3Kiux~081W1VohCWLpPuC#*lg;YVl=d#3tkJ#pDO2Z$T=q`cByAS2
z+8z+2XVsChU^IV<%Y_y4Y|N768Gkh#vTq^*<p*iAP>DJanB5tB#xlI+()dF!0_<nH
z!Pb`S-|c*u9TBgex`}1E6{nBya>83miuLC66tYl4kt=-I)M~ByRjQmCS>aQ@2jZ|=
zQ}XkTC!ty1#^^efyBgU-v>z7H@2e2T8cdo9pbv;RtdusD``N9{(tF;GL6H2{$9#Qt
zE+9zW7p<$9yP1n-yw}m<`t8iz0W)`qsr;9q+;0fSKKZkI4yxUGz|6<VdYbPtI!V96
zHL7iwA=)njt5TAvY#TL9I2;z__gWv9qD_-rNW9)JgYeDyS`#nmmtd+j@AbzV0{3fO
zi$g7{kyAfJ!k%NpcmzmQ0~SIBzLZ9Lv!r4BY~BKg%cRv)Y3G(zk<thA=5&<g3`X$0
zY7BisaGI};lXaSZ%7D@I25<7PXK<(Djo@Vc@E)Xb>MIplFMW$-IM3ghncgGUgvXR~
zKuY_6x?Cm+BQLs2ZaD3iFp$DK>$-}aWa&tBk@^#h-@OEt;_38u{p^NQtL*GdB*_M7
zW^HRgShYAR=6e$l=X|Vv<UVVJ88Nr7Bw*1$)b|!T>$QGqMuPYvHHJ6I+{n*sOHb`D
zATK&%{T5q2W4e7;8tus@cbxCtD4bKpYuFjjU5ZrtxN$#A0{!FC_&H9Oo`eC5iAJHI
zp-T)iFG4}pK}z~{*tYxUOthoY_|EnJa-OySGTtPaA;-BLDcE#z;bIG`G>Ok!XXf;j
zolrkQdc-*G+9jw+n~rQdY%hn?uaO}1#>N4K^V6A`tK4z2qZs+?%vY{kj!J8<MqoX5
z53CcKD8Xn$vwF6GncA#7wdT@(Ugy6TM}FNE@}`_<iQkmo@TT3>)OCLv;G3mH<6ss*
z&$s`Ymy^YybgL}MRJH?)^J`ZY?C&j2a)s<Gup~uuH~MASJjLW{D0)OZlk(T;{~^@f
z!s%kJ+@(HxKg{OJGnj75oHVTQ;GA_MN)PtbLYLBfp<K-j_B`C+bA$e73Xcm?BU{=#
zouL)E&2Ml&yGSYdIKmg9*I;@maE9Z_g2Jc&6&RiU@ZbAco<={&`MQuKxSVj<Nk7G<
zZ`fkK4=ytVF%yytNSAjYn5Wg?bTg)}NEsHCL)GW6hc*+1x=(WEGL{ep9<jYeo%J?R
z;q|jZ$Q#pJoc#@L(9Bp{q?)ngwl2Xrt)_UkInG$jZpTCAjv!pJf9rA031oBN_@M>e
z!bVVqda=E0b7Nd9CTMh=pi4Ra8V+tJQl#=S2)35qL;NpX;)zFQCw>yp+{^ulhL5wO
zV?s@7p9y8&P{!z4s&eg=-w{DBU$GelP8V-m!ngCsI^0#0I}RKew>NN^^s_2+lJgY{
zKt!&~+7cR9M<2+7&0uNQoBTU#?)4NbdY3s=e+cUJP4`5$Re1~YO7wH%k08`i4)0O=
zns+Kp9BMB?F%7f1ou{!1Emo)1r2=Jx^b14yK@UTxEX-I~jP7Df{zUL<;ghbJ62hIH
zOUXUxni*IqbUMTt{qQ~h8fJwzuU^U~3SX1UqqY^oyHLmH?L<4|AEM~xdNZBfBR-5V
zb*U*W$oLZ2SYCsWQLgEz6iG4CWkHM1Pi8yZQO{i=r9ID<o+~7kxc*W9;#we*pRLGc
z5`O&`!XhlIN<2@Wub<nUxufI%{7q<{>HJ-vLhWZWidqEnntV|szelMmJ-K!imNDu$
z+QOM@kxc%$I9&ELCQ!=HBtLJtaSN}SjubN}E%7u8v?A*+E?=1>O9w6JWQg^@)F_dL
ziWdcrwn+WX5UY$MMc2i%vON8Vd#)Aq)(u2h;<=??7(`AYiFGJ`0udKQd)$cM?Te3Y
zBYcBp*kF$ILAW3LR!QOKL>?64YYO-X{5eI@feCSNg}Zd2I~JSe8@S{ewbq4h!P?3_
zHT<RJYH!BfS!-k&uXrZ*dcO^=U829uS8JpVh=3Q59oF};uzai1A*4X0I?m${aF->l
zTR`zMC{=+)#vN(u=9*Djl5GKe;SyYHx{j|W(ZwpQ9WTX_BZ*<5q4@~8Sw+!*5<1}u
zIi4kJ56+3YL|2VIfC!T8BVE$0C<;pY0c1x-Z9-rgNkLEPR)O5(xGy`dWqKL<=mkh=
zG-^|At&?~)yW>A#<av9(J$8i8?Otx0V;3XhEA~>o`h=ZXLCgzFlJ2RUHt)il#H>S3
z2>tJ0(P3|R2($Gluf_g#8_=5pXq&oH1l5~w5mEM1uOYA$P3J6{i=2cj*u#tP2L`iJ
zspnt{?KZvd?3H2GtF0Mz1}lDQW0&l(H@jRvqI@nqxtd7->~gF+yb-mno<?gq?{udq
zz0LPB6Z3TTO9g^(!Pb+q*zOgbo{_~6!%o^3j0-Pl7xAZsOxANJ_6MI8XRuxzOt>ap
zzZeJ^hK)pU=CTQ@X1r=ZJqNqU8HYqfw=A;XMC^%@j>BZyZ3Ibg&gKp!T*F`LwybBH
z=JG;rmf>qwr2CEC(O(zf+>P<0u8_}xIPsrXvlp2G`gW74(o9c%g;`ew@j87-`MMzC
z7`mCKr<SIdA>1$iJxsGcQUB?0`7~d{;17;k)Vv35`Nfv~*rQ!$CiBPtT!s#z%3R~@
zy^;P%6b`@M=H}Tr4~g)kOE1eE(OYOHx5z_ri6jBJRI<|{d;ICb8=-EIz2kNDvl9x`
zD9+p=#5FmCX7shmX(|u$V$C=sz{vO^)S-Q;F$}ht-n02X`0`AIdxdtd3KfQ6cd||y
zF6Cl{#53%L7POIuKJDS@dgpQFQPTLkiH(mE^c|1}q|}ZBUan%;p5pccIK#BV30ggr
zhY9sg`d(<CJQ;;B{tm;fW^%1sx6raz2czdYK3n=Gc>A>FwW7$~HNg}`luV*x&RS_u
zvF@UPi({6z$+*^6F}}1RG9DdsNKCfPw_(fcFK<0zsbKx511sNI-(nqy!k8Gf4nb}T
zh;XZZx{z=<FaPqdWHgJX9nw5AY_ZOEhpqgwgU1Pu-vw@y8z#A&2wl6*bKDPy`{&Hl
zl(d?&tfy{g{<?~5A5sMw<DKHr9hs^QtDfEEojX0%{q1V@3NvMb&!o?@uzY%!rzw2h
zbpA?{t#E>pR1{>seLcWBOOtQ-G-90%8V_r{thRd@o!KS7`BNLYXP!;VFMafLxiL&K
zW#B7}Mu*tRJB^&;qMm}%1{}jM?MGYZ2d}~E4*DQbH`V6DwF#8D3Hpnq&L{eX-b~!O
z`xm!ZKW9SX3(McgPTE7yv>#yn?7l#H2z{uxDCA<Xf1~(Or_=LLUO_4Si|}_{jz0|G
z9}2z>A*^+*k3Vd_g`A@)F3ah1l<$=B1GZpW6-2htWL=u{o5sdOD6D7p#7Sq7{B}Q)
zqNE2fwU5^=oQ-N7X1cawQG1X{!>FS6HeaPp5cFf06h^s0>?@8Y1-)n}-B7wM{C3E;
zz@hCtB!0^yrAAkHYAXj7FXX;yMGTdooQ6Cbo$RdXQq`aLTIhz{L})?c?}V5BiQlle
zJ=rc9pn+_@YM5}Yq&T~awr3_RT5T-MQgg#O+esp@VWMcX1JRRq_<?+4(E5%YR7Qtp
zG!gLvjp%?66^G*w$Ymcoy%Ub`m#9Cz9QG#Z@TTIb@;@Uokex4{f_8#v3~Cc1wUh=8
z)^I+ird*N!rd5j4xx~5vRnjitcDn;D7HX0vS>^jrRr>Pwb9*tv{QveaI)1Rq4!|r6
z&y`zZT`}Z=b;l6!BM*!BzYjClx$%IRv%kj;A+7)A#{PZe|I=p#LIB-}f+A9NM#Nl-
zQNxH=dP)PA#`_Vvf*ZQw+$PeZByVVLr=%w|c4)z>*lyEw-hEL!4y791H2&V9v1Ge?
z`gk#CAq>46$d`(Cz@3^)>sl*lkmgQo3Zu2Ar?#)D3;6I1L|t{S!SeD~Hp`@1<!)^m
zMaq;0^~T9M<Sn3e+%GTgq9V5ics=v2q^o=CbZD9cI0Wx7m?0xdAxqIVYT6nGlB^sI
zb;Xlw?40eeQY6CbhHoZ!2v?xFR`?oS0v&O_0KN1UH6!>Y@miZMMvrirT;0k?&VIcL
zA%9HS2!EC}6a?AX`|Oe06--KBj^+^*@082TopCGZs&r75HDhIAxgJ=PQe$l_+C%1q
z*57quINu?sylW^R_(bEn^s3Aom(X3K1M#<`arEV(NUNgvPWz=VLA$Fh*%V@&7Kb2O
z+d|b?beW!(Q+e)JM}2DJE^o<p+jV_@0ZN;WOk{A*^gBMi(jc~vT}fR*;)Fl1gYdIb
z$1+4tYQ|Y?iV$~ia#59<_U7NIZS$=S7d?5~0@Z+$c?fAxrK=pUkl{k<*CrHA)yH#_
zBQ#w7-?IsW6m%YFX~@6Qt6v?T(s^u3^%yZgtKOOF6IxqQpqhXz+V?@SYB1vv3+E{j
zd`*q(CDH{X(R{<n!^lT)Fr~gD#Eg)QpgHBIqAe^4Fyf>(Uefd8&p~<R!CQxhM+0Lv
z$2TkO3!UCShkO=MHmbU$=l3K@fTTd2B%35SK=7H14W^nNWRb+V@PXiP$)3<&(Y>o{
ziEWURiA7Y?G8DN4r(o^E=+)Sc$JdBXO1V^^Xy(H=p>nYOb6*8ZYvyH=sKM4w-9Cw5
z*CkX2v>~N1nS{gh3pRL!NHv#anw9#Ixv^W)qAocoXT&`IfTOpQwYOo#UXB1&!%`f-
zXGJJQ#HE<xi?qwk_I!vcGCHpOo(G+D3byFBP_vTI#IO>|lBEFk>$ZbaGY)i60*Z#v
zg@tK_ThHId-w{D-n{pk<o|}MF*K$sr#<Im+aH?CC7%qDqBM<Sj%~_6iYX4k^4I3se
zRG*rKVJ5PFLgL4x`#dcU882G@E?86Xi%#iHgV-H?;q*M+V^Ms}nELTLHFy=7GPEt$
zj)zJiJ-BWmq`lG?^k3SH&bOtjea+YlJm2Y0txMUg50n+Yn0Oi+wY1Zb?wk^G>lOY^
ze&@jRts9n;DU}DyoviOfIyHRU#{#XHI{4H{Mbf7lt4kP!l*WyPq6ZF~7Ju$a+#!|_
z_YV*B2RkGTT7RteOqlF-m4YnXv$4l5ZBRYf*Uq~)sUx0a31TS=XmaTmPB*xh))<L8
zB)wf*Ie{0Xi`c^?Uh}fEnFT9$$#w?g^a?2BkNh#b7WkT;JFsDorKgJ>hfxQOf+Ukk
zxE&dGha}eP?O>4e^xLe&nAT@MMCZw_HkT)n?KkBY+g0RkM12ITL|tBt?Wo1-JJ=AU
zAPUQkPJAM7)@_hPwMng6b@NI#H^uJGp%sZ$o@Hgr=-jqj^yD2j35J|^b3*OVoZj7B
zHkfsq%0-vTFRUY2iT+zf(UA=Rp(XvBH+j>4eL1_aT6L#bui@^zmt)AioJvS320H+Y
zP4Q3bdQa$2-o8MaAnv3=XZvnD-?$v|sqiw=eERDw&$S{6k~Nf(O5%G^2%b3fi1Dnf
z!G?0giSN>~5cSWRIaIylfW~6bhljFI4E{00jyacVL^<-zhwDs#ZYY8_=n~q@N0!;u
zdt7_Bl+&tYYq6_~gfVfSRQ;_(Ax?bga7$;p;MZQr$OxXNU$3;GBy~7#?D?BSvPedn
z`+a<x%T4Qo*-eJ8-e8a}WOQ1eOi^&!oKq-au+^igaSqGU=fq=jOSdfP$1Uy#I?ym0
zv^mI*cHEbnE2hc3hUkqwz5Ol{(V9Ie*`?PaN*U^X%|pTlh8Kjq)$R;!m`R3}Ga!CV
zN$oU)g$9EbZ)GTIVjq$`mj<Jeq*K>RyEaHxP-2_8G}X~4?#qxPU<jR0huPKrGrC0U
z4B}r6$N#dEIk_G!cclXZiJxpefedpqRchq=%2UskY%WaNy1SjT0tp8u9M;hk^GdTb
zMgNABpwDNX<t<_j#|Xn~__){NZt2+0l}2d;8uTu;ZM0yhJ?LJJlsD%iC?UmbaV;8h
zQZp)aiT3&cHSop?z6x?X;~l%Y2OpW6cMQXCN0B1=MP9owH}*wZo1p5oxZQS^wB%i$
zeE5)d55qZjJ3~1+w`0z)Sno`l(hr%!djTq8X;(!_htsz8V9&WKKT0`b-H)Rq<tQcB
zsj$YFSEkv8f+S;!++G1S@<Vu?K@a?ieB6hx9MaUFlql)*f<7x%xbpYB(w=0$X1U%V
zF-c{<oy6_ws|AA=*I5Fb_6I#I0_WM2vfBJ!t#9vyYHk6UCT_m>Z=7cW;DtVRB8_7n
zcGm=rDNpso=RHUsQFl`(!OHz?!8-GiwjjiUk6w3ancYQfe>-yMmD7GZUT%+lgEyxy
z(0aLdUMWK8z|xH8*|3g3xFeJ3aw*euZtzCI<PBwb<Js+8r#m5o_v^>@W1~_t3xA9L
zPSXwz`}k#F-unm10q?rBf_)_7pX!sN{MolG{xp2`J{tX@*Akh^qev`n)>ls+(#{8c
zqMqzB2;=hhP1cVoPe4U+`YGy7!&e?7Gi^ewl<+l6hdXMn-N8(XVkJGKI<kMzEy5&D
zN*0S%OWs7%?^U2O^9W<^`C_Rq%fm*~?p`1CC9>5uyBvh_;?&y@m@oTzU^d0-3by<{
zEc6rCTOfAErkF)56XygJ#4Xs#t)$&s1EH2MJd_uYYu|oQJAj{EYb}mx%Eg%d3FPQJ
zu;oxm5F#K3DUd_lYR(q;P%g9TMW5HG4t9QlzMGFRuvpA)-)(DZ91sb0tXQ;?A#|Ej
z7;{+-ZxPs3uiA7~;z4sagq&a4B~O(&xo_emcbR92l7C$K%IS)*&lwA^PNgo-9z*(=
z>dZsaEb04);@cZv#$!(=MzeTcUg%6KaS>?|6F^d38p_KN^?UgBjkvUp>=nQ4C2wWB
zY9VXN3UOi7DemD;!zByn?=451!mjAO6ez8#Ly4+`!FB`!PF)Mao|}1n=IEFJ)zZ2q
zgPrReL8{ePneN=e`DxJfPu{juWP@t)Zw~Wojj;5778`?o6Ha(3qw61tx94w#<ZpzR
zq$aN(fIW|`^eCX7;(To<NcrjB4~vFJ5bUSj`QZKLTJv{167+8<r=B+-f#l=V>(s@u
zyn3~i_sG6-fd?ptQO~|@OM}|^NwI~wc;e-}xOj2@i_Ta%`r_ICrOd`*Zx3#Gv0Sei
z=bV9;sDgL1rTTNH;Gprv6NWio+EBS|1}Cjr@3IfcnzKk~PoEBN$}1Sgf4qKM35WN@
zAbee)J*@6M>HoHEnY$@I|MI6yK<l&3+~cm_`SiO;kzyT>i^H{Mk8jhU!s)Zb+S@2!
zwm>(DG2`D#kwFILe<BYnB$aHp=2twn;Xu-bt2RO^^(#6^+L*@&0#6QaB`I12pIet0
z{x<_ndp?Lba&{nDd7M0Q1T&ZVz@b{mgfczCXt-!sB!Mk&Q4-mIz5P3z42xiEGg_y>
zP(y|<nWQH<V(`-Q{5T&2Yg6fYYk7~=qGO%oe9XA`yR<G2Epb7cl`ZzI?agQU7>-h*
zCgH8NA6dy_yN_%lKe&i=j;)tixblZLnoNhC5Rk%56uU6m!s65Fk?GR?O0ubT5Ct2>
zwV^ZKmxDETd6VnUc?XxqCpOn_gnfvtDiYn*xD~D_6Mik^M(G{E%eSu1SMH!=)mqmC
z=^D=2d-gr7Cf(H&0<44n76-K;<6PgwK?VZy)OuUjlm=U3n%K+v%i||Ss$%6}4fu-w
zZ|8p$*$PjIE>BX>qbzP=X$(s;Jfdw|Xv<NMn|`$wQAACqfBUw7S-oQ3iA+DQDAUG=
z<kuhRc>J~Yct2-~Z)R7R@|BKY;o_pMp!^(t#+P^@WG?(@u%h${vBv04j=1>_l`3Ai
zbhUf!;)w*8xlFOBm7Rc2Mm-_MG~2Kr4o_LyaHx4~OF@O$g-q9t86ePG!eqL_UJ){(
zo%%M7EXKli9bD~6IIH|<aKx`{w#9Y)ex_qn?k|X83DMQ~`rE7hLd(HOqMY$sglK-%
z*f|J%R1P>NkK`bgUa<sW<mt2TVf(#pYCXyCY<N4Xc2+|b4JN`$z5ifsr*ByK77H~>
zFLaEVE>+sM5b^e>m5=#YW+`Dye@LNwHfs(DzrKjn{>AELAL59@M4ZWOKkDIElI6J`
z(y^Yc;LxLhul&*00*~euOhA<pL)PULwVaRT0^_KrR7&A0*$%jks`XrH6UXwmJ?K57
zDrzVL3k%9#d{8XyQ*tNC<tk2l+ONXGd2~5pXYKZ)5Ci{58F`O*t)9(1z=ndm4fiO|
z4H|L4&c!=({hpPZ`W^d|U&KKDa^PW3CA;3jpDNs@e=3)L?X?QIlywDI<ox7X|7a_m
zK6=YJcTuqa%$7Y8mVOCscEaz@?Xs??F1W<?M3m3mZWHcnFoyqNzypkb9A~tMNu7Jz
zmmLG6g3NR`*ybF=GRX8m$I?zzmPC`z;P$ogA&V$`h8c>S?ORUPiINOZTBH|r#iKP~
z4blz3+%63ag+nf5%o@T(4;V!qV=6Vt>It$~Q@mFFM)o5^w_lK6kI3HTwgGuXeT;j}
z#Cz=$1Jk0;H$0D)ueNw}KWwxun4?@rX1)uK9uF3!-R|??sFXIaqkFSALwlr_m(=Wi
zoc0S0mRRI$MBAqZE(8>&n%X~yZbRTysBl8U>nMbD>M)l_LeRBlP2o@da;_6<#2p6J
zs?~+Kqs`gR%Fb5wp3PTT?x!ba!@Ya~cAPpIw5M!9U)pYtrm0-OlTFWb)L?hDge#OR
zg)J@bO#9u#Tnru6wmWHcTltL%=8AmdOXA{(-sKIdU+gsxJbw)D6qVLqVZwrc!@Ilc
z9ad?>ayuM@`l&K_XFifsY*WonvcL1r+R)GvA5u-yGnEwFws%RCICYP7I@v`oBpUS+
z5)su(yWhEK@@>*%eEP@u#gDZ{TQ>fZbCCE7^-ENZ*MdzS)(<4_>N-tgguKhvFPkm&
z`#LxXdDAWW$^r;YW$sbZAP-G?#(L0`PCeR5u!cUd)NRgXQYELorhWA`eS+l)%jHi;
zSfaKs|D>$M`3Uv8*R*@TDFN4G|K1DW7;=EbZ#VDd8g(Bd>Uyd$G=yd_RFBous*ij$
zd9hd3+v6S4vY=eKqsBu?fBv$n_B2r=;5v#v9BgPto^$#UPmDL&B^vFk$M7KZS!5G^
z3C-|DVOqMUPQj5E1&~sYo<x$H=UaXLOoiKBZd?;5B(5w7T1;!NG00a8;m8Y^%gE10
zmxp2g378F4sXW`AReF2dcgMlr92uoQNhF}U@T(Bk{@M1UlEmA>XOEi(4lg&~nxx*H
z)J(06+1Sg*tJEWCR^c*lXk+&3efVE>y9Vr~TLpXzhA+m0E9=R&&Z9p{+vIQG(Q643
zhfL9`A7FNIpEAN4#(J#`<U5Y42(@?~%yRX|Pxr&>++<ojkxhy}Jqz~~SrK7w^ro@<
zIhvhuZEBp<Q;iHC)JkZ^3Rwa-6wbXGEHX~E*7d0GH=~q7)C0|uNMBqkx+*6u=FutI
zaAF&DmMh?B&7r3(fHfYa=^r`QVf!JUyfd(z7N)GTX0?BN<XK9!?Yv9L6Eez@{z3Ti
zuy+JR>R_=REvD<&03yg#&0J5svHXV!%vzz;BJkpIo3vk=r$avFKU<r?JZkt6FXG%7
zuPeqQYEw+-kJyqB?0@h}4*4mo$zkl=)%bCxzTQt>{-4MpikRKXovxTc@vD7mh0B>U
zj80V}$6k!-4yK`FeXU_|?k1V8k2D`Dc6xr?pIra8>(fI7?iu!k)$N^hKRur^{d;8I
zm!9AAf77CBV?FScSrf8qHr#I14*Kmv`||78xcA|vI-4qHCOey}q=89)lxE|h3RW}Z
z<Cm!d{R#^dq0$7G?S;*2uS+$jsU8lILDmvj4|7z-QeYLltVnc>sL{|{h;C?J3!$fV
zlX(lTAwT*<o$IqvMHBfD!!E2K)ow(8epgW+O_CkjOPqR`Kfl9zLr5D8o=$8%L>{TF
zL+lm(nM5z2^5~lx6n)7b|HjmA`lgcew{*T<5n_mq;?}fsYjAG)Z-I^u-MX<ICz{x<
zQ2~V*-nrfulHT>yt#66QVeq+b-g_m$zgfTH-Hl;N@9&eyx3_G9C?X1WOLrS*{B9=v
z)95+aZl2*Up{X9x!Q<Y9n}hVO5<^PDIF}(Zn|BLNt%O{iXz;o)AkmK}o1fWf-OfDQ
zzaP;m!K320C?lJynd<d!BP`?V`hIAyO*li*HKQr)fuBHPJBv?D$<~bBf^Lr+apy2(
zfm38N=w9N3t&NPXphbN$yu1rsFgOChXRO<6EndiiaEwgh8gtfv_q6L%Rs?MSj2&$M
zPkYsSO_T3_*!hjQG^xL*_o{cKF1N1ay|Y~@9p^ILeCxDfI}hF3zGgOL0enQ2SJO#P
z_`{zgLdZFPL|L$>@gF4-?tK%f;Cw!7fN{lCKM7KL;1)#cqQPJ@9X*(QSO-WwMOAV7
zWJzy`7F<pF@}vxm?@gU2$_8H}T~XNLs(8PUa@H|p*~2YI74n`iTKZ<OeGEG?*VZ|6
zz%9chJiV0LUIZ<U!E9`sLu&=pdXo-IzdXhF`wQ_i4Xa;}pE53TUk-Wtz1H!$7WR3&
z6IbcN$dyY=8+JC%A@(OzgeT<vMumllDt-_2m1Xjz-@~jue)t{Mb-n20!zj|*L;tQd
zi@bRlrFyr(p<xCVcd~I$&WUD8@8}G9qM4DzZNGA#y*%@2mq1A&v_YsSYo}zpHvo+v
zC91Twru*k@+6{4BUd)iF=3h@;uh~@HTd5>`J7PORZD~mCVYUejEw?Q6lK%{6XN@f#
z(^YwvuxH2mEvX&CcOh~9=u4b}Yv<9bN0=YykH1$5p?|Z!jhPETc;<_ledPLS*=k8u
zB?(Y;`b*YFVb4nkOM6)%;~FaH-%5(Y=7&->drcgy8R|>#%I*kszUC1vZR+y!ZqO&!
zwujv>?hNG*<4LT$XrP!Yw%5#Ocw^dcE8+y%{IZ4c)ANY!zHcjO*oH4VraC+7YdQME
zwL+?wt4m#7Cn<~q$oPjJb8%6L&COrNU3p0F$20}2DIz{)*jC!EUkhj42tqNpV238&
zN5%o^6=*d{vLEV@#`MeC<ZbYY$$qjvvb-~6$cx-?%~jr2`TTSCzJxl4_!HR6-|yac
zy|D)K%CKd|bvNw2DN$tRj^(y{0+q$hUOGC0JwAPDy`lY*JGe1Jv(x>e&-+uxOWMoq
zPSPtH5Cx6IrHjy#A)c3>b=lT#6DJDG`ULQW5}zcX7A<H!F!ewZE-B<?L0VSgW!JdJ
z*``bR7Q+o=y>nxegoE!D^p^I<dt1gm{X!l=E5B;bd{SuPiwp6u@7uX|Ekv!b`MqpC
z*29l9XB>&^*nRtev79yuOaAGZbmRdl@eBS(CoH4C?#YAja$kRB8>jbhTmGn<Y3#Zg
zY(L2ZZ(H<d{JPFwuSukKDDm>`u*x6LM%o=ezK?_~&pmO?<`n~7B77It=za!Mrkw#0
zgj}QFWNhotn^tw%A&I*&-=F?E2<y?WDfBnek5TZUm+&0gmD_w#Ie&F-*M>tuc>uPI
z;#)>`N*g6*Nc9C9t|iRt3(06tPx)<Jr-Iq~r^vVZ#n(b=#=s?WarK1lmgY(gC7I8k
zG@Kd)EX90IV#hlB-A#SV&$J-Ug)SUKng_xl0_Ey&f4?896g)Y#VdL?=Qv?NPn~dIM
zbIb7?2^gPkulXliq}r|yUy^&I6uW%kJf>|m6JN7mGI{ur79?W$Xy0C`IpN$?N|z&C
z0On!sZ|%~YQjf&yOdrSgzpKX{JiBzE>DNUKGbAx0$%!~8jZ95*=sfED^R(|T;eL)b
zB?$@#M8U7nWzszP^J}GV!M@gzHb<Qu&eT(S+Q`qj=GHI|%p&cDe#}h!Zd39F)!b3h
zEu^KrjNf)?SF??z>}&iH_ASOEjIj^9>9-lba{}3b(Ofgl3WFeR75z_dd*FZh*?fC|
zIUhoV<+NY4z*_jm%;^B^JB5c4`wfuy7XLxM&9(^ZG1-j2>OgD9#iux@eHoRxNNw_p
zLWw~PS(a*2XV{Rb;TkobF%J|-|NL%f8tb`_I9w82GcS?iGN^oW`g9Xodglq!Jjt_@
zrxym1A}zEpX=r~Okh9rmkJ|~WTIiIA>{!ooozMN2Zm7G&R0G9MWef<sNg&8!l4Lv7
zA&Iehs*o7G(4jI-{m`}bxKf|>r4VERC|-)TMe&4vP6cS68>hGHpRuqwO|U^G`#tFJ
z{VWNtl#Z-$!uESL@M~kHXfS=OjSn@9@A21SVPShCph>m^)?YV*`J2$*4wcp=Vkx*O
z4!tIWT)8}U=)?iA>cPKPUBLq1xZPfW8x;P3dt7{VqfX*!grVpuS8??HIx=7^a6B#9
zkv{g%DOlr)6f1B`;nN6X4QOe#-G6tXI@u*|+<N~1d>!lm_O3z@d6xF{I9_G@l+4VX
zFKcu7Vr@fme_^lU=X+1A)1>XnUgr?=v|=)g%u8uw4SwXJf;>JUA)#l7PYTy4?fsdN
zasN><-DFl|inPwxO+j;<zxI*xXC@xEJ`qB3w=p(8p`&G$VpV96UB-SWqJO1<T*hgy
zW{44pyZ&?j-j(ai$cH&DD+;AH+10fwq~xxKPV;)UpZ@KyG`IYS>bu^`g`<37f2N7q
z$^m@VU=`f_{Cu-ft?M98&V}Igcxz=`<|DbRQR(q;Rlct8`JV0JyL~;|EW4LJ#ju+1
zY%Z4{0q@Ee`uj6+xa<hajo`iQ1un*7ae468(lE8Q&V6(xF2~;9KF7q~p6}?(TRV2S
z`sr7uDc}s{dXy>HXB|Yx#Q}6Tr|SB5+{BZw99z=1A1fG!>hyu48gK>3#l>Y%%BHTy
z_T!WLjK25UlXkc;dRtrUIUnDuIWy-?`Bhrbp~aK>HMSU~hi*XxF{EEgskg+4zs^vt
zQ$zXPljB1YBQ))n)08ZGQ`2M{Bcm&{)(f84g&3LUKe**ljDnPeM6oeA-1-adXm{tT
zhkwcrm<VdS+QuU*tR%ItyY%7FLMY4Lv8k4Q#U&+OoTqr!ajpArXk7_j|8)s*&Fkm4
z;jn(rvsdo<fCbW|Ei0y$Je#)*Zs+-(m38jwOSARv_{OX3e+_L`Ol$>_T>0Fq&e)9}
zZw%m)mXhMFap^BO;t;Z2OYTwK8hfa#r&k;co*rw17i3{8^R?6SeiO}l6YE3k5XlW~
z;ZooIE_U|lX~t@N_^#Xi`_pqREiDnzF)?iLt?_^}U}35N+tIVXF&dnTP8z<}AX8Hg
z|K2Fe8OnU$=?n6Ye|;~rYm8U+Tda{yRN32IP{;jA!|l%HywixxQT3d_o}m{wR5?LQ
zy=Gd+g`sVHAxn+ag<ghDSXfxltje47awE$3K0WPbJ#;iMV4)|Q-!^P}u5f;K_QeS_
z<=Ikkd2_HaA!)cQlHbFxEEdm-I^VVr8y#T4n9uZd4c!>DXcBVy^5Sp+C%;;#-|YJH
z=g)uY$u#+n=cm~>^q`OSY;&_sa@?4^0i^m<)&VmMJHIc_4<1p<7sr9_INd}8#l;u=
z>s<)Fpoy`!)0>ELE32O`)x`5(eef+@JD#uU;pgWEAA<7;y8Zt4o6y0TFGpmslBd|`
z2GAxC=?`<^n~b%!HCxZ0uEY{6dB@h+fRm-5NzvXb^$R(5u7gDaCMgcp&fUb`3^_OR
zD`(evzsCj`<f?}FpM<g>*grR9AF`aGx!9)2&$9b2=8%(ZsdcS=S9f=|byM(0VZ74f
zhvNa0@PLrQAOW^TON@uzU>Kd2J^c1&#Ey@TkHZJM#!Xa?Y6vHIx?h-6hDc7}&vwwL
z?sJ_f<3c15B)$tr4;2oV7u?C5NL+y(cp5zgHr5DEyID!jti0Z5AxHWCmlytF<Vuhs
zEVqQYFBjOBg{@ahK$Ns0XtobN3qAZVZoT`&%BAuoHn)aMEG=#T4a|q|U9KHcyFj_!
z8>8qmKcKuZV8Uj-AT&fBNtLoGngyMI47@cQ<R~saGc_gUV39?+n&R1`20IJtjN$9S
zv~N)-ZTR5peM18!R@A7mv9U9YL*)#k-W*l7?rdd@hdB9yA$FgIuCDHWkhj6ZcQWOh
zBoq_^TtU_3EDfOhQ)F<v-bs0Rz_VvzANJ<FDA!7paj<W)D7O#);DFoH*lf5?E~ySX
z<Mt^h&~H=useV!2!^@+BYa@?9e74~`n{@csR~(dX5bu!>ci($e5(1lE>B`|o+hd&K
z_LaNP?e&-&zy0R?Ali>i92)v?cLsg$%AW__8FKud{RQ0{0=HwYdjRD6thrX3zxKm#
z#+OIXTa{1h<m6$tDy^8)gTdhZ%XQ`y;hRgtXL_>~tKUsF1S%GuIdg_hNDS1GV8b27
z1)m<aDK4qNL@(ulmB%8`kj*7@gZEtLO2C+x_Li7QLFnejkb_}t*yC2d4~}3VcLr#*
z$*Pd8720ME6AyC03+n*@QFi9i9PA$ktT@=)m$e&AX}mMKc#2(XuQ!Zq>aCHvxw#gC
zufD0cXjVAj4*ky&e68=C%t%uRhVrSax>s$~7{SiY-u!wmXRA1XGNE@`+V%&d6f>d3
zY_XW8f=ng9#p9ckAY?X)`n-Z9EVYL$3u<0MK;1{VoR`^0%D%sTd)>c(KNnP!UkE8b
zZ6ZE}GTV_9|D*b$VUu;OtNZ!uPo{)-s0ak&1|Y1x8ebB@K9PEco141}Bz<Z&$xv;<
zFr3!^HC}!1&ll4H1wPC^i#pFqzQ>cz^indYkV%g1mGQ>n)2B~wp1bzQDED&&n|jL9
zJ*jfs9<7hrP@kGYw)QBk^&dWbn0liy@p0+3K-@2N(8PE9;yDVvpP-#Eg~@;9E6d;5
zhtoISM{-<{uRx(tx4+fU%e;1NHS&!wkG9`|v^|}y2`dxAcXsY~AE~Lo50Y*tK%J;{
zvxqP&HkY#mymlC$DwVm(<et=aIoG0iI|XT0$?ayo_~a<c3)XSK)ZRj3mZ}cg_Wm~s
z+i>+|?vzvXJdm;3?K|YTtS|yp#J!HeckR)4%HBqKxX^%cx{n%Qh>6uB?2whOT<S}A
zt*w<Fjn=s@fN0FTUmPsnq5~v}qfFu$lxzYP0GI_6ie>=x-(H$%3VGt?wfgpqec*I&
zt=rIq5#S>7&ls7#2vthO{jbDVx86~$F&<4f5KMf!`p)Q=%1$jv)u?P`7Py(zc6TSW
z;qkp<l>NawC-`PG0aAO4K>;LLBbTap!gp6Q1zna$YMUE!L?tC33qyl~f*Lcfxfmn#
zd2h#_^%{#kCtFrxoZngYmzrSsRJ-{(to-926&N8>x5A`KVM&SP{FJVt>V~NUREgRp
z>kzZM8!Ov$wt`s&ii(Ob3;UqCZy+DGrr^APftuWL1gtR0`SR8?CbqSrO$z1p%-|;n
z%N=kxK{2Qo=%$E=cr<MgD{a7ez5Vzx@OucQDZsDTy!5nwt{Q#O2_H!9R*)$*FCEz|
z%nhRzFv$`GYHMmCCuHRnpn<YcW=hrIv{--ZHZ-DZQ@=$%=<jO)x)v<thKJ39MD}pK
zytP1I?>AJ??p;_oFP>uD^ai1LXt!X)M@lhl_m8|Av4q4_RjON);f!VV-QQnZ^7Hc}
z{Fi=s?E$)ltgqo^atA;bO2eorknp9}q+iX<GKtWta5a-#>6ai`cyzDl^oOkfTGgY@
zcc0NC*mySic`?yWjR~$`6LsSVAwAb1shEGO<oJ|U>&D`s+rukoj}8JJUdnJQv)XAn
z;}FYvC?Z6i_Uk=W-gAPd8fKZT<VP&Gt@j?A`W&G!zp#+DFgN#7`s37djwInb!8(Xk
zNh^W^?c2G34s;5MDJUqAPIIt4{YKxyG2F$V+Pr?rGxx;p>GKM>VPPncTeb2YW54R>
z`sTYc$$G|Mae1X~*(Xz<7%`!?BVpP8BQ6g|si0w1|9m@X7@L4nm<XI{g(eBZCxD0>
zx9@S&cy)AJO<f)LXsFDNqrfnC;@WNA;!yg=P@yh?H(+cPP2V1=bt`V#S!rCb$&Jre
z30iwDd?zFMK*VPw@DhxSJ@$_$uafT{BLqO_jkb1`B(&#c^K$!a_3*vjeTa3Cs7e1`
z)vZvoa{DF%7K=5aOf+Gn9h!H`-&{~IXpl3za(1loQD0tWBquM;jwwgL$2Kg@Zu9HU
zmKaZtLlG@Db&p*X0Xv#^q|ONUEhCHEjX}@5gPy<O1E8&}*s9tYX`*_v{*~@aQ;+vf
zanGCx!S$)O758o)fhz4RRWq)-4t(H_<n_1oVrHnss=5SV_Gk`#bJ%bXsIJf@g-Lz>
zMti|38Q7xoKIF_sR`b2j&kt+!1<i&FqCbB8*b~Vg7C4c9)p2E!kdL1%GArK1{N;Nf
zVcjt**Z)!n?>>7cyPG#}dI6kJKMY#soUAj?X}28p-Dxh_2jkeR@V#xa5cTXDZG#L~
ze{g_B2iKjczz_aj!n#IOSH8SG_4><~FLP}6L8C8x5|@y`SMqDcg}%J?j$tRGy7|Mg
zR1XNrI+uRu375j`O`np`tRA<|_pS_JJSUNeYc2%TL?4NXCysz_-U8A)GFszO-L|)j
zF3eHVMF0_0>(!Nhb@H1yH4&T{6ak9o$9;e!gT`QnuAif_Eedr7z9bqi-MAF_iv*Uw
z7W(IRxS+`^K|jg_-64_O?mwHTy%)TQE^HQuGRe<Szm7*C%A?oRJqZXRdO!YY<Z#0)
z-8p&P`LjC0rDs5n_p}h^Wwyg#3>yL=@TK6y_U2?X<$zP%kWVnEd0n8_sGrn97RZK5
zB$Nf{-tG6Qr6A<Qv3j50Wn$^5tc3&IPXVK{gi~CI<bBM9<?m<2Akt@#h86sdKe7+X
zAjdx*EHaDKvA&R9U{YvsH5}fJ#~(Sk|Jj<6XmWMPmIrNf-&6KSpz^j6ra+-N2;6Hs
zF&sGwGN|Iv_9I@$bF{8Bv0tUUX>(*0F;T~$099iKa<Ma(EM@!gw+<9A=3rEPeSKSp
zQtr!Jmv)>98(4pGDW)d`^ooo_&7(fjD8@7Vo&WL(<47t1Jor;Vj&qRN?smu#a0sF`
zA~|!F2b%z$+xU2U>*DcvpEHt{MvQiW__2g&8m$%}?^hwTV_RGtT!>kiWG0wu#v}*=
zU?IB|x)f%4cPdbtcgl!mcB8`RTPiwEAqB3PSx>$k&Z#r0D|=^L&%{9ll-%Nu8L#`Z
zy^uR;W@-7O5#*(mwoan@Gxq3dxqd{eOu$|ii*mV-kZS%-I!+Fq0|EOXZ4^a1(A2i!
z(=X2$q+Ns0w7v-fdf9btm)e`VPAbgJxeLr*7U=(WfY3+dR|;)^W>HMHB9^nbK3%Z>
zeR-x6kEenUpHhn}RsDX2+6MsiFaG(*=HfA(U{h0;8#Gh2F)SYS;?Sd*(?L1yy}esJ
zDx@EkGr=8`jyZsHcCtglfYEF~)LVhtFSZ6MDZiwoBzlNy%|sdn_Yq$gKy)kgtw{#1
z@54eD(u4wt#5FrJv+?0<d*Y5t&qp97tr4ccO*)J%X6EKP2tomNY)?Mg>>v)616?+h
zjAELo#(ovRZTdy(no!rVkE_y!E<n?c3;h**Nskp*1*=p|YVQCGYqFFd_kXG9g9i_`
z<bpQ#vupIv-oVS?c+{A}OQvzD>hK16D7-R=I*(xzM0W1(<NtGfMUelN`zwHQ<Jcgo
z{hwd&<M)!2l1zl5z~wpMEU7*{0sdFAsrv#oj@Ucdik@1OMEfxZ8f-De9yV|98F+8)
zIY^FXJQ;b#aUl%nK3eAtngyL^DkP{i@xc$!TjY@M89U#;5n!qH5ILYri2>t&Lj=vv
za;xfjY3O3#`!)%m`K}<bL>1|VUwO!xws^`Fzr}%SO4HWFEocL%E&~J#Xu95LzQG1i
z%F06M4<Fj)&Tf*+al{m6=w^pZi9_)~`K%<PN^LMoo5df2yg;$ifh>AI^Uuvp1<x{R
z==S#ZC_<|32yRr?Y*bLB@ByY@=YJr<0<hG`_VB}8IvgkpnXU}E;^`d<E__y-AMU#g
zO0)6JIobIiNZE%yd%fX%)RJ5kS@=?cUP1Fo&eQqI0WK{Lx%x`EKXa?Y4JhD@Wb7Jz
zkxhU=_S}Zb-1*)3dbWEw3w+dAJjFLtE+y<g9*<)AbTc0`@TibWtIeb<t)v#(B)|8l
zArgcS=_tV=0#v1y7*xW%M5iIXor!9Gf?_f<o{_nUl}Fgwqn8uO{J<XJPrBE7k9oC~
zrl7ujxz(n|I&)4nczuYemVg&icJ4q3)iOO2KbX9*KpRK}nQGBF3}%*ZBAU17GiS2a
zvXlcn#;dBT#1R7^c#QG-!o21%9<Vl9kOV@kMs&#m4DE=!i=)%PIEdFq3#=9CE`$bE
z#kf<)BeUz#tM8fg82UfK>?YSb0Xd96#KnhQ1w$bu4xoG#KTwEf&u(0-30(cze+H0?
z1LK{?HlOGYlo>={P{TOj?3bh_8!gnkk-6)|kGJ@s?6r^j9u!VCpw_bN0aY&}P8~hu
z$a$(mQN8Yedi>{8GoV3L5j8<n=eE;=EKe?GLSUVCp4ipfojK{EqN0CbpbwiPoJ9aC
zWhhLBnt%vH8>Ek%k$x-))#mZid^cGW&e)mERbBmdvJqGf?ySI{QD=I=oXQo9lghOR
zv}4a!?t&qh)Oek{P4)EGNQOTF1&xExDxyKh4STimDuhgbc}Z`3b0OfTSYcLG6<`W;
z;L)3zO5CuI>Hv%`o<I24CD0$G!%VL{037A!g~Z@Lzo%J+WWPg!Y+xu@>WMFs+qf-k
zD}TO=<Ri4cxiESsSFNc7$g(X`bv4k(zX38IHK@x1o;r&TFb8+n$f&|l;ULp@)4&e1
zC7?J4opMIdChkla=3xN_T8Hw!AmnpYFiC#ct%FZBco&hIi}M4+w#X98%Dhdmcg$C}
zX12~S1R9tUJFt%}6(9{U0PG)%UC=KF*q<4^xkL*2-EW%RAFwiZZWpL0!$g#MsddXz
zb>_cXv+wzta|&?Uy2g^jT`-PIs(v#4Wkg}@iN*r3`xEJ%-k{PqvIV<=#q9+O*g-BO
zi1h~S3J`^NObYaonMFfCDjjjrJioscU($G0l8W-g(d(#y3AKM2^!?Ah0EmXoKmZC#
zdIW&{YQ3H#9^(z}jjOE}C`qW7N6zH*ee{}H1%sHyn$YdF#l(etFu)+HQm|B-q+P>0
z>X!<0^w-3kUc5)FgBF+=C^XFV0V>s^jS}PzGC_e7mWHd@RDh~^s7p{>$f8=81OcqB
zF9h?0avj1i(Alv(idFc{<<SVl-*;j9j+YLht6C1w^9mkg3_Wdllj~^R@(K{#JqQ$Y
z+%yJoY?L@L4+^ei99Wd%p>l_C{i?a-loT_jfNEpr7;0r@^_H1n-~$v$fau48J=g{;
zyCY4!<JItII0rc)9QBdDIU0W$j6t7&o~i*R`Gs|J{(tEu;%l7%m-e0ork4V6N<KRD
zRM7U?+~CdzIe-Y@lj|@T-GCHr_Zc>)+*e<{Yyzeb5n!U_>@MC*0=fEHq`5dfm!$^l
zO#TYIyzijH-ddU?uq$+$mX;R7&9V-Fs(7yoRi7&FJ`y`z>8R}pJr5?2OP1SDdKLiV
zDl-|k2h9Gqn4jos80BHZltcmTFy<u9z7k;fOooD|n%uE}UhIE%BM77_)e}g&GSk$9
zEKi6iXc7V}++|bm4ch|tt880t$TsQw>u%<ZT1YQ7>oQbf+_&E%YW6B{R5HM+!u#73
z1w6&Y#a-3FBYl850<svWB!gi0&SbHj*e6UwCL<~?UbGD`+vgVmboD==Y2t^KT9&c?
zKvR_Az|O*fq<i=k47aibp@256X0I_o6+HA^`cX+@;=)N`gRDR*m`818E+F)zgM5E|
ze>bTWo&)sJRWOV>10>d@H<-vS-;U>lW5&7i+&?|t*V_Yn^mPs8A5z%*^61t}F10^X
zSyV6=P5k8+y}P@chnWa=v&{<<`9j(3T9;of#$s&~Syu%w4~~i=9WVCP*p~?baWQaj
z^=Av+9$1gI1}=WJ-Os?!EN>*0o33u1EQhRSKkZueHjoh$JItJSNJ~mC(WfG~l;*jC
zQ}YC1zXLQqM(8$Q7FBV9_4l*W*!GXWILY*McT4qjbchw-ecx)xH1JP4gwj+R09{F#
zSQ!9pzyRgpuG#3ntX5{<MC*NLBx>~UP<^*zAImv^yc7m24mDI+{YHwKU;W`2Upv+q
z;Q5AG@=8k;U!!LVU%NAdL<e;7l|OLm*=U0=X^jFlQ{D~UmID+bbN;{_4%eqSgl(fh
z@NJa<wzyQ%=$Tg?TN{~bh8wptPT89PO%0368tS<|6Kk=I18!VFfp&LO2eA1Z&~h0}
zM3@L0xT_5Zz{b$Kc<i4+=J55fNY-x}n7mL6!Gx^KPd7K37W~)j0XebK10>RJA`mQP
z|A4K4m2e=Z)9?S9c>vD8D+Lcmd~OQkPpjqNx&Au_U<)UCq?UXE$nB9wo{jzBngM^Y
zMR{`>m@1q*cTWnDyDSFt&veo#!rX<l-N<ukvej$eng}uRY+SCZWJ&=$jK{biAmw~;
zDaMmd+rTXkS1(9_?e*mD(S~q)ZJy0_toPMBz5&rIF`)==Pq;J*hQj0#=EZ|m&^T~g
zumZogk53Hivl}0RHx||TgJu(B0LAXk0^cVcKJ|>PIW~oDA(VN^<o<6lrdCrjH}0gp
zIKX1c3Fx@d5sc<|*^eBNQJ+tD^xwV{{^Ne+cry^<j;CepL$!eJQH?Kn6Ac5@CIuMJ
z%K@nEG<Tpx;~o!bBStWu>R_-7Q)LEF*#k%4gbkN*J-LE@J$d-G%&<?eN*0ytD9_~Y
z`}Z#%`%!MDgnfUIc|q!RrDL0#1a!zDobD3V-we>2gUG}`pq?Lky|)NT0VCAbc>eHb
zf*Zg3zE*DBEpVT}*56>x8h>D(9xeL7Tpq~O|CYbu{P&+_oV)7Op1`jJ=81i5{Gm@K
zm>0Wtpvn)vy}ktePzwO1Kry=w4cAlL+;jem1EkK5BoT#4Y>*Fk$I+#=PKoksuHy|G
z4u5w7tUhzfT{5}E+>5Y&`gd1Ar`kHklg;q(*rWqb4O2+U`zC~Z4B{hw!sb4&a+vb?
z_9ejgK?eoR(oQ9t3cFxX4nn*M@PY4I;E$!)%D~Wh3=})=*EQ9%M_1s#KeM&jf>~m*
ztX26VAbu?(nS~i1ALCCZE;}4KE%`@Vo_v7kwKzUtKMUh}bK)(qyrA`OXZsrjPoX!7
z>-i{e<kOYY(9F`UapJ;D#7eR+_J=tO%i9wlz%-lGg_MoV4qfYzW%8RGv%(Av3|t}(
zahPX^(MTr1>6Mr0D1e$7+zI>s_GS`uSa_z&?#$E;)8XcmEP-vzGpd>DE|C>dy+o=w
zK=4SuW=oJLnw1K1`F!Nxi?m0i0+Te0zjytk6Kp`h&GL+mUm|IfRa1o#&N>;=br=49
z77Mg~xa`x-pZ3r+tz8_H5P_Hge_^4Yb~Lfnn-v0IlTTX@N8Ii>5GX`afs%#Z=s$ef
z|F~5D%6~6s!{j}-V0m4L)c;Kk8^0u*p24q(@QCUx3}Pq$^WQtXz90ML=CBB&%k7q?
z{S2b(zx}ZsYb#`DgJlXMEh1iHPm3V`=bx}#jLQa(n_Rt~k!=BGUjsKUFb|`s{L54S
z1SCGQ#K9@IW5(=p!vFJ%r@C=0p0w_$KaCoQpxT%}As&dJf3M%Nu>3rm2jA)L*1M7`
zj!=tfCl@6T{QFN&z#T~+GEl1QY|d#qu4LJGd4$?fGo4~?c%S#b*P7mX_Sj<TVxJx%
z@@{Tv%KCHEON2a>rbV!a)*}{mT_w@QD5_9x^#9S`djK`neSM<=lp+c$4+7Gxpn`xR
zy{RaO3J6j~+Jp2ih8~K5h*A_mkY1!EK<FJ3v7oew5PA{>AsR{om;@4%+(Uf+|M#6c
z^WC{K_q+Fd-#gzKW=PJ?-e>K#SNW~A%efiR@wRo;8kkIHUzgwFjLuoM3HzOZUo_%U
zw*RyH7MM%6F#U!}f3~PtXLsV4u2G^}PyatP&YkP<_?&v~B7;zHsw(d7>vVyvUvR25
z!0wv#ru*N36=z0PUjII>=1--Vv68)tU7}}y2^eXd{VaE8^zrs#qfzr0(m-*{Gg#`|
zu=E`F&J$uS_sm0#I<*J2EWU-l;b;{+;+pQ4_1mLGjuV7@H!pQsP5pkgi0nh4)*Lb<
z-8@>+%+>)xZcBBujOlP&Aoui<xj;`BoM;ILlf=*eawsd`OJt<izHE}&%Vu%q9<OH4
zs#0Q`#ti!NQ@EdaMZPy;GrxBAz<Ue$t%^%ym48oB$QL0&xOg9HE|9>PJ)v@ie)~dd
z>W{@OhKDtM=I4G6C?H7SVr*W~<85?<eahfxqiXxxCg`rXza<wfh6aL#L31(sF|8YK
zPL3wlT$BEXYsf3-h0|uawpc5eu)M_(dpzB`qO<WbuTjk9V=){Fb$brv@;=iHKRw4=
zdTc&5Rqk0_QAwO2j{&zZ`SH(>34!my3L<K?C(jA=e^&Q7aqM6V=<3zMtE$Hyg>=xF
zfhK+e*DI=OnfaRJns8m|v`uwfP!tYVp^E``KxvR3GGkXrko$Ono$<iMefrN?L82Kt
zp;^S0q-DOv-TN^&k)2|?lS3lAMg|1RPDU5){s+Z1JPrx6w~*8vK1$6mIkbDrDUuVr
z*jcF=tsCV8ejhkKQ+R%NC_ynkBXwfTVCTpQOBME`eDr`HMqqlkbmf-WsxcY7r)z-P
zlCU0UJ<dL`sBV=PAcBj3!LSy}Ua8<j4}96Y*jXDs9~rr@hip<%w0q1KsO|u7s9N8E
zOf}e}_ulReB+>^!?!cvVh68W}z>T6kUAzB5afkox&)t6$SojNE|4n}|-ALdT?R|sJ
zQW+BGq~_ovf;d1it4{renTCNyv}FR#QjHVD8){qV2<?fQ&%vAC7X*Q<zE42=;2lZA
zTbYCiYs?<du{l>r6gUbI@%UchgpV-sqtF;|@`+`q3)+_$jiX>Gs<1WJUld33NNwj&
z9Tip(7YHUh=c>c>i^}cg&)M4*mCp}~@m*LmrRA7(61%N2pT60X5x7aP2%{G|0|Fgc
zc?&7oWizNn`2U{+@jpYH{Cs7tE37)LFl;|lM+Ss>VigLnjjE${5GaP(jh(b%!h7@q
zG#Q<OmV+7kndI)W6v<1e?ueEA@e7TT{=Ut+)9s<FTTd%Q>rV`76o-%PP_)pmVEVUy
z9p3%1=o8_t+=a7}8nZRD1Va7hItyKq*y#-kBIhO1*xJV}GiTp(7v^|Bbmtv`2U=l8
z%-5sNpmm_cY&~Wn8h>e~);R=>BKRNi+6ir3mD+7JM)EeYGcs*?34w35q<S6MVw!_-
z1Tgv+x=?;_TWzQpr@uM#aj3;Tbo45wkFBdK9=lpU+q*@FG5FI2FWG&u12cD+JUR9j
zzBO_DK@)#eKlm62al^h&DQfdjD#CYYK~17;e12PGc3yt>xlV?YfC2=^1ReP#t<}43
zS{t^LR62GqFCyze$fFghQ6Ja!zx;V;Bch^ddzwKprCOy^<9FO^I$j!6Xl@hoHfgdJ
zINQ~G4qA4@J#HeakOinXhtpv}ZwiF?!BVXuNx%~EZD_{6H+7dMT<9;G>$L<@&Vn~f
zIq<E9VNL{T%g(M9?%%>g%2?A3)B%<RL#~rkV19q^Wu_4l(3#8G^lHN9>zU!#k8C*|
zVpiwRqOEHI#k1)uIP`}BA>^X%tzfjUcPcJ;XyN3L#<$t$sfcDUeT~ox#R!ej3J5S*
zbV1P(P{5;3nAG+QEs8!4%(A35obCDb3;wHPS#XRN?KfplE-4K4C<IT;$k)JY<}IV6
zJr!xIA+K3HARpOI*zh(1zVdsM*h+ACz4qjm;xdFqE?bNc+hOgv*z`pIT#BKNpl?k`
zuo_g-r0p2A^JDiS4cEwhxakf^2`x9tOD8-k`W7sMBPI#+OQ7QSqM%*`+SljVE6SQ5
zh2NrY$ysE!n2uXc{v|&Bw*q6Lbd{SM`PmOb?F7^C`K&jx0)8l86MHa!-D2D4>5cA4
z=bZuc{ER0R8s(zP%-m)?*W6%sgya=QztYQrUSW^z?Og#e27if+gt^%X-M`;m5pE5>
z*NAR2g;P-Y`}cJk!$0p(k_lXBV}x3$F&S$7i!F?k4S<J<OoaAX_^&NpX3Qom@W9|O
zzsiF9jHpIAN9J!cFWst?oweh;PpPZ1dDp3dy@#m?A3aon@NY!7TSnhud^IDi__qiW
z9ZhE0PD|;ST&NnV6UJj*VeM`;VP!4pj73>T+W>l#fUbdsSVh})mrUJs+-(xXLELv=
z86i1zS`zY{E$bk=OYDN=|K85#e};`?o0$Kx)BWSmY6%L)n@^CwGL`Sf>svJ=(8fLu
zX_nIVV4<1MYi^E?!Re+JyL#mNBc70FsaF3**Vev=AOoP5hY!Ky(A>!f6BZLS9ek>Z
zF<IoT1VWY2MAyUzvQ5f_rAT#0l5uclM;&b$P;lceC@p=r0Rd}AyY5JIijPpVg^nNE
zxEk4Njc8{#8Ss$YLl}nnJ$SVWld|b{L8sJ3aypDJ_@a4oYMQhhD%9*gMy&2>w&~`F
zu0{4I0n>)w=x%w83f+HYK}|}#SW}OKXrWN4NzV|{a^~rJQmYl<G9j(r1`EH;iLJVS
z2V9|*_pJb<HK+1>oy$Ii5er4xg8{S>*QO7~2d@&|&g8cf98^EXdc&8$#&XG8QjL(E
zCjqCPmNn>qH}nd*iQp&;?K?smkEXw9iLN%+W4@+R2Z%k701dqbhm7sT1QRK&*S~i{
zA}b5S=!oi$6yIO|(X8IJV7wi?Bc+TEEJhnk+ZhzM#&Cm>0VbN8$x<8Miub|dx%2rb
zRzfWe7v(l<bpOGDT`_jL!|Aa5KjsSG{~0U(Iq2kn$q$<GqIiTe7hd8y|7#m|EazmW
zF<wUrf^`pg01JNsdR<)psAJ3($>n`mp{#Fga0%)g-1mRCKdZLpm{%|!E4(G%s`VZ|
z3}s`kx7##mW_XN)=!uT5>WPlS^Z#MXxMzP1b%n5s784q06EJt=b~6u=4=vZJF$;+x
ze?;4&-z9{(TT*Ka8cDNh)~&fXc4IabRh(Gh@Qds;oTE-<xH0%T*uxnsjP8WFTMGit
zc$VOdHk2i>sdqBWJ~ziGPguVTgDk7#4-EBUpw<s|vmO92xbWuTUZSx>L`GQWxOUW+
ztJ1i?*bi7%wM0g&^=@^j^a&^?PjGi-$tO$en6WE?w0bQ#h$;LF@4Zv)>y>m}hw4A_
z*Xcx-IJ7*Uv7&kfn{~|8wy`5yC;pssbKQ@eyWEHBpC9?;UaQd(;v5M}3KyHIC9I?A
zP;Y363Z35R7RAa&H?u9FkILP>U92W0UGPx7wPLb#*V1Gd|HAX>0u!i%27)nfwzOKy
zY@<a(BP70Wb;I=FQJueZ{n?#CmhamqqF7C_^-g7M_io`k!^+mMgzNl$4j0T6?S@1w
z(sFRj?K7KE(D2zDJl3omG8BX}*9mG^+pQkseE#Gd<C{t!_S?|$#r7e}55{wXBTUgY
zn>wEqKIL@;*!JFOmmQQvNEDGmv~_^N2m*8H>bi)6M6?6AlP`ijg4~xZk#rQ=aoC@F
zKWHTY?A!=>;C;l(!6v_63Ev45G#(qU+Wg4B5Z#`jVR}y#Q9|n>2=SvZcNk9Oh6H?p
zl2Hh|FLmYnLIp4J`zrbzF{vegce7L5@d1-}+VzJhWe_K_w-C8r7~}06`TqQ1dw}zf
zi(wVHI$<3#6JW@$-csi-q&MD-P8;-(fQjeUtYOwD3dtehA9|a6`4^}FL;`4N7OA!?
z--N=wbJX_qI7LN&0}v2!IT_9j#)OQ-3PWZsLmkO60QwlB9CKLyk+43(^b=4>Mzwvk
z9gQ#{e@ODiy3dF2)~Q>#Elgq#U#)@TJ_H$(CNL5tT__E6a&SA5Fo0hWf<apEcn7MG
z3}t@#L83~+?V5o|Lc~fChP`m*{B8r2BS41{wYl&6Tn>1q;b#x+1d@}txAvk7Eu`&~
z@vWU2bKQ>QwAMSzSpEe>4)h&3)S5h-<du(=pTp>x>9E_VFYow#v~?xgl66rU*F(!C
zsCqB$w7Q9uz-)QDmU+R!mU^wEEmt858$R#%klWLxR)f`P`lj$2A3(O`Pm`YZiAZ35
z^-=L2qF^8aU|aHM0;_hdEnrv@it}#ys6W&@H+26`w#nxTOdwQ5QGrsN39gUyujz69
zzFq?pv9h)%Ru|ypyC8mzbyU8gUaUAY%{nV&lOoImHEe=#v2!C%`Q_7bAt!?^aUG;B
zGR*72s~wZZ%+_f0{1(zq*yha3ysoA7M4008(mx@wq|ZqXBCIpaE+JQ5H_Ersm(TA@
zEx~F?L8c`XOY|$s8tLlLgoWQER}+GlwTbftL#SSj-+dGBUB)0iR1cGMOH2hrMRX#$
zR2;1t2yu1)YxErZ8><Ou9T*C>b{7&1?%&xm%t`1VR$=c$9-Yo-J7T-(bFCh2T~l7T
zEGxJNe)VibTR3rtt*HTnK&!PFkruD$=7{2@kroe+s2$}YcEmn+1}KyAEL$!169^Ub
z>yq3h12papJ%4mOqF#ypP39tCV;I-K>@PMILRJ{|Cy@Bbe-aC07Iv4a!NFt=v<CW1
zUjWu$zJlFO%&I#fhKjR5+=EcKQ6hiB^y<+JyGuI(WHn#yS+?Dq6TRL1nCgJu6p?at
z&}j{K0Yku{CBV^(z=fOzEEx5CvZJ+5!?d26FZ;o%P5^aM%}Pv4d?)+HEj55ZYQlP_
z?4O(h(hLxChYlrObu;5XHU5UiP*F!dRhU=^?cRtf-8Hq{3F{~SbB&&QTFv$r!m2f=
zQh{Bq)d?EYO3;GpLDwu8E?{PSGn;2NE~sl@=1kXk4L*%%-`(8N5e^}*gU7>mt})p4
zd?EnT=xD#H)4S;o*s`B4?7MYN{pW!r=YVVS+TEJD?xBBk6z~ziDnoYLPWk`CG)In?
zAhy}0R>~&dI^PcCm5<kPG5Y6uT6cN6DlA!LH0FT<#Xo~$Q*o9H+X!p5cE4@&r_Xju
zXsIq)3;4=X0Cg2DV(o6pBeIlliRla<?hVp&!1zV6Sq@12zEEj19VgwWXmSxj1ucv&
zP6)HMAl4Sx>pWu42Eh_7rSmJ<ZX-t08DMPg5n$SfQnQe!c8Na(=I~PZPhO_)LBDX9
zTG%S!2<~leo#ux`-evc`dIlKNcK(IsaS5$1B?obmLxWP(?`z%c!WCYCb!rO9f^d!C
zkG)$NDt$*3krYx=IGa0@hXC3X?L~>UK`SK*>u<bMSM5b{UL|a&4+@TNc3v@H+y!GJ
zBfY@n-g;|mM^$OPHrm(T`pqMso?lV28=zXCyZ|fer-eX_vaRSO)}-3O783yg#s)!a
zM>G3Qf<a7;KhUja^sA)>6yYuxRu5jFCC!Q?XQ5?tYOs)z-Y)CgWBj99a8395oYpsO
zyRpg)svD*Vz*@NgJmEMR21NdKWMeTB_Qx%lnxb~pEi#1=HKgz<_&Pa<unAK>veX?~
z;*gCMw9*^BBo|s}4>2Sc@Oc5ftmDdinANDo0@frDR8>D-*Q4ID4;kqM@SM^MKv1In
zS}wK{3cOP#YZa=oR{2;TIEH^>aC=P`yv*J5`aRlE21>3^A^;@S>90(8cM74j7nDtB
zxlPmqiS7k^>HwLhUM`fHR-gqm)`%CNeaK5<=wbpK%9^aG-TH$>Bmp*0EKCy&ms-2g
zDMMCI*e0fqBUg;1pjlUv#?G_V`Q8p3sXn_>+w%bZN6nHSpgD*bsJq%s&v!J;_fK2$
zu*s6|ZwVvlG;6_o@A}xM^GzO6m7Bv@Vk!Wq+L`P7rEXl$$NUdwndxod!j3}WH3gRW
z5%CMes;Cy)0-^sj^$!U(@+aqXifKE9UuYpe=ix>u4yM}{pC-5~Jas2;i;)WKA-Bkb
zgk+UI1^Dp2(48(mJ+?9<Qy=vP79d)u_Kq@pI+|#|bkptdfO-6LE`Z7`gFz?;k{euo
z+x5F`fo$qVgu4nySN`@ituX-*!aPA^h=T5pTBu=5V!$PFzEIpfVAoN59QrxF^?7RR
zS#~|$#*{r>`18p)3&sO-zZdS*pNxH-LSH8jF&9d;q|5$fGbYBR?qv-1Ny2)Fr9TYo
z2r&fDoXuf(a!z^X1~Q_PFaSf?hOVulZvp5l%UTfU^vC>-d!9VLk^-PZMffnZz`?#f
zV8<H@#IcsB>S5hsDK>fPkAZE{5!cC&38`p(n4XP#a5#AsU556CcK^GBN@&%6iBL5Q
z+?{+Yh&LIVu;AF_##9@|vs<XUGB7Dir4h=|cniFxVzof+o6SyiGuqKY#7g#jF`MBr
zzP?i;S0k*+aX{eQX9af*+Ua#WPLze>?mzrzH2Z<k%w2&wm;qTy6SB~d6-|M%{=@hm
z#A`QM4FH(aXj3b93&&acKhifRx@!BqPuHf~ElR7D)*(z`Ges%SvU*M@9R_o>1+(oL
z=;YM7KM6=s-;MvrnO`pyRD7<or+HdOn)T_NIGY76QXIr_O1c*@QvQ!k)lK-vfOEU<
zC2nBW)ral(&!K7sYBZSeJ~MWtBAOQyvaLHdG$SvOb}NlETgyjalONacC(Vv5s-DAW
z^FY%i7BoWaM5EhGaV6}BO}+y%<sp{f3b&a{J3i$3ap|!&;?k<*nkK}1Ie3}CpX>IK
z>OMp?oOJj*g#6SknwkIO06G)q$64v-C?|an2rLa$r)F}x>w&a7()}2a<%+P-bA<Sl
zpQA%8S+yOZnZ}Z(jx{}j?A)=xm>(@~^%Bd%zK$Rh1MPv*MuFg&(^@qm==U6uIs=>(
zVV59%at1*Ss^@vcrw2|;B2+-dttX~C7=GaJM&X*i<t{f^sGj<j8rRNSXdM%svLI8P
zu-%BcM?aB9AAr|v7m80FUNZ;d@0zUWwqnE(w@G>mogMGNbT`Di6T4j9+P|kO7oUP|
zM@QF2J&I!aq8D-)=LlAm{%zlVij@Uc_F87$W%N%$D1s+GzmcH&daWPA(?Koljzar_
z3`vz*g;OXUQUT1*<?ihEBI|39eoG!;WNhGPDHg5_0Si4V3_RSl5lO8XY6(#HOn|W2
z%>^K$Pg+p=ZnBd68%R8fR6~#NDzK9_Cl;+?!?@jO*~J=L`THUZMjP^S_i187Q3(+a
zA^}nqeuu0B*vv10Mp^&ZWV=m?1W=&2x&^}v5c6q56G0J%f%&lK#U`isblD9ULKUGs
z^;3JN*jB=Cq`*=QS)l>svB>>|V!1W8Nto;femP;7oAAeh8b0_}ko#XLI{)`<(*ME?
z!M|u2+vVcHo+cW$JWPKs2v2Q&Q*^`!98wk4py|8o(GitV5WqPpCB1^-twS8ZCv#U;
z(T%Y8a%)_mIpxEo1}U5^Wc7mz@j{@^<g)?`$P6^sCYE1_#OWiFR$b6Rkg=LuNBdh6
z9Rq>nVc|<42^D&i+~7ss(_C;L;!1Ae^Ll61+DaG+(QTB)GOB@O?js%nNkXRsbuEY0
z&M|p}VwE4hhS9?Fr2(0s-1+&et|rFBeY>7Q4p7`d;Q134(b{G;hJ!>wV++BSu890#
zm{i2@sueKrva0o{(xH{00J3?~?Vg8SMa&iNN_iwH#L=n|;Jy>DLIWG%|2LiS`u`va
z`L9Q?&3iT`+<9j`6U;UM)p@||$+9jQZf$Lm2x|q*M1ItMmD*Ze)!p+;K_IQ{n2=2%
zOi3loz-CZ|5tqqbgbjj`9D$8}L^EPSf+8X0ol*&$9pegFd^?Y=*UP7F-|u+^&63yd
zc^hs4n2?aFp0W<FsFfM0-XNZ><TgB4<~JbM)f`1vH{9qXre)(D>Ni3Nw9_hDw{Ww0
z$ZC@|%WliC*&Tgg1?1SM#4I4tP7byg)1U-Aw8Gl7+ON8&U9)M0d*WA9IbXhMP7zxS
zUc`hbYd>(_(M!EZ3?L^HoErHXAo|U48g<hJ_InhqEL$6fN@DLGN2Z<x97K@Fr->RD
zrZVg<l<40gOY9+>tx^5aT}|`YjrwJQY$*K;8<T>N>}iv@K6O?AnG5Zk>pMcy8S4F7
z(c1BXny@+Zm%|;MnyHUVyL87a%w2UD2$|{)C2FEH?(4ME8n+iJEK#|2vb)7j;s;3z
zIISa}T6Lam3RtGWnZe90Ll`RqCAM3vBrAWvN9}wvF+3TMwXwJ94r6Xj88-^DG2HH?
za2D|Z{{m_TxlIQQDpuK8Yqu6M_&Cs=Rv`7&{O+hUT*@4>wKc;Y#+K(gFh3`rwrbjw
z?NC<WSbIxH5v_P(jcv^*kL<d*Hd<Vgm;Kbr-|P?^)Z($*B1kmzzkq$q_^(XEu6QcN
zqo6$<p4fw-Uw5L2|4K^<0d`IAt`2}SsJZOm2(+TUn`aM0^T2i|!qN$`=<B-^(}1){
z8Y2h7yIlX7eJ;$a+zqBcD>nbzw6SsH|MmQehc);i80HlMuA^Nee<6_e(b<(+)H#St
zGnP7S;g85$1P;SD^cF%I6j6!2BY7|UPufxmKwZl)sE9SbI*7TwITH=lHD_EVZ&a_a
zjZ^~<(QV3-;YN1HJZy`AfVX#;H->8+tQgLJQn;5N_YQ4z5x(%JDZ&cOFbK`&Dg5^)
zLh2@6XbFXbhXZqaooZo!lY?#%MR&(@a${H1vIvGEQhJ?J=di5C@Cfp{E@U9#{U#n~
z#^{Y?M&DOw#-TA;qij`I+6PP)Gw2EHiq@zq0V$UheYB~iqD|<UR$3!Fv~UX8ol_j_
z-D>Z%U9Rve{$n7xR&BvtT1bY-rz}bL8acn>wT9hra2Fj^Z!;uiDx1$b?5y3QzZbmU
zvkN6Zz4s2;XNySe-jJSAaaOcL3)2OBes*O!MB1_#=`fi!w`Gk-68NZX7<PJ1l60cO
zD-K?q#TpQ1Fcv3FW{1X`h+jWB7^Q7fteZnnl;}f{-_s0nO`;-mEnQ)&HCi=L&2H3k
zVrAxQm?NDLJ@G}>kJT(VaUW3+*PrNKD8c?7bKh;|_m=_q*5IquIeW#OMHBU3Z<9Kw
z!Uce1C7uk^C+S#(i-SI00XNB##M0#uQ)_pb0rP$>1^RSV3YZ4W0ncc_i{)x(zlITk
z&7eOW9Vit-A&q2-X+(WtBE=Chlp1zm6+tM4`NbOVPJc7dHTVULq$79379!PD$}r!B
zOd|9MP3(O5Kz{u_UxojH>e2rFg#12rsxGlR%0=&|;7W<hn-DTnyfd7Ya?8hkKx2I3
z>w5*}WNO5L8Y=OpJ^K5yfW#~q6Dvs$c@)@4EL>h6Cisa&|D>I6X*^v+Rr$R}_)3=6
z3+U~{B1(I*?5*q@huewO!>qZ}(sqAq*?kLl)F;;XX>WajMEJG+_~uG!MBksOaQM09
zfwhHv?~!X|<+giQ0}U~~aK&6aCezOFVsWToZP1z)3_i;mfx%!|6C>k|*om)+urx_v
zY3SXMN$;PR$vxm<i2D%dV66kO72)gL4X_F(CkU+eq)SqcYT9(WqmAn{T3F^;X!<Kc
z;O6>Xw4S744c(HZEzP15<kCvV>(z^CD{dU*zXV#DF+S+E@gWX|$vW0e?{;<H7j*lr
z6<4{A+KwNhONDnaZbsccmLk^6_BnxngHfj`4Z@IW+Sdz%dYzh(-6ClphX0<mDqZ)a
zZlCLg9*p8EXi1oI7BJgDE_P#$kGq64PJA_?wTC)3!qLlMIyY?<mUREyN(3|fHluNa
z*Kc3JI9<-kU6p>X>DB#l+UT_Xkb}OKC&#$)JK%V7{R%bu8xPs`u6sl+!%k?#CHho&
zh5FcvN)z__qgGE!bYuPxs2lvG6DJP4k~{vLAU(4sGTV(_KH>$Tp2DzwX25e3KgzO(
z+TKS0+F`9vN2yS3-5r-`FzjDbCrz)SgncssghK{qXB-(0WSSpVcI|Sb<A6qY$6fMQ
z!g4O7W4MGLhPdzWCqpYAejDtf2JgjuUUeeJ5BW*#8ig3mQW|PV!6#7u-5Qfnkz+r{
zwq8XI*WW`|d|TjaB34xI;Jw?OsxxrvtD)LydI6z?K*Uq&*5CdlTXtLd?|va!6WDIU
zTjuCQDON#{+mn}lyd}p@91C5nI`;I;vy%qE=NC_}CHy$of4beP7A|~<eD0>j>k-~0
z?9(eRw?JHn9zT1!)i!^?IWq2q5bsmX6N+Xs+Dn0J(w!0Hwen6FG{V{%Or|zk!K;FX
zYr8`j9UZiZh+ty+DWm`RdwcH<tb@y3zXntQ(%!2MQWu>(Nuv)V6@$jfkLC!6=<C6A
zjFW42Eg2WQa(S#c`#4eD!FykGB0xQY_xIiB+==?_XL?&~ox=uHz~A*(=#e`9y4L}z
z_S})cmi7E0ju}q+!M`^zIibdhuR*OKSj_Vnxfq^(<A}V2g{84^_w*bEBl*-t+I(lZ
z&e*<LKfBzO*EDwF96hi4s#srBMu5F8NWIRIst~_PXpNtkvgVukRd`A({o!qz25!%m
z>D<T&F_?2a+1CF}|I?8|4*Xv~-=mS6`!WjO8s+H+#ZOFMKo%ok#ek71NVQl+E*yuH
z1Via&rlx`MK-GY5V$KWeEU{9VA7giz5t~hT^c|Drob<c5%u6M?<lVHT9E*A?@Rj~w
z7ld7;jWx{sc%2llK7L_I<eqCDqwBTxKNXCB@MAnVe1c0+3QjN6O5K6SHX{f4$GQ)<
z>6H#s?-DmFs<$%04pzs($^F{0F!N6r?C%y06A$XfOrYNuZZ^`!Ix*Sc*EPwa-3^!X
zpCemeNg9W{7V1YF;)XX6dc3;cpRpu}s+_M-*p%?P>0ocQOP_u_ame^H>^LMjCu5gb
zv}a7nKz&-dM3u|$YgZrJo>Gm@oKx>N|CGz*&>$pBM_*XGl2Li10UOn&V%VK1TuF>1
z<R-rsE|fW4TIFJ4H3+l#bU}DKripi!%O{_dZJzTZh&fi7npm<bbAYszGEyx-I--;4
zU{y3+zMr&|WH$Pc&@fyqvxs*6P-&#0l0n7JW^^6>)(3oPKBY2khHQ<Y9_)G6AV=bz
zOU#IV7iBQ^>H6vBmsbg*AN@P1LT<J``deO85_KBi<*o!Wo+Dj8>1CL|O+}R>yGMEu
zAO~KbD^F2ZVLi$}Q&F`G(l^hhax0vQ{EAB>X)Ba&M#7JsGV%VYThRSvto<~GOIFVZ
z-Q8qK4Aze1#$50elzVe=o(t_TV}47rwBc`uvWuy|HshBEi;=1En-%srnRs|wA@;7L
zJ#IjToTpf(d}~E97Hwt^mYzF*(qJ7#>~RH0UhUURw4!7ngw*RTqdV7(V=*zWV$)=_
z%g3NyEhhRV_EwQO8P*l40581G;Je$6!c^X-nZ0`GWt3xttJvYExR<I5$XBIYOgUUC
z{0Q-8P3P^3`CNJB$}NL6PZa~5#CgFF2#~6{xhhk7Q89IVXnHbl4UWoJd%H4I`cUu0
zDQ`yJkxaVq@%CJ+>+{Nkr)qsIjf6`Z2(Y+|sZ}B4sG^C5OQLGJtAfcBLfiu7o-u0h
z6BnN0P*1vXYDO=&<WCMtcxTyP7Y+65xLB({T5z}T*$4O68w4Ay=#ZDmfsfc+_Y3eR
z>zi3J__6e{Gp>$x(qian+0kuojho5A&nRCSZ?MjqZL6hy?K_teE?_UU8e;J-xEuod
zF8EVoK!>YezBmF>=d5hE#K#BeTv1LZHysU|e^vJDi^nt3Oj}3EjKJIL$IuIh(YBdp
z3yt1Qju8}VA)e6V(aCOsF(Mm%_-3<qI$!(u>KkE_URO;pa{iHSXW?s^vIdQLclCRy
zOSZ!>=dPWyUmDFf$K%!HjNYw}P$FVeEWr<Y*HT(GB{u(VV!%E?s$lB2_cBX&L`qii
zGHU~GA&S#dO;Olaydl5$ZfQ7|&mI$xRW2<|6YchHej%&dr~ppR5#79)>IrFrIF@L_
zF5Zkh!W*){9V!yw@=XeDD&#0~b}<PhK}!9JZym`$sbb$BRGFj!#%>KhbjbhD)D_!q
zKQB+_>M~dUEknjzqhIdZIkM&F9bxE{cHA`!1W$`%dfDbf-y}R<T!`02t;B2EN%^uK
zTz=zjI8*q=3@<!Fkrr7q>;931ss=<==94!0!YaRZM>B(nBpx2KEi;?nM8shDq*GBh
zu%$H5`Q;O3+UsGQ`4b0_vIB(M#$}p`IXQRnDJXe7I_&RD0|1e1w&lJ?c=W3y<y7AH
zASpGga1KOOouZ|BK|re`ui6uJfyrmX7@I6Ey3mnETn)KX?SfVyEvl*8G<8GqSqt^n
zY?cu{&V&A#!<CZU0tX01MNn!s?V}t2gV2u`&L8aQ3BO44uff%DF&`vHp|6i@t?)(`
zHA5~P7cf@q*Lbwg`SoT#@?Niey(!4>u%FfFsjzt=1cJpAU>%03DzlgvFJBr1WE&O+
zE)X5MXQI;|v01%{HXa6cwsU2)mk(Ezb`%!2tr;DaHPAYQwGdI3qH^}h5QuM6juxsJ
z&@s2E`x6`zze&Q$`u*dWhjRj&ee0DRiweb)(~d!p`aDMKBkrYit$+FUgWPNWv9g**
za2j(7*Z3|lvu@wA(AVnuY1`tG?q)okp>TLj2@6Z|CLKvK>*6NX_1&A>Q|@0>RM@qy
zkvY5`T}SRL1DuI9ucL6!E2V)A<44>Va*r)GH=or2`($hlUUiTh5HBsqkDbNl<`!6I
zy+K^ksCfO>;Oz2aN!)7i`R~i-qh7P3I-KgcO#hbWNN_y3xEx)%K9!>+RN77Snsd@r
z&RdG{jcNUAba|oeyd+{-NX^iOS`FDRyZ>zGxpS>EFCNx+mO`YI!`0;Op3=3=$w@9x
zHWMSG->Cy{#EXNYrHh%;qz%#2x^S<|?l>kFkFogN`J<&>TwSYuQ)R!yA3pnl&#Ro3
z<0BfkUewl=e$cULa3jLk*W3i7Y7&`KVBIPV81^8-Ux05x!3G8$0m-^$zK{Wa7X`K;
z{^DD%=~cg=S+J(nA`p?s?~`6WAf#dvX>!cbXIgsyLSe-PD`Lec%k)CzkqNNbl>NhT
zY213qQ6Af8A7pRceKnGC;aq8trYJu93FPv<Q-jH2uKmMSMIMnYWy%4hJPy|!Rixb|
zgFX%-hrqG@P4b?rjeA1no!!t!J5XgJ<Qh-SzmibyB@OV?v!rvV2&StTdECC=+xyi+
zLW|jgGJhD@ZbVc?qXIzZv%kAK26xJ;c3qK)n8=Do2kv0VZ3}-(gOriw62_YBsh=|k
zdkC65KHSxNqC_+8KK>pW6s1aNN`=1oZuEsOK9}nQBDY1oJIw^AC_{fDihJIV&-V;)
zZ!*QWAN_sqXra9EZG*dgXMp7jFE+B5cpEK4R;xl@D)D<A6;1){23V78f7~U{nAYlv
zj~C|#%rM^B!}Qd@Qc$ub8>?`E=-fIhf=qmnkC=1HKxoVS2~zrROySe93BaL_DTPP6
zorXUdak<2=L9QeYH3B|n*fA#?7>bjbf$y+cYahI(0hh8`0+Hej7Bvs%XghZ<y8p9I
zjlr`ZkD#l)VPg3Y2&z}j8}7meb<MP>DI++eTrS;f6~sbW$C4<|CKQLpOp;LBkijn>
z;LI`8*Z;-<my%qjbJyTVlhJ#{rJwMpYc>!k?^p16_JW9~hKqrPxshMAKHuR1in<>m
z)a(aIv8#fHuKvy)ZtJfD1ys&fNCCz*-MT_OF(>aX^%b={%xZ%W^=ZiQ4@d#1*VTgt
z<scqUs@_bV&y@tQ$aa3|hPS~_mrNOQdGy1v;fY&5vSnc%?uz!8nPPU*$rLS3!)?Q_
z`A<#WC(Z`~&gJYE4}xf>*e3M$Mz%@XbeO)8?^{)`$d<RtqG6#1Q=Zau`9C!Nf*Wa_
zSBpI=tGm9z88)1Tr8b;5{OK<Ycys_frHL2Xeul}0N#=aY3(wXDSp33TP}zj}EhFz<
z`cXyl-iYUwJ>;=y;|gtqq>+y!x;#r~^n8Ky;EV~zEITu;ip)uqbGLr#3hG|3zox^y
z6KRmT(RqE*|IFB^SF$)D8#e&is9edmcK+7)$Z2fc9q3bL;C#@HCS15?2!4%fBXNgf
znUq?3`;~4Y_OE8JdD80Ji++&;sT9Z=yzV+V0>$ZTSymlX3D}lrTbFd;1;4=_(+>&q
zVQkytE+!l8dDY~+k@9i!Ui#b09>LR<Z~=f+>k>%8o6<=C6CEX?YI4d+Y79vLJxQHz
ze$_AYC|ZXk@r;FHIgBt{f1F|ERPIFVYf<q$JO9dc`qjwTg`8`HvNg|KG|zYud(&r*
zPPDBj@q`*e^6~&2Y4K6xx1d>sqC$I3VA)gD>k(!cPv}DP#bsTj-IB&we4eIdWKN#7
zDNXZ|uLf9Zm&`nC`~?%{#Z^EDhmtb@9h@7l?6L2whARMs+K%Xk0gfkW?SXfW8`^l@
znDw|a1w9tw<aKxMo+d*lcZAlNvDSPvMA|&KU~K~1XyD;*ZvIhr;F2r=S1(m%o0?np
z{f@01x-0t?TWS8G;ulw!WuE>3pITzhlXn9d>+Q#(?lZ{^1HW_=30>Fp-{9{EJtSnT
zdwMz8e*}BvJS22&bg8MSz=yr_vTl?{0<UK8FuHcdV#hTn2!L;A&nix?KV}$jox3%2
z=7Of`H2%sHxQ3c3bub>bi{1JoM+;A$+6YYVxfm#Zwx)<4xAG=AOC6yFU5<$V(Nw5r
zxae2WBmKa<&pq4I7!U@J^b3U<(A2Zc@P!kkCcY+(XXoaFght8XuoDK|j_-PMY1mmM
zaAayKp+l*(R=KnR*5}da0|Ws8Xsbvy71|^iIVP5$uK?c084)zPLFfW>s$2zdFK=FL
zJcc+}Obql@!%Pg4%!u;&I1X7(yAdPoYc3S1wwP{A4Xe`BJ-(2qp9u1ojeIecw>G(A
z81lG>H&W(G^gx3OhBd=l+XL2pR=4KRIqV%PJ1X{9=zfg!6OmXwqpyBq{ZCO!quI&j
zsUvS)bor{%eyR7S7#1Ax;gT;6lFT_ds}dpIfv`f{Xv>92^7O;Phbw-`cvrbRy7YbR
zH;<58h2K^DY_{zEzBCTMa=OIsdjVgUB?o!%eU}?q)kN&mP8go+=Op2Hm#==h09`iz
zD6_7ayOh_Fymje3T;ZgFaevi7xWAvdgU**7*Q3DbcmdqQh?X(b&$u&ksbkHyy*;Kk
z38IqYjs69O`LAj&4i~$8md+jElRmtBu0UAn%#k=LyZu#a1=|_qwx{6&npeWs&(fz=
zjsC<v8MJJZa+bH}`xu-eXUIX_Q{!fqsO?L@8%9${lK#?596rDJ`P-RgiSQE`$F$+_
zNX=E})0UKFpXne%!~E#mu8w3;!0;(-cDJ7m1B+eoGB>F?`i63rWNv?cb@S=@-`f#b
zwdRGARZ~vyzF!^*=AVA<yLvI)bhw3;L%LEw+^?O;J;mE~NIma`#qH-&^`gH;mk!U}
zak4jPZ{&l&|2WdAZB{j}p9<+$SCl>On%oa)dcS7*mG+<8@v+cOL%@XRY~@v`ehKn8
zPr~u3p>mE?0ixyndaXudI#QgBO8mPDRb2jK%(rTO^g~yNulWSQbEs;@oGt!-;%WxQ
zLsgc=nk@hHw~4u2%#h!ki7>*A1CUHo<`AAM`q~y@vNm4ry(6a{Na6G;@er%AzH|2b
zR&L$6BzQ71(_`=V=xl_^mgbb6GDF($6ZrIZ17+ERJq;b{q|DCcSVc~0S)63-X)s-#
zbfA~^NG`UUPdY}*C_A&^=+*_&>0a`VTIO$aFvW8Y$E%!OppTchcV+A5HW?Wb8_m&k
zJ^Q03%#SPhcx2{|`rO`lF&yG_q$TZeZv<0*N#A#A?EM>S!ST0w9V^r&nIGsS#s5fa
z{O1(M|Ni`6m;;2CBcZ%o&S=RI3$4ciQaXDiE)@-)8g6zq(^F8Wmn>7}iF`%M>u#K`
z9UFd)jEkRKxf=+C2VTkBP_1J|>2Aa5N8Hun(g-d;ZiT(Wds2B?<ZM{q#$Aj`n8WEB
zny8OxVQQII(4*n9b`Dn=aBY~0Y1aGL%$ij}i>a4KY3E4}z1uq)JKE=Vb7J2tI=F4*
zx3>0@%r_1M=!{L{X=9Rw96^u%jxzoTshWQI=<js^s>%e`o_|gY^h{bkld{+8!1wL&
z5TF!hIHFOJR^0|jp~_>H3(#QsI||Z0rjSF+dRD~f=nv7k`kGY)yy2uuu-f-<0aD1;
z8;f0ueOo1jn#0uK{e$9dJM6gVoE01)Uv+Y+SDdnpz`>u?<62Lm_G66#xQV~Bd7=_f
zmQtqWK@Nzb`JNl>>W}9+u(FG15PQ@U5*4TFs;dQtm3Tt6B<3v5P{o_T7OVN5+i~K2
z^&KsQ)EnuSR(CX$PZ>cw$w(H5KvGnz4vE0AIB|H~fbso>W)`REUZyO`cCG^1T?2u0
zF=GQ>z1432c2QGJrc<59xPml{v5TSGkqh=!|Ge9`5EBBzajkLrap`ie6qGV1$Kzc(
z_Ox}Q*ACPygi&5BOjV;<;1Qxg5i5nHaHg2ia-}|!o1_-s>__xxKpK-f8m2W4ZC(8S
zDT>-e+u7$778|~i=M75ZaNxRclKp+#2{uIJ!gI*p*>QW!@Zp)gDf=W^f)VvK<v^m2
zfYi5fi8?)!bMHEQ@7k#kznkNOjt>;!BlPC<kzT!<kdpyN1Pj*-U1vAzE7e+=_B_=`
z&1(tX2I$q+d<-ol+Npw*&Q68CeI}g$PMmJjL|l!(QtlAu7YRO#QGU#$6Ln4WvuJt9
zlf}bxCC9<FWf4V$=m)>QXCzZRo41E0`Wp95wxF1~i<7O4w#s<Q4DI6vKNn#-@`ld)
zm8*Ce8-`Sf5O=OQ=E3Ta{xkui-GE|-xs%pzidH-9QT?i;-f17J`ys6@b+R;;_+yeq
z{vDknpxF{OC#_7-2H$}ARt@)^n4kC>Cguw3akIcg%_xlM`hRXuV=FW?Hjq0sq$uK8
zG45X1S)Nc4KIQZD16|D@<4#*2cH?(Lhp9Q2|4h=L*P&ievOu_V0ov5VZW*6GiOm_0
zMA=CUz<3+4@Sqz%zR2F+z~xNwv63coVZ|BR1Q0P$WBQqNsQ^jpM)t3s8`)vo83l+m
zO=PEkVN1*LE}4z-z~LBOs?<zo{M7d_g7%{u`DammCj?RnKzhyxJ&_EZ@z1T;JWBIS
z-C!H#DjDFZ2_)g)6lNlIJEDLCE6C-4YQK~3b(;p~RHeDP)1<3Fax6bhph`|k-c!$y
zqkzX}8X6J?gHx{q?`^jgkC`~c{bnh4@74SBV(HcgJX!uF52+woj<nPJ9}RJ&9joRE
z_qAB-=Kv2Gx^C1yf78H-s_zn4f338o;iKyDTBFyTa~+ATkB^<#a1!cm_zQToyUQ2{
zmU5u=2%jSamw7NvLlggzf;2-WB&#AL9{r|j#Ypn}KAo2TYkv%)6ote8)K#3|lI2P(
z35xrG3EPS;+TW36g}~E;uWDQU9usSg7<l1wBTV<mAyy(%NV(q%GE~{Ym|PsuU6AiQ
z!Im=_k68}vW+?+Vh9`z`hi=*!P@Qn)`u!idP6IhSe!A_K_dHgVqj!QeFmZAWZoS}V
z%qStoM88iiPmgG3^uxl7*Zmt_cQCLvwa!~BzfR1HJ7M%~+=>cMBh?~k7y3cO4G-1;
zu;-J+fkhN)F~i2YC4an(e}}%_dzg#CJz6N-+*<Gsj?<Wnd!(1f81Gz#^jIs0zVJVb
zx#jJHtGG?rtba;01iRKO++S2F6<F=V9?FdN`qvn8f0CTjQJH3)gfI)dVnljVvZsA(
zB<_@l)V-xHuh(m6F27aabbrvq>Zx3jf-s}Pe^a%&EM^QAamq!}*SSOQw&KJG-aj0B
zGZALi-RG9EYX8kCg9BSO!hG)*<Niwxsb#1hGL1mIUU$>;yK3Vf{!*!}Td8Qa-7FXW
zr80;wpJU-l+~aOk$T$dh)@&+{zN16l&bHp^u+1%v%$!KpY?6MSbs_BEGPg@F#J-6o
zOWV;|1QEy0?BG&&WTfQVvsPU9)F$^6Uz<@rvfJs_i3xT$(5ctDM~{S|aL)ut<$ijp
zi`>1(JkPC9cMd$vK%6_LM>u@IF^!;}K9X92OZhw>JFfVO7|NaG-cTze@2vEhVb=NH
zt*?dQYSDv>2^g6e9xdIFrEEtKHZQ=3N~7$v{!OI&IKDl$;FJ-;#Rx6=;*`<3GX+(l
zEK%|xM+BGQ!SRCG`~a@1(7Kb%dtu`pIUwBW{TBO!tbt@_as$<1rrVK@jsNP%%LN=3
z8@H*$x=Ov!%p<lryT>!TVFn>(qh`W$GIvC550LxK9(pMDy-T#OkW=k&L1*+{)x+F(
z;l~C$7#B#6dkHhO&CwCYGp2{fvoY!h(kPi~4TfFs&@^{<xoTOE05e?)rhH4=qa(y%
zN*kU}FImOL{ygU>xUTYRVlOrShe~PcYTsh(fSE)3De`v^{FG6SYJ|azTAEECCH_s?
z`<|Rx@2^L@>gf&7A07BqgF2(-GglVkJFU%lejvB%jp5WP&Z@4*Sv9T2f3O`@!#CZ1
zAXI`B+`E6gEMEMnq;O_CXQ;?`ZcAHAS_|>S?3_>DJIsX8_&Nrp9rs<?vGr+7bWS4^
zcWp-NLB`PLbk*|maprCE<#!O-u%Sv9dLU%M;T1rWEyFJuKnfP_>l2HHwojb*IxjtV
z`3|GmPrFBMYDE;k4c`=anyMUdw38>4%lS24H~z{LYV^(ZNYMb50FJ5l?Q?VDHLEqT
zs0*Rpv+_V5GoCwucbli@c(l*_yPgJA)-Fqqxfa;M2v2$X`nC<8oH7FT*f<!aUos8`
z1wV^oPVs_wgzGH5=~lftFSQQ4g()1|C~Y5iS$-LDuP1Z~!zvracclf6`_|~wODW)q
zJi7MrK<V*Aeh-2LNQZm(k8;IC`!g7)k%jJK^-q+J?KF?0qW9dtwtfW*;k{)5>PjCj
zT2~6(PnEEN&Zv$A_lr$2EW&g@saZv=076v~x<t<D4?k}7Eh8w#I{lRKt5$=V5KflH
zRY|xPgAO7+=mkyr#$U-vd4$rOeMY;-zthvq@cD*)vA<#SL&J=z=lOhcBvsbY(eZ`-
z19@@YWs)wC8pFPEL4c9p<I5yLsoczjom+5UQ+JK0h;mlSKDzBK_wn_GUk(k<FXBp8
zr5AnNEi4Pt);0UJOzSW*PkBE0S3!jUQnYwNPaAz}vf;}+%-B(Q2B)@NcDMT8`o$r7
z!*%a+VH0I;R@<5TXWM+}lC7XJnC?o8T*igX2`cyd-O4_z#mCxve_}f7(zaWA?a5gQ
z(#AN-kR$7b&gag(0SBBZqy*&5J_<Q#gt9K?DiYIrO)t9C$*#1L5IM`cQ`9VpOE#Gb
z2E?zjS_Gg)W0w|l%z02Wccd~6qZpf(a%aLo)4Nj&NwSRsU|HJNPp266O%SQ=abbsJ
z`-fLA&Jhtlj83ho_P@nevljC_=&z8kx%$t83U7YJQsNf{8{E?U1XeK9*c%k%>gjPI
z?qI|uZ94(!x?k#t{l3U<G@QlLl{e42va#+#_vyWjy@Ex1@%Q@B&Bg~5p#7WcawC+5
zPu1S9wdJNA>}?eRaegR3x|#mA<Be?fK$|SdpjWfKFqzpS5UP+5e=bsg!~L?)-hk82
z0W~_jt(R@^)O;k>pfdWK6<74kw8OE;15Ej=E2>HTI-H@0Nt$yL@o%!@+@3i|qN(`(
zg<tFp=&su`q*vpVapX{ZnZR^kYkZyRYRC=ch!8$f8qywFg_Me)%J;Q9=qDO_AYbJX
z;&Od%XN|1<NPy=uUT;s&;Cr4-Jg-_{#L@5MM`yNq(p_-njc%ley_>9yngc3>LfkhM
zK_<^B5qp36-BY`riC+NbK%!j6Rpgdp@U1P@uNW!&*sjt-XyPFEJrTY}Pw8h;&&AU0
zVr1RMaJBAVlizg*HH}8)9q}zxDe7@Gdvl8?BMG8<uCRH3?{TxKE8e{d$M;*{b;>C&
z)Tm4jLxD56s8oeB^^B5wc`uP(q?;9PjYsz&V<(S;d_Zd=xPQdNKQiR!UDJYWd60<V
zV(r_A7u2`9zKdZJvlTU~F*srM+D$&LFveeyo{+TuLhYj4gb96zTthJA#J`|U#8nH*
zkOu9zQ95@3H(&>$-?W{NK^dYyCXh+-wjpXMQ%h;QTn@Gldv+MvzQ(=by~(2!Fa2Nt
zK*hSm6du^3XZ@Uwmm7~t4bKAIz(l?AlbN+4)*g2qKio6TO1UsY(>SgWmby6+Z(G=!
zGC9sYr#@F`r>9q_RNBPInJ%x``IeU!HGa?`5%%!+^7;5h%Ojf-*G^dGr%?|%XdQG@
zQQUtPHkU9$!SlQZ(AXP^xy(~W;0+Lozjvrq_nM9D@AY`wIMy|rg5wE60JOi74Qc1t
z(s7m?QUj1UGxLkU?G%@j&c<VghsT9<3YD_kW0jn?CFgF>U3PNsJ<!fAIb+b9j21b>
zZSQwFqDbDA?%Ek!r@CSk|E55&iMA!&oBr1fC+lTV{`EOne3=-93u|bDb&_-rUP<Fy
zz9DU(E&^Y6H1-qctw+?6H{T&A&bXgVp5gPh(G%J_bG&?Y;%jDnnPm$H7WLq@+fPgM
z_7-y-F%ZKL8k=|o_hrzzdRvwMiE*ngZpMoZKaaoSa-fALe^D&8ayKAji_{+E^I!Y#
z``HCL5>~XYCi}hj&%F7k2%5B4voX{Z-lhm{KAnGsBw`5!Y=4Rf5BE5eHjX<rKBJo(
z`pbU6bLVx-{VA(*TjEuF7<7dA-q)yY3UlK7QrtgJ`iGW(n)u&0|KH=l$DL?N&k4C}
UER&zR%Ylrpn_R2C>h$>k0QCnR0ssI2

literal 39181
zcmeFZcT`i`yEcm3f@KSPi)Bl-1dy%)M7oFwp-b<mG((k6s481gR7z-u7RAs@=tzwX
zDWPa6p$Dae5FkPbfrRqS?EO3Eo;&Uz=l?stH3kHdRpxrj^FHr0=gM<aW8LFN`HymO
zaUF;0-8AFkIvB>qwg2AXL*Sk9^tZpj%b|M)x;Mcq*tWErW5COi2YR-FTwFqNoS%J(
zbE|G#T<5r8H?=InvX>?i*(cj~_Ewoo(#MYBiv!@-8)r@bxc7(7A5Y};e_a=S+;Goy
zX5XKRVtHZH&yU78?B<=wdvjAqC${17!wXuDIu(b7v*XJqM%_ZmOx<AB&zC0$)Cc5i
zj$z3&R}x2aDi%xH3Ys;|9Yy#3Go=6f>;GB+SOBvU0(0Y$Q<4{4Ye7|IT47mBJ~n$?
zTyOO8{lN#p4iA4nVo;KNqb)Knvbaa;uw}VMgut*S7grHsEx_@=Lg~8a;a|V~YtQS7
zIuFnM$FwC9zqS15PgA2So&4bM%2K|65Bng+`RtA4QG-R<Vl+k=IR^7|k7~0egv0jI
zYAp!X$kX<FejB!ZkC4W--HWmmF4%dmU9`U4IZCkCZn8qUxRailA1p&}QK~orBL`6z
zha)lNJcxv31qVVEl3$;7i_nbRl`X#ZinSyMe}lPLW_=75+<J?ki*z^0l!d$SyB!dP
z6c=LTMUN+q$_?v>>k<Z#8djC#-B|DC=F99G7g50zPK5Kr?0v{gea~~n4(_-e{rSHT
z1_U+Oc%UiCyL<LZuLjRQcj$0D`H0F*voOZ0&8<)vKC&mY)$sE77fjJK(Xdvy5!NN&
zU(zcM<K$1DFd=+`1ZRsC7j&qM@uaQWBDcP_IVD+;JkDx)O7dL}D4mhkp@wA`s3^(L
zwjIxL^(5s`lE~^AYEPh=rVzUXD9j~A+CVb1F_rjvMs0U7DJIsC>&o!u{Q8QEP`vX(
zm2osNrt|LEZpdUdri?7K*1Kv$G!z*a-Hhg-6BpOe$o+ib%GDFsJ2TcT_~|j`U9mSr
zlxL$%%w$mMO-|jc97Ws?BrU8*-eBshO=rsb^?2%?EW=}C-l`*#;|4-8Nk{DR`KOIU
z-(+@05&fc$&I!-5vkYu0nKP#I5MG2f^wGr4EkDB~jT|n&n*>SJj1<b^w-#eJv14Vp
zg(O-EWUJcW(1XQ3`_FJJ0+-XAex0-BI&V_o=HBEcooX>{mSFxcw8Aiy*9kv*j=s5d
z6wMHrHB;(3fX?N;qb`_?$v!ufQrqRR6YtjK{UCGYtKW6G0d@tNb+Ws)jyYFhklRL5
zO|?Hy-yfIN$Ah>Cb>#VCp!7i?x%OsP%*o=#eN*0o1E{HveO%Z1TWUFI-T5?`2dybV
zIfr`VnQJID5d{fOK4KL$@4p+9N=bn_I;M@yEbDe3z_pC&7LdAQBh%^Ekrc9?%ICXd
z+(;Ez$$9#<NC8xv3LnD2%m*E8FcbyVa?<2U3)1>!3A+RaXI<x7Z*3h%A;ZG2O+#l|
zFAn5iZ&8DFh;~K1{Y*yd*)1deVhyQ;6(qk@Q`=`K+sIFuTaP!L(yweU3BBA8Mr`RO
z!u^lUEJq}lr+#|9GNjhJX2P1R#GYm9X`?>Go8zk~NIU$2>uaud$22HNjSIzT+P20r
zVar5aD_aCKYCgdbyeV%wcup!R*YMYuavd+exTc|+`Ls*@RQ>Iln6_;Dzl|SU64zs^
zruyKVQqM~F^DNY*9D$127y543kMzv8QR_77Tn`-zvYSd#9~8aBR2lqO&N~wc%jelL
z4(bfd!|bk2$#jkL(4BK3en~Q69S{k;-?1rgp?@t7Zs58i`Q#tAC%$dV1-_2CNvH|n
zF`HOM(wySdeD_VwL1idEWdgeRl7kE%t7$tBm?1^u?Xrjo)`guMZDF~@$wI1RT=hk0
zV!rrT2tr?YHh4z-O$H^3Xb|Put^Pi%Y|i`J*!#hD_;suk4+TFvB^oax<hVGu{_fdH
z?}wp5NEO!cU+y!n`@a4sc{jL>%b69a7OC?sxZu~JHw)1A;&raS89rZ2lk}%vYv7`B
z#RW_p+Hb#*R9I|~8z{6EIg=D!pdD_1?TOpb?h_f+laB*@9M=w>olb)`)5J<mj8M~P
z^GeyQDA5kPCDXz{L4qbZX}67wYBBKk<ulB?fA%%H`XPtJ<yW6TF{I4^CUAWH<1sF-
zl6Ykvv`K2Mj#$za+X5Yr7?duv)d4@4I!L%X<^U6LT-!AvD8#`JLZggWSMWdRX|f1m
z|IKZW47KAYBCX8(CiPnup>kaZj^aXJ56i=*f@bmS$(fxQ$l>N$M_Fd@NsQrgbC*KO
z`ddR%&1$zR>u0b)wp5C5@aDGM5e=!-K+X4w2hD|G1mg^NG`q>z((NI=d;UsJX_Vl<
z`Fhc#tF=AfTxv`l5*&!~GsxI>I%LrNMRbpL0u$=_k$PHBc**RmpU~QD<19?!9CAFo
zDCx-Irq=AWw&iLEiszEq%1z#_!p7OqnTB@vf{jU6hJUzE8vJ9nLEW4KZfAy&JDcQN
z)lt0$5fU3Xg|9(sq#xO(eXC$snmgD12_rW5Xm*}%A&S|a)|3gWK^S_3bJ7AnZEeZL
zWop^-W;Rx+T`CFGff(1vGQlS>{)=>T=zea|nqjw0dnV87M0$CT+n5Otn%$ZZXwM7M
zVt;dM_O-fmzds&-N74-Iq=_2+0j;AIl;|F192pCNnW!47UR>F`si~*eSN_lk0oDAl
zElrV!@!}6$NKD%Df0G_E8TVP1E@^0HWtrOR(p0j{ap<9aPMiUy;?+D?)-OGPcIb!e
zOx+4*elD*oL|4~08wN&rHxK@xmjnn|s}fH=NG{9wH7yxyi^!OWMUDO(>}GlDWYj&v
zwDC}!{86E~7z)(!8e|cPDbcTYocIkpid=YI;mN+n#r5pArSI>+I}pkl)W?KqaS9Bj
z@nB~`it_D!|J7zpVvL1avb*fSM3dvQjPg70QjC;kHBZ?)7AP{4_LQ_Nzr-3YH5c<=
zf|mrul<z&k3?0!RIh(0cX(>W$8lp@Q9oY=Z*xM!vJ!orPBEpURx<db-t0q%lXaI_E
z^R!-*O@XMbIqJ<P9pp+zEd(~jH?!+ZM%E|BH3=?5msNSUN{==$9%LHgn=G7s_x%cL
zJoqh<p0xM+jpR@5B(^Wq*?vwGYD0j`)wjFeBna^g$W~5a{a>#PcLd~O{ACCBBq`TX
z!<C5mmC`L)M0NgKd@Vmn<k!{}2^8-YU~RD7;jKgW6fHkLw1GIU#S#%D+?w4D3pGN?
zo;WclW&TqHpL57IkUt3q)#5E=Df)MsPa`{uO$Pjg2%1Y~4G#9Q<hco=sIyc?WS5;e
zTgU>>i(~s%vj)?Tlqk!PQ@VYU8s2KR)_2$bG*a+Mo1ktB#6@-;x>7oW?DzT5Zn42#
zsMWK(j3n<lEN0wKQY`iq9w=V=C$np(0hb#3ZW18;u-NKx|AZa;RVXSXHd~}P+GZt+
zY^7sNz59Nf_o0O@!G~hmk<#H<Fgf!Jp+|^4TV(LZ_DXY?cg9%@>D$(ak?XoJ-b<lc
zQzu|p(an|w%vm19*KYO0xI}zygJS_B2z9zvhX>8H{;A>X)pcNIrzE~3=o`mddXKr}
z0B@7L)meLouF`2L5Z9j}y1AsBvE^_H9&cEBo&D#W7<At!0f#m9#kUETy@C3IsTFsP
z=+Mj7$vqc;i6Ui>Rd^=kf`LE6#B{EAc=<J_Lu37RG-ecEbc3?cE(XJ;Q7$SbOSv6#
z!k;R<9%&!fKUv>6JEcUw&4VVUDJXYE#wrkh(A7}qYA5$XZOp7;X#7%hv>WwxALBn@
zT=Gcw)G}+@AGRM-mjt(TZ_xO?OKmsedA5j~#?;+i>-V#(?9AzELCeM$hq~6&D5-u`
zhJO@R<WXCm8vbG*Kylf6hik_6<hvjZa?GO|SJ`^e1x!aQ11<rN!*BZ;S5Kf$q#wBv
zF)AyEc<uZMb2M(-4ccM;Hm$w@6O9}elTcca<xgO|Z*g)qc2v+CRW6WkP2A53uZQXn
zg|6$7>#X`@hSwmiXRn`i?mF-)+k(O6rziI8^v!P)_WPy|LCdf14Ej6|;dN?no51i-
z_YSsE3pH{eY0asDj!3uuRI20RNp^teBLTn19b4^fzM-hoK@XLr;jj8xy-D=YRQrcY
z0v$mGOn)w}q(e>j!G$B@p{QxoC!g2#QP&q!6}n%G4v^q*etKu!GmNHQ_$A`0)gNbI
z>aO)wXEeLl8x{xUd@NJENeq`{jFapD4N0j!KQ4yQGrvG_Nu;y0dhU2T8Ql)Czih3?
z|MTLGJ<>QWg2`uG^7)F;EXN5y|KLPx#ABkHu!%DYGHDF+=sK{6%zwqG!I(oB$+a?1
zSeA;XpjvIl$oaw~oXz|d??Md=`5#iSa)^u(vckr_F}g48)#D$*U<|nv>~p!7=r%D|
z%hQW9vQ+1yra$e$R4nFoGhD^=RIEpNW&6_4S}e!F2<j5>H$6=Al9IJ6InO!O=1b?l
zO^CF0r`nClsc<1lzHeR<16UU!R7Zr8zMU-JuLxa29CDZ~?Ny;jvw}VvCw0~Ks9&G=
zCo`a0$b-;CqnP~JM25AlGhRB>1=V&XG4*U&X>1Q`7j0<jjxyxBpWCC-W%(<p&a%M;
zk|V+Q#aoQNz#K>BrmeTNa36_9_C^s)WAFzQa}J$m#~|yaT2C)WPm1v^1^x{Eqt@AV
z;|WP$Mc2$3Cgf%}BA33N*>f&3<j$2duk5GNN4fiwf-()IhA+TKdf_?*^P?ftRfa+X
zmj3^tah$07UpLcJPyTJ0mabgb*Y|=t*y9ob8n2~&|9b=Wzn=U5y8{6!4tk>JNR5<Q
zOTsOfyy&Z>TC8@PI3x|Wn6f2#NLHG1115r(_OpFVEL1LaT(KbgEb8WBg!Ee`XPn2&
z)*F94w2Yexw1|c>y9WKPU#A;*AYv;FEM2ka-6IA0)!QcBg4_%~Ljf7T4&6N3i}qpi
ze)Yj0$E21eV1)ee-1s5cg1*FXJrU|*ss0nF;Ce04v8|-q?q*swRkmOoHi>+~RD!8{
zl)7ZG4Z$51yjp;vyDTCNWnk8NtS@#2bI29s;5BWxI8h;4_)CnfRhtj;v<+I3VMDWc
znPS`FQ?_T{iO4Ceq0yGzJIgZq8Y?=T@=6?Pwv^in@Ph2R8goUE?5(;Hz-#dk#3V#Q
zQ<g?5heuUg5YMTX&*Haj`#dvLhY(q;?>D;|a693ey1}W2A4D${yYWz`-5(k5*l{c1
zg3^^1nk;lSSX)Mq;n5kml(guVpVzOfMZaA4FCsq|UaacWSM3xvQXv=H%-kbbb=se+
zy)O1FyKE`3Z2c}TJjW@9X^OtVOCK$||E3-00xK0<v({6Q-0v1KTG*#=Mzfgo=*5*Y
zVhohA^q`HMAj9+{@r=U{a!1`oq=wFaXcjM{l?3$8lQ%uxjG9$dE%%!`&Xy=1=US3T
zNQT3Q^a(_0c{zXg#G84T=efWXCK8h+%D}^9Vu{xY2Zu><ozi}n=7%(thHji59S@5Q
zncR5p)G?p;82V9M)wEhnH~2w{IHh5jRJ#AQvkG1y$g$)?10$t-P4j-MW-4SdML+sw
z<aAY!#ev}5?u?*(2GdT8wuiX1cNcYfZd~+u+F+-os&uiQm}&GAjGGnfs4}+jpjBp|
zV1e`OTMZ;!CL-PNGVYsQ`fsSHJI{MqC^_=!fV;3j$g&)~!tk<~Nr5Ocj7qbGYW{uD
zcB3CzkrDJ7(`2Q-R=$R=C#XpkyHuY_5*?jl(nW_V=U?==M3KK9MTzw7U7+tA2M$(H
zL|VwwrC5AWB|G1yPPM!y@dZg{I?AVxSwB5#?;un2%DE?4$DuZ*cn0ZU4KdiLpJU*i
zG|>kx%QZ7rAQ=iFQnzr9XZ1eTO&?!V3ocVc%eglF^{n&2l}QED+Wh$+Fhcn1b49HD
z{?{2PP0&f<n~)rG(mX`Re*Co9YmMH_-3N!dL+Ax*Op5Cf^CbOaQx+UAR&}dG@pFfY
zRqCcE`G!M-y+2B!tOou>$@+3#KOqyg@0<{`YeHHsBdFN0^rDjUrPm*BSeoL)Nv{X&
z&Siw#)93+q$3i!buQe-|>ufCf;Hep{(NjEkoZgi)xqo|YEp`x*+teM7b0(+`lUgCm
zWGF6VIN}Lr4^rxVs!Hek8-0;D1)?pjp>w@epns))#tb#wsFl9_m8VEJ<%Sd2P)8(c
zw|OsbK~ec(s~}*wdPZ;a98Wq(6hqs$t{q?bL$&i(6sp7hg_|$rh3Ko)2vS_t78S<I
z>M>$pMRmYjc8m+^`a`eKMM}TK)(QIc5?7>F6_!<O;?W&9c2e2gUb|AWk>|azc=C(}
zFTPf`(VlQahr1SGU+~1@IB&3z7~N*cVOiz!_t7JZGj3VK=|Qi0X1;EGP;+s!^FtKl
z|B|9zMd{`jUScb)N0l?>2(NWjQTv`R?L+Ik+C6bTPkwWIKP<z5)nLf{!`@9et<A8R
zH)v=e94$^i3>QIlWGLygU}Ap}zG<s7GlJgrY>>p@t(X`+mBI5nt?@j=mIee-q(<$U
zuhqK0mFgtTvAb`0O{~<wptR>KbW&g`34z(wKrvEyH1YSTmjVstsu$N@^|Z~N_I~N8
zx!U4=%>J$6F~ZUOhCL5EQ?f*tcU(#t&N*c?!?|Wx<R`L!H@dFbwMaI)eu|Hw>!AHT
zibCSq%II7YLBt<wjJ>3a3ZU*}oLsXyRh%u=Y=?Miw-<wP#2RJiUe%wA%q*ss-rRQD
zbEAffr!jK6f`z^WsKWB6&ZDSvXIxnn*|hcY9tNcgKHOm?L3c6D%_F*iBB1v%IbI_q
zv+q*9apKd_#05uDzIA<t%Uuo7M3UHvtQZ#ujb`4@YK^?9R_7^$@3(TNfr>yMsh*wE
z(UzRk7khI$x$#ayXo;fFtB@Fn5Lcv1j1*I&r@{~!bI*b0I=&87=IyD`>f0v+Yq|z=
zbg~F}e5oqYQRMYcwUu;swX{K!$NRj*Eb;JmZsxKsk*y!ze!kyMxuFuD5)^?9-@T%x
z(LC|O?eWJdinB>lMZWgdsDo2OQ&3=W>`uVZ5b>GNv!9W|{xD}*zDT_<K4(*WUf8sj
z)yg9=_~0|gwQ>p}lt?cP^w-F%A6VXL+3aa=e)G6eM*<@4l`KCbaHSfDo!PlHHB5Do
z>OH$JJ?G_4=k~J$1N;*F4^=NcL3otDcxus?*46e-gRo+zj&@&UNq*nn`Nzy1G*;hi
zlW}O{WYc{;j-hvZCf9akv}~iB?<X0GEc}TQ2>|6fDeo@yjHM{NPu%wM<qLcZi)HtZ
z6&c4*eTymiqSRBhrI`j_K273Z@Ecx-qE1&o8E)A~p(uUpBc1=aomgMcI$P-gv=Ixu
zjA_ux&0{Vad$02L<;C))hSvA!gd2DXpGOVz37uTV{yG&m_tyz?bQM%ad9BR)A}ab4
zHXaZ1q)l$11TQ?ha0hkT`A-<1;9@{^9(zIps?@Mi9h3$i<pVV#6OOYCvYoI)s#dYF
z+g4&WR*)L$yQrNzMHsJ{wF%ET2{6i0o9{kVSVO5C%`X`2pXMDRuD_LTs5IEKQ|$)W
zs)O_+UaT7^SqV>jhBWdlr1(>&@HoFz{lqg2({-b6b4Ko}V_tgrsKb<Na21oj5ig9r
zi<;hjVbx|~SIu(#TAA0eqy!~t*OjrBE>iq;5|cO2)sF-9X*cX$S?#+N;LwLkMfB8@
zJJBlQ^EEegh*{$U0`m6=<r%het#0)w=h4Hzg!Au5@eNgZ^#nCMWYkz?mhP7x@6v#h
zi=OqQ$UbKs^gSt0v(lK)i9h#S3&<jLLxE5Z=4DV{A*!uSpUjdQC#pIPhZYcnoAAp)
zz3HB<5q4-lq;l>u^=TwZ>r6j#>!b8xZd*5>!}p^>_C$!X=jR4okEH0G{(a&+-Nvrv
zf)4jRO7fkioS4=V+|%(VTkmUped}u?5gvQ0-}mgi!iRM8hf0$H_LulAyu<_Fw)U_z
zZyR*Geu8R!y{R;CF#gb&zU0uZddfY~HZ4lg!qr3^y!1T1$n~b!n;bnMDZeLBlE}Eo
zsmX-7F~;|vP2!^?YdAUb!^jIAwv>i$#MVq*eDO@IzTmU79!5BYj|%L0--2v=9cRD%
z#xHLtU_5hQ3k=pT>eXiu%VoPxUJ5s4A(j-<+**vkhl?G(Gbb_j6KgV|5OMa5SSLAj
zYuO5EEc45I1M!Jx{eA0CW)(0S$f<kG@=dGQjXU>@H4S0z_O1N#i6cZ4=toFHh2lLo
zl@InN-_svkt6-FGeHRg%Fsvm^p1w0$uL6WkZz|Iabth#Y(YNvNuYzh?VPM5Nbiulb
zJYeYToFB16hVT(pyEq=GJL8L&5p8ofD4e=j%MR8m7_<s<HV864P?_<T7u23tQRd0U
z=%-E-7Y8zITFT?66q?j`5v3<ce~;~O1Jy!6;m>Bv8zLxy_;VQh6=wX#)<&*j!*L(c
zR%vF(NVdf#)_wcJ_i){=iS;t8%0%2`*?rCDRp~agx>~jiPPcQy&@c_2gX+AB$|_ge
zq8?K|)p~E22S4$<a;ueiCy5YFB5K<zp4>Tq_f2+&X0H01VHK2>Zt?;6QnchuV%2Z3
zy;R%6!fwQ!66N6t?>A#BC2wvPupiw74v3Iip*u)p%^h1tiWgX`tj#D%ybWZ)@oA3u
z_YYQS(0#gaX0*xVAsc%0cAPEEORXSdA~E?K%f%1^;(zDM7qw-L%K4dLwp)Nxf)G^m
zbx_jiQz@5%Whu%b)K18QOopMg5sI#_joN)8q8}K&ab;ody<Ywj|Cr)6yL0r;knP5v
z`tKzMdIf2I^_V6aNqUd0FZWml?apFJPEv7Ujqj(r)|)my`84KW%xS^HY`+~#dC@Ae
zmK@QXYvaKIKt&WozLk`Fm8^?;PTtLOYZaM8irw~7l;HpNdIcF;XGrCj*wIRTEFGF@
zND5)&4@3~V)pE%v^->Ivz5EW{*Z69zj`5Ab<2Jez)|TWt6)h9G*<$wnx@}~sXtS(G
z=Y+*lrBnVe-s!aJAA#4ADlNrdWQvVfYY&J$JBQL;(1tmw^368Ho)PK#-8cAkw%<Ct
zb3I4Nx=#uJe59j2M_&+<gjpGm*uJW4<^Bg+1)8X#Qch!*t=qe-jVUo*PE98ARSmTB
zb`R)|Iy)6Mjd<b(z06(hdT6FWLQAQmA@;LvEmf?}J?O5J*lR_dl}AI%!|c7E8V$sL
z!DZRewT>F@ur>Y%VP;*4e1#%^wjAKjsUXK*GkJ0<N?NrI=MT%2p-)=Ancc50n|x%x
z9ywar)Vbc?YVLlv0Opx;%W)uCPX5lApJ>!MN|164&97=|S@&bkNO{go>`zLn&v?N?
z8(%s_Y(4-LwWT?%R`M9Id{Bm*4g_oTt}`r4h%uIwaPa}Eij^cj=Xp3z7W6?6P!%s^
z(~oeeG8pKD5udbTk)!)8F8<@I7v;>S-AgXFeWS$32KbvXqbt7}cV3UF#8K+&fR&yN
z6(22`7<n`-Z1!_Fvi_Kx-R_iFp!}feb9>%)(xtKT^H!q8rOw75mAV@9b0#~yat-fb
z(ixJKPOEt2()P+AvfJQtv1x&yM%RH8W>>TbjZpT-A!y>)jIIM=O&$5m9<6(tXg5K>
z)|lzb>X`d)RHCmp%-q`zu_tYWI|-&t<&tqJgZ;)#w+V8i4e*Cv!Q7l2^wH2;=*LfX
z@fG`<5B|u~Sj_B(jv=y}o>Yy>)V4imPdI5hi+0Y`Z$BT|r-4oUUG-q)#K=bxIr5q2
zgLk$=4gMe(3qv)7^qw;*W+*FPB(BXpv~&ILmNlv(bV=m#iQ_!!@Vh9hnhyO;Ir-Q3
z^F#`~HQTqBhlLU*k3Y6Q7L0QfH<O?rW?uwth8`iX+wgi9)?y>dUh@CRl{6}@B&0Qk
z66|9T+$evW=7Y2|;Fk;32zMwD$T36FzD)^Jr*)PTvq-e#ToC{}xso#bU3OO}uO*{=
z-wBOh)Z24$j$!=QT7U)Q*J9D9lX*oj<k~XD-q9R!=4K=NKJi@ta)9sKVT%H+YFDkV
z%JumR>L%ZZwUv}-cSgf`OBewvOS)7)^R;2q^NkIHNJB39v`9il)M5eawcpKxV}H*>
z%YBVgC|-V*h9X(SFPJ)RKiJ9Ffk^Da#jU+yy#c-XujM!0FQ?jspmJt?qD-Dk5TheC
zH?FMTWYi3_bH`M-w)h4s-*CT^sfK#gKGt>M;-`4o=1J=XRgJ~0ZfHo&6fO{!A_srS
zVCKE=UuN*(Ui#u`n2~V5l`Bz_OT#Z@9L-TaE)Bx=0!lK^=oa1|7#^a&TQTX1I|mxk
zHQ8k;XT$XMr;c8`AA<kE=UVS2BI<`~)tL7y+*Q^_MtkhEemQR>=_c+X5_eF4Vo&+8
zDhH{$X$)t}77kFQ6YN(Eha%qf@H*AGHa*~%3@l@2AUx-^&<y_*?9W2`%lDo8aEwc0
zOl;uBE$A6f6iXwRoloLHMj}5&E`R9ml7(kVj;To8)+{O3YnZ4sH264%+`S;LQs*k1
zW&)ynMQY<VYS^gsl#t$+VHu5-cHsx`$`+<fro_g~^Tw5TX7Pu*tvs0>(>w8<wSR@%
zie2`gol)w*RN0HO&R*-|35${=r)!3w5zp;J3&zN`QGwgejoh9~K`&|}O0&G>u=b8C
zRZ}KNcyOzO*k5-Wa*yGEj}+Sy=#)xxt4*|RP%FeAsGl-hKjau+fxd}fsNXi$sGpJ_
zCDu)*-K>5z!SixUbyxREP`|m(SY4t?;cmT4{+QxJp`vbgsaiEuo3aU*STC4Ej}M%y
zhwAh<?+6iUErTYdk5?|a21HeqNKOoE7xWiuIXZ8(?&9Yd3Ff)p4$YXF3FF5lp^ZI!
z^8NV8j1{@S-Ig04*HK=3dcSHOZ|!oK_Wn72@ZsQ&?fi}MRt!6BTeU7WPbR#j$@qJR
zi_4HzP*MW?NP###nK9+m7qyvCHAR+W=>;?qWSGXN=%b_zN;AV5y0a>LPJY@>tvNW>
zys|t$o1K#*#piwh?F7?fGuhDeZEFiNB}-zXXtJy6oZgek22XD(qvlh2=#Q>ERa2w~
zu)x0=xkYI0=AOW)R0$onlVQE@#34ra##+-*dz=5R%E#IyjDP$glN=V_5R&GW?bj+o
zyWIK&<57m&6IAMT(tO^OtmpQy@!&A~&x&FKy_yk?>1q7@JWAN+&6lXwg1}sru5gkB
z-EndFaj)-rCJ{n6fjAQ`Q)$eJ6NfHA<S&y=Q6IuWQ4il+huYJWB>b&~l<a9Ho=mz)
zlUs9D^ZlaK2rs63n))SM?F<E!2KrEN)Etu~cjh0abG5>eVCyT6Dq*VVU;`f?{#6g!
zzvIH31x9G&B)I4w$?$#t*&)j&<$7Z0lt=XgZ#eAY?9t5U>`3>XNL&&^VXQ6LS8AZ?
zLvDJ}+}}C4z{l`<`*H<U*IW4w_5wp0jfgtDi9+JVa=7u%-FnNQoCB7=&Q$s<<YIfI
z(>Xqe_)99&Ps&pmh$n^yQq3lx?4UBY4DNLsoa|ARb7$2-C$&eY&AB}rEz+_k)jo^$
zM%`r!K*dwNSRnh(&CYiu_=v%n$^87TXvP-z52;cfZL`jZR6|^lZl|Dl$PTr0y^58h
zNPBw)k#IYx5o;PW`M0a^U3Dh{>1TK2fPPGYf#XyyK`{N!*zK`kN7@;4VkBzk4HhF_
zOI;0ZP7}AC2GfxXw^YXQRI3b~;ac*kD2Hp(0|5*YwBz2*=FsCwhLZR&8^c__Q#(_a
zkY`=L`&KDJwGbODSnWSB^sU>x;=ah2=P#=W>WeN@RRuO%O85izUiRoX*QU5Ii|@e!
z_w&x$n5mmY-Q9^n$2DC|l(-o3rZxfE(RBn`PQ1r{QZ7M{+PrHxbsE;ab+e1faJ>;<
z(JYc`*KlGBx^M7VPoh`|Zno~!WZ{Leon&TEcZE1*AIirP<A~eK!Uw&(m!T@AwR<Z*
zq|`qtF~B^zuMOSTxCW)tty8aE^E4nwW>To77TCQ2|JE6|D35T*!sZEMqIdCdL~0M0
zS9vWpQIp{|TpG3Vi+<om3cGBpvF<dO_I${j<K{bf0p=76XLi`89NdphX>2r6z$pd@
z-|5Bc_}hH{GbP7~d~Mc9{6m(0BfD$jl1}R8?dH?aGt56xS#NDZk|5u`(({zYjms7H
z(lHgQ7x5mFAEaOzkYa<I-#?<D=QRtmkBY7&%5R(^asOZlFUCYX4iGUyibvlmFe&fn
z4Y5f`%A<}It3DmcdQfN`iHisU(=K<^RCCNp-~Z{;*Zqq>liZ?BtM)eVG^l=8LznH5
zHNEd{-ZRi%xc#*%oOM$ZrYhE9!=JLzB&)TX34IjQ;3jLm<|_!<BNvmtL=H=S+&)pY
zzpkp|fd{YK82-ngimKHg`=;Fe-I{&QG*swj;@3N<wT4l@$u_qc*j8aX(%$EXynC(S
z)BrCbj4}t5t*?HspnlRYX+_@=F3vTPkBUm`V>s7iLt83nh85JHjB!e)%uu+=dJ-9u
zFK6<7I(QiZ2aWr*woQR$rn;Rk%FsED*0p_)G<Y7Jac5csI{Bw`O5+iyd%Xib7D3oE
z?Z~r{WLuO~*eU2mEUA3q9q~DaZ<=B6JCbQ~vze#u6phy^({e0$a<;4XaL&aV$E)}<
zbWJ&8TuH$<ai$>^e$Ym`=D5D=p_;P=llJAV&<|3m4%V%%iCXWvwMeNzc|=0q#W0T>
z28d&qN0h=>wVq}|%elq7%kVx>897|i*`6;l3*WR01QINVTZo+#gF;wG``b@l7Lyjf
z!@C3%{{$MF*@YapLos&lX^o>L)QeD=1Q#+be_}Jp_uYht3!-&!E)>f4E$%rd+b=n`
z_ij?ZSHd*;CDH9=aIN8sVk4`Z`A)&l#{2mjW!@2elAld_E=go4RB2VXVmD9YtD5i!
zE~R&t6_!Ik4kkmjRI%IHg-aqXZNIMUMO)?i#QWlsdYE4kNU<)peU(FY2_mj`yT=DA
zWa1}XFMObG1gOTr#44fP`qr`oC7~^#gv83Sm7wKf&Kb(NQm%G{e&lEzPf)Q}#cwUq
z%$=bAv}GVDjEE>`=qDNLFaMK1K^1$|QLPsd&Lorrks{py=F-x_&vdH&po57e?_$IK
zPx@W^P`=|+i7QsEt!j6He;*321@7O+)!D{$Z7ZB)u@7*ayHD%Pj)88y19RJ4zg-8*
z*-GlQ!H2r!rVC(R;OnD2hAddaQm4iFq^;0R*d>H&b&%`fn-<9d$G^v~KL&>tUHH$6
zxQCb%uPQk({{Pnv@<(^@!Aj=yn-_XT75jqK|Gm$oK+=;NZ-H!{r@~oCSZVDkUF=gK
z1?&yBhuKn9PI|YUDy0718R(D4IZGw}*@_DO_qBw8aBy+i4m1Xm4c6#%v}3g^Y<UyD
z!(yn)2=bUvhRerwRtN0rJcE6DGZoQJb)J^J=N4~US)JzBjE>B@m~idq_SaVeq}%Uq
zz3Ni*9DLnEie^tDzWk}19n&EcS}P|db?o46tKi{$gA9XDKYpd!`!?pMWc14~f7s8v
z?R8BscWpMsq<%e%Sl-uYmusl+;W$?^q3*9bd!vM{LKTT_%o*@uPKG*<S2#BFV4ZQh
zJ6l^@{ljIpbQ&0tz<7;Ee~oYBT)MHqRqvud(Q$#%z7}<X8eB1lf89$Qs&eU&`V6ib
zvC>%RQ$hWWD=8N-k0M2G&1FPIFjsa0*c;0Y9VXbavYyhivfp(tBu`eDd`%SDORTQ0
zR`JO8|2iE+y@FVq-2r1Dv9WEeMb-I!wC1lubhM|rlao_TOH0fA)8hhm;LVunh41hD
zd<KiYe|Gu$QW-M2Rw5sf6}F>xjB%vUuEIViuuct?+Sk-=*=Xsb>bhtL9UvAJuTU+0
zcHVg!gc!?7NObvq&ud@ss%V_w=-1ra-n;5IHPMonmv_t7)^;+OIxM6Xx-y}qM2e&v
z#R-QmyxwfdrU$+&$)WGt)P8s-qAWiCsH$ltagYBPm*qz=nm8EY?<0KftX|do-`+5K
zvy_|_{H9vW+jd!0mEz&MJ+H6CWrt27`0Bk!31z;MO<vfRweARwo%Mki^?oFc+Lo5c
z&Zb~$Uo<cnRt>z3mX?#lUI|$mx#BC6!nM>04VLLrl-xMb)ko<N4D8X--2SDV@!*;R
zt3z{lb@%7bpT`Ug4B}GL(|NX5nrVGe^C*v7$N3c&XzZn${!GsB_kF-^J6MBwUE2D`
zH)Xap1?F))LK;hieEhJ*{3=;<Z>tfvJtx<|E26QTsvJ14MpoMMKu1|I>&JbYwU9ij
zOO*}ez8p65)2C0}BML^D3Zu%L`;9$xJUoIrTuyTg`|+e>Zf;J;teBR&gqOobS`gkf
zR>X<;23I8D_aAsQ!{sEZS{Sp#AO^Q>ui@K}3enq}S-LO(S~Xf)KP_XInj5pbRoVw!
zVrlI5pbx9E>C08Z%~^K4^j5ZU7I~4}n?)2Y+EN6Uoz2g13Wt-Tn3EJGnq%l>a3;ht
zWYo<MW4GIxd~r`Te0@QPKHsbA29j(bQvv?7R2baM#=&Gg2sV0$RjRo)o3dwZYC0Xx
zXKi6&am8n>w!yp{tT)k81`bGcZj0Q~((3iw+hIDZgE%|;<H1Pib@@@{sQDgLFGS+x
zQA;P_E-ABO5ppEguQ*x$q+k#^QL>tvF#*eCb?9rG)3Lf!;nZ@W9Ku(g!79(8lFa>w
ze!m9C?QAqlX=?6`hBFq8mL{8-Nq%ix1(&b(UrbaBFa@bv?LAtZi(Dt-c7wgazxQyN
zN`BGi1sQ*Gl{^Ls!9vR6w%6XjaRNE15w*R!DzrW90<L(_AVYTf?9nHZa!m_)G&9HC
z$B!TD5i1-?FK%9V+e~X?n`$Dg%k3-!SAVv*LMUr^xfsdOSGi|u+<QI4Cj2{&*Y_Dz
zkn4^MTpjG}?~l0(aA^zdBqX9#UQ~2=sKSxG`rw+{obw*bdSH{nCuVp*s`GrDgO!EF
zx?XhjZp|xx#ioW(+LX3?f9~YDPL^1T_lGo)-`_+t90FW{EBw0p`_T@C#yPspL6m^i
zV{$Fu$}kuRNkg1AQgw08>$|8y`ryhyVZR8!qGu4cRn}NzYnCL=Uny>zv%_<aZ*arV
zE$fSufQ)^8S!K-LZsAqmiOq!V?d>iQij6Y2g|S3aEqe2-7CrJ`zcPumI#(SXorNZ9
z1(i_mGhVtlSWLIMCKz2&RJ8CTWO>X{F<`dyvy$JGps`z9{kcR(CF2e)N#e|E^=eL~
zxP9dvtw|7Jl)Q8O6nT$6wNTbN<<-t`J6^f9wpKwJ2I5F=$fsKw%|XHYA77M>HwAlf
z!^WyybbH<K>5LXiK~}hNrUE4ez?tWbZ5R2C>q6i}-g}%(^BZsQ^K&&BuXZyS7_IR@
zPXP$sb&gzZPYWUMrlqCDFCWl2@%--#$$CqBOH8hfqo+=tQiM<*2{f19iVi0Z@@h8U
ze38DBw>;j!=IK#m44RjV7VEq?jqZr)XAd>_k^29^&sR!Q*TO-F9BZA=QbVjg+8|jw
z__q^+7SF)|>fXY^2MQbo*{E@Z4=0gEi_HspU%Yt1o(viHQRn1hC|@sgwL?VnK}Ukn
zaggH8zQ3kFQkVMi-Q71Pn}XQ`c{(pxUkU)E!mmVZES=_n6Fi1BfL@8%{1HdyzD;tS
zIOH(ef(U%?(vd*KI<>Nh0&8H<L}^*s6(!fsq-gCpo+#<bk9JOoxioEA5ZND9LszyL
zUmGzPOuHAhHRR(XZsBVW`m&XY?V48wXQ$05U|NFVbI)0zb*)<}4&2YFSTLT&FNWjG
z{2l#@7D;BKw|oi8hqmV#fikwYZ~y5@te6~<vMO5;R;Brj*Dp6jZmsR4%Q;8S{%n6y
z*uogLmn#f-#lK!f{p$8mlti4V;)FmU$2o0~Cthb3-yG}HkBBCjAa1*f;_l<qWe!Hu
z!<7p~qSn7tmvM2wpIu{HJ4Y$zr+><(E0g#CN^mw!3Z~)qqOoghYv;4B`l!%<#EG<3
z-2MENgte*q`Rvht?%c&xGJvqAA^=8Sg@!07r$}mZU|bD=c1(peb}AEOPZK#eVnt-B
zmgBc>JxIW<@p>OJjIi85(hxiGJo_$gxWX~Q<!U+~ScV&D;!}R?Py>uQlxN%Rl6`+=
zq7g)eQPx#F!7&|hh<iDZa)(BOHIc8qy`61frls|<-n}<7E#EvY`J%3{27tg9UV}wd
z%iU7g77qXuXTp@Rj=;Wt`UEN#7i|af>C?wF;fSTGU1SgeCf+K@-g+*cd+q-BJe??T
ztCF&9n?H|u4VNhwa!Q&wI&!T85Q?_5&u`vHR9ov*Oc6Jk(kx;Xcz$@ePumLX6m=h<
zMu-Eb2rf##6Jb_xI3)=bN;2W9&sa~EO7LPnC4H4e#iE@{t;%~%)K<ULfy5DMiehiP
zHPPHz9|A?rrVjWNfIL-c3@*einzMZN%T)v@G5uIz!X}Sgg!^E+jD6qBn-@H`*9S~u
zUYU@|{E~WFe(!=3_Tdma4h9JVN)?mwr=*&QMYml#IJIPkS9AM;F9NZZ1i&VH>$|SV
zaon#@$HW2RguNqe>5poLq`-omyT68hn!4anQ;@kqP1%sbU8*6kJGF-I5USnqPmt?h
z1^lw@0p5uxsII*K2ohlV*Qf`2h+%h{9ND+U)pGH}i!v&}yWt1d1dFY)PVH_Pj`eHw
zeoYY}p19EHUmv+W%A9c;ckz|r?yydPJ@|lZakRIwv9UEZ{X>~rRx@mveQnhV#sX!Y
z)q%dI{nj)eGDjvCPUh|7N^08MW#Y<3DbumMA%ceOrKH`BhAc>NSy|c2Se=)8gPI*K
zI_e^<1kgRZLWNjv-d)@XP`!yD<747;+yP|&&=p3wVj!&>V_rngl?FDJ$NiWAPJjiD
zFrPemA_}5$+z%jYFW+F*SC9k2*^tSg0V9!dG}fW9dU)Iq7gfO68UZJabOME@`_qpH
z7{Ca#&d54!GL3UoTIFCwU~mx^GRip0e6?4Jbh0l;H8csLzWRkvX(F1v><lhd+4APi
zIRZenR|e_QjU3d1HxwL=`>c9K+U6JW$LF{hYmQC858~s&GuxF9ete>S{_%jqVT_3)
znr%i+bMIln5r^uGJcr8~;UKbI{vjD4o=+Jw4CnYI4{P~?aCj877T%bit>ot<1yh+z
zHQz-{1`}n}ryuUu2dBdn6&2-q^yg;fhA$Q;?r!zRL@$K4jcSCn>bW_04~PC%-9c53
znrcDJ@Tx4l+0!$F!{IwjQq11VD=uFr2<7$-IAVz<mDU=;6o$s^ZioBQr?dN&MIMG8
z2ulu>v8%o0Lu%X61%*WcWa9o4`CFewb}!3(@5Q4$avSZSiRS@+jxjIZ;(FL)kBi=U
zgd8lfEJX&9PmP}_eE)tVQ0g2Ew%-O+3dF{{&MK@PWR1!oX!EKM)&u(N-W;+#FBr4E
zswtkCIDi0chc1gr({x0N8E20uX^;S-MB6}49I5jh@{9)ihK!&!H%45z4a@-06BEwL
z&r@%@Y5e-Izu$lWqDK`VNww7<45Rj$M9t_*h$6@g%E2=ZzqGg4K{%hia_@`gfP^+O
zd}C?Lb4jIIDCnEk9!P^3CnP3jhw7}GZ=aB5(cob^?h3GAZw)$qx1!?h<B3}o!Tpq3
zMjr4nPLGpEc3WK;hV_Y#a%Q6$)r_2nORM3=exNZK1qr*d3u-B12&CtZ+3nlk6E|uJ
z1VR&s7q#jp3Y&oHov%JIe|N7}S<}-`6#(<oHofHF9}hP9bYdJ1!&r5i)pPg^+C{iq
zWUj1Z6J(oF2LkN`;7}Kn^`=0qQ^vWuO5T8gJgsjAC|1;~hdFxQBGIZLOTQw8Tr@AV
zf?<jo!#PY)NwgKdN8<Ef@h@J4HcDh^#_Vb#YeA`b2Rc69j9?AG!!~*`RKzj|(C7eT
z9p2yh_?QngAKTuo;f(0x>4rHf!ATInz?K*zP*8~N^~?Z#Xatu;klLb@=I7?ptgWo(
z`?Hj=-?g}fYQ>(hSakq<NqT00mkY7=)j-TzIRZ2-K7Agx2$03vcpyQ2V+0GjMIVmC
z9POTjC3SE7?wKWsm`%>DH~*hD|M^tF*JiUvzTaC46zB1x+wZOdSd9pr{_x0vL&bu@
zz@(Wf=&=7+$kUW}0QfjXZH#)Dq$vb*h^V}K&;1Q>9>E=eBxoC3+q2Qzs~x%wD$(y|
zq~_cSa%5o>%?Hrtsc(<Z*jj_8%hc8u<=6VDDyKqK{en%6yHSVk$c?wAWAE~Q<AN66
zdd05_$yc~;-!ekKdH3#H@-z(GueHIhFuezlA77rJ1I$!P>ghED3EdkXAJ5NWOD(y?
zrchd2BZ5BvLQ+bKP6JHPS@&J8qL<ZYz@m$N0BKDC4fXQcwVC<eEULa4Xs)CEOa1QN
zz55*EGgA43_<d=h9P6B=<R^>7aBi^1JQH-`g+n5F5JjJ{psayfaG+lbMo2Ye(4-;T
z)oe6Z%O?eZbw+rx%l|Yjph>6m!9^))lg**%RnQu3yN}hv&p1E$cyLBQ(R1AakP57b
zYKS+tCcVauJ;Jz<7A0X%I?|aN)JFjwxRiiK<Ys8#d=FwHmRDnw(-S{|Od`lR04B)U
zG;co@PIRAc>1@)25G>8c9f<q6Hcn?uTsHa9vc9sT>D+Q<uH}`0(r)xXfe{;Uki5Hg
zX-Ov|-VFmuLdJ=n6WFIL1#(6P7QR%~F*X%|mw90(fh#Jyp9Nto4pG}}Yuwe*-D-Wx
z<ZQ~!*H=^p(5;(;bWXSjYohn5CZ=O@)g$_zi3~M?0%$K<jKO?S{A&ZZw}X8IS+42V
z*gIC;7Jc&6DW5b97>3G5>3cwiYWMGG?ry%DIjlt`VzDwXP*Ji7G9AZo<MKs5$PDYc
zarlA8SAfb9x~P^JvX1r9YhB`dBcN5T;lvnt%77-k{*hZmkW)C;{{rvb9Vj$GZ=v_L
z$r76Mo{g$3iBXpEh<&QxWI;YtGjk(SKc;U-xfK*!To85GXa4cQV}~k0Vz}ffWYcq&
zjW|JRu`H#1j_XPyhU<e<zE!zhmMDBofaJOOG7a83ynDYXZaijhN5~$24GwrE6lT{H
z1RsmK$$_F`IoQF22kp0CzMKReH;b5Maf?L$`eb2WE*QP}LrSz5pmbIL2iIGP!aJ70
zh3x>pc{u5_n4XsQWD1;C3mLRrM~wahy_=-Xv!#XPNC=;E=9K}tKJ-ruPz;=en`-2~
z?X1b8Jey>RTpzM_7Mf3;uOm8*`waTwG=MbFVU^5bpAj(6(dxOFfqyMJJ`S<|FMO>-
zw5Cf-N|yYk60|S|Xj;I^+8kay5^(m6zi+(l{Pg6QiB095kG?x`O}(Keqb2}&D+|4V
zXtD=bUWnDoL^0aE*NAOd6%_~30kT!yke}mYwL&HDkq0%9C!c@(y<aDw&&2y*%st&Q
z;xbfX=@kblcg9Us9X!Id)Foz=8H5My{`3eRAE<nrZi7X)+hW}T-I$FhI>$HywyxJK
zODFgHU4U^5hux_nwd`$nXy&Rc7QG8kO--%62L9;FQIFV|ef;=0=ft8!LFIrhq0ouj
zZ2*#YIFds1b3SpEjbt(g1mvkWk?75yEjpREWx0MlK?M}HjI{LhVNRAa_jB`XOK9wH
z$oTA31Z}9mC~E`9UTNlSTWO+(2qcGpdG=?lsQfn=Xn<mb%0vO``hV9sBh$*9il_sP
zB#(KavCq|@g>R0mr83YetAiq`Js{%&id11F&=0Txqwi(-9tELfNzVzLQg%cdt1|`>
zl=PV=q-E5y4^ryC*hfKx%xI}K*7@kMV@kdN^U<K546APc`rHtfL(8p3yHZu}nh-(!
z3jq+AJ`VUb>`p8tcx3|NNSkVn;*I7XRE`3}{E-Oq$_C~MlKqoLvoblbk9%53CM-D^
z40W<&_f#<G=MccU*igohb*Rr|6GKre9qgP%gTO(byVJI}%g)s56W}U|{TR!Q%~F69
zmfko42D<|d`M`$-ylUeWB#OP<;263zlB|7HdhEZ}0u0x6sM1;nERn|7e*CQ*P2X7f
z?lPcAbO<bj^rAKQzJO~aGy}UfN!wOqLY5Hljiu4!eb;7QM!z^MqoNWm3=B`}dm-Dj
zpalyD3>dpi#FF3u_=;)FmaF%^JPU=ufdUf?WVyE~5K8TUafI^ivEg!i+5(VLULX~K
z?sEkI`C>i5{Yr=oxXQ+DU7_F&GCF3;8R^@+T)&s`oE1LQ28Pc8<MS}^$*xc6guiY?
zL>AB&aZUhfWF0|8eoIL=zkT~Qz49|pvk!;lN=i!J09p9<j8oWKTd<d}jGUYtpr=1V
zpZmtkxA$-KY+Qx4gQh#|J`iqB@Wd6SrlsW%uE})zr1o7&GIo+9B0;pN`FAFrj{-n7
z1=+Yg%TYaqFW>pl1v(p&IM9_gs6?8sCcT`8{rn6Ey#yS9t|b+#R_GkX7{Z$u$7KYv
zFt8M!1)$uC#%$r8c_M&pDv*|%x;<9u{rTx}#oWlXu5?g|1!{m2QGir%?|F@SKL7b2
zt%AnUDpct`@+4*OE0jI4;;MNG7>u>aNr3xv-Dz<R-lG8lmrlk5DCh=>Dh;r|S4J!S
zAlCyB(lyl}<a=%Fy>0t}7}YcfdX{v;vtBnhx3~Qo>?Ipm6KEE2hHk>3O0Zi%Yer1q
zS6m!JB9ZCf9RYRUiEAC}x}bH&r-&Jix&2KQ&keih1cSl8<8~R?A3&#C`4&owQo2h$
z*+3ry{ZcE7U?8{S52E@NFnM?_<keYu_ebU|l)Q&Ab)qql&gpV=jbC5>fd!(}h)gf2
zip=R>KR)AL?5TlVy#j)VtOB&ua6n{*0Q5$cPV(mYe0!s1VuaR+dR<FBOo?8nk@iMG
zKGSOD`_<@=HofA3$cY4woT;}U=NttEX?*+(w!2%uo##tR{F{c`DjnBL5Umad74{9j
zxF^TX@Br=ej38A5L}&z18><KUBlAme=&-a`v;(e*8G+$|<-7-*pTEC93Fzb<{!VXA
zi`K>f1_lBGEO4SHHc$gpAB}$~5g__cfB>J5Kp;*9FAi>Tns`uUX)WBK<9XnpG`GGq
z8aR+DVSX!Q;oFbTfRFD9f*u<PM?dr+pLhkhlH6k0<0QbfIf(kV1$p(GHgDZjW1vUQ
z%4Bo@HBLv9Le}%%{PlyhvpJJ^aRr!N0N~074UnyJz^bHppWH|TmEV5gt#;ff2>2gg
z02bwHf<h$moV5cqjj?eKq0s>)p0@YB7Cz8koJ}+a9eTzRPBm!Zvg+>b4I5C<)9@K`
z=m%huVj>KrbBu+J&87i}twAhUK$NU2ywz>**UBh_rHJ*0bc@`KYV{ncyt@SgAe8>(
zjML_I5HlH1K^y{iI0HRk{Uh*?{35`JT~j2O=r9IP5sn?=72e+3-lAg{rdruvK!tS#
z5Bl)|073%=zc)=ie7&=q%d2YJ+eD&y9CGII6sO53o@WHeYyq1Zw*7c2@HGUm0e7He
zTLJw#E$;J=93V`v>Vcdo*9P>V7|=?y_hv%d>ecURc6|k{o)l1m!AME{udmFk1@@~m
zfA9#YM2@`CiWLEL-vBh?7?3BLBB1R#_LN76wEzmNTnhj<oSp)2-xd($H$P9CbLd*Y
zYs?4M-v_uXc-f$68v*r%V&UKr`QvSza8s|}?tY$Y(_e>5twowZSNozVWO)&x;A0`f
zCvNPm4g^e9;EAR%kn2iwO&Z8S&P>c{Ij0HsFfc0x2oMh0R2El6O37x<!&!oQq4;Oz
znEnr|$3^DjZoHke%m1uu2fhd6VcB1xr7=ea4Ov<X(UfQ)DC<d!L#4dSz@WeTu9si|
zss8rff2I$~siw;H8r}7P%{L@rfM{Rox6jtX633V1ph8}Ey+)>;z1H?<=>k}|#8rI{
zm`F2dagY+r$*q?hsM|;ho$XBi%rR0SD729Ui*a{AL7xq!5axaYouFk7@MkYQ_d6M9
zoFl7XKw#Lb21>a$m|yB!o#`NNyJPe6E^sCet_mpms+l4|7rW<zl;(;oF(w`PC7Tl%
z4$Y>Q@+SDbS$y;2kgJfR0{9XSvLt8L2h14-8V_*J1TxU0$I{x7VRV&xik5EgO9`U)
zD($h}-%k`)cgg{(ux6mG_#G1q$2LB$&5qSqT;FxHGYR}cXOwU2nmuBSp&&kKoI{k-
zYE3GrV3zPPM}iow^CI#B&Al1mp3jr~{Cu6arkAP#rbQ1lhtiY^OwbyuU?R>5O$`Tx
zFz%Hmm?Y2uZPoT}s<|<WwOER6<L3#4|9+snDN>y4SK^GoKD#KqOoMAw(uDdE@aTAH
zEXE6xBMo<kwId7k!z~DM!sOdx#ZMWbbraG5JhKa?cpg4E-2%_!omy(NA`p>JyAFhk
z7S~`@Av>4g_Y)R5-;n~gH<=~rGS^Gr%8M#*81T)&VKJ!|6r{V!{g3v}1*J#+-Dzo3
z|Hj*I2@cl3Juo*XSi%0J*6EwYpfv7h8K_tjp1!8Yb+)<%+Zx*ayF1tQLphlH*F#z{
zO-BeP^)vrWSwSdsBaZy{SFNP0mEXU<VUZDZ9>#3PL|HwLZ2=2C|2_DeL7SPvIeU^e
z%l`@mO<37kI>DJV<!le7M+@#>AI87Ae;&sBbrzu@EArp7ubs%=wKLOcX)7XEw#2^7
zigM!apUt+~@cTpWM~RULq|@`Rh(d<)|2T#cf5??dM=3cI*jKjvz++Ya{k<<qr<5f5
zla|wO>}DcQf9<)r@t-l=kxS2@9$h-9@oI}*d2%g7e^C^UxIFZq!E=TEpYq;3tf{Qa
z7e-MmO9h826%o)9p&Stq5HO%ciAE+FLYP6BWJ(kaVG2R9L<<BfAoHNem;gaW2_(T0
z86!fNLK2iAk`MyK5FiBZNvOBKzTN%()BX0n{d`~kfG0Wo?6dY7erxTu_TGnT(X+RK
zQlgc=jEUI^Y<gNJ!f`&-?Jlv!5bWoKPA}5Rx5N;x64bc|{&Cyiv>rnK)>tWn{lf+W
zvps{-i$6+zawo6w*oIDp3xb9Fg*u^bk51B#Pi+U+gu3mL+;c&2dEbuN8>(Qz#ypk{
zU~Da$3==|tRwpoh)_=29vUpI_%$#8Qx^|Rk{@DlP0PF*kiF)|;ZagmLbsqX^R#o`Z
z8IS7Y15_y)(-#+3nx;V33YVJtGt%FOG;BVbe@8A$wkrNOc9(-q%((&T$5&Zj4#j9l
zHy0oJQwA>3F)vndd1RcrKAu?O0n0~!59wK!6au8*s6YJ+>r0Ej#p(02HlH`SH~)7_
zwOylK4|qQ*{{-xDlYTau240hCS@Yv{kDUZ@40&indhXA^y}|5sczfWAr}wU1I}zRw
zWPW+^>%*~o4@Dn-x!1n!`tP?kj4h1ny?J#n?wM>{><fj5zbG6sI(*&y!j*?x58o{(
zLMW=N@hQ_De=Lq?S2APB6LJvlECK~ZCodOq3Y*w2P&a+x@n>uuW?|)g+|wiFw<(9$
z1@*zY#R$!U3bT@UE^f&Cf-t`h>8U1%T+RmF*QX@H$))NN%3~`o0}bK%icGKTZqlK+
zB*h|EjnC+i*4_}LKhz)Gz*|Ax@Ll<INmt6WAP}rt5A9K^qOZ(Te#Uqy+qd3MW&`g-
z_(W`-gIu{(0~0e&Nsc3ukukfvuHt8GH%eC^#QwE=-M$i2*UvHXEZhWCOo7jlqw5B=
z|JVkgt|=qaa%JnfUjDaqG5qqI-2Oj;sTE3-TQ=$|K9e5Z^CULC&Y)zu>~0_fF&Zf$
zqUz43=JNLu)DkRLwvXV1_zgjosgqprEZZ9Hl)%h4esIf5kjlo~WlQ+e@;M|0*xU;6
z_J7DQ|H16Oq)Yl2Xjm`Y7>-LNv4`2q0c#sY(le#>3;@~D9O&f8-vxtgMtp|oE}Kf_
z;E)a{LV42Dm-g=fT14IvVAx@SIcWUU*gh=9-o%M`{Dfqqv`p;u>n59eh$hax_i=m^
z6q0V0uP|B5eo8$tA0f59-9N!n_t{(L7?27hBM}aW6!rZ0Jvh4(%4JIrlbXn@DbyzY
za92S=BT{n4hD=c8M#fT8u%JA1jHT!FUc{j`Qgu;NY1>34cy#G<*VIaWw!vB-JBjZv
zJqc_7Hi?q1buJ=tEQm<H=EGIN8+K0SK+Nb5>mxL?0`xpNN6}>Mhd|=28CyDR^DDrQ
zeqD*025+3x=~tu%;JI~cI14W93>WR{&k{$wq3=s&9sAdw*>0wb?*~7X>lIO*iEC3o
z1WK*ph{k9xd7v}V!&#ZwZD>?7pjr;BTmrP_{-$QWaG&y^)fZzb4W|RpM8~4bRL+1H
zcH*f+bm`46>b!b(oV?4yUABj3si1uj?uhFG7S$+gB%0f<{+gS_E@byxZlr72Bb^}p
z9%>yQCOsf#aAZ@n(pVSuMOF~**4xMZR`@(r2EqZ`3WXmm*O5Hlvo@%w>h@|q0U}7C
z&b)07vletv%cveZMx^{&$BYwL*4eEQJO@yrVGSV^Az}}zyBNCKqiPMw%d9E>mj`bo
zUA64h7<EeoQ5$<(_aB6!EZ>$dlHPugph=7%wu=W-UNrV}iY{0lEXW@GZRRZMWQw)E
z)AZ(9ABlCCl#&8Rv;20rD#*wTMqA;Ho4={=^(-QIr94SG5_&a7_(^+mpYY1ZZRM}E
zS2wqPiMo`6wr@Z;J_@|mpiZ-i4u}Ojb<1QJ4a;p+9kAq8AKZ2Zzx=J0hNKHFLrRX0
zD!(bCCcQ{9Anf7A3|tacAFd>g?%@)bv#>M(O!_ahbT~J|miNCgpxR+iY{3F37!;y0
z@?{}cFyeQL@OZ}@!|!|v&Lrkb0c|iO2_#4@icmn!Hj+o4@>DyLl3IKZjVkAF3G-YV
zZa7sf^<<teH#Lv((*js`rp<gL461sU<a|e}<uc{T{}$1F6c|fJ!K0DCMM#=H+dT`r
zZyh#TEID&RMkem%fuAJ*Jqyc6>5eSuiOY^-d8TKj%9)rC0C6{dMpv2HK$!V~!|hH3
zcnCPs`kRA4!1ENDF*cTx?=mjQKtqPH4ypBjLu^mq=(Rr(QZ)-Q0IW&$u5<BuLV&dI
z!N?Ks;8oH!5X_Kabb;u#rF6aBhK-EJbL|@fE4DjIgOdGPE<h{_eEu&Z^*<o&-}wuP
z{hax+0k1+oW3qEmq1TT`toRZ`9XLsNv?I(%0Hq2NV4FO5gxNElbF06Z=?#joXy-e7
z0GaK&A5{K60o%I6m0y0B^K$=MiD5*K<;j+Awod|VqvwuQJ3)E^?8b&LXhV6W^PMAr
zpM`I9@Ba$LnM?dY<dqaiv#QFoy$Q$=s*t%<J6!+GVUowq7yqW(JfG#<eNAb9NeXTz
zIzD@$Y75i1hZywGBu3Cmh#4Tgz>Vzz9AMQZiC<|dPClH|t2Ro6J&O$5NDg5doiZiS
zYM96`J2q&xl#cMqUG8+(kOO*xgC0W3b181*KxP3Au)G~(>VZ<({GWB2|F5F>?{(cx
zjmj?cLV(F;k}=12U2bW539~_&3;Nh|)Kd!Deo+EhY6*^m#bJq5C2Ty*B3sh1W&gC}
z9a-~ne`<ol{IWHKtgEc*CbkpALPC?UD!^hSf5E!|pVMwqt9WsJGw;J<kG#r^gV<Nl
z)jPM=oBp5)he8UP?=DMQm{|Z0L%%F0YH~4!YVBZRg9=(6R)r$5dFMf^CG1Me`oKYV
zdgF3@<^c+<nl8nJs&^7ckRiWffPO}BNof%xu~80iycKrU*S8xTw0pJELUrHSp}a3{
zIta3XglI`z!QyG@jH%+oC<l4|)tCmhdoL?LD8#Ogy3p0><|f5($KNDzm@re3%sRv}
zsbVkY#+T|wiBYgS{j)Pr6#VVVh0(*ktTDOL%`z>~-10mdx^K_ppsG+D(@kOmfrkOl
zMe9n$8-HBlK$ShB9y-^A!kcE2<e3!vWTjV=^evTJWLjoP^~*(<^j{uYYg+Cr0Jyps
z0t~33#4yZ|;lTAk#LzA#K`91<BdE)a;Vcj_GBibrq+ABCAU$6mmH3DZ{1`TgEDko}
zeqp})=C1dSET)iQlzo-Q$+zWX67Ngm&ClKmaab4o^a?|C4WxBTc4$>2OEn@eaAE3!
z=;t~k{jK2&^^`L*GTEQB8VEimpm`GscHf@ktj;_D5ZCi337#?ZbYk9J?8dwQIM)?l
zDk#mIGwP>HA-n464**9YI%CWVU|9~yMeuoQQCLhNQ(p@QKy{k#mqhI62R2D~{{bwC
zhs#c9B_+eFh0~j<mvIVE4LzsFqS^rAo$k$49UMN(IL{qbK$xoSeoAG+uLvdgwG<;>
zMa_~zl?M(ci8@~{6qMU1mos|rUJ!rJ<ck2uJOHsSUo9{sEKivBtt6@I!==iRHu&X1
z-P-eEgJiS%S3;=p=57W9PUSFxo!c;K2aaa1N%+gK2?sA@oJ&6~!RT0<Ojdv^Y49>u
z1l54(<BdJsVxB~3R=V2&YWjqIpWV#vq6TJ{f0u^f=cZ$Y-x}|{bgj%WmY*n)Cti|1
zH8#6kiuZ|6|E;(BcSg+3u%mn7L=JxTCD2y<9HE3#rYae4>?yx*vBG!kbgZfeOYnDG
zuX{jy6jWi@U>MPoC21rx^6>e>C<q&Ay5$W$6o<!Il>zE&R78jpG-nRvxzTSdOPhH<
ze(+<ssw+LpkW@wR5TvoI1AKfLKGe%tmV-hDX<>zZm&%e`&jWZK+y3)x%s}U&2G%X`
z)nu;a8#;Etck}vm;kshTX5J1)<iiM>gYw!J3svUN(gy_U*|$V3cP?(jb#wC-@$%uC
zS&Ak%o~^HkPJ4501CNn8w+dmM&Q?@yV2@1i7*siXP1>c5`SsFR;n&Q$BnYb;m?lM2
z8*_EW#<u(`Vn|5e=oAQxaTb^}VMF~o6Dd+Z9jmK!d^DH%au`}}C?sUgB^XuNBK-s|
zIxKgif9YFg15Y2gOk$5rEq+&znkSK#g=~)BB+>g{h+~UG1~_q4rIIltykP^`uxa@M
z!ZzjSW<Puu-;`SNuh}v)Wo}Ay%7;}W-cq2}l~$DwSTZiAGLmuuC1u0O$Imx1>K3B~
zI=!vk0q_(mQTlWFTQj-lnuU|!#-tz@q-eUi8Et6C*{T$NO46X^^MT`|sOXg7ee7A&
z;UkTEB|m!lE7yIK&X{Bz^SgG=GO8kxKF_5gv`k`Wfh@zz??b+`qZFxRj?{jPMY;%x
zI;}iMd%%?fAFtZH>~dn6EbaJ+=fYwIb=B0BTwzEu45cE_^-1o7`<eD)dkKV9_OenW
z5C(kAgFzd3aiY($$o{x~8$Or1=H7}3N^FHH0BFUPpp~SNAJFL9>EP;Np*413Qavzx
zNWlSZAFTSUKiNLH!uZ?;>7X0~I9tP$K_3H~jCQVazkPB!dls}dF<BMi3MEE7b7r1J
zEi6g;i#<}C7c2BU5ezllIXmNmHj+F;rkr}s<?P6fXNK$FdH@ZA$gZbWJRkoD(cpvO
zg6nm?*d~VtToNde<8GKACcU#h@3|~v%~2eKNJqG9u1|g)UmR|@8Ez&}s4y9k4tw;>
z_PTpQ7!}`r(8C!-ULIg$1J*9ApKldg28dKOTaiqRyjd6ZY*^as!FK?4=c9dB3hy^b
ze+bnF^uIN8?y?+KnkQ>H3>cC7c^!uSwe=WMUZUl?I%C<}?E%jKjM{Yn@li29bIx?j
zzq(^JP+(F#w&t#Ea&2AEuy@xsz^N%XD72xH;YJT^S$}?cwbwI4v_S>p&G*F_st9)i
zi?kmof7$J|g)J44X9r*!VjzMBPH%0DT)d#Vj!KHAupTM7Epi6}HuEgEV5Pse9N6*m
z?972u={!^>&^tk@b^pQa`oVA<vhF_xRvpv6z~rc&jbZZ>f~6!51_8YZOW8Y=e?U?y
zNR@^~!}>bBRQ3#&@9Q2FhDez58Vbg#xS*N|)yuaKt9PPf1RvkmNl6RR0}M!^at5UA
z;Yi0vnj@U*v~_sZ>?71r+!hOus2D*DJ5*LsJ#?^FZ6(H3K#R|4ATD#*c&w4~_zE32
z072(uk4X`F$G)HbE!Nc|ptCWSg4wCDxcCg=8@3kCU34vl`l*Ig5;^Jl_q<Yf{6~gT
zvtTE`zQS<zZKg2^SK%M#@&~&4FN21PJgv|b4B#p{+2!m-w!UvS`B{b1Ln*HV&;G|i
zsh5q<R$QY!?p#XBoD0OM;wp0^xCC|?^@N|hsQw~Bdb3$zX)Kc084jRedRJny3j($v
z7o>2YG`(vQrZdKYd3O)#jOBxVugK3=TuVnFr4Bb}E5NLMltg5?A#$~IaS}l297R==
zYns_z)95kw&z<_OD4mNh;!6>)I~P|uGe1Z)WN^1b{7a62!A_i7RHy!|!(!N@#_mL~
zvF&tN-5H7$xz{djt+*)b)`o8h(6h|Z!OXcl)4nXXx#;;_3y5<uuiDsO4#yn2RWrq}
z*aBb+r6R_&$1<o27+KJ~E`V?GVfKP7QuuAU_M%W-_y@te=kXadKq#EsVqERfvu{f?
z9+zjLOnw#Vl>)a2b0F*L@aiNYUCEc<)U1GCojw%GZ~z4v8WV;QN9uf`vS{BYGyRi^
z>@eAZ=BXBejH4A33dCc;jKfP3QkTCE#$7%|c(nPIrC^i|Nr2s7QqmqJzSg(rWg5hI
zAYcgJl<b#o4#c8mHYxmPwz(YJr)G)6p6Z=5pfc^DfHP=S{vn)F&OjZhn=#f|ZF+vd
zHLk>g{Q1m@@O&3gqbdB-2ATK?Rgajk1`q-_vv8-SW0mbC{%p=5f71h!bgXYFuzo1%
z+rEAD4-Xc<nXi_fV2DYV8eYo*=r8t6dD;j;x+7rdl<bG7XNF~M?oCn;gqrK$;nGI7
zUvr>8C-?{yEZ>aad?#0Y1aH)F-jp&DNt5VAuV-J<X~pMQH*KjSe{tB3mv7iG`Y<=L
zV~o(XdsDN1(^O9aY=ewvYJD)1(WB4&NI$)gRr&%Mvjh%0W=i)Cwodu9FwJh24_WQC
ztcNYu$p<m3Y>CeaaKRQ?!AnIhUIi4o603fF%3618bKpD+xuz~EIA6P*Pc73K7{M;{
z)m_f_jZ;F8K-UwG*`ENwc8(@3XR;^1$f+0pV=aK?LMGh?RG`V|zK)AT3qU%p8usKK
zwP|DgGFANxm!Ex~$m~~}CRP%P3AK@Lz7K;e7p^%CJ^UaI&AI|hPaTjS$lHt>xwPD?
zegeK$Y<PQ8pi`V2XAnl6E5X5oswbqDQZ=pz1S-#i;MKfo2VpTgmF-WRh`&wWZ0R5X
zVoPs%l+^l<)Rz9-tpCbXP{=OH4sxjqe#s4b=w=BkTu`!vT@gN|g0M~Yt(FvYF}PIJ
zqweAu4Lh7G_2JpWziec9Wla-B)9jdSi;LOs0a^D-k*(!A4KP!e6bRPDL3}Ocl%hiv
zO->-atLkW{(J1KU@&cQcJ+0a_d>Q9~TO}+{=SXvWGK030yJl4&C`5|VBa{RSme>@W
zb@!Js>6lLbaafkoi{+K&IpsF9M~bM&bXqm{&#uQ5CyQPr%`WF!!ZH>p)b~_P;rlN$
z9`*`1cdyPEyh)aNxt2sh<tQ;QCA&!cJK{Swbe}yXuo^!D;lOuDOg`4s$+|_f%67-O
z)1XA}<#TISvZX|icDPu#M1AO7bfaoIz)Qn+e3pj%GJzq5KtPUL4zG)fT@UomZ3kSw
z1jjrDciC^)ZPcy@H>KMKV>RJG%y0@D4_Q0IA6CYhlvkF!LqIok>!f0Ed?C1B6_tIz
zNdX98^BhoNlPe7l@QTxTV5DL9K~gGi?YvBAU#Mp1u>05>s2zUYx%T1^#BBlK<aWiJ
zlng+|cYEFAH&+GSY$Mzr9IwJyFLX5!+O>x7m1c%y%6rc*v=On(DeOwBA{A~ga_CyB
zVe^43Yz@w9^3%HP()4&r&rz=;0}#Inx~N7Dxh75Ek5R#bY6IcA1d9L(5?@!c>!^TF
z#^v>T7x98rtw;WjChPA%{xRIo&0c&15h6fX-t&+WCf}R1Ic6F~btz6x!L@2uNn^Iy
z9;bIdGU6HwmWh}2rEEB(p8faqVD!v?J}qCSoB)gMIrscJ0Kea5bY;@ov`#UZxdZkm
z5@7d=LQ(=~KpOEv6ppi({%)^M-$1+9OFSX02MAO4NYXFq*nA+?%ayC#QuQ<FS)?6e
zr9f%OlUJ(Z$o05$<m4aBvX~$Vl0Rj~W7kOE%<3OTL{~Hqaq%&PWx*x=jWR!kJ7ss^
zC{Ws#QiMfa&9Lr;Q?V5@G1NJu`e055x8voR=`5lsV0VzJof~-&=D1s-!f<Ag8*CE5
z(fmrUL86<&ct+UBTN@eA&)2d`bB$>AsE3;A`VC^yLVdL#ubzDvV2-EV&e`g{WX3Iz
z=3F~a5#i>uNEsIfk~!7qeurtKDVe)wLx~k`C&K(Z$HZeDl$r9T+~#k3lQY(<%VXl%
z8fN`Bz52qMm@k>R;glxehQ_9qHPJw~h{|-mqa@RkIN>NS^`BLn|MRl=KT>7+CnSs{
zg_?7Pyo!43R!ukWBNC-;nLIK|A6cy$Hc;LsEfK|P-uOpgSbYz<Y6ZF%=qJ0_i+u`V
zt%-jKkV4cENv_@+;hFu%k=t_@-D!Fkq+zUQVbFTqDb0%KfT(`*{4Ar+L=$@Y-vQ}K
zEug&M=1wQH>Fppp5P@@D>Y9wIh;O;^@Zhd6dyk<rCrEJ6g~yMpD+qpwHxiXpEw2Q!
zEG{1vsgHm(Vq7lNt?rvTFl_=KgwUG|BY{NBv!`saWyl^!X{p0b@RfZT%dCv4TGpg)
zP6%S35nmLbfLMXmBAEQrX1PjB@1o(hoF+Uv_4PK@1NguB9GTE6$;ZSVooi+fNph9$
zL*r4W*ZZqn?qL@Jfq@Wf><%i4yk3XAT~RT_$-b{EQT%uSr7#-;x@fsrE2EijFw{u@
z+Qn~-r()D-dtksav+K}|J)-^PWh8B^VKwTe51PpP6W0+1#9n%zbFn~{+=2UQ%5opQ
zW29nwm|B-lD2--rSTg}iL`wtg?`$%Jl4Xqc5M;1rw@nA0ayLM2|B}N#2F&5H`bcY1
zhd*c{kp?7i8b#BUAi7wW=XgiS<?|lW*VMdFywPdk0<Et4bFjOh{!#+~J?2wM){FHp
z!KW>fdzzNV_ALNOd%vFGmSXL9dDwD#9@`J6gG<)i8qH*SZ;SWZJ1B*)Grw(Qyk7)d
zoI;*1D8^avh#k0>x>KS(XN-X>Ls0QmAc@PXfVqjy1=Z~Po7XGnl8n@xu?-!+{3W0$
z@&*9n`TQj*0?J>EePvK?Pxhc!Mg}5o2tEXeepz=ydioo9lk=JEK-}8!_=6zHGi3Aw
zS__m$&8P9J1(BwL*v;z*9du(Oql*)22^{kYd}8CO*Hbe8y_L>?f(`x`x-i;Hmw9mu
z$NsW|FMBu2BELc58c<#EoQApQ(nC;a5<b#PFa%(8)z2q;O%9ba;Si?Qt*#mX;{i#T
zX;$XF0%}I1no6r8i`XKyQJ+&WB?QuS2Reh?cASy?kIo>7nwps*t%h?EJ;YA>%!$hB
zc459t?;1=dDF>+OhI77a-4D&$)C^Uy2l6wX-(jLIKO|qo1oWtr{*-4T1QLm{cVD#~
zkjUl#%i{RAMR-YFxaGRhb>HZ&zY9ovyMJUnMkKS7u^m`3RfNs2urf?M0JVo&OLKoM
zyZ6k(a{TO7v3d6NkmX?_Zl8U+1M}rGl2oOEvNtRdh?^rH@{MrmP|Yru)KNJex&C!U
z*-reWbM6xLZFc!rVz2;2o#+i^LW#fROAXd@$EHVoVZPBVuUhl$>9-=J<!|%^oJj@D
zg9tNZ(Xz`Y1&!;5=nt5d<3^^T&gvI7Hm<X=5-3d<073K^ko`wOPw-*4c60|-cfH&B
zoF7+0Y27YSI2oC=EFjlR3h-T7Q@O!dWlvE_>iXWI?f|Gj+#8zkJxBdH|H+KjEs&(G
zqajc;GeY^U{Gr>4_C>e~#w-`c=@9YFgdGuRQY5kt73-XgRk26ilvF5zf>NI(E6zK^
z;^AYe2~H`e4#d17klOlpB>Wfw1lsKv>R?p0Q99__dhgD#ab0wJXCkt4E=x?^gB!3&
z&bK9cw&Y3riam7!$U@h+>>8OqQ|VHs;zEpwTq$Son>UcUvEuuG@P(C`b6f@fFp)Y$
zjVf-X1ZSXbNm#RfD=$Y8Jz-eMgrI^2J=ce&Jgff^@L@!_@5(Hq|5foamfd@qAx)`N
zL8LX3Q4HItWQ>0K8jDXwVe^f@Casfl5g<i`OINVx)L6pmr3nttzdh~C{{krdTP^%|
zrM-WbivGV6=d2ePnU3O{l3XNEh1ny?7XTk~OQ5nGjTThM4y^onSF)ZC$dm2@f<6;l
zV!^QSg$fM_(;ju}|51+e_blANc6-kAUe?q9;VVV{nX(8wN!T##pzNaT5sY7e3^)ux
zMf=v>b5+~caD7HSdzE?w+v*@RemA0EkFRw1Al5i%Mj<6UZn^nGxPJc&T)KUO%h*bk
zr7HOvs(87L4RIQh+OxL;1BkdHodj91^CLto;m&gOnGy)T-2E?#lH~p;&u+bFeir$)
zbM7d$7gvMLKD%^2$1&FsWgM`)oJqCIDrXR1k74(95xpeMJ$of<Jc4n4T?b7X0N3Jy
z@2;qvGH-AlG(m|?sc<XS+DPY8i31WyWJub#I7+HYBEJu07Z83JnW5`|-RHpSY+jJP
z{C5Bn0$@ngc<18MWk=2*`nFP#bNmhPhb_C$1^Py}?dm5?o3XoTLVHS3hUyPF+9(pR
zwn*=txpByC{NlT!1en*%!i)#e?&C0Mb_WkeizNm*q;rRBDmkm;_so}R38z(GWq0{a
z{7{J+WRl5T^I3I5bT02XR7~>`^NaE&SN#Xtml@#X=+DfC(AIwR9@GrKX#hdztj!h7
z@GbF*K$EHY6UYh<0lqeeo*sPBusR%n0`JUZntCjLS|S4L-3@N(XZH%y-4`Y_l;6dp
z$B;(s3@^DEU;YrV^_WALVJCaMI?H?RmR`w=icc0ZI)-CLPDrjh4b_pzCHSUA%tVBO
z+rkjS4f#ct+>DNzSUVsg+()=fQW-|Qe`?ML{w=Zg(l;teYOGDTJ;h^OWhXgpkz1<(
zz@%HCQUa?*7q9$^aXtr{a>1AQyz@#fG9#2X_Y&7H{A2ZDF8Un5a*)_?B8->oWt83h
zg%qz6{+enoRB`6y_r&AG9)mS-+P;O8)cl^!maAgd1U}Ztb+!yQIoMrX+b{fd8T%Ah
zITYF#ujz_KcbqP(bR8SvW1~>>1vu8<O<J);Q6;l(jF50T&(9>gizWK1q^#N=K{X9S
zg>lx-AfMKe;!l@{RRD|KJ2AxgN}O@yhej48d05<d0()X|pl7lMcv1-tC*;wiQjSI`
zaLbHIKnto`%k-ahtNeze<pR+6A$E-j>Hur><~>JIFYlvoQu5+xBAlAZWhy$#%#ujn
zu0F$><<UDU4b&G&&-%Zd!xGF>Vk3VLxkLf0Ly+GtTp*t`?jKKhRCli45S2s>GV>@s
zZJ4;!fP)#9xa;AzVe3wJog)zV2cw1(D=Uo=`}x*5t1LUsY^sKfNMR$=9+~T<ncY)Y
z0Xkc1SVvgOi5x07rjD=G)eSPnLA4eh`*;EKNP#oGdY5>Cdf{}yJbcx8ySQ$C|H#hs
z6#{4rj4{qD@CgA2S_d}hMkt)>-B_-4uLNL@RlvM%k9K3NGsilq9)b**uM<=|`p*M0
z`h}3Kx5Nm_bY+aAHf<jTTdwvDdk~uhYkxG=M2ajbR1XvyNvuu=*7wpf2E=;cxd5Un
z#ygF{s78JP)0Ii8RhK1~J@2PYL3{QB2fgW6L~`E%DJtY0&-_;)%a~IvU^Nw07OQb~
z36bmM2ZiT&NbOjrGt#@RK^AvwfIkRD(aiLvZt+5{tGGd3zy4f~ClU!{Gxc9ddY35$
z)>Zv#ls%0TJz;mMBcG5_DdI>xJY;~8?7)JqokuZ<PpqU4SK9o)@Mn?CrAO4>fjVi7
zGQ|(n)DCajxb^UFht3|}zB_Ke_n#N#e766(Vb|ySXJ?1+oqB8g`^^hGuOI&5_RUL*
zg_}2Ae00dpJK)*l-*;}h^h?IhLx--P&A)5Wur>(6Ef5<a2rN4%YldGA;TQ=Ss09YA
z!mfld%&bKH7wG-x-x^y~{qmc9OP1j;ZCxqRaEx6_PTsg4P;>ulJYffC`L3F3R<$bS
z%KW`!LauYR7MqqbUaO{H8PcGpp+1y9z71@gHlCvf2hXeaBBNl0ht`;B%Xw3<O6GVa
z*y>8ip^1Z0ftZ1X7<XSKa1uBq<Z2Mfq%Am#OiLesqsG#Ru)`paE_L4*sA6{K>tIHR
zLVgKm1%ZL8HHP=gesfHpn_@TTG}L?b2@D#4a68z$n#!3k1J8WMiSDQJ+1bbNHOLaz
zlC`qBBU2xm^Z9WpD=ru%2eOfI+fki<TG8nn-|fKe#urtMQ^)i6q~@1I<d`ZQ!`H>D
zHCkg_jy7ty`C*z(+Gr`!=h~1ZCW%&c$}bQdWlhHM{fF^0+Gd<5b{cfDK0eYt_s*Ud
zh_<o~{lli1prnXs$|iyMLfrBLP)y|Hizzdj)>RCxNbQF)Hqo$cPxZ*!YwD$F3?|X_
zY%v3eIUiI%gPiF+i{5eY%6#cow(+U92`_f^#Wc~%)Ny0C-1LM`VTpwE8vBY8ybR&@
z3{7(8H$*#ii44#~@&XkjuUt3IFJ{S^&$_$RRD-xThX(`(cbZaP<8C9!e)Vs^+0(R~
z8*&I8p*P*;*_AhHPa7aUbEEi%<5aLn%ef@yfM><2UK!qBI;xiX!%01->~?p8Z}2-#
z9lQ)Bg!h`%UCb4XvHU;}<t;JgLRIqcGlt0O8Z)rEx$P!&&Z)$^mb)MEGyf9%Yliw#
zY;EQ^Aj*KbjN!8s)`|#gSXo*>;2+!IpBToG;T5tzSzBFW5w_3jJ?bG$^tt7la#Eql
zT`v&rWhpZZ;G`zJ)o^l;;Y6QIAon8J_{n(VF^@|IT5SkS^m)2R70<P9t~hD<rYTJe
z%e<p$o#}J?PCK+i4+ET5_VgKHwM$JuOMK0+CoEdta=s#fsj1e8#&C+?`N8odmQP@`
zRSt0Vwi!mhF!~eOtDPTyO^zbmb?i~^(V@um4N5kwzlIEN&Cj{hMNtBk>_E!1s4GqJ
z)U4BAQ%)`n_tyi82I<^amf#iX)sC1n2E)=qR=;zM&P{N}C_@g+YEpU^$AFpt`s7Ow
zi;#<ufog@>uw5@AV}+@ehQ=DeU`v8ep#3p5kpdyd_-tE6%K6i6yoPX#V3+Ya#Lpq@
z%C9w65eTWc45ucE5xMj1Lh=3zJF6X4Cx8=gJgPjPb+^-#hQED2t7Z6$3)6ykreJzi
zEx)4OIGUYz`a>=2n)vSGHn6;sP5r9sM1$o(SJCb8`WVy<^+>z%i{rvasoudF*7$bR
zv7?PHkd$|RsS&QUy+sxK5fG;Kx33xXlx4+*NY~9ZA4=Bl&e<K4-GV#YLhDllxJ@x5
zGVv+kuc6o4J72~O@$KaD`rY;oJcm%q0)dY7C#ZGBTEi6v2<@RLKCBa$GQ>|ubORP~
zbzt8#2O{vuqDIH%sGGGyMQ5D~*XAHgCBWIam$DWPMqaLC#;FJSQMc@jITz=(^x=uN
zs2YK)ve9u_C{+6{u13NtN)me1jK|8Ow1>?S3FUCbJGU(ahp3j$*if6|$CO9Z81aw?
z=Uhwn+2kJB!BNYsR@PQXV~1VHTY5nk=ab=hA5Hf$1=fyh2;BXGo@1xc#mGj6y61ML
zk;|j3EL;1(bp80NicPSINt<p0`(q9YHw+8u%%(1+JI{1fV^fOwN~vod0it-|Ycr~L
zSfxIOQDHmtEn6+$I`f!*r!LstQM?j6)l~me);qt3KqE8Ge*WpCDQtkKI*sj`>i@My
ze*!iFo}X6B_piI$;iv4eFF0U#{$n*tdCY2EP}g7mZrQ9)hLe4kV>Q`)wz}4E7ht8+
z#0Y&BwJmZ&vwXj7bCpWHh5+wme|hg{Hh7iPfT~ezP_zm2z<6L|Vvx{WXYDABlO7u1
zEqygk)|g_s=mWNsFzP~}Qr{Br0>xI1nVt~;-TCxN?*0m|PMUGC9cHAeL5u{G=)dJA
zoVAQz^~0pt8Xq*l3sg?!Bck1E%fQjFyw@CcusapvmuBz6`b7BO3G5Y4(sQ7Am(@3a
zYPD?Rd`VSn71Xb(w~;lgG!teYrZ$PyCqC@-Q*VrsLwbSK+H!68){qfAq;=cOquy35
zH$^EGeX9=DnkLeQo45v(W3FV<9B3@vQa+!y;5ON`n$)Xi+~furL~BOFZHp*7V0F$b
zH8f2`e+rJd@gU|@0(dO6Mop6)od4JEc!YkJ!S}^fr|xuhgD2YN(@()F86h=Uh|g-q
z0+EQUzT}LgJ6#QSa~aSr$piY;#lrw)NVBu%Gn#4hY(%$*%>IH7UBqfFR^)za0AyYB
z?%QIjKDA3L8Gbb4rnxw`!GDZD9zdq}aJK)!ok^*fBLw^oyo>w_2Jd_8p#FZ_nNyiT
zT>Rsp$34$=gm<*EKKSJTi%QDZ%`0OeL*;2mJa_ptO)wVcl+5@4yf_VB8s_=7D}QKk
zY1Iwacw|GA<CV7FRZH$>@AzrD&_6ma?e!e_m9R++cqL?UG-UB}s#BVEo9E6@<=Ti~
zxAYu>o@I2Hsk>X?ffoo$87&;{E^H=rtoY=H2E^8VrfzN`(YSY0@#Ym+C$BrXYJPq!
zeOi}VzJ=4i0Eneh{tH{*8{dV*Lv2%vowtUsgxtY+v>n<|F;<UWsHD)%+6jJQukh~=
zt69(q7^uLN%K=`Ml|{<lrUQ=t;56V}+qEBI!_>~0$mnjL4HWQvmP|%<wJf7!ilGa*
zp@>mWx?H%%W1HR$jMcGet4NSZ$~)Esq_MTIS>G+SXD$MGw-DT7m{?zFXGPaHkM0NI
zXR_7IIC*vrbByMh2t@i)2cU8?fhD+Y3ls-|amoA0eb>|WgMM-04H~lN{#4u2&^ytX
zb<{Z7s%G%J$^L#5{Ec$=Cl}Y&)L!`AMpYk=`t9v9$7r?k>!A*{IYmFWlpZ~=zDuYM
z&or+Cf(`yUKE9n^!_(6nEe_;+Y41Pxs`ZIBN3X@mKe5|lenhRLczf+Mhg+lB_SnwX
z!3|Tv`W%NW_t&-9oj>5<lm8^-El!=c1Xs4>RR{8i304LOX6@Y2jtB&^P|KN>LwGEl
zL{M-|ogV$VC322NZmw1O)q)*!zNe^7zxICk2EbN&iQ2czCDByGk+$n#EA#m|?8uT6
zF;lT7&oueUJU!9ss!DE1XzVf)x3`4Z`HTneUR1gfU3;8)r}%Xd)wsjB*Ru&crqgYx
z{vx=wl)IdEF}t<)FKrjWyI=vVxbvR#rIZhTN7|xv_IvL4&6NvpigY`eI?jdA)4g?h
zM%w<-?oLm6XvAXNvA`mgoRB2t)anmDAeY-ZZEtD3Ro7aSG7umbW*Qqe0iL-S0N0OY
zB`7$<67W(>9ROU(1ePUiTR1k9<yb-Rzi}t1j`A}YW>_%IP~(-go5TQ4$xMm$>C3UL
zEEk<C#iy;nSCe>84H^Sj)r!kTa3!!i<|31s;rnRWfNET#7gXY5ZCEZNvmXWi{i40q
zsC;&D&9*bafU5mVl#$h{ML+C9-q>_C@DD4c{CHtI+GxTM)M>bVwtMWL;aQh09$E6*
zC*uH1T?s<LBSXy;g2=VUqpmvy?uG9IAa<g!20-X>YH*GzC&!LgI0bmCHXKqraJAaX
zK)1!2^YxxM3)>A@{qY9#tQHm?HjCTQ&MY{NZu<%4S{Ol`GN}w;5tZwEi$Oz%QBwkc
zV=vBoYK-66U(vZimcK*4n9iM)Xd0#mh!%W0_xa?te$T<?Y9RW|Xn?EwOL4my18y+{
zQ60@?8Q9~&O~>``0tzgc-)PyL%;ou9w(4PC`o=!!oSqZezc~G%IWiA$vYlm@{pT6Y
zO7m<R-!_l_qkuX^1$$KCU8qP%8rrf%z4%d2HgIhA=VvQedRd(wUSF(W&pl6k8#Y|6
z=|YJ!Y4d&*DSo~f0gQ!kd~NDcBw>Gz1fH&#(UNQiv^?%dsP?*H>)i*g8wF<`H5OJb
zG#!s?3gvwtJZQV%=WLjCx=VC0@+!68%P6SiRLuw0_W<UJ12c9WWVq2qmxRw$14&$|
zH0LC2j${A?ca*hC2%d=$oU0kv1OjE*=^p`tRb8k;%wD#OT<^PYxm075!DlNAzkh$&
z*3@{0AKpv$um8Z(Q?Bbxi>ncE?rKuT*ZAnBfVFLa_x%IA5~>jt$QXV|Ifu(jtXF;!
z@h+ON_qGKRKOAM+8r&7ozt|_++-s~d@aFa%|6Qz4s`gw^`B=R#)hs%xd;t!;s|WwI
zaay+7EzcC7r{U*(L^qBFD0p2C;gLG8i<1M@*D_zNW&>JK*)zF0>PXuq2uh>dky)Lg
zZl;M_@UPAg&kbb-ReUZdL^My4NdaT`P6}K4o`a1s7txgNJ7Ri%MWAlp*@Ef3AQYF5
z_;X>hsA4g(roHVZO)Cr9$?~^p{a%3WD(QMo^sn2Mk5C<TduMRxN_*FHhwHP|U5n8K
zEGt9HN1?4h^k!!I&2RGuo#S%|U5n*`?!<?jPsb<vEOjH`?gPz)GN<`;2oPO`J=N13
z6x<VYW+7=L{~O;w1?2O5zh{L;RU>@gL>13W-MF(<O#Tb=aR9vRf2yIU_(-)NZhD)J
z%hweS#7)%_Y=xZf!;V0!n^nDslPJI9vZS2-5beGfVIde$(oczAJ2;&4;g_%cq4IuC
z@Gh<4)t{&Fei3lkU|4i_DLe9Q2EpC&Dbe$RUQ@ropq6cbpv^h8{zD0}v&M-L^m%r%
zZ<mJy0D^;v;bu=V0n4$`>94Z@ly<?%kZBd-fZ_N(X;#LJcZ0h-`t|8i_0&0o%!z{p
zB*w2W`ia4L7q8IPAj?nsDb4kNtcFdL28o%g9`NVgN`>W319<)sFf9M|vzEuzg1582
znEad1>8J1P%C~XQQVcdS<0mbhuSHq-6_13E!@x;aA=l&vo<B})^3Bhw@W3%G8neaP
z@~N6^1COHYa$tt1V>@Goj%=Uqi_<x$zfkDfs)`v89g36(g?tEW`uyIYR&(M+kJylz
zI}X6A>rnPMxv+ejQ|nD9_;J1DfuZB9KDT#%z?e_ps0BO%6ws_xC`AYD^j<R43ihs6
zdhuNq33pukLSq}2zb8@5X<7tcJu3Trn!ynJ>%qt?S*?@G$5eNxLqI1y9Zx<0RT>pA
zA}4!awPsi6#94unb5qO1de#8m<1#dDX|3O1O|Li;B0ur~Vd+koe${sF3ng8ZZ4Pez
zR&Eg^Pb^3|5_lQP`g97gsh%+v^zh8}IxJ^k2n!JU-Vc~#tP`3J5Q_PGF6Q(L&Umv*
z8g*4!rH*K{LY&GT&ZI8jFb6Y=UTo|0O=LX9B*whBP9y&{fAMxEB0_#gC~#E1Mx)17
z+n2|~{(N86`YRk9lCK6$I))5u=iCZiK23qR%z@)jgmap#=j&0!H+IH@i2^)Wv2=O)
zY_3}@BD$NVM+yCQ0kf7C0%S&d9HNc0watYEa>1+4X(p=JI+T2cxfOlDA-Z1+2owhD
zA|at{k{&Q^)CIoknsKu1YA$rFkiji=!D>q$REnmX{pGYzO?IT}2)vp}+C25;9y`W%
za>lqSCMN|G<VtvEeEPEi*a{3j%gdgJ6dbW#jb9=j^Ux6S%U9#GopQ57UStC9*+)>D
ziXTB8Z=+#WY_jOP_7Ad?G0mDjC_*o0<nV;-CxNYRk?WIj)sz)PyI_U6@3VQ@P`>&S
zEmhG%_;K{0;V%;>Ci1V&3&E?uv~98VeL3T>Ps8Bw1a90<eW@o^k;$}J!hUzLW$=++
z#(f$kDwgh`5x`Tq0l5WJ_fzP9N;d1CpB?%i)T1X(7F>B{e(n<T{?monRQ|U=)sU*T
zzACKYix3mW$aSMyAPN%M<<<C|sy|`Q`l!aVeALypZDyNH`D0MR3{XAfME@GM0mn^-
zYb?29LNU!}+Kylj8eJEQqLNXk1W5g%kE4x?pYDmOZz?I~m@ApKcXC`qt?+50qXrcX
z;(|+I-dj;RZG5|KmPrET1;CmrOt*Qp!I!aZK)TCU))o4FVacAR%-pP}{ctH_+e}9R
z=uDjBh}V_Oh@8MJ5b?Q^w_!J18EWZ;=RL@zQPN4AlJ_kulUuJ*8)EB5(H0wGA-7yH
z1L{lZY7LIJJY*h3T)`*_>(R)+l$~yPSU2WrwDI2g*#ZxCG!SfOxWGj;v-Xqp7nmH(
z_!O9wRZ$Z`&K|!Xfe1_2ibFnY+s=qM6Nf}hgXfFFE3;mq<XD2_)2}33E?VxhH!xgu
ze<f?SjfHZLD#-%{-lmKVj198Q7Hk#8^H7slqoneCl)`uHBMHEA;BrHc_zf~?bO?AA
ziHU-ejZU{w<d2~b`2_bRCzpnzF+B5m6HN2zHWQ5{2RPGOeJL(ATTQp^seJqB2XA;~
z3|gp0mL&Yrg=~~F=15rSm^wHwbNmJPw0X#FjEO~vZQMfO<)VYVE|}<|ftix1*3gDs
zt)Y(iH7JnF(=}rLz!NCfGWAcUA+6?Jjs?=)86wejFZO|fZYMA!FT{%s|GvD^3zpA(
zmZ#2g#*F;hrl}TjxqUl@w=lfoh=FQE+)*cIj#?#IhS<nyt<157Z(%{_*teG-*6U$L
zj<uQFC9Pe+nA_c0zMmR;J?A<_sGQQQ*0%W=MF=DaPY&eGnRJ)4#tQR>MZ$J9R`Rb6
z-vU1r(0E2oLS8QBpvmhP30v=38pbs&#8XKgU`6lY%C^V&?zVo#*KbwwuPA=p?<3mY
zfdVtm7Ie!F8D0}GTfcvq^BT6sclqg_%j2gUta-Z{uRGYV7H+qNE9CyvK|W|Z@Z|_w
zapL}V*uA>mG0w3#%V4@Ux9rI9@aijuyhuOyb<~Y^Pk}E6SA)2<Ft~O3nhD!5K;L5i
zi=1f9HZ10`yiq*}yc%wiYprDC;o-s>Q)3T&!nLNleb@Es;R<uFaruQ0L;&eB=ALOA
z7}>s@3va9f=jshwnliO}LrU&8kRq$bM^cCGjj>lE+bw!(4lH~b-^B&weRpdT%jKBP
z)xetVv-LeO9?BiU!cIA52MXfyJMWC_;?6wffz}SpdGd0^@CJsCQZ2-!SQ$8SqTNE+
zm71B(Y~u2I<!AG%O<gXRG^=Oz&&?l3F=B#P#hvnSTNcW!Z)kGq+@oHcA?2W5SkFM>
zr3Pk$M%=(B6a8N$dw)(oa*_*Ang99w>Z*|Tg=Z-j?vXX#c1+fBz}l($`VpU&FCW!}
z*7HNyT&AiG6y*3B?V2&32bSkjqpslb=@6ggI43|WZnPij%~OlA`)W&h5>0uyfW{pc
zK2}S%3>izkTlrXR0PLjj{RpHnG`_E{<aqBLw@y78^H`dP_57#Q*A$zYi>*UfoUT4o
z8H~EweqqiG6K9uJRNC=f6&Tq9{8e4%JXN^I?(56HUPs(^#cVkm0ld~^6!c<Q1Wg$U
zy5f=b>XMx7C}rdePiZL9-TmqKZ7}S~>m9qT+w0b3eFiOS!y-v!%<kkP^;D;Zs4ow_
zZt|mZeiy55Z1@LDJfbewQBHPLN+cM17D&GaV#WE@Z<*OZ`t|m;die!q!va^(wfVBt
z*Kcxj(gGFAM_^ZmOsf&Md`ey?kKxE@JtO?np$3gM8g{;c`Mk4G-zl(3%zfDm%&x7i
z3rHLK^=;D>2ir($JZ68gzg)ON*#f$?kEjA_5%Gr(tf_Mt@}b1k*VL}mqjF&fEXaXW
z21IdnnSN#dYY<8W>C6ig@lh8aD9m#y{YAP-wC5HyKnsl>sJbv^)+KkHwCCbs9o#%~
z;MsX#3{{(al}Ay|b!$BCtgs#saLAG37?+YA$7)bj-lBoAKqbZU6hh{BgxBy|7j`;0
zY*7@7B?IS57#1I28#ye__Kt1fE;O{xlXkF!*i;BnLD?=$gpuprK0AY7P}P-<&H<*#
z`nKJ<t2`6TkgthKPBr7ZZ~N#1<M4#LP2JKqFZM|K>)5%fi?6v9;j0a#R;Z6P^9wIH
zKiQIs&z9ZMt~sCeayxf`?PH-b^si{XQMYyixfqo#+k6>#r^NIVZGk87+Tj?*yP>%G
z1{J%7>yV*d;5u4{`&moSM;fNFWQ|sWKW|{v)9_vqi1tJNF6=s_Lcq0E5M;?e{bo2E
z(kiP%pPRmOq&o7Mfa@Q2{%xO*ljaqtH=Y?CxUkDzNnFu;?247_n-o%5%(LU@et9%p
z6dlB##d_oiU5oi^AkpV0*@03H50M4Qcy1Bx1@^7PZl&t{teO8j@39*4%6x2Uord+*
z#=G{QK^t^M^avpfJTE*Z`}2$Fis9AI8P!Z|eFK^+8ckhQ_c=r`3B5(BN2gS@_NjUY
zh3qM`A;8w`z?C^gaZlfB@81M6@$n4HX(-OwSF?x*8>h^Vh#{CjTRA)CQ*F)y5I3<l
z36yCxGP#(Gv+d6y`aUqu%dMXLu5SnH*PGTw+>~RD?z8hnB-trsF|Jz-spE4yuw1Te
zPeL@PZ=g`q`W5dyUa?~^#%*;_Zel~M@_t||mqS-Dj!Ut0YQ23-NA)sFH=^l!;B5bC
zB@gco&k=}Md(wgMA(CEj$|}{Yt1qa4v!Iz*MY55{*PHa-%1>~<Dg3IY51vm<RV)|T
z!454v!*(`d&Kph0LB>YPhF6{2cXazIj);p=5z%<75LRN|QY1Y<l&{pk#-lD+wx$Np
z4?Fb_n2IymMtf$AD1jfe>pceaIl5bA!YXoM!1lAMPBy;7x@P;^UB`4ZG!#eN%*IF#
zL^juhZbP)(^1GknxeC;gwiH|6h`b!_Uqv6b`|e`ux5Z<cjmJXy{FG*V1Iiv_(lILt
zX^rq~fBXqE&hR&$%{`lJ2^t&_ELDFTFa=#1^6oz_D;Qlo$^0l2>((WsDN}V7mNmY}
zW}!0+l02+J#EgYY#{$h5Cw<abjMSBzFNEg;*m+_2ya*v$=UZrR>q$=iX;V?}g5cc)
z(Ma=zv1?|?k(zXki17C9y>=-pZakiX^?axo`<0r{g++Lz$(kcZ-)H_JBgHN)@d~EZ
z`^?SrSC!w=<WJR6d#GXAI@QSPkNlUUm&1?!O8xY)e(oOCRqiq^f9e2-)Rbd9D(W>Y
z=izpJb2>ycIc0p|n5_4{lI@>eQz~lY@%a;oLv85q^}Mt&_?5Io%AO_|*>a1vBSmQC
z-#?(L?BT5rEh&E+McKZ*P%bBO%N&n6W^Sa`rU*pdUFq&dr{g9L#T+qWmfq6XqMd<Q
z0Sytn-=0ANBJZin^*=QqT|Qt#dVi4SwnY%T_(uYJ6A<0VHp{eN&z));!{z7awhcs$
zWWO$dqu{%;oMK{dUCi%S&7q}e%ieK7oX;+g9|{w>MSAg=AaIPg#gLb+Z+rJ!wEB`a
zT=c+SFXelCYPKxtg^(YIX+Ao(B?6y4-kdu07Jg+uaL<B(g5_RLJl3QSynNGy41ZH!
z{IZlkm!-D$iB<_WYYo?c(DL0KHDx^CD+0=$MrWv*JRKKPd8CYSg_2TE*7p7|knRh=
zrCiLofnBYZHQ6qhY}nQRGb3C39P-T*GWw;E2Ug5K5!Mp}b$1UYA8-51w4G}?uW_mt
z>DoTOWy}|&k~c0-<OXW5sym>dMcb!I6+*r^rCImwmI$Fn1RU?NrrGvFdkOty#ikAw
z)^5SLo<|Qnajb@0;-nd6n{Zy0=@iWL{y+#zX>y?LJ6XO@rt0f<V8>5~uXQ^ivB7eF
zJQWe*0TGMa)l5=f54_iSnfW?)a2L4SQqh&8@P=#Y#1cAzjSVk}`C%6^%$Z=G<<fzb
z4%-{ZTaXz;Fzo60BQPmPdr#<~MUMhRAa*sQjB^Xbl|Yf!L{Oi6b-ppRNPfAsLDMIA
zSfM0$s7ZubxsAaejc~@$3Oi?}n_%rbWGNk<JLu$2Z+&Fbai2#ILII7vf@xq4$F(aR
z)4wfRO&#b(eU3iVxbS*=|8`@wiKVr+?P-C7DcaYTm({HC3!<r7WG}&HZv?QZZ<sWe
zh~Vy30?$xsq(ft58_87d<RiYVoU^{2Z?C%zNU!z$X^W5!EuiG5sOL2+zhijHBoE+z
z&=u4ch)=hoZSevDyYk9s=ZxD^<$CpLQtDlHacdtsr`FB~ta7d}dd(mb70<Ok&;ibU
zqFrTB2?tEiM!*L>=+kGr8j&s<(Z-^BmD&EgQ;1-O>r*3rmn{*hO{OlEDkZ#6{V%~J
z(Cgbo0HWa<DaK3<$b_nXp#=>eUo4MjM^0o^Cy;zk62zozs89azGgX<EoxXs)5^6Pk
z4q?~!Pj-O2uVx~ILyEMO-`isc&M8>UH|f;tDnN@m&!KK)bzxSbG4X0k>4(v4ob9kT
z5RS=ZTDr{5Ch=+1>4^`K9!fTo7uumBroNX;zV##Xl(ChN_Hs%>Nf3vv2F!i=42tk-
zrp++gQkht>vicx7*A+8wc%FQb9COqs;%S%qmLANd+~oA4<}i#lE`s;4`X?d2o_VhJ
zCz&&8zyV>Nnb8_;`)pw<0!%96H?oFL|L7XnDew6X{5Pryu&i{b#!_-B;%t8ExEXl$
zIA1v<>%H!=zyfzoA5hOg;dWp5Ty4*#FKU_=A;7fiO5@>yDz7GWpAYOfJ2|)0?TdG-
z^=Q1|61)BfsGxQW3h(>!Vt4A%V@cq7{HfZS%yIfLbDa^bHhA$#_${CI=|QxG)8%E-
zG1gZNWM%P7oZXGJ2MkJy#!~j3nx8&EZTqWMU#pSxclWLaej7<Gf+ShZ-|O`Af56>~
zFeW_{@-BjB`hG)kX0{U1YlkOjiju%hW?PMh&jY@1`!lV#boICiMU|>i=`vp#HLyzB
z>y`;EU@oa0g}9n{Itl(%x(CVp23)QtJikUVi9DjSe-nE4-uf9#RqthO<uvhELI#0(
zY+~MDyYsDEr`LC2v;`H8eC#^O2sF~3@I_`H(^r+Q8J1G;|EE70ooidvw1<$Xat2Q%
P;|5={`n~cu&wKw1cAg<(

diff --git a/reference/plot-7.png b/reference/plot-7.png
index 6dab70526f7d3de177c5c3489949f577772a5417..bf9821269c506bea98ccec08fadc6197ec142314 100644
GIT binary patch
literal 26057
zcmeIbXH=ExvMr2l>K2toMHB=S+em6uf=JL7L`6|la#9dbqDYizYpY1KRX{~VQA{Ms
zQ7{lxk|->45JZqgl*}T0vzFcG?0dd(zj1!-eeO5L-Hg!<4QsvYeV?bEs#&vURbM`+
zuDW0z-#iWujs<&mD<9(EnC;5JG1KJ7IrvRo$h|&%n`5G;s*LaW8rzxWjc-4l+O6xr
z!69&o{+SWf)^Enav65qt@{S{}x4Rn7+zvKtQ0nXL+U(DNj&sJjCmHuInnXoD{ypR9
z@|&!phIcU)qGDnZ#iF4ef^MQxNun_ZdRt0<o_%_c%D}qoYjk|)JzlwS<*&u3OMAHl
zd%irIpLF}vsRg|wOsV)Pr_zib=2YoTmf*!Q{3Kq~J}}0<vz1%hqQu!hoh{|=`+<J?
zW$z14`hI2o3<>(aJ#tnyedoBm=%4U{wO=L%%7QvOJ0Hiz1zr;JO7Cb5;*;9Q?_HaG
zQbj0Y!C@Dnv=|}ArHFxvv4Q(JIf_rCqgyX2O?<LseI6LAwu*lqnVBi4IGhj^+d6Ls
z2glv?S=pCQo;-Q^;lqa~EG>OK6paV_wf!3^Dvk^$)SPk}u`e1w<~h36dpIc~V2xUc
zvZtr#Z6}6qboXH`t)(*cr*>|UlFE;m8hmtP%gGONaf|SvzN#-cw+H=dQ=6R5jLQ-h
zHtDKP(9qOODaa8Td!uU7`+OwO$LH_?1t~o}J;t5@yyKwt4~>GIgC7r+i3fXiB^2&8
zR6m{VedP|%W@jdo*_z%OsBblmYl#aB8+i^@iY|kloUQoLb@68BuIe}K1Amsax4z%W
zWoVlF<;$0=#v8*o^$Ix}xO*!(U9yPqlzzDH<|1zHP(x?kup}4lYVYaE`^LFm+}!>7
z5?<w^M!12izckNYdB%8pyeet<$)h{9aW?OYidwCVS$fLK#o^nk7I0v#c3(Zqd-lQe
zu`gl$kCY}i2n!E4xHMH;M#t7Z?|!5>^d!b}tSyu`YYVQ|;rxRU$5rP-0hi<54rK~y
zJL_yyDzy@d#Iux@^A;bF=Z?>va?`MyiO1+!+uZ#}p^&$H){H9Ou<@9;YeEgK4#i@7
zd5t~n13dZp_!7OstP}TqKAoXCe%pI$OgAD}Vx8^DlW&b!cz{0@yx;Gb%Tw{J#VSZ)
z_(au6SW#Qcy-R|=Wu83_2@TG5Du#xJ^ZB-{SC{Y4yYcI>SC&lcqC~TzmOJh}mp>j*
zQgE(5cIk0+v|ou#ll;PMUC%}vM{;=MpAYM06})X9nB7$NAxf<(v!o^8k2CdTY*u4#
zD(=K}uw1qE6{m#1=SYK$+enXql$2C?nq3oFSPP!eKg>3B!@~m+jXf!6jlIU&(uZrU
zT08Cs1&%!L^{jDa^<>%IcJIlsFH;!FtFy~}&d9uT=F83WuEZjf(Y{X!Umu3;f~9q(
z*4f&Re|=PlPvKp#V1eP(RF!#w|8o0$9__rx8uv{GN@RjEGc!kD%vJo^BHT$!exmPn
zd3}9-w-lLWTvpGm$@<*Ue2F-xFavR3p~()_B%579f(<rSTj|);l_j72C~Pvu_hF>o
z;lOSCg5{DY-ruFg=uWK@FI5<+A1zdxN~pCrFTTOHpRVU4jS1zu_*I&6JX>3Zrd{h@
znmoG|3+u)wD?;J~laxkZawQJ?aIda?-o&H6tvfl!b9!>b#nl})vHpp?z;L5`Z`*2N
zA?~s9@o^9FP<_)TugP&U&(*@-ANR||CiLQ11P^WNNpIDvYtJ4iEgIi<<JWu5DKP7E
zp0V9lWW#0?+^csTk3SGDC#B@lQ$K-^srVx6-uv8T3ifDI<?ez-{cL4rRi#(AXI=Pp
z<7`*^Fw?fv8Ru+5M0FDxlW9{mu^ywmt&>b2?@6Zdm`!TU!v<E?K<T!+6?Tjm-LaVq
zW$!k$Vn<^)?Q(E%m<r9EFw60tp0aAlfk*Mi<&&B2Hq3Ox@R}rxb~qQV_>_xNldSef
z>fyC<e3>nk+QucJp`jM6Nvu(|`E;+>NS1DsqUZQ$UNOB2o0M3O(i|AX*o>KTlE-ok
zJ^J%&dSeR;3MT06nNMT4(+rz-s(P2^%bGWNvAVm4o<4ml?JX4l_WFjyiIThgmz96&
zChv8<7>5T-xop$%-O8d7+~b|m@o}k5`gYG#-nHfAP7TFZ$@a|TlE0D?wDrpk;Ul$D
z*VgX$rOh>R{d7T^r7%#uS<+*)FQxQb*5C&<vQXQq;xhZzg8b5Ly(>7Eigp|<d2&O^
z+iU*vO~(TY)m8W3k>5IJ{<5Eg6vt157L0Y<dGoKked@R3I|}Zxp1cx9D^!I%9VZ4K
zDRqBP)E>slt(miM#j*o9dwQ(WI||!|t4)J$$l9A|Sn1Tf_<bg4$PC%>j{B_vGL1Sm
zO^+hH<ivAETe|x5E-yB{A0XYy7}vs?{jCcwP|}JKBhB(0$!ZFSnE1S|{KJPus)A>Z
zPjp!*StU)waClT#*ei33h&4*G>K)3=y3cbd%D#K|PENica9hufly&=WE!n?+zv0uL
zV2q44GwjxdJAT-s%lcDQP}e46U4+LbD=xSR;gCyn0|Ek~yOnI~(_@}v`JK`q`uh5Q
zce9+GVOvff8unnuw?}yAl=SBeMoHvHs`#0_xw1;~<c9}3>8FmtJ)E$$4GcAM+kg*F
zkLkrBGnp9ew_0I^f7`bOYnunLMtX%tn!LTG%}q^Bv-@6g+E4TsT6mIom&F;*>i#es
z%)^?rD$>+8<WUO|z3k(IC6cwxogBU)Wu>)6T6&jws2|R>TBvxyR);Tnuep>~7>|Dl
zjns}eiWXqDg&G^RB@V`Ww2Ab?P36Idtqv_xQBzaP9%*#%Z}F2TNVjioxw3QN$)p@Z
z=bAMI0sOq1ElT|_UcA`VJ~dotS2)_=Y6?>?9w*Nv={+@}p356sa!X2Np=|TnuGi-p
zpSu^vrZw`BE8ij`ql){<_v0;G9VCC%^UWe|$<v?Tq=;`T*EB8ge=FW*hv2%COTjUC
zjqp-&gJr8#1B(TxN4%$9c7!){7a32T#?kx*ADeq)li6PS`E-WCmMvTIOoJ4b&YUy<
z&A3;OLxf*anc_A<kG_|W<Ku(sY_r4~-I%c_5WPb}LR`C3s#-o@J5V~V^zF^+{))o~
zc%n*81d|Rw-1oNj^~D9uBMKBnj%aF{1+^F7{P@HkW^nhHy}w$etGf1Nv?r>$1<7?j
zt{mQqGcmyZXZ+*GZ<P98%+#Gm2z3t5>CIu;4!iX>KCg1UY40xayW-gAYe`-~^51r6
z<;F8Y-Bp#Rl0T{!r6niFBupn13Wg0SwD_#ns(X}>AlZb-5YzPj-p)D$^-l%-cA}3z
z{XSPv$0pZAqWry{MN{r@t#h4CQvaj<VT`Z#cycc+yr``6)MT%>i(58uj;zv|Z=X|)
zzBGRLa8>E+gKLSCUQGQa%Or32z&Zo*&?dXw$wV)L7qt^NQ<IZF7y2*1Hl#E;__1ng
zfpa;+-8U?)XKERoT>RZT=NHPYcenZc=Ff0F@w@l66fKmd$I9aEa~;}C4b5uK!zH(o
z+o>EbYdbx*I#5=a>CVu#NYPbuhf9(-*B6?ZJJBYwO`#O-JUn0k(8I}X1(s8%3jXK;
zkBecDj@RKk!4}`z2FALs_8jnNSxjE0E2Xl;(G&43X}G^osOd?OzhA6fQ;t1czsi}h
zTU^)Jev&oC>NW1Rt|Lr9``gt|(a*`r$!f*GZHLm!uylF%iC8<&==)LeBTL2fuBW&l
zgsTT_cIvD+r&h5}{r0k6?`hUHg~pe2g;vZJbZyoP%Ki53+h}=^*L8)dPh8&BUp?b~
z^&B5`#i3g*9QpL=M!e{E>7Z-$s<AR}!IYE~Zf<*KY??DGpa~Gtv?cFy&DQ?&LK7?X
z_1bP(#a(`TZJnyJa)hF1OHWp>QG0toL*GuI%Gi67ZzL;!seT?jxn5sA0+PUU_YotT
z>BPju(c!e*aD^$j%(^x{KhNUQ8<MN7>@wOy!UZkDY*OFWniD|2vIw3@Q&Te^7>19V
zJHtR6Fv6&BJVrMu@#o%a5fjG;J1a#lE)?M7zMv)<a|&?Myu19qs*84wz_-eHuaxG*
zwo2WE!Mu5XaK}+)65eA)F`nPvt}DbHK4*BQEewosZMh6b^+_*n&s!|f?G*39`$A4`
z%Y7rJC)#!0D;{giR$J$o79d@_p7TqiYioc`s<m!tLDuAOUDB`$ui+9Lq_=u$Pk<BX
zK)O#%Pc=<54=w0U$Q*LD%NhG}&dEi{t>a!b-kSA1B-nGT$T$$5Selh=)Oj?iMB0zb
zd-S!<u-)X0Jiv7Av0tO_`+63q8Wp<16uJjx^=(o#8Acz+-@&GyDK6@BehI+&HD(fq
z#*@u(Gi*eJUMVcBF8k>ZA0OALvG!Kr5|NH3xmn#^a#!;icjN$H@58ieS}QMjh?tx0
zT9RX7Q{z-+$SD}#{ZQjc27p%L@N8a#pX+SW3=NzrHT#P<mpQI4z60;hP;9^L;H%Yy
zQ$uds{^e}myuMGbO`~H|eQ({mh0H^I)a`3jXrfJK=A0gw<LwmvvSy<&F3*mgy6!eI
zvqVFJt6FU)8;xBWoS0iq*u^TeTQhaz=B_yPLeFA(yu4p#w9HD8VaY5LF{Y0WbM7IV
zCr_Tdt!+?POozyK&x^X*a|Ij^GHeCj?^2%lB9nXBr)~3Rz|s*F<vdlT@$#-A3hlbA
zp(^7t+e1>oY*I$z&*M^Dqz#zM&x@2Pm$VP`2YFAdcCT+#ODHNTGJO>8{7x|U+dGl&
zT5+DN?o@q$Atl95CUdpP*#1X3!zuCkima~10Ieqndm6TtZf(DPL;lP+K8t-{2FA{*
zHMrE<7m8N}Bh7diX6w6Oy5<)`%IQ<%%+_*Mp@0mB_Faf$z??iDDX9;`=B8>h!^{NW
zs5Oj@g@%TPG_<wp1Zx~Ve9bdu;Z6OfpY03<*U2=xnpz{G%`Ovwwb)}H<CFNb7<Y8b
zVnYp1PJSxRd@oRF%?#smUgKdq`KiL!ObP3=a`q36;;z%ICZWp8N^b5N0p@C9WKxN1
zc=h5R)yX}}o}OYQIWw2X#rEnMTjuL1IkvrU0hX{FN!7PbP+{0AsKq~8w)OP!;s_<B
zo=j$(Ed2Dmb7?@bGPW?@Ws)Y!gI_<c^TJ2OCr-ZWwUG>&MaaBmbHv!b(ATwr@7hiS
zeOy(rwYK(0PMCLfjauZrd#m{P_#)x#S(XBu+D~U#XE|*hz^PAcPMq@b*<31n{{hp&
z#j%N*$>@<a*N+d+I{NaQdeFd^Fgx?^VbRsdg*cd;GwgV;hlUnP7OuFaa7WI`Qdv2B
zw8c+X#|im{MZ7lL!m&#NOSvyF`%-i4%L|dn+QyzS)Ze<jbN9h46D<ejPomG`I=b}I
z8loOPT#Hm;@koP<F(m`=A1&~#K_At(iEZ4t5ozhCR~Py(AMg<N>N_vA#5(Jnd);_}
zO*k7H1Zx}JR1j43fP)P3_SZJ{l!B*!PLURnW6VR5RSTb-m0ZTdxD+<exdI?Xv+vVB
z<-84#ZktRpq?fR61o)iOtw21%X^yS>W@ukI8_)M(`-?i2*qMz=Q~g2Q2@`RBB3)U%
zIkP8~hMpWy$@^xu{7Xp~FFc-p=_=v9sm>NI8$?7zZe&b+E0RdF$}$kwewMtGsq1F-
z;ZC2kr;&bAcDDRDfE41RYds=Gg5%c@lxQVY<@Q~WSW<jY6mOR`Lh@1`HQ9s+tIPUh
zvAPdjcOk9ZGTBo{E2^qg&zu?CIHTeAR)<VH5Zu%}hT$DWPq!Uc>Ko%3GVM%tK#0p~
z63@4|XSeJ!1B4`KBi`f_^JwF+BtLgTnIh|WxA)XQ1pIjZTu1JNcOUriu+J11_c@ni
z$s<y{`~8fO_{JmM@X^Wn<F$F1jn@0zq0Hw86vvKd<MC?R`gUGgC|0|#lCf98DrLyM
zLax}h=$%Xv->*ksZ1iN`)H~}k>la@?K1#Eijt%adjDGsmms2A9S44ta3M1eScn6om
zav3>84E?O+T!ze??9W%#7;@2+rHkD#YtWo4<k4qorQ0N`^X%?Xg>K3QC4nleJ-_Bo
zcH7y1y1*OqG<(QMGN{Jq)mfLef&0&a)O4PC#V;oU=YcZz4iUu3`Eatf(U~=HK;HTH
zgB1C=qm2)^^fkZKT|bu9G#S?%_zjWUqr6kkejv{0L%ea_I4iR)M8B42o{@8nnXY^F
zvtw4-pX#ox+L`Fg43mj{3+qW?C~`BaSXJZh24jl`536roV>OL9z5d2fy+*9X+;|=R
zOfl2K!0y2ut#(3LwV?*5_q^O6&me0-LMy<@EAH>(b3agSBl#{Ohb}K(XU<$7B(P1o
zAV|pg-JvRdAeYs`Fpu~c1^bpfb<dR_$InN6dVNV1(Kgf)q4%s4T(63mnVEgd<#pyk
z1d1%WD`Ow&8yN`##R7wG>&@Qm1uDoaKIINiwdVP`T&1<xe(UmrZhwkN<AYzXDJUYL
zsms1x1%N$|vBp+lIIhcQb>N#?UPDKXmjRht&cGE*>+9ph8pfu?^ixH}pAUX;p4~u5
zzG<?@rKUAF^eM6=g?T?T?_9X`7xS_^4No%lf*gv((voXjUj6Y?e~Fz}(qWeFH6-Yp
zvplAO!hL}N(%kn1=q8!xYv+6mj$|as;n+G!XSw2S{>GD?+BN&ycbuP--<{TUXGlQ7
z&GBVGmQLJ_LTlwbxFEsva~Amew87eo6IaDr_(z<2^;38po!PxRUg*!duNqWZ8*9<s
z4PYDHoomw22&m6n|KMbMxQn>n{#Xh9DPm1NKHM*oKI@Djvek_`O+x^ALE$cqTi2@J
zzEKib(so+X;Y+bBt1F4qT#<`kI%Z{_p)T{+FLvH6{S^oRl0aml9X3c5yeC?PC?P6b
zZgIQ3=T;VLG7F)L0=hleu>vG^%K$UXQ*EsjBZ4k)@)kVUbIk;ljW79dVPQ)vD^tKC
z@nw%<Vq%Wg_#w`$POUKyOK<TNG5Jz_bGDQOmfh$~TW~sv7}LRy^5~ew?zpmfw^dxm
zTJiMebCgX8BVo$>HuCKPuMzq0)w=>$=q8Uu4vm~9%$0N$$LVE9RlITisn-kW$<A@j
z=Hur#9qy{J#|sLGpJ{&ad(EN^4Q*c^MFgseXZ+%h+>VR4cregM792-nYg$4=xm$L$
zMzN{$1weBNs{?oBGhR!jOiem|{!`WYZ{Eak7}@ye)sfB2*FsZ$e5_mq-snLgDa#{S
z!%mH7+Rf@flN<|}3=ucH6(1XGXr|QG);5M+@PKK1AvKM*mNCimiRrC)a=1?OBY<GI
z&1SpCY^mWaq@LPO9>vBJ=5H^H$Yo4Mczk=?E$9H!a(0m4<W!34&Ye3iHD2N|MkHzC
zE1dWkF;(%YA3$hc0n*%3<V8K*jZ;Yxlh$5UhAt(7W$>f{Ln$Na03l<K?zn9<*3_*0
z)N28&@2TdBoVip~=Sq`xQpvo)`%))QoOojgIHKD$P^Oey*ZHn}n^&p&jbB$Wy^$uw
zr+6b_eaXr`{`RWWaQB<CjAeyg^RUt<t9lzNZ*Ft3P3=ZfwJli;b{fM~+$?skM7mBi
z>*a@eHnESg;0RU0Q*qv5RXkGEthfcUXeF@THijSuH(p**kz8uA)X2R%#U6K_V&z$d
zQzuPaR~XDok2Upqozh!#mH0jJM$cOS=zT#KJ~vEpZf9v9KD-zyMpKpEz&t>AUHQ@G
z^ERc&1+gR9;8A8X|8zd0qM|Z^Tp|#w<{9f5pEKT>{^=rrrdjNVW3Mmfchw}Z*_IJ$
zi#un`_ubqS)sX@QM`IEJS3YcyCo&oy(fq_jtn;}cSLE2^#Dk<&ge01*ND>)jR!M|u
zPJw8QNz`)E*DG5)#YoGkY}3O+95r0rxAg5hnIqdiU)fpP<^5sLIv#n&j=Sf54G*ob
z&*Sb#0-7gPWw4kq=1aNss7-icoo7dP)B_*eQ=)Kp$N9*}NMUI}e_33krLJkpx%l?h
z%`n-(>J#?^YNgC!S8QOq;qb$}8jA=4$}W!_IiigGxb=o<;AI2~sV}AB{FHbfjD@4?
z2GHscYnoU~AwI3aS$_pEC9#d`B_x7~!IE=4;ei+$^wZ+CdD&+MYEu*kz<%-*L)SXi
z9uZ{cH4r8VBc`O{J_5gVoplnu={DF2dl1ce*t6xq!NJk~<ykJhl+m-nJAkXo^wcE1
z1I~Fd99bYGhmsbhx6?Z!{Ss3wvR*IMx8}~Bp6oR(y}i}`^#YkZcsYJtem^~tjg3uL
zN|lj465xD8mj)hiVm?CCqlJ>EnqSyHX+t<EvAtOR=s*OK{fzPFT!QklAX7pW1mR<g
z!(`(1JJob018aEVvcJ8HnZ)TyHe{8x57aor-F*#-QpJ|t%?fTC2v2X5<%qEu#&WuT
zxoHuZnkwB0l=b+@laoo)twBnHtlnI2WzpOWQzpMTqSf||#m%$ts*b{7R&aBJ9i~-?
zNtuSbTE@*i$r=ed;647aL65MABQJ_E3a>zU-;A~KL_(u{`0z(Qmf}#wVPZ;<R@kI9
zFur`_!fOe){P5ni-eaIdLqmgmpuH@J-!9ue#q-;k2T{b_2_DY}Q(|u}#A}(Gt^O+N
zyqj-ySM>}a{C)V`B4ZKToRoVNRL**^=fBp2VqX4LAlmE-4wHjp(VAuoG#tCHpXH_R
zD>YC&z}H#jpZ;kt(A4ex;ZPF%2#P!#otDS!gaK<98VYc8gX{B}dcTK<hetzSpP!q%
zq@*Olx+Zav_N<c|VVYpqeS8S`f*8Z^zCH!><m2O^C<Ib&gT2(1IHTuoD!RJ5%F3cf
z+39(e+cV*2?&I_b3&R`pWf;We@g#^NQ!yJmtooDdw#QLXDlgK0fAaXT&%1YRkKQ54
zoS3-BsdZZo9;tLq#{<T+c-!f%?TZ{=`Z~OA8htMXSFXFh&EQ;VbaZsll#L~*MbKS~
zwDU5LU=zREh?Ub~{fp{t|FV+aMm59j3CYRHd4#fv^V=6DEr!^<7)O|@Hu=c7TVKrN
z@<*-jP$*Hh90#{3tZf$9=4`$1)|QjOM7HxCexx2iu4by;dum;3{pq4bN9M9$>VcOw
znD~jYb2dbF!32;p%Gh-JNJ@pgK|TW0Ew}H_=Pf+o_3hev<O)t1^kxo2hAE?20W4b!
zqID36eO2VH*Moxz8qUY@rjtx=E3MH@1nA7L^AOvPeIpBJWm77D8N5E=J}O3P1`Ftd
z+wHA?o?&<R@L_2O7eInFada>^?#j9q^JPb0LspI2lRx~|R^+iQe^ETq6=v+KE>Q{M
zbcMHC4#L?BHOx0{r@6T$kG?oN8b3WAUybToom7EXTK!d<ti;KYCZ#!Cf(9|C_iQ(7
z^H#qG947Piy!umcnYDO$#Z%|iEhl>qs;FFW_{sNfc6NQnEW?9FQxSgW!`0rOiJdMx
zf-^AYk@H98v$&Kg!&(gm@#X+B{|&D4sI{PGz-xj~8GubmvGoSBRCaI}ur%hEcRhs!
zSzP7GwZS9W+G)&XKh$dBQ1pHJ>HXFpjMfJxCT?m!#8qBhy{sriOvGt9|820)@fB;V
z-vgw;)1^K(m6noH0n*SYJl>5m&7sak(kG&(>N2sMAM1wGrwz%k_JHQ`(GeUhy}5av
z*Z9YXf_Sf?Xjg16l~`v-_+U}rZ<Zf?zf%(2{h`nq%!)UEu5N{c6YIPIZ0ZLO9rxJu
z)wnGn5p8^EroZ}E`x$mtIQ`_$*;#(1pSbVx&E{<88RX&7usTE3+pKQSnf{&2V<q^;
z3W2u7JC>6tJ8*W9@F(Q)?6|d2MC3krA>rb<-{by@XmA@is!?j8A?d=qs}OYIrID>H
zl`t}Bv0OjL+xXckOE@Dp^-sN=(#mi<Yf2_EPv^S^Ep*j}G5Uc>-;{%>RJgfJK8bO5
z<USHMK4bml6Mri4N&gyKC1-7GJ3Men9c+Z_rQS_{YXNj$)P4BSVsMVV=|40Yh_@S@
z6W8JH`!a9_TafTDYWVItW?*h?*6Am*51v+d>w{Eqa;qziZw$L3)v$$auPZhAm0yIF
zwI?~9aREWLNSnwBj)N-{gquBq_)Y55?fVh<cw&NTD=L;y*}%@DmB0UknuH3%<$NK<
z>_39po@2>@Af5ARQBiApP|QmQ!mX-)gc4dDz>xJMMLv|VhkVY09?!8y4XEJS0mbD9
zlqMZ1C#Gz^8b{dVl7O=hs7DFK!Fyadf<dFs?1Ld3d1+QQH+Qdl6RU+FhiTx}hZRwD
zO^%qw3MLD_$B+eo{_BFu|3KXO_ecDXL4^O?ms&F<^K1pal#%W1HJrmd2nWuH1IJ%m
zTf0bW=2uHk@k$0`7ee7r(ZAohhtLAugJI{Um1p2ROQQrM<Kp5f*1V8IZghCC=@`FF
zvW7<C`6buK?U)AQRbOppXA4{}YReqFc<m0#sp}<-6>FZuGa%&cHQ;{m1OT1W$pJ+_
zDXCyM%)|I}g5S!@iV-g2J9uS7-2|t#O?OrZc<al^$nZMJ@80obT2SXt1*eN=)6OGJ
zGO0;4ixNNY^ccVyQAJpo$XH-7y%yh<`w{%$7!iL^6cM*qxk43PAZrlo(_?PP*69|k
z@`H6V3`#R9c8=!q@kc@t6gj=n>collovv5T9h$aj2);SM_}4?#|J&{Gp9lK?y^{au
zoM&*9_+1^!UvHp_F#)bPfEe<A@K|{$A@PCsclU<^$r<d`q0k>GXdgTRcwq?r#O>4X
zHbl!SfuACw$iCaMk{1{7FD1qo4&nOU-{{3>TbSH4?BFB1(we;3w190^w+WRNQNlfe
zx(ryAwQ<jfYbmvu7_Z6=gz7AzqU}2>Q2{D(0p18C{3vN%{jB5TqXXn^a6x#$Jk-8<
zA>TNutXzMlJsh>3LoJr<rS!e8IxE{Msr`=oE^<skDt=3Y)A_#NQ1wbeTcIgdmX>>U
z*a^$_e!%`-kn}%ub3?=6gIw}Ip;XISE1Q$JQ3%GQg@toaut>HF0~J~~JIPC*AKXC~
zh;EhWpdn)rNeuW_ao73D#%IR76%WUN-bP{RyHoBtqNP=^i{IwRE6ckUfSxYmLqEq=
zAKwX~gC^WCD%mOmT!#*J=EmwzM`YZ0b9_Mpxou5j>VRb1>?<@>Q?}iB4i+ymBjZd;
zJZhLi?-+w-uMcZ#^57Ct;xn&mYiN9WeO0gp3KSp0vzhaC9;Mb=Mt4+3YiksGfY_@S
zIk%vcXk@A&Y81xAbd^u%U#LXhvEFT^J_L9b{VQi9kzF%+>i%~`U+p~!KEVLoTYpzl
zSpls$5n)f%emE=GZlT1|MLrl?VfI39s7=Cqt0Ht|OPz{QgOU*hQydxi6Eo|Yy4;3^
zN)vs+`5bSVf6lPOeh{_O5AHnw*|FCx0P>yhqh81~c?|FwGwagqsPM7O?5Yp47whgX
zNa(4qeOct(7ELWJlG`bZ8Y>pYl-)VDUpssIfmE;sk<$v*)zvz5_aInQltNMC^OX~P
za2K$@qx}O4f9(It$jEqb(^%V_Yb5=wi%L4HU1@qNN!`*>fsxC;n2%ZqW3(1Bp;;dM
zHyELRLL}mN@}2y%+YV3Kp(~0KpTWq0#0}v_|Kp?(8=ucbT%>ES3@zfBH2Ahkkw3CW
zHdHQBg!#tBYp8MPAoG+9G2T>DVz|yC6LgCa+<aapqO1@+9xn+~DDUkLu=CiN&L&(2
zPbiqovBUd7<OUT<<Qn|-Yghcbm-t91p-|%>CQK5Ppwuws+VfY)o-zz(=d15++)xA3
zQ;e{4IOZvHo_!$Pd<D7t7B2gBC8cJx6Zm?jKI9|yow<=#{^wIU|Mu$tY_ERAY=iUo
zJCXQ26c;XmUX?K+3qeIm6(@JYUiQcB)+(RbNX2d#$#QOPwuC@nTWa$VX$9Y|i!kV`
zUmIq<2)ZQ$Yy2@^oXx}BE!;T1Xu;xj>i&DKt<9$@O@!z023MP&`i$s5vbedaY!~G5
zc{Mbv23@DgcwohmbF(225lS2e1;lBTh1#L8aLd!^IA0tQ;;Bi53h^@0*pN0J{KxmP
z#a^Tyd1(bLjwh<Sg;WiD47QC#3!D&|QYLB=%1&tCoAM|$dy<mF8RQ$|4rGqmC>q$;
zo_qv7lDBhKYv4BXZjw6v=i|7&sC)nZS#3KGiMOh99;)$LeI7`98F#iim?spm*Qz7I
zSFmrmw@JxL!YEtTN(o9aZf+7kFBt^!tLuJkzw`#@t?Z{&pk+mrl(8x!H4v$;!0v#G
zI5!1Jmoq~V3N$}MqFOn&2WbwTbt%3fsmt=;T<SwLSW+)gfTM`1f!OulJHNQm$A@^|
z|G49)2JWGOTRR`$H=#lxlo|z~jCiSXX~gQ(&duCA4Obv991@?;f*2sOx{ZBbgE}e^
zFX6ZasJhwp?DfLwnmuREOiZ*Z8JkTuK;yZERDnJ|>9~b?w&`sDu)WS#@w|-5SO5cx
zCBY<%vOuyI;^}MqK=DYg-FE|laP=<#jzDxg;L9z>_9xfX!l-VWyf{0<hL~^9Osf(0
z-xQ3>Lr<`OI@+*)e10R{BwQja!B-@%Bh`leCuv6&F4x?F@Ltf_hn16+V!Df^*?-`d
zQzIEVx)Cg&|LCe++!%{=#eNO@S6|nkdBFk>Io>VcTz&74VD>K`M5$TzO)-t9sRN*|
z-Zv~tMR{L@qQbi(?TA%SbKH=zGctfUv&I3+#jd^IH;@0i`0VVgu0*xe>{p!>t_Apd
zp*-#Wk3V0PDE~P@{zsDZo3OgmB%C&|KkRMChxv`b5VpZ<_%6<0z6h+4u<%3BnMkCf
z8&YFpMBRouc~Bm>jEI{qV#a=x^_9$Q<=5{Z-AFv^0{+Tyxgh=ithD2XX2Wn;Lsa!n
zHoAGnhecrxF}1r^v8_=jU<g=)eGNy0a*MvW_fXDWTX!H3wNHsVp2Ib+lS5V78LR3#
zNovxdNi7U8whv-6di|GgZn=AYp)bzT^KBQ|CwgV(s%AqRLJx>W{80q9C|e*Pw}s?r
z&`akx3ecNh%!%%p(YrvV{>p_cipZ^02u6`QvpS1?N7c<dlWVO||50V2c$jq|i{8Z1
z@BnYZCngS4k*@0#`=z5wc$m5Kmt9E_*|^bHL7x4}=|_0w4N23)VT9EG<(KV>BN;IY
zUK67xTvW>7crm@f?Zq}6r%@bNA#QGxa#BsE`uj(&6yE5k(9Dd_6-1rNPb5BjQx0Se
zg)rI0RR#|GSDb#ciY>**(F&^@VOGUguVLTS;BLCB1$?9@u4x63knPPLsD19K7$M=j
zhkc6*hyGXdg(M>T`~FNvJa-RDN{k!em{M>sy*=aQGH!`qIB~UEQhWC7-0!UMY|DP*
zxUlH8Uu-{wJTVJlu90xvQzRN?=<+gVUrCYW!?k>GrMfR@pZj*sXXP8SW#%`wvMx!e
z-`)J;#b$@mlI$jLg?9Pec9)!vfo%?V%ErQ*W^$Cgk#81|w$@=7vMuEO{J&4f|F&1>
z-NafeS}X{SZTtIat1ea^j|YvL>D;Z?wQ2oTWY~{!rks~w$tF2D_)kB>Im>}RC7geH
z-;?RYT&mzcT%3HM_p;+Iz{s0HYa%MY`r~Drh141{or;o`cJBbN{bKq=iV<g+m0xHs
z*f#|!w;xthOwmi9%e5-bkRQ^qeDU+nM<Bq!+2H0bhws&FmvJ<Yii*0xasS@Em+mL$
zCP*1~{`M5Y{lx&gH;2Ct%nsMsx$}I&tmP;C5|YhJZtY{8UxEiQR}9g+A7fo)T3bAm
z6og0bUv_}s04iKbq^zrLljn%otP^#aDOOc(_nF7PjZMs%(c4)W?f0FZ$o{zxcgoP|
zTnV<p*YJnrEYvNFn_he9{$^3JG$M9(w&N~Tlklk5Bs=_TO+-@)7%|JPoO!VgN4dl@
z?L>Jb*+~nv6LjTHPf^j?M)MGxaeZI2q<gK^bGIR1bcL*g(qK8N#x5(oC;HLb<EQyO
z0G#$++P6y?^73@_hrknlx+E0XgfeWt==Y<!L1h8l=`dW-tKl-pR9bl0+kNE*A}TXJ
ziv?iJlfXXSXOovGG{;6qi&*QQXV=`04j>d7dN(vcqn+&Yw@<YGxL@xP)gNm`4Kug&
z;GSh6jht5&pUb}K7X@a5eOkcI;O(P>_#qd&4cUn9U%~YlkLTr!SFc_jEp^FROhTvY
z*Oxpefg{J+<Hr@xkE~M~+e7A+ydV8n6k^!@GcdYHP(jR1>|-RCjji%Vb*D5_js1&T
z$M&<a?tj(>gU1#v5JRI5NesEUQ9b&zsI8V6#XhHU52V9iW}R+(mk$2e6v877G;P5e
z(T&BkX3ZK&$By^uuwIjVUmhD>_F8SfRB1k=7Xg_U%6(JFjkijoN`#_e?a}Gto10s)
zwgK3E5(zhIeRs@`IyQ;QujwsNC^a-^Xx!gLfFJ4+c3+rl$GuCDPo8Xm*s>M!bhLg+
zczoit(fGclm#&|Ak>xS=O%~Orc|m2et^UY#ynZ&!a&EY52v{*u=slr2(V?p3`@Ll>
z5N#YCKxXJ)p!IOveN&?RSM(j6IB~+q#|M8Xgy3fE&r>pNRkIgh)Kc?aX=&+#>4~!G
z<9`8(OTmbMh;^CIJR6*<RK!E;POzfmbMT)eZ25;5Z9@;+E9YFVN$HxL0}+ZPg6uqk
zz3q&uD&AD6Gh__6zim=O%TQ6~_q|;xGH@2QJ0fNc@Z)-|J5)?xt6Ff&iGz&q$ih+Q
z=G^SU6%PB3u}IXrwl3b=G-W7gHa*VK)=h}#XsO^yl|UPaD>N{A*4xb9U6-An7zk5X
zO0PK^P$b{n4cU#ssh6`a6yDzz;7gSf)cfyHX9OBiws}EsTtGE^5(eIDfDX%q8X5k+
z!RQz<IWPlOtt5;S&F#akP~oA*gawX3(l+z!!_@Wc+qwJtoyQzIWo6hWX(J?YBg<gq
ze%*>=Zx0ku#|gDfT@Oy#!<bLE_WoGP$*1E_4tQ=PaHNxQ+Kla6#PpUxGD#slt0&XS
zvAZ@!%$Oa!@9wk;J(+~P4uFvBBj5L!wA}LA8aAWAal+kZ(|MPn&dLkj<YJRj=`%Pc
z48Lr4ZGzen?$;My7$&n>y2cA7nG3^U51JDHLf)_6$u~cT6qd6NN49irT?B6FLN{g5
z%+u@($;IGoT@rMA{A?1y&*WM+`cbA|4U?YP={vp=(E2ii5<||qhAfw+<1E{TOrF$f
z^!AwjgN<aNOq1(kl=!s=<ZV*ncL-vSJ%%&eXdMqh+O=-<@Xf1Ja2tH{_ZGlLM$mh*
z!8#WmOJUa2aEVdRJaJO~(fZt9{j_dLszmO@xBaOkUFM{g0FQq(BT{n!J^J{Jf+Sd;
zR)1Oz1yb`m((PQvT8jt^QyU{xGXJsn_~0~zt+o4a9dY%5TA^^qT!AIitlVjSs$!9P
z?(^Ggt+=(zP_}2iw}tLM0lvfH?+4aoEDaBYrqDLKzhD&b84CT)=EXh`)yC!z6K1&W
z*7?LngF1UTwqFV!o8Ra(HQ6++Kq8|BjL(zL7OTsyBIVgAIH`Z|AlT?|RE_h9kfQ!O
zDlIo682~##au(vJj>WPoS{!=u`)4*fQNa-{Y2~@z)5EUp?K-P|uO#F<WWH<jZxWSu
z;6J0p|DQ;MBf1HkZ}x(%GAjzn2mQAcn;S%3gd{*gVipLkadLGV+rb}?dp#?gEDZV2
z#Og8`DD3Zj=NnV2j{SgcpbzAcRzQhJGGr1?QKr1nS(hH4!{#C0z4PMy%d2)?Tp}o8
zkp9f4lKqEd1sPp-3jF`p+&JBka!ncxj`vstF=JSROTlsr>t_rJ0pmSyn{wwqiHY$?
z=|mXyAk>{Nbc-8iD(l`<+9B}!bdcjN$Xv?N?y`?HICie|G0@^b!Vz8Fn<u@moWq-n
z3lE`q^l);=Je*3vz*s<=v{4;xvl3wWT``7PsWqMmp#flUo#Q%sK|yIGS6wvOiWFGp
z$GJ&RDoRlM^+V5BskTs2+%z6FSCC#c8&L43x1hl^r&)(6Kv!@`h<UBhgS!tN<msH7
z53m$z?gj2n-y`O%jO60A`_>aaox+LVHlTaXrSXh~s9y5=kBZ0iT_E`^K+7!PE!ODG
zm9uHfx#at{`?2=!-P;1n!K%>mEK~~;@E{21AE#E%?#-R{vWAxJ=5U5o)25wIwPJMs
z9BY3mWyLs7cYu@^&#$i^M$ZrKx47`byI_&c-CT#>zkh$QqB#EPQ%gUKpE+H_%A>X8
zmyX2hB)pn?>VyT7ikov2^^;N;Ja{Tru*h-Om`7vNnm1<?X4SlP6CEqw4YcVUTI-je
z!`{pPBA@arNq75O3jisVfcb((e70=c^~3Xms$y?a7v(bWdY{JnTMG+8Uod)xzFS%>
zY=td{3iD`;WYML!tCqvY;9$`lHP_ehdy=1(Fy~*;*Ut_c|Ju<3|NaPU=|5!%!@pPZ
zzqOJZMVx0mdE0hc<B%}#rQsuo4qY8fFKRn|b9n9sB&M^%HS|3M2VE|gzR@|?bzC9D
z!~DVKy;}zs_oW_!&WvDUwb}MZ-x7j6Mc=(k^vv2jw4Xn9*GNx8tEmu6=b>i^8qCSf
z=%?A<42psyW;-2#8#o<J&0ummIJ(7!SL@H0K1ND4kWj(*mm^FIMmAy!WSK8MQ!bcC
zMC-U<AM{sdxZKgor<w^!i1x7zvYc(mS!=}`g^%gf-r^d(@|0YgVhB?0Yjk;}>fbMa
z0ym3$V1Q?>ZZVym9a~Xd-LZ3KauQyzjK;8so@gVZEF6Ta#gt63PUL1wD8D^K%_dzI
z9(v~7U5o2T2!8di6@Jv0zd9U!Vuv+0=f;jXJ!o3bj#K}34gZAUDgQpV|E+WT&zMv5
zKfctD6HR!pq!6M6RN<!v8q=>IqDUtyOWc2+54Q&B^R91L0S=B$AMgFp7;5abHD|2E
zZWj*Qrwp1QfX0m$^aJ}x$7OEJbo_cKk0#`Ba3p>_7IH!-!9>Ntv0MdB6HBN~xRu7I
zK#{IQBMCZCT*a6e88G|@yEd`kwCN+D1LTt{fg)Q$?)cHD6(lV*g@Bp_FsLFB=#|s~
z0AP=+qu48UJaXr(Y$VHIfOC9&h!jyw%!Nw}R2Z)I@u5;j7UO#@QcF(xMHY10I!WgH
zm6d5wN=fQgbYZL(ZUGZum6l0&&QW{l(vPm8qPiG=19}=OP-`7V9ZAB%XhW#7bz<LY
zauluIg|?zl)x4&i^<N0madT7WD%d=+IWM`n*WGb7`HoL{4NmQVzR^SE>1;hK5+)`l
zS~tZ>4-0Y#RAPF85V~S_KJ;YcQsng|9->ZPKdd3FNPWg%OiwmA2|2Dc%yfK<zjW71
z(O*y&C*MgNQ;X@gJWXA&Y0B0U=ljQxsYBqs>vcH#m+t4EO@jvD@yqw9jn_mzmtLX<
zQu<444=I#`MYPRp*I6@DQ9c65MD3eIx+Td6su|s=O5p0h&z!sK%$YL;o#Qb22fsnT
zPlkEq#~S1xn}pN=+NDD}9MPW_3b-7u*lZ}{exgAxy95daQR~p_)*fcQpz`*oZU~_s
znCdm#FM;V>w<K#;$IsLj)wSsEPFbuz=ZHT?YCTAOewuKTP;~b5(ASTuQyf2ih5i|#
zYc;#;R4i5Zxto)+b>qGll=g`A=)<@mpLgYa`imwQybBSJV)Rm;o)VuCd)Uax$Tb%l
zdnfwM8z^n}s;O}*2}H-oONeUDPBsEqR`&RH`EeM#O5B_eDX$l9TN0OKDDgU^4(aoM
z2=Oyt9#@ge0ex%RFOivAa`I_x1qxJX9!I59Uw*6!G7q28=5^cHRwJ+jR^vX{p)q>V
z^yRtPC8;;1Z7>Ll$^qS4Y`S#2ekUFX6ECPps+=d`)$bS7WsJKd@iA(X;DDYQ(s&~d
zjuRpR!q8AJ+iboM$%t#`lSd}sKEEaF;ueaTcEGr!yxJ5i(~kG|DA5<zW>W`O0v6g|
zOYz~dO&*Sz9*eN2SAm!?#XI@CK&~~k@;8m{`tvFK6W$nIqB7bX)FY_UN)!(jlfdN}
z%|~TE5dDaw#TJT()1%kX4Q*F_kJIntgNZE#x)$L)G&d+gjeQbM97ejpW*N?w?)tB7
z8~@BPUjH)p_|DgGyCqn$Na$m#&E5yn=qsvq`S=jG7l>AGVKjD7_kPP<rO_SORCGj9
zyXVpj;oTph*l&$VDh1a{dSlcGv+?S$dNLu-C<zmfefYEGN<&fxQPN0xVTishO1W2J
z*!@oEUf||#Vl|GCcJK{P`5o9Q65JVfB1lSYE4@#B7=S2*TEF0>-mDJtN2W`+^E5VA
z%s+}aK%H}9&>tOHrUrKro-j-QScA?uMljimzSMGsUY*9|_*}iZ$n>YwSH@G{LSHpK
z^iZ^uPpA?7@AiODnBb_(ggafGgSk+<l=Hw$Y0^{SVI7W%E)bMYe}g6#D)TH;o9^S9
zK8QcsFbh7Q;s4<0y(?{qb3>Q`Yb@ft;Yu>5gGBa?#UaIfQ+eg8fnr1%Zx&n5#i3WW
zh+QT4|HwJ8TO7#@$mm<JE&<dPPNMH+zaHJb!l^=oWL@jU#2O+M2gW=^sbdo)+6{DO
z!)JK=K$W@-Z3hO}%dnVs>JYoR*`ff{$r5U$?P<uOHa4~}93{?2`KFIx2}u8|PfSx^
zEVXp$5B8o5w1wlaN4wQ7@G)=?1!(co?7DilL3a9B5y(XL$6;<q0QJCY#p>};i3X~J
zUv~xY@z9bbsQqE{8_n=R+n*%pa(0UZoCZ}Is0WLtm0(^IH_BHff>}~kySEqltLa@W
zLT{uA?~E`e2K59|Ya8O~;GdqP68kIqe(3Z<Q<)&5^qA@$A<TC&fOi%XOrv4}yt;Jl
z2vL{RQ=If^08Uu|F27+{Q0|voRy1O+@dST|KPjv*T#B0Ae0)0KX3#nF<c;PI)~Tu2
zA?UsIp$2la>D8Hp(U=fP%ZkU&G4oRQ(_A}ws20R};vqGIrfUP(>y(!R`tAX<l8e(H
ztTFGq>W{P`kA{K31NWmGqNpzS^+5;b46$Wp7;;olpW$GNZe{y&72cH0-v13%Rr}c<
z<?oAJLV`5CX%M0bx4{l>6lcgo67fZ2?;h?CTT1mXB3H$R9l-Syy<gXvd2e$VFaZiP
z>;4{fkWloybKArvvCZggzkv=>q(b@myv8fgbquCHIR9H)Q7d5_!Z7wYWmKw(bm?u(
z7w7f0L<5~aErk7x8FTY6yJ;C>Gc~PHvoV^B#QK3+3S@G}O3(<o4Fw*az@kpRpGMcW
zUJcPXA9`FKOclKxxIpK&*Z5aRGM3}vXgnO*-1U%<0yN;7mPe|@_PA3E3fgH3s0dPh
z@=-XZ&{!q~G8wV@2CyM}%(PP}yQ6SFIe81_0pV1vp*3n6XQZL<N7xJF!j`f&Y>-@X
zPf9D!U^&gw@L#cYQy^v-LEh5+Zj4L6hYEx~K1B3j41o|H2DPzB_mLiZL?O21j$3FV
zlT$8>W<robQ+<MDkO*w>pM>fR(E6fr=+Gj_rUSuATb*xB%-r>Z;yc*Dp*2^pl(lni
zzD^q-)CD$cWAWK=HbhI6j2O*ZC){#=TsuZb0}jL;mDzsGC@3UpinC_}8VV(enuqkS
zu{rEy$NbyV&&*)06%d#!E2CdC%*LVb<y_UgxyBDT#F(%uLU<6-SXMsO5@7OOwrK!A
z&refOO#55%^Tney{fkQXzffBgBBs9-6xU^+_1VWft24PilOidrGGzlZo+o>a)y&ta
zk1?vl9Q{-@OYSy$o$XNr%f}d+y6z#1l3P5~Cq$w;Y+j9RJZIex?Ml|zL|)8iKqpjx
zF9X&F7y|+lSl|IJcJJ4n&rlqTm19UPs>=ixE5PuwRyE`CL;n0S;({pQ{_@*_)<lP-
zITCwx5|8guR)&jDPH!H`+$LBCEkZ+Q?RCQ9!iqmerD3Sm(mDkU5a>sIV7IiQY{HI4
zR1=;#cj1<8em1`Wv1g-j!hQ{vp_n~oXUJqx8Eic}bK!~M^g=;*Q7=sONf{p+Mp<XH
z$0e8bXFIdAvxU_(?S&?`^izK>48JfSl-hXH;?8m^e(>9-ugbw72)wn68>A|+(WD}j
zN9~RBh*yUeyts%xVxMoQSybWmJTR22uB)w^QB!aA%lZ(Szc4=B%}>MOF!61%J?0Yv
z9+9{cN6UadR?|4y!gK%Nv4S<+KNu}afH(6Qb@!>e?PT{Giv2h}I)mGkP+Vk-7`eHp
zhwY|Q%Tt+6Z_nV^B%p-uiVkJd_jh;nhxdA{gBqqbS?h#4oHsNo3K+B3ln;-)0+;&U
zBuB7ozJQ$LHK7$K=P!-@lnk=LJR%nbHS{ZpV>Colr{XH7QtxUvGJYB+=SM>xa-f^E
zein~ep`~)nm}OFy*IBDyxJ{vGQ$SOL&?5J1ksa~`KN?weA;QTnj$yERN5b{%*D0X#
zAW&)3?i(RGxsHCi)Cy@6jcG$yAWag&grx+UC$`D`&G@bLuhKu?pOyU!ENPXn^wi<s
zhnkLrL14f~luSM*u`H*6Mx|W@$p-5zpqtTm+Bu8JAkkw?hZV7q0u|duk@hqW?c&tk
zTsvmG-6EA14c+vufaM|{8Hq5ld=Ty}&F8rS5hm@Njj0;D!l795X2lRDtrXIHPIP%0
zMO&T?d@;sVa|XK@Hkn`bR5RKH!o7skZF^hiD}H|csRHtw77AcMOLj@??pyarEwWZ4
zIT!YaJxLPHvS?dWq>*i|kaw|{0fB%$^6&BeKwtD$%CI==MdL3sEDRDAXGrW>FT!d*
zVwkqj&Vk|WAo3-~53RO{Y=*@cJVzc7J&)71CUsxDOh}zZgI7(V9ix6fb}DI*{wv&V
zLx|Z<Wo7xP(bfwQD=Q)BCL4c!i7N=D`$$IR`}aR<8`!IKVL|LMSBE!c=?S}1?>D71
z&4ipB4cLmy_;RbGDc76YK2e94r%q`MbCe}y4aqsOgYx^;ZLg&7p>?eveX7cNbE^!f
zHym?E3aEyNkGzbQ&NE5ozuMBeM8j51AVDCx`QzBw075J1*A!wOF-)wJJpSei^&i$o
zEp5HZHBh(u>NDG=`L8Z;>RTrv`udEnoG;GkYQS;;#rTlCeW6^(T`D8y<Xd(0z&&2z
zaBXmtea~PR8|1=pp}|SrFPf+Xb$}~|aJFLRU#hrNc;J9gB55V)L6wy~FvK7TXki<?
zF{S1x&`h){O_@#<<xZ$oR95CATh{$-d93b;o*o}5((F)UPJng|>dS2IGWmhxT|sZZ
z@%@y_1J05fs%a3wrwlROi>o+s#DNni&j8FsLSNT1o(cVny0S9H7sMM{>031Le<pnx
zweb_Tps#Q(9W_l-T(|<lY<jv#x`(U;*(<v<5P{dO1s{w_FLcW^_k|iXqnCD-bzb~|
z1cyF8kfVA&=*~Ro*7hz~64P-ZQN+}RNbFLqmtpnNt<$UcsY;I6<m6iAnL6?8fM@4n
zNz8*`ACYsM;-?Zg#n5Bhe_(p>faI}Pe^718f0<-tjkAq?z^wcai0{xQm`pTHPa0!v
z!x~}5Wt=pJ(t{=h1H&iPwAPNVwPG#{4G%jT`U~u2HFiD{U5^-i@iUfiY<Jknj}Osu
zzv|M84~=a$eRH<D_BE4KeA7)8dCXb#`B91cK?9P-YO_$o7Id!$P<|<ieh6xHZ2|J}
z``$D_gBX`lrvQXGVcG8144Ea>M~w5w87pef!?TxWy31LMCL5;NO&TY2l+;zoo{YBo
z<-`F3Z0O$1r>&$3c%1E%06{IlG=3Nmqk?fryI3du!eVS<8uwS47&!0y!RYFhqBave
zN`JKR<VM_#vB&3yEht(ALO-xxSn<Z0@;ihzy(fp*QGUkU6+cs!wAStl6uzQ=FqX<a
zS_T+H@Q$X+(hQhZpfb^Vg<(SOkgTEun?2hFv7)MLZdi=%`e(Ll?Hy?P9EqlAYV+Cy
zcd{$vXV>wyD;+m&n4I5;2?eC!Pcpu%gbM;4fOH6Z&dHCuA}7;(;R@MjHIuYy-K!vq
zM}%)h5HyrWaAjxT?3N7JS{_D-=nq8~q-MUYy|kRYYsVo&TuX{}cDfE<7)Zl}X&M6I
zAkqm!v&IhxY%^?r9J5W8Cz|IfoftZ>LfULn<_%5R!Oo@D*j=Ft;RIv?Y>5i>y1bHm
zgd-;DKHT+cHm$k|P{`XD^Xf$;Xv->$(@k27j&cDS4Z05lZpquwWFC>Y^vLxou~{50
ztJEz%Ph2XY0VI>-Lw;ulzU0%uho;d288UKETzvEakgBjTs&LDLYw8<MryMk(AVRxE
z$p{AX9wwZZH+S<Vl9JF%O&YV$5MYI7W^_)WZ3$c!Cy+qGt6Sala({>(7Ag$BkDN|q
zq#rju4U*2dOZce6B#k)1XqyK$p48Jr4IL#@$6-}MLGXSV`9D8Jm{s4}cKuZ=l42d1
zEe!9E{7POPD=>EXLLmX`WBc<A#M8>1tZ4Y!f{+l}QbNySsX?Phzw{u!<m|8iJnvQ#
zsuDETqXi-HGR?7EFBQXoiPSUDmh(i-S--ShDY=xANg5H370k_-hS-?kFRSGbbsONs
z{wN90llN_CCOBp|j=lMIM&BV|R^2(8J4<Q{8vT~E_>FHqp0K!i%?4U}^5?Jwei}7E
z<zE_pOEYdgzHE-Dd1`l8Pj9isWV_6;=bML&%CWu#!fSAX3bb{ECC3KZNk&g&^=J|<
zWjQqTOkBMBp%arKMz9W&Vo~P}9MAU9dkK9IYe9-R;#6sz1ZKKYI1On0Wv<*c#4r-A
zwP3!VDM^&Sltl>9Q50~gm!#>sY(W61Dh;jF{@wRds&+pU!|2T_n+x`D3vT>1dgF0O
z`*AjR^lU$deGn`3&n~bW|BT^;LDXdl?LDuN>pc>dzyIkv52>6w*27z1y6ciG=%(bj
z|DFR9{8v^?_p_aO^Y1Ys|2Rk9QHR|8Uza73447PunK5S7Rz-r?EQfTH=I7F!pFr5#
zf<T%--FlJV)(1m(D7sPeKtE=1OQ2X^-okv2NlF*0+>wY$>o!5^*~*(cszP#l5+hPJ
zOJfb#jtL_c4m}=wjRv5Ws@y3j_G{vebLlmXy^RVOyRd=;v+Sujn$cP*ExAiLIG!X@
zv0MNJv!oUpX5r(5JZ&{i7A!={$FQzL)B0NKXadg>fK^(xP;s;w`XAQrETZQqNv#Go
zsg&3YXRSZjU5DvbcQ68-X1MFebYqCD4-HF$jmV7Kk>Cu|7kCB1$k!2^&~e&Pk<Y;~
zTZR4~0hsr>i>=W_%-+mzGm~TcIOfN2+&xU%Nd5UPtAzzU2g_+j>JsWa@c4Eu!dkjM
zz=u*6f8fk$%MA2Jw2rn0H62f99mDyD>1Mn=#mjNFbSJpN?T=1j{JScG3k^d8NPI`5
zRz&|ic<9^9!WJSLXc#gfALy+Wspo;(^iV>)q2TW9fqDg^0AV5sU9wf2Xf`7nH{zEF
z(gZhpWF4@pG{=z0(zjRFAiFq_hrW~SmkHEFf?4sB!fXnZI0H}<)DiHhX#iU#MO_jB
zrGj%f?zTQthSdu&#?`hEFF?X?sFWvmXHnyeJ=`;o;50HN8olssbvMbhs==nNZaJ@;
z-dYe)cXaxTXgM17JXVp~5cLR5WFi$}*kmsaqoQ^zaKAM3dVGkPRs${Edr7ilEX`1*
zwhVvIE@e{mUg#!~Z4ES<Bun(iKsH5KF-8)1^1)CJ|LCHGv5a}zx#N{u0!`q6$Toa@
zfEkd?&EV*8B_h^wUc^|jg<gG{S04*EbT8i-IV$-VZf?J&VwO$|07chZ8{_7X^6NQy
zgo+!sK-)qpQrHXiQ_3_r9+roGF#&CET2*8Y->(aCwv~NTrW6=ujHi&UJ%G2Oml|Dr
zl~R=YUFddFQ%GiD(&Hk+LF}RNNVwTzxJxTe@1_oN7y%In{Mit>3WQ+*!&&uX4i-hJ
z&RRBBG2Se{*fZfE<<?;?+%jZpG+UZfvTVN%B5@R>tawn72qdikF7h}BN2)!wk)2pa
zf#?_u{=cSk3fw9Ugd@%>9sf%L)3I-D_E7KuYGP;{O)YBbtb(GnZY_-btaBo0q@}5L
z&~`2`A2h%B;K46670}fKT)J5;ri#`Hl9x%ohBA8I<#l(kjATbN=P6ds3%f#7l5Dmt
zivv?@4IR~~qIt79RxW4Xm8!O(ljboRIUayqT#8aYwi=g<@zpTL<BU9@2@#A1NT23)
zhe{Z;iLUwl(xQ|V>14awuj(>H5sQX^(_qQpSdgaQ4WH8F;6RNh0gBtRr4N9L?a`%C
zScOrousaN?B_=O_n0gyk?}VZCh>qy}_>ZyrX-IjC89baEFQm)n)2dmt76t{;xMCE5
zq61N&dfkF#!4GL<Kq?a*oHV-qS~tcoMbM-S-)0giQ{xVh|8mOOX+xoa#kV|~rZUcq
z52Ba`U;60=<#Ldhn&3d%qmoisonUH8RWa0xXfmD$kfJ{o2??rEHpM;dgjEimw(DIe
z%E4i>^2hNhzfu|QV>dUL3XGVuGTFtIvx}F)!ttf?!*`|8_3x#KpVxd3Rmwm8ANcdo
a4AUR>-dI{X?^n9BJu2$Talais_x}LI9?^vW

literal 37596
zcmeFa2{_h!yEd%VT3M}<r9!DF4T_=(AvBO8DP!iM5<<w3>9(F$WeAl}k-IWwh|Dt$
zhEQadaYd4Op53?a{Qa%xIrh8X@7>?CpXc5C*!w&7I*xT@xZVE$-~ac!uJb&v^SXGR
zKBd6+3(qesEG%p%j?1aCu>9o6!m`-t=Oy?`Q{b~9{IkSJNkI<(;=k#m*);sK^y+bK
zTNaiLx5@vD{5pp(vaoDqIU#pg-7%!E<@$s57c*stqMRol-TigB`Ook9z0T+UwsE5(
zi{}qK9}mZGY`*dI=?_{z2IyC){Qh%$<+AqDZ9fPGFL`(B>|Z=~@@HJ#wB7v3?w~^(
zAGv1DPAZ%#)!wUgKQubNq|5fyshFrXx8Cmb*sNKGy`5dWx?sQ$<igxPltk&14_H{t
zkG)<-{=IwV2Ltl2`<<0T)N3w0aOWmp*ckR>4*8d5?bbhjBLBYMzDR`pd+69w$3^6W
zy^4RwTb$mMH`ghmU}0fVQ&(5ioM~GvY@)um2tWS%vf2~-MX!Ikd1RBMl+<Sa=jwtH
zdLO@ExPv!$uPoyD-+#Nhhqp-H0mTT_2Z|8~{%~JhCCrNVabN!H|M|-Gl?sja@VX4W
zIWS(MX6z?D;W6A%te~&2fAZn(P4+Ez^;2U}vKwTlOH|rFo6vn!qxXl)G&MCDPxO7Z
z{;;RGAiH%u{_^F^9&BO_8)fFcuowTtt@mp}&PeIqnMX3NPPnIIxHa4%&C|mpK0f}T
zw6pzs=f1?m&OqH`M~@!8lKfH3`t4GIf@&4n+)}r16?DF?5ZhCIX-$@UE`50TaQFEm
zE^{4xeiF9d<Py)WZ#*>KGuUif;nQ6mRlH=~m0#J|*b-apn+m&RCNm#OIapq^vwLYz
zHxE-S>Mk>6+Nc&|MQ`iPFB8f6m0SPXnGX;5Y!+*}l6+yd2{+sR`>InOpOa0B*IDK4
z`O4HRj*?|`hkq**$#+S$%x-g=-J1Rc*PGw(RcLgOIn`lZF40xMDl_!k8gWa#{i33U
zE2R2<EnaVX^24Kj0*#H0brbPhu==W6xaE|zv=vUl-@bk0O<x;hGqCL4u-=b&7#9wC
zica{^=E716xpW`!8y%mI&u7jYo(;k8iO$P&`;_N<aOAzJt?j70t8%c|F4OrMHI)E^
z>zx5r--4}V&gDnZ-JGJ&?hM55i4F@3yEay-z~1172e*BfZrYXO9jRBpysZj#9+3F%
z8hpUos5?3;lt-1`d3s03wW<>WTl)v|W(N-U8oWAp*p%)%v36vl{_|(;z~P>OXSaD3
zXWGnSU*2-brZIXAOZrEqU7}M{Q&ocT+^X#A^|c-!ux@`k`7$~>dcX5T-{E?x2YZCM
zyrpL>O-<LPv~`vRO=f&NSDGubyx5il_j;Gj_YeJ}N`X5)pV&9<FmRjhOd7vF@!6#K
z&f0yquI+CZt=C)CWR>rlGhU~Av}bl8d(hV*f3_v@+?&5FYI2=zYV*aDIEekf-sb%#
z>sk#hwg%=s1zyh^>@tp@#^=AV(>zZ2Z!3JqE_?8D)6HevMdeb1>nB^C2cKG$?drGY
ziJ2YDmlbPs8Fd_b!&+9?^|%4g+^DZ1kt4DFc>DBd7kjsT{!DGc{mw8y8OfgB-r1DQ
z>2JXu9-DnV@OCR24Q*|0$&QJ~e%_=R8fr86x5s$f-GS}nV^JX;9UXptqulX2Z}Ws)
zF|M6wf8DTQ!<n62VP|(9GdDNSndyn$<1o;CVEU_nSYl#g8*?CMwEVze&glKJRRX8(
z=vw89wz|#sZ|Cx^tgPgyI5>K8z1!566Tv}-ZW1dbzdzmN+A<?#IIWnHl2U*>+u$cN
za~U7wEZj*;OPgX0()fa{@~&4+cpJ_ct#@d)wyxKAkXKVvo15#B^{Y3eNn`z1|8mo@
zGeE2TMVPN*V@0sI2=Dc;_uT4pvCs`Bbl3aUtMBm1%EV{1d!0?Wd<I8I9&eAW`%v7<
zpf9ERR7wAegF~;+OQjy7RjrSD=Je$zw^3t?sWfvUHNkaP==E=pE?Zdm7$vSjs0tJ@
z<gJjN)YG&5D4ICWoJ|;a(u#<Q5j-V5Uh{S2VvxSrcMI&@4_LcQmv&Eq6%EYXL02pC
z^5J%Gkz=~Lx~shlzxVWbiMKj#CacweAG)7LXY`pEm)zfKepTgI(bc|Xoo>P;9Pi!M
zf7BxxyEaWRZ(uGcf9~STnV#?8w<{xjbz7A_*s<7c*IcnI)7mdV7YDjO_DVgYW--SZ
z$>D-k{?)&Xr8y3_%NTaFUaMACvdS4Q5^Uo3F06XP$`_KtXzr4!x600)Y?U%iuQzaJ
zb8N#}c7Hm`uH49H`(Y0wZC8-unkZG%?@{d3HQIL+`-w0{>GOIFDg9$2xnruTDu@I)
zrpB))RHVn%tK7nT#Cja!y2_vEW?^k+bKN42JUcBp@_w_wO#bvotBEGDk81mu*XNxs
z@8ZYZZFFA$Ci_<4F5SSL`MvssI<a}YPT!w7GREuu%WS`W@Vs^FmRl1aZEo25(_z-F
zLF6q~WcezKecqBcnL8*i9HiShzRoh^{Cd~1N@=EjhmUyC)NqH^XPKa~!t}iHmtRLd
zinryI+E>WTUO71S=_m)s88x+4=~yWD$zAk{;#w`kCoUJ~y@cYo_p)DR+x8NNDk{`T
zFw|wF<m(7lW*s*0xXyTHT3UmV_t(qSzP`SPRn`r6@Xa64mSK!l&u-{tOf-qeOub>B
zaAqh@yU4hWh4F0-qD{TyTah}(A*wffM1t;(TXpZ_7>a*JUaZZm^m9wm%vYo#{cJ5$
z*kGrAC8=cFjn;2XZA|;5xuJLL#RwbH=VlXJI)%>Y>r0;t9x&`Mq%p>gvGdlya-H05
zik(tfTU#6TF}2<xcqeT<)=;^;Uh*y$?7%=q$Ne%IbCk}StDG4wdg`d%c&(N|S#^}k
zptaLq_CLXPE*T+#$gL?gJ-t|kHdFm|ghOHdnZR+swfnX$%`$ZEPrYnqC8Ctyx&L2X
zziqjMfVNEM12v;yi!@K|<V%GeezG!`8ycHR!)EyTnWM7vw#U;S9lUPiS9XK3y`d&r
zjkVtvyFxK=68ZJ8Ur3+p*m)BZ6S|mfSGjUvHlN+Whj^5(B_sPP4(|Kf^zvm&k?9MB
z%DfBHQyqSW9d4!lVSJ3sNiIzm>4gXdnWgrV&9*8y@*W-y&V#wec<8(-gA)@I8KdP=
z9S_t_d9u6wu{d$KXdOxONYE2glXIgL0_khJZN=FOul6tNbfJz`lEUlkTlNj-Z<8Mk
zi;mvGuQ@kV`^Y48Eq=T6ops{EMSgsI#e6iEX4*VsF>j)_U_g6!6#bMi`*`mJ9(C(z
z=;W3lL#OVDMNRCTm*2QB+k)TyzI4?s_2P59*pU~m=QAd}BO@a(o0)mx$q*com6i3?
zaPrl_`^|nQEyWvLg`#l3+YvDQs`us0whZzn+ObC>kQTF-w&2XhUU7Ky6Ze)flMw47
zcUL6EsS*{pmBz)sKJ3_H!&o>G0&dRcI9gx3c1;co>xW%+?OI%6?poe=sUi=0Gk?bB
zd%tbbpw5Az*NaJnv3|!UUVsSDym?AD>ze5t0FaMqb!4Gb>#*-szZEUJRK|(+#0iPv
zsKNZLb(Rlzrl+JVZ?JzAcCtQ=5rgRU_3}p#&S$zxN=hVDBci3GrphZQD2yaHpVivQ
z<=^D<Rl>1)P1LiV+?R3btxlWM2A&=04)?#`Ia(o`Uoq~@Epn>7LRUkBlXd;o*Y1ob
z*jB^S6|_A5ca628%{Vfl)RDQeawt9mD|P@!*SI`HqVn_Swad76dXTIlGy14PPD4XO
zPA&(BYS>f7g<m-H>wTH@!41Ez;Ht4tzff}jLS|y3HQV5up|vGLw)&r(4`$D2Xl{MD
z_oCv6v8_nX(2);x+5F=1g&avXa!*gsOn+}?SEx6(gh=MxZ|p7`EwlU69H%>jjHgFB
z&um})9EmSlU6I+J(cybBPvNL|!*weKBg3;z3jr<o$DE4~D!Po@3p`28D&*AC<9PY<
zrFEq|_tyIPN!q*vK?Bm3{$-s`A!bN425YLa0Kfdyq^=|ua+zzpPIua5@^<~=1|Z@5
zqs>u9J%hEg?qa51e6e55_=?ljffZdH$XQClhW4K?me@qAd*K)&HV)ksS>8}zfrEcx
znq+ta4rE5|`4xnp@PCfo4YWi5G=_+$-<17I@#u7A(i`8seBG|+mH)QbE5aT>eoO&n
zB$kpkUf@`n{?>Wsq(B+tNp?zlt87{d07Sz1fOqED+Dd_4AA^I8wuZe+F|EGeDHNZ<
zU#O`0a`w98d>4%=AR#_rI6qVG*q>St2!RE0b=&ePeW0mytx3q9?;Nj`f`t36<z^e-
zciNmWG^FeCmfovEpzeEWQPs?SYi0pX`nfy&NTukJ_CoJjJ=)Zl+X7`l`u3mi{w0PA
zMxl~+W;m;syJFY#(x*R|-0$31eqeKBQ<GZUwpnIxK2u1W*)r%>-?4o_@zv)`!G#D(
zn~e&uU(yP-og|5~>eBY#EGEO0fM!_r2Mf6kbGCI(#LmhzF>d$IR5QMRWvai;+ug8$
z_@sYm75&uO$_rF6arZ9`b#--9AFbT{^$cpGSL1=v9gC$}@9Bl^F)nhK-D&qxw7vid
zC`507cS7?qE_$oP%h$aL`Mi9y4aK+S!c56#PH^ovf2VEmtq)K@`bZXIvQ3stSnr{c
zyz3L|qO}W=8qwH~&K!#>X_Fa`R$*&Yn4E23sI$k~Otv@_i{}mdh`vanvGTcGO`5As
za7!&_4<EP3)+>0K-YR*S{w`7E!R$gD;9WGxBMEe7^!E3q)(Cxt`VK9ecu4urV`GK*
zHA9j|`_tQe0aZl^H#&>(ASYK-Utf$vP#2Ye-ND<n-u3&l+eWkf>3)d5;?tF>z(pc?
zQxrIp&RZgD*HgoLUOl3u)5f}NSGt@`zL8pXZ+x~<wX(R6l1T1;1DD}K-oy3?7d!Pb
zc3Wn420jFlI{A424!2=%!*C5J`O;1s=~ErUjphm95LY<5LY*yhrrNzrc5v`({!Syf
zquH^;XE@Q%b?0Z9+fBD+=e~R$&g)NWGOCNyK5@wD^&-}>soi0+w>Q|IO`3Z$=pt}R
zqVoYkh~)6fktlg^^us>uzQp39-&lFiPRw2{;8567Mp!|I`{ETIc)DVld{3S{86K-v
zDgJVskGB|S;qJ`(c-Lnk74itEhn57K1@y6q@HpE~15#Q0s!dHr+Aejbi2yB7g6{Nu
z#MG@8bf=!^!-MrL4sB0TWWPN$USeUmeYI0fbyZcBRg(hm^>B4Hwd6+Qw32PX%XNwy
zV;)#bl0Yfu(B?Yn?%HZyydhRP5La@ePDhwPL@n)iPaIk$!kZlI>;mkYt&2CcrHi<H
zSr$>^FCY+Ph_%(2$d)vAsX3#-cAdd(=wj_xws=QZ-fq2x>$X4e7YDYQ+S<Z4=0y5K
zu+F=U2_R?$RkJyT_setZuNH5<`tEMIgcI2wbJL^7H`v71sIr*`<Diiz2G+XgYm>`F
zGTldk&-L1x*wT1HRuS3xvInxv8zbVXmI{P?>aqg0l6Ko-xe-Bn`1NA;0$-_t1DBh?
zRCf#Kj#a&gj@Is%WVJzLWzX^x7ZWSm?00Y_$mWN;v%CJq^{PkdAJS9~Jt$$B)g4KY
zVF#$QH^E1|AQIF=efDe<NyP<Vg=_a+`rzR@*&-ejdt0pLHm}oV!mak0l!s)1kQ=q;
zTqo@7@|7!hqSc~`5VqQpi0|x5Z?<_jcz)U<<IAmKfG{zxT{^1?*lfr4@Q`H=`z3;P
z;)*?SI%MpDL`W{}z)jsrG%k+Rw~=oGLT?9>Qkxr`XIkk2s_n6A&2gL?E)L7glqmAu
zunweLxi70Xe)t)?>*dt6H#QB|yPg>PD~ovodheQU@)QWo(Am@n_}Wn-K)>TWkSRcD
z8KHK@mCxn(xXn#ba0mOsN5!>AEwMW?ctx?k2hL;$K5S1c=JhTU&fYly)apnG40zxk
zi^h}#U+*4mfAww!g+nYY4PNGzWr{4X|C7LGsv?(V6NtdVqDfcVPkr!jDnO5hC-di}
zZ8Dp6=AGwf+vpSeCw%r0=D$Y&U+YCL^r9i@=#y`<u*6pUzX&?y8~;8ziTuRhqe#`7
za^Dr*wQCn3!z25(H_U**JUmpRSK~`NwA8NOQJJ^N)Y~s6hHwBbh&cX0C}t-x9S;u=
zKmYU7+X<>E<<tm_iHUiUkl;sYJBY$6na@jA_4PN{+1YV$5I6!hyhBS}JIhZ60d1Rs
zm4d3WvNBPH<m8;4ok2At^v+z2e)-Y|&&gxAOsuMw7I$r}Q0q)OAk(wc$I1H{8uH<c
z;QbmKd7xHxdI>5)Ir=&(<jZDeYU-&P{lG>(AYyiEzqojmo^q!tcCVf=H%F0)#s}qD
z6HCcg10BYejapn?15k@fW*N0x|Ik+kRb92J9G6eh>rSqHX9kb!O1vp4?U1++B(PTo
zF{LOf2;aZp(q|Z(X5#{!bw@=cQ?HyU>OL^5<?Nh2+)coj!XXnEr<j*7m5T&~_}=@4
z4=hTUlyw!|zkke;vC@6ArlFz1*yYDRq<z30rrlrX)oS5pzK%|B4^S*J;r!4tThGW%
z&XhN7=^B_w$ji!iC@*!U2e4+xEseTNJ<WeiSNwZ7!hfu~`Hx<Ox?LkQ)qpT$T>@2f
z9RTAzJOTp)FPobyMfgH%L$o<@u?6oRs|1yG3zIpSU)&jF7;3*ZTC(reyLKoev_=TZ
zEXzIro?}Zc^grgL{bww&283d5KxTe=g{E+5s*}Rw;qK^J#|zfZe3rSz@218c08Z~*
zM-NSUMYE$Vuh-Cayds!dwBL@8?jmF5;*`i(t}jFP!%4DV%Na4rl%Ky-@%oO6;Y0#+
z+|AI;#c8kjhK8((RspS%fs3g`AhJu<Tkl@kU8%t5Gf11CH4VBKW9%!jZ3SfKlrpSk
z-6k9$hzZHZ(gW1vBcTgGB2v!2bC?_hgcc~&XY*XHH+HIr0Pl<N^8@2AoZpK;MnwAc
z@Yufkm&&TD`#9WN=@kmlwB+KZUJER%VBH)IL5XMGI^a}qwLb$9s0rbZ9-IjR{r&wr
zv}%GZB%i;0xr>M=_G?{9$N}Azi+honoV<^OkOlI4tiY>31G|iT#nshy@A=D!C`X>%
zB@qRAQ^JGfCtMqebwx!*FJfY_5218Qz0C{)bN%}Mm7)vdcyMO->xEde+qU|*i`Fih
zc|rQCerT;#-@aPV=16N(slXd7uBVeiV=4EUj%uyRgk7t><vXgC5DP~5&%4a@Finj$
zLq!xwzWJe5aRcA82CqFY3W~SUD+Cr<Mbtfv9B6yh)7N(gE4ey0`k<(&Xo>AL6O$<R
zpPjTbt>ojTSWdCDs^Jz^4%uJ3_Va6J?ddP}a*mb;H_2tjRux4h1T1p=eYpFj^K0{g
zR;@{v>Z!3>M(+8D@?0m~>M)1RbMJYmQ*i0uQ@$WS@%QAL|BO@cPt{@m=SKdombL!r
z<&3Eoei{PZ=io$xF;Kok0ram`$o@o-I`IAJ4I?0OA3fn9dr#_DUEF8(Lo3e4f!V&~
z4ro-}!;?VY`-#ldU|S(g6ajCS*25$;vAq7i8!uK8&fG$z>xQfE*g8J!tGMHkH~QpW
zS*OvLw>PZ;5Q|V(SP$%JvEHucjA;<5ZL*x^3TwYw7oikXw3z+iuN)lQdRGsV3f37&
zH2_E3lpn7qU;1j338cL4c|^q4PBW?$SZb{PV@`$ayo;RN6%-5hoPYbfOg#bh2G0GQ
z92}4s>BmyU$ggn!vRCkjR{V-%as^;_l~%!?s|4^dkze>lsW)4meg;}8bR!N9g4W%d
zNR@$uV;I_ot(+NEq+DYe)~-;O)@T;%;V}gk&ta7}eF-9eUhz28mSIrBP5jIaV=KP)
zC0F<wC1#ZNu8<!4^zh*I5gpBgbBNC)^Q9~yc_Y&~!`&A<(^hfd4llYmb<4;=R0S@A
zlt*7zS5vcwZUATpqUTo@@H{V1rhlcXmZ72Hy(UWpwj@0uHw3C3nrhc$V&@rYX^5zZ
z)2eZiBiH!o2&Zmsz45Vl1H^VD1QOR;=(M6cYmM=%m`(<s34Ese#5X(~Udv-!o%f-I
zwa(QgX|H&{!DtT;=b}MKiAG&d9DIo)eM*)wcAz&d*{CY~1ePL!#t;(D8G8Fw`M8!=
z{ZmE@_5dTT39NCS=y@Q%M==iJYw5prj$ZHB$I`Ly6>uK!sv}M@HNzY{@jp8Wy0)R_
zHNbJa(!byFT#?B+a5dAQ)0N1If{gLa7DZ9CZ;^}l$t=dzoz*OgN=~-*v63>ow1iaW
zT)LGEz2v>Q3PD*KI<ko549eP$;)eZ&mE;lcHoNoKJspyh+lW8CKzg!y6|T$SAY|Lh
zhK4l|7pzDPXc(fbLP5St*Y3Nqz=drI8+;(SPM=9v6tis3AgC2`D+CP1>=3VH=1i}G
zoZPe19v903BlMK19Ew+YoV6~P9qBAni+_=HZN5hd%$`cJfZXx%zEEN0<m7<Mp;Cqu
z7!Cr5WZ~gK<P-|>_mqj{w%42rn9?x>E(dxB2(PMI`6sAH#mt|5Bse&@zUOC;$`^@=
zdn86|paLG9(QL{J$NfnpUH_bP5u%_fem{zS+otPYgPHcP=F26rXGyw^;4oH`$hCkW
zmW_S^w$)Hetnwwp{o4NO1z^~h)~W{%*s9r1Vn4dv*&rpx|Di=|tGDfBz~Fd&!HcDi
zn>7zQLcaF{&z{U2AoS3~10_e(Pj2AC*=`9ajB2N(rzc#$w>eH-@cLrepF676CT%@F
zyCLs>@f+@rot3!ZRrnl$ewL{b-C<mnXY|7vPe0|!gj%hh3IE7}ii&`lHIdP?c@{|3
zc?=++rH;<s(lQ1@GbU|35AhD_f?Efl`KYM0ba8z%aD9}`uCLiDmGDtwKxnXD|JGqV
z8mWPd&HVfmkZm5sQs;QPpB?`nxge(`P^6)X?bs#N_Q+m>>=BlWd(2K%4iPTNC1S81
z8mq1ivzSC4Hu2_PN$m#|C+dm4j^EKa>dlg_)clwO_C_>stAKhOyTUl_WFw;fe~F>q
z@m2+vD(d8;m2Fc+;_XlyJn|X+R+UieND&r+K!)()7qPKQ*_2PiJ&8wjkriO!4z<XF
z2RqcNgejZDIk~u1vPs0)!Lpm@f1tvDRdyC5+5ZE}_Jl%j?&1I~gGZ%VwwZeB8XEF)
za-dQGxQZLdp6bh=XGX`ZV_9>ZWV)SaUu_Jq13yLO(3_(4>SiwxC?MU52H3sJip$NF
z&YNcpMkNg>K61`QImQ=OhK}gCVA`soAMWf0q$Wa8O4;#Rh(JO1OIcq3tdrw7EXiO-
zWi{6DR-N9-Ro~qe>fy0;)wXc`AHJ++qju(_|NkO44ajqK&=cjMSTtT-E*MmXCxA0G
zUT-MdX(kvny!Nb}T`Ebkd7Py9s&=m<`O4>{6s6->OnrG7v6gf?L<Yik6CZ1sU%7HJ
z`}Z1AF)_`r6aE$Rv$oTOlq4jmBt9;!c6EV>a-}R6xs`-=FbRBBO+zDKr{4ytx~Z`$
zXBWXUcH>#nsUJISIHwyqhX=dpit&4tzYQG4%QWtFfJ_D3FO7}`MtENwIolkoYTjpI
z(MpSJO8ATUQ;5TfXHSB|y>z*uCKx~@aomE+q_}%gRFs~u$?V!g!a+*gBnpiZ`HQ1g
zn)8?j%rrph@M?2Q8sZUeM)e#w1OQR8B@+tLg1S@X>hfpgWmUX+<V{|y(q#Q)e7x`?
zD-j^7N87o7x#_i@t{7(;uF-C;Rp52bvU5T$S~Rkx+5B99j7+PQ`asUMWwr^eS+tG$
zSwH5)MuXo$GpH6eJ`EKLfDXQ?Lgc_|;i&ewgFW!h@X!sANXSDe@ZuIiD!{!L`l+D6
z(YQ4{J~=s=pD!2+!&fzCd3pI|OUqN4&-3tkmGCAzP)p8C#{T{LxA=!lOxXKrh(OLN
znS$Bp81g6~iCB4j583m3U*AcnS9|UI8ZNlNCUUaDc`a;1d%Le#TE@R;|G93wIPQLz
zE06`C#BPT{L*by<sm$!mdM|cM!Qn(C=u_Ve0(6Y6jEnAQcQi?|{sZPR>U8~c{<QzZ
zw}2+O`>`~P8L-0KE6oai{Food1>p)-6a*s3jHE;qU}vI_Y>JA*&H%eEn@kjs6?=%d
z5aDaxQB*jAWLDZMDJcnWN$8p{UYhT_MhUFq;J|sRtg8!D+^}lfNe_$k7O?=k#jh@r
zatkTJscJjm1vND_fJE2{sGqC%G=O;cPp)NQc>uf5nvbE<Qmrnd9}(U@qU^gJ-lhoE
z9q|zLNx=JB;y=sgsH>w>H$D7F(k{lGd!sS2No2r~R4u$&1G)M!7}nDdA<wCN{eQ_m
z`2X>EV)_<YVPj@yQzG*@&Qji?Q*g$VOZLW{&A56#Gn>lePlJ<Ka{%J4nbTdxu$l3q
zdS&<lJ|PGnnOcj<?|4-%<ow#XCpwDQ`Q+r9fmny%u)FORYjy0%7^_n1fbuUq*+X4U
zo%Tg`N0X0_Im-ffdABhJ9QL5*<>5gUCkj@n+#!$21odghneM2vTpjW=?slg>FK+el
zz%io)d1CV-7N~O6J4rRd!y`66OK_V?=z4zv72meGZ{ltbsN8XmjZNuwQwwUi?Zg%c
zR4GJxhESs7=O=Ci-$(mQiZZM_+ItP>op$P^T+UFU)_;x0E$Kh>qqDLkiMNS3ok;Np
zo*1h_r{0&`WHkmdyNWIaTW}F**@h}Ffb6lDoz&%i;7N2(&;BUZw3965Ls^<z4qO__
zOgFI7LR|AISb_Xdcb-18K<XCVaeS={ygppa=eODS0KXW_3%s%!X{hItYyi|=NQ@Qa
zr%<H060Sr&ulK)mEOQJJ*5^S5kKGtN(;Ia%X}9SzLl8n@N60|guLBj-JJ(0Qkr>x8
z&&Z$W=HLKNh99z`knD2Riwm~ZqE}0D@O38WU=jR^#&c7{l<^Y2H7*VgRKsalhsBBT
zLlL@Sgh~=reUO(aR6lu>O)5^!On(#4mk9au?NrCFUdw`qAOqa91EpE-txADgXbCu^
z)u*I(`N}e<8c^zE?d#agH+?*54%Rz1g-6u(c%(Vu?f{ZU%AaFXO{b*#SCbN^%h%0(
zo=9Mu#;bGn6VL86_n}@Lb{HFjl(V#%Z@Ke+6`;G=TuE=SH?OJhlAWKn37|0P?w$wI
ze>~Z5s_KFgrQcC@>HT=4x|jq$#&?B_F%)$_H@3t1^(^4ZX0Y4LZ0g6J2DxNPtsbD(
z=gyrZzBlVgjp6Z5@%{TByxc|o`gzTX&5qo{dTV@qd`K99s4(`lKYyxFWLrORw%7zw
z$78oy04@L?&LkJqwAdS&xL@T!knV5)@&#c2y8fLAVi!M6NcE?vQKp@M?Df=^IuqNs
zXplZX*LC4~bB6VeG($M6?swvTlbSoJOSz+iV+A+kN18(@U(T$aaC&JIb?Lib;rOnz
zNI8?#+}bL0c@|mg!gV}95r+jT5vGYHTrd%#Udd`P520Y6b}Jryss0M`)~{b^;E{a$
z0N)e59a5KPQLL2JMwR|pX4%4FNk!lw&MlvrnHdj{448*HSY@XUgS2a;F+Nwgagh~4
zVJI?kn+&|df&b#3tc;C~^&DF4N;>^dN$!X|^@N8&&ADzBnwLPRBR|>AMYFAwd6X~9
zUd!P6MNqu7zuj}~yUK0>nPJZ<2>g8H>C4GcR@|@m6egOOZ<mSOAqK5?XQ+ovZe+8g
z)=X7U-fCh(^s^nA5Cd6qg!iB$){xP2HGsOG-DYfM963T3fWX$MyURmECa0g2H4)Oq
zK40*Eh|OdZPdUF?G}~}=glbXdhjn-r3Y8y^$5HEc?#b>ee->%ZIsR`{=$-wF)+5h;
zoou7gh(9>gvEB14Yu%Dj#3?qd6VxLOD}D82&S+PKA1TS=x9?xy!frO)UT96sTrjJ0
z!3pFG!nb<@-p{E|w`Eq7$1J!Y13l2iV<iEP*&)l^{5Uw+KVSLL-mQ^fcmO_~2Kwx{
z7g7}_N7Q-F_03;?8b%P5bi)}bM$lMaTl>!bkG<3e@Yvy8b-g<xXxo>8I$f&`?9yYW
ziRZ4<;G<v*^f7BVHRSN7AxLP65GWL&GlK&cLYUwo)%|;t)a@KQf-54PmXZ-4@zw)I
zUj~Soqh8NeSx#<l=(cQMVk^#NgH7444mhvZ+@nH2%dsPQ%^S+;*m0zsU)JK9Zwd9x
z!-G`cJ#Lm#?`$gQ{5l)f8i6ukwax*z0AeA1A|=kxFEjRx-RHd|^;oMkC)D<@heL80
zHZ3WBerW$(5Eph$3eGt8zD$1}76t-NJzWHBRPot{VXh`-S>i1jhU;*D8XPd2#vO<;
zBk`<WryV%E@fFxYkM;-zm9h1&xTBh>Ck)*K=<*P-8T1rDMqzpd{3gpM*~Km$#^vP`
z7%la-Ry`D2msfLo_Wb*<Lw@HUqsB@gB$zqpbi=haw}Yo#?POm)O-mCSnNH#>epNU3
zY0#@Ua^+;gKohA><lFvcr!hFZBS3M7X0lm8MulIv;*)y0u@G)8GapkO37LSoHIWgs
zY5P9S?N$z$ayd{XXlGE(uzN;<cAJ8v{Ia=r?)-;8<~X!oH*ta1v=a-l;8`K={%_?^
z*2%({dA}D~w;dbIhZt5am4~dQf*j)sjX6y`l!JCh*}Uq<-Nj)DeYnTCin{eMcZb3)
z8TrMRI$0%qlYT3Tf|Km`g}MZ1rj>&hPSm~gE?lis%hN$$zyPooE)AmYiY>lBjS3lr
z3A)aYNJ_qf+?1kpHsapQ#O1BAW3EC$Wg0F%rh8=;$JS)dW--607QD8tR=jtUXLFtK
zGQruv1Ey8s#Dlkvg9Dnd-dx)}!!T2;QUSGO7~K$-hHvoAZIpo{p%})`bx2#j*n%?C
z)~T>YN-*JxW_OmRcGTu)eF{UuIw{*pM1qQF5Mo!S4TqU-0nvdQ;Ak`^VVJiT2Pimx
zLQ>03M|UR|)geI&U77JvJ0n%-ydOV)w1zdEGO`8f*_6Pohl9>=+hvYTL`>A1YE$F+
zVhne3-9D(f*`o6vE0VB|uC7{qq=>@MG2l$MbUF%~9PtoE?d-;-WCAjj{ZbIay<C{x
z%-W~qqk}xIowp-<lOS+=HM?OW-4Dw{7sf0jtuiYH8%W|v8cJQ@SEZceo#U>B=IUDq
z3~^pdcI?Nmdh+~P5aRZQ^4h8@)qA5Mip^aLI$H;HIfQ(@DkvQ>$ItL)fUQ~wwwa7W
zLc!x>jfZTj_jis?FO<|oFP#rf7K<7shY&WA3CGdKx;id_C)cX(TIFxE;>x0TO&Y_q
zCD?QlEer8kJu!}mCC{OXzD{_*0bX;4K{`n7roq<%Q$;3QaCp63lX{u_I-a7BQxY8g
zTicAQ>*~bFk@>AiV3~;CyO*)CvHX+$16`qUH9SIluJM{ebHuTco10zVgvw&*GUt-6
z(URG0YDEHb^Aa3=VhR|sv&~OcWj7vI1AJRKl$M&Rae>9aQ`Cn#IC6xxu{vqs@bvJy
zqZn$F8R9O!c**17NCE?wItry0wbp&xzcQ@-!lsTQAEiL?hI2PG(z@N^Unsh~V<+3@
zRaU9nkAnah>I1^88qh?EiJ!C{R7EHePorz&wfUGEd|Rn-bnFK5GV#i0X0N|bVCdE$
zy_H0|gBNKslL?C{a4jI3{mXJw>IY8mI99j={t9B3F2Yf3M^A>Ad3@$JiS%O#H5BMh
zrZaZ(KQCr~Mg7Eu&o3k%q+$mMXMKNu0KVh)ncf6HZ23HuVEBdhl4{B77z(0n&*xa`
zh-29S>A?@13ie<C-P;$X;Z)YvLxYJmLL^n!K>Lm&X$T;hg!qNfWWiSEw1{PD9$i@}
z>+K%N{*gYIw<UAwmP5Pmu3uUAtJvlj_cktG>ZR-P{>#rDj)%A|4*hI$!TKlK&eAtO
zd-%FPU2*5|nqSxaej{n~c{ZM{i{EX#z4egC1r^JIx_sHarbmxESlVP~$IQr77zSK(
zsBN;UpI}^TF@plUlyjNm=(I~Spd{6N1N_o9+8`NZ;ABcpI|qk#>-8?SDP{)okOC4E
zfjCG!ou*EBxW4=kt+-KQpZjwAqoQ`Ina127tg;>+9%N}iCiFb-Q?E2TCGU2j|9hC9
z@bB5gB}jnq8LjkT`3*2f-RuT7&R@BJ!D_<sNa4)((S^m9pP$4IqTQc-A}NZjAU-n(
za2K(A*Fr<s_k6sVWWV!HFy6^0H0ztZzl--nks#|&d{YyLmw+K!op-|Sx!Da+SJ{;?
zA7*Bi&#?a!e7zua$`IW%Z?B;(=u)md`c5v!FAz6-z|IXaE{^B3($gpTmI>O#-a_Hx
z?N~#iaoGa4JM<B!b{3|p7rR^Ny25d^!a-=ce*!=1n^M@4Z^uxENG|Czv@Ybl*^PFX
z|K$P|)?3RFC$n6E7QDd7Al;2WS$ySUBYPPnM_#VLgJX01-J>gZ{E0Y4fn}`_lZnv_
zMJjL#(#SQ}qm}P9Ffi~IKlf-Asy02@mL*pKRIMiblBn&x{1RKh!*0S2(TgI~9`1jN
zDx`1&T{=kTeaW>?Kx`q;bE_itdMr);UmTvSQaQMXv`8I5t<YP>1n*8-Ns5B<#v&9K
z0N?3kL7SfjC8hda9o2(--x`kp;=lZ~teu>N*4EYr$d$%OD8%TbD9lSX#nVWQ{eS33
zp^8!DvyL0#AhxKT+AK?MdbKQ2c=yu3wgjqwwyL}e!Qq&d)gV_svnMt|*jSW$bt*yi
zBDCqU?*jv^?e)tRIs<2-@Kw^zBP}g0&o|iH>;2O*u7c<C-oMPJL)ef5B*|Q$sV_|N
z@af1XZqinyFj=}Is({9*rxlXIApz2$D!B^;;&DKOUz`Q$ry~Y-gbp6G|G2t*+ei0w
zk)f+EaDhkuXJ4=5fGXBrr6l6xK@}yKv-$H<B{tOc?%i7HF3xWR2l0-R^CLm|C*yx5
zUw6NA;@}_p^Lg3%kbhUjQS5Z1?n-t?DJiLC)dO#qkr#cUd9vp8wmD3`<6~a^O91&2
z%LS!(k@TeNNIx^<Aw-Nu#fk@+L-osiJ$+#hr{D+>Ct6EO?&pMHn9o0iNF@L5d=yw!
zo<^J{GC~Jh*Sxc`3KlrY`#VX7Z=8{O<*lr&O1g*(7rW31Nt;5bU>%uMwU_0^bu8h0
zry(<<Ie9?_+1$K}+CKk=1{1(gsAEpk=Ovt+oJyseNZaD)uBGIT?q0;((ME&Y<QyCv
zGEIaQ&U(WkKwlI}$QMy}*+!(FxAUaJTj05BGumwsx!`7s9cq|`lmL^-4u>7&-B?6l
zVk-dtbDP)2dBUEFL&lsP<kK>AwcFI};{o+*7{%!VSVpO;&zE<%i;2|ol_IbW%W*9@
zXB5dkh#s?Huq0Vx{JebGancA(7am^T;XiJ$7s1xu0RyNf@lO-v2R_>=Ox@7aZM6Z;
zx5QhnseP$i4o+RswrU_g0q}+-a+Ht38G2;0sf!JMhKr>!yJ%dI0;fVUO1cK&*u2?I
zAb%&-Ys&KU5+YJAdYhJ2N5r@4N9E<^?PkCT`ruDS_?R$FhVyq})a3jt3=@sy&u5|T
z__xQ6y>NTI&GGXyMeD4Zzm8hL{_K;-MSi(^72%*@i^3=ASlnUsYDRyzrMt~^6Xy8K
zJn6dmmtoDBv=@+uP7jao{rx^v8xn4=m^ivgzZ2y|g|0&LApYPz0G2qSz8)Tau6@SC
zD)VD1f4d`#8LdxZYAA`2Hc{UL?H*`t0J|_k59}WFK|W8AK>tNYpspoqa#{lm=g5q3
zZjV&iKznFu#l$UO^2AP)m>Jf&wn8iHAk6jX3JJLk9Gx2tsIYJ*<jt7zms!GzNs(;m
z$9HgUk8dFI6XKFwpt40agp$_r#a*>EKyqsa6AW@C6M4{t`s%q~8|<<`>l%e#%=0Z`
z^op)9=-~HwZmrnRBNDTzLvZELvAEp(lcZPZ;LP{1M598lvuFY(-4=+@P_hc3obnyL
zz2ap}`y%uVWA9JXi9y$2c=H*xs8gInsvM;G@ccoUHE5uDu-uUkM62M3q5W&5ol@Mn
z_r@D78l1VceC^8Yz9gl-q%z^!vs7Gq{q*z%pEd<So=V0b3is5;62~si`vwjUB7=x>
zQQ_lswIJ8fx6x_Jt{Y-o?uib~{H{bh;)aHw9bB)S=uEe6#at+-cH<+hd;3#ymjs4`
zv3}Y{&o--#0d{hOH3Q!93nxPlX0BYoVl^RN%{M0hC&mBwOYz3G3Gl%#%mw(5O!tUe
zEs(^(TK1tjbZ~xd6lRB-n$<}C-cYOqoUN%%cY_@4E;>yHJ^5wQy42UiPER-w4Zvb_
zv)e_+aNskw*@tL|SLF})gze4+_pzy<P=))v+JyTg8uvs_&JQ@`3r+S>iD*ieGgJN@
zdXI1-1VXMJfw5hv(|}4=EN6b>({{%8ZwJFV>(a5V&10Ex#ztb9N7LIes?VS@OhMu3
z(QbKPUg@mnKleKUs>E0Uyyd`XBYg{`|2^Me@b+iwngK!57yQLfB}?6Y8id<PZ$LXz
z(b%|So7KL=Q>aE=746nU>P5}#M9>*k9rNZP!KpVd5YfMzR3p-KnpH(Td-m)y4HPq0
zPk9Dz@kpDd_=E(JlToQfV7}o>$Mw)bEhrm2ULgy8sx4I}(LPuwDk7p&fBuyB{yKFF
zz;^j`5r!wR^>#8%7z|}F6v6o(n^%LYP_Qnsi;B0rYS@$-&0LcmWviEymr{42A^oLC
zm2vf!m-C;)Q;XQxF1Qkei&nI!&B-SN5If!I2bWLWkV7rf_4M63o()^-CZ0B!RM*s~
zlS@{oEx%ho5L=yLkwDWUrPIzdONO@d4-Y5CaXaTf-Cny+Cto&r^rnmG^oKe(vBI>3
z{R69F(e=I~V3s~E8=Mk)TbrgxJ7IoB$EjJoVOGuT$~`XAmx<}=;@vA(2Gvzua@BsZ
z$LL(I+Dy5N8tRGrfc~o!x+ccQH8LJw>qRnxAS2MdSIq3|`+FRTX+^+A0(u{v$H&ID
z=pSj%%FgzVmqm|Ew2f#tS?Cm56jEZzCot=mGKgDh`8u(k{B?C1Hl3xv3ppil3Tcv`
z)Qs1AR61_L5aQE{*INskyj1IfFdpB{{By)?D>&cy&LnMOjmDMPo<RxwUAjpZP6*y0
z-rTp`?)ZHtIuDq<n*T{phAwiwkEd^wI-Fc3%y8=`@sXjSq3WTt@U;=nxY@|U$8<ew
zJhBgNSj+6n<8ago)_{h{#l5tK0cfdKis{i?%Rjd-vs|)zC@npmdqwy<DNh60aK#Rd
z)ztRW7JFKgnw_2fRXhS*{bq5sBYhkBhWk$2Fn;QTe_-B5%rm`xlKm;w&*KMLu3H0%
zl@yDAgV*hRrXnSj157V-6hRl{BI!Ke1-s)@TJvA)aZ9fKG>Afje*A)%*>H04FOE`@
zlBF7Chz1KwaLFzn>Vv;)tOxbVf2Q)vb6?o~O)q+xPGtQ~@C&Rz+miaoI*VO7%U^cu
zO<Yuz05LbePeP%TYER=wNHVUC(eSJxof0@&o;%mM?@C6df4e8V5kU6&v-AC*tVwHh
zeSOgJ4V#bM@qmN!ebV{eN@jhblzm)5E~#s%XyC$c?m-25SKs{P`6N8@4Jn_Y(@Q05
z`I>8Ji^?w~u8;7t<23>p3_|Ew)kT(9YcExVZXhjU1Tc`sDh$Zjs=s8pBq{D}y1e0z
zJ*YZqp7a-9tZ3s+VgLWAp(_9M>i_FjoquSw%YW~yP(NDr(*q@NE7A)%jFeSu$Q%hG
zm=QW!0s63vdupOd4=)kWs}`z)50pRtm;>&pO{A*9>3LF?%(*_={@6U;lk_$cdHu(~
z%2AJ(Ix6_^aFUu%ADXiEnAN->rC!i+Qjc#RDHHL-))6KJR#L$LiQ1|!OxE<Zd+i5l
zM~pmaIDlaQ9j=4UhS+PwvqX*uJQg8PuFoKId2{XZA|o)mRjDjn`ux%lt*S^w#%R$4
z=q153mio?izr!3u_6`o*@y#vgZ*N%nr@C^`>>F>+I)5}2gSC1ICFJaN0@s29cLfdI
z79(~T7;&t!7>x*F@s_8*wqJav6~Wo-mnZ+#MuPGAcO%!UbnD)V$Ok=s<5AaW_fwcA
z{&hV5DQ-04f&I+a6vU{A47Y1h_Eu%A?d$dHcpDjjmln???<nFbjId*@z0y@K$~}}f
zH&SNZXc{GtLNSuBhsT<ImrjPD0WJ|VX3U(Is54_@V^_u!2`~T{ZcUi3nJG=)F+M(?
zSgWba>FV-|Pi`F#kJm&LB5rAIxC+Q|$+*cYb4yF%Mmmy*dgkLXQ*hEo`m>|AHOVIy
z7P}hhn~vV1zJtClIJjW`g0BXrJGCl{7cK83<G^R(WoZZvTqAy)>n(OZgA`d9V#p`Q
z?yNa;P1^MGi_B;JmxS#4Vo(}3+S;wArDbwO=WS%szzzNA#O@f4*cbvGL`5Uq7$rx1
zI2M=v#cX7I1GMdUng~jAp{^63A0DuNzG^dz`!CnQX4@f~p3J%<w*ju~J@D3qgXEw4
zH9FJX0nDG&&EyLjpE{6Q7bc?cQ!xqigF3)Rn!ct7k$!sTBkgv$)Yd^cX?lf~!LTTL
zEV5Uo{;tZXOs`_>u)oPTS5;phCA;;zifL|cuKcW8-<0^n2R$nH@!Wpt+KsQ>%vV?R
zCp!y0$Ff`Xk3El64(3AcU>xI9>M+r?AhHf%O(k8qdtg9#M(h3!*FMfOPRsW+%o<<O
zdCYupsn0+sI#KIB82Xn4DPWepd&<|o&&&GuL+dyxG?KwWqyx2sxE6>rco-(`J!Bxv
z{e*1TExcvYT&71zEhj%vwt@XQ>Tz40MH^<To0@b}WPf;(%35l~(1z_bAoc`Zm0|6D
z%R|(>Zgqb}X@C&HYS@#q`@GNQI@#s>jn~#RHtJ;TdIw@gNaGi;Rv{lzjV8PlI0Ui;
z!677zJZE(G^u&-)0BE0chaHgBYoZ&`?nyMv;*2QqW-poL{&7YPH@3rkQlxMu*=f8-
zP|IH?qA2o&8G3V|T__YZ@&t((hF+Bq7Q5SYhs`Uv;G0e6)K>x7wHzEOGSe5{)>2XP
zLGja{9XGpdrc!TBC{8Dc;ak`1Sc!_io!Q4fJ95Jt3(JK*alj8|IcOp0=is;ulcr_^
zl;=q|4?0=5ou$N<L(??{esSXy6O@S-eY{62yWk5hCg>RHQX_6T`Q=Y-%=rJ<AYpT1
zuFpi)n{*M7((M%bUb$km5`52u9V;Y*hSVZYda}C>-KhL@dX?3}L@<7{Er0lUG+@k(
zF*L|MkU7KuRPnqXXDs-)UZ2~tAQ=5u^^N{LGs~z)^v{5s|61v__U<(*3mme*{`Nv`
zVaL6T^=JXVyXhz_4cXaJnh6F^j-vpzVUN?;cP|lzg|TiAYKh|p3X^Ho#VtKV^CV+-
zI1PPu|Bg0cvV{MA`whv8X(N<#BiNq^y0<h_?^J@~_F6jhFG8_u(&`!-&f+5lnqq81
zLOp$@BDmF?=)*9<3i=r$FAY9EW$aT&Pn~^eME^KL|8g!uHi8t!`&IOxnA?s;WhndP
zE}5M=LR0j&eV}Q^=<e@-iNJ&4+4${>;o{HS63g07BJD7EbCyr|-$99)z~ahc*4e`;
z$dQ+6AW;-2-M@czzY6{%aS&G7=L~I-9`Xq)&(9gA=H?WyYHrp`ktGoTi3?UuMc(|X
zr>Uu;0dx)U*Q%{s;_<!jGsZ*f;g&~=Tk;zR=*^BsKEtPS%Qr}-e0MA2{_)I6gJ?r>
zBpQSpQhrzVX<^M)HCCJb2BwM{)SqE+9nW#D3(CzWLCqMJj-XdJV^5^xddYm6%3>6{
zIB{j*TF)6A=i*xuIeRNmS0wj=$}netMbgDGk}a><+jI3-VDpjh#2MsfU8aHgX=A-j
zfd04o8J-}y{P(O_&6i$?`djoWonJ0+wR9wn=e>T1%Nvc=6Pb8Z4di-lWRc2^<v+2Q
z=NAZ1$a{`<Z71|kYb{T3U|myFaH%alWxJ@o!+@I86|+9x#7iF^yIC1xMRezGrn@`r
zLz(z6?P{M$ZexlONuj-d%m)J%=jLs89HEKH(-eDqdzCufE-@;$EfZa#86gw=hIgaf
zg8{#BlYR-`@u&lg9pw$?)rtT<#*7_>4JrGLy{lqUUD*cmtEoWqe)m5zSMk3^jEdRR
z4Pu(qjv;+s#N&4FA`GoBVs&R*T(CJ{otEo4fZ<@ob#VLwbeq@C#AP%?EY5HXJ-D{k
zQz!Y7a@AJcY_IkIP^$kNX8!L_US`L$+-->3(hT?BFhuAg4C^t*h#6`C1)3R2>s<E;
zwPi~qBY$Wm16By{`QF<rG}ngGkuh^_+L}}n$Ur2-y``GeOp4PoqPE_*(2iV;**Y5l
z0;w7}=@5c1%$yYU_n-@m8h1fPzXVbBp3`EYtA<)p@vLlWTF1)kcn;+cL(*H1o-%5d
zCYp{I#BB`;eG3`2b1j;>vWsU{QSCswmYG}m`F$mOUQ8Zrg%5;peyVsgKk+KWm|0M-
z3{YLQXz>14B_mX-IXFl&w~tI0864w5Y};{Wc2v4mS5^Ko2fgEMoB53(gki=}er4Ak
zUTH~wegfTMYN-;}=@V=xxKFPjR$>p@?-}c=A#E&pxdC<e|Lp5Ag)x2H0Nm?b$s8na
z)ZoV870!D6z9RiBR^-l_J<q>)U_6u;cuzF*nuCKD;Wt;V>}*8uyCF$es6Qcs#+^Mw
zK8c8kxJ*OUM2CE$P6Oj1Q5Jj;xe3}NNgbG_hCJesC;E^L!5{jkjt&XS(B$GS(?Bn&
zfPL*65)XJ5`2hf5ZhaLV9y6oM*@b}oC5c+m!-MBg*VIaqEgFa@1{pef^oFt4Qb6S-
zpVZ#tv~(2U@^%@VQeOX4{mb1EVsYc_mkG#cze>tPmG0?iQ)pu?zOh1byXH%s+JvsU
z=b&zZeYKd`;x%!7_jbF&>v9FfG82h{n*K6qApp0-bsuh{qcIM*dy8$I*!S6Fw8tT@
zyuY`Z)s?pG<ipb=A_hyGX%LseBH(@Ncsf{tvXEhlEIjjT#u#fw&D1NIWH{?$N$Z54
zfQaO0lTn3cn-O`0mGYi2Arsv!(mqF)az-dY7pP>q4Bg<ngPF2gna{`2TP7rtM$K94
zu8Poz+pZ7kSZSgQ^-1C83G3ZFdyM2tnCoF$(TLmTN;=|@qRq^B#=2yP5wDWDeC^%~
zpC(OU*BWr}J#crlKre5J@XcV%eI<OD)bI{Kw-=uYAxC0Q@%mL99HhrhNsKB<SN<_f
z3P|V@WY3|bZ}+p#i+Tf@g{PGD-ZWwSCI{6fTiJ!2D#>4Gppzf{)dgeK<oR@=o)Yi)
zvY5DdNCA>~hGXO7g;Ik#{?{a;_t|`XzffePgk0q;GCxRD*MgJ7+(G!pbTHFLd%hwF
z80D9AkMl2qLf*<`CMQ?-^NW2#ec|0LHgAvA;)nntt!;W|vf#5Qpn#`QXKBDqV{vo1
zd${5)^-w8A-ltvxJ=KyU5gZItG8HqPU&Ept|H8$Ad12!M{_6-3B65ga0fI~zMCmVH
zRS}pJyZa9ptlJVs!1r}J^F75o?{LOiU~Hxrt_wxxn{5?e`0liLmmvnAB#35GfTo?=
zNn7yKg$=nWe-(J;NO2o8J}Cxw;r-oRD;&++kL~Lfo5Iw{?C&KFFvj4%=i}CrNbr=a
zM((wg%hb?Y@d3>8YWQx;i(!=>XPvDU#9p1#2r1BQ$iN<Wc~IrZ>l&_&)hZrzo6JV(
z`MrXSYHcGGQv@Tn{eT7mQX$6=kl}6M_WBuvjc`r02e-{#f&@~4!m2Smy-FFX<Y(MR
zUU>3pd!Kdgm?z`v@-VQdsPA(!nO!{S<bwG>m>*`cMSTN#?V;(~lQ2e*Ed(dC8;5wC
zi!BE6ZXO2JD<F-=Gh^M>?>F6E?e>`xuyJSVcs*IGVp5wYRhy~^@=h%3>K~hLP=xT@
zD~|v3<Yg+l{a0my1ehd6!c&OYc3;@oKM#{$3nA7J3oYrZ4lg?qfB<#i%kQgD2q(kN
ztXz9_Nx1=mT4>CKj88*%hX6Ko4s5$*p<!$wju+znc*_}4hDp_H<|nM?(R)CcH1Sko
zt6jtdDp-)T@Zz!VYJ{z|<UNVc2qV&j`T3DbI8YB)!LHAQ54i))Dk#~LABI`&{#E&I
z8)9N3C4LmrLLH4rS1WmkeCBvU2UKfgIk^xt1}9=akZaSktJNSzf*t()d59Cm-z&pb
z#c$UqgAyIl{eg-zDbu4s^1F~?&>)0H(r*v{JIdS7pS{`b>}nEv{SrAPSSD(?T9ChF
zREUitvP?08YKL>%tU*<0c<EzN^IwdsH#ju!Az7Wg87e?gpXj8WgAB$cUxDL8G!K`l
zAV;=w2RsH!8PAnLpW52%B}cAALL^!wnxpgWV=%XnW}L^%v_>)l#a~!J1K;^YU<k**
zmd=I}%@G<ufcK~BYPIhex^$a)<tcK-C;A5ahQl<mR}ejq&@iYVTy`CikDkf$O}|$d
zGg%C+RB)_o6@BV==9NF-4&OOuQs~7wll&XP`^!)C^72!R&#y6$S?{}wgF`xAGu=gZ
za69`J3%rhux056G%I_6RLSe{o#D)mNL?kP*b~2LyJfjdRJ8rVL*Dn`b`lakT5^<P_
zQr#6xz|@veiRI&D@!wxzA?1-$D)kfJ3^H4|(uoNCG8ApenH11FF@s3DdItW*hrc5Q
z;~C<%Pd>bhqUJs*%|~bxl$3OWv`Vg?!ClO5K@KMn;wG~XMx&(=u84Q@nJk)eR5Biq
z0b#lR!uU+d!`oaZ+Gz7+=rIhOX`i=!F{|n#)6OtsPnf@sxA%HF=|Lfb&^$ceIu*#e
zw6CIjU?c!~Kf!Nbh+V@xy#g;zAu@NeTUE6ikkA*jkA&{3i11TL^j{jtz`kvNLXVk!
zP&&zNaBMz?i^W;McRD*!r<Uoas%0z<E_n;};(sHe07$(KB>eZ^f}!`OElbS7M9Hou
ze(7Q>+H4awMh=Bt;36I}@bz131%Y=stYo;g<F`j9M(A1~6RiEWDSN$JA$7%@#+j!n
zGl&Uu+rbw#Z1PA0RoTq4pn#s1zz@zXGfa#(D28#5gB)&+Sj|GL`MS30a)%}AN)o+s
zUtL&}e6DoQ_(x9W=MjS~4iATlYTrlZU%dbahvi7m#xax-NC3e!L5nf&0rLol#h+K)
z|NiFCgKV0%^Zep7o^~SU(raFX`$}k^iMCDCArqeuV3_-6*x8Y2+tH7&oE0ty77LY6
zpdE8#j}pO^R0kT+{Y4FuBJ&uC_7koY_rj*%SZvZ|yAUY_pl8by>v0f;k^BPq37=!Y
z1sRG9zl;xoX6SZk9nE@^W+hnMMK5$!Q|)@!8z|i{p|9JRZ1Y4)(_A*FtZQ^S>7!2!
z)uIxYT<(RiI(bkG141%}-Y&!Rq0E@kma2Lgv_%fjGu!5cbkqV{i4xF`7NcF-)x<1@
zojGxd?UZ@<s2j%Nb-?>5tX)q;P152m+a_;H7QH;XVI~igoeL$pLXzd})Ss6tesp-+
z^gb|7*3@af7i5z%-pHbx#H)Os1lC)(XfCX}O1Vu{{Tn@bm&;|&2Bl8Q{u-b&nN)Mb
z=6L%<f6f3&lh}*cg&47ERREp>C=ZJ()n@V~=6*FSJ|sdSVJwrU+m4h7kYSMqg)uSa
zPiG(QlHe=7Pdc=$F|&`;H3#(tV)b#jDRslNO+CIsHg+~Ly!<w6N1pjc>2=>TjZ-IW
zKR4^HFe(cY@xy^7vN<)LFw9p{5U`sn(vT8}0SM1SQFF}@)DAR)2M-xE)z)&NZv)4L
z`db1Rs8WPErt67!8>s724+Bw?Oub!?QNd)8ASq>&_F&+1Vyd$qF61u8{1sl}r^Eop
zJ)AT?)82|1@`oFWq00|{jJa;B5#zA<kpoWdN%Y{5F<1>S^>su98F*o$<10O@%qw=9
zW_g{B$7Zsb;r)yRTY#M+4Am!7HHOI;b^KWYb~%g;COC#zQ-Ql_73O9U4jj698`QH|
zv6Gn>yBX|qTkCV}s#<T@L{IDyP!hB**X$)j!ATDynN?2)h9WyR1L$;sEP9YB@kQc!
z93+;J!X4Q;cxyk>Lpe;$<oG1N0rN}m3#aoh$@2SrfArZ-g7c|fA6S!%Uz`bhj@ce$
zzoVzZo6O{gkuZ}?TWN>W)tAiLyJ7ynKC#&KO|^lcQku@PUA#GKZAn=MmBjUqfBZIl
zQ^aKx(j{7Z3lSi>Nn8j6{UsymNlR+&H>tbzq~vuEWj7L2iFuYp77h;Z-bc=|u&DWv
zS=b~36E_0+Vc>DhH7SO%xm~wyMic$1Xzl^M)g7L^m&S}sh>su14pkht+&J2bB27D)
z_Tz_kwnT(jGH^b#)l$1RuEwP-)o09saiVF~&w~uYCtYipB~wjj?k7fXC|;zS97{pW
zH%RlP&Uu9|16t*;OxvIC$NAVg6BI$thu&n}31{}wh{ocOozVpny1R4%-q9Me)f$sw
z$xzMv!UCKiS3oWYFeBYKA$P(HtN`?z+$Z^a5+_3r>;VCZ(28A><oCG>PecOF!46D5
z_al9L#Fm8pj9HAt?n=6L$tZ6Sl<fvET)#D6QkEC3N2di&DxY}5&R*oIC6N}pOTyu#
zk*xTE@~c9Zp%PM_P?9gbM1<%S+<5_@^I@%{q(R_|?oEX47lNb8J*lQHvcXBnjjIC_
zAss5q&|Zy4g$QbQof|y-IPKn+p7q~d$kcqQS?iK^K4-;|LBW?H(rY}zXMzH;7TWrg
zFQijnNe5Ju-UoP2tr26n;`gurfWsK4lPbv1k9Y~*kGk9<jzlr{_FO?bnFpMB)C)7<
z&Su(N%s12$nvJw^Wlks$YM5<^{+ic|Fyc$<V~Lk5pMTsXVI9yIf4`w(sbl&fRDeih
z82(a6$N~5qNig&!9FWs+;BSh=&BbqT)mhwys&-c6TX2oJ(g|Z_j^TLcr4wDPzukB#
z+o@h6$?D8rmE!Z@e$gbnl$3MUWBaVe67BE$5dq1pi|?t=SB)@P`D1%|Q=_=jqHM0C
zH=1hi#pt14GPVxH@GhoFjeITP;E*qNCrtw$9>isDW_MA3YsKv(R2H(Yb`GG__i3=c
z_APm2`L5MP0XhnTnS(mmGNgOU16EVvype!}0x}}^k;o>&ME$L)^s<4rgX-GQ2uZ54
z2CplEua~daE!c7}chZ-de@eOv#_Wh+yQ6KM(I)PE9maPp!jlJQ^2wK>%z(H)7uPVH
z^uA4|2ImKf-kshy-l$r2R;{3s&&Ttu6d;a8%hyr!Oj(=-t!8*ksj<UDU*1s@yvcq>
zEYJ?LG8CGY(6njod{8uQqBfK5GiJg#(J^ZXgbDNqE=rC%>BuCLiOJ|!GCzO4ikEAc
zfg+camT70-n?qY_^HXx>e|w=hSk=6^>bz~mXEP0Sy-+P1h^6Vj{_?60{nLD8B}v+#
zn*4~VglJU+LBK4tcJ$jvZwwb%&1`-|d+~MpbR)^@-~{cZLJ7oLFol|4wsv~ji<_=$
z5;C;e$ab+*Uv;xKQH;JJ)`4b(WNWNp5&q}|s0m3Cq`x!~e>TNZ^H;<2^%iO~$@&%p
znZ~NK5{s;sBKMKbgA6zo$Vi>-E{Di;0kBj8;>9zMmUoTnUZaHo+)d84A@=gO^W6yc
z(M~^tKRZN1V!oTc?Z!V(S_GDg)6I35G^%c+8<yx)eWH)kQf=Y;Cu3DIa1CU<)iB0&
zivwARP0J`os}BlF585bp%&3)qyRw;~O{<z>2JO^d$zlF37LQs$IDc;BtvQTA9sjby
z&k$QnT)RwCyIX&208-06x%sLwChK#ZTqRrf<E?=q$+a<LnlhQ-N=8}%l$Mho-6{MX
zpS7f;1>^SD4my!}FsHx)i4BAGqjbKwLPYuPsveBt^d(K;IO1Ov-vD11psQGSs(Og|
zBH+(e_vx*WRE>7kLf9fhe-nXdi?p!K36!Kp6W!)>J3#&z&;mOof8qrJ&`&uuKVYAN
zP(*%H?YB^=ZK?ECLzV?^Z!YT~y;RU8BX&0sa|FqQBn7`^|82Y&fSrp>y4LRLA^z^F
zAfJT%XHaj(&Hvc<=XTdr!$~4;C(@}hRTCw{3E<SUt?g)p+1l?etU6@I<Qzt&o5N5n
z0qX!Sf-h7zP8DEKJv8PF*XJ`u-N>J`_+DRGcE&_?R5)sXylml^!@AEQ;{uqF*+LJ^
z2j{fLG-vYHZ`y6?vw9G-wm_9##eQ(;&>Sk@o}@*QH2OBcJR`2H66mD0BLF~FJ)34q
zfNXc`#b>Nr%$0C1DhcZ%2OLRgN3iI`+LLGpN%dihzCqERO8YQ%d~Z3X-tMx!Uu<~{
zRNOVh^NzfdXlN){SCwb_lnOQ$<&vu1u3D(ekpbgmejT0&IiDHu%Xg3{OCAJTn~b4<
z5Vd-ZtlQkN1ovGgzM3a#PH7Qcz9;&-e#}{y0XDuY$lq_h#9q?-PtepIeEg;K`B1M@
zuVx@5us<r>tn`=cZ3{QhReWq#+BHhyD&l-6_+7-c`~PX~yW_F$-?u-=Xri=;LPL}y
zSy>@OS!o%mD1?xeP0I?EBr+;1+3O<PjRqoQWQEME?9K1^bbr6k>-T#8d;WW_mp|^h
zU39%a=Qz&eJkIm26633{c6i3fz)iLuTd7DNCrR@0pcLnQBs{n~`BjA8hI>MJI=SxO
z6K2a0YyI2@0PDOubdOY~lDA%UBeU{JG-6K~`PdV6KcxRjS|Al`&$0}Y?1R+fIihV>
zGu{XlBG%Z9rGKM&cI*l20uro3*Xv3y7=wr=0`c31+~%N$Ep2}bfw#W=KIG+CI4m-A
zjTWu0{GC!FcU6$uAQ(o3&4+l+(aATNSh%m-hM32kHnU@9wKZ=t=iU2Nx6YKEhL`BJ
zN<G^d^KyOny}rVz{kxZ6a)y|M#s;}6pFK9$GZ7>t9sgk;YfMONZ2YCUR9(U2)<>QR
z=_;Q(*EUP5?)mgu-_lB_$n3G=;l<9O`MXuW1T4oS`%%hDTK7vL2=!KMJ)~c_3k|^L
zA~$KxbLYOUT)Nz`uwT(%dU5|RGZXI7(L9!QwAvIiZ-@tFV>G+Iy^(89y+-4@G_JS=
zm6vg2;!bcW-Ih|6bV~Jbf!&mr^d~0;Wr47(m*chGLI!f>n8$~ei_cA)l0$UkUcV+}
z#)J2oDrSj3OOB%)|D;o~_koPE^17L^p8@cZYoOVLzm8n&7>dip#Fz4Knd!;S=E|U6
zn;R|FJ$@r`LW(uaaxtv|BBO2?){34jaGVy*HOJBmg6OY_3|2VC`peh0-z+(iMlmO0
zCEs?Hz3U65|FEr0L|4^hyu_u9n;R!4CXQNlmnr6QoY6>VfI^LmxC+Pe^7nsKR3vRE
zxbwO4KF671Z@_o<TUo4Ns3t8<3IdL$cslz<M(%zOQ3pmGIeB^4K~7S(vb=aUS)XI^
z?~%o(<H#aL^LVx15iy#V-)?L^w()*cnC+F2yuSy-oFB7<3xDLJ6#P<6oA}LIGS_09
zpPs;0J#Hx}j<2sovQ4;bj8r%2#VBtjit*>O)hFzi7i<ZcB<-xk>dL1!l37V2qXC>Q
zacM?19GS+o)Z{G~Mw3cW6S~r|-;?#&=ovZ6!cW+nbu{Yr+Ssy-`if9?%T<diDjzeG
zUZB@^tY2a4_&o&!FEw7kSiGbDrArKMZmWVrbGO>X0uzRcnMVh>^Br(-7$;`??cP?i
zwLdVWvZ8{TfQzPA2`*oKxi~u(Wk1$IxI?k`1_k?VzR0+6X*Uj;aoraSt_hi&*u}3x
z*xQ_Ee`NEPEju3zb|wyS>hBNy@&{!+_r86!_(#gesfJf1p1bm&lY3@n&K)t3m#KZ&
zf48)Ml1}#ZpM@@jPwOgTmoKRk_44r%%neWANbeh-toWW46}KSvbBr_W%>F=5E-q>s
z`c3lM+N_|vJUJvCJHZCNJZ7|MVRkHld{)PfZMl`za@}#^%Nui-ov(I@3khk3M)f25
zDNI&YRjna_vOoTIvD>SsW^U>qS83R6B4pme^5x4HJ3m3*lxYK1RaO7z0o=NmRWCMq
zWZX4athH_w(+s_~IR0^&k%6H&P)%xWr`wjX;8@Lg<wX6^BTeBMIZ>N-b^TtLoLRPi
z5Z4+Z@}25Ka6)z5#6QjUES&Noy#cJtN_^HHjLU+hd2;bDk0pCn&{&&CNz9(D7F`*B
zHEhZ~`a91?oIO1wV;pSK8?{I&B~{grg)WQHgF70NbUYFFx1$8ue?Ou6an#P(!T)nE
zba%f#`C|A^FHab<IuF~S#%l=2#y<-s{dbAo1M~4lzsMEy!gQN<OPSqKvYj1mPqX@^
z@Jb(4sfc#O+}vG42J+vKURqjOToAIGU|F5GUg_HM3LZQCahb~Jgx?42{_8anlE!t>
zYcUvWW*?`)G4v@6K7Lxijoro4ov(7RA~XC8TPtH{n{}D`;LNY2#Z_QyYC_ne!%WC!
z`A934{5<XBZkU|TwWhOg@W9!+6{fEG|1oTxd?CJP)~aD%ivt(R{Oqx3Ssp2Xr7q|@
zaBvzuc8w?pcNwzOy@Jw`Ah@`>#T=U$6v@-$d?0kh0=`voh;Pg#u;5dq%Q*q3RxiFq
ze$F-35t8K2nb-K}J5JagqFDU&*Uq}t1tn=|OO~m?jS3ba)5fazPv7G#2P^w=mUUTC
z2NuNW?k4s0_j|s4xdSuK9D{>{kQZ{X3Y&R7e!Kzs{fGG$xgzitIPc~HClTC3p$>l{
za%_jTJqrxf(9(K9cHSLCKUasJsLivt0A)b0dba6D>u)!!T4SMY*~hchBAR!@o$bf2
zl$DiT#Z@tz>{<PXJ+m9su3X_j)O`d58+6y*Upq-bL4gh&Hw{5XT`n%J;Y5M{;V8bE
z?e-ItnO~p9uB$DMQ<mx7Rl~(O_wHQ-EVmvpb>G(m?`w_8cmtAd4WWFdOh4jxHS=gP
zLgd>OXA^k(drH5GtxR&ik10j*;mZ2es9l*G7#V|Oy?08xN}#31?YB)Up<xcA$f-7i
znuJV|>$1cJRg0Tr(@#=zoMuUM^ANj7lp_sf##a!0Hev13N8FUiykmzKq&+6{QFS68
zy62>MT>`ny%Ys~*W=2}aaVypJ`q;A!>(`f}KmdWJ9336KM_9Nq)<iY@Ylpb?R7>ra
z<*+k5{BIn1)t+b1NWW>9jGdh@F2FO-?r|7y7T9~>0Gr;nojbj;`eV=0qp4-9_QTB{
z7~H@?zFazA8ezlUej({Xl-ugcO$(|&laq3qnw!P#hK=i`J~+AY>*enKO20SoOI3C6
zv(Qi<=ow$>jv8Mk#u6f-@Y%p2(L5mR2nTzK{ap38H7w7!|9C~wPWtFhMH5|QD;{oh
z;%S%X<FuLEM=Wkh`-gGQP<C6ixE1hSOx|<wV0@Xm*dw})tXh3<-%B)v7xa4^_+89g
zoh+^2>V|V4nb&3)y?;Q;+WBEZ@(&K$h1~UP*Oq|zm(bf4@a5}Qk^z4j9BgzaoP3!0
zacy*AyG9I#KX6QJ&A#29z5{z*g2*vb@0DJS-><@4mRyo7Cd#IdcIFnEj&&5|I8O75
z+y3quKdBn?L&vB($IixH`r^u{y=4Z7WG;UGO;%P`w=0kB-%kgA?9;;Z(9@?+Jx<t<
zzQ*qxXiQ?uwHvuLo8s&rJ@lFKqR;-IWSoEY7~`KJF@vhZ_McpHc=enp;G)XWH6-6z
zRduGPr$+{d4X-l({*D<_-}mtGMW?x%&)fDZwZyhO>{<<<&wGV*R6Ju{)-m(TZxMLi
z1HIQ@K#j!_l1`T6-KQQreE0@gMM+61^={hekS)EaD@RTOB5B3K<U>SKzTeeNzl$%o
zEr<N_4RiRa5a9pqoBAOg%7(?6k<w(nygyi=gGFm^Fxuzk?JcnQ=k-L{Q>l-&L!1`d
zI5_;ls&}FFSUOg;>K_)ii-m=y6C<y3?YXwKg)UBH8W=YJ(OY1_Tl49s_Glpooo<u;
zPJj8?o0RV%$CBCG+pERy1w)wd@9VRo)ut<O#Q(f@mlH=oJpKE68gSkHe}AVyu?lv@
z{rl>P+R+J7#D88B8XNv>{_oqE=XvPv;_}n~yqsBR^8foTY=ZQm`hWU$S{2~JU#s)r
z%W`T!BeKR*;s76?iugx}YAGk!Rm{sT&tD4M&g>AU*xRO;Y0M0)N4l5V_Hv_<pGCXZ
zJ)|CK&Guyar@kCX_P|y0137;zaGH%ilCsc*9TkZ!jemSoR&4vL*`tQmalWoK##h*7
z=YU?hRfFb7Nd9^ekzE3IJt~<ol<q|5#4mg&PUyTZ9UeCGoZw9X6idC;zzb0v%k)r_
zr)Ipok`e<N=N{0btOsEy$suvKbMU%UopTI(t7f%g*Rg#fBHIz+?<qu;z-R^ryK_!O
zO1a?k9kn0T9dz?|ePKKBjp}TuPzmng@d1E3k&z=W-@{3s@Kd!~H;0BIu!SlK6tYJj
zVm??KExn?h)L4IN{B-q({lOxP91_JSth`}Vq)7M@#cZc)gv8n)<%fVQodCbk-U&F)
zj`{&R7@)dVkJpOepW*&;u_Z0#dA%Oi;jB%%;ETH`Y0kgb8n?019fg|XQjx2q5bMSW
z%o%L1+_ik@)p65p#8qrT_%>*>DLBZ>OCsT3+<F;#c|+`A^2RUP18pOk0;e9Xi<Pd+
z)J_tbI8_ub20yz!&oz?l{CW06MpCL?OFyQxjen%?o0yzT($-ICAaB|HW-NqFNU^>u
ziUIc~Tu1x*`^l@`2zQhsPB}uOPeVf167Mdhas6&g8v33IhkyL%kEL#*^G==Y+vTVW
z`oB+kdwnhtC9T}K4o9&zMw9&b%ZszG^k(5Yfwzr%!d&Eg%$id46%oHx*4S^^vc+od
z&o$&pxw!h1arJKi^KofqDZbm6V&3YQS|(rEj~ja*s>aDdWyrL3YcC#LIr1(Q0e<$O
z?r2-e=$#L{@Y84rNP2R0S4Cyyr+EIgw>s$A9z{p*B~T~${ICVgXCzRzZ-DpcUJ>SU
zv|-@<mZC3h^8Vq#fU$0_&Dw(p50b!y_d+5=$QinjGmnakW#knU-dg-DoWlkOD`bxE
zDf&N4on(5JeSCbP#q2-%vk!IE<#?*bm7=doOAIunM5;^-K>0y*f*D7hBdz<4o|*Xr
zJ?V`-8Q5aDktl|W|H-RYrZ(YAOU{Wp*_()?X3a+v>awQxP9!ECGMPtYqaxsG3U}@Z
zzJ2?aiG}3>O6IG;V*4v^SV+08E{ot=$<^1$o(yZ(o`lAzF<DRN=1P8kz691OGUA5b
z2XF}+8zHHsKXPq(_BF$WnBms0sISX+CH)e6dHwH;JpZ{f%+~p=)hQi;KCnni%F413
zQoYgQt&Kg)79AU_9rm_N>k6J0zF!9Nk(kxvX3eQprRxI&1JA~W2L|2;M1BL5sLmUN
zWGqL*LCY@Lp5ES&!@+640Aud=^cV`6H8Y(&dGeipk<<ewVDWqSVF4VHiSfLk0@fl>
zaB_0qo%{3VeCxmsL&K{`L4=P*RCQHV8L+WQ1I3T^_&?~MRVDu#7Prnkyq$$*kEA3!
z4c!JAQuW2e<nHCgFf~w1gWgog^8hj4pmk8sE5Nt^U<c$L9v%iH;vHgl_PVYv+Xs&Z
z7K}8v%oy<;Il_p|04I^wVN9N|<TbRkWMu}cDj#jnJL?~s85c&G+S1XOd}toeUV{W@
zUcSB=ADl<$hM8rr;=_`+5i%n+z@wusrd*jrFDtsH9`BZWquvQ}it@4pEuhz$@q2<R
zF^In2cc_(HLSmPIfB@kR1y9~yMlP;9TTa3*xZ#Mj1eJ_4ZdsOP-~>wKA-ph&$J%}q
z&2eh?cjpscFv)shP+i5Ot<a@)Kp0*U*eG_VM=7M&a})cs7y9{kHOxBlFE8Xx@rjCF
z+9mDUc5oi_L4~0d5YYBhr%vJL0>z`?q47(;h$_(vC48W5KG2hio{M8_=B);0f(fFp
z_qDwdJVpB+nH%F&F9fxA{2HptG&AADazZ9RHQ^97)X!y+ZYw6~Rk0Ju_Mu;dHtLgC
z(gwy}NZ5*5;NyAWMMXtQYHHc<`7v9wC%pAh3fMhu290#~pE*{ghM}?yI8UCeY|J}{
z=rz5>GQLw4rbwm278X7kLshkuLl2nPgw2>rN=ml179)b3jZHJD-|uTu_UY65Am!d?
zF6r6qt#vC8n7R=qFZ9;u+L{9NT)ZhgaxgB&RhD7Q>|!IjYdORo!2H9>L*6wUS=xtD
zoSO(n!ux#g-J`CJQQ1x<LtbdNZPozskJ^2pHQOTOMx*nK%ccO!)b8p$EV2m=;?Kd)
zI&4z>n+I^!H5WlTqC)UcfABGp_urTylHi#%G?jzl0l+F~XgrmhKXfI3$9=kuf*+h)
zDdux1U9F~npU*UJ-G*Xvz%kq6r-HL{zTAy8&y*KGLq0X>nco2SO43ee`D<!w$lyr6
z!E++59El^wlRM;Xt?{>P3;pQ0IGr;Vuq6e>!rzL&rU&a4LsRa+L~ho%q#1aA??9LO
zhQL_eeA49%I+=0j7k&OINnv_M{*)pte%Zsxc{0@J9}W-`a`^q_Lc-=P4}g4L?9{s)
znpYiPcPL9*XP2lYfzM&rx)cZ7Pn?ECgK+=KNNxSeD1eE2?b@|uVRxo4FevCD>b<~0
zwhZH1E~2=z<bG1eM~;z}EE<Ak+qUku57zu&vD;hsb3OA-1YFadY$Z-(9g>4?KYsk!
z*C_1**~B3ck&6snOU(H)<6fV!!&0HAuWwzr>H#5EKT+qo)OR}B$(hwi1G}mZNJ!|C
z*4<X*raxdKuA#2Jr>?&KA%;p7l(UR$WeFyfI$K37I#{%mE*J~3J`D=m2k`}GjBR(>
z+Nj0R_ssdDyhZyc{++fxbK=Ji>$LhrMn*!H692rW)RVEi<UakWGiT0tKQ;Y$sRCQA
zR-V0Bh12)F*J0o^pg4&V#O5=n<xgrM87O$C<G%E>=!eOPQ@})Q#*x(B!7X2K;lrZ_
zmX@h=SdCQ<r$f@>%UA&%rzM!TZM$iwrJZLtvWBQlGf?zh)NBF7h?&T=_}S4na@Oj6
z_>a~VRGK<m;T;7|zTArbUNF%&^@H-TryQ3>O7jQnxPhNVMYYWN;H;ie7&mSN^_s|p
z0c>VgKZW0nU{3b>S+3cGOfZ!0lAguh+OonS<;>Il>sLAI{R8}0@_8D9RO7ZFaBV?B
z#KeBW?s;8np-Wz^vpJl`x~a7#DC>^3b&QSF>XNnZP~KvO5u!}p9dJCGT`aC$dn0N$
z{1Rk<i?`rq))LdZg*(`~Myi<eAB}u$`)tm|HF5hdR;oF=t#hla7wE0^uZKq(5E!--
z^2k2Xt70dL6V!RivP_#E$6AA%GAVe<ttkFn4QGb3_eHHUt~FQ3qFLNuVrEl-N>F(S
zo8pTH#FN+k$xT>#(aiea$48T|7{GBnR1N<q<F=f%%nqPcv+5zNz`1#!J!U7}Fs`mJ
zwqb`YL4SI4X6{ADC#>iT{W=Tu{-UwH$gQZ>cEf!hfSAmjBQflfj#@1%=<1|7IGxkg
zF!IktnYwVg@|>pTa7!F?NoR?2s@XjIu~1#Lga)76?YV1-w^s@r`CAX@w5BDE)Ud+p
z;N6X8#WgSPXp7qyB<Woq!fLE-(!0+D)v!lOE*KcU?|8@~)rcE~FVNpb<Alq-`=G>Q
ztDEi@V>C~jkc(_K#Xz+aQF@To3(I(Ldlen=Bs7$_olYB604CPf5Ko>z?@7<c6^f)3
zq-`Lbl*yU5QV4fg@QE<BAl~zj`BjvZo^)iJHf;h6pIAE$@Sq;AxsNEurPaOa4raXx
zz4m?Mwik8CwXHFpeb4*G#sZLMl-&Sv+TY|K(umh;&N9XNXoT_o7FI957^2@_D3tUM
z2Cc6Nw*yQ`pp$&FDIOG2sId7u0+l4C)^^Gk7XAnYd&b~SgE<*WYU<Hf*&-j$+upQT
zbej9aS-3o-LlmQ%ejldTv=BbO3RH_(lC=a$w#mxLolV9{MgfNjLjr|5<%cJA?ob%-
z*U%ZGjUROVv37!npxkc%ZRyx|S0^vM92b;C&!X-THXr(36G6gWZf+Xl=+$CE=yqGP
zF)I)u)(oWOwk_CxJ)8aO5a37Mcpu9~dHF(LvJRSX04XYKY|QihR@RizqRZmU$)pQ%
zV4acu`784PXm17&(VX$Gwg))47+ATXC_mImF#F7YIaCnD^QC`=Hx+8T8gb~`XKhuP
zJT7e7c*b!R4@LBO@IE-?(+<YnQf<Szpq|!=!??Z=JIA^#Or`OzVnh%`*6lVgSl;tX
z7qqnY(z@cN3~Fg<>4Z8V7AB@W1vQnG84gYcy625%DAJ`9d-v~`-5(fo_R~wC8s!^o
z0@v4oWxjXsUi3v78G@Rc`rjf=c}=TDdv5QP%bn+0BaFoDj(l$vtUy*&S+^Qw)zzP5
zMq+DY=<W+Ba8pyi#rF#Jn2%I!0~H(8K~GEjBQq&M+G)cO)|KfW*Ljg^JH#a_+B_^S
zW2OI$#Qg&u1$pJu;U{+&7b4&5Okllfzro*{E<%_86D*yIKmevC$fd-D56$M8HMbLE
zRy7TkuU_3l$dEZy4N2-Oe|<ncl{>&z#^3;r=8VLK&&>Zl#~{|@w_fV;2Ulvusj?Hr
zs1SEmR6ctpVxc@X)R<&y<>GRbfmpY0-I?Uso<KG2AUALs(e4$XUQ`aXW*7wsiGOdV
z$w<^l(mp;|kfGq6`@VYE+zr?@xC491bq)mxJSvg&Q=kb_rUeivShs#XiRkbbehTNh
zmxQ-Z*))lr56v2}z_9r{bX`dP6K2MB-~j!tEbW$>x<yc7VcM#4NQ!Oc4Uv+Mq{-4C
z^la%-bu<4J&)@j>Uuthe@l6)!Z||IxzH<|KR@7#IiDLGH`t_Wh?ZtE>p;vs9Ru>(J
z)_aK^mt0LnGbB2`U&v32nBG9c-*;&-$`5@6hzAMcrLeiSx9|y<1skIH^~w9{P$#gd
zXjfUT=>&_bD^6X{VmegSVZi^uQgq`*+F6MP|0EMP<bx-%p?^*#-@ZsW8n#lVoBCtN
zMYow95xc7^`msWnnjp6@&9HpopP!#6lvj)qa0(xi4#B$}%?W-#Q6FDl8bZkU8v(1C
zFidmy?+R8^p=txslb0)M=(&D7|4Y5(`a#QuDHFnSe*T&$?<lIAZA~J(XibNbnq!x+
zbc{~j*>oBSm5Sx(qr}Jn8)QnmxWhoeD7A?4lT`>=VwbeX-W`*BG?{SI$fz|)0XmVG
zS!}rS;BozyasG&@!YfBM#O|+2Y@h)FN!O7zA;^Q*4Y!aIqnCAxTnlt6{#x*(kxxJB
z%|$CxuN<B(ApW4S7OHoJ#FpOMuiPz3`{#1}>(??1`6-t(Vs$3={?}|P`~b|U31mB!
zrL&F4b{#zLSgk1sTsD(?q(v)nN^8yEq~K_AmyIHMXqn;aU8ixZi8ry+%hLA4L<2!w
zzkWTD<D~Iv98|Q!q3Ltk1B#y^D6i?E8B9EW>pRcjGFh`ou~e~ks2jyrOyaVjW{K;}
z1eOsV9K`Hj=(&pCGu06jz2M_>?8i8Wt2l%mf`$yhtIV4>Q-9FC((Ng<tecR`AD5lQ
zr?Z2y+sVz)a%-t)A+X)Y;auc_v}Wl6w+EWML3V21*ZE2v9=;MX>3$)BDt!K5Bm9Ma
zINx}7*Ov4z;*ZoGt%5jxoXq`zhxt3#Si0et&0!J_bpz>d-*RE3<jg{A9nG`H0?tZL
zVm#Yv>FHG%tAHu#?Z!IH@3eyiP|2P+vG`>i!b@rbIP@1>k8B0FuS!1n%FHfqBLj3p
zut;xskJNE<_lBDT;23V)lkLzna-^c70=7Ql-rZSG<`HXF4-bzzrG7-HYk(7~hodCT
zOg>Qr!&ELx(<cd_IrhBIPo(^E?-a%EhA#+}2ag_6^UTu(iICMU1jGb^e0Ch|p4&E(
z;i^XCU3NsO-H0|(Ua#_jFV%Hr$zgCA$>!JpJ_~M9(VViR0))f}{%1AbK0eR-f}Nos
zPQx4DHQXY~OG<z^-U3(D1*=b}f(SZ^rzE6(CZVAl0nWIUau^V6&Fi_ri5DE}3?Fyp
zXJp*`DtMxfjgVRx;2v}VEF%-PU;1|0PDllIh+6JJTa=2W=GBS2f3Ci&yrGI(Af`3{
zS9kZ5$VkSAvL1jCVqp|y6-P&L@MpvxKECw<(kr5<^&dbG^8Dp7t*F{goO5%&!?Et}
zZuOKal2KHA7I2*fcToZpM`ZU3pyxoeOe_;MoO%vb=TVyh^{6Noqne1r1p$73r><Y;
zA{#+}y5t5|wUf3%=s5=skAP|8A>R@;#pV`&^KmF1PLFwR*m)0`@bribg9i#B15D1K
zvq_n|dfezmJ+R^7DQQ8o_S}ZjeFrO3ue=gACucsD`rSc&Agz5%(h)%mw$w~qJe(Y&
zq9LZne*Uzj<==<YEHgeXy!4dhh1UNiCHKawzoA}1tf1yuNf$%fM)7@ee_+YapS!{4
zeFEhFgRPNoP#tpcAKn@G@}<{5|NPxmh3D^q^Ln^$>$e;$gTWbnBu=!U+mffS>sKhL
z1kR*^()P2VAnx?U7kK{QOGWrpJC0s;pPGfeGHu%iVuuc>;`8Uvo1-p)W${-I;{9=6
z_#C!rNX>Q95Kk1E(cE!jU|_IRUI5DYTv2gPGk%S_^C-3sZ`{Z#Bx7lL)KD-)OA-Im
zD<I$#iB|<B$;Sd{%g=14hh8zOkTHRxASfR4-hpp#?z6n+JuE1w8OlmSKyDHM!f6d1
zo$~a#H?p)OaSd4!HkVQ->wf6|7re{j)|#l}KxKYFRq^c5>^<=GG(ZELhnH9O`t`T1
z6@z2~U%1oX)1!3K#DaPIc2D#r2%ZQz`_5ty&7VW)Jz+0G7b2np2qNw5+Z&7L<c47i
zF~zB_TB*mSmZ#3eOI~u^8MRts_wDt`3)02Uyu9)m|2`qDf3S-uTF1d}5R5*0Q&k;~
zXClZ40Se-k?iGl}c8S|CAmC-62tae}`Fx~8l!rpp)7vA$Qz)EN7{dk2YibyQSw0qf
z(2Vd0i=iCm9iPRpLU^bv{@Ze-<#>Xk1g@BW%qFr4u)MIg7m@POvuDqqym&$9=H`}H
zPliM2(KW6oTd0u*4cESX<-<$W2p%X8$&DSCv;SIVmblHp9$KDhMy083f*~8g>j<3a
zJqyAr&35R5$tF_+59{UpPsksX`A-L2oKmNFN6=KOqnS<&k;Rln{`P-A@;xM9yOEZM
zFu^E5K$6tjv`Il$mKuuj6QpF}o%)-5alWVb!@Quap}Tzf@(#c;ENxgjH$PAI9_H{(
z*h_W8b9Xe!NQ8-5(|LP)8-IK4QT`hB=5E9TE2K^=MW;dy`4E3|@BV#~hrpi6133<p
z`yuh#>RE9^6%5NaAWxz^JC04trsA@!tZeG_@^zqo*x*~GD7G~cE*zd)Tm;j!2b~yH
ztl}ibMgdKZhwP7gHvUMQFA43dy29z-4ePtQy2vKh-MgX)BP8LCmWvX1h~HpK79R+J
zM<5KZ{^=}vcP`F9Qy*;cz>kar7<=+Va|TON>thxTOixfwsjD-kr>EobJc6a|5f$A5
z@(u-!(&^JBI5UkRSC{PIdbZY}<4eoSG4yfOp~ovrV-E5iJ<3E<#A?#Z4^Z1iX~rls
zY}g=Al7--&c1bz!AhW^qL*Nk)2Y$qq6}rYu-TXsMDfGnmcN(R!8l_;!Tnzt-Q0)5K
z?3ial5`OZ8$v8`UxFu^n$ch=8r(U1w92^|#N*h%prToypx|<_U5p$S`X8HaT!4t&K
z!NYmzY=Ma&2!z0QQ0r7yM%53JBw;5u@4~b0pX=LufQzf9i{Wppgm)I20D5rpot;;0
zhMQ~2P6pd~>^sAvJ{t9jH!g**-@RjirZ#lS9??+wP?NMoGK}E%+EMCad{9KMjaneB
z<x@it__qADF?p@qTeoh#hG$qe(hdP%=lus>&d*nt^wJI2j<$XHHQ22LgZF@}uM>-p
z&>~=xMKp$J!T`sGu2hK!4K|g4ad?MQ^d3Q<R)r|WBwQ~=Pz^>!q=J5(@s^kGCE|?t
z;IqEH1IcDb2}!>7t&Zj{hj{7!f-IsGq=dlrG6u{we5)^~BAi#3X9wEzvdgEJmX<7$
zK7*^MZu^3Ei$X4k@|9Nb*fGw)FA~}uAS`!9K9MCGO92lM_rgl_xOR&G?>uHbUQu73
zdKoAt4M8w~-k$0;s;N%VBV2DM9-b4zrc7py5BmTE;TWWR1x4$ujg{BCUC3|S@$&_&
zy5&iR44eKSXMJ}ei50`S`$%>i#G?!%hJ>CLfNGrRDH{B!e_u}ny8nGv_^5dOf7eC(
hPyg-zZrZIfN?V-p9<Cl1A;<VmpHh`imc4rKe*nHC3DN)n

diff --git a/reference/plot-8.png b/reference/plot-8.png
index d16d7e5a6a5e559ecf6aaaa2faf97cb0329d9ecd..68f52b39381546e62af0183afd5ed0b9c4fbd7bb 100644
GIT binary patch
literal 25035
zcmeHwXIPcz*5+2DCK@Hg7DXT;Rs>=J1Suw>29%-*NH?G$T|hb;Fh<>ifTD=f1p$#J
zZPUR5A|RmB*)-{WQ#T#vezrOJGBelA_vd_bX68D%t{jQ%cfarZJnLEOUiZ4!I=7V-
zPp(<DWfg@&StIwW>{$wBxdVl=O#kZ@_#4K<C&Tz-h5o6NviKAKOdrd3!yn&V`BlS)
zLgBte{$1kJIdX|Y`H><g`|~-6pn)dGN9wk@D~BuI|HO6u$6r<@XFcdz>U3>idcpF2
z>#95rqojtKWG$o2)tX%n@G1=URX@`{uqkzYvUS;w9mS^)sbt$NFO{`2@Z`SP@}6nG
z_@m;%1K<8M#^vf#RNL>^<(QW*-ZCZ?`dIwi;f3Ha@k=*;dGa0m+4!S#s+O~V`XIVg
zm;B%^`;EgA^27H#TG_w(^?~~)^4~w6`6qm!xxl6Ol%B`)=g*%#f9|nIC2Bo&{$s>R
zqyGG<HqYaFp<NO)-NiM(nNEodYiIn_*Vh;R{P|wjsW-gz!_msS3-V@%xKveDM{X;*
z=&x4)8c&sa!(D8@mzUSQ(oR1A(&JB*chAi9*OYf!AJ+?<upO_sAOEIi*k<ANro8V2
z)D!MxWn~@ik4w=EQc+XexNhfZnzqoU{OK}F{f1Oytqgg5;RPGKzeMIHJ(vAE6#~|C
za@OkD>zq?lv$!&}Fw5k9bBn`=MpIFe64}DVmHw+2t~kp0+Tln{rIL(P_KrFG{8^ot
z(k1ejn>J+I+S*#R-QHz!bzw4pah^tVn4hRkx$pxnsgwA|VVzBrZ7m*{hP}AO>pHcf
zTjbE82XhavT!>egw_$LGI1gn$61OpwmDP3`DU8?6%`U&TlII8NEX#{V6LuZ(OlZUY
zxW_+o-xRiPwo5Gkv6qt6M3q8AbWV<B-iVi_tZYG!<Cr9c>@;0}sjj<XUz2@{SIb<N
z7$;{^i|cIR+9Lxmif4J;=0@tLd`}7Ou`?#GbMI>`Kuk6>?+BL<uZ(L7tLe8}-1<IJ
zEE<g#9pbdN*>!d>yoT8N`djYlYeHN`iwBk%_VehbZrh}D^^9mbwoKQt({D|=POg)!
zXrlAv(7lT8+Q6|$Vd|d1v1UdT7Z+EGxqYM6N!IkSwc<}T*7Qr?T+5v$r)Mc0>Qlt)
zCRr}t9aMM8UniVS7hSPt%lgpy0i*V$A|BJEa#l(A*nWezcQS@wuQte^XL*K5IiJ8v
zj}J8+Vd4Fz28?95#2T+0dmkWTdf)lm#d)TiPi$hI#9MD}t|LPk26XcLo7#(feDoG)
zYLhO13|DwQSZ@^S<tdzZc&+qQYYz;vs=B&R*LiS5bf~M7<nYU7Nlp`eEZ5bVBF?OV
zjPXyW490stCN<eHj+>jCyYw96^++j~5QsYc`1>_$)^Iz`(TH7P|BURUsUx0xjXl!S
zF4EqI+h}H?c=oH8eaJnGikwCYH*ME9ck3fhV)b^jQ9;<x*U3BE)nD@eLB`c(u2a~}
z*ebX_#i*!olipThd=^bv$C=H!?T-w+Z?EKWxNyIGv1Xx>9+lfYFj1=)>UGk4Yi4ng
zPIqdhV(D8BypAE016yUbWVt9~w6k<I=NTI97abj)ZJ`yGS1elcs41D8XEHwD<PtqR
z*&7{N-WBZ7c3ZGqoS8G0ERIb-pJI-8D)UZD!hh5m<WArQkImga-`KQjtgB3507o)D
z;h@XZ@awihPqC5gbSt;{e!bPpR<3RANNk4@8{6h)+H`MRE723CpeyWOnwFt>?AWo-
z3E4w?$NOt7BTTW@8(eXX<+!Q&V0XQ*Sc^-_aFP$zETV{6o2Z97>DKi)4NlDTCvGY!
zElp{c9{+GGzC6FpLm)Xb*J)z!J}r9Ov3_Uf^xRu6%k?vp%$B~%p?<wZCzg>@S%An5
zoYu7J>Dj^bmJ|8jW%J^j+JkgbFQ1|3CMPFXx2SL(u<3el=5=rTNek8jIRHgA%PqNx
z1>D_sjE_&h&|||0?wx+v^40Il`<rU!#zGfeuJ=pN4Zo?M%4qi%_$6}ipm{?oG1#_F
ze?1G^=9CI)u9dtlSI#7K=ww{^?c2=<E?#e`EEA#5jQ6zUyS;z3KcdOB$(fmJ^+|45
zVW4GR=EqC{wK!UmLD5?!x0y;iUi;vd#f8cJ7hbwM^u<JrN=%lCwcL4f?AF_=7!^;u
zxrg8W@Kcxumpi%O2s5X$t<fmNacADbM50k*v|{j<rYzh34>JKy14%{t=}mT?*a5l(
z(?cME7CP6l>tkKr51}(v(QP$amgcq#a9!LdxoyvV?Auo(K07y7Vbp$%L+VgTNr|Yl
z7mQqxODRxP&^l8)+hi%$$3y8Q<HW8|7i&>hcsI?Uv0E~8+qgKk9NNuSbCch+CeGMu
zq2Ttql#wMXx4x(sQ9XA~mhI&}#N`=RMqLWEoEiCaN;oa6dAd84xAdW)=eA=v3sQ|M
z^?N@>!cjy#d9qEHI#GRiq+nf2rf}YrzU1h;?SVRD&N{Bsok`Z6B{W){VW4?i`4Q$F
zyw_WtbH31ulW-lXv1)}{mbn{LqE6o)tB{e&vKwq@({x*$ZK=%`oR8I;H_4eBElo11
ze*Ug|j4VQ_zp#(GuH%lKia|fz;<l?hVcKZmBc<O~aC@Y|G_kO+IyQw_9Ddxh?cPbA
z+f-Klu0ZFm$3|~o-&oBU;npx6YRt6y@bk(`+ng#wq}m^9S=>%<aXqqS%N9IOk;euB
zEKkV0W)~Xm2N9F1ooT_BeXQEwUP>SBw$3~Z>!~&6OuE|p3BNqYn!)|d)w&-J<HU=r
zC1`J6x%JA?_d((Z$<J^eYKgks`Lj*TaJR*U`bL{_@m=N8vjYy}A5TUkBnVk#57N)S
zxbX8KQPC3y1_n7JZ@H{W_C#MC3&mk}nCXpX=osv;sDFIW$gthVrDMDK^JsYGGa4F?
zb6xx6(;HIPVqZU8lXsZ7@+rh^VS1pZGr~tYt56(PWw?!R)rJilZXiY-4qR-ssfZV|
zA89MBXTkAW4BPc7<W|o<P*E)IlEQ`s&e@9OMoRImiVn8Ze3F!8b$v|f@aI3whR&Si
zPAe{|zZ-1Vut$ptXJ$4gG3}D~qC$H1&}_)UprxCsx;gf3&*@NUYD9XLn5gJRMd|5|
zfx4FIa(mIk_A0I+`23ZZOIBVSW3{*~zAo_-(2`onuxd}9hL@g+qFx(R*3;9gv#r%h
zF$l45b}Z`?@3?y`**xNemx)TYJKcdf?J|_vZ82O2$EB4x@iUy?YR`>=CRVP}p~72j
ztIpIn!i}3=w>9gl$b8goR%z1;FJ&?&0l!;O<2W}`#K>VU)PC((j1&DKLcB?=&&Qa#
z`bo;WFQzB(Iu9gS4Zm7x#L&$8H1XIdr1)*<^n0U*t4C~;CJ>!0;AM9Uw+tIw7j96$
z*be{jqKV_ZCf!U!bfI;nOkJ0)uEXaWhUw3gf+a-knjO3Cs_lB7+<IFivoPYdU<TLM
zeo|)U3~L7G?YC_2BRFXeqs6<n^MxlTAK-DF`ur?D-h5&TCg@yMRfXs;nBMs5GY2&m
zNGnDq+OWHX1c<b)nSIY=^=HO=IXOSZswX~@bhMT$XG&9N3PftPQ(hUkwJzf&04J@!
zd#6&!Rw-wenU$-ChK9>zc1xLV3!K*A^TfLDfr0vzlo1xgvZc#*#oDcpymVfzh7oD;
zF0tfNRa1NW`4%q^Cnqe|uq>e3Y_>7eCgsIw%i?@XglTQUezUq4w9CyNzXi_@Weaop
zY(5wjQPR9mZ?>T}pedxu*EW7vjYg9G@oaBLtbk!V?|jcm^R;&@5%0|;oyL0%&DYWY
zKqS2Mxe?xP-NeL%xo$uF!TYy*(<SQRux+lUXv9%+Mg}HA7sjJSdEHdfs(dC9A<Sy*
zCr65Seaz|gQEyC*i~aNGI(t4vo{F^zpdYETW0<!a@Xnr(9Sh9+Ch5xO*AvY>^;-+2
zjRILoLx|dewe^5Q$s;#s1eW1_Be%Dj-y$x%ehS}dNsl+yYrei#VmBY3qD1dgV7}f+
zfBosv&a$o+7-oG&{QLn=bCtf`!oohyxz0w3jCB`JumN8E)bFc>XgYTFJB0G*Mjcr7
zMh5VQfjQ;yjL9S2GK<r8)#JK&(~)=EeF~Ou(*BMFn1L5>)}GPP;RYx!lO|r%ER;3=
zD)_)9dC`TAT{4-)v()hj-m<q`&dRz;IqAHXmCShpMg@6N#nSe4+f)kZa3C;y=^D>9
z3&b$SzDw2*P3d>iI9YI_<(aVpaFys#kH9M=1ny<K@TP!k{9IydE^p@p0M(N%Xo#f%
z#}(0Nz&6{H2i@k{c~eFhmifU_G}8}ZKXc{ma5=@Oid_iM-B91WagFm}nmY03XVld<
zahmc<On6zkY(H`52Tm!caT@%|Tk@WdV2djfAMRVfs?5T+#XP;KK~<&F))J?u2TQiq
zvE!aqnMiHHoy`aJn{ynKU|;V#t;?hX8a`Z~5ItUb>k_w9&l7S7JpCChEv~e*G%Qgt
z_0XC}fzp>P%Y($tr5CzpMtt11W)EeVrc`j_?2G`M8hciM@Kwkh%``sZ8)d0|HP!pD
zQJ}QT3#nH&m15>KY4g}`3Y}+Zvt6BIcW?w?E&|?_{)9)SW@hg-g$@lyXTzM0W&ygc
z*E{IARU=VQ6pwt<-+V5zZ<(Y?)wA;e1E&KH?eUiAduI5A0mRe}gS-RiaUxMSw@p2N
zrrK#XU+kig+9`JeM;F><79w<h8|(t;MZ9{HtD9n|5T~7afJ6lxUhnEy^&-T-WS^)d
zHqxOLEQYVTt{v>A-h7^u(<sR5MDeV=<<Lm_#awQya?!!y?2E;|qKRWe*-XQBEOTn?
zPP|gs)K@u!%DTEdMcnq<tQp`fAbk=RS9bz52bw3w#ogKNBYA)?VDhv1%#|o5m$r4>
znl^i%$Hp2oW>}59T*e_Q<WDfh+v^<CKM>b{4nbeG0Eeo*&cMg3KQTYAK99MkD?mCU
zKAz+T83W0s$+g6SB?0CLyea}XjYvw`KRWHQe$|Zu17_}|#iZ3KZV!4PFjez_f+vku
zK^?N0NvDTzFRzbMKT{DXmRQz*Xs|PT$l@!!#)bZEt>)2DOPByJ$lFw+70aaI3};0G
zk>C`aENGyAJJwy{<02iJW<#U-vUWFV`uY2x%y*q{yB|7tvC+CzkU)csnZDSR!Nuv&
z#rlC&g@A~LEkyv}>Df0K7TJPap;tf2?FWvVD%d5>xopL^G^CU`&3eL5ok=96HsXpp
zn+mCv+7!bwlZ||qeMKA8wLcDNiWa_qe6U@sWk!wV)O4%_aO%z$k>@%b+xp*2v;}eR
z*OwJt$X}ez7fnnV@`|OMPn;krma-GfO#&H6$_Tf8BPS;(4oC%ZhSj%lFzEGjQB>!}
z;af5V1T79cT>S0LO_BaUjeUcIp4n+J*tgZfIX~T8!}X9lgn(o$YSi)WUi}o1it*(B
zK<Puwa8IFz9=|ltO~U0fd(&&5+~R4_=hh0`aq8ir{)6)oyz{%GltOvnV{K$*=cX&%
zyzzZ6&UKnkcu>nl*EqDyb{nV&>SU#AEb6Kc1024rIr);Ih~+8f@enmC51IlD-*V9K
zJ&pEows$R$<Y8y!kHT)#rH@3-HR*!~L#I!F?9-gQn@oG>w9H=g*v)T?-!gNT&)bB~
zYK!JAF3h&$!>6*ntH)P;wx#-Ok(4>D-$4N=!nl444{yTy5F39S&<|-9F}Lk}Z9Ne_
z-W6^OV`o%VHxL_`*{x^aWJ|o}gXF4swWNxA>SU7`7lLe>g5@}}L;)^dm*H0cL-h#(
zSaJ8Zb;EQO67X0lp=G+ENaN}=B3-jOJ3IGVG-l9f8Qmey1UZ+{MRI47a#wKh1bLB9
zg~v1Q_4W6YEw0(AGo1xnngW`8oNF<2G=@e4co$vm&ViKMVXRDyp{-S!W|24DrPeKt
zv}yzZD7&o4DUpE8Y^obFjs1r2A1SzAZb0O0C(!kyN&Q`c#GC`!Sq?~Ld`L=MuUdY6
z#TpN6&%wYW__!g*kbXQIIKw<$=UX-&mkvr46g(E7yWbUwMq1`Za@yO!cJRD_6r?_*
zxBB+6TWig&7P9hkk$zle{q&r}ZR*YO*qGkI`j*+|$u<Ji>|!Ts`jSh9JmGzdzS$M@
zosaa)<s5iAjg}g47pMG%ynyQq2{!{f@}|)O0s?-Jc5z6tMFtTtA?n&4Y_H$?@|qPw
z;ak(h+?oOBGkSWwNV;wp-``dAXupBxz&hvG-|V{B9-EN0S16<PcZYT_F@os}8hBEK
z^XIICkR0!a|7@ckTbNF3v~Qu-tG*zQF+Ru;+j;uYcZs<y&6+lxi@TFuftGKv!<!;b
z`gku{w&G&^F^Q6c6_V=+H^Fi$d9bG};YS}DJG&5QsEyNz;I&*0Yd#?x1k70P0ALiT
zqf*&iNfIPcXTsctwSVK_8D{(_tGq~>l@zz(*eOP{DF}e$x$};T^OF_c`2@vFT)liw
zRrNUjA%Cc<R<Bsr6aVU|+<kp~^kcMA=rbHgI0q8?d8C{Q$XOex8Nm{yPvtfP9JGt&
zPb;t_kUF@{*SZxd9vNJZuzm(a)ul_9&ZwxYyS|dcyWK}ddMJN!VPpR^;`?TxF?-fb
zfN8?*Ys*%iz`Y;%`QhHGE}+cHouXYouhzTFx{}J;^3#Q*k`q-b_2S76BW;H#8*L2W
zraeHg4VcCxBzP~(&lc4s8MJ>q$t&0}B6blWq-^P6e?qnp3yI0b?&hnN3Q3iUM~=%D
zATDJbPuQoZfP{k9rQW3Y=%?ROOdiX)xw0JuEp7hQ>_mV1W4$$4x)(c$vB4h8c=*#4
zP3N!9j`yz1b)K|fW#Ucpo{3afRTXp;->;p8TlN8IlBsPGoBexoR+hxVq}!rc_G?E2
zI#N)Q=(InJ@NQ@g0tPDrpVJV>YpjJZQ();f%P`!=ys3?_vj4Z&e}qp8%)dJ+{k>)0
zwBa4@BX;*E#mC+sH0XN&_;|cQFbuY6tIcV<9TQ0D>f??VJFBXzi}e>d6G(yFuV!0X
zWZd~~Gg(<ejZhY1qC+$j)oo1!bQR`;nJ&>yX?QCN_pz5+{7h<C1E63{-`ssA>CF0m
zLS@zMC`6{S0py9Iwr#bl)w^xCWD(gtT<_>J5ER-s<xd@dA1Wh55;kIj1^`KC5P1Pr
z2qq>QLwGLF>9KChvn_2TTUwYZl6iYdICp)^0xR7B{yV8mlp*Wr=xB!TU|)pSYez))
z#<38~f+@C10JPuf4t0~}0azlpiO|b;CAR@v;z2y6+v22K5y_MZTuxp{DP&#aaQV@7
zB36%`KNDhfo#Nqb*}fT3Q9B8%Mo3frPfz8NfFCk?qXP9`x-a2ATUxEI7c9m9LOoG;
zzwxK1Uan2VL~pO#WtdoWXY)ElTjt%FvubfRqWb2H`?jt#m7x}&MpobWg|0^yrP+>z
z?cE{Czi9EquRVHz072w~X2@O&0F5FLS*xd&q^B=#b!ffD$+_REt-z4Oms~>^N@!i)
z(_xX-8%3j?2g}%q6VDY)Sg8}TvLvEchAv#a#U?3JeL#@jXBdT2lbdTcX<zxd!#Z<K
zITcB9JNPcRD}?p<Y8D~Mj`o84ZC+`C{Q23lXS5ruH@)=%q}|vJL~^+O&OttXbKViJ
ziSJk9v+_zDfAZy-zi(<jsq54mxm!TMbh0RG<rQ027Cu3t+x?G>dE`oA@{6P4+U#VB
za(DNVKmX#Z9P$gw?e9qxrBL|gUy^L<pYefbLXkp0iV*T!TS&d{K-e4NB5D(Kw(}8|
z;<;+9yf)`iD=^$A;5TGt<1|v<wsaqjCJqN_KW7qaQ2^zFf(=VjLl*-_T~)NS0_WW>
zfh8AHF))Z&{O(f>K~erfrfwn~*5chqJ{aRvUd(SnD4cg)CgGK!lWmya@`V)f&){=s
z31FF6*=6}nJp(|HjGV-c#8dp2y!(IQ@;*Nmv%2SNFbSTwc${{JICedLBxb4WLXziY
zYY+cO$lf{-&8KvD$h#dq^I*fO8^6SO?tTalls{D{+(uI8)*v`=oLOV%gj}=w<Y$SA
zmSYPq(gYA92I&kTK0ctteHzJ6vHI&zDkvyi?XMB!<5P<}&l#&0zt`$Gr4ZiGhXfWH
z?YQSg03l)g<)AuZ207|9+Rd9c&*wN;-4^)WyE<Mg{aH+mab;d`->PQ0`#TFk(nTP8
zTP;j?7tuJkhvTeco7&>jn?1lRhgI!ho8o$f=x-c0?K}V7x?PI64e!G6EfUSlv=EgD
z$aw3+tM`1Ayd=dVp;GdqIot#%rxmh7k=6F>N|HpZBIoeNRW}|XEtQqsYE{6wBY|LB
z%7xON^@3X-?$h`lT*hr0jgSza6%6nVBd=Er%Yvr<mRsVGxAaU8Ay?(K_mHcOj$HL{
zw{N<?9%()|q562|T36Q7Nh$<#)S#~_hTOamo;&N~1c6v<q#aqvQSQ9DzH(E9S>0Yg
zKfg=u9v&V&4QZy|#4gz#BBZl0Q4s>PVwlgQoK@3ZNaQ+bYHAvxy!*k6E$(gDj!8Ea
ziQFi+P|F0oN=<F;N!bEI3$B!z`gyC(`~6lV!AQ4g3eU@vcAaIky#3>wb#2YgOfSON
z0vIv+oWN?^96EF;HN$+k^%Y#a^ZI#H_xOAHve(K{4cm)<<#kpZ{a9U7^DyhHx@VoG
z{?6NfS4f6cob^AdzgIvYA}T7X>QbtlkiY3zUNB#4JUkSQ<|54tG^iKkI@4QEC%{X}
z>1y2hBtDDWiJFYghgxk&t%Ox$ux!J5ERt<++;?8N?|{2v4_OiLh|yJ-%&hQrgFttp
zJO>R=d)l1v-nu!x*~t|7$}SinyZDuh2z2#2bEhkc9iwZ%57q=g{$h=&gBf&|`0Yse
zI_z*jULYvA&<W<sUv*F!skvzg@|?>|Y^B!f?%f~G;LDOTb)1KO8d$%?5+Epf1Z+!f
zTM!(*Sq}1ewPnrQy$|bOXFL?tdYJZyd-*ft3V#=ArprnRuP7;dt}R>Uh)0P^562d)
zuAn%y$cq<U7L09tM7L))d7M*MC)pfdn;wU@b7GYGHZ^s1%X@5BOp!Pn{k6k(K5tZj
zK+3dUTdCP7jVcnTWFW6VspDM4vVK$z-q|{jc*_I++!GY{0YVJpsCm%Ra>b$)0yl~^
zT~(2lO<DPZZP-uaDz!^Ak!PsuQEj!ayjpHmAvIYbHQAWb90W`tPO#JW=SZ}mD7)aR
zy=Zk-McnPtGV{ig;0Q(-EeoQ}z`8xiFTdpy-A77PNGW&Q-X@n&j#tJkZKly08XA5O
zv(Uc7C6-VX$^OOFXNr~A*+tpb`4j)NK=EJbEdP1Y?ElAy++bt^VZawH!2fGu@c+%7
z&3cgKUPasmaL_586=s||Syyj^e|(trt$R3NT<Kdv8mg$Myf&eDMCZ)u)ea(wi}=Iu
zWt6c~`O@_&fJ({YC!|9y$MTjomp!QHW=yQP6|V!Q$Y#Ds!3$`s&4c0*5gyJr%W(<W
z4Px>4>R%~u#kKW;=TTHWvwJ<TS8BQVs;du>{+M}x3=zx!DkpFcgbY+FHKx>ktqMSU
zb#*nU`Y+Wg65b05G(!yI<RoeI-+{n@%nhXRSAJflCACEO!x;o~-?IIv1lDv>n>MjM
z*8d5>`Tye){r9m9|F6qX{;x6^;u^fik@jsbN6NQ*{i=_^&8YGpk=Oa21mB|{uQs@+
zLyP36uDcnBn0++Q<D`>+JYp;9mqBQq$bm-0>izzr2U+XM-@C8<xMx{2FkMkvtu7ZT
zsSX4MM+&i_LD;dYCGL}e3SK~<hi3;;BI4rWsyfMal&dtwO~cY)1@?n3n<`Py`(8vu
z<R90)x%%AQexk2>B$r7QCRsXR-5@?97xpOY$m<;4PrwYjNPvRThXmU^RFH|+vSQ#N
z^(UL`Eo*09h?q9iJcXBnqfle}JN(S04pzi@&E4dv{0gGNVk6<Y!}05{d4py3zi4x3
zbd;`li($O9*<a69JPMKnqNo9{m1-J~<l#s79?eG9M<3TisAPrO#dE}f_p0sts^<Y1
zitpiW1Kd_DxrqGll+IE!D9n0xBiStO`XN(0p={R9W8<1kZ6TrTf#e?!T~;PM`Jd}y
z#u?o9$q!{40g^SKMsev(^Eag2EtU~)&uk|2gdOiPx*BqmkD!@ow9A(-(>4gGJwW2w
zMkHqdQ?&Dp^!&WMJa$rr6vIyab@HWB(K?H@^o`|b!Xm&AT(rq%X*)LVS=uZ!->Zad
z27;uxbn_;?twb>Znn;w7FCnul;0H;E;T5%92QI!_kuIo3fA98nZ&d)xWzYImgIUKZ
z7fe5;p1g!4xyABm^vBe03nBk?Axnny{3^Qd&)d5?H|(=TA`|@f?OQu@wk7;32apOX
zvtf;eGZ;|)xv3FS$C8<?ub^L0CEH5jj#ZJo7%$TAH0mV3i~Plh`l~Zv1bSg9{~!;Z
ztBkjrD=aR|w<Gruu-!~PM>*cT>i>Yi@87q;QvWlgk~;EMAH;3C3g#zUcnO_2kUQB-
zN&+bI3m#|Z!Ia{?PA{{ehncF1mfpb0Ns6o5D0P(4m4XiMR}}AjU>MqutWI)qZj5lZ
z8?v_&J8)Nw?GfBUPHbhAf+u0_k^2Xj2Z~uXJAJlb7wrtdY7@Ak?@vnHln=%mq*`-P
zjY%1KwUW2di~%juR!&YFd`D!o1-?5@=}!%R=Hwhf1-{@7hm7`sHMxu;5g)!X=b%yf
z`?n~197{2;)wWR}vMN&MB>dV?Q?}6)OIeaIsr>zt#Jm|3(S(GA^0%uu3Ef$~dSiic
zbnwQ`&P9m<@TL#Fh@fZFf4s~RCUiPlb900rMIoAqg{XPpGPv@Qe--}eV=J*%j6}VB
zvmEHT%;tz>iH{G37azkh@R6cJSf`{vJ!h&1&+rfmhxHDuf%^I>A~T}VP)Rrxm=Cd_
z*&GVTIdy-!XU*dr4n<yE{$3Rb7LN`ZDU#~0VR_Kz(AmcBaF8oyU5VMrVti~q@~<0Y
znYom7iO=*z7?4Vi<5*WA)JnYIPRr@kK~p^~%Y_~O+TU}UI*;%`Q}Q3LFtZ^C;Bf>R
zoI)@UuiUtw=15vV6EQKvEPu3rdkBh0G};u@rY!^4OxatIn$V*@d?Jqep#i*J8_|&Y
z38=q)d2N~2x0a?RCT)akrqNJ;wv+v0Q^9JtzRKa`B>pqsZBecJ&JX*;Bi0gfl=7i>
zL+)|5K~S_#d`xW3?eIMnj*2ZGpHS}jr?m{W3u~QEh*RFZ-Xrq@o)n%G33gQ^BUvd1
zBE5Z}1cA1%J{lbzt;0_8@j<d%2=iexkVLZr3gwI7juc|qV3`O55EjAmLb2B|HjTfG
z&&G}QKZYNV6k68v2O*84gRJFaN-y7sA|!3<+Z2T-Umo*lIGqqh)!F^cwqN+Bc6pxR
zg?8S>cW()2bn5&!<h_n+HcZ@2%ZGNZf8xE)<cm}qO(VtdxT9m~W^2H9Q1L~G^^d6*
zRnN{0?)mbT)JUBrOl;1*H1*5H;NJ5z`n`B%@}$0)MNZ;_oa4s|8h)H2a^Qii{)9-O
z<>XdBZXV3~eG<Aiy~N{hh`JCpF4+RqRKG*?6CBb4Z>N)O=cSwLR4B?Ys|-0nE}}I1
zH#CKR&fU9rZ?e1nySv*4HQ1b@yIQJ1t9fydxQ$0HKl_7%yJ6(%mM!|iUtVlA-Q!jq
z8xFjf_HbR!lz>p0)UFBt(U#dA;z_hZxhs>?I`D$M&wSZmBH_388waC`5bj%Bt$)p#
zXEC^wB-y|CxMT?vo7L8`FxWywk@ejuEN^^sbB!kuf<7-%Mp0U+u{}$eV84>D*rV*{
zO*j-()KmuEu)iXQxnX{rDe4sVq9Kxw$yeAMM%eZBQmw&K&UT_;%yK<*zuax{+_-x>
z5xZrChlkgdvh8kI=^w|<Ur<YJpp*S-Q_=7;-9a{rqOKkHPI~<9a(fghMo>E4%g0BA
zK#x$OO5$K&b5!=~9@g)W6WKuw$9ua}D0^QXRN&-bv_Fqc@OZQK$Uex7$T5f?Y9TA?
zPs$FI4}0JVxdBOF*#kgcvF$ly<&2JbxR9h%Y__!Lfk$&V`yTFs5jcC0u-z}zWg|!T
zjd)K|=TG|bWns%T53yI}e@*u9ojF!R9{sYJnc3Ka%yhAm$9aVj)Xd090bgjwi9GNl
zgdk`Am&9vkT3^b6%Zn7cE=xFmS!AKRt#&*mwbzBgA~nk<CY?r9HV<EXUw4Q|p|3(n
zTy=>Otc+?5GDTpvh8)X}%bHOc5&>5iIN8#$teH^AP@S-|(Le2zMgwLcWf$<uHMyfD
z0#==V>d2kL?n@xn7=Q%ZXS?~sbI_5*&C_VmWje0&jBkc8h#M{)zdX9D3LNrzJTW=9
zLOKmRl^d}*sG-K*hLFVv^rHZn%DYqxqB{pUs_*}48=emYYhKl*qqp`53s)>{2Ko6V
z{rw=3fB%~IIXyil^B1}kJdei9Y$&#&@&qlZ*{$$(SOlbzJ7+D^S&brU<L;9XL)1To
z<1O<XX)h{50nz~H3f!E1sz40eRXF7DsXtajhkS%x?jL@`;S;(z*S+6v;5@U9y}xER
zeV6CJM^hIn7Uz^?Wr>i*3W3u<d28!pefHR4!G5R3cBZr8`HP&ZWKT<4Q`V?xe_h4D
zW3prG=~5A@gQP}4KyYg4o(BD*Tc<os)eLt8-|7z2cpOmr@${NQ-)o%pG2PuM6#irX
zPjBAO&%Rl?Zl~u<sYY$Fif+By_f(z9iOswYEjIaGS@~kbjBcE*ei_J*VwO3BMf4AS
zYuE;<{F5q2PHAE`j@G1_)fYq5k8x@>he<K$E7;|ymn+pLUS`i_Wh2_0+^~!Ndb=Oq
ztY#(~YHDf8e2_-+Q4GDw!~2R7F@v+Emh98`!ej$SPVf<XMH`#3Excm-1vH|Vh#x=9
zHfoXBzEg(~?K_XOOe^xh<5X3vQojI@*UzRl<Pc;2^yyP_2^CRc><I^T_x$W+1^8h9
zwcHZtoW3Pr;vS$r@^aR4k!9(ZcZ&V3YA*vw*9SUoc6=$6tv^@jfBF1l>&zgSB)?pD
zd9cb}zna<@_B)uI&DMRDec{#b1Qu;Zas&$^=?iM4J5X`mENXT>0caZq*?g&!?5};M
zF}Tse65P2Nz1~o~_v!rumr5R_(&>5KEJ!H3I_@he;>?VB>dl4czWv7)$+B-yGYNp~
zXk4m=3u<08GX$KCc|fE(nPcTgDjOOCK;9FDshlr_RLN3r*^l>34hskyEag18^&@Kn
z`oT~puuX4GJj0o#g?P8nvN-EDjU?&;zj)Up18cbLD0pT+9=3ZA+o|eu`zGu+Ix|yT
z?g0Fiw%hy!(=%I+yyF~HL1x)b>5-8;Ai7-C>9t}%u8CUVGNz^LSRj26+VQA!d*iJa
zNk!j$7NVe-zxJ-}n*C@;u{i^5^!dRBE%UVMRX*$pcA<JNk3(QUKm)zMzh7PEXj98c
zIH$P3T{ub9lMFzo6!q*yh*uc&Ti<Rz`}f<Ujiru0Pb#!&v%-t7OiFp#wa%B%RV9bn
ziUo!={JAyK)5NPSs3v!zmqF`u68rh%H1YiIOO{!qew$8}f+l1DV*AYLu0SHehj>^D
z;4;ygsIrkrnJ}0{noMU{X#Mp7$DA7>M9~c(Z3gDkH%PL|fff(>Nf}78ZK_q((~5Sp
zZzU4jrart=4on<T?w$swhE(x<uWKlzU!$$pIl7=UK`TRcsv-Hfdq8!9>I4yz@j!mK
z@BE7&35-Qi!w<HJ!q&x7!SvJc+6`mlU%uTuS6h?;Zh@5XYwFmG`z*{(<Imv1sufZn
z7ShehFn7MMAR1Gb$G&Jzr!cXV3TOKdD@L=-oXMn2=L3}n)*{LYYJa^ZmI)`ehE9d>
zC*E!m<@_iA(;iO(+nO<;G!DjAp)^uQr=r_Q)#=MI4Nx6<c?4*IK8UnF&TbKKJ>488
z?UwMj-L{9E(k*{1tGb06b58Sbn`8+ccLUuY)yszYz`#HT9i1~8e}6ilre^v)(UaRP
zLaUHx?hIG|>~CK^nG!m0#$W+0<u}X==M2B54_3Hz9rWX2L$EMISc^B0lmziWzH@!*
z`6bXV-?z@pc};a2y&u|flgr{)->W?zwh_7|vgpf+)4+)X`A|GH($2_}9!#xFhQ_7K
zZK2!kfNfvZX|y?rH9HvCwNNL6pqw|K_2Lo}3be>F{_FZRgI3Wf_+C!P87*-ERzKx?
z`tgAsDCZ5xPv!%cT7&dS{ks7Pjqxsy@J^TNEsTbUI4*uPLN+f6l81;=7^Z)^xoWc6
z2QPmJo13Z4SA>F}Xe3E22Nm24L`QEhiKVAGvESjm&EOUX|6ZIdBD;p{C&8zZ{R^}8
z4d%Dm!Hd%1|D`IVti1G#zToF?a@Yp+m)m^s?+=g#S^uwC2a$8m?(&b1*jte7?li>y
zN;30Tp-;Mxb9NCpM4ZSyA$n4EmL<>V?(zKg%OjS}Ia?vMX3j34UFh*FGhb%1#m&tQ
zf=CFVcS0Ag`iR}q88&LdH~dgO5{VlhQHK#D0p^QBmk0y|k5PgrnqH{Rx}yRuO7<6R
zRT;Emo6p|xoi*$#aJfW(9LZUFQBg;1Mm+t5*hjvPv<}|qCzWhXP0i<$g5>FrUaFF9
z)d>!^Zx)w3E98IBZDDS&5*r^VZ{|AQiYl-<V+eKmKVikQATPdQY1qD;uj~BGCF0vg
zzo1~hGwXPh>3i{zn~&I;`E~%f_pOxZ5`aWWzP3+lVXFNgPP0eZO0Hx;Qc{j-FnGDw
zcCaC>VLL@64qXKytLs}u4$aM9YQn1p0KgU+Uzm`OJezisVsh@*TJBY|*^Denx7w@Z
zsmdU8eguN$BED%eXuOpY7SIN2fSp`rc?3|d5~X{2?{B!`&c<}K9O26G=00KwAYIL~
z?Ae)M3ESrlHlI-ve*kw8vA27Li57@NRblP#9j>v?f;+AA{@B=<Q&Uu9)+*><N?r)n
z<A<EvPjmn}=%<}r8paJ&(FNa@$ok=^mu7u-R?RKQp?@N|QFS>-Rf1x$#3hKUaX<G}
zF~u*ng#2x$JN>(%8Z1FmN&pm%HeL(A5GiQlI2{FalBxOquuk+>0GnRalYNPX?=d7P
ze!G5G9kX12SqXBi#0I7-azIsaVddG9PHR=YTA{_CdnkU$z0cKI)B-l7<;`StEoCNW
z%o2(O$z3U!;<M`MhM_xZf!O_;MX|wf>KAp2{`h6Lf2r%V{&l0^pTnfm=ybKg%n$8c
zA429rII6<E(hTA>rW;=h^4i;@n=uFi*_gz{MAms?G?c+`!vwN2nb3hBfM{<3A%2>b
zo-a7W2CX9TI}=)Uq=(jSKERJOG9-fy5UO$lGJc;#s#=T$)0ZC_wncwrYG#qMr1PQP
zBsRXL_VSmnkJ`DEIf^%govJw=A%AyN@Y!uP1Jnpr4px=?-G$uew?)2mJByz9x2Gga
z^6!Z8uMLdT7sYh`LksXP3Q+$kSRfHBe2<@eOl)Ogj85s|EQ=Y;x7$y?nrF$g-{62$
zorT7yR;2FA?_QR6*<kR8rOYjT04$`!G`PQ}gm-bOXdk);8Vo2RmpujP??85`_}N%O
z&I#A_!ix0yNY8!dQ15I6x=Sc=yw;$;*Y7#2?jf!8=xi^9%Bs9AHOG;6YVryUCp<xN
zwGU9a!643$G+2IqeS^5^p9vv8!y44`vk}%zeYUrIx#(Kb=rA`u7Hd6(Yn}&fdPeQE
z&NT5cm;2PvpqXZ~EG<4WGxNERWq-Iqk+&%|?q&8(xR7L&l}vn=y!bh$%b-1L&TriX
zTW}lCSyMHiKArU&TgtUE(e#>T6~3abC>`l*+(c6ImwNlZkJG>QI1!ijFTr^K=@I((
z2gu$W{h1Ah0|ACDGCLp6^(wiQfY3gGRA>NQ4x7cTF9L$bO0fy=qlH!HTB&Hjwnj}k
z8Va33XQB=#11KQ)<j(8~_asPluOgcwQWh6Uk$r>1j`pKR1Z<&IvJ@4NAkxM~hI(L7
zK<MU!h8?4&!ilU$<Y_1yR1RL7gfLg>)TvV}q^1OMlS~UB5{@L0wB!M4KR#r97Ky#;
z;F*5_=cSgJ+U0};;ul9BWV5}qzmN{$Aa=+>K$xLx#6}yJg+(|WKv0qHDt@^c^hms>
zg6~S_FD9H&a~B)=Tvoz|TAcdh`Q<<~sp#qDzoydb^ga2DN$1sHA6iq*6ZU;qS)hLh
zlhgjVX#K_e{Bn>h5xBGE_xl~7D=R<|s5>wqaSs9PjC+$>4IuwqYN>LBgl*pg4r<Ra
zRdM^tp{7`C-3#p>P%D2fm1m2FcDP9sy_j>)8w|93LEjam8NOWc49-xM>Y}wNK0e-*
zYNqg2b5~avKXb)RKMm;~I-Q<yU^owg2Z1#?0GF|ncE{+<yji;7r6tO846_u4Y921<
zi9SElC95hfraVgu0%=9*P&g;B?}l*@K%(AT#SefSj%%2{)-VA|wc^I09T&CL{IbJj
z(RtMzGh<_8hHjJI>i)hylTl%hlRS<W0qmb;U`r)Q<6>G7{^RqTTSllw!u^M}Nl#{0
zs5*b;9&mQuwe*udJaWFZdT!LnS%iwi#Vcn|b&@dj1<<}nh9nsEhyJtJ*izu$&-_eX
z?nRIz=N$RmOM1RUu7~^@=-y;7S5S`ELUc`-1-Vh!N@C@PqZBR=@O>!T?2vmXq!WNn
zNHs^k%X(0enmSACsfbuT?n_?$+~P7;HmMzxor9!dyW9cHc9;-lS3r(BBg12)7*$*y
zsM{|$+83Lca3vHe+AcZ5MEw0jT6_Hn(Z^p*n&>8*^3crF2>M3OSIKqse!s0KF=BTX
zURX?SExO+y$VU>PX(j{`l~q*__#dOnQjT&fg6|<<`%~y~iIv<#E;@SY0pN0G!?ANE
z>y#w#p;yKJM!GqO&`fM>C0@u@q6lXx1(DD;i=*!D^j(oKwZHynBYqMU#p`PIThuFm
z)_87$G<GvYtK?9Vk|-&)V35lLB8^Aqm?isA^RaJSSXH$lr~kTuLyRq&I!yco9Ik10
zuF?(LnEAWES6P<!E3Jd3U$|Z~v#-9$3x5Cp3us>@|7Aqc?%mhERFcB}Z~VaXCk@Ni
zE5IXs!ZHFz3>u<sdHR!o-UI&4C?ye@(O#vmlsAJuR)&~9lwTZO-N|T#VOw8DSAgkg
zm5S01xpJAsxpCB-O4coj%Z3k0%@v)GcAJR~LfKa}<m(1?Ds}z~9-5h%v7O;q%asMA
z?5zY(+Jt0wui`Rgak3ALb_NP<gClF6ZLW}6bYZk>WoomgR#g3g^p7q@7u3zEGvJE*
zea9BEJ(T}^jmi5_xE_`VAL%BOQGB1G*+?~HMVK`x^gw!1I%N0ij$7PIpaY^3qvw}{
z>M~Yx4VZ)4+VuG$I>=jmpzej=7Yk(H_C?pekL(}**9hv|v9y(xnnWyW7r5(U(&bMS
z>*$Cq!K9{86t$!B@?7JGQnZDP;MfQS=X;WudWhYmj!HgKPa%?X<~BI~CqzvAcpagk
z5h(OJ=k+j+X}ag6OqQC=Cgngv+mKeNPHS<Pf9V>rM&-eKl$!I12biD{&@w+{?}(uj
z$rvOs-dnkgxSWF^t<91OH&*j-hBc+7rgo6AJ19YoO||=UqoYaz{*bUXs7wfKKk0qC
z$eUZ;VIV7K<Bc^6G1@}@u~J{XaFqmwA`Ti6wS}2H202=uLRq^(OlY>F<^SVJ8#Hy~
zGiTA>SqA@*{;8b=3ka9&{3dfjc_Jk47r0Y_Mz423)9Q|M5FGeoqY|xoFSMTl*8ss&
zNAa%E)4oLH4{2B8=sAjM6bcPS!M19+I_VQN57UW^P!sRB+Uq_+X3M-=#v%FQ6C>Mh
zFn~02f;x7rn5>;h+ii9k{Z3rBQAsz#eT_lBpl|LWr2c$(;1Vv&oO`5A8FBg@TD?Qi
zpcXemt*xy!Dxh)JgTzh-7uE^7=H2m4I;joq2*xP---90J2&N33#^@Clb#;H>dBVgZ
zQk7vXZ7LPSIx!+iqjx?C@IbsL?0SuZ#fA2R=pmCtNtR3ou|~hPn)6ooG;3(B4By__
z48r6TnLK5Ni8;oXFTca|ENeuT4$`zo>O`a$1>?8kSs9c;!;~`7QZhM$Fc<Y^DP^B<
z#8R=Dc!P36M59Sq2nKKGikevDxxH!J>M^z9FP^+uA#BD^G#mKrMHEWk1GxC(=tQ5}
z8)?~+mx(cG2>PLD&$(0+r(x>SLUvHYDA-Sl+NV;F08)ul%5ha2k=v$5!{`!#i~_2+
zXK@V<J0Xp*XwzgG7(XeBRHDN6X*MQyOnF6I^Y6=7TcdVhh`X2Kgy;=gQED1=?3?`f
z#nIfB42@$H?uN9k7hOf(s5qJ7lXA^e{|!e4k3cKKHe5J#l7L|oNHGl>5z_Y%gSd%;
z&sYf>l)E$Jb787C_AXUT#VI@e=%;N&M8}wrM0^>PPs6siQPb_Q*n_Lcv7-0yGt~#l
zqc}P=M<}Y%Lq|XAfd20N@Z^}H<VeA!_Nyhz{5W42)gtfv?bgFrZp;p#q9fNl|7PRM
zET^f@x5ffn=5``{Ca`v!K1I)WFUCgsUPKybdNr;#e7)Dp)%_YaHa5^a1)v-!OlBPs
z5)|Wb=>6h<Au`6gMj1`kFRf?{HLlgDDHt_fo><oKl2S^_0{3?*m7{3<7+a-IY(@=%
z7!8~J8okWBxTAtEnZ(g=E)-@bh|*8{Td&ehdBZn?tV{M}0t>C;lp-~dgvKU9QuUlq
zJicd(>F{f(52y?hLm{jm51P>T&6>R-J)giA<>>!Sece6;GoORE(QF?ZgbH<f$UdLJ
znm~cxkH5Dmds2QAO^+p4N~$AULKAa|SCDJ=`V?rETr5ACjjtwEv~Jj>B92K4C_*E$
z`I!6Gx>xE)fVJu7$vl4y9f=h5pscS)bN5|R<|Jo1J#Qi&W-SWRt^%!2?C*hEs1y^*
z8XlTZ&Tj$*?M5Iph`n8eicZLz>Eka3APU70h{KR>mabe_<`k*ho*)lrNDevtj*y_B
z;B;fR^yD>vPVKJidBjj&t{!}<E!2%x^Y^6u*@%W5V-pi>HJZza1_de;dc!W1cyrYH
z=Yd?trSvfRLAbbO`;f;z=T9d1EZ};z%%0Skm_0cE3cfCAWYy`+D|P#Q9I~eaXf7i&
z+%Sae*SxV{=2LuTP(t9vZ`mlYRAQ>e!Scfq4H1-c1qdULNtHiyVWxi!%~I`B>EM?|
z^kzQ!A26xf9jZb(M|#qvXFmFLVK%~LqOp^lAFs^Bn~ef<ce6bvVahRcsDw0&tL8n7
zt1@kL8?Vh@5Fx|l5aJls>GLxarH}?S(K|OvKNE2jT*bBO+NQl`IPs5v`t29eyG4J|
z0JYjy>v!9T2mAzs;Be6+^WN6tRcu3I;E9W$w`eBM-M@lPHPvO7_+KGd0f~UbdRkvy
zSI^J`=os}&blE|$9`TcV{gQDcC80cnc-3^YV4YG2f*_%IYsQo)X6!b`Mz_UzakPrp
z_Ka-0aBPxfN5jGDK<4jJXh^>BYN?O&(L#(WB$W!Xq+miup`+_W{qP;ce?eqU6p|$I
zR`+Ge&<q-ZG-o=WyhIG)oy^U4NUJ)@Y$O=U;x*x!>9EA(za85?{L6Cam#OBK>ac2i
zMU0FhtB9;5p-+3w8s<V`o*8%Z291T{7Xj+d4@x`H*eweAVkxAHqlLn*R*|y_J@GX<
z*>+{o(i1Vna)>4j0~{X!^Gm^Ln^z=VTcZpoK*kH0VS&l>J(pU0v=C{Y)buM3*Sjdv
zqJSq<3=vS}hYxqrPuU5%<9pHpOdu>t8J$qW9JIQ&r5d&KZ+WF9$zUiP4pKX8L@JjF
zXlsK5XVmlI2^pYQQ@W3c8ZdY+q@$^pP71<rAr{10*iXP7IWg6`1*tp960}PlQU1A9
zxS%=Bv=+J?>UD@;>Z`dD^A~31CpFN+>1%IrB`u+ukmeX-Hum8d2XX#oSj)^B(;ilT
zZK5DWSWD)cx{N!#GSWmcideR_-)fl%8LI-hAcrqMndxxAVYrnfFOg^WkoC%+E6wj9
zbD79VAcI;;DwlG3qQY_&mQPBbjL90qJvZgin_8i!W$tH5?boWuyN+RoTPLa!nw|Uo
zTm)BDx31EC76!4Z4AFWLy~iA&RT;?o$NVU-Tsh&x6HHdpG&RFHa$^`1wI$yUq;A^1
zGg+27BPV<>Lab%#k|%$j^#>Vn^^ej+&9r<QYMh3s%{ZdgA#iAiGJj>Xl9DfRt;}rm
zdfpDA6C(5K<j7pDr;v>Gn@hW=jil$#3l?Yh4-3t5GkK|~2*1ayFj8wEy^?&(KL{aN
zCcwIrG{X~Iz%Lhbt^{JM`|NQ}c*Pd`_cK#>(=H*_EllVwiV(poK!z`nWx|zwmV@A`
z{=k>3H=Nt+H+s*<g`dn7kVbvHn?Mz~?LgAo>#yr%?0XTj7D`aCN<oNCVBJ3<kVc{6
zI99@n4vC0#0`rw&X(#dwFmNk~pUfwzopR|nnch`J=0U-WTO3c|3&AW<Uk6h@vktY%
z!<zB2rzkaVlPlEDtETGMF-Dm}%bxvFQ&U4GMiw(&C$q_r40E4@1U|rugSH*J`4m43
zNaf{9Uo=-8OOSU)l%7y%y<vA2q3lZQOEylztbj4BNgDN255VF>{%K6Pxku(%LAo`+
zD)cMz<X9!V%NQoRNC5u`w@k{75?U1%z{ed;0@5|n5Ihh?9RZgJVh_lGh7FFtP%-_K
z5uSEq<hS<J0iE>%qr`x4F9l=+Hb7trMKP3`vgC>l4ybb-v>$5Ru&`|wQ^XW~$#G3+
zUS6YtI0FARHrujDS|XI-d3^Z^+~0O<t1l+sP+RSv)4OlQ%|}>gHqwQdWW4EX2BSS~
z_qpqU06#;?!Pw;`q>)T4sDkL32+TsWF>zzWFW3ctzI$wKG3KWEl3JXWS<-PrB19r!
zkj$C**FQ67t<SgaHNjC%Lu{L`X6dQn*BPn|or^E<1#_9qlRW%6J(1`ZOy;?e?_p>b
zA>2NeraEcWZHCNE8YXkj%rH!J-)f%ME0qty)s;imGK#k6j<}Ta5;0709cQ-4z>^wd
zx)fTq#~_E;Cud#2dGeg2X4u9?SeLn}8>U=ziKASZ0tv#o`Cwn7)FL|p8#Tn386_kS
z_j6_yZ;^3Mq>q5y;Hgb_c|8WPG~0a1D$e|wRhY$fRfL9uSm7sA7!)x~)=sA7e`W*J
zGt3HLqW&1d;S{+o3(f^u)m26<$RQ2Z2SlWf%|=1@NEhs2KaNbMx%vCEF{vfC-o)Qc
z?i1XPy(Pq&K$DE)WJwdG&u-VJ!j4>clRPjIt(9)E8G}#Lik6(;j>jy6^7|p?vKU3q
z-T^;^iB>mdE-vXed;P~Zj)Q5n2dq2ZZP5MhoFKqoIRRX%LzVEK+SbK8m|9U+baXvm
z-+Z?rNBKB{N(JhE{y;#Mxj~lydv<~;F<)qXseiZN;=Jm-l(DVp{`vMKjMR7!Wa3Xu
z2GXd<IF0Chu7oy}AisL-#u#RnzW3Zh3F{gks6R-!CXj!Rh`xwqHV6}+P(UT4KqGlA
zzIq|LFw$4MhKzEx!Haak=cw=?aU&xi$!WrX%ZC_Hw-b`1cTmcN+`Oq8ohU*DQs83`
zS^}+IRg(BKTMBdG`p!SaaQ|dA!?|~0JRhO*9fcD><{!pNLFLPJ?WPG4gr|jT3qg98
zi7F1|1*g^WKb0o`eHQ=cpo{-Li?50UD-n(FB$)(}y6_hRTa4noNI`J+D^ya+wYtuo
zsN&0;n)W+;Q;{C9hbDsB>qXN(8My?4aPd7DDRrkj%xX>=bn%f{m@?_sLZoy>s^5h%
zP>Se)sRW)S8sFldS8_ivO~{Ng?{ceZYz!h&2BN?}2twj&U)3Jy%-^Bk$QS0mKYxDE
zG6e~{$dvGMOm5IXtF?Q82;^lh7;mTKOM1Je-|#NnCF%5ySrY4r%8#UNWOgy+Tw1V<
zmUJ@Xgg~r|sBk&7n8ORUkbH^1n0QtU^RkLeX@X6Xr$_-RQ(gFW^~Qa_!W%O3T#0QX
zNap~E#!6Zsr6Y3?)iSZ{h3qyS(N&23P4ev)zHInHB!XBmK_X34`@#Nx2e@eBq-%{I
z5}`Y$P)esXWX$>iec}M*SHDG#QIv;Nyt!_WL8-+1;EC>`*WxL7b@SVQWM$dA2})z?
zi#3^O39&t?)Q>{(76n0JSy>tJWDC8a3wz`U_#t_RsYnrV&VZYdgZ(5Pli|S|g>{1v
zm5A4bs#1+iE+R5WrZ@|;C@U~!(vP1wUlLWp4zM}>?rB7p04|G+-~7}$mQj?C5F+Sk
znWpRQn?gES9Y_;SV_}=qTga%YAg8_<b3M#H%ZJMv7|WX{JrLhw&RB7_`sWY=5i;km
z@B4TK%5b(^&sQ5WWW@p5WriybqW_;{IC8#ZR1OSp>SfVVigF+^*_S6iw|NTd{?@4A
zOEhQZ3@CMqR$;k`TCX0%knZ!N^w6=T;spp%dPX+(zuOe!E4OgxSF347Vhn`b0msn}
z5osBmlapX6FGRdR9+)sr?|j2Vf|>bg9;m{u?zda~#Yj<V9ByKSK$`jNc%_mObaWBz
zM?lhJ4YtWygUlh6HksOq))pVKwVLgYn42RF($n4R7cc?pPK;y`hx<>_0T-JS3KC$4
z9CW+24mXK9#oW36EQe_y&O<p_Z!$oNAm`dVRvH=JOz^hT<WTTx1VE|oC6q8asZ5!z
zm+q-fHg!@R3^>2gE?m<oNoI->@Cu%V_$cC&Nrnnpbr-U4LsA}DoJm}KUhocAw-O%q
zypkvwZ~7o%L4uiySQ7$<pPh-Yo~Twg0tZT{<@@|NGcM?u$t>@NAma`3WG|hPF}Z?n
zu7?Rq%*^og@6lgijp^8_R4Sot#ut`Q>W06@Q@#ixN0;dPd@lkZPLs}@6GdcLF&TWl
z_suYzZUbEps@OEH^%VEl-+?y1AeDtWQ3IW99~s@@2q9@D970Evty4ERGLpXR3cB*k
zMj`Dw`XVTx<jH1d_67jF9e{|DUPp!~N<xoR4@}g+YC(vqsZ@feNIP`S8Gf<u5lD)k
zkX37tdCa@y2&W5`ZsOHNM9dj#OQ3|U3E*&U$ry0H6f)d*S!-Z%D=IdyUnv-~&e(+g
zlaE1K?i9+BljQ#+;Mgq@2@Ap(p@B3I=OE5HpNL9PN{MaaAT#UmYGJF$T*;h?8ZDB*
z+Th?u!y=HtD<R6HK+4`pl06(!5+msb;NWc_4(%kqLP4zQ0Xeh0Gaqh2zvPd0rw&5q
zk~vjmX7c94S1xRDlb}#){Lf~7;%)jO*me5+XG`I~j*wq)J7RZ~RL*|vS?ss_O5zyh
q(f3$J{G;+ayC!f!{!45;z5IsHhg$~4Q)C7nMeewwY{D-We*bU64=L&Z

literal 62144
zcmeFZ1yGf1`!BpyR75010g(`-L|VF)k`M%>OS-#T1qDSw5J4nO8l)RkQo0wg2#G~^
zH{bQ__uc#bpZUHyGvApr=ggTo%zj_D?6sb{@B6xbbw4j3D#>2LqrgL<P?zNHOR1tz
zXFXA<Gsd{*;5V3<kE`&<Ib#J`Dfkn9_9QC;;ExNA_qAP6D5_xOf2Sg_Yi20a4V0YJ
z-AA4Yiz8mXBz?!?$C@M`>{;2aFh8SXZq~p_zj5Ua9$D!PN2l@AET`%4o*CXHCL$su
zl9s5?&U$5Q@F*oKKlj<<6;rZi4Q8|3Bk_!aHRAg%dx}G>ZyBvVta^)4dx<b6-mw^U
zG5;1<=`yYOgy`Orkbi!B!y7QCh=~9GQCZ{ssUY?D&(!Dle;DZg{#jR1T)q7F2Z{HX
z89iVA=P*}DD*yhLl$6-33kH9Gi;j+_9*5(fuSG@}Ka2h6YfZ9T|Kq3gzrn#lD3qvF
z9Ymzja*0MvFJ`dPtDtdmejx9&-dNXXS<z~-fJfa2um62IUxjN9=Ov_;Ba@R?zQ69W
zjK<nBJRP|uE^er<XR0f=a_8Tdyw0}x-@m94N%PkCr)Y74h%Cpdt4eBV|GrnU|37zg
z6#d)uS9_xHTD$N{ir2<8T&2XrheUKYZ+3l=BdOe-2z@W;!l;xic8NBqc7J_+{mq*<
zPfndVm!gy?gnQw_-TGHoyVBK|e2@2LN`3e8GfIWr7jYAn&L=7bf0m6njlw^7=JMss
ztMi$;pUm4nz&CzM5{d@#kNJ`?DJ6W@>4>{y!RdeKSyxw=Vmp{0^7?gM!0`r6mO&K-
z<6AjD$*UO~Z<WRFHilEF<QYo`1qJ<yl%@V@lUwzoEuO#jG3S*`15N!3_e;sX>lczd
zCoTj%e@@HIeR-t9L)O<<WO=k|;gNoAFk$Rcjn{^Gh1rN7zMwHDd1tCJ&9$*WLa~rc
z&D?Um-0o10YUYJxVUHZO7O|tv9_PWJAe?xtA|nX_rNEQ5$;QtQ;`!1Zemwo_*RRg+
zMw0mCoGAFFjJ<tMX1wuTTw0T!IoGD&znw}IH8f)Cxvk4KL~hNQ{CmioI4-OUpB!#P
zc>Z~M9tWkK`&A)!D4T<p_Abu(^TJs(Ut<j}Yinz}FT4s3eTyX_A*si<#7c)z@GkZX
zdv97AamNJ_-J9L=?#eY3ufWFhJFs(eb3ZE4bau|S?E3V)b}7@Ks{Fp9;v@asOhv}G
zyPG}AOATMTET!(<dj=Pkw_8zGg?F9L_C0HX)1*xNf;*b)k!JuVDlX0{kC1}bnjU#f
zdV%SyGsywXZoL`m3R}+TT*DH}jf8{*Iy3xpfm)TGd1-Kx+HJgx7fCK$xRBAGZJr#b
z$QZg`P*6bCACDaB_0455<>8}%SO1#mvj+9lmHyNH*}9g!X~gXM<x?^H4Pn=Vmq#ix
z=bcI&$M5xKYAU<sc86W(pXidMsegA{b1~*%v7m#~V_A<pOh#m*_0H~GYVu;tScL~i
zx$E2~mKQLtlg9@ujY*<DlrayKlp0JTL|?G!7N=!k)X$tJs5@AxaVUBH+w|Vf^2pkV
z$5@$N)w0+NO1TFQq+MMLhtDSpdo&y$9jH|MdX?m6!gS9c{qluALC{5}&$;GsJv3n%
zolEm9FfcS)yV&;H{^nfZ)RbxPmYJE^N1vVL-L*y<b(v*-xKH_g@|*u!Z|fF{tNU@k
z-!k147QT*pn4>4is#A!onWOjAAUF88=`*+(B_)C!gQ{0BV<(qN#$+rl)B4K$a}6Wp
z-ZK8)>C4n?{J?ATCMk*F?Qfhag9x=$rH>vfqxr2cO*+e5EYwTXY7Ukwn%diCY;9S$
zmoUMLi?;6-8K<VFjnO&!X)2#zunL<t5#dwt;KC?NXlap8cO*x^Jo#nG1OH5{V_Q7;
zu(4))RKo6$S4OMc(E-@ztA+L>Is|i2bDzRv7#}LK;UvfBj8klCZvGWcCES^&a<fb?
zn1IUhVB0PjGxG|jq{(Qd*Sg<iLs*^-ntf14P*89H1_rMETuKVtNPS}Co13XhiT4tP
z+}=b-<D@(m&($evPNzMS@UhPtDKAYsF4L_}rLT!jzhzR6S%HIFm-rs-Z{@*U&?|L3
zRaRC87XX)0>UY40JRg`YE&0f>X6u%`%41+?B$<(uqc-_>h4=5k=!g8SvhK@ZaIg}C
zg_5_>wXj9U&8^zsS7@bHQR3Iw*r+?KRAoORl!=WlSv*4|8B9<lm>^+oZ5@dz%v8^0
zv>&UsE2{i$dRf2RHPXz`XNfm{?SmpC@%8JsTZ(N5yO+1Gg~_ZPZgjM)pE-yBUAtf1
zyUO5E#v{3$OqdV99&--7UV!Dx(yf$(-}NWQ<Ua0!B#-S-p`0ZTg<!yZZ#sLnLUt$_
zN3+|!tI$XE!cvT~qGB{Q^HI8SfgQiYC~L7D#@wY^d)#ju<`#x+rHz(C#4V|G<L}v3
zj?O!uoBX?}=}nK@eD5uH(SYMUCi~IKTVuIUB57%9`C4j@_ZMb|%L;r?;1I%kvX35J
zsXkm+z`?=MN;E8UHrrf4cT70c9Bp5R37Zu|h>QE9?j;HKz^o-^P;Y0hCv^?h{b|(c
zGiUPPNmXD{yDV2XI>cLaH)h)6XSUCq#Vrk&scp~W6A&~^)Q7@g+BNW6v{RN4Sil`O
zB@Gr>eD*uo&eybrdL!MTqwEc3&Qw_qrZOzIAvPKs8je)i2x_|xPrv=S)U{qU<-r7p
zZ*Z1cLh+`Zv4E4Rp-zQ_)b_Vg0uBFelFL_-MU|TDucLGVAFKCYKZH|bH(NMrUZ<ro
z2e<fc4_Y{TcO;44S5_|3J%*(&9mj397-NObNlYLhB$N#$Wm}BVWDK<*DL)(d^KsGe
zC+X0s&8Enk>J0ZK@7?3H?7XpeygFV>5PORN>zR8~Hr&<I#v3}H*x{;VN%ok2;~U<4
zxUVUA<%>-m9XSc8MMB_EWp-57%#D0We0Cq&oV~of-t*eT_>Mt0DaopV_LZhz!H2rR
zz;G7+lYKgR1cuUc{Xav=`E$XdAp&_CugRYVQ+wmWI%s%$<~${%-n-VSZPcHdlcU@W
zGYTHd$7`cqwLPtqjYDc*<*y2kl)KpkSKYk0!`|A_QKDnNG2P~@Gq^Dj$&~D?s+26`
zCcov}{&1UlX{abO!wfp`Z1Gmb0y)bfRNvXb0;X?@ai>!rk0lAZoQn`YE^XlwRv65&
zLFd%N0A<Bs3av<9%iKiW;Nv4z&(v_!@-Q%<M%EwkO_>y=@#z$?JbU&mrDu-SV5TEE
zw#Cz1ab{w@*J~pE?-n;}P=}M7Y&Gzm7Wv-y@0=(JRn^O*0VjSUYjq?@=Y+Ypy1$TX
zf+@D+^C`ijb)2ZXus1r~(@7jA6IkxH(7Z#&VNj@R@W4SLZ2E+ttEuU}x>H)7!<d*L
zG-TzQtgQG(Mn(wYxPKoPu4YOhF4|}AYwVPBcyX>k5E1DGE^OfRV%bXd!7yo{a5$}v
zklTFFnE$~g)WZ^ceJJtgV5-$%Cft$wTQ9lie{$rJi4{9JbP*IaZzZpA!=vQ{TpG<`
zNDUS2SFEA`OL#hTyu4SvtEl((_DDGxsti_s^?Qb=wv#AR{auB2=omeZ9wLQup`Yy#
z?r^sIYp8S-4;$O10`s<edU}*B>KQ>-Z);r9u3la0hDE1dwcPyfcFP=8@d`7ltp>NE
zN;bec+s!z5Q8t5vgGiybw`X^Dae;z?h1<LnaqZ%dn<lHI_C7w7i7aQ&o-N}g(2Ss!
z<@)yJ%OB{c_F;qCwJ$Ec?Me3Ew~E|LPfyS1FVe`AKG<Gb>gNY^Rk_x1{VSjL0;_T|
zQ__DHnKUf2^punvA^=Xbs=RsEH#VH0Gh}HOoI5($i6vZ=S5}6FE4tdoKc>a1D-b!)
ztdeQ!FF=k8Hfi(@t+-sD^iZHUA%Rl8#fvU|wwcScEkixCv&zQ<b@oE#{?@|e;$VS&
zgl_h?2l374w;321##`g=kZ!y)p+$<8``cNIj->i8a&M;&`0R!r!|W|}ox99^=Z+B%
z1)!cAL2q(rXD#_1B3&rMd~`3*ysU`e`d8Ea<U>qSxr2hKGvAl_*=45vJ--9Bv$Hd&
z+x#QJlkAew{MiTBh=?9@_1;rejmp@9b{YDSirVwfDSoLH|5K+<kxrgX7V{gTTl=>C
z)i*6c*u-bEOBU-RJ4qf7aI$SFk6F+MUz-HFBaGN@%uYdmJ_7tGh22{}=V3l|S#nzU
zGVl4fCkQ(0;68=!-?9^Up0HRKeYm%Qb%jHJx5Mxq9*mtd9PNxD3&N7;1Koul1a6jJ
z;7j+ijQdPI%ixz(I{8m|0NCzBh=-3~C%jS_h&-{HrLmf^Pl}lu*;9qtYjPKFA96Aj
zO*VSh_9%<9rFtw5jMv|P^(rjvUC%;)wpvjuv`f*e;p)~f_jxET`5*6DAdo=fZpS3!
zgAZvs{Up(otNuq@XlL7Dlg4mbC{w71Ro+{4ghZ^0Uie|x?lc&!pbHCmLPwW#@NjV@
z938*=CPzk&JI3{-DhsntwrzYVZ6yB}hw7?&abeU)>$6PQl&iIMMt$XIl~2o@pv!cc
zyi6F4xPcPCO+WrsmPd|~(Mer30Rexlu_-Lpi;F@5&KcE{9B^D#n-l{J>piE@v((!B
z=20$F1qlh%#N;Fb7EmZCNq{Y0EMZD~=w*DCD^|pK;FuD3^9Mzy?R|YKSwAxxWiD!G
z^vqG_cr?7eR(}D_j;$7Oo(id5Z>DZ8j()N6Mc_Zz8+5@yJSsLe*lDsMUA|#@YU=Uc
zI(FS}eEf<|iG7&-JC@%&fG$gf+ZTR4znEt`$h~I}x5ySo!EgT>9_$$uG~Jib0n+^~
zhXARrj{2;4u@<K$dE)^xI{%RKcnw$)E49v7`k){24%IJ(J(f$&MwUfhEM9<y+ncVo
zHXcmVTvKF+(Qu0}^Psq6{yG8L2n8@IPMdz#J$|!aBcx`RRRwzkd9U-^Z{ELGtq{xZ
z>^;>KNlJMCwk=>Utpf9~S|L%Vr08BQnSX&G*WAa?&>e~&crHXnMk1A-&vxL+0y-C%
z5sLZ#xo@edCNMWFyT4rM?(RmRe*XL!^73U~8WSgHr?Fm__{ky3)_h-W44dwhBpTQb
zyI$#&yMgDlhv!GLwC{wPs##qjB6<S1d++ltfwRc50d0*}tW?)NzevU!H3*gQ_wV0Y
zWzG!Hb3y=o(_AEFUDdJ`N+h^r(H^}L%c}hh4nFbY=^5^v!$V(sM#fKenBw=MKCn_&
z04{}HAYs&cT`&YNmsP*KSM>TPRe+FFPT$>^bQF_Bv>9bFB@Pa2lEG}EKHJefhQ4cO
zWuSMq#B#LM`TF~d0SSGsY3O&AO2~EfhsKrHM>g(@16+j;W7Mh2$uXFy<m3q8nJECL
zJ-7Na)%)hsH@?vST}0?=n3@~_MdP8AYBX{U><ZdFM!g!-%b|ub!bqDHRF{?tX!CJ#
zb&d1c4VS9K&~QF}QoAnmxr;6dDc)Eh8Mgs8CE6Dtm?W?Cmnrv4gDUUzaEpn$m!vBX
z7~l4J2Vc6**kU_en%Cs(K_h9svjY{7Z9e{vh0+>D&iiu&l$LH4&@*$by#jyU`1JX+
zdI|c^&p_$GbC;$LE|ReiWMR6*)Vu+{t2c6*G~kEsY?p38Pd&NycOksyv$`J%Mf?y7
zjVGWY^>>7XgpDsQU0>WThDOE$D_&E5^40d@Ac;kL0>anT8yD@`KJZF9J9C$NtmJsd
z0R%A~tM;RQoslv#1vrV*epn#b3<i&`vB2#eQ#dW}xl0s53<@z#I|v#_8wM<?CboNS
zwDE@?K1l7MWoK9FTi3}Zg|U(anpK;x_D%7p$CzL6j~^1Lldh)A!({|J`j(c=+sh-N
zpdF;;pc7|amW2Pin9~KQgZlHvhu5+bRdaGIjI6XG8?-T?o`C`jLUzOI*Kghs^=9jm
zvFQ{_z(emUw$qKiHMvXV397?d>z$6rFpH5{2!sFhwr0)^9-b@64MOuZ@SbDng@%Sx
z+<C;Jne!SN@gLwiTGhUS#SUZP(1tF;493OBmx8K9L_!isKqZs{G{M<dPr1jEXLstY
z@?WrJx-|~zkl{4q;eY--F0>uI3}mWKfukx2dU?gxxMq^Ti{9D3OfvXuutk#BIn?Sl
z#^L6jJ0wtQ-4u?tMYab_LSDVPColi%5YzclGEx2)tl>WZNCyCZ`5&&yE)JKG0H2eT
zlEN`IF+uKebH49lUxxZd9V3dFTn7vIr4h(07hrF|nrG$Y<d_YsMJ6UDR^bt(Kr6+)
zcu^Ac2Q{|}m?Hgu*NCZz(?LYPFn9kWuSISMNS*l~)xygD?5<7X;^I2)!KK}HaF9>0
z=VScWWTeXv`|l`jctrPb9nRnVk3QFKLioQxpZn*0|I_5aDE(M={bx$4fl8^hpzl>t
zg*O7epr@x#(JiqDu$(b$Zj-yWG2<hwm+Y8JDO{ZaW79e3`j<>6d8>FP$%g<cBv8(^
z`$x;xH<cUbGFz80prU1N=-ZX-?t0F;3RUh+$L9peNx3Qu`R;zN3|CN6+IAOsgn#VI
zRt@wUK2g`ua1VEU$uT5E{w$;C$|)#v_0YQ35UCBS5HcAC^Ua81PQ!wwx~-8V0du3z
z>^V_WM~AGxzyAeUediz|V2*c=H<C{t!)V@r@ZcTBcFBx~qKYbCd9~4G2Gj=kw<pC0
zB@ScT?z7Ta`W2+mu|3y+GgVQ^=i$;$@reLBr`8S@9!jI1*i@f(x9a)!Akr(RSXW1f
z;spWKE2#Ruhii=*EvBZXR~CG${g29}ML|Jw9yJU&`pQyW;jz+e_JWWm$GbvrPoxA3
z95yx&a7$CVS({Rl$V+9hJsi8CLZogHU%vbd`p-w;D4q-1C9A-e2och-d)c0cBDC-L
zxnYOcL6%w`MVL&2m><Q)Oh;qN-9Thf1DW_+Iz$*GG&G^3K{M_+q|I#3^_+(zN`q{Y
z<hw2hU1xCI;z@-`xz7$epwb{hv0c>3KDy@NXPHZIkQBIr*@3*9)d$PM!<Ak==}Rts
zAnahp)N+LR`1+?KW|oCyN9N$D&Z5wRwg<fB&tTmWYUn$czaE|6Z7A||I_5`70H|9X
zFo`gNY6f-1P42mZ)T8nX>$-7qaT7&o0}>Qvb)il+Ilp}Z2r~I;lQ6LPipIvDVvFkv
z_#8&FGQwJO%Uou>g-w(HL^QU89+n`a(aQ1m_ta7++i;nSY(uf{p0h)+8tbiFx16uL
zuZ%8j?~nA!B!%~A-okjmAW2VG4A}#IyNs#><YF5mr>xA;zn2gdWvtQxicw-XFB{tf
z_B*x%oWa<UH81-%n9*!8eU?0Q!os?Je7Gu|FQC1sj<|!o5z|6}|H8N^U|bUln0n*w
zAR<sp9;!QddX^64nFMDDIgC}a&7*T2N~#V0_r6LQJ5QG;@mQ(8^b;E?b&|~40fe=_
z0wue^%MP34(whh)e+%uhJ|!2CoysHNxtcQE4?W*Un6jiab~~A<+KJ5|;pCF}^ok?M
zXJj&;^XPvu(6RJ2KRN6ML3y=~MEQoOsJ^<_=dO^KBusST;xx&A+i{0JaEha8O&?u^
z{0UaUIzk}j)2B~K%{IM7fmO;2@gz^f^Mo>+Xz&f7A{4q+37&e7?L}=t{agc44jENn
zm@QkgYuFsVb=QRIW|f2TZu_~pIZ(<uP$+nyECx@$hE#}kWXB16u%jeWd+z3<YfZV0
z;M_>RqRNrYMSs>VFc)x}kIpFdeE<t(sL(19B$V-&OiACh*_oKmcXf3UI2f%!KXDbJ
z^4^>sUwhw6A?(fym>2|v6=!`ZDTZu7QlOVhK^s5bog{Q!9v;Nd5)*q}4YpjB1pQX_
zE#m{$YJ373F-qBR%Ddj)LV)n#AD~H&<G;=V-ns()bk(?S)D0dq>TJpB`i2Hlx#iPO
zWNOu(KY^qFo&ymPYRszJ?yAwsS=-u=lEG7(fHPL=@5^%(M_Sy%@UyTqXS)Re6aeYY
zvOnt@wbvA}dJFzFZmGUK)*uO}DkBuRqDhA${N(t%>n$9oP$Z0s62O;HD7Ze=B40rA
zip%HDotwzat%g}nX8LIW=Ge`fXMmIv0(g7@fZ>LKfEIghpY>Al#_MZ$Ob0<C9b_$W
z#>%U&eUO%sG2UGr*Q#)5L*Q#x7At7SP>-SBJcdV3+Gq+4_Az&yZ9l)!FPymHY>jLR
zr1e);iomDzs=TiPrinK5*_t<V!@cCu*qfs-3>fV^SPr#72#h$%;mdF0<3lGKBPOx2
zhB0R1yMN9M!?e|(^ir`Bm3`Ud19Xc~DFGKn&Sy&=@Q~?~4>f?YYqU7t+lwy&DWW6*
z%H&z~Fg^m&?*1SE2!JFcyf*!H7da}Q0OYxTo{*Y#?oE|aF8U0rhUkqXFaR7>^leRo
zcP#4b&OG%ceh2O-iLdhSh$txLv6k{o@bKd>CBRMXk508c=4|5ffH6+@7R=UIC?+4S
z?@68!c3*tswzGsGgNFd(z;(x|CStuxPhvQ2VZ|ZTC+z0W!1KgZRCZkAH*TQdP}0yY
z);c8#1xH-ez4SnX+ymj$uKl)dF{_Zr@@o*Q5DNzcH(8i+$g>6@MRqGWF)<8^{wd~x
z^Dke%Ow%jNPcY2Z;cZP4y>8YVeHUC9SX!hU2CvZuK5ZskP<sjD`Rwv_G(l^Fk`Mtz
z@EW%HT`iy+LexOM*~MdE%|ow0@-T<ZFcW)?xpasI^N)I-0p+O?=3ggByAHupQd7K(
zF|!tcY6Ag?p_ogX#!4KL`#1vod29!Wax2$g)sIn%`t=QwxGMuk043|s&+|0VgxBJ@
zOkUKUuhGi9ee2c*z-9>2Cc1ptcuNCu0$$UIQ$sbEg=PSdrZdk(*7xLSr_^UBr_U`>
z!0BGjLWlSX4vJN`IIAg8=+%Kl(L|l=@u3&a*|T?3djt<ZZ9#u&B5x}hU>T|MAwwj#
z5aOGi`DO~C!9|t(^O*z1cJXR8&NEX}f1oQ%gBri~Cy<binHhIy#DnJeXeD40<4{xN
zZDZ{eo(SH<Ybs&V2$6N%d-v}B)i1ig$lX^^P@~FB{qprIEvyn$C*X$I1qC^|pJ1v5
z0wEfQ)+7lJH$x-)6%ZI-Xx3m36=EbWGT%p02{@vVyM`fn`0?IZu**Jz3*os^we#I$
z#URrSS~U&o3Br3ia`Y<@+YSWv%Yd4ZshYC?vgKUhDd3k#V|@ta5NU`qVHC4tH8mMV
zYyhzF6P1{J2&S>vaS)Yd5ZkWURvW+yBAm=~Z(qLo^<!9X-L0S>&`s7RBg7}(X&T&x
zqKWtrppqacnf#79etWXGgNJB4i+#m=@Lr65M=>A{hSQke4lO-B&ZX;ob)`;|k3{W8
zhO0p}DiAVUI%czlUb-$@0gy$w$ku9dxntv3s~u>YYQ1SHXOu;^q8E)0;EY51{f{~S
zfSQbY^8WpMy5IVSWYpB*z(bpMrtR2lfiAC$#PL`~Njqy=HAmmlNEIc1tJ55O0AgVK
z*K*&dnP^HVuE9#Fk_bl|1F`nuRJqgQKpvk7D0dA&pH_!mIzH+YStDX4EPO8TW`dL7
zF?fa9Dm&$_omw%7-=8>k@$eCxXx=_00W3C#!!R85lh5u;L%4W&_nzZj?F8=?5pMt{
zIPcS@SWC&sG<T#x(<rO*r=v@r_?G9J9zENW8bO(MTr%eGQYI!FxN)22hvQr~0~g2%
z@q|^t4JvnmlH28EI_d)!;!u^%)+sWDmdGp<PHDAs_d4{w37CXz`8iO6bo&B@@Wa2=
zKxE)wS%7naME61fz3uV)1RhmfeoJ((HBneI=3s9o*>0I64D{j<F!io@Nyr-*BxTsy
zj8>K*>!i(&OX2=~qK_Xx5-hZ|wz6JM9Wt2#JYftJjc<YA(xt25`#O?mGJ&q6+^_)_
zz?BMWxF!SwTGQB#l=qp70#79dSI}Ln5!5}l7&Wm%bLfzCOiZ%C>_?~9VObSbhyvRr
zQ&CZIHz5aF-WF`gOv6_Mn8#^<(@G^>^(&nlz@Wx?Zp1Gwviri<4!|Hoh#EX|BL~ei
zjbV2#s58e*u0n|;W;3mECN4+K+eQ8E)|j>rP;MkqL{KPQwKT2;e>k5wIFTNlRd%qU
zH#glDud%=<p1{t^s_1{LZNfu=UC+zQvkz-qgmwFFLBM7DwQRpp2b4zaJ|VS;Wl<}T
zJvOn%#W~Q0S>r)Y%X{A|FE1bE26ef`yzJT?^AMoP#N_16P|Va8x61b4@M^ZJ(CXDp
zKNQ>T8nuDxtAVbu?qdl?tAaLJwD+bqs#2!7NJ%qit;)}C-sYe~f9dNstxb;o7@#34
zgNsA^m5x|i8*`}Gq^KaJ)XCcZklCaLoLm|e|M70<uKfIHtWcs{cNn$k(D-?u$B$D=
zy|*&@+-@y+L%GXl&pqrO1+!V5OdM6${Z)ajADfPodz<S5Z4g*xqTZWt%#a1jWtfW&
z4W{weLJ>im%HL;DS(2tjA+do9<xUO%pBg^IcGInScbq1qg10o&Ri&q9W-zb&dO+bb
zV?Eee;cyq7#)<xb2A?ylKhLQ4T%Q{>9C6YXYC&hIcHKhD$jT?hTToOI+N2`#A5d0-
zC~96rfOT4hA{7b`E%Sswx-s23Zfa^u6(eIkaphhJt>lZe@V>rO|B7z*d$?R6Wc0N-
z4CdEc<2P?td9E2p?jZvl5`ue50-suBz-X{L;m=mxOj$P+&zlRH{zl?H+gXPPV9PD`
ze>{x*G34+1u7so#dVlOf2Ox1BMj;^`6p>DLzme+QGSS8enjI}gYd;W=^K(Fk9%S9=
z(=-(H^VL=RaJjO+Y}%3GZrUN3IhoR-q#6-lk%22#(#-uY1IPGtVSXE|bd?%^KlK(L
zmY)^S>$QWcPAsIPj>AE;{B-!lRWpLZBFa_bXKVt1{#T&Uf;=t->rTM&&y&N;I1;Xl
z16}jwc<8GX6fC5yS~oy(QJeZ@2L2eS8LT&ERW-HeU6xmXyG;PL`2^mjbG1?`3BXnj
zGzPlUDT&S5u3B^9G`ZFC+ur~~?cMf-YJr?0fgh~0vcvJ(;OvIT*jT1=_azo6SnMFn
zumY4sW(2qwfVM)ae0E-e;nd;{LgC}0B&a#Mw#op$q=2_%bv)(_0ebur%=!>ur)AN9
z&f<9o9IgbMylqtS_y0?`O;bw^XD#qQ@{T`f>ha#1XPA80Q&IN;+F<C#J-3Dam%Y7@
z0FO=arGESN3i&(aRxVZ<7=8(d@zE{R1zKJQbyV8hyByFcSl`H#%5#}fTKjd8BLsYk
zP%K!Q7Q}%XnO8y5CIe~&AHoCS?J^08G*TVQkYB$v0T$!z4+RV1(?}QtTl^(8H5757
zL6OEwxgn=6KuQ~g$e8up;Pi5tHD9?F!P{(>_3jp%-4wG@0q}=Vuv|4j@I<a*@CDe$
z^b8Cy0f#hsBjvY%T2{}F%uJP&lk;KgdoD?OCZ>yU9j|3R-<Ok%6qPs?0>KQeqwaKD
zLmTm-G`o^t(Q<0MRf`HP&(I{vGv@HfA7yGhKoNma!@+$5`H8C%cOBS#G;;K;oJ0`Y
zl2XL86I=H=j-R9wNF^QAD-_X6<wkg$^K{bU)&kl?D|Nl`s*i_7DaBjSbAfmD%3Xic
z{p5N4169#ddi$p?Ws>}AxpUjcL-7no6(lgAEhZwO*P1MD2$)$Nmh#27zv*ED)B%c=
z*3(O1-2vz$@VbURCvwCq%upxifuGSySwR)0erScs0puT8W~60hLji09X~DndprjNI
zA&_TU-yc8CpfL=UEKA(>{z^i;Ck%dC6UZvqV2rLq6*fjF@j*A0sCTcmC_F<R>)!h@
z1^svO9QB|3<g(o2;6ZM<2ofKc5fqO_Sa~KE<g>G=HAs>S=_P-_$rUzH-R9&A*i#)<
z+8wk=9(=8S2^x-0p{0>Wh0pflEi}L1zH2IayfyE0&zuwpbba1AhBfRhm#%Tw%?S+G
z58vrLWN7ql$*9sCpX!4dU`hoRn^NPOw{LHf+(98Rn;y5#l`%th!*o@Kcu{&#V%S;$
zm$Vog$jH1v8Zqke9b!9Z@4OYipMtZf-Od43EhC9++6*p3#niyc>ZYudP$n#p(@!jc
zoae=O6zNAB{>eas0v=^V_coU>nlVN0nDR2ecpfWbx4nsCOrA;Oly@KgQi>w=sfTV#
zJ7Bim7frgq>OHYBya?8IzP(M!9<Znm=VNHLOZ{7*Na_}T+*1d5-c{mYnD_YS=~N%1
zc(2<(!7!2rPKNVvb@E;IXwSL8pGK+*b0FKhlSnLwq<?R1RrFf?5bUm6Eq1(X5-k2H
zItCiTOd8R0#k7Fe`j>><>2N$3<sm4np&wu1sVz^+()jh-A2PUwEw<bE^2$#P^^$ET
z>sSx9bQP5f7b|<s1ebVsm|Ix1kOTLhc}ET^)){2vVdcQc2VEc;R!zMlCuAe~)VAKj
z&R51v|EA3A@7l_sVX>mY4zE~fZEcM<w1#D3TJ&1@a^-TkT*x!0l~y-@D8}pkTcF*P
zn)#;Jhmu`PNg=yy1nCmz5kM8iKA8z@?Ucgd?A>i--=Q423K4iPA2O)5Ej&F>&8!-+
zPMSY4{OJICOba#u0t?1=q1?a0ZR3i^LK!tH`z5LR-X{R&awY|zWM&^8%6R<ObLnYy
zXmB|*xi!bCMVF?{vh?d>WB8n}q!zRq)`91(n}yYf^-lMri>wqxXN8y|KJ(NvzcHT`
z(aaXIk`d5!7JJEdCKAy7VoV~DfAyq6&}DE?#MiD_Z3R^1>qFb5>i1avb9b+PtUnXV
z-vkV}QvF;QPVR5hsM=WwlZ66>i8tHwu6o@uN+n_5{N?D`*^45V)r_D5XzT<-*#lc<
zbN;)mb?E}-)n9&S%658O_;}@L0Y7_L+<N=_U!uxYPJfMAk%*t2&d^SB!D3M?(RObA
zNRb~r!gV1B0OL7!Z!WfC*1Huryx7js(K+-yIh1+$@J#}H`&%ddKA2h+8#DojPJ({3
zowOBZ$v(@1@f%15NFDQ>yi~D;unxd*s3(vR9P(qSye&f911PEMqvUzi4;cD4VA}v0
z07X^evy<=qXsOegwY9a`(JEnUbWRv}0ijH1Yc{(TP<TlnZ2addi<Yj5`3jsqeVQ_-
z<LdNM;a8wEs3&j+FCGG2kX&d|W37POM%IA9@d=zA_}=ItP#fcx7&hP$FKYK8rT7<t
z4+#yey`5V*;i?EmeEua6jkJMJcA5`HM_&=7x_Xr%bz@^=t)9#fg+i<VysIoX=;@`Z
zK{+D2a)mykfZMG3hb7NxiAWRC+qW-5l|VfKkc{Li2}<skDMBcPb^0ALFD#6JNWr|Q
z1v4#FBU=YTi}_7&s{n|eK_P9h2Qy_|0p3*e79o|;6>vj}b*ojs$~%{@p0Jo5=m^Uu
zSe5*OE`Ku>!Ym0o#f59VGhUE01AKZOMK0=H*mtr7tXdKf04Od@O0K)n+l@2<l)&9&
zWn|6)zInk>y?YwyiKLbm1OuT-f=78i;BYM%Q(Qj+G7(r)As|J=teS*c;<@_syj_fD
zvA(-|aqT`l1gtBdMp<Lk76_Pap$%mL0U``Cc432;!L7{+O5I)=zvt>>80*2KO52`q
zVS3weaeNC~4ZQgkIct7%L%r7zayd1JGQSja0RIK&5QW-Y9=Wb8vW8QAyl=BOQbAT?
zKjO^7sELF!o?wfv5hJ!UAR<LhN<rr@b?B2HX9x!pb0JCuA)zxUfCCmKw$Qij+SM3q
zd+CK+$>sqw=_;>EDT3#(1&FeKOe0I{>FTOu@Kyj2<22Q;c;^VI5k;5|^Z=OPAdbg!
zV4qj6hccn`YW($;;z^>COskm-7z7~qVEXA{_U`U3-Ait)g558}Ju@>fk%`WFh!6O&
zY3F~rFA6Rgs33q0_&$C5#OW|9QfPxFP|tXD7vh|&pdJk=PA7=^Xc$xm?2ZR36$K80
z;x)DThE{ShMig}Z1dU?{K|r7)1~3Bo1qG4u@wW}ZWrfy9ZPDzf0dcNSHvkg9=fGam
z?BipOwdzcHT3^}SEfYTRNGH$uERr?>`mPwycj>RF82Fe@IV>F=@86Rb#nY7yvBTv#
zd$0caNziheBpc+pg7>MmW3#ifbS)Wn{2tf2O+zv^_Cbu{$j{>b{g{*dQMR&|ftG@*
z=lq5*eB5~-W`Ci!JxFe-C*ZXqZcxTNJ7`2n-t)IAA*gu&{(T9UVi1imacV_EoTQDi
zRsh>p0fapU8yol1C22r}wH?*4T0kB>#catW3qd@#REWh*M81cJ>BYB=IS`#R$Zdr3
zy#|>{I(YaV%fmk*3k-U$l7M<Hf2ngg>2$hH_^;>-6F^gglVh80F8llza?rb3F-b9o
z&UsLkcM`2<mm4))4WMumGH<gG?gW1?2pIEq@D=DmWrXVb5~_vvqBtGhIzBX@kbHD6
z%%j9(2DG}hzntcQO@&6L8!tpi9newV_`cEj@BW-P0+)}9{Z7EKuP>~N`d2NAgC;FK
zqVytV1fRRK=vB<wtfreFMLAXY!Qk6A$RGHW0z`<nCohkOcnaXLBk>F9XcC^D0)VCs
zOa;xjRra2@UTc=>GKmm1FF~SPr>@XnX^FmNQbb^Jb=m7%mcrmcBQ=)$c@6zvH6(Qq
zR6IaRgaA%6!*c~L7-(X!ptn1hLqQ>ESsAM_RMO1W=`&8s*Ix#T4<l^FuM4`?RAGVm
zblG~G8fY_ucDd-7DCcBN2x&F>D*GkH`#7JGfZ1w$ybHs9TYDKa1djf4sICuFm8cLo
z%(+VDGckk{-0W@+v-0zk0n(|>H)}znuORc_gIpDoVMgP(se<~Eu9ix<?J5SOIDy^Q
zp!5!-E*yu5oIK<_wI|A<dXEwGDux-s`8jQh(v9-(^f@*tG)Y~t=Oo2opN+3!CEwQc
zv5PDyCCf_?ouNi-QV2rB0zlMsL~VtX6hiW(q@|6H5BKc#Q=|4=idG4irKEPEx?}e~
z8H0(tUMvqj06^Z@*?kWEa#N3Lh`d8;@zjrTw(4y}TA2f`BFvhrNbWgbtgl>G7;xh6
z<z#W3e*(d$#{kFp7I@<nk<&eSM$IgKwE0(10#NL~l;*(}Gw3dS3o8D5B7XaYwM)0M
zM}0RQREYZZ`sZ<tY3LzoV*>#gl&i?20s<Bp6T|2b-~(<wEN~kY4MD}A^?nPB#i62$
zC{TE<BPH_9p^TxPz~j*l1CRkUC1YO2%>U}L6H=;CXJ;ZlQ>#CZeHk9k9`%UrFVc~c
z!n6R<p))Ce4k75rh*&5-D=Z!AE_BzJM~N=w6t}=)!WKHuqHKbQ{*vOa;GZ{I9=9~N
zAA<m%PSt}Em5Ra7i&wRyYRf=$kW{+;c5a(_=cS-r+SJRA4e)t%=oglbP~Q$G#39K`
zcM_4%2P%P}o!B|~z|Bop$nZY~#Sa(a2N0Q0EEnTq`V}VgxqfM~pLyqF5e@(F)wepJ
zsz?DRL|sYnu=YuQ>)m`J2SSd={6@aO$-=1){hJleVJn&FZ=(YNPY#A!bTO$A9tMf@
z6B6>`GC9}X(}V3afYfk7sam5x@DEc$6Aye7NvWyK_kXtTfOY?_2jpM8{QP`*+mYwN
zB+QGmU7wxHORE-8Ee872PPBHv+uEe>-8=o{S<ur|?~QWdZ*c8`GJ0@KCy>tuU7%#=
z@HG~edu=d6&>n??7)Bj{f@gsIKY{VyX~{z>N)0k&s<jW&r-DV_9>zH<c7m<jZc-)F
z9K#kGA+~?Nn#1>Ye12ozhc)VKE~X4&w|P?!VYqrT<vLi}x~*#4^sYs0trsGo+6Y&*
z)*Nr;(rw5qTo-&rvRiW!3yox^J+T(iSs}joC`*eN)bz*&KA4As&h$^7ahO1Rckzx#
zSR`G)O2+`GD9uw}i;VbNmuzhC6=j#qBe=VCqQn(%Ip`<xJ0xX%G(?t<pq*VB-jAc?
znQ*aqTdp`o_K3txMQYNWVb>DC2A`oa3HTohKxK4-fM&%@O`B-(<wGD2d@W|?=FP&6
zfWYiFMBHT++nZWi-u5KTXU}#}CN97*_P?-O$5H-k01b6=A1F*7pBY9Qgh%&oTk%l5
zCg-|WZJ1~L9D_EhRyt2P<|i#R)q#u{(C#S09FR2#AcvK`AJYX8_3_$7eZ2ufXxQxc
z)VRs<$psu!d{<^qk!=UPc+s2`4)XOcz%aHkRJ_*Fhuz$kohin-1@tDD@BJy8Ns<Ih
ztx$)J&we<hv-2SmXN2HW6O1}M(QJeFEF^-{TvJ(PzI)t=qU7QaV!46m_*oS2o%2Wr
zG~VneG5`GQJ1_5l1?{0VL9oZ3@D?r3bbI3MG0iNkF5_x1TVd2LwDW{;S`H57?GKL8
zB5I6{c;cq5!x)$!2(TnT`z#L&E{;}JG>y5qxR`Zx!UYRurLJ=KQ~yxc8ER5VKuraP
zLD<NAi`4JW33ZU`pC6}CX9+*uCeXxu^*`Eo_J*uIU(3>H)pfu9%~KCor7Imf%*_rO
zz^2nScu+A&LQT!y$gIhDU4#u#sQ)(xCMMm4#(qjs???Xq=gyzUP}&S6CeHxU1X<(!
z!_Hde2P+34?!>Jk0(ZvN&?miWux{A<ums?)$O0Hd;-6qrQ6ZWUw?QF=viMP90+^*c
zYz>3zU_fRi@a+umJW{ky6!js6Wpei6YCx09iZ2UPEtb@Gatt=GdBRNj5P+js@G~Z_
zd5XbzHizA=2$P`sQ@!n6r;qUfQecZIZnOWTzgL^YME&erWltJdt@gReAx##z>%tJo
zxtH2=0d@Kb@+iS+gESQh;yTClENo4HBy0?g=@Uqyr=O6+@Js8HvFp9r0;z>m8x3Lv
z))xg|e+k7d6lg1L5D|zQ$RmOB)WnUr1r#OuIp8K^MjGH4+F3gbxizE!E{N~pf~r;r
z-;;*?=F}kwj7~et`k8LP8t_mPpd1vHRRhw{MuV^{O3{Nz=Plp_wHl8Cg~e8ag>Xfi
z52izV?xXZ5#P=Sa0htCu0%}n5Wntp#)LD-j$^#>hkd71c+YbRGgIi_5u}}fJ`9P6P
zEC|^WkwOWA?vzU_pcLVvCV-KC*KH?({T#VMO1j1NBP^&8KzJeG1iS?Bg$t5V5E00^
znuyRuE$ZF0RaaksHGL9NsH6ubu>W8JglI(LqQz@30uF;D{JSbV9LkbgVM`ZVtSDIP
zBc3&T)7MW)SQhDM*9^k#vmKWxCX0<2`+yo%>b4Mr+=}P;b21!MUI3tog@+9$OS|7?
z%35LXfPx(qEHzwO2>V(PTY&IJ^yyD!xywvApg<x*@x$+k`oYQ%NJ)KZYS|q&;uP)D
z)EL*}MZSB-5G(4joB(b0eZ3I4)Oz#;W)%rSZq3WSx=Yhdu*ZuL6#_PjAZvV55<8mT
zcHp~lcE=(RMN*77cq&e?ykHX@M-a0BhpMV-9pnHRcqqbHcfeB^$VTfY&rF}(Mb!aD
zQg?_g6U{z4vFXo>Lu~pwfM#_dl}m#L1w!GykY|$u5EobkN5XZkyZ)0MaJwAq5eScG
z>p}4APKJp)Jr|csu@!)hdXQ4|GgbhT#yIsulY|;2ySxL!Bx3V~cKB_SEvLViiJ)dP
z??_@po-xFk*^b4rQ&S<(!CnF&dIb~f8oJP`2OMcg^dZVWgb3>)!tshq)2VcW(hbck
zYi|B6D-~?+3FsB>3#tYePZ5EhSd3%_ppd;oHf5E<Qyu`*a~FiJIv{WQug3JzpO?!U
zI3A$CRewJj9yAEgsUOMno9>8(I`;}<3opS}Zt6I_!Heu5zzUJF>6m&PgiaQ8h`nvh
z-}8<R`B#o#$p5eu;zI?yof;d?3_pc^cY!Y16zL%CF_TN!W$k7V5s1ASRr=5x3$-IE
zKz#|BLy)Kc$?;Kk&Ljk|qs$=er)zqA-Jx>aaYQJw-8ewIf*BNgC^+e()Bz7xVQXFI
z#4c|@SJBQqR7q*7<}X#BH6e6-UrDK$B2>_5epVfvLAn-*isw4}gOWC4x7?o{kGe4g
znNT<6REhgFQ6E0&d<jRI-`=$8$D7S&(S~Bt@{-rnUv9uw2S;)f2qeD0V-fCq0-Pq(
zl3_v5ii}n&5+|n$4gEZ;|D){~>~b?MiodB_Y#ZtJo`j;9`K>JKQ6dKHF~qdeShz0a
znx-}*t*H1~5oc&Jyki4U+3y-dAct-~jEs!USdb1ZxjF_tQ6WgU(V!&tawTG4dDoo4
z&ILZi2D<`ARYq|DNGH@0=}<SN`!f$!KCWh}e3qf(;OLm%_Jeq8{vu@g6K!nC%3u!6
z@IsW*HPW3Y_W%MH9ID5#8OC{D<QkW8kiy!<@gy5l4};0r7#lTOUz3xv%zw+Q(c(9R
zyn)OrZSf}GX+4p&^YfsiE7x=kIVY|T{=%0pUs527lhF)%U**oI59EvV^3Z}XzP@mN
zzL{7s=OK#Vit%&?I{t=`_PcaupK;eGX;08RM)H-E8=}GO2OaYiv!|*bBsco7sSn~A
z9paW@vul0Nz^TWuWsa}W6$j7$w-5xe>$ATWL+3xO5W||c&-umYx$~l&4<UnUHQpFC
zA1KYpH4vb;fV?C0tQ7WcWVIW9e|!oCc;!3w#!{U8w9#egkS~B<4C!g$J_Y9&#Vk;r
z6({KOtunhK3Ce>JIJQXYpv^NwGuPg!<%{UF8DzA~Hryw=JHZr!f^jA(;MgmE!E!L4
z0Vbu5lkVr+ggVY&^`AUD5k?%f3R_Sw-n@Tr>B3CnQUTeFo_V`e>!G$tfb74|SKOje
zN`3LcMOa*XY}zjEj(O{w+8YAh5NZd!uFw}arFSG!<9ASeC{9X7X0i5|N)}?g*wR=C
z!8%zb^aDXN>Ce)xHyBmxU3BrmP?3_p05XOdmwbmr^daM!DP_#k+OPE)5~#nBDj<TN
zSLnP&=@ttd1@pRX$lnY5PV+m&M<B}R$-~azVR*B`JIwIIKMK2(+X0echo&2hb_TKG
zCzv(rh8yW_uy=3o`wy@)YqQ-zTBlr@j!mZ@E_YLCjptWJBxMM@=;E9^hX<}bT(mSS
zse17HvPZd@rPjQSsKtD>z$Mc{oCfF)UErmM>b|ja+D6+I6j*e;f?ErPtp&K*8n^FB
zN+Kq}E-Y2`k?GlX>dN}C-=^H!!=D16Ojm5dMl@+S#HlNrH+aVI%*;8->!KJGq~I$c
z2V8~i(@+m(pzG+5z9>Pg&MNv=z{>TNUK>)N0ZEyfe(AI>LiYB718e}|#slDhSG5~x
zyjMX(7VgXZdAJWMRCa$XFe~%+gj<kDX9kka1eFy@c+^3rx*qV?tKoTv7ElA~;qTG_
z_@9F$3fqc40qiyIOu1_eK^YAnaX!mV2^0|+3Wd5Q>+Xl({137D9PT=;!Pe7I5K@Q%
z>_9p%Bs`oH_{LS>FC`VCz%R*Ab<nlGS;xO?K@yBc+788$Ljn*3hq!T><w$uEgg}9Q
z--8`_%Fxa3CiS%A3#Q084M|&p6!-~j13DHKd3a1JnHp?dAfDxc2}UO=e8t?}P<Lsf
z^|)vT@yk(CP`#I8ZVwATT(SWu<i1b^T^iYn1`=rngp4mk0x~E#I20D@OF(ds62t?l
z2QV559UHL1lp3nRYE4D&!J)K7NAKLZQx8c@hHAh7U9gc2v2Te1SMo4F^RM_j3qTQu
zOF%$+iGl|y`=n4B90%fuK19v`%$)u@?J@?|9wbCU$P7I1BBzD^h8$%LOeyWE(4T5t
z*y-t4u+9*n<t6AZAu#1zMqdI+N<#wc_0U4=p&P3gX<E(yTxb@YU$zNHdL_)_P{0+s
z_#P^|N&;UYu$2dSO~koagNo6zPzwe8709b0x75CcKzvU7$Z$UFuex|qMJVS%n=klJ
zpR0N||F|`7Ur^!1Y2~Onq=PUWvQa(=Bn(hhNdZ_BLmHJJm-v+p`0wk!>ONEtq^5FD
z2d%Dl3{Roqa_MQ_JMXQVg)-&CYX{yHB7xQ5Y{0+$6SOX{BBy9TszYiNV1R#TfJX^l
zhBRgVD`UME1|o42tqN?xo4{Ja_Qoa>B&7}?2F>Cls3@ZZ!68ix|9Zng4L59Kh4Dwi
zQ-4Kn1&|Y%gG_!7g(xqu1`NVqgft!e`{Qsyv^2O=&9##74urJLLC9kv5qp@Thcn_Q
zYwqy%ucsUTFvL3I|0ij^V)Wm}uBrc<S0;%5Z+@M^|NOZ2e|cF%8uuu{5B(q_h)~r+
zaRoT*4+QNxX#L0*88OK9RkVDAToo4=F|@%t*w*DV(@ym$?cpg1WFo0wn7NvZrS8ka
zF9G{v*fxL^jKef%+ZOuw#?_FJ+0iNf3!_jx{(x9{Yu)4RZ&QylP#B=xmNbny43|Cy
z&*?D`L?kT<+m_BiWY1Oa9xiA}!Djy)B_sjMf59MIBXnRui^pM<5`ai8M5egB)=h(3
z&f?%8do`V$oIGbg1`|<J6NJf}f$g?%(#L@L0Tj~s?_tT1mp9ahJAl@^yHj(bzli<M
zi!$&w;&E0W3>6NZfL^t-oSaILUYRo%HnpYE1rS0833i$TlS7uU5d>FYV}oX%_ZlQa
zC(Fjex4cC`nikclp@5W6z8wJEqkK(g_&Vy!CLV+&Ah5Ws`AzW}gu|d&e}f%Pm6VYO
zux$|{a;H!r*?_8y{ATZ<j2yNXL2o||o4r1xPj<XccSxTQk&-fsAKc;QuA~e*7`ZrO
z{P^(=xRz5W*i_rOuw@Y5bOe6|*o=#Uz?HivI*wy~$3^9H*A3Vsih^T<FFT118O|+C
z422zN5)u+mG)->M(Xq5TT&_&&E_E_Novmetz`_j?k>M8NtB?b)JjM##xFNy#4lbki
zBbRR^ciGC)_BIYy3?K5pEq3^Lcu^QFiuUWuz(}31Upg0P$mrRIVG3G3@Wb7mIf?gK
z)7#{4UfMwWrS(}K9qZxz**WMM>yXAeS@TdFIbR1AS1m*A;5iZU?h=*s$uj$|{`cb2
z;JE9?^#4qGshEL4^ix3nr%*5uv<`7>;m}n~fR~p#WAT2~)^?@bJ%em+0vPmY>*6Ya
zOxscCua${t-Dpe-a$?P;34%VA54TF>1{J!KnIl?$RnZ?wkGpiy_^h&|9y!sl1aFp+
z6?YkSNHYWsSNkjpY@zKc$;8Qy+NvBAMs1R>!Nt`7#L1-s(*Z8zEUI#=Uzfda3u2E=
zb5OLteEVh$fD2k*0~mEvT0zB%aolIYw=NROg_^y)I~k$>sw0u*QQDs+A`$t_KB%?7
zFh-t_z#bgi(c+Jwn(L6Ce8au$%8?KXs*LmS-2gZE*JJ;Lm|JQMD<xd?^mPm3-+Vso
zX`eZ69gFCJZc;PW(Cx^+Kl#uVsv*?AqMxSR<FE-5*}mLaWTOdNgG#ivfM6TXc7B8n
zZg)Xc2c7v1U{#1mAc4wy@X9&uhIk-7+|Z^g@y`=S0ydCVe-Hbl5Muxq8z}YP2i)rG
z>aOhRLJD-K*ba#}kxRb7{|VUaO;pq~*y|O))thTLHvKkip*MYUEA=<Tmz#C}!1mdr
z<zh!veryrZX^7ewgf|>PG8jUHyRna98m!9=HJ^_p$3IuI`1GR)S=CX%Pc={WeX*p_
zY7R)?0^dNvU-Q8gX~K*hZS5}^2$3D_-Szr9r^nNHPfF_1ht-~RB3hhp%E{r-PCtSO
z09xRe#)h}qDxc388yh=<fP@fe`)4IU)cIzh@6w5ij*!r1Xh7D}%P9`hXR(I;H*elN
zbwy9ar=m)f7UCxaxxk_$Kq}#oo$?1Tv|d~dndO?pPmqgbuknP1vO5yH_2dZ(-g|HX
z>@<-85i&O+s^(Y@!jv1=fX8EDv8@;gkiiQvOfO?-BGh18?yIY}Pcz@|KA7Y?clPXW
zql?IkV-gdWkYx!Hsx$d}<P?g%2M1+olsQd?9rX~37EDlv7pk<)L`7fOI1!_x`_wHp
zS=v-pn=m|5?I#TP#|itiL+>7mj(-fMK8+f#_QQN$_~)%RbSJeqD<{fv!*)>08^Wn{
z>69%W$jhJpb3!Nylknd^JCj70nC~wufjtHR=^tRVynqcJDN<1t5C%dDC+f-pt^Ggq
z!*!*623F473aJ0P06G%om+fKe6-3|=pZZlRC^zijY6b%jhSvZoAB%z=0+EuRCkFv1
zgs4?m4U-T_aq%<xr?Af^P4J6)f*^><FngniZ*l=beuQ1t>nn&I1ZxX>0HP!0Nzb5G
zfwE3Q-m;`D9Abih0DYG1#)B``Wm&jir$dW_SeXF42C@pk)P~sX>%i=Pzmx>-mZcfW
zoy1R)KB}XUQ4;KPBEAL3!YtnL@o_+kq)2cYAQSDsOiyHE8bDuSGO}O*TsLpr_>u1Y
zpJss)mtO@n5fPk~I5dHh8?#yTSNr+=6~;V-<$z?zK9O<#XGfXv@P^5MeMu9`|L&JG
z{WG9q^Cu=N?X^=Z3%*YSGGpaEEEeeT-+T`;dUEkX%6$nvqO*)CH|egKQpT3q|7rRb
za{ZT^<WHx&RcV}0KL5Hg+cfX)WJ>(}d)aH^Hz@un;%7!JLvx#|ZYNC-;@)Hnr_al)
zizUze-bmOKobd~o=@l&UUFh|}sr>8pTbJa2Ttxn*Gv)vFi=laaltlfZ>|5!M-mJZ!
z;o+NCL*=4Wm6f?U9~M;OseSuaIYPi|Lj&KwLA-ieH}Y2-{};!VC0?7Fm6H?Q>=<z)
z=440X_2!yPBSPdHFD#M&M_Fo}HbDM-a*pB8*}s1A@c;he|ND9LX{?+caL&%ojuUV)
z*0-^=+H3JRJ2Eojmi1-3_{EX_#pm}va*IM=z7kqboNMHj_x_l8rHHS*yqr6Opz-&I
znF*)}GL<Khz5V_Dn={6;va*njS8ueoHfgg1U(~i4>r9oI9>&{IZ!V&Q?j0Q+jmDHt
zI}HsE#)XH63u&lb?+_=8k95gf%l1lecXRs+uT~20L;dKN`+>oMFGJEz8%=>6)9cI#
z8jX&o>DR1@8>ZOyU@I&veDv%KwA0O<2;W{EmUl9h9Xi*@$?wlQCS-ZB^G!N^IK=9)
zzLS4Y76y0tjzeqSjlEyT$H!-ANTcfP+{#J^)ZfJ08P(?EWN@PltHY%2_0W*iI~E>H
z@68zBsUpbj@9I*yfE&Li;CEa$fJST1yvlH}5hjaY3)MtXBtI#+5H0_e71Z7w-om0H
zb+M-H%}pNc`5<1&uih&wI+hL&xs^s#<m72Be5B{jsSa!!U;3Dv%W-?*J0S*xK?{+^
zFSW$n``8JOE>A1V_s!DEibJy<2=}fGkLH(_?3yKv+YImWOqvXIcdK4_2L&nK`8xWL
zS0NxEz}wq<UQcBUUSVLK?UHw`<{=AdsFj`FgYJYGV;dWrp5#y}DynxbdC2)RveIls
zVG$I|H2mKs0ZYO1|Ky5bx5b{K18W16>}Y^#0-z^4ELU!{Z*Fc*Jvl?r)F`%{M_ZH!
zuSwJMSt=@9$f;O|%^7A9qT5Yl$4g_=-)jjJY-|=t`!rjMPa$=|POS&061L(Pwu|lz
zyB!;_yn9i2Omn;%>^pUnM%!i&!Vu!nl>_{DYiXt-TG;`w-{Q+G)+xS(R9D-I59T2+
zVEtDvnsKxs`wR5E=e`OqWEH%qTn1syrC;0P>mwE{;DU~w>Yb`#$J$F}Q&9@}82bt=
zyx8vdSu(xv+HQUMcF55lWBPect%MqEe)5I0wcj?}YhHv4o|~ViST6@r&ji+h3lPBR
z<m0*I?yj!LdmrCWc?@$UA1zw+3=Mq%hHC-Q#M+$97`rpb0WrnjE_m{5mg%*FR+daJ
zI37gOA2-(5_fE5BzfUg8@Nj}m_W=g^BnspEqXM2<mR=dRT>eJ8aIQxjS<P;}TomNh
zd@`-BBcDmJvd=FrOY)kIqyO!Wv5STK-eSMwwLV4v`{bzRq{QBCXM5Y+(b2JL0|2rr
z^OYCsx@=eRo@Zwy=~y-_`5g1{PV$8pdau-a?-*Xh{Bp9s9<O}Ieyn(v+};K=khL<F
zR1?;grA<@IYj+WYi;6diC-j835=2dL++Emrb$4f!+uz^k77!@?`Mo&C?j-kQtHv2N
z2IqK;+8Atn@SRsnrcixw)96>wg)R1v-*j|!?^tzz@s3qdgK980J4?Ri9~(yTt{N%h
z;MgRF3(+uvC6{G$QUtex)Nl(63#{8GZQxlsqYS-z1vIHkOG^)G!u0j^Ys+gSZ#uK{
ziOozjF~5^{TcSbrTfp@l92~r*2aGiIhuh{w&R12drc(}Vm~*Ism^T0Qwc*2ElP&ho
zEC!_`+g?k(qVxJP`UyLkgSWowt#D^dygnjqp55N|jy;944J_V!Qj%@g$F3!+vAmxp
z$a7Djr8Af<#~f3!n6ChaPVuN0Z18CR@#Dvvg^cHL!Ob0C=k*n`v;0L`u<Pf7TP#hX
zWv!o;On;Qo(su#t?Be@FL1U@bJK<t`eM1RvLTFJxlv1y@>y(tX87=|5Gsa6tWAz=_
zZ+o@Z#cXW)bd<tJtxAYjJZuEWPBxS`xI5`PT$q-s0%XEgS5MhgoAWFzOnhjZ>t8Jw
zNazSeajL>4dmQer$wk3?shk5_vb6H(erFJJ*OvV%{$K|$Cz`vSfW~0rVK2m`vK$?9
zaev>Tlas3#!5&CIxSp#sU|+EmmE~=sy#nnPp7cADVyM_4m0Vw=!1MF7ic#qU$Qzj?
zM9Bn=`CX?O!~`CYCBT$w?od7t4Pjl6l{EBSvV1N~TX1-DU8MW?LGWwtB!Ryv8yXhi
zx381I{?oL|9R5kCA-MZ%=gdJ~fM^T#8ihtpu=P1VKR-7?CD3Kmu0<iC(RYT)d0sIv
z>0-7=iI)nBii)^JbfD#!g_N2jYmUpLfnM8f6n!x4uuc0NWvPfcL`P%>K7%*ISO<=I
zp6qo5C`By-3HUE73o|m3Xq@++-fQ9|Q-4J(RGPQ+f>UoKi$DBTgiy%HKV+VIZxSvS
zb=Vki*eJ9Cv4cpOqgh$GsMwmr|A)Qzj*2?nwnfo4w7G2)0)n9w1q1^@0l|zVf*?t<
ziil*%8EkE_4Tuy;L4xFr<P0h*NkCE|StWyj5{07R&98Ltd(Iv2kN3v7_l!I4IF9b!
zY^?gl?^|K6x#sHr5623mB)c&Om3FVUY%$I1j*Cx<d$^b=K=z_4h_!JP{Z3vm3Kl^&
z<~iMdT=;4FM~Sq~#LqK{Mqv-r@k($Kw}e@@2{|<A59;=2cRq@rWuhC=ZS|4y4;l0=
zcvVu&{+~xxQPcK~Ps%k)oCZQrc~@%u`NX6qpD$}8N?bLk{<I*Rb;1kGX{*{xO)87b
z`yP!lhO%@Erz_2SnvIhy0r`&M0<RH6i~_6Go3%2^!+#eXHfj<jmgU8eQNYct@bDe5
za-AD9_G8;Vv;T7MFto((=2yW`KHcFdnY!zzRWo_G-=5fRHV&Vgo5+7dk1hM}U;M9n
z9?F^pD{jVJoHfx9luC}$7BJMb$@Qt|PG7m2o)BVbp<Hg@9CdBzH_a&1Zu7c!E7{6s
zq4mqvr_T+>&HJ3~7w|QrHy&lQ_w$Se1Y{sHIXbk=-f;PySATV-$QU)39F^0Ye{ftz
zt$auQrWc!+_(w&~7a2Fd4e&DC>t<9}o9nVlb157lg*}Y*hX2>TS#oQaDl*d3Bl7a{
z5VdAzsz#N-)_-C8FLg|_e&dwras0W0e@U9cZsn*4Z?9+@T~ri^awEU5s;XL#z_n3w
z6FR`8zc4)`V1IMDq9d*KZ#4a5r@8L!mHk0BAMftn>o)D`fc%&^?e82$rj@1%Q^wYb
zFe456oDw1ZT;HXPBXyGVjJc!r-aVw|Xu%Ezl!269dn8WpBtvVAsfj3ENvb0OIf1S1
zHSqFm5|*%K$}eo+wI5yajdKv%;4|MR8(I60+tJ;P4vhFjZchVQS=pUj0{#^?vCp4M
zUGzH}nftX^<hOQ5X`%YFnk~9IxdWEZ{Lb!ZH%P1>)Y3ip7#?hoNR5<sVpH{75uRel
zEi#qXt%o)Ro;aezKt9mcQRMM=!#4ARcHP9}jcgwSezy-i8mnBMsy|Wi%mfzSS4@Is
zrq}#_r@KOl729hG8uZtC6>;Yj6ckv#HGs*~eiVD$&8<%I5tu9I%(rlt3=a>VWy=K~
z6t%q4TZQMUnr_ZP+>^gmWMY<BrR9(UzNAXO%=3u*h<H#?d{UtnG=SmqPv^U91n#?h
ze5ZA6iG_yo-o1NC&PJOFdVnLdo@h}~ks#v+8moLe)1#w#nas*jiGZ1l;JY?A%S=uu
zWMqio4N(t32g|2g4B-GWhjTQQUM6s>0gdW`UMbw<kD0aqZBG7wSyQs3*x1+&N3t38
z@s%s<6PVaQPX+xeL<V`Og3rE>&NjqU1x#Wun-l;8c`0h3Z@7<N_BIKLj5v7^q-si>
z5GD_uO?dYL$Z5b}-2U_1!vDfw#AG^dQZQ#SnIt-PPyY(`;3z$-(B|UM{FhBdr6fSF
z(U)R0Rrk2fdd}}puw@x0cx*8$!tuN5tvV2q{hEmgY*&kre?_qw%OzbxWQZ)+s?$Tv
z?8Y3r3dfS{3i$6F-?o(N#>;C{W5HATyveQ;@nTLc<X&&~9$YfAs}(^tl@{(PCI0q`
zMOurYVM;tX+06l(xY<br@z9A0q$CxxaGgx?h3y`s8icC3H|nhVr~^$1!gj)X?roW6
z&*!u%UL{7MK9ZjMv3~iTy+(skfoA3BT}QoV`_H?bwX?GWsvHcjdH@Xmk&RhD)0x0U
z`J5kcK#Ae(9n{hLYWY_lv^aHn$?(+y@O+QkutK<f4brj|CDL=><sOYNYCK(qr4jTr
zN{sY{dsZFpeU|oC#O$8Pi2=~#9@@`GUeMj>X`h^-xO@Epc=cTR2gFcd!FbpgRmgap
z?f7R(gA>tpe@t;_c2CYBQ2*ABxKW6??AF@6`(f3~)U_j-y8wdt?zfSW2isWU3sbtt
z{d6NjDyp{L0NoAdQoHJHlEJ*>7Z>_jpfK8#p96Yd!K4D5xpolQz&Wl4#jH6P^tO%@
zbPY8%HDEXc8YgnJl8oosUPvu$UzLqSkwzi!W~0lGuLA?+vC+W+FcEMR5_oAxjvUEB
zra9J->?#5xbQ#Hvp4rgVIZdOBilkwKT0i9{_TM%-V$>9nS;Ud)KGeiv#EQm;886zI
zo{Or*G?Us}lt$(PUuDiXD~*^YWjdOlFJPE2X&J~lM8g->eOvfKB+l_=OJieJS-c|W
zE4v~_8>I}ZF*7CzSCTN61@=X+Z?dyKBojQJLFM7;5hq(H7?piR@WyFk0IS^O${1>t
zK*`Z!kMCJc<z7D{fLb@ICSoGnTXan)J_d_O`@omy<~x{1iM{W(%n|g|E2w_!r7&V@
z{md*U@$+=lQ-C_Aqd`wE`u~dyfZsg|O#G~6LT`NNr95Jlq8@U-;2PV@D3v3h+7Q57
zHXBBFLpH5SUSddjs7K}v%8bE_S8R;9C~yt>4T<W~AgNoCuoNpz$PJmTD91N5li%F|
zh)F{JJ7c#+DKu_ECMPE;Wl&Q%JzHsd`TLjpdB*I(Zg?~YNo=HpuCqTVWgvK@nKYHo
zFDdxY*eL9&cmDi&zsAoNUx$a~HCy7MC&9>0>X%xSc=+!!M8d!bgujTSPY6_(uDNu9
z6M??E#@$Y9;+(&JJx7Bcj<Ac%4(UU(2ZK0~5LCsqd$qxV@AbWWX@<c_v;SVY#;3ln
z?jV*`InF#d+ANK`u(nR%xNr$IQh;bY#CPM8X_H<BA0q#qDj<6}5XSWU8z|qy&1pvL
z0l~q+NR7ghCWIM(Tx1iD@{<!fAPF~l82z~<+3rQ9p&AUs_8V%8TCMBks5HGthj#(E
z6B!ybpX)KFMGP<4OSbk0`#A1zBmwu`#$i@4LFckXNBiZwTShaIT@tqyDsppiy<dYz
zOesT<ZQR}gIt?u$cVIQkEF2==MURkruC<}-x7$2jVA;#lh@RKsiFzgSg!7q0=GDKg
zkyIEmi|;9#8!Upqd>mxkya#z_lA$hIXs!-}ZcQnJ7^ZezAvx;J9;FGG!uxNp=rEca
zdtghdz(uu!A&7{N=ckS)n!E6Wj9d*?rd69wV}pKcfk#eHfH952`|QT+$9_fKewvo8
z7A4)CJo7)q$DkYY%#D%dR)POl0x%+VbPCG^^azO&mk}p#ijZT?1JuiW_>@_ww~1_=
zt9M3ki@v|MC9bRo2eCIp+T%P^7g8nU`u&0Ax0k;?6){#77Z)FWwZ?Vdh(ooLk?Y&9
zQ35*okZyQSrEyu7Zabk7t<0wn)#u-S`)%+&zkfvzD2P^2PBp*5ESPGSFbJ}t_iR{6
z?$@Nw$a3+>3=mI!Fhz5ilPzNacY5nW=B!bJ3dF@ea~jTpH1*j>;sY_Wqy9zjKYjXi
z#y7(cRmmgNQT!s`(r#pL4eXb!U=GFHjnQ%tq!er5zmbtU!675B&I(P8y}EPVx(AGu
z(^@^DodhpS6)C!9=K@{{4g5`s5$9eBRvPuL3wfGbK*-#9^k$&WRpNsQ&n(OLY!(9>
zzQN}G{t}W`Zl;UNa64RmBsp5Ts;a}HWQ!Gf<}e&BwWH+VZ1e+H)V?LD3i?}N&vwh1
zJ1XruADmBL)kyL|z|B{&;-~v$qyu2qyHYCzIs5-)IYN%t|18c&n`3z+8X8a<-nn#(
zwL((vKpdqEI=`bu^HcLxQ1tO9caMm%f>(OFj1vDY>j+Z2G4i@1$`_IIUuPFtWiK0f
zVK{d%>3x6*Ka%#+J<-nyuyBBCiFC0G1Q&;mf?7}N<R$h34WQBxlRJOa<EdCB)~aCG
zs}wS$ytm@#vCfEWzCHESAh-;S{orcno`cvi27GQKeSM{OrDs3qGulR~y2`x8n%~9i
zG6%}X@s2eg9Qb)Z8V$d-qe>`BGEoh;7Pon(6<Jv@{Wi@lEqCjy0xEpZM#j;9$3<5r
zX$dyw{ap#DYe0M9(G#(bFB#q;vk?cF#J`U?budyPf@G?yIX_!Hua%gJuUraL6!eD?
zOLg>5Q72W)kw4iu&f=WfwoN;E7#~Y4p~zzZ8>LxKKeb6)IWmrXsU<B{_{nsIA3g8k
zwkFf}+38siKNfsi5O5k_#Cv^Hy@z~?|68=a>{z>#tIo&)_pVX@>i4!=f+hri3;nFj
zjNkuR5T9XtSsF95A)lIh<?a1)YlGf*MJ}9G<ht0{W=}OFe{#Xu>i`fYB_-t#nVPqB
zjS^%>f4YR*DWSQW^*Q0hxTX1Gtv62S&$NxWPVMq{>y_wGe_A-%Y#gu6vNT8Q;K&%^
zJj|E_%-5R=Z+KUX6wS~1_LDu`@H0jUHH7zIR+_siJ>`~mo!#ZngQcrKlU2kt&8T3#
zi0c|EYwXcUoKqy+p4#8D;?8TwMpoo=sS|e03^9mrKZvhpmeX@{bLG|uX#V3D*8pBA
z9|vz=EN2!0mBv%oepy|OAxqXB1gPS%p_r}`RShUcPSCC0p;sje(8Nb0e->`~AswgS
zwtBxGpy3&s^E{)YnjofdofCpYgS_WHf6^IRdRA8NDs%f2|M9$exw)f3BhJyI^JJMW
z<#E1|ls{TNJD^rnPGB1?n+6pE{8-jfc~$%vJz_;q(FmcE$A#;<#HqsPn+iq4E?~Zz
zBeST+XxX*d5bH(uJXZU;AaN15`6;&$$dC$?%M~BQCFTEkD^#^$Dc9o*vFS}2rt%#L
z9Ths0si<1b0*h+zvy|ClqYV2DnUELsjwvvh@K-Q@_8(o$W8~PWrWx1AVF)S+&Xf-;
zD@$uduc<?YW_#+ZZt1C<>TbLytG#E*Tgg-e>D~tDxO7)Jf3lWAJ4hKp7^`v!1Vzok
z5p>m66YD>e(YTAsjaJF8*jc{Qh@f=mM*YWX{R@Q&jI9HC#Wi_Jl|z9OoTyp3xy|qL
z9~>Fc9kD#2?RLoY^_e&<(fER?f{{va7W3&(@~fdPogg{>;l%W(rP3GU58zU6ntnhD
ztLjka!>@2jhd<r?jUJ!|^My8B12mmBfjw_ovc>Ky`gIWuk&2hn`6IqiYCb$-Um{Uk
zn`&ka%YXN3Z;)LTHfsB2-M4v>F270Y$|Zf$HYGTfNTZfFiBTZ7r~cy7F;pFFVKl$O
z`1z(dlBW^Zk0{uJ*ra5aA>%#kmm60GO4ymfFL(p(BWOJKv9E)vsc935lW=9k(d(MG
z;DO+@IzaK~_GGnM$`Z4@tuZ6gC2g8`FGqhik^S3s7u#4{cM<nboQ5RE2V9?QwK~t*
z#tH`wLR@TVT_VX2mEvREu0K9g%D|DxRedSWg{^8r>w0EYwVCdyS!)-od^Y9cxs;2o
zpAKx&b+*7lFw6ezZqu`B_3ECy4yM^7shPfW&kpSe=dcQdgOD{YeJ32y<SO>D2R!r;
zyx=2FBL#Ni5)x^M-+FzN<jb(@^HwE|q1+)wtb;8)2Ecg|>{Sx;PJ%j4ErZIG8|VqG
zAvhj!hiIAcCw3Ka^oT|UbPx*mY<z$>=R~7O45cgS&yxiU2cuy;{rsW7gpcc8W2?!<
zEAJXJ@u+V`rCxe<3yzUD*}0n^1}dX!mH@F-JnOV3v9oA%&>|5giWL&oXhDA5*iu_4
zCekyAC4yK^NzlJ>nt?dUPpt5}M^1lKAgKyP0w^HSJRHk37{;bSFH=ye0hC$|^fnOk
zXZzM18CP(0ayn?<p6?8lw0eckw_7%5Cd5m^p|J8G*k~Vg`$uMFiIFmq)c1Smua0(=
zk+B4HO~ydVjpXbv_rIo;aOYs*keeW3C)ot6!9H~U{y<mDz)jMvMQz?`PU>TQA*X!N
ziIkm;h3+R<)B#~%R@7h#FP>mGw?g;FYf2f(!Ukfa&BpInc^n?j?xaz$afR;Y%V*4R
zClN>U9`LUhx-PoWOms$9SNCk>1>D3KTIajoAFS3g*p050VXGXpXDbP8w1Ui<0bq5q
zM+OHgU@^zMJe{uwS=<uJ|Mptz#;e6oMNKu(+Y$ugNd%%Ke3n$OY8xB<i&sksz^Aud
zN{kM&)zF#BZS01i<r%Cv1m=RMT2RWCN`3olb~39-j>cvE;n*Jk3dr%Drgf2zA^n<l
z8Zy?ENN^FZcfA|OfxABb>#oUrq#i(6G*LA&JY02Wlg<-LPG1-+^!ti(-{JlUZ(?V8
zi4}Z2LpD2&0%O_u*f?Ibqd3Fy$zPc8bO;OaJe)Sb@&l;j1Ams9hCh0Y5JuTgH{afZ
z#7dMh0>@_+P9!2?(prA!IKGgEWyvb`=`tI1Rp=NEq)rSCWY_nQQsHWtaP(?KDD1w9
zREvPrRyC(Kk>%7eU1cYFaqw5LtB-{MtAK3dy#)S7%lSL%X$Pwg=_Pin-F>g=sFeG8
zGH-uF^QL|4MON6Oo?!)9&EAIxt4hgIEtqWPhx_Z@HBW4f$vtFI2dM`z6lRqmdH+4Z
zPQztuWw^X34)EDl#48ay4G4iWa~&b=rDDz1y7Lpdyqk4iY9<!mHOA#oQ)?`&8pqQ@
zm;%&MJGUu2hgU0f_C?r`WCEEVsXNLW81y>&Pcw?<8I&>)vG(j&wp9?0pK#AGcWP;&
zQL@@>HBpt>9}(al9>7#J)_ti^Px%C9o|$cvzCV{km)A7x)ibhi(GPY5`k-ENbHuHF
z{1X>5?@K{1V(n>viN4U=qvSeB>J?<y{*>(O!=t4;yeVrWza3qT$i3BZFp*QsEpI4O
zmUemGx`@MNO(PQG+V=Kf*m4o#*9zyEBfYrNBC$iOzYW}Uu=)M)`uOBO=SpRyQt6dd
z^w})&>#i72Bl@vw;IcrlIpEYLgmm5%<T7242RY)5CN&dX7M!S29a;iu;b)r)`cA2%
zeY@Kn4eOW4ML=39uDOl8f&{Y3sW`h-L^oh#fB*choepKPIy7P<VRg>Uedd|l23;|$
z_HXWDS5b)_EJ(GoVSw}9_EkeHYvgkPP)o4K{L`w$`PH;6PPrmY*+nI}32MVa2G1-`
zXQBtKd=%n^%CxI@x7e~<^28Tc!?Blfmcn40-DpSCmDnM3Pz<LLe5rX`7{@o6XTVOL
zLP$frknasUEYWIW0`PB2a~m$4EkO;i2y8%IM@NzR;CU=#a&{6`K)HMu=>4V0-P5Zq
z<6Al|?z<RYD0Wrv@@M?Y2MSM;{#uq)mdD4ChWD6#6j1FtnKli+c?f!Vui<3L^<J|(
z`?lO~(EH(vn74uxx4$iU${D6X*3NFqu{UwGJos(}O+%h1i&(2&g(vJY@jd!8@F9ga
z2x7*r7+><x1y)rw&qKtVn_gF!)~+9n3L=Gb&d@D`A-I0IZ$Cn!i6jZA1<GZ107lwW
z`0dW&=`QcFz>e8nXhygUKyD1VP;TmbQbebeAv4(5m5b%{l2S&};%&)kQk)#T*~!Vt
z2e?k}9gX_+_7x{?q8~KJx4*&8n`98|dxY>}X%u2zu4R44;iC=|I40EhGLW&Lj0dxw
z-^5%QJ%R!}c;US2^VwwRQx(G3q03WKacTv8WzA2k2;*QEH7Rd6SMtZF+b4_+;H{`M
z@=VbR(f4BT;t;&F`pAnVYT7m`v@U%iCv_lGd~Uif4MTpbTlTfOibZL_DuxX#7{SBW
zdTM5BnrJ&l-YBOHTr_Xfw}u4t<x~;k0RaykU>E4Q9O$tKskCX-_TTa7&~~cj>t(!G
zfs7BD8rU$3m)U2fkJ#mRZlThM&3h{C=1NoP%%2;!E2`Lbmn-$v<vmhkPpe6I_nxGb
zXG0<{>>+U-l{d(zOX#^-DxWa3K3dB6YQw6}Nyy~O8{XW$ecJ&pj%46TB7dJiC{FOw
zUFtR)CJ5;v;~nqt&`>49#3y9w<N)vx%l34|Tk9egD{`o?u#g1C4lOP1ew1lMiRtvw
z_~g(z_>F?5VoMYGB2Fc;N%5MdkZdQPGcViPNuEMr=Z0kaQ?xELA?c3HA{*$D)t$MZ
zGZCkzkLu%jAcL^y_y;{pK8W}Ak;5JaATUNwdz(oZB0tNkCz4EM8Lrh%?cV4B=mqko
z9VH(WfR~FRPyVOHLZwg?7{i^I7civ|gp$~phI}ou)&OK9@=;=&oxY~Xz}u}!$f&~e
z53(y5)FzgM0I&~H&p^ya0zuQPw$T(%7n2}<9qIAsYr5f)-$N~PY|Z?)HN*kwGZ1MV
zgaA4VU*wwHPQ@Y@>VkMt6`Jxxa7_SDS@}7w3#sPS)#81j8GiF2^J8wisD#6UFbd#A
z<VArV8R?mtD4xfA`|OnBQiLw;Ch!m7Lf`&Cv)tI`N@9{t>d7uA5C`hSGTo=Y8H<B)
zG73%LZnVu-!PpXqgG479U>+nnr+eMzddW&7ft%<L?^(=<=t8tqflwox{v;<bHPXcn
zp&&LB3oOvKYZC#CMWXXjK$knoV&%qzYIhYv5HX89;(bfU+~h3$f(_^zbpS;OBn`zh
z2O?l%W40BH1sX|rh~I6;iZDRnERUyd3um7{s6A4Six1oa7%b5SFPc0nGJS%i2~U8{
z2;t-e6d|!8F#zPUNgQr|g9oo?q#SC5jQoB%^KxJn7Z40VNvs!nkUm&Mo{4F*=uxx8
z`Fd=UowRqId-9k?xSNXB5?s^0t?8?)SR{#A!W6iNYor#DjF==g(SVFWjNd|Ex1|`|
zhrG9)?@eMMj}cu^aHK3Q#3#Z0eSij^WZu3zR`MJ*QpQo?{E;gP4}NLO%*rAdE_J}}
z+=fDjW6P)7rM@uf$EW{Zr{vn*0lXZbhoP~tZ0dmfpCb16lj9rIL@4oQe1z<@Hu-sC
z@21TeUz^vCWNlm`zWRN+h56?1t}wenNE|8gQtT5G6CU=f%!8R}<0hZpQ9OEd*GLJp
zcn)yYNTH&50KhvXewe$^{`;4;L(<fw`MP{(r}h&&+RgWJ<rG&P)=zek$?rhS9f2x+
zS=@fktS;Wfz`<2^v%<gam@Q0EEp#aT+;1lI=z0ht9Ok7@O-$&c{dGt4{27Q1#mq{&
zAQMwZJx_a(6z?=N;#`B2<&eLkqh7#MP~E3)c-o<$Vl%BmSL$GkjrBD!qE!q>u(hiJ
zSNW5igH&kZYI_1mN}b=m*Sw6BGq{jrsF=HHrjwYBP^y5(@`arLOD=wfzYc0>mN1mP
z2ScXM5y}`@k3f9X#sGcxAP6nR2SjHGlz2&Y3-Wzdo(A)&#(aI(GUu76>v(vRVRR6m
zSlz-H|4bt>v}4z26f#F(&hTr|u8F`Qql4tzT^X5~EaTHYL(f85KP?9bv`Hm#2oW4F
zF`tBQA^cvY?daI30C6$Gk>oe;$&{mn71g4VT7tbtMjXzA=Ho|@iA3$2l`0eb_9Mv5
zjl`DW3;Rs)Tph4L<D0KNS12WDLR{vu7dr`3fzZ0a>`#2?=B_DZn2mXhuAliAA^6{H
zKb47X9CQPWRd9gD9U_4cN|Vb}n@pG{zJ~-$HSJ~=E+W7<sf-s{Oe><K!S|X&AfcTF
za`2ckJsvF`l$p7<>=}uL*f@0LY6+$F{j<XdQ4J9i%`rjH55#hACzS<Zfl-sOn_M_s
zXn+0HmF*<+^1U&olI*DBiun`Kk@`&SEf#Oq`u2khm$>m4wiF3$2}nz_C98O)^ZmYB
zmw_}xo%|4ykzrF%F@hqPui?*9;mZ#yF8{a_xH$ftE;1EPAgdWzqRLU&)*WgrRORC}
zxh)3;=Uw|0Cj|A*<UR;z0d>HqoGSKaDMw*qgU(aL7K1{UJObm600;jGP-Uu{k|J|l
zc)LEE!U+<uc)HE%={wfPd`9Q5Wp_EB+E1h?KhAZrIXoV*tdugOo88OXR;_A4eM0SN
zu(*v83mm#>s^+luPA$z*Z9k>k?>qG}b82M4rDD9g!mgb{WyDoqZFsx_D0_R~sIks>
zMyh`S;5L(W8rYd;t=YNs7d;A`knxrSU!Z2L!sUp%RM-)^{Bwnviq4!K|9#+2q4J+q
zaOAfg?Z&1gHz`=nxKYWefqI$k8wL**YX>Z+itZ{OKM(sXks5^1im0anuBxrsKPt`H
z_Tht~$8|&rn;Q>1f`(u<|FZ;_P-3CP|Mp4>itCkA<|x$dn43#%f=Ib&=V|-d4=4*I
zWQcTx+mbUD6g+AWj+t9*$Q+xVNV;-n$u75DhJgwr2iQ2|e*ta_+X(<;4hJflJ4*@-
zs!<(3-ifK^Ju`hrpFC#sX0WL|(@nO4@m*m3a+~Dmo9mr;=y~&A3ZAAWnLon08Q-Q|
z%vO{b?KNFh-83;=^y}}h?XP86RL*6(_ukU@7O;RVP!*8^c8=`Nu-6I;z84^P8Klb^
zB~BKTY-5FB_Ezcv6bHGm1{(wo0u=zhnW(!6@p6Lt)ZH=;g@Gt#K9B43cOqr$1k5K0
z=~PHZ@(c4{c3O2+&;?JuxDOp2s6?5Yo2%BdDp5&VUKv-*Xi<3_@yHJ$-%eFs^_#M%
zRix?L`@$8>An*m#67X{VRfYm{H9<tH?u=oSl^&@oedTQGkS2gTL{O+SM7+7r9^lau
z>c;rQM1wvLT0^2Nca9@yz$TXdA|mWfE;YmM>d2m2kU*EMQ`H{&i0!>omZQ_)M==^%
zSe&)#`H^H66*@kI!FI{`!bD&K)S$%)o=59~U#x&%_9E2?<ATe`uqCWe)=Lzj6hq$l
z$k)JB)}}Y9Agi6m1rI*m=*Dbh0qFz+%qkc%HLi4<yO`&%<7kL}Z1o2h$kt~A)SCQB
zdnm$Nz8t`ynD~+rQeQ`<xJP@$Q7y5Y^`Yw;B00C9e+mSg<Rvf^<^&-qC51$|T*85E
z!XDx89ARC>K4+8))c7|(Ai)%2(t4b<V;!gE?|@Y`te=jW{)-W&+;I2$A)p0>tkyK>
z*2&osb47&pnaX&C)g%TUpPDkCocYxz@tk1zw>IT(MJb5$nJ%C2C}xXvVJdObEP^sa
zU{(!+EEqa876>+i4<}Fn2qaU!C%Ox9xa%b5n`&9S-C$@O?|7K)Vd!xOeT|vkhIG$Y
z`haR8U%g77+?#y)eBx$-VfEt41)<;f_6?PJ^E(>RT@kN}`wLNN<CBw7NKvl2n2N>i
z$g}o{RcF-8fPDj4Aq_!IF9EDH#@fF>vg_)YXLgWq_Mkc9X?`~l5D2_Xz!~D^3=Ny|
zTQ;p)xw31i^p9gnK%!dl932p+r{XvUFwuu+`oa$a1Ov2e^B~h)^E)h$0B*{B4*9=?
z1Rnhoe~E#Za6+@~0g6?DvI)Oi2hc~>OGKHx9GmKH!<2h-f`4KncjjsvS!KxWF`P*z
zNGe&-nJ_>cF#UOr+Y^vOl4)!okKcK9s{i76vdB=ld5vzAgwe<IIr=7!nGEGsPHZ>d
z*)d-8T2APB*5^Hpv#<2gw))a>F5Yglaub$f5Xv`eaz@Mf8=s1yHVNn-s71z{&hGW2
z-9m1Mg<Se&3Fo3`0{-y@gN&cGg8v5~oFU};1i21`bwbdxFG?Ln1aJ*g5V&m_EddRl
z4N+JH$#yx<lcb-C4(c1n-%Tv;aapCZlVI1=<!Uqv_zs?9w|QnmgITUh?h49<Bx46A
zTMgd8f?|!S$0t^oAy0colAgguF9R?9e}<z)83UJYiZn2vUQI5Tj63HxsM!&xyA8|q
zXx)$Ro^H<|8rg$Q$vK&P2kb1IBOkiV(twUDUeF2h@;@Nw-bf)ALu8RCN!8NnenXip
zg5b&9lRcH-d+$Xz!Iu$qMRDg|()@VZJ$ZP+NI>T>5<Tfey`AKQX#_R%rT|zr7Byx9
zvAr(2sQO=A08y$XD!VI<3kdg~Y6<$uHQ2FYjVxt8WE^JWr^o+mF=ptsQd2Iz$8d)+
zVpFhH-=p!CxJ+WB23s5Zfi}zG69nU<utGToQW;iiq*1|RQ?G~(4RHU}5@YtWMa3D1
z8CR@KuX8rGW<iwnq&$@WNX>;n<MGHUXGxYN+BA9N(QOe1j$cBk5BkVV&f^SF4%G5B
z-BRUR0Cbe(5}?gQX$dADoF|1yY?6b3AZPJ1wMJ~~zkFohW3$E{8=k*z(1~S^-1T1F
zT8xne@;X><QStG{Y0X5f<v*j^oCmKpRL<aSAN=}x3r)^5Mf}jAC)flw2Yg^C2^+ux
z7VZfWygevwX`xN#0MHU=#9P(KW$4S^0ShK~^%Vds0f5Jl=@C>5<(mppz-1-7A@j4n
z8FXN^hoR+}hP~V!_CT;4RDxRYhDkp}$d5O?2SEELb)vyUmx+tn#B38<iWVS1QY-Nj
z)DD0U(0)<?D@1gdlqMZqG!#F7#Er+qsAE-h$McUgmy{e)k*aT`%0j|&g5Qwc39bYS
z%9x1P4Z?5$w*phMDvKAnMG)jW03=Ye5Ygc^6nK92Fn!u++S&89aou^z{mJ%k`7H^6
zYOKp>7H<I>T_6aed0AuOWX9Lb7PCPUnG8=4FV(4=c9j-(x-+%@^b`^^hi+~KZH7g;
zxb~p=KO*W?{}bSDRBJR-4TK$4pe+Oy$9UPl;FHndL7pK&Evry_uyK$3(b_BJPYMX&
z9Fkm?uo^DJ`T*y^NDVQb=~5Z`X5Jr=M|}@^*<(QU`e@H2xe;Cu`79v@fUa^F<~J3k
z;#G7<!m%M)XfUcNuy~~11$8J{n)9dMcuI-arj#99y2S@M3%EiQD(hnv-Q`8(=8KzU
zP7K+_00W2{0%mR?FWw(PN`vxnDWE@&4w<`2P)7-o3w3-AgP_X8t5qeseUwHsvkLYC
z93+4~*k@RDS=Tv54T?4{zoTVUDMIpU0vqC%vJQ+q(4D<P8gaO=ryNia&S{s5cQJXG
zj(8qD5#IA?2pPp7@NQgn1t(&@@?4V9{VW*2@W?@F$(sV6NJp40V2&b68CeotHo19u
zRuCfFMHS5L3nT0TLM0;C@7z0|V%Mv9!Dni&M7p7&C1K@*e{L>V>vL+6{vwDB9D6&s
zfB6EtfA(Lw)#x$!?q<>Tu-7ra_vC5`oqTA&;nb<EPqG)DWeW;r|Krr{)a;vESH3T_
zX&mv)se5`k*B~)CIL@J{>hrUxya9*8^L8qB)zR_6j-MApm@iLV<n09;zG>jkM6s`|
zcdTsR%Eb#8pl$y=vVIjzVBS%|gK-w>>gu!zOdycMP*Y4@II!}BRLFT0G-{q5wz5V!
z=Olg4?%f~Y(Hk&x2$2O9NNm)tSD`D56(FhxOet=DZe(6nQPB%Zg?FB0tY+VL6uu$g
zk;L$!&F;^k`wjnIREz7_Nez&4arEepfBm*c$0sR;Nq?Kv``Qd!@(z*`s?Bh#y8Gqb
z>?@4`8t1}u?xaHZF*(IqDf9LK2nb|QMJym{kKjS^fF8+Y2<AQDI^&2KAr4K3X!LJD
zxEu>Ti@hjZUGuOt<Ggpt=_TjNCHeu^g65s2LNF>S0V-#w<<;1sRRx&jlHFmJMGN(4
zdU5$SB^Dq=rBUzS>*OETXWvw#ndN^!4Rth<Y|tWzJ`Jda^=L7OM7zDw%bN>k0PzK?
zwA922=BhO2=QI=`7^OvEHz`2Z$LNDND#40}xae3Qk&w5Fsh9;6?N3QW2go%EL^Ag{
z=sH-Pv<RrZ#ARn^9}^LA4`Mb?Xnn+NlBbFz$pK1^pb?4;o0r=vv>|{qmVKcanNvN8
z#x7yZ1sH<98(28^xa7!iZ+=k!t`*&D-Zez~wueKK+Y`@)J5fC?s;TG=>n7P|0SP~*
z*Z{3iAF>{(r_utf9Va&%JbRAWvND*_RfADn<6xZ}L;B`RaRIo%0m)?uMAaqC#DUa&
z3y+XIk{~d%9HIL(4oC9l+0tyjOG(QsIKl>Yf5wik&;F=B;ihtI41w3iw4gXcfkzvE
zUt|rq_bd&<q>Z0)Im)YCha3gJ(sA1{Q)*iZw3U^WJLjTImNrZPqNWbMy;3qZ19RUG
zsvaG!X&IQb-UcKOC9t%CuVRWV5!(5-VwlkI+L2dDR89%%C29~8-x1AXhN61&eBjn_
zWhG}Ey}G*E+>#TEnnTJtn~d>6PNxp}lzOnRqKHg2=DgKH*5CB-r$qF+W7cmp#97A?
zC-oDZIAw>Z3H&z>R~3&f<JG-}>(ExJINS$ktBlG^6_LdT+5_e8m|uKF3U{Ms3KcKG
zF?w@TvUc^IwsUn49o-VbO#)N5DECe=0@HN_Y$cO*lGQe8-T15U$CnjU-?2rFyySLF
z*4VoNssGqUVZEuNw-?_&=Ii4Vlb@fjKBSzetM;SrBGTh}(37H*wDSfa5!IY$mkeoK
z`lpG(<ty@R2BV;kXbivHT<DUAAt#}T!}y>}NpubiXGdir(!zh??s)Re<ZW?}7Gl0<
zERg2<PZN(+6%;}rK71JCsj}D^Is<ZMMLTCQ26N7&llRed_{i<6)nftP-r*RUAUryc
zihvd>*a>5IeNLKs+g_F@01+G8Cq5Ocd)$)tFVu%-u_tI(LJHfI8-y;ZFny*6E~}q9
zb*kP5T3H(Aj8~TwFpQjzaz`kJnGGUNN6E7m<$E6W9@Mk3JHS4CWwQoD`e^CUN?Ve=
zPA<XWRz-RF_PWbZK#Wv(d6TD`7yRI)ak=du=PO-wRxDpG44GxBZ{7LXuLjae5Kbg~
z4)I3WdQrnoKXWBqVDa5G{uGv393t9iG-&6)=<!o7Mv-erR(#JoU%ubkA(40HzEn}4
z*AAI+lwd`3i$G+RrQ!Kil)3=4OQQ4x)2YMwu=Y^fIKhh<nA$_s@jQ~k%iHWawoHsO
zfHI$<VGi_j4E`x)s>rB{POYDQH>tVle_XPI&fbbz(7lpcTeb8J3<lHd<m(VVBx83N
zW8Zt_<b<bKwVYY>?@K4b!Sye~wFfU`xaxsR%_%k@JwGO$0mUiIObdPIm3?>hmRch3
z1w`o#O|W46LS$4F{o*{@nS3e4tV8#~OZhNQKV}wMqj2@^nJtm;{6Nl%dbDV*0jv~k
znl*TYvNLK=cvak^icqfHsiO18Fj5&0E;+8{cha4v%y5@3BJyq3rKJi`+m9#@kHBCX
z4L#Q{G}@moU;>s`RncKZu1LvXwiO+wa)V)BLc%!&H#LZ!c2EP5*uefj3U!5b2^1MR
zt;a}|wF-WK#eGtcolYAYJ6-296uK=K(+#GXuEf%KBt^$o52C=sTL7vf*~nlLtfpST
zXm=uIP4)c@u_23k*T7U$VVj5FkNy-gVAImacyd|<Cgh042VsIBNO-UxOOllU=R&Q>
z7|FmuYfc(W+REa`m)QrP5(tM73K3PzRyj#(q=^#{5RB@4Bms3(6GaF^UuAbcS62_&
zV;>qV3<F?9jEXSz`%Y5fjL{ai+3#Lba&^l1SUNP!CLl10+|tRz24e{$LD`nSbLS3f
zs$ozA#bNSwk}-cV7WIUzj7LTU!>~ayJod#41%GYZr{Kx&=#)Ks_5w8Te0_aY^ak#Q
zS7N{!rXqyFg$WezTMvs01ALZ-z@(!eW%!sB=Z1-30@32BITYyNf63FDDB4=tmn9|V
zA}COC0UAYVz5is&!kf<gef;?@&y+pYgRmyn;6U-QuN<g$o3rwmwyi$Yxv~v#YjcsC
z8|B3j4W&$vo`*GNnYvd^QI+4{d(ZGu+=-t(PizCViJD>)5bJ}VR)ao^x8Nfme}6nS
zQNz;5+eCWaCz2-QameythdwE4<XJ$4dHNBV`{R+f<z->sP%N=2(jbP0>x{zyQOOim
zY=dyX1@jG9ZqW!FR2sFcJODUHfvkOU$PQ*M7aWywl$wkX1T?1^c)|wzJbfAqxwSsT
zZQdOt$tjOYI%@!TOrR!u8adM6?TDRAPjw(Am1JUQE*-W<Q*TT0K4H6I2yEjQ<iqbc
z&HF&UP_nd4l?R6yZTqK5&%h3=*wcg*YzP)b0A?$ZmDk<dJBX@i4faGLBysCC3f<=C
znh{4pfhq%Hwvf2tTfe+4HNicfA~(!>3vrMBti)&-!vK%rMl-pl)n8&$s*UkpJYsjn
z3390sA0Lm}pb_jGDZnSL$ZjeyO&2aU`r59rrl^C*zpJ_DfHnyxn#Mi|tL51ab&X9^
zRDvyQKkC{BR2)jzeb?5Qbv?vl-8ohJ_7!{E6RUfb@F~hpv%mwvPkB2>MzZXSzF*Q7
zSD`m;%Cs-qym|AeBfndo1Qh)q6xliQxhm8?|GIJLppL-#fcxUiLOQcO%x3v|0okLc
zCgXo!t!OyYu(#bDgNSG}8bxL9v$Cox{fmfJ#`i57-hN)%fAUAj^YHq^kL$x+93{DJ
z`aT@H(7kD3hs>k&>+`hq*_I$j+ult$faJp?nR#=a5lR~Q9guE<yQBJAiSPQ-=S>~#
zxNvHPoB2b3gDOdx%~Ed670so>m8A{u-~+I@8pD{fwX#mOeQ(<&@MZfSQ%TY__3Ido
zIp<&n2lAIY8DCLX?Y5gqHSc0xmJh2ie0;x?`*Hq|ub<yFStm5xHX_5Fz<ii~{A)Ts
z1No?YvW1xdVm!3cmsKLR=NbB#a^mh9o=3CHrj3=sM>Nx}Ro24Wa@bfO`r7MfT06PJ
zUIs>fbkq`uH6nAR87@*GOIEUPE#8-o@w6On?_owLqunHJL*kZ$tYAATGE{OPRPe5{
zpT6CgAs`Du@rPWme*Z|?c?asEJ$F1>dFS9q?r%xzX{SN5&P9SwQIR*9gKLy|tsOh+
zF$$aA2u0lt7#aPmSFb~3@$a7!E-yDm85&{GK!Bt}DjCBJu(RORU=PAq#72(bPHnNO
z7k%~|kutb$ULZLZ2@l9D4He8Rk_B=E+PJzS;3#281t;nj=|n%XJnP{>-?wrC!=u27
zEd)VeP7X0}5+-Li^X=NXgmq)XH{Nbgi&0C~$pur5Bma@UdVr{Dz|7Q0GMGzmQpD3w
z{dM%HpML+X6@q81_uN?9@>@G#T#*AJ#e`v7s`a?$NmMLCm9sPmNSEKKXC3sWDa<TB
z7Kv0v%pN;*90QMxAw$Vku;S%f6Srtbc$ytqOINZhjIc<*U6U(>(r52PvcApshZ|4<
zX?=CSaG`69?JO!p4V_+M4>Xq!<vwapyb^G&YZ8<`gI}RPf)|a<rTJ1JLY5LjLdosj
zh$psZF<pz=Sl}5BdDFOw`x~I_U6u^uwe6<iQ)IMRy;JyG1u@(c^5Row^C+g(Ae_(>
zWB`O6fb;d3otK{Ll>YjYNQ@6_RZQNr1F>hOsoHfH6;)tyv^3bjk`Ex1u15ec0aMwB
z_6j<%A>kXJj{5rh%hJF{j7FP6$*|?m8)SQ#F;KKzV+WEeGO!B+<{Cj--9)X0Y-u_G
z{U?K{dZ=Qh!^qnHqzU7TN%~GN`BiiTOtEAf0VfJW;MoNQW<`I90M{ee6NZG<Yi-sk
zzV=9{ZqUBAGxxsx{<?MA3)l`_&|0VyJ9?%awo#ME`P*O1moF#NmIr~ZA*Dd#rk!W2
zf*MeME~~MN&0TlYM%H=*+s#AwHD79K!&xI2rUY5nQuo%ddIZ=^F*Ro4(UuR}e^$uY
zuB-d$Q$N2@Rt)aD!11ovdu2=V;x%kZjoTNPTUeyHVm^ScznW_d5vARkyO>;Ns9aj%
zw8n;_qCGYG!v9QtetSTi%e(IY+e?ct8^3AzMPdo503c3=xT@-43Loj`Nyi)@DhW4*
zlKpSrXJPa>&bBYKC_f*cJ~-k!?D7Ha%$S%nM0<;3h|)&+`}YrJsI2FL#UgI;w6zDr
zqCNl41K38#O5*k8byP!#?7dc<JX=%A@?S?~Q%ePJ99UmEB*m$<rCvKG;CikjDmfr`
zaA1@-$ofK;=&yT6k@eZof)Uh%w`XAt;HI(CHa<*f@@j!FLF|8Ch?rF+Zs~;N)2qe(
z@=5K&nNtl=tNvFa`)f60x!-SHy=b9_Mpk-yeUH(vi+@>wL<8!D+p|tQ|4<};f4|BJ
zB>!Eu2wMK9HHr~BUM;JhT0WmyTLkT|7pwv$Im(T_=FA7eRnQX}#{#F)+Fho!wGji`
z2+ot3)T;$6GN-LuxD?M3;*j~`{$&UW%XmXtyQCnbo`6WKAM_dpsHr(l4JRU@A*x+8
z!vMLT-H3p7Td+_iTxacn=0JTtf##&WAObu1R8ZJuXn}cM%78u?2SmkiqJQ+&MWVd_
z$vCHE+EJ(t1!RRoT#s6_Oj|@@hUGA%wiZj9<B0D5U(W!>H7X*a5Bscsr@z*phc969
z=I{v#c?zV#q+(LiNoaH1cNGF1-v4=9FR)1KSBp1&Y`%s;kjM?!uf8jSp`qH)PFcQa
z;mqf|Ji<<sCd6F;m{h_9xI`waB@|Cex~2D%Zv-KC9+-HIgT@#q<wTu+DRJe^KOCQj
z5p39i%>Opr=kz_BZP`5+b1Wl4nISwo0)H%DavMMl@-#)n*)WH&0U3}4ZDFwNZs^_>
zcZ)HhI)q3r4W=OUS9L8adRKIGYbe6_0Z1*>0ygCwGtsF?MWVA0jZuaoRdmyYp85|o
zP$ZoZ9}Xe>QXeA2FI<asrDwn0mh)|j7HM2k&nvhfnWF8+oIqT4KFI2u{F8mhbX_KV
z2|LW**Gs`q-w^x=S_HT*>GV!aMDW_--k7M_7?#0W`JZe_oSJFgk%Tb2(J>(`?09!~
zx5ykKSwoCLb_7T!Z2R>hvKYYupGWSO`w$T}fSetMz(+KvkX&J$k#SPo_sr9YIijIb
z7Ax#`_9LlmB*`yiF@`Wd6ewcHIPh{qfLMHde6^U*9*4=DZ`1z%TO6aR&Z5PfiUH}K
zx$j?GE~Zd180qqZ2A0jZNf_;N5OXE~7l;uXt#U~0nJOUbr@x15H9wT{$Y2Qy$^UDy
zAH$ODkTAtzDrqj-zXEL5n_FQw?ODBG1O=ryZ+USl4s@>-`F#VPmIt0Df}MJ-_XOZx
zd3k1;AXzG9wL8W`h&_hn0bp1(LO4IrS)5F#+(|_>3#(tzpP;!ED&&rB>hAyatr_4-
zyVU@l5Wx!D?7r42XP{1m!yO)6SQ~t>8Mpb7c`A+DvF~}zAY1`R{KoL~8U>CvX-1|-
ztM=+6=T8;jr(I^du5D6O+Kf2%JV1qyZ6*&u&6Mey#G%QW0!DNi@~rhJJnSgy=!ltw
zAR;BUO6+A^D9PQPE9}1ZhonIjmkY{MiaZjix!3@^7K;<jQ<>j~nJd~4rg)NeE4n_I
z;^1+=9D}X7tUv4Q);}Is_ZolaxIgQf)BX1oJdMSFeiK*i*aZ8dk?$6tezE(mMt)27
zH+xCNske`58~Dx~J!S!IQr~BvhJ-~#M7E8UH%!O`*O3WQE|x~GXQmtrmQA;w70*t7
z%XsL2bnD~Cy)R}8pZNLF`FiZFQ(+%sUA8`XG3O$sdptAz)7%@6CbL(U_HC=)_Qe1o
z7A=A_q?p&vU}vY0Oo?pT&o>SY*f<Fm{<uP|C2>5oI7JISUaS8`JUHHBJxT-5AuK(B
zdQCmzHgr6S#UdZi@LO}|I12*<D{eQYKO<NZ2fJDXNCXq1m2#0Q(<qVj#u+2=X)bWG
z^LQBk+?2?cG-B%dcBQS>kW+kjk#uBh12v`bMc=-dXPc<w(7l1Y4>TxXVGKkdq3`q4
zG=sS6?JH8cPzA3eaS`5D401(i17ob(9pV~SZ4p-nsoWoCLQOB|UHy`DRRlFqZLb9k
zw=33iwFd9(0^euP5^z6?PoF+5FD*sVOSTU9n080dH`1JI6AuFPTFf*TiEE1!yL)u&
zA68EX{xX9(-TaMP-1-czNxQxTQ?2xp{C~d}^Y;3w&a4w*y621c{W&Hs{)rj(T$1~I
zeea9$Am7xp57sGoF&FMADLWHCefyDqK+>}Q$Ua6`_xIf?2Sb~9>4n_o9Rl$JuABU?
zm-SYAJKmT4tFMldbH^|sL#O0K<W9%lz@TMur8;}0iUhwR6Jm5)ShSv`*7us(m^n(V
z+u2<Bk@jcCmK?(t!&0k{t##jOEFmu)54F_+AUCQ|@@<`=o<FaKVHHxd-%f0iv{wMe
z@K94%CQU#VnRy-pHMPz;_z0qJPEtC0vTicwc9!ZrS2zQgR1399<AgMuK~)U?Rv|Fj
zYRJv=vp*7DYOdE3SLnKXecb-!8xuU6&GUvt!M@cKX>LU#ik8>SM^KFlz+eYd#MVw6
zjt!6@lb0JHY^59S3DA?|tT>}>qI2}~j0K6l@chITEwdjR9sSc%*g#LkEiE4TRTv4j
zu=rSL8SJG|N1@9A@X*^W6OQ~L?QstF;jwd3ijDr^7cVQi3@*5?ecyjh@pJL;p*Ia;
z*Ppykr_XbHzFV=yRrmR<+&#hKjjm(jW!($Rg_qucF#eJ5`KPw~-bb?X9vo0HQ1C}j
zh%U_<-2oyw9%!IA6DMh$nN*Yq5s_r%^ZlsYXm<UhlUJ`&j7n=18cAZ2?mD7uErQ$;
zbp?_RgL7Sr+e`-WvmcS6f{{^olN1>aLLM&6&7iNEj^aprLHC5CimGZ9CX#Bv+FIXU
zlW%xV6D4YQfr?rJNRtx+B=B^|99zcwEEG%)DqhJ2fZ_T9QP8r@xK_!b4IXZJd3h~D
z5k!@|Zxe>l_~uJM0>or$C0tey;RZ6S`!6sdj_?5`AraIrN;i9Y#ICxYNB~!q?F>=O
zqD5d@j<%YPLu8wFdJM)~@E<&=gdUq(gyWnWzNy}6VNAZ2y7MACd-RM{a-(K%@>_(4
zm)@6PQu;V}AEMbw_SazryL{$|VfZ1`a@s7Z)$(h!zWOqUBQQo+1NZLPqj>CCMaXS4
zAHUol8vy|U<zqgLHJxGMQrJ$Bmn!RCAK8#&<Z>`UOb**ESIF_f^7V}Tl?HqE?p4w8
z*}tTsyvuKFJ7R8S9Yv>yX5xSDz+9ceuz)(fErO-83L=vzwZn?Oe*Jop@;aV-GlKpB
z0dbdJjE>L18{O#sc1_&6@A2!xcXIu7tti9OQR{c}^FKJZwvl%K{(X)7YWqEcf=PC|
z4{dWLG@|2HJYB=SFSKTG<Ax0+EzL#JM~Q7ub6C2XYd3WUWCW8H_Ji@yLqm@uQ&z(}
z$w2zU(RdiGG$b>H<drbwj0;e+%>@LtQ$=28E0wefc*L?V{OcyRRW#W6qS^1F(p5HG
zXx#ARe27#5-31_hE=0j6P}@}@E);affrJTkFMfbl`Q~Z2eeCtfiN+BP4xq>81KFK&
zc^@7(-=vpMCT1c7_2NH*;U_A9I#co<Y_xl|dR@=IxBy@7`O0{3iPvX`568(@Vleqp
zj~zDgjL&z=l`c8KOFmrAid>HRLcID64XRv<BdI8?cy)~U;~&F-vs7vg*d*Okj0r^k
zgGdwNt(fcN4;`aj(GiQ@#-T~%{t+31v10c&{~snn(x|m)#NRQcvgK(mV%}Yi9G;mR
zM$mw!MWCfBys8__qs<d@acqS%B2U=FUO=D#fIi9eP*{&c`T-r^52SE}!ki1-E#Q9h
zpm~k(APN577sg)~Kfw66?VGMK&<7VT=#6R5RB;%cK*epWFgIot9KaJa4oP0K2ClS*
z>eE37^zRFT$L!cRR3Gb2>BloQJRT_*|9qgY2}PTew?2o@t1Nz@Qg{6<*-${0tN{iL
zKt-?-)$A~gLyV#td~R-{*GMtG9&7`W#vy$DF=h_$(8I&=q9FDzsG309!GU{9<8HN{
zT(I@+wogMf;dhY;Y<wDZj07s%@O;mq?e2U%tf2UOhA6_f2Y<gn#9&&Vi)^Nc;Q*Y%
z_=t{{Rsz|SG;4?wilqJIXKhuHciXY&fbS)3LIEjD6;St!ynlZ=@#18?08fySdv++L
zJvJzA29r|FEekvnpBwR&-Z;dy%-wTN&1RRy#KHR#)_tL%p%?+mByc49dnn8<UTH-j
zT8Qp3U2$$nqltlL0~1{abr^CyUb@5cI@&|{1OyVS&egmLSXd{wX>v)N@z}Zt81#A)
zb?91Ps76{V6C)x{qBK&!H>-6!mE`r|OFm#QBpqmz4Hyn5P3LK{f?k)|HQ?qUyAYO|
zdVpF>(gKiZV-Y07D|-aA{Dc+WsEU->pXk|?EY%xl7(fCG7BC5(U>(Zf+m~K@d!a!F
z*|ztfsmUr8nJ`S65dL#z$xIgFRE|O0LAo4zJXDc36Cj8;*#0;ku?iB2T-%{I7~R}g
zHZ4tl6c;?~TqMXFRxX)9GG_?5*(*F?Z^iwqd~8Ok%<aZNb+huyvJo5;*bFp2J;6H6
zet6;?cenU5;%F6R<&!S?$ozBX=NOotC_vIDqL}yH9x0_Y_~@c8Khv&IcZ@OVM~iGd
zf?m?;FYL%fNJu`903{RM862qMo!2oR|2=Zxi!(|@W~!AQv6q1&(;_e(3VJM5IU{M5
zhA}dL1BE7ZhAtst3&EYN=b2N+m;|)U&={VT7J<A&CMX~*rSbH_=H)<V(8pFhysMLM
z$Bq-=2z<aM^F=`ms~`@q3@KI(y7$9S>50eNuM~gi_UYwcjtKhGO_~mvwq`2=R=fb8
zMY1(RRD$=P|A}9)d5B>+5kXK$co!b6nQ*|e>&z+y2_ep-_sAPYhlY%{8C(M`0%@yA
zM(gQD1)G`-6zT>^_juQrZ<YHoRD<d(Q}Zr9G0vEC!}|4opr#~d=o~xtSHwppV>H|D
zs7%`HH)HghMw+PfsoNBr{@POn@Ig{Lj=l#YWMYn}t&-hJD$+LYc_`jC!1PR@iL$;)
zhSZO329)<|q@N-05KWWhKGqJilGICS&rjTCL2u1nqAQDurQJi#o$d+Llb=#(kda*2
zeo+J(>$_1$ywF`!j?#PL{-rml)O%9%vsNfw8Ixq3!DIhv!4XW3n*kkShrxC%4N{oK
z{w<*NqmpW>U@B)AKd`$OFIse9OnoA^4WyJA)ONRTG6C)!iYVzhf`#m386u}#5D%%R
zEo}Gk@hSCP86F!G^Uo}cz07uf8Fsl(gm|=`$v>FBVvLnRQa!X5=ERUucjqq53I=n>
zyMuP2gucH(jOw*PliwZ;PjkOqx^LyqojXauf{5V)23}naLXvtMv2+HSUhJoxr8c{7
zs}pX(z*<ubzacRf(Krds4XC9<n_~sF76lRBBA`Z%{D9$~>e;{fXDtT=?%}>|KzJz=
zmO};x_tXDsDNj8pJ~ge;2cuYT?b_n}hU6-CITRF}rF3s6X|RaqY?tmr7d;jOuQZBW
z3vjK04XO=m(~&3|Cq8gSz6_TthwA$o@17Y``Bm<huLGr+f%CCJqxf|!&;xQxhK7cK
zrs{t=i69_^Ubf)Bhhn?*qcbE@{?O+|PorWn3)Ta0APfQ>Kp09_wV?q4wW`?c1Ve@%
ztF#i#Fub<1j*ehO>UKRx(8MN??_9@v8nu@kz+5x3KT+I1MOrn7?8U?5l0`#B(p*-v
z1iaa9o(x2=3t^mOVzddZHn9X9iV0ZgjV)Ceil^u9>;_`jPAcg;_BKincgKi9F!H!-
zPpmnjY%YPKFgR7u1<}TPx*^AL!l<R0)cMf5xpvGVxiOy8Ec+N~TB$D?T&_iAE9p&B
zNMQ%HiVETX?;rjtsd#fx3*jrorMyvd+u$F*4`o(_eGSM7N>5cooc#BHeGZs2DFI?{
zH0L{{4Gs1F0?ARF>i+&mGTRxh_P<zm>n6W8__077{mpXwcWJf&vB!H+!m|^({CbgQ
z%aWV#uKaokpUy@Zq8?S4TA=+Cux@D=WD{O2^HU)VDDnx2qyIF9H%~N)o+<{R##oL|
z2Y-4yYsf~o_5E2)2UL4a^Cbhwq3GauzF&Im5Y*Xs?k8gy2U*>au)`i?giC6_Y!Tbd
z(?+T<TavUT@&<mM1dt-l)avIcZ_?i$$_#wp(o4yG=uYk2dVuZv@?X{ER=y{c^F^=j
zB`sw8L+01HvL9Y%hgYXsZ)Ur>@mD?d<_ZVN;FJDPKUt99@^eT2=Ue&@clUquj}Gg!
z*)-e@y64NwrT@&Dl$~|;b(kBOx&^sbzYST1)~_h)Tf|F}nX2VK2CVvTH&_@;fBhcw
zVZ@&Tf4RB4+hS0*&8dvT=GbgAfb#2$CpT^~Y|7FtNpxXVbt%-(H!dOtw-}7SEgj15
zIDSu)0f4&ycl(y#jqAiWOV9n0HR<_ip-1)v<xaJ@uF>rU$&+qEddwCJWAIfphUULJ
zuM)Y=PH^QL1;yQwjs_iBB=sxdjV5AsAI|PS_3Q1i9a{fy^!b0=k3M2Gi$kYDMnb4K
zs1^0G)2re5#2ZZ*LrEErM!r1?7Pkgc0xz>G>Q>)BdQ^W|3@`V&I%P|r{eF%G%Xfwb
z+kay)M^A0mOSzowsH?1Am~i4=Y>8RQ<SG93kC*?cpulBc&>qtgt8!^qXuyx(7cE?V
za&!1)_GK}<q-fsWz5zZL#tLtox)qnAn=o?tucKQRG`zW6-5WoZr<FgGNb~XOit80#
zi;}$0K=L%#E?<923<u+F^CqUN+rqeeD7c0^c3BJEsO_I@mL+Em<@-b#mP;Dt`&GQ-
z8Jb8xH?>HR+mm;Iz2XRW<Dz`zRa?S8huv%(oG7;%XD`<A<&ENM0d6-TvNABrI8({9
zL}`$zOgql)`TFO5`g~5U{wLg_pk1RSu0O1L<(`?|u#(Q;bv0KCI?_)Tshq2`Zm<gY
z9U*tqrl6gQjO~!|c^mD&;_u?i@DL3c^su^OZwVg~Z`r$R8ndfQE37JiAcOuK{*IS=
zTG7iG_>xXi?R7l?eyd9M2M->otk-`S{6h1}L6yRhh<dK@=<VmJ%i>DR2ntr%x0jEm
z`N)DFnPINbl8TCMzcXRTL%KgV>!k~1&DLMY5n3W^JeN+>eH;>M^mUW5u7IFzMUI3o
z<4XGecbcg1fD=fGMOxV1Z8m*Ra6e$guI~+!SF%E1?u>TcJz041!k6H1ALxG$wrxTj
z{^587tlEv?>6{I}Oja}dFRO&byZgU?Bv0kP`Z<_~vF3m%v>enmZ}gwO+et4p3>dZN
z^PKt}{mFNWEd~cuL&oW!CWF4vrBJNVJk8?Uq#t*>zdZejkm~|-+4AJw=dDSUlk|4|
zFGe2QCxw6evH#<KY(Kf_0|yu8NunYx&Elt^#;%3}73LF1W9&A`g4KZM2DDE8zZA88
zE!}iEQ>jmt6%};=DU8~XLM%wsDbOJKAL1XBK6cg#bG8-gtE1)%nX6x4@@VM!O$P*&
zD{p>BgOdglwJ@ahUEl4&ssNBBYKWk(ysWGSHKZ7*TE~?!$#_XZAN273b&TtS&9hwj
z2n8WVmM3i8rvQ4VBFq$v>PyNIV9;by3_&QF;J&B1$uqiA8oQ45$K>?DMNgz-vT@H&
zZ<Cgme)X@vcv<wvH~J2))iP#F7yh+K^;guwCXz9I*nTk0g<(s*fI<#R3H4pJga|{J
z6Ai#r;}L4E0{NF@AV{gU7w`MZ_p3~Pl=JvY&AUi>36F_pP3i~niG=iJHqud~%a|G=
z6K_euyA4&IQ3lf{X&w<MLLjO8Gau2F5KB~<Y?5?8eJ?d~Zb~HNulKe?My&?Eo8q?~
zoA_9{Z)Jvrkuyy>*e8OvsD9lV&@8En?=F5Fi`~9p;?0SD>^{=v>?@9N-w78OIf=(L
z%5~&j>UI^bv*(W3j<HG*FMK0j$hO}AA?%joJ9fVDay~f}Bp&<tM0AZe>si-%#^Y;7
z{yrBv3zZx5>)y0)x-GqAor0Y659VBq-uSfhFRv5+s74NKq<TRGtGsi|e0TnIDQ(t%
zdRzav!L(h@c7u0eJNxU;FQ8PD2nwJ!30g6y)4Q1}FHeVxNet#)f!cwbWy6LI{pkD7
z<93_1ASkq_<mf*@DF#dokW@CO>dV%b<f5QG!o%i%IeXWq3CDs_ZjtsEjoN{h>5T_X
z0+z*4qzERz-!HfC%HL6jxdUs)u7i8_KK$MFI|V->`73t}b9ae9$Pm)t_6%@Uuc5yc
zuGDCWZGmIeNDgm274iVUOq+bA=(n7{D4y-juY1F)d-Zg!voA8P*fd0c`;9F$<3_dE
zYEHm0!1V@zh|*Evum)L5BqtGoy2cdvN__;BCrLD#Wv_R>^S~6{kX+C?pZ)CCV`EF-
zzbIcOML-r+)H=}O#8?FlH2Swb3MP|7F~|=n<1QA=baM)_2SLN=<&W`1Pz7lJ#c<W}
zZ8_cSkC7stk?|B0YZU2B6X2g2R9E;Eu;0(u_Y{wwVJzI?#fveock2mjS=W~!hm4E}
z&>L6g^3#+LSbeuxF-yr@@%ccoa>-!;$G$xJ5C2L%kkf6SaO>7WmA{QVYf@V+bsqQx
zqIb=r^03IG^<BSS?E_3T#WL{m^E<so4`eQc4xYDe-I^&%7T1Cm5zwtX{|_#V6<f>%
z7RxcNAhs@OA+<}*7!LF&Kf0L}5O-q=<S!+ZEAWE5?v3r~B-TLGv^nC$-GSir1BVYE
z?$JXI%eOnm>G+wfzpvHKGZkIyd3ww^Le?L#zx1%Gb8`RbmQ8Kz1E@76bsOLHiJDqG
zG~-CqS5NBL)H2H67LoX{rn339@$XoGQ|IiP&NURbLHSJ%j3gtk=?Dyt+(SiK=pQHD
zU-qH(&JKH(&BIbiO&o!+h+O}$l?j~-Q?DC#C`7<6c}48fee=u0A8l#q@%)s?Jq$8}
z0_n;Nf8B=3jK+`&$OUuO=!k7s=~{w903*C$*k9E1j(^Xd8bC2NXl_13L#L0m4Zxde
z%u;0i`4E*py~DnUF)UF4Y>5_uGJ!G%U_8wEie^qXQV&kH&^^SZx_kWvu!|GBk?R4U
z%5a_@ePRmWUJbkkxdiT?$2zJ>@A<8L02D~nY{tI7D=jVk0C+havb%)c-&+;L2Y?<#
zR%>)dUMIxRj-sNK#d7}Izf9kU3(d|iTY&O_x}RD$=!tY1HqK+(9^VlLQ^A8ry0GjQ
z(#3XE*wpn`P6+qS_upX*c?tj3Va)#>PaVP7(J==}?w!26pf|>r?1;ZJa4+l9zTMS|
zof-FU@yRJ1`Toby#L8(V-}$3^zh4T7g6q0?Enqn>$(*L0M^A6oi@ltEP50c{vowo(
zc8}4BMJjsI#rwjFvQ&R)7Ct$&A5<iEkA(+GVuVsha&YyT=oL$DpOue0{O-~z^<SBj
zYmw9BssE?FFOTN3ZQH#SQX!<s5Ji%i%tM(nG$0{Kl3yZ`Ol3}r%p#=$kuqc^qL4Bb
zN-_^g#zZnlsrGSu-sgGW@1MQ)+H3!@zqP)#-nHJR^82}m>$=Y4JkH}h&YX5mx3HAa
zY@fXHZy9>Ah>IsLCf4{|dVe3^`P}qgC?s@$<yS8MigFfg67(7`EOXyl*O{{lk;3Fi
z4o7*Wa|bFo$L2(47R}dBdMYQRQRquV`WQ65xQ`Wy-_Z_ll3H@!mkEJnOS^>8_@O;3
zz67somL3X~s&S62HU4>jdmTGNrH-o16f+&QU0LdneLd@aYkru|dVZLZX_J0~Q0(60
zk{=HR@b{mOno*dfS*iUsRP4u=t!>|*6y=H|3GONxX)b0!%?yL!b>i#Uldknlr`lUs
zBmh5!{|w{PHs86cKHv3o8pg#OH2sVa5*w?{LpgFAA;ie&0Yb>^l@Ba;)2Ds5mkhJ3
zY|tLONpY|Ibgt!V%Tc2=)tI69Gzcda0V71jV~<8~k_A7Hw0U;XdePm5MiZfzqVMd^
z8r-lPKmyd0(tcVUjPi;I6A={+SFD+KezNpf7*wz(ck*2lmQJ_QyUxtatTzh(W%V_*
zy1JSK8Yn(~`Jne7S(JjvUxyt*{7)A3*OU04Gw1*2IpEB(J@CI(>SYx<{A;N>tf%_+
zrxOiFB!!PUTZtpI6c|f;*CfmAp@Pe>AQRo=r+-cJ0m3`BzlnFp?%l@`nvqD7%@F9l
zeFUk2?F)aJFP#Oc7(Si^T|wc$KjJ`L8jab4=>~!i&;XKp2UX0!8V?b8W8&jQo23g8
z#J?h38yEfyh$K3knW4(DK4ONs_WY#8J8RAzbdy+d-wIt)!fp1iDPo`=01D6*lmSI_
zbPFi|w0e4!C!=Sf>HB-y5vaE}t4h%@7Q;`9w?Xk78%7cCI=>G(WwKKKeh!lYPyICO
z>+7%2<|NA8L0wDN@W_$dun=g-l}&IEw<tA*j`MU&E$zC^nZfI~w;kD+gtL6h9wk+j
z9UEq6IldpU-XpZ%K;`^SdW})-aQ)~y^nVGEhd5|39OA)^sUc)m1ERcKkRl>Y-##7+
zedux$qaMJxEoJjF&{m?tx}W^1Sy@-1fAf+cg`UmRx@3@HJ3GD5j=#^$DCh!aAH;Bc
ze`uOShJwi2^=`-MX)lvU%98KJ7D>;tiN!|=F)^%eVP~Un-b`^N&-m9H#5{HykNZe6
z(P<v(x{Xr^uk-xGVq1qMh^Xi<zpV^aTp6xbGBCP-wfBOs$*kbiftFglDtu>rVNASh
zNG9cJ%i(;!h34+pV9-7d8ZFYs-AoLz->4Jv!;>RkQFuIB($i}`Lb2xERM|=TbJ~iZ
zl~VR0bD2{yHc_)!A(Ve_w~TQD5|>Ro@(q7%OWW$TDIw-__vzg0LgrFhJJX+)BJ?FJ
ztq(Ac^9vatVL1P2?)Da4tf|cCHFR3<lK$2LTv&P#!;<z(g;!;VZmOH2tlEao42r~$
zk$$K2)7hISjpsKVtnJvId|CablJ7=kfo(Eh*jHUpG{N$w+R!QfnkP-BX8!e#>`uLB
z{Mr{8o;@rCwdR%bB<K6LN4fio4igK1zJBm<U*GzB_vD4A4>;eo-Q1%VVjz6<(pIld
zPc>D3k^2jK4wm|dh_vtXNmM;(6my_+$d|c1U*l6fCCYfg!dlqCq*Jp<z0+*(j>iwL
z1*W`S`u$nl<<Ol6o!i&<=8TNaJh=V(cB9SPlh8N~(|g3GmS1j{ka{U`ID3cUhl^S-
z78Xo*X9Nh>7a8BUxZmkWXF|pH@l8hY`37Gk%<Fb%t1Jz4?c)yIN5jCihMr5vja|%m
zsKD_d<BNx^zoY1a?(pMphK?3)@XjcTR-})e&e>(~g~|M^$xrHZjdSTwjUSy*OFjI6
zvGU>5*7U1q-M;AJyTa|e49Ool>kV<-x%3~cFH3)yE!chd;a+&wC%qB_&OKpR#9fM+
z?1Uc#4FzMYY_Z{15b_jw&Sn?X|3-E=3ANoVbNJX`;<KZhdA32JopGMVv)tTw!WTOk
z*R5M+(6+<zmT%?Vg`Yo@_udd9>U?7iGFn-*2ffwQ)cUuTt>f9ns@>^z9ZiG5Bhg6O
z=q#kB>s6Bs$l2=^%~KXFw$lA0SL9YRGH%Q{>%q|*YIsrWnSW$tWXD_RZ1$jkxr$lg
zo?*JCj!tI_8{#Yms*_(|^R4>+{jD*cuhY&`a0mUoYaB0%+ZCEAdw<^MLbqu(9i1u+
zHi$-dagKR8X6C5v9$%E)G3=NiE_~~iQCc;DN;5&sjdjo0Ki*lNZCt-JyM`lNYq}=R
zX?wI@>P#J@1*L{Brz~KK&RLDAR7!hbz$mBP%O^rH{;jZ*J45N5yv*;+$u_R=-F&5U
zWws5RGdp)ZQD&%3e=@uv?JMTF(@{n5UQr`GCM$atpVcF7)2;p47-s`{pa3kAW(A2v
zl;}4flKp20a?_!YFJSqTXqXOrMs#!LmKGPYgMwH^xQ=%;QR)Q#9!b5`6SqQ@h`OnP
zAZy373*z9)4Gaxe5U=X%HJqKLkSI4jG8Vqx%s<{+#<`M~z9MEvilf!APUk;UjWus7
z&!G%uy?*E-SRWldJ*~Za*WhdFL?c5&UP2skpuA0DT};VcLwUo0Ut!d?@xEVwtSFQ`
z??q<}cHgR^!u|c*M{QSEX~=Ufp>}$^RPE08m;?X(9)0oilN=ZfU4c?^5afFAzO=i3
z>*a>3=7R2jUd=g1i+}EJ>usx5;{QCAsQr1DWB(b3t&`I6V&6aC&VOjUZ`(hgi{5em
zKSoHuW>s?k_eAQGA>5_^d`wfS`oH6^+nv6Ww-z?b7+b%WqY|0{r^RV&q5>1@`6FvP
zXFXL&NhMJMs_rT@4*R&GX5x2W+>GXUYQptv*9J7dN6T*==`Quy2~jQ$v4Cv7sno+I
zn9sQ!VxvB2w+KJTmH7k(b^3$i_9Zt3eXGW-ZvJiCbjk19<--9dN<JddrZM3&MDEy@
zAHfvl*)(n@D&TL~RP00{zY9th4lHuQ5BhGZUAubc?*4#qr0TmBRtd}c_1hv|Ey7eR
z5bZiEi6670mwU^+$ZO3y_G}|UIyJ#BAh1<Y(F~X12ssdz^krBXb-bMt0K2*VW9Wf9
z(l5}x$d9jq^fL&Or4<A^y!;>)-1FYO^sBd?re^OY?ox}2+FI@DKrJmTTD=72)daT6
z<oEBf(wl9X$L6ej(fDZ*%R{8K+DX<zdfX)JQVL(TTLXX|Wm2`!RD8mHtRNPC{O~*$
zVU}f*SqaId*D+sW@^cfPWNk->X-<Qru<*WygIOkC))6C(_i90`P!YbqzLRrvH}IfA
zYglown5<J25fWl?vH$S2@bIwvSevM%cDUBS4TS`y3ygS77K^v(VjPp<ZsBPifs3+=
zfWmmXjtfhdtNI?#|AQ60^nlT?R09vMDffg1VSQn8PK)d=CUE|%_v@Gsz-x4ai+$7m
zfU2fqEeNL)TkWU_;HoHjj`q)}v727(b&ov_CVEOf%Q)jE`BS*WDz1V4e*TCW8M8t=
z8hC^g)+3u8ThOC7I5b2>U|>{Lll*Z@%S87$&#^^mA)&nulCrWU{kG=G5ckqCGSU)g
zxY8j1eEhkupoqwo$jA#3XVMKHhPcPIWgOP;vNV4HagtR;IEPHMJO?&;;{zsYwQGuW
z|Lpgz`SBNi|HoM~%WC<5d~Wy}u2N0d#{^i$+6RV8{`@#QBex=Tp;>rwu{><H*-jl#
z#nJ$|mQgeX8;1eN(A`X4$>z!J9%#p?3Hm?3zdv^xeZNiFbCyoVuB8I)vSC=sURCj*
z;%^MRjaPE|^pfWDoF_z=tU$3^=H_wQJ)6oC6A3s5)&Opv`@Q5bI5NT~EzO#jm-iV!
z+xWs!F+o99J3Ao&{V=pVYier`K$@!tSlu@^HWnx%6xrCz#jQfy^CD^~?%<z^KAkwl
zct&#VK_}%j+_34SjZI}^<2nWoX;tuNO%M06VNRdiDaxIKv8}sz^FSDMnU^lj@ZlPh
z9E-2_UuBKxM1VfO1)WIsv`xdUOHhft?mThy%@Ma-ckhzz-+d5tyn6Fy59FB4JUo%u
zWHh+jb50v?cHT`k?~?T!m=nA@A70=*+cF=%^X<=s-XbS{ZH31UII(*UY@ze#bz>U5
zP40I%e3-bGLv*<Sz08|(y^K~X2xd$i_!Ja2VM!FqX<qHP%VThpVra;Ma!W(@PSjs!
zCq8sHNpSb;M1W+yrR*UkW?pRR>;aB8Dkg@Shi6ob+I_N*Dv*AYl~X)uSxYpAoqFD2
zUVM%U^I!Zda&mG-6cst3h}BkA^*hvGcr{r;(V4#ZGT)*?^6w8Xn&k1ALRGxxZ}~Xr
z=+MDFNc?o|?Se6NCTe)Kuf{*FB#hDxX#k#G_GZpIOV|GT`F#Ky=qC$5AP`J~fQ+&F
zw75-65-;7t;>f)`yH=qBYedGEjrw<{Xd(s$V~fI*mmg8GLS2&2z-Nz-&E2wo6a`Pu
z?!cfRoi$u9_MKY%@nh?*U7PU~_CQa4ZtjaQ4A{%wW8%P13Pg^lVn>FDt<d|0BP=L1
z)aBIjG9+|#b=7dV`Cq<_X{Y?sb}e)`d&s8&JrSDyWi4T}Zwu=SAg`hR{S7Yswdm;V
zM}t!udevYvam91)iyCm4u<%-t&FY?>if!4)ghvJ8SaxY)!JVI<AMFjabZggMj*MIf
zV&mM>f|EBGXL(>32*)E~Pm=m_3^cn0I<K(OOQ&i$*`;lnR;*ZY4)(REi7}v$8EcCX
zO*VpR=dHQkG(}M=xVc_8Hu(&QMbsQYPYfEJR={yW8|&-Sw{Pp>^{&D&2C1HJ1w08Q
zpypXZk8O0gqRaVX4<0`JgrN8N<MZ9Vi$iR3Ck+&Ah8BQN`yk_YqYSn=Y54*+RiR|n
zH!^aSls4IZcq+4E<;sI*W+CI__V(RHZ{8fafi>@Zx?A2X(%JT-{GDX3F1d)f??dm3
zsJQBz@NR$-qM3p+;l#2-?V;gn2#%f7;_x`>gl_CzfDC#lt|G4L=2EZcm?-)0Fldo1
z@y5Vt|Gf`citIc42L-t)4iSrsi{xJz3Bj>+;=`JH9u-giSrFg`=|(TnplHsTH4wqG
zTP)2;C<$sab!@_bA^6fT;{y`-|26fS$q%5(m;3;bY7cYvF`@b?-M5}R&qA{n6~+oD
z26f_qSII~W#CQe94o?NuYdfPUK+F=B6~qZN9lu0-0`-l(+vqndcN~c7%E{;Y{<V8M
ze(4FUY!=Ot;=1W)Uf;79N}QneUA@&cj_=zZeTQ!4^n9+Nu5!s!JG32bKN_9y{T^5p
zo^{W``AjzxGjqub$9%1`+vrw6JVI5$r!8?rgNYh(6oVIO8TMyWilt{z#W@>Ve;ZAa
zYlyVt&v$L*;}aHH$H=G!(I!D`*NZ!M#=Z!y!!&;Rio$4jd9t60+UaCsy2l1Mfmc(c
zMMd9KM|CwCM)X!hEe+;7as}_?<t1Yh6@l~i)o7kVsHno*yK?K`T(*F6B>%lt%^RH+
zddH2AkV}BtK=w~&%;9YLm%WNHhq_bp8~5NoOzWCByX0=Z{n`7zD5~CulgtTDtP(G2
zg&;1;Bm;o+63|Y1WnQRyk}5hB2?E+*fp$sn9kyMM)4ThfQ;@w7svn-Zy~#%Rz5`JK
zQ|1pW*HywuPw4Ct{HwC>5<5{P&a5xx9i`$t7!-;}`jD&a65rx$>yPp*sU{hFOiVTs
zeK;vD*qOgQ=@0>fid7g^8iFA{TQFLbJ4qqjJVMUvNS!_t^%7L%1c_^^vz!#Jm$?b1
z7KP*69{L>WwAs!3Z9e?rO!<??4ujL3TAG@Jy7J_`pnryna4ek)%+xxia=Ih;1O_5f
z595qOKRp-3m0P`id~mZ<V>!?JA$1Fih|q%B&I86)G3XO%h@Piz_2Y`m=nX>&i?<1Q
zv7b#eOx5G2rlGlU^!&G86+-po$p@XBw3{Ya&$3Sq1d9xPX5f0QFZQ!0L7qmf0!uab
z<ZG7Cu8Q<r@=UOl%cgJM(l(gZWGmq^yuYftIyip6vz3F&L|5V3=f8glBV`E4&6R-Q
zn;JQRHe`G%KU|s&Nq8o>V+R${^2m5C!rw~(O{X8Tr>|VOk_aveo8pvqfae;o#!b$4
z-9|T)<sLhV3<-|Rhs%uklss`5od4^QAXhk>Y?9$L*{4R30dZSIjU)hL4b<AXkP(NW
zK-80e?HZFe<ielPc=_Oh<@qWYMG*vwQL4VayIxjS){BaZiPb=nODv6qUQ2}+2J<)5
zKM?XKznlhMB^DalxDU}Er-w60V)JN&?~&-e)(Um;%dfnHWdy%Y0)3STgb@ZAhf*2K
ze|!<1iax22cMt7npjNV)mDT-c>Mk5dzeqv}?Hz}>i}EwZU9SQxxFu!125xQpD23YA
zi<`9e0L}J8tyzmqidU@JR=T6iOAc=(912fv(hlILRnd*I5qgC}hs@UpC%)dTbB;Os
zv!-pPoU2>b`IkM?-)ZTDPDQ>P*M-RwgepLZyubQeyaa3K*-D&C*P^06HO({|3rI<^
z;8<Qo?7t;Jg*kA3ymU;|RH$|$Qw-##BmB_uxkE!nH>aHfPgCgnukL-Q4s;=$nGE!3
zT29}-urG3I+r5N}J6uBz%X@e{_)u!|4W*4PE-oZAnsT3)ZX0&Te~~#V3bC5DwrO{h
zUBe0$Foc1Ea-V6Q6%BdN+xM1k!c*7TzyFG1dKD5BNi<%{X&+ZOGriNC#rMx|pCwpU
zlVJhzD->5fKz0;L+O-H0B$fjBA8lL6`t(XcL(GBmsB_GjpEbCsj`F;rQt|ep@Sa`W
zz$(hj+LO`UFdw2)?PM?=B<10zk8PRZxOj<-^9Y2KGc%XXvTA_wrcg{LGhayR)l5xq
zwS4Nb#`#Z<P$!R3SoJ^c$xlq=MP5b=Vf$pUhZHsj-Ws|J7FJG8O|e5n`+9C^sZQ@=
zV8rS}u8Q#s9oMylj{s09MBg)?4_9#l0$vAu8!7`h&)e8gASXw(e*x7CoF-Si*0$PI
zAgi5a5(*r@5wd9{UsuUTCpu?q*A<NQOs0FV?PXVR=7(!d)b;BFl5#tsRIhYOZ69kY
zaySYnrd9p<7;!l}-nkx40W8{qKvwTWr;b)Oxdd``$rcR?w$F!)D%7R>P{urtM>uen
z_!QxY^bi`|-8!0n?Z%A&FcTW-MxL|b3Ykewwz;-VTZsw?d&w*VWRM1s1wTJE9OpQG
z11f7IH(8=<iADR&b6g+kM#U~;$7*F|RX6km&0td#&4KmYDwlZaNW6ezwI2!Q;OcT}
zL_<1^rQ!8!$)grdPLh84;`<Y(hhE;~8hW+7s^XYab8^HJF8=oLMptK0aPSK(04L~t
z*!I{f9d$N;a+Vu1ZW16xW{SJSd6c%MAJQHtWE*&dWR6bbl)tl3i~uaquB)R1BZ%j|
zA1GQw3T9WGZM!?7lg+#3irSL7y5;=baIO?N&@2Bc2oDN+b=`?tyrdcpCIlgLqi%rX
zdeKwgUy6SD9$%20?9XmSAFs&qaxMsHYJs1vTTh>8Xm4i&%+y3Hu&{`d+ZR?M5$kG#
zv7Wz@4T<M`5{}<n;NGjFb_6~pV{)g$XUL3JlHs%bjDJy7mO@?lUtvT^4*(5HZOgZD
z3i7^7@(^tFSJ{50oQVkBHxD>+<izby(H~%wVg;o*;Rp4{eKcXeUDrdKE#Hg&AU`xJ
z44~^zFXX*%(XfqjR?W^vWr}k=-piDeuI}okU%%qna=GIUUIm!XlhIZvavaanRw#5#
zI5}D>URxBtBVl3rcpX*#)-CSA4a^4QO64~$_FSe~V*1tlSdL05{oCCQovw=9&@Zee
z&|h`Asww7=KN}m{RXA|%eQtj>ARt(7r_=?$8#r}V5YTju^!R<X)Q@oP*YS1kl*<lj
zzW#P+#9&(UsL;};;g`}DVlszYDW^^e5IVk{&r}v^sHqb{V-UYxDhs!#w|;RR+xL2t
z+viaSPOs%NZv&9bnUA+9XaCe^IZ%SPb5Q{7oL@3pIF}$BNPhg76(@6%I|hhLG=!6B
zdBO3M3>R7=LPDawT|<SJpe_TCiTF4l6y=Jk6E)>NKi`2ZA#+0$pBJ!4Ll7eT0I*C<
z(HIqmKADw*oO%4)yj)_|YENIUFLyGI^XCn6VcY8yTwJz{R<NTb7j25omHGKKz4hu`
zA~L>6qDgt&HEKG=FJjQ<*5$T$ql*vFNlvJ`x;~cIPh*WUzM9ZelqW|%fAcwu*$4CC
z3V<+(dZzul_Z-N3dO_aPy^Fs$5fVsOgZZ2yUcJ(p$}d8}!@R_K50`ODlkFt*N}RB5
zT~Bz7cu({wkl_UajehPFlrZxUuwklAyCz@-Bruz&XdI!W4+;;jhH1p<X0}qS73^k9
z=!D3W11p5!6&GIzhXFzGv)DrXWuKyw6+9LHx@-Qo$Xv;<lXL84jnq%HfA9fMdJ@hK
zeNgPv(bH=p5Ffjt{?Oc*EpR4u`;x)14oQ4q)cPjuD3gg{ZH{nS^c|81DitAmw5SS<
z)=2b%@PIA%`O)_@#*d6%Kp&TfW>cpGeVl^WSL8Td!eD~deqy*`pyg1vESY)DBlG$^
z`ju0=@h7(Pt08jh>gcihPt8SYYDsf2pzb5`JEwiDy52gR^L=n|@MknByq3awF@;9-
z6@t&2T@4Jbt>r7i#zW!P5?w|hDx{D40+3w0bxZJc?G-+S&ENtKrRvEXIg9)e6S2h>
z(HZ{aZ1Bu^xJ-r4Oo*E162M;G0VCM@p@V}bujd4VVTJy0`)K@Q?l(=FzEKW4^Y6B4
zd9EbSVuQYehul_Mwrsg2bLQsBMXKzKwHhVl9iv7T$C6RT^*Rp}0(@c;s;4<+?Sqh2
z@0InrwDXIEk`gCwVJL+nAq%r0T_xIhw>VGd?wTg9p?Bp@(%SltALR#1zhQ%DyUflO
zF#!Iux?h*cf7RoCwWjgtk8n%8b)rse<;(+dRoeMswv8JDk*#kL6=gv4CYfor*dg^#
zy9DYBZZB&kB_+i|yEo1clleRa-WVMvF57=E&FGUL7^IDQsveG%YrKnGA^I%TFZ!3_
zh9jEsS@K{+kxWNlpUkD1xw)aS^i0Gf+bpxS1?+|o5}dL{g&$@Y@@3v)C1cPeI}WoN
zcmQ0xeLJ|n-^wV*f}4c0{R0C{Xsyr{_qZ5s{^cce(J(u%8CHM12+r^f-GkEtuNnDo
z0A!n6w``%pZpC)4^ZVttfEK6|2&*0CK1vWKT}Aq|Rau!!{P~g;c+l;mkxcr|gYt8;
zMd6oJ$RN0~BQ`npiDR5o?|1y&PUo0?WcvQ<n7sdga?^m||NrvV(*z0RkSYR2p_?_%
zY#uCeb$&s9ew<lR8I12%KQs(Rt5f};^O^5gEplp+OEf)kJl>Ld<dF9p7?&J9s}int
z8E&shkXg|&Fl=Z)il)g!GtM!>kt<8iwdJYxo(AWDIS7dDF)c|t{S}v1;!i=5kym-?
z46kaC1pMZg`d^5kph1Y(>F}%sVnJx*H>`)QmLxy0V*GHdZ;_U6d6ZA1=4X=OcB)vQ
zem;hgD$8UoHamdl_4=$%9)I3M)Nwjs?-^iSGqlTlfe8z;7%JF+xmnM$@Tg}umoKU&
zZ|d<g_o=O@Sx^xmuB%~>!tbQ{_Mm}*A2>6O)aFk}g>EWx>7vHM4D3(~q@N3$8YIc-
z8p~AUx(a5L4rC=<cd0CX2l;DW=D7hU`3n;3WE>X15)eS9@Wq~Uk6KQ6JtVoL@gAS|
zNUjc?pJ4G2*4SQbk}-FS$1Uyz?DF4@x?+;ox`y8!^U}8zTm*<dboWga^Q4m%4jm4#
zL7Ic=*bLP$Bbh?8n-vHx&^`j~;8~_0MX+lhDcJ4%d(mcU3fK7#MIJz{!={e#$0z&{
zL<jK1(~dq7^Y&Jr`F>#Ysv85lJQY>kCkePja1*@n@$0vJ(29qqsin0Q#E;U22~C{q
z4;hzvX8z&ZAI}8`Dfhq?3Dn&Jz~VteL;uoJWe8r_0UNG@i7)m=g$W{A(Gyj@BN)j*
z_<<~X?D(<w<Vdz&s)mKdW}*)U;M;N7kL1Na(>&P=$|(u3GvxqhRaKP^cf<p4Z|_Ms
zYY_w<NF|RldFw%Bd1hW>qLhXRP^Y?h@gkN=B47pijL={|Nsb}xSA;}W16s^y8gpjg
z0|`G+J$H`P77q+Si|pjFUvtnKh9CWL&+v2C<vAK9pj;*@K+D6Z?4k}Ajyz^&-Ei_Z
zi5WiJyCL)F6GrrNGu_)6_SEw|&W1#=F-Afpk9vK~w$RMJ>+xz-F0|n9!OX<u_wJnm
z^4CugKffej4pzdmfdjg_%oKK6dv<{MV?%WQemK%7=!GRIHgydRa{C~sc=1K*&DThz
zyZgL<!y}gPgSXyP$@V{>rmEW+Ib}0@@~>Q>cIw0ntR4{#l>`?E?uhjB>U0~=5<U~L
z@-oE7B*3-pE)rE&S7+M1IRcJC{m1|OU_-bPEuTjpeE)f9R0#q)4zirLe?L9cuFHr8
zlgtDK1#?Yrikf@avkQxeRDq9001E=+&5J}2g<29g!;>c$TWYVi%AGE4Fn0?m{~A2^
z^&$CBr1dp87lj)xo0*yhk&qG|w{)vlt0Cu`g0)0)TH32eTvV!ACKSj;+2zmil2)N0
z4M>KROhfP+Pfg2UM&2b<a=|!MjogtwZTQJ2DlTsPv4dHcu0`!Df?%Q7)l@S&4&H^l
z1^gHjE9(`QDIJM_4&y(@;N725Jp7QtZhp+hkb8SnR8)WXEPeAkkW$P|hxVhOk)iB9
zsY>t?OjuczxiQq@tJ)VA7U(#_Q(h_}r(55y0Egy)Aut^3S!RV*ZVkVxYikd?e+405
zH3Y;Wy=eg6QdMr~Q=%!eaCGyn*}U6Vgq~fZ!rmKxrv6&V%q%P{)Wl1i8fWvlTz(E9
zxM#ZZnEtdW&4IpV+pgngW+*8keW4?+Aj-E7I%|J<ls}+~;zernYOKrx)1v3kpXWj$
zQ=p*iv7clm?T>&dc?p*xYo~jrm94dbQ|B|&|A5C`17KwGEg4PRw?s2=eDyoIfCV9$
zqCrpGwEFq;=O6yG13RsL?p$v50_Hy_nq<_My<IS;jEe8r@%nVPbm4OhGuV;|iR{a<
z<M6cE>mp~3HrW-#79pX!eow=e+cCATaaz$3{)XwSSjTfpG316UWz<GBwZs%gIZY)l
zHU!A@T6jU(dzSIiLHn(QXB)TqF8&gGD@^yg02Kk<PzWpuYR2F63C+L}!U}B8sn~nU
z9xO<30<@CzGQ9Oi>Yhqrzua;!*x~ZnOqA?Xu<t3(dp`|5Q81F4TgS3ZGMaEeLATw-
zl_9CGBpbn{;16JECUbEVPI?jmHwE<<zIFwW_U1K!-A&~_UIhw0&n~P(F4kWJGhNyn
zdua;I9GuF~V|pKl=?1NUuFB4C^HO(7*d&^L^6;X3$UU)==y2UBd7<sLQTO<}q?La8
zqjvZ;r;NkMFf|xY)|m%svG>>W*ql7sG1~=&#1fV|;Rg`IwcD2q`1#$~9R4Q=eh3gZ
z7ag+FXWAORIFnQmf^5APd70osyIJq%0o22YpGLLwfFBI{$?DD&tt%jsIy_A#Nx}kv
z=*byQR5zI&?QK5yuuE8~mT>lN`lI5zWa|AD{xbEVO6U6gK9t-Uc=S|C-g`j;jksHW
z|G`1ZD<{W>I*?h`Mj%t63z_h^eDJ=$Y`cC!7{Cv9AOrS4-rrS|jA{VJNpz^MAkZV7
z2kYRw12X4o^G@u4Xm|pztJq^kAS5)j`qyzIqbnd~5&><AI>j3oafa-zzpLmb1S&TV
z;ZfOp!6369XJ&}pSKO{Tr01X&NoJ;}%<FJwEGALi2dzZ-K^@+Q03h(>Iw%8N3Kao6
zlw9Yby(m>_WVD8KD?9aHkuTH1q=^!}B^>A|y~HV9&_k9|;<BNa4c2kzx?~SvS^@_u
z9eH@hc?mRXxf$#8b90%%vJ;lgUNy(u1cqdj@87Sgjk`+XvClh3dZ{WkHK(n=u`>Ac
z(t)aAJFax`_tKhr(PQU*Q8st#B-e68cMB`Sy3NW=W{+*RSok}hRV0p*7VJH5fej91
z!<1MEk<G%qvA2GbMvV!8Q}iYRBPyiT&X_E^y<kk?ObD&^*rWVXhGsT`3H-lRK7E;m
zI6coUb8|<SA8cro+$8`8@7ne2l>AJD+n}*<E`|5Q-t;{__C{K%&B5JLPq+tsSh=`F
zP&vK5{GlPS9MoAp9>~4`dMwm!E1mx&sNl84mC4C-XbJjgwM2$3f=(Qk(g8y#|FJ!B
zLp8BrNZ#dc&Cj)dWCba-yRZ#hnec}vDOTqW$Lr=DSXpQ$nyut9eKK^61!qUpg#kKf
zF62;)-N=K)ynD6_4%(YBVuJ8PPOivRPwp+$^y3uW))d;cz64GFmE(Zj{wxzd<OIYd
zJb4ol1q9k>=H{x&vC;C6MfHcrpGu{eWGssURI$7pEM8_A2ue8iDmzv6fdI43>w(rF
z5v||?v8`zbSK@c9BJdmPCW=+Qc1%u9y|^VwAqYIEOxIudNu22~2c-s>o4FNTE65I%
z>toebRf#A%69#9mWL?6Feq@|MEaMw2ERmW&NHhsT%%arx`<o5N3g1*!X`+99?fL52
z2cT7_rjSe8%#HONv@vwt3891cJ(mz#z`XmZoTOZ&r^5YgJ-EBO7MzIqKn^PjWQk#j
z_Y{;<<edlU;6!9|=!nw!@d_ZxD>z(|K;6q<{H=@*cgmqnDOlE_kz{fBsQDB4Eg|1^
zb-$bN>bBb)|A3D&N}8c#fmf~saaUlhN}l}p(;(kOZf;;>Ta`F|mC8%Ujod$MV1~8O
z+D1lS#89<#qmYY%C5EkbGAP4|+(hfVTtR)9(kxknDj36nXtKzxx~K;Wswa-2bF-+4
zk=z?8z&fs~N}wQDwZJgrxl$Ec>gt6zPOY*q4YEC~oWh=BL)a@_c$)lH`NZA8x0Z+B
z{#=&sBs4CA^aR=(mmOU@^BsU_$Z8GVS^#*ePml-o=LZGR!OwIf^b&GPEX{r3L^tw$
z`|zy2KS<>$c?Ni!=UAwOjv)&s55-YFbCrOCFJE+Pes)O6Wp6_)?SK%)FaO{Gl3juJ
zovuu`DWA`^j=Hu5nnkeI*1)o;x+$gYon0X^h*PnLv&>q@r7G$65<y{MkBj5|{0Jh&
zQT9~NrR-L_q*go8o7S26jCL;Og>QhOx;I4bELpxO@+{XRmLpj;;%QYaO5?d1VZan*
z_J<OK8j?h~B1XW{O%)s^6enrM85<FePUnT8z7rbxb9R(6FE&wx95!VRehi0-glWzw
z9*aA8I6`W|Ait{B?b8H>GE{d%)@{P9vg;OC@P}STSM6fEyMd?o#%)nnHutu#pOu|R
z+o|6%3^+*;*i6o5x5*3R-%aY5ob#|UohFQUczEFW%zz5bK|DH?zBxf3SKuR)5Fbzx
zy%+!ZoIG{vj?Y(Ykt$QNY6Jimb9dKE3oKMN9_T1O^gs3I?E|^P=-7NaOvzkmtl~{w
zUH(&ZZSu({|3*R1Z1hKs%W#*XXwc4*nGQs+{+_3p5l52kh<<^P)S-5RYA&5Wp~iIW
z&K<k&=gpJwxcUbW#Dks8W^CRBoz?G5;gjrAIuP_kNK9;F<KY|O5!=aJ>01q{t72oJ
zPU<O5ChHOIi&+H=3k$rGk_VUmfKJLQ_5})yN=RVD&Bg&4!2Ih4mJoNyi-lqBz`L@y
zU2r(3x(X>>pAvil{`BrKq$ggCZc?3Qhik&by>iA+okZ0$E@6wTY}=Qn((Jys6h5#~
z2*!jTV3H-c#-NZ8^&3LQeFFoBviUwXr_f0ztX0~!t@`wk*^d`5jk{e12H2tg6+FS8
zQ0pGii!^s1`)Ztsf9D4GQ6Gb0h$W0D`dvVC$;QqA<B<H<MsYW}3D$z)Q%XR&m0%<w
z%Lv5?iX;#v{SV9MNkj~70u=#^o?48jIFOALN)moF&z=kj)y!;l?0WoqP|=^)66KAJ
z^-g<^ZK7VaDpaoI2QociZ;OI4fo<D@V?SO*zpII3<%S;M^~Nn{Mo&2anpWYxa(CS<
zprNI;dY7n1_~AgtN&IFaAAzyD_U74^p$3Pidr^^)KfHhhAL5(>_Q)Vap@1t<Bt(vC
zS;jQ{o@JW>D=~?bl`KYK8CqhdXa6*=HyIOYWMhB!y;w<B|8cl?6ghCBVZ4g53hJi;
zWV~e8UvYUMUx`_fJqkK{IGg&RpRt9LV~J8*_ZN)b*}#LD5**+KS+r@#TovP>L4(k7
z?v>tyTesMqdf(wxJONnMzf^@}4dX&qSoq8tXC8mvYo(C=Ncb`=R)Qnfv#^kr4ybbo
z!7;ybrvX~n<8X_BOC$QeeTzgVTVsktvH!COhJjIDV7d^%E2mx)HKubYQIe7Y+m76%
z19Ge`v0&MQBN0x*@V5Ff=F5F)A#b4+iK?0!6)8)>gSs=G77-N0#M2n3(A=NqYU9v+
zgT$po1ynpAo*vVW#d1v?_c`16Mu|+5UwP$1kobxb!a7hXtbbV7&|u3lgL)#RLoja|
zI%_!(OX{t_-$@P$@=hy+Zmc19sJPrZu%Bq9bVAb|gjh~!vVGoajZ}dZ(0&ips@cb%
zM*v*{2y|{Zj*UX{3xqY_4wTJ95au9VuYkG-s7uSti~}<V!f>Q@6*3&2nwhDDYYt6f
zX0k8NYPvOR{MD2Eo<HBsA!Bz15C0STS5+bM5E5<N;6_7`H7K-aF8oQo=Nke{A;`Lh
z+@wN6YmiB-j}-?)2RG`1)129T*%Z`xV2#U6)TK0k?kU+xuC-t5H*E?At|eJ?P(f~c
z&%R~du)%mjo9q)HGd@H;j51*Qe%Rez9`(V?a2@AWQhKJYfU_RNG7Ut-9L&sAXcJAy
z3CrO>*Cu=H^|=O{Q>Q|9+cH)0#6i!~-@@5V?#Za7<)^I&3EtAqR2a$?gU!L<d8_a7
z&8VYX!6t}(Hr^G3JMBXfd?Wiixy+VOVNWwF6hcP)?t$)lK*`!+`3-B9>xrfFU1v^_
zBLgH+oH*?gHX(stL8mp;he!!4B=(`Pzn?wLCM+RI=?|}Jm;$;%NST65bccDlaPdqB
zDVORfIlb4?k{8}W0T|it$mmdOOfEyrI?L)QeK&9V)b(`02>pm~<t+Ex-jocITtZ4u
zRNd9w^>yOobMaoCrpaVl@&;APmUksJ{uu%XHJmb0NX<cgd;;&jfP{m2{rUlePT(?9
zu<3;LjlHrNqFz-zTreplNGQcHMlzg|)pS}0j*h}`823<tXV<{b0O&X28Jx7X?lji}
z9Dt>J2x{#E_-bv0A|`hBATY3Gb&fm|KpKpPG_|4#L}EB7neKy0CC@c1PcQ&i!P9+0
zwK?G4y?fPCJqHitx=eE|sl<+#hmmhtOpFnK15Bx<uD$|ts>o*-zV+jDE6VUb?9`se
zjC>xc!PaftXjZRYjUNjH9f0eUgpn;?(kk%A&gxp(%|JM)6OkvdJGgEpZf?;wCnF<P
z(wDX2j?7wIQZ>q}`)`u9OcXh2unPAewT6V~+qA>e5UhL%oTwA+>sBwTR0tep%aw`<
zkhVcV4^o&!KCE8;PaP{9h5c{Z$m{?7**2IjIsz#z96re+JXv{0)Vra`PX@PWb`nNl
zMQX2QV5kNLqKbJg+0$$b+MHC#fld(7^HL|ny8gO|zhudgvG?vpf(RpNMuahU*q1$E
z)MX)q2Zq@ox`vRmZMYf9b>Kn#{UJ86JJ?86gn)j6h?DetI3p5d5)67F37YS}iBx~S
m|DtdHuYdY)uXaxVv+BYvP5Vy+v6slUCfz-Hn%U}>{{IV6pG|E5

diff --git a/reference/plot-9.png b/reference/plot-9.png
index 71b5ca187d27b3f7c3d7baab08ce8dd18e87631c..408509b1b3f74352eeb4d158bc065b0541400aec 100644
GIT binary patch
literal 28236
zcmeFa2UOMRmOY4Nsb!=vU_e9>MI{LcD9FVCBBG$8NTvh<$&zy@eM(YLQ4kSOkRVZV
z1}zCn79?ISAV|)V^X%_hRsH_ctJlA0rh9tUn&;|X)PsBPFMZ!R`|Q2XxgHngq}Q+6
zv4(+xVZF>*$;%83D{L7UmTUd862GDPy&A!fm0GgWlK6>#GpDm%@MHC@v&t3>46JVC
z|Cjl6j_NQl>}HUWJbA_T#Q@FDar4B2#E8wtjXz!5JQ`|{nyQ#{F{V%@C-pb+mntbO
z`Sz1nV$!Y}8V_C{tmm72=|5p;nzAKMQ7Z0sTWz%as;Jt~EmFtVGJjhmW8FQqiZNpK
zw+4>v#`CrmHlO3Wk{c@>CzAz30)m_d%k&OC=8*Y`oSAFc8*ZEB<i8ktb}Zu~KTn)l
zZM%&8hrqdaYst@tmwwV9KV9!{9HGDI#uL}A<QKcce$F938Mg0hTS0z)Jn*0R2;DNf
z?x3wgLPD1m6gEw@IGBF!XA`%#R9PBmO!m@{;CX8AR4q1sZzAW`*FU0SV!WO|e?C1^
z>C$2lz#*eGMYHiCznCtT&`3&asNAe++N14s^;Kz|D2`tu^)8S<Q;l~A3rkpHBL8EK
zgZ2wC{U%06-1fBCxG(*_Ew4mkyDOcBED{}OzLO6ZtUR7vE3jqDmeJ&p1#Y~rBf(|C
z@O%g*m%}(Q<X~P)Rq<@}DgQVteEJhF*R3yo0>vGyn{7KDFfs98|KlG~@$n|f1JV++
zpBpSH#rLwe*MuxuelyS9rN0;Ns1o|Ah0>Q&BPYwZ#i{3&TM2FF%lnEUiK^GGZ7pWC
zQFH4|$m)xBcYh{gs<C6;^0w(U46ZFQxQ0#p&%1NTu**C?`t9NAChqz#U%p+w)U$65
z%|!OA2WPPRc0pZ9$%1fyji#Z-?3lsiN(#SaPnEm-(Wz#Opu)gqodeo$dCeSGFq|;u
zXj{?qfj9HpW6N1`ZYRgCC@L1!=S`-%yW7qUrqd3SMQqQ%jPC^7M4hT>q2|(Ty}NsZ
zVM4A}a=9><ZHu<|vHd}L14*Txv?F-w%d>dsPG8oGG(VJc`MOrK=SxnYahmc#Mu#^O
z)9A<t#$p!JoJ(KQ$Py~t(>8cJe__zHcfGJ;Yfco;R!v7Um9&V6{TjAk?+TaJ)z?RM
zu3W!k^Ngc&oIrPwjfRSDd1-`2rrK;X+v14Z_|mGKw@!Eo$1YN>>ebiU=g&A&BIJU0
zge=W>Yg3KWA1qtGvH&N|${B2{bv{5Kyw=+K8YRSM6`SK>-i)@}^s5+Yd;dA#WvKzr
zOq(p9P4dV2oo7llizJq2DsLCR3ly_4xz8p+De`7z8Mdo*sGgl{GEA8MV{6{8=`Hq#
zIb#)KD^iWS$^y)K!~Kh#=LWa37`;9DrM9-PLTq?vWRSJW`QYQn`uh8`vwvw4(yMqe
zU15{ADNNeO`+;!NftBmF{mM4qwyL8{u=2jcaIOee@44AoCZ-1u9wgStiG?rpHd|B<
z-U@c4u(8cG6j$37-QTWI&A(3CXID^O9rnatt=ef1awadFXL}RzjEY^CE!QGf&*%7c
z?Wm8-d|0hLPH&UHhQ0nkW_NI6i+z7#5sT^0km&+Wt?%DHt(aJvOruU(rdKY0<CKtz
zWIR6d?zW~)s)D?@P*7fnx0tB73;z)zp~BUiFCOyd8>cny*Kk>w5H9sMpdL7r8#hsW
z@7}$P-iW~VrG@;Zt*XYUSJ!Pjy!+mI7H0CyjxUVYtVmCINU3Y;_t#pYxGc_RV7at^
zU|YOJZWB2b?PBi-F$sC1%zPR<nV7h)#T$*<T`5~QVcH<=|3}GFt`0oK2e=(PX;hQ!
zZHIq5VU+Uuj2X5}(b9b7QUTtoa#1{dz^#0Xp{kLggmb;RO<|*62&>q@+tWCP)P)Nd
zj!!md$JKqNQ7#R1#9WRqt>6y4ywh+Q!^QopgVHQ}t2x*oyPxgr>wD}-Y1M6fb=oaL
zXD|CqC!b5BZlg4t(-9t<X0zf{m9By0O1V<9m<lcMsXQ7nVfn21Q`{`MZR0b_$-4VY
z^B1fIj2hlr_cvnK`$~B+Z^;-Joox5w+du3y?6B6E&3FF=gY>+av2M<}p={Il6GFnm
zX)5vx3JT^66ZM>`Mu}2xRygl{<hi;Hr{+#HKCjns;AzAP5p!JNNo!ya5HeJBo3N_S
zu^W3_Qc^N*HH?*LUFxzl*D7DSVY>i_a?%YM8EU$&i}OV7HD8|e<|LYq&1b2t;Z)1h
zr%!+Hm3PUaeRmj4z2-I?mfWAY&1o{orbQ+s0TIhaqSg-~<h9jK+qU0>g7bL{<NedP
z)w5EhT-Yd%wn?_5?TV#-c=)=xhIzv-3;mj(@DQ6#ayyD1$YQ078R_kDiv2P-rN-;8
zX8vj4VBNK=SD!XpQ;k1)ZsAgy&*xgOxDehT%_;MhYO0q$R*`{a>)X`Sw4t?LhBN31
zw`y7}E$dt(qwni!YWwp+r<qQFs#>wn@$YB7?7V6@J<S|bRSwqc==ohp^hsr4IKZbj
zVtrCwU40!J<v2ULACD^YSXa4WYV++CYwNONXXIUG6#^$(5F>iWKTETz|HIF^a=f>O
z9wNF!T=Hn<f_fGA7bd9*2lT%4s%0F$$H>;wB`_F^hr^fFY+h<R@_tpedVRS_>rT!W
zw@&3C0<ik2rx_{VXB8869t&)>oU^(%H`ltfi!A=*^CKTv{hS6<>$R{BAL!RaY#E$T
zO|Df`P2INgw}FPl(XK$#G?mH3;$2=|yjcgFjvF_nD4FI?oNLPKiZ~yzk!qUnR2CwU
zPcv^_TAb>*mOpzHIpb)%``-5S`~~CePBy3U&qr|-ueu7YiN?ra`$IvLo|kt*@vp|p
zD1TwHcO2J;9G9qS+;=~{)mhBCQO7?epUt}A`e=i;PvOgxcj^wQMjMAcp*CanGJUwW
z-fP8L<`mVTh(HrhroCq*u|`f#Fh@7cO>xMyPj~qEl=9{0(9DrN5r8(4*eFKp@_ypL
zrhbT|1Z`Z_iXf}wX6*$H*WFmF1;fQI4>&9JRlX4$&Jm<czh_L#^!6315EwLe3VqU_
zBv=~JP^^Na8RDAmB`4bZ+H&^yRl9DcmhJU9{#Xw8qK+xCPu5CR^WlEE7tiE;b{<Qr
zF^-Oo_N1ph=D|RUll|;cmrEsO&M14rsaIChbDykV!N}JS+Oy-mqeI!lXAtNkA|h-N
zmD`bgWJ@c8#l?p5=7!|b?JitXGn3-h%)?@-({x$L7|QC`TAZKxTvhceQpooi$5^FA
zb`s+<06;oqHD@oc+j;bDZB|!BP<EY8ujWGEwT_wY5T7kvijp{t8t+zFf8GaMHEj3b
zY_}o3+;THUv|!b4FYp-sUdku!<m8lfz6HQ014~Lfon|dt8f;dyJrNkjg!|FeuF4QL
z5(suAt=o0{s53Sc$&yTnFOMp_wHuRkM&B)Gd@Vtdl)S$~DEj4f&MfWb4CI@6WC^p6
zd)#8JdIz(I^H{>pJUGX;)FUln@VO#*1hMOwAD`x~z0%(Iv7HOPcb4uAsU+uee7x#(
zVyB;KgbsO-#mag?TYwDYNi-gIp2}8w``bw@xR0IYqkS<6MV~lBUii7R{l2Oln`h9P
z#j8<Iuk6_)IiGF(p|XS9kKDX?<=VAKA1cd^SI>f77H1kvvIn(>nlqUa4V;>h5CP<p
z6&o)bvxK*F0azqRX=`h*V--EJUq1N7kS5EH9qkC!55l}f5AldOOb#4HBomEI7WB+@
z$zPo9*RFmo)7yb1SwNPCi5{0?tb2f<UJ;%o3lq~;wOc1IwaQy`B2kpkY+7mTM_RSK
zc-p<ihHie=BxiGUak`^M0P(=<!v?X~m$H3cjf@WM7JZ1u-pE_zWZQ!shCB+rwn|e%
z<b4b&-yiv;h-%u*N%DIqoXh1EOE&Vfiv?EV`+P@l?bJbe@rf(;jZKfFcQqOW2v!{3
zo69i~pFMQ0RARJXli^eKl$)1k=iA=jq2{QiR>_`_r_6jyX<p8F{Nl)*fpey&BnS4Z
z!Q;}-CT^F3#Nr4YMv3{6+nSL)!w#);)w8;l!L&|$EWspXx>ThI?5+H)+B5<UGKcf#
zM01`T^)KDW8Dx2RwyAY-GM&n;`f;|bd+gK4M|*3`*%o@FeLGA2)8}SMEG`YPZqmP-
z``$z;(_H8K?~IPSoyq|Qv!xt19Bp$Q&%6|NW=p5}z^T~Ako@UFzO<Ppq^?O7|JNJv
zc(7V+RCq!vyL~?}N*w2L=nBwFYxF)<Z^1ujG)B3FL}im1EI!pN7^m0w<&AoLWai|(
zo6kh847{#O6#1~V>WYUq37@+<{CojB!REXluX>YiZtKF3jp~yS0NOwuF)_*0{8Pio
z_UFkiOc?;asM5_vh&k3Dn_Sma=b0#fppYUeQzAmb(P^(&n~=kOtmnSgUely$1(1Lq
z=f@=_!QI*Y<@uoaz}pW^JJ0D~2=CdXek`x=jg@jw(!sh!W(I~_H$<5oJ9bpx=|HYb
z-4Hc4<2ZZQ27BmJl1^#$cZ7pNm5B=h0{fg6$3m7I0~4se%Z8EDUK}}cBt>-*NcvEp
z|9F?Ct75Fu=T7@z$M2t*2kpOq;>@m%uTVjzooxy<&9e*aT%#OPDL$p95|NdaRnC7l
zP&Lod&WnFBE17$3ZJlk7p?5a+`LJIOPmIuTC3%aRrepn1(<xJzIo0gWz^UXtr|+dG
z$3L7<8=#0ePLG8CoDA?`sZu$N%x;pZpPKeli(!0bM4>>>&HG=-o{F|9KO7OpAQ4iT
zuH-{79&Rkl2(!hKGfw2S4iJrKb1N=`<Mh3C2kqZcx8EHK^L_2OY#13rl{-wN#Ww7N
z-39=ql=&8iVVXg}<?#=fo#li~O<!5rNWF3j<tn}=o=D#XR%90pUw6O98yz3-eR{(&
z4t7P_-D$vWJ+JO=#4uSuZVz{NdFSuG{I}ZP;aQ2Zhjw0E7ehnp?;U@}uYIm|KrVCS
zkF~05!L;YKr{!bQj2e?na=T8hVtpdF)V?*p=ev3!!7!0EK*%O$Gdl7lF}5!ZySPY7
z=FD^jCYpDa@YY+=tm?ySG-pb#sj%L$ys&)bI``xXQ7)(XZ@%)@GZSlTn{0FH)hsS}
znb}05Am~rXcm71Je$MAIQ~EhUGvB)O2;0zaAJ&W9&z)+?rhNxmRu|1hFupy!ruDhj
zRAZMmm&x1rE7jxmP~^x)Qg>)(W<TceSj(4lcrZCNHFXpj(I$hByEg6fCTjEhRctSY
z_BLI<bcyMjhMmsr^w#`oDYwA`SFpOvi~aI(!C`4>X*Bzon3xXL)>*~hd3YXZ4TZ^e
z&h{tBN0JE9;5b$;_M#gQ!dY~IR7nWuRFfI4i4VcEFGM@;3$BUI<~rBNX|JVjt=qV{
zUui8$!PD=k>qBP0L{|5{QHV^lji1TLi7DQB{Odn9v9r@-YPhU_+JV;jw)~h59cI-%
zgHf@u_aBI~9Cd1@@kx@kBI>j_(_IWu%|bF_*^6VzANWMdFN9FUgBHv5C^d1yar&Jl
zPt8ym6(ixXp(4~YN^8_56;srkH~OPf)v|oyW0rb5n@NNUqF@iM2~L=?bzr5PeWO&j
z(<gl<DZei|#{T$C)A)yrIj9mMYDlVc6WPxK9Pd?3%UrFTI5*HYx@B+ZhusO{3v*NQ
zk!v&gFY56CiFu1pHXJ$8WLa}TyW+*M(N~O4Q6KDNQ;o+9gwtooUhX9TRy6mw_qUZ2
zwWQt;>dWJnyUbBrt9wr~il@A+=ev<J7T?$FWclWZW_-DiNK-PZh*aC=&lmQ2)iOHt
zSs0A>d|pvcQ_Gx_l#eAvffg%@f+~j;7g3f$(KgrR)xB6flnMm8@ljG(x+_^Rw>h+o
z1-rXXHxyI+C`(ui#fx*pY)nk1IiqLnPy58Bw}`G}+@;nRvGsLT^5XN5EseC~6V}N8
zB>i{vg!y>ul=>AmXIgX^YR;)R4jO8DxnC_E!-jd#;UhtrL_Sok{CNH`N3eb0oAJ>}
zs%dMSuu#I(bHjKKi;82BH8v^3Ml)T{Te<sR-q~=jb*zu2@koBQ(^zLnX=imW7GZd4
zLaXvMO((14(`|P~k?SIs#K0AJI{QXd9QsxkQBtzB*j0PH;ZW-3@y6emuZmcR7kh6p
zb}=DLP%yi_>NMj8>M>L>w%;B}uW6ZjVnFTjFpi&TY#mg#Q07+4cw4xBS$4D%0f#DT
z?=Rn^-rK;caxt^wKs_aEGd7CLd<R=^hj&GidR$VH04hPhd*KN=-_H>mz}SyZQDWdt
z<r|bSp)V(eUE<8AJc3pHgOr5}kJkOf@Y2R?rKw2H(!#L(a34jx=>GV9qy+yBnYZRg
zizD@xZD0}R4w^!OKN}es(rAVt?4Lus+t)KtczL^!!4;g{VUwKEB7%=q|6$_A%;SlG
zxqkzyvuy%5&dviBDH|>dop#q+zxoy_+4Usm8h5S#2`Sf$@7?<K>k0Rxgs}akzMfzu
zgwEG4z*)VTV|-u2kB%krEX+<Ankl<T7W77jXrwKssOV|tb5d13DRV7Tc_Kj?Iksm0
z{dWCv>D9fbc)5mRyYzm^N90<Oo_d9PM&8)sZhVKQr{}oE{?NH=GDi~9x77_~8wS_5
z_;n4xQ7TFF;e9IP-*4X^cWopm&?repls12Uv2Jr1+vK<ID|&MmOnWwor}Bzr8)Z4r
z<1u^N;5}ruqq99>HO0xg<(}^D1c@#r30e;{jL#qejDN4~>KJK3i0K_KmRKBpoOX<B
zc50Xn5W(w{FQ+u{7|IQaAv~O;6JHd<qN5M7v$r@+(T?^-g|%}^%*c4z)vx1K^ts#2
z%9k^8O3ituv$q5F65kMtPQp&1I6Q*d;M>^DSw&jLVXOdk>&9?ug6h!46t4J;c28yr
z6-mh#<|POBvE--n9gqrHc(;o3P!4E=3gj@Oloyk5=0F4rA90#IuS&`RYrto4KwCv$
zB>cE(h8t>X{IJ^op%DJdnQZOy&Z|AYZY<o;T#`z^Uxw0OH7sHhe(_YY+VA4v`I*t7
zzx#@5FS%3Mp<<-c80Y<|#l&FO2tnZ>=TLHuyObBldAT3$dZx{;Rr_`wYOQ<#<j4=l
zBqf!L4-Cc~;^NZw;z@G{aO9?ga#XKc^V6ffW8E(-<h+s>4;?zB!d-mKqRTRSef}J6
zxVm?f+|fNq@OgxRq!)vPebCYARMBiF^@K^jiIkL-m)Z0pD9f~I0hJ!jvB1<P)xhWN
z{hCYmv$hi#N<cGee~G$8%UZ3hsfbnemC@yBkn>Pxca~aZA6q=T%DtjO0o#$b3@oaS
z*S>O|?pH;=H{r56upmur@_-7&Q_Ht()RHbx>9{`mt!mHRsHmu$W&tj*=5o9A?rlAt
zIr%vp+3It9bV#N}H}erqN{A`{&J$yTGpY*rof}joBJE{Edfr$yst1YFcO=t@bq!^1
zz*lYwC*$tE)N*N_q-3LvulIOLMA*`&fQCKrQ4xBDz_h#e9XlPCKx56!$`YmXYybk)
zONiv!JSBuu=p6@(+HaDtI~Lfb?l@Y=8l0GN^K&S(UW=vlShl)|skCV_I0oj9^8^yO
zBWCiknvUS&yw~z(yi_aipYWvV1+L05G-11IkJO}kzg5*!&~~rlinaL&8y&I96}TsQ
zHl*5PP0J<=$jCyZ`PS)^ozMC1yuY(*>+zpY$?rI3enZp=AZhav`7yRrUawxv^<36>
zcKkf=);1Yy7nbB*B*}|N^&mt+{4?ho@w`3{D`lg*gfpsg_{BC`f2>?Y-qdrlge#%I
zi!W~*BW3zG$rMWPkTBKAw<W5_Pu0Yuw<a>OlGSB?RLbxg_z6*3K<TpN8`C3Sd&i&q
zzYM{C=p7$SZ*6Jkeinbzx$fK^|FiPX4!=@OsBeA~8T?#M6L&|7<xcW5L?^6~{o<wl
zANTs)uXOAZB=mSq#0A;n$-u+cPc>t=b{ZKZTpgeggc(_bKlN8LikF)Pr?xuJNm*H0
zr8j*EM%>Am?Te{lTZY|we;YshQ2x@QaQDF<I0p3-YeL?vLADMyFfQq+(|l&7Q+&_h
zfqQs@!a;fMo?N188YoLg%T1k=ql^!9Q?jl+XWOKPG`!+29es+5YZbU}Fpant>)gO1
z5qYkbGt1nuc2j@Sl_oK=l%{?iu~xtycwyV_(c8i2JnGeJY1q-L2-Z2ntb?6h3+3J@
zwRKV03F*d%mRc@MeO)7ed{pvtA5ZvGu4_g0`HK^`^QK9KZj#yQH$M8@pBMFeJWt+}
zosJ{#M?ub7Wg3_FXMv=l@`&k_JPEzGHG42k)qZ9Xe2`YzGyWB=M~qSKkJctQr`|Ny
zFMWDVBOsV371*SRZE3oA+~^I-;Hc@cQU(B8J)P~WH80}Eem=ueNa$pym<sp7lJMg4
zN>?#}t*mChQ&+ECDVQGZ=twH%m0hxVw`^5`x(%(?VCKhOe84IO^ye}j##UGsAXrlz
z8RBeza$+*&&IZu~xwAJuJ>EA;ZggRJ@^jh892F8v^P#JxI-60_k}4O#U53qvd_<xb
zr`(GMt@BG=%dXRdTu1knH?xx0yc6sV)R{w{(c>KZYMM1xH3w5-T`Qs6cwDeh(^c|b
zy?XVbUUY6Cx#qh<#CiSXW?<hyKNghl0)}<5xBDbU-Yu`0(Jg;odwqsO<}t{w<3ZgZ
zplnW#r9|ZAQR2FvX?x3%J@pNLJC7*ki<dc4Lbx?@js^%Dt0W<qN9q_F8mg+-ku>4e
zsj93T;0QD(2jYaPrHqWq$(KKGZr<@gWWV$-yBo9i<)k#==@UiG|JZJ<YacSb%wrDy
zn>Wv*CeQo^ZN$)umN);sG%m0ERDJiKY-h^AJr<K^^W%{c7x2k}v1*wDJn1M5Zs4hY
z!n1o0n&gm&`wd(;pV11-&)7ODIrX^fS+(YzA&%xMy4Zqoyxm&;MlQhuI_FdtaiIRU
zj=cVcqb>e?nk@#IKkD4a9G~!1YqCJ=G<=;?uHnrdcw8X?23xMO)$dfD>{yz#q&ez{
z6qR^HnS*`Ci+R_UjKN-g`tnAhCa>npmnS*X?OvZqWgDs{y^#2jqFAypm*6}R!#s%X
z=H!dh5g1Gd?DzyOzeXpe3$d6lO5FHhEehW?t<GzC>bLuH%A0(ym_ls(M4lPwQEr*X
zSLa?L;O^H8w$t@8-+Si%O^X1(Xf{6s)q!*Q7amtnc*O70d}^=GoMq(cM8^rc+jwpR
zze*T7@izdhQ@NK=;Kp8cCIC2B@s;N8Yq3g?zSPylPl!H!`cwuH<FdMX5GYm0xEXud
zchrD<V1;z$ZbJ9T)z_;i)qVN$g?*r}XV@ZSPAv(z+G<)VQSkS7VLp`SV1#UD7oG^T
zsRIoqeZ9vLkst&;jIQZ$5~f4Nv5_}5c14cN<s3>Nhs<|WLR(Yh4axxlf-16$cR5%Z
zw0LjM(jZbynr#T!Z{wKGbE(Fgvs=1`=g2k#8@MLg6cx$vVWopM?*c(ofFVk1)3F3y
zoNn7pb4|Z8*TZqp^c_Cm{QZipmeEV=!D}dI+`1k(@id9ePfK;c;GJqT<#TOE49CI2
ztbudnDkr@Or7Us!$maKCm9?BTNS!RIp#eSBXKkA0FW#x}MYy)EuIPdYEv0S=Ou`Xi
z;WL0xP)N2+2xZ5(EG>>g%_$&E^TinmVTX~rg9#j^atqpz_Yg)><-T;&maA8<nk_9%
z6=P9VUvK0}$PsX!Ob*%Nlv7REE+}lwkVSZGg9*o^TlVbI7wcFcAjkGiA?}bAq$CSo
zx$SDwa(^r|G2EJ8XqzK3|CLd@<jKK(`l^0gVk*x_5|ZuAgB@F#n7}dJisbb&b>90D
zOam1<;k6f5b;_eagZxg8McefXpc8eZmOKTi-zjYK<&tzEq|Z%vR<1WlZ~p4WwhJ}t
z4N+?c)2pa))0@p@Uw~O-^$R+pfB6OWX>SKm<_1&O+D9#K0mnu=ii=TZDpeg#!h<wI
z$m0}lx*2x6kJnma;6jK(c;6=4vAjc_S=?6+(r<RYbEnA(O#<bM)AJ_c#z#?6H=E4(
z%84FyM$ioRVFX<jn%;}T*hi$*Q4rdnL;>Ng<s}v@6Y>qG<-`UzyMVgUet&y~8F;HA
zMBgpsqH~b#_<wunx=q+fX#kstAD9@QwLDZa-#dGR0Crnc6&-j$UNXM>3qjNUO0)n{
zo`EB$%V^l9;*?1U4XWK>^*WH3JyC8KnS%Exx&UHXi#sqyF$lO0*X0}BA(-)!a%iCN
zanlXo3+*5sWKoZ>n3eLR7c5M*LT>+lmPiPf)Ya(%6%pn54ZcKeL-pdO*_5qKAm)Xi
z+}3U12zEx>ZBO|mlceWgUI3trO`AC7&KFy-3hJIO3l!lKZoJ|9I91TgvsP~}J8%B{
z_l)jf2QUC4`7;;P0HRs*oF8+TVN*yKL|bKxa`3v5QzVodkrePkLU0oVPh?<bvdNy9
z2eROX<v^A(tGOUjNNzO%h1cD+TZ^!FTaJQ1CMfG%u~7MK?86LH`0Xz&Dm+M~1zL9}
zq2)oDAD+a`+XnTXWPAP_A0IM{Od3!W4Q$5mp(4M}BEsv9Q+RgV&YXxtgyb%mpBd9`
zd-pp(P{dIrB!X|x71M_9YfXJ<89#Ovn>C0o-<^8ePB@V7(Ptm?Hmk6@mQ7<#>?F?)
zI+7AN*l}zM+IPYQXoWaUdH^HO={xV0$r>URv&&|ppMAbv&Ygv<U(I!`;%LYH>HMX+
ze1Y_vv{!6DF`Q`Cc3<gAF|o2$)YN1n;L)v<51KKwZ^ADtgv?%%p%!IvhEx{gK9`S=
za#BV;1kzye*gZ!S@MiGJe%|S};8#d}6{tfr8(YXvFag-)&jra^9E^st66(e4Ns47~
z<w|Z?9QkE&@KAgdUdH!Mw2hSexVuUSSZYoawQ+t(jdBtT<L*jA-nP=(9;YoJugO3?
zmT-scSlC|Zwb#E?svug>dMl60W+ZtJVD7z(Q!Yy)LEWBQ@$Pt@32GN`jy;=RJYVs4
z11X3DZLBrpLPObu?YaVX88A7O%kt%J#xtH;!@Km^$N30U?3|5hzc4WTMr&KAq2zWP
z2;vfIhr#?>k+#16!Jp1`kc$B5to(I1M185Yz%2|_#zfZdAWMSm6(VCj6V#I<RVIKZ
ziA$3p8;N_NJu1xG^MY{W>*jKJM0x~q@2ZwZTnJPg+W+Lr(&B>laPE{hVd<JLykd3A
z#gloL6$R(R>*fbI82kof_uv0_*iilhCrfQY^ZJj^!LXBuni+VKkuagq?A_gO-n{vC
z@s$^zS7=(AFgrVbsRimx$AsyIf{u<3QN-EVaq$2_{+Ut_)sbJBm>zM+K!(aGi~D_G
z$I)BAUAb}vz70^)CCxiN#$zEzLGf~T{~<H+S$OrxfayFt7Fn@z#QHL?|E7^RZE`%#
z{HuW_P|4$5dhXRyFKcUu8L!TYn(4kw2}$QUDH7Y_x3lB)6pS4aub$v9ChuIA_3A-v
zR)EMOknSG*1#BK~rJ*}<C;eC1c>aU?_kYC+^q>8R2`-!Ep8Nbu3n8{|71S+rZ%o!J
z25GkoM2(kmI!ze-S$>1d(n1*Yz~=Iw$yFYBPT4df_w4YV2>Fn_x+T5x=UWJMLa@zf
z2iww7VVY%)K*|R4(wEb-=ig<2+8<azn4$)V4%)sKggub)Adv9`3r<5z-(k^J=0U_<
zAUjQzH&U5_^i^49?4-M{g(NaUv6Ijd3VRE913Wb6L=-m#o&K7;fVUFCVcJ46E}>l^
z2XzhY5nN{KKv)`8lS~~+Nur6D#nFvd2fVG=+l-Bj&Q~_m3}WK2R_O0&?-A4<N!u^;
z*cQ}NJBc08B}3-Faguo2X#yDp=B-QPnXXefq&I9Ue5mqZD`8?HM{w*{ZS@2gk9#Q^
zpF7!P*&;-2L*xuM$7J3(k?*`jJ0BerLwn7bg++NNC_X-Z@(zpTrLoFa_@C5`n@{TK
zgky2NO8TC^brsd`W&d**z38~O2OKgb4Lj^r#+>x^CNf<`*xCI{Q*Gz*NQ%cQCD_CU
zQxpIrEsrjx)@!h!vW%mole+?XPw9#EV{!PvR!r=9=|niU(T>${OlchO_Vipsz05|`
zT4+byHiC7>Aiwh1Y^u|*t*yPJs;c@$lm!;Ayu7?9tLj8-R{!kP{VC>bsv^R|)^;tF
zsX=>qk~|==@vtkd$W6#!w4d)1$@c&?<}(WJv+y6QH>u3CWBr|IJ#5wY<=Ig)t<1n>
z;>gjLMu~AE%8H1|@i1qF)~(K^L3JiE@Q{sQ*6Yd@IpqL$g^H@iTL{DM*vX~o0fwjm
zeDvnI;e40uF{f^^R{gOf(~Qm|cM?(jT|VNk5j~Ue3Kw%9iljjLFG+8(ItXlWzh%AN
zQX1id&`6S!*s`d5L(6z>52%1mLheTT`4KKW-;b{74=pMx3hmzP&8I{RbWerG`YX0{
zIEl8YlK@XrEp&Ki0&oTnw=ICYuIsXZWMfwK)?1%acU?ijcY;y<No9A9tB8MTqu)ys
z%&J{QLMrh%Srk|0$UJWFn{`jS*K{W@c5`tZE%VCGr0C}2I^1>j;Pn2mDc$p`A{Xd(
z!H>~cqZb}?u=?8oj`3O;lGVrH87BX84isk>Eh3CVTTa`?mI@~xP=4ohkw_jBU+(y2
zlpw@Lb*;#c9soAWhitop^C^5S<4ec^W4|{r<`J~ay2M02ba(%(<hyJDtYXN5tOQ&U
zs}H};P&3g4jFLX>PsF+|B=Br6+sxVV{(8<9Uh>8hlH-rCAlt=<?c{eNJDVXp`)3~{
ze_{|1mH#uZyyg8bu{Hi@gV}$tx$<9U@n7my{nzdM4{zt})9hu+H2@adfNSVLDJtr0
z<SN)5A)o3Pt-o<?%=is}l7WE%@<R^`a*H;sn4KmoZ)m_QX8gv7*!(gB8N}mJP)oJC
zf!48?iepTAiGVZXm{&Ts##ZcLNTrS8@4n&)xR;bO`)<H+wlz~N9`VsAIyUzFX&TZS
zq#HU0Lr%VO^(unsV~(_aJu9h~TRXCM^oL&FsVaiPJ(cqDwmBPPY(;R^sdrQv;=Tl*
zWG-@N*A-P&76dpZCVIY6j6GoCwL1`JTjQGk>eU{2%@n(sPYUA<q<~go#`I5s>gq=j
zUQ9w+N%vS<IOPu;p*ksiB(9>izJBYEW2xG7m)U9mS2(8swF>{kRrr6$fc~%B`Tz0T
zNkU6u5(J}XsNs*p-Zct~bRnUC8h*R8UdvzI+T(MWbTI(;#i9N5r@8rR$S=07M9}Pf
zqEI)xL{y?@V64vv3iF(~zm19b&Ji4*zPd|K{)P3NKea$A*#?D(=v9e>Y1ATcf!l!7
zNfaO~1L3%cYDc`Kgx%;g`GF}ejeGFh))P}9Tp!v6?o5RCAY~l>^|a=@+~0XjAa8LZ
zL0Yl^fCgarX(s4K{44y7gL)6Zi}9l@R8D&R&v?JQd#u+I5vH_ZBYCxJyE0x5^D2d%
zoj6oUunbV8L$8ZFo!a*s4uV5>$4TNi$GTrAR2`=~uU<@0o1tiEHN3qpWyqGRiLfQA
zuAorU&VMn3SOOxHpemu=;m-gaNs1KM#h)e$Rf(W}Z1S7^<(g3vvH$SSQexq0iJCac
z{A8{nYsRLlqOWF|Dcq36;!K<poZiR3f4qICktoant}&HP-}bV}6p!oB6hM3-r2ZA_
z*<@$k39AQh)ukcb6FyBw$>mz8S)}4DK<5o@c`vFL_CVNky>P?JD67f-`pEqDQ!#+1
zp1VGRg5FHRDfI88#f;Al4Go=ka|4l@k2(0A=cn;lIJLfgd<3VZ-ji$@hN|xQ$@KgO
zC=dO!w^xPb!3$9AMj3w<T4x6bP$4LLFBQ&lYhte338yU1kKu+!$U0kJ4iDndr<Vrq
zOnck8G-u95@~+71dT!X{XaWMz8|J~SVF5QJQNV~=Tfj8{Ng|1)p}zVAO@iGEqQ6?a
zm}nG9u_|0Uu2bsI$2U9r8$4~7`tNW@B_#08rd`q0)ci8Ldo65go_RbxU<Js%1*uGj
z@r@sxc-z!jhgwj^CW788D%`5s+{@2RcPbMQ&jc>ux#pSR(#|ZalH+eZjo%EP1xa$j
zbr-rru8cb=sZP1L64<^R36gv=wE9p}S?2;h^(%O>V3we_W4-k7;N9nL+0d^Yh;O^d
zmR>8*#!@U+nu0>Cy?Tw#kU|(UbnIYh{dI`GyPQ-)j^0VP%g8R}%`VXKSKr@E@AjF^
zp_r{4CNwsj@h2oDkB^lJ@|!eg2$zz&JFUqeCfI;pxt{nm?%|rA$syCks?=Kk8-01_
zg`!d*btxeR$%DYZ6Fz;L{!Ey$UjK^h|Iga2{$I>;6I{h!dEZO8%%Ig2!}GX3dmu@c
zsM%<Kx#%519xcNS#m~!IP^lL)NuvRT37n(Fc?jW!W1zb4`^r-?3ztYE5b@sTAi!{0
zqfrk3W@AGcKOcsd;~D(mXv-3(Km$p)9fGE=!PWf0-4^bEjxe@`n?#(+K1P3!6FC%d
zngq4L?W%Iz2CT~&$$~A{)QI6a5ypc*d$pi)-p5jpX(*@DE<MSfyGAOW@$U_4L4Z;@
zK7|IB!(f5hV>A~GkUfZCP+cWLSFj6B=+x1PkgMaaQ*e)-i=3Mp4w2)7H;I{B=~v<a
zzM{A|r2}jJoaHRMoeqhC^x$2kw?(`yE+N5mVu?6^LC%AZFdkh37ic*P-iG(zE__uE
z=@Svng@e*^miRB+-NDl*N<qA>?mc;D<^OWMpmex`f<eKGI>9;#?FjrtZRkAiv#;E6
z{?g(<pD^*o_Kw4Dv5Q!?NHZHhTv#M^64HvNB!QBQs+ln0f1dQb%jA%FMM+l0^69Cv
zfbI7JP9FaC<R0aBEI+Nht@Jv|PR9CRqNSiyrg6ODv+S5`ojzT^{(VA1HRY*aG%~q#
z&KPJYCLexuAl`s)>`X=%tIWmUw&^~zm}K<Z^l{zck+Pl6g2PjqmB+fL<}0>3IqOx7
z9n0^Ys?xb?k}ETZPMm#&B_jrWw0W`LTetnP{UB^f)Yt{Y$em36_3c40CD(P*AHJn>
zKxJDTI9noRfP!A|7kLxqPMXOA<MPFzgFlmSah8-MY*^E`dp}qUBjqlbOX^y04icFN
zraB?SXu2ge=BqK5%servxV!K5J{r3B+>fP_B+AkDz@6}eH>+Oqq-~dQc9hN)CueZN
z-+yM~`XA@wU8Xmp0f)!u>gtV5OoYpK8~m{fXga$_G|;p0xw&~K6LnXeNhO8;7Fy6g
zddOthn5yt|4vX%vB2Y`_4@6-3M7&KMzBPS_yHmW{`{-}bZ+s<WyA@qkg<595-NMb>
zJnZe{Dm*>w1izhn^()M^ifVS9Ps6*tk99p`J-CXz>!oVrD_0v}m+;OlD#=))sWJJm
z*BVNf{J1*Bl03=N1+%-SM~m5fzJ74?&)!Vl=6YkGYF!KIwM*W&<BZQP*1M<nu(K1d
z^vCY8xS_z(PQr}OP7bo<+D|k+5+Ltk$O>oG2>qH1f6Ku(R&o1rZ%an<>vzlp7vE8z
zgF!pk&r3h*O{uPB!|#4yo;>v9auo+Qizw6Y*2@KfkoVaqWo2cL!vkjqoLBhA-L)MP
z^_r~%_l)A~h>a|ogM6whZ}{mSsA&UC_qMRGi-kInKQM$Y|Ea~M#g3D7`NdpI;1##2
zI=QM4w&cw?r;oFP^cQ8tl`U^UV@BfUA!3k+Ri71n{Kr}2AAij)GfkQVd7P2rgub8E
zHuTdLJ&V%@)2Z3C3-Vqajef=>O9G6xtJd$h(p1qsrfl=$ikC`{w=JLnPq|40ZvB6L
zWhCT~CTDcJB@OK&hjLx=w|gf>9AHpgpeK>uK~%?F{ps`*+0A|^d1wTe?{kNda+EiB
zyqaLq4r16+v#Py1`pCzT!+vUrHB-&RYmN~rUH{`B7w{UFM*_w3z(83aFsL2qb!+Kb
z@G8`*+eg0`OPK(^&-B-x=>F)qau}9{zaPhqT_fITll<#x-TiB!{>k{C{i`YXuWn&U
z9cSNEh|Gd2Dk^CXOUU*6J{Tlj1OA+tnCRraBk%^~F~Xj?|FTd0fNWripJcBSxCqEP
zwDD!lL|-izmQtX82xU{Rw}GLdAe(GnObu)8moGOce)bc6PxW0M-bQ#XE57UytD0_-
zJynkTOZd<7@^WhKQpK*3c-3@X$TTJDD}xB9jiP=pduV2+otw95PX$?#?{1oyOe!}?
z4Se*;dKjH*SbqkPEy8Km`J~O4=4K=AlPg8FxZ~8bg=-dfui)X~3GfM@jEZeud?q~R
zIt4YeS*u;`z~**P+g?zVp9Zt=Ye^nFL2ZmvO|Mv`E~3EAEVA0RK2}+w%X9YyTv)iP
z4K2&6=<?P}2R4_e|74j3!J<s!!@SZdn=eeQaVv5xrRhi6=gZ&YjYFpvd&h2jh_zta
zl4ER;jxNTd=$vSWbIFrbK*)l5r)7l513O`(kQNvVqksglY|?$5=t{oi2<g#BD^V%l
zoc>fFE2RBk=nK(jHi!;j()80Uv1E6wl>YqBo>N}l;_mJ=*%+C!aEERFrQ?r+i6deF
z?GpV%6qp=zV(Fl9H;)dZE!L1MwXTg02OF&M3lR;Qsncw;7q@f$_&nLpy1*3qR~H*1
z&`rwc11kY1Wh%4sX>hA83ppcK9&C!ZH*Y+;y1J}~MbKS#6o#uL-XCGA^w8YK^`tpF
zHNlBTx8lWi6fS)9KkeR*FuwqGe=F{ns*x|cs7Nawnkx#3QyaHh*`Iy}Rh@{mi?r4S
z^*VJrB&u3t$WFf(9DlX9N0s^CyeXTgbRXopyE|O(&{gV{P3bYbYM)ilx|XXkiiM;%
zu%p<=2bD<FkA(}*rMp>2Q6YRHn?dale5A)MhOF2PYi-fVGt>ZSs-0M8h$_0~?jQRT
z_>|u6&KtSQCz<cO&<<;cne@{iC#hrgapQWpg>23TiQ21iy8h(_u=4FDYCGwk1@lE*
za?Pj@uy{h>yg5jjcq5NQ-?}*1YAyK#`lw$<Fd~g&q{QhR)uW6B(7Tbb;{sC*Q82nJ
z)Vn+&EnrMcW+ewB3*hBsahe_fl=Wx$JUF&*2eAobUwFH_A5@4a04<lLoWa5b*@b0k
zlx^wK^IR&@+0umO(o?HHkE)2HR>Ip-JxLgP5_Sd?;0dmt1PJ{5S(Y4c3qq^4zC%yd
zD^+6&L^s7L`oj6G6u~kOZP8S;f%mVtG9UgAJc-yJE3zjEf0Vwz?NXBlT1gbC36Mup
zh*0y-fA@h5UOh?tQ*mjn(?td>!*p%#ogbb(vE1+&Yu<XlVzliJV_KtiU97Sh4EX6;
z^l1kSs(#pBXr4a`%kMcKPTXx`Tx*8gmNf4Xqd_wiK{MEu3(@zeXdnVG+MpNW^!If|
z54g*bHh!YYoh#)-kA)zXYNPHPX*AD+N^T?hLvm18Brt;=afdX`@e?cp-6?R8G*1@6
zQ?&#6N$-lH_1U_0WPw)cSlx`CCEnm&@Rus38eAowl0?LS1I%8eKZBrHqJiygr6-M-
zvi(o=lkubzVa`y}{xPB9G;5M1JtHx&CY;tCiC0dJNTDU`RhBi;H^azQY$G@iuAzNJ
z7%{d(Fl44okt!c39QTDZMU`ajB&Xua%Y}Fc!`?w-mm!M~s=-{1yhLt_I8ft1KL&y`
zt0z}cMt+Y=V}mI~e-165AOGniY(9rdg%7smI+&(9C1~WHqmmW<Z@_I;4r0WTZ1)z`
zVG2aVe|kVvTyFJbQ>tNlQ(k6fW(qA*KIET|%y{hE!|F+7;r!Z3;<k{bvdvbx{r!lr
z^u!TX&QVFXvLaOzz$<)^7^0N@={KiJ2Ma|GKoev&5IG62EG8LyJPWmAjPs{*hYJyC
zcQG*`s+fUs&{h9|{r#WXy@M9Xg644P-cizxP8vh!;l{Ax#ztr6Rohk*Deptts47q!
zU(P0aB<a)r`^*oCh1L-J1QyuVCG@$YG8*fy^g&;KYWXDTG$Mw2)=OkU190WjnRPAe
z7kfh%50dE#7wWz_B@j0{@lj4!`{#YRq(ffEV5!V1aL48jU|TV`tD2ieM)wJ%CGK=A
z9J*KPxa}?dIQmQvhNgtm%Ujmtx(Q{(kB*QETQTw}t|qTO_}wJ`#qd)5Pt9uMf0*k3
z^#XFETqXYp?!y(G%(WlSA$!3@Qh@%oUr8ryE97oMWMYF7(?V2pCq2*Hh%fy)hpaGJ
z-pm`x-D~fj+8#~+LyxWc{x&d>{7Ash;5Hw?PA1BA28_9->OY(XZoLA_h8q&KNhf%C
zG3kWb9`om$O_J#R&BMROzl8ot-gxv07>?-ndTGvUrQqLe6G=!H>Sn|HW1^-@hj)`9
zFmTNm8SGXEX_Z1lOJG#&IA;{s$kL-Bj8@?ViVe~a$<wU*6ZT=93Jfw{z6jsyj1u5n
zX^O<zlh~GB+Hb@?3)`)S`(tCbkPEcxuS=b60^x^VmuO$ESuc!Y@E^>5rM5w|=jDYz
z-g6&EAIxVUPW_O#$t<9OyEyZdeJ-3mNeQW(pKB|UIB?qLGm|#-C%q=N*Dpgu|4_QU
z4sMzxU1vJFOmG$9C;f++vaWJ;o?uM*Hksu>Ty`~->v}eXO2f`n9umO9`1sH@eG3_N
z6PQ4J<lrV~9<>Z)ibU5k(^nTi;ws*wQr{%*Fj<yT$vX3N`{h)qQ)T&#@qc1Z_=kZ#
zVIDX?cV{#FsJawC#W)o@1O{@#SwVE8ir-OsNA+A>m`k5&f?LRGnVX#Afz1MpH*9Vg
zvz)yueScq%w`XB!zU;$g+N+a%CzQSi;WqDG<h5e<a-u)VzcJC@Pco})M-G%NdKcC%
zQzb#|uYcU-hh?IA3?!w=PWzr$K^kmi@t>&6I{%J^38ijQZ8uLAz2vdnf@MX}9V*uJ
z=0C&J4#OXs*uOv4U#sR%J^o)W_}7ghE6d~mr|TiA#C+?+=fM42wwRmsoJSoL;FFC;
zNmBQEZ<DQJwJMl8>EhqxeShCaxjOAnHfOTJo(M`TGZjOPED4Pwv((k36Jm|#6-C`S
zv!{J-!UOIAU&X`~eSR)BI=X~}PXI9iHd(@gkpE?DY>Z$EG)O95#ODB?eVMChm;Q{g
zAP&+UG;sv{rSQ3sAu4N2F4R6{$J=-|uL+o3bx<kS-iowq)KKc<ROzQGWLSrS-TK>F
z@z(}}O{oZDsIzrRRL#shHkQaS^-@eF-9(*)a76SUAD^0%GF{COWQ5lvpgh(ODb(U8
zCj>GsU}?ReUynD=1cZR{QqY~vDE@iJ62G}gXN7rxJUBmc*5(ST>*q6rA8Q}QU!rHG
ze@{;Q4`k|pN09vM9LV<mA3;t3dKUE3```A((@x&qhGg^#86-nmNJxh?8Mow3neBOo
zHW0{(=Kgf<<zWEtmJu|ICXYT%aNM`%?y25PbY6)DV?0>~c#n3>!|~ZAZvQ0l6#elI
zSO)Cdp%|~W9b&fg<~4VxL4j^3r7lE$aWiyq6+hf_T5Ghu(5zgj{z>+E`kTru16%=^
zh9CI(`O%vZ(7#0{0TRX?wn>l+T*Mmr;+Tb2Z*_Pl?-uf|-J8_e+jyA0$TS1U;+Qm*
z(%27RM2dG1C9%rMqN&34kN2+L_frc2%qS`MvTIenJQ<f30Ng7nIX`5R-=C62Ud14K
z+5Z<?(orQXNf;X(Fuh3^x-}CM!Nzhibdura-m8AuuG~3bYMDm;e@zzxh`aCZ4r1@7
zzP`TTFW&A)F*ZgUv|n7Fb;Ysnf&!0CHZN6P=2}CiiHa?o>@biGSypv*5G_xM{qfnl
zO?q|On=W6})C`$X>I2Icv2b#Y{p3Kvj8fCBmQ^$v+*`zJ)cGXbg4Qf?<W7|a!#3oU
zU7)ONVPPR@G~+c|bX^X=)5;jb(@5VwA}lQIC$w!AlY>;!rtX=)iH$9DY-WW9o@h`T
zeSYpAK{V3&HlwryLI!D937A|hmQ5OC#uAU1fBQ%dlOo^HNZPCL8_S-H-RCXEaLJ}!
z+WK&t7j2|f>~a{mR9BWjT?N^K(OAhXT?o`%_@JjJPr`Zh6C~COcbYfpM?TH|xo4vs
zSUz)q2K7HKNwX5RSC$kVy}?ZHCJBRzzSYoXofF?NVu9Pm^&gfHk8OrqFkKM+Y$=Us
zU=(6XG!|Uug1KBNbfilrC{Zu%dlL;-Og%UW<ZyN3&nfaqTD@cTczGgzBXI3!eYmy4
zWs9+l&dFX~HVEZD-(5*!`;D3JojUO=t5b3J{VI}!_&!Whp>l_!xf!#@_%!oA-H^)4
zo1L8<%nLQ_ei6|m=QKC@z}+2qKc@W75>XM|C;SKKOU7~qmf#@D{@$(LXlaY96}ITE
zz-vJQysqh^b1pq+@se_^V|1=!#Kb3g=cLAdkU<_W4@<DK6M@sl;D_SC8ZP^D4ii%`
zn~NiA57JyhhF_s<*$mZdiOg9c>xyXZbbAOFeNTTp<Dc<KrC^pNZecEe$$>No@q^-n
zfI7QBVHi~PC?+Iip0E8;5hkD_WMaZxDNn*qpbL$O7~RQ4F*px)74Nh-?+91NL0au5
za(yqkdM+<Bm6UAFbHd1y3U_p_g*Au&xbi68<dt+v?S#$VAB^z7MVCJfNB<M`@qa$j
zlMpC`aDm2ag&~0+NzyNX{%%APjNIHNz0*uGfa~@Vakv~tgN7YB+3ALBvbjsum|p8+
z2@)F$+B=r5+WD(qkd-1{ZE3tsmY6Nb1Q0F@p@;FLg8+k)b^y$op{?{u_Rh0)=r7ww
z`rM#O!gJy7yfFJTlU-DS64E;4v?6B^er=l`iKD%CP}j9Vpn<u?(2g@$+~jnGjvRSX
zRE=n?&Hdi`(B?JaiC>cS<h55@zq^+>j(G>IO1D|jI5oeASg^rZANKog)jWnqaxWMk
zV)iQ9L@oPMto+}j>}YPAWp9(IsO37yBvDDp0bCl{I6{~ORIRiF-D&|bzgxlq>0eZ>
zxlpV5G;_yU>b=Aivad2Xo~1rHsGwEox#dx5XNme6jzI{j2b}UTG6#3&HODn>X0J|O
z`VMiOO#VSyp7@(c_&=8b1RFC9rsCt^b~;0M{Sb2jG3t})D`@qT!u^Y<K-!{@dc!6l
zV=U-h0H~t3;at@$KTD~`bz}J1eN4tHAnlMuq96b{>QY!cnbku2waT4H?+9xBa^|^w
zq#Z3{GmCfGYH3AY4IUK4gBE&zh!~?W^!R1X(Z%a?o4pF@ha<u<@o*_7Xs}}LjSuMu
zCxrg;RU5c%Jl-lGMR=gWcR!k(S?JaW(lw~8yq%2eBSR_nUwFP5MyfcdfZb<LQ18n&
zJ?3KeDm34^jM_(LswJTN0BV4+gE9J@=^cQ`4o$RSv{AP|mgQ|6m`T(wrdx@+oROMM
zUSQme>cAX`aBn(UIx<6M6k@ujz1N&3RN_Qv!N!T`NC4g@gB@&Vdm|y4p*ft00s_}o
z1brA~q(%a`lddr(wEhMfQ^<t5Z=Za{5)U;TQ^%kHenb#q%><bE363C4^@ZTp&lVgn
zjf?gf^WX8mLFxn21Ak!ino)#50Wu!22bqqHe=-9<N*didNPi1CN19Xj*bE`cVHepm
z+3K>SglSx4K#3}i4^0EerX5&F?$<xulM10YVL&3iF$;a-W}vl;$p{{zgApRtcyjD6
zpW_~Mo@7|puctKv544k+6J#O}>3TQ!UmjF~%hN-QB`y&n^I#suZgNmESPA-!2z~Si
zw$Dxxnxz664oNI7L*}ny;bKak22@~MwafN5V)8@Dv;_%pluVC6kMOUR5=)NsUJ)XM
zqD@RcKepnLYx#Enl)@c393B5@tTQ;|00PboQ%(v=-!6$RXs9r$afasZNt%8(P^Q~@
zsOhEvY(Pu6tv=-L%~SIiR3#;eu7QfGT32GrmV4|e#nD$|+A&+fiwx%@Nbj$EFbw7%
zmIoj-5hC;>*kIR&A`8=1BNE}5`V)q34-I`$kbeLJU@^F^?O3VgRb(I#T3bnT4Eo(j
zw_7`z=XT@o3zmwO+=xx1f3Ny)h!(#6Ey8Wzm!`CD%h{$+NX90(klwoZl}YuWF`@4$
zIbvwo@RzAvjDiS-mP;7*3(f)ehTf3{sl-i$TS>`vEW)w1!en}~`-H@62IGEQ{<<AU
z4zROh2h!r5g7zjRlL5~219}p4#WwqiH9v2*$TB_|(n}Hxwv9b>{PzhBmb`~cKagOW
zZb$0vbUowW8nz3Gh!kVOL_3)*DDTv#Kwn`PqtT#0oDZ$&8PqLDGN=*&L(W07VLOQg
zo#vU_L`>8qB?Dd3i8F|a3DX(}QnGeSfkzDAe*4ZUMw9xyiboBNaVn{Y&{LW=jdNom
z&A8B^I6SIqG6q^=-^*@X{2PZhsf{>%VD<6mR<72!GA8r>SeW`x_XdkQq%{tqW!#gD
zKi0r*?g0+jdF$OWGt%yj_L%Ytt;maztI1?b@|s=fiD|gyQh}!E!(=QeS-LTE;?Q_U
zX~WLxv|$l+vrogNl-D>04v@?Q5hT-zMP=NE{upHx8yc^X_aU*9w04o1ne<*xSn|PE
z60xlazOL;b+!*<IY8i~8mAH$DHw;El3vj^&q@C7Sqs8QovAFbY^J6e}Xn%aThi<_n
z(-Sf<84}J1(r@kKG@#87WMaKg6+Ch5v%_|O$zN<`3W&_f<g(gKHTmmlh_(k|GbnNH
zE(Y)>6HxG8HprFf4b~lE$N0d?lB`R7y%>pDNXB1-ULLAac_oBMw}?3tg=BObk;93y
z%Fa#)KY(3mVK#};+)23QxUVTDv@FGtd^8k?qNj;W46~kE{l;ScgEti$rDK)E^vPz7
zbt3r6&bJ=cgm!|FusgCPelq&zvNYvFZ<vJ~|GZNKz9DjJHL_wIR8zZmt}Y2j=pyaZ
z4Tv+^O)2{H83UwW9deyFDX`et$?#Fkitxtx03#uXkFzfh{E>0P;wO#ARm4W5ns?>5
z4#wJ3uP)ZPre8cjoSMueM-delf@8fwHry7|NJ-nsTqwXnNnU?1Btw#^ns0qrKZ@aW
z6m;jC7Gi<4ep>n|D;b>*MVJi3Or+`F;-@g36~Yq4Mm88x@hmh+`~Oadfy96>6Y!E0
zktatS3Qbp+TdweS`B;HAuIj!mnsD3@3oQvZ_XTZzrtT>aI~P<`VKS%EIQV{2T=&_x
zf+$Pq&j<OJJO<({A{C|9<Uk`o28Y6BWLCysOa?EoB10NZtZC-1^bponOTzeanW$Jb
zmnaibcd)o*JhiBkf+j*AISn0-m<(N}-CS-a8yosJpr4H%JFzr<Fub=ARb)G9^2aoB
z%Nvc@qNK;HcjIdyu|ndKBkv}tEHxfnd&YRRtad`~q$lR0N5rO{(6g97ZM_RTcm~Ro
zFtoCmbw0gT^!EA(5(kNo3}^d*h<o=*lOS;s0E{2B$$YConzPANJ*LFP7yZOSLJ&CG
zRd@MFEZV9;uA?3a>M{HkUor5Jd`G|?Gu6sRzv*3tx0?76i1iyWk0^~~`~-bc0j4V4
z|104iOx@<6<8SD5_K$nYn~7QzXbk0h6I1_(HuLfpQYE9@E<o<vMN~@?x0;58EQx1n
zjjKqk+j3Upj>3ulzP`|F2^wOB>~lorgtJ7<41+e5{GXc?k1{qAZ4q`Ues=b}nQ~M5
zZ1g`f1+<&R*@Pw0#l_(z3MR>r`QAJhsc$V%g7HK8pYFSszXKG4d=3;QGHlV*EQFg}
z9zj3ooKA$*_(?D|SZ7<(Z)zK_ujKO}DGd`M(cx|!pD>33%dm7-y*e$Hnzmlp@x&sw
zk~cA9VCm+65cF`vY;vLlkwPZy(DhQ1+lbqrsPoQfBq%15D-#nSwI(qb5>?2Wry-<v
z{R(Du)-#b|2-MiYdl&6%qpuRV!`(dt(2PW=L1#qvV~cxONGqdctfrgI2b<EVSu&ge
zV}DgiYoZy-{G*L`g;BFj2j<TNX23^I#t-xBSHD)IS`{4I_yk@ySrmFM?n^TvOCD(M
zmnxV|yaileME@=U><krJLYQe%+V5tKxvOnuP7!Q_f)uHR?l!_a3e!4WGJ}_i%m=o#
zwhMGT;SI|zZ_dac=XII#F_eahiI?eh4Nij0>1=<ZAm>5!U_xEkPJeal0DAC_iO<3$
zI5Il#8K&gi2Wt~!<5NC+?<dv%7`6Q8r}b_jxHaCAcjLL6#-c%;_GEr(rOLv|YUTZN
z&>MspqBoMkvhA>^9%P*&J{5YjhCc(8L6a66tC?>qPi=Op%Kg%KnRl`q0er~)cE)!R
z6p=Ba<wLvkP|#;AEza%LS}60XxWdg$pP)&<j|j&_Qd`xZd|LGl%k0vcI37#6W4ItP
z>;tp!HQkB5jLZsoGPG+BlR>d05QN_!1z07S<K~3d1x1m~4TpU*gveMTG7;qxzIp*^
zvGwcJ?Vtx8Y)Oe<omUbUENQ!~WvkMI<&TL8AlAPz`|XNCt;CeYZe&hXr`)|2k6sD_
z*V~R3Ztd{TpVuKXmg%K96Nw`PL>4_@sgIA@A=bCwa9Bsp+7yA=48uq0Z6qWLU<_js
zNqa~=^!bn^K=;?hd12kA+6yL;3`#1?NSgmqqw*rQhomY8ys!<F*xd@;MsGtW<`gok
zI;BD%0}8lRQlczRNnqv)dBy@U+tV=On2#oI4dOfz4K!p>h!*B*^5bg>$n+64``&P!
zH^v`UXKXUd+FLAPlucqBwvjeQRM9aduB?*;CZI>MyUExIjFyLcl{kt5V(xxd0WU~Q
zNMtcLpcD!tG)Z0MKU@H}JIF{hjOiwA5~RT*aDdb;Zw1MElQm2urYN$RrmNg2S0=d(
zAIPTtRraOTlKHp9#;EFKOrk4RW^}D=5u4q&M+6E`*S#W91kadPoOkn@#OpVW=3m($
z@D%~@sMyZ~Wk0EtEbBB^RZH)}sG-&y`W}Se(~k_Q)17ml5VYaL?31AO{nx6VlObco
z0%eQ0w`0i3A=&jTMc1L1fF@+sd9$pfaFlT{8Kvb>1gH)S&DT#ZM=MV|_{xb7t7%OH
z(Bj)d2AHX6{3yh1vCPKrc4Fq<Ka1T#I^-rs3qqL2Z2DMIm~lh4tZm=H{~f>5_)7C-
zlgcK&j_&kvhmUo2wRXdKNE03aOvlJqI}j2HJxu(#2il<9_(92$(Jq*w!X(Gr@P>FL
zy+!+?i0u!hHG|Prgo}2B+y~_OVLXpE=vCqeAT=lekn!mLV^u+Dl;$(Rc$DcuQx_KE
z8X!j?If4vRqtDVIc07#m2u(6CeRRr!gy)f##ssmo9glhV@BA<rT{5oxM3-28i`@U;
z!}@&u7y^Js_6!h}ZQq;765_w1oq+EF;z4{Uus=x8%u=vZEPtO>CO{Uq4ZVGwAthw{
zkFTluUnq_f{;Aj?e|;<#FL+?wrBS}6?|kITRM52JL!S$Y`9xBnQg5^p`!E@uunin3
zdGf$iTj4enAyYt%^IFMSR?msUSD+ea3es`ZH)Nhe4x@j`cESv<y=1mEJv5=y>_F|j
z1_}WBx6aUCBWih*yoT6ziD`obHhP}wtBs+KYT|ogt|;S<yYd=Be>a158GJSd_V2{3
zyo3(aV8*F~#L73->f(Z(OYV}^AOBd5eyI%Q>^!HrBC@;CsN1HS0JpF#X<38$6XTe)
zaZuwrYZ%JO6!@J0?yB=5v8Y6Fuh03Q%WYzt*yK`Ew*RlJt&|OItpRpIQeod#@7u^E
zHSTBr@u%d=9d94LKcoEd%}!=v>y6=;o^*hdx*?VLb~nC>=-19GM;>o;(-W+?H_AKi
z(q4GjWyh|unb`Qb%!K|t=c%DyYC`{_DUiFUnuy)^ZvbKuAK)o`BEgC$X1Ug3YG^?>
zBaj0_@jk){@g4Ne`4>k=W4@X^MkK~FSh&I?W<Br`m3$t{&|*F#8|8Ic+GO@uUMvtd
zd`Xe333!3^2RE-dW<8)3Ea4J7IXPL)wEF2&wk75S$c88g$^emTs;VBs`S%UmL*LM_
z6ikvJFbc;fKvoNE4413YSYf1lEsJzm#H(dK1}F;8%@rSR$%S#W3?8n_nwm?EO;9V;
z@}0$H1W>N1W!&0R87waA;NZ~fG}MwC2vg&RY`0|$(+)>Nmod2J*F{Pn86RjAoEoCZ
zf>6zWmX2*sro~t~;Y(Z4x;W@%mu^BULH_Y|9QXrYN71M^<?_w_9_HwE;#SB!hRs+P
zdtYLnl5W~sfnWJ@U@F2V#B&#09tH*%&L6iiP{ef60Jjkp_Mr!y7oLyT-V%{PTjV2P
zcupDI*t*^wEje}yYix=iu=vC5YGts1UYE;gJ>WRzvgjB&wThu_n2@?JRSAtOGVHWt
zz9LX$IB*PuP6SXSa(n_L6;uC!YW7@5ZOpYu@GuJfp!RAS8lG_kpydJs<3o(8X`LWs
z4l;WM#jnC>Cr<h&qIR3<%5|y0G>KEMs=iu41oq_^92^Xa|BC88d{jbO+_DZ+qbx8Y
z1o`fOKd*WT>IeZ$n}eE!|1)aN7)^F!V3^J(f@%-5bBbzOvU+OJXm2;4^Z(J@xxF$N
z#&LXcEB9*UN=?ZHA*PfZn!_yA$|)Bt$2qMuEktoAMs8ee;k6d+LfN7gH+F?BWz@={
zmB^frvpIa8<&W^zd-L}6_B_w;`99C@`F(!}orV3bmAFb{<gFXhc!1nn!v2Kq|KRiW
zCKEDA4lcBF39_AJwJ3PixQr4nJu<h$pGMT#B;boUXKn*7+r~y#y|YVY7X1Le1#Sqj
z5pp@PSZ6rh=RE;ucVunpU5mYF4}QGtxO7S$mb}cLSIpmNx=6Vv()y_=Loy9jWa#+f
zlGTsNDRKOQ%!KnEj7C2W4aKY`M3t>AAGwmsg0#_r{LQ{#370stDc|OzFK8?K*vg)H
z52Jp+AMfET1mWcl@I?0a>XXRj{z8L$NLaO{FxuJeqAN~zJ{b1igAm!)Ea;F3a_>BL
zRGNvPlI-^Dg=f~%_ihg{B^CH)O-As`Z{Y$~piN_}`C>)+b~z<xk@bowQdE}%kr6s|
zD;Z6ww+W)GA428+AYNvT3W1#Gu$5MU6851COoK>_U@A$Y0IJz+IPH49S~!Dt;;FTc
zatgBLc?Jb7Rh(kgWSFE@kB&gm+@Y7YyR&Tzo&NH;`2A|F>Ep<97h^rF<yXuvkD}&}
gY{>ZYR{TF7e&SP<dpmCrsWB2#Rje*@6gH3j0`-FhV*mgE

literal 26091
zcmeIb2UwKpwk2G&ZE8#yKt;et#ehH~0!p--LK;ypqe6j#f(iv9In!<1APOids7Mf0
zL~^jmK_!StP$U*XK?H#!2o#}!n)Mdl=k`D6pL@^DKj%4f|G7R-Hwg8m_uKE@Yp=cb
z_R4-;t%cvM{*FSSEY$v)dXPey?L?u>GMP6AKVb$v7{He~COTSFe8rz}jciYRnSbHu
z<F*uvh&TC<FQ8-a4280mqD}qru+#nCX4gAM&g9M=Xbn5n_lh=qwydU}*(Q<s^51GM
z==W~B@amRZ&Z9GJF>h}E=CWnkcI%CLLHB~CgTf9kUDOtJ`TMh*8jJR7Y}wEuKJVhP
z-!ob6(;t#TepzL9r{Sepxtm(0T;)(-Zp%nQ>%C`YbMo^zw3xjTH|O(iZfW$|*4e!8
zs+7JlBHwuZwshbd^3D2NUP9#S+6Uj}kgt^a8$R$p`tv3}8S?jCKh1aIBi}6DQ@~HY
zUf=%@oZ_--L2%yiqfOG%{%vh-cjU}<^UAbUTJ>;zL~2)H|2JMfSy@?6Vq&iN_~14>
z&j(hHF2gUow!ZoM%b!|&fx}AIlDK(guf(#Ap>_xJ%E%q9{r=y%<)KZXx+Rn2L+!qj
z2|iH)YDzBb-c=hmY<L^37e4k%OKoZAeOuio`#Rd-L{B14eeUg@BS((NnigNn`0y)#
z+jWgaS5i_^x@uze?_Yeq*{0o3v6yL{-yCV9t2X}WkH;Eo7vruJ5P0_N8Sl7(7yPCl
z3Vu0o^r+xmF}DkDANh@a>Wp0D-`WVu7_F%@wB5HrL}`1L18cSW#PAh8x3*=n7PWCd
zM^{U6cGDGGa4$j|!`&_pch^Y1e*L<wN@KBKr3X7z*1Y2Wllb`N4q4_Fp}IjG<B5Z8
zjw*gA5m58q-ns3{Mw53BwQcH8d28a&av`CTt1@|aQf*c6gefJtqb;tE=USKPsmNyc
zUt1-2uQymXy8ThGk*`HUro?XlHLIGl9RqxQea8m8)z=6aUik6NJ$XrnWy8DLL#3}z
zZ)?c%y?QkYOVQx2KyQ41GCb&YhdWa=UlA|B>)W#HLY`AS#&UDlT-YTceqwlJD4d(q
zAZz~S&W+7dQgny7E6X;T;kdNw<lTO&Z?m{x%Vf-3JUFbq-03MtrM@HjwA<Rz)pub6
zF$oD3_Z?fDm06y{Z?()7teWa0`|DE9lx-^!b+t_GWN@cB=0+al9fE#$`7^WpZ%XWY
z%^vTN@oe}s$jF!03EEoPo6nv06YUxA46kf(RvT@yZLm=v_+@dLQ~qs9eX~)?O`BdF
zK6<pTDw@Gi7)lMFiYpy@!aZ`}z>T}Irn^&1=%u4_p}LAIU57rGm-}<3IsJ<D(K|Eq
zteNejWYb@_G#mK*{GPl;o6kCbpY#?NNpn*p_mLV|hu(U@@(XSsewo{r^m5VFk)FEr
zv%SXCUxNqrxWjtMc3<9wva>(_F5K4Q+V2Om-_d?euFYG0@}n*%A4X#{@g-W(b+UEx
zv!d+D0<U99Cx1+J50)|z)Dm?*tui%SUCyS*vNQa%P1wB+HeC<Ai?J%Jo5M;!_LdXN
z&a&?j6cDh^8#mi(l#`*!Q5~+*Xka^ch6+7;^hkO5u9~~ceRp=lzA!EK5Cyt#vS~^2
z)M#t#i`PRN>qhB${p3}itX%)0{L;DV$3>sZL)M9#B<8Yx!>5O%$<04WNbt8)68U1M
zv_(?Vbo^@vvB<GDq5PE{9Uc4pM?c-vD;}vc4tLMRD=KLZP!|<eu=K$ZH8nNKXWvGS
z4M(eovW996tc%V?ht@_e8IUv{-(%U5v-9`GVxs&)($~sE6t$E>{iO^Tg{hTl!c&~l
zN_Ot>JDv8nt1|x4VJ=(nr%g+J;y|2Hu2Oe*cVt3>G_j(wH|A<LS?bm;IZhuh3*A#;
zzk8%(TIeIt(6NSW_t9oY<G5qV;^!?a*1;P*-WOuhlH+VsD4=zER9MbzZw~fGd6<F0
zrwOILr=>SHYT4V{uetc@`@#2z^ok}%dT`JmPN!sz?cNIiBgc-d)Hk%zWRIwhHdXhk
z!EABPAb0nMGr_DhuD9Co11A`PNonAQ<TGVK*x3gR421i0M~zg*Ki!l){pz}9>s9Hj
zO|@~yt9|7fR2$p#%15V&Y4tw%s^pn*bE06b+V!b<BVydK5(U2_G+OAF>S#TOoG5>#
z^U-4R`9l@T!fwBDu51iDn`S)qh$1d-i%XvgHm+}ZdL-6i?5tD1$J91*!KkU~FLs}Y
ztMw|`Q@!Tu%+vWFUwWH!+<Q&Mm|rsSV$Ku?h=sE}pU)QB-k>OS(OJYGm8wBKt*gvR
z+q-Yyz7YTBgPvSYYify<v~<N`ef|D4ZkbH}eO7*@8fUvR_sw0ojdG5CO%mzWhxGM>
z@9wZMad>0xF%+_oUEaBLA<Mq?^H+~qcrv9$a!x}h+l&1g*x!4vdG|Ou%(XA`Sgwmb
zdnE37YGhnoT<LVM;YIEH4vps;>c}1lQQh5|=ibg>T3tQ7rKXDw52jq9+@CY2U-j#&
zb#GJ6D|d6E55|nursv&uSA{Fx&B>jf=oxIXt<<Da4;(n4GFZ4wSvCFFUw<7N4Dh^9
zoAV)$(^vLIBa;za)>FS4PIB<WrNz60rD+ajgNt^2@ana!hEd&7_ng+{v|`^hu;G_#
zK26!ew-yhUh_!xV)4%)fyEaZM*MmJWnm3vo6qIN1tj;~8pR*9pST8r<Y3M`YGQBs9
zeC||#`nmY`;aK$swz=BS-7aRjbt<Rn!pnsX>|bZ|o4ovep)!kmJJIb?!xEd}uD1;i
z0ivpH^`-&M=eQGmHE=JH42FZZn)=iiy;PQDV$QbgIlUFPZr?5{5;DH;K82geYj8gy
z8C;hvFP+sDDd?_u@r#8q=LEyOOe%eQL*mn?Tl(<8y*=1U${S1i8=qOMv8(z~KwuE7
zNJWs-EiQk=&axhI&nHpTRf5l2)X=tEzJVQ_KiRQk?87C~#<X*T?{sA3g&9`X%)QTj
zeDvJA4@ot44!m4!J&={@9lcOkA+AAow81>w(iQuyyrQ_tW4GzPedUYXKfk$qlU^5Y
z-*kV%qEh-q+LIy<>#3npN$n2o0p`?7rt;7mxl~p|s(A_SOqewqYdp0D%P%f&GB)rr
zxj&DipzMIVBwJ<>?tLeTQJlVP>sz;OQEhB&E+s0qIIYXpb4^TbT21VX!?QE?-fvn|
zcri>*ZT$4%!-uKV!Vv4cRmPmgy0$2>sk3(dEvm#R5Mz52s+|7zZank!w!2QOXLTuw
z>E)J|x<CH-quanGu{U|sWR0t*rSAT6Z2v%jL5yCwn$**%o$yp|7<#a-Cr_UEAYyKk
zl)Q?-xM}m|QjeO&l#ROg?=&Z7+FD#Sq?Ob*dUB_1)y!;Pmz4>ttnYuTB}Pwc^;2xQ
zL)QyaagH`M+jcjjCm}o1Al=I5_2%e8dU~_qP-kVpk=Ub}a6|9kzu!LgG!emKp?S4h
zW6$3l#ocdnoVS_1xpOSlY@f>Hz)N26nD=vCyn&EotGna1)$&_hM*BnpRN2R(Of9(r
ztOQy%V{FW|Ki83w>pb*1lufr%urlB%N`&f~n|tlHT=-SNx@Ap>qBYO`21yx2W@RaH
zj;K@iMprjXHQFw0@o6$FsoerM@Wn|={@lBVmag6JW0Wn8pPfJA;NJ4$#fu$Z9^Q0N
zYLTxqTo%r0>SVu4a?pP^>K;=0Z@c5k!-wnPal}&1%6;$MyLT+h?wrc>Si8;ic&FB>
zQ>Um@%lf46)y7Npiaoibp8ZK&_K)Xnf26wuAeA!8%E}C!=dd;keLvXuuD0jSb}bS6
z!)!j6KSSPgwzsIuCT8BJK%K~k4<D8$BlPAM@<Nj8#ZRy9sJc4jjMN$oBBE>2Xtamb
zUtR&&BtE}1w{z^;iG)mhYsV6IW<wt@5O#i><LU$7QI8kco>r}U6}BgXz}Nmc#Ja*N
zfAVXY>D0u?Lbmp!gA0RBI1QC68ra3zDK(!w=RIrDjtIY+PNOZi&nF!n=t<0PS^LT2
zi~iKy*Q`bHnf}^`_U~U}Jk_nAn%JM&8D^<`v$QbnTy;vKI(NLX-!4vUs!OYZjXfn|
z+gagvNKaLM&VrRoR;*ZYVE_Ikjk8&9<6jwJKSiDRT9xwI?6>|t4nwZV8aue4V!qSp
zez-N8q80ju2ed?PyZ6IaG(BjwDG>>#D?StLW-~m!4gqo*96!TRf_qG5!4x`@18Xh5
z*zdhJ(KF!DsoYwc;Kz9_nOF#4yG+2KZeGjuFCNTTPufPku%_Mx_4Ylr@^{=@1Y-_w
z*`uSAny3hb)~lA7Kkbt0{?)nF;XUtdpS|bhxY&_|SZ3_e_{LM5XgD%U4!r)k17r5(
z@^z<~@PJqQnzPfBU$e>kH)r15sOSIm=~I=X)e7abl7|h}`BNtKNv8yo?L!;r7JV(m
zC96rzx9q8urkCD(k>2XzYVn$WaH{7kK-7bV=@Ijdif8mPtd$#i!F2n+g6t4@kfIuW
z<L1b<jFgmZ9)nknPa7*TZoTjkSQqKo-_lTLTH@dQ<>gaRMC?02NNoG5Bu70t#ORgV
zPXA1$5~MNRVLbh)Xz@M+SnFho=cHD4O;AtI9V+g(f?=K65%lEgQ{U|VJY`PHar4lc
z-jySlUQOtzZvPBNdS<fIbJ|>T3%&76ba)uu*tz5OLecAtTw+b4o|A)SC6)o4+L`;+
zEC`ufXYA=d{H1!M#NIng^i)R<#~EgBBe=z+M=659DP!(L-QbM?xAnEy=>h^kcCvO|
zRU*YeM(30Kzt~o)3VDk-93ybC!8_qm^_OEQr?m~;28$M|olwW-n!{HYCUJXD5dwEq
z#K|7|1Tc;!&_bKPa-YuzouKXWQetCcO&e0q$l88>LwvPqffwK4&G5;Gw4SmK`@NBe
zba!rWrJGfTiBvz{S2pJ%NyIL32di$)UnX&ysn~3H$ZfpL*dK34`P~;gDitoQFjDhs
z+Y5e~Ysim2O|Gd><Mdi`ZtELexv8tP*~oKhq}Q2z$|5mWkbup0eAM#o9XNFd_KYzZ
z2D=GW-BpF38$|3$f6~7$K;_-Z+^Pv(^{L^EHeboMAOkC;kR&AR4iL?)9t3O?f{&)A
zian@I=bJUB5HYtcquu{1@jB^NG((4mGd2KC9ocDd@Y4^GrugwoXRK8oVhgv9?RH?|
z_8KB(2@YDR;&dVB>uX5?0UIVgy$Bw<_B6NBb9zXY0M3ybedhjg^#!Z9Z$gx>Jgrfa
zY1^sbbm1f0Du0Td0Y4EUlCIj%tZ?ClSwFc;j*60-H(w!fUDm28LvW=3ZIqVE$ooU(
z6=}KSpF`R|dW%`TReHQkVy{opRUxfJqudjRHS!Q@x56t6!d~fvYC<%-16vI<lA6z-
zPlO{h9(y6=;FOq=u><K<P2?0mKY#mO^RO#$ZHmlMX6v*=6MVpd!-vz#?EBsTNilov
zx5~%_2pKtjFO5W3Fd(GtPb(~1(4w*fE8UJ*<%hhtq_-ip9Z=I}HossYa$k`%XU+^h
zU+nRNzbd<arLu$N{R=PVzkQ@rCS5%?*p8H@!smFZ88I+Zplp&jY{HdJz5KoC$$==7
zw!$m27d{j?sJ(1rA{ezNmxx|nA$hb=23ynV^Ih{cWNiTe&6)skYaHrN5$j$FjE<C5
z0trrSpZv2r`@Mm9|Jx?mEaCo~AzgNEnRK>g@K5z&s;<Ri(*xdPHHjW8Mq52S--N5H
zAB{UEpz6xL2HaaRf8+fn=ArgShkNQ0Rdv5d>~13uDP-&>+XqkVgaoX;T(R|<RdW`(
z**5YluxcuNswJ>caB)S4dk+t0tiFky_^z7}j}a+INTm{t`|ook?>6U5bjRM<^Qdvs
z9&e+AbNIx=)KJ2$>@xp5uI14-Bo(ci<fN3Op8ppv<bR%u`A6BDZm=>+H}{1oXwvEQ
zyfVs(7?>57N?bhh>C@Mha+LVMJ&z)Da#X~{0oP2*f~1@i=6OBbf(--=;N$ZoF7BG0
zQfQ~IS1rQjRnR_1S&|=`{ouu-9zT|7Jwu5<Y-qTKmSs8h?D+BHUpiNL9o>wSd|I{i
z^tS0RO4WH7SVR71&?yIyQt-~RdGooEyr8qZ<@o<bNd2R$@V}83I}GP_T@qk!uv4A8
zQ&8G)rRQY37)hY9Yl3+|`_ro%Hj{%TS~fO=x+TOt?G0B`4fC8HKbGx4=ed^Y!GIE^
zAYzv<U(Wurm$winByMBH#-+uDtg=~*v5`d2=1*+G;8Zx~E#vg2>P0byq)sf?r`aC?
z)DdAUgo{F+DhT$A{?rEG<-nms)sJPpCS!nO0bqT6>N9Li4<9+wktt3Id=e3{)@7u7
zg@Ay(ynM39)P#!ux4RBv2TCd5rL!9U_HMd?-fsm3G0wLxS~j3IP%!IltbXDSWN4<y
zKm8*kBcH^^Ud3}3JLYqmkL5Vokm%M27xXiL6T2B#ypK!}Z(69mBp`t7Hf?Qf67?SI
zhOP#ibHy}3RY3yK<MHa*IoB=0IbQs+fPYuQJf{ckXLSmgr)ochBI_i1V={OLETPTA
zgE3uT0M;O++f0qrX#voaFb?m@c$p_>UU3a@dZnxhm3QG2CsqT=5MQF$bU|aepkOh{
z&T5_>ao!<Emf5S={*ITU`JO#{B0ag&0s_e(N9HiGJyqECrUC-8r(XOf!j^)EBS1}D
z{Bvb^YsGCIrJ80KJ<rMF{P`3)$GHnuR-I(Rf2D|}wg`S>-QN`z;P2xD_xnI3_FHn9
zdU@Jc+AddkmE?;ZuQLD-qCjp;j~H|1N$M~Rm%5KiC2RK`Kfka@v~j)%GPz=5>on`<
z<akPU#LL+^WW8kEzv$d3JuME>qOkUEX6sn7qRFf4-zyKdCY{otPOdAYzhQW9Iijym
zF!0SEFTgM-!TDKUyicMr7J~Wi5Fh&oTGnK{z8O~YW<EdVq<OdcKzc;PN$>gdC{+hX
zxFHYY;<kodqLd!mUo~-AP|2`BSU_1t{vy_mP(37mr0NAXJ;sI?XCzcJZ%yR?04Cz*
z16_~`P41)3`}_&U+R+tp>0W$()X(PIl9L}RwVv5k@&5EXff|EgyDNvOb^-(MWFLyJ
zXl8IY^Lj;L`sD3LrloCf-9VuyNkv)uEfN|a$c<nXpZe9q(#ClzePI8b2A<Dt2ZHuP
zyvqG?S2lfj3&Y+?_>lS!Ryy}u8scITe3MhfN*z~Gwwv~+e7)oGI>Rj(E_IirU4~bB
z9{kwKA5QKf*|1H=ZT;f5qN}{KfzwiBM!Syo%_Py=ck04bQ7so<a%A7=4Gavtqhx>n
zCgQDiK6X-jLfCGTT;pcDvx^GC*4-?%dz!Cz-5Rz=m|p>djY|phRk?!i`eEYlu2_JR
zOQFtMU(b$R)a$!QWWeg?o=3b0WMG{uZ{+gj(HuVO{+8Tz;%&{2t@MlT%^)*(Q@3a5
z`~(KW<joz~eO54vDP8mL9Jkj5nNxoLZLdUi%(U8%c{N<>F{M!U(A-_IHO5vKnYNd_
zP7}O1k{4>0`^)2LnWLZ{Qs%=Ul?k&_FMNa(-|_j5X=C&bVpv{ByO#4=OWZ6?DC2xw
z?3wYLad^uL^Dt*KDwQOj%Do21kFN?)pLU{B*ElxWunaeoqjr_q`*=CRPYf2!TFiqD
zH8tF0f)Ox?psmN3f)A(Xz<dv2`>oURZ#u;#JUD`*NncYYp=HcU2syO(?zRnx8>U@V
z58kF*w>CTIl5<nawa;J!=3PA-OYq5TA;Y9<HRMNwENf3?<VsatY<(l=4UhNUeb>eK
zW!Bu{eTvP?ft2Y_ZU5%=0#DQS+27|*R*y^1@-iEi-t6c4d+7E4Z4uR*Hf{1T%5~8!
zterm}IHA&3ld}Fux>a*ZnJ#kZ+SNJNPtxF(?b-F;i>B0~jF163uARUZf+JeohRR6<
zBy829ou96+RC9A$WBW$7VWW<M*}#YAHr%Pv5^Q7B=fBP#1P@#k@#7`(@?>3xyLOA^
z5fYGcT~EYhj`hJi&-n|&UM(=H&qe%StN-T1W&bECIVa`9)iV{E&>R1hlFh#$LjH4V
zPyh8G|4v=(pNAj+HzKEhhF#QbXq{~*fr`a}{Z-D}M)uYOxdl^p@h@M#oLU*CIz*de
zw}+NxH^_6Al`9dlgG%;zG4@1P$G7MgWDA2b*F@aRE32o&F%8kap-5dXJsrsdw!5O?
zz#@~9eh{CW<f~FZ)-VHO5skkZ3RIn--(9{1Ko}H<QjPit#hSyN+22x5tOfnU>CX@U
z)At~b_|z-$6;z5*;%nj!(k%<JLDJ~T$1G5~M@T%E){0bK?Uu4@?z+D(lKx-&V*f6O
z`d_J6|MPuDn4~l7Pc6VdQbGUc-_ietckx7eTzaiOq0nUVCofL2)ARiZ`I_v&YV2ys
zbzLB;vV+w3cl0K`Jh8nP;hGoUpIOuuBV4zk-0!po+}(j=$1;Q~cvwH8Ly20D4U%IA
z%FT{WTtGCx=x`6EFpr5ZD-|q{?G01OERAq@8>wkib3|WLDYPPQv^zGjI5shFHQ~aM
zRA?ga$qwc52n7k<OZcp}-1a4;1tB5;i2OxWU8u-pP=hPck;z@I*y?5r2IvP-m#zmp
zP~vx}_e6C~*7@rv)Ei|zCdcmlaOx-2N(x`!mNW%XKUkMPEpL@OQhP_m`J!mWA_6ob
zY(z{Jw&b!KCG#d~5{r{gy(F9{9&05bclYcel^7ckTw2sZ!gnE)W1iyPl{4QB4|r{*
ztat_LpPP{P0}#4%*nYxR8Q&v2A<!oIe9hBl_w(c;lzrr3Y=2*{YN>z#SPfFqKWP9F
z2kQA-#l=B%CcVsqKep+PiQY{ugjR!@36%|iXHXA-=ajvDy0MmHbC&&qBS(;pq9|-_
z$0hY{ad9J*dmWxGAs;?jXYcFfi1ignmM@T!l(a~qm*0~Y5Fk1a39*9OMB{uPA1BB+
z8k6_%PEM-^d}GMLpWA@D#}jr08|S@bgJz=^s{hnfY{`EaL@1K5gwnMcsHIr}u1b`Q
zzmHa1F>CH3OB<H9{vq1!{-u<&zu@tK2+JK;Rh>iXX_=jrR7ITkQT1@bd_mJta^8!v
zY17#$l_uc&$JJj*o)AaNR;W-JdNcN6u6l+>IA}?qdYdo5Pjqu%pyIM`P7aZiAgz%o
z+1YXH5R#s>M;#lDw4aWvQ9c=Ox!rx(GyJ69!TtL`bT0O~Uw=G-uXmhr=2raMQ^99Z
z)gaGQ((f^vP4K6o-CIpRcF(&r7R9-Ak(T23DEl($+SR;JaWO`t;zK!(=!s7+CRKMr
z%cI<w@?7g<cMmoLm6`*9yU$-AFkisn<%h>+{ky5i_=}On)qP^)|B6`M*1$tuOB9Yp
z@~ssB>l;16`F8v$${en&XZlpjsc-8+JRk;Aw2v4Wi6Sr}kG5$qp0oJw+`vat;oaRA
z`1%<aMhRv4K*PKEQ|V1dr5*-s5s6k`cE3VqULVXDsZYeEMU7vQ3B3vJ#o3D-(7ep;
z%}VF~jK%No&LlkP=Ok{<#BgKVbOwX*eB<?BPM<5=CMj}0_m_!}eOhW?Z`|2-=C!VQ
z({3uNuj`<0f!qNpkRSVa#sw6j2x!lgT1jjrVxiLBf{@bFJdzoikA%O<*H;<rMvIVz
zj_Vj|$3DN2tGwpp<1Oal<juN$`}W{idjJfIR9%>nyhUz|(D*io`Jx$tyy(O8OYJ?z
zT$igan(1nTSM;dZ=b(&>FD+JE32Vg4fOf&X?Rj5YTU_-(Bg(opk7ZBvXGrq5-j2yX
zsq>Q*Eo-|plo0?5>m1Ed8i5FcXhuX@Jdv-OyuP*BuTKs%YsQzyA&qJEHq=goOOF3>
z!ZVVn`e}(*Z8sdFLqjRt-HA&=OXDo+65=aFl|O0JI<WcUV^m!KgEWSAPhbJL*(7B<
zpH(^9r{>5|T*c*_PK|E6B;;i%dr3&ipYi4cYl+2-^2~1cKcFM~&k+T8E_Q;?uvJ}8
z9-rd(%DI3E_e0+0Rs+V?It`w4->+9OtA$8h-p3q@0;Oa_)CD=tLm+HACw|}^8ES-&
zNG4>6^Q^KBp4*<p8&VW67IAD6Kq2VW$Vc8smE!Nu%|RjNs-Li8F?YJ3OT0L0=p)@V
zq`aXy+SlAZIaC>dgj=f4o41Tzb{9nlc2kK$Y?b+a0hyeEpGaAh=jffCovBnp2VHx)
zSY2h2`sBb^k&MU32bR2x#lM&4vv!{~XMqn&*3#JZVx-7UA_06cw)#p%D??IWPe4dH
zmTaQw8q5ohRS(i!3$pk9K~s>b$uWlIakn0WR$mf(ATnE8M{}h0qGV+AwRB?%@j_sw
zvSYWBt9lhS(s5NN|BMM8Ks0n>6II?R{pzTh$eI-TbU{O~H$<Uaqk(sm4kqbya}Z|;
zWwHY_XcSnHg`yb>_#{c~$vV~Lv7eEnAQe%~&gLmMy{PqczJ9>{HrG~;5xJGYw*em8
zMcoD<d+35Tt_fR=;DbAg)<!uX8VCKX-PVbV!`Zp9Q^Wmmw*G`|GvGUlHme1)r%H9M
z+cjZDX`(hD1)8={#}?G6Q0*y^t5jKrvZ$~2O$kkKFQC>zr;$~=0|lDHeIlS?9hV@F
zvrF9mT)>ZYamSabg92`cNHIX(qV{yF48m@r$4IPA>4sn`Xdefq;+W{Ld-VLVwyUfI
zGlxcYsC*DXf#%KqovF`Vwbs~B4IP{9d2trim8-=utunB=wB6)7UjA!4`T8Lbyg^5#
z4-X*q7@{#_oR6z?@3YO^!qa?4yexGtP==!+-p_P$Y!K&p`#3odYM0I@TV~F)5$7RQ
zO7OdxqJq4iv6g>w+4WJHd|%LaV`x>5fB@WNg9GUQiV2>H3@qLm{yf{VA%#TDuV26J
zKw;+|%k#^lU^5O*?pbNSlN?PEIf|XJO3v&wljt{6r(nD<EL|stzhp|!CBKh&`P#XF
z1OIEz)cAeDIR;liYt0Qh5<BI(4)S}7-7#!ZqG&Q_;-y+MxUk#XbS{XkSAV?(eBZR`
zz^|XZ^&TDc>*GCpK?Rnx**x4mg@p{xj8pgi{b{DE%kcl>I8*<f5=<ko+^JJspvp5$
zF;0ESMH&xn?ee}o<mK3uVbj2d#<R|n8*?byjEQ<)`CqRL(~v`59kK3)mgp4{!jV3%
zW^pcwO|JF$dNZ8L(>6^q^QR0Fc=A_DR}%JfP;hVwQHl2Uz^01e1KLn<KgUD1ty6uD
zgi<S(Em^Y+9F+~D6}mq$AgZ#zT{xJ%au_w<)01_cQ~GYGk|Ul48@X(j(7j)OnrrRJ
zVcJye>`c?*aeL$~m=9PD^~2u`qQ?E``Mn&bF!p{9^jCy1W$3TsEw;$f>^C2p&8i}P
z90cKA3<BN+h2><EB40ohLg*2e)ggW+n{}XN&&gpDVDWse*cvEj2l{rbA*b0DU1g=S
zop-{jy#Jokc;aAiDIHAt=Za8a0;I{qHq4Ea@09Tz*Kxhg<JRGSbPBSa2HSRg{B0R7
zzJevI!aLpDMST505bfdI@o-Z((S}ifrS2y?x}QWrKeE2go9C~)(y+WO2<8nJMgc#3
zJHuS1!IFpcyyTt3&Sj_Pt48i*CHFKlK;^5?1)hvLBJ`8W2O8{vq3Sg7!Eo_n^4S7z
z86rZyCzn9PAL?H6PCvlK>HWn(EVrN*lHkoV;}2Ze8c{x`vLFTC_ScUtTKU6TQP<vN
zAD;|t^>!p0<s;wo?!?DOI#cul9#0l^{tUbdQ{Vub0=~J0g#V1v3h;;8LTk(I#xK*L
zLCfs5c}IyH#Et?<x*NnidxX3qsEDOn)Nhu4%HqW_uSJ_X|5*Mc*H3P9`r$N#d%own
zy0cUq9N;k=l_|QEoXu-D5Fq*H-(=*shc>KUeF)eQWg&lpa(xKt?@)4z_c^6B2Yx3x
z6jLU;q6SgHQYAuK5e9uIwBKzbDcuSPv`*BfN9qJO2kzvp*LtJuhcN~W%PY_lkYpi*
zMd*<XaLK@L@JOU!%-%Gg+(g97bHVaXl}bHvmKn<D-#;Ps<;aMLK@C4qRV8MavZIyj
zE#5h+zQ=M;fjx#A^o@^?&y96j#l*R;+<EadDnbg4T!^sC8M9}2SE=A3uTdf;WLP7e
zk}&VHs)oC;<mh=$9Qx~)R3jP;Hmdnybm$a!bLu>wG(sg3(sPmA97QP(k(<bs89ICR
zIGk&RQ(2=wb2~P;9TwsQgQl-P8Zb*f`LG7!Aww02&M<i9Bd72Y)Za~0SwUMf_j?xi
z4}5%S`*(ik{!UwXQ3TgBOj7s$>)jDwa_!x_cd(;Bv`hwz-@jVAFn_$<x(ym#KOY}b
zPw#pg_1Dv;M@EX1jMK;G&&niTzL+L#hfztQ)}8I=4qn=@ihP9Tu}PRb=PvWwN2+s3
z93nD%60ZuoYhv4xR9GarbDlYPLTguuxYro9oP6ACkz}WwQ+g&b?)dZ;Uns{F8qDD}
z2h;PXq=?dyy@j^~5iidNugYOAz<walQV7OfxGY$PCmuk4+KZ(o#!p3%aTOIMr;gCD
zsPl3RK}C88>Xhv$Of-r7vB#G;(ytKieL5glIUq4MZfNdwZo@qZDf;F^F^9I+p7`$3
z8Q-%%Mr<t-m#aP{uxiCzyJO$3nromnyGPG#_jT5p*=AJ1GI5jVTQnX-eE3P=LCX7-
z`UeYQHNR^P-u3R&=awPPELZwDcGD;J`u@?L+xmJJ!-nqnXS(<0mO@rFi&B;Phhy7(
zWO&1Bk{7<}xJXm;Ks7`&j@%d}qJN7^fot_XMNNee*4M#5Fth(=mxAn8500j-t!*r4
zXxxodPHPir24js7*(@XKC+RcMhaf*jhW$u7s_yja^jlfqQj{V9I3T+=>fRP%{4_3Z
zc=D3bt(+r5<%ufB_|e&IvD=dEeQET-TWNxu9;Y-uKakhS(V^{5JTIw7*Lypwr9{j#
zM}u`V(MW_eP)vT>sD6b69;x)Er7Kow%9uyLd;fm9wz|u6`q}ea?dMbMb_K3KU~EiI
z-U{cB((^I_flNbbhUK7+O_$VoXOJfQolJ1n0!rfng;U%olj&E<<+^pHPoz-op)DN*
z>$2mqUbtv_vx5OCosmNN-Mx<wZy3q2RA9z;NWL@EVZ^-OK&j%>4y0;mXvCCxc|<{2
zyky|>kaMMa*FHbLzU_;ye={}c`tZj~bL_|K1M|{RNXme=2jP~8@?kUCw`PFC!#$;*
z&O0H{dBKMJJe>6tc?pz*k3S((?a^t1DsV#_FS@Ly?GYWYay@iq+HTf1@)@tbEzSkm
ztgLLJMbSCNb49zd4yUy~wEa5n=G{mnj)Gf{Eg>4o?~Gd=c)P@lu|oAjJQVhLmM`s#
z)W$xLVCDPAjt)Qab;D}X4Du_#w9i~or?szN?=hMI73Y_`&*_K8Q7qFip<DrPnRx$t
z_-J1J9mklE!X|}M)rkwJ0y1B1-a!6NkxG)_L9bnV{vb*Z{@K`b@DJm<wPj*o?ev%M
z>CN{-LasK`--IY8cDeHodUzZ*fI6pYN`qx`_KKNIE=L1DL>jvTKisaMPz*GAV9W*8
z&AoSi_#Op2k^~_Fe8*8kHwG0REm?<mYhBg8qBGKg`ude6B94Yss#}+a7|DtSUo`vp
ztk-TMwOqN19qUA$KiycVWOo+K*Zx;LSXMP(bFq_crXf$T5AAi~T%6r$?4x&7qzR`Q
zBAt3bwl>B5@qK$kmE_^njf;ptpUC3S1R|I{6XVok;_5{pJyVz3T0Q{0>FIsJ(SVRr
zL_a_+1Sm5NrIA(h(%pn@2(Cnsv2pL6Dk}~^du-Aal*Lc#XAEcfIBp2Si^KI+7VN&G
zILT!e&`i=_f1OU#a71?ri{S~LhM&pXrZf1p61!X(jWRFTgb1U1c7{4KoOpQ<g)WIJ
zLl-K<AR&!NXJhGHq-urg+#z)#HFa#nf3ufiuTj#2;yLE+iGXG(Erb$-r(5@-a9^T4
z43aSxtyCQ~oJ9AA4-xbM=dEn8R1g<en|K>g4CHydcP2_r#IgH-t<^?81!aR6cD-8@
zWLwZZAd4fZP;AK>`}YTIaGSd&Zf<s%LFw*C-<l8X&T&soyUZ_CJZrJal0%R8o_p5J
zH+RjFd?b`@P~ZkYls8PB!IQktTS3jz26bNm53fRHTTGZs2nuj9<Ze!**{vd%<}U7w
zsph%=VP{pr0V@k&OQND9nWy#r8B)`@>&AxF<Xus^oO8EbN`LU+dw4`)-s2TtTU9L_
zJ)8H-YL~4a_64r@n5Ygf&gXLSOVCc^P@i4{<=-kIXQfgN!7n1gk-W=Og6!%Z`T1TJ
zv}r^qs)FVk79&0}F#u%jc5!iC=)uuKFv}(K4}*%<s{JrkxKZuEJjZ|?Z9YVi0B6*3
z2*RrPq+Dnu!ZyvkaXq~8?9-)zq~C{1<ryjTlf{G`$jQkmVuRI{wB(=Zy;Dl);_F|i
z*tEYs46Ssra*pY%x1ZgAinG{rOe6V^Y#<ezX?mhAU)oad&JPcgLQ7Adu*_%et3kKP
zp})P<$hkR*IbZjja)r1vREd$CocyYWw`9XKSg-dYkrVY59Tz=!9+1?L-!3n|f}s^4
zO8e{4b4Bd-pUPgRBW<bNK8oZ*`rlsttd?cEJ02uWLD2uSnN2GFr#Q>P$Ebh3K_Y!U
zK%<EW2yiD7xvQalaN$s;w!R&BwJx9#s09oLl)tjr2qu339&_R!<Kz99R@qYG;tH1a
zOOQGFLE66)-sV9$1c6IQlFcv({D_v3p5c8nY`{dSZ&=qb+A92@E>%z)&8#efV5wa$
zeEf|Ar!}*-kGM`W*YsaG$b0^YxX8*6&E162BeF!IT0Y7o3dce8AQeNy+j8j4%t9Sk
z-FC?_78q=u6(qoSfF?=oB{T>^_h5o!u4Kzl*l1zFFSA^~4)YFiKLP(pq9jnZxOSiu
zM9=GpsBQ}zL<Di!SKXD!2faLE@tTJ!)y05wH#?;B4u*5B`yc`(<SAwCKoiHAgd&{y
z^uCPt@0bwoOFNA6J~>HzbG5E=e3Co%`0{L5-cP6Fw1Uo(yQEU@+Z3-NNtj7E&zF03
z{Sp$#Yn>sC2dI(6qV&9x_?4<Ic5WS###aK+EhG#5{F5hVIkzCz*y=EoIk+Fhb%0W}
z6hfN&EP`nc$BC#`M5)DZX6cn4cm0{RDf_Bj8U+%Tb_nL(Oj-mUaIX5;a}&pz@W{XQ
zE$<iC4>sR>Zh$`-4^BXxwuloF62iS0=^Lph$U{M0by>Hw%u*YEDqsd8l)RW;ubpMf
zBOWL%&zF)W913OgpOwJPe{`<?j|1Evwd#k5HItR@?X)$!b(<b8WS-ifFq-~}sAiM*
z@Ky)`N^rmkvij!6{M$34iwM)d-f^~B`8|^wUNGCW(O&X{2(;tL-MqVrxcRpa{ux&P
zyy~Cj?MHuNzyJ9g|JR&i#Uts6V}a|h5H5|FDN+A`5?=>^Cq_j4)^6>>BHgC&Tu7T8
z3kivV-K=p<L|Fm6dqCkSZxKPnMO8PRBc_B_n}5@?G0aIk54lI*z=)e#>x1@SgeXLn
z76%q-frQHRDv2fNXIKONanp%h-r_db;7CFjk!~eqyUFO}<5kB9&Ef4I59uN9PaUx9
zzEj&3n|In9i@f+|5p~~SytTU|sUMM^<oi%ss=BS<ol>L@rvyKu&TjSOzUZ{h8Qkq1
zkPE(3Jh-grfw$=D==&G<eCz>IbTzzKx`9VnLLX)d!j*)n$XcEeRvnp|maxzcEW{J6
z5)gn!{@o%Dw191QO#Q(DqEF?Cz6CFioz=--?1UbQm41GHh;&F(1(}5B6c-nDAAV~T
zJHxxFPN{vMK^ID;_QJazFfwW}2|<>MdKtpcdkcG>>7_+i#yw{qAw4`k`M+gIt=e(n
zB$W#HttlOBAwSRR>{+7Be%4sIv-AEkQkhYFx-ZzUJ?J0=5OaZ)NXG*K%@C_CXGm_@
zqQZ?3lCP`Xtr2sT5<!E&N;WCnJ>b@Q?ce~`D4(@L2y#S3@w7%W<}StX%JkI$+T%{p
zu^O<V^YYZ7{>?siZsPD~+egxTUW<VGr@E)+J4l3iR+Vj;m<lMM#8ippYc<|G;Gmgr
z9QmNF(t5z4?jv1WdNep9B`&U2{WN(a1-g-~+=+`l$ncQl$1~2Ib>aj#LBDn)G*@_#
zeQ*)pxpge33`iHW1}$#8yMkHB9tbl;u2*()YB<Yooj?jmTCT-g!eSsa)o=5S5F2!x
z_48$5?S7BlF)=Y;zQ%QUhz%?fQ-i9Rv}JZrWD$PW#|JD!S_4X7$H8(()=VK#b=TVU
zq?L9K@gC~yy@ik3$LHp53LiC(qip`@`p~~;w4biwy@<#>kR@kcJad&k!`G0c(>0#Q
zf_kxsIbMo4-v(8F{!<H3S_p|d!rt`cxN@&GUKLca8^y(mhRi6QXHyYUFakfH9q{+!
z(2Ss`g0!)|eLu`@Oh%1{P|#XP1J_(A;7bO`3(nw0G_U+FIg0_ShLjDYtx8a>HA}ao
z9|Y(Qv|aHVhs#?WU4vwuDWVKHW(H|pM|1HX;I74igRn1RJpNkWCCP=n3$KbEIX-JD
z74|gRqaB!5Zw5U-uPL6CC9Vp|_@n8$q(0fy6qGE9-h$RMlD7SO+$DJFO?F>atbzLi
zEOZ6hpGgO_?_u7?+f|v2LJ|J_JNd|eddK<yn+Wh<5Ayff^1sA7pGLl)J-iX=+3VL6
zdXHPe6IQHc<(O&oJ9iG14=r}N(J8#^{FrD=`?oo{Pasm;vSs3}MoY${_bWh?ATv)!
zU<=B+rqIzk(fV^r&mP*G<@>DKncN`F!X@h2Ro=I1`j*{&{SnO3k%s4&q7vR~QmPU_
zDy+=8$-Q>avcZy3R>F=-OCDY=EFAUV!Grf_hVLnctk&VV-}Tz>YgkR{eL;!YGTTP-
zW$af`($=LjkKb5u|8V!V6Sor+Wq8bxt?iI5S8h)-(qQ}XV|>;!=dG;zj;;<@*w^rw
z7n{~=FZJ_N9+l~s^XX#VIliBNu~ZPwObH!R-4J5GZnf9)pI=sPDmr@ncteM2ZaOa%
zKK$1JqyO3#|A%agzoWALC7bg<%Ux{QLo28_{U5>gN7B5c^Q7`OE$Rk&Zq8&%%Z<uT
zeq&^*#|gJb7+C_mLCHt_wt|;ASynDxC_tKfI>S9ZJ`IiUK+|!1iTbq7)?-O)695KC
z+S`6v$jE1>?dMxrdwC#(HP2~X8-D2v+6qYdESbDR$O3pdhgSE|4AS3?{xhNkKv7BB
zK874cnGJLVI;RhX1=N^GD|)>#SY|S^1Dy(>YjRJ_)FTWg+zYayK00e@i7MxTsNK)%
z&5%1lYJ?&s`vi~Xqp-e=^5g(OWFVZcBF7M9UR$$s8-xzf75ojBlT7G6X`C1EoNr^W
z4Fwt>pR?!B<Id~OFEK<qL?-#fP8nW!K3mqNt<dUlh_v<}fSZhRK%I6EZFk5$;iuxQ
z$GW#r&Q?NS7-?Bm!3ldux=xRDi&M_(LofBd?~{7eas##S{;$b+&T_L<<O-<6A7xq!
zcL8-Doz()C6phaGXW?kNIU2yadj9Ftw!%?Ap4T<qf2N~?JH36(THLrHKkxahpQFBZ
zJ8CvmOopW}vm+<&1O#V&2j+dcZ?tz37rN_}F1%$+i^n`h!b@hLp|pOzw4{aWk*jR>
z=*DL&Zrk)doP|(9ao;sw74tSfFLzeN##;evR>+5|roTT!*>zxq<K>8+BP=QDP-=V(
z3QoLb(Iw^t>qj&dlFq64zSgvJhaiGuT)q9xqoc_9kEJ|<*sk1o0pBhQLR+J1<>!;m
zy=RHS>;`lgrZt`krV+M;$NnTWe=EP1HfQ1L<xmpPlo+jgiXxD@p<(-Y>f;)r7i4|{
zm6VlS{(`t2(MNK*)gj(6Go?tuz`TRB4&@%@6>N98!YZKgG66$~rS+Vi6k#iF-(CoX
zBMKGXYcBqrSj%G|s)CRx?B=z)pfGO&#UVk<<emHY5P>MVWur1PcanJ`_0Y!Y%(TN4
z7@rPYuf2y>Sn+{~+yK?nGpwOIvl;IQCgWz(D@b42E3?$*?pd2e6pzn}SlM)Xp_hrx
zP5CZmJmve2-sH$v&mPtmURl<THNB?Xm$8m)0CcDXkV!tIr35Xi$PA6Tm-0d&!*q_d
z3?x_Y$`=?>e4ms56)iC8QqGdQRQE>*$^QaV@_$BLJ**kS-=zo9-#YEUgTZ`uZ)uLr
zD~N&@bsW;Piy=P28RC?8XCY<;*=3F)ARy*epmc9_Me>`q@kDCl1ih)acpK^V?nN~h
zCf4;7+gw^q@&ikA#R^fYpHoRYd5|=1^~_Wylna8$NzeCiw4I$ZF{do67hLh?oapU}
zimrOUc)b3{2`Kmt%33KlDkx(_Q7Rx1wcBrtjXdSy5tLFtPMyZwj!opR4WNPBoBKT+
zsni9lwmmGYp*#xI4qU(4UV!KG?85$Fy8p*vmn;>f{%*&`OsC%D5@N5(7$D(<3I^#4
zBr~hXgbUNJpGpaRaWHuPuGfb4HAi@DTj+@vCaT7mGQPDN7<rzSlE^#Zm{*fAB82ys
z#TXFe^&6fp*)*F^W|t)KgvJx^f(gUIba#gWHyO+r>G}kjPDW&b-Z*$`-mX2k9k8S~
z)@#S;@U7LvsdK7P6ec7JPpJX{Xgeu&rEK#|TR3&uODJMCxD;$HQV$@lQbh6GmfP=c
zjdoQ{weSEkh06%D6^^Byz0v9qVkNixs_~@B8kCC!2HBO;L@<CS*^!Xd{ghNrc!dv$
zh_eche3PqLz+d$%y6K9^yd^T!1rv@`p2o)VbI^Ke3SyI2+I*;ebI-92D5Qzel}p!S
zA;9dmKZ)}9g{vuIrMHTr`OVu)XhL9UgzrQWnmB!YAi;j&Ky*(973XIn4D?$DbLLG5
zV6pfazh{Ai_qD!;SLqcRL>>}j=fDo3L{LPAs6gho$wm{urMqGj8srT~w)<9mGvy=i
z#CKvpYPzI?*w$!~=tss34PufRDd~!mA#9}j%_GAw=VA{{0$DXF$dNuq*j#{*4@z^%
zg)8`Sweje_`JC+hs|biii#-M|k!@iDZIBHjZ4n$8hD<<hqD7{`wP57YZNe%<sE?B#
zW71hnr6Q`oNV!Pb?;gpxZ$_uC;p?wnMiL)ppM8n>In!gG74uh(jEoS%nK0hGj(;-C
zizq$rfO944WD*+>21DaIye`ww$~#d6@684yw1Og5N8AECDzYDuob(3|wwIKECn1Bs
zq_cZd$j!C|>PTN9rPkUEKn|B8Ayk-1|M9vu)~XyLIw7-@NK<G%0*)KY!gy$C{_r}h
zlsQ$iQBLv)BZhHN5Ddf_=jUNbD3qxp#z#6BAL11T#khlFq@wDCH$bK!Y&vDX%X-<s
zH+FAv{e$&ZmX=#j!6<fl>O-AQX1&1!VbtJRoB4AitN}Xh-h!YzTu-L@@k+tF3V)lw
zj5PcaP(-vAduWTQbnu8$#{j7?kVrAi`SV@eYPCcDR08-*jDRSC0CWVH=F@cz4CTo>
z{0PrUEoAB_-nXwkj;R#Q_H}oQ_@{mgiQ`LK8&Y0O8knKMr!$1fbO!K9xrAcb#Uz7w
zNYR8$eITKa2%YxOmR7wam#@dzpmw5tg!Vv=Ol@!)ED|z>A&@AC{&b%Bl<=RJOL4*R
z1Qhqt7i*837v)be^NUCkg*b}ChkZOFWXjfS2j0q>$MaB1mH+Hm(?~3fOke@wMkYAu
z&~&N2_vP*D&;rh1H;nCJADh_X;x^I7oi%kSnV;g0T}tV)Ck4^(kL|$Ix=u}!V(3TS
z|Fc;)*Iz+?iPTo;Y0sU|<i~xD?0ayzCyZ5NR(8h3#!6l*K@Wsra#oPN!(_GdBbRH+
zwk>&MtG}U4k>Wtt5z<q#m6nyZWGi`}t5>gfdG@=>oGbem7?hYw2louxuHvdD9u7$6
z8c@2zfxY2V^2sN~#qkJ{F)^FLR}*O}Q3eNPq|`#L<Py!V<4}ChK|)mQY)I!k%CLwT
zYVNs@fi&`<l|p<&7wi($v9Px>TJFiMGce?b@F|ood17Ue;A2swL@U7<W+JT-5Fo<c
zNsL9?dgdJ7Q_T7gvnej+7zc@1CpK0v*W~?^1H4g^z$R2`6B;L2qWLh27YlzQ6)v<=
zU|trPL&z(>f@kK5ci(CX6&3plJMQp+n<niVu$4`2^cTO)zpR$-@dkRL?DocNrkjp^
zE|^B1zX04?c4^K+UuYqV$?U6fH;-&nMSA1%R=Aiph#pT889W&*LaN-P9izM?GWQ;%
zrmAWQnUkdl?N2h|dNFwYHWDa_Zhx?qJJovm9y9xKu(8KZGOC6QQz4ze5P9UjwBa@V
z<a0;4L@7^Z^O2qh(o&L;H_=VpM2J1(G#PM+u~Q^LiNc`BMJfXY8Qo7~+aO9hKa}CG
zq6RM57pGH1gj+%Uk10tM$VJfm-9{!xX<ij%ZTEc9(wr>zc4RRBh`YOclS@zhU~+)_
zRx-^DeI(b2L&I1I9&N5n^E7CWdBmoP@Y6)fXqhd2D#gvK0%$v}&5bm&hH|8f>t|CM
zZ@^3b3Zy9^aDz&P@M-elzz7kmX;asuWkeecaESZX<0%iTO3++%j|_<!7*|$5fBt+R
z7KPi~HwIJ_Rl{a_xIqii+?Rn?=|@TZ5D%YEPauyG&qm!rODJIoKiY#RXke-6Ha2j&
z<Mr)$H9=NQS`FL_sl7QQj$>Ae<;XqA^lmhv?OA!v5F$i+m0EDw2I2{sDq3KewgE~n
zn&Kv4{$gfdR?i6*sT6ACI_h@ggXb(Qd#jESfqV+!uN7B4?F?iQm(}tHF3Y6VKh8E)
z*UnO#zPVnTOtNz*c?;JcI59Ed(9{3QY0KwhUA>vvwz)L-YuU=8*%w><uQi*fCuS=-
z@Od%rKIf+l`$8GGg2825a~VnQa1Bs$pqYL}KBRuiO|7{5HDt<IYxgwHNk$d`xM%X$
zIKZFMgvcNwgJw?>1<9m8CkR2>iTo4F{j_=vh_NTLUae}r!sZmoB%Bv1D`{k|RUwuw
z>t$VfsGnQox#%Kv6}6bDLwle`CU_7{hiWI%G!fE3AInh$ULplEOnu62&dcJB+=1}k
zE&6V$@LP^4_jh3{AE=$vl>Ny9+`$CZMXB#wW7f5wGbmcaFS64yIWhf?i>rzt$2m7O
z&uZ4L?%PVI=1?Z`+|<HJwtB_q6Hr0#BF-q>;EQV+3`^x@Tc=fQ`+)-V(1>*h!Fzp3
zxdibBU#Ca&^Q%7NI?M;*P&uq%%NQ`?nkSUyE-8u!Hajq-NMp=b2s0$c-PF#VJ^M2h
zA>qhkSD3|!pymMkYn^7N--JAUJ%nAQW~rs{z&A&8I#n;{g<<fhbPWWpGIafF%rOZk
z1CO*J(h98Xy!rX_=hIlw(nQRV{X~=kArJu8x?zmrdO)C`zm88j(1m1-a%fC`nVcVv
zV=lnQd+2nSmf49!lAja%^l2a_ho*COKm@%JGt;Cdxe5xH8G`Xo+W;(n3L!vGCqU2C
z)N~tO+9%KHPR~GnWA|qR8F>DOz!J`|_?sGwRnw|U$Vk*jLv~bi^8p9*-i_Lw#av<v
zKQYmmBte?)QUL9+W`f1+zzsTq>-={_R`sDKXOTY5C_bda%9ayUvh6dWS(_W1`pSzU
zG_Z@U^i&hG<zSXUkXm_(rV~fHxDVRThErUExn4|@S+R|kj30jl2l|!d%=K1qp_d)P
zxs#oa_1xanN``QRRV<1x$PZG`h9Jlp?{m!0rd16RnMIKUl#eoL<VVa$_jHxMJbW<?
zLM6@Bk4`&8T`!Y6d@z=tz7Tv%Pl6y55B&)vL9K_fTAVA;rI=Nehy5G~Wx|Tac=T;}
zD-_K$f~4wV)sJ&G2;3m*2Pwv8%>rg<a`^gCVJ@^2=7Byx|GrQ-2*~I`jRRgcnJ&9j
zpcKKO#%zk^7ai2-Xuj3%b5l`POGRF>9aXE?)VzY(QqQ{5Y42DfO{v;Ov;nGp`O`i5
ze{d{F+A#1BGrA-#fy34N_J<RVe@+jr|GZ5ra4c#5LXr(eB_*}Pp=?92;nJ7hi>+;1
zF+<9ro_LfsWK!-`7DA8^z@ZM63RWtvS{~3>P_!g}JS6`LX=@1WGc_Pmak8zY`eGsB
zA&NSb+AuKpXz*?1Gh~1s^>_ob)q?~(de{&)k>%d|JCcjs!8XWZ-sy`@GG8jYu4)Bb
z+~8#yx9`QpJ<vBX`f6uZWO}g&YNKM4ALas_A;B*}7ncFu0BSQbj0HI-@+ym=Vsko{
zX}RszH2c1=tQM0m<%9KyDtkgl?1d@sbTMOl_{s0T|DJ()!8ih>*44cdsTv`e=vAV<
zF?6|r08rd1@7mz|Sojc5`kYeL+}%COL|s(l&YY9a9Sh*rpU=jiY?J~~vBLnItZI2E
zR8o>u(N!oYHdHZIU!qp~z%~>hlFo)i)L@=3X;)RKlU7B?VPmfaMpejIa^V)NQ|Sh%
ziY_CwtJfeKkj3E1l?eJszE-F)5~2yw1-qoF>B)}N)?=Pq9Y0qKvO5P7yOAdGi;<oo
zl!}*&#v;%Q`jY_~u~Q8BuoDO0Bv;jDx^}xLo0_i*P#wu>Ic}WJx0VG+x+@?H_s-Ac
zQD`i)iu)jDJR#On+HPUrv!JdPov>P@6xs9hT}?Tt?2nGpLpuZq*_NLfU?A6upU59P
zY;ZLG#F2VYbq}}b0MBS*Y*zNIn63I9lhi<&EDPqUriBX^#xq<iU0bTn)bTb+N(_7h
z^vhJW)*+IFVq$#Qg8tY)l4SIBeaab~)2R(FN*Dp2P~*OH_C@dHG~;^%ymo{V^6QUL
zz;W1BC*0y1zY}Aw)|1-&`PkW>CRO`fk!Ny#C1EZ`{c(v*%5?|S3?j5>P$FDrfs3Ro
z3e%YZ8jE&5tm;F9uvL0%U&S8QW|8>VjXkXnbL?a*4x#wZQe!kKe6rHf>h7y}){NMD
zSv^@Vq-8Znbw!H3gUSk?Q62o<_nc^eK#{xAEK2A`0`T6D1ed7bzYFiYn8`AWqH~hz
z85aTNNN>iT0~f=SSgV5x77hrrVBUR2{6;n_on~N*dFJs9gJcuUkSTbN8RZhmVpw6L
zp(R$dvNQ|}waWVP*a_VqBssg7X^7AL+>*D-hD@Fd?ar22g^5e2IOy%zsv;pW-t{W3
z(!aYjIVt`it-oT2sB5?LLdx(0D0Zq$Njs6_mkh{2EEJ!0zg{{|Ih)R1Fol_vy;b*$
zi+1R{a$8A4kAZXmzF@?d_eUH-XfPV;s`b=q^;Tbs-RZ|+VrX;)2?%lA%N+<err_IT
z&sIfXUMtfo=p*Jz)yCviKaL+%2P^S{jTStYsQZE=pN`cZ)uUOvCd#VHi)Ifs)*h;~
zphTEEjbZ_*Kv!hsF_Z)ggUUJ@LuZddD!<~zF9dU!oR7sjw{+}~FjLMZBL~5A55kgw
z;u~{Q-5oLFaJiMjNSX2UHbJQq@6R&{YP)>5kwAfvsVd!22(@OLlYb+Cj6@_Xjo_%f
zqGAa|XGUW=xx$LM)eMVZE80-%hQz#y^KKkwYv1A4b5(B#jgh`)jDIAY!D7|n{Q-5g
zfnjU-nOi=OIDD3We5XD6SRx%;YYxTbcajkZ5C9a#%Ls_t%l_<9ee7N`K}%rJ;fHZ(
z-eR=Q3xiEP#X-RKLu?v-<-F$$1aQ)p;Rxh^Ht8A6y9p5xLT?E$%bMs=hZCfakfv5g
z<YO<`XuT336oF+^M)HL)qNXd|7`|qPGys=YygB;*JF9%s*GGiK`wgUnuaf54MM_-}
zM4byQWQc+kra3mpxNy4@r=KRdBik=Vls=pxdpK}?GC&y7vt1KY_lV9+J|SywHfan2
z+GQ5WCGeKo;byNE7Z<;%LoCBh$P&?E1~7>0`sMvG$pgA1HmMXBtqCY{qxZyg%2W2c
z@iwC&82-zwn|f-QFH5G%@+Wmpae#WH&+jv+fj@)2A;$-1cP1(Z$eKU?ZjE8o=xbv?
z9t9=EoUNx05v>VU>I(8XB6f%8M>pCP?CSMaaOhT{J*1(Zq%M~$vD=!+gn*AKq(g_y
ze!V;egl^iKQYKAjBZ$8t+%g%wOl+5&?Z5#6488Xyf+_Kqyi>K9CS3o;1t_R3F0}#y
z5;NM0h<X%tfc^a#4JU{Y?*fXl1Z$$)%&ka}YxgA7GkOVDsO5vLAZ;@<^_9m1+-(Ty
zV^!X2%OSopBJtwM2>a79r)Yv`MB7dLOHA?@BZWh&DP60`Vs)Vl)cBajDB7{>`#x*3
z?qU|(si_i7WQ;56vm~LQf8be=)mV@j3Aw=InsBiJ;XRnwxw&c6Q+cAX#@2P%G!Ra>
zAVl8yJ~5O&kio16x(m>)TP;B5%>T5cHW1?mozNfJ4vlE<L9TLk#WgM&y5>RTvZ$oE
z#OAPuhyS}<UBUU&uk5!Yodc&hlS7sL?~_qW%9|cZL`Hx?_ojnwMVj&S*v*F?7vdjH
zSV?BY!OlCm>5e5&u2A{bcyqTc@nI<ZvTL=l<b3w8>uGE4laln#^a!k{e!tU;ZgpMb
zq0ii;r0>>$TY1v=ay;W$YS!oHqaq*5L+&abnsgeN*7;WTH%J-d>U!RE4k27dH&{M?
z`gD6pxuKDfnNq0PvlEZro}H|=$Arc9cGIA;GsW#T6_u5TjvVP8ahaI%5ET{uIzE2)
z`N;wO_L}q0uI-N6DtNW2rRDRdPwS5ydBkLWo}N~-wzkG_{?@Sm!9g3rtD0e9Vek4!
z4<**w+S%PQN(^qW3<?McNMo|B1Gv@n>}eTk>95n%VV#|w3%p;ZorrJkAMNek3Vl>&
zb~Z*W>tN)UZf92ivw@A-8LjlNLFu}7X)caS;PaY#LT5Y2Z3D3xWMphy&2qRosbttY
zJUm<=_YGw%vlqbze>UBk`IkcWZ~BE-V~N=R&5Xk5!M8L2_{dK+3L)j6t8Vg`qLZ!;
xGi?OR_xz)W&!1_?y1aBo9sS*gfAj=-lq$))qp51*w&c><n!414pHBYz-vIvW?cV?Z

diff --git a/reference/plot.html b/reference/plot.html
index cd4fc1ec..653e22c0 100644
--- a/reference/plot.html
+++ b/reference/plot.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"><meta name="description" content="Functions to plot classes sir, mic and disk, with support for base R and ggplot2.
-Especially scale_x_mic() is a relevant wrapper to plot MIC values for ggplot2. It allows custom MIC ranges and to plot intermediate log2 levels for missing MIC values."><title>Plotting for Classes sir, mic and disk — plot • AMR (for R)</title><!-- favicons --><link rel="icon" type="image/png" sizes="16x16" href="../favicon-16x16.png"><link rel="icon" type="image/png" sizes="32x32" href="../favicon-32x32.png"><link rel="apple-touch-icon" type="image/png" sizes="180x180" href="../apple-touch-icon.png"><link rel="apple-touch-icon" type="image/png" sizes="120x120" href="../apple-touch-icon-120x120.png"><link rel="apple-touch-icon" type="image/png" sizes="76x76" href="../apple-touch-icon-76x76.png"><link rel="apple-touch-icon" type="image/png" sizes="60x60" href="../apple-touch-icon-60x60.png"><script src="../deps/jquery-3.6.0/jquery-3.6.0.min.js"></script><meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no"><link href="../deps/bootstrap-5.3.1/bootstrap.min.css" rel="stylesheet"><script src="../deps/bootstrap-5.3.1/bootstrap.bundle.min.js"></script><link href="../deps/Fira_Code-0.4.7/font.css" rel="stylesheet"><!-- Font Awesome icons --><link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/5.12.1/css/all.min.css" integrity="sha256-mmgLkCYLUQbXn0B1SRqzHar6dCnv9oZFPEC1g1cwlkk=" crossorigin="anonymous"><link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/5.12.1/css/v4-shims.min.css" integrity="sha256-wZjR52fzng1pJHwx4aV2AO3yyTOXrcDW7jBpJtTwVxw=" crossorigin="anonymous"><!-- bootstrap-toc --><script src="https://cdn.jsdelivr.net/gh/afeld/bootstrap-toc@v1.0.1/dist/bootstrap-toc.min.js" integrity="sha256-4veVQbu7//Lk5TSmc7YV48MxtMy98e26cf5MrgZYnwo=" crossorigin="anonymous"></script><!-- headroom.js --><script src="https://cdnjs.cloudflare.com/ajax/libs/headroom/0.11.0/headroom.min.js" integrity="sha256-AsUX4SJE1+yuDu5+mAVzJbuYNPHj/WroHuZ8Ir/CkE0=" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/headroom/0.11.0/jQuery.headroom.min.js" integrity="sha256-ZX/yNShbjqsohH1k95liqY9Gd8uOiE1S4vZc+9KQ1K4=" crossorigin="anonymous"></script><!-- clipboard.js --><script src="https://cdnjs.cloudflare.com/ajax/libs/clipboard.js/2.0.6/clipboard.min.js" integrity="sha256-inc5kl9MA1hkeYUt+EC3BhlIgyp/2jDIyBLS6k3UxPI=" crossorigin="anonymous"></script><!-- search --><script src="https://cdnjs.cloudflare.com/ajax/libs/fuse.js/6.4.6/fuse.js" integrity="sha512-zv6Ywkjyktsohkbp9bb45V6tEMoWhzFzXis+LrMehmJZZSys19Yxf1dopHx7WzIKxr5tK2dVcYmaCk2uqdjF4A==" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/autocomplete.js/0.38.0/autocomplete.jquery.min.js" integrity="sha512-GU9ayf+66Xx2TmpxqJpliWbT5PiGYxpaG8rfnBEk1LL8l1KGkRShhngwdXK1UgqhAzWpZHSiYPc09/NwDQIGyg==" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/mark.js/8.11.1/mark.min.js" integrity="sha512-5CYOlHXGh6QpOFA/TeTylKLWfB3ftPsde7AnmhuitiTX4K5SqCLBeKro6sPS8ilsz1Q4NRx3v8Ko2IBiszzdww==" crossorigin="anonymous"></script><!-- pkgdown --><script src="../pkgdown.js"></script><link href="../extra.css" rel="stylesheet"><script src="../extra.js"></script><meta property="og:title" content="Plotting for Classes sir, mic and disk — plot"><meta property="og:description" content="Functions to plot classes sir, mic and disk, with support for base R and ggplot2.
-Especially scale_x_mic() is a relevant wrapper to plot MIC values for ggplot2. It allows custom MIC ranges and to plot intermediate log2 levels for missing MIC values."><meta property="og:image" content="https://msberends.github.io/AMR/logo.svg"><meta name="twitter:card" content="summary_large_image"><meta name="twitter:creator" content="@msberends"><meta name="twitter:site" content="@msberends"><!-- mathjax --><script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.5/MathJax.js" integrity="sha256-nvJJv9wWKEm88qvoQl9ekL2J+k/RWIsaSScxxlsrv8k=" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.5/config/TeX-AMS-MML_HTMLorMML.js" integrity="sha256-84DKXVJXs0/F8OTMzX4UR909+jtl4G7SPypPavF+GfA=" crossorigin="anonymous"></script><!--[if lt IE 9]>
+Especially the scale_*_mic() functions are relevant wrappers to plot MIC values for ggplot2. They allows custom MIC ranges and to plot intermediate log2 levels for missing MIC values."><title>Plotting for Classes sir, mic and disk — plot • AMR (for R)</title><!-- favicons --><link rel="icon" type="image/png" sizes="16x16" href="../favicon-16x16.png"><link rel="icon" type="image/png" sizes="32x32" href="../favicon-32x32.png"><link rel="apple-touch-icon" type="image/png" sizes="180x180" href="../apple-touch-icon.png"><link rel="apple-touch-icon" type="image/png" sizes="120x120" href="../apple-touch-icon-120x120.png"><link rel="apple-touch-icon" type="image/png" sizes="76x76" href="../apple-touch-icon-76x76.png"><link rel="apple-touch-icon" type="image/png" sizes="60x60" href="../apple-touch-icon-60x60.png"><script src="../deps/jquery-3.6.0/jquery-3.6.0.min.js"></script><meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no"><link href="../deps/bootstrap-5.3.1/bootstrap.min.css" rel="stylesheet"><script src="../deps/bootstrap-5.3.1/bootstrap.bundle.min.js"></script><link href="../deps/Fira_Code-0.4.7/font.css" rel="stylesheet"><!-- Font Awesome icons --><link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/5.12.1/css/all.min.css" integrity="sha256-mmgLkCYLUQbXn0B1SRqzHar6dCnv9oZFPEC1g1cwlkk=" crossorigin="anonymous"><link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/font-awesome/5.12.1/css/v4-shims.min.css" integrity="sha256-wZjR52fzng1pJHwx4aV2AO3yyTOXrcDW7jBpJtTwVxw=" crossorigin="anonymous"><!-- bootstrap-toc --><script src="https://cdn.jsdelivr.net/gh/afeld/bootstrap-toc@v1.0.1/dist/bootstrap-toc.min.js" integrity="sha256-4veVQbu7//Lk5TSmc7YV48MxtMy98e26cf5MrgZYnwo=" crossorigin="anonymous"></script><!-- headroom.js --><script src="https://cdnjs.cloudflare.com/ajax/libs/headroom/0.11.0/headroom.min.js" integrity="sha256-AsUX4SJE1+yuDu5+mAVzJbuYNPHj/WroHuZ8Ir/CkE0=" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/headroom/0.11.0/jQuery.headroom.min.js" integrity="sha256-ZX/yNShbjqsohH1k95liqY9Gd8uOiE1S4vZc+9KQ1K4=" crossorigin="anonymous"></script><!-- clipboard.js --><script src="https://cdnjs.cloudflare.com/ajax/libs/clipboard.js/2.0.6/clipboard.min.js" integrity="sha256-inc5kl9MA1hkeYUt+EC3BhlIgyp/2jDIyBLS6k3UxPI=" crossorigin="anonymous"></script><!-- search --><script src="https://cdnjs.cloudflare.com/ajax/libs/fuse.js/6.4.6/fuse.js" integrity="sha512-zv6Ywkjyktsohkbp9bb45V6tEMoWhzFzXis+LrMehmJZZSys19Yxf1dopHx7WzIKxr5tK2dVcYmaCk2uqdjF4A==" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/autocomplete.js/0.38.0/autocomplete.jquery.min.js" integrity="sha512-GU9ayf+66Xx2TmpxqJpliWbT5PiGYxpaG8rfnBEk1LL8l1KGkRShhngwdXK1UgqhAzWpZHSiYPc09/NwDQIGyg==" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/mark.js/8.11.1/mark.min.js" integrity="sha512-5CYOlHXGh6QpOFA/TeTylKLWfB3ftPsde7AnmhuitiTX4K5SqCLBeKro6sPS8ilsz1Q4NRx3v8Ko2IBiszzdww==" crossorigin="anonymous"></script><!-- pkgdown --><script src="../pkgdown.js"></script><link href="../extra.css" rel="stylesheet"><script src="../extra.js"></script><meta property="og:title" content="Plotting for Classes sir, mic and disk — plot"><meta property="og:description" content="Functions to plot classes sir, mic and disk, with support for base R and ggplot2.
+Especially the scale_*_mic() functions are relevant wrappers to plot MIC values for ggplot2. They allows custom MIC ranges and to plot intermediate log2 levels for missing MIC values."><meta property="og:image" content="https://msberends.github.io/AMR/logo.svg"><meta name="twitter:card" content="summary_large_image"><meta name="twitter:creator" content="@msberends"><meta name="twitter:site" content="@msberends"><!-- mathjax --><script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.5/MathJax.js" integrity="sha256-nvJJv9wWKEm88qvoQl9ekL2J+k/RWIsaSScxxlsrv8k=" crossorigin="anonymous"></script><script src="https://cdnjs.cloudflare.com/ajax/libs/mathjax/2.7.5/config/TeX-AMS-MML_HTMLorMML.js" integrity="sha256-84DKXVJXs0/F8OTMzX4UR909+jtl4G7SPypPavF+GfA=" crossorigin="anonymous"></script><!--[if lt IE 9]>
 <script src="https://oss.maxcdn.com/html5shiv/3.7.3/html5shiv.min.js"></script>
 <script src="https://oss.maxcdn.com/respond/1.4.2/respond.min.js"></script>
 <![endif]--></head><body>
@@ -12,7 +12,7 @@ Especially scale_x_mic() is a relevant wrapper to plot MIC values for ggplot2. I
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -163,12 +163,20 @@ Especially scale_x_mic() is a relevant wrapper to plot MIC values for ggplot2. I
 
     <div class="ref-description section level2">
     <p>Functions to plot classes <code>sir</code>, <code>mic</code> and <code>disk</code>, with support for base <span style="R">R</span> and <code>ggplot2</code>.</p>
-<p>Especially <code>scale_x_mic()</code> is a relevant wrapper to plot MIC values for <code>ggplot2</code>. It allows custom MIC ranges and to plot intermediate log2 levels for missing MIC values.</p>
+<p>Especially the <code>scale_*_mic()</code> functions are relevant wrappers to plot MIC values for <code>ggplot2</code>. They allows custom MIC ranges and to plot intermediate log2 levels for missing MIC values.</p>
     </div>
 
     <div class="section level2">
     <h2 id="ref-usage">Usage<a class="anchor" aria-label="anchor" href="#ref-usage"></a></h2>
-    <div class="sourceCode"><pre class="sourceCode r"><code><span><span class="co"># S3 method for mic</span></span>
+    <div class="sourceCode"><pre class="sourceCode r"><code><span><span class="fu">scale_x_mic</span><span class="op">(</span>keep_operators <span class="op">=</span> <span class="st">"edges"</span>, mic_range <span class="op">=</span> <span class="cn">NULL</span>, <span class="va">...</span><span class="op">)</span></span>
+<span></span>
+<span><span class="fu">scale_y_mic</span><span class="op">(</span>keep_operators <span class="op">=</span> <span class="st">"edges"</span>, mic_range <span class="op">=</span> <span class="cn">NULL</span>, <span class="va">...</span><span class="op">)</span></span>
+<span></span>
+<span><span class="fu">scale_colour_mic</span><span class="op">(</span>keep_operators <span class="op">=</span> <span class="st">"edges"</span>, mic_range <span class="op">=</span> <span class="cn">NULL</span>, <span class="va">...</span><span class="op">)</span></span>
+<span></span>
+<span><span class="fu">scale_fill_mic</span><span class="op">(</span>keep_operators <span class="op">=</span> <span class="st">"edges"</span>, mic_range <span class="op">=</span> <span class="cn">NULL</span>, <span class="va">...</span><span class="op">)</span></span>
+<span></span>
+<span><span class="co"># S3 method for mic</span></span>
 <span><span class="fu">plot</span><span class="op">(</span></span>
 <span>  <span class="va">x</span>,</span>
 <span>  mo <span class="op">=</span> <span class="cn">NULL</span>,</span>
@@ -205,16 +213,6 @@ Especially scale_x_mic() is a relevant wrapper to plot MIC values for ggplot2. I
 <span><span class="co"># S3 method for mic</span></span>
 <span><span class="fu"><a href="https://ggplot2.tidyverse.org/reference/fortify.html" class="external-link">fortify</a></span><span class="op">(</span><span class="va">object</span>, <span class="va">...</span><span class="op">)</span></span>
 <span></span>
-<span><span class="fu">scale_x_mic</span><span class="op">(</span></span>
-<span>  keep_operators <span class="op">=</span> <span class="st">"edges"</span>,</span>
-<span>  mic_range <span class="op">=</span> <span class="cn">NULL</span>,</span>
-<span>  <span class="va">...</span>,</span>
-<span>  drop <span class="op">=</span> <span class="cn">FALSE</span>,</span>
-<span>  guide <span class="op">=</span> <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/waiver.html" class="external-link">waiver</a></span><span class="op">(</span><span class="op">)</span>,</span>
-<span>  position <span class="op">=</span> <span class="st">"bottom"</span>,</span>
-<span>  na.translate <span class="op">=</span> <span class="cn">TRUE</span></span>
-<span><span class="op">)</span></span>
-<span></span>
 <span><span class="co"># S3 method for disk</span></span>
 <span><span class="fu">plot</span><span class="op">(</span></span>
 <span>  <span class="va">x</span>,</span>
@@ -279,7 +277,19 @@ Especially scale_x_mic() is a relevant wrapper to plot MIC values for ggplot2. I
 
     <div class="section level2">
     <h2 id="arguments">Arguments<a class="anchor" aria-label="anchor" href="#arguments"></a></h2>
-    <dl><dt>x, object</dt>
+    <dl><dt>keep_operators</dt>
+<dd><p>a <a href="https://rdrr.io/r/base/character.html" class="external-link">character</a> specifying how to handle operators (such as <code>&gt;</code> and <code>&lt;=</code>) in the input. Accepts one of three values: <code>"all"</code> (or <code>TRUE</code>) to keep all operators, <code>"none"</code> (or <code>FALSE</code>) to remove all operators, or <code>"edges"</code> to keep operators only at both ends of the range.</p></dd>
+
+
+<dt>mic_range</dt>
+<dd><p>a manual range to plot the MIC values, e.g., <code>mic_range = c(0.001, 32)</code>. Use <code>NA</code> to set no limit on one side, e.g., <code>mic_range = c(NA, 32)</code>.</p></dd>
+
+
+<dt>...</dt>
+<dd><p>arguments passed on to methods</p></dd>
+
+
+<dt>x, object</dt>
 <dd><p>values created with <code><a href="as.mic.html">as.mic()</a></code>, <code><a href="as.disk.html">as.disk()</a></code> or <code><a href="as.sir.html">as.sir()</a></code> (or their <code>random_*</code> variants, such as <code><a href="random.html">random_mic()</a></code>)</p></dd>
 
 
@@ -322,22 +332,6 @@ Especially scale_x_mic() is a relevant wrapper to plot MIC values for ggplot2. I
 <dt>breakpoint_type</dt>
 <dd><p>the type of breakpoints to use, either "ECOFF", "animal", or "human". ECOFF stands for Epidemiological Cut-Off values. The default is <code>"human"</code>, which can also be set with the <a href="AMR-options.html">package option</a> <code><a href="AMR-options.html">AMR_breakpoint_type</a></code>.</p></dd>
 
-
-<dt>...</dt>
-<dd><p>arguments passed on to methods</p></dd>
-
-
-<dt>keep_operators</dt>
-<dd><p>a <a href="https://rdrr.io/r/base/character.html" class="external-link">character</a> specifying how to handle operators (such as <code>&gt;</code> and <code>&lt;=</code>) in the input. Accepts one of three values: <code>"all"</code> (or <code>TRUE</code>) to keep all operators, <code>"none"</code> (or <code>FALSE</code>) to remove all operators, or <code>"edges"</code> to keep operators only at both ends of the range.</p></dd>
-
-
-<dt>mic_range</dt>
-<dd><p>a manual range to plot the MIC values, e.g., <code>mic_range = c(0.001, 32)</code>. Use <code>NA</code> to set no limit on one side, e.g., <code>mic_range = c(NA, 32)</code>.</p></dd>
-
-
-<dt>drop, guide, position, na.translate</dt>
-<dd><p>arguments passed on to <code><a href="https://ggplot2.tidyverse.org/reference/scale_discrete.html" class="external-link">ggplot2::scale_x_discrete()</a></code></p></dd>
-
 </dl></div>
     <div class="section level2">
     <h2 id="value">Value<a class="anchor" aria-label="anchor" href="#value"></a></h2>
@@ -376,20 +370,6 @@ Especially scale_x_mic() is a relevant wrapper to plot MIC values for ggplot2. I
 <span class="r-in"><span><span class="fu">plot</span><span class="op">(</span><span class="va">some_disk_values</span>, mo <span class="op">=</span> <span class="st">"Escherichia coli"</span>, ab <span class="op">=</span> <span class="st">"cipro"</span>, language <span class="op">=</span> <span class="st">"nl"</span><span class="op">)</span></span></span>
 <span class="r-plt img"><img src="plot-6.png" alt="" width="700" height="433"></span>
 <span class="r-in"><span></span></span>
-<span class="r-in"><span><span class="co"># \donttest{</span></span></span>
-<span class="r-in"><span><span class="kw">if</span> <span class="op">(</span><span class="kw"><a href="https://rdrr.io/r/base/library.html" class="external-link">require</a></span><span class="op">(</span><span class="st"><a href="https://ggplot2.tidyverse.org" class="external-link">"ggplot2"</a></span><span class="op">)</span><span class="op">)</span> <span class="op">{</span></span></span>
-<span class="r-in"><span>  <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/autoplot.html" class="external-link">autoplot</a></span><span class="op">(</span><span class="va">some_mic_values</span><span class="op">)</span></span></span>
-<span class="r-in"><span><span class="op">}</span></span></span>
-<span class="r-plt img"><img src="plot-7.png" alt="" width="700" height="433"></span>
-<span class="r-in"><span><span class="kw">if</span> <span class="op">(</span><span class="kw"><a href="https://rdrr.io/r/base/library.html" class="external-link">require</a></span><span class="op">(</span><span class="st"><a href="https://ggplot2.tidyverse.org" class="external-link">"ggplot2"</a></span><span class="op">)</span><span class="op">)</span> <span class="op">{</span></span></span>
-<span class="r-in"><span>  <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/autoplot.html" class="external-link">autoplot</a></span><span class="op">(</span><span class="va">some_disk_values</span>, mo <span class="op">=</span> <span class="st">"Escherichia coli"</span>, ab <span class="op">=</span> <span class="st">"cipro"</span><span class="op">)</span></span></span>
-<span class="r-in"><span><span class="op">}</span></span></span>
-<span class="r-plt img"><img src="plot-8.png" alt="" width="700" height="433"></span>
-<span class="r-in"><span><span class="kw">if</span> <span class="op">(</span><span class="kw"><a href="https://rdrr.io/r/base/library.html" class="external-link">require</a></span><span class="op">(</span><span class="st"><a href="https://ggplot2.tidyverse.org" class="external-link">"ggplot2"</a></span><span class="op">)</span><span class="op">)</span> <span class="op">{</span></span></span>
-<span class="r-in"><span>  <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/autoplot.html" class="external-link">autoplot</a></span><span class="op">(</span><span class="va">some_sir_values</span><span class="op">)</span></span></span>
-<span class="r-in"><span><span class="op">}</span></span></span>
-<span class="r-plt img"><img src="plot-9.png" alt="" width="700" height="433"></span>
-<span class="r-in"><span><span class="co"># }</span></span></span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="co"># Plotting using scale_x_mic()</span></span></span>
 <span class="r-in"><span><span class="co"># \donttest{</span></span></span>
@@ -401,24 +381,37 @@ Especially scale_x_mic() is a relevant wrapper to plot MIC values for ggplot2. I
 <span class="r-in"><span>  <span class="va">mic_plot</span> <span class="op">+</span></span></span>
 <span class="r-in"><span>    <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/labs.html" class="external-link">labs</a></span><span class="op">(</span>title <span class="op">=</span> <span class="st">"without scale_x_mic()"</span><span class="op">)</span></span></span>
 <span class="r-in"><span><span class="op">}</span></span></span>
-<span class="r-plt img"><img src="plot-10.png" alt="" width="700" height="433"></span>
+<span class="r-plt img"><img src="plot-7.png" alt="" width="700" height="433"></span>
 <span class="r-in"><span><span class="kw">if</span> <span class="op">(</span><span class="kw"><a href="https://rdrr.io/r/base/library.html" class="external-link">require</a></span><span class="op">(</span><span class="st"><a href="https://ggplot2.tidyverse.org" class="external-link">"ggplot2"</a></span><span class="op">)</span><span class="op">)</span> <span class="op">{</span></span></span>
 <span class="r-in"><span>  <span class="va">mic_plot</span> <span class="op">+</span></span></span>
 <span class="r-in"><span>    <span class="fu">scale_x_mic</span><span class="op">(</span><span class="op">)</span> <span class="op">+</span></span></span>
 <span class="r-in"><span>    <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/labs.html" class="external-link">labs</a></span><span class="op">(</span>title <span class="op">=</span> <span class="st">"with scale_x_mic()"</span><span class="op">)</span></span></span>
 <span class="r-in"><span><span class="op">}</span></span></span>
-<span class="r-plt img"><img src="plot-11.png" alt="" width="700" height="433"></span>
+<span class="r-plt img"><img src="plot-8.png" alt="" width="700" height="433"></span>
 <span class="r-in"><span><span class="kw">if</span> <span class="op">(</span><span class="kw"><a href="https://rdrr.io/r/base/library.html" class="external-link">require</a></span><span class="op">(</span><span class="st"><a href="https://ggplot2.tidyverse.org" class="external-link">"ggplot2"</a></span><span class="op">)</span><span class="op">)</span> <span class="op">{</span></span></span>
 <span class="r-in"><span>  <span class="va">mic_plot</span> <span class="op">+</span></span></span>
 <span class="r-in"><span>    <span class="fu">scale_x_mic</span><span class="op">(</span>keep_operators <span class="op">=</span> <span class="st">"all"</span><span class="op">)</span> <span class="op">+</span></span></span>
 <span class="r-in"><span>    <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/labs.html" class="external-link">labs</a></span><span class="op">(</span>title <span class="op">=</span> <span class="st">"with scale_x_mic() keeping all operators"</span><span class="op">)</span></span></span>
 <span class="r-in"><span><span class="op">}</span></span></span>
-<span class="r-plt img"><img src="plot-12.png" alt="" width="700" height="433"></span>
+<span class="r-plt img"><img src="plot-9.png" alt="" width="700" height="433"></span>
 <span class="r-in"><span><span class="kw">if</span> <span class="op">(</span><span class="kw"><a href="https://rdrr.io/r/base/library.html" class="external-link">require</a></span><span class="op">(</span><span class="st"><a href="https://ggplot2.tidyverse.org" class="external-link">"ggplot2"</a></span><span class="op">)</span><span class="op">)</span> <span class="op">{</span></span></span>
 <span class="r-in"><span>  <span class="va">mic_plot</span> <span class="op">+</span></span></span>
 <span class="r-in"><span>    <span class="fu">scale_x_mic</span><span class="op">(</span>mic_range <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/c.html" class="external-link">c</a></span><span class="op">(</span><span class="fl">1</span>, <span class="fl">128</span><span class="op">)</span><span class="op">)</span> <span class="op">+</span></span></span>
 <span class="r-in"><span>    <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/labs.html" class="external-link">labs</a></span><span class="op">(</span>title <span class="op">=</span> <span class="st">"with scale_x_mic() using a manual range"</span><span class="op">)</span></span></span>
 <span class="r-in"><span><span class="op">}</span></span></span>
+<span class="r-plt img"><img src="plot-10.png" alt="" width="700" height="433"></span>
+<span class="r-in"><span></span></span>
+<span class="r-in"><span><span class="kw">if</span> <span class="op">(</span><span class="kw"><a href="https://rdrr.io/r/base/library.html" class="external-link">require</a></span><span class="op">(</span><span class="st"><a href="https://ggplot2.tidyverse.org" class="external-link">"ggplot2"</a></span><span class="op">)</span><span class="op">)</span> <span class="op">{</span></span></span>
+<span class="r-in"><span>  <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/autoplot.html" class="external-link">autoplot</a></span><span class="op">(</span><span class="va">some_mic_values</span><span class="op">)</span></span></span>
+<span class="r-in"><span><span class="op">}</span></span></span>
+<span class="r-plt img"><img src="plot-11.png" alt="" width="700" height="433"></span>
+<span class="r-in"><span><span class="kw">if</span> <span class="op">(</span><span class="kw"><a href="https://rdrr.io/r/base/library.html" class="external-link">require</a></span><span class="op">(</span><span class="st"><a href="https://ggplot2.tidyverse.org" class="external-link">"ggplot2"</a></span><span class="op">)</span><span class="op">)</span> <span class="op">{</span></span></span>
+<span class="r-in"><span>  <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/autoplot.html" class="external-link">autoplot</a></span><span class="op">(</span><span class="va">some_disk_values</span>, mo <span class="op">=</span> <span class="st">"Escherichia coli"</span>, ab <span class="op">=</span> <span class="st">"cipro"</span><span class="op">)</span></span></span>
+<span class="r-in"><span><span class="op">}</span></span></span>
+<span class="r-plt img"><img src="plot-12.png" alt="" width="700" height="433"></span>
+<span class="r-in"><span><span class="kw">if</span> <span class="op">(</span><span class="kw"><a href="https://rdrr.io/r/base/library.html" class="external-link">require</a></span><span class="op">(</span><span class="st"><a href="https://ggplot2.tidyverse.org" class="external-link">"ggplot2"</a></span><span class="op">)</span><span class="op">)</span> <span class="op">{</span></span></span>
+<span class="r-in"><span>  <span class="fu"><a href="https://ggplot2.tidyverse.org/reference/autoplot.html" class="external-link">autoplot</a></span><span class="op">(</span><span class="va">some_sir_values</span><span class="op">)</span></span></span>
+<span class="r-in"><span><span class="op">}</span></span></span>
 <span class="r-plt img"><img src="plot-13.png" alt="" width="700" height="433"></span>
 <span class="r-in"><span><span class="co"># }</span></span></span>
 </code></pre></div>
diff --git a/reference/proportion.html b/reference/proportion.html
index c2f1f7f7..da0ec68d 100644
--- a/reference/proportion.html
+++ b/reference/proportion.html
@@ -12,7 +12,7 @@ resistance() should be used to calculate resistance, susceptibility() should be
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <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 1cb8ba45..9d782f7d 100644
--- a/reference/random.html
+++ b/reference/random.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -210,42 +210,42 @@
     <h2 id="ref-examples">Examples<a class="anchor" aria-label="anchor" href="#ref-examples"></a></h2>
     <div class="sourceCode"><pre class="sourceCode r"><code><span class="r-in"><span><span class="fu">random_mic</span><span class="op">(</span><span class="fl">25</span><span class="op">)</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> Class 'mic'</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 128    2      0.25   256    8      0.025  2      0.5    0.01   0.001 </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [11] 0.0625 0.25   1      0.5    8      0.005  0.01   16     64     256   </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [21] 128    256    2      0.125  2     </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 128     &lt;=0.001 0.25    &lt;=0.001 2       0.0625  64      1       8      </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [10] 0.25    128     &lt;=0.001 128     64      0.025   &lt;=0.001 0.005   4      </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [19] &lt;=0.001 0.125   &lt;=0.001 16      0.0625  &lt;=0.001 4      </span>
 <span class="r-in"><span><span class="fu">random_disk</span><span class="op">(</span><span class="fl">25</span><span class="op">)</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> Class 'disk'</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 28 40 26 12 43 37 35 14 33 43 16  9 34 33 41 42 46 41 41 40 23 50 44 41 27</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 49 37 48 24 40 25 46 28 29 48 32 22 42 41 42 27 36 11 42 28 50 16 41  8 43</span>
 <span class="r-in"><span><span class="fu">random_sir</span><span class="op">(</span><span class="fl">25</span><span class="op">)</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> Class 'sir'</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] I I R I S R R R R S S S R R S R I S I I S I I I I</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] R S S I S S S R R S S R S R R R S I S I R S R S R</span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="co"># \donttest{</span></span></span>
 <span class="r-in"><span><span class="co"># make the random generation more realistic by setting a bug and/or drug:</span></span></span>
 <span class="r-in"><span><span class="fu">random_mic</span><span class="op">(</span><span class="fl">25</span>, <span class="st">"Klebsiella pneumoniae"</span><span class="op">)</span> <span class="co"># range 0.0625-64</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> Class 'mic'</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 64      0.025   0.025   0.025   1       16      8       32      &lt;=0.002</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [10] 64      8       0.005   2       8       0.5     32      64      0.0625 </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [19] 0.025   0.025   0.125   0.125   1       16      32     </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 0.001  4      0.5    16     0.002  32     0.01   64     1      0.002 </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [11] 32     0.025  0.0625 0.25   16     2      0.002  8      0.5    0.001 </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [21] 8      16     0.25   0.002  0.001 </span>
 <span class="r-in"><span><span class="fu">random_mic</span><span class="op">(</span><span class="fl">25</span>, <span class="st">"Klebsiella pneumoniae"</span>, <span class="st">"meropenem"</span><span class="op">)</span> <span class="co"># range 0.0625-16</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> Class 'mic'</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 0.5 2   2   4   16  0.5 16  16  8   8   4   8   8   0.5 16  0.5 1   1   16 </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [20] 4   1   8   4   4   2  </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 0.5  2    0.5  4    1    1    1    16   1    0.5  0.25 16   1    4    0.25</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [16] 2    2    0.5  16   1    0.5  2    4    1    1   </span>
 <span class="r-in"><span><span class="fu">random_mic</span><span class="op">(</span><span class="fl">25</span>, <span class="st">"Streptococcus pneumoniae"</span>, <span class="st">"meropenem"</span><span class="op">)</span> <span class="co"># range 0.0625-4</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> Class 'mic'</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 0.25  1     2     0.125 0.25  &gt;=4   1     2     0.5   2     0.125 0.5  </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [13] 0.5   0.125 &gt;=4   2     1     2     2     0.5   0.125 &gt;=4   1     1    </span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [25] &gt;=4  </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 8      0.025  0.5    2      0.125  0.25   4      0.5    0.125  0.0625</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [11] 0.0625 1      0.5    &gt;=16   0.025  0.0625 0.5    1      4      4     </span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [21] 8      0.125  1      0.25   0.025 </span>
 <span class="r-in"><span></span></span>
 <span class="r-in"><span><span class="fu">random_disk</span><span class="op">(</span><span class="fl">25</span>, <span class="st">"Klebsiella pneumoniae"</span><span class="op">)</span> <span class="co"># range 8-50</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> Class 'disk'</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 36 42 24 10 21 20 40 18 45 26 22 35 22 11 43 30 48  8 43 16 36 32 41 34 32</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 20 36 50 50 46 42 47 48 43 31 42 50 44 49 39 29 46 44 47 20 48 12 10 47 12</span>
 <span class="r-in"><span><span class="fu">random_disk</span><span class="op">(</span><span class="fl">25</span>, <span class="st">"Klebsiella pneumoniae"</span>, <span class="st">"ampicillin"</span><span class="op">)</span> <span class="co"># range 11-17</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> Class 'disk'</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 15 12 14 16 12 12 12 13 14 16 12 11 13 12 12 15 12 12 17 17 14 17 15 13 15</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 14 13 12 14 11 12 15 16 13 14 13 17 15 14 15 13 15 16 16 15 11 11 16 11 15</span>
 <span class="r-in"><span><span class="fu">random_disk</span><span class="op">(</span><span class="fl">25</span>, <span class="st">"Streptococcus pneumoniae"</span>, <span class="st">"ampicillin"</span><span class="op">)</span> <span class="co"># range 12-27</span></span></span>
 <span class="r-out co"><span class="r-pr">#&gt;</span> Class 'disk'</span>
-<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 27 17 27 19 22 19 27 19 21 21 19 24 20 20 27 27 22 20 18 24 19 24 17 19 18</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span>  [1] 17 16 22 26 23 26 20 19 15 15 24 23 23 18 16 17 23 27 21 26 22 24 23 26 23</span>
 <span class="r-in"><span><span class="co"># }</span></span></span>
 </code></pre></div>
     </div>
diff --git a/reference/resistance_predict.html b/reference/resistance_predict.html
index f3bf8ab4..bbbb0b2b 100644
--- a/reference/resistance_predict.html
+++ b/reference/resistance_predict.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <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 91c3f0bc..fc2015b0 100644
--- a/reference/skewness.html
+++ b/reference/skewness.html
@@ -12,7 +12,7 @@ When negative ('left-skewed'): the left tail is longer; the mass of the distribu
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -198,7 +198,7 @@ When negative ('left-skewed'): the left tail is longer; the mass of the distribu
     <div class="section level2">
     <h2 id="ref-examples">Examples<a class="anchor" aria-label="anchor" href="#ref-examples"></a></h2>
     <div class="sourceCode"><pre class="sourceCode r"><code><span class="r-in"><span><span class="fu">skewness</span><span class="op">(</span><span class="fu"><a href="https://rdrr.io/r/stats/Uniform.html" class="external-link">runif</a></span><span class="op">(</span><span class="fl">1000</span><span class="op">)</span><span class="op">)</span></span></span>
-<span class="r-out co"><span class="r-pr">#&gt;</span> [1] 0.003091474</span>
+<span class="r-out co"><span class="r-pr">#&gt;</span> [1] -0.007908431</span>
 </code></pre></div>
     </div>
   </main><aside class="col-md-3"><nav id="toc"><h2>On this page</h2>
diff --git a/reference/translate.html b/reference/translate.html
index 2410a14e..4f228853 100644
--- a/reference/translate.html
+++ b/reference/translate.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">AMR (for R)</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9001</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">2.1.1.9002</small>
 
     
     <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 a55a5bca..55670868 100644
--- a/search.json
+++ b/search.json
@@ -1 +1 @@
-[{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"introduction","dir":"Articles","previous_headings":"","what":"Introduction","title":"How to conduct AMR data analysis","text":"Conducting AMR data analysis unfortunately requires -depth knowledge different scientific fields, makes hard right. least, requires: Good questions (always start !) reliable data thorough understanding (clinical) epidemiology, understand clinical epidemiological relevance possible bias results thorough understanding (clinical) microbiology/infectious diseases, understand microorganisms causal infections implications pharmaceutical treatment, well understanding intrinsic acquired microbial resistance Experience data analysis microbiological tests results, understand determination limitations MIC values interpretations SIR values Availability biological taxonomy microorganisms probably normalisation factors pharmaceuticals, defined daily doses (DDD) Available (inter-)national guidelines, profound methods apply course, instantly provide knowledge experience. AMR package, aimed providing (1) tools simplify antimicrobial resistance data cleaning, transformation analysis, (2) methods easily incorporate international guidelines (3) scientifically reliable reference data, including requirements mentioned . AMR package enables standardised reproducible AMR data analysis, application evidence-based rules, determination first isolates, translation various codes microorganisms antimicrobial agents, determination (multi-drug) resistant microorganisms, calculation antimicrobial resistance, prevalence future trends.","code":""},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"preparation","dir":"Articles","previous_headings":"","what":"Preparation","title":"How to conduct AMR data analysis","text":"tutorial, create fake demonstration data work . can skip Cleaning data already data ready. start analysis, try make structure data generally look like :","code":""},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"needed-r-packages","dir":"Articles","previous_headings":"Preparation","what":"Needed R packages","title":"How to conduct AMR data analysis","text":"many uses R, need additional packages AMR data analysis. package works closely together tidyverse packages dplyr ggplot2 RStudio. tidyverse tremendously improves way conduct data science - allows natural way writing syntaxes creating beautiful plots R. also use cleaner package, can used cleaning data creating frequency tables. AMR package contains data set example_isolates_unclean, might look data users extracted laboratory systems: AMR data analysis, like microorganism column contain valid, --date taxonomy, antibiotic columns cleaned SIR values well.","code":"library(dplyr) library(ggplot2) library(AMR)  # (if not yet installed, install with:) # install.packages(c(\"dplyr\", \"ggplot2\", \"AMR\")) example_isolates_unclean #> # A tibble: 3,000 × 8 #>    patient_id hospital date       bacteria      AMX   AMC   CIP   GEN   #>    <chr>      <chr>    <date>     <chr>         <chr> <chr> <chr> <chr> #>  1 J3         A        2012-11-21 E. coli       R     I     S     S     #>  2 R7         A        2018-04-03 K. pneumoniae R     I     S     S     #>  3 P3         A        2014-09-19 E. coli       R     S     S     S     #>  4 P10        A        2015-12-10 E. coli       S     I     S     S     #>  5 B7         A        2015-03-02 E. coli       S     S     S     S     #>  6 W3         A        2018-03-31 S. aureus     R     S     R     S     #>  7 J8         A        2016-06-14 E. coli       R     S     S     S     #>  8 M3         A        2015-10-25 E. coli       R     S     S     S     #>  9 J3         A        2019-06-19 E. coli       S     S     S     S     #> 10 G6         A        2015-04-27 S. aureus     S     S     S     S     #> # ℹ 2,990 more rows  # we will use 'our_data' as the data set name for this tutorial our_data <- example_isolates_unclean"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"taxonomy-of-microorganisms","dir":"Articles","previous_headings":"Preparation","what":"Taxonomy of microorganisms","title":"How to conduct AMR data analysis","text":".mo(), users can transform arbitrary microorganism names codes current taxonomy. AMR package contains --date taxonomic data. specific, currently included data retrieved 11 Dec 2022. codes AMR packages come .mo() short, still human readable. importantly, .mo() supports kinds input: first character codes denote taxonomic kingdom, Bacteria (B), Fungi (F), Protozoa (P). AMR package also contain functions directly retrieve taxonomic properties, name, genus, species, family, order, even Gram-stain. start mo_ use .mo() internally, still arbitrary user input can used: Now can thus clean data: Apparently, uncertainty translation taxonomic codes. Let’s check : ’s good.","code":"as.mo(\"Klebsiella pneumoniae\") #> Class 'mo' #> [1] B_KLBSL_PNMN as.mo(\"K. pneumoniae\") #> Class 'mo' #> [1] B_KLBSL_PNMN as.mo(\"KLEPNE\") #> Class 'mo' #> [1] B_KLBSL_PNMN as.mo(\"KLPN\") #> Class 'mo' #> [1] B_KLBSL_PNMN mo_family(\"K. pneumoniae\") #> [1] \"Enterobacteriaceae\" mo_genus(\"K. pneumoniae\") #> [1] \"Klebsiella\" mo_species(\"K. pneumoniae\") #> [1] \"pneumoniae\"  mo_gramstain(\"Klebsiella pneumoniae\") #> [1] \"Gram-negative\"  mo_ref(\"K. pneumoniae\") #> [1] \"Trevisan, 1887\"  mo_snomed(\"K. pneumoniae\") #> [[1]] #> [1] \"1098101000112102\" \"446870005\"        \"1098201000112108\" \"409801009\"        #> [5] \"56415008\"         \"714315002\"        \"713926009\" our_data$bacteria <- as.mo(our_data$bacteria, info = TRUE) #> ℹ Microorganism translation was uncertain for four microorganisms. Run #>   mo_uncertainties() to review these uncertainties, or use #>   add_custom_microorganisms() to add custom entries. mo_uncertainties() #> Matching scores are based on the resemblance between the input and the full #> taxonomic name, and the pathogenicity in humans. See ?mo_matching_score. #>  #> -------------------------------------------------------------------------------- #> \"E. coli\" -> Escherichia coli (B_ESCHR_COLI, 0.688) #> Also matched: Enterobacter cowanii (0.600), Eubacterium combesii #>               (0.600), Eggerthia catenaformis (0.591), Eubacterium callanderi #>               (0.591), Enterocloster citroniae (0.587), Eubacterium cylindroides #>               (0.583), Enterococcus casseliflavus (0.577), Enterobacter cloacae #>               cloacae (0.571), Enterobacter cloacae complex (0.571), and Ehrlichia #>               canis (0.567) #> -------------------------------------------------------------------------------- #> \"K. pneumoniae\" -> Klebsiella pneumoniae (B_KLBSL_PNMN, 0.786) #> Also matched: Klebsiella pneumoniae ozaenae (0.707), Klebsiella #>               pneumoniae pneumoniae (0.688), Klebsiella pneumoniae rhinoscleromatis #>               (0.658), Klebsiella pasteurii (0.500), Klebsiella planticola (0.500), #>               Kingella potus (0.400), Kosakonia pseudosacchari (0.361), Kaistella #>               palustris (0.333), Kocuria palustris (0.333), and Kocuria pelophila #>               (0.333) #> -------------------------------------------------------------------------------- #> \"S. aureus\" -> Staphylococcus aureus (B_STPHY_AURS, 0.690) #> Also matched: Staphylococcus aureus aureus (0.643), Staphylococcus #>               argenteus (0.625), Staphylococcus aureus anaerobius (0.625), Salmonella #>               Aurelianis (0.595), Salmonella Aarhus (0.588), Salmonella Amounderness #>               (0.587), Selenomonas artemidis (0.571), Salmonella choleraesuis #>               arizonae (0.562), Streptococcus anginosus anginosus (0.561), and #>               Salmonella Abaetetuba (0.548) #> -------------------------------------------------------------------------------- #> \"S. pneumoniae\" -> Streptococcus pneumoniae (B_STRPT_PNMN, 0.750) #> Also matched: Streptococcus pseudopneumoniae (0.700), Serratia #>               proteamaculans quinovora (0.545), Streptococcus pseudoporcinus (0.536), #>               Staphylococcus pseudintermedius (0.532), Serratia proteamaculans #>               proteamaculans (0.526), Salmonella Portanigra (0.524), Sphingomonas #>               paucimobilis (0.520), Streptococcus pluranimalium (0.519), #>               Streptococcus constellatus pharyngis (0.514), and Salmonella Pakistan #>               (0.500) #>  #> Only the first 10 other matches of each record are shown. Run #> print(mo_uncertainties(), n = ...) to view more entries, or save #> mo_uncertainties() to an object."},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"antibiotic-results","dir":"Articles","previous_headings":"Preparation","what":"Antibiotic results","title":"How to conduct AMR data analysis","text":"column antibiotic test results must also cleaned. AMR package comes three new data types work test results: mic minimal inhibitory concentrations (MIC), disk disk diffusion diameters, sir SIR data interpreted already. package can also determine SIR values based MIC disk diffusion values, read .sir() page. now, just clean SIR columns data using dplyr: basically cleaning, time start data inclusion.","code":"# method 1, be explicit about the columns: our_data <- our_data %>%   mutate_at(vars(AMX:GEN), as.sir)  # method 2, let the AMR package determine the eligible columns our_data <- our_data %>%   mutate_if(is_sir_eligible, as.sir)  # result: our_data #> # A tibble: 3,000 × 8 #>    patient_id hospital date       bacteria     AMX   AMC   CIP   GEN   #>    <chr>      <chr>    <date>     <mo>         <sir> <sir> <sir> <sir> #>  1 J3         A        2012-11-21 B_ESCHR_COLI R     I     S     S     #>  2 R7         A        2018-04-03 B_KLBSL_PNMN R     I     S     S     #>  3 P3         A        2014-09-19 B_ESCHR_COLI R     S     S     S     #>  4 P10        A        2015-12-10 B_ESCHR_COLI S     I     S     S     #>  5 B7         A        2015-03-02 B_ESCHR_COLI S     S     S     S     #>  6 W3         A        2018-03-31 B_STPHY_AURS R     S     R     S     #>  7 J8         A        2016-06-14 B_ESCHR_COLI R     S     S     S     #>  8 M3         A        2015-10-25 B_ESCHR_COLI R     S     S     S     #>  9 J3         A        2019-06-19 B_ESCHR_COLI S     S     S     S     #> 10 G6         A        2015-04-27 B_STPHY_AURS S     S     S     S     #> # ℹ 2,990 more rows"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"first-isolates","dir":"Articles","previous_headings":"Preparation","what":"First isolates","title":"How to conduct AMR data analysis","text":"need know isolates can actually use analysis without repetition bias. conduct analysis antimicrobial resistance, must include first isolate every patient per episode (Hindler et al., Clin Infect Dis. 2007). , easily get overestimate underestimate resistance antibiotic. Imagine patient admitted MRSA found 5 different blood cultures following weeks (yes, countries like Netherlands blood drawing policies). resistance percentage oxacillin isolates overestimated, included MRSA . clearly selection bias. Clinical Laboratory Standards Institute (CLSI) appoints follows: (…) preparing cumulative antibiogram guide clinical decisions empirical antimicrobial therapy initial infections, first isolate given species per patient, per analysis period (eg, one year) included, irrespective body site, antimicrobial susceptibility profile, phenotypical characteristics (eg, biotype). first isolate easily identified, cumulative antimicrobial susceptibility test data prepared using first isolate generally comparable cumulative antimicrobial susceptibility test data calculated methods, providing duplicate isolates excluded. M39-A4 Analysis Presentation Cumulative Antimicrobial Susceptibility Test Data, 4th Edition. CLSI, 2014. Chapter 6.4 AMR package includes methodology first_isolate() function able apply four different methods defined Hindler et al. 2007: phenotype-based, episode-based, patient-based, isolate-based. right method depends goals analysis, default phenotype-based method case method properly correct duplicate isolates. Read methods first_isolate() page. outcome function can easily added data: 90% suitable resistance analysis! can now filter filter() function, also dplyr package: future use, two syntaxes can shortened: end 2 712 isolates analysis. Now data looks like: Time analysis.","code":"our_data <- our_data %>%   mutate(first = first_isolate(info = TRUE)) #> ℹ Determining first isolates using an episode length of 365 days #> ℹ Using column 'bacteria' as input for col_mo. #> ℹ Using column 'date' as input for col_date. #> ℹ Using column 'patient_id' as input for col_patient_id. #> ℹ Basing inclusion on all antimicrobial results, using a points threshold #>   of 2 #> => Found 2,712 'phenotype-based' first isolates (90.4% 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,712 × 9 #>    patient_id hospital date       bacteria     AMX   AMC   CIP   GEN   first #>    <chr>      <chr>    <date>     <mo>         <sir> <sir> <sir> <sir> <lgl> #>  1 J3         A        2012-11-21 B_ESCHR_COLI R     I     S     S     TRUE  #>  2 R7         A        2018-04-03 B_KLBSL_PNMN R     I     S     S     TRUE  #>  3 P10        A        2015-12-10 B_ESCHR_COLI S     I     S     S     TRUE  #>  4 B7         A        2015-03-02 B_ESCHR_COLI S     S     S     S     TRUE  #>  5 W3         A        2018-03-31 B_STPHY_AURS R     S     R     S     TRUE  #>  6 M3         A        2015-10-25 B_ESCHR_COLI R     S     S     S     TRUE  #>  7 J3         A        2019-06-19 B_ESCHR_COLI S     S     S     S     TRUE  #>  8 G6         A        2015-04-27 B_STPHY_AURS S     S     S     S     TRUE  #>  9 P4         A        2011-06-21 B_ESCHR_COLI S     S     S     S     TRUE  #> 10 Z1         A        2014-09-05 B_ESCHR_COLI S     S     S     S     TRUE  #> # ℹ 2,702 more rows"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"analysing-the-data","dir":"Articles","previous_headings":"","what":"Analysing the data","title":"How to conduct AMR data analysis","text":"base R summary() function gives good first impression, comes support new mo sir classes now data set:","code":"summary(our_data_1st) #>   patient_id          hospital              date            #>  Length:2712        Length:2712        Min.   :2011-01-01   #>  Class :character   Class :character   1st Qu.:2013-05-03   #>  Mode  :character   Mode  :character   Median :2015-06-16   #>                                        Mean   :2015-06-21   #>                                        3rd Qu.:2017-08-24   #>                                        Max.   :2019-12-27   #>    bacteria               AMX                    AMC                 #>  Class :mo             Class:sir              Class:sir              #>  <NA>  :0              %R   :42.9% (n=1163)   %R   :36.1% (n=978)    #>  Unique:4              %SI  :57.1% (n=1549)   %SI  :63.9% (n=1734)   #>  #1    :B_ESCHR_COLI   - %S :41.0% (n=1112)   - %S :52.0% (n=1409)   #>  #2    :B_STPHY_AURS   - %I :16.1% (n=437)    - %I :12.0% (n=325)    #>  #3    :B_STRPT_PNMN                                                 #>     CIP                    GEN                  first         #>  Class:sir              Class:sir              Mode:logical   #>  %R   :42.0% (n=1138)   %R   :37.3% (n=1011)   TRUE:2712      #>  %SI  :58.0% (n=1574)   %SI  :62.7% (n=1701)                  #>  - %S :51.5% (n=1396)   - %S :59.6% (n=1616)                  #>  - %I : 6.6% (n=178)    - %I : 3.1% (n=85)                    #>   glimpse(our_data_1st) #> Rows: 2,712 #> Columns: 9 #> $ patient_id <chr> \"J3\", \"R7\", \"P10\", \"B7\", \"W3\", \"M3\", \"J3\", \"G6\", \"P4\", \"Z1\"… #> $ hospital   <chr> \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\",… #> $ date       <date> 2012-11-21, 2018-04-03, 2015-12-10, 2015-03-02, 2018-03-31… #> $ bacteria   <mo> \"B_ESCHR_COLI\", \"B_KLBSL_PNMN\", \"B_ESCHR_COLI\", \"B_ESCHR_COL… #> $ AMX        <sir> R, R, S, S, R, R, S, S, S, S, R, S, S, S, R, R, R, R, S, R,… #> $ AMC        <sir> I, I, I, S, S, S, S, S, S, S, S, S, I, S, S, S, S, R, S, S,… #> $ CIP        <sir> S, S, S, S, R, S, S, S, S, S, S, S, S, S, S, S, S, S, S, S,… #> $ GEN        <sir> S, S, S, S, S, S, S, S, S, S, R, S, 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       1852          4          3          3          3  #>        GEN      first  #>          3          1"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"availability-of-species","dir":"Articles","previous_headings":"Analysing the data","what":"Availability of species","title":"How to conduct AMR data analysis","text":"just get idea species distributed, create frequency table count() based name microorganisms:","code":"our_data %>%   count(mo_name(bacteria), sort = TRUE) #> # A tibble: 4 × 2 #>   `mo_name(bacteria)`          n #>   <chr>                    <int> #> 1 Escherichia coli          1518 #> 2 Staphylococcus aureus      730 #> 3 Streptococcus pneumoniae   426 #> 4 Klebsiella pneumoniae      326  our_data_1st %>%   count(mo_name(bacteria), sort = TRUE) #> # A tibble: 4 × 2 #>   `mo_name(bacteria)`          n #>   <chr>                    <int> #> 1 Escherichia coli          1319 #> 2 Staphylococcus aureus      676 #> 3 Streptococcus pneumoniae   400 #> 4 Klebsiella pneumoniae      317"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"select-and-filter-with-antibiotic-selectors","dir":"Articles","previous_headings":"Analysing the data","what":"Select and filter with antibiotic selectors","title":"How to conduct AMR data analysis","text":"Using -called antibiotic class selectors, can select filter columns based antibiotic class antibiotic results :","code":"our_data_1st %>%   select(date, aminoglycosides()) #> ℹ For aminoglycosides() using column 'GEN' (gentamicin) #> # A tibble: 2,712 × 2 #>    date       GEN   #>    <date>     <sir> #>  1 2012-11-21 S     #>  2 2018-04-03 S     #>  3 2015-12-10 S     #>  4 2015-03-02 S     #>  5 2018-03-31 S     #>  6 2015-10-25 S     #>  7 2019-06-19 S     #>  8 2015-04-27 S     #>  9 2011-06-21 S     #> 10 2014-09-05 S     #> # ℹ 2,702 more rows  our_data_1st %>%   select(bacteria, betalactams()) #> ℹ For betalactams() using columns 'AMX' (amoxicillin) and 'AMC' #>   (amoxicillin/clavulanic acid) #> # A tibble: 2,712 × 3 #>    bacteria     AMX   AMC   #>    <mo>         <sir> <sir> #>  1 B_ESCHR_COLI R     I     #>  2 B_KLBSL_PNMN R     I     #>  3 B_ESCHR_COLI S     I     #>  4 B_ESCHR_COLI S     S     #>  5 B_STPHY_AURS R     S     #>  6 B_ESCHR_COLI R     S     #>  7 B_ESCHR_COLI S     S     #>  8 B_STPHY_AURS S     S     #>  9 B_ESCHR_COLI S     S     #> 10 B_ESCHR_COLI S     S     #> # ℹ 2,702 more rows  our_data_1st %>%   select(bacteria, where(is.sir)) #> # A tibble: 2,712 × 5 #>    bacteria     AMX   AMC   CIP   GEN   #>    <mo>         <sir> <sir> <sir> <sir> #>  1 B_ESCHR_COLI R     I     S     S     #>  2 B_KLBSL_PNMN R     I     S     S     #>  3 B_ESCHR_COLI S     I     S     S     #>  4 B_ESCHR_COLI S     S     S     S     #>  5 B_STPHY_AURS R     S     R     S     #>  6 B_ESCHR_COLI R     S     S     S     #>  7 B_ESCHR_COLI S     S     S     S     #>  8 B_STPHY_AURS S     S     S     S     #>  9 B_ESCHR_COLI S     S     S     S     #> 10 B_ESCHR_COLI S     S     S     S     #> # ℹ 2,702 more rows  # filtering using AB selectors is also possible: our_data_1st %>%   filter(any(aminoglycosides() == \"R\")) #> ℹ For aminoglycosides() using column 'GEN' (gentamicin) #> # A tibble: 1,011 × 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  #> # ℹ 1,001 more rows  our_data_1st %>%   filter(all(betalactams() == \"R\")) #> ℹ For betalactams() using columns 'AMX' (amoxicillin) and 'AMC' #>   (amoxicillin/clavulanic acid) #> # A tibble: 483 × 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  #> # ℹ 473 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: 483 × 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  #> # ℹ 473 more rows"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"generate-antibiograms","dir":"Articles","previous_headings":"Analysing the data","what":"Generate antibiograms","title":"How to conduct AMR data analysis","text":"Since AMR v2.0 (March 2023), easy create different types antibiograms, support 20 different languages. four antibiogram types, proposed Klinker et al. (2021, DOI 10.1177/20499361211011373), supported new antibiogram() function: Traditional Antibiogram (TA) e.g, susceptibility Pseudomonas aeruginosa piperacillin/tazobactam (TZP) Combination Antibiogram (CA) e.g, sdditional susceptibility Pseudomonas aeruginosa TZP + tobramycin versus TZP alone Syndromic Antibiogram (SA) e.g, susceptibility Pseudomonas aeruginosa TZP among respiratory specimens (obtained among ICU patients ) Weighted-Incidence Syndromic Combination Antibiogram (WISCA) e.g, susceptibility Pseudomonas aeruginosa TZP among respiratory specimens (obtained among ICU patients ) male patients age >=65 years heart failure section, show use antibiogram() function create antibiogram types. starters, included example_isolates data set looks like:","code":"example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"traditional-antibiogram","dir":"Articles","previous_headings":"Analysing the data > Generate antibiograms","what":"Traditional Antibiogram","title":"How to conduct AMR data analysis","text":"create traditional antibiogram, simply state antibiotics used. antibiotics argument antibiogram() function supports (combination) previously mentioned antibiotic class selectors: Notice antibiogram() function automatically prints right format using Quarto R Markdown (page), even applies italics taxonomic names (using italicise_taxonomy() internally). also uses language OS either English, Chinese, Czech, Danish, Dutch, Finnish, French, German, Greek, Italian, Japanese, Norwegian, Polish, Portuguese, Romanian, Russian, Spanish, Swedish, Turkish, Ukrainian. next example, force language Spanish using language argument:","code":"antibiogram(example_isolates,             antibiotics = c(aminoglycosides(), carbapenems())) #> ℹ 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://msberends.github.io/AMR/articles/AMR.html","id":"combined-antibiogram","dir":"Articles","previous_headings":"Analysing the data > Generate antibiograms","what":"Combined Antibiogram","title":"How to conduct AMR data analysis","text":"create combined antibiogram, use antibiotic codes names plus + character like :","code":"antibiogram(example_isolates,             antibiotics = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\"))"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"syndromic-antibiogram","dir":"Articles","previous_headings":"Analysing the data > Generate antibiograms","what":"Syndromic Antibiogram","title":"How to conduct AMR data analysis","text":"create syndromic antibiogram, syndromic_group argument must used. can column data, e.g. ifelse() calculations based certain columns:","code":"antibiogram(example_isolates,             antibiotics = c(aminoglycosides(), carbapenems()),             syndromic_group = \"ward\") #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem)"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"weighted-incidence-syndromic-combination-antibiogram-wisca","dir":"Articles","previous_headings":"Analysing the data > Generate antibiograms","what":"Weighted-Incidence Syndromic Combination Antibiogram (WISCA)","title":"How to conduct AMR data analysis","text":"create WISCA, must state combination therapy antibiotics argument (similar Combination Antibiogram), define syndromic group syndromic_group argument (similar Syndromic Antibiogram) cases predefined based clinical demographic characteristics (e.g., endocarditis 75+ females). next example simplification without clinical characteristics, just gives idea WISCA can created:","code":"wisca <- antibiogram(example_isolates,                      antibiotics = c(\"AMC\", \"AMC+CIP\", \"TZP\", \"TZP+TOB\"),                      mo_transform = \"gramstain\",                      minimum = 10, # this should be >= 30, but now just as example                      syndromic_group = ifelse(example_isolates$age >= 65 &                                                 example_isolates$gender == \"M\",                                               \"WISCA Group 1\", \"WISCA Group 2\")) wisca"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"plotting-antibiograms","dir":"Articles","previous_headings":"Analysing the data > Generate antibiograms","what":"Plotting antibiograms","title":"How to conduct AMR data analysis","text":"Antibiograms can plotted using autoplot() ggplot2 packages, since AMR package provides extension function:  calculate antimicrobial resistance sensible way, also correcting results, use resistance() susceptibility() functions.","code":"autoplot(wisca)"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"resistance-percentages","dir":"Articles","previous_headings":"Analysing the data","what":"Resistance percentages","title":"How to conduct AMR data analysis","text":"functions resistance() susceptibility() can used calculate antimicrobial resistance susceptibility. specific analyses, functions proportion_S(), proportion_SI(), proportion_I(), proportion_IR() proportion_R() can used determine proportion specific antimicrobial outcome. functions contain minimum argument, denoting minimum required number test results returning value. functions otherwise return NA. default minimum = 30, following CLSI M39-A4 guideline applying microbial epidemiology. per EUCAST guideline 2019, calculate resistance proportion R (proportion_R(), equal resistance()) susceptibility proportion S (proportion_SI(), equal susceptibility()). functions can used : can used conjunction group_by() summarise(), dplyr package: Author: Dr. Matthijs Berends, 26th Feb 2023","code":"our_data_1st %>% resistance(AMX) #> [1] 0.4288348 our_data_1st %>%   group_by(hospital) %>%   summarise(amoxicillin = resistance(AMX)) #> # A tibble: 3 × 2 #>   hospital amoxicillin #>   <chr>          <dbl> #> 1 A              0.342 #> 2 B              0.564 #> 3 C              0.372"},{"path":"https://msberends.github.io/AMR/articles/EUCAST.html","id":"introduction","dir":"Articles","previous_headings":"","what":"Introduction","title":"How to apply EUCAST rules","text":"EUCAST rules? European Committee Antimicrobial Susceptibility Testing (EUCAST) states website: EUCAST expert rules tabulated collection expert knowledge intrinsic resistances, exceptional resistance phenotypes interpretive rules may applied antimicrobial susceptibility testing order reduce errors make appropriate recommendations reporting particular resistances. Europe, lot medical microbiological laboratories already apply rules (Brown et al., 2015). package features latest insights intrinsic resistance unusual phenotypes (v3.1, 2016). Moreover, eucast_rules() function use purpose can also apply additional rules, like forcing ampicillin = R isolates amoxicillin/clavulanic acid = R.","code":""},{"path":"https://msberends.github.io/AMR/articles/EUCAST.html","id":"examples","dir":"Articles","previous_headings":"","what":"Examples","title":"How to apply EUCAST rules","text":"rules can used discard impossible bug-drug combinations data. example, Klebsiella produces beta-lactamase prevents ampicillin (amoxicillin) working . words, practically every strain Klebsiella resistant ampicillin. Sometimes, laboratory data can still contain strains ampicillin susceptible ampicillin. antibiogram available identification available, antibiogram re-interpreted based identification (namely, Klebsiella). EUCAST expert rules solve , can applied using eucast_rules(): convenient function mo_is_intrinsic_resistant() uses guideline, allows check one specific microorganisms antibiotics: EUCAST rules can used correction, can also used filling known resistance susceptibility based results antimicrobials drugs. process called interpretive reading, basically form imputation, part eucast_rules() function well:","code":"oops <- data.frame(   mo = c(     \"Klebsiella\",     \"Escherichia\"   ),   ampicillin = \"S\" ) oops #>            mo ampicillin #> 1  Klebsiella          S #> 2 Escherichia          S  eucast_rules(oops, info = FALSE) #>            mo ampicillin #> 1  Klebsiella          R #> 2 Escherichia          S mo_is_intrinsic_resistant(   c(\"Klebsiella\", \"Escherichia\"),   \"ampicillin\" ) #> [1]  TRUE FALSE  mo_is_intrinsic_resistant(   \"Klebsiella\",   c(\"ampicillin\", \"kanamycin\") ) #> [1]  TRUE FALSE data <- data.frame(   mo = c(     \"Staphylococcus aureus\",     \"Enterococcus faecalis\",     \"Escherichia coli\",     \"Klebsiella pneumoniae\",     \"Pseudomonas aeruginosa\"   ),   VAN = \"-\", # Vancomycin   AMX = \"-\", # Amoxicillin   COL = \"-\", # Colistin   CAZ = \"-\", # Ceftazidime   CXM = \"-\", # Cefuroxime   PEN = \"S\", # Benzylenicillin   FOX = \"S\", # Cefoxitin   stringsAsFactors = FALSE ) data eucast_rules(data)"},{"path":"https://msberends.github.io/AMR/articles/MDR.html","id":"type-of-input","dir":"Articles","previous_headings":"","what":"Type of input","title":"How to determine multi-drug resistance (MDR)","text":"mdro() function takes data set input, regular data.frame. tries automatically determine right columns info isolates, name species columns results antimicrobial agents. See help page info set right settings data command ?mdro. WHONET data (data), settings automatically set correctly.","code":""},{"path":"https://msberends.github.io/AMR/articles/MDR.html","id":"guidelines","dir":"Articles","previous_headings":"","what":"Guidelines","title":"How to determine multi-drug resistance (MDR)","text":"mdro() function support multiple guidelines. can select guideline guideline parameter. Currently supported guidelines (case-insensitive): guideline = \"CMI2012\" (default) Magiorakos AP, Srinivasan et al. “Multidrug-resistant, extensively drug-resistant pandrug-resistant bacteria: international expert proposal interim standard definitions acquired resistance.” Clinical Microbiology Infection (2012) (link) guideline = \"EUCAST3.2\" (simply guideline = \"EUCAST\") European international guideline - EUCAST Expert Rules Version 3.2 “Intrinsic Resistance Unusual Phenotypes” (link) guideline = \"EUCAST3.1\" European international guideline - EUCAST Expert Rules Version 3.1 “Intrinsic Resistance Exceptional Phenotypes Tables” (link) guideline = \"TB\" international guideline multi-drug resistant tuberculosis - World Health Organization “Companion handbook guidelines programmatic management drug-resistant tuberculosis” (link) guideline = \"MRGN\" German national guideline - Mueller et al. (2015) Antimicrobial Resistance Infection Control 4:7. DOI: 10.1186/s13756-015-0047-6 guideline = \"BRMO\" Dutch national guideline - Rijksinstituut voor Volksgezondheid en Milieu “WIP-richtlijn BRMO (Bijzonder Resistente Micro-Organismen) (ZKH)” (link) Please suggest (country-specific) guidelines letting us know: https://github.com/msberends/AMR/issues/new.","code":""},{"path":"https://msberends.github.io/AMR/articles/MDR.html","id":"custom-guidelines","dir":"Articles","previous_headings":"Guidelines","what":"Custom Guidelines","title":"How to determine multi-drug resistance (MDR)","text":"can also use custom guideline. Custom guidelines can set custom_mdro_guideline() function. great importance custom rules determine MDROs hospital, e.g., rules dependent ward, state contact isolation variables data. familiar case_when() dplyr package, recognise input method set rules. Rules must set using R considers ‘formula notation’: row/isolate matches first rule, value first ~ (case ‘Elderly Type ’) set MDRO value. Otherwise, second rule tried . maximum number rules unlimited. can print rules set console overview. Colours help reading console supports colours. outcome function can used guideline argument mdro() function: rules set (custom object case) exported shared file location using saveRDS() collaborate multiple users. custom rules set imported using readRDS().","code":"custom <- custom_mdro_guideline(   CIP == \"R\" & age > 60 ~ \"Elderly Type A\",   ERY == \"R\" & age > 60 ~ \"Elderly Type B\" ) custom #> A set of custom MDRO rules: #>   1. If CIP is \"R\" and age is higher than 60 then: Elderly Type A #>   2. If ERY is \"R\" and age is higher than 60 then: Elderly Type B #>   3. Otherwise: Negative #>  #> Unmatched rows will return NA. #> Results will be of class 'factor', with ordered levels: Negative < Elderly Type A < Elderly Type B x <- mdro(example_isolates, guideline = custom) table(x) #> x #>       Negative Elderly Type A Elderly Type B  #>           1070            198            732"},{"path":"https://msberends.github.io/AMR/articles/MDR.html","id":"examples","dir":"Articles","previous_headings":"","what":"Examples","title":"How to determine multi-drug resistance (MDR)","text":"mdro() function always returns ordered factor predefined guidelines. example, output default guideline Magiorakos et al. returns factor levels ‘Negative’, ‘MDR’, ‘XDR’ ‘PDR’ order. next example uses example_isolates data set. data set included package contains full antibiograms 2,000 microbial isolates. reflects reality can used practise AMR data analysis. test MDR/XDR/PDR guideline data set, get: Frequency table Class: factor > ordered (numeric) Length: 2,000 Levels: 4: Negative < Multi-drug-resistant (MDR) < Extensively drug-resistant … Available: 1,729 (86.45%, NA: 271 = 13.55%) Unique: 2 another example, create data set determine multi-drug resistant TB: column names automatically verified valid drug names codes, worked exactly way: data set now looks like : can now add interpretation MDR-TB data set. can use: shortcut mdr_tb(): Create frequency table results: Frequency table Class: factor > ordered (numeric) Length: 5,000 Levels: 5: Negative < Mono-resistant < Poly-resistant < Multi-drug-resistant <… Available: 5,000 (100%, NA: 0 = 0%) Unique: 5","code":"library(dplyr) # to support pipes: %>% library(cleaner) # to create frequency tables example_isolates %>%   mdro() %>%   freq() # show frequency table of the result #> Warning: in mdro(): NA introduced for isolates where the available percentage of #> antimicrobial classes was below 50% (set with pct_required_classes) # random_sir() is a helper function to generate # a random vector with values S, I and R my_TB_data <- data.frame(   rifampicin = random_sir(5000),   isoniazid = random_sir(5000),   gatifloxacin = random_sir(5000),   ethambutol = random_sir(5000),   pyrazinamide = random_sir(5000),   moxifloxacin = random_sir(5000),   kanamycin = random_sir(5000) ) my_TB_data <- data.frame(   RIF = random_sir(5000),   INH = random_sir(5000),   GAT = random_sir(5000),   ETH = random_sir(5000),   PZA = random_sir(5000),   MFX = random_sir(5000),   KAN = random_sir(5000) ) head(my_TB_data) #>   rifampicin isoniazid gatifloxacin ethambutol pyrazinamide moxifloxacin #> 1          S         I            R          I            S            I #> 2          S         R            I          I            R            I #> 3          S         I            R          R            S            I #> 4          S         S            I          R            S            I #> 5          S         R            S          I            S            S #> 6          S         I            R          I            R            R #>   kanamycin #> 1         S #> 2         S #> 3         I #> 4         I #> 5         S #> 6         R mdro(my_TB_data, guideline = \"TB\") my_TB_data$mdr <- mdr_tb(my_TB_data) #> ℹ No column found as input for col_mo, assuming all rows contain #>   Mycobacterium tuberculosis. freq(my_TB_data$mdr)"},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/PCA.html","id":"transforming","dir":"Articles","previous_headings":"","what":"Transforming","title":"How to conduct principal component analysis (PCA) for AMR","text":"PCA, need transform AMR data first. example_isolates data set package looks like: Now transform data set resistance percentages per taxonomic order genus:","code":"library(AMR) library(dplyr) glimpse(example_isolates) #> Rows: 2,000 #> Columns: 46 #> $ date    <date> 2002-01-02, 2002-01-03, 2002-01-07, 2002-01-07, 2002-01-13, 2… #> $ patient <chr> \"A77334\", \"A77334\", \"067927\", \"067927\", \"067927\", \"067927\", \"4… #> $ age     <dbl> 65, 65, 45, 45, 45, 45, 78, 78, 45, 79, 67, 67, 71, 71, 75, 50… #> $ gender  <chr> \"F\", \"F\", \"F\", \"F\", \"F\", \"F\", \"M\", \"M\", \"F\", \"F\", \"M\", \"M\", \"M… #> $ ward    <chr> \"Clinical\", \"Clinical\", \"ICU\", \"ICU\", \"ICU\", \"ICU\", \"Clinical\"… #> $ mo      <mo> \"B_ESCHR_COLI\", \"B_ESCHR_COLI\", \"B_STPHY_EPDR\", \"B_STPHY_EPDR\",… #> $ PEN     <sir> R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, S,… #> $ OXA     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ FLC     <sir> NA, NA, R, R, R, R, S, S, R, S, S, S, NA, NA, NA, NA, NA, R, R… #> $ AMX     <sir> NA, NA, NA, NA, NA, NA, R, R, NA, NA, NA, NA, NA, NA, R, NA, N… #> $ AMC     <sir> I, I, NA, NA, NA, NA, S, S, NA, NA, S, S, I, I, R, I, I, NA, N… #> $ AMP     <sir> NA, NA, NA, NA, NA, NA, R, R, NA, NA, NA, NA, NA, NA, R, NA, N… #> $ TZP     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ CZO     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R, NA,… #> $ FEP     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ CXM     <sir> I, I, R, R, R, R, S, S, R, S, S, S, S, S, NA, S, S, R, R, S, S… #> $ FOX     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R, NA,… #> $ CTX     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, S, S, NA, S, S… #> $ CAZ     <sir> NA, NA, R, R, R, R, R, R, R, R, R, R, NA, NA, NA, S, S, R, R, … #> $ CRO     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, S, S, NA, S, S… #> $ GEN     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ TOB     <sir> NA, NA, NA, NA, NA, NA, S, S, NA, NA, NA, NA, S, S, NA, NA, NA… #> $ AMK     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ KAN     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ TMP     <sir> R, R, S, S, R, R, R, R, S, S, NA, NA, S, S, S, S, S, R, R, R, … #> $ SXT     <sir> R, R, S, S, NA, NA, NA, NA, S, S, NA, NA, S, S, S, S, S, NA, N… #> $ NIT     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R,… #> $ FOS     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ LNZ     <sir> R, R, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R, R, R, R, R, N… #> $ CIP     <sir> NA, NA, NA, NA, NA, NA, NA, NA, S, S, NA, NA, NA, NA, NA, S, S… #> $ MFX     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ VAN     <sir> R, R, S, S, S, S, S, S, S, S, NA, NA, R, R, R, R, R, S, S, S, … #> $ TEC     <sir> R, R, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R, R, R, R, R, N… #> $ TCY     <sir> R, R, S, S, S, S, S, S, S, I, S, S, NA, NA, I, R, R, S, I, R, … #> $ TGC     <sir> NA, NA, S, S, S, S, S, S, S, NA, S, S, NA, NA, NA, R, R, S, NA… #> $ DOX     <sir> NA, NA, S, S, S, S, S, S, S, NA, S, S, NA, NA, NA, R, R, S, NA… #> $ ERY     <sir> R, R, R, R, R, R, S, S, R, S, S, S, R, R, R, R, R, R, R, R, S,… #> $ CLI     <sir> R, R, NA, NA, NA, R, NA, NA, NA, NA, NA, NA, R, R, R, R, R, NA… #> $ AZM     <sir> R, R, R, R, R, R, S, S, R, S, S, S, R, R, R, R, R, R, R, R, S,… #> $ IPM     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, S, S, NA, S, S… #> $ MEM     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ MTR     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ CHL     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ COL     <sir> NA, NA, R, R, R, R, R, R, R, R, R, R, NA, NA, NA, R, R, R, R, … #> $ MUP     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ RIF     <sir> R, R, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R, R, R, R, R, N… resistance_data <- example_isolates %>%   group_by(     order = mo_order(mo), # group on anything, like order     genus = mo_genus(mo)   ) %>% #  and genus as we do here   summarise_if(is.sir, resistance) %>% # then get resistance of all drugs   select(     order, genus, AMC, CXM, CTX,     CAZ, GEN, TOB, TMP, SXT   ) # and select only relevant columns  head(resistance_data) #> # A tibble: 6 × 10 #> # Groups:   order [5] #>   order             genus          AMC   CXM   CTX   CAZ   GEN   TOB   TMP   SXT #>   <chr>             <chr>        <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> #> 1 (unknown order)   (unknown ge…    NA    NA    NA    NA    NA    NA    NA    NA #> 2 Actinomycetales   Schaalia        NA    NA    NA    NA    NA    NA    NA    NA #> 3 Bacteroidales     Bacteroides     NA    NA    NA    NA    NA    NA    NA    NA #> 4 Campylobacterales Campylobact…    NA    NA    NA    NA    NA    NA    NA    NA #> 5 Caryophanales     Gemella         NA    NA    NA    NA    NA    NA    NA    NA #> 6 Caryophanales     Listeria        NA    NA    NA    NA    NA    NA    NA    NA"},{"path":"https://msberends.github.io/AMR/articles/PCA.html","id":"perform-principal-component-analysis","dir":"Articles","previous_headings":"","what":"Perform principal component analysis","title":"How to conduct principal component analysis (PCA) for AMR","text":"new pca() function automatically filter rows contain numeric values selected variables, now need : result can reviewed good old summary() function: Good news. first two components explain total 93.3% variance (see PC1 PC2 values Proportion Variance. can create -called biplot base R biplot() function, see antimicrobial resistance per drug explain difference per microorganism.","code":"pca_result <- pca(resistance_data) #> ℹ Columns selected for PCA: \"AMC\", \"CAZ\", \"CTX\", \"CXM\", \"GEN\", \"SXT\", #>   \"TMP\", and \"TOB\". Total observations available: 7. summary(pca_result) #> Groups (n=4, named as 'order'): #> [1] \"Caryophanales\"    \"Enterobacterales\" \"Lactobacillales\"  \"Pseudomonadales\" #> Importance of components: #>                           PC1    PC2    PC3     PC4     PC5     PC6       PC7 #> Standard deviation     2.1539 1.6807 0.6138 0.33879 0.20808 0.03140 1.232e-16 #> Proportion of Variance 0.5799 0.3531 0.0471 0.01435 0.00541 0.00012 0.000e+00 #> Cumulative Proportion  0.5799 0.9330 0.9801 0.99446 0.99988 1.00000 1.000e+00 #> Groups (n=4, named as 'order'): #> [1] \"Caryophanales\"    \"Enterobacterales\" \"Lactobacillales\"  \"Pseudomonadales\""},{"path":"https://msberends.github.io/AMR/articles/PCA.html","id":"plotting-the-results","dir":"Articles","previous_headings":"","what":"Plotting the results","title":"How to conduct principal component analysis (PCA) for AMR","text":"can’t see explanation points. Perhaps works better new ggplot_pca() function, automatically adds right labels even groups:  can also print ellipse per group, edit appearance:","code":"biplot(pca_result) ggplot_pca(pca_result) ggplot_pca(pca_result, ellipse = TRUE) +   ggplot2::labs(title = \"An AMR/PCA biplot!\")"},{"path":"https://msberends.github.io/AMR/articles/WHONET.html","id":"import-of-data","dir":"Articles","previous_headings":"","what":"Import of data","title":"How to work with WHONET data","text":"tutorial assumes already imported WHONET data e.g. readxl package. RStudio, can done using menu button ‘Import Dataset’ tab ‘Environment’. Choose option ‘Excel’ select exported file. Make sure date fields imported correctly. example syntax look like : package comes example data set WHONET. use analysis.","code":"library(readxl) data <- read_excel(path = \"path/to/your/file.xlsx\")"},{"path":"https://msberends.github.io/AMR/articles/WHONET.html","id":"preparation","dir":"Articles","previous_headings":"","what":"Preparation","title":"How to work with WHONET data","text":"First, load relevant packages yet . use tidyverse analyses. . don’t know yet, suggest read website: https://www.tidyverse.org/. transform variables simplify automate analysis: Microorganisms transformed microorganism codes (called mo) using Catalogue Life reference data set, contains ~70,000 microorganisms taxonomic kingdoms Bacteria, Fungi Protozoa. tranformation .mo(). function also recognises almost WHONET abbreviations microorganisms. Antimicrobial results interpretations clean valid. words, contain values \"S\", \"\" \"R\". exactly .sir() function . errors warnings, values transformed succesfully. also created package dedicated data cleaning checking, called cleaner package. freq() function can used create frequency tables. let’s check data, couple frequency tables: Frequency table Class: character Length: 500 Available: 500 (100%, NA: 0 = 0%) Unique: 38 Shortest: 11 Longest: 40 (omitted 28 entries, n = 57 [11.4%]) Frequency table Class: factor > ordered > sir (numeric) Length: 500 Levels: 3: S < < R Available: 481 (96.2%, NA: 19 = 3.8%) Unique: 3 Drug: Amoxicillin/clavulanic acid (AMC, J01CR02) Drug group: Beta-lactams/penicillins %SI: 78.59%","code":"library(dplyr) # part of tidyverse library(ggplot2) # part of tidyverse library(AMR) # this package library(cleaner) # to create frequency tables # transform variables data <- WHONET %>%   # get microbial ID based on given organism   mutate(mo = as.mo(Organism)) %>%   # transform everything from \"AMP_ND10\" to \"CIP_EE\" to the new `sir` class   mutate_at(vars(AMP_ND10:CIP_EE), as.sir) # our newly created `mo` variable, put in the mo_name() function data %>% freq(mo_name(mo), nmax = 10) # our transformed antibiotic columns # amoxicillin/clavulanic acid (J01CR02) as an example data %>% freq(AMC_ND2)"},{"path":"https://msberends.github.io/AMR/articles/WHONET.html","id":"a-first-glimpse-at-results","dir":"Articles","previous_headings":"","what":"A first glimpse at results","title":"How to work with WHONET data","text":"easy ggplot already give lot information, using included ggplot_sir() function:","code":"data %>%   group_by(Country) %>%   select(Country, AMP_ND2, AMC_ED20, CAZ_ED10, CIP_ED5) %>%   ggplot_sir(translate_ab = \"ab\", facet = \"Country\", datalabels = FALSE)"},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"microorganisms-full-microbial-taxonomy","dir":"Articles","previous_headings":"","what":"microorganisms: Full Microbial Taxonomy","title":"Data sets for download / own use","text":"data set 52 171 rows 23 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, gbif, gbif_parent, gbif_renamed_to, prevalence, snomed. data set R available microorganisms, load AMR package. last updated 14 July 2023 08:49:06 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (1.2 MB) Download tab-separated text file (11.7 MB) Download Microsoft Excel workbook (5.2 MB) Download Apache Feather file (5.5 MB) Download Apache Parquet file (2.6 MB) Download SAS transport (XPT) file (48.6 MB) Download IBM SPSS Statistics data file (17.8 MB) Download Stata DTA file (48.6 MB) NOTE: exported files SAS, SPSS Stata contain first 50 SNOMED codes per record, file size otherwise exceed 100 MB; file size limit GitHub. file structures compression techniques inefficient. Advice? Use R instead. ’s free much better many ways. tab-separated text file Microsoft Excel workbook contain SNOMED codes comma separated values.","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source","dir":"Articles","previous_headings":"microorganisms: Full Microbial Taxonomy","what":"Source","title":"Data sets for download / own use","text":"data set contains full microbial taxonomy five kingdoms List Prokaryotic names Standing Nomenclature (LPSN) Global Biodiversity Information Facility (GBIF): Parte, AC et al. (2020). List Prokaryotic names Standing Nomenclature (LPSN) moves DSMZ. International Journal Systematic Evolutionary Microbiology, 70, 5607-5612; . Accessed https://lpsn.dsmz.de December 11th, 2022. GBIF Secretariat (2022). GBIF Backbone Taxonomy. Checklist dataset . Accessed https://www.gbif.org December 11th, 2022. Public Health Information Network Vocabulary Access Distribution System (PHIN VADS). US Edition SNOMED CT 1 September 2020. Value Set Name ‘Microorganism’, OID 2.16.840.1.114222.4.11.1009 (v12). URL: https://phinvads.cdc.gov","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"example-content","dir":"Articles","previous_headings":"microorganisms: Full Microbial Taxonomy","what":"Example content","title":"Data sets for download / own use","text":"Included (sub)species per taxonomic kingdom: Example rows filtering genus Escherichia:","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"antibiotics-antibiotic-antifungal-drugs","dir":"Articles","previous_headings":"","what":"antibiotics: Antibiotic (+Antifungal) Drugs","title":"Data sets for download / own use","text":"data set 483 rows 14 columns, containing following column names:ab, cid, name, group, atc, atc_group1, atc_group2, abbreviations, synonyms, oral_ddd, oral_units, iv_ddd, iv_units, loinc. data set R available antibiotics, load AMR package. last updated 20 October 2023 12:51:48 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (44 kB) Download tab-separated text file (0.1 MB) Download Microsoft Excel workbook (72 kB) Download Apache Feather file (0.1 MB) Download Apache Parquet file (0.1 MB) Download SAS transport (XPT) file (1.5 MB) Download IBM SPSS Statistics data file (0.4 MB) Download Stata DTA file (0.5 MB) tab-separated text file Microsoft Excel workbook, SAS, SPSS Stata files contain ATC codes, common abbreviations, trade names LOINC codes comma separated values.","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-1","dir":"Articles","previous_headings":"antibiotics: Antibiotic (+Antifungal) Drugs","what":"Source","title":"Data sets for download / own use","text":"data set contains EARS-Net ATC codes gathered WHONET, compound IDs PubChem. also contains brand names (synonyms) found PubChem Defined Daily Doses (DDDs) oral parenteral administration. ATC/DDD index Collaborating Centre Drug Statistics Methodology (note: may used commercial purposes, freely available CC website personal use) PubChem US National Library Medicine WHONET software 2019 LOINC (Logical Observation Identifiers Names Codes)","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"antivirals-antiviral-drugs","dir":"Articles","previous_headings":"","what":"antivirals: Antiviral Drugs","title":"Data sets for download / own use","text":"data set 120 rows 11 columns, containing following column names:av, name, atc, cid, atc_group, synonyms, oral_ddd, oral_units, iv_ddd, iv_units, loinc. data set R available antivirals, load AMR package. last updated 20 October 2023 12:51:48 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (6 kB) Download tab-separated text file (17 kB) Download Microsoft Excel workbook (16 kB) Download Apache Feather file (16 kB) Download Apache Parquet file (13 kB) Download SAS transport (XPT) file (73 kB) Download IBM SPSS Statistics data file (32 kB) Download Stata DTA file (78 kB) tab-separated text file Microsoft Excel workbook, SAS, SPSS Stata files contain trade names LOINC codes comma separated values.","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-2","dir":"Articles","previous_headings":"antivirals: Antiviral Drugs","what":"Source","title":"Data sets for download / own use","text":"data set contains ATC codes gathered compound IDs PubChem. also contains brand names (synonyms) found PubChem Defined Daily Doses (DDDs) oral parenteral administration. ATC/DDD index Collaborating Centre Drug Statistics Methodology (note: may used commercial purposes, freely available CC website personal use) PubChem US National Library Medicine LOINC (Logical Observation Identifiers Names Codes)","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"clinical_breakpoints-interpretation-from-mic-values-disk-diameters-to-sir","dir":"Articles","previous_headings":"","what":"clinical_breakpoints: Interpretation from MIC values & disk diameters to SIR","title":"Data sets for download / own use","text":"data set 29 747 rows 12 columns, containing following column names:guideline, type, method, site, mo, rank_index, ab, ref_tbl, disk_dose, breakpoint_S, breakpoint_R, uti. data set R available clinical_breakpoints, load AMR package. last updated 20 October 2023 13:07:11 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (59 kB) Download tab-separated text file (2.3 MB) Download Microsoft Excel workbook (1.3 MB) Download Apache Feather file (1.2 MB) Download Apache Parquet file (96 kB) Download SAS transport (XPT) file (7.9 MB) Download IBM SPSS Statistics data file (4.6 MB) Download Stata DTA file (7.8 MB)","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-3","dir":"Articles","previous_headings":"clinical_breakpoints: Interpretation from MIC values & disk diameters to SIR","what":"Source","title":"Data sets for download / own use","text":"data set contains interpretation rules MIC values disk diffusion diameters. Included guidelines CLSI (2011-2023) EUCAST (2011-2023). Clinical breakpoints package validated imported WHONET, free desktop Windows application developed supported Collaborating Centre Surveillance Antimicrobial Resistance. can read website. developers WHONET AMR package contact sharing work. highly appreciate development WHONET software. CEO CLSI chairman EUCAST endorsed work public use AMR package (consequently use breakpoints) June 2023, future development distributing clinical breakpoints discussed meeting CLSI, EUCAST, , developers WHONET AMR package. NOTE: AMR package (WHONET software well) contains internal methods apply guidelines, rather complex. example, breakpoints must applied certain species groups (case package available microorganisms.groups data set). important considered using breakpoints use.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"intrinsic_resistant-intrinsic-bacterial-resistance","dir":"Articles","previous_headings":"","what":"intrinsic_resistant: Intrinsic Bacterial Resistance","title":"Data sets for download / own use","text":"data set 134 634 rows 2 columns, containing following column names:mo ab. data set R available intrinsic_resistant, load AMR package. last updated 16 December 2022 15:10:43 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (78 kB) Download tab-separated text file (5.1 MB) Download Microsoft Excel workbook (1.3 MB) Download Apache Feather file (1.2 MB) Download Apache Parquet file (0.2 MB) Download SAS transport (XPT) file (9.5 MB) Download IBM SPSS Statistics data file (7.4 MB) Download Stata DTA file (9.5 MB)","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-4","dir":"Articles","previous_headings":"intrinsic_resistant: Intrinsic Bacterial Resistance","what":"Source","title":"Data sets for download / own use","text":"data set contains defined intrinsic resistance EUCAST bug-drug combinations, based ‘EUCAST Expert Rules’ ‘EUCAST Intrinsic Resistance Unusual Phenotypes’ v3.3 (2021).","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"example-content-4","dir":"Articles","previous_headings":"intrinsic_resistant: Intrinsic Bacterial Resistance","what":"Example content","title":"Data sets for download / own use","text":"Example rows filtering Enterobacter cloacae:","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"dosage-dosage-guidelines-from-eucast","dir":"Articles","previous_headings":"","what":"dosage: Dosage Guidelines from EUCAST","title":"Data sets for download / own use","text":"data set 503 rows 9 columns, containing following column names:ab, name, type, dose, dose_times, administration, notes, original_txt, eucast_version. data set R available dosage, load AMR package. last updated 22 June 2023 13:10:59 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (3 kB) Download tab-separated text file (43 kB) Download Microsoft Excel workbook (25 kB) Download Apache Feather file (21 kB) Download Apache Parquet file (9 kB) Download SAS transport (XPT) file (0.1 MB) Download IBM SPSS Statistics data file (64 kB) Download Stata DTA file (0.1 MB)","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-5","dir":"Articles","previous_headings":"dosage: Dosage Guidelines from EUCAST","what":"Source","title":"Data sets for download / own use","text":"EUCAST breakpoints used package based dosages data set. Currently included dosages data set meant :  (), ‘EUCAST Clinical Breakpoint Tables’ v11.0 (2021), ‘EUCAST Clinical Breakpoint Tables’ v12.0 (2022).","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"example_isolates-example-data-for-practice","dir":"Articles","previous_headings":"","what":"example_isolates: Example Data for Practice","title":"Data sets for download / own use","text":"data set 2 000 rows 46 columns, containing following column names:date, patient, age, gender, ward, mo, PEN, OXA, FLC, AMX, AMC, AMP, TZP, CZO, FEP, CXM, FOX, CTX, CAZ, CRO, GEN, TOB, AMK, KAN, TMP, SXT, NIT, FOS, LNZ, CIP, MFX, VAN, TEC, TCY, TGC, DOX, ERY, CLI, AZM, IPM, MEM, MTR, CHL, COL, MUP, RIF. data set R available example_isolates, load AMR package. last updated 21 January 2023 22:47:20 UTC. Find info structure data set .","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-6","dir":"Articles","previous_headings":"example_isolates: Example Data for Practice","what":"Source","title":"Data sets for download / own use","text":"data set contains randomised fictitious data, reflects reality can used practise AMR data analysis.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"example_isolates_unclean-example-data-for-practice","dir":"Articles","previous_headings":"","what":"example_isolates_unclean: Example Data for Practice","title":"Data sets for download / own use","text":"data set 3 000 rows 8 columns, containing following column names:patient_id, hospital, date, bacteria, AMX, AMC, CIP, GEN. data set R available example_isolates_unclean, load AMR package. last updated 27 August 2022 18:49:37 UTC. Find info structure data set .","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-7","dir":"Articles","previous_headings":"example_isolates_unclean: Example Data for Practice","what":"Source","title":"Data sets for download / own use","text":"data set contains randomised fictitious data, reflects reality can used practise AMR data analysis.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"microorganisms-groups-species-groups-and-microbiological-complexes","dir":"Articles","previous_headings":"","what":"microorganisms.groups: Species Groups and Microbiological Complexes","title":"Data sets for download / own use","text":"data set 521 rows 4 columns, containing following column names:mo_group, mo, mo_group_name, mo_name. data set R available microorganisms.groups, load AMR package. last updated 14 July 2023 08:49:06 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (6 kB) Download tab-separated text file (49 kB) Download Microsoft Excel workbook (20 kB) Download Apache Feather file (19 kB) Download Apache Parquet file (13 kB) Download SAS transport (XPT) file (0 kB) Download IBM SPSS Statistics data file (64 kB) Download Stata DTA file (81 kB)","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-8","dir":"Articles","previous_headings":"microorganisms.groups: Species Groups and Microbiological Complexes","what":"Source","title":"Data sets for download / own use","text":"data set contains species groups microbiological complexes, used clinical_breakpoints data set.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"microorganisms-codes-common-laboratory-codes","dir":"Articles","previous_headings":"","what":"microorganisms.codes: Common Laboratory Codes","title":"Data sets for download / own use","text":"data set 4 957 rows 2 columns, containing following column names:code mo. data set R available microorganisms.codes, load AMR package. last updated 8 July 2023 15:30:05 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (22 kB) Download tab-separated text file (0.1 MB) Download Microsoft Excel workbook (91 kB) Download Apache Feather file (85 kB) Download Apache Parquet file (57 kB) Download SAS transport (XPT) file (0 kB) Download IBM SPSS Statistics data file (0.1 MB) Download Stata DTA file (0.1 MB)","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-9","dir":"Articles","previous_headings":"microorganisms.codes: Common Laboratory Codes","what":"Source","title":"Data sets for download / own use","text":"data set contains commonly used codes microorganisms, laboratory systems WHONET.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/resistance_predict.html","id":"needed-r-packages","dir":"Articles","previous_headings":"","what":"Needed R packages","title":"How to predict antimicrobial resistance","text":"many uses R, need additional packages AMR data analysis. package works closely together tidyverse packages dplyr ggplot2. tidyverse tremendously improves way conduct data science - allows natural way writing syntaxes creating beautiful plots R. AMR package depends packages even extends use functions.","code":"library(dplyr) library(ggplot2) library(AMR)  # (if not yet installed, install with:) # install.packages(c(\"tidyverse\", \"AMR\"))"},{"path":"https://msberends.github.io/AMR/articles/resistance_predict.html","id":"prediction-analysis","dir":"Articles","previous_headings":"","what":"Prediction analysis","title":"How to predict antimicrobial resistance","text":"package contains function resistance_predict(), takes input functions AMR data analysis. Based date column, calculates cases per year uses regression model predict antimicrobial resistance. basically easy : function look date column col_date set. running commands, summary regression model printed unless using resistance_predict(..., info = FALSE). text printed summary - actual result (output) function data.frame containing year: number observations, actual observed resistance, estimated resistance standard error estimation: function plot available base R, can extended packages depend output based type input. extended function cope resistance predictions:  fastest way plot result. automatically adds right axes, error bars, titles, number available observations type model. also support ggplot2 package custom function ggplot_sir_predict() create appealing plots:","code":"# resistance prediction of piperacillin/tazobactam (TZP): resistance_predict(tbl = example_isolates, col_date = \"date\", col_ab = \"TZP\", model = \"binomial\")  # or: example_isolates %>%   resistance_predict(     col_ab = \"TZP\",     model = \"binomial\"   )  # to bind it to object 'predict_TZP' for example: predict_TZP <- example_isolates %>%   resistance_predict(     col_ab = \"TZP\",     model = \"binomial\"   ) predict_TZP #> # A tibble: 32 × 7 #>     year  value se_min se_max observations observed estimated #>  * <dbl>  <dbl>  <dbl>  <dbl>        <int>    <dbl>     <dbl> #>  1  2002 0.2        NA     NA           15   0.2       0.0562 #>  2  2003 0.0625     NA     NA           32   0.0625    0.0616 #>  3  2004 0.0854     NA     NA           82   0.0854    0.0676 #>  4  2005 0.05       NA     NA           60   0.05      0.0741 #>  5  2006 0.0508     NA     NA           59   0.0508    0.0812 #>  6  2007 0.121      NA     NA           66   0.121     0.0889 #>  7  2008 0.0417     NA     NA           72   0.0417    0.0972 #>  8  2009 0.0164     NA     NA           61   0.0164    0.106  #>  9  2010 0.0566     NA     NA           53   0.0566    0.116  #> 10  2011 0.183      NA     NA           93   0.183     0.127  #> # ℹ 22 more rows plot(predict_TZP) ggplot_sir_predict(predict_TZP) # choose for error bars instead of a ribbon ggplot_sir_predict(predict_TZP, ribbon = FALSE)"},{"path":"https://msberends.github.io/AMR/articles/resistance_predict.html","id":"choosing-the-right-model","dir":"Articles","previous_headings":"Prediction analysis","what":"Choosing the right model","title":"How to predict antimicrobial resistance","text":"Resistance easily predicted; look vancomycin resistance Gram-positive bacteria, spread (.e. standard error) enormous:  Vancomycin resistance 100% ten years, might remain low. can define model model parameter. model chosen generalised linear regression model using binomial distribution, assuming period zero resistance followed period increasing resistance leading slowly resistance. Valid values : vancomycin resistance Gram-positive bacteria, linear model might appropriate:  model also available object, attribute:","code":"example_isolates %>%   filter(mo_gramstain(mo, language = NULL) == \"Gram-positive\") %>%   resistance_predict(col_ab = \"VAN\", year_min = 2010, info = FALSE, model = \"binomial\") %>%   ggplot_sir_predict() example_isolates %>%   filter(mo_gramstain(mo, language = NULL) == \"Gram-positive\") %>%   resistance_predict(col_ab = \"VAN\", year_min = 2010, info = FALSE, model = \"linear\") %>%   ggplot_sir_predict() model <- attributes(predict_TZP)$model  summary(model)$family #>  #> Family: binomial  #> Link function: logit  summary(model)$coefficients #>                  Estimate  Std. Error   z value     Pr(>|z|) #> (Intercept) -200.67944891 46.17315349 -4.346237 1.384932e-05 #> year           0.09883005  0.02295317  4.305725 1.664395e-05"},{"path":"https://msberends.github.io/AMR/authors.html","id":null,"dir":"","previous_headings":"","what":"Authors","title":"Authors and Citation","text":"Matthijs S. Berends. Author, maintainer. Christian F. Luz. Author, contributor. Dennis Souverein. Author, contributor. Erwin E. . Hassing. Author, contributor. Casper J. Albers. Thesis advisor. Peter Dutey-Magni. Contributor. Judith M. Fonville. Contributor. Alex W. Friedrich. Thesis advisor. Corinna Glasner. Thesis advisor. Eric H. L. C. M. Hazenberg. Contributor. Gwen Knight. Contributor. Annick Lenglet. Contributor. Bart C. Meijer. Contributor. Dmytro Mykhailenko. Contributor. Anton Mymrikov. Contributor. Andrew P. Norgan. Contributor. Sofia Ny. Contributor. Jonas Salm. Contributor. Rogier P. Schade. Contributor. Bhanu N. M. Sinha. Thesis advisor. Anthony Underwood. Contributor. Anita Williams. Contributor.","code":""},{"path":"https://msberends.github.io/AMR/authors.html","id":"citation","dir":"","previous_headings":"","what":"Citation","title":"Authors and Citation","text":"Berends MS, Luz CF, Friedrich AW, Sinha BNM, Albers CJ, Glasner C (2022). “AMR: R Package Working Antimicrobial Resistance Data.” Journal Statistical Software, 104(3), 1–31. doi:10.18637/jss.v104.i03.","code":"@Article{,   title = {{AMR}: An {R} Package for Working with Antimicrobial Resistance Data},   author = {Matthijs S. Berends and Christian F. Luz and Alexander W. Friedrich and Bhanu N. M. Sinha and Casper J. Albers and Corinna Glasner},   journal = {Journal of Statistical Software},   year = {2022},   volume = {104},   number = {3},   pages = {1--31},   doi = {10.18637/jss.v104.i03}, }"},{"path":"https://msberends.github.io/AMR/index.html","id":"the-amr-package-for-r-","dir":"","previous_headings":"","what":"Antimicrobial Resistance Data Analysis","title":"Antimicrobial Resistance Data Analysis","text":"Generates antibiograms - traditional, combined, syndromic, even WISCA Provides full microbiological taxonomy data antimicrobial drugs Applies recent CLSI EUCAST clinical breakpoints MICs disk zones Corrects duplicate isolates, calculates predicts AMR per antibiotic class Integrates WHONET, ATC, EARS-Net, PubChem, LOINC SNOMED CT Works Windows, macOS Linux versions R since R-3.0 completely dependency-free, highly suitable places limited resources https://msberends.github.io/AMR https://doi.org/10.18637/jss.v104.i03","code":""},{"path":"https://msberends.github.io/AMR/index.html","id":"introduction","dir":"","previous_headings":"","what":"Introduction","title":"Antimicrobial Resistance Data Analysis","text":"AMR package free open-source R package zero dependencies simplify analysis prediction Antimicrobial Resistance (AMR) work microbial antimicrobial data properties, using evidence-based methods. aim provide standard clean reproducible AMR data analysis, can therefore empower epidemiological analyses continuously enable surveillance treatment evaluation setting. Many different researchers around globe continually helping us make successful durable project! work published Journal Statistical Software (Volume 104(3); DOI 10.18637/jss.v104.i03) formed basis two PhD theses (DOI 10.33612/diss.177417131 DOI 10.33612/diss.192486375). installing package, R knows ~52,000 distinct microbial species (updated December 2022) ~600 antibiotic, antimycotic antiviral drugs name code (including ATC, EARS-Net, ASIARS-Net, PubChem, LOINC SNOMED CT), knows valid SIR MIC values. integral clinical breakpoint guidelines CLSI EUCAST included, even epidemiological cut-(ECOFF) values. supports can read data format, including WHONET data. package works Windows, macOS Linux versions R since R-3.0 (April 2013). designed work setting, including limited resources. created routine data analysis academic research Faculty Medical Sciences University Groningen, collaboration non-profit organisations Certe Medical Diagnostics Advice Foundation University Medical Center Groningen.","code":""},{"path":"https://msberends.github.io/AMR/index.html","id":"used-in-over-175-countries-translated-into-20-languages","dir":"","previous_headings":"Introduction","what":"Used in over 175 countries, translated into 20 languages","title":"Antimicrobial Resistance Data Analysis","text":"Since first public release early 2018, R package used almost countries world. Click map enlarge see country names. help contributors corners world, AMR package available  English,  Czech,  Chinese,  Danish,  Dutch,  Finnish,  French,  German,  Greek,  Italian,  Japanese,  Norwegian,  Polish,  Portuguese,  Romanian,  Russian,  Spanish,  Swedish,  Turkish,  Ukrainian. Antimicrobial drug (group) names colloquial microorganism names provided languages.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/index.html","id":"filtering-and-selecting-data","dir":"","previous_headings":"Practical examples","what":"Filtering and selecting data","title":"Antimicrobial Resistance Data Analysis","text":"One powerful functions package, aside calculating plotting AMR, selecting filtering based antibiotic columns. can done using -called antibiotic class selectors work base R, dplyr data.table: defined row filter Gram-negative bacteria intrinsic resistance cefotaxime (mo_is_gram_negative() mo_is_intrinsic_resistant()) column selection two antibiotic groups (aminoglycosides() carbapenems()), reference data microorganisms antibiotics AMR package make sure get meant: base R equivalent : base R code work version R since April 2013 (R-3.0). Moreover, code works identically data.table package, starting :","code":"# AMR works great with dplyr, but it's not required or neccesary library(AMR) library(dplyr)  example_isolates %>%   mutate(bacteria = mo_fullname()) %>%   # filtering functions for microorganisms:   filter(mo_is_gram_negative(),          mo_is_intrinsic_resistant(ab = \"cefotax\")) %>%   # antibiotic selectors:   select(bacteria,          aminoglycosides(),          carbapenems()) library(AMR) example_isolates$bacteria <- mo_fullname(example_isolates$mo) example_isolates[which(mo_is_gram_negative() &                          mo_is_intrinsic_resistant(ab = \"cefotax\")),                  c(\"bacteria\", aminoglycosides(), carbapenems())] example_isolates <- data.table::as.data.table(example_isolates)"},{"path":"https://msberends.github.io/AMR/index.html","id":"generating-antibiograms","dir":"","previous_headings":"Practical examples","what":"Generating antibiograms","title":"Antimicrobial Resistance Data Analysis","text":"AMR package supports generating traditional, combined, syndromic, even weighted-incidence syndromic combination antibiograms (WISCA). used inside R Markdown Quarto, table printed right output format automatically (markdown, LaTeX, HTML, etc.). combination antibiograms, clear combined antibiotics yield higher empiric coverage: Like many functions package, antibiogram() comes support 20 languages often detected automatically based system language:","code":"antibiogram(example_isolates,             antibiotics = c(aminoglycosides(), carbapenems())) antibiogram(example_isolates,             antibiotics = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\"),             mo_transform = \"gramstain\") antibiogram(example_isolates,             antibiotics = c(\"cipro\", \"tobra\", \"genta\"), # any arbitrary name or code will work             mo_transform = \"gramstain\",             ab_transform = \"name\",             language = \"uk\") # Ukrainian"},{"path":"https://msberends.github.io/AMR/index.html","id":"calculating-resistance-per-group","dir":"","previous_headings":"Practical examples","what":"Calculating resistance per group","title":"Antimicrobial Resistance Data Analysis","text":"manual approach, can use resistance susceptibility() function: use antibiotic class selectors select series antibiotic columns:","code":"example_isolates %>%   # group by ward:   group_by(ward) %>%   # calculate AMR using resistance() for gentamicin and tobramycin   # and get their 95% confidence intervals using sir_confidence_interval():   summarise(across(c(GEN, TOB),                    list(total_R = resistance,                         conf_int = function(x) sir_confidence_interval(x, collapse = \"-\")))) library(AMR) library(dplyr)  out <- example_isolates %>%   # group by ward:   group_by(ward) %>%   # calculate AMR using resistance(), over all aminoglycosides and polymyxins:   summarise(across(c(aminoglycosides(), polymyxins()),             resistance)) out # transform the antibiotic columns to names: out %>% set_ab_names() # transform the antibiotic column to ATC codes: out %>% set_ab_names(property = \"atc\")"},{"path":"https://msberends.github.io/AMR/index.html","id":"what-else-can-you-do-with-this-package","dir":"","previous_headings":"","what":"What else can you do with this package?","title":"Antimicrobial Resistance Data Analysis","text":"package intended comprehensive toolbox integrated AMR data analysis. package can used : Reference taxonomy microorganisms, since package contains microbial (sub)species List Prokaryotic names Standing Nomenclature (LPSN) Global Biodiversity Information Facility (GBIF) (manual) Interpreting raw MIC disk diffusion values, based CLSI EUCAST guideline (manual) Retrieving antimicrobial drug names, doses forms administration clinical health care records (manual) Determining first isolates used AMR data analysis (manual) Calculating antimicrobial resistance (tutorial) Determining multi-drug resistance (MDR) / multi-drug resistant organisms (MDRO) (tutorial) Calculating (empirical) susceptibility mono therapy combination therapies (tutorial) Predicting future antimicrobial resistance using regression models (tutorial) Getting properties microorganism (like Gram stain, species, genus family) (manual) Getting properties antibiotic (like name, code EARS-Net/ATC/LOINC/PubChem, defined daily dose trade name) (manual) Plotting antimicrobial resistance (tutorial) Applying EUCAST expert rules (manual) Getting SNOMED codes microorganism, getting properties microorganism based SNOMED code (manual) Getting LOINC codes antibiotic, getting properties antibiotic based LOINC code (manual) Machine reading EUCAST CLSI guidelines 2011-2021 translate MIC values disk diffusion diameters SIR (link) Principal component analysis AMR (tutorial)","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/index.html","id":"latest-official-version","dir":"","previous_headings":"Get this package","what":"Latest official version","title":"Antimicrobial Resistance Data Analysis","text":"package available official R network (CRAN). Install package R CRAN using command: downloaded installed automatically. RStudio, click menu Tools > Install Packages… type “AMR” press Install. Note: functions website may available latest release. use functions data sets mentioned website, install latest development version.","code":"install.packages(\"AMR\")"},{"path":"https://msberends.github.io/AMR/index.html","id":"latest-development-version","dir":"","previous_headings":"Get this package","what":"Latest development version","title":"Antimicrobial Resistance Data Analysis","text":"Please read Developer Guideline . latest unpublished development version can installed GitHub two ways: Manually, using: Automatically, using rOpenSci R-universe platform, adding R-universe address list repositories (‘repos’): , can install update AMR package like official release (e.g., using install.packages(\"AMR\") RStudio via Tools > Check Package Updates…).","code":"install.packages(\"remotes\") # if you haven't already remotes::install_github(\"msberends/AMR\") options(repos = c(getOption(\"repos\"),                   msberends = \"https://msberends.r-universe.dev\"))"},{"path":"https://msberends.github.io/AMR/index.html","id":"get-started","dir":"","previous_headings":"","what":"Get started","title":"Antimicrobial Resistance Data Analysis","text":"find conduct AMR data analysis, please continue reading get started click link ‘’ menu.","code":""},{"path":"https://msberends.github.io/AMR/index.html","id":"partners","dir":"","previous_headings":"","what":"Partners","title":"Antimicrobial Resistance Data Analysis","text":"development package part , related , made possible following non-profit organisations initiatives:","code":""},{"path":"https://msberends.github.io/AMR/index.html","id":"copyright","dir":"","previous_headings":"","what":"Copyright","title":"Antimicrobial Resistance Data Analysis","text":"R package free, open-source software licensed GNU General Public License v2.0 (GPL-2). nutshell, means package: May used commercial purposes May used private purposes May used patent purposes May modified, although: Modifications must released license distributing package Changes made code must documented May distributed, although: Source code must made available package distributed copy license copyright notice must included package. Comes LIMITATION liability Comes warranty","code":""},{"path":"https://msberends.github.io/AMR/reference/AMR-deprecated.html","id":null,"dir":"Reference","previous_headings":"","what":"Deprecated Functions — AMR-deprecated","title":"Deprecated Functions — AMR-deprecated","text":"functions -called 'Deprecated'. removed future release. Using functions give warning name function replaced (one).","code":""},{"path":"https://msberends.github.io/AMR/reference/AMR-deprecated.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Deprecated Functions — AMR-deprecated","text":"","code":"NA_rsi_  as.rsi(x, ...)  facet_rsi(...)  geom_rsi(...)  ggplot_rsi(...)  ggplot_rsi_predict(...)  is.rsi(...)  is.rsi.eligible(...)  labels_rsi_count(...)  n_rsi(...)  random_rsi(...)  rsi_df(...)  rsi_predict(...)  scale_rsi_colours(...)  theme_rsi(...)"},{"path":"https://msberends.github.io/AMR/reference/AMR-deprecated.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Deprecated Functions — AMR-deprecated","text":"object class rsi (inherits ordered, factor) length 1.","code":""},{"path":"https://msberends.github.io/AMR/reference/AMR-options.html","id":null,"dir":"Reference","previous_headings":"","what":"Options for the AMR package — AMR-options","title":"Options for the AMR package — AMR-options","text":"overview package-specific options() can set AMR package.","code":""},{"path":"https://msberends.github.io/AMR/reference/AMR-options.html","id":"options","dir":"Reference","previous_headings":"","what":"Options","title":"Options for the AMR package — AMR-options","text":"AMR_custom_ab  Allows use custom antimicrobial drugs package. explained add_custom_antimicrobials(). AMR_custom_mo  Allows use custom microorganisms package. explained add_custom_microorganisms(). AMR_eucastrules  Used setting default types rules eucast_rules() function, must one : \"breakpoints\", \"expert\", \"\", \"custom\", \"\", defaults c(\"breakpoints\", \"expert\"). AMR_guideline  Used setting default guideline interpreting MIC values disk diffusion diameters .sir(). Can guideline name (e.g., \"CLSI\") name year (e.g. \"CLSI 2019\"). default latest implemented EUCAST guideline, currently \"EUCAST 2023\". Supported guideline currently EUCAST (2011-2023) CLSI (2011-2023). 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_ecoff  logical use .sir(), indicate ECOFF (Epidemiological Cut-) values must used - 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_cleaning_regex  regular expression (case-insensitive) use .mo() mo_* functions, clean user input. default outcome mo_cleaning_regex(), removes texts brackets texts \"species\" \"serovar\". AMR_locale  language use AMR package, can one supported language names ISO-639-1 codes: English (en), Chinese (zh), Czech (cs), Danish (da), Dutch (nl), Finnish (fi), French (fr), German (de), Greek (el), Italian (), Japanese (ja), Norwegian (), Polish (pl), Portuguese (pt), Romanian (ro), Russian (ru), Spanish (es), Swedish (sv), Turkish (tr), Ukrainian (uk). default current system language (supported). AMR_mo_source  file location manual code list used .mo() mo_* functions. explained set_mo_source().","code":""},{"path":"https://msberends.github.io/AMR/reference/AMR-options.html","id":"saving-settings-between-sessions","dir":"Reference","previous_headings":"","what":"Saving Settings Between Sessions","title":"Options for the AMR package — AMR-options","text":"Settings R saved globally thus lost R exited. can save options .Rprofile file, user-specific file. can edit using:   file, can set options :   add Portuguese language support antibiotics, allow PK/PD rules interpreting MIC values .sir().","code":"utils::file.edit(\"~/.Rprofile\") options(AMR_locale = \"pt\")  options(AMR_include_PKPD = TRUE)"},{"path":"https://msberends.github.io/AMR/reference/AMR-options.html","id":"share-options-within-team","dir":"Reference","previous_headings":"","what":"Share Options Within Team","title":"Options for the AMR package — AMR-options","text":"global approach, e.g. within data team, save options file remote file location, shared network drive. work way: Save plain text file e.g. \"X:/team_folder/R_options.R\" fill preferred settings. user, open .Rprofile file using utils::file.edit(\"~/.Rprofile\") put :   Reload R/RStudio check settings getOption(), e.g. getOption(\"AMR_locale\") set value. Now team settings configured one place, can maintained .","code":"source(\"X:/team_folder/R_options.R\")"},{"path":"https://msberends.github.io/AMR/reference/AMR.html","id":null,"dir":"Reference","previous_headings":"","what":"The AMR Package — AMR","title":"The AMR Package — AMR","text":"Welcome AMR package. AMR package free open-source R package zero dependencies simplify analysis prediction Antimicrobial Resistance (AMR) work microbial antimicrobial data properties, using evidence-based methods. aim provide standard clean reproducible AMR data analysis, can therefore empower epidemiological analyses continuously enable surveillance treatment evaluation setting. Many different researchers around globe continually helping us make successful durable project! work published Journal Statistical Software (Volume 104(3); doi:10.18637/jss.v104.i03 ) formed basis two PhD theses (doi:10.33612/diss.177417131  doi:10.33612/diss.192486375 ). installing package, R knows ~52 000 microorganisms (updated December 2022) ~600 antibiotic, antimycotic antiviral drugs name code (including ATC, EARS-Net, ASIARS-Net, PubChem, LOINC SNOMED CT), knows valid SIR MIC values. integral clinical breakpoint guidelines CLSI EUCAST included, even epidemiological cut-(ECOFF) values. supports can read data format, including WHONET data. package works Windows, macOS Linux versions R since R-3.0 (April 2013). designed work setting, including limited resources. created routine data analysis academic research Faculty Medical Sciences public University Groningen, collaboration non-profit organisations Certe Medical Diagnostics Advice Foundation University Medical Center Groningen. AMR package available English, Chinese, Czech, Danish, Dutch, Finnish, French, German, Greek, Italian, Japanese, Norwegian, Polish, Portuguese, Romanian, Russian, Spanish, Swedish, Turkish, Ukrainian. Antimicrobial drug (group) names colloquial microorganism names provided languages.","code":""},{"path":"https://msberends.github.io/AMR/reference/AMR.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"The AMR Package — AMR","text":"cite AMR publications use: Berends MS, Luz CF, Friedrich AW, Sinha BNM, Albers CJ, Glasner C (2022). \"AMR: R Package Working Antimicrobial Resistance Data.\" Journal Statistical Software, 104(3), 1-31. doi:10.18637/jss.v104.i03 BibTeX entry LaTeX users :","code":"@Article{,   title = {{AMR}: An {R} Package for Working with Antimicrobial Resistance Data},   author = {Matthijs S. Berends and Christian F. Luz and Alexander W. Friedrich and Bhanu N. M. Sinha and Casper J. Albers and Corinna Glasner},   journal = {Journal of Statistical Software},   year = {2022},   volume = {104},   number = {3},   pages = {1--31},   doi = {10.18637/jss.v104.i03}, }"},{"path":"https://msberends.github.io/AMR/reference/AMR.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"The AMR Package — AMR","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/AMR.html","id":"author","dir":"Reference","previous_headings":"","what":"Author","title":"The AMR Package — AMR","text":"Maintainer: Matthijs S. Berends m.s.berends@umcg.nl (ORCID) Authors: Christian F. Luz (ORCID) [contributor] Dennis Souverein (ORCID) [contributor] Erwin E. . Hassing [contributor] contributors: Casper J. Albers (ORCID) [thesis advisor] Peter Dutey-Magni (ORCID) [contributor] Judith M. Fonville [contributor] Alex W. Friedrich (ORCID) [thesis advisor] Corinna Glasner (ORCID) [thesis advisor] Eric H. L. C. M. Hazenberg [contributor] Gwen Knight (ORCID) [contributor] Annick Lenglet (ORCID) [contributor] Bart C. Meijer [contributor] Dmytro Mykhailenko [contributor] Anton Mymrikov [contributor] Andrew P. Norgan (ORCID) [contributor] Sofia Ny (ORCID) [contributor] Jonas Salm [contributor] Rogier P. Schade [contributor] Bhanu N. M. Sinha (ORCID) [thesis advisor] Anthony Underwood (ORCID) [contributor] Anita Williams (ORCID) [contributor]","code":""},{"path":"https://msberends.github.io/AMR/reference/WHOCC.html","id":null,"dir":"Reference","previous_headings":"","what":"WHOCC: WHO Collaborating Centre for Drug Statistics Methodology — WHOCC","title":"WHOCC: WHO Collaborating Centre for Drug Statistics Methodology — WHOCC","text":"antimicrobial drugs official names, ATC codes, ATC groups defined daily dose (DDD) included package, using Collaborating Centre Drug Statistics Methodology.","code":""},{"path":"https://msberends.github.io/AMR/reference/WHOCC.html","id":"whocc","dir":"Reference","previous_headings":"","what":"WHOCC","title":"WHOCC: WHO Collaborating Centre for Drug Statistics Methodology — WHOCC","text":"package contains ~550 antibiotic, antimycotic antiviral drugs Anatomical Therapeutic Chemical (ATC) codes, ATC groups Defined Daily Dose (DDD) World Health Organization Collaborating Centre Drug Statistics Methodology (WHOCC, https://www.whocc.) Pharmaceuticals Community Register European Commission (https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm). become gold standard international drug utilisation monitoring research. WHOCC located Oslo Norwegian Institute Public Health funded Norwegian government. European Commission executive European Union promotes general interest. NOTE: WHOCC copyright allow use commercial purposes, unlike info package. See https://www.whocc./copyright_disclaimer/.","code":""},{"path":"https://msberends.github.io/AMR/reference/WHOCC.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"WHOCC: WHO Collaborating Centre for Drug Statistics Methodology — WHOCC","text":"","code":"as.ab(\"meropenem\") #> Class 'ab' #> [1] MEM ab_name(\"J01DH02\") #> [1] \"Meropenem\"  ab_tradenames(\"flucloxacillin\") #>  [1] \"culpen\"               \"floxacillin\"          \"floxacillin sodium\"   #>  [4] \"floxapen\"             \"floxapen sodium salt\" \"fluclox\"              #>  [7] \"flucloxacilina\"       \"flucloxacillin\"       \"flucloxacilline\"      #> [10] \"flucloxacillinum\"     \"fluorochloroxacillin\" \"staphylex\""},{"path":"https://msberends.github.io/AMR/reference/WHONET.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with 500 Isolates - WHONET Example — WHONET","title":"Data Set with 500 Isolates - WHONET Example — WHONET","text":"example data set exact structure export file WHONET. files can used package, example data set shows. antibiotic results example_isolates data set. patient names created using online surname generators place practice purposes.","code":""},{"path":"https://msberends.github.io/AMR/reference/WHONET.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with 500 Isolates - WHONET Example — WHONET","text":"","code":"WHONET"},{"path":"https://msberends.github.io/AMR/reference/WHONET.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with 500 Isolates - WHONET Example — WHONET","text":"tibble 500 observations 53 variables: Identification number ID sample Specimen number ID specimen Organism Name microorganism. analysis, transform valid microbial class, using .mo(). Country Country origin Laboratory Name laboratory Last name Fictitious last name patient First name Fictitious initial patient Sex Fictitious gender patient Age Fictitious age patient Age category Age group, can also looked using age_groups() Date admissionDate hospital admission Specimen dateDate specimen received laboratory Specimen type Specimen type group Specimen type (Numeric) Translation \"Specimen type\" Reason Reason request Differential Diagnosis Isolate number ID isolate Organism type Type microorganism, can also looked using mo_type() Serotype Serotype microorganism Beta-lactamase Microorganism produces beta-lactamase? ESBL Microorganism produces extended spectrum beta-lactamase? Carbapenemase Microorganism produces carbapenemase? MRSA screening test Microorganism possible MRSA? Inducible clindamycin resistance Clindamycin can induced? Comment comments Date data entryDate data entered WHONET AMP_ND10:CIP_EE 28 different antibiotics. can lookup abbreviations antibiotics data set, use e.g. ab_name(\"AMP\") get official name immediately. analysis, transform valid antibiotic class, using .sir().","code":""},{"path":"https://msberends.github.io/AMR/reference/WHONET.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with 500 Isolates - WHONET Example — WHONET","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/WHONET.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with 500 Isolates - WHONET Example — WHONET","text":"","code":"WHONET #> # A tibble: 500 × 53 #>    `Identification number` `Specimen number` Organism Country         Laboratory #>    <chr>                               <int> <chr>    <chr>           <chr>      #>  1 fe41d7bafa                           1748 SPN      Belgium         National … #>  2 91f175ec37                           1767 eco      The Netherlands National … #>  3 cc4015056e                           1343 eco      The Netherlands National … #>  4 e864b692f5                           1894 MAP      Denmark         National … #>  5 3d051fe345                           1739 PVU      Belgium         National … #>  6 c80762a08d                           1846 103      The Netherlands National … #>  7 8022d3727c                           1628 103      Denmark         National … #>  8 f3dc5f553d                           1493 eco      The Netherlands National … #>  9 15add38f6c                           1847 eco      France          National … #> 10 fd41248def                           1458 eco      Germany         National … #> # ℹ 490 more rows #> # ℹ 48 more variables: `Last name` <chr>, `First name` <chr>, Sex <chr>, #> #   Age <dbl>, `Age category` <chr>, `Date of admission` <date>, #> #   `Specimen date` <date>, `Specimen type` <chr>, #> #   `Specimen type (Numeric)` <dbl>, Reason <chr>, `Isolate number` <int>, #> #   `Organism type` <chr>, Serotype <chr>, `Beta-lactamase` <lgl>, ESBL <lgl>, #> #   Carbapenemase <lgl>, `MRSA screening test` <lgl>, …"},{"path":"https://msberends.github.io/AMR/reference/ab_from_text.html","id":null,"dir":"Reference","previous_headings":"","what":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","title":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","text":"Use function e.g. clinical texts health care records. returns list antimicrobial drugs, doses forms administration found texts.","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_from_text.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","text":"","code":"ab_from_text(   text,   type = c(\"drug\", \"dose\", \"administration\"),   collapse = NULL,   translate_ab = FALSE,   thorough_search = NULL,   info = interactive(),   ... )"},{"path":"https://msberends.github.io/AMR/reference/ab_from_text.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","text":"text text analyse type type property search , either \"drug\", \"dose\" \"administration\", see Examples collapse character pass paste(, collapse = ...) return one character per element text, see Examples translate_ab type = \"drug\": column name antibiotics data set translate antibiotic abbreviations , using ab_property(). default FALSE. Using TRUE equal using \"name\". thorough_search logical indicate whether input must extensively searched misspelling faulty input values. Setting TRUE take considerably time using FALSE. default, turn TRUE input elements contain maximum three words. info logical indicate whether progress bar printed - default TRUE interactive mode ... arguments passed .ab()","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_from_text.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","text":"list,  character collapse NULL","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_from_text.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","text":"function also internally used .ab(), although searches first drug name throw note drug names returned. Note: .ab() function may use long regular expression match brand names antimicrobial drugs. may fail systems.","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_from_text.html","id":"argument-type","dir":"Reference","previous_headings":"","what":"Argument type","title":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","text":"default, function search antimicrobial drug names. text elements searched official names, ATC codes brand names. uses .ab() internally, correct misspelling. type = \"dose\" (similar, like \"dosing\", \"doses\"), text elements searched numeric values higher 100 resemble years. output numeric. supports unit (g, mg, IE, etc.) multiple values one clinical text, see Examples. type = \"administration\" (abbreviations, like \"admin\", \"adm\"), text elements searched form drug administration. supports following forms (including common abbreviations): buccal, implant, inhalation, instillation, intravenous, nasal, oral, parenteral, rectal, sublingual, transdermal vaginal. Abbreviations oral ('po', 'per os') become \"oral\", values intravenous ('iv', 'intraven') become \"iv\". supports multiple values one clinical text, see Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_from_text.html","id":"argument-collapse","dir":"Reference","previous_headings":"","what":"Argument collapse","title":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","text":"Without using collapse, function return list. can convenient use e.g. inside mutate()):df %>% mutate(abx = ab_from_text(clinical_text)) returned AB codes can transformed official names, groups, etc. ab_* functions ab_name() ab_group(), using translate_ab argument. using collapse, function return character:df %>% mutate(abx = ab_from_text(clinical_text, collapse = \"|\"))","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_from_text.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","text":"","code":"# mind the bad spelling of amoxicillin in this line, # straight from a true health care record: ab_from_text(\"28/03/2020 regular amoxicilliin 500mg po tid\") #> [[1]] #> Class 'ab' #> [1] AMX #>   ab_from_text(\"500 mg amoxi po and 400mg cipro iv\") #> [[1]] #> Class 'ab' #> [1] AMX CIP #>  ab_from_text(\"500 mg amoxi po and 400mg cipro iv\", type = \"dose\") #> [[1]] #> [1] 500 400 #>  ab_from_text(\"500 mg amoxi po and 400mg cipro iv\", type = \"admin\") #> [[1]] #> [1] \"oral\" \"iv\"   #>   ab_from_text(\"500 mg amoxi po and 400mg cipro iv\", collapse = \", \") #> [1] \"AMX, CIP\" # \\donttest{ # if you want to know which antibiotic groups were administered, do e.g.: abx <- ab_from_text(\"500 mg amoxi po and 400mg cipro iv\") ab_group(abx[[1]]) #> [1] \"Beta-lactams/penicillins\" \"Quinolones\"                if (require(\"dplyr\")) {   tibble(clinical_text = c(     \"given 400mg cipro and 500 mg amox\",     \"started on doxy iv today\"   )) %>%     mutate(       abx_codes = ab_from_text(clinical_text),       abx_doses = ab_from_text(clinical_text, type = \"doses\"),       abx_admin = ab_from_text(clinical_text, type = \"admin\"),       abx_coll = ab_from_text(clinical_text, collapse = \"|\"),       abx_coll_names = ab_from_text(clinical_text,         collapse = \"|\",         translate_ab = \"name\"       ),       abx_coll_doses = ab_from_text(clinical_text,         type = \"doses\",         collapse = \"|\"       ),       abx_coll_admin = ab_from_text(clinical_text,         type = \"admin\",         collapse = \"|\"       )     ) } #> Loading required package: dplyr #>  #> Attaching package: ‘dplyr’ #> The following objects are masked from ‘package:stats’: #>  #>     filter, lag #> The following objects are masked from ‘package:base’: #>  #>     intersect, setdiff, setequal, union #> # A tibble: 2 × 8 #>   clinical_text            abx_codes abx_doses abx_admin abx_coll abx_coll_names #>   <chr>                    <list>    <list>    <list>    <chr>    <chr>          #> 1 given 400mg cipro and 5… <ab [2]>  <dbl [2]> <chr [1]> CIP|AMX  Ciprofloxacin… #> 2 started on doxy iv today <ab [1]>  <dbl [1]> <chr [1]> DOX      Doxycycline    #> # ℹ 2 more variables: abx_coll_doses <chr>, abx_coll_admin <chr> # }"},{"path":"https://msberends.github.io/AMR/reference/ab_property.html","id":null,"dir":"Reference","previous_headings":"","what":"Get Properties of an Antibiotic — ab_property","title":"Get Properties of an Antibiotic — ab_property","text":"Use functions return specific property antibiotic antibiotics data set. input values evaluated internally .ab().","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_property.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Get Properties of an Antibiotic — ab_property","text":"","code":"ab_name(x, language = get_AMR_locale(), tolower = FALSE, ...)  ab_cid(x, ...)  ab_synonyms(x, ...)  ab_tradenames(x, ...)  ab_group(x, language = get_AMR_locale(), ...)  ab_atc(x, only_first = FALSE, ...)  ab_atc_group1(x, language = get_AMR_locale(), ...)  ab_atc_group2(x, language = get_AMR_locale(), ...)  ab_loinc(x, ...)  ab_ddd(x, administration = \"oral\", ...)  ab_ddd_units(x, administration = \"oral\", ...)  ab_info(x, language = get_AMR_locale(), ...)  ab_url(x, open = FALSE, ...)  ab_property(x, property = \"name\", language = get_AMR_locale(), ...)  set_ab_names(   data,   ...,   property = \"name\",   language = get_AMR_locale(),   snake_case = NULL )"},{"path":"https://msberends.github.io/AMR/reference/ab_property.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Get Properties of an Antibiotic — ab_property","text":"x (vector ) text can coerced valid antibiotic drug code .ab() language language returned text - default current system language (see get_AMR_locale()) can also set package option AMR_locale. Use language = NULL language = \"\" prevent translation. tolower logical indicate whether first character every output transformed lower case character. lead e.g. \"polymyxin B\" \"polymyxin b\". ... case set_ab_names() data data.frame: columns select (supports tidy selection column1:column4), otherwise arguments passed .ab() only_first logical indicate whether first ATC code must returned, giving preference J0-codes (.e., antimicrobial drug group) administration way administration, either \"oral\" \"iv\" open browse URL using utils::browseURL() property one column names one antibiotics data set: vector_or(colnames(antibiotics), sort = FALSE). data data.frame columns need renamed, character vector column names snake_case logical indicate whether names -called snake case: lower case spaces/slashes replaced underscore (_)","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_property.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Get Properties of an Antibiotic — ab_property","text":"integer case ab_cid() named list case ab_info() multiple ab_atc()/ab_synonyms()/ab_tradenames() double case ab_ddd() data.frame case set_ab_names() character cases","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_property.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Get Properties of an Antibiotic — ab_property","text":"output translated possible. function ab_url() return direct URL official website. warning returned required ATC code available. function set_ab_names() special column renaming function data.frames. renames columns names resemble antimicrobial drugs. always makes sure new column names unique. property = \"atc\" set, preference given ATC codes J-group.","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_property.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Get Properties of an Antibiotic — ab_property","text":"World Health Organization () Collaborating Centre Drug Statistics Methodology: https://www.whocc./atc_ddd_index/ European Commission Public Health PHARMACEUTICALS - COMMUNITY REGISTER: https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_property.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Get Properties of an Antibiotic — ab_property","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/ab_property.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Get Properties of an Antibiotic — ab_property","text":"","code":"# all properties: ab_name(\"AMX\") #> [1] \"Amoxicillin\" ab_atc(\"AMX\") #> [1] \"J01CA04\" ab_cid(\"AMX\") #> [1] 33613 ab_synonyms(\"AMX\") #>  [1] \"actimoxi\"            \"amoclen\"             \"amolin\"              #>  [4] \"amopen\"              \"amopenixin\"          \"amoxibiotic\"         #>  [7] \"amoxicaps\"           \"amoxicilina\"         \"amoxicillin\"         #> [10] \"amoxicillin hydrate\" \"amoxicilline\"        \"amoxicillinum\"       #> [13] \"amoxiden\"            \"amoxil\"              \"amoxivet\"            #> [16] \"amoxy\"               \"amoxycillin\"         \"amoxyke\"             #> [19] \"anemolin\"            \"aspenil\"             \"atoksilin\"           #> [22] \"biomox\"              \"bristamox\"           \"cemoxin\"             #> [25] \"clamoxyl\"            \"damoxy\"              \"delacillin\"          #> [28] \"demoksil\"            \"dispermox\"           \"efpenix\"             #> [31] \"flemoxin\"            \"hiconcil\"            \"histocillin\"         #> [34] \"hydroxyampicillin\"   \"ibiamox\"             \"imacillin\"           #> [37] \"lamoxy\"              \"largopen\"            \"metafarma capsules\"  #> [40] \"metifarma capsules\"  \"moksilin\"            \"moxacin\"             #> [43] \"moxatag\"             \"ospamox\"             \"pamoxicillin\"        #> [46] \"piramox\"             \"promoxil\"            \"remoxil\"             #> [49] \"robamox\"             \"sawamox pm\"          \"tolodina\"            #> [52] \"topramoxin\"          \"unicillin\"           \"utimox\"              #> [55] \"vetramox\"            ab_tradenames(\"AMX\") #>  [1] \"actimoxi\"            \"amoclen\"             \"amolin\"              #>  [4] \"amopen\"              \"amopenixin\"          \"amoxibiotic\"         #>  [7] \"amoxicaps\"           \"amoxicilina\"         \"amoxicillin\"         #> [10] \"amoxicillin hydrate\" \"amoxicilline\"        \"amoxicillinum\"       #> [13] \"amoxiden\"            \"amoxil\"              \"amoxivet\"            #> [16] \"amoxy\"               \"amoxycillin\"         \"amoxyke\"             #> [19] \"anemolin\"            \"aspenil\"             \"atoksilin\"           #> [22] \"biomox\"              \"bristamox\"           \"cemoxin\"             #> [25] \"clamoxyl\"            \"damoxy\"              \"delacillin\"          #> [28] \"demoksil\"            \"dispermox\"           \"efpenix\"             #> [31] \"flemoxin\"            \"hiconcil\"            \"histocillin\"         #> [34] \"hydroxyampicillin\"   \"ibiamox\"             \"imacillin\"           #> [37] \"lamoxy\"              \"largopen\"            \"metafarma capsules\"  #> [40] \"metifarma capsules\"  \"moksilin\"            \"moxacin\"             #> [43] \"moxatag\"             \"ospamox\"             \"pamoxicillin\"        #> [46] \"piramox\"             \"promoxil\"            \"remoxil\"             #> [49] \"robamox\"             \"sawamox pm\"          \"tolodina\"            #> [52] \"topramoxin\"          \"unicillin\"           \"utimox\"              #> [55] \"vetramox\"            ab_group(\"AMX\") #> [1] \"Beta-lactams/penicillins\" ab_atc_group1(\"AMX\") #> [1] \"Beta-lactam antibacterials, penicillins\" ab_atc_group2(\"AMX\") #> [1] \"Penicillins with extended spectrum\" ab_url(\"AMX\") #>                                                           Amoxicillin  #> \"https://www.whocc.no/atc_ddd_index/?code=J01CA04&showdescription=no\"   # smart lowercase transformation ab_name(x = c(\"AMC\", \"PLB\")) #> [1] \"Amoxicillin/clavulanic acid\" \"Polymyxin B\"                 ab_name(x = c(\"AMC\", \"PLB\"), tolower = TRUE) #> [1] \"amoxicillin/clavulanic acid\" \"polymyxin B\"                  # defined daily doses (DDD) ab_ddd(\"AMX\", \"oral\") #> [1] 1.5 ab_ddd_units(\"AMX\", \"oral\") #> [1] \"g\" ab_ddd(\"AMX\", \"iv\") #> [1] 3 ab_ddd_units(\"AMX\", \"iv\") #> [1] \"g\"  ab_info(\"AMX\") # all properties as a list #> $ab #> [1] \"AMX\" #>  #> $cid #> [1] 33613 #>  #> $name #> [1] \"Amoxicillin\" #>  #> $group #> [1] \"Beta-lactams/penicillins\" #>  #> $atc #> [1] \"J01CA04\" #>  #> $atc_group1 #> [1] \"Beta-lactam antibacterials, penicillins\" #>  #> $atc_group2 #> [1] \"Penicillins with extended spectrum\" #>  #> $tradenames #>  [1] \"actimoxi\"            \"amoclen\"             \"amolin\"              #>  [4] \"amopen\"              \"amopenixin\"          \"amoxibiotic\"         #>  [7] \"amoxicaps\"           \"amoxicilina\"         \"amoxicillin\"         #> [10] \"amoxicillin hydrate\" \"amoxicilline\"        \"amoxicillinum\"       #> [13] \"amoxiden\"            \"amoxil\"              \"amoxivet\"            #> [16] \"amoxy\"               \"amoxycillin\"         \"amoxyke\"             #> [19] \"anemolin\"            \"aspenil\"             \"atoksilin\"           #> [22] \"biomox\"              \"bristamox\"           \"cemoxin\"             #> [25] \"clamoxyl\"            \"damoxy\"              \"delacillin\"          #> [28] \"demoksil\"            \"dispermox\"           \"efpenix\"             #> [31] \"flemoxin\"            \"hiconcil\"            \"histocillin\"         #> [34] \"hydroxyampicillin\"   \"ibiamox\"             \"imacillin\"           #> [37] \"lamoxy\"              \"largopen\"            \"metafarma capsules\"  #> [40] \"metifarma capsules\"  \"moksilin\"            \"moxacin\"             #> [43] \"moxatag\"             \"ospamox\"             \"pamoxicillin\"        #> [46] \"piramox\"             \"promoxil\"            \"remoxil\"             #> [49] \"robamox\"             \"sawamox pm\"          \"tolodina\"            #> [52] \"topramoxin\"          \"unicillin\"           \"utimox\"              #> [55] \"vetramox\"            #>  #> $loinc #>  [1] \"101498-4\" \"15-8\"     \"16-6\"     \"16365-9\"  \"17-4\"     \"18-2\"     #>  [7] \"18861-5\"  \"18862-3\"  \"19-0\"     \"20-8\"     \"21-6\"     \"22-4\"     #> [13] \"25274-2\"  \"25310-4\"  \"3344-9\"   \"55614-2\"  \"55615-9\"  \"55616-7\"  #> [19] \"6976-5\"   \"6977-3\"   \"80133-2\"  #>  #> $ddd #> $ddd$oral #> $ddd$oral$amount #> [1] 1.5 #>  #> $ddd$oral$units #> [1] \"g\" #>  #>  #> $ddd$iv #> $ddd$iv$amount #> [1] 3 #>  #> $ddd$iv$units #> [1] \"g\" #>  #>  #>   # all ab_* functions use as.ab() internally, so you can go from 'any' to 'any': ab_atc(\"AMP\") #> [1] \"J01CA01\" \"S01AA19\" ab_group(\"J01CA01\") #> [1] \"Beta-lactams/penicillins\" ab_loinc(\"ampicillin\") #>  [1] \"101477-8\" \"101478-6\" \"18864-9\"  \"18865-6\"  \"20374-5\"  \"21066-6\"  #>  [7] \"23618-2\"  \"27-3\"     \"28-1\"     \"29-9\"     \"30-7\"     \"31-5\"     #> [13] \"32-3\"     \"33-1\"     \"3355-5\"   \"33562-0\"  \"33919-2\"  \"34-9\"     #> [19] \"43883-8\"  \"43884-6\"  \"6979-9\"   \"6980-7\"   \"87604-5\"  ab_name(\"21066-6\") #> [1] \"Ampicillin\" ab_name(6249) #> [1] \"Ampicillin\" ab_name(\"J01CA01\") #> [1] \"Ampicillin\"  # spelling from different languages and dyslexia are no problem ab_atc(\"ceftriaxon\") #> [1] \"J01DD04\" ab_atc(\"cephtriaxone\") #> [1] \"J01DD04\" ab_atc(\"cephthriaxone\") #> [1] \"J01DD04\" ab_atc(\"seephthriaaksone\") #> [1] \"J01DD04\"  # use set_ab_names() for renaming columns colnames(example_isolates) #>  [1] \"date\"    \"patient\" \"age\"     \"gender\"  \"ward\"    \"mo\"      \"PEN\"     #>  [8] \"OXA\"     \"FLC\"     \"AMX\"     \"AMC\"     \"AMP\"     \"TZP\"     \"CZO\"     #> [15] \"FEP\"     \"CXM\"     \"FOX\"     \"CTX\"     \"CAZ\"     \"CRO\"     \"GEN\"     #> [22] \"TOB\"     \"AMK\"     \"KAN\"     \"TMP\"     \"SXT\"     \"NIT\"     \"FOS\"     #> [29] \"LNZ\"     \"CIP\"     \"MFX\"     \"VAN\"     \"TEC\"     \"TCY\"     \"TGC\"     #> [36] \"DOX\"     \"ERY\"     \"CLI\"     \"AZM\"     \"IPM\"     \"MEM\"     \"MTR\"     #> [43] \"CHL\"     \"COL\"     \"MUP\"     \"RIF\"     colnames(set_ab_names(example_isolates)) #>  [1] \"date\"                          \"patient\"                       #>  [3] \"age\"                           \"gender\"                        #>  [5] \"ward\"                          \"mo\"                            #>  [7] \"benzylpenicillin\"              \"oxacillin\"                     #>  [9] \"flucloxacillin\"                \"amoxicillin\"                   #> [11] \"amoxicillin_clavulanic_acid\"   \"ampicillin\"                    #> [13] \"piperacillin_tazobactam\"       \"cefazolin\"                     #> [15] \"cefepime\"                      \"cefuroxime\"                    #> [17] \"cefoxitin\"                     \"cefotaxime\"                    #> [19] \"ceftazidime\"                   \"ceftriaxone\"                   #> [21] \"gentamicin\"                    \"tobramycin\"                    #> [23] \"amikacin\"                      \"kanamycin\"                     #> [25] \"trimethoprim\"                  \"trimethoprim_sulfamethoxazole\" #> [27] \"nitrofurantoin\"                \"fosfomycin\"                    #> [29] \"linezolid\"                     \"ciprofloxacin\"                 #> [31] \"moxifloxacin\"                  \"vancomycin\"                    #> [33] \"teicoplanin\"                   \"tetracycline\"                  #> [35] \"tigecycline\"                   \"doxycycline\"                   #> [37] \"erythromycin\"                  \"clindamycin\"                   #> [39] \"azithromycin\"                  \"imipenem\"                      #> [41] \"meropenem\"                     \"metronidazole\"                 #> [43] \"chloramphenicol\"               \"colistin\"                      #> [45] \"mupirocin\"                     \"rifampicin\"                    colnames(set_ab_names(example_isolates, NIT:VAN)) #>  [1] \"date\"           \"patient\"        \"age\"            \"gender\"         #>  [5] \"ward\"           \"mo\"             \"PEN\"            \"OXA\"            #>  [9] \"FLC\"            \"AMX\"            \"AMC\"            \"AMP\"            #> [13] \"TZP\"            \"CZO\"            \"FEP\"            \"CXM\"            #> [17] \"FOX\"            \"CTX\"            \"CAZ\"            \"CRO\"            #> [21] \"GEN\"            \"TOB\"            \"AMK\"            \"KAN\"            #> [25] \"TMP\"            \"SXT\"            \"nitrofurantoin\" \"fosfomycin\"     #> [29] \"linezolid\"      \"ciprofloxacin\"  \"moxifloxacin\"   \"vancomycin\"     #> [33] \"TEC\"            \"TCY\"            \"TGC\"            \"DOX\"            #> [37] \"ERY\"            \"CLI\"            \"AZM\"            \"IPM\"            #> [41] \"MEM\"            \"MTR\"            \"CHL\"            \"COL\"            #> [45] \"MUP\"            \"RIF\"            # \\donttest{ if (require(\"dplyr\")) {   example_isolates %>%     set_ab_names()    # this does the same:   example_isolates %>%     rename_with(set_ab_names)    # set_ab_names() works with any AB property:   example_isolates %>%     set_ab_names(property = \"atc\")    example_isolates %>%     set_ab_names(where(is.sir)) %>%     colnames()    example_isolates %>%     set_ab_names(NIT:VAN) %>%     colnames() } #>  [1] \"date\"           \"patient\"        \"age\"            \"gender\"         #>  [5] \"ward\"           \"mo\"             \"PEN\"            \"OXA\"            #>  [9] \"FLC\"            \"AMX\"            \"AMC\"            \"AMP\"            #> [13] \"TZP\"            \"CZO\"            \"FEP\"            \"CXM\"            #> [17] \"FOX\"            \"CTX\"            \"CAZ\"            \"CRO\"            #> [21] \"GEN\"            \"TOB\"            \"AMK\"            \"KAN\"            #> [25] \"TMP\"            \"SXT\"            \"nitrofurantoin\" \"fosfomycin\"     #> [29] \"linezolid\"      \"ciprofloxacin\"  \"moxifloxacin\"   \"vancomycin\"     #> [33] \"TEC\"            \"TCY\"            \"TGC\"            \"DOX\"            #> [37] \"ERY\"            \"CLI\"            \"AZM\"            \"IPM\"            #> [41] \"MEM\"            \"MTR\"            \"CHL\"            \"COL\"            #> [45] \"MUP\"            \"RIF\"            # }"},{"path":"https://msberends.github.io/AMR/reference/add_custom_antimicrobials.html","id":null,"dir":"Reference","previous_headings":"","what":"Add Custom Antimicrobials — add_custom_antimicrobials","title":"Add Custom Antimicrobials — add_custom_antimicrobials","text":"add_custom_antimicrobials() can add custom antimicrobial drug names codes.","code":""},{"path":"https://msberends.github.io/AMR/reference/add_custom_antimicrobials.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Add Custom Antimicrobials — add_custom_antimicrobials","text":"","code":"add_custom_antimicrobials(x)  clear_custom_antimicrobials()"},{"path":"https://msberends.github.io/AMR/reference/add_custom_antimicrobials.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Add Custom Antimicrobials — add_custom_antimicrobials","text":"x data.frame resembling antibiotics data set, least containing columns \"ab\" \"name\"","code":""},{"path":"https://msberends.github.io/AMR/reference/add_custom_antimicrobials.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Add Custom Antimicrobials — add_custom_antimicrobials","text":"Important: Due R works, add_custom_antimicrobials() function run every R session - added antimicrobials stored sessions thus lost R exited. two ways circumvent automate process adding antimicrobials: Method 1: Using package option AMR_custom_ab, preferred method. use method: Create data set structure antibiotics data set (containing least columns \"ab\" \"name\") save saveRDS() location choice, e.g. \"~/my_custom_ab.rds\", remote location. Set file location package option AMR_custom_ab: options(AMR_custom_ab = \"~/my_custom_ab.rds\"). can even remote file location, https URL. Since options saved R sessions, best save option .Rprofile file loaded start-R. , open .Rprofile file using e.g. utils::file.edit(\"~/.Rprofile\"), add text save file:   Upon package load, file loaded run add_custom_antimicrobials() function. Method 2: Loading antimicrobial additions directly .Rprofile file. Note definitions stored user-specific R file, suboptimal workflow. use method: Edit .Rprofile file using e.g. utils::file.edit(\"~/.Rprofile\"). Add text like save file:   Use clear_custom_antimicrobials() clear previously added antimicrobials.","code":"# Add custom antimicrobial codes: options(AMR_custom_ab = \"~/my_custom_ab.rds\") # Add custom antibiotic drug codes:  AMR::add_custom_antimicrobials(    data.frame(ab = \"TESTAB\",               name = \"Test Antibiotic\",               group = \"Test Group\")  )"},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/add_custom_antimicrobials.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Add Custom Antimicrobials — add_custom_antimicrobials","text":"","code":"# \\donttest{  # returns NA and throws a warning (which is suppressed here): suppressWarnings(   as.ab(\"testab\") ) #> Class 'ab' #> [1] <NA>  # now add a custom entry - it will be considered by as.ab() and # all ab_*() functions add_custom_antimicrobials(   data.frame(     ab = \"TESTAB\",     name = \"Test Antibiotic\",     # you can add any property present in the     # 'antibiotics' data set, such as 'group':     group = \"Test Group\"   ) ) #> ℹ Added one record to the internal antibiotics data set.  # \"testab\" is now a new antibiotic: as.ab(\"testab\") #> Class 'ab' #> [1] TESTAB ab_name(\"testab\") #> [1] \"Test Antibiotic\" ab_group(\"testab\") #> [1] \"Test Group\"  ab_info(\"testab\") #> $ab #> [1] \"TESTAB\" #>  #> $cid #> [1] NA #>  #> $name #> [1] \"Test Antibiotic\" #>  #> $group #> [1] \"Test Group\" #>  #> $atc #> [1] NA #>  #> $atc_group1 #> [1] NA #>  #> $atc_group2 #> [1] NA #>  #> $tradenames #> [1] NA #>  #> $loinc #> [1] NA #>  #> $ddd #> $ddd$oral #> $ddd$oral$amount #> [1] NA #>  #> $ddd$oral$units #> [1] NA #>  #>  #> $ddd$iv #> $ddd$iv$amount #> [1] NA #>  #> $ddd$iv$units #> [1] NA #>  #>  #>    # Add Co-fluampicil, which is one of the many J01CR50 codes, see # https://www.whocc.no/ddd/list_of_ddds_combined_products/ add_custom_antimicrobials(   data.frame(     ab = \"COFLU\",     name = \"Co-fluampicil\",     atc = \"J01CR50\",     group = \"Beta-lactams/penicillins\"   ) ) #> ℹ Added one record to the internal antibiotics data set. ab_atc(\"Co-fluampicil\") #> [1] \"J01CR50\" ab_name(\"J01CR50\") #> [1] \"Co-fluampicil\"  # even antibiotic selectors work x <- data.frame(   random_column = \"some value\",   coflu = as.sir(\"S\"),   ampicillin = as.sir(\"R\") ) x #>   random_column coflu ampicillin #> 1    some value     S          R x[, betalactams()] #> ℹ For betalactams() using columns 'coflu' (co-fluampicil) and #>   'ampicillin' #>   coflu ampicillin #> 1     S          R # }"},{"path":"https://msberends.github.io/AMR/reference/add_custom_microorganisms.html","id":null,"dir":"Reference","previous_headings":"","what":"Add Custom Microorganisms — add_custom_microorganisms","title":"Add Custom Microorganisms — add_custom_microorganisms","text":"add_custom_microorganisms() can add custom microorganisms, non-taxonomic outcome laboratory analysis.","code":""},{"path":"https://msberends.github.io/AMR/reference/add_custom_microorganisms.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Add Custom Microorganisms — add_custom_microorganisms","text":"","code":"add_custom_microorganisms(x)  clear_custom_microorganisms()"},{"path":"https://msberends.github.io/AMR/reference/add_custom_microorganisms.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Add Custom Microorganisms — add_custom_microorganisms","text":"x data.frame resembling microorganisms data set, least containing column \"genus\" (case-insensitive)","code":""},{"path":"https://msberends.github.io/AMR/reference/add_custom_microorganisms.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Add Custom Microorganisms — add_custom_microorganisms","text":"function fill missing taxonomy , specific taxonomic columns missing, see Examples. Important: Due R works, add_custom_microorganisms() function run every R session - added microorganisms stored sessions thus lost R exited. two ways circumvent automate process adding microorganisms: Method 1: Using package option AMR_custom_mo, preferred method. use method: Create data set structure microorganisms data set (containing least column \"genus\") save saveRDS() location choice, e.g. \"~/my_custom_mo.rds\", remote location. Set file location package option AMR_custom_mo: options(AMR_custom_mo = \"~/my_custom_mo.rds\"). can even remote file location, https URL. Since options saved R sessions, best save option .Rprofile file loaded start-R. , open .Rprofile file using e.g. utils::file.edit(\"~/.Rprofile\"), add text save file:   Upon package load, file loaded run add_custom_microorganisms() function. Method 2: Loading microorganism directly .Rprofile file. Note definitions stored user-specific R file, suboptimal workflow. use method: Edit .Rprofile file using e.g. utils::file.edit(\"~/.Rprofile\"). Add text like save file:   Use clear_custom_microorganisms() clear previously added microorganisms.","code":"# Add custom microorganism codes: options(AMR_custom_mo = \"~/my_custom_mo.rds\") # Add custom antibiotic drug codes:  AMR::add_custom_microorganisms(    data.frame(genus = \"Enterobacter\",               species = \"asburiae/cloacae\")  )"},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/add_custom_microorganisms.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Add Custom Microorganisms — add_custom_microorganisms","text":"","code":"# \\donttest{ # a combination of species is not formal taxonomy, so # this will result in \"Enterobacter cloacae cloacae\", # since it resembles the input best: mo_name(\"Enterobacter asburiae/cloacae\") #> [1] \"Enterobacter cloacae cloacae\"  # 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/\" #>  #> $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, 2023\" #>  #> $snomed #> [1] NA #>  #> $lpsn #> [1] NA #>  #> $gbif #> [1] NA #>    # the function tries to be forgiving: add_custom_microorganisms(   data.frame(     GENUS = \"BACTEROIDES / PARABACTEROIDES SLASHLINE\",     SPECIES = \"SPECIES\"   ) ) #> ℹ Added Bacteroides/Parabacteroides to the internal microorganisms data #>   set. mo_name(\"BACTEROIDES / PARABACTEROIDES\") #> [1] \"Bacteroides/Parabacteroides\" mo_rank(\"BACTEROIDES / PARABACTEROIDES\") #> [1] \"genus\"  # taxonomy still works, even though a slashline genus was given as input: mo_family(\"Bacteroides/Parabacteroides\") #> [1] \"Bacteroidaceae\"   # for groups and complexes, set them as species or subspecies: add_custom_microorganisms(   data.frame(     genus = \"Citrobacter\",     species = c(\"freundii\", \"braakii complex\"),     subspecies = c(\"complex\", \"\")   ) ) #> ℹ Added Citrobacter braakii complex and Citrobacter freundii complex to the #>   internal microorganisms data set. mo_name(c(\"C. freundii complex\", \"C. braakii complex\")) #> [1] \"Citrobacter freundii complex\" \"Citrobacter braakii complex\"  mo_species(c(\"C. freundii complex\", \"C. braakii complex\")) #> [1] \"freundii complex\" \"braakii complex\"  mo_gramstain(c(\"C. freundii complex\", \"C. braakii complex\")) #> [1] \"Gram-negative\" \"Gram-negative\" # }"},{"path":"https://msberends.github.io/AMR/reference/age.html","id":null,"dir":"Reference","previous_headings":"","what":"Age in Years of Individuals — age","title":"Age in Years of Individuals — age","text":"Calculates age years based reference date, system date default.","code":""},{"path":"https://msberends.github.io/AMR/reference/age.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Age in Years of Individuals — age","text":"","code":"age(x, reference = Sys.Date(), exact = FALSE, na.rm = FALSE, ...)"},{"path":"https://msberends.github.io/AMR/reference/age.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Age in Years of Individuals — age","text":"x date(s), character (vectors) coerced .POSIXlt() reference reference date(s) (default today), character (vectors) coerced .POSIXlt() exact logical indicate whether age calculation exact, .e. decimals. divides number days year--date (YTD) x number days year reference (either 365 366). na.rm logical indicate whether missing values removed ... arguments passed .POSIXlt(), origin","code":""},{"path":"https://msberends.github.io/AMR/reference/age.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Age in Years of Individuals — age","text":"integer (decimals) exact = FALSE, double (decimals) otherwise","code":""},{"path":"https://msberends.github.io/AMR/reference/age.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Age in Years of Individuals — age","text":"Ages 0 returned NA warning. Ages 120 give warning. function vectorises x reference, meaning either can length 1 argument larger length.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/age.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Age in Years of Individuals — age","text":"","code":"# 10 random pre-Y2K birth dates df <- data.frame(birth_date = as.Date(\"2000-01-01\") - runif(10) * 25000)  # add ages df$age <- age(df$birth_date)  # add exact ages df$age_exact <- age(df$birth_date, exact = TRUE)  # add age at millenium switch df$age_at_y2k <- age(df$birth_date, \"2000-01-01\")  df #>    birth_date age age_exact age_at_y2k #> 1  1968-10-06  55  55.15890         31 #> 2  1954-09-27  69  69.18356         45 #> 3  1984-09-22  39  39.19726         15 #> 4  1939-07-03  84  84.41918         60 #> 5  1984-07-23  39  39.36438         15 #> 6  1998-04-21  25  25.61918          1 #> 7  1940-12-19  82  82.95616         59 #> 8  1993-02-19  30  30.78630          6 #> 9  1968-03-29  55  55.68219         31 #> 10 1969-09-11  54  54.22740         30"},{"path":"https://msberends.github.io/AMR/reference/age_groups.html","id":null,"dir":"Reference","previous_headings":"","what":"Split Ages into Age Groups — age_groups","title":"Split Ages into Age Groups — age_groups","text":"Split ages age groups defined split argument. allows easier demographic (antimicrobial resistance) analysis.","code":""},{"path":"https://msberends.github.io/AMR/reference/age_groups.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Split Ages into Age Groups — age_groups","text":"","code":"age_groups(x, split_at = c(12, 25, 55, 75), na.rm = FALSE)"},{"path":"https://msberends.github.io/AMR/reference/age_groups.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Split Ages into Age Groups — age_groups","text":"x age, e.g. calculated age() split_at values split x - default age groups 0-11, 12-24, 25-54, 55-74 75+. See Details. na.rm logical indicate whether missing values removed","code":""},{"path":"https://msberends.github.io/AMR/reference/age_groups.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Split Ages into Age Groups — age_groups","text":"Ordered factor","code":""},{"path":"https://msberends.github.io/AMR/reference/age_groups.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Split Ages into Age Groups — age_groups","text":"split ages, input split_at argument can : numeric vector. value e.g. c(10, 20) split x 0-9, 10-19 20+. value 50 split x 0-49 50+. default split young children (0-11), youth (12-24), young adults (25-54), middle-aged adults (55-74) elderly (75+). character: \"children\" \"kids\", equivalent : c(0, 1, 2, 4, 6, 13, 18). split 0, 1, 2-3, 4-5, 6-12, 13-17 18+. \"elderly\" \"seniors\", equivalent : c(65, 75, 85). split 0-64, 65-74, 75-84, 85+. \"fives\", equivalent : 1:20 * 5. split 0-4, 5-9, ..., 95-99, 100+. \"tens\", equivalent : 1:10 * 10. split 0-9, 10-19, ..., 90-99, 100+.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/age_groups.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Split Ages into Age Groups — age_groups","text":"","code":"ages <- c(3, 8, 16, 54, 31, 76, 101, 43, 21)  # split into 0-49 and 50+ age_groups(ages, 50) #> [1] 0-49 0-49 0-49 50+  0-49 50+  50+  0-49 0-49 #> Levels: 0-49 < 50+  # split into 0-19, 20-49 and 50+ age_groups(ages, c(20, 50)) #> [1] 0-19  0-19  0-19  50+   20-49 50+   50+   20-49 20-49 #> Levels: 0-19 < 20-49 < 50+  # split into groups of ten years age_groups(ages, 1:10 * 10) #> [1] 0-9   0-9   10-19 50-59 30-39 70-79 100+  40-49 20-29 #> 11 Levels: 0-9 < 10-19 < 20-29 < 30-39 < 40-49 < 50-59 < 60-69 < ... < 100+ age_groups(ages, split_at = \"tens\") #> [1] 0-9   0-9   10-19 50-59 30-39 70-79 100+  40-49 20-29 #> 11 Levels: 0-9 < 10-19 < 20-29 < 30-39 < 40-49 < 50-59 < 60-69 < ... < 100+  # split into groups of five years age_groups(ages, 1:20 * 5) #> [1] 0-4   5-9   15-19 50-54 30-34 75-79 100+  40-44 20-24 #> 21 Levels: 0-4 < 5-9 < 10-14 < 15-19 < 20-24 < 25-29 < 30-34 < ... < 100+ age_groups(ages, split_at = \"fives\") #> [1] 0-4   5-9   15-19 50-54 30-34 75-79 100+  40-44 20-24 #> 21 Levels: 0-4 < 5-9 < 10-14 < 15-19 < 20-24 < 25-29 < 30-34 < ... < 100+  # split specifically for children age_groups(ages, c(1, 2, 4, 6, 13, 18)) #> [1] 2-3   6-12  13-17 18+   18+   18+   18+   18+   18+   #> Levels: 0 < 1 < 2-3 < 4-5 < 6-12 < 13-17 < 18+ age_groups(ages, \"children\") #> [1] 2-3   6-12  13-17 18+   18+   18+   18+   18+   18+   #> Levels: 0 < 1 < 2-3 < 4-5 < 6-12 < 13-17 < 18+  # \\donttest{ # resistance of ciprofloxacin per age group if (require(\"dplyr\") && require(\"ggplot2\")) {   example_isolates %>%     filter_first_isolate() %>%     filter(mo == as.mo(\"Escherichia coli\")) %>%     group_by(age_group = age_groups(age)) %>%     select(age_group, CIP) %>%     ggplot_sir(       x = \"age_group\",       minimum = 0,       x.title = \"Age Group\",       title = \"Ciprofloxacin resistance per age group\"     ) } #> Loading required package: ggplot2  # }"},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":null,"dir":"Reference","previous_headings":"","what":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","title":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","text":"Generate antibiogram, communicate results plots tables. functions follow logic Klinker et al. Barbieri et al. (see Source), allow reporting e.g. R Markdown Quarto well.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","text":"","code":"antibiogram(   x,   antibiotics = where(is.sir),   mo_transform = \"shortname\",   ab_transform = NULL,   syndromic_group = NULL,   add_total_n = TRUE,   only_all_tested = FALSE,   digits = 0,   col_mo = NULL,   language = get_AMR_locale(),   minimum = 30,   combine_SI = TRUE,   sep = \" + \",   info = interactive() )  # S3 method for antibiogram plot(x, ...)  # S3 method for antibiogram autoplot(object, ...)  # S3 method for antibiogram knit_print(   x,   italicise = TRUE,   na = getOption(\"knitr.kable.NA\", default = \"\"),   ... )"},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","text":"Klinker KP et al. (2021). Antimicrobial stewardship antibiograms: importance moving beyond traditional antibiograms. Therapeutic Advances Infectious Disease, May 5;8:20499361211011373; doi:10.1177/20499361211011373 Barbieri E et al. (2021). Development Weighted-Incidence Syndromic Combination Antibiogram (WISCA) guide choice empiric antibiotic treatment urinary tract infection paediatric patients: Bayesian approach Antimicrobial Resistance & Infection Control May 1;10(1):74; doi:10.1186/s13756-021-00939-2 M39 Analysis Presentation Cumulative Antimicrobial Susceptibility Test Data, 5th Edition, 2022, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/microbiology/documents/m39/.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","text":"x data.frame containing least column microorganisms columns antibiotic results (class 'sir', see .sir()) antibiotics vector antibiotic name code (evaluated .ab(), column name x, (combinations ) antibiotic selectors aminoglycosides() carbapenems(). combination antibiograms, can also set values separated \"+\", \"TZP+TOB\" \"cipro + genta\", given columns resembling antibiotics exist x. See Examples. mo_transform character transform microorganism input - must \"name\", \"shortname\", \"gramstain\", one column names microorganisms data set: \"mo\", \"fullname\", \"status\", \"kingdom\", \"phylum\", \"class\", \"order\", \"family\", \"genus\", \"species\", \"subspecies\", \"rank\", \"ref\", \"oxygen_tolerance\", \"source\", \"lpsn\", \"lpsn_parent\", \"lpsn_renamed_to\", \"gbif\", \"gbif_parent\", \"gbif_renamed_to\", \"prevalence\", \"snomed\". Can also NULL transform input. ab_transform character transform antibiotic input - must one column names antibiotics data set: \"ab\", \"cid\", \"name\", \"group\", \"atc\", \"atc_group1\", \"atc_group2\", \"abbreviations\", \"synonyms\", \"oral_ddd\", \"oral_units\", \"iv_ddd\", \"iv_units\", \"loinc\". Can also NULL transform input. syndromic_group column name x, values calculated split rows x, e.g. using ifelse() case_when(). See Examples. add_total_n logical indicate whether total available numbers per pathogen added table (default TRUE). add lowest highest number available isolate per antibiotic (e.g, E. coli 200 isolates available ciprofloxacin 150 amoxicillin, returned number \"150-200\"). only_all_tested (combination antibiograms): logical indicate isolates must tested antibiotics, see Details digits number digits use rounding col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). language language translate text, defaults system language (see get_AMR_locale()) minimum minimum allowed number available (tested) isolates. isolate count lower minimum return NA warning. default number 30 isolates advised Clinical Laboratory Standards Institute (CLSI) best practice, see Source. combine_SI logical indicate whether susceptibility determined results either S , instead S (default TRUE) sep separating character antibiotic columns combination antibiograms info logical indicate info printed - default TRUE interactive mode ... used R Markdown Quarto: arguments passed knitr::kable() (otherwise, use) object antibiogram() object italicise logical indicate whether microorganism names knitr table made italic, using italicise_taxonomy(). na character use showing NA values","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","text":"function returns table values 0 100 susceptibility, resistance. Remember filter data let contain first isolates! needed exclude duplicates reduce selection bias. Use first_isolate() determine data set one four available algorithms. types antibiograms listed can plotted (using ggplot2::autoplot() base R plot()/barplot()). antibiogram object can also used directly R Markdown / Quarto (.e., knitr) reports. case, knitr::kable() applied automatically microorganism names even printed italics default (see argument italicise). can also use functions specific 'table reporting' packages transform output antibiogram() needs, e.g. flextable::as_flextable() gt::gt().","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"antibiogram-types","dir":"Reference","previous_headings":"","what":"Antibiogram Types","title":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","text":"four antibiogram types, proposed Klinker et al. (2021, doi:10.1177/20499361211011373 ), supported antibiogram(): Traditional Antibiogram Case example: Susceptibility Pseudomonas aeruginosa piperacillin/tazobactam (TZP) Code example:   Combination Antibiogram Case example: Additional susceptibility Pseudomonas aeruginosa TZP + tobramycin versus TZP alone Code example:   Syndromic Antibiogram Case example: Susceptibility Pseudomonas aeruginosa TZP among respiratory specimens (obtained among ICU patients ) Code example:   Weighted-Incidence Syndromic Combination Antibiogram (WISCA) Case example: Susceptibility Pseudomonas aeruginosa TZP among respiratory specimens (obtained among ICU patients ) male patients age >=65 years heart failure Code example:   Note combination antibiograms, important realise susceptibility can calculated two ways, can set only_all_tested argument (default FALSE). See example two antibiotics, Drug Drug B, antibiogram() works calculate %SI:","code":"antibiogram(your_data,             antibiotics = \"TZP\") antibiogram(your_data,             antibiotics = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\")) antibiogram(your_data,             antibiotics = penicillins(),             syndromic_group = \"ward\") library(dplyr) your_data %>%   filter(ward == \"ICU\" & specimen_type == \"Respiratory\") %>%   antibiogram(antibiotics = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\"),               syndromic_group = ifelse(.$age >= 65 &                                          .$gender == \"Male\" &                                          .$condition == \"Heart Disease\",                                        \"Study Group\", \"Control Group\")) --------------------------------------------------------------------                     only_all_tested = FALSE  only_all_tested = TRUE                     -----------------------  -----------------------  Drug A    Drug B   include as  include as   include as  include as                     numerator   denominator  numerator   denominator --------  --------  ----------  -----------  ----------  -----------  S or I    S or I       X            X            X            X    R       S or I       X            X            X            X   <NA>     S or I       X            X            -            -  S or I      R          X            X            X            X    R         R          -            X            -            X   <NA>       R          -            -            -            -  S or I     <NA>        X            X            -            -    R        <NA>        -            -            -            -   <NA>      <NA>        -            -            -            - --------------------------------------------------------------------"},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","text":"","code":"# example_isolates is a data set available in the AMR package. # run ?example_isolates for more info. example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  # \\donttest{ # Traditional antibiogram ----------------------------------------------  antibiogram(example_isolates,   antibiotics = c(aminoglycosides(), carbapenems()) ) #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> # A tibble: 10 × 7 #>    `Pathogen (N min-max)`   AMK   GEN   IPM   KAN   MEM   TOB #>  * <chr>                  <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> #>  1 CoNS (43-309)              0    86    52     0    52    22 #>  2 E. coli (0-462)          100    98   100    NA   100    97 #>  3 E. faecalis (0-39)         0     0   100     0    NA     0 #>  4 K. pneumoniae (0-58)      NA    90   100    NA   100    90 #>  5 P. aeruginosa (17-30)     NA   100    NA     0    NA   100 #>  6 P. mirabilis (0-34)       NA    94    94    NA    NA    94 #>  7 S. aureus (2-233)         NA    99    NA    NA    NA    98 #>  8 S. epidermidis (8-163)     0    79    NA     0    NA    51 #>  9 S. hominis (3-80)         NA    92    NA    NA    NA    85 #> 10 S. pneumoniae (11-117)     0     0    NA     0    NA     0  antibiogram(example_isolates,   antibiotics = aminoglycosides(),   ab_transform = \"atc\",   mo_transform = \"gramstain\" ) #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> # A tibble: 2 × 5 #>   `Pathogen (N min-max)`   J01GB01 J01GB03 J01GB04 J01GB06 #> * <chr>                      <dbl>   <dbl>   <dbl>   <dbl> #> 1 Gram-negative (35-686)        96      96       0      98 #> 2 Gram-positive (436-1170)      34      63       0       0  antibiogram(example_isolates,   antibiotics = carbapenems(),   ab_transform = \"name\",   mo_transform = \"name\" ) #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> # A tibble: 5 × 3 #>   `Pathogen (N min-max)`                           Imipenem Meropenem #> * <chr>                                               <dbl>     <dbl> #> 1 Coagulase-negative Staphylococcus (CoNS) (48-48)       52        52 #> 2 Enterococcus faecalis (0-38)                          100        NA #> 3 Escherichia coli (418-422)                            100       100 #> 4 Klebsiella pneumoniae (51-53)                         100       100 #> 5 Proteus mirabilis (27-32)                              94        NA   # Combined antibiogram -------------------------------------------------  # combined antibiotics yield higher empiric coverage antibiogram(example_isolates,   antibiotics = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\"),   mo_transform = \"gramstain\" ) #> # A tibble: 2 × 4 #>   `Pathogen (N min-max)`     TZP `TZP + GEN` `TZP + TOB` #> * <chr>                    <dbl>       <dbl>       <dbl> #> 1 Gram-negative (641-693)     88          99          98 #> 2 Gram-positive (345-1044)    86          98          95  # names of antibiotics do not need to resemble columns exactly: antibiogram(example_isolates,   antibiotics = c(\"Cipro\", \"cipro + genta\"),   mo_transform = \"gramstain\",   ab_transform = \"name\",   sep = \" & \" ) #> # A tibble: 2 × 3 #>   `Pathogen (N min-max)`  Ciprofloxacin `Ciprofloxacin & Gentamicin` #> * <chr>                           <dbl>                        <dbl> #> 1 Gram-negative (684-694)            91                           99 #> 2 Gram-positive (724-847)            77                           93   # Syndromic antibiogram ------------------------------------------------  # the data set could contain a filter for e.g. respiratory specimens antibiogram(example_isolates,   antibiotics = c(aminoglycosides(), carbapenems()),   syndromic_group = \"ward\" ) #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> # A tibble: 14 × 8 #>    `Syndromic Group` `Pathogen (N min-max)`   AMK   GEN   IPM   KAN   MEM   TOB #>  * <chr>             <chr>                  <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> #>  1 Clinical          CoNS (23-205)             NA    89    57    NA    57    26 #>  2 ICU               CoNS (10-73)              NA    79    NA    NA    NA    NA #>  3 Outpatient        CoNS (3-31)               NA    84    NA    NA    NA    NA #>  4 Clinical          E. coli (0-299)          100    98   100    NA   100    98 #>  5 ICU               E. coli (0-137)          100    99   100    NA   100    96 #>  6 Clinical          K. pneumoniae (0-51)      NA    92   100    NA   100    92 #>  7 Clinical          P. mirabilis (0-30)       NA   100    NA    NA    NA   100 #>  8 Clinical          S. aureus (2-150)         NA    99    NA    NA    NA    97 #>  9 ICU               S. aureus (0-66)          NA   100    NA    NA    NA    NA #> 10 Clinical          S. epidermidis (4-79)     NA    82    NA    NA    NA    55 #> 11 ICU               S. epidermidis (4-75)     NA    72    NA    NA    NA    41 #> 12 Clinical          S. hominis (1-45)         NA    96    NA    NA    NA    94 #> 13 Clinical          S. pneumoniae (5-78)       0     0    NA     0    NA     0 #> 14 ICU               S. pneumoniae (5-30)       0     0    NA     0    NA     0  # now define a data set with only E. coli ex1 <- example_isolates[which(mo_genus() == \"Escherichia\"), ] #> ℹ Using column 'mo' as input for mo_genus()  # with a custom language, though this will be determined automatically # (i.e., this table will be in Spanish on Spanish systems) antibiogram(ex1,   antibiotics = aminoglycosides(),   ab_transform = \"name\",   syndromic_group = ifelse(ex1$ward == \"ICU\",     \"UCI\", \"No UCI\"   ),   language = \"es\" ) #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> # A tibble: 2 × 5 #>   `Grupo sindrómico` `Patógeno (N min-max)` Amikacina Gentamicina Tobramicina #> * <chr>              <chr>                      <dbl>       <dbl>       <dbl> #> 1 No UCI             E. coli (0-325)              100          98          98 #> 2 UCI                E. coli (0-137)              100          99          96   # Weighted-incidence syndromic combination antibiogram (WISCA) ---------  # the data set could contain a filter for e.g. respiratory specimens/ICU antibiogram(example_isolates,   antibiotics = c(\"AMC\", \"AMC+CIP\", \"TZP\", \"TZP+TOB\"),   mo_transform = \"gramstain\",   minimum = 10, # this should be >=30, but now just as example   syndromic_group = ifelse(example_isolates$age >= 65 &     example_isolates$gender == \"M\",   \"WISCA Group 1\", \"WISCA Group 2\"   ) ) #> # A tibble: 4 × 6 #>   `Syndromic Group` `Pathogen (N min-max)`    AMC `AMC + CIP`   TZP `TZP + TOB` #> * <chr>             <chr>                   <dbl>       <dbl> <dbl>       <dbl> #> 1 WISCA Group 1     Gram-negative (261-285)    76          95    89          99 #> 2 WISCA Group 2     Gram-negative (380-442)    76          98    88          98 #> 3 WISCA Group 1     Gram-positive (123-406)    76          89    81          95 #> 4 WISCA Group 2     Gram-positive (222-732)    76          89    88          95   # Print the output for R Markdown / Quarto -----------------------------  ureido <- antibiogram(example_isolates,   antibiotics = ureidopenicillins(),   ab_transform = \"name\" ) #> ℹ For ureidopenicillins() using column 'TZP' (piperacillin/tazobactam)  # in an Rmd file, you would just need to return `ureido` in a chunk, # but to be explicit here: if (requireNamespace(\"knitr\")) {   cat(knitr::knit_print(ureido)) } #>  #>  #> |Pathogen (N)          | Piperacillin/tazobactam| #> |:---------------------|-----------------------:| #> |CoNS (33)             |                      30| #> |*E. coli* (416)       |                      94| #> |*K. pneumoniae* (53)  |                      89| #> |*S. pneumoniae* (112) |                     100|   # Generate plots with ggplot2 or base R --------------------------------  ab1 <- antibiogram(example_isolates,   antibiotics = c(\"AMC\", \"CIP\", \"TZP\", \"TZP+TOB\"),   mo_transform = \"gramstain\" ) ab2 <- antibiogram(example_isolates,   antibiotics = c(\"AMC\", \"CIP\", \"TZP\", \"TZP+TOB\"),   mo_transform = \"gramstain\",   syndromic_group = \"ward\" )  if (requireNamespace(\"ggplot2\")) {   ggplot2::autoplot(ab1) }  if (requireNamespace(\"ggplot2\")) {   ggplot2::autoplot(ab2) }   plot(ab1)  plot(ab2)  # }"},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":null,"dir":"Reference","previous_headings":"","what":"Antibiotic Selectors — antibiotic_class_selectors","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"functions allow filtering rows selecting columns based antibiotic test results specific antibiotic class group (according antibiotics data set), without need define columns antibiotic abbreviations. short, column name resembles antimicrobial drug, picked functions matches pharmaceutical class: \"cefazolin\", \"kefzol\", \"CZO\" \"J01DB04\" picked cephalosporins().","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"","code":"ab_class(ab_class, only_sir_columns = FALSE, only_treatable = TRUE, ...)  ab_selector(filter, only_sir_columns = FALSE, only_treatable = TRUE, ...)  aminoglycosides(only_sir_columns = FALSE, only_treatable = TRUE, ...)  aminopenicillins(only_sir_columns = FALSE, ...)  antifungals(only_sir_columns = FALSE, ...)  antimycobacterials(only_sir_columns = FALSE, ...)  betalactams(only_sir_columns = FALSE, only_treatable = TRUE, ...)  carbapenems(only_sir_columns = FALSE, only_treatable = TRUE, ...)  cephalosporins(only_sir_columns = FALSE, ...)  cephalosporins_1st(only_sir_columns = FALSE, ...)  cephalosporins_2nd(only_sir_columns = FALSE, ...)  cephalosporins_3rd(only_sir_columns = FALSE, ...)  cephalosporins_4th(only_sir_columns = FALSE, ...)  cephalosporins_5th(only_sir_columns = FALSE, ...)  fluoroquinolones(only_sir_columns = FALSE, ...)  glycopeptides(only_sir_columns = FALSE, ...)  lincosamides(only_sir_columns = FALSE, ...)  lipoglycopeptides(only_sir_columns = FALSE, ...)  macrolides(only_sir_columns = FALSE, ...)  oxazolidinones(only_sir_columns = FALSE, ...)  penicillins(only_sir_columns = FALSE, ...)  polymyxins(only_sir_columns = FALSE, only_treatable = TRUE, ...)  streptogramins(only_sir_columns = FALSE, ...)  quinolones(only_sir_columns = FALSE, ...)  tetracyclines(only_sir_columns = FALSE, ...)  trimethoprims(only_sir_columns = FALSE, ...)  ureidopenicillins(only_sir_columns = FALSE, ...)  administrable_per_os(only_sir_columns = FALSE, ...)  administrable_iv(only_sir_columns = FALSE, ...)  not_intrinsic_resistant(   only_sir_columns = FALSE,   col_mo = NULL,   version_expertrules = 3.3,   ... )"},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"ab_class antimicrobial class part , \"carba\" \"carbapenems\". columns group, atc_group1 atc_group2 antibiotics data set searched (case-insensitive) value. only_sir_columns logical indicate whether columns class sir must selected (default FALSE), see .sir() only_treatable logical indicate whether antimicrobial drugs excluded laboratory tests (default TRUE), gentamicin-high (GEH) imipenem/EDTA (IPE) ... ignored, place allow future extensions filter expression evaluated antibiotics data set, name %like% \"trim\" col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). version_expertrules version number use EUCAST Expert Rules Intrinsic Resistance guideline. Can \"3.3\", \"3.2\", \"3.1\".","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"(internally) character vector column names, additional class \"ab_selector\"","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"functions can used data set calls selecting columns filtering rows. work base R, Tidyverse, data.table. heavily inspired Tidyverse selection helpers everything(), limited dplyr verbs. Nonetheless, convenient use dplyr functions select(), filter() summarise(), see Examples. columns data functions called searched known antibiotic names, abbreviations, brand names, codes (ATC, EARS-Net, , etc.) according antibiotics data set. means selector aminoglycosides() pick column names like 'gen', 'genta', 'J01GB03', 'tobra', 'Tobracin', etc. ab_class() function can used filter/select manually defined antibiotic class. searches results antibiotics data set within columns group, atc_group1 atc_group2. ab_selector() function can used internally filter antibiotics data set results, see Examples. allows filtering (part ) certain name, /group name even minimum DDDs oral treatment. function yields highest flexibility, also least user-friendly, since requires hard-coded filter set. administrable_per_os() administrable_iv() functions also rely antibiotics data set - antibiotic columns matched DDD (defined daily dose) resp. oral IV treatment available antibiotics data set. not_intrinsic_resistant() function can used select antibiotic columns pose intrinsic resistance microorganisms data set. example, data set contains microorganism codes names E. coli K. pneumoniae contains column \"vancomycin\", column removed (rather, unselected) using function. currently applies 'EUCAST Expert Rules' 'EUCAST Intrinsic Resistance Unusual Phenotypes' v3.3 (2021) determine intrinsic resistance, using eucast_rules() function internally. determination, function quite slow terms performance.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":"full-list-of-supported-antibiotic-classes","dir":"Reference","previous_headings":"","what":"Full list of supported (antibiotic) classes","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"aminoglycosides() can select:  amikacin (AMK), amikacin/fosfomycin (AKF), amphotericin B-high (AMH), apramycin (APR), arbekacin (ARB), astromicin (AST), bekanamycin (BEK), dibekacin (DKB), framycetin (FRM), gentamicin (GEN), gentamicin-high (GEH), habekacin (HAB), hygromycin (HYG), isepamicin (ISE), kanamycin (KAN), kanamycin-high (KAH), kanamycin/cephalexin (KAC), micronomicin (MCR), neomycin (NEO), netilmicin (NET), pentisomicin (PIM), plazomicin (PLZ), propikacin (PKA), ribostamycin (RST), sisomicin (SIS), streptoduocin (STR), streptomycin (STR1), streptomycin-high (STH), tobramycin (TOB), tobramycin-high (TOH) aminopenicillins() can select:  amoxicillin (AMX) ampicillin (AMP) antifungals() can select:  amphotericin B (AMB), anidulafungin (ANI), butoconazole (), caspofungin (CAS), ciclopirox (CIX), clotrimazole (CTR), econazole (ECO), fluconazole (FLU), flucytosine (FCT), fosfluconazole (FFL), griseofulvin (GRI), hachimycin (HCH), ibrexafungerp (IBX), isavuconazole (ISV), isoconazole (ISO), itraconazole (ITR), ketoconazole (KET), manogepix (MGX), micafungin (MIF), miconazole (MCZ), nystatin (NYS), oteseconazole (OTE), pimaricin (PMR), posaconazole (POS), rezafungin (RZF), ribociclib (RBC), sulconazole (SUC), terbinafine (TRB), terconazole (TRC), voriconazole (VOR) antimycobacterials() can select:  4-aminosalicylic acid (AMA), calcium aminosalicylate (CLA), capreomycin (CAP), clofazimine (CLF), delamanid (DLM), enviomycin (ENV), ethambutol (ETH), ethambutol/isoniazid (ETI), ethionamide (ETI1), isoniazid (INH), isoniazid/sulfamethoxazole/trimethoprim/pyridoxine (IST), morinamide (MRN), p-aminosalicylic acid (PAS), pretomanid (PMD), protionamide (PTH), pyrazinamide (PZA), rifabutin (RIB), rifampicin (RIF), rifampicin/ethambutol/isoniazid (REI), rifampicin/isoniazid (RFI), rifampicin/pyrazinamide/ethambutol/isoniazid (RPEI), rifampicin/pyrazinamide/isoniazid (RPI), rifamycin (RFM), rifapentine (RFP), simvastatin/fenofibrate (SMF), sodium aminosalicylate (SDA), streptomycin/isoniazid (STI), terizidone (TRZ), thioacetazone (TAT), thioacetazone/isoniazid (THI1), tiocarlide (TCR), viomycin (VIO) betalactams() can select:  amoxicillin (AMX), amoxicillin/clavulanic acid (AMC), amoxicillin/sulbactam (AXS), ampicillin (AMP), ampicillin/sulbactam (SAM), apalcillin (APL), aspoxicillin (APX), avibactam (AVB), azidocillin (AZD), azlocillin (AZL), aztreonam (ATM), aztreonam/avibactam (AZA), aztreonam/nacubactam (ANC), bacampicillin (BAM), benzathine benzylpenicillin (BNB), benzathine phenoxymethylpenicillin (BNP), benzylpenicillin (PEN), biapenem (BIA), carbenicillin (CRB), carindacillin (CRN), cefacetrile (CAC), cefaclor (CEC), cefadroxil (CFR), cefalexin (LEX), cefaloridine (RID), cefalotin (CEP), cefamandole (MAN), cefapirin (HAP), cefatrizine (CTZ), cefazedone (CZD), cefazolin (CZO), cefcapene (CCP), cefcapene pivoxil (CCX), cefdinir (CDR), cefditoren (DIT), cefditoren pivoxil (DIX), cefepime (FEP), cefepime/clavulanic acid (CPC), cefepime/nacubactam (FNC), cefepime/tazobactam (FPT), cefetamet (CAT), cefetamet pivoxil (CPI), cefetecol (CCL), cefetrizole (CZL), cefixime (CFM), cefmenoxime (CMX), cefmetazole (CMZ), cefodizime (DIZ), cefonicid (CID), cefoperazone (CFP), cefoperazone/sulbactam (CSL), ceforanide (CND), cefoselis (CSE), cefotaxime (CTX), cefotaxime/clavulanic acid (CTC), cefotaxime/sulbactam (CTS), cefotetan (CTT), cefotiam (CTF), cefotiam hexetil (CHE), cefovecin (FOV), cefoxitin (FOX), cefoxitin screening (FOX1), cefozopran (ZOP), cefpimizole (CFZ), cefpiramide (CPM), cefpirome (CPO), cefpodoxime (CPD), cefpodoxime proxetil (CPX), cefpodoxime/clavulanic acid (CDC), cefprozil (CPR), cefquinome (CEQ), cefroxadine (CRD), cefsulodin (CFS), cefsumide (CSU), ceftaroline (CPT), ceftaroline/avibactam (CPA), ceftazidime (CAZ), ceftazidime/avibactam (CZA), ceftazidime/clavulanic acid (CCV), cefteram (CEM), cefteram pivoxil (CPL), ceftezole (CTL), ceftibuten (CTB), ceftiofur (TIO), ceftizoxime (CZX), ceftizoxime alapivoxil (CZP), ceftobiprole (BPR), ceftobiprole medocaril (CFM1), ceftolozane/tazobactam (CZT), ceftriaxone (CRO), ceftriaxone/beta-lactamase inhibitor (CEB), cefuroxime (CXM), cefuroxime axetil (CXA), cephradine (CED), ciclacillin (CIC), clometocillin (CLM), cloxacillin (CLO), dicloxacillin (DIC), doripenem (DOR), epicillin (EPC), ertapenem (ETP), flucloxacillin (FLC), hetacillin (HET), imipenem (IPM), imipenem/EDTA (IPE), imipenem/relebactam (IMR), latamoxef (LTM), lenampicillin (LEN), loracarbef (LOR), mecillinam (MEC), meropenem (MEM), meropenem/nacubactam (MNC), meropenem/vaborbactam (MEV), metampicillin (MTM), meticillin (MET), mezlocillin (MEZ), mezlocillin/sulbactam (MSU), nacubactam (NAC), nafcillin (NAF), oxacillin (OXA), panipenem (PAN), penamecillin (PNM), penicillin/novobiocin (PNO), penicillin/sulbactam (PSU), pheneticillin (PHE), phenoxymethylpenicillin (PHN), piperacillin (PIP), piperacillin/sulbactam (PIS), piperacillin/tazobactam (TZP), piridicillin (PRC), pivampicillin (PVM), pivmecillinam (PME), procaine benzylpenicillin (PRB), propicillin (PRP), razupenem (RZM), ritipenem (RIT), ritipenem acoxil (RIA), sarmoxicillin (SRX), sulbactam (SUL), sulbenicillin (SBC), sultamicillin (SLT6), talampicillin (TAL), tazobactam (TAZ), tebipenem (TBP), temocillin (TEM), ticarcillin (TIC), ticarcillin/clavulanic acid (TCC) carbapenems() can select:  biapenem (BIA), doripenem (DOR), ertapenem (ETP), imipenem (IPM), imipenem/EDTA (IPE), imipenem/relebactam (IMR), meropenem (MEM), meropenem/nacubactam (MNC), meropenem/vaborbactam (MEV), panipenem (PAN), razupenem (RZM), ritipenem (RIT), ritipenem acoxil (RIA), tebipenem (TBP) cephalosporins() can select:  cefacetrile (CAC), cefaclor (CEC), cefadroxil (CFR), cefalexin (LEX), cefaloridine (RID), cefalotin (CEP), cefamandole (MAN), cefapirin (HAP), cefatrizine (CTZ), cefazedone (CZD), cefazolin (CZO), cefcapene (CCP), cefcapene pivoxil (CCX), cefdinir (CDR), cefditoren (DIT), cefditoren pivoxil (DIX), cefepime (FEP), cefepime/clavulanic acid (CPC), cefepime/tazobactam (FPT), cefetamet (CAT), cefetamet pivoxil (CPI), cefetecol (CCL), cefetrizole (CZL), cefixime (CFM), cefmenoxime (CMX), cefmetazole (CMZ), cefodizime (DIZ), cefonicid (CID), cefoperazone (CFP), cefoperazone/sulbactam (CSL), ceforanide (CND), cefoselis (CSE), cefotaxime (CTX), cefotaxime/clavulanic acid (CTC), cefotaxime/sulbactam (CTS), cefotetan (CTT), cefotiam (CTF), cefotiam hexetil (CHE), cefovecin (FOV), cefoxitin (FOX), cefoxitin screening (FOX1), cefozopran (ZOP), cefpimizole (CFZ), cefpiramide (CPM), cefpirome (CPO), cefpodoxime (CPD), cefpodoxime proxetil (CPX), cefpodoxime/clavulanic acid (CDC), cefprozil (CPR), cefquinome (CEQ), cefroxadine (CRD), cefsulodin (CFS), cefsumide (CSU), ceftaroline (CPT), ceftaroline/avibactam (CPA), ceftazidime (CAZ), ceftazidime/avibactam (CZA), ceftazidime/clavulanic acid (CCV), cefteram (CEM), cefteram pivoxil (CPL), ceftezole (CTL), ceftibuten (CTB), ceftiofur (TIO), ceftizoxime (CZX), ceftizoxime alapivoxil (CZP), ceftobiprole (BPR), ceftobiprole medocaril (CFM1), ceftolozane/tazobactam (CZT), ceftriaxone (CRO), ceftriaxone/beta-lactamase inhibitor (CEB), cefuroxime (CXM), cefuroxime axetil (CXA), cephradine (CED), latamoxef (LTM), loracarbef (LOR) cephalosporins_1st() can select:  cefacetrile (CAC), cefadroxil (CFR), cefalexin (LEX), cefaloridine (RID), cefalotin (CEP), cefapirin (HAP), cefatrizine (CTZ), cefazedone (CZD), cefazolin (CZO), cefroxadine (CRD), ceftezole (CTL), cephradine (CED) cephalosporins_2nd() can select:  cefaclor (CEC), cefamandole (MAN), cefmetazole (CMZ), cefonicid (CID), ceforanide (CND), cefotetan (CTT), cefotiam (CTF), cefoxitin (FOX), cefoxitin screening (FOX1), cefprozil (CPR), cefuroxime (CXM), cefuroxime axetil (CXA), loracarbef (LOR) cephalosporins_3rd() can select:  cefcapene (CCP), cefcapene pivoxil (CCX), cefdinir (CDR), cefditoren (DIT), cefditoren pivoxil (DIX), cefetamet (CAT), cefetamet pivoxil (CPI), cefixime (CFM), cefmenoxime (CMX), cefodizime (DIZ), cefoperazone (CFP), cefoperazone/sulbactam (CSL), cefotaxime (CTX), cefotaxime/clavulanic acid (CTC), cefotaxime/sulbactam (CTS), cefotiam hexetil (CHE), cefovecin (FOV), cefpimizole (CFZ), cefpiramide (CPM), cefpodoxime (CPD), cefpodoxime proxetil (CPX), cefpodoxime/clavulanic acid (CDC), cefsulodin (CFS), ceftazidime (CAZ), ceftazidime/avibactam (CZA), ceftazidime/clavulanic acid (CCV), cefteram (CEM), cefteram pivoxil (CPL), ceftibuten (CTB), ceftiofur (TIO), ceftizoxime (CZX), ceftizoxime alapivoxil (CZP), ceftriaxone (CRO), ceftriaxone/beta-lactamase inhibitor (CEB), latamoxef (LTM) cephalosporins_4th() can select:  cefepime (FEP), cefepime/clavulanic acid (CPC), cefepime/tazobactam (FPT), cefetecol (CCL), cefoselis (CSE), cefozopran (ZOP), cefpirome (CPO), cefquinome (CEQ) cephalosporins_5th() can select:  ceftaroline (CPT), ceftaroline/avibactam (CPA), ceftobiprole (BPR), ceftobiprole medocaril (CFM1), ceftolozane/tazobactam (CZT) fluoroquinolones() can select:  besifloxacin (BES), ciprofloxacin (CIP), clinafloxacin (CLX), danofloxacin (DAN), delafloxacin (DFX), difloxacin (DIF), enoxacin (ENX), enrofloxacin (ENR), finafloxacin (FIN), fleroxacin (FLE), garenoxacin (GRN), gatifloxacin (GAT), gemifloxacin (GEM), grepafloxacin (GRX), lascufloxacin (LSC), levofloxacin (LVX), levonadifloxacin (LND), lomefloxacin (LOM), marbofloxacin (MAR), metioxate (MXT), miloxacin (MIL), moxifloxacin (MFX), nadifloxacin (NAD), nifuroquine (NIF), norfloxacin (), ofloxacin (OFX), orbifloxacin (ORB), pazufloxacin (PAZ), pefloxacin (PEF), pradofloxacin (PRA), premafloxacin (PRX), prulifloxacin (PRU), rufloxacin (RFL), sarafloxacin (SAR), sitafloxacin (SIT), sparfloxacin (SPX), temafloxacin (TMX), tilbroquinol (TBQ), tioxacin (TXC), tosufloxacin (TFX), trovafloxacin (TVA) glycopeptides() can select:  avoparcin (AVO), dalbavancin (DAL), norvancomycin (NVA), oritavancin (ORI), ramoplanin (RAM), teicoplanin (TEC), teicoplanin-macromethod (TCM), telavancin (TLV), vancomycin (VAN), vancomycin-macromethod (VAM) lincosamides() can select:  acetylmidecamycin (ACM), acetylspiramycin (ASP), clindamycin (CLI), gamithromycin (GAM), kitasamycin (KIT), lincomycin (LIN), meleumycin (MEL), nafithromycin (ZWK), pirlimycin (PRL), primycin (PRM), solithromycin (SOL), tildipirosin (TIP), tilmicosin (TIL), tulathromycin (TUL), tylosin (TYL), tylvalosin (TYL1) lipoglycopeptides() can select:  dalbavancin (DAL), oritavancin (ORI), telavancin (TLV) macrolides() can select:  acetylmidecamycin (ACM), acetylspiramycin (ASP), azithromycin (AZM), clarithromycin (CLR), dirithromycin (DIR), erythromycin (ERY), flurithromycin (FLR1), gamithromycin (GAM), josamycin (JOS), kitasamycin (KIT), meleumycin (MEL), midecamycin (MID), miocamycin (MCM), nafithromycin (ZWK), oleandomycin (OLE), pirlimycin (PRL), primycin (PRM), rokitamycin (ROK), roxithromycin (RXT), solithromycin (SOL), spiramycin (SPI), telithromycin (TLT), tildipirosin (TIP), tilmicosin (TIL), troleandomycin (TRL), tulathromycin (TUL), tylosin (TYL), tylvalosin (TYL1) oxazolidinones() can select:  cadazolid (CDZ), cycloserine (CYC), linezolid (LNZ), tedizolid (TZD), thiacetazone (THA) penicillins() can select:  amoxicillin (AMX), amoxicillin/clavulanic acid (AMC), amoxicillin/sulbactam (AXS), ampicillin (AMP), ampicillin/sulbactam (SAM), apalcillin (APL), aspoxicillin (APX), avibactam (AVB), azidocillin (AZD), azlocillin (AZL), aztreonam (ATM), aztreonam/avibactam (AZA), aztreonam/nacubactam (ANC), bacampicillin (BAM), benzathine benzylpenicillin (BNB), benzathine phenoxymethylpenicillin (BNP), benzylpenicillin (PEN), carbenicillin (CRB), carindacillin (CRN), cefepime/nacubactam (FNC), ciclacillin (CIC), clometocillin (CLM), cloxacillin (CLO), dicloxacillin (DIC), epicillin (EPC), flucloxacillin (FLC), hetacillin (HET), lenampicillin (LEN), mecillinam (MEC), metampicillin (MTM), meticillin (MET), mezlocillin (MEZ), mezlocillin/sulbactam (MSU), nacubactam (NAC), nafcillin (NAF), oxacillin (OXA), penamecillin (PNM), penicillin/novobiocin (PNO), penicillin/sulbactam (PSU), pheneticillin (PHE), phenoxymethylpenicillin (PHN), piperacillin (PIP), piperacillin/sulbactam (PIS), piperacillin/tazobactam (TZP), piridicillin (PRC), pivampicillin (PVM), pivmecillinam (PME), procaine benzylpenicillin (PRB), propicillin (PRP), sarmoxicillin (SRX), sulbactam (SUL), sulbenicillin (SBC), sultamicillin (SLT6), talampicillin (TAL), tazobactam (TAZ), temocillin (TEM), ticarcillin (TIC), ticarcillin/clavulanic acid (TCC) polymyxins() can select:  colistin (COL), polymyxin B (PLB), polymyxin B/polysorbate 80 (POP) quinolones() can select:  besifloxacin (BES), cinoxacin (CIN), ciprofloxacin (CIP), clinafloxacin (CLX), danofloxacin (DAN), delafloxacin (DFX), difloxacin (DIF), enoxacin (ENX), enrofloxacin (ENR), finafloxacin (FIN), fleroxacin (FLE), flumequine (FLM), garenoxacin (GRN), gatifloxacin (GAT), gemifloxacin (GEM), grepafloxacin (GRX), lascufloxacin (LSC), levofloxacin (LVX), levonadifloxacin (LND), lomefloxacin (LOM), marbofloxacin (MAR), metioxate (MXT), miloxacin (MIL), moxifloxacin (MFX), nadifloxacin (NAD), nalidixic acid (NAL), nemonoxacin (NEM), nifuroquine (NIF), nitroxoline (NTR), norfloxacin (), ofloxacin (OFX), orbifloxacin (ORB), oxolinic acid (OXO), pazufloxacin (PAZ), pefloxacin (PEF), pipemidic acid (PPA), piromidic acid (PIR), pradofloxacin (PRA), premafloxacin (PRX), prulifloxacin (PRU), rosoxacin (ROS), rufloxacin (RFL), sarafloxacin (SAR), sitafloxacin (SIT), sparfloxacin (SPX), temafloxacin (TMX), tilbroquinol (TBQ), tioxacin (TXC), tosufloxacin (TFX), trovafloxacin (TVA) streptogramins() can select:  pristinamycin (PRI) quinupristin/dalfopristin (QDA) tetracyclines() can select:  cetocycline (CTO), chlortetracycline (CTE), clomocycline (CLM1), demeclocycline (DEM), doxycycline (DOX), eravacycline (ERV), lymecycline (LYM), metacycline (MTC), minocycline (MNO), omadacycline (OMC), oxytetracycline (OXY), penimepicycline (PNM1), rolitetracycline (RLT), sarecycline (SRC), tetracycline (TCY), tigecycline (TGC) trimethoprims() can select:  brodimoprim (BDP), sulfadiazine (SDI), sulfadiazine/tetroxoprim (SLT), sulfadiazine/trimethoprim (SLT1), sulfadimethoxine (SUD), sulfadimidine (SDM), sulfadimidine/trimethoprim (SLT2), sulfafurazole (SLF), sulfaisodimidine (SLF1), sulfalene (SLF2), sulfamazone (SZO), sulfamerazine (SLF3), sulfamerazine/trimethoprim (SLT3), sulfamethizole (SLF4), sulfamethoxazole (SMX), sulfamethoxypyridazine (SLF5), sulfametomidine (SLF6), sulfametoxydiazine (SLF7), sulfametrole/trimethoprim (SLT4), sulfamoxole (SLF8), sulfamoxole/trimethoprim (SLT5), sulfanilamide (SLF9), sulfaperin (SLF10), sulfaphenazole (SLF11), sulfapyridine (SLF12), sulfathiazole (SUT), sulfathiourea (SLF13), trimethoprim (TMP), trimethoprim/sulfamethoxazole (SXT) ureidopenicillins() can select:  azlocillin (AZL), mezlocillin (MEZ), piperacillin (PIP), piperacillin/tazobactam (TZP)","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"","code":"# `example_isolates` is a data set available in the AMR package. # See ?example_isolates. example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 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>, …   # Examples sections below are split into 'base R', 'dplyr', and 'data.table':   # base R ------------------------------------------------------------------  # select columns 'IPM' (imipenem) and 'MEM' (meropenem) example_isolates[, carbapenems()] #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> # A tibble: 2,000 × 2 #>    IPM   MEM   #>    <sir> <sir> #>  1 NA    NA    #>  2 NA    NA    #>  3 NA    NA    #>  4 NA    NA    #>  5 NA    NA    #>  6 NA    NA    #>  7 NA    NA    #>  8 NA    NA    #>  9 NA    NA    #> 10 NA    NA    #> # ℹ 1,990 more rows  # select columns 'mo', 'AMK', 'GEN', 'KAN' and 'TOB' example_isolates[, c(\"mo\", aminoglycosides())] #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> # A tibble: 2,000 × 5 #>    mo           GEN   TOB   AMK   KAN   #>    <mo>         <sir> <sir> <sir> <sir> #>  1 B_ESCHR_COLI NA    NA    NA    NA    #>  2 B_ESCHR_COLI NA    NA    NA    NA    #>  3 B_STPHY_EPDR NA    NA    NA    NA    #>  4 B_STPHY_EPDR NA    NA    NA    NA    #>  5 B_STPHY_EPDR NA    NA    NA    NA    #>  6 B_STPHY_EPDR NA    NA    NA    NA    #>  7 B_STPHY_AURS NA    S     NA    NA    #>  8 B_STPHY_AURS NA    S     NA    NA    #>  9 B_STPHY_EPDR NA    NA    NA    NA    #> 10 B_STPHY_EPDR NA    NA    NA    NA    #> # ℹ 1,990 more rows  # select only antibiotic columns with DDDs for oral treatment example_isolates[, administrable_per_os()] #> ℹ For administrable_per_os() using columns 'OXA' (oxacillin), 'FLC' #>   (flucloxacillin), 'AMX' (amoxicillin), 'AMC' (amoxicillin/clavulanic acid), #>   'AMP' (ampicillin), 'CXM' (cefuroxime), 'KAN' (kanamycin), 'TMP' #>   (trimethoprim), 'NIT' (nitrofurantoin), 'FOS' (fosfomycin), 'LNZ' #>   (linezolid), 'CIP' (ciprofloxacin), 'MFX' (moxifloxacin), 'VAN' #>   (vancomycin), 'TCY' (tetracycline), 'DOX' (doxycycline), 'ERY' #>   (erythromycin), 'CLI' (clindamycin), 'AZM' (azithromycin), 'MTR' #>   (metronidazole), 'CHL' (chloramphenicol), 'COL' (colistin), and 'RIF' #>   (rifampicin) #> # A tibble: 2,000 × 23 #>    OXA   FLC   AMX   AMC   AMP   CXM   KAN   TMP   NIT   FOS   LNZ   CIP   MFX   #>    <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> #>  1 NA    NA    NA    I     NA    I     NA    R     NA    NA    R     NA    NA    #>  2 NA    NA    NA    I     NA    I     NA    R     NA    NA    R     NA    NA    #>  3 NA    R     NA    NA    NA    R     NA    S     NA    NA    NA    NA    NA    #>  4 NA    R     NA    NA    NA    R     NA    S     NA    NA    NA    NA    NA    #>  5 NA    R     NA    NA    NA    R     NA    R     NA    NA    NA    NA    NA    #>  6 NA    R     NA    NA    NA    R     NA    R     NA    NA    NA    NA    NA    #>  7 NA    S     R     S     R     S     NA    R     NA    NA    NA    NA    NA    #>  8 NA    S     R     S     R     S     NA    R     NA    NA    NA    NA    NA    #>  9 NA    R     NA    NA    NA    R     NA    S     NA    NA    NA    S     NA    #> 10 NA    S     NA    NA    NA    S     NA    S     NA    NA    NA    S     NA    #> # ℹ 1,990 more rows #> # ℹ 10 more variables: VAN <sir>, TCY <sir>, DOX <sir>, ERY <sir>, CLI <sir>, #> #   AZM <sir>, MTR <sir>, CHL <sir>, COL <sir>, RIF <sir>  # filter using any() or all() example_isolates[any(carbapenems() == \"R\"), ] #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> # A tibble: 55 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2004-06-09 529296     69 M      ICU      B_ENTRC_FACM NA    NA    NA    NA    #>  2 2004-06-09 529296     69 M      ICU      B_ENTRC_FACM NA    NA    NA    NA    #>  3 2004-11-03 D65308     80 F      ICU      B_STNTR_MLTP R     NA    NA    R     #>  4 2005-04-21 452212     82 F      ICU      B_ENTRC      NA    NA    NA    NA    #>  5 2005-04-22 452212     82 F      ICU      B_ENTRC      NA    NA    NA    NA    #>  6 2005-04-22 452212     82 F      ICU      B_ENTRC_FACM NA    NA    NA    NA    #>  7 2007-02-21 8BBC46     61 F      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  8 2007-12-15 401043     72 M      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  9 2008-01-22 1710B8     82 M      Clinical B_PROTS_MRBL R     NA    NA    NA    #> 10 2008-01-22 1710B8     82 M      Clinical B_PROTS_MRBL R     NA    NA    NA    #> # ℹ 45 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … subset(example_isolates, any(carbapenems() == \"R\")) #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> # A tibble: 55 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2004-06-09 529296     69 M      ICU      B_ENTRC_FACM NA    NA    NA    NA    #>  2 2004-06-09 529296     69 M      ICU      B_ENTRC_FACM NA    NA    NA    NA    #>  3 2004-11-03 D65308     80 F      ICU      B_STNTR_MLTP R     NA    NA    R     #>  4 2005-04-21 452212     82 F      ICU      B_ENTRC      NA    NA    NA    NA    #>  5 2005-04-22 452212     82 F      ICU      B_ENTRC      NA    NA    NA    NA    #>  6 2005-04-22 452212     82 F      ICU      B_ENTRC_FACM NA    NA    NA    NA    #>  7 2007-02-21 8BBC46     61 F      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  8 2007-12-15 401043     72 M      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  9 2008-01-22 1710B8     82 M      Clinical B_PROTS_MRBL R     NA    NA    NA    #> 10 2008-01-22 1710B8     82 M      Clinical B_PROTS_MRBL R     NA    NA    NA    #> # ℹ 45 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  # filter on any or all results in the carbapenem columns (i.e., IPM, MEM): example_isolates[any(carbapenems()), ] #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ Filtering any of columns 'IPM' and 'MEM' to contain value \"S\", \"I\" or \"R\" #> # A tibble: 962 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL R     NA    NA    NA    #>  4 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL R     NA    NA    NA    #>  5 2002-02-05 067927     45 F      ICU      B_SERRT_MRCS R     NA    NA    R     #>  6 2002-02-05 067927     45 F      ICU      B_SERRT_MRCS R     NA    NA    R     #>  7 2002-02-05 067927     45 F      ICU      B_SERRT_MRCS R     NA    NA    R     #>  8 2002-02-27 066895     85 F      Clinical B_KLBSL_PNMN R     NA    NA    R     #>  9 2002-02-27 066895     85 F      Clinical B_KLBSL_PNMN R     NA    NA    R     #> 10 2002-03-08 4FC193     69 M      Clinical B_ESCHR_COLI R     NA    NA    R     #> # ℹ 952 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … example_isolates[all(carbapenems()), ] #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ Filtering all of columns 'IPM' and 'MEM' to contain value \"S\", \"I\" or \"R\" #> # A tibble: 756 × 46 #>    date       patient   age gender ward    mo            PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>   <mo>          <sir> <sir> <sir> <sir> #>  1 2002-04-14 F30196     73 M      Outpat… B_STRPT_GRPB  S     NA    S     S     #>  2 2003-04-08 114570     74 M      ICU     B_STRPT_PYGN  S     NA    S     S     #>  3 2003-04-08 114570     74 M      ICU     B_STRPT_GRPA  S     NA    S     S     #>  4 2003-04-08 114570     74 M      ICU     B_STRPT_GRPA  S     NA    S     S     #>  5 2003-08-14 F71508      0 F      Clinic… B_STRPT_GRPB  S     NA    S     S     #>  6 2003-10-16 650870     63 F      ICU     B_ESCHR_COLI  R     NA    NA    R     #>  7 2003-10-20 F35553     52 M      ICU     B_ENTRBC_CLOC R     NA    NA    R     #>  8 2003-10-20 F35553     52 M      ICU     B_ENTRBC_CLOC R     NA    NA    R     #>  9 2003-11-04 2FC253     87 F      ICU     B_ESCHR_COLI  R     NA    NA    NA    #> 10 2003-11-04 2FC253     87 F      ICU     B_ESCHR_COLI  R     NA    NA    NA    #> # ℹ 746 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  # filter with multiple antibiotic selectors using c() example_isolates[all(c(carbapenems(), aminoglycosides()) == \"R\"), ] #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> # A tibble: 26 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2004-11-03 D65308     80 F      ICU      B_STNTR_MLTP R     NA    NA    R     #>  2 2005-04-22 452212     82 F      ICU      B_ENTRC_FACM NA    NA    NA    NA    #>  3 2007-02-21 8BBC46     61 F      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  4 2007-12-15 401043     72 M      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  5 2008-12-06 501361     43 F      Clinical B_STNTR_MLTP R     NA    NA    R     #>  6 2011-05-09 207325     82 F      ICU      B_ENTRC_FACM NA    NA    NA    NA    #>  7 2012-03-12 582258     80 M      ICU      B_STPHY_CONS R     R     R     R     #>  8 2012-05-19 C25552     89 F      Outpati… B_STPHY_CONS R     R     R     R     #>  9 2012-07-17 F05015     83 M      ICU      B_STPHY_CONS R     R     R     R     #> 10 2012-07-20 404299     66 F      Clinical B_STPHY_CONS R     R     R     R     #> # ℹ 16 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  # filter + select in one go: get penicillins in carbapenem-resistant strains example_isolates[any(carbapenems() == \"R\"), penicillins()] #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ For penicillins() using columns 'PEN' (benzylpenicillin), 'OXA' #>   (oxacillin), 'FLC' (flucloxacillin), 'AMX' (amoxicillin), 'AMC' #>   (amoxicillin/clavulanic acid), 'AMP' (ampicillin), and 'TZP' #>   (piperacillin/tazobactam) #> # A tibble: 55 × 7 #>    PEN   OXA   FLC   AMX   AMC   AMP   TZP   #>    <sir> <sir> <sir> <sir> <sir> <sir> <sir> #>  1 NA    NA    NA    NA    NA    NA    NA    #>  2 NA    NA    NA    NA    NA    NA    NA    #>  3 R     NA    NA    R     R     R     R     #>  4 NA    NA    NA    NA    NA    NA    R     #>  5 NA    NA    NA    NA    NA    NA    R     #>  6 NA    NA    NA    NA    NA    NA    R     #>  7 NA    NA    NA    NA    NA    NA    R     #>  8 NA    NA    NA    NA    NA    NA    R     #>  9 R     NA    NA    NA    S     NA    S     #> 10 R     NA    NA    NA    S     NA    S     #> # ℹ 45 more rows  # You can combine selectors with '&' to be more specific. For example, # penicillins() would select benzylpenicillin ('peni G') and # administrable_per_os() would select erythromycin. Yet, when combined these # drugs are both omitted since benzylpenicillin is not administrable per os # and erythromycin is not a penicillin: example_isolates[, penicillins() & administrable_per_os()] #> ℹ For penicillins() using columns 'PEN' (benzylpenicillin), 'OXA' #>   (oxacillin), 'FLC' (flucloxacillin), 'AMX' (amoxicillin), 'AMC' #>   (amoxicillin/clavulanic acid), 'AMP' (ampicillin), and 'TZP' #>   (piperacillin/tazobactam) #> ℹ For administrable_per_os() using columns 'OXA' (oxacillin), 'FLC' #>   (flucloxacillin), 'AMX' (amoxicillin), 'AMC' (amoxicillin/clavulanic acid), #>   'AMP' (ampicillin), 'CXM' (cefuroxime), 'KAN' (kanamycin), 'TMP' #>   (trimethoprim), 'NIT' (nitrofurantoin), 'FOS' (fosfomycin), 'LNZ' #>   (linezolid), 'CIP' (ciprofloxacin), 'MFX' (moxifloxacin), 'VAN' #>   (vancomycin), 'TCY' (tetracycline), 'DOX' (doxycycline), 'ERY' #>   (erythromycin), 'CLI' (clindamycin), 'AZM' (azithromycin), 'MTR' #>   (metronidazole), 'CHL' (chloramphenicol), 'COL' (colistin), and 'RIF' #>   (rifampicin) #> # A tibble: 2,000 × 5 #>    OXA   FLC   AMX   AMC   AMP   #>    <sir> <sir> <sir> <sir> <sir> #>  1 NA    NA    NA    I     NA    #>  2 NA    NA    NA    I     NA    #>  3 NA    R     NA    NA    NA    #>  4 NA    R     NA    NA    NA    #>  5 NA    R     NA    NA    NA    #>  6 NA    R     NA    NA    NA    #>  7 NA    S     R     S     R     #>  8 NA    S     R     S     R     #>  9 NA    R     NA    NA    NA    #> 10 NA    S     NA    NA    NA    #> # ℹ 1,990 more rows  # ab_selector() applies a filter in the `antibiotics` data set and is thus # very flexible. For instance, to select antibiotic columns with an oral DDD # of at least 1 gram: example_isolates[, ab_selector(oral_ddd > 1 & oral_units == \"g\")] #> ℹ For ab_selector(oral_ddd > 1 & oral_units == \"g\") using columns 'OXA' #>   (oxacillin), 'FLC' (flucloxacillin), 'AMX' (amoxicillin), 'AMC' #>   (amoxicillin/clavulanic acid), 'AMP' (ampicillin), 'KAN' (kanamycin), 'FOS' #>   (fosfomycin), 'LNZ' (linezolid), 'VAN' (vancomycin), 'ERY' (erythromycin), #>   'CLI' (clindamycin), 'MTR' (metronidazole), and 'CHL' (chloramphenicol) #> # A tibble: 2,000 × 13 #>    OXA   FLC   AMX   AMC   AMP   KAN   FOS   LNZ   VAN   ERY   CLI   MTR   CHL   #>    <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> #>  1 NA    NA    NA    I     NA    NA    NA    R     R     R     R     NA    NA    #>  2 NA    NA    NA    I     NA    NA    NA    R     R     R     R     NA    NA    #>  3 NA    R     NA    NA    NA    NA    NA    NA    S     R     NA    NA    NA    #>  4 NA    R     NA    NA    NA    NA    NA    NA    S     R     NA    NA    NA    #>  5 NA    R     NA    NA    NA    NA    NA    NA    S     R     NA    NA    NA    #>  6 NA    R     NA    NA    NA    NA    NA    NA    S     R     R     NA    NA    #>  7 NA    S     R     S     R     NA    NA    NA    S     S     NA    NA    NA    #>  8 NA    S     R     S     R     NA    NA    NA    S     S     NA    NA    NA    #>  9 NA    R     NA    NA    NA    NA    NA    NA    S     R     NA    NA    NA    #> 10 NA    S     NA    NA    NA    NA    NA    NA    S     S     NA    NA    NA    #> # ℹ 1,990 more rows  # \\donttest{ # dplyr -------------------------------------------------------------------  if (require(\"dplyr\")) {   tibble(kefzol = random_sir(5)) %>%     select(cephalosporins()) } #> ℹ For cephalosporins() using column 'kefzol' (cefazolin) #> # A tibble: 5 × 1 #>   kefzol #>   <sir>  #> 1 I      #> 2 S      #> 3 R      #> 4 I      #> 5 S       if (require(\"dplyr\")) {   # get AMR for all aminoglycosides e.g., per ward:   example_isolates %>%     group_by(ward) %>%     summarise(across(aminoglycosides(), resistance)) } #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> Warning: There was 1 warning in `summarise()`. #> ℹ In argument: `across(aminoglycosides(), resistance)`. #> ℹ In group 3: `ward = \"Outpatient\"`. #> Caused by warning: #> ! Introducing NA: only 23 results available for KAN in group: ward = #> \"Outpatient\" (minimum = 30). #> # A tibble: 3 × 5 #>   ward         GEN   TOB   AMK   KAN #>   <chr>      <dbl> <dbl> <dbl> <dbl> #> 1 Clinical   0.229 0.315 0.626     1 #> 2 ICU        0.290 0.400 0.662     1 #> 3 Outpatient 0.2   0.368 0.605    NA if (require(\"dplyr\")) {   # You can combine selectors with '&' to be more specific:   example_isolates %>%     select(penicillins() & administrable_per_os()) } #> ℹ For penicillins() using columns 'PEN' (benzylpenicillin), 'OXA' #>   (oxacillin), 'FLC' (flucloxacillin), 'AMX' (amoxicillin), 'AMC' #>   (amoxicillin/clavulanic acid), 'AMP' (ampicillin), and 'TZP' #>   (piperacillin/tazobactam) #> ℹ For administrable_per_os() using columns 'OXA' (oxacillin), 'FLC' #>   (flucloxacillin), 'AMX' (amoxicillin), 'AMC' (amoxicillin/clavulanic acid), #>   'AMP' (ampicillin), 'CXM' (cefuroxime), 'KAN' (kanamycin), 'TMP' #>   (trimethoprim), 'NIT' (nitrofurantoin), 'FOS' (fosfomycin), 'LNZ' #>   (linezolid), 'CIP' (ciprofloxacin), 'MFX' (moxifloxacin), 'VAN' #>   (vancomycin), 'TCY' (tetracycline), 'DOX' (doxycycline), 'ERY' #>   (erythromycin), 'CLI' (clindamycin), 'AZM' (azithromycin), 'MTR' #>   (metronidazole), 'CHL' (chloramphenicol), 'COL' (colistin), and 'RIF' #>   (rifampicin) #> # A tibble: 2,000 × 5 #>    OXA   FLC   AMX   AMC   AMP   #>    <sir> <sir> <sir> <sir> <sir> #>  1 NA    NA    NA    I     NA    #>  2 NA    NA    NA    I     NA    #>  3 NA    R     NA    NA    NA    #>  4 NA    R     NA    NA    NA    #>  5 NA    R     NA    NA    NA    #>  6 NA    R     NA    NA    NA    #>  7 NA    S     R     S     R     #>  8 NA    S     R     S     R     #>  9 NA    R     NA    NA    NA    #> 10 NA    S     NA    NA    NA    #> # ℹ 1,990 more rows if (require(\"dplyr\")) {   # get AMR for only drugs that matter - no intrinsic resistance:   example_isolates %>%     filter(mo_genus() %in% c(\"Escherichia\", \"Klebsiella\")) %>%     group_by(ward) %>%     summarise(across(not_intrinsic_resistant(), resistance)) } #> ℹ Using column 'mo' as input for mo_genus() #> ℹ For not_intrinsic_resistant() removing columns 'PEN' #>   (benzylpenicillin), 'LNZ' (linezolid), 'VAN' (vancomycin), 'TEC' #>   (teicoplanin), 'ERY' (erythromycin), 'CLI' (clindamycin), 'AZM' #>   (azithromycin), and 'RIF' (rifampicin) #> Warning: There were 52 warnings in `summarise()`. #> The first warning was: #> ℹ In argument: `across(not_intrinsic_resistant(), resistance)`. #> ℹ In group 1: `ward = \"Clinical\"`. #> Caused by warning: #> ! Introducing NA: no results available for OXA in group: ward = \"Clinical\" #> (minimum = 30). #> ℹ Run `dplyr::last_dplyr_warnings()` to see the 51 remaining warnings. #> # A tibble: 3 × 33 #>   ward    OXA   FLC    AMX    AMC    AMP     TZP     CZO     FEP     CXM     FOX #>   <chr> <dbl> <dbl>  <dbl>  <dbl>  <dbl>   <dbl>   <dbl>   <dbl>   <dbl>   <dbl> #> 1 Clin…    NA    NA  0.606  0.121  0.606  0.0504  0.0656  0.0159  0.0622  0.0648 #> 2 ICU      NA    NA  0.535  0.172  0.535  0.119  NA       0.0722  0.0828  0.0992 #> 3 Outp…    NA    NA NA     NA     NA     NA      NA      NA      NA      NA      #> # ℹ 22 more variables: CTX <dbl>, CAZ <dbl>, CRO <dbl>, GEN <dbl>, TOB <dbl>, #> #   AMK <dbl>, KAN <dbl>, TMP <dbl>, SXT <dbl>, NIT <dbl>, FOS <dbl>, #> #   CIP <dbl>, MFX <dbl>, TCY <dbl>, TGC <dbl>, DOX <dbl>, IPM <dbl>, #> #   MEM <dbl>, MTR <dbl>, CHL <dbl>, COL <dbl>, MUP <dbl> if (require(\"dplyr\")) {   # get susceptibility for antibiotics whose name contains \"trim\":   example_isolates %>%     filter(first_isolate()) %>%     group_by(ward) %>%     summarise(across(ab_selector(name %like% \"trim\"), susceptibility)) } #> ℹ For ab_selector(name %like% \"trim\") using columns 'TMP' (trimethoprim) #>   and 'SXT' (trimethoprim/sulfamethoxazole) #> # A tibble: 3 × 3 #>   ward         TMP   SXT #>   <chr>      <dbl> <dbl> #> 1 Clinical   0.627 0.807 #> 2 ICU        0.551 0.780 #> 3 Outpatient 0.667 0.821 if (require(\"dplyr\")) {   # this will select columns 'IPM' (imipenem) and 'MEM' (meropenem):   example_isolates %>%     select(carbapenems()) } #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> # A tibble: 2,000 × 2 #>    IPM   MEM   #>    <sir> <sir> #>  1 NA    NA    #>  2 NA    NA    #>  3 NA    NA    #>  4 NA    NA    #>  5 NA    NA    #>  6 NA    NA    #>  7 NA    NA    #>  8 NA    NA    #>  9 NA    NA    #> 10 NA    NA    #> # ℹ 1,990 more rows if (require(\"dplyr\")) {   # this will select columns 'mo', 'AMK', 'GEN', 'KAN' and 'TOB':   example_isolates %>%     select(mo, aminoglycosides()) } #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> # A tibble: 2,000 × 5 #>    mo           GEN   TOB   AMK   KAN   #>    <mo>         <sir> <sir> <sir> <sir> #>  1 B_ESCHR_COLI NA    NA    NA    NA    #>  2 B_ESCHR_COLI NA    NA    NA    NA    #>  3 B_STPHY_EPDR NA    NA    NA    NA    #>  4 B_STPHY_EPDR NA    NA    NA    NA    #>  5 B_STPHY_EPDR NA    NA    NA    NA    #>  6 B_STPHY_EPDR NA    NA    NA    NA    #>  7 B_STPHY_AURS NA    S     NA    NA    #>  8 B_STPHY_AURS NA    S     NA    NA    #>  9 B_STPHY_EPDR NA    NA    NA    NA    #> 10 B_STPHY_EPDR NA    NA    NA    NA    #> # ℹ 1,990 more rows if (require(\"dplyr\")) {   # any() and all() work in dplyr's filter() too:   example_isolates %>%     filter(       any(aminoglycosides() == \"R\"),       all(cephalosporins_2nd() == \"R\")     ) } #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> ℹ For cephalosporins_2nd() using columns 'CXM' (cefuroxime) and 'FOX' #>   (cefoxitin) #> # A tibble: 112 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-02-21 4FC193     69 M      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  2 2002-03-16 4FC193     69 M      Clinical B_PSDMN_AERG R     NA    NA    R     #>  3 2002-04-08 130252     78 M      ICU      B_ENTRC_FCLS NA    NA    NA    NA    #>  4 2002-06-23 798871     82 M      Clinical B_ENTRC_FCLS NA    NA    NA    NA    #>  5 2002-06-23 798871     82 M      Clinical B_ENTRC_FCLS NA    NA    NA    NA    #>  6 2002-07-21 955940     82 F      Clinical B_PSDMN_AERG R     NA    NA    R     #>  7 2002-07-21 955940     82 F      Clinical B_PSDMN_AERG R     NA    NA    R     #>  8 2003-08-13 F35553     52 M      ICU      B_ENTRC_FCLS NA    NA    NA    NA    #>  9 2003-09-05 F35553     52 M      ICU      B_ENTRC_FCLS NA    NA    NA    NA    #> 10 2004-06-09 529296     69 M      ICU      B_ENTRC_FACM NA    NA    NA    NA    #> # ℹ 102 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\")) {   # also works with c():   example_isolates %>%     filter(any(c(carbapenems(), aminoglycosides()) == \"R\")) } #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> # A tibble: 531 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-02-21 4FC193     69 M      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  2 2002-03-16 4FC193     69 M      Clinical B_PSDMN_AERG R     NA    NA    R     #>  3 2002-03-17 B30560     78 M      Clinical B_STPHY_CONS R     NA    R     R     #>  4 2002-04-04 E61143     67 M      Clinical B_STRPT_SNGN S     NA    NA    S     #>  5 2002-04-08 130252     78 M      ICU      B_ENTRC_FCLS NA    NA    NA    NA    #>  6 2002-04-14 F30196     73 M      Outpati… B_STRPT_GRPB S     NA    S     S     #>  7 2002-05-07 D91570     83 M      Clinical B_STPHY_CONS R     NA    R     R     #>  8 2002-05-07 D91570     83 M      Clinical B_STPHY_CONS R     NA    R     R     #>  9 2002-05-14 077552     86 F      Clinical B_STRPT_PNMN S     NA    NA    S     #> 10 2002-05-14 077552     86 F      Clinical B_STRPT_PNMN S     NA    NA    S     #> # ℹ 521 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\")) {   # not setting any/all will automatically apply all():   example_isolates %>%     filter(aminoglycosides() == \"R\") } #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> ℹ Assuming a filter on all 4 aminoglycosides. Wrap around all() or #>   any() to prevent this note. #> # A tibble: 427 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-02-21 4FC193     69 M      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  2 2002-03-17 B30560     78 M      Clinical B_STPHY_CONS R     NA    R     R     #>  3 2002-04-04 E61143     67 M      Clinical B_STRPT_SNGN S     NA    NA    S     #>  4 2002-04-08 130252     78 M      ICU      B_ENTRC_FCLS NA    NA    NA    NA    #>  5 2002-04-14 F30196     73 M      Outpati… B_STRPT_GRPB S     NA    S     S     #>  6 2002-05-07 D91570     83 M      Clinical B_STPHY_CONS R     NA    R     R     #>  7 2002-05-07 D91570     83 M      Clinical B_STPHY_CONS R     NA    R     R     #>  8 2002-05-14 077552     86 F      Clinical B_STRPT_PNMN S     NA    NA    S     #>  9 2002-05-14 077552     86 F      Clinical B_STRPT_PNMN S     NA    NA    S     #> 10 2002-05-16 D25302     65 F      ICU      B_STRPT_ANGN S     NA    NA    S     #> # ℹ 417 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\")) {   # this will select columns 'mo' and all antimycobacterial drugs ('RIF'):   example_isolates %>%     select(mo, ab_class(\"mycobact\")) } #> ℹ For ab_class(\"mycobact\") using column 'RIF' (rifampicin) #> # A tibble: 2,000 × 2 #>    mo           RIF   #>    <mo>         <sir> #>  1 B_ESCHR_COLI R     #>  2 B_ESCHR_COLI R     #>  3 B_STPHY_EPDR NA    #>  4 B_STPHY_EPDR NA    #>  5 B_STPHY_EPDR NA    #>  6 B_STPHY_EPDR NA    #>  7 B_STPHY_AURS NA    #>  8 B_STPHY_AURS NA    #>  9 B_STPHY_EPDR NA    #> 10 B_STPHY_EPDR NA    #> # ℹ 1,990 more rows if (require(\"dplyr\")) {   # get bug/drug combinations for only glycopeptides in Gram-positives:   example_isolates %>%     filter(mo_is_gram_positive()) %>%     select(mo, glycopeptides()) %>%     bug_drug_combinations() %>%     format() } #> ℹ Using column 'mo' as input for mo_is_gram_positive() #> ℹ For glycopeptides() using columns 'VAN' (vancomycin) and 'TEC' #>   (teicoplanin) #> # A tibble: 2 × 8 #>   Group      Drug  CoNS  `E. faecalis` `S. aureus` `S. epidermidis` `S. hominis` #>   <chr>      <chr> <chr> <chr>         <chr>       <chr>            <chr>        #> 1 \"Glycopep… Teic… \"\"    \"\"            \" 0.0% (0/… \"64.1% (25/39)\"  \" 6.8% (4/5… #> 2 \"\"         Vanc… \" 0.… \" 0.0% (0/39… \" 0.0% (0/… \" 0.0% (0/171)\"  \" 0.0% (0/8… #> # ℹ 1 more variable: `S. pneumoniae` <chr> if (require(\"dplyr\")) {   data.frame(     some_column = \"some_value\",     J01CA01 = \"S\"   ) %>% # ATC code of ampicillin     select(penicillins()) # only the 'J01CA01' column will be selected } #> ℹ For penicillins() using column 'J01CA01' (ampicillin) #>   J01CA01 #> 1       S if (require(\"dplyr\")) {   # with recent versions of dplyr, this is all equal:   x <- example_isolates[carbapenems() == \"R\", ]   y <- example_isolates %>% filter(carbapenems() == \"R\")   z <- example_isolates %>% filter(if_all(carbapenems(), ~ .x == \"R\"))   identical(x, y) && identical(y, z) } #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ Assuming a filter on all 2 carbapenems. Wrap around all() or any() to #>   prevent this note. #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ Assuming a filter on all 2 carbapenems. Wrap around all() or any() to #>   prevent this note. #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> [1] TRUE   # data.table --------------------------------------------------------------  # data.table is supported as well, just use it in the same way as with # base R, but add `with = FALSE` if using a single AB selector.  if (require(\"data.table\")) {   dt <- as.data.table(example_isolates)    # this does not work, it returns column *names*   dt[, carbapenems()] } #> Loading required package: data.table #>  #> Attaching package: ‘data.table’ #> The following objects are masked from ‘package:dplyr’: #>  #>     between, first, last #> The following objects are masked from ‘package:AMR’: #>  #>     %like%, like #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> [1] \"IPM\" \"MEM\" #> attr(,\"class\") #> [1] \"ab_selector\" \"character\"   if (require(\"data.table\")) {   # so `with = FALSE` is required   dt[, carbapenems(), with = FALSE] } #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #>        IPM  MEM #>    1: <NA> <NA> #>    2: <NA> <NA> #>    3: <NA> <NA> #>    4: <NA> <NA> #>    5: <NA> <NA> #>   ---           #> 1996: <NA> <NA> #> 1997:    S    S #> 1998:    S    S #> 1999:    S    S #> 2000:    S    S  # for 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 #>    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 #>    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  AMX #>   1: 2002-01-19  738003  71      M   Clinical B_ESCHR_COLI   R <NA> <NA> <NA> #>   2: 2002-01-19  738003  71      M   Clinical B_ESCHR_COLI   R <NA> <NA> <NA> #>   3: 2002-01-22  F35553  50      M        ICU B_PROTS_MRBL   R <NA> <NA> <NA> #>   4: 2002-01-22  F35553  50      M        ICU B_PROTS_MRBL   R <NA> <NA> <NA> #>   5: 2002-02-05  067927  45      F        ICU B_SERRT_MRCS   R <NA> <NA>    R #>  ---                                                                          #> 905: 2005-04-12  D71461  70      M        ICU B_ESCHR_COLI   R <NA> <NA>    S #> 906: 2009-11-12  650870  69      F Outpatient B_ESCHR_COLI   R <NA> <NA>    S #> 907: 2012-06-14  8CBCF2  41      F   Clinical B_STPHY_CONS   R    S    S <NA> #> 908: 2012-10-11  175532  78      M   Clinical B_ESCHR_COLI   R <NA> <NA>    R #> 909: 2013-11-23  A97263  77      M   Clinical B_KLBSL_PNMN   R <NA> <NA>    R #>      AMC  AMP  TZP  CZO  FEP CXM  FOX  CTX  CAZ  CRO  GEN  TOB  AMK  KAN  TMP #>   1:   I <NA> <NA> <NA> <NA>   S <NA>    S <NA>    S <NA>    S <NA> <NA>    S #>   2:   I <NA> <NA> <NA> <NA>   S <NA>    S <NA>    S <NA>    S <NA> <NA>    S #>   3:   I <NA> <NA> <NA> <NA>   S <NA>    S    S    S <NA> <NA> <NA> <NA>    S #>   4:   I <NA> <NA> <NA> <NA>   S <NA>    S    S    S <NA> <NA> <NA> <NA>    S #>   5:   R    R <NA>    R <NA>   R    R <NA> <NA> <NA> <NA> <NA> <NA> <NA>    S #>  ---                                                                          #> 905:   S    S    S <NA>    S   S    S    S    S    S    S    S    S <NA> <NA> #> 906:   S    S    S    S    S   S    S    S    S    S    S    S    S <NA>    S #> 907:   S <NA> <NA>    S    S   S    S    S    R    S    S <NA> <NA> <NA>    S #> 908:   S    R    S <NA>    S   R    R    S    S    S    S    S <NA> <NA>    R #> 909:   S    R    S <NA>    S   S    S    S    S    S    S    S <NA> <NA>    S #>      SXT  NIT  FOS  LNZ  CIP  MFX VAN  TEC  TCY  TGC  DOX ERY CLI AZM IPM  MEM #>   1:   S <NA> <NA>    R <NA> <NA>   R    R <NA> <NA> <NA>   R   R   R   S <NA> #>   2:   S <NA> <NA>    R <NA> <NA>   R    R <NA> <NA> <NA>   R   R   R   S <NA> #>   3:   S    R <NA>    R    S <NA>   R    R    R    R    R   R   R   R   S <NA> #>   4:   S    R <NA>    R    S <NA>   R    R    R    R    R   R   R   R   S <NA> #>   5:   S    R <NA>    R    S <NA>   R    R    R    R    R   R   R   R   S <NA> #>  ---                                                                           #> 905:   S    S <NA>    R    S <NA>   R    R <NA> <NA> <NA>   R   R   R   S    S #> 906:   S    S <NA>    R    S <NA>   R    R <NA> <NA> <NA>   R   R   R   S    S #> 907:   S <NA> <NA> <NA>    S <NA>   S <NA> <NA> <NA> <NA>   S   S   S   S    S #> 908:   R    R <NA>    R    R    R   R    R <NA> <NA> <NA>   R   R   R   S    S #> 909:   S    S <NA>    R    S <NA>   R    R <NA> <NA> <NA>   R   R   R   S    S #>       MTR  CHL  COL  MUP  RIF #>   1: <NA> <NA> <NA> <NA>    R #>   2: <NA> <NA> <NA> <NA>    R #>   3: <NA> <NA>    R <NA>    R #>   4: <NA> <NA>    R <NA>    R #>   5: <NA> <NA>    R <NA>    R #>  ---                          #> 905: <NA> <NA> <NA> <NA>    R #> 906: <NA> <NA> <NA> <NA>    R #> 907: <NA> <NA>    R <NA> <NA> #> 908: <NA> <NA>    S <NA>    R #> 909: <NA> <NA>    S <NA>    R 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 #>   1:   R <NA> <NA> <NA>   I <NA> <NA> #>   2:   R <NA> <NA> <NA>   I <NA> <NA> #>   3:   R <NA> <NA> <NA>   I <NA> <NA> #>   4:   R <NA> <NA> <NA>   I <NA> <NA> #>   5:   R <NA> <NA>    R   R    R <NA> #>  ---                                  #> 905:   R <NA> <NA>    S   S    S    S #> 906:   R <NA> <NA>    S   S    S    S #> 907:   R    S    S <NA>   S <NA> <NA> #> 908:   R <NA> <NA>    R   S    R    S #> 909:   R <NA> <NA>    R   S    R    S # }"},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Sets with 603 Antimicrobial Drugs — antibiotics","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"Two data sets containing antibiotics/antimycotics antivirals. Use .ab() one ab_* functions retrieve values antibiotics data set. Three identifiers included data set: antibiotic ID (ab, primarily used package) defined WHONET/EARS-Net, ATC code (atc) defined , Compound ID (cid) found PubChem. properties data set derived one codes. Note drugs multiple ATC codes.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"","code":"antibiotics  antivirals"},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"object class tbl_df (inherits tbl, data.frame) 120 rows 11 columns.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"for-the-antibiotics-data-set-a-tibble-with-observations-and-variables-","dir":"Reference","previous_headings":"","what":"For the antibiotics data set: a tibble with 483 observations and 14 variables:","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"ab Antibiotic ID used package (AMC), using official EARS-Net (European Antimicrobial Resistance Surveillance Network) codes available. unique identifier. cid Compound ID found PubChem. unique identifier. name Official name used WHONET/EARS-Net . unique identifier. group short concise group name, based WHONET WHOCC definitions atc ATC codes (Anatomical Therapeutic Chemical) defined WHOCC, like J01CR02 atc_group1 Official pharmacological subgroup (3rd level ATC code) defined WHOCC, like \"Macrolides, lincosamides streptogramins\" atc_group2 Official chemical subgroup (4th level ATC code) defined WHOCC, like \"Macrolides\" abbr List abbreviations used many countries, also antibiotic susceptibility testing (AST) synonyms Synonyms (often trade names) drug, found PubChem based compound ID oral_ddd Defined Daily Dose (DDD), oral treatment, currently available 174 drugs oral_units Units oral_ddd iv_ddd Defined Daily Dose (DDD), parenteral (intravenous) treatment, currently available 146 drugs iv_units Units iv_ddd loinc codes associated name antimicrobial drug Logical Observation Identifiers Names Codes (LOINC), Version 2.76 (18 September, 2023). Use ab_loinc() retrieve quickly, see ab_property().","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"for-the-antivirals-data-set-a-tibble-with-observations-and-variables-","dir":"Reference","previous_headings":"","what":"For the antivirals data set: a tibble with 120 observations and 11 variables:","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"av Antiviral ID used package (ACI), using official EARS-Net (European Antimicrobial Resistance Surveillance Network) codes available. unique identifier. Combinations codes contain + indicate , ATA+COBI atazanavir/cobicistat. name Official name used WHONET/EARS-Net . unique identifier. atc ATC codes (Anatomical Therapeutic Chemical) defined WHOCC cid Compound ID found PubChem. unique identifier. atc_group Official pharmacological subgroup (3rd level ATC code) defined WHOCC synonyms Synonyms (often trade names) drug, found PubChem based compound ID oral_ddd Defined Daily Dose (DDD), oral treatment oral_units Units oral_ddd iv_ddd Defined Daily Dose (DDD), parenteral treatment iv_units Units iv_ddd loinc codes associated name antiviral drug Logical Observation Identifiers Names Codes (LOINC), Version 2.76 (18 September, 2023). Use av_loinc() retrieve quickly, see av_property().","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"World Health Organization () Collaborating Centre Drug Statistics Methodology (WHOCC): https://www.whocc./atc_ddd_index/ Logical Observation Identifiers Names Codes (LOINC), Version 2.76 (18 September, 2023). Accessed https://loinc.org October 19th, 2023. European Commission Public Health PHARMACEUTICALS - COMMUNITY REGISTER: https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"Properties based ATC code available ATC available. properties : atc_group1, atc_group2, oral_ddd, oral_units, iv_ddd iv_units. Synonyms (.e. trade names) derived PubChem Compound ID (column cid) consequently available CID available.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"direct-download","dir":"Reference","previous_headings":"","what":"Direct download","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"Like data sets package, data sets publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"whocc","dir":"Reference","previous_headings":"","what":"WHOCC","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"package contains ~550 antibiotic, antimycotic antiviral drugs Anatomical Therapeutic Chemical (ATC) codes, ATC groups Defined Daily Dose (DDD) World Health Organization Collaborating Centre Drug Statistics Methodology (WHOCC, https://www.whocc.) Pharmaceuticals Community Register European Commission (https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm). become gold standard international drug utilisation monitoring research. WHOCC located Oslo Norwegian Institute Public Health funded Norwegian government. European Commission executive European Union promotes general interest. NOTE: WHOCC copyright allow use commercial purposes, unlike info package. See https://www.whocc./copyright_disclaimer/.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"","code":"antibiotics #> # A tibble: 483 × 14 #>    ab        cid name   group atc   atc_group1 atc_group2 abbreviations synonyms #>    <ab>    <dbl> <chr>  <chr> <lis> <chr>      <chr>      <list>        <named > #>  1 AMA      4649 4-ami… Anti… <chr> Drugs for… Aminosali… <chr [1]>     <chr>    #>  2 ACM   6450012 Acety… Macr… <chr> NA         NA         <chr [1]>     <chr>    #>  3 ASP  49787020 Acety… Macr… <chr> NA         NA         <chr [1]>     <chr>    #>  4 ALS      8954 Aldes… Othe… <chr> Drugs for… Drugs for… <chr [1]>     <chr>    #>  5 AMK     37768 Amika… Amin… <chr> Aminoglyc… Other ami… <chr [5]>     <chr>    #>  6 AKF        NA Amika… Amin… <chr> NA         NA         <chr [1]>     <chr>    #>  7 AMX     33613 Amoxi… Beta… <chr> Beta-lact… Penicilli… <chr [3]>     <chr>    #>  8 AMC  23665637 Amoxi… Beta… <chr> Beta-lact… Combinati… <chr [5]>     <chr>    #>  9 AXS    465441 Amoxi… Beta… <chr> NA         NA         <chr [1]>     <chr>    #> 10 AMB   5280965 Ampho… Anti… <chr> Antimycot… Antibioti… <chr [3]>     <chr>    #> # ℹ 473 more rows #> # ℹ 5 more variables: oral_ddd <dbl>, oral_units <chr>, iv_ddd <dbl>, #> #   iv_units <chr>, loinc <list> antivirals #> # A tibble: 120 × 11 #>    av       name      atc      cid atc_group synonyms oral_ddd oral_units iv_ddd #>    <av>     <chr>     <chr>  <dbl> <chr>     <list>      <dbl> <chr>       <dbl> #>  1 ABA      Abacavir  J05A… 4.41e5 Nucleosi… <chr>         0.6 g              NA #>  2 ACI      Aciclovir J05A… 1.35e8 Nucleosi… <chr>         4   g               4 #>  3 ADD      Adefovir… J05A… 6.09e4 Nucleosi… <chr>        10   mg             NA #>  4 AME      Amenamev… J05A… 1.14e7 Other an… <chr>         0.4 g              NA #>  5 AMP      Amprenav… J05A… 6.50e4 Protease… <chr>         1.2 g              NA #>  6 ASU      Asunapre… J05A… 1.61e7 Antivira… <chr>         0.2 g              NA #>  7 ATA      Atazanav… J05A… 1.48e5 Protease… <chr>         0.3 g              NA #>  8 ATA+COBI Atazanav… J05A… 8.66e7 Antivira… <chr>        NA   NA             NA #>  9 ATA+RIT  Atazanav… J05A… 2.51e7 Antivira… <chr>         0.3 g              NA #> 10 BAM      Baloxavi… J05A… 1.24e8 Other an… <chr>        40   mg             NA #> # ℹ 110 more rows #> # ℹ 2 more variables: iv_units <chr>, loinc <list>"},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":null,"dir":"Reference","previous_headings":"","what":"Transform Input to an Antibiotic ID — as.ab","title":"Transform Input to an Antibiotic ID — as.ab","text":"Use function determine antibiotic drug code one antibiotics. data set antibiotics searched abbreviations, official names synonyms (brand names).","code":""},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Transform Input to an Antibiotic ID — as.ab","text":"","code":"as.ab(x, flag_multiple_results = TRUE, info = interactive(), ...)  is.ab(x)"},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Transform Input to an Antibiotic ID — as.ab","text":"x character vector determine antibiotic ID flag_multiple_results logical indicate whether note printed console probably one antibiotic drug code name can retrieved single input value. info logical indicate whether progress bar printed - default TRUE interactive mode ... arguments passed internal functions","code":""},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Transform Input to an Antibiotic ID — as.ab","text":"character  vector additional class ab","code":""},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Transform Input to an Antibiotic ID — as.ab","text":"entries antibiotics data set three different identifiers: human readable EARS-Net code (column ab, used ECDC WHONET), ATC code (column atc, used ), CID code (column cid, Compound ID, used PubChem). data set contains 5,000 official brand names many different countries, found PubChem. drugs contain multiple ATC codes. properties searched user input. .ab() can correct different forms misspelling: Wrong spelling drug names (\"tobramicin\" \"gentamycin\"), corrects audible similarities f/ph, x/ks, c/z/s, t/th, etc. many vowels consonants Switching two characters (\"mreopenem\", often case clinical data, doctors typed fast) Digitalised paper records, leaving artefacts like 0/o/O (zero O's), B/8, n/r, etc. Use ab_* functions get properties based returned antibiotic ID, see Examples. Note: .ab() ab_* functions may use long regular expression match brand names antimicrobial drugs. may fail systems. can add manual codes considered .ab() ab_* functions, see add_custom_antimicrobials().","code":""},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Transform Input to an Antibiotic ID — as.ab","text":"World Health Organization () Collaborating Centre Drug Statistics Methodology: https://www.whocc./atc_ddd_index/ European Commission Public Health PHARMACEUTICALS - COMMUNITY REGISTER: https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm","code":""},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":"whocc","dir":"Reference","previous_headings":"","what":"WHOCC","title":"Transform Input to an Antibiotic ID — as.ab","text":"package contains ~550 antibiotic, antimycotic antiviral drugs Anatomical Therapeutic Chemical (ATC) codes, ATC groups Defined Daily Dose (DDD) World Health Organization Collaborating Centre Drug Statistics Methodology (WHOCC, https://www.whocc.) Pharmaceuticals Community Register European Commission (https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm). become gold standard international drug utilisation monitoring research. WHOCC located Oslo Norwegian Institute Public Health funded Norwegian government. European Commission executive European Union promotes general interest. NOTE: WHOCC copyright allow use commercial purposes, unlike info package. See https://www.whocc./copyright_disclaimer/.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Transform Input to an Antibiotic ID — as.ab","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Transform Input to an Antibiotic ID — as.ab","text":"","code":"# these examples all return \"ERY\", the ID of erythromycin: as.ab(\"J01FA01\") #> Class 'ab' #> [1] ERY as.ab(\"J 01 FA 01\") #> Class 'ab' #> [1] ERY as.ab(\"Erythromycin\") #> Class 'ab' #> [1] ERY as.ab(\"eryt\") #> Class 'ab' #> [1] ERY as.ab(\"   eryt 123\") #> Class 'ab' #> [1] ERY as.ab(\"ERYT\") #> Class 'ab' #> [1] ERY as.ab(\"ERY\") #> Class 'ab' #> [1] ERY as.ab(\"eritromicine\") # spelled wrong, yet works #> Class 'ab' #> [1] ERY as.ab(\"Erythrocin\") # trade name #> Class 'ab' #> [1] ERY as.ab(\"Romycin\") # trade name #> Class 'ab' #> [1] ERY  # spelling from different languages and dyslexia are no problem ab_atc(\"ceftriaxon\") #> [1] \"J01DD04\" ab_atc(\"cephtriaxone\") # small spelling error #> [1] \"J01DD04\" ab_atc(\"cephthriaxone\") # or a bit more severe #> [1] \"J01DD04\" ab_atc(\"seephthriaaksone\") # and even this works #> [1] \"J01DD04\"  # use ab_* functions to get a specific properties (see ?ab_property); # they use as.ab() internally: ab_name(\"J01FA01\") #> [1] \"Erythromycin\" ab_name(\"eryt\") #> [1] \"Erythromycin\"  # \\donttest{ if (require(\"dplyr\")) {   # you can quickly rename 'sir' columns using set_ab_names() with dplyr:   example_isolates %>%     set_ab_names(where(is.sir), property = \"atc\") } #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           J01CE01 J01CF04 J01CF05 #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir>   <sir>   <sir>   #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R       NA      NA      #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R       NA      NA      #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R       NA      R       #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R       NA      R       #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R       NA      R       #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R       NA      R       #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R       NA      S       #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R       NA      S       #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R       NA      R       #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R       NA      S       #> # ℹ 1,990 more rows #> # ℹ 37 more variables: J01CA04 <sir>, J01CR02 <sir>, J01CA01 <sir>, #> #   J01CR05 <sir>, J01DB04 <sir>, J01DE01 <sir>, J01DC02 <sir>, J01DC01 <sir>, #> #   J01DD01 <sir>, J01DD02 <sir>, J01DD04 <sir>, J01GB03 <sir>, J01GB01 <sir>, #> #   J01GB06 <sir>, J01GB04 <sir>, J01EA01 <sir>, J01EE01 <sir>, J01XE01 <sir>, #> #   J01XX01 <sir>, J01XX08 <sir>, J01MA02 <sir>, J01MA14 <sir>, J01XA01 <sir>, #> #   J01XA02 <sir>, J01AA07 <sir>, J01AA12 <sir>, J01AA02 <sir>, … # }"},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":null,"dir":"Reference","previous_headings":"","what":"Transform Input to an Antiviral Drug ID — as.av","title":"Transform Input to an Antiviral Drug ID — as.av","text":"Use function determine antiviral drug code one antiviral drugs. data set antivirals searched abbreviations, official names synonyms (brand names).","code":""},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Transform Input to an Antiviral Drug ID — as.av","text":"","code":"as.av(x, flag_multiple_results = TRUE, info = interactive(), ...)  is.av(x)"},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Transform Input to an Antiviral Drug ID — as.av","text":"x character vector determine antiviral drug ID flag_multiple_results logical indicate whether note printed console probably one antiviral drug code name can retrieved single input value. info logical indicate whether progress bar printed - default TRUE interactive mode ... arguments passed internal functions","code":""},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Transform Input to an Antiviral Drug ID — as.av","text":"character  vector additional class ab","code":""},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Transform Input to an Antiviral Drug ID — as.av","text":"entries antivirals data set three different identifiers: human readable EARS-Net code (column ab, used ECDC WHONET), ATC code (column atc, used ), CID code (column cid, Compound ID, used PubChem). data set contains 5,000 official brand names many different countries, found PubChem. drugs contain multiple ATC codes. properties searched user input. .av() can correct different forms misspelling: Wrong spelling drug names (\"acyclovir\"), corrects audible similarities f/ph, x/ks, c/z/s, t/th, etc. many vowels consonants Switching two characters (\"aycclovir\", often case clinical data, doctors typed fast) Digitalised paper records, leaving artefacts like 0/o/O (zero O's), B/8, n/r, etc. Use av_* functions get properties based returned antiviral drug ID, see Examples. Note: .av() av_* functions may use long regular expression match brand names antimicrobial drugs. may fail systems.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Transform Input to an Antiviral Drug ID — as.av","text":"World Health Organization () Collaborating Centre Drug Statistics Methodology: https://www.whocc./atc_ddd_index/ European Commission Public Health PHARMACEUTICALS - COMMUNITY REGISTER: https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm","code":""},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":"whocc","dir":"Reference","previous_headings":"","what":"WHOCC","title":"Transform Input to an Antiviral Drug ID — as.av","text":"package contains ~550 antibiotic, antimycotic antiviral drugs Anatomical Therapeutic Chemical (ATC) codes, ATC groups Defined Daily Dose (DDD) World Health Organization Collaborating Centre Drug Statistics Methodology (WHOCC, https://www.whocc.) Pharmaceuticals Community Register European Commission (https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm). become gold standard international drug utilisation monitoring research. WHOCC located Oslo Norwegian Institute Public Health funded Norwegian government. European Commission executive European Union promotes general interest. NOTE: WHOCC copyright allow use commercial purposes, unlike info package. See https://www.whocc./copyright_disclaimer/.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Transform Input to an Antiviral Drug ID — as.av","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Transform Input to an Antiviral Drug ID — as.av","text":"","code":"# these examples all return \"ACI\", the ID of aciclovir: as.av(\"J05AB01\") #> Class 'av' #> [1] ACI as.av(\"J 05 AB 01\") #> Class 'av' #> [1] ACI as.av(\"Aciclovir\") #> Class 'av' #> [1] ACI as.av(\"aciclo\") #> Class 'av' #> [1] ACI as.av(\"   aciclo 123\") #> Class 'av' #> [1] ACI as.av(\"ACICL\") #> Class 'av' #> [1] ACI as.av(\"ACI\") #> Class 'av' #> [1] ACI as.av(\"Virorax\") # trade name #> Class 'av' #> [1] ACI as.av(\"Zovirax\") # trade name #> Class 'av' #> [1] ACI  as.av(\"acyklofir\") # severe spelling error, yet works #> Class 'av' #> [1] ACI  # use av_* functions to get a specific properties (see ?av_property); # they use as.av() internally: av_name(\"J05AB01\") #> [1] \"Aciclovir\" av_name(\"acicl\") #> [1] \"Aciclovir\""},{"path":"https://msberends.github.io/AMR/reference/as.disk.html","id":null,"dir":"Reference","previous_headings":"","what":"Transform Input to Disk Diffusion Diameters — as.disk","title":"Transform Input to Disk Diffusion Diameters — as.disk","text":"transforms vector new class disk, disk diffusion growth zone size (around antibiotic disk) millimetres 6 50.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.disk.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Transform Input to Disk Diffusion Diameters — as.disk","text":"","code":"as.disk(x, na.rm = FALSE)  NA_disk_  is.disk(x)"},{"path":"https://msberends.github.io/AMR/reference/as.disk.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Transform Input to Disk Diffusion Diameters — as.disk","text":"object class disk (inherits integer) length 1.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.disk.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Transform Input to Disk Diffusion Diameters — as.disk","text":"x vector na.rm logical indicating whether missing values removed","code":""},{"path":"https://msberends.github.io/AMR/reference/as.disk.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Transform Input to Disk Diffusion Diameters — as.disk","text":"integer additional class disk","code":""},{"path":"https://msberends.github.io/AMR/reference/as.disk.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Transform Input to Disk Diffusion Diameters — as.disk","text":"Interpret disk values SIR values .sir(). supports guidelines EUCAST CLSI. Disk diffusion growth zone sizes must 6 50 millimetres. Values higher 50 lower 100 maximised 50. others input values outside 6-50 range return NA. NA_disk_ missing value new disk class.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/as.disk.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Transform Input to Disk Diffusion Diameters — as.disk","text":"","code":"# transform existing disk zones to the `disk` class (using base R) df <- data.frame(   microorganism = \"Escherichia coli\",   AMP = 20,   CIP = 14,   GEN = 18,   TOB = 16 ) df[, 2:5] <- lapply(df[, 2:5], as.disk) str(df) #> 'data.frame':\t1 obs. of  5 variables: #>  $ microorganism: chr \"Escherichia coli\" #>  $ AMP          : 'disk' int 20 #>  $ CIP          : 'disk' int 14 #>  $ GEN          : 'disk' int 18 #>  $ TOB          : 'disk' int 16  # \\donttest{ # transforming is easier with dplyr: if (require(\"dplyr\")) {   df %>% mutate(across(AMP:TOB, as.disk)) } #>      microorganism AMP CIP GEN TOB #> 1 Escherichia coli  20  14  18  16 # }  # interpret disk values, see ?as.sir as.sir(   x = as.disk(18),   mo = \"Strep pneu\", # `mo` will be coerced with as.mo()   ab = \"ampicillin\", # and `ab` with as.ab()   guideline = \"EUCAST\" ) #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. Note that some #>   microorganisms might not have breakpoints for each antimicrobial drug in #>   EUCAST 2023. #> Interpreting disk diffusion zones: 'ampicillin' (AMP), EUCAST 2023... #>  OK  #> Class 'sir' #> [1] R  # interpret whole data set, pretend to be all from urinary tract infections: as.sir(df, uti = TRUE) #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. Note that some #>   microorganisms might not have breakpoints for each antimicrobial drug in #>   EUCAST 2023. #> Interpreting disk diffusion zones: column 'AMP' (ampicillin), EUCAST #> 2023... #>  OK  #> Interpreting disk diffusion zones: column 'CIP' (ciprofloxacin), EUCAST #> 2023... #>  OK  #> Interpreting disk diffusion zones: column 'GEN' (gentamicin), EUCAST #> 2023... #>  OK  #> Interpreting disk diffusion zones: column 'TOB' (tobramycin), EUCAST #> 2023... #>  OK  #>      microorganism AMP  CIP GEN TOB #> 1 Escherichia coli   S <NA>   S   S"},{"path":"https://msberends.github.io/AMR/reference/as.mic.html","id":null,"dir":"Reference","previous_headings":"","what":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"transforms vectors new class mic, treats input decimal numbers, maintaining operators (\">=\") allowing valid MIC values known field (medical) microbiology.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mic.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"","code":"as.mic(x, na.rm = FALSE, keep_operators = \"all\")  NA_mic_  is.mic(x)  # S3 method for mic droplevels(x, as.mic = FALSE, ...)"},{"path":"https://msberends.github.io/AMR/reference/as.mic.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"x character numeric vector na.rm logical indicating whether missing values removed keep_operators character specifying handle operators (> <=) input. Accepts one three values: \"\" (TRUE) keep operators, \"none\" (FALSE) remove operators, \"edges\" keep operators ends range. .mic logical indicate whether mic class kept - default FALSE ... arguments passed methods","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mic.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"Ordered factor additional class mic, mathematical operations acts decimal numbers. Bare mind outcome mathematical operation MICs return numeric value.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mic.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"interpret MIC values SIR values, use .sir() MIC values. supports guidelines EUCAST (2011-2023) CLSI (2011-2023). class MIC values quite special data type: formally ordered factor valid MIC values factor levels (make sure valid MIC values retained), mathematical operation acts decimal numbers:   makes possible maintain operators often come MIC values, \">=\" \"<=\", even filtering using numeric values data analysis, e.g.:   following generic functions implemented MIC class: !, !=, %%, %/%, &, *, +, -, /, <, <=, ==, >, >=, ^, |, abs(), acos(), acosh(), (), (), asin(), asinh(), atan(), atanh(), ceiling(), cos(), cosh(), cospi(), cummax(), cummin(), cumprod(), cumsum(), digamma(), exp(), expm1(), floor(), gamma(), lgamma(), log(), log1p(), log2(), log10(), max(), mean(), min(), prod(), range(), round(), sign(), signif(), sin(), sinh(), sinpi(), sqrt(), sum(), tan(), tanh(), tanpi(), trigamma() trunc(). functions stats package also implemented: median(), quantile(), mad(), IQR(), fivenum(). Also, boxplot.stats() supported. Since sd() var() non-generic functions, extended. Use mad() alternative, use e.g. sd(.numeric(x)) x vector MIC values. Using .double() .numeric() MIC values remove operators return numeric vector. use .integer() MIC values R convention factors, return index factor levels (often useless regular users). Use droplevels() drop unused levels. default, return plain factor. Use droplevels(..., .mic = TRUE) maintain mic class. NA_mic_ missing value new mic class, analogous e.g. base R's NA_character_.","code":"x <- random_mic(10) x #> Class 'mic' #>  [1] 16     1      8      8      64     >=128  0.0625 32     32     16  is.factor(x) #> [1] TRUE  x[1] * 2 #> [1] 32  median(x) #> [1] 26 x[x > 4] #> Class 'mic' #> [1] 16    8     8     64    >=128 32    32    16  df <- data.frame(x, hospital = \"A\") subset(df, x > 4) # or with dplyr: df %>% filter(x > 4) #>        x hospital #> 1     16        A #> 5     64        A #> 6  >=128        A #> 8     32        A #> 9     32        A #> 10    16        A"},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/as.mic.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"","code":"mic_data <- as.mic(c(\">=32\", \"1.0\", \"1\", \"1.00\", 8, \"<=0.128\", \"8\", \"16\", \"16\")) mic_data #> Class 'mic' #> [1] >=32    1       1       1       8       <=0.128 8       16      16      is.mic(mic_data) #> [1] TRUE  # this can also coerce combined MIC/SIR values: as.mic(\"<=0.002; S\") #> Class 'mic' #> [1] <=0.002  # mathematical processing treats MICs as numeric values fivenum(mic_data) #> [1]  0.128  1.000  8.000 16.000 32.000 quantile(mic_data) #>     0%    25%    50%    75%   100%  #>  0.128  1.000  8.000 16.000 32.000  all(mic_data < 512) #> [1] TRUE  # interpret MIC values as.sir(   x = as.mic(2),   mo = as.mo(\"Streptococcus pneumoniae\"),   ab = \"AMX\",   guideline = \"EUCAST\" ) #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. Note that some #>   microorganisms might not have breakpoints for each antimicrobial drug in #>   EUCAST 2023. #> Interpreting MIC values: 'AMX' (amoxicillin), EUCAST 2023... #>  NOTE  #>   • Multiple breakpoints available for amoxicillin (AMX) in Streptococcus #>      pneumoniae - assuming body site 'Meningitis'. #> Class 'sir' #> [1] R as.sir(   x = as.mic(c(0.01, 2, 4, 8)),   mo = as.mo(\"Streptococcus pneumoniae\"),   ab = \"AMX\",   guideline = \"EUCAST\" ) #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. Note that some #>   microorganisms might not have breakpoints for each antimicrobial drug in #>   EUCAST 2023. #> Interpreting MIC values: 'AMX' (amoxicillin), EUCAST 2023... #>  NOTE  #>   • Multiple breakpoints available for amoxicillin (AMX) in Streptococcus #>      pneumoniae - assuming body site 'Meningitis'. #> Class 'sir' #> [1] S R R R  # plot MIC values, see ?plot plot(mic_data)  plot(mic_data, mo = \"E. coli\", ab = \"cipro\")   if (require(\"ggplot2\")) {   autoplot(mic_data, mo = \"E. coli\", ab = \"cipro\") }  if (require(\"ggplot2\")) {   autoplot(mic_data, mo = \"E. coli\", ab = \"cipro\", language = \"nl\") # Dutch }"},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":null,"dir":"Reference","previous_headings":"","what":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"Use function get valid microorganism code (mo) based arbitrary user input. Determination done using intelligent rules complete taxonomic tree kingdoms Animalia, Archaea, Bacteria, Protozoa, microbial species kingdom Fungi (see Source). input can almost anything: full name (like \"Staphylococcus aureus\"), abbreviated name (\"S. aureus\"), abbreviation known field (\"MRSA\"), just genus. See Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"","code":"as.mo(   x,   Becker = FALSE,   Lancefield = FALSE,   minimum_matching_score = NULL,   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   reference_df = get_mo_source(),   ignore_pattern = getOption(\"AMR_ignore_pattern\", NULL),   cleaning_regex = getOption(\"AMR_cleaning_regex\", mo_cleaning_regex()),   language = get_AMR_locale(),   info = interactive(),   ... )  is.mo(x)  mo_uncertainties()  mo_renamed()  mo_failures()  mo_reset_session()  mo_cleaning_regex()"},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"x character vector data.frame one two columns Becker logical indicate whether staphylococci categorised coagulase-negative staphylococci (\"CoNS\") coagulase-positive staphylococci (\"CoPS\") instead species, according Karsten Becker et al. (see Source). Please see Details full list staphylococcal species converted. excludes Staphylococcus aureus default, use Becker = \"\" also categorise S. aureus \"CoPS\". Lancefield logical indicate whether beta-haemolytic Streptococcus categorised Lancefield groups instead species, according Rebecca C. Lancefield (see Source). streptococci categorised first group, e.g. Streptococcus dysgalactiae group C, although officially also categorised groups G L. . Please see Details full list streptococcal species converted. excludes enterococci default (group D), use Lancefield = \"\" also categorise enterococci group D. minimum_matching_score numeric value set lower limit MO matching score. left blank, determined automatically based character length x, taxonomic kingdom human pathogenicity. keep_synonyms logical indicate old, previously valid taxonomic names must preserved corrected currently accepted names. default FALSE, return note old taxonomic names processed. default can set package option AMR_keep_synonyms, .e. options(AMR_keep_synonyms = TRUE) options(AMR_keep_synonyms = FALSE). reference_df data.frame used extra reference translating x valid mo. See set_mo_source() get_mo_source() automate usage codes (e.g. used analysis organisation). ignore_pattern Perl-compatible regular expression (case-insensitive) matches x must return NA. can convenient exclude known non-relevant input can also set package option AMR_ignore_pattern, e.g. options(AMR_ignore_pattern = \"(reported|contaminated flora)\"). cleaning_regex Perl-compatible regular expression (case-insensitive) clean input x. Every matched part x removed. default, outcome mo_cleaning_regex(), removes texts brackets texts \"species\" \"serovar\". default can set package option AMR_cleaning_regex. language language translate text like \"growth\", defaults system language (see get_AMR_locale()) info logical indicate progress bar printed 25 items coerced - default TRUE interactive mode ... arguments passed functions","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"character  vector additional class mo","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"microorganism (MO) code package (class: mo) human readable typically looks like examples:   Values coerced considered 'unknown' returned MO code UNKNOWN warning. Use mo_* functions get properties based returned code, see Examples. .mo() function uses novel matching score algorithm (see Matching Score Microorganisms ) match input available microbial taxonomy package. lead effect e.g. \"E. coli\" (microorganism highly prevalent humans) return microbial ID Escherichia coli Entamoeba coli (microorganism less prevalent humans), although latter alphabetically come first. Becker = TRUE, following 85 staphylococci converted coagulase-negative group: S. argensis, S. arlettae, S. auricularis, S. borealis, S. caeli, S. caledonicus, S. canis, S. capitis, S. capitis capitis, S. capitis urealyticus, S. capitis ureolyticus, S. caprae, S. carnosus, S. carnosus carnosus, S. carnosus utilis, S. casei, S. caseolyticus, S. chromogenes, S. cohnii, S. cohnii cohnii, S. cohnii urealyticum, S. cohnii urealyticus, S. condimenti, S. croceilyticus, S. debuckii, S. devriesei, S. durrellii, S. edaphicus, S. epidermidis, S. equorum, S. equorum equorum, S. equorum linens, S. felis, S. fleurettii, S. gallinarum, S. haemolyticus, S. hominis, S. hominis hominis, S. hominis novobiosepticus, S. jettensis, S. kloosii, S. lentus, S. lloydii, S. lugdunensis, S. massiliensis, S. microti, S. muscae, S. nepalensis, S. pasteuri, S. petrasii, S. petrasii croceilyticus, S. petrasii jettensis, S. petrasii petrasii, S. petrasii pragensis, S. pettenkoferi, S. piscifermentans, S. pragensis, S. pseudoxylosus, S. pulvereri, S. ratti, S. rostri, S. saccharolyticus, S. saprophyticus, S. saprophyticus bovis, S. saprophyticus saprophyticus, S. schleiferi, S. schleiferi schleiferi, S. sciuri, S. sciuri carnaticus, S. sciuri lentus, S. sciuri rodentium, S. sciuri sciuri, S. simulans, S. stepanovicii, S. succinus, S. succinus casei, S. succinus succinus, S. taiwanensis, S. urealyticus, S. ureilyticus, S. veratri, S. vitulinus, S. vitulus, S. warneri, S. xylosus. following 16 staphylococci converted coagulase-positive group: S. agnetis, S. argenteus, S. coagulans, S. cornubiensis, S. delphini, S. hyicus, S. hyicus chromogenes, S. hyicus hyicus, S. intermedius, S. lutrae, S. pseudintermedius, S. roterodami, S. schleiferi coagulans, S. schweitzeri, S. simiae, S. singaporensis. Lancefield = TRUE, following streptococci converted corresponding Lancefield group: S. agalactiae (Group B), S. anginosus anginosus (Group F), S. anginosus whileyi (Group F), S. anginosus (Group F), S. canis (Group G), S. dysgalactiae dysgalactiae (Group C), S. dysgalactiae equisimilis (Group C), S. dysgalactiae (Group C), S. equi equi (Group C), S. equi ruminatorum (Group C), S. equi zooepidemicus (Group C), S. equi (Group C), S. pyogenes (Group ), S. salivarius salivarius (Group K), S. salivarius thermophilus (Group K), S. salivarius (Group K), S. sanguinis (Group H).","code":"Code               Full name   ---------------    --------------------------------------   B_KLBSL            Klebsiella   B_KLBSL_PNMN       Klebsiella pneumoniae   B_KLBSL_PNMN_RHNS  Klebsiella pneumoniae rhinoscleromatis   |   |    |    |   |   |    |    |   |   |    |    \\---> subspecies, a 3-5 letter acronym   |   |    \\----> species, a 3-6 letter acronym   |   \\----> genus, a 4-8 letter acronym   \\----> taxonomic kingdom: A (Archaea), AN (Animalia), B (Bacteria),                             F (Fungi), PL (Plantae), P (Protozoa)"},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"coping-with-uncertain-results","dir":"Reference","previous_headings":"","what":"Coping with Uncertain Results","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"Results non-exact taxonomic input based matching score. lowest allowed score can set minimum_matching_score argument. default determined based character length input, taxonomic kingdom human pathogenicity taxonomic outcome. values matched uncertainty, message shown suggest user evaluate results mo_uncertainties(), returns data.frame specifications. increase quality matching, cleaning_regex argument can used clean input (.e., x). must regular expression matches parts input removed input matched available microbial taxonomy. matched Perl-compatible case-insensitive. default value cleaning_regex outcome helper function mo_cleaning_regex(). three helper functions can run using .mo() function: Use mo_uncertainties() get data.frame prints pretty format taxonomic names guessed. output contains matching score matches (see Matching Score Microorganisms ). Use mo_failures() get character vector values coerced valid value. Use mo_renamed() get data.frame values coerced based old, previously accepted taxonomic names.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"microbial-prevalence-of-pathogens-in-humans","dir":"Reference","previous_headings":"","what":"Microbial Prevalence of Pathogens in Humans","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"coercion rules consider prevalence microorganisms humans, available prevalence column microorganisms data set. grouping human pathogenic prevalence explained section Matching Score Microorganisms .","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"Berends MS et al. (2022). AMR: R Package Working Antimicrobial Resistance Data. Journal Statistical Software, 104(3), 1-31; doi:10.18637/jss.v104.i03 Becker K et al. (2014). Coagulase-Negative Staphylococci. Clin Microbiol Rev. 27(4): 870-926; doi:10.1128/CMR.00109-13 Becker K et al. (2019). Implications identifying recently defined members S. aureus complex, S. argenteus S. schweitzeri: position paper members ESCMID Study Group staphylococci Staphylococcal Diseases (ESGS). Clin Microbiol Infect; doi:10.1016/j.cmi.2019.02.028 Becker K et al. (2020). Emergence coagulase-negative staphylococci. Expert Rev Anti Infect Ther. 18(4):349-366; doi:10.1080/14787210.2020.1730813 Lancefield RC (1933). serological differentiation human groups hemolytic streptococci. J Exp Med. 57(4): 571-95; doi:10.1084/jem.57.4.571 Berends MS et al. (2022). Trends Occurrence Phenotypic Resistance Coagulase-Negative Staphylococci (CoNS) Found Human Blood Northern Netherlands 2013 2019/ Micro.rganisms 10(9), 1801; doi:10.3390/microorganisms10091801 Parte, AC et al. (2020). List Prokaryotic names Standing Nomenclature (LPSN) moves DSMZ. International Journal Systematic Evolutionary Microbiology, 70, 5607-5612; doi:10.1099/ijsem.0.004332 . Accessed https://lpsn.dsmz.de December 11th, 2022. GBIF Secretariat (2022). GBIF Backbone Taxonomy. Checklist dataset doi:10.15468/39omei . Accessed https://www.gbif.org December 11th, 2022. 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 May 12th, 2023. Public Health Information Network Vocabulary Access Distribution System (PHIN VADS). US Edition SNOMED CT 1 September 2020. Value Set Name 'Microorganism', OID 2.16.840.1.114222.4.11.1009 (v12). URL: https://phinvads.cdc.gov Bartlett et al. (2022). comprehensive list bacterial pathogens infecting humans Microbiology 168:001269; doi:10.1099/mic.0.001269","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"matching-score-for-microorganisms","dir":"Reference","previous_headings":"","what":"Matching Score for Microorganisms","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"ambiguous user input .mo() mo_* functions, returned results chosen based matching score using mo_matching_score(). matching score \\(m\\), calculated :  : \\(x\\) user input; \\(n\\) taxonomic name (genus, species, subspecies); \\(l_n\\) length \\(n\\); \\(lev\\) Levenshtein distance function (counting insertion 1, deletion substitution 2) needed change \\(x\\) \\(n\\); \\(p_n\\) human pathogenic prevalence group \\(n\\), described ; \\(k_n\\) taxonomic kingdom \\(n\\), set Bacteria = 1, Fungi = 1.25, Protozoa = 1.5, 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.0 microorganisms data set; Putative, taxonomic species fewer three known cases. records prevalence = 1.25 microorganisms data set. Furthermore, genus present established list also prevalence = 1.0 microorganisms data set; genus present putative list prevalence = 1.25 microorganisms data set; species subspecies genus present two aforementioned groups, prevalence = 1.5 microorganisms data set; non-bacterial genus, species subspecies genus present following list, prevalence = 1.25 microorganisms data set: Absidia, Acanthamoeba, Acremonium, Aedes, Alternaria, Amoeba, Ancylostoma, Angiostrongylus, Anisakis, Anopheles, Apophysomyces, Aspergillus, Aureobasidium, Basidiobolus, Beauveria, Blastocystis, Blastomyces, Candida, Capillaria, Chaetomium, Chrysonilia, Cladophialophora, Cladosporium, Conidiobolus, Contracaecum, Cordylobia, Cryptococcus, Curvularia, Demodex, Dermatobia, Dientamoeba, Diphyllobothrium, Dirofilaria, Echinostoma, Entamoeba, Enterobius, Exophiala, Exserohilum, Fasciola, Fonsecaea, Fusarium, Giardia, Haloarcula, Halobacterium, Halococcus, Hendersonula, Heterophyes, Histomonas, Histoplasma, Hymenolepis, Hypomyces, Hysterothylacium, Leishmania, Malassezia, Malbranchea, Metagonimus, Meyerozyma, Microsporidium, Microsporum, Mortierella, Mucor, Mycocentrospora, Necator, Nectria, Ochroconis, Oesophagostomum, Oidiodendron, Opisthorchis, Pediculus, Penicillium, Phlebotomus, Phoma, Pichia, Piedraia, Pithomyces, Pityrosporum, Pneumocystis, Pseudallescheria, Pseudoterranova, Pulex, Rhizomucor, Rhizopus, Rhodotorula, Saccharomyces, Sarcoptes, Scolecobasidium, Scopulariopsis, Scytalidium, Spirometra, Sporobolomyces, Stachybotrys, Strongyloides, Syngamus, Taenia, Talaromyces, Toxocara, Trichinella, Trichobilharzia, Trichoderma, Trichomonas, Trichophyton, Trichosporon, Trichostrongylus, Trichuris, Tritirachium, Trombicula, Trypanosoma, Tunga, Wuchereria; records prevalence = 2.0 microorganisms data set. calculating matching score, characters \\(x\\) \\(n\\) ignored -Z, -z, 0-9, spaces parentheses. matches sorted descending matching score user input values, top match returned. lead effect e.g., \"E. coli\" return microbial ID Escherichia coli (\\(m = 0.688\\), highly prevalent microorganism found humans) Entamoeba coli (\\(m = 0.381\\), less prevalent microorganism humans), although latter alphabetically come first.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"","code":"# \\donttest{ # These examples all return \"B_STPHY_AURS\", the ID of S. aureus: as.mo(c(   \"sau\", # WHONET code   \"stau\",   \"STAU\",   \"staaur\",   \"S. aureus\",   \"S aureus\",   \"Sthafilokkockus aureus\", # handles incorrect spelling   \"Staphylococcus aureus (MRSA)\",   \"MRSA\", # Methicillin Resistant S. aureus   \"VISA\", # Vancomycin Intermediate S. aureus   \"VRSA\", # Vancomycin Resistant S. aureus   115329001 # SNOMED CT code )) #> Class 'mo' #>  [1] B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS #>  [6] B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS #> [11] B_STPHY_AURS B_STPHY_AURS  # Dyslexia is no problem - these all work: as.mo(c(   \"Ureaplasma urealyticum\",   \"Ureaplasma urealyticus\",   \"Ureaplasmium urealytica\",   \"Ureaplazma urealitycium\" )) #> Class 'mo' #> [1] B_URPLS_URLY B_URPLS_URLY B_URPLS_URLY B_URPLS_URLY  # 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- \\(\\)\\[\\]{}]+|([({]|\\[).+([})]|\\])|(^| )(e?spp([^a-z]+|$)|e?ssp([^a-z]+|$)|serogr.?up[a-z]*|e?ss([^a-z]+|$)|e?sp([^a-z]+|$)|var([^a-z]+|$)|serovar[a-z]*|sube?species|biovar[a-z]*|e?species|Ig[ADEGM]|e?subsp|biotype|titer|dummy))   as.mo(\"Streptococcus group A\") #> Class 'mo' #> [1] B_STRPT_GRPA  as.mo(\"S. epidermidis\") # will remain species: B_STPHY_EPDR #> Class 'mo' #> [1] B_STPHY_EPDR as.mo(\"S. epidermidis\", Becker = TRUE) # will not remain species: B_STPHY_CONS #> Class 'mo' #> [1] B_STPHY_CONS  as.mo(\"S. pyogenes\") # will remain species: B_STRPT_PYGN #> Class 'mo' #> [1] B_STRPT_PYGN as.mo(\"S. pyogenes\", Lancefield = TRUE) # will not remain species: B_STRPT_GRPA #> Class 'mo' #> [1] B_STRPT_GRPA  # All mo_* functions use as.mo() internally too (see ?mo_property): mo_genus(\"E. coli\") #> [1] \"Escherichia\" mo_gramstain(\"ESCO\") #> [1] \"Gram-negative\" mo_is_intrinsic_resistant(\"ESCCOL\", ab = \"vanco\") #> ℹ Determining intrinsic resistance based on 'EUCAST Expert Rules' and #>   'EUCAST Intrinsic Resistance and Unusual Phenotypes' v3.3 (2021). This note #>   will be shown once per session. #> [1] TRUE # }"},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":null,"dir":"Reference","previous_headings":"","what":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"Interpret minimum inhibitory concentration (MIC) values disk diffusion diameters according EUCAST CLSI, clean existing SIR values. transforms input new class sir, ordered factor levels S < < R. Currently available breakpoint guidelines EUCAST 2011-2023 CLSI 2011-2023, available breakpoint types \"ECOFF\", \"animal\", \"human\". breakpoints used interpretation publicly available clinical_breakpoints data set.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"","code":"as.sir(x, ...)  NA_sir_  is.sir(x)  is_sir_eligible(x, threshold = 0.05)  # S3 method for mic as.sir(   x,   mo = NULL,   ab = deparse(substitute(x)),   guideline = getOption(\"AMR_guideline\", \"EUCAST\"),   uti = NULL,   conserve_capped_values = FALSE,   add_intrinsic_resistance = FALSE,   reference_data = AMR::clinical_breakpoints,   include_screening = getOption(\"AMR_include_screening\", FALSE),   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\"),   ... )  # S3 method for disk as.sir(   x,   mo = NULL,   ab = deparse(substitute(x)),   guideline = getOption(\"AMR_guideline\", \"EUCAST\"),   uti = NULL,   add_intrinsic_resistance = FALSE,   reference_data = AMR::clinical_breakpoints,   include_screening = getOption(\"AMR_include_screening\", FALSE),   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\"),   ... )  # S3 method for data.frame as.sir(   x,   ...,   col_mo = NULL,   guideline = getOption(\"AMR_guideline\", \"EUCAST\"),   uti = NULL,   conserve_capped_values = FALSE,   add_intrinsic_resistance = FALSE,   reference_data = AMR::clinical_breakpoints,   include_screening = getOption(\"AMR_include_screening\", FALSE),   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\") )  sir_interpretation_history(clean = FALSE)"},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"object class sir (inherits ordered, factor) length 1.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"interpretations minimum inhibitory concentration (MIC) values disk diffusion diameters: M39 Analysis Presentation Cumulative Antimicrobial Susceptibility Test Data, 2011-2023, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/microbiology/documents/m39/. M100 Performance Standard Antimicrobial Susceptibility Testing, 2011-2023, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/microbiology/documents/m100/. Breakpoint tables interpretation MICs zone diameters, 2011-2023, European Committee Antimicrobial Susceptibility Testing (EUCAST). https://www.eucast.org/clinical_breakpoints.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"x vector values (class mic: MIC values mg/L, class disk: disk diffusion radius millimetres) ... using data.frame: names columns apply .sir() (supports tidy selection column1:column4). Otherwise: arguments passed methods. threshold maximum fraction invalid antimicrobial interpretations x, see Examples mo (vector ) text can coerced valid microorganism codes .mo(), can left empty determine automatically ab (vector ) text can coerced valid antimicrobial drug code .ab() guideline defaults EUCAST 2023 (latest implemented EUCAST guideline clinical_breakpoints data set), can set package option AMR_guideline. Currently supports EUCAST (2011-2023) CLSI (2011-2023), see Details. uti (Urinary Tract Infection) vector logicals (TRUE FALSE) specify whether UTI specific interpretation guideline chosen. using .sir() data.frame, can also column containing logicals left blank, data set searched column 'specimen', rows within column containing 'urin' ('urine', 'urina') regarded isolates UTI. See Examples. conserve_capped_values logical indicate MIC values starting \">\" (\">=\") must always return \"R\" , MIC values starting \"<\" (\"<=\") must always return \"S\" add_intrinsic_resistance (useful using EUCAST guideline) logical indicate whether intrinsic antibiotic resistance must also considered applicable bug-drug combinations, meaning e.g. ampicillin always return \"R\" Klebsiella species. Determination based intrinsic_resistant data set, based 'EUCAST Expert Rules' 'EUCAST Intrinsic Resistance Unusual Phenotypes' v3.3 (2021). reference_data data.frame used interpretation, defaults clinical_breakpoints data set. Changing argument allows using interpretation guidelines. argument must contain data set equal structure clinical_breakpoints data set (column names column types). Please note guideline argument ignored reference_data manually set. include_screening logical indicate clinical breakpoints screening allowed - default FALSE. Can also set package option AMR_include_screening. include_PKPD logical indicate PK/PD clinical breakpoints must applied last resort - default TRUE. Can also set package option AMR_include_PKPD. breakpoint_type type breakpoints use, either \"ECOFF\", \"animal\", \"human\". ECOFF stands Epidemiological Cut-values. default \"human\", can also set package option AMR_breakpoint_type. col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). clean logical indicate whether previously stored results forgotten returning 'logbook' results","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"Ordered factor new class sir","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"Note: clinical breakpoints package validated imported WHONET public use AMR package endorsed CLSI EUCAST, please see clinical_breakpoints information. NA_sir_ missing value new sir class, analogous e.g. base R's NA_character_.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"how-it-works","dir":"Reference","previous_headings":"","what":"How it Works","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":".sir() function works four ways: cleaning raw / untransformed data. data cleaned contain values S, R try best determine intelligence. example, mixed values SIR interpretations MIC values \"<0.25; S\" coerced \"S\". Combined interpretations multiple test methods (seen laboratory records) \"S; S\" coerced \"S\", value like \"S; \" return NA warning input unclear. interpreting minimum inhibitory concentration (MIC) values according EUCAST CLSI. must clean MIC values first using .mic(), also gives columns new data class mic. Also, sure column microorganism names codes. found automatically, can set manually using mo argument. Using dplyr, SIR interpretation can done easily either:   Operators like \"<=\" stripped interpretation. using conserve_capped_values = TRUE, MIC value e.g. \">2\" always return \"R\", even breakpoint according chosen guideline \">=4\". prevent capped values raw laboratory data treated conservatively. default behaviour (conserve_capped_values = FALSE) considers \">2\" lower \">=4\" might case return \"S\" \"\". interpreting disk diffusion diameters according EUCAST CLSI. must clean disk zones first using .disk(), also gives columns new data class disk. Also, sure column microorganism names codes. found automatically, can set manually using mo argument. Using dplyr, SIR interpretation can done easily either:   interpreting complete data set, automatic determination MIC values, disk diffusion diameters, microorganism names codes, antimicrobial test results. done simply running .sir(your_data). points 2, 3 4: Use sir_interpretation_history() retrieve data.frame (tibble tibble package installed) results last .sir() call.","code":"your_data %>% mutate_if(is.mic, as.sir) your_data %>% mutate(across(where(is.mic), as.sir)) your_data %>% mutate_if(is.disk, as.sir) your_data %>% mutate(across(where(is.disk), as.sir))"},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"supported-guidelines","dir":"Reference","previous_headings":"","what":"Supported Guidelines","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"interpreting MIC values well disk diffusion diameters, currently implemented guidelines EUCAST (2011-2023) CLSI (2011-2023). Thus, guideline argument must set e.g., \"EUCAST 2023\" \"CLSI 2023\". simply using \"EUCAST\" (default) \"CLSI\" input, latest included version guideline automatically selected. can set data set using reference_data argument. guideline argument ignored. can set default guideline package option AMR_guideline (e.g. .Rprofile file), :","code":"options(AMR_guideline = \"CLSI\")   options(AMR_guideline = \"CLSI 2018\")   options(AMR_guideline = \"EUCAST 2020\")   # or to reset:   options(AMR_guideline = NULL)"},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"after-interpretation","dir":"Reference","previous_headings":"","what":"After Interpretation","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"using .sir(), can use eucast_rules() defined EUCAST (1) apply inferred susceptibility resistance based results antimicrobials (2) apply intrinsic resistance based taxonomic properties microorganism.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"machine-readable-clinical-breakpoints","dir":"Reference","previous_headings":"","what":"Machine-Readable Clinical Breakpoints","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"repository package contains machine-readable version guidelines. CSV file consisting 29 747 rows 12 columns. file machine-readable, since contains one row every unique combination test method (MIC disk diffusion), antimicrobial drug microorganism. allows easy implementation rules laboratory information systems (LIS). Note contains interpretation guidelines humans - interpretation guidelines CLSI animals removed.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"other","dir":"Reference","previous_headings":"","what":"Other","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"function .sir() detects input contains class sir. input data.frame, iterates columns returns logical vector. function is_sir_eligible() returns TRUE columns contains 5% invalid antimicrobial interpretations (S //R), FALSE otherwise. threshold 5% can set threshold argument. input data.frame, iterates columns returns logical vector.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"interpretation-of-sir","dir":"Reference","previous_headings":"","what":"Interpretation of SIR","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"2019, European Committee Antimicrobial Susceptibility Testing (EUCAST) decided change definitions susceptibility testing categories S, , R shown (https://www.eucast.org/newsiandr): S - Susceptible, standard dosing regimen microorganism categorised \"Susceptible, standard dosing regimen\", high likelihood therapeutic success using standard dosing regimen agent. - Susceptible, increased exposure  microorganism categorised \"Susceptible, Increased exposure\" high likelihood therapeutic success exposure agent increased adjusting dosing regimen concentration site infection. R = Resistant microorganism categorised \"Resistant\" high likelihood therapeutic failure even increased exposure. Exposure function mode administration, dose, dosing interval, infusion time, well distribution excretion antimicrobial agent influence infecting organism site infection. AMR package honours insight. Use susceptibility() (equal proportion_SI()) determine antimicrobial susceptibility count_susceptible() (equal count_SI()) count susceptible isolates.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"","code":"example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … summary(example_isolates) # see all SIR results at a glance #>       date              patient               age           gender          #>  Min.   :2002-01-02   Length:2000        Min.   : 0.00   Length:2000        #>  1st Qu.:2005-07-31   Class :character   1st Qu.:63.00   Class :character   #>  Median :2009-07-31   Mode  :character   Median :74.00   Mode  :character   #>  Mean   :2009-11-20                      Mean   :70.69                      #>  3rd Qu.:2014-05-30                      3rd Qu.:82.00                      #>  Max.   :2017-12-28                      Max.   :97.00                      #>      ward                mo                  PEN                 #>  Length:2000        Class :mo             Class:sir              #>  Class :character   <NA>  :0              %R   :73.7% (n=1201)   #>  Mode  :character   Unique:90             %SI  :26.3% (n=428)    #>                     #1    :B_ESCHR_COLI   - %S :25.6% (n=417)    #>                     #2    :B_STPHY_CONS   - %I : 0.7% (n=11)     #>                     #3    :B_STPHY_AURS                          #>     OXA                   FLC                   AMX                #>  Class:sir             Class:sir             Class:sir             #>  %R   :31.2% (n=114)   %R   :29.5% (n=278)   %R   :59.6% (n=804)   #>  %SI  :68.8% (n=251)   %SI  :70.5% (n=665)   %SI  :40.4% (n=546)   #>  - %S :68.8% (n=251)   - %S :70.5% (n=665)   - %S :40.2% (n=543)   #>  - %I : 0.0% (n=0)     - %I : 0.0% (n=0)     - %I : 0.2% (n=3)     #>                                                                    #>     AMC                    AMP                   TZP                #>  Class:sir              Class:sir             Class:sir             #>  %R   :23.7% (n=446)    %R   :59.6% (n=804)   %R   :12.6% (n=126)   #>  %SI  :76.3% (n=1433)   %SI  :40.4% (n=546)   %SI  :87.4% (n=875)   #>  - %S :71.4% (n=1342)   - %S :40.2% (n=543)   - %S :86.1% (n=862)   #>  - %I : 4.8% (n=91)     - %I : 0.2% (n=3)     - %I : 1.3% (n=13)    #>                                                                     #>     CZO                   FEP                   CXM                 #>  Class:sir             Class:sir             Class:sir              #>  %R   :44.6% (n=199)   %R   :14.2% (n=103)   %R   :26.3% (n=470)    #>  %SI  :55.4% (n=247)   %SI  :85.8% (n=621)   %SI  :73.7% (n=1319)   #>  - %S :54.9% (n=245)   - %S :85.6% (n=620)   - %S :72.5% (n=1297)   #>  - %I : 0.4% (n=2)     - %I : 0.1% (n=1)     - %I : 1.2% (n=22)     #>                                                                     #>     FOX                   CTX                   CAZ                 #>  Class:sir             Class:sir             Class:sir              #>  %R   :27.4% (n=224)   %R   :15.5% (n=146)   %R   :66.5% (n=1204)   #>  %SI  :72.6% (n=594)   %SI  :84.5% (n=797)   %SI  :33.5% (n=607)    #>  - %S :71.6% (n=586)   - %S :84.4% (n=796)   - %S :33.5% (n=607)    #>  - %I : 1.0% (n=8)     - %I : 0.1% (n=1)     - %I : 0.0% (n=0)      #>                                                                     #>     CRO                   GEN                    TOB                #>  Class:sir             Class:sir              Class:sir             #>  %R   :15.5% (n=146)   %R   :24.6% (n=456)    %R   :34.4% (n=465)   #>  %SI  :84.5% (n=797)   %SI  :75.4% (n=1399)   %SI  :65.6% (n=886)   #>  - %S :84.4% (n=796)   - %S :74.0% (n=1372)   - %S :65.1% (n=879)   #>  - %I : 0.1% (n=1)     - %I : 1.5% (n=27)     - %I : 0.5% (n=7)     #>                                                                     #>     AMK                   KAN                    TMP                #>  Class:sir             Class:sir              Class:sir             #>  %R   :63.7% (n=441)   %R   :100.0% (n=471)   %R   :38.1% (n=571)   #>  %SI  :36.3% (n=251)   %SI  : 0.0% (n=0)      %SI  :61.9% (n=928)   #>  - %S :36.3% (n=251)   - %S : 0.0% (n=0)      - %S :61.2% (n=918)   #>  - %I : 0.0% (n=0)     - %I : 0.0% (n=0)      - %I : 0.7% (n=10)    #>                                                                     #>     SXT                    NIT                   FOS                #>  Class:sir              Class:sir             Class:sir             #>  %R   :20.5% (n=361)    %R   :17.1% (n=127)   %R   :42.2% (n=148)   #>  %SI  :79.5% (n=1398)   %SI  :82.9% (n=616)   %SI  :57.8% (n=203)   #>  - %S :79.1% (n=1392)   - %S :76.0% (n=565)   - %S :57.8% (n=203)   #>  - %I : 0.3% (n=6)      - %I : 6.9% (n=51)    - %I : 0.0% (n=0)     #>                                                                     #>     LNZ                   CIP                    MFX                #>  Class:sir             Class:sir              Class:sir             #>  %R   :69.3% (n=709)   %R   :16.2% (n=228)    %R   :33.6% (n=71)    #>  %SI  :30.7% (n=314)   %SI  :83.8% (n=1181)   %SI  :66.4% (n=140)   #>  - %S :30.7% (n=314)   - %S :78.9% (n=1112)   - %S :64.5% (n=136)   #>  - %I : 0.0% (n=0)     - %I : 4.9% (n=69)     - %I : 1.9% (n=4)     #>                                                                     #>     VAN                    TEC                   TCY                #>  Class:sir              Class:sir             Class:sir             #>  %R   :38.3% (n=712)    %R   :75.7% (n=739)   %R   :29.8% (n=357)   #>  %SI  :61.7% (n=1149)   %SI  :24.3% (n=237)   %SI  :70.3% (n=843)   #>  - %S :61.7% (n=1149)   - %S :24.3% (n=237)   - %S :68.3% (n=820)   #>  - %I : 0.0% (n=0)      - %I : 0.0% (n=0)     - %I : 1.9% (n=23)    #>                                                                     #>     TGC                   DOX                   ERY                 #>  Class:sir             Class:sir             Class:sir              #>  %R   :12.7% (n=101)   %R   :27.7% (n=315)   %R   :57.2% (n=1084)   #>  %SI  :87.3% (n=697)   %SI  :72.3% (n=821)   %SI  :42.8% (n=810)    #>  - %S :87.3% (n=697)   - %S :71.7% (n=814)   - %S :42.3% (n=801)    #>  - %I : 0.0% (n=0)     - %I : 0.6% (n=7)     - %I : 0.5% (n=9)      #>                                                                     #>     CLI                   AZM                    IPM                #>  Class:sir             Class:sir              Class:sir             #>  %R   :61.2% (n=930)   %R   :57.2% (n=1084)   %R   : 6.2% (n=55)    #>  %SI  :38.8% (n=590)   %SI  :42.8% (n=810)    %SI  :93.8% (n=834)   #>  - %S :38.6% (n=586)   - %S :42.3% (n=801)    - %S :92.7% (n=824)   #>  - %I : 0.3% (n=4)     - %I : 0.5% (n=9)      - %I : 1.1% (n=10)    #>                                                                     #>     MEM                   MTR                  CHL                #>  Class:sir             Class:sir            Class:sir             #>  %R   : 5.9% (n=49)    %R   :14.7% (n=5)    %R   :21.4% (n=33)    #>  %SI  :94.1% (n=780)   %SI  :85.3% (n=29)   %SI  :78.6% (n=121)   #>  - %S :94.1% (n=780)   - %S :85.3% (n=29)   - %S :78.6% (n=121)   #>  - %I : 0.0% (n=0)     - %I : 0.0% (n=0)    - %I : 0.0% (n=0)     #>                                                                   #>     COL                    MUP                   RIF                #>  Class:sir              Class:sir             Class:sir             #>  %R   :81.2% (n=1331)   %R   : 5.9% (n=16)    %R   :69.6% (n=698)   #>  %SI  :18.8% (n=309)    %SI  :94.1% (n=254)   %SI  :30.4% (n=305)   #>  - %S :18.8% (n=309)    - %S :93.0% (n=251)   - %S :30.2% (n=303)   #>  - %I : 0.0% (n=0)      - %I : 1.1% (n=3)     - %I : 0.2% (n=2)     #>                                                                      # For INTERPRETING disk diffusion and MIC values -----------------------  # a whole data set, even with combined MIC values and disk zones df <- data.frame(   microorganism = \"Escherichia coli\",   AMP = as.mic(8),   CIP = as.mic(0.256),   GEN = as.disk(18),   TOB = as.disk(16),   ERY = \"R\" ) as.sir(df) #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. Note that some #>   microorganisms might not have breakpoints for each antimicrobial drug in #>   EUCAST 2023. #> Interpreting MIC values: column 'AMP' (ampicillin), EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for ampicillin (AMP) in #>      Escherichia coli - assuming body site 'Intravenous'. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> Interpreting MIC values: column 'CIP' (ciprofloxacin), EUCAST 2023... #>  NOTE  #>   • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli #>      - assuming body site 'Non-meningitis'. #> Interpreting disk diffusion zones: column 'GEN' (gentamicin), EUCAST #> 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for gentamicin (GEN) in #>      Escherichia coli - assuming an unspecified body site. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> Interpreting disk diffusion zones: column 'TOB' (tobramycin), EUCAST #> 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for tobramycin (TOB) in #>      Escherichia coli - assuming an unspecified body site. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> => Assigning class 'sir' to already clean column 'ERY' (erythromycin)... #>  OK. #>      microorganism AMP CIP GEN TOB ERY #> 1 Escherichia coli   S   I   S   S   R  # return a 'logbook' about the results: sir_interpretation_history() #> # A tibble: 13 × 13 #>    datetime            index ab_user    mo_user    ab   mo                input #>    <dttm>              <int> <chr>      <chr>      <ab> <mo>              <dbl> #>  1 2023-12-03 00:12:21     1 TOB        Escherich… TOB  B_[ORD]_ENTRBCTR 16     #>  2 2023-12-03 00:12:21     1 GEN        Escherich… GEN  B_[ORD]_ENTRBCTR 18     #>  3 2023-12-03 00:12:21     1 CIP        Escherich… CIP  B_[ORD]_ENTRBCTR  0.256 #>  4 2023-12-03 00:12:21     1 AMP        Escherich… AMP  B_[ORD]_ENTRBCTR  8     #>  5 2023-12-03 00:12:17     1 AMX        B_STRPT_P… AMX  B_STRPT_PNMN      0.01  #>  6 2023-12-03 00:12:17     2 AMX        B_STRPT_P… AMX  B_STRPT_PNMN      2     #>  7 2023-12-03 00:12:17     3 AMX        B_STRPT_P… AMX  B_STRPT_PNMN      4     #>  8 2023-12-03 00:12:17     4 AMX        B_STRPT_P… AMX  B_STRPT_PNMN      8     #>  9 2023-12-03 00:12:17     1 AMX        B_STRPT_P… AMX  B_STRPT_PNMN      2     #> 10 2023-12-03 00:12:16     1 TOB        Escherich… TOB  B_[ORD]_ENTRBCTR 16     #> 11 2023-12-03 00:12:16     1 GEN        Escherich… GEN  B_[ORD]_ENTRBCTR 18     #> 12 2023-12-03 00:12:16     1 AMP        Escherich… AMP  B_[ORD]_ENTRBCTR 20     #> 13 2023-12-03 00:12:16     1 ampicillin Strep pneu AMP  B_STRPT_PNMN     18     #> # ℹ 6 more variables: outcome <sir>, method <chr>, breakpoint_S_R <chr>, #> #   guideline <chr>, ref_table <chr>, uti <lgl>  # for single values as.sir(   x = as.mic(2),   mo = as.mo(\"S. pneumoniae\"),   ab = \"AMP\",   guideline = \"EUCAST\" ) #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. Note that some #>   microorganisms might not have breakpoints for each antimicrobial drug in #>   EUCAST 2023. #> Interpreting MIC values: 'AMP' (ampicillin), EUCAST 2023... #>  NOTE  #>   • Multiple breakpoints available for ampicillin (AMP) in Streptococcus #>      pneumoniae - assuming body site 'Non-meningitis'. #> Class 'sir' #> [1] R  as.sir(   x = as.disk(18),   mo = \"Strep pneu\", # `mo` will be coerced with as.mo()   ab = \"ampicillin\", # and `ab` with as.ab()   guideline = \"EUCAST\" ) #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. Note that some #>   microorganisms might not have breakpoints for each antimicrobial drug in #>   EUCAST 2023. #> Interpreting disk diffusion zones: 'ampicillin' (AMP), EUCAST 2023... #>  OK  #> Class 'sir' #> [1] R  # \\donttest{ # the dplyr way if (require(\"dplyr\")) {   df %>% mutate_if(is.mic, as.sir)   df %>% mutate_if(function(x) is.mic(x) | is.disk(x), as.sir)   df %>% mutate(across(where(is.mic), as.sir))   df %>% mutate_at(vars(AMP:TOB), as.sir)   df %>% mutate(across(AMP:TOB, as.sir))    df %>%     mutate_at(vars(AMP:TOB), as.sir, mo = .$microorganism)    # to include information about urinary tract infections (UTI)   data.frame(     mo = \"E. coli\",     NIT = c(\"<= 2\", 32),     from_the_bladder = c(TRUE, FALSE)   ) %>%     as.sir(uti = \"from_the_bladder\")    data.frame(     mo = \"E. coli\",     NIT = c(\"<= 2\", 32),     specimen = c(\"urine\", \"blood\")   ) %>%     as.sir() # automatically determines urine isolates    df %>%     mutate_at(vars(AMP:TOB), as.sir, mo = \"E. coli\", uti = TRUE) } #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. Note that some #>   microorganisms might not have breakpoints for each antimicrobial drug in #>   EUCAST 2023. #> Interpreting MIC values: 'AMP' (ampicillin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for ampicillin (AMP) in #>      Escherichia coli - assuming body site 'Intravenous'. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> Interpreting MIC values: 'CIP' (ciprofloxacin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli #>      - assuming body site 'Non-meningitis'. #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. Note that some #>   microorganisms might not have breakpoints for each antimicrobial drug in #>   EUCAST 2023. #> Interpreting MIC values: 'AMP' (ampicillin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for ampicillin (AMP) in #>      Escherichia coli - assuming body site 'Intravenous'. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> Interpreting MIC values: 'CIP' (ciprofloxacin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli #>      - assuming body site 'Non-meningitis'. #> Interpreting disk diffusion zones: 'GEN' (gentamicin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for gentamicin (GEN) in #>      Escherichia coli - assuming an unspecified body site. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> Interpreting disk diffusion zones: 'TOB' (tobramycin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for tobramycin (TOB) in #>      Escherichia coli - assuming an unspecified body site. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. Note that some #>   microorganisms might not have breakpoints for each antimicrobial drug in #>   EUCAST 2023. #> Interpreting MIC values: 'AMP' (ampicillin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for ampicillin (AMP) in #>      Escherichia coli - assuming body site 'Intravenous'. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> Interpreting MIC values: 'CIP' (ciprofloxacin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli #>      - assuming body site 'Non-meningitis'. #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. Note that some #>   microorganisms might not have breakpoints for each antimicrobial drug in #>   EUCAST 2023. #> Interpreting MIC values: 'AMP' (ampicillin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for ampicillin (AMP) in #>      Escherichia coli - assuming body site 'Intravenous'. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> Interpreting MIC values: 'CIP' (ciprofloxacin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli #>      - assuming body site 'Non-meningitis'. #> Interpreting disk diffusion zones: 'GEN' (gentamicin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for gentamicin (GEN) in #>      Escherichia coli - assuming an unspecified body site. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> Interpreting disk diffusion zones: 'TOB' (tobramycin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for tobramycin (TOB) in #>      Escherichia coli - assuming an unspecified body site. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. Note that some #>   microorganisms might not have breakpoints for each antimicrobial drug in #>   EUCAST 2023. #> Interpreting MIC values: 'AMP' (ampicillin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for ampicillin (AMP) in #>      Escherichia coli - assuming body site 'Intravenous'. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> Interpreting MIC values: 'CIP' (ciprofloxacin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli #>      - assuming body site 'Non-meningitis'. #> Interpreting disk diffusion zones: 'GEN' (gentamicin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for gentamicin (GEN) in #>      Escherichia coli - assuming an unspecified body site. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> Interpreting disk diffusion zones: 'TOB' (tobramycin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for tobramycin (TOB) in #>      Escherichia coli - assuming an unspecified body site. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. Note that some #>   microorganisms might not have breakpoints for each antimicrobial drug in #>   EUCAST 2023. #> Interpreting MIC values: 'AMP' (ampicillin), EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for ampicillin (AMP) in #>      Escherichia coli - assuming body site 'Intravenous'. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> Interpreting MIC values: 'CIP' (ciprofloxacin), EUCAST 2023... #>  NOTE  #>   • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli #>      - assuming body site 'Non-meningitis'. #> Interpreting disk diffusion zones: 'GEN' (gentamicin), EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for gentamicin (GEN) in #>      Escherichia coli - assuming an unspecified body site. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> Interpreting disk diffusion zones: 'TOB' (tobramycin), EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for tobramycin (TOB) in #>      Escherichia coli - assuming an unspecified body site. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. Note that some #>   microorganisms might not have breakpoints for each antimicrobial drug in #>   EUCAST 2023. #> Interpreting MIC values: column 'NIT' (nitrofurantoin), EUCAST 2023... #>  OK  #> ℹ Assuming value \"urine\" in column 'specimen' reflects a urinary tract #>   infection. #>   Use as.sir(uti = FALSE) to prevent this. #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. Note that some #>   microorganisms might not have breakpoints for each antimicrobial drug in #>   EUCAST 2023. #> Interpreting MIC values: column 'NIT' (nitrofurantoin), EUCAST 2023... #>  OK  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. Note that some #>   microorganisms might not have breakpoints for each antimicrobial drug in #>   EUCAST 2023. #> Interpreting MIC values: 'AMP' (ampicillin), EUCAST 2023... #>  OK  #> Interpreting MIC values: 'CIP' (ciprofloxacin), EUCAST 2023... #>  OK  #> Interpreting disk diffusion zones: 'GEN' (gentamicin), EUCAST 2023... #>  OK  #> Interpreting disk diffusion zones: 'TOB' (tobramycin), EUCAST 2023... #>  OK  #>      microorganism AMP  CIP GEN TOB ERY #> 1 Escherichia coli   S <NA>   S   S   R  # For CLEANING existing SIR values ------------------------------------  as.sir(c(\"S\", \"I\", \"R\", \"A\", \"B\", \"C\")) #> Warning: in as.sir(): 3 results in column '24' truncated (50%) that were invalid #> antimicrobial interpretations: \"A\", \"B\", and \"C\" #> Class 'sir' #> [1] S    I    R    <NA> <NA> <NA> as.sir(\"<= 0.002; S\") # will return \"S\" #> Class 'sir' #> [1] S sir_data <- as.sir(c(rep(\"S\", 474), rep(\"I\", 36), rep(\"R\", 370))) is.sir(sir_data) #> [1] TRUE plot(sir_data) # for percentages  barplot(sir_data) # for frequencies   # the dplyr way if (require(\"dplyr\")) {   example_isolates %>%     mutate_at(vars(PEN:RIF), as.sir)   # same:   example_isolates %>%     as.sir(PEN:RIF)    # fastest way to transform all columns with already valid AMR results to class `sir`:   example_isolates %>%     mutate_if(is_sir_eligible, as.sir)    # since dplyr 1.0.0, this can also be:   # example_isolates %>%   #   mutate(across(where(is_sir_eligible), as.sir)) } #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … # }"},{"path":"https://msberends.github.io/AMR/reference/atc_online.html","id":null,"dir":"Reference","previous_headings":"","what":"Get ATC Properties from WHOCC Website — atc_online_property","title":"Get ATC Properties from WHOCC Website — atc_online_property","text":"Gets data WHOCC website determine properties Anatomical Therapeutic Chemical (ATC) (e.g. antibiotic), name, defined daily dose (DDD) standard unit.","code":""},{"path":"https://msberends.github.io/AMR/reference/atc_online.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Get ATC Properties from WHOCC Website — atc_online_property","text":"","code":"atc_online_property(   atc_code,   property,   administration = \"O\",   url = \"https://www.whocc.no/atc_ddd_index/?code=%s&showdescription=no\",   url_vet = \"https://www.whocc.no/atcvet/atcvet_index/?code=%s&showdescription=no\" )  atc_online_groups(atc_code, ...)  atc_online_ddd(atc_code, ...)  atc_online_ddd_units(atc_code, ...)"},{"path":"https://msberends.github.io/AMR/reference/atc_online.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Get ATC Properties from WHOCC Website — atc_online_property","text":"https://www.whocc./atc_ddd_alterations__cumulative/ddd_alterations/abbrevations/","code":""},{"path":"https://msberends.github.io/AMR/reference/atc_online.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Get ATC Properties from WHOCC Website — atc_online_property","text":"atc_code character (vector) ATC code(s) antibiotics, coerced .ab() ab_atc() internally valid ATC code property property ATC code. Valid values \"ATC\", \"Name\", \"DDD\", \"U\" (\"unit\"), \"Adm.R\", \"Note\" groups. last option, hierarchical groups ATC code returned, see Examples. administration type administration using property = \"Adm.R\", see Details url url website WHOCC. sign %s can used placeholder ATC codes. url_vet url website WHOCC veterinary medicine. sign %s can used placeholder ATC_vet codes (start \"Q\"). ... arguments pass atc_property","code":""},{"path":"https://msberends.github.io/AMR/reference/atc_online.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Get ATC Properties from WHOCC Website — atc_online_property","text":"Options argument administration: \"Implant\" = Implant \"Inhal\" = Inhalation \"Instill\" = Instillation \"N\" = nasal \"O\" = oral \"P\" = parenteral \"R\" = rectal \"SL\" = sublingual/buccal \"TD\" = transdermal \"V\" = vaginal Abbreviations return values using property = \"U\" (unit): \"g\" = gram \"mg\" = milligram \"mcg\" = microgram \"U\" = unit \"TU\" = thousand units \"MU\" = million units \"mmol\" = millimole \"ml\" = millilitre (e.g. eyedrops) N.B. function requires internet connection works following packages installed: curl, rvest, xml2.","code":""},{"path":"https://msberends.github.io/AMR/reference/atc_online.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Get ATC Properties from WHOCC Website — atc_online_property","text":"","code":"# \\donttest{ if (requireNamespace(\"curl\") && requireNamespace(\"rvest\") && requireNamespace(\"xml2\")) {   # oral DDD (Defined Daily Dose) of amoxicillin   atc_online_property(\"J01CA04\", \"DDD\", \"O\")   atc_online_ddd(ab_atc(\"amox\"))    # parenteral DDD (Defined Daily Dose) of amoxicillin   atc_online_property(\"J01CA04\", \"DDD\", \"P\")    atc_online_property(\"J01CA04\", property = \"groups\") # search hierarchical groups of amoxicillin } #> Loading required namespace: rvest #> [1] \"ANTIINFECTIVES FOR SYSTEMIC USE\"         #> [2] \"ANTIBACTERIALS FOR SYSTEMIC USE\"         #> [3] \"BETA-LACTAM ANTIBACTERIALS, PENICILLINS\" #> [4] \"Penicillins with extended spectrum\"      # }"},{"path":"https://msberends.github.io/AMR/reference/av_from_text.html","id":null,"dir":"Reference","previous_headings":"","what":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","title":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","text":"Use function e.g. clinical texts health care records. returns list antiviral drugs, doses forms administration found texts.","code":""},{"path":"https://msberends.github.io/AMR/reference/av_from_text.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","text":"","code":"av_from_text(   text,   type = c(\"drug\", \"dose\", \"administration\"),   collapse = NULL,   translate_av = FALSE,   thorough_search = NULL,   info = interactive(),   ... )"},{"path":"https://msberends.github.io/AMR/reference/av_from_text.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","text":"text text analyse type type property search , either \"drug\", \"dose\" \"administration\", see Examples collapse character pass paste(, collapse = ...) return one character per element text, see Examples translate_av type = \"drug\": column name antivirals data set translate antibiotic abbreviations , using av_property(). default FALSE. Using TRUE equal using \"name\". thorough_search logical indicate whether input must extensively searched misspelling faulty input values. Setting TRUE take considerably time using FALSE. default, turn TRUE input elements contain maximum three words. info logical indicate whether progress bar printed - default TRUE interactive mode ... arguments passed .av()","code":""},{"path":"https://msberends.github.io/AMR/reference/av_from_text.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","text":"list,  character collapse NULL","code":""},{"path":"https://msberends.github.io/AMR/reference/av_from_text.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","text":"function also internally used .av(), although searches first drug name throw note drug names returned. Note: .av() function may use long regular expression match brand names antiviral drugs. may fail systems.","code":""},{"path":"https://msberends.github.io/AMR/reference/av_from_text.html","id":"argument-type","dir":"Reference","previous_headings":"","what":"Argument type","title":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","text":"default, function search antiviral drug names. text elements searched official names, ATC codes brand names. uses .av() internally, correct misspelling. type = \"dose\" (similar, like \"dosing\", \"doses\"), text elements searched numeric values higher 100 resemble years. output numeric. supports unit (g, mg, IE, etc.) multiple values one clinical text, see Examples. type = \"administration\" (abbreviations, like \"admin\", \"adm\"), text elements searched form drug administration. supports following forms (including common abbreviations): buccal, implant, inhalation, instillation, intravenous, nasal, oral, parenteral, rectal, sublingual, transdermal vaginal. Abbreviations oral ('po', 'per os') become \"oral\", values intravenous ('iv', 'intraven') become \"iv\". supports multiple values one clinical text, see Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/av_from_text.html","id":"argument-collapse","dir":"Reference","previous_headings":"","what":"Argument collapse","title":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","text":"Without using collapse, function return list. can convenient use e.g. inside mutate()):df %>% mutate(avx = av_from_text(clinical_text)) returned AV codes can transformed official names, groups, etc. av_* functions av_name() av_group(), using translate_av argument. using collapse, function return character:df %>% mutate(avx = av_from_text(clinical_text, collapse = \"|\"))","code":""},{"path":"https://msberends.github.io/AMR/reference/av_from_text.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","text":"","code":"av_from_text(\"28/03/2020 valaciclovir po tid\") #> [[1]] #> Class 'av' #> [1] VALA #>  av_from_text(\"28/03/2020 valaciclovir po tid\", type = \"admin\") #> [[1]] #> [1] \"oral\" #>"},{"path":"https://msberends.github.io/AMR/reference/av_property.html","id":null,"dir":"Reference","previous_headings":"","what":"Get Properties of an Antiviral Drug — av_property","title":"Get Properties of an Antiviral Drug — av_property","text":"Use functions return specific property antiviral drug antivirals data set. input values evaluated internally .av().","code":""},{"path":"https://msberends.github.io/AMR/reference/av_property.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Get Properties of an Antiviral Drug — av_property","text":"","code":"av_name(x, language = get_AMR_locale(), tolower = FALSE, ...)  av_cid(x, ...)  av_synonyms(x, ...)  av_tradenames(x, ...)  av_group(x, language = get_AMR_locale(), ...)  av_atc(x, ...)  av_loinc(x, ...)  av_ddd(x, administration = \"oral\", ...)  av_ddd_units(x, administration = \"oral\", ...)  av_info(x, language = get_AMR_locale(), ...)  av_url(x, open = FALSE, ...)  av_property(x, property = \"name\", language = get_AMR_locale(), ...)"},{"path":"https://msberends.github.io/AMR/reference/av_property.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Get Properties of an Antiviral Drug — av_property","text":"x (vector ) text can coerced valid antiviral drug code .av() language language returned text - default system language (see get_AMR_locale()) can also set package option AMR_locale. Use language = NULL language = \"\" prevent translation. tolower logical indicate whether first character every output transformed lower case character. ... arguments passed .av() administration way administration, either \"oral\" \"iv\" open browse URL using utils::browseURL() property one column names one antivirals data set: vector_or(colnames(antivirals), sort = FALSE).","code":""},{"path":"https://msberends.github.io/AMR/reference/av_property.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Get Properties of an Antiviral Drug — av_property","text":"integer case av_cid() named list case av_info() multiple av_atc()/av_synonyms()/av_tradenames() double case av_ddd() character cases","code":""},{"path":"https://msberends.github.io/AMR/reference/av_property.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Get Properties of an Antiviral Drug — av_property","text":"output translated possible. function av_url() return direct URL official website. warning returned required ATC code available.","code":""},{"path":"https://msberends.github.io/AMR/reference/av_property.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Get Properties of an Antiviral Drug — av_property","text":"World Health Organization () Collaborating Centre Drug Statistics Methodology: https://www.whocc./atc_ddd_index/ European Commission Public Health PHARMACEUTICALS - COMMUNITY REGISTER: https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm","code":""},{"path":"https://msberends.github.io/AMR/reference/av_property.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Get Properties of an Antiviral Drug — av_property","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/av_property.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Get Properties of an Antiviral Drug — av_property","text":"","code":"# all properties: av_name(\"ACI\") #> [1] \"Aciclovir\" av_atc(\"ACI\") #> [1] \"J05AB01\" av_cid(\"ACI\") #> [1] 135398513 av_synonyms(\"ACI\") #>  [1] \"acicloftal\"        \"aciclovier\"        \"aciclovirum\"       #>  [4] \"activir\"           \"acyclofoam\"        \"acycloguanosine\"   #>  [7] \"acyclovir\"         \"acyclovir lauriad\" \"avaclyr\"           #> [10] \"cargosil\"          \"cyclovir\"          \"genvir\"            #> [13] \"gerpevir\"          \"hascovir\"          \"maynar\"            #> [16] \"novirus\"           \"poviral\"           \"sitavig\"           #> [19] \"sitavir\"           \"vipral\"            \"viropump\"          #> [22] \"virorax\"           \"zovirax\"           \"zyclir\"            av_tradenames(\"ACI\") #>  [1] \"acicloftal\"        \"aciclovier\"        \"aciclovirum\"       #>  [4] \"activir\"           \"acyclofoam\"        \"acycloguanosine\"   #>  [7] \"acyclovir\"         \"acyclovir lauriad\" \"avaclyr\"           #> [10] \"cargosil\"          \"cyclovir\"          \"genvir\"            #> [13] \"gerpevir\"          \"hascovir\"          \"maynar\"            #> [16] \"novirus\"           \"poviral\"           \"sitavig\"           #> [19] \"sitavir\"           \"vipral\"            \"viropump\"          #> [22] \"virorax\"           \"zovirax\"           \"zyclir\"            av_group(\"ACI\") #> [1] \"Nucleosides and nucleotides excl. reverse transcriptase inhibitors\" av_url(\"ACI\") #>                                                             Aciclovir  #> \"https://www.whocc.no/atc_ddd_index/?code=J05AB01&showdescription=no\"   # lowercase transformation av_name(x = c(\"ACI\", \"VALA\")) #> [1] \"Aciclovir\"    \"Valaciclovir\" av_name(x = c(\"ACI\", \"VALA\"), tolower = TRUE) #> [1] \"aciclovir\"    \"valaciclovir\"  # defined daily doses (DDD) av_ddd(\"ACI\", \"oral\") #> [1] 4 av_ddd_units(\"ACI\", \"oral\") #> [1] \"g\" av_ddd(\"ACI\", \"iv\") #> [1] 4 av_ddd_units(\"ACI\", \"iv\") #> [1] \"g\"  av_info(\"ACI\") # all properties as a list #> $av #> [1] \"ACI\" #>  #> $cid #> [1] 135398513 #>  #> $name #> [1] \"Aciclovir\" #>  #> $group #> [1] \"Nucleosides and nucleotides excl. reverse transcriptase inhibitors\" #>  #> $atc #> [1] \"J05AB01\" #>  #> $tradenames #>  [1] \"acicloftal\"        \"aciclovier\"        \"aciclovirum\"       #>  [4] \"activir\"           \"acyclofoam\"        \"acycloguanosine\"   #>  [7] \"acyclovir\"         \"acyclovir lauriad\" \"avaclyr\"           #> [10] \"cargosil\"          \"cyclovir\"          \"genvir\"            #> [13] \"gerpevir\"          \"hascovir\"          \"maynar\"            #> [16] \"novirus\"           \"poviral\"           \"sitavig\"           #> [19] \"sitavir\"           \"vipral\"            \"viropump\"          #> [22] \"virorax\"           \"zovirax\"           \"zyclir\"            #>  #> $loinc #> [1] \"\" #>  #> $ddd #> $ddd$oral #> $ddd$oral$amount #> [1] 4 #>  #> $ddd$oral$units #> [1] \"g\" #>  #>  #> $ddd$iv #> $ddd$iv$amount #> [1] 4 #>  #> $ddd$iv$units #> [1] \"g\" #>  #>  #>   # all av_* functions use as.av() internally, so you can go from 'any' to 'any': av_atc(\"ACI\") #> [1] \"J05AB01\" av_group(\"J05AB01\") #> [1] \"Nucleosides and nucleotides excl. reverse transcriptase inhibitors\" av_loinc(\"abacavir\") #> [1] \"29113-8\" \"30273-7\" \"30287-7\" \"30303-2\" \"78772-1\" \"78773-9\" \"79134-3\" #> [8] \"80118-3\" av_name(\"29113-8\") #> [1] \"Abacavir\" av_name(135398513) #> [1] \"Aciclovir\" av_name(\"J05AB01\") #> [1] \"Aciclovir\""},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":null,"dir":"Reference","previous_headings":"","what":"Check Availability of Columns — availability","title":"Check Availability of Columns — availability","text":"Easy check data availability columns data set. makes easy get idea antimicrobial combinations can used calculation e.g. susceptibility() resistance().","code":""},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Check Availability of Columns — availability","text":"","code":"availability(tbl, width = NULL)"},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Check Availability of Columns — availability","text":"tbl data.frame list width number characters present visual availability - default filling width console","code":""},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Check Availability of Columns — availability","text":"data.frame column names tbl row names","code":""},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Check Availability of Columns — availability","text":"function returns data.frame columns \"resistant\" \"visual_resistance\". values columns calculated resistance().","code":""},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Check Availability of Columns — availability","text":"","code":"availability(example_isolates) #>         count available     visual_availabilty resistant      visual_resistance #> date     2000    100.0% |####################|                                  #> patient  2000    100.0% |####################|                                  #> age      2000    100.0% |####################|                                  #> gender   2000    100.0% |####################|                                  #> ward     2000    100.0% |####################|                                  #> mo       2000    100.0% |####################|                                  #> PEN      1629     81.5% |################----|     73.7% |##############------| #> OXA       365     18.3% |###-----------------|     31.2% |######--------------| #> FLC       943     47.2% |#########-----------|     29.5% |#####---------------| #> AMX      1350     67.5% |#############-------|     59.6% |###########---------| #> AMC      1879     94.0% |##################--|     23.7% |####----------------| #> AMP      1350     67.5% |#############-------|     59.6% |###########---------| #> TZP      1001     50.0% |##########----------|     12.6% |##------------------| #> CZO       446     22.3% |####----------------|     44.6% |########------------| #> FEP       724     36.2% |#######-------------|     14.2% |##------------------| #> CXM      1789     89.5% |#################---|     26.3% |#####---------------| #> FOX       818     40.9% |########------------|     27.4% |#####---------------| #> CTX       943     47.2% |#########-----------|     15.5% |###-----------------| #> CAZ      1811     90.6% |##################--|     66.5% |#############-------| #> CRO       943     47.2% |#########-----------|     15.5% |###-----------------| #> GEN      1855     92.8% |##################--|     24.6% |####----------------| #> TOB      1351     67.6% |#############-------|     34.4% |######--------------| #> AMK       692     34.6% |######--------------|     63.7% |############--------| #> KAN       471     23.6% |####----------------|    100.0% |####################| #> TMP      1499     75.0% |###############-----|     38.1% |#######-------------| #> SXT      1759     88.0% |#################---|     20.5% |####----------------| #> NIT       743     37.2% |#######-------------|     17.1% |###-----------------| #> FOS       351     17.6% |###-----------------|     42.2% |########------------| #> LNZ      1023     51.2% |##########----------|     69.3% |#############-------| #> CIP      1409     70.5% |#############-------|     16.2% |###-----------------| #> MFX       211     10.6% |##------------------|     33.6% |######--------------| #> VAN      1861     93.1% |##################--|     38.3% |#######-------------| #> TEC       976     48.8% |#########-----------|     75.7% |###############-----| #> TCY      1200     60.0% |###########---------|     29.8% |#####---------------| #> TGC       798     39.9% |########------------|     12.7% |##------------------| #> DOX      1136     56.8% |###########---------|     27.7% |#####---------------| #> ERY      1894     94.7% |##################--|     57.2% |###########---------| #> CLI      1520     76.0% |###############-----|     61.2% |############--------| #> AZM      1894     94.7% |##################--|     57.2% |###########---------| #> IPM       889     44.5% |########------------|      6.2% |#-------------------| #> MEM       829     41.5% |########------------|      5.9% |#-------------------| #> MTR        34      1.7% |--------------------|     14.7% |##------------------| #> CHL       154      7.7% |#-------------------|     21.4% |####----------------| #> COL      1640     82.0% |################----|     81.2% |################----| #> MUP       270     13.5% |##------------------|      5.9% |#-------------------| #> RIF      1003     50.2% |##########----------|     69.6% |#############-------| # \\donttest{ if (require(\"dplyr\")) {   example_isolates %>%     filter(mo == as.mo(\"Escherichia coli\")) %>%     select_if(is.sir) %>%     availability() } #>     count available       visual_availabilty resistant        visual_resistance #> PEN   467    100.0% |######################|    100.0% |######################| #> OXA     0      0.0% |----------------------|                                    #> FLC     0      0.0% |----------------------|                                    #> AMX   392     83.9% |##################----|     50.0% |###########-----------| #> AMC   467    100.0% |######################|     13.1% |##--------------------| #> AMP   392     83.9% |##################----|     50.0% |###########-----------| #> TZP   416     89.1% |###################---|      5.5% |#---------------------| #> CZO    82     17.6% |###-------------------|      2.4% |----------------------| #> FEP   317     67.9% |##############--------|      2.8% |----------------------| #> CXM   465     99.6% |######################|      5.4% |#---------------------| #> FOX   377     80.7% |#################-----|      6.9% |#---------------------| #> CTX   459     98.3% |#####################-|      2.4% |----------------------| #> CAZ   460     98.5% |#####################-|      2.4% |----------------------| #> CRO   459     98.3% |#####################-|      2.4% |----------------------| #> GEN   460     98.5% |#####################-|      2.0% |----------------------| #> TOB   462     98.9% |#####################-|      2.6% |----------------------| #> AMK   171     36.6% |########--------------|      0.0% |----------------------| #> KAN     0      0.0% |----------------------|                                    #> TMP   396     84.8% |##################----|     39.1% |########--------------| #> SXT   465     99.6% |######################|     31.6% |######----------------| #> NIT   458     98.1% |#####################-|      2.8% |----------------------| #> FOS    61     13.1% |##--------------------|      0.0% |----------------------| #> LNZ   467    100.0% |######################|    100.0% |######################| #> CIP   456     97.6% |#####################-|     12.5% |##--------------------| #> MFX    57     12.2% |##--------------------|    100.0% |######################| #> VAN   467    100.0% |######################|    100.0% |######################| #> TEC   467    100.0% |######################|    100.0% |######################| #> TCY     3      0.6% |----------------------|     66.7% |##############--------| #> TGC    68     14.6% |###-------------------|      0.0% |----------------------| #> DOX     0      0.0% |----------------------|                                    #> ERY   467    100.0% |######################|    100.0% |######################| #> CLI   467    100.0% |######################|    100.0% |######################| #> AZM   467    100.0% |######################|    100.0% |######################| #> IPM   422     90.4% |###################---|      0.0% |----------------------| #> MEM   418     89.5% |###################---|      0.0% |----------------------| #> MTR     2      0.4% |----------------------|      0.0% |----------------------| #> CHL     0      0.0% |----------------------|                                    #> COL   240     51.4% |###########-----------|      0.0% |----------------------| #> MUP     0      0.0% |----------------------|                                    #> RIF   467    100.0% |######################|    100.0% |######################| # }"},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":null,"dir":"Reference","previous_headings":"","what":"Determine Bug-Drug Combinations — bug_drug_combinations","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"Determine antimicrobial resistance (AMR) bug-drug combinations data set least 30 (default) isolates available per species. Use format() result prettify publishable/printable format, see Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"","code":"bug_drug_combinations(x, col_mo = NULL, FUN = mo_shortname, ...)  # S3 method for bug_drug_combinations format(   x,   translate_ab = \"name (ab, atc)\",   language = get_AMR_locale(),   minimum = 30,   combine_SI = TRUE,   add_ab_group = TRUE,   remove_intrinsic_resistant = FALSE,   decimal.mark = getOption(\"OutDec\"),   big.mark = ifelse(decimal.mark == \",\", \".\", \",\"),   ... )"},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"x data set antibiotic columns, amox, AMX AMC col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). FUN function call mo column transform microorganism codes - default mo_shortname() ... arguments passed FUN translate_ab character length 1 containing column names antibiotics data set language language returned text - default current system language (see get_AMR_locale()) can also set package option AMR_locale. Use language = NULL language = \"\" prevent translation. minimum minimum allowed number available (tested) isolates. isolate count lower minimum return NA warning. default number 30 isolates advised Clinical Laboratory Standards Institute (CLSI) best practice, see Source. combine_SI logical indicate whether values S summed, resistance based R - default TRUE add_ab_group logical indicate group antimicrobials must included first column remove_intrinsic_resistant logical indicate rows columns 100% resistance tested antimicrobials must removed table decimal.mark character used indicate numeric     decimal point. big.mark character; empty used mark every     big.interval decimals (hence big)     decimal point.","code":""},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"function bug_drug_combinations() returns data.frame columns \"mo\", \"ab\", \"S\", \"\", \"R\" \"total\".","code":""},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"function format() calculates resistance per bug-drug combination returns table ready reporting/publishing. Use combine_SI = TRUE (default) test R vs. S+combine_SI = FALSE test R+vs. S. table can also directly used R Markdown / Quarto without need e.g. knitr::kable().","code":""},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"","code":"# example_isolates is a data set available in the AMR package. # run ?example_isolates for more info. example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 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 × 6 #>   mo                ab        S     I     R total #>   <chr>             <chr> <int> <int> <int> <int> #> 1 (unknown species) AMC      15     0     0    15 #> 2 (unknown species) AMK       0     0     0     0 #> 3 (unknown species) AMP      15     0     1    16 #> 4 (unknown species) AMX      15     0     1    16 #> 5 (unknown species) AZM       3     0     3     6 #> 6 (unknown species) CAZ       0     0     0     0 #> Use 'format()' on this result to get a publishable/printable format. format(x, translate_ab = \"name (atc)\") #> # A tibble: 39 × 12 #>    Group     Drug  CoNS  `E. coli` `E. faecalis` `K. pneumoniae` `P. aeruginosa` #>    <chr>     <chr> <chr> <chr>     <chr>         <chr>           <chr>           #>  1 \"Aminogl… Amik… \"100… \"  0.0% … \"100.0% (39/… \"\"              \"\"              #>  2 \"\"        Gent… \" 13… \"  2.0% … \"100.0% (39/… \" 10.3% (6/58)\" \"  0.0% (0/30)\" #>  3 \"\"        Kana… \"100… \"\"        \"100.0% (39/… \"\"              \"100.0% (30/30… #>  4 \"\"        Tobr… \" 78… \"  2.6% … \"100.0% (39/… \" 10.3% (6/58)\" \"  0.0% (0/30)\" #>  5 \"Ampheni… Chlo… \"\"    \"\"        \"\"            \"\"              \"100.0% (30/30… #>  6 \"Antimyc… Rifa… \"\"    \"100.0% … \"\"            \"100.0% (58/58… \"100.0% (30/30… #>  7 \"Beta-la… Amox… \" 93… \" 50.0% … \"\"            \"100.0% (58/58… \"100.0% (30/30… #>  8 \"\"        Amox… \" 42… \" 13.1% … \"\"            \" 10.3% (6/58)\" \"100.0% (30/30… #>  9 \"\"        Ampi… \" 93… \" 50.0% … \"\"            \"100.0% (58/58… \"100.0% (30/30… #> 10 \"\"        Benz… \" 77… \"100.0% … \"\"            \"100.0% (58/58… \"100.0% (30/30… #> # ℹ 29 more rows #> # ℹ 5 more variables: `P. mirabilis` <chr>, `S. aureus` <chr>, #> #   `S. epidermidis` <chr>, `S. hominis` <chr>, `S. pneumoniae` <chr>  # Use FUN to change to transformation of microorganism codes bug_drug_combinations(example_isolates,   FUN = mo_gramstain ) #> # A tibble: 80 × 6 #>    mo            ab        S     I     R total #>  * <chr>         <chr> <int> <int> <int> <int> #>  1 Gram-negative AMC     463    89   174   726 #>  2 Gram-negative AMK     251     0     5   256 #>  3 Gram-negative AMP     226     0   405   631 #>  4 Gram-negative AMX     226     0   405   631 #>  5 Gram-negative AZM       1     2   696   699 #>  6 Gram-negative CAZ     607     0    27   634 #>  7 Gram-negative CHL       1     0    30    31 #>  8 Gram-negative CIP     610    11    63   684 #>  9 Gram-negative CLI      18     1   709   728 #> 10 Gram-negative COL     309     0    78   387 #> # ℹ 70 more rows #> Use 'format()' on this result to get a publishable/printable format.  bug_drug_combinations(example_isolates,   FUN = function(x) {     ifelse(x == as.mo(\"Escherichia coli\"),       \"E. coli\",       \"Others\"     )   } ) #> # A tibble: 80 × 6 #>    mo      ab        S     I     R total #>  * <chr>   <chr> <int> <int> <int> <int> #>  1 E. coli AMC     332    74    61   467 #>  2 E. coli AMK     171     0     0   171 #>  3 E. coli AMP     196     0   196   392 #>  4 E. coli AMX     196     0   196   392 #>  5 E. coli AZM       0     0   467   467 #>  6 E. coli CAZ     449     0    11   460 #>  7 E. coli CHL       0     0     0     0 #>  8 E. coli CIP     398     1    57   456 #>  9 E. coli CLI       0     0   467   467 #> 10 E. coli COL     240     0     0   240 #> # ℹ 70 more rows #> Use 'format()' on this result to get a publishable/printable format. # }"},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"Data set containing clinical breakpoints interpret MIC disk diffusion SIR values, according international guidelines. Currently implemented guidelines EUCAST (2011-2023) CLSI (2011-2023). Use .sir() transform MICs disks measurements SIR values.","code":""},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"","code":"clinical_breakpoints"},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"tibble 29 747 observations 12 variables: guideline Name guideline type Breakpoint type, either \"ECOFF\", \"animal\", \"human\" method Testing method, either \"DISK\" \"MIC\" site Body site breakpoint must applied, e.g. \"Oral\" \"Respiratory\" mo Microbial ID, see .mo() rank_index Taxonomic rank index mo 1 (subspecies/infraspecies) 5 (unknown microorganism) ab Antibiotic code used package, EARS-Net WHONET, see .ab() ref_tbl Info guideline rule can found disk_dose Dose used disk diffusion method breakpoint_S Lowest MIC value highest number millimetres leads \"S\" breakpoint_R Highest MIC value lowest number millimetres leads \"R\" uti logical value (TRUE/FALSE) indicate whether rule applies urinary tract infection (UTI)","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":"different-types-of-breakpoints","dir":"Reference","previous_headings":"","what":"Different types of breakpoints","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"Supported types breakpoints ECOFF, animal, human. ECOFF (Epidemiological cut-) values used antimicrobial susceptibility testing differentiate wild-type non-wild-type strains bacteria fungi. default \"human\", can also set package option AMR_breakpoint_type. Use .sir(..., breakpoint_type = ...) interpret raw data using specific breakpoint type, e.g. .sir(..., breakpoint_type = \"ECOFF\") use ECOFFs.","code":""},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":"imported-from-whonet","dir":"Reference","previous_headings":"","what":"Imported from WHONET","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"Clinical breakpoints package validated imported WHONET, free desktop Windows application developed supported Collaborating Centre Surveillance Antimicrobial Resistance. can read website. developers WHONET AMR package contact sharing work. highly appreciate development WHONET software.","code":""},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":"response-from-clsi-and-eucast","dir":"Reference","previous_headings":"","what":"Response from CLSI and EUCAST","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"CEO CLSI chairman EUCAST endorsed work public use AMR package (consequently use breakpoints) June 2023, future development distributing clinical breakpoints discussed meeting CLSI, EUCAST, , developers WHONET AMR package.","code":""},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":"download","dir":"Reference","previous_headings":"","what":"Download","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository. allow machine reading EUCAST CLSI guidelines, almost impossible MS Excel PDF files distributed EUCAST CLSI, though initiatives started overcome burdens. NOTE: AMR package (WHONET software well) contains internal methods apply guidelines, rather complex. example, breakpoints must applied certain species groups (case package available microorganisms.groups data set). important considered using breakpoints use.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/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: 29,747 × 12 #>    guideline type  method site  mo            rank_index ab   ref_tbl  disk_dose #>    <chr>     <chr> <chr>  <chr> <mo>               <dbl> <ab> <chr>    <chr>     #>  1 EUCAST 2… human DISK   NA    B_ACHRMB_XYLS          2 MEM  A. xylo… 10ug      #>  2 EUCAST 2… human MIC    NA    B_ACHRMB_XYLS          2 MEM  A. xylo… NA        #>  3 EUCAST 2… human DISK   NA    B_ACHRMB_XYLS          2 SXT  A. xylo… 1.25ug/2… #>  4 EUCAST 2… human MIC    NA    B_ACHRMB_XYLS          2 SXT  A. xylo… NA        #>  5 EUCAST 2… human DISK   NA    B_ACHRMB_XYLS          2 TZP  A. xylo… 30ug/6ug  #>  6 EUCAST 2… human MIC    NA    B_ACHRMB_XYLS          2 TZP  A. xylo… NA        #>  7 EUCAST 2… human DISK   NA    B_ACNTB                3 AMK  Acineto… 30ug      #>  8 EUCAST 2… human DISK   Unco… B_ACNTB                3 AMK  Acineto… 30ug      #>  9 EUCAST 2… human MIC    NA    B_ACNTB                3 AMK  Acineto… NA        #> 10 EUCAST 2… human MIC    Unco… B_ACNTB                3 AMK  Acineto… NA        #> # ℹ 29,737 more rows #> # ℹ 3 more variables: breakpoint_S <dbl>, breakpoint_R <dbl>, uti <lgl>"},{"path":"https://msberends.github.io/AMR/reference/count.html","id":null,"dir":"Reference","previous_headings":"","what":"Count Available Isolates — count","title":"Count Available Isolates — count","text":"functions can used count resistant/susceptible microbial isolates. functions support quasiquotation pipes, can used summarise() dplyr package also support grouped variables, see Examples. count_resistant() used count resistant isolates, count_susceptible() used count susceptible isolates.","code":""},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Count Available Isolates — count","text":"","code":"count_resistant(..., only_all_tested = FALSE)  count_susceptible(..., only_all_tested = FALSE)  count_R(..., only_all_tested = FALSE)  count_IR(..., only_all_tested = FALSE)  count_I(..., only_all_tested = FALSE)  count_SI(..., only_all_tested = FALSE)  count_S(..., only_all_tested = FALSE)  count_all(..., only_all_tested = FALSE)  n_sir(..., only_all_tested = FALSE)  count_df(   data,   translate_ab = \"name\",   language = get_AMR_locale(),   combine_SI = TRUE )"},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Count Available Isolates — count","text":"... one vectors (columns) antibiotic interpretations. transformed internally .sir() needed. only_all_tested (combination therapies, .e. using one variable ...): logical indicate isolates must tested antibiotics, see section Combination Therapy data data.frame containing columns class sir (see .sir()) translate_ab column name antibiotics data set translate antibiotic abbreviations , using ab_property() language language returned text - default current system language (see get_AMR_locale()) can also set package option AMR_locale. Use language = NULL language = \"\" prevent translation. combine_SI logical indicate whether values S must merged one, output consists S+vs. R (susceptible vs. resistant) - default TRUE","code":""},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Count Available Isolates — count","text":"integer","code":""},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Count Available Isolates — count","text":"functions meant count isolates. Use resistance()/susceptibility() functions calculate microbial resistance/susceptibility. function count_resistant() equal function count_R(). function count_susceptible() equal function count_SI(). function n_sir() alias count_all(). can used count available isolates, .e. input antibiotics available result (S, R). use equal n_distinct(). function equal count_susceptible(...) + count_resistant(...). function count_df() takes variable data sir class (created .sir()) counts number S's, 's R's. also supports grouped variables. function sir_df() works exactly like count_df(), adds percentage S, R.","code":""},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"interpretation-of-sir","dir":"Reference","previous_headings":"","what":"Interpretation of SIR","title":"Count Available Isolates — count","text":"2019, European Committee Antimicrobial Susceptibility Testing (EUCAST) decided change definitions susceptibility testing categories S, , R shown (https://www.eucast.org/newsiandr): S - Susceptible, standard dosing regimen microorganism categorised \"Susceptible, standard dosing regimen\", high likelihood therapeutic success using standard dosing regimen agent. - Susceptible, increased exposure  microorganism categorised \"Susceptible, Increased exposure\" high likelihood therapeutic success exposure agent increased adjusting dosing regimen concentration site infection. R = Resistant microorganism categorised \"Resistant\" high likelihood therapeutic failure even increased exposure. Exposure function mode administration, dose, dosing interval, infusion time, well distribution excretion antimicrobial agent influence infecting organism site infection. AMR package honours insight. Use susceptibility() (equal proportion_SI()) determine antimicrobial susceptibility count_susceptible() (equal count_SI()) count susceptible isolates.","code":""},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"combination-therapy","dir":"Reference","previous_headings":"","what":"Combination Therapy","title":"Count Available Isolates — count","text":"using one variable ... (= combination therapy), use only_all_tested count isolates tested antibiotics/variables test . See example two antibiotics, Drug Drug B, susceptibility() works calculate %SI:   Please note , combination therapies, only_all_tested = TRUE applies :   , combination therapies, only_all_tested = FALSE applies :   Using only_all_tested impact using one antibiotic input.","code":"--------------------------------------------------------------------                     only_all_tested = FALSE  only_all_tested = TRUE                     -----------------------  -----------------------  Drug A    Drug B   include as  include as   include as  include as                     numerator   denominator  numerator   denominator --------  --------  ----------  -----------  ----------  -----------  S or I    S or I       X            X            X            X    R       S or I       X            X            X            X   <NA>     S or I       X            X            -            -  S or I      R          X            X            X            X    R         R          -            X            -            X   <NA>       R          -            -            -            -  S or I     <NA>        X            X            -            -    R        <NA>        -            -            -            -   <NA>      <NA>        -            -            -            - -------------------------------------------------------------------- count_S()    +   count_I()    +   count_R()    = count_all()   proportion_S() + proportion_I() + proportion_R() = 1 count_S()    +   count_I()    +   count_R()    >= count_all()   proportion_S() + proportion_I() + proportion_R() >= 1"},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Count Available Isolates — count","text":"","code":"# example_isolates is a data set available in the AMR package. # run ?example_isolates for more info.  # base R ------------------------------------------------------------ count_resistant(example_isolates$AMX) # counts \"R\" #> [1] 804 count_susceptible(example_isolates$AMX) # counts \"S\" and \"I\" #> [1] 546 count_all(example_isolates$AMX) # counts \"S\", \"I\" and \"R\" #> [1] 1350  # be more specific count_S(example_isolates$AMX) #> Using count_S() is discouraged; use count_susceptible() instead to also #> consider \"I\" being susceptible. This note will be shown once for this #> session. #> [1] 543 count_SI(example_isolates$AMX) #> [1] 546 count_I(example_isolates$AMX) #> [1] 3 count_IR(example_isolates$AMX) #> Using count_IR() is discouraged; use count_resistant() instead to not #> consider \"I\" being resistant. This note will be shown once for this #> session. #> [1] 807 count_R(example_isolates$AMX) #> [1] 804  # Count all available isolates count_all(example_isolates$AMX) #> [1] 1350 n_sir(example_isolates$AMX) #> [1] 1350  # n_sir() is an alias of count_all(). # Since it counts all available isolates, you can # calculate back to count e.g. susceptible isolates. # These results are the same: count_susceptible(example_isolates$AMX) #> [1] 546 susceptibility(example_isolates$AMX) * n_sir(example_isolates$AMX) #> [1] 546  # dplyr ------------------------------------------------------------- # \\donttest{ if (require(\"dplyr\")) {   example_isolates %>%     group_by(ward) %>%     summarise(       R = count_R(CIP),       I = count_I(CIP),       S = count_S(CIP),       n1 = count_all(CIP), # the actual total; sum of all three       n2 = n_sir(CIP), # same - analogous to n_distinct       total = n()     ) # NOT the number of tested isolates!    # Number of available isolates for a whole antibiotic class   # (i.e., in this data set columns GEN, TOB, AMK, KAN)   example_isolates %>%     group_by(ward) %>%     summarise(across(aminoglycosides(), n_sir))    # Count co-resistance between amoxicillin/clav acid and gentamicin,   # so we can see that combination therapy does a lot more than mono therapy.   # Please mind that `susceptibility()` calculates percentages right away instead.   example_isolates %>% count_susceptible(AMC) # 1433   example_isolates %>% count_all(AMC) # 1879    example_isolates %>% count_susceptible(GEN) # 1399   example_isolates %>% count_all(GEN) # 1855    example_isolates %>% count_susceptible(AMC, GEN) # 1764   example_isolates %>% count_all(AMC, GEN) # 1936    # Get number of S+I vs. R immediately of selected columns   example_isolates %>%     select(AMX, CIP) %>%     count_df(translate = FALSE)    # It also supports grouping variables   example_isolates %>%     select(ward, AMX, CIP) %>%     group_by(ward) %>%     count_df(translate = FALSE) } #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> # A tibble: 12 × 4 #>    ward       antibiotic interpretation value #>  * <chr>      <chr>      <ord>          <int> #>  1 Clinical   AMX        SI               357 #>  2 Clinical   AMX        R                487 #>  3 Clinical   CIP        SI               741 #>  4 Clinical   CIP        R                128 #>  5 ICU        AMX        SI               158 #>  6 ICU        AMX        R                270 #>  7 ICU        CIP        SI               362 #>  8 ICU        CIP        R                 85 #>  9 Outpatient AMX        SI                31 #> 10 Outpatient AMX        R                 47 #> 11 Outpatient CIP        SI                78 #> 12 Outpatient CIP        R                 15 # }"},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":null,"dir":"Reference","previous_headings":"","what":"Define Custom EUCAST Rules — custom_eucast_rules","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"Define custom EUCAST rules organisation specific analysis use output function eucast_rules().","code":""},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"","code":"custom_eucast_rules(...)"},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"... rules formula notation, see Examples","code":""},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"list containing custom rules","code":""},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"organisations adoption EUCAST rules. function can used define custom EUCAST rules used eucast_rules() function.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"basics","dir":"Reference","previous_headings":"","what":"Basics","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"familiar case_when() function dplyr package, recognise input method set rules. Rules must set using R considers 'formula notation'. rule written tilde (~) consequence rule written tilde:   two custom EUCAST rules: TZP (piperacillin/tazobactam) \"S\", aminopenicillins (ampicillin amoxicillin) must made \"S\", TZP \"R\", aminopenicillins must made \"R\". rules can also printed console, immediately clear work:   rules (part tilde, example TZP == \"S\" TZP == \"R\") must evaluable data set: able run filter data set without errors. means example column TZP must exist. create sample data set test rules set:","code":"x <- custom_eucast_rules(TZP == \"S\" ~ aminopenicillins == \"S\",                          TZP == \"R\" ~ aminopenicillins == \"R\") x #> A set of custom EUCAST rules: #> #>   1. If TZP is \"S\" then set to  S : #>      amoxicillin (AMX), ampicillin (AMP) #> #>   2. If TZP is \"R\" then set to  R : #>      amoxicillin (AMX), ampicillin (AMP) df <- data.frame(mo = c(\"Escherichia coli\", \"Klebsiella pneumoniae\"),                  TZP = as.sir(\"R\"),                  ampi = as.sir(\"S\"),                  cipro = as.sir(\"S\")) df #>                      mo TZP ampi cipro #> 1      Escherichia coli   R    S     S #> 2 Klebsiella pneumoniae   R    S     S  eucast_rules(df, rules = \"custom\", custom_rules = x, info = FALSE) #>                      mo TZP ampi cipro #> 1      Escherichia coli   R    R     S #> 2 Klebsiella pneumoniae   R    R     S"},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"using-taxonomic-properties-in-rules","dir":"Reference","previous_headings":"","what":"Using taxonomic properties in rules","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"one exception columns used rules: column names microorganisms data set can also used, exist data set. column names : \"mo\", \"fullname\", \"status\", \"kingdom\", \"phylum\", \"class\", \"order\", \"family\", \"genus\", \"species\", \"subspecies\", \"rank\", \"ref\", \"oxygen_tolerance\", \"source\", \"lpsn\", \"lpsn_parent\", \"lpsn_renamed_to\", \"gbif\", \"gbif_parent\", \"gbif_renamed_to\", \"prevalence\", \"snomed\". Thus, next example work well, despite fact df data set contain column genus:","code":"y <- custom_eucast_rules(TZP == \"S\" & genus == \"Klebsiella\" ~ aminopenicillins == \"S\",                          TZP == \"R\" & genus == \"Klebsiella\" ~ aminopenicillins == \"R\")  eucast_rules(df, rules = \"custom\", custom_rules = y, info = FALSE) #>                      mo TZP ampi cipro #> 1      Escherichia coli   R    S     S #> 2 Klebsiella pneumoniae   R    R     S"},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"usage-of-antibiotic-group-names","dir":"Reference","previous_headings":"","what":"Usage of antibiotic group names","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"possible define antibiotic groups instead single antibiotics rule consequence, part tilde. examples, antibiotic group aminopenicillins used include ampicillin amoxicillin. following groups allowed (case-insensitive). Within parentheses drugs matched running rule. \"aminoglycosides\"(amikacin, amikacin/fosfomycin, amphotericin B-high, apramycin, arbekacin, astromicin, bekanamycin, dibekacin, framycetin, gentamicin, gentamicin-high, habekacin, hygromycin, isepamicin, kanamycin, kanamycin-high, kanamycin/cephalexin, micronomicin, neomycin, netilmicin, pentisomicin, plazomicin, propikacin, ribostamycin, sisomicin, streptoduocin, streptomycin, streptomycin-high, tobramycin, tobramycin-high) \"aminopenicillins\"(amoxicillin ampicillin) \"antifungals\"(amphotericin B, anidulafungin, butoconazole, caspofungin, ciclopirox, clotrimazole, econazole, fluconazole, flucytosine, fosfluconazole, griseofulvin, hachimycin, ibrexafungerp, isavuconazole, isoconazole, itraconazole, ketoconazole, manogepix, micafungin, miconazole, nystatin, oteseconazole, pimaricin, posaconazole, rezafungin, ribociclib, sulconazole, terbinafine, terconazole, voriconazole) \"antimycobacterials\"(4-aminosalicylic acid, calcium aminosalicylate, capreomycin, clofazimine, delamanid, enviomycin, ethambutol, ethambutol/isoniazid, ethionamide, isoniazid, isoniazid/sulfamethoxazole/trimethoprim/pyridoxine, morinamide, p-aminosalicylic acid, pretomanid, protionamide, pyrazinamide, rifabutin, rifampicin, rifampicin/ethambutol/isoniazid, rifampicin/isoniazid, rifampicin/pyrazinamide/ethambutol/isoniazid, rifampicin/pyrazinamide/isoniazid, rifamycin, rifapentine, simvastatin/fenofibrate, sodium aminosalicylate, streptomycin/isoniazid, terizidone, thioacetazone, thioacetazone/isoniazid, tiocarlide, viomycin) \"betalactams\"(amoxicillin, amoxicillin/clavulanic acid, amoxicillin/sulbactam, ampicillin, ampicillin/sulbactam, apalcillin, aspoxicillin, avibactam, azidocillin, azlocillin, aztreonam, aztreonam/avibactam, aztreonam/nacubactam, bacampicillin, benzathine benzylpenicillin, benzathine phenoxymethylpenicillin, benzylpenicillin, biapenem, carbenicillin, carindacillin, cefacetrile, cefaclor, cefadroxil, cefalexin, cefaloridine, cefalotin, cefamandole, cefapirin, cefatrizine, cefazedone, cefazolin, cefcapene, cefcapene pivoxil, cefdinir, cefditoren, cefditoren pivoxil, cefepime, cefepime/clavulanic acid, cefepime/nacubactam, cefepime/tazobactam, cefetamet, cefetamet pivoxil, cefetecol, cefetrizole, cefixime, cefmenoxime, cefmetazole, cefodizime, cefonicid, cefoperazone, cefoperazone/sulbactam, ceforanide, cefoselis, cefotaxime, cefotaxime/clavulanic acid, cefotaxime/sulbactam, cefotetan, cefotiam, cefotiam hexetil, cefovecin, cefoxitin, cefoxitin screening, cefozopran, cefpimizole, cefpiramide, cefpirome, cefpodoxime, cefpodoxime proxetil, cefpodoxime/clavulanic acid, cefprozil, cefquinome, cefroxadine, cefsulodin, cefsumide, ceftaroline, ceftaroline/avibactam, ceftazidime, ceftazidime/avibactam, ceftazidime/clavulanic acid, cefteram, cefteram pivoxil, ceftezole, ceftibuten, ceftiofur, ceftizoxime, ceftizoxime alapivoxil, ceftobiprole, ceftobiprole medocaril, ceftolozane/tazobactam, ceftriaxone, ceftriaxone/beta-lactamase inhibitor, cefuroxime, cefuroxime axetil, cephradine, ciclacillin, clometocillin, cloxacillin, dicloxacillin, doripenem, epicillin, ertapenem, flucloxacillin, hetacillin, imipenem, imipenem/EDTA, imipenem/relebactam, latamoxef, lenampicillin, loracarbef, mecillinam, meropenem, meropenem/nacubactam, meropenem/vaborbactam, metampicillin, meticillin, mezlocillin, mezlocillin/sulbactam, nacubactam, nafcillin, oxacillin, panipenem, penamecillin, penicillin/novobiocin, penicillin/sulbactam, pheneticillin, phenoxymethylpenicillin, piperacillin, piperacillin/sulbactam, piperacillin/tazobactam, piridicillin, pivampicillin, pivmecillinam, procaine benzylpenicillin, propicillin, razupenem, ritipenem, ritipenem acoxil, sarmoxicillin, sulbactam, sulbenicillin, sultamicillin, talampicillin, tazobactam, tebipenem, temocillin, ticarcillin, ticarcillin/clavulanic acid) \"carbapenems\"(biapenem, doripenem, ertapenem, imipenem, imipenem/EDTA, imipenem/relebactam, meropenem, meropenem/nacubactam, meropenem/vaborbactam, panipenem, razupenem, ritipenem, ritipenem acoxil, tebipenem) \"cephalosporins\"(cefacetrile, cefaclor, cefadroxil, cefalexin, cefaloridine, cefalotin, cefamandole, cefapirin, cefatrizine, cefazedone, cefazolin, cefcapene, cefcapene pivoxil, cefdinir, cefditoren, cefditoren pivoxil, cefepime, cefepime/clavulanic acid, cefepime/tazobactam, cefetamet, cefetamet pivoxil, cefetecol, cefetrizole, cefixime, cefmenoxime, cefmetazole, cefodizime, cefonicid, cefoperazone, cefoperazone/sulbactam, ceforanide, cefoselis, cefotaxime, cefotaxime/clavulanic acid, cefotaxime/sulbactam, cefotetan, cefotiam, cefotiam hexetil, cefovecin, cefoxitin, cefoxitin screening, cefozopran, cefpimizole, cefpiramide, cefpirome, cefpodoxime, cefpodoxime proxetil, cefpodoxime/clavulanic acid, cefprozil, cefquinome, cefroxadine, cefsulodin, cefsumide, ceftaroline, ceftaroline/avibactam, ceftazidime, ceftazidime/avibactam, ceftazidime/clavulanic acid, cefteram, cefteram pivoxil, ceftezole, ceftibuten, ceftiofur, ceftizoxime, ceftizoxime alapivoxil, ceftobiprole, ceftobiprole medocaril, ceftolozane/tazobactam, ceftriaxone, ceftriaxone/beta-lactamase inhibitor, cefuroxime, cefuroxime axetil, cephradine, latamoxef, loracarbef) \"cephalosporins_1st\"(cefacetrile, cefadroxil, cefalexin, cefaloridine, cefalotin, cefapirin, cefatrizine, cefazedone, cefazolin, cefroxadine, ceftezole, cephradine) \"cephalosporins_2nd\"(cefaclor, cefamandole, cefmetazole, cefonicid, ceforanide, cefotetan, cefotiam, cefoxitin, cefoxitin screening, cefprozil, cefuroxime, cefuroxime axetil, loracarbef) \"cephalosporins_3rd\"(cefcapene, cefcapene pivoxil, cefdinir, cefditoren, cefditoren pivoxil, cefetamet, cefetamet pivoxil, cefixime, cefmenoxime, cefodizime, cefoperazone, cefoperazone/sulbactam, cefotaxime, cefotaxime/clavulanic acid, cefotaxime/sulbactam, cefotiam hexetil, cefovecin, cefpimizole, cefpiramide, cefpodoxime, cefpodoxime proxetil, cefpodoxime/clavulanic acid, cefsulodin, ceftazidime, ceftazidime/avibactam, ceftazidime/clavulanic acid, cefteram, cefteram pivoxil, ceftibuten, ceftiofur, ceftizoxime, ceftizoxime alapivoxil, ceftriaxone, ceftriaxone/beta-lactamase inhibitor, latamoxef) \"cephalosporins_4th\"(cefepime, cefepime/clavulanic acid, cefepime/tazobactam, cefetecol, cefoselis, cefozopran, cefpirome, cefquinome) \"cephalosporins_5th\"(ceftaroline, ceftaroline/avibactam, ceftobiprole, ceftobiprole medocaril, ceftolozane/tazobactam) \"cephalosporins_except_caz\"(cefacetrile, cefaclor, cefadroxil, cefalexin, cefaloridine, cefalotin, cefamandole, cefapirin, cefatrizine, cefazedone, cefazolin, cefcapene, cefcapene pivoxil, cefdinir, cefditoren, cefditoren pivoxil, cefepime, cefepime/clavulanic acid, cefepime/tazobactam, cefetamet, cefetamet pivoxil, cefetecol, cefetrizole, cefixime, cefmenoxime, cefmetazole, cefodizime, cefonicid, cefoperazone, cefoperazone/sulbactam, ceforanide, cefoselis, cefotaxime, cefotaxime/clavulanic acid, cefotaxime/sulbactam, cefotetan, cefotiam, cefotiam hexetil, cefovecin, cefoxitin, cefoxitin screening, cefozopran, cefpimizole, cefpiramide, cefpirome, cefpodoxime, cefpodoxime proxetil, cefpodoxime/clavulanic acid, cefprozil, cefquinome, cefroxadine, cefsulodin, cefsumide, ceftaroline, ceftaroline/avibactam, ceftazidime/avibactam, ceftazidime/clavulanic acid, cefteram, cefteram pivoxil, ceftezole, ceftibuten, ceftiofur, ceftizoxime, ceftizoxime alapivoxil, ceftobiprole, ceftobiprole medocaril, ceftolozane/tazobactam, ceftriaxone, ceftriaxone/beta-lactamase inhibitor, cefuroxime, cefuroxime axetil, cephradine, latamoxef, loracarbef) \"fluoroquinolones\"(besifloxacin, ciprofloxacin, clinafloxacin, danofloxacin, delafloxacin, difloxacin, enoxacin, enrofloxacin, finafloxacin, fleroxacin, garenoxacin, gatifloxacin, gemifloxacin, grepafloxacin, lascufloxacin, levofloxacin, levonadifloxacin, lomefloxacin, marbofloxacin, metioxate, miloxacin, moxifloxacin, nadifloxacin, nifuroquine, norfloxacin, ofloxacin, orbifloxacin, pazufloxacin, pefloxacin, pradofloxacin, premafloxacin, prulifloxacin, rufloxacin, sarafloxacin, sitafloxacin, sparfloxacin, temafloxacin, tilbroquinol, tioxacin, tosufloxacin, trovafloxacin) \"glycopeptides\"(avoparcin, dalbavancin, norvancomycin, oritavancin, ramoplanin, teicoplanin, teicoplanin-macromethod, telavancin, vancomycin, vancomycin-macromethod) \"glycopeptides_except_lipo\"(avoparcin, norvancomycin, ramoplanin, teicoplanin, teicoplanin-macromethod, vancomycin, vancomycin-macromethod) \"lincosamides\"(acetylmidecamycin, acetylspiramycin, clindamycin, gamithromycin, kitasamycin, lincomycin, meleumycin, nafithromycin, pirlimycin, primycin, solithromycin, tildipirosin, tilmicosin, tulathromycin, tylosin, tylvalosin) \"lipoglycopeptides\"(dalbavancin, oritavancin, telavancin) \"macrolides\"(acetylmidecamycin, acetylspiramycin, azithromycin, clarithromycin, dirithromycin, erythromycin, flurithromycin, gamithromycin, josamycin, kitasamycin, meleumycin, midecamycin, miocamycin, nafithromycin, oleandomycin, pirlimycin, primycin, rokitamycin, roxithromycin, solithromycin, spiramycin, telithromycin, tildipirosin, tilmicosin, troleandomycin, tulathromycin, tylosin, tylvalosin) \"oxazolidinones\"(cadazolid, cycloserine, linezolid, tedizolid, thiacetazone) \"penicillins\"(amoxicillin, amoxicillin/clavulanic acid, amoxicillin/sulbactam, ampicillin, ampicillin/sulbactam, apalcillin, aspoxicillin, avibactam, azidocillin, azlocillin, aztreonam, aztreonam/avibactam, aztreonam/nacubactam, bacampicillin, benzathine benzylpenicillin, benzathine phenoxymethylpenicillin, benzylpenicillin, carbenicillin, carindacillin, cefepime/nacubactam, ciclacillin, clometocillin, cloxacillin, dicloxacillin, epicillin, flucloxacillin, hetacillin, lenampicillin, mecillinam, metampicillin, meticillin, mezlocillin, mezlocillin/sulbactam, nacubactam, nafcillin, oxacillin, penamecillin, penicillin/novobiocin, penicillin/sulbactam, pheneticillin, phenoxymethylpenicillin, piperacillin, piperacillin/sulbactam, piperacillin/tazobactam, piridicillin, pivampicillin, pivmecillinam, procaine benzylpenicillin, propicillin, sarmoxicillin, sulbactam, sulbenicillin, sultamicillin, talampicillin, tazobactam, temocillin, ticarcillin, ticarcillin/clavulanic acid) \"polymyxins\"(colistin, polymyxin B, polymyxin B/polysorbate 80) \"quinolones\"(besifloxacin, cinoxacin, ciprofloxacin, clinafloxacin, danofloxacin, delafloxacin, difloxacin, enoxacin, enrofloxacin, finafloxacin, fleroxacin, flumequine, garenoxacin, gatifloxacin, gemifloxacin, grepafloxacin, lascufloxacin, levofloxacin, levonadifloxacin, lomefloxacin, marbofloxacin, metioxate, miloxacin, moxifloxacin, nadifloxacin, nalidixic acid, nemonoxacin, nifuroquine, nitroxoline, norfloxacin, ofloxacin, orbifloxacin, oxolinic acid, pazufloxacin, pefloxacin, pipemidic acid, piromidic acid, pradofloxacin, premafloxacin, prulifloxacin, rosoxacin, rufloxacin, sarafloxacin, sitafloxacin, sparfloxacin, temafloxacin, tilbroquinol, tioxacin, tosufloxacin, trovafloxacin) \"streptogramins\"(pristinamycin quinupristin/dalfopristin) \"tetracyclines\"(cetocycline, chlortetracycline, clomocycline, demeclocycline, doxycycline, eravacycline, lymecycline, metacycline, minocycline, omadacycline, oxytetracycline, penimepicycline, rolitetracycline, sarecycline, tetracycline, tigecycline) \"tetracyclines_except_tgc\"(cetocycline, chlortetracycline, clomocycline, demeclocycline, doxycycline, eravacycline, lymecycline, metacycline, minocycline, omadacycline, oxytetracycline, penimepicycline, rolitetracycline, sarecycline, tetracycline) \"trimethoprims\"(brodimoprim, sulfadiazine, sulfadiazine/tetroxoprim, sulfadiazine/trimethoprim, sulfadimethoxine, sulfadimidine, sulfadimidine/trimethoprim, sulfafurazole, sulfaisodimidine, sulfalene, sulfamazone, sulfamerazine, sulfamerazine/trimethoprim, sulfamethizole, sulfamethoxazole, sulfamethoxypyridazine, sulfametomidine, sulfametoxydiazine, sulfametrole/trimethoprim, sulfamoxole, sulfamoxole/trimethoprim, sulfanilamide, sulfaperin, sulfaphenazole, sulfapyridine, sulfathiazole, sulfathiourea, trimethoprim, trimethoprim/sulfamethoxazole) \"ureidopenicillins\"(azlocillin, mezlocillin, piperacillin, piperacillin/tazobactam)","code":""},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"","code":"x <- custom_eucast_rules(   AMC == \"R\" & genus == \"Klebsiella\" ~ aminopenicillins == \"R\",   AMC == \"I\" & genus == \"Klebsiella\" ~ aminopenicillins == \"I\" ) x #> A set of custom EUCAST rules: #>  #>   1. If AMC is \"R\" and genus is \"Klebsiella\" then set to  R : #>      amoxicillin (AMX), ampicillin (AMP) #>  #>   2. If AMC is \"I\" and genus is \"Klebsiella\" then set to  I : #>      amoxicillin (AMX), ampicillin (AMP)  # run the custom rule set (verbose = TRUE will return a logbook instead of the data set): eucast_rules(example_isolates,   rules = \"custom\",   custom_rules = x,   info = FALSE,   verbose = TRUE ) #> # A tibble: 8 × 9 #>     row col   mo_fullname     old   new   rule  rule_group rule_name rule_source #>   <int> <chr> <chr>           <ord> <chr> <chr> <chr>      <chr>     <chr>       #> 1    33 AMP   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 2    33 AMX   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 3    34 AMP   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 4    34 AMX   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 5   531 AMP   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 6   531 AMX   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 7  1485 AMP   Klebsiella oxy… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 8  1485 AMX   Klebsiella oxy… R     I     \"rep… Custom EU… Custom E… Object 'x'…  # combine rule sets x2 <- c(   x,   custom_eucast_rules(TZP == \"R\" ~ carbapenems == \"R\") ) x2 #> A set of custom EUCAST rules: #>  #>   1. If AMC is \"R\" and genus is \"Klebsiella\" then set to  R : #>      amoxicillin (AMX), ampicillin (AMP) #>  #>   2. If AMC is \"I\" and genus is \"Klebsiella\" then set to  I : #>      amoxicillin (AMX), ampicillin (AMP) #>  #>   3. If TZP is \"R\" then set to  R : #>      biapenem (BIA), doripenem (DOR), ertapenem (ETP), imipenem (IPM), #>      imipenem/EDTA (IPE), imipenem/relebactam (IMR), meropenem (MEM), #>      meropenem/nacubactam (MNC), meropenem/vaborbactam (MEV), panipenem (PAN), #>      razupenem (RZM), ritipenem (RIT), ritipenem acoxil (RIA), tebipenem (TBP)"},{"path":"https://msberends.github.io/AMR/reference/dosage.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with Treatment Dosages as Defined by EUCAST — dosage","title":"Data Set with Treatment Dosages as Defined by EUCAST — dosage","text":"EUCAST breakpoints used package based dosages data set. can retrieved eucast_dosage().","code":""},{"path":"https://msberends.github.io/AMR/reference/dosage.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with Treatment Dosages as Defined by EUCAST — dosage","text":"","code":"dosage"},{"path":"https://msberends.github.io/AMR/reference/dosage.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with Treatment Dosages as Defined by EUCAST — dosage","text":"tibble 503 observations 9 variables: ab Antibiotic ID used package (AMC), using official EARS-Net (European Antimicrobial Resistance Surveillance Network) codes available name Official name antimicrobial drug used WHONET/EARS-Net type Type dosage, either \"high_dosage\", \"standard_dosage\", \"uncomplicated_uti\" dose Dose, \"2 g\" \"25 mg/kg\" dose_times Number times dose must administered administration Route administration, either \"im\", \"iv\", \"oral\" notes Additional dosage notes original_txt Original text PDF file EUCAST eucast_version Version number EUCAST Clinical Breakpoints guideline dosages apply, either 13, 12, 11","code":""},{"path":"https://msberends.github.io/AMR/reference/dosage.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with Treatment Dosages as Defined by EUCAST — dosage","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/dosage.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with Treatment Dosages as Defined by EUCAST — dosage","text":"","code":"dosage #> # A tibble: 503 × 9 #>    ab   name            type  dose  dose_times administration notes original_txt #>    <ab> <chr>           <chr> <chr>      <int> <chr>          <chr> <chr>        #>  1 AMK  Amikacin        stan… 25-3…          1 iv             \"\"    25-30 mg/kg… #>  2 AMX  Amoxicillin     high… 2 g            6 iv             \"\"    2 g x 6 iv   #>  3 AMX  Amoxicillin     stan… 1 g            3 iv             \"\"    1 g x 3-4 iv #>  4 AMX  Amoxicillin     high… 0.75…          3 oral           \"\"    0.75-1 g x … #>  5 AMX  Amoxicillin     stan… 0.5 g          3 oral           \"\"    0.5 g x 3 o… #>  6 AMX  Amoxicillin     unco… 0.5 g          3 oral           \"\"    0.5 g x 3 o… #>  7 AMC  Amoxicillin/cl… high… 2 g …          3 iv             \"\"    (2 g amoxic… #>  8 AMC  Amoxicillin/cl… stan… 1 g …          3 iv             \"\"    (1 g amoxic… #>  9 AMC  Amoxicillin/cl… high… 0.87…          3 oral           \"\"    (0.875 g am… #> 10 AMC  Amoxicillin/cl… stan… 0.5 …          3 oral           \"\"    (0.5 g amox… #> # ℹ 493 more rows #> # ℹ 1 more variable: eucast_version <dbl>"},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":null,"dir":"Reference","previous_headings":"","what":"Apply EUCAST Rules — eucast_rules","title":"Apply EUCAST Rules — eucast_rules","text":"Apply rules clinical breakpoints intrinsic resistance defined European Committee Antimicrobial Susceptibility Testing (EUCAST, https://www.eucast.org), see Source. Use eucast_dosage() get data.frame advised dosages certain bug-drug combination, based dosage data set. improve interpretation antibiogram EUCAST rules applied, non-EUCAST rules can applied default, see Details.","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Apply EUCAST Rules — eucast_rules","text":"","code":"eucast_rules(   x,   col_mo = NULL,   info = interactive(),   rules = getOption(\"AMR_eucastrules\", default = c(\"breakpoints\", \"expert\")),   verbose = FALSE,   version_breakpoints = 12,   version_expertrules = 3.3,   ampc_cephalosporin_resistance = NA,   only_sir_columns = FALSE,   custom_rules = NULL,   ... )  eucast_dosage(ab, administration = \"iv\", version_breakpoints = 12)"},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Apply EUCAST Rules — eucast_rules","text":"EUCAST Expert Rules. Version 2.0, 2012. Leclercq et al. EUCAST expert rules antimicrobial susceptibility testing. Clin Microbiol Infect. 2013;19(2):141-60; doi:10.1111/j.1469-0691.2011.03703.x EUCAST Expert Rules, Intrinsic Resistance Exceptional Phenotypes Tables. Version 3.1, 2016. (link) EUCAST Intrinsic Resistance Unusual Phenotypes. Version 3.2, 2020. (link) EUCAST Intrinsic Resistance Unusual Phenotypes. Version 3.3, 2021. (link) EUCAST Breakpoint tables interpretation MICs zone diameters. Version 9.0, 2019. (link) EUCAST Breakpoint tables interpretation MICs zone diameters. Version 10.0, 2020. (link) EUCAST Breakpoint tables interpretation MICs zone diameters. Version 11.0, 2021. (link) EUCAST Breakpoint tables interpretation MICs zone diameters. Version 12.0, 2022. (link)","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Apply EUCAST Rules — eucast_rules","text":"x data set antibiotic columns, amox, AMX AMC col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). info logical indicate whether progress printed console - default print interactive sessions rules character vector specifies rules applied. Must one \"breakpoints\", \"expert\", \"\", \"custom\", \"\", defaults c(\"breakpoints\", \"expert\"). default value can set another value using package option AMR_eucastrules: options(AMR_eucastrules = \"\"). using \"custom\", sure fill argument custom_rules . Custom rules can created custom_eucast_rules(). verbose logical turn Verbose mode (default ). Verbose mode, function apply rules data, instead returns data set logbook form extensive info rows columns effected way. Using Verbose mode takes lot time. version_breakpoints version number use EUCAST Clinical Breakpoints guideline. Can \"12.0\", \"11.0\", \"10.0\". version_expertrules version number use EUCAST Expert Rules Intrinsic Resistance guideline. Can \"3.3\", \"3.2\", \"3.1\". ampc_cephalosporin_resistance character value applied cefotaxime, ceftriaxone ceftazidime AmpC de-repressed cephalosporin-resistant mutants - default NA. Currently works version_expertrules 3.2 higher; version 'EUCAST Expert Rules Enterobacterales' state results cefotaxime, ceftriaxone ceftazidime reported note, results suppressed (emptied) three drugs. value NA (default) argument remove results three drugs, e.g. value \"R\" make results drugs resistant. Use NULL FALSE alter results three drugs AmpC de-repressed cephalosporin-resistant mutants. Using TRUE equal using \"R\".  EUCAST Expert Rules v3.2, rule applies : Citrobacter braakii, Citrobacter freundii, Citrobacter gillenii, Citrobacter murliniae, Citrobacter rodenticum, Citrobacter sedlakii, Citrobacter werkmanii, Citrobacter youngae, Enterobacter, Hafnia alvei, Klebsiella aerogenes, Morganella morganii, Providencia, Serratia. only_sir_columns logical indicate whether antibiotic columns must detected transformed class sir (see .sir()) beforehand (default FALSE) custom_rules custom rules apply, created custom_eucast_rules() ... column name antibiotic, see section Antibiotics ab (vector ) text can coerced valid antibiotic drug code .ab() administration route administration, either \"im\", \"iv\", \"oral\"","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Apply EUCAST Rules — eucast_rules","text":"input x, possibly edited values antibiotics. , verbose = TRUE, data.frame original new values affected bug-drug combinations.","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Apply EUCAST Rules — eucast_rules","text":"Note: function translate MIC values SIR values. Use .sir() . Note: ampicillin (AMP, J01CA01) available amoxicillin (AMX, J01CA04) , latter used rules dependency ampicillin. drugs interchangeable comes expression antimicrobial resistance. file containing EUCAST rules located : https://github.com/msberends/AMR/blob/main/data-raw/eucast_rules.tsv.  Note: Old taxonomic names replaced current taxonomy applicable. example, Ochrobactrum anthropi renamed Brucella anthropi 2020; original EUCAST rules v3.1 v3.2 yet contain new taxonomic name. AMR package contains full microbial taxonomy updated December 11th, 2022, see microorganisms.","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"custom-rules","dir":"Reference","previous_headings":"","what":"Custom Rules","title":"Apply EUCAST Rules — eucast_rules","text":"Custom rules can created using custom_eucast_rules(), e.g.:","code":"x <- custom_eucast_rules(AMC == \"R\" & genus == \"Klebsiella\" ~ aminopenicillins == \"R\",                          AMC == \"I\" & genus == \"Klebsiella\" ~ aminopenicillins == \"I\")  eucast_rules(example_isolates, rules = \"custom\", custom_rules = x)"},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"-other-rules","dir":"Reference","previous_headings":"","what":"'Other' Rules","title":"Apply EUCAST Rules — eucast_rules","text":"processing, two non-EUCAST rules drug combinations can applied improve efficacy EUCAST rules, reliability data (analysis). rules : drug enzyme inhibitor set S drug without enzyme inhibitor S drug without enzyme inhibitor set R drug enzyme inhibitor R Important examples include amoxicillin amoxicillin/clavulanic acid, trimethoprim trimethoprim/sulfamethoxazole. Needless say, rules work, drugs must available data set. Since rules officially approved EUCAST, applied default. use rules, include \"\" rules argument, use eucast_rules(..., rules = \"\"). can also set package option AMR_eucastrules, .e. run options(AMR_eucastrules = \"\").","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"antibiotics","dir":"Reference","previous_headings":"","what":"Antibiotics","title":"Apply EUCAST Rules — eucast_rules","text":"define antibiotics column names, leave determine automatically guess_ab_col() input text (case-insensitive), use NULL skip column (e.g. TIC = NULL skip ticarcillin). Manually defined non-existing columns skipped warning. following antibiotics eligible functions eucast_rules() mdro(). shown format 'name (antimicrobial ID, ATC code)', sorted alphabetically: Amikacin (AMK, J01GB06), amoxicillin (AMX, J01CA04), amoxicillin/clavulanic acid (AMC, J01CR02), ampicillin (AMP, J01CA01), ampicillin/sulbactam (SAM, J01CR01), arbekacin (ARB, J01GB12), aspoxicillin (APX, J01CA19), azidocillin (AZD, J01CE04), azithromycin (AZM, J01FA10), azlocillin (AZL, J01CA09), aztreonam (ATM, J01DF01), bacampicillin (BAM, J01CA06), bekanamycin (BEK, J01GB13), benzathine benzylpenicillin (BNB, J01CE08), benzathine phenoxymethylpenicillin (BNP, J01CE10), benzylpenicillin (PEN, J01CE01), besifloxacin (BES, S01AE08), biapenem (BIA, J01DH05), carbenicillin (CRB, J01CA03), carindacillin (CRN, J01CA05), cefacetrile (CAC, J01DB10), cefaclor (CEC, J01DC04), cefadroxil (CFR, J01DB05), cefalexin (LEX, J01DB01), cefaloridine (RID, J01DB02), cefalotin (CEP, J01DB03), cefamandole (MAN, J01DC03), cefapirin (HAP, J01DB08), cefatrizine (CTZ, J01DB07), cefazedone (CZD, J01DB06), cefazolin (CZO, J01DB04), cefcapene (CCP, J01DD17), cefdinir (CDR, J01DD15), cefditoren (DIT, J01DD16), cefepime (FEP, J01DE01), cefetamet (CAT, J01DD10), cefixime (CFM, J01DD08), cefmenoxime (CMX, J01DD05), cefmetazole (CMZ, J01DC09), cefodizime (DIZ, J01DD09), cefonicid (CID, J01DC06), cefoperazone (CFP, J01DD12), cefoperazone/sulbactam (CSL, J01DD62), ceforanide (CND, J01DC11), cefotaxime (CTX, J01DD01), cefotaxime/clavulanic acid (CTC, J01DD51), cefotetan (CTT, J01DC05), cefotiam (CTF, J01DC07), cefoxitin (FOX, J01DC01), cefozopran (ZOP, J01DE03), cefpiramide (CPM, J01DD11), cefpirome (CPO, J01DE02), cefpodoxime (CPD, J01DD13), cefprozil (CPR, J01DC10), cefroxadine (CRD, J01DB11), cefsulodin (CFS, J01DD03), ceftaroline (CPT, J01DI02), ceftazidime (CAZ, J01DD02), ceftazidime/clavulanic acid (CCV, J01DD52), cefteram (CEM, J01DD18), ceftezole (CTL, J01DB12), ceftibuten (CTB, J01DD14), ceftizoxime (CZX, J01DD07), ceftobiprole medocaril (CFM1, J01DI01), ceftolozane/tazobactam (CZT, J01DI54), ceftriaxone (CRO, J01DD04), ceftriaxone/beta-lactamase inhibitor (CEB, J01DD63), cefuroxime (CXM, J01DC02), cephradine (CED, J01DB09), chloramphenicol (CHL, J01BA01), ciprofloxacin (CIP, J01MA02), clarithromycin (CLR, J01FA09), clindamycin (CLI, J01FF01), clometocillin (CLM, J01CE07), cloxacillin (CLO, J01CF02), colistin (COL, J01XB01), cycloserine (CYC, J04AB01), dalbavancin (DAL, J01XA04), daptomycin (DAP, J01XX09), delafloxacin (DFX, J01MA23), dibekacin (DKB, J01GB09), dicloxacillin (DIC, J01CF01), dirithromycin (DIR, J01FA13), doripenem (DOR, J01DH04), doxycycline (DOX, J01AA02), enoxacin (ENX, J01MA04), epicillin (EPC, J01CA07), ertapenem (ETP, J01DH03), erythromycin (ERY, J01FA01), fleroxacin (FLE, J01MA08), flucloxacillin (FLC, J01CF05), flurithromycin (FLR1, J01FA14), fosfomycin (FOS, J01XX01), framycetin (FRM, D09AA01), fusidic acid (FUS, J01XC01), garenoxacin (GRN, J01MA19), gatifloxacin (GAT, J01MA16), gemifloxacin (GEM, J01MA15), gentamicin (GEN, J01GB03), grepafloxacin (GRX, J01MA11), hetacillin (HET, J01CA18), imipenem (IPM, J01DH51), imipenem/relebactam (IMR, J01DH56), isepamicin (ISE, J01GB11), josamycin (JOS, J01FA07), kanamycin (KAN, J01GB04), lascufloxacin (LSC, J01MA25), latamoxef (LTM, J01DD06), levofloxacin (LVX, J01MA12), levonadifloxacin (LND, J01MA24), lincomycin (LIN, J01FF02), linezolid (LNZ, J01XX08), lomefloxacin (LOM, J01MA07), loracarbef (LOR, J01DC08), mecillinam (MEC, J01CA11), meropenem (MEM, J01DH02), meropenem/vaborbactam (MEV, J01DH52), metampicillin (MTM, J01CA14), meticillin (MET, J01CF03), mezlocillin (MEZ, J01CA10), micronomicin (MCR, S01AA22), midecamycin (MID, J01FA03), minocycline (MNO, J01AA08), miocamycin (MCM, J01FA11), moxifloxacin (MFX, J01MA14), nadifloxacin (NAD, D10AF05), nafcillin (NAF, J01CF06), nalidixic acid (NAL, J01MB02), neomycin (NEO, J01GB05), netilmicin (NET, J01GB07), nitrofurantoin (NIT, J01XE01), norfloxacin (, J01MA06), ofloxacin (OFX, J01MA01), oleandomycin (OLE, J01FA05), oritavancin (ORI, J01XA05), oxacillin (OXA, J01CF04), panipenem (PAN, J01DH55), pazufloxacin (PAZ, J01MA18), pefloxacin (PEF, J01MA03), penamecillin (PNM, J01CE06), pheneticillin (PHE, J01CE05), phenoxymethylpenicillin (PHN, J01CE02), piperacillin (PIP, J01CA12), piperacillin/tazobactam (TZP, J01CR05), pivampicillin (PVM, J01CA02), pivmecillinam (PME, J01CA08), plazomicin (PLZ, J01GB14), polymyxin B (PLB, J01XB02), pristinamycin (PRI, J01FG01), procaine benzylpenicillin (PRB, J01CE09), propicillin (PRP, J01CE03), prulifloxacin (PRU, J01MA17), quinupristin/dalfopristin (QDA, J01FG02), ribostamycin (RST, J01GB10), rifampicin (RIF, J04AB02), rokitamycin (ROK, J01FA12), roxithromycin (RXT, J01FA06), rufloxacin (RFL, J01MA10), sisomicin (SIS, J01GB08), sitafloxacin (SIT, J01MA21), solithromycin (SOL, J01FA16), sparfloxacin (SPX, J01MA09), spiramycin (SPI, J01FA02), streptoduocin (STR, J01GA02), streptomycin (STR1, J01GA01), sulbactam (SUL, J01CG01), sulbenicillin (SBC, J01CA16), sulfadiazine (SDI, J01EC02), sulfadiazine/trimethoprim (SLT1, J01EE02), sulfadimethoxine (SUD, J01ED01), sulfadimidine (SDM, J01EB03), sulfadimidine/trimethoprim (SLT2, J01EE05), sulfafurazole (SLF, J01EB05), sulfaisodimidine (SLF1, J01EB01), sulfalene (SLF2, J01ED02), sulfamazone (SZO, J01ED09), sulfamerazine (SLF3, J01ED07), sulfamerazine/trimethoprim (SLT3, J01EE07), sulfamethizole (SLF4, J01EB02), sulfamethoxazole (SMX, J01EC01), sulfamethoxypyridazine (SLF5, J01ED05), sulfametomidine (SLF6, J01ED03), sulfametoxydiazine (SLF7, J01ED04), sulfametrole/trimethoprim (SLT4, J01EE03), sulfamoxole (SLF8, J01EC03), sulfamoxole/trimethoprim (SLT5, J01EE04), sulfanilamide (SLF9, J01EB06), sulfaperin (SLF10, J01ED06), sulfaphenazole (SLF11, J01ED08), sulfapyridine (SLF12, J01EB04), sulfathiazole (SUT, J01EB07), sulfathiourea (SLF13, J01EB08), sultamicillin (SLT6, J01CR04), talampicillin (TAL, J01CA15), tazobactam (TAZ, J01CG02), tebipenem (TBP, J01DH06), tedizolid (TZD, J01XX11), teicoplanin (TEC, J01XA02), telavancin (TLV, J01XA03), telithromycin (TLT, J01FA15), temafloxacin (TMX, J01MA05), temocillin (TEM, J01CA17), tetracycline (TCY, J01AA07), ticarcillin (TIC, J01CA13), ticarcillin/clavulanic acid (TCC, J01CR03), tigecycline (TGC, J01AA12), tilbroquinol (TBQ, P01AA05), tobramycin (TOB, J01GB01), tosufloxacin (TFX, J01MA22), trimethoprim (TMP, J01EA01), trimethoprim/sulfamethoxazole (SXT, J01EE01), troleandomycin (TRL, J01FA08), trovafloxacin (TVA, J01MA13), vancomycin (VAN, J01XA01)","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Apply EUCAST Rules — eucast_rules","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Apply EUCAST Rules — eucast_rules","text":"","code":"# \\donttest{ a <- data.frame(   mo = c(     \"Staphylococcus aureus\",     \"Enterococcus faecalis\",     \"Escherichia coli\",     \"Klebsiella pneumoniae\",     \"Pseudomonas aeruginosa\"   ),   VAN = \"-\", # Vancomycin   AMX = \"-\", # Amoxicillin   COL = \"-\", # Colistin   CAZ = \"-\", # Ceftazidime   CXM = \"-\", # Cefuroxime   PEN = \"S\", # Benzylpenicillin   FOX = \"S\", # Cefoxitin   stringsAsFactors = FALSE )  head(a) #>                       mo VAN AMX COL CAZ CXM PEN FOX #> 1  Staphylococcus aureus   -   -   -   -   -   S   S #> 2  Enterococcus faecalis   -   -   -   -   -   S   S #> 3       Escherichia coli   -   -   -   -   -   S   S #> 4  Klebsiella pneumoniae   -   -   -   -   -   S   S #> 5 Pseudomonas aeruginosa   -   -   -   -   -   S   S   # apply EUCAST rules: some results wil be changed b <- eucast_rules(a) #> Warning: in eucast_rules(): not all columns with antimicrobial results are of #> class 'sir'. Transform them on beforehand, with e.g.: #>   - a %>% as.sir(CXM:AMX) #>   - a %>% mutate_if(is_sir_eligible, as.sir) #>   - a %>% mutate(across(where(is_sir_eligible), as.sir))  head(b) #>                       mo VAN AMX COL CAZ CXM PEN FOX #> 1  Staphylococcus aureus   -   S   R   S   S   S   S #> 2  Enterococcus faecalis   -   -   R   R   R   S   R #> 3       Escherichia coli   R   -   -   -   -   R   S #> 4  Klebsiella pneumoniae   R   R   -   -   -   R   S #> 5 Pseudomonas aeruginosa   R   R   -   -   R   R   R   # do not apply EUCAST rules, but rather get a data.frame # containing all details about the transformations: c <- eucast_rules(a, verbose = TRUE) #> Warning: in eucast_rules(): not all columns with antimicrobial results are of #> class 'sir'. Transform them on beforehand, with e.g.: #>   - a %>% as.sir(CXM:AMX) #>   - a %>% mutate_if(is_sir_eligible, as.sir) #>   - a %>% mutate(across(where(is_sir_eligible), as.sir)) head(c) #>   row col           mo_fullname old new rule   rule_group #> 1   1 AMX Staphylococcus aureus   -   S       Breakpoints #> 2   1 CXM Staphylococcus aureus   -   S       Breakpoints #> 3   1 CAZ Staphylococcus aureus   R   S      Expert Rules #> 4   1 CAZ Staphylococcus aureus   -   R      Expert Rules #> 5   1 COL Staphylococcus aureus   -   R      Expert Rules #> 6   2 CAZ Enterococcus faecalis   -   R      Expert Rules #>                                                 rule_name #> 1                                          Staphylococcus #> 2                                          Staphylococcus #> 3                          Expert Rules on Staphylococcus #> 4 Table 4: Intrinsic resistance in gram-positive bacteria #> 5 Table 4: Intrinsic resistance in gram-positive bacteria #> 6 Table 4: Intrinsic resistance in gram-positive bacteria #>                                                                                 rule_source #> 1                                           'EUCAST Clinical Breakpoint Tables' v12.0, 2022 #> 2                                           'EUCAST Clinical Breakpoint Tables' v12.0, 2022 #> 3 'EUCAST Expert Rules' and 'EUCAST Intrinsic Resistance and Unusual Phenotypes' v3.3, 2021 #> 4 'EUCAST Expert Rules' and 'EUCAST Intrinsic Resistance and Unusual Phenotypes' v3.3, 2021 #> 5 'EUCAST Expert Rules' and 'EUCAST Intrinsic Resistance and Unusual Phenotypes' v3.3, 2021 #> 6 'EUCAST Expert Rules' and 'EUCAST Intrinsic Resistance and Unusual Phenotypes' v3.3, 2021 # }  # Dosage guidelines:  eucast_dosage(c(\"tobra\", \"genta\", \"cipro\"), \"iv\") #> ℹ Dosages for antimicrobial drugs, as meant for 'EUCAST Clinical Breakpoint #>   Tables' v12.0 (2022). This note will be shown once per session. #> # A tibble: 3 × 4 #>   ab   name          standard_dosage  high_dosage  #>   <ab> <chr>         <chr>            <chr>        #> 1 TOB  Tobramycin    6-7 mg/kg x 1 iv NA           #> 2 GEN  Gentamicin    6-7 mg/kg x 1 iv NA           #> 3 CIP  Ciprofloxacin 0.4 g x 2 iv     0.4 g x 3 iv  eucast_dosage(c(\"tobra\", \"genta\", \"cipro\"), \"iv\", version_breakpoints = 10) #> ℹ Dosages for antimicrobial drugs, as meant for 'EUCAST Clinical Breakpoint #>   Tables' v10.0 (2020). This note will be shown once per session. #> # A tibble: 3 × 4 #>   ab   name          standard_dosage  high_dosage  #>   <ab> <chr>         <chr>            <chr>        #> 1 TOB  Tobramycin    6-7 mg/kg x 1 iv NA           #> 2 GEN  Gentamicin    6-7 mg/kg x 1 iv NA           #> 3 CIP  Ciprofloxacin 0.4 g x 2 iv     0.4 g x 3 iv"},{"path":"https://msberends.github.io/AMR/reference/example_isolates.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with 2 000 Example Isolates — example_isolates","title":"Data Set with 2 000 Example Isolates — example_isolates","text":"data set containing 2 000 microbial isolates full antibiograms. data set contains randomised fictitious data, reflects reality can used practise AMR data analysis. examples, please read tutorial website.","code":""},{"path":"https://msberends.github.io/AMR/reference/example_isolates.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with 2 000 Example Isolates — example_isolates","text":"","code":"example_isolates"},{"path":"https://msberends.github.io/AMR/reference/example_isolates.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with 2 000 Example Isolates — example_isolates","text":"tibble 2 000 observations 46 variables: date Date receipt laboratory patient ID patient age Age patient gender Gender patient, either \"F\" \"M\" ward Ward type patient admitted, either \"Clinical\", \"ICU\", \"Outpatient\" mo ID microorganism created .mo(), see also microorganisms data set PEN:RIF 40 different antibiotics class sir (see .sir()); column names occur antibiotics data set can translated set_ab_names() ab_name()","code":""},{"path":"https://msberends.github.io/AMR/reference/example_isolates.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with 2 000 Example Isolates — example_isolates","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/example_isolates.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with 2 000 Example Isolates — example_isolates","text":"","code":"example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …"},{"path":"https://msberends.github.io/AMR/reference/example_isolates_unclean.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with Unclean Data — example_isolates_unclean","title":"Data Set with Unclean Data — example_isolates_unclean","text":"data set containing 3 000 microbial isolates cleaned consequently ready AMR data analysis. data set can used practice.","code":""},{"path":"https://msberends.github.io/AMR/reference/example_isolates_unclean.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with Unclean Data — example_isolates_unclean","text":"","code":"example_isolates_unclean"},{"path":"https://msberends.github.io/AMR/reference/example_isolates_unclean.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with Unclean Data — example_isolates_unclean","text":"tibble 3 000 observations 8 variables: patient_id ID patient date date receipt laboratory hospital ID hospital, C bacteria info microorganism can transformed .mo(), see also microorganisms AMX:GEN 4 different antibiotics transformed .sir()","code":""},{"path":"https://msberends.github.io/AMR/reference/example_isolates_unclean.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with Unclean Data — example_isolates_unclean","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/example_isolates_unclean.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with Unclean Data — example_isolates_unclean","text":"","code":"example_isolates_unclean #> # A tibble: 3,000 × 8 #>    patient_id hospital date       bacteria      AMX   AMC   CIP   GEN   #>    <chr>      <chr>    <date>     <chr>         <chr> <chr> <chr> <chr> #>  1 J3         A        2012-11-21 E. coli       R     I     S     S     #>  2 R7         A        2018-04-03 K. pneumoniae R     I     S     S     #>  3 P3         A        2014-09-19 E. coli       R     S     S     S     #>  4 P10        A        2015-12-10 E. coli       S     I     S     S     #>  5 B7         A        2015-03-02 E. coli       S     S     S     S     #>  6 W3         A        2018-03-31 S. aureus     R     S     R     S     #>  7 J8         A        2016-06-14 E. coli       R     S     S     S     #>  8 M3         A        2015-10-25 E. coli       R     S     S     S     #>  9 J3         A        2019-06-19 E. coli       S     S     S     S     #> 10 G6         A        2015-04-27 S. aureus     S     S     S     S     #> # ℹ 2,990 more rows"},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":null,"dir":"Reference","previous_headings":"","what":"Determine First Isolates — first_isolate","title":"Determine First Isolates — first_isolate","text":"Determine first isolates microorganisms every patient per episode (needed) per specimen type. functions support four methods summarised Hindler et al. 2007 (doi:10.1086/511864 ). determine patient episodes necessarily based microorganisms, use is_new_episode() also supports grouping dplyr package.","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Determine First Isolates — first_isolate","text":"","code":"first_isolate(   x = NULL,   col_date = NULL,   col_patient_id = NULL,   col_mo = NULL,   col_testcode = NULL,   col_specimen = NULL,   col_icu = NULL,   col_keyantimicrobials = NULL,   episode_days = 365,   testcodes_exclude = NULL,   icu_exclude = FALSE,   specimen_group = NULL,   type = \"points\",   method = c(\"phenotype-based\", \"episode-based\", \"patient-based\", \"isolate-based\"),   ignore_I = TRUE,   points_threshold = 2,   info = interactive(),   include_unknown = FALSE,   include_untested_sir = TRUE,   ... )  filter_first_isolate(   x = NULL,   col_date = NULL,   col_patient_id = NULL,   col_mo = NULL,   episode_days = 365,   method = c(\"phenotype-based\", \"episode-based\", \"patient-based\", \"isolate-based\"),   ... )"},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Determine First Isolates — first_isolate","text":"Methodology function strictly based : M39 Analysis Presentation Cumulative Antimicrobial Susceptibility Test Data, 5th Edition, 2022, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/microbiology/documents/m39/. Hindler JF Stelling J (2007). Analysis Presentation Cumulative Antibiograms: New Consensus Guideline Clinical Laboratory Standards Institute. Clinical Infectious Diseases, 44(6), 867-873. doi:10.1086/511864","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Determine First Isolates — first_isolate","text":"x data.frame containing isolates. Can left blank automatic determination, see Examples. col_date column name result date (date received lab) - default first column date class col_patient_id column name unique IDs patients - default first column starts 'patient' 'patid' (case insensitive) col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). col_testcode column name test codes. Use col_testcode = NULL exclude certain test codes (test codes screening). case testcodes_exclude ignored. col_specimen column name specimen type group col_icu column name logicals (TRUE/FALSE) whether ward department Intensive Care Unit (ICU). can also logical vector length rows x. col_keyantimicrobials (useful method = \"phenotype-based\") column name key antimicrobials determine first isolates, see key_antimicrobials(). default first column starts 'key' followed 'ab' 'antibiotics' 'antimicrobials' (case insensitive). Use col_keyantimicrobials = FALSE prevent . Can also output key_antimicrobials(). episode_days episode days genus/species combination determined 'first isolate' . default 365 days based guideline CLSI, see Source. testcodes_exclude character vector test codes excluded (case-insensitive) icu_exclude logical indicate whether ICU isolates excluded (rows value TRUE column set col_icu) specimen_group value column set col_specimen filter type type determine weighed isolates; can \"keyantimicrobials\" \"points\", see Details method method apply, either \"phenotype-based\", \"episode-based\", \"patient-based\" \"isolate-based\" (can abbreviated), see Details. default \"phenotype-based\" antimicrobial test results present data, \"episode-based\" otherwise. ignore_I logical indicate whether antibiotic interpretations \"\" ignored type = \"keyantimicrobials\", see Details points_threshold minimum number points require differences antibiogram lead inclusion isolate type = \"points\", see Details info logical indicate info printed - default TRUE interactive mode include_unknown logical indicate whether 'unknown' microorganisms included , .e. microbial code \"UNKNOWN\", defaults FALSE. WHONET users, means records organism code \"con\" (contamination) excluded default. Isolates microbial ID NA always excluded first isolate. include_untested_sir logical indicate whether also rows without antibiotic results still eligible becoming first isolate. Use include_untested_sir = FALSE always return FALSE rows. checks data set columns class sir consequently requires transforming columns antibiotic results using .sir() first. ... arguments passed first_isolate() using filter_first_isolate(), otherwise arguments passed key_antimicrobials() (universal, gram_negative, gram_positive)","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Determine First Isolates — first_isolate","text":"logical vector","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Determine First Isolates — first_isolate","text":"conduct epidemiological analyses antimicrobial resistance data, -called first isolates included prevent overestimation underestimation antimicrobial resistance. Different methods can used , see . functions context-aware. means x argument can left blank used inside data.frame call, see Examples. first_isolate() function wrapper around is_new_episode() function, efficient data sets containing microorganism codes names. isolates microbial ID NA excluded first isolate.","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"different-methods","dir":"Reference","previous_headings":"","what":"Different methods","title":"Determine First Isolates — first_isolate","text":"According Hindler et al. (2007, doi:10.1086/511864 ), different methods (algorithms) select first isolates increasing reliability: isolate-based, patient-based, episode-based phenotype-based. methods select combination taxonomic genus species (subspecies). mentioned methods covered first_isolate() function:","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"isolate-based","dir":"Reference","previous_headings":"","what":"Isolate-based","title":"Determine First Isolates — first_isolate","text":"method require selection, isolates included. , however, respect arguments set first_isolate() function. example, default setting include_unknown (FALSE) omit selection rows without microbial ID.","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"patient-based","dir":"Reference","previous_headings":"","what":"Patient-based","title":"Determine First Isolates — first_isolate","text":"include every genus-species combination per patient , set episode_days Inf. Although often inappropriate, method makes sure duplicate isolates selected patient. large longitudinal data set, mean isolates excluded found years initial isolate.","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"episode-based","dir":"Reference","previous_headings":"","what":"Episode-based","title":"Determine First Isolates — first_isolate","text":"include every genus-species combination per patient episode , set episode_days sensible number days. Depending type analysis, 14, 30, 60 365. Short episodes common analysing specific hospital ward data, long episodes common analysing regional national data. common method correct duplicate isolates. Patients categorised episodes based ID dates (e.g., date specimen receipt laboratory result). common method, take account antimicrobial test results. means e.g. methicillin-resistant Staphylococcus aureus (MRSA) isolate differentiated wildtype Staphylococcus aureus isolate.","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"phenotype-based","dir":"Reference","previous_headings":"","what":"Phenotype-based","title":"Determine First Isolates — first_isolate","text":"reliable method, since also weighs antibiogram (antimicrobial test results) yielding -called 'first weighted isolates'. two different methods weigh antibiogram: Using type = \"points\" argument points_threshold (default) method weighs antimicrobial drugs available data set. difference S R (vice versa) counts 0.5 points, difference S R (vice versa) counts 1 point. sum points exceeds points_threshold, defaults 2, isolate selected first weighted isolate. antimicrobials internally selected using all_antimicrobials() function. output function need passed first_isolate() function. Using type = \"keyantimicrobials\" argument ignore_I method weighs specific antimicrobial drugs, called key antimicrobials. difference S R (vice versa) key antimicrobials select isolate first weighted isolate. ignore_I = FALSE, also differences S R (vice versa) lead . Key antimicrobials internally selected using key_antimicrobials() function, can also added manually variable data set col_keyantimicrobials argument. Another option pass output key_antimicrobials() function directly col_keyantimicrobials argument. default method phenotype-based (using type = \"points\") episode-based (using episode_days = 365). makes sure every genus-species combination selected per patient per year, taking account antimicrobial test results. antimicrobial test results available data set, episode-based method applied default.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Determine First Isolates — first_isolate","text":"","code":"# `example_isolates` is a data set available in the AMR package. # See ?example_isolates.  example_isolates[first_isolate(info = TRUE), ] #> ℹ Determining first isolates using an episode length of 365 days #> ℹ Using column 'date' as input for col_date. #> ℹ Using column 'patient' as input for col_patient_id. #> ℹ Basing inclusion on all antimicrobial results, using a points threshold #>   of 2 #> ℹ Excluding 16 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 1,373 'phenotype-based' first isolates (68.7% of total where a #>    microbial ID was available) #> # A tibble: 1,373 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  3 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  4 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #>  5 2002-01-17 495616     67 M      Clinical B_STPHY_EPDR R     NA    S     NA    #>  6 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  7 2002-01-21 462081     75 F      Clinical B_CTRBC_FRND R     NA    NA    R     #>  8 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL R     NA    NA    NA    #>  9 2002-02-03 481442     76 M      ICU      B_STPHY_CONS R     NA    S     NA    #> 10 2002-02-05 023456     50 M      Clinical B_STPHY_HMNS S     NA    S     NA    #> # ℹ 1,363 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: 434 × 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    #> # ℹ 424 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,373 'phenotype-based' first isolates (68.7% of total where a #>    microbial ID was available) #> # A tibble: 1,373 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  3 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  4 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #>  5 2002-01-17 495616     67 M      Clinical B_STPHY_EPDR R     NA    S     NA    #>  6 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  7 2002-01-21 462081     75 F      Clinical B_CTRBC_FRND R     NA    NA    R     #>  8 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL R     NA    NA    NA    #>  9 2002-02-03 481442     76 M      ICU      B_STPHY_CONS R     NA    S     NA    #> 10 2002-02-05 023456     50 M      Clinical B_STPHY_HMNS S     NA    S     NA    #> # ℹ 1,363 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,373 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  3 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  4 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #>  5 2002-01-17 495616     67 M      Clinical B_STPHY_EPDR R     NA    S     NA    #>  6 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  7 2002-01-21 462081     75 F      Clinical B_CTRBC_FRND R     NA    NA    R     #>  8 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL R     NA    NA    NA    #>  9 2002-02-03 481442     76 M      ICU      B_STPHY_CONS R     NA    S     NA    #> 10 2002-02-05 023456     50 M      Clinical B_STPHY_HMNS S     NA    S     NA    #> # ℹ 1,363 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 857 'phenotype-based' first isolates (69.4% of total where a #>    microbial ID was available) #>  #> Group: ward = \"ICU\" #> ℹ Excluding 6 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 447 'phenotype-based' first isolates (69.2% of total where a #>    microbial ID was available) #>  #> Group: ward = \"Outpatient\" #> ℹ Excluding 1 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 98 'phenotype-based' first isolates (81.7% of total where a #>    microbial ID was available) #> # A tibble: 2,000 × 5 #> # Groups:   ward [3] #>    ward     date       patient mo           first #>    <chr>    <date>     <chr>   <mo>         <lgl> #>  1 Clinical 2002-01-02 A77334  B_ESCHR_COLI TRUE  #>  2 Clinical 2002-01-03 A77334  B_ESCHR_COLI FALSE #>  3 ICU      2002-01-07 067927  B_STPHY_EPDR TRUE  #>  4 ICU      2002-01-07 067927  B_STPHY_EPDR FALSE #>  5 ICU      2002-01-13 067927  B_STPHY_EPDR FALSE #>  6 ICU      2002-01-13 067927  B_STPHY_EPDR FALSE #>  7 Clinical 2002-01-14 462729  B_STPHY_AURS TRUE  #>  8 Clinical 2002-01-14 462729  B_STPHY_AURS FALSE #>  9 ICU      2002-01-16 067927  B_STPHY_EPDR FALSE #> 10 ICU      2002-01-17 858515  B_STPHY_EPDR TRUE  #> # ℹ 1,990 more rows # }"},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":null,"dir":"Reference","previous_headings":"","what":"G-test for Count Data — g.test","title":"G-test for Count Data — g.test","text":"g.test() performs chi-squared contingency table tests goodness--fit tests, just like chisq.test() reliable (1). G-test can used see whether number observations category fits theoretical expectation (called G-test goodness--fit), see whether proportions one variable different different values variable (called G-test independence).","code":""},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"G-test for Count Data — g.test","text":"","code":"g.test(x, y = NULL, p = rep(1/length(x), length(x)), rescale.p = FALSE)"},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"G-test for Count Data — g.test","text":"code function identical chisq.test(), except : calculation statistic changed \\(2 * sum(x * log(x / E))\\) Yates' continuity correction removed apply G-test possibility simulate p values simulate.p.value removed","code":""},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"G-test for Count Data — g.test","text":"x numeric vector matrix. x y can also     factors. y numeric vector; ignored x matrix.      x factor, y factor length. p vector probabilities length x.     error given entry p negative. rescale.p logical scalar; TRUE p rescaled     (necessary) sum 1.  rescale.p FALSE,     p sum 1, error given.","code":""},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"G-test for Count Data — g.test","text":"list class \"htest\" containing following   components: statistic value chi-squared test statistic. parameter degrees freedom approximate     chi-squared distribution test statistic, NA     p-value computed Monte Carlo simulation. p.value p-value test. method character string indicating type test     performed, whether Monte Carlo simulation continuity     correction used. data.name character string giving name(s) data. observed observed counts. expected expected counts null hypothesis. residuals Pearson residuals,     (observed - expected) / sqrt(expected). stdres standardized residuals,     (observed - expected) / sqrt(V), V residual cell variance (Agresti, 2007,     section 2.4.5 case x matrix, n * p * (1 - p) otherwise).","code":""},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"G-test for Count Data — g.test","text":"x matrix one row column, x vector y given, goodness--fit test performed (x treated one-dimensional contingency table). entries x must non-negative integers. case, hypothesis tested whether population probabilities equal p, equal p given. x matrix least two rows columns, taken two-dimensional contingency table: entries x must non-negative integers.  Otherwise, x y must vectors factors length; cases missing values removed, objects coerced factors, contingency table computed .  Pearson's chi-squared test performed null hypothesis joint distribution cell counts 2-dimensional contingency table product row column marginals. p-value computed asymptotic chi-squared distribution test statistic. contingency table case simulation done random sampling set contingency tables given marginals, works marginals strictly positive. Note usual sampling situation assumed chi-squared test (G-test) rather Fisher's exact test. goodness--fit case simulation done random sampling discrete distribution specified p, sample size n = sum(x). simulation done R may slow.","code":""},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"g-test-of-goodness-of-fit-likelihood-ratio-test-","dir":"Reference","previous_headings":"","what":"G-test Of Goodness-of-Fit (Likelihood Ratio Test)","title":"G-test for Count Data — g.test","text":"Use G-test goodness--fit one nominal variable two values (male female, red, pink white flowers). compare observed counts numbers observations category expected counts, calculate using kind theoretical expectation (1:1 sex ratio 1:2:1 ratio genetic cross). expected number observations category small, G-test may give inaccurate results, use exact test instead (fisher.test()). G-test goodness--fit alternative chi-square test goodness--fit (chisq.test()); tests advantages disadvantages, results two tests usually similar.","code":""},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"g-test-of-independence","dir":"Reference","previous_headings":"","what":"G-test of Independence","title":"G-test for Count Data — g.test","text":"Use G-test independence two nominal variables, two possible values. want know whether proportions one variable different among values variable. also possible G-test independence two nominal variables. example, Jackson et al. (2013) also data children 3, analysis old vs. young, thigh vs. arm, reaction vs. reaction, analyzed together. Fisher's exact test (fisher.test()) exact test, G-test still approximation. 2x2 table, Fisher's Exact test may slower still run seconds, even sum observations multiple millions. G-test independence alternative chi-square test independence (chisq.test()), give approximately results.","code":""},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"how-the-test-works","dir":"Reference","previous_headings":"","what":"How the Test Works","title":"G-test for Count Data — g.test","text":"Unlike exact test goodness--fit (fisher.test()), G-test directly calculate probability obtaining observed results something extreme. Instead, like almost statistical tests, G-test intermediate step; uses data calculate test statistic measures far observed data null expectation. use mathematical relationship, case chi-square distribution, estimate probability obtaining value test statistic. G-test uses log ratio two likelihoods test statistic, also called likelihood ratio test log-likelihood ratio test. formula calculate G-statistic : \\(G = 2 * sum(x * log(x / E))\\) E expected values. Since chi-square distributed, p value can calculated R :   df degrees freedom. two categories want find ones significantly different null expectation, can use method testing category vs. sum categories, Bonferroni correction. use G-tests category, course.","code":"p <- stats::pchisq(G, df, lower.tail = FALSE)"},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"references","dir":"Reference","previous_headings":"","what":"References","title":"G-test for Count Data — g.test","text":"McDonald, J.H. 2014. Handbook Biological Statistics (3rd ed.). Sparky House Publishing, Baltimore, Maryland. http://www.biostathandbook.com/gtestgof.html.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"G-test for Count Data — g.test","text":"","code":"# = EXAMPLE 1 = # Shivrain et al. (2006) crossed clearfield rice (which are resistant # to the herbicide imazethapyr) with red rice (which are susceptible to # imazethapyr). They then crossed the hybrid offspring and examined the # F2 generation, where they found 772 resistant plants, 1611 moderately # resistant plants, and 737 susceptible plants. If resistance is controlled # by a single gene with two co-dominant alleles, you would expect a 1:2:1 # ratio.  x <- c(772, 1611, 737) g.test(x, p = c(1, 2, 1) / 4) #>  #> \tG-test of goodness-of-fit (likelihood ratio test) #>  #> data:  x #> X-squared = 4.1471, p-value = 0.1257 #>   # There is no significant difference from a 1:2:1 ratio. # Meaning: resistance controlled by a single gene with two co-dominant # alleles, is plausible.   # = EXAMPLE 2 = # Red crossbills (Loxia curvirostra) have the tip of the upper bill either # right or left of the lower bill, which helps them extract seeds from pine # cones. Some have hypothesized that frequency-dependent selection would # keep the number of right and left-billed birds at a 1:1 ratio. Groth (1992) # observed 1752 right-billed and 1895 left-billed crossbills.  x <- c(1752, 1895) g.test(x) #>  #> \tG-test of goodness-of-fit (likelihood ratio test) #>  #> data:  x #> X-squared = 5.6085, p-value = 0.01787 #>   # There is a significant difference from a 1:1 ratio. # Meaning: there are significantly more left-billed birds."},{"path":"https://msberends.github.io/AMR/reference/get_episode.html","id":null,"dir":"Reference","previous_headings":"","what":"Determine Clinical or Epidemic Episodes — get_episode","title":"Determine Clinical or Epidemic Episodes — get_episode","text":"functions determine items vector can considered (start ) new episode. can used determine clinical episodes epidemiological analysis. get_episode() function returns index number episode per group, is_new_episode() function returns TRUE every new get_episode() index. absolute relative episode determination supported.","code":""},{"path":"https://msberends.github.io/AMR/reference/get_episode.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Determine Clinical or Epidemic Episodes — get_episode","text":"","code":"get_episode(x, episode_days = NULL, case_free_days = NULL, ...)  is_new_episode(x, episode_days = NULL, case_free_days = NULL, ...)"},{"path":"https://msberends.github.io/AMR/reference/get_episode.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Determine Clinical or Epidemic Episodes — get_episode","text":"x vector dates (class Date POSIXt), sorted internally determine episodes episode_days episode length days specify time period new episode begins, can also less day Inf, see Details case_free_days (inter-epidemic) interval length days new episode start, can also less day Inf, see Details ... ignored, place allow future extensions","code":""},{"path":"https://msberends.github.io/AMR/reference/get_episode.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Determine Clinical or Epidemic Episodes — get_episode","text":"get_episode(): integer vector is_new_episode(): logical vector","code":""},{"path":"https://msberends.github.io/AMR/reference/get_episode.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Determine Clinical or Epidemic Episodes — get_episode","text":"Episodes can determined two ways: absolute relative. Absolute method uses episode_days define episode length days, new episode start. common use case AMR data analysis microbial epidemiology: episodes S. aureus bacteraemia ICU patients example. episode length 30 days, new S. aureus isolates ICU episode 30 days considered different (new) episode. Thus, method counts since start previous episode. Relative method uses case_free_days quantify duration case-free days (inter-epidemic interval), new episode start. common use case infectious disease epidemiology: episodes norovirus outbreaks hospital example. case-free period 14 days, new norovirus cases time considered different (new) episode. Thus, methods counts since last case previous episode. table: ** marks start new episode, 8 January 2023 7 days since start previous episode (1 January 2023).  *** marks start new episode, 21 January 2023 7 days since last case previous episode (8 January 2023). Either episode_days case_free_days must provided function.","code":""},{"path":"https://msberends.github.io/AMR/reference/get_episode.html","id":"difference-between-get-episode-and-is-new-episode-","dir":"Reference","previous_headings":"","what":"Difference between get_episode() and is_new_episode()","title":"Determine Clinical or Epidemic Episodes — get_episode","text":"get_episode() function returns index number episode, cases/patients/isolates first episode number 1, cases/patients/isolates second episode number 2, etc. is_new_episode() function hand, returns TRUE every new get_episode() index. specify, setting episode_days = 365 (using method 1 explained ), two functions differ:","code":""},{"path":"https://msberends.github.io/AMR/reference/get_episode.html","id":"other","dir":"Reference","previous_headings":"","what":"Other","title":"Determine Clinical or Epidemic Episodes — get_episode","text":"first_isolate() function wrapper around is_new_episode() function, efficient data sets containing microorganism codes names allows different isolate selection methods. dplyr package required functions work, episode functions support variable grouping work conveniently inside dplyr verbs filter(), mutate() summarise().","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/get_episode.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Determine Clinical or Epidemic Episodes — get_episode","text":"","code":"# difference between absolute and relative determination of episodes: x <- data.frame(dates = as.Date(c(   \"2021-01-01\",   \"2021-01-02\",   \"2021-01-05\",   \"2021-01-08\",   \"2021-02-21\",   \"2021-02-22\",   \"2021-02-23\",   \"2021-02-24\",   \"2021-03-01\",   \"2021-03-01\" ))) x$absolute <- get_episode(x$dates, episode_days = 7) x$relative <- get_episode(x$dates, case_free_days = 7) x #>         dates absolute relative #> 1  2021-01-01        1        1 #> 2  2021-01-02        1        1 #> 3  2021-01-05        1        1 #> 4  2021-01-08        2        1 #> 5  2021-02-21        3        2 #> 6  2021-02-22        3        2 #> 7  2021-02-23        3        2 #> 8  2021-02-24        3        2 #> 9  2021-03-01        4        2 #> 10 2021-03-01        4        2   # `example_isolates` is a data set available in the AMR package. # See ?example_isolates df <- example_isolates[sample(seq_len(2000), size = 100), ]  get_episode(df$date, episode_days = 60) # indices #>   [1]  8 23 24 26  5  8 42 39 25 48 36 19  7 26  4 37 29 15 40  5 16 29  3 34 44 #>  [26] 16  3 48  1  9 10 26 38 13 20 30 31  7 18  5 16 22  2  2 41  2  4 18 37 43 #>  [51] 33 28 10 16 41 15 43 28 12 12  9 47 21  8 46  7 10  8  9 27 30 30 28  8 26 #>  [76] 13 44 10 16 35 38 42 17 32 10 39 34 35 25 13 12 19 26 14 13  6 11 45  7 27 is_new_episode(df$date, episode_days = 60) # TRUE/FALSE #>   [1]  TRUE  TRUE  TRUE  TRUE  TRUE FALSE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE #>  [13]  TRUE FALSE  TRUE  TRUE  TRUE  TRUE  TRUE FALSE  TRUE FALSE  TRUE  TRUE #>  [25]  TRUE FALSE FALSE FALSE  TRUE  TRUE  TRUE FALSE  TRUE  TRUE  TRUE  TRUE #>  [37]  TRUE FALSE  TRUE FALSE FALSE  TRUE  TRUE FALSE  TRUE FALSE FALSE FALSE #>  [49] FALSE  TRUE  TRUE  TRUE FALSE FALSE FALSE FALSE FALSE FALSE  TRUE FALSE #>  [61] FALSE  TRUE  TRUE FALSE  TRUE FALSE FALSE FALSE FALSE  TRUE FALSE FALSE #>  [73] FALSE FALSE FALSE FALSE FALSE FALSE FALSE  TRUE FALSE FALSE  TRUE  TRUE #>  [85] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE  TRUE FALSE  TRUE #>  [97]  TRUE  TRUE FALSE FALSE  # filter on results from the third 60-day episode only, using base R df[which(get_episode(df$date, 60) == 3), ] #> # A tibble: 2 × 46 #>   date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>   <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #> 1 2002-10-14 FCC668     54 F      ICU      B_ACNTB      R     NA    NA    NA    #> 2 2002-11-18 956065     89 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, RIF <sir>  # the functions also work for less than a day, e.g. to include one per hour: get_episode(   c(     Sys.time(),     Sys.time() + 60 * 60   ),   episode_days = 1 / 24 ) #> [1] 1 2  # \\donttest{ if (require(\"dplyr\")) {   # is_new_episode() can also be used in dplyr verbs to determine patient   # episodes based on any (combination of) grouping variables:   df %>%     mutate(condition = sample(       x = c(\"A\", \"B\", \"C\"),       size = 100,       replace = TRUE     )) %>%     group_by(patient, condition) %>%     mutate(new_episode = is_new_episode(date, 365)) %>%     select(patient, date, condition, new_episode) %>%     arrange(patient, condition, date) } #> # A tibble: 100 × 4 #> # Groups:   patient, condition [98] #>    patient date       condition new_episode #>    <chr>   <date>     <chr>     <lgl>       #>  1 077552  2002-05-14 B         TRUE        #>  2 080086  2010-08-08 A         TRUE        #>  3 0DBB93  2009-05-08 C         TRUE        #>  4 0DBB93  2009-05-08 C         FALSE       #>  5 101305  2006-12-13 A         TRUE        #>  6 114570  2003-04-08 A         TRUE        #>  7 124128  2006-10-02 A         TRUE        #>  8 136315  2004-02-02 B         TRUE        #>  9 138869  2009-05-20 A         TRUE        #> 10 1435C8  2004-03-03 B         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 [97] #>    ward       date       patient new_index new_logical #>    <chr>      <date>     <chr>       <int> <lgl>       #>  1 Clinical   2002-05-14 077552          1 TRUE        #>  2 Clinical   2010-08-08 080086          1 TRUE        #>  3 Clinical   2009-05-08 0DBB93          1 TRUE        #>  4 ICU        2009-05-08 0DBB93          1 TRUE        #>  5 Clinical   2006-12-13 101305          1 TRUE        #>  6 ICU        2003-04-08 114570          1 TRUE        #>  7 Clinical   2006-10-02 124128          1 TRUE        #>  8 Clinical   2004-02-02 136315          1 TRUE        #>  9 Outpatient 2009-05-20 138869          1 TRUE        #> 10 Clinical   2004-03-03 1435C8          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           57             13            36            46 #> 2 ICU                33              8            20            22 #> 3 Outpatient          7              6             7             7  # grouping on patients and microorganisms leads to the same # results as first_isolate() when using 'episode-based': if (require(\"dplyr\")) {   x <- df %>%     filter_first_isolate(       include_unknown = TRUE,       method = \"episode-based\"     )    y <- df %>%     group_by(patient, mo) %>%     filter(is_new_episode(date, 365)) %>%     ungroup()    identical(x, y) } #> [1] TRUE  # but is_new_episode() has a lot more flexibility than first_isolate(), # since you can now group on anything that seems relevant: if (require(\"dplyr\")) {   df %>%     group_by(patient, mo, ward) %>%     mutate(flag_episode = is_new_episode(date, 365)) %>%     select(group_vars(.), flag_episode) } #> # A tibble: 100 × 4 #> # Groups:   patient, mo, ward [98] #>    patient mo           ward     flag_episode #>    <chr>   <mo>         <chr>    <lgl>        #>  1 1435C8  B_ESCHR_COLI Clinical TRUE         #>  2 493589  B_STRPT_PNMN Clinical TRUE         #>  3 B93C54  B_KLBSL_PNMN Clinical TRUE         #>  4 889500  B_ESCHR_COLI Clinical TRUE         #>  5 501429  B_HMPHL_PRNF ICU      TRUE         #>  6 E72482  B_STPHY_CONS ICU      TRUE         #>  7 917895  B_STPHY_CPTS ICU      TRUE         #>  8 534091  B_ESCHR_COLI Clinical TRUE         #>  9 F79032  B_ESCHR_COLI Clinical TRUE         #> 10 527306  B_STPHY_EPDR ICU      TRUE         #> # ℹ 90 more rows # }"},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":null,"dir":"Reference","previous_headings":"","what":"PCA Biplot with ggplot2 — ggplot_pca","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"Produces ggplot2 variant -called biplot PCA (principal component analysis), flexible appealing base R biplot() function.","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"","code":"ggplot_pca(   x,   choices = 1:2,   scale = 1,   pc.biplot = TRUE,   labels = NULL,   labels_textsize = 3,   labels_text_placement = 1.5,   groups = NULL,   ellipse = TRUE,   ellipse_prob = 0.68,   ellipse_size = 0.5,   ellipse_alpha = 0.5,   points_size = 2,   points_alpha = 0.25,   arrows = TRUE,   arrows_colour = \"darkblue\",   arrows_size = 0.5,   arrows_textsize = 3,   arrows_textangled = TRUE,   arrows_alpha = 0.75,   base_textsize = 10,   ... )"},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"ggplot_pca() function based ggbiplot() function ggbiplot package Vince Vu, found GitHub: https://github.com/vqv/ggbiplot (retrieved: 2 March 2020, latest commit: 7325e88; 12 February 2015). per GPL-2 licence demands documentation code changes, changes made based source code : Rewritten code remove dependency packages plyr, scales grid Parametrised options, like arrow ellipse settings Hardened input possibilities defining exact type user input every argument Added total amount explained variance caption plot Cleaned syntax based lintr package, fixed grammatical errors added integrity checks Updated documentation","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"x object returned pca(), prcomp() princomp() choices length 2 vector specifying components plot. default     biplot strict sense. scale variables scaled lambda ^ scale     observations scaled lambda ^ (1-scale)     lambda singular values computed     princomp. Normally 0 <= scale <= 1, warning     issued specified scale outside range. pc.biplot true, use Gabriel (1971) refers \"principal component     biplot\", lambda = 1 observations scaled sqrt(n)     variables scaled sqrt(n).  inner products     variables approximate covariances distances observations     approximate Mahalanobis distance. labels optional vector labels observations. set, labels placed respective points. using pca() function input x, determined automatically based attribute non_numeric_cols, see pca(). labels_textsize size text used labels labels_text_placement adjustment factor placement variable names (>=1 means away arrow head) groups optional vector groups labels, length labels. set, points labels coloured according groups. using pca() function input x, determined automatically based attribute non_numeric_cols, see pca(). ellipse logical indicate whether normal data ellipse drawn group (set groups) ellipse_prob statistical size ellipse normal probability ellipse_size size ellipse line ellipse_alpha alpha (transparency) ellipse line points_size size points points_alpha alpha (transparency) points arrows logical indicate whether arrows drawn arrows_colour colour arrow text arrows_size size (thickness) arrow lines arrows_textsize size text end arrows arrows_textangled logical whether text end arrows angled arrows_alpha alpha (transparency) arrows text base_textsize text size plot elements except labels arrows ... arguments passed functions","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"colours labels points can changed adding another scale layer colour, scale_colour_viridis_d() scale_colour_brewer().","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"","code":"# `example_isolates` is a data set available in the AMR package. # See ?example_isolates.  # \\donttest{ if (require(\"dplyr\")) {   # calculate the resistance per group first   resistance_data <- example_isolates %>%     group_by(       order = mo_order(mo), # group on anything, like order       genus = mo_genus(mo)     ) %>% #   and genus as we do here;     filter(n() >= 30) %>% # filter on only 30 results per group     summarise_if(is.sir, resistance) # then get resistance of all drugs    # now conduct PCA for certain antimicrobial drugs   pca_result <- resistance_data %>%     pca(AMC, CXM, CTX, CAZ, GEN, TOB, TMP, SXT)    summary(pca_result)    # old base R plotting method:   biplot(pca_result)    # new ggplot2 plotting method using this package:   if (require(\"ggplot2\")) {     ggplot_pca(pca_result)      # still extendible with any ggplot2 function     ggplot_pca(pca_result) +       scale_colour_viridis_d() +       labs(title = \"Title here\")   } } #> Warning: There were 73 warnings in `summarise()`. #> The first warning was: #> ℹ In argument: `PEN = (function (..., minimum = 30, as_percent = FALSE, #>   only_all_tested = FALSE) ...`. #> ℹ In group 5: `order = \"Lactobacillales\"`, `genus = \"Enterococcus\"`. #> Caused by warning: #> ! Introducing NA: only 14 results available for PEN in group: order = #> \"Lactobacillales\", genus = \"Enterococcus\" (minimum = 30). #> ℹ Run `dplyr::last_dplyr_warnings()` to see the 72 remaining warnings. #> ℹ Columns selected for PCA: \"AMC\", \"CAZ\", \"CTX\", \"CXM\", \"GEN\", \"SXT\", #>   \"TMP\", and \"TOB\". Total observations available: 7. #> Groups (n=4, named as 'order'): #> [1] \"Caryophanales\"    \"Enterobacterales\" \"Lactobacillales\"  \"Pseudomonadales\"  #>    # }"},{"path":"https://msberends.github.io/AMR/reference/ggplot_sir.html","id":null,"dir":"Reference","previous_headings":"","what":"AMR Plots with ggplot2 — ggplot_sir","title":"AMR Plots with ggplot2 — ggplot_sir","text":"Use functions create bar plots AMR data analysis. functions rely ggplot2 functions.","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_sir.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"AMR Plots with ggplot2 — ggplot_sir","text":"","code":"ggplot_sir(   data,   position = NULL,   x = \"antibiotic\",   fill = \"interpretation\",   facet = NULL,   breaks = seq(0, 1, 0.1),   limits = NULL,   translate_ab = \"name\",   combine_SI = TRUE,   minimum = 30,   language = get_AMR_locale(),   nrow = NULL,   colours = c(S = \"#3CAEA3\", SI = \"#3CAEA3\", I = \"#F6D55C\", IR = \"#ED553B\", R =     \"#ED553B\"),   datalabels = TRUE,   datalabels.size = 2.5,   datalabels.colour = \"grey15\",   title = NULL,   subtitle = NULL,   caption = NULL,   x.title = \"Antimicrobial\",   y.title = \"Proportion\",   ... )  geom_sir(   position = NULL,   x = c(\"antibiotic\", \"interpretation\"),   fill = \"interpretation\",   translate_ab = \"name\",   minimum = 30,   language = get_AMR_locale(),   combine_SI = TRUE,   ... )  facet_sir(facet = c(\"interpretation\", \"antibiotic\"), nrow = NULL)  scale_y_percent(breaks = seq(0, 1, 0.1), limits = NULL)  scale_sir_colours(..., aesthetics = \"fill\")  theme_sir()  labels_sir_count(   position = NULL,   x = \"antibiotic\",   translate_ab = \"name\",   minimum = 30,   language = get_AMR_locale(),   combine_SI = TRUE,   datalabels.size = 3,   datalabels.colour = \"grey15\" )"},{"path":"https://msberends.github.io/AMR/reference/ggplot_sir.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"AMR Plots with ggplot2 — ggplot_sir","text":"data data.frame column(s) class sir (see .sir()) position position adjustment bars, either \"fill\", \"stack\" \"dodge\" x variable show x axis, either \"antibiotic\" (default) \"interpretation\" grouping variable fill variable categorise using plots legend, either \"antibiotic\" (default) \"interpretation\" grouping variable facet variable split plots , either \"interpretation\" (default) \"antibiotic\" grouping variable breaks numeric vector positions limits numeric vector length two providing limits scale, use NA refer existing minimum maximum translate_ab column name antibiotics data set translate antibiotic abbreviations , using ab_property() combine_SI logical indicate whether values S must merged one, output consists S+vs. R (susceptible vs. resistant) - default TRUE minimum minimum allowed number available (tested) isolates. isolate count lower minimum return NA warning. default number 30 isolates advised Clinical Laboratory Standards Institute (CLSI) best practice, see Source. language language returned text - default current system language (see get_AMR_locale()) can also set package option AMR_locale. Use language = NULL language = \"\" prevent translation. nrow (using facet) number rows colours named vactor colour used filling. default colours colour-blind friendly. datalabels show datalabels using labels_sir_count() datalabels.size size datalabels datalabels.colour colour datalabels title text show title plot subtitle text show subtitle plot caption text show caption plot x.title text show x axis description y.title text show y axis description ... arguments passed geom_sir() , case scale_sir_colours(), named values set colours. default colours colour-blind friendly, maintaining convention e.g. 'susceptible' green 'resistant' red. See Examples. aesthetics aesthetics apply colours - default \"fill\" can also (combination ) \"alpha\", \"colour\", \"fill\", \"linetype\", \"shape\" \"size\"","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_sir.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"AMR Plots with ggplot2 — ggplot_sir","text":"default, names antibiotics shown plots using ab_name(). can set translate_ab argument. See count_df().","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_sir.html","id":"the-functions","dir":"Reference","previous_headings":"","what":"The Functions","title":"AMR Plots with ggplot2 — ggplot_sir","text":"geom_sir() take variable data sir class (created .sir()) using sir_df() plot bars percentage S, , R. default behaviour bars stacked different antibiotics x axis. facet_sir() creates 2d plots (default based S//R) using ggplot2::facet_wrap(). scale_y_percent() transforms y axis 0 100% range using ggplot2::scale_y_continuous(). scale_sir_colours() sets colours bars (green S, yellow , red R). multilingual support. default colours colour-blind friendly, maintaining convention e.g. 'susceptible' green 'resistant' red. theme_sir() [ggplot2 theme][ggplot2::theme() minimal distraction. labels_sir_count() print datalabels bars percentage amount isolates using ggplot2::geom_text(). ggplot_sir() wrapper around functions uses data first input. makes possible use function pipe (%>%). See Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_sir.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"AMR Plots with ggplot2 — ggplot_sir","text":"","code":"# \\donttest{ if (require(\"ggplot2\") && require(\"dplyr\")) {   # get antimicrobial results for drugs against a UTI:   ggplot(example_isolates %>% select(AMX, NIT, FOS, TMP, CIP)) +     geom_sir() }  if (require(\"ggplot2\") && require(\"dplyr\")) {   # prettify the plot using some additional functions:   df <- example_isolates %>% select(AMX, NIT, FOS, TMP, CIP)   ggplot(df) +     geom_sir() +     scale_y_percent() +     scale_sir_colours() +     labels_sir_count() +     theme_sir() }  if (require(\"ggplot2\") && require(\"dplyr\")) {   # or better yet, simplify this using the wrapper function - a single command:   example_isolates %>%     select(AMX, NIT, FOS, TMP, CIP) %>%     ggplot_sir() }  if (require(\"ggplot2\") && require(\"dplyr\")) {   # get only proportions and no counts:   example_isolates %>%     select(AMX, NIT, FOS, TMP, CIP) %>%     ggplot_sir(datalabels = FALSE) }  if (require(\"ggplot2\") && require(\"dplyr\")) {   # add other ggplot2 arguments as you like:   example_isolates %>%     select(AMX, NIT, FOS, TMP, CIP) %>%     ggplot_sir(       width = 0.5,       colour = \"black\",       size = 1,       linetype = 2,       alpha = 0.25     ) }  if (require(\"ggplot2\") && require(\"dplyr\")) {   # you can alter the colours with colour names:   example_isolates %>%     select(AMX) %>%     ggplot_sir(colours = c(SI = \"yellow\")) }  if (require(\"ggplot2\") && require(\"dplyr\")) {   # but you can also use the built-in colour-blind friendly colours for   # your plots, where \"S\" is green, \"I\" is yellow and \"R\" is red:   data.frame(     x = c(\"Value1\", \"Value2\", \"Value3\"),     y = c(1, 2, 3),     z = c(\"Value4\", \"Value5\", \"Value6\")   ) %>%     ggplot() +     geom_col(aes(x = x, y = y, fill = z)) +     scale_sir_colours(Value4 = \"S\", Value5 = \"I\", Value6 = \"R\") }  if (require(\"ggplot2\") && require(\"dplyr\")) {   # resistance of ciprofloxacine per age group   example_isolates %>%     mutate(first_isolate = first_isolate()) %>%     filter(       first_isolate == TRUE,       mo == as.mo(\"Escherichia coli\")     ) %>%     # age_groups() is also a function in this AMR package:     group_by(age_group = age_groups(age)) %>%     select(age_group, CIP) %>%     ggplot_sir(x = \"age_group\") } #> Warning: Removed 6 rows containing missing values (`position_stack()`). #> Warning: Removed 6 rows containing missing values (`position_stack()`).  if (require(\"ggplot2\") && require(\"dplyr\")) {   # a shorter version which also adjusts data label colours:   example_isolates %>%     select(AMX, NIT, FOS, TMP, CIP) %>%     ggplot_sir(colours = FALSE) }  if (require(\"ggplot2\") && require(\"dplyr\")) {   # it also supports groups (don't forget to use the group var on `x` or `facet`):   example_isolates %>%     filter(mo_is_gram_negative(), ward != \"Outpatient\") %>%     # select only UTI-specific drugs     select(ward, AMX, NIT, FOS, TMP, CIP) %>%     group_by(ward) %>%     ggplot_sir(       x = \"ward\",       facet = \"antibiotic\",       nrow = 1,       title = \"AMR of Anti-UTI Drugs Per Ward\",       x.title = \"Ward\",       datalabels = FALSE     ) } #> ℹ Using column 'mo' as input for mo_is_gram_negative()  # }"},{"path":"https://msberends.github.io/AMR/reference/guess_ab_col.html","id":null,"dir":"Reference","previous_headings":"","what":"Guess Antibiotic Column — guess_ab_col","title":"Guess Antibiotic Column — guess_ab_col","text":"tries find column name data set based information antibiotics data set. Also supports WHONET abbreviations.","code":""},{"path":"https://msberends.github.io/AMR/reference/guess_ab_col.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Guess Antibiotic Column — guess_ab_col","text":"","code":"guess_ab_col(   x = NULL,   search_string = NULL,   verbose = FALSE,   only_sir_columns = FALSE )"},{"path":"https://msberends.github.io/AMR/reference/guess_ab_col.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Guess Antibiotic Column — guess_ab_col","text":"x data.frame search_string text search x , checked .ab() value column x verbose logical indicate whether additional info printed only_sir_columns logical indicate whether antibiotic columns must detected transformed class sir (see .sir()) beforehand (default FALSE)","code":""},{"path":"https://msberends.github.io/AMR/reference/guess_ab_col.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Guess Antibiotic Column — guess_ab_col","text":"column name x, NULL result found.","code":""},{"path":"https://msberends.github.io/AMR/reference/guess_ab_col.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Guess Antibiotic Column — guess_ab_col","text":"can look antibiotic (trade) name abbreviation search x antibiotics data set column containing name code antibiotic.","code":""},{"path":"https://msberends.github.io/AMR/reference/guess_ab_col.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Guess Antibiotic Column — guess_ab_col","text":"","code":"df <- data.frame(   amox = \"S\",   tetr = \"R\" )  guess_ab_col(df, \"amoxicillin\") #> [1] \"amox\" guess_ab_col(df, \"J01AA07\") # ATC code of tetracycline #> [1] \"tetr\"  guess_ab_col(df, \"J01AA07\", verbose = TRUE) #> Auto-guessing columns suitable for analysis #> ... #>  OK. #> ℹ Using column 'amox' as input for AMX (amoxicillin). #> ℹ Using column 'tetr' as input for TCY (tetracycline). #> ℹ Using column 'tetr' as input for J01AA07 (tetracycline). #> [1] \"tetr\" # NOTE: Using column 'tetr' as input for J01AA07 (tetracycline).  # WHONET codes df <- data.frame(   AMP_ND10 = \"R\",   AMC_ED20 = \"S\" ) guess_ab_col(df, \"ampicillin\") #> [1] \"AMP_ND10\" guess_ab_col(df, \"J01CR02\") #> [1] \"AMC_ED20\" guess_ab_col(df, as.ab(\"augmentin\")) #> [1] \"AMC_ED20\""},{"path":"https://msberends.github.io/AMR/reference/intrinsic_resistant.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with Bacterial Intrinsic Resistance — intrinsic_resistant","title":"Data Set with Bacterial Intrinsic Resistance — intrinsic_resistant","text":"Data set containing defined intrinsic resistance EUCAST bug-drug combinations.","code":""},{"path":"https://msberends.github.io/AMR/reference/intrinsic_resistant.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with Bacterial Intrinsic Resistance — intrinsic_resistant","text":"","code":"intrinsic_resistant"},{"path":"https://msberends.github.io/AMR/reference/intrinsic_resistant.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with Bacterial Intrinsic Resistance — intrinsic_resistant","text":"tibble 134 634 observations 2 variables: mo Microorganism ID ab Antibiotic ID","code":""},{"path":"https://msberends.github.io/AMR/reference/intrinsic_resistant.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with Bacterial Intrinsic Resistance — intrinsic_resistant","text":"data set based 'EUCAST Expert Rules' 'EUCAST Intrinsic Resistance Unusual Phenotypes' v3.3 (2021).","code":""},{"path":"https://msberends.github.io/AMR/reference/intrinsic_resistant.html","id":"direct-download","dir":"Reference","previous_headings":"","what":"Direct download","title":"Data Set with Bacterial Intrinsic Resistance — intrinsic_resistant","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository. allow machine reading EUCAST CLSI guidelines, almost impossible MS Excel PDF files distributed EUCAST CLSI.","code":""},{"path":"https://msberends.github.io/AMR/reference/intrinsic_resistant.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with Bacterial Intrinsic Resistance — intrinsic_resistant","text":"","code":"intrinsic_resistant #> # A tibble: 134,634 × 2 #>    mo      ab    #>    <mo>    <chr> #>  1 B_GRAMP ATM   #>  2 B_GRAMP COL   #>  3 B_GRAMP NAL   #>  4 B_GRAMP PLB   #>  5 B_GRAMP TEM   #>  6 B_ABTRP ATM   #>  7 B_ABTRP COL   #>  8 B_ABTRP NAL   #>  9 B_ABTRP PLB   #> 10 B_ABTRP TEM   #> # ℹ 134,624 more rows"},{"path":"https://msberends.github.io/AMR/reference/italicise_taxonomy.html","id":null,"dir":"Reference","previous_headings":"","what":"Italicise Taxonomic Families, Genera, Species, Subspecies — italicise_taxonomy","title":"Italicise Taxonomic Families, Genera, Species, Subspecies — italicise_taxonomy","text":"According binomial nomenclature, lowest four taxonomic levels (family, genus, species, subspecies) printed italics. function finds taxonomic names within strings makes italic.","code":""},{"path":"https://msberends.github.io/AMR/reference/italicise_taxonomy.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Italicise Taxonomic Families, Genera, Species, Subspecies — italicise_taxonomy","text":"","code":"italicise_taxonomy(string, type = c(\"markdown\", \"ansi\"))  italicize_taxonomy(string, type = c(\"markdown\", \"ansi\"))"},{"path":"https://msberends.github.io/AMR/reference/italicise_taxonomy.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Italicise Taxonomic Families, Genera, Species, Subspecies — italicise_taxonomy","text":"string character (vector) type type conversion taxonomic names, either \"markdown\" \"ansi\", see Details","code":""},{"path":"https://msberends.github.io/AMR/reference/italicise_taxonomy.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Italicise Taxonomic Families, Genera, Species, Subspecies — italicise_taxonomy","text":"function finds taxonomic names makes italic based microorganisms data set. taxonomic names can italicised using markdown (default) adding * taxonomic names, using ANSI colours adding \\033[3m \\033[23m taxonomic names. multiple ANSI colours available, conversion occur. function also supports abbreviation genus followed species, \"E. coli\" \"K. pneumoniae ozaenae\".","code":""},{"path":"https://msberends.github.io/AMR/reference/italicise_taxonomy.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Italicise Taxonomic Families, Genera, Species, Subspecies — italicise_taxonomy","text":"","code":"italicise_taxonomy(\"An overview of Staphylococcus aureus isolates\") #> [1] \"An overview of *Staphylococcus aureus* isolates\" italicise_taxonomy(\"An overview of S. aureus isolates\") #> [1] \"An overview of *S. aureus* isolates\"  cat(italicise_taxonomy(\"An overview of S. aureus isolates\", type = \"ansi\")) #> An overview of S. aureus isolates"},{"path":"https://msberends.github.io/AMR/reference/join.html","id":null,"dir":"Reference","previous_headings":"","what":"Join microorganisms to a Data Set — join","title":"Join microorganisms to a Data Set — join","text":"Join data set microorganisms easily existing data set character vector.","code":""},{"path":"https://msberends.github.io/AMR/reference/join.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Join microorganisms to a Data Set — join","text":"","code":"inner_join_microorganisms(x, by = NULL, suffix = c(\"2\", \"\"), ...)  left_join_microorganisms(x, by = NULL, suffix = c(\"2\", \"\"), ...)  right_join_microorganisms(x, by = NULL, suffix = c(\"2\", \"\"), ...)  full_join_microorganisms(x, by = NULL, suffix = c(\"2\", \"\"), ...)  semi_join_microorganisms(x, by = NULL, ...)  anti_join_microorganisms(x, by = NULL, ...)"},{"path":"https://msberends.github.io/AMR/reference/join.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Join microorganisms to a Data Set — join","text":"x existing data set join, character vector. case character vector, resulting data.frame contain column 'x' values. variable join - left empty search column class mo (created .mo()) \"mo\" column name exists x, otherwise column name x values exist microorganisms$mo (= \"bacteria_id\"), another column microorganisms (named, like = c(\"bacteria_id\" = \"fullname\")) suffix non-joined duplicate variables x y, suffixes added output disambiguate . character vector length 2. ... ignored, place allow future extensions","code":""},{"path":"https://msberends.github.io/AMR/reference/join.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Join microorganisms to a Data Set — join","text":"data.frame","code":""},{"path":"https://msberends.github.io/AMR/reference/join.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Join microorganisms to a Data Set — join","text":"Note: opposed join() functions dplyr, character vectors supported default existing columns get suffix \"2\" newly joined columns get suffix. dplyr package installed, join functions used. Otherwise, much slower merge() interaction() functions base R used.","code":""},{"path":"https://msberends.github.io/AMR/reference/join.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Join microorganisms to a Data Set — join","text":"","code":"left_join_microorganisms(as.mo(\"K. pneumoniae\")) #> # A tibble: 1 × 23 #>   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… #> # ℹ 13 more variables: subspecies <chr>, rank <chr>, ref <chr>, #> #   oxygen_tolerance <chr>, source <chr>, lpsn <chr>, lpsn_parent <chr>, #> #   lpsn_renamed_to <chr>, gbif <chr>, gbif_parent <chr>, #> #   gbif_renamed_to <chr>, prevalence <dbl>, snomed <list> left_join_microorganisms(\"B_KLBSL_PNMN\") #> # A tibble: 1 × 23 #>   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… #> # ℹ 13 more variables: subspecies <chr>, rank <chr>, ref <chr>, #> #   oxygen_tolerance <chr>, source <chr>, lpsn <chr>, lpsn_parent <chr>, #> #   lpsn_renamed_to <chr>, gbif <chr>, gbif_parent <chr>, #> #   gbif_renamed_to <chr>, prevalence <dbl>, snomed <list>  df <- data.frame(   date = seq(     from = as.Date(\"2018-01-01\"),     to = as.Date(\"2018-01-07\"),     by = 1   ),   bacteria = as.mo(c(     \"S. aureus\", \"MRSA\", \"MSSA\", \"STAAUR\",     \"E. coli\", \"E. coli\", \"E. coli\"   )),   stringsAsFactors = FALSE ) colnames(df) #> [1] \"date\"     \"bacteria\"  df_joined <- left_join_microorganisms(df, \"bacteria\") colnames(df_joined) #>  [1] \"date\"             \"bacteria\"         \"fullname\"         \"status\"           #>  [5] \"kingdom\"          \"phylum\"           \"class\"            \"order\"            #>  [9] \"family\"           \"genus\"            \"species\"          \"subspecies\"       #> [13] \"rank\"             \"ref\"              \"oxygen_tolerance\" \"source\"           #> [17] \"lpsn\"             \"lpsn_parent\"      \"lpsn_renamed_to\"  \"gbif\"             #> [21] \"gbif_parent\"      \"gbif_renamed_to\"  \"prevalence\"       \"snomed\"            # \\donttest{ if (require(\"dplyr\")) {   example_isolates %>%     left_join_microorganisms() %>%     colnames() } #> Joining, by = \"mo\" #>  [1] \"date\"             \"patient\"          \"age\"              \"gender\"           #>  [5] \"ward\"             \"mo\"               \"PEN\"              \"OXA\"              #>  [9] \"FLC\"              \"AMX\"              \"AMC\"              \"AMP\"              #> [13] \"TZP\"              \"CZO\"              \"FEP\"              \"CXM\"              #> [17] \"FOX\"              \"CTX\"              \"CAZ\"              \"CRO\"              #> [21] \"GEN\"              \"TOB\"              \"AMK\"              \"KAN\"              #> [25] \"TMP\"              \"SXT\"              \"NIT\"              \"FOS\"              #> [29] \"LNZ\"              \"CIP\"              \"MFX\"              \"VAN\"              #> [33] \"TEC\"              \"TCY\"              \"TGC\"              \"DOX\"              #> [37] \"ERY\"              \"CLI\"              \"AZM\"              \"IPM\"              #> [41] \"MEM\"              \"MTR\"              \"CHL\"              \"COL\"              #> [45] \"MUP\"              \"RIF\"              \"fullname\"         \"status\"           #> [49] \"kingdom\"          \"phylum\"           \"class\"            \"order\"            #> [53] \"family\"           \"genus\"            \"species\"          \"subspecies\"       #> [57] \"rank\"             \"ref\"              \"oxygen_tolerance\" \"source\"           #> [61] \"lpsn\"             \"lpsn_parent\"      \"lpsn_renamed_to\"  \"gbif\"             #> [65] \"gbif_parent\"      \"gbif_renamed_to\"  \"prevalence\"       \"snomed\"           # }"},{"path":"https://msberends.github.io/AMR/reference/key_antimicrobials.html","id":null,"dir":"Reference","previous_headings":"","what":"(Key) Antimicrobials for First Weighted Isolates — key_antimicrobials","title":"(Key) Antimicrobials for First Weighted Isolates — key_antimicrobials","text":"functions can used determine first weighted isolates considering phenotype isolate selection (see first_isolate()). Using phenotype-based method determine first isolates reliable methods disregard phenotypes.","code":""},{"path":"https://msberends.github.io/AMR/reference/key_antimicrobials.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"(Key) Antimicrobials for First Weighted Isolates — key_antimicrobials","text":"","code":"key_antimicrobials(   x = NULL,   col_mo = NULL,   universal = c(\"ampicillin\", \"amoxicillin/clavulanic acid\", \"cefuroxime\",     \"piperacillin/tazobactam\", \"ciprofloxacin\", \"trimethoprim/sulfamethoxazole\"),   gram_negative = c(\"gentamicin\", \"tobramycin\", \"colistin\", \"cefotaxime\", \"ceftazidime\",     \"meropenem\"),   gram_positive = c(\"vancomycin\", \"teicoplanin\", \"tetracycline\", \"erythromycin\",     \"oxacillin\", \"rifampin\"),   antifungal = c(\"anidulafungin\", \"caspofungin\", \"fluconazole\", \"miconazole\", \"nystatin\",     \"voriconazole\"),   only_sir_columns = FALSE,   ... )  all_antimicrobials(x = NULL, only_sir_columns = FALSE, ...)  antimicrobials_equal(   y,   z,   type = c(\"points\", \"keyantimicrobials\"),   ignore_I = TRUE,   points_threshold = 2,   ... )"},{"path":"https://msberends.github.io/AMR/reference/key_antimicrobials.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"(Key) Antimicrobials for First Weighted Isolates — key_antimicrobials","text":"x data.frame antibiotics columns, like AMX amox. Can left blank determine automatically col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). universal names broad-spectrum antimicrobial drugs, case-insensitive. Set NULL ignore. See Details default antimicrobial drugs gram_negative names antibiotic drugs Gram-positives, case-insensitive. Set NULL ignore. See Details default antibiotic drugs gram_positive names antibiotic drugs Gram-negatives, case-insensitive. Set NULL ignore. See Details default antibiotic drugs antifungal names antifungal drugs fungi, case-insensitive. Set NULL ignore. See Details default antifungal drugs only_sir_columns logical indicate whether columns must included transformed class sir (see .sir()) beforehand (default FALSE) ... ignored, place allow future extensions y, z character vectors compare type type determine weighed isolates; can \"keyantimicrobials\" \"points\", see Details ignore_I logical indicate whether antibiotic interpretations \"\" ignored type = \"keyantimicrobials\", see Details points_threshold minimum number points require differences antibiogram lead inclusion isolate type = \"points\", see Details","code":""},{"path":"https://msberends.github.io/AMR/reference/key_antimicrobials.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"(Key) Antimicrobials for First Weighted Isolates — key_antimicrobials","text":"key_antimicrobials() all_antimicrobials() functions context-aware. means x argument can left blank used inside data.frame call, see Examples. function key_antimicrobials() returns character vector 12 antimicrobial results every isolate. function all_antimicrobials() returns character vector antimicrobial drug results every isolate. vectors can compared using antimicrobials_equal(), check two isolates generally antibiogram. Missing invalid values replaced dot (\".\") key_antimicrobials() ignored antimicrobials_equal(). Please see first_isolate() function important functions enable 'phenotype-based' method determination first isolates. default antimicrobial drugs used rows (set universal) : Ampicillin Amoxicillin/clavulanic acid Cefuroxime Ciprofloxacin Piperacillin/tazobactam Trimethoprim/sulfamethoxazole default antimicrobial drugs used Gram-negative bacteria (set gram_negative) : Cefotaxime Ceftazidime Colistin Gentamicin Meropenem Tobramycin default antimicrobial drugs used Gram-positive bacteria (set gram_positive) : Erythromycin Oxacillin Rifampin Teicoplanin Tetracycline Vancomycin default antimicrobial drugs used fungi (set antifungal) : Anidulafungin Caspofungin Fluconazole Miconazole Nystatin Voriconazole","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/key_antimicrobials.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"(Key) Antimicrobials for First Weighted Isolates — key_antimicrobials","text":"","code":"# `example_isolates` is a data set available in the AMR package. # See ?example_isolates.  # output of the `key_antimicrobials()` function could be like this: strainA <- \"SSSRR.S.R..S\" strainB <- \"SSSIRSSSRSSS\"  # those strings can be compared with: antimicrobials_equal(strainA, strainB, type = \"keyantimicrobials\") #> [1] TRUE # TRUE, because I is ignored (as well as missing values)  antimicrobials_equal(strainA, strainB, type = \"keyantimicrobials\", ignore_I = FALSE) #> [1] FALSE # FALSE, because I is not ignored and so the 4th [character] differs  # \\donttest{ if (require(\"dplyr\")) {   # set key antibiotics to a new variable   my_patients <- example_isolates %>%     mutate(keyab = key_antimicrobials(antifungal = NULL)) %>% # no need to define `x`     mutate(       # now calculate first isolates       first_regular = first_isolate(col_keyantimicrobials = FALSE),       # and first WEIGHTED isolates       first_weighted = first_isolate(col_keyantimicrobials = \"keyab\")     )    # Check the difference in this data set, 'weighted' results in more isolates:   sum(my_patients$first_regular, na.rm = TRUE)   sum(my_patients$first_weighted, na.rm = TRUE) } #> [1] 1376 # }"},{"path":"https://msberends.github.io/AMR/reference/kurtosis.html","id":null,"dir":"Reference","previous_headings":"","what":"Kurtosis of the Sample — kurtosis","title":"Kurtosis of the Sample — kurtosis","text":"Kurtosis measure \"tailedness\" probability distribution real-valued random variable. normal distribution kurtosis 3 excess kurtosis 0.","code":""},{"path":"https://msberends.github.io/AMR/reference/kurtosis.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Kurtosis of the Sample — kurtosis","text":"","code":"kurtosis(x, na.rm = FALSE, excess = FALSE)  # S3 method for default kurtosis(x, na.rm = FALSE, excess = FALSE)  # S3 method for matrix kurtosis(x, na.rm = FALSE, excess = FALSE)  # S3 method for data.frame kurtosis(x, na.rm = FALSE, excess = FALSE)"},{"path":"https://msberends.github.io/AMR/reference/kurtosis.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Kurtosis of the Sample — kurtosis","text":"x vector values, matrix data.frame na.rm logical indicate whether NA values stripped computation proceeds excess logical indicate whether excess kurtosis returned, defined kurtosis minus 3.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/kurtosis.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Kurtosis of the Sample — kurtosis","text":"","code":"kurtosis(rnorm(10000)) #> [1] 2.973468 kurtosis(rnorm(10000), excess = TRUE) #> [1] -0.03270321"},{"path":"https://msberends.github.io/AMR/reference/like.html","id":null,"dir":"Reference","previous_headings":"","what":"Vectorised Pattern Matching with Keyboard Shortcut — like","title":"Vectorised Pattern Matching with Keyboard Shortcut — like","text":"Convenient wrapper around grepl() match pattern: x %like% pattern. always returns logical vector always case-insensitive (use x %like_case% pattern case-sensitive matching). Also, pattern can long x compare items index vectors, can length iterate cases.","code":""},{"path":"https://msberends.github.io/AMR/reference/like.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Vectorised Pattern Matching with Keyboard Shortcut — like","text":"","code":"like(x, pattern, ignore.case = TRUE)  x %like% pattern  x %unlike% pattern  x %like_case% pattern  x %unlike_case% pattern"},{"path":"https://msberends.github.io/AMR/reference/like.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Vectorised Pattern Matching with Keyboard Shortcut — like","text":"Idea like function data.table package, although altered explained Details.","code":""},{"path":"https://msberends.github.io/AMR/reference/like.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Vectorised Pattern Matching with Keyboard Shortcut — like","text":"x character vector matches sought, object can coerced .character() character vector. pattern character vector containing regular expressions (character string fixed = TRUE) matched given character vector. Coerced .character() character string possible. ignore.case FALSE, pattern matching case sensitive TRUE, case ignored matching.","code":""},{"path":"https://msberends.github.io/AMR/reference/like.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Vectorised Pattern Matching with Keyboard Shortcut — like","text":"logical vector","code":""},{"path":"https://msberends.github.io/AMR/reference/like.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Vectorised Pattern Matching with Keyboard Shortcut — like","text":"like() %like%/%unlike% functions: case-insensitive (use %like_case%/%unlike_case% case-sensitive matching) Support multiple patterns Check pattern valid regular expression sets fixed = TRUE , greatly improve speed (vectorised pattern) Always use compatibility Perl unless fixed = TRUE, greatly improve speed Using RStudio? %like%/%unlike% functions can also directly inserted code Addins menu can keyboard shortcut like Shift+Ctrl+L Shift+Cmd+L (see menu Tools > Modify Keyboard Shortcuts...). keep pressing shortcut, inserted text iterated %like% -> %unlike% -> %like_case% -> %unlike_case%.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/like.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Vectorised Pattern Matching with Keyboard Shortcut — like","text":"","code":"# data.table has a more limited version of %like%, so unload it: try(detach(\"package:data.table\", unload = TRUE), silent = TRUE)  a <- \"This is a test\" b <- \"TEST\" a %like% b #> [1] TRUE b %like% a #> [1] FALSE  # also supports multiple patterns a <- c(\"Test case\", \"Something different\", \"Yet another thing\") b <- c(\"case\", \"diff\", \"yet\") a %like% b #> [1] TRUE TRUE TRUE a %unlike% b #> [1] FALSE FALSE FALSE  a[1] %like% b #> [1]  TRUE FALSE FALSE a %like% b[1] #> [1]  TRUE FALSE FALSE  # \\donttest{ # get isolates whose name start with 'Entero' (case-insensitive) example_isolates[which(mo_name() %like% \"^entero\"), ] #> ℹ Using column 'mo' as input for mo_name() #> # A tibble: 106 × 46 #>    date       patient   age gender ward    mo            PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>   <mo>          <sir> <sir> <sir> <sir> #>  1 2002-02-21 4FC193     69 M      Clinic… B_ENTRC_FACM  NA    NA    NA    NA    #>  2 2002-04-08 130252     78 M      ICU     B_ENTRC_FCLS  NA    NA    NA    NA    #>  3 2002-06-23 798871     82 M      Clinic… B_ENTRC_FCLS  NA    NA    NA    NA    #>  4 2002-06-23 798871     82 M      Clinic… B_ENTRC_FCLS  NA    NA    NA    NA    #>  5 2003-04-20 6BC362     62 M      ICU     B_ENTRC       NA    NA    NA    NA    #>  6 2003-04-21 6BC362     62 M      ICU     B_ENTRC       NA    NA    NA    NA    #>  7 2003-08-13 F35553     52 M      ICU     B_ENTRBC_CLOC R     NA    NA    R     #>  8 2003-08-13 F35553     52 M      ICU     B_ENTRC_FCLS  NA    NA    NA    NA    #>  9 2003-09-05 F35553     52 M      ICU     B_ENTRC       NA    NA    NA    NA    #> 10 2003-09-05 F35553     52 M      ICU     B_ENTRBC_CLOC R     NA    NA    R     #> # ℹ 96 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  if (require(\"dplyr\")) {   example_isolates %>%     filter(mo_name() %like% \"^ent\") } #> ℹ Using column 'mo' as input for mo_name() #> # A tibble: 106 × 46 #>    date       patient   age gender ward    mo            PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>   <mo>          <sir> <sir> <sir> <sir> #>  1 2002-02-21 4FC193     69 M      Clinic… B_ENTRC_FACM  NA    NA    NA    NA    #>  2 2002-04-08 130252     78 M      ICU     B_ENTRC_FCLS  NA    NA    NA    NA    #>  3 2002-06-23 798871     82 M      Clinic… B_ENTRC_FCLS  NA    NA    NA    NA    #>  4 2002-06-23 798871     82 M      Clinic… B_ENTRC_FCLS  NA    NA    NA    NA    #>  5 2003-04-20 6BC362     62 M      ICU     B_ENTRC       NA    NA    NA    NA    #>  6 2003-04-21 6BC362     62 M      ICU     B_ENTRC       NA    NA    NA    NA    #>  7 2003-08-13 F35553     52 M      ICU     B_ENTRBC_CLOC R     NA    NA    R     #>  8 2003-08-13 F35553     52 M      ICU     B_ENTRC_FCLS  NA    NA    NA    NA    #>  9 2003-09-05 F35553     52 M      ICU     B_ENTRC       NA    NA    NA    NA    #> 10 2003-09-05 F35553     52 M      ICU     B_ENTRBC_CLOC R     NA    NA    R     #> # ℹ 96 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … # }"},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":null,"dir":"Reference","previous_headings":"","what":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"Determine isolates multidrug-resistant organisms (MDRO) according international, national custom guidelines.","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"","code":"mdro(   x = NULL,   guideline = \"CMI2012\",   col_mo = NULL,   info = interactive(),   pct_required_classes = 0.5,   combine_SI = TRUE,   verbose = FALSE,   only_sir_columns = FALSE,   ... )  custom_mdro_guideline(..., as_factor = TRUE)  brmo(x = NULL, only_sir_columns = FALSE, ...)  mrgn(x = NULL, only_sir_columns = FALSE, ...)  mdr_tb(x = NULL, only_sir_columns = FALSE, ...)  mdr_cmi2012(x = NULL, only_sir_columns = FALSE, ...)  eucast_exceptional_phenotypes(x = NULL, only_sir_columns = FALSE, ...)"},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"See supported guidelines list publications used function.","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"x data.frame antibiotics columns, like AMX amox. Can left blank automatic determination. guideline specific guideline follow, see sections Supported international / national guidelines Using Custom Guidelines . left empty, publication Magiorakos et al. (see ) followed. col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). info logical indicate whether progress printed console - default print interactive sessions pct_required_classes minimal required percentage antimicrobial classes must available per isolate, rounded . example, default guideline, 17 antimicrobial classes must available S. aureus. Setting pct_required_classes argument 0.5 (default) means every S. aureus isolate least 8 different classes must available. lower number available classes return NA isolate. combine_SI logical indicate whether values S must merged one, resistance considered isolates R, . default behaviour mdro() function, follows redefinition EUCAST interpretation (increased exposure) 2019, see section 'Interpretation S, R' . using combine_SI = FALSE, resistance considered isolates R . verbose logical turn Verbose mode (default ). Verbose mode, function return MDRO results, instead returns data set logbook form extensive info isolates MDRO-positive, . only_sir_columns logical indicate whether antibiotic columns must detected transformed class sir (see .sir()) beforehand (default FALSE) ... case custom_mdro_guideline(): set rules, see section Using Custom Guidelines . Otherwise: column name antibiotic, see section Antibiotics . as_factor logical indicate whether returned value ordered factor (TRUE, default), otherwise character vector","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"CMI 2012 paper - function mdr_cmi2012() mdro(): Ordered factor levels Negative < Multi-drug-resistant (MDR) < Extensively drug-resistant (XDR) < Pandrug-resistant (PDR) TB guideline - function mdr_tb() mdro(..., guideline = \"TB\"): Ordered factor levels Negative < Mono-resistant < Poly-resistant < Multi-drug-resistant < Extensively drug-resistant German guideline - function mrgn() mdro(..., guideline = \"MRGN\"): Ordered factor levels Negative < 3MRGN < 4MRGN Everything else, except custom guidelines: Ordered factor levels Negative < Positive, unconfirmed < Positive. value \"Positive, unconfirmed\" means , according guideline, entirely sure isolate multi-drug resistant confirmed additional (e.g. molecular) tests","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"functions context-aware. means x argument can left blank used inside data.frame call, see Examples. pct_required_classes argument, values 1 divided 100. support fractions (0.75 3/4) percentages (75). Note: Every test involves Enterobacteriaceae family, internally performed using newly named order Enterobacterales, since Enterobacteriaceae family taxonomically reclassified Adeolu et al. 2016. , Enterobacteriaceae family Enterobacteriales () order. species old Enterobacteriaceae family still new Enterobacterales (without ) order, divided multiple families. way tests performed now mdro() function makes sure results 2016 2016 identical.","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"supported-international-national-guidelines","dir":"Reference","previous_headings":"","what":"Supported International / National Guidelines","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"Currently supported guidelines (case-insensitive): guideline = \"CMI2012\" (default) Magiorakos AP, Srinivasan et al. \"Multidrug-resistant, extensively drug-resistant pandrug-resistant bacteria: international expert proposal interim standard definitions acquired resistance.\" Clinical Microbiology Infection (2012) (doi:10.1111/j.1469-0691.2011.03570.x ) guideline = \"EUCAST3.3\" (simply guideline = \"EUCAST\") European international guideline - EUCAST Expert Rules Version 3.3 \"Intrinsic Resistance Unusual Phenotypes\" (link) guideline = \"EUCAST3.2\" European international guideline - EUCAST Expert Rules Version 3.2 \"Intrinsic Resistance Unusual Phenotypes\" (link) guideline = \"EUCAST3.1\" European international guideline - EUCAST Expert Rules Version 3.1 \"Intrinsic Resistance Exceptional Phenotypes Tables\" (link) guideline = \"TB\" international guideline multi-drug resistant tuberculosis - World Health Organization \"Companion handbook guidelines programmatic management drug-resistant tuberculosis\" (link) guideline = \"MRGN\" German national guideline - Mueller et al. (2015) Antimicrobial Resistance Infection Control 4:7; doi:10.1186/s13756-015-0047-6 guideline = \"BRMO\" Dutch national guideline - Rijksinstituut voor Volksgezondheid en Milieu \"WIP-richtlijn BRMO (Bijzonder Resistente Micro-Organismen) (ZKH)\" (link) Please suggest (country-specific) guidelines letting us know: https://github.com/msberends/AMR/issues/new.","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"using-custom-guidelines","dir":"Reference","previous_headings":"","what":"Using Custom Guidelines","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"Custom guidelines can set custom_mdro_guideline() function. great importance custom rules determine MDROs hospital, e.g., rules dependent ward, state contact isolation variables data. familiar case_when() function dplyr package, recognise input method set rules. Rules must set using R considers 'formula notation'. rule written tilde (~) consequence rule written tilde:   row/isolate matches first rule, value first ~ (case 'Elderly Type ') set MDRO value. Otherwise, second rule tried . number rules unlimited. can print rules set console overview. Colours help reading console supports colours.   outcome function can used guideline argument mdro() function:   Rules can also combined custom rules using c():   rules set (custom object case) exported shared file location using saveRDS() collaborate multiple users. custom rules set imported using readRDS().","code":"custom <- custom_mdro_guideline(CIP == \"R\" & age > 60 ~ \"Elderly Type A\",                                 ERY == \"R\" & age > 60 ~ \"Elderly Type B\") custom #> A set of custom MDRO rules: #>   1. CIP is \"R\" and age is higher than 60 -> Elderly Type A #>   2. ERY is \"R\" and age is higher than 60 -> Elderly Type B #>   3. Otherwise -> Negative #> #> Unmatched rows will return NA. x <- mdro(example_isolates,           guideline = custom) table(x) #>       Negative Elderly Type A Elderly Type B #>           1070            198            732 x <- mdro(example_isolates,           guideline = c(custom,                         custom_mdro_guideline(ERY == \"R\" & age > 50 ~ \"Elderly Type C\"))) table(x) #>       Negative Elderly Type A Elderly Type B Elderly Type C #>            961            198            732            109"},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"antibiotics","dir":"Reference","previous_headings":"","what":"Antibiotics","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"define antibiotics column names, leave determine automatically guess_ab_col() input text (case-insensitive), use NULL skip column (e.g. TIC = NULL skip ticarcillin). Manually defined non-existing columns skipped warning. following antibiotics eligible functions eucast_rules() mdro(). shown format 'name (antimicrobial ID, ATC code)', sorted alphabetically: Amikacin (AMK, J01GB06), amoxicillin (AMX, J01CA04), amoxicillin/clavulanic acid (AMC, J01CR02), ampicillin (AMP, J01CA01), ampicillin/sulbactam (SAM, J01CR01), arbekacin (ARB, J01GB12), aspoxicillin (APX, J01CA19), azidocillin (AZD, J01CE04), azithromycin (AZM, J01FA10), azlocillin (AZL, J01CA09), aztreonam (ATM, J01DF01), bacampicillin (BAM, J01CA06), bekanamycin (BEK, J01GB13), benzathine benzylpenicillin (BNB, J01CE08), benzathine phenoxymethylpenicillin (BNP, J01CE10), benzylpenicillin (PEN, J01CE01), besifloxacin (BES, S01AE08), biapenem (BIA, J01DH05), carbenicillin (CRB, J01CA03), carindacillin (CRN, J01CA05), cefacetrile (CAC, J01DB10), cefaclor (CEC, J01DC04), cefadroxil (CFR, J01DB05), cefalexin (LEX, J01DB01), cefaloridine (RID, J01DB02), cefalotin (CEP, J01DB03), cefamandole (MAN, J01DC03), cefapirin (HAP, J01DB08), cefatrizine (CTZ, J01DB07), cefazedone (CZD, J01DB06), cefazolin (CZO, J01DB04), cefcapene (CCP, J01DD17), cefdinir (CDR, J01DD15), cefditoren (DIT, J01DD16), cefepime (FEP, J01DE01), cefetamet (CAT, J01DD10), cefixime (CFM, J01DD08), cefmenoxime (CMX, J01DD05), cefmetazole (CMZ, J01DC09), cefodizime (DIZ, J01DD09), cefonicid (CID, J01DC06), cefoperazone (CFP, J01DD12), cefoperazone/sulbactam (CSL, J01DD62), ceforanide (CND, J01DC11), cefotaxime (CTX, J01DD01), cefotaxime/clavulanic acid (CTC, J01DD51), cefotetan (CTT, J01DC05), cefotiam (CTF, J01DC07), cefoxitin (FOX, J01DC01), cefozopran (ZOP, J01DE03), cefpiramide (CPM, J01DD11), cefpirome (CPO, J01DE02), cefpodoxime (CPD, J01DD13), cefprozil (CPR, J01DC10), cefroxadine (CRD, J01DB11), cefsulodin (CFS, J01DD03), ceftaroline (CPT, J01DI02), ceftazidime (CAZ, J01DD02), ceftazidime/clavulanic acid (CCV, J01DD52), cefteram (CEM, J01DD18), ceftezole (CTL, J01DB12), ceftibuten (CTB, J01DD14), ceftizoxime (CZX, J01DD07), ceftobiprole medocaril (CFM1, J01DI01), ceftolozane/tazobactam (CZT, J01DI54), ceftriaxone (CRO, J01DD04), ceftriaxone/beta-lactamase inhibitor (CEB, J01DD63), cefuroxime (CXM, J01DC02), cephradine (CED, J01DB09), chloramphenicol (CHL, J01BA01), ciprofloxacin (CIP, J01MA02), clarithromycin (CLR, J01FA09), clindamycin (CLI, J01FF01), clometocillin (CLM, J01CE07), cloxacillin (CLO, J01CF02), colistin (COL, J01XB01), cycloserine (CYC, J04AB01), dalbavancin (DAL, J01XA04), daptomycin (DAP, J01XX09), delafloxacin (DFX, J01MA23), dibekacin (DKB, J01GB09), dicloxacillin (DIC, J01CF01), dirithromycin (DIR, J01FA13), doripenem (DOR, J01DH04), doxycycline (DOX, J01AA02), enoxacin (ENX, J01MA04), epicillin (EPC, J01CA07), ertapenem (ETP, J01DH03), erythromycin (ERY, J01FA01), fleroxacin (FLE, J01MA08), flucloxacillin (FLC, J01CF05), flurithromycin (FLR1, J01FA14), fosfomycin (FOS, J01XX01), framycetin (FRM, D09AA01), fusidic acid (FUS, J01XC01), garenoxacin (GRN, J01MA19), gatifloxacin (GAT, J01MA16), gemifloxacin (GEM, J01MA15), gentamicin (GEN, J01GB03), grepafloxacin (GRX, J01MA11), hetacillin (HET, J01CA18), imipenem (IPM, J01DH51), imipenem/relebactam (IMR, J01DH56), isepamicin (ISE, J01GB11), josamycin (JOS, J01FA07), kanamycin (KAN, J01GB04), lascufloxacin (LSC, J01MA25), latamoxef (LTM, J01DD06), levofloxacin (LVX, J01MA12), levonadifloxacin (LND, J01MA24), lincomycin (LIN, J01FF02), linezolid (LNZ, J01XX08), lomefloxacin (LOM, J01MA07), loracarbef (LOR, J01DC08), mecillinam (MEC, J01CA11), meropenem (MEM, J01DH02), meropenem/vaborbactam (MEV, J01DH52), metampicillin (MTM, J01CA14), meticillin (MET, J01CF03), mezlocillin (MEZ, J01CA10), micronomicin (MCR, S01AA22), midecamycin (MID, J01FA03), minocycline (MNO, J01AA08), miocamycin (MCM, J01FA11), moxifloxacin (MFX, J01MA14), nadifloxacin (NAD, D10AF05), nafcillin (NAF, J01CF06), nalidixic acid (NAL, J01MB02), neomycin (NEO, J01GB05), netilmicin (NET, J01GB07), nitrofurantoin (NIT, J01XE01), norfloxacin (, J01MA06), ofloxacin (OFX, J01MA01), oleandomycin (OLE, J01FA05), oritavancin (ORI, J01XA05), oxacillin (OXA, J01CF04), panipenem (PAN, J01DH55), pazufloxacin (PAZ, J01MA18), pefloxacin (PEF, J01MA03), penamecillin (PNM, J01CE06), pheneticillin (PHE, J01CE05), phenoxymethylpenicillin (PHN, J01CE02), piperacillin (PIP, J01CA12), piperacillin/tazobactam (TZP, J01CR05), pivampicillin (PVM, J01CA02), pivmecillinam (PME, J01CA08), plazomicin (PLZ, J01GB14), polymyxin B (PLB, J01XB02), pristinamycin (PRI, J01FG01), procaine benzylpenicillin (PRB, J01CE09), propicillin (PRP, J01CE03), prulifloxacin (PRU, J01MA17), quinupristin/dalfopristin (QDA, J01FG02), ribostamycin (RST, J01GB10), rifampicin (RIF, J04AB02), rokitamycin (ROK, J01FA12), roxithromycin (RXT, J01FA06), rufloxacin (RFL, J01MA10), sisomicin (SIS, J01GB08), sitafloxacin (SIT, J01MA21), solithromycin (SOL, J01FA16), sparfloxacin (SPX, J01MA09), spiramycin (SPI, J01FA02), streptoduocin (STR, J01GA02), streptomycin (STR1, J01GA01), sulbactam (SUL, J01CG01), sulbenicillin (SBC, J01CA16), sulfadiazine (SDI, J01EC02), sulfadiazine/trimethoprim (SLT1, J01EE02), sulfadimethoxine (SUD, J01ED01), sulfadimidine (SDM, J01EB03), sulfadimidine/trimethoprim (SLT2, J01EE05), sulfafurazole (SLF, J01EB05), sulfaisodimidine (SLF1, J01EB01), sulfalene (SLF2, J01ED02), sulfamazone (SZO, J01ED09), sulfamerazine (SLF3, J01ED07), sulfamerazine/trimethoprim (SLT3, J01EE07), sulfamethizole (SLF4, J01EB02), sulfamethoxazole (SMX, J01EC01), sulfamethoxypyridazine (SLF5, J01ED05), sulfametomidine (SLF6, J01ED03), sulfametoxydiazine (SLF7, J01ED04), sulfametrole/trimethoprim (SLT4, J01EE03), sulfamoxole (SLF8, J01EC03), sulfamoxole/trimethoprim (SLT5, J01EE04), sulfanilamide (SLF9, J01EB06), sulfaperin (SLF10, J01ED06), sulfaphenazole (SLF11, J01ED08), sulfapyridine (SLF12, J01EB04), sulfathiazole (SUT, J01EB07), sulfathiourea (SLF13, J01EB08), sultamicillin (SLT6, J01CR04), talampicillin (TAL, J01CA15), tazobactam (TAZ, J01CG02), tebipenem (TBP, J01DH06), tedizolid (TZD, J01XX11), teicoplanin (TEC, J01XA02), telavancin (TLV, J01XA03), telithromycin (TLT, J01FA15), temafloxacin (TMX, J01MA05), temocillin (TEM, J01CA17), tetracycline (TCY, J01AA07), ticarcillin (TIC, J01CA13), ticarcillin/clavulanic acid (TCC, J01CR03), tigecycline (TGC, J01AA12), tilbroquinol (TBQ, P01AA05), tobramycin (TOB, J01GB01), tosufloxacin (TFX, J01MA22), trimethoprim (TMP, J01EA01), trimethoprim/sulfamethoxazole (SXT, J01EE01), troleandomycin (TRL, J01FA08), trovafloxacin (TVA, J01MA13), vancomycin (VAN, J01XA01)","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"interpretation-of-sir","dir":"Reference","previous_headings":"","what":"Interpretation of SIR","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"2019, European Committee Antimicrobial Susceptibility Testing (EUCAST) decided change definitions susceptibility testing categories S, , R shown (https://www.eucast.org/newsiandr): S - Susceptible, standard dosing regimen microorganism categorised \"Susceptible, standard dosing regimen\", high likelihood therapeutic success using standard dosing regimen agent. - Susceptible, increased exposure  microorganism categorised \"Susceptible, Increased exposure\" high likelihood therapeutic success exposure agent increased adjusting dosing regimen concentration site infection. R = Resistant microorganism categorised \"Resistant\" high likelihood therapeutic failure even increased exposure. Exposure function mode administration, dose, dosing interval, infusion time, well distribution excretion antimicrobial agent influence infecting organism site infection. AMR package honours insight. Use susceptibility() (equal proportion_SI()) determine antimicrobial susceptibility count_susceptible() (equal count_SI()) count susceptible isolates.","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"","code":"out <- mdro(example_isolates, guideline = \"EUCAST\") str(out) #>  Ord.factor w/ 3 levels \"Negative\"<\"Positive, unconfirmed\"<..: 1 1 1 1 1 1 1 1 1 1 ... table(out) #> out #>              Negative Positive, unconfirmed              Positive  #>                  1978                     0                     6   out <- mdro(example_isolates,   guideline = custom_mdro_guideline(     AMX == \"R\" ~ \"Custom MDRO 1\",     VAN == \"R\" ~ \"Custom MDRO 2\"   ) ) table(out) #> out #>      Negative Custom MDRO 1 Custom MDRO 2  #>           870           804           326   # \\donttest{ if (require(\"dplyr\")) {   example_isolates %>%     mdro() %>%     table()    # no need to define `x` when used inside dplyr verbs:   example_isolates %>%     mutate(MDRO = mdro()) %>%     pull(MDRO) %>%     table() } #> Warning: in mdro(): NA introduced for isolates where the available percentage of #> antimicrobial classes was below 50% (set with pct_required_classes) #> Warning: There was 1 warning in `mutate()`. #> ℹ In argument: `MDRO = mdro()`. #> Caused by warning: #> ! in mdro(): NA introduced for isolates where the available percentage of #> antimicrobial classes was below 50% (set with pct_required_classes) #> . #>                         Negative       Multi-drug-resistant (MDR)  #>                             1601                              128  #> Extensively drug-resistant (XDR)          Pandrug-resistant (PDR)  #>                                0                                0  # }"},{"path":"https://msberends.github.io/AMR/reference/mean_amr_distance.html","id":null,"dir":"Reference","previous_headings":"","what":"Calculate the Mean AMR Distance — mean_amr_distance","title":"Calculate the Mean AMR Distance — mean_amr_distance","text":"Calculates normalised mean antimicrobial resistance multiple observations, help identify similar isolates without comparing antibiograms hand.","code":""},{"path":"https://msberends.github.io/AMR/reference/mean_amr_distance.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Calculate the Mean AMR Distance — mean_amr_distance","text":"","code":"mean_amr_distance(x, ...)  # S3 method for sir mean_amr_distance(x, ..., combine_SI = TRUE)  # S3 method for data.frame mean_amr_distance(x, ..., combine_SI = TRUE)  amr_distance_from_row(amr_distance, row)"},{"path":"https://msberends.github.io/AMR/reference/mean_amr_distance.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Calculate the Mean AMR Distance — mean_amr_distance","text":"x vector class sir, mic disk, data.frame containing columns classes ... variables select (supports tidyselect language column1:column4 (.mic), can thus also antibiotic selectors combine_SI logical indicate whether values S must merged one, input consists S+vs. R (susceptible vs. resistant) - default TRUE amr_distance outcome mean_amr_distance() row index, row number","code":""},{"path":"https://msberends.github.io/AMR/reference/mean_amr_distance.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Calculate the Mean AMR Distance — mean_amr_distance","text":"mean AMR distance effectively Z-score; normalised numeric value compare AMR test results can help identify similar isolates, without comparing antibiograms hand. MIC values (see .mic()) transformed log2() first; distance thus calculated (log2(x) - mean(log2(x))) / sd(log2(x)). SIR values (see .sir()) transformed using \"S\" = 1, \"\" = 2, \"R\" = 3. combine_SI TRUE (default), \"\" considered 1. data sets, mean AMR distance calculated per column, mean per row returned, see Examples. Use amr_distance_from_row() subtract distances distance one row, see Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/mean_amr_distance.html","id":"interpretation","dir":"Reference","previous_headings":"","what":"Interpretation","title":"Calculate the Mean AMR Distance — mean_amr_distance","text":"Isolates distances less 0.01 difference considered similar. Differences lower 0.025 considered suspicious.","code":""},{"path":"https://msberends.github.io/AMR/reference/mean_amr_distance.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Calculate the Mean AMR Distance — mean_amr_distance","text":"","code":"sir <- random_sir(10) sir #> Class 'sir' #>  [1] S R R S I I R S S R mean_amr_distance(sir) #>  [1] -0.7745967  1.1618950  1.1618950 -0.7745967 -0.7745967 -0.7745967 #>  [7]  1.1618950 -0.7745967 -0.7745967  1.1618950  mic <- random_mic(10) mic #> Class 'mic' #>  [1] 0.002   >=64    0.125   >=64    2       16      0.005   <=0.001 16      #> [10] 0.25    mean_amr_distance(mic) #>  [1] -1.2773949  1.1399840 -0.3137594  1.1399840  0.3323488  0.8169299 #>  [7] -1.0638678 -1.4389220  0.8169299 -0.1522324 # equal to the Z-score of their log2: (log2(mic) - mean(log2(mic))) / sd(log2(mic)) #>  [1] -1.2773949  1.1399840 -0.3137594  1.1399840  0.3323488  0.8169299 #>  [7] -1.0638678 -1.4389220  0.8169299 -0.1522324  disk <- random_disk(10) disk #> Class 'disk' #>  [1] 34 26 14 50  7 45 18 40 19 24 mean_amr_distance(disk) #>  [1]  0.4467074 -0.1205401 -0.9714114  1.5812024 -1.4677529  1.2266727 #>  [7] -0.6877876  0.8721430 -0.6168817 -0.2623520  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   30     8     2 #> 2   B    I   24 <=0.5     4 #> 3   C    S   19     2 <=0.5 #> 4   D    I   21 <=0.5     1 #> 5   E    I   22  >=16     1 #> 6   F    I   28     8     2 #> 7   G    I   19     4 <=0.5 #> 8   H    I   29 <=0.5 <=0.5 #> 9   I    I   26  >=16 <=0.5 #> 10  J    R   21     8     1 mean_amr_distance(y) #> ℹ Calculating mean AMR distance based on columns \"amox\", \"cipr\", \"gent\", #>   and \"tobr\" #>  [1]  1.23945841  0.03375462 -0.73801392 -0.62254823  0.04563698  0.52522389 #>  [7] -0.61650763 -0.37448920  0.05108107  0.45640401 y$amr_distance <- mean_amr_distance(y, where(is.mic)) #> Error in .subset(x, j): invalid subscript type 'list' y[order(y$amr_distance), ] #> Error in order(y$amr_distance): argument 1 is not a vector  if (require(\"dplyr\")) {   y %>%     mutate(       amr_distance = mean_amr_distance(y),       check_id_C = amr_distance_from_row(amr_distance, id == \"C\")     ) %>%     arrange(check_id_C) } #> ℹ Calculating mean AMR distance based on columns \"amox\", \"cipr\", \"gent\", #>   and \"tobr\" #>    id amox cipr  gent  tobr amr_distance check_id_C #> 1   C    S   19     2 <=0.5  -0.73801392  0.0000000 #> 2   D    I   21 <=0.5     1  -0.62254823  0.1154657 #> 3   G    I   19     4 <=0.5  -0.61650763  0.1215063 #> 4   H    I   29 <=0.5 <=0.5  -0.37448920  0.3635247 #> 5   B    I   24 <=0.5     4   0.03375462  0.7717685 #> 6   E    I   22  >=16     1   0.04563698  0.7836509 #> 7   I    I   26  >=16 <=0.5   0.05108107  0.7890950 #> 8   J    R   21     8     1   0.45640401  1.1944179 #> 9   F    I   28     8     2   0.52522389  1.2632378 #> 10  A    R   30     8     2   1.23945841  1.9774723 if (require(\"dplyr\")) {   # support for groups   example_isolates %>%     filter(mo_genus() == \"Enterococcus\" & mo_species() != \"\") %>%     select(mo, TCY, carbapenems()) %>%     group_by(mo) %>%     mutate(dist = mean_amr_distance(.)) %>%     arrange(mo, dist) } #> ℹ Using column 'mo' as input for mo_genus() #> ℹ Using column 'mo' as input for mo_species() #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ Calculating mean AMR distance based on columns \"TCY\", \"IPM\", and \"MEM\" #> # A tibble: 63 × 5 #> # Groups:   mo [4] #>    mo           TCY   IPM   MEM     dist #>    <mo>         <sir> <sir> <sir>  <dbl> #>  1 B_ENTRC_AVIM S     S     NA     0     #>  2 B_ENTRC_AVIM S     S     NA     0     #>  3 B_ENTRC_CSSL NA    S     NA    NA     #>  4 B_ENTRC_FACM S     S     NA    -2.66  #>  5 B_ENTRC_FACM S     R     R     -0.423 #>  6 B_ENTRC_FACM S     R     R     -0.423 #>  7 B_ENTRC_FACM NA    R     R      0.224 #>  8 B_ENTRC_FACM NA    R     R      0.224 #>  9 B_ENTRC_FACM NA    R     R      0.224 #> 10 B_ENTRC_FACM NA    R     R      0.224 #> # ℹ 53 more rows"},{"path":"https://msberends.github.io/AMR/reference/microorganisms.codes.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with 4 957 Common Microorganism Codes — microorganisms.codes","title":"Data Set with 4 957 Common Microorganism Codes — microorganisms.codes","text":"data set containing commonly used codes microorganisms, laboratory systems WHONET. Define set_mo_source(). searched using .mo() consequently mo_* functions.","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.codes.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with 4 957 Common Microorganism Codes — microorganisms.codes","text":"","code":"microorganisms.codes"},{"path":"https://msberends.github.io/AMR/reference/microorganisms.codes.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with 4 957 Common Microorganism Codes — microorganisms.codes","text":"tibble 4 957 observations 2 variables: code Commonly used code microorganism. unique identifier. mo ID microorganism microorganisms data set","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.codes.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with 4 957 Common Microorganism Codes — microorganisms.codes","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/microorganisms.codes.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with 4 957 Common Microorganism Codes — microorganisms.codes","text":"","code":"microorganisms.codes #> # A tibble: 4,957 × 2 #>    code  mo                #>    <chr> <mo>              #>  1 1011  B_GRAMP           #>  2 1012  B_GRAMP           #>  3 1013  B_GRAMN           #>  4 1014  B_GRAMN           #>  5 1015  F_YEAST           #>  6 103   B_ESCHR_COLI      #>  7 104   B_SLMNL_ENTR_ENTR #>  8 1100  B_STRPT           #>  9 1101  B_STRPT_VIRI      #> 10 1102  B_STRPT_HAEM      #> # ℹ 4,947 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\" #>  #> $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\" #>  #> $gbif #> [1] \"11286021\" #>   # works for all AMR functions: mo_is_intrinsic_resistant(\"eco\", ab = \"vancomycin\") #> [1] TRUE"},{"path":"https://msberends.github.io/AMR/reference/microorganisms.groups.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with 521 Microorganisms In Species Groups — microorganisms.groups","title":"Data Set with 521 Microorganisms In Species Groups — microorganisms.groups","text":"data set containing species groups microbiological complexes, used clinical breakpoints table.","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.groups.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with 521 Microorganisms In Species Groups — microorganisms.groups","text":"","code":"microorganisms.groups"},{"path":"https://msberends.github.io/AMR/reference/microorganisms.groups.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with 521 Microorganisms In Species Groups — microorganisms.groups","text":"tibble 521 observations 4 variables: mo_group ID species group / microbiological complex mo ID microorganism belonging species group / microbiological complex mo_group_name Name species group / microbiological complex, retrieved mo_name() mo_name Name microorganism belonging species group / microbiological complex, retrieved mo_name()","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.groups.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with 521 Microorganisms In Species Groups — microorganisms.groups","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/microorganisms.groups.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with 521 Microorganisms In Species Groups — microorganisms.groups","text":"","code":"microorganisms.groups #> # A tibble: 521 × 4 #>    mo_group       mo           mo_group_name                   mo_name           #>    <mo>           <mo>         <chr>                           <chr>             #>  1 B_ACNTB_BMNN-C B_ACNTB_BMNN Acinetobacter baumannii complex Acinetobacter ba… #>  2 B_ACNTB_BMNN-C B_ACNTB_CLCC Acinetobacter baumannii complex Acinetobacter ca… #>  3 B_ACNTB_BMNN-C B_ACNTB_DJKS 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_BCTRD_VLGT Bacteroides fragilis complex    Bacteroides vulg… #> # ℹ 511 more rows  # these are all species in the Bacteroides fragilis group, as per WHONET: microorganisms.groups[microorganisms.groups$mo_group == \"B_BCTRD_FRGL-C\", ] #> # A tibble: 5 × 4 #>   mo_group       mo           mo_group_name                mo_name               #>   <mo>           <mo>         <chr>                        <chr>                 #> 1 B_BCTRD_FRGL-C B_BCTRD_FRGL Bacteroides fragilis complex Bacteroides fragilis  #> 2 B_BCTRD_FRGL-C B_BCTRD_OVTS Bacteroides fragilis complex Bacteroides ovatus    #> 3 B_BCTRD_FRGL-C B_BCTRD_THTT Bacteroides fragilis complex Bacteroides thetaiot… #> 4 B_BCTRD_FRGL-C B_BCTRD_VLGT Bacteroides fragilis complex Bacteroides vulgatus  #> 5 B_BCTRD_FRGL-C B_PRBCT_DSTS Bacteroides fragilis complex Parabacteroides dist…"},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with 52 171 Microorganisms — microorganisms","title":"Data Set with 52 171 Microorganisms — microorganisms","text":"data set containing full microbial taxonomy (last updated: December 11th, 2022) five kingdoms List Prokaryotic names Standing Nomenclature (LPSN) Global Biodiversity Information Facility (GBIF). data set backbone AMR package. MO codes can looked using .mo().","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with 52 171 Microorganisms — microorganisms","text":"","code":"microorganisms"},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with 52 171 Microorganisms — microorganisms","text":"tibble 52 171 observations 23 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\" \"synonym\" kingdom, phylum, class, order, family, genus, species, subspecies Taxonomic rank microorganism rank Text taxonomic rank microorganism, \"species\" \"genus\" ref Author(s) year related scientific publication. contains first surname year latest authors, e.g. \"Wallis et al. 2006 emend. Smith Jones 2018\" becomes \"Smith et al., 2018\". field directly retrieved source specified column source. Moreover, accents removed comply CRAN allows ASCII characters. 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. oxygen_tolerance  Oxygen tolerance, either \"aerobe\", \"anaerobe\", \"anaerobe/microaerophile\", \"facultative anaerobe\", \"likely facultative anaerobe\", \"microaerophile\". data retrieved BacDive (see Source). Items contain \"likely\" missing BacDive extrapolated species within genus guess oxygen tolerance. Currently 73.4% ~37 000 bacteria data set contain oxygen tolerance. lpsn_parent LPSN identifier parent taxon lpsn_renamed_to LPSN identifier currently valid taxon gbif Identifier ('taxonID') Global Biodiversity Information Facility (GBIF) gbif_parent GBIF identifier parent taxon gbif_renamed_to GBIF identifier currently valid taxon source Either \"GBIF\", \"LPSN\", \"manually added\" (see Source) prevalence Prevalence microorganism according Bartlett et al. (2022, doi:10.1099/mic.0.001269 ), see mo_matching_score() full explanation snomed Systematized Nomenclature Medicine (SNOMED) code microorganism, version July 1st, 2021 (see Source). Use mo_snomed() retrieve quickly, see mo_property().","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Data Set with 52 171 Microorganisms — microorganisms","text":"Parte, AC et al. (2020). List Prokaryotic names Standing Nomenclature (LPSN) moves DSMZ. International Journal Systematic Evolutionary Microbiology, 70, 5607-5612; doi:10.1099/ijsem.0.004332 . Accessed https://lpsn.dsmz.de December 11th, 2022. GBIF Secretariat (2022). GBIF Backbone Taxonomy. Checklist dataset doi:10.15468/39omei . Accessed https://www.gbif.org December 11th, 2022. 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 May 12th, 2023. Public Health Information Network Vocabulary Access Distribution System (PHIN VADS). US Edition SNOMED CT 1 September 2020. Value Set Name 'Microorganism', OID 2.16.840.1.114222.4.11.1009 (v12). URL: https://phinvads.cdc.gov Grimont et al. (2007). Antigenic Formulae Salmonella Serovars, 9th Edition. Collaborating Centre Reference Research Salmonella (WHOCC-SALM). Bartlett et al. (2022). comprehensive list bacterial pathogens infecting humans Microbiology 168:001269; doi:10.1099/mic.0.001269","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with 52 171 Microorganisms — microorganisms","text":"Please note entries based List Prokaryotic names Standing Nomenclature (LPSN) Global Biodiversity Information Facility (GBIF) (see ). Since sources incorporate entries based (recent) publications International Journal Systematic Evolutionary Microbiology (IJSEM), can happen year publication sometimes later one might expect. example, Staphylococcus pettenkoferi described first time Diagnostic Microbiology Infectious Disease 2002 (doi:10.1016/s0732-8893(02)00399-1 ), 2007 publication IJSEM followed (doi:10.1099/ijs.0.64381-0 ). Consequently, AMR package returns 2007 mo_year(\"S. pettenkoferi\").","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"included-taxa","dir":"Reference","previous_headings":"","what":"Included Taxa","title":"Data Set with 52 171 Microorganisms — microorganisms","text":"Included taxonomic data : ~37 000 (sub)species kingdoms Archaea Bacteria ~7 900 (sub)species kingdom Fungi. kingdom Fungi large taxon almost 300,000 different (sub)species, microbial (rather macroscopic, like mushrooms). , fungi fit scope package. relevant fungi covered (species Aspergillus, Candida, Cryptococcus, Histoplasma, Pneumocystis, Saccharomyces Trichophyton). ~5 100 (sub)species kingdom Protozoa ~1 400 (sub)species 43 relevant genera kingdom Animalia (Strongyloides Taenia) ~9 800 previously accepted names included (sub)species (taxonomically renamed) complete taxonomic tree included (sub)species: kingdom subspecies identifier parent taxons year first author related scientific publication","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"manual-additions","dir":"Reference","previous_headings":"","what":"Manual additions","title":"Data Set with 52 171 Microorganisms — microorganisms","text":"convenience, entries added manually: ~1 500 entries Salmonella, city-like serovars groups H 36 species groups (beta-haemolytic Streptococcus groups K, coagulase-negative Staphylococcus (CoNS), Mycobacterium tuberculosis complex, etc.), group compositions stored microorganisms.groups data set 1 entry Blastocystis (B.  hominis), although officially exist (Noel et al. 2005, PMID 15634993) 1 entry Moraxella (M. catarrhalis), formally named Branhamella catarrhalis (Catlin, 1970) though change never accepted within field clinical microbiology 8 'undefined' entries (unknown, unknown Gram-negatives, unknown Gram-positives, unknown yeast, unknown fungus, unknown anaerobic Gram-pos/Gram-neg bacteria) syntax used transform original data cleansed R format, can found : https://github.com/msberends/AMR/blob/main/data-raw/reproduction_of_microorganisms.R.","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"direct-download","dir":"Reference","previous_headings":"","what":"Direct download","title":"Data Set with 52 171 Microorganisms — microorganisms","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"about-the-records-from-lpsn-see-source-","dir":"Reference","previous_headings":"","what":"About the Records from LPSN (see Source)","title":"Data Set with 52 171 Microorganisms — microorganisms","text":"LPSN main source bacteriological taxonomy AMR package. List Prokaryotic names Standing Nomenclature (LPSN) provides comprehensive information nomenclature prokaryotes. LPSN free use service founded Jean P. Euzeby 1997 later maintained Aidan C. Parte.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with 52 171 Microorganisms — microorganisms","text":"","code":"microorganisms #> # A tibble: 52,171 × 23 #>    mo               fullname      status kingdom phylum class order family genus #>    <mo>             <chr>         <chr>  <chr>   <chr>  <chr> <chr> <chr>  <chr> #>  1 B_GRAMN          (unknown Gra… accep… Bacter… (unkn… (unk… (unk… \"(unk… \"(un… #>  2 B_GRAMP          (unknown Gra… accep… Bacter… (unkn… (unk… (unk… \"(unk… \"(un… #>  3 B_ANAER-NEG      (unknown ana… accep… Bacter… (unkn… (unk… (unk… \"(unk… \"(un… #>  4 B_ANAER-POS      (unknown ana… accep… Bacter… (unkn… (unk… (unk… \"(unk… \"(un… #>  5 B_ANAER          (unknown ana… accep… Bacter… (unkn… (unk… (unk… \"(unk… \"(un… #>  6 F_FUNGUS         (unknown fun… accep… Fungi   (unkn… (unk… (unk… \"(unk… \"(un… #>  7   UNKNOWN        (unknown nam… accep… (unkno… (unkn… (unk… (unk… \"(unk… \"(un… #>  8 F_YEAST          (unknown yea… accep… Fungi   (unkn… (unk… (unk… \"(unk… \"(un… #>  9 B_[FAM]_ABDTBCTR Abditibacter… accep… Bacter… Abdit… Abdi… Abdi… \"Abdi… \"\"    #> 10 B_[ORD]_ABDTBCTR Abditibacter… accep… Bacter… Abdit… Abdi… Abdi… \"\"     \"\"    #> # ℹ 52,161 more rows #> # ℹ 14 more variables: species <chr>, subspecies <chr>, rank <chr>, ref <chr>, #> #   oxygen_tolerance <chr>, source <chr>, lpsn <chr>, lpsn_parent <chr>, #> #   lpsn_renamed_to <chr>, gbif <chr>, gbif_parent <chr>, #> #   gbif_renamed_to <chr>, prevalence <dbl>, snomed <list>"},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":null,"dir":"Reference","previous_headings":"","what":"Calculate the Matching Score for Microorganisms — mo_matching_score","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"algorithm used .mo() mo_* functions determine probable match taxonomic records based user input.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"","code":"mo_matching_score(x, n)"},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"x user input value(s) n full taxonomic name, exists microorganisms$fullname","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":"note","dir":"Reference","previous_headings":"","what":"Note","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"algorithm originally described : Berends MS et al. (2022). AMR: R Package Working Antimicrobial Resistance Data. Journal Statistical Software, 104(3), 1-31; doi:10.18637/jss.v104.i03 . Later, work Bartlett et al. bacterial pathogens infecting humans (2022, doi:10.1099/mic.0.001269 ) incorporated.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":"matching-score-for-microorganisms","dir":"Reference","previous_headings":"","what":"Matching Score for Microorganisms","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"ambiguous user input .mo() mo_* functions, returned results chosen based matching score using mo_matching_score(). matching score \\(m\\), calculated :  : \\(x\\) user input; \\(n\\) taxonomic name (genus, species, subspecies); \\(l_n\\) length \\(n\\); \\(lev\\) Levenshtein distance function (counting insertion 1, deletion substitution 2) needed change \\(x\\) \\(n\\); \\(p_n\\) human pathogenic prevalence group \\(n\\), described ; \\(k_n\\) taxonomic kingdom \\(n\\), set Bacteria = 1, Fungi = 1.25, Protozoa = 1.5, 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.0 microorganisms data set; Putative, taxonomic species fewer three known cases. records prevalence = 1.25 microorganisms data set. Furthermore, genus present established list also prevalence = 1.0 microorganisms data set; genus present putative list prevalence = 1.25 microorganisms data set; species subspecies genus present two aforementioned groups, prevalence = 1.5 microorganisms data set; non-bacterial genus, species subspecies genus present following list, prevalence = 1.25 microorganisms data set: Absidia, Acanthamoeba, Acremonium, Aedes, Alternaria, Amoeba, Ancylostoma, Angiostrongylus, Anisakis, Anopheles, Apophysomyces, Aspergillus, Aureobasidium, Basidiobolus, Beauveria, Blastocystis, Blastomyces, Candida, Capillaria, Chaetomium, Chrysonilia, Cladophialophora, Cladosporium, Conidiobolus, Contracaecum, Cordylobia, Cryptococcus, Curvularia, Demodex, Dermatobia, Dientamoeba, Diphyllobothrium, Dirofilaria, Echinostoma, Entamoeba, Enterobius, Exophiala, Exserohilum, Fasciola, Fonsecaea, Fusarium, Giardia, Haloarcula, Halobacterium, Halococcus, Hendersonula, Heterophyes, Histomonas, Histoplasma, Hymenolepis, Hypomyces, Hysterothylacium, Leishmania, Malassezia, Malbranchea, Metagonimus, Meyerozyma, Microsporidium, Microsporum, Mortierella, Mucor, Mycocentrospora, Necator, Nectria, Ochroconis, Oesophagostomum, Oidiodendron, Opisthorchis, Pediculus, Penicillium, Phlebotomus, Phoma, Pichia, Piedraia, Pithomyces, Pityrosporum, Pneumocystis, Pseudallescheria, Pseudoterranova, Pulex, Rhizomucor, Rhizopus, Rhodotorula, Saccharomyces, Sarcoptes, Scolecobasidium, Scopulariopsis, Scytalidium, Spirometra, Sporobolomyces, Stachybotrys, Strongyloides, Syngamus, Taenia, Talaromyces, Toxocara, Trichinella, Trichobilharzia, Trichoderma, Trichomonas, Trichophyton, Trichosporon, Trichostrongylus, Trichuris, Tritirachium, Trombicula, Trypanosoma, Tunga, Wuchereria; records prevalence = 2.0 microorganisms data set. calculating matching score, characters \\(x\\) \\(n\\) ignored -Z, -z, 0-9, spaces parentheses. matches sorted descending matching score user input values, top match returned. lead effect e.g., \"E. coli\" return microbial ID Escherichia coli (\\(m = 0.688\\), highly prevalent microorganism found humans) Entamoeba coli (\\(m = 0.381\\), less prevalent microorganism humans), although latter alphabetically come first.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":"author","dir":"Reference","previous_headings":"","what":"Author","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"Dr. Matthijs Berends, 2018","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"","code":"mo_reset_session() #> ℹ Reset 17 previously matched input values.  as.mo(\"E. coli\") #> Class 'mo' #> [1] B_ESCHR_COLI mo_uncertainties() #> Matching scores are based on the resemblance between the input and the full #> taxonomic name, and the pathogenicity in humans. See ?mo_matching_score. #>  #> -------------------------------------------------------------------------------- #> \"E. coli\" -> Escherichia coli (B_ESCHR_COLI, 0.688) #> Also matched: Enterobacter cowanii (0.600), Eubacterium combesii #>               (0.600), Eggerthia catenaformis (0.591), Eubacterium callanderi #>               (0.591), Enterocloster citroniae (0.587), Eubacterium cylindroides #>               (0.583), Enterococcus casseliflavus (0.577), Enterobacter cloacae #>               cloacae (0.571), Enterobacter cloacae complex (0.571), and Ehrlichia #>               canis (0.567) #>  #> Only the first 10 other matches of each record are shown. Run #> print(mo_uncertainties(), n = ...) to view more entries, or save #> mo_uncertainties() to an object.  mo_matching_score(   x = \"E. coli\",   n = c(\"Escherichia coli\", \"Entamoeba coli\") ) #> [1] 0.6875000 0.3809524"},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":null,"dir":"Reference","previous_headings":"","what":"Get Properties of a Microorganism — mo_property","title":"Get Properties of a Microorganism — mo_property","text":"Use functions return specific property microorganism based latest accepted taxonomy. input values evaluated internally .mo(), makes possible use microbial abbreviations, codes names input. See Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Get Properties of a Microorganism — mo_property","text":"","code":"mo_name(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_fullname(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_shortname(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_subspecies(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_species(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_genus(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_family(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_order(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_class(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_phylum(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_kingdom(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_domain(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_type(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_status(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_pathogenicity(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_gramstain(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_is_gram_negative(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_is_gram_positive(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_is_yeast(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_is_intrinsic_resistant(   x,   ab,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_oxygen_tolerance(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_is_anaerobic(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_snomed(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_ref(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_authors(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_year(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_lpsn(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_gbif(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_rank(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_taxonomy(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_synonyms(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_current(x, language = get_AMR_locale(), ...)  mo_info(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_url(   x,   open = FALSE,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_property(   x,   property = \"fullname\",   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )"},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Get Properties of a Microorganism — mo_property","text":"x character (vector) can coerced valid microorganism code .mo(). Can left blank auto-guessing column containing microorganism codes used data set, see Examples. language language translate text like \"growth\", defaults system language (see get_AMR_locale()) keep_synonyms logical indicate old, previously valid taxonomic names must preserved corrected currently accepted names. default FALSE, return note old taxonomic names processed. default can set package option AMR_keep_synonyms, .e. options(AMR_keep_synonyms = TRUE) options(AMR_keep_synonyms = FALSE). ... arguments passed .mo(), 'minimum_matching_score', 'ignore_pattern', 'remove_from_input' ab (vector ) text can coerced valid antibiotic drug code .ab() open browse URL using browseURL() property one column names microorganisms data set: \"mo\", \"fullname\", \"status\", \"kingdom\", \"phylum\", \"class\", \"order\", \"family\", \"genus\", \"species\", \"subspecies\", \"rank\", \"ref\", \"oxygen_tolerance\", \"source\", \"lpsn\", \"lpsn_parent\", \"lpsn_renamed_to\", \"gbif\", \"gbif_parent\", \"gbif_renamed_to\", \"prevalence\", \"snomed\", must \"shortname\"","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Get Properties of a Microorganism — mo_property","text":"integer case mo_year() ordered factor case mo_pathogenicity() list case mo_taxonomy(), mo_synonyms(), mo_snomed() mo_info() named character case mo_url() character cases","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Get Properties of a Microorganism — mo_property","text":"functions , default, keep old taxonomic properties, synonyms automatically replaced current taxonomy. Take example Enterobacter aerogenes, initially named 1960 renamed Klebsiella aerogenes 2017: mo_genus(\"Enterobacter aerogenes\") return \"Klebsiella\" (note renaming) mo_genus(\"Enterobacter aerogenes\", keep_synonyms = TRUE) return \"Enterobacter\" (-per-session warning name outdated) mo_ref(\"Enterobacter aerogenes\") return \"Tindall et al., 2017\" (note) mo_ref(\"Enterobacter aerogenes\", keep_synonyms = TRUE) return \"Hormaeche et al., 1960\" (warning) short name (mo_shortname()) returns first character genus full species, \"E. coli\", species subspecies. Exceptions abbreviations staphylococci (\"CoNS\", Coagulase-Negative Staphylococci) beta-haemolytic streptococci (\"GBS\", Group B Streptococci). Please bear mind e.g. E. coli mean Escherichia coli (kingdom Bacteria) well Entamoeba coli (kingdom Protozoa). Returning full name done using .mo() internally, giving priority bacteria human pathogens, .e. \"E. coli\" considered Escherichia coli. result, mo_fullname(mo_shortname(\"Entamoeba coli\")) returns \"Escherichia coli\". Since top-level taxonomy sometimes referred 'kingdom' sometimes 'domain', functions mo_kingdom() mo_domain() return exact results. Determination human pathogenicity (mo_pathogenicity()) strongly based Bartlett et al. (2022, doi:10.1099/mic.0.001269 ). function returns factor levels Pathogenic, Potentially pathogenic, Non-pathogenic, Unknown. Determination Gram stain (mo_gramstain()) based taxonomic kingdom phylum. Originally, Cavalier-Smith defined -called subkingdoms Negibacteria Posibacteria (2002, PMID 11837318), considered phyla Posibacteria: Actinobacteria, Chloroflexi, Firmicutes, Tenericutes. phyla later renamed Actinomycetota, Chloroflexota, Bacillota, Mycoplasmatota (2021, PMID 34694987). Bacteria phyla considered Gram-positive AMR package, except members class Negativicutes (within phylum Bacillota) Gram-negative. bacteria considered Gram-negative. Species outside kingdom Bacteria return value NA. Functions mo_is_gram_negative() mo_is_gram_positive() always return TRUE FALSE (NA input NA MO code UNKNOWN), thus always return FALSE species outside taxonomic kingdom Bacteria. Determination yeasts (mo_is_yeast()) based taxonomic kingdom class. Budding yeasts fungi phylum Ascomycota, class Saccharomycetes (also called Hemiascomycetes). True yeasts aggregated underlying order Saccharomycetales. Thus, microorganisms member taxonomic class Saccharomycetes, function return TRUE. returns FALSE otherwise (NA input NA MO code UNKNOWN). Determination intrinsic resistance (mo_is_intrinsic_resistant()) based intrinsic_resistant data set, based 'EUCAST Expert Rules' 'EUCAST Intrinsic Resistance Unusual Phenotypes' v3.3 (2021). mo_is_intrinsic_resistant() function can vectorised argument x (input microorganisms) ab (input antibiotics). 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. SNOMED codes (mo_snomed()) version July 1st, 2021. See Source microorganisms data set info. Old taxonomic names (-called 'synonyms') can retrieved mo_synonyms() (scientific reference name), current taxonomic name can retrieved mo_current(). functions return full names. output translated possible.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"matching-score-for-microorganisms","dir":"Reference","previous_headings":"","what":"Matching Score for Microorganisms","title":"Get Properties of a Microorganism — mo_property","text":"function uses .mo() internally, uses advanced algorithm translate arbitrary user input valid taxonomy using -called matching score. can read public algorithm MO matching score page.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Get Properties of a Microorganism — mo_property","text":"Berends MS et al. (2022). AMR: R Package Working Antimicrobial Resistance Data. Journal Statistical Software, 104(3), 1-31; doi:10.18637/jss.v104.i03 Becker K et al. (2014). Coagulase-Negative Staphylococci. Clin Microbiol Rev. 27(4): 870-926; doi:10.1128/CMR.00109-13 Becker K et al. (2019). Implications identifying recently defined members S. aureus complex, S. argenteus S. schweitzeri: position paper members ESCMID Study Group staphylococci Staphylococcal Diseases (ESGS). Clin Microbiol Infect; doi:10.1016/j.cmi.2019.02.028 Becker K et al. (2020). Emergence coagulase-negative staphylococci. Expert Rev Anti Infect Ther. 18(4):349-366; doi:10.1080/14787210.2020.1730813 Lancefield RC (1933). serological differentiation human groups hemolytic streptococci. J Exp Med. 57(4): 571-95; doi:10.1084/jem.57.4.571 Berends MS et al. (2022). Trends Occurrence Phenotypic Resistance Coagulase-Negative Staphylococci (CoNS) Found Human Blood Northern Netherlands 2013 2019/ Micro.rganisms 10(9), 1801; doi:10.3390/microorganisms10091801 Parte, AC et al. (2020). List Prokaryotic names Standing Nomenclature (LPSN) moves DSMZ. International Journal Systematic Evolutionary Microbiology, 70, 5607-5612; doi:10.1099/ijsem.0.004332 . Accessed https://lpsn.dsmz.de December 11th, 2022. GBIF Secretariat (2022). GBIF Backbone Taxonomy. Checklist dataset doi:10.15468/39omei . Accessed https://www.gbif.org December 11th, 2022. 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 May 12th, 2023. Public Health Information Network Vocabulary Access Distribution System (PHIN VADS). US Edition SNOMED CT 1 September 2020. Value Set Name 'Microorganism', OID 2.16.840.1.114222.4.11.1009 (v12). URL: https://phinvads.cdc.gov Bartlett et al. (2022). comprehensive list bacterial pathogens infecting humans Microbiology 168:001269; doi:10.1099/mic.0.001269","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Get Properties of a Microorganism — mo_property","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Get Properties of a Microorganism — mo_property","text":"","code":"# taxonomic tree -----------------------------------------------------------  mo_kingdom(\"Klebsiella pneumoniae\") #> [1] \"Bacteria\" mo_phylum(\"Klebsiella pneumoniae\") #> [1] \"Pseudomonadota\" mo_class(\"Klebsiella pneumoniae\") #> [1] \"Gammaproteobacteria\" mo_order(\"Klebsiella pneumoniae\") #> [1] \"Enterobacterales\" mo_family(\"Klebsiella pneumoniae\") #> [1] \"Enterobacteriaceae\" mo_genus(\"Klebsiella pneumoniae\") #> [1] \"Klebsiella\" mo_species(\"Klebsiella pneumoniae\") #> [1] \"pneumoniae\" mo_subspecies(\"Klebsiella pneumoniae\") #> [1] \"\"   # full names and short names -----------------------------------------------  mo_name(\"Klebsiella pneumoniae\") #> [1] \"Klebsiella pneumoniae\" mo_fullname(\"Klebsiella pneumoniae\") #> [1] \"Klebsiella pneumoniae\" mo_shortname(\"Klebsiella pneumoniae\") #> [1] \"K. pneumoniae\"   # other properties ---------------------------------------------------------  mo_pathogenicity(\"Klebsiella pneumoniae\") #> [1] Pathogenic #> Levels: Pathogenic < Potentially pathogenic < Non-pathogenic < Unknown mo_gramstain(\"Klebsiella pneumoniae\") #> [1] \"Gram-negative\" mo_snomed(\"Klebsiella pneumoniae\") #> [[1]] #> [1] \"1098101000112102\" \"446870005\"        \"1098201000112108\" \"409801009\"        #> [5] \"56415008\"         \"714315002\"        \"713926009\"        #>  mo_type(\"Klebsiella pneumoniae\") #> [1] \"Bacteria\" mo_rank(\"Klebsiella pneumoniae\") #> [1] \"species\" mo_url(\"Klebsiella pneumoniae\") #>                                Klebsiella pneumoniae  #> \"https://lpsn.dsmz.de/species/klebsiella-pneumoniae\"  mo_is_yeast(c(\"Candida\", \"Trichophyton\", \"Klebsiella\")) #> [1]  TRUE FALSE FALSE   # scientific reference -----------------------------------------------------  mo_ref(\"Klebsiella aerogenes\") #> [1] \"Tindall et al., 2017\" mo_authors(\"Klebsiella aerogenes\") #> [1] \"Tindall et al.\" mo_year(\"Klebsiella aerogenes\") #> [1] 2017 mo_lpsn(\"Klebsiella aerogenes\") #> [1] \"777146\" mo_gbif(\"Klebsiella aerogenes\") #> [1] \"9281703\" mo_synonyms(\"Klebsiella aerogenes\") #>   Hormaeche et al., 1960     Bascomb et al., 1971  #> \"Enterobacter aerogenes\"     \"Klebsiella mobilis\"    # abbreviations known in the field -----------------------------------------  mo_genus(\"MRSA\") #> [1] \"Staphylococcus\" mo_species(\"MRSA\") #> [1] \"aureus\" mo_shortname(\"VISA\") #> [1] \"S. aureus\" mo_gramstain(\"VISA\") #> [1] \"Gram-positive\"  mo_genus(\"EHEC\") #> [1] \"Escherichia\" mo_species(\"EIEC\") #> [1] \"coli\" mo_name(\"UPEC\") #> [1] \"Escherichia coli\"   # known subspecies ---------------------------------------------------------  mo_fullname(\"K. pneu rh\") #> [1] \"Klebsiella pneumoniae rhinoscleromatis\" mo_shortname(\"K. pneu rh\") #> [1] \"K. pneumoniae\"  # \\donttest{ # Becker classification, see ?as.mo ----------------------------------------  mo_fullname(\"Staph epidermidis\") #> [1] \"Staphylococcus epidermidis\" mo_fullname(\"Staph epidermidis\", Becker = TRUE) #> [1] \"Coagulase-negative Staphylococcus (CoNS)\" mo_shortname(\"Staph epidermidis\") #> [1] \"S. epidermidis\" mo_shortname(\"Staph epidermidis\", Becker = TRUE) #> [1] \"CoNS\"   # Lancefield classification, see ?as.mo ------------------------------------  mo_fullname(\"Strep agalactiae\") #> [1] \"Streptococcus agalactiae\" mo_fullname(\"Strep agalactiae\", Lancefield = TRUE) #> [1] \"Streptococcus Group B\" mo_shortname(\"Strep agalactiae\") #> [1] \"S. agalactiae\" mo_shortname(\"Strep agalactiae\", Lancefield = TRUE) #> [1] \"GBS\"   # language support  --------------------------------------------------------  mo_gramstain(\"Klebsiella pneumoniae\", language = \"de\") # German #> [1] \"Gramnegativ\" mo_gramstain(\"Klebsiella pneumoniae\", language = \"nl\") # Dutch #> [1] \"Gram-negatief\" mo_gramstain(\"Klebsiella pneumoniae\", language = \"es\") # Spanish #> [1] \"Gram negativo\" mo_gramstain(\"Klebsiella pneumoniae\", language = \"el\") # Greek #> [1] \"Αρνητικό κατά Gram\" mo_gramstain(\"Klebsiella pneumoniae\", language = \"uk\") # Ukrainian #> [1] \"Грамнегативні\"  # mo_type is equal to mo_kingdom, but mo_kingdom will remain untranslated mo_kingdom(\"Klebsiella pneumoniae\") #> [1] \"Bacteria\" mo_type(\"Klebsiella pneumoniae\") #> [1] \"Bacteria\" mo_kingdom(\"Klebsiella pneumoniae\", language = \"zh\") # Chinese, no effect #> [1] \"Bacteria\" mo_type(\"Klebsiella pneumoniae\", language = \"zh\") # Chinese, translated #> [1] \"细菌\"  mo_fullname(\"S. pyogenes\", Lancefield = TRUE, language = \"de\") #> [1] \"Streptococcus Gruppe A\" mo_fullname(\"S. pyogenes\", Lancefield = TRUE, language = \"uk\") #> [1] \"Streptococcus Група A\"   # other --------------------------------------------------------------------  # gram stains and intrinsic resistance can be used as a filter in dplyr verbs if (require(\"dplyr\")) {   example_isolates %>%     filter(mo_is_gram_positive()) %>%     count(mo_genus(), sort = TRUE) } #> ℹ Using column 'mo' as input for mo_is_gram_positive() #> ℹ Using column 'mo' as input for mo_genus() #> # A tibble: 18 × 2 #>    `mo_genus()`        n #>    <chr>           <int> #>  1 Staphylococcus    840 #>  2 Streptococcus     275 #>  3 Enterococcus       83 #>  4 Corynebacterium    17 #>  5 Micrococcus         6 #>  6 Gemella             3 #>  7 Aerococcus          2 #>  8 Cutibacterium       1 #>  9 Dermabacter         1 #> 10 Fusibacter          1 #> 11 Globicatella        1 #> 12 Granulicatella      1 #> 13 Lactobacillus       1 #> 14 Leuconostoc         1 #> 15 Listeria            1 #> 16 Paenibacillus       1 #> 17 Rothia              1 #> 18 Schaalia            1 if (require(\"dplyr\")) {   example_isolates %>%     filter(mo_is_intrinsic_resistant(ab = \"vanco\")) %>%     count(mo_genus(), sort = TRUE) } #> ℹ Using column 'mo' as input for mo_is_intrinsic_resistant() #> ℹ Using column 'mo' as input for mo_genus() #> # A tibble: 20 × 2 #>    `mo_genus()`         n #>    <chr>            <int> #>  1 Escherichia        467 #>  2 Klebsiella          77 #>  3 Proteus             39 #>  4 Pseudomonas         30 #>  5 Serratia            25 #>  6 Enterobacter        23 #>  7 Citrobacter         11 #>  8 Haemophilus          8 #>  9 Acinetobacter        6 #> 10 Morganella           6 #> 11 Pantoea              4 #> 12 Salmonella           3 #> 13 Neisseria            2 #> 14 Stenotrophomonas     2 #> 15 Campylobacter        1 #> 16 Enterococcus         1 #> 17 Hafnia               1 #> 18 Lactobacillus        1 #> 19 Leuconostoc          1 #> 20 Pseudescherichia     1  # get a list with the complete taxonomy (from kingdom to subspecies) mo_taxonomy(\"Klebsiella pneumoniae\") #> $kingdom #> [1] \"Bacteria\" #>  #> $phylum #> [1] \"Pseudomonadota\" #>  #> $class #> [1] \"Gammaproteobacteria\" #>  #> $order #> [1] \"Enterobacterales\" #>  #> $family #> [1] \"Enterobacteriaceae\" #>  #> $genus #> [1] \"Klebsiella\" #>  #> $species #> [1] \"pneumoniae\" #>  #> $subspecies #> [1] \"\" #>   # get a list with the taxonomy, the authors, Gram-stain, # SNOMED codes, and URL to the online database mo_info(\"Klebsiella pneumoniae\") #> $mo #> [1] \"B_KLBSL_PNMN\" #>  #> $kingdom #> [1] \"Bacteria\" #>  #> $phylum #> [1] \"Pseudomonadota\" #>  #> $class #> [1] \"Gammaproteobacteria\" #>  #> $order #> [1] \"Enterobacterales\" #>  #> $family #> [1] \"Enterobacteriaceae\" #>  #> $genus #> [1] \"Klebsiella\" #>  #> $species #> [1] \"pneumoniae\" #>  #> $subspecies #> [1] \"\" #>  #> $status #> [1] \"accepted\" #>  #> $synonyms #> NULL #>  #> $gramstain #> [1] \"Gram-negative\" #>  #> $oxygen_tolerance #> [1] \"aerobe\" #>  #> $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\" #>  #> $gbif #> [1] \"3221874\" #>  # }"},{"path":"https://msberends.github.io/AMR/reference/mo_source.html","id":null,"dir":"Reference","previous_headings":"","what":"User-Defined Reference Data Set for Microorganisms — mo_source","title":"User-Defined Reference Data Set for Microorganisms — mo_source","text":"functions can used predefine reference used .mo() consequently mo_* functions (mo_genus() mo_gramstain()). fastest way organisation (analysis) specific codes picked translated package, since bother setting .","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_source.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"User-Defined Reference Data Set for Microorganisms — mo_source","text":"","code":"set_mo_source(   path,   destination = getOption(\"AMR_mo_source\", \"~/mo_source.rds\") )  get_mo_source(destination = getOption(\"AMR_mo_source\", \"~/mo_source.rds\"))"},{"path":"https://msberends.github.io/AMR/reference/mo_source.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"User-Defined Reference Data Set for Microorganisms — mo_source","text":"path location reference file, can text file (comma-, tab- pipe-separated) Excel file (see Details). Can also \"\", NULL FALSE delete reference file. destination destination compressed data file - default user's home directory.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_source.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"User-Defined Reference Data Set for Microorganisms — mo_source","text":"reference file can text file separated commas (CSV) tabs pipes, Excel file (either 'xls' 'xlsx' format) R object file (extension '.rds'). use Excel file, need readxl package installed. set_mo_source() check file validity: must data.frame, must column named \"mo\" contains values microorganisms$mo microorganisms$fullname must reference column defined values. tests pass, set_mo_source() read file R ask export \"~/mo_source.rds\". CRAN policy disallows packages write file system, although 'exceptions may allowed interactive sessions package obtains confirmation user'. reason, function works interactive sessions user can specifically confirm allow file created. destination file can set destination argument defaults user's home directory. can also set package option AMR_mo_source, e.g. options(AMR_mo_source = \"/location/file.rds\"). created compressed data file \"mo_source.rds\" used default MO determination (function .mo() consequently mo_* functions like mo_genus() mo_gramstain()). location timestamp original file saved attribute compressed data file. function get_mo_source() return data set reading \"mo_source.rds\" readRDS(). original file changed (checking location timestamp original file), call set_mo_source() update data file automatically used interactive session. Reading Excel file (.xlsx) one row size 8-9 kB. compressed file created set_mo_source() size 0.1 kB can read get_mo_source() couple microseconds (millionths second).","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_source.html","id":"how-to-setup","dir":"Reference","previous_headings":"","what":"How to Setup","title":"User-Defined Reference Data Set for Microorganisms — mo_source","text":"Imagine data sheet Excel file. first column contains organisation specific codes, second column contains valid taxonomic names:   save \"home//ourcodes.xlsx\". Now set source:   now created file \"~/mo_source.rds\" contents Excel file. first column foreign values 'mo' column kept creating RDS file. now can use functions:   edit Excel file , say, adding row 4 like :   ...new usage MO function package update data file:   delete reference data file, just use \"\", NULL FALSE input set_mo_source():   original file (previous case Excel file) moved deleted, mo_source.rds file removed upon next use .mo() mo_* function.","code":"|         A          |            B          | --|--------------------|-----------------------| 1 | Organisation XYZ   | mo                    | 2 | lab_mo_ecoli       | Escherichia coli      | 3 | lab_mo_kpneumoniae | Klebsiella pneumoniae | 4 |                    |                       | set_mo_source(\"home/me/ourcodes.xlsx\") #> NOTE: Created mo_source file '/Users/me/mo_source.rds' (0.3 kB) from #>       '/Users/me/Documents/ourcodes.xlsx' (9 kB), columns #>       \"Organisation XYZ\" and \"mo\" as.mo(\"lab_mo_ecoli\") #> Class 'mo' #> [1] B_ESCHR_COLI  mo_genus(\"lab_mo_kpneumoniae\") #> [1] \"Klebsiella\"  # other input values still work too as.mo(c(\"Escherichia coli\", \"E. coli\", \"lab_mo_ecoli\")) #> NOTE: Translation to one microorganism was guessed with uncertainty. #>       Use mo_uncertainties() to review it. #> Class 'mo' #> [1] B_ESCHR_COLI B_ESCHR_COLI B_ESCHR_COLI |         A          |            B          | --|--------------------|-----------------------| 1 | Organisation XYZ   | mo                    | 2 | lab_mo_ecoli       | Escherichia coli      | 3 | lab_mo_kpneumoniae | Klebsiella pneumoniae | 4 | lab_Staph_aureus   | Staphylococcus aureus | 5 |                    |                       | as.mo(\"lab_mo_ecoli\") #> NOTE: Updated mo_source file '/Users/me/mo_source.rds' (0.3 kB) from #>       '/Users/me/Documents/ourcodes.xlsx' (9 kB), columns #>        \"Organisation XYZ\" and \"mo\" #> Class 'mo' #> [1] B_ESCHR_COLI  mo_genus(\"lab_Staph_aureus\") #> [1] \"Staphylococcus\" set_mo_source(NULL) #> Removed mo_source file '/Users/me/mo_source.rds'"},{"path":"https://msberends.github.io/AMR/reference/pca.html","id":null,"dir":"Reference","previous_headings":"","what":"Principal Component Analysis (for AMR) — pca","title":"Principal Component Analysis (for AMR) — pca","text":"Performs principal component analysis (PCA) based data set automatic determination afterwards plotting groups labels, automatic filtering suitable (.e. non-empty numeric) variables.","code":""},{"path":"https://msberends.github.io/AMR/reference/pca.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Principal Component Analysis (for AMR) — pca","text":"","code":"pca(   x,   ...,   retx = TRUE,   center = TRUE,   scale. = TRUE,   tol = NULL,   rank. = NULL )"},{"path":"https://msberends.github.io/AMR/reference/pca.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Principal Component Analysis (for AMR) — pca","text":"x data.frame containing numeric columns ... columns x selected PCA, can unquoted since supports quasiquotation. retx logical value indicating whether rotated variables     returned. center logical value indicating whether variables     shifted zero centered. Alternately, vector     length equal number columns x can supplied.     value passed scale. scale. logical value indicating whether variables     scaled unit variance analysis takes     place.  default FALSE consistency S,     general scaling advisable.  Alternatively, vector length     equal number columns x can supplied.      value passed scale. tol value indicating magnitude components     omitted. (Components omitted     standard deviations less equal tol times     standard deviation first component.)  default null     setting, components omitted (unless rank. specified     less min(dim(x)).).  settings tol     tol = 0 tol = sqrt(.Machine$double.eps),     omit essentially constant components. rank. optionally, number specifying maximal rank, .e.,     maximal number principal components used.  Can set     alternative addition tol, useful notably     desired rank considerably smaller dimensions matrix.","code":""},{"path":"https://msberends.github.io/AMR/reference/pca.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Principal Component Analysis (for AMR) — pca","text":"object classes pca prcomp","code":""},{"path":"https://msberends.github.io/AMR/reference/pca.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Principal Component Analysis (for AMR) — pca","text":"pca() function takes data.frame input performs actual PCA R function prcomp(). result pca() function prcomp object, additional attribute non_numeric_cols vector column names columns contain numeric values. probably groups labels, used ggplot_pca().","code":""},{"path":"https://msberends.github.io/AMR/reference/pca.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Principal Component Analysis (for AMR) — pca","text":"","code":"# `example_isolates` is a data set available in the AMR package. # See ?example_isolates.  # \\donttest{ if (require(\"dplyr\")) {   # calculate the resistance per group first   resistance_data <- example_isolates %>%     group_by(       order = mo_order(mo), # group on anything, like order       genus = mo_genus(mo)     ) %>% #   and genus as we do here;     filter(n() >= 30) %>% # filter on only 30 results per group     summarise_if(is.sir, resistance) # then get resistance of all drugs    # now conduct PCA for certain antimicrobial drugs   pca_result <- resistance_data %>%     pca(AMC, CXM, CTX, CAZ, GEN, TOB, TMP, SXT)    pca_result   summary(pca_result)    # old base R plotting method:   biplot(pca_result)   # new ggplot2 plotting method using this package:   if (require(\"ggplot2\")) {     ggplot_pca(pca_result)      ggplot_pca(pca_result) +       scale_colour_viridis_d() +       labs(title = \"Title here\")   } } #> Warning: There were 73 warnings in `summarise()`. #> The first warning was: #> ℹ In argument: `PEN = (function (..., minimum = 30, as_percent = FALSE, #>   only_all_tested = FALSE) ...`. #> ℹ In group 5: `order = \"Lactobacillales\"`, `genus = \"Enterococcus\"`. #> Caused by warning: #> ! Introducing NA: only 14 results available for PEN in group: order = #> \"Lactobacillales\", genus = \"Enterococcus\" (minimum = 30). #> ℹ Run `dplyr::last_dplyr_warnings()` to see the 72 remaining warnings. #> ℹ Columns selected for PCA: \"AMC\", \"CAZ\", \"CTX\", \"CXM\", \"GEN\", \"SXT\", #>   \"TMP\", and \"TOB\". Total observations available: 7. #> Groups (n=4, named as 'order'): #> [1] \"Caryophanales\"    \"Enterobacterales\" \"Lactobacillales\"  \"Pseudomonadales\"  #>    # }"},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":null,"dir":"Reference","previous_headings":"","what":"Plotting for Classes sir, mic and disk — plot","title":"Plotting for Classes sir, mic and disk — plot","text":"Functions plot classes sir, mic disk, support base R ggplot2. Especially scale_x_mic() relevant wrapper plot MIC values ggplot2. allows custom MIC ranges plot intermediate log2 levels missing MIC values.","code":""},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Plotting for Classes sir, mic and disk — plot","text":"","code":"# S3 method for mic plot(   x,   mo = NULL,   ab = NULL,   guideline = \"EUCAST\",   main = deparse(substitute(x)),   ylab = translate_AMR(\"Frequency\", language = language),   xlab = translate_AMR(\"Minimum Inhibitory Concentration (mg/L)\", language = language),   colours_SIR = c(\"#3CAEA3\", \"#F6D55C\", \"#ED553B\"),   language = get_AMR_locale(),   expand = TRUE,   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\"),   ... )  # S3 method for mic autoplot(   object,   mo = NULL,   ab = NULL,   guideline = \"EUCAST\",   title = deparse(substitute(object)),   ylab = translate_AMR(\"Frequency\", language = language),   xlab = translate_AMR(\"Minimum Inhibitory Concentration (mg/L)\", language = language),   colours_SIR = c(\"#3CAEA3\", \"#F6D55C\", \"#ED553B\"),   language = get_AMR_locale(),   expand = TRUE,   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\"),   ... )  # S3 method for mic fortify(object, ...)  scale_x_mic(   keep_operators = \"edges\",   mic_range = NULL,   ...,   drop = FALSE,   guide = waiver(),   position = \"bottom\",   na.translate = TRUE )  # S3 method for disk plot(   x,   main = deparse(substitute(x)),   ylab = translate_AMR(\"Frequency\", language = language),   xlab = translate_AMR(\"Disk diffusion diameter (mm)\", language = language),   mo = NULL,   ab = NULL,   guideline = \"EUCAST\",   colours_SIR = c(\"#3CAEA3\", \"#F6D55C\", \"#ED553B\"),   language = get_AMR_locale(),   expand = TRUE,   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\"),   ... )  # S3 method for disk autoplot(   object,   mo = NULL,   ab = NULL,   title = deparse(substitute(object)),   ylab = translate_AMR(\"Frequency\", language = language),   xlab = translate_AMR(\"Disk diffusion diameter (mm)\", language = language),   guideline = \"EUCAST\",   colours_SIR = c(\"#3CAEA3\", \"#F6D55C\", \"#ED553B\"),   language = get_AMR_locale(),   expand = TRUE,   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\"),   ... )  # S3 method for disk fortify(object, ...)  # S3 method for sir plot(   x,   ylab = translate_AMR(\"Percentage\", language = language),   xlab = translate_AMR(\"Antimicrobial Interpretation\", language = language),   main = deparse(substitute(x)),   language = get_AMR_locale(),   ... )  # S3 method for sir autoplot(   object,   title = deparse(substitute(object)),   xlab = translate_AMR(\"Antimicrobial Interpretation\", language = language),   ylab = translate_AMR(\"Frequency\", language = language),   colours_SIR = c(\"#3CAEA3\", \"#F6D55C\", \"#ED553B\"),   language = get_AMR_locale(),   ... )  # S3 method for sir fortify(object, ...)"},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Plotting for Classes sir, mic and disk — plot","text":"x, object values created .mic(), .disk() .sir() (random_* variants, random_mic()) mo (vector ) text can coerced valid microorganism code .mo() ab (vector ) text can coerced valid antimicrobial drug code .ab() guideline interpretation guideline use - default latest included EUCAST guideline, see Details main, title title plot xlab, ylab axis title colours_SIR colours use filling bars, must vector three values (order S, R). default colours colour-blind friendly. language language used translate 'Susceptible', 'Increased exposure'/'Intermediate' 'Resistant' - default system language (see get_AMR_locale()) can overwritten setting package option AMR_locale, e.g. options(AMR_locale = \"de\"), see translate. Use language = NULL language = \"\" prevent translation. expand logical indicate whether range x axis expanded lowest highest value. MIC values, intermediate values factors 2 starting highest MIC value. disk diameters, whole diameter range filled. 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. ... arguments passed methods 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 plot MIC values, e.g., mic_range = c(0.001, 32). Use NA set limit one side, e.g., mic_range = c(NA, 32). drop, guide, position, na.translate arguments passed ggplot2::scale_x_discrete()","code":""},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Plotting for Classes sir, mic and disk — plot","text":"autoplot() functions return ggplot model extendible ggplot2 function. fortify() functions return data.frame extension usage ggplot2::ggplot() function.","code":""},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Plotting for Classes sir, mic and disk — plot","text":"interpretation \"\" named \"Increased exposure\" EUCAST guidelines since 2019, named \"Intermediate\" cases. interpreting MIC values well disk diffusion diameters, supported guidelines used input guideline argument : \"EUCAST 2023\", \"EUCAST 2022\", \"EUCAST 2021\", \"EUCAST 2020\", \"EUCAST 2019\", \"EUCAST 2018\", \"EUCAST 2017\", \"EUCAST 2016\", \"EUCAST 2015\", \"EUCAST 2014\", \"EUCAST 2013\", \"EUCAST 2012\", \"EUCAST 2011\", \"CLSI 2023\", \"CLSI 2022\", \"CLSI 2021\", \"CLSI 2020\", \"CLSI 2019\", \"CLSI 2018\", \"CLSI 2017\", \"CLSI 2016\", \"CLSI 2015\", \"CLSI 2014\", \"CLSI 2013\", \"CLSI 2012\", \"CLSI 2011\". Simply using \"CLSI\" \"EUCAST\" input automatically select latest version guideline.","code":""},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Plotting for Classes sir, mic and disk — plot","text":"","code":"some_mic_values <- random_mic(size = 100) some_disk_values <- random_disk(size = 100, mo = \"Escherichia coli\", ab = \"cipro\") some_sir_values <- random_sir(50, prob_SIR = c(0.55, 0.05, 0.30))  plot(some_mic_values)  plot(some_disk_values)  plot(some_sir_values)   # when providing the microorganism and antibiotic, colours will show interpretations: plot(some_mic_values, mo = \"S. aureus\", ab = \"ampicillin\")  plot(some_disk_values, mo = \"Escherichia coli\", ab = \"cipro\")  plot(some_disk_values, mo = \"Escherichia coli\", ab = \"cipro\", language = \"nl\")   # \\donttest{ if (require(\"ggplot2\")) {   autoplot(some_mic_values) }  if (require(\"ggplot2\")) {   autoplot(some_disk_values, mo = \"Escherichia coli\", ab = \"cipro\") }  if (require(\"ggplot2\")) {   autoplot(some_sir_values) }  # }  # Plotting using scale_x_mic() # \\donttest{ if (require(\"ggplot2\")) {   mic_plot <- ggplot(data.frame(mics = as.mic(c(0.125, \"<=4\", 4, 8, 32, \">=32\")),                                 counts = c(1, 1, 2, 2, 3, 3)),                      aes(mics, counts)) +     geom_col()   mic_plot +     labs(title = \"without scale_x_mic()\") }  if (require(\"ggplot2\")) {   mic_plot +     scale_x_mic() +     labs(title = \"with scale_x_mic()\") }  if (require(\"ggplot2\")) {   mic_plot +     scale_x_mic(keep_operators = \"all\") +     labs(title = \"with scale_x_mic() keeping all operators\") }  if (require(\"ggplot2\")) {   mic_plot +     scale_x_mic(mic_range = c(1, 128)) +     labs(title = \"with scale_x_mic() using a manual range\") }  # }"},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":null,"dir":"Reference","previous_headings":"","what":"Calculate Antimicrobial Resistance — proportion","title":"Calculate Antimicrobial Resistance — proportion","text":"functions can used calculate (co-)resistance susceptibility microbial isolates (.e. percentage S, SI, , IR R). functions support quasiquotation pipes, can used summarise() dplyr package also support grouped variables, see Examples. resistance() used calculate resistance, susceptibility() used calculate susceptibility.","code":""},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Calculate Antimicrobial Resistance — proportion","text":"","code":"resistance(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  susceptibility(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  sir_confidence_interval(   ...,   ab_result = \"R\",   minimum = 30,   as_percent = FALSE,   only_all_tested = FALSE,   confidence_level = 0.95,   side = \"both\",   collapse = FALSE )  proportion_R(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  proportion_IR(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  proportion_I(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  proportion_SI(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  proportion_S(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  proportion_df(   data,   translate_ab = \"name\",   language = get_AMR_locale(),   minimum = 30,   as_percent = FALSE,   combine_SI = TRUE,   confidence_level = 0.95 )  sir_df(   data,   translate_ab = \"name\",   language = get_AMR_locale(),   minimum = 30,   as_percent = FALSE,   combine_SI = TRUE,   confidence_level = 0.95 )"},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Calculate Antimicrobial Resistance — proportion","text":"M39 Analysis Presentation Cumulative Antimicrobial Susceptibility Test Data, 5th Edition, 2022, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/microbiology/documents/m39/.","code":""},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Calculate Antimicrobial Resistance — proportion","text":"... one vectors (columns) antibiotic interpretations. transformed internally .sir() needed. Use multiple columns calculate (lack ) co-resistance: probability one two drugs resistant susceptible result. See Examples. minimum minimum allowed number available (tested) isolates. isolate count lower minimum return NA warning. default number 30 isolates advised Clinical Laboratory Standards Institute (CLSI) best practice, see Source. as_percent logical indicate whether output must returned hundred fold % sign (character). value 0.123456 returned \"12.3%\". only_all_tested (combination therapies, .e. using one variable ...): logical indicate isolates must tested antibiotics, see section Combination Therapy ab_result antibiotic results test , must one values \"S\", \"\", \"R\" confidence_level confidence level returned confidence interval. calculation, number S SI isolates, R isolates compared total number available isolates R, S, using binom.test(), .e., Clopper-Pearson method. side side confidence interval return. default \"\" length 2 vector, can also (abbreviated ) \"min\"/\"left\"/\"lower\"/\"less\" \"max\"/\"right\"/\"higher\"/\"greater\". collapse logical indicate whether output values 'collapsed', .e. merged together one value, character value use collapsing data data.frame containing columns class sir (see .sir()) translate_ab column name antibiotics data set translate antibiotic abbreviations , using ab_property() language language returned text - default current system language (see get_AMR_locale()) can also set package option AMR_locale. Use language = NULL language = \"\" prevent translation. combine_SI logical indicate whether values S must merged one, output consists S+vs. R (susceptible vs. resistant) - default TRUE","code":""},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Calculate Antimicrobial Resistance — proportion","text":"double , as_percent = TRUE, character.","code":""},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Calculate Antimicrobial Resistance — proportion","text":"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(). Use sir_confidence_interval() calculate confidence interval, relies binom.test(), .e., Clopper-Pearson method. function returns vector length 2 default antimicrobial resistance. Change side argument \"left\"/\"min\" \"right\"/\"max\" return single value, change ab_result argument e.g. c(\"S\", \"\") test antimicrobial susceptibility, see Examples. functions meant count isolates, calculate proportion resistance/susceptibility. Use count_*() functions count isolates. function susceptibility() essentially equal count_susceptible()/count_all(). Low counts can influence outcome - proportion_*() functions may camouflage , since return proportion (albeit dependent minimum argument). function proportion_df() takes variable data sir class (created .sir()) calculates proportions S, , R. also supports grouped variables. function sir_df() works exactly like proportion_df(), adds number isolates.","code":""},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"combination-therapy","dir":"Reference","previous_headings":"","what":"Combination Therapy","title":"Calculate Antimicrobial Resistance — proportion","text":"using one variable ... (= combination therapy), use only_all_tested count isolates tested antibiotics/variables test . See example two antibiotics, Drug Drug B, susceptibility() works calculate %SI:   Please note , combination therapies, only_all_tested = TRUE applies :   , combination therapies, only_all_tested = FALSE applies :   Using only_all_tested impact using one antibiotic input.","code":"--------------------------------------------------------------------                     only_all_tested = FALSE  only_all_tested = TRUE                     -----------------------  -----------------------  Drug A    Drug B   include as  include as   include as  include as                     numerator   denominator  numerator   denominator --------  --------  ----------  -----------  ----------  -----------  S or I    S or I       X            X            X            X    R       S or I       X            X            X            X   <NA>     S or I       X            X            -            -  S or I      R          X            X            X            X    R         R          -            X            -            X   <NA>       R          -            -            -            -  S or I     <NA>        X            X            -            -    R        <NA>        -            -            -            -   <NA>      <NA>        -            -            -            - -------------------------------------------------------------------- count_S()    +   count_I()    +   count_R()    = count_all()   proportion_S() + proportion_I() + proportion_R() = 1 count_S()    +   count_I()    +   count_R()    >= count_all()   proportion_S() + proportion_I() + proportion_R() >= 1"},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"interpretation-of-sir","dir":"Reference","previous_headings":"","what":"Interpretation of SIR","title":"Calculate Antimicrobial Resistance — proportion","text":"2019, European Committee Antimicrobial Susceptibility Testing (EUCAST) decided change definitions susceptibility testing categories S, , R shown (https://www.eucast.org/newsiandr): S - Susceptible, standard dosing regimen microorganism categorised \"Susceptible, standard dosing regimen\", high likelihood therapeutic success using standard dosing regimen agent. - Susceptible, increased exposure  microorganism categorised \"Susceptible, Increased exposure\" high likelihood therapeutic success exposure agent increased adjusting dosing regimen concentration site infection. R = Resistant microorganism categorised \"Resistant\" high likelihood therapeutic failure even increased exposure. Exposure function mode administration, dose, dosing interval, infusion time, well distribution excretion antimicrobial agent influence infecting organism site infection. AMR package honours insight. Use susceptibility() (equal proportion_SI()) determine antimicrobial susceptibility count_susceptible() (equal count_SI()) count susceptible isolates.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Calculate Antimicrobial Resistance — proportion","text":"","code":"# example_isolates is a data set available in the AMR package. # run ?example_isolates for more info. example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …   # base R ------------------------------------------------------------ # determines %R resistance(example_isolates$AMX) #> [1] 0.5955556 sir_confidence_interval(example_isolates$AMX) #> [1] 0.5688204 0.6218738 sir_confidence_interval(example_isolates$AMX,   confidence_level = 0.975 ) #> [1] 0.5650148 0.6255670 sir_confidence_interval(example_isolates$AMX,   confidence_level = 0.975,   collapse = \", \" ) #> [1] \"0.565, 0.626\"  # determines %S+I: susceptibility(example_isolates$AMX) #> [1] 0.4044444 sir_confidence_interval(example_isolates$AMX,   ab_result = c(\"S\", \"I\") ) #> [1] 0.3781262 0.4311796  # be more specific proportion_S(example_isolates$AMX) #> [1] 0.4022222 proportion_SI(example_isolates$AMX) #> [1] 0.4044444 proportion_I(example_isolates$AMX) #> [1] 0.002222222 proportion_IR(example_isolates$AMX) #> [1] 0.5977778 proportion_R(example_isolates$AMX) #> [1] 0.5955556  # dplyr ------------------------------------------------------------- # \\donttest{ if (require(\"dplyr\")) {   example_isolates %>%     group_by(ward) %>%     summarise(       r = resistance(CIP),       n = n_sir(CIP)     ) # n_sir works like n_distinct in dplyr, see ?n_sir } #> # A tibble: 3 × 3 #>   ward           r     n #>   <chr>      <dbl> <int> #> 1 Clinical   0.147   869 #> 2 ICU        0.190   447 #> 3 Outpatient 0.161    93 if (require(\"dplyr\")) {   example_isolates %>%     group_by(ward) %>%     summarise(       cipro_R = resistance(CIP),       ci_min = sir_confidence_interval(CIP, side = \"min\"),       ci_max = sir_confidence_interval(CIP, side = \"max\"),     ) } #> # A tibble: 3 × 4 #>   ward       cipro_R ci_min ci_max #>   <chr>        <dbl>  <dbl>  <dbl> #> 1 Clinical     0.147 0.124   0.173 #> 2 ICU          0.190 0.155   0.230 #> 3 Outpatient   0.161 0.0932  0.252 if (require(\"dplyr\")) {   # scoped dplyr verbs with antibiotic selectors   # (you could also use across() of course)   example_isolates %>%     group_by(ward) %>%     summarise_at(       c(aminoglycosides(), carbapenems()),       resistance     ) } #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> Warning: There was 1 warning in `summarise()`. #> ℹ In argument: `KAN = (function (..., minimum = 30, as_percent = FALSE, #>   only_all_tested = FALSE) ...`. #> ℹ In group 3: `ward = \"Outpatient\"`. #> Caused by warning: #> ! Introducing NA: only 23 results available for KAN in group: ward = #> \"Outpatient\" (minimum = 30). #> # A tibble: 3 × 7 #>   ward         GEN   TOB   AMK   KAN    IPM    MEM #>   <chr>      <dbl> <dbl> <dbl> <dbl>  <dbl>  <dbl> #> 1 Clinical   0.229 0.315 0.626     1 0.0498 0.0458 #> 2 ICU        0.290 0.400 0.662     1 0.0862 0.0894 #> 3 Outpatient 0.2   0.368 0.605    NA 0.0541 0.0541 if (require(\"dplyr\")) {   example_isolates %>%     group_by(ward) %>%     summarise(       R = resistance(CIP, as_percent = TRUE),       SI = susceptibility(CIP, as_percent = TRUE),       n1 = count_all(CIP), # the actual total; sum of all three       n2 = n_sir(CIP), # same - analogous to n_distinct       total = n()     ) # NOT the number of tested isolates!    # Calculate co-resistance between amoxicillin/clav acid and gentamicin,   # so we can see that combination therapy does a lot more than mono therapy:   example_isolates %>% susceptibility(AMC) # %SI = 76.3%   example_isolates %>% count_all(AMC) #   n = 1879    example_isolates %>% susceptibility(GEN) # %SI = 75.4%   example_isolates %>% count_all(GEN) #   n = 1855    example_isolates %>% susceptibility(AMC, GEN) # %SI = 94.1%   example_isolates %>% count_all(AMC, GEN) #   n = 1939     # See Details on how `only_all_tested` works. Example:   example_isolates %>%     summarise(       numerator = count_susceptible(AMC, GEN),       denominator = count_all(AMC, GEN),       proportion = susceptibility(AMC, GEN)     )    example_isolates %>%     summarise(       numerator = count_susceptible(AMC, GEN, only_all_tested = TRUE),       denominator = count_all(AMC, GEN, only_all_tested = TRUE),       proportion = susceptibility(AMC, GEN, only_all_tested = TRUE)     )     example_isolates %>%     group_by(ward) %>%     summarise(       cipro_p = susceptibility(CIP, as_percent = TRUE),       cipro_n = count_all(CIP),       genta_p = susceptibility(GEN, as_percent = TRUE),       genta_n = count_all(GEN),       combination_p = susceptibility(CIP, GEN, as_percent = TRUE),       combination_n = count_all(CIP, GEN)     )    # Get proportions S/I/R immediately of all sir columns   example_isolates %>%     select(AMX, CIP) %>%     proportion_df(translate = FALSE)    # It also supports grouping variables   # (use sir_df to also include the count)   example_isolates %>%     select(ward, AMX, CIP) %>%     group_by(ward) %>%     sir_df(translate = FALSE) } #> # A tibble: 12 × 7 #>    ward       antibiotic interpretation value ci_min ci_max isolates #>  * <chr>      <chr>      <ord>          <dbl>  <dbl>  <dbl>    <int> #>  1 Clinical   AMX        SI             0.423 0.389   0.457      357 #>  2 Clinical   AMX        R              0.577 0.543   0.611      487 #>  3 Clinical   CIP        SI             0.853 0.827   0.876      741 #>  4 Clinical   CIP        R              0.147 0.124   0.173      128 #>  5 ICU        AMX        SI             0.369 0.323   0.417      158 #>  6 ICU        AMX        R              0.631 0.583   0.677      270 #>  7 ICU        CIP        SI             0.810 0.770   0.845      362 #>  8 ICU        CIP        R              0.190 0.155   0.230       85 #>  9 Outpatient AMX        SI             0.397 0.288   0.515       31 #> 10 Outpatient AMX        R              0.603 0.485   0.712       47 #> 11 Outpatient CIP        SI             0.839 0.748   0.907       78 #> 12 Outpatient CIP        R              0.161 0.0932  0.252       15 # }"},{"path":"https://msberends.github.io/AMR/reference/random.html","id":null,"dir":"Reference","previous_headings":"","what":"Random MIC Values/Disk Zones/SIR Generation — random","title":"Random MIC Values/Disk Zones/SIR Generation — random","text":"functions can used generating random MIC values disk diffusion diameters, AMR data analysis practice. providing microorganism antimicrobial drug, generated results reflect reality much possible.","code":""},{"path":"https://msberends.github.io/AMR/reference/random.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Random MIC Values/Disk Zones/SIR Generation — random","text":"","code":"random_mic(size = NULL, mo = NULL, ab = NULL, ...)  random_disk(size = NULL, mo = NULL, ab = NULL, ...)  random_sir(size = NULL, prob_SIR = c(0.33, 0.33, 0.33), ...)"},{"path":"https://msberends.github.io/AMR/reference/random.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Random MIC Values/Disk Zones/SIR Generation — random","text":"size desired size returned vector. used data.frame call dplyr verb, get current (group) size left blank. mo character can coerced valid microorganism code .mo() ab character can coerced valid antimicrobial drug code .ab() ... ignored, place allow future extensions prob_SIR vector length 3: probabilities \"S\" (1st value), \"\" (2nd value) \"R\" (3rd value)","code":""},{"path":"https://msberends.github.io/AMR/reference/random.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Random MIC Values/Disk Zones/SIR Generation — random","text":"class mic random_mic() (see .mic()) class disk random_disk() (see .disk())","code":""},{"path":"https://msberends.github.io/AMR/reference/random.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Random MIC Values/Disk Zones/SIR Generation — random","text":"base R function sample() used generating values. Generated values based EUCAST 2023 guideline implemented clinical_breakpoints data set. create specific generated values per bug drug, set mo /ab argument.","code":""},{"path":"https://msberends.github.io/AMR/reference/random.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Random MIC Values/Disk Zones/SIR Generation — random","text":"","code":"random_mic(25) #> Class 'mic' #>  [1] 128    2      0.25   256    8      0.025  2      0.5    0.01   0.001  #> [11] 0.0625 0.25   1      0.5    8      0.005  0.01   16     64     256    #> [21] 128    256    2      0.125  2      random_disk(25) #> Class 'disk' #>  [1] 28 40 26 12 43 37 35 14 33 43 16  9 34 33 41 42 46 41 41 40 23 50 44 41 27 random_sir(25) #> Class 'sir' #>  [1] I I R I S R R R R S S S R R S R I S I I S I I I I  # \\donttest{ # make the random generation more realistic by setting a bug and/or drug: random_mic(25, \"Klebsiella pneumoniae\") # range 0.0625-64 #> Class 'mic' #>  [1] 64      0.025   0.025   0.025   1       16      8       32      <=0.002 #> [10] 64      8       0.005   2       8       0.5     32      64      0.0625  #> [19] 0.025   0.025   0.125   0.125   1       16      32      random_mic(25, \"Klebsiella pneumoniae\", \"meropenem\") # range 0.0625-16 #> Class 'mic' #>  [1] 0.5 2   2   4   16  0.5 16  16  8   8   4   8   8   0.5 16  0.5 1   1   16  #> [20] 4   1   8   4   4   2   random_mic(25, \"Streptococcus pneumoniae\", \"meropenem\") # range 0.0625-4 #> Class 'mic' #>  [1] 0.25  1     2     0.125 0.25  >=4   1     2     0.5   2     0.125 0.5   #> [13] 0.5   0.125 >=4   2     1     2     2     0.5   0.125 >=4   1     1     #> [25] >=4    random_disk(25, \"Klebsiella pneumoniae\") # range 8-50 #> Class 'disk' #>  [1] 36 42 24 10 21 20 40 18 45 26 22 35 22 11 43 30 48  8 43 16 36 32 41 34 32 random_disk(25, \"Klebsiella pneumoniae\", \"ampicillin\") # range 11-17 #> Class 'disk' #>  [1] 15 12 14 16 12 12 12 13 14 16 12 11 13 12 12 15 12 12 17 17 14 17 15 13 15 random_disk(25, \"Streptococcus pneumoniae\", \"ampicillin\") # range 12-27 #> Class 'disk' #>  [1] 27 17 27 19 22 19 27 19 21 21 19 24 20 20 27 27 22 20 18 24 19 24 17 19 18 # }"},{"path":"https://msberends.github.io/AMR/reference/resistance_predict.html","id":null,"dir":"Reference","previous_headings":"","what":"Predict Antimicrobial Resistance — resistance_predict","title":"Predict Antimicrobial Resistance — resistance_predict","text":"Create prediction model predict antimicrobial resistance next years statistical solid ground. Standard errors (SE) returned columns se_min se_max. See Examples real live example.","code":""},{"path":"https://msberends.github.io/AMR/reference/resistance_predict.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Predict Antimicrobial Resistance — resistance_predict","text":"","code":"resistance_predict(   x,   col_ab,   col_date = NULL,   year_min = NULL,   year_max = NULL,   year_every = 1,   minimum = 30,   model = NULL,   I_as_S = TRUE,   preserve_measurements = TRUE,   info = interactive(),   ... )  sir_predict(   x,   col_ab,   col_date = NULL,   year_min = NULL,   year_max = NULL,   year_every = 1,   minimum = 30,   model = NULL,   I_as_S = TRUE,   preserve_measurements = TRUE,   info = interactive(),   ... )  # S3 method for resistance_predict plot(x, main = paste(\"Resistance Prediction of\", x_name), ...)  ggplot_sir_predict(   x,   main = paste(\"Resistance Prediction of\", x_name),   ribbon = TRUE,   ... )  # S3 method for resistance_predict autoplot(   object,   main = paste(\"Resistance Prediction of\", x_name),   ribbon = TRUE,   ... )"},{"path":"https://msberends.github.io/AMR/reference/resistance_predict.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Predict Antimicrobial Resistance — resistance_predict","text":"x data.frame containing isolates. Can left blank automatic determination, see Examples. col_ab column name x containing antimicrobial interpretations (\"R\", \"\" \"S\") col_date column name date, used calculate years column consist years already - default first column date class year_min lowest year use prediction model, dafaults lowest year col_date year_max highest year use prediction model - default 10 years today year_every unit sequence lowest year found data year_max minimum minimal amount available isolates per year include. Years containing less observations estimated model. model statistical model choice. generalised linear regression model binomial distribution (.e. using glm(..., family = binomial), assuming period zero resistance followed period increasing resistance leading slowly resistance. See Details valid options. I_as_S logical indicate whether values \"\" treated \"S\" (otherwise treated \"R\"). default, TRUE, follows redefinition EUCAST interpretation (increased exposure) 2019, see section Interpretation S, R . preserve_measurements logical indicate whether predictions years actually available data overwritten original data. standard errors years NA. info logical indicate whether textual analysis printed name summary() statistical model. ... arguments passed functions main title plot ribbon logical indicate whether ribbon shown (default) error bars object model data plotted","code":""},{"path":"https://msberends.github.io/AMR/reference/resistance_predict.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Predict Antimicrobial Resistance — resistance_predict","text":"data.frame extra class resistance_predict columns: year value, estimated preserve_measurements = FALSE, combination observed estimated otherwise se_min, lower bound standard error minimum 0 (standard error never go 0%) se_max upper bound standard error maximum 1 (standard error never go 100%) observations, total number available observations year, .e. \\(S + + R\\) observed, original observed resistant percentages estimated, estimated resistant percentages, calculated model Furthermore, model available attribute: attributes(x)$model, see Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/resistance_predict.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Predict Antimicrobial Resistance — resistance_predict","text":"Valid options statistical model (argument model) : \"binomial\" \"binom\" \"logit\": generalised linear regression model binomial distribution \"loglin\" \"poisson\": generalised log-linear regression model poisson distribution \"lin\" \"linear\": linear regression model","code":""},{"path":"https://msberends.github.io/AMR/reference/resistance_predict.html","id":"interpretation-of-sir","dir":"Reference","previous_headings":"","what":"Interpretation of SIR","title":"Predict Antimicrobial Resistance — resistance_predict","text":"2019, European Committee Antimicrobial Susceptibility Testing (EUCAST) decided change definitions susceptibility testing categories S, , R shown (https://www.eucast.org/newsiandr): S - Susceptible, standard dosing regimen microorganism categorised \"Susceptible, standard dosing regimen\", high likelihood therapeutic success using standard dosing regimen agent. - Susceptible, increased exposure  microorganism categorised \"Susceptible, Increased exposure\" high likelihood therapeutic success exposure agent increased adjusting dosing regimen concentration site infection. R = Resistant microorganism categorised \"Resistant\" high likelihood therapeutic failure even increased exposure. Exposure function mode administration, dose, dosing interval, infusion time, well distribution excretion antimicrobial agent influence infecting organism site infection. AMR package honours insight. Use susceptibility() (equal proportion_SI()) determine antimicrobial susceptibility count_susceptible() (equal count_SI()) count susceptible isolates.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/resistance_predict.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Predict Antimicrobial Resistance — resistance_predict","text":"","code":"x <- resistance_predict(example_isolates,   col_ab = \"AMX\",   year_min = 2010,   model = \"binomial\" ) plot(x)  # \\donttest{ if (require(\"ggplot2\")) {   ggplot_sir_predict(x) }   # using dplyr: if (require(\"dplyr\")) {   x <- example_isolates %>%     filter_first_isolate() %>%     filter(mo_genus(mo) == \"Staphylococcus\") %>%     resistance_predict(\"PEN\", model = \"binomial\")   print(plot(x))    # get the model from the object   mymodel <- attributes(x)$model   summary(mymodel) }  #> NULL #>  #> Call: #> glm(formula = df_matrix ~ year, family = binomial) #>  #> Coefficients: #>             Estimate Std. Error z value Pr(>|z|) #> (Intercept) 27.05312   72.24652   0.374    0.708 #> year        -0.01286    0.03601  -0.357    0.721 #>  #> (Dispersion parameter for binomial family taken to be 1) #>  #>     Null deviance: 5.7883  on 11  degrees of freedom #> Residual deviance: 5.6608  on 10  degrees of freedom #> AIC: 50.745 #>  #> Number of Fisher Scoring iterations: 4 #>   # create nice plots with ggplot2 yourself if (require(\"dplyr\") && require(\"ggplot2\")) {   data <- example_isolates %>%     filter(mo == as.mo(\"E. coli\")) %>%     resistance_predict(       col_ab = \"AMX\",       col_date = \"date\",       model = \"binomial\",       info = FALSE,       minimum = 15     )   head(data)   autoplot(data) }  # }"},{"path":"https://msberends.github.io/AMR/reference/skewness.html","id":null,"dir":"Reference","previous_headings":"","what":"Skewness of the Sample — skewness","title":"Skewness of the Sample — skewness","text":"Skewness measure asymmetry probability distribution real-valued random variable mean. negative ('left-skewed'): left tail longer; mass distribution concentrated right histogram. positive ('right-skewed'): right tail longer; mass distribution concentrated left histogram. normal distribution skewness 0.","code":""},{"path":"https://msberends.github.io/AMR/reference/skewness.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Skewness of the Sample — skewness","text":"","code":"skewness(x, na.rm = FALSE)  # S3 method for default skewness(x, na.rm = FALSE)  # S3 method for matrix skewness(x, na.rm = FALSE)  # S3 method for data.frame skewness(x, na.rm = FALSE)"},{"path":"https://msberends.github.io/AMR/reference/skewness.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Skewness of the Sample — skewness","text":"x vector values, matrix data.frame na.rm logical value indicating whether NA values stripped computation proceeds","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/skewness.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Skewness of the Sample — skewness","text":"","code":"skewness(runif(1000)) #> [1] 0.003091474"},{"path":"https://msberends.github.io/AMR/reference/translate.html","id":null,"dir":"Reference","previous_headings":"","what":"Translate Strings from the AMR Package — translate","title":"Translate Strings from the AMR Package — translate","text":"language-dependent output AMR functions, mo_name(), mo_gramstain(), mo_type() ab_name().","code":""},{"path":"https://msberends.github.io/AMR/reference/translate.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Translate Strings from the AMR Package — translate","text":"","code":"get_AMR_locale()  set_AMR_locale(language)  reset_AMR_locale()  translate_AMR(x, language = get_AMR_locale())"},{"path":"https://msberends.github.io/AMR/reference/translate.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Translate Strings from the AMR Package — translate","text":"language language choose. Use one supported language names ISO-639-1 codes: English (en), Chinese (zh), Czech (cs), Danish (da), Dutch (nl), Finnish (fi), French (fr), German (de), Greek (el), Italian (), Japanese (ja), Norwegian (), Polish (pl), Portuguese (pt), Romanian (ro), Russian (ru), Spanish (es), Swedish (sv), Turkish (tr), Ukrainian (uk). x text translate","code":""},{"path":"https://msberends.github.io/AMR/reference/translate.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Translate Strings from the AMR Package — translate","text":"currently 20 supported languages English (en), Chinese (zh), Czech (cs), Danish (da), Dutch (nl), Finnish (fi), French (fr), German (de), Greek (el), Italian (), Japanese (ja), Norwegian (), Polish (pl), Portuguese (pt), Romanian (ro), Russian (ru), Spanish (es), Swedish (sv), Turkish (tr), Ukrainian (uk). languages translations available antimicrobial drugs colloquial microorganism names. permanently silence -per-session language note non-English operating system, can set package option AMR_locale .Rprofile file like :   save file. Please read adding updating language Wiki.","code":"# Open .Rprofile file utils::file.edit(\"~/.Rprofile\")  # Then add e.g. Italian support to that file using: options(AMR_locale = \"Italian\")"},{"path":"https://msberends.github.io/AMR/reference/translate.html","id":"changing-the-default-language","dir":"Reference","previous_headings":"","what":"Changing the Default Language","title":"Translate Strings from the AMR Package — translate","text":"system language used default (returned Sys.getenv(\"LANG\") , LANG set, Sys.getlocale(\"LC_COLLATE\")), language supported. language used can overwritten two ways checked order: Setting package option AMR_locale, either using e.g. set_AMR_locale(\"German\") running e.g. options(AMR_locale = \"German\"). Note setting R option works session. Save command options(AMR_locale = \"(language)\") .Rprofile file apply every session. Run utils::file.edit(\"~/.Rprofile\") edit .Rprofile file. Setting system variable LANGUAGE LANG, e.g. adding LANGUAGE=\"de_DE.utf8\" .Renviron file home directory. Thus, package option AMR_locale set, system variables LANGUAGE LANG ignored.","code":""},{"path":"https://msberends.github.io/AMR/reference/translate.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Translate Strings from the AMR Package — translate","text":"","code":"# Current settings (based on system language) ab_name(\"Ciprofloxacin\") #> [1] \"Ciprofloxacin\" mo_name(\"Coagulase-negative Staphylococcus (CoNS)\") #> [1] \"Coagulase-negative Staphylococcus (CoNS)\"  # setting another language set_AMR_locale(\"Dutch\") #> ℹ Using Dutch (Nederlands) for the AMR package for this session. ab_name(\"Ciprofloxacin\") #> [1] \"Ciprofloxacine\" mo_name(\"Coagulase-negative Staphylococcus (CoNS)\") #> [1] \"Coagulase-negatieve Staphylococcus (CNS)\"  # setting yet another language set_AMR_locale(\"German\") #> ℹ Using German (Deutsch) for the AMR package for this session. ab_name(\"Ciprofloxacin\") #> [1] \"Ciprofloxacin\" mo_name(\"Coagulase-negative Staphylococcus (CoNS)\") #> [1] \"Koagulase-negative Staphylococcus (KNS)\"  # set_AMR_locale() understands endonyms, English exonyms, and ISO-639-1: set_AMR_locale(\"Deutsch\") #> ℹ Using German (Deutsch) for the AMR package for this session. set_AMR_locale(\"German\") #> ℹ Using German (Deutsch) for the AMR package for this session. set_AMR_locale(\"de\") #> ℹ Using German (Deutsch) for the AMR package for this session. ab_name(\"amox/clav\") #> ℹ More than one result was found for item 1: amoxicillin and clavulansäure #> [1] \"Amoxicillin/Clavulansäure\"  # reset to system default reset_AMR_locale() #> ℹ Using the English language (English) for the AMR package for this #>   session. ab_name(\"amox/clav\") #> [1] \"Amoxicillin/clavulanic acid\""},{"path":[]},{"path":"https://msberends.github.io/AMR/news/index.html","id":"new-2-1-1-9001","dir":"Changelog","previous_headings":"","what":"New","title":"AMR 2.1.1.9001","text":"Function scale_x_mic(), advanced function use ggplot, allow plotting MIC values x axis. allow manual range definition plotting missing intermediate log2 levels.","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"changed-2-1-1-9001","dir":"Changelog","previous_headings":"New","what":"Changed","title":"AMR 2.1.1.9001","text":"Added 4096 5 powers 192 valid levels (192, 384, 576, 768, 960) Added new argument keep_operators .mic(). can \"\" (default), \"none\", \"edges\".","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"amr-211","dir":"Changelog","previous_headings":"","what":"AMR 2.1.1","title":"AMR 2.1.1","text":"CRAN release: 2023-10-21 included many isolates patients altering antibiograms within bacterial species See info issue #122 Added 1,366 LOINC codes antibiotics data set updated latest version (LOINC v2.76) MICs can now used complex number calculations allow scientific number format input (e.g., .mic(\"1.28e-2\")) Fix rounding MICs latest R beta (‘R-devel’) Removed unneeded note used language option AMR_locale set Fixed non-ASCII characters documentation, according CRAN maintainers","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"amr-210","dir":"Changelog","previous_headings":"","what":"AMR 2.1.0","title":"AMR 2.1.0","text":"CRAN release: 2023-07-16","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"new-2-1-0","dir":"Changelog","previous_headings":"","what":"New","title":"AMR 2.1.0","text":"Clinical breakpoints intrinsic resistance EUCAST 2023 CLSI 2023 added clinical_breakpoints data set usage .sir(). EUCAST 2023 (v13.0) now new default guideline MIC disks diffusion interpretations EUCAST dosage guideline v13.0 added dosage data set clinical_breakpoints data set now also contains epidemiological cut-(ECOFF) values CLSI animal breakpoints. two new breakpoint types can used MIC/disk interpretation using .sir(..., breakpoint_type = \"ECOFF\") oras.sir(..., breakpoint_type = \"animal\"), important new addition veterinary microbiology. Added support 30 species groups / complexes. gathered new data set microorganisms.groups used clinical breakpoint interpretation. example, CLSI 2023 contains breakpoints RGM group (Rapidly Growing Mycobacterium, containing 80 species) now supported package. Added mo_oxygen_tolerance() retrieve values Added mo_is_anaerobic() determine genera/species obligate anaerobic bacteria Added LPSN GBIF identifiers, oxygen tolerance mo_info() Added SAS Transport files (file extension .xpt) download page use SAS software Added microbial codes Gram-negative/positive anaerobic bacteria","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"changed-2-1-0","dir":"Changelog","previous_headings":"","what":"Changed","title":"AMR 2.1.0","text":"Updated algorithm .mo() giving weight fungi Fixed clinical breakpoints errors introduced source import rules mo_rank() now returns NA ‘unknown’ microorganisms (B_ANAER, B_ANAER-NEG, B_ANAER-POS, B_GRAMN, B_GRAMP, F_FUNGUS, F_YEAST, UNKNOWN) printing microorganism antibiotic codes tibble, mouse-hover now shows full name code Now settable arguments breakpoint type PK/PD, like .sir() now contain name guideline table subtitle plot Fixed formatting sir_interpretation_history() Fixed WHONET codes microorganisms consequently couple entries clinical_breakpoints Fixed bug .mo() led coercion NA values using custom microorganism codes Fixed usage icu_exclude first_isolates() Now allows searching species names Fix using keep_synonyms argument using MO codes input Fix using minimum_matching_score argument Updated code table microorganisms.codes Fixed endless loop using reference_df .mo() Fixed bug indicating UTIs .sir() Greatly improved speed .sir()","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"amr-200","dir":"Changelog","previous_headings":"","what":"AMR 2.0.0","title":"AMR 2.0.0","text":"CRAN release: 2023-03-12 new major release AMR package, great new additions also breaking changes current users. listed . TL;DR functions arguments ‘rsi’ replaced ‘sir’, interpretation MIC values (now .sir() instead .rsi()) - old functions still work now Many new interesting functions, antibiogram() (generating traditional/combined/syndromic/WISCA antibiograms), sir_confidence_interval() mean_amr_distance(), add_custom_microorganisms() add custom microorganisms package Clinical breakpoints added EUCAST 2022 CLSI 2022 Microbiological taxonomy (microorganisms data set) updated 2022 now based LPSN GBIF Much increased algorithms translate user input valid taxonomy, e.g. using recent scientific work per-species human pathogenicity 20 new antibiotics added updated DDDs ATC codes Extended support antiviral agents (antivirals data set), many new functions Now available 20 languages Many small bug fixes","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/news/index.html","id":"sir-vs-rsi-2-0-0","dir":"Changelog","previous_headings":"New","what":"SIR vs. RSI","title":"AMR 2.0.0","text":"milestone version, replaced mentions RSI SIR, comply actually commonly used field clinical microbiology comes tri-form regarding AMR. existing functions .rsi(), rsi_df() ggplot_rsi() still work, replacements .sir(), sir_df(), ggplot_sir() now current functions AMR data analysis. warning thrown session remind users . data set rsi_translation now called clinical_breakpoints better reflect content. ‘RSI functions’ removed future version, late 2023 / early 2024.","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"new-antibiogram-function-2-0-0","dir":"Changelog","previous_headings":"New","what":"New antibiogram function","title":"AMR 2.0.0","text":"new antibiogram() function, users can now generate traditional, combined, syndromic, even weighted-incidence syndromic combination antibiograms (WISCA). , follow logic previously described work Klinker et al. (2021, DOI 10.1177/20499361211011373) Barbieri et al. (2021, DOI 10.1186/s13756-021-00939-2). help page antibiogram() extensively elaborates use cases, antibiogram() also supports printing R Markdown Quarto, support 20 languages. Furthermore, different plotting methods implemented allow graphical visualisations well.","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"interpretation-of-mic-and-disk-diffusion-values-2-0-0","dir":"Changelog","previous_headings":"New","what":"Interpretation of MIC and disk diffusion values","title":"AMR 2.0.0","text":"clinical breakpoints intrinsic resistance EUCAST 2022 CLSI 2022 added .sir(). EUCAST 2022 (v12.0) now new default guideline MIC disks diffusion interpretations, eucast_rules() apply EUCAST Expert Rules. default guideline (EUCAST) can now changed new AMR_guideline option, : options(AMR_guideline = \"CLSI 2020\"). new arguments include_PKPD (default: TRUE) include_screening (default: FALSE), users can now specify whether breakpoints screening PK/PD table included interpreting MICs disks diffusion values. options can set globally, can read new manual. Interpretation guidelines older 10 years removed, oldest now included guidelines EUCAST CLSI 2013.","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"supported-languages-2-0-0","dir":"Changelog","previous_headings":"New","what":"Supported languages","title":"AMR 2.0.0","text":"added support following ten languages: Chinese (simplified), Czech, Finnish, Greek, Japanese, Norwegian (bokmål), Polish, Romanian, Turkish Ukrainian. antibiotic names now available languages, AMR package automatically determine supported language based user’s system language. grateful valuable input colleagues countries. AMR package now available 20 languages total, according download stats used almost countries world!","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"outbreak-management-2-0-0","dir":"Changelog","previous_headings":"New","what":"Outbreak management","title":"AMR 2.0.0","text":"analysis outbreak management, updated get_episode() is_new_episode() functions: now contain argument case_free_days. argument can used quantify duration case-free days (inter-epidemic interval), new episode start. common requirement outbreak management, e.g. determining number norovirus outbreaks hospital. case-free period 14 28 days, new norovirus cases time considered different (new) episode.","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"microbiological-taxonomy-2-0-0","dir":"Changelog","previous_headings":"New","what":"Microbiological taxonomy","title":"AMR 2.0.0","text":"microorganisms data set longer relies Catalogue Life, List Prokaryotic names Standing Nomenclature (LPSN) supplemented ‘backbone taxonomy’ Global Biodiversity Information Facility (GBIF). structure data set changed include separate LPSN GBIF identifiers. Almost previous MO codes retained. contains 1,400 taxonomic names 2022. previously relied experience categorise species pathogenic groups, happy encounter recent work Bartlett et al. (2022, DOI 10.1099/mic.0.001269) extensively studied medical-scientific literature categorise bacterial species groups. See mo_matching_score() work incorporated prevalence column microorganisms data set. Using results, .mo() mo_*() functions now much better capable converting user input valid taxonomic records. new function add_custom_microorganisms() allows users add custom microorganisms AMR package. also made following changes regarding included taxonomy microorganisms functions: Updated full microbiological taxonomy according latest daily LPSN data set (December 2022) latest yearly GBIF taxonomy backbone (November 2022) Added function mo_current() get currently valid taxonomic name microorganism Support 1,516 city-like serovars Salmonella, Salmonella Goldcoast. Formally, serovars belonging S. enterica species, reported name genus city. reason, serovars subspecies column microorganisms data set “enterica” species column, full name contain species name (enterica). new argument keep_synonyms allows correct updated taxonomy, favour now deleted argument allow_uncertain increased tremendously speed returns generally consequent results Sequential coercion now extremely fast results stored package environment, although coercion unknown values must run per session. Previous results can reset/removed new mo_reset_session() function. Support microorganism codes ASIan Antimicrobial Resistance Surveillance Network (ASIARS-Net) MO matching score algorithm (mo_matching_score()) now counts deletions substitutions 2 instead 1, impacts outcome .mo() mo_*() function CRAN allows packages around 5 MB maximum, packages exempted package one Chromista relevant comes antimicrobial resistance, thus lacking primary scope package Chromista almost never clinically relevant, thus lacking secondary scope package microorganisms.old data set removed, previously accepted names now included microorganisms data set. new column status contains \"accepted\" currently accepted names \"synonym\" taxonomic synonyms; currently invalid names. previously accepted names now microorganisms ID - available - LPSN, GBIF SNOMED CT identifier.","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"antibiotic-agents-and-selectors-2-0-0","dir":"Changelog","previous_headings":"New","what":"Antibiotic agents and selectors","title":"AMR 2.0.0","text":"new function add_custom_antimicrobials() allows users add custom antimicrobial codes names AMR package. antibiotics data set greatly updated: following 20 antibiotics added (also includes new J01RA ATC group): azithromycin/fluconazole/secnidazole (AFC), cefepime/amikacin (CFA), cefixime/ornidazole (CEO), ceftriaxone/beta-lactamase inhibitor (CEB), ciprofloxacin/metronidazole (CIM), ciprofloxacin/ornidazole (CIO), ciprofloxacin/tinidazole (CIT), furazidin (FUR), isoniazid/sulfamethoxazole/trimethoprim/pyridoxine (IST), lascufloxacin (LSC), levofloxacin/ornidazole (LEO), nemonoxacin (NEM), norfloxacin/metronidazole (NME), norfloxacin/tinidazole (NTI), ofloxacin/ornidazole (OOR), oteseconazole (OTE), rifampicin/ethambutol/isoniazid (REI), sarecycline (SRC), tetracycline/oleandomycin (TOL), thioacetazone (TAT) Added missing ATC codes Updated DDDs PubChem Compound IDs Updated antibiotic name spelling, now used WHOCC (cephalexin -> cefalexin, phenethicillin -> pheneticillin) Antibiotic code “CEI” ceftolozane/tazobactam replaced “CZT” comply EARS-Net WHONET 2022. old code still work cases using .ab() ab_*() functions. Support antimicrobial interpretation anaerobic bacteria, adding ‘placeholder’ code B_ANAER microorganisms data set adding breakpoints anaerobics clinical_breakpoints data set, used .sir() interpretion MIC disk diffusion values Also, added support using antibiotic selectors scoped dplyr verbs (without using vars()), : ... %>% summarise_at(aminoglycosides(), resistance), please see resistance() examples.","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"antiviral-agents-2-0-0","dir":"Changelog","previous_headings":"New","what":"Antiviral agents","title":"AMR 2.0.0","text":"now added extensive support antiviral agents! first time, AMR package extensive support antiviral drugs work names, codes data way. antivirals data set extended 18 new drugs (also new J05AJ ATC group) now also contains antiviral identifiers LOINC codes new data type av (antivirals) added, functionally similar ab antibiotics Functions .av(), av_name(), av_atc(), av_synonyms(), av_from_text() added siblings ab_*() equivalents","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"other-new-functions-2-0-0","dir":"Changelog","previous_headings":"New","what":"Other new functions","title":"AMR 2.0.0","text":"Function sir_confidence_interval() add confidence intervals AMR calculation. now also included sir_df() proportion_df(). Function mean_amr_distance() calculate mean AMR distance. mean AMR distance normalised numeric value compare AMR test results can help identify similar isolates, without comparing antibiograms hand. Function sir_interpretation_history() view history previous runs .sir() (previously .rsi()). returns ‘logbook’ selected guideline, reference table specific interpretation row data set .sir() run.","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"changes-2-0-0","dir":"Changelog","previous_headings":"","what":"Changes","title":"AMR 2.0.0","text":"Fix working NA values Fix unsorted dates length 2 Now returns class integer instead numeric since always whole numbers Argument combine_IR removed package (affecting functions count_df(), proportion_df(), sir_df() plotting functions), since replaced combine_SI three years ago Using units ab_ddd(..., units = \"...\") deprecated time now supported anymore. Use ab_ddd_units() instead. Support data.frame-enhancing R packages, specifically: data.table::data.table, janitor::tabyl, tibble::tibble, tsibble::tsibble. AMR package functions data set output (sir_df() bug_drug_combinations()), now return data type input. data sets package now tibble, instead base R data.frames. Older R versions still supported, even support tibbles. data sets now also continually exported Apache Feather Apache Parquet formats. can find info article website. Fixed certain EUCAST breakpoints MIC values Allow NA values (e.g. .sir(.disk(NA), ...)) Fix bug-drug combinations multiple breakpoints different body sites Interpretation MIC disk zones now informative availability breakpoints robust Removed .integer() method MIC values, since MIC integer values running table() MIC values consequently failed able retrieve level position (’s normally .integer() factors work) Fixed determination Gram stains (mo_gramstain()), since taxonomic phyla Actinobacteria, Chloroflexi, Firmicutes, Tenericutes renamed respectively Actinomycetota, Chloroflexota, Bacillota, Mycoplasmatota 2021 droplevels() MIC now return common factor default lose mic class. Use droplevels(..., .mic = TRUE) keep mic class. Small fix using ab_from_text() Fixes reading text files using set_mo_source(), now also allows source file contain valid taxonomic names instead valid microorganism ID package Fixed bug mdro() using similar column names Magiorakos guideline Using random_*() function (random_mic()) now possible directly calling package without loading first: AMR::random_mic(10) Extended support vctrs package, used internally tidyverse. allows change values class mic, disk, sir, mo ab tibbles, use antibiotic selectors selecting/filtering, e.g. df[carbapenems() == \"R\", ] Fix using info = FALSE mdro() interpretation guidelines using .sir() amoxicillin, rules ampicillin used amoxicillin rules available Fix using ab_atc() non-existing ATC codes Black white message texts now reversed colour using RStudio dark theme mo_snomed() now returns class character, numeric anymore (make long SNOMED codes readable) Fix using .ab() NA values Updated support WHONET 2022 microorganism codes Antimicrobial interpretation ‘SDD’ (susceptible dose-dependent, coined CLSI) interpreted ‘’ comply EUCAST’s ‘’ .sir() Fix mo_shortname() case higher taxonomic ranks (order, class, phylum) Cleaning columns .sir(), .mic(), .disk() now show column name warning invalid results Fix using g.test() zeroes 2x2 table mo_synonyns() now contains scientific reference names","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"other-2-0-0","dir":"Changelog","previous_headings":"","what":"Other","title":"AMR 2.0.0","text":"Added Peter Dutey-Magni, Dmytro Mykhailenko, Anton Mymrikov, Andrew Norgan, Jonas Salm, Anita Williams contributors, thank valuable input New website make use new Bootstrap 5 pkgdown 2.0. website now contains results examples automatically regenerated every change repository, using GitHub Actions R Rmd files project now styled using styler package Set scalar conditional expressions (&& ||) possible comply upcoming R 4.3 enormous lot code cleaning, fixing small bugs along way changelog contains changes AMR v2.0 (January 2023) later. prior versions, please see archive.","code":""}]
+[{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"introduction","dir":"Articles","previous_headings":"","what":"Introduction","title":"How to conduct AMR data analysis","text":"Conducting AMR data analysis unfortunately requires -depth knowledge different scientific fields, makes hard right. least, requires: Good questions (always start !) reliable data thorough understanding (clinical) epidemiology, understand clinical epidemiological relevance possible bias results thorough understanding (clinical) microbiology/infectious diseases, understand microorganisms causal infections implications pharmaceutical treatment, well understanding intrinsic acquired microbial resistance Experience data analysis microbiological tests results, understand determination limitations MIC values interpretations SIR values Availability biological taxonomy microorganisms probably normalisation factors pharmaceuticals, defined daily doses (DDD) Available (inter-)national guidelines, profound methods apply course, instantly provide knowledge experience. AMR package, aimed providing (1) tools simplify antimicrobial resistance data cleaning, transformation analysis, (2) methods easily incorporate international guidelines (3) scientifically reliable reference data, including requirements mentioned . AMR package enables standardised reproducible AMR data analysis, application evidence-based rules, determination first isolates, translation various codes microorganisms antimicrobial agents, determination (multi-drug) resistant microorganisms, calculation antimicrobial resistance, prevalence future trends.","code":""},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"preparation","dir":"Articles","previous_headings":"","what":"Preparation","title":"How to conduct AMR data analysis","text":"tutorial, create fake demonstration data work . can skip Cleaning data already data ready. start analysis, try make structure data generally look like :","code":""},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"needed-r-packages","dir":"Articles","previous_headings":"Preparation","what":"Needed R packages","title":"How to conduct AMR data analysis","text":"many uses R, need additional packages AMR data analysis. package works closely together tidyverse packages dplyr ggplot2 RStudio. tidyverse tremendously improves way conduct data science - allows natural way writing syntaxes creating beautiful plots R. also use cleaner package, can used cleaning data creating frequency tables. AMR package contains data set example_isolates_unclean, might look data users extracted laboratory systems: AMR data analysis, like microorganism column contain valid, --date taxonomy, antibiotic columns cleaned SIR values well.","code":"library(dplyr) library(ggplot2) library(AMR)  # (if not yet installed, install with:) # install.packages(c(\"dplyr\", \"ggplot2\", \"AMR\")) example_isolates_unclean #> # A tibble: 3,000 × 8 #>    patient_id hospital date       bacteria      AMX   AMC   CIP   GEN   #>    <chr>      <chr>    <date>     <chr>         <chr> <chr> <chr> <chr> #>  1 J3         A        2012-11-21 E. coli       R     I     S     S     #>  2 R7         A        2018-04-03 K. pneumoniae R     I     S     S     #>  3 P3         A        2014-09-19 E. coli       R     S     S     S     #>  4 P10        A        2015-12-10 E. coli       S     I     S     S     #>  5 B7         A        2015-03-02 E. coli       S     S     S     S     #>  6 W3         A        2018-03-31 S. aureus     R     S     R     S     #>  7 J8         A        2016-06-14 E. coli       R     S     S     S     #>  8 M3         A        2015-10-25 E. coli       R     S     S     S     #>  9 J3         A        2019-06-19 E. coli       S     S     S     S     #> 10 G6         A        2015-04-27 S. aureus     S     S     S     S     #> # ℹ 2,990 more rows  # we will use 'our_data' as the data set name for this tutorial our_data <- example_isolates_unclean"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"taxonomy-of-microorganisms","dir":"Articles","previous_headings":"Preparation","what":"Taxonomy of microorganisms","title":"How to conduct AMR data analysis","text":".mo(), users can transform arbitrary microorganism names codes current taxonomy. AMR package contains --date taxonomic data. specific, currently included data retrieved 11 Dec 2022. codes AMR packages come .mo() short, still human readable. importantly, .mo() supports kinds input: first character codes denote taxonomic kingdom, Bacteria (B), Fungi (F), Protozoa (P). AMR package also contain functions directly retrieve taxonomic properties, name, genus, species, family, order, even Gram-stain. start mo_ use .mo() internally, still arbitrary user input can used: Now can thus clean data: Apparently, uncertainty translation taxonomic codes. Let’s check : ’s good.","code":"as.mo(\"Klebsiella pneumoniae\") #> Class 'mo' #> [1] B_KLBSL_PNMN as.mo(\"K. pneumoniae\") #> Class 'mo' #> [1] B_KLBSL_PNMN as.mo(\"KLEPNE\") #> Class 'mo' #> [1] B_KLBSL_PNMN as.mo(\"KLPN\") #> Class 'mo' #> [1] B_KLBSL_PNMN mo_family(\"K. pneumoniae\") #> [1] \"Enterobacteriaceae\" mo_genus(\"K. pneumoniae\") #> [1] \"Klebsiella\" mo_species(\"K. pneumoniae\") #> [1] \"pneumoniae\"  mo_gramstain(\"Klebsiella pneumoniae\") #> [1] \"Gram-negative\"  mo_ref(\"K. pneumoniae\") #> [1] \"Trevisan, 1887\"  mo_snomed(\"K. pneumoniae\") #> [[1]] #> [1] \"1098101000112102\" \"446870005\"        \"1098201000112108\" \"409801009\"        #> [5] \"56415008\"         \"714315002\"        \"713926009\" our_data$bacteria <- as.mo(our_data$bacteria, info = TRUE) #> ℹ Microorganism translation was uncertain for four microorganisms. Run #>   mo_uncertainties() to review these uncertainties, or use #>   add_custom_microorganisms() to add custom entries. mo_uncertainties() #> Matching scores are based on the resemblance between the input and the full #> taxonomic name, and the pathogenicity in humans. See ?mo_matching_score. #>  #> -------------------------------------------------------------------------------- #> \"E. coli\" -> Escherichia coli (B_ESCHR_COLI, 0.688) #> Also matched: Enterobacter cowanii (0.600), Eubacterium combesii #>               (0.600), Eggerthia catenaformis (0.591), Eubacterium callanderi #>               (0.591), Enterocloster citroniae (0.587), Eubacterium cylindroides #>               (0.583), Enterococcus casseliflavus (0.577), Enterobacter cloacae #>               cloacae (0.571), Enterobacter cloacae complex (0.571), and Ehrlichia #>               canis (0.567) #> -------------------------------------------------------------------------------- #> \"K. pneumoniae\" -> Klebsiella pneumoniae (B_KLBSL_PNMN, 0.786) #> Also matched: Klebsiella pneumoniae ozaenae (0.707), Klebsiella #>               pneumoniae pneumoniae (0.688), Klebsiella pneumoniae rhinoscleromatis #>               (0.658), Klebsiella pasteurii (0.500), Klebsiella planticola (0.500), #>               Kingella potus (0.400), Kosakonia pseudosacchari (0.361), Kaistella #>               palustris (0.333), Kocuria palustris (0.333), and Kocuria pelophila #>               (0.333) #> -------------------------------------------------------------------------------- #> \"S. aureus\" -> Staphylococcus aureus (B_STPHY_AURS, 0.690) #> Also matched: Staphylococcus aureus aureus (0.643), Staphylococcus #>               argenteus (0.625), Staphylococcus aureus anaerobius (0.625), Salmonella #>               Aurelianis (0.595), Salmonella Aarhus (0.588), Salmonella Amounderness #>               (0.587), Selenomonas artemidis (0.571), Salmonella choleraesuis #>               arizonae (0.562), Streptococcus anginosus anginosus (0.561), and #>               Salmonella Abaetetuba (0.548) #> -------------------------------------------------------------------------------- #> \"S. pneumoniae\" -> Streptococcus pneumoniae (B_STRPT_PNMN, 0.750) #> Also matched: Streptococcus pseudopneumoniae (0.700), Serratia #>               proteamaculans quinovora (0.545), Streptococcus pseudoporcinus (0.536), #>               Staphylococcus pseudintermedius (0.532), Serratia proteamaculans #>               proteamaculans (0.526), Salmonella Portanigra (0.524), Sphingomonas #>               paucimobilis (0.520), Streptococcus pluranimalium (0.519), #>               Streptococcus constellatus pharyngis (0.514), and Salmonella Pakistan #>               (0.500) #>  #> Only the first 10 other matches of each record are shown. Run #> print(mo_uncertainties(), n = ...) to view more entries, or save #> mo_uncertainties() to an object."},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"antibiotic-results","dir":"Articles","previous_headings":"Preparation","what":"Antibiotic results","title":"How to conduct AMR data analysis","text":"column antibiotic test results must also cleaned. AMR package comes three new data types work test results: mic minimal inhibitory concentrations (MIC), disk disk diffusion diameters, sir SIR data interpreted already. package can also determine SIR values based MIC disk diffusion values, read .sir() page. now, just clean SIR columns data using dplyr: basically cleaning, time start data inclusion.","code":"# method 1, be explicit about the columns: our_data <- our_data %>%   mutate_at(vars(AMX:GEN), as.sir)  # method 2, let the AMR package determine the eligible columns our_data <- our_data %>%   mutate_if(is_sir_eligible, as.sir)  # result: our_data #> # A tibble: 3,000 × 8 #>    patient_id hospital date       bacteria     AMX   AMC   CIP   GEN   #>    <chr>      <chr>    <date>     <mo>         <sir> <sir> <sir> <sir> #>  1 J3         A        2012-11-21 B_ESCHR_COLI R     I     S     S     #>  2 R7         A        2018-04-03 B_KLBSL_PNMN R     I     S     S     #>  3 P3         A        2014-09-19 B_ESCHR_COLI R     S     S     S     #>  4 P10        A        2015-12-10 B_ESCHR_COLI S     I     S     S     #>  5 B7         A        2015-03-02 B_ESCHR_COLI S     S     S     S     #>  6 W3         A        2018-03-31 B_STPHY_AURS R     S     R     S     #>  7 J8         A        2016-06-14 B_ESCHR_COLI R     S     S     S     #>  8 M3         A        2015-10-25 B_ESCHR_COLI R     S     S     S     #>  9 J3         A        2019-06-19 B_ESCHR_COLI S     S     S     S     #> 10 G6         A        2015-04-27 B_STPHY_AURS S     S     S     S     #> # ℹ 2,990 more rows"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"first-isolates","dir":"Articles","previous_headings":"Preparation","what":"First isolates","title":"How to conduct AMR data analysis","text":"need know isolates can actually use analysis without repetition bias. conduct analysis antimicrobial resistance, must include first isolate every patient per episode (Hindler et al., Clin Infect Dis. 2007). , easily get overestimate underestimate resistance antibiotic. Imagine patient admitted MRSA found 5 different blood cultures following weeks (yes, countries like Netherlands blood drawing policies). resistance percentage oxacillin isolates overestimated, included MRSA . clearly selection bias. Clinical Laboratory Standards Institute (CLSI) appoints follows: (…) preparing cumulative antibiogram guide clinical decisions empirical antimicrobial therapy initial infections, first isolate given species per patient, per analysis period (eg, one year) included, irrespective body site, antimicrobial susceptibility profile, phenotypical characteristics (eg, biotype). first isolate easily identified, cumulative antimicrobial susceptibility test data prepared using first isolate generally comparable cumulative antimicrobial susceptibility test data calculated methods, providing duplicate isolates excluded. M39-A4 Analysis Presentation Cumulative Antimicrobial Susceptibility Test Data, 4th Edition. CLSI, 2014. Chapter 6.4 AMR package includes methodology first_isolate() function able apply four different methods defined Hindler et al. 2007: phenotype-based, episode-based, patient-based, isolate-based. right method depends goals analysis, default phenotype-based method case method properly correct duplicate isolates. Read methods first_isolate() page. outcome function can easily added data: 90% suitable resistance analysis! can now filter filter() function, also dplyr package: future use, two syntaxes can shortened: end 2 712 isolates analysis. Now data looks like: Time analysis.","code":"our_data <- our_data %>%   mutate(first = first_isolate(info = TRUE)) #> ℹ Determining first isolates using an episode length of 365 days #> ℹ Using column 'bacteria' as input for col_mo. #> ℹ Using column 'date' as input for col_date. #> ℹ Using column 'patient_id' as input for col_patient_id. #> ℹ Basing inclusion on all antimicrobial results, using a points threshold #>   of 2 #> => Found 2,712 'phenotype-based' first isolates (90.4% 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,712 × 9 #>    patient_id hospital date       bacteria     AMX   AMC   CIP   GEN   first #>    <chr>      <chr>    <date>     <mo>         <sir> <sir> <sir> <sir> <lgl> #>  1 J3         A        2012-11-21 B_ESCHR_COLI R     I     S     S     TRUE  #>  2 R7         A        2018-04-03 B_KLBSL_PNMN R     I     S     S     TRUE  #>  3 P10        A        2015-12-10 B_ESCHR_COLI S     I     S     S     TRUE  #>  4 B7         A        2015-03-02 B_ESCHR_COLI S     S     S     S     TRUE  #>  5 W3         A        2018-03-31 B_STPHY_AURS R     S     R     S     TRUE  #>  6 M3         A        2015-10-25 B_ESCHR_COLI R     S     S     S     TRUE  #>  7 J3         A        2019-06-19 B_ESCHR_COLI S     S     S     S     TRUE  #>  8 G6         A        2015-04-27 B_STPHY_AURS S     S     S     S     TRUE  #>  9 P4         A        2011-06-21 B_ESCHR_COLI S     S     S     S     TRUE  #> 10 Z1         A        2014-09-05 B_ESCHR_COLI S     S     S     S     TRUE  #> # ℹ 2,702 more rows"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"analysing-the-data","dir":"Articles","previous_headings":"","what":"Analysing the data","title":"How to conduct AMR data analysis","text":"base R summary() function gives good first impression, comes support new mo sir classes now data set:","code":"summary(our_data_1st) #>   patient_id          hospital              date            #>  Length:2712        Length:2712        Min.   :2011-01-01   #>  Class :character   Class :character   1st Qu.:2013-05-03   #>  Mode  :character   Mode  :character   Median :2015-06-16   #>                                        Mean   :2015-06-21   #>                                        3rd Qu.:2017-08-24   #>                                        Max.   :2019-12-27   #>    bacteria               AMX                    AMC                 #>  Class :mo             Class:sir              Class:sir              #>  <NA>  :0              %R   :42.9% (n=1163)   %R   :36.1% (n=978)    #>  Unique:4              %SI  :57.1% (n=1549)   %SI  :63.9% (n=1734)   #>  #1    :B_ESCHR_COLI   - %S :41.0% (n=1112)   - %S :52.0% (n=1409)   #>  #2    :B_STPHY_AURS   - %I :16.1% (n=437)    - %I :12.0% (n=325)    #>  #3    :B_STRPT_PNMN                                                 #>     CIP                    GEN                  first         #>  Class:sir              Class:sir              Mode:logical   #>  %R   :42.0% (n=1138)   %R   :37.3% (n=1011)   TRUE:2712      #>  %SI  :58.0% (n=1574)   %SI  :62.7% (n=1701)                  #>  - %S :51.5% (n=1396)   - %S :59.6% (n=1616)                  #>  - %I : 6.6% (n=178)    - %I : 3.1% (n=85)                    #>   glimpse(our_data_1st) #> Rows: 2,712 #> Columns: 9 #> $ patient_id <chr> \"J3\", \"R7\", \"P10\", \"B7\", \"W3\", \"M3\", \"J3\", \"G6\", \"P4\", \"Z1\"… #> $ hospital   <chr> \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\", \"A\",… #> $ date       <date> 2012-11-21, 2018-04-03, 2015-12-10, 2015-03-02, 2018-03-31… #> $ bacteria   <mo> \"B_ESCHR_COLI\", \"B_KLBSL_PNMN\", \"B_ESCHR_COLI\", \"B_ESCHR_COL… #> $ AMX        <sir> R, R, S, S, R, R, S, S, S, S, R, S, S, S, R, R, R, R, S, R,… #> $ AMC        <sir> I, I, I, S, S, S, S, S, S, S, S, S, I, S, S, S, S, R, S, S,… #> $ CIP        <sir> S, S, S, S, R, S, S, S, S, S, S, S, S, S, S, S, S, S, S, S,… #> $ GEN        <sir> S, S, S, S, S, S, S, S, S, S, R, S, 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       1852          4          3          3          3  #>        GEN      first  #>          3          1"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"availability-of-species","dir":"Articles","previous_headings":"Analysing the data","what":"Availability of species","title":"How to conduct AMR data analysis","text":"just get idea species distributed, create frequency table count() based name microorganisms:","code":"our_data %>%   count(mo_name(bacteria), sort = TRUE) #> # A tibble: 4 × 2 #>   `mo_name(bacteria)`          n #>   <chr>                    <int> #> 1 Escherichia coli          1518 #> 2 Staphylococcus aureus      730 #> 3 Streptococcus pneumoniae   426 #> 4 Klebsiella pneumoniae      326  our_data_1st %>%   count(mo_name(bacteria), sort = TRUE) #> # A tibble: 4 × 2 #>   `mo_name(bacteria)`          n #>   <chr>                    <int> #> 1 Escherichia coli          1319 #> 2 Staphylococcus aureus      676 #> 3 Streptococcus pneumoniae   400 #> 4 Klebsiella pneumoniae      317"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"select-and-filter-with-antibiotic-selectors","dir":"Articles","previous_headings":"Analysing the data","what":"Select and filter with antibiotic selectors","title":"How to conduct AMR data analysis","text":"Using -called antibiotic class selectors, can select filter columns based antibiotic class antibiotic results :","code":"our_data_1st %>%   select(date, aminoglycosides()) #> ℹ For aminoglycosides() using column 'GEN' (gentamicin) #> # A tibble: 2,712 × 2 #>    date       GEN   #>    <date>     <sir> #>  1 2012-11-21 S     #>  2 2018-04-03 S     #>  3 2015-12-10 S     #>  4 2015-03-02 S     #>  5 2018-03-31 S     #>  6 2015-10-25 S     #>  7 2019-06-19 S     #>  8 2015-04-27 S     #>  9 2011-06-21 S     #> 10 2014-09-05 S     #> # ℹ 2,702 more rows  our_data_1st %>%   select(bacteria, betalactams()) #> ℹ For betalactams() using columns 'AMX' (amoxicillin) and 'AMC' #>   (amoxicillin/clavulanic acid) #> # A tibble: 2,712 × 3 #>    bacteria     AMX   AMC   #>    <mo>         <sir> <sir> #>  1 B_ESCHR_COLI R     I     #>  2 B_KLBSL_PNMN R     I     #>  3 B_ESCHR_COLI S     I     #>  4 B_ESCHR_COLI S     S     #>  5 B_STPHY_AURS R     S     #>  6 B_ESCHR_COLI R     S     #>  7 B_ESCHR_COLI S     S     #>  8 B_STPHY_AURS S     S     #>  9 B_ESCHR_COLI S     S     #> 10 B_ESCHR_COLI S     S     #> # ℹ 2,702 more rows  our_data_1st %>%   select(bacteria, where(is.sir)) #> # A tibble: 2,712 × 5 #>    bacteria     AMX   AMC   CIP   GEN   #>    <mo>         <sir> <sir> <sir> <sir> #>  1 B_ESCHR_COLI R     I     S     S     #>  2 B_KLBSL_PNMN R     I     S     S     #>  3 B_ESCHR_COLI S     I     S     S     #>  4 B_ESCHR_COLI S     S     S     S     #>  5 B_STPHY_AURS R     S     R     S     #>  6 B_ESCHR_COLI R     S     S     S     #>  7 B_ESCHR_COLI S     S     S     S     #>  8 B_STPHY_AURS S     S     S     S     #>  9 B_ESCHR_COLI S     S     S     S     #> 10 B_ESCHR_COLI S     S     S     S     #> # ℹ 2,702 more rows  # filtering using AB selectors is also possible: our_data_1st %>%   filter(any(aminoglycosides() == \"R\")) #> ℹ For aminoglycosides() using column 'GEN' (gentamicin) #> # A tibble: 1,011 × 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  #> # ℹ 1,001 more rows  our_data_1st %>%   filter(all(betalactams() == \"R\")) #> ℹ For betalactams() using columns 'AMX' (amoxicillin) and 'AMC' #>   (amoxicillin/clavulanic acid) #> # A tibble: 483 × 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  #> # ℹ 473 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: 483 × 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  #> # ℹ 473 more rows"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"generate-antibiograms","dir":"Articles","previous_headings":"Analysing the data","what":"Generate antibiograms","title":"How to conduct AMR data analysis","text":"Since AMR v2.0 (March 2023), easy create different types antibiograms, support 20 different languages. four antibiogram types, proposed Klinker et al. (2021, DOI 10.1177/20499361211011373), supported new antibiogram() function: Traditional Antibiogram (TA) e.g, susceptibility Pseudomonas aeruginosa piperacillin/tazobactam (TZP) Combination Antibiogram (CA) e.g, sdditional susceptibility Pseudomonas aeruginosa TZP + tobramycin versus TZP alone Syndromic Antibiogram (SA) e.g, susceptibility Pseudomonas aeruginosa TZP among respiratory specimens (obtained among ICU patients ) Weighted-Incidence Syndromic Combination Antibiogram (WISCA) e.g, susceptibility Pseudomonas aeruginosa TZP among respiratory specimens (obtained among ICU patients ) male patients age >=65 years heart failure section, show use antibiogram() function create antibiogram types. starters, included example_isolates data set looks like:","code":"example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"traditional-antibiogram","dir":"Articles","previous_headings":"Analysing the data > Generate antibiograms","what":"Traditional Antibiogram","title":"How to conduct AMR data analysis","text":"create traditional antibiogram, simply state antibiotics used. antibiotics argument antibiogram() function supports (combination) previously mentioned antibiotic class selectors: Notice antibiogram() function automatically prints right format using Quarto R Markdown (page), even applies italics taxonomic names (using italicise_taxonomy() internally). also uses language OS either English, Chinese, Czech, Danish, Dutch, Finnish, French, German, Greek, Italian, Japanese, Norwegian, Polish, Portuguese, Romanian, Russian, Spanish, Swedish, Turkish, Ukrainian. next example, force language Spanish using language argument:","code":"antibiogram(example_isolates,             antibiotics = c(aminoglycosides(), carbapenems())) #> ℹ 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://msberends.github.io/AMR/articles/AMR.html","id":"combined-antibiogram","dir":"Articles","previous_headings":"Analysing the data > Generate antibiograms","what":"Combined Antibiogram","title":"How to conduct AMR data analysis","text":"create combined antibiogram, use antibiotic codes names plus + character like :","code":"antibiogram(example_isolates,             antibiotics = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\"))"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"syndromic-antibiogram","dir":"Articles","previous_headings":"Analysing the data > Generate antibiograms","what":"Syndromic Antibiogram","title":"How to conduct AMR data analysis","text":"create syndromic antibiogram, syndromic_group argument must used. can column data, e.g. ifelse() calculations based certain columns:","code":"antibiogram(example_isolates,             antibiotics = c(aminoglycosides(), carbapenems()),             syndromic_group = \"ward\") #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem)"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"weighted-incidence-syndromic-combination-antibiogram-wisca","dir":"Articles","previous_headings":"Analysing the data > Generate antibiograms","what":"Weighted-Incidence Syndromic Combination Antibiogram (WISCA)","title":"How to conduct AMR data analysis","text":"create WISCA, must state combination therapy antibiotics argument (similar Combination Antibiogram), define syndromic group syndromic_group argument (similar Syndromic Antibiogram) cases predefined based clinical demographic characteristics (e.g., endocarditis 75+ females). next example simplification without clinical characteristics, just gives idea WISCA can created:","code":"wisca <- antibiogram(example_isolates,                      antibiotics = c(\"AMC\", \"AMC+CIP\", \"TZP\", \"TZP+TOB\"),                      mo_transform = \"gramstain\",                      minimum = 10, # this should be >= 30, but now just as example                      syndromic_group = ifelse(example_isolates$age >= 65 &                                                 example_isolates$gender == \"M\",                                               \"WISCA Group 1\", \"WISCA Group 2\")) wisca"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"plotting-antibiograms","dir":"Articles","previous_headings":"Analysing the data > Generate antibiograms","what":"Plotting antibiograms","title":"How to conduct AMR data analysis","text":"Antibiograms can plotted using autoplot() ggplot2 packages, since AMR package provides extension function:  calculate antimicrobial resistance sensible way, also correcting results, use resistance() susceptibility() functions.","code":"autoplot(wisca)"},{"path":"https://msberends.github.io/AMR/articles/AMR.html","id":"resistance-percentages","dir":"Articles","previous_headings":"Analysing the data","what":"Resistance percentages","title":"How to conduct AMR data analysis","text":"functions resistance() susceptibility() can used calculate antimicrobial resistance susceptibility. specific analyses, functions proportion_S(), proportion_SI(), proportion_I(), proportion_IR() proportion_R() can used determine proportion specific antimicrobial outcome. functions contain minimum argument, denoting minimum required number test results returning value. functions otherwise return NA. default minimum = 30, following CLSI M39-A4 guideline applying microbial epidemiology. per EUCAST guideline 2019, calculate resistance proportion R (proportion_R(), equal resistance()) susceptibility proportion S (proportion_SI(), equal susceptibility()). functions can used : can used conjunction group_by() summarise(), dplyr package: Author: Dr. Matthijs Berends, 26th Feb 2023","code":"our_data_1st %>% resistance(AMX) #> [1] 0.4288348 our_data_1st %>%   group_by(hospital) %>%   summarise(amoxicillin = resistance(AMX)) #> # A tibble: 3 × 2 #>   hospital amoxicillin #>   <chr>          <dbl> #> 1 A              0.342 #> 2 B              0.564 #> 3 C              0.372"},{"path":"https://msberends.github.io/AMR/articles/EUCAST.html","id":"introduction","dir":"Articles","previous_headings":"","what":"Introduction","title":"How to apply EUCAST rules","text":"EUCAST rules? European Committee Antimicrobial Susceptibility Testing (EUCAST) states website: EUCAST expert rules tabulated collection expert knowledge intrinsic resistances, exceptional resistance phenotypes interpretive rules may applied antimicrobial susceptibility testing order reduce errors make appropriate recommendations reporting particular resistances. Europe, lot medical microbiological laboratories already apply rules (Brown et al., 2015). package features latest insights intrinsic resistance unusual phenotypes (v3.1, 2016). Moreover, eucast_rules() function use purpose can also apply additional rules, like forcing ampicillin = R isolates amoxicillin/clavulanic acid = R.","code":""},{"path":"https://msberends.github.io/AMR/articles/EUCAST.html","id":"examples","dir":"Articles","previous_headings":"","what":"Examples","title":"How to apply EUCAST rules","text":"rules can used discard impossible bug-drug combinations data. example, Klebsiella produces beta-lactamase prevents ampicillin (amoxicillin) working . words, practically every strain Klebsiella resistant ampicillin. Sometimes, laboratory data can still contain strains ampicillin susceptible ampicillin. antibiogram available identification available, antibiogram re-interpreted based identification (namely, Klebsiella). EUCAST expert rules solve , can applied using eucast_rules(): convenient function mo_is_intrinsic_resistant() uses guideline, allows check one specific microorganisms antibiotics: EUCAST rules can used correction, can also used filling known resistance susceptibility based results antimicrobials drugs. process called interpretive reading, basically form imputation, part eucast_rules() function well:","code":"oops <- data.frame(   mo = c(     \"Klebsiella\",     \"Escherichia\"   ),   ampicillin = \"S\" ) oops #>            mo ampicillin #> 1  Klebsiella          S #> 2 Escherichia          S  eucast_rules(oops, info = FALSE) #>            mo ampicillin #> 1  Klebsiella          R #> 2 Escherichia          S mo_is_intrinsic_resistant(   c(\"Klebsiella\", \"Escherichia\"),   \"ampicillin\" ) #> [1]  TRUE FALSE  mo_is_intrinsic_resistant(   \"Klebsiella\",   c(\"ampicillin\", \"kanamycin\") ) #> [1]  TRUE FALSE data <- data.frame(   mo = c(     \"Staphylococcus aureus\",     \"Enterococcus faecalis\",     \"Escherichia coli\",     \"Klebsiella pneumoniae\",     \"Pseudomonas aeruginosa\"   ),   VAN = \"-\", # Vancomycin   AMX = \"-\", # Amoxicillin   COL = \"-\", # Colistin   CAZ = \"-\", # Ceftazidime   CXM = \"-\", # Cefuroxime   PEN = \"S\", # Benzylenicillin   FOX = \"S\", # Cefoxitin   stringsAsFactors = FALSE ) data eucast_rules(data)"},{"path":"https://msberends.github.io/AMR/articles/MDR.html","id":"type-of-input","dir":"Articles","previous_headings":"","what":"Type of input","title":"How to determine multi-drug resistance (MDR)","text":"mdro() function takes data set input, regular data.frame. tries automatically determine right columns info isolates, name species columns results antimicrobial agents. See help page info set right settings data command ?mdro. WHONET data (data), settings automatically set correctly.","code":""},{"path":"https://msberends.github.io/AMR/articles/MDR.html","id":"guidelines","dir":"Articles","previous_headings":"","what":"Guidelines","title":"How to determine multi-drug resistance (MDR)","text":"mdro() function support multiple guidelines. can select guideline guideline parameter. Currently supported guidelines (case-insensitive): guideline = \"CMI2012\" (default) Magiorakos AP, Srinivasan et al. “Multidrug-resistant, extensively drug-resistant pandrug-resistant bacteria: international expert proposal interim standard definitions acquired resistance.” Clinical Microbiology Infection (2012) (link) guideline = \"EUCAST3.2\" (simply guideline = \"EUCAST\") European international guideline - EUCAST Expert Rules Version 3.2 “Intrinsic Resistance Unusual Phenotypes” (link) guideline = \"EUCAST3.1\" European international guideline - EUCAST Expert Rules Version 3.1 “Intrinsic Resistance Exceptional Phenotypes Tables” (link) guideline = \"TB\" international guideline multi-drug resistant tuberculosis - World Health Organization “Companion handbook guidelines programmatic management drug-resistant tuberculosis” (link) guideline = \"MRGN\" German national guideline - Mueller et al. (2015) Antimicrobial Resistance Infection Control 4:7. DOI: 10.1186/s13756-015-0047-6 guideline = \"BRMO\" Dutch national guideline - Rijksinstituut voor Volksgezondheid en Milieu “WIP-richtlijn BRMO (Bijzonder Resistente Micro-Organismen) (ZKH)” (link) Please suggest (country-specific) guidelines letting us know: https://github.com/msberends/AMR/issues/new.","code":""},{"path":"https://msberends.github.io/AMR/articles/MDR.html","id":"custom-guidelines","dir":"Articles","previous_headings":"Guidelines","what":"Custom Guidelines","title":"How to determine multi-drug resistance (MDR)","text":"can also use custom guideline. Custom guidelines can set custom_mdro_guideline() function. great importance custom rules determine MDROs hospital, e.g., rules dependent ward, state contact isolation variables data. familiar case_when() dplyr package, recognise input method set rules. Rules must set using R considers ‘formula notation’: row/isolate matches first rule, value first ~ (case ‘Elderly Type ’) set MDRO value. Otherwise, second rule tried . maximum number rules unlimited. can print rules set console overview. Colours help reading console supports colours. outcome function can used guideline argument mdro() function: rules set (custom object case) exported shared file location using saveRDS() collaborate multiple users. custom rules set imported using readRDS().","code":"custom <- custom_mdro_guideline(   CIP == \"R\" & age > 60 ~ \"Elderly Type A\",   ERY == \"R\" & age > 60 ~ \"Elderly Type B\" ) custom #> A set of custom MDRO rules: #>   1. If CIP is \"R\" and age is higher than 60 then: Elderly Type A #>   2. If ERY is \"R\" and age is higher than 60 then: Elderly Type B #>   3. Otherwise: Negative #>  #> Unmatched rows will return NA. #> Results will be of class 'factor', with ordered levels: Negative < Elderly Type A < Elderly Type B x <- mdro(example_isolates, guideline = custom) table(x) #> x #>       Negative Elderly Type A Elderly Type B  #>           1070            198            732"},{"path":"https://msberends.github.io/AMR/articles/MDR.html","id":"examples","dir":"Articles","previous_headings":"","what":"Examples","title":"How to determine multi-drug resistance (MDR)","text":"mdro() function always returns ordered factor predefined guidelines. example, output default guideline Magiorakos et al. returns factor levels ‘Negative’, ‘MDR’, ‘XDR’ ‘PDR’ order. next example uses example_isolates data set. data set included package contains full antibiograms 2,000 microbial isolates. reflects reality can used practise AMR data analysis. test MDR/XDR/PDR guideline data set, get: Frequency table Class: factor > ordered (numeric) Length: 2,000 Levels: 4: Negative < Multi-drug-resistant (MDR) < Extensively drug-resistant … Available: 1,729 (86.45%, NA: 271 = 13.55%) Unique: 2 another example, create data set determine multi-drug resistant TB: column names automatically verified valid drug names codes, worked exactly way: data set now looks like : can now add interpretation MDR-TB data set. can use: shortcut mdr_tb(): Create frequency table results: Frequency table Class: factor > ordered (numeric) Length: 5,000 Levels: 5: Negative < Mono-resistant < Poly-resistant < Multi-drug-resistant <… Available: 5,000 (100%, NA: 0 = 0%) Unique: 5","code":"library(dplyr) # to support pipes: %>% library(cleaner) # to create frequency tables example_isolates %>%   mdro() %>%   freq() # show frequency table of the result #> Warning: in mdro(): NA introduced for isolates where the available percentage of #> antimicrobial classes was below 50% (set with pct_required_classes) # random_sir() is a helper function to generate # a random vector with values S, I and R my_TB_data <- data.frame(   rifampicin = random_sir(5000),   isoniazid = random_sir(5000),   gatifloxacin = random_sir(5000),   ethambutol = random_sir(5000),   pyrazinamide = random_sir(5000),   moxifloxacin = random_sir(5000),   kanamycin = random_sir(5000) ) my_TB_data <- data.frame(   RIF = random_sir(5000),   INH = random_sir(5000),   GAT = random_sir(5000),   ETH = random_sir(5000),   PZA = random_sir(5000),   MFX = random_sir(5000),   KAN = random_sir(5000) ) head(my_TB_data) #>   rifampicin isoniazid gatifloxacin ethambutol pyrazinamide moxifloxacin #> 1          S         S            S          R            R            I #> 2          I         S            S          S            I            S #> 3          S         R            I          I            S            S #> 4          I         I            I          S            R            R #> 5          R         S            R          I            I            R #> 6          I         R            S          S            S            R #>   kanamycin #> 1         S #> 2         R #> 3         S #> 4         R #> 5         S #> 6         I mdro(my_TB_data, guideline = \"TB\") my_TB_data$mdr <- mdr_tb(my_TB_data) #> ℹ No column found as input for col_mo, assuming all rows contain #>   Mycobacterium tuberculosis. freq(my_TB_data$mdr)"},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/PCA.html","id":"transforming","dir":"Articles","previous_headings":"","what":"Transforming","title":"How to conduct principal component analysis (PCA) for AMR","text":"PCA, need transform AMR data first. example_isolates data set package looks like: Now transform data set resistance percentages per taxonomic order genus:","code":"library(AMR) library(dplyr) glimpse(example_isolates) #> Rows: 2,000 #> Columns: 46 #> $ date    <date> 2002-01-02, 2002-01-03, 2002-01-07, 2002-01-07, 2002-01-13, 2… #> $ patient <chr> \"A77334\", \"A77334\", \"067927\", \"067927\", \"067927\", \"067927\", \"4… #> $ age     <dbl> 65, 65, 45, 45, 45, 45, 78, 78, 45, 79, 67, 67, 71, 71, 75, 50… #> $ gender  <chr> \"F\", \"F\", \"F\", \"F\", \"F\", \"F\", \"M\", \"M\", \"F\", \"F\", \"M\", \"M\", \"M… #> $ ward    <chr> \"Clinical\", \"Clinical\", \"ICU\", \"ICU\", \"ICU\", \"ICU\", \"Clinical\"… #> $ mo      <mo> \"B_ESCHR_COLI\", \"B_ESCHR_COLI\", \"B_STPHY_EPDR\", \"B_STPHY_EPDR\",… #> $ PEN     <sir> R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, R, S,… #> $ OXA     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ FLC     <sir> NA, NA, R, R, R, R, S, S, R, S, S, S, NA, NA, NA, NA, NA, R, R… #> $ AMX     <sir> NA, NA, NA, NA, NA, NA, R, R, NA, NA, NA, NA, NA, NA, R, NA, N… #> $ AMC     <sir> I, I, NA, NA, NA, NA, S, S, NA, NA, S, S, I, I, R, I, I, NA, N… #> $ AMP     <sir> NA, NA, NA, NA, NA, NA, R, R, NA, NA, NA, NA, NA, NA, R, NA, N… #> $ TZP     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ CZO     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R, NA,… #> $ FEP     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ CXM     <sir> I, I, R, R, R, R, S, S, R, S, S, S, S, S, NA, S, S, R, R, S, S… #> $ FOX     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R, NA,… #> $ CTX     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, S, S, NA, S, S… #> $ CAZ     <sir> NA, NA, R, R, R, R, R, R, R, R, R, R, NA, NA, NA, S, S, R, R, … #> $ CRO     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, S, S, NA, S, S… #> $ GEN     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ TOB     <sir> NA, NA, NA, NA, NA, NA, S, S, NA, NA, NA, NA, S, S, NA, NA, NA… #> $ AMK     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ KAN     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ TMP     <sir> R, R, S, S, R, R, R, R, S, S, NA, NA, S, S, S, S, S, R, R, R, … #> $ SXT     <sir> R, R, S, S, NA, NA, NA, NA, S, S, NA, NA, S, S, S, S, S, NA, N… #> $ NIT     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R,… #> $ FOS     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ LNZ     <sir> R, R, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R, R, R, R, R, N… #> $ CIP     <sir> NA, NA, NA, NA, NA, NA, NA, NA, S, S, NA, NA, NA, NA, NA, S, S… #> $ MFX     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ VAN     <sir> R, R, S, S, S, S, S, S, S, S, NA, NA, R, R, R, R, R, S, S, S, … #> $ TEC     <sir> R, R, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R, R, R, R, R, N… #> $ TCY     <sir> R, R, S, S, S, S, S, S, S, I, S, S, NA, NA, I, R, R, S, I, R, … #> $ TGC     <sir> NA, NA, S, S, S, S, S, S, S, NA, S, S, NA, NA, NA, R, R, S, NA… #> $ DOX     <sir> NA, NA, S, S, S, S, S, S, S, NA, S, S, NA, NA, NA, R, R, S, NA… #> $ ERY     <sir> R, R, R, R, R, R, S, S, R, S, S, S, R, R, R, R, R, R, R, R, S,… #> $ CLI     <sir> R, R, NA, NA, NA, R, NA, NA, NA, NA, NA, NA, R, R, R, R, R, NA… #> $ AZM     <sir> R, R, R, R, R, R, S, S, R, S, S, S, R, R, R, R, R, R, R, R, S,… #> $ IPM     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, S, S, NA, S, S… #> $ MEM     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ MTR     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ CHL     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ COL     <sir> NA, NA, R, R, R, R, R, R, R, R, R, R, NA, NA, NA, R, R, R, R, … #> $ MUP     <sir> NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA… #> $ RIF     <sir> R, R, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, R, R, R, R, R, N… resistance_data <- example_isolates %>%   group_by(     order = mo_order(mo), # group on anything, like order     genus = mo_genus(mo)   ) %>% #  and genus as we do here   summarise_if(is.sir, resistance) %>% # then get resistance of all drugs   select(     order, genus, AMC, CXM, CTX,     CAZ, GEN, TOB, TMP, SXT   ) # and select only relevant columns  head(resistance_data) #> # A tibble: 6 × 10 #> # Groups:   order [5] #>   order             genus          AMC   CXM   CTX   CAZ   GEN   TOB   TMP   SXT #>   <chr>             <chr>        <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> #> 1 (unknown order)   (unknown ge…    NA    NA    NA    NA    NA    NA    NA    NA #> 2 Actinomycetales   Schaalia        NA    NA    NA    NA    NA    NA    NA    NA #> 3 Bacteroidales     Bacteroides     NA    NA    NA    NA    NA    NA    NA    NA #> 4 Campylobacterales Campylobact…    NA    NA    NA    NA    NA    NA    NA    NA #> 5 Caryophanales     Gemella         NA    NA    NA    NA    NA    NA    NA    NA #> 6 Caryophanales     Listeria        NA    NA    NA    NA    NA    NA    NA    NA"},{"path":"https://msberends.github.io/AMR/articles/PCA.html","id":"perform-principal-component-analysis","dir":"Articles","previous_headings":"","what":"Perform principal component analysis","title":"How to conduct principal component analysis (PCA) for AMR","text":"new pca() function automatically filter rows contain numeric values selected variables, now need : result can reviewed good old summary() function: Good news. first two components explain total 93.3% variance (see PC1 PC2 values Proportion Variance. can create -called biplot base R biplot() function, see antimicrobial resistance per drug explain difference per microorganism.","code":"pca_result <- pca(resistance_data) #> ℹ Columns selected for PCA: \"AMC\", \"CAZ\", \"CTX\", \"CXM\", \"GEN\", \"SXT\", #>   \"TMP\", and \"TOB\". Total observations available: 7. summary(pca_result) #> Groups (n=4, named as 'order'): #> [1] \"Caryophanales\"    \"Enterobacterales\" \"Lactobacillales\"  \"Pseudomonadales\" #> Importance of components: #>                           PC1    PC2    PC3     PC4     PC5     PC6       PC7 #> Standard deviation     2.1539 1.6807 0.6138 0.33879 0.20808 0.03140 1.232e-16 #> Proportion of Variance 0.5799 0.3531 0.0471 0.01435 0.00541 0.00012 0.000e+00 #> Cumulative Proportion  0.5799 0.9330 0.9801 0.99446 0.99988 1.00000 1.000e+00 #> Groups (n=4, named as 'order'): #> [1] \"Caryophanales\"    \"Enterobacterales\" \"Lactobacillales\"  \"Pseudomonadales\""},{"path":"https://msberends.github.io/AMR/articles/PCA.html","id":"plotting-the-results","dir":"Articles","previous_headings":"","what":"Plotting the results","title":"How to conduct principal component analysis (PCA) for AMR","text":"can’t see explanation points. Perhaps works better new ggplot_pca() function, automatically adds right labels even groups:  can also print ellipse per group, edit appearance:","code":"biplot(pca_result) ggplot_pca(pca_result) ggplot_pca(pca_result, ellipse = TRUE) +   ggplot2::labs(title = \"An AMR/PCA biplot!\")"},{"path":"https://msberends.github.io/AMR/articles/WHONET.html","id":"import-of-data","dir":"Articles","previous_headings":"","what":"Import of data","title":"How to work with WHONET data","text":"tutorial assumes already imported WHONET data e.g. readxl package. RStudio, can done using menu button ‘Import Dataset’ tab ‘Environment’. Choose option ‘Excel’ select exported file. Make sure date fields imported correctly. example syntax look like : package comes example data set WHONET. use analysis.","code":"library(readxl) data <- read_excel(path = \"path/to/your/file.xlsx\")"},{"path":"https://msberends.github.io/AMR/articles/WHONET.html","id":"preparation","dir":"Articles","previous_headings":"","what":"Preparation","title":"How to work with WHONET data","text":"First, load relevant packages yet . use tidyverse analyses. . don’t know yet, suggest read website: https://www.tidyverse.org/. transform variables simplify automate analysis: Microorganisms transformed microorganism codes (called mo) using Catalogue Life reference data set, contains ~70,000 microorganisms taxonomic kingdoms Bacteria, Fungi Protozoa. tranformation .mo(). function also recognises almost WHONET abbreviations microorganisms. Antimicrobial results interpretations clean valid. words, contain values \"S\", \"\" \"R\". exactly .sir() function . errors warnings, values transformed succesfully. also created package dedicated data cleaning checking, called cleaner package. freq() function can used create frequency tables. let’s check data, couple frequency tables: Frequency table Class: character Length: 500 Available: 500 (100%, NA: 0 = 0%) Unique: 38 Shortest: 11 Longest: 40 (omitted 28 entries, n = 57 [11.4%]) Frequency table Class: factor > ordered > sir (numeric) Length: 500 Levels: 3: S < < R Available: 481 (96.2%, NA: 19 = 3.8%) Unique: 3 Drug: Amoxicillin/clavulanic acid (AMC, J01CR02) Drug group: Beta-lactams/penicillins %SI: 78.59%","code":"library(dplyr) # part of tidyverse library(ggplot2) # part of tidyverse library(AMR) # this package library(cleaner) # to create frequency tables # transform variables data <- WHONET %>%   # get microbial ID based on given organism   mutate(mo = as.mo(Organism)) %>%   # transform everything from \"AMP_ND10\" to \"CIP_EE\" to the new `sir` class   mutate_at(vars(AMP_ND10:CIP_EE), as.sir) # our newly created `mo` variable, put in the mo_name() function data %>% freq(mo_name(mo), nmax = 10) # our transformed antibiotic columns # amoxicillin/clavulanic acid (J01CR02) as an example data %>% freq(AMC_ND2)"},{"path":"https://msberends.github.io/AMR/articles/WHONET.html","id":"a-first-glimpse-at-results","dir":"Articles","previous_headings":"","what":"A first glimpse at results","title":"How to work with WHONET data","text":"easy ggplot already give lot information, using included ggplot_sir() function:","code":"data %>%   group_by(Country) %>%   select(Country, AMP_ND2, AMC_ED20, CAZ_ED10, CIP_ED5) %>%   ggplot_sir(translate_ab = \"ab\", facet = \"Country\", datalabels = FALSE)"},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"microorganisms-full-microbial-taxonomy","dir":"Articles","previous_headings":"","what":"microorganisms: Full Microbial Taxonomy","title":"Data sets for download / own use","text":"data set 52 171 rows 23 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, gbif, gbif_parent, gbif_renamed_to, prevalence, snomed. data set R available microorganisms, load AMR package. last updated 14 July 2023 08:49:06 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (1.2 MB) Download tab-separated text file (11.7 MB) Download Microsoft Excel workbook (5.2 MB) Download Apache Feather file (5.5 MB) Download Apache Parquet file (2.6 MB) Download SAS transport (XPT) file (48.6 MB) Download IBM SPSS Statistics data file (17.8 MB) Download Stata DTA file (48.6 MB) NOTE: exported files SAS, SPSS Stata contain first 50 SNOMED codes per record, file size otherwise exceed 100 MB; file size limit GitHub. file structures compression techniques inefficient. Advice? Use R instead. ’s free much better many ways. tab-separated text file Microsoft Excel workbook contain SNOMED codes comma separated values.","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source","dir":"Articles","previous_headings":"microorganisms: Full Microbial Taxonomy","what":"Source","title":"Data sets for download / own use","text":"data set contains full microbial taxonomy five kingdoms List Prokaryotic names Standing Nomenclature (LPSN) Global Biodiversity Information Facility (GBIF): Parte, AC et al. (2020). List Prokaryotic names Standing Nomenclature (LPSN) moves DSMZ. International Journal Systematic Evolutionary Microbiology, 70, 5607-5612; . Accessed https://lpsn.dsmz.de December 11th, 2022. GBIF Secretariat (2022). GBIF Backbone Taxonomy. Checklist dataset . Accessed https://www.gbif.org December 11th, 2022. Public Health Information Network Vocabulary Access Distribution System (PHIN VADS). US Edition SNOMED CT 1 September 2020. Value Set Name ‘Microorganism’, OID 2.16.840.1.114222.4.11.1009 (v12). URL: https://phinvads.cdc.gov","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"example-content","dir":"Articles","previous_headings":"microorganisms: Full Microbial Taxonomy","what":"Example content","title":"Data sets for download / own use","text":"Included (sub)species per taxonomic kingdom: Example rows filtering genus Escherichia:","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"antibiotics-antibiotic-antifungal-drugs","dir":"Articles","previous_headings":"","what":"antibiotics: Antibiotic (+Antifungal) Drugs","title":"Data sets for download / own use","text":"data set 483 rows 14 columns, containing following column names:ab, cid, name, group, atc, atc_group1, atc_group2, abbreviations, synonyms, oral_ddd, oral_units, iv_ddd, iv_units, loinc. data set R available antibiotics, load AMR package. last updated 20 October 2023 12:51:48 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (44 kB) Download tab-separated text file (0.1 MB) Download Microsoft Excel workbook (72 kB) Download Apache Feather file (0.1 MB) Download Apache Parquet file (0.1 MB) Download SAS transport (XPT) file (1.5 MB) Download IBM SPSS Statistics data file (0.4 MB) Download Stata DTA file (0.5 MB) tab-separated text file Microsoft Excel workbook, SAS, SPSS Stata files contain ATC codes, common abbreviations, trade names LOINC codes comma separated values.","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-1","dir":"Articles","previous_headings":"antibiotics: Antibiotic (+Antifungal) Drugs","what":"Source","title":"Data sets for download / own use","text":"data set contains EARS-Net ATC codes gathered WHONET, compound IDs PubChem. also contains brand names (synonyms) found PubChem Defined Daily Doses (DDDs) oral parenteral administration. ATC/DDD index Collaborating Centre Drug Statistics Methodology (note: may used commercial purposes, freely available CC website personal use) PubChem US National Library Medicine WHONET software 2019 LOINC (Logical Observation Identifiers Names Codes)","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"antivirals-antiviral-drugs","dir":"Articles","previous_headings":"","what":"antivirals: Antiviral Drugs","title":"Data sets for download / own use","text":"data set 120 rows 11 columns, containing following column names:av, name, atc, cid, atc_group, synonyms, oral_ddd, oral_units, iv_ddd, iv_units, loinc. data set R available antivirals, load AMR package. last updated 20 October 2023 12:51:48 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (6 kB) Download tab-separated text file (17 kB) Download Microsoft Excel workbook (16 kB) Download Apache Feather file (16 kB) Download Apache Parquet file (13 kB) Download SAS transport (XPT) file (73 kB) Download IBM SPSS Statistics data file (32 kB) Download Stata DTA file (78 kB) tab-separated text file Microsoft Excel workbook, SAS, SPSS Stata files contain trade names LOINC codes comma separated values.","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-2","dir":"Articles","previous_headings":"antivirals: Antiviral Drugs","what":"Source","title":"Data sets for download / own use","text":"data set contains ATC codes gathered compound IDs PubChem. also contains brand names (synonyms) found PubChem Defined Daily Doses (DDDs) oral parenteral administration. ATC/DDD index Collaborating Centre Drug Statistics Methodology (note: may used commercial purposes, freely available CC website personal use) PubChem US National Library Medicine LOINC (Logical Observation Identifiers Names Codes)","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"clinical_breakpoints-interpretation-from-mic-values-disk-diameters-to-sir","dir":"Articles","previous_headings":"","what":"clinical_breakpoints: Interpretation from MIC values & disk diameters to SIR","title":"Data sets for download / own use","text":"data set 29 747 rows 12 columns, containing following column names:guideline, type, method, site, mo, rank_index, ab, ref_tbl, disk_dose, breakpoint_S, breakpoint_R, uti. data set R available clinical_breakpoints, load AMR package. last updated 20 October 2023 13:07:11 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (59 kB) Download tab-separated text file (2.3 MB) Download Microsoft Excel workbook (1.3 MB) Download Apache Feather file (1.2 MB) Download Apache Parquet file (96 kB) Download SAS transport (XPT) file (7.9 MB) Download IBM SPSS Statistics data file (4.6 MB) Download Stata DTA file (7.8 MB)","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-3","dir":"Articles","previous_headings":"clinical_breakpoints: Interpretation from MIC values & disk diameters to SIR","what":"Source","title":"Data sets for download / own use","text":"data set contains interpretation rules MIC values disk diffusion diameters. Included guidelines CLSI (2011-2023) EUCAST (2011-2023). Clinical breakpoints package validated imported WHONET, free desktop Windows application developed supported Collaborating Centre Surveillance Antimicrobial Resistance. can read website. developers WHONET AMR package contact sharing work. highly appreciate development WHONET software. CEO CLSI chairman EUCAST endorsed work public use AMR package (consequently use breakpoints) June 2023, future development distributing clinical breakpoints discussed meeting CLSI, EUCAST, , developers WHONET AMR package. NOTE: AMR package (WHONET software well) contains internal methods apply guidelines, rather complex. example, breakpoints must applied certain species groups (case package available microorganisms.groups data set). important considered using breakpoints use.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"intrinsic_resistant-intrinsic-bacterial-resistance","dir":"Articles","previous_headings":"","what":"intrinsic_resistant: Intrinsic Bacterial Resistance","title":"Data sets for download / own use","text":"data set 134 634 rows 2 columns, containing following column names:mo ab. data set R available intrinsic_resistant, load AMR package. last updated 16 December 2022 15:10:43 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (78 kB) Download tab-separated text file (5.1 MB) Download Microsoft Excel workbook (1.3 MB) Download Apache Feather file (1.2 MB) Download Apache Parquet file (0.2 MB) Download SAS transport (XPT) file (9.5 MB) Download IBM SPSS Statistics data file (7.4 MB) Download Stata DTA file (9.5 MB)","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-4","dir":"Articles","previous_headings":"intrinsic_resistant: Intrinsic Bacterial Resistance","what":"Source","title":"Data sets for download / own use","text":"data set contains defined intrinsic resistance EUCAST bug-drug combinations, based ‘EUCAST Expert Rules’ ‘EUCAST Intrinsic Resistance Unusual Phenotypes’ v3.3 (2021).","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"example-content-4","dir":"Articles","previous_headings":"intrinsic_resistant: Intrinsic Bacterial Resistance","what":"Example content","title":"Data sets for download / own use","text":"Example rows filtering Enterobacter cloacae:","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"dosage-dosage-guidelines-from-eucast","dir":"Articles","previous_headings":"","what":"dosage: Dosage Guidelines from EUCAST","title":"Data sets for download / own use","text":"data set 503 rows 9 columns, containing following column names:ab, name, type, dose, dose_times, administration, notes, original_txt, eucast_version. data set R available dosage, load AMR package. last updated 22 June 2023 13:10:59 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (3 kB) Download tab-separated text file (43 kB) Download Microsoft Excel workbook (25 kB) Download Apache Feather file (21 kB) Download Apache Parquet file (9 kB) Download SAS transport (XPT) file (0.1 MB) Download IBM SPSS Statistics data file (64 kB) Download Stata DTA file (0.1 MB)","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-5","dir":"Articles","previous_headings":"dosage: Dosage Guidelines from EUCAST","what":"Source","title":"Data sets for download / own use","text":"EUCAST breakpoints used package based dosages data set. Currently included dosages data set meant :  (), ‘EUCAST Clinical Breakpoint Tables’ v11.0 (2021), ‘EUCAST Clinical Breakpoint Tables’ v12.0 (2022).","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"example_isolates-example-data-for-practice","dir":"Articles","previous_headings":"","what":"example_isolates: Example Data for Practice","title":"Data sets for download / own use","text":"data set 2 000 rows 46 columns, containing following column names:date, patient, age, gender, ward, mo, PEN, OXA, FLC, AMX, AMC, AMP, TZP, CZO, FEP, CXM, FOX, CTX, CAZ, CRO, GEN, TOB, AMK, KAN, TMP, SXT, NIT, FOS, LNZ, CIP, MFX, VAN, TEC, TCY, TGC, DOX, ERY, CLI, AZM, IPM, MEM, MTR, CHL, COL, MUP, RIF. data set R available example_isolates, load AMR package. last updated 21 January 2023 22:47:20 UTC. Find info structure data set .","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-6","dir":"Articles","previous_headings":"example_isolates: Example Data for Practice","what":"Source","title":"Data sets for download / own use","text":"data set contains randomised fictitious data, reflects reality can used practise AMR data analysis.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"example_isolates_unclean-example-data-for-practice","dir":"Articles","previous_headings":"","what":"example_isolates_unclean: Example Data for Practice","title":"Data sets for download / own use","text":"data set 3 000 rows 8 columns, containing following column names:patient_id, hospital, date, bacteria, AMX, AMC, CIP, GEN. data set R available example_isolates_unclean, load AMR package. last updated 27 August 2022 18:49:37 UTC. Find info structure data set .","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-7","dir":"Articles","previous_headings":"example_isolates_unclean: Example Data for Practice","what":"Source","title":"Data sets for download / own use","text":"data set contains randomised fictitious data, reflects reality can used practise AMR data analysis.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"microorganisms-groups-species-groups-and-microbiological-complexes","dir":"Articles","previous_headings":"","what":"microorganisms.groups: Species Groups and Microbiological Complexes","title":"Data sets for download / own use","text":"data set 521 rows 4 columns, containing following column names:mo_group, mo, mo_group_name, mo_name. data set R available microorganisms.groups, load AMR package. last updated 14 July 2023 08:49:06 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (6 kB) Download tab-separated text file (49 kB) Download Microsoft Excel workbook (20 kB) Download Apache Feather file (19 kB) Download Apache Parquet file (13 kB) Download SAS transport (XPT) file (0 kB) Download IBM SPSS Statistics data file (64 kB) Download Stata DTA file (81 kB)","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-8","dir":"Articles","previous_headings":"microorganisms.groups: Species Groups and Microbiological Complexes","what":"Source","title":"Data sets for download / own use","text":"data set contains species groups microbiological complexes, used clinical_breakpoints data set.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"microorganisms-codes-common-laboratory-codes","dir":"Articles","previous_headings":"","what":"microorganisms.codes: Common Laboratory Codes","title":"Data sets for download / own use","text":"data set 4 957 rows 2 columns, containing following column names:code mo. data set R available microorganisms.codes, load AMR package. last updated 8 July 2023 15:30:05 UTC. Find info structure data set . Direct download links: Download original R Data Structure (RDS) file (22 kB) Download tab-separated text file (0.1 MB) Download Microsoft Excel workbook (91 kB) Download Apache Feather file (85 kB) Download Apache Parquet file (57 kB) Download SAS transport (XPT) file (0 kB) Download IBM SPSS Statistics data file (0.1 MB) Download Stata DTA file (0.1 MB)","code":""},{"path":"https://msberends.github.io/AMR/articles/datasets.html","id":"source-9","dir":"Articles","previous_headings":"microorganisms.codes: Common Laboratory Codes","what":"Source","title":"Data sets for download / own use","text":"data set contains commonly used codes microorganisms, laboratory systems WHONET.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/articles/resistance_predict.html","id":"needed-r-packages","dir":"Articles","previous_headings":"","what":"Needed R packages","title":"How to predict antimicrobial resistance","text":"many uses R, need additional packages AMR data analysis. package works closely together tidyverse packages dplyr ggplot2. tidyverse tremendously improves way conduct data science - allows natural way writing syntaxes creating beautiful plots R. AMR package depends packages even extends use functions.","code":"library(dplyr) library(ggplot2) library(AMR)  # (if not yet installed, install with:) # install.packages(c(\"tidyverse\", \"AMR\"))"},{"path":"https://msberends.github.io/AMR/articles/resistance_predict.html","id":"prediction-analysis","dir":"Articles","previous_headings":"","what":"Prediction analysis","title":"How to predict antimicrobial resistance","text":"package contains function resistance_predict(), takes input functions AMR data analysis. Based date column, calculates cases per year uses regression model predict antimicrobial resistance. basically easy : function look date column col_date set. running commands, summary regression model printed unless using resistance_predict(..., info = FALSE). text printed summary - actual result (output) function data.frame containing year: number observations, actual observed resistance, estimated resistance standard error estimation: function plot available base R, can extended packages depend output based type input. extended function cope resistance predictions:  fastest way plot result. automatically adds right axes, error bars, titles, number available observations type model. also support ggplot2 package custom function ggplot_sir_predict() create appealing plots:","code":"# resistance prediction of piperacillin/tazobactam (TZP): resistance_predict(tbl = example_isolates, col_date = \"date\", col_ab = \"TZP\", model = \"binomial\")  # or: example_isolates %>%   resistance_predict(     col_ab = \"TZP\",     model = \"binomial\"   )  # to bind it to object 'predict_TZP' for example: predict_TZP <- example_isolates %>%   resistance_predict(     col_ab = \"TZP\",     model = \"binomial\"   ) predict_TZP #> # A tibble: 32 × 7 #>     year  value se_min se_max observations observed estimated #>  * <dbl>  <dbl>  <dbl>  <dbl>        <int>    <dbl>     <dbl> #>  1  2002 0.2        NA     NA           15   0.2       0.0562 #>  2  2003 0.0625     NA     NA           32   0.0625    0.0616 #>  3  2004 0.0854     NA     NA           82   0.0854    0.0676 #>  4  2005 0.05       NA     NA           60   0.05      0.0741 #>  5  2006 0.0508     NA     NA           59   0.0508    0.0812 #>  6  2007 0.121      NA     NA           66   0.121     0.0889 #>  7  2008 0.0417     NA     NA           72   0.0417    0.0972 #>  8  2009 0.0164     NA     NA           61   0.0164    0.106  #>  9  2010 0.0566     NA     NA           53   0.0566    0.116  #> 10  2011 0.183      NA     NA           93   0.183     0.127  #> # ℹ 22 more rows plot(predict_TZP) ggplot_sir_predict(predict_TZP) # choose for error bars instead of a ribbon ggplot_sir_predict(predict_TZP, ribbon = FALSE)"},{"path":"https://msberends.github.io/AMR/articles/resistance_predict.html","id":"choosing-the-right-model","dir":"Articles","previous_headings":"Prediction analysis","what":"Choosing the right model","title":"How to predict antimicrobial resistance","text":"Resistance easily predicted; look vancomycin resistance Gram-positive bacteria, spread (.e. standard error) enormous:  Vancomycin resistance 100% ten years, might remain low. can define model model parameter. model chosen generalised linear regression model using binomial distribution, assuming period zero resistance followed period increasing resistance leading slowly resistance. Valid values : vancomycin resistance Gram-positive bacteria, linear model might appropriate:  model also available object, attribute:","code":"example_isolates %>%   filter(mo_gramstain(mo, language = NULL) == \"Gram-positive\") %>%   resistance_predict(col_ab = \"VAN\", year_min = 2010, info = FALSE, model = \"binomial\") %>%   ggplot_sir_predict() example_isolates %>%   filter(mo_gramstain(mo, language = NULL) == \"Gram-positive\") %>%   resistance_predict(col_ab = \"VAN\", year_min = 2010, info = FALSE, model = \"linear\") %>%   ggplot_sir_predict() model <- attributes(predict_TZP)$model  summary(model)$family #>  #> Family: binomial  #> Link function: logit  summary(model)$coefficients #>                  Estimate  Std. Error   z value     Pr(>|z|) #> (Intercept) -200.67944891 46.17315349 -4.346237 1.384932e-05 #> year           0.09883005  0.02295317  4.305725 1.664395e-05"},{"path":"https://msberends.github.io/AMR/authors.html","id":null,"dir":"","previous_headings":"","what":"Authors","title":"Authors and Citation","text":"Matthijs S. Berends. Author, maintainer. Christian F. Luz. Author, contributor. Dennis Souverein. Author, contributor. Erwin E. . Hassing. Author, contributor. Casper J. Albers. Thesis advisor. Peter Dutey-Magni. Contributor. Judith M. Fonville. Contributor. Alex W. Friedrich. Thesis advisor. Corinna Glasner. Thesis advisor. Eric H. L. C. M. Hazenberg. Contributor. Gwen Knight. Contributor. Annick Lenglet. Contributor. Bart C. Meijer. Contributor. Dmytro Mykhailenko. Contributor. Anton Mymrikov. Contributor. Andrew P. Norgan. Contributor. Sofia Ny. Contributor. Jonas Salm. Contributor. Rogier P. Schade. Contributor. Bhanu N. M. Sinha. Thesis advisor. Anthony Underwood. Contributor. Anita Williams. Contributor.","code":""},{"path":"https://msberends.github.io/AMR/authors.html","id":"citation","dir":"","previous_headings":"","what":"Citation","title":"Authors and Citation","text":"Berends MS, Luz CF, Friedrich AW, Sinha BNM, Albers CJ, Glasner C (2022). “AMR: R Package Working Antimicrobial Resistance Data.” Journal Statistical Software, 104(3), 1–31. doi:10.18637/jss.v104.i03.","code":"@Article{,   title = {{AMR}: An {R} Package for Working with Antimicrobial Resistance Data},   author = {Matthijs S. Berends and Christian F. Luz and Alexander W. Friedrich and Bhanu N. M. Sinha and Casper J. Albers and Corinna Glasner},   journal = {Journal of Statistical Software},   year = {2022},   volume = {104},   number = {3},   pages = {1--31},   doi = {10.18637/jss.v104.i03}, }"},{"path":"https://msberends.github.io/AMR/index.html","id":"the-amr-package-for-r-","dir":"","previous_headings":"","what":"Antimicrobial Resistance Data Analysis","title":"Antimicrobial Resistance Data Analysis","text":"Generates antibiograms - traditional, combined, syndromic, even WISCA Provides full microbiological taxonomy data antimicrobial drugs Applies recent CLSI EUCAST clinical breakpoints MICs disk zones Corrects duplicate isolates, calculates predicts AMR per antibiotic class Integrates WHONET, ATC, EARS-Net, PubChem, LOINC SNOMED CT Works Windows, macOS Linux versions R since R-3.0 completely dependency-free, highly suitable places limited resources https://msberends.github.io/AMR https://doi.org/10.18637/jss.v104.i03","code":""},{"path":"https://msberends.github.io/AMR/index.html","id":"introduction","dir":"","previous_headings":"","what":"Introduction","title":"Antimicrobial Resistance Data Analysis","text":"AMR package free open-source R package zero dependencies simplify analysis prediction Antimicrobial Resistance (AMR) work microbial antimicrobial data properties, using evidence-based methods. aim provide standard clean reproducible AMR data analysis, can therefore empower epidemiological analyses continuously enable surveillance treatment evaluation setting. Many different researchers around globe continually helping us make successful durable project! work published Journal Statistical Software (Volume 104(3); DOI 10.18637/jss.v104.i03) formed basis two PhD theses (DOI 10.33612/diss.177417131 DOI 10.33612/diss.192486375). installing package, R knows ~52,000 distinct microbial species (updated December 2022) ~600 antibiotic, antimycotic antiviral drugs name code (including ATC, EARS-Net, ASIARS-Net, PubChem, LOINC SNOMED CT), knows valid SIR MIC values. integral clinical breakpoint guidelines CLSI EUCAST included, even epidemiological cut-(ECOFF) values. supports can read data format, including WHONET data. package works Windows, macOS Linux versions R since R-3.0 (April 2013). designed work setting, including limited resources. created routine data analysis academic research Faculty Medical Sciences University Groningen, collaboration non-profit organisations Certe Medical Diagnostics Advice Foundation University Medical Center Groningen.","code":""},{"path":"https://msberends.github.io/AMR/index.html","id":"used-in-over-175-countries-translated-into-20-languages","dir":"","previous_headings":"Introduction","what":"Used in over 175 countries, translated into 20 languages","title":"Antimicrobial Resistance Data Analysis","text":"Since first public release early 2018, R package used almost countries world. Click map enlarge see country names. help contributors corners world, AMR package available  English,  Czech,  Chinese,  Danish,  Dutch,  Finnish,  French,  German,  Greek,  Italian,  Japanese,  Norwegian,  Polish,  Portuguese,  Romanian,  Russian,  Spanish,  Swedish,  Turkish,  Ukrainian. Antimicrobial drug (group) names colloquial microorganism names provided languages.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/index.html","id":"filtering-and-selecting-data","dir":"","previous_headings":"Practical examples","what":"Filtering and selecting data","title":"Antimicrobial Resistance Data Analysis","text":"One powerful functions package, aside calculating plotting AMR, selecting filtering based antibiotic columns. can done using -called antibiotic class selectors work base R, dplyr data.table: defined row filter Gram-negative bacteria intrinsic resistance cefotaxime (mo_is_gram_negative() mo_is_intrinsic_resistant()) column selection two antibiotic groups (aminoglycosides() carbapenems()), reference data microorganisms antibiotics AMR package make sure get meant: base R equivalent : base R code work version R since April 2013 (R-3.0). Moreover, code works identically data.table package, starting :","code":"# AMR works great with dplyr, but it's not required or neccesary library(AMR) library(dplyr)  example_isolates %>%   mutate(bacteria = mo_fullname()) %>%   # filtering functions for microorganisms:   filter(mo_is_gram_negative(),          mo_is_intrinsic_resistant(ab = \"cefotax\")) %>%   # antibiotic selectors:   select(bacteria,          aminoglycosides(),          carbapenems()) library(AMR) example_isolates$bacteria <- mo_fullname(example_isolates$mo) example_isolates[which(mo_is_gram_negative() &                          mo_is_intrinsic_resistant(ab = \"cefotax\")),                  c(\"bacteria\", aminoglycosides(), carbapenems())] example_isolates <- data.table::as.data.table(example_isolates)"},{"path":"https://msberends.github.io/AMR/index.html","id":"generating-antibiograms","dir":"","previous_headings":"Practical examples","what":"Generating antibiograms","title":"Antimicrobial Resistance Data Analysis","text":"AMR package supports generating traditional, combined, syndromic, even weighted-incidence syndromic combination antibiograms (WISCA). used inside R Markdown Quarto, table printed right output format automatically (markdown, LaTeX, HTML, etc.). combination antibiograms, clear combined antibiotics yield higher empiric coverage: Like many functions package, antibiogram() comes support 20 languages often detected automatically based system language:","code":"antibiogram(example_isolates,             antibiotics = c(aminoglycosides(), carbapenems())) antibiogram(example_isolates,             antibiotics = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\"),             mo_transform = \"gramstain\") antibiogram(example_isolates,             antibiotics = c(\"cipro\", \"tobra\", \"genta\"), # any arbitrary name or code will work             mo_transform = \"gramstain\",             ab_transform = \"name\",             language = \"uk\") # Ukrainian"},{"path":"https://msberends.github.io/AMR/index.html","id":"calculating-resistance-per-group","dir":"","previous_headings":"Practical examples","what":"Calculating resistance per group","title":"Antimicrobial Resistance Data Analysis","text":"manual approach, can use resistance susceptibility() function: use antibiotic class selectors select series antibiotic columns:","code":"example_isolates %>%   # group by ward:   group_by(ward) %>%   # calculate AMR using resistance() for gentamicin and tobramycin   # and get their 95% confidence intervals using sir_confidence_interval():   summarise(across(c(GEN, TOB),                    list(total_R = resistance,                         conf_int = function(x) sir_confidence_interval(x, collapse = \"-\")))) library(AMR) library(dplyr)  out <- example_isolates %>%   # group by ward:   group_by(ward) %>%   # calculate AMR using resistance(), over all aminoglycosides and polymyxins:   summarise(across(c(aminoglycosides(), polymyxins()),             resistance)) out # transform the antibiotic columns to names: out %>% set_ab_names() # transform the antibiotic column to ATC codes: out %>% set_ab_names(property = \"atc\")"},{"path":"https://msberends.github.io/AMR/index.html","id":"what-else-can-you-do-with-this-package","dir":"","previous_headings":"","what":"What else can you do with this package?","title":"Antimicrobial Resistance Data Analysis","text":"package intended comprehensive toolbox integrated AMR data analysis. package can used : Reference taxonomy microorganisms, since package contains microbial (sub)species List Prokaryotic names Standing Nomenclature (LPSN) Global Biodiversity Information Facility (GBIF) (manual) Interpreting raw MIC disk diffusion values, based CLSI EUCAST guideline (manual) Retrieving antimicrobial drug names, doses forms administration clinical health care records (manual) Determining first isolates used AMR data analysis (manual) Calculating antimicrobial resistance (tutorial) Determining multi-drug resistance (MDR) / multi-drug resistant organisms (MDRO) (tutorial) Calculating (empirical) susceptibility mono therapy combination therapies (tutorial) Predicting future antimicrobial resistance using regression models (tutorial) Getting properties microorganism (like Gram stain, species, genus family) (manual) Getting properties antibiotic (like name, code EARS-Net/ATC/LOINC/PubChem, defined daily dose trade name) (manual) Plotting antimicrobial resistance (tutorial) Applying EUCAST expert rules (manual) Getting SNOMED codes microorganism, getting properties microorganism based SNOMED code (manual) Getting LOINC codes antibiotic, getting properties antibiotic based LOINC code (manual) Machine reading EUCAST CLSI guidelines 2011-2021 translate MIC values disk diffusion diameters SIR (link) Principal component analysis AMR (tutorial)","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/index.html","id":"latest-official-version","dir":"","previous_headings":"Get this package","what":"Latest official version","title":"Antimicrobial Resistance Data Analysis","text":"package available official R network (CRAN). Install package R CRAN using command: downloaded installed automatically. RStudio, click menu Tools > Install Packages… type “AMR” press Install. Note: functions website may available latest release. use functions data sets mentioned website, install latest development version.","code":"install.packages(\"AMR\")"},{"path":"https://msberends.github.io/AMR/index.html","id":"latest-development-version","dir":"","previous_headings":"Get this package","what":"Latest development version","title":"Antimicrobial Resistance Data Analysis","text":"Please read Developer Guideline . latest unpublished development version can installed GitHub two ways: Manually, using: Automatically, using rOpenSci R-universe platform, adding R-universe address list repositories (‘repos’): , can install update AMR package like official release (e.g., using install.packages(\"AMR\") RStudio via Tools > Check Package Updates…).","code":"install.packages(\"remotes\") # if you haven't already remotes::install_github(\"msberends/AMR\") options(repos = c(getOption(\"repos\"),                   msberends = \"https://msberends.r-universe.dev\"))"},{"path":"https://msberends.github.io/AMR/index.html","id":"get-started","dir":"","previous_headings":"","what":"Get started","title":"Antimicrobial Resistance Data Analysis","text":"find conduct AMR data analysis, please continue reading get started click link ‘’ menu.","code":""},{"path":"https://msberends.github.io/AMR/index.html","id":"partners","dir":"","previous_headings":"","what":"Partners","title":"Antimicrobial Resistance Data Analysis","text":"development package part , related , made possible following non-profit organisations initiatives:","code":""},{"path":"https://msberends.github.io/AMR/index.html","id":"copyright","dir":"","previous_headings":"","what":"Copyright","title":"Antimicrobial Resistance Data Analysis","text":"R package free, open-source software licensed GNU General Public License v2.0 (GPL-2). nutshell, means package: May used commercial purposes May used private purposes May used patent purposes May modified, although: Modifications must released license distributing package Changes made code must documented May distributed, although: Source code must made available package distributed copy license copyright notice must included package. Comes LIMITATION liability Comes warranty","code":""},{"path":"https://msberends.github.io/AMR/reference/AMR-options.html","id":null,"dir":"Reference","previous_headings":"","what":"Options for the AMR package — AMR-options","title":"Options for the AMR package — AMR-options","text":"overview package-specific options() can set AMR package.","code":""},{"path":"https://msberends.github.io/AMR/reference/AMR-options.html","id":"options","dir":"Reference","previous_headings":"","what":"Options","title":"Options for the AMR package — AMR-options","text":"AMR_custom_ab  Allows use custom antimicrobial drugs package. explained add_custom_antimicrobials(). AMR_custom_mo  Allows use custom microorganisms package. explained add_custom_microorganisms(). AMR_eucastrules  Used setting default types rules eucast_rules() function, must one : \"breakpoints\", \"expert\", \"\", \"custom\", \"\", defaults c(\"breakpoints\", \"expert\"). AMR_guideline  Used setting default guideline interpreting MIC values disk diffusion diameters .sir(). Can guideline name (e.g., \"CLSI\") name year (e.g. \"CLSI 2019\"). default latest implemented EUCAST guideline, currently \"EUCAST 2023\". Supported guideline currently EUCAST (2011-2023) CLSI (2011-2023). 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_ecoff  logical use .sir(), indicate ECOFF (Epidemiological Cut-) values must used - 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_cleaning_regex  regular expression (case-insensitive) use .mo() mo_* functions, clean user input. default outcome mo_cleaning_regex(), removes texts brackets texts \"species\" \"serovar\". AMR_locale  language use AMR package, can one supported language names ISO-639-1 codes: English (en), Chinese (zh), Czech (cs), Danish (da), Dutch (nl), Finnish (fi), French (fr), German (de), Greek (el), Italian (), Japanese (ja), Norwegian (), Polish (pl), Portuguese (pt), Romanian (ro), Russian (ru), Spanish (es), Swedish (sv), Turkish (tr), Ukrainian (uk). default current system language (supported). AMR_mo_source  file location manual code list used .mo() mo_* functions. explained set_mo_source().","code":""},{"path":"https://msberends.github.io/AMR/reference/AMR-options.html","id":"saving-settings-between-sessions","dir":"Reference","previous_headings":"","what":"Saving Settings Between Sessions","title":"Options for the AMR package — AMR-options","text":"Settings R saved globally thus lost R exited. can save options .Rprofile file, user-specific file. can edit using:   file, can set options :   add Portuguese language support antibiotics, allow PK/PD rules interpreting MIC values .sir().","code":"utils::file.edit(\"~/.Rprofile\") options(AMR_locale = \"pt\")  options(AMR_include_PKPD = TRUE)"},{"path":"https://msberends.github.io/AMR/reference/AMR-options.html","id":"share-options-within-team","dir":"Reference","previous_headings":"","what":"Share Options Within Team","title":"Options for the AMR package — AMR-options","text":"global approach, e.g. within data team, save options file remote file location, shared network drive. work way: Save plain text file e.g. \"X:/team_folder/R_options.R\" fill preferred settings. user, open .Rprofile file using utils::file.edit(\"~/.Rprofile\") put :   Reload R/RStudio check settings getOption(), e.g. getOption(\"AMR_locale\") set value. Now team settings configured one place, can maintained .","code":"source(\"X:/team_folder/R_options.R\")"},{"path":"https://msberends.github.io/AMR/reference/AMR.html","id":null,"dir":"Reference","previous_headings":"","what":"The AMR Package — AMR","title":"The AMR Package — AMR","text":"Welcome AMR package. AMR package free open-source R package zero dependencies simplify analysis prediction Antimicrobial Resistance (AMR) work microbial antimicrobial data properties, using evidence-based methods. aim provide standard clean reproducible AMR data analysis, can therefore empower epidemiological analyses continuously enable surveillance treatment evaluation setting. Many different researchers around globe continually helping us make successful durable project! work published Journal Statistical Software (Volume 104(3); doi:10.18637/jss.v104.i03 ) formed basis two PhD theses (doi:10.33612/diss.177417131  doi:10.33612/diss.192486375 ). installing package, R knows ~52 000 microorganisms (updated December 2022) ~600 antibiotic, antimycotic antiviral drugs name code (including ATC, EARS-Net, ASIARS-Net, PubChem, LOINC SNOMED CT), knows valid SIR MIC values. integral clinical breakpoint guidelines CLSI EUCAST included, even epidemiological cut-(ECOFF) values. supports can read data format, including WHONET data. package works Windows, macOS Linux versions R since R-3.0 (April 2013). designed work setting, including limited resources. created routine data analysis academic research Faculty Medical Sciences public University Groningen, collaboration non-profit organisations Certe Medical Diagnostics Advice Foundation University Medical Center Groningen. AMR package available English, Chinese, Czech, Danish, Dutch, Finnish, French, German, Greek, Italian, Japanese, Norwegian, Polish, Portuguese, Romanian, Russian, Spanish, Swedish, Turkish, Ukrainian. Antimicrobial drug (group) names colloquial microorganism names provided languages.","code":""},{"path":"https://msberends.github.io/AMR/reference/AMR.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"The AMR Package — AMR","text":"cite AMR publications use: Berends MS, Luz CF, Friedrich AW, Sinha BNM, Albers CJ, Glasner C (2022). \"AMR: R Package Working Antimicrobial Resistance Data.\" Journal Statistical Software, 104(3), 1-31. doi:10.18637/jss.v104.i03 BibTeX entry LaTeX users :","code":"@Article{,   title = {{AMR}: An {R} Package for Working with Antimicrobial Resistance Data},   author = {Matthijs S. Berends and Christian F. Luz and Alexander W. Friedrich and Bhanu N. M. Sinha and Casper J. Albers and Corinna Glasner},   journal = {Journal of Statistical Software},   year = {2022},   volume = {104},   number = {3},   pages = {1--31},   doi = {10.18637/jss.v104.i03}, }"},{"path":"https://msberends.github.io/AMR/reference/AMR.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"The AMR Package — AMR","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/AMR.html","id":"author","dir":"Reference","previous_headings":"","what":"Author","title":"The AMR Package — AMR","text":"Maintainer: Matthijs S. Berends m.s.berends@umcg.nl (ORCID) Authors: Christian F. Luz (ORCID) [contributor] Dennis Souverein (ORCID) [contributor] Erwin E. . Hassing [contributor] contributors: Casper J. Albers (ORCID) [thesis advisor] Peter Dutey-Magni (ORCID) [contributor] Judith M. Fonville [contributor] Alex W. Friedrich (ORCID) [thesis advisor] Corinna Glasner (ORCID) [thesis advisor] Eric H. L. C. M. Hazenberg [contributor] Gwen Knight (ORCID) [contributor] Annick Lenglet (ORCID) [contributor] Bart C. Meijer [contributor] Dmytro Mykhailenko [contributor] Anton Mymrikov [contributor] Andrew P. Norgan (ORCID) [contributor] Sofia Ny (ORCID) [contributor] Jonas Salm [contributor] Rogier P. Schade [contributor] Bhanu N. M. Sinha (ORCID) [thesis advisor] Anthony Underwood (ORCID) [contributor] Anita Williams (ORCID) [contributor]","code":""},{"path":"https://msberends.github.io/AMR/reference/WHOCC.html","id":null,"dir":"Reference","previous_headings":"","what":"WHOCC: WHO Collaborating Centre for Drug Statistics Methodology — WHOCC","title":"WHOCC: WHO Collaborating Centre for Drug Statistics Methodology — WHOCC","text":"antimicrobial drugs official names, ATC codes, ATC groups defined daily dose (DDD) included package, using Collaborating Centre Drug Statistics Methodology.","code":""},{"path":"https://msberends.github.io/AMR/reference/WHOCC.html","id":"whocc","dir":"Reference","previous_headings":"","what":"WHOCC","title":"WHOCC: WHO Collaborating Centre for Drug Statistics Methodology — WHOCC","text":"package contains ~550 antibiotic, antimycotic antiviral drugs Anatomical Therapeutic Chemical (ATC) codes, ATC groups Defined Daily Dose (DDD) World Health Organization Collaborating Centre Drug Statistics Methodology (WHOCC, https://www.whocc.) Pharmaceuticals Community Register European Commission (https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm). become gold standard international drug utilisation monitoring research. WHOCC located Oslo Norwegian Institute Public Health funded Norwegian government. European Commission executive European Union promotes general interest. NOTE: WHOCC copyright allow use commercial purposes, unlike info package. See https://www.whocc./copyright_disclaimer/.","code":""},{"path":"https://msberends.github.io/AMR/reference/WHOCC.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"WHOCC: WHO Collaborating Centre for Drug Statistics Methodology — WHOCC","text":"","code":"as.ab(\"meropenem\") #> Class 'ab' #> [1] MEM ab_name(\"J01DH02\") #> [1] \"Meropenem\"  ab_tradenames(\"flucloxacillin\") #>  [1] \"culpen\"               \"floxacillin\"          \"floxacillin sodium\"   #>  [4] \"floxapen\"             \"floxapen sodium salt\" \"fluclox\"              #>  [7] \"flucloxacilina\"       \"flucloxacillin\"       \"flucloxacilline\"      #> [10] \"flucloxacillinum\"     \"fluorochloroxacillin\" \"staphylex\""},{"path":"https://msberends.github.io/AMR/reference/WHONET.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with 500 Isolates - WHONET Example — WHONET","title":"Data Set with 500 Isolates - WHONET Example — WHONET","text":"example data set exact structure export file WHONET. files can used package, example data set shows. antibiotic results example_isolates data set. patient names created using online surname generators place practice purposes.","code":""},{"path":"https://msberends.github.io/AMR/reference/WHONET.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with 500 Isolates - WHONET Example — WHONET","text":"","code":"WHONET"},{"path":"https://msberends.github.io/AMR/reference/WHONET.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with 500 Isolates - WHONET Example — WHONET","text":"tibble 500 observations 53 variables: Identification number ID sample Specimen number ID specimen Organism Name microorganism. analysis, transform valid microbial class, using .mo(). Country Country origin Laboratory Name laboratory Last name Fictitious last name patient First name Fictitious initial patient Sex Fictitious gender patient Age Fictitious age patient Age category Age group, can also looked using age_groups() Date admissionDate hospital admission Specimen dateDate specimen received laboratory Specimen type Specimen type group Specimen type (Numeric) Translation \"Specimen type\" Reason Reason request Differential Diagnosis Isolate number ID isolate Organism type Type microorganism, can also looked using mo_type() Serotype Serotype microorganism Beta-lactamase Microorganism produces beta-lactamase? ESBL Microorganism produces extended spectrum beta-lactamase? Carbapenemase Microorganism produces carbapenemase? MRSA screening test Microorganism possible MRSA? Inducible clindamycin resistance Clindamycin can induced? Comment comments Date data entryDate data entered WHONET AMP_ND10:CIP_EE 28 different antibiotics. can lookup abbreviations antibiotics data set, use e.g. ab_name(\"AMP\") get official name immediately. analysis, transform valid antibiotic class, using .sir().","code":""},{"path":"https://msberends.github.io/AMR/reference/WHONET.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with 500 Isolates - WHONET Example — WHONET","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/WHONET.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with 500 Isolates - WHONET Example — WHONET","text":"","code":"WHONET #> # A tibble: 500 × 53 #>    `Identification number` `Specimen number` Organism Country         Laboratory #>    <chr>                               <int> <chr>    <chr>           <chr>      #>  1 fe41d7bafa                           1748 SPN      Belgium         National … #>  2 91f175ec37                           1767 eco      The Netherlands National … #>  3 cc4015056e                           1343 eco      The Netherlands National … #>  4 e864b692f5                           1894 MAP      Denmark         National … #>  5 3d051fe345                           1739 PVU      Belgium         National … #>  6 c80762a08d                           1846 103      The Netherlands National … #>  7 8022d3727c                           1628 103      Denmark         National … #>  8 f3dc5f553d                           1493 eco      The Netherlands National … #>  9 15add38f6c                           1847 eco      France          National … #> 10 fd41248def                           1458 eco      Germany         National … #> # ℹ 490 more rows #> # ℹ 48 more variables: `Last name` <chr>, `First name` <chr>, Sex <chr>, #> #   Age <dbl>, `Age category` <chr>, `Date of admission` <date>, #> #   `Specimen date` <date>, `Specimen type` <chr>, #> #   `Specimen type (Numeric)` <dbl>, Reason <chr>, `Isolate number` <int>, #> #   `Organism type` <chr>, Serotype <chr>, `Beta-lactamase` <lgl>, ESBL <lgl>, #> #   Carbapenemase <lgl>, `MRSA screening test` <lgl>, …"},{"path":"https://msberends.github.io/AMR/reference/ab_from_text.html","id":null,"dir":"Reference","previous_headings":"","what":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","title":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","text":"Use function e.g. clinical texts health care records. returns list antimicrobial drugs, doses forms administration found texts.","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_from_text.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","text":"","code":"ab_from_text(   text,   type = c(\"drug\", \"dose\", \"administration\"),   collapse = NULL,   translate_ab = FALSE,   thorough_search = NULL,   info = interactive(),   ... )"},{"path":"https://msberends.github.io/AMR/reference/ab_from_text.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","text":"text text analyse type type property search , either \"drug\", \"dose\" \"administration\", see Examples collapse character pass paste(, collapse = ...) return one character per element text, see Examples translate_ab type = \"drug\": column name antibiotics data set translate antibiotic abbreviations , using ab_property(). default FALSE. Using TRUE equal using \"name\". thorough_search logical indicate whether input must extensively searched misspelling faulty input values. Setting TRUE take considerably time using FALSE. default, turn TRUE input elements contain maximum three words. info logical indicate whether progress bar printed - default TRUE interactive mode ... arguments passed .ab()","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_from_text.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","text":"list,  character collapse NULL","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_from_text.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","text":"function also internally used .ab(), although searches first drug name throw note drug names returned. Note: .ab() function may use long regular expression match brand names antimicrobial drugs. may fail systems.","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_from_text.html","id":"argument-type","dir":"Reference","previous_headings":"","what":"Argument type","title":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","text":"default, function search antimicrobial drug names. text elements searched official names, ATC codes brand names. uses .ab() internally, correct misspelling. type = \"dose\" (similar, like \"dosing\", \"doses\"), text elements searched numeric values higher 100 resemble years. output numeric. supports unit (g, mg, IE, etc.) multiple values one clinical text, see Examples. type = \"administration\" (abbreviations, like \"admin\", \"adm\"), text elements searched form drug administration. supports following forms (including common abbreviations): buccal, implant, inhalation, instillation, intravenous, nasal, oral, parenteral, rectal, sublingual, transdermal vaginal. Abbreviations oral ('po', 'per os') become \"oral\", values intravenous ('iv', 'intraven') become \"iv\". supports multiple values one clinical text, see Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_from_text.html","id":"argument-collapse","dir":"Reference","previous_headings":"","what":"Argument collapse","title":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","text":"Without using collapse, function return list. can convenient use e.g. inside mutate()):df %>% mutate(abx = ab_from_text(clinical_text)) returned AB codes can transformed official names, groups, etc. ab_* functions ab_name() ab_group(), using translate_ab argument. using collapse, function return character:df %>% mutate(abx = ab_from_text(clinical_text, collapse = \"|\"))","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_from_text.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Retrieve Antimicrobial Drug Names and Doses from Clinical Text — ab_from_text","text":"","code":"# mind the bad spelling of amoxicillin in this line, # straight from a true health care record: ab_from_text(\"28/03/2020 regular amoxicilliin 500mg po tid\") #> [[1]] #> Class 'ab' #> [1] AMX #>   ab_from_text(\"500 mg amoxi po and 400mg cipro iv\") #> [[1]] #> Class 'ab' #> [1] AMX CIP #>  ab_from_text(\"500 mg amoxi po and 400mg cipro iv\", type = \"dose\") #> [[1]] #> [1] 500 400 #>  ab_from_text(\"500 mg amoxi po and 400mg cipro iv\", type = \"admin\") #> [[1]] #> [1] \"oral\" \"iv\"   #>   ab_from_text(\"500 mg amoxi po and 400mg cipro iv\", collapse = \", \") #> [1] \"AMX, CIP\" # \\donttest{ # if you want to know which antibiotic groups were administered, do e.g.: abx <- ab_from_text(\"500 mg amoxi po and 400mg cipro iv\") ab_group(abx[[1]]) #> [1] \"Beta-lactams/penicillins\" \"Quinolones\"                if (require(\"dplyr\")) {   tibble(clinical_text = c(     \"given 400mg cipro and 500 mg amox\",     \"started on doxy iv today\"   )) %>%     mutate(       abx_codes = ab_from_text(clinical_text),       abx_doses = ab_from_text(clinical_text, type = \"doses\"),       abx_admin = ab_from_text(clinical_text, type = \"admin\"),       abx_coll = ab_from_text(clinical_text, collapse = \"|\"),       abx_coll_names = ab_from_text(clinical_text,         collapse = \"|\",         translate_ab = \"name\"       ),       abx_coll_doses = ab_from_text(clinical_text,         type = \"doses\",         collapse = \"|\"       ),       abx_coll_admin = ab_from_text(clinical_text,         type = \"admin\",         collapse = \"|\"       )     ) } #> Loading required package: dplyr #>  #> Attaching package: ‘dplyr’ #> The following objects are masked from ‘package:stats’: #>  #>     filter, lag #> The following objects are masked from ‘package:base’: #>  #>     intersect, setdiff, setequal, union #> # A tibble: 2 × 8 #>   clinical_text            abx_codes abx_doses abx_admin abx_coll abx_coll_names #>   <chr>                    <list>    <list>    <list>    <chr>    <chr>          #> 1 given 400mg cipro and 5… <ab [2]>  <dbl [2]> <chr [1]> CIP|AMX  Ciprofloxacin… #> 2 started on doxy iv today <ab [1]>  <dbl [1]> <chr [1]> DOX      Doxycycline    #> # ℹ 2 more variables: abx_coll_doses <chr>, abx_coll_admin <chr> # }"},{"path":"https://msberends.github.io/AMR/reference/ab_property.html","id":null,"dir":"Reference","previous_headings":"","what":"Get Properties of an Antibiotic — ab_property","title":"Get Properties of an Antibiotic — ab_property","text":"Use functions return specific property antibiotic antibiotics data set. input values evaluated internally .ab().","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_property.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Get Properties of an Antibiotic — ab_property","text":"","code":"ab_name(x, language = get_AMR_locale(), tolower = FALSE, ...)  ab_cid(x, ...)  ab_synonyms(x, ...)  ab_tradenames(x, ...)  ab_group(x, language = get_AMR_locale(), ...)  ab_atc(x, only_first = FALSE, ...)  ab_atc_group1(x, language = get_AMR_locale(), ...)  ab_atc_group2(x, language = get_AMR_locale(), ...)  ab_loinc(x, ...)  ab_ddd(x, administration = \"oral\", ...)  ab_ddd_units(x, administration = \"oral\", ...)  ab_info(x, language = get_AMR_locale(), ...)  ab_url(x, open = FALSE, ...)  ab_property(x, property = \"name\", language = get_AMR_locale(), ...)  set_ab_names(   data,   ...,   property = \"name\",   language = get_AMR_locale(),   snake_case = NULL )"},{"path":"https://msberends.github.io/AMR/reference/ab_property.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Get Properties of an Antibiotic — ab_property","text":"x (vector ) text can coerced valid antibiotic drug code .ab() language language returned text - default current system language (see get_AMR_locale()) can also set package option AMR_locale. Use language = NULL language = \"\" prevent translation. tolower logical indicate whether first character every output transformed lower case character. lead e.g. \"polymyxin B\" \"polymyxin b\". ... case set_ab_names() data data.frame: columns select (supports tidy selection column1:column4), otherwise arguments passed .ab() only_first logical indicate whether first ATC code must returned, giving preference J0-codes (.e., antimicrobial drug group) administration way administration, either \"oral\" \"iv\" open browse URL using utils::browseURL() property one column names one antibiotics data set: vector_or(colnames(antibiotics), sort = FALSE). data data.frame columns need renamed, character vector column names snake_case logical indicate whether names -called snake case: lower case spaces/slashes replaced underscore (_)","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_property.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Get Properties of an Antibiotic — ab_property","text":"integer case ab_cid() named list case ab_info() multiple ab_atc()/ab_synonyms()/ab_tradenames() double case ab_ddd() data.frame case set_ab_names() character cases","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_property.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Get Properties of an Antibiotic — ab_property","text":"output translated possible. function ab_url() return direct URL official website. warning returned required ATC code available. function set_ab_names() special column renaming function data.frames. renames columns names resemble antimicrobial drugs. always makes sure new column names unique. property = \"atc\" set, preference given ATC codes J-group.","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_property.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Get Properties of an Antibiotic — ab_property","text":"World Health Organization () Collaborating Centre Drug Statistics Methodology: https://www.whocc./atc_ddd_index/ European Commission Public Health PHARMACEUTICALS - COMMUNITY REGISTER: https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm","code":""},{"path":"https://msberends.github.io/AMR/reference/ab_property.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Get Properties of an Antibiotic — ab_property","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/ab_property.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Get Properties of an Antibiotic — ab_property","text":"","code":"# all properties: ab_name(\"AMX\") #> [1] \"Amoxicillin\" ab_atc(\"AMX\") #> [1] \"J01CA04\" ab_cid(\"AMX\") #> [1] 33613 ab_synonyms(\"AMX\") #>  [1] \"actimoxi\"            \"amoclen\"             \"amolin\"              #>  [4] \"amopen\"              \"amopenixin\"          \"amoxibiotic\"         #>  [7] \"amoxicaps\"           \"amoxicilina\"         \"amoxicillin\"         #> [10] \"amoxicillin hydrate\" \"amoxicilline\"        \"amoxicillinum\"       #> [13] \"amoxiden\"            \"amoxil\"              \"amoxivet\"            #> [16] \"amoxy\"               \"amoxycillin\"         \"amoxyke\"             #> [19] \"anemolin\"            \"aspenil\"             \"atoksilin\"           #> [22] \"biomox\"              \"bristamox\"           \"cemoxin\"             #> [25] \"clamoxyl\"            \"damoxy\"              \"delacillin\"          #> [28] \"demoksil\"            \"dispermox\"           \"efpenix\"             #> [31] \"flemoxin\"            \"hiconcil\"            \"histocillin\"         #> [34] \"hydroxyampicillin\"   \"ibiamox\"             \"imacillin\"           #> [37] \"lamoxy\"              \"largopen\"            \"metafarma capsules\"  #> [40] \"metifarma capsules\"  \"moksilin\"            \"moxacin\"             #> [43] \"moxatag\"             \"ospamox\"             \"pamoxicillin\"        #> [46] \"piramox\"             \"promoxil\"            \"remoxil\"             #> [49] \"robamox\"             \"sawamox pm\"          \"tolodina\"            #> [52] \"topramoxin\"          \"unicillin\"           \"utimox\"              #> [55] \"vetramox\"            ab_tradenames(\"AMX\") #>  [1] \"actimoxi\"            \"amoclen\"             \"amolin\"              #>  [4] \"amopen\"              \"amopenixin\"          \"amoxibiotic\"         #>  [7] \"amoxicaps\"           \"amoxicilina\"         \"amoxicillin\"         #> [10] \"amoxicillin hydrate\" \"amoxicilline\"        \"amoxicillinum\"       #> [13] \"amoxiden\"            \"amoxil\"              \"amoxivet\"            #> [16] \"amoxy\"               \"amoxycillin\"         \"amoxyke\"             #> [19] \"anemolin\"            \"aspenil\"             \"atoksilin\"           #> [22] \"biomox\"              \"bristamox\"           \"cemoxin\"             #> [25] \"clamoxyl\"            \"damoxy\"              \"delacillin\"          #> [28] \"demoksil\"            \"dispermox\"           \"efpenix\"             #> [31] \"flemoxin\"            \"hiconcil\"            \"histocillin\"         #> [34] \"hydroxyampicillin\"   \"ibiamox\"             \"imacillin\"           #> [37] \"lamoxy\"              \"largopen\"            \"metafarma capsules\"  #> [40] \"metifarma capsules\"  \"moksilin\"            \"moxacin\"             #> [43] \"moxatag\"             \"ospamox\"             \"pamoxicillin\"        #> [46] \"piramox\"             \"promoxil\"            \"remoxil\"             #> [49] \"robamox\"             \"sawamox pm\"          \"tolodina\"            #> [52] \"topramoxin\"          \"unicillin\"           \"utimox\"              #> [55] \"vetramox\"            ab_group(\"AMX\") #> [1] \"Beta-lactams/penicillins\" ab_atc_group1(\"AMX\") #> [1] \"Beta-lactam antibacterials, penicillins\" ab_atc_group2(\"AMX\") #> [1] \"Penicillins with extended spectrum\" ab_url(\"AMX\") #>                                                           Amoxicillin  #> \"https://www.whocc.no/atc_ddd_index/?code=J01CA04&showdescription=no\"   # smart lowercase transformation ab_name(x = c(\"AMC\", \"PLB\")) #> [1] \"Amoxicillin/clavulanic acid\" \"Polymyxin B\"                 ab_name(x = c(\"AMC\", \"PLB\"), tolower = TRUE) #> [1] \"amoxicillin/clavulanic acid\" \"polymyxin B\"                  # defined daily doses (DDD) ab_ddd(\"AMX\", \"oral\") #> [1] 1.5 ab_ddd_units(\"AMX\", \"oral\") #> [1] \"g\" ab_ddd(\"AMX\", \"iv\") #> [1] 3 ab_ddd_units(\"AMX\", \"iv\") #> [1] \"g\"  ab_info(\"AMX\") # all properties as a list #> $ab #> [1] \"AMX\" #>  #> $cid #> [1] 33613 #>  #> $name #> [1] \"Amoxicillin\" #>  #> $group #> [1] \"Beta-lactams/penicillins\" #>  #> $atc #> [1] \"J01CA04\" #>  #> $atc_group1 #> [1] \"Beta-lactam antibacterials, penicillins\" #>  #> $atc_group2 #> [1] \"Penicillins with extended spectrum\" #>  #> $tradenames #>  [1] \"actimoxi\"            \"amoclen\"             \"amolin\"              #>  [4] \"amopen\"              \"amopenixin\"          \"amoxibiotic\"         #>  [7] \"amoxicaps\"           \"amoxicilina\"         \"amoxicillin\"         #> [10] \"amoxicillin hydrate\" \"amoxicilline\"        \"amoxicillinum\"       #> [13] \"amoxiden\"            \"amoxil\"              \"amoxivet\"            #> [16] \"amoxy\"               \"amoxycillin\"         \"amoxyke\"             #> [19] \"anemolin\"            \"aspenil\"             \"atoksilin\"           #> [22] \"biomox\"              \"bristamox\"           \"cemoxin\"             #> [25] \"clamoxyl\"            \"damoxy\"              \"delacillin\"          #> [28] \"demoksil\"            \"dispermox\"           \"efpenix\"             #> [31] \"flemoxin\"            \"hiconcil\"            \"histocillin\"         #> [34] \"hydroxyampicillin\"   \"ibiamox\"             \"imacillin\"           #> [37] \"lamoxy\"              \"largopen\"            \"metafarma capsules\"  #> [40] \"metifarma capsules\"  \"moksilin\"            \"moxacin\"             #> [43] \"moxatag\"             \"ospamox\"             \"pamoxicillin\"        #> [46] \"piramox\"             \"promoxil\"            \"remoxil\"             #> [49] \"robamox\"             \"sawamox pm\"          \"tolodina\"            #> [52] \"topramoxin\"          \"unicillin\"           \"utimox\"              #> [55] \"vetramox\"            #>  #> $loinc #>  [1] \"101498-4\" \"15-8\"     \"16-6\"     \"16365-9\"  \"17-4\"     \"18-2\"     #>  [7] \"18861-5\"  \"18862-3\"  \"19-0\"     \"20-8\"     \"21-6\"     \"22-4\"     #> [13] \"25274-2\"  \"25310-4\"  \"3344-9\"   \"55614-2\"  \"55615-9\"  \"55616-7\"  #> [19] \"6976-5\"   \"6977-3\"   \"80133-2\"  #>  #> $ddd #> $ddd$oral #> $ddd$oral$amount #> [1] 1.5 #>  #> $ddd$oral$units #> [1] \"g\" #>  #>  #> $ddd$iv #> $ddd$iv$amount #> [1] 3 #>  #> $ddd$iv$units #> [1] \"g\" #>  #>  #>   # all ab_* functions use as.ab() internally, so you can go from 'any' to 'any': ab_atc(\"AMP\") #> [1] \"J01CA01\" \"S01AA19\" ab_group(\"J01CA01\") #> [1] \"Beta-lactams/penicillins\" ab_loinc(\"ampicillin\") #>  [1] \"101477-8\" \"101478-6\" \"18864-9\"  \"18865-6\"  \"20374-5\"  \"21066-6\"  #>  [7] \"23618-2\"  \"27-3\"     \"28-1\"     \"29-9\"     \"30-7\"     \"31-5\"     #> [13] \"32-3\"     \"33-1\"     \"3355-5\"   \"33562-0\"  \"33919-2\"  \"34-9\"     #> [19] \"43883-8\"  \"43884-6\"  \"6979-9\"   \"6980-7\"   \"87604-5\"  ab_name(\"21066-6\") #> [1] \"Ampicillin\" ab_name(6249) #> [1] \"Ampicillin\" ab_name(\"J01CA01\") #> [1] \"Ampicillin\"  # spelling from different languages and dyslexia are no problem ab_atc(\"ceftriaxon\") #> [1] \"J01DD04\" ab_atc(\"cephtriaxone\") #> [1] \"J01DD04\" ab_atc(\"cephthriaxone\") #> [1] \"J01DD04\" ab_atc(\"seephthriaaksone\") #> [1] \"J01DD04\"  # use set_ab_names() for renaming columns colnames(example_isolates) #>  [1] \"date\"    \"patient\" \"age\"     \"gender\"  \"ward\"    \"mo\"      \"PEN\"     #>  [8] \"OXA\"     \"FLC\"     \"AMX\"     \"AMC\"     \"AMP\"     \"TZP\"     \"CZO\"     #> [15] \"FEP\"     \"CXM\"     \"FOX\"     \"CTX\"     \"CAZ\"     \"CRO\"     \"GEN\"     #> [22] \"TOB\"     \"AMK\"     \"KAN\"     \"TMP\"     \"SXT\"     \"NIT\"     \"FOS\"     #> [29] \"LNZ\"     \"CIP\"     \"MFX\"     \"VAN\"     \"TEC\"     \"TCY\"     \"TGC\"     #> [36] \"DOX\"     \"ERY\"     \"CLI\"     \"AZM\"     \"IPM\"     \"MEM\"     \"MTR\"     #> [43] \"CHL\"     \"COL\"     \"MUP\"     \"RIF\"     colnames(set_ab_names(example_isolates)) #>  [1] \"date\"                          \"patient\"                       #>  [3] \"age\"                           \"gender\"                        #>  [5] \"ward\"                          \"mo\"                            #>  [7] \"benzylpenicillin\"              \"oxacillin\"                     #>  [9] \"flucloxacillin\"                \"amoxicillin\"                   #> [11] \"amoxicillin_clavulanic_acid\"   \"ampicillin\"                    #> [13] \"piperacillin_tazobactam\"       \"cefazolin\"                     #> [15] \"cefepime\"                      \"cefuroxime\"                    #> [17] \"cefoxitin\"                     \"cefotaxime\"                    #> [19] \"ceftazidime\"                   \"ceftriaxone\"                   #> [21] \"gentamicin\"                    \"tobramycin\"                    #> [23] \"amikacin\"                      \"kanamycin\"                     #> [25] \"trimethoprim\"                  \"trimethoprim_sulfamethoxazole\" #> [27] \"nitrofurantoin\"                \"fosfomycin\"                    #> [29] \"linezolid\"                     \"ciprofloxacin\"                 #> [31] \"moxifloxacin\"                  \"vancomycin\"                    #> [33] \"teicoplanin\"                   \"tetracycline\"                  #> [35] \"tigecycline\"                   \"doxycycline\"                   #> [37] \"erythromycin\"                  \"clindamycin\"                   #> [39] \"azithromycin\"                  \"imipenem\"                      #> [41] \"meropenem\"                     \"metronidazole\"                 #> [43] \"chloramphenicol\"               \"colistin\"                      #> [45] \"mupirocin\"                     \"rifampicin\"                    colnames(set_ab_names(example_isolates, NIT:VAN)) #>  [1] \"date\"           \"patient\"        \"age\"            \"gender\"         #>  [5] \"ward\"           \"mo\"             \"PEN\"            \"OXA\"            #>  [9] \"FLC\"            \"AMX\"            \"AMC\"            \"AMP\"            #> [13] \"TZP\"            \"CZO\"            \"FEP\"            \"CXM\"            #> [17] \"FOX\"            \"CTX\"            \"CAZ\"            \"CRO\"            #> [21] \"GEN\"            \"TOB\"            \"AMK\"            \"KAN\"            #> [25] \"TMP\"            \"SXT\"            \"nitrofurantoin\" \"fosfomycin\"     #> [29] \"linezolid\"      \"ciprofloxacin\"  \"moxifloxacin\"   \"vancomycin\"     #> [33] \"TEC\"            \"TCY\"            \"TGC\"            \"DOX\"            #> [37] \"ERY\"            \"CLI\"            \"AZM\"            \"IPM\"            #> [41] \"MEM\"            \"MTR\"            \"CHL\"            \"COL\"            #> [45] \"MUP\"            \"RIF\"            # \\donttest{ if (require(\"dplyr\")) {   example_isolates %>%     set_ab_names()    # this does the same:   example_isolates %>%     rename_with(set_ab_names)    # set_ab_names() works with any AB property:   example_isolates %>%     set_ab_names(property = \"atc\")    example_isolates %>%     set_ab_names(where(is.sir)) %>%     colnames()    example_isolates %>%     set_ab_names(NIT:VAN) %>%     colnames() } #>  [1] \"date\"           \"patient\"        \"age\"            \"gender\"         #>  [5] \"ward\"           \"mo\"             \"PEN\"            \"OXA\"            #>  [9] \"FLC\"            \"AMX\"            \"AMC\"            \"AMP\"            #> [13] \"TZP\"            \"CZO\"            \"FEP\"            \"CXM\"            #> [17] \"FOX\"            \"CTX\"            \"CAZ\"            \"CRO\"            #> [21] \"GEN\"            \"TOB\"            \"AMK\"            \"KAN\"            #> [25] \"TMP\"            \"SXT\"            \"nitrofurantoin\" \"fosfomycin\"     #> [29] \"linezolid\"      \"ciprofloxacin\"  \"moxifloxacin\"   \"vancomycin\"     #> [33] \"TEC\"            \"TCY\"            \"TGC\"            \"DOX\"            #> [37] \"ERY\"            \"CLI\"            \"AZM\"            \"IPM\"            #> [41] \"MEM\"            \"MTR\"            \"CHL\"            \"COL\"            #> [45] \"MUP\"            \"RIF\"            # }"},{"path":"https://msberends.github.io/AMR/reference/add_custom_antimicrobials.html","id":null,"dir":"Reference","previous_headings":"","what":"Add Custom Antimicrobials — add_custom_antimicrobials","title":"Add Custom Antimicrobials — add_custom_antimicrobials","text":"add_custom_antimicrobials() can add custom antimicrobial drug names codes.","code":""},{"path":"https://msberends.github.io/AMR/reference/add_custom_antimicrobials.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Add Custom Antimicrobials — add_custom_antimicrobials","text":"","code":"add_custom_antimicrobials(x)  clear_custom_antimicrobials()"},{"path":"https://msberends.github.io/AMR/reference/add_custom_antimicrobials.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Add Custom Antimicrobials — add_custom_antimicrobials","text":"x data.frame resembling antibiotics data set, least containing columns \"ab\" \"name\"","code":""},{"path":"https://msberends.github.io/AMR/reference/add_custom_antimicrobials.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Add Custom Antimicrobials — add_custom_antimicrobials","text":"Important: Due R works, add_custom_antimicrobials() function run every R session - added antimicrobials stored sessions thus lost R exited. two ways circumvent automate process adding antimicrobials: Method 1: Using package option AMR_custom_ab, preferred method. use method: Create data set structure antibiotics data set (containing least columns \"ab\" \"name\") save saveRDS() location choice, e.g. \"~/my_custom_ab.rds\", remote location. Set file location package option AMR_custom_ab: options(AMR_custom_ab = \"~/my_custom_ab.rds\"). can even remote file location, https URL. Since options saved R sessions, best save option .Rprofile file loaded start-R. , open .Rprofile file using e.g. utils::file.edit(\"~/.Rprofile\"), add text save file:   Upon package load, file loaded run add_custom_antimicrobials() function. Method 2: Loading antimicrobial additions directly .Rprofile file. Note definitions stored user-specific R file, suboptimal workflow. use method: Edit .Rprofile file using e.g. utils::file.edit(\"~/.Rprofile\"). Add text like save file:   Use clear_custom_antimicrobials() clear previously added antimicrobials.","code":"# Add custom antimicrobial codes: options(AMR_custom_ab = \"~/my_custom_ab.rds\") # Add custom antibiotic drug codes:  AMR::add_custom_antimicrobials(    data.frame(ab = \"TESTAB\",               name = \"Test Antibiotic\",               group = \"Test Group\")  )"},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/add_custom_antimicrobials.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Add Custom Antimicrobials — add_custom_antimicrobials","text":"","code":"# \\donttest{  # returns NA and throws a warning (which is suppressed here): suppressWarnings(   as.ab(\"testab\") ) #> Class 'ab' #> [1] <NA>  # now add a custom entry - it will be considered by as.ab() and # all ab_*() functions add_custom_antimicrobials(   data.frame(     ab = \"TESTAB\",     name = \"Test Antibiotic\",     # you can add any property present in the     # 'antibiotics' data set, such as 'group':     group = \"Test Group\"   ) ) #> ℹ Added one record to the internal antibiotics data set.  # \"testab\" is now a new antibiotic: as.ab(\"testab\") #> Class 'ab' #> [1] TESTAB ab_name(\"testab\") #> [1] \"Test Antibiotic\" ab_group(\"testab\") #> [1] \"Test Group\"  ab_info(\"testab\") #> $ab #> [1] \"TESTAB\" #>  #> $cid #> [1] NA #>  #> $name #> [1] \"Test Antibiotic\" #>  #> $group #> [1] \"Test Group\" #>  #> $atc #> [1] NA #>  #> $atc_group1 #> [1] NA #>  #> $atc_group2 #> [1] NA #>  #> $tradenames #> [1] NA #>  #> $loinc #> [1] NA #>  #> $ddd #> $ddd$oral #> $ddd$oral$amount #> [1] NA #>  #> $ddd$oral$units #> [1] NA #>  #>  #> $ddd$iv #> $ddd$iv$amount #> [1] NA #>  #> $ddd$iv$units #> [1] NA #>  #>  #>    # Add Co-fluampicil, which is one of the many J01CR50 codes, see # https://www.whocc.no/ddd/list_of_ddds_combined_products/ add_custom_antimicrobials(   data.frame(     ab = \"COFLU\",     name = \"Co-fluampicil\",     atc = \"J01CR50\",     group = \"Beta-lactams/penicillins\"   ) ) #> ℹ Added one record to the internal antibiotics data set. ab_atc(\"Co-fluampicil\") #> [1] \"J01CR50\" ab_name(\"J01CR50\") #> [1] \"Co-fluampicil\"  # even antibiotic selectors work x <- data.frame(   random_column = \"some value\",   coflu = as.sir(\"S\"),   ampicillin = as.sir(\"R\") ) x #>   random_column coflu ampicillin #> 1    some value     S          R x[, betalactams()] #> ℹ For betalactams() using columns 'coflu' (co-fluampicil) and #>   'ampicillin' #>   coflu ampicillin #> 1     S          R # }"},{"path":"https://msberends.github.io/AMR/reference/add_custom_microorganisms.html","id":null,"dir":"Reference","previous_headings":"","what":"Add Custom Microorganisms — add_custom_microorganisms","title":"Add Custom Microorganisms — add_custom_microorganisms","text":"add_custom_microorganisms() can add custom microorganisms, non-taxonomic outcome laboratory analysis.","code":""},{"path":"https://msberends.github.io/AMR/reference/add_custom_microorganisms.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Add Custom Microorganisms — add_custom_microorganisms","text":"","code":"add_custom_microorganisms(x)  clear_custom_microorganisms()"},{"path":"https://msberends.github.io/AMR/reference/add_custom_microorganisms.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Add Custom Microorganisms — add_custom_microorganisms","text":"x data.frame resembling microorganisms data set, least containing column \"genus\" (case-insensitive)","code":""},{"path":"https://msberends.github.io/AMR/reference/add_custom_microorganisms.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Add Custom Microorganisms — add_custom_microorganisms","text":"function fill missing taxonomy , specific taxonomic columns missing, see Examples. Important: Due R works, add_custom_microorganisms() function run every R session - added microorganisms stored sessions thus lost R exited. two ways circumvent automate process adding microorganisms: Method 1: Using package option AMR_custom_mo, preferred method. use method: Create data set structure microorganisms data set (containing least column \"genus\") save saveRDS() location choice, e.g. \"~/my_custom_mo.rds\", remote location. Set file location package option AMR_custom_mo: options(AMR_custom_mo = \"~/my_custom_mo.rds\"). can even remote file location, https URL. Since options saved R sessions, best save option .Rprofile file loaded start-R. , open .Rprofile file using e.g. utils::file.edit(\"~/.Rprofile\"), add text save file:   Upon package load, file loaded run add_custom_microorganisms() function. Method 2: Loading microorganism directly .Rprofile file. Note definitions stored user-specific R file, suboptimal workflow. use method: Edit .Rprofile file using e.g. utils::file.edit(\"~/.Rprofile\"). Add text like save file:   Use clear_custom_microorganisms() clear previously added microorganisms.","code":"# Add custom microorganism codes: options(AMR_custom_mo = \"~/my_custom_mo.rds\") # Add custom antibiotic drug codes:  AMR::add_custom_microorganisms(    data.frame(genus = \"Enterobacter\",               species = \"asburiae/cloacae\")  )"},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/add_custom_microorganisms.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Add Custom Microorganisms — add_custom_microorganisms","text":"","code":"# \\donttest{ # a combination of species is not formal taxonomy, so # this will result in \"Enterobacter cloacae cloacae\", # since it resembles the input best: mo_name(\"Enterobacter asburiae/cloacae\") #> [1] \"Enterobacter cloacae cloacae\"  # 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/\" #>  #> $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, 2023\" #>  #> $snomed #> [1] NA #>  #> $lpsn #> [1] NA #>  #> $gbif #> [1] NA #>    # the function tries to be forgiving: add_custom_microorganisms(   data.frame(     GENUS = \"BACTEROIDES / PARABACTEROIDES SLASHLINE\",     SPECIES = \"SPECIES\"   ) ) #> ℹ Added Bacteroides/Parabacteroides to the internal microorganisms data #>   set. mo_name(\"BACTEROIDES / PARABACTEROIDES\") #> [1] \"Bacteroides/Parabacteroides\" mo_rank(\"BACTEROIDES / PARABACTEROIDES\") #> [1] \"genus\"  # taxonomy still works, even though a slashline genus was given as input: mo_family(\"Bacteroides/Parabacteroides\") #> [1] \"Bacteroidaceae\"   # for groups and complexes, set them as species or subspecies: add_custom_microorganisms(   data.frame(     genus = \"Citrobacter\",     species = c(\"freundii\", \"braakii complex\"),     subspecies = c(\"complex\", \"\")   ) ) #> ℹ Added Citrobacter braakii complex and Citrobacter freundii complex to the #>   internal microorganisms data set. mo_name(c(\"C. freundii complex\", \"C. braakii complex\")) #> [1] \"Citrobacter freundii complex\" \"Citrobacter braakii complex\"  mo_species(c(\"C. freundii complex\", \"C. braakii complex\")) #> [1] \"freundii complex\" \"braakii complex\"  mo_gramstain(c(\"C. freundii complex\", \"C. braakii complex\")) #> [1] \"Gram-negative\" \"Gram-negative\" # }"},{"path":"https://msberends.github.io/AMR/reference/age.html","id":null,"dir":"Reference","previous_headings":"","what":"Age in Years of Individuals — age","title":"Age in Years of Individuals — age","text":"Calculates age years based reference date, system date default.","code":""},{"path":"https://msberends.github.io/AMR/reference/age.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Age in Years of Individuals — age","text":"","code":"age(x, reference = Sys.Date(), exact = FALSE, na.rm = FALSE, ...)"},{"path":"https://msberends.github.io/AMR/reference/age.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Age in Years of Individuals — age","text":"x date(s), character (vectors) coerced .POSIXlt() reference reference date(s) (default today), character (vectors) coerced .POSIXlt() exact logical indicate whether age calculation exact, .e. decimals. divides number days year--date (YTD) x number days year reference (either 365 366). na.rm logical indicate whether missing values removed ... arguments passed .POSIXlt(), origin","code":""},{"path":"https://msberends.github.io/AMR/reference/age.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Age in Years of Individuals — age","text":"integer (decimals) exact = FALSE, double (decimals) otherwise","code":""},{"path":"https://msberends.github.io/AMR/reference/age.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Age in Years of Individuals — age","text":"Ages 0 returned NA warning. Ages 120 give warning. function vectorises x reference, meaning either can length 1 argument larger length.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/age.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Age in Years of Individuals — age","text":"","code":"# 10 random pre-Y2K birth dates df <- data.frame(birth_date = as.Date(\"2000-01-01\") - runif(10) * 25000)  # add ages df$age <- age(df$birth_date)  # add exact ages df$age_exact <- age(df$birth_date, exact = TRUE)  # add age at millenium switch df$age_at_y2k <- age(df$birth_date, \"2000-01-01\")  df #>    birth_date age age_exact age_at_y2k #> 1  1996-05-18  27  27.54521          3 #> 2  1993-07-19  30  30.37534          6 #> 3  1988-03-07  35  35.74247         11 #> 4  1967-08-23  56  56.27945         32 #> 5  1997-05-21  26  26.53699          2 #> 6  1991-09-02  32  32.25205          8 #> 7  1994-03-18  29  29.71233          5 #> 8  1985-08-18  38  38.29315         14 #> 9  1952-01-29  71  71.84384         47 #> 10 1988-05-05  35  35.58082         11"},{"path":"https://msberends.github.io/AMR/reference/age_groups.html","id":null,"dir":"Reference","previous_headings":"","what":"Split Ages into Age Groups — age_groups","title":"Split Ages into Age Groups — age_groups","text":"Split ages age groups defined split argument. allows easier demographic (antimicrobial resistance) analysis.","code":""},{"path":"https://msberends.github.io/AMR/reference/age_groups.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Split Ages into Age Groups — age_groups","text":"","code":"age_groups(x, split_at = c(12, 25, 55, 75), na.rm = FALSE)"},{"path":"https://msberends.github.io/AMR/reference/age_groups.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Split Ages into Age Groups — age_groups","text":"x age, e.g. calculated age() split_at values split x - default age groups 0-11, 12-24, 25-54, 55-74 75+. See Details. na.rm logical indicate whether missing values removed","code":""},{"path":"https://msberends.github.io/AMR/reference/age_groups.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Split Ages into Age Groups — age_groups","text":"Ordered factor","code":""},{"path":"https://msberends.github.io/AMR/reference/age_groups.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Split Ages into Age Groups — age_groups","text":"split ages, input split_at argument can : numeric vector. value e.g. c(10, 20) split x 0-9, 10-19 20+. value 50 split x 0-49 50+. default split young children (0-11), youth (12-24), young adults (25-54), middle-aged adults (55-74) elderly (75+). character: \"children\" \"kids\", equivalent : c(0, 1, 2, 4, 6, 13, 18). split 0, 1, 2-3, 4-5, 6-12, 13-17 18+. \"elderly\" \"seniors\", equivalent : c(65, 75, 85). split 0-64, 65-74, 75-84, 85+. \"fives\", equivalent : 1:20 * 5. split 0-4, 5-9, ..., 95-99, 100+. \"tens\", equivalent : 1:10 * 10. split 0-9, 10-19, ..., 90-99, 100+.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/age_groups.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Split Ages into Age Groups — age_groups","text":"","code":"ages <- c(3, 8, 16, 54, 31, 76, 101, 43, 21)  # split into 0-49 and 50+ age_groups(ages, 50) #> [1] 0-49 0-49 0-49 50+  0-49 50+  50+  0-49 0-49 #> Levels: 0-49 < 50+  # split into 0-19, 20-49 and 50+ age_groups(ages, c(20, 50)) #> [1] 0-19  0-19  0-19  50+   20-49 50+   50+   20-49 20-49 #> Levels: 0-19 < 20-49 < 50+  # split into groups of ten years age_groups(ages, 1:10 * 10) #> [1] 0-9   0-9   10-19 50-59 30-39 70-79 100+  40-49 20-29 #> 11 Levels: 0-9 < 10-19 < 20-29 < 30-39 < 40-49 < 50-59 < 60-69 < ... < 100+ age_groups(ages, split_at = \"tens\") #> [1] 0-9   0-9   10-19 50-59 30-39 70-79 100+  40-49 20-29 #> 11 Levels: 0-9 < 10-19 < 20-29 < 30-39 < 40-49 < 50-59 < 60-69 < ... < 100+  # split into groups of five years age_groups(ages, 1:20 * 5) #> [1] 0-4   5-9   15-19 50-54 30-34 75-79 100+  40-44 20-24 #> 21 Levels: 0-4 < 5-9 < 10-14 < 15-19 < 20-24 < 25-29 < 30-34 < ... < 100+ age_groups(ages, split_at = \"fives\") #> [1] 0-4   5-9   15-19 50-54 30-34 75-79 100+  40-44 20-24 #> 21 Levels: 0-4 < 5-9 < 10-14 < 15-19 < 20-24 < 25-29 < 30-34 < ... < 100+  # split specifically for children age_groups(ages, c(1, 2, 4, 6, 13, 18)) #> [1] 2-3   6-12  13-17 18+   18+   18+   18+   18+   18+   #> Levels: 0 < 1 < 2-3 < 4-5 < 6-12 < 13-17 < 18+ age_groups(ages, \"children\") #> [1] 2-3   6-12  13-17 18+   18+   18+   18+   18+   18+   #> Levels: 0 < 1 < 2-3 < 4-5 < 6-12 < 13-17 < 18+  # \\donttest{ # resistance of ciprofloxacin per age group if (require(\"dplyr\") && require(\"ggplot2\")) {   example_isolates %>%     filter_first_isolate() %>%     filter(mo == as.mo(\"Escherichia coli\")) %>%     group_by(age_group = age_groups(age)) %>%     select(age_group, CIP) %>%     ggplot_sir(       x = \"age_group\",       minimum = 0,       x.title = \"Age Group\",       title = \"Ciprofloxacin resistance per age group\"     ) } #> Loading required package: ggplot2  # }"},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":null,"dir":"Reference","previous_headings":"","what":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","title":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","text":"Generate antibiogram, communicate results plots tables. functions follow logic Klinker et al. Barbieri et al. (see Source), allow reporting e.g. R Markdown Quarto well.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","text":"","code":"antibiogram(   x,   antibiotics = where(is.sir),   mo_transform = \"shortname\",   ab_transform = NULL,   syndromic_group = NULL,   add_total_n = TRUE,   only_all_tested = FALSE,   digits = 0,   col_mo = NULL,   language = get_AMR_locale(),   minimum = 30,   combine_SI = TRUE,   sep = \" + \",   info = interactive() )  # S3 method for antibiogram plot(x, ...)  # S3 method for antibiogram autoplot(object, ...)  # S3 method for antibiogram knit_print(   x,   italicise = TRUE,   na = getOption(\"knitr.kable.NA\", default = \"\"),   ... )"},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","text":"Klinker KP et al. (2021). Antimicrobial stewardship antibiograms: importance moving beyond traditional antibiograms. Therapeutic Advances Infectious Disease, May 5;8:20499361211011373; doi:10.1177/20499361211011373 Barbieri E et al. (2021). Development Weighted-Incidence Syndromic Combination Antibiogram (WISCA) guide choice empiric antibiotic treatment urinary tract infection paediatric patients: Bayesian approach Antimicrobial Resistance & Infection Control May 1;10(1):74; doi:10.1186/s13756-021-00939-2 M39 Analysis Presentation Cumulative Antimicrobial Susceptibility Test Data, 5th Edition, 2022, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/microbiology/documents/m39/.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","text":"x data.frame containing least column microorganisms columns antibiotic results (class 'sir', see .sir()) antibiotics vector antibiotic name code (evaluated .ab(), column name x, (combinations ) antibiotic selectors aminoglycosides() carbapenems(). combination antibiograms, can also set values separated \"+\", \"TZP+TOB\" \"cipro + genta\", given columns resembling antibiotics exist x. See Examples. mo_transform character transform microorganism input - must \"name\", \"shortname\", \"gramstain\", one column names microorganisms data set: \"mo\", \"fullname\", \"status\", \"kingdom\", \"phylum\", \"class\", \"order\", \"family\", \"genus\", \"species\", \"subspecies\", \"rank\", \"ref\", \"oxygen_tolerance\", \"source\", \"lpsn\", \"lpsn_parent\", \"lpsn_renamed_to\", \"gbif\", \"gbif_parent\", \"gbif_renamed_to\", \"prevalence\", \"snomed\". Can also NULL transform input. ab_transform character transform antibiotic input - must one column names antibiotics data set: \"ab\", \"cid\", \"name\", \"group\", \"atc\", \"atc_group1\", \"atc_group2\", \"abbreviations\", \"synonyms\", \"oral_ddd\", \"oral_units\", \"iv_ddd\", \"iv_units\", \"loinc\". Can also NULL transform input. syndromic_group column name x, values calculated split rows x, e.g. using ifelse() case_when(). See Examples. add_total_n logical indicate whether total available numbers per pathogen added table (default TRUE). add lowest highest number available isolate per antibiotic (e.g, E. coli 200 isolates available ciprofloxacin 150 amoxicillin, returned number \"150-200\"). only_all_tested (combination antibiograms): logical indicate isolates must tested antibiotics, see Details digits number digits use rounding col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). language language translate text, defaults system language (see get_AMR_locale()) minimum minimum allowed number available (tested) isolates. isolate count lower minimum return NA warning. default number 30 isolates advised Clinical Laboratory Standards Institute (CLSI) best practice, see Source. combine_SI logical indicate whether susceptibility determined results either S , instead S (default TRUE) sep separating character antibiotic columns combination antibiograms info logical indicate info printed - default TRUE interactive mode ... used R Markdown Quarto: arguments passed knitr::kable() (otherwise, use) object antibiogram() object italicise logical indicate whether microorganism names knitr table made italic, using italicise_taxonomy(). na character use showing NA values","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","text":"function returns table values 0 100 susceptibility, resistance. Remember filter data let contain first isolates! needed exclude duplicates reduce selection bias. Use first_isolate() determine data set one four available algorithms. types antibiograms listed can plotted (using ggplot2::autoplot() base R plot()/barplot()). antibiogram object can also used directly R Markdown / Quarto (.e., knitr) reports. case, knitr::kable() applied automatically microorganism names even printed italics default (see argument italicise). can also use functions specific 'table reporting' packages transform output antibiogram() needs, e.g. flextable::as_flextable() gt::gt().","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"antibiogram-types","dir":"Reference","previous_headings":"","what":"Antibiogram Types","title":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","text":"four antibiogram types, proposed Klinker et al. (2021, doi:10.1177/20499361211011373 ), supported antibiogram(): Traditional Antibiogram Case example: Susceptibility Pseudomonas aeruginosa piperacillin/tazobactam (TZP) Code example:   Combination Antibiogram Case example: Additional susceptibility Pseudomonas aeruginosa TZP + tobramycin versus TZP alone Code example:   Syndromic Antibiogram Case example: Susceptibility Pseudomonas aeruginosa TZP among respiratory specimens (obtained among ICU patients ) Code example:   Weighted-Incidence Syndromic Combination Antibiogram (WISCA) Case example: Susceptibility Pseudomonas aeruginosa TZP among respiratory specimens (obtained among ICU patients ) male patients age >=65 years heart failure Code example:   Note combination antibiograms, important realise susceptibility can calculated two ways, can set only_all_tested argument (default FALSE). See example two antibiotics, Drug Drug B, antibiogram() works calculate %SI:","code":"antibiogram(your_data,             antibiotics = \"TZP\") antibiogram(your_data,             antibiotics = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\")) antibiogram(your_data,             antibiotics = penicillins(),             syndromic_group = \"ward\") library(dplyr) your_data %>%   filter(ward == \"ICU\" & specimen_type == \"Respiratory\") %>%   antibiogram(antibiotics = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\"),               syndromic_group = ifelse(.$age >= 65 &                                          .$gender == \"Male\" &                                          .$condition == \"Heart Disease\",                                        \"Study Group\", \"Control Group\")) --------------------------------------------------------------------                     only_all_tested = FALSE  only_all_tested = TRUE                     -----------------------  -----------------------  Drug A    Drug B   include as  include as   include as  include as                     numerator   denominator  numerator   denominator --------  --------  ----------  -----------  ----------  -----------  S or I    S or I       X            X            X            X    R       S or I       X            X            X            X   <NA>     S or I       X            X            -            -  S or I      R          X            X            X            X    R         R          -            X            -            X   <NA>       R          -            -            -            -  S or I     <NA>        X            X            -            -    R        <NA>        -            -            -            -   <NA>      <NA>        -            -            -            - --------------------------------------------------------------------"},{"path":"https://msberends.github.io/AMR/reference/antibiogram.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Generate Antibiogram: Traditional, Combined, Syndromic, or Weighted-Incidence Syndromic Combination (WISCA) — antibiogram","text":"","code":"# example_isolates is a data set available in the AMR package. # run ?example_isolates for more info. example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  # \\donttest{ # Traditional antibiogram ----------------------------------------------  antibiogram(example_isolates,   antibiotics = c(aminoglycosides(), carbapenems()) ) #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> # A tibble: 10 × 7 #>    `Pathogen (N min-max)`   AMK   GEN   IPM   KAN   MEM   TOB #>  * <chr>                  <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> #>  1 CoNS (43-309)              0    86    52     0    52    22 #>  2 E. coli (0-462)          100    98   100    NA   100    97 #>  3 E. faecalis (0-39)         0     0   100     0    NA     0 #>  4 K. pneumoniae (0-58)      NA    90   100    NA   100    90 #>  5 P. aeruginosa (17-30)     NA   100    NA     0    NA   100 #>  6 P. mirabilis (0-34)       NA    94    94    NA    NA    94 #>  7 S. aureus (2-233)         NA    99    NA    NA    NA    98 #>  8 S. epidermidis (8-163)     0    79    NA     0    NA    51 #>  9 S. hominis (3-80)         NA    92    NA    NA    NA    85 #> 10 S. pneumoniae (11-117)     0     0    NA     0    NA     0  antibiogram(example_isolates,   antibiotics = aminoglycosides(),   ab_transform = \"atc\",   mo_transform = \"gramstain\" ) #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> # A tibble: 2 × 5 #>   `Pathogen (N min-max)`   J01GB01 J01GB03 J01GB04 J01GB06 #> * <chr>                      <dbl>   <dbl>   <dbl>   <dbl> #> 1 Gram-negative (35-686)        96      96       0      98 #> 2 Gram-positive (436-1170)      34      63       0       0  antibiogram(example_isolates,   antibiotics = carbapenems(),   ab_transform = \"name\",   mo_transform = \"name\" ) #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> # A tibble: 5 × 3 #>   `Pathogen (N min-max)`                           Imipenem Meropenem #> * <chr>                                               <dbl>     <dbl> #> 1 Coagulase-negative Staphylococcus (CoNS) (48-48)       52        52 #> 2 Enterococcus faecalis (0-38)                          100        NA #> 3 Escherichia coli (418-422)                            100       100 #> 4 Klebsiella pneumoniae (51-53)                         100       100 #> 5 Proteus mirabilis (27-32)                              94        NA   # Combined antibiogram -------------------------------------------------  # combined antibiotics yield higher empiric coverage antibiogram(example_isolates,   antibiotics = c(\"TZP\", \"TZP+TOB\", \"TZP+GEN\"),   mo_transform = \"gramstain\" ) #> # A tibble: 2 × 4 #>   `Pathogen (N min-max)`     TZP `TZP + GEN` `TZP + TOB` #> * <chr>                    <dbl>       <dbl>       <dbl> #> 1 Gram-negative (641-693)     88          99          98 #> 2 Gram-positive (345-1044)    86          98          95  # names of antibiotics do not need to resemble columns exactly: antibiogram(example_isolates,   antibiotics = c(\"Cipro\", \"cipro + genta\"),   mo_transform = \"gramstain\",   ab_transform = \"name\",   sep = \" & \" ) #> # A tibble: 2 × 3 #>   `Pathogen (N min-max)`  Ciprofloxacin `Ciprofloxacin & Gentamicin` #> * <chr>                           <dbl>                        <dbl> #> 1 Gram-negative (684-694)            91                           99 #> 2 Gram-positive (724-847)            77                           93   # Syndromic antibiogram ------------------------------------------------  # the data set could contain a filter for e.g. respiratory specimens antibiogram(example_isolates,   antibiotics = c(aminoglycosides(), carbapenems()),   syndromic_group = \"ward\" ) #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> # A tibble: 14 × 8 #>    `Syndromic Group` `Pathogen (N min-max)`   AMK   GEN   IPM   KAN   MEM   TOB #>  * <chr>             <chr>                  <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> #>  1 Clinical          CoNS (23-205)             NA    89    57    NA    57    26 #>  2 ICU               CoNS (10-73)              NA    79    NA    NA    NA    NA #>  3 Outpatient        CoNS (3-31)               NA    84    NA    NA    NA    NA #>  4 Clinical          E. coli (0-299)          100    98   100    NA   100    98 #>  5 ICU               E. coli (0-137)          100    99   100    NA   100    96 #>  6 Clinical          K. pneumoniae (0-51)      NA    92   100    NA   100    92 #>  7 Clinical          P. mirabilis (0-30)       NA   100    NA    NA    NA   100 #>  8 Clinical          S. aureus (2-150)         NA    99    NA    NA    NA    97 #>  9 ICU               S. aureus (0-66)          NA   100    NA    NA    NA    NA #> 10 Clinical          S. epidermidis (4-79)     NA    82    NA    NA    NA    55 #> 11 ICU               S. epidermidis (4-75)     NA    72    NA    NA    NA    41 #> 12 Clinical          S. hominis (1-45)         NA    96    NA    NA    NA    94 #> 13 Clinical          S. pneumoniae (5-78)       0     0    NA     0    NA     0 #> 14 ICU               S. pneumoniae (5-30)       0     0    NA     0    NA     0  # now define a data set with only E. coli ex1 <- example_isolates[which(mo_genus() == \"Escherichia\"), ] #> ℹ Using column 'mo' as input for mo_genus()  # with a custom language, though this will be determined automatically # (i.e., this table will be in Spanish on Spanish systems) antibiogram(ex1,   antibiotics = aminoglycosides(),   ab_transform = \"name\",   syndromic_group = ifelse(ex1$ward == \"ICU\",     \"UCI\", \"No UCI\"   ),   language = \"es\" ) #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> # A tibble: 2 × 5 #>   `Grupo sindrómico` `Patógeno (N min-max)` Amikacina Gentamicina Tobramicina #> * <chr>              <chr>                      <dbl>       <dbl>       <dbl> #> 1 No UCI             E. coli (0-325)              100          98          98 #> 2 UCI                E. coli (0-137)              100          99          96   # Weighted-incidence syndromic combination antibiogram (WISCA) ---------  # the data set could contain a filter for e.g. respiratory specimens/ICU antibiogram(example_isolates,   antibiotics = c(\"AMC\", \"AMC+CIP\", \"TZP\", \"TZP+TOB\"),   mo_transform = \"gramstain\",   minimum = 10, # this should be >=30, but now just as example   syndromic_group = ifelse(example_isolates$age >= 65 &     example_isolates$gender == \"M\",   \"WISCA Group 1\", \"WISCA Group 2\"   ) ) #> # A tibble: 4 × 6 #>   `Syndromic Group` `Pathogen (N min-max)`    AMC `AMC + CIP`   TZP `TZP + TOB` #> * <chr>             <chr>                   <dbl>       <dbl> <dbl>       <dbl> #> 1 WISCA Group 1     Gram-negative (261-285)    76          95    89          99 #> 2 WISCA Group 2     Gram-negative (380-442)    76          98    88          98 #> 3 WISCA Group 1     Gram-positive (123-406)    76          89    81          95 #> 4 WISCA Group 2     Gram-positive (222-732)    76          89    88          95   # Print the output for R Markdown / Quarto -----------------------------  ureido <- antibiogram(example_isolates,   antibiotics = ureidopenicillins(),   ab_transform = \"name\" ) #> ℹ For ureidopenicillins() using column 'TZP' (piperacillin/tazobactam)  # in an Rmd file, you would just need to return `ureido` in a chunk, # but to be explicit here: if (requireNamespace(\"knitr\")) {   cat(knitr::knit_print(ureido)) } #>  #>  #> |Pathogen (N)          | Piperacillin/tazobactam| #> |:---------------------|-----------------------:| #> |CoNS (33)             |                      30| #> |*E. coli* (416)       |                      94| #> |*K. pneumoniae* (53)  |                      89| #> |*S. pneumoniae* (112) |                     100|   # Generate plots with ggplot2 or base R --------------------------------  ab1 <- antibiogram(example_isolates,   antibiotics = c(\"AMC\", \"CIP\", \"TZP\", \"TZP+TOB\"),   mo_transform = \"gramstain\" ) ab2 <- antibiogram(example_isolates,   antibiotics = c(\"AMC\", \"CIP\", \"TZP\", \"TZP+TOB\"),   mo_transform = \"gramstain\",   syndromic_group = \"ward\" )  if (requireNamespace(\"ggplot2\")) {   ggplot2::autoplot(ab1) }  if (requireNamespace(\"ggplot2\")) {   ggplot2::autoplot(ab2) }   plot(ab1)  plot(ab2)  # }"},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":null,"dir":"Reference","previous_headings":"","what":"Antibiotic Selectors — antibiotic_class_selectors","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"functions allow filtering rows selecting columns based antibiotic test results specific antibiotic class group (according antibiotics data set), without need define columns antibiotic abbreviations. short, column name resembles antimicrobial drug, picked functions matches pharmaceutical class: \"cefazolin\", \"kefzol\", \"CZO\" \"J01DB04\" picked cephalosporins().","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"","code":"ab_class(ab_class, only_sir_columns = FALSE, only_treatable = TRUE, ...)  ab_selector(filter, only_sir_columns = FALSE, only_treatable = TRUE, ...)  aminoglycosides(only_sir_columns = FALSE, only_treatable = TRUE, ...)  aminopenicillins(only_sir_columns = FALSE, ...)  antifungals(only_sir_columns = FALSE, ...)  antimycobacterials(only_sir_columns = FALSE, ...)  betalactams(only_sir_columns = FALSE, only_treatable = TRUE, ...)  carbapenems(only_sir_columns = FALSE, only_treatable = TRUE, ...)  cephalosporins(only_sir_columns = FALSE, ...)  cephalosporins_1st(only_sir_columns = FALSE, ...)  cephalosporins_2nd(only_sir_columns = FALSE, ...)  cephalosporins_3rd(only_sir_columns = FALSE, ...)  cephalosporins_4th(only_sir_columns = FALSE, ...)  cephalosporins_5th(only_sir_columns = FALSE, ...)  fluoroquinolones(only_sir_columns = FALSE, ...)  glycopeptides(only_sir_columns = FALSE, ...)  lincosamides(only_sir_columns = FALSE, ...)  lipoglycopeptides(only_sir_columns = FALSE, ...)  macrolides(only_sir_columns = FALSE, ...)  oxazolidinones(only_sir_columns = FALSE, ...)  penicillins(only_sir_columns = FALSE, ...)  polymyxins(only_sir_columns = FALSE, only_treatable = TRUE, ...)  streptogramins(only_sir_columns = FALSE, ...)  quinolones(only_sir_columns = FALSE, ...)  tetracyclines(only_sir_columns = FALSE, ...)  trimethoprims(only_sir_columns = FALSE, ...)  ureidopenicillins(only_sir_columns = FALSE, ...)  administrable_per_os(only_sir_columns = FALSE, ...)  administrable_iv(only_sir_columns = FALSE, ...)  not_intrinsic_resistant(   only_sir_columns = FALSE,   col_mo = NULL,   version_expertrules = 3.3,   ... )"},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"ab_class antimicrobial class part , \"carba\" \"carbapenems\". columns group, atc_group1 atc_group2 antibiotics data set searched (case-insensitive) value. only_sir_columns logical indicate whether columns class sir must selected (default FALSE), see .sir() only_treatable logical indicate whether antimicrobial drugs excluded laboratory tests (default TRUE), gentamicin-high (GEH) imipenem/EDTA (IPE) ... ignored, place allow future extensions filter expression evaluated antibiotics data set, name %like% \"trim\" col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). version_expertrules version number use EUCAST Expert Rules Intrinsic Resistance guideline. Can \"3.3\", \"3.2\", \"3.1\".","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"(internally) character vector column names, additional class \"ab_selector\"","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"functions can used data set calls selecting columns filtering rows. work base R, Tidyverse, data.table. heavily inspired Tidyverse selection helpers everything(), limited dplyr verbs. Nonetheless, convenient use dplyr functions select(), filter() summarise(), see Examples. columns data functions called searched known antibiotic names, abbreviations, brand names, codes (ATC, EARS-Net, , etc.) according antibiotics data set. means selector aminoglycosides() pick column names like 'gen', 'genta', 'J01GB03', 'tobra', 'Tobracin', etc. ab_class() function can used filter/select manually defined antibiotic class. searches results antibiotics data set within columns group, atc_group1 atc_group2. ab_selector() function can used internally filter antibiotics data set results, see Examples. allows filtering (part ) certain name, /group name even minimum DDDs oral treatment. function yields highest flexibility, also least user-friendly, since requires hard-coded filter set. administrable_per_os() administrable_iv() functions also rely antibiotics data set - antibiotic columns matched DDD (defined daily dose) resp. oral IV treatment available antibiotics data set. not_intrinsic_resistant() function can used select antibiotic columns pose intrinsic resistance microorganisms data set. example, data set contains microorganism codes names E. coli K. pneumoniae contains column \"vancomycin\", column removed (rather, unselected) using function. currently applies 'EUCAST Expert Rules' 'EUCAST Intrinsic Resistance Unusual Phenotypes' v3.3 (2021) determine intrinsic resistance, using eucast_rules() function internally. determination, function quite slow terms performance.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":"full-list-of-supported-antibiotic-classes","dir":"Reference","previous_headings":"","what":"Full list of supported (antibiotic) classes","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"aminoglycosides() can select:  amikacin (AMK), amikacin/fosfomycin (AKF), amphotericin B-high (AMH), apramycin (APR), arbekacin (ARB), astromicin (AST), bekanamycin (BEK), dibekacin (DKB), framycetin (FRM), gentamicin (GEN), gentamicin-high (GEH), habekacin (HAB), hygromycin (HYG), isepamicin (ISE), kanamycin (KAN), kanamycin-high (KAH), kanamycin/cephalexin (KAC), micronomicin (MCR), neomycin (NEO), netilmicin (NET), pentisomicin (PIM), plazomicin (PLZ), propikacin (PKA), ribostamycin (RST), sisomicin (SIS), streptoduocin (STR), streptomycin (STR1), streptomycin-high (STH), tobramycin (TOB), tobramycin-high (TOH) aminopenicillins() can select:  amoxicillin (AMX) ampicillin (AMP) antifungals() can select:  amphotericin B (AMB), anidulafungin (ANI), butoconazole (), caspofungin (CAS), ciclopirox (CIX), clotrimazole (CTR), econazole (ECO), fluconazole (FLU), flucytosine (FCT), fosfluconazole (FFL), griseofulvin (GRI), hachimycin (HCH), ibrexafungerp (IBX), isavuconazole (ISV), isoconazole (ISO), itraconazole (ITR), ketoconazole (KET), manogepix (MGX), micafungin (MIF), miconazole (MCZ), nystatin (NYS), oteseconazole (OTE), pimaricin (PMR), posaconazole (POS), rezafungin (RZF), ribociclib (RBC), sulconazole (SUC), terbinafine (TRB), terconazole (TRC), voriconazole (VOR) antimycobacterials() can select:  4-aminosalicylic acid (AMA), calcium aminosalicylate (CLA), capreomycin (CAP), clofazimine (CLF), delamanid (DLM), enviomycin (ENV), ethambutol (ETH), ethambutol/isoniazid (ETI), ethionamide (ETI1), isoniazid (INH), isoniazid/sulfamethoxazole/trimethoprim/pyridoxine (IST), morinamide (MRN), p-aminosalicylic acid (PAS), pretomanid (PMD), protionamide (PTH), pyrazinamide (PZA), rifabutin (RIB), rifampicin (RIF), rifampicin/ethambutol/isoniazid (REI), rifampicin/isoniazid (RFI), rifampicin/pyrazinamide/ethambutol/isoniazid (RPEI), rifampicin/pyrazinamide/isoniazid (RPI), rifamycin (RFM), rifapentine (RFP), simvastatin/fenofibrate (SMF), sodium aminosalicylate (SDA), streptomycin/isoniazid (STI), terizidone (TRZ), thioacetazone (TAT), thioacetazone/isoniazid (THI1), tiocarlide (TCR), viomycin (VIO) betalactams() can select:  amoxicillin (AMX), amoxicillin/clavulanic acid (AMC), amoxicillin/sulbactam (AXS), ampicillin (AMP), ampicillin/sulbactam (SAM), apalcillin (APL), aspoxicillin (APX), avibactam (AVB), azidocillin (AZD), azlocillin (AZL), aztreonam (ATM), aztreonam/avibactam (AZA), aztreonam/nacubactam (ANC), bacampicillin (BAM), benzathine benzylpenicillin (BNB), benzathine phenoxymethylpenicillin (BNP), benzylpenicillin (PEN), biapenem (BIA), carbenicillin (CRB), carindacillin (CRN), cefacetrile (CAC), cefaclor (CEC), cefadroxil (CFR), cefalexin (LEX), cefaloridine (RID), cefalotin (CEP), cefamandole (MAN), cefapirin (HAP), cefatrizine (CTZ), cefazedone (CZD), cefazolin (CZO), cefcapene (CCP), cefcapene pivoxil (CCX), cefdinir (CDR), cefditoren (DIT), cefditoren pivoxil (DIX), cefepime (FEP), cefepime/clavulanic acid (CPC), cefepime/nacubactam (FNC), cefepime/tazobactam (FPT), cefetamet (CAT), cefetamet pivoxil (CPI), cefetecol (CCL), cefetrizole (CZL), cefixime (CFM), cefmenoxime (CMX), cefmetazole (CMZ), cefodizime (DIZ), cefonicid (CID), cefoperazone (CFP), cefoperazone/sulbactam (CSL), ceforanide (CND), cefoselis (CSE), cefotaxime (CTX), cefotaxime/clavulanic acid (CTC), cefotaxime/sulbactam (CTS), cefotetan (CTT), cefotiam (CTF), cefotiam hexetil (CHE), cefovecin (FOV), cefoxitin (FOX), cefoxitin screening (FOX1), cefozopran (ZOP), cefpimizole (CFZ), cefpiramide (CPM), cefpirome (CPO), cefpodoxime (CPD), cefpodoxime proxetil (CPX), cefpodoxime/clavulanic acid (CDC), cefprozil (CPR), cefquinome (CEQ), cefroxadine (CRD), cefsulodin (CFS), cefsumide (CSU), ceftaroline (CPT), ceftaroline/avibactam (CPA), ceftazidime (CAZ), ceftazidime/avibactam (CZA), ceftazidime/clavulanic acid (CCV), cefteram (CEM), cefteram pivoxil (CPL), ceftezole (CTL), ceftibuten (CTB), ceftiofur (TIO), ceftizoxime (CZX), ceftizoxime alapivoxil (CZP), ceftobiprole (BPR), ceftobiprole medocaril (CFM1), ceftolozane/tazobactam (CZT), ceftriaxone (CRO), ceftriaxone/beta-lactamase inhibitor (CEB), cefuroxime (CXM), cefuroxime axetil (CXA), cephradine (CED), ciclacillin (CIC), clometocillin (CLM), cloxacillin (CLO), dicloxacillin (DIC), doripenem (DOR), epicillin (EPC), ertapenem (ETP), flucloxacillin (FLC), hetacillin (HET), imipenem (IPM), imipenem/EDTA (IPE), imipenem/relebactam (IMR), latamoxef (LTM), lenampicillin (LEN), loracarbef (LOR), mecillinam (MEC), meropenem (MEM), meropenem/nacubactam (MNC), meropenem/vaborbactam (MEV), metampicillin (MTM), meticillin (MET), mezlocillin (MEZ), mezlocillin/sulbactam (MSU), nacubactam (NAC), nafcillin (NAF), oxacillin (OXA), panipenem (PAN), penamecillin (PNM), penicillin/novobiocin (PNO), penicillin/sulbactam (PSU), pheneticillin (PHE), phenoxymethylpenicillin (PHN), piperacillin (PIP), piperacillin/sulbactam (PIS), piperacillin/tazobactam (TZP), piridicillin (PRC), pivampicillin (PVM), pivmecillinam (PME), procaine benzylpenicillin (PRB), propicillin (PRP), razupenem (RZM), ritipenem (RIT), ritipenem acoxil (RIA), sarmoxicillin (SRX), sulbactam (SUL), sulbenicillin (SBC), sultamicillin (SLT6), talampicillin (TAL), tazobactam (TAZ), tebipenem (TBP), temocillin (TEM), ticarcillin (TIC), ticarcillin/clavulanic acid (TCC) carbapenems() can select:  biapenem (BIA), doripenem (DOR), ertapenem (ETP), imipenem (IPM), imipenem/EDTA (IPE), imipenem/relebactam (IMR), meropenem (MEM), meropenem/nacubactam (MNC), meropenem/vaborbactam (MEV), panipenem (PAN), razupenem (RZM), ritipenem (RIT), ritipenem acoxil (RIA), tebipenem (TBP) cephalosporins() can select:  cefacetrile (CAC), cefaclor (CEC), cefadroxil (CFR), cefalexin (LEX), cefaloridine (RID), cefalotin (CEP), cefamandole (MAN), cefapirin (HAP), cefatrizine (CTZ), cefazedone (CZD), cefazolin (CZO), cefcapene (CCP), cefcapene pivoxil (CCX), cefdinir (CDR), cefditoren (DIT), cefditoren pivoxil (DIX), cefepime (FEP), cefepime/clavulanic acid (CPC), cefepime/tazobactam (FPT), cefetamet (CAT), cefetamet pivoxil (CPI), cefetecol (CCL), cefetrizole (CZL), cefixime (CFM), cefmenoxime (CMX), cefmetazole (CMZ), cefodizime (DIZ), cefonicid (CID), cefoperazone (CFP), cefoperazone/sulbactam (CSL), ceforanide (CND), cefoselis (CSE), cefotaxime (CTX), cefotaxime/clavulanic acid (CTC), cefotaxime/sulbactam (CTS), cefotetan (CTT), cefotiam (CTF), cefotiam hexetil (CHE), cefovecin (FOV), cefoxitin (FOX), cefoxitin screening (FOX1), cefozopran (ZOP), cefpimizole (CFZ), cefpiramide (CPM), cefpirome (CPO), cefpodoxime (CPD), cefpodoxime proxetil (CPX), cefpodoxime/clavulanic acid (CDC), cefprozil (CPR), cefquinome (CEQ), cefroxadine (CRD), cefsulodin (CFS), cefsumide (CSU), ceftaroline (CPT), ceftaroline/avibactam (CPA), ceftazidime (CAZ), ceftazidime/avibactam (CZA), ceftazidime/clavulanic acid (CCV), cefteram (CEM), cefteram pivoxil (CPL), ceftezole (CTL), ceftibuten (CTB), ceftiofur (TIO), ceftizoxime (CZX), ceftizoxime alapivoxil (CZP), ceftobiprole (BPR), ceftobiprole medocaril (CFM1), ceftolozane/tazobactam (CZT), ceftriaxone (CRO), ceftriaxone/beta-lactamase inhibitor (CEB), cefuroxime (CXM), cefuroxime axetil (CXA), cephradine (CED), latamoxef (LTM), loracarbef (LOR) cephalosporins_1st() can select:  cefacetrile (CAC), cefadroxil (CFR), cefalexin (LEX), cefaloridine (RID), cefalotin (CEP), cefapirin (HAP), cefatrizine (CTZ), cefazedone (CZD), cefazolin (CZO), cefroxadine (CRD), ceftezole (CTL), cephradine (CED) cephalosporins_2nd() can select:  cefaclor (CEC), cefamandole (MAN), cefmetazole (CMZ), cefonicid (CID), ceforanide (CND), cefotetan (CTT), cefotiam (CTF), cefoxitin (FOX), cefoxitin screening (FOX1), cefprozil (CPR), cefuroxime (CXM), cefuroxime axetil (CXA), loracarbef (LOR) cephalosporins_3rd() can select:  cefcapene (CCP), cefcapene pivoxil (CCX), cefdinir (CDR), cefditoren (DIT), cefditoren pivoxil (DIX), cefetamet (CAT), cefetamet pivoxil (CPI), cefixime (CFM), cefmenoxime (CMX), cefodizime (DIZ), cefoperazone (CFP), cefoperazone/sulbactam (CSL), cefotaxime (CTX), cefotaxime/clavulanic acid (CTC), cefotaxime/sulbactam (CTS), cefotiam hexetil (CHE), cefovecin (FOV), cefpimizole (CFZ), cefpiramide (CPM), cefpodoxime (CPD), cefpodoxime proxetil (CPX), cefpodoxime/clavulanic acid (CDC), cefsulodin (CFS), ceftazidime (CAZ), ceftazidime/avibactam (CZA), ceftazidime/clavulanic acid (CCV), cefteram (CEM), cefteram pivoxil (CPL), ceftibuten (CTB), ceftiofur (TIO), ceftizoxime (CZX), ceftizoxime alapivoxil (CZP), ceftriaxone (CRO), ceftriaxone/beta-lactamase inhibitor (CEB), latamoxef (LTM) cephalosporins_4th() can select:  cefepime (FEP), cefepime/clavulanic acid (CPC), cefepime/tazobactam (FPT), cefetecol (CCL), cefoselis (CSE), cefozopran (ZOP), cefpirome (CPO), cefquinome (CEQ) cephalosporins_5th() can select:  ceftaroline (CPT), ceftaroline/avibactam (CPA), ceftobiprole (BPR), ceftobiprole medocaril (CFM1), ceftolozane/tazobactam (CZT) fluoroquinolones() can select:  besifloxacin (BES), ciprofloxacin (CIP), clinafloxacin (CLX), danofloxacin (DAN), delafloxacin (DFX), difloxacin (DIF), enoxacin (ENX), enrofloxacin (ENR), finafloxacin (FIN), fleroxacin (FLE), garenoxacin (GRN), gatifloxacin (GAT), gemifloxacin (GEM), grepafloxacin (GRX), lascufloxacin (LSC), levofloxacin (LVX), levonadifloxacin (LND), lomefloxacin (LOM), marbofloxacin (MAR), metioxate (MXT), miloxacin (MIL), moxifloxacin (MFX), nadifloxacin (NAD), nifuroquine (NIF), norfloxacin (), ofloxacin (OFX), orbifloxacin (ORB), pazufloxacin (PAZ), pefloxacin (PEF), pradofloxacin (PRA), premafloxacin (PRX), prulifloxacin (PRU), rufloxacin (RFL), sarafloxacin (SAR), sitafloxacin (SIT), sparfloxacin (SPX), temafloxacin (TMX), tilbroquinol (TBQ), tioxacin (TXC), tosufloxacin (TFX), trovafloxacin (TVA) glycopeptides() can select:  avoparcin (AVO), dalbavancin (DAL), norvancomycin (NVA), oritavancin (ORI), ramoplanin (RAM), teicoplanin (TEC), teicoplanin-macromethod (TCM), telavancin (TLV), vancomycin (VAN), vancomycin-macromethod (VAM) lincosamides() can select:  acetylmidecamycin (ACM), acetylspiramycin (ASP), clindamycin (CLI), gamithromycin (GAM), kitasamycin (KIT), lincomycin (LIN), meleumycin (MEL), nafithromycin (ZWK), pirlimycin (PRL), primycin (PRM), solithromycin (SOL), tildipirosin (TIP), tilmicosin (TIL), tulathromycin (TUL), tylosin (TYL), tylvalosin (TYL1) lipoglycopeptides() can select:  dalbavancin (DAL), oritavancin (ORI), telavancin (TLV) macrolides() can select:  acetylmidecamycin (ACM), acetylspiramycin (ASP), azithromycin (AZM), clarithromycin (CLR), dirithromycin (DIR), erythromycin (ERY), flurithromycin (FLR1), gamithromycin (GAM), josamycin (JOS), kitasamycin (KIT), meleumycin (MEL), midecamycin (MID), miocamycin (MCM), nafithromycin (ZWK), oleandomycin (OLE), pirlimycin (PRL), primycin (PRM), rokitamycin (ROK), roxithromycin (RXT), solithromycin (SOL), spiramycin (SPI), telithromycin (TLT), tildipirosin (TIP), tilmicosin (TIL), troleandomycin (TRL), tulathromycin (TUL), tylosin (TYL), tylvalosin (TYL1) oxazolidinones() can select:  cadazolid (CDZ), cycloserine (CYC), linezolid (LNZ), tedizolid (TZD), thiacetazone (THA) penicillins() can select:  amoxicillin (AMX), amoxicillin/clavulanic acid (AMC), amoxicillin/sulbactam (AXS), ampicillin (AMP), ampicillin/sulbactam (SAM), apalcillin (APL), aspoxicillin (APX), avibactam (AVB), azidocillin (AZD), azlocillin (AZL), aztreonam (ATM), aztreonam/avibactam (AZA), aztreonam/nacubactam (ANC), bacampicillin (BAM), benzathine benzylpenicillin (BNB), benzathine phenoxymethylpenicillin (BNP), benzylpenicillin (PEN), carbenicillin (CRB), carindacillin (CRN), cefepime/nacubactam (FNC), ciclacillin (CIC), clometocillin (CLM), cloxacillin (CLO), dicloxacillin (DIC), epicillin (EPC), flucloxacillin (FLC), hetacillin (HET), lenampicillin (LEN), mecillinam (MEC), metampicillin (MTM), meticillin (MET), mezlocillin (MEZ), mezlocillin/sulbactam (MSU), nacubactam (NAC), nafcillin (NAF), oxacillin (OXA), penamecillin (PNM), penicillin/novobiocin (PNO), penicillin/sulbactam (PSU), pheneticillin (PHE), phenoxymethylpenicillin (PHN), piperacillin (PIP), piperacillin/sulbactam (PIS), piperacillin/tazobactam (TZP), piridicillin (PRC), pivampicillin (PVM), pivmecillinam (PME), procaine benzylpenicillin (PRB), propicillin (PRP), sarmoxicillin (SRX), sulbactam (SUL), sulbenicillin (SBC), sultamicillin (SLT6), talampicillin (TAL), tazobactam (TAZ), temocillin (TEM), ticarcillin (TIC), ticarcillin/clavulanic acid (TCC) polymyxins() can select:  colistin (COL), polymyxin B (PLB), polymyxin B/polysorbate 80 (POP) quinolones() can select:  besifloxacin (BES), cinoxacin (CIN), ciprofloxacin (CIP), clinafloxacin (CLX), danofloxacin (DAN), delafloxacin (DFX), difloxacin (DIF), enoxacin (ENX), enrofloxacin (ENR), finafloxacin (FIN), fleroxacin (FLE), flumequine (FLM), garenoxacin (GRN), gatifloxacin (GAT), gemifloxacin (GEM), grepafloxacin (GRX), lascufloxacin (LSC), levofloxacin (LVX), levonadifloxacin (LND), lomefloxacin (LOM), marbofloxacin (MAR), metioxate (MXT), miloxacin (MIL), moxifloxacin (MFX), nadifloxacin (NAD), nalidixic acid (NAL), nemonoxacin (NEM), nifuroquine (NIF), nitroxoline (NTR), norfloxacin (), ofloxacin (OFX), orbifloxacin (ORB), oxolinic acid (OXO), pazufloxacin (PAZ), pefloxacin (PEF), pipemidic acid (PPA), piromidic acid (PIR), pradofloxacin (PRA), premafloxacin (PRX), prulifloxacin (PRU), rosoxacin (ROS), rufloxacin (RFL), sarafloxacin (SAR), sitafloxacin (SIT), sparfloxacin (SPX), temafloxacin (TMX), tilbroquinol (TBQ), tioxacin (TXC), tosufloxacin (TFX), trovafloxacin (TVA) streptogramins() can select:  pristinamycin (PRI) quinupristin/dalfopristin (QDA) tetracyclines() can select:  cetocycline (CTO), chlortetracycline (CTE), clomocycline (CLM1), demeclocycline (DEM), doxycycline (DOX), eravacycline (ERV), lymecycline (LYM), metacycline (MTC), minocycline (MNO), omadacycline (OMC), oxytetracycline (OXY), penimepicycline (PNM1), rolitetracycline (RLT), sarecycline (SRC), tetracycline (TCY), tigecycline (TGC) trimethoprims() can select:  brodimoprim (BDP), sulfadiazine (SDI), sulfadiazine/tetroxoprim (SLT), sulfadiazine/trimethoprim (SLT1), sulfadimethoxine (SUD), sulfadimidine (SDM), sulfadimidine/trimethoprim (SLT2), sulfafurazole (SLF), sulfaisodimidine (SLF1), sulfalene (SLF2), sulfamazone (SZO), sulfamerazine (SLF3), sulfamerazine/trimethoprim (SLT3), sulfamethizole (SLF4), sulfamethoxazole (SMX), sulfamethoxypyridazine (SLF5), sulfametomidine (SLF6), sulfametoxydiazine (SLF7), sulfametrole/trimethoprim (SLT4), sulfamoxole (SLF8), sulfamoxole/trimethoprim (SLT5), sulfanilamide (SLF9), sulfaperin (SLF10), sulfaphenazole (SLF11), sulfapyridine (SLF12), sulfathiazole (SUT), sulfathiourea (SLF13), trimethoprim (TMP), trimethoprim/sulfamethoxazole (SXT) ureidopenicillins() can select:  azlocillin (AZL), mezlocillin (MEZ), piperacillin (PIP), piperacillin/tazobactam (TZP)","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotic_class_selectors.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Antibiotic Selectors — antibiotic_class_selectors","text":"","code":"# `example_isolates` is a data set available in the AMR package. # See ?example_isolates. example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 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>, …   # Examples sections below are split into 'base R', 'dplyr', and 'data.table':   # base R ------------------------------------------------------------------  # select columns 'IPM' (imipenem) and 'MEM' (meropenem) example_isolates[, carbapenems()] #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> # A tibble: 2,000 × 2 #>    IPM   MEM   #>    <sir> <sir> #>  1 NA    NA    #>  2 NA    NA    #>  3 NA    NA    #>  4 NA    NA    #>  5 NA    NA    #>  6 NA    NA    #>  7 NA    NA    #>  8 NA    NA    #>  9 NA    NA    #> 10 NA    NA    #> # ℹ 1,990 more rows  # select columns 'mo', 'AMK', 'GEN', 'KAN' and 'TOB' example_isolates[, c(\"mo\", aminoglycosides())] #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> # A tibble: 2,000 × 5 #>    mo           GEN   TOB   AMK   KAN   #>    <mo>         <sir> <sir> <sir> <sir> #>  1 B_ESCHR_COLI NA    NA    NA    NA    #>  2 B_ESCHR_COLI NA    NA    NA    NA    #>  3 B_STPHY_EPDR NA    NA    NA    NA    #>  4 B_STPHY_EPDR NA    NA    NA    NA    #>  5 B_STPHY_EPDR NA    NA    NA    NA    #>  6 B_STPHY_EPDR NA    NA    NA    NA    #>  7 B_STPHY_AURS NA    S     NA    NA    #>  8 B_STPHY_AURS NA    S     NA    NA    #>  9 B_STPHY_EPDR NA    NA    NA    NA    #> 10 B_STPHY_EPDR NA    NA    NA    NA    #> # ℹ 1,990 more rows  # select only antibiotic columns with DDDs for oral treatment example_isolates[, administrable_per_os()] #> ℹ For administrable_per_os() using columns 'OXA' (oxacillin), 'FLC' #>   (flucloxacillin), 'AMX' (amoxicillin), 'AMC' (amoxicillin/clavulanic acid), #>   'AMP' (ampicillin), 'CXM' (cefuroxime), 'KAN' (kanamycin), 'TMP' #>   (trimethoprim), 'NIT' (nitrofurantoin), 'FOS' (fosfomycin), 'LNZ' #>   (linezolid), 'CIP' (ciprofloxacin), 'MFX' (moxifloxacin), 'VAN' #>   (vancomycin), 'TCY' (tetracycline), 'DOX' (doxycycline), 'ERY' #>   (erythromycin), 'CLI' (clindamycin), 'AZM' (azithromycin), 'MTR' #>   (metronidazole), 'CHL' (chloramphenicol), 'COL' (colistin), and 'RIF' #>   (rifampicin) #> # A tibble: 2,000 × 23 #>    OXA   FLC   AMX   AMC   AMP   CXM   KAN   TMP   NIT   FOS   LNZ   CIP   MFX   #>    <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> #>  1 NA    NA    NA    I     NA    I     NA    R     NA    NA    R     NA    NA    #>  2 NA    NA    NA    I     NA    I     NA    R     NA    NA    R     NA    NA    #>  3 NA    R     NA    NA    NA    R     NA    S     NA    NA    NA    NA    NA    #>  4 NA    R     NA    NA    NA    R     NA    S     NA    NA    NA    NA    NA    #>  5 NA    R     NA    NA    NA    R     NA    R     NA    NA    NA    NA    NA    #>  6 NA    R     NA    NA    NA    R     NA    R     NA    NA    NA    NA    NA    #>  7 NA    S     R     S     R     S     NA    R     NA    NA    NA    NA    NA    #>  8 NA    S     R     S     R     S     NA    R     NA    NA    NA    NA    NA    #>  9 NA    R     NA    NA    NA    R     NA    S     NA    NA    NA    S     NA    #> 10 NA    S     NA    NA    NA    S     NA    S     NA    NA    NA    S     NA    #> # ℹ 1,990 more rows #> # ℹ 10 more variables: VAN <sir>, TCY <sir>, DOX <sir>, ERY <sir>, CLI <sir>, #> #   AZM <sir>, MTR <sir>, CHL <sir>, COL <sir>, RIF <sir>  # filter using any() or all() example_isolates[any(carbapenems() == \"R\"), ] #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> # A tibble: 55 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2004-06-09 529296     69 M      ICU      B_ENTRC_FACM NA    NA    NA    NA    #>  2 2004-06-09 529296     69 M      ICU      B_ENTRC_FACM NA    NA    NA    NA    #>  3 2004-11-03 D65308     80 F      ICU      B_STNTR_MLTP R     NA    NA    R     #>  4 2005-04-21 452212     82 F      ICU      B_ENTRC      NA    NA    NA    NA    #>  5 2005-04-22 452212     82 F      ICU      B_ENTRC      NA    NA    NA    NA    #>  6 2005-04-22 452212     82 F      ICU      B_ENTRC_FACM NA    NA    NA    NA    #>  7 2007-02-21 8BBC46     61 F      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  8 2007-12-15 401043     72 M      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  9 2008-01-22 1710B8     82 M      Clinical B_PROTS_MRBL R     NA    NA    NA    #> 10 2008-01-22 1710B8     82 M      Clinical B_PROTS_MRBL R     NA    NA    NA    #> # ℹ 45 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … subset(example_isolates, any(carbapenems() == \"R\")) #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> # A tibble: 55 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2004-06-09 529296     69 M      ICU      B_ENTRC_FACM NA    NA    NA    NA    #>  2 2004-06-09 529296     69 M      ICU      B_ENTRC_FACM NA    NA    NA    NA    #>  3 2004-11-03 D65308     80 F      ICU      B_STNTR_MLTP R     NA    NA    R     #>  4 2005-04-21 452212     82 F      ICU      B_ENTRC      NA    NA    NA    NA    #>  5 2005-04-22 452212     82 F      ICU      B_ENTRC      NA    NA    NA    NA    #>  6 2005-04-22 452212     82 F      ICU      B_ENTRC_FACM NA    NA    NA    NA    #>  7 2007-02-21 8BBC46     61 F      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  8 2007-12-15 401043     72 M      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  9 2008-01-22 1710B8     82 M      Clinical B_PROTS_MRBL R     NA    NA    NA    #> 10 2008-01-22 1710B8     82 M      Clinical B_PROTS_MRBL R     NA    NA    NA    #> # ℹ 45 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  # filter on any or all results in the carbapenem columns (i.e., IPM, MEM): example_isolates[any(carbapenems()), ] #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ Filtering any of columns 'IPM' and 'MEM' to contain value \"S\", \"I\" or \"R\" #> # A tibble: 962 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL R     NA    NA    NA    #>  4 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL R     NA    NA    NA    #>  5 2002-02-05 067927     45 F      ICU      B_SERRT_MRCS R     NA    NA    R     #>  6 2002-02-05 067927     45 F      ICU      B_SERRT_MRCS R     NA    NA    R     #>  7 2002-02-05 067927     45 F      ICU      B_SERRT_MRCS R     NA    NA    R     #>  8 2002-02-27 066895     85 F      Clinical B_KLBSL_PNMN R     NA    NA    R     #>  9 2002-02-27 066895     85 F      Clinical B_KLBSL_PNMN R     NA    NA    R     #> 10 2002-03-08 4FC193     69 M      Clinical B_ESCHR_COLI R     NA    NA    R     #> # ℹ 952 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … example_isolates[all(carbapenems()), ] #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ Filtering all of columns 'IPM' and 'MEM' to contain value \"S\", \"I\" or \"R\" #> # A tibble: 756 × 46 #>    date       patient   age gender ward    mo            PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>   <mo>          <sir> <sir> <sir> <sir> #>  1 2002-04-14 F30196     73 M      Outpat… B_STRPT_GRPB  S     NA    S     S     #>  2 2003-04-08 114570     74 M      ICU     B_STRPT_PYGN  S     NA    S     S     #>  3 2003-04-08 114570     74 M      ICU     B_STRPT_GRPA  S     NA    S     S     #>  4 2003-04-08 114570     74 M      ICU     B_STRPT_GRPA  S     NA    S     S     #>  5 2003-08-14 F71508      0 F      Clinic… B_STRPT_GRPB  S     NA    S     S     #>  6 2003-10-16 650870     63 F      ICU     B_ESCHR_COLI  R     NA    NA    R     #>  7 2003-10-20 F35553     52 M      ICU     B_ENTRBC_CLOC R     NA    NA    R     #>  8 2003-10-20 F35553     52 M      ICU     B_ENTRBC_CLOC R     NA    NA    R     #>  9 2003-11-04 2FC253     87 F      ICU     B_ESCHR_COLI  R     NA    NA    NA    #> 10 2003-11-04 2FC253     87 F      ICU     B_ESCHR_COLI  R     NA    NA    NA    #> # ℹ 746 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  # filter with multiple antibiotic selectors using c() example_isolates[all(c(carbapenems(), aminoglycosides()) == \"R\"), ] #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> # A tibble: 26 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2004-11-03 D65308     80 F      ICU      B_STNTR_MLTP R     NA    NA    R     #>  2 2005-04-22 452212     82 F      ICU      B_ENTRC_FACM NA    NA    NA    NA    #>  3 2007-02-21 8BBC46     61 F      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  4 2007-12-15 401043     72 M      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  5 2008-12-06 501361     43 F      Clinical B_STNTR_MLTP R     NA    NA    R     #>  6 2011-05-09 207325     82 F      ICU      B_ENTRC_FACM NA    NA    NA    NA    #>  7 2012-03-12 582258     80 M      ICU      B_STPHY_CONS R     R     R     R     #>  8 2012-05-19 C25552     89 F      Outpati… B_STPHY_CONS R     R     R     R     #>  9 2012-07-17 F05015     83 M      ICU      B_STPHY_CONS R     R     R     R     #> 10 2012-07-20 404299     66 F      Clinical B_STPHY_CONS R     R     R     R     #> # ℹ 16 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  # filter + select in one go: get penicillins in carbapenem-resistant strains example_isolates[any(carbapenems() == \"R\"), penicillins()] #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ For penicillins() using columns 'PEN' (benzylpenicillin), 'OXA' #>   (oxacillin), 'FLC' (flucloxacillin), 'AMX' (amoxicillin), 'AMC' #>   (amoxicillin/clavulanic acid), 'AMP' (ampicillin), and 'TZP' #>   (piperacillin/tazobactam) #> # A tibble: 55 × 7 #>    PEN   OXA   FLC   AMX   AMC   AMP   TZP   #>    <sir> <sir> <sir> <sir> <sir> <sir> <sir> #>  1 NA    NA    NA    NA    NA    NA    NA    #>  2 NA    NA    NA    NA    NA    NA    NA    #>  3 R     NA    NA    R     R     R     R     #>  4 NA    NA    NA    NA    NA    NA    R     #>  5 NA    NA    NA    NA    NA    NA    R     #>  6 NA    NA    NA    NA    NA    NA    R     #>  7 NA    NA    NA    NA    NA    NA    R     #>  8 NA    NA    NA    NA    NA    NA    R     #>  9 R     NA    NA    NA    S     NA    S     #> 10 R     NA    NA    NA    S     NA    S     #> # ℹ 45 more rows  # You can combine selectors with '&' to be more specific. For example, # penicillins() would select benzylpenicillin ('peni G') and # administrable_per_os() would select erythromycin. Yet, when combined these # drugs are both omitted since benzylpenicillin is not administrable per os # and erythromycin is not a penicillin: example_isolates[, penicillins() & administrable_per_os()] #> ℹ For penicillins() using columns 'PEN' (benzylpenicillin), 'OXA' #>   (oxacillin), 'FLC' (flucloxacillin), 'AMX' (amoxicillin), 'AMC' #>   (amoxicillin/clavulanic acid), 'AMP' (ampicillin), and 'TZP' #>   (piperacillin/tazobactam) #> ℹ For administrable_per_os() using columns 'OXA' (oxacillin), 'FLC' #>   (flucloxacillin), 'AMX' (amoxicillin), 'AMC' (amoxicillin/clavulanic acid), #>   'AMP' (ampicillin), 'CXM' (cefuroxime), 'KAN' (kanamycin), 'TMP' #>   (trimethoprim), 'NIT' (nitrofurantoin), 'FOS' (fosfomycin), 'LNZ' #>   (linezolid), 'CIP' (ciprofloxacin), 'MFX' (moxifloxacin), 'VAN' #>   (vancomycin), 'TCY' (tetracycline), 'DOX' (doxycycline), 'ERY' #>   (erythromycin), 'CLI' (clindamycin), 'AZM' (azithromycin), 'MTR' #>   (metronidazole), 'CHL' (chloramphenicol), 'COL' (colistin), and 'RIF' #>   (rifampicin) #> # A tibble: 2,000 × 5 #>    OXA   FLC   AMX   AMC   AMP   #>    <sir> <sir> <sir> <sir> <sir> #>  1 NA    NA    NA    I     NA    #>  2 NA    NA    NA    I     NA    #>  3 NA    R     NA    NA    NA    #>  4 NA    R     NA    NA    NA    #>  5 NA    R     NA    NA    NA    #>  6 NA    R     NA    NA    NA    #>  7 NA    S     R     S     R     #>  8 NA    S     R     S     R     #>  9 NA    R     NA    NA    NA    #> 10 NA    S     NA    NA    NA    #> # ℹ 1,990 more rows  # ab_selector() applies a filter in the `antibiotics` data set and is thus # very flexible. For instance, to select antibiotic columns with an oral DDD # of at least 1 gram: example_isolates[, ab_selector(oral_ddd > 1 & oral_units == \"g\")] #> ℹ For ab_selector(oral_ddd > 1 & oral_units == \"g\") using columns 'OXA' #>   (oxacillin), 'FLC' (flucloxacillin), 'AMX' (amoxicillin), 'AMC' #>   (amoxicillin/clavulanic acid), 'AMP' (ampicillin), 'KAN' (kanamycin), 'FOS' #>   (fosfomycin), 'LNZ' (linezolid), 'VAN' (vancomycin), 'ERY' (erythromycin), #>   'CLI' (clindamycin), 'MTR' (metronidazole), and 'CHL' (chloramphenicol) #> # A tibble: 2,000 × 13 #>    OXA   FLC   AMX   AMC   AMP   KAN   FOS   LNZ   VAN   ERY   CLI   MTR   CHL   #>    <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> <sir> #>  1 NA    NA    NA    I     NA    NA    NA    R     R     R     R     NA    NA    #>  2 NA    NA    NA    I     NA    NA    NA    R     R     R     R     NA    NA    #>  3 NA    R     NA    NA    NA    NA    NA    NA    S     R     NA    NA    NA    #>  4 NA    R     NA    NA    NA    NA    NA    NA    S     R     NA    NA    NA    #>  5 NA    R     NA    NA    NA    NA    NA    NA    S     R     NA    NA    NA    #>  6 NA    R     NA    NA    NA    NA    NA    NA    S     R     R     NA    NA    #>  7 NA    S     R     S     R     NA    NA    NA    S     S     NA    NA    NA    #>  8 NA    S     R     S     R     NA    NA    NA    S     S     NA    NA    NA    #>  9 NA    R     NA    NA    NA    NA    NA    NA    S     R     NA    NA    NA    #> 10 NA    S     NA    NA    NA    NA    NA    NA    S     S     NA    NA    NA    #> # ℹ 1,990 more rows  # \\donttest{ # dplyr -------------------------------------------------------------------  if (require(\"dplyr\")) {   tibble(kefzol = random_sir(5)) %>%     select(cephalosporins()) } #> ℹ For cephalosporins() using column 'kefzol' (cefazolin) #> # A tibble: 5 × 1 #>   kefzol #>   <sir>  #> 1 R      #> 2 R      #> 3 I      #> 4 I      #> 5 I       if (require(\"dplyr\")) {   # get AMR for all aminoglycosides e.g., per ward:   example_isolates %>%     group_by(ward) %>%     summarise(across(aminoglycosides(), resistance)) } #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> Warning: There was 1 warning in `summarise()`. #> ℹ In argument: `across(aminoglycosides(), resistance)`. #> ℹ In group 3: `ward = \"Outpatient\"`. #> Caused by warning: #> ! Introducing NA: only 23 results available for KAN in group: ward = #> \"Outpatient\" (minimum = 30). #> # A tibble: 3 × 5 #>   ward         GEN   TOB   AMK   KAN #>   <chr>      <dbl> <dbl> <dbl> <dbl> #> 1 Clinical   0.229 0.315 0.626     1 #> 2 ICU        0.290 0.400 0.662     1 #> 3 Outpatient 0.2   0.368 0.605    NA if (require(\"dplyr\")) {   # You can combine selectors with '&' to be more specific:   example_isolates %>%     select(penicillins() & administrable_per_os()) } #> ℹ For penicillins() using columns 'PEN' (benzylpenicillin), 'OXA' #>   (oxacillin), 'FLC' (flucloxacillin), 'AMX' (amoxicillin), 'AMC' #>   (amoxicillin/clavulanic acid), 'AMP' (ampicillin), and 'TZP' #>   (piperacillin/tazobactam) #> ℹ For administrable_per_os() using columns 'OXA' (oxacillin), 'FLC' #>   (flucloxacillin), 'AMX' (amoxicillin), 'AMC' (amoxicillin/clavulanic acid), #>   'AMP' (ampicillin), 'CXM' (cefuroxime), 'KAN' (kanamycin), 'TMP' #>   (trimethoprim), 'NIT' (nitrofurantoin), 'FOS' (fosfomycin), 'LNZ' #>   (linezolid), 'CIP' (ciprofloxacin), 'MFX' (moxifloxacin), 'VAN' #>   (vancomycin), 'TCY' (tetracycline), 'DOX' (doxycycline), 'ERY' #>   (erythromycin), 'CLI' (clindamycin), 'AZM' (azithromycin), 'MTR' #>   (metronidazole), 'CHL' (chloramphenicol), 'COL' (colistin), and 'RIF' #>   (rifampicin) #> # A tibble: 2,000 × 5 #>    OXA   FLC   AMX   AMC   AMP   #>    <sir> <sir> <sir> <sir> <sir> #>  1 NA    NA    NA    I     NA    #>  2 NA    NA    NA    I     NA    #>  3 NA    R     NA    NA    NA    #>  4 NA    R     NA    NA    NA    #>  5 NA    R     NA    NA    NA    #>  6 NA    R     NA    NA    NA    #>  7 NA    S     R     S     R     #>  8 NA    S     R     S     R     #>  9 NA    R     NA    NA    NA    #> 10 NA    S     NA    NA    NA    #> # ℹ 1,990 more rows if (require(\"dplyr\")) {   # get AMR for only drugs that matter - no intrinsic resistance:   example_isolates %>%     filter(mo_genus() %in% c(\"Escherichia\", \"Klebsiella\")) %>%     group_by(ward) %>%     summarise(across(not_intrinsic_resistant(), resistance)) } #> ℹ Using column 'mo' as input for mo_genus() #> ℹ For not_intrinsic_resistant() removing columns 'PEN' #>   (benzylpenicillin), 'LNZ' (linezolid), 'VAN' (vancomycin), 'TEC' #>   (teicoplanin), 'ERY' (erythromycin), 'CLI' (clindamycin), 'AZM' #>   (azithromycin), and 'RIF' (rifampicin) #> Warning: There were 52 warnings in `summarise()`. #> The first warning was: #> ℹ In argument: `across(not_intrinsic_resistant(), resistance)`. #> ℹ In group 1: `ward = \"Clinical\"`. #> Caused by warning: #> ! Introducing NA: no results available for OXA in group: ward = \"Clinical\" #> (minimum = 30). #> ℹ Run `dplyr::last_dplyr_warnings()` to see the 51 remaining warnings. #> # A tibble: 3 × 33 #>   ward    OXA   FLC    AMX    AMC    AMP     TZP     CZO     FEP     CXM     FOX #>   <chr> <dbl> <dbl>  <dbl>  <dbl>  <dbl>   <dbl>   <dbl>   <dbl>   <dbl>   <dbl> #> 1 Clin…    NA    NA  0.606  0.121  0.606  0.0504  0.0656  0.0159  0.0622  0.0648 #> 2 ICU      NA    NA  0.535  0.172  0.535  0.119  NA       0.0722  0.0828  0.0992 #> 3 Outp…    NA    NA NA     NA     NA     NA      NA      NA      NA      NA      #> # ℹ 22 more variables: CTX <dbl>, CAZ <dbl>, CRO <dbl>, GEN <dbl>, TOB <dbl>, #> #   AMK <dbl>, KAN <dbl>, TMP <dbl>, SXT <dbl>, NIT <dbl>, FOS <dbl>, #> #   CIP <dbl>, MFX <dbl>, TCY <dbl>, TGC <dbl>, DOX <dbl>, IPM <dbl>, #> #   MEM <dbl>, MTR <dbl>, CHL <dbl>, COL <dbl>, MUP <dbl> if (require(\"dplyr\")) {   # get susceptibility for antibiotics whose name contains \"trim\":   example_isolates %>%     filter(first_isolate()) %>%     group_by(ward) %>%     summarise(across(ab_selector(name %like% \"trim\"), susceptibility)) } #> ℹ For ab_selector(name %like% \"trim\") using columns 'TMP' (trimethoprim) #>   and 'SXT' (trimethoprim/sulfamethoxazole) #> # A tibble: 3 × 3 #>   ward         TMP   SXT #>   <chr>      <dbl> <dbl> #> 1 Clinical   0.627 0.807 #> 2 ICU        0.551 0.780 #> 3 Outpatient 0.667 0.821 if (require(\"dplyr\")) {   # this will select columns 'IPM' (imipenem) and 'MEM' (meropenem):   example_isolates %>%     select(carbapenems()) } #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> # A tibble: 2,000 × 2 #>    IPM   MEM   #>    <sir> <sir> #>  1 NA    NA    #>  2 NA    NA    #>  3 NA    NA    #>  4 NA    NA    #>  5 NA    NA    #>  6 NA    NA    #>  7 NA    NA    #>  8 NA    NA    #>  9 NA    NA    #> 10 NA    NA    #> # ℹ 1,990 more rows if (require(\"dplyr\")) {   # this will select columns 'mo', 'AMK', 'GEN', 'KAN' and 'TOB':   example_isolates %>%     select(mo, aminoglycosides()) } #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> # A tibble: 2,000 × 5 #>    mo           GEN   TOB   AMK   KAN   #>    <mo>         <sir> <sir> <sir> <sir> #>  1 B_ESCHR_COLI NA    NA    NA    NA    #>  2 B_ESCHR_COLI NA    NA    NA    NA    #>  3 B_STPHY_EPDR NA    NA    NA    NA    #>  4 B_STPHY_EPDR NA    NA    NA    NA    #>  5 B_STPHY_EPDR NA    NA    NA    NA    #>  6 B_STPHY_EPDR NA    NA    NA    NA    #>  7 B_STPHY_AURS NA    S     NA    NA    #>  8 B_STPHY_AURS NA    S     NA    NA    #>  9 B_STPHY_EPDR NA    NA    NA    NA    #> 10 B_STPHY_EPDR NA    NA    NA    NA    #> # ℹ 1,990 more rows if (require(\"dplyr\")) {   # any() and all() work in dplyr's filter() too:   example_isolates %>%     filter(       any(aminoglycosides() == \"R\"),       all(cephalosporins_2nd() == \"R\")     ) } #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> ℹ For cephalosporins_2nd() using columns 'CXM' (cefuroxime) and 'FOX' #>   (cefoxitin) #> # A tibble: 112 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-02-21 4FC193     69 M      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  2 2002-03-16 4FC193     69 M      Clinical B_PSDMN_AERG R     NA    NA    R     #>  3 2002-04-08 130252     78 M      ICU      B_ENTRC_FCLS NA    NA    NA    NA    #>  4 2002-06-23 798871     82 M      Clinical B_ENTRC_FCLS NA    NA    NA    NA    #>  5 2002-06-23 798871     82 M      Clinical B_ENTRC_FCLS NA    NA    NA    NA    #>  6 2002-07-21 955940     82 F      Clinical B_PSDMN_AERG R     NA    NA    R     #>  7 2002-07-21 955940     82 F      Clinical B_PSDMN_AERG R     NA    NA    R     #>  8 2003-08-13 F35553     52 M      ICU      B_ENTRC_FCLS NA    NA    NA    NA    #>  9 2003-09-05 F35553     52 M      ICU      B_ENTRC_FCLS NA    NA    NA    NA    #> 10 2004-06-09 529296     69 M      ICU      B_ENTRC_FACM NA    NA    NA    NA    #> # ℹ 102 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\")) {   # also works with c():   example_isolates %>%     filter(any(c(carbapenems(), aminoglycosides()) == \"R\")) } #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> # A tibble: 531 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-02-21 4FC193     69 M      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  2 2002-03-16 4FC193     69 M      Clinical B_PSDMN_AERG R     NA    NA    R     #>  3 2002-03-17 B30560     78 M      Clinical B_STPHY_CONS R     NA    R     R     #>  4 2002-04-04 E61143     67 M      Clinical B_STRPT_SNGN S     NA    NA    S     #>  5 2002-04-08 130252     78 M      ICU      B_ENTRC_FCLS NA    NA    NA    NA    #>  6 2002-04-14 F30196     73 M      Outpati… B_STRPT_GRPB S     NA    S     S     #>  7 2002-05-07 D91570     83 M      Clinical B_STPHY_CONS R     NA    R     R     #>  8 2002-05-07 D91570     83 M      Clinical B_STPHY_CONS R     NA    R     R     #>  9 2002-05-14 077552     86 F      Clinical B_STRPT_PNMN S     NA    NA    S     #> 10 2002-05-14 077552     86 F      Clinical B_STRPT_PNMN S     NA    NA    S     #> # ℹ 521 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\")) {   # not setting any/all will automatically apply all():   example_isolates %>%     filter(aminoglycosides() == \"R\") } #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> ℹ Assuming a filter on all 4 aminoglycosides. Wrap around all() or #>   any() to prevent this note. #> # A tibble: 427 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-02-21 4FC193     69 M      Clinical B_ENTRC_FACM NA    NA    NA    NA    #>  2 2002-03-17 B30560     78 M      Clinical B_STPHY_CONS R     NA    R     R     #>  3 2002-04-04 E61143     67 M      Clinical B_STRPT_SNGN S     NA    NA    S     #>  4 2002-04-08 130252     78 M      ICU      B_ENTRC_FCLS NA    NA    NA    NA    #>  5 2002-04-14 F30196     73 M      Outpati… B_STRPT_GRPB S     NA    S     S     #>  6 2002-05-07 D91570     83 M      Clinical B_STPHY_CONS R     NA    R     R     #>  7 2002-05-07 D91570     83 M      Clinical B_STPHY_CONS R     NA    R     R     #>  8 2002-05-14 077552     86 F      Clinical B_STRPT_PNMN S     NA    NA    S     #>  9 2002-05-14 077552     86 F      Clinical B_STRPT_PNMN S     NA    NA    S     #> 10 2002-05-16 D25302     65 F      ICU      B_STRPT_ANGN S     NA    NA    S     #> # ℹ 417 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\")) {   # this will select columns 'mo' and all antimycobacterial drugs ('RIF'):   example_isolates %>%     select(mo, ab_class(\"mycobact\")) } #> ℹ For ab_class(\"mycobact\") using column 'RIF' (rifampicin) #> # A tibble: 2,000 × 2 #>    mo           RIF   #>    <mo>         <sir> #>  1 B_ESCHR_COLI R     #>  2 B_ESCHR_COLI R     #>  3 B_STPHY_EPDR NA    #>  4 B_STPHY_EPDR NA    #>  5 B_STPHY_EPDR NA    #>  6 B_STPHY_EPDR NA    #>  7 B_STPHY_AURS NA    #>  8 B_STPHY_AURS NA    #>  9 B_STPHY_EPDR NA    #> 10 B_STPHY_EPDR NA    #> # ℹ 1,990 more rows if (require(\"dplyr\")) {   # get bug/drug combinations for only glycopeptides in Gram-positives:   example_isolates %>%     filter(mo_is_gram_positive()) %>%     select(mo, glycopeptides()) %>%     bug_drug_combinations() %>%     format() } #> ℹ Using column 'mo' as input for mo_is_gram_positive() #> ℹ For glycopeptides() using columns 'VAN' (vancomycin) and 'TEC' #>   (teicoplanin) #> # A tibble: 2 × 8 #>   Group      Drug  CoNS  `E. faecalis` `S. aureus` `S. epidermidis` `S. hominis` #>   <chr>      <chr> <chr> <chr>         <chr>       <chr>            <chr>        #> 1 \"Glycopep… Teic… \"\"    \"\"            \" 0.0% (0/… \"64.1% (25/39)\"  \" 6.8% (4/5… #> 2 \"\"         Vanc… \" 0.… \" 0.0% (0/39… \" 0.0% (0/… \" 0.0% (0/171)\"  \" 0.0% (0/8… #> # ℹ 1 more variable: `S. pneumoniae` <chr> if (require(\"dplyr\")) {   data.frame(     some_column = \"some_value\",     J01CA01 = \"S\"   ) %>% # ATC code of ampicillin     select(penicillins()) # only the 'J01CA01' column will be selected } #> ℹ For penicillins() using column 'J01CA01' (ampicillin) #>   J01CA01 #> 1       S if (require(\"dplyr\")) {   # with recent versions of dplyr, this is all equal:   x <- example_isolates[carbapenems() == \"R\", ]   y <- example_isolates %>% filter(carbapenems() == \"R\")   z <- example_isolates %>% filter(if_all(carbapenems(), ~ .x == \"R\"))   identical(x, y) && identical(y, z) } #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ Assuming a filter on all 2 carbapenems. Wrap around all() or any() to #>   prevent this note. #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ Assuming a filter on all 2 carbapenems. Wrap around all() or any() to #>   prevent this note. #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> [1] TRUE   # data.table --------------------------------------------------------------  # data.table is supported as well, just use it in the same way as with # base R, but add `with = FALSE` if using a single AB selector.  if (require(\"data.table\")) {   dt <- as.data.table(example_isolates)    # this does not work, it returns column *names*   dt[, carbapenems()] } #> Loading required package: data.table #>  #> Attaching package: ‘data.table’ #> The following objects are masked from ‘package:dplyr’: #>  #>     between, first, last #> The following objects are masked from ‘package:AMR’: #>  #>     %like%, like #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> [1] \"IPM\" \"MEM\" #> attr(,\"class\") #> [1] \"ab_selector\" \"character\"   if (require(\"data.table\")) {   # so `with = FALSE` is required   dt[, carbapenems(), with = FALSE] } #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #>        IPM  MEM #>    1: <NA> <NA> #>    2: <NA> <NA> #>    3: <NA> <NA> #>    4: <NA> <NA> #>    5: <NA> <NA> #>   ---           #> 1996: <NA> <NA> #> 1997:    S    S #> 1998:    S    S #> 1999:    S    S #> 2000:    S    S  # for 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 #>    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 #>    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  AMX #>   1: 2002-01-19  738003  71      M   Clinical B_ESCHR_COLI   R <NA> <NA> <NA> #>   2: 2002-01-19  738003  71      M   Clinical B_ESCHR_COLI   R <NA> <NA> <NA> #>   3: 2002-01-22  F35553  50      M        ICU B_PROTS_MRBL   R <NA> <NA> <NA> #>   4: 2002-01-22  F35553  50      M        ICU B_PROTS_MRBL   R <NA> <NA> <NA> #>   5: 2002-02-05  067927  45      F        ICU B_SERRT_MRCS   R <NA> <NA>    R #>  ---                                                                          #> 905: 2005-04-12  D71461  70      M        ICU B_ESCHR_COLI   R <NA> <NA>    S #> 906: 2009-11-12  650870  69      F Outpatient B_ESCHR_COLI   R <NA> <NA>    S #> 907: 2012-06-14  8CBCF2  41      F   Clinical B_STPHY_CONS   R    S    S <NA> #> 908: 2012-10-11  175532  78      M   Clinical B_ESCHR_COLI   R <NA> <NA>    R #> 909: 2013-11-23  A97263  77      M   Clinical B_KLBSL_PNMN   R <NA> <NA>    R #>      AMC  AMP  TZP  CZO  FEP CXM  FOX  CTX  CAZ  CRO  GEN  TOB  AMK  KAN  TMP #>   1:   I <NA> <NA> <NA> <NA>   S <NA>    S <NA>    S <NA>    S <NA> <NA>    S #>   2:   I <NA> <NA> <NA> <NA>   S <NA>    S <NA>    S <NA>    S <NA> <NA>    S #>   3:   I <NA> <NA> <NA> <NA>   S <NA>    S    S    S <NA> <NA> <NA> <NA>    S #>   4:   I <NA> <NA> <NA> <NA>   S <NA>    S    S    S <NA> <NA> <NA> <NA>    S #>   5:   R    R <NA>    R <NA>   R    R <NA> <NA> <NA> <NA> <NA> <NA> <NA>    S #>  ---                                                                          #> 905:   S    S    S <NA>    S   S    S    S    S    S    S    S    S <NA> <NA> #> 906:   S    S    S    S    S   S    S    S    S    S    S    S    S <NA>    S #> 907:   S <NA> <NA>    S    S   S    S    S    R    S    S <NA> <NA> <NA>    S #> 908:   S    R    S <NA>    S   R    R    S    S    S    S    S <NA> <NA>    R #> 909:   S    R    S <NA>    S   S    S    S    S    S    S    S <NA> <NA>    S #>      SXT  NIT  FOS  LNZ  CIP  MFX VAN  TEC  TCY  TGC  DOX ERY CLI AZM IPM  MEM #>   1:   S <NA> <NA>    R <NA> <NA>   R    R <NA> <NA> <NA>   R   R   R   S <NA> #>   2:   S <NA> <NA>    R <NA> <NA>   R    R <NA> <NA> <NA>   R   R   R   S <NA> #>   3:   S    R <NA>    R    S <NA>   R    R    R    R    R   R   R   R   S <NA> #>   4:   S    R <NA>    R    S <NA>   R    R    R    R    R   R   R   R   S <NA> #>   5:   S    R <NA>    R    S <NA>   R    R    R    R    R   R   R   R   S <NA> #>  ---                                                                           #> 905:   S    S <NA>    R    S <NA>   R    R <NA> <NA> <NA>   R   R   R   S    S #> 906:   S    S <NA>    R    S <NA>   R    R <NA> <NA> <NA>   R   R   R   S    S #> 907:   S <NA> <NA> <NA>    S <NA>   S <NA> <NA> <NA> <NA>   S   S   S   S    S #> 908:   R    R <NA>    R    R    R   R    R <NA> <NA> <NA>   R   R   R   S    S #> 909:   S    S <NA>    R    S <NA>   R    R <NA> <NA> <NA>   R   R   R   S    S #>       MTR  CHL  COL  MUP  RIF #>   1: <NA> <NA> <NA> <NA>    R #>   2: <NA> <NA> <NA> <NA>    R #>   3: <NA> <NA>    R <NA>    R #>   4: <NA> <NA>    R <NA>    R #>   5: <NA> <NA>    R <NA>    R #>  ---                          #> 905: <NA> <NA> <NA> <NA>    R #> 906: <NA> <NA> <NA> <NA>    R #> 907: <NA> <NA>    R <NA> <NA> #> 908: <NA> <NA>    S <NA>    R #> 909: <NA> <NA>    S <NA>    R 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 #>   1:   R <NA> <NA> <NA>   I <NA> <NA> #>   2:   R <NA> <NA> <NA>   I <NA> <NA> #>   3:   R <NA> <NA> <NA>   I <NA> <NA> #>   4:   R <NA> <NA> <NA>   I <NA> <NA> #>   5:   R <NA> <NA>    R   R    R <NA> #>  ---                                  #> 905:   R <NA> <NA>    S   S    S    S #> 906:   R <NA> <NA>    S   S    S    S #> 907:   R    S    S <NA>   S <NA> <NA> #> 908:   R <NA> <NA>    R   S    R    S #> 909:   R <NA> <NA>    R   S    R    S # }"},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Sets with 603 Antimicrobial Drugs — antibiotics","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"Two data sets containing antibiotics/antimycotics antivirals. Use .ab() one ab_* functions retrieve values antibiotics data set. Three identifiers included data set: antibiotic ID (ab, primarily used package) defined WHONET/EARS-Net, ATC code (atc) defined , Compound ID (cid) found PubChem. properties data set derived one codes. Note drugs multiple ATC codes.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"","code":"antibiotics  antivirals"},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"object class tbl_df (inherits tbl, data.frame) 120 rows 11 columns.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"for-the-antibiotics-data-set-a-tibble-with-observations-and-variables-","dir":"Reference","previous_headings":"","what":"For the antibiotics data set: a tibble with 483 observations and 14 variables:","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"ab Antibiotic ID used package (AMC), using official EARS-Net (European Antimicrobial Resistance Surveillance Network) codes available. unique identifier. cid Compound ID found PubChem. unique identifier. name Official name used WHONET/EARS-Net . unique identifier. group short concise group name, based WHONET WHOCC definitions atc ATC codes (Anatomical Therapeutic Chemical) defined WHOCC, like J01CR02 atc_group1 Official pharmacological subgroup (3rd level ATC code) defined WHOCC, like \"Macrolides, lincosamides streptogramins\" atc_group2 Official chemical subgroup (4th level ATC code) defined WHOCC, like \"Macrolides\" abbr List abbreviations used many countries, also antibiotic susceptibility testing (AST) synonyms Synonyms (often trade names) drug, found PubChem based compound ID oral_ddd Defined Daily Dose (DDD), oral treatment, currently available 174 drugs oral_units Units oral_ddd iv_ddd Defined Daily Dose (DDD), parenteral (intravenous) treatment, currently available 146 drugs iv_units Units iv_ddd loinc codes associated name antimicrobial drug Logical Observation Identifiers Names Codes (LOINC), Version 2.76 (18 September, 2023). Use ab_loinc() retrieve quickly, see ab_property().","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"for-the-antivirals-data-set-a-tibble-with-observations-and-variables-","dir":"Reference","previous_headings":"","what":"For the antivirals data set: a tibble with 120 observations and 11 variables:","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"av Antiviral ID used package (ACI), using official EARS-Net (European Antimicrobial Resistance Surveillance Network) codes available. unique identifier. Combinations codes contain + indicate , ATA+COBI atazanavir/cobicistat. name Official name used WHONET/EARS-Net . unique identifier. atc ATC codes (Anatomical Therapeutic Chemical) defined WHOCC cid Compound ID found PubChem. unique identifier. atc_group Official pharmacological subgroup (3rd level ATC code) defined WHOCC synonyms Synonyms (often trade names) drug, found PubChem based compound ID oral_ddd Defined Daily Dose (DDD), oral treatment oral_units Units oral_ddd iv_ddd Defined Daily Dose (DDD), parenteral treatment iv_units Units iv_ddd loinc codes associated name antiviral drug Logical Observation Identifiers Names Codes (LOINC), Version 2.76 (18 September, 2023). Use av_loinc() retrieve quickly, see av_property().","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"World Health Organization () Collaborating Centre Drug Statistics Methodology (WHOCC): https://www.whocc./atc_ddd_index/ Logical Observation Identifiers Names Codes (LOINC), Version 2.76 (18 September, 2023). Accessed https://loinc.org October 19th, 2023. European Commission Public Health PHARMACEUTICALS - COMMUNITY REGISTER: https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"Properties based ATC code available ATC available. properties : atc_group1, atc_group2, oral_ddd, oral_units, iv_ddd iv_units. Synonyms (.e. trade names) derived PubChem Compound ID (column cid) consequently available CID available.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"direct-download","dir":"Reference","previous_headings":"","what":"Direct download","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"Like data sets package, data sets publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"whocc","dir":"Reference","previous_headings":"","what":"WHOCC","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"package contains ~550 antibiotic, antimycotic antiviral drugs Anatomical Therapeutic Chemical (ATC) codes, ATC groups Defined Daily Dose (DDD) World Health Organization Collaborating Centre Drug Statistics Methodology (WHOCC, https://www.whocc.) Pharmaceuticals Community Register European Commission (https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm). become gold standard international drug utilisation monitoring research. WHOCC located Oslo Norwegian Institute Public Health funded Norwegian government. European Commission executive European Union promotes general interest. NOTE: WHOCC copyright allow use commercial purposes, unlike info package. See https://www.whocc./copyright_disclaimer/.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/antibiotics.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Sets with 603 Antimicrobial Drugs — antibiotics","text":"","code":"antibiotics #> # A tibble: 483 × 14 #>    ab        cid name   group atc   atc_group1 atc_group2 abbreviations synonyms #>    <ab>    <dbl> <chr>  <chr> <lis> <chr>      <chr>      <list>        <named > #>  1 AMA      4649 4-ami… Anti… <chr> Drugs for… Aminosali… <chr [1]>     <chr>    #>  2 ACM   6450012 Acety… Macr… <chr> NA         NA         <chr [1]>     <chr>    #>  3 ASP  49787020 Acety… Macr… <chr> NA         NA         <chr [1]>     <chr>    #>  4 ALS      8954 Aldes… Othe… <chr> Drugs for… Drugs for… <chr [1]>     <chr>    #>  5 AMK     37768 Amika… Amin… <chr> Aminoglyc… Other ami… <chr [5]>     <chr>    #>  6 AKF        NA Amika… Amin… <chr> NA         NA         <chr [1]>     <chr>    #>  7 AMX     33613 Amoxi… Beta… <chr> Beta-lact… Penicilli… <chr [3]>     <chr>    #>  8 AMC  23665637 Amoxi… Beta… <chr> Beta-lact… Combinati… <chr [5]>     <chr>    #>  9 AXS    465441 Amoxi… Beta… <chr> NA         NA         <chr [1]>     <chr>    #> 10 AMB   5280965 Ampho… Anti… <chr> Antimycot… Antibioti… <chr [3]>     <chr>    #> # ℹ 473 more rows #> # ℹ 5 more variables: oral_ddd <dbl>, oral_units <chr>, iv_ddd <dbl>, #> #   iv_units <chr>, loinc <list> antivirals #> # A tibble: 120 × 11 #>    av       name      atc      cid atc_group synonyms oral_ddd oral_units iv_ddd #>    <av>     <chr>     <chr>  <dbl> <chr>     <list>      <dbl> <chr>       <dbl> #>  1 ABA      Abacavir  J05A… 4.41e5 Nucleosi… <chr>         0.6 g              NA #>  2 ACI      Aciclovir J05A… 1.35e8 Nucleosi… <chr>         4   g               4 #>  3 ADD      Adefovir… J05A… 6.09e4 Nucleosi… <chr>        10   mg             NA #>  4 AME      Amenamev… J05A… 1.14e7 Other an… <chr>         0.4 g              NA #>  5 AMP      Amprenav… J05A… 6.50e4 Protease… <chr>         1.2 g              NA #>  6 ASU      Asunapre… J05A… 1.61e7 Antivira… <chr>         0.2 g              NA #>  7 ATA      Atazanav… J05A… 1.48e5 Protease… <chr>         0.3 g              NA #>  8 ATA+COBI Atazanav… J05A… 8.66e7 Antivira… <chr>        NA   NA             NA #>  9 ATA+RIT  Atazanav… J05A… 2.51e7 Antivira… <chr>         0.3 g              NA #> 10 BAM      Baloxavi… J05A… 1.24e8 Other an… <chr>        40   mg             NA #> # ℹ 110 more rows #> # ℹ 2 more variables: iv_units <chr>, loinc <list>"},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":null,"dir":"Reference","previous_headings":"","what":"Transform Input to an Antibiotic ID — as.ab","title":"Transform Input to an Antibiotic ID — as.ab","text":"Use function determine antibiotic drug code one antibiotics. data set antibiotics searched abbreviations, official names synonyms (brand names).","code":""},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Transform Input to an Antibiotic ID — as.ab","text":"","code":"as.ab(x, flag_multiple_results = TRUE, info = interactive(), ...)  is.ab(x)"},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Transform Input to an Antibiotic ID — as.ab","text":"x character vector determine antibiotic ID flag_multiple_results logical indicate whether note printed console probably one antibiotic drug code name can retrieved single input value. info logical indicate whether progress bar printed - default TRUE interactive mode ... arguments passed internal functions","code":""},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Transform Input to an Antibiotic ID — as.ab","text":"character  vector additional class ab","code":""},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Transform Input to an Antibiotic ID — as.ab","text":"entries antibiotics data set three different identifiers: human readable EARS-Net code (column ab, used ECDC WHONET), ATC code (column atc, used ), CID code (column cid, Compound ID, used PubChem). data set contains 5,000 official brand names many different countries, found PubChem. drugs contain multiple ATC codes. properties searched user input. .ab() can correct different forms misspelling: Wrong spelling drug names (\"tobramicin\" \"gentamycin\"), corrects audible similarities f/ph, x/ks, c/z/s, t/th, etc. many vowels consonants Switching two characters (\"mreopenem\", often case clinical data, doctors typed fast) Digitalised paper records, leaving artefacts like 0/o/O (zero O's), B/8, n/r, etc. Use ab_* functions get properties based returned antibiotic ID, see Examples. Note: .ab() ab_* functions may use long regular expression match brand names antimicrobial drugs. may fail systems. can add manual codes considered .ab() ab_* functions, see add_custom_antimicrobials().","code":""},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Transform Input to an Antibiotic ID — as.ab","text":"World Health Organization () Collaborating Centre Drug Statistics Methodology: https://www.whocc./atc_ddd_index/ European Commission Public Health PHARMACEUTICALS - COMMUNITY REGISTER: https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm","code":""},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":"whocc","dir":"Reference","previous_headings":"","what":"WHOCC","title":"Transform Input to an Antibiotic ID — as.ab","text":"package contains ~550 antibiotic, antimycotic antiviral drugs Anatomical Therapeutic Chemical (ATC) codes, ATC groups Defined Daily Dose (DDD) World Health Organization Collaborating Centre Drug Statistics Methodology (WHOCC, https://www.whocc.) Pharmaceuticals Community Register European Commission (https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm). become gold standard international drug utilisation monitoring research. WHOCC located Oslo Norwegian Institute Public Health funded Norwegian government. European Commission executive European Union promotes general interest. NOTE: WHOCC copyright allow use commercial purposes, unlike info package. See https://www.whocc./copyright_disclaimer/.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Transform Input to an Antibiotic ID — as.ab","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/as.ab.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Transform Input to an Antibiotic ID — as.ab","text":"","code":"# these examples all return \"ERY\", the ID of erythromycin: as.ab(\"J01FA01\") #> Class 'ab' #> [1] ERY as.ab(\"J 01 FA 01\") #> Class 'ab' #> [1] ERY as.ab(\"Erythromycin\") #> Class 'ab' #> [1] ERY as.ab(\"eryt\") #> Class 'ab' #> [1] ERY as.ab(\"   eryt 123\") #> Class 'ab' #> [1] ERY as.ab(\"ERYT\") #> Class 'ab' #> [1] ERY as.ab(\"ERY\") #> Class 'ab' #> [1] ERY as.ab(\"eritromicine\") # spelled wrong, yet works #> Class 'ab' #> [1] ERY as.ab(\"Erythrocin\") # trade name #> Class 'ab' #> [1] ERY as.ab(\"Romycin\") # trade name #> Class 'ab' #> [1] ERY  # spelling from different languages and dyslexia are no problem ab_atc(\"ceftriaxon\") #> [1] \"J01DD04\" ab_atc(\"cephtriaxone\") # small spelling error #> [1] \"J01DD04\" ab_atc(\"cephthriaxone\") # or a bit more severe #> [1] \"J01DD04\" ab_atc(\"seephthriaaksone\") # and even this works #> [1] \"J01DD04\"  # use ab_* functions to get a specific properties (see ?ab_property); # they use as.ab() internally: ab_name(\"J01FA01\") #> [1] \"Erythromycin\" ab_name(\"eryt\") #> [1] \"Erythromycin\"  # \\donttest{ if (require(\"dplyr\")) {   # you can quickly rename 'sir' columns using set_ab_names() with dplyr:   example_isolates %>%     set_ab_names(where(is.sir), property = \"atc\") } #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           J01CE01 J01CF04 J01CF05 #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir>   <sir>   <sir>   #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R       NA      NA      #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R       NA      NA      #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R       NA      R       #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R       NA      R       #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R       NA      R       #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R       NA      R       #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R       NA      S       #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R       NA      S       #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R       NA      R       #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R       NA      S       #> # ℹ 1,990 more rows #> # ℹ 37 more variables: J01CA04 <sir>, J01CR02 <sir>, J01CA01 <sir>, #> #   J01CR05 <sir>, J01DB04 <sir>, J01DE01 <sir>, J01DC02 <sir>, J01DC01 <sir>, #> #   J01DD01 <sir>, J01DD02 <sir>, J01DD04 <sir>, J01GB03 <sir>, J01GB01 <sir>, #> #   J01GB06 <sir>, J01GB04 <sir>, J01EA01 <sir>, J01EE01 <sir>, J01XE01 <sir>, #> #   J01XX01 <sir>, J01XX08 <sir>, J01MA02 <sir>, J01MA14 <sir>, J01XA01 <sir>, #> #   J01XA02 <sir>, J01AA07 <sir>, J01AA12 <sir>, J01AA02 <sir>, … # }"},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":null,"dir":"Reference","previous_headings":"","what":"Transform Input to an Antiviral Drug ID — as.av","title":"Transform Input to an Antiviral Drug ID — as.av","text":"Use function determine antiviral drug code one antiviral drugs. data set antivirals searched abbreviations, official names synonyms (brand names).","code":""},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Transform Input to an Antiviral Drug ID — as.av","text":"","code":"as.av(x, flag_multiple_results = TRUE, info = interactive(), ...)  is.av(x)"},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Transform Input to an Antiviral Drug ID — as.av","text":"x character vector determine antiviral drug ID flag_multiple_results logical indicate whether note printed console probably one antiviral drug code name can retrieved single input value. info logical indicate whether progress bar printed - default TRUE interactive mode ... arguments passed internal functions","code":""},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Transform Input to an Antiviral Drug ID — as.av","text":"character  vector additional class ab","code":""},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Transform Input to an Antiviral Drug ID — as.av","text":"entries antivirals data set three different identifiers: human readable EARS-Net code (column ab, used ECDC WHONET), ATC code (column atc, used ), CID code (column cid, Compound ID, used PubChem). data set contains 5,000 official brand names many different countries, found PubChem. drugs contain multiple ATC codes. properties searched user input. .av() can correct different forms misspelling: Wrong spelling drug names (\"acyclovir\"), corrects audible similarities f/ph, x/ks, c/z/s, t/th, etc. many vowels consonants Switching two characters (\"aycclovir\", often case clinical data, doctors typed fast) Digitalised paper records, leaving artefacts like 0/o/O (zero O's), B/8, n/r, etc. Use av_* functions get properties based returned antiviral drug ID, see Examples. Note: .av() av_* functions may use long regular expression match brand names antimicrobial drugs. may fail systems.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Transform Input to an Antiviral Drug ID — as.av","text":"World Health Organization () Collaborating Centre Drug Statistics Methodology: https://www.whocc./atc_ddd_index/ European Commission Public Health PHARMACEUTICALS - COMMUNITY REGISTER: https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm","code":""},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":"whocc","dir":"Reference","previous_headings":"","what":"WHOCC","title":"Transform Input to an Antiviral Drug ID — as.av","text":"package contains ~550 antibiotic, antimycotic antiviral drugs Anatomical Therapeutic Chemical (ATC) codes, ATC groups Defined Daily Dose (DDD) World Health Organization Collaborating Centre Drug Statistics Methodology (WHOCC, https://www.whocc.) Pharmaceuticals Community Register European Commission (https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm). become gold standard international drug utilisation monitoring research. WHOCC located Oslo Norwegian Institute Public Health funded Norwegian government. European Commission executive European Union promotes general interest. NOTE: WHOCC copyright allow use commercial purposes, unlike info package. See https://www.whocc./copyright_disclaimer/.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Transform Input to an Antiviral Drug ID — as.av","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/as.av.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Transform Input to an Antiviral Drug ID — as.av","text":"","code":"# these examples all return \"ACI\", the ID of aciclovir: as.av(\"J05AB01\") #> Class 'av' #> [1] ACI as.av(\"J 05 AB 01\") #> Class 'av' #> [1] ACI as.av(\"Aciclovir\") #> Class 'av' #> [1] ACI as.av(\"aciclo\") #> Class 'av' #> [1] ACI as.av(\"   aciclo 123\") #> Class 'av' #> [1] ACI as.av(\"ACICL\") #> Class 'av' #> [1] ACI as.av(\"ACI\") #> Class 'av' #> [1] ACI as.av(\"Virorax\") # trade name #> Class 'av' #> [1] ACI as.av(\"Zovirax\") # trade name #> Class 'av' #> [1] ACI  as.av(\"acyklofir\") # severe spelling error, yet works #> Class 'av' #> [1] ACI  # use av_* functions to get a specific properties (see ?av_property); # they use as.av() internally: av_name(\"J05AB01\") #> [1] \"Aciclovir\" av_name(\"acicl\") #> [1] \"Aciclovir\""},{"path":"https://msberends.github.io/AMR/reference/as.disk.html","id":null,"dir":"Reference","previous_headings":"","what":"Transform Input to Disk Diffusion Diameters — as.disk","title":"Transform Input to Disk Diffusion Diameters — as.disk","text":"transforms vector new class disk, disk diffusion growth zone size (around antibiotic disk) millimetres 6 50.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.disk.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Transform Input to Disk Diffusion Diameters — as.disk","text":"","code":"as.disk(x, na.rm = FALSE)  NA_disk_  is.disk(x)"},{"path":"https://msberends.github.io/AMR/reference/as.disk.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Transform Input to Disk Diffusion Diameters — as.disk","text":"object class disk (inherits integer) length 1.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.disk.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Transform Input to Disk Diffusion Diameters — as.disk","text":"x vector na.rm logical indicating whether missing values removed","code":""},{"path":"https://msberends.github.io/AMR/reference/as.disk.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Transform Input to Disk Diffusion Diameters — as.disk","text":"integer additional class disk","code":""},{"path":"https://msberends.github.io/AMR/reference/as.disk.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Transform Input to Disk Diffusion Diameters — as.disk","text":"Interpret disk values SIR values .sir(). supports guidelines EUCAST CLSI. Disk diffusion growth zone sizes must 6 50 millimetres. Values higher 50 lower 100 maximised 50. others input values outside 6-50 range return NA. NA_disk_ missing value new disk class.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/as.disk.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Transform Input to Disk Diffusion Diameters — as.disk","text":"","code":"# transform existing disk zones to the `disk` class (using base R) df <- data.frame(   microorganism = \"Escherichia coli\",   AMP = 20,   CIP = 14,   GEN = 18,   TOB = 16 ) df[, 2:5] <- lapply(df[, 2:5], as.disk) str(df) #> 'data.frame':\t1 obs. of  5 variables: #>  $ microorganism: chr \"Escherichia coli\" #>  $ AMP          : 'disk' int 20 #>  $ CIP          : 'disk' int 14 #>  $ GEN          : 'disk' int 18 #>  $ TOB          : 'disk' int 16  # \\donttest{ # transforming is easier with dplyr: if (require(\"dplyr\")) {   df %>% mutate(across(AMP:TOB, as.disk)) } #>      microorganism AMP CIP GEN TOB #> 1 Escherichia coli  20  14  18  16 # }  # interpret disk values, see ?as.sir as.sir(   x = as.disk(18),   mo = \"Strep pneu\", # `mo` will be coerced with as.mo()   ab = \"ampicillin\", # and `ab` with as.ab()   guideline = \"EUCAST\" ) #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. Note that some #>   microorganisms might not have breakpoints for each antimicrobial drug in #>   EUCAST 2023. #> Interpreting disk diffusion zones: 'ampicillin' (AMP), EUCAST 2023... #>  OK  #> Class 'sir' #> [1] R  # interpret whole data set, pretend to be all from urinary tract infections: as.sir(df, uti = TRUE) #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. Note that some #>   microorganisms might not have breakpoints for each antimicrobial drug in #>   EUCAST 2023. #> Interpreting disk diffusion zones: column 'AMP' (ampicillin), EUCAST #> 2023... #>  OK  #> Interpreting disk diffusion zones: column 'CIP' (ciprofloxacin), EUCAST #> 2023... #>  OK  #> Interpreting disk diffusion zones: column 'GEN' (gentamicin), EUCAST #> 2023... #>  OK  #> Interpreting disk diffusion zones: column 'TOB' (tobramycin), EUCAST #> 2023... #>  OK  #>      microorganism AMP  CIP GEN TOB #> 1 Escherichia coli   S <NA>   S   S"},{"path":"https://msberends.github.io/AMR/reference/as.mic.html","id":null,"dir":"Reference","previous_headings":"","what":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"transforms vectors new class mic, treats input decimal numbers, maintaining operators (\">=\") allowing valid MIC values known field (medical) microbiology.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mic.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"","code":"as.mic(x, na.rm = FALSE, keep_operators = \"all\")  is.mic(x)  NA_mic_  rescale_mic(x, mic_range, keep_operators = \"edges\", as.mic = TRUE)  # S3 method for mic droplevels(x, as.mic = FALSE, ...)"},{"path":"https://msberends.github.io/AMR/reference/as.mic.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"x character numeric vector na.rm logical indicating whether missing values removed keep_operators character specifying handle operators (> <=) input. Accepts one three values: \"\" (TRUE) keep operators, \"none\" (FALSE) remove operators, \"edges\" keep operators ends range. mic_range manual range plot MIC values, e.g., mic_range = c(0.001, 32). Use NA set limit one side, e.g., mic_range = c(NA, 32). .mic logical indicate whether mic class kept - default FALSE ... arguments passed methods","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mic.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"Ordered factor additional class mic, mathematical operations acts decimal numbers. Bare mind outcome mathematical operation MICs return numeric value.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mic.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"interpret MIC values SIR values, use .sir() MIC values. supports guidelines EUCAST (2011-2023) CLSI (2011-2023). class MIC values quite special data type: formally ordered factor valid MIC values factor levels (make sure valid MIC values retained), mathematical operation acts decimal numbers:   makes possible maintain operators often come MIC values, \">=\" \"<=\", even filtering using numeric values data analysis, e.g.:   following generic functions implemented MIC class: !, !=, %%, %/%, &, *, +, -, /, <, <=, ==, >, >=, ^, |, abs(), acos(), acosh(), (), (), asin(), asinh(), atan(), atanh(), ceiling(), cos(), cosh(), cospi(), cummax(), cummin(), cumprod(), cumsum(), digamma(), exp(), expm1(), floor(), gamma(), lgamma(), log(), log1p(), log2(), log10(), max(), mean(), min(), prod(), range(), round(), sign(), signif(), sin(), sinh(), sinpi(), sqrt(), sum(), tan(), tanh(), tanpi(), trigamma() trunc(). functions stats package also implemented: median(), quantile(), mad(), IQR(), fivenum(). Also, boxplot.stats() supported. Since sd() var() non-generic functions, extended. Use mad() alternative, use e.g. sd(.numeric(x)) x vector MIC values. Using .double() .numeric() MIC values remove operators return numeric vector. use .integer() MIC values R convention factors, return index factor levels (often useless regular users). Use droplevels() drop unused levels. default, return plain factor. Use droplevels(..., .mic = TRUE) maintain mic class. rescale_mic(), existing MIC ranges can rescaled defined range MIC values. can useful better compare MIC distributions. NA_mic_ missing value new mic class, analogous e.g. base R's NA_character_.","code":"x <- random_mic(10) x #> Class 'mic' #>  [1] 16     1      8      8      64     >=128  0.0625 32     32     16  is.factor(x) #> [1] TRUE  x[1] * 2 #> [1] 32  median(x) #> [1] 26 x[x > 4] #> Class 'mic' #> [1] 16    8     8     64    >=128 32    32    16  df <- data.frame(x, hospital = \"A\") subset(df, x > 4) # or with dplyr: df %>% filter(x > 4) #>        x hospital #> 1     16        A #> 5     64        A #> 6  >=128        A #> 8     32        A #> 9     32        A #> 10    16        A"},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/as.mic.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Transform Input to Minimum Inhibitory Concentrations (MIC) — as.mic","text":"","code":"mic_data <- as.mic(c(\">=32\", \"1.0\", \"1\", \"1.00\", 8, \"<=0.128\", \"8\", \"16\", \"16\")) mic_data #> Class 'mic' #> [1] >=32    1       1       1       8       <=0.128 8       16      16      is.mic(mic_data) #> [1] TRUE  # this can also coerce combined MIC/SIR values: as.mic(\"<=0.002; S\") #> Class 'mic' #> [1] <=0.002  # mathematical processing treats MICs as numeric values fivenum(mic_data) #> [1]  0.128  1.000  8.000 16.000 32.000 quantile(mic_data) #>     0%    25%    50%    75%   100%  #>  0.128  1.000  8.000 16.000 32.000  all(mic_data < 512) #> [1] TRUE  # rescale MICs using rescale_mic() rescale_mic(mic_data, mic_range = c(4, 16)) #> Class 'mic' #> [1] >=16 <=4  <=4  <=4  8    <=4  8    >=16 >=16  # interpret MIC values as.sir(   x = as.mic(2),   mo = as.mo(\"Streptococcus pneumoniae\"),   ab = \"AMX\",   guideline = \"EUCAST\" ) #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. Note that some #>   microorganisms might not have breakpoints for each antimicrobial drug in #>   EUCAST 2023. #> Interpreting MIC values: 'AMX' (amoxicillin), EUCAST 2023... #>  NOTE  #>   • Multiple breakpoints available for amoxicillin (AMX) in Streptococcus #>      pneumoniae - assuming body site 'Meningitis'. #> Class 'sir' #> [1] R as.sir(   x = as.mic(c(0.01, 2, 4, 8)),   mo = as.mo(\"Streptococcus pneumoniae\"),   ab = \"AMX\",   guideline = \"EUCAST\" ) #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. Note that some #>   microorganisms might not have breakpoints for each antimicrobial drug in #>   EUCAST 2023. #> Interpreting MIC values: 'AMX' (amoxicillin), EUCAST 2023... #>  NOTE  #>   • Multiple breakpoints available for amoxicillin (AMX) in Streptococcus #>      pneumoniae - assuming body site 'Meningitis'. #> Class 'sir' #> [1] S R R R  # plot MIC values, see ?plot plot(mic_data)  plot(mic_data, mo = \"E. coli\", ab = \"cipro\")   if (require(\"ggplot2\")) {   autoplot(mic_data, mo = \"E. coli\", ab = \"cipro\") }  if (require(\"ggplot2\")) {   autoplot(mic_data, mo = \"E. coli\", ab = \"cipro\", language = \"nl\") # Dutch }"},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":null,"dir":"Reference","previous_headings":"","what":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"Use function get valid microorganism code (mo) based arbitrary user input. Determination done using intelligent rules complete taxonomic tree kingdoms Animalia, Archaea, Bacteria, Protozoa, microbial species kingdom Fungi (see Source). input can almost anything: full name (like \"Staphylococcus aureus\"), abbreviated name (\"S. aureus\"), abbreviation known field (\"MRSA\"), just genus. See Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"","code":"as.mo(   x,   Becker = FALSE,   Lancefield = FALSE,   minimum_matching_score = NULL,   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   reference_df = get_mo_source(),   ignore_pattern = getOption(\"AMR_ignore_pattern\", NULL),   cleaning_regex = getOption(\"AMR_cleaning_regex\", mo_cleaning_regex()),   language = get_AMR_locale(),   info = interactive(),   ... )  is.mo(x)  mo_uncertainties()  mo_renamed()  mo_failures()  mo_reset_session()  mo_cleaning_regex()"},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"x character vector data.frame one two columns Becker logical indicate whether staphylococci categorised coagulase-negative staphylococci (\"CoNS\") coagulase-positive staphylococci (\"CoPS\") instead species, according Karsten Becker et al. (see Source). Please see Details full list staphylococcal species converted. excludes Staphylococcus aureus default, use Becker = \"\" also categorise S. aureus \"CoPS\". Lancefield logical indicate whether beta-haemolytic Streptococcus categorised Lancefield groups instead species, according Rebecca C. Lancefield (see Source). streptococci categorised first group, e.g. Streptococcus dysgalactiae group C, although officially also categorised groups G L. . Please see Details full list streptococcal species converted. excludes enterococci default (group D), use Lancefield = \"\" also categorise enterococci group D. minimum_matching_score numeric value set lower limit MO matching score. left blank, determined automatically based character length x, taxonomic kingdom human pathogenicity. keep_synonyms logical indicate old, previously valid taxonomic names must preserved corrected currently accepted names. default FALSE, return note old taxonomic names processed. default can set package option AMR_keep_synonyms, .e. options(AMR_keep_synonyms = TRUE) options(AMR_keep_synonyms = FALSE). reference_df data.frame used extra reference translating x valid mo. See set_mo_source() get_mo_source() automate usage codes (e.g. used analysis organisation). ignore_pattern Perl-compatible regular expression (case-insensitive) matches x must return NA. can convenient exclude known non-relevant input can also set package option AMR_ignore_pattern, e.g. options(AMR_ignore_pattern = \"(reported|contaminated flora)\"). cleaning_regex Perl-compatible regular expression (case-insensitive) clean input x. Every matched part x removed. default, outcome mo_cleaning_regex(), removes texts brackets texts \"species\" \"serovar\". default can set package option AMR_cleaning_regex. language language translate text like \"growth\", defaults system language (see get_AMR_locale()) info logical indicate progress bar printed 25 items coerced - default TRUE interactive mode ... arguments passed functions","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"character  vector additional class mo","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"microorganism (MO) code package (class: mo) human readable typically looks like examples:   Values coerced considered 'unknown' returned MO code UNKNOWN warning. Use mo_* functions get properties based returned code, see Examples. .mo() function uses novel matching score algorithm (see Matching Score Microorganisms ) match input available microbial taxonomy package. lead effect e.g. \"E. coli\" (microorganism highly prevalent humans) return microbial ID Escherichia coli Entamoeba coli (microorganism less prevalent humans), although latter alphabetically come first. Becker = TRUE, following 85 staphylococci converted coagulase-negative group: S. argensis, S. arlettae, S. auricularis, S. borealis, S. caeli, S. caledonicus, S. canis, S. capitis, S. capitis capitis, S. capitis urealyticus, S. capitis ureolyticus, S. caprae, S. carnosus, S. carnosus carnosus, S. carnosus utilis, S. casei, S. caseolyticus, S. chromogenes, S. cohnii, S. cohnii cohnii, S. cohnii urealyticum, S. cohnii urealyticus, S. condimenti, S. croceilyticus, S. debuckii, S. devriesei, S. durrellii, S. edaphicus, S. epidermidis, S. equorum, S. equorum equorum, S. equorum linens, S. felis, S. fleurettii, S. gallinarum, S. haemolyticus, S. hominis, S. hominis hominis, S. hominis novobiosepticus, S. jettensis, S. kloosii, S. lentus, S. lloydii, S. lugdunensis, S. massiliensis, S. microti, S. muscae, S. nepalensis, S. pasteuri, S. petrasii, S. petrasii croceilyticus, S. petrasii jettensis, S. petrasii petrasii, S. petrasii pragensis, S. pettenkoferi, S. piscifermentans, S. pragensis, S. pseudoxylosus, S. pulvereri, S. ratti, S. rostri, S. saccharolyticus, S. saprophyticus, S. saprophyticus bovis, S. saprophyticus saprophyticus, S. schleiferi, S. schleiferi schleiferi, S. sciuri, S. sciuri carnaticus, S. sciuri lentus, S. sciuri rodentium, S. sciuri sciuri, S. simulans, S. stepanovicii, S. succinus, S. succinus casei, S. succinus succinus, S. taiwanensis, S. urealyticus, S. ureilyticus, S. veratri, S. vitulinus, S. vitulus, S. warneri, S. xylosus. following 16 staphylococci converted coagulase-positive group: S. agnetis, S. argenteus, S. coagulans, S. cornubiensis, S. delphini, S. hyicus, S. hyicus chromogenes, S. hyicus hyicus, S. intermedius, S. lutrae, S. pseudintermedius, S. roterodami, S. schleiferi coagulans, S. schweitzeri, S. simiae, S. singaporensis. Lancefield = TRUE, following streptococci converted corresponding Lancefield group: S. agalactiae (Group B), S. anginosus anginosus (Group F), S. anginosus whileyi (Group F), S. anginosus (Group F), S. canis (Group G), S. dysgalactiae dysgalactiae (Group C), S. dysgalactiae equisimilis (Group C), S. dysgalactiae (Group C), S. equi equi (Group C), S. equi ruminatorum (Group C), S. equi zooepidemicus (Group C), S. equi (Group C), S. pyogenes (Group ), S. salivarius salivarius (Group K), S. salivarius thermophilus (Group K), S. salivarius (Group K), S. sanguinis (Group H).","code":"Code               Full name   ---------------    --------------------------------------   B_KLBSL            Klebsiella   B_KLBSL_PNMN       Klebsiella pneumoniae   B_KLBSL_PNMN_RHNS  Klebsiella pneumoniae rhinoscleromatis   |   |    |    |   |   |    |    |   |   |    |    \\---> subspecies, a 3-5 letter acronym   |   |    \\----> species, a 3-6 letter acronym   |   \\----> genus, a 4-8 letter acronym   \\----> taxonomic kingdom: A (Archaea), AN (Animalia), B (Bacteria),                             F (Fungi), PL (Plantae), P (Protozoa)"},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"coping-with-uncertain-results","dir":"Reference","previous_headings":"","what":"Coping with Uncertain Results","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"Results non-exact taxonomic input based matching score. lowest allowed score can set minimum_matching_score argument. default determined based character length input, taxonomic kingdom human pathogenicity taxonomic outcome. values matched uncertainty, message shown suggest user evaluate results mo_uncertainties(), returns data.frame specifications. increase quality matching, cleaning_regex argument can used clean input (.e., x). must regular expression matches parts input removed input matched available microbial taxonomy. matched Perl-compatible case-insensitive. default value cleaning_regex outcome helper function mo_cleaning_regex(). three helper functions can run using .mo() function: Use mo_uncertainties() get data.frame prints pretty format taxonomic names guessed. output contains matching score matches (see Matching Score Microorganisms ). Use mo_failures() get character vector values coerced valid value. Use mo_renamed() get data.frame values coerced based old, previously accepted taxonomic names.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"microbial-prevalence-of-pathogens-in-humans","dir":"Reference","previous_headings":"","what":"Microbial Prevalence of Pathogens in Humans","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"coercion rules consider prevalence microorganisms humans, available prevalence column microorganisms data set. grouping human pathogenic prevalence explained section Matching Score Microorganisms .","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"Berends MS et al. (2022). AMR: R Package Working Antimicrobial Resistance Data. Journal Statistical Software, 104(3), 1-31; doi:10.18637/jss.v104.i03 Becker K et al. (2014). Coagulase-Negative Staphylococci. Clin Microbiol Rev. 27(4): 870-926; doi:10.1128/CMR.00109-13 Becker K et al. (2019). Implications identifying recently defined members S. aureus complex, S. argenteus S. schweitzeri: position paper members ESCMID Study Group staphylococci Staphylococcal Diseases (ESGS). Clin Microbiol Infect; doi:10.1016/j.cmi.2019.02.028 Becker K et al. (2020). Emergence coagulase-negative staphylococci. Expert Rev Anti Infect Ther. 18(4):349-366; doi:10.1080/14787210.2020.1730813 Lancefield RC (1933). serological differentiation human groups hemolytic streptococci. J Exp Med. 57(4): 571-95; doi:10.1084/jem.57.4.571 Berends MS et al. (2022). Trends Occurrence Phenotypic Resistance Coagulase-Negative Staphylococci (CoNS) Found Human Blood Northern Netherlands 2013 2019/ Micro.rganisms 10(9), 1801; doi:10.3390/microorganisms10091801 Parte, AC et al. (2020). List Prokaryotic names Standing Nomenclature (LPSN) moves DSMZ. International Journal Systematic Evolutionary Microbiology, 70, 5607-5612; doi:10.1099/ijsem.0.004332 . Accessed https://lpsn.dsmz.de December 11th, 2022. GBIF Secretariat (2022). GBIF Backbone Taxonomy. Checklist dataset doi:10.15468/39omei . Accessed https://www.gbif.org December 11th, 2022. 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 May 12th, 2023. Public Health Information Network Vocabulary Access Distribution System (PHIN VADS). US Edition SNOMED CT 1 September 2020. Value Set Name 'Microorganism', OID 2.16.840.1.114222.4.11.1009 (v12). URL: https://phinvads.cdc.gov Bartlett et al. (2022). comprehensive list bacterial pathogens infecting humans Microbiology 168:001269; doi:10.1099/mic.0.001269","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"matching-score-for-microorganisms","dir":"Reference","previous_headings":"","what":"Matching Score for Microorganisms","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"ambiguous user input .mo() mo_* functions, returned results chosen based matching score using mo_matching_score(). matching score \\(m\\), calculated :  : \\(x\\) user input; \\(n\\) taxonomic name (genus, species, subspecies); \\(l_n\\) length \\(n\\); \\(lev\\) Levenshtein distance function (counting insertion 1, deletion substitution 2) needed change \\(x\\) \\(n\\); \\(p_n\\) human pathogenic prevalence group \\(n\\), described ; \\(k_n\\) taxonomic kingdom \\(n\\), set Bacteria = 1, Fungi = 1.25, Protozoa = 1.5, 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.0 microorganisms data set; Putative, taxonomic species fewer three known cases. records prevalence = 1.25 microorganisms data set. Furthermore, genus present established list also prevalence = 1.0 microorganisms data set; genus present putative list prevalence = 1.25 microorganisms data set; species subspecies genus present two aforementioned groups, prevalence = 1.5 microorganisms data set; non-bacterial genus, species subspecies genus present following list, prevalence = 1.25 microorganisms data set: Absidia, Acanthamoeba, Acremonium, Aedes, Alternaria, Amoeba, Ancylostoma, Angiostrongylus, Anisakis, Anopheles, Apophysomyces, Aspergillus, Aureobasidium, Basidiobolus, Beauveria, Blastocystis, Blastomyces, Candida, Capillaria, Chaetomium, Chrysonilia, Cladophialophora, Cladosporium, Conidiobolus, Contracaecum, Cordylobia, Cryptococcus, Curvularia, Demodex, Dermatobia, Dientamoeba, Diphyllobothrium, Dirofilaria, Echinostoma, Entamoeba, Enterobius, Exophiala, Exserohilum, Fasciola, Fonsecaea, Fusarium, Giardia, Haloarcula, Halobacterium, Halococcus, Hendersonula, Heterophyes, Histomonas, Histoplasma, Hymenolepis, Hypomyces, Hysterothylacium, Leishmania, Malassezia, Malbranchea, Metagonimus, Meyerozyma, Microsporidium, Microsporum, Mortierella, Mucor, Mycocentrospora, Necator, Nectria, Ochroconis, Oesophagostomum, Oidiodendron, Opisthorchis, Pediculus, Penicillium, Phlebotomus, Phoma, Pichia, Piedraia, Pithomyces, Pityrosporum, Pneumocystis, Pseudallescheria, Pseudoterranova, Pulex, Rhizomucor, Rhizopus, Rhodotorula, Saccharomyces, Sarcoptes, Scolecobasidium, Scopulariopsis, Scytalidium, Spirometra, Sporobolomyces, Stachybotrys, Strongyloides, Syngamus, Taenia, Talaromyces, Toxocara, Trichinella, Trichobilharzia, Trichoderma, Trichomonas, Trichophyton, Trichosporon, Trichostrongylus, Trichuris, Tritirachium, Trombicula, Trypanosoma, Tunga, Wuchereria; records prevalence = 2.0 microorganisms data set. calculating matching score, characters \\(x\\) \\(n\\) ignored -Z, -z, 0-9, spaces parentheses. matches sorted descending matching score user input values, top match returned. lead effect e.g., \"E. coli\" return microbial ID Escherichia coli (\\(m = 0.688\\), highly prevalent microorganism found humans) Entamoeba coli (\\(m = 0.381\\), less prevalent microorganism humans), although latter alphabetically come first.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/as.mo.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Transform Arbitrary Input to Valid Microbial Taxonomy — as.mo","text":"","code":"# \\donttest{ # These examples all return \"B_STPHY_AURS\", the ID of S. aureus: as.mo(c(   \"sau\", # WHONET code   \"stau\",   \"STAU\",   \"staaur\",   \"S. aureus\",   \"S aureus\",   \"Sthafilokkockus aureus\", # handles incorrect spelling   \"Staphylococcus aureus (MRSA)\",   \"MRSA\", # Methicillin Resistant S. aureus   \"VISA\", # Vancomycin Intermediate S. aureus   \"VRSA\", # Vancomycin Resistant S. aureus   115329001 # SNOMED CT code )) #> Class 'mo' #>  [1] B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS #>  [6] B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS B_STPHY_AURS #> [11] B_STPHY_AURS B_STPHY_AURS  # Dyslexia is no problem - these all work: as.mo(c(   \"Ureaplasma urealyticum\",   \"Ureaplasma urealyticus\",   \"Ureaplasmium urealytica\",   \"Ureaplazma urealitycium\" )) #> Class 'mo' #> [1] B_URPLS_URLY B_URPLS_URLY B_URPLS_URLY B_URPLS_URLY  # 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- \\(\\)\\[\\]{}]+|([({]|\\[).+([})]|\\])|(^| )(e?spp([^a-z]+|$)|e?ssp([^a-z]+|$)|serogr.?up[a-z]*|e?ss([^a-z]+|$)|e?sp([^a-z]+|$)|var([^a-z]+|$)|serovar[a-z]*|sube?species|biovar[a-z]*|e?species|Ig[ADEGM]|e?subsp|biotype|titer|dummy))   as.mo(\"Streptococcus group A\") #> Class 'mo' #> [1] B_STRPT_GRPA  as.mo(\"S. epidermidis\") # will remain species: B_STPHY_EPDR #> Class 'mo' #> [1] B_STPHY_EPDR as.mo(\"S. epidermidis\", Becker = TRUE) # will not remain species: B_STPHY_CONS #> Class 'mo' #> [1] B_STPHY_CONS  as.mo(\"S. pyogenes\") # will remain species: B_STRPT_PYGN #> Class 'mo' #> [1] B_STRPT_PYGN as.mo(\"S. pyogenes\", Lancefield = TRUE) # will not remain species: B_STRPT_GRPA #> Class 'mo' #> [1] B_STRPT_GRPA  # All mo_* functions use as.mo() internally too (see ?mo_property): mo_genus(\"E. coli\") #> [1] \"Escherichia\" mo_gramstain(\"ESCO\") #> [1] \"Gram-negative\" mo_is_intrinsic_resistant(\"ESCCOL\", ab = \"vanco\") #> ℹ Determining intrinsic resistance based on 'EUCAST Expert Rules' and #>   'EUCAST Intrinsic Resistance and Unusual Phenotypes' v3.3 (2021). This note #>   will be shown once per session. #> [1] TRUE # }"},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":null,"dir":"Reference","previous_headings":"","what":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"Interpret minimum inhibitory concentration (MIC) values disk diffusion diameters according EUCAST CLSI, clean existing SIR values. transforms input new class sir, ordered factor levels S < < R. Currently available breakpoint guidelines EUCAST 2011-2023 CLSI 2011-2023, available breakpoint types \"ECOFF\", \"animal\", \"human\". breakpoints used interpretation publicly available clinical_breakpoints data set.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"","code":"as.sir(x, ...)  NA_sir_  is.sir(x)  is_sir_eligible(x, threshold = 0.05)  # S3 method for mic as.sir(   x,   mo = NULL,   ab = deparse(substitute(x)),   guideline = getOption(\"AMR_guideline\", \"EUCAST\"),   uti = NULL,   conserve_capped_values = FALSE,   add_intrinsic_resistance = FALSE,   reference_data = AMR::clinical_breakpoints,   include_screening = getOption(\"AMR_include_screening\", FALSE),   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\"),   ... )  # S3 method for disk as.sir(   x,   mo = NULL,   ab = deparse(substitute(x)),   guideline = getOption(\"AMR_guideline\", \"EUCAST\"),   uti = NULL,   add_intrinsic_resistance = FALSE,   reference_data = AMR::clinical_breakpoints,   include_screening = getOption(\"AMR_include_screening\", FALSE),   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\"),   ... )  # S3 method for data.frame as.sir(   x,   ...,   col_mo = NULL,   guideline = getOption(\"AMR_guideline\", \"EUCAST\"),   uti = NULL,   conserve_capped_values = FALSE,   add_intrinsic_resistance = FALSE,   reference_data = AMR::clinical_breakpoints,   include_screening = getOption(\"AMR_include_screening\", FALSE),   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\") )  sir_interpretation_history(clean = FALSE)"},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"object class sir (inherits ordered, factor) length 1.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"interpretations minimum inhibitory concentration (MIC) values disk diffusion diameters: M39 Analysis Presentation Cumulative Antimicrobial Susceptibility Test Data, 2011-2023, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/microbiology/documents/m39/. M100 Performance Standard Antimicrobial Susceptibility Testing, 2011-2023, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/microbiology/documents/m100/. Breakpoint tables interpretation MICs zone diameters, 2011-2023, European Committee Antimicrobial Susceptibility Testing (EUCAST). https://www.eucast.org/clinical_breakpoints.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"x vector values (class mic: MIC values mg/L, class disk: disk diffusion radius millimetres) ... using data.frame: names columns apply .sir() (supports tidy selection column1:column4). Otherwise: arguments passed methods. threshold maximum fraction invalid antimicrobial interpretations x, see Examples mo (vector ) text can coerced valid microorganism codes .mo(), can left empty determine automatically ab (vector ) text can coerced valid antimicrobial drug code .ab() guideline defaults EUCAST 2023 (latest implemented EUCAST guideline clinical_breakpoints data set), can set package option AMR_guideline. Currently supports EUCAST (2011-2023) CLSI (2011-2023), see Details. uti (Urinary Tract Infection) vector logicals (TRUE FALSE) specify whether UTI specific interpretation guideline chosen. using .sir() data.frame, can also column containing logicals left blank, data set searched column 'specimen', rows within column containing 'urin' ('urine', 'urina') regarded isolates UTI. See Examples. conserve_capped_values logical indicate MIC values starting \">\" (\">=\") must always return \"R\" , MIC values starting \"<\" (\"<=\") must always return \"S\" add_intrinsic_resistance (useful using EUCAST guideline) logical indicate whether intrinsic antibiotic resistance must also considered applicable bug-drug combinations, meaning e.g. ampicillin always return \"R\" Klebsiella species. Determination based intrinsic_resistant data set, based 'EUCAST Expert Rules' 'EUCAST Intrinsic Resistance Unusual Phenotypes' v3.3 (2021). reference_data data.frame used interpretation, defaults clinical_breakpoints data set. Changing argument allows using interpretation guidelines. argument must contain data set equal structure clinical_breakpoints data set (column names column types). Please note guideline argument ignored reference_data manually set. include_screening logical indicate clinical breakpoints screening allowed - default FALSE. Can also set package option AMR_include_screening. include_PKPD logical indicate PK/PD clinical breakpoints must applied last resort - default TRUE. Can also set package option AMR_include_PKPD. breakpoint_type type breakpoints use, either \"ECOFF\", \"animal\", \"human\". ECOFF stands Epidemiological Cut-values. default \"human\", can also set package option AMR_breakpoint_type. col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). clean logical indicate whether previously stored results forgotten returning 'logbook' results","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"Ordered factor new class sir","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"Note: clinical breakpoints package validated imported WHONET public use AMR package endorsed CLSI EUCAST, please see clinical_breakpoints information. NA_sir_ missing value new sir class, analogous e.g. base R's NA_character_.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"how-it-works","dir":"Reference","previous_headings":"","what":"How it Works","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":".sir() function works four ways: cleaning raw / untransformed data. data cleaned contain values S, R try best determine intelligence. example, mixed values SIR interpretations MIC values \"<0.25; S\" coerced \"S\". Combined interpretations multiple test methods (seen laboratory records) \"S; S\" coerced \"S\", value like \"S; \" return NA warning input unclear. interpreting minimum inhibitory concentration (MIC) values according EUCAST CLSI. must clean MIC values first using .mic(), also gives columns new data class mic. Also, sure column microorganism names codes. found automatically, can set manually using mo argument. Using dplyr, SIR interpretation can done easily either:   Operators like \"<=\" stripped interpretation. using conserve_capped_values = TRUE, MIC value e.g. \">2\" always return \"R\", even breakpoint according chosen guideline \">=4\". prevent capped values raw laboratory data treated conservatively. default behaviour (conserve_capped_values = FALSE) considers \">2\" lower \">=4\" might case return \"S\" \"\". interpreting disk diffusion diameters according EUCAST CLSI. must clean disk zones first using .disk(), also gives columns new data class disk. Also, sure column microorganism names codes. found automatically, can set manually using mo argument. Using dplyr, SIR interpretation can done easily either:   interpreting complete data set, automatic determination MIC values, disk diffusion diameters, microorganism names codes, antimicrobial test results. done simply running .sir(your_data). points 2, 3 4: Use sir_interpretation_history() retrieve data.frame (tibble tibble package installed) results last .sir() call.","code":"your_data %>% mutate_if(is.mic, as.sir) your_data %>% mutate(across(where(is.mic), as.sir)) your_data %>% mutate_if(is.disk, as.sir) your_data %>% mutate(across(where(is.disk), as.sir))"},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"supported-guidelines","dir":"Reference","previous_headings":"","what":"Supported Guidelines","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"interpreting MIC values well disk diffusion diameters, currently implemented guidelines EUCAST (2011-2023) CLSI (2011-2023). Thus, guideline argument must set e.g., \"EUCAST 2023\" \"CLSI 2023\". simply using \"EUCAST\" (default) \"CLSI\" input, latest included version guideline automatically selected. can set data set using reference_data argument. guideline argument ignored. can set default guideline package option AMR_guideline (e.g. .Rprofile file), :","code":"options(AMR_guideline = \"CLSI\")   options(AMR_guideline = \"CLSI 2018\")   options(AMR_guideline = \"EUCAST 2020\")   # or to reset:   options(AMR_guideline = NULL)"},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"after-interpretation","dir":"Reference","previous_headings":"","what":"After Interpretation","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"using .sir(), can use eucast_rules() defined EUCAST (1) apply inferred susceptibility resistance based results antimicrobials (2) apply intrinsic resistance based taxonomic properties microorganism.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"machine-readable-clinical-breakpoints","dir":"Reference","previous_headings":"","what":"Machine-Readable Clinical Breakpoints","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"repository package contains machine-readable version guidelines. CSV file consisting 29 747 rows 12 columns. file machine-readable, since contains one row every unique combination test method (MIC disk diffusion), antimicrobial drug microorganism. allows easy implementation rules laboratory information systems (LIS). Note contains interpretation guidelines humans - interpretation guidelines CLSI animals removed.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"other","dir":"Reference","previous_headings":"","what":"Other","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"function .sir() detects input contains class sir. input data.frame, iterates columns returns logical vector. function is_sir_eligible() returns TRUE columns contains 5% invalid antimicrobial interpretations (S //R), FALSE otherwise. threshold 5% can set threshold argument. input data.frame, iterates columns returns logical vector.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"interpretation-of-sir","dir":"Reference","previous_headings":"","what":"Interpretation of SIR","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"2019, European Committee Antimicrobial Susceptibility Testing (EUCAST) decided change definitions susceptibility testing categories S, , R shown (https://www.eucast.org/newsiandr): S - Susceptible, standard dosing regimen microorganism categorised \"Susceptible, standard dosing regimen\", high likelihood therapeutic success using standard dosing regimen agent. - Susceptible, increased exposure  microorganism categorised \"Susceptible, Increased exposure\" high likelihood therapeutic success exposure agent increased adjusting dosing regimen concentration site infection. R = Resistant microorganism categorised \"Resistant\" high likelihood therapeutic failure even increased exposure. Exposure function mode administration, dose, dosing interval, infusion time, well distribution excretion antimicrobial agent influence infecting organism site infection. AMR package honours insight. Use susceptibility() (equal proportion_SI()) determine antimicrobial susceptibility count_susceptible() (equal count_SI()) count susceptible isolates.","code":""},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/as.sir.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Translate MIC and Disk Diffusion to SIR, or Clean Existing SIR Data — as.sir","text":"","code":"example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … summary(example_isolates) # see all SIR results at a glance #>       date              patient               age           gender          #>  Min.   :2002-01-02   Length:2000        Min.   : 0.00   Length:2000        #>  1st Qu.:2005-07-31   Class :character   1st Qu.:63.00   Class :character   #>  Median :2009-07-31   Mode  :character   Median :74.00   Mode  :character   #>  Mean   :2009-11-20                      Mean   :70.69                      #>  3rd Qu.:2014-05-30                      3rd Qu.:82.00                      #>  Max.   :2017-12-28                      Max.   :97.00                      #>      ward                mo                  PEN                 #>  Length:2000        Class :mo             Class:sir              #>  Class :character   <NA>  :0              %R   :73.7% (n=1201)   #>  Mode  :character   Unique:90             %SI  :26.3% (n=428)    #>                     #1    :B_ESCHR_COLI   - %S :25.6% (n=417)    #>                     #2    :B_STPHY_CONS   - %I : 0.7% (n=11)     #>                     #3    :B_STPHY_AURS                          #>     OXA                   FLC                   AMX                #>  Class:sir             Class:sir             Class:sir             #>  %R   :31.2% (n=114)   %R   :29.5% (n=278)   %R   :59.6% (n=804)   #>  %SI  :68.8% (n=251)   %SI  :70.5% (n=665)   %SI  :40.4% (n=546)   #>  - %S :68.8% (n=251)   - %S :70.5% (n=665)   - %S :40.2% (n=543)   #>  - %I : 0.0% (n=0)     - %I : 0.0% (n=0)     - %I : 0.2% (n=3)     #>                                                                    #>     AMC                    AMP                   TZP                #>  Class:sir              Class:sir             Class:sir             #>  %R   :23.7% (n=446)    %R   :59.6% (n=804)   %R   :12.6% (n=126)   #>  %SI  :76.3% (n=1433)   %SI  :40.4% (n=546)   %SI  :87.4% (n=875)   #>  - %S :71.4% (n=1342)   - %S :40.2% (n=543)   - %S :86.1% (n=862)   #>  - %I : 4.8% (n=91)     - %I : 0.2% (n=3)     - %I : 1.3% (n=13)    #>                                                                     #>     CZO                   FEP                   CXM                 #>  Class:sir             Class:sir             Class:sir              #>  %R   :44.6% (n=199)   %R   :14.2% (n=103)   %R   :26.3% (n=470)    #>  %SI  :55.4% (n=247)   %SI  :85.8% (n=621)   %SI  :73.7% (n=1319)   #>  - %S :54.9% (n=245)   - %S :85.6% (n=620)   - %S :72.5% (n=1297)   #>  - %I : 0.4% (n=2)     - %I : 0.1% (n=1)     - %I : 1.2% (n=22)     #>                                                                     #>     FOX                   CTX                   CAZ                 #>  Class:sir             Class:sir             Class:sir              #>  %R   :27.4% (n=224)   %R   :15.5% (n=146)   %R   :66.5% (n=1204)   #>  %SI  :72.6% (n=594)   %SI  :84.5% (n=797)   %SI  :33.5% (n=607)    #>  - %S :71.6% (n=586)   - %S :84.4% (n=796)   - %S :33.5% (n=607)    #>  - %I : 1.0% (n=8)     - %I : 0.1% (n=1)     - %I : 0.0% (n=0)      #>                                                                     #>     CRO                   GEN                    TOB                #>  Class:sir             Class:sir              Class:sir             #>  %R   :15.5% (n=146)   %R   :24.6% (n=456)    %R   :34.4% (n=465)   #>  %SI  :84.5% (n=797)   %SI  :75.4% (n=1399)   %SI  :65.6% (n=886)   #>  - %S :84.4% (n=796)   - %S :74.0% (n=1372)   - %S :65.1% (n=879)   #>  - %I : 0.1% (n=1)     - %I : 1.5% (n=27)     - %I : 0.5% (n=7)     #>                                                                     #>     AMK                   KAN                    TMP                #>  Class:sir             Class:sir              Class:sir             #>  %R   :63.7% (n=441)   %R   :100.0% (n=471)   %R   :38.1% (n=571)   #>  %SI  :36.3% (n=251)   %SI  : 0.0% (n=0)      %SI  :61.9% (n=928)   #>  - %S :36.3% (n=251)   - %S : 0.0% (n=0)      - %S :61.2% (n=918)   #>  - %I : 0.0% (n=0)     - %I : 0.0% (n=0)      - %I : 0.7% (n=10)    #>                                                                     #>     SXT                    NIT                   FOS                #>  Class:sir              Class:sir             Class:sir             #>  %R   :20.5% (n=361)    %R   :17.1% (n=127)   %R   :42.2% (n=148)   #>  %SI  :79.5% (n=1398)   %SI  :82.9% (n=616)   %SI  :57.8% (n=203)   #>  - %S :79.1% (n=1392)   - %S :76.0% (n=565)   - %S :57.8% (n=203)   #>  - %I : 0.3% (n=6)      - %I : 6.9% (n=51)    - %I : 0.0% (n=0)     #>                                                                     #>     LNZ                   CIP                    MFX                #>  Class:sir             Class:sir              Class:sir             #>  %R   :69.3% (n=709)   %R   :16.2% (n=228)    %R   :33.6% (n=71)    #>  %SI  :30.7% (n=314)   %SI  :83.8% (n=1181)   %SI  :66.4% (n=140)   #>  - %S :30.7% (n=314)   - %S :78.9% (n=1112)   - %S :64.5% (n=136)   #>  - %I : 0.0% (n=0)     - %I : 4.9% (n=69)     - %I : 1.9% (n=4)     #>                                                                     #>     VAN                    TEC                   TCY                #>  Class:sir              Class:sir             Class:sir             #>  %R   :38.3% (n=712)    %R   :75.7% (n=739)   %R   :29.8% (n=357)   #>  %SI  :61.7% (n=1149)   %SI  :24.3% (n=237)   %SI  :70.3% (n=843)   #>  - %S :61.7% (n=1149)   - %S :24.3% (n=237)   - %S :68.3% (n=820)   #>  - %I : 0.0% (n=0)      - %I : 0.0% (n=0)     - %I : 1.9% (n=23)    #>                                                                     #>     TGC                   DOX                   ERY                 #>  Class:sir             Class:sir             Class:sir              #>  %R   :12.7% (n=101)   %R   :27.7% (n=315)   %R   :57.2% (n=1084)   #>  %SI  :87.3% (n=697)   %SI  :72.3% (n=821)   %SI  :42.8% (n=810)    #>  - %S :87.3% (n=697)   - %S :71.7% (n=814)   - %S :42.3% (n=801)    #>  - %I : 0.0% (n=0)     - %I : 0.6% (n=7)     - %I : 0.5% (n=9)      #>                                                                     #>     CLI                   AZM                    IPM                #>  Class:sir             Class:sir              Class:sir             #>  %R   :61.2% (n=930)   %R   :57.2% (n=1084)   %R   : 6.2% (n=55)    #>  %SI  :38.8% (n=590)   %SI  :42.8% (n=810)    %SI  :93.8% (n=834)   #>  - %S :38.6% (n=586)   - %S :42.3% (n=801)    - %S :92.7% (n=824)   #>  - %I : 0.3% (n=4)     - %I : 0.5% (n=9)      - %I : 1.1% (n=10)    #>                                                                     #>     MEM                   MTR                  CHL                #>  Class:sir             Class:sir            Class:sir             #>  %R   : 5.9% (n=49)    %R   :14.7% (n=5)    %R   :21.4% (n=33)    #>  %SI  :94.1% (n=780)   %SI  :85.3% (n=29)   %SI  :78.6% (n=121)   #>  - %S :94.1% (n=780)   - %S :85.3% (n=29)   - %S :78.6% (n=121)   #>  - %I : 0.0% (n=0)     - %I : 0.0% (n=0)    - %I : 0.0% (n=0)     #>                                                                   #>     COL                    MUP                   RIF                #>  Class:sir              Class:sir             Class:sir             #>  %R   :81.2% (n=1331)   %R   : 5.9% (n=16)    %R   :69.6% (n=698)   #>  %SI  :18.8% (n=309)    %SI  :94.1% (n=254)   %SI  :30.4% (n=305)   #>  - %S :18.8% (n=309)    - %S :93.0% (n=251)   - %S :30.2% (n=303)   #>  - %I : 0.0% (n=0)      - %I : 1.1% (n=3)     - %I : 0.2% (n=2)     #>                                                                      # For INTERPRETING disk diffusion and MIC values -----------------------  # a whole data set, even with combined MIC values and disk zones df <- data.frame(   microorganism = \"Escherichia coli\",   AMP = as.mic(8),   CIP = as.mic(0.256),   GEN = as.disk(18),   TOB = as.disk(16),   ERY = \"R\" ) as.sir(df) #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. Note that some #>   microorganisms might not have breakpoints for each antimicrobial drug in #>   EUCAST 2023. #> Interpreting MIC values: column 'AMP' (ampicillin), EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for ampicillin (AMP) in #>      Escherichia coli - assuming body site 'Intravenous'. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> Interpreting MIC values: column 'CIP' (ciprofloxacin), EUCAST 2023... #>  NOTE  #>   • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli #>      - assuming body site 'Non-meningitis'. #> Interpreting disk diffusion zones: column 'GEN' (gentamicin), EUCAST #> 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for gentamicin (GEN) in #>      Escherichia coli - assuming an unspecified body site. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> Interpreting disk diffusion zones: column 'TOB' (tobramycin), EUCAST #> 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for tobramycin (TOB) in #>      Escherichia coli - assuming an unspecified body site. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> => Assigning class 'sir' to already clean column 'ERY' (erythromycin)... #>  OK. #>      microorganism AMP CIP GEN TOB ERY #> 1 Escherichia coli   S   I   S   S   R  # return a 'logbook' about the results: sir_interpretation_history() #> # A tibble: 13 × 13 #>    datetime            index ab_user    mo_user    ab   mo                input #>    <dttm>              <int> <chr>      <chr>      <ab> <mo>              <dbl> #>  1 2023-12-03 10:39:01     1 TOB        Escherich… TOB  B_[ORD]_ENTRBCTR 16     #>  2 2023-12-03 10:39:01     1 GEN        Escherich… GEN  B_[ORD]_ENTRBCTR 18     #>  3 2023-12-03 10:39:01     1 CIP        Escherich… CIP  B_[ORD]_ENTRBCTR  0.256 #>  4 2023-12-03 10:39:01     1 AMP        Escherich… AMP  B_[ORD]_ENTRBCTR  8     #>  5 2023-12-03 10:38:56     1 AMX        B_STRPT_P… AMX  B_STRPT_PNMN      0.01  #>  6 2023-12-03 10:38:56     2 AMX        B_STRPT_P… AMX  B_STRPT_PNMN      2     #>  7 2023-12-03 10:38:56     3 AMX        B_STRPT_P… AMX  B_STRPT_PNMN      4     #>  8 2023-12-03 10:38:56     4 AMX        B_STRPT_P… AMX  B_STRPT_PNMN      8     #>  9 2023-12-03 10:38:56     1 AMX        B_STRPT_P… AMX  B_STRPT_PNMN      2     #> 10 2023-12-03 10:38:56     1 TOB        Escherich… TOB  B_[ORD]_ENTRBCTR 16     #> 11 2023-12-03 10:38:56     1 GEN        Escherich… GEN  B_[ORD]_ENTRBCTR 18     #> 12 2023-12-03 10:38:56     1 AMP        Escherich… AMP  B_[ORD]_ENTRBCTR 20     #> 13 2023-12-03 10:38:56     1 ampicillin Strep pneu AMP  B_STRPT_PNMN     18     #> # ℹ 6 more variables: outcome <sir>, method <chr>, breakpoint_S_R <chr>, #> #   guideline <chr>, ref_table <chr>, uti <lgl>  # for single values as.sir(   x = as.mic(2),   mo = as.mo(\"S. pneumoniae\"),   ab = \"AMP\",   guideline = \"EUCAST\" ) #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. Note that some #>   microorganisms might not have breakpoints for each antimicrobial drug in #>   EUCAST 2023. #> Interpreting MIC values: 'AMP' (ampicillin), EUCAST 2023... #>  NOTE  #>   • Multiple breakpoints available for ampicillin (AMP) in Streptococcus #>      pneumoniae - assuming body site 'Non-meningitis'. #> Class 'sir' #> [1] R  as.sir(   x = as.disk(18),   mo = \"Strep pneu\", # `mo` will be coerced with as.mo()   ab = \"ampicillin\", # and `ab` with as.ab()   guideline = \"EUCAST\" ) #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. Note that some #>   microorganisms might not have breakpoints for each antimicrobial drug in #>   EUCAST 2023. #> Interpreting disk diffusion zones: 'ampicillin' (AMP), EUCAST 2023... #>  OK  #> Class 'sir' #> [1] R  # \\donttest{ # the dplyr way if (require(\"dplyr\")) {   df %>% mutate_if(is.mic, as.sir)   df %>% mutate_if(function(x) is.mic(x) | is.disk(x), as.sir)   df %>% mutate(across(where(is.mic), as.sir))   df %>% mutate_at(vars(AMP:TOB), as.sir)   df %>% mutate(across(AMP:TOB, as.sir))    df %>%     mutate_at(vars(AMP:TOB), as.sir, mo = .$microorganism)    # to include information about urinary tract infections (UTI)   data.frame(     mo = \"E. coli\",     NIT = c(\"<= 2\", 32),     from_the_bladder = c(TRUE, FALSE)   ) %>%     as.sir(uti = \"from_the_bladder\")    data.frame(     mo = \"E. coli\",     NIT = c(\"<= 2\", 32),     specimen = c(\"urine\", \"blood\")   ) %>%     as.sir() # automatically determines urine isolates    df %>%     mutate_at(vars(AMP:TOB), as.sir, mo = \"E. coli\", uti = TRUE) } #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. Note that some #>   microorganisms might not have breakpoints for each antimicrobial drug in #>   EUCAST 2023. #> Interpreting MIC values: 'AMP' (ampicillin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for ampicillin (AMP) in #>      Escherichia coli - assuming body site 'Intravenous'. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> Interpreting MIC values: 'CIP' (ciprofloxacin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli #>      - assuming body site 'Non-meningitis'. #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. Note that some #>   microorganisms might not have breakpoints for each antimicrobial drug in #>   EUCAST 2023. #> Interpreting MIC values: 'AMP' (ampicillin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for ampicillin (AMP) in #>      Escherichia coli - assuming body site 'Intravenous'. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> Interpreting MIC values: 'CIP' (ciprofloxacin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli #>      - assuming body site 'Non-meningitis'. #> Interpreting disk diffusion zones: 'GEN' (gentamicin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for gentamicin (GEN) in #>      Escherichia coli - assuming an unspecified body site. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> Interpreting disk diffusion zones: 'TOB' (tobramycin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for tobramycin (TOB) in #>      Escherichia coli - assuming an unspecified body site. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. Note that some #>   microorganisms might not have breakpoints for each antimicrobial drug in #>   EUCAST 2023. #> Interpreting MIC values: 'AMP' (ampicillin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for ampicillin (AMP) in #>      Escherichia coli - assuming body site 'Intravenous'. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> Interpreting MIC values: 'CIP' (ciprofloxacin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli #>      - assuming body site 'Non-meningitis'. #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. Note that some #>   microorganisms might not have breakpoints for each antimicrobial drug in #>   EUCAST 2023. #> Interpreting MIC values: 'AMP' (ampicillin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for ampicillin (AMP) in #>      Escherichia coli - assuming body site 'Intravenous'. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> Interpreting MIC values: 'CIP' (ciprofloxacin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli #>      - assuming body site 'Non-meningitis'. #> Interpreting disk diffusion zones: 'GEN' (gentamicin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for gentamicin (GEN) in #>      Escherichia coli - assuming an unspecified body site. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> Interpreting disk diffusion zones: 'TOB' (tobramycin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for tobramycin (TOB) in #>      Escherichia coli - assuming an unspecified body site. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. Note that some #>   microorganisms might not have breakpoints for each antimicrobial drug in #>   EUCAST 2023. #> Interpreting MIC values: 'AMP' (ampicillin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for ampicillin (AMP) in #>      Escherichia coli - assuming body site 'Intravenous'. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> Interpreting MIC values: 'CIP' (ciprofloxacin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli #>      - assuming body site 'Non-meningitis'. #> Interpreting disk diffusion zones: 'GEN' (gentamicin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for gentamicin (GEN) in #>      Escherichia coli - assuming an unspecified body site. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> Interpreting disk diffusion zones: 'TOB' (tobramycin) based on column #> 'microorganism', EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for tobramycin (TOB) in #>      Escherichia coli - assuming an unspecified body site. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. Note that some #>   microorganisms might not have breakpoints for each antimicrobial drug in #>   EUCAST 2023. #> Interpreting MIC values: 'AMP' (ampicillin), EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for ampicillin (AMP) in #>      Escherichia coli - assuming body site 'Intravenous'. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> Interpreting MIC values: 'CIP' (ciprofloxacin), EUCAST 2023... #>  NOTE  #>   • Multiple breakpoints available for ciprofloxacin (CIP) in Escherichia coli #>      - assuming body site 'Non-meningitis'. #> Interpreting disk diffusion zones: 'GEN' (gentamicin), EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for gentamicin (GEN) in #>      Escherichia coli - assuming an unspecified body site. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> Interpreting disk diffusion zones: 'TOB' (tobramycin), EUCAST 2023... #>  NOTE  #>   • Breakpoints for UTI and non-UTI available for tobramycin (TOB) in #>      Escherichia coli - assuming an unspecified body site. Use argument uti to #>      set which isolates are from urine. See ?as.sir. #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. Note that some #>   microorganisms might not have breakpoints for each antimicrobial drug in #>   EUCAST 2023. #> Interpreting MIC values: column 'NIT' (nitrofurantoin), EUCAST 2023... #>  OK  #> ℹ Assuming value \"urine\" in column 'specimen' reflects a urinary tract #>   infection. #>   Use as.sir(uti = FALSE) to prevent this. #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. Note that some #>   microorganisms might not have breakpoints for each antimicrobial drug in #>   EUCAST 2023. #> Interpreting MIC values: column 'NIT' (nitrofurantoin), EUCAST 2023... #>  OK  #> ℹ Run sir_interpretation_history() afterwards to retrieve a logbook with #>   all the details of the breakpoint interpretations. Note that some #>   microorganisms might not have breakpoints for each antimicrobial drug in #>   EUCAST 2023. #> Interpreting MIC values: 'AMP' (ampicillin), EUCAST 2023... #>  OK  #> Interpreting MIC values: 'CIP' (ciprofloxacin), EUCAST 2023... #>  OK  #> Interpreting disk diffusion zones: 'GEN' (gentamicin), EUCAST 2023... #>  OK  #> Interpreting disk diffusion zones: 'TOB' (tobramycin), EUCAST 2023... #>  OK  #>      microorganism AMP  CIP GEN TOB ERY #> 1 Escherichia coli   S <NA>   S   S   R  # For CLEANING existing SIR values ------------------------------------  as.sir(c(\"S\", \"I\", \"R\", \"A\", \"B\", \"C\")) #> Warning: in as.sir(): 3 results in column '24' truncated (50%) that were invalid #> antimicrobial interpretations: \"A\", \"B\", and \"C\" #> Class 'sir' #> [1] S    I    R    <NA> <NA> <NA> as.sir(\"<= 0.002; S\") # will return \"S\" #> Class 'sir' #> [1] S sir_data <- as.sir(c(rep(\"S\", 474), rep(\"I\", 36), rep(\"R\", 370))) is.sir(sir_data) #> [1] TRUE plot(sir_data) # for percentages  barplot(sir_data) # for frequencies   # the dplyr way if (require(\"dplyr\")) {   example_isolates %>%     mutate_at(vars(PEN:RIF), as.sir)   # same:   example_isolates %>%     as.sir(PEN:RIF)    # fastest way to transform all columns with already valid AMR results to class `sir`:   example_isolates %>%     mutate_if(is_sir_eligible, as.sir)    # since dplyr 1.0.0, this can also be:   # example_isolates %>%   #   mutate(across(where(is_sir_eligible), as.sir)) } #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … # }"},{"path":"https://msberends.github.io/AMR/reference/atc_online.html","id":null,"dir":"Reference","previous_headings":"","what":"Get ATC Properties from WHOCC Website — atc_online_property","title":"Get ATC Properties from WHOCC Website — atc_online_property","text":"Gets data WHOCC website determine properties Anatomical Therapeutic Chemical (ATC) (e.g. antibiotic), name, defined daily dose (DDD) standard unit.","code":""},{"path":"https://msberends.github.io/AMR/reference/atc_online.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Get ATC Properties from WHOCC Website — atc_online_property","text":"","code":"atc_online_property(   atc_code,   property,   administration = \"O\",   url = \"https://www.whocc.no/atc_ddd_index/?code=%s&showdescription=no\",   url_vet = \"https://www.whocc.no/atcvet/atcvet_index/?code=%s&showdescription=no\" )  atc_online_groups(atc_code, ...)  atc_online_ddd(atc_code, ...)  atc_online_ddd_units(atc_code, ...)"},{"path":"https://msberends.github.io/AMR/reference/atc_online.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Get ATC Properties from WHOCC Website — atc_online_property","text":"https://www.whocc./atc_ddd_alterations__cumulative/ddd_alterations/abbrevations/","code":""},{"path":"https://msberends.github.io/AMR/reference/atc_online.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Get ATC Properties from WHOCC Website — atc_online_property","text":"atc_code character (vector) ATC code(s) antibiotics, coerced .ab() ab_atc() internally valid ATC code property property ATC code. Valid values \"ATC\", \"Name\", \"DDD\", \"U\" (\"unit\"), \"Adm.R\", \"Note\" groups. last option, hierarchical groups ATC code returned, see Examples. administration type administration using property = \"Adm.R\", see Details url url website WHOCC. sign %s can used placeholder ATC codes. url_vet url website WHOCC veterinary medicine. sign %s can used placeholder ATC_vet codes (start \"Q\"). ... arguments pass atc_property","code":""},{"path":"https://msberends.github.io/AMR/reference/atc_online.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Get ATC Properties from WHOCC Website — atc_online_property","text":"Options argument administration: \"Implant\" = Implant \"Inhal\" = Inhalation \"Instill\" = Instillation \"N\" = nasal \"O\" = oral \"P\" = parenteral \"R\" = rectal \"SL\" = sublingual/buccal \"TD\" = transdermal \"V\" = vaginal Abbreviations return values using property = \"U\" (unit): \"g\" = gram \"mg\" = milligram \"mcg\" = microgram \"U\" = unit \"TU\" = thousand units \"MU\" = million units \"mmol\" = millimole \"ml\" = millilitre (e.g. eyedrops) N.B. function requires internet connection works following packages installed: curl, rvest, xml2.","code":""},{"path":"https://msberends.github.io/AMR/reference/atc_online.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Get ATC Properties from WHOCC Website — atc_online_property","text":"","code":"# \\donttest{ if (requireNamespace(\"curl\") && requireNamespace(\"rvest\") && requireNamespace(\"xml2\")) {   # oral DDD (Defined Daily Dose) of amoxicillin   atc_online_property(\"J01CA04\", \"DDD\", \"O\")   atc_online_ddd(ab_atc(\"amox\"))    # parenteral DDD (Defined Daily Dose) of amoxicillin   atc_online_property(\"J01CA04\", \"DDD\", \"P\")    atc_online_property(\"J01CA04\", property = \"groups\") # search hierarchical groups of amoxicillin } #> Loading required namespace: rvest #> [1] \"ANTIINFECTIVES FOR SYSTEMIC USE\"         #> [2] \"ANTIBACTERIALS FOR SYSTEMIC USE\"         #> [3] \"BETA-LACTAM ANTIBACTERIALS, PENICILLINS\" #> [4] \"Penicillins with extended spectrum\"      # }"},{"path":"https://msberends.github.io/AMR/reference/av_from_text.html","id":null,"dir":"Reference","previous_headings":"","what":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","title":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","text":"Use function e.g. clinical texts health care records. returns list antiviral drugs, doses forms administration found texts.","code":""},{"path":"https://msberends.github.io/AMR/reference/av_from_text.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","text":"","code":"av_from_text(   text,   type = c(\"drug\", \"dose\", \"administration\"),   collapse = NULL,   translate_av = FALSE,   thorough_search = NULL,   info = interactive(),   ... )"},{"path":"https://msberends.github.io/AMR/reference/av_from_text.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","text":"text text analyse type type property search , either \"drug\", \"dose\" \"administration\", see Examples collapse character pass paste(, collapse = ...) return one character per element text, see Examples translate_av type = \"drug\": column name antivirals data set translate antibiotic abbreviations , using av_property(). default FALSE. Using TRUE equal using \"name\". thorough_search logical indicate whether input must extensively searched misspelling faulty input values. Setting TRUE take considerably time using FALSE. default, turn TRUE input elements contain maximum three words. info logical indicate whether progress bar printed - default TRUE interactive mode ... arguments passed .av()","code":""},{"path":"https://msberends.github.io/AMR/reference/av_from_text.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","text":"list,  character collapse NULL","code":""},{"path":"https://msberends.github.io/AMR/reference/av_from_text.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","text":"function also internally used .av(), although searches first drug name throw note drug names returned. Note: .av() function may use long regular expression match brand names antiviral drugs. may fail systems.","code":""},{"path":"https://msberends.github.io/AMR/reference/av_from_text.html","id":"argument-type","dir":"Reference","previous_headings":"","what":"Argument type","title":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","text":"default, function search antiviral drug names. text elements searched official names, ATC codes brand names. uses .av() internally, correct misspelling. type = \"dose\" (similar, like \"dosing\", \"doses\"), text elements searched numeric values higher 100 resemble years. output numeric. supports unit (g, mg, IE, etc.) multiple values one clinical text, see Examples. type = \"administration\" (abbreviations, like \"admin\", \"adm\"), text elements searched form drug administration. supports following forms (including common abbreviations): buccal, implant, inhalation, instillation, intravenous, nasal, oral, parenteral, rectal, sublingual, transdermal vaginal. Abbreviations oral ('po', 'per os') become \"oral\", values intravenous ('iv', 'intraven') become \"iv\". supports multiple values one clinical text, see Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/av_from_text.html","id":"argument-collapse","dir":"Reference","previous_headings":"","what":"Argument collapse","title":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","text":"Without using collapse, function return list. can convenient use e.g. inside mutate()):df %>% mutate(avx = av_from_text(clinical_text)) returned AV codes can transformed official names, groups, etc. av_* functions av_name() av_group(), using translate_av argument. using collapse, function return character:df %>% mutate(avx = av_from_text(clinical_text, collapse = \"|\"))","code":""},{"path":"https://msberends.github.io/AMR/reference/av_from_text.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Retrieve Antiviral Drug Names and Doses from Clinical Text — av_from_text","text":"","code":"av_from_text(\"28/03/2020 valaciclovir po tid\") #> [[1]] #> Class 'av' #> [1] VALA #>  av_from_text(\"28/03/2020 valaciclovir po tid\", type = \"admin\") #> [[1]] #> [1] \"oral\" #>"},{"path":"https://msberends.github.io/AMR/reference/av_property.html","id":null,"dir":"Reference","previous_headings":"","what":"Get Properties of an Antiviral Drug — av_property","title":"Get Properties of an Antiviral Drug — av_property","text":"Use functions return specific property antiviral drug antivirals data set. input values evaluated internally .av().","code":""},{"path":"https://msberends.github.io/AMR/reference/av_property.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Get Properties of an Antiviral Drug — av_property","text":"","code":"av_name(x, language = get_AMR_locale(), tolower = FALSE, ...)  av_cid(x, ...)  av_synonyms(x, ...)  av_tradenames(x, ...)  av_group(x, language = get_AMR_locale(), ...)  av_atc(x, ...)  av_loinc(x, ...)  av_ddd(x, administration = \"oral\", ...)  av_ddd_units(x, administration = \"oral\", ...)  av_info(x, language = get_AMR_locale(), ...)  av_url(x, open = FALSE, ...)  av_property(x, property = \"name\", language = get_AMR_locale(), ...)"},{"path":"https://msberends.github.io/AMR/reference/av_property.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Get Properties of an Antiviral Drug — av_property","text":"x (vector ) text can coerced valid antiviral drug code .av() language language returned text - default system language (see get_AMR_locale()) can also set package option AMR_locale. Use language = NULL language = \"\" prevent translation. tolower logical indicate whether first character every output transformed lower case character. ... arguments passed .av() administration way administration, either \"oral\" \"iv\" open browse URL using utils::browseURL() property one column names one antivirals data set: vector_or(colnames(antivirals), sort = FALSE).","code":""},{"path":"https://msberends.github.io/AMR/reference/av_property.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Get Properties of an Antiviral Drug — av_property","text":"integer case av_cid() named list case av_info() multiple av_atc()/av_synonyms()/av_tradenames() double case av_ddd() character cases","code":""},{"path":"https://msberends.github.io/AMR/reference/av_property.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Get Properties of an Antiviral Drug — av_property","text":"output translated possible. function av_url() return direct URL official website. warning returned required ATC code available.","code":""},{"path":"https://msberends.github.io/AMR/reference/av_property.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Get Properties of an Antiviral Drug — av_property","text":"World Health Organization () Collaborating Centre Drug Statistics Methodology: https://www.whocc./atc_ddd_index/ European Commission Public Health PHARMACEUTICALS - COMMUNITY REGISTER: https://ec.europa.eu/health/documents/community-register/html/reg_hum_atc.htm","code":""},{"path":"https://msberends.github.io/AMR/reference/av_property.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Get Properties of an Antiviral Drug — av_property","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/av_property.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Get Properties of an Antiviral Drug — av_property","text":"","code":"# all properties: av_name(\"ACI\") #> [1] \"Aciclovir\" av_atc(\"ACI\") #> [1] \"J05AB01\" av_cid(\"ACI\") #> [1] 135398513 av_synonyms(\"ACI\") #>  [1] \"acicloftal\"        \"aciclovier\"        \"aciclovirum\"       #>  [4] \"activir\"           \"acyclofoam\"        \"acycloguanosine\"   #>  [7] \"acyclovir\"         \"acyclovir lauriad\" \"avaclyr\"           #> [10] \"cargosil\"          \"cyclovir\"          \"genvir\"            #> [13] \"gerpevir\"          \"hascovir\"          \"maynar\"            #> [16] \"novirus\"           \"poviral\"           \"sitavig\"           #> [19] \"sitavir\"           \"vipral\"            \"viropump\"          #> [22] \"virorax\"           \"zovirax\"           \"zyclir\"            av_tradenames(\"ACI\") #>  [1] \"acicloftal\"        \"aciclovier\"        \"aciclovirum\"       #>  [4] \"activir\"           \"acyclofoam\"        \"acycloguanosine\"   #>  [7] \"acyclovir\"         \"acyclovir lauriad\" \"avaclyr\"           #> [10] \"cargosil\"          \"cyclovir\"          \"genvir\"            #> [13] \"gerpevir\"          \"hascovir\"          \"maynar\"            #> [16] \"novirus\"           \"poviral\"           \"sitavig\"           #> [19] \"sitavir\"           \"vipral\"            \"viropump\"          #> [22] \"virorax\"           \"zovirax\"           \"zyclir\"            av_group(\"ACI\") #> [1] \"Nucleosides and nucleotides excl. reverse transcriptase inhibitors\" av_url(\"ACI\") #>                                                             Aciclovir  #> \"https://www.whocc.no/atc_ddd_index/?code=J05AB01&showdescription=no\"   # lowercase transformation av_name(x = c(\"ACI\", \"VALA\")) #> [1] \"Aciclovir\"    \"Valaciclovir\" av_name(x = c(\"ACI\", \"VALA\"), tolower = TRUE) #> [1] \"aciclovir\"    \"valaciclovir\"  # defined daily doses (DDD) av_ddd(\"ACI\", \"oral\") #> [1] 4 av_ddd_units(\"ACI\", \"oral\") #> [1] \"g\" av_ddd(\"ACI\", \"iv\") #> [1] 4 av_ddd_units(\"ACI\", \"iv\") #> [1] \"g\"  av_info(\"ACI\") # all properties as a list #> $av #> [1] \"ACI\" #>  #> $cid #> [1] 135398513 #>  #> $name #> [1] \"Aciclovir\" #>  #> $group #> [1] \"Nucleosides and nucleotides excl. reverse transcriptase inhibitors\" #>  #> $atc #> [1] \"J05AB01\" #>  #> $tradenames #>  [1] \"acicloftal\"        \"aciclovier\"        \"aciclovirum\"       #>  [4] \"activir\"           \"acyclofoam\"        \"acycloguanosine\"   #>  [7] \"acyclovir\"         \"acyclovir lauriad\" \"avaclyr\"           #> [10] \"cargosil\"          \"cyclovir\"          \"genvir\"            #> [13] \"gerpevir\"          \"hascovir\"          \"maynar\"            #> [16] \"novirus\"           \"poviral\"           \"sitavig\"           #> [19] \"sitavir\"           \"vipral\"            \"viropump\"          #> [22] \"virorax\"           \"zovirax\"           \"zyclir\"            #>  #> $loinc #> [1] \"\" #>  #> $ddd #> $ddd$oral #> $ddd$oral$amount #> [1] 4 #>  #> $ddd$oral$units #> [1] \"g\" #>  #>  #> $ddd$iv #> $ddd$iv$amount #> [1] 4 #>  #> $ddd$iv$units #> [1] \"g\" #>  #>  #>   # all av_* functions use as.av() internally, so you can go from 'any' to 'any': av_atc(\"ACI\") #> [1] \"J05AB01\" av_group(\"J05AB01\") #> [1] \"Nucleosides and nucleotides excl. reverse transcriptase inhibitors\" av_loinc(\"abacavir\") #> [1] \"29113-8\" \"30273-7\" \"30287-7\" \"30303-2\" \"78772-1\" \"78773-9\" \"79134-3\" #> [8] \"80118-3\" av_name(\"29113-8\") #> [1] \"Abacavir\" av_name(135398513) #> [1] \"Aciclovir\" av_name(\"J05AB01\") #> [1] \"Aciclovir\""},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":null,"dir":"Reference","previous_headings":"","what":"Check Availability of Columns — availability","title":"Check Availability of Columns — availability","text":"Easy check data availability columns data set. makes easy get idea antimicrobial combinations can used calculation e.g. susceptibility() resistance().","code":""},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Check Availability of Columns — availability","text":"","code":"availability(tbl, width = NULL)"},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Check Availability of Columns — availability","text":"tbl data.frame list width number characters present visual availability - default filling width console","code":""},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Check Availability of Columns — availability","text":"data.frame column names tbl row names","code":""},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Check Availability of Columns — availability","text":"function returns data.frame columns \"resistant\" \"visual_resistance\". values columns calculated resistance().","code":""},{"path":"https://msberends.github.io/AMR/reference/availability.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Check Availability of Columns — availability","text":"","code":"availability(example_isolates) #>         count available     visual_availabilty resistant      visual_resistance #> date     2000    100.0% |####################|                                  #> patient  2000    100.0% |####################|                                  #> age      2000    100.0% |####################|                                  #> gender   2000    100.0% |####################|                                  #> ward     2000    100.0% |####################|                                  #> mo       2000    100.0% |####################|                                  #> PEN      1629     81.5% |################----|     73.7% |##############------| #> OXA       365     18.3% |###-----------------|     31.2% |######--------------| #> FLC       943     47.2% |#########-----------|     29.5% |#####---------------| #> AMX      1350     67.5% |#############-------|     59.6% |###########---------| #> AMC      1879     94.0% |##################--|     23.7% |####----------------| #> AMP      1350     67.5% |#############-------|     59.6% |###########---------| #> TZP      1001     50.0% |##########----------|     12.6% |##------------------| #> CZO       446     22.3% |####----------------|     44.6% |########------------| #> FEP       724     36.2% |#######-------------|     14.2% |##------------------| #> CXM      1789     89.5% |#################---|     26.3% |#####---------------| #> FOX       818     40.9% |########------------|     27.4% |#####---------------| #> CTX       943     47.2% |#########-----------|     15.5% |###-----------------| #> CAZ      1811     90.6% |##################--|     66.5% |#############-------| #> CRO       943     47.2% |#########-----------|     15.5% |###-----------------| #> GEN      1855     92.8% |##################--|     24.6% |####----------------| #> TOB      1351     67.6% |#############-------|     34.4% |######--------------| #> AMK       692     34.6% |######--------------|     63.7% |############--------| #> KAN       471     23.6% |####----------------|    100.0% |####################| #> TMP      1499     75.0% |###############-----|     38.1% |#######-------------| #> SXT      1759     88.0% |#################---|     20.5% |####----------------| #> NIT       743     37.2% |#######-------------|     17.1% |###-----------------| #> FOS       351     17.6% |###-----------------|     42.2% |########------------| #> LNZ      1023     51.2% |##########----------|     69.3% |#############-------| #> CIP      1409     70.5% |#############-------|     16.2% |###-----------------| #> MFX       211     10.6% |##------------------|     33.6% |######--------------| #> VAN      1861     93.1% |##################--|     38.3% |#######-------------| #> TEC       976     48.8% |#########-----------|     75.7% |###############-----| #> TCY      1200     60.0% |###########---------|     29.8% |#####---------------| #> TGC       798     39.9% |########------------|     12.7% |##------------------| #> DOX      1136     56.8% |###########---------|     27.7% |#####---------------| #> ERY      1894     94.7% |##################--|     57.2% |###########---------| #> CLI      1520     76.0% |###############-----|     61.2% |############--------| #> AZM      1894     94.7% |##################--|     57.2% |###########---------| #> IPM       889     44.5% |########------------|      6.2% |#-------------------| #> MEM       829     41.5% |########------------|      5.9% |#-------------------| #> MTR        34      1.7% |--------------------|     14.7% |##------------------| #> CHL       154      7.7% |#-------------------|     21.4% |####----------------| #> COL      1640     82.0% |################----|     81.2% |################----| #> MUP       270     13.5% |##------------------|      5.9% |#-------------------| #> RIF      1003     50.2% |##########----------|     69.6% |#############-------| # \\donttest{ if (require(\"dplyr\")) {   example_isolates %>%     filter(mo == as.mo(\"Escherichia coli\")) %>%     select_if(is.sir) %>%     availability() } #>     count available       visual_availabilty resistant        visual_resistance #> PEN   467    100.0% |######################|    100.0% |######################| #> OXA     0      0.0% |----------------------|                                    #> FLC     0      0.0% |----------------------|                                    #> AMX   392     83.9% |##################----|     50.0% |###########-----------| #> AMC   467    100.0% |######################|     13.1% |##--------------------| #> AMP   392     83.9% |##################----|     50.0% |###########-----------| #> TZP   416     89.1% |###################---|      5.5% |#---------------------| #> CZO    82     17.6% |###-------------------|      2.4% |----------------------| #> FEP   317     67.9% |##############--------|      2.8% |----------------------| #> CXM   465     99.6% |######################|      5.4% |#---------------------| #> FOX   377     80.7% |#################-----|      6.9% |#---------------------| #> CTX   459     98.3% |#####################-|      2.4% |----------------------| #> CAZ   460     98.5% |#####################-|      2.4% |----------------------| #> CRO   459     98.3% |#####################-|      2.4% |----------------------| #> GEN   460     98.5% |#####################-|      2.0% |----------------------| #> TOB   462     98.9% |#####################-|      2.6% |----------------------| #> AMK   171     36.6% |########--------------|      0.0% |----------------------| #> KAN     0      0.0% |----------------------|                                    #> TMP   396     84.8% |##################----|     39.1% |########--------------| #> SXT   465     99.6% |######################|     31.6% |######----------------| #> NIT   458     98.1% |#####################-|      2.8% |----------------------| #> FOS    61     13.1% |##--------------------|      0.0% |----------------------| #> LNZ   467    100.0% |######################|    100.0% |######################| #> CIP   456     97.6% |#####################-|     12.5% |##--------------------| #> MFX    57     12.2% |##--------------------|    100.0% |######################| #> VAN   467    100.0% |######################|    100.0% |######################| #> TEC   467    100.0% |######################|    100.0% |######################| #> TCY     3      0.6% |----------------------|     66.7% |##############--------| #> TGC    68     14.6% |###-------------------|      0.0% |----------------------| #> DOX     0      0.0% |----------------------|                                    #> ERY   467    100.0% |######################|    100.0% |######################| #> CLI   467    100.0% |######################|    100.0% |######################| #> AZM   467    100.0% |######################|    100.0% |######################| #> IPM   422     90.4% |###################---|      0.0% |----------------------| #> MEM   418     89.5% |###################---|      0.0% |----------------------| #> MTR     2      0.4% |----------------------|      0.0% |----------------------| #> CHL     0      0.0% |----------------------|                                    #> COL   240     51.4% |###########-----------|      0.0% |----------------------| #> MUP     0      0.0% |----------------------|                                    #> RIF   467    100.0% |######################|    100.0% |######################| # }"},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":null,"dir":"Reference","previous_headings":"","what":"Determine Bug-Drug Combinations — bug_drug_combinations","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"Determine antimicrobial resistance (AMR) bug-drug combinations data set least 30 (default) isolates available per species. Use format() result prettify publishable/printable format, see Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"","code":"bug_drug_combinations(x, col_mo = NULL, FUN = mo_shortname, ...)  # S3 method for bug_drug_combinations format(   x,   translate_ab = \"name (ab, atc)\",   language = get_AMR_locale(),   minimum = 30,   combine_SI = TRUE,   add_ab_group = TRUE,   remove_intrinsic_resistant = FALSE,   decimal.mark = getOption(\"OutDec\"),   big.mark = ifelse(decimal.mark == \",\", \".\", \",\"),   ... )"},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"x data set antibiotic columns, amox, AMX AMC col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). FUN function call mo column transform microorganism codes - default mo_shortname() ... arguments passed FUN translate_ab character length 1 containing column names antibiotics data set language language returned text - default current system language (see get_AMR_locale()) can also set package option AMR_locale. Use language = NULL language = \"\" prevent translation. minimum minimum allowed number available (tested) isolates. isolate count lower minimum return NA warning. default number 30 isolates advised Clinical Laboratory Standards Institute (CLSI) best practice, see Source. combine_SI logical indicate whether values S summed, resistance based R - default TRUE add_ab_group logical indicate group antimicrobials must included first column remove_intrinsic_resistant logical indicate rows columns 100% resistance tested antimicrobials must removed table decimal.mark character used indicate numeric     decimal point. big.mark character; empty used mark every     big.interval decimals (hence big)     decimal point.","code":""},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"function bug_drug_combinations() returns data.frame columns \"mo\", \"ab\", \"S\", \"\", \"R\" \"total\".","code":""},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"function format() calculates resistance per bug-drug combination returns table ready reporting/publishing. Use combine_SI = TRUE (default) test R vs. S+combine_SI = FALSE test R+vs. S. table can also directly used R Markdown / Quarto without need e.g. knitr::kable().","code":""},{"path":"https://msberends.github.io/AMR/reference/bug_drug_combinations.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Determine Bug-Drug Combinations — bug_drug_combinations","text":"","code":"# example_isolates is a data set available in the AMR package. # run ?example_isolates for more info. example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 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 × 6 #>   mo                ab        S     I     R total #>   <chr>             <chr> <int> <int> <int> <int> #> 1 (unknown species) AMC      15     0     0    15 #> 2 (unknown species) AMK       0     0     0     0 #> 3 (unknown species) AMP      15     0     1    16 #> 4 (unknown species) AMX      15     0     1    16 #> 5 (unknown species) AZM       3     0     3     6 #> 6 (unknown species) CAZ       0     0     0     0 #> Use 'format()' on this result to get a publishable/printable format. format(x, translate_ab = \"name (atc)\") #> # A tibble: 39 × 12 #>    Group     Drug  CoNS  `E. coli` `E. faecalis` `K. pneumoniae` `P. aeruginosa` #>    <chr>     <chr> <chr> <chr>     <chr>         <chr>           <chr>           #>  1 \"Aminogl… Amik… \"100… \"  0.0% … \"100.0% (39/… \"\"              \"\"              #>  2 \"\"        Gent… \" 13… \"  2.0% … \"100.0% (39/… \" 10.3% (6/58)\" \"  0.0% (0/30)\" #>  3 \"\"        Kana… \"100… \"\"        \"100.0% (39/… \"\"              \"100.0% (30/30… #>  4 \"\"        Tobr… \" 78… \"  2.6% … \"100.0% (39/… \" 10.3% (6/58)\" \"  0.0% (0/30)\" #>  5 \"Ampheni… Chlo… \"\"    \"\"        \"\"            \"\"              \"100.0% (30/30… #>  6 \"Antimyc… Rifa… \"\"    \"100.0% … \"\"            \"100.0% (58/58… \"100.0% (30/30… #>  7 \"Beta-la… Amox… \" 93… \" 50.0% … \"\"            \"100.0% (58/58… \"100.0% (30/30… #>  8 \"\"        Amox… \" 42… \" 13.1% … \"\"            \" 10.3% (6/58)\" \"100.0% (30/30… #>  9 \"\"        Ampi… \" 93… \" 50.0% … \"\"            \"100.0% (58/58… \"100.0% (30/30… #> 10 \"\"        Benz… \" 77… \"100.0% … \"\"            \"100.0% (58/58… \"100.0% (30/30… #> # ℹ 29 more rows #> # ℹ 5 more variables: `P. mirabilis` <chr>, `S. aureus` <chr>, #> #   `S. epidermidis` <chr>, `S. hominis` <chr>, `S. pneumoniae` <chr>  # Use FUN to change to transformation of microorganism codes bug_drug_combinations(example_isolates,   FUN = mo_gramstain ) #> # A tibble: 80 × 6 #>    mo            ab        S     I     R total #>  * <chr>         <chr> <int> <int> <int> <int> #>  1 Gram-negative AMC     463    89   174   726 #>  2 Gram-negative AMK     251     0     5   256 #>  3 Gram-negative AMP     226     0   405   631 #>  4 Gram-negative AMX     226     0   405   631 #>  5 Gram-negative AZM       1     2   696   699 #>  6 Gram-negative CAZ     607     0    27   634 #>  7 Gram-negative CHL       1     0    30    31 #>  8 Gram-negative CIP     610    11    63   684 #>  9 Gram-negative CLI      18     1   709   728 #> 10 Gram-negative COL     309     0    78   387 #> # ℹ 70 more rows #> Use 'format()' on this result to get a publishable/printable format.  bug_drug_combinations(example_isolates,   FUN = function(x) {     ifelse(x == as.mo(\"Escherichia coli\"),       \"E. coli\",       \"Others\"     )   } ) #> # A tibble: 80 × 6 #>    mo      ab        S     I     R total #>  * <chr>   <chr> <int> <int> <int> <int> #>  1 E. coli AMC     332    74    61   467 #>  2 E. coli AMK     171     0     0   171 #>  3 E. coli AMP     196     0   196   392 #>  4 E. coli AMX     196     0   196   392 #>  5 E. coli AZM       0     0   467   467 #>  6 E. coli CAZ     449     0    11   460 #>  7 E. coli CHL       0     0     0     0 #>  8 E. coli CIP     398     1    57   456 #>  9 E. coli CLI       0     0   467   467 #> 10 E. coli COL     240     0     0   240 #> # ℹ 70 more rows #> Use 'format()' on this result to get a publishable/printable format. # }"},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"Data set containing clinical breakpoints interpret MIC disk diffusion SIR values, according international guidelines. Currently implemented guidelines EUCAST (2011-2023) CLSI (2011-2023). Use .sir() transform MICs disks measurements SIR values.","code":""},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"","code":"clinical_breakpoints"},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"tibble 29 747 observations 12 variables: guideline Name guideline type Breakpoint type, either \"ECOFF\", \"animal\", \"human\" method Testing method, either \"DISK\" \"MIC\" site Body site breakpoint must applied, e.g. \"Oral\" \"Respiratory\" mo Microbial ID, see .mo() rank_index Taxonomic rank index mo 1 (subspecies/infraspecies) 5 (unknown microorganism) ab Antibiotic code used package, EARS-Net WHONET, see .ab() ref_tbl Info guideline rule can found disk_dose Dose used disk diffusion method breakpoint_S Lowest MIC value highest number millimetres leads \"S\" breakpoint_R Highest MIC value lowest number millimetres leads \"R\" uti logical value (TRUE/FALSE) indicate whether rule applies urinary tract infection (UTI)","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":"different-types-of-breakpoints","dir":"Reference","previous_headings":"","what":"Different types of breakpoints","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"Supported types breakpoints ECOFF, animal, human. ECOFF (Epidemiological cut-) values used antimicrobial susceptibility testing differentiate wild-type non-wild-type strains bacteria fungi. default \"human\", can also set package option AMR_breakpoint_type. Use .sir(..., breakpoint_type = ...) interpret raw data using specific breakpoint type, e.g. .sir(..., breakpoint_type = \"ECOFF\") use ECOFFs.","code":""},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":"imported-from-whonet","dir":"Reference","previous_headings":"","what":"Imported from WHONET","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"Clinical breakpoints package validated imported WHONET, free desktop Windows application developed supported Collaborating Centre Surveillance Antimicrobial Resistance. can read website. developers WHONET AMR package contact sharing work. highly appreciate development WHONET software.","code":""},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":"response-from-clsi-and-eucast","dir":"Reference","previous_headings":"","what":"Response from CLSI and EUCAST","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"CEO CLSI chairman EUCAST endorsed work public use AMR package (consequently use breakpoints) June 2023, future development distributing clinical breakpoints discussed meeting CLSI, EUCAST, , developers WHONET AMR package.","code":""},{"path":"https://msberends.github.io/AMR/reference/clinical_breakpoints.html","id":"download","dir":"Reference","previous_headings":"","what":"Download","title":"Data Set with Clinical Breakpoints for SIR Interpretation — clinical_breakpoints","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository. allow machine reading EUCAST CLSI guidelines, almost impossible MS Excel PDF files distributed EUCAST CLSI, though initiatives started overcome burdens. NOTE: AMR package (WHONET software well) contains internal methods apply guidelines, rather complex. example, breakpoints must applied certain species groups (case package available microorganisms.groups data set). important considered using breakpoints use.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/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: 29,747 × 12 #>    guideline type  method site  mo            rank_index ab   ref_tbl  disk_dose #>    <chr>     <chr> <chr>  <chr> <mo>               <dbl> <ab> <chr>    <chr>     #>  1 EUCAST 2… human DISK   NA    B_ACHRMB_XYLS          2 MEM  A. xylo… 10ug      #>  2 EUCAST 2… human MIC    NA    B_ACHRMB_XYLS          2 MEM  A. xylo… NA        #>  3 EUCAST 2… human DISK   NA    B_ACHRMB_XYLS          2 SXT  A. xylo… 1.25ug/2… #>  4 EUCAST 2… human MIC    NA    B_ACHRMB_XYLS          2 SXT  A. xylo… NA        #>  5 EUCAST 2… human DISK   NA    B_ACHRMB_XYLS          2 TZP  A. xylo… 30ug/6ug  #>  6 EUCAST 2… human MIC    NA    B_ACHRMB_XYLS          2 TZP  A. xylo… NA        #>  7 EUCAST 2… human DISK   NA    B_ACNTB                3 AMK  Acineto… 30ug      #>  8 EUCAST 2… human DISK   Unco… B_ACNTB                3 AMK  Acineto… 30ug      #>  9 EUCAST 2… human MIC    NA    B_ACNTB                3 AMK  Acineto… NA        #> 10 EUCAST 2… human MIC    Unco… B_ACNTB                3 AMK  Acineto… NA        #> # ℹ 29,737 more rows #> # ℹ 3 more variables: breakpoint_S <dbl>, breakpoint_R <dbl>, uti <lgl>"},{"path":"https://msberends.github.io/AMR/reference/count.html","id":null,"dir":"Reference","previous_headings":"","what":"Count Available Isolates — count","title":"Count Available Isolates — count","text":"functions can used count resistant/susceptible microbial isolates. functions support quasiquotation pipes, can used summarise() dplyr package also support grouped variables, see Examples. count_resistant() used count resistant isolates, count_susceptible() used count susceptible isolates.","code":""},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Count Available Isolates — count","text":"","code":"count_resistant(..., only_all_tested = FALSE)  count_susceptible(..., only_all_tested = FALSE)  count_R(..., only_all_tested = FALSE)  count_IR(..., only_all_tested = FALSE)  count_I(..., only_all_tested = FALSE)  count_SI(..., only_all_tested = FALSE)  count_S(..., only_all_tested = FALSE)  count_all(..., only_all_tested = FALSE)  n_sir(..., only_all_tested = FALSE)  count_df(   data,   translate_ab = \"name\",   language = get_AMR_locale(),   combine_SI = TRUE )"},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Count Available Isolates — count","text":"... one vectors (columns) antibiotic interpretations. transformed internally .sir() needed. only_all_tested (combination therapies, .e. using one variable ...): logical indicate isolates must tested antibiotics, see section Combination Therapy data data.frame containing columns class sir (see .sir()) translate_ab column name antibiotics data set translate antibiotic abbreviations , using ab_property() language language returned text - default current system language (see get_AMR_locale()) can also set package option AMR_locale. Use language = NULL language = \"\" prevent translation. combine_SI logical indicate whether values S must merged one, output consists S+vs. R (susceptible vs. resistant) - default TRUE","code":""},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Count Available Isolates — count","text":"integer","code":""},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Count Available Isolates — count","text":"functions meant count isolates. Use resistance()/susceptibility() functions calculate microbial resistance/susceptibility. function count_resistant() equal function count_R(). function count_susceptible() equal function count_SI(). function n_sir() alias count_all(). can used count available isolates, .e. input antibiotics available result (S, R). use equal n_distinct(). function equal count_susceptible(...) + count_resistant(...). function count_df() takes variable data sir class (created .sir()) counts number S's, 's R's. also supports grouped variables. function sir_df() works exactly like count_df(), adds percentage S, R.","code":""},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"interpretation-of-sir","dir":"Reference","previous_headings":"","what":"Interpretation of SIR","title":"Count Available Isolates — count","text":"2019, European Committee Antimicrobial Susceptibility Testing (EUCAST) decided change definitions susceptibility testing categories S, , R shown (https://www.eucast.org/newsiandr): S - Susceptible, standard dosing regimen microorganism categorised \"Susceptible, standard dosing regimen\", high likelihood therapeutic success using standard dosing regimen agent. - Susceptible, increased exposure  microorganism categorised \"Susceptible, Increased exposure\" high likelihood therapeutic success exposure agent increased adjusting dosing regimen concentration site infection. R = Resistant microorganism categorised \"Resistant\" high likelihood therapeutic failure even increased exposure. Exposure function mode administration, dose, dosing interval, infusion time, well distribution excretion antimicrobial agent influence infecting organism site infection. AMR package honours insight. Use susceptibility() (equal proportion_SI()) determine antimicrobial susceptibility count_susceptible() (equal count_SI()) count susceptible isolates.","code":""},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"combination-therapy","dir":"Reference","previous_headings":"","what":"Combination Therapy","title":"Count Available Isolates — count","text":"using one variable ... (= combination therapy), use only_all_tested count isolates tested antibiotics/variables test . See example two antibiotics, Drug Drug B, susceptibility() works calculate %SI:   Please note , combination therapies, only_all_tested = TRUE applies :   , combination therapies, only_all_tested = FALSE applies :   Using only_all_tested impact using one antibiotic input.","code":"--------------------------------------------------------------------                     only_all_tested = FALSE  only_all_tested = TRUE                     -----------------------  -----------------------  Drug A    Drug B   include as  include as   include as  include as                     numerator   denominator  numerator   denominator --------  --------  ----------  -----------  ----------  -----------  S or I    S or I       X            X            X            X    R       S or I       X            X            X            X   <NA>     S or I       X            X            -            -  S or I      R          X            X            X            X    R         R          -            X            -            X   <NA>       R          -            -            -            -  S or I     <NA>        X            X            -            -    R        <NA>        -            -            -            -   <NA>      <NA>        -            -            -            - -------------------------------------------------------------------- count_S()    +   count_I()    +   count_R()    = count_all()   proportion_S() + proportion_I() + proportion_R() = 1 count_S()    +   count_I()    +   count_R()    >= count_all()   proportion_S() + proportion_I() + proportion_R() >= 1"},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/count.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Count Available Isolates — count","text":"","code":"# example_isolates is a data set available in the AMR package. # run ?example_isolates for more info.  # base R ------------------------------------------------------------ count_resistant(example_isolates$AMX) # counts \"R\" #> [1] 804 count_susceptible(example_isolates$AMX) # counts \"S\" and \"I\" #> [1] 546 count_all(example_isolates$AMX) # counts \"S\", \"I\" and \"R\" #> [1] 1350  # be more specific count_S(example_isolates$AMX) #> Using count_S() is discouraged; use count_susceptible() instead to also #> consider \"I\" being susceptible. This note will be shown once for this #> session. #> [1] 543 count_SI(example_isolates$AMX) #> [1] 546 count_I(example_isolates$AMX) #> [1] 3 count_IR(example_isolates$AMX) #> Using count_IR() is discouraged; use count_resistant() instead to not #> consider \"I\" being resistant. This note will be shown once for this #> session. #> [1] 807 count_R(example_isolates$AMX) #> [1] 804  # Count all available isolates count_all(example_isolates$AMX) #> [1] 1350 n_sir(example_isolates$AMX) #> [1] 1350  # n_sir() is an alias of count_all(). # Since it counts all available isolates, you can # calculate back to count e.g. susceptible isolates. # These results are the same: count_susceptible(example_isolates$AMX) #> [1] 546 susceptibility(example_isolates$AMX) * n_sir(example_isolates$AMX) #> [1] 546  # dplyr ------------------------------------------------------------- # \\donttest{ if (require(\"dplyr\")) {   example_isolates %>%     group_by(ward) %>%     summarise(       R = count_R(CIP),       I = count_I(CIP),       S = count_S(CIP),       n1 = count_all(CIP), # the actual total; sum of all three       n2 = n_sir(CIP), # same - analogous to n_distinct       total = n()     ) # NOT the number of tested isolates!    # Number of available isolates for a whole antibiotic class   # (i.e., in this data set columns GEN, TOB, AMK, KAN)   example_isolates %>%     group_by(ward) %>%     summarise(across(aminoglycosides(), n_sir))    # Count co-resistance between amoxicillin/clav acid and gentamicin,   # so we can see that combination therapy does a lot more than mono therapy.   # Please mind that `susceptibility()` calculates percentages right away instead.   example_isolates %>% count_susceptible(AMC) # 1433   example_isolates %>% count_all(AMC) # 1879    example_isolates %>% count_susceptible(GEN) # 1399   example_isolates %>% count_all(GEN) # 1855    example_isolates %>% count_susceptible(AMC, GEN) # 1764   example_isolates %>% count_all(AMC, GEN) # 1936    # Get number of S+I vs. R immediately of selected columns   example_isolates %>%     select(AMX, CIP) %>%     count_df(translate = FALSE)    # It also supports grouping variables   example_isolates %>%     select(ward, AMX, CIP) %>%     group_by(ward) %>%     count_df(translate = FALSE) } #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> # A tibble: 12 × 4 #>    ward       antibiotic interpretation value #>  * <chr>      <chr>      <ord>          <int> #>  1 Clinical   AMX        SI               357 #>  2 Clinical   AMX        R                487 #>  3 Clinical   CIP        SI               741 #>  4 Clinical   CIP        R                128 #>  5 ICU        AMX        SI               158 #>  6 ICU        AMX        R                270 #>  7 ICU        CIP        SI               362 #>  8 ICU        CIP        R                 85 #>  9 Outpatient AMX        SI                31 #> 10 Outpatient AMX        R                 47 #> 11 Outpatient CIP        SI                78 #> 12 Outpatient CIP        R                 15 # }"},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":null,"dir":"Reference","previous_headings":"","what":"Define Custom EUCAST Rules — custom_eucast_rules","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"Define custom EUCAST rules organisation specific analysis use output function eucast_rules().","code":""},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"","code":"custom_eucast_rules(...)"},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"... rules formula notation, see Examples","code":""},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"list containing custom rules","code":""},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"organisations adoption EUCAST rules. function can used define custom EUCAST rules used eucast_rules() function.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"basics","dir":"Reference","previous_headings":"","what":"Basics","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"familiar case_when() function dplyr package, recognise input method set rules. Rules must set using R considers 'formula notation'. rule written tilde (~) consequence rule written tilde:   two custom EUCAST rules: TZP (piperacillin/tazobactam) \"S\", aminopenicillins (ampicillin amoxicillin) must made \"S\", TZP \"R\", aminopenicillins must made \"R\". rules can also printed console, immediately clear work:   rules (part tilde, example TZP == \"S\" TZP == \"R\") must evaluable data set: able run filter data set without errors. means example column TZP must exist. create sample data set test rules set:","code":"x <- custom_eucast_rules(TZP == \"S\" ~ aminopenicillins == \"S\",                          TZP == \"R\" ~ aminopenicillins == \"R\") x #> A set of custom EUCAST rules: #> #>   1. If TZP is \"S\" then set to  S : #>      amoxicillin (AMX), ampicillin (AMP) #> #>   2. If TZP is \"R\" then set to  R : #>      amoxicillin (AMX), ampicillin (AMP) df <- data.frame(mo = c(\"Escherichia coli\", \"Klebsiella pneumoniae\"),                  TZP = as.sir(\"R\"),                  ampi = as.sir(\"S\"),                  cipro = as.sir(\"S\")) df #>                      mo TZP ampi cipro #> 1      Escherichia coli   R    S     S #> 2 Klebsiella pneumoniae   R    S     S  eucast_rules(df, rules = \"custom\", custom_rules = x, info = FALSE) #>                      mo TZP ampi cipro #> 1      Escherichia coli   R    R     S #> 2 Klebsiella pneumoniae   R    R     S"},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"using-taxonomic-properties-in-rules","dir":"Reference","previous_headings":"","what":"Using taxonomic properties in rules","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"one exception columns used rules: column names microorganisms data set can also used, exist data set. column names : \"mo\", \"fullname\", \"status\", \"kingdom\", \"phylum\", \"class\", \"order\", \"family\", \"genus\", \"species\", \"subspecies\", \"rank\", \"ref\", \"oxygen_tolerance\", \"source\", \"lpsn\", \"lpsn_parent\", \"lpsn_renamed_to\", \"gbif\", \"gbif_parent\", \"gbif_renamed_to\", \"prevalence\", \"snomed\". Thus, next example work well, despite fact df data set contain column genus:","code":"y <- custom_eucast_rules(TZP == \"S\" & genus == \"Klebsiella\" ~ aminopenicillins == \"S\",                          TZP == \"R\" & genus == \"Klebsiella\" ~ aminopenicillins == \"R\")  eucast_rules(df, rules = \"custom\", custom_rules = y, info = FALSE) #>                      mo TZP ampi cipro #> 1      Escherichia coli   R    S     S #> 2 Klebsiella pneumoniae   R    R     S"},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"usage-of-antibiotic-group-names","dir":"Reference","previous_headings":"","what":"Usage of antibiotic group names","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"possible define antibiotic groups instead single antibiotics rule consequence, part tilde. examples, antibiotic group aminopenicillins used include ampicillin amoxicillin. following groups allowed (case-insensitive). Within parentheses drugs matched running rule. \"aminoglycosides\"(amikacin, amikacin/fosfomycin, amphotericin B-high, apramycin, arbekacin, astromicin, bekanamycin, dibekacin, framycetin, gentamicin, gentamicin-high, habekacin, hygromycin, isepamicin, kanamycin, kanamycin-high, kanamycin/cephalexin, micronomicin, neomycin, netilmicin, pentisomicin, plazomicin, propikacin, ribostamycin, sisomicin, streptoduocin, streptomycin, streptomycin-high, tobramycin, tobramycin-high) \"aminopenicillins\"(amoxicillin ampicillin) \"antifungals\"(amphotericin B, anidulafungin, butoconazole, caspofungin, ciclopirox, clotrimazole, econazole, fluconazole, flucytosine, fosfluconazole, griseofulvin, hachimycin, ibrexafungerp, isavuconazole, isoconazole, itraconazole, ketoconazole, manogepix, micafungin, miconazole, nystatin, oteseconazole, pimaricin, posaconazole, rezafungin, ribociclib, sulconazole, terbinafine, terconazole, voriconazole) \"antimycobacterials\"(4-aminosalicylic acid, calcium aminosalicylate, capreomycin, clofazimine, delamanid, enviomycin, ethambutol, ethambutol/isoniazid, ethionamide, isoniazid, isoniazid/sulfamethoxazole/trimethoprim/pyridoxine, morinamide, p-aminosalicylic acid, pretomanid, protionamide, pyrazinamide, rifabutin, rifampicin, rifampicin/ethambutol/isoniazid, rifampicin/isoniazid, rifampicin/pyrazinamide/ethambutol/isoniazid, rifampicin/pyrazinamide/isoniazid, rifamycin, rifapentine, simvastatin/fenofibrate, sodium aminosalicylate, streptomycin/isoniazid, terizidone, thioacetazone, thioacetazone/isoniazid, tiocarlide, viomycin) \"betalactams\"(amoxicillin, amoxicillin/clavulanic acid, amoxicillin/sulbactam, ampicillin, ampicillin/sulbactam, apalcillin, aspoxicillin, avibactam, azidocillin, azlocillin, aztreonam, aztreonam/avibactam, aztreonam/nacubactam, bacampicillin, benzathine benzylpenicillin, benzathine phenoxymethylpenicillin, benzylpenicillin, biapenem, carbenicillin, carindacillin, cefacetrile, cefaclor, cefadroxil, cefalexin, cefaloridine, cefalotin, cefamandole, cefapirin, cefatrizine, cefazedone, cefazolin, cefcapene, cefcapene pivoxil, cefdinir, cefditoren, cefditoren pivoxil, cefepime, cefepime/clavulanic acid, cefepime/nacubactam, cefepime/tazobactam, cefetamet, cefetamet pivoxil, cefetecol, cefetrizole, cefixime, cefmenoxime, cefmetazole, cefodizime, cefonicid, cefoperazone, cefoperazone/sulbactam, ceforanide, cefoselis, cefotaxime, cefotaxime/clavulanic acid, cefotaxime/sulbactam, cefotetan, cefotiam, cefotiam hexetil, cefovecin, cefoxitin, cefoxitin screening, cefozopran, cefpimizole, cefpiramide, cefpirome, cefpodoxime, cefpodoxime proxetil, cefpodoxime/clavulanic acid, cefprozil, cefquinome, cefroxadine, cefsulodin, cefsumide, ceftaroline, ceftaroline/avibactam, ceftazidime, ceftazidime/avibactam, ceftazidime/clavulanic acid, cefteram, cefteram pivoxil, ceftezole, ceftibuten, ceftiofur, ceftizoxime, ceftizoxime alapivoxil, ceftobiprole, ceftobiprole medocaril, ceftolozane/tazobactam, ceftriaxone, ceftriaxone/beta-lactamase inhibitor, cefuroxime, cefuroxime axetil, cephradine, ciclacillin, clometocillin, cloxacillin, dicloxacillin, doripenem, epicillin, ertapenem, flucloxacillin, hetacillin, imipenem, imipenem/EDTA, imipenem/relebactam, latamoxef, lenampicillin, loracarbef, mecillinam, meropenem, meropenem/nacubactam, meropenem/vaborbactam, metampicillin, meticillin, mezlocillin, mezlocillin/sulbactam, nacubactam, nafcillin, oxacillin, panipenem, penamecillin, penicillin/novobiocin, penicillin/sulbactam, pheneticillin, phenoxymethylpenicillin, piperacillin, piperacillin/sulbactam, piperacillin/tazobactam, piridicillin, pivampicillin, pivmecillinam, procaine benzylpenicillin, propicillin, razupenem, ritipenem, ritipenem acoxil, sarmoxicillin, sulbactam, sulbenicillin, sultamicillin, talampicillin, tazobactam, tebipenem, temocillin, ticarcillin, ticarcillin/clavulanic acid) \"carbapenems\"(biapenem, doripenem, ertapenem, imipenem, imipenem/EDTA, imipenem/relebactam, meropenem, meropenem/nacubactam, meropenem/vaborbactam, panipenem, razupenem, ritipenem, ritipenem acoxil, tebipenem) \"cephalosporins\"(cefacetrile, cefaclor, cefadroxil, cefalexin, cefaloridine, cefalotin, cefamandole, cefapirin, cefatrizine, cefazedone, cefazolin, cefcapene, cefcapene pivoxil, cefdinir, cefditoren, cefditoren pivoxil, cefepime, cefepime/clavulanic acid, cefepime/tazobactam, cefetamet, cefetamet pivoxil, cefetecol, cefetrizole, cefixime, cefmenoxime, cefmetazole, cefodizime, cefonicid, cefoperazone, cefoperazone/sulbactam, ceforanide, cefoselis, cefotaxime, cefotaxime/clavulanic acid, cefotaxime/sulbactam, cefotetan, cefotiam, cefotiam hexetil, cefovecin, cefoxitin, cefoxitin screening, cefozopran, cefpimizole, cefpiramide, cefpirome, cefpodoxime, cefpodoxime proxetil, cefpodoxime/clavulanic acid, cefprozil, cefquinome, cefroxadine, cefsulodin, cefsumide, ceftaroline, ceftaroline/avibactam, ceftazidime, ceftazidime/avibactam, ceftazidime/clavulanic acid, cefteram, cefteram pivoxil, ceftezole, ceftibuten, ceftiofur, ceftizoxime, ceftizoxime alapivoxil, ceftobiprole, ceftobiprole medocaril, ceftolozane/tazobactam, ceftriaxone, ceftriaxone/beta-lactamase inhibitor, cefuroxime, cefuroxime axetil, cephradine, latamoxef, loracarbef) \"cephalosporins_1st\"(cefacetrile, cefadroxil, cefalexin, cefaloridine, cefalotin, cefapirin, cefatrizine, cefazedone, cefazolin, cefroxadine, ceftezole, cephradine) \"cephalosporins_2nd\"(cefaclor, cefamandole, cefmetazole, cefonicid, ceforanide, cefotetan, cefotiam, cefoxitin, cefoxitin screening, cefprozil, cefuroxime, cefuroxime axetil, loracarbef) \"cephalosporins_3rd\"(cefcapene, cefcapene pivoxil, cefdinir, cefditoren, cefditoren pivoxil, cefetamet, cefetamet pivoxil, cefixime, cefmenoxime, cefodizime, cefoperazone, cefoperazone/sulbactam, cefotaxime, cefotaxime/clavulanic acid, cefotaxime/sulbactam, cefotiam hexetil, cefovecin, cefpimizole, cefpiramide, cefpodoxime, cefpodoxime proxetil, cefpodoxime/clavulanic acid, cefsulodin, ceftazidime, ceftazidime/avibactam, ceftazidime/clavulanic acid, cefteram, cefteram pivoxil, ceftibuten, ceftiofur, ceftizoxime, ceftizoxime alapivoxil, ceftriaxone, ceftriaxone/beta-lactamase inhibitor, latamoxef) \"cephalosporins_4th\"(cefepime, cefepime/clavulanic acid, cefepime/tazobactam, cefetecol, cefoselis, cefozopran, cefpirome, cefquinome) \"cephalosporins_5th\"(ceftaroline, ceftaroline/avibactam, ceftobiprole, ceftobiprole medocaril, ceftolozane/tazobactam) \"cephalosporins_except_caz\"(cefacetrile, cefaclor, cefadroxil, cefalexin, cefaloridine, cefalotin, cefamandole, cefapirin, cefatrizine, cefazedone, cefazolin, cefcapene, cefcapene pivoxil, cefdinir, cefditoren, cefditoren pivoxil, cefepime, cefepime/clavulanic acid, cefepime/tazobactam, cefetamet, cefetamet pivoxil, cefetecol, cefetrizole, cefixime, cefmenoxime, cefmetazole, cefodizime, cefonicid, cefoperazone, cefoperazone/sulbactam, ceforanide, cefoselis, cefotaxime, cefotaxime/clavulanic acid, cefotaxime/sulbactam, cefotetan, cefotiam, cefotiam hexetil, cefovecin, cefoxitin, cefoxitin screening, cefozopran, cefpimizole, cefpiramide, cefpirome, cefpodoxime, cefpodoxime proxetil, cefpodoxime/clavulanic acid, cefprozil, cefquinome, cefroxadine, cefsulodin, cefsumide, ceftaroline, ceftaroline/avibactam, ceftazidime/avibactam, ceftazidime/clavulanic acid, cefteram, cefteram pivoxil, ceftezole, ceftibuten, ceftiofur, ceftizoxime, ceftizoxime alapivoxil, ceftobiprole, ceftobiprole medocaril, ceftolozane/tazobactam, ceftriaxone, ceftriaxone/beta-lactamase inhibitor, cefuroxime, cefuroxime axetil, cephradine, latamoxef, loracarbef) \"fluoroquinolones\"(besifloxacin, ciprofloxacin, clinafloxacin, danofloxacin, delafloxacin, difloxacin, enoxacin, enrofloxacin, finafloxacin, fleroxacin, garenoxacin, gatifloxacin, gemifloxacin, grepafloxacin, lascufloxacin, levofloxacin, levonadifloxacin, lomefloxacin, marbofloxacin, metioxate, miloxacin, moxifloxacin, nadifloxacin, nifuroquine, norfloxacin, ofloxacin, orbifloxacin, pazufloxacin, pefloxacin, pradofloxacin, premafloxacin, prulifloxacin, rufloxacin, sarafloxacin, sitafloxacin, sparfloxacin, temafloxacin, tilbroquinol, tioxacin, tosufloxacin, trovafloxacin) \"glycopeptides\"(avoparcin, dalbavancin, norvancomycin, oritavancin, ramoplanin, teicoplanin, teicoplanin-macromethod, telavancin, vancomycin, vancomycin-macromethod) \"glycopeptides_except_lipo\"(avoparcin, norvancomycin, ramoplanin, teicoplanin, teicoplanin-macromethod, vancomycin, vancomycin-macromethod) \"lincosamides\"(acetylmidecamycin, acetylspiramycin, clindamycin, gamithromycin, kitasamycin, lincomycin, meleumycin, nafithromycin, pirlimycin, primycin, solithromycin, tildipirosin, tilmicosin, tulathromycin, tylosin, tylvalosin) \"lipoglycopeptides\"(dalbavancin, oritavancin, telavancin) \"macrolides\"(acetylmidecamycin, acetylspiramycin, azithromycin, clarithromycin, dirithromycin, erythromycin, flurithromycin, gamithromycin, josamycin, kitasamycin, meleumycin, midecamycin, miocamycin, nafithromycin, oleandomycin, pirlimycin, primycin, rokitamycin, roxithromycin, solithromycin, spiramycin, telithromycin, tildipirosin, tilmicosin, troleandomycin, tulathromycin, tylosin, tylvalosin) \"oxazolidinones\"(cadazolid, cycloserine, linezolid, tedizolid, thiacetazone) \"penicillins\"(amoxicillin, amoxicillin/clavulanic acid, amoxicillin/sulbactam, ampicillin, ampicillin/sulbactam, apalcillin, aspoxicillin, avibactam, azidocillin, azlocillin, aztreonam, aztreonam/avibactam, aztreonam/nacubactam, bacampicillin, benzathine benzylpenicillin, benzathine phenoxymethylpenicillin, benzylpenicillin, carbenicillin, carindacillin, cefepime/nacubactam, ciclacillin, clometocillin, cloxacillin, dicloxacillin, epicillin, flucloxacillin, hetacillin, lenampicillin, mecillinam, metampicillin, meticillin, mezlocillin, mezlocillin/sulbactam, nacubactam, nafcillin, oxacillin, penamecillin, penicillin/novobiocin, penicillin/sulbactam, pheneticillin, phenoxymethylpenicillin, piperacillin, piperacillin/sulbactam, piperacillin/tazobactam, piridicillin, pivampicillin, pivmecillinam, procaine benzylpenicillin, propicillin, sarmoxicillin, sulbactam, sulbenicillin, sultamicillin, talampicillin, tazobactam, temocillin, ticarcillin, ticarcillin/clavulanic acid) \"polymyxins\"(colistin, polymyxin B, polymyxin B/polysorbate 80) \"quinolones\"(besifloxacin, cinoxacin, ciprofloxacin, clinafloxacin, danofloxacin, delafloxacin, difloxacin, enoxacin, enrofloxacin, finafloxacin, fleroxacin, flumequine, garenoxacin, gatifloxacin, gemifloxacin, grepafloxacin, lascufloxacin, levofloxacin, levonadifloxacin, lomefloxacin, marbofloxacin, metioxate, miloxacin, moxifloxacin, nadifloxacin, nalidixic acid, nemonoxacin, nifuroquine, nitroxoline, norfloxacin, ofloxacin, orbifloxacin, oxolinic acid, pazufloxacin, pefloxacin, pipemidic acid, piromidic acid, pradofloxacin, premafloxacin, prulifloxacin, rosoxacin, rufloxacin, sarafloxacin, sitafloxacin, sparfloxacin, temafloxacin, tilbroquinol, tioxacin, tosufloxacin, trovafloxacin) \"streptogramins\"(pristinamycin quinupristin/dalfopristin) \"tetracyclines\"(cetocycline, chlortetracycline, clomocycline, demeclocycline, doxycycline, eravacycline, lymecycline, metacycline, minocycline, omadacycline, oxytetracycline, penimepicycline, rolitetracycline, sarecycline, tetracycline, tigecycline) \"tetracyclines_except_tgc\"(cetocycline, chlortetracycline, clomocycline, demeclocycline, doxycycline, eravacycline, lymecycline, metacycline, minocycline, omadacycline, oxytetracycline, penimepicycline, rolitetracycline, sarecycline, tetracycline) \"trimethoprims\"(brodimoprim, sulfadiazine, sulfadiazine/tetroxoprim, sulfadiazine/trimethoprim, sulfadimethoxine, sulfadimidine, sulfadimidine/trimethoprim, sulfafurazole, sulfaisodimidine, sulfalene, sulfamazone, sulfamerazine, sulfamerazine/trimethoprim, sulfamethizole, sulfamethoxazole, sulfamethoxypyridazine, sulfametomidine, sulfametoxydiazine, sulfametrole/trimethoprim, sulfamoxole, sulfamoxole/trimethoprim, sulfanilamide, sulfaperin, sulfaphenazole, sulfapyridine, sulfathiazole, sulfathiourea, trimethoprim, trimethoprim/sulfamethoxazole) \"ureidopenicillins\"(azlocillin, mezlocillin, piperacillin, piperacillin/tazobactam)","code":""},{"path":"https://msberends.github.io/AMR/reference/custom_eucast_rules.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Define Custom EUCAST Rules — custom_eucast_rules","text":"","code":"x <- custom_eucast_rules(   AMC == \"R\" & genus == \"Klebsiella\" ~ aminopenicillins == \"R\",   AMC == \"I\" & genus == \"Klebsiella\" ~ aminopenicillins == \"I\" ) x #> A set of custom EUCAST rules: #>  #>   1. If AMC is \"R\" and genus is \"Klebsiella\" then set to  R : #>      amoxicillin (AMX), ampicillin (AMP) #>  #>   2. If AMC is \"I\" and genus is \"Klebsiella\" then set to  I : #>      amoxicillin (AMX), ampicillin (AMP)  # run the custom rule set (verbose = TRUE will return a logbook instead of the data set): eucast_rules(example_isolates,   rules = \"custom\",   custom_rules = x,   info = FALSE,   verbose = TRUE ) #> # A tibble: 8 × 9 #>     row col   mo_fullname     old   new   rule  rule_group rule_name rule_source #>   <int> <chr> <chr>           <ord> <chr> <chr> <chr>      <chr>     <chr>       #> 1    33 AMP   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 2    33 AMX   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 3    34 AMP   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 4    34 AMX   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 5   531 AMP   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 6   531 AMX   Klebsiella pne… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 7  1485 AMP   Klebsiella oxy… R     I     \"rep… Custom EU… Custom E… Object 'x'… #> 8  1485 AMX   Klebsiella oxy… R     I     \"rep… Custom EU… Custom E… Object 'x'…  # combine rule sets x2 <- c(   x,   custom_eucast_rules(TZP == \"R\" ~ carbapenems == \"R\") ) x2 #> A set of custom EUCAST rules: #>  #>   1. If AMC is \"R\" and genus is \"Klebsiella\" then set to  R : #>      amoxicillin (AMX), ampicillin (AMP) #>  #>   2. If AMC is \"I\" and genus is \"Klebsiella\" then set to  I : #>      amoxicillin (AMX), ampicillin (AMP) #>  #>   3. If TZP is \"R\" then set to  R : #>      biapenem (BIA), doripenem (DOR), ertapenem (ETP), imipenem (IPM), #>      imipenem/EDTA (IPE), imipenem/relebactam (IMR), meropenem (MEM), #>      meropenem/nacubactam (MNC), meropenem/vaborbactam (MEV), panipenem (PAN), #>      razupenem (RZM), ritipenem (RIT), ritipenem acoxil (RIA), tebipenem (TBP)"},{"path":"https://msberends.github.io/AMR/reference/dosage.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with Treatment Dosages as Defined by EUCAST — dosage","title":"Data Set with Treatment Dosages as Defined by EUCAST — dosage","text":"EUCAST breakpoints used package based dosages data set. can retrieved eucast_dosage().","code":""},{"path":"https://msberends.github.io/AMR/reference/dosage.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with Treatment Dosages as Defined by EUCAST — dosage","text":"","code":"dosage"},{"path":"https://msberends.github.io/AMR/reference/dosage.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with Treatment Dosages as Defined by EUCAST — dosage","text":"tibble 503 observations 9 variables: ab Antibiotic ID used package (AMC), using official EARS-Net (European Antimicrobial Resistance Surveillance Network) codes available name Official name antimicrobial drug used WHONET/EARS-Net type Type dosage, either \"high_dosage\", \"standard_dosage\", \"uncomplicated_uti\" dose Dose, \"2 g\" \"25 mg/kg\" dose_times Number times dose must administered administration Route administration, either \"im\", \"iv\", \"oral\" notes Additional dosage notes original_txt Original text PDF file EUCAST eucast_version Version number EUCAST Clinical Breakpoints guideline dosages apply, either 13, 12, 11","code":""},{"path":"https://msberends.github.io/AMR/reference/dosage.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with Treatment Dosages as Defined by EUCAST — dosage","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/dosage.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with Treatment Dosages as Defined by EUCAST — dosage","text":"","code":"dosage #> # A tibble: 503 × 9 #>    ab   name            type  dose  dose_times administration notes original_txt #>    <ab> <chr>           <chr> <chr>      <int> <chr>          <chr> <chr>        #>  1 AMK  Amikacin        stan… 25-3…          1 iv             \"\"    25-30 mg/kg… #>  2 AMX  Amoxicillin     high… 2 g            6 iv             \"\"    2 g x 6 iv   #>  3 AMX  Amoxicillin     stan… 1 g            3 iv             \"\"    1 g x 3-4 iv #>  4 AMX  Amoxicillin     high… 0.75…          3 oral           \"\"    0.75-1 g x … #>  5 AMX  Amoxicillin     stan… 0.5 g          3 oral           \"\"    0.5 g x 3 o… #>  6 AMX  Amoxicillin     unco… 0.5 g          3 oral           \"\"    0.5 g x 3 o… #>  7 AMC  Amoxicillin/cl… high… 2 g …          3 iv             \"\"    (2 g amoxic… #>  8 AMC  Amoxicillin/cl… stan… 1 g …          3 iv             \"\"    (1 g amoxic… #>  9 AMC  Amoxicillin/cl… high… 0.87…          3 oral           \"\"    (0.875 g am… #> 10 AMC  Amoxicillin/cl… stan… 0.5 …          3 oral           \"\"    (0.5 g amox… #> # ℹ 493 more rows #> # ℹ 1 more variable: eucast_version <dbl>"},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":null,"dir":"Reference","previous_headings":"","what":"Apply EUCAST Rules — eucast_rules","title":"Apply EUCAST Rules — eucast_rules","text":"Apply rules clinical breakpoints intrinsic resistance defined European Committee Antimicrobial Susceptibility Testing (EUCAST, https://www.eucast.org), see Source. Use eucast_dosage() get data.frame advised dosages certain bug-drug combination, based dosage data set. improve interpretation antibiogram EUCAST rules applied, non-EUCAST rules can applied default, see Details.","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Apply EUCAST Rules — eucast_rules","text":"","code":"eucast_rules(   x,   col_mo = NULL,   info = interactive(),   rules = getOption(\"AMR_eucastrules\", default = c(\"breakpoints\", \"expert\")),   verbose = FALSE,   version_breakpoints = 12,   version_expertrules = 3.3,   ampc_cephalosporin_resistance = NA,   only_sir_columns = FALSE,   custom_rules = NULL,   ... )  eucast_dosage(ab, administration = \"iv\", version_breakpoints = 12)"},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Apply EUCAST Rules — eucast_rules","text":"EUCAST Expert Rules. Version 2.0, 2012. Leclercq et al. EUCAST expert rules antimicrobial susceptibility testing. Clin Microbiol Infect. 2013;19(2):141-60; doi:10.1111/j.1469-0691.2011.03703.x EUCAST Expert Rules, Intrinsic Resistance Exceptional Phenotypes Tables. Version 3.1, 2016. (link) EUCAST Intrinsic Resistance Unusual Phenotypes. Version 3.2, 2020. (link) EUCAST Intrinsic Resistance Unusual Phenotypes. Version 3.3, 2021. (link) EUCAST Breakpoint tables interpretation MICs zone diameters. Version 9.0, 2019. (link) EUCAST Breakpoint tables interpretation MICs zone diameters. Version 10.0, 2020. (link) EUCAST Breakpoint tables interpretation MICs zone diameters. Version 11.0, 2021. (link) EUCAST Breakpoint tables interpretation MICs zone diameters. Version 12.0, 2022. (link)","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Apply EUCAST Rules — eucast_rules","text":"x data set antibiotic columns, amox, AMX AMC col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). info logical indicate whether progress printed console - default print interactive sessions rules character vector specifies rules applied. Must one \"breakpoints\", \"expert\", \"\", \"custom\", \"\", defaults c(\"breakpoints\", \"expert\"). default value can set another value using package option AMR_eucastrules: options(AMR_eucastrules = \"\"). using \"custom\", sure fill argument custom_rules . Custom rules can created custom_eucast_rules(). verbose logical turn Verbose mode (default ). Verbose mode, function apply rules data, instead returns data set logbook form extensive info rows columns effected way. Using Verbose mode takes lot time. version_breakpoints version number use EUCAST Clinical Breakpoints guideline. Can \"12.0\", \"11.0\", \"10.0\". version_expertrules version number use EUCAST Expert Rules Intrinsic Resistance guideline. Can \"3.3\", \"3.2\", \"3.1\". ampc_cephalosporin_resistance character value applied cefotaxime, ceftriaxone ceftazidime AmpC de-repressed cephalosporin-resistant mutants - default NA. Currently works version_expertrules 3.2 higher; version 'EUCAST Expert Rules Enterobacterales' state results cefotaxime, ceftriaxone ceftazidime reported note, results suppressed (emptied) three drugs. value NA (default) argument remove results three drugs, e.g. value \"R\" make results drugs resistant. Use NULL FALSE alter results three drugs AmpC de-repressed cephalosporin-resistant mutants. Using TRUE equal using \"R\".  EUCAST Expert Rules v3.2, rule applies : Citrobacter braakii, Citrobacter freundii, Citrobacter gillenii, Citrobacter murliniae, Citrobacter rodenticum, Citrobacter sedlakii, Citrobacter werkmanii, Citrobacter youngae, Enterobacter, Hafnia alvei, Klebsiella aerogenes, Morganella morganii, Providencia, Serratia. only_sir_columns logical indicate whether antibiotic columns must detected transformed class sir (see .sir()) beforehand (default FALSE) custom_rules custom rules apply, created custom_eucast_rules() ... column name antibiotic, see section Antibiotics ab (vector ) text can coerced valid antibiotic drug code .ab() administration route administration, either \"im\", \"iv\", \"oral\"","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Apply EUCAST Rules — eucast_rules","text":"input x, possibly edited values antibiotics. , verbose = TRUE, data.frame original new values affected bug-drug combinations.","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Apply EUCAST Rules — eucast_rules","text":"Note: function translate MIC values SIR values. Use .sir() . Note: ampicillin (AMP, J01CA01) available amoxicillin (AMX, J01CA04) , latter used rules dependency ampicillin. drugs interchangeable comes expression antimicrobial resistance. file containing EUCAST rules located : https://github.com/msberends/AMR/blob/main/data-raw/eucast_rules.tsv.  Note: Old taxonomic names replaced current taxonomy applicable. example, Ochrobactrum anthropi renamed Brucella anthropi 2020; original EUCAST rules v3.1 v3.2 yet contain new taxonomic name. AMR package contains full microbial taxonomy updated December 11th, 2022, see microorganisms.","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"custom-rules","dir":"Reference","previous_headings":"","what":"Custom Rules","title":"Apply EUCAST Rules — eucast_rules","text":"Custom rules can created using custom_eucast_rules(), e.g.:","code":"x <- custom_eucast_rules(AMC == \"R\" & genus == \"Klebsiella\" ~ aminopenicillins == \"R\",                          AMC == \"I\" & genus == \"Klebsiella\" ~ aminopenicillins == \"I\")  eucast_rules(example_isolates, rules = \"custom\", custom_rules = x)"},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"-other-rules","dir":"Reference","previous_headings":"","what":"'Other' Rules","title":"Apply EUCAST Rules — eucast_rules","text":"processing, two non-EUCAST rules drug combinations can applied improve efficacy EUCAST rules, reliability data (analysis). rules : drug enzyme inhibitor set S drug without enzyme inhibitor S drug without enzyme inhibitor set R drug enzyme inhibitor R Important examples include amoxicillin amoxicillin/clavulanic acid, trimethoprim trimethoprim/sulfamethoxazole. Needless say, rules work, drugs must available data set. Since rules officially approved EUCAST, applied default. use rules, include \"\" rules argument, use eucast_rules(..., rules = \"\"). can also set package option AMR_eucastrules, .e. run options(AMR_eucastrules = \"\").","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"antibiotics","dir":"Reference","previous_headings":"","what":"Antibiotics","title":"Apply EUCAST Rules — eucast_rules","text":"define antibiotics column names, leave determine automatically guess_ab_col() input text (case-insensitive), use NULL skip column (e.g. TIC = NULL skip ticarcillin). Manually defined non-existing columns skipped warning. following antibiotics eligible functions eucast_rules() mdro(). shown format 'name (antimicrobial ID, ATC code)', sorted alphabetically: Amikacin (AMK, J01GB06), amoxicillin (AMX, J01CA04), amoxicillin/clavulanic acid (AMC, J01CR02), ampicillin (AMP, J01CA01), ampicillin/sulbactam (SAM, J01CR01), arbekacin (ARB, J01GB12), aspoxicillin (APX, J01CA19), azidocillin (AZD, J01CE04), azithromycin (AZM, J01FA10), azlocillin (AZL, J01CA09), aztreonam (ATM, J01DF01), bacampicillin (BAM, J01CA06), bekanamycin (BEK, J01GB13), benzathine benzylpenicillin (BNB, J01CE08), benzathine phenoxymethylpenicillin (BNP, J01CE10), benzylpenicillin (PEN, J01CE01), besifloxacin (BES, S01AE08), biapenem (BIA, J01DH05), carbenicillin (CRB, J01CA03), carindacillin (CRN, J01CA05), cefacetrile (CAC, J01DB10), cefaclor (CEC, J01DC04), cefadroxil (CFR, J01DB05), cefalexin (LEX, J01DB01), cefaloridine (RID, J01DB02), cefalotin (CEP, J01DB03), cefamandole (MAN, J01DC03), cefapirin (HAP, J01DB08), cefatrizine (CTZ, J01DB07), cefazedone (CZD, J01DB06), cefazolin (CZO, J01DB04), cefcapene (CCP, J01DD17), cefdinir (CDR, J01DD15), cefditoren (DIT, J01DD16), cefepime (FEP, J01DE01), cefetamet (CAT, J01DD10), cefixime (CFM, J01DD08), cefmenoxime (CMX, J01DD05), cefmetazole (CMZ, J01DC09), cefodizime (DIZ, J01DD09), cefonicid (CID, J01DC06), cefoperazone (CFP, J01DD12), cefoperazone/sulbactam (CSL, J01DD62), ceforanide (CND, J01DC11), cefotaxime (CTX, J01DD01), cefotaxime/clavulanic acid (CTC, J01DD51), cefotetan (CTT, J01DC05), cefotiam (CTF, J01DC07), cefoxitin (FOX, J01DC01), cefozopran (ZOP, J01DE03), cefpiramide (CPM, J01DD11), cefpirome (CPO, J01DE02), cefpodoxime (CPD, J01DD13), cefprozil (CPR, J01DC10), cefroxadine (CRD, J01DB11), cefsulodin (CFS, J01DD03), ceftaroline (CPT, J01DI02), ceftazidime (CAZ, J01DD02), ceftazidime/clavulanic acid (CCV, J01DD52), cefteram (CEM, J01DD18), ceftezole (CTL, J01DB12), ceftibuten (CTB, J01DD14), ceftizoxime (CZX, J01DD07), ceftobiprole medocaril (CFM1, J01DI01), ceftolozane/tazobactam (CZT, J01DI54), ceftriaxone (CRO, J01DD04), ceftriaxone/beta-lactamase inhibitor (CEB, J01DD63), cefuroxime (CXM, J01DC02), cephradine (CED, J01DB09), chloramphenicol (CHL, J01BA01), ciprofloxacin (CIP, J01MA02), clarithromycin (CLR, J01FA09), clindamycin (CLI, J01FF01), clometocillin (CLM, J01CE07), cloxacillin (CLO, J01CF02), colistin (COL, J01XB01), cycloserine (CYC, J04AB01), dalbavancin (DAL, J01XA04), daptomycin (DAP, J01XX09), delafloxacin (DFX, J01MA23), dibekacin (DKB, J01GB09), dicloxacillin (DIC, J01CF01), dirithromycin (DIR, J01FA13), doripenem (DOR, J01DH04), doxycycline (DOX, J01AA02), enoxacin (ENX, J01MA04), epicillin (EPC, J01CA07), ertapenem (ETP, J01DH03), erythromycin (ERY, J01FA01), fleroxacin (FLE, J01MA08), flucloxacillin (FLC, J01CF05), flurithromycin (FLR1, J01FA14), fosfomycin (FOS, J01XX01), framycetin (FRM, D09AA01), fusidic acid (FUS, J01XC01), garenoxacin (GRN, J01MA19), gatifloxacin (GAT, J01MA16), gemifloxacin (GEM, J01MA15), gentamicin (GEN, J01GB03), grepafloxacin (GRX, J01MA11), hetacillin (HET, J01CA18), imipenem (IPM, J01DH51), imipenem/relebactam (IMR, J01DH56), isepamicin (ISE, J01GB11), josamycin (JOS, J01FA07), kanamycin (KAN, J01GB04), lascufloxacin (LSC, J01MA25), latamoxef (LTM, J01DD06), levofloxacin (LVX, J01MA12), levonadifloxacin (LND, J01MA24), lincomycin (LIN, J01FF02), linezolid (LNZ, J01XX08), lomefloxacin (LOM, J01MA07), loracarbef (LOR, J01DC08), mecillinam (MEC, J01CA11), meropenem (MEM, J01DH02), meropenem/vaborbactam (MEV, J01DH52), metampicillin (MTM, J01CA14), meticillin (MET, J01CF03), mezlocillin (MEZ, J01CA10), micronomicin (MCR, S01AA22), midecamycin (MID, J01FA03), minocycline (MNO, J01AA08), miocamycin (MCM, J01FA11), moxifloxacin (MFX, J01MA14), nadifloxacin (NAD, D10AF05), nafcillin (NAF, J01CF06), nalidixic acid (NAL, J01MB02), neomycin (NEO, J01GB05), netilmicin (NET, J01GB07), nitrofurantoin (NIT, J01XE01), norfloxacin (, J01MA06), ofloxacin (OFX, J01MA01), oleandomycin (OLE, J01FA05), oritavancin (ORI, J01XA05), oxacillin (OXA, J01CF04), panipenem (PAN, J01DH55), pazufloxacin (PAZ, J01MA18), pefloxacin (PEF, J01MA03), penamecillin (PNM, J01CE06), pheneticillin (PHE, J01CE05), phenoxymethylpenicillin (PHN, J01CE02), piperacillin (PIP, J01CA12), piperacillin/tazobactam (TZP, J01CR05), pivampicillin (PVM, J01CA02), pivmecillinam (PME, J01CA08), plazomicin (PLZ, J01GB14), polymyxin B (PLB, J01XB02), pristinamycin (PRI, J01FG01), procaine benzylpenicillin (PRB, J01CE09), propicillin (PRP, J01CE03), prulifloxacin (PRU, J01MA17), quinupristin/dalfopristin (QDA, J01FG02), ribostamycin (RST, J01GB10), rifampicin (RIF, J04AB02), rokitamycin (ROK, J01FA12), roxithromycin (RXT, J01FA06), rufloxacin (RFL, J01MA10), sisomicin (SIS, J01GB08), sitafloxacin (SIT, J01MA21), solithromycin (SOL, J01FA16), sparfloxacin (SPX, J01MA09), spiramycin (SPI, J01FA02), streptoduocin (STR, J01GA02), streptomycin (STR1, J01GA01), sulbactam (SUL, J01CG01), sulbenicillin (SBC, J01CA16), sulfadiazine (SDI, J01EC02), sulfadiazine/trimethoprim (SLT1, J01EE02), sulfadimethoxine (SUD, J01ED01), sulfadimidine (SDM, J01EB03), sulfadimidine/trimethoprim (SLT2, J01EE05), sulfafurazole (SLF, J01EB05), sulfaisodimidine (SLF1, J01EB01), sulfalene (SLF2, J01ED02), sulfamazone (SZO, J01ED09), sulfamerazine (SLF3, J01ED07), sulfamerazine/trimethoprim (SLT3, J01EE07), sulfamethizole (SLF4, J01EB02), sulfamethoxazole (SMX, J01EC01), sulfamethoxypyridazine (SLF5, J01ED05), sulfametomidine (SLF6, J01ED03), sulfametoxydiazine (SLF7, J01ED04), sulfametrole/trimethoprim (SLT4, J01EE03), sulfamoxole (SLF8, J01EC03), sulfamoxole/trimethoprim (SLT5, J01EE04), sulfanilamide (SLF9, J01EB06), sulfaperin (SLF10, J01ED06), sulfaphenazole (SLF11, J01ED08), sulfapyridine (SLF12, J01EB04), sulfathiazole (SUT, J01EB07), sulfathiourea (SLF13, J01EB08), sultamicillin (SLT6, J01CR04), talampicillin (TAL, J01CA15), tazobactam (TAZ, J01CG02), tebipenem (TBP, J01DH06), tedizolid (TZD, J01XX11), teicoplanin (TEC, J01XA02), telavancin (TLV, J01XA03), telithromycin (TLT, J01FA15), temafloxacin (TMX, J01MA05), temocillin (TEM, J01CA17), tetracycline (TCY, J01AA07), ticarcillin (TIC, J01CA13), ticarcillin/clavulanic acid (TCC, J01CR03), tigecycline (TGC, J01AA12), tilbroquinol (TBQ, P01AA05), tobramycin (TOB, J01GB01), tosufloxacin (TFX, J01MA22), trimethoprim (TMP, J01EA01), trimethoprim/sulfamethoxazole (SXT, J01EE01), troleandomycin (TRL, J01FA08), trovafloxacin (TVA, J01MA13), vancomycin (VAN, J01XA01)","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Apply EUCAST Rules — eucast_rules","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/eucast_rules.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Apply EUCAST Rules — eucast_rules","text":"","code":"# \\donttest{ a <- data.frame(   mo = c(     \"Staphylococcus aureus\",     \"Enterococcus faecalis\",     \"Escherichia coli\",     \"Klebsiella pneumoniae\",     \"Pseudomonas aeruginosa\"   ),   VAN = \"-\", # Vancomycin   AMX = \"-\", # Amoxicillin   COL = \"-\", # Colistin   CAZ = \"-\", # Ceftazidime   CXM = \"-\", # Cefuroxime   PEN = \"S\", # Benzylpenicillin   FOX = \"S\", # Cefoxitin   stringsAsFactors = FALSE )  head(a) #>                       mo VAN AMX COL CAZ CXM PEN FOX #> 1  Staphylococcus aureus   -   -   -   -   -   S   S #> 2  Enterococcus faecalis   -   -   -   -   -   S   S #> 3       Escherichia coli   -   -   -   -   -   S   S #> 4  Klebsiella pneumoniae   -   -   -   -   -   S   S #> 5 Pseudomonas aeruginosa   -   -   -   -   -   S   S   # apply EUCAST rules: some results wil be changed b <- eucast_rules(a) #> Warning: in eucast_rules(): not all columns with antimicrobial results are of #> class 'sir'. Transform them on beforehand, with e.g.: #>   - a %>% as.sir(CXM:AMX) #>   - a %>% mutate_if(is_sir_eligible, as.sir) #>   - a %>% mutate(across(where(is_sir_eligible), as.sir))  head(b) #>                       mo VAN AMX COL CAZ CXM PEN FOX #> 1  Staphylococcus aureus   -   S   R   S   S   S   S #> 2  Enterococcus faecalis   -   -   R   R   R   S   R #> 3       Escherichia coli   R   -   -   -   -   R   S #> 4  Klebsiella pneumoniae   R   R   -   -   -   R   S #> 5 Pseudomonas aeruginosa   R   R   -   -   R   R   R   # do not apply EUCAST rules, but rather get a data.frame # containing all details about the transformations: c <- eucast_rules(a, verbose = TRUE) #> Warning: in eucast_rules(): not all columns with antimicrobial results are of #> class 'sir'. Transform them on beforehand, with e.g.: #>   - a %>% as.sir(CXM:AMX) #>   - a %>% mutate_if(is_sir_eligible, as.sir) #>   - a %>% mutate(across(where(is_sir_eligible), as.sir)) head(c) #>   row col           mo_fullname old new rule   rule_group #> 1   1 AMX Staphylococcus aureus   -   S       Breakpoints #> 2   1 CXM Staphylococcus aureus   -   S       Breakpoints #> 3   1 CAZ Staphylococcus aureus   R   S      Expert Rules #> 4   1 CAZ Staphylococcus aureus   -   R      Expert Rules #> 5   1 COL Staphylococcus aureus   -   R      Expert Rules #> 6   2 CAZ Enterococcus faecalis   -   R      Expert Rules #>                                                 rule_name #> 1                                          Staphylococcus #> 2                                          Staphylococcus #> 3                          Expert Rules on Staphylococcus #> 4 Table 4: Intrinsic resistance in gram-positive bacteria #> 5 Table 4: Intrinsic resistance in gram-positive bacteria #> 6 Table 4: Intrinsic resistance in gram-positive bacteria #>                                                                                 rule_source #> 1                                           'EUCAST Clinical Breakpoint Tables' v12.0, 2022 #> 2                                           'EUCAST Clinical Breakpoint Tables' v12.0, 2022 #> 3 'EUCAST Expert Rules' and 'EUCAST Intrinsic Resistance and Unusual Phenotypes' v3.3, 2021 #> 4 'EUCAST Expert Rules' and 'EUCAST Intrinsic Resistance and Unusual Phenotypes' v3.3, 2021 #> 5 'EUCAST Expert Rules' and 'EUCAST Intrinsic Resistance and Unusual Phenotypes' v3.3, 2021 #> 6 'EUCAST Expert Rules' and 'EUCAST Intrinsic Resistance and Unusual Phenotypes' v3.3, 2021 # }  # Dosage guidelines:  eucast_dosage(c(\"tobra\", \"genta\", \"cipro\"), \"iv\") #> ℹ Dosages for antimicrobial drugs, as meant for 'EUCAST Clinical Breakpoint #>   Tables' v12.0 (2022). This note will be shown once per session. #> # A tibble: 3 × 4 #>   ab   name          standard_dosage  high_dosage  #>   <ab> <chr>         <chr>            <chr>        #> 1 TOB  Tobramycin    6-7 mg/kg x 1 iv NA           #> 2 GEN  Gentamicin    6-7 mg/kg x 1 iv NA           #> 3 CIP  Ciprofloxacin 0.4 g x 2 iv     0.4 g x 3 iv  eucast_dosage(c(\"tobra\", \"genta\", \"cipro\"), \"iv\", version_breakpoints = 10) #> ℹ Dosages for antimicrobial drugs, as meant for 'EUCAST Clinical Breakpoint #>   Tables' v10.0 (2020). This note will be shown once per session. #> # A tibble: 3 × 4 #>   ab   name          standard_dosage  high_dosage  #>   <ab> <chr>         <chr>            <chr>        #> 1 TOB  Tobramycin    6-7 mg/kg x 1 iv NA           #> 2 GEN  Gentamicin    6-7 mg/kg x 1 iv NA           #> 3 CIP  Ciprofloxacin 0.4 g x 2 iv     0.4 g x 3 iv"},{"path":"https://msberends.github.io/AMR/reference/example_isolates.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with 2 000 Example Isolates — example_isolates","title":"Data Set with 2 000 Example Isolates — example_isolates","text":"data set containing 2 000 microbial isolates full antibiograms. data set contains randomised fictitious data, reflects reality can used practise AMR data analysis. examples, please read tutorial website.","code":""},{"path":"https://msberends.github.io/AMR/reference/example_isolates.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with 2 000 Example Isolates — example_isolates","text":"","code":"example_isolates"},{"path":"https://msberends.github.io/AMR/reference/example_isolates.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with 2 000 Example Isolates — example_isolates","text":"tibble 2 000 observations 46 variables: date Date receipt laboratory patient ID patient age Age patient gender Gender patient, either \"F\" \"M\" ward Ward type patient admitted, either \"Clinical\", \"ICU\", \"Outpatient\" mo ID microorganism created .mo(), see also microorganisms data set PEN:RIF 40 different antibiotics class sir (see .sir()); column names occur antibiotics data set can translated set_ab_names() ab_name()","code":""},{"path":"https://msberends.github.io/AMR/reference/example_isolates.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with 2 000 Example Isolates — example_isolates","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/example_isolates.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with 2 000 Example Isolates — example_isolates","text":"","code":"example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …"},{"path":"https://msberends.github.io/AMR/reference/example_isolates_unclean.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with Unclean Data — example_isolates_unclean","title":"Data Set with Unclean Data — example_isolates_unclean","text":"data set containing 3 000 microbial isolates cleaned consequently ready AMR data analysis. data set can used practice.","code":""},{"path":"https://msberends.github.io/AMR/reference/example_isolates_unclean.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with Unclean Data — example_isolates_unclean","text":"","code":"example_isolates_unclean"},{"path":"https://msberends.github.io/AMR/reference/example_isolates_unclean.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with Unclean Data — example_isolates_unclean","text":"tibble 3 000 observations 8 variables: patient_id ID patient date date receipt laboratory hospital ID hospital, C bacteria info microorganism can transformed .mo(), see also microorganisms AMX:GEN 4 different antibiotics transformed .sir()","code":""},{"path":"https://msberends.github.io/AMR/reference/example_isolates_unclean.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with Unclean Data — example_isolates_unclean","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/example_isolates_unclean.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with Unclean Data — example_isolates_unclean","text":"","code":"example_isolates_unclean #> # A tibble: 3,000 × 8 #>    patient_id hospital date       bacteria      AMX   AMC   CIP   GEN   #>    <chr>      <chr>    <date>     <chr>         <chr> <chr> <chr> <chr> #>  1 J3         A        2012-11-21 E. coli       R     I     S     S     #>  2 R7         A        2018-04-03 K. pneumoniae R     I     S     S     #>  3 P3         A        2014-09-19 E. coli       R     S     S     S     #>  4 P10        A        2015-12-10 E. coli       S     I     S     S     #>  5 B7         A        2015-03-02 E. coli       S     S     S     S     #>  6 W3         A        2018-03-31 S. aureus     R     S     R     S     #>  7 J8         A        2016-06-14 E. coli       R     S     S     S     #>  8 M3         A        2015-10-25 E. coli       R     S     S     S     #>  9 J3         A        2019-06-19 E. coli       S     S     S     S     #> 10 G6         A        2015-04-27 S. aureus     S     S     S     S     #> # ℹ 2,990 more rows"},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":null,"dir":"Reference","previous_headings":"","what":"Determine First Isolates — first_isolate","title":"Determine First Isolates — first_isolate","text":"Determine first isolates microorganisms every patient per episode (needed) per specimen type. functions support four methods summarised Hindler et al. 2007 (doi:10.1086/511864 ). determine patient episodes necessarily based microorganisms, use is_new_episode() also supports grouping dplyr package.","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Determine First Isolates — first_isolate","text":"","code":"first_isolate(   x = NULL,   col_date = NULL,   col_patient_id = NULL,   col_mo = NULL,   col_testcode = NULL,   col_specimen = NULL,   col_icu = NULL,   col_keyantimicrobials = NULL,   episode_days = 365,   testcodes_exclude = NULL,   icu_exclude = FALSE,   specimen_group = NULL,   type = \"points\",   method = c(\"phenotype-based\", \"episode-based\", \"patient-based\", \"isolate-based\"),   ignore_I = TRUE,   points_threshold = 2,   info = interactive(),   include_unknown = FALSE,   include_untested_sir = TRUE,   ... )  filter_first_isolate(   x = NULL,   col_date = NULL,   col_patient_id = NULL,   col_mo = NULL,   episode_days = 365,   method = c(\"phenotype-based\", \"episode-based\", \"patient-based\", \"isolate-based\"),   ... )"},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Determine First Isolates — first_isolate","text":"Methodology function strictly based : M39 Analysis Presentation Cumulative Antimicrobial Susceptibility Test Data, 5th Edition, 2022, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/microbiology/documents/m39/. Hindler JF Stelling J (2007). Analysis Presentation Cumulative Antibiograms: New Consensus Guideline Clinical Laboratory Standards Institute. Clinical Infectious Diseases, 44(6), 867-873. doi:10.1086/511864","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Determine First Isolates — first_isolate","text":"x data.frame containing isolates. Can left blank automatic determination, see Examples. col_date column name result date (date received lab) - default first column date class col_patient_id column name unique IDs patients - default first column starts 'patient' 'patid' (case insensitive) col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). col_testcode column name test codes. Use col_testcode = NULL exclude certain test codes (test codes screening). case testcodes_exclude ignored. col_specimen column name specimen type group col_icu column name logicals (TRUE/FALSE) whether ward department Intensive Care Unit (ICU). can also logical vector length rows x. col_keyantimicrobials (useful method = \"phenotype-based\") column name key antimicrobials determine first isolates, see key_antimicrobials(). default first column starts 'key' followed 'ab' 'antibiotics' 'antimicrobials' (case insensitive). Use col_keyantimicrobials = FALSE prevent . Can also output key_antimicrobials(). episode_days episode days genus/species combination determined 'first isolate' . default 365 days based guideline CLSI, see Source. testcodes_exclude character vector test codes excluded (case-insensitive) icu_exclude logical indicate whether ICU isolates excluded (rows value TRUE column set col_icu) specimen_group value column set col_specimen filter type type determine weighed isolates; can \"keyantimicrobials\" \"points\", see Details method method apply, either \"phenotype-based\", \"episode-based\", \"patient-based\" \"isolate-based\" (can abbreviated), see Details. default \"phenotype-based\" antimicrobial test results present data, \"episode-based\" otherwise. ignore_I logical indicate whether antibiotic interpretations \"\" ignored type = \"keyantimicrobials\", see Details points_threshold minimum number points require differences antibiogram lead inclusion isolate type = \"points\", see Details info logical indicate info printed - default TRUE interactive mode include_unknown logical indicate whether 'unknown' microorganisms included , .e. microbial code \"UNKNOWN\", defaults FALSE. WHONET users, means records organism code \"con\" (contamination) excluded default. Isolates microbial ID NA always excluded first isolate. include_untested_sir logical indicate whether also rows without antibiotic results still eligible becoming first isolate. Use include_untested_sir = FALSE always return FALSE rows. checks data set columns class sir consequently requires transforming columns antibiotic results using .sir() first. ... arguments passed first_isolate() using filter_first_isolate(), otherwise arguments passed key_antimicrobials() (universal, gram_negative, gram_positive)","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Determine First Isolates — first_isolate","text":"logical vector","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Determine First Isolates — first_isolate","text":"conduct epidemiological analyses antimicrobial resistance data, -called first isolates included prevent overestimation underestimation antimicrobial resistance. Different methods can used , see . functions context-aware. means x argument can left blank used inside data.frame call, see Examples. first_isolate() function wrapper around is_new_episode() function, efficient data sets containing microorganism codes names. isolates microbial ID NA excluded first isolate.","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"different-methods","dir":"Reference","previous_headings":"","what":"Different methods","title":"Determine First Isolates — first_isolate","text":"According Hindler et al. (2007, doi:10.1086/511864 ), different methods (algorithms) select first isolates increasing reliability: isolate-based, patient-based, episode-based phenotype-based. methods select combination taxonomic genus species (subspecies). mentioned methods covered first_isolate() function:","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"isolate-based","dir":"Reference","previous_headings":"","what":"Isolate-based","title":"Determine First Isolates — first_isolate","text":"method require selection, isolates included. , however, respect arguments set first_isolate() function. example, default setting include_unknown (FALSE) omit selection rows without microbial ID.","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"patient-based","dir":"Reference","previous_headings":"","what":"Patient-based","title":"Determine First Isolates — first_isolate","text":"include every genus-species combination per patient , set episode_days Inf. Although often inappropriate, method makes sure duplicate isolates selected patient. large longitudinal data set, mean isolates excluded found years initial isolate.","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"episode-based","dir":"Reference","previous_headings":"","what":"Episode-based","title":"Determine First Isolates — first_isolate","text":"include every genus-species combination per patient episode , set episode_days sensible number days. Depending type analysis, 14, 30, 60 365. Short episodes common analysing specific hospital ward data, long episodes common analysing regional national data. common method correct duplicate isolates. Patients categorised episodes based ID dates (e.g., date specimen receipt laboratory result). common method, take account antimicrobial test results. means e.g. methicillin-resistant Staphylococcus aureus (MRSA) isolate differentiated wildtype Staphylococcus aureus isolate.","code":""},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"phenotype-based","dir":"Reference","previous_headings":"","what":"Phenotype-based","title":"Determine First Isolates — first_isolate","text":"reliable method, since also weighs antibiogram (antimicrobial test results) yielding -called 'first weighted isolates'. two different methods weigh antibiogram: Using type = \"points\" argument points_threshold (default) method weighs antimicrobial drugs available data set. difference S R (vice versa) counts 0.5 points, difference S R (vice versa) counts 1 point. sum points exceeds points_threshold, defaults 2, isolate selected first weighted isolate. antimicrobials internally selected using all_antimicrobials() function. output function need passed first_isolate() function. Using type = \"keyantimicrobials\" argument ignore_I method weighs specific antimicrobial drugs, called key antimicrobials. difference S R (vice versa) key antimicrobials select isolate first weighted isolate. ignore_I = FALSE, also differences S R (vice versa) lead . Key antimicrobials internally selected using key_antimicrobials() function, can also added manually variable data set col_keyantimicrobials argument. Another option pass output key_antimicrobials() function directly col_keyantimicrobials argument. default method phenotype-based (using type = \"points\") episode-based (using episode_days = 365). makes sure every genus-species combination selected per patient per year, taking account antimicrobial test results. antimicrobial test results available data set, episode-based method applied default.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/first_isolate.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Determine First Isolates — first_isolate","text":"","code":"# `example_isolates` is a data set available in the AMR package. # See ?example_isolates.  example_isolates[first_isolate(info = TRUE), ] #> ℹ Determining first isolates using an episode length of 365 days #> ℹ Using column 'date' as input for col_date. #> ℹ Using column 'patient' as input for col_patient_id. #> ℹ Basing inclusion on all antimicrobial results, using a points threshold #>   of 2 #> ℹ Excluding 16 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 1,373 'phenotype-based' first isolates (68.7% of total where a #>    microbial ID was available) #> # A tibble: 1,373 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  3 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  4 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #>  5 2002-01-17 495616     67 M      Clinical B_STPHY_EPDR R     NA    S     NA    #>  6 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  7 2002-01-21 462081     75 F      Clinical B_CTRBC_FRND R     NA    NA    R     #>  8 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL R     NA    NA    NA    #>  9 2002-02-03 481442     76 M      ICU      B_STPHY_CONS R     NA    S     NA    #> 10 2002-02-05 023456     50 M      Clinical B_STPHY_HMNS S     NA    S     NA    #> # ℹ 1,363 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: 434 × 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    #> # ℹ 424 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,373 'phenotype-based' first isolates (68.7% of total where a #>    microbial ID was available) #> # A tibble: 1,373 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  3 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  4 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #>  5 2002-01-17 495616     67 M      Clinical B_STPHY_EPDR R     NA    S     NA    #>  6 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  7 2002-01-21 462081     75 F      Clinical B_CTRBC_FRND R     NA    NA    R     #>  8 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL R     NA    NA    NA    #>  9 2002-02-03 481442     76 M      ICU      B_STPHY_CONS R     NA    S     NA    #> 10 2002-02-05 023456     50 M      Clinical B_STPHY_HMNS S     NA    S     NA    #> # ℹ 1,363 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,373 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  3 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  4 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #>  5 2002-01-17 495616     67 M      Clinical B_STPHY_EPDR R     NA    S     NA    #>  6 2002-01-19 738003     71 M      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  7 2002-01-21 462081     75 F      Clinical B_CTRBC_FRND R     NA    NA    R     #>  8 2002-01-22 F35553     50 M      ICU      B_PROTS_MRBL R     NA    NA    NA    #>  9 2002-02-03 481442     76 M      ICU      B_STPHY_CONS R     NA    S     NA    #> 10 2002-02-05 023456     50 M      Clinical B_STPHY_HMNS S     NA    S     NA    #> # ℹ 1,363 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 857 'phenotype-based' first isolates (69.4% of total where a #>    microbial ID was available) #>  #> Group: ward = \"ICU\" #> ℹ Excluding 6 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 447 'phenotype-based' first isolates (69.2% of total where a #>    microbial ID was available) #>  #> Group: ward = \"Outpatient\" #> ℹ Excluding 1 isolates with a microbial ID 'UNKNOWN' (in column 'mo') #> => Found 98 'phenotype-based' first isolates (81.7% of total where a #>    microbial ID was available) #> # A tibble: 2,000 × 5 #> # Groups:   ward [3] #>    ward     date       patient mo           first #>    <chr>    <date>     <chr>   <mo>         <lgl> #>  1 Clinical 2002-01-02 A77334  B_ESCHR_COLI TRUE  #>  2 Clinical 2002-01-03 A77334  B_ESCHR_COLI FALSE #>  3 ICU      2002-01-07 067927  B_STPHY_EPDR TRUE  #>  4 ICU      2002-01-07 067927  B_STPHY_EPDR FALSE #>  5 ICU      2002-01-13 067927  B_STPHY_EPDR FALSE #>  6 ICU      2002-01-13 067927  B_STPHY_EPDR FALSE #>  7 Clinical 2002-01-14 462729  B_STPHY_AURS TRUE  #>  8 Clinical 2002-01-14 462729  B_STPHY_AURS FALSE #>  9 ICU      2002-01-16 067927  B_STPHY_EPDR FALSE #> 10 ICU      2002-01-17 858515  B_STPHY_EPDR TRUE  #> # ℹ 1,990 more rows # }"},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":null,"dir":"Reference","previous_headings":"","what":"G-test for Count Data — g.test","title":"G-test for Count Data — g.test","text":"g.test() performs chi-squared contingency table tests goodness--fit tests, just like chisq.test() reliable (1). G-test can used see whether number observations category fits theoretical expectation (called G-test goodness--fit), see whether proportions one variable different different values variable (called G-test independence).","code":""},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"G-test for Count Data — g.test","text":"","code":"g.test(x, y = NULL, p = rep(1/length(x), length(x)), rescale.p = FALSE)"},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"G-test for Count Data — g.test","text":"code function identical chisq.test(), except : calculation statistic changed \\(2 * sum(x * log(x / E))\\) Yates' continuity correction removed apply G-test possibility simulate p values simulate.p.value removed","code":""},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"G-test for Count Data — g.test","text":"x numeric vector matrix. x y can also     factors. y numeric vector; ignored x matrix.      x factor, y factor length. p vector probabilities length x.     error given entry p negative. rescale.p logical scalar; TRUE p rescaled     (necessary) sum 1.  rescale.p FALSE,     p sum 1, error given.","code":""},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"G-test for Count Data — g.test","text":"list class \"htest\" containing following   components: statistic value chi-squared test statistic. parameter degrees freedom approximate     chi-squared distribution test statistic, NA     p-value computed Monte Carlo simulation. p.value p-value test. method character string indicating type test     performed, whether Monte Carlo simulation continuity     correction used. data.name character string giving name(s) data. observed observed counts. expected expected counts null hypothesis. residuals Pearson residuals,     (observed - expected) / sqrt(expected). stdres standardized residuals,     (observed - expected) / sqrt(V), V residual cell variance (Agresti, 2007,     section 2.4.5 case x matrix, n * p * (1 - p) otherwise).","code":""},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"G-test for Count Data — g.test","text":"x matrix one row column, x vector y given, goodness--fit test performed (x treated one-dimensional contingency table). entries x must non-negative integers. case, hypothesis tested whether population probabilities equal p, equal p given. x matrix least two rows columns, taken two-dimensional contingency table: entries x must non-negative integers.  Otherwise, x y must vectors factors length; cases missing values removed, objects coerced factors, contingency table computed .  Pearson's chi-squared test performed null hypothesis joint distribution cell counts 2-dimensional contingency table product row column marginals. p-value computed asymptotic chi-squared distribution test statistic. contingency table case simulation done random sampling set contingency tables given marginals, works marginals strictly positive. Note usual sampling situation assumed chi-squared test (G-test) rather Fisher's exact test. goodness--fit case simulation done random sampling discrete distribution specified p, sample size n = sum(x). simulation done R may slow.","code":""},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"g-test-of-goodness-of-fit-likelihood-ratio-test-","dir":"Reference","previous_headings":"","what":"G-test Of Goodness-of-Fit (Likelihood Ratio Test)","title":"G-test for Count Data — g.test","text":"Use G-test goodness--fit one nominal variable two values (male female, red, pink white flowers). compare observed counts numbers observations category expected counts, calculate using kind theoretical expectation (1:1 sex ratio 1:2:1 ratio genetic cross). expected number observations category small, G-test may give inaccurate results, use exact test instead (fisher.test()). G-test goodness--fit alternative chi-square test goodness--fit (chisq.test()); tests advantages disadvantages, results two tests usually similar.","code":""},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"g-test-of-independence","dir":"Reference","previous_headings":"","what":"G-test of Independence","title":"G-test for Count Data — g.test","text":"Use G-test independence two nominal variables, two possible values. want know whether proportions one variable different among values variable. also possible G-test independence two nominal variables. example, Jackson et al. (2013) also data children 3, analysis old vs. young, thigh vs. arm, reaction vs. reaction, analyzed together. Fisher's exact test (fisher.test()) exact test, G-test still approximation. 2x2 table, Fisher's Exact test may slower still run seconds, even sum observations multiple millions. G-test independence alternative chi-square test independence (chisq.test()), give approximately results.","code":""},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"how-the-test-works","dir":"Reference","previous_headings":"","what":"How the Test Works","title":"G-test for Count Data — g.test","text":"Unlike exact test goodness--fit (fisher.test()), G-test directly calculate probability obtaining observed results something extreme. Instead, like almost statistical tests, G-test intermediate step; uses data calculate test statistic measures far observed data null expectation. use mathematical relationship, case chi-square distribution, estimate probability obtaining value test statistic. G-test uses log ratio two likelihoods test statistic, also called likelihood ratio test log-likelihood ratio test. formula calculate G-statistic : \\(G = 2 * sum(x * log(x / E))\\) E expected values. Since chi-square distributed, p value can calculated R :   df degrees freedom. two categories want find ones significantly different null expectation, can use method testing category vs. sum categories, Bonferroni correction. use G-tests category, course.","code":"p <- stats::pchisq(G, df, lower.tail = FALSE)"},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"references","dir":"Reference","previous_headings":"","what":"References","title":"G-test for Count Data — g.test","text":"McDonald, J.H. 2014. Handbook Biological Statistics (3rd ed.). Sparky House Publishing, Baltimore, Maryland. http://www.biostathandbook.com/gtestgof.html.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/g.test.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"G-test for Count Data — g.test","text":"","code":"# = EXAMPLE 1 = # Shivrain et al. (2006) crossed clearfield rice (which are resistant # to the herbicide imazethapyr) with red rice (which are susceptible to # imazethapyr). They then crossed the hybrid offspring and examined the # F2 generation, where they found 772 resistant plants, 1611 moderately # resistant plants, and 737 susceptible plants. If resistance is controlled # by a single gene with two co-dominant alleles, you would expect a 1:2:1 # ratio.  x <- c(772, 1611, 737) g.test(x, p = c(1, 2, 1) / 4) #>  #> \tG-test of goodness-of-fit (likelihood ratio test) #>  #> data:  x #> X-squared = 4.1471, p-value = 0.1257 #>   # There is no significant difference from a 1:2:1 ratio. # Meaning: resistance controlled by a single gene with two co-dominant # alleles, is plausible.   # = EXAMPLE 2 = # Red crossbills (Loxia curvirostra) have the tip of the upper bill either # right or left of the lower bill, which helps them extract seeds from pine # cones. Some have hypothesized that frequency-dependent selection would # keep the number of right and left-billed birds at a 1:1 ratio. Groth (1992) # observed 1752 right-billed and 1895 left-billed crossbills.  x <- c(1752, 1895) g.test(x) #>  #> \tG-test of goodness-of-fit (likelihood ratio test) #>  #> data:  x #> X-squared = 5.6085, p-value = 0.01787 #>   # There is a significant difference from a 1:1 ratio. # Meaning: there are significantly more left-billed birds."},{"path":"https://msberends.github.io/AMR/reference/get_episode.html","id":null,"dir":"Reference","previous_headings":"","what":"Determine Clinical or Epidemic Episodes — get_episode","title":"Determine Clinical or Epidemic Episodes — get_episode","text":"functions determine items vector can considered (start ) new episode. can used determine clinical episodes epidemiological analysis. get_episode() function returns index number episode per group, is_new_episode() function returns TRUE every new get_episode() index. absolute relative episode determination supported.","code":""},{"path":"https://msberends.github.io/AMR/reference/get_episode.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Determine Clinical or Epidemic Episodes — get_episode","text":"","code":"get_episode(x, episode_days = NULL, case_free_days = NULL, ...)  is_new_episode(x, episode_days = NULL, case_free_days = NULL, ...)"},{"path":"https://msberends.github.io/AMR/reference/get_episode.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Determine Clinical or Epidemic Episodes — get_episode","text":"x vector dates (class Date POSIXt), sorted internally determine episodes episode_days episode length days specify time period new episode begins, can also less day Inf, see Details case_free_days (inter-epidemic) interval length days new episode start, can also less day Inf, see Details ... ignored, place allow future extensions","code":""},{"path":"https://msberends.github.io/AMR/reference/get_episode.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Determine Clinical or Epidemic Episodes — get_episode","text":"get_episode(): integer vector is_new_episode(): logical vector","code":""},{"path":"https://msberends.github.io/AMR/reference/get_episode.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Determine Clinical or Epidemic Episodes — get_episode","text":"Episodes can determined two ways: absolute relative. Absolute method uses episode_days define episode length days, new episode start. common use case AMR data analysis microbial epidemiology: episodes S. aureus bacteraemia ICU patients example. episode length 30 days, new S. aureus isolates ICU episode 30 days considered different (new) episode. Thus, method counts since start previous episode. Relative method uses case_free_days quantify duration case-free days (inter-epidemic interval), new episode start. common use case infectious disease epidemiology: episodes norovirus outbreaks hospital example. case-free period 14 days, new norovirus cases time considered different (new) episode. Thus, methods counts since last case previous episode. table: ** marks start new episode, 8 January 2023 7 days since start previous episode (1 January 2023).  *** marks start new episode, 21 January 2023 7 days since last case previous episode (8 January 2023). Either episode_days case_free_days must provided function.","code":""},{"path":"https://msberends.github.io/AMR/reference/get_episode.html","id":"difference-between-get-episode-and-is-new-episode-","dir":"Reference","previous_headings":"","what":"Difference between get_episode() and is_new_episode()","title":"Determine Clinical or Epidemic Episodes — get_episode","text":"get_episode() function returns index number episode, cases/patients/isolates first episode number 1, cases/patients/isolates second episode number 2, etc. is_new_episode() function hand, returns TRUE every new get_episode() index. specify, setting episode_days = 365 (using method 1 explained ), two functions differ:","code":""},{"path":"https://msberends.github.io/AMR/reference/get_episode.html","id":"other","dir":"Reference","previous_headings":"","what":"Other","title":"Determine Clinical or Epidemic Episodes — get_episode","text":"first_isolate() function wrapper around is_new_episode() function, efficient data sets containing microorganism codes names allows different isolate selection methods. dplyr package required functions work, episode functions support variable grouping work conveniently inside dplyr verbs filter(), mutate() summarise().","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/get_episode.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Determine Clinical or Epidemic Episodes — get_episode","text":"","code":"# difference between absolute and relative determination of episodes: x <- data.frame(dates = as.Date(c(   \"2021-01-01\",   \"2021-01-02\",   \"2021-01-05\",   \"2021-01-08\",   \"2021-02-21\",   \"2021-02-22\",   \"2021-02-23\",   \"2021-02-24\",   \"2021-03-01\",   \"2021-03-01\" ))) x$absolute <- get_episode(x$dates, episode_days = 7) x$relative <- get_episode(x$dates, case_free_days = 7) x #>         dates absolute relative #> 1  2021-01-01        1        1 #> 2  2021-01-02        1        1 #> 3  2021-01-05        1        1 #> 4  2021-01-08        2        1 #> 5  2021-02-21        3        2 #> 6  2021-02-22        3        2 #> 7  2021-02-23        3        2 #> 8  2021-02-24        3        2 #> 9  2021-03-01        4        2 #> 10 2021-03-01        4        2   # `example_isolates` is a data set available in the AMR package. # See ?example_isolates df <- example_isolates[sample(seq_len(2000), size = 100), ]  get_episode(df$date, episode_days = 60) # indices #>   [1] 47 43 22 23 10 50 15 34 13 20 19 47 16  2 26 37  8 44  7 14 10 10 34 29  4 #>  [26] 52  3 48  3 24 48 28 28 14 17  1 50  6 51 53 42 17 45  1  1 30  9 27 39 12 #>  [51] 21 33 45  3 18 24 35 52 25 37 40 35 52 49 48 37 44 42 31 24 50 52 19  8 16 #>  [76] 31 22 46 21 14 16 14 10  5 41  3 13 52 33 19 11 38 45 43 41 32  2 12 36 52 is_new_episode(df$date, episode_days = 60) # TRUE/FALSE #>   [1]  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE FALSE #>  [13]  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE FALSE FALSE FALSE  TRUE #>  [25]  TRUE  TRUE  TRUE  TRUE FALSE  TRUE FALSE  TRUE FALSE FALSE  TRUE  TRUE #>  [37] FALSE  TRUE  TRUE  TRUE  TRUE FALSE  TRUE FALSE FALSE  TRUE  TRUE  TRUE #>  [49]  TRUE  TRUE  TRUE  TRUE FALSE FALSE  TRUE FALSE  TRUE FALSE  TRUE FALSE #>  [61]  TRUE FALSE FALSE  TRUE FALSE FALSE FALSE FALSE  TRUE FALSE FALSE FALSE #>  [73] FALSE FALSE FALSE FALSE FALSE  TRUE FALSE FALSE FALSE FALSE FALSE  TRUE #>  [85]  TRUE FALSE FALSE FALSE FALSE FALSE  TRUE  TRUE FALSE FALSE FALSE  TRUE #>  [97] FALSE FALSE  TRUE FALSE  # filter on results from the third 60-day episode only, using base R df[which(get_episode(df$date, 60) == 3), ] #> # A tibble: 4 × 46 #>   date       patient   age gender ward      mo           PEN   OXA   FLC   AMX   #>   <date>     <chr>   <dbl> <chr>  <chr>     <mo>         <sir> <sir> <sir> <sir> #> 1 2002-10-22 718963     82 M      ICU       B_STPHY_EPDR R     NA    R     R     #> 2 2002-10-11 974319     78 M      Outpatie… B_STPHY_EPDR S     NA    S     NA    #> 3 2002-10-20 F35553     51 M      ICU       B_STPHY_AURS S     NA    S     NA    #> 4 2002-10-20 F35553     51 M      ICU       B_STPHY_AURS S     NA    S     NA    #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, RIF <sir>  # the functions also work for less than a day, e.g. to include one per hour: get_episode(   c(     Sys.time(),     Sys.time() + 60 * 60   ),   episode_days = 1 / 24 ) #> [1] 1 2  # \\donttest{ if (require(\"dplyr\")) {   # is_new_episode() can also be used in dplyr verbs to determine patient   # episodes based on any (combination of) grouping variables:   df %>%     mutate(condition = sample(       x = c(\"A\", \"B\", \"C\"),       size = 100,       replace = TRUE     )) %>%     group_by(patient, condition) %>%     mutate(new_episode = is_new_episode(date, 365)) %>%     select(patient, date, condition, new_episode) %>%     arrange(patient, condition, date) } #> # A tibble: 100 × 4 #> # Groups:   patient, condition [96] #>    patient date       condition new_episode #>    <chr>   <date>     <chr>     <lgl>       #>  1 006827  2009-07-24 A         TRUE        #>  2 008268  2007-02-20 A         TRUE        #>  3 023456  2002-02-05 B         TRUE        #>  4 074321  2015-09-20 C         TRUE        #>  5 09B453  2010-03-21 A         TRUE        #>  6 105248  2005-06-16 A         TRUE        #>  7 1435C8  2004-03-03 B         TRUE        #>  8 1710B8  2008-01-22 A         TRUE        #>  9 197007  2012-07-17 C         TRUE        #> 10 207325  2011-05-08 B         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 [92] #>    ward     date       patient new_index new_logical #>    <chr>    <date>     <chr>       <int> <lgl>       #>  1 Clinical 2009-07-24 006827          1 TRUE        #>  2 ICU      2007-02-20 008268          1 TRUE        #>  3 Clinical 2002-02-05 023456          1 TRUE        #>  4 ICU      2015-09-20 074321          1 TRUE        #>  5 Clinical 2010-03-21 09B453          1 TRUE        #>  6 Clinical 2005-06-16 105248          1 TRUE        #>  7 Clinical 2004-03-03 1435C8          1 TRUE        #>  8 Clinical 2008-01-22 1710B8          1 TRUE        #>  9 Clinical 2012-07-17 197007          1 TRUE        #> 10 ICU      2011-05-08 207325          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           54             12            36            44 #> 2 ICU                28              9            21            22 #> 3 Outpatient         10              7            10            10  # grouping on patients and microorganisms leads to the same # results as first_isolate() when using 'episode-based': if (require(\"dplyr\")) {   x <- df %>%     filter_first_isolate(       include_unknown = TRUE,       method = \"episode-based\"     )    y <- df %>%     group_by(patient, mo) %>%     filter(is_new_episode(date, 365)) %>%     ungroup()    identical(x, y) } #> [1] TRUE  # but is_new_episode() has a lot more flexibility than first_isolate(), # since you can now group on anything that seems relevant: if (require(\"dplyr\")) {   df %>%     group_by(patient, mo, ward) %>%     mutate(flag_episode = is_new_episode(date, 365)) %>%     select(group_vars(.), flag_episode) } #> # A tibble: 100 × 4 #> # Groups:   patient, mo, ward [96] #>    patient mo           ward       flag_episode #>    <chr>   <mo>         <chr>      <lgl>        #>  1 557266  B_STPHY_HMLY Clinical   TRUE         #>  2 280834  B_STPHY_EPDR Clinical   TRUE         #>  3 1710B8  B_PROTS_MRBL Clinical   TRUE         #>  4 800264  B_ESCHR_COLI Outpatient TRUE         #>  5 696587  B_PROTS_PNNR ICU        TRUE         #>  6 B46416  B_STRPT_AGLC Clinical   TRUE         #>  7 904485  F_CANDD_ALBC Outpatient TRUE         #>  8 807228  B_KLBSL_PNMN ICU        TRUE         #>  9 838434  B_STPHY_CONS Clinical   TRUE         #> 10 008268  B_ESCHR_COLI ICU        TRUE         #> # ℹ 90 more rows # }"},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":null,"dir":"Reference","previous_headings":"","what":"PCA Biplot with ggplot2 — ggplot_pca","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"Produces ggplot2 variant -called biplot PCA (principal component analysis), flexible appealing base R biplot() function.","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"","code":"ggplot_pca(   x,   choices = 1:2,   scale = 1,   pc.biplot = TRUE,   labels = NULL,   labels_textsize = 3,   labels_text_placement = 1.5,   groups = NULL,   ellipse = TRUE,   ellipse_prob = 0.68,   ellipse_size = 0.5,   ellipse_alpha = 0.5,   points_size = 2,   points_alpha = 0.25,   arrows = TRUE,   arrows_colour = \"darkblue\",   arrows_size = 0.5,   arrows_textsize = 3,   arrows_textangled = TRUE,   arrows_alpha = 0.75,   base_textsize = 10,   ... )"},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"ggplot_pca() function based ggbiplot() function ggbiplot package Vince Vu, found GitHub: https://github.com/vqv/ggbiplot (retrieved: 2 March 2020, latest commit: 7325e88; 12 February 2015). per GPL-2 licence demands documentation code changes, changes made based source code : Rewritten code remove dependency packages plyr, scales grid Parametrised options, like arrow ellipse settings Hardened input possibilities defining exact type user input every argument Added total amount explained variance caption plot Cleaned syntax based lintr package, fixed grammatical errors added integrity checks Updated documentation","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"x object returned pca(), prcomp() princomp() choices length 2 vector specifying components plot. default     biplot strict sense. scale variables scaled lambda ^ scale     observations scaled lambda ^ (1-scale)     lambda singular values computed     princomp. Normally 0 <= scale <= 1, warning     issued specified scale outside range. pc.biplot true, use Gabriel (1971) refers \"principal component     biplot\", lambda = 1 observations scaled sqrt(n)     variables scaled sqrt(n).  inner products     variables approximate covariances distances observations     approximate Mahalanobis distance. labels optional vector labels observations. set, labels placed respective points. using pca() function input x, determined automatically based attribute non_numeric_cols, see pca(). labels_textsize size text used labels labels_text_placement adjustment factor placement variable names (>=1 means away arrow head) groups optional vector groups labels, length labels. set, points labels coloured according groups. using pca() function input x, determined automatically based attribute non_numeric_cols, see pca(). ellipse logical indicate whether normal data ellipse drawn group (set groups) ellipse_prob statistical size ellipse normal probability ellipse_size size ellipse line ellipse_alpha alpha (transparency) ellipse line points_size size points points_alpha alpha (transparency) points arrows logical indicate whether arrows drawn arrows_colour colour arrow text arrows_size size (thickness) arrow lines arrows_textsize size text end arrows arrows_textangled logical whether text end arrows angled arrows_alpha alpha (transparency) arrows text base_textsize text size plot elements except labels arrows ... arguments passed functions","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"colours labels points can changed adding another scale layer colour, scale_colour_viridis_d() scale_colour_brewer().","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_pca.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"PCA Biplot with ggplot2 — ggplot_pca","text":"","code":"# `example_isolates` is a data set available in the AMR package. # See ?example_isolates.  # \\donttest{ if (require(\"dplyr\")) {   # calculate the resistance per group first   resistance_data <- example_isolates %>%     group_by(       order = mo_order(mo), # group on anything, like order       genus = mo_genus(mo)     ) %>% #   and genus as we do here;     filter(n() >= 30) %>% # filter on only 30 results per group     summarise_if(is.sir, resistance) # then get resistance of all drugs    # now conduct PCA for certain antimicrobial drugs   pca_result <- resistance_data %>%     pca(AMC, CXM, CTX, CAZ, GEN, TOB, TMP, SXT)    summary(pca_result)    # old base R plotting method:   biplot(pca_result, main = \"Base R biplot\")    # new ggplot2 plotting method using this package:   if (require(\"ggplot2\")) {     ggplot_pca(pca_result) +       labs(title = \"ggplot2 biplot\")   }   if (require(\"ggplot2\")) {     # still extendible with any ggplot2 function     ggplot_pca(pca_result) +       scale_colour_viridis_d() +       labs(title = \"ggplot2 biplot\")   } } #> Warning: There were 73 warnings in `summarise()`. #> The first warning was: #> ℹ In argument: `PEN = (function (..., minimum = 30, as_percent = FALSE, #>   only_all_tested = FALSE) ...`. #> ℹ In group 5: `order = \"Lactobacillales\"`, `genus = \"Enterococcus\"`. #> Caused by warning: #> ! Introducing NA: only 14 results available for PEN in group: order = #> \"Lactobacillales\", genus = \"Enterococcus\" (minimum = 30). #> ℹ Run `dplyr::last_dplyr_warnings()` to see the 72 remaining warnings. #> ℹ Columns selected for PCA: \"AMC\", \"CAZ\", \"CTX\", \"CXM\", \"GEN\", \"SXT\", #>   \"TMP\", and \"TOB\". Total observations available: 7. #> Groups (n=4, named as 'order'): #> [1] \"Caryophanales\"    \"Enterobacterales\" \"Lactobacillales\"  \"Pseudomonadales\"  #>    # }"},{"path":"https://msberends.github.io/AMR/reference/ggplot_sir.html","id":null,"dir":"Reference","previous_headings":"","what":"AMR Plots with ggplot2 — ggplot_sir","title":"AMR Plots with ggplot2 — ggplot_sir","text":"Use functions create bar plots AMR data analysis. functions rely ggplot2 functions.","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_sir.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"AMR Plots with ggplot2 — ggplot_sir","text":"","code":"ggplot_sir(   data,   position = NULL,   x = \"antibiotic\",   fill = \"interpretation\",   facet = NULL,   breaks = seq(0, 1, 0.1),   limits = NULL,   translate_ab = \"name\",   combine_SI = TRUE,   minimum = 30,   language = get_AMR_locale(),   nrow = NULL,   colours = c(S = \"#3CAEA3\", SI = \"#3CAEA3\", I = \"#F6D55C\", IR = \"#ED553B\", R =     \"#ED553B\"),   datalabels = TRUE,   datalabels.size = 2.5,   datalabels.colour = \"grey15\",   title = NULL,   subtitle = NULL,   caption = NULL,   x.title = \"Antimicrobial\",   y.title = \"Proportion\",   ... )  geom_sir(   position = NULL,   x = c(\"antibiotic\", \"interpretation\"),   fill = \"interpretation\",   translate_ab = \"name\",   minimum = 30,   language = get_AMR_locale(),   combine_SI = TRUE,   ... )  facet_sir(facet = c(\"interpretation\", \"antibiotic\"), nrow = NULL)  scale_y_percent(breaks = seq(0, 1, 0.1), limits = NULL)  scale_sir_colours(..., aesthetics = \"fill\")  theme_sir()  labels_sir_count(   position = NULL,   x = \"antibiotic\",   translate_ab = \"name\",   minimum = 30,   language = get_AMR_locale(),   combine_SI = TRUE,   datalabels.size = 3,   datalabels.colour = \"grey15\" )"},{"path":"https://msberends.github.io/AMR/reference/ggplot_sir.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"AMR Plots with ggplot2 — ggplot_sir","text":"data data.frame column(s) class sir (see .sir()) position position adjustment bars, either \"fill\", \"stack\" \"dodge\" x variable show x axis, either \"antibiotic\" (default) \"interpretation\" grouping variable fill variable categorise using plots legend, either \"antibiotic\" (default) \"interpretation\" grouping variable facet variable split plots , either \"interpretation\" (default) \"antibiotic\" grouping variable breaks numeric vector positions limits numeric vector length two providing limits scale, use NA refer existing minimum maximum translate_ab column name antibiotics data set translate antibiotic abbreviations , using ab_property() combine_SI logical indicate whether values S must merged one, output consists S+vs. R (susceptible vs. resistant) - default TRUE minimum minimum allowed number available (tested) isolates. isolate count lower minimum return NA warning. default number 30 isolates advised Clinical Laboratory Standards Institute (CLSI) best practice, see Source. language language returned text - default current system language (see get_AMR_locale()) can also set package option AMR_locale. Use language = NULL language = \"\" prevent translation. nrow (using facet) number rows colours named vactor colour used filling. default colours colour-blind friendly. datalabels show datalabels using labels_sir_count() datalabels.size size datalabels datalabels.colour colour datalabels title text show title plot subtitle text show subtitle plot caption text show caption plot x.title text show x axis description y.title text show y axis description ... arguments passed geom_sir() , case scale_sir_colours(), named values set colours. default colours colour-blind friendly, maintaining convention e.g. 'susceptible' green 'resistant' red. See Examples. aesthetics aesthetics apply colours - default \"fill\" can also (combination ) \"alpha\", \"colour\", \"fill\", \"linetype\", \"shape\" \"size\"","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_sir.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"AMR Plots with ggplot2 — ggplot_sir","text":"default, names antibiotics shown plots using ab_name(). can set translate_ab argument. See count_df().","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_sir.html","id":"the-functions","dir":"Reference","previous_headings":"","what":"The Functions","title":"AMR Plots with ggplot2 — ggplot_sir","text":"geom_sir() take variable data sir class (created .sir()) using sir_df() plot bars percentage S, , R. default behaviour bars stacked different antibiotics x axis. facet_sir() creates 2d plots (default based S//R) using ggplot2::facet_wrap(). scale_y_percent() transforms y axis 0 100% range using ggplot2::scale_y_continuous(). scale_sir_colours() sets colours bars (green S, yellow , red R). multilingual support. default colours colour-blind friendly, maintaining convention e.g. 'susceptible' green 'resistant' red. theme_sir() [ggplot2 theme][ggplot2::theme() minimal distraction. labels_sir_count() print datalabels bars percentage amount isolates using ggplot2::geom_text(). ggplot_sir() wrapper around functions uses data first input. makes possible use function pipe (%>%). See Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/ggplot_sir.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"AMR Plots with ggplot2 — ggplot_sir","text":"","code":"# \\donttest{ if (require(\"ggplot2\") && require(\"dplyr\")) {   # get antimicrobial results for drugs against a UTI:   ggplot(example_isolates %>% select(AMX, NIT, FOS, TMP, CIP)) +     geom_sir() }  if (require(\"ggplot2\") && require(\"dplyr\")) {   # prettify the plot using some additional functions:   df <- example_isolates %>% select(AMX, NIT, FOS, TMP, CIP)   ggplot(df) +     geom_sir() +     scale_y_percent() +     scale_sir_colours() +     labels_sir_count() +     theme_sir() }  if (require(\"ggplot2\") && require(\"dplyr\")) {   # or better yet, simplify this using the wrapper function - a single command:   example_isolates %>%     select(AMX, NIT, FOS, TMP, CIP) %>%     ggplot_sir() }  if (require(\"ggplot2\") && require(\"dplyr\")) {   # get only proportions and no counts:   example_isolates %>%     select(AMX, NIT, FOS, TMP, CIP) %>%     ggplot_sir(datalabels = FALSE) }  if (require(\"ggplot2\") && require(\"dplyr\")) {   # add other ggplot2 arguments as you like:   example_isolates %>%     select(AMX, NIT, FOS, TMP, CIP) %>%     ggplot_sir(       width = 0.5,       colour = \"black\",       size = 1,       linetype = 2,       alpha = 0.25     ) }  if (require(\"ggplot2\") && require(\"dplyr\")) {   # you can alter the colours with colour names:   example_isolates %>%     select(AMX) %>%     ggplot_sir(colours = c(SI = \"yellow\")) }  if (require(\"ggplot2\") && require(\"dplyr\")) {   # but you can also use the built-in colour-blind friendly colours for   # your plots, where \"S\" is green, \"I\" is yellow and \"R\" is red:   data.frame(     x = c(\"Value1\", \"Value2\", \"Value3\"),     y = c(1, 2, 3),     z = c(\"Value4\", \"Value5\", \"Value6\")   ) %>%     ggplot() +     geom_col(aes(x = x, y = y, fill = z)) +     scale_sir_colours(Value4 = \"S\", Value5 = \"I\", Value6 = \"R\") }  if (require(\"ggplot2\") && require(\"dplyr\")) {   # resistance of ciprofloxacine per age group   example_isolates %>%     mutate(first_isolate = first_isolate()) %>%     filter(       first_isolate == TRUE,       mo == as.mo(\"Escherichia coli\")     ) %>%     # age_groups() is also a function in this AMR package:     group_by(age_group = age_groups(age)) %>%     select(age_group, CIP) %>%     ggplot_sir(x = \"age_group\") } #> Warning: Removed 6 rows containing missing values (`position_stack()`). #> Warning: Removed 6 rows containing missing values (`position_stack()`).  if (require(\"ggplot2\") && require(\"dplyr\")) {   # a shorter version which also adjusts data label colours:   example_isolates %>%     select(AMX, NIT, FOS, TMP, CIP) %>%     ggplot_sir(colours = FALSE) }  if (require(\"ggplot2\") && require(\"dplyr\")) {   # it also supports groups (don't forget to use the group var on `x` or `facet`):   example_isolates %>%     filter(mo_is_gram_negative(), ward != \"Outpatient\") %>%     # select only UTI-specific drugs     select(ward, AMX, NIT, FOS, TMP, CIP) %>%     group_by(ward) %>%     ggplot_sir(       x = \"ward\",       facet = \"antibiotic\",       nrow = 1,       title = \"AMR of Anti-UTI Drugs Per Ward\",       x.title = \"Ward\",       datalabels = FALSE     ) } #> ℹ Using column 'mo' as input for mo_is_gram_negative()  # }"},{"path":"https://msberends.github.io/AMR/reference/guess_ab_col.html","id":null,"dir":"Reference","previous_headings":"","what":"Guess Antibiotic Column — guess_ab_col","title":"Guess Antibiotic Column — guess_ab_col","text":"tries find column name data set based information antibiotics data set. Also supports WHONET abbreviations.","code":""},{"path":"https://msberends.github.io/AMR/reference/guess_ab_col.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Guess Antibiotic Column — guess_ab_col","text":"","code":"guess_ab_col(   x = NULL,   search_string = NULL,   verbose = FALSE,   only_sir_columns = FALSE )"},{"path":"https://msberends.github.io/AMR/reference/guess_ab_col.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Guess Antibiotic Column — guess_ab_col","text":"x data.frame search_string text search x , checked .ab() value column x verbose logical indicate whether additional info printed only_sir_columns logical indicate whether antibiotic columns must detected transformed class sir (see .sir()) beforehand (default FALSE)","code":""},{"path":"https://msberends.github.io/AMR/reference/guess_ab_col.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Guess Antibiotic Column — guess_ab_col","text":"column name x, NULL result found.","code":""},{"path":"https://msberends.github.io/AMR/reference/guess_ab_col.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Guess Antibiotic Column — guess_ab_col","text":"can look antibiotic (trade) name abbreviation search x antibiotics data set column containing name code antibiotic.","code":""},{"path":"https://msberends.github.io/AMR/reference/guess_ab_col.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Guess Antibiotic Column — guess_ab_col","text":"","code":"df <- data.frame(   amox = \"S\",   tetr = \"R\" )  guess_ab_col(df, \"amoxicillin\") #> [1] \"amox\" guess_ab_col(df, \"J01AA07\") # ATC code of tetracycline #> [1] \"tetr\"  guess_ab_col(df, \"J01AA07\", verbose = TRUE) #> Auto-guessing columns suitable for analysis #> ... #>  OK. #> ℹ Using column 'amox' as input for AMX (amoxicillin). #> ℹ Using column 'tetr' as input for TCY (tetracycline). #> ℹ Using column 'tetr' as input for J01AA07 (tetracycline). #> [1] \"tetr\" # NOTE: Using column 'tetr' as input for J01AA07 (tetracycline).  # WHONET codes df <- data.frame(   AMP_ND10 = \"R\",   AMC_ED20 = \"S\" ) guess_ab_col(df, \"ampicillin\") #> [1] \"AMP_ND10\" guess_ab_col(df, \"J01CR02\") #> [1] \"AMC_ED20\" guess_ab_col(df, as.ab(\"augmentin\")) #> [1] \"AMC_ED20\""},{"path":"https://msberends.github.io/AMR/reference/intrinsic_resistant.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with Bacterial Intrinsic Resistance — intrinsic_resistant","title":"Data Set with Bacterial Intrinsic Resistance — intrinsic_resistant","text":"Data set containing defined intrinsic resistance EUCAST bug-drug combinations.","code":""},{"path":"https://msberends.github.io/AMR/reference/intrinsic_resistant.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with Bacterial Intrinsic Resistance — intrinsic_resistant","text":"","code":"intrinsic_resistant"},{"path":"https://msberends.github.io/AMR/reference/intrinsic_resistant.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with Bacterial Intrinsic Resistance — intrinsic_resistant","text":"tibble 134 634 observations 2 variables: mo Microorganism ID ab Antibiotic ID","code":""},{"path":"https://msberends.github.io/AMR/reference/intrinsic_resistant.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with Bacterial Intrinsic Resistance — intrinsic_resistant","text":"data set based 'EUCAST Expert Rules' 'EUCAST Intrinsic Resistance Unusual Phenotypes' v3.3 (2021).","code":""},{"path":"https://msberends.github.io/AMR/reference/intrinsic_resistant.html","id":"direct-download","dir":"Reference","previous_headings":"","what":"Direct download","title":"Data Set with Bacterial Intrinsic Resistance — intrinsic_resistant","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository. allow machine reading EUCAST CLSI guidelines, almost impossible MS Excel PDF files distributed EUCAST CLSI.","code":""},{"path":"https://msberends.github.io/AMR/reference/intrinsic_resistant.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with Bacterial Intrinsic Resistance — intrinsic_resistant","text":"","code":"intrinsic_resistant #> # A tibble: 134,634 × 2 #>    mo      ab    #>    <mo>    <chr> #>  1 B_GRAMP ATM   #>  2 B_GRAMP COL   #>  3 B_GRAMP NAL   #>  4 B_GRAMP PLB   #>  5 B_GRAMP TEM   #>  6 B_ABTRP ATM   #>  7 B_ABTRP COL   #>  8 B_ABTRP NAL   #>  9 B_ABTRP PLB   #> 10 B_ABTRP TEM   #> # ℹ 134,624 more rows"},{"path":"https://msberends.github.io/AMR/reference/italicise_taxonomy.html","id":null,"dir":"Reference","previous_headings":"","what":"Italicise Taxonomic Families, Genera, Species, Subspecies — italicise_taxonomy","title":"Italicise Taxonomic Families, Genera, Species, Subspecies — italicise_taxonomy","text":"According binomial nomenclature, lowest four taxonomic levels (family, genus, species, subspecies) printed italics. function finds taxonomic names within strings makes italic.","code":""},{"path":"https://msberends.github.io/AMR/reference/italicise_taxonomy.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Italicise Taxonomic Families, Genera, Species, Subspecies — italicise_taxonomy","text":"","code":"italicise_taxonomy(string, type = c(\"markdown\", \"ansi\"))  italicize_taxonomy(string, type = c(\"markdown\", \"ansi\"))"},{"path":"https://msberends.github.io/AMR/reference/italicise_taxonomy.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Italicise Taxonomic Families, Genera, Species, Subspecies — italicise_taxonomy","text":"string character (vector) type type conversion taxonomic names, either \"markdown\" \"ansi\", see Details","code":""},{"path":"https://msberends.github.io/AMR/reference/italicise_taxonomy.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Italicise Taxonomic Families, Genera, Species, Subspecies — italicise_taxonomy","text":"function finds taxonomic names makes italic based microorganisms data set. taxonomic names can italicised using markdown (default) adding * taxonomic names, using ANSI colours adding \\033[3m \\033[23m taxonomic names. multiple ANSI colours available, conversion occur. function also supports abbreviation genus followed species, \"E. coli\" \"K. pneumoniae ozaenae\".","code":""},{"path":"https://msberends.github.io/AMR/reference/italicise_taxonomy.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Italicise Taxonomic Families, Genera, Species, Subspecies — italicise_taxonomy","text":"","code":"italicise_taxonomy(\"An overview of Staphylococcus aureus isolates\") #> [1] \"An overview of *Staphylococcus aureus* isolates\" italicise_taxonomy(\"An overview of S. aureus isolates\") #> [1] \"An overview of *S. aureus* isolates\"  cat(italicise_taxonomy(\"An overview of S. aureus isolates\", type = \"ansi\")) #> An overview of S. aureus isolates"},{"path":"https://msberends.github.io/AMR/reference/join.html","id":null,"dir":"Reference","previous_headings":"","what":"Join microorganisms to a Data Set — join","title":"Join microorganisms to a Data Set — join","text":"Join data set microorganisms easily existing data set character vector.","code":""},{"path":"https://msberends.github.io/AMR/reference/join.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Join microorganisms to a Data Set — join","text":"","code":"inner_join_microorganisms(x, by = NULL, suffix = c(\"2\", \"\"), ...)  left_join_microorganisms(x, by = NULL, suffix = c(\"2\", \"\"), ...)  right_join_microorganisms(x, by = NULL, suffix = c(\"2\", \"\"), ...)  full_join_microorganisms(x, by = NULL, suffix = c(\"2\", \"\"), ...)  semi_join_microorganisms(x, by = NULL, ...)  anti_join_microorganisms(x, by = NULL, ...)"},{"path":"https://msberends.github.io/AMR/reference/join.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Join microorganisms to a Data Set — join","text":"x existing data set join, character vector. case character vector, resulting data.frame contain column 'x' values. variable join - left empty search column class mo (created .mo()) \"mo\" column name exists x, otherwise column name x values exist microorganisms$mo (= \"bacteria_id\"), another column microorganisms (named, like = c(\"bacteria_id\" = \"fullname\")) suffix non-joined duplicate variables x y, suffixes added output disambiguate . character vector length 2. ... ignored, place allow future extensions","code":""},{"path":"https://msberends.github.io/AMR/reference/join.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Join microorganisms to a Data Set — join","text":"data.frame","code":""},{"path":"https://msberends.github.io/AMR/reference/join.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Join microorganisms to a Data Set — join","text":"Note: opposed join() functions dplyr, character vectors supported default existing columns get suffix \"2\" newly joined columns get suffix. dplyr package installed, join functions used. Otherwise, much slower merge() interaction() functions base R used.","code":""},{"path":"https://msberends.github.io/AMR/reference/join.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Join microorganisms to a Data Set — join","text":"","code":"left_join_microorganisms(as.mo(\"K. pneumoniae\")) #> # A tibble: 1 × 23 #>   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… #> # ℹ 13 more variables: subspecies <chr>, rank <chr>, ref <chr>, #> #   oxygen_tolerance <chr>, source <chr>, lpsn <chr>, lpsn_parent <chr>, #> #   lpsn_renamed_to <chr>, gbif <chr>, gbif_parent <chr>, #> #   gbif_renamed_to <chr>, prevalence <dbl>, snomed <list> left_join_microorganisms(\"B_KLBSL_PNMN\") #> # A tibble: 1 × 23 #>   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… #> # ℹ 13 more variables: subspecies <chr>, rank <chr>, ref <chr>, #> #   oxygen_tolerance <chr>, source <chr>, lpsn <chr>, lpsn_parent <chr>, #> #   lpsn_renamed_to <chr>, gbif <chr>, gbif_parent <chr>, #> #   gbif_renamed_to <chr>, prevalence <dbl>, snomed <list>  df <- data.frame(   date = seq(     from = as.Date(\"2018-01-01\"),     to = as.Date(\"2018-01-07\"),     by = 1   ),   bacteria = as.mo(c(     \"S. aureus\", \"MRSA\", \"MSSA\", \"STAAUR\",     \"E. coli\", \"E. coli\", \"E. coli\"   )),   stringsAsFactors = FALSE ) colnames(df) #> [1] \"date\"     \"bacteria\"  df_joined <- left_join_microorganisms(df, \"bacteria\") colnames(df_joined) #>  [1] \"date\"             \"bacteria\"         \"fullname\"         \"status\"           #>  [5] \"kingdom\"          \"phylum\"           \"class\"            \"order\"            #>  [9] \"family\"           \"genus\"            \"species\"          \"subspecies\"       #> [13] \"rank\"             \"ref\"              \"oxygen_tolerance\" \"source\"           #> [17] \"lpsn\"             \"lpsn_parent\"      \"lpsn_renamed_to\"  \"gbif\"             #> [21] \"gbif_parent\"      \"gbif_renamed_to\"  \"prevalence\"       \"snomed\"            # \\donttest{ if (require(\"dplyr\")) {   example_isolates %>%     left_join_microorganisms() %>%     colnames() } #> Joining, by = \"mo\" #>  [1] \"date\"             \"patient\"          \"age\"              \"gender\"           #>  [5] \"ward\"             \"mo\"               \"PEN\"              \"OXA\"              #>  [9] \"FLC\"              \"AMX\"              \"AMC\"              \"AMP\"              #> [13] \"TZP\"              \"CZO\"              \"FEP\"              \"CXM\"              #> [17] \"FOX\"              \"CTX\"              \"CAZ\"              \"CRO\"              #> [21] \"GEN\"              \"TOB\"              \"AMK\"              \"KAN\"              #> [25] \"TMP\"              \"SXT\"              \"NIT\"              \"FOS\"              #> [29] \"LNZ\"              \"CIP\"              \"MFX\"              \"VAN\"              #> [33] \"TEC\"              \"TCY\"              \"TGC\"              \"DOX\"              #> [37] \"ERY\"              \"CLI\"              \"AZM\"              \"IPM\"              #> [41] \"MEM\"              \"MTR\"              \"CHL\"              \"COL\"              #> [45] \"MUP\"              \"RIF\"              \"fullname\"         \"status\"           #> [49] \"kingdom\"          \"phylum\"           \"class\"            \"order\"            #> [53] \"family\"           \"genus\"            \"species\"          \"subspecies\"       #> [57] \"rank\"             \"ref\"              \"oxygen_tolerance\" \"source\"           #> [61] \"lpsn\"             \"lpsn_parent\"      \"lpsn_renamed_to\"  \"gbif\"             #> [65] \"gbif_parent\"      \"gbif_renamed_to\"  \"prevalence\"       \"snomed\"           # }"},{"path":"https://msberends.github.io/AMR/reference/key_antimicrobials.html","id":null,"dir":"Reference","previous_headings":"","what":"(Key) Antimicrobials for First Weighted Isolates — key_antimicrobials","title":"(Key) Antimicrobials for First Weighted Isolates — key_antimicrobials","text":"functions can used determine first weighted isolates considering phenotype isolate selection (see first_isolate()). Using phenotype-based method determine first isolates reliable methods disregard phenotypes.","code":""},{"path":"https://msberends.github.io/AMR/reference/key_antimicrobials.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"(Key) Antimicrobials for First Weighted Isolates — key_antimicrobials","text":"","code":"key_antimicrobials(   x = NULL,   col_mo = NULL,   universal = c(\"ampicillin\", \"amoxicillin/clavulanic acid\", \"cefuroxime\",     \"piperacillin/tazobactam\", \"ciprofloxacin\", \"trimethoprim/sulfamethoxazole\"),   gram_negative = c(\"gentamicin\", \"tobramycin\", \"colistin\", \"cefotaxime\", \"ceftazidime\",     \"meropenem\"),   gram_positive = c(\"vancomycin\", \"teicoplanin\", \"tetracycline\", \"erythromycin\",     \"oxacillin\", \"rifampin\"),   antifungal = c(\"anidulafungin\", \"caspofungin\", \"fluconazole\", \"miconazole\", \"nystatin\",     \"voriconazole\"),   only_sir_columns = FALSE,   ... )  all_antimicrobials(x = NULL, only_sir_columns = FALSE, ...)  antimicrobials_equal(   y,   z,   type = c(\"points\", \"keyantimicrobials\"),   ignore_I = TRUE,   points_threshold = 2,   ... )"},{"path":"https://msberends.github.io/AMR/reference/key_antimicrobials.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"(Key) Antimicrobials for First Weighted Isolates — key_antimicrobials","text":"x data.frame antibiotics columns, like AMX amox. Can left blank determine automatically col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). universal names broad-spectrum antimicrobial drugs, case-insensitive. Set NULL ignore. See Details default antimicrobial drugs gram_negative names antibiotic drugs Gram-positives, case-insensitive. Set NULL ignore. See Details default antibiotic drugs gram_positive names antibiotic drugs Gram-negatives, case-insensitive. Set NULL ignore. See Details default antibiotic drugs antifungal names antifungal drugs fungi, case-insensitive. Set NULL ignore. See Details default antifungal drugs only_sir_columns logical indicate whether columns must included transformed class sir (see .sir()) beforehand (default FALSE) ... ignored, place allow future extensions y, z character vectors compare type type determine weighed isolates; can \"keyantimicrobials\" \"points\", see Details ignore_I logical indicate whether antibiotic interpretations \"\" ignored type = \"keyantimicrobials\", see Details points_threshold minimum number points require differences antibiogram lead inclusion isolate type = \"points\", see Details","code":""},{"path":"https://msberends.github.io/AMR/reference/key_antimicrobials.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"(Key) Antimicrobials for First Weighted Isolates — key_antimicrobials","text":"key_antimicrobials() all_antimicrobials() functions context-aware. means x argument can left blank used inside data.frame call, see Examples. function key_antimicrobials() returns character vector 12 antimicrobial results every isolate. function all_antimicrobials() returns character vector antimicrobial drug results every isolate. vectors can compared using antimicrobials_equal(), check two isolates generally antibiogram. Missing invalid values replaced dot (\".\") key_antimicrobials() ignored antimicrobials_equal(). Please see first_isolate() function important functions enable 'phenotype-based' method determination first isolates. default antimicrobial drugs used rows (set universal) : Ampicillin Amoxicillin/clavulanic acid Cefuroxime Ciprofloxacin Piperacillin/tazobactam Trimethoprim/sulfamethoxazole default antimicrobial drugs used Gram-negative bacteria (set gram_negative) : Cefotaxime Ceftazidime Colistin Gentamicin Meropenem Tobramycin default antimicrobial drugs used Gram-positive bacteria (set gram_positive) : Erythromycin Oxacillin Rifampin Teicoplanin Tetracycline Vancomycin default antimicrobial drugs used fungi (set antifungal) : Anidulafungin Caspofungin Fluconazole Miconazole Nystatin Voriconazole","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/key_antimicrobials.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"(Key) Antimicrobials for First Weighted Isolates — key_antimicrobials","text":"","code":"# `example_isolates` is a data set available in the AMR package. # See ?example_isolates.  # output of the `key_antimicrobials()` function could be like this: strainA <- \"SSSRR.S.R..S\" strainB <- \"SSSIRSSSRSSS\"  # those strings can be compared with: antimicrobials_equal(strainA, strainB, type = \"keyantimicrobials\") #> [1] TRUE # TRUE, because I is ignored (as well as missing values)  antimicrobials_equal(strainA, strainB, type = \"keyantimicrobials\", ignore_I = FALSE) #> [1] FALSE # FALSE, because I is not ignored and so the 4th [character] differs  # \\donttest{ if (require(\"dplyr\")) {   # set key antibiotics to a new variable   my_patients <- example_isolates %>%     mutate(keyab = key_antimicrobials(antifungal = NULL)) %>% # no need to define `x`     mutate(       # now calculate first isolates       first_regular = first_isolate(col_keyantimicrobials = FALSE),       # and first WEIGHTED isolates       first_weighted = first_isolate(col_keyantimicrobials = \"keyab\")     )    # Check the difference in this data set, 'weighted' results in more isolates:   sum(my_patients$first_regular, na.rm = TRUE)   sum(my_patients$first_weighted, na.rm = TRUE) } #> [1] 1376 # }"},{"path":"https://msberends.github.io/AMR/reference/kurtosis.html","id":null,"dir":"Reference","previous_headings":"","what":"Kurtosis of the Sample — kurtosis","title":"Kurtosis of the Sample — kurtosis","text":"Kurtosis measure \"tailedness\" probability distribution real-valued random variable. normal distribution kurtosis 3 excess kurtosis 0.","code":""},{"path":"https://msberends.github.io/AMR/reference/kurtosis.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Kurtosis of the Sample — kurtosis","text":"","code":"kurtosis(x, na.rm = FALSE, excess = FALSE)  # S3 method for default kurtosis(x, na.rm = FALSE, excess = FALSE)  # S3 method for matrix kurtosis(x, na.rm = FALSE, excess = FALSE)  # S3 method for data.frame kurtosis(x, na.rm = FALSE, excess = FALSE)"},{"path":"https://msberends.github.io/AMR/reference/kurtosis.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Kurtosis of the Sample — kurtosis","text":"x vector values, matrix data.frame na.rm logical indicate whether NA values stripped computation proceeds excess logical indicate whether excess kurtosis returned, defined kurtosis minus 3.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/kurtosis.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Kurtosis of the Sample — kurtosis","text":"","code":"kurtosis(rnorm(10000)) #> [1] 2.989289 kurtosis(rnorm(10000), excess = TRUE) #> [1] 0.0300932"},{"path":"https://msberends.github.io/AMR/reference/like.html","id":null,"dir":"Reference","previous_headings":"","what":"Vectorised Pattern Matching with Keyboard Shortcut — like","title":"Vectorised Pattern Matching with Keyboard Shortcut — like","text":"Convenient wrapper around grepl() match pattern: x %like% pattern. always returns logical vector always case-insensitive (use x %like_case% pattern case-sensitive matching). Also, pattern can long x compare items index vectors, can length iterate cases.","code":""},{"path":"https://msberends.github.io/AMR/reference/like.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Vectorised Pattern Matching with Keyboard Shortcut — like","text":"","code":"like(x, pattern, ignore.case = TRUE)  x %like% pattern  x %unlike% pattern  x %like_case% pattern  x %unlike_case% pattern"},{"path":"https://msberends.github.io/AMR/reference/like.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Vectorised Pattern Matching with Keyboard Shortcut — like","text":"Idea like function data.table package, although altered explained Details.","code":""},{"path":"https://msberends.github.io/AMR/reference/like.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Vectorised Pattern Matching with Keyboard Shortcut — like","text":"x character vector matches sought, object can coerced .character() character vector. pattern character vector containing regular expressions (character string fixed = TRUE) matched given character vector. Coerced .character() character string possible. ignore.case FALSE, pattern matching case sensitive TRUE, case ignored matching.","code":""},{"path":"https://msberends.github.io/AMR/reference/like.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Vectorised Pattern Matching with Keyboard Shortcut — like","text":"logical vector","code":""},{"path":"https://msberends.github.io/AMR/reference/like.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Vectorised Pattern Matching with Keyboard Shortcut — like","text":"like() %like%/%unlike% functions: case-insensitive (use %like_case%/%unlike_case% case-sensitive matching) Support multiple patterns Check pattern valid regular expression sets fixed = TRUE , greatly improve speed (vectorised pattern) Always use compatibility Perl unless fixed = TRUE, greatly improve speed Using RStudio? %like%/%unlike% functions can also directly inserted code Addins menu can keyboard shortcut like Shift+Ctrl+L Shift+Cmd+L (see menu Tools > Modify Keyboard Shortcuts...). keep pressing shortcut, inserted text iterated %like% -> %unlike% -> %like_case% -> %unlike_case%.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/like.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Vectorised Pattern Matching with Keyboard Shortcut — like","text":"","code":"# data.table has a more limited version of %like%, so unload it: try(detach(\"package:data.table\", unload = TRUE), silent = TRUE)  a <- \"This is a test\" b <- \"TEST\" a %like% b #> [1] TRUE b %like% a #> [1] FALSE  # also supports multiple patterns a <- c(\"Test case\", \"Something different\", \"Yet another thing\") b <- c(\"case\", \"diff\", \"yet\") a %like% b #> [1] TRUE TRUE TRUE a %unlike% b #> [1] FALSE FALSE FALSE  a[1] %like% b #> [1]  TRUE FALSE FALSE a %like% b[1] #> [1]  TRUE FALSE FALSE  # \\donttest{ # get isolates whose name start with 'Entero' (case-insensitive) example_isolates[which(mo_name() %like% \"^entero\"), ] #> ℹ Using column 'mo' as input for mo_name() #> # A tibble: 106 × 46 #>    date       patient   age gender ward    mo            PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>   <mo>          <sir> <sir> <sir> <sir> #>  1 2002-02-21 4FC193     69 M      Clinic… B_ENTRC_FACM  NA    NA    NA    NA    #>  2 2002-04-08 130252     78 M      ICU     B_ENTRC_FCLS  NA    NA    NA    NA    #>  3 2002-06-23 798871     82 M      Clinic… B_ENTRC_FCLS  NA    NA    NA    NA    #>  4 2002-06-23 798871     82 M      Clinic… B_ENTRC_FCLS  NA    NA    NA    NA    #>  5 2003-04-20 6BC362     62 M      ICU     B_ENTRC       NA    NA    NA    NA    #>  6 2003-04-21 6BC362     62 M      ICU     B_ENTRC       NA    NA    NA    NA    #>  7 2003-08-13 F35553     52 M      ICU     B_ENTRBC_CLOC R     NA    NA    R     #>  8 2003-08-13 F35553     52 M      ICU     B_ENTRC_FCLS  NA    NA    NA    NA    #>  9 2003-09-05 F35553     52 M      ICU     B_ENTRC       NA    NA    NA    NA    #> 10 2003-09-05 F35553     52 M      ICU     B_ENTRBC_CLOC R     NA    NA    R     #> # ℹ 96 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …  if (require(\"dplyr\")) {   example_isolates %>%     filter(mo_name() %like% \"^ent\") } #> ℹ Using column 'mo' as input for mo_name() #> # A tibble: 106 × 46 #>    date       patient   age gender ward    mo            PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>   <mo>          <sir> <sir> <sir> <sir> #>  1 2002-02-21 4FC193     69 M      Clinic… B_ENTRC_FACM  NA    NA    NA    NA    #>  2 2002-04-08 130252     78 M      ICU     B_ENTRC_FCLS  NA    NA    NA    NA    #>  3 2002-06-23 798871     82 M      Clinic… B_ENTRC_FCLS  NA    NA    NA    NA    #>  4 2002-06-23 798871     82 M      Clinic… B_ENTRC_FCLS  NA    NA    NA    NA    #>  5 2003-04-20 6BC362     62 M      ICU     B_ENTRC       NA    NA    NA    NA    #>  6 2003-04-21 6BC362     62 M      ICU     B_ENTRC       NA    NA    NA    NA    #>  7 2003-08-13 F35553     52 M      ICU     B_ENTRBC_CLOC R     NA    NA    R     #>  8 2003-08-13 F35553     52 M      ICU     B_ENTRC_FCLS  NA    NA    NA    NA    #>  9 2003-09-05 F35553     52 M      ICU     B_ENTRC       NA    NA    NA    NA    #> 10 2003-09-05 F35553     52 M      ICU     B_ENTRBC_CLOC R     NA    NA    R     #> # ℹ 96 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, … # }"},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":null,"dir":"Reference","previous_headings":"","what":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"Determine isolates multidrug-resistant organisms (MDRO) according international, national custom guidelines.","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"","code":"mdro(   x = NULL,   guideline = \"CMI2012\",   col_mo = NULL,   info = interactive(),   pct_required_classes = 0.5,   combine_SI = TRUE,   verbose = FALSE,   only_sir_columns = FALSE,   ... )  custom_mdro_guideline(..., as_factor = TRUE)  brmo(x = NULL, only_sir_columns = FALSE, ...)  mrgn(x = NULL, only_sir_columns = FALSE, ...)  mdr_tb(x = NULL, only_sir_columns = FALSE, ...)  mdr_cmi2012(x = NULL, only_sir_columns = FALSE, ...)  eucast_exceptional_phenotypes(x = NULL, only_sir_columns = FALSE, ...)"},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"See supported guidelines list publications used function.","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"x data.frame antibiotics columns, like AMX amox. Can left blank automatic determination. guideline specific guideline follow, see sections Supported international / national guidelines Using Custom Guidelines . left empty, publication Magiorakos et al. (see ) followed. col_mo column name names codes microorganisms (see .mo()) - default first column class mo. Values coerced using .mo(). info logical indicate whether progress printed console - default print interactive sessions pct_required_classes minimal required percentage antimicrobial classes must available per isolate, rounded . example, default guideline, 17 antimicrobial classes must available S. aureus. Setting pct_required_classes argument 0.5 (default) means every S. aureus isolate least 8 different classes must available. lower number available classes return NA isolate. combine_SI logical indicate whether values S must merged one, resistance considered isolates R, . default behaviour mdro() function, follows redefinition EUCAST interpretation (increased exposure) 2019, see section 'Interpretation S, R' . using combine_SI = FALSE, resistance considered isolates R . verbose logical turn Verbose mode (default ). Verbose mode, function return MDRO results, instead returns data set logbook form extensive info isolates MDRO-positive, . only_sir_columns logical indicate whether antibiotic columns must detected transformed class sir (see .sir()) beforehand (default FALSE) ... case custom_mdro_guideline(): set rules, see section Using Custom Guidelines . Otherwise: column name antibiotic, see section Antibiotics . as_factor logical indicate whether returned value ordered factor (TRUE, default), otherwise character vector","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"CMI 2012 paper - function mdr_cmi2012() mdro(): Ordered factor levels Negative < Multi-drug-resistant (MDR) < Extensively drug-resistant (XDR) < Pandrug-resistant (PDR) TB guideline - function mdr_tb() mdro(..., guideline = \"TB\"): Ordered factor levels Negative < Mono-resistant < Poly-resistant < Multi-drug-resistant < Extensively drug-resistant German guideline - function mrgn() mdro(..., guideline = \"MRGN\"): Ordered factor levels Negative < 3MRGN < 4MRGN Everything else, except custom guidelines: Ordered factor levels Negative < Positive, unconfirmed < Positive. value \"Positive, unconfirmed\" means , according guideline, entirely sure isolate multi-drug resistant confirmed additional (e.g. molecular) tests","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"functions context-aware. means x argument can left blank used inside data.frame call, see Examples. pct_required_classes argument, values 1 divided 100. support fractions (0.75 3/4) percentages (75). Note: Every test involves Enterobacteriaceae family, internally performed using newly named order Enterobacterales, since Enterobacteriaceae family taxonomically reclassified Adeolu et al. 2016. , Enterobacteriaceae family Enterobacteriales () order. species old Enterobacteriaceae family still new Enterobacterales (without ) order, divided multiple families. way tests performed now mdro() function makes sure results 2016 2016 identical.","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"supported-international-national-guidelines","dir":"Reference","previous_headings":"","what":"Supported International / National Guidelines","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"Currently supported guidelines (case-insensitive): guideline = \"CMI2012\" (default) Magiorakos AP, Srinivasan et al. \"Multidrug-resistant, extensively drug-resistant pandrug-resistant bacteria: international expert proposal interim standard definitions acquired resistance.\" Clinical Microbiology Infection (2012) (doi:10.1111/j.1469-0691.2011.03570.x ) guideline = \"EUCAST3.3\" (simply guideline = \"EUCAST\") European international guideline - EUCAST Expert Rules Version 3.3 \"Intrinsic Resistance Unusual Phenotypes\" (link) guideline = \"EUCAST3.2\" European international guideline - EUCAST Expert Rules Version 3.2 \"Intrinsic Resistance Unusual Phenotypes\" (link) guideline = \"EUCAST3.1\" European international guideline - EUCAST Expert Rules Version 3.1 \"Intrinsic Resistance Exceptional Phenotypes Tables\" (link) guideline = \"TB\" international guideline multi-drug resistant tuberculosis - World Health Organization \"Companion handbook guidelines programmatic management drug-resistant tuberculosis\" (link) guideline = \"MRGN\" German national guideline - Mueller et al. (2015) Antimicrobial Resistance Infection Control 4:7; doi:10.1186/s13756-015-0047-6 guideline = \"BRMO\" Dutch national guideline - Rijksinstituut voor Volksgezondheid en Milieu \"WIP-richtlijn BRMO (Bijzonder Resistente Micro-Organismen) (ZKH)\" (link) Please suggest (country-specific) guidelines letting us know: https://github.com/msberends/AMR/issues/new.","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"using-custom-guidelines","dir":"Reference","previous_headings":"","what":"Using Custom Guidelines","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"Custom guidelines can set custom_mdro_guideline() function. great importance custom rules determine MDROs hospital, e.g., rules dependent ward, state contact isolation variables data. familiar case_when() function dplyr package, recognise input method set rules. Rules must set using R considers 'formula notation'. rule written tilde (~) consequence rule written tilde:   row/isolate matches first rule, value first ~ (case 'Elderly Type ') set MDRO value. Otherwise, second rule tried . number rules unlimited. can print rules set console overview. Colours help reading console supports colours.   outcome function can used guideline argument mdro() function:   Rules can also combined custom rules using c():   rules set (custom object case) exported shared file location using saveRDS() collaborate multiple users. custom rules set imported using readRDS().","code":"custom <- custom_mdro_guideline(CIP == \"R\" & age > 60 ~ \"Elderly Type A\",                                 ERY == \"R\" & age > 60 ~ \"Elderly Type B\") custom #> A set of custom MDRO rules: #>   1. CIP is \"R\" and age is higher than 60 -> Elderly Type A #>   2. ERY is \"R\" and age is higher than 60 -> Elderly Type B #>   3. Otherwise -> Negative #> #> Unmatched rows will return NA. x <- mdro(example_isolates,           guideline = custom) table(x) #>       Negative Elderly Type A Elderly Type B #>           1070            198            732 x <- mdro(example_isolates,           guideline = c(custom,                         custom_mdro_guideline(ERY == \"R\" & age > 50 ~ \"Elderly Type C\"))) table(x) #>       Negative Elderly Type A Elderly Type B Elderly Type C #>            961            198            732            109"},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"antibiotics","dir":"Reference","previous_headings":"","what":"Antibiotics","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"define antibiotics column names, leave determine automatically guess_ab_col() input text (case-insensitive), use NULL skip column (e.g. TIC = NULL skip ticarcillin). Manually defined non-existing columns skipped warning. following antibiotics eligible functions eucast_rules() mdro(). shown format 'name (antimicrobial ID, ATC code)', sorted alphabetically: Amikacin (AMK, J01GB06), amoxicillin (AMX, J01CA04), amoxicillin/clavulanic acid (AMC, J01CR02), ampicillin (AMP, J01CA01), ampicillin/sulbactam (SAM, J01CR01), arbekacin (ARB, J01GB12), aspoxicillin (APX, J01CA19), azidocillin (AZD, J01CE04), azithromycin (AZM, J01FA10), azlocillin (AZL, J01CA09), aztreonam (ATM, J01DF01), bacampicillin (BAM, J01CA06), bekanamycin (BEK, J01GB13), benzathine benzylpenicillin (BNB, J01CE08), benzathine phenoxymethylpenicillin (BNP, J01CE10), benzylpenicillin (PEN, J01CE01), besifloxacin (BES, S01AE08), biapenem (BIA, J01DH05), carbenicillin (CRB, J01CA03), carindacillin (CRN, J01CA05), cefacetrile (CAC, J01DB10), cefaclor (CEC, J01DC04), cefadroxil (CFR, J01DB05), cefalexin (LEX, J01DB01), cefaloridine (RID, J01DB02), cefalotin (CEP, J01DB03), cefamandole (MAN, J01DC03), cefapirin (HAP, J01DB08), cefatrizine (CTZ, J01DB07), cefazedone (CZD, J01DB06), cefazolin (CZO, J01DB04), cefcapene (CCP, J01DD17), cefdinir (CDR, J01DD15), cefditoren (DIT, J01DD16), cefepime (FEP, J01DE01), cefetamet (CAT, J01DD10), cefixime (CFM, J01DD08), cefmenoxime (CMX, J01DD05), cefmetazole (CMZ, J01DC09), cefodizime (DIZ, J01DD09), cefonicid (CID, J01DC06), cefoperazone (CFP, J01DD12), cefoperazone/sulbactam (CSL, J01DD62), ceforanide (CND, J01DC11), cefotaxime (CTX, J01DD01), cefotaxime/clavulanic acid (CTC, J01DD51), cefotetan (CTT, J01DC05), cefotiam (CTF, J01DC07), cefoxitin (FOX, J01DC01), cefozopran (ZOP, J01DE03), cefpiramide (CPM, J01DD11), cefpirome (CPO, J01DE02), cefpodoxime (CPD, J01DD13), cefprozil (CPR, J01DC10), cefroxadine (CRD, J01DB11), cefsulodin (CFS, J01DD03), ceftaroline (CPT, J01DI02), ceftazidime (CAZ, J01DD02), ceftazidime/clavulanic acid (CCV, J01DD52), cefteram (CEM, J01DD18), ceftezole (CTL, J01DB12), ceftibuten (CTB, J01DD14), ceftizoxime (CZX, J01DD07), ceftobiprole medocaril (CFM1, J01DI01), ceftolozane/tazobactam (CZT, J01DI54), ceftriaxone (CRO, J01DD04), ceftriaxone/beta-lactamase inhibitor (CEB, J01DD63), cefuroxime (CXM, J01DC02), cephradine (CED, J01DB09), chloramphenicol (CHL, J01BA01), ciprofloxacin (CIP, J01MA02), clarithromycin (CLR, J01FA09), clindamycin (CLI, J01FF01), clometocillin (CLM, J01CE07), cloxacillin (CLO, J01CF02), colistin (COL, J01XB01), cycloserine (CYC, J04AB01), dalbavancin (DAL, J01XA04), daptomycin (DAP, J01XX09), delafloxacin (DFX, J01MA23), dibekacin (DKB, J01GB09), dicloxacillin (DIC, J01CF01), dirithromycin (DIR, J01FA13), doripenem (DOR, J01DH04), doxycycline (DOX, J01AA02), enoxacin (ENX, J01MA04), epicillin (EPC, J01CA07), ertapenem (ETP, J01DH03), erythromycin (ERY, J01FA01), fleroxacin (FLE, J01MA08), flucloxacillin (FLC, J01CF05), flurithromycin (FLR1, J01FA14), fosfomycin (FOS, J01XX01), framycetin (FRM, D09AA01), fusidic acid (FUS, J01XC01), garenoxacin (GRN, J01MA19), gatifloxacin (GAT, J01MA16), gemifloxacin (GEM, J01MA15), gentamicin (GEN, J01GB03), grepafloxacin (GRX, J01MA11), hetacillin (HET, J01CA18), imipenem (IPM, J01DH51), imipenem/relebactam (IMR, J01DH56), isepamicin (ISE, J01GB11), josamycin (JOS, J01FA07), kanamycin (KAN, J01GB04), lascufloxacin (LSC, J01MA25), latamoxef (LTM, J01DD06), levofloxacin (LVX, J01MA12), levonadifloxacin (LND, J01MA24), lincomycin (LIN, J01FF02), linezolid (LNZ, J01XX08), lomefloxacin (LOM, J01MA07), loracarbef (LOR, J01DC08), mecillinam (MEC, J01CA11), meropenem (MEM, J01DH02), meropenem/vaborbactam (MEV, J01DH52), metampicillin (MTM, J01CA14), meticillin (MET, J01CF03), mezlocillin (MEZ, J01CA10), micronomicin (MCR, S01AA22), midecamycin (MID, J01FA03), minocycline (MNO, J01AA08), miocamycin (MCM, J01FA11), moxifloxacin (MFX, J01MA14), nadifloxacin (NAD, D10AF05), nafcillin (NAF, J01CF06), nalidixic acid (NAL, J01MB02), neomycin (NEO, J01GB05), netilmicin (NET, J01GB07), nitrofurantoin (NIT, J01XE01), norfloxacin (, J01MA06), ofloxacin (OFX, J01MA01), oleandomycin (OLE, J01FA05), oritavancin (ORI, J01XA05), oxacillin (OXA, J01CF04), panipenem (PAN, J01DH55), pazufloxacin (PAZ, J01MA18), pefloxacin (PEF, J01MA03), penamecillin (PNM, J01CE06), pheneticillin (PHE, J01CE05), phenoxymethylpenicillin (PHN, J01CE02), piperacillin (PIP, J01CA12), piperacillin/tazobactam (TZP, J01CR05), pivampicillin (PVM, J01CA02), pivmecillinam (PME, J01CA08), plazomicin (PLZ, J01GB14), polymyxin B (PLB, J01XB02), pristinamycin (PRI, J01FG01), procaine benzylpenicillin (PRB, J01CE09), propicillin (PRP, J01CE03), prulifloxacin (PRU, J01MA17), quinupristin/dalfopristin (QDA, J01FG02), ribostamycin (RST, J01GB10), rifampicin (RIF, J04AB02), rokitamycin (ROK, J01FA12), roxithromycin (RXT, J01FA06), rufloxacin (RFL, J01MA10), sisomicin (SIS, J01GB08), sitafloxacin (SIT, J01MA21), solithromycin (SOL, J01FA16), sparfloxacin (SPX, J01MA09), spiramycin (SPI, J01FA02), streptoduocin (STR, J01GA02), streptomycin (STR1, J01GA01), sulbactam (SUL, J01CG01), sulbenicillin (SBC, J01CA16), sulfadiazine (SDI, J01EC02), sulfadiazine/trimethoprim (SLT1, J01EE02), sulfadimethoxine (SUD, J01ED01), sulfadimidine (SDM, J01EB03), sulfadimidine/trimethoprim (SLT2, J01EE05), sulfafurazole (SLF, J01EB05), sulfaisodimidine (SLF1, J01EB01), sulfalene (SLF2, J01ED02), sulfamazone (SZO, J01ED09), sulfamerazine (SLF3, J01ED07), sulfamerazine/trimethoprim (SLT3, J01EE07), sulfamethizole (SLF4, J01EB02), sulfamethoxazole (SMX, J01EC01), sulfamethoxypyridazine (SLF5, J01ED05), sulfametomidine (SLF6, J01ED03), sulfametoxydiazine (SLF7, J01ED04), sulfametrole/trimethoprim (SLT4, J01EE03), sulfamoxole (SLF8, J01EC03), sulfamoxole/trimethoprim (SLT5, J01EE04), sulfanilamide (SLF9, J01EB06), sulfaperin (SLF10, J01ED06), sulfaphenazole (SLF11, J01ED08), sulfapyridine (SLF12, J01EB04), sulfathiazole (SUT, J01EB07), sulfathiourea (SLF13, J01EB08), sultamicillin (SLT6, J01CR04), talampicillin (TAL, J01CA15), tazobactam (TAZ, J01CG02), tebipenem (TBP, J01DH06), tedizolid (TZD, J01XX11), teicoplanin (TEC, J01XA02), telavancin (TLV, J01XA03), telithromycin (TLT, J01FA15), temafloxacin (TMX, J01MA05), temocillin (TEM, J01CA17), tetracycline (TCY, J01AA07), ticarcillin (TIC, J01CA13), ticarcillin/clavulanic acid (TCC, J01CR03), tigecycline (TGC, J01AA12), tilbroquinol (TBQ, P01AA05), tobramycin (TOB, J01GB01), tosufloxacin (TFX, J01MA22), trimethoprim (TMP, J01EA01), trimethoprim/sulfamethoxazole (SXT, J01EE01), troleandomycin (TRL, J01FA08), trovafloxacin (TVA, J01MA13), vancomycin (VAN, J01XA01)","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"interpretation-of-sir","dir":"Reference","previous_headings":"","what":"Interpretation of SIR","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"2019, European Committee Antimicrobial Susceptibility Testing (EUCAST) decided change definitions susceptibility testing categories S, , R shown (https://www.eucast.org/newsiandr): S - Susceptible, standard dosing regimen microorganism categorised \"Susceptible, standard dosing regimen\", high likelihood therapeutic success using standard dosing regimen agent. - Susceptible, increased exposure  microorganism categorised \"Susceptible, Increased exposure\" high likelihood therapeutic success exposure agent increased adjusting dosing regimen concentration site infection. R = Resistant microorganism categorised \"Resistant\" high likelihood therapeutic failure even increased exposure. Exposure function mode administration, dose, dosing interval, infusion time, well distribution excretion antimicrobial agent influence infecting organism site infection. AMR package honours insight. Use susceptibility() (equal proportion_SI()) determine antimicrobial susceptibility count_susceptible() (equal count_SI()) count susceptible isolates.","code":""},{"path":"https://msberends.github.io/AMR/reference/mdro.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Determine Multidrug-Resistant Organisms (MDRO) — mdro","text":"","code":"out <- mdro(example_isolates, guideline = \"EUCAST\") str(out) #>  Ord.factor w/ 3 levels \"Negative\"<\"Positive, unconfirmed\"<..: 1 1 1 1 1 1 1 1 1 1 ... table(out) #> out #>              Negative Positive, unconfirmed              Positive  #>                  1978                     0                     6   out <- mdro(example_isolates,   guideline = custom_mdro_guideline(     AMX == \"R\" ~ \"Custom MDRO 1\",     VAN == \"R\" ~ \"Custom MDRO 2\"   ) ) table(out) #> out #>      Negative Custom MDRO 1 Custom MDRO 2  #>           870           804           326   # \\donttest{ if (require(\"dplyr\")) {   example_isolates %>%     mdro() %>%     table()    # no need to define `x` when used inside dplyr verbs:   example_isolates %>%     mutate(MDRO = mdro()) %>%     pull(MDRO) %>%     table() } #> Warning: in mdro(): NA introduced for isolates where the available percentage of #> antimicrobial classes was below 50% (set with pct_required_classes) #> Warning: There was 1 warning in `mutate()`. #> ℹ In argument: `MDRO = mdro()`. #> Caused by warning: #> ! in mdro(): NA introduced for isolates where the available percentage of #> antimicrobial classes was below 50% (set with pct_required_classes) #> . #>                         Negative       Multi-drug-resistant (MDR)  #>                             1601                              128  #> Extensively drug-resistant (XDR)          Pandrug-resistant (PDR)  #>                                0                                0  # }"},{"path":"https://msberends.github.io/AMR/reference/mean_amr_distance.html","id":null,"dir":"Reference","previous_headings":"","what":"Calculate the Mean AMR Distance — mean_amr_distance","title":"Calculate the Mean AMR Distance — mean_amr_distance","text":"Calculates normalised mean antimicrobial resistance multiple observations, help identify similar isolates without comparing antibiograms hand.","code":""},{"path":"https://msberends.github.io/AMR/reference/mean_amr_distance.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Calculate the Mean AMR Distance — mean_amr_distance","text":"","code":"mean_amr_distance(x, ...)  # S3 method for sir mean_amr_distance(x, ..., combine_SI = TRUE)  # S3 method for data.frame mean_amr_distance(x, ..., combine_SI = TRUE)  amr_distance_from_row(amr_distance, row)"},{"path":"https://msberends.github.io/AMR/reference/mean_amr_distance.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Calculate the Mean AMR Distance — mean_amr_distance","text":"x vector class sir, mic disk, data.frame containing columns classes ... variables select (supports tidyselect language column1:column4 (.mic), can thus also antibiotic selectors combine_SI logical indicate whether values S must merged one, input consists S+vs. R (susceptible vs. resistant) - default TRUE amr_distance outcome mean_amr_distance() row index, row number","code":""},{"path":"https://msberends.github.io/AMR/reference/mean_amr_distance.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Calculate the Mean AMR Distance — mean_amr_distance","text":"mean AMR distance effectively Z-score; normalised numeric value compare AMR test results can help identify similar isolates, without comparing antibiograms hand. MIC values (see .mic()) transformed log2() first; distance thus calculated (log2(x) - mean(log2(x))) / sd(log2(x)). SIR values (see .sir()) transformed using \"S\" = 1, \"\" = 2, \"R\" = 3. combine_SI TRUE (default), \"\" considered 1. data sets, mean AMR distance calculated per column, mean per row returned, see Examples. Use amr_distance_from_row() subtract distances distance one row, see Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/mean_amr_distance.html","id":"interpretation","dir":"Reference","previous_headings":"","what":"Interpretation","title":"Calculate the Mean AMR Distance — mean_amr_distance","text":"Isolates distances less 0.01 difference considered similar. Differences lower 0.025 considered suspicious.","code":""},{"path":"https://msberends.github.io/AMR/reference/mean_amr_distance.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Calculate the Mean AMR Distance — mean_amr_distance","text":"","code":"sir <- random_sir(10) sir #> Class 'sir' #>  [1] R S R S I I R I I S mean_amr_distance(sir) #>  [1]  1.449138 -0.621059  1.449138 -0.621059 -0.621059 -0.621059  1.449138 #>  [8] -0.621059 -0.621059 -0.621059  mic <- random_mic(10) mic #> Class 'mic' #>  [1] 0.125  0.0625 1      8      4      0.25   >=32   0.5    0.005  0.25   mean_amr_distance(mic) #>  [1] -0.554873825 -0.827456801  0.262875102  1.080624029  0.808041053 #>  [6] -0.282290850  1.625789980 -0.009707874 -1.820709964 -0.282290850 # equal to the Z-score of their log2: (log2(mic) - mean(log2(mic))) / sd(log2(mic)) #>  [1] -0.554873825 -0.827456801  0.262875102  1.080624029  0.808041053 #>  [6] -0.282290850  1.625789980 -0.009707874 -1.820709964 -0.282290850  disk <- random_disk(10) disk #> Class 'disk' #>  [1] 26 32 50 20 28 49 12 20  9 42 mean_amr_distance(disk) #>  [1] -0.19375217  0.22143105  1.46698069 -0.60893538 -0.05535776  1.39778349 #>  [7] -1.16251300 -0.60893538 -1.37010461  0.91340307  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    S   23  >=4  <=2 #> 2   B    S   27    1    4 #> 3   C    I   26  >=4  <=2 #> 4   D    I   19    1 >=16 #> 5   E    S   20    2    4 #> 6   F    I   25  0.5 >=16 #> 7   G    S   18  0.5  <=2 #> 8   H    R   19    2 >=16 #> 9   I    R   22    1  <=2 #> 10  J    R   20  0.5    8 mean_amr_distance(y) #> ℹ Calculating mean AMR distance based on columns \"amox\", \"cipr\", \"gent\", #>   and \"tobr\" #>  [1]  0.05387469  0.12082470  0.28731436 -0.12784750 -0.20825803  0.12342200 #>  [7] -0.98202095  0.60531151  0.06239096  0.06498826 y$amr_distance <- mean_amr_distance(y, where(is.mic)) #> Error in .subset(x, j): invalid subscript type 'list' y[order(y$amr_distance), ] #> Error in order(y$amr_distance): argument 1 is not a vector  if (require(\"dplyr\")) {   y %>%     mutate(       amr_distance = mean_amr_distance(y),       check_id_C = amr_distance_from_row(amr_distance, id == \"C\")     ) %>%     arrange(check_id_C) } #> ℹ Calculating mean AMR distance based on columns \"amox\", \"cipr\", \"gent\", #>   and \"tobr\" #>    id amox cipr gent tobr amr_distance check_id_C #> 1   C    I   26  >=4  <=2   0.28731436  0.0000000 #> 2   F    I   25  0.5 >=16   0.12342200  0.1638924 #> 3   B    S   27    1    4   0.12082470  0.1664897 #> 4   J    R   20  0.5    8   0.06498826  0.2223261 #> 5   I    R   22    1  <=2   0.06239096  0.2249234 #> 6   A    S   23  >=4  <=2   0.05387469  0.2334397 #> 7   H    R   19    2 >=16   0.60531151  0.3179971 #> 8   D    I   19    1 >=16  -0.12784750  0.4151619 #> 9   E    S   20    2    4  -0.20825803  0.4955724 #> 10  G    S   18  0.5  <=2  -0.98202095  1.2693353 if (require(\"dplyr\")) {   # support for groups   example_isolates %>%     filter(mo_genus() == \"Enterococcus\" & mo_species() != \"\") %>%     select(mo, TCY, carbapenems()) %>%     group_by(mo) %>%     mutate(dist = mean_amr_distance(.)) %>%     arrange(mo, dist) } #> ℹ Using column 'mo' as input for mo_genus() #> ℹ Using column 'mo' as input for mo_species() #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> ℹ Calculating mean AMR distance based on columns \"TCY\", \"IPM\", and \"MEM\" #> # A tibble: 63 × 5 #> # Groups:   mo [4] #>    mo           TCY   IPM   MEM     dist #>    <mo>         <sir> <sir> <sir>  <dbl> #>  1 B_ENTRC_AVIM S     S     NA     0     #>  2 B_ENTRC_AVIM S     S     NA     0     #>  3 B_ENTRC_CSSL NA    S     NA    NA     #>  4 B_ENTRC_FACM S     S     NA    -2.66  #>  5 B_ENTRC_FACM S     R     R     -0.423 #>  6 B_ENTRC_FACM S     R     R     -0.423 #>  7 B_ENTRC_FACM NA    R     R      0.224 #>  8 B_ENTRC_FACM NA    R     R      0.224 #>  9 B_ENTRC_FACM NA    R     R      0.224 #> 10 B_ENTRC_FACM NA    R     R      0.224 #> # ℹ 53 more rows"},{"path":"https://msberends.github.io/AMR/reference/microorganisms.codes.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with 4 957 Common Microorganism Codes — microorganisms.codes","title":"Data Set with 4 957 Common Microorganism Codes — microorganisms.codes","text":"data set containing commonly used codes microorganisms, laboratory systems WHONET. Define set_mo_source(). searched using .mo() consequently mo_* functions.","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.codes.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with 4 957 Common Microorganism Codes — microorganisms.codes","text":"","code":"microorganisms.codes"},{"path":"https://msberends.github.io/AMR/reference/microorganisms.codes.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with 4 957 Common Microorganism Codes — microorganisms.codes","text":"tibble 4 957 observations 2 variables: code Commonly used code microorganism. unique identifier. mo ID microorganism microorganisms data set","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.codes.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with 4 957 Common Microorganism Codes — microorganisms.codes","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/microorganisms.codes.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with 4 957 Common Microorganism Codes — microorganisms.codes","text":"","code":"microorganisms.codes #> # A tibble: 4,957 × 2 #>    code  mo                #>    <chr> <mo>              #>  1 1011  B_GRAMP           #>  2 1012  B_GRAMP           #>  3 1013  B_GRAMN           #>  4 1014  B_GRAMN           #>  5 1015  F_YEAST           #>  6 103   B_ESCHR_COLI      #>  7 104   B_SLMNL_ENTR_ENTR #>  8 1100  B_STRPT           #>  9 1101  B_STRPT_VIRI      #> 10 1102  B_STRPT_HAEM      #> # ℹ 4,947 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\" #>  #> $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\" #>  #> $gbif #> [1] \"11286021\" #>   # works for all AMR functions: mo_is_intrinsic_resistant(\"eco\", ab = \"vancomycin\") #> [1] TRUE"},{"path":"https://msberends.github.io/AMR/reference/microorganisms.groups.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with 521 Microorganisms In Species Groups — microorganisms.groups","title":"Data Set with 521 Microorganisms In Species Groups — microorganisms.groups","text":"data set containing species groups microbiological complexes, used clinical breakpoints table.","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.groups.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with 521 Microorganisms In Species Groups — microorganisms.groups","text":"","code":"microorganisms.groups"},{"path":"https://msberends.github.io/AMR/reference/microorganisms.groups.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with 521 Microorganisms In Species Groups — microorganisms.groups","text":"tibble 521 observations 4 variables: mo_group ID species group / microbiological complex mo ID microorganism belonging species group / microbiological complex mo_group_name Name species group / microbiological complex, retrieved mo_name() mo_name Name microorganism belonging species group / microbiological complex, retrieved mo_name()","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.groups.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with 521 Microorganisms In Species Groups — microorganisms.groups","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/microorganisms.groups.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with 521 Microorganisms In Species Groups — microorganisms.groups","text":"","code":"microorganisms.groups #> # A tibble: 521 × 4 #>    mo_group       mo           mo_group_name                   mo_name           #>    <mo>           <mo>         <chr>                           <chr>             #>  1 B_ACNTB_BMNN-C B_ACNTB_BMNN Acinetobacter baumannii complex Acinetobacter ba… #>  2 B_ACNTB_BMNN-C B_ACNTB_CLCC Acinetobacter baumannii complex Acinetobacter ca… #>  3 B_ACNTB_BMNN-C B_ACNTB_DJKS 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_BCTRD_VLGT Bacteroides fragilis complex    Bacteroides vulg… #> # ℹ 511 more rows  # these are all species in the Bacteroides fragilis group, as per WHONET: microorganisms.groups[microorganisms.groups$mo_group == \"B_BCTRD_FRGL-C\", ] #> # A tibble: 5 × 4 #>   mo_group       mo           mo_group_name                mo_name               #>   <mo>           <mo>         <chr>                        <chr>                 #> 1 B_BCTRD_FRGL-C B_BCTRD_FRGL Bacteroides fragilis complex Bacteroides fragilis  #> 2 B_BCTRD_FRGL-C B_BCTRD_OVTS Bacteroides fragilis complex Bacteroides ovatus    #> 3 B_BCTRD_FRGL-C B_BCTRD_THTT Bacteroides fragilis complex Bacteroides thetaiot… #> 4 B_BCTRD_FRGL-C B_BCTRD_VLGT Bacteroides fragilis complex Bacteroides vulgatus  #> 5 B_BCTRD_FRGL-C B_PRBCT_DSTS Bacteroides fragilis complex Parabacteroides dist…"},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Set with 52 171 Microorganisms — microorganisms","title":"Data Set with 52 171 Microorganisms — microorganisms","text":"data set containing full microbial taxonomy (last updated: December 11th, 2022) five kingdoms List Prokaryotic names Standing Nomenclature (LPSN) Global Biodiversity Information Facility (GBIF). data set backbone AMR package. MO codes can looked using .mo().","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Data Set with 52 171 Microorganisms — microorganisms","text":"","code":"microorganisms"},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Data Set with 52 171 Microorganisms — microorganisms","text":"tibble 52 171 observations 23 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\" \"synonym\" kingdom, phylum, class, order, family, genus, species, subspecies Taxonomic rank microorganism rank Text taxonomic rank microorganism, \"species\" \"genus\" ref Author(s) year related scientific publication. contains first surname year latest authors, e.g. \"Wallis et al. 2006 emend. Smith Jones 2018\" becomes \"Smith et al., 2018\". field directly retrieved source specified column source. Moreover, accents removed comply CRAN allows ASCII characters. 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. oxygen_tolerance  Oxygen tolerance, either \"aerobe\", \"anaerobe\", \"anaerobe/microaerophile\", \"facultative anaerobe\", \"likely facultative anaerobe\", \"microaerophile\". data retrieved BacDive (see Source). Items contain \"likely\" missing BacDive extrapolated species within genus guess oxygen tolerance. Currently 73.4% ~37 000 bacteria data set contain oxygen tolerance. lpsn_parent LPSN identifier parent taxon lpsn_renamed_to LPSN identifier currently valid taxon gbif Identifier ('taxonID') Global Biodiversity Information Facility (GBIF) gbif_parent GBIF identifier parent taxon gbif_renamed_to GBIF identifier currently valid taxon source Either \"GBIF\", \"LPSN\", \"manually added\" (see Source) prevalence Prevalence microorganism according Bartlett et al. (2022, doi:10.1099/mic.0.001269 ), see mo_matching_score() full explanation snomed Systematized Nomenclature Medicine (SNOMED) code microorganism, version July 1st, 2021 (see Source). Use mo_snomed() retrieve quickly, see mo_property().","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Data Set with 52 171 Microorganisms — microorganisms","text":"Parte, AC et al. (2020). List Prokaryotic names Standing Nomenclature (LPSN) moves DSMZ. International Journal Systematic Evolutionary Microbiology, 70, 5607-5612; doi:10.1099/ijsem.0.004332 . Accessed https://lpsn.dsmz.de December 11th, 2022. GBIF Secretariat (2022). GBIF Backbone Taxonomy. Checklist dataset doi:10.15468/39omei . Accessed https://www.gbif.org December 11th, 2022. 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 May 12th, 2023. Public Health Information Network Vocabulary Access Distribution System (PHIN VADS). US Edition SNOMED CT 1 September 2020. Value Set Name 'Microorganism', OID 2.16.840.1.114222.4.11.1009 (v12). URL: https://phinvads.cdc.gov Grimont et al. (2007). Antigenic Formulae Salmonella Serovars, 9th Edition. Collaborating Centre Reference Research Salmonella (WHOCC-SALM). Bartlett et al. (2022). comprehensive list bacterial pathogens infecting humans Microbiology 168:001269; doi:10.1099/mic.0.001269","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Data Set with 52 171 Microorganisms — microorganisms","text":"Please note entries based List Prokaryotic names Standing Nomenclature (LPSN) Global Biodiversity Information Facility (GBIF) (see ). Since sources incorporate entries based (recent) publications International Journal Systematic Evolutionary Microbiology (IJSEM), can happen year publication sometimes later one might expect. example, Staphylococcus pettenkoferi described first time Diagnostic Microbiology Infectious Disease 2002 (doi:10.1016/s0732-8893(02)00399-1 ), 2007 publication IJSEM followed (doi:10.1099/ijs.0.64381-0 ). Consequently, AMR package returns 2007 mo_year(\"S. pettenkoferi\").","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"included-taxa","dir":"Reference","previous_headings":"","what":"Included Taxa","title":"Data Set with 52 171 Microorganisms — microorganisms","text":"Included taxonomic data : ~37 000 (sub)species kingdoms Archaea Bacteria ~7 900 (sub)species kingdom Fungi. kingdom Fungi large taxon almost 300,000 different (sub)species, microbial (rather macroscopic, like mushrooms). , fungi fit scope package. relevant fungi covered (species Aspergillus, Candida, Cryptococcus, Histoplasma, Pneumocystis, Saccharomyces Trichophyton). ~5 100 (sub)species kingdom Protozoa ~1 400 (sub)species 43 relevant genera kingdom Animalia (Strongyloides Taenia) ~9 800 previously accepted names included (sub)species (taxonomically renamed) complete taxonomic tree included (sub)species: kingdom subspecies identifier parent taxons year first author related scientific publication","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"manual-additions","dir":"Reference","previous_headings":"","what":"Manual additions","title":"Data Set with 52 171 Microorganisms — microorganisms","text":"convenience, entries added manually: ~1 500 entries Salmonella, city-like serovars groups H 36 species groups (beta-haemolytic Streptococcus groups K, coagulase-negative Staphylococcus (CoNS), Mycobacterium tuberculosis complex, etc.), group compositions stored microorganisms.groups data set 1 entry Blastocystis (B.  hominis), although officially exist (Noel et al. 2005, PMID 15634993) 1 entry Moraxella (M. catarrhalis), formally named Branhamella catarrhalis (Catlin, 1970) though change never accepted within field clinical microbiology 8 'undefined' entries (unknown, unknown Gram-negatives, unknown Gram-positives, unknown yeast, unknown fungus, unknown anaerobic Gram-pos/Gram-neg bacteria) syntax used transform original data cleansed R format, can found : https://github.com/msberends/AMR/blob/main/data-raw/reproduction_of_microorganisms.R.","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"direct-download","dir":"Reference","previous_headings":"","what":"Direct download","title":"Data Set with 52 171 Microorganisms — microorganisms","text":"Like data sets package, data set publicly available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"about-the-records-from-lpsn-see-source-","dir":"Reference","previous_headings":"","what":"About the Records from LPSN (see Source)","title":"Data Set with 52 171 Microorganisms — microorganisms","text":"LPSN main source bacteriological taxonomy AMR package. List Prokaryotic names Standing Nomenclature (LPSN) provides comprehensive information nomenclature prokaryotes. LPSN free use service founded Jean P. Euzeby 1997 later maintained Aidan C. Parte.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/microorganisms.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Data Set with 52 171 Microorganisms — microorganisms","text":"","code":"microorganisms #> # A tibble: 52,171 × 23 #>    mo               fullname      status kingdom phylum class order family genus #>    <mo>             <chr>         <chr>  <chr>   <chr>  <chr> <chr> <chr>  <chr> #>  1 B_GRAMN          (unknown Gra… accep… Bacter… (unkn… (unk… (unk… \"(unk… \"(un… #>  2 B_GRAMP          (unknown Gra… accep… Bacter… (unkn… (unk… (unk… \"(unk… \"(un… #>  3 B_ANAER-NEG      (unknown ana… accep… Bacter… (unkn… (unk… (unk… \"(unk… \"(un… #>  4 B_ANAER-POS      (unknown ana… accep… Bacter… (unkn… (unk… (unk… \"(unk… \"(un… #>  5 B_ANAER          (unknown ana… accep… Bacter… (unkn… (unk… (unk… \"(unk… \"(un… #>  6 F_FUNGUS         (unknown fun… accep… Fungi   (unkn… (unk… (unk… \"(unk… \"(un… #>  7   UNKNOWN        (unknown nam… accep… (unkno… (unkn… (unk… (unk… \"(unk… \"(un… #>  8 F_YEAST          (unknown yea… accep… Fungi   (unkn… (unk… (unk… \"(unk… \"(un… #>  9 B_[FAM]_ABDTBCTR Abditibacter… accep… Bacter… Abdit… Abdi… Abdi… \"Abdi… \"\"    #> 10 B_[ORD]_ABDTBCTR Abditibacter… accep… Bacter… Abdit… Abdi… Abdi… \"\"     \"\"    #> # ℹ 52,161 more rows #> # ℹ 14 more variables: species <chr>, subspecies <chr>, rank <chr>, ref <chr>, #> #   oxygen_tolerance <chr>, source <chr>, lpsn <chr>, lpsn_parent <chr>, #> #   lpsn_renamed_to <chr>, gbif <chr>, gbif_parent <chr>, #> #   gbif_renamed_to <chr>, prevalence <dbl>, snomed <list>"},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":null,"dir":"Reference","previous_headings":"","what":"Calculate the Matching Score for Microorganisms — mo_matching_score","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"algorithm used .mo() mo_* functions determine probable match taxonomic records based user input.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"","code":"mo_matching_score(x, n)"},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"x user input value(s) n full taxonomic name, exists microorganisms$fullname","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":"note","dir":"Reference","previous_headings":"","what":"Note","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"algorithm originally described : Berends MS et al. (2022). AMR: R Package Working Antimicrobial Resistance Data. Journal Statistical Software, 104(3), 1-31; doi:10.18637/jss.v104.i03 . Later, work Bartlett et al. bacterial pathogens infecting humans (2022, doi:10.1099/mic.0.001269 ) incorporated.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":"matching-score-for-microorganisms","dir":"Reference","previous_headings":"","what":"Matching Score for Microorganisms","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"ambiguous user input .mo() mo_* functions, returned results chosen based matching score using mo_matching_score(). matching score \\(m\\), calculated :  : \\(x\\) user input; \\(n\\) taxonomic name (genus, species, subspecies); \\(l_n\\) length \\(n\\); \\(lev\\) Levenshtein distance function (counting insertion 1, deletion substitution 2) needed change \\(x\\) \\(n\\); \\(p_n\\) human pathogenic prevalence group \\(n\\), described ; \\(k_n\\) taxonomic kingdom \\(n\\), set Bacteria = 1, Fungi = 1.25, Protozoa = 1.5, 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.0 microorganisms data set; Putative, taxonomic species fewer three known cases. records prevalence = 1.25 microorganisms data set. Furthermore, genus present established list also prevalence = 1.0 microorganisms data set; genus present putative list prevalence = 1.25 microorganisms data set; species subspecies genus present two aforementioned groups, prevalence = 1.5 microorganisms data set; non-bacterial genus, species subspecies genus present following list, prevalence = 1.25 microorganisms data set: Absidia, Acanthamoeba, Acremonium, Aedes, Alternaria, Amoeba, Ancylostoma, Angiostrongylus, Anisakis, Anopheles, Apophysomyces, Aspergillus, Aureobasidium, Basidiobolus, Beauveria, Blastocystis, Blastomyces, Candida, Capillaria, Chaetomium, Chrysonilia, Cladophialophora, Cladosporium, Conidiobolus, Contracaecum, Cordylobia, Cryptococcus, Curvularia, Demodex, Dermatobia, Dientamoeba, Diphyllobothrium, Dirofilaria, Echinostoma, Entamoeba, Enterobius, Exophiala, Exserohilum, Fasciola, Fonsecaea, Fusarium, Giardia, Haloarcula, Halobacterium, Halococcus, Hendersonula, Heterophyes, Histomonas, Histoplasma, Hymenolepis, Hypomyces, Hysterothylacium, Leishmania, Malassezia, Malbranchea, Metagonimus, Meyerozyma, Microsporidium, Microsporum, Mortierella, Mucor, Mycocentrospora, Necator, Nectria, Ochroconis, Oesophagostomum, Oidiodendron, Opisthorchis, Pediculus, Penicillium, Phlebotomus, Phoma, Pichia, Piedraia, Pithomyces, Pityrosporum, Pneumocystis, Pseudallescheria, Pseudoterranova, Pulex, Rhizomucor, Rhizopus, Rhodotorula, Saccharomyces, Sarcoptes, Scolecobasidium, Scopulariopsis, Scytalidium, Spirometra, Sporobolomyces, Stachybotrys, Strongyloides, Syngamus, Taenia, Talaromyces, Toxocara, Trichinella, Trichobilharzia, Trichoderma, Trichomonas, Trichophyton, Trichosporon, Trichostrongylus, Trichuris, Tritirachium, Trombicula, Trypanosoma, Tunga, Wuchereria; records prevalence = 2.0 microorganisms data set. calculating matching score, characters \\(x\\) \\(n\\) ignored -Z, -z, 0-9, spaces parentheses. matches sorted descending matching score user input values, top match returned. lead effect e.g., \"E. coli\" return microbial ID Escherichia coli (\\(m = 0.688\\), highly prevalent microorganism found humans) Entamoeba coli (\\(m = 0.381\\), less prevalent microorganism humans), although latter alphabetically come first.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":"author","dir":"Reference","previous_headings":"","what":"Author","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"Dr. Matthijs Berends, 2018","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_matching_score.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Calculate the Matching Score for Microorganisms — mo_matching_score","text":"","code":"mo_reset_session() #> ℹ Reset 17 previously matched input values.  as.mo(\"E. coli\") #> Class 'mo' #> [1] B_ESCHR_COLI mo_uncertainties() #> Matching scores are based on the resemblance between the input and the full #> taxonomic name, and the pathogenicity in humans. See ?mo_matching_score. #>  #> -------------------------------------------------------------------------------- #> \"E. coli\" -> Escherichia coli (B_ESCHR_COLI, 0.688) #> Also matched: Enterobacter cowanii (0.600), Eubacterium combesii #>               (0.600), Eggerthia catenaformis (0.591), Eubacterium callanderi #>               (0.591), Enterocloster citroniae (0.587), Eubacterium cylindroides #>               (0.583), Enterococcus casseliflavus (0.577), Enterobacter cloacae #>               cloacae (0.571), Enterobacter cloacae complex (0.571), and Ehrlichia #>               canis (0.567) #>  #> Only the first 10 other matches of each record are shown. Run #> print(mo_uncertainties(), n = ...) to view more entries, or save #> mo_uncertainties() to an object.  mo_matching_score(   x = \"E. coli\",   n = c(\"Escherichia coli\", \"Entamoeba coli\") ) #> [1] 0.6875000 0.3809524"},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":null,"dir":"Reference","previous_headings":"","what":"Get Properties of a Microorganism — mo_property","title":"Get Properties of a Microorganism — mo_property","text":"Use functions return specific property microorganism based latest accepted taxonomy. input values evaluated internally .mo(), makes possible use microbial abbreviations, codes names input. See Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Get Properties of a Microorganism — mo_property","text":"","code":"mo_name(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_fullname(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_shortname(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_subspecies(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_species(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_genus(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_family(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_order(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_class(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_phylum(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_kingdom(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_domain(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_type(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_status(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_pathogenicity(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_gramstain(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_is_gram_negative(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_is_gram_positive(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_is_yeast(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_is_intrinsic_resistant(   x,   ab,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_oxygen_tolerance(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_is_anaerobic(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_snomed(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_ref(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_authors(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_year(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_lpsn(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_gbif(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_rank(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_taxonomy(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_synonyms(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_current(x, language = get_AMR_locale(), ...)  mo_info(   x,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_url(   x,   open = FALSE,   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )  mo_property(   x,   property = \"fullname\",   language = get_AMR_locale(),   keep_synonyms = getOption(\"AMR_keep_synonyms\", FALSE),   ... )"},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Get Properties of a Microorganism — mo_property","text":"x character (vector) can coerced valid microorganism code .mo(). Can left blank auto-guessing column containing microorganism codes used data set, see Examples. language language translate text like \"growth\", defaults system language (see get_AMR_locale()) keep_synonyms logical indicate old, previously valid taxonomic names must preserved corrected currently accepted names. default FALSE, return note old taxonomic names processed. default can set package option AMR_keep_synonyms, .e. options(AMR_keep_synonyms = TRUE) options(AMR_keep_synonyms = FALSE). ... arguments passed .mo(), 'minimum_matching_score', 'ignore_pattern', 'remove_from_input' ab (vector ) text can coerced valid antibiotic drug code .ab() open browse URL using browseURL() property one column names microorganisms data set: \"mo\", \"fullname\", \"status\", \"kingdom\", \"phylum\", \"class\", \"order\", \"family\", \"genus\", \"species\", \"subspecies\", \"rank\", \"ref\", \"oxygen_tolerance\", \"source\", \"lpsn\", \"lpsn_parent\", \"lpsn_renamed_to\", \"gbif\", \"gbif_parent\", \"gbif_renamed_to\", \"prevalence\", \"snomed\", must \"shortname\"","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Get Properties of a Microorganism — mo_property","text":"integer case mo_year() ordered factor case mo_pathogenicity() list case mo_taxonomy(), mo_synonyms(), mo_snomed() mo_info() named character case mo_url() character cases","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Get Properties of a Microorganism — mo_property","text":"functions , default, keep old taxonomic properties, synonyms automatically replaced current taxonomy. Take example Enterobacter aerogenes, initially named 1960 renamed Klebsiella aerogenes 2017: mo_genus(\"Enterobacter aerogenes\") return \"Klebsiella\" (note renaming) mo_genus(\"Enterobacter aerogenes\", keep_synonyms = TRUE) return \"Enterobacter\" (-per-session warning name outdated) mo_ref(\"Enterobacter aerogenes\") return \"Tindall et al., 2017\" (note) mo_ref(\"Enterobacter aerogenes\", keep_synonyms = TRUE) return \"Hormaeche et al., 1960\" (warning) short name (mo_shortname()) returns first character genus full species, \"E. coli\", species subspecies. Exceptions abbreviations staphylococci (\"CoNS\", Coagulase-Negative Staphylococci) beta-haemolytic streptococci (\"GBS\", Group B Streptococci). Please bear mind e.g. E. coli mean Escherichia coli (kingdom Bacteria) well Entamoeba coli (kingdom Protozoa). Returning full name done using .mo() internally, giving priority bacteria human pathogens, .e. \"E. coli\" considered Escherichia coli. result, mo_fullname(mo_shortname(\"Entamoeba coli\")) returns \"Escherichia coli\". Since top-level taxonomy sometimes referred 'kingdom' sometimes 'domain', functions mo_kingdom() mo_domain() return exact results. Determination human pathogenicity (mo_pathogenicity()) strongly based Bartlett et al. (2022, doi:10.1099/mic.0.001269 ). function returns factor levels Pathogenic, Potentially pathogenic, Non-pathogenic, Unknown. Determination Gram stain (mo_gramstain()) based taxonomic kingdom phylum. Originally, Cavalier-Smith defined -called subkingdoms Negibacteria Posibacteria (2002, PMID 11837318), considered phyla Posibacteria: Actinobacteria, Chloroflexi, Firmicutes, Tenericutes. phyla later renamed Actinomycetota, Chloroflexota, Bacillota, Mycoplasmatota (2021, PMID 34694987). Bacteria phyla considered Gram-positive AMR package, except members class Negativicutes (within phylum Bacillota) Gram-negative. bacteria considered Gram-negative. Species outside kingdom Bacteria return value NA. Functions mo_is_gram_negative() mo_is_gram_positive() always return TRUE FALSE (NA input NA MO code UNKNOWN), thus always return FALSE species outside taxonomic kingdom Bacteria. Determination yeasts (mo_is_yeast()) based taxonomic kingdom class. Budding yeasts fungi phylum Ascomycota, class Saccharomycetes (also called Hemiascomycetes). True yeasts aggregated underlying order Saccharomycetales. Thus, microorganisms member taxonomic class Saccharomycetes, function return TRUE. returns FALSE otherwise (NA input NA MO code UNKNOWN). Determination intrinsic resistance (mo_is_intrinsic_resistant()) based intrinsic_resistant data set, based 'EUCAST Expert Rules' 'EUCAST Intrinsic Resistance Unusual Phenotypes' v3.3 (2021). mo_is_intrinsic_resistant() function can vectorised argument x (input microorganisms) ab (input antibiotics). 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. SNOMED codes (mo_snomed()) version July 1st, 2021. See Source microorganisms data set info. Old taxonomic names (-called 'synonyms') can retrieved mo_synonyms() (scientific reference name), current taxonomic name can retrieved mo_current(). functions return full names. output translated possible.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"matching-score-for-microorganisms","dir":"Reference","previous_headings":"","what":"Matching Score for Microorganisms","title":"Get Properties of a Microorganism — mo_property","text":"function uses .mo() internally, uses advanced algorithm translate arbitrary user input valid taxonomy using -called matching score. can read public algorithm MO matching score page.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Get Properties of a Microorganism — mo_property","text":"Berends MS et al. (2022). AMR: R Package Working Antimicrobial Resistance Data. Journal Statistical Software, 104(3), 1-31; doi:10.18637/jss.v104.i03 Becker K et al. (2014). Coagulase-Negative Staphylococci. Clin Microbiol Rev. 27(4): 870-926; doi:10.1128/CMR.00109-13 Becker K et al. (2019). Implications identifying recently defined members S. aureus complex, S. argenteus S. schweitzeri: position paper members ESCMID Study Group staphylococci Staphylococcal Diseases (ESGS). Clin Microbiol Infect; doi:10.1016/j.cmi.2019.02.028 Becker K et al. (2020). Emergence coagulase-negative staphylococci. Expert Rev Anti Infect Ther. 18(4):349-366; doi:10.1080/14787210.2020.1730813 Lancefield RC (1933). serological differentiation human groups hemolytic streptococci. J Exp Med. 57(4): 571-95; doi:10.1084/jem.57.4.571 Berends MS et al. (2022). Trends Occurrence Phenotypic Resistance Coagulase-Negative Staphylococci (CoNS) Found Human Blood Northern Netherlands 2013 2019/ Micro.rganisms 10(9), 1801; doi:10.3390/microorganisms10091801 Parte, AC et al. (2020). List Prokaryotic names Standing Nomenclature (LPSN) moves DSMZ. International Journal Systematic Evolutionary Microbiology, 70, 5607-5612; doi:10.1099/ijsem.0.004332 . Accessed https://lpsn.dsmz.de December 11th, 2022. GBIF Secretariat (2022). GBIF Backbone Taxonomy. Checklist dataset doi:10.15468/39omei . Accessed https://www.gbif.org December 11th, 2022. 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 May 12th, 2023. Public Health Information Network Vocabulary Access Distribution System (PHIN VADS). US Edition SNOMED CT 1 September 2020. Value Set Name 'Microorganism', OID 2.16.840.1.114222.4.11.1009 (v12). URL: https://phinvads.cdc.gov Bartlett et al. (2022). comprehensive list bacterial pathogens infecting humans Microbiology 168:001269; doi:10.1099/mic.0.001269","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"reference-data-publicly-available","dir":"Reference","previous_headings":"","what":"Reference Data Publicly Available","title":"Get Properties of a Microorganism — mo_property","text":"data sets AMR package (microorganisms, antibiotics, SIR interpretation, EUCAST rules, etc.) publicly freely available download following formats: R, MS Excel, Apache Feather, Apache Parquet, SPSS, SAS, Stata. also provide tab-separated plain text files machine-readable suitable input software program, laboratory information systems. Please visit website download links. actual files course available GitHub repository.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/mo_property.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Get Properties of a Microorganism — mo_property","text":"","code":"# taxonomic tree -----------------------------------------------------------  mo_kingdom(\"Klebsiella pneumoniae\") #> [1] \"Bacteria\" mo_phylum(\"Klebsiella pneumoniae\") #> [1] \"Pseudomonadota\" mo_class(\"Klebsiella pneumoniae\") #> [1] \"Gammaproteobacteria\" mo_order(\"Klebsiella pneumoniae\") #> [1] \"Enterobacterales\" mo_family(\"Klebsiella pneumoniae\") #> [1] \"Enterobacteriaceae\" mo_genus(\"Klebsiella pneumoniae\") #> [1] \"Klebsiella\" mo_species(\"Klebsiella pneumoniae\") #> [1] \"pneumoniae\" mo_subspecies(\"Klebsiella pneumoniae\") #> [1] \"\"   # full names and short names -----------------------------------------------  mo_name(\"Klebsiella pneumoniae\") #> [1] \"Klebsiella pneumoniae\" mo_fullname(\"Klebsiella pneumoniae\") #> [1] \"Klebsiella pneumoniae\" mo_shortname(\"Klebsiella pneumoniae\") #> [1] \"K. pneumoniae\"   # other properties ---------------------------------------------------------  mo_pathogenicity(\"Klebsiella pneumoniae\") #> [1] Pathogenic #> Levels: Pathogenic < Potentially pathogenic < Non-pathogenic < Unknown mo_gramstain(\"Klebsiella pneumoniae\") #> [1] \"Gram-negative\" mo_snomed(\"Klebsiella pneumoniae\") #> [[1]] #> [1] \"1098101000112102\" \"446870005\"        \"1098201000112108\" \"409801009\"        #> [5] \"56415008\"         \"714315002\"        \"713926009\"        #>  mo_type(\"Klebsiella pneumoniae\") #> [1] \"Bacteria\" mo_rank(\"Klebsiella pneumoniae\") #> [1] \"species\" mo_url(\"Klebsiella pneumoniae\") #>                                Klebsiella pneumoniae  #> \"https://lpsn.dsmz.de/species/klebsiella-pneumoniae\"  mo_is_yeast(c(\"Candida\", \"Trichophyton\", \"Klebsiella\")) #> [1]  TRUE FALSE FALSE   # scientific reference -----------------------------------------------------  mo_ref(\"Klebsiella aerogenes\") #> [1] \"Tindall et al., 2017\" mo_authors(\"Klebsiella aerogenes\") #> [1] \"Tindall et al.\" mo_year(\"Klebsiella aerogenes\") #> [1] 2017 mo_lpsn(\"Klebsiella aerogenes\") #> [1] \"777146\" mo_gbif(\"Klebsiella aerogenes\") #> [1] \"9281703\" mo_synonyms(\"Klebsiella aerogenes\") #>   Hormaeche et al., 1960     Bascomb et al., 1971  #> \"Enterobacter aerogenes\"     \"Klebsiella mobilis\"    # abbreviations known in the field -----------------------------------------  mo_genus(\"MRSA\") #> [1] \"Staphylococcus\" mo_species(\"MRSA\") #> [1] \"aureus\" mo_shortname(\"VISA\") #> [1] \"S. aureus\" mo_gramstain(\"VISA\") #> [1] \"Gram-positive\"  mo_genus(\"EHEC\") #> [1] \"Escherichia\" mo_species(\"EIEC\") #> [1] \"coli\" mo_name(\"UPEC\") #> [1] \"Escherichia coli\"   # known subspecies ---------------------------------------------------------  mo_fullname(\"K. pneu rh\") #> [1] \"Klebsiella pneumoniae rhinoscleromatis\" mo_shortname(\"K. pneu rh\") #> [1] \"K. pneumoniae\"  # \\donttest{ # Becker classification, see ?as.mo ----------------------------------------  mo_fullname(\"Staph epidermidis\") #> [1] \"Staphylococcus epidermidis\" mo_fullname(\"Staph epidermidis\", Becker = TRUE) #> [1] \"Coagulase-negative Staphylococcus (CoNS)\" mo_shortname(\"Staph epidermidis\") #> [1] \"S. epidermidis\" mo_shortname(\"Staph epidermidis\", Becker = TRUE) #> [1] \"CoNS\"   # Lancefield classification, see ?as.mo ------------------------------------  mo_fullname(\"Strep agalactiae\") #> [1] \"Streptococcus agalactiae\" mo_fullname(\"Strep agalactiae\", Lancefield = TRUE) #> [1] \"Streptococcus Group B\" mo_shortname(\"Strep agalactiae\") #> [1] \"S. agalactiae\" mo_shortname(\"Strep agalactiae\", Lancefield = TRUE) #> [1] \"GBS\"   # language support  --------------------------------------------------------  mo_gramstain(\"Klebsiella pneumoniae\", language = \"de\") # German #> [1] \"Gramnegativ\" mo_gramstain(\"Klebsiella pneumoniae\", language = \"nl\") # Dutch #> [1] \"Gram-negatief\" mo_gramstain(\"Klebsiella pneumoniae\", language = \"es\") # Spanish #> [1] \"Gram negativo\" mo_gramstain(\"Klebsiella pneumoniae\", language = \"el\") # Greek #> [1] \"Αρνητικό κατά Gram\" mo_gramstain(\"Klebsiella pneumoniae\", language = \"uk\") # Ukrainian #> [1] \"Грамнегативні\"  # mo_type is equal to mo_kingdom, but mo_kingdom will remain untranslated mo_kingdom(\"Klebsiella pneumoniae\") #> [1] \"Bacteria\" mo_type(\"Klebsiella pneumoniae\") #> [1] \"Bacteria\" mo_kingdom(\"Klebsiella pneumoniae\", language = \"zh\") # Chinese, no effect #> [1] \"Bacteria\" mo_type(\"Klebsiella pneumoniae\", language = \"zh\") # Chinese, translated #> [1] \"细菌\"  mo_fullname(\"S. pyogenes\", Lancefield = TRUE, language = \"de\") #> [1] \"Streptococcus Gruppe A\" mo_fullname(\"S. pyogenes\", Lancefield = TRUE, language = \"uk\") #> [1] \"Streptococcus Група A\"   # other --------------------------------------------------------------------  # gram stains and intrinsic resistance can be used as a filter in dplyr verbs if (require(\"dplyr\")) {   example_isolates %>%     filter(mo_is_gram_positive()) %>%     count(mo_genus(), sort = TRUE) } #> ℹ Using column 'mo' as input for mo_is_gram_positive() #> ℹ Using column 'mo' as input for mo_genus() #> # A tibble: 18 × 2 #>    `mo_genus()`        n #>    <chr>           <int> #>  1 Staphylococcus    840 #>  2 Streptococcus     275 #>  3 Enterococcus       83 #>  4 Corynebacterium    17 #>  5 Micrococcus         6 #>  6 Gemella             3 #>  7 Aerococcus          2 #>  8 Cutibacterium       1 #>  9 Dermabacter         1 #> 10 Fusibacter          1 #> 11 Globicatella        1 #> 12 Granulicatella      1 #> 13 Lactobacillus       1 #> 14 Leuconostoc         1 #> 15 Listeria            1 #> 16 Paenibacillus       1 #> 17 Rothia              1 #> 18 Schaalia            1 if (require(\"dplyr\")) {   example_isolates %>%     filter(mo_is_intrinsic_resistant(ab = \"vanco\")) %>%     count(mo_genus(), sort = TRUE) } #> ℹ Using column 'mo' as input for mo_is_intrinsic_resistant() #> ℹ Using column 'mo' as input for mo_genus() #> # A tibble: 20 × 2 #>    `mo_genus()`         n #>    <chr>            <int> #>  1 Escherichia        467 #>  2 Klebsiella          77 #>  3 Proteus             39 #>  4 Pseudomonas         30 #>  5 Serratia            25 #>  6 Enterobacter        23 #>  7 Citrobacter         11 #>  8 Haemophilus          8 #>  9 Acinetobacter        6 #> 10 Morganella           6 #> 11 Pantoea              4 #> 12 Salmonella           3 #> 13 Neisseria            2 #> 14 Stenotrophomonas     2 #> 15 Campylobacter        1 #> 16 Enterococcus         1 #> 17 Hafnia               1 #> 18 Lactobacillus        1 #> 19 Leuconostoc          1 #> 20 Pseudescherichia     1  # get a list with the complete taxonomy (from kingdom to subspecies) mo_taxonomy(\"Klebsiella pneumoniae\") #> $kingdom #> [1] \"Bacteria\" #>  #> $phylum #> [1] \"Pseudomonadota\" #>  #> $class #> [1] \"Gammaproteobacteria\" #>  #> $order #> [1] \"Enterobacterales\" #>  #> $family #> [1] \"Enterobacteriaceae\" #>  #> $genus #> [1] \"Klebsiella\" #>  #> $species #> [1] \"pneumoniae\" #>  #> $subspecies #> [1] \"\" #>   # get a list with the taxonomy, the authors, Gram-stain, # SNOMED codes, and URL to the online database mo_info(\"Klebsiella pneumoniae\") #> $mo #> [1] \"B_KLBSL_PNMN\" #>  #> $kingdom #> [1] \"Bacteria\" #>  #> $phylum #> [1] \"Pseudomonadota\" #>  #> $class #> [1] \"Gammaproteobacteria\" #>  #> $order #> [1] \"Enterobacterales\" #>  #> $family #> [1] \"Enterobacteriaceae\" #>  #> $genus #> [1] \"Klebsiella\" #>  #> $species #> [1] \"pneumoniae\" #>  #> $subspecies #> [1] \"\" #>  #> $status #> [1] \"accepted\" #>  #> $synonyms #> NULL #>  #> $gramstain #> [1] \"Gram-negative\" #>  #> $oxygen_tolerance #> [1] \"aerobe\" #>  #> $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\" #>  #> $gbif #> [1] \"3221874\" #>  # }"},{"path":"https://msberends.github.io/AMR/reference/mo_source.html","id":null,"dir":"Reference","previous_headings":"","what":"User-Defined Reference Data Set for Microorganisms — mo_source","title":"User-Defined Reference Data Set for Microorganisms — mo_source","text":"functions can used predefine reference used .mo() consequently mo_* functions (mo_genus() mo_gramstain()). fastest way organisation (analysis) specific codes picked translated package, since bother setting .","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_source.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"User-Defined Reference Data Set for Microorganisms — mo_source","text":"","code":"set_mo_source(   path,   destination = getOption(\"AMR_mo_source\", \"~/mo_source.rds\") )  get_mo_source(destination = getOption(\"AMR_mo_source\", \"~/mo_source.rds\"))"},{"path":"https://msberends.github.io/AMR/reference/mo_source.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"User-Defined Reference Data Set for Microorganisms — mo_source","text":"path location reference file, can text file (comma-, tab- pipe-separated) Excel file (see Details). Can also \"\", NULL FALSE delete reference file. destination destination compressed data file - default user's home directory.","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_source.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"User-Defined Reference Data Set for Microorganisms — mo_source","text":"reference file can text file separated commas (CSV) tabs pipes, Excel file (either 'xls' 'xlsx' format) R object file (extension '.rds'). use Excel file, need readxl package installed. set_mo_source() check file validity: must data.frame, must column named \"mo\" contains values microorganisms$mo microorganisms$fullname must reference column defined values. tests pass, set_mo_source() read file R ask export \"~/mo_source.rds\". CRAN policy disallows packages write file system, although 'exceptions may allowed interactive sessions package obtains confirmation user'. reason, function works interactive sessions user can specifically confirm allow file created. destination file can set destination argument defaults user's home directory. can also set package option AMR_mo_source, e.g. options(AMR_mo_source = \"/location/file.rds\"). created compressed data file \"mo_source.rds\" used default MO determination (function .mo() consequently mo_* functions like mo_genus() mo_gramstain()). location timestamp original file saved attribute compressed data file. function get_mo_source() return data set reading \"mo_source.rds\" readRDS(). original file changed (checking location timestamp original file), call set_mo_source() update data file automatically used interactive session. Reading Excel file (.xlsx) one row size 8-9 kB. compressed file created set_mo_source() size 0.1 kB can read get_mo_source() couple microseconds (millionths second).","code":""},{"path":"https://msberends.github.io/AMR/reference/mo_source.html","id":"how-to-setup","dir":"Reference","previous_headings":"","what":"How to Setup","title":"User-Defined Reference Data Set for Microorganisms — mo_source","text":"Imagine data sheet Excel file. first column contains organisation specific codes, second column contains valid taxonomic names:   save \"home//ourcodes.xlsx\". Now set source:   now created file \"~/mo_source.rds\" contents Excel file. first column foreign values 'mo' column kept creating RDS file. now can use functions:   edit Excel file , say, adding row 4 like :   ...new usage MO function package update data file:   delete reference data file, just use \"\", NULL FALSE input set_mo_source():   original file (previous case Excel file) moved deleted, mo_source.rds file removed upon next use .mo() mo_* function.","code":"|         A          |            B          | --|--------------------|-----------------------| 1 | Organisation XYZ   | mo                    | 2 | lab_mo_ecoli       | Escherichia coli      | 3 | lab_mo_kpneumoniae | Klebsiella pneumoniae | 4 |                    |                       | set_mo_source(\"home/me/ourcodes.xlsx\") #> NOTE: Created mo_source file '/Users/me/mo_source.rds' (0.3 kB) from #>       '/Users/me/Documents/ourcodes.xlsx' (9 kB), columns #>       \"Organisation XYZ\" and \"mo\" as.mo(\"lab_mo_ecoli\") #> Class 'mo' #> [1] B_ESCHR_COLI  mo_genus(\"lab_mo_kpneumoniae\") #> [1] \"Klebsiella\"  # other input values still work too as.mo(c(\"Escherichia coli\", \"E. coli\", \"lab_mo_ecoli\")) #> NOTE: Translation to one microorganism was guessed with uncertainty. #>       Use mo_uncertainties() to review it. #> Class 'mo' #> [1] B_ESCHR_COLI B_ESCHR_COLI B_ESCHR_COLI |         A          |            B          | --|--------------------|-----------------------| 1 | Organisation XYZ   | mo                    | 2 | lab_mo_ecoli       | Escherichia coli      | 3 | lab_mo_kpneumoniae | Klebsiella pneumoniae | 4 | lab_Staph_aureus   | Staphylococcus aureus | 5 |                    |                       | as.mo(\"lab_mo_ecoli\") #> NOTE: Updated mo_source file '/Users/me/mo_source.rds' (0.3 kB) from #>       '/Users/me/Documents/ourcodes.xlsx' (9 kB), columns #>        \"Organisation XYZ\" and \"mo\" #> Class 'mo' #> [1] B_ESCHR_COLI  mo_genus(\"lab_Staph_aureus\") #> [1] \"Staphylococcus\" set_mo_source(NULL) #> Removed mo_source file '/Users/me/mo_source.rds'"},{"path":"https://msberends.github.io/AMR/reference/pca.html","id":null,"dir":"Reference","previous_headings":"","what":"Principal Component Analysis (for AMR) — pca","title":"Principal Component Analysis (for AMR) — pca","text":"Performs principal component analysis (PCA) based data set automatic determination afterwards plotting groups labels, automatic filtering suitable (.e. non-empty numeric) variables.","code":""},{"path":"https://msberends.github.io/AMR/reference/pca.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Principal Component Analysis (for AMR) — pca","text":"","code":"pca(   x,   ...,   retx = TRUE,   center = TRUE,   scale. = TRUE,   tol = NULL,   rank. = NULL )"},{"path":"https://msberends.github.io/AMR/reference/pca.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Principal Component Analysis (for AMR) — pca","text":"x data.frame containing numeric columns ... columns x selected PCA, can unquoted since supports quasiquotation. retx logical value indicating whether rotated variables     returned. center logical value indicating whether variables     shifted zero centered. Alternately, vector     length equal number columns x can supplied.     value passed scale. scale. logical value indicating whether variables     scaled unit variance analysis takes     place.  default FALSE consistency S,     general scaling advisable.  Alternatively, vector length     equal number columns x can supplied.      value passed scale. tol value indicating magnitude components     omitted. (Components omitted     standard deviations less equal tol times     standard deviation first component.)  default null     setting, components omitted (unless rank. specified     less min(dim(x)).).  settings tol     tol = 0 tol = sqrt(.Machine$double.eps),     omit essentially constant components. rank. optionally, number specifying maximal rank, .e.,     maximal number principal components used.  Can set     alternative addition tol, useful notably     desired rank considerably smaller dimensions matrix.","code":""},{"path":"https://msberends.github.io/AMR/reference/pca.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Principal Component Analysis (for AMR) — pca","text":"object classes pca prcomp","code":""},{"path":"https://msberends.github.io/AMR/reference/pca.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Principal Component Analysis (for AMR) — pca","text":"pca() function takes data.frame input performs actual PCA R function prcomp(). result pca() function prcomp object, additional attribute non_numeric_cols vector column names columns contain numeric values. probably groups labels, used ggplot_pca().","code":""},{"path":"https://msberends.github.io/AMR/reference/pca.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Principal Component Analysis (for AMR) — pca","text":"","code":"# `example_isolates` is a data set available in the AMR package. # See ?example_isolates.  # \\donttest{ if (require(\"dplyr\")) {   # calculate the resistance per group first   resistance_data <- example_isolates %>%     group_by(       order = mo_order(mo), # group on anything, like order       genus = mo_genus(mo)     ) %>% #   and genus as we do here;     filter(n() >= 30) %>% # filter on only 30 results per group     summarise_if(is.sir, resistance) # then get resistance of all drugs    # now conduct PCA for certain antimicrobial drugs   pca_result <- resistance_data %>%     pca(AMC, CXM, CTX, CAZ, GEN, TOB, TMP, SXT)    pca_result   summary(pca_result)    # old base R plotting method:   biplot(pca_result)   # new ggplot2 plotting method using this package:   if (require(\"ggplot2\")) {     ggplot_pca(pca_result)      ggplot_pca(pca_result) +       scale_colour_viridis_d() +       labs(title = \"Title here\")   } } #> Warning: There were 73 warnings in `summarise()`. #> The first warning was: #> ℹ In argument: `PEN = (function (..., minimum = 30, as_percent = FALSE, #>   only_all_tested = FALSE) ...`. #> ℹ In group 5: `order = \"Lactobacillales\"`, `genus = \"Enterococcus\"`. #> Caused by warning: #> ! Introducing NA: only 14 results available for PEN in group: order = #> \"Lactobacillales\", genus = \"Enterococcus\" (minimum = 30). #> ℹ Run `dplyr::last_dplyr_warnings()` to see the 72 remaining warnings. #> ℹ Columns selected for PCA: \"AMC\", \"CAZ\", \"CTX\", \"CXM\", \"GEN\", \"SXT\", #>   \"TMP\", and \"TOB\". Total observations available: 7. #> Groups (n=4, named as 'order'): #> [1] \"Caryophanales\"    \"Enterobacterales\" \"Lactobacillales\"  \"Pseudomonadales\"  #>    # }"},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":null,"dir":"Reference","previous_headings":"","what":"Plotting for Classes sir, mic and disk — plot","title":"Plotting for Classes sir, mic and disk — plot","text":"Functions plot classes sir, mic disk, support base R ggplot2. Especially scale_*_mic() functions relevant wrappers plot MIC values ggplot2. allows custom MIC ranges plot intermediate log2 levels missing MIC values.","code":""},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Plotting for Classes sir, mic and disk — 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, ...)  # S3 method for mic plot(   x,   mo = NULL,   ab = NULL,   guideline = \"EUCAST\",   main = deparse(substitute(x)),   ylab = translate_AMR(\"Frequency\", language = language),   xlab = translate_AMR(\"Minimum Inhibitory Concentration (mg/L)\", language = language),   colours_SIR = c(\"#3CAEA3\", \"#F6D55C\", \"#ED553B\"),   language = get_AMR_locale(),   expand = TRUE,   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\"),   ... )  # S3 method for mic autoplot(   object,   mo = NULL,   ab = NULL,   guideline = \"EUCAST\",   title = deparse(substitute(object)),   ylab = translate_AMR(\"Frequency\", language = language),   xlab = translate_AMR(\"Minimum Inhibitory Concentration (mg/L)\", language = language),   colours_SIR = c(\"#3CAEA3\", \"#F6D55C\", \"#ED553B\"),   language = get_AMR_locale(),   expand = TRUE,   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\"),   ... )  # S3 method for mic fortify(object, ...)  # S3 method for disk plot(   x,   main = deparse(substitute(x)),   ylab = translate_AMR(\"Frequency\", language = language),   xlab = translate_AMR(\"Disk diffusion diameter (mm)\", language = language),   mo = NULL,   ab = NULL,   guideline = \"EUCAST\",   colours_SIR = c(\"#3CAEA3\", \"#F6D55C\", \"#ED553B\"),   language = get_AMR_locale(),   expand = TRUE,   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\"),   ... )  # S3 method for disk autoplot(   object,   mo = NULL,   ab = NULL,   title = deparse(substitute(object)),   ylab = translate_AMR(\"Frequency\", language = language),   xlab = translate_AMR(\"Disk diffusion diameter (mm)\", language = language),   guideline = \"EUCAST\",   colours_SIR = c(\"#3CAEA3\", \"#F6D55C\", \"#ED553B\"),   language = get_AMR_locale(),   expand = TRUE,   include_PKPD = getOption(\"AMR_include_PKPD\", TRUE),   breakpoint_type = getOption(\"AMR_breakpoint_type\", \"human\"),   ... )  # S3 method for disk fortify(object, ...)  # S3 method for sir plot(   x,   ylab = translate_AMR(\"Percentage\", language = language),   xlab = translate_AMR(\"Antimicrobial Interpretation\", language = language),   main = deparse(substitute(x)),   language = get_AMR_locale(),   ... )  # S3 method for sir autoplot(   object,   title = deparse(substitute(object)),   xlab = translate_AMR(\"Antimicrobial Interpretation\", language = language),   ylab = translate_AMR(\"Frequency\", language = language),   colours_SIR = c(\"#3CAEA3\", \"#F6D55C\", \"#ED553B\"),   language = get_AMR_locale(),   ... )  # S3 method for sir fortify(object, ...)"},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Plotting for Classes sir, mic and disk — plot","text":"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 plot MIC values, e.g., mic_range = c(0.001, 32). Use NA set limit one side, e.g., mic_range = c(NA, 32). ... arguments passed methods x, object values created .mic(), .disk() .sir() (random_* variants, random_mic()) mo (vector ) text can coerced valid microorganism code .mo() ab (vector ) text can coerced valid antimicrobial drug code .ab() guideline interpretation guideline use - default latest included EUCAST guideline, see Details main, title title plot xlab, ylab axis title colours_SIR colours use filling bars, must vector three values (order S, R). default colours colour-blind friendly. language language used translate 'Susceptible', 'Increased exposure'/'Intermediate' 'Resistant' - default system language (see get_AMR_locale()) can overwritten setting package option AMR_locale, e.g. options(AMR_locale = \"de\"), see translate. Use language = NULL language = \"\" prevent translation. expand logical indicate whether range x axis expanded lowest highest value. MIC values, intermediate values factors 2 starting highest MIC value. disk diameters, whole diameter range filled. include_PKPD logical indicate PK/PD clinical breakpoints must applied last resort - default TRUE. Can also set package option AMR_include_PKPD. breakpoint_type type breakpoints use, either \"ECOFF\", \"animal\", \"human\". ECOFF stands Epidemiological Cut-values. default \"human\", can also set package option AMR_breakpoint_type.","code":""},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Plotting for Classes sir, mic and disk — plot","text":"autoplot() functions return ggplot model extendible ggplot2 function. fortify() functions return data.frame extension usage ggplot2::ggplot() function.","code":""},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Plotting for Classes sir, mic and disk — plot","text":"interpretation \"\" named \"Increased exposure\" EUCAST guidelines since 2019, named \"Intermediate\" cases. interpreting MIC values well disk diffusion diameters, supported guidelines used input guideline argument : \"EUCAST 2023\", \"EUCAST 2022\", \"EUCAST 2021\", \"EUCAST 2020\", \"EUCAST 2019\", \"EUCAST 2018\", \"EUCAST 2017\", \"EUCAST 2016\", \"EUCAST 2015\", \"EUCAST 2014\", \"EUCAST 2013\", \"EUCAST 2012\", \"EUCAST 2011\", \"CLSI 2023\", \"CLSI 2022\", \"CLSI 2021\", \"CLSI 2020\", \"CLSI 2019\", \"CLSI 2018\", \"CLSI 2017\", \"CLSI 2016\", \"CLSI 2015\", \"CLSI 2014\", \"CLSI 2013\", \"CLSI 2012\", \"CLSI 2011\". Simply using \"CLSI\" \"EUCAST\" input automatically select latest version guideline.","code":""},{"path":"https://msberends.github.io/AMR/reference/plot.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Plotting for Classes sir, mic and disk — plot","text":"","code":"some_mic_values <- random_mic(size = 100) some_disk_values <- random_disk(size = 100, mo = \"Escherichia coli\", ab = \"cipro\") some_sir_values <- random_sir(50, prob_SIR = c(0.55, 0.05, 0.30))  plot(some_mic_values)  plot(some_disk_values)  plot(some_sir_values)   # when providing the microorganism and antibiotic, colours will show interpretations: plot(some_mic_values, mo = \"S. aureus\", ab = \"ampicillin\")  plot(some_disk_values, mo = \"Escherichia coli\", ab = \"cipro\")  plot(some_disk_values, mo = \"Escherichia coli\", ab = \"cipro\", language = \"nl\")    # Plotting using scale_x_mic() # \\donttest{ if (require(\"ggplot2\")) {   mic_plot <- ggplot(data.frame(mics = as.mic(c(0.125, \"<=4\", 4, 8, 32, \">=32\")),                                 counts = c(1, 1, 2, 2, 3, 3)),                      aes(mics, counts)) +     geom_col()   mic_plot +     labs(title = \"without scale_x_mic()\") }  if (require(\"ggplot2\")) {   mic_plot +     scale_x_mic() +     labs(title = \"with scale_x_mic()\") }  if (require(\"ggplot2\")) {   mic_plot +     scale_x_mic(keep_operators = \"all\") +     labs(title = \"with scale_x_mic() keeping all operators\") }  if (require(\"ggplot2\")) {   mic_plot +     scale_x_mic(mic_range = c(1, 128)) +     labs(title = \"with scale_x_mic() using a manual range\") }   if (require(\"ggplot2\")) {   autoplot(some_mic_values) }  if (require(\"ggplot2\")) {   autoplot(some_disk_values, mo = \"Escherichia coli\", ab = \"cipro\") }  if (require(\"ggplot2\")) {   autoplot(some_sir_values) }  # }"},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":null,"dir":"Reference","previous_headings":"","what":"Calculate Antimicrobial Resistance — proportion","title":"Calculate Antimicrobial Resistance — proportion","text":"functions can used calculate (co-)resistance susceptibility microbial isolates (.e. percentage S, SI, , IR R). functions support quasiquotation pipes, can used summarise() dplyr package also support grouped variables, see Examples. resistance() used calculate resistance, susceptibility() used calculate susceptibility.","code":""},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Calculate Antimicrobial Resistance — proportion","text":"","code":"resistance(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  susceptibility(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  sir_confidence_interval(   ...,   ab_result = \"R\",   minimum = 30,   as_percent = FALSE,   only_all_tested = FALSE,   confidence_level = 0.95,   side = \"both\",   collapse = FALSE )  proportion_R(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  proportion_IR(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  proportion_I(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  proportion_SI(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  proportion_S(..., minimum = 30, as_percent = FALSE, only_all_tested = FALSE)  proportion_df(   data,   translate_ab = \"name\",   language = get_AMR_locale(),   minimum = 30,   as_percent = FALSE,   combine_SI = TRUE,   confidence_level = 0.95 )  sir_df(   data,   translate_ab = \"name\",   language = get_AMR_locale(),   minimum = 30,   as_percent = FALSE,   combine_SI = TRUE,   confidence_level = 0.95 )"},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Calculate Antimicrobial Resistance — proportion","text":"M39 Analysis Presentation Cumulative Antimicrobial Susceptibility Test Data, 5th Edition, 2022, Clinical Laboratory Standards Institute (CLSI). https://clsi.org/standards/products/microbiology/documents/m39/.","code":""},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Calculate Antimicrobial Resistance — proportion","text":"... one vectors (columns) antibiotic interpretations. transformed internally .sir() needed. Use multiple columns calculate (lack ) co-resistance: probability one two drugs resistant susceptible result. See Examples. minimum minimum allowed number available (tested) isolates. isolate count lower minimum return NA warning. default number 30 isolates advised Clinical Laboratory Standards Institute (CLSI) best practice, see Source. as_percent logical indicate whether output must returned hundred fold % sign (character). value 0.123456 returned \"12.3%\". only_all_tested (combination therapies, .e. using one variable ...): logical indicate isolates must tested antibiotics, see section Combination Therapy ab_result antibiotic results test , must one values \"S\", \"\", \"R\" confidence_level confidence level returned confidence interval. calculation, number S SI isolates, R isolates compared total number available isolates R, S, using binom.test(), .e., Clopper-Pearson method. side side confidence interval return. default \"\" length 2 vector, can also (abbreviated ) \"min\"/\"left\"/\"lower\"/\"less\" \"max\"/\"right\"/\"higher\"/\"greater\". collapse logical indicate whether output values 'collapsed', .e. merged together one value, character value use collapsing data data.frame containing columns class sir (see .sir()) translate_ab column name antibiotics data set translate antibiotic abbreviations , using ab_property() language language returned text - default current system language (see get_AMR_locale()) can also set package option AMR_locale. Use language = NULL language = \"\" prevent translation. combine_SI logical indicate whether values S must merged one, output consists S+vs. R (susceptible vs. resistant) - default TRUE","code":""},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Calculate Antimicrobial Resistance — proportion","text":"double , as_percent = TRUE, character.","code":""},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Calculate Antimicrobial Resistance — proportion","text":"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(). Use sir_confidence_interval() calculate confidence interval, relies binom.test(), .e., Clopper-Pearson method. function returns vector length 2 default antimicrobial resistance. Change side argument \"left\"/\"min\" \"right\"/\"max\" return single value, change ab_result argument e.g. c(\"S\", \"\") test antimicrobial susceptibility, see Examples. functions meant count isolates, calculate proportion resistance/susceptibility. Use count_*() functions count isolates. function susceptibility() essentially equal count_susceptible()/count_all(). Low counts can influence outcome - proportion_*() functions may camouflage , since return proportion (albeit dependent minimum argument). function proportion_df() takes variable data sir class (created .sir()) calculates proportions S, , R. also supports grouped variables. function sir_df() works exactly like proportion_df(), adds number isolates.","code":""},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"combination-therapy","dir":"Reference","previous_headings":"","what":"Combination Therapy","title":"Calculate Antimicrobial Resistance — proportion","text":"using one variable ... (= combination therapy), use only_all_tested count isolates tested antibiotics/variables test . See example two antibiotics, Drug Drug B, susceptibility() works calculate %SI:   Please note , combination therapies, only_all_tested = TRUE applies :   , combination therapies, only_all_tested = FALSE applies :   Using only_all_tested impact using one antibiotic input.","code":"--------------------------------------------------------------------                     only_all_tested = FALSE  only_all_tested = TRUE                     -----------------------  -----------------------  Drug A    Drug B   include as  include as   include as  include as                     numerator   denominator  numerator   denominator --------  --------  ----------  -----------  ----------  -----------  S or I    S or I       X            X            X            X    R       S or I       X            X            X            X   <NA>     S or I       X            X            -            -  S or I      R          X            X            X            X    R         R          -            X            -            X   <NA>       R          -            -            -            -  S or I     <NA>        X            X            -            -    R        <NA>        -            -            -            -   <NA>      <NA>        -            -            -            - -------------------------------------------------------------------- count_S()    +   count_I()    +   count_R()    = count_all()   proportion_S() + proportion_I() + proportion_R() = 1 count_S()    +   count_I()    +   count_R()    >= count_all()   proportion_S() + proportion_I() + proportion_R() >= 1"},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"interpretation-of-sir","dir":"Reference","previous_headings":"","what":"Interpretation of SIR","title":"Calculate Antimicrobial Resistance — proportion","text":"2019, European Committee Antimicrobial Susceptibility Testing (EUCAST) decided change definitions susceptibility testing categories S, , R shown (https://www.eucast.org/newsiandr): S - Susceptible, standard dosing regimen microorganism categorised \"Susceptible, standard dosing regimen\", high likelihood therapeutic success using standard dosing regimen agent. - Susceptible, increased exposure  microorganism categorised \"Susceptible, Increased exposure\" high likelihood therapeutic success exposure agent increased adjusting dosing regimen concentration site infection. R = Resistant microorganism categorised \"Resistant\" high likelihood therapeutic failure even increased exposure. Exposure function mode administration, dose, dosing interval, infusion time, well distribution excretion antimicrobial agent influence infecting organism site infection. AMR package honours insight. Use susceptibility() (equal proportion_SI()) determine antimicrobial susceptibility count_susceptible() (equal count_SI()) count susceptible isolates.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/proportion.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Calculate Antimicrobial Resistance — proportion","text":"","code":"# example_isolates is a data set available in the AMR package. # run ?example_isolates for more info. example_isolates #> # A tibble: 2,000 × 46 #>    date       patient   age gender ward     mo           PEN   OXA   FLC   AMX   #>    <date>     <chr>   <dbl> <chr>  <chr>    <mo>         <sir> <sir> <sir> <sir> #>  1 2002-01-02 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  2 2002-01-03 A77334     65 F      Clinical B_ESCHR_COLI R     NA    NA    NA    #>  3 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  4 2002-01-07 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  5 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  6 2002-01-13 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #>  7 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  8 2002-01-14 462729     78 M      Clinical B_STPHY_AURS R     NA    S     R     #>  9 2002-01-16 067927     45 F      ICU      B_STPHY_EPDR R     NA    R     NA    #> 10 2002-01-17 858515     79 F      ICU      B_STPHY_EPDR R     NA    S     NA    #> # ℹ 1,990 more rows #> # ℹ 36 more variables: AMC <sir>, AMP <sir>, TZP <sir>, CZO <sir>, FEP <sir>, #> #   CXM <sir>, FOX <sir>, CTX <sir>, CAZ <sir>, CRO <sir>, GEN <sir>, #> #   TOB <sir>, AMK <sir>, KAN <sir>, TMP <sir>, SXT <sir>, NIT <sir>, #> #   FOS <sir>, LNZ <sir>, CIP <sir>, MFX <sir>, VAN <sir>, TEC <sir>, #> #   TCY <sir>, TGC <sir>, DOX <sir>, ERY <sir>, CLI <sir>, AZM <sir>, #> #   IPM <sir>, MEM <sir>, MTR <sir>, CHL <sir>, COL <sir>, MUP <sir>, …   # base R ------------------------------------------------------------ # determines %R resistance(example_isolates$AMX) #> [1] 0.5955556 sir_confidence_interval(example_isolates$AMX) #> [1] 0.5688204 0.6218738 sir_confidence_interval(example_isolates$AMX,   confidence_level = 0.975 ) #> [1] 0.5650148 0.6255670 sir_confidence_interval(example_isolates$AMX,   confidence_level = 0.975,   collapse = \", \" ) #> [1] \"0.565, 0.626\"  # determines %S+I: susceptibility(example_isolates$AMX) #> [1] 0.4044444 sir_confidence_interval(example_isolates$AMX,   ab_result = c(\"S\", \"I\") ) #> [1] 0.3781262 0.4311796  # be more specific proportion_S(example_isolates$AMX) #> [1] 0.4022222 proportion_SI(example_isolates$AMX) #> [1] 0.4044444 proportion_I(example_isolates$AMX) #> [1] 0.002222222 proportion_IR(example_isolates$AMX) #> [1] 0.5977778 proportion_R(example_isolates$AMX) #> [1] 0.5955556  # dplyr ------------------------------------------------------------- # \\donttest{ if (require(\"dplyr\")) {   example_isolates %>%     group_by(ward) %>%     summarise(       r = resistance(CIP),       n = n_sir(CIP)     ) # n_sir works like n_distinct in dplyr, see ?n_sir } #> # A tibble: 3 × 3 #>   ward           r     n #>   <chr>      <dbl> <int> #> 1 Clinical   0.147   869 #> 2 ICU        0.190   447 #> 3 Outpatient 0.161    93 if (require(\"dplyr\")) {   example_isolates %>%     group_by(ward) %>%     summarise(       cipro_R = resistance(CIP),       ci_min = sir_confidence_interval(CIP, side = \"min\"),       ci_max = sir_confidence_interval(CIP, side = \"max\"),     ) } #> # A tibble: 3 × 4 #>   ward       cipro_R ci_min ci_max #>   <chr>        <dbl>  <dbl>  <dbl> #> 1 Clinical     0.147 0.124   0.173 #> 2 ICU          0.190 0.155   0.230 #> 3 Outpatient   0.161 0.0932  0.252 if (require(\"dplyr\")) {   # scoped dplyr verbs with antibiotic selectors   # (you could also use across() of course)   example_isolates %>%     group_by(ward) %>%     summarise_at(       c(aminoglycosides(), carbapenems()),       resistance     ) } #> ℹ For aminoglycosides() using columns 'GEN' (gentamicin), 'TOB' #>   (tobramycin), 'AMK' (amikacin), and 'KAN' (kanamycin) #> ℹ For carbapenems() using columns 'IPM' (imipenem) and 'MEM' (meropenem) #> Warning: There was 1 warning in `summarise()`. #> ℹ In argument: `KAN = (function (..., minimum = 30, as_percent = FALSE, #>   only_all_tested = FALSE) ...`. #> ℹ In group 3: `ward = \"Outpatient\"`. #> Caused by warning: #> ! Introducing NA: only 23 results available for KAN in group: ward = #> \"Outpatient\" (minimum = 30). #> # A tibble: 3 × 7 #>   ward         GEN   TOB   AMK   KAN    IPM    MEM #>   <chr>      <dbl> <dbl> <dbl> <dbl>  <dbl>  <dbl> #> 1 Clinical   0.229 0.315 0.626     1 0.0498 0.0458 #> 2 ICU        0.290 0.400 0.662     1 0.0862 0.0894 #> 3 Outpatient 0.2   0.368 0.605    NA 0.0541 0.0541 if (require(\"dplyr\")) {   example_isolates %>%     group_by(ward) %>%     summarise(       R = resistance(CIP, as_percent = TRUE),       SI = susceptibility(CIP, as_percent = TRUE),       n1 = count_all(CIP), # the actual total; sum of all three       n2 = n_sir(CIP), # same - analogous to n_distinct       total = n()     ) # NOT the number of tested isolates!    # Calculate co-resistance between amoxicillin/clav acid and gentamicin,   # so we can see that combination therapy does a lot more than mono therapy:   example_isolates %>% susceptibility(AMC) # %SI = 76.3%   example_isolates %>% count_all(AMC) #   n = 1879    example_isolates %>% susceptibility(GEN) # %SI = 75.4%   example_isolates %>% count_all(GEN) #   n = 1855    example_isolates %>% susceptibility(AMC, GEN) # %SI = 94.1%   example_isolates %>% count_all(AMC, GEN) #   n = 1939     # See Details on how `only_all_tested` works. Example:   example_isolates %>%     summarise(       numerator = count_susceptible(AMC, GEN),       denominator = count_all(AMC, GEN),       proportion = susceptibility(AMC, GEN)     )    example_isolates %>%     summarise(       numerator = count_susceptible(AMC, GEN, only_all_tested = TRUE),       denominator = count_all(AMC, GEN, only_all_tested = TRUE),       proportion = susceptibility(AMC, GEN, only_all_tested = TRUE)     )     example_isolates %>%     group_by(ward) %>%     summarise(       cipro_p = susceptibility(CIP, as_percent = TRUE),       cipro_n = count_all(CIP),       genta_p = susceptibility(GEN, as_percent = TRUE),       genta_n = count_all(GEN),       combination_p = susceptibility(CIP, GEN, as_percent = TRUE),       combination_n = count_all(CIP, GEN)     )    # Get proportions S/I/R immediately of all sir columns   example_isolates %>%     select(AMX, CIP) %>%     proportion_df(translate = FALSE)    # It also supports grouping variables   # (use sir_df to also include the count)   example_isolates %>%     select(ward, AMX, CIP) %>%     group_by(ward) %>%     sir_df(translate = FALSE) } #> # A tibble: 12 × 7 #>    ward       antibiotic interpretation value ci_min ci_max isolates #>  * <chr>      <chr>      <ord>          <dbl>  <dbl>  <dbl>    <int> #>  1 Clinical   AMX        SI             0.423 0.389   0.457      357 #>  2 Clinical   AMX        R              0.577 0.543   0.611      487 #>  3 Clinical   CIP        SI             0.853 0.827   0.876      741 #>  4 Clinical   CIP        R              0.147 0.124   0.173      128 #>  5 ICU        AMX        SI             0.369 0.323   0.417      158 #>  6 ICU        AMX        R              0.631 0.583   0.677      270 #>  7 ICU        CIP        SI             0.810 0.770   0.845      362 #>  8 ICU        CIP        R              0.190 0.155   0.230       85 #>  9 Outpatient AMX        SI             0.397 0.288   0.515       31 #> 10 Outpatient AMX        R              0.603 0.485   0.712       47 #> 11 Outpatient CIP        SI             0.839 0.748   0.907       78 #> 12 Outpatient CIP        R              0.161 0.0932  0.252       15 # }"},{"path":"https://msberends.github.io/AMR/reference/random.html","id":null,"dir":"Reference","previous_headings":"","what":"Random MIC Values/Disk Zones/SIR Generation — random","title":"Random MIC Values/Disk Zones/SIR Generation — random","text":"functions can used generating random MIC values disk diffusion diameters, AMR data analysis practice. providing microorganism antimicrobial drug, generated results reflect reality much possible.","code":""},{"path":"https://msberends.github.io/AMR/reference/random.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Random MIC Values/Disk Zones/SIR Generation — random","text":"","code":"random_mic(size = NULL, mo = NULL, ab = NULL, ...)  random_disk(size = NULL, mo = NULL, ab = NULL, ...)  random_sir(size = NULL, prob_SIR = c(0.33, 0.33, 0.33), ...)"},{"path":"https://msberends.github.io/AMR/reference/random.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Random MIC Values/Disk Zones/SIR Generation — random","text":"size desired size returned vector. used data.frame call dplyr verb, get current (group) size left blank. mo character can coerced valid microorganism code .mo() ab character can coerced valid antimicrobial drug code .ab() ... ignored, place allow future extensions prob_SIR vector length 3: probabilities \"S\" (1st value), \"\" (2nd value) \"R\" (3rd value)","code":""},{"path":"https://msberends.github.io/AMR/reference/random.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Random MIC Values/Disk Zones/SIR Generation — random","text":"class mic random_mic() (see .mic()) class disk random_disk() (see .disk())","code":""},{"path":"https://msberends.github.io/AMR/reference/random.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Random MIC Values/Disk Zones/SIR Generation — random","text":"base R function sample() used generating values. Generated values based EUCAST 2023 guideline implemented clinical_breakpoints data set. create specific generated values per bug drug, set mo /ab argument.","code":""},{"path":"https://msberends.github.io/AMR/reference/random.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Random MIC Values/Disk Zones/SIR Generation — random","text":"","code":"random_mic(25) #> Class 'mic' #>  [1] 128     <=0.001 0.25    <=0.001 2       0.0625  64      1       8       #> [10] 0.25    128     <=0.001 128     64      0.025   <=0.001 0.005   4       #> [19] <=0.001 0.125   <=0.001 16      0.0625  <=0.001 4       random_disk(25) #> Class 'disk' #>  [1] 49 37 48 24 40 25 46 28 29 48 32 22 42 41 42 27 36 11 42 28 50 16 41  8 43 random_sir(25) #> Class 'sir' #>  [1] R S S I S S S R R S S R S R R R S I S I R S R S R  # \\donttest{ # make the random generation more realistic by setting a bug and/or drug: random_mic(25, \"Klebsiella pneumoniae\") # range 0.0625-64 #> Class 'mic' #>  [1] 0.001  4      0.5    16     0.002  32     0.01   64     1      0.002  #> [11] 32     0.025  0.0625 0.25   16     2      0.002  8      0.5    0.001  #> [21] 8      16     0.25   0.002  0.001  random_mic(25, \"Klebsiella pneumoniae\", \"meropenem\") # range 0.0625-16 #> Class 'mic' #>  [1] 0.5  2    0.5  4    1    1    1    16   1    0.5  0.25 16   1    4    0.25 #> [16] 2    2    0.5  16   1    0.5  2    4    1    1    random_mic(25, \"Streptococcus pneumoniae\", \"meropenem\") # range 0.0625-4 #> Class 'mic' #>  [1] 8      0.025  0.5    2      0.125  0.25   4      0.5    0.125  0.0625 #> [11] 0.0625 1      0.5    >=16   0.025  0.0625 0.5    1      4      4      #> [21] 8      0.125  1      0.25   0.025   random_disk(25, \"Klebsiella pneumoniae\") # range 8-50 #> Class 'disk' #>  [1] 20 36 50 50 46 42 47 48 43 31 42 50 44 49 39 29 46 44 47 20 48 12 10 47 12 random_disk(25, \"Klebsiella pneumoniae\", \"ampicillin\") # range 11-17 #> Class 'disk' #>  [1] 14 13 12 14 11 12 15 16 13 14 13 17 15 14 15 13 15 16 16 15 11 11 16 11 15 random_disk(25, \"Streptococcus pneumoniae\", \"ampicillin\") # range 12-27 #> Class 'disk' #>  [1] 17 16 22 26 23 26 20 19 15 15 24 23 23 18 16 17 23 27 21 26 22 24 23 26 23 # }"},{"path":"https://msberends.github.io/AMR/reference/resistance_predict.html","id":null,"dir":"Reference","previous_headings":"","what":"Predict Antimicrobial Resistance — resistance_predict","title":"Predict Antimicrobial Resistance — resistance_predict","text":"Create prediction model predict antimicrobial resistance next years statistical solid ground. Standard errors (SE) returned columns se_min se_max. See Examples real live example.","code":""},{"path":"https://msberends.github.io/AMR/reference/resistance_predict.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Predict Antimicrobial Resistance — resistance_predict","text":"","code":"resistance_predict(   x,   col_ab,   col_date = NULL,   year_min = NULL,   year_max = NULL,   year_every = 1,   minimum = 30,   model = NULL,   I_as_S = TRUE,   preserve_measurements = TRUE,   info = interactive(),   ... )  sir_predict(   x,   col_ab,   col_date = NULL,   year_min = NULL,   year_max = NULL,   year_every = 1,   minimum = 30,   model = NULL,   I_as_S = TRUE,   preserve_measurements = TRUE,   info = interactive(),   ... )  # S3 method for resistance_predict plot(x, main = paste(\"Resistance Prediction of\", x_name), ...)  ggplot_sir_predict(   x,   main = paste(\"Resistance Prediction of\", x_name),   ribbon = TRUE,   ... )  # S3 method for resistance_predict autoplot(   object,   main = paste(\"Resistance Prediction of\", x_name),   ribbon = TRUE,   ... )"},{"path":"https://msberends.github.io/AMR/reference/resistance_predict.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Predict Antimicrobial Resistance — resistance_predict","text":"x data.frame containing isolates. Can left blank automatic determination, see Examples. col_ab column name x containing antimicrobial interpretations (\"R\", \"\" \"S\") col_date column name date, used calculate years column consist years already - default first column date class year_min lowest year use prediction model, dafaults lowest year col_date year_max highest year use prediction model - default 10 years today year_every unit sequence lowest year found data year_max minimum minimal amount available isolates per year include. Years containing less observations estimated model. model statistical model choice. generalised linear regression model binomial distribution (.e. using glm(..., family = binomial), assuming period zero resistance followed period increasing resistance leading slowly resistance. See Details valid options. I_as_S logical indicate whether values \"\" treated \"S\" (otherwise treated \"R\"). default, TRUE, follows redefinition EUCAST interpretation (increased exposure) 2019, see section Interpretation S, R . preserve_measurements logical indicate whether predictions years actually available data overwritten original data. standard errors years NA. info logical indicate whether textual analysis printed name summary() statistical model. ... arguments passed functions main title plot ribbon logical indicate whether ribbon shown (default) error bars object model data plotted","code":""},{"path":"https://msberends.github.io/AMR/reference/resistance_predict.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Predict Antimicrobial Resistance — resistance_predict","text":"data.frame extra class resistance_predict columns: year value, estimated preserve_measurements = FALSE, combination observed estimated otherwise se_min, lower bound standard error minimum 0 (standard error never go 0%) se_max upper bound standard error maximum 1 (standard error never go 100%) observations, total number available observations year, .e. \\(S + + R\\) observed, original observed resistant percentages estimated, estimated resistant percentages, calculated model Furthermore, model available attribute: attributes(x)$model, see Examples.","code":""},{"path":"https://msberends.github.io/AMR/reference/resistance_predict.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Predict Antimicrobial Resistance — resistance_predict","text":"Valid options statistical model (argument model) : \"binomial\" \"binom\" \"logit\": generalised linear regression model binomial distribution \"loglin\" \"poisson\": generalised log-linear regression model poisson distribution \"lin\" \"linear\": linear regression model","code":""},{"path":"https://msberends.github.io/AMR/reference/resistance_predict.html","id":"interpretation-of-sir","dir":"Reference","previous_headings":"","what":"Interpretation of SIR","title":"Predict Antimicrobial Resistance — resistance_predict","text":"2019, European Committee Antimicrobial Susceptibility Testing (EUCAST) decided change definitions susceptibility testing categories S, , R shown (https://www.eucast.org/newsiandr): S - Susceptible, standard dosing regimen microorganism categorised \"Susceptible, standard dosing regimen\", high likelihood therapeutic success using standard dosing regimen agent. - Susceptible, increased exposure  microorganism categorised \"Susceptible, Increased exposure\" high likelihood therapeutic success exposure agent increased adjusting dosing regimen concentration site infection. R = Resistant microorganism categorised \"Resistant\" high likelihood therapeutic failure even increased exposure. Exposure function mode administration, dose, dosing interval, infusion time, well distribution excretion antimicrobial agent influence infecting organism site infection. AMR package honours insight. Use susceptibility() (equal proportion_SI()) determine antimicrobial susceptibility count_susceptible() (equal count_SI()) count susceptible isolates.","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/resistance_predict.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Predict Antimicrobial Resistance — resistance_predict","text":"","code":"x <- resistance_predict(example_isolates,   col_ab = \"AMX\",   year_min = 2010,   model = \"binomial\" ) plot(x)  # \\donttest{ if (require(\"ggplot2\")) {   ggplot_sir_predict(x) }   # using dplyr: if (require(\"dplyr\")) {   x <- example_isolates %>%     filter_first_isolate() %>%     filter(mo_genus(mo) == \"Staphylococcus\") %>%     resistance_predict(\"PEN\", model = \"binomial\")   print(plot(x))    # get the model from the object   mymodel <- attributes(x)$model   summary(mymodel) }  #> NULL #>  #> Call: #> glm(formula = df_matrix ~ year, family = binomial) #>  #> Coefficients: #>             Estimate Std. Error z value Pr(>|z|) #> (Intercept) 27.05312   72.24652   0.374    0.708 #> year        -0.01286    0.03601  -0.357    0.721 #>  #> (Dispersion parameter for binomial family taken to be 1) #>  #>     Null deviance: 5.7883  on 11  degrees of freedom #> Residual deviance: 5.6608  on 10  degrees of freedom #> AIC: 50.745 #>  #> Number of Fisher Scoring iterations: 4 #>   # create nice plots with ggplot2 yourself if (require(\"dplyr\") && require(\"ggplot2\")) {   data <- example_isolates %>%     filter(mo == as.mo(\"E. coli\")) %>%     resistance_predict(       col_ab = \"AMX\",       col_date = \"date\",       model = \"binomial\",       info = FALSE,       minimum = 15     )   head(data)   autoplot(data) }  # }"},{"path":"https://msberends.github.io/AMR/reference/skewness.html","id":null,"dir":"Reference","previous_headings":"","what":"Skewness of the Sample — skewness","title":"Skewness of the Sample — skewness","text":"Skewness measure asymmetry probability distribution real-valued random variable mean. negative ('left-skewed'): left tail longer; mass distribution concentrated right histogram. positive ('right-skewed'): right tail longer; mass distribution concentrated left histogram. normal distribution skewness 0.","code":""},{"path":"https://msberends.github.io/AMR/reference/skewness.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Skewness of the Sample — skewness","text":"","code":"skewness(x, na.rm = FALSE)  # S3 method for default skewness(x, na.rm = FALSE)  # S3 method for matrix skewness(x, na.rm = FALSE)  # S3 method for data.frame skewness(x, na.rm = FALSE)"},{"path":"https://msberends.github.io/AMR/reference/skewness.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Skewness of the Sample — skewness","text":"x vector values, matrix data.frame na.rm logical value indicating whether NA values stripped computation proceeds","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/reference/skewness.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Skewness of the Sample — skewness","text":"","code":"skewness(runif(1000)) #> [1] -0.007908431"},{"path":"https://msberends.github.io/AMR/reference/translate.html","id":null,"dir":"Reference","previous_headings":"","what":"Translate Strings from the AMR Package — translate","title":"Translate Strings from the AMR Package — translate","text":"language-dependent output AMR functions, mo_name(), mo_gramstain(), mo_type() ab_name().","code":""},{"path":"https://msberends.github.io/AMR/reference/translate.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Translate Strings from the AMR Package — translate","text":"","code":"get_AMR_locale()  set_AMR_locale(language)  reset_AMR_locale()  translate_AMR(x, language = get_AMR_locale())"},{"path":"https://msberends.github.io/AMR/reference/translate.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Translate Strings from the AMR Package — translate","text":"language language choose. Use one supported language names ISO-639-1 codes: English (en), Chinese (zh), Czech (cs), Danish (da), Dutch (nl), Finnish (fi), French (fr), German (de), Greek (el), Italian (), Japanese (ja), Norwegian (), Polish (pl), Portuguese (pt), Romanian (ro), Russian (ru), Spanish (es), Swedish (sv), Turkish (tr), Ukrainian (uk). x text translate","code":""},{"path":"https://msberends.github.io/AMR/reference/translate.html","id":"details","dir":"Reference","previous_headings":"","what":"Details","title":"Translate Strings from the AMR Package — translate","text":"currently 20 supported languages English (en), Chinese (zh), Czech (cs), Danish (da), Dutch (nl), Finnish (fi), French (fr), German (de), Greek (el), Italian (), Japanese (ja), Norwegian (), Polish (pl), Portuguese (pt), Romanian (ro), Russian (ru), Spanish (es), Swedish (sv), Turkish (tr), Ukrainian (uk). languages translations available antimicrobial drugs colloquial microorganism names. permanently silence -per-session language note non-English operating system, can set package option AMR_locale .Rprofile file like :   save file. Please read adding updating language Wiki.","code":"# Open .Rprofile file utils::file.edit(\"~/.Rprofile\")  # Then add e.g. Italian support to that file using: options(AMR_locale = \"Italian\")"},{"path":"https://msberends.github.io/AMR/reference/translate.html","id":"changing-the-default-language","dir":"Reference","previous_headings":"","what":"Changing the Default Language","title":"Translate Strings from the AMR Package — translate","text":"system language used default (returned Sys.getenv(\"LANG\") , LANG set, Sys.getlocale(\"LC_COLLATE\")), language supported. language used can overwritten two ways checked order: Setting package option AMR_locale, either using e.g. set_AMR_locale(\"German\") running e.g. options(AMR_locale = \"German\"). Note setting R option works session. Save command options(AMR_locale = \"(language)\") .Rprofile file apply every session. Run utils::file.edit(\"~/.Rprofile\") edit .Rprofile file. Setting system variable LANGUAGE LANG, e.g. adding LANGUAGE=\"de_DE.utf8\" .Renviron file home directory. Thus, package option AMR_locale set, system variables LANGUAGE LANG ignored.","code":""},{"path":"https://msberends.github.io/AMR/reference/translate.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Translate Strings from the AMR Package — translate","text":"","code":"# Current settings (based on system language) ab_name(\"Ciprofloxacin\") #> [1] \"Ciprofloxacin\" mo_name(\"Coagulase-negative Staphylococcus (CoNS)\") #> [1] \"Coagulase-negative Staphylococcus (CoNS)\"  # setting another language set_AMR_locale(\"Dutch\") #> ℹ Using Dutch (Nederlands) for the AMR package for this session. ab_name(\"Ciprofloxacin\") #> [1] \"Ciprofloxacine\" mo_name(\"Coagulase-negative Staphylococcus (CoNS)\") #> [1] \"Coagulase-negatieve Staphylococcus (CNS)\"  # setting yet another language set_AMR_locale(\"German\") #> ℹ Using German (Deutsch) for the AMR package for this session. ab_name(\"Ciprofloxacin\") #> [1] \"Ciprofloxacin\" mo_name(\"Coagulase-negative Staphylococcus (CoNS)\") #> [1] \"Koagulase-negative Staphylococcus (KNS)\"  # set_AMR_locale() understands endonyms, English exonyms, and ISO-639-1: set_AMR_locale(\"Deutsch\") #> ℹ Using German (Deutsch) for the AMR package for this session. set_AMR_locale(\"German\") #> ℹ Using German (Deutsch) for the AMR package for this session. set_AMR_locale(\"de\") #> ℹ Using German (Deutsch) for the AMR package for this session. ab_name(\"amox/clav\") #> ℹ More than one result was found for item 1: amoxicillin and clavulansäure #> [1] \"Amoxicillin/Clavulansäure\"  # reset to system default reset_AMR_locale() #> ℹ Using the English language (English) for the AMR package for this #>   session. ab_name(\"amox/clav\") #> [1] \"Amoxicillin/clavulanic acid\""},{"path":[]},{"path":"https://msberends.github.io/AMR/news/index.html","id":"new-2-1-1-9002","dir":"Changelog","previous_headings":"","what":"New","title":"AMR 2.1.1.9002","text":"Function scale_x_mic(), advanced function use ggplot, allow plotting MIC values x axis. allow manual range definition plotting missing intermediate log2 levels.","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"changed-2-1-1-9002","dir":"Changelog","previous_headings":"New","what":"Changed","title":"AMR 2.1.1.9002","text":"Added 4096 5 powers 192 valid levels (192, 384, 576, 768, 960) Added new argument keep_operators .mic(). can \"\" (default), \"none\", \"edges\".","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"amr-211","dir":"Changelog","previous_headings":"","what":"AMR 2.1.1","title":"AMR 2.1.1","text":"CRAN release: 2023-10-21 included many isolates patients altering antibiograms within bacterial species See info issue #122 Added 1,366 LOINC codes antibiotics data set updated latest version (LOINC v2.76) MICs can now used complex number calculations allow scientific number format input (e.g., .mic(\"1.28e-2\")) Fix rounding MICs latest R beta (‘R-devel’) Removed unneeded note used language option AMR_locale set Fixed non-ASCII characters documentation, according CRAN maintainers","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"amr-210","dir":"Changelog","previous_headings":"","what":"AMR 2.1.0","title":"AMR 2.1.0","text":"CRAN release: 2023-07-16","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"new-2-1-0","dir":"Changelog","previous_headings":"","what":"New","title":"AMR 2.1.0","text":"Clinical breakpoints intrinsic resistance EUCAST 2023 CLSI 2023 added clinical_breakpoints data set usage .sir(). EUCAST 2023 (v13.0) now new default guideline MIC disks diffusion interpretations EUCAST dosage guideline v13.0 added dosage data set clinical_breakpoints data set now also contains epidemiological cut-(ECOFF) values CLSI animal breakpoints. two new breakpoint types can used MIC/disk interpretation using .sir(..., breakpoint_type = \"ECOFF\") oras.sir(..., breakpoint_type = \"animal\"), important new addition veterinary microbiology. Added support 30 species groups / complexes. gathered new data set microorganisms.groups used clinical breakpoint interpretation. example, CLSI 2023 contains breakpoints RGM group (Rapidly Growing Mycobacterium, containing 80 species) now supported package. Added mo_oxygen_tolerance() retrieve values Added mo_is_anaerobic() determine genera/species obligate anaerobic bacteria Added LPSN GBIF identifiers, oxygen tolerance mo_info() Added SAS Transport files (file extension .xpt) download page use SAS software Added microbial codes Gram-negative/positive anaerobic bacteria","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"changed-2-1-0","dir":"Changelog","previous_headings":"","what":"Changed","title":"AMR 2.1.0","text":"Updated algorithm .mo() giving weight fungi Fixed clinical breakpoints errors introduced source import rules mo_rank() now returns NA ‘unknown’ microorganisms (B_ANAER, B_ANAER-NEG, B_ANAER-POS, B_GRAMN, B_GRAMP, F_FUNGUS, F_YEAST, UNKNOWN) printing microorganism antibiotic codes tibble, mouse-hover now shows full name code Now settable arguments breakpoint type PK/PD, like .sir() now contain name guideline table subtitle plot Fixed formatting sir_interpretation_history() Fixed WHONET codes microorganisms consequently couple entries clinical_breakpoints Fixed bug .mo() led coercion NA values using custom microorganism codes Fixed usage icu_exclude first_isolates() Now allows searching species names Fix using keep_synonyms argument using MO codes input Fix using minimum_matching_score argument Updated code table microorganisms.codes Fixed endless loop using reference_df .mo() Fixed bug indicating UTIs .sir() Greatly improved speed .sir()","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"amr-200","dir":"Changelog","previous_headings":"","what":"AMR 2.0.0","title":"AMR 2.0.0","text":"CRAN release: 2023-03-12 new major release AMR package, great new additions also breaking changes current users. listed . TL;DR functions arguments ‘rsi’ replaced ‘sir’, interpretation MIC values (now .sir() instead .rsi()) - old functions still work now Many new interesting functions, antibiogram() (generating traditional/combined/syndromic/WISCA antibiograms), sir_confidence_interval() mean_amr_distance(), add_custom_microorganisms() add custom microorganisms package Clinical breakpoints added EUCAST 2022 CLSI 2022 Microbiological taxonomy (microorganisms data set) updated 2022 now based LPSN GBIF Much increased algorithms translate user input valid taxonomy, e.g. using recent scientific work per-species human pathogenicity 20 new antibiotics added updated DDDs ATC codes Extended support antiviral agents (antivirals data set), many new functions Now available 20 languages Many small bug fixes","code":""},{"path":[]},{"path":"https://msberends.github.io/AMR/news/index.html","id":"sir-vs-rsi-2-0-0","dir":"Changelog","previous_headings":"New","what":"SIR vs. RSI","title":"AMR 2.0.0","text":"milestone version, replaced mentions RSI SIR, comply actually commonly used field clinical microbiology comes tri-form regarding AMR. existing functions .rsi(), rsi_df() ggplot_rsi() still work, replacements .sir(), sir_df(), ggplot_sir() now current functions AMR data analysis. warning thrown session remind users . data set rsi_translation now called clinical_breakpoints better reflect content. ‘RSI functions’ removed future version, late 2023 / early 2024.","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"new-antibiogram-function-2-0-0","dir":"Changelog","previous_headings":"New","what":"New antibiogram function","title":"AMR 2.0.0","text":"new antibiogram() function, users can now generate traditional, combined, syndromic, even weighted-incidence syndromic combination antibiograms (WISCA). , follow logic previously described work Klinker et al. (2021, DOI 10.1177/20499361211011373) Barbieri et al. (2021, DOI 10.1186/s13756-021-00939-2). help page antibiogram() extensively elaborates use cases, antibiogram() also supports printing R Markdown Quarto, support 20 languages. Furthermore, different plotting methods implemented allow graphical visualisations well.","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"interpretation-of-mic-and-disk-diffusion-values-2-0-0","dir":"Changelog","previous_headings":"New","what":"Interpretation of MIC and disk diffusion values","title":"AMR 2.0.0","text":"clinical breakpoints intrinsic resistance EUCAST 2022 CLSI 2022 added .sir(). EUCAST 2022 (v12.0) now new default guideline MIC disks diffusion interpretations, eucast_rules() apply EUCAST Expert Rules. default guideline (EUCAST) can now changed new AMR_guideline option, : options(AMR_guideline = \"CLSI 2020\"). new arguments include_PKPD (default: TRUE) include_screening (default: FALSE), users can now specify whether breakpoints screening PK/PD table included interpreting MICs disks diffusion values. options can set globally, can read new manual. Interpretation guidelines older 10 years removed, oldest now included guidelines EUCAST CLSI 2013.","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"supported-languages-2-0-0","dir":"Changelog","previous_headings":"New","what":"Supported languages","title":"AMR 2.0.0","text":"added support following ten languages: Chinese (simplified), Czech, Finnish, Greek, Japanese, Norwegian (bokmål), Polish, Romanian, Turkish Ukrainian. antibiotic names now available languages, AMR package automatically determine supported language based user’s system language. grateful valuable input colleagues countries. AMR package now available 20 languages total, according download stats used almost countries world!","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"outbreak-management-2-0-0","dir":"Changelog","previous_headings":"New","what":"Outbreak management","title":"AMR 2.0.0","text":"analysis outbreak management, updated get_episode() is_new_episode() functions: now contain argument case_free_days. argument can used quantify duration case-free days (inter-epidemic interval), new episode start. common requirement outbreak management, e.g. determining number norovirus outbreaks hospital. case-free period 14 28 days, new norovirus cases time considered different (new) episode.","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"microbiological-taxonomy-2-0-0","dir":"Changelog","previous_headings":"New","what":"Microbiological taxonomy","title":"AMR 2.0.0","text":"microorganisms data set longer relies Catalogue Life, List Prokaryotic names Standing Nomenclature (LPSN) supplemented ‘backbone taxonomy’ Global Biodiversity Information Facility (GBIF). structure data set changed include separate LPSN GBIF identifiers. Almost previous MO codes retained. contains 1,400 taxonomic names 2022. previously relied experience categorise species pathogenic groups, happy encounter recent work Bartlett et al. (2022, DOI 10.1099/mic.0.001269) extensively studied medical-scientific literature categorise bacterial species groups. See mo_matching_score() work incorporated prevalence column microorganisms data set. Using results, .mo() mo_*() functions now much better capable converting user input valid taxonomic records. new function add_custom_microorganisms() allows users add custom microorganisms AMR package. also made following changes regarding included taxonomy microorganisms functions: Updated full microbiological taxonomy according latest daily LPSN data set (December 2022) latest yearly GBIF taxonomy backbone (November 2022) Added function mo_current() get currently valid taxonomic name microorganism Support 1,516 city-like serovars Salmonella, Salmonella Goldcoast. Formally, serovars belonging S. enterica species, reported name genus city. reason, serovars subspecies column microorganisms data set “enterica” species column, full name contain species name (enterica). new argument keep_synonyms allows correct updated taxonomy, favour now deleted argument allow_uncertain increased tremendously speed returns generally consequent results Sequential coercion now extremely fast results stored package environment, although coercion unknown values must run per session. Previous results can reset/removed new mo_reset_session() function. Support microorganism codes ASIan Antimicrobial Resistance Surveillance Network (ASIARS-Net) MO matching score algorithm (mo_matching_score()) now counts deletions substitutions 2 instead 1, impacts outcome .mo() mo_*() function CRAN allows packages around 5 MB maximum, packages exempted package one Chromista relevant comes antimicrobial resistance, thus lacking primary scope package Chromista almost never clinically relevant, thus lacking secondary scope package microorganisms.old data set removed, previously accepted names now included microorganisms data set. new column status contains \"accepted\" currently accepted names \"synonym\" taxonomic synonyms; currently invalid names. previously accepted names now microorganisms ID - available - LPSN, GBIF SNOMED CT identifier.","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"antibiotic-agents-and-selectors-2-0-0","dir":"Changelog","previous_headings":"New","what":"Antibiotic agents and selectors","title":"AMR 2.0.0","text":"new function add_custom_antimicrobials() allows users add custom antimicrobial codes names AMR package. antibiotics data set greatly updated: following 20 antibiotics added (also includes new J01RA ATC group): azithromycin/fluconazole/secnidazole (AFC), cefepime/amikacin (CFA), cefixime/ornidazole (CEO), ceftriaxone/beta-lactamase inhibitor (CEB), ciprofloxacin/metronidazole (CIM), ciprofloxacin/ornidazole (CIO), ciprofloxacin/tinidazole (CIT), furazidin (FUR), isoniazid/sulfamethoxazole/trimethoprim/pyridoxine (IST), lascufloxacin (LSC), levofloxacin/ornidazole (LEO), nemonoxacin (NEM), norfloxacin/metronidazole (NME), norfloxacin/tinidazole (NTI), ofloxacin/ornidazole (OOR), oteseconazole (OTE), rifampicin/ethambutol/isoniazid (REI), sarecycline (SRC), tetracycline/oleandomycin (TOL), thioacetazone (TAT) Added missing ATC codes Updated DDDs PubChem Compound IDs Updated antibiotic name spelling, now used WHOCC (cephalexin -> cefalexin, phenethicillin -> pheneticillin) Antibiotic code “CEI” ceftolozane/tazobactam replaced “CZT” comply EARS-Net WHONET 2022. old code still work cases using .ab() ab_*() functions. Support antimicrobial interpretation anaerobic bacteria, adding ‘placeholder’ code B_ANAER microorganisms data set adding breakpoints anaerobics clinical_breakpoints data set, used .sir() interpretion MIC disk diffusion values Also, added support using antibiotic selectors scoped dplyr verbs (without using vars()), : ... %>% summarise_at(aminoglycosides(), resistance), please see resistance() examples.","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"antiviral-agents-2-0-0","dir":"Changelog","previous_headings":"New","what":"Antiviral agents","title":"AMR 2.0.0","text":"now added extensive support antiviral agents! first time, AMR package extensive support antiviral drugs work names, codes data way. antivirals data set extended 18 new drugs (also new J05AJ ATC group) now also contains antiviral identifiers LOINC codes new data type av (antivirals) added, functionally similar ab antibiotics Functions .av(), av_name(), av_atc(), av_synonyms(), av_from_text() added siblings ab_*() equivalents","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"other-new-functions-2-0-0","dir":"Changelog","previous_headings":"New","what":"Other new functions","title":"AMR 2.0.0","text":"Function sir_confidence_interval() add confidence intervals AMR calculation. now also included sir_df() proportion_df(). Function mean_amr_distance() calculate mean AMR distance. mean AMR distance normalised numeric value compare AMR test results can help identify similar isolates, without comparing antibiograms hand. Function sir_interpretation_history() view history previous runs .sir() (previously .rsi()). returns ‘logbook’ selected guideline, reference table specific interpretation row data set .sir() run.","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"changes-2-0-0","dir":"Changelog","previous_headings":"","what":"Changes","title":"AMR 2.0.0","text":"Fix working NA values Fix unsorted dates length 2 Now returns class integer instead numeric since always whole numbers Argument combine_IR removed package (affecting functions count_df(), proportion_df(), sir_df() plotting functions), since replaced combine_SI three years ago Using units ab_ddd(..., units = \"...\") deprecated time now supported anymore. Use ab_ddd_units() instead. Support data.frame-enhancing R packages, specifically: data.table::data.table, janitor::tabyl, tibble::tibble, tsibble::tsibble. AMR package functions data set output (sir_df() bug_drug_combinations()), now return data type input. data sets package now tibble, instead base R data.frames. Older R versions still supported, even support tibbles. data sets now also continually exported Apache Feather Apache Parquet formats. can find info article website. Fixed certain EUCAST breakpoints MIC values Allow NA values (e.g. .sir(.disk(NA), ...)) Fix bug-drug combinations multiple breakpoints different body sites Interpretation MIC disk zones now informative availability breakpoints robust Removed .integer() method MIC values, since MIC integer values running table() MIC values consequently failed able retrieve level position (’s normally .integer() factors work) Fixed determination Gram stains (mo_gramstain()), since taxonomic phyla Actinobacteria, Chloroflexi, Firmicutes, Tenericutes renamed respectively Actinomycetota, Chloroflexota, Bacillota, Mycoplasmatota 2021 droplevels() MIC now return common factor default lose mic class. Use droplevels(..., .mic = TRUE) keep mic class. Small fix using ab_from_text() Fixes reading text files using set_mo_source(), now also allows source file contain valid taxonomic names instead valid microorganism ID package Fixed bug mdro() using similar column names Magiorakos guideline Using random_*() function (random_mic()) now possible directly calling package without loading first: AMR::random_mic(10) Extended support vctrs package, used internally tidyverse. allows change values class mic, disk, sir, mo ab tibbles, use antibiotic selectors selecting/filtering, e.g. df[carbapenems() == \"R\", ] Fix using info = FALSE mdro() interpretation guidelines using .sir() amoxicillin, rules ampicillin used amoxicillin rules available Fix using ab_atc() non-existing ATC codes Black white message texts now reversed colour using RStudio dark theme mo_snomed() now returns class character, numeric anymore (make long SNOMED codes readable) Fix using .ab() NA values Updated support WHONET 2022 microorganism codes Antimicrobial interpretation ‘SDD’ (susceptible dose-dependent, coined CLSI) interpreted ‘’ comply EUCAST’s ‘’ .sir() Fix mo_shortname() case higher taxonomic ranks (order, class, phylum) Cleaning columns .sir(), .mic(), .disk() now show column name warning invalid results Fix using g.test() zeroes 2x2 table mo_synonyns() now contains scientific reference names","code":""},{"path":"https://msberends.github.io/AMR/news/index.html","id":"other-2-0-0","dir":"Changelog","previous_headings":"","what":"Other","title":"AMR 2.0.0","text":"Added Peter Dutey-Magni, Dmytro Mykhailenko, Anton Mymrikov, Andrew Norgan, Jonas Salm, Anita Williams contributors, thank valuable input New website make use new Bootstrap 5 pkgdown 2.0. website now contains results examples automatically regenerated every change repository, using GitHub Actions R Rmd files project now styled using styler package Set scalar conditional expressions (&& ||) possible comply upcoming R 4.3 enormous lot code cleaning, fixing small bugs along way changelog contains changes AMR v2.0 (January 2023) later. prior versions, please see archive.","code":""}]
diff --git a/sitemap.xml b/sitemap.xml
index 758bad13..d11ed9f3 100644
--- a/sitemap.xml
+++ b/sitemap.xml
@@ -45,9 +45,6 @@
   <url>
     <loc>https://msberends.github.io/AMR/news/index.html</loc>
   </url>
-  <url>
-    <loc>https://msberends.github.io/AMR/reference/AMR-deprecated.html</loc>
-  </url>
   <url>
     <loc>https://msberends.github.io/AMR/reference/AMR-options.html</loc>
   </url>